|
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: 17378 (0x43e2)
Notes: pts_type(SC)
Names: »DSPBSC.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »U3270.2/DSPBSC.SC«
IDENT DSPBSC REL 11.1 82-02-12 870150541110 =4 IMPROVEMENT OF =1 =3 SAVE A12 =2 IND. PRINTER NOT OP INIT. 81-11-20 =1 TEST DEVICE BEFORE CONNECT 81-04-08 ************************************************************* * * * MODULE DSPBSC * * MODULE HANDLING THE START UP OF THE * * VDUKB TASK, CONTROLLING SNA MODES * * AND MULTIPLE WAIT FOR KB AND DC. * * (EMULATION 3270 BSC) * * * ************************************************************* EJECT **************************************************************** * * * LIST OF ROUTINES * * * * VDUKB MAIN ROUTINE * * IOACT I/O ACTIVATION * IOCPL I/O COMPLETION * MATCH MATCH ADDRESS AND TASKID * INIT INITIALIZE THE TASK * * COMINI COMMON INIT ROUTINE * ECBINI INIT OF ECB:S * TSTDEV TEST KEYBOARD AND DISPLAY * * * **************************************************************** EJECT ********************************************************** * * * ENTRY POINTS * * * ********************************************************** ENTRY VDUKB START LABEL FROM DATSNA(CREDIT) ENTRY COMINI COMMON INIT ROUTINE ENTRY ECBINI INIT OF ECB:S ENTRY MATCH MATCH TASID AND PHYS. ADDRESS ********************************************************** * * * EXTERNAL REFERENCES * * * ********************************************************** EXTRN I:EVA0 CREDIT EVALUATION ROUTINE EXTRN OPEN OPEN DC (DCBSC) EXTRN CONCT CONNECT DC (DCBSC) EXTRN SETTIM SET REQUEST TIMEOUT (DCBSC) EXTRN ERASE ERASE SCREEN AND VDU BUFFER (VDU) EXTRN TSTMES TEST IF ANY MESSAGE (DCSNA) EXTRN READKB READ KEYBOARD WITH NO WAIT (KEYB) EXTRN KBINP MAIN ROUTINE IN KEYB-MODULE (KEYB) EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) EXTRN LMP1ON DC LINE 1 (KEYB) EXTRN LMP2ON DC LINE 2 (KEYB) EXTRN SOUND SOUND ALARM AT DISPLAY (VDU) EXTRN LMP5ON ERROR LAMP ON (KEYB) EXTRN LMP5OF ERROR LAMP OFF (KEYB) EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) EXTRN STOINF SAVE SCREEN INFORMATION (VDU) EXTRN ICVRED INTERTASK READ (KEYB) EXTRN ICINP INTERTASK INPUT (KEYB) EXTRN CHKSTA CHECK DC STATUS (DCBSC) EJECT ************************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ************************************************************* X:B EQU 15 NUMBER OF TASKS (1- ) NBRTSK EQU X:B X:C EQU 0 OFFLINE HANDLING IF :=1 OFLIN EQU X:C X:D EQU 1 NUMBER OF LINES (1-2) NBRLIN EQU X:D X:M EQU 0 COPY COMMNAND INCLUDED IF:=1 COPCMD EQU X:M X:O EQU 0 TEST INCLUDED IF:=1 TEST EQU X:O EJECT *********************************************************** * * * DECLARATIONS OF DATA AND EQUATES * * *********************************************************** * * ECB INDEX TABLE * ECBIND EQU * DATA 8 NUMBER OF ENTRIES DATA X'2000' ECB KB DATA X'3002' ECB PRINTER DATA X'4004' ECB SIGNAL DISPLAY DATA X'4206' ECB VDU DATA X'5008' ECB INTERTASK READ DATA X'510A' ECB INTERTASK WRITE DATA X'610C' ECB DC LINE1 DATA X'620E' ECB DC LINE2 * * SCREEN SIZE ON DISPLAY * LBVDU EQU 1920 * * MODES * HCPMOD EQU /4000 HARDCOPY OUTSTANDING * * TASK IDENTIFICATION CODE * VDUCOD EQU 'VV' KB/VDU EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK TB1 * OFFFLG EQU 1962 OFFLINE FLAG PRTID EQU OFFFLG+2 TASKID FOR HARDCOPY MAIN EQU PRTID+6 WHICH DC LINE ECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT REGI EQU ECBBLK+16 SAVE AREA BSCMOD EQU REGI+32 BSC MODE ECBTAB EQU BSCMOD+2 ECB TABLE * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK CB1 * MF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS IFF TEST=1 TSKTAB EQU MF1CU+24 TASK TABLE XIF IFT TEST=1 TSKTAB EQU MF1CU+219 TASK TABLE XIF EJECT ********************************************************* * * * VDUKB MAIN ROUTINE * * * ********************************************************* * REGISTERS * * A11= RESERVED * A13= RESERVED * ************************************************ VDUKB EQU * . =4 CF A14,INIT INITIALIZE THE TASK VDU200 EQU * CF A14,IOACT PREPARE ECB-BLK LDKL A7,ECBBLK ADR A7,A11 LKM DATA 7 MULTIPLE WAIT CF A14,IOCPL TAKE CARE OF REQUEST RB VDU200 HERE WE GO AGAIN EJECT * * * POSSIBLE LAYOUTS OF ECB-BLK * * * * * MODE /0000 /4000 * * * BLK 2 3 * KB KB * DC DC * IC * * * EJECT ************************************************************ * * * IOACT I/O ACTIVATION * * ************************************************************ * REGISTERS * * A4= NUMBER OF ENTRIES IN ECB BLOCK * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************** IOACT EQU * LDK A4,0 LD A1,BSCMOD,A11 ADK A4,1 INCREMENT NUMBER OF WAITS LD A2,ECBBLK+4,A11 REQ. ALREADY OUTST.? RF(NZ) IOAC10 YES CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+4,A11 IOAC10 EQU * IFT COPCMD=1 ANKL A1,HCPMOD HARDCOPY OUTSTANDING? RF(Z) IOAC30 NO XIF ADK A4,1 INCREMENT NUMBER OF WAITS LD A2,ECBBLK+6,A11 RF(NZ) IOAC30 INTERTASK ALREDY OUTSTANDING CF A14,ICVRED READ INTERATSK ST A8,ECBBLK+6,A11 IOAC30 EQU * ADK A4,1 EVEN MORE LD A2,ECBBLK+2,A11 KB OUTSTANDING? RF(NZ) IOAC40 YES CF A14,READKB READ KEYBOARD ST A8,ECBBLK+2,A11 IOAC40 EQU * ST A4,ECBBLK,A11 SAVE NUMBER OF WAITS RTN A14 EJECT ************************************************************ * * * IOCPL I/O COMPLETION * * ************************************************************ * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************ IOCPL EQU * CW A8,ECBBLK+2,A11 KB INPUT RF(NE) IOCP10 NO CM ECBBLK+2,A11 CF A14,KBINP TAKE CARE OF KB RF IOCP90 IOCP10 EQU * CW A8,ECBBLK+4,A11 DC? RF(NE) IOCP20 NO CM ECBBLK+4,A11 CF A14,DCINP TAKE CARE OF DC RF IOCP90 IOCP20 EQU * CM ECBBLK+6,A11 CF A14,ICINP TAKE CARE OF INTERTASK IOCP90 EQU * RTN A14 EJECT *************************************************************** * * MATCH MATCH TASKID AND PHYS. ADDRESS * *************************************************************** * REGISTERS * * **************************************************************** MATCH EQU * IFT COPCMD=1 LDK A1,NBRTSK GET NUMBER OF ENTRIES LD A3,6,A13 ADKL A3,TSKTAB START OF TABLE MATC10 EQU * CC A2,+2,A3 SAME ADDRESS? RF(E) MATC30 YES ADK A3,4 NEXT SUK A1,1 ALL CHECKED? RB(NZ) MATC10 NO MATC20 EQU * LDK A1,1 INDICATE NOT FOUND RF MATC90 MATC30 EQU * LCR A1,A3 CCK A1,VDUCOD COPY IN RIGHT DIRECTION? RB(NE) MATC20 NO LDK A1,0 LDR* A2,A3 MATC90 EQU * XIF RTN A14 EJECT ************************************************************ * * * INIT INITIALIZE THE TASK * * * ************************************************************ * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************* INIT EQU * CF A14,COMINI COMMON INIT IFT OFLIN=1 . =3 LD A1,2,A14 SAVE A12&A13 ON A14-STACK =3 LD A2,4,A14 . =3 ST A12,4,A14 . =3 ST A13,2,A14 . =3 STR A2,A14 . =3 ST A1,-2,A14 . =3 SUKL A14,4 UPDATE STACK POINTER =3 XIF . =3 CF A14,ECBINI INIT OF ECB:S CF A14,TSTDEV TEST KB&VDU =4 CF A14,OPEN OPEN DC LDKL A8,20 LKM DATA 6 CF A14,CONCT CONNECT DC CF A14,SETTIM SET REQUEST TIMEOUT LDK A2,NBRTSK NUMBER OF TASK ENTRIES LD A9,REGI,A11 RESTORE TASKTAB ADDRESS INIT10 EQU * SUK A2,1 RF(N) INIT20 ADKL A9,4 LCR A1,A9 ANK A1,/FF ANY TASK AT ALL? RB(Z) INIT10 NO CCK A1,'VV' DISPLAY TASK? RB(E) INIT10 YES SLL A1,8 LC A1,+1,A9 ST A1,PRTID,A11 INIT20 EQU * IFT OFLIN=1 . =3 . =3 . =3 . =3 . =3 . =3 . =3 CM OFFFLG,A11 CF A14,LMP6OF TURN OFF OFFLINE LAMP XIF LDK A4,0 LDKL A5,LBVDU+1 UNFORMATTED SCREEN LDK A6,0 CF A14,STOINF SAVE SCREEN INFORMATION CF A14,ERASE ERASE THE WHOLE SCREEN IFT NBRLIN=2 LD A1,MAIN,A11 DC LINE 1? RF(Z) INIT30 YES CF A14,LMP2ON INDICATE DC LINE 2 RF INIT40 INIT30 EQU * XIF CF A14,LMP1ON INDICATE DC LINE 1 INIT40 EQU * CF A14,CHKSTA CHECK IF LINE OK RTN A14 EJECT ********************************************************** * * * COMINI COMMON INIT ROUTINE * * * ********************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************** COMINI EQU * CF A14,I:EVA0 LDR A11,A9 LOAD TASK AREA BASE LDR* A2,A11 GET TASKID LD A3,6,A13 COMMON BLOCK BASE LDR A1,A2 ANK A1,X'FF' SUK A1,X'30' GET OFFSET IN TASK TABLE SLL A1,2 TWO WORDS ENTRIES LDKL A4,TSKTAB ADR A4,A3 ADR A1,A4 POINT TO YOUR LABLE ST A1,REGI,A11 SAVE TASKTAB ADDRESS SC A2,+1,A1 SAVE TASKID SRL A2,8 SCR A2,A1 CCK A2,VDUCOD DISPLAY TASK? =2 RF(E) COMI10 YES! =2 LDK A2,1 . =2 SC A2,+3,A1 IND. PRINTER NOT OP =2 COMI10 EQU * . =2 RTN A14 EJECT * * * ECB TABLE LAYOUT * * * * DISPLACEMENT I/O FILECODE * * 0 KB /20 * 2 PRINTER /30 * 4 SIGNAL/DISP. /40 * 6 VDU /42 * 8 INTERTASK R. /50 * 10 INTERTASK W. /51 * 12 DC LINE 1 /61 * 14 DC LINE 2 /62 * * * * EJECT ************************************************************* * * * ECBINI INIT OF ECB:S * * * ************************************************************* * REGISTERS * * A4 = NUMBER OF ENTRIES * A5 = NUMBER OF FC ALLOWED * A6 = DAT POINTER * A7 = ECB FC POINTER * A8 = DATA SET POINTER * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************ ECBINI EQU * LD A2,-8,A13 GET T:D ADDRESS LD A4,+4,A2 GET NUMBER OF ENTRIES LD A8,+6,A2 ADR A8,A13 LDR A6,A8 DAT POINTER SUKL A8,20 DATA SET POINTER ECBI10 EQU * LD A5,ECBIND NUMBER OF FC:S LDKL A7,ECBIND+2 FIRST FILE CODE LC A2,+1,A6 DATA SET FC ECBI20 EQU * CCR A2,A7 FC IN DAT = FC CONFIGURED? RF(E) ECBI30 YES ADK A7,2 NEXT SUK A5,1 NOT FOUND? RB(NZ) ECBI20 NOT YET LDKL A1,* DIAGNOSTIC ST A1,REGI,A11 LKM DATA 3 WRONG GENERATION ECBI30 EQU * SC A2,+1,A8 SAVE FC IN DATA SET LD A2,+2,A6 GET FIXED LENGTH IF ANY ST A2,+4,A8 SAVE IN DATA SET LD A2,+18,A8 GET FIXED BUFFER IF ANY ST A2,+2,A8 SAVE IN DATA SET LC A2,+1,A7 GET INDEX TO ECB TABLE ANK A2,/FF ADR A2,A11 ST A8,ECBTAB,A2 SAVE ECB ADDRESS ADK A6,4 SUKL A8,20 SUK A4,1 ALL DONE? RB(NZ) ECBI10 NO RTN A14 EJECT ************************************************************* * * * TSTDEV TEST KEYBOARD AND DISPLAY * * * ************************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************* TSTDEV EQU * CF A14,SOUND TURN ON SOUND ALARM AT VDU ANK A1,/1 OPERABLE? RF(Z) TSTD10 YES CF A14,LMP5ON TRY TO INDICATE ERROR LDKL A8,300 WAIT LKM DATA 6 RB TSTDEV TRY AGAIN TSTD10 EQU * CF A14,LMP5OF ERROR LAMP OFF ANK A1,/1 OPERABLE? RF(Z) TSTD90 YES CF A14,SOUND INDICATE ERROR LDKL A8,300 WAIT LKM DATA 6 RB TSTD10 TRY AGAIN TSTD90 EQU * CF A14,RESKB RESET KEYBOARD RTN A14 END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DSPBSC REL 11.1 82-02-12 870150541110«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x0038}
0x003c…005c Head {h00=0x001c, h01=0x0050, text=» =4 IMPROVEMENT OF =1 «, t00=0x0000, t01=0x0040}
0x005c…0072 Head {h00=0x0012, h01=0x0050, text=» =3 SAVE A12«, t00=0x0000, t01=0x0060}
0x0072…009a Head {h00=0x0024, h01=0x0050, text=» =2 IND. PRINTER NOT OP INIT. «, t00=0x0000, t01=0x0076}
0x009a…00ae Head {h00=0x0010, h01=0x0050, text=» 81-11-20 «, t00=0x0000, t01=0x009e}
0x00ae…00d6 Head {h00=0x0024, h01=0x0050, text=» =1 TEST DEVICE BEFORE CONNECT«, t00=0x0000, t01=0x00b2}
0x00d6…00ea Head {h00=0x0010, h01=0x0050, text=» 81-04-08 «, t00=0x0000, t01=0x00da}
0x00ea…0130 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0000, t01=0x00ee}
0x0130…0176 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0000, t01=0x0134}
0x0176…01bc Head {h00=0x0042, h01=0x0050, text=»* MODULE DSPBSC * «, t00=0x0000, t01=0x017a}
0x01bc…0202 Head {h00=0x0042, h01=0x003d, text=»* MODULE HANDLING THE START UP OF THE * «, t00=0x0001, t01=0x0030}
0x0202…0248 Head {h00=0x0042, h01=0x003d, text=»* VDUKB TASK, CONTROLLING SNA MODES * «, t00=0x0001, t01=0x0076}
0x0248…028e Head {h00=0x0042, h01=0x003d, text=»* AND MULTIPLE WAIT FOR KB AND DC. * «, t00=0x0001, t01=0x00bc}
0x028e…02ce Head {h00=0x003c, h01=0x0050, text=»* (EMULATION 3270 BSC) *«, t00=0x0001, t01=0x0102}
0x02ce…0314 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0001, t01=0x0142}
0x0314…035a Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0001, t01=0x0188}
0x035a…0368 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x003e}
0x0368…03b0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0002, t01=0x004c}
0x03b0…03f8 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0094}
0x03f8…0440 Head {h00=0x0044, h01=0x0050, text=»* LIST OF ROUTINES *«, t00=0x0002, t01=0x00dc}
0x0440…0488 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0124}
0x0488…04d0 Head {h00=0x0044, h01=0x0050, text=»* VDUKB MAIN ROUTINE *«, t00=0x0002, t01=0x016c}
0x04d0…04f8 Head {h00=0x0024, h01=0x0050, text=»* IOACT I/O ACTIVATION«, t00=0x0003, t01=0x0024}
0x04f8…0520 Head {h00=0x0024, h01=0x0050, text=»* IOCPL I/O COMPLETION«, t00=0x0003, t01=0x004c}
0x0520…0552 Head {h00=0x002e, h01=0x0050, text=»* MATCH MATCH ADDRESS AND TASKID«, t00=0x0003, t01=0x0074}
0x0552…059a Head {h00=0x0044, h01=0x0050, text=»* INIT INITIALIZE THE TASK *«, t00=0x0003, t01=0x00a6}
0x059a…05c8 Head {h00=0x002a, h01=0x0050, text=»* COMINI COMMON INIT ROUTINE «, t00=0x0003, t01=0x00ee}
0x05c8…05f0 Head {h00=0x0024, h01=0x0050, text=»* ECBINI INIT OF ECB:S «, t00=0x0003, t01=0x011c}
0x05f0…0638 Head {h00=0x0044, h01=0x0050, text=»* TSTDEV TEST KEYBOARD AND DISPLAY *«, t00=0x0003, t01=0x0144}
0x0638…0680 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0003, t01=0x018c}
0x0680…06c8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x0044}
0x06c8…06d6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0004, t01=0x008c}
0x06d6…0718 Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x0004, t01=0x009a}
0x0718…075a Head {h00=0x003e, h01=0x003a, text=»* *«, t00=0x0004, t01=0x00dc}
0x075a…079c Head {h00=0x003e, h01=0x003a, text=»* ENTRY POINTS *«, t00=0x0004, t01=0x011e}
0x079c…07de Head {h00=0x003e, h01=0x003a, text=»* *«, t00=0x0004, t01=0x0160}
0x07de…0820 Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x0005, t01=0x0012}
0x0820…0828 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0054}
0x0828…085c Head {h00=0x0030, h01=0x002c, text=» ENTRY VDUKB START LABEL FROM DATSNA(CREDIT)«, t00=0x0005, t01=0x005c}
0x085c…0886 Head {h00=0x0026, h01=0x0050, text=» ENTRY COMINI COMMON INIT ROUTINE «, t00=0x0005, t01=0x0090}
0x0886…08aa Head {h00=0x0020, h01=0x0050, text=» ENTRY ECBINI INIT OF ECB:S «, t00=0x0005, t01=0x00ba}
0x08aa…08dc Head {h00=0x002e, h01=0x0050, text=» ENTRY MATCH MATCH TASID AND PHYS. ADDRESS«, t00=0x0005, t01=0x00de}
0x08dc…08e4 Head {h00=0x0004, h01=0x0002, t00=0x0005, t01=0x0110}
0x08e4…0926 Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x0005, t01=0x0118}
0x0926…0968 Head {h00=0x003e, h01=0x003a, text=»* *«, t00=0x0005, t01=0x015a}
0x0968…09aa Head {h00=0x003e, h01=0x003a, text=»* EXTERNAL REFERENCES *«, t00=0x0006, t01=0x000c}
0x09aa…09ec Head {h00=0x003e, h01=0x003a, text=»* *«, t00=0x0006, t01=0x004e}
0x09ec…0a2e Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x0006, t01=0x0090}
0x0a2e…0a36 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00d2}
0x0a36…0a66 Head {h00=0x002c, h01=0x0027, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0006, t01=0x00da}
0x0a66…0a8a Head {h00=0x0020, h01=0x0050, text=» EXTRN OPEN OPEN DC (DCBSC) «, t00=0x0006, t01=0x010a}
0x0a8a…0ab2 Head {h00=0x0024, h01=0x0050, text=» EXTRN CONCT CONNECT DC (DCBSC) «, t00=0x0006, t01=0x012e}
0x0ab2…0ae4 Head {h00=0x002e, h01=0x0050, text=» EXTRN SETTIM SET REQUEST TIMEOUT (DCBSC) «, t00=0x0006, t01=0x0156}
0x0ae4…0b1a Head {h00=0x0032, h01=0x002e, text=» EXTRN ERASE ERASE SCREEN AND VDU BUFFER (VDU)«, t00=0x0006, t01=0x0188}
0x0b1a…0b4c Head {h00=0x002e, h01=0x0050, text=» EXTRN TSTMES TEST IF ANY MESSAGE (DCSNA) «, t00=0x0007, t01=0x002e}
0x0b4c…0b84 Head {h00=0x0034, h01=0x002f, text=» EXTRN READKB READ KEYBOARD WITH NO WAIT (KEYB) «, t00=0x0007, t01=0x0060}
0x0b84…0bbc Head {h00=0x0034, h01=0x002f, text=» EXTRN KBINP MAIN ROUTINE IN KEYB-MODULE (KEYB) «, t00=0x0007, t01=0x0098}
0x0bbc…0bf6 Head {h00=0x0036, h01=0x0050, text=» EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) «, t00=0x0007, t01=0x00d0}
0x0bf6…0c24 Head {h00=0x002a, h01=0x0050, text=» EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) «, t00=0x0007, t01=0x010a}
0x0c24…0c4a Head {h00=0x0022, h01=0x0050, text=» EXTRN LMP1ON DC LINE 1 (KEYB)«, t00=0x0007, t01=0x0138}
0x0c4a…0c70 Head {h00=0x0022, h01=0x0050, text=» EXTRN LMP2ON DC LINE 2 (KEYB)«, t00=0x0007, t01=0x015e}
0x0c70…0ca2 Head {h00=0x002e, h01=0x0029, text=» EXTRN SOUND SOUND ALARM AT DISPLAY (VDU) «, t00=0x0007, t01=0x0184}
0x0ca2…0ccc Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP5ON ERROR LAMP ON (KEYB)«, t00=0x0008, t01=0x0026}
0x0ccc…0cf8 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP5OF ERROR LAMP OFF (KEYB) «, t00=0x0008, t01=0x0050}
0x0cf8…0d2a Head {h00=0x002e, h01=0x0029, text=» EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) «, t00=0x0008, t01=0x007c}
0x0d2a…0d5e Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x0008, t01=0x00ae}
0x0d5e…0d8a Head {h00=0x0028, h01=0x0050, text=» EXTRN ICVRED INTERTASK READ (KEYB) «, t00=0x0008, t01=0x00e2}
0x0d8a…0db6 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICINP INTERTASK INPUT (KEYB) «, t00=0x0008, t01=0x010e}
0x0db6…0de4 Head {h00=0x002a, h01=0x0050, text=» EXTRN CHKSTA CHECK DC STATUS (DCBSC) «, t00=0x0008, t01=0x013a}
0x0de4…0df2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0008, t01=0x0168}
0x0df2…0e38 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0008, t01=0x0176}
0x0e38…0e7e Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0009, t01=0x002c}
0x0e7e…0ec4 Head {h00=0x0042, h01=0x003d, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0009, t01=0x0072}
0x0ec4…0f0a Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0009, t01=0x00b8}
0x0f0a…0f50 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0009, t01=0x00fe}
0x0f50…0f58 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0144}
0x0f58…0f80 Head {h00=0x0024, h01=0x0050, text=»X:B EQU 15 NUMBER OF TASKS (1- )«, t00=0x0009, t01=0x014c}
0x0f80…0f96 Head {h00=0x0012, h01=0x0050, text=»NBRTSK EQU X:B«, t00=0x0009, t01=0x0174}
0x0f96…0fc0 Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x0009, t01=0x018a}
0x0fc0…0fd6 Head {h00=0x0012, h01=0x000d, text=»OFLIN EQU X:C «, t00=0x000a, t01=0x0024}
0x0fd6…0ffe Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x000a, t01=0x003a}
0x0ffe…1014 Head {h00=0x0012, h01=0x0050, text=»NBRLIN EQU X:D«, t00=0x000a, t01=0x0062}
0x1014…1042 Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMNAND INCLUDED IF:=1«, t00=0x000a, t01=0x0078}
0x1042…1058 Head {h00=0x0012, h01=0x0050, text=»COPCMD EQU X:M«, t00=0x000a, t01=0x00a6}
0x1058…107e Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000a, t01=0x00bc}
0x107e…1092 Head {h00=0x0010, h01=0x0050, text=»TEST EQU X:O«, t00=0x000a, t01=0x00e2}
0x1092…10a0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000a, t01=0x00f6}
0x10a0…10e4 Head {h00=0x0040, h01=0x003b, text=»*********************************************************** «, t00=0x000a, t01=0x0104}
0x10e4…1128 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x000a, t01=0x0148}
0x1128…1152 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000a, t01=0x018c}
0x1152…1196 Head {h00=0x0040, h01=0x003b, text=»* * «, t00=0x000b, t01=0x0026}
0x1196…11da Head {h00=0x0040, h01=0x003b, text=»*********************************************************** «, t00=0x000b, t01=0x006a}
0x11da…11e2 Head {h00=0x0004, h01=0x0002, t00=0x000b, t01=0x00ae}
0x11e2…11ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b6}
0x11ec…1206 Head {h00=0x0016, h01=0x0050, text=»* ECB INDEX TABLE «, t00=0x000b, t01=0x00c0}
0x1206…1210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00da}
0x1210…1224 Head {h00=0x0010, h01=0x0050, text=»ECBIND EQU *«, t00=0x000b, t01=0x00e4}
0x1224…1246 Head {h00=0x001e, h01=0x0050, text=» DATA 8 NUMBER OF ENTRIES «, t00=0x000b, t01=0x00f8}
0x1246…1262 Head {h00=0x0018, h01=0x0050, text=» DATA X'2000' ECB KB«, t00=0x000b, t01=0x011a}
0x1262…1284 Head {h00=0x001e, h01=0x0050, text=» DATA X'3002' ECB PRINTER «, t00=0x000b, t01=0x0136}
0x1284…12ac Head {h00=0x0024, h01=0x0050, text=» DATA X'4004' ECB SIGNAL DISPLAY«, t00=0x000b, t01=0x0158}
0x12ac…12ca Head {h00=0x001a, h01=0x0050, text=» DATA X'4206' ECB VDU «, t00=0x000b, t01=0x0180}
0x12ca…12f2 Head {h00=0x0024, h01=0x0050, text=» DATA X'5008' ECB INTERTASK READ«, t00=0x000c, t01=0x000e}
0x12f2…131c Head {h00=0x0026, h01=0x0050, text=» DATA X'510A' ECB INTERTASK WRITE «, t00=0x000c, t01=0x0036}
0x131c…133e Head {h00=0x001e, h01=0x0050, text=» DATA X'610C' ECB DC LINE1«, t00=0x000c, t01=0x0060}
0x133e…1360 Head {h00=0x001e, h01=0x0050, text=» DATA X'620E' ECB DC LINE2«, t00=0x000c, t01=0x0082}
0x1360…136a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a4}
0x136a…1392 Head {h00=0x0024, h01=0x0050, text=»* SCREEN SIZE ON DISPLAY«, t00=0x000c, t01=0x00ae}
0x1392…139c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d6}
0x139c…13b2 Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x000c, t01=0x00e0}
0x13b2…13bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f6}
0x13bc…13cc Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x000c, t01=0x0100}
0x13cc…13d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0110}
0x13d6…1404 Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x000c, t01=0x011a}
0x1404…140e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0148}
0x140e…1430 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x000c, t01=0x0152}
0x1430…143a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0174}
0x143a…1458 Head {h00=0x001a, h01=0x0050, text=»VDUCOD EQU 'VV' KB/VDU«, t00=0x000c, t01=0x017e}
0x1458…1466 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x000c}
0x1466…1470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001a}
0x1470…1490 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x0024}
0x1490…14b0 Head {h00=0x001c, h01=0x0050, text=»* TERMINAL WORKBLOCK TB1«, t00=0x000d, t01=0x0044}
0x14b0…14ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0064}
0x14ba…14de Head {h00=0x0020, h01=0x0050, text=»OFFFLG EQU 1962 OFFLINE FLAG«, t00=0x000d, t01=0x006e}
0x14de…150c Head {h00=0x002a, h01=0x0050, text=»PRTID EQU OFFFLG+2 TASKID FOR HARDCOPY«, t00=0x000d, t01=0x0092}
0x150c…1532 Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTID+6 WHICH DC LINE«, t00=0x000d, t01=0x00c0}
0x1532…1564 Head {h00=0x002e, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT«, t00=0x000d, t01=0x00e6}
0x1564…1588 Head {h00=0x0020, h01=0x0050, text=»REGI EQU ECBBLK+16 SAVE AREA«, t00=0x000d, t01=0x0118}
0x1588…15ac Head {h00=0x0020, h01=0x0050, text=»BSCMOD EQU REGI+32 BSC MODE «, t00=0x000d, t01=0x013c}
0x15ac…15d2 Head {h00=0x0022, h01=0x0050, text=»ECBTAB EQU BSCMOD+2 ECB TABLE «, t00=0x000d, t01=0x0160}
0x15d2…15dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0186}
0x15dc…15fc Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x0190}
0x15fc…161a Head {h00=0x001a, h01=0x0050, text=»* COMMON WORKBLOCK CB1«, t00=0x000e, t01=0x0020}
0x161a…1624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003e}
0x1624…1652 Head {h00=0x002a, h01=0x0050, text=»MF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS «, t00=0x000e, t01=0x0048}
0x1652…1666 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x000e, t01=0x0076}
0x1666…168c Head {h00=0x0022, h01=0x0050, text=»TSKTAB EQU MF1CU+24 TASK TABLE«, t00=0x000e, t01=0x008a}
0x168c…1698 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00b0}
0x1698…16ac Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x000e, t01=0x00bc}
0x16ac…16d4 Head {h00=0x0024, h01=0x0050, text=»TSKTAB EQU MF1CU+219 TASK TABLE «, t00=0x000e, t01=0x00d0}
0x16d4…16e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00f8}
0x16e0…16ee Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000e, t01=0x0104}
0x16ee…1730 Head {h00=0x003e, h01=0x0039, text=»********************************************************* «, t00=0x000e, t01=0x0112}
0x1730…1772 Head {h00=0x003e, h01=0x0039, text=»* * «, t00=0x000e, t01=0x0154}
0x1772…17b4 Head {h00=0x003e, h01=0x0039, text=»* VDUKB MAIN ROUTINE * «, t00=0x000f, t01=0x0008}
0x17b4…17f6 Head {h00=0x003e, h01=0x0039, text=»* * «, t00=0x000f, t01=0x004a}
0x17f6…1838 Head {h00=0x003e, h01=0x0039, text=»********************************************************* «, t00=0x000f, t01=0x008c}
0x1838…184c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x000f, t01=0x00ce}
0x184c…1856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e2}
0x1856…186e Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x000f, t01=0x00ec}
0x186e…1886 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x000f, t01=0x0104}
0x1886…1890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011c}
0x1890…18c8 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000f, t01=0x0126}
0x18c8…18dc Head {h00=0x0010, h01=0x000b, text=»VDUKB EQU * «, t00=0x000f, t01=0x015e}
0x18dc…18ec Head {h00=0x000c, h01=0x0050, text=» . =4 «, t00=0x000f, t01=0x0172}
0x18ec…1914 Head {h00=0x0024, h01=0x0020, text=» CF A14,INIT INITIALIZE THE TASK«, t00=0x000f, t01=0x0182}
0x1914…1928 Head {h00=0x0010, h01=0x000c, text=»VDU200 EQU *«, t00=0x0010, t01=0x001a}
0x1928…194e Head {h00=0x0022, h01=0x0050, text=» CF A14,IOACT PREPARE ECB-BLK «, t00=0x0010, t01=0x002e}
0x194e…1966 Head {h00=0x0014, h01=0x000f, text=» LDKL A7,ECBBLK «, t00=0x0010, t01=0x0054}
0x1966…197a Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0010, t01=0x006c}
0x197a…1986 Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x0010, t01=0x0080}
0x1986…19a4 Head {h00=0x001a, h01=0x0015, text=» DATA 7 MULTIPLE WAIT «, t00=0x0010, t01=0x008c}
0x19a4…19ce Head {h00=0x0026, h01=0x0050, text=» CF A14,IOCPL TAKE CARE OF REQUEST«, t00=0x0010, t01=0x00aa}
0x19ce…19f2 Head {h00=0x0020, h01=0x0050, text=» RB VDU200 HERE WE GO AGAIN «, t00=0x0010, t01=0x00d4}
0x19f2…1a00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00f8}
0x1a00…1a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0106}
0x1a0a…1a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0110}
0x1a14…1a3a Head {h00=0x0022, h01=0x0050, text=»* POSSIBLE LAYOUTS OF ECB-BLK «, t00=0x0010, t01=0x011a}
0x1a3a…1a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0140}
0x1a44…1a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014a}
0x1a4e…1a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0154}
0x1a58…1a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015e}
0x1a62…1a86 Head {h00=0x0020, h01=0x0050, text=»* MODE /0000 /4000«, t00=0x0010, t01=0x0168}
0x1a86…1a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018c}
0x1a90…1a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a9a…1abc Head {h00=0x001e, h01=0x0050, text=»* BLK 2 3«, t00=0x0011, t01=0x0012}
0x1abc…1ae0 Head {h00=0x0020, h01=0x0050, text=»* KB KB «, t00=0x0011, t01=0x0034}
0x1ae0…1b04 Head {h00=0x0020, h01=0x0050, text=»* DC DC «, t00=0x0011, t01=0x0058}
0x1b04…1b28 Head {h00=0x0020, h01=0x0050, text=»* IC «, t00=0x0011, t01=0x007c}
0x1b28…1b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a0}
0x1b32…1b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00aa}
0x1b3c…1b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b4}
0x1b46…1b54 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0011, t01=0x00be}
0x1b54…1b98 Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0011, t01=0x00cc}
0x1b98…1bdc Head {h00=0x0040, h01=0x003c, text=»* *«, t00=0x0011, t01=0x0110}
0x1bdc…1c08 Head {h00=0x0028, h01=0x0050, text=»* IOACT I/O ACTIVATION «, t00=0x0011, t01=0x0154}
0x1c08…1c4c Head {h00=0x0040, h01=0x003c, text=»* *«, t00=0x0011, t01=0x0180}
0x1c4c…1c90 Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0012, t01=0x0034}
0x1c90…1cb0 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x0012, t01=0x0078}
0x1cb0…1cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0098}
0x1cba…1ce6 Head {h00=0x0028, h01=0x0050, text=»* A4= NUMBER OF ENTRIES IN ECB BLOCK«, t00=0x0012, t01=0x00a2}
0x1ce6…1d06 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0012, t01=0x00ce}
0x1d06…1d1e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0012, t01=0x00ee}
0x1d1e…1d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0106}
0x1d28…1d6a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x0110}
0x1d6a…1d7e Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x0012, t01=0x0152}
0x1d7e…1d90 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0012, t01=0x0166}
0x1d90…1daa Head {h00=0x0016, h01=0x0050, text=» LD A1,BSCMOD,A11 «, t00=0x0012, t01=0x0178}
0x1daa…1dd6 (19, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INCREMENT NUMBER OF WAITS «, t00=0x0013, t01=0x0004}
0x1dd6…1e06 Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQ. ALREADY OUTST.?«, t00=0x0013, t01=0x0030}
0x1e06…1e20 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x0013, t01=0x0060}
0x1e20…1e44 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0013, t01=0x007a}
0x1e44…1e60 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x0013, t01=0x009e}
0x1e60…1e74 Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x0013, t01=0x00ba}
0x1e74…1e8a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0013, t01=0x00ce}
0x1e8a…1eb8 Head {h00=0x002a, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY OUTSTANDING? «, t00=0x0013, t01=0x00e4}
0x1eb8…1ed0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) IOAC30 NO«, t00=0x0013, t01=0x0112}
0x1ed0…1edc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x012a}
0x1edc…1f08 Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INCREMENT NUMBER OF WAITS «, t00=0x0013, t01=0x0136}
0x1f08…1f24 Head {h00=0x0018, h01=0x0050, text=» LD A2,ECBBLK+6,A11 «, t00=0x0013, t01=0x0162}
0x1f24…1f58 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) IOAC30 INTERTASK ALREDY OUTSTANDING «, t00=0x0013, t01=0x017e}
0x1f58…1f7e Head {h00=0x0022, h01=0x0050, text=» CF A14,ICVRED READ INTERATSK «, t00=0x0014, t01=0x0022}
0x1f7e…1f9a Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x0014, t01=0x0048}
0x1f9a…1fae Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0014, t01=0x0064}
0x1fae…1fca Head {h00=0x0018, h01=0x0050, text=» ADK A4,1 EVEN MORE «, t00=0x0014, t01=0x0078}
0x1fca…1ff6 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBLK+2,A11 KB OUTSTANDING? «, t00=0x0014, t01=0x0094}
0x1ff6…2010 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC40 YES«, t00=0x0014, t01=0x00c0}
0x2010…2034 Head {h00=0x0020, h01=0x0050, text=» CF A14,READKB READ KEYBOARD«, t00=0x0014, t01=0x00da}
0x2034…2050 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0014, t01=0x00fe}
0x2050…2064 Head {h00=0x0010, h01=0x0050, text=»IOAC40 EQU *«, t00=0x0014, t01=0x011a}
0x2064…2092 Head {h00=0x002a, h01=0x0050, text=» ST A4,ECBBLK,A11 SAVE NUMBER OF WAITS«, t00=0x0014, t01=0x012e}
0x2092…20a2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x015c}
0x20a2…20b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x016c}
0x20b0…20f4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0014, t01=0x017a}
0x20f4…2138 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0015, t01=0x002e}
0x2138…2164 Head {h00=0x0028, h01=0x0050, text=»* IOCPL I/O COMPLETION «, t00=0x0015, t01=0x0072}
0x2164…21a8 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0015, t01=0x009e}
0x21a8…21ec Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x00e2}
0x21ec…2200 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x0126}
0x2200…220a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013a}
0x220a…222a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0015, t01=0x0144}
0x222a…2242 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0015, t01=0x0164}
0x2242…224c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017c}
0x224c…2290 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x0186}
0x2290…22a4 Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x0016, t01=0x003a}
0x22a4…22c8 Head {h00=0x0020, h01=0x0050, text=» CW A8,ECBBLK+2,A11 KB INPUT«, t00=0x0016, t01=0x004e}
0x22c8…22e2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x0016, t01=0x0072}
0x22e2…22fa Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x0016, t01=0x008c}
0x22fa…2320 Head {h00=0x0022, h01=0x0050, text=» CF A14,KBINP TAKE CARE OF KB «, t00=0x0016, t01=0x00a4}
0x2320…2332 Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0016, t01=0x00ca}
0x2332…2346 Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x0016, t01=0x00dc}
0x2346…2366 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC? «, t00=0x0016, t01=0x00f0}
0x2366…2380 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x0016, t01=0x0110}
0x2380…2398 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x0016, t01=0x012a}
0x2398…23be Head {h00=0x0022, h01=0x0050, text=» CF A14,DCINP TAKE CARE OF DC «, t00=0x0016, t01=0x0142}
0x23be…23d0 Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0016, t01=0x0168}
0x23d0…23e4 Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x0016, t01=0x017a}
0x23e4…23fc Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+6,A11«, t00=0x0016, t01=0x018e}
0x23fc…2428 Head {h00=0x0028, h01=0x0050, text=» CF A14,ICINP TAKE CARE OF INTERTASK«, t00=0x0017, t01=0x0016}
0x2428…243c Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x0017, t01=0x0042}
0x243c…244c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x0056}
0x244c…245a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0066}
0x245a…24a2 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0017, t01=0x0074}
0x24a2…24ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00bc}
0x24ac…24da Head {h00=0x002a, h01=0x0050, text=»* MATCH MATCH TASKID AND PHYS. ADDRESS«, t00=0x0017, t01=0x00c6}
0x24da…24e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f4}
0x24e4…252c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0017, t01=0x00fe}
0x252c…2548 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0017, t01=0x0146}
0x2548…2552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0162}
0x2552…255c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016c}
0x255c…25a4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0017, t01=0x0176}
0x25a4…25b8 Head {h00=0x0010, h01=0x0050, text=»MATCH EQU * «, t00=0x0018, t01=0x002e}
0x25b8…25ce Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0018, t01=0x0042}
0x25ce…25fa Head {h00=0x0028, h01=0x0050, text=» LDK A1,NBRTSK GET NUMBER OF ENTRIES«, t00=0x0018, t01=0x0058}
0x25fa…260e Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0018, t01=0x0084}
0x260e…2634 Head {h00=0x0022, h01=0x0050, text=» ADKL A3,TSKTAB START OF TABLE«, t00=0x0018, t01=0x0098}
0x2634…2648 Head {h00=0x0010, h01=0x0050, text=»MATC10 EQU *«, t00=0x0018, t01=0x00be}
0x2648…266a Head {h00=0x001e, h01=0x0050, text=» CC A2,+2,A3 SAME ADDRESS?«, t00=0x0018, t01=0x00d2}
0x266a…2684 Head {h00=0x0016, h01=0x0050, text=» RF(E) MATC30 YES «, t00=0x0018, t01=0x00f4}
0x2684…269a Head {h00=0x0012, h01=0x0050, text=» ADK A3,4 NEXT«, t00=0x0018, t01=0x010e}
0x269a…26b8 Head {h00=0x001a, h01=0x0050, text=» SUK A1,1 ALL CHECKED?«, t00=0x0018, t01=0x0124}
0x26b8…26d2 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) MATC10 NO «, t00=0x0018, t01=0x0142}
0x26d2…26e6 Head {h00=0x0010, h01=0x0050, text=»MATC20 EQU *«, t00=0x0018, t01=0x015c}
0x26e6…270a Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 INDICATE NOT FOUND«, t00=0x0018, t01=0x0170}
0x270a…271c (25, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF MATC90«, t00=0x0019, t01=0x0004}
0x271c…2730 Head {h00=0x0010, h01=0x0050, text=»MATC30 EQU *«, t00=0x0019, t01=0x0016}
0x2730…2742 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0019, t01=0x002a}
0x2742…2772 Head {h00=0x002c, h01=0x0050, text=» CCK A1,VDUCOD COPY IN RIGHT DIRECTION? «, t00=0x0019, t01=0x003c}
0x2772…278c Head {h00=0x0016, h01=0x0050, text=» RB(NE) MATC20 NO «, t00=0x0019, t01=0x006c}
0x278c…279e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0019, t01=0x0086}
0x279e…27b2 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A3 «, t00=0x0019, t01=0x0098}
0x27b2…27c6 Head {h00=0x0010, h01=0x0050, text=»MATC90 EQU *«, t00=0x0019, t01=0x00ac}
0x27c6…27d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00c0}
0x27d2…27e2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x00cc}
0x27e2…27f0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0019, t01=0x00dc}
0x27f0…2834 Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0019, t01=0x00ea}
0x2834…2878 Head {h00=0x0040, h01=0x003c, text=»* *«, t00=0x0019, t01=0x012e}
0x2878…28bc Head {h00=0x0040, h01=0x003c, text=»* INIT INITIALIZE THE TASK *«, t00=0x0019, t01=0x0172}
0x28bc…2900 Head {h00=0x0040, h01=0x003c, text=»* *«, t00=0x001a, t01=0x0026}
0x2900…2944 Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x001a, t01=0x006a}
0x2944…2958 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001a, t01=0x00ae}
0x2958…2962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c2}
0x2962…2982 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001a, t01=0x00cc}
0x2982…299a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001a, t01=0x00ec}
0x299a…29a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0104}
0x29a4…29de Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001a, t01=0x010e}
0x29de…29f0 Head {h00=0x000e, h01=0x000a, text=»INIT EQU *«, t00=0x001a, t01=0x0148}
0x29f0…2a12 Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x001a, t01=0x015a}
0x2a12…2a2c Head {h00=0x0016, h01=0x0050, text=» IFT OFLIN=1 . =3 «, t00=0x001a, t01=0x017c}
0x2a2c…2a5e Head {h00=0x002e, h01=0x0050, text=» LD A1,2,A14 SAVE A12&A13 ON A14-STACK =3 «, t00=0x001b, t01=0x0008}
0x2a5e…2a78 Head {h00=0x0016, h01=0x0050, text=» LD A2,4,A14 . =3 «, t00=0x001b, t01=0x003a}
0x2a78…2a92 Head {h00=0x0016, h01=0x0050, text=» ST A12,4,A14 . =3«, t00=0x001b, t01=0x0054}
0x2a92…2aac Head {h00=0x0016, h01=0x0050, text=» ST A13,2,A14 . =3«, t00=0x001b, t01=0x006e}
0x2aac…2ac4 Head {h00=0x0014, h01=0x0050, text=» STR A2,A14 . =3«, t00=0x001b, t01=0x0088}
0x2ac4…2ade Head {h00=0x0016, h01=0x0050, text=» ST A1,-2,A14 . =3«, t00=0x001b, t01=0x00a0}
0x2ade…2b0a Head {h00=0x0028, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER =3 «, t00=0x001b, t01=0x00ba}
0x2b0a…2b1c Head {h00=0x000e, h01=0x0050, text=» XIF . =3«, t00=0x001b, t01=0x00e6}
0x2b1c…2b40 Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x001b, t01=0x00f8}
0x2b40…2b66 Head {h00=0x0022, h01=0x0050, text=» CF A14,TSTDEV TEST KB&VDU =4 «, t00=0x001b, t01=0x011c}
0x2b66…2b82 Head {h00=0x0018, h01=0x0050, text=» CF A14,OPEN OPEN DC«, t00=0x001b, t01=0x0142}
0x2b82…2b96 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x001b, t01=0x015e}
0x2b96…2ba2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x0172}
0x2ba2…2bb2 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x001b, t01=0x017e}
0x2bb2…2bd2 Head {h00=0x001c, h01=0x0050, text=» CF A14,CONCT CONNECT DC«, t00=0x001b, t01=0x018e}
0x2bd2…2bfc Head {h00=0x0026, h01=0x0050, text=» CF A14,SETTIM SET REQUEST TIMEOUT«, t00=0x001c, t01=0x001e}
0x2bfc…2c2a Head {h00=0x002a, h01=0x0050, text=» LDK A2,NBRTSK NUMBER OF TASK ENTRIES «, t00=0x001c, t01=0x0048}
0x2c2a…2c5a Head {h00=0x002c, h01=0x0050, text=» LD A9,REGI,A11 RESTORE TASKTAB ADDRESS «, t00=0x001c, t01=0x0076}
0x2c5a…2c6e Head {h00=0x0010, h01=0x0050, text=»INIT10 EQU *«, t00=0x001c, t01=0x00a6}
0x2c6e…2c80 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x00ba}
0x2c80…2c96 Head {h00=0x0012, h01=0x0050, text=» RF(N) INIT20 «, t00=0x001c, t01=0x00cc}
0x2c96…2ca8 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,4«, t00=0x001c, t01=0x00e2}
0x2ca8…2cba Head {h00=0x000e, h01=0x0050, text=» LCR A1,A9«, t00=0x001c, t01=0x00f4}
0x2cba…2cde Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF ANY TASK AT ALL?«, t00=0x001c, t01=0x0106}
0x2cde…2cf6 Head {h00=0x0014, h01=0x0050, text=» RB(Z) INIT10 NO«, t00=0x001c, t01=0x012a}
0x2cf6…2d18 Head {h00=0x001e, h01=0x0050, text=» CCK A1,'VV' DISPLAY TASK?«, t00=0x001c, t01=0x0142}
0x2d18…2d32 Head {h00=0x0016, h01=0x0050, text=» RB(E) INIT10 YES «, t00=0x001c, t01=0x0164}
0x2d32…2d44 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x001c, t01=0x017e}
0x2d44…2d58 Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A9«, t00=0x001c, t01=0x0190}
0x2d58…2d70 Head {h00=0x0014, h01=0x0050, text=» ST A1,PRTID,A11«, t00=0x001d, t01=0x0014}
0x2d70…2d84 Head {h00=0x0010, h01=0x0050, text=»INIT20 EQU *«, t00=0x001d, t01=0x002c}
0x2d84…2d98 Head {h00=0x0010, h01=0x000c, text=» IFT OFLIN=1«, t00=0x001d, t01=0x0040}
0x2d98…2da8 Head {h00=0x000c, h01=0x0050, text=» . =3 «, t00=0x001d, t01=0x0054}
0x2da8…2db8 Head {h00=0x000c, h01=0x0050, text=» . =3 «, t00=0x001d, t01=0x0064}
0x2db8…2dc8 Head {h00=0x000c, h01=0x0050, text=» . =3 «, t00=0x001d, t01=0x0074}
0x2dc8…2dd8 Head {h00=0x000c, h01=0x0050, text=» . =3 «, t00=0x001d, t01=0x0084}
0x2dd8…2de8 Head {h00=0x000c, h01=0x0050, text=» . =3 «, t00=0x001d, t01=0x0094}
0x2de8…2df8 Head {h00=0x000c, h01=0x0050, text=» . =3 «, t00=0x001d, t01=0x00a4}
0x2df8…2e08 Head {h00=0x000c, h01=0x0050, text=» . =3 «, t00=0x001d, t01=0x00b4}
0x2e08…2e1e Head {h00=0x0012, h01=0x0050, text=» CM OFFFLG,A11«, t00=0x001d, t01=0x00c4}
0x2e1e…2e4a Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF OFFLINE LAMP«, t00=0x001d, t01=0x00da}
0x2e4a…2e56 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x001d, t01=0x0106}
0x2e56…2e68 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001d, t01=0x0112}
0x2e68…2e94 Head {h00=0x0028, h01=0x0050, text=» LDKL A5,LBVDU+1 UNFORMATTED SCREEN «, t00=0x001d, t01=0x0124}
0x2e94…2ea6 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001d, t01=0x0150}
0x2ea6…2ed4 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x001d, t01=0x0162}
0x2ed4…2f00 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASE ERASE THE WHOLE SCREEN«, t00=0x001d, t01=0x0190}
0x2f00…2f16 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001e, t01=0x002c}
0x2f16…2f38 Head {h00=0x001e, h01=0x0050, text=» LD A1,MAIN,A11 DC LINE 1?«, t00=0x001e, t01=0x0042}
0x2f38…2f52 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INIT30 YES «, t00=0x001e, t01=0x0064}
0x2f52…2f7c Head {h00=0x0026, h01=0x0050, text=» CF A14,LMP2ON INDICATE DC LINE 2 «, t00=0x001e, t01=0x007e}
0x2f7c…2f8e Head {h00=0x000e, h01=0x0050, text=» RF INIT40«, t00=0x001e, t01=0x00a8}
0x2f8e…2fa2 Head {h00=0x0010, h01=0x0050, text=»INIT30 EQU *«, t00=0x001e, t01=0x00ba}
0x2fa2…2fae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00ce}
0x2fae…2fd8 Head {h00=0x0026, h01=0x0050, text=» CF A14,LMP1ON INDICATE DC LINE 1 «, t00=0x001e, t01=0x00da}
0x2fd8…2fec Head {h00=0x0010, h01=0x0050, text=»INIT40 EQU *«, t00=0x001e, t01=0x0104}
0x2fec…3014 Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK IF LINE OK «, t00=0x001e, t01=0x0118}
0x3014…3024 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x001e, t01=0x0140}
0x3024…3032 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0150}
0x3032…3074 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x001e, t01=0x015e}
0x3074…30b6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0010}
0x30b6…30f8 Head {h00=0x003e, h01=0x0050, text=»* COMINI COMMON INIT ROUTINE *«, t00=0x001f, t01=0x0052}
0x30f8…313a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0094}
0x313a…317c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x001f, t01=0x00d6}
0x317c…319e Head {h00=0x001e, h01=0x0050, text=»* REGISTERS «, t00=0x001f, t01=0x0118}
0x319e…31a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013a}
0x31a8…31c8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001f, t01=0x0144}
0x31c8…31e0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001f, t01=0x0164}
0x31e0…31ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017c}
0x31ea…322c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x001f, t01=0x0186}
0x322c…3240 Head {h00=0x0010, h01=0x0050, text=»COMINI EQU *«, t00=0x0020, t01=0x0038}
0x3240…3256 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0020, t01=0x004c}
0x3256…327e Head {h00=0x0024, h01=0x0050, text=» LDR A11,A9 LOAD TASK AREA BASE «, t00=0x0020, t01=0x0062}
0x327e…329e Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A11 GET TASKID «, t00=0x0020, t01=0x008a}
0x329e…32c4 Head {h00=0x0022, h01=0x0050, text=» LD A3,6,A13 COMMON BLOCK BASE«, t00=0x0020, t01=0x00aa}
0x32c4…32d6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x00d0}
0x32d6…32ec Head {h00=0x0012, h01=0x0050, text=» ANK A1,X'FF' «, t00=0x0020, t01=0x00e2}
0x32ec…331a Head {h00=0x002a, h01=0x0050, text=» SUK A1,X'30' GET OFFSET IN TASK TABLE«, t00=0x0020, t01=0x00f8}
0x331a…333e Head {h00=0x0020, h01=0x0050, text=» SLL A1,2 TWO WORDS ENTRIES «, t00=0x0020, t01=0x0126}
0x333e…3356 Head {h00=0x0014, h01=0x0050, text=» LDKL A4,TSKTAB «, t00=0x0020, t01=0x014a}
0x3356…3368 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0020, t01=0x0162}
0x3368…338e Head {h00=0x0022, h01=0x0050, text=» ADR A1,A4 POINT TO YOUR LABLE«, t00=0x0020, t01=0x0174}
0x338e…33ba Head {h00=0x0028, h01=0x0050, text=» ST A1,REGI,A11 SAVE TASKTAB ADDRESS«, t00=0x0021, t01=0x000a}
0x33ba…33da Head {h00=0x001c, h01=0x0050, text=» SC A2,+1,A1 SAVE TASKID«, t00=0x0021, t01=0x0036}
0x33da…33ec Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0021, t01=0x0056}
0x33ec…33fe Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x0021, t01=0x0068}
0x33fe…3426 Head {h00=0x0024, h01=0x0050, text=» CCK A2,VDUCOD DISPLAY TASK? =2 «, t00=0x0021, t01=0x007a}
0x3426…3444 Head {h00=0x001a, h01=0x0050, text=» RF(E) COMI10 YES! =2 «, t00=0x0021, t01=0x00a2}
0x3444…345a Head {h00=0x0012, h01=0x0050, text=» LDK A2,1 . =2«, t00=0x0021, t01=0x00c0}
0x345a…3486 Head {h00=0x0028, h01=0x0050, text=» SC A2,+3,A1 IND. PRINTER NOT OP =2 «, t00=0x0021, t01=0x00d6}
0x3486…34a0 Head {h00=0x0016, h01=0x0050, text=»COMI10 EQU * . =2 «, t00=0x0021, t01=0x0102}
0x34a0…34b0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x011c}
0x34b0…34be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x012c}
0x34be…34c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013a}
0x34c8…34d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0144}
0x34d2…34ec Head {h00=0x0016, h01=0x0050, text=»* ECB TABLE LAYOUT«, t00=0x0021, t01=0x014e}
0x34ec…34f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0168}
0x34f6…3500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0172}
0x3500…350a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x017c}
0x350a…3542 Head {h00=0x0034, h01=0x0050, text=»* DISPLACEMENT I/O FILECODE «, t00=0x0021, t01=0x0186}
0x3542…354c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x002e}
0x354c…3582 Head {h00=0x0032, h01=0x0050, text=»* 0 KB /20 «, t00=0x0022, t01=0x0038}
0x3582…35b8 Head {h00=0x0032, h01=0x0050, text=»* 2 PRINTER /30 «, t00=0x0022, t01=0x006e}
0x35b8…35ee Head {h00=0x0032, h01=0x0050, text=»* 4 SIGNAL/DISP. /40 «, t00=0x0022, t01=0x00a4}
0x35ee…3624 Head {h00=0x0032, h01=0x0050, text=»* 6 VDU /42 «, t00=0x0022, t01=0x00da}
0x3624…365a Head {h00=0x0032, h01=0x0050, text=»* 8 INTERTASK R. /50 «, t00=0x0022, t01=0x0110}
0x365a…3690 Head {h00=0x0032, h01=0x0050, text=»* 10 INTERTASK W. /51 «, t00=0x0022, t01=0x0146}
0x3690…36c6 Head {h00=0x0032, h01=0x0050, text=»* 12 DC LINE 1 /61 «, t00=0x0022, t01=0x017c}
0x36c6…36fc Head {h00=0x0032, h01=0x0050, text=»* 14 DC LINE 2 /62 «, t00=0x0023, t01=0x0022}
0x36fc…3706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0058}
0x3706…3710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0062}
0x3710…371a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006c}
0x371a…3724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0076}
0x3724…3732 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0080}
0x3732…3778 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0023, t01=0x008e}
0x3778…37be Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0023, t01=0x00d4}
0x37be…3804 Head {h00=0x0042, h01=0x0050, text=»* ECBINI INIT OF ECB:S * «, t00=0x0023, t01=0x011a}
0x3804…384a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0160}
0x384a…3890 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x0016}
0x3890…38ac Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0024, t01=0x005c}
0x38ac…38b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0078}
0x38b6…38d6 Head {h00=0x001c, h01=0x0050, text=»* A4 = NUMBER OF ENTRIES«, t00=0x0024, t01=0x0082}
0x38d6…38fa Head {h00=0x0020, h01=0x0050, text=»* A5 = NUMBER OF FC ALLOWED «, t00=0x0024, t01=0x00a2}
0x38fa…3914 Head {h00=0x0016, h01=0x0050, text=»* A6 = DAT POINTER«, t00=0x0024, t01=0x00c6}
0x3914…3932 Head {h00=0x001a, h01=0x0050, text=»* A7 = ECB FC POINTER «, t00=0x0024, t01=0x00e0}
0x3932…3952 Head {h00=0x001c, h01=0x0050, text=»* A8 = DATA SET POINTER «, t00=0x0024, t01=0x00fe}
0x3952…3972 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0024, t01=0x011e}
0x3972…398a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0024, t01=0x013e}
0x398a…3994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0156}
0x3994…39d8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0024, t01=0x0160}
0x39d8…39ec Head {h00=0x0010, h01=0x0050, text=»ECBINI EQU *«, t00=0x0025, t01=0x0014}
0x39ec…3a12 Head {h00=0x0022, h01=0x0050, text=» LD A2,-8,A13 GET T:D ADDRESS «, t00=0x0025, t01=0x0028}
0x3a12…3a3c Head {h00=0x0026, h01=0x0050, text=» LD A4,+4,A2 GET NUMBER OF ENTRIES«, t00=0x0025, t01=0x004e}
0x3a3c…3a50 Head {h00=0x0010, h01=0x0050, text=» LD A8,+6,A2«, t00=0x0025, t01=0x0078}
0x3a50…3a64 Head {h00=0x0010, h01=0x0050, text=» ADR A8,A13 «, t00=0x0025, t01=0x008c}
0x3a64…3a82 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A8 DAT POINTER«, t00=0x0025, t01=0x00a0}
0x3a82…3aa6 Head {h00=0x0020, h01=0x0050, text=» SUKL A8,20 DATA SET POINTER«, t00=0x0025, t01=0x00be}
0x3aa6…3aba Head {h00=0x0010, h01=0x0050, text=»ECBI10 EQU *«, t00=0x0025, t01=0x00e2}
0x3aba…3ade Head {h00=0x0020, h01=0x0050, text=» LD A5,ECBIND NUMBER OF FC:S«, t00=0x0025, t01=0x00f6}
0x3ade…3b08 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,ECBIND+2 FIRST FILE CODE «, t00=0x0025, t01=0x011a}
0x3b08…3b28 Head {h00=0x001c, h01=0x0050, text=» LC A2,+1,A6 DATA SET FC«, t00=0x0025, t01=0x0144}
0x3b28…3b3c Head {h00=0x0010, h01=0x0050, text=»ECBI20 EQU *«, t00=0x0025, t01=0x0164}
0x3b3c…3b6a Head {h00=0x002a, h01=0x0050, text=» CCR A2,A7 FC IN DAT = FC CONFIGURED? «, t00=0x0025, t01=0x0178}
0x3b6a…3b84 Head {h00=0x0016, h01=0x0050, text=» RF(E) ECBI30 YES «, t00=0x0026, t01=0x0016}
0x3b84…3b9a Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 NEXT«, t00=0x0026, t01=0x0030}
0x3b9a…3bb6 Head {h00=0x0018, h01=0x0050, text=» SUK A5,1 NOT FOUND?«, t00=0x0026, t01=0x0046}
0x3bb6…3bd4 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ECBI20 NOT YET«, t00=0x0026, t01=0x0062}
0x3bd4…3bf2 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,* DIAGNOSTIC «, t00=0x0026, t01=0x0080}
0x3bf2…3c0a Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0026, t01=0x009e}
0x3c0a…3c16 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x00b6}
0x3c16…3c36 Head {h00=0x001c, h01=0x0050, text=» DATA 3 WRONG GENERATION«, t00=0x0026, t01=0x00c2}
0x3c36…3c4a Head {h00=0x0010, h01=0x0050, text=»ECBI30 EQU *«, t00=0x0026, t01=0x00e2}
0x3c4a…3c72 Head {h00=0x0024, h01=0x0050, text=» SC A2,+1,A8 SAVE FC IN DATA SET«, t00=0x0026, t01=0x00f6}
0x3c72…3c9e Head {h00=0x0028, h01=0x0050, text=» LD A2,+2,A6 GET FIXED LENGTH IF ANY«, t00=0x0026, t01=0x011e}
0x3c9e…3cc4 Head {h00=0x0022, h01=0x0050, text=» ST A2,+4,A8 SAVE IN DATA SET «, t00=0x0026, t01=0x014a}
0x3cc4…3cf2 Head {h00=0x002a, h01=0x0050, text=» LD A2,+18,A8 GET FIXED BUFFER IF ANY «, t00=0x0026, t01=0x0170}
0x3cf2…3d18 Head {h00=0x0022, h01=0x0050, text=» ST A2,+2,A8 SAVE IN DATA SET «, t00=0x0027, t01=0x000e}
0x3d18…3d44 Head {h00=0x0028, h01=0x0050, text=» LC A2,+1,A7 GET INDEX TO ECB TABLE «, t00=0x0027, t01=0x0034}
0x3d44…3d58 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x0060}
0x3d58…3d6c Head {h00=0x0010, h01=0x0050, text=» ADR A2,A11 «, t00=0x0027, t01=0x0074}
0x3d6c…3d96 Head {h00=0x0026, h01=0x0050, text=» ST A8,ECBTAB,A2 SAVE ECB ADDRESS «, t00=0x0027, t01=0x0088}
0x3d96…3da8 Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0027, t01=0x00b2}
0x3da8…3dbc Head {h00=0x0010, h01=0x0050, text=» SUKL A8,20 «, t00=0x0027, t01=0x00c4}
0x3dbc…3dd8 Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 ALL DONE? «, t00=0x0027, t01=0x00d8}
0x3dd8…3df2 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ECBI10 NO «, t00=0x0027, t01=0x00f4}
0x3df2…3e02 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0027, t01=0x010e}
0x3e02…3e10 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0027, t01=0x011e}
0x3e10…3e56 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0027, t01=0x012c}
0x3e56…3e9c Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0027, t01=0x0172}
0x3e9c…3ee2 Head {h00=0x0042, h01=0x003d, text=»* TSTDEV TEST KEYBOARD AND DISPLAY * «, t00=0x0028, t01=0x0028}
0x3ee2…3f28 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0028, t01=0x006e}
0x3f28…3f6e Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0028, t01=0x00b4}
0x3f6e…3f82 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0028, t01=0x00fa}
0x3f82…3f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x010e}
0x3f8c…3fac Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0028, t01=0x0118}
0x3fac…3fc4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0028, t01=0x0138}
0x3fc4…3fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0150}
0x3fce…4008 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0028, t01=0x015a}
0x4008…401c (41, 0, 400) Head {h00=0x0010, h01=0x000c, text=»TSTDEV EQU *«, t00=0x0029, t01=0x0004}
0x401c…404c Head {h00=0x002c, h01=0x0028, text=» CF A14,SOUND TURN ON SOUND ALARM AT VDU«, t00=0x0029, t01=0x0018}
0x404c…4068 Head {h00=0x0018, h01=0x0014, text=» ANK A1,/1 OPERABLE?«, t00=0x0029, t01=0x0048}
0x4068…4082 Head {h00=0x0016, h01=0x0011, text=» RF(Z) TSTD10 YES «, t00=0x0029, t01=0x0064}
0x4082…40ae Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP5ON TRY TO INDICATE ERROR«, t00=0x0029, t01=0x007e}
0x40ae…40c8 Head {h00=0x0016, h01=0x0050, text=» LDKL A8,300 WAIT «, t00=0x0029, t01=0x00aa}
0x40c8…40d4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0029, t01=0x00c4}
0x40d4…40e4 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0029, t01=0x00d0}
0x40e4…4100 Head {h00=0x0018, h01=0x0014, text=» RB TSTDEV TRY AGAIN«, t00=0x0029, t01=0x00e0}
0x4100…4114 Head {h00=0x0010, h01=0x000c, text=»TSTD10 EQU *«, t00=0x0029, t01=0x00fc}
0x4114…413a Head {h00=0x0022, h01=0x0050, text=» CF A14,LMP5OF ERROR LAMP OFF «, t00=0x0029, t01=0x0110}
0x413a…4156 Head {h00=0x0018, h01=0x0014, text=» ANK A1,/1 OPERABLE?«, t00=0x0029, t01=0x0136}
0x4156…4170 Head {h00=0x0016, h01=0x0011, text=» RF(Z) TSTD90 YES «, t00=0x0029, t01=0x0152}
0x4170…4194 Head {h00=0x0020, h01=0x001c, text=» CF A14,SOUND INDICATE ERROR«, t00=0x0029, t01=0x016c}
0x4194…41ae Head {h00=0x0016, h01=0x0050, text=» LDKL A8,300 WAIT «, t00=0x0029, t01=0x0190}
0x41ae…41ba Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x001a}
0x41ba…41ca Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x002a, t01=0x0026}
0x41ca…41e6 Head {h00=0x0018, h01=0x0014, text=» RB TSTD10 TRY AGAIN«, t00=0x002a, t01=0x0036}
0x41e6…41fa Head {h00=0x0010, h01=0x000c, text=»TSTD90 EQU *«, t00=0x002a, t01=0x0052}
0x41fa…421e Head {h00=0x0020, h01=0x001c, text=» CF A14,RESKB RESET KEYBOARD«, t00=0x002a, t01=0x0066}
0x421e…422e Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x002a, t01=0x008a}
0x422e…4236 Head {h00=0x0004, h01=0x0002, t00=0x002a, t01=0x009a}
0x4236…4242 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x002a, t01=0x00a2}
0x4242…4246 Head {h00=0x4004, h01=0x0000}
0x4246…424a 00 2a 00 ae ┆ * ┆
0x424a…4252 (43, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x4252…42a2 (44, 0, 400) 42 5c 44 57 54 27 53 20 54 41 42 4c 45 20 4c 45 4e 47 54 48 00 6b 01 84 00 2c 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 38 30 30 30 5c 4d 41 53 4b 20 54 4f 20 52 45 53 45 54 20 44 57 54 20 53 54 41 54 55 53 20 00 6c 00 1c 00 2c 00 50 5c 4c 44 4b ┆B DWT'S TABLE LENGTH k , P LDKL A2,/8000 MASK TO RESET DWT STATUS l , P LDK┆
0x42a2…42f2 5c 41 31 2c 4d 4f 44 4e 4f 50 5c 52 45 54 55 52 4e 20 43 4f 44 45 3a 20 4d 4f 44 45 4d 20 4e 4f 54 20 4f 50 00 6c 00 4c 00 10 00 50 44 52 4d 30 30 30 5c 45 51 55 5c 2a 00 6c 00 7c 00 0e 00 50 5c 53 55 4b 5c 41 33 2c 32 20 00 6c 00 90 00 1e ┆ A1,MODNOP RETURN CODE: MODEM NOT OP l L PDRM000 EQU * l | P SUK A3,2 l ┆
0x42f2…4342 00 50 5c 52 46 28 5a 29 5c 44 52 4d 33 30 30 5c 45 4e 44 20 4f 46 20 54 41 42 4c 45 00 6c 00 a2 00 20 00 50 5c 4c 44 5c 41 36 2c 44 57 4d 54 41 42 2c 41 33 5c 44 57 54 20 41 44 44 52 45 53 53 00 6c 00 c4 00 26 00 50 5c 41 4e 53 5c 41 32 2c ┆ P RF(Z) DRM300 END OF TABLE l P LD A6,DWMTAB,A3 DWT ADDRESS l & P ANS A2,┆
0x4342…4392 44 57 54 53 54 2c 41 36 5c 52 45 53 45 54 20 44 57 54 20 53 54 41 54 55 53 20 00 6c 00 e8 00 28 00 50 5c 52 46 28 4e 29 5c 44 52 4d 31 30 30 5c 4e 4f 20 49 4e 43 4f 4d 50 4c 45 54 45 44 20 52 45 51 55 45 53 54 00 6c 01 12 00 28 00 50 5c 43 ┆DWTST,A6 RESET DWT STATUS l ( P RF(N) DRM100 NO INCOMPLETED REQUEST l ( P C┆
0x4392…43e2 46 5c 41 31 35 2c 54 45 4e 44 49 4f 5c 43 4f 4d 50 4c 45 54 45 20 52 45 51 55 45 53 54 20 57 49 54 48 00 6c 01 3e 00 1c 00 50 5c 5c 5c 52 45 54 55 52 4e 20 43 4f 44 45 20 41 53 20 41 42 4f 56 45 20 00 6c 01 6a 00 10 00 50 44 52 4d 31 30 30 ┆F A15,TENDIO COMPLETE REQUEST WITH l > P RETURN CODE AS ABOVE l j PDRM100┆