�: BUFFER
!�: (C) Gordon Horsington 1987
�7
(�=&3C00
2
� save 50
<diff=&8000-�
Fromnumber=&F4
Pstack=&103
Z
uptv=&222
dstarfx5=&285
npointer=&8100
xprintout=&FE61
�handshake=&FE6C
�status=&FE6D
�control=&FE6E
�osbyte=&FFF4
�oscli=&FFF7
�
A%=&A8
�X%=0
�
Y%=&FF
�"extvec=(�(osbyte)�&FFFF00)�256
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK

BRK

BRK

JMP service+diff

"OPT �equb(&82)

,%OPT �equb((copyright+diff) � 256)

6.copyright

@BRK

JOPT �equs("(C)")

TBRK

^	.flag

hBRK

r.service

|PHA

�TXA

�PHA

�TYA

�PHA

�TSX

�LDA stack,X

�
CMP #5

�BEQ interupt

�CMP #&FE

�BNE exit

�LDA #(buffer+diff) � 256 

�STA extvec+&33

�LDA #(buffer+diff) � 256 
STA extvec+&34
LDA romnumber
STA extvec+&35
&LDA #&81
0STA datin+diff+1
:STA datin+diff+2
DSTA datout+diff+1
NSTA datout+diff+2
XLDX #&33
bLDY #&FF
lSTX uptv
vSTY uptv+1
�	.exit
�PLA
�TAY
�PLA
�TAX
�PLA
�.return
�RTS
�.buffer
�
CPY #3
�BNE return
�
CMP #1
�BNE active
STA flag+diff
.active
PHA
 TXA 
*PHA 
4TYA
>PHA
H.outerloop
RLDY datin+diff+2
\LDX datin+diff+1
fINX 
pBNE nottop
zINY 
�CPY #&C0
�BNE nottop
�LDY #&81
�.nottop
�CPX datout+diff+1
�BNE morespace
�CPY datout+diff+2
�BEQ innerloop
�SEC
�.morespace
�TYA 
�PHA 
�LDA #&91

LDX #3
JSR osbyte
PLA 
$BCS innerloop
.
.datin
8STY pointer
BINC datin+diff+1
LSTA datin+diff+2
VCLC 
`BCC innerloop
j
.interupt
tLDA #&82
~BIT status
�BEQ restore
�LDA starfx5
�
CMP #3
�BNE restore
�.innerloop
�LDA flag+diff
�BNE notpoll
�LDA #&82
�BIT status
�BNE notpoll
�	.step
�BCC outerloop
.restore

CLC
BCC exit
.notpoll
(PHP 
2
LDA #0
<STA flag+diff
FLDA datin+diff+1
PCMP datout+diff+1
ZBNE output
dLDA datin+diff+2
nCMP datout+diff+2
xBNE output
�PLP
�
LDX #2
�STX control
�LDA #&7B
�INX
�JSR osbyte
�JMP restore+diff
�.output
�LDA handshake
�
� #&F0
��A #&0A
�LDX #&82
�.datout
LDY pointer
STA handshake
STX control
"STY printout
,INC datout+diff+1
6BNE notpage
@LDY datout+diff+2
JINY 
TCPY #&C0
^BNE moreroom
hLDY #&81
r
.moreroom
|STY datout+diff+2
�.notpage
�PLP 
�BCS innerloop
�BCC step
�
.lastbyte
�]
��
�!�'"Save filename = "filename$
�� filename$="" �
�K$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"
�X%=save � 256
�Y%=save � 256
�*OPT1,2
� oscli
*OPT1,0
�
&ݤequb(byte)
0?P%=byte
:P%=P%+1
D	=pass
Nݤequw(word)
X?P%=word � 256
bP%?1=word � 256
lP%=P%+2
v	=pass
�ݤequd(double)
�!P%=double
�P%=P%+4
�	=pass
�ݤequs(string$)
�$P%=string$
�P%=P%+�(string$)
�	=pass
�

00000000  0d 00 0a 0d f4 3a 20 42  55 46 46 45 52 0d 00 14  |.....: BUFFER...|
00000010  21 f4 3a 20 28 43 29 20  47 6f 72 64 6f 6e 20 48  |!.: (C) Gordon H|
00000020  6f 72 73 69 6e 67 74 6f  6e 20 31 39 38 37 0d 00  |orsington 1987..|
00000030  1e 06 eb 37 0d 00 28 0b  d3 3d 26 33 43 30 30 0d  |...7..(..=&3C00.|
00000040  00 32 0d de 20 73 61 76  65 20 35 30 0d 00 3c 10  |.2.. save 50..<.|
00000050  64 69 66 66 3d 26 38 30  30 30 2d 93 0d 00 46 11  |diff=&8000-...F.|
00000060  72 6f 6d 6e 75 6d 62 65  72 3d 26 46 34 0d 00 50  |romnumber=&F4..P|
00000070  0e 73 74 61 63 6b 3d 26  31 30 33 0d 00 5a 0d 75  |.stack=&103..Z.u|
00000080  70 74 76 3d 26 32 32 32  0d 00 64 10 73 74 61 72  |ptv=&222..d.star|
00000090  66 78 35 3d 26 32 38 35  0d 00 6e 11 70 6f 69 6e  |fx5=&285..n.poin|
000000a0  74 65 72 3d 26 38 31 30  30 0d 00 78 12 70 72 69  |ter=&8100..x.pri|
000000b0  6e 74 6f 75 74 3d 26 46  45 36 31 0d 00 82 13 68  |ntout=&FE61....h|
000000c0  61 6e 64 73 68 61 6b 65  3d 26 46 45 36 43 0d 00  |andshake=&FE6C..|
000000d0  8c 10 73 74 61 74 75 73  3d 26 46 45 36 44 0d 00  |..status=&FE6D..|
000000e0  96 11 63 6f 6e 74 72 6f  6c 3d 26 46 45 36 45 0d  |..control=&FE6E.|
000000f0  00 a0 10 6f 73 62 79 74  65 3d 26 46 46 46 34 0d  |...osbyte=&FFF4.|
00000100  00 aa 0f 6f 73 63 6c 69  3d 26 46 46 46 37 0d 00  |...oscli=&FFF7..|
00000110  b4 0a 41 25 3d 26 41 38  0d 00 be 08 58 25 3d 30  |..A%=&A8....X%=0|
00000120  0d 00 c8 0a 59 25 3d 26  46 46 0d 00 d2 22 65 78  |....Y%=&FF..."ex|
00000130  74 76 65 63 3d 28 ba 28  6f 73 62 79 74 65 29 80  |tvec=(.(osbyte).|
00000140  26 46 46 46 46 30 30 29  81 32 35 36 0d 00 dc 16  |&FFFF00).256....|
00000150  e3 20 70 61 73 73 20 3d  20 30 20 b8 20 32 20 88  |. pass = 0 . 2 .|
00000160  20 32 0d 00 e6 08 50 25  3d 93 0d 00 f0 0d 5b 4f  | 2....P%=.....[O|
00000170  50 54 20 70 61 73 73 0d  00 fa 07 42 52 4b 0d 01  |PT pass....BRK..|
00000180  04 07 42 52 4b 0d 01 0e  07 42 52 4b 0d 01 18 14  |..BRK....BRK....|
00000190  4a 4d 50 20 73 65 72 76  69 63 65 2b 64 69 66 66  |JMP service+diff|
000001a0  0d 01 22 12 4f 50 54 20  a4 65 71 75 62 28 26 38  |..".OPT .equb(&8|
000001b0  32 29 0d 01 2c 25 4f 50  54 20 a4 65 71 75 62 28  |2)..,%OPT .equb(|
000001c0  28 63 6f 70 79 72 69 67  68 74 2b 64 69 66 66 29  |(copyright+diff)|
000001d0  20 83 20 32 35 36 29 0d  01 36 0e 2e 63 6f 70 79  | . 256)..6..copy|
000001e0  72 69 67 68 74 0d 01 40  07 42 52 4b 0d 01 4a 14  |right..@.BRK..J.|
000001f0  4f 50 54 20 a4 65 71 75  73 28 22 28 43 29 22 29  |OPT .equs("(C)")|
00000200  0d 01 54 07 42 52 4b 0d  01 5e 09 2e 66 6c 61 67  |..T.BRK..^..flag|
00000210  0d 01 68 07 42 52 4b 0d  01 72 0c 2e 73 65 72 76  |..h.BRK..r..serv|
00000220  69 63 65 0d 01 7c 07 50  48 41 0d 01 86 07 54 58  |ice..|.PHA....TX|
00000230  41 0d 01 90 07 50 48 41  0d 01 9a 07 54 59 41 0d  |A....PHA....TYA.|
00000240  01 a4 07 50 48 41 0d 01  ae 07 54 53 58 0d 01 b8  |...PHA....TSX...|
00000250  0f 4c 44 41 20 73 74 61  63 6b 2c 58 0d 01 c2 0a  |.LDA stack,X....|
00000260  43 4d 50 20 23 35 0d 01  cc 10 42 45 51 20 69 6e  |CMP #5....BEQ in|
00000270  74 65 72 75 70 74 0d 01  d6 0c 43 4d 50 20 23 26  |terupt....CMP #&|
00000280  46 45 0d 01 e0 0c 42 4e  45 20 65 78 69 74 0d 01  |FE....BNE exit..|
00000290  ea 1d 4c 44 41 20 23 28  62 75 66 66 65 72 2b 64  |..LDA #(buffer+d|
000002a0  69 66 66 29 20 83 20 32  35 36 20 0d 01 f4 12 53  |iff) . 256 ....S|
000002b0  54 41 20 65 78 74 76 65  63 2b 26 33 33 0d 01 fe  |TA extvec+&33...|
000002c0  1d 4c 44 41 20 23 28 62  75 66 66 65 72 2b 64 69  |.LDA #(buffer+di|
000002d0  66 66 29 20 81 20 32 35  36 20 0d 02 08 12 53 54  |ff) . 256 ....ST|
000002e0  41 20 65 78 74 76 65 63  2b 26 33 34 0d 02 12 11  |A extvec+&34....|
000002f0  4c 44 41 20 72 6f 6d 6e  75 6d 62 65 72 0d 02 1c  |LDA romnumber...|
00000300  12 53 54 41 20 65 78 74  76 65 63 2b 26 33 35 0d  |.STA extvec+&35.|
00000310  02 26 0c 4c 44 41 20 23  26 38 31 0d 02 30 14 53  |.&.LDA #&81..0.S|
00000320  54 41 20 64 61 74 69 6e  2b 64 69 66 66 2b 31 0d  |TA datin+diff+1.|
00000330  02 3a 14 53 54 41 20 64  61 74 69 6e 2b 64 69 66  |.:.STA datin+dif|
00000340  66 2b 32 0d 02 44 15 53  54 41 20 64 61 74 6f 75  |f+2..D.STA datou|
00000350  74 2b 64 69 66 66 2b 31  0d 02 4e 15 53 54 41 20  |t+diff+1..N.STA |
00000360  64 61 74 6f 75 74 2b 64  69 66 66 2b 32 0d 02 58  |datout+diff+2..X|
00000370  0c 4c 44 58 20 23 26 33  33 0d 02 62 0c 4c 44 59  |.LDX #&33..b.LDY|
00000380  20 23 26 46 46 0d 02 6c  0c 53 54 58 20 75 70 74  | #&FF..l.STX upt|
00000390  76 0d 02 76 0e 53 54 59  20 75 70 74 76 2b 31 0d  |v..v.STY uptv+1.|
000003a0  02 80 09 2e 65 78 69 74  0d 02 8a 07 50 4c 41 0d  |....exit....PLA.|
000003b0  02 94 07 54 41 59 0d 02  9e 07 50 4c 41 0d 02 a8  |...TAY....PLA...|
000003c0  07 54 41 58 0d 02 b2 07  50 4c 41 0d 02 bc 0b 2e  |.TAX....PLA.....|
000003d0  72 65 74 75 72 6e 0d 02  c6 07 52 54 53 0d 02 d0  |return....RTS...|
000003e0  0b 2e 62 75 66 66 65 72  0d 02 da 0a 43 50 59 20  |..buffer....CPY |
000003f0  23 33 0d 02 e4 0e 42 4e  45 20 72 65 74 75 72 6e  |#3....BNE return|
00000400  0d 02 ee 0a 43 4d 50 20  23 31 0d 02 f8 0e 42 4e  |....CMP #1....BN|
00000410  45 20 61 63 74 69 76 65  0d 03 02 11 53 54 41 20  |E active....STA |
00000420  66 6c 61 67 2b 64 69 66  66 0d 03 0c 0b 2e 61 63  |flag+diff.....ac|
00000430  74 69 76 65 0d 03 16 07  50 48 41 0d 03 20 08 54  |tive....PHA.. .T|
00000440  58 41 20 0d 03 2a 08 50  48 41 20 0d 03 34 07 54  |XA ..*.PHA ..4.T|
00000450  59 41 0d 03 3e 07 50 48  41 0d 03 48 0e 2e 6f 75  |YA..>.PHA..H..ou|
00000460  74 65 72 6c 6f 6f 70 0d  03 52 14 4c 44 59 20 64  |terloop..R.LDY d|
00000470  61 74 69 6e 2b 64 69 66  66 2b 32 0d 03 5c 14 4c  |atin+diff+2..\.L|
00000480  44 58 20 64 61 74 69 6e  2b 64 69 66 66 2b 31 0d  |DX datin+diff+1.|
00000490  03 66 08 49 4e 58 20 0d  03 70 0e 42 4e 45 20 6e  |.f.INX ..p.BNE n|
000004a0  6f 74 74 6f 70 0d 03 7a  08 49 4e 59 20 0d 03 84  |ottop..z.INY ...|
000004b0  0c 43 50 59 20 23 26 43  30 0d 03 8e 0e 42 4e 45  |.CPY #&C0....BNE|
000004c0  20 6e 6f 74 74 6f 70 0d  03 98 0c 4c 44 59 20 23  | nottop....LDY #|
000004d0  26 38 31 0d 03 a2 0b 2e  6e 6f 74 74 6f 70 0d 03  |&81.....nottop..|
000004e0  ac 15 43 50 58 20 64 61  74 6f 75 74 2b 64 69 66  |..CPX datout+dif|
000004f0  66 2b 31 0d 03 b6 11 42  4e 45 20 6d 6f 72 65 73  |f+1....BNE mores|
00000500  70 61 63 65 0d 03 c0 15  43 50 59 20 64 61 74 6f  |pace....CPY dato|
00000510  75 74 2b 64 69 66 66 2b  32 0d 03 ca 11 42 45 51  |ut+diff+2....BEQ|
00000520  20 69 6e 6e 65 72 6c 6f  6f 70 0d 03 d4 07 53 45  | innerloop....SE|
00000530  43 0d 03 de 0e 2e 6d 6f  72 65 73 70 61 63 65 0d  |C.....morespace.|
00000540  03 e8 08 54 59 41 20 0d  03 f2 08 50 48 41 20 0d  |...TYA ....PHA .|
00000550  03 fc 0c 4c 44 41 20 23  26 39 31 0d 04 06 0a 4c  |...LDA #&91....L|
00000560  44 58 20 23 33 0d 04 10  0e 4a 53 52 20 6f 73 62  |DX #3....JSR osb|
00000570  79 74 65 0d 04 1a 08 50  4c 41 20 0d 04 24 11 42  |yte....PLA ..$.B|
00000580  43 53 20 69 6e 6e 65 72  6c 6f 6f 70 0d 04 2e 0a  |CS innerloop....|
00000590  2e 64 61 74 69 6e 0d 04  38 0f 53 54 59 20 70 6f  |.datin..8.STY po|
000005a0  69 6e 74 65 72 0d 04 42  14 49 4e 43 20 64 61 74  |inter..B.INC dat|
000005b0  69 6e 2b 64 69 66 66 2b  31 0d 04 4c 14 53 54 41  |in+diff+1..L.STA|
000005c0  20 64 61 74 69 6e 2b 64  69 66 66 2b 32 0d 04 56  | datin+diff+2..V|
000005d0  08 43 4c 43 20 0d 04 60  11 42 43 43 20 69 6e 6e  |.CLC ..`.BCC inn|
000005e0  65 72 6c 6f 6f 70 0d 04  6a 0d 2e 69 6e 74 65 72  |erloop..j..inter|
000005f0  75 70 74 0d 04 74 0c 4c  44 41 20 23 26 38 32 0d  |upt..t.LDA #&82.|
00000600  04 7e 0e 42 49 54 20 73  74 61 74 75 73 0d 04 88  |.~.BIT status...|
00000610  0f 42 45 51 20 72 65 73  74 6f 72 65 0d 04 92 0f  |.BEQ restore....|
00000620  4c 44 41 20 73 74 61 72  66 78 35 0d 04 9c 0a 43  |LDA starfx5....C|
00000630  4d 50 20 23 33 0d 04 a6  0f 42 4e 45 20 72 65 73  |MP #3....BNE res|
00000640  74 6f 72 65 0d 04 b0 0e  2e 69 6e 6e 65 72 6c 6f  |tore.....innerlo|
00000650  6f 70 0d 04 ba 11 4c 44  41 20 66 6c 61 67 2b 64  |op....LDA flag+d|
00000660  69 66 66 0d 04 c4 0f 42  4e 45 20 6e 6f 74 70 6f  |iff....BNE notpo|
00000670  6c 6c 0d 04 ce 0c 4c 44  41 20 23 26 38 32 0d 04  |ll....LDA #&82..|
00000680  d8 0e 42 49 54 20 73 74  61 74 75 73 0d 04 e2 0f  |..BIT status....|
00000690  42 4e 45 20 6e 6f 74 70  6f 6c 6c 0d 04 ec 09 2e  |BNE notpoll.....|
000006a0  73 74 65 70 0d 04 f6 11  42 43 43 20 6f 75 74 65  |step....BCC oute|
000006b0  72 6c 6f 6f 70 0d 05 00  0c 2e 72 65 73 74 6f 72  |rloop.....restor|
000006c0  65 0d 05 0a 07 43 4c 43  0d 05 14 0c 42 43 43 20  |e....CLC....BCC |
000006d0  65 78 69 74 0d 05 1e 0c  2e 6e 6f 74 70 6f 6c 6c  |exit.....notpoll|
000006e0  0d 05 28 08 50 48 50 20  0d 05 32 0a 4c 44 41 20  |..(.PHP ..2.LDA |
000006f0  23 30 0d 05 3c 11 53 54  41 20 66 6c 61 67 2b 64  |#0..<.STA flag+d|
00000700  69 66 66 0d 05 46 14 4c  44 41 20 64 61 74 69 6e  |iff..F.LDA datin|
00000710  2b 64 69 66 66 2b 31 0d  05 50 15 43 4d 50 20 64  |+diff+1..P.CMP d|
00000720  61 74 6f 75 74 2b 64 69  66 66 2b 31 0d 05 5a 0e  |atout+diff+1..Z.|
00000730  42 4e 45 20 6f 75 74 70  75 74 0d 05 64 14 4c 44  |BNE output..d.LD|
00000740  41 20 64 61 74 69 6e 2b  64 69 66 66 2b 32 0d 05  |A datin+diff+2..|
00000750  6e 15 43 4d 50 20 64 61  74 6f 75 74 2b 64 69 66  |n.CMP datout+dif|
00000760  66 2b 32 0d 05 78 0e 42  4e 45 20 6f 75 74 70 75  |f+2..x.BNE outpu|
00000770  74 0d 05 82 07 50 4c 50  0d 05 8c 0a 4c 44 58 20  |t....PLP....LDX |
00000780  23 32 0d 05 96 0f 53 54  58 20 63 6f 6e 74 72 6f  |#2....STX contro|
00000790  6c 0d 05 a0 0c 4c 44 41  20 23 26 37 42 0d 05 aa  |l....LDA #&7B...|
000007a0  07 49 4e 58 0d 05 b4 0e  4a 53 52 20 6f 73 62 79  |.INX....JSR osby|
000007b0  74 65 0d 05 be 14 4a 4d  50 20 72 65 73 74 6f 72  |te....JMP restor|
000007c0  65 2b 64 69 66 66 0d 05  c8 0b 2e 6f 75 74 70 75  |e+diff.....outpu|
000007d0  74 0d 05 d2 11 4c 44 41  20 68 61 6e 64 73 68 61  |t....LDA handsha|
000007e0  6b 65 0d 05 dc 0a 80 20  23 26 46 30 0d 05 e6 0b  |ke..... #&F0....|
000007f0  84 41 20 23 26 30 41 0d  05 f0 0c 4c 44 58 20 23  |.A #&0A....LDX #|
00000800  26 38 32 0d 05 fa 0b 2e  64 61 74 6f 75 74 0d 06  |&82.....datout..|
00000810  04 0f 4c 44 59 20 70 6f  69 6e 74 65 72 0d 06 0e  |..LDY pointer...|
00000820  11 53 54 41 20 68 61 6e  64 73 68 61 6b 65 0d 06  |.STA handshake..|
00000830  18 0f 53 54 58 20 63 6f  6e 74 72 6f 6c 0d 06 22  |..STX control.."|
00000840  10 53 54 59 20 70 72 69  6e 74 6f 75 74 0d 06 2c  |.STY printout..,|
00000850  15 49 4e 43 20 64 61 74  6f 75 74 2b 64 69 66 66  |.INC datout+diff|
00000860  2b 31 0d 06 36 0f 42 4e  45 20 6e 6f 74 70 61 67  |+1..6.BNE notpag|
00000870  65 0d 06 40 15 4c 44 59  20 64 61 74 6f 75 74 2b  |e..@.LDY datout+|
00000880  64 69 66 66 2b 32 0d 06  4a 08 49 4e 59 20 0d 06  |diff+2..J.INY ..|
00000890  54 0c 43 50 59 20 23 26  43 30 0d 06 5e 10 42 4e  |T.CPY #&C0..^.BN|
000008a0  45 20 6d 6f 72 65 72 6f  6f 6d 0d 06 68 0c 4c 44  |E moreroom..h.LD|
000008b0  59 20 23 26 38 31 0d 06  72 0d 2e 6d 6f 72 65 72  |Y #&81..r..morer|
000008c0  6f 6f 6d 0d 06 7c 15 53  54 59 20 64 61 74 6f 75  |oom..|.STY datou|
000008d0  74 2b 64 69 66 66 2b 32  0d 06 86 0c 2e 6e 6f 74  |t+diff+2.....not|
000008e0  70 61 67 65 0d 06 90 08  50 4c 50 20 0d 06 9a 11  |page....PLP ....|
000008f0  42 43 53 20 69 6e 6e 65  72 6c 6f 6f 70 0d 06 a4  |BCS innerloop...|
00000900  0c 42 43 43 20 73 74 65  70 0d 06 ae 0d 2e 6c 61  |.BCC step.....la|
00000910  73 74 62 79 74 65 0d 06  b8 05 5d 0d 06 c2 05 ed  |stbyte....].....|
00000920  0d 06 cc 21 e8 27 22 53  61 76 65 20 66 69 6c 65  |...!.'"Save file|
00000930  6e 61 6d 65 20 3d 20 22  66 69 6c 65 6e 61 6d 65  |name = "filename|
00000940  24 0d 06 d6 14 e7 20 66  69 6c 65 6e 61 6d 65 24  |$..... filename$|
00000950  3d 22 22 20 e0 0d 06 e0  4b 24 73 61 76 65 3d 22  |="" ....K$save="|
00000960  53 41 56 45 20 22 2b 66  69 6c 65 6e 61 6d 65 24  |SAVE "+filename$|
00000970  2b 22 20 22 2b c3 7e 28  93 29 2b 22 20 22 2b c3  |+" "+.~(.)+" "+.|
00000980  7e 28 6c 61 73 74 62 79  74 65 29 2b 22 20 46 46  |~(lastbyte)+" FF|
00000990  46 46 38 30 30 30 20 46  46 46 46 38 30 30 30 22  |FF8000 FFFF8000"|
000009a0  0d 06 ea 11 58 25 3d 73  61 76 65 20 83 20 32 35  |....X%=save . 25|
000009b0  36 0d 06 f4 11 59 25 3d  73 61 76 65 20 81 20 32  |6....Y%=save . 2|
000009c0  35 36 0d 06 fe 0b 2a 4f  50 54 31 2c 32 0d 07 08  |56....*OPT1,2...|
000009d0  0b d6 20 6f 73 63 6c 69  0d 07 12 0b 2a 4f 50 54  |.. oscli....*OPT|
000009e0  31 2c 30 0d 07 1c 05 e0  0d 07 26 10 dd a4 65 71  |1,0.......&...eq|
000009f0  75 62 28 62 79 74 65 29  0d 07 30 0c 3f 50 25 3d  |ub(byte)..0.?P%=|
00000a00  62 79 74 65 0d 07 3a 0b  50 25 3d 50 25 2b 31 0d  |byte..:.P%=P%+1.|
00000a10  07 44 09 3d 70 61 73 73  0d 07 4e 10 dd a4 65 71  |.D.=pass..N...eq|
00000a20  75 77 28 77 6f 72 64 29  0d 07 58 12 3f 50 25 3d  |uw(word)..X.?P%=|
00000a30  77 6f 72 64 20 83 20 32  35 36 0d 07 62 13 50 25  |word . 256..b.P%|
00000a40  3f 31 3d 77 6f 72 64 20  81 20 32 35 36 0d 07 6c  |?1=word . 256..l|
00000a50  0b 50 25 3d 50 25 2b 32  0d 07 76 09 3d 70 61 73  |.P%=P%+2..v.=pas|
00000a60  73 0d 07 80 12 dd a4 65  71 75 64 28 64 6f 75 62  |s......equd(doub|
00000a70  6c 65 29 0d 07 8a 0e 21  50 25 3d 64 6f 75 62 6c  |le)....!P%=doubl|
00000a80  65 0d 07 94 0b 50 25 3d  50 25 2b 34 0d 07 9e 09  |e....P%=P%+4....|
00000a90  3d 70 61 73 73 0d 07 a8  13 dd a4 65 71 75 73 28  |=pass......equs(|
00000aa0  73 74 72 69 6e 67 24 29  0d 07 b2 0f 24 50 25 3d  |string$)....$P%=|
00000ab0  73 74 72 69 6e 67 24 0d  07 bc 14 50 25 3d 50 25  |string$....P%=P%|
00000ac0  2b a9 28 73 74 72 69 6e  67 24 29 0d 07 c6 09 3d  |+.(string$)....=|
00000ad0  70 61 73 73 0d ff                                 |pass..|
00000ad6