ф > AS/SRC ф J.G.Harston, 15-Feb-1990 /ф Save BASIC program with embedded filename (2ф Demonstrates writing code in BASIC workspace 2<ф Up to 256 bytes will fit in string buffer at &600-&6FF <: F+ф Based on CSAVER, Micro User, Apr 1988 P+ф and *AS, Micro User, Nov 1989 Z: d,Ю mcode% &200 :ф memory to assemble to n+load%=&600 :ф Address to load to xosbyte=&FFF4 ‚ptr=&70:cr=&0D:rem=&F4 Њг L%=4 ё 7 € 3 –P%=load%:O%=mcode% [OPT L% Є .exec% ґ)\ Header identifies this as 6502 code ѕ/JMP start:BRK:BRK:BRK :\ Entry point И1EQUB &42:EQUB copy-exec% :\ &42=6502 code Т)EQUB &01:EQUS "AutoSave" :\ Title Ь&EQUB &00:EQUS "1.00 (15 Feb 1990)" ж .copy р"EQUB &00:EQUS "(C)J.G.Harston" ъEQUB &00 .start 9LDA #187 :\ Read BASIC ROM number " .chkbasic ,DSTX ptr :\ Store ROM number from first pass 68LDX #0:LDY #255:JSR OSBYTE :\ Read OSBYTE variable @D‚ #71:CMP #187:BNE chkbasic:\ Loop back to read current language J3TXA:‚ ptr:Ђ #63 :\ Compare ROM numbers T.BEQ basicok :\ They match ^PLA:PLA:TAY:INY h;CPY #&F9:BCC error2 :\ Not on second processor r7PLA:STA &EE:STA &F2 :\ Restore environment |PLA:STA &EF:STA &F3 †.error2 ђ(BRK:EQUB 249:EQUS "Not in BASIC":BRK љ ¤.basicok ®9LDA #21:LDX #0:JSR osbyte :\ Clear keyboard buffer ёLDA &18:STA ptr+1 В*LDY #0:STY ptr+0 :\ ptr=>ђ МLDA (ptr),Y Ц8CMP #13:BNE exit :\ No program in memory аINY:LDA (ptr),Y к1CMP #&FF:BEQ exit :\ Empty program ф LDY #3 ю.remloop 6INY:LDA (ptr),Y :\ Get byte from line 4CMP #cr:BEQ exit :\ Found , no ф 6CMP #rem:BNE remloop :\ Loop until ф found &.spaceloop 0INY:LDA (ptr),Y :8CMP #32:BEQ spaceloop :\ Step past any spaces D.CMP #—">":BEQ foundname :\ ф > filename N/CMP #34:BEQ foundname :\ ф "filename X8DEY :\ No prefix, step back b.foundname l?TYA:PHA:LDX #0 :\ Remember offset to filename v .loop Ђ:LDY save,X:JSR osbyte138 :\ Insert characters from Љ.INX:CPX #4:BNE loop :\ Зљ ”?PLA:TAY :\ Get back offset to filename ћ.getname Ё:INY:TYA:PHA:LDA (ptr),Y :\ Get filename character І/CMP #cr:BEQ addcr :\ End of line ј5CMP #34:BEQ addcr :\ Terminating quote Ж8TAY:JSR osbyte138 :\ Insert the character РPLA:TAY:BNE getname Ъ .addcr дPLA о .osbyte138 *TXA:PHA :\ Save X .save HEQUS "SA.""" R]:н \