� BRK Handler
� Stephen Ramplin
� (c) The Micro User
(� �7:�:�" at line ";�:�
2�135
<
*FX200
F*KEY10 OLD|MRUN|M
P!brkv=&202:oldbrk=!brkv �&FFFF
ZCosbyte=&FFF4:osasci=&FFE3:osnewl=&FFE7:osrdch=&FFE0:pointer=&A8
d2brkhandler=&913:�brkhandler=oldbrk �!-4 �*FX18
n
�assemble
x3�"Press Return to save the machine code":���=13
�"$&700="SAVE BRKcode 900 "+�~P%
�X%=0:Y%=7:�&FFF7
��''"DEMONSTRATION:"
�'�init:�set:X%=2:Y%=&FF:A%=1:�test:�
�-��assemble:�pass%=0�2�2:P%=&900:[OPTpass%
�1.init:LDX#brkhandler �256:LDY#brkhandler �256
�!SEI:STXbrkv:STYbrkv+1:CLI:RTS
�.not:PLA:TAY:PLA:JMPoldbrk
�=.brkhandler:PHA:STA wkspc:TYA:PHA:LDY#0:LDA(&FD),Y:CMP#46
�@BCCnot:CMP#79:BCSnot:PLA:PHA:TAY:TXA:PHA:JSR osnewl:LDA#�"A"
�:JSR printreg:STX wkspc:LDA#�"X":JSR printreg:STY wkspc
�#LDA#�"Y":JSR printreg:JSRosnewl
�<JSR print:OPT �s("Status (NV-BDIZC):"):BRK:TSX:LDA&104,X

>PHA:JSR binary:JSR space:LDA#�"(":JSR osasci:JSR ampersand

PLA:JSR hexprint:LDA#�")"

JJSRosasci:LDY#0:LDA(&FD),Y:SEC:SBC#46:BEQ nodump:CMP#33:BCCfine:LDA#32

"9.fine:STA number:JSR osnewl:LDY#0:JSRosnewl:.dumploop

,AJSRampersand:LDA &8C1,Y:STA pointer+1:JSR hexprint:LDA &8C0,Y

6>STA pointer:JSR hexprint:LDA#�"=":JSR osasci:JSR ampersand

@@STYtemp:LDY#0:LDA(pointer),Y:JSR hexprint:LDY temp:JSR space

J@INY:INY:DEC number:BNE dumploop:.nodump:JSR osnewl:JSR print

T@OPT �s("(Q)uit or (R)eturn?"):BRK:JSR osnewl:PLA:TAX:PLA:TAY

^@.getchr:JSR osrdch:BCS quit:�#&DF:CMP#�"Q":BEQ quit:CMP#�"R"

h4BNE getchr:PLA:RTI:.quit:LDA#quiterr �256:STA&FD

rLDA#quiterr �256:STA&FE:PLA

|3JMPoldbrk:.quiterr:OPT �b(0):OPT �s("Quit"):BRK

�3.hexprint:PHA:LSRA:LSRA:LSRA:LSRA:JSRnibble:PLA

�8.nibble:�#&0F:SED:CLC:ADC#&90:ADC#&40:CLD:JMP osasci

�2.print:PLA:STA pointer:PLA:STA pointer+1:LDY#0

�0.ploop INC pointer:BNE nocarry:INC pointer+1

�0.nocarry:LDA (pointer),Y:BEQ done:JSR osasci

�9JMP ploop:.done:LDA pointer+1:PHA:LDA pointer:PHA:RTS

�:.printreg:JSR osasci:LDA#�":":JSR osasci:JSR ampersand

�4LDA wkspc:JSR hexprint:JSR space:.space:LDA#�" "

�5BNE output:.ampersand:LDA#�"&":.output:JMP osasci

�.binary:STA wkspc:LDX#8

�<.bit:ASL wkspc:LDA#�"0":ADC#0:JSR osasci:DEX:BNE bit:RTS

�W.wkspc OPT �b(0):.number OPT �b(0):.left OPT �b(0):.right OPT �b(0):.temp OPT �b(0)

�6.test:DEX:STXtestspc:BRK:OPT �b(46+32):BPLtest:RTS
.testspc OPT �b(0):]
�pass%:�
'ݤb(byte%):?P%=byte%:P%=P%+1:=pass%
&2ݤs(string$):$P%=string$:P%=P%+�string$:=pass%
0S��set:�N%=&900�&91F:?(&8C0+(N%-&900)*2)=N% �256:?(&8C1+(N%-&900)*2)=N% �256:�:�
�

00000000  0d 00 0a 11 f4 20 42 52  4b 20 48 61 6e 64 6c 65  |..... BRK Handle|
00000010  72 0d 00 14 15 f4 20 53  74 65 70 68 65 6e 20 52  |r..... Stephen R|
00000020  61 6d 70 6c 69 6e 0d 00  1e 18 f4 20 28 63 29 20  |amplin..... (c) |
00000030  54 68 65 20 4d 69 63 72  6f 20 55 73 65 72 0d 00  |The Micro User..|
00000040  28 1c ee 85 20 eb 37 3a  f6 3a f1 22 20 61 74 20  |(... .7:.:." at |
00000050  6c 69 6e 65 20 22 3b 9e  3a e0 0d 00 32 08 eb 31  |line ";.:...2..1|
00000060  33 35 0d 00 3c 0a 2a 46  58 32 30 30 0d 00 46 15  |35..<.*FX200..F.|
00000070  2a 4b 45 59 31 30 20 4f  4c 44 7c 4d 52 55 4e 7c  |*KEY10 OLD|MRUN||
00000080  4d 0d 00 50 21 62 72 6b  76 3d 26 32 30 32 3a 6f  |M..P!brkv=&202:o|
00000090  6c 64 62 72 6b 3d 21 62  72 6b 76 20 80 26 46 46  |ldbrk=!brkv .&FF|
000000a0  46 46 0d 00 5a 43 6f 73  62 79 74 65 3d 26 46 46  |FF..ZCosbyte=&FF|
000000b0  46 34 3a 6f 73 61 73 63  69 3d 26 46 46 45 33 3a  |F4:osasci=&FFE3:|
000000c0  6f 73 6e 65 77 6c 3d 26  46 46 45 37 3a 6f 73 72  |osnewl=&FFE7:osr|
000000d0  64 63 68 3d 26 46 46 45  30 3a 70 6f 69 6e 74 65  |dch=&FFE0:pointe|
000000e0  72 3d 26 41 38 0d 00 64  32 62 72 6b 68 61 6e 64  |r=&A8..d2brkhand|
000000f0  6c 65 72 3d 26 39 31 33  3a e7 62 72 6b 68 61 6e  |ler=&913:.brkhan|
00000100  64 6c 65 72 3d 6f 6c 64  62 72 6b 20 d6 21 2d 34  |dler=oldbrk .!-4|
00000110  20 8b 2a 46 58 31 38 0d  00 6e 0d f2 61 73 73 65  | .*FX18..n..asse|
00000120  6d 62 6c 65 0d 00 78 33  f1 22 50 72 65 73 73 20  |mble..x3."Press |
00000130  52 65 74 75 72 6e 20 74  6f 20 73 61 76 65 20 74  |Return to save t|
00000140  68 65 20 6d 61 63 68 69  6e 65 20 63 6f 64 65 22  |he machine code"|
00000150  3a f5 fd a5 3d 31 33 0d  00 82 22 24 26 37 30 30  |:...=13..."$&700|
00000160  3d 22 53 41 56 45 20 42  52 4b 63 6f 64 65 20 39  |="SAVE BRKcode 9|
00000170  30 30 20 22 2b c3 7e 50  25 0d 00 8c 14 58 25 3d  |00 "+.~P%....X%=|
00000180  30 3a 59 25 3d 37 3a d6  26 46 46 46 37 0d 00 96  |0:Y%=7:.&FFF7...|
00000190  17 f1 27 27 22 44 45 4d  4f 4e 53 54 52 41 54 49  |..''"DEMONSTRATI|
000001a0  4f 4e 3a 22 0d 00 a0 27  d6 69 6e 69 74 3a f2 73  |ON:"...'.init:.s|
000001b0  65 74 3a 58 25 3d 32 3a  59 25 3d 26 46 46 3a 41  |et:X%=2:Y%=&FF:A|
000001c0  25 3d 31 3a d6 74 65 73  74 3a e0 0d 00 aa 2d dd  |%=1:.test:....-.|
000001d0  f2 61 73 73 65 6d 62 6c  65 3a e3 70 61 73 73 25  |.assemble:.pass%|
000001e0  3d 30 b8 32 88 32 3a 50  25 3d 26 39 30 30 3a 5b  |=0.2.2:P%=&900:[|
000001f0  4f 50 54 70 61 73 73 25  0d 00 b4 31 2e 69 6e 69  |OPTpass%...1.ini|
00000200  74 3a 4c 44 58 23 62 72  6b 68 61 6e 64 6c 65 72  |t:LDX#brkhandler|
00000210  20 83 32 35 36 3a 4c 44  59 23 62 72 6b 68 61 6e  | .256:LDY#brkhan|
00000220  64 6c 65 72 20 81 32 35  36 0d 00 be 21 53 45 49  |dler .256...!SEI|
00000230  3a 53 54 58 62 72 6b 76  3a 53 54 59 62 72 6b 76  |:STXbrkv:STYbrkv|
00000240  2b 31 3a 43 4c 49 3a 52  54 53 0d 00 c8 1e 2e 6e  |+1:CLI:RTS.....n|
00000250  6f 74 3a 50 4c 41 3a 54  41 59 3a 50 4c 41 3a 4a  |ot:PLA:TAY:PLA:J|
00000260  4d 50 6f 6c 64 62 72 6b  0d 00 d2 3d 2e 62 72 6b  |MPoldbrk...=.brk|
00000270  68 61 6e 64 6c 65 72 3a  50 48 41 3a 53 54 41 20  |handler:PHA:STA |
00000280  77 6b 73 70 63 3a 54 59  41 3a 50 48 41 3a 4c 44  |wkspc:TYA:PHA:LD|
00000290  59 23 30 3a 4c 44 41 28  26 46 44 29 2c 59 3a 43  |Y#0:LDA(&FD),Y:C|
000002a0  4d 50 23 34 36 0d 00 dc  40 42 43 43 6e 6f 74 3a  |MP#46...@BCCnot:|
000002b0  43 4d 50 23 37 39 3a 42  43 53 6e 6f 74 3a 50 4c  |CMP#79:BCSnot:PL|
000002c0  41 3a 50 48 41 3a 54 41  59 3a 54 58 41 3a 50 48  |A:PHA:TAY:TXA:PH|
000002d0  41 3a 4a 53 52 20 6f 73  6e 65 77 6c 3a 4c 44 41  |A:JSR osnewl:LDA|
000002e0  23 97 22 41 22 0d 00 e6  3a 4a 53 52 20 70 72 69  |#."A"...:JSR pri|
000002f0  6e 74 72 65 67 3a 53 54  58 20 77 6b 73 70 63 3a  |ntreg:STX wkspc:|
00000300  4c 44 41 23 97 22 58 22  3a 4a 53 52 20 70 72 69  |LDA#."X":JSR pri|
00000310  6e 74 72 65 67 3a 53 54  59 20 77 6b 73 70 63 0d  |ntreg:STY wkspc.|
00000320  00 f0 23 4c 44 41 23 97  22 59 22 3a 4a 53 52 20  |..#LDA#."Y":JSR |
00000330  70 72 69 6e 74 72 65 67  3a 4a 53 52 6f 73 6e 65  |printreg:JSRosne|
00000340  77 6c 0d 00 fa 3c 4a 53  52 20 70 72 69 6e 74 3a  |wl...<JSR print:|
00000350  4f 50 54 20 a4 73 28 22  53 74 61 74 75 73 20 28  |OPT .s("Status (|
00000360  4e 56 2d 42 44 49 5a 43  29 3a 22 29 3a 42 52 4b  |NV-BDIZC):"):BRK|
00000370  3a 54 53 58 3a 4c 44 41  26 31 30 34 2c 58 0d 01  |:TSX:LDA&104,X..|
00000380  04 3e 50 48 41 3a 4a 53  52 20 62 69 6e 61 72 79  |.>PHA:JSR binary|
00000390  3a 4a 53 52 20 73 70 61  63 65 3a 4c 44 41 23 97  |:JSR space:LDA#.|
000003a0  22 28 22 3a 4a 53 52 20  6f 73 61 73 63 69 3a 4a  |"(":JSR osasci:J|
000003b0  53 52 20 61 6d 70 65 72  73 61 6e 64 0d 01 0e 1d  |SR ampersand....|
000003c0  50 4c 41 3a 4a 53 52 20  68 65 78 70 72 69 6e 74  |PLA:JSR hexprint|
000003d0  3a 4c 44 41 23 97 22 29  22 0d 01 18 4a 4a 53 52  |:LDA#.")"...JJSR|
000003e0  6f 73 61 73 63 69 3a 4c  44 59 23 30 3a 4c 44 41  |osasci:LDY#0:LDA|
000003f0  28 26 46 44 29 2c 59 3a  53 45 43 3a 53 42 43 23  |(&FD),Y:SEC:SBC#|
00000400  34 36 3a 42 45 51 20 6e  6f 64 75 6d 70 3a 43 4d  |46:BEQ nodump:CM|
00000410  50 23 33 33 3a 42 43 43  66 69 6e 65 3a 4c 44 41  |P#33:BCCfine:LDA|
00000420  23 33 32 0d 01 22 39 2e  66 69 6e 65 3a 53 54 41  |#32.."9.fine:STA|
00000430  20 6e 75 6d 62 65 72 3a  4a 53 52 20 6f 73 6e 65  | number:JSR osne|
00000440  77 6c 3a 4c 44 59 23 30  3a 4a 53 52 6f 73 6e 65  |wl:LDY#0:JSRosne|
00000450  77 6c 3a 2e 64 75 6d 70  6c 6f 6f 70 0d 01 2c 41  |wl:.dumploop..,A|
00000460  4a 53 52 61 6d 70 65 72  73 61 6e 64 3a 4c 44 41  |JSRampersand:LDA|
00000470  20 26 38 43 31 2c 59 3a  53 54 41 20 70 6f 69 6e  | &8C1,Y:STA poin|
00000480  74 65 72 2b 31 3a 4a 53  52 20 68 65 78 70 72 69  |ter+1:JSR hexpri|
00000490  6e 74 3a 4c 44 41 20 26  38 43 30 2c 59 0d 01 36  |nt:LDA &8C0,Y..6|
000004a0  3e 53 54 41 20 70 6f 69  6e 74 65 72 3a 4a 53 52  |>STA pointer:JSR|
000004b0  20 68 65 78 70 72 69 6e  74 3a 4c 44 41 23 97 22  | hexprint:LDA#."|
000004c0  3d 22 3a 4a 53 52 20 6f  73 61 73 63 69 3a 4a 53  |=":JSR osasci:JS|
000004d0  52 20 61 6d 70 65 72 73  61 6e 64 0d 01 40 40 53  |R ampersand..@@S|
000004e0  54 59 74 65 6d 70 3a 4c  44 59 23 30 3a 4c 44 41  |TYtemp:LDY#0:LDA|
000004f0  28 70 6f 69 6e 74 65 72  29 2c 59 3a 4a 53 52 20  |(pointer),Y:JSR |
00000500  68 65 78 70 72 69 6e 74  3a 4c 44 59 20 74 65 6d  |hexprint:LDY tem|
00000510  70 3a 4a 53 52 20 73 70  61 63 65 0d 01 4a 40 49  |p:JSR space..J@I|
00000520  4e 59 3a 49 4e 59 3a 44  45 43 20 6e 75 6d 62 65  |NY:INY:DEC numbe|
00000530  72 3a 42 4e 45 20 64 75  6d 70 6c 6f 6f 70 3a 2e  |r:BNE dumploop:.|
00000540  6e 6f 64 75 6d 70 3a 4a  53 52 20 6f 73 6e 65 77  |nodump:JSR osnew|
00000550  6c 3a 4a 53 52 20 70 72  69 6e 74 0d 01 54 40 4f  |l:JSR print..T@O|
00000560  50 54 20 a4 73 28 22 28  51 29 75 69 74 20 6f 72  |PT .s("(Q)uit or|
00000570  20 28 52 29 65 74 75 72  6e 3f 22 29 3a 42 52 4b  | (R)eturn?"):BRK|
00000580  3a 4a 53 52 20 6f 73 6e  65 77 6c 3a 50 4c 41 3a  |:JSR osnewl:PLA:|
00000590  54 41 58 3a 50 4c 41 3a  54 41 59 0d 01 5e 40 2e  |TAX:PLA:TAY..^@.|
000005a0  67 65 74 63 68 72 3a 4a  53 52 20 6f 73 72 64 63  |getchr:JSR osrdc|
000005b0  68 3a 42 43 53 20 71 75  69 74 3a 80 23 26 44 46  |h:BCS quit:.#&DF|
000005c0  3a 43 4d 50 23 97 22 51  22 3a 42 45 51 20 71 75  |:CMP#."Q":BEQ qu|
000005d0  69 74 3a 43 4d 50 23 97  22 52 22 0d 01 68 34 42  |it:CMP#."R"..h4B|
000005e0  4e 45 20 67 65 74 63 68  72 3a 50 4c 41 3a 52 54  |NE getchr:PLA:RT|
000005f0  49 3a 2e 71 75 69 74 3a  4c 44 41 23 71 75 69 74  |I:.quit:LDA#quit|
00000600  65 72 72 20 83 32 35 36  3a 53 54 41 26 46 44 0d  |err .256:STA&FD.|
00000610  01 72 1f 4c 44 41 23 71  75 69 74 65 72 72 20 81  |.r.LDA#quiterr .|
00000620  32 35 36 3a 53 54 41 26  46 45 3a 50 4c 41 0d 01  |256:STA&FE:PLA..|
00000630  7c 33 4a 4d 50 6f 6c 64  62 72 6b 3a 2e 71 75 69  ||3JMPoldbrk:.qui|
00000640  74 65 72 72 3a 4f 50 54  20 a4 62 28 30 29 3a 4f  |terr:OPT .b(0):O|
00000650  50 54 20 a4 73 28 22 51  75 69 74 22 29 3a 42 52  |PT .s("Quit"):BR|
00000660  4b 0d 01 86 33 2e 68 65  78 70 72 69 6e 74 3a 50  |K...3.hexprint:P|
00000670  48 41 3a 4c 53 52 41 3a  4c 53 52 41 3a 4c 53 52  |HA:LSRA:LSRA:LSR|
00000680  41 3a 4c 53 52 41 3a 4a  53 52 6e 69 62 62 6c 65  |A:LSRA:JSRnibble|
00000690  3a 50 4c 41 0d 01 90 38  2e 6e 69 62 62 6c 65 3a  |:PLA...8.nibble:|
000006a0  80 23 26 30 46 3a 53 45  44 3a 43 4c 43 3a 41 44  |.#&0F:SED:CLC:AD|
000006b0  43 23 26 39 30 3a 41 44  43 23 26 34 30 3a 43 4c  |C#&90:ADC#&40:CL|
000006c0  44 3a 4a 4d 50 20 6f 73  61 73 63 69 0d 01 9a 32  |D:JMP osasci...2|
000006d0  2e 70 72 69 6e 74 3a 50  4c 41 3a 53 54 41 20 70  |.print:PLA:STA p|
000006e0  6f 69 6e 74 65 72 3a 50  4c 41 3a 53 54 41 20 70  |ointer:PLA:STA p|
000006f0  6f 69 6e 74 65 72 2b 31  3a 4c 44 59 23 30 0d 01  |ointer+1:LDY#0..|
00000700  a4 30 2e 70 6c 6f 6f 70  20 49 4e 43 20 70 6f 69  |.0.ploop INC poi|
00000710  6e 74 65 72 3a 42 4e 45  20 6e 6f 63 61 72 72 79  |nter:BNE nocarry|
00000720  3a 49 4e 43 20 70 6f 69  6e 74 65 72 2b 31 0d 01  |:INC pointer+1..|
00000730  ae 30 2e 6e 6f 63 61 72  72 79 3a 4c 44 41 20 28  |.0.nocarry:LDA (|
00000740  70 6f 69 6e 74 65 72 29  2c 59 3a 42 45 51 20 64  |pointer),Y:BEQ d|
00000750  6f 6e 65 3a 4a 53 52 20  6f 73 61 73 63 69 0d 01  |one:JSR osasci..|
00000760  b8 39 4a 4d 50 20 70 6c  6f 6f 70 3a 2e 64 6f 6e  |.9JMP ploop:.don|
00000770  65 3a 4c 44 41 20 70 6f  69 6e 74 65 72 2b 31 3a  |e:LDA pointer+1:|
00000780  50 48 41 3a 4c 44 41 20  70 6f 69 6e 74 65 72 3a  |PHA:LDA pointer:|
00000790  50 48 41 3a 52 54 53 0d  01 c2 3a 2e 70 72 69 6e  |PHA:RTS...:.prin|
000007a0  74 72 65 67 3a 4a 53 52  20 6f 73 61 73 63 69 3a  |treg:JSR osasci:|
000007b0  4c 44 41 23 97 22 3a 22  3a 4a 53 52 20 6f 73 61  |LDA#.":":JSR osa|
000007c0  73 63 69 3a 4a 53 52 20  61 6d 70 65 72 73 61 6e  |sci:JSR ampersan|
000007d0  64 0d 01 cc 34 4c 44 41  20 77 6b 73 70 63 3a 4a  |d...4LDA wkspc:J|
000007e0  53 52 20 68 65 78 70 72  69 6e 74 3a 4a 53 52 20  |SR hexprint:JSR |
000007f0  73 70 61 63 65 3a 2e 73  70 61 63 65 3a 4c 44 41  |space:.space:LDA|
00000800  23 97 22 20 22 0d 01 d6  35 42 4e 45 20 6f 75 74  |#." "...5BNE out|
00000810  70 75 74 3a 2e 61 6d 70  65 72 73 61 6e 64 3a 4c  |put:.ampersand:L|
00000820  44 41 23 97 22 26 22 3a  2e 6f 75 74 70 75 74 3a  |DA#."&":.output:|
00000830  4a 4d 50 20 6f 73 61 73  63 69 0d 01 e0 1b 2e 62  |JMP osasci.....b|
00000840  69 6e 61 72 79 3a 53 54  41 20 77 6b 73 70 63 3a  |inary:STA wkspc:|
00000850  4c 44 58 23 38 0d 01 ea  3c 2e 62 69 74 3a 41 53  |LDX#8...<.bit:AS|
00000860  4c 20 77 6b 73 70 63 3a  4c 44 41 23 97 22 30 22  |L wkspc:LDA#."0"|
00000870  3a 41 44 43 23 30 3a 4a  53 52 20 6f 73 61 73 63  |:ADC#0:JSR osasc|
00000880  69 3a 44 45 58 3a 42 4e  45 20 62 69 74 3a 52 54  |i:DEX:BNE bit:RT|
00000890  53 0d 01 f4 57 2e 77 6b  73 70 63 20 4f 50 54 20  |S...W.wkspc OPT |
000008a0  a4 62 28 30 29 3a 2e 6e  75 6d 62 65 72 20 4f 50  |.b(0):.number OP|
000008b0  54 20 a4 62 28 30 29 3a  2e 6c 65 66 74 20 4f 50  |T .b(0):.left OP|
000008c0  54 20 a4 62 28 30 29 3a  2e 72 69 67 68 74 20 4f  |T .b(0):.right O|
000008d0  50 54 20 a4 62 28 30 29  3a 2e 74 65 6d 70 20 4f  |PT .b(0):.temp O|
000008e0  50 54 20 a4 62 28 30 29  0d 01 fe 36 2e 74 65 73  |PT .b(0)...6.tes|
000008f0  74 3a 44 45 58 3a 53 54  58 74 65 73 74 73 70 63  |t:DEX:STXtestspc|
00000900  3a 42 52 4b 3a 4f 50 54  20 a4 62 28 34 36 2b 33  |:BRK:OPT .b(46+3|
00000910  32 29 3a 42 50 4c 74 65  73 74 3a 52 54 53 0d 02  |2):BPLtest:RTS..|
00000920  08 18 2e 74 65 73 74 73  70 63 20 4f 50 54 20 a4  |...testspc OPT .|
00000930  62 28 30 29 3a 5d 0d 02  12 0c ed 70 61 73 73 25  |b(0):].....pass%|
00000940  3a e1 0d 02 1c 27 dd a4  62 28 62 79 74 65 25 29  |:....'..b(byte%)|
00000950  3a 3f 50 25 3d 62 79 74  65 25 3a 50 25 3d 50 25  |:?P%=byte%:P%=P%|
00000960  2b 31 3a 3d 70 61 73 73  25 0d 02 26 32 dd a4 73  |+1:=pass%..&2..s|
00000970  28 73 74 72 69 6e 67 24  29 3a 24 50 25 3d 73 74  |(string$):$P%=st|
00000980  72 69 6e 67 24 3a 50 25  3d 50 25 2b a9 73 74 72  |ring$:P%=P%+.str|
00000990  69 6e 67 24 3a 3d 70 61  73 73 25 0d 02 30 53 dd  |ing$:=pass%..0S.|
000009a0  f2 73 65 74 3a e3 4e 25  3d 26 39 30 30 b8 26 39  |.set:.N%=&900.&9|
000009b0  31 46 3a 3f 28 26 38 43  30 2b 28 4e 25 2d 26 39  |1F:?(&8C0+(N%-&9|
000009c0  30 30 29 2a 32 29 3d 4e  25 20 83 32 35 36 3a 3f  |00)*2)=N% .256:?|
000009d0  28 26 38 43 31 2b 28 4e  25 2d 26 39 30 30 29 2a  |(&8C1+(N%-&900)*|
000009e0  32 29 3d 4e 25 20 81 32  35 36 3a ed 3a e1 0d ff  |2)=N% .256:.:...|
000009f0