PROGRAM LISTING: 84-06/MACRO4.M65

0100 ;FILENAME: GRTEST.M65
0110     .OPT NO LIST ;Don't list ]INCLUDE files
0120 ;
0130 ;These files are on MAC/65 disk.
0140     .INCLUDE #D:SYSEQU.M65
0150     .INCLUDE #D:IOMAC.LIB
0160 ;
0170 ;See text for these files.
0180     .INCLUDE #D:GREQU.M65
0190     .INCLUDE #D:GRAPHICS.LIB
0200 ;
0210 GRMEM = 460     ;Bytes of memory for GR. 3
0220 ;
0230     *=  $3000
0240 ;
0250     .OPT LIST
0260 ;
0270 ;Set top of applications memory
0280     LDA # <$BFFF-GRMEM
0290     STA APPMHI
0300     LDA # >$BFFF-GRMEM
0310     STA APPMHI+1
0320 ;
0330 ;This looks like BASIC...
0340      GRAPHICS  3
0350      COLOR  1
0360      SETCOLOR  4,0,4
0370      SETCOLOR  0,4,14
0380      PLOT  5,5
0390      DRAWTO  5,15
0400      DRAWTO  15,15
0410      DRAWTO  15,5
0420      DRAWTO  5,5
0430 ;
0440 ;Loop until SYSTEM RESET
0450 END JMP END
0460     .OPT NO LIST