ô > CmdROM/src 2ô Build a ROM of *commands, rewrite of Micron+ : (*OSNEWL=&FFE5:OSASCI=&FFE3:OSBYTE=&FFF4 2: <Þ mcode% &300 F ãP=0¸1 P P%=&8000 Z O%=mcode% d[OPT P*3+4 nBRK:BRK:BRK x.L8003:JMP L8015 ‚ Œ.L8006:EQUB &82 – .L8007  EQUB Copyright-&8000 ª EQUB &01 ´EQUS "FRED" ¾.Copyright ÈEQUB 0:EQUS "(C)JIM":EQUB 0 Ò: Ü .L8015 æCLC:BCC L801C ð: ú+EQUW L8149 :\ Pointer to Ç“ string *EQUW L814F :\ Pointer to commands :  .L801C "PHP:PHA:TYA:PHA:TXA:PHA ,TSX:LDA &0103,X 6CMP #&09:BNE L806C @: J \ *Ç“ TJSR OSNEWL ^LDA L8003+2:STA &73 h$LDA L8003+1:CLC:ADC #&03:STA &72 rLDA &73:ADC #&00:STA &73 | LDY #&00:LDA (&72),Y:STA &70 †INY:LDA (&72),Y:STA &71  LDY #&00 š .L804D ¤LDA (&70),Y:BEQ L8062 ®CMP #&23:BNE L8057 ¸ LDA #&0D  .L8057 ÌJSR OSASCI ÖINC &70:BNE L804D àINC &71:BNE L804D ê .L8062 ôJSR OSNEWL þ:  .L8065 PLA:TAX:PLA:TAY:PLA:PLP RTS &: 0 : .L806C DCMP #&04:BNE L8065 N: X\ *COMMAND b STY &78 lLDA L8003+2:STA &71 v$LDA L8003+1:CLC:ADC #&05:STA &70 €LDA &71:ADC #&00:STA &71 Š LDY #&00:LDA (&70),Y:STA &72 ”INY:LDA (&70),Y:STA &73 ž .L8090 ¨LDA &72:STA &70 ²LDA &73:STA &71 ¼LDA &78:STA &76 Æ .L809C Ð LDY #&00:LDA (&70),Y:STA &79 Ú BEQ L8065 äBIT &79:BMI L80D4 î LDY &76 ø!LDA (&F2),Y:CMP &79:BNE L80BB INC &76:INC &70:BNE L80B8  INC &71  .L80B8  CLC:BCC L809C *: 4 .L80BB > LDY #&00 H .L80BD RINC &70:BNE L80C3 \ INC &71 f .L80C3 pLDA (&70),Y:BPL L80BD zINY:LDA (&70),Y:STA &72 „INY:LDA (&70),Y:STA &73 ŽCLC:BCC L8090 ˜: ¢ .L80D4 ¬ LDX #&00 ¶ .L80D6 ÀINY:LDA (&70),Y:STA &72,X ÊINX:CPX #&06:BNE L80D6 Ô LDA &70:CLC:ADC #&07:STA &70 ÞLDA &71:ADC #&00:STA &71 è LDY #&00 ò .L80EF üLDA (&70),Y:STA (&74),Y INC &70:BNE L80F9  INC &71  .L80F9 $INC &74:BNE L80FF . INC &75 8 .L80FF BLDA &72:CMP &70:BNE L80EF LLDA &73:CMP &71:BNE L80EF VLDA &79:CMP #&FE:BEQ L8114 `'JMP (&0076) :\ Machine code j1\ !!! Crashes on return, should pop registers t ~ .L8114 :\ BASIC ˆ6LDA #&8A:LDX #&00 :\ Insert into keyboard buffer ’%LDY #&4F:JSR OSBYTE :\ Insert "O" œ%LDY #&4C:JSR OSBYTE :\ Insert "L" ¦%LDY #&44:JSR OSBYTE :\ Insert "D" °&LDY #&0D:JSR OSBYTE :\ Insert "|M" º%LDY #&52:JSR OSBYTE :\ Insert "R" Ä%LDY #&55:JSR OSBYTE :\ Insert "U" Î%LDY #&4E:JSR OSBYTE :\ Insert "N" Ø&LDY #&0D:JSR OSBYTE :\ Insert "|M" âPLA:TAX:PLA:TAY:PLA:PLP ì LDA #&00:RTS :\ Claim ö:  .L8149   EQUS "HELLO":EQUB 0  .L814F (\ EQUS 2!\ EQUB &FF - M/C, &FE - BASIC  F\ EQUW P\ EQUW Z\ Contents of file d+\ EQUS or &00 end marker n]:í ÿ