Т > xs/s v1.10 15-Feb-1990 Т Short Checksums Т (c) The Micro User ()Т v1.00 01-Feb 1988 by Steve Turnbull 2&Т v1.10 15-Feb 1990 by J.G.Harston <$Т Runable on either side of Tube FТ PРinit:Рassemble Z LDX #&7F OPT єwarn .clearlp & STA &480,X 0( DEX:BPL clearlp :\ Clear variables : LDA &00:STA &02 D! LDA &01:STA &03 :\ VARTOP=▓ N RTS X.end b( EQUB 13:EQUB &FF :\ l.escape v- JSR wayout:BRK:EQUB 17:EQUS "Escape":BRK ─.bad ┼. JSR wayout:BRK:BRK:EQUS "Bad program":BRK ■ OPT єwarn ·..rdbyte LDX #0:LDY #255:JSR byte:TXA:─ #63 ╗.ok RTS ╡.checkbasic ╪! LDA #187:JSR rdbyte:STA Lptr ф( LDA #252:JSR rdbyte:CMP Lptr:BEQ ok п) BRK:EQUB 249:EQUS "Not in BASIC":BRK з&.doline LDA #0:STA Lcrc:STA Lcrc+1 Д STA qflg:TAY:LDA (Lptr),Y Н& CMP #&0D:BNE bad:INY:LDA (Lptr),Y Ь STA Lnum+1:INY:LDA (Lptr),Y STA Lnum:INY:LDA (Lptr),Y STA Lend:JSR prescan:CPY #5 BCC display:LDY #4 ".skipspc LDA (Lptr),Y:CMP #spc * BNE scan:INY:CPY LLen 4 BEQ display:BNE skipspc >!.scan LDA (Lptr),Y:JSR dobyte H INY:CPY LLen:BCC scan R .display:LDX Lnum:LDY Lnum+1 \ JSR pdec:LDA #spc:JSR wrch f LDA #≈"=":JSR wrch:LDA #spc p! JSR wrch:LDX Lcrc:LDY Lcrc+1 z" JSR phex:LDA ocrc:JSR lastchk └" LDY LLen:CPY Lend:BEQ newline ▌ LDA #≈"*":JSR wrch ≤.newline JSR newl ╒!.update CLC:LDA Lptr:ADC Lend ╛$ STA Lptr:BCC unwhile:INC Lptr+1 І.unwhile JMP while ю.prescan LDY Lend й%.psLoop DEY:LDA (Lptr),Y:CMP #spc т BEQ psLoop:INY:STY LLen:RTS ч .dobyte STA savebyt:CMP #qts Х" BNE notqe:PHA:LDA qflg:┌ #&FF Р STA qflg:PLA Э.notqe BIT qflg:BMI skpcode BIT codeflg:BMI jcode JSR basic:JMP skpcode .jcode JSR mcode $!.skpcode LDA savebyt:CPY LLen ." BEQ skipcrc:STY Ltmp:LDX Lcrc 8" LDY Lcrc+1:JSR docrc:STX Lcrc B# STY Lcrc+1:LDX ocrc:LDY ocrc+1 L" JSR docrc:STX ocrc:STY ocrc+1 V LDY Ltmp:.skipcrc RTS `.basic CMP #rem:BEQ skpline j" CMP #Lbrk:BNE xbasic:LDA #&FF t STA codeflg:RTS ~!.skpline LDY LLen:.xbasic RTS ┬ .mcode CMP #mcom:BEQ skipcom ▓ CMP #rbrk:BNE xmcode:LDA #0 ° STA codeflg:.xmcode RTS і .skipcom LDA qflg:PHA:LDA #0 ╟ STA qflg ╨&.skpLoop INY:LDA (Lptr),Y:CMP #qts д# BNE skpchk:PHA:LDA qflg:┌ #&FF н STA qflg:PLA ь .skpchk CPY LLen:BEQ skpexit Б$ CMP #colon:BNE skpLoop:BIT qflg Л BMI skpLoop Ж&.skpexit PLA:STA qflg:LDA (Lptr),Y STA savebyt:RTS ".docrc PHA:STX wcrc:STY wcrc+1 ┌ wcrc+1:STA wcrc+1:LDX #7 $.crclp BIT wcrc+1:CLC:BPL crcskp ( LDA wcrc:┌ #&10:STA wcrc 2! LDA wcrc+1:┌ #&08:STA wcrc+1 < SEC F#.crcskp ROL wcrc:ROL wcrc+1:DEX P" BPL crclp:LDX wcrc:LDY wcrc+1 Z PLA:RTS d".lastchk PHA:LDA #spc:JSR wrch n PLA:─ #&0F:TAX:LDA #&FF:PHA x TXA:JMP notz:.pdec LDA #10 ┌ BNE pnum:.phex LDA #16 ▄.pnum STX Lonum:STY hinum √" STA nmbase:LDA #4:STA fldsize ═ LDA #255:STA zflg ╙.nbit PHA:LDA #0:STA Lowrk Є STA hiwrk:LDX #16 Ў.next ASL Lonum:ROL hinum х& ROL Lowrk:ROL hiwrk:LDA Lowrk:SEC р$ SBC nmbase:TAY:LDA hiwrk:SBC #0 э! BCC done:INC Lonum:STY Lowrk Ф! STA hiwrk:.done DEX:BNE next П# LDA Lowrk:DEC fldsize:BNE nbit З%.out TAX:BNE notz:PLA:PHA:PHP:TXA # PLP:BMI notz:BIT zflg:BPL notz LDA #spc:BNE digout !.notz LDX #0:STX zflg:CMP #10 " BCC add:ADC #6:.add ADC #48 , .digout JSR wrch:PLA:BPL out 6 .exit RTS @ ]:М:А JZщєwarn:ГL%─3:ГP%>&47F:ГP%<&500:Я"**** Warning: code overwritten on exit":warn%=warn%+1 T=L% Ъ