|
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: 20496 (0x5010)
Notes: pts_type(SC)
Names: »DCBSC.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »MODIFY/DCBSC.SC«
IDENT DCBSC REL 11.0 81-04-08 870150541100 =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 LMP3OF 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 LMP1ON SYSTEM AVAILABLE DK EXTRN LMP3ON ON EXTRN LMP1OF SYSTEM AVAILABLE DK EJECT ********************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ********************************************************* X:C EQU 0 OFFLINE HANDLING IF :=1 OFLIN EQU 0 X:D EQU 1 NUMBER OF LINES (1-2) NBRLIN EQU 1 X:E EQU 300 REQUEST TIMEOUT IN 100 MS REQTIM EQU 00300 X:L EQU 1000 MAX BUFFER SIZE IN WORDS BUFFL EQU 1150 X:O EQU 0 TEST INCLUDED IF:=1 TEST EQU 0 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,LMP3OF 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 * 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 * RTN A14 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 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 ***************************************************************** * * 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,LMP3OF 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,/B8 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,/80 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,LMP1ON SYSTEM AVAIL. RF CHKS20 CHKS10 EQU * * LAMP ONE OFF DELETED P & T * 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 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.0 81-04-08 870150541100 «, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0058 Head {h00=0x0018, h01=0x0050, text=» =1, CHARAC. ADDR.«, t00=0x0000, t01=0x0040}
0x0058…006c Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x005c}
0x006c…00b4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0000, t01=0x0070}
0x00b4…00fc Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00b8}
0x00fc…0144 Head {h00=0x0044, h01=0x0050, text=»* MODULE DCBSC *«, t00=0x0000, t01=0x0100}
0x0144…018c Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE COMMUNICATION *«, t00=0x0000, t01=0x0148}
0x018c…01d4 Head {h00=0x0044, h01=0x0050, text=»* BETWEEN THE SLU AND CLUSTER CONTROLLER *«, t00=0x0000, t01=0x0190}
0x01d4…0218 Head {h00=0x0040, h01=0x0050, text=»* (EMULATION 3270 BSC) * «, t00=0x0001, t01=0x0048}
0x0218…0260 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0001, t01=0x008c}
0x0260…02a8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x00d4}
0x02a8…02b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x011c}
0x02b6…02fa Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0001, t01=0x012a}
0x02fa…033e Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0001, t01=0x016e}
0x033e…0382 Head {h00=0x0040, h01=0x0050, text=»* ROUTINES * «, t00=0x0002, t01=0x0022}
0x0382…03c6 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0066}
0x03c6…040a Head {h00=0x0040, h01=0x0050, text=»* DCINP DC-INPUT MAIN ROUTINE * «, t00=0x0002, t01=0x00aa}
0x040a…044e Head {h00=0x0040, h01=0x0050, text=»* READW READ WITH WAIT * «, t00=0x0002, t01=0x00ee}
0x044e…0492 Head {h00=0x0040, h01=0x0050, text=»* DCWRIT WRITE DC BUFFER * «, t00=0x0002, t01=0x0132}
0x0492…04d6 Head {h00=0x0040, h01=0x0050, text=»* TSTMES TEST MESSAGE * «, t00=0x0002, t01=0x0176}
0x04d6…051a Head {h00=0x0040, h01=0x0050, text=»* SETSTA SET STATUS * «, t00=0x0003, t01=0x002a}
0x051a…055e Head {h00=0x0040, h01=0x0050, text=»* TSTSTA TEST STATUS * «, t00=0x0003, t01=0x006e}
0x055e…05a2 Head {h00=0x0040, h01=0x0050, text=»* DCABOR ABORT DC REQUEST * «, t00=0x0003, t01=0x00b2}
0x05a2…05e6 Head {h00=0x0040, h01=0x0050, text=»* CHKSTA CHACK DC STATUS * «, t00=0x0003, t01=0x00f6}
0x05e6…062a Head {h00=0x0040, h01=0x0050, text=»* DCOFLN INDICATE OFFLINE TO CLUSTER * «, t00=0x0003, t01=0x013a}
0x062a…066e Head {h00=0x0040, h01=0x0050, text=»* TRPA TRANSMIT SHORT READ * «, t00=0x0003, t01=0x017e}
0x066e…06b2 Head {h00=0x0040, h01=0x0050, text=»* TRPF TRANSMIT READ MODIFIED * «, t00=0x0004, t01=0x0032}
0x06b2…06f6 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0076}
0x06f6…073a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0004, t01=0x00ba}
0x073a…0748 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00fe}
0x0748…0790 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x010c}
0x0790…07d8 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0154}
0x07d8…0820 Head {h00=0x0044, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x0005, t01=0x000c}
0x0820…0868 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0054}
0x0868…08b0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0005, t01=0x009c}
0x08b0…08b8 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00e4}
0x08b8…08e2 Head {h00=0x0026, h01=0x0050, text=» ENTRY DCINP DC-INPUT MAIN ROUTINE«, t00=0x0005, t01=0x00ec}
0x08e2…0904 Head {h00=0x001e, h01=0x0050, text=» ENTRY TSTSTA TEST STATUS «, t00=0x0005, t01=0x0116}
0x0904…0924 Head {h00=0x001c, h01=0x0050, text=» ENTRY SETSTA SET STATUS«, t00=0x0005, t01=0x0138}
0x0924…093c Head {h00=0x0014, h01=0x0050, text=» ENTRY OPEN OPEN«, t00=0x0005, t01=0x0158}
0x093c…0960 Head {h00=0x0020, h01=0x0050, text=» ENTRY CONCT CONNECT PASSIVE«, t00=0x0005, t01=0x0170}
0x0960…0988 (6, 0, 398) Head {h00=0x0024, h01=0x0050, text=» ENTRY SETTIM SET REQUEST TIMER «, t00=0x0006, t01=0x0004}
0x0988…09ac Head {h00=0x0020, h01=0x0050, text=» ENTRY TSTMES TEST MESSAGE. «, t00=0x0006, t01=0x002c}
0x09ac…09d2 Head {h00=0x0022, h01=0x0050, text=» ENTRY DCABOR ABORT DC REQUEST«, t00=0x0006, t01=0x0050}
0x09d2…09fa Head {h00=0x0024, h01=0x0050, text=» ENTRY TRPA TRANSMIT SHORT READ «, t00=0x0006, t01=0x0076}
0x09fa…0a24 Head {h00=0x0026, h01=0x0050, text=» ENTRY TRPF TRANSMIT READ MODIFIED«, t00=0x0006, t01=0x009e}
0x0a24…0a56 Head {h00=0x002e, h01=0x0050, text=» ENTRY DCOFLN INDICATE OFFLINE TO CLUSTER «, t00=0x0006, t01=0x00c8}
0x0a56…0a7c Head {h00=0x0022, h01=0x0050, text=» ENTRY CHKSTA CHECK DC STATUS «, t00=0x0006, t01=0x00fa}
0x0a7c…0aa2 Head {h00=0x0022, h01=0x0050, text=» ENTRY DCWRIT WRITE DC BUFFER «, t00=0x0006, t01=0x0120}
0x0aa2…0ac8 Head {h00=0x0022, h01=0x0050, text=» ENTRY READW READ DC WITH WAIT«, t00=0x0006, t01=0x0146}
0x0ac8…0aee Head {h00=0x0022, h01=0x0050, text=» ENTRY RDSTAT READ STATISTICS «, t00=0x0006, t01=0x016c}
0x0aee…0af6 (7, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0004}
0x0af6…0b3c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x000c}
0x0b3c…0b82 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0052}
0x0b82…0bc8 Head {h00=0x0042, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0007, t01=0x0098}
0x0bc8…0c0e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x00de}
0x0c0e…0c54 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x0124}
0x0c54…0c5c Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x016a}
0x0c5c…0c82 Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0007, t01=0x0172}
0x0c82…0cac Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0008, t01=0x0008}
0x0cac…0ce2 Head {h00=0x0032, h01=0x0050, text=» EXTRN PAID STORE AID-CODE IN DC BUFFER (PAD) «, t00=0x0008, t01=0x0032}
0x0ce2…0d14 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x0008, t01=0x0068}
0x0d14…0d52 Head {h00=0x003a, h01=0x0050, text=» EXTRN BUFADR STORE BUFFER ADDRESS IN DC BUFFER (PAD) «, t00=0x0008, t01=0x009a}
0x0d52…0d80 Head {h00=0x002a, h01=0x0050, text=» EXTRN PACK PACK MODIFIED FIELDS (PAD)«, t00=0x0008, t01=0x00d8}
0x0d80…0dae Head {h00=0x002a, h01=0x0050, text=» EXTRN LMP3OF INHIBIT LAMP OFF (KEYB) «, t00=0x0008, t01=0x0106}
0x0dae…0de2 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x0008, t01=0x0134}
0x0de2…0e0e Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x0008, t01=0x0168}
0x0e0e…0e38 (9, 0, 400) Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR INDICATE ERROR (KEYB)«, t00=0x0009, t01=0x0004}
0x0e38…0e6a Head {h00=0x002e, h01=0x0050, text=» EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) «, t00=0x0009, t01=0x002e}
0x0e6a…0e94 Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP1ON SYSTEM AVAILABLE DK «, t00=0x0009, t01=0x0060}
0x0e94…0ec0 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP3ON ON «, t00=0x0009, t01=0x008a}
0x0ec0…0eea Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP1OF SYSTEM AVAILABLE DK «, t00=0x0009, t01=0x00b6}
0x0eea…0ef8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00e0}
0x0ef8…0f3a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0009, t01=0x00ee}
0x0f3a…0f7c Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0130}
0x0f7c…0fbe Head {h00=0x003e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0009, t01=0x0172}
0x0fbe…1000 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0024}
0x1000…1042 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000a, t01=0x0066}
0x1042…106c Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x000a, t01=0x00a8}
0x106c…1080 Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x000a, t01=0x00d2}
0x1080…10a8 Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x000a, t01=0x00e6}
0x10a8…10bc Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 1«, t00=0x000a, t01=0x010e}
0x10bc…10ea Head {h00=0x002a, h01=0x0050, text=»X:E EQU 300 REQUEST TIMEOUT IN 100 MS «, t00=0x000a, t01=0x0122}
0x10ea…1102 Head {h00=0x0014, h01=0x0050, text=»REQTIM EQU 00300«, t00=0x000a, t01=0x0150}
0x1102…1130 Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1000 MAX BUFFER SIZE IN WORDS «, t00=0x000a, t01=0x0168}
0x1130…1146 Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU 1150«, t00=0x000b, t01=0x0008}
0x1146…116c Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000b, t01=0x001e}
0x116c…117e Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000b, t01=0x0044}
0x117e…118c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0056}
0x118c…11d4 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000b, t01=0x0064}
0x11d4…121c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000b, t01=0x00ac}
0x121c…1246 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000b, t01=0x00f4}
0x1246…128e Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000b, t01=0x011e}
0x128e…12d6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000b, t01=0x0166}
0x12d6…12de Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x001e}
0x12de…12e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0026}
0x12e8…1310 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x000c, t01=0x0030}
0x1310…131a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131a…133c Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000c, t01=0x0062}
0x133c…1360 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000c, t01=0x0084}
0x1360…1384 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000c, t01=0x00a8}
0x1384…13a4 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000c, t01=0x00cc}
0x13a4…13c8 Head {h00=0x0020, h01=0x0050, text=»ECBCW1 EQU 10 CONTROL WORD 1«, t00=0x000c, t01=0x00ec}
0x13c8…13ec Head {h00=0x0020, h01=0x0050, text=»ECBCW2 EQU 12 CONTROL WORD 2«, t00=0x000c, t01=0x0110}
0x13ec…13f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0134}
0x13f6…1418 Head {h00=0x001e, h01=0x0050, text=»* RELATIVE POS. IN ECBBLK «, t00=0x000c, t01=0x013e}
0x1418…1422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0160}
0x1422…1432 Head {h00=0x000c, h01=0x0050, text=»DC EQU 4«, t00=0x000c, t01=0x016a}
0x1432…1440 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x017a}
0x1440…144a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0188}
0x144a…146a (13, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x0004}
0x146a…1486 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x000d, t01=0x0024}
0x1486…1490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0040}
0x1490…14ae Head {h00=0x001a, h01=0x0050, text=»WCC EQU 1952 WCC CHAR.«, t00=0x000d, t01=0x004a}
0x14ae…14da Head {h00=0x0028, h01=0x0050, text=»KBINH EQU WCC+2 KB INHIBIT INDICATOR«, t00=0x000d, t01=0x0068}
0x14da…150e Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU KBINH+4 DC READ EFFECTIVE LENGTH «, t00=0x000d, t01=0x0094}
0x150e…1542 Head {h00=0x0030, h01=0x0050, text=»ECBBLK EQU DCLENG+18 ECB:S FOR MULTIPLE WAIT«, t00=0x000d, t01=0x00c8}
0x1542…1570 Head {h00=0x002a, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER TO RELEASE«, t00=0x000d, t01=0x00fc}
0x1570…1594 Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x000d, t01=0x012a}
0x1594…15bc Head {h00=0x0024, h01=0x0050, text=»ECBDC1 EQU REGI+46 ECB DC LINE 1«, t00=0x000d, t01=0x014e}
0x15bc…15e6 Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x000d, t01=0x0176}
0x15e6…15f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0010}
0x15f0…1610 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000e, t01=0x001a}
0x1610…162a Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x000e, t01=0x003a}
0x162a…1634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0054}
0x1634…1658 Head {h00=0x0020, h01=0x0050, text=»MF1CU EQU 0 SYMBOLIC ADDRESS«, t00=0x000e, t01=0x005e}
0x1658…1666 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0082}
0x1666…16aa Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000e, t01=0x0090}
0x16aa…16ee Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x000e, t01=0x00d4}
0x16ee…1732 Head {h00=0x0040, h01=0x0050, text=»* DCINP DC INPUT MAIN ROUTINE *«, t00=0x000e, t01=0x0118}
0x1732…1776 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x000e, t01=0x015c}
0x1776…17ba Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000f, t01=0x0010}
0x17ba…17ce Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x000f, t01=0x0054}
0x17ce…17d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0068}
0x17d8…17f8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x000f, t01=0x0072}
0x17f8…1810 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x000f, t01=0x0092}
0x1810…181a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00aa}
0x181a…184e Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000f, t01=0x00b4}
0x184e…1862 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000f, t01=0x00e8}
0x1862…1884 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x000f, t01=0x00fc}
0x1884…1896 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x000f, t01=0x011e}
0x1896…18bc Head {h00=0x0022, h01=0x0050, text=» CF A14,READW READ ONE BUFFER «, t00=0x000f, t01=0x0130}
0x18bc…18d2 Head {h00=0x0012, h01=0x0050, text=» ANK A1,8 OK? «, t00=0x000f, t01=0x0156}
0x18d2…18ec Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCIN10 YES «, t00=0x000f, t01=0x016c}
0x18ec…1900 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x000f, t01=0x0186}
0x1900…1926 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0010, t01=0x000a}
0x1926…1938 Head {h00=0x000e, h01=0x0050, text=» RF DCIN15«, t00=0x0010, t01=0x0030}
0x1938…194c Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0010, t01=0x0042}
0x194c…1964 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x0010, t01=0x0056}
0x1964…198a Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x0010, t01=0x006e}
0x198a…19a4 Head {h00=0x0016, h01=0x0050, text=» ST A12,BUFPNT,A11«, t00=0x0010, t01=0x0094}
0x19a4…19cc Head {h00=0x0024, h01=0x0050, text=» CF A14,UNPACK UNPACK THE BUFFER«, t00=0x0010, t01=0x00ae}
0x19cc…19f4 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISMOD DISPLAY THE NEWS «, t00=0x0010, t01=0x00d6}
0x19f4…1a08 Head {h00=0x0010, h01=0x0050, text=»DCIN15 EQU *«, t00=0x0010, t01=0x00fe}
0x1a08…1a20 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0010, t01=0x0112}
0x1a20…1a32 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0010, t01=0x012a}
0x1a32…1a5e Head {h00=0x0028, h01=0x0050, text=» ANK A1,1 KEYBOARD TOTALLY INHIBIT? «, t00=0x0010, t01=0x013c}
0x1a5e…1a76 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCIN20 NO«, t00=0x0010, t01=0x0168}
0x1a76…1aa6 Head {h00=0x002c, h01=0x0050, text=» ANK A2,/E KEYBOARD NOT TOTALLY INHIBIT «, t00=0x0010, t01=0x0180}
0x1aa6…1abc Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0011, t01=0x0020}
0x1abc…1ae0 Head {h00=0x0020, h01=0x0050, text=» ANK A1,2 RESTORE KEYBOARD? «, t00=0x0011, t01=0x0036}
0x1ae0…1af8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCIN30 NO«, t00=0x0011, t01=0x005a}
0x1af8…1b0c Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0011, t01=0x0072}
0x1b0c…1b38 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP3OF TUR OFF INHIBIT LAMP «, t00=0x0011, t01=0x0086}
0x1b38…1b5a Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 RESTORE KEYBOARD«, t00=0x0011, t01=0x00b2}
0x1b5a…1b6e Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0011, t01=0x00d4}
0x1b6e…1b86 Head {h00=0x0014, h01=0x0050, text=» ST A2,KBINH,A11«, t00=0x0011, t01=0x00e8}
0x1b86…1b98 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0011, t01=0x0100}
0x1b98…1bbe Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x0011, t01=0x0112}
0x1bbe…1bce Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0011, t01=0x0138}
0x1bce…1bdc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0148}
0x1bdc…1c22 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0011, t01=0x0156}
0x1c22…1c68 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0012, t01=0x000c}
0x1c68…1c7c Head {h00=0x0010, h01=0x0050, text=»* OPEN OPEN «, t00=0x0012, t01=0x0052}
0x1c7c…1cc2 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0066}
0x1cc2…1d08 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0012, t01=0x00ac}
0x1d08…1d1c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0012, t01=0x00f2}
0x1d1c…1d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0106}
0x1d26…1d3a Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0012, t01=0x0110}
0x1d3a…1d5a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0012, t01=0x0124}
0x1d5a…1d72 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0012, t01=0x0144}
0x1d72…1d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d7c…1dc2 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0012, t01=0x0166}
0x1dc2…1dd4 Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0013, t01=0x001c}
0x1dd4…1dfe Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBDC1,A11 GET ECB ADDRESS «, t00=0x0013, t01=0x002e}
0x1dfe…1e20 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET INDICATOR «, t00=0x0013, t01=0x0058}
0x1e20…1e3e Head {h00=0x001a, h01=0x0050, text=» LD A3,6,A13 GET BASE «, t00=0x0013, t01=0x007a}
0x1e3e…1e60 Head {h00=0x001e, h01=0x0050, text=» LD A2,MF1CU,A3 ADDRESS =1«, t00=0x0013, t01=0x0098}
0x1e60…1e74 Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0013, t01=0x00ba}
0x1e74…1e92 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBCW2,A8 . =1 «, t00=0x0013, t01=0x00ce}
0x1e92…1eaa Head {h00=0x0014, h01=0x0050, text=» LDK A7,/A1 OPEN«, t00=0x0013, t01=0x00ec}
0x1eaa…1eb6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x0104}
0x1eb6…1ec6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0013, t01=0x0110}
0x1ec6…1ede Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0013, t01=0x0120}
0x1ede…1ef4 Head {h00=0x0012, h01=0x0050, text=» RF(N) OPEN20 «, t00=0x0013, t01=0x0138}
0x1ef4…1f0a Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0013, t01=0x014e}
0x1f0a…1f32 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 ANOTHER LINE TO OPEN «, t00=0x0013, t01=0x0164}
0x1f32…1f4c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) OPEN20 NO «, t00=0x0013, t01=0x018c}
0x1f4c…1f70 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC2,A11 GET LINE 2«, t00=0x0014, t01=0x0016}
0x1f70…1f82 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0014, t01=0x003a}
0x1f82…1f94 Head {h00=0x000e, h01=0x0050, text=» RB OPEN10«, t00=0x0014, t01=0x004c}
0x1f94…1fa0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x005e}
0x1fa0…1fb4 Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x0014, t01=0x006a}
0x1fb4…1fc4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x007e}
0x1fc4…1fd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x008e}
0x1fd2…2014 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0014, t01=0x009c}
0x2014…2056 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0014, t01=0x00de}
0x2056…2076 Head {h00=0x001c, h01=0x0050, text=»* CONCT CONNECT PASSIVE «, t00=0x0014, t01=0x0120}
0x2076…20b8 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0140}
0x20b8…20fa Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0014, t01=0x0182}
0x20fa…210e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x0034}
0x210e…2118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0048}
0x2118…212c Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0015, t01=0x0052}
0x212c…214c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0015, t01=0x0066}
0x214c…2164 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0015, t01=0x0086}
0x2164…216e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009e}
0x216e…21a8 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0015, t01=0x00a8}
0x21a8…21bc Head {h00=0x0010, h01=0x0050, text=»CONCT EQU * «, t00=0x0015, t01=0x00e2}
0x21bc…21de Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x0015, t01=0x00f6}
0x21de…2202 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC1,A11 GET LINE 1«, t00=0x0015, t01=0x0118}
0x2202…2224 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET INDICATOR «, t00=0x0015, t01=0x013c}
0x2224…2238 Head {h00=0x0010, h01=0x0050, text=»CONC10 EQU *«, t00=0x0015, t01=0x015e}
0x2238…2250 Head {h00=0x0014, h01=0x0050, text=» ST A12,ECBBA,A8«, t00=0x0015, t01=0x0172}
0x2250…2270 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A11 GET TASKID «, t00=0x0015, t01=0x018a}
0x2270…2284 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0016, t01=0x001a}
0x2284…22b0 Head {h00=0x0028, h01=0x0050, text=» SC A1,+1,A12 SAVE ADDRESS IN BUFFER«, t00=0x0016, t01=0x002e}
0x22b0…22c8 Head {h00=0x0014, h01=0x0050, text=» LDK A1,2 LENGTH«, t00=0x0016, t01=0x005a}
0x22c8…22e0 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0016, t01=0x0072}
0x22e0…22fe Head {h00=0x001a, h01=0x0050, text=» LD A3,6,A13 GET BASE «, t00=0x0016, t01=0x008a}
0x22fe…2316 Head {h00=0x0014, h01=0x0050, text=» LD A1,MF1CU,A3 «, t00=0x0016, t01=0x00a8}
0x2316…2334 Head {h00=0x001a, h01=0x0050, text=» ST A1,ECBCW2,A8 . =1 «, t00=0x0016, t01=0x00c0}
0x2334…2358 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/A7 CONNECT PASSIVE «, t00=0x0016, t01=0x00de}
0x2358…2364 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x0102}
0x2364…2374 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0016, t01=0x010e}
0x2374…23ac Head {h00=0x0034, h01=0x0050, text=» LD A1,REGI,A11 GET TABLE TO SAVE PHYS. ADDRESS «, t00=0x0016, t01=0x011e}
0x23ac…23d0 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW2,A8 GET ADDRESS«, t00=0x0016, t01=0x0156}
0x23d0…23fe Head {h00=0x002a, h01=0x0050, text=» SC A2,+2,A1 SAVE IT FOR COPY COMMAND «, t00=0x0016, t01=0x017a}
0x23fe…2414 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0017, t01=0x0018}
0x2414…2436 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 MORE TO CONNECT«, t00=0x0017, t01=0x002e}
0x2436…2450 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CONC20 NO «, t00=0x0017, t01=0x0050}
0x2450…246a Head {h00=0x0016, h01=0x0050, text=» LDK A4,1 NO MORE «, t00=0x0017, t01=0x006a}
0x246a…248a Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0017, t01=0x0084}
0x248a…249c Head {h00=0x000e, h01=0x0050, text=» RB CONC10«, t00=0x0017, t01=0x00a4}
0x249c…24b0 Head {h00=0x0010, h01=0x0050, text=»CONC20 EQU *«, t00=0x0017, t01=0x00b6}
0x24b0…24bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00ca}
0x24bc…24d0 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0017, t01=0x00d6}
0x24d0…24f6 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0017, t01=0x00ea}
0x24f6…2506 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x0110}
0x2506…2514 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0120}
0x2514…255e Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0017, t01=0x012e}
0x255e…2568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0178}
0x2568…258c Head {h00=0x0020, h01=0x0050, text=»* SETTIM SET REQUEST TIMEOUT«, t00=0x0017, t01=0x0182}
0x258c…2596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0016}
0x2596…25e0 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0018, t01=0x0020}
0x25e0…2600 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x0018, t01=0x006a}
0x2600…260a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008a}
0x260a…2614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0094}
0x2614…265e Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0018, t01=0x009e}
0x265e…2672 Head {h00=0x0010, h01=0x0050, text=»SETTIM EQU *«, t00=0x0018, t01=0x00e8}
0x2672…2694 Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBDC1,A11 GET ECB «, t00=0x0018, t01=0x00fc}
0x2694…26b6 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET INDICATOR «, t00=0x0018, t01=0x011e}
0x26b6…26e0 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,REQTIM GET TIMEOUT VALUE «, t00=0x0018, t01=0x0140}
0x26e0…26f4 Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x0018, t01=0x016a}
0x26f4…270c Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW1,A8«, t00=0x0018, t01=0x017e}
0x270c…272c Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B9 SET TIMEOUT «, t00=0x0019, t01=0x0008}
0x272c…2738 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x0028}
0x2738…2748 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x0034}
0x2748…275e Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0019, t01=0x0044}
0x275e…277e Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 MORE TO TIME?«, t00=0x0019, t01=0x005a}
0x277e…2798 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SETT20 NO «, t00=0x0019, t01=0x007a}
0x2798…27bc Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC2,A11 GET LINE 2«, t00=0x0019, t01=0x0094}
0x27bc…27d6 Head {h00=0x0016, h01=0x0050, text=» LDK A4,1 NO MORE «, t00=0x0019, t01=0x00b8}
0x27d6…27e8 Head {h00=0x000e, h01=0x0050, text=» RB SETT10«, t00=0x0019, t01=0x00d2}
0x27e8…27fc Head {h00=0x0010, h01=0x0050, text=»SETT20 EQU *«, t00=0x0019, t01=0x00e4}
0x27fc…280a Head {h00=0x000a, h01=0x0050, text=» XIF «, t00=0x0019, t01=0x00f8}
0x280a…281a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x0106}
0x281a…2828 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0116}
0x2828…286a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0019, t01=0x0124}
0x286a…28ac Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0019, t01=0x0166}
0x28ac…28c4 Head {h00=0x0014, h01=0x0050, text=»* READW RECEIVE «, t00=0x001a, t01=0x0018}
0x28c4…2906 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001a, t01=0x0030}
0x2906…2948 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001a, t01=0x0072}
0x2948…295c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001a, t01=0x00b4}
0x295c…2966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c8}
0x2966…2982 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x001a, t01=0x00d2}
0x2982…2996 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x001a, t01=0x00ee}
0x2996…29b6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001a, t01=0x0102}
0x29b6…29ce Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001a, t01=0x0122}
0x29ce…29d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x013a}
0x29d8…2a1a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001a, t01=0x0144}
0x2a1a…2a2e Head {h00=0x0010, h01=0x0050, text=»READW EQU * «, t00=0x001a, t01=0x0186}
0x2a2e…2a4e Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x001b, t01=0x000a}
0x2a4e…2a64 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001b, t01=0x002a}
0x2a64…2a86 Head {h00=0x001e, h01=0x0050, text=» LD A1,MAIN,A11 MORE LINES«, t00=0x001b, t01=0x0040}
0x2a86…2a9e Head {h00=0x0014, h01=0x0050, text=» RF(Z) REDW10 NO«, t00=0x001b, t01=0x0062}
0x2a9e…2abe Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x001b, t01=0x007a}
0x2abe…2ad2 Head {h00=0x0010, h01=0x0050, text=»REDW10 EQU *«, t00=0x001b, t01=0x009a}
0x2ad2…2ade Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00ae}
0x2ade…2b06 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL GET LENGTH «, t00=0x001b, t01=0x00ba}
0x2b06…2b1e Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x001b, t01=0x00e2}
0x2b1e…2b36 Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x001b, t01=0x00fa}
0x2b36…2b52 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/82 RECEIVE «, t00=0x001b, t01=0x0112}
0x2b52…2b5e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x012e}
0x2b5e…2b6e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x013a}
0x2b6e…2b86 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x001b, t01=0x014a}
0x2b86…2b9e Head {h00=0x0014, h01=0x0050, text=» ANK A1,/5B OK? «, t00=0x001b, t01=0x0162}
0x2b9e…2bb8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) REDW20 YES «, t00=0x001b, t01=0x017a}
0x2bb8…2bdc (28, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKSTA CHECK STATUS «, t00=0x001c, t01=0x0004}
0x2bdc…2bfc Head {h00=0x001c, h01=0x0050, text=» LDK A1,8 INDICATE ERROR«, t00=0x001c, t01=0x0028}
0x2bfc…2c0e Head {h00=0x000e, h01=0x0050, text=» RF REDW30«, t00=0x001c, t01=0x0048}
0x2c0e…2c22 Head {h00=0x0010, h01=0x0050, text=»REDW20 EQU *«, t00=0x001c, t01=0x005a}
0x2c22…2c34 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x001c, t01=0x006e}
0x2c34…2c48 Head {h00=0x0010, h01=0x0050, text=»REDW30 EQU *«, t00=0x001c, t01=0x0080}
0x2c48…2c58 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001c, t01=0x0094}
0x2c58…2c66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00a4}
0x2c66…2ca8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001c, t01=0x00b2}
0x2ca8…2cea Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001c, t01=0x00f4}
0x2cea…2d00 Head {h00=0x0012, h01=0x0050, text=»* DCWRIT SEND «, t00=0x001c, t01=0x0136}
0x2d00…2d42 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001c, t01=0x014c}
0x2d42…2d84 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001c, t01=0x018e}
0x2d84…2d98 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001d, t01=0x0040}
0x2d98…2da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0054}
0x2da2…2dd6 Head {h00=0x0030, h01=0x0050, text=»* A1= AT ENTRY CHAIN INDICATOR, RETURN CODE «, t00=0x001d, t01=0x005e}
0x2dd6…2dea Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x001d, t01=0x0092}
0x2dea…2e08 Head {h00=0x001a, h01=0x0050, text=»* A9= DC BUFFER LENGTH«, t00=0x001d, t01=0x00a6}
0x2e08…2e28 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001d, t01=0x00c4}
0x2e28…2e40 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001d, t01=0x00e4}
0x2e40…2e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00fc}
0x2e4a…2e88 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001d, t01=0x0106}
0x2e88…2e9c Head {h00=0x0010, h01=0x0050, text=»DCWRIT EQU *«, t00=0x001d, t01=0x0144}
0x2e9c…2eba Head {h00=0x001a, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE«, t00=0x001d, t01=0x0158}
0x2eba…2ed0 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001d, t01=0x0176}
0x2ed0…2ef0 Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x001d, t01=0x018c}
0x2ef0…2f08 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCWR10 NO«, t00=0x001e, t01=0x001c}
0x2f08…2f28 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x001e, t01=0x0034}
0x2f28…2f3c Head {h00=0x0010, h01=0x0050, text=»DCWR10 EQU *«, t00=0x001e, t01=0x0054}
0x2f3c…2f48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0068}
0x2f48…2f78 Head {h00=0x002c, h01=0x0050, text=» LDK A2,2 KEYBOARD INHIBIT BUT RESETABLE«, t00=0x001e, t01=0x0074}
0x2f78…2f92 Head {h00=0x0016, h01=0x0050, text=» ORS A2,KBINH,A11 «, t00=0x001e, t01=0x00a4}
0x2f92…2fb2 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/86 WRITE ORDER «, t00=0x001e, t01=0x00be}
0x2fb2…2fda Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x001e, t01=0x00de}
0x2fda…2ff2 Head {h00=0x0014, h01=0x0050, text=» ST A9,ECBRL,A8 «, t00=0x001e, t01=0x0106}
0x2ff2…2ffe Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x011e}
0x2ffe…300e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x012a}
0x300e…3030 Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBRC,A8 ANY ERROR?«, t00=0x001e, t01=0x013a}
0x3030…3044 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/5B «, t00=0x001e, t01=0x015c}
0x3044…305c Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCWR90 NO«, t00=0x001e, t01=0x0170}
0x305c…3072 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x001e, t01=0x0188}
0x3072…3098 Head {h00=0x0022, h01=0x0050, text=» CF A14,CHKSTA CHECK DC STATUS«, t00=0x001f, t01=0x000e}
0x3098…30b0 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x001f, t01=0x0034}
0x30b0…30d8 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/D RESET KEYBOARD PARTLY«, t00=0x001f, t01=0x004c}
0x30d8…30f0 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x001f, t01=0x0074}
0x30f0…3118 Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP3OF INHIBIT LAMP OFF «, t00=0x001f, t01=0x008c}
0x3118…313e Head {h00=0x0022, h01=0x0050, text=» CF A14,RESKB RESET KB BUFFER «, t00=0x001f, t01=0x00b4}
0x313e…315c Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x001f, t01=0x00da}
0x315c…3170 Head {h00=0x0010, h01=0x0050, text=»DCWR90 EQU *«, t00=0x001f, t01=0x00f8}
0x3170…3180 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x010c}
0x3180…318e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x011c}
0x318e…31d0 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001f, t01=0x012a}
0x31d0…3212 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001f, t01=0x016c}
0x3212…3254 Head {h00=0x003e, h01=0x0050, text=»* TSTMES TEST IF ANY MESSAGE, NO WAIT * «, t00=0x0020, t01=0x001e}
0x3254…3296 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0020, t01=0x0060}
0x3296…32d8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0020, t01=0x00a2}
0x32d8…32ec Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0020, t01=0x00e4}
0x32ec…32f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f8}
0x32f6…3310 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0020, t01=0x0102}
0x3310…333a Head {h00=0x0026, h01=0x0050, text=»* A11= ADDRESS TO CREDIT WORK AREA«, t00=0x0020, t01=0x011c}
0x333a…335c Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0020, t01=0x0146}
0x335c…3366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0168}
0x3366…33a8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0020, t01=0x0172}
0x33a8…33bc Head {h00=0x0010, h01=0x0050, text=»TSTMES EQU *«, t00=0x0021, t01=0x0024}
0x33bc…33dc Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x0021, t01=0x0038}
0x33dc…33f2 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0021, t01=0x0058}
0x33f2…3410 Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2«, t00=0x0021, t01=0x006e}
0x3410…3428 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTM10 NO«, t00=0x0021, t01=0x008c}
0x3428…3448 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0021, t01=0x00a4}
0x3448…345c Head {h00=0x0010, h01=0x0050, text=»TSTM10 EQU *«, t00=0x0021, t01=0x00c4}
0x345c…3468 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00d8}
0x3468…347a Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0021, t01=0x00e4}
0x347a…34a8 Head {h00=0x002a, h01=0x0050, text=» ST A2,ECBCW1,A8 INDICATE TEST MESSAGE«, t00=0x0021, t01=0x00f6}
0x34a8…34ce Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 TEST MESS., NO WAIT «, t00=0x0021, t01=0x0124}
0x34ce…34da Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0021, t01=0x014a}
0x34da…34ea Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0021, t01=0x0156}
0x34ea…34fa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0166}
0x34fa…3508 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0176}
0x3508…354e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0021, t01=0x0184}
0x354e…3594 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0022, t01=0x003a}
0x3594…35da Head {h00=0x0042, h01=0x0050, text=»* SETSTA SET STATUS * «, t00=0x0022, t01=0x0080}
0x35da…3620 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0022, t01=0x00c6}
0x3620…3666 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0022, t01=0x010c}
0x3666…367a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0022, t01=0x0152}
0x367a…3684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0166}
0x3684…36a2 Head {h00=0x001a, h01=0x0050, text=»* A1= AT ENTRY STATUS «, t00=0x0022, t01=0x0170}
0x36a2…36b6 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0022, t01=0x018e}
0x36b6…36ce Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0023, t01=0x0012}
0x36ce…36f0 Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0023, t01=0x002a}
0x36f0…36fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x004c}
0x36fa…373e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0023, t01=0x0056}
0x373e…3752 Head {h00=0x0010, h01=0x0050, text=»SETSTA EQU *«, t00=0x0023, t01=0x009a}
0x3752…376c Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC1,A11 «, t00=0x0023, t01=0x00ae}
0x376c…3782 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0023, t01=0x00c8}
0x3782…379a Head {h00=0x0014, h01=0x0050, text=» LD A2,MAIN,A11 «, t00=0x0023, t01=0x00de}
0x379a…37b0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SETS10 «, t00=0x0023, t01=0x00f6}
0x37b0…37ca Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0023, t01=0x010c}
0x37ca…37de Head {h00=0x0010, h01=0x0050, text=»SETS10 EQU *«, t00=0x0023, t01=0x0126}
0x37de…37ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x013a}
0x37ea…37fe Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B8 «, t00=0x0023, t01=0x0146}
0x37fe…3816 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW1,A8«, t00=0x0023, t01=0x015a}
0x3816…3822 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0023, t01=0x0172}
0x3822…3832 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0023, t01=0x017e}
0x3832…3842 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x018e}
0x3842…3850 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x000e}
0x3850…388e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0024, t01=0x001c}
0x388e…38cc Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x005a}
0x38cc…390a Head {h00=0x003a, h01=0x0050, text=»* TSTSTA TEST STATUS *«, t00=0x0024, t01=0x0098}
0x390a…3948 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x00d6}
0x3948…3986 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0024, t01=0x0114}
0x3986…399a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0024, t01=0x0152}
0x399a…39a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0166}
0x39a4…39be Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0024, t01=0x0170}
0x39be…39d2 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0024, t01=0x018a}
0x39d2…39ea Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0025, t01=0x000e}
0x39ea…3a0c Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0025, t01=0x0026}
0x3a0c…3a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0048}
0x3a16…3a54 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0025, t01=0x0052}
0x3a54…3a68 Head {h00=0x0010, h01=0x0050, text=»TSTSTA EQU *«, t00=0x0025, t01=0x0090}
0x3a68…3a88 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x0025, t01=0x00a4}
0x3a88…3a9e Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0025, t01=0x00c4}
0x3a9e…3abe Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x0025, t01=0x00da}
0x3abe…3ad6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTS10 NO«, t00=0x0025, t01=0x00fa}
0x3ad6…3af6 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0025, t01=0x0112}
0x3af6…3b0a Head {h00=0x0010, h01=0x0050, text=»TSTS10 EQU *«, t00=0x0025, t01=0x0132}
0x3b0a…3b16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0146}
0x3b16…3b40 Head {h00=0x0026, h01=0x0050, text=» CM ECBCW1,A8 INDICATE TEST STATUS«, t00=0x0025, t01=0x0152}
0x3b40…3b54 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/80 «, t00=0x0025, t01=0x017c}
0x3b54…3b60 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0025, t01=0x0190}
0x3b60…3b70 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x000c}
0x3b70…3b88 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW1,A8«, t00=0x0026, t01=0x001c}
0x3b88…3b98 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0034}
0x3b98…3ba6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0044}
0x3ba6…3bf4 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0026, t01=0x0052}
0x3bf4…3bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a0}
0x3bfe…3c1e Head {h00=0x001c, h01=0x0050, text=»* RDSTAT READ STATISTICS«, t00=0x0026, t01=0x00aa}
0x3c1e…3c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ca}
0x3c28…3c76 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0026, t01=0x00d4}
0x3c76…3c92 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0026, t01=0x0122}
0x3c92…3c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x013e}
0x3c9c…3ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0148}
0x3ca6…3cf4 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0026, t01=0x0152}
0x3cf4…3d08 Head {h00=0x0010, h01=0x0050, text=»RDSTAT EQU *«, t00=0x0027, t01=0x0010}
0x3d08…3d1c Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0027, t01=0x0024}
0x3d1c…3d36 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC1,A11 «, t00=0x0027, t01=0x0038}
0x3d36…3d4c Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0027, t01=0x0052}
0x3d4c…3d72 Head {h00=0x0022, h01=0x0050, text=» LD A1,MAIN,A11 THE OTHER LINE«, t00=0x0027, t01=0x0068}
0x3d72…3d8a Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDST10 NO«, t00=0x0027, t01=0x008e}
0x3d8a…3da4 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0027, t01=0x00a6}
0x3da4…3db8 Head {h00=0x0010, h01=0x0050, text=»RDST10 EQU *«, t00=0x0027, t01=0x00c0}
0x3db8…3dc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00d4}
0x3dc4…3dd8 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0027, t01=0x00e0}
0x3dd8…3df0 Head {h00=0x0014, h01=0x0050, text=» ST A12,ECBBA,A8«, t00=0x0027, t01=0x00f4}
0x3df0…3e0c Head {h00=0x0018, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL«, t00=0x0027, t01=0x010c}
0x3e0c…3e24 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0027, t01=0x0128}
0x3e24…3e4e Head {h00=0x0026, h01=0x0050, text=» CM ECBCW1,A8 NO RESET AFTERWARDS «, t00=0x0027, t01=0x0140}
0x3e4e…3e62 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/AD «, t00=0x0027, t01=0x016a}
0x3e62…3e6e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x017e}
0x3e6e…3e7e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0027, t01=0x018a}
0x3e7e…3e8e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x000a}
0x3e8e…3e9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x001a}
0x3e9a…3ea8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0026}
0x3ea8…3eea Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0028, t01=0x0034}
0x3eea…3f2c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0028, t01=0x0076}
0x3f2c…3f6e Head {h00=0x003e, h01=0x0050, text=»* DCABOR ABORT TEST MESSAGE REQUEST *«, t00=0x0028, t01=0x00b8}
0x3f6e…3fb0 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0028, t01=0x00fa}
0x3fb0…3ff2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0028, t01=0x013c}
0x3ff2…4006 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0028, t01=0x017e}
0x4006…4010 (41, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0004}
0x4010…4024 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0029, t01=0x000e}
0x4024…4050 Head {h00=0x0028, h01=0x0050, text=»* A11= ADDRESS TO CREDIT WORK AREA «, t00=0x0029, t01=0x0022}
0x4050…4072 Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0029, t01=0x004e}
0x4072…407c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0070}
0x407c…40be Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0029, t01=0x007a}
0x40be…40d2 Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x0029, t01=0x00bc}
0x40d2…40f2 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x0029, t01=0x00d0}
0x40f2…4108 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0029, t01=0x00f0}
0x4108…4128 Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x0029, t01=0x0106}
0x4128…4140 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCAB10 NO«, t00=0x0029, t01=0x0126}
0x4140…4160 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0029, t01=0x013e}
0x4160…4174 Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x0029, t01=0x015e}
0x4174…4180 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0172}
0x4180…4192 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0029, t01=0x017e}
0x4192…419e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0029, t01=0x0190}
0x419e…41ae Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002a, t01=0x000c}
0x41ae…41c4 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 OK?«, t00=0x002a, t01=0x001c}
0x41c4…41f0 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DCAB10 NO,ALREADY COMPLETED «, t00=0x002a, t01=0x0032}
0x41f0…420a Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+DC,A11 «, t00=0x002a, t01=0x005e}
0x420a…421e Head {h00=0x0010, h01=0x0050, text=»DCAB10 EQU *«, t00=0x002a, t01=0x0078}
0x421e…422e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x008c}
0x422e…423c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x009c}
0x423c…4246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00aa}
0x4246…4250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00b4}
0x4250…425a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00be}
0x425a…4272 Head {h00=0x0014, h01=0x0050, text=»* DC RETURN CODE«, t00=0x002a, t01=0x00c8}
0x4272…427a Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00e0}
0x427a…4284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e8}
0x4284…428e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f2}
0x428e…4298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00fc}
0x4298…42be Head {h00=0x0022, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x002a, t01=0x0106}
0x42be…42e0 Head {h00=0x001e, h01=0x0050, text=»* 1 RESERVED «, t00=0x002a, t01=0x012c}
0x42e0…4302 Head {h00=0x001e, h01=0x0050, text=»* 2 RESERVED «, t00=0x002a, t01=0x014e}
0x4302…430c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0170}
0x430c…4334 Head {h00=0x0024, h01=0x0050, text=»* 9 REQUEST TIMEOUT«, t00=0x002a, t01=0x017a}
0x4334…435c Head {h00=0x0024, h01=0x0050, text=»* 11 SEQUENCE ERROR «, t00=0x002b, t01=0x0012}
0x435c…4386 Head {h00=0x0026, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x002b, t01=0x003a}
0x4386…43a8 Head {h00=0x001e, h01=0x0050, text=»* 13 RESERVED «, t00=0x002b, t01=0x0064}
0x43a8…43d4 Head {h00=0x0028, h01=0x0050, text=»* 14 TRANSMISSION ERROR «, t00=0x002b, t01=0x0086}
0x43d4…43fa Head {h00=0x0022, h01=0x0050, text=»* 15 NO CONNECTION«, t00=0x002b, t01=0x00b2}
0x43fa…4404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d8}
0x4404…440e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e2}
0x440e…4418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ec}
0x4418…4426 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00f6}
0x4426…4464 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002b, t01=0x0104}
0x4464…44a2 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x002b, t01=0x0142}
0x44a2…44e0 Head {h00=0x003a, h01=0x0050, text=»* CHKSTA CHECK DC STATUS *«, t00=0x002b, t01=0x0180}
0x44e0…451e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x002c, t01=0x002e}
0x451e…455c Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002c, t01=0x006c}
0x455c…4570 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002c, t01=0x00aa}
0x4570…457a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00be}
0x457a…45ac Head {h00=0x002e, h01=0x0050, text=»* A1= AT ENTRY DC RETURN CODE, RETURN CODE«, t00=0x002c, t01=0x00c8}
0x45ac…45cc Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002c, t01=0x00fa}
0x45cc…45e4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002c, t01=0x011a}
0x45e4…45ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0132}
0x45ee…462e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x013c}
0x462e…4642 Head {h00=0x0010, h01=0x0050, text=»CHKSTA EQU *«, t00=0x002c, t01=0x017c}
0x4642…4664 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x002c, t01=0x0190}
0x4664…4684 Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/2211 LINE OK? «, t00=0x002d, t01=0x0022}
0x4684…469a Head {h00=0x0012, h01=0x0050, text=» XRKL A1,/2211«, t00=0x002d, t01=0x0042}
0x469a…46b4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CHKS10 NO «, t00=0x002d, t01=0x0058}
0x46b4…46d8 Head {h00=0x0020, h01=0x0050, text=» CF A14,LMP1ON SYSTEM AVAIL.«, t00=0x002d, t01=0x0072}
0x46d8…46ea Head {h00=0x000e, h01=0x0050, text=» RF CHKS20«, t00=0x002d, t01=0x0096}
0x46ea…46fe Head {h00=0x0010, h01=0x0050, text=»CHKS10 EQU *«, t00=0x002d, t01=0x00a8}
0x46fe…472c Head {h00=0x002a, h01=0x0050, text=»* LAMP ONE OFF DELETED P & T * «, t00=0x002d, t01=0x00bc}
0x472c…4740 Head {h00=0x0010, h01=0x0050, text=»CHKS20 EQU *«, t00=0x002d, t01=0x00ea}
0x4740…4750 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x00fe}
0x4750…475e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x010e}
0x475e…47a0 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002d, t01=0x011c}
0x47a0…47e2 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x002d, t01=0x015e}
0x47e2…4824 Head {h00=0x003e, h01=0x0050, text=»* DCOFLN INDICATE OFFLINE TO CLUSTER * «, t00=0x002e, t01=0x0010}
0x4824…4866 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x002e, t01=0x0052}
0x4866…48a8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002e, t01=0x0094}
0x48a8…48bc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002e, t01=0x00d6}
0x48bc…48c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ea}
0x48c6…48e6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002e, t01=0x00f4}
0x48e6…48fe Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002e, t01=0x0114}
0x48fe…4908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012c}
0x4908…4942 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x002e, t01=0x0136}
0x4942…4956 Head {h00=0x0010, h01=0x0050, text=»DCOFLN EQU *«, t00=0x002e, t01=0x0170}
0x4956…496a Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x002e, t01=0x0184}
0x496a…4980 Head {h00=0x0012, h01=0x0050, text=» CF A14,DCABOR«, t00=0x002f, t01=0x0008}
0x4980…498c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x001e}
0x498c…499c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x002a}
0x499c…49aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x003a}
0x49aa…49e8 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x002f, t01=0x0048}
0x49e8…4a26 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x002f, t01=0x0086}
0x4a26…4a64 Head {h00=0x003a, h01=0x0050, text=»* TRPA TRANSMIT SHORT READ AT PA-KEY * «, t00=0x002f, t01=0x00c4}
0x4a64…4aa2 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x002f, t01=0x0102}
0x4aa2…4ae0 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x002f, t01=0x0140}
0x4ae0…4af4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002f, t01=0x017e}
0x4af4…4afe (48, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0004}
0x4afe…4b14 Head {h00=0x0012, h01=0x0050, text=»* A2= AID CODE«, t00=0x0030, t01=0x000e}
0x4b14…4b34 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0030, t01=0x0024}
0x4b34…4b4c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0030, t01=0x0044}
0x4b4c…4b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x005c}
0x4b56…4b94 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0030, t01=0x0066}
0x4b94…4ba6 Head {h00=0x000e, h01=0x0050, text=»TRPA EQU *«, t00=0x0030, t01=0x00a4}
0x4ba6…4bd0 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET TRANSMIT BUFFER«, t00=0x0030, t01=0x00b6}
0x4bd0…4bf8 Head {h00=0x0024, h01=0x0050, text=» CF A14,PAID STORE AID IN BUFFER«, t00=0x0030, t01=0x00e0}
0x4bf8…4c18 Head {h00=0x001c, h01=0x0050, text=» CF A14,DCWRIT TRANSMIT «, t00=0x0030, t01=0x0108}
0x4c18…4c3e Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x0030, t01=0x0128}
0x4c3e…4c64 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0030, t01=0x014e}
0x4c64…4c74 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0030, t01=0x0174}
0x4c74…4c82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0184}
0x4c82…4cc0 (49, 0, 400) Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0031, t01=0x0004}
0x4cc0…4cfe Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0031, t01=0x0042}
0x4cfe…4d3c Head {h00=0x003a, h01=0x0050, text=»* TRPF TRANSMIT MODIFIED READ AT PF-KEY *«, t00=0x0031, t01=0x0080}
0x4d3c…4d7a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0031, t01=0x00be}
0x4d7a…4db8 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0031, t01=0x00fc}
0x4db8…4dcc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0031, t01=0x013a}
0x4dcc…4dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x014e}
0x4dd6…4dec Head {h00=0x0012, h01=0x0050, text=»* A2= AID CODE«, t00=0x0031, t01=0x0158}
0x4dec…4e0a Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0031, t01=0x016e}
0x4e0a…4e20 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0031, t01=0x018c}
0x4e20…4e36 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0032, t01=0x0012}
0x4e36…4e56 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0032, t01=0x0028}
0x4e56…4e6e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0032, t01=0x0048}
0x4e6e…4e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0060}
0x4e78…4eb6 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0032, t01=0x006a}
0x4eb6…4ec8 Head {h00=0x000e, h01=0x0050, text=»TRPF EQU *«, t00=0x0032, t01=0x00a8}
0x4ec8…4ef2 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET TRANSMIT BUFFER«, t00=0x0032, t01=0x00ba}
0x4ef2…4f14 Head {h00=0x001e, h01=0x0050, text=» CF A14,PAID SAVE AID-CODE«, t00=0x0032, t01=0x00e4}
0x4f14…4f42 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0032, t01=0x0106}
0x4f42…4f64 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A4 CURSOR ADDRESS «, t00=0x0032, t01=0x0134}
0x4f64…4f9a Head {h00=0x0032, h01=0x0050, text=» CF A14,BUFADR STORE CURSOR ADDRESS IN BUFFER «, t00=0x0032, t01=0x0156}
0x4f9a…4fdc Head {h00=0x003e, h01=0x0050, text=» CF A14,PACK PACK BUFFER WITH MODIFIED FIELDS AND TRANSMIT«, t00=0x0032, t01=0x018c}
0x4fdc…4fec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x003e}
0x4fec…4ff4 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x004e}
0x4ff4…5000 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0033, t01=0x0056}
0x5000…5004 Head {h00=0x4004, h01=0x0000}
0x5004…5008 00 33 00 62 ┆ 3 b┆
0x5008…5010 (52, 1, 8) 20 04 00 00 00 34 00 04 ┆ 4 ┆