� 6
� �<>&E00 � �reloc
!�6:�=&2000:*LOAD BLOCDAT 2000
(�pass=0 � 2 � 2
2P%=&A00
<
[OPT pass
F�.screen LDA#&30:CLC:ADCxscr:STA&71:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADC&71:STA&71:LDA#&FF:STAyset:.ylop LDA#&FF:STAxset:INCyset
P�.xlop INCxset:LDAypos:PHA:STA&70:PLA:ASL A:ASL A:PHA:CLC:ADC&70:STA&70:PLA:ASL A:ASL A:CLC:ADC&70:STA&70:LDYxset:LDAxdata,Y:TAY:LDA(&70),Y:ROL A:ROL A:ROL A:�#3:STA&72:INY:LDA(&70),Y:LSR A:LSR A:LSR A:LSR A:�#12
Z~CLC:ADC&72:STA&72:LDAxset:LSR A:TAY:LDAhbdat,Y:TAY:LDA(&70),Y:STA&73:LDAxset:�#1:BNEbit2:LDA&73:LSR A:ROL A:ROL A:JMPfbgot
d.bit2 LDA&73:LSR A:ROL A
n8.fbgot �#1:ASL A:ASL A:ASL A:ASL A:CLC:ADC&72:STA&72
x�LDAxset:ASL A:ASL A:ASL A:ASL A:ASL A:ASL A:STA&70:LDAxset:LSR A:LSR A:CLC:ADC#&30:STA&71:LDAyset:CLC:ADC&71:STA&71:LDAyset:ASL A:ASL A:CLC:ADC&71:STA&71
�YLDA&72:PHA:LSR A:LSR A:CLC:ADC#&20:STA&73:LDA&72:LSR A:ROR A:ROR A:�#&C0:STA&72:LDY#0
��.transtop LDA(&70),Y:�#&C0:CLC:ADC(&72),Y:�#&3F:STA(&70),Y:INY:CPY#&40:BNEtranstop:LDY#0:PLA:STA(&70),Y:LDA&72:CLC:ADC#&40:STA&72:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:LDY#0
�V.transbot LDA(&70),Y:�#&C0:CLC:ADC(&72),Y:�#&3F:STA(&70),Y:INY:CPY#&40:BNEtransbot
�.LDX#0:LDY#20:.temp INX:BNEtemp:DEY:BNEtemp
�"LDAxset:CMP#9:BEQnexty:JMPxlop
�*.nexty LDAyset:CMP#9:BEQscrend:JMPylop
�.scrend RTS
�L.xdata EQUB0:EQUB2:EQUB5:EQUB7:EQUB10:EQUB12:EQUB15:EQUB17:EQUB20:EQUB22
�+.hbdat EQUB4:EQUB9:EQUB14:EQUB19:EQUB24
�.xset EQUB0
�.yset EQUB0
�.xscr EQUB0
�.yscr EQUB0

.xpos EQUB0

.ypos EQUB0

]:�

"�2:�23,1,0;0;0;0;

,�screen:�23,1,1,0;0;0;0;

6	� � �

@:

J��reloc

T�=&5800:newpage=&E

^� pass=0 � 2 � 2

hP%=&C00

r[OPTpass

|R    LDY#0:STY&70:STY&72:LDA#newpage:SEC:SBC&18:STA&74:LDA&18:CMP#newpage:BCCad

�!.sb STA&71:LDA#newpage:STA&73

�S.m1 LDA(&70),Y:STA(&72),Y:INY:BNEm1:INC&71:INC&73:LDX&71:DEX:CPX&03:BCCm1:BCSem

�4.ad LDA&03:STA&71:CLC:ADC&74:STA&73:LDA#0:LDY&02

�X.m2 LDA(&70),Y:STA(&72),Y:DEY:CPY#&FF:BNEm2:DEC&71:DEC&73:LDA&73:CMP#newpage-1:BCSm2

�>.em LDA&13:CLC:ADC&74:STA&13:STA&01:LDA#newpage:STA&18:RTS

�]

��

�� 21

�1�"KEY 0""CALL&C00|MRUN|F|M""":�"FX 153,0,128"

��

��
�

00000000  0d 00 0a 07 eb 20 36 0d  00 14 16 e7 20 90 3c 3e  |..... 6..... .<>|
00000010  26 45 30 30 20 8c 20 f2  72 65 6c 6f 63 0d 00 1e  |&E00 . .reloc...|
00000020  21 ef 36 3a d3 3d 26 32  30 30 30 3a 2a 4c 4f 41  |!.6:.=&2000:*LOA|
00000030  44 20 42 4c 4f 43 44 41  54 20 32 30 30 30 0d 00  |D BLOCDAT 2000..|
00000040  28 13 e3 70 61 73 73 3d  30 20 b8 20 32 20 88 20  |(..pass=0 . 2 . |
00000050  32 0d 00 32 0b 50 25 3d  26 41 30 30 0d 00 3c 0d  |2..2.P%=&A00..<.|
00000060  5b 4f 50 54 20 70 61 73  73 0d 00 46 86 2e 73 63  |[OPT pass..F..sc|
00000070  72 65 65 6e 20 4c 44 41  23 26 33 30 3a 43 4c 43  |reen LDA#&30:CLC|
00000080  3a 41 44 43 78 73 63 72  3a 53 54 41 26 37 31 3a  |:ADCxscr:STA&71:|
00000090  4c 44 41 79 73 63 72 3a  41 53 4c 20 41 3a 41 53  |LDAyscr:ASL A:AS|
000000a0  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |L A:ASL A:ASL A:|
000000b0  43 4c 43 3a 41 44 43 26  37 31 3a 53 54 41 26 37  |CLC:ADC&71:STA&7|
000000c0  31 3a 4c 44 41 23 26 46  46 3a 53 54 41 79 73 65  |1:LDA#&FF:STAyse|
000000d0  74 3a 2e 79 6c 6f 70 20  4c 44 41 23 26 46 46 3a  |t:.ylop LDA#&FF:|
000000e0  53 54 41 78 73 65 74 3a  49 4e 43 79 73 65 74 0d  |STAxset:INCyset.|
000000f0  00 50 d7 2e 78 6c 6f 70  20 49 4e 43 78 73 65 74  |.P..xlop INCxset|
00000100  3a 4c 44 41 79 70 6f 73  3a 50 48 41 3a 53 54 41  |:LDAypos:PHA:STA|
00000110  26 37 30 3a 50 4c 41 3a  41 53 4c 20 41 3a 41 53  |&70:PLA:ASL A:AS|
00000120  4c 20 41 3a 50 48 41 3a  43 4c 43 3a 41 44 43 26  |L A:PHA:CLC:ADC&|
00000130  37 30 3a 53 54 41 26 37  30 3a 50 4c 41 3a 41 53  |70:STA&70:PLA:AS|
00000140  4c 20 41 3a 41 53 4c 20  41 3a 43 4c 43 3a 41 44  |L A:ASL A:CLC:AD|
00000150  43 26 37 30 3a 53 54 41  26 37 30 3a 4c 44 59 78  |C&70:STA&70:LDYx|
00000160  73 65 74 3a 4c 44 41 78  64 61 74 61 2c 59 3a 54  |set:LDAxdata,Y:T|
00000170  41 59 3a 4c 44 41 28 26  37 30 29 2c 59 3a 52 4f  |AY:LDA(&70),Y:RO|
00000180  4c 20 41 3a 52 4f 4c 20  41 3a 52 4f 4c 20 41 3a  |L A:ROL A:ROL A:|
00000190  80 23 33 3a 53 54 41 26  37 32 3a 49 4e 59 3a 4c  |.#3:STA&72:INY:L|
000001a0  44 41 28 26 37 30 29 2c  59 3a 4c 53 52 20 41 3a  |DA(&70),Y:LSR A:|
000001b0  4c 53 52 20 41 3a 4c 53  52 20 41 3a 4c 53 52 20  |LSR A:LSR A:LSR |
000001c0  41 3a 80 23 31 32 0d 00  5a 7e 43 4c 43 3a 41 44  |A:.#12..Z~CLC:AD|
000001d0  43 26 37 32 3a 53 54 41  26 37 32 3a 4c 44 41 78  |C&72:STA&72:LDAx|
000001e0  73 65 74 3a 4c 53 52 20  41 3a 54 41 59 3a 4c 44  |set:LSR A:TAY:LD|
000001f0  41 68 62 64 61 74 2c 59  3a 54 41 59 3a 4c 44 41  |Ahbdat,Y:TAY:LDA|
00000200  28 26 37 30 29 2c 59 3a  53 54 41 26 37 33 3a 4c  |(&70),Y:STA&73:L|
00000210  44 41 78 73 65 74 3a 80  23 31 3a 42 4e 45 62 69  |DAxset:.#1:BNEbi|
00000220  74 32 3a 4c 44 41 26 37  33 3a 4c 53 52 20 41 3a  |t2:LDA&73:LSR A:|
00000230  52 4f 4c 20 41 3a 52 4f  4c 20 41 3a 4a 4d 50 66  |ROL A:ROL A:JMPf|
00000240  62 67 6f 74 0d 00 64 1c  2e 62 69 74 32 20 4c 44  |bgot..d..bit2 LD|
00000250  41 26 37 33 3a 4c 53 52  20 41 3a 52 4f 4c 20 41  |A&73:LSR A:ROL A|
00000260  0d 00 6e 38 2e 66 62 67  6f 74 20 80 23 31 3a 41  |..n8.fbgot .#1:A|
00000270  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00000280  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 26 37  |:ASL A:CLC:ADC&7|
00000290  32 3a 53 54 41 26 37 32  0d 00 78 9d 4c 44 41 78  |2:STA&72..x.LDAx|
000002a0  73 65 74 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |set:ASL A:ASL A:|
000002b0  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
000002c0  41 3a 41 53 4c 20 41 3a  53 54 41 26 37 30 3a 4c  |A:ASL A:STA&70:L|
000002d0  44 41 78 73 65 74 3a 4c  53 52 20 41 3a 4c 53 52  |DAxset:LSR A:LSR|
000002e0  20 41 3a 43 4c 43 3a 41  44 43 23 26 33 30 3a 53  | A:CLC:ADC#&30:S|
000002f0  54 41 26 37 31 3a 4c 44  41 79 73 65 74 3a 43 4c  |TA&71:LDAyset:CL|
00000300  43 3a 41 44 43 26 37 31  3a 53 54 41 26 37 31 3a  |C:ADC&71:STA&71:|
00000310  4c 44 41 79 73 65 74 3a  41 53 4c 20 41 3a 41 53  |LDAyset:ASL A:AS|
00000320  4c 20 41 3a 43 4c 43 3a  41 44 43 26 37 31 3a 53  |L A:CLC:ADC&71:S|
00000330  54 41 26 37 31 0d 00 82  59 4c 44 41 26 37 32 3a  |TA&71...YLDA&72:|
00000340  50 48 41 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |PHA:LSR A:LSR A:|
00000350  43 4c 43 3a 41 44 43 23  26 32 30 3a 53 54 41 26  |CLC:ADC#&20:STA&|
00000360  37 33 3a 4c 44 41 26 37  32 3a 4c 53 52 20 41 3a  |73:LDA&72:LSR A:|
00000370  52 4f 52 20 41 3a 52 4f  52 20 41 3a 80 23 26 43  |ROR A:ROR A:.#&C|
00000380  30 3a 53 54 41 26 37 32  3a 4c 44 59 23 30 0d 00  |0:STA&72:LDY#0..|
00000390  8c b9 2e 74 72 61 6e 73  74 6f 70 20 4c 44 41 28  |...transtop LDA(|
000003a0  26 37 30 29 2c 59 3a 80  23 26 43 30 3a 43 4c 43  |&70),Y:.#&C0:CLC|
000003b0  3a 41 44 43 28 26 37 32  29 2c 59 3a 80 23 26 33  |:ADC(&72),Y:.#&3|
000003c0  46 3a 53 54 41 28 26 37  30 29 2c 59 3a 49 4e 59  |F:STA(&70),Y:INY|
000003d0  3a 43 50 59 23 26 34 30  3a 42 4e 45 74 72 61 6e  |:CPY#&40:BNEtran|
000003e0  73 74 6f 70 3a 4c 44 59  23 30 3a 50 4c 41 3a 53  |stop:LDY#0:PLA:S|
000003f0  54 41 28 26 37 30 29 2c  59 3a 4c 44 41 26 37 32  |TA(&70),Y:LDA&72|
00000400  3a 43 4c 43 3a 41 44 43  23 26 34 30 3a 53 54 41  |:CLC:ADC#&40:STA|
00000410  26 37 32 3a 4c 44 41 26  37 30 3a 43 4c 43 3a 41  |&72:LDA&70:CLC:A|
00000420  44 43 23 26 38 30 3a 53  54 41 26 37 30 3a 4c 44  |DC#&80:STA&70:LD|
00000430  41 26 37 31 3a 41 44 43  23 32 3a 53 54 41 26 37  |A&71:ADC#2:STA&7|
00000440  31 3a 4c 44 59 23 30 0d  00 96 56 2e 74 72 61 6e  |1:LDY#0...V.tran|
00000450  73 62 6f 74 20 4c 44 41  28 26 37 30 29 2c 59 3a  |sbot LDA(&70),Y:|
00000460  80 23 26 43 30 3a 43 4c  43 3a 41 44 43 28 26 37  |.#&C0:CLC:ADC(&7|
00000470  32 29 2c 59 3a 80 23 26  33 46 3a 53 54 41 28 26  |2),Y:.#&3F:STA(&|
00000480  37 30 29 2c 59 3a 49 4e  59 3a 43 50 59 23 26 34  |70),Y:INY:CPY#&4|
00000490  30 3a 42 4e 45 74 72 61  6e 73 62 6f 74 0d 00 a0  |0:BNEtransbot...|
000004a0  2e 4c 44 58 23 30 3a 4c  44 59 23 32 30 3a 2e 74  |.LDX#0:LDY#20:.t|
000004b0  65 6d 70 20 49 4e 58 3a  42 4e 45 74 65 6d 70 3a  |emp INX:BNEtemp:|
000004c0  44 45 59 3a 42 4e 45 74  65 6d 70 0d 00 aa 22 4c  |DEY:BNEtemp..."L|
000004d0  44 41 78 73 65 74 3a 43  4d 50 23 39 3a 42 45 51  |DAxset:CMP#9:BEQ|
000004e0  6e 65 78 74 79 3a 4a 4d  50 78 6c 6f 70 0d 00 b4  |nexty:JMPxlop...|
000004f0  2a 2e 6e 65 78 74 79 20  4c 44 41 79 73 65 74 3a  |*.nexty LDAyset:|
00000500  43 4d 50 23 39 3a 42 45  51 73 63 72 65 6e 64 3a  |CMP#9:BEQscrend:|
00000510  4a 4d 50 79 6c 6f 70 0d  00 be 0f 2e 73 63 72 65  |JMPylop.....scre|
00000520  6e 64 20 52 54 53 0d 00  c8 4c 2e 78 64 61 74 61  |nd RTS...L.xdata|
00000530  20 45 51 55 42 30 3a 45  51 55 42 32 3a 45 51 55  | EQUB0:EQUB2:EQU|
00000540  42 35 3a 45 51 55 42 37  3a 45 51 55 42 31 30 3a  |B5:EQUB7:EQUB10:|
00000550  45 51 55 42 31 32 3a 45  51 55 42 31 35 3a 45 51  |EQUB12:EQUB15:EQ|
00000560  55 42 31 37 3a 45 51 55  42 32 30 3a 45 51 55 42  |UB17:EQUB20:EQUB|
00000570  32 32 0d 00 d2 2b 2e 68  62 64 61 74 20 45 51 55  |22...+.hbdat EQU|
00000580  42 34 3a 45 51 55 42 39  3a 45 51 55 42 31 34 3a  |B4:EQUB9:EQUB14:|
00000590  45 51 55 42 31 39 3a 45  51 55 42 32 34 0d 00 dc  |EQUB19:EQUB24...|
000005a0  0f 2e 78 73 65 74 20 45  51 55 42 30 0d 00 e6 0f  |..xset EQUB0....|
000005b0  2e 79 73 65 74 20 45 51  55 42 30 0d 00 f0 0f 2e  |.yset EQUB0.....|
000005c0  78 73 63 72 20 45 51 55  42 30 0d 00 fa 0f 2e 79  |xscr EQUB0.....y|
000005d0  73 63 72 20 45 51 55 42  30 0d 01 04 0f 2e 78 70  |scr EQUB0.....xp|
000005e0  6f 73 20 45 51 55 42 30  0d 01 0e 0f 2e 79 70 6f  |os EQUB0.....ypo|
000005f0  73 20 45 51 55 42 30 0d  01 18 07 5d 3a ed 0d 01  |s EQUB0....]:...|
00000600  22 15 eb 32 3a ef 32 33  2c 31 2c 30 3b 30 3b 30  |"..2:.23,1,0;0;0|
00000610  3b 30 3b 0d 01 2c 1c d6  73 63 72 65 65 6e 3a ef  |;0;..,..screen:.|
00000620  32 33 2c 31 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |23,1,1,0;0;0;0;.|
00000630  01 36 09 f5 20 fd 20 a3  0d 01 40 05 3a 0d 01 4a  |.6.. . ...@.:..J|
00000640  0b dd f2 72 65 6c 6f 63  0d 01 54 16 d3 3d 26 35  |...reloc..T..=&5|
00000650  38 30 30 3a 6e 65 77 70  61 67 65 3d 26 45 0d 01  |800:newpage=&E..|
00000660  5e 14 e3 20 70 61 73 73  3d 30 20 b8 20 32 20 88  |^.. pass=0 . 2 .|
00000670  20 32 0d 01 68 0b 50 25  3d 26 43 30 30 0d 01 72  | 2..h.P%=&C00..r|
00000680  0c 5b 4f 50 54 70 61 73  73 0d 01 7c 52 20 20 20  |.[OPTpass..|R   |
00000690  20 4c 44 59 23 30 3a 53  54 59 26 37 30 3a 53 54  | LDY#0:STY&70:ST|
000006a0  59 26 37 32 3a 4c 44 41  23 6e 65 77 70 61 67 65  |Y&72:LDA#newpage|
000006b0  3a 53 45 43 3a 53 42 43  26 31 38 3a 53 54 41 26  |:SEC:SBC&18:STA&|
000006c0  37 34 3a 4c 44 41 26 31  38 3a 43 4d 50 23 6e 65  |74:LDA&18:CMP#ne|
000006d0  77 70 61 67 65 3a 42 43  43 61 64 0d 01 86 21 2e  |wpage:BCCad...!.|
000006e0  73 62 20 53 54 41 26 37  31 3a 4c 44 41 23 6e 65  |sb STA&71:LDA#ne|
000006f0  77 70 61 67 65 3a 53 54  41 26 37 33 0d 01 90 53  |wpage:STA&73...S|
00000700  2e 6d 31 20 4c 44 41 28  26 37 30 29 2c 59 3a 53  |.m1 LDA(&70),Y:S|
00000710  54 41 28 26 37 32 29 2c  59 3a 49 4e 59 3a 42 4e  |TA(&72),Y:INY:BN|
00000720  45 6d 31 3a 49 4e 43 26  37 31 3a 49 4e 43 26 37  |Em1:INC&71:INC&7|
00000730  33 3a 4c 44 58 26 37 31  3a 44 45 58 3a 43 50 58  |3:LDX&71:DEX:CPX|
00000740  26 30 33 3a 42 43 43 6d  31 3a 42 43 53 65 6d 0d  |&03:BCCm1:BCSem.|
00000750  01 9a 34 2e 61 64 20 4c  44 41 26 30 33 3a 53 54  |..4.ad LDA&03:ST|
00000760  41 26 37 31 3a 43 4c 43  3a 41 44 43 26 37 34 3a  |A&71:CLC:ADC&74:|
00000770  53 54 41 26 37 33 3a 4c  44 41 23 30 3a 4c 44 59  |STA&73:LDA#0:LDY|
00000780  26 30 32 0d 01 a4 58 2e  6d 32 20 4c 44 41 28 26  |&02...X.m2 LDA(&|
00000790  37 30 29 2c 59 3a 53 54  41 28 26 37 32 29 2c 59  |70),Y:STA(&72),Y|
000007a0  3a 44 45 59 3a 43 50 59  23 26 46 46 3a 42 4e 45  |:DEY:CPY#&FF:BNE|
000007b0  6d 32 3a 44 45 43 26 37  31 3a 44 45 43 26 37 33  |m2:DEC&71:DEC&73|
000007c0  3a 4c 44 41 26 37 33 3a  43 4d 50 23 6e 65 77 70  |:LDA&73:CMP#newp|
000007d0  61 67 65 2d 31 3a 42 43  53 6d 32 0d 01 ae 3e 2e  |age-1:BCSm2...>.|
000007e0  65 6d 20 4c 44 41 26 31  33 3a 43 4c 43 3a 41 44  |em LDA&13:CLC:AD|
000007f0  43 26 37 34 3a 53 54 41  26 31 33 3a 53 54 41 26  |C&74:STA&13:STA&|
00000800  30 31 3a 4c 44 41 23 6e  65 77 70 61 67 65 3a 53  |01:LDA#newpage:S|
00000810  54 41 26 31 38 3a 52 54  53 0d 01 b8 05 5d 0d 01  |TA&18:RTS....]..|
00000820  c2 05 ed 0d 01 cc 08 ef  20 32 31 0d 01 d6 31 ff  |........ 21...1.|
00000830  22 4b 45 59 20 30 22 22  43 41 4c 4c 26 43 30 30  |"KEY 0""CALL&C00|
00000840  7c 4d 52 55 4e 7c 46 7c  4d 22 22 22 3a ff 22 46  ||MRUN|F|M""":."F|
00000850  58 20 31 35 33 2c 30 2c  31 32 38 22 0d 01 e0 05  |X 153,0,128"....|
00000860  e0 0d 01 ea 05 e1 0d ff                           |........|
00000868