image of READY prompt

Wang2200.org

Listing of file='HASP*001' on disk='vmedia/731-0111.wvd.zip'

# Sector 280, program filename = 'HASP*001'
0010 REM HASP*001 LOAD TC CONTROLLER MICROCODE 02/05/81
0020 COM L,W$64,Z$64,A$64
0030 SELECT CI 001,INPUT 001,LIST 005(64),CO 005(64),PRINT 005(64)
0040 DIM A$(1)64
0050 ON VAL(STR(Z$,45))-48 GOTO 60,70,80,90
0060 SELECT #601C
   : GOTO 170
0070 SELECT #601D
   : GOTO 170
0080 SELECT #601E
   : GOTO 170
0090 SELECT #601F
0170 GOSUB 190
0180 LOAD DC T#0,"HASP*002"
0190 DIM W$(128,4)16
0200 A$=HEX(F401)
0210 STR(A$,3,6)=STR(Z$,10,6)
0220 A$(1)=A$
0230 $GIO#6(4580,A$)
0240 DATA LOAD DC OPEN T#0,"HASP000A"
0250 DATA LOAD DC #0,W$()
0255 PRINT "Microcode revision = ";W$(1,1);W$(1,2); TAB(64)
0260 B2$=HEX(1F35)
0270 A=((256*VAL(B2$))+VAL(STR(B2$,2)))-4095
0280 MAT COPY A$()<1,9>TO W$()<A,9>
0290 $GIOWRITE#6(440040104080A200440C,A$)W$()<129,(8*1024)-128>
0300 IF STR(A$,8,1)<>HEX(00)THEN 330
0310 FOR A=1TO 100
   : NEXT A
0320 RETURN
0330 STOP "LOAD ERROR--WRITE"