!Т DROPKICK header (Listing 1) Т by Jeff Tullin "Т for Bas2 B/B+/E/M/C with SWR (Т (c) BAU 1990 2: < К6 F: P osasci=&FFE3 Z osnwl=&FFE7 d accum=&70 n length=&71 x string=&72 ┌ address=&74 ▄ currentstring=&76 √: ═ Ц opt = 4 ╦ 6 ┬ 2 ╙ P%=&8000:O%=&3000 Є [OPT opt Ў: х JMP osnwl р JMP entry э EQUB (&82) Ф EQUB (copy) П EQUB (0) З .title " EQUS ("DROPKICK SWR Utility") EQUB (13) .copy " EQUB (0) ," EQUS ("(C) 1989 Jeff Tullin") 6 EQUB (0) @ EQUB (13) J& EQUS (" Syntax: *SEEK ") T EQUB (13) ^- EQUS (" Load data into SWR at &8200") h EQUB (13) r EQUS (" Current data: ") | EQUB (0) ├.end ░% EQUS ("No (more) records found") EQUB (13) є: ў .entry ╦ STA accum б LDA &F3 л PHA ж LDA &F2 Ю PHA Й TYA Т PHA Ч TXA PHA LDX #6 .savezeropage & LDA &71,X 0 PHA : DEX D BPL savezeropage N: X LDA accum b CMP# 3 l BEQ break v CMP# 9 ─ BEQ help ┼ CMP# 4 ■ BEQ starcom ·: ╗.tobasic ╡ LDX# 0 ╪.restorezeropage ф PLA п STA &71,X з INX Д CPX# 7 Н BNE restorezeropage Ь PLA TAX PLA TAY PLA * STA &F2 4 PLA > STA &F3 H LDA accum R RTS \: f.printrecord p TYA z PHA └ LDY# 0 ▌.prloop ≤ LDA (currentstring),Y ╒ JSR osasci ╛ CMP# 13 І BEQ out ю CMP# 0 й BEQ out т INC currentstring ч BNE prloop Х INC currentstring+1 Р BNE prloop Э.out INC currentstring BNE ok INC currentstring+1 $.ok . LDA currentstring 8 STA address B LDA currentstring+1 L STA address+1 V PLA ` TAY j RTS t: ~ .help ┬ .break ▓ CMP# 3 ° BEQ hello і LDA (&F2),Y ╟ CMP# 13 ╨ BEQ hello д JMP tobasic н: ь .hello Б PHA Л LDA# (title ┐ 256) Ж STA currentstring LDA# (title │ 256) STA currentstring+1 JSR printrecord PLA ( CMP# 3 2 BEQ morethanhelp < LDX# 6 F.extratext P JSR printrecord Z DEX d BNE extratext n JSR filename x.morethanhelp ┌ JSR osnwl ▄ JMP tobasic √: ═.command ╙ EQUS ("SEEK") Є: Ў.starcom х LDX# 0 р.checkcommand э LDA (&F2),Y Ф ─# 223 П CMP command,X З BNE notforme INX INY LDA (&F2),Y " CMP# ≈"." , BEQ abbreviation 6 CPX# 4 @ BEQ action J BNE checkcommand T: ^ .notforme h JMP tobasic r: |.abbreviation ├ INY ░.action .removespaces є LDA (&F2),Y ў CMP# 32 ╦ BNE text б INY л CLC ж BCC removespaces Ю .text Й CLC Т TYA Ч ADC &F2 STA string LDA &F3 ADC# 0 & STA string+1 0 : LDA# 0 D STA address N LDA# &82 X STA address+1 b: l LDY# 255 v.findlength ─ INY ┼ LDA (string),Y ■ CMP# 13 · BNE findlength ╗ STY length ╡ : ╪.newrecord ф LDA address п STA currentstring з LDA address+1 Д STA currentstring+1 Н: Ь .scan LDY# 0 LDA (address),Y CMP# ≈("|") BEQ exit * CMP (string),Y 4 BEQ remainder > .nextbyte H CLC R INC address \ BNE nocarry f INC address+1 p.nocarry z LDA (address),Y └ CMP# 13 ▌ BNE scan ≤ INC address ╒ BNE newrecord ╛ INC address+1 І BNE newrecord ю: й.remainder т LDY length ч DEY Х .check Р LDA (address),Y Э CMP (string),Y BNE nextbyte CPY# 0 BEQ suitable $ DEY . CLC 8 BCC check B .suitable L JSR printrecord V JMP scan ` .exit j LDA# (end ┐ 256) t STA currentstring ~ LDA# (end │ 256) ┬ STA currentstring+1 ▓ JSR printrecord ° JSR osnwl і LDA #0 ╟ STA accum ╨ JMP tobasic д: н .filename ь LDA# &82 Б STA address+1 Л LDA# 0 Ж STA address TAY .findname LDA (address),Y CMP# ≈"|" ( BEQ found 2 INC address < BNE findname F INC address+1 P BNE findname Z .found d INY n.printfilename x LDA (address),Y ┌ CMP# 13 ▄ BEQ endoftitle √ CMP# 32 ═ BCC nogood ╙ CMP# 123 Є BCS nogood Ў JSR osasci х INY р CPY# 16 э BCC printfilename Ф.endoftitle П JMP osnwl З.nogood INY BNE printfilename : " NOP:NOP , EQUS "|None" 6 EQUB (13) @] J М T: ^: c&Я"Press SPACE to save code":УЩ╔=32 h&*SAVE "header" 3000 +208 8000 8000 Ъ