Listing of file='2qLOADER' on disk='vmedia/bsc_host.wvd.zip'
# Sector 165, program filename = '2qLOADER'
0010 REM LOAD*28B 12/08/78, LOAD 2228B MICROCODE,COPYRIGHT WANG LABS, 1978
0020 COM D$(2)3
0030 COM X9$(5)8
0040 DIM F$8,Y$80
0050 DIM W$(64,4)16
0060 PRINT HEX(0603)
0070 REM % get addresses, etc.
0080 GOSUB '076("2q.parms","device file for this terminal","D")
0090 DSKIP (#TERM-1)S
0100 DATA LOAD DC D$(),X9$()
0110 PRINT HEX(0603)
0120 PRINT AT(3,0);"TC board: ";D$(1);" ";"Printer: ";D$(2)
0130 SELECT #1 <D$(1)>, #2<D$(2)>
0140 REM % load mucode
0150 GOSUB '76 (X9$(1)," (microcode file)","D")
0160 REM %.RESET TC BOARD
0170 $GIO#1(4580,Z$)
0180 REM %.LOAD SECOND 4K
0190 DSKIP 1
: DATA LOAD DC #0,W$()
0200 $GIOWRITE#1(012002011212440040204000A200440C,A$)W$()
: GOSUB 280
0210 REM %.LOAD FIRST 4K
0220 DBACKSPACE BEG
: DATA LOAD DC W$()
0230 $GIOWRITE#1(440040104080A200440C,A$)W$()<129,4096-128>
0240 GOSUB 280
0250 REM % EXIT
0260 GOSUB '76(X9$(2),"(setup program)","P")
0270 END
0280 IF STR(A$,8,1)=HEX(00)THEN RETURN
0290 PRINT AT(5,0);"ERROR LOADING MICROCODE";HEX(07)
0300 PRINT AT(6,10);"Board must be a working 2228B, 2228C or equivalent."
0310 END
0320 DEFFN '076(F$,Y$,X$)
0330 PRINT AT(2,0,80 );"Loading: ";BOX(1,9);" ";STR(F$);" ";Y$
0340 Y=3-POS("DP"=X$)
: LIMITS T F$,X,X,X,X
: IF X<>Y THEN 370
: ON Y GOSUB 350,360
: RETURN
0350 LOAD T F$
0360 DATA LOAD DC OPEN T F$
: RETURN
0370 PRINT AT(5,0);"File is not available."
0380 PRINT AT(0,50);"Press RUN to abort."
: KEYIN X$
: IF X$<>HEX(82) THEN 380
: COM CLEAR
: GOSUB '76 ("@MENU"," ","P")
: END
9000 END
9001 DEFFN '1 "RENUMBER 0-8999 TO 10";HEX(0D)
9010 DEFFN '16"SCRATCHT";HEX(22);"2qLOADER";HEX(223A);"SAVET()";HEX(22);"2qLOA
DER";HEX(220D)
9017 DEFFN '17 "PRINTHEX(0603)";HEX(3A);"LISTSD 0,8999";HEX(0D)
9126 DEFFN '126" "
9127 DEFFN '127"REM "