|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 23768 (0x5cd8)
Notes: pts_type(SC)
Names: »DCBSC.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »U3270.2/DCBSC.SC«
IDENT DCBSC REL 11.1 82-02-12 870150541110 =3 CONNECT FOR VDU/PRINTER 81-11-20 =2 DISCONNECT AT OFFLINE, RET. CODE 81-04-08 =1, CHARAC. ADDR. 81-01-26 **************************************************************** * * * MODULE DCBSC * * MODULE HANDLING THE COMMUNICATION * * BETWEEN THE SLU AND CLUSTER CONTROLLER * * (EMULATION 3270 BSC) * * * **************************************************************** EJECT *********************************************************** * * * ROUTINES * * * * DCINP DC-INPUT MAIN ROUTINE * * READW READ WITH WAIT * * DCWRIT WRITE DC BUFFER * * TSTMES TEST MESSAGE * * SETSTA SET STATUS * * TSTSTA TEST STATUS * * DCABOR ABORT DC REQUEST * * CHKSTA CHACK DC STATUS * * DCOFLN INDICATE OFFLINE TO CLUSTER * * TRPA TRANSMIT SHORT READ * * TRPF TRANSMIT READ MODIFIED * * * *********************************************************** EJECT **************************************************************** * * * ENTRY POINTS * * * **************************************************************** ENTRY DCINP DC-INPUT MAIN ROUTINE ENTRY TSTSTA TEST STATUS ENTRY SETSTA SET STATUS ENTRY OPEN OPEN ENTRY CONCT CONNECT PASSIVE ENTRY SETTIM SET REQUEST TIMER ENTRY TSTMES TEST MESSAGE. ENTRY DCABOR ABORT DC REQUEST ENTRY TRPA TRANSMIT SHORT READ ENTRY TRPF TRANSMIT READ MODIFIED ENTRY DCOFLN INDICATE OFFLINE TO CLUSTER ENTRY CHKSTA CHECK DC STATUS ENTRY DCWRIT WRITE DC BUFFER ENTRY READW READ DC WITH WAIT ENTRY RDSTAT READ STATISTICS ************************************************************* * * * EXTERNAL REFERENCES * * * ************************************************************* EXTRN GETBUF GET BUFFER (PAD) EXTRN RELBUF RELEASE BUFFER (PAD) EXTRN PAID STORE AID-CODE IN DC BUFFER (PAD) EXTRN SCRINF GET SCREEN INFORMATION (VDU) EXTRN BUFADR STORE BUFFER ADDRESS IN DC BUFFER (PAD) EXTRN PACK PACK MODIFIED FIELDS (PAD) EXTRN LMP4OF INHIBIT LAMP OFF (KEYB) EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) EXTRN UNPACK UNPACK DC BUFFER (PAD) EXTRN ERROR INDICATE ERROR (KEYB) EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) EXTRN LMP3OF SYSTEM AVAIL. LAMP OFF EXTRN LMP3ON ON EJECT ********************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ********************************************************* X:C EQU 0 OFFLINE HANDLING IF :=1 OFLIN EQU X:C X:D EQU 1 NUMBER OF LINES (1-2) NBRLIN EQU X:D X:E EQU 300 REQUEST TIMEOUT IN 100 MS REQTIM EQU X:E X:L EQU 1000 MAX BUFFER SIZE IN WORDS BUFFL EQU X:L X:O EQU 0 TEST INCLUDED IF:=1 TEST EQU X:O EJECT *************************************************************** * * * DECLARATIONS OF DATA AND EQUATES * * *************************************************************** * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW1 EQU 10 CONTROL WORD 1 ECBCW2 EQU 12 CONTROL WORD 2 * * RELATIVE POS. IN ECBBLK * DC EQU 4 EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * WCC EQU 1952 WCC CHAR. KBINH EQU WCC+2 KB INHIBIT INDICATOR DCLENG EQU KBINH+4 DC READ EFFECTIVE LENGTH ECBBLK EQU DCLENG+18 ECB:S FOR MULTIPLE WAIT BUFPNT EQU ECBBLK+14 BUFFER TO RELEASE REGI EQU BUFPNT+2 SAVE AREA ECBDC1 EQU REGI+46 ECB DC LINE 1 ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * MF1CU EQU 0 SYMBOLIC ADDRESS EJECT ************************************************************ * * * DCINP DC INPUT MAIN ROUTINE * * * ************************************************************ * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************** DCINP EQU * CF A14,GETBUF GET BUFFER LDR A3,A8 CF A14,READW READ ONE BUFFER ANK A1,8 OK? RF(Z) DCIN10 YES LDR A8,A12 CF A14,RELBUF RELEASE BUFFER RF DCIN15 DCIN10 EQU * LD A1,ECBEL,A8 ST A1,DCLENG,A11 SAVE LENGTH ST A12,BUFPNT,A11 CF A14,UNPACK UNPACK THE BUFFER CF A14,DISMOD DISPLAY THE NEWS DCIN15 EQU * LD A1,KBINH,A11 LDR A2,A1 ANK A1,1 KEYBOARD TOTALLY INHIBIT? RF(Z) DCIN20 NO ANK A2,/E KEYBOARD NOT TOTALLY INHIBIT LD A1,WCC,A11 ANK A1,2 RESTORE KEYBOARD? RF(Z) DCIN30 NO DCIN20 EQU * CF A14,LMP4OF TUR OFF INHIBIT LAMP ANK A2,4 RESTORE KEYBOARD DCIN30 EQU * ST A2,KBINH,A11 LDK A1,0 CF A14,SETSTA SET DEVICE END RTN A14 EJECT ************************************************************** * * * OPEN OPEN * * ************************************************************** * REGISTERS * * A8= DC ECB * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************** OPEN EQU * ADKL A14,4 ADJUST STACK LD A8,ECBDC1,A11 GET ECB ADDRESS LDK A4,0 RESET INDICATOR LD A3,6,A13 GET BASE LD A2,MF1CU,A3 ADDRESS =1 OPEN10 EQU * ST A2,ECBCW2,A8 . =1 LDK A7,/A1 OPEN LKM DATA 1 LD A1,ECBRC,A8 RF(N) OPEN20 IFT NBRLIN=2 LDR A4,A4 ANOTHER LINE TO OPEN RF(NZ) OPEN20 NO LD A8,ECBDC2,A11 GET LINE 2 LDK A4,1 RB OPEN10 XIF OPEN20 EQU * ABR* A14 RETURN WITH CONDITION =2 EJECT ********************************************************* * * * CONCT CONNECT PASSIVE * * ********************************************************* * REGISTERS * * A8= DC ECB * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************** CONCT EQU * CF A14,GETBUF GET BUFFER LD A8,ECBDC1,A11 GET LINE 1 LDK A4,0 RESET INDICATOR CONC10 EQU * ST A12,ECBBA,A8 LDR* A1,A11 GET TASKID ANK A1,/FF SC A1,+1,A12 SAVE ADDRESS IN BUFFER LDK A1,2 LENGTH ST A1,ECBRL,A8 LD A3,6,A13 GET BASE LD A1,MF1CU,A3 ST A1,ECBCW2,A8 . =1 LDK A7,/A7 CONNECT PASSIVE LCR A1,A11 FIRST CH IN TASKID =3 CCK A1,'VV' VDU? =3 RF(E) CONC15 YES! =3 LDKL A7,/1A7 CONN PAS FOR PRINTER =3 CONC15 EQU * . =3 LKM DATA 1 LD A1,REGI,A11 GET TABLE TO SAVE PHYS. ADDRESS LD A2,ECBCW2,A8 GET ADDRESS SC A2,+2,A1 SAVE IT FOR COPY COMMAND IFT NBRLIN=2 LDR A4,A4 MORE TO CONNECT RF(NZ) CONC20 NO LDK A4,1 NO MORE LD A8,ECBDC2,A11 LINE 2 RB CONC10 CONC20 EQU * XIF LDR A8,A12 CF A14,RELBUF RELEASE BUFFER RTN A14 EJECT ******************************************************** * * DISC DISCONNECT * ******************************************************** DISC EQU * LD A8,ECBDC1,A11 GET DC ECB =2 IFT NBRLIN=2 . =2 LD A1,MAIN,A11 IS IT LINE 2? =2 RF(Z) DCOF10 NO, KEEP ALREDAY LOADED LINE 1 =2 LD A8,ECBDC2,A11 GET ECB LINE 2 =2 DCOF10 EQU * . =2 XIF . =2 LDK A7,/2F DISCONNECT LKM . =2 DATA 1 . =2 RTN A14 . =2 EJECT ***************************************************************** * * SETTIM SET REQUEST TIMEOUT * ***************************************************************** * REGISTERS * * ***************************************************************** SETTIM EQU * LD A8,ECBDC1,A11 GET ECB LDK A4,0 RESET INDICATOR LDKL A1,REQTIM GET TIMEOUT VALUE SETT10 EQU * ST A1,ECBCW1,A8 LDK A7,/B9 SET TIMEOUT LKM DATA 1 IFT NBRLIN=2 LDR A4,A4 MORE TO TIME? RF(NZ) SETT20 NO LD A8,ECBDC2,A11 GET LINE 2 LDK A4,1 NO MORE RB SETT10 SETT20 EQU * XIF RTN A14 EJECT ********************************************************* * * * READW RECEIVE * * ********************************************************* * REGISTERS * * A3= BUFFER ADDRESS * A8= DC ECB * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************* READW EQU * LD A8,ECBDC1,A11 LINE 1 IFT NBRLIN=2 LD A1,MAIN,A11 MORE LINES RF(Z) REDW10 NO LD A8,ECBDC2,A11 LINE 2 REDW10 EQU * XIF LDKL A1,BUFFL+BUFFL GET LENGTH ST A1,ECBRL,A8 ST A3,ECBBA,A8 LDK A7,/82 RECEIVE LKM DATA 1 LD A1,ECBRC,A8 ANK A1,/5B OK? RF(Z) REDW20 YES CF A14,CHKSTA CHECK STATUS LDK A1,8 INDICATE ERROR RF REDW30 REDW20 EQU * LDK A1,2 REDW30 EQU * RTN A14 EJECT ********************************************************* * * * DCWRIT SEND * * ********************************************************* * REGISTERS * * A1= AT ENTRY CHAIN INDICATOR, RETURN CODE * A8= DC ECB * A9= DC BUFFER LENGTH * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** DCWRIT EQU * LD A8,ECBDC1,A11 LINE IFT NBRLIN=2 LD A1,MAIN,A11 LINE 2? RF(Z) DCWR10 NO LD A8,ECBDC2,A11 LINE 2 DCWR10 EQU * XIF LDK A2,2 KEYBOARD INHIBIT BUT RESETABLE ORS A2,KBINH,A11 LDK A7,/86 WRITE ORDER ST A12,ECBBA,A8 BUFFER ADDRESS ST A9,ECBRL,A8 LKM DATA 1 LD A1,ECBRC,A8 ANY ERROR? ANK A1,/5B RF(Z) DCWR90 NO CF A14,ERROR CF A14,CHKSTA CHECK DC STATUS LD A1,KBINH,A11 ANK A1,/D RESET KEYBOARD PARTLY ST A1,KBINH,A11 CF A14,LMP4OF INHIBIT LAMP OFF CF A14,RESKB RESET KB BUFFER LDK A1,1 RETURN CODE DCWR90 EQU * RTN A14 EJECT ********************************************************* * * * TSTMES TEST IF ANY MESSAGE, NO WAIT * * * ********************************************************* * REGISTERS * * A1= RETURN CODE * A11= ADDRESS TO CREDIT WORK AREA * A13= ADDRESS TO ECB AREA * ********************************************************* TSTMES EQU * LD A8,ECBDC1,A11 LINE 1 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 2 RF(Z) TSTM10 NO LD A8,ECBDC2,A11 LINE 2 TSTM10 EQU * XIF LDK A2,1 ST A2,ECBCW1,A8 INDICATE TEST MESSAGE LDK A7,0 TEST MESS., NO WAIT LKM DATA 1 RTN A14 EJECT ************************************************************* * * * SETSTA SET STATUS * * * ************************************************************* * REGISTERS * * A1= AT ENTRY STATUS * A8= DC ECB * A11= RESERVED * A13= ADDRESS TO ECB AREA * ************************************************************ SETSTA EQU * LD A8,ECBDC1,A11 IFT NBRLIN=2 LD A2,MAIN,A11 RF(Z) SETS10 LD A8,ECBDC2,A11 SETS10 EQU * XIF LDK A7,/38 ST A1,ECBCW1,A8 LKM DATA 1 RTN A14 EJECT ****************************************************** * * * TSTSTA TEST STATUS * * * ****************************************************** * REGISTERS * * A1= RETURN CODE * A8= DC ECB * A11= RESERVED * A13= ADDRESS TO ECB AREA * ***************************************************** TSTSTA EQU * LD A8,ECBDC1,A11 LINE 1 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 2? RF(Z) TSTS10 NO LD A8,ECBDC2,A11 LINE 2 TSTS10 EQU * XIF CM ECBCW1,A8 INDICATE TEST STATUS LDK A7,0 LKM DATA 1 LD A1,ECBCW1,A8 RTN A14 EJECT ********************************************************************* * * RDSTAT READ STATISTICS * ********************************************************************** * REGISTERS * * ********************************************************************* RDSTAT EQU * IFT TEST=1 LD A8,ECBDC1,A11 IFT NBRLIN=2 LD A1,MAIN,A11 THE OTHER LINE RF(Z) RDST10 NO LD A8,ECBDC2,A11 RDST10 EQU * XIF IFT TEST=1 ST A12,ECBBA,A8 LDKL A1,BUFFL+BUFFL ST A1,ECBRL,A8 CM ECBCW1,A8 NO RESET AFTERWARDS LDK A7,/AD LKM DATA 1 RTN A14 XIF EJECT ********************************************************** * * * DCABOR ABORT TEST MESSAGE REQUEST * * * ********************************************************** * REGISTERS * * A8= DC ECB * A11= ADDRESS TO CREDIT WORK AREA * A13= ADDRESS TO ECB AREA * ********************************************************* DCABOR EQU * LD A8,ECBDC1,A11 LINE 1 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 2? RF(Z) DCAB10 NO LD A8,ECBDC2,A11 LINE 2 DCAB10 EQU * XIF LDK A7,0 LKM DATA 10 LDR A7,A7 OK? RF(NZ) DCAB10 NO,ALREADY COMPLETED CM ECBBLK+DC,A11 DCAB10 EQU * RTN A14 EJECT * * * * DC RETURN CODE * * * * BIT 0 REQUEST ERROR * 1 RESERVED * 2 RESERVED * * 9 REQUEST TIMEOUT * 11 SEQUENCE ERROR * 12 INCORRECT LENGTH * 13 RESERVED * 14 TRANSMISSION ERROR * 15 NO CONNECTION * * * EJECT ****************************************************** * * * CHKSTA CHECK DC STATUS * * * ****************************************************** * REGISTERS * * A1= AT ENTRY DC RETURN CODE, RETURN CODE * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* CHKSTA EQU * CF A14,TSTSTA TEST STATUS ANKL A1,/2211 LINE OK? XRKL A1,/2211 RF(NZ) CHKS10 NO CF A14,LMP3ON SYSTEM AVAIL. RF CHKS20 CHKS10 EQU * CF A14,LMP3OF CHKS20 EQU * RTN A14 EJECT ********************************************************* * * * DCOFLN INDICATE OFFLINE TO CLUSTER * * * ********************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************** DCOFLN EQU * IFT OFLIN=1 CF A14,DCABOR CF A14,DISC DISCONNECT =2 XIF RTN A14 EJECT ***************************************************** * * * TRPA TRANSMIT SHORT READ AT PA-KEY * * * ***************************************************** * REGISTERS * * A2= AID CODE * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** TRPA EQU * CF A14,GETBUF GET TRANSMIT BUFFER CF A14,PAID STORE AID IN BUFFER CF A14,DCWRIT TRANSMIT LDR A8,A12 BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER RTN A14 EJECT ****************************************************** * * * TRPF TRANSMIT MODIFIED READ AT PF-KEY * * * ****************************************************** * REGISTERS * * A2= AID CODE * A4= REL CURSOR POS. * A5= RESERVED * A6= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ****************************************************** TRPF EQU * CF A14,GETBUF GET TRANSMIT BUFFER CF A14,PAID SAVE AID-CODE CF A14,SCRINF GET SCREEN INFORMATION LDR A1,A4 CURSOR ADDRESS CF A14,BUFADR STORE CURSOR ADDRESS IN BUFFER CF A14,PACK PACK BUFFER WITH MODIFIED FIELDS AND TRANSMIT RTN A14 END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DCBSC REL 11.1 82-02-12 870150541110 «, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x0038}
0x003c…0062 Head {h00=0x0022, h01=0x0050, text=» =3 CONNECT FOR VDU/PRINTER «, t00=0x0000, t01=0x0040}
0x0062…0076 Head {h00=0x0010, h01=0x0050, text=» 81-11-20 «, t00=0x0000, t01=0x0066}
0x0076…00a4 Head {h00=0x002a, h01=0x0050, text=» =2 DISCONNECT AT OFFLINE, RET. CODE«, t00=0x0000, t01=0x007a}
0x00a4…00b8 Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0000, t01=0x00a8}
0x00b8…00d4 Head {h00=0x0018, h01=0x0050, text=» =1, CHARAC. ADDR.«, t00=0x0000, t01=0x00bc}
0x00d4…00e8 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x00d8}
0x00e8…0130 Head {h00=0x0044, h01=0x0040, text=»****************************************************************«, t00=0x0000, t01=0x00ec}
0x0130…0178 Head {h00=0x0044, h01=0x0040, text=»* *«, t00=0x0000, t01=0x0134}
0x0178…01c0 Head {h00=0x0044, h01=0x0050, text=»* MODULE DCBSC *«, t00=0x0000, t01=0x017c}
0x01c0…0208 Head {h00=0x0044, h01=0x0040, text=»* MODULE HANDLING THE COMMUNICATION *«, t00=0x0001, t01=0x0034}
0x0208…0250 Head {h00=0x0044, h01=0x0040, text=»* BETWEEN THE SLU AND CLUSTER CONTROLLER *«, t00=0x0001, t01=0x007c}
0x0250…0294 Head {h00=0x0040, h01=0x0050, text=»* (EMULATION 3270 BSC) * «, t00=0x0001, t01=0x00c4}
0x0294…02dc Head {h00=0x0044, h01=0x0040, text=»* *«, t00=0x0001, t01=0x0108}
0x02dc…0324 Head {h00=0x0044, h01=0x0040, text=»****************************************************************«, t00=0x0001, t01=0x0150}
0x0324…0332 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0008}
0x0332…0376 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0002, t01=0x0016}
0x0376…03ba Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0002, t01=0x005a}
0x03ba…03fe Head {h00=0x0040, h01=0x0050, text=»* ROUTINES * «, t00=0x0002, t01=0x009e}
0x03fe…0442 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00e2}
0x0442…0486 Head {h00=0x0040, h01=0x0050, text=»* DCINP DC-INPUT MAIN ROUTINE * «, t00=0x0002, t01=0x0126}
0x0486…04ca Head {h00=0x0040, h01=0x0050, text=»* READW READ WITH WAIT * «, t00=0x0002, t01=0x016a}
0x04ca…050e Head {h00=0x0040, h01=0x0050, text=»* DCWRIT WRITE DC BUFFER * «, t00=0x0003, t01=0x001e}
0x050e…0552 Head {h00=0x0040, h01=0x0050, text=»* TSTMES TEST MESSAGE * «, t00=0x0003, t01=0x0062}
0x0552…0596 Head {h00=0x0040, h01=0x0050, text=»* SETSTA SET STATUS * «, t00=0x0003, t01=0x00a6}
0x0596…05da Head {h00=0x0040, h01=0x0050, text=»* TSTSTA TEST STATUS * «, t00=0x0003, t01=0x00ea}
0x05da…061e Head {h00=0x0040, h01=0x0050, text=»* DCABOR ABORT DC REQUEST * «, t00=0x0003, t01=0x012e}
0x061e…0662 Head {h00=0x0040, h01=0x0050, text=»* CHKSTA CHACK DC STATUS * «, t00=0x0003, t01=0x0172}
0x0662…06a6 Head {h00=0x0040, h01=0x0050, text=»* DCOFLN INDICATE OFFLINE TO CLUSTER * «, t00=0x0004, t01=0x0026}
0x06a6…06ea Head {h00=0x0040, h01=0x0050, text=»* TRPA TRANSMIT SHORT READ * «, t00=0x0004, t01=0x006a}
0x06ea…072e Head {h00=0x0040, h01=0x0050, text=»* TRPF TRANSMIT READ MODIFIED * «, t00=0x0004, t01=0x00ae}
0x072e…0772 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0004, t01=0x00f2}
0x0772…07b6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0004, t01=0x0136}
0x07b6…07c4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0004, t01=0x017a}
0x07c4…080c Head {h00=0x0044, h01=0x0040, text=»****************************************************************«, t00=0x0004, t01=0x0188}
0x080c…0854 Head {h00=0x0044, h01=0x0040, text=»* *«, t00=0x0005, t01=0x0040}
0x0854…089c Head {h00=0x0044, h01=0x0040, text=»* ENTRY POINTS *«, t00=0x0005, t01=0x0088}
0x089c…08e4 Head {h00=0x0044, h01=0x0040, text=»* *«, t00=0x0005, t01=0x00d0}
0x08e4…092c Head {h00=0x0044, h01=0x0040, text=»****************************************************************«, t00=0x0005, t01=0x0118}
0x092c…0934 Head {h00=0x0004, h01=0x0002, t00=0x0005, t01=0x0160}
0x0934…095e Head {h00=0x0026, h01=0x0050, text=» ENTRY DCINP DC-INPUT MAIN ROUTINE«, t00=0x0005, t01=0x0168}
0x095e…0980 (6, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ENTRY TSTSTA TEST STATUS «, t00=0x0006, t01=0x0004}
0x0980…09a0 Head {h00=0x001c, h01=0x0050, text=» ENTRY SETSTA SET STATUS«, t00=0x0006, t01=0x0026}
0x09a0…09b8 Head {h00=0x0014, h01=0x0050, text=» ENTRY OPEN OPEN«, t00=0x0006, t01=0x0046}
0x09b8…09dc Head {h00=0x0020, h01=0x0050, text=» ENTRY CONCT CONNECT PASSIVE«, t00=0x0006, t01=0x005e}
0x09dc…0a04 Head {h00=0x0024, h01=0x0050, text=» ENTRY SETTIM SET REQUEST TIMER «, t00=0x0006, t01=0x0082}
0x0a04…0a28 Head {h00=0x0020, h01=0x0050, text=» ENTRY TSTMES TEST MESSAGE. «, t00=0x0006, t01=0x00aa}
0x0a28…0a4e Head {h00=0x0022, h01=0x0050, text=» ENTRY DCABOR ABORT DC REQUEST«, t00=0x0006, t01=0x00ce}
0x0a4e…0a76 Head {h00=0x0024, h01=0x0050, text=» ENTRY TRPA TRANSMIT SHORT READ «, t00=0x0006, t01=0x00f4}
0x0a76…0aa0 Head {h00=0x0026, h01=0x0050, text=» ENTRY TRPF TRANSMIT READ MODIFIED«, t00=0x0006, t01=0x011c}
0x0aa0…0ad2 Head {h00=0x002e, h01=0x0050, text=» ENTRY DCOFLN INDICATE OFFLINE TO CLUSTER «, t00=0x0006, t01=0x0146}
0x0ad2…0af8 Head {h00=0x0022, h01=0x0050, text=» ENTRY CHKSTA CHECK DC STATUS «, t00=0x0006, t01=0x0178}
0x0af8…0b1e Head {h00=0x0022, h01=0x0050, text=» ENTRY DCWRIT WRITE DC BUFFER «, t00=0x0007, t01=0x000e}
0x0b1e…0b44 Head {h00=0x0022, h01=0x0050, text=» ENTRY READW READ DC WITH WAIT«, t00=0x0007, t01=0x0034}
0x0b44…0b6a Head {h00=0x0022, h01=0x0050, text=» ENTRY RDSTAT READ STATISTICS «, t00=0x0007, t01=0x005a}
0x0b6a…0b72 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0080}
0x0b72…0bb8 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0007, t01=0x0088}
0x0bb8…0bfe Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0007, t01=0x00ce}
0x0bfe…0c44 Head {h00=0x0042, h01=0x003d, text=»* EXTERNAL REFERENCES * «, t00=0x0007, t01=0x0114}
0x0c44…0c8a Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0007, t01=0x015a}
0x0c8a…0cd0 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0008, t01=0x0010}
0x0cd0…0cd8 Head {h00=0x0004, h01=0x0002, t00=0x0008, t01=0x0056}
0x0cd8…0cfe Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0008, t01=0x005e}
0x0cfe…0d28 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0008, t01=0x0084}
0x0d28…0d5e Head {h00=0x0032, h01=0x0050, text=» EXTRN PAID STORE AID-CODE IN DC BUFFER (PAD) «, t00=0x0008, t01=0x00ae}
0x0d5e…0d90 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x0008, t01=0x00e4}
0x0d90…0dce Head {h00=0x003a, h01=0x0050, text=» EXTRN BUFADR STORE BUFFER ADDRESS IN DC BUFFER (PAD) «, t00=0x0008, t01=0x0116}
0x0dce…0dfc Head {h00=0x002a, h01=0x0050, text=» EXTRN PACK PACK MODIFIED FIELDS (PAD)«, t00=0x0008, t01=0x0154}
0x0dfc…0e2a Head {h00=0x002a, h01=0x0050, text=» EXTRN LMP4OF INHIBIT LAMP OFF (KEYB) «, t00=0x0008, t01=0x0182}
0x0e2a…0e5e Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x0009, t01=0x0020}
0x0e5e…0e8a Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x0009, t01=0x0054}
0x0e8a…0eb4 Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR INDICATE ERROR (KEYB)«, t00=0x0009, t01=0x0080}
0x0eb4…0ee6 Head {h00=0x002e, h01=0x0050, text=» EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) «, t00=0x0009, t01=0x00aa}
0x0ee6…0f12 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP3OF SYSTEM AVAIL. LAMP OFF«, t00=0x0009, t01=0x00dc}
0x0f12…0f3e Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP3ON ON «, t00=0x0009, t01=0x0108}
0x0f3e…0f4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0134}
0x0f4c…0f8e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0009, t01=0x0142}
0x0f8e…0fd0 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0184}
0x0fd0…1012 Head {h00=0x003e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000a, t01=0x0036}
0x1012…1054 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0078}
0x1054…1096 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000a, t01=0x00ba}
0x1096…10c0 Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x000a, t01=0x00fc}
0x10c0…10d6 Head {h00=0x0012, h01=0x0050, text=»OFLIN EQU X:C «, t00=0x000a, t01=0x0126}
0x10d6…10fe Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x000a, t01=0x013c}
0x10fe…1114 Head {h00=0x0012, h01=0x0050, text=»NBRLIN EQU X:D«, t00=0x000a, t01=0x0164}
0x1114…1142 Head {h00=0x002a, h01=0x0050, text=»X:E EQU 300 REQUEST TIMEOUT IN 100 MS «, t00=0x000a, t01=0x017a}
0x1142…1158 Head {h00=0x0012, h01=0x0050, text=»REQTIM EQU X:E«, t00=0x000b, t01=0x0018}
0x1158…1186 Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1000 MAX BUFFER SIZE IN WORDS «, t00=0x000b, t01=0x002e}
0x1186…119c Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU X:L «, t00=0x000b, t01=0x005c}
0x119c…11c2 Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000b, t01=0x0072}
0x11c2…11d6 Head {h00=0x0010, h01=0x0050, text=»TEST EQU X:O«, t00=0x000b, t01=0x0098}
0x11d6…11e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00ac}
0x11e4…122c Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x000b, t01=0x00ba}
0x122c…1274 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x000b, t01=0x0102}
0x1274…129e Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000b, t01=0x014a}
0x129e…12e6 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x000b, t01=0x0174}
0x12e6…132e Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x000c, t01=0x002c}
0x132e…1336 Head {h00=0x0004, h01=0x0002, t00=0x000c, t01=0x0074}
0x1336…1340 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x007c}
0x1340…1368 Head {h00=0x0024, h01=0x0020, text=»* EQUATES FOR ECB HANDLING«, t00=0x000c, t01=0x0086}
0x1368…1372 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00ae}
0x1372…1394 Head {h00=0x001e, h01=0x001a, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000c, t01=0x00b8}
0x1394…13b8 Head {h00=0x0020, h01=0x001c, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000c, t01=0x00da}
0x13b8…13dc Head {h00=0x0020, h01=0x001c, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000c, t01=0x00fe}
0x13dc…13fc Head {h00=0x001c, h01=0x0017, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000c, t01=0x0122}
0x13fc…1420 Head {h00=0x0020, h01=0x0050, text=»ECBCW1 EQU 10 CONTROL WORD 1«, t00=0x000c, t01=0x0142}
0x1420…1444 Head {h00=0x0020, h01=0x0050, text=»ECBCW2 EQU 12 CONTROL WORD 2«, t00=0x000c, t01=0x0166}
0x1444…144e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018a}
0x144e…1470 (13, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* RELATIVE POS. IN ECBBLK «, t00=0x000d, t01=0x0004}
0x1470…147a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0026}
0x147a…148a Head {h00=0x000c, h01=0x0050, text=»DC EQU 4«, t00=0x000d, t01=0x0030}
0x148a…1498 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0040}
0x1498…14a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004e}
0x14a2…14c2 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x0058}
0x14c2…14de Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x000d, t01=0x0078}
0x14de…14e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0094}
0x14e8…1506 Head {h00=0x001a, h01=0x0050, text=»WCC EQU 1952 WCC CHAR.«, t00=0x000d, t01=0x009e}
0x1506…1532 Head {h00=0x0028, h01=0x0050, text=»KBINH EQU WCC+2 KB INHIBIT INDICATOR«, t00=0x000d, t01=0x00bc}
0x1532…1566 Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU KBINH+4 DC READ EFFECTIVE LENGTH «, t00=0x000d, t01=0x00e8}
0x1566…159a Head {h00=0x0030, h01=0x0050, text=»ECBBLK EQU DCLENG+18 ECB:S FOR MULTIPLE WAIT«, t00=0x000d, t01=0x011c}
0x159a…15c8 Head {h00=0x002a, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER TO RELEASE«, t00=0x000d, t01=0x0150}
0x15c8…15ec Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x000d, t01=0x017e}
0x15ec…1614 Head {h00=0x0024, h01=0x0050, text=»ECBDC1 EQU REGI+46 ECB DC LINE 1«, t00=0x000e, t01=0x0012}
0x1614…163e Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x000e, t01=0x003a}
0x163e…1648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0064}
0x1648…1668 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000e, t01=0x006e}
0x1668…1682 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x000e, t01=0x008e}
0x1682…168c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a8}
0x168c…16b0 Head {h00=0x0020, h01=0x0050, text=»MF1CU EQU 0 SYMBOLIC ADDRESS«, t00=0x000e, t01=0x00b2}
0x16b0…16be Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000e, t01=0x00d6}
0x16be…1702 Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000e, t01=0x00e4}
0x1702…1746 Head {h00=0x0040, h01=0x003c, text=»* *«, t00=0x000e, t01=0x0128}
0x1746…178a Head {h00=0x0040, h01=0x003c, text=»* DCINP DC INPUT MAIN ROUTINE *«, t00=0x000e, t01=0x016c}
0x178a…17ce Head {h00=0x0040, h01=0x003c, text=»* *«, t00=0x000f, t01=0x0020}
0x17ce…1812 Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x000f, t01=0x0064}
0x1812…1826 Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x000f, t01=0x00a8}
0x1826…1830 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x00bc}
0x1830…1850 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x000f, t01=0x00c6}
0x1850…1868 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x000f, t01=0x00e6}
0x1868…1872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fe}
0x1872…18a6 Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x000f, t01=0x0108}
0x18a6…18ba Head {h00=0x0010, h01=0x000b, text=»DCINP EQU * «, t00=0x000f, t01=0x013c}
0x18ba…18dc Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x000f, t01=0x0150}
0x18dc…18ee Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x000f, t01=0x0172}
0x18ee…1914 Head {h00=0x0022, h01=0x0050, text=» CF A14,READW READ ONE BUFFER «, t00=0x000f, t01=0x0184}
0x1914…192a Head {h00=0x0012, h01=0x0050, text=» ANK A1,8 OK? «, t00=0x0010, t01=0x001a}
0x192a…1944 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCIN10 YES «, t00=0x0010, t01=0x0030}
0x1944…1958 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0010, t01=0x004a}
0x1958…197e Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0010, t01=0x005e}
0x197e…1990 Head {h00=0x000e, h01=0x0050, text=» RF DCIN15«, t00=0x0010, t01=0x0084}
0x1990…19a4 Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0010, t01=0x0096}
0x19a4…19bc Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x0010, t01=0x00aa}
0x19bc…19e2 Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x0010, t01=0x00c2}
0x19e2…19fc Head {h00=0x0016, h01=0x0050, text=» ST A12,BUFPNT,A11«, t00=0x0010, t01=0x00e8}
0x19fc…1a24 Head {h00=0x0024, h01=0x0050, text=» CF A14,UNPACK UNPACK THE BUFFER«, t00=0x0010, t01=0x0102}
0x1a24…1a4c Head {h00=0x0024, h01=0x0050, text=» CF A14,DISMOD DISPLAY THE NEWS «, t00=0x0010, t01=0x012a}
0x1a4c…1a60 Head {h00=0x0010, h01=0x0050, text=»DCIN15 EQU *«, t00=0x0010, t01=0x0152}
0x1a60…1a78 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0010, t01=0x0166}
0x1a78…1a8a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0010, t01=0x017e}
0x1a8a…1ab6 Head {h00=0x0028, h01=0x0050, text=» ANK A1,1 KEYBOARD TOTALLY INHIBIT? «, t00=0x0010, t01=0x0190}
0x1ab6…1ace Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCIN20 NO«, t00=0x0011, t01=0x002c}
0x1ace…1afe Head {h00=0x002c, h01=0x0050, text=» ANK A2,/E KEYBOARD NOT TOTALLY INHIBIT «, t00=0x0011, t01=0x0044}
0x1afe…1b14 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0011, t01=0x0074}
0x1b14…1b38 Head {h00=0x0020, h01=0x0050, text=» ANK A1,2 RESTORE KEYBOARD? «, t00=0x0011, t01=0x008a}
0x1b38…1b50 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCIN30 NO«, t00=0x0011, t01=0x00ae}
0x1b50…1b64 Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0011, t01=0x00c6}
0x1b64…1b90 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP4OF TUR OFF INHIBIT LAMP «, t00=0x0011, t01=0x00da}
0x1b90…1bb2 Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 RESTORE KEYBOARD«, t00=0x0011, t01=0x0106}
0x1bb2…1bc6 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0011, t01=0x0128}
0x1bc6…1bde Head {h00=0x0014, h01=0x0050, text=» ST A2,KBINH,A11«, t00=0x0011, t01=0x013c}
0x1bde…1bf0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0011, t01=0x0154}
0x1bf0…1c16 Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x0011, t01=0x0166}
0x1c16…1c26 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0011, t01=0x018c}
0x1c26…1c34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x000c}
0x1c34…1c7a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0012, t01=0x001a}
0x1c7a…1cc0 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0060}
0x1cc0…1cd4 Head {h00=0x0010, h01=0x0050, text=»* OPEN OPEN «, t00=0x0012, t01=0x00a6}
0x1cd4…1d1a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00ba}
0x1d1a…1d60 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0012, t01=0x0100}
0x1d60…1d74 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0012, t01=0x0146}
0x1d74…1d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015a}
0x1d7e…1d92 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0012, t01=0x0164}
0x1d92…1db2 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0012, t01=0x0178}
0x1db2…1dca Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0013, t01=0x0008}
0x1dca…1dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0020}
0x1dd4…1e1a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0013, t01=0x002a}
0x1e1a…1e2c Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0013, t01=0x0070}
0x1e2c…1e4c Head {h00=0x001c, h01=0x0050, text=» ADKL A14,4 ADJUST STACK«, t00=0x0013, t01=0x0082}
0x1e4c…1e76 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBDC1,A11 GET ECB ADDRESS «, t00=0x0013, t01=0x00a2}
0x1e76…1e98 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET INDICATOR «, t00=0x0013, t01=0x00cc}
0x1e98…1eb6 Head {h00=0x001a, h01=0x0050, text=» LD A3,6,A13 GET BASE «, t00=0x0013, t01=0x00ee}
0x1eb6…1ed8 Head {h00=0x001e, h01=0x0050, text=» LD A2,MF1CU,A3 ADDRESS =1«, t00=0x0013, t01=0x010c}
0x1ed8…1eec Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0013, t01=0x012e}
0x1eec…1f0a Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBCW2,A8 . =1 «, t00=0x0013, t01=0x0142}
0x1f0a…1f22 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/A1 OPEN«, t00=0x0013, t01=0x0160}
0x1f22…1f2e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x0178}
0x1f2e…1f3e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0013, t01=0x0184}
0x1f3e…1f56 (20, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0014, t01=0x0004}
0x1f56…1f6c Head {h00=0x0012, h01=0x0050, text=» RF(N) OPEN20 «, t00=0x0014, t01=0x001c}
0x1f6c…1f82 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0014, t01=0x0032}
0x1f82…1faa Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 ANOTHER LINE TO OPEN «, t00=0x0014, t01=0x0048}
0x1faa…1fc4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) OPEN20 NO «, t00=0x0014, t01=0x0070}
0x1fc4…1fe8 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC2,A11 GET LINE 2«, t00=0x0014, t01=0x008a}
0x1fe8…1ffa Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0014, t01=0x00ae}
0x1ffa…200c Head {h00=0x000e, h01=0x0050, text=» RB OPEN10«, t00=0x0014, t01=0x00c0}
0x200c…2018 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00d2}
0x2018…202c Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x0014, t01=0x00de}
0x202c…2056 Head {h00=0x0026, h01=0x0050, text=» ABR* A14 RETURN WITH CONDITION =2«, t00=0x0014, t01=0x00f2}
0x2056…2064 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x011c}
0x2064…20a6 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0014, t01=0x012a}
0x20a6…20e8 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0014, t01=0x016c}
0x20e8…2108 Head {h00=0x001c, h01=0x0050, text=»* CONCT CONNECT PASSIVE «, t00=0x0015, t01=0x001e}
0x2108…214a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0015, t01=0x003e}
0x214a…218c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0015, t01=0x0080}
0x218c…21a0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x00c2}
0x21a0…21aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d6}
0x21aa…21be Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0015, t01=0x00e0}
0x21be…21de Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0015, t01=0x00f4}
0x21de…21f6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0015, t01=0x0114}
0x21f6…2200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012c}
0x2200…223a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0015, t01=0x0136}
0x223a…224e Head {h00=0x0010, h01=0x0050, text=»CONCT EQU * «, t00=0x0015, t01=0x0170}
0x224e…2270 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x0015, t01=0x0184}
0x2270…2294 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC1,A11 GET LINE 1«, t00=0x0016, t01=0x0016}
0x2294…22b6 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET INDICATOR «, t00=0x0016, t01=0x003a}
0x22b6…22ca Head {h00=0x0010, h01=0x0050, text=»CONC10 EQU *«, t00=0x0016, t01=0x005c}
0x22ca…22e2 Head {h00=0x0014, h01=0x0050, text=» ST A12,ECBBA,A8«, t00=0x0016, t01=0x0070}
0x22e2…2302 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A11 GET TASKID «, t00=0x0016, t01=0x0088}
0x2302…2316 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0016, t01=0x00a8}
0x2316…2342 Head {h00=0x0028, h01=0x0050, text=» SC A1,+1,A12 SAVE ADDRESS IN BUFFER«, t00=0x0016, t01=0x00bc}
0x2342…235a Head {h00=0x0014, h01=0x0050, text=» LDK A1,2 LENGTH«, t00=0x0016, t01=0x00e8}
0x235a…2372 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0016, t01=0x0100}
0x2372…2390 Head {h00=0x001a, h01=0x0050, text=» LD A3,6,A13 GET BASE «, t00=0x0016, t01=0x0118}
0x2390…23a8 Head {h00=0x0014, h01=0x0050, text=» LD A1,MF1CU,A3 «, t00=0x0016, t01=0x0136}
0x23a8…23c6 Head {h00=0x001a, h01=0x0050, text=» ST A1,ECBCW2,A8 . =1 «, t00=0x0016, t01=0x014e}
0x23c6…23ea Head {h00=0x0020, h01=0x0050, text=» LDK A7,/A7 CONNECT PASSIVE «, t00=0x0016, t01=0x016c}
0x23ea…2414 Head {h00=0x0026, h01=0x0050, text=» LCR A1,A11 FIRST CH IN TASKID =3 «, t00=0x0016, t01=0x0190}
0x2414…2430 Head {h00=0x0018, h01=0x0050, text=» CCK A1,'VV' VDU? =3«, t00=0x0017, t01=0x002a}
0x2430…244e Head {h00=0x001a, h01=0x0050, text=» RF(E) CONC15 YES! =3 «, t00=0x0017, t01=0x0046}
0x244e…247c Head {h00=0x002a, h01=0x0050, text=» LDKL A7,/1A7 CONN PAS FOR PRINTER =3 «, t00=0x0017, t01=0x0064}
0x247c…2496 Head {h00=0x0016, h01=0x0050, text=»CONC15 EQU * . =3 «, t00=0x0017, t01=0x0092}
0x2496…24a2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0017, t01=0x00ac}
0x24a2…24b2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0017, t01=0x00b8}
0x24b2…24ea Head {h00=0x0034, h01=0x0050, text=» LD A1,REGI,A11 GET TABLE TO SAVE PHYS. ADDRESS «, t00=0x0017, t01=0x00c8}
0x24ea…250e Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW2,A8 GET ADDRESS«, t00=0x0017, t01=0x0100}
0x250e…253c Head {h00=0x002a, h01=0x0050, text=» SC A2,+2,A1 SAVE IT FOR COPY COMMAND «, t00=0x0017, t01=0x0124}
0x253c…2552 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0017, t01=0x0152}
0x2552…2574 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 MORE TO CONNECT«, t00=0x0017, t01=0x0168}
0x2574…258e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CONC20 NO «, t00=0x0017, t01=0x018a}
0x258e…25a8 Head {h00=0x0016, h01=0x0050, text=» LDK A4,1 NO MORE «, t00=0x0018, t01=0x0014}
0x25a8…25c8 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0018, t01=0x002e}
0x25c8…25da Head {h00=0x000e, h01=0x0050, text=» RB CONC10«, t00=0x0018, t01=0x004e}
0x25da…25ee Head {h00=0x0010, h01=0x0050, text=»CONC20 EQU *«, t00=0x0018, t01=0x0060}
0x25ee…25fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0074}
0x25fa…260e Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0018, t01=0x0080}
0x260e…2634 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0018, t01=0x0094}
0x2634…2644 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x00ba}
0x2644…2652 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00ca}
0x2652…2692 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0018, t01=0x00d8}
0x2692…269c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0118}
0x269c…26b6 Head {h00=0x0016, h01=0x0050, text=»* DISC DISCONNECT «, t00=0x0018, t01=0x0122}
0x26b6…26c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013c}
0x26c0…2700 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0018, t01=0x0146}
0x2700…2712 Head {h00=0x000e, h01=0x0050, text=»DISC EQU *«, t00=0x0018, t01=0x0186}
0x2712…273a Head {h00=0x0024, h01=0x0050, text=» LD A8,ECBDC1,A11 GET DC ECB =2 «, t00=0x0019, t01=0x0008}
0x273a…2754 Head {h00=0x0016, h01=0x0050, text=» IFT NBRLIN=2 . =2«, t00=0x0019, t01=0x0030}
0x2754…277c Head {h00=0x0024, h01=0x0050, text=» LD A1,MAIN,A11 IS IT LINE 2? =2«, t00=0x0019, t01=0x004a}
0x277c…27b4 Head {h00=0x0034, h01=0x0050, text=» RF(Z) DCOF10 NO, KEEP ALREDAY LOADED LINE 1 =2 «, t00=0x0019, t01=0x0072}
0x27b4…27e0 Head {h00=0x0028, h01=0x0050, text=» LD A8,ECBDC2,A11 GET ECB LINE 2 =2 «, t00=0x0019, t01=0x00aa}
0x27e0…27fa Head {h00=0x0016, h01=0x0050, text=»DCOF10 EQU * . =2 «, t00=0x0019, t01=0x00d6}
0x27fa…280c Head {h00=0x000e, h01=0x0050, text=» XIF . =2«, t00=0x0019, t01=0x00f0}
0x280c…282a Head {h00=0x001a, h01=0x0050, text=» LDK A7,/2F DISCONNECT«, t00=0x0019, t01=0x0102}
0x282a…283c Head {h00=0x000e, h01=0x0050, text=» LKM . =2«, t00=0x0019, t01=0x0120}
0x283c…2850 Head {h00=0x0010, h01=0x0050, text=» DATA 1 . =2«, t00=0x0019, t01=0x0132}
0x2850…2866 Head {h00=0x0012, h01=0x0050, text=» RTN A14 . =2 «, t00=0x0019, t01=0x0146}
0x2866…2874 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x015c}
0x2874…28be Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0019, t01=0x016a}
0x28be…28c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0024}
0x28c8…28ec Head {h00=0x0020, h01=0x0050, text=»* SETTIM SET REQUEST TIMEOUT«, t00=0x001a, t01=0x002e}
0x28ec…28f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0052}
0x28f6…2940 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001a, t01=0x005c}
0x2940…2960 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x001a, t01=0x00a6}
0x2960…296a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c6}
0x296a…2974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d0}
0x2974…29be Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001a, t01=0x00da}
0x29be…29d2 Head {h00=0x0010, h01=0x0050, text=»SETTIM EQU *«, t00=0x001a, t01=0x0124}
0x29d2…29f4 Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBDC1,A11 GET ECB «, t00=0x001a, t01=0x0138}
0x29f4…2a16 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET INDICATOR «, t00=0x001a, t01=0x015a}
0x2a16…2a40 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,REQTIM GET TIMEOUT VALUE «, t00=0x001a, t01=0x017c}
0x2a40…2a54 Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x001b, t01=0x0016}
0x2a54…2a6c Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW1,A8«, t00=0x001b, t01=0x002a}
0x2a6c…2a8c Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B9 SET TIMEOUT «, t00=0x001b, t01=0x0042}
0x2a8c…2a98 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x0062}
0x2a98…2aa8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x006e}
0x2aa8…2abe Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001b, t01=0x007e}
0x2abe…2ade Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 MORE TO TIME?«, t00=0x001b, t01=0x0094}
0x2ade…2af8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SETT20 NO «, t00=0x001b, t01=0x00b4}
0x2af8…2b1c Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC2,A11 GET LINE 2«, t00=0x001b, t01=0x00ce}
0x2b1c…2b36 Head {h00=0x0016, h01=0x0050, text=» LDK A4,1 NO MORE «, t00=0x001b, t01=0x00f2}
0x2b36…2b48 Head {h00=0x000e, h01=0x0050, text=» RB SETT10«, t00=0x001b, t01=0x010c}
0x2b48…2b5c Head {h00=0x0010, h01=0x0050, text=»SETT20 EQU *«, t00=0x001b, t01=0x011e}
0x2b5c…2b6a Head {h00=0x000a, h01=0x0050, text=» XIF «, t00=0x001b, t01=0x0132}
0x2b6a…2b7a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x0140}
0x2b7a…2b88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0150}
0x2b88…2bca Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001b, t01=0x015e}
0x2bca…2c0c Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001c, t01=0x0010}
0x2c0c…2c24 Head {h00=0x0014, h01=0x0050, text=»* READW RECEIVE «, t00=0x001c, t01=0x0052}
0x2c24…2c66 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001c, t01=0x006a}
0x2c66…2ca8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001c, t01=0x00ac}
0x2ca8…2cbc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001c, t01=0x00ee}
0x2cbc…2cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0102}
0x2cc6…2ce2 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x001c, t01=0x010c}
0x2ce2…2cf6 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x001c, t01=0x0128}
0x2cf6…2d16 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001c, t01=0x013c}
0x2d16…2d2e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x015c}
0x2d2e…2d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0174}
0x2d38…2d7a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001c, t01=0x017e}
0x2d7a…2d8e Head {h00=0x0010, h01=0x0050, text=»READW EQU * «, t00=0x001d, t01=0x0030}
0x2d8e…2dae Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x001d, t01=0x0044}
0x2dae…2dc4 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001d, t01=0x0064}
0x2dc4…2de6 Head {h00=0x001e, h01=0x0050, text=» LD A1,MAIN,A11 MORE LINES«, t00=0x001d, t01=0x007a}
0x2de6…2dfe Head {h00=0x0014, h01=0x0050, text=» RF(Z) REDW10 NO«, t00=0x001d, t01=0x009c}
0x2dfe…2e1e Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x001d, t01=0x00b4}
0x2e1e…2e32 Head {h00=0x0010, h01=0x0050, text=»REDW10 EQU *«, t00=0x001d, t01=0x00d4}
0x2e32…2e3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00e8}
0x2e3e…2e66 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL GET LENGTH «, t00=0x001d, t01=0x00f4}
0x2e66…2e7e Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x001d, t01=0x011c}
0x2e7e…2e96 Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x001d, t01=0x0134}
0x2e96…2eb2 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/82 RECEIVE «, t00=0x001d, t01=0x014c}
0x2eb2…2ebe Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001d, t01=0x0168}
0x2ebe…2ece Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001d, t01=0x0174}
0x2ece…2ee6 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x001d, t01=0x0184}
0x2ee6…2efe Head {h00=0x0014, h01=0x0050, text=» ANK A1,/5B OK? «, t00=0x001e, t01=0x000c}
0x2efe…2f18 Head {h00=0x0016, h01=0x0050, text=» RF(Z) REDW20 YES «, t00=0x001e, t01=0x0024}
0x2f18…2f3c Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKSTA CHECK STATUS «, t00=0x001e, t01=0x003e}
0x2f3c…2f5c Head {h00=0x001c, h01=0x0050, text=» LDK A1,8 INDICATE ERROR«, t00=0x001e, t01=0x0062}
0x2f5c…2f6e Head {h00=0x000e, h01=0x0050, text=» RF REDW30«, t00=0x001e, t01=0x0082}
0x2f6e…2f82 Head {h00=0x0010, h01=0x0050, text=»REDW20 EQU *«, t00=0x001e, t01=0x0094}
0x2f82…2f94 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x001e, t01=0x00a8}
0x2f94…2fa8 Head {h00=0x0010, h01=0x0050, text=»REDW30 EQU *«, t00=0x001e, t01=0x00ba}
0x2fa8…2fb8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x00ce}
0x2fb8…2fc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00de}
0x2fc6…3008 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001e, t01=0x00ec}
0x3008…304a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001e, t01=0x012e}
0x304a…3060 Head {h00=0x0012, h01=0x0050, text=»* DCWRIT SEND «, t00=0x001e, t01=0x0170}
0x3060…30a2 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001e, t01=0x0186}
0x30a2…30e4 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001f, t01=0x0038}
0x30e4…30f8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001f, t01=0x007a}
0x30f8…3102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x008e}
0x3102…3136 Head {h00=0x0030, h01=0x0050, text=»* A1= AT ENTRY CHAIN INDICATOR, RETURN CODE «, t00=0x001f, t01=0x0098}
0x3136…314a Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x001f, t01=0x00cc}
0x314a…3168 Head {h00=0x001a, h01=0x0050, text=»* A9= DC BUFFER LENGTH«, t00=0x001f, t01=0x00e0}
0x3168…3188 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001f, t01=0x00fe}
0x3188…31a0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001f, t01=0x011e}
0x31a0…31aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0136}
0x31aa…31e8 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001f, t01=0x0140}
0x31e8…31fc Head {h00=0x0010, h01=0x0050, text=»DCWRIT EQU *«, t00=0x001f, t01=0x017e}
0x31fc…321a (32, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE«, t00=0x0020, t01=0x0004}
0x321a…3230 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0020, t01=0x0022}
0x3230…3250 Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x0020, t01=0x0038}
0x3250…3268 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCWR10 NO«, t00=0x0020, t01=0x0058}
0x3268…3288 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0020, t01=0x0070}
0x3288…329c Head {h00=0x0010, h01=0x0050, text=»DCWR10 EQU *«, t00=0x0020, t01=0x0090}
0x329c…32a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00a4}
0x32a8…32d8 Head {h00=0x002c, h01=0x0050, text=» LDK A2,2 KEYBOARD INHIBIT BUT RESETABLE«, t00=0x0020, t01=0x00b0}
0x32d8…32f2 Head {h00=0x0016, h01=0x0050, text=» ORS A2,KBINH,A11 «, t00=0x0020, t01=0x00e0}
0x32f2…3312 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/86 WRITE ORDER «, t00=0x0020, t01=0x00fa}
0x3312…333a Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x0020, t01=0x011a}
0x333a…3352 Head {h00=0x0014, h01=0x0050, text=» ST A9,ECBRL,A8 «, t00=0x0020, t01=0x0142}
0x3352…335e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0020, t01=0x015a}
0x335e…336e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0020, t01=0x0166}
0x336e…3390 Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBRC,A8 ANY ERROR?«, t00=0x0020, t01=0x0176}
0x3390…33a4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/5B «, t00=0x0021, t01=0x0008}
0x33a4…33bc Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCWR90 NO«, t00=0x0021, t01=0x001c}
0x33bc…33d2 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x0021, t01=0x0034}
0x33d2…33f8 Head {h00=0x0022, h01=0x0050, text=» CF A14,CHKSTA CHECK DC STATUS«, t00=0x0021, t01=0x004a}
0x33f8…3410 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0021, t01=0x0070}
0x3410…3438 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/D RESET KEYBOARD PARTLY«, t00=0x0021, t01=0x0088}
0x3438…3450 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x0021, t01=0x00b0}
0x3450…3478 Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP4OF INHIBIT LAMP OFF «, t00=0x0021, t01=0x00c8}
0x3478…349e Head {h00=0x0022, h01=0x0050, text=» CF A14,RESKB RESET KB BUFFER «, t00=0x0021, t01=0x00f0}
0x349e…34bc Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0021, t01=0x0116}
0x34bc…34d0 Head {h00=0x0010, h01=0x0050, text=»DCWR90 EQU *«, t00=0x0021, t01=0x0134}
0x34d0…34e0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0148}
0x34e0…34ee Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0021, t01=0x0158}
0x34ee…3530 Head {h00=0x003e, h01=0x0039, text=»********************************************************* «, t00=0x0021, t01=0x0166}
0x3530…3572 Head {h00=0x003e, h01=0x0039, text=»* * «, t00=0x0022, t01=0x0018}
0x3572…35b4 Head {h00=0x003e, h01=0x0039, text=»* TSTMES TEST IF ANY MESSAGE, NO WAIT * «, t00=0x0022, t01=0x005a}
0x35b4…35f6 Head {h00=0x003e, h01=0x0039, text=»* * «, t00=0x0022, t01=0x009c}
0x35f6…3638 Head {h00=0x003e, h01=0x0039, text=»********************************************************* «, t00=0x0022, t01=0x00de}
0x3638…364c Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x0022, t01=0x0120}
0x364c…3656 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0134}
0x3656…3670 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0022, t01=0x013e}
0x3670…369a Head {h00=0x0026, h01=0x0022, text=»* A11= ADDRESS TO CREDIT WORK AREA«, t00=0x0022, t01=0x0158}
0x369a…36bc Head {h00=0x001e, h01=0x001a, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0022, t01=0x0182}
0x36bc…36c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0014}
0x36c6…3708 Head {h00=0x003e, h01=0x0039, text=»********************************************************* «, t00=0x0023, t01=0x001e}
0x3708…371c Head {h00=0x0010, h01=0x000c, text=»TSTMES EQU *«, t00=0x0023, t01=0x0060}
0x371c…373c Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x0023, t01=0x0074}
0x373c…3752 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0023, t01=0x0094}
0x3752…3770 Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2«, t00=0x0023, t01=0x00aa}
0x3770…3788 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTM10 NO«, t00=0x0023, t01=0x00c8}
0x3788…37a8 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0023, t01=0x00e0}
0x37a8…37bc Head {h00=0x0010, h01=0x0050, text=»TSTM10 EQU *«, t00=0x0023, t01=0x0100}
0x37bc…37c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0114}
0x37c8…37da Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0023, t01=0x0120}
0x37da…3808 Head {h00=0x002a, h01=0x0050, text=» ST A2,ECBCW1,A8 INDICATE TEST MESSAGE«, t00=0x0023, t01=0x0132}
0x3808…382e Head {h00=0x0022, h01=0x001d, text=» LDK A7,0 TEST MESS., NO WAIT «, t00=0x0023, t01=0x0160}
0x382e…383a Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x0023, t01=0x0186}
0x383a…384a (36, 0, 400) Head {h00=0x000c, h01=0x0007, text=» DATA 1 «, t00=0x0024, t01=0x0004}
0x384a…385a Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0024, t01=0x0014}
0x385a…3868 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0024, t01=0x0024}
0x3868…38ae Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0024, t01=0x0032}
0x38ae…38f4 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0024, t01=0x0078}
0x38f4…393a Head {h00=0x0042, h01=0x003d, text=»* SETSTA SET STATUS * «, t00=0x0024, t01=0x00be}
0x393a…3980 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0024, t01=0x0104}
0x3980…39c6 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0024, t01=0x014a}
0x39c6…39da Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x0024, t01=0x0190}
0x39da…39e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0025, t01=0x0014}
0x39e4…3a02 Head {h00=0x001a, h01=0x0050, text=»* A1= AT ENTRY STATUS «, t00=0x0025, t01=0x001e}
0x3a02…3a16 Head {h00=0x0010, h01=0x000c, text=»* A8= DC ECB«, t00=0x0025, t01=0x003c}
0x3a16…3a2e Head {h00=0x0014, h01=0x000f, text=»* A11= RESERVED «, t00=0x0025, t01=0x0050}
0x3a2e…3a50 Head {h00=0x001e, h01=0x001a, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0025, t01=0x0068}
0x3a50…3a5a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0025, t01=0x008a}
0x3a5a…3a9e Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0025, t01=0x0094}
0x3a9e…3ab2 Head {h00=0x0010, h01=0x000c, text=»SETSTA EQU *«, t00=0x0025, t01=0x00d8}
0x3ab2…3acc Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC1,A11 «, t00=0x0025, t01=0x00ec}
0x3acc…3ae2 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0025, t01=0x0106}
0x3ae2…3afa Head {h00=0x0014, h01=0x0050, text=» LD A2,MAIN,A11 «, t00=0x0025, t01=0x011c}
0x3afa…3b10 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SETS10 «, t00=0x0025, t01=0x0134}
0x3b10…3b2a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0025, t01=0x014a}
0x3b2a…3b3e Head {h00=0x0010, h01=0x0050, text=»SETS10 EQU *«, t00=0x0025, t01=0x0164}
0x3b3e…3b4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0178}
0x3b4a…3b5e Head {h00=0x0010, h01=0x0050, text=» LDK A7,/38 «, t00=0x0025, t01=0x0184}
0x3b5e…3b76 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW1,A8«, t00=0x0026, t01=0x0008}
0x3b76…3b82 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x0020}
0x3b82…3b92 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x002c}
0x3b92…3ba2 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0026, t01=0x003c}
0x3ba2…3bb0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0026, t01=0x004c}
0x3bb0…3bee Head {h00=0x003a, h01=0x0036, text=»******************************************************«, t00=0x0026, t01=0x005a}
0x3bee…3c2c Head {h00=0x003a, h01=0x0036, text=»* *«, t00=0x0026, t01=0x0098}
0x3c2c…3c6a Head {h00=0x003a, h01=0x0036, text=»* TSTSTA TEST STATUS *«, t00=0x0026, t01=0x00d6}
0x3c6a…3ca8 Head {h00=0x003a, h01=0x0036, text=»* *«, t00=0x0026, t01=0x0114}
0x3ca8…3ce6 Head {h00=0x003a, h01=0x0036, text=»******************************************************«, t00=0x0026, t01=0x0152}
0x3ce6…3cfa Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x0026, t01=0x0190}
0x3cfa…3d04 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x0014}
0x3d04…3d1e Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0027, t01=0x001e}
0x3d1e…3d32 Head {h00=0x0010, h01=0x000c, text=»* A8= DC ECB«, t00=0x0027, t01=0x0038}
0x3d32…3d4a Head {h00=0x0014, h01=0x000f, text=»* A11= RESERVED «, t00=0x0027, t01=0x004c}
0x3d4a…3d6c Head {h00=0x001e, h01=0x001a, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0027, t01=0x0064}
0x3d6c…3d76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x0086}
0x3d76…3db4 Head {h00=0x003a, h01=0x0035, text=»***************************************************** «, t00=0x0027, t01=0x0090}
0x3db4…3dc8 Head {h00=0x0010, h01=0x000c, text=»TSTSTA EQU *«, t00=0x0027, t01=0x00ce}
0x3dc8…3de8 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x0027, t01=0x00e2}
0x3de8…3dfe Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0027, t01=0x0102}
0x3dfe…3e1e Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x0027, t01=0x0118}
0x3e1e…3e36 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTS10 NO«, t00=0x0027, t01=0x0138}
0x3e36…3e56 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0027, t01=0x0150}
0x3e56…3e6a Head {h00=0x0010, h01=0x0050, text=»TSTS10 EQU *«, t00=0x0027, t01=0x0170}
0x3e6a…3e76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0184}
0x3e76…3ea0 Head {h00=0x0026, h01=0x0050, text=» CM ECBCW1,A8 INDICATE TEST STATUS«, t00=0x0027, t01=0x0190}
0x3ea0…3eb2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0028, t01=0x002a}
0x3eb2…3ebe Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x0028, t01=0x003c}
0x3ebe…3ece Head {h00=0x000c, h01=0x0007, text=» DATA 1 «, t00=0x0028, t01=0x0048}
0x3ece…3ee6 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW1,A8«, t00=0x0028, t01=0x0058}
0x3ee6…3ef6 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0028, t01=0x0070}
0x3ef6…3f04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0080}
0x3f04…3f52 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0028, t01=0x008e}
0x3f52…3f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00dc}
0x3f5c…3f7c Head {h00=0x001c, h01=0x0050, text=»* RDSTAT READ STATISTICS«, t00=0x0028, t01=0x00e6}
0x3f7c…3f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0106}
0x3f86…3fd4 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0028, t01=0x0110}
0x3fd4…3ff0 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0028, t01=0x015e}
0x3ff0…3ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x017a}
0x3ffa…4004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0184}
0x4004…4052 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0028, t01=0x018e}
0x4052…4066 Head {h00=0x0010, h01=0x0050, text=»RDSTAT EQU *«, t00=0x0029, t01=0x004c}
0x4066…407a Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0029, t01=0x0060}
0x407a…4094 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC1,A11 «, t00=0x0029, t01=0x0074}
0x4094…40aa Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0029, t01=0x008e}
0x40aa…40d0 Head {h00=0x0022, h01=0x0050, text=» LD A1,MAIN,A11 THE OTHER LINE«, t00=0x0029, t01=0x00a4}
0x40d0…40e8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDST10 NO«, t00=0x0029, t01=0x00ca}
0x40e8…4102 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0029, t01=0x00e2}
0x4102…4116 Head {h00=0x0010, h01=0x0050, text=»RDST10 EQU *«, t00=0x0029, t01=0x00fc}
0x4116…4122 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0110}
0x4122…4136 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0029, t01=0x011c}
0x4136…414e Head {h00=0x0014, h01=0x0050, text=» ST A12,ECBBA,A8«, t00=0x0029, t01=0x0130}
0x414e…416a Head {h00=0x0018, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL«, t00=0x0029, t01=0x0148}
0x416a…4182 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0029, t01=0x0164}
0x4182…41ac Head {h00=0x0026, h01=0x0050, text=» CM ECBCW1,A8 NO RESET AFTERWARDS «, t00=0x0029, t01=0x017c}
0x41ac…41c0 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/AD «, t00=0x002a, t01=0x0016}
0x41c0…41cc Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x002a}
0x41cc…41dc Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002a, t01=0x0036}
0x41dc…41ec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0046}
0x41ec…41f8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0056}
0x41f8…4206 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002a, t01=0x0062}
0x4206…4248 Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x002a, t01=0x0070}
0x4248…428a Head {h00=0x003e, h01=0x003a, text=»* *«, t00=0x002a, t01=0x00b2}
0x428a…42cc Head {h00=0x003e, h01=0x003a, text=»* DCABOR ABORT TEST MESSAGE REQUEST *«, t00=0x002a, t01=0x00f4}
0x42cc…430e Head {h00=0x003e, h01=0x003a, text=»* *«, t00=0x002a, t01=0x0136}
0x430e…4350 Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x002a, t01=0x0178}
0x4350…4364 Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x002b, t01=0x002a}
0x4364…436e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x003e}
0x436e…4382 Head {h00=0x0010, h01=0x000c, text=»* A8= DC ECB«, t00=0x002b, t01=0x0048}
0x4382…43ae Head {h00=0x0028, h01=0x0023, text=»* A11= ADDRESS TO CREDIT WORK AREA «, t00=0x002b, t01=0x005c}
0x43ae…43d0 Head {h00=0x001e, h01=0x001a, text=»* A13= ADDRESS TO ECB AREA«, t00=0x002b, t01=0x0088}
0x43d0…43da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x00aa}
0x43da…441c Head {h00=0x003e, h01=0x0039, text=»********************************************************* «, t00=0x002b, t01=0x00b4}
0x441c…4430 Head {h00=0x0010, h01=0x000c, text=»DCABOR EQU *«, t00=0x002b, t01=0x00f6}
0x4430…4450 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x002b, t01=0x010a}
0x4450…4466 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x002b, t01=0x012a}
0x4466…4486 Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x002b, t01=0x0140}
0x4486…449e Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCAB10 NO«, t00=0x002b, t01=0x0160}
0x449e…44be Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x002b, t01=0x0178}
0x44be…44d2 Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x002c, t01=0x0008}
0x44d2…44de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x001c}
0x44de…44f0 Head {h00=0x000e, h01=0x0009, text=» LDK A7,0 «, t00=0x002c, t01=0x0028}
0x44f0…44fc Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x002c, t01=0x003a}
0x44fc…450c Head {h00=0x000c, h01=0x0008, text=» DATA 10«, t00=0x002c, t01=0x0046}
0x450c…4522 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 OK?«, t00=0x002c, t01=0x0056}
0x4522…454e Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DCAB10 NO,ALREADY COMPLETED «, t00=0x002c, t01=0x006c}
0x454e…4568 Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+DC,A11 «, t00=0x002c, t01=0x0098}
0x4568…457c Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x002c, t01=0x00b2}
0x457c…458c Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x002c, t01=0x00c6}
0x458c…459a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00d6}
0x459a…45a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e4}
0x45a4…45ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ee}
0x45ae…45b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f8}
0x45b8…45d0 Head {h00=0x0014, h01=0x0050, text=»* DC RETURN CODE«, t00=0x002c, t01=0x0102}
0x45d0…45d8 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x011a}
0x45d8…45e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0122}
0x45e2…45ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x012c}
0x45ec…45f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0136}
0x45f6…461c Head {h00=0x0022, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x002c, t01=0x0140}
0x461c…463e Head {h00=0x001e, h01=0x0050, text=»* 1 RESERVED «, t00=0x002c, t01=0x0166}
0x463e…4660 Head {h00=0x001e, h01=0x0050, text=»* 2 RESERVED «, t00=0x002c, t01=0x0188}
0x4660…466a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001a}
0x466a…4692 Head {h00=0x0024, h01=0x0050, text=»* 9 REQUEST TIMEOUT«, t00=0x002d, t01=0x0024}
0x4692…46ba Head {h00=0x0024, h01=0x0050, text=»* 11 SEQUENCE ERROR «, t00=0x002d, t01=0x004c}
0x46ba…46e4 Head {h00=0x0026, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x002d, t01=0x0074}
0x46e4…4706 Head {h00=0x001e, h01=0x0050, text=»* 13 RESERVED «, t00=0x002d, t01=0x009e}
0x4706…4732 Head {h00=0x0028, h01=0x0050, text=»* 14 TRANSMISSION ERROR «, t00=0x002d, t01=0x00c0}
0x4732…4758 Head {h00=0x0022, h01=0x0050, text=»* 15 NO CONNECTION«, t00=0x002d, t01=0x00ec}
0x4758…4762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0112}
0x4762…476c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x011c}
0x476c…4776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0126}
0x4776…4784 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0130}
0x4784…47c2 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002d, t01=0x013e}
0x47c2…4800 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x002d, t01=0x017c}
0x4800…483e Head {h00=0x003a, h01=0x0050, text=»* CHKSTA CHECK DC STATUS *«, t00=0x002e, t01=0x002a}
0x483e…487c Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x002e, t01=0x0068}
0x487c…48ba Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002e, t01=0x00a6}
0x48ba…48ce Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002e, t01=0x00e4}
0x48ce…48d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f8}
0x48d8…490a Head {h00=0x002e, h01=0x0050, text=»* A1= AT ENTRY DC RETURN CODE, RETURN CODE«, t00=0x002e, t01=0x0102}
0x490a…492a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002e, t01=0x0134}
0x492a…4942 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002e, t01=0x0154}
0x4942…494c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x016c}
0x494c…498c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002e, t01=0x0176}
0x498c…49a0 Head {h00=0x0010, h01=0x0050, text=»CHKSTA EQU *«, t00=0x002f, t01=0x0026}
0x49a0…49c2 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x002f, t01=0x003a}
0x49c2…49e2 Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/2211 LINE OK? «, t00=0x002f, t01=0x005c}
0x49e2…49f8 Head {h00=0x0012, h01=0x0050, text=» XRKL A1,/2211«, t00=0x002f, t01=0x007c}
0x49f8…4a12 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CHKS10 NO «, t00=0x002f, t01=0x0092}
0x4a12…4a36 Head {h00=0x0020, h01=0x0050, text=» CF A14,LMP3ON SYSTEM AVAIL.«, t00=0x002f, t01=0x00ac}
0x4a36…4a48 Head {h00=0x000e, h01=0x0050, text=» RF CHKS20«, t00=0x002f, t01=0x00d0}
0x4a48…4a5c Head {h00=0x0010, h01=0x0050, text=»CHKS10 EQU *«, t00=0x002f, t01=0x00e2}
0x4a5c…4a72 Head {h00=0x0012, h01=0x0050, text=» CF A14,LMP3OF«, t00=0x002f, t01=0x00f6}
0x4a72…4a86 Head {h00=0x0010, h01=0x0050, text=»CHKS20 EQU *«, t00=0x002f, t01=0x010c}
0x4a86…4a96 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x0120}
0x4a96…4aa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0130}
0x4aa4…4ae6 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002f, t01=0x013e}
0x4ae6…4b28 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x002f, t01=0x0180}
0x4b28…4b6a Head {h00=0x003e, h01=0x0050, text=»* DCOFLN INDICATE OFFLINE TO CLUSTER * «, t00=0x0030, t01=0x0032}
0x4b6a…4bac Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0030, t01=0x0074}
0x4bac…4bee Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0030, t01=0x00b6}
0x4bee…4c02 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0030, t01=0x00f8}
0x4c02…4c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010c}
0x4c0c…4c2c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0030, t01=0x0116}
0x4c2c…4c44 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0030, t01=0x0136}
0x4c44…4c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x014e}
0x4c4e…4c88 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0030, t01=0x0158}
0x4c88…4c9c (49, 0, 400) Head {h00=0x0010, h01=0x0050, text=»DCOFLN EQU *«, t00=0x0031, t01=0x0004}
0x4c9c…4cb0 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0031, t01=0x0018}
0x4cb0…4cc6 Head {h00=0x0012, h01=0x0050, text=» CF A14,DCABOR«, t00=0x0031, t01=0x002c}
0x4cc6…4ce8 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISC DISCONNECT =2«, t00=0x0031, t01=0x0042}
0x4ce8…4cf4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0064}
0x4cf4…4d04 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x0070}
0x4d04…4d12 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0031, t01=0x0080}
0x4d12…4d50 Head {h00=0x003a, h01=0x0035, text=»***************************************************** «, t00=0x0031, t01=0x008e}
0x4d50…4d8e Head {h00=0x003a, h01=0x0035, text=»* * «, t00=0x0031, t01=0x00cc}
0x4d8e…4dcc Head {h00=0x003a, h01=0x0035, text=»* TRPA TRANSMIT SHORT READ AT PA-KEY * «, t00=0x0031, t01=0x010a}
0x4dcc…4e0a Head {h00=0x003a, h01=0x0035, text=»* * «, t00=0x0031, t01=0x0148}
0x4e0a…4e48 Head {h00=0x003a, h01=0x0035, text=»***************************************************** «, t00=0x0031, t01=0x0186}
0x4e48…4e5c Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x0032, t01=0x0034}
0x4e5c…4e66 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x0048}
0x4e66…4e7c Head {h00=0x0012, h01=0x0050, text=»* A2= AID CODE«, t00=0x0032, t01=0x0052}
0x4e7c…4e9c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0032, t01=0x0068}
0x4e9c…4eb4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0032, t01=0x0088}
0x4eb4…4ebe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x00a0}
0x4ebe…4efc Head {h00=0x003a, h01=0x0035, text=»***************************************************** «, t00=0x0032, t01=0x00aa}
0x4efc…4f0e Head {h00=0x000e, h01=0x000a, text=»TRPA EQU *«, t00=0x0032, t01=0x00e8}
0x4f0e…4f38 Head {h00=0x0026, h01=0x0022, text=» CF A14,GETBUF GET TRANSMIT BUFFER«, t00=0x0032, t01=0x00fa}
0x4f38…4f60 Head {h00=0x0024, h01=0x0020, text=» CF A14,PAID STORE AID IN BUFFER«, t00=0x0032, t01=0x0124}
0x4f60…4f80 Head {h00=0x001c, h01=0x0050, text=» CF A14,DCWRIT TRANSMIT «, t00=0x0032, t01=0x014c}
0x4f80…4fa6 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x0032, t01=0x016c}
0x4fa6…4fcc (51, 0, 398) Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0033, t01=0x0004}
0x4fcc…4fdc Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0033, t01=0x002a}
0x4fdc…4fea Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0033, t01=0x003a}
0x4fea…5028 Head {h00=0x003a, h01=0x0036, text=»******************************************************«, t00=0x0033, t01=0x0048}
0x5028…5066 Head {h00=0x003a, h01=0x0036, text=»* *«, t00=0x0033, t01=0x0086}
0x5066…50a4 Head {h00=0x003a, h01=0x0036, text=»* TRPF TRANSMIT MODIFIED READ AT PF-KEY *«, t00=0x0033, t01=0x00c4}
0x50a4…50e2 Head {h00=0x003a, h01=0x0036, text=»* *«, t00=0x0033, t01=0x0102}
0x50e2…5120 Head {h00=0x003a, h01=0x0036, text=»******************************************************«, t00=0x0033, t01=0x0140}
0x5120…5134 Head {h00=0x0010, h01=0x000c, text=»* REGISTERS«, t00=0x0033, t01=0x017e}
0x5134…513e (52, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x0004}
0x513e…5154 Head {h00=0x0012, h01=0x0050, text=»* A2= AID CODE«, t00=0x0034, t01=0x000e}
0x5154…5172 Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0034, t01=0x0024}
0x5172…5188 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0034, t01=0x0042}
0x5188…519e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0034, t01=0x0058}
0x519e…51be Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0034, t01=0x006e}
0x51be…51d6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0034, t01=0x008e}
0x51d6…51e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x00a6}
0x51e0…521e Head {h00=0x003a, h01=0x0036, text=»******************************************************«, t00=0x0034, t01=0x00b0}
0x521e…5230 Head {h00=0x000e, h01=0x000a, text=»TRPF EQU *«, t00=0x0034, t01=0x00ee}
0x5230…525a Head {h00=0x0026, h01=0x0022, text=» CF A14,GETBUF GET TRANSMIT BUFFER«, t00=0x0034, t01=0x0100}
0x525a…527c Head {h00=0x001e, h01=0x0050, text=» CF A14,PAID SAVE AID-CODE«, t00=0x0034, t01=0x012a}
0x527c…52aa Head {h00=0x002a, h01=0x0025, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0034, t01=0x014c}
0x52aa…52cc Head {h00=0x001e, h01=0x0019, text=» LDR A1,A4 CURSOR ADDRESS «, t00=0x0034, t01=0x017a}
0x52cc…5302 Head {h00=0x0032, h01=0x002d, text=» CF A14,BUFADR STORE CURSOR ADDRESS IN BUFFER «, t00=0x0035, t01=0x000c}
0x5302…5344 Head {h00=0x003e, h01=0x0050, text=» CF A14,PACK PACK BUFFER WITH MODIFIED FIELDS AND TRANSMIT«, t00=0x0035, t01=0x0042}
0x5344…5354 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0035, t01=0x0084}
0x5354…535c Head {h00=0x0004, h01=0x0002, t00=0x0035, t01=0x0094}
0x535c…5368 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0035, t01=0x009c}
0x5368…536c Head {h00=0x4004, h01=0x0000}
0x536c…5370 00 35 00 a8 ┆ 5 ┆
0x5370…5378 (54, 1, 8) 20 04 00 00 00 36 00 04 ┆ 6 ┆
0x5378…53c8 (55, 0, 400) 5c 41 44 52 5c 41 34 2c 41 33 5c 47 45 54 20 42 55 46 46 45 52 20 41 44 44 45 53 53 00 de 01 90 00 22 00 50 5c 45 43 52 5c 41 31 2c 41 32 5c 4f 44 44 20 4f 52 20 45 56 45 4e 20 41 44 44 52 45 53 53 00 df 00 24 00 0e 00 50 5c 53 43 52 5c 41 ┆ ADR A4,A3 GET BUFFER ADDESS " P ECR A1,A2 ODD OR EVEN ADDRESS $ P SCR A┆
0x53c8…5418 31 2c 41 34 00 df 00 4a 00 0e 00 50 5c 53 52 4c 5c 41 31 2c 38 20 00 df 00 5c 00 10 00 50 5c 53 43 5c 41 31 2c 2b 31 2c 41 34 00 df 00 6e 00 26 00 50 5c 53 55 52 5c 41 34 2c 41 33 5c 52 45 53 54 49 54 55 54 45 20 53 54 41 52 54 20 50 4f 49 ┆1,A4 J P SRL A1,8 P SC A1,+1,A4 n & P SUR A4,A3 RESTITUTE START POI┆
0x5418…5468 4e 54 45 52 00 df 00 82 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 32 20 00 df 00 ac 00 14 00 50 5c 43 57 5c 41 33 2c 44 43 42 55 43 55 2c 41 37 00 df 00 be 00 24 00 50 5c 52 46 28 4c 29 5c 49 48 49 33 30 30 5c 4e 4f 20 42 55 46 46 45 52 20 4f 56 ┆NTER P ADK A3,2 P CW A3,DCBUCU,A7 $ P RF(L) IHI300 NO BUFFER OV┆
0x5468…54b8 45 52 46 4c 4f 57 00 df 00 d6 00 2c 00 50 5c 53 55 4b 5c 41 33 2c 32 5c 59 45 53 2c 4d 41 49 4e 54 41 49 4e 20 44 41 54 41 20 49 4e 20 4c 41 53 54 20 57 4f 52 44 00 df 00 fe 00 0e 00 50 5c 58 49 46 5c 5c 5c 5c 3d 32 00 df 01 2e 00 14 00 50 ┆ERFLOW , P SUK A3,2 YES,MAINTAIN DATA IN LAST WORD P XIF =2 . P┆
0x54b8…5508 5c 49 46 54 5c 4d 55 58 3d 31 5c 5c 5c 3d 32 20 00 df 01 40 00 12 00 50 5c 52 46 5c 53 53 54 49 4e 30 5c 5c 3d 32 00 df 01 58 00 0e 00 50 5c 58 49 46 5c 5c 5c 5c 3d 32 00 df 01 6e 00 06 00 50 2a 20 00 df 01 80 00 10 00 50 49 48 49 33 30 30 ┆ IFT MUX=1 =2 @ P RF SSTIN0 =2 X P XIF =2 n P* PIHI300┆
0x5508…5558 (56, 0, 400) 5c 45 51 55 5c 2a 00 df 01 8a 00 14 00 50 5c 53 54 5c 41 33 2c 44 57 54 53 41 56 2c 41 37 00 e0 00 0e 00 16 00 50 5c 53 54 5c 41 34 2c 44 57 54 53 41 56 2b 32 2c 41 37 00 e0 00 26 00 16 00 50 5c 53 54 5c 41 35 2c 44 57 54 53 41 56 2b 34 2c ┆ EQU * P ST A3,DWTSAV,A7 P ST A4,DWTSAV+2,A7 & P ST A5,DWTSAV+4,┆
0x5558…55a8 41 37 00 e0 00 40 00 10 00 50 5c 41 42 4c 5c 52 45 54 55 52 4e 20 00 e0 00 5a 00 0a 00 50 5c 45 4a 45 43 54 00 e0 00 6e 00 06 00 50 2a 20 00 e0 00 7c 00 2e 00 50 2a 20 20 53 54 41 54 55 53 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 ┆A7 @ P ABL RETURN Z P EJECT n P* | . P* STATUS INTERRUPT HANDLE┆
0x55a8…55f8 52 2c 43 48 4c 43 20 52 45 43 45 49 56 45 52 20 00 e0 00 86 00 06 00 50 2a 20 00 e0 00 b8 00 2c 00 50 2a 20 20 20 20 20 20 41 32 20 49 4e 50 55 54 20 52 45 47 49 53 54 45 52 20 46 4f 52 20 53 54 41 54 55 53 20 49 4e 46 4f 00 e0 00 c2 00 06 ┆R,CHLC RECEIVER P* , P* A2 INPUT REGISTER FOR STATUS INFO ┆
0x55f8…5648 00 50 2a 20 00 e0 00 f2 00 10 00 50 53 53 54 49 4e 30 5c 45 51 55 5c 2a 00 e0 00 fc 00 10 00 50 53 53 54 49 30 33 5c 45 51 55 5c 2a 00 e0 01 10 00 0e 00 50 5c 4c 44 52 2a 5c 41 31 2c 50 00 e0 01 24 00 0e 00 50 5c 53 53 54 5c 41 32 2c 30 20 ┆ P* PSSTIN0 EQU * PSSTI03 EQU * P LDR* A1,P $ P SST A2,0 ┆
0x5648…5698 00 e0 01 36 00 26 00 50 5c 41 44 52 2a 5c 41 31 2c 41 37 5c 43 52 45 41 54 45 20 53 53 54 20 49 4e 53 54 52 55 43 54 49 4f 4e 00 e0 01 48 00 12 00 50 5c 53 54 5c 41 31 2c 53 53 54 54 30 35 20 00 e0 01 72 00 10 00 50 53 53 54 54 30 35 5c 45 ┆ 6 & P ADR* A1,A7 CREATE SST INSTRUCTION H P ST A1,SSTT05 r PSSTT05 E┆
0x5698…56e8 (57, 0, 400) 51 55 5c 2a 00 e0 01 88 00 0a 00 50 5c 48 4c 54 5c 20 00 e1 00 0c 00 24 00 50 5c 4c 44 5c 41 31 2c 44 57 54 49 4e 50 2c 41 37 5c 49 4e 50 55 54 20 41 43 54 49 56 45 20 3f 20 00 e1 00 1a 00 2c 00 50 5c 41 42 4c 28 5a 29 5c 54 44 49 53 50 5c ┆QU * P HLT $ P LD A1,DWTINP,A7 INPUT ACTIVE ? , P ABL(Z) TDISP ┆
0x56e8…5738 4e 4f 2c 20 49 4e 54 45 52 52 55 50 54 53 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 00 e1 00 42 00 10 00 50 5c 49 46 46 5c 4c 4f 47 47 3d 30 5c 00 e1 00 72 00 12 00 50 5c 43 46 5c 41 35 2c 4c 4f 47 53 53 54 20 00 e1 00 86 00 08 00 50 5c 58 49 46 ┆NO, INTERRUPTS NOT ALLOWED B P IFF LOGG=0 r P CF A5,LOGSST P XIF┆
0x5738…5788 00 e1 00 9c 00 24 00 50 5c 4c 44 52 5c 41 31 2c 41 32 5c 53 41 56 45 20 53 54 41 54 55 53 20 49 4e 20 52 45 47 20 41 31 00 e1 00 a8 00 2c 00 50 5c 41 4e 4b 4c 5c 41 31 2c 53 53 54 4d 53 4b 5c 49 53 4f 4c 41 54 45 20 53 49 47 4e 49 46 49 43 ┆ $ P LDR A1,A2 SAVE STATUS IN REG A1 , P ANKL A1,SSTMSK ISOLATE SIGNIFIC┆
0x5788…57d8 41 4e 54 20 42 49 54 53 00 e1 00 d0 00 20 00 50 5c 52 46 28 4e 5a 29 5c 53 53 54 31 30 5c 53 54 41 54 55 53 20 50 52 45 53 45 4e 54 00 e1 01 00 00 06 00 50 2a 20 00 e1 01 24 00 28 00 50 2a 20 53 54 41 54 55 53 20 4f 4b 2c 55 50 44 41 54 45 ┆ANT BITS P RF(NZ) SST10 STATUS PRESENT P* $ ( P* STATUS OK,UPDATE┆
0x57d8…5828 20 4c 45 4e 47 54 48 20 41 4e 44 20 52 45 54 55 52 4e 00 e1 01 2e 00 06 00 50 2a 20 00 e1 01 5a 00 14 00 50 5c 49 46 54 5c 4d 55 58 3d 31 5c 5c 5c 3d 32 20 00 e1 01 64 00 28 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 37 5c 44 45 56 49 43 45 20 41 ┆ LENGTH AND RETURN . P* Z P IFT MUX=1 =2 d ( P LDR* A1,A7 DEVICE A┆
0x5828…5878 (58, 0, 400) 44 44 52 45 53 53 20 41 47 41 49 4e 5c 3d 32 20 00 e1 01 7c 00 20 00 50 5c 53 4c 4c 5c 41 31 2c 31 5c 49 4e 20 52 49 47 48 54 20 50 4c 41 43 45 5c 3d 32 20 00 e2 00 18 00 28 00 50 5c 4f 52 5c 41 31 2c 52 45 52 41 31 5c 41 44 44 20 52 45 52 ┆DDRESS AGAIN =2 | P SLL A1,1 IN RIGHT PLACE =2 ( P OR A1,RERA1 ADD RER┆
0x5878…58c8 20 41 31 2c 30 20 4f 50 2e 43 4f 44 45 5c 3d 32 00 e2 00 3c 00 22 00 50 5c 53 54 5c 41 31 2c 53 53 54 52 45 52 5c 50 55 54 20 49 4e 20 4f 42 4a 45 43 54 5c 3d 32 00 e2 00 68 00 32 00 50 53 53 54 52 45 52 5c 44 41 54 41 5c 30 5c 52 45 41 44 ┆ A1,0 OP.CODE =2 < " P ST A1,SSTRER PUT IN OBJECT =2 h 2 PSSTRER DATA 0 READ┆
0x58c8…5918 20 52 45 53 49 44 55 41 4c 20 4c 45 4e 47 54 48 20 49 4e 20 57 4f 52 44 53 5c 3d 32 00 e2 00 8e 00 1e 00 50 5c 53 54 5c 41 31 2c 53 53 54 52 45 52 5c 53 41 56 45 20 41 31 5c 3d 4d 4d 55 00 e2 00 c4 00 24 00 50 5c 41 4e 4b 4c 5c 41 31 2c 2f ┆ RESIDUAL LENGTH IN WORDS =2 P ST A1,SSTRER SAVE A1 =MMU $ P ANKL A1,/┆
0x5918…5968 46 46 46 5c 42 49 54 53 20 34 2d 31 35 20 4f 4e 4c 59 5c 3d 32 20 00 e2 00 e6 00 2a 00 50 5c 53 4c 4c 5c 41 31 2c 31 5c 52 45 53 49 44 55 41 4c 20 4c 45 4e 47 54 48 20 49 4e 20 43 48 41 52 53 5c 3d 32 20 00 e2 01 0e 00 26 00 50 5c 4c 44 5c ┆FFF BITS 4-15 ONLY =2 * P SLL A1,1 RESIDUAL LENGTH IN CHARS =2 & P LD ┆
0x5968…59b8 41 33 2c 44 43 42 55 43 55 2c 41 37 5c 49 4e 49 54 49 41 4c 20 4c 45 4e 47 54 48 5c 3d 32 00 e2 01 3c 00 26 00 50 5c 41 4e 4b 4c 5c 41 33 2c 2f 46 46 45 5c 42 49 54 53 20 34 2d 31 34 20 4f 4e 4c 59 5c 3d 4d 4d 55 20 00 e2 01 66 00 28 00 50 ┆A3,DCBUCU,A7 INITIAL LENGTH =2 < & P ANKL A3,/FFE BITS 4-14 ONLY =MMU f ( P┆
0x59b8…5a08 (59, 0, 400) 5c 53 55 52 5c 41 33 2c 41 31 5c 43 4f 4d 50 55 54 45 20 41 43 54 55 41 4c 20 4c 45 4e 47 54 48 5c 3d 32 20 00 e2 01 90 00 0e 00 50 5c 58 49 46 5c 5c 5c 5c 3d 32 00 e3 00 2c 00 12 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 30 46 30 30 00 e3 00 3e ┆ SUR A3,A1 COMPUTE ACTUAL LENGTH =2 P XIF =2 , P ANKL A2,/0F00 >┆
0x5a08…5a58 00 12 00 50 5c 52 46 28 5a 29 5c 53 53 54 49 30 37 20 00 e3 00 54 00 22 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 31 20 43 48 41 52 20 49 4e 20 4c 41 53 54 20 57 4f 52 44 20 00 e3 00 6a 00 10 00 50 53 53 54 49 30 37 5c 45 51 55 5c 2a 00 e3 00 90 ┆ P RF(Z) SSTI07 T " P SUK A3,1 1 CHAR IN LAST WORD j PSSTI07 EQU * ┆
0x5a58…5aa8 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 32 20 00 e3 00 a4 00 0e 00 50 5c 52 46 5c 53 53 54 32 32 20 00 e3 00 b6 00 06 00 50 2a 20 00 e3 00 c8 00 24 00 50 2a 20 48 45 52 45 20 54 4f 20 48 41 4e 44 4c 45 20 52 45 43 45 49 56 45 52 20 53 54 41 54 ┆ P LDK A2,2 P RF SST22 P* $ P* HERE TO HANDLE RECEIVER STAT┆
0x5aa8…5af8 55 53 00 e3 00 d2 00 06 00 50 2a 20 00 e3 00 fa 00 10 00 50 53 53 54 31 30 5c 45 51 55 5c 2a 20 00 e3 01 04 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 32 00 e3 01 18 00 28 00 50 5c 41 4e 4b 5c 41 31 2c 4d 53 4b 4d 4f 44 5c 4d 4f 44 45 4d 20 41 ┆US P* PSST10 EQU * P LDR A1,A2 ( P ANK A1,MSKMOD MODEM A┆
0x5af8…5b48 4e 44 20 43 41 52 52 49 45 52 20 4f 46 46 00 e3 01 2a 00 10 00 50 5c 52 46 28 5a 29 5c 53 53 54 32 30 00 e3 01 56 00 06 00 50 2a 20 00 e3 01 6a 00 18 00 50 2a 20 4d 4f 44 45 4d 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 00 e3 01 74 00 06 00 50 ┆ND CARRIER OFF * P RF(Z) SST20 V P* j P* MODEM NOT OPERABLE t P┆
0x5b48…5b98 (60, 0, 400) 2a 20 00 e3 01 90 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 e4 00 0a 00 1e 00 50 5c 52 46 5c 53 53 54 32 32 5c 59 45 53 2c 49 4e 44 49 43 41 54 45 20 49 54 20 00 e4 00 1c 00 10 00 50 53 53 54 32 30 5c 45 51 55 5c 2a 20 00 e4 00 3e 00 0e ┆* P LDK A2,0 P RF SST22 YES,INDICATE IT PSST20 EQU * > ┆
0x5b98…5be8 00 50 5c 4c 44 52 5c 41 31 2c 41 32 00 e4 00 52 00 12 00 50 5c 41 4e 4b 5c 41 31 2c 53 53 54 54 48 52 00 e4 00 64 00 12 00 50 5c 52 46 28 4e 5a 29 5c 53 53 54 32 31 20 00 e4 00 7a 00 06 00 50 2a 20 00 e4 00 90 00 32 00 50 2a 20 20 43 52 43 ┆ P LDR A1,A2 R P ANK A1,SSTTHR d P RF(NZ) SST21 z P* 2 P* CRC┆
0x5be8…5c38 20 45 52 52 4f 52 20 28 52 45 53 54 41 52 54 20 49 4e 50 55 54 29 20 26 20 42 55 46 46 45 52 20 4f 56 45 52 46 4c 4f 57 00 e4 00 9a 00 06 00 50 2a 20 00 e4 00 d0 00 2a 00 50 5c 53 54 5c 41 32 2c 44 57 54 53 41 56 2c 41 37 5c 53 41 56 45 20 ┆ ERROR (RESTART INPUT) & BUFFER OVERFLOW P* * P ST A2,DWTSAV,A7 SAVE ┆
0x5c38…5c88 48 41 52 44 57 41 52 45 20 53 54 41 54 55 53 20 00 e4 00 da 00 1e 00 50 5c 4c 44 4b 5c 41 32 2c 33 5c 41 4c 4c 20 54 59 50 45 20 45 52 52 4f 52 53 20 00 e4 01 08 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 54 50 2c 41 37 20 00 e4 01 2a 00 10 ┆HARDWARE STATUS P LDK A2,3 ALL TYPE ERRORS P LD A1,DWTTP,A7 * ┆
0x5c88…5cd8 00 50 5c 52 46 28 5a 29 5c 53 53 54 32 33 00 e4 01 42 00 10 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2d 32 31 00 e4 01 56 00 14 00 50 5c 53 54 2a 5c 41 31 2c 44 57 54 54 50 2c 41 37 00 e4 01 6a 00 14 00 50 5c 4c 44 5c 41 31 2c 43 48 45 43 4b 2c 41 ┆ P RF(Z) SST23 B P LDKL A1,-21 V P ST* A1,DWTTP,A7 j P LD A1,CHECK,A┆