Home » CEEFAX disks » telesoftware6.adl » 29-04-88/B\OSB24

29-04-88/B\OSB24

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 » CEEFAX disks » telesoftware6.adl
Filename: 29-04-88/B\OSB24
Read OK:
File size: 24F0 bytes
Load address: 0800
Exec address: 8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM  OSbits Module B/osb24
   20REM  Sideways ROM
   30REM  Version 1.4 30.5.87
   40 
   50Version$ = "V1.4"
   60Date$ = "30th May 1987"
   70 
   80*KEY1MO.3|M|NL.|M
   90 
  100REM Memory usage in Zero Page is zp to zp+3, always preserved
  110REM During *command processing workspace start is in (zp)
  120 
  130osbyte=&FFF4
  140osword=&FFF1
  150oswrch=&FFEE
  160osrdch=&FFE0
  170osnewl=&FFE7
  180osasci=&FFE3
  190gsinit=&FFC2
  200gsread=&FFC5
  210 
  220REM  Operating system call workspace
  230zp=&A8
  240REM  Flag for service call display
  250service_flag=&28A
  260 
  270code%=&FFFF8000
  280 
  290DIM temp% &300
  300 
  310FOR pass%=4 TO 6 STEP 2
  320 
  330P%=code%
  340O%=temp%
  350 
  360[OPT pass%
  370 
  380EQUW 0
  390EQUB 0                   \ Set first 3 bytes to zero (Service only)
  400 
  410JMP service_entry_point
  420 
  430EQUB &82                 \ Define ROM type (Service, 6502 mcode)
  440EQUB copyright - code%   \ Copyright string offset
  450EQUB 0                   \ Version
  460 
  470.rom_title        EQUS "OSbits Demo ROM "+Version$
  480 
  490.copyright        EQUS CHR$0+"(C)BBC "+Date$+CHR$0
  500 
  510.service_entry_point
  520 
  530JSR show_service_calls
  540 
  550PHA
  560\  CMP #2                   \ Claim private work space
  570\  BNE not_sc2
  580\  TYA                      \ Y - OSHWM X - ROM number
  590\  STA &DF0,X               \ Index into ROM workspace table
  600\  INY                      \ We need only 1 page of space
  610\  JMP out
  620 
  630.not_sc2
  640 
  650CMP #3                   \ Use service call 3 to print ident
  660BNE not_sc3
  670TXA
  680PHA
  690LDX #(title-text)
  700DEX
  710JSR print_text
  720JSR osnewl
  730PLA
  740TAX
  750\  LDA zp+2
  760\  PHA
  770\  LDA zp+3
  780\  PHA
  790\  TYA
  800\  PHA
  810\  LDA &DF0, X
  820\  STA zp+3
  830\  LDA #0
  840\  STA zp+2
  850\  LDY #15                  \ No of workspace bytes to clear
  860 
  870\  .clear_workspace
  880 
  890\  DEY
  900\  STA (zp+2), Y            \ Reset bytes of workspace
  910\  BNE clear_workspace
  920\  PLA
  930\  TAY
  940\  PLA
  950\  STA zp+3
  960\  PLA
  970\  STA zp+2
  980JMP out
  990 
 1000.not_sc3
 1010 
 1020CMP #4                   \ Unrecognised commands
 1030BNE not_sc4
 1040JMP commands
 1050 
 1060.not_sc4
 1070 
 1080CMP #9                   \ Service call 9 is *HELP
 1090BNE not_sc9
 1100JMP help_processing
 1110 
 1120.not_sc9
 1130.out
 1140 
 1150PLA
 1160RTS
 1170 
 1180.help_processing
 1190 
 1200TXA
 1210PHA
 1220LDA (&F2), Y             \ Look at character following HELP
 1230CMP #13
 1240BNE specific_help        \ If not CR then respond to next word
 1250JSR osnewl
 1260LDX #(title-text)
 1270DEX
 1280JSR print_text           \ Print out title
 1290JSR print_text           \ and print out key words
 1300PLA
 1310TAX
 1320JMP out
 1330 
 1340.specific_help
 1350 
 1360PLA
 1370TAX
 1380LDA zp+2
 1390PHA
 1400LDA zp+3
 1410PHA
 1420TXA
 1430PHA                      \ Save X
 1440DEY
 1450TYA
 1460PHA                      \ Save Y-1 on stack
 1470LDX #&FF
 1480 
 1490.help_loop
 1500 
 1510INX
 1520INY
 1530LDA help_list, X         \ Load character from help command list
 1540BEQ help_recognised
 1550CMP #&FF
 1560BEQ not_this_help
 1570LDA (&F2), Y             \ Look at character following HELP
 1580AND #&DF                 \ Make it case proof
 1590CMP help_list, X
 1600BEQ help_loop
 1610 
 1620.another_search
 1630 
 1640INX
 1650LDA help_list, X
 1660BNE another_search       \ Looking for next null
 1670INX
 1680INX                      \ Skip 2 bytes
 1690PLA                      \ Pull Y-1 from stack
 1700TAY                      \ Put back in Y register
 1710PHA                      \ Return to stack for next try
 1720JMP help_loop            \ See if this next command is recognised
 1730 
 1740.not_this_help
 1750 
 1760PLA
 1770TAY
 1780INY
 1790PLA
 1800TAX
 1810PLA
 1820STA zp+3
 1830PLA
 1840STA zp+2
 1850PLA                      \ Restore all registers before quitting
 1860RTS
 1870 
 1880.help_recognised
 1890 
 1900JSR osnewl
 1910INX                      \ Make X point to response address in table
 1920LDA help_list, X
 1930STA zp+2
 1940INX
 1950LDA help_list, X
 1960STA zp+3                 \ Store response text address in (zp+2)
 1970LDY #&FF
 1980LDX #(title-text)        \ Print out title
 1990DEX
 2000JSR print_text
 2010 
 2020.help_recognised_loop
 2030 
 2040INY
 2050LDA (zp+2), Y
 2060JSR osasci               \ Print out response (Null=EOT)
 2070BNE help_recognised_loop
 2080PLA
 2090TAY                      \ Restore all registers before quitting
 2100INY
 2110PLA
 2120TAX
 2130PLA
 2140STA zp+3
 2150PLA
 2160STA zp+2
 2170PLA
 2180RTS
 2190 
 2200.print_text              \ Print text offset from 'text' by X
 2210 
 2220INX
 2230LDA text, X
 2240JSR osasci
 2250BNE print_text           \ Null = End of text
 2260RTS
 2270 
 2280.commands
 2290 
 2300LDA zp
 2310PHA
 2320LDA zp+1
 2330PHA
 2340LDA zp+2
 2350PHA
 2360LDA zp+3
 2370PHA                      \ Store values held in zp/zp+3 on stack
 2380LDA &DF0, X              \ MSB of start of workspace
 2390STA zp+1
 2400LDA #0
 2410STA zp                   \ W'space now stored in (zp)
 2420TXA
 2430PHA
 2440DEY
 2450TYA
 2460PHA                      \ Store Y-1 on the stack
 2470LDX #&FF
 2480 
 2490.commands_loop
 2500 
 2510INX
 2520INY
 2530LDA command_list,X
 2540BEQ this_rom             \ A null byte means a command is recognised
 2550CMP #&FF
 2560BEQ not_this_rom         \ &FF is end of command table
 2570LDA (&F2),Y              \ String is held from ?&F2 onwards to CR
 2580AND #&DF                 \ Make it case proof!
 2590CMP command_list,X
 2600BEQ commands_loop
 2610 
 2620.repeat_search           \ Command is not recognised
 2630 
 2640INX
 2650LDA command_list,X
 2660BNE repeat_search        \ Look for the next null
 2670INX
 2680INX                      \ When found skip two bytes
 2690PLA                      \ Pull Y-1 from stack
 2700TAY                      \ Put it back in Y register
 2710PHA                      \ Return to stack for next try
 2720JMP commands_loop        \ See if this next command is recognised
 2730 
 2740.not_this_rom
 2750 
 2760PLA
 2770TAY
 2780INY
 2790PLA
 2800TAX
 2810PLA
 2820STA zp+3
 2830PLA
 2840STA zp+2
 2850PLA
 2860STA zp+1
 2870PLA
 2880STA zp
 2890PLA                      \ Restore all registers before quitting
 2900RTS
 2910 
 2920.this_rom
 2930 
 2940INX
 2950LDA command_list,X
 2960STA zp+2
 2970INX
 2980LDA command_list,X
 2990STA zp+3
 3000JMP (zp+2)               \ Table address jump
 3010 
 3020.command_list   EQUS "BEEP"
 3030                EQUB 0
 3040                EQUW beep
 3050                EQUS "SEND"
 3060                EQUB 0
 3070                EQUW send
 3080                EQUS "SERVICE"
 3090                EQUB 0
 3100                EQUW service_on
 3110                EQUS "NOSERVICE"
 3120                EQUB 0
 3130                EQUW service_off
 3140                EQUS "WHATSYOURS"
 3150                EQUB 0
 3160                EQUW whatsyours
 3170                EQUB &FF
 3180.help_list      EQUS "OSBITS"
 3190                EQUB 0
 3200                EQUW help_text_1
 3210                EQUB &FF
 3220.text
 3230.title          EQUS "Demonstration ROM for OSbits Module 24"
 3240                EQUW 13
 3250                EQUS "  OSBITS"
 3260                EQUW 13
 3270.help_text
 3280.help_text_1    EQUB 13
 3290                EQUS "*BEEP makes a beep"
 3300                EQUB 13
 3310                EQUS "*SEND prints the argument to output"
 3320                EQUB 13
 3330                EQUS "*SERVICE turns on service call display"
 3340                EQUB 13
 3350                EQUS "*NOSERVICE turns it off again"
 3360                EQUB 13
 3370                EQUS "You can add more commands if you wish"
 3380                EQUD &0D0D
 3390 
 3400.show_service_calls
 3410 
 3420PHA                      \ Save A safely on stack
 3430LDA service_flag
 3440BEQ no_show
 3450 
 3460PLA
 3470PHA
 3480JSR print_hex            \ Print out hex value of A
 3490JSR print_space
 3500TXA
 3510JSR print_hex            \ Print out hex value of X
 3520JSR print_space
 3530TYA
 3540JSR print_hex            \ Print out hex value of Y
 3550JSR osnewl
 3560 
 3570.no_show
 3580PLA                      \ Retrieve A
 3590RTS
 3600 
 3610.print_space
 3620 
 3630LDA #32
 3640JSR oswrch
 3650RTS
 3660 
 3670.print_hex
 3680 
 3690PHA
 3700LSR A
 3710LSR A
 3720LSR A
 3730LSR A                    \ A now contains higher nybble
 3740JSR print_nybble         \ Sends the HEX value of the nybble
 3750PLA
 3760AND #&F                  \ A now contains lower nybble
 3770JSR print_nybble         \ Sends the HEX value of the nybble
 3780RTS
 3790  
 3800.print_nybble
 3810 
 3820ORA #48                  \ This effectively adds 48 in less code
 3830CMP #58
 3840BCC dont_add
 3850ADC #6                   \ Carry is set so this is +7
 3860 
 3870.dont_add
 3880 
 3890JSR oswrch
 3900RTS
 3910 
 3920.beep                    \ Dummy routine
 3930 
 3940LDA #7
 3950JSR oswrch               \ Just sends a VDU7
 3960JMP exit
 3970 
 3980.send                    \ Prints argument to output
 3990 
 4000SEC                      \ Terminate with CR or second quotes
 4010JSR gsinit               \ Initialise string
 4020BEQ send_ended           \ Zero set if a null string
 4030 
 4040.send_loop
 4050 
 4060JSR gsread               \ Read next character
 4070BCS send_ended           \ Carry set if terminator
 4080JSR osasci
 4090JMP send_loop
 4100 
 4110.send_ended
 4120 
 4130JSR osnewl
 4140JMP exit
 4150 
 4160.service_on
 4170 
 4180LDA #1
 4190STA service_flag
 4200JMP exit
 4210 
 4220.service_off
 4230 
 4240LDA #0
 4250STA service_flag
 4260JMP exit
 4270 
 4280.whatsyours              \ Replace with your own routine
 4290 
 4300JMP beep
 4310 
 4320.exit                    \ Exit from all commands
 4330 
 4340PLA                      \ Pull Y and discard
 4350PLA                      \ Pull X and discard
 4360PLA
 4370STA zp+3
 4380PLA
 4390STA zp+2
 4400PLA
 4410STA zp+1
 4420PLA
 4430STA zp
 4440PLA
 4450LDA #0                   \ Claim command
 4460RTS
 4470 
 4480]
 4490NEXT
 4500PRINT '" *SAVE osbrom ";~temp%;" +";~P%-code%;" ";~code%;" ";~code%

�  OSbits Module B/osb24
�  Sideways ROM
�  Version 1.4 30.5.87
( 
2Version$ = "V1.4"
<Date$ = "30th May 1987"
F 
P*KEY1MO.3|M|NL.|M
Z 
d?� Memory usage in Zero Page is zp to zp+3, always preserved
n;� During *command processing workspace start is in (zp)
x 
�osbyte=&FFF4
�osword=&FFF1
�oswrch=&FFEE
�osrdch=&FFE0
�osnewl=&FFE7
�osasci=&FFE3
�gsinit=&FFC2
�gsread=&FFC5
� 
�&�  Operating system call workspace
�
zp=&A8
�$�  Flag for service call display
�service_flag=&28A
 
code%=&FFFF8000
 
"� temp% &300
, 
6� pass%=4 � 6 � 2
@ 
JP%=code%
TO%=temp%
^ 
h[OPT pass%
r 
|
EQUW 0
�GEQUB 0                   \ Set first 3 bytes to zero (Service only)
� 
�JMP service_entry_point
� 
�DEQUB &82                 \ Define ROM type (Service, 6502 mcode)
�6EQUB copyright - code%   \ Copyright string offset
�&EQUB 0                   \ Version
� 
�6.rom_title        EQUS "OSbits Demo ROM "+Version$
� 
�0.copyright        EQUS �0+"(C)BBC "+Date$+�0
� 
�.service_entry_point
 
JSR show_service_calls
 
&PHA
0:\  CMP #2                   \ Claim private work space
:\  BNE not_sc2
D:\  TYA                      \ Y - OSHWM X - ROM number
N@\  STA &DF0,X               \ Index into ROM workspace table
X>\  INY                      \ We need only 1 page of space
b\  JMP out
l 
v.not_sc2
� 
�@CMP #3                   \ Use service call 3 to print ident
�BNE not_sc3
�TXA
�PHA
�LDX #(title-text)
�DEX
�JSR print_text
�JSR osnewl
�PLA
�TAX
�\  LDA zp+2
�
\  PHA
\  LDA zp+3

\  PHA

\  TYA
 
\  PHA
*\  LDA &DF0, X
4\  STA zp+3
>
\  LDA #0
H\  STA zp+2
R@\  LDY #15                  \ No of workspace bytes to clear
\ 
f\  .clear_workspace
p 
z
\  DEY
�:\  STA (zp+2), Y            \ Reset bytes of workspace
�\  BNE clear_workspace
�
\  PLA
�
\  TAY
�
\  PLA
�\  STA zp+3
�
\  PLA
�\  STA zp+2
�JMP out
� 
�.not_sc3
� 
�4CMP #4                   \ Unrecognised commands
BNE not_sc4
JMP commands
 
$.not_sc4
. 
86CMP #9                   \ Service call 9 is *HELP
BBNE not_sc9
LJMP help_processing
V 
`.not_sc9
j.out
t 
~PLA
�RTS
� 
�.help_processing
� 
�TXA
�PHA
�?LDA (&F2), Y             \ Look at character following HELP
�CMP #13
�BBNE specific_help        \ If not CR then respond to next word
�JSR osnewl
�LDX #(title-text)
�DEX
.JSR print_text           \ Print out title

6JSR print_text           \ and print out key words
PLA
TAX
(JMP out
2 
<.specific_help
F 
PPLA
ZTAX
dLDA zp+2
nPHA
xLDA zp+3
�PHA
�TXA
�%PHA                      \ Save X
�DEY
�TYA
�0PHA                      \ Save Y-1 on stack
�LDX #&FF
� 
�.help_loop
� 
�INX
�INY
�DLDA help_list, X         \ Load character from help command list
BEQ help_recognised
CMP #&FF
BEQ not_this_help
"?LDA (&F2), Y             \ Look at character following HELP
,/� #&DF                 \ Make it case proof
6CMP help_list, X
@BEQ help_loop
J 
T.another_search
^ 
hINX
rLDA help_list, X
|4BNE another_search       \ Looking for next null
�INX
�+INX                      \ Skip 2 bytes
�2PLA                      \ Pull Y-1 from stack
�5TAY                      \ Put back in Y register
�;PHA                      \ Return to stack for next try
�EJMP help_loop            \ See if this next command is recognised
� 
�.not_this_help
� 
�PLA
�TAY
�INY
�PLA
TAX
PLA
STA zp+3
&PLA
0STA zp+2
:DPLA                      \ Restore all registers before quitting
DRTS
N 
X.help_recognised
b 
lJSR osnewl
vHINX                      \ Make X point to response address in table
�LDA help_list, X
�STA zp+2
�INX
�LDA help_list, X
�DSTA zp+3                 \ Store response text address in (zp+2)
�LDY #&FF
�.LDX #(title-text)        \ Print out title
�DEX
�JSR print_text
� 
�.help_recognised_loop
� 
�INY
LDA (zp+2), Y
<JSR osasci               \ Print out response (Null=EOT)
BNE help_recognised_loop
 PLA
*DTAY                      \ Restore all registers before quitting
4INY
>PLA
HTAX
RPLA
\STA zp+3
fPLA
pSTA zp+2
zPLA
�RTS
� 
�A.print_text              \ Print text offset from 'text' by X
� 
�INX
�LDA text, X
�JSR osasci
�1BNE print_text           \ Null = End of text
�RTS
� 
�
.commands
� 
�
LDA zp
	PHA
	LDA zp+1
	PHA
	$LDA zp+2
	.PHA
	8LDA zp+3
	BDPHA                      \ Store values held in zp/zp+3 on stack
	L8LDA &DF0, X              \ MSB of start of workspace
	VSTA zp+1
	`
LDA #0
	j9STA zp                   \ W'space now stored in (zp)
	tTXA
	~PHA
	�DEY
	�TYA
	�5PHA                      \ Store Y-1 on the stack
	�LDX #&FF
	� 
	�.commands_loop
	� 
	�INX
	�INY
	�LDA command_list,X
	�HBEQ this_rom             \ A null byte means a command is recognised
	�CMP #&FF
:BEQ not_this_rom         \ &FF is end of command table

ELDA (&F2),Y              \ String is held from ?&F2 onwards to CR
0� #&DF                 \ Make it case proof!
CMP command_list,X
(BEQ commands_loop
2 
<8.repeat_search           \ Command is not recognised
F 
PINX
ZLDA command_list,X
d5BNE repeat_search        \ Look for the next null
nINX
x8INX                      \ When found skip two bytes
�2PLA                      \ Pull Y-1 from stack
�8TAY                      \ Put it back in Y register
�;PHA                      \ Return to stack for next try
�EJMP commands_loop        \ See if this next command is recognised
� 
�.not_this_rom
� 
�PLA
�TAY
�INY
�PLA
�TAX
�PLA
STA zp+3
PLA
STA zp+2
"PLA
,STA zp+1
6PLA
@
STA zp
JDPLA                      \ Restore all registers before quitting
TRTS
^ 
h
.this_rom
r 
|INX
�LDA command_list,X
�STA zp+2
�INX
�LDA command_list,X
�STA zp+3
�1JMP (zp+2)               \ Table address jump
� 
�.command_list   EQUS "BEEP"
�                EQUB 0
�                EQUW beep
�                EQUS "SEND"
�                EQUB 0
�                EQUW send
"                EQUS "SERVICE"
                EQUB 0
#                EQUW service_on
&$                EQUS "NOSERVICE"
0                EQUB 0
:$                EQUW service_off
D%                EQUS "WHATSYOURS"
N                EQUB 0
X#                EQUW whatsyours
b                EQUB &FF
l!.help_list      EQUS "OSBITS"
v                EQUB 0
�$                EQUW help_text_1
�                EQUB &FF
�	.text
�A.title          EQUS "Demonstration ROM for OSbits Module 24"
�                EQUW 13
�#                EQUS "  OSBITS"
�                EQUW 13
�.help_text
�.help_text_1    EQUB 13
�-                EQUS "*BEEP makes a beep"
�                EQUB 13
�>                EQUS "*SEND prints the argument to output"
�                EQUB 13

A                EQUS "*SERVICE turns on service call display"

                EQUB 13

8                EQUS "*NOSERVICE turns it off again"

                 EQUB 13

*@                EQUS "You can add more commands if you wish"

4                EQUD &0D0D

> 

H.show_service_calls

R 

\5PHA                      \ Save A safely on stack

fLDA service_flag

pBEQ no_show

z 

�PLA

�PHA

�7JSR print_hex            \ Print out hex value of A

�JSR print_space

�TXA

�7JSR print_hex            \ Print out hex value of X

�JSR print_space

�TYA

�7JSR print_hex            \ Print out hex value of Y

�JSR osnewl

� 

�.no_show

�)PLA                      \ Retrieve A
RTS
 
.print_space
$ 
.LDA #32
8JSR oswrch
BRTS
L 
V.print_hex
` 
jPHA
t	LSR A
~	LSR A
�	LSR A
�;LSR A                    \ A now contains higher nybble
�@JSR print_nybble         \ Sends the HEX value of the nybble
�PLA
�8� #&F                  \ A now contains lower nybble
�@JSR print_nybble         \ Sends the HEX value of the nybble
�RTS
�  
�.print_nybble
� 
�C�A #48                  \ This effectively adds 48 in less code
�CMP #58
BCC dont_add

9ADC #6                   \ Carry is set so this is +7
 

.dont_add
( 
2JSR oswrch
<RTS
F 
P,.beep                    \ Dummy routine
Z 
d
LDA #7
n.JSR oswrch               \ Just sends a �7
xJMP exit
� 
�8.send                    \ Prints argument to output
� 
�ASEC                      \ Terminate with CR or second quotes
�0JSR gsinit               \ Initialise string
�8BEQ send_ended           \ Zero set if a null string
� 
�.send_loop
� 
�2JSR gsread               \ Read next character
�6BCS send_ended           \ Carry set if terminator
�JSR osasci
�JMP send_loop
 
.send_ended
 
"JSR osnewl
,JMP exit
6 
@.service_on
J 
T
LDA #1
^STA service_flag
hJMP exit
r 
|.service_off
� 
�
LDA #0
�STA service_flag
�JMP exit
� 
�<.whatsyours              \ Replace with your own routine
� 
�JMP beep
� 
�5.exit                    \ Exit from all commands
� 
�1PLA                      \ Pull Y and discard
�1PLA                      \ Pull X and discard
PLA
STA zp+3
PLA
&STA zp+2
0PLA
:STA zp+1
DPLA
N
STA zp
XPLA
b,LDA #0                   \ Claim command
lRTS
v 
�]
��
�C� '" *SAVE osbrom ";~temp%;" +";~P%-code%;" ";~code%;" ";~code%
�
00000000  0d 00 0a 1c f4 20 20 4f  53 62 69 74 73 20 4d 6f  |.....  OSbits Mo|
00000010  64 75 6c 65 20 42 2f 6f  73 62 32 34 0d 00 14 13  |dule B/osb24....|
00000020  f4 20 20 53 69 64 65 77  61 79 73 20 52 4f 4d 0d  |.  Sideways ROM.|
00000030  00 1e 1a f4 20 20 56 65  72 73 69 6f 6e 20 31 2e  |....  Version 1.|
00000040  34 20 33 30 2e 35 2e 38  37 0d 00 28 05 20 0d 00  |4 30.5.87..(. ..|
00000050  32 15 56 65 72 73 69 6f  6e 24 20 3d 20 22 56 31  |2.Version$ = "V1|
00000060  2e 34 22 0d 00 3c 1b 44  61 74 65 24 20 3d 20 22  |.4"..<.Date$ = "|
00000070  33 30 74 68 20 4d 61 79  20 31 39 38 37 22 0d 00  |30th May 1987"..|
00000080  46 05 20 0d 00 50 15 2a  4b 45 59 31 4d 4f 2e 33  |F. ..P.*KEY1MO.3|
00000090  7c 4d 7c 4e 4c 2e 7c 4d  0d 00 5a 05 20 0d 00 64  ||M|NL.|M..Z. ..d|
000000a0  3f f4 20 4d 65 6d 6f 72  79 20 75 73 61 67 65 20  |?. Memory usage |
000000b0  69 6e 20 5a 65 72 6f 20  50 61 67 65 20 69 73 20  |in Zero Page is |
000000c0  7a 70 20 74 6f 20 7a 70  2b 33 2c 20 61 6c 77 61  |zp to zp+3, alwa|
000000d0  79 73 20 70 72 65 73 65  72 76 65 64 0d 00 6e 3b  |ys preserved..n;|
000000e0  f4 20 44 75 72 69 6e 67  20 2a 63 6f 6d 6d 61 6e  |. During *comman|
000000f0  64 20 70 72 6f 63 65 73  73 69 6e 67 20 77 6f 72  |d processing wor|
00000100  6b 73 70 61 63 65 20 73  74 61 72 74 20 69 73 20  |kspace start is |
00000110  69 6e 20 28 7a 70 29 0d  00 78 05 20 0d 00 82 10  |in (zp)..x. ....|
00000120  6f 73 62 79 74 65 3d 26  46 46 46 34 0d 00 8c 10  |osbyte=&FFF4....|
00000130  6f 73 77 6f 72 64 3d 26  46 46 46 31 0d 00 96 10  |osword=&FFF1....|
00000140  6f 73 77 72 63 68 3d 26  46 46 45 45 0d 00 a0 10  |oswrch=&FFEE....|
00000150  6f 73 72 64 63 68 3d 26  46 46 45 30 0d 00 aa 10  |osrdch=&FFE0....|
00000160  6f 73 6e 65 77 6c 3d 26  46 46 45 37 0d 00 b4 10  |osnewl=&FFE7....|
00000170  6f 73 61 73 63 69 3d 26  46 46 45 33 0d 00 be 10  |osasci=&FFE3....|
00000180  67 73 69 6e 69 74 3d 26  46 46 43 32 0d 00 c8 10  |gsinit=&FFC2....|
00000190  67 73 72 65 61 64 3d 26  46 46 43 35 0d 00 d2 05  |gsread=&FFC5....|
000001a0  20 0d 00 dc 26 f4 20 20  4f 70 65 72 61 74 69 6e  | ...&.  Operatin|
000001b0  67 20 73 79 73 74 65 6d  20 63 61 6c 6c 20 77 6f  |g system call wo|
000001c0  72 6b 73 70 61 63 65 0d  00 e6 0a 7a 70 3d 26 41  |rkspace....zp=&A|
000001d0  38 0d 00 f0 24 f4 20 20  46 6c 61 67 20 66 6f 72  |8...$.  Flag for|
000001e0  20 73 65 72 76 69 63 65  20 63 61 6c 6c 20 64 69  | service call di|
000001f0  73 70 6c 61 79 0d 00 fa  15 73 65 72 76 69 63 65  |splay....service|
00000200  5f 66 6c 61 67 3d 26 32  38 41 0d 01 04 05 20 0d  |_flag=&28A.... .|
00000210  01 0e 13 63 6f 64 65 25  3d 26 46 46 46 46 38 30  |...code%=&FFFF80|
00000220  30 30 0d 01 18 05 20 0d  01 22 10 de 20 74 65 6d  |00.... ..".. tem|
00000230  70 25 20 26 33 30 30 0d  01 2c 05 20 0d 01 36 15  |p% &300..,. ..6.|
00000240  e3 20 70 61 73 73 25 3d  34 20 b8 20 36 20 88 20  |. pass%=4 . 6 . |
00000250  32 0d 01 40 05 20 0d 01  4a 0c 50 25 3d 63 6f 64  |2..@. ..J.P%=cod|
00000260  65 25 0d 01 54 0c 4f 25  3d 74 65 6d 70 25 0d 01  |e%..T.O%=temp%..|
00000270  5e 05 20 0d 01 68 0e 5b  4f 50 54 20 70 61 73 73  |^. ..h.[OPT pass|
00000280  25 0d 01 72 05 20 0d 01  7c 0a 45 51 55 57 20 30  |%..r. ..|.EQUW 0|
00000290  0d 01 86 47 45 51 55 42  20 30 20 20 20 20 20 20  |...GEQUB 0      |
000002a0  20 20 20 20 20 20 20 20  20 20 20 20 20 5c 20 53  |             \ S|
000002b0  65 74 20 66 69 72 73 74  20 33 20 62 79 74 65 73  |et first 3 bytes|
000002c0  20 74 6f 20 7a 65 72 6f  20 28 53 65 72 76 69 63  | to zero (Servic|
000002d0  65 20 6f 6e 6c 79 29 0d  01 90 05 20 0d 01 9a 1b  |e only).... ....|
000002e0  4a 4d 50 20 73 65 72 76  69 63 65 5f 65 6e 74 72  |JMP service_entr|
000002f0  79 5f 70 6f 69 6e 74 0d  01 a4 05 20 0d 01 ae 44  |y_point.... ...D|
00000300  45 51 55 42 20 26 38 32  20 20 20 20 20 20 20 20  |EQUB &82        |
00000310  20 20 20 20 20 20 20 20  20 5c 20 44 65 66 69 6e  |         \ Defin|
00000320  65 20 52 4f 4d 20 74 79  70 65 20 28 53 65 72 76  |e ROM type (Serv|
00000330  69 63 65 2c 20 36 35 30  32 20 6d 63 6f 64 65 29  |ice, 6502 mcode)|
00000340  0d 01 b8 36 45 51 55 42  20 63 6f 70 79 72 69 67  |...6EQUB copyrig|
00000350  68 74 20 2d 20 63 6f 64  65 25 20 20 20 5c 20 43  |ht - code%   \ C|
00000360  6f 70 79 72 69 67 68 74  20 73 74 72 69 6e 67 20  |opyright string |
00000370  6f 66 66 73 65 74 0d 01  c2 26 45 51 55 42 20 30  |offset...&EQUB 0|
00000380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000390  20 20 20 5c 20 56 65 72  73 69 6f 6e 0d 01 cc 05  |   \ Version....|
000003a0  20 0d 01 d6 36 2e 72 6f  6d 5f 74 69 74 6c 65 20  | ...6.rom_title |
000003b0  20 20 20 20 20 20 20 45  51 55 53 20 22 4f 53 62  |       EQUS "OSb|
000003c0  69 74 73 20 44 65 6d 6f  20 52 4f 4d 20 22 2b 56  |its Demo ROM "+V|
000003d0  65 72 73 69 6f 6e 24 0d  01 e0 05 20 0d 01 ea 30  |ersion$.... ...0|
000003e0  2e 63 6f 70 79 72 69 67  68 74 20 20 20 20 20 20  |.copyright      |
000003f0  20 20 45 51 55 53 20 bd  30 2b 22 28 43 29 42 42  |  EQUS .0+"(C)BB|
00000400  43 20 22 2b 44 61 74 65  24 2b bd 30 0d 01 f4 05  |C "+Date$+.0....|
00000410  20 0d 01 fe 18 2e 73 65  72 76 69 63 65 5f 65 6e  | .....service_en|
00000420  74 72 79 5f 70 6f 69 6e  74 0d 02 08 05 20 0d 02  |try_point.... ..|
00000430  12 1a 4a 53 52 20 73 68  6f 77 5f 73 65 72 76 69  |..JSR show_servi|
00000440  63 65 5f 63 61 6c 6c 73  0d 02 1c 05 20 0d 02 26  |ce_calls.... ..&|
00000450  07 50 48 41 0d 02 30 3a  5c 20 20 43 4d 50 20 23  |.PHA..0:\  CMP #|
00000460  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
00000470  20 20 20 20 5c 20 43 6c  61 69 6d 20 70 72 69 76  |    \ Claim priv|
00000480  61 74 65 20 77 6f 72 6b  20 73 70 61 63 65 0d 02  |ate work space..|
00000490  3a 12 5c 20 20 42 4e 45  20 6e 6f 74 5f 73 63 32  |:.\  BNE not_sc2|
000004a0  0d 02 44 3a 5c 20 20 54  59 41 20 20 20 20 20 20  |..D:\  TYA      |
000004b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004c0  5c 20 59 20 2d 20 4f 53  48 57 4d 20 58 20 2d 20  |\ Y - OSHWM X - |
000004d0  52 4f 4d 20 6e 75 6d 62  65 72 0d 02 4e 40 5c 20  |ROM number..N@\ |
000004e0  20 53 54 41 20 26 44 46  30 2c 58 20 20 20 20 20  | STA &DF0,X     |
000004f0  20 20 20 20 20 20 20 20  20 20 5c 20 49 6e 64 65  |          \ Inde|
00000500  78 20 69 6e 74 6f 20 52  4f 4d 20 77 6f 72 6b 73  |x into ROM works|
00000510  70 61 63 65 20 74 61 62  6c 65 0d 02 58 3e 5c 20  |pace table..X>\ |
00000520  20 49 4e 59 20 20 20 20  20 20 20 20 20 20 20 20  | INY            |
00000530  20 20 20 20 20 20 20 20  20 20 5c 20 57 65 20 6e  |          \ We n|
00000540  65 65 64 20 6f 6e 6c 79  20 31 20 70 61 67 65 20  |eed only 1 page |
00000550  6f 66 20 73 70 61 63 65  0d 02 62 0e 5c 20 20 4a  |of space..b.\  J|
00000560  4d 50 20 6f 75 74 0d 02  6c 05 20 0d 02 76 0c 2e  |MP out..l. ..v..|
00000570  6e 6f 74 5f 73 63 32 0d  02 80 05 20 0d 02 8a 40  |not_sc2.... ...@|
00000580  43 4d 50 20 23 33 20 20  20 20 20 20 20 20 20 20  |CMP #3          |
00000590  20 20 20 20 20 20 20 20  20 5c 20 55 73 65 20 73  |         \ Use s|
000005a0  65 72 76 69 63 65 20 63  61 6c 6c 20 33 20 74 6f  |ervice call 3 to|
000005b0  20 70 72 69 6e 74 20 69  64 65 6e 74 0d 02 94 0f  | print ident....|
000005c0  42 4e 45 20 6e 6f 74 5f  73 63 33 0d 02 9e 07 54  |BNE not_sc3....T|
000005d0  58 41 0d 02 a8 07 50 48  41 0d 02 b2 15 4c 44 58  |XA....PHA....LDX|
000005e0  20 23 28 74 69 74 6c 65  2d 74 65 78 74 29 0d 02  | #(title-text)..|
000005f0  bc 07 44 45 58 0d 02 c6  12 4a 53 52 20 70 72 69  |..DEX....JSR pri|
00000600  6e 74 5f 74 65 78 74 0d  02 d0 0e 4a 53 52 20 6f  |nt_text....JSR o|
00000610  73 6e 65 77 6c 0d 02 da  07 50 4c 41 0d 02 e4 07  |snewl....PLA....|
00000620  54 41 58 0d 02 ee 0f 5c  20 20 4c 44 41 20 7a 70  |TAX....\  LDA zp|
00000630  2b 32 0d 02 f8 0a 5c 20  20 50 48 41 0d 03 02 0f  |+2....\  PHA....|
00000640  5c 20 20 4c 44 41 20 7a  70 2b 33 0d 03 0c 0a 5c  |\  LDA zp+3....\|
00000650  20 20 50 48 41 0d 03 16  0a 5c 20 20 54 59 41 0d  |  PHA....\  TYA.|
00000660  03 20 0a 5c 20 20 50 48  41 0d 03 2a 12 5c 20 20  |. .\  PHA..*.\  |
00000670  4c 44 41 20 26 44 46 30  2c 20 58 0d 03 34 0f 5c  |LDA &DF0, X..4.\|
00000680  20 20 53 54 41 20 7a 70  2b 33 0d 03 3e 0d 5c 20  |  STA zp+3..>.\ |
00000690  20 4c 44 41 20 23 30 0d  03 48 0f 5c 20 20 53 54  | LDA #0..H.\  ST|
000006a0  41 20 7a 70 2b 32 0d 03  52 40 5c 20 20 4c 44 59  |A zp+2..R@\  LDY|
000006b0  20 23 31 35 20 20 20 20  20 20 20 20 20 20 20 20  | #15            |
000006c0  20 20 20 20 20 20 5c 20  4e 6f 20 6f 66 20 77 6f  |      \ No of wo|
000006d0  72 6b 73 70 61 63 65 20  62 79 74 65 73 20 74 6f  |rkspace bytes to|
000006e0  20 63 6c 65 61 72 0d 03  5c 05 20 0d 03 66 17 5c  | clear..\. ..f.\|
000006f0  20 20 2e 63 6c 65 61 72  5f 77 6f 72 6b 73 70 61  |  .clear_workspa|
00000700  63 65 0d 03 70 05 20 0d  03 7a 0a 5c 20 20 44 45  |ce..p. ..z.\  DE|
00000710  59 0d 03 84 3a 5c 20 20  53 54 41 20 28 7a 70 2b  |Y...:\  STA (zp+|
00000720  32 29 2c 20 59 20 20 20  20 20 20 20 20 20 20 20  |2), Y           |
00000730  20 5c 20 52 65 73 65 74  20 62 79 74 65 73 20 6f  | \ Reset bytes o|
00000740  66 20 77 6f 72 6b 73 70  61 63 65 0d 03 8e 1a 5c  |f workspace....\|
00000750  20 20 42 4e 45 20 63 6c  65 61 72 5f 77 6f 72 6b  |  BNE clear_work|
00000760  73 70 61 63 65 0d 03 98  0a 5c 20 20 50 4c 41 0d  |space....\  PLA.|
00000770  03 a2 0a 5c 20 20 54 41  59 0d 03 ac 0a 5c 20 20  |...\  TAY....\  |
00000780  50 4c 41 0d 03 b6 0f 5c  20 20 53 54 41 20 7a 70  |PLA....\  STA zp|
00000790  2b 33 0d 03 c0 0a 5c 20  20 50 4c 41 0d 03 ca 0f  |+3....\  PLA....|
000007a0  5c 20 20 53 54 41 20 7a  70 2b 32 0d 03 d4 0b 4a  |\  STA zp+2....J|
000007b0  4d 50 20 6f 75 74 0d 03  de 05 20 0d 03 e8 0c 2e  |MP out.... .....|
000007c0  6e 6f 74 5f 73 63 33 0d  03 f2 05 20 0d 03 fc 34  |not_sc3.... ...4|
000007d0  43 4d 50 20 23 34 20 20  20 20 20 20 20 20 20 20  |CMP #4          |
000007e0  20 20 20 20 20 20 20 20  20 5c 20 55 6e 72 65 63  |         \ Unrec|
000007f0  6f 67 6e 69 73 65 64 20  63 6f 6d 6d 61 6e 64 73  |ognised commands|
00000800  0d 04 06 0f 42 4e 45 20  6e 6f 74 5f 73 63 34 0d  |....BNE not_sc4.|
00000810  04 10 10 4a 4d 50 20 63  6f 6d 6d 61 6e 64 73 0d  |...JMP commands.|
00000820  04 1a 05 20 0d 04 24 0c  2e 6e 6f 74 5f 73 63 34  |... ..$..not_sc4|
00000830  0d 04 2e 05 20 0d 04 38  36 43 4d 50 20 23 39 20  |.... ..86CMP #9 |
00000840  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000850  20 20 5c 20 53 65 72 76  69 63 65 20 63 61 6c 6c  |  \ Service call|
00000860  20 39 20 69 73 20 2a 48  45 4c 50 0d 04 42 0f 42  | 9 is *HELP..B.B|
00000870  4e 45 20 6e 6f 74 5f 73  63 39 0d 04 4c 17 4a 4d  |NE not_sc9..L.JM|
00000880  50 20 68 65 6c 70 5f 70  72 6f 63 65 73 73 69 6e  |P help_processin|
00000890  67 0d 04 56 05 20 0d 04  60 0c 2e 6e 6f 74 5f 73  |g..V. ..`..not_s|
000008a0  63 39 0d 04 6a 08 2e 6f  75 74 0d 04 74 05 20 0d  |c9..j..out..t. .|
000008b0  04 7e 07 50 4c 41 0d 04  88 07 52 54 53 0d 04 92  |.~.PLA....RTS...|
000008c0  05 20 0d 04 9c 14 2e 68  65 6c 70 5f 70 72 6f 63  |. .....help_proc|
000008d0  65 73 73 69 6e 67 0d 04  a6 05 20 0d 04 b0 07 54  |essing.... ....T|
000008e0  58 41 0d 04 ba 07 50 48  41 0d 04 c4 3f 4c 44 41  |XA....PHA...?LDA|
000008f0  20 28 26 46 32 29 2c 20  59 20 20 20 20 20 20 20  | (&F2), Y       |
00000900  20 20 20 20 20 20 5c 20  4c 6f 6f 6b 20 61 74 20  |      \ Look at |
00000910  63 68 61 72 61 63 74 65  72 20 66 6f 6c 6c 6f 77  |character follow|
00000920  69 6e 67 20 48 45 4c 50  0d 04 ce 0b 43 4d 50 20  |ing HELP....CMP |
00000930  23 31 33 0d 04 d8 42 42  4e 45 20 73 70 65 63 69  |#13...BBNE speci|
00000940  66 69 63 5f 68 65 6c 70  20 20 20 20 20 20 20 20  |fic_help        |
00000950  5c 20 49 66 20 6e 6f 74  20 43 52 20 74 68 65 6e  |\ If not CR then|
00000960  20 72 65 73 70 6f 6e 64  20 74 6f 20 6e 65 78 74  | respond to next|
00000970  20 77 6f 72 64 0d 04 e2  0e 4a 53 52 20 6f 73 6e  | word....JSR osn|
00000980  65 77 6c 0d 04 ec 15 4c  44 58 20 23 28 74 69 74  |ewl....LDX #(tit|
00000990  6c 65 2d 74 65 78 74 29  0d 04 f6 07 44 45 58 0d  |le-text)....DEX.|
000009a0  05 00 2e 4a 53 52 20 70  72 69 6e 74 5f 74 65 78  |...JSR print_tex|
000009b0  74 20 20 20 20 20 20 20  20 20 20 20 5c 20 50 72  |t           \ Pr|
000009c0  69 6e 74 20 6f 75 74 20  74 69 74 6c 65 0d 05 0a  |int out title...|
000009d0  36 4a 53 52 20 70 72 69  6e 74 5f 74 65 78 74 20  |6JSR print_text |
000009e0  20 20 20 20 20 20 20 20  20 20 5c 20 61 6e 64 20  |          \ and |
000009f0  70 72 69 6e 74 20 6f 75  74 20 6b 65 79 20 77 6f  |print out key wo|
00000a00  72 64 73 0d 05 14 07 50  4c 41 0d 05 1e 07 54 41  |rds....PLA....TA|
00000a10  58 0d 05 28 0b 4a 4d 50  20 6f 75 74 0d 05 32 05  |X..(.JMP out..2.|
00000a20  20 0d 05 3c 12 2e 73 70  65 63 69 66 69 63 5f 68  | ..<..specific_h|
00000a30  65 6c 70 0d 05 46 05 20  0d 05 50 07 50 4c 41 0d  |elp..F. ..P.PLA.|
00000a40  05 5a 07 54 41 58 0d 05  64 0c 4c 44 41 20 7a 70  |.Z.TAX..d.LDA zp|
00000a50  2b 32 0d 05 6e 07 50 48  41 0d 05 78 0c 4c 44 41  |+2..n.PHA..x.LDA|
00000a60  20 7a 70 2b 33 0d 05 82  07 50 48 41 0d 05 8c 07  | zp+3....PHA....|
00000a70  54 58 41 0d 05 96 25 50  48 41 20 20 20 20 20 20  |TXA...%PHA      |
00000a80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a90  5c 20 53 61 76 65 20 58  0d 05 a0 07 44 45 59 0d  |\ Save X....DEY.|
00000aa0  05 aa 07 54 59 41 0d 05  b4 30 50 48 41 20 20 20  |...TYA...0PHA   |
00000ab0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ac0  20 20 20 5c 20 53 61 76  65 20 59 2d 31 20 6f 6e  |   \ Save Y-1 on|
00000ad0  20 73 74 61 63 6b 0d 05  be 0c 4c 44 58 20 23 26  | stack....LDX #&|
00000ae0  46 46 0d 05 c8 05 20 0d  05 d2 0e 2e 68 65 6c 70  |FF.... .....help|
00000af0  5f 6c 6f 6f 70 0d 05 dc  05 20 0d 05 e6 07 49 4e  |_loop.... ....IN|
00000b00  58 0d 05 f0 07 49 4e 59  0d 05 fa 44 4c 44 41 20  |X....INY...DLDA |
00000b10  68 65 6c 70 5f 6c 69 73  74 2c 20 58 20 20 20 20  |help_list, X    |
00000b20  20 20 20 20 20 5c 20 4c  6f 61 64 20 63 68 61 72  |     \ Load char|
00000b30  61 63 74 65 72 20 66 72  6f 6d 20 68 65 6c 70 20  |acter from help |
00000b40  63 6f 6d 6d 61 6e 64 20  6c 69 73 74 0d 06 04 17  |command list....|
00000b50  42 45 51 20 68 65 6c 70  5f 72 65 63 6f 67 6e 69  |BEQ help_recogni|
00000b60  73 65 64 0d 06 0e 0c 43  4d 50 20 23 26 46 46 0d  |sed....CMP #&FF.|
00000b70  06 18 15 42 45 51 20 6e  6f 74 5f 74 68 69 73 5f  |...BEQ not_this_|
00000b80  68 65 6c 70 0d 06 22 3f  4c 44 41 20 28 26 46 32  |help.."?LDA (&F2|
00000b90  29 2c 20 59 20 20 20 20  20 20 20 20 20 20 20 20  |), Y            |
00000ba0  20 5c 20 4c 6f 6f 6b 20  61 74 20 63 68 61 72 61  | \ Look at chara|
00000bb0  63 74 65 72 20 66 6f 6c  6c 6f 77 69 6e 67 20 48  |cter following H|
00000bc0  45 4c 50 0d 06 2c 2f 80  20 23 26 44 46 20 20 20  |ELP..,/. #&DF   |
00000bd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
00000be0  4d 61 6b 65 20 69 74 20  63 61 73 65 20 70 72 6f  |Make it case pro|
00000bf0  6f 66 0d 06 36 14 43 4d  50 20 68 65 6c 70 5f 6c  |of..6.CMP help_l|
00000c00  69 73 74 2c 20 58 0d 06  40 11 42 45 51 20 68 65  |ist, X..@.BEQ he|
00000c10  6c 70 5f 6c 6f 6f 70 0d  06 4a 05 20 0d 06 54 13  |lp_loop..J. ..T.|
00000c20  2e 61 6e 6f 74 68 65 72  5f 73 65 61 72 63 68 0d  |.another_search.|
00000c30  06 5e 05 20 0d 06 68 07  49 4e 58 0d 06 72 14 4c  |.^. ..h.INX..r.L|
00000c40  44 41 20 68 65 6c 70 5f  6c 69 73 74 2c 20 58 0d  |DA help_list, X.|
00000c50  06 7c 34 42 4e 45 20 61  6e 6f 74 68 65 72 5f 73  |.|4BNE another_s|
00000c60  65 61 72 63 68 20 20 20  20 20 20 20 5c 20 4c 6f  |earch       \ Lo|
00000c70  6f 6b 69 6e 67 20 66 6f  72 20 6e 65 78 74 20 6e  |oking for next n|
00000c80  75 6c 6c 0d 06 86 07 49  4e 58 0d 06 90 2b 49 4e  |ull....INX...+IN|
00000c90  58 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |X               |
00000ca0  20 20 20 20 20 20 20 5c  20 53 6b 69 70 20 32 20  |       \ Skip 2 |
00000cb0  62 79 74 65 73 0d 06 9a  32 50 4c 41 20 20 20 20  |bytes...2PLA    |
00000cc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000cd0  20 20 5c 20 50 75 6c 6c  20 59 2d 31 20 66 72 6f  |  \ Pull Y-1 fro|
00000ce0  6d 20 73 74 61 63 6b 0d  06 a4 35 54 41 59 20 20  |m stack...5TAY  |
00000cf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d00  20 20 20 20 5c 20 50 75  74 20 62 61 63 6b 20 69  |    \ Put back i|
00000d10  6e 20 59 20 72 65 67 69  73 74 65 72 0d 06 ae 3b  |n Y register...;|
00000d20  50 48 41 20 20 20 20 20  20 20 20 20 20 20 20 20  |PHA             |
00000d30  20 20 20 20 20 20 20 20  20 5c 20 52 65 74 75 72  |         \ Retur|
00000d40  6e 20 74 6f 20 73 74 61  63 6b 20 66 6f 72 20 6e  |n to stack for n|
00000d50  65 78 74 20 74 72 79 0d  06 b8 45 4a 4d 50 20 68  |ext try...EJMP h|
00000d60  65 6c 70 5f 6c 6f 6f 70  20 20 20 20 20 20 20 20  |elp_loop        |
00000d70  20 20 20 20 5c 20 53 65  65 20 69 66 20 74 68 69  |    \ See if thi|
00000d80  73 20 6e 65 78 74 20 63  6f 6d 6d 61 6e 64 20 69  |s next command i|
00000d90  73 20 72 65 63 6f 67 6e  69 73 65 64 0d 06 c2 05  |s recognised....|
00000da0  20 0d 06 cc 12 2e 6e 6f  74 5f 74 68 69 73 5f 68  | .....not_this_h|
00000db0  65 6c 70 0d 06 d6 05 20  0d 06 e0 07 50 4c 41 0d  |elp.... ....PLA.|
00000dc0  06 ea 07 54 41 59 0d 06  f4 07 49 4e 59 0d 06 fe  |...TAY....INY...|
00000dd0  07 50 4c 41 0d 07 08 07  54 41 58 0d 07 12 07 50  |.PLA....TAX....P|
00000de0  4c 41 0d 07 1c 0c 53 54  41 20 7a 70 2b 33 0d 07  |LA....STA zp+3..|
00000df0  26 07 50 4c 41 0d 07 30  0c 53 54 41 20 7a 70 2b  |&.PLA..0.STA zp+|
00000e00  32 0d 07 3a 44 50 4c 41  20 20 20 20 20 20 20 20  |2..:DPLA        |
00000e10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
00000e20  52 65 73 74 6f 72 65 20  61 6c 6c 20 72 65 67 69  |Restore all regi|
00000e30  73 74 65 72 73 20 62 65  66 6f 72 65 20 71 75 69  |sters before qui|
00000e40  74 74 69 6e 67 0d 07 44  07 52 54 53 0d 07 4e 05  |tting..D.RTS..N.|
00000e50  20 0d 07 58 14 2e 68 65  6c 70 5f 72 65 63 6f 67  | ..X..help_recog|
00000e60  6e 69 73 65 64 0d 07 62  05 20 0d 07 6c 0e 4a 53  |nised..b. ..l.JS|
00000e70  52 20 6f 73 6e 65 77 6c  0d 07 76 48 49 4e 58 20  |R osnewl..vHINX |
00000e80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000e90  20 20 20 20 20 5c 20 4d  61 6b 65 20 58 20 70 6f  |     \ Make X po|
00000ea0  69 6e 74 20 74 6f 20 72  65 73 70 6f 6e 73 65 20  |int to response |
00000eb0  61 64 64 72 65 73 73 20  69 6e 20 74 61 62 6c 65  |address in table|
00000ec0  0d 07 80 14 4c 44 41 20  68 65 6c 70 5f 6c 69 73  |....LDA help_lis|
00000ed0  74 2c 20 58 0d 07 8a 0c  53 54 41 20 7a 70 2b 32  |t, X....STA zp+2|
00000ee0  0d 07 94 07 49 4e 58 0d  07 9e 14 4c 44 41 20 68  |....INX....LDA h|
00000ef0  65 6c 70 5f 6c 69 73 74  2c 20 58 0d 07 a8 44 53  |elp_list, X...DS|
00000f00  54 41 20 7a 70 2b 33 20  20 20 20 20 20 20 20 20  |TA zp+3         |
00000f10  20 20 20 20 20 20 20 20  5c 20 53 74 6f 72 65 20  |        \ Store |
00000f20  72 65 73 70 6f 6e 73 65  20 74 65 78 74 20 61 64  |response text ad|
00000f30  64 72 65 73 73 20 69 6e  20 28 7a 70 2b 32 29 0d  |dress in (zp+2).|
00000f40  07 b2 0c 4c 44 59 20 23  26 46 46 0d 07 bc 2e 4c  |...LDY #&FF....L|
00000f50  44 58 20 23 28 74 69 74  6c 65 2d 74 65 78 74 29  |DX #(title-text)|
00000f60  20 20 20 20 20 20 20 20  5c 20 50 72 69 6e 74 20  |        \ Print |
00000f70  6f 75 74 20 74 69 74 6c  65 0d 07 c6 07 44 45 58  |out title....DEX|
00000f80  0d 07 d0 12 4a 53 52 20  70 72 69 6e 74 5f 74 65  |....JSR print_te|
00000f90  78 74 0d 07 da 05 20 0d  07 e4 19 2e 68 65 6c 70  |xt.... .....help|
00000fa0  5f 72 65 63 6f 67 6e 69  73 65 64 5f 6c 6f 6f 70  |_recognised_loop|
00000fb0  0d 07 ee 05 20 0d 07 f8  07 49 4e 59 0d 08 02 11  |.... ....INY....|
00000fc0  4c 44 41 20 28 7a 70 2b  32 29 2c 20 59 0d 08 0c  |LDA (zp+2), Y...|
00000fd0  3c 4a 53 52 20 6f 73 61  73 63 69 20 20 20 20 20  |<JSR osasci     |
00000fe0  20 20 20 20 20 20 20 20  20 20 5c 20 50 72 69 6e  |          \ Prin|
00000ff0  74 20 6f 75 74 20 72 65  73 70 6f 6e 73 65 20 28  |t out response (|
00001000  4e 75 6c 6c 3d 45 4f 54  29 0d 08 16 1c 42 4e 45  |Null=EOT)....BNE|
00001010  20 68 65 6c 70 5f 72 65  63 6f 67 6e 69 73 65 64  | help_recognised|
00001020  5f 6c 6f 6f 70 0d 08 20  07 50 4c 41 0d 08 2a 44  |_loop.. .PLA..*D|
00001030  54 41 59 20 20 20 20 20  20 20 20 20 20 20 20 20  |TAY             |
00001040  20 20 20 20 20 20 20 20  20 5c 20 52 65 73 74 6f  |         \ Resto|
00001050  72 65 20 61 6c 6c 20 72  65 67 69 73 74 65 72 73  |re all registers|
00001060  20 62 65 66 6f 72 65 20  71 75 69 74 74 69 6e 67  | before quitting|
00001070  0d 08 34 07 49 4e 59 0d  08 3e 07 50 4c 41 0d 08  |..4.INY..>.PLA..|
00001080  48 07 54 41 58 0d 08 52  07 50 4c 41 0d 08 5c 0c  |H.TAX..R.PLA..\.|
00001090  53 54 41 20 7a 70 2b 33  0d 08 66 07 50 4c 41 0d  |STA zp+3..f.PLA.|
000010a0  08 70 0c 53 54 41 20 7a  70 2b 32 0d 08 7a 07 50  |.p.STA zp+2..z.P|
000010b0  4c 41 0d 08 84 07 52 54  53 0d 08 8e 05 20 0d 08  |LA....RTS.... ..|
000010c0  98 41 2e 70 72 69 6e 74  5f 74 65 78 74 20 20 20  |.A.print_text   |
000010d0  20 20 20 20 20 20 20 20  20 20 20 5c 20 50 72 69  |           \ Pri|
000010e0  6e 74 20 74 65 78 74 20  6f 66 66 73 65 74 20 66  |nt text offset f|
000010f0  72 6f 6d 20 27 74 65 78  74 27 20 62 79 20 58 0d  |rom 'text' by X.|
00001100  08 a2 05 20 0d 08 ac 07  49 4e 58 0d 08 b6 0f 4c  |... ....INX....L|
00001110  44 41 20 74 65 78 74 2c  20 58 0d 08 c0 0e 4a 53  |DA text, X....JS|
00001120  52 20 6f 73 61 73 63 69  0d 08 ca 31 42 4e 45 20  |R osasci...1BNE |
00001130  70 72 69 6e 74 5f 74 65  78 74 20 20 20 20 20 20  |print_text      |
00001140  20 20 20 20 20 5c 20 4e  75 6c 6c 20 3d 20 45 6e  |     \ Null = En|
00001150  64 20 6f 66 20 74 65 78  74 0d 08 d4 07 52 54 53  |d of text....RTS|
00001160  0d 08 de 05 20 0d 08 e8  0d 2e 63 6f 6d 6d 61 6e  |.... .....comman|
00001170  64 73 0d 08 f2 05 20 0d  08 fc 0a 4c 44 41 20 7a  |ds.... ....LDA z|
00001180  70 0d 09 06 07 50 48 41  0d 09 10 0c 4c 44 41 20  |p....PHA....LDA |
00001190  7a 70 2b 31 0d 09 1a 07  50 48 41 0d 09 24 0c 4c  |zp+1....PHA..$.L|
000011a0  44 41 20 7a 70 2b 32 0d  09 2e 07 50 48 41 0d 09  |DA zp+2....PHA..|
000011b0  38 0c 4c 44 41 20 7a 70  2b 33 0d 09 42 44 50 48  |8.LDA zp+3..BDPH|
000011c0  41 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |A               |
000011d0  20 20 20 20 20 20 20 5c  20 53 74 6f 72 65 20 76  |       \ Store v|
000011e0  61 6c 75 65 73 20 68 65  6c 64 20 69 6e 20 7a 70  |alues held in zp|
000011f0  2f 7a 70 2b 33 20 6f 6e  20 73 74 61 63 6b 0d 09  |/zp+3 on stack..|
00001200  4c 38 4c 44 41 20 26 44  46 30 2c 20 58 20 20 20  |L8LDA &DF0, X   |
00001210  20 20 20 20 20 20 20 20  20 20 20 5c 20 4d 53 42  |           \ MSB|
00001220  20 6f 66 20 73 74 61 72  74 20 6f 66 20 77 6f 72  | of start of wor|
00001230  6b 73 70 61 63 65 0d 09  56 0c 53 54 41 20 7a 70  |kspace..V.STA zp|
00001240  2b 31 0d 09 60 0a 4c 44  41 20 23 30 0d 09 6a 39  |+1..`.LDA #0..j9|
00001250  53 54 41 20 7a 70 20 20  20 20 20 20 20 20 20 20  |STA zp          |
00001260  20 20 20 20 20 20 20 20  20 5c 20 57 27 73 70 61  |         \ W'spa|
00001270  63 65 20 6e 6f 77 20 73  74 6f 72 65 64 20 69 6e  |ce now stored in|
00001280  20 28 7a 70 29 0d 09 74  07 54 58 41 0d 09 7e 07  | (zp)..t.TXA..~.|
00001290  50 48 41 0d 09 88 07 44  45 59 0d 09 92 07 54 59  |PHA....DEY....TY|
000012a0  41 0d 09 9c 35 50 48 41  20 20 20 20 20 20 20 20  |A...5PHA        |
000012b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 20  |              \ |
000012c0  53 74 6f 72 65 20 59 2d  31 20 6f 6e 20 74 68 65  |Store Y-1 on the|
000012d0  20 73 74 61 63 6b 0d 09  a6 0c 4c 44 58 20 23 26  | stack....LDX #&|
000012e0  46 46 0d 09 b0 05 20 0d  09 ba 12 2e 63 6f 6d 6d  |FF.... .....comm|
000012f0  61 6e 64 73 5f 6c 6f 6f  70 0d 09 c4 05 20 0d 09  |ands_loop.... ..|
00001300  ce 07 49 4e 58 0d 09 d8  07 49 4e 59 0d 09 e2 16  |..INX....INY....|
00001310  4c 44 41 20 63 6f 6d 6d  61 6e 64 5f 6c 69 73 74  |LDA command_list|
00001320  2c 58 0d 09 ec 48 42 45  51 20 74 68 69 73 5f 72  |,X...HBEQ this_r|
00001330  6f 6d 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |om             \|
00001340  20 41 20 6e 75 6c 6c 20  62 79 74 65 20 6d 65 61  | A null byte mea|
00001350  6e 73 20 61 20 63 6f 6d  6d 61 6e 64 20 69 73 20  |ns a command is |
00001360  72 65 63 6f 67 6e 69 73  65 64 0d 09 f6 0c 43 4d  |recognised....CM|
00001370  50 20 23 26 46 46 0d 0a  00 3a 42 45 51 20 6e 6f  |P #&FF...:BEQ no|
00001380  74 5f 74 68 69 73 5f 72  6f 6d 20 20 20 20 20 20  |t_this_rom      |
00001390  20 20 20 5c 20 26 46 46  20 69 73 20 65 6e 64 20  |   \ &FF is end |
000013a0  6f 66 20 63 6f 6d 6d 61  6e 64 20 74 61 62 6c 65  |of command table|
000013b0  0d 0a 0a 45 4c 44 41 20  28 26 46 32 29 2c 59 20  |...ELDA (&F2),Y |
000013c0  20 20 20 20 20 20 20 20  20 20 20 20 20 5c 20 53  |             \ S|
000013d0  74 72 69 6e 67 20 69 73  20 68 65 6c 64 20 66 72  |tring is held fr|
000013e0  6f 6d 20 3f 26 46 32 20  6f 6e 77 61 72 64 73 20  |om ?&F2 onwards |
000013f0  74 6f 20 43 52 0d 0a 14  30 80 20 23 26 44 46 20  |to CR...0. #&DF |
00001400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001410  5c 20 4d 61 6b 65 20 69  74 20 63 61 73 65 20 70  |\ Make it case p|
00001420  72 6f 6f 66 21 0d 0a 1e  16 43 4d 50 20 63 6f 6d  |roof!....CMP com|
00001430  6d 61 6e 64 5f 6c 69 73  74 2c 58 0d 0a 28 15 42  |mand_list,X..(.B|
00001440  45 51 20 63 6f 6d 6d 61  6e 64 73 5f 6c 6f 6f 70  |EQ commands_loop|
00001450  0d 0a 32 05 20 0d 0a 3c  38 2e 72 65 70 65 61 74  |..2. ..<8.repeat|
00001460  5f 73 65 61 72 63 68 20  20 20 20 20 20 20 20 20  |_search         |
00001470  20 20 5c 20 43 6f 6d 6d  61 6e 64 20 69 73 20 6e  |  \ Command is n|
00001480  6f 74 20 72 65 63 6f 67  6e 69 73 65 64 0d 0a 46  |ot recognised..F|
00001490  05 20 0d 0a 50 07 49 4e  58 0d 0a 5a 16 4c 44 41  |. ..P.INX..Z.LDA|
000014a0  20 63 6f 6d 6d 61 6e 64  5f 6c 69 73 74 2c 58 0d  | command_list,X.|
000014b0  0a 64 35 42 4e 45 20 72  65 70 65 61 74 5f 73 65  |.d5BNE repeat_se|
000014c0  61 72 63 68 20 20 20 20  20 20 20 20 5c 20 4c 6f  |arch        \ Lo|
000014d0  6f 6b 20 66 6f 72 20 74  68 65 20 6e 65 78 74 20  |ok for the next |
000014e0  6e 75 6c 6c 0d 0a 6e 07  49 4e 58 0d 0a 78 38 49  |null..n.INX..x8I|
000014f0  4e 58 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |NX              |
00001500  20 20 20 20 20 20 20 20  5c 20 57 68 65 6e 20 66  |        \ When f|
00001510  6f 75 6e 64 20 73 6b 69  70 20 74 77 6f 20 62 79  |ound skip two by|
00001520  74 65 73 0d 0a 82 32 50  4c 41 20 20 20 20 20 20  |tes...2PLA      |
00001530  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001540  5c 20 50 75 6c 6c 20 59  2d 31 20 66 72 6f 6d 20  |\ Pull Y-1 from |
00001550  73 74 61 63 6b 0d 0a 8c  38 54 41 59 20 20 20 20  |stack...8TAY    |
00001560  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001570  20 20 5c 20 50 75 74 20  69 74 20 62 61 63 6b 20  |  \ Put it back |
00001580  69 6e 20 59 20 72 65 67  69 73 74 65 72 0d 0a 96  |in Y register...|
00001590  3b 50 48 41 20 20 20 20  20 20 20 20 20 20 20 20  |;PHA            |
000015a0  20 20 20 20 20 20 20 20  20 20 5c 20 52 65 74 75  |          \ Retu|
000015b0  72 6e 20 74 6f 20 73 74  61 63 6b 20 66 6f 72 20  |rn to stack for |
000015c0  6e 65 78 74 20 74 72 79  0d 0a a0 45 4a 4d 50 20  |next try...EJMP |
000015d0  63 6f 6d 6d 61 6e 64 73  5f 6c 6f 6f 70 20 20 20  |commands_loop   |
000015e0  20 20 20 20 20 5c 20 53  65 65 20 69 66 20 74 68  |     \ See if th|
000015f0  69 73 20 6e 65 78 74 20  63 6f 6d 6d 61 6e 64 20  |is next command |
00001600  69 73 20 72 65 63 6f 67  6e 69 73 65 64 0d 0a aa  |is recognised...|
00001610  05 20 0d 0a b4 11 2e 6e  6f 74 5f 74 68 69 73 5f  |. .....not_this_|
00001620  72 6f 6d 0d 0a be 05 20  0d 0a c8 07 50 4c 41 0d  |rom.... ....PLA.|
00001630  0a d2 07 54 41 59 0d 0a  dc 07 49 4e 59 0d 0a e6  |...TAY....INY...|
00001640  07 50 4c 41 0d 0a f0 07  54 41 58 0d 0a fa 07 50  |.PLA....TAX....P|
00001650  4c 41 0d 0b 04 0c 53 54  41 20 7a 70 2b 33 0d 0b  |LA....STA zp+3..|
00001660  0e 07 50 4c 41 0d 0b 18  0c 53 54 41 20 7a 70 2b  |..PLA....STA zp+|
00001670  32 0d 0b 22 07 50 4c 41  0d 0b 2c 0c 53 54 41 20  |2..".PLA..,.STA |
00001680  7a 70 2b 31 0d 0b 36 07  50 4c 41 0d 0b 40 0a 53  |zp+1..6.PLA..@.S|
00001690  54 41 20 7a 70 0d 0b 4a  44 50 4c 41 20 20 20 20  |TA zp..JDPLA    |
000016a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000016b0  20 20 5c 20 52 65 73 74  6f 72 65 20 61 6c 6c 20  |  \ Restore all |
000016c0  72 65 67 69 73 74 65 72  73 20 62 65 66 6f 72 65  |registers before|
000016d0  20 71 75 69 74 74 69 6e  67 0d 0b 54 07 52 54 53  | quitting..T.RTS|
000016e0  0d 0b 5e 05 20 0d 0b 68  0d 2e 74 68 69 73 5f 72  |..^. ..h..this_r|
000016f0  6f 6d 0d 0b 72 05 20 0d  0b 7c 07 49 4e 58 0d 0b  |om..r. ..|.INX..|
00001700  86 16 4c 44 41 20 63 6f  6d 6d 61 6e 64 5f 6c 69  |..LDA command_li|
00001710  73 74 2c 58 0d 0b 90 0c  53 54 41 20 7a 70 2b 32  |st,X....STA zp+2|
00001720  0d 0b 9a 07 49 4e 58 0d  0b a4 16 4c 44 41 20 63  |....INX....LDA c|
00001730  6f 6d 6d 61 6e 64 5f 6c  69 73 74 2c 58 0d 0b ae  |ommand_list,X...|
00001740  0c 53 54 41 20 7a 70 2b  33 0d 0b b8 31 4a 4d 50  |.STA zp+3...1JMP|
00001750  20 28 7a 70 2b 32 29 20  20 20 20 20 20 20 20 20  | (zp+2)         |
00001760  20 20 20 20 20 20 5c 20  54 61 62 6c 65 20 61 64  |      \ Table ad|
00001770  64 72 65 73 73 20 6a 75  6d 70 0d 0b c2 05 20 0d  |dress jump.... .|
00001780  0b cc 1f 2e 63 6f 6d 6d  61 6e 64 5f 6c 69 73 74  |....command_list|
00001790  20 20 20 45 51 55 53 20  22 42 45 45 50 22 0d 0b  |   EQUS "BEEP"..|
000017a0  d6 1a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
000017b0  20 20 45 51 55 42 20 30  0d 0b e0 1d 20 20 20 20  |  EQUB 0....    |
000017c0  20 20 20 20 20 20 20 20  20 20 20 20 45 51 55 57  |            EQUW|
000017d0  20 62 65 65 70 0d 0b ea  1f 20 20 20 20 20 20 20  | beep....       |
000017e0  20 20 20 20 20 20 20 20  20 45 51 55 53 20 22 53  |         EQUS "S|
000017f0  45 4e 44 22 0d 0b f4 1a  20 20 20 20 20 20 20 20  |END"....        |
00001800  20 20 20 20 20 20 20 20  45 51 55 42 20 30 0d 0b  |        EQUB 0..|
00001810  fe 1d 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00001820  20 20 45 51 55 57 20 73  65 6e 64 0d 0c 08 22 20  |  EQUW send..." |
00001830  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 45  |               E|
00001840  51 55 53 20 22 53 45 52  56 49 43 45 22 0d 0c 12  |QUS "SERVICE"...|
00001850  1a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001860  20 45 51 55 42 20 30 0d  0c 1c 23 20 20 20 20 20  | EQUB 0...#     |
00001870  20 20 20 20 20 20 20 20  20 20 20 45 51 55 57 20  |           EQUW |
00001880  73 65 72 76 69 63 65 5f  6f 6e 0d 0c 26 24 20 20  |service_on..&$  |
00001890  20 20 20 20 20 20 20 20  20 20 20 20 20 20 45 51  |              EQ|
000018a0  55 53 20 22 4e 4f 53 45  52 56 49 43 45 22 0d 0c  |US "NOSERVICE"..|
000018b0  30 1a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0.              |
000018c0  20 20 45 51 55 42 20 30  0d 0c 3a 24 20 20 20 20  |  EQUB 0..:$    |
000018d0  20 20 20 20 20 20 20 20  20 20 20 20 45 51 55 57  |            EQUW|
000018e0  20 73 65 72 76 69 63 65  5f 6f 66 66 0d 0c 44 25  | service_off..D%|
000018f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001900  45 51 55 53 20 22 57 48  41 54 53 59 4f 55 52 53  |EQUS "WHATSYOURS|
00001910  22 0d 0c 4e 1a 20 20 20  20 20 20 20 20 20 20 20  |"..N.           |
00001920  20 20 20 20 20 45 51 55  42 20 30 0d 0c 58 23 20  |     EQUB 0..X# |
00001930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 45  |               E|
00001940  51 55 57 20 77 68 61 74  73 79 6f 75 72 73 0d 0c  |QUW whatsyours..|
00001950  62 1c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |b.              |
00001960  20 20 45 51 55 42 20 26  46 46 0d 0c 6c 21 2e 68  |  EQUB &FF..l!.h|
00001970  65 6c 70 5f 6c 69 73 74  20 20 20 20 20 20 45 51  |elp_list      EQ|
00001980  55 53 20 22 4f 53 42 49  54 53 22 0d 0c 76 1a 20  |US "OSBITS"..v. |
00001990  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 45  |               E|
000019a0  51 55 42 20 30 0d 0c 80  24 20 20 20 20 20 20 20  |QUB 0...$       |
000019b0  20 20 20 20 20 20 20 20  20 45 51 55 57 20 68 65  |         EQUW he|
000019c0  6c 70 5f 74 65 78 74 5f  31 0d 0c 8a 1c 20 20 20  |lp_text_1....   |
000019d0  20 20 20 20 20 20 20 20  20 20 20 20 20 45 51 55  |             EQU|
000019e0  42 20 26 46 46 0d 0c 94  09 2e 74 65 78 74 0d 0c  |B &FF.....text..|
000019f0  9e 41 2e 74 69 74 6c 65  20 20 20 20 20 20 20 20  |.A.title        |
00001a00  20 20 45 51 55 53 20 22  44 65 6d 6f 6e 73 74 72  |  EQUS "Demonstr|
00001a10  61 74 69 6f 6e 20 52 4f  4d 20 66 6f 72 20 4f 53  |ation ROM for OS|
00001a20  62 69 74 73 20 4d 6f 64  75 6c 65 20 32 34 22 0d  |bits Module 24".|
00001a30  0c a8 1b 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00001a40  20 20 20 45 51 55 57 20  31 33 0d 0c b2 23 20 20  |   EQUW 13...#  |
00001a50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 45 51  |              EQ|
00001a60  55 53 20 22 20 20 4f 53  42 49 54 53 22 0d 0c bc  |US "  OSBITS"...|
00001a70  1b 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001a80  20 45 51 55 57 20 31 33  0d 0c c6 0e 2e 68 65 6c  | EQUW 13.....hel|
00001a90  70 5f 74 65 78 74 0d 0c  d0 1b 2e 68 65 6c 70 5f  |p_text.....help_|
00001aa0  74 65 78 74 5f 31 20 20  20 20 45 51 55 42 20 31  |text_1    EQUB 1|
00001ab0  33 0d 0c da 2d 20 20 20  20 20 20 20 20 20 20 20  |3...-           |
00001ac0  20 20 20 20 20 45 51 55  53 20 22 2a 42 45 45 50  |     EQUS "*BEEP|
00001ad0  20 6d 61 6b 65 73 20 61  20 62 65 65 70 22 0d 0c  | makes a beep"..|
00001ae0  e4 1b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00001af0  20 20 45 51 55 42 20 31  33 0d 0c ee 3e 20 20 20  |  EQUB 13...>   |
00001b00  20 20 20 20 20 20 20 20  20 20 20 20 20 45 51 55  |             EQU|
00001b10  53 20 22 2a 53 45 4e 44  20 70 72 69 6e 74 73 20  |S "*SEND prints |
00001b20  74 68 65 20 61 72 67 75  6d 65 6e 74 20 74 6f 20  |the argument to |
00001b30  6f 75 74 70 75 74 22 0d  0c f8 1b 20 20 20 20 20  |output"....     |
00001b40  20 20 20 20 20 20 20 20  20 20 20 45 51 55 42 20  |           EQUB |
00001b50  31 33 0d 0d 02 41 20 20  20 20 20 20 20 20 20 20  |13...A          |
00001b60  20 20 20 20 20 20 45 51  55 53 20 22 2a 53 45 52  |      EQUS "*SER|
00001b70  56 49 43 45 20 74 75 72  6e 73 20 6f 6e 20 73 65  |VICE turns on se|
00001b80  72 76 69 63 65 20 63 61  6c 6c 20 64 69 73 70 6c  |rvice call displ|
00001b90  61 79 22 0d 0d 0c 1b 20  20 20 20 20 20 20 20 20  |ay"....         |
00001ba0  20 20 20 20 20 20 20 45  51 55 42 20 31 33 0d 0d  |       EQUB 13..|
00001bb0  16 38 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.8              |
00001bc0  20 20 45 51 55 53 20 22  2a 4e 4f 53 45 52 56 49  |  EQUS "*NOSERVI|
00001bd0  43 45 20 74 75 72 6e 73  20 69 74 20 6f 66 66 20  |CE turns it off |
00001be0  61 67 61 69 6e 22 0d 0d  20 1b 20 20 20 20 20 20  |again".. .      |
00001bf0  20 20 20 20 20 20 20 20  20 20 45 51 55 42 20 31  |          EQUB 1|
00001c00  33 0d 0d 2a 40 20 20 20  20 20 20 20 20 20 20 20  |3..*@           |
00001c10  20 20 20 20 20 45 51 55  53 20 22 59 6f 75 20 63  |     EQUS "You c|
00001c20  61 6e 20 61 64 64 20 6d  6f 72 65 20 63 6f 6d 6d  |an add more comm|
00001c30  61 6e 64 73 20 69 66 20  79 6f 75 20 77 69 73 68  |ands if you wish|
00001c40  22 0d 0d 34 1e 20 20 20  20 20 20 20 20 20 20 20  |"..4.           |
00001c50  20 20 20 20 20 45 51 55  44 20 26 30 44 30 44 0d  |     EQUD &0D0D.|
00001c60  0d 3e 05 20 0d 0d 48 17  2e 73 68 6f 77 5f 73 65  |.>. ..H..show_se|
00001c70  72 76 69 63 65 5f 63 61  6c 6c 73 0d 0d 52 05 20  |rvice_calls..R. |
00001c80  0d 0d 5c 35 50 48 41 20  20 20 20 20 20 20 20 20  |..\5PHA         |
00001c90  20 20 20 20 20 20 20 20  20 20 20 20 20 5c 20 53  |             \ S|
00001ca0  61 76 65 20 41 20 73 61  66 65 6c 79 20 6f 6e 20  |ave A safely on |
00001cb0  73 74 61 63 6b 0d 0d 66  14 4c 44 41 20 73 65 72  |stack..f.LDA ser|
00001cc0  76 69 63 65 5f 66 6c 61  67 0d 0d 70 0f 42 45 51  |vice_flag..p.BEQ|
00001cd0  20 6e 6f 5f 73 68 6f 77  0d 0d 7a 05 20 0d 0d 84  | no_show..z. ...|
00001ce0  07 50 4c 41 0d 0d 8e 07  50 48 41 0d 0d 98 37 4a  |.PLA....PHA...7J|
00001cf0  53 52 20 70 72 69 6e 74  5f 68 65 78 20 20 20 20  |SR print_hex    |
00001d00  20 20 20 20 20 20 20 20  5c 20 50 72 69 6e 74 20  |        \ Print |
00001d10  6f 75 74 20 68 65 78 20  76 61 6c 75 65 20 6f 66  |out hex value of|
00001d20  20 41 0d 0d a2 13 4a 53  52 20 70 72 69 6e 74 5f  | A....JSR print_|
00001d30  73 70 61 63 65 0d 0d ac  07 54 58 41 0d 0d b6 37  |space....TXA...7|
00001d40  4a 53 52 20 70 72 69 6e  74 5f 68 65 78 20 20 20  |JSR print_hex   |
00001d50  20 20 20 20 20 20 20 20  20 5c 20 50 72 69 6e 74  |         \ Print|
00001d60  20 6f 75 74 20 68 65 78  20 76 61 6c 75 65 20 6f  | out hex value o|
00001d70  66 20 58 0d 0d c0 13 4a  53 52 20 70 72 69 6e 74  |f X....JSR print|
00001d80  5f 73 70 61 63 65 0d 0d  ca 07 54 59 41 0d 0d d4  |_space....TYA...|
00001d90  37 4a 53 52 20 70 72 69  6e 74 5f 68 65 78 20 20  |7JSR print_hex  |
00001da0  20 20 20 20 20 20 20 20  20 20 5c 20 50 72 69 6e  |          \ Prin|
00001db0  74 20 6f 75 74 20 68 65  78 20 76 61 6c 75 65 20  |t out hex value |
00001dc0  6f 66 20 59 0d 0d de 0e  4a 53 52 20 6f 73 6e 65  |of Y....JSR osne|
00001dd0  77 6c 0d 0d e8 05 20 0d  0d f2 0c 2e 6e 6f 5f 73  |wl.... .....no_s|
00001de0  68 6f 77 0d 0d fc 29 50  4c 41 20 20 20 20 20 20  |how...)PLA      |
00001df0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001e00  5c 20 52 65 74 72 69 65  76 65 20 41 0d 0e 06 07  |\ Retrieve A....|
00001e10  52 54 53 0d 0e 10 05 20  0d 0e 1a 10 2e 70 72 69  |RTS.... .....pri|
00001e20  6e 74 5f 73 70 61 63 65  0d 0e 24 05 20 0d 0e 2e  |nt_space..$. ...|
00001e30  0b 4c 44 41 20 23 33 32  0d 0e 38 0e 4a 53 52 20  |.LDA #32..8.JSR |
00001e40  6f 73 77 72 63 68 0d 0e  42 07 52 54 53 0d 0e 4c  |oswrch..B.RTS..L|
00001e50  05 20 0d 0e 56 0e 2e 70  72 69 6e 74 5f 68 65 78  |. ..V..print_hex|
00001e60  0d 0e 60 05 20 0d 0e 6a  07 50 48 41 0d 0e 74 09  |..`. ..j.PHA..t.|
00001e70  4c 53 52 20 41 0d 0e 7e  09 4c 53 52 20 41 0d 0e  |LSR A..~.LSR A..|
00001e80  88 09 4c 53 52 20 41 0d  0e 92 3b 4c 53 52 20 41  |..LSR A...;LSR A|
00001e90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001ea0  20 20 20 20 5c 20 41 20  6e 6f 77 20 63 6f 6e 74  |    \ A now cont|
00001eb0  61 69 6e 73 20 68 69 67  68 65 72 20 6e 79 62 62  |ains higher nybb|
00001ec0  6c 65 0d 0e 9c 40 4a 53  52 20 70 72 69 6e 74 5f  |le...@JSR print_|
00001ed0  6e 79 62 62 6c 65 20 20  20 20 20 20 20 20 20 5c  |nybble         \|
00001ee0  20 53 65 6e 64 73 20 74  68 65 20 48 45 58 20 76  | Sends the HEX v|
00001ef0  61 6c 75 65 20 6f 66 20  74 68 65 20 6e 79 62 62  |alue of the nybb|
00001f00  6c 65 0d 0e a6 07 50 4c  41 0d 0e b0 38 80 20 23  |le....PLA...8. #|
00001f10  26 46 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |&F              |
00001f20  20 20 20 20 5c 20 41 20  6e 6f 77 20 63 6f 6e 74  |    \ A now cont|
00001f30  61 69 6e 73 20 6c 6f 77  65 72 20 6e 79 62 62 6c  |ains lower nybbl|
00001f40  65 0d 0e ba 40 4a 53 52  20 70 72 69 6e 74 5f 6e  |e...@JSR print_n|
00001f50  79 62 62 6c 65 20 20 20  20 20 20 20 20 20 5c 20  |ybble         \ |
00001f60  53 65 6e 64 73 20 74 68  65 20 48 45 58 20 76 61  |Sends the HEX va|
00001f70  6c 75 65 20 6f 66 20 74  68 65 20 6e 79 62 62 6c  |lue of the nybbl|
00001f80  65 0d 0e c4 07 52 54 53  0d 0e ce 06 20 20 0d 0e  |e....RTS....  ..|
00001f90  d8 11 2e 70 72 69 6e 74  5f 6e 79 62 62 6c 65 0d  |...print_nybble.|
00001fa0  0e e2 05 20 0d 0e ec 43  84 41 20 23 34 38 20 20  |... ...C.A #48  |
00001fb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001fc0  5c 20 54 68 69 73 20 65  66 66 65 63 74 69 76 65  |\ This effective|
00001fd0  6c 79 20 61 64 64 73 20  34 38 20 69 6e 20 6c 65  |ly adds 48 in le|
00001fe0  73 73 20 63 6f 64 65 0d  0e f6 0b 43 4d 50 20 23  |ss code....CMP #|
00001ff0  35 38 0d 0f 00 10 42 43  43 20 64 6f 6e 74 5f 61  |58....BCC dont_a|
00002000  64 64 0d 0f 0a 39 41 44  43 20 23 36 20 20 20 20  |dd...9ADC #6    |
00002010  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 5c  |               \|
00002020  20 43 61 72 72 79 20 69  73 20 73 65 74 20 73 6f  | Carry is set so|
00002030  20 74 68 69 73 20 69 73  20 2b 37 0d 0f 14 05 20  | this is +7.... |
00002040  0d 0f 1e 0d 2e 64 6f 6e  74 5f 61 64 64 0d 0f 28  |.....dont_add..(|
00002050  05 20 0d 0f 32 0e 4a 53  52 20 6f 73 77 72 63 68  |. ..2.JSR oswrch|
00002060  0d 0f 3c 07 52 54 53 0d  0f 46 05 20 0d 0f 50 2c  |..<.RTS..F. ..P,|
00002070  2e 62 65 65 70 20 20 20  20 20 20 20 20 20 20 20  |.beep           |
00002080  20 20 20 20 20 20 20 20  20 5c 20 44 75 6d 6d 79  |         \ Dummy|
00002090  20 72 6f 75 74 69 6e 65  0d 0f 5a 05 20 0d 0f 64  | routine..Z. ..d|
000020a0  0a 4c 44 41 20 23 37 0d  0f 6e 2e 4a 53 52 20 6f  |.LDA #7..n.JSR o|
000020b0  73 77 72 63 68 20 20 20  20 20 20 20 20 20 20 20  |swrch           |
000020c0  20 20 20 20 5c 20 4a 75  73 74 20 73 65 6e 64 73  |    \ Just sends|
000020d0  20 61 20 ef 37 0d 0f 78  0c 4a 4d 50 20 65 78 69  | a .7..x.JMP exi|
000020e0  74 0d 0f 82 05 20 0d 0f  8c 38 2e 73 65 6e 64 20  |t.... ...8.send |
000020f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002100  20 20 20 5c 20 50 72 69  6e 74 73 20 61 72 67 75  |   \ Prints argu|
00002110  6d 65 6e 74 20 74 6f 20  6f 75 74 70 75 74 0d 0f  |ment to output..|
00002120  96 05 20 0d 0f a0 41 53  45 43 20 20 20 20 20 20  |.. ...ASEC      |
00002130  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002140  5c 20 54 65 72 6d 69 6e  61 74 65 20 77 69 74 68  |\ Terminate with|
00002150  20 43 52 20 6f 72 20 73  65 63 6f 6e 64 20 71 75  | CR or second qu|
00002160  6f 74 65 73 0d 0f aa 30  4a 53 52 20 67 73 69 6e  |otes...0JSR gsin|
00002170  69 74 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |it              |
00002180  20 5c 20 49 6e 69 74 69  61 6c 69 73 65 20 73 74  | \ Initialise st|
00002190  72 69 6e 67 0d 0f b4 38  42 45 51 20 73 65 6e 64  |ring...8BEQ send|
000021a0  5f 65 6e 64 65 64 20 20  20 20 20 20 20 20 20 20  |_ended          |
000021b0  20 5c 20 5a 65 72 6f 20  73 65 74 20 69 66 20 61  | \ Zero set if a|
000021c0  20 6e 75 6c 6c 20 73 74  72 69 6e 67 0d 0f be 05  | null string....|
000021d0  20 0d 0f c8 0e 2e 73 65  6e 64 5f 6c 6f 6f 70 0d  | .....send_loop.|
000021e0  0f d2 05 20 0d 0f dc 32  4a 53 52 20 67 73 72 65  |... ...2JSR gsre|
000021f0  61 64 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |ad              |
00002200  20 5c 20 52 65 61 64 20  6e 65 78 74 20 63 68 61  | \ Read next cha|
00002210  72 61 63 74 65 72 0d 0f  e6 36 42 43 53 20 73 65  |racter...6BCS se|
00002220  6e 64 5f 65 6e 64 65 64  20 20 20 20 20 20 20 20  |nd_ended        |
00002230  20 20 20 5c 20 43 61 72  72 79 20 73 65 74 20 69  |   \ Carry set i|
00002240  66 20 74 65 72 6d 69 6e  61 74 6f 72 0d 0f f0 0e  |f terminator....|
00002250  4a 53 52 20 6f 73 61 73  63 69 0d 0f fa 11 4a 4d  |JSR osasci....JM|
00002260  50 20 73 65 6e 64 5f 6c  6f 6f 70 0d 10 04 05 20  |P send_loop.... |
00002270  0d 10 0e 0f 2e 73 65 6e  64 5f 65 6e 64 65 64 0d  |.....send_ended.|
00002280  10 18 05 20 0d 10 22 0e  4a 53 52 20 6f 73 6e 65  |... ..".JSR osne|
00002290  77 6c 0d 10 2c 0c 4a 4d  50 20 65 78 69 74 0d 10  |wl..,.JMP exit..|
000022a0  36 05 20 0d 10 40 0f 2e  73 65 72 76 69 63 65 5f  |6. ..@..service_|
000022b0  6f 6e 0d 10 4a 05 20 0d  10 54 0a 4c 44 41 20 23  |on..J. ..T.LDA #|
000022c0  31 0d 10 5e 14 53 54 41  20 73 65 72 76 69 63 65  |1..^.STA service|
000022d0  5f 66 6c 61 67 0d 10 68  0c 4a 4d 50 20 65 78 69  |_flag..h.JMP exi|
000022e0  74 0d 10 72 05 20 0d 10  7c 10 2e 73 65 72 76 69  |t..r. ..|..servi|
000022f0  63 65 5f 6f 66 66 0d 10  86 05 20 0d 10 90 0a 4c  |ce_off.... ....L|
00002300  44 41 20 23 30 0d 10 9a  14 53 54 41 20 73 65 72  |DA #0....STA ser|
00002310  76 69 63 65 5f 66 6c 61  67 0d 10 a4 0c 4a 4d 50  |vice_flag....JMP|
00002320  20 65 78 69 74 0d 10 ae  05 20 0d 10 b8 3c 2e 77  | exit.... ...<.w|
00002330  68 61 74 73 79 6f 75 72  73 20 20 20 20 20 20 20  |hatsyours       |
00002340  20 20 20 20 20 20 20 5c  20 52 65 70 6c 61 63 65  |       \ Replace|
00002350  20 77 69 74 68 20 79 6f  75 72 20 6f 77 6e 20 72  | with your own r|
00002360  6f 75 74 69 6e 65 0d 10  c2 05 20 0d 10 cc 0c 4a  |outine.... ....J|
00002370  4d 50 20 62 65 65 70 0d  10 d6 05 20 0d 10 e0 35  |MP beep.... ...5|
00002380  2e 65 78 69 74 20 20 20  20 20 20 20 20 20 20 20  |.exit           |
00002390  20 20 20 20 20 20 20 20  20 5c 20 45 78 69 74 20  |         \ Exit |
000023a0  66 72 6f 6d 20 61 6c 6c  20 63 6f 6d 6d 61 6e 64  |from all command|
000023b0  73 0d 10 ea 05 20 0d 10  f4 31 50 4c 41 20 20 20  |s.... ...1PLA   |
000023c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000023d0  20 20 20 5c 20 50 75 6c  6c 20 59 20 61 6e 64 20  |   \ Pull Y and |
000023e0  64 69 73 63 61 72 64 0d  10 fe 31 50 4c 41 20 20  |discard...1PLA  |
000023f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002400  20 20 20 20 5c 20 50 75  6c 6c 20 58 20 61 6e 64  |    \ Pull X and|
00002410  20 64 69 73 63 61 72 64  0d 11 08 07 50 4c 41 0d  | discard....PLA.|
00002420  11 12 0c 53 54 41 20 7a  70 2b 33 0d 11 1c 07 50  |...STA zp+3....P|
00002430  4c 41 0d 11 26 0c 53 54  41 20 7a 70 2b 32 0d 11  |LA..&.STA zp+2..|
00002440  30 07 50 4c 41 0d 11 3a  0c 53 54 41 20 7a 70 2b  |0.PLA..:.STA zp+|
00002450  31 0d 11 44 07 50 4c 41  0d 11 4e 0a 53 54 41 20  |1..D.PLA..N.STA |
00002460  7a 70 0d 11 58 07 50 4c  41 0d 11 62 2c 4c 44 41  |zp..X.PLA..b,LDA|
00002470  20 23 30 20 20 20 20 20  20 20 20 20 20 20 20 20  | #0             |
00002480  20 20 20 20 20 20 5c 20  43 6c 61 69 6d 20 63 6f  |      \ Claim co|
00002490  6d 6d 61 6e 64 0d 11 6c  07 52 54 53 0d 11 76 05  |mmand..l.RTS..v.|
000024a0  20 0d 11 80 05 5d 0d 11  8a 05 ed 0d 11 94 43 f1  | ....]........C.|
000024b0  20 27 22 20 2a 53 41 56  45 20 6f 73 62 72 6f 6d  | '" *SAVE osbrom|
000024c0  20 22 3b 7e 74 65 6d 70  25 3b 22 20 2b 22 3b 7e  | ";~temp%;" +";~|
000024d0  50 25 2d 63 6f 64 65 25  3b 22 20 22 3b 7e 63 6f  |P%-code%;" ";~co|
000024e0  64 65 25 3b 22 20 22 3b  7e 63 6f 64 65 25 0d ff  |de%;" ";~code%..|
000024f0
29-04-88/B\OSB24.m0
29-04-88/B\OSB24.m1
29-04-88/B\OSB24.m2
29-04-88/B\OSB24.m4
29-04-88/B\OSB24.m5