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 "