mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-12-10 17:52:35 +00:00
f5c097e70f
- added error handling - no more massive library; just a subroutine per file. This is because Merlin doesn't like large files. - added a "minify" BASIC utility that gets rid of *most* comments in a source textfile. This dramatically reduces space used if you're not terribly interested in non-inline comments. - TFILL,THLIN,TVLIN and TPUT not directly access the video memory (page one), making for a much faster draw without interfering COUT. - some stylistic changes, primarily to TFILL - change required files to minified versions only. The whole files can be found on disk 2. - got a norovirus so pretty much couldn't do anything requiring sustained attention, so focused on small things here and not on my dayjob. Cool. - created a required.vars file that separates variables and settings from the other required files. Not minified. - This current bout of revision will probably be the last, once all initial 6 disks are revamped, that focuses on all subroutines/macros in a given library at a single push. After this round, commits will be done on a subroutine or related file basis.
54 lines
1.5 KiB
Plaintext
54 lines
1.5 KiB
Plaintext
*
|
|
*``````````````````````````````*
|
|
* STDIO.HOOKS.PUT *
|
|
*- -*
|
|
* HOOKS TO INPUT/OUTPUT *
|
|
* ROUTINES IN MONITOR *
|
|
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
|
|
*
|
|
* OUTPUT HOOKS
|
|
*
|
|
COUT1 EQU $FDF0 ; FASTER SCREEN OUTPUT
|
|
COUT EQU $FDED ; MONITOR STD OUTPUT
|
|
HOME EQU $FC58 ; CLEAR SCREEN, HOME CURSOR
|
|
VTAB EQU $FC22 ; MONITOR CURSOR POS ROUTINE
|
|
CURSH EQU $24 ; HPOS OF COUT CURSOR
|
|
CURSV EQU $25 ; VPOS OF COUT CURSOR
|
|
WNDLEFT EQU $20 ; SCROLL WINDOW LEFT
|
|
WNDWIDTH EQU $21 ; SCROLL WINDOW WIDTH
|
|
WNDTOP EQU $22 ; SCROLL WINDOW TOP
|
|
WNDBOT EQU $23 ; SCROLL WINDOW BOTTOM
|
|
TEXTP1 EQU $0400 ; START OF TEXT PAGE 1
|
|
TEXTP2 EQU $0800 ; START OF TEXT PAGE 2
|
|
PAGE1 EQU $C054 ; SOFT SWITCH USE PAGE 1
|
|
PAGE2 EQU $C055 ; SOFT SWITCH USE PAGE 2
|
|
S80COL EQU $C01F ; READ ONLY; CHECK IF 80C
|
|
KEYBUFF EQU $0200 ; KEYBUFFER START
|
|
GSTROBE EQU $C040 ; GAME CONNECTOR STROBE
|
|
TXTSET EQU $C051 ; TEXT ON SOFT SWITCH
|
|
SETWND EQU $FB4B ; SET NORMAL WINDOW MODE
|
|
CURADV EQU $FBF4 ; ADVANCE CURSOR RIGHT
|
|
CURBS EQU $FC10 ; CURSOR LEFT
|
|
CURUP EQU $FC1A ; CURSOR UP
|
|
CR EQU $FC62 ; CARRIAGE RETURN TO SCREEN
|
|
LF EQU $FC66 ; LINE FEED ONLY TO SCREEN
|
|
CLEOL EQU $FC9C ; CLEAR TEXT TO END OF LINE
|
|
*
|
|
* INPUT HOOKS
|
|
*
|
|
KYBD EQU $C000 ; LDA SINGLE KEYPRESS
|
|
STROBE EQU $C010 ; CLEAR KYBD BUFFER
|
|
GETLN EQU $FD6F ; MONITOR GET LINE OF KB INPUT
|
|
GETKEY EQU $FD0C ; MONITOR GET SINGLE KEY INPUT
|
|
OPAPP EQU $C061
|
|
CLAPP EQU $C062
|
|
*
|
|
* PADDLE HOOKS
|
|
*
|
|
PREAD EQU $FB1E ; READ STATE OF PADDLE
|
|
PB0 EQU $C061 ; PADDLE BUTTON 0
|
|
PB1 EQU $C062
|
|
PB2 EQU $C063
|
|
PB3 EQU $C060
|
|
*
|