|
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: 17334 (0x43b6)
Notes: pts_type(SC)
Names: »DSPBSC.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »MODIFY/DSPBSC.SC«
IDENT DSPBSC REL 11.0 811101DK 870150541100 ************************************************************* * * * 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) EXTRN READK2 READ NUMERIC KEYB'RD, NO-WAIT (KEYB) EXTRN KBINP2 ROUTINE FOR 2ND. KEYBOARD EJECT ************************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ************************************************************* X:B EQU 15 NUMBER OF TASKS (1- ) NBRTSK EQU 16 X:C EQU 0 OFFLINE HANDLING IF :=1 OFLIN EQU 0 X:D EQU 1 NUMBER OF LINES (1-2) NBRLIN EQU 1 X:M EQU 0 COPY COMMNAND INCLUDED IF:=1 COPCMD EQU 1 X:O EQU 0 TEST INCLUDED IF:=1 TEST EQU 0 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'210E' ECB FOR NUMERIC KB DK * * 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 * CF A14,INIT INITIALIZE THE TASK CF A14,TSTDEV TEST KEYBOARD AND DISPLAY 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,1 COUNT NUMBER OF I-O'S LD A1,BSCMOD,A11 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 LD A2,ECBBLK+8,A11 RF(NZ) IOAC30 INTERTASK ALREDY OUTSTANDING CF A14,ICVRED READ INTERATSK ST A8,ECBBLK+8,A11 IOAC30 EQU * ADK A4,1 LD A2,ECBBLK+2,A11 KB OUTSTANDING? RF(NZ) IOAC35 YES CF A14,READKB READ KEYBOARD ST A8,ECBBLK+2,A11 IOAC35 EQU * * SECOND KEYBOARD HANDLING 81-10-18 DK * ADK A4,1 LD A2,ECBBLK+6,A11 KB2 OUTSTANDING RF(NZ) IOAC40 YES CF A14,READK2 READ SECOND KEYBOARD ST A8,ECBBLK+6,A11 ** END DK ** 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) IOCP05 NO CM ECBBLK+2,A11 CF A14,KBINP TAKE CARE OF KB RF IOCP90 ** SECOND KEYBOARD HANDLING P & T,81-10-19 DK ** IOCP05 EQU * CW A8,ECBBLK+6,A11 KB2 INPUT ? RF(NE) IOCP10 NO CM ECBBLK+6,A11 CF A14,KBINP2 TAKE CARE OF KB2 RF IOCP90 ** END DK P & T ** 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+8,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 CF A14,ECBINI INIT OF ECB:S 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 LD A1,2,A14 LD A2,4,A14 ST A12,4,A14 ST A13,2,A14 STR A2,A14 ST A1,-2,A14 SUKL A14,4 UPDATE STACK POINTER 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 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 RTN A14 END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DSPBSC REL 11.0 811101DK 870150541100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0082 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x0040}
0x0082…00c8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0086}
0x00c8…010e Head {h00=0x0042, h01=0x0050, text=»* MODULE DSPBSC * «, t00=0x0000, t01=0x00cc}
0x010e…0154 Head {h00=0x0042, h01=0x0050, text=»* MODULE HANDLING THE START UP OF THE * «, t00=0x0000, t01=0x0112}
0x0154…019a Head {h00=0x0042, h01=0x0050, text=»* VDUKB TASK, CONTROLLING SNA MODES * «, t00=0x0000, t01=0x0158}
0x019a…01e0 Head {h00=0x0042, h01=0x0050, text=»* AND MULTIPLE WAIT FOR KB AND DC. * «, t00=0x0001, t01=0x000e}
0x01e0…0220 Head {h00=0x003c, h01=0x0050, text=»* (EMULATION 3270 BSC) *«, t00=0x0001, t01=0x0054}
0x0220…0266 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0094}
0x0266…02ac Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x00da}
0x02ac…02ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0120}
0x02ba…0302 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x012e}
0x0302…034a Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0176}
0x034a…0392 Head {h00=0x0044, h01=0x0050, text=»* LIST OF ROUTINES *«, t00=0x0002, t01=0x002e}
0x0392…03da Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0076}
0x03da…0422 Head {h00=0x0044, h01=0x0050, text=»* VDUKB MAIN ROUTINE *«, t00=0x0002, t01=0x00be}
0x0422…044a Head {h00=0x0024, h01=0x0050, text=»* IOACT I/O ACTIVATION«, t00=0x0002, t01=0x0106}
0x044a…0472 Head {h00=0x0024, h01=0x0050, text=»* IOCPL I/O COMPLETION«, t00=0x0002, t01=0x012e}
0x0472…04a4 Head {h00=0x002e, h01=0x0050, text=»* MATCH MATCH ADDRESS AND TASKID«, t00=0x0002, t01=0x0156}
0x04a4…04ec Head {h00=0x0044, h01=0x0050, text=»* INIT INITIALIZE THE TASK *«, t00=0x0002, t01=0x0188}
0x04ec…051a Head {h00=0x002a, h01=0x0050, text=»* COMINI COMMON INIT ROUTINE «, t00=0x0003, t01=0x0040}
0x051a…0542 Head {h00=0x0024, h01=0x0050, text=»* ECBINI INIT OF ECB:S «, t00=0x0003, t01=0x006e}
0x0542…058a Head {h00=0x0044, h01=0x0050, text=»* TSTDEV TEST KEYBOARD AND DISPLAY *«, t00=0x0003, t01=0x0096}
0x058a…05d2 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0003, t01=0x00de}
0x05d2…061a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0003, t01=0x0126}
0x061a…0628 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x016e}
0x0628…066a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0003, t01=0x017c}
0x066a…06ac Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0004, t01=0x002e}
0x06ac…06ee Head {h00=0x003e, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x0004, t01=0x0070}
0x06ee…0730 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0004, t01=0x00b2}
0x0730…0772 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x00f4}
0x0772…077a Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0136}
0x077a…07ae Head {h00=0x0030, h01=0x0050, text=» ENTRY VDUKB START LABEL FROM DATSNA(CREDIT)«, t00=0x0004, t01=0x013e}
0x07ae…07d8 Head {h00=0x0026, h01=0x0050, text=» ENTRY COMINI COMMON INIT ROUTINE «, t00=0x0004, t01=0x0172}
0x07d8…07fc Head {h00=0x0020, h01=0x0050, text=» ENTRY ECBINI INIT OF ECB:S «, t00=0x0005, t01=0x000c}
0x07fc…082e Head {h00=0x002e, h01=0x0050, text=» ENTRY MATCH MATCH TASID AND PHYS. ADDRESS«, t00=0x0005, t01=0x0030}
0x082e…0836 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0062}
0x0836…0878 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x006a}
0x0878…08ba Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0005, t01=0x00ac}
0x08ba…08fc Head {h00=0x003e, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x0005, t01=0x00ee}
0x08fc…093e Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0130}
0x093e…0980 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x0172}
0x0980…0988 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0024}
0x0988…09b8 Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0006, t01=0x002c}
0x09b8…09dc Head {h00=0x0020, h01=0x0050, text=» EXTRN OPEN OPEN DC (DCBSC) «, t00=0x0006, t01=0x005c}
0x09dc…0a04 Head {h00=0x0024, h01=0x0050, text=» EXTRN CONCT CONNECT DC (DCBSC) «, t00=0x0006, t01=0x0080}
0x0a04…0a36 Head {h00=0x002e, h01=0x0050, text=» EXTRN SETTIM SET REQUEST TIMEOUT (DCBSC) «, t00=0x0006, t01=0x00a8}
0x0a36…0a6c Head {h00=0x0032, h01=0x0050, text=» EXTRN ERASE ERASE SCREEN AND VDU BUFFER (VDU)«, t00=0x0006, t01=0x00da}
0x0a6c…0a9e Head {h00=0x002e, h01=0x0050, text=» EXTRN TSTMES TEST IF ANY MESSAGE (DCSNA) «, t00=0x0006, t01=0x0110}
0x0a9e…0ad6 Head {h00=0x0034, h01=0x0050, text=» EXTRN READKB READ KEYBOARD WITH NO WAIT (KEYB) «, t00=0x0006, t01=0x0142}
0x0ad6…0b0e Head {h00=0x0034, h01=0x0050, text=» EXTRN KBINP MAIN ROUTINE IN KEYB-MODULE (KEYB) «, t00=0x0006, t01=0x017a}
0x0b0e…0b48 Head {h00=0x0036, h01=0x0050, text=» EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) «, t00=0x0007, t01=0x0022}
0x0b48…0b76 Head {h00=0x002a, h01=0x0050, text=» EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) «, t00=0x0007, t01=0x005c}
0x0b76…0b9c Head {h00=0x0022, h01=0x0050, text=» EXTRN LMP1ON DC LINE 1 (KEYB)«, t00=0x0007, t01=0x008a}
0x0b9c…0bc2 Head {h00=0x0022, h01=0x0050, text=» EXTRN LMP2ON DC LINE 2 (KEYB)«, t00=0x0007, t01=0x00b0}
0x0bc2…0bf4 Head {h00=0x002e, h01=0x0050, text=» EXTRN SOUND SOUND ALARM AT DISPLAY (VDU) «, t00=0x0007, t01=0x00d6}
0x0bf4…0c1e Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP5ON ERROR LAMP ON (KEYB)«, t00=0x0007, t01=0x0108}
0x0c1e…0c4a Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP5OF ERROR LAMP OFF (KEYB) «, t00=0x0007, t01=0x0132}
0x0c4a…0c7c Head {h00=0x002e, h01=0x0050, text=» EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) «, t00=0x0007, t01=0x015e}
0x0c7c…0cb0 Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x0007, t01=0x0190}
0x0cb0…0cdc Head {h00=0x0028, h01=0x0050, text=» EXTRN ICVRED INTERTASK READ (KEYB) «, t00=0x0008, t01=0x0034}
0x0cdc…0d08 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICINP INTERTASK INPUT (KEYB) «, t00=0x0008, t01=0x0060}
0x0d08…0d36 Head {h00=0x002a, h01=0x0050, text=» EXTRN CHKSTA CHECK DC STATUS (DCBSC) «, t00=0x0008, t01=0x008c}
0x0d36…0d70 Head {h00=0x0036, h01=0x0050, text=» EXTRN READK2 READ NUMERIC KEYB'RD, NO-WAIT (KEYB)«, t00=0x0008, t01=0x00ba}
0x0d70…0da0 Head {h00=0x002c, h01=0x0050, text=» EXTRN KBINP2 ROUTINE FOR 2ND. KEYBOARD «, t00=0x0008, t01=0x00f4}
0x0da0…0dae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0124}
0x0dae…0df4 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0008, t01=0x0132}
0x0df4…0e3a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0008, t01=0x0178}
0x0e3a…0e80 Head {h00=0x0042, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0009, t01=0x002e}
0x0e80…0ec6 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0074}
0x0ec6…0f0c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0009, t01=0x00ba}
0x0f0c…0f14 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0100}
0x0f14…0f3c Head {h00=0x0024, h01=0x0050, text=»X:B EQU 15 NUMBER OF TASKS (1- )«, t00=0x0009, t01=0x0108}
0x0f3c…0f52 Head {h00=0x0012, h01=0x0050, text=»NBRTSK EQU 16 «, t00=0x0009, t01=0x0130}
0x0f52…0f7c Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x0009, t01=0x0146}
0x0f7c…0f90 Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x0009, t01=0x0170}
0x0f90…0fb8 Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x0009, t01=0x0184}
0x0fb8…0fcc Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 1«, t00=0x000a, t01=0x001c}
0x0fcc…0ffa Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMNAND INCLUDED IF:=1«, t00=0x000a, t01=0x0030}
0x0ffa…100e Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x000a, t01=0x005e}
0x100e…1034 Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000a, t01=0x0072}
0x1034…1046 Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000a, t01=0x0098}
0x1046…1054 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00aa}
0x1054…1098 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x000a, t01=0x00b8}
0x1098…10dc Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x000a, t01=0x00fc}
0x10dc…1106 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000a, t01=0x0140}
0x1106…114a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x000a, t01=0x016a}
0x114a…118e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x000b, t01=0x001e}
0x118e…1196 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0062}
0x1196…11a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006a}
0x11a0…11ba Head {h00=0x0016, h01=0x0050, text=»* ECB INDEX TABLE «, t00=0x000b, t01=0x0074}
0x11ba…11c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008e}
0x11c4…11d8 Head {h00=0x0010, h01=0x0050, text=»ECBIND EQU *«, t00=0x000b, t01=0x0098}
0x11d8…11fa Head {h00=0x001e, h01=0x0050, text=» DATA 8 NUMBER OF ENTRIES «, t00=0x000b, t01=0x00ac}
0x11fa…1216 Head {h00=0x0018, h01=0x0050, text=» DATA X'2000' ECB KB«, t00=0x000b, t01=0x00ce}
0x1216…1238 Head {h00=0x001e, h01=0x0050, text=» DATA X'3002' ECB PRINTER «, t00=0x000b, t01=0x00ea}
0x1238…1260 Head {h00=0x0024, h01=0x0050, text=» DATA X'4004' ECB SIGNAL DISPLAY«, t00=0x000b, t01=0x010c}
0x1260…127e Head {h00=0x001a, h01=0x0050, text=» DATA X'4206' ECB VDU «, t00=0x000b, t01=0x0134}
0x127e…12a6 Head {h00=0x0024, h01=0x0050, text=» DATA X'5008' ECB INTERTASK READ«, t00=0x000b, t01=0x0152}
0x12a6…12d0 Head {h00=0x0026, h01=0x0050, text=» DATA X'510A' ECB INTERTASK WRITE «, t00=0x000b, t01=0x017a}
0x12d0…12f2 Head {h00=0x001e, h01=0x0050, text=» DATA X'610C' ECB DC LINE1«, t00=0x000c, t01=0x0014}
0x12f2…131e Head {h00=0x0028, h01=0x0050, text=» DATA X'210E' ECB FOR NUMERIC KB DK «, t00=0x000c, t01=0x0036}
0x131e…1328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0062}
0x1328…1350 Head {h00=0x0024, h01=0x0050, text=»* SCREEN SIZE ON DISPLAY«, t00=0x000c, t01=0x006c}
0x1350…135a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0094}
0x135a…1370 Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x000c, t01=0x009e}
0x1370…137a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b4}
0x137a…138a Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x000c, t01=0x00be}
0x138a…1394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ce}
0x1394…13c2 Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x000c, t01=0x00d8}
0x13c2…13cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0106}
0x13cc…13ee Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x000c, t01=0x0110}
0x13ee…13f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0132}
0x13f8…1416 Head {h00=0x001a, h01=0x0050, text=»VDUCOD EQU 'VV' KB/VDU«, t00=0x000c, t01=0x013c}
0x1416…1424 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x015a}
0x1424…142e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0168}
0x142e…144e Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000c, t01=0x0172}
0x144e…146e (13, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* TERMINAL WORKBLOCK TB1«, t00=0x000d, t01=0x0004}
0x146e…1478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0024}
0x1478…149c Head {h00=0x0020, h01=0x0050, text=»OFFFLG EQU 1962 OFFLINE FLAG«, t00=0x000d, t01=0x002e}
0x149c…14ca Head {h00=0x002a, h01=0x0050, text=»PRTID EQU OFFFLG+2 TASKID FOR HARDCOPY«, t00=0x000d, t01=0x0052}
0x14ca…14f0 Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTID+6 WHICH DC LINE«, t00=0x000d, t01=0x0080}
0x14f0…1522 Head {h00=0x002e, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT«, t00=0x000d, t01=0x00a6}
0x1522…1546 Head {h00=0x0020, h01=0x0050, text=»REGI EQU ECBBLK+16 SAVE AREA«, t00=0x000d, t01=0x00d8}
0x1546…156a Head {h00=0x0020, h01=0x0050, text=»BSCMOD EQU REGI+32 BSC MODE «, t00=0x000d, t01=0x00fc}
0x156a…1590 Head {h00=0x0022, h01=0x0050, text=»ECBTAB EQU BSCMOD+2 ECB TABLE «, t00=0x000d, t01=0x0120}
0x1590…159a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0146}
0x159a…15ba Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x0150}
0x15ba…15d8 Head {h00=0x001a, h01=0x0050, text=»* COMMON WORKBLOCK CB1«, t00=0x000d, t01=0x0170}
0x15d8…15e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018e}
0x15e2…1610 Head {h00=0x002a, h01=0x0050, text=»MF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS «, t00=0x000e, t01=0x0008}
0x1610…1624 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x000e, t01=0x0036}
0x1624…164a Head {h00=0x0022, h01=0x0050, text=»TSKTAB EQU MF1CU+24 TASK TABLE«, t00=0x000e, t01=0x004a}
0x164a…1656 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0070}
0x1656…166a Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x000e, t01=0x007c}
0x166a…1692 Head {h00=0x0024, h01=0x0050, text=»TSKTAB EQU MF1CU+219 TASK TABLE «, t00=0x000e, t01=0x0090}
0x1692…169e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00b8}
0x169e…16ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00c4}
0x16ac…16ee Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000e, t01=0x00d2}
0x16ee…1730 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000e, t01=0x0114}
0x1730…1772 Head {h00=0x003e, h01=0x0050, text=»* VDUKB MAIN ROUTINE * «, t00=0x000e, t01=0x0156}
0x1772…17b4 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0008}
0x17b4…17f6 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000f, t01=0x004a}
0x17f6…180a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x000f, t01=0x008c}
0x180a…1814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a0}
0x1814…182c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x000f, t01=0x00aa}
0x182c…1844 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x000f, t01=0x00c2}
0x1844…184e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00da}
0x184e…1886 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000f, t01=0x00e4}
0x1886…189a Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x000f, t01=0x011c}
0x189a…18c2 Head {h00=0x0024, h01=0x0050, text=» CF A14,INIT INITIALIZE THE TASK«, t00=0x000f, t01=0x0130}
0x18c2…18f2 Head {h00=0x002c, h01=0x0050, text=» CF A14,TSTDEV TEST KEYBOARD AND DISPLAY«, t00=0x000f, t01=0x0158}
0x18f2…1906 Head {h00=0x0010, h01=0x0050, text=»VDU200 EQU *«, t00=0x000f, t01=0x0188}
0x1906…192c Head {h00=0x0022, h01=0x0050, text=» CF A14,IOACT PREPARE ECB-BLK «, t00=0x0010, t01=0x000c}
0x192c…1944 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0010, t01=0x0032}
0x1944…1958 Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0010, t01=0x004a}
0x1958…1964 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x005e}
0x1964…1982 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0010, t01=0x006a}
0x1982…19ac Head {h00=0x0026, h01=0x0050, text=» CF A14,IOCPL TAKE CARE OF REQUEST«, t00=0x0010, t01=0x0088}
0x19ac…19d0 Head {h00=0x0020, h01=0x0050, text=» RB VDU200 HERE WE GO AGAIN «, t00=0x0010, t01=0x00b2}
0x19d0…19de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00d6}
0x19de…19e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e4}
0x19e8…19f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ee}
0x19f2…1a18 Head {h00=0x0022, h01=0x0050, text=»* POSSIBLE LAYOUTS OF ECB-BLK «, t00=0x0010, t01=0x00f8}
0x1a18…1a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x011e}
0x1a22…1a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0128}
0x1a2c…1a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0132}
0x1a36…1a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013c}
0x1a40…1a64 Head {h00=0x0020, h01=0x0050, text=»* MODE /0000 /4000«, t00=0x0010, t01=0x0146}
0x1a64…1a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016a}
0x1a6e…1a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0174}
0x1a78…1a9a Head {h00=0x001e, h01=0x0050, text=»* BLK 2 3«, t00=0x0010, t01=0x017e}
0x1a9a…1abe Head {h00=0x0020, h01=0x0050, text=»* KB KB «, t00=0x0011, t01=0x0010}
0x1abe…1ae2 Head {h00=0x0020, h01=0x0050, text=»* DC DC «, t00=0x0011, t01=0x0034}
0x1ae2…1b06 Head {h00=0x0020, h01=0x0050, text=»* IC «, t00=0x0011, t01=0x0058}
0x1b06…1b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007c}
0x1b10…1b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0086}
0x1b1a…1b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0090}
0x1b24…1b32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x009a}
0x1b32…1b76 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0011, t01=0x00a8}
0x1b76…1bba Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0011, t01=0x00ec}
0x1bba…1be6 Head {h00=0x0028, h01=0x0050, text=»* IOACT I/O ACTIVATION «, t00=0x0011, t01=0x0130}
0x1be6…1c2a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0011, t01=0x015c}
0x1c2a…1c6e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0012, t01=0x0010}
0x1c6e…1c8e Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x0012, t01=0x0054}
0x1c8e…1c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0074}
0x1c98…1cc4 Head {h00=0x0028, h01=0x0050, text=»* A4= NUMBER OF ENTRIES IN ECB BLOCK«, t00=0x0012, t01=0x007e}
0x1cc4…1ce4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0012, t01=0x00aa}
0x1ce4…1cfc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0012, t01=0x00ca}
0x1cfc…1d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e2}
0x1d06…1d48 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x00ec}
0x1d48…1d5c Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x0012, t01=0x012e}
0x1d5c…1d84 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 COUNT NUMBER OF I-O'S «, t00=0x0012, t01=0x0142}
0x1d84…1d9e Head {h00=0x0016, h01=0x0050, text=» LD A1,BSCMOD,A11 «, t00=0x0012, t01=0x016a}
0x1d9e…1dce Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQ. ALREADY OUTST.?«, t00=0x0012, t01=0x0184}
0x1dce…1de8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x0013, t01=0x0024}
0x1de8…1e0c Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0013, t01=0x003e}
0x1e0c…1e28 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x0013, t01=0x0062}
0x1e28…1e3c Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x0013, t01=0x007e}
0x1e3c…1e52 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0013, t01=0x0092}
0x1e52…1e80 Head {h00=0x002a, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY OUTSTANDING? «, t00=0x0013, t01=0x00a8}
0x1e80…1e98 Head {h00=0x0014, h01=0x0050, text=» RF(Z) IOAC30 NO«, t00=0x0013, t01=0x00d6}
0x1e98…1ea4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00ee}
0x1ea4…1eb6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0013, t01=0x00fa}
0x1eb6…1ed2 Head {h00=0x0018, h01=0x0050, text=» LD A2,ECBBLK+8,A11 «, t00=0x0013, t01=0x010c}
0x1ed2…1f06 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) IOAC30 INTERTASK ALREDY OUTSTANDING «, t00=0x0013, t01=0x0128}
0x1f06…1f2c Head {h00=0x0022, h01=0x0050, text=» CF A14,ICVRED READ INTERATSK «, t00=0x0013, t01=0x015c}
0x1f2c…1f48 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+8,A11 «, t00=0x0013, t01=0x0182}
0x1f48…1f5c Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0014, t01=0x000e}
0x1f5c…1f6e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0014, t01=0x0022}
0x1f6e…1f9a Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBLK+2,A11 KB OUTSTANDING? «, t00=0x0014, t01=0x0034}
0x1f9a…1fb4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC35 YES«, t00=0x0014, t01=0x0060}
0x1fb4…1fd8 Head {h00=0x0020, h01=0x0050, text=» CF A14,READKB READ KEYBOARD«, t00=0x0014, t01=0x007a}
0x1fd8…1ff4 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0014, t01=0x009e}
0x1ff4…200a Head {h00=0x0012, h01=0x0050, text=»IOAC35 EQU * «, t00=0x0014, t01=0x00ba}
0x200a…203c Head {h00=0x002e, h01=0x0050, text=»* SECOND KEYBOARD HANDLING 81-10-18 DK *«, t00=0x0014, t01=0x00d0}
0x203c…204e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0014, t01=0x0102}
0x204e…207a Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBLK+6,A11 KB2 OUTSTANDING «, t00=0x0014, t01=0x0114}
0x207a…2096 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IOAC40 YES «, t00=0x0014, t01=0x0140}
0x2096…20c2 Head {h00=0x0028, h01=0x0050, text=» CF A14,READK2 READ SECOND KEYBOARD «, t00=0x0014, t01=0x015c}
0x20c2…20de Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x0014, t01=0x0188}
0x20de…20fc Head {h00=0x001a, h01=0x0050, text=»** END DK **«, t00=0x0015, t01=0x0014}
0x20fc…2110 Head {h00=0x0010, h01=0x0050, text=»IOAC40 EQU *«, t00=0x0015, t01=0x0032}
0x2110…213e Head {h00=0x002a, h01=0x0050, text=» ST A4,ECBBLK,A11 SAVE NUMBER OF WAITS«, t00=0x0015, t01=0x0046}
0x213e…214e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x0074}
0x214e…215c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0084}
0x215c…21a0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x0092}
0x21a0…21e4 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0015, t01=0x00d6}
0x21e4…2210 Head {h00=0x0028, h01=0x0050, text=»* IOCPL I/O COMPLETION «, t00=0x0015, t01=0x011a}
0x2210…2254 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0146}
0x2254…2298 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x018a}
0x2298…22ac Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0016, t01=0x003e}
0x22ac…22b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0052}
0x22b6…22d6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0016, t01=0x005c}
0x22d6…22ee Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0016, t01=0x007c}
0x22ee…22f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0094}
0x22f8…233c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x009e}
0x233c…2350 Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x0016, t01=0x00e2}
0x2350…2374 Head {h00=0x0020, h01=0x0050, text=» CW A8,ECBBLK+2,A11 KB INPUT«, t00=0x0016, t01=0x00f6}
0x2374…238e Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP05 NO «, t00=0x0016, t01=0x011a}
0x238e…23a6 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x0016, t01=0x0134}
0x23a6…23cc Head {h00=0x0022, h01=0x0050, text=» CF A14,KBINP TAKE CARE OF KB «, t00=0x0016, t01=0x014c}
0x23cc…23de Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0016, t01=0x0172}
0x23de…2418 Head {h00=0x0036, h01=0x0050, text=»** SECOND KEYBOARD HANDLING P & T,81-10-19 DK **«, t00=0x0016, t01=0x0184}
0x2418…242e Head {h00=0x0012, h01=0x0050, text=»IOCP05 EQU * «, t00=0x0017, t01=0x002e}
0x242e…2456 Head {h00=0x0024, h01=0x0050, text=» CW A8,ECBBLK+6,A11 KB2 INPUT ? «, t00=0x0017, t01=0x0044}
0x2456…2470 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x0017, t01=0x006c}
0x2470…248a Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+6,A11 «, t00=0x0017, t01=0x0086}
0x248a…24b2 Head {h00=0x0024, h01=0x0050, text=» CF A14,KBINP2 TAKE CARE OF KB2 «, t00=0x0017, t01=0x00a0}
0x24b2…24c6 Head {h00=0x0010, h01=0x0050, text=» RF IOCP90 «, t00=0x0017, t01=0x00c8}
0x24c6…24e4 Head {h00=0x001a, h01=0x0050, text=»** END DK P & T **«, t00=0x0017, t01=0x00dc}
0x24e4…24f8 Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x0017, t01=0x00fa}
0x24f8…2518 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC? «, t00=0x0017, t01=0x010e}
0x2518…2532 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x0017, t01=0x012e}
0x2532…254a Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x0017, t01=0x0148}
0x254a…2570 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCINP TAKE CARE OF DC «, t00=0x0017, t01=0x0160}
0x2570…2582 Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0017, t01=0x0186}
0x2582…2596 Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x0018, t01=0x0008}
0x2596…25ae Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+8,A11«, t00=0x0018, t01=0x001c}
0x25ae…25da Head {h00=0x0028, h01=0x0050, text=» CF A14,ICINP TAKE CARE OF INTERTASK«, t00=0x0018, t01=0x0034}
0x25da…25ee Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x0018, t01=0x0060}
0x25ee…25fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0074}
0x25fe…260c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0084}
0x260c…2654 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0018, t01=0x0092}
0x2654…265e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00da}
0x265e…268c Head {h00=0x002a, h01=0x0050, text=»* MATCH MATCH TASKID AND PHYS. ADDRESS«, t00=0x0018, t01=0x00e4}
0x268c…2696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0112}
0x2696…26de Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0018, t01=0x011c}
0x26de…26fa Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0018, t01=0x0164}
0x26fa…2704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0180}
0x2704…270e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x018a}
0x270e…2756 (25, 0, 400) Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0019, t01=0x0004}
0x2756…276a Head {h00=0x0010, h01=0x0050, text=»MATCH EQU * «, t00=0x0019, t01=0x004c}
0x276a…2780 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0019, t01=0x0060}
0x2780…27ac Head {h00=0x0028, h01=0x0050, text=» LDK A1,NBRTSK GET NUMBER OF ENTRIES«, t00=0x0019, t01=0x0076}
0x27ac…27c0 Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0019, t01=0x00a2}
0x27c0…27e6 Head {h00=0x0022, h01=0x0050, text=» ADKL A3,TSKTAB START OF TABLE«, t00=0x0019, t01=0x00b6}
0x27e6…27fa Head {h00=0x0010, h01=0x0050, text=»MATC10 EQU *«, t00=0x0019, t01=0x00dc}
0x27fa…281c Head {h00=0x001e, h01=0x0050, text=» CC A2,+2,A3 SAME ADDRESS?«, t00=0x0019, t01=0x00f0}
0x281c…2836 Head {h00=0x0016, h01=0x0050, text=» RF(E) MATC30 YES «, t00=0x0019, t01=0x0112}
0x2836…284c Head {h00=0x0012, h01=0x0050, text=» ADK A3,4 NEXT«, t00=0x0019, t01=0x012c}
0x284c…286a Head {h00=0x001a, h01=0x0050, text=» SUK A1,1 ALL CHECKED?«, t00=0x0019, t01=0x0142}
0x286a…2884 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) MATC10 NO «, t00=0x0019, t01=0x0160}
0x2884…2898 Head {h00=0x0010, h01=0x0050, text=»MATC20 EQU *«, t00=0x0019, t01=0x017a}
0x2898…28bc Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 INDICATE NOT FOUND«, t00=0x0019, t01=0x018e}
0x28bc…28ce Head {h00=0x000e, h01=0x0050, text=» RF MATC90«, t00=0x001a, t01=0x0022}
0x28ce…28e2 Head {h00=0x0010, h01=0x0050, text=»MATC30 EQU *«, t00=0x001a, t01=0x0034}
0x28e2…28f4 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x001a, t01=0x0048}
0x28f4…2924 Head {h00=0x002c, h01=0x0050, text=» CCK A1,VDUCOD COPY IN RIGHT DIRECTION? «, t00=0x001a, t01=0x005a}
0x2924…293e Head {h00=0x0016, h01=0x0050, text=» RB(NE) MATC20 NO «, t00=0x001a, t01=0x008a}
0x293e…2950 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001a, t01=0x00a4}
0x2950…2964 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A3 «, t00=0x001a, t01=0x00b6}
0x2964…2978 Head {h00=0x0010, h01=0x0050, text=»MATC90 EQU *«, t00=0x001a, t01=0x00ca}
0x2978…2984 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00de}
0x2984…2994 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x00ea}
0x2994…29a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00fa}
0x29a2…29e6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001a, t01=0x0108}
0x29e6…2a2a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001a, t01=0x014c}
0x2a2a…2a6e Head {h00=0x0040, h01=0x0050, text=»* INIT INITIALIZE THE TASK *«, t00=0x001a, t01=0x0190}
0x2a6e…2ab2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0044}
0x2ab2…2af6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x0088}
0x2af6…2b0a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x00cc}
0x2b0a…2b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e0}
0x2b14…2b34 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001b, t01=0x00ea}
0x2b34…2b4c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001b, t01=0x010a}
0x2b4c…2b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0122}
0x2b56…2b90 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001b, t01=0x012c}
0x2b90…2ba2 Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x001b, t01=0x0166}
0x2ba2…2bc4 Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x001b, t01=0x0178}
0x2bc4…2be8 Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x001c, t01=0x000a}
0x2be8…2c04 Head {h00=0x0018, h01=0x0050, text=» CF A14,OPEN OPEN DC«, t00=0x001c, t01=0x002e}
0x2c04…2c18 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x001c, t01=0x004a}
0x2c18…2c24 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x005e}
0x2c24…2c34 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x001c, t01=0x006a}
0x2c34…2c54 Head {h00=0x001c, h01=0x0050, text=» CF A14,CONCT CONNECT DC«, t00=0x001c, t01=0x007a}
0x2c54…2c7e Head {h00=0x0026, h01=0x0050, text=» CF A14,SETTIM SET REQUEST TIMEOUT«, t00=0x001c, t01=0x009a}
0x2c7e…2cac Head {h00=0x002a, h01=0x0050, text=» LDK A2,NBRTSK NUMBER OF TASK ENTRIES «, t00=0x001c, t01=0x00c4}
0x2cac…2cdc Head {h00=0x002c, h01=0x0050, text=» LD A9,REGI,A11 RESTORE TASKTAB ADDRESS «, t00=0x001c, t01=0x00f2}
0x2cdc…2cf0 Head {h00=0x0010, h01=0x0050, text=»INIT10 EQU *«, t00=0x001c, t01=0x0122}
0x2cf0…2d02 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x0136}
0x2d02…2d18 Head {h00=0x0012, h01=0x0050, text=» RF(N) INIT20 «, t00=0x001c, t01=0x0148}
0x2d18…2d2a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,4«, t00=0x001c, t01=0x015e}
0x2d2a…2d3c Head {h00=0x000e, h01=0x0050, text=» LCR A1,A9«, t00=0x001c, t01=0x0170}
0x2d3c…2d60 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF ANY TASK AT ALL?«, t00=0x001c, t01=0x0182}
0x2d60…2d78 Head {h00=0x0014, h01=0x0050, text=» RB(Z) INIT10 NO«, t00=0x001d, t01=0x0016}
0x2d78…2d9a Head {h00=0x001e, h01=0x0050, text=» CCK A1,'VV' DISPLAY TASK?«, t00=0x001d, t01=0x002e}
0x2d9a…2db4 Head {h00=0x0016, h01=0x0050, text=» RB(E) INIT10 YES «, t00=0x001d, t01=0x0050}
0x2db4…2dc6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x001d, t01=0x006a}
0x2dc6…2dda Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A9«, t00=0x001d, t01=0x007c}
0x2dda…2df2 Head {h00=0x0014, h01=0x0050, text=» ST A1,PRTID,A11«, t00=0x001d, t01=0x0090}
0x2df2…2e06 Head {h00=0x0010, h01=0x0050, text=»INIT20 EQU *«, t00=0x001d, t01=0x00a8}
0x2e06…2e1a Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001d, t01=0x00bc}
0x2e1a…2e2e Head {h00=0x0010, h01=0x0050, text=» LD A1,2,A14«, t00=0x001d, t01=0x00d0}
0x2e2e…2e42 Head {h00=0x0010, h01=0x0050, text=» LD A2,4,A14«, t00=0x001d, t01=0x00e4}
0x2e42…2e58 Head {h00=0x0012, h01=0x0050, text=» ST A12,4,A14 «, t00=0x001d, t01=0x00f8}
0x2e58…2e6e Head {h00=0x0012, h01=0x0050, text=» ST A13,2,A14 «, t00=0x001d, t01=0x010e}
0x2e6e…2e82 Head {h00=0x0010, h01=0x0050, text=» STR A2,A14 «, t00=0x001d, t01=0x0124}
0x2e82…2e98 Head {h00=0x0012, h01=0x0050, text=» ST A1,-2,A14 «, t00=0x001d, t01=0x0138}
0x2e98…2ec0 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001d, t01=0x014e}
0x2ec0…2ed6 Head {h00=0x0012, h01=0x0050, text=» CM OFFFLG,A11«, t00=0x001d, t01=0x0176}
0x2ed6…2f02 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF OFFLINE LAMP«, t00=0x001d, t01=0x018c}
0x2f02…2f0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0028}
0x2f0e…2f20 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001e, t01=0x0034}
0x2f20…2f4c Head {h00=0x0028, h01=0x0050, text=» LDKL A5,LBVDU+1 UNFORMATTED SCREEN «, t00=0x001e, t01=0x0046}
0x2f4c…2f5e Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001e, t01=0x0072}
0x2f5e…2f8c Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x001e, t01=0x0084}
0x2f8c…2fb8 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASE ERASE THE WHOLE SCREEN«, t00=0x001e, t01=0x00b2}
0x2fb8…2fce Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001e, t01=0x00de}
0x2fce…2ff0 Head {h00=0x001e, h01=0x0050, text=» LD A1,MAIN,A11 DC LINE 1?«, t00=0x001e, t01=0x00f4}
0x2ff0…300a Head {h00=0x0016, h01=0x0050, text=» RF(Z) INIT30 YES «, t00=0x001e, t01=0x0116}
0x300a…3034 Head {h00=0x0026, h01=0x0050, text=» CF A14,LMP2ON INDICATE DC LINE 2 «, t00=0x001e, t01=0x0130}
0x3034…3046 Head {h00=0x000e, h01=0x0050, text=» RF INIT40«, t00=0x001e, t01=0x015a}
0x3046…305a Head {h00=0x0010, h01=0x0050, text=»INIT30 EQU *«, t00=0x001e, t01=0x016c}
0x305a…3066 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0180}
0x3066…3090 Head {h00=0x0026, h01=0x0050, text=» CF A14,LMP1ON INDICATE DC LINE 1 «, t00=0x001e, t01=0x018c}
0x3090…30a4 Head {h00=0x0010, h01=0x0050, text=»INIT40 EQU *«, t00=0x001f, t01=0x0026}
0x30a4…30cc Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK IF LINE OK «, t00=0x001f, t01=0x003a}
0x30cc…30dc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x0062}
0x30dc…30ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0072}
0x30ea…312c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x001f, t01=0x0080}
0x312c…316e Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x00c2}
0x316e…31b0 Head {h00=0x003e, h01=0x0050, text=»* COMINI COMMON INIT ROUTINE *«, t00=0x001f, t01=0x0104}
0x31b0…31f2 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0146}
0x31f2…3234 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x001f, t01=0x0188}
0x3234…3256 Head {h00=0x001e, h01=0x0050, text=»* REGISTERS «, t00=0x0020, t01=0x003a}
0x3256…3260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x005c}
0x3260…3280 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0020, t01=0x0066}
0x3280…3298 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0020, t01=0x0086}
0x3298…32a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x009e}
0x32a2…32e4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0020, t01=0x00a8}
0x32e4…32f8 Head {h00=0x0010, h01=0x0050, text=»COMINI EQU *«, t00=0x0020, t01=0x00ea}
0x32f8…330e Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0020, t01=0x00fe}
0x330e…3336 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A9 LOAD TASK AREA BASE «, t00=0x0020, t01=0x0114}
0x3336…3356 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A11 GET TASKID «, t00=0x0020, t01=0x013c}
0x3356…337c Head {h00=0x0022, h01=0x0050, text=» LD A3,6,A13 COMMON BLOCK BASE«, t00=0x0020, t01=0x015c}
0x337c…338e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x0182}
0x338e…33a4 (33, 0, 398) Head {h00=0x0012, h01=0x0050, text=» ANK A1,X'FF' «, t00=0x0021, t01=0x0004}
0x33a4…33d2 Head {h00=0x002a, h01=0x0050, text=» SUK A1,X'30' GET OFFSET IN TASK TABLE«, t00=0x0021, t01=0x001a}
0x33d2…33f6 Head {h00=0x0020, h01=0x0050, text=» SLL A1,2 TWO WORDS ENTRIES «, t00=0x0021, t01=0x0048}
0x33f6…340e Head {h00=0x0014, h01=0x0050, text=» LDKL A4,TSKTAB «, t00=0x0021, t01=0x006c}
0x340e…3420 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0021, t01=0x0084}
0x3420…3446 Head {h00=0x0022, h01=0x0050, text=» ADR A1,A4 POINT TO YOUR LABLE«, t00=0x0021, t01=0x0096}
0x3446…3472 Head {h00=0x0028, h01=0x0050, text=» ST A1,REGI,A11 SAVE TASKTAB ADDRESS«, t00=0x0021, t01=0x00bc}
0x3472…3492 Head {h00=0x001c, h01=0x0050, text=» SC A2,+1,A1 SAVE TASKID«, t00=0x0021, t01=0x00e8}
0x3492…34a4 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0021, t01=0x0108}
0x34a4…34b6 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x0021, t01=0x011a}
0x34b6…34c6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x012c}
0x34c6…34d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x013c}
0x34d4…34de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x014a}
0x34de…34e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0154}
0x34e8…3502 Head {h00=0x0016, h01=0x0050, text=»* ECB TABLE LAYOUT«, t00=0x0021, t01=0x015e}
0x3502…350c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0178}
0x350c…3516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0182}
0x3516…3520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x018c}
0x3520…3558 Head {h00=0x0034, h01=0x0050, text=»* DISPLACEMENT I/O FILECODE «, t00=0x0022, t01=0x0008}
0x3558…3562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0040}
0x3562…3598 Head {h00=0x0032, h01=0x0050, text=»* 0 KB /20 «, t00=0x0022, t01=0x004a}
0x3598…35ce Head {h00=0x0032, h01=0x0050, text=»* 2 PRINTER /30 «, t00=0x0022, t01=0x0080}
0x35ce…3604 Head {h00=0x0032, h01=0x0050, text=»* 4 SIGNAL/DISP. /40 «, t00=0x0022, t01=0x00b6}
0x3604…363a Head {h00=0x0032, h01=0x0050, text=»* 6 VDU /42 «, t00=0x0022, t01=0x00ec}
0x363a…3670 Head {h00=0x0032, h01=0x0050, text=»* 8 INTERTASK R. /50 «, t00=0x0022, t01=0x0122}
0x3670…36a6 Head {h00=0x0032, h01=0x0050, text=»* 10 INTERTASK W. /51 «, t00=0x0022, t01=0x0158}
0x36a6…36dc Head {h00=0x0032, h01=0x0050, text=»* 12 DC LINE 1 /61 «, t00=0x0022, t01=0x018e}
0x36dc…3712 Head {h00=0x0032, h01=0x0050, text=»* 14 DC LINE 2 /62 «, t00=0x0023, t01=0x0034}
0x3712…371c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006a}
0x371c…3726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0074}
0x3726…3730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x007e}
0x3730…373a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0088}
0x373a…3748 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0092}
0x3748…378e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0023, t01=0x00a0}
0x378e…37d4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0023, t01=0x00e6}
0x37d4…381a Head {h00=0x0042, h01=0x0050, text=»* ECBINI INIT OF ECB:S * «, t00=0x0023, t01=0x012c}
0x381a…3860 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0172}
0x3860…38a6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x0028}
0x38a6…38c2 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0024, t01=0x006e}
0x38c2…38cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x008a}
0x38cc…38ec Head {h00=0x001c, h01=0x0050, text=»* A4 = NUMBER OF ENTRIES«, t00=0x0024, t01=0x0094}
0x38ec…3910 Head {h00=0x0020, h01=0x0050, text=»* A5 = NUMBER OF FC ALLOWED «, t00=0x0024, t01=0x00b4}
0x3910…392a Head {h00=0x0016, h01=0x0050, text=»* A6 = DAT POINTER«, t00=0x0024, t01=0x00d8}
0x392a…3948 Head {h00=0x001a, h01=0x0050, text=»* A7 = ECB FC POINTER «, t00=0x0024, t01=0x00f2}
0x3948…3968 Head {h00=0x001c, h01=0x0050, text=»* A8 = DATA SET POINTER «, t00=0x0024, t01=0x0110}
0x3968…3988 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0024, t01=0x0130}
0x3988…39a0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0024, t01=0x0150}
0x39a0…39aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0168}
0x39aa…39ee Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0024, t01=0x0172}
0x39ee…3a02 Head {h00=0x0010, h01=0x0050, text=»ECBINI EQU *«, t00=0x0025, t01=0x0026}
0x3a02…3a28 Head {h00=0x0022, h01=0x0050, text=» LD A2,-8,A13 GET T:D ADDRESS «, t00=0x0025, t01=0x003a}
0x3a28…3a52 Head {h00=0x0026, h01=0x0050, text=» LD A4,+4,A2 GET NUMBER OF ENTRIES«, t00=0x0025, t01=0x0060}
0x3a52…3a66 Head {h00=0x0010, h01=0x0050, text=» LD A8,+6,A2«, t00=0x0025, t01=0x008a}
0x3a66…3a7a Head {h00=0x0010, h01=0x0050, text=» ADR A8,A13 «, t00=0x0025, t01=0x009e}
0x3a7a…3a98 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A8 DAT POINTER«, t00=0x0025, t01=0x00b2}
0x3a98…3abc Head {h00=0x0020, h01=0x0050, text=» SUKL A8,20 DATA SET POINTER«, t00=0x0025, t01=0x00d0}
0x3abc…3ad0 Head {h00=0x0010, h01=0x0050, text=»ECBI10 EQU *«, t00=0x0025, t01=0x00f4}
0x3ad0…3af4 Head {h00=0x0020, h01=0x0050, text=» LD A5,ECBIND NUMBER OF FC:S«, t00=0x0025, t01=0x0108}
0x3af4…3b1e Head {h00=0x0026, h01=0x0050, text=» LDKL A7,ECBIND+2 FIRST FILE CODE «, t00=0x0025, t01=0x012c}
0x3b1e…3b3e Head {h00=0x001c, h01=0x0050, text=» LC A2,+1,A6 DATA SET FC«, t00=0x0025, t01=0x0156}
0x3b3e…3b52 Head {h00=0x0010, h01=0x0050, text=»ECBI20 EQU *«, t00=0x0025, t01=0x0176}
0x3b52…3b80 Head {h00=0x002a, h01=0x0050, text=» CCR A2,A7 FC IN DAT = FC CONFIGURED? «, t00=0x0025, t01=0x018a}
0x3b80…3b9a Head {h00=0x0016, h01=0x0050, text=» RF(E) ECBI30 YES «, t00=0x0026, t01=0x0028}
0x3b9a…3bb0 Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 NEXT«, t00=0x0026, t01=0x0042}
0x3bb0…3bcc Head {h00=0x0018, h01=0x0050, text=» SUK A5,1 NOT FOUND?«, t00=0x0026, t01=0x0058}
0x3bcc…3bea Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ECBI20 NOT YET«, t00=0x0026, t01=0x0074}
0x3bea…3c08 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,* DIAGNOSTIC «, t00=0x0026, t01=0x0092}
0x3c08…3c20 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0026, t01=0x00b0}
0x3c20…3c2c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x00c8}
0x3c2c…3c4c Head {h00=0x001c, h01=0x0050, text=» DATA 3 WRONG GENERATION«, t00=0x0026, t01=0x00d4}
0x3c4c…3c60 Head {h00=0x0010, h01=0x0050, text=»ECBI30 EQU *«, t00=0x0026, t01=0x00f4}
0x3c60…3c88 Head {h00=0x0024, h01=0x0050, text=» SC A2,+1,A8 SAVE FC IN DATA SET«, t00=0x0026, t01=0x0108}
0x3c88…3cb4 Head {h00=0x0028, h01=0x0050, text=» LD A2,+2,A6 GET FIXED LENGTH IF ANY«, t00=0x0026, t01=0x0130}
0x3cb4…3cda Head {h00=0x0022, h01=0x0050, text=» ST A2,+4,A8 SAVE IN DATA SET «, t00=0x0026, t01=0x015c}
0x3cda…3d08 Head {h00=0x002a, h01=0x0050, text=» LD A2,+18,A8 GET FIXED BUFFER IF ANY «, t00=0x0026, t01=0x0182}
0x3d08…3d2e Head {h00=0x0022, h01=0x0050, text=» ST A2,+2,A8 SAVE IN DATA SET «, t00=0x0027, t01=0x0020}
0x3d2e…3d5a Head {h00=0x0028, h01=0x0050, text=» LC A2,+1,A7 GET INDEX TO ECB TABLE «, t00=0x0027, t01=0x0046}
0x3d5a…3d6e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x0072}
0x3d6e…3d82 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A11 «, t00=0x0027, t01=0x0086}
0x3d82…3dac Head {h00=0x0026, h01=0x0050, text=» ST A8,ECBTAB,A2 SAVE ECB ADDRESS «, t00=0x0027, t01=0x009a}
0x3dac…3dbe Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0027, t01=0x00c4}
0x3dbe…3dd2 Head {h00=0x0010, h01=0x0050, text=» SUKL A8,20 «, t00=0x0027, t01=0x00d6}
0x3dd2…3dee Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 ALL DONE? «, t00=0x0027, t01=0x00ea}
0x3dee…3e08 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ECBI10 NO «, t00=0x0027, t01=0x0106}
0x3e08…3e18 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0027, t01=0x0120}
0x3e18…3e26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0130}
0x3e26…3e6c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0027, t01=0x013e}
0x3e6c…3eb2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0027, t01=0x0184}
0x3eb2…3ef8 Head {h00=0x0042, h01=0x0050, text=»* TSTDEV TEST KEYBOARD AND DISPLAY * «, t00=0x0028, t01=0x003a}
0x3ef8…3f3e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0028, t01=0x0080}
0x3f3e…3f84 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0028, t01=0x00c6}
0x3f84…3f98 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0028, t01=0x010c}
0x3f98…3fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0120}
0x3fa2…3fc2 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0028, t01=0x012a}
0x3fc2…3fda Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0028, t01=0x014a}
0x3fda…3fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0162}
0x3fe4…401e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0028, t01=0x016c}
0x401e…4032 Head {h00=0x0010, h01=0x0050, text=»TSTDEV EQU *«, t00=0x0029, t01=0x0016}
0x4032…4062 Head {h00=0x002c, h01=0x0050, text=» CF A14,SOUND TURN ON SOUND ALARM AT VDU«, t00=0x0029, t01=0x002a}
0x4062…4072 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x005a}
0x4072…407a Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x006a}
0x407a…4086 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0029, t01=0x0072}
0x4086…408a Head {h00=0x4004, h01=0x0000}
0x408a…408e 00 29 00 7e ┆ ) ~┆
0x408e…4096 (42, 1, 8) 20 04 00 00 00 2a 00 04 ┆ * ┆
0x4096…4226 (43, 0, 400) 0x00[0x190]
[…0x1…]