10 ;save#d5:b>uspram9.m65›20 ;asm,,#d5:b>uspram9.com›30       .OPT NO LIST›40       *=  $5000›50       RTS ›60 ;›70 EOUTCH TAY ›80       LDA $0347›90       PHA ›0100     LDA $0346›0110     PHA ›0120     LDX #0›0130     TYA ›0140     RTS ›0150 ;›0160 PRINT STX $CB›0170     STY $CC›0171 PR1 LDY #0›0180     LDA ($CB),Y›0190     BEQ PR2›0200     JSR EOUTCH›0210     INC $CB›0220     BNE PR1›0230     INC $CC›0240     BNE PR1›0250 PR2 RTS ›0260 ;›0270 START LDA $D69A+3 ;LOOK AT D4:›0280     CMP #$80›0290     BNE ST1›0300     LDA #4      ;PUT 4 IN THERE›0310     STA $D79A+3›0320     LDA #$80›0330     STA $D79A+8 ;MAKE D9: BE RAM›0340     LDX #MOD1&255›0350     LDY #MOD1/256›0360     JMP PRINT›0370 ST1 LDX #MOD2&255›0380     LDY #MOD2/256›0390     JMP PRINT›0400 ;›0410 MOD1 .BYTE $9B,"US+ RAMdisk number changed to D9:",$9B,0›0420 MOD2 .BYTE $9B,"RAMdisk not D4: or not US+ OS!",$9B,0›0430 ;›0440     *=  $02E2›0450     .WORD START›