diff --git a/delkey.clr.left.s b/delkey.clr.left.s index c372d7c..f26cda0 100644 --- a/delkey.clr.left.s +++ b/delkey.clr.left.s @@ -31,12 +31,16 @@ KSWH EQU $39 ;KEYBOARD SWITCH HIGH BYTE OURCH EQU $57B ;HORIZONTAL POSITION (80-COL) OURCV EQU $5FB ;VERTICAL POSITION (80-COL) KBD EQU $C000 ;KEYBOARD DATA + STROBE -CXROMOFF EQU $C006 ;ENABLE SLOT ROMS -CXROMON EQU $C007 ;TURN ON INTERNAL ROM +CXROMOFF EQU $C006 ;ENABLE EXPANSION SLOTS AT $C100-$C7FF +CXROMON EQU $C007 ;ENABLE INTERNAL ROM AT $C100-$C7FF +RDCXROM EQU $C015 ;READ CXROM SWITCH (1 = SLOTS, 0 = ROM) 80COLOFF EQU $C00C ;Off: display 40 columns 80COLON EQU $C00D ;On: display 80 columns +ALTCHAROFF EQU $C00E ;USE PRIMARY CHARACTER SET +ALTCHARON EQU $C00F ;USE ALTERNATE CHARACTER SET KBDSTRB EQU $C010 ;CLEAR KEYBOARD STROBE -ALTCHAR EQU $C01E ;Alt char set (1 = on) +RDALTCHAR EQU $C01E ;READ STATE OF Alt char set (1 = on) +RD80COL EQU $C01F ;READ 80COL SWITCH COUT EQU $FDED ;WRITE A CHARACTER * 80-COL SUBS INSIDE THE INTERNAL ROM @@ -50,6 +54,7 @@ RDCHAR EQU $FD35 KEYIN EQU $FD1B BASICIN EQU $C305 GETLN EQU $FD6A +GETLN1 EQU $FD6F ;GETLN WITH NO PROMPT NOESC EQU $C9B7 ;HANDLES KEY OTHER THAN ESC BINPUT EQU $C8F6 ESCAPING EQU $C918