Listing of file='START' on disk='vmedia/3275_v1.10.wvd.zip'
# Sector 314, program filename = 'START' 0010 REM ***** START - RELEASE #1.10.R.S. 12/28/83 ***** 0012 SELECT #4 005, #5 215, #6 01F 0015 DIM W$(128,4)16, B2$2,A$64 0020 REM 0021 PRINT HEX(030A0A0A0A0A0A0A),,"LOADING 3275 EMULATOR" 0022 PRINT ,HEX(08);"(Release #1.10 R.S.12/28/83)" 0023 $IF ON #6,24 : PRINT ,"T.C.controller in use" 0024 $IF OFF /000,25 : LOAD DC T#0,"EM327501"25,25 0025 $GIO#6(4580,A$) : PRINT ,"Reset T.C. controller" 0030 $GIO OK TC BOARD #6(0100020F121245804401 4004 400D 4001 C620,A$)B2$ : AND (A$,10) : IF STR(A$,8,1)<>HEX(00)THEN 170 : IF B2$<>HEX(5C)THEN 170 0038 REM OPEN 2228C MICROCODE FILE 0040 DATA LOAD DC OPEN T#0, "M-3270" 0050 REM READ 8K OF MICROCODE INTO W$() 0060 DATA LOAD DC #0, W$() 0070 PRINT "Microcode revision = ";STR(W$(1,1),1,16);STR(W$(1,2),1,3) 0090 STR(W$(),VAL(HEX(1EC1),2)-4095,2)=HEX(0000) : REM /.patch ?? 0110 REM WRITE 8K OF MICROCODE INTO W$() 0120 $GIO WRITE#6(4400 4010 4080 A200 440C, A$)W$()<129,(8*1024)-128> 0130 IF STR(A$,8,1)<>HEX(00) THEN 160 0140 FOR A=1 TO 100 : NEXT A : REM /DELAY 0150 $IF ON /000,9900 : LOAD DC T#0,"EM3275" 0160 STOP "LOAD ERROR--WRITE" 0170 STOP "IMPROPER BOARD AT ADDRESS" 9900 LOAD DC T#0,"EM3275V"