> SftConfg/src $ Simple soft CMOS Config access  Add *CONFIGURE, *STATUS (: 2#assem(0)::assem(2):sm_table ^JSR OSNEWL h .Serv9a r LDX #0 | .Serv9Lp 1LDA &8009,X:BNE Serv9Chk :\ Display ROM title LDA #" ":BNE Serv9Char  .Serv9Chk CMP #" ":BEQ Serv9Done .Serv9Char JSR OSWRCH:INX:BNE Serv9Lp .Serv9Done JSR OSNEWL .Serv9Exit LDA #9:RTS :  .Service (\CMP $&04:\BEQ Serv04 :\ *Command &CMP #&07:BEQ Serv07 :\ OSBYTE %CMP #&09:BEQ Serv09 :\ *Help RTS &: 0\ SERVICE 7 - OSBYTE :\ ----------------- D .Serv07 N5LDY &F1:LDX &F0:LDA &EF :\ A=num, X=byte, Y=value X5CMP #161:BEQ Osbyte161 :\ OSBYTE 161 - Read CMOS b6CMP #162:BEQ Osbyte162 :\ OSWORD 162 - Write CMOS l.Serv07Quit vLDA #7:RTS : .Osbyte162 0INX:BEQ OsbyteClaim :\ Don't write size byte 5DEX:BEQ OsbyteClaim :\ Don't write station number TYA:STA CMOS,X .Osbyte161 LDY CMOS,X .OsbyteClaim LDA #0:RTS  .CMOS EQUS 128,0) EQUS 127,0) EQUB &FF :\ Size=256-1 :  ]:RelocTable=P%:: :  ݤsm_pass(pass%) *pass%=0:M%=0 4pass%=1:M%=O%-mcode% >P%=&8100-128*(pass%2) HO%=mcode%+M%*(pass%2)2 R/pass%=1: O%+M%*2.125>L%:"Code overrun": \="4646",pass%+1,1) f: psm_table z>base80%=mcode%+M%:base81%=mcode%:byte%=0:count%=0:off%=0: Pbyte80%=base80%?off%:byte81%=base81%?off%: off%>=M%:byte80%=&80:byte81%=&80 ] ((byte81%-byte80%) &FE)<>0 "ERROR: Offset by more than one page at &";~&8000+off% M (byte80% &C0)=&80:byte%=byte%2+128*(byte81%-byte80%):count%=count%+1 1 count%=8:?O%=byte%:O%=O%+1:byte%=0:count%=0 $off%=off%+1:off%>=M% count%=0