mirror of https://github.com/gungwald/copy.git
65 lines
2.4 KiB
ArmAsm
65 lines
2.4 KiB
ArmAsm
********************************
|
|
* *
|
|
* SYMBOLS REFERENCING SYSTEM *
|
|
* RESOURCES *
|
|
* *
|
|
* AUTHOR: BILL CHATFIELD *
|
|
* LICENSE: GPL *
|
|
* *
|
|
********************************
|
|
|
|
CH EQU $24 ;HORIZ CHAR POS (40-COL)
|
|
BASL EQU $28 ;BASE ADDR FOR CURR VIDEO LINE
|
|
KSWL EQU $38 ;KEYBOARD SWITCH LOW BYTE
|
|
KSWH EQU $39 ;KEYBOARD SWITCH HIGH BYTE
|
|
IN EQU $200 ;256-CHAR INPUT BUFFER
|
|
OURCH EQU $57B ;HORIZONTAL POSITION (80-COL)
|
|
OURCV EQU $5FB ;VERTICAL POSITION (80-COL)
|
|
|
|
* ProDOS Addresses
|
|
|
|
MLI EQU $BF00 ;ADDRESS OF MLI ENTRY POINT
|
|
|
|
* Memory Mapped Input/Output addresses C000 - CFFF
|
|
|
|
KBD EQU $C000 ;KEYBOARD DATA + STROBE
|
|
STOR80ON EQU $C001 ;ENABLE AUXILIARY MEM SWITCHING
|
|
CXROMOFF EQU $C006 ;ENABLE SLOT ROMS
|
|
CXROMON EQU $C007 ;TURN ON INTERNAL ROM
|
|
KBDSTRB EQU $C010 ;CLEAR KEYBOARD STROBE
|
|
ALTCHAR EQU $C01E ;>=$80 IF IN 80-COL
|
|
PAGE2OFF EQU $C054 ;TURN ON MAIN MEMORY
|
|
PAGE2ON EQU $C055 ;TURN ON AUXILIARY MEMORY
|
|
BASICIN EQU $C305
|
|
BINPUT EQU $C8F6
|
|
ESCAPING EQU $C918
|
|
NOESC EQU $C9B7 ;HANDLES KEY OTHER THAN ESC
|
|
INVERT EQU $CEDD ;80-col INVERT CHAR ON SCREEN
|
|
PICK EQU $CF01 ;80-col PICK CHAR OFF SCREEN
|
|
|
|
* Subroutines stored in ROM addresses D000 - FFFF
|
|
|
|
STROUT EQU $DB3A ;BAS? PRINT NULL-TERM STR IN AY
|
|
HEXDEC EQU $ED24 ;HEX-TO-DECIMAL CONVERSION
|
|
PRINTXY EQU $F940 ;MONITOR PRINT X & Y AS HEX
|
|
RDKEY EQU $FD0C ;READS 1 CHAR
|
|
KEYIN EQU $FD1B
|
|
RDCHAR EQU $FD35
|
|
GETLN EQU $FD6A
|
|
CROUT EQU $FD8E ;PRINT A CARRIAGE RETURN
|
|
PRBYTE EQU $FDDA ;MONITOR PRINT BYTE 2 HEX DIGITS
|
|
COUT EQU $FDED ;WRITE A CHARACTER
|
|
BELL EQU $FF3A ;SUBROUTINE TO BEEP
|
|
|
|
* Keyboard key code definitions
|
|
|
|
ESC EQU $9B ;ESC WITH HIGH BIT SET
|
|
RTARROW EQU $95 ;RIGHT ARROW WITH HIGH BIT SET
|
|
DELETE EQU $FF ;DELETE WITH HIGH BIT SET
|
|
BKSPACE EQU $88 ;BACKSPACE WITH HIGH BIT SET
|
|
|
|
* ProDOS command definitions
|
|
|
|
ON_LINE EQU $C5 ;ID FOR ON_LINE MLI SYSTEM CALL
|
|
|