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