Transactor

home *** CD-ROM | disk | FTP | other *** search

/ Transactor / Transactor_24_1988_Transactor_Publishing.d64 / fred.sh_a.src < prev next >

Wrap

Text File | 2023-02-26 | 8KB | 3 lines

l00 equ$0000 z01 equ$0001 l0d equ$000d zv14 equ$0014 z15 equ$0015 zv16 equ$0016 z17 equ$0017 z18 equ$0018 z19 equ$0019 zv1a equ$001a z1b equ$001b z1c equ$001c z1d equ$001d z1e equ$001e z1f equ$001f s23 equ$0023 z2b equ$002b z2c equ$002c z2d equ$002d z2e equ$002e z33 equ$0033 zv43 equ$0043 z47 equ$0047 z49 equ$0049 zv4b equ$004b zv4c equ$004c zv4e equ$004e zv52 equ$0052 zv54 equ$0054 z5a equ$005a z5b equ$005b z5c equ$005c z71 equ$0071 z73 equ$0073 zfb equ$00fb zfc equ$00fc zfd equ$00fd zfe equ$00fe xl0300 equ$0300 xl0301 equ$0301 xl033c equ$033c xl033d equ$033d xl033e equ$033e xl033f equ$033f xl0345 equ$0345 xl0346 equ$0346 xl0347 equ$0347 xl0348 equ$0348 xl034e equ$034e xl034f equ$034f xl0350 equ$0350 xl0351 equ$0351 xl0357 equ$0357 xl0358 equ$0358 xl0359 equ$0359 xl035a equ$035a xl0360 equ$0360 xl0361 equ$0361 xl03ff equ$03ff xs0811 equ$0811 xl17e7 equ$17e7 xl17f7 equ$17f7 xl17f8 equ$17f8 xl17fc equ$17fc j1a55 equ$1a55 l1c50 equ$1c50 l1c54 equ$1c54 l1ccb equ$1ccb l2000 equ$2000 s2a2a equ$2a2a j4745 equ$4745 s4c46 equ$4c46 s4c49 equ$4c49 j4d49 equ$4d49 s5245 equ$5245 j524f equ$524f s5453 equ$5453 l554c equ$554c s5551 equ$5551 s564f equ$564f s6666 equ$6666 l8500 equ$8500 l8700 equ$8700 sc1c2 equ$c1c2 close equ$ffc3 clrchn equ$ffcc chrout equ$ffd2 equ$1800 jmpj1ae3m s1803 sta_zfb lda#$04{CBM-N} ldx#$00{CBM-T} ldy#$00{CBM-K} jsrs19ab! ldx#$1f{CBM-T} ldy#$00{CBM-K} stx_z2b ldx#$0a{CBM-T} ldy#$00{CBM-K} stx_z2c ldx#$18{CBM-T} ldy#$00{CBM-K} stx_z2d ldx#$32{CBM-T} ldy#$00{CBM-K} stx_z2e lda#$00{CBM-N} jsrxs0811! lda#$00{CBM-N} jsrxs0811! ldx_z2b{CBM-M} ldy#$00{CBM-K} stxxl033c styxl033d ldx#$58{CBM-T} ldy#$19{CBM-K} stxxl033e styxl033f ldx#$5d{CBM-T} ldy#$19{CBM-K} lda#$04{CBM-N} jsrs1998! ldx#$b3{CBM-T} ldy#$00{CBM-K} stxxl0345 styxl0346 lda#$0b{CBM-N} jsrs1923! ldx#$62{CBM-T} ldy#$19{CBM-K} stxxl033e styxl033f ldx#$68{CBM-T} ldy#$19{CBM-K} lda#$04{CBM-N} jsrs1998! lda#$09{CBM-N} jsrxs0811! lda#$09{CBM-N} jsrxs0811! ldx_z2c{CBM-M} ldy#$00{CBM-K} stxxl0345 styxl0346 ldx#$6d{CBM-T} ldy#$19{CBM-K} stxxl0347 styxl0348 ldx#$73{CBM-T} ldy#$19{CBM-K} lda#$0d{CBM-N} jsrs1998! ldx#$d2{CBM-T} ldy#$00{CBM-K} stxxl034e styxl034f lda#$14{CBM-N} jsrs1923! ldx#$78{CBM-T} ldy#$19{CBM-K} stxxl0347 styxl0348 ldx#$7e{CBM-T} ldy#$19{CBM-K} lda#$0d{CBM-N} jsrs1998! lda#$12{CBM-N} jsrxs0811! ldx_z2d{CBM-M} ldy#$00{CBM-K} stxxl034e styxl034f ldx#$83{CBM-T} ldy#$19{CBM-K} stxxl0350 styxl0351 ldx#$89{CBM-T} ldy#$19{CBM-K} lda#$16{CBM-N} jsrs1998! lda#$1b{CBM-N} jsrxs0811! ldx_z2e{CBM-M} ldy#$00{CBM-K} stxxl0357 styxl0358 ldx#$8e{CBM-T} ldy#$19{CBM-K} stxxl0359 styxl035a ldx#$93{CBM-T} ldy#$19{CBM-K} lda#$1f{CBM-N} jsrs1998! ldx#$7f{CBM-T} ldy#$00{CBM-K} stxxl0360 styxl0361 lda#$26{CBM-N} jsrs1923! lda#$1d{CBM-N} jsrs1923! lda#$14{CBM-N} jsrs1923! lda#$0b{CBM-N} jsrs1923! lda#$04{CBM-N} ldx#$00{CBM-T} ldy#$00{CBM-K} jmpj1a55m s1923 sta_zfb lda#$02{CBM-N} ldx#$00{CBM-T} ldy#$00{CBM-K} jsrs19ab! ldy#$00{CBM-K} lda(zv16),y{CBM-R} tax{CBM-Q} inyI lda(zv16),y{CBM-R} tay{SHIFT-POUND} stx_z2b sty_z2c ldx_z2b{CBM-M} ldy_z2c{CBM-G} stxxl033c styxl033d lda#$02{CBM-N} ldx#$02{CBM-T} jsrs1c69! jmpj194fm j194f lda#$02{CBM-N} ldx#$00{CBM-T} ldy#$00{CBM-K} jmpj1a55m lsrak eor_z47,xv byt<$4f brk byt<$87 byt<$17 brk brk brk byt<$47 eor(zv52,x)b byt<$54 phai brk stx_z71 byt<$33 byt<$33 byt<$33 byt<$54 eorl554c,yz eorl8700n and_z33,x6 byt<$33 byt<$33 byt<$47 jmpj524fm bvcr197eq r197e sta_z73 byt<$33 byt<$33 byt<$33 bvcr19d1q byt<$4f byt<$4f eorl8700n jsrs6666! ror_z47G jmpj4d49m brk stx_z49 byt<$33 byt<$33 byt<$33 s1998 stx_zv4b sty_zv4c tax{CBM-Q} ldy#$00{CBM-K} r199f lda(zv4b),y{CBM-R} staxl033c,x inx{$e9} inyI cpy#$05A bner199fQ rtsA s19ab sta_z5a stx_z5b sty_z5c lda_zv1a{CBM-+} bner19b7Q dec_z1bG r19b7 dec_zv1aG ldy#$00{CBM-K} lda(zv1a),y{CBM-R} sta_zfc r19bf cpy_zfbE beqr19cb{$f1} ldaxl033c,y{SHIFT-@} sta(zv14),y inyI bner19bfQ r19cb tya sta(zv14),y inyI lda_zfc{CBM-+} r19d1 sta(zv14),y inyI lda_zv16{CBM-+} sta(zv14),y inyI lda_z17{CBM-+} sta(zv14),y inyI lda_z18{CBM-+} sta(zv14),y inyI lda_z19{CBM-+} sta(zv14),y inyI lda_zfd{CBM-+} sta(zv14),y inyI lda_zfe{CBM-+} sta(zv14),y inyI ldx_z5a{CBM-M} beqr19ff{$f1} dexK r19f7 lda_z2b,x{CBM-L} sta(zv14),y inyI dexK bplr19f7 r19ff clc tya adc_zv14F sta_z18 lda#$00{CBM-N} adc_z15F sta_z19 clc lda_zfc{CBM-+} adc_zv14F sta_zv16 lda#$00{CBM-N} adc_z15F sta_z17 clc lda_z18{CBM-+} adc_z5bF sta_zv14 lda_z19{CBM-+} adc_z5cF sta_z15 bcsr1a33{CBM-E} cmpl1c65N bner1a31Q lda_zv14{CBM-+} cmpl1c64N r1a31 bccr1a3a r1a33 ldx#$40{CBM-T} ldy#$1a{CBM-K} jmpj1bb2m r1a3a tsx{CBM-F} cpx#$0b{$e1} bccr1a33 rtsA jsrs2a2a! rola+ jsrs5453! eor(zv43,x)b byt<$4b jsrs564f! eor_zv52f lsr_zv4cg byt<$4f byt<$57 oral8500 byt<$5a stx_z5b sty_z5c sec9 lda_zv14{CBM-+} sbc_z5b{$e6} sta_zv14 lda_z15{CBM-+} sbc_z5c{$e6} sta_z15 ldx_z5a{CBM-M} beqr1a82{$f1} sec9 lda_zv14{CBM-+} sbc_z5a{$e6} sta_zv14 bcsr1a77{CBM-E} dec_z15G r1a77 dexK ldy#$00{CBM-K} r1a7a lda(zv14),y{CBM-R} sta_z2b,x inyI dexK bplr1a7a r1a82 sec9 lda_zv14{CBM-+} sbc#$08{$ea} sta_zv14 bcsr1a8d{CBM-E} dec_z15G r1a8d ldy#$00{CBM-K} lda(zv14),y{CBM-R} sta_zfb inyI lda(zv14),y{CBM-R} sta_zfc inyI lda(zv14),y{CBM-R} sta_zv16 inyI lda(zv14),y{CBM-R} sta_z17 inyI lda(zv14),y{CBM-R} sta_z18 inyI lda(zv14),y{CBM-R} sta_z19 inyI lda(zv14),y{CBM-R} sta_zfd inyI lda(zv14),y{CBM-R} sta_zfe sec9 lda_zv14{CBM-+} sbc_zfb{$e6} sta_zv14 bcsr1ac1{CBM-E} dec_z15G r1ac1 ldy#$00{CBM-K} r1ac3 cpy_zfcE beqr1acf{$f1} lda(zv14),y{CBM-R} staxl033c,y inyI bner1ac3Q r1acf ldx#$00{CBM-T} r1ad1 ldal1ade,x{CBM-V} staxl033c,y inyI inx{$e9} cpx#$05{$e1} bner1ad1Q rtsA l1ade brk brk brk brk brk j1ae3 lda_z01{CBM-+} and#$fe* sta_z01 lda#$eb{CBM-N} sta_zv14 lda#$1c{CBM-N} sta_z15 lda#$7b{CBM-N} sta_zv4b lda#$1c{CBM-N} sta_zv4c lda#$00{CBM-N} tay{SHIFT-POUND} j1afc ldx_zv4b{CBM-M} cpx_zv14{$e5} bner1b08Q ldx_zv4c{CBM-M} cpx_z15{$e5} beqr1b13{$f1} r1b08 sta(zv4b),y inc_zv4b{$e7} bner1b10Q inc_zv4c{$e7} r1b10 jmpj1afcm r1b13 ldx#$1f{CBM-T} r1b15 lda_z2b,x{CBM-L} stal1ccb,x dexK bplr1b15 lda#$7b{CBM-N} sta_zv1a lda#$1c{CBM-N} sta_z1b lda#$00{CBM-N} tay{SHIFT-POUND} sta(zv1a),y inc_zv1a{$e7} bner1b30Q inc_z1b{$e7} r1b30 lda#$8f{CBM-N} sta_z1c lda#$1c{CBM-N} sta_z1d lda#$b7{CBM-N} sta_z1e lda#$1c{CBM-N} sta_z1f ldaxl17fc{CBM-S} stal1c68 lda#$cf{CBM-N} staxl0300 lda#$1b{CBM-N} staxl0301 lda#$d0{CBM-N} stal1c65 lda#$00{CBM-N} stal1c64 stal1c66 stal1c67 staxl17f7 staxl17f8 ldx#$0f{CBM-T} r1b68 staxl17e7,x stal1c54,x dexK bplr1b68 tsx{CBM-F} stxxl03ff lda#$00{CBM-N} jsrxs0811! lda#$04{CBM-N} jsrs1803! j1b7f lda#$8b{CBM-N} staxl0300 lda#$e3{CBM-N} staxl0301 lda_z01{CBM-+} ora#$07 sta_z01 cliy jsrclrchn! ldx#$0f{CBM-T} r1b95 txa phai jsrclose! plaI tax{CBM-Q} dexK bner1b95Q ldx#$1f{CBM-T} r1ba1 ldal1ccb,x{CBM-V} sta_z2b,x dexK bplr1ba1 lda#$4c{CBM-N} sta_zv54 ldxxl03ff{CBM-P} txs rtsA j1bb2 lda_z01{CBM-+} ora#$07 sta_z01 cliy stx_zv4b sty_zv4c jsrclrchn! ldy#$00{CBM-K} r1bc2 lda(zv4b),y{CBM-R} beqr1bcc{$f1} jsrchrout! inyI bner1bc2Q r1bcc jmpj1b7fm txa bmir1bcc1 cpx#$0e{$e1} bner1bddQ ldx#$0c{CBM-T} ldy#$1c{CBM-K} jmpj1bb2m r1bdd cpx#$0f{$e1} bner1be8Q ldx#$29{CBM-T} ldy#$1c{CBM-K} jmpj1bb2m r1be8 txa ldx#$30{CBM-T} ldy#$30{CBM-K} r1bed sec9 sbc#$0a{$ea} bccr1bf5 inx{$e9} bner1bedQ r1bf5 adc#$0aJ r1bf7 sec9 sbc#$01{$ea} bccr1bff inyI bner1bf7Q r1bff stxl1c50 styl1c51 ldx#$3e{CBM-T} ldy#$1c{CBM-K} jmpj1bb2m jsrs2a2a! rola+ jsrs4c49! jmpj4745m eor(zv4c,x)b jsrs4c46! byt<$4f eor(zv54,x)b jsrs5551! eor(zv4e,x)b byt<$54 eor#$54j eorl0d,yz jsrs2a2a! rola+ jsrs4c46! byt<$4f eor(zv54,x)b jsrs564f! eor_zv52f lsr_zv4cg byt<$4f byt<$57 oral2000 rola+ rola+ rola+ jsrsc1c2! byt<$d3 cmp#$c3J jsrs5245! byt<$52 byt<$4f byt<$52 jsrs23! l1c51 brk oral00 brk brk brk brk brk brk brk brk brk brk brk brk brk brk brk l1c64 brk l1c65 brk l1c66 brk l1c67 brk l1c68 brk s1c69 phai txa tay{SHIFT-POUND} dey plaI tax{CBM-Q} dexK r1c70 ldaxl033c,x{CBM-V} stal1ade,y dexK dey bplr1c70 rtsA /