Apple-2-SW/delhndlr
1
0
Fork 0
mirror of https://github.com/gungwald/delhndlr.git synced 2025-02-10 19:31:15 +00:00
Code Issues Projects Releases Wiki Activity

Updates

Browse Source
This commit is contained in:
Bill Chatfield 2021-11-30 00:53:13 -05:00
parent 5f122aba42
commit d82a3a4c9f
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
delkey.clr.left.s
View File

@ -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