Home » Personal collection » Commodore disks » disk53a_techie_tips.d64 » mandlecode

mandlecode

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Commodore disks » disk53a_techie_tips.d64
Filename: mandlecode
Read OK: ✔
File size: 08E5 bytes
Load address: 0801
Exec address: 0000
File contents
    10 ;MANDLEPLOT
    20 ;SOURCE CODE
    30 ;22/10/95
    40 ;
   100 *=$C000
 39950 ;MANDLEPLOT
 39960 ;SOURCE CODE
 39970 ;22/10/95
 39980 ;
 39990 *=$C000
 40000 ; ARITHMETIC ROUTINES
 40010 GETDIGIT CLD
 40020 ASL A
 40030 ASL A
 40040 ASL A
 40050 STA $02
 40060 TXA
 40070 LSR A
 40080 STA $24
 40090 LDA #$07
 40100 SEC
 40110 SBC $24
 40120 CLC
 40130 ADC $02
 40140 TAY
 40150 LDA $4000,Y
 40160 TAY
 40170 TXA
 40180 AND #$01
 40190 BEQ LSNGD
 40200 TYA
 40210 AND #$F0
 40220 LSR A
 40230 LSR A
 40240 LSR A
 40250 LSR A
 40260 RTS
 40270 LSNGD TYA
 40280 AND #$0F
 40290 RTS
 40300 MULTIPLY LDA $4102
 40310 ASL A
 40320 ASL A
 40330 ASL A
 40340 TAX
 40350 LDA #$00
 40360 TAY
 40370 MLOPA STA $4000,X
 40380 INY
 40390 INX
 40400 CPY #$08
 40410 BNE MLOPA
 40420 LDA #$06
 40430 STA $FC
 40440 NEWDIGIT LDA $4101
 40450 LDX $FC
 40460 JSR GETDIGIT
 40470 CMP #$00
 40480 BEQ DMOVER
 40490 STA $FD
 40500 LDA #$06
 40510 STA $FB
 40520 DMLOP LDA $4100
 40530 LDX $FB
 40540 JSR GETDIGIT
 40550 DMLB CMP #$00
 40560 BEQ DMOVER
 40570 STA $FE
 40580 LDA $FB
 40590 CLC
 40600 ADC $FC
 40610 SEC
 40620 SBC #$0C
 40630 LDX $FD
 40640 TAY
 40650 AND #$01
 40660 BEQ MSKIP
 40670 TXA
 40680 ASL A
 40690 ASL A
 40700 ASL A
 40710 ASL A
 40720 TAX
 40730 MSKIP TYA
 40740 LSR A
 40750 STA $02
 40760 LDA #$07
 40770 SEC
 40780 SBC $02
 40790 STA $02
 40800 LDA $4102
 40810 ASL A
 40820 ASL A
 40830 ASL A
 40840 ADC $02
 40850 TAY
 40860 STX $24
 40870 LDX $02
 40880 SED
 40890 LDA $4000,Y
 40900 CLC
 40910 ADC $24
 40920 STA $4000,Y
 40930 MALP CLD
 40940 BCC MAQUIT
 40950 DEY
 40960 DEX
 40970 CPX #$FF
 40980 BEQ MAQUIT
 40990 SED
 41000 LDA $4000,Y
 41010 CLC
 41020 ADC #$01
 41030 STA $4000,Y
 41040 JMP MALP
 41050 DMOVER INC $FB
 41060 LDA $FB
 41070 CMP #$0E
 41080 BCC DMLOP
 41090 INC $FC
 41100 LDA $FC
 41110 CMP #$0E
 41120 BCC NEWDIGIT
 41130 LDA $4102
 41140 ASL A
 41150 ASL A
 41160 ASL A
 41170 TAX
 41180 LDA #$00
 41190 STA $4000,X
 41200 RTS
 41210 MAQUIT LDX $FE
 41220 DEX
 41230 TXA
 41240 JMP DMLB
 41250 MSUP LDA $4100
 41260 ASL A
 41270 ASL A
 41280 ASL A
 41290 TAX
 41300 DEX
 41310 STX $FB
 41320 LDA $4101
 41330 ASL A
 41340 ASL A
 41350 ASL A
 41360 TAX
 41370 DEX
 41380 STX $FD
 41390 LDA $4102
 41400 ASL A
 41410 ASL A
 41420 ASL A
 41430 TAX
 41440 DEX
 41450 STX $22
 41460 LDA #$40
 41470 STA $FC
 41480 STA $FE
 41490 STA $23
 41500 RTS
 41510 EQUAL JSR MSUP
 41520 LDY #$08
 41530 ELOP LDA ($FB),Y
 41540 STA ($22),Y
 41550 DEY
 41560 BNE ELOP
 41570 RTS
 41580 ADDITION JSR MSUP
 41590 LDY #$08
 41600 SED
 41610 CLC
 41620 ADLOP LDA ($FB),Y
 41630 ADC ($FD),Y
 41640 STA ($22),Y
 41650 DEY
 41660 BNE ADLOP
 41670 CLD
 41680 RTS
 41690 SUBTRACT JSR MSUP
 41700 LDY #$08
 41710 SED
 41720 SEC
 41730 SULOP LDA ($FB),Y
 41740 SBC ($FD),Y
 41750 STA ($22),Y
 41760 DEY
 41770 BNE SULOP
 41780 CLD
 41790 RTS



;MANDLEPLOT";SOURCE CODE0;22/10/956(;Bd��$C000R�;MANDLEPLOTc�;SOURCE CODEq"�;22/10/95w,�;�6���$C000�@�; ARITHMETIC ROUTINES�J��DIGIT CLD�T�ASL A�^�ASL A�h�ASL A�r�STA $02�|�TXA���LSR A���STA $24	��LDA #$07		��SEC	��SBC $24	��CLC)	œADC $021	̜TAYA	֜LDA $4000,YI	�TAYQ	�TXA\	� #$01j	��BEQ LSNGDr	�TYA}	�� #$F0�	�LSR A�	&�LSR A�	0�LSR A�	:�LSR A�	D�RTS�	N�LSNGD TYA�	X�� #$0F�	b�RTS�	l�MULTIPLY LDA $4102�	v�ASL A�	��ASL A
��ASL A
��TAX
��LDA #$00 
��TAY6
��MLOPA STA $4000,X>
��INYF
ƝINXS
НCPY #$08a
ڝBNE MLOPAn
�LDA #$06z
�STA $FC�
���DIGIT LDA $4101�
�LDX $FC�
�JSR �DIGIT�
�CMP #$00�
 �BEQ DMOVER�
*�STA $FD�
4�LDA #$06�
>�STA $FB�
H�DMLOP LDA $4100R�LDX $FB\�JSR �DIGIT,f�DMLB CMP #$00;p�BEQ DMOVERGz�STA $FES��LDA $FB[��CLCg��ADC $FCo��SEC|��SBC #$0C���LDX $FD���TAY�ʞ� #$01�ԞBEQ MSKIP�ޞTXA��ASL A��ASL A���ASL A��ASL A��TAX��MSKIP TYA�$�LSR A.�STA $028�LDA #$07B�SEC&L�SBC $022V�STA $02@`�LDA $4102Jj�ASL ATt�ASL A^~�ASL Aj��ADC $02r��TAY~��STX $24���LDX $02���SED���LDA $4000,Y�ğCLC�ΟADC $24�؟STA $4000,Y��MALP CLD��BCC MAQUIT���DEY��DEX�
�CPX #$FF
�BEQ MAQUIT
�SED&
(�LDA $4000,Y.
2�CLC;
<�ADC #$01K
F�STA $4000,YX
P�JMP MALPk
Z�DMOVER INC $FBw
d�LDA $FB�
n�CMP #$0E�
x�BCC DMLOP�
��INC $FC�
��LDA $FC�
��CMP #$0E�
��BCC �DIGIT�
��LDA $4102�
��ASL A�
��ASL A�
ȠASL A�
ҠTAXܠLDA #$00�STA $4000,X�RTS2��MAQUIT LDX $FE:�DEXB�TXAO�JMP DMLBb"�MSUP LDA $4100l,�ASL Av6�ASL A�@�ASL A�J�TAX�T�DEX�^�STX $FB�h�LDA $4101�r�ASL A�|�ASL A���ASL A���TAX���DEX���STX $FD���LDA $4102���ASL A¡ASL A̡ASL A֡TAX �DEX,�STX $229�LDA #$40E��STA $FCQ�STA $FE]�STA $23e�RTSx&�EQUAL JSR MSUP�0�LDY #$08�:�ELOP LDA ($FB),Y�D�STA ($22),Y�N�DEY�X�BNE ELOP�b�RTS�l�ADDITI� JSR MSUP�v�LDY #$08���SED���CLC��ADLOP LDA ($FB),Y��ADC ($FD),Y/��STA ($22),Y7��DEYE��BNE ADLOPMƢCLDUТRTSkڢSUBTRACT JSR MSUPx�LDY #$08��SED���SEC��SULOP LDA ($FB),Y��SBC ($FD),Y��STA ($22),Y� �DEY�*�BNE SULOP�4�CLD�>�RTS
QHJ@;mandleplot@"HT@;source code@0H.@;22/10/95@6H(@;@bHD@..$c000@rHN.;mandleplot@CHX.;source code@QH".;22/10/95@WH,.;@.H6...$c000@.H@.; arithmetic routines@.Hj..digit cld@.Ht.asl a@.H..asl a@.HH.asl a@.HR.sta $02@.H..txa@.H..lsr a@.H..sta $24@AI..lda #$07@II..sec@UI..sbc $24@]I..clc@)I..adc $02@1I..tay@aI..lda $4000,y@iI..tay@qI..txa@£I... #$01@JI..beq lsngd@RIH.tya@.IR.. #$f0@.I£.lsr a@.I&.lsr a@.I0.lsr a@.I:.lsr a@.Id.rts@.In.lsngd tya@.Ix.. #$0f@.IB.rts@.IL.multiply lda $4102@.IV.asl a@.I..asl a@CJ..asl a@KJ..tax@XJ..lda #$00@ J..tay@6J..mlopa sta $4000,x@>J..iny@fJ..inx@sJ..cpy #$08@AJ..bne mlopa@NJ..lda #$06@ZJ..sta $fc@.J...digit lda $4101@.JB.ldx $fc@.JL.jsr .digit@.JV.cmp #$00@.J .beq dmover@.J*.sta $fd@.J4.lda #$06@.J>.sta $fb@.Jh.dmlop lda $4100@KKr.ldx $fb@ZK£.jsr .digit@,KF.dmlb cmp #$00@;KP.beq dmover@gKZ.sta $fe@sK..lda $fb@[K..clc@GK..adc $fc@OK..sec@.K..sbc #$0c@.K..ldx $fd@.K..tay@.K... #$01@.K..beq mskip@.K..txa@.K..asl a@.K..asl a@.K..asl a@.KF.asl a@.KP.tax@.KZ.mskip tya@.K$.lsr a@EL..sta $02@RL8.lda #$07@ZLb.sec@&Ll.sbc $02@2Lv.sta $02@@L..lda $4102@jLJ.asl a@tLT.asl a@.L..asl a@JL..adc $02@RL..tay@.L..stx $24@.L..ldx $02@.L..sed@.L..lda $4000,y@.L..clc@.L..adc $24@.L..sta $4000,y@.L..malp cld@.L..bcc maquit@.L..dey@.L@.dex@.LJ.cpx #$ff@NMT.beq maquit@VM..sed@&M(.lda $4000,y@.M2.clc@;M<.adc #$01@kMf.sta $4000,y@xMp.jmp malp@KMz.dmover inc $fb@WMD.lda $fb@.MN.cmp #$0e@.MX.bcc dmlop@.M..inc $fc@.M..lda $fc@.M..cmp #$0e@.M..bcc .digit@.M..lda $4102@.M..asl a@.M..asl a@.M..asl a@.M..tax@GN..lda #$00@WN..sta $4000,x@.N..rts@2N..maquit ldx $fe@:ND.dex@bNN.txa@oNX.jmp dmlb@BN".msup lda $4100@LN,.asl a@VN6.asl a@.N@.asl a@.Nj.tax@.Nt.dex@.N..stx $fb@.NH.lda $4101@.NR.asl a@.N..asl a@.N..asl a@.N..tax@.N..dex@.N..stx $fd@.N..lda $4102@.N..asl a@FO..asl a@PO..asl a@XO..tax@ O..dex@,O..stx $22@9O..lda #$40@eO..sta $fc@qOH.sta $fe@]OR.sta $23@EO£.rts@XO&.equal jsr msup@.O0.ldy #$08@.O:.elop lda ($fb),y@.Od.sta ($22),y@.On.dey@.Ox.bne elop@.OB.rts@.OL.additi. jsr msup@.OV.ldy #$08@.O..sed@.O..clc@OP..adlop lda ($fb),y@.P..adc ($fd),y@/P..sta ($22),y@7P..dey@eP..bne adlop@mP..cld@uP..rts@KP..subtract jsr msup@XP..ldy #$08@.P..sed@.P..sec@.PB.sulop lda ($fb),y@.PL.sbc ($fd),y@.PV.sta ($22),y@.P .dey@.P*.bne sulop@.P4.cld@.P>.rts@@@
00000000  11 08 0a 00 3b 4d 41 4e  44 4c 45 50 4c 4f 54 00  |....;MANDLEPLOT.|
00000010  22 08 14 00 3b 53 4f 55  52 43 45 20 43 4f 44 45  |"...;SOURCE CODE|
00000020  00 30 08 1e 00 3b 32 32  2f 31 30 2f 39 35 00 36  |.0...;22/10/95.6|
00000030  08 28 00 3b 00 42 08 64  00 ac b2 24 43 30 30 30  |.(.;.B.d...$C000|
00000040  00 52 08 0e 9c 3b 4d 41  4e 44 4c 45 50 4c 4f 54  |.R...;MANDLEPLOT|
00000050  00 63 08 18 9c 3b 53 4f  55 52 43 45 20 43 4f 44  |.c...;SOURCE COD|
00000060  45 00 71 08 22 9c 3b 32  32 2f 31 30 2f 39 35 00  |E.q.".;22/10/95.|
00000070  77 08 2c 9c 3b 00 83 08  36 9c ac b2 24 43 30 30  |w.,.;...6...$C00|
00000080  30 00 9d 08 40 9c 3b 20  41 52 49 54 48 4d 45 54  |0...@.; ARITHMET|
00000090  49 43 20 52 4f 55 54 49  4e 45 53 00 ac 08 4a 9c  |IC ROUTINES...J.|
000000a0  a1 44 49 47 49 54 20 43  4c 44 00 b6 08 54 9c 41  |.DIGIT CLD...T.A|
000000b0  53 4c 20 41 00 c0 08 5e  9c 41 53 4c 20 41 00 ca  |SL A...^.ASL A..|
000000c0  08 68 9c 41 53 4c 20 41  00 d6 08 72 9c 53 54 41  |.h.ASL A...r.STA|
000000d0  20 24 30 32 00 de 08 7c  9c 54 58 41 00 e8 08 86  | $02...|.TXA....|
000000e0  9c 4c 53 52 20 41 00 f4  08 90 9c 53 54 41 20 24  |.LSR A.....STA $|
000000f0  32 34 00 01 09 9a 9c 4c  44 41 20 23 24 30 37 00  |24.....LDA #$07.|
00000100  09 09 a4 9c 53 45 43 00  15 09 ae 9c 53 42 43 20  |....SEC.....SBC |
00000110  24 32 34 00 1d 09 b8 9c  43 4c 43 00 29 09 c2 9c  |$24.....CLC.)...|
00000120  41 44 43 20 24 30 32 00  31 09 cc 9c 54 41 59 00  |ADC $02.1...TAY.|
00000130  41 09 d6 9c 4c 44 41 20  24 34 30 30 30 2c 59 00  |A...LDA $4000,Y.|
00000140  49 09 e0 9c 54 41 59 00  51 09 ea 9c 54 58 41 00  |I...TAY.Q...TXA.|
00000150  5c 09 f4 9c af 20 23 24  30 31 00 6a 09 fe 9c 42  |\.... #$01.j...B|
00000160  45 51 20 4c 53 4e 47 44  00 72 09 08 9d 54 59 41  |EQ LSNGD.r...TYA|
00000170  00 7d 09 12 9d af 20 23  24 46 30 00 87 09 1c 9d  |.}.... #$F0.....|
00000180  4c 53 52 20 41 00 91 09  26 9d 4c 53 52 20 41 00  |LSR A...&.LSR A.|
00000190  9b 09 30 9d 4c 53 52 20  41 00 a5 09 3a 9d 4c 53  |..0.LSR A...:.LS|
000001a0  52 20 41 00 ad 09 44 9d  52 54 53 00 bb 09 4e 9d  |R A...D.RTS...N.|
000001b0  4c 53 4e 47 44 20 54 59  41 00 c6 09 58 9d af 20  |LSNGD TYA...X.. |
000001c0  23 24 30 46 00 ce 09 62  9d 52 54 53 00 e5 09 6c  |#$0F...b.RTS...l|
000001d0  9d 4d 55 4c 54 49 50 4c  59 20 4c 44 41 20 24 34  |.MULTIPLY LDA $4|
000001e0  31 30 32 00 ef 09 76 9d  41 53 4c 20 41 00 f9 09  |102...v.ASL A...|
000001f0  80 9d 41 53 4c 20 41 00  03 0a 8a 9d 41 53 4c 20  |..ASL A.....ASL |
00000200  41 00 0b 0a 94 9d 54 41  58 00 18 0a 9e 9d 4c 44  |A.....TAX.....LD|
00000210  41 20 23 24 30 30 00 20  0a a8 9d 54 41 59 00 36  |A #$00. ...TAY.6|
00000220  0a b2 9d 4d 4c 4f 50 41  20 53 54 41 20 24 34 30  |...MLOPA STA $40|
00000230  30 30 2c 58 00 3e 0a bc  9d 49 4e 59 00 46 0a c6  |00,X.>...INY.F..|
00000240  9d 49 4e 58 00 53 0a d0  9d 43 50 59 20 23 24 30  |.INX.S...CPY #$0|
00000250  38 00 61 0a da 9d 42 4e  45 20 4d 4c 4f 50 41 00  |8.a...BNE MLOPA.|
00000260  6e 0a e4 9d 4c 44 41 20  23 24 30 36 00 7a 0a ee  |n...LDA #$06.z..|
00000270  9d 53 54 41 20 24 46 43  00 8f 0a f8 9d a2 44 49  |.STA $FC......DI|
00000280  47 49 54 20 4c 44 41 20  24 34 31 30 31 00 9b 0a  |GIT LDA $4101...|
00000290  02 9e 4c 44 58 20 24 46  43 00 aa 0a 0c 9e 4a 53  |..LDX $FC.....JS|
000002a0  52 20 a1 44 49 47 49 54  00 b7 0a 16 9e 43 4d 50  |R .DIGIT.....CMP|
000002b0  20 23 24 30 30 00 c6 0a  20 9e 42 45 51 20 44 4d  | #$00... .BEQ DM|
000002c0  4f 56 45 52 00 d2 0a 2a  9e 53 54 41 20 24 46 44  |OVER...*.STA $FD|
000002d0  00 df 0a 34 9e 4c 44 41  20 23 24 30 36 00 eb 0a  |...4.LDA #$06...|
000002e0  3e 9e 53 54 41 20 24 46  42 00 ff 0a 48 9e 44 4d  |>.STA $FB...H.DM|
000002f0  4c 4f 50 20 4c 44 41 20  24 34 31 30 30 00 0b 0b  |LOP LDA $4100...|
00000300  52 9e 4c 44 58 20 24 46  42 00 1a 0b 5c 9e 4a 53  |R.LDX $FB...\.JS|
00000310  52 20 a1 44 49 47 49 54  00 2c 0b 66 9e 44 4d 4c  |R .DIGIT.,.f.DML|
00000320  42 20 43 4d 50 20 23 24  30 30 00 3b 0b 70 9e 42  |B CMP #$00.;.p.B|
00000330  45 51 20 44 4d 4f 56 45  52 00 47 0b 7a 9e 53 54  |EQ DMOVER.G.z.ST|
00000340  41 20 24 46 45 00 53 0b  84 9e 4c 44 41 20 24 46  |A $FE.S...LDA $F|
00000350  42 00 5b 0b 8e 9e 43 4c  43 00 67 0b 98 9e 41 44  |B.[...CLC.g...AD|
00000360  43 20 24 46 43 00 6f 0b  a2 9e 53 45 43 00 7c 0b  |C $FC.o...SEC.|.|
00000370  ac 9e 53 42 43 20 23 24  30 43 00 88 0b b6 9e 4c  |..SBC #$0C.....L|
00000380  44 58 20 24 46 44 00 90  0b c0 9e 54 41 59 00 9b  |DX $FD.....TAY..|
00000390  0b ca 9e af 20 23 24 30  31 00 a9 0b d4 9e 42 45  |.... #$01.....BE|
000003a0  51 20 4d 53 4b 49 50 00  b1 0b de 9e 54 58 41 00  |Q MSKIP.....TXA.|
000003b0  bb 0b e8 9e 41 53 4c 20  41 00 c5 0b f2 9e 41 53  |....ASL A.....AS|
000003c0  4c 20 41 00 cf 0b fc 9e  41 53 4c 20 41 00 d9 0b  |L A.....ASL A...|
000003d0  06 9f 41 53 4c 20 41 00  e1 0b 10 9f 54 41 58 00  |..ASL A.....TAX.|
000003e0  ef 0b 1a 9f 4d 53 4b 49  50 20 54 59 41 00 f9 0b  |....MSKIP TYA...|
000003f0  24 9f 4c 53 52 20 41 00  05 0c 2e 9f 53 54 41 20  |$.LSR A.....STA |
00000400  24 30 32 00 12 0c 38 9f  4c 44 41 20 23 24 30 37  |$02...8.LDA #$07|
00000410  00 1a 0c 42 9f 53 45 43  00 26 0c 4c 9f 53 42 43  |...B.SEC.&.L.SBC|
00000420  20 24 30 32 00 32 0c 56  9f 53 54 41 20 24 30 32  | $02.2.V.STA $02|
00000430  00 40 0c 60 9f 4c 44 41  20 24 34 31 30 32 00 4a  |.@.`.LDA $4102.J|
00000440  0c 6a 9f 41 53 4c 20 41  00 54 0c 74 9f 41 53 4c  |.j.ASL A.T.t.ASL|
00000450  20 41 00 5e 0c 7e 9f 41  53 4c 20 41 00 6a 0c 88  | A.^.~.ASL A.j..|
00000460  9f 41 44 43 20 24 30 32  00 72 0c 92 9f 54 41 59  |.ADC $02.r...TAY|
00000470  00 7e 0c 9c 9f 53 54 58  20 24 32 34 00 8a 0c a6  |.~...STX $24....|
00000480  9f 4c 44 58 20 24 30 32  00 92 0c b0 9f 53 45 44  |.LDX $02.....SED|
00000490  00 a2 0c ba 9f 4c 44 41  20 24 34 30 30 30 2c 59  |.....LDA $4000,Y|
000004a0  00 aa 0c c4 9f 43 4c 43  00 b6 0c ce 9f 41 44 43  |.....CLC.....ADC|
000004b0  20 24 32 34 00 c6 0c d8  9f 53 54 41 20 24 34 30  | $24.....STA $40|
000004c0  30 30 2c 59 00 d3 0c e2  9f 4d 41 4c 50 20 43 4c  |00,Y.....MALP CL|
000004d0  44 00 e2 0c ec 9f 42 43  43 20 4d 41 51 55 49 54  |D.....BCC MAQUIT|
000004e0  00 ea 0c f6 9f 44 45 59  00 f2 0c 00 a0 44 45 58  |.....DEY.....DEX|
000004f0  00 ff 0c 0a a0 43 50 58  20 23 24 46 46 00 0e 0d  |.....CPX #$FF...|
00000500  14 a0 42 45 51 20 4d 41  51 55 49 54 00 16 0d 1e  |..BEQ MAQUIT....|
00000510  a0 53 45 44 00 26 0d 28  a0 4c 44 41 20 24 34 30  |.SED.&.(.LDA $40|
00000520  30 30 2c 59 00 2e 0d 32  a0 43 4c 43 00 3b 0d 3c  |00,Y...2.CLC.;.<|
00000530  a0 41 44 43 20 23 24 30  31 00 4b 0d 46 a0 53 54  |.ADC #$01.K.F.ST|
00000540  41 20 24 34 30 30 30 2c  59 00 58 0d 50 a0 4a 4d  |A $4000,Y.X.P.JM|
00000550  50 20 4d 41 4c 50 00 6b  0d 5a a0 44 4d 4f 56 45  |P MALP.k.Z.DMOVE|
00000560  52 20 49 4e 43 20 24 46  42 00 77 0d 64 a0 4c 44  |R INC $FB.w.d.LD|
00000570  41 20 24 46 42 00 84 0d  6e a0 43 4d 50 20 23 24  |A $FB...n.CMP #$|
00000580  30 45 00 92 0d 78 a0 42  43 43 20 44 4d 4c 4f 50  |0E...x.BCC DMLOP|
00000590  00 9e 0d 82 a0 49 4e 43  20 24 46 43 00 aa 0d 8c  |.....INC $FC....|
000005a0  a0 4c 44 41 20 24 46 43  00 b7 0d 96 a0 43 4d 50  |.LDA $FC.....CMP|
000005b0  20 23 24 30 45 00 c6 0d  a0 a0 42 43 43 20 a2 44  | #$0E.....BCC .D|
000005c0  49 47 49 54 00 d4 0d aa  a0 4c 44 41 20 24 34 31  |IGIT.....LDA $41|
000005d0  30 32 00 de 0d b4 a0 41  53 4c 20 41 00 e8 0d be  |02.....ASL A....|
000005e0  a0 41 53 4c 20 41 00 f2  0d c8 a0 41 53 4c 20 41  |.ASL A.....ASL A|
000005f0  00 fa 0d d2 a0 54 41 58  00 07 0e dc a0 4c 44 41  |.....TAX.....LDA|
00000600  20 23 24 30 30 00 17 0e  e6 a0 53 54 41 20 24 34  | #$00.....STA $4|
00000610  30 30 30 2c 58 00 1f 0e  f0 a0 52 54 53 00 32 0e  |000,X.....RTS.2.|
00000620  fa a0 4d 41 51 55 49 54  20 4c 44 58 20 24 46 45  |..MAQUIT LDX $FE|
00000630  00 3a 0e 04 a1 44 45 58  00 42 0e 0e a1 54 58 41  |.:...DEX.B...TXA|
00000640  00 4f 0e 18 a1 4a 4d 50  20 44 4d 4c 42 00 62 0e  |.O...JMP DMLB.b.|
00000650  22 a1 4d 53 55 50 20 4c  44 41 20 24 34 31 30 30  |".MSUP LDA $4100|
00000660  00 6c 0e 2c a1 41 53 4c  20 41 00 76 0e 36 a1 41  |.l.,.ASL A.v.6.A|
00000670  53 4c 20 41 00 80 0e 40  a1 41 53 4c 20 41 00 88  |SL A...@.ASL A..|
00000680  0e 4a a1 54 41 58 00 90  0e 54 a1 44 45 58 00 9c  |.J.TAX...T.DEX..|
00000690  0e 5e a1 53 54 58 20 24  46 42 00 aa 0e 68 a1 4c  |.^.STX $FB...h.L|
000006a0  44 41 20 24 34 31 30 31  00 b4 0e 72 a1 41 53 4c  |DA $4101...r.ASL|
000006b0  20 41 00 be 0e 7c a1 41  53 4c 20 41 00 c8 0e 86  | A...|.ASL A....|
000006c0  a1 41 53 4c 20 41 00 d0  0e 90 a1 54 41 58 00 d8  |.ASL A.....TAX..|
000006d0  0e 9a a1 44 45 58 00 e4  0e a4 a1 53 54 58 20 24  |...DEX.....STX $|
000006e0  46 44 00 f2 0e ae a1 4c  44 41 20 24 34 31 30 32  |FD.....LDA $4102|
000006f0  00 fc 0e b8 a1 41 53 4c  20 41 00 06 0f c2 a1 41  |.....ASL A.....A|
00000700  53 4c 20 41 00 10 0f cc  a1 41 53 4c 20 41 00 18  |SL A.....ASL A..|
00000710  0f d6 a1 54 41 58 00 20  0f e0 a1 44 45 58 00 2c  |...TAX. ...DEX.,|
00000720  0f ea a1 53 54 58 20 24  32 32 00 39 0f f4 a1 4c  |...STX $22.9...L|
00000730  44 41 20 23 24 34 30 00  45 0f fe a1 53 54 41 20  |DA #$40.E...STA |
00000740  24 46 43 00 51 0f 08 a2  53 54 41 20 24 46 45 00  |$FC.Q...STA $FE.|
00000750  5d 0f 12 a2 53 54 41 20  24 32 33 00 65 0f 1c a2  |]...STA $23.e...|
00000760  52 54 53 00 78 0f 26 a2  45 51 55 41 4c 20 4a 53  |RTS.x.&.EQUAL JS|
00000770  52 20 4d 53 55 50 00 85  0f 30 a2 4c 44 59 20 23  |R MSUP...0.LDY #|
00000780  24 30 38 00 9a 0f 3a a2  45 4c 4f 50 20 4c 44 41  |$08...:.ELOP LDA|
00000790  20 28 24 46 42 29 2c 59  00 aa 0f 44 a2 53 54 41  | ($FB),Y...D.STA|
000007a0  20 28 24 32 32 29 2c 59  00 b2 0f 4e a2 44 45 59  | ($22),Y...N.DEY|
000007b0  00 bf 0f 58 a2 42 4e 45  20 45 4c 4f 50 00 c7 0f  |...X.BNE ELOP...|
000007c0  62 a2 52 54 53 00 dc 0f  6c a2 41 44 44 49 54 49  |b.RTS...l.ADDITI|
000007d0  91 20 4a 53 52 20 4d 53  55 50 00 e9 0f 76 a2 4c  |. JSR MSUP...v.L|
000007e0  44 59 20 23 24 30 38 00  f1 0f 80 a2 53 45 44 00  |DY #$08.....SED.|
000007f0  f9 0f 8a a2 43 4c 43 00  0f 10 94 a2 41 44 4c 4f  |....CLC.....ADLO|
00000800  50 20 4c 44 41 20 28 24  46 42 29 2c 59 00 1f 10  |P LDA ($FB),Y...|
00000810  9e a2 41 44 43 20 28 24  46 44 29 2c 59 00 2f 10  |..ADC ($FD),Y./.|
00000820  a8 a2 53 54 41 20 28 24  32 32 29 2c 59 00 37 10  |..STA ($22),Y.7.|
00000830  b2 a2 44 45 59 00 45 10  bc a2 42 4e 45 20 41 44  |..DEY.E...BNE AD|
00000840  4c 4f 50 00 4d 10 c6 a2  43 4c 44 00 55 10 d0 a2  |LOP.M...CLD.U...|
00000850  52 54 53 00 6b 10 da a2  53 55 42 54 52 41 43 54  |RTS.k...SUBTRACT|
00000860  20 4a 53 52 20 4d 53 55  50 00 78 10 e4 a2 4c 44  | JSR MSUP.x...LD|
00000870  59 20 23 24 30 38 00 80  10 ee a2 53 45 44 00 88  |Y #$08.....SED..|
00000880  10 f8 a2 53 45 43 00 9e  10 02 a3 53 55 4c 4f 50  |...SEC.....SULOP|
00000890  20 4c 44 41 20 28 24 46  42 29 2c 59 00 ae 10 0c  | LDA ($FB),Y....|
000008a0  a3 53 42 43 20 28 24 46  44 29 2c 59 00 be 10 16  |.SBC ($FD),Y....|
000008b0  a3 53 54 41 20 28 24 32  32 29 2c 59 00 c6 10 20  |.STA ($22),Y... |
000008c0  a3 44 45 59 00 d4 10 2a  a3 42 4e 45 20 53 55 4c  |.DEY...*.BNE SUL|
000008d0  4f 50 00 dc 10 34 a3 43  4c 44 00 e4 10 3e a3 52  |OP...4.CLD...>.R|
000008e0  54 53 00 00 00                                    |TS...|
000008e5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .