image of READY prompt

Wang2200.org

Listing of file='327PATCH' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'

# Sector 20, program filename = '327PATCH'
0010 REM 327PATCH 3270 06/11/84 PATCHES FOR 3270 DLP MICROCODE
0020 COM N$64,A$64,B$1,C$1,A,B,C
0030 DIM A$(5)2, D$(1)64
0040 PRINT "Patch --","RAM   Bytes --   Data              "
   : A=0
0100 REM %.PATCHES TO MICROCODE
0105 REM ..'100.....Addr  #     data.3.4.5.6.7.8.910.1.2.3.4.5.6.7.8.920.1.2.3
0110 GOSUB '100(HEX(63FF),3,HEX(C30027))
   : REM /.RA in DATAUTL
0120 GOSUB '100(HEX(2700),7,HEX(132A375CC30264))
0130 GOSUB '100(HEX(68EF),3,HEX(114050))
   : REM /.IR in INTF
0132 REM .^^ in 01.10 09/03/81
0140 GOSUB '100(HEX(5D33),3,HEX(C30827))
   : REM /.PT in DATAUTL
0150 GOSUB '100(HEX(2708),10,HEX(AF32285CCDF760C3365D))
0152 REM .^^ in 01.11 03/08/82
0154 REM .^^ in 01.12 02/04/83
0155 GOSUB '100(HEX(4DD3),3,HEX(000000))
   : REM /.DE/printer & concurrent AID
0160 GOSUB '100(HEX(641D),1,HEX(7F))
   : REM /.e'07' was x'5C'
0162 GOSUB '100(HEX(6460),1,HEX(5B))
   : REM /.e'4A' was x'7F'
0164 GOSUB '100(HEX(6465),1,HEX(5D))
   : REM /.e'4F' was x'5B'
0166 GOSUB '100(HEX(6475),1,HEX(5E))
   : REM /.e'5F' was x'5D'
0170 GOSUB '100(HEX(349E),1,HEX(00))
   : REM /.NO-OP SND RETRY COUNTER DECREMENT
0182 REM .^^ for 1.13 xx/xx/84
0185 GOSUB '100(HEX(6AFF),1,HEX(05))
   : REM /.SENDBUF RETRY CTR=4
0990 REM ..End of patches
0995 REM ..Rev.  1.1.  09/03/81
1000 IF STR(N$,41,1)="N"THEN STR(N$,40)=STR(N$,41)
   : ELSE $GIO START MICROCODE #6 (4002 40004000 400A407A)
1010 REM
1015 IF STR(N$,41)=" "THEN 1020
   : N$(5)="ASK?327A"
   : LOAD DC T#0,N$(4)
1020 LOAD DC T#0,N$(1)
1030 REM % '100 PATCH  ADDRESS   COUNT    DATA
1040 DEFFN'100(A$(1),C,D$())
1050 STR(A$(),3,2)=BIN(C,2)
1060 A=A+1
   : PRINT A,HEXOF(A$(1));"  ";HEXOF(A$(2));"  with ";HEXOF(STR(D$(),1,C));TAB
     (79)
1070 $GIO PATCH CODE #6 (4000 42304240 42104220 A000,A$()) D$()<1,C>
1080 IF STR(A$(),8,1)<>HEX(00) THEN 1100
1090 RETURN
1100 STOP "TIMEOUT LOADING PATCHES"
1200 DEFFN'15
   : LIST S"PATCHES TO 3270 MICROCODE",105,995
   : SELECT LIST 005
   : RETURN