 
ô > NEWMOS02/S %ô Source for Extended BBC MOS ROM )oscli=&FFF7:OSWORD=&FFF1:OSBYTE=&FFF4 (*OSWRCH=&FFEE:OSNEWL=&FFE4:OSASCI=&FFE3 2nvwrch=&FFCB:Þ mcode% &1000 <ã P=0 ¸ 1 FO%=mcode%:P%=&8000 P[OPT P*3+4 ZJMP lang dJMP serv nEQUB &C2 xEQUB copy-&8000 ‚EQUB &02:\ Version Œ8EQUS "Extra Utilities":BRK:EQUS "1.02 (20 Jan 1989)" –	.copy  &BRK:EQUS "(C)1988 J.G.Harston":BRK ª%\                   Language part ´	.lang ¾LDX #&FF:TXS:CLD:CLI È#LDA #err_handler € 255:STA &202 Ò#LDA #err_handler  256:STA &203 Ü.lang_loop æLDA #—"*":JSR OSWRCH ðLDA #0:LDX #buff € 255 úLDY #(buff)  256JSR OSWORD:BCS escapeLDX #0:LDY #7:JSR oscliJMP lang_loop".escape,LDA #124:JSR OSBYTE6!BRK:EQUB 17:EQUS "Escape":BRK@	.buffJEQUW &700TEQUB 255:EQUB 32:EQUB 255^.err_handlerh&LDX &F4:LDA #252:LDY #0:JSR OSBYTErJSR OSNEWL:JSR report|JMP lang_loop†.report
LDY #1š.errloop¤LDA (&FD),Y:BEQ err2®JSR OSWRCH:INY:JMP errloop¸	.err2ÂJMP OSNEWLÌ$\                   Service partÖ+.serv7:PHA:LDA &EF:CMP #90:BNE serv7tryàBLDA &F0:BEQ serv7info:CMP #2:BNE disabled:\ Recognises *FX90,2ê0LDA &DF0,X:„A #128:STA &DF0,X:PLA:LDA #0:RTSô".serv7try:CMP #89:BNE disabledþ%LDA &F0:JSR pr_hex:PLA:LDA #0:RTS$.serv7info:LDA &F1:BEQ serv7helpCMP #1:BNE disabled+JSR pr_text:EQUS "2: ":BRK:JSR pr_title&JMP disabled0/.serv7help:LDA #90:LDX #0:LDY #1:JSR OSBYTE:PLA:LDA #0:RTSD	.servNCMP #7:BEQ serv7X*PHA:LDA &DF0,X:€ #128:BEQ disabled:PLAbCMP #2:BEQ serv2lCMP #4:BEQ serv4vCMP #6:BEQ serv6:\Errors€CMP #9:BEQ serv9ŠCMP #&FE:BEQ servFE”RTSž.disabled:PLA:RTS¨.serv4:JMP serv4run²-.serv6:JSR new_oscli_ret_check:LDA #6:RTS¼.serv9:JMP serv9runÆ.servFEÐJSR new_osÚ+LDA #1:STA &267:JSR OSNEWL:JSR pr_titleäLDA &28D:BEQ servFEexitîLDA #7:JSR OSWRCHø'.servFEexit:JSR OSNEWL:LDA #&FE:RTS
.serv2DTYA:PHA:„A #128:STA &DF0,X:JSR find_ws:LDY #8:LDA #0:STA (&A8),YILDA #3:STA &202:LDA #255:STA &203:LDA #&A8:LDX #0:LDY #&FF:JSR OSBYTE zSTX &A8:STY &A9:LDY #3:LDA #err_handler €&FF:STA (&A8),Y:INY:LDA #err_handler 256:STA (&A8),Y:INY:LDA &F4:STA (&A8),Y*TAX:PLA:TAY:INY:LDA #2:RTS4F.pr_title:JSR pr_text:EQUS "Extended BBC MOS 1.00":EQUB 13:BRK:RTS>.serv9runH/STY &AF:LDA (&F2),Y:CMP #13:BEQ serv9simpleR;CMP #—".":BEQ serv9print:€ #&DF:CMP #—"E":BNE serv9exit\KINY:LDA (&F2),Y:CMP #—".":BEQ serv9print:€ #&DF:CMP #—"X":BNE serv9exitfKINY:LDA (&F2),Y:CMP #—".":BEQ serv9print:€ #&DF:CMP #—"T":BNE serv9exitp.serv9printzJSR serv9text„%LDA #osc_help_text1 € 255:STA &ACŽ%LDA #osc_help_text1  256:STA &AD˜!LDA #osc_table1 € 255:STA &A9¢!LDA #osc_table1  256:STA &AA¬JSR do_help¶/LDY &AF:LDA (&F2),Y:CMP #—".":BEQ serv9exitÀLDA #0:RTSÊ.serv9textÔJSR pr_textÞ;EQUB 13:EQUS "Sideways RAM Extension 1.00 ":EQUB 13:BRKèRTSò.serv9simple:JSR serv9textü!.serv9exit:LDY &AF:LDA #9:RTS.run_help-STY &AF:LDA (&F2),Y:CMP #13:BNE run_help2VJSR OSNEWL:JSR pr_title:JSR pr_text:EQUS "  FILE":EQUB 13:EQUS "  MOS":EQUB 13:BRK$.run_help_end.LDA #9:LDY &AF:RTS8.run_help2B&LDA (&F2),Y:CMP #—".":BEQ do_help1L&€ #&DF:CMP #—"F":BNE not_file_helpVMINY:LDA (&F2),Y:CMP #—".":BEQ do_help1:€ #&DF:CMP #—"I":BNE not_file_help`MINY:LDA (&F2),Y:CMP #—".":BEQ do_help1:€ #&DF:CMP #—"L":BNE not_file_helpjMINY:LDA (&F2),Y:CMP #—".":BEQ do_help1:€ #&DF:CMP #—"E":BNE not_file_helpt.do_help1~EJSR pr_text:EQUB 13:EQUS "Extended file handler 1.00":EQUB 13:BRKˆ#LDA #file_os_text € 255:STA &AC’#LDA #file_os_text  256:STA &ADœLDA #file_os € 255:STA &A9¦LDA #file_os  256:STA &AA°JSR do_help:LDY &AFº-LDA (&F2),Y:CMP #—".":BNE run_help_finishÄJMP do_help2Î#.run_help_end2:JMP run_help_endØ.not_file_helpâ2LDA (&F2),Y:€ #&DF:CMP #—"M":BNE run_help_end2ìMINY:LDA (&F2),Y:CMP #—".":BEQ do_help2:€ #&DF:CMP #—"O":BNE run_help_end2öMINY:LDA (&F2),Y:CMP #—".":BEQ do_help2:€ #&DF:CMP #—"S":BNE run_help_end2 .do_help2
JSR OSNEWL:JSR pr_title"LDA #mos_os_text € 255:STA &AC"LDA #mos_os_text  256:STA &AD(LDA #mos_os € 255:STA &A92LDA #mos_os  256:STA &AA<JSR do_help:LDY &AFF+LDA (&F2),Y:CMP #—".":BEQ run_help_end2P.run_help_finishZLDA #0:RTSd.do_helpn-TYA:PHA:LDA #&BD:STA &A8:LDA #&60:STA &ABxLDX #0:LDY #0‚.help_mess_loopŒ!LDA #32:JSR OSWRCH:JSR OSWRCH–.help_mess_loop2 JSR &A8:BEQ help_wordª*JSR OSWRCH:INX:CLC:BCC help_mess_loop2´.help_word¾LDA #32:JSR OSWRCHÈ.help_mess_loop3Ò!LDA (&AC),Y:BEQ help_text_endÜ*JSR OSWRCH:INY:CLC:BCC help_mess_loop3æ.help_text_endðJSR OSNEWLú7INY:INX:INX:INX:JSR &A8:CMP #&FF:BNE help_mess_loopPLA:TAY:RTS.search_tableLDA #&BD:STA &A8"LDA #&60:STA &AB,STY &AF6
LDX #0@.search_main_loopJLDY &AFT.search_loop^!LDA (&F2),Y:CMP #—".":BEQ doth%JSR &A8:CMP (&F2),Y:BNE not_equalr
.equal|!INX:INY:JSR &A8:BEQ zero_byte†BNE search_loop.dotšJSR fnd_zero1¤INY®.zero_byte¸INX:JSR &A8:STA &ACÂINX:JSR &A8:STA &ADÌ.no_spacesÖ&LDA (&F2),Y:CMP #32:BNE found_codeàINY:CLC:BCC no_spacesê.found_codeôCLC:RTSþ.fnd_zeroINX.fnd_zero1JSR &A8:BNE fnd_zero&RTS0.not_equal:‚ #32:CMP (&F2),Y:BEQ equalDJSR fnd_zeroN INX:INX:INX:JSR &A8:CMP #&FFXBNE search_main_loopbLDY &AF:SEC:RTSl.serv4runvLDA #(osc_table1)ƒ 256€STA &A9ŠLDA #(osc_table1) 256”STA &AAž.serv4bit:JSR search_table¨BCC serv4go²LDA #4:LDX &F4:RTS¼.serv4go:LDX &F4ÆJSR jumpÐLDA #0:RTSÚ.jump:JMP (&AC)ä"\                       Tablesî.osc_table1ø(EQUS "NEWOS":BRK:EQUW new_os_command&EQUS "NEWOFF":BRK:EQUW rom_disableEQUB 255.file_os EQUS "CAT":BRK:EQUW cat*EQUS "BUILD":BRK:EQUW build4EQUS "DUMP":BRK:EQUW dump>EQUS "EXEC":BRK:EQUW execHEQUS "INFO":BRK:EQUW infoREQUS "LIST":BRK:EQUW list\EQUS "LOAD":BRK:EQUW loadfEQUS "OPT":BRK:EQUW optpEQUS "RUN":BRK:EQUW runzEQUS "SAVE":BRK:EQUW save„EQUS "SPOOL":BRK:EQUW spoolŽEQUS "TYPE":BRK:EQUW type˜EQUB 255¢.mos_os¬EQUS "FX":BRK:EQUW fx¶EQUS "HELP":BRK:EQUW helpÀEQUS "KEY":BRK:EQUW keyÊ#EQUS "MESSAGE":BRK:EQUW messageÔEQUS "MEDIT":BRK:EQUW enterÞ!EQUS "MDUMP":BRK:EQUW examineèEQUS "OS":BRK:EQUW osòEQUS "ROMS":BRK:EQUW romsüEQUS "TAPE":BRK:EQUW tape	EQUB 255	.file_os_text	&EQUS "(#<strm>) (<directory>)":BRK	$EQUS "<afsp>":BRK	.(EQUS "(#<strm>) <afsp> (<addr>)":BRK	8EQUS "(<afsp>)":BRK	BEQUS "(#<strm>) <afsp>":BRK	LEQUS "(#<strm>) <afsp>":BRK	VEQUS "<afsp> (<load>)":BRK	`EQUS "<opt> (<param>)":BRK	j EQUS "<afsp> (<params>)":BRK	t?EQUS "<afsp> <start> <end>|+<length> (<exec> (<load>))":BRK	~EQUS "(<afsp>)":BRK	ˆEQUS "(#<strm>) <afsp>":BRK	’.mos_os_text	œ*EQUS "<num> (<param1> (<param2>))":BRK	¦EQUS "(#<strm>) <word>":BRK	°EQUS "<key> <text>":BRK	ºEQUS "<text>":BRK	ÄEQUS "<addr>":BRK	Î2EQUS "(#<strm>) <start> (<end>|+<length>)":BRK	ØEQUS "":BRK	âEQUS "(#<strm>)":BRK	ìEQUS "(<baud>)":BRK	ö.osc_help_text1
 EQUS "":BRK

EQUS "":BRK
 \                   Routines
.os
(LDA #142:JMP OSBYTE
2.enter:.examine:.message
<2JSR errors:EQUB 254:EQUS "Not yet written":BRK
F".list:.type:.roms:.dump:.build
P:.exec:.fx:.key:.load:.opt:.run:.save:.spool:.tape:.rom
ZLDY &AF:PLA:PLA:LDA #4:RTS
d5.new_os_command:LDA (&F2),Y:CMP #13:BEQ new_os_c2
nCMP #—"#":BEQnew_os
x.new_os_c2
‚JSR find_ws
Œ&LDY #8:LDA (&A8),Y:BEQ new_os_cont
–9JSR errors:EQUB 254:EQUS "NewOs already selected":BRK
 .new_os
ªJSR find_ws
´&LDY #8:LDA (&A8),Y:BEQ new_os_cont
¾RTS
È.new_os_cont
Ò6SEI:LDA #255:STA (&A8),Y:\    NewOS On flag at Y=8
Ü#LDY #4:LDA &208:STA (&A8),Y:INY
æ/LDA &209:STA (&A8),Y:INY:\    CLIV at Y=4/5
ð\Store old FILE_V as well
ú'LDA #12:STA &208:\LDA #18:\STA &20CLDA #21:STA &20E(LDA #&FF:STA &209:STA &20F:\STA &20D'LDA #&A8:LDX #0:LDY #&FF:JSR OSBYTE"#STX &A8:STY &A9:LDY #12:LDX &F4,$LDA #new_oscli € &FF:STA (&A8),Y6(INY:LDA #new_oscli  256:STA (&A8),Y@INY:TXA:STA (&A8),YJ*LDY #21:LDA #new_vdu € &FF:STA (&A8),YT&INY:LDA #new_vdu  256:STA (&A8),Y^INY:TXA:STA (&A8),Yh\ Set new osword vectorsr3JSR collapse:LDA #0:STA &A8:TAY:INY:STA (&A8),Y|CLI:CLD:RTS†.new_oscli(PHA:TXA:PHA:TYA:PHA:JSR new_oscli_gošPLA:TAY:PLA:TAX:PLA:RTS¤.new_oscli_go®STX &F2:STY &F3:LDY #&FF¸.new_oscli_loopÂ0INY:LDA (&F2),Y:CMP #—"*":BEQ new_oscli_loopÌ CMP #—" ":BEQ new_oscli_loopÖCMP #13:BEQ new_oscli_retàCMP #—"|":BNE new_oscli1ê.new_oscli_ret:RTSôP.new_oscli_ret_check:JSR find_ws:LDY #2:LDA (&A8),Y:TAX:LDA #255:STA (&A8),YþTCPX #255:BEQ new_oscli_ret:LDA #18:JSR OSWRCH:LDA #&89:JSR OSWRCH:TXA:JMP OSWRCH.new_oscli1,INY:CMP #—":":BEQ do_old_cli:DEY:TYA:PHA3JSR find_ws:LDY #2:LDA #255:STA (&A8),Y:PLA:TAY&LDA #file_os € 255:STA &A90LDA #file_os  256:STA &AA:/JSR serv4bit:CMP #0:BEQ new_oscli_ret_checkDLDA #mos_os € 255:STA &A9NLDA #mos_os  256:STA &AAX/JSR serv4bit:CMP #0:BEQ new_oscli_ret_checkb.do_old_clilSTY &AF:JSR find_ws:LDY #4vLDA (&A8),Y:STA &AC€INY:LDA (&A8),Y:STA &ADŠLDA &AF:CLC:ADC &F2:TAX”&LDA #0:ADC &F3:TAY:JMP (&AC):\Jumpž\ Misc. routines¨.pr_hex²PHA:LSR A:LSR A:LSR A:LSR A¼JSR firstÆPLAÐ
.firstÚ€ #&0F:CMP #10äBCC overî
ADC #6ø	.overADC #48:JMP OSWRCH\.pr_text STA &AE*+PLA:STA &AC:PLA:STA &AD:TXA:PHA:TYA:PHA4LDY #0:.pr_main_loop>INC &AC:BNE continueHINC &AD:.continueRLDA (&AC),Y\BEQ end_of_stringfJSR OSASCI:JMP pr_main_loopp.end_of_stringzINC &AC:BNE pr_exit_end„INC &AD:.pr_exit_endŽ%PLA:TAY:PLA:TAX:LDA &AE:JMP (&AC)˜\¢.errors¬PLA:STA &FD:PLA:STA &FE¶
LDY #0À.error_main_loopÊINY:LDA (&FD),Y:STA &100,YÔBNE error_main_loopÞSTA &100:JMP &100è\ò.check_strmüTYA:PHA:JSR find_ws:PLA:TAYLDA (&F2),Y:CMP #—"#"BNE check_strm_retJSR nextch$PHA:JSR nextch:JSR separ.BCS Bad_Command86TYA:PHA:LDY #1:LDA (&A8),Y:INY:STA (&A8),Y:PLA:TAYB>LDA #18:JSR OSWRCH:LDA #&89:JSR OSWRCH:PLA:€ #7:JSR OSWRCHL.check_strm_ret:RTSV.nextch`&INY:LDA (&F2),Y:CMP #32:BEQ nextchjRTSt
.separ~CMP #13:BEQ separ_ret1ˆCMP #—";":BEQ separ_ret’CMP #—",":BEQ separ_retœSEC:RTS¦.separ_ret°JSR nextchº.separ_ret1ÄCLC:RTSÎ.Bad_CommandØJSR errorsâ#EQUB 254:EQUS "Bad command":BRKì.Bad_NumberöJSR errors "EQUB 252:EQUS "Bad number":BRK
.find_wsGPHA:LDX &F4:LDA &DF0,X:€ #127:STA &A9:LDA #0:STA &A8:PLA:LDY #0:RTS>\ 1=window, 2=winpend, 4/5=OldCLI, 8=NewOS On, 16+ windows(.cat2JSR check_strm<TYA:CLC:ADC &F2:PHP:TAXFLDA #0:PLP:ADC &F3:TAYPLDA #5:JMP (&21E)Z	.helpdJSR check_strmnJSR run_helpxCMP #9:BNE info_end‚LDA #143:LDX #9:JMP OSBYTEŒ	.info–JSR check_strm LDA #—"I":STA &700ªLDA #—"N":STA &701´LDA #—"F":STA &702¾LDA #—"O":STA &703ÈLDA #—" ":STA &704Ò
LDX #5Ü.infoloopæ"LDA (&F2),Y:STA &700,X:INY:INXðCMP #13:BNE infoloopú#LDX #0:LDY #7:LDA #3:JMP (&21E).info_endRTS.Bad_Number2:JMP Bad_Number".rom_disable, LDA &DF0,X:€ #127:STA &DF0,X6+JSR pr_text:EQUS "Press CTRL-BREAK":BRK@.rom_dis2:JMP rom_dis2J:T:\ Window handler^:h.find_wind_addrr€ #7:PHA|JSR find_ws†PLA:ASL A:STA &A8,ASL A:ASL A:ADC &A8:ADC #&10:STA &A8:RTSš.new_vdu¤PHA:PHP:TXA:PHA:TYA:PHA®LDA &A8:PHA:LDA &A9:PHA¸TSX:LDA &106,XÂJSR new_vdu_goÌPLA:STA &A9:PLA:STA &A8ÖPLA:TAY:PLA:TAX:PLP:PLAàRTSê.new_vdu_goôJSR find_wsþPHA:LDA &26A:\ QueueCMP #&FF:BEQ last_itemPLA:BIT &26A:BMI old_jmp STA (&A8),Y:\ last_ch at Y=0&CMP #26:BEQ do_collapse0.old_jmp:?JMP nvwrch:\ Do this so RS232, SPOOL, etc can have a chanceD.last_itemN LDA (&A8),Y:\ last_ch at Y=0XCMP #22:BEQ do_modebCMP #23:\BEQ do_charlCMP #18:BEQ do_gcol_etcv.do_old€PLA:JMP nvwrchŠ.do_ignore”PLAž.do_spool¨-LDX #&FE:STX &26A:JSR nvwrch:INC &26A:RTS².do_mode:PLA¼.do_collapseÆJSR nvwrchÐ.collapseÚ
LDA #7ä.coll_loopîPHA:JSR save_windowø PLA:SEC:SBC #1:BPL coll_loopRTS.do_gcol_etc5LDA &322:CMP #&89:BNE do_ignore:\ GCOL &89,window .do_window*#INY:LDA (&A8),Y:\ window at Y=14JSR save_window>,PLA:JSR do_spool:LDY #0:STY &A8:INY:€ #7HSTA (&A8),Y:\ windowRJSR get_window\RTSf.save_windowpJSR find_wind_addr:LDX #0z.save_loop„7LDA &308,X:STA (&A8),Y:INY:INX:CPX #4:BCC save_loopŽ"LDA #134:JSR OSBYTE:TYA:LDY #5˜+STA (&A8),Y:DEY:TXA:STA (&A8),Y:INY:INY¢LDA &357:STA (&A8),Y:INY¬LDA &358:STA (&A8),Y:INY¶LDA &D2:STA (&A8),Y:INYÀLDA &D3:STA (&A8),Y:RTSÊ.get_windowÔPHAÞ:LDA #3:LDX #&54:LDY #0:JSR OSBYTE:\ select screen onlyè*PLA:TAY:TXA:PHA:TYA:JSR find_wind_addròLDA #28:JSR nvwrchü.get_w_loop4LDA (&A8),Y:JSR nvwrch:INY:CPY #4:BCC get_w_loopLDA #31:JSR nvwrchLDA (&A8),Y:JSR nvwrch:INY$LDA (&A8),Y:JSR nvwrch:INY.LDA (&A8),Y:STA &357:INY8LDA (&A8),Y:STA &358:INYBLDA (&A8),Y:STA &D2:INYLLDA (&A8),Y:STA &D3V6PLA:TAX:LDY #0:LDA #3:JMP OSBYTE:\ Restore outputs`:j \   Stick new editor here...t:~]ˆí P’8ñ" *SAVE ROM "+Ã~(mcode%)+" "+Ã~(O%+1)+" 0 FFFBBC00"ÿ