home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
eric.hdv
/
TEST
/
PRIM.bas
< prev
next >
Wrap
BASIC Source File
|
2020-08-13
|
639b
|
21 lines
5 REM INIT
10 DATA 169,255,141,3,196,169,7,141,2,196,96
20 REM LATCH
30 DATA 169,7,141,0,196,169,4,141,0,196,96
40 REM WRITE
50 DATA 169,6,141,0,196,169,4,141,0,196,96
60 REM RESET
70 DATA 169,0,141,0,196,169,4,141,0,196,96
80 REM INIT2
90 DATA 169,255,141,131,196,169,7,141,130,196,96
100 REM LATCH2
110 DATA 169,7,141,128,196,169,4,141,128,196,96
120 REM WRITE2
130 DATA 169,6,141,128,196,169,4,141,128,196,96
140 REM RESET2
150 DATA 169,0,141,128,196,169,4,141,128,196,96
160 A = 36864: REM BEGINNING ADDRESS, $9000
170 FOR X = 0 TO 87: READ D
180 POKE A +X,D
190 NEXT
200 PRINT CHR$(4)"RUN TABLE"