VDU LDA #@1 JSR &FFEE ENDM FX LDA #@1 LDX #@2 LDY #@3 JSR &FFF4 ENDM ERROR BRK DFB @1 ASC '@2' BRK ENDM OSW LDA #@1 LDX #>@2 LDY #<@2 JSR &FFF1 ENDM STAR LDX #>..L1 LDY #<..L1 JSR &FFF7 JMP ..CONT ..L1 STR '@1' ..CONT ENDM CRLF PHA JSR &FFE7 PLA ENDM MODE LDA #22 JSR &FFEE LDA #@1 JSR &FFEE ENDM LVDU LDA #1 JSR &FFEE LDA #@1 JSR &FFEE ENDM CLS LDA #12 JSR &FFEE ENDM CLG LDA #16 JSR &FFEE ENDM COLOUR LDA #17 JSR &FFEE LDA #@1 JSR &FFEE ENDM GCOL LDA #18 JSR &FFEE LDA #@1 JSR &FFEE LDA #@2 JSR &FFEE ENDM SETCOL LDX #5 ..L1 LDA ..DAT,X JSR &FFEE DEX BPL ..L1 BMI ..CONT ..DAT DFB 0,0,0,@2,@1,19 ..CONT ENDM RESTOR LDA #20 JSR &FFEE LDA #26 JSR &FFEE ENDM GWIN LDX #8 ..L1 LDA ..DAT,X JSR &FFEE DEX BPL ..L1 BMI ..CONT ..DAT DDB @4,@3,@2,@1 DFB 24 ..CONT ENDM PLOT LDX #5 ..L1 LDA ..DAT,X JSR &FFEE DEX BPL ..L1 BMI ..CONT ..DAT DDB @3,@2 DFB @1,25 ..CONT ENDM TWIN LDX #4 ..L1 LDA ..DAT,X JSR &FFEE DEX BPL ..L1 BMI ..CONT ..DAT DFB @4,@3,@2,@1,28 ..CONT ENDM OFFSET LDX #4 ..L1 LDA ..DAT,X JSR &FFEE DEX BPL ..L1 BMI ..CONT ..DAT DDB @2,@1 DFB 29 ..CONT ENDM HOME LDA #30 JSR &FFEE ENDM CURSOR LDA #31 JSR &FFEE LDA #@1 JSR &FFEE LDA #@2 JSR &FFEE ENDM INKEY LDA #129 LDX #>@1 LDY #<@1 JSR &FFF4 ENDM MOTOR LDA #137 LDX #@1 JSR &FFF4 ENDM OPT LDA #139 LDX #@1 LDY #@2 JSR &FFF4 ENDM TV LDA #144 LDX #@1 LDY #@2 JSR &FFF4 ENDM PAGE IF @1&&FF INFO 'Illegal PAGE value' FI LDA #180 LDX #<@1 LDY #0 JSR &FFF4 ENDM INPUT LDA #0 LDX #>..DAT LDY #<..DAT JSR &FFF1 JMP ..CONT ..DAT DW @1 DFB @2,32,126 ..CONT ENDM TIME LDX #>@1 LDY #<@1 IF '@2'='R' LDA #1 ELSE IF '@2'='W' LDA #2 ELSE INFO 'Illegal TIME mode' FI FI JSR &FFF1 ENDM SOUND LDX #>..DAT LDY #<..DAT LDA #7 JSR &FFF1 JMP ..CONT ..DAT DW @1,@2,@3,@4 ..CONT ENDM ENVELO LDA #8 LDX #>@1 LDY #<@2 JSR &FFF1 ENDM OPENIN LDA #&40 LDX #>@1 LDY #<@1 JSR &FFCE STA @2 ENDM OPENOU LDA #&80 LDX #>@1 LDY #<@1 JSR &FFCE STA @2 ENDM OPENUP LDA #&C0 LDX #>@1 LDY #<@1 JSR &FFCE STA @2 ENDM CLOSE LDA #0 LDY #@1 JSR &FFCE ENDM BPUT LDY @1 LDA #@2 JSR &FFD4 ENDM BPUTA LDY @1 JSR &FFD4 ENDM BGET LDY @1 JSR &FFD7 ENDM