Classic Computer Magazine Archive PROGRAM LISTING: 84-06/MACRO2.M65


0100 ;FILENAME: GREQU.M65
0110     .TITLE "GRAPHICS EQUATE FILE"
0120     .PAGE "GRAPHICS EQUATES"
0130 ;
0140 ; CURSOR
0150 ROWCRS = $54    ; FULL SCREEN
0160 COLCRS = $55
0170 TXTROW = $0290  ; SPLIT SCREEN
0180 TXTCOL = $0291
0190 ;
0200 ; SCREEN MEMORY
0210 SAVMSC = $58    ; FULL SCREEN
0220 TXTMSC = $0294  ; SPLIT SCREEN
0230 ;
0240 ; GRAPHICS MODE
0250 DINDEX = $57    ; FULL SCREEN
0260 TINDEX = $0293  ; SPLIT SCREEN
0270 ;
0280 ; SCREEN MARGINS
0290 LMARGN = $52
0300 RMARGN = $53
0310 ;
0320 ; DISPLAY LIST
0330 VDSLST = $0200  ; VECTOR FOR DLI
0340 SDLSTL = $0230  ; START OF DL
0350 WSYNC = $D40A
0360 ;
0370 ; MISC.
0380 BOTSCR = $02BF  ; # LINES IN SCREEN (4 OR 24)
0390 SPARE1 = $02F5  ; SPARE BYTES
0400 SPARE2 = $02F6
0410 SPARE3 = $02F7
0420 SPARE4 = $02F8
0430 SPARE5 = $02F9
0440 ATACHR = $02FB  ; USED BY FILL & DRAW
0450 ;
0460 ; CHARACTER SET
0470 CHBAS = $02F4   ; SHADOW
0480 CHBASE = $D409  ; HARDWARE
0490 CHACT = $02F3   ; CHAR. MODE REG
0500 ;
0510 ; COLORS
0520 ; SHADOW REGISTERS
0530 COLOR0 = $02C4
0540 COLOR1 = $02C5
0550 COLOR2 = $02C6
0560 COLOR3 = $02C7
0570 COLOR4 = $02C8
0580 ; HARDWARE REGISTERS
0590 COLPF0 = $D016
0600 COLPF1 = $D017
0610 COLPF2 = $D018
0620 COLPF3 = $D019
0630 COLBK = $D01A
0640 ;
0650 ; INTERRUPT CONTROL
0660 NMIEN = $D40E   ; NMI ENABLE
0670 NMIST = $D40F   ; NMI STATUS
0680 NMIRES = $D40F  ; NMI RESET
0690 ; BIT: 7   6    5   43210
0700 ;     DLI VBI RESET .....
0710 ;
0720 ; SCROLLING
0730 HSCROL = $D404
0740 VSCROL = $D405
0750 ;
0760 ; CIO COMMANDS
0770 CDRAW = $11
0780 CFILL = $12
0790 ;

Back to previous page