|
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: 23776 (0x5ce0)
Notes: pts_type(SC)
Names: »DCBSC.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PT3272/DCBSC.SC«
IDENT DCBSC REL 11.0 83-11-15 870150541100 DK1, DEV. STATUS AT CONNECT =2 TWO DC-LINES =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 DISCON DISCONNECT =2 ENTRY SETTYM 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 2 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 MAIN EQU DCLENG+12 MAIN FRAME FLAG ECBBLK EQU MAIN+6 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 MF2CU EQU MF1CU+2 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 LD A2,MF2CU,A3 GET SECOND SYMB. ADD DK LDK A4,1 RB OPEN10 XIF OPEN20 EQU * RTN A14 EJECT ********************************************************* * * * CONCT CONNECT PASSIVE * * ********************************************************* * REGISTERS * * A4= DEVICE STATUS * A8= DC ECB * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************** CONCT EQU * CF A14,GETBUF GET BUFFER LD A8,ECBDC1,A11 GET LINE 1 LD A3,6,A13 GET BASE =2 . =2 IFT NBRLIN=2 . =2 LD A1,MAIN,A11 SECOND LINE? =2 RF(Z) CONC10 NO! =2 LD A8,ECBDC2,A11 YES! =2 ADK A3,2 SECOND CU =2 XIF . =2 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 ST A4,ECBCW1,A8 SET DEVICE STATUS DK1 . =2 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 . =2 LDR A8,A12 CF A14,RELBUF RELEASE BUFFER RTN A14 EJECT . =2 ************************************************************** * * DISCON - DISCONNECT * ************************************************************** * * INPUT: A11 = CREDIT WORK AREA * * USED* A1,A7,A8 * *************************************************************** * DISCON EQU * . =2 CF A14,DCABOR ABORT TEST MESSAGE =2 LDK A7,/AF DISCONNECT =2 LKM . =2 DATA 1 . =2 RTN A14 . =2 EJECT ***************************************************************** * * SETTYM SET REQUEST TIMEOUT * ***************************************************************** * REGISTERS * * ***************************************************************** SETTYM 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 * . =2 XIF LDK A7,0 LKM DATA 10 LDR A7,A7 OK? RF(NZ) DCAB20 NO, ALREADY COMPLETED =2 CM ECBBLK+DC,A11 DCAB20 EQU * . =2 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 83-11-15 870150541100 «, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0062 Head {h00=0x0022, h01=0x0050, text=» DK1, DEV. STATUS AT CONNECT«, t00=0x0000, t01=0x0040}
0x0062…007c Head {h00=0x0016, h01=0x0050, text=» =2 TWO DC-LINES«, t00=0x0000, t01=0x0066}
0x007c…0098 Head {h00=0x0018, h01=0x0050, text=» =1, CHARAC. ADDR.«, t00=0x0000, t01=0x0080}
0x0098…00ac Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x009c}
0x00ac…00f4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0000, t01=0x00b0}
0x00f4…013c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00f8}
0x013c…0184 Head {h00=0x0044, h01=0x0050, text=»* MODULE DCBSC *«, t00=0x0000, t01=0x0140}
0x0184…01cc Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE COMMUNICATION *«, t00=0x0000, t01=0x0188}
0x01cc…0214 Head {h00=0x0044, h01=0x0050, text=»* BETWEEN THE SLU AND CLUSTER CONTROLLER *«, t00=0x0001, t01=0x0040}
0x0214…0258 Head {h00=0x0040, h01=0x0050, text=»* (EMULATION 3270 BSC) * «, t00=0x0001, t01=0x0088}
0x0258…02a0 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0001, t01=0x00cc}
0x02a0…02e8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x0114}
0x02e8…02f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x015c}
0x02f6…033a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0001, t01=0x016a}
0x033a…037e Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0002, t01=0x001e}
0x037e…03c2 Head {h00=0x0040, h01=0x0050, text=»* ROUTINES * «, t00=0x0002, t01=0x0062}
0x03c2…0406 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00a6}
0x0406…044a Head {h00=0x0040, h01=0x0050, text=»* DCINP DC-INPUT MAIN ROUTINE * «, t00=0x0002, t01=0x00ea}
0x044a…048e Head {h00=0x0040, h01=0x0050, text=»* READW READ WITH WAIT * «, t00=0x0002, t01=0x012e}
0x048e…04d2 Head {h00=0x0040, h01=0x0050, text=»* DCWRIT WRITE DC BUFFER * «, t00=0x0002, t01=0x0172}
0x04d2…0516 Head {h00=0x0040, h01=0x0050, text=»* TSTMES TEST MESSAGE * «, t00=0x0003, t01=0x0026}
0x0516…055a Head {h00=0x0040, h01=0x0050, text=»* SETSTA SET STATUS * «, t00=0x0003, t01=0x006a}
0x055a…059e Head {h00=0x0040, h01=0x0050, text=»* TSTSTA TEST STATUS * «, t00=0x0003, t01=0x00ae}
0x059e…05e2 Head {h00=0x0040, h01=0x0050, text=»* DCABOR ABORT DC REQUEST * «, t00=0x0003, t01=0x00f2}
0x05e2…0626 Head {h00=0x0040, h01=0x0050, text=»* CHKSTA CHACK DC STATUS * «, t00=0x0003, t01=0x0136}
0x0626…066a Head {h00=0x0040, h01=0x0050, text=»* DCOFLN INDICATE OFFLINE TO CLUSTER * «, t00=0x0003, t01=0x017a}
0x066a…06ae Head {h00=0x0040, h01=0x0050, text=»* TRPA TRANSMIT SHORT READ * «, t00=0x0004, t01=0x002e}
0x06ae…06f2 Head {h00=0x0040, h01=0x0050, text=»* TRPF TRANSMIT READ MODIFIED * «, t00=0x0004, t01=0x0072}
0x06f2…0736 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0004, t01=0x00b6}
0x0736…077a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0004, t01=0x00fa}
0x077a…0788 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x013e}
0x0788…07d0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x014c}
0x07d0…0818 (5, 0, 400) Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0004}
0x0818…0860 Head {h00=0x0044, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x0005, t01=0x004c}
0x0860…08a8 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0094}
0x08a8…08f0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0005, t01=0x00dc}
0x08f0…08f8 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0124}
0x08f8…0922 Head {h00=0x0026, h01=0x0050, text=» ENTRY DCINP DC-INPUT MAIN ROUTINE«, t00=0x0005, t01=0x012c}
0x0922…0944 Head {h00=0x001e, h01=0x0050, text=» ENTRY TSTSTA TEST STATUS «, t00=0x0005, t01=0x0156}
0x0944…0964 Head {h00=0x001c, h01=0x0050, text=» ENTRY SETSTA SET STATUS«, t00=0x0005, t01=0x0178}
0x0964…097c Head {h00=0x0014, h01=0x0050, text=» ENTRY OPEN OPEN«, t00=0x0006, t01=0x0008}
0x097c…09a0 Head {h00=0x0020, h01=0x0050, text=» ENTRY CONCT CONNECT PASSIVE«, t00=0x0006, t01=0x0020}
0x09a0…09c4 Head {h00=0x0020, h01=0x0050, text=» ENTRY DISCON DISCONNECT =2 «, t00=0x0006, t01=0x0044}
0x09c4…09ec Head {h00=0x0024, h01=0x0050, text=» ENTRY SETTYM SET REQUEST TIMER «, t00=0x0006, t01=0x0068}
0x09ec…0a10 Head {h00=0x0020, h01=0x0050, text=» ENTRY TSTMES TEST MESSAGE. «, t00=0x0006, t01=0x0090}
0x0a10…0a36 Head {h00=0x0022, h01=0x0050, text=» ENTRY DCABOR ABORT DC REQUEST«, t00=0x0006, t01=0x00b4}
0x0a36…0a5e Head {h00=0x0024, h01=0x0050, text=» ENTRY TRPA TRANSMIT SHORT READ «, t00=0x0006, t01=0x00da}
0x0a5e…0a88 Head {h00=0x0026, h01=0x0050, text=» ENTRY TRPF TRANSMIT READ MODIFIED«, t00=0x0006, t01=0x0102}
0x0a88…0aba Head {h00=0x002e, h01=0x0050, text=» ENTRY DCOFLN INDICATE OFFLINE TO CLUSTER «, t00=0x0006, t01=0x012c}
0x0aba…0ae0 Head {h00=0x0022, h01=0x0050, text=» ENTRY CHKSTA CHECK DC STATUS «, t00=0x0006, t01=0x015e}
0x0ae0…0b06 Head {h00=0x0022, h01=0x0050, text=» ENTRY DCWRIT WRITE DC BUFFER «, t00=0x0006, t01=0x0184}
0x0b06…0b2c Head {h00=0x0022, h01=0x0050, text=» ENTRY READW READ DC WITH WAIT«, t00=0x0007, t01=0x001a}
0x0b2c…0b52 Head {h00=0x0022, h01=0x0050, text=» ENTRY RDSTAT READ STATISTICS «, t00=0x0007, t01=0x0040}
0x0b52…0b5a Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0066}
0x0b5a…0ba0 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x006e}
0x0ba0…0be6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x00b4}
0x0be6…0c2c Head {h00=0x0042, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0007, t01=0x00fa}
0x0c2c…0c72 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0140}
0x0c72…0cb8 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x0186}
0x0cb8…0cc0 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x003c}
0x0cc0…0ce6 Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0008, t01=0x0044}
0x0ce6…0d10 Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0008, t01=0x006a}
0x0d10…0d46 Head {h00=0x0032, h01=0x0050, text=» EXTRN PAID STORE AID-CODE IN DC BUFFER (PAD) «, t00=0x0008, t01=0x0094}
0x0d46…0d78 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x0008, t01=0x00ca}
0x0d78…0db6 Head {h00=0x003a, h01=0x0050, text=» EXTRN BUFADR STORE BUFFER ADDRESS IN DC BUFFER (PAD) «, t00=0x0008, t01=0x00fc}
0x0db6…0de4 Head {h00=0x002a, h01=0x0050, text=» EXTRN PACK PACK MODIFIED FIELDS (PAD)«, t00=0x0008, t01=0x013a}
0x0de4…0e12 Head {h00=0x002a, h01=0x0050, text=» EXTRN LMP3OF INHIBIT LAMP OFF (KEYB) «, t00=0x0008, t01=0x0168}
0x0e12…0e46 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x0009, t01=0x0008}
0x0e46…0e72 Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x0009, t01=0x003c}
0x0e72…0e9c Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR INDICATE ERROR (KEYB)«, t00=0x0009, t01=0x0068}
0x0e9c…0ece Head {h00=0x002e, h01=0x0050, text=» EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) «, t00=0x0009, t01=0x0092}
0x0ece…0ef8 Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP1ON SYSTEM AVAILABLE DK «, t00=0x0009, t01=0x00c4}
0x0ef8…0f24 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP3ON ON «, t00=0x0009, t01=0x00ee}
0x0f24…0f4e Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP1OF SYSTEM AVAILABLE DK «, t00=0x0009, t01=0x011a}
0x0f4e…0f5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0144}
0x0f5c…0f9e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0009, t01=0x0152}
0x0f9e…0fe0 (10, 0, 400) Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0004}
0x0fe0…1022 Head {h00=0x003e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000a, t01=0x0046}
0x1022…1064 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0088}
0x1064…10a6 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000a, t01=0x00ca}
0x10a6…10d0 Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x000a, t01=0x010c}
0x10d0…10e4 Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x000a, t01=0x0136}
0x10e4…110c Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x000a, t01=0x014a}
0x110c…1120 Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x000a, t01=0x0172}
0x1120…114e Head {h00=0x002a, h01=0x0050, text=»X:E EQU 300 REQUEST TIMEOUT IN 100 MS «, t00=0x000a, t01=0x0186}
0x114e…1166 Head {h00=0x0014, h01=0x0050, text=»REQTIM EQU 00300«, t00=0x000b, t01=0x0024}
0x1166…1194 Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1000 MAX BUFFER SIZE IN WORDS «, t00=0x000b, t01=0x003c}
0x1194…11aa Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU 1150«, t00=0x000b, t01=0x006a}
0x11aa…11d0 Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000b, t01=0x0080}
0x11d0…11e2 Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000b, t01=0x00a6}
0x11e2…11f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00b8}
0x11f0…1238 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000b, t01=0x00c6}
0x1238…1280 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000b, t01=0x010e}
0x1280…12aa Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000b, t01=0x0156}
0x12aa…12f2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0180}
0x12f2…133a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000c, t01=0x0038}
0x133a…1342 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0080}
0x1342…134c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0088}
0x134c…1374 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x000c, t01=0x0092}
0x1374…137e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ba}
0x137e…13a0 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000c, t01=0x00c4}
0x13a0…13c4 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000c, t01=0x00e6}
0x13c4…13e8 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000c, t01=0x010a}
0x13e8…1408 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000c, t01=0x012e}
0x1408…142c Head {h00=0x0020, h01=0x0050, text=»ECBCW1 EQU 10 CONTROL WORD 1«, t00=0x000c, t01=0x014e}
0x142c…1450 Head {h00=0x0020, h01=0x0050, text=»ECBCW2 EQU 12 CONTROL WORD 2«, t00=0x000c, t01=0x0172}
0x1450…145a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x145a…147c Head {h00=0x001e, h01=0x0050, text=»* RELATIVE POS. IN ECBBLK «, t00=0x000d, t01=0x0012}
0x147c…1486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0034}
0x1486…1496 Head {h00=0x000c, h01=0x0050, text=»DC EQU 4«, t00=0x000d, t01=0x003e}
0x1496…14a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x004e}
0x14a4…14ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005c}
0x14ae…14ce Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x0066}
0x14ce…14ea Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x000d, t01=0x0086}
0x14ea…14f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a2}
0x14f4…1512 Head {h00=0x001a, h01=0x0050, text=»WCC EQU 1952 WCC CHAR.«, t00=0x000d, t01=0x00ac}
0x1512…153e Head {h00=0x0028, h01=0x0050, text=»KBINH EQU WCC+2 KB INHIBIT INDICATOR«, t00=0x000d, t01=0x00ca}
0x153e…1572 Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU KBINH+4 DC READ EFFECTIVE LENGTH «, t00=0x000d, t01=0x00f6}
0x1572…159c Head {h00=0x0026, h01=0x0050, text=»MAIN EQU DCLENG+12 MAIN FRAME FLAG«, t00=0x000d, t01=0x012a}
0x159c…15ce Head {h00=0x002e, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECB:S FOR MULTIPLE WAIT «, t00=0x000d, t01=0x0154}
0x15ce…15fc Head {h00=0x002a, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER TO RELEASE«, t00=0x000d, t01=0x0186}
0x15fc…1620 Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x000e, t01=0x0024}
0x1620…1648 Head {h00=0x0024, h01=0x0050, text=»ECBDC1 EQU REGI+46 ECB DC LINE 1«, t00=0x000e, t01=0x0048}
0x1648…1672 Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x000e, t01=0x0070}
0x1672…167c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009a}
0x167c…169c Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000e, t01=0x00a4}
0x169c…16b6 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x000e, t01=0x00c4}
0x16b6…16c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00de}
0x16c0…16e4 Head {h00=0x0020, h01=0x0050, text=»MF1CU EQU 0 SYMBOLIC ADDRESS«, t00=0x000e, t01=0x00e8}
0x16e4…1710 Head {h00=0x0028, h01=0x0050, text=»MF2CU EQU MF1CU+2 SYMBOLIC ADDRESS «, t00=0x000e, t01=0x010c}
0x1710…171e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0138}
0x171e…1762 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000e, t01=0x0146}
0x1762…17a6 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x000e, t01=0x018a}
0x17a6…17ea Head {h00=0x0040, h01=0x0050, text=»* DCINP DC INPUT MAIN ROUTINE *«, t00=0x000f, t01=0x003e}
0x17ea…182e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0082}
0x182e…1872 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000f, t01=0x00c6}
0x1872…1886 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x000f, t01=0x010a}
0x1886…1890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011e}
0x1890…18b0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x000f, t01=0x0128}
0x18b0…18c8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x000f, t01=0x0148}
0x18c8…18d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0160}
0x18d2…1906 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000f, t01=0x016a}
0x1906…191a Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x0010, t01=0x000e}
0x191a…193c Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x0010, t01=0x0022}
0x193c…194e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x0010, t01=0x0044}
0x194e…1974 Head {h00=0x0022, h01=0x0050, text=» CF A14,READW READ ONE BUFFER «, t00=0x0010, t01=0x0056}
0x1974…198a Head {h00=0x0012, h01=0x0050, text=» ANK A1,8 OK? «, t00=0x0010, t01=0x007c}
0x198a…19a4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCIN10 YES «, t00=0x0010, t01=0x0092}
0x19a4…19b8 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0010, t01=0x00ac}
0x19b8…19de Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0010, t01=0x00c0}
0x19de…19f0 Head {h00=0x000e, h01=0x0050, text=» RF DCIN15«, t00=0x0010, t01=0x00e6}
0x19f0…1a04 Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0010, t01=0x00f8}
0x1a04…1a1c Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x0010, t01=0x010c}
0x1a1c…1a42 Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x0010, t01=0x0124}
0x1a42…1a5c Head {h00=0x0016, h01=0x0050, text=» ST A12,BUFPNT,A11«, t00=0x0010, t01=0x014a}
0x1a5c…1a84 Head {h00=0x0024, h01=0x0050, text=» CF A14,UNPACK UNPACK THE BUFFER«, t00=0x0010, t01=0x0164}
0x1a84…1aac Head {h00=0x0024, h01=0x0050, text=» CF A14,DISMOD DISPLAY THE NEWS «, t00=0x0010, t01=0x018c}
0x1aac…1ac0 Head {h00=0x0010, h01=0x0050, text=»DCIN15 EQU *«, t00=0x0011, t01=0x0024}
0x1ac0…1ad8 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0011, t01=0x0038}
0x1ad8…1aea Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0011, t01=0x0050}
0x1aea…1b16 Head {h00=0x0028, h01=0x0050, text=» ANK A1,1 KEYBOARD TOTALLY INHIBIT? «, t00=0x0011, t01=0x0062}
0x1b16…1b2e Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCIN20 NO«, t00=0x0011, t01=0x008e}
0x1b2e…1b5e Head {h00=0x002c, h01=0x0050, text=» ANK A2,/E KEYBOARD NOT TOTALLY INHIBIT «, t00=0x0011, t01=0x00a6}
0x1b5e…1b74 Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0011, t01=0x00d6}
0x1b74…1b98 Head {h00=0x0020, h01=0x0050, text=» ANK A1,2 RESTORE KEYBOARD? «, t00=0x0011, t01=0x00ec}
0x1b98…1bb0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCIN30 NO«, t00=0x0011, t01=0x0110}
0x1bb0…1bc4 Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0011, t01=0x0128}
0x1bc4…1bf0 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP3OF TUR OFF INHIBIT LAMP «, t00=0x0011, t01=0x013c}
0x1bf0…1c12 Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 RESTORE KEYBOARD«, t00=0x0011, t01=0x0168}
0x1c12…1c26 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0011, t01=0x018a}
0x1c26…1c3e Head {h00=0x0014, h01=0x0050, text=» ST A2,KBINH,A11«, t00=0x0012, t01=0x000e}
0x1c3e…1c50 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x0026}
0x1c50…1c76 Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x0012, t01=0x0038}
0x1c76…1c86 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x005e}
0x1c86…1c94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x006e}
0x1c94…1cda Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0012, t01=0x007c}
0x1cda…1d20 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00c2}
0x1d20…1d34 Head {h00=0x0010, h01=0x0050, text=»* OPEN OPEN «, t00=0x0012, t01=0x0108}
0x1d34…1d7a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0012, t01=0x011c}
0x1d7a…1dc0 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0012, t01=0x0162}
0x1dc0…1dd4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0013, t01=0x0018}
0x1dd4…1dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002c}
0x1dde…1df2 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0013, t01=0x0036}
0x1df2…1e12 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0013, t01=0x004a}
0x1e12…1e2a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0013, t01=0x006a}
0x1e2a…1e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0082}
0x1e34…1e7a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0013, t01=0x008c}
0x1e7a…1e8c Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0013, t01=0x00d2}
0x1e8c…1eb6 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBDC1,A11 GET ECB ADDRESS «, t00=0x0013, t01=0x00e4}
0x1eb6…1ed8 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET INDICATOR «, t00=0x0013, t01=0x010e}
0x1ed8…1ef6 Head {h00=0x001a, h01=0x0050, text=» LD A3,6,A13 GET BASE «, t00=0x0013, t01=0x0130}
0x1ef6…1f18 Head {h00=0x001e, h01=0x0050, text=» LD A2,MF1CU,A3 ADDRESS =1«, t00=0x0013, t01=0x014e}
0x1f18…1f2c Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0013, t01=0x0170}
0x1f2c…1f4a Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBCW2,A8 . =1 «, t00=0x0013, t01=0x0184}
0x1f4a…1f62 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/A1 OPEN«, t00=0x0014, t01=0x0012}
0x1f62…1f6e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x002a}
0x1f6e…1f7e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0014, t01=0x0036}
0x1f7e…1f96 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0014, t01=0x0046}
0x1f96…1fac Head {h00=0x0012, h01=0x0050, text=» RF(N) OPEN20 «, t00=0x0014, t01=0x005e}
0x1fac…1fc2 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0014, t01=0x0074}
0x1fc2…1fea Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 ANOTHER LINE TO OPEN «, t00=0x0014, t01=0x008a}
0x1fea…2004 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) OPEN20 NO «, t00=0x0014, t01=0x00b2}
0x2004…2028 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC2,A11 GET LINE 2«, t00=0x0014, t01=0x00cc}
0x2028…2058 Head {h00=0x002c, h01=0x0050, text=» LD A2,MF2CU,A3 GET SECOND SYMB. ADD DK «, t00=0x0014, t01=0x00f0}
0x2058…206a Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0014, t01=0x0120}
0x206a…207c Head {h00=0x000e, h01=0x0050, text=» RB OPEN10«, t00=0x0014, t01=0x0132}
0x207c…2088 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0144}
0x2088…209c Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x0014, t01=0x0150}
0x209c…20ac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0164}
0x20ac…20ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0174}
0x20ba…20fc Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0014, t01=0x0182}
0x20fc…213e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0034}
0x213e…215e Head {h00=0x001c, h01=0x0050, text=»* CONCT CONNECT PASSIVE «, t00=0x0015, t01=0x0076}
0x215e…21a0 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0096}
0x21a0…21e2 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0015, t01=0x00d8}
0x21e2…21f6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x011a}
0x21f6…2200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012e}
0x2200…221c Head {h00=0x0018, h01=0x0050, text=»* A4= DEVICE STATUS «, t00=0x0015, t01=0x0138}
0x221c…2230 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0015, t01=0x0154}
0x2230…2250 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0015, t01=0x0168}
0x2250…2268 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0015, t01=0x0188}
0x2268…2272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0010}
0x2272…22ac Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0016, t01=0x001a}
0x22ac…22c0 Head {h00=0x0010, h01=0x0050, text=»CONCT EQU * «, t00=0x0016, t01=0x0054}
0x22c0…22e2 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x0016, t01=0x0068}
0x22e2…2306 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC1,A11 GET LINE 1«, t00=0x0016, t01=0x008a}
0x2306…2326 Head {h00=0x001c, h01=0x0050, text=» LD A3,6,A13 GET BASE =2«, t00=0x0016, t01=0x00ae}
0x2326…2336 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x0016, t01=0x00ce}
0x2336…2350 Head {h00=0x0016, h01=0x0050, text=» IFT NBRLIN=2 . =2«, t00=0x0016, t01=0x00de}
0x2350…2378 Head {h00=0x0024, h01=0x0050, text=» LD A1,MAIN,A11 SECOND LINE? =2 «, t00=0x0016, t01=0x00f8}
0x2378…2394 Head {h00=0x0018, h01=0x0050, text=» RF(Z) CONC10 NO! =2«, t00=0x0016, t01=0x0120}
0x2394…23b6 Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBDC2,A11 YES! =2 «, t00=0x0016, t01=0x013c}
0x23b6…23d4 Head {h00=0x001a, h01=0x0050, text=» ADK A3,2 SECOND CU =2«, t00=0x0016, t01=0x015e}
0x23d4…23e6 Head {h00=0x000e, h01=0x0050, text=» XIF . =2«, t00=0x0016, t01=0x017c}
0x23e6…23fa Head {h00=0x0010, h01=0x0050, text=»CONC10 EQU *«, t00=0x0016, t01=0x018e}
0x23fa…2412 Head {h00=0x0014, h01=0x0050, text=» ST A12,ECBBA,A8«, t00=0x0017, t01=0x0012}
0x2412…2432 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A11 GET TASKID «, t00=0x0017, t01=0x002a}
0x2432…2446 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0017, t01=0x004a}
0x2446…2472 Head {h00=0x0028, h01=0x0050, text=» SC A1,+1,A12 SAVE ADDRESS IN BUFFER«, t00=0x0017, t01=0x005e}
0x2472…248a Head {h00=0x0014, h01=0x0050, text=» LDK A1,2 LENGTH«, t00=0x0017, t01=0x008a}
0x248a…24a2 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0017, t01=0x00a2}
0x24a2…24d0 Head {h00=0x002a, h01=0x0050, text=» ST A4,ECBCW1,A8 SET DEVICE STATUS DK1«, t00=0x0017, t01=0x00ba}
0x24d0…24e0 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x0017, t01=0x00e8}
0x24e0…24f8 Head {h00=0x0014, h01=0x0050, text=» LD A1,MF1CU,A3 «, t00=0x0017, t01=0x00f8}
0x24f8…2516 Head {h00=0x001a, h01=0x0050, text=» ST A1,ECBCW2,A8 . =1 «, t00=0x0017, t01=0x0110}
0x2516…253a Head {h00=0x0020, h01=0x0050, text=» LDK A7,/A7 CONNECT PASSIVE «, t00=0x0017, t01=0x012e}
0x253a…2546 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0017, t01=0x0152}
0x2546…2556 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0017, t01=0x015e}
0x2556…258e Head {h00=0x0034, h01=0x0050, text=» LD A1,REGI,A11 GET TABLE TO SAVE PHYS. ADDRESS «, t00=0x0017, t01=0x016e}
0x258e…25b2 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW2,A8 GET ADDRESS«, t00=0x0018, t01=0x0016}
0x25b2…25e0 Head {h00=0x002a, h01=0x0050, text=» SC A2,+2,A1 SAVE IT FOR COPY COMMAND «, t00=0x0018, t01=0x003a}
0x25e0…25f0 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x0018, t01=0x0068}
0x25f0…2604 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0018, t01=0x0078}
0x2604…262a Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0018, t01=0x008c}
0x262a…263a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x00b2}
0x263a…264e Head {h00=0x0010, h01=0x0050, text=» EJECT . =2«, t00=0x0018, t01=0x00c2}
0x264e…2694 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0018, t01=0x00d6}
0x2694…269e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x011c}
0x269e…26c4 Head {h00=0x0022, h01=0x0050, text=»* DISCON - DISCONNECT «, t00=0x0018, t01=0x0126}
0x26c4…26ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x014c}
0x26ce…2714 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0018, t01=0x0156}
0x2714…271e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000c}
0x271e…2746 Head {h00=0x0024, h01=0x0050, text=»* INPUT: A11 = CREDIT WORK AREA «, t00=0x0019, t01=0x0016}
0x2746…2750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x003e}
0x2750…276a Head {h00=0x0016, h01=0x0050, text=»* USED* A1,A7,A8 «, t00=0x0019, t01=0x0048}
0x276a…2774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0062}
0x2774…27bc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0019, t01=0x006c}
0x27bc…27c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b4}
0x27c6…27e0 Head {h00=0x0016, h01=0x0050, text=»DISCON EQU * . =2 «, t00=0x0019, t01=0x00be}
0x27e0…280c Head {h00=0x0028, h01=0x0050, text=» CF A14,DCABOR ABORT TEST MESSAGE =2«, t00=0x0019, t01=0x00d8}
0x280c…282e Head {h00=0x001e, h01=0x0050, text=» LDK A7,/AF DISCONNECT =2 «, t00=0x0019, t01=0x0104}
0x282e…2840 Head {h00=0x000e, h01=0x0050, text=» LKM . =2«, t00=0x0019, t01=0x0126}
0x2840…2854 Head {h00=0x0010, h01=0x0050, text=» DATA 1 . =2«, t00=0x0019, t01=0x0138}
0x2854…286a Head {h00=0x0012, h01=0x0050, text=» RTN A14 . =2 «, t00=0x0019, t01=0x014c}
0x286a…2878 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0162}
0x2878…28c2 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0019, t01=0x0170}
0x28c2…28cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x002a}
0x28cc…28f0 Head {h00=0x0020, h01=0x0050, text=»* SETTYM SET REQUEST TIMEOUT«, t00=0x001a, t01=0x0034}
0x28f0…28fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x28fa…2944 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001a, t01=0x0062}
0x2944…2964 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x001a, t01=0x00ac}
0x2964…296e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00cc}
0x296e…2978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d6}
0x2978…29c2 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001a, t01=0x00e0}
0x29c2…29d6 Head {h00=0x0010, h01=0x0050, text=»SETTYM EQU *«, t00=0x001a, t01=0x012a}
0x29d6…29f8 Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBDC1,A11 GET ECB «, t00=0x001a, t01=0x013e}
0x29f8…2a1a Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET INDICATOR «, t00=0x001a, t01=0x0160}
0x2a1a…2a44 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,REQTIM GET TIMEOUT VALUE «, t00=0x001a, t01=0x0182}
0x2a44…2a58 Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x001b, t01=0x001c}
0x2a58…2a70 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW1,A8«, t00=0x001b, t01=0x0030}
0x2a70…2a90 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B9 SET TIMEOUT «, t00=0x001b, t01=0x0048}
0x2a90…2a9c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x0068}
0x2a9c…2aac Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x0074}
0x2aac…2ac2 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001b, t01=0x0084}
0x2ac2…2ae2 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 MORE TO TIME?«, t00=0x001b, t01=0x009a}
0x2ae2…2afc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SETT20 NO «, t00=0x001b, t01=0x00ba}
0x2afc…2b20 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC2,A11 GET LINE 2«, t00=0x001b, t01=0x00d4}
0x2b20…2b3a Head {h00=0x0016, h01=0x0050, text=» LDK A4,1 NO MORE «, t00=0x001b, t01=0x00f8}
0x2b3a…2b4c Head {h00=0x000e, h01=0x0050, text=» RB SETT10«, t00=0x001b, t01=0x0112}
0x2b4c…2b60 Head {h00=0x0010, h01=0x0050, text=»SETT20 EQU *«, t00=0x001b, t01=0x0124}
0x2b60…2b6e Head {h00=0x000a, h01=0x0050, text=» XIF «, t00=0x001b, t01=0x0138}
0x2b6e…2b7e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x0146}
0x2b7e…2b8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0156}
0x2b8c…2bce Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001b, t01=0x0164}
0x2bce…2c10 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001c, t01=0x0016}
0x2c10…2c28 Head {h00=0x0014, h01=0x0050, text=»* READW RECEIVE «, t00=0x001c, t01=0x0058}
0x2c28…2c6a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001c, t01=0x0070}
0x2c6a…2cac Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001c, t01=0x00b2}
0x2cac…2cc0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001c, t01=0x00f4}
0x2cc0…2cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0108}
0x2cca…2ce6 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x001c, t01=0x0112}
0x2ce6…2cfa Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x001c, t01=0x012e}
0x2cfa…2d1a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001c, t01=0x0142}
0x2d1a…2d32 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x0162}
0x2d32…2d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x017a}
0x2d3c…2d7e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001c, t01=0x0184}
0x2d7e…2d92 Head {h00=0x0010, h01=0x0050, text=»READW EQU * «, t00=0x001d, t01=0x0036}
0x2d92…2db2 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x001d, t01=0x004a}
0x2db2…2dc8 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001d, t01=0x006a}
0x2dc8…2dea Head {h00=0x001e, h01=0x0050, text=» LD A1,MAIN,A11 MORE LINES«, t00=0x001d, t01=0x0080}
0x2dea…2e02 Head {h00=0x0014, h01=0x0050, text=» RF(Z) REDW10 NO«, t00=0x001d, t01=0x00a2}
0x2e02…2e22 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x001d, t01=0x00ba}
0x2e22…2e36 Head {h00=0x0010, h01=0x0050, text=»REDW10 EQU *«, t00=0x001d, t01=0x00da}
0x2e36…2e42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00ee}
0x2e42…2e6a Head {h00=0x0024, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL GET LENGTH «, t00=0x001d, t01=0x00fa}
0x2e6a…2e82 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x001d, t01=0x0122}
0x2e82…2e9a Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x001d, t01=0x013a}
0x2e9a…2eb6 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/82 RECEIVE «, t00=0x001d, t01=0x0152}
0x2eb6…2ec2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001d, t01=0x016e}
0x2ec2…2ed2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001d, t01=0x017a}
0x2ed2…2eea Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x001d, t01=0x018a}
0x2eea…2f02 Head {h00=0x0014, h01=0x0050, text=» ANK A1,/5B OK? «, t00=0x001e, t01=0x0012}
0x2f02…2f1c Head {h00=0x0016, h01=0x0050, text=» RF(Z) REDW20 YES «, t00=0x001e, t01=0x002a}
0x2f1c…2f40 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKSTA CHECK STATUS «, t00=0x001e, t01=0x0044}
0x2f40…2f60 Head {h00=0x001c, h01=0x0050, text=» LDK A1,8 INDICATE ERROR«, t00=0x001e, t01=0x0068}
0x2f60…2f72 Head {h00=0x000e, h01=0x0050, text=» RF REDW30«, t00=0x001e, t01=0x0088}
0x2f72…2f86 Head {h00=0x0010, h01=0x0050, text=»REDW20 EQU *«, t00=0x001e, t01=0x009a}
0x2f86…2f98 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x001e, t01=0x00ae}
0x2f98…2fac Head {h00=0x0010, h01=0x0050, text=»REDW30 EQU *«, t00=0x001e, t01=0x00c0}
0x2fac…2fbc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x00d4}
0x2fbc…2fca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00e4}
0x2fca…300c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001e, t01=0x00f2}
0x300c…304e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001e, t01=0x0134}
0x304e…3064 Head {h00=0x0012, h01=0x0050, text=»* DCWRIT SEND «, t00=0x001e, t01=0x0176}
0x3064…30a6 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001e, t01=0x018c}
0x30a6…30e8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001f, t01=0x003e}
0x30e8…30fc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001f, t01=0x0080}
0x30fc…3106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0094}
0x3106…313a Head {h00=0x0030, h01=0x0050, text=»* A1= AT ENTRY CHAIN INDICATOR, RETURN CODE «, t00=0x001f, t01=0x009e}
0x313a…314e Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x001f, t01=0x00d2}
0x314e…316c Head {h00=0x001a, h01=0x0050, text=»* A9= DC BUFFER LENGTH«, t00=0x001f, t01=0x00e6}
0x316c…318c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001f, t01=0x0104}
0x318c…31a4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001f, t01=0x0124}
0x31a4…31ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013c}
0x31ae…31ec Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001f, t01=0x0146}
0x31ec…3200 Head {h00=0x0010, h01=0x0050, text=»DCWRIT EQU *«, t00=0x001f, t01=0x0184}
0x3200…321e Head {h00=0x001a, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE«, t00=0x0020, t01=0x0008}
0x321e…3234 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0020, t01=0x0026}
0x3234…3254 Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x0020, t01=0x003c}
0x3254…326c Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCWR10 NO«, t00=0x0020, t01=0x005c}
0x326c…328c Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0020, t01=0x0074}
0x328c…32a0 Head {h00=0x0010, h01=0x0050, text=»DCWR10 EQU *«, t00=0x0020, t01=0x0094}
0x32a0…32ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00a8}
0x32ac…32dc Head {h00=0x002c, h01=0x0050, text=» LDK A2,2 KEYBOARD INHIBIT BUT RESETABLE«, t00=0x0020, t01=0x00b4}
0x32dc…32f6 Head {h00=0x0016, h01=0x0050, text=» ORS A2,KBINH,A11 «, t00=0x0020, t01=0x00e4}
0x32f6…3316 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/86 WRITE ORDER «, t00=0x0020, t01=0x00fe}
0x3316…333e Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x0020, t01=0x011e}
0x333e…3356 Head {h00=0x0014, h01=0x0050, text=» ST A9,ECBRL,A8 «, t00=0x0020, t01=0x0146}
0x3356…3362 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0020, t01=0x015e}
0x3362…3372 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0020, t01=0x016a}
0x3372…3394 Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBRC,A8 ANY ERROR?«, t00=0x0020, t01=0x017a}
0x3394…33a8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/5B «, t00=0x0021, t01=0x000c}
0x33a8…33c0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCWR90 NO«, t00=0x0021, t01=0x0020}
0x33c0…33d6 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x0021, t01=0x0038}
0x33d6…33fc Head {h00=0x0022, h01=0x0050, text=» CF A14,CHKSTA CHECK DC STATUS«, t00=0x0021, t01=0x004e}
0x33fc…3414 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0021, t01=0x0074}
0x3414…343c Head {h00=0x0024, h01=0x0050, text=» ANK A1,/D RESET KEYBOARD PARTLY«, t00=0x0021, t01=0x008c}
0x343c…3454 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x0021, t01=0x00b4}
0x3454…347c Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP3OF INHIBIT LAMP OFF «, t00=0x0021, t01=0x00cc}
0x347c…34a2 Head {h00=0x0022, h01=0x0050, text=» CF A14,RESKB RESET KB BUFFER «, t00=0x0021, t01=0x00f4}
0x34a2…34c0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0021, t01=0x011a}
0x34c0…34d4 Head {h00=0x0010, h01=0x0050, text=»DCWR90 EQU *«, t00=0x0021, t01=0x0138}
0x34d4…34e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x014c}
0x34e4…34f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x015c}
0x34f2…3534 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0021, t01=0x016a}
0x3534…3576 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0022, t01=0x001c}
0x3576…35b8 Head {h00=0x003e, h01=0x0050, text=»* TSTMES TEST IF ANY MESSAGE, NO WAIT * «, t00=0x0022, t01=0x005e}
0x35b8…35fa Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0022, t01=0x00a0}
0x35fa…363c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0022, t01=0x00e2}
0x363c…3650 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0022, t01=0x0124}
0x3650…365a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0138}
0x365a…3674 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0022, t01=0x0142}
0x3674…369e Head {h00=0x0026, h01=0x0050, text=»* A11= ADDRESS TO CREDIT WORK AREA«, t00=0x0022, t01=0x015c}
0x369e…36c0 Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0022, t01=0x0186}
0x36c0…36ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0018}
0x36ca…370c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0023, t01=0x0022}
0x370c…3720 Head {h00=0x0010, h01=0x0050, text=»TSTMES EQU *«, t00=0x0023, t01=0x0064}
0x3720…3740 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x0023, t01=0x0078}
0x3740…3756 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0023, t01=0x0098}
0x3756…3774 Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2«, t00=0x0023, t01=0x00ae}
0x3774…378c Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTM10 NO«, t00=0x0023, t01=0x00cc}
0x378c…37ac Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0023, t01=0x00e4}
0x37ac…37c0 Head {h00=0x0010, h01=0x0050, text=»TSTM10 EQU *«, t00=0x0023, t01=0x0104}
0x37c0…37cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0118}
0x37cc…37de Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0023, t01=0x0124}
0x37de…380c Head {h00=0x002a, h01=0x0050, text=» ST A2,ECBCW1,A8 INDICATE TEST MESSAGE«, t00=0x0023, t01=0x0136}
0x380c…3832 Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 TEST MESS., NO WAIT «, t00=0x0023, t01=0x0164}
0x3832…383e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0023, t01=0x018a}
0x383e…384e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0024, t01=0x0008}
0x384e…385e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x0018}
0x385e…386c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0028}
0x386c…38b2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x0036}
0x38b2…38f8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x007c}
0x38f8…393e Head {h00=0x0042, h01=0x0050, text=»* SETSTA SET STATUS * «, t00=0x0024, t01=0x00c2}
0x393e…3984 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0108}
0x3984…39ca Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x014e}
0x39ca…39de (37, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0025, t01=0x0004}
0x39de…39e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0018}
0x39e8…3a06 Head {h00=0x001a, h01=0x0050, text=»* A1= AT ENTRY STATUS «, t00=0x0025, t01=0x0022}
0x3a06…3a1a Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0025, t01=0x0040}
0x3a1a…3a32 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0025, t01=0x0054}
0x3a32…3a54 Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0025, t01=0x006c}
0x3a54…3a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008e}
0x3a5e…3aa2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0025, t01=0x0098}
0x3aa2…3ab6 Head {h00=0x0010, h01=0x0050, text=»SETSTA EQU *«, t00=0x0025, t01=0x00dc}
0x3ab6…3ad0 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC1,A11 «, t00=0x0025, t01=0x00f0}
0x3ad0…3ae6 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0025, t01=0x010a}
0x3ae6…3afe Head {h00=0x0014, h01=0x0050, text=» LD A2,MAIN,A11 «, t00=0x0025, t01=0x0120}
0x3afe…3b14 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SETS10 «, t00=0x0025, t01=0x0138}
0x3b14…3b2e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0025, t01=0x014e}
0x3b2e…3b42 Head {h00=0x0010, h01=0x0050, text=»SETS10 EQU *«, t00=0x0025, t01=0x0168}
0x3b42…3b4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x017c}
0x3b4e…3b62 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B8 «, t00=0x0025, t01=0x0188}
0x3b62…3b7a Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW1,A8«, t00=0x0026, t01=0x000c}
0x3b7a…3b86 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x0024}
0x3b86…3b96 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x0030}
0x3b96…3ba6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0040}
0x3ba6…3bb4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0050}
0x3bb4…3bf2 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0026, t01=0x005e}
0x3bf2…3c30 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0026, t01=0x009c}
0x3c30…3c6e Head {h00=0x003a, h01=0x0050, text=»* TSTSTA TEST STATUS *«, t00=0x0026, t01=0x00da}
0x3c6e…3cac Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0026, t01=0x0118}
0x3cac…3cea Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0026, t01=0x0156}
0x3cea…3cfe (39, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0027, t01=0x0004}
0x3cfe…3d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0018}
0x3d08…3d22 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0027, t01=0x0022}
0x3d22…3d36 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0027, t01=0x003c}
0x3d36…3d4e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0027, t01=0x0050}
0x3d4e…3d70 Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0027, t01=0x0068}
0x3d70…3d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008a}
0x3d7a…3db8 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0027, t01=0x0094}
0x3db8…3dcc Head {h00=0x0010, h01=0x0050, text=»TSTSTA EQU *«, t00=0x0027, t01=0x00d2}
0x3dcc…3dec Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x0027, t01=0x00e6}
0x3dec…3e02 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0027, t01=0x0106}
0x3e02…3e22 Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x0027, t01=0x011c}
0x3e22…3e3a Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTS10 NO«, t00=0x0027, t01=0x013c}
0x3e3a…3e5a Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0027, t01=0x0154}
0x3e5a…3e6e Head {h00=0x0010, h01=0x0050, text=»TSTS10 EQU *«, t00=0x0027, t01=0x0174}
0x3e6e…3e7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0188}
0x3e7a…3ea4 (40, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CM ECBCW1,A8 INDICATE TEST STATUS«, t00=0x0028, t01=0x0004}
0x3ea4…3eb8 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/80 «, t00=0x0028, t01=0x002e}
0x3eb8…3ec4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0028, t01=0x0042}
0x3ec4…3ed4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0028, t01=0x004e}
0x3ed4…3eec Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW1,A8«, t00=0x0028, t01=0x005e}
0x3eec…3efc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x0076}
0x3efc…3f0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0086}
0x3f0a…3f58 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0028, t01=0x0094}
0x3f58…3f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e2}
0x3f62…3f82 Head {h00=0x001c, h01=0x0050, text=»* RDSTAT READ STATISTICS«, t00=0x0028, t01=0x00ec}
0x3f82…3f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x010c}
0x3f8c…3fda Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0028, t01=0x0116}
0x3fda…3ff6 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0028, t01=0x0164}
0x3ff6…4000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0180}
0x4000…400a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x018a}
0x400a…4058 (41, 0, 400) Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0029, t01=0x0004}
0x4058…406c Head {h00=0x0010, h01=0x0050, text=»RDSTAT EQU *«, t00=0x0029, t01=0x0052}
0x406c…4080 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0029, t01=0x0066}
0x4080…409a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC1,A11 «, t00=0x0029, t01=0x007a}
0x409a…40b0 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0029, t01=0x0094}
0x40b0…40d6 Head {h00=0x0022, h01=0x0050, text=» LD A1,MAIN,A11 THE OTHER LINE«, t00=0x0029, t01=0x00aa}
0x40d6…40ee Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDST10 NO«, t00=0x0029, t01=0x00d0}
0x40ee…4108 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0029, t01=0x00e8}
0x4108…411c Head {h00=0x0010, h01=0x0050, text=»RDST10 EQU *«, t00=0x0029, t01=0x0102}
0x411c…4128 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0116}
0x4128…413c Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0029, t01=0x0122}
0x413c…4154 Head {h00=0x0014, h01=0x0050, text=» ST A12,ECBBA,A8«, t00=0x0029, t01=0x0136}
0x4154…4170 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL«, t00=0x0029, t01=0x014e}
0x4170…4188 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0029, t01=0x016a}
0x4188…41b2 Head {h00=0x0026, h01=0x0050, text=» CM ECBCW1,A8 NO RESET AFTERWARDS «, t00=0x0029, t01=0x0182}
0x41b2…41c6 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/AD «, t00=0x002a, t01=0x001c}
0x41c6…41d2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x0030}
0x41d2…41e2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002a, t01=0x003c}
0x41e2…41f2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x004c}
0x41f2…41fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x005c}
0x41fe…420c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0068}
0x420c…424e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002a, t01=0x0076}
0x424e…4290 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002a, t01=0x00b8}
0x4290…42d2 Head {h00=0x003e, h01=0x0050, text=»* DCABOR ABORT TEST MESSAGE REQUEST *«, t00=0x002a, t01=0x00fa}
0x42d2…4314 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002a, t01=0x013c}
0x4314…4356 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002a, t01=0x017e}
0x4356…436a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002b, t01=0x0030}
0x436a…4374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0044}
0x4374…4388 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x002b, t01=0x004e}
0x4388…43b4 Head {h00=0x0028, h01=0x0050, text=»* A11= ADDRESS TO CREDIT WORK AREA «, t00=0x002b, t01=0x0062}
0x43b4…43d6 Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x002b, t01=0x008e}
0x43d6…43e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b0}
0x43e0…4422 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002b, t01=0x00ba}
0x4422…4436 Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x002b, t01=0x00fc}
0x4436…4456 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x002b, t01=0x0110}
0x4456…446c Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x002b, t01=0x0130}
0x446c…448c Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x002b, t01=0x0146}
0x448c…44a4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCAB10 NO«, t00=0x002b, t01=0x0166}
0x44a4…44c4 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x002b, t01=0x017e}
0x44c4…44de Head {h00=0x0016, h01=0x0050, text=»DCAB10 EQU * . =2 «, t00=0x002c, t01=0x000e}
0x44de…44ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0028}
0x44ea…44fc Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002c, t01=0x0034}
0x44fc…4508 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002c, t01=0x0046}
0x4508…4518 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002c, t01=0x0052}
0x4518…452e Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 OK?«, t00=0x002c, t01=0x0062}
0x452e…455e Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DCAB20 NO, ALREADY COMPLETED =2 «, t00=0x002c, t01=0x0078}
0x455e…4578 Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+DC,A11 «, t00=0x002c, t01=0x00a8}
0x4578…4592 Head {h00=0x0016, h01=0x0050, text=»DCAB20 EQU * . =2 «, t00=0x002c, t01=0x00c2}
0x4592…45a2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x00dc}
0x45a2…45b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00ec}
0x45b0…45ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00fa}
0x45ba…45c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0104}
0x45c4…45ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x010e}
0x45ce…45e6 Head {h00=0x0014, h01=0x0050, text=»* DC RETURN CODE«, t00=0x002c, t01=0x0118}
0x45e6…45ee Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0130}
0x45ee…45f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0138}
0x45f8…4602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0142}
0x4602…460c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x014c}
0x460c…4632 Head {h00=0x0022, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x002c, t01=0x0156}
0x4632…4654 Head {h00=0x001e, h01=0x0050, text=»* 1 RESERVED «, t00=0x002c, t01=0x017c}
0x4654…4676 Head {h00=0x001e, h01=0x0050, text=»* 2 RESERVED «, t00=0x002d, t01=0x000e}
0x4676…4680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0030}
0x4680…46a8 Head {h00=0x0024, h01=0x0050, text=»* 9 REQUEST TIMEOUT«, t00=0x002d, t01=0x003a}
0x46a8…46d0 Head {h00=0x0024, h01=0x0050, text=»* 11 SEQUENCE ERROR «, t00=0x002d, t01=0x0062}
0x46d0…46fa Head {h00=0x0026, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x002d, t01=0x008a}
0x46fa…471c Head {h00=0x001e, h01=0x0050, text=»* 13 RESERVED «, t00=0x002d, t01=0x00b4}
0x471c…4748 Head {h00=0x0028, h01=0x0050, text=»* 14 TRANSMISSION ERROR «, t00=0x002d, t01=0x00d6}
0x4748…476e Head {h00=0x0022, h01=0x0050, text=»* 15 NO CONNECTION«, t00=0x002d, t01=0x0102}
0x476e…4778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0128}
0x4778…4782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0132}
0x4782…478c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x013c}
0x478c…479a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0146}
0x479a…47d8 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002d, t01=0x0154}
0x47d8…4816 (46, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x002e, t01=0x0004}
0x4816…4854 Head {h00=0x003a, h01=0x0050, text=»* CHKSTA CHECK DC STATUS *«, t00=0x002e, t01=0x0042}
0x4854…4892 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x002e, t01=0x0080}
0x4892…48d0 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002e, t01=0x00be}
0x48d0…48e4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002e, t01=0x00fc}
0x48e4…48ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0110}
0x48ee…4920 Head {h00=0x002e, h01=0x0050, text=»* A1= AT ENTRY DC RETURN CODE, RETURN CODE«, t00=0x002e, t01=0x011a}
0x4920…4940 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002e, t01=0x014c}
0x4940…4958 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002e, t01=0x016c}
0x4958…4962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0184}
0x4962…49a2 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002e, t01=0x018e}
0x49a2…49b6 Head {h00=0x0010, h01=0x0050, text=»CHKSTA EQU *«, t00=0x002f, t01=0x003e}
0x49b6…49d8 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x002f, t01=0x0052}
0x49d8…49f8 Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/2211 LINE OK? «, t00=0x002f, t01=0x0074}
0x49f8…4a0e Head {h00=0x0012, h01=0x0050, text=» XRKL A1,/2211«, t00=0x002f, t01=0x0094}
0x4a0e…4a28 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CHKS10 NO «, t00=0x002f, t01=0x00aa}
0x4a28…4a4c Head {h00=0x0020, h01=0x0050, text=» CF A14,LMP1ON SYSTEM AVAIL.«, t00=0x002f, t01=0x00c4}
0x4a4c…4a5e Head {h00=0x000e, h01=0x0050, text=» RF CHKS20«, t00=0x002f, t01=0x00e8}
0x4a5e…4a72 Head {h00=0x0010, h01=0x0050, text=»CHKS10 EQU *«, t00=0x002f, t01=0x00fa}
0x4a72…4aa0 Head {h00=0x002a, h01=0x0050, text=»* LAMP ONE OFF DELETED P & T * «, t00=0x002f, t01=0x010e}
0x4aa0…4ab4 Head {h00=0x0010, h01=0x0050, text=»CHKS20 EQU *«, t00=0x002f, t01=0x013c}
0x4ab4…4ac4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x0150}
0x4ac4…4ad2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0160}
0x4ad2…4b14 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002f, t01=0x016e}
0x4b14…4b56 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0030, t01=0x0020}
0x4b56…4b98 Head {h00=0x003e, h01=0x0050, text=»* DCOFLN INDICATE OFFLINE TO CLUSTER * «, t00=0x0030, t01=0x0062}
0x4b98…4bda Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0030, t01=0x00a4}
0x4bda…4c1c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0030, t01=0x00e6}
0x4c1c…4c30 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0030, t01=0x0128}
0x4c30…4c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013c}
0x4c3a…4c5a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0030, t01=0x0146}
0x4c5a…4c72 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0030, t01=0x0166}
0x4c72…4c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x017e}
0x4c7c…4cb6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0030, t01=0x0188}
0x4cb6…4cca Head {h00=0x0010, h01=0x0050, text=»DCOFLN EQU *«, t00=0x0031, t01=0x0032}
0x4cca…4cde Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0031, t01=0x0046}
0x4cde…4cf4 Head {h00=0x0012, h01=0x0050, text=» CF A14,DCABOR«, t00=0x0031, t01=0x005a}
0x4cf4…4d00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0070}
0x4d00…4d10 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x007c}
0x4d10…4d1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x008c}
0x4d1e…4d5c Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x009a}
0x4d5c…4d9a Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0031, t01=0x00d8}
0x4d9a…4dd8 Head {h00=0x003a, h01=0x0050, text=»* TRPA TRANSMIT SHORT READ AT PA-KEY * «, t00=0x0031, t01=0x0116}
0x4dd8…4e16 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0031, t01=0x0154}
0x4e16…4e54 (50, 0, 400) Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x0004}
0x4e54…4e68 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x0042}
0x4e68…4e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0056}
0x4e72…4e88 Head {h00=0x0012, h01=0x0050, text=»* A2= AID CODE«, t00=0x0032, t01=0x0060}
0x4e88…4ea8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0032, t01=0x0076}
0x4ea8…4ec0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0032, t01=0x0096}
0x4ec0…4eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ae}
0x4eca…4f08 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x00b8}
0x4f08…4f1a Head {h00=0x000e, h01=0x0050, text=»TRPA EQU *«, t00=0x0032, t01=0x00f6}
0x4f1a…4f44 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET TRANSMIT BUFFER«, t00=0x0032, t01=0x0108}
0x4f44…4f6c Head {h00=0x0024, h01=0x0050, text=» CF A14,PAID STORE AID IN BUFFER«, t00=0x0032, t01=0x0132}
0x4f6c…4f8c Head {h00=0x001c, h01=0x0050, text=» CF A14,DCWRIT TRANSMIT «, t00=0x0032, t01=0x015a}
0x4f8c…4fb2 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x0032, t01=0x017a}
0x4fb2…4fd8 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0033, t01=0x0010}
0x4fd8…4fe8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x0036}
0x4fe8…4ff6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0046}
0x4ff6…5034 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0033, t01=0x0054}
0x5034…5072 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0033, t01=0x0092}
0x5072…50b0 Head {h00=0x003a, h01=0x0050, text=»* TRPF TRANSMIT MODIFIED READ AT PF-KEY *«, t00=0x0033, t01=0x00d0}
0x50b0…50ee Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0033, t01=0x010e}
0x50ee…512c Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0033, t01=0x014c}
0x512c…5140 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0033, t01=0x018a}
0x5140…514a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x000e}
0x514a…5160 Head {h00=0x0012, h01=0x0050, text=»* A2= AID CODE«, t00=0x0034, t01=0x0018}
0x5160…517e Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0034, t01=0x002e}
0x517e…5194 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0034, t01=0x004c}
0x5194…51aa Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0034, t01=0x0062}
0x51aa…51ca Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0034, t01=0x0078}
0x51ca…51e2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0034, t01=0x0098}
0x51e2…51ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b0}
0x51ec…522a Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0034, t01=0x00ba}
0x522a…523c Head {h00=0x000e, h01=0x0050, text=»TRPF EQU *«, t00=0x0034, t01=0x00f8}
0x523c…5266 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET TRANSMIT BUFFER«, t00=0x0034, t01=0x010a}
0x5266…5288 Head {h00=0x001e, h01=0x0050, text=» CF A14,PAID SAVE AID-CODE«, t00=0x0034, t01=0x0134}
0x5288…52b6 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0034, t01=0x0156}
0x52b6…52d8 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A4 CURSOR ADDRESS «, t00=0x0034, t01=0x0184}
0x52d8…530e Head {h00=0x0032, h01=0x0050, text=» CF A14,BUFADR STORE CURSOR ADDRESS IN BUFFER «, t00=0x0035, t01=0x0016}
0x530e…5350 Head {h00=0x003e, h01=0x0050, text=» CF A14,PACK PACK BUFFER WITH MODIFIED FIELDS AND TRANSMIT«, t00=0x0035, t01=0x004c}
0x5350…5360 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x008e}
0x5360…5368 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x009e}
0x5368…5374 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0035, t01=0x00a6}
0x5374…5378 Head {h00=0x4004, h01=0x0000}
0x5378…537c 00 35 00 b2 ┆ 5 ┆
0x537c…5384 (54, 1, 8) 20 04 00 00 00 36 00 04 ┆ 6 ┆
0x5384…53d4 (55, 0, 400) 41 53 54 20 4c 49 4e 45 00 36 01 7a 00 20 00 50 5c 41 4e 4b 4c 5c 41 31 30 2c 45 4e 44 50 52 54 5c 45 4e 44 20 4d 45 53 53 2e 3f 20 00 37 00 10 00 1c 00 50 5c 52 46 28 5a 29 5c 43 4f 50 39 30 30 5c 4e 4f 20 53 54 4f 50 20 49 54 00 37 00 34 ┆AST LINE 6 z P ANKL A10,ENDPRT END MESS.? 7 P RF(Z) COP900 NO STOP IT 7 4┆
0x53d4…5424 00 28 00 50 5c 4f 52 4b 4c 5c 41 31 30 2c 4e 54 4f 4e 4c 59 5c 49 4e 44 49 43 41 54 45 20 50 52 49 4e 54 41 42 4c 45 20 00 37 00 54 00 22 00 50 5c 43 46 5c 41 31 34 2c 50 52 4c 49 4e 45 5c 45 58 54 52 41 20 4c 49 4e 45 20 46 45 45 44 00 37 ┆ ( P ORKL A10,NTONLY INDICATE PRINTABLE 7 T " P CF A14,PRLINE EXTRA LINE FEED 7┆
0x5424…5474 00 80 00 10 00 50 5c 58 49 46 5c 5c 2e 5c 3d 32 34 20 00 37 00 a6 00 18 00 50 5c 49 46 54 5c 42 41 53 57 52 49 3d 31 5c 2e 5c 3d 32 34 20 00 37 00 ba 00 2c 00 50 5c 4c 44 52 5c 41 39 2c 41 39 5c 53 4f 4d 45 20 54 45 58 54 20 4c 45 46 54 20 ┆ P XIF . =24 7 P IFT BASWRI=1 . =24 7 , P LDR A9,A9 SOME TEXT LEFT ┆
0x5474…54c4 54 4f 20 50 52 49 4e 54 3f 5c 3d 32 34 20 00 37 00 d6 00 1a 00 50 5c 52 46 28 5a 29 5c 43 4f 50 38 36 30 5c 4e 4f 21 5c 3d 32 34 20 00 37 01 06 00 22 00 50 5c 43 46 5c 41 31 34 2c 50 52 4c 49 4e 45 5c 50 52 49 4e 54 20 54 45 58 54 5c 3d 32 ┆TO PRINT? =24 7 P RF(Z) COP860 NO! =24 7 " P CF A14,PRLINE PRINT TEXT =2┆
0x54c4…5514 34 20 00 37 01 24 00 16 00 50 43 4f 50 38 36 30 5c 45 51 55 5c 2a 5c 2e 5c 3d 32 34 00 37 01 4a 00 14 00 50 5c 49 46 46 5c 53 43 53 3d 31 5c 2e 5c 3d 32 36 00 37 01 64 00 24 00 50 5c 4c 44 52 5c 41 31 2c 41 31 30 5c 54 45 53 54 20 45 4e 44 ┆4 7 $ PCOP860 EQU * . =24 7 J P IFF SCS=1 . =26 7 d $ P LDR A1,A10 TEST END┆
0x5514…5564 (56, 0, 398) 20 4d 45 53 53 2e 5c 44 4b 33 38 20 00 37 01 7c 00 1a 00 50 5c 41 4e 4b 4c 5c 41 31 2c 45 4e 44 50 52 54 5c 5c 44 4b 33 38 20 00 38 00 14 00 18 00 50 5c 52 46 28 5a 29 5c 43 4f 50 38 37 30 5c 5c 44 4b 33 38 20 00 38 00 32 00 32 00 50 5c 41 ┆ MESS. DK38 7 | P ANKL A1,ENDPRT DK38 8 P RF(Z) COP870 DK38 8 2 2 P A┆
0x5564…55b4 4e 4b 4c 5c 41 31 30 2c 4e 4f 45 4d 4c 46 5c 54 45 53 54 20 49 46 20 45 58 54 52 41 20 4c 46 20 4e 45 43 45 53 53 2e 5c 44 4b 33 38 00 38 00 4e 00 24 00 50 5c 52 46 28 4e 5a 29 5c 43 4f 50 38 37 30 5c 4e 4f 2c 20 53 4b 49 50 20 49 54 5c 44 ┆NKL A10,NOEMLF TEST IF EXTRA LF NECESS. DK38 8 N $ P RF(NZ) COP870 NO, SKIP IT D┆
0x55b4…5604 4b 33 38 20 00 38 00 84 00 2c 00 50 5c 4f 52 4b 4c 5c 41 31 30 2c 4e 54 4f 4e 4c 59 5c 49 4e 44 49 43 41 54 45 20 50 52 49 4e 54 41 42 4c 45 5c 3d 32 34 20 00 38 00 ac 00 26 00 50 5c 43 46 5c 41 31 34 2c 50 52 4c 49 4e 45 5c 45 58 54 52 41 ┆K38 8 , P ORKL A10,NTONLY INDICATE PRINTABLE =24 8 & P CF A14,PRLINE EXTRA┆
0x5604…5654 20 4c 49 4e 45 46 45 45 44 5c 3d 32 34 20 00 38 00 dc 00 10 00 50 5c 58 49 46 5c 5c 2e 5c 3d 32 36 20 00 38 01 06 00 18 00 50 5c 49 46 54 5c 42 41 53 57 52 49 3d 31 5c 2e 5c 3d 32 36 20 00 38 01 1a 00 16 00 50 43 4f 50 38 37 30 5c 45 51 55 ┆ LINEFEED =24 8 P XIF . =26 8 P IFT BASWRI=1 . =26 8 PCOP870 EQU┆
0x5654…56a2 5c 2a 5c 2e 5c 3d 32 34 00 38 01 36 00 2e 00 50 5c 43 46 5c 41 31 34 2c 50 52 43 43 48 5c 43 4f 4e 54 52 4f 4c 20 43 48 3a 53 20 54 4f 20 50 52 49 4e 54 45 52 5c 3d 32 34 20 00 38 01 50 00 10 00 50 5c 58 49 46 5c 5c 2e 5c 3d 32 34 20 ┆ * . =24 8 6 . P CF A14,PRCCH CONTROL CH:S TO PRINTER =24 8 P P XIF . =24 ┆
0x56a2…56f2 (57, 0, 398) 00 38 01 82 00 10 00 50 43 4f 50 39 30 30 5c 45 51 55 5c 2a 00 39 00 08 00 1e 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 50 52 49 4e 54 45 52 20 46 41 49 4c 45 44 3f 00 39 00 1c 00 14 00 50 5c 52 46 28 5a 29 5c 43 4f 50 39 35 30 5c 4e 4f 00 39 ┆ 8 PCOP900 EQU * 9 P LDR A1,A1 PRINTER FAILED? 9 P RF(Z) COP950 NO 9┆
0x56f2…5742 00 3e 00 18 00 50 5c 4c 44 5c 41 32 2c 57 43 43 2c 41 31 31 5c 2e 5c 3d 33 32 00 39 00 56 00 24 00 50 5c 43 57 4b 5c 41 32 2c 2f 33 38 5c 4c 4f 43 41 4c 20 48 41 52 44 43 4f 50 59 3f 5c 3d 33 32 20 00 39 00 72 00 28 00 50 5c 52 46 28 45 29 ┆ > P LD A2,WCC,A11 . =32 9 V $ P CWK A2,/38 LOCAL HARDCOPY? =32 9 r ( P RF(E)┆
0x5742…5792 5c 43 4f 50 39 31 30 5c 59 45 53 2e 20 53 4b 49 50 20 50 52 49 4e 54 49 4e 47 5c 3d 33 32 00 39 00 9a 00 12 00 50 43 4f 50 39 30 32 5c 45 51 55 5c 2a 5c 20 00 39 00 c6 00 32 00 50 5c 43 46 5c 41 31 34 2c 54 53 54 50 52 54 5c 57 41 49 54 20 ┆ COP910 YES. SKIP PRINTING =32 9 PCOP902 EQU * 9 2 P CF A14,TSTPRT WAIT ┆
0x5792…57e2 55 4e 54 49 4c 20 50 52 49 4e 54 45 52 20 4f 50 45 52 41 42 4c 45 5c 3d 33 32 00 39 00 dc 00 1c 00 50 5c 41 4e 4b 5c 41 34 2c 31 5c 4f 50 45 52 41 42 4c 45 3f 5c 44 4b 34 32 00 39 01 12 00 22 00 50 5c 52 46 28 5a 29 5c 43 4f 50 39 30 35 5c ┆UNTIL PRINTER OPERABLE =32 9 P ANK A4,1 OPERABLE? DK42 9 " P RF(Z) COP905 ┆
0x57e2…5830 59 45 53 2c 20 52 45 54 52 59 5c 44 4b 34 32 20 00 39 01 32 00 28 00 50 5c 4c 44 4b 4c 5c 41 38 2c 35 30 5c 4e 4f 2c 20 57 41 49 54 20 35 20 53 45 43 4f 4e 44 53 5c 44 4b 34 32 20 00 39 01 58 00 0a 00 50 5c 4c 4b 4d 5c 5c 00 39 01 84 ┆YES, RETRY DK42 9 2 ( P LDKL A8,50 NO, WAIT 5 SECONDS DK42 9 X P LKM 9 ┆
0x5830…5880 (58, 0, 400) 00 0c 00 50 5c 44 41 54 41 5c 36 5c 00 3a 00 04 00 10 00 50 5c 52 42 5c 43 4f 50 39 30 32 5c 5c 00 3a 00 14 00 12 00 50 43 4f 50 39 30 35 5c 45 51 55 5c 2a 5c 20 00 3a 00 28 00 22 00 50 5c 41 42 4c 5c 43 4f 50 50 5c 52 45 53 55 4d 45 20 50 ┆ P DATA 6 : P RB COP902 : PCOP905 EQU * : ( " P ABL COPP RESUME P┆
0x5880…58d0 52 49 4e 54 49 4e 47 5c 3d 33 34 20 00 3a 00 3e 00 16 00 50 43 4f 50 39 31 30 5c 45 51 55 5c 2a 5c 2e 5c 3d 33 32 00 3a 00 64 00 22 00 50 5c 4c 44 4b 4c 5c 41 32 2c 50 52 54 45 52 52 5c 49 4e 44 49 43 41 54 45 20 45 52 52 4f 52 00 3a 00 7e ┆RINTING =34 : > PCOP910 EQU * . =32 : d " P LDKL A2,PRTERR INDICATE ERROR : ~┆
0x58d0…5920 00 16 00 50 5c 4f 52 53 5c 41 32 2c 50 52 54 4d 4f 44 2c 41 31 31 00 3a 00 a4 00 10 00 50 43 4f 50 39 35 30 5c 45 51 55 5c 2a 00 3a 00 be 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 3a 00 d2 00 0c 00 50 5c 45 4a 45 43 54 5c 5c 00 3a 00 e2 00 12 ┆ P ORS A2,PRTMOD,A11 : PCOP950 EQU * : P RTN A14 : P EJECT : ┆
0x5920…5970 00 50 5c 49 46 54 5c 50 36 38 38 33 3d 31 5c 20 00 3a 00 f2 00 06 00 50 2a 5c 00 3a 01 08 00 34 00 50 2a 5c 52 4f 55 54 49 4e 45 20 54 4f 20 43 4f 4e 56 45 52 54 20 44 41 4e 49 53 48 20 4f 52 20 4f 54 48 45 52 20 43 48 41 52 41 43 54 45 52 ┆ P IFT P6883=1 : P* : 4 P* ROUTINE TO CONVERT DANISH OR OTHER CHARACTER┆
0x5970…59c0 53 20 00 3a 01 12 00 32 00 50 2a 5c 54 4f 20 54 48 45 20 43 4f 44 45 20 4e 45 45 44 45 44 20 46 4f 52 20 36 38 38 33 20 50 52 49 4e 54 45 52 53 20 53 50 45 43 49 41 4c 00 3a 01 4a 00 32 00 50 2a 5c 43 48 41 52 2e 20 53 45 54 2e 20 41 4c 53 ┆S : 2 P* TO THE CODE NEEDED FOR 6883 PRINTERS SPECIAL : J 2 P* CHAR. SET. ALS┆
0x59c0…5a10 (59, 0, 400) 4f 20 49 4e 53 45 52 54 53 20 27 4f 46 27 20 41 4e 44 20 27 30 45 27 20 43 48 41 52 53 2e 00 3a 01 80 00 20 00 50 2a 5c 54 4f 20 53 45 4c 45 43 54 20 4f 50 54 49 4f 4e 41 4c 20 52 4f 4d 2e 2e 2e 2e 00 3b 00 26 00 06 00 50 2a 5c 00 3b 00 4a ┆O INSERTS 'OF' AND '0E' CHARS. : P* TO SELECT OPTIONAL ROM.... ; & P* ; J┆
0x5a10…5a60 00 12 00 50 44 4b 45 44 49 54 5c 45 51 55 5c 2a 5c 20 00 3b 00 54 00 22 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 31 5c 47 45 54 20 54 41 53 4b 20 49 44 5c 44 4b 34 33 20 00 3b 00 6a 00 20 00 50 5c 43 57 4b 5c 41 31 2c 27 4c 31 27 5c 36 38 38 ┆ PDKEDIT EQU * ; T " P LDR* A1,A11 GET TASK ID DK43 ; j P CWK A1,'L1' 688┆
0x5a60…5ab0 33 20 50 52 49 4e 54 45 52 3f 5c 20 00 3b 00 90 00 1e 00 50 5c 52 46 28 4e 45 29 5c 44 4b 45 44 39 30 5c 4e 4f 2c 20 53 4b 49 50 20 49 54 00 3b 00 b4 00 1a 00 50 5c 43 43 4b 5c 41 32 2c 2f 35 44 5c 53 50 45 43 49 41 4c 20 3f 20 00 3b 00 d6 ┆3 PRINTER? ; P RF(NE) DKED90 NO, SKIP IT ; P CCK A2,/5D SPECIAL ? ; ┆
0x5ab0…5b00 00 1c 00 50 5c 52 46 28 4e 45 29 5c 44 4b 45 44 31 30 5c 4e 4f 54 20 59 45 54 5c 20 00 3b 00 f4 00 2a 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 32 5c 52 45 50 4c 41 43 45 20 57 49 54 48 20 43 4f 52 52 45 43 54 20 43 4f 44 45 5c 00 3b 01 14 00 10 ┆ P RF(NE) DKED10 NOT YET ; * P LDK A2,/22 REPLACE WITH CORRECT CODE ; ┆
0x5b00…5b50 00 50 5c 52 46 5c 44 4b 45 44 38 30 5c 20 00 3b 01 42 00 12 00 50 44 4b 45 44 31 30 5c 45 51 55 5c 2a 5c 20 00 3b 01 56 00 18 00 50 5c 43 43 4b 5c 41 32 2c 2f 35 42 5c 53 50 45 43 49 41 4c 3f 00 3b 01 6c 00 1c 00 50 5c 52 46 28 4e 45 29 5c ┆ P RF DKED80 ; B PDKED10 EQU * ; V P CCK A2,/5B SPECIAL? ; l P RF(NE) ┆
0x5b50…5ba0 (60, 0, 400) 44 4b 45 44 32 30 5c 4e 4f 54 20 59 45 54 5c 20 00 3b 01 88 00 18 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 35 5c 52 45 50 4c 41 43 45 5c 00 3c 00 18 00 10 00 50 5c 52 46 5c 44 4b 45 44 38 30 5c 20 00 3c 00 34 00 12 00 50 44 4b 45 44 32 30 5c 45 ┆DKED20 NOT YET ; P LDK A2,/25 REPLACE < P RF DKED80 < 4 PDKED20 E┆
0x5ba0…5bf0 51 55 5c 2a 5c 20 00 3c 00 48 00 18 00 50 5c 43 43 4b 5c 41 32 2c 2f 35 43 5c 53 50 45 43 49 41 4c 3f 00 3c 00 5e 00 1c 00 50 5c 52 46 28 4e 45 29 5c 44 4b 45 44 33 30 5c 4e 4f 54 20 59 45 54 5c 20 00 3c 00 7a 00 18 00 50 5c 4c 44 4b 5c 41 ┆QU * < H P CCK A2,/5C SPECIAL? < ^ P RF(NE) DKED30 NOT YET < z P LDK A┆
0x5bf0…5c40 32 2c 2f 32 36 5c 52 45 50 4c 41 43 45 5c 00 3c 00 9a 00 10 00 50 5c 52 46 5c 44 4b 45 44 38 30 5c 20 00 3c 00 b6 00 12 00 50 44 4b 45 44 33 30 5c 45 51 55 5c 2a 5c 20 00 3c 00 ca 00 1e 00 50 5c 52 46 5c 44 4b 45 44 39 30 5c 4e 4f 54 48 49 ┆2,/26 REPLACE < P RF DKED80 < PDKED30 EQU * < P RF DKED90 NOTHI┆
0x5c40…5c90 4e 47 20 53 50 45 43 49 41 4c 00 3c 00 e0 00 06 00 50 2a 5c 00 3c 01 02 00 12 00 50 44 4b 45 44 38 30 5c 45 51 55 5c 2a 5c 20 00 3c 01 0c 00 26 00 50 5c 4c 44 4b 5c 41 31 2c 53 4f 5c 50 55 54 20 53 48 49 46 54 20 4f 55 54 20 49 4e 20 42 55 ┆NG SPECIAL < P* < PDKED80 EQU * < & P LDK A1,SO PUT SHIFT OUT IN BU┆
0x5c90…5ce0 46 46 45 52 00 3c 01 22 00 10 00 50 5c 53 43 52 5c 41 31 2c 41 38 5c 20 00 3c 01 4c 00 1e 00 50 5c 41 44 4b 4c 5c 41 38 2c 31 5c 55 50 44 41 54 45 20 50 4f 49 4e 54 45 52 20 00 3c 01 60 00 26 00 50 5c 53 43 52 5c 41 32 2c 41 38 5c 49 4e 53 ┆FFER < " P SCR A1,A8 < L P ADKL A8,1 UPDATE POINTER < ` & P SCR A2,A8 INS┆