� OSbits Module B/osb09
� ROM listing program
� Version 3.1  4.1.87
( 
2*KEY1MODE3|M|NLIST|M
< 
F� : Set routine addresses
Posbyte = &FFF4
Zosrdrm = &FFB9
dosasci = &FFE3
nosnewl = &FFE7
x 
�line_length=70
�number_of_zeros=3
�zp%=&8E
� 
�`� �<&E00 � � "I think you have a second processor"'"please switch it off and start again.":�
� 
�code% = &A00
� 
�� pass% = 0 � 3 � 3
�P% = code%
�[OPT pass%
� 
�LDA zp%

PHA


LDA zp%+1

EPHA                         \ Store present values of zp on stack

" 

,
LDX #0

6STX romnumber

@AJSR print_loop              \ Prints out header from � at end

J 

TLDA #170

^
LDX #0

hLDY #&FF

rIJSR osbyte                  \ OSBYTE 170 finds ROM info table address

|STX zp%

�BSTY zp%+1                   \ Store table address in zero page

� 

�.main_loop

� 

�JSR which_rom

�KLDA (zp%), Y                \ Take ROM info from table (see OSBYTE 170)

�BEQ rom_finished

�STA rom_info

�JSR serv_or_lang

� 

�I\  This section works through the ROM header from byte 9 to print out

�J\  the copyright message.  After 3 zeros the header should be finished

�6\  and the routine returns to the top of the loop.
 
MLDA #0                      \ Set/reset number of zeros & letters to zero

STA zeros
&STA letter
0 
:M.line_loop                  \ Loop that prints out line of info about ROM
D 
NHLDA letter                  \ Letter in line currently being printed
XCLC
bHADC #9                      \ We want to read from 9th letter in ROM
l=STA &F6                     \ Entry conditions for OSRDRM
v@LDA #&80                    \ MSB, Byte is at &8009 + letter
�STA &F7
�LDY romnumber
�.JSR osrdrm                  \ Call routine
�KJSR test                    \ Check number of zeros & reject duff chars
�EBCC rom_finished            \ Carry is clear if 3 zeros are found
�JSR osasci
�?INC letter                  \ Increment to take next letter
�LDA letter
�4CMP #line_length            \ Is it line_length?
�EBCC line_loop               \ If smaller then continue along line
� 
�.rom_finished
� 
=JSR osnewl                  \ LF/CR for next line and ROM
<INC romnumber               \ Increment to take next ROM
LDA romnumber
 CMP #16
*BNE main_loop
4 
>	.exit
H 
RJSR osnewl
\PLA
f
STA zp%+1
pPLA
z=STA zp%                     \ Restore zero page addresses
�RTS
� 
�.print_loop
� 
�<LDA print,X                 \ Load in Xth character in �
�8BEQ print_exit              \ If 0 then exit routine
�4JSR osasci                  \ Otherwise print it
�INX
�JMP print_loop
� 
�.print_exit
� 
�RTS
 
E\  This subroutine takes the current ROM number and prints it out
 
$.which_rom
. 
8:LDA romnumber               \ Currently accessed ROM #
B-TAY                         \ Copy into Y
L.SED                         \ Decimal mode
VCLC
`ADC #&90
jFADC #&40                    \ Binary to hex routine - see Module 6
tCLD
~JSR osasci
�LDA #32
�=JSR osasci                  \ Print the byte then a space
�RTS
� 
�B\  This subroutine gets the ROM information byte from rom_info
�D\  Bits 6 and 7 are tested and an S or L for Service/Language is
�<\  printed to say whether the ROM has S & L entry points
� 
�.serv_or_lang
� 
�
LDA #�"("
�:JSR osasci                  \ Print an opening bracket
LDA #&40

>BIT rom_info                \ Check bit 6 of the info byte
HBVC not_language            \ If bit 6 is clear it is not a language

LDA #�"L"
(@JSR osasci                  \ Print an L if it is a language
2JMP service
< 
FH.not_language               \ Print an space if it is not a language
P 
ZLDA #32
dJSR osasci
n 
x.service
� 
�LDA &80
�-BIT rom_info                \ Check bit 7
�KBPL not_service             \ If it is not set there is no service e.p.
�*LDA #�"S"                 \ Print an S
�JSR osasci
�JMP out
� 
�.not_service
� 
�LDA #32
�0JSR osasci                  \ Print an space
� 
.out
 

LDA #�")"
"JSR osasci
,LDA #32
69JSR osasci                  \ Close bracket and space
@RTS
J 
T?\  This subroutine tests the byte taken from the ROM header
^A\  Non printable characters are ignored and zeros are counted
hB\  After 3 zeros the header is finished and the routine forces
r<\  A return to the main loop by clearing the carry flag.
| 
�;.test                       \ Entry with character in A
� 
�/CMP #0                      \ Is it a zero?
�:BEQ another_zero            \ If so go to zero routine
�CMP #127
�EBCS over                    \ If it's >= 127 it's not �II so exit
�CMP #32
�HBCC over                    \ If it's < 32 it a control code so exit
�ARTS                         \ Carry must be set at this point
� 
�	.over
� 
�;LDA #32                     \ Render A harmless on exit
SEC
RTS
 
&.another_zero
0 
:=LDA #32                     \ For every zero send a space
DJSR osasci
N
INC zeros
X
LDA zeros
bCMP #number_of_zeros
lBNE over
vCLC
�RTS
� 
�9.print      OPT �EQUS(�12+"Sideways Roms"+�13+�13+�0)
�.romnumber  OPT �EQUB(0)
�.letter     OPT �EQUB(0)
�.zeros      OPT �EQUB(0)
�.rom_info   OPT �EQUB(0)
� 
�]
��
�:�'" *SAVE romlist ";~&FFFF0000+code%;" ";~&FFFF0000+P%
��
� 
**** EQUate a Byte ****
� �EQUB(N%)
?P%=N% � 256
 � (pass% � 3) = 3 � � ~?P%
*P%=P%+1
4
=pass%
> 
H**** EQUate a String ****
R� �EQUS(N$)
\� N%
f� 40
p� N%=1 � �(N$)
zK%=�(�N$,N%,1))
�P%?(N%-1)=K%
�%� (pass% � 3) = 3 � � ~P%?(N%-1);
��
�� (pass% � 3) = 3 � �
�P%=P%+�(N$)
�� 0
�
=pass%
�

00000000  0d 00 0a 1b f4 20 4f 53  62 69 74 73 20 4d 6f 64  |..... OSbits Mod|
00000010  75 6c 65 20 42 2f 6f 73  62 30 39 0d 00 14 19 f4  |ule B/osb09.....|
00000020  20 52 4f 4d 20 6c 69 73  74 69 6e 67 20 70 72 6f  | ROM listing pro|
00000030  67 72 61 6d 0d 00 1e 19  f4 20 56 65 72 73 69 6f  |gram..... Versio|
00000040  6e 20 33 2e 31 20 20 34  2e 31 2e 38 37 0d 00 28  |n 3.1  4.1.87..(|
00000050  05 20 0d 00 32 18 2a 4b  45 59 31 4d 4f 44 45 33  |. ..2.*KEY1MODE3|
00000060  7c 4d 7c 4e 4c 49 53 54  7c 4d 0d 00 3c 05 20 0d  ||M|NLIST|M..<. .|
00000070  00 46 1d f4 20 3a 20 53  65 74 20 72 6f 75 74 69  |.F.. : Set routi|
00000080  6e 65 20 61 64 64 72 65  73 73 65 73 0d 00 50 12  |ne addresses..P.|
00000090  6f 73 62 79 74 65 20 3d  20 26 46 46 46 34 0d 00  |osbyte = &FFF4..|
000000a0  5a 12 6f 73 72 64 72 6d  20 3d 20 26 46 46 42 39  |Z.osrdrm = &FFB9|
000000b0  0d 00 64 12 6f 73 61 73  63 69 20 3d 20 26 46 46  |..d.osasci = &FF|
000000c0  45 33 0d 00 6e 12 6f 73  6e 65 77 6c 20 3d 20 26  |E3..n.osnewl = &|
000000d0  46 46 45 37 0d 00 78 05  20 0d 00 82 12 6c 69 6e  |FFE7..x. ....lin|
000000e0  65 5f 6c 65 6e 67 74 68  3d 37 30 0d 00 8c 15 6e  |e_length=70....n|
000000f0  75 6d 62 65 72 5f 6f 66  5f 7a 65 72 6f 73 3d 33  |umber_of_zeros=3|
00000100  0d 00 96 0b 7a 70 25 3d  26 38 45 0d 00 a0 05 20  |....zp%=&8E.... |
00000110  0d 00 aa 60 e7 20 90 3c  26 45 30 30 20 8c 20 f1  |...`. .<&E00 . .|
00000120  20 22 49 20 74 68 69 6e  6b 20 79 6f 75 20 68 61  | "I think you ha|
00000130  76 65 20 61 20 73 65 63  6f 6e 64 20 70 72 6f 63  |ve a second proc|
00000140  65 73 73 6f 72 22 27 22  70 6c 65 61 73 65 20 73  |essor"'"please s|
00000150  77 69 74 63 68 20 69 74  20 6f 66 66 20 61 6e 64  |witch it off and|
00000160  20 73 74 61 72 74 20 61  67 61 69 6e 2e 22 3a fa  | start again.":.|
00000170  0d 00 b4 05 20 0d 00 be  10 63 6f 64 65 25 20 3d  |.... ....code% =|
00000180  20 26 41 30 30 0d 00 c8  05 20 0d 00 d2 17 e3 20  | &A00.... ..... |
00000190  70 61 73 73 25 20 3d 20  30 20 b8 20 33 20 88 20  |pass% = 0 . 3 . |
000001a0  33 0d 00 dc 0e 50 25 20  3d 20 63 6f 64 65 25 0d  |3....P% = code%.|
000001b0  00 e6 0e 5b 4f 50 54 20  70 61 73 73 25 0d 00 f0  |...[OPT pass%...|
000001c0  05 20 0d 00 fa 0b 4c 44  41 20 7a 70 25 0d 01 04  |. ....LDA zp%...|
000001d0  07 50 48 41 0d 01 0e 0d  4c 44 41 20 7a 70 25 2b  |.PHA....LDA zp%+|
000001e0  31 0d 01 18 45 50 48 41  20 20 20 20 20 20 20 20  |1...EPHA        |
000001f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000200  20 5c 20 53 74 6f 72 65  20 70 72 65 73 65 6e 74  | \ Store present|
00000210  20 76 61 6c 75 65 73 20  6f 66 20 7a 70 20 6f 6e  | values of zp on|
00000220  20 73 74 61 63 6b 0d 01  22 05 20 0d 01 2c 0a 4c  | stack..". ..,.L|
00000230  44 58 20 23 30 0d 01 36  11 53 54 58 20 72 6f 6d  |DX #0..6.STX rom|
00000240  6e 75 6d 62 65 72 0d 01  40 41 4a 53 52 20 70 72  |number..@AJSR pr|
00000250  69 6e 74 5f 6c 6f 6f 70  20 20 20 20 20 20 20 20  |int_loop        |
00000260  20 20 20 20 20 20 5c 20  50 72 69 6e 74 73 20 6f  |      \ Prints o|
00000270  75 74 20 68 65 61 64 65  72 20 66 72 6f 6d 20 dc  |ut header from .|
00000280  20 61 74 20 65 6e 64 0d  01 4a 05 20 0d 01 54 0c  | at end..J. ..T.|
00000290  4c 44 41 20 23 31 37 30  0d 01 5e 0a 4c 44 58 20  |LDA #170..^.LDX |
000002a0  23 30 0d 01 68 0c 4c 44  59 20 23 26 46 46 0d 01  |#0..h.LDY #&FF..|
000002b0  72 49 4a 53 52 20 6f 73  62 79 74 65 20 20 20 20  |rIJSR osbyte    |
000002c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
000002d0  4f 53 42 59 54 45 20 31  37 30 20 66 69 6e 64 73  |OSBYTE 170 finds|
000002e0  20 52 4f 4d 20 69 6e 66  6f 20 74 61 62 6c 65 20  | ROM info table |
000002f0  61 64 64 72 65 73 73 0d  01 7c 0b 53 54 58 20 7a  |address..|.STX z|
00000300  70 25 0d 01 86 42 53 54  59 20 7a 70 25 2b 31 20  |p%...BSTY zp%+1 |
00000310  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000320  20 20 5c 20 53 74 6f 72  65 20 74 61 62 6c 65 20  |  \ Store table |
00000330  61 64 64 72 65 73 73 20  69 6e 20 7a 65 72 6f 20  |address in zero |
00000340  70 61 67 65 0d 01 90 05  20 0d 01 9a 0e 2e 6d 61  |page.... .....ma|
00000350  69 6e 5f 6c 6f 6f 70 0d  01 a4 05 20 0d 01 ae 11  |in_loop.... ....|
00000360  4a 53 52 20 77 68 69 63  68 5f 72 6f 6d 0d 01 b8  |JSR which_rom...|
00000370  4b 4c 44 41 20 28 7a 70  25 29 2c 20 59 20 20 20  |KLDA (zp%), Y   |
00000380  20 20 20 20 20 20 20 20  20 20 20 20 20 5c 20 54  |             \ T|
00000390  61 6b 65 20 52 4f 4d 20  69 6e 66 6f 20 66 72 6f  |ake ROM info fro|
000003a0  6d 20 74 61 62 6c 65 20  28 73 65 65 20 4f 53 42  |m table (see OSB|
000003b0  59 54 45 20 31 37 30 29  0d 01 c2 14 42 45 51 20  |YTE 170)....BEQ |
000003c0  72 6f 6d 5f 66 69 6e 69  73 68 65 64 0d 01 cc 10  |rom_finished....|
000003d0  53 54 41 20 72 6f 6d 5f  69 6e 66 6f 0d 01 d6 14  |STA rom_info....|
000003e0  4a 53 52 20 73 65 72 76  5f 6f 72 5f 6c 61 6e 67  |JSR serv_or_lang|
000003f0  0d 01 e0 05 20 0d 01 ea  49 5c 20 20 54 68 69 73  |.... ...I\  This|
00000400  20 73 65 63 74 69 6f 6e  20 77 6f 72 6b 73 20 74  | section works t|
00000410  68 72 6f 75 67 68 20 74  68 65 20 52 4f 4d 20 68  |hrough the ROM h|
00000420  65 61 64 65 72 20 66 72  6f 6d 20 62 79 74 65 20  |eader from byte |
00000430  39 20 74 6f 20 70 72 69  6e 74 20 6f 75 74 0d 01  |9 to print out..|
00000440  f4 4a 5c 20 20 74 68 65  20 63 6f 70 79 72 69 67  |.J\  the copyrig|
00000450  68 74 20 6d 65 73 73 61  67 65 2e 20 20 41 66 74  |ht message.  Aft|
00000460  65 72 20 33 20 7a 65 72  6f 73 20 74 68 65 20 68  |er 3 zeros the h|
00000470  65 61 64 65 72 20 73 68  6f 75 6c 64 20 62 65 20  |eader should be |
00000480  66 69 6e 69 73 68 65 64  0d 01 fe 36 5c 20 20 61  |finished...6\  a|
00000490  6e 64 20 74 68 65 20 72  6f 75 74 69 6e 65 20 72  |nd the routine r|
000004a0  65 74 75 72 6e 73 20 74  6f 20 74 68 65 20 74 6f  |eturns to the to|
000004b0  70 20 6f 66 20 74 68 65  20 6c 6f 6f 70 2e 0d 02  |p of the loop...|
000004c0  08 05 20 0d 02 12 4d 4c  44 41 20 23 30 20 20 20  |.. ...MLDA #0   |
000004d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004e0  20 20 20 5c 20 53 65 74  2f 72 65 73 65 74 20 6e  |   \ Set/reset n|
000004f0  75 6d 62 65 72 20 6f 66  20 7a 65 72 6f 73 20 26  |umber of zeros &|
00000500  20 6c 65 74 74 65 72 73  20 74 6f 20 7a 65 72 6f  | letters to zero|
00000510  0d 02 1c 0d 53 54 41 20  7a 65 72 6f 73 0d 02 26  |....STA zeros..&|
00000520  0e 53 54 41 20 6c 65 74  74 65 72 0d 02 30 05 20  |.STA letter..0. |
00000530  0d 02 3a 4d 2e 6c 69 6e  65 5f 6c 6f 6f 70 20 20  |..:M.line_loop  |
00000540  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000550  5c 20 4c 6f 6f 70 20 74  68 61 74 20 70 72 69 6e  |\ Loop that prin|
00000560  74 73 20 6f 75 74 20 6c  69 6e 65 20 6f 66 20 69  |ts out line of i|
00000570  6e 66 6f 20 61 62 6f 75  74 20 52 4f 4d 0d 02 44  |nfo about ROM..D|
00000580  05 20 0d 02 4e 48 4c 44  41 20 6c 65 74 74 65 72  |. ..NHLDA letter|
00000590  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000005a0  20 20 5c 20 4c 65 74 74  65 72 20 69 6e 20 6c 69  |  \ Letter in li|
000005b0  6e 65 20 63 75 72 72 65  6e 74 6c 79 20 62 65 69  |ne currently bei|
000005c0  6e 67 20 70 72 69 6e 74  65 64 0d 02 58 07 43 4c  |ng printed..X.CL|
000005d0  43 0d 02 62 48 41 44 43  20 23 39 20 20 20 20 20  |C..bHADC #9     |
000005e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000005f0  20 5c 20 57 65 20 77 61  6e 74 20 74 6f 20 72 65  | \ We want to re|
00000600  61 64 20 66 72 6f 6d 20  39 74 68 20 6c 65 74 74  |ad from 9th lett|
00000610  65 72 20 69 6e 20 52 4f  4d 0d 02 6c 3d 53 54 41  |er in ROM..l=STA|
00000620  20 26 46 36 20 20 20 20  20 20 20 20 20 20 20 20  | &F6            |
00000630  20 20 20 20 20 20 20 20  20 5c 20 45 6e 74 72 79  |         \ Entry|
00000640  20 63 6f 6e 64 69 74 69  6f 6e 73 20 66 6f 72 20  | conditions for |
00000650  4f 53 52 44 52 4d 0d 02  76 40 4c 44 41 20 23 26  |OSRDRM..v@LDA #&|
00000660  38 30 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |80              |
00000670  20 20 20 20 20 20 5c 20  4d 53 42 2c 20 42 79 74  |      \ MSB, Byt|
00000680  65 20 69 73 20 61 74 20  26 38 30 30 39 20 2b 20  |e is at &8009 + |
00000690  6c 65 74 74 65 72 0d 02  80 0b 53 54 41 20 26 46  |letter....STA &F|
000006a0  37 0d 02 8a 11 4c 44 59  20 72 6f 6d 6e 75 6d 62  |7....LDY romnumb|
000006b0  65 72 0d 02 94 2e 4a 53  52 20 6f 73 72 64 72 6d  |er....JSR osrdrm|
000006c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000006d0  20 20 5c 20 43 61 6c 6c  20 72 6f 75 74 69 6e 65  |  \ Call routine|
000006e0  0d 02 9e 4b 4a 53 52 20  74 65 73 74 20 20 20 20  |...KJSR test    |
000006f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000700  5c 20 43 68 65 63 6b 20  6e 75 6d 62 65 72 20 6f  |\ Check number o|
00000710  66 20 7a 65 72 6f 73 20  26 20 72 65 6a 65 63 74  |f zeros & reject|
00000720  20 64 75 66 66 20 63 68  61 72 73 0d 02 a8 45 42  | duff chars...EB|
00000730  43 43 20 72 6f 6d 5f 66  69 6e 69 73 68 65 64 20  |CC rom_finished |
00000740  20 20 20 20 20 20 20 20  20 20 20 5c 20 43 61 72  |           \ Car|
00000750  72 79 20 69 73 20 63 6c  65 61 72 20 69 66 20 33  |ry is clear if 3|
00000760  20 7a 65 72 6f 73 20 61  72 65 20 66 6f 75 6e 64  | zeros are found|
00000770  0d 02 b2 0e 4a 53 52 20  6f 73 61 73 63 69 0d 02  |....JSR osasci..|
00000780  bc 3f 49 4e 43 20 6c 65  74 74 65 72 20 20 20 20  |.?INC letter    |
00000790  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
000007a0  49 6e 63 72 65 6d 65 6e  74 20 74 6f 20 74 61 6b  |Increment to tak|
000007b0  65 20 6e 65 78 74 20 6c  65 74 74 65 72 0d 02 c6  |e next letter...|
000007c0  0e 4c 44 41 20 6c 65 74  74 65 72 0d 02 d0 34 43  |.LDA letter...4C|
000007d0  4d 50 20 23 6c 69 6e 65  5f 6c 65 6e 67 74 68 20  |MP #line_length |
000007e0  20 20 20 20 20 20 20 20  20 20 20 5c 20 49 73 20  |           \ Is |
000007f0  69 74 20 6c 69 6e 65 5f  6c 65 6e 67 74 68 3f 0d  |it line_length?.|
00000800  02 da 45 42 43 43 20 6c  69 6e 65 5f 6c 6f 6f 70  |..EBCC line_loop|
00000810  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |               \|
00000820  20 49 66 20 73 6d 61 6c  6c 65 72 20 74 68 65 6e  | If smaller then|
00000830  20 63 6f 6e 74 69 6e 75  65 20 61 6c 6f 6e 67 20  | continue along |
00000840  6c 69 6e 65 0d 02 e4 05  20 0d 02 ee 11 2e 72 6f  |line.... .....ro|
00000850  6d 5f 66 69 6e 69 73 68  65 64 0d 02 f8 05 20 0d  |m_finished.... .|
00000860  03 02 3d 4a 53 52 20 6f  73 6e 65 77 6c 20 20 20  |..=JSR osnewl   |
00000870  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |               \|
00000880  20 4c 46 2f 43 52 20 66  6f 72 20 6e 65 78 74 20  | LF/CR for next |
00000890  6c 69 6e 65 20 61 6e 64  20 52 4f 4d 0d 03 0c 3c  |line and ROM...<|
000008a0  49 4e 43 20 72 6f 6d 6e  75 6d 62 65 72 20 20 20  |INC romnumber   |
000008b0  20 20 20 20 20 20 20 20  20 20 20 20 5c 20 49 6e  |            \ In|
000008c0  63 72 65 6d 65 6e 74 20  74 6f 20 74 61 6b 65 20  |crement to take |
000008d0  6e 65 78 74 20 52 4f 4d  0d 03 16 11 4c 44 41 20  |next ROM....LDA |
000008e0  72 6f 6d 6e 75 6d 62 65  72 0d 03 20 0b 43 4d 50  |romnumber.. .CMP|
000008f0  20 23 31 36 0d 03 2a 11  42 4e 45 20 6d 61 69 6e  | #16..*.BNE main|
00000900  5f 6c 6f 6f 70 0d 03 34  05 20 0d 03 3e 09 2e 65  |_loop..4. ..>..e|
00000910  78 69 74 0d 03 48 05 20  0d 03 52 0e 4a 53 52 20  |xit..H. ..R.JSR |
00000920  6f 73 6e 65 77 6c 0d 03  5c 07 50 4c 41 0d 03 66  |osnewl..\.PLA..f|
00000930  0d 53 54 41 20 7a 70 25  2b 31 0d 03 70 07 50 4c  |.STA zp%+1..p.PL|
00000940  41 0d 03 7a 3d 53 54 41  20 7a 70 25 20 20 20 20  |A..z=STA zp%    |
00000950  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000960  20 5c 20 52 65 73 74 6f  72 65 20 7a 65 72 6f 20  | \ Restore zero |
00000970  70 61 67 65 20 61 64 64  72 65 73 73 65 73 0d 03  |page addresses..|
00000980  84 07 52 54 53 0d 03 8e  05 20 0d 03 98 0f 2e 70  |..RTS.... .....p|
00000990  72 69 6e 74 5f 6c 6f 6f  70 0d 03 a2 05 20 0d 03  |rint_loop.... ..|
000009a0  ac 3c 4c 44 41 20 70 72  69 6e 74 2c 58 20 20 20  |.<LDA print,X   |
000009b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
000009c0  4c 6f 61 64 20 69 6e 20  58 74 68 20 63 68 61 72  |Load in Xth char|
000009d0  61 63 74 65 72 20 69 6e  20 dc 0d 03 b6 38 42 45  |acter in ....8BE|
000009e0  51 20 70 72 69 6e 74 5f  65 78 69 74 20 20 20 20  |Q print_exit    |
000009f0  20 20 20 20 20 20 20 20  20 20 5c 20 49 66 20 30  |          \ If 0|
00000a00  20 74 68 65 6e 20 65 78  69 74 20 72 6f 75 74 69  | then exit routi|
00000a10  6e 65 0d 03 c0 34 4a 53  52 20 6f 73 61 73 63 69  |ne...4JSR osasci|
00000a20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a30  20 20 5c 20 4f 74 68 65  72 77 69 73 65 20 70 72  |  \ Otherwise pr|
00000a40  69 6e 74 20 69 74 0d 03  ca 07 49 4e 58 0d 03 d4  |int it....INX...|
00000a50  12 4a 4d 50 20 70 72 69  6e 74 5f 6c 6f 6f 70 0d  |.JMP print_loop.|
00000a60  03 de 05 20 0d 03 e8 0f  2e 70 72 69 6e 74 5f 65  |... .....print_e|
00000a70  78 69 74 0d 03 f2 05 20  0d 03 fc 07 52 54 53 0d  |xit.... ....RTS.|
00000a80  04 06 05 20 0d 04 10 45  5c 20 20 54 68 69 73 20  |... ...E\  This |
00000a90  73 75 62 72 6f 75 74 69  6e 65 20 74 61 6b 65 73  |subroutine takes|
00000aa0  20 74 68 65 20 63 75 72  72 65 6e 74 20 52 4f 4d  | the current ROM|
00000ab0  20 6e 75 6d 62 65 72 20  61 6e 64 20 70 72 69 6e  | number and prin|
00000ac0  74 73 20 69 74 20 6f 75  74 0d 04 1a 05 20 0d 04  |ts it out.... ..|
00000ad0  24 0e 2e 77 68 69 63 68  5f 72 6f 6d 0d 04 2e 05  |$..which_rom....|
00000ae0  20 0d 04 38 3a 4c 44 41  20 72 6f 6d 6e 75 6d 62  | ..8:LDA romnumb|
00000af0  65 72 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |er              |
00000b00  20 5c 20 43 75 72 72 65  6e 74 6c 79 20 61 63 63  | \ Currently acc|
00000b10  65 73 73 65 64 20 52 4f  4d 20 23 0d 04 42 2d 54  |essed ROM #..B-T|
00000b20  41 59 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |AY              |
00000b30  20 20 20 20 20 20 20 20  20 20 20 5c 20 43 6f 70  |           \ Cop|
00000b40  79 20 69 6e 74 6f 20 59  0d 04 4c 2e 53 45 44 20  |y into Y..L.SED |
00000b50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000b60  20 20 20 20 20 20 20 20  5c 20 44 65 63 69 6d 61  |        \ Decima|
00000b70  6c 20 6d 6f 64 65 0d 04  56 07 43 4c 43 0d 04 60  |l mode..V.CLC..`|
00000b80  0c 41 44 43 20 23 26 39  30 0d 04 6a 46 41 44 43  |.ADC #&90..jFADC|
00000b90  20 23 26 34 30 20 20 20  20 20 20 20 20 20 20 20  | #&40           |
00000ba0  20 20 20 20 20 20 20 20  20 5c 20 42 69 6e 61 72  |         \ Binar|
00000bb0  79 20 74 6f 20 68 65 78  20 72 6f 75 74 69 6e 65  |y to hex routine|
00000bc0  20 2d 20 73 65 65 20 4d  6f 64 75 6c 65 20 36 0d  | - see Module 6.|
00000bd0  04 74 07 43 4c 44 0d 04  7e 0e 4a 53 52 20 6f 73  |.t.CLD..~.JSR os|
00000be0  61 73 63 69 0d 04 88 0b  4c 44 41 20 23 33 32 0d  |asci....LDA #32.|
00000bf0  04 92 3d 4a 53 52 20 6f  73 61 73 63 69 20 20 20  |..=JSR osasci   |
00000c00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |               \|
00000c10  20 50 72 69 6e 74 20 74  68 65 20 62 79 74 65 20  | Print the byte |
00000c20  74 68 65 6e 20 61 20 73  70 61 63 65 0d 04 9c 07  |then a space....|
00000c30  52 54 53 0d 04 a6 05 20  0d 04 b0 42 5c 20 20 54  |RTS.... ...B\  T|
00000c40  68 69 73 20 73 75 62 72  6f 75 74 69 6e 65 20 67  |his subroutine g|
00000c50  65 74 73 20 74 68 65 20  52 4f 4d 20 69 6e 66 6f  |ets the ROM info|
00000c60  72 6d 61 74 69 6f 6e 20  62 79 74 65 20 66 72 6f  |rmation byte fro|
00000c70  6d 20 72 6f 6d 5f 69 6e  66 6f 0d 04 ba 44 5c 20  |m rom_info...D\ |
00000c80  20 42 69 74 73 20 36 20  61 6e 64 20 37 20 61 72  | Bits 6 and 7 ar|
00000c90  65 20 74 65 73 74 65 64  20 61 6e 64 20 61 6e 20  |e tested and an |
00000ca0  53 20 6f 72 20 4c 20 66  6f 72 20 53 65 72 76 69  |S or L for Servi|
00000cb0  63 65 2f 4c 61 6e 67 75  61 67 65 20 69 73 0d 04  |ce/Language is..|
00000cc0  c4 3c 5c 20 20 70 72 69  6e 74 65 64 20 74 6f 20  |.<\  printed to |
00000cd0  73 61 79 20 77 68 65 74  68 65 72 20 74 68 65 20  |say whether the |
00000ce0  52 4f 4d 20 68 61 73 20  53 20 26 20 4c 20 65 6e  |ROM has S & L en|
00000cf0  74 72 79 20 70 6f 69 6e  74 73 0d 04 ce 05 20 0d  |try points.... .|
00000d00  04 d8 11 2e 73 65 72 76  5f 6f 72 5f 6c 61 6e 67  |....serv_or_lang|
00000d10  0d 04 e2 05 20 0d 04 ec  0d 4c 44 41 20 23 97 22  |.... ....LDA #."|
00000d20  28 22 0d 04 f6 3a 4a 53  52 20 6f 73 61 73 63 69  |("...:JSR osasci|
00000d30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d40  20 20 5c 20 50 72 69 6e  74 20 61 6e 20 6f 70 65  |  \ Print an ope|
00000d50  6e 69 6e 67 20 62 72 61  63 6b 65 74 0d 05 00 0c  |ning bracket....|
00000d60  4c 44 41 20 23 26 34 30  0d 05 0a 3e 42 49 54 20  |LDA #&40...>BIT |
00000d70  72 6f 6d 5f 69 6e 66 6f  20 20 20 20 20 20 20 20  |rom_info        |
00000d80  20 20 20 20 20 20 20 20  5c 20 43 68 65 63 6b 20  |        \ Check |
00000d90  62 69 74 20 36 20 6f 66  20 74 68 65 20 69 6e 66  |bit 6 of the inf|
00000da0  6f 20 62 79 74 65 0d 05  14 48 42 56 43 20 6e 6f  |o byte...HBVC no|
00000db0  74 5f 6c 61 6e 67 75 61  67 65 20 20 20 20 20 20  |t_language      |
00000dc0  20 20 20 20 20 20 5c 20  49 66 20 62 69 74 20 36  |      \ If bit 6|
00000dd0  20 69 73 20 63 6c 65 61  72 20 69 74 20 69 73 20  | is clear it is |
00000de0  6e 6f 74 20 61 20 6c 61  6e 67 75 61 67 65 0d 05  |not a language..|
00000df0  1e 0d 4c 44 41 20 23 97  22 4c 22 0d 05 28 40 4a  |..LDA #."L"..(@J|
00000e00  53 52 20 6f 73 61 73 63  69 20 20 20 20 20 20 20  |SR osasci       |
00000e10  20 20 20 20 20 20 20 20  20 20 20 5c 20 50 72 69  |           \ Pri|
00000e20  6e 74 20 61 6e 20 4c 20  69 66 20 69 74 20 69 73  |nt an L if it is|
00000e30  20 61 20 6c 61 6e 67 75  61 67 65 0d 05 32 0f 4a  | a language..2.J|
00000e40  4d 50 20 73 65 72 76 69  63 65 0d 05 3c 05 20 0d  |MP service..<. .|
00000e50  05 46 48 2e 6e 6f 74 5f  6c 61 6e 67 75 61 67 65  |.FH.not_language|
00000e60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |               \|
00000e70  20 50 72 69 6e 74 20 61  6e 20 73 70 61 63 65 20  | Print an space |
00000e80  69 66 20 69 74 20 69 73  20 6e 6f 74 20 61 20 6c  |if it is not a l|
00000e90  61 6e 67 75 61 67 65 0d  05 50 05 20 0d 05 5a 0b  |anguage..P. ..Z.|
00000ea0  4c 44 41 20 23 33 32 0d  05 64 0e 4a 53 52 20 6f  |LDA #32..d.JSR o|
00000eb0  73 61 73 63 69 0d 05 6e  05 20 0d 05 78 0c 2e 73  |sasci..n. ..x..s|
00000ec0  65 72 76 69 63 65 0d 05  82 05 20 0d 05 8c 0b 4c  |ervice.... ....L|
00000ed0  44 41 20 26 38 30 0d 05  96 2d 42 49 54 20 72 6f  |DA &80...-BIT ro|
00000ee0  6d 5f 69 6e 66 6f 20 20  20 20 20 20 20 20 20 20  |m_info          |
00000ef0  20 20 20 20 20 20 5c 20  43 68 65 63 6b 20 62 69  |      \ Check bi|
00000f00  74 20 37 0d 05 a0 4b 42  50 4c 20 6e 6f 74 5f 73  |t 7...KBPL not_s|
00000f10  65 72 76 69 63 65 20 20  20 20 20 20 20 20 20 20  |ervice          |
00000f20  20 20 20 5c 20 49 66 20  69 74 20 69 73 20 6e 6f  |   \ If it is no|
00000f30  74 20 73 65 74 20 74 68  65 72 65 20 69 73 20 6e  |t set there is n|
00000f40  6f 20 73 65 72 76 69 63  65 20 65 2e 70 2e 0d 05  |o service e.p...|
00000f50  aa 2a 4c 44 41 20 23 97  22 53 22 20 20 20 20 20  |.*LDA #."S"     |
00000f60  20 20 20 20 20 20 20 20  20 20 20 20 5c 20 50 72  |            \ Pr|
00000f70  69 6e 74 20 61 6e 20 53  0d 05 b4 0e 4a 53 52 20  |int an S....JSR |
00000f80  6f 73 61 73 63 69 0d 05  be 0b 4a 4d 50 20 6f 75  |osasci....JMP ou|
00000f90  74 0d 05 c8 05 20 0d 05  d2 10 2e 6e 6f 74 5f 73  |t.... .....not_s|
00000fa0  65 72 76 69 63 65 0d 05  dc 05 20 0d 05 e6 0b 4c  |ervice.... ....L|
00000fb0  44 41 20 23 33 32 0d 05  f0 30 4a 53 52 20 6f 73  |DA #32...0JSR os|
00000fc0  61 73 63 69 20 20 20 20  20 20 20 20 20 20 20 20  |asci            |
00000fd0  20 20 20 20 20 20 5c 20  50 72 69 6e 74 20 61 6e  |      \ Print an|
00000fe0  20 73 70 61 63 65 0d 05  fa 05 20 0d 06 04 08 2e  | space.... .....|
00000ff0  6f 75 74 0d 06 0e 05 20  0d 06 18 0d 4c 44 41 20  |out.... ....LDA |
00001000  23 97 22 29 22 0d 06 22  0e 4a 53 52 20 6f 73 61  |#.")"..".JSR osa|
00001010  73 63 69 0d 06 2c 0b 4c  44 41 20 23 33 32 0d 06  |sci..,.LDA #32..|
00001020  36 39 4a 53 52 20 6f 73  61 73 63 69 20 20 20 20  |69JSR osasci    |
00001030  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
00001040  43 6c 6f 73 65 20 62 72  61 63 6b 65 74 20 61 6e  |Close bracket an|
00001050  64 20 73 70 61 63 65 0d  06 40 07 52 54 53 0d 06  |d space..@.RTS..|
00001060  4a 05 20 0d 06 54 3f 5c  20 20 54 68 69 73 20 73  |J. ..T?\  This s|
00001070  75 62 72 6f 75 74 69 6e  65 20 74 65 73 74 73 20  |ubroutine tests |
00001080  74 68 65 20 62 79 74 65  20 74 61 6b 65 6e 20 66  |the byte taken f|
00001090  72 6f 6d 20 74 68 65 20  52 4f 4d 20 68 65 61 64  |rom the ROM head|
000010a0  65 72 0d 06 5e 41 5c 20  20 4e 6f 6e 20 70 72 69  |er..^A\  Non pri|
000010b0  6e 74 61 62 6c 65 20 63  68 61 72 61 63 74 65 72  |ntable character|
000010c0  73 20 61 72 65 20 69 67  6e 6f 72 65 64 20 61 6e  |s are ignored an|
000010d0  64 20 7a 65 72 6f 73 20  61 72 65 20 63 6f 75 6e  |d zeros are coun|
000010e0  74 65 64 0d 06 68 42 5c  20 20 41 66 74 65 72 20  |ted..hB\  After |
000010f0  33 20 7a 65 72 6f 73 20  74 68 65 20 68 65 61 64  |3 zeros the head|
00001100  65 72 20 69 73 20 66 69  6e 69 73 68 65 64 20 61  |er is finished a|
00001110  6e 64 20 74 68 65 20 72  6f 75 74 69 6e 65 20 66  |nd the routine f|
00001120  6f 72 63 65 73 0d 06 72  3c 5c 20 20 41 20 72 65  |orces..r<\  A re|
00001130  74 75 72 6e 20 74 6f 20  74 68 65 20 6d 61 69 6e  |turn to the main|
00001140  20 6c 6f 6f 70 20 62 79  20 63 6c 65 61 72 69 6e  | loop by clearin|
00001150  67 20 74 68 65 20 63 61  72 72 79 20 66 6c 61 67  |g the carry flag|
00001160  2e 0d 06 7c 05 20 0d 06  86 3b 2e 74 65 73 74 20  |...|. ...;.test |
00001170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001180  20 20 20 20 20 20 5c 20  45 6e 74 72 79 20 77 69  |      \ Entry wi|
00001190  74 68 20 63 68 61 72 61  63 74 65 72 20 69 6e 20  |th character in |
000011a0  41 0d 06 90 05 20 0d 06  9a 2f 43 4d 50 20 23 30  |A.... .../CMP #0|
000011b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000011c0  20 20 20 20 20 20 5c 20  49 73 20 69 74 20 61 20  |      \ Is it a |
000011d0  7a 65 72 6f 3f 0d 06 a4  3a 42 45 51 20 61 6e 6f  |zero?...:BEQ ano|
000011e0  74 68 65 72 5f 7a 65 72  6f 20 20 20 20 20 20 20  |ther_zero       |
000011f0  20 20 20 20 20 5c 20 49  66 20 73 6f 20 67 6f 20  |     \ If so go |
00001200  74 6f 20 7a 65 72 6f 20  72 6f 75 74 69 6e 65 0d  |to zero routine.|
00001210  06 ae 0c 43 4d 50 20 23  31 32 37 0d 06 b8 45 42  |...CMP #127...EB|
00001220  43 53 20 6f 76 65 72 20  20 20 20 20 20 20 20 20  |CS over         |
00001230  20 20 20 20 20 20 20 20  20 20 20 5c 20 49 66 20  |           \ If |
00001240  69 74 27 73 20 3e 3d 20  31 32 37 20 69 74 27 73  |it's >= 127 it's|
00001250  20 6e 6f 74 20 97 49 49  20 73 6f 20 65 78 69 74  | not .II so exit|
00001260  0d 06 c2 0b 43 4d 50 20  23 33 32 0d 06 cc 48 42  |....CMP #32...HB|
00001270  43 43 20 6f 76 65 72 20  20 20 20 20 20 20 20 20  |CC over         |
00001280  20 20 20 20 20 20 20 20  20 20 20 5c 20 49 66 20  |           \ If |
00001290  69 74 27 73 20 3c 20 33  32 20 69 74 20 61 20 63  |it's < 32 it a c|
000012a0  6f 6e 74 72 6f 6c 20 63  6f 64 65 20 73 6f 20 65  |ontrol code so e|
000012b0  78 69 74 0d 06 d6 41 52  54 53 20 20 20 20 20 20  |xit...ARTS      |
000012c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000012d0  20 20 20 5c 20 43 61 72  72 79 20 6d 75 73 74 20  |   \ Carry must |
000012e0  62 65 20 73 65 74 20 61  74 20 74 68 69 73 20 70  |be set at this p|
000012f0  6f 69 6e 74 0d 06 e0 05  20 0d 06 ea 09 2e 6f 76  |oint.... .....ov|
00001300  65 72 0d 06 f4 05 20 0d  06 fe 3b 4c 44 41 20 23  |er.... ...;LDA #|
00001310  33 32 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |32              |
00001320  20 20 20 20 20 20 20 5c  20 52 65 6e 64 65 72 20  |       \ Render |
00001330  41 20 68 61 72 6d 6c 65  73 73 20 6f 6e 20 65 78  |A harmless on ex|
00001340  69 74 0d 07 08 07 53 45  43 0d 07 12 07 52 54 53  |it....SEC....RTS|
00001350  0d 07 1c 05 20 0d 07 26  11 2e 61 6e 6f 74 68 65  |.... ..&..anothe|
00001360  72 5f 7a 65 72 6f 0d 07  30 05 20 0d 07 3a 3d 4c  |r_zero..0. ..:=L|
00001370  44 41 20 23 33 32 20 20  20 20 20 20 20 20 20 20  |DA #32          |
00001380  20 20 20 20 20 20 20 20  20 20 20 5c 20 46 6f 72  |           \ For|
00001390  20 65 76 65 72 79 20 7a  65 72 6f 20 73 65 6e 64  | every zero send|
000013a0  20 61 20 73 70 61 63 65  0d 07 44 0e 4a 53 52 20  | a space..D.JSR |
000013b0  6f 73 61 73 63 69 0d 07  4e 0d 49 4e 43 20 7a 65  |osasci..N.INC ze|
000013c0  72 6f 73 0d 07 58 0d 4c  44 41 20 7a 65 72 6f 73  |ros..X.LDA zeros|
000013d0  0d 07 62 18 43 4d 50 20  23 6e 75 6d 62 65 72 5f  |..b.CMP #number_|
000013e0  6f 66 5f 7a 65 72 6f 73  0d 07 6c 0c 42 4e 45 20  |of_zeros..l.BNE |
000013f0  6f 76 65 72 0d 07 76 07  43 4c 43 0d 07 80 07 52  |over..v.CLC....R|
00001400  54 53 0d 07 8a 05 20 0d  07 94 39 2e 70 72 69 6e  |TS.... ...9.prin|
00001410  74 20 20 20 20 20 20 4f  50 54 20 a4 45 51 55 53  |t      OPT .EQUS|
00001420  28 bd 31 32 2b 22 53 69  64 65 77 61 79 73 20 52  |(.12+"Sideways R|
00001430  6f 6d 73 22 2b bd 31 33  2b bd 31 33 2b bd 30 29  |oms"+.13+.13+.0)|
00001440  0d 07 9e 1c 2e 72 6f 6d  6e 75 6d 62 65 72 20 20  |.....romnumber  |
00001450  4f 50 54 20 a4 45 51 55  42 28 30 29 0d 07 a8 1c  |OPT .EQUB(0)....|
00001460  2e 6c 65 74 74 65 72 20  20 20 20 20 4f 50 54 20  |.letter     OPT |
00001470  a4 45 51 55 42 28 30 29  0d 07 b2 1c 2e 7a 65 72  |.EQUB(0).....zer|
00001480  6f 73 20 20 20 20 20 20  4f 50 54 20 a4 45 51 55  |os      OPT .EQU|
00001490  42 28 30 29 0d 07 bc 1c  2e 72 6f 6d 5f 69 6e 66  |B(0).....rom_inf|
000014a0  6f 20 20 20 4f 50 54 20  a4 45 51 55 42 28 30 29  |o   OPT .EQUB(0)|
000014b0  0d 07 c6 05 20 0d 07 d0  05 5d 0d 07 da 05 ed 0d  |.... ....]......|
000014c0  07 e4 3a f1 27 22 20 2a  53 41 56 45 20 72 6f 6d  |..:.'" *SAVE rom|
000014d0  6c 69 73 74 20 22 3b 7e  26 46 46 46 46 30 30 30  |list ";~&FFFF000|
000014e0  30 2b 63 6f 64 65 25 3b  22 20 22 3b 7e 26 46 46  |0+code%;" ";~&FF|
000014f0  46 46 30 30 30 30 2b 50  25 0d 07 ee 05 e0 0d 07  |FF0000+P%.......|
00001500  f8 05 20 0d 08 02 1b 2a  2a 2a 2a 20 45 51 55 61  |.. ....**** EQUa|
00001510  74 65 20 61 20 42 79 74  65 20 2a 2a 2a 2a 0d 08  |te a Byte ****..|
00001520  0c 0f dd 20 a4 45 51 55  42 28 4e 25 29 0d 08 16  |... .EQUB(N%)...|
00001530  10 3f 50 25 3d 4e 25 20  83 20 32 35 36 0d 08 20  |.?P%=N% . 256.. |
00001540  1e e7 20 28 70 61 73 73  25 20 80 20 33 29 20 3d  |.. (pass% . 3) =|
00001550  20 33 20 8c 20 f1 20 7e  3f 50 25 0d 08 2a 0b 50  | 3 . . ~?P%..*.P|
00001560  25 3d 50 25 2b 31 0d 08  34 0a 3d 70 61 73 73 25  |%=P%+1..4.=pass%|
00001570  0d 08 3e 05 20 0d 08 48  1d 2a 2a 2a 2a 20 45 51  |..>. ..H.**** EQ|
00001580  55 61 74 65 20 61 20 53  74 72 69 6e 67 20 2a 2a  |Uate a String **|
00001590  2a 2a 0d 08 52 0f dd 20  a4 45 51 55 53 28 4e 24  |**..R.. .EQUS(N$|
000015a0  29 0d 08 5c 08 ea 20 4e  25 0d 08 66 08 fe 20 34  |)..\.. N%..f.. 4|
000015b0  30 0d 08 70 12 e3 20 4e  25 3d 31 20 b8 20 a9 28  |0..p.. N%=1 . .(|
000015c0  4e 24 29 0d 08 7a 13 4b  25 3d 97 28 c1 4e 24 2c  |N$)..z.K%=.(.N$,|
000015d0  4e 25 2c 31 29 29 0d 08  84 10 50 25 3f 28 4e 25  |N%,1))....P%?(N%|
000015e0  2d 31 29 3d 4b 25 0d 08  8e 25 e7 20 28 70 61 73  |-1)=K%...%. (pas|
000015f0  73 25 20 80 20 33 29 20  3d 20 33 20 8c 20 f1 20  |s% . 3) = 3 . . |
00001600  7e 50 25 3f 28 4e 25 2d  31 29 3b 0d 08 98 05 ed  |~P%?(N%-1);.....|
00001610  0d 08 a2 19 e7 20 28 70  61 73 73 25 20 80 20 33  |..... (pass% . 3|
00001620  29 20 3d 20 33 20 8c 20  f1 0d 08 ac 0f 50 25 3d  |) = 3 . .....P%=|
00001630  50 25 2b a9 28 4e 24 29  0d 08 b6 07 fe 20 30 0d  |P%+.(N$)..... 0.|
00001640  08 c0 0a 3d 70 61 73 73  25 0d ff                 |...=pass%..|
0000164b