image of READY prompt

Wang2200.org

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 "