 
Т > Mini65/src 2Т Source for Tiny 6502 Single-port Tube Client 2Т ============================================ (;Т This code may be freely reused, with acknowledgements 2: <(Т Tiny 6502 Tube Client in 512 bytes F9Т Implements OSWRCH and OSRDCH via a single I/O port. P: Z: dТ Boilerplate nТ =========== xGГ ⌠>&FFFF:х≥ "OS_GetEnv"╦A$:ГюA$,5)<>"B6502":Ъ"B6502"+аA$,їA$," ")) ┌Н ┘ Ж:Я" at line ";·:Ю ▄*щєif(A%):ГA%:z%=-1:=opt% ▀ z%=P%:=opt% √;щєendif:Гz%=-1:=opt% ▀ z%=P%-z%:P%=P%-z%:O%=O%-z%:=opt% ═Fщєelse:Гz%=-1:z%=P%:=opt% ▀ z%=P%-z%:P%=P%-z%:O%=O%-z%:z%=-1:=opt% ╙ч mcode% &1FF, L% &40 Є: Ў: хТ Name and version рТ ================ э&ver$="0.10":date$=" (11 Nov 2016)" Ф,name$="Mini65":title$="Tiny 6502 Kernel" П"RDLINE%=╧:Т Implement OSWORD 0 Зload%=&FE00:Т System vectorsТ =============="EUSERV=&200:BRKV =&202:IRQ1V=&204:IRQ2V=&206:CLIV =&208:BYTEV=&20A,EWORDV=&20C:WRCHV=&20E:RDCHV=&210:FILEV=&212:ARGSV=&214:BGetV=&2166:BPutV=&218:GBPBV=&21A:FINDV=&21C:FSCV =&21E:EVNTV=&220@3LPTR=&F8:TEXT=&FA:IRQA=&FC:FAULT=&FD:ESCFLG=&FFJ:T@Т I/O values, these should be suitable for BenEater SBC 6551^@Т ==========================================================hLTxStatus=&5001:TxRDY=0:TxData=&5000:TxInit=&00:TxCommand=&5002:TxCmd=&0ArLRxStatus=&5001:RxRDY=8:RxData=&5000:RxInit=&00:TxControl=&5003:TxCtl=&1E|#TxDelay=100:Т 6551 TxRDY bugfix├?MEMBOT%=&800:MEMTOP%=&4000:MAIN=&8000:Т Enter code at &8000░)name$="EaterMini":title$="BenEater65" :є/Т I/O values, these are suitable for a 6850ў/Т =========================================╦OTxStatus=&FDF0:TxRDY=2:TxData=&FDF1:TxInit=&13:TxCommand=0:Т &13=Reset ACIAбRRxStatus=&FDF0:RxRDY=1:RxData=&FDF1:RxInit=&55:TxControl=0:Т &55=8N1, clock/16лTxDelay=0жKMEMBOT%=&800:MEMTOP%=&8000:MAIN=&FFB9:Т Replace with address to jump toЮ,name$="Mini65":title$="Tiny 6502 Kernel"Й"Т MAIN=&C000:name$="Mini65_C0"Т:ЧТ Serial Tube system valuesТ =========================esc=&9B:&:0Ц P=0 ╦ 1:opt%=P*3+4:P%=load%:O%=mcode%D[OPT opt%N
.LF800XJMP RESETb.PrBannerlJSR PrTextv.BANNER─*EQUB 13:EQUS title$:EQUS " ":EQUS ver$┼EQUB 13:EQUB 0■RTS·:╗\ Tube Client Startup Code╡\ ========================╪
.RESETф3SEI:LDX #&35               :\ Disable interuptsп.RESETlpз6LDA LFF00,X:STA &0200,X    :\ Copy default vectorsД-DEX:BPL RESETlp:TXS        :\ Clear stackН3INX:STX ESCFLG             :\ Clear Escape flagЬ5LDA #TxInit:STA TxStatus   :\ Initialise I/O portOPT єif(TxControl=0)LDA #RxInit:STA RxStatusOPT єelse LDA #TxCmd:STA TxCommand*LDA #TxCtl:STA TxControl4OPT єendif>CLI:JSR PrBanner:JSR OSNEWLH4CLC:LDA #&01:JMP OSQUIT    :\ Enter main programR:\.osBYTEfCMP #&83:BCC osBYTEexitpCMP #&85:BCS osBYTEexitzLDX #0:LDY #MEMBOT% │ 256└ROR A:BCS osBYTEok▌LDY #MEMTOP% │ 256≤.osBYTEok╒	ROL A╛.osBYTEexitІRTSю:й6OPT єif(RDLINE%)         :\ Perform RDLINE locallyт.osWORDч4STX LPTR+0:STY LPTR+1     :\ LPTR=>control blockХ<TAY:BNE Word00Exit        :\ OSWORD 0, jump to read lineРLDA (LPTR),Y:TAX:INYЭLDA (LPTR),Y:STA LPTR+1;STX LPTR+0:DEY            :\ (LPTR)=>string buffer, Y=0.Word00Lp13JSR OSRDCH:BCS Word00Exit :\ Wait for character$+CMP #&7F:BNE Word00Char   :\ Not Delete..Word00Delete82TYA:BEQ Word00Lp1         :\ Nothing to deleteB&LDA #&7F:JSR OSWRCH       :\ О 127L.Word00BackV8DEY:JMP Word00Lp1         :\ Dec. counter, loop back`.Word00Charj2CMP #&08:BEQ Word00Delete :\ BS is also Deletet+CMP #&15:BNE Word00Ins    :\ Not Ctrl-U~2TYA:BEQ Word00Lp1         :\ Nothing to delete┬LDA #&7F▓.Word00Lp2°2JSR OSWRCH:DEY            :\ Delete charactersіBNE Word00Lp2╟3BEQ Word00Lp1             :\ Jump back to start╨.Word00Insд0STA (LPTR),Y              :\ Store characterн0CMP #&0D:CLC:BEQ Word00cr :\ Return - finishь2CMP #&20:BCC Word00ctrl   :\ Control characterБ:INY:BEQ Word00Back        :\ Too long, dec and go backЛ.Word00ctrlЖ0JSR OSWRCH                :\ Print character .Word00max
.JMP Word00Lp1             :\ Loop for more.Word00cr9JSR OSNEWL:CLC            :\ Return with CC, Y=length(.Word00Exit2RTS<OPT єendifF:P\ Default error handlerZ\ =====================d.ErrorHandlernJSR OSNEWLxLDX FAULT+0:LDY FAULT+1┌2INX:BNE P%+3:INY           :\ XY=>error string▄4JSR PRSTRNG                :\ Print error string√	.HALT═*JMP HALT                   :\ And stop╙:Є\ Interrupt handlersЎ\ ==================х.IRQHandlerр>STA IRQA:PLA:PHA           :\ Save A, get flags from stackэ;─ #&10:BNE BRKHandler    :\ If BRK, jump to BRK handlerФ<JMP (IRQ1V)                :\ Continue via IRQ1V handlerП.IRQ1HandlerЗ2JMP (IRQ2V)                :\ Pass on to IRQ2V.BRKHandler(TXA:PHA                    :\ Save X8TSX:LDA &0103,X:CLD        :\ Get address from stack"SEC:SBC #&01:STA FAULT+0,LDA &0104,X69SBC #&00:STA FAULT+1       :\ &FD/E=>after BRK opcode@8PLA:TAX:LDA IRQA           :\ Restore X, get saved AJECLI:JMP (BRKV)             :\ Restore IRQs, jump to Error HandlerT.IRQ2Handler^+LDA IRQA                   :\ Restore Ah.NMIHandlerr6RTI                        :\ Return from interupt|:├3\ OSRDCH - Wait for character from input stream░3\ ============================================= &\ On exit, A =char, Cy=Escape flagє.osRDCHў4JSR ReadData:BCC osRDCH    :\ Wait for character╦BNE osRDCH2б.osRDCH1л4JSR ReadData:BCC osRDCH1   :\ Wait for characterж.osRDCH2Ю8CMP #27:BEQ osRDCH3        :\ Exit with CS if EscapeЙ.ReadDataNoneТ2CLC                        :\ CC if not EscapeЧ.osRDCH3RTS:.\ OSWRCH - Send character to output stream&.\ ========================================0\ On entry, A =character:9.osWRCH                    :\ WRCH is simply SendByteD.SendByteN+JSR SendData               :\ Send byteX2CMP #esc:BNE SendByteDone  :\ If not esc, doneb<\                          :\ Fall through to send againl:v:─ \ *** LOW-LEVEL I/O CODE ***┼ \ ==========================■:·\ Send a raw byte of data╗\ -----------------------╡.SendData╪PHAф.SendWaitпOPT єif(TxRDY)з,LDA TxStatus               :\ Get StatusД;─ #TxRDY:BEQ SendWait    :\ Wait until data can be sentНOPT єendifЬOPT єif(TxDelay)9LDA #TxDelay:SEC           :\ 6551-style TxRDY bugfix.SendWaitDelaySBC #1:BNE SendWaitDelay OPT єendif*+PLA:STA TxData             :\ Send data4.SendByteDone>RTSH:R\ Read raw data\\ -------------f\ On exit, P =CC, no datap.ReadDataz,LDA RxStatus:─ #RxRDY    :\ Get RxStatus└9BNE ReadDataNone           :\ Exit if no data present▌<LDA RxData:CMP #esc:SEC:RTS:\ CS=Data present, EQ/NE=esc≤:╒:╛\ щAULT VECTOR TABLEІ\ ====================ю
.LFF00й(EQUW NullReturn      :\ &200 - USERVт'EQUW ErrorHandler    :\ &202 - BRKVч(EQUW IRQ1Handler     :\ &204 - IRQ1VХ(EQUW IRQ2Handler     :\ &206 - IRQ2VР'EQUW NullReturn      :\ &208 - CLIVЭ(EQUW osBYTE          :\ &20A - BYTEV	OPT єif(RDLINE%)	(EQUW osWORD          :\ &20C - WORDV	OPT єelse	$(EQUW NullReturn      :\ &20C - WORDV	.OPT єendif	8(EQUW osWRCH          :\ &20E - WRCHV	B(EQUW osRDCH          :\ &210 - RDCHV	L(EQUW NullReturn      :\ &212 - FILEV	V(EQUW NullReturn      :\ &214 - ARGSV	`(EQUW NullReturn      :\ &216 - BGetV	j(EQUW NullReturn      :\ &218 - BPutV	t(EQUW NullReturn      :\ &21A - GBPBV	~(EQUW NullReturn      :\ &21C - FINDV	┬'EQUW Unsupported     :\ &21E - FSCV	▓(EQUW NullReturn      :\ &220 - EVNTV	°'EQUW Unsupported     :\ &222 - UPTV	і'EQUW Unsupported     :\ &224 - NETV	╟'EQUW Unsupported     :\ &226 - VduV	╨'EQUW Unsupported     :\ &228 - KEYV	д'EQUW Unsupported     :\ &22A - INSV	н'EQUW Unsupported     :\ &22C - RemV	ь'EQUW Unsupported     :\ &22E - CNPV	Б(EQUW NullReturn      :\ &230 - IND1V	Л(EQUW NullReturn      :\ &232 - IND2V	Ж(EQUW NullReturn      :\ &234 - IND3V
 :

.PrText
:PLA:STA TEXT+0:PLA:STA TEXT+1 :\ TEXT=>embedded string
GJSR PrString2:JMP (TEXT)      :\ Print string and jump back to code
(:
2.PrString
<4STX TEXT+0:STY TEXT+1      :\ TEXT=>string at YX
F.PrStringLp
P/LDY #&00:LDA (TEXT),Y      :\ Get character
Z<BEQ PrString2:JSR OSASCI   :\ Print character if not &00
d.PrString2
n8INC TEXT+0:BNE LFEA6:INC TEXT+1 :\ Increment address
x
.LFEA6
┌6TAY:BNE PrStringLp         :\ Loop back if not &00
▄:
√.ScanHex
═.InitError
╙.Unsupported
Є.NullReturn
ЎRTS
х:
рOPT єif(P%<&FF7D)
э.PrHexXY
ФTYA:JSR PrHex:TXA
П
.PrHex
ЗPHA:LSR A:LSR A:LSR A:LSR AJSR PrNybble:PLA:─ #15.PrNybble0PHP:SED:CLC:ADC #&90:ADC #&40:PLP:JMP OSWRCH"OPT єendif,:6 \ Standard Tube entry points@ \ ==========================JEQUS д(&FF95-P%)─255,Ґ255)T+.LFF95   :JMP NullReturn       :\ &FF95^+.OSCOLD  :JMP RESET            :\ &FF98hg.PRSTRNG :JMP PrString         :\ &FF9B  Print zero-terminated text at YX, returns A=0, Y corruptedr+.LFF9E   :JMP NullReturn       :\ &FF9E|+.SCANHEX :JMP NullReturn       :\ &FFA1├+.DISKACC :JMP NullReturn       :\ &FFA4░+.DISKCCP :JMP NullReturn       :\ &FFA7 H.PRHEX   :JMP PrHex            :\ &FFAA  Print A in hex, A corruptedєI.PR2HEX  :JMP PrHexXY          :\ &FFAD  Print YX in hex, A corruptedў+.USERINT :JMP NullReturn       :\ &FFB0╦h.PRTEXT  :JMP PrText           :\ &FFB3  Print zero-terminated inline text, returns A=0, Y corruptedбA.VECDEF  :EQUB &36:EQUW LFF00  :\ &FFB6  Default vector tableлA.OSQUIT  :JMP MAIN             :\ &FFB9  Quit current programж+.OSERROR :JMP NullReturn       :\ &FFBCЮV.OSINIT  :JMP InitError        :\ &FFBF  Initialise MOS error handler, A corruptedЙ+.DISKRST :JMP NullReturn       :\ &FFC2Т+.LFFC5   :JMP NullReturn       :\ &FFC5Ч+.NVRDCH  :JMP osRDCH           :\ &FFC8+.NVWRCH  :JMP osWRCH           :\ &FFCB:+.OSFIND  :JMP (FINDV)          :\ &FFCE&+.OSGBPB  :JMP (GBPBV)          :\ &FFD10+.OSBPUT  :JMP (BPutV)          :\ &FFD4:+.OSBGET  :JMP (BGetV)          :\ &FFD7D+.OSARGS  :JMP (ARGSV)          :\ &FFDAN+.OSFILE  :JMP (FILEV)          :\ &FFDDX:b+.OSRDCH  :JMP (RDCHV)          :\ &FFE0l+.OSASCI  :CMP #&0D:BNE OSWRCH  :\ &FFE3v+.OSNEWL  :LDA #&0A:JSR OSWRCH  :\ &FFE7─+.OSWRCR  :LDA #&0D             :\ &FFEC┼+.OSWRCH  :JMP (WRCHV)          :\ &FFEE■+.OSWORD  :JMP (WORDV)          :\ &FFF1·+.OSBYTE  :JMP (BYTEV)          :\ &FFF4╗+.OS_CLI  :JMP (CLIV)           :\ &FFF7╡:╪7.NMIV    :EQUW NMIHandler      :\ &FFFA  NMI Vectorф9.RESETV  :EQUW RESET           :\ &FFFC  RESET Vectorп7.IRQV    :EQUW IRQHandler      :\ &FFFE  IRQ Vectorз&]:Г O%>L%:Я"ERROR: Code overrun":ЮДМ:Я "Saving ";name$;НAЪ "Save "+name$+" "+ц~mcode%+" "+ц~O%+" "+ц~load%+" "+ц~load%ЬЯЪ