Info

Listing 1

1 CLS: PRINT" MICROSTROKES GRAPHICS PROGRAM"

2 PRINT " This program demonstrates an assembly language routine which simplifies encoding graphic images."

SCALE ARROW KEYS MOVE IMAGE F--->FASTER

10 CLEAR 100 20 X=8cHF000

30 GOSUB 420 : 'POKE USR CALL INTO MEMORY 40 CLS

45 PRINT "The images are now being poked into memory."

46 PRINT "This is done once at the beginning of the program."

47 PRINT "When the images have been loaded, you may call them by pressing any of the digit keys." 50 DEFUSR1 =&HF00C

60 'POKE 16526,12 AND POKE 16527,240 FOR LEVEL 11 USR ROUTINE

70 IM=8cHF005: -4091 DECIMAL 80 X=&HF000: '-4096 DECIMAL 90 Y=&HF001: -4095 DECIMAL 100 SW=&HF002

110 TS=&HF0F8: '-3850 DECIMAL THIS ADDRESS IS THE START OF WHICH CONTAINS TWO ENTRY ADDRESSES FOR EACH IMAGE

120 SC=&HF007: '-4089 DECIMAL POKE SCALE SIZE HERE 130 CC=&HF200: '-3584 DECIMAL START OF IMAGE BYTES

140 POKE TS,00: POKETS+1,242: 'PUT START OF FIRST IMAGE INTO THE TABLE THE NEXT START OF IMAGE ADDRESS USED WOULD BE TS+2 AND TS+3 IF TWO IMAGES WERE TO BE USED 150 IN=9:CO=0:F=1 160 READ BB

170 IF BB=—1 POKE CC,0: CC=CC+1: CO=CO+1: GOTO 210

180 POKE CC.BB: ' MOVE IMAGE BYTE INTO MEMORY 190 CC=CC+1 : ' INCREMENT MEMORY ADDRESS 200 GOTO 160 : ' REPEAT UNTIL DONE

IT ALL!

0 0

Post a comment