|
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 - metricsIndex: / A C D E L M N O P S T X p ½
Length: 1884256 (0x1cc060)
Description: Bits:30009690 Philips computer tape "600402"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| A:AF | «none» |
| A:AF//OBJCT.OB | ⟦1fea3024e⟧ pts_type |
| A:AF/A:TEST.LM | ⟦69b1fa2eb⟧ pts_type |
| A:AF/AFGEN.UF | ⟦97faf678a⟧ pts_type |
| A:AF/AFMATC.SC | ⟦264438113⟧ pts_type |
| A:AF/AFMATG.SC | ⟦823b4e62b⟧ pts_type |
| A:AF/CTAB01.SC | ⟦0b821790a⟧ pts_type |
| A:AF/CTAB02.SC | ⟦992386f52⟧ pts_type |
| A:AF/NJ.UF | ⟦c1ac61ffa⟧ pts_type |
| A:AF/OBDIR.UF | ⟦fa527da0d⟧ pts_type |
| A:AF/PROD.UF | ⟦1977df533⟧ pts_type |
| A:AF/PROGEN.UF | ⟦3aaef0a66⟧ pts_type |
| A:AF/PROGEX.UF | ⟦f7135fb47⟧ pts_type |
| A:AF/SCREEN.SC | ⟦5f6b19a3c⟧ pts_type |
| A:AF/SPDDIV.SC | ⟦d11e6a16d⟧ pts_type |
| A:AF/SPLITT.SC | ⟦f97801d9c⟧ pts_type |
| A:AF/TEST.UF | ⟦bedc802dd⟧ pts_type |
| A:AF/TSTGEN.UF | ⟦e7d10d8df⟧ pts_type |
| M:AF | «none» |
| M:AF//OBJCT.OB | ⟦20d1fa3ba⟧ pts_type |
| M:AF/CA.UF | ⟦a9830351e⟧ pts_type |
| M:AF/CB.UF | ⟦56245885d⟧ pts_type |
| M:AF/CC.UF | ⟦f07d2246a⟧ pts_type |
| M:AF/CTAB01.SC | ⟦0b821790a⟧ pts_type |
| M:AF/CTAB02.SC | ⟦992386f52⟧ pts_type |
| M:AF/CTABXX.SC | ⟦e532b96e4⟧ pts_type |
| M:AF/DCADDR.SC | ⟦bb22738a5⟧ pts_type |
| M:AF/DCSTAT.SC | ⟦2f95e4581⟧ pts_type |
| M:AF/DRDI01.SC | ⟦c2f858e9c⟧ pts_type |
| M:AF/DRDY02.SC | ⟦cf714e9db⟧ pts_type |
| M:AF/DRFD01.SC | ⟦7e790d303⟧ pts_type |
| M:AF/DRGP03.SC | ⟦e3ca40a01⟧ pts_type |
| M:AF/DRKB04.SC | ⟦19359e3a8⟧ pts_type |
| M:AF/DRND01.SC | ⟦29098e1b1⟧ pts_type |
| M:AF/DRSU01.SC | ⟦72835a615⟧ pts_type |
| M:AF/DSKSUB.SC | ⟦d314e72ee⟧ pts_type |
| M:AF/DVDI01.SC | ⟦2cf2ada30⟧ pts_type |
| M:AF/DVDY00.SC | ⟦cb991dc95⟧ pts_type |
| M:AF/DVDY01.SC | ⟦5b515ff7b⟧ pts_type |
| M:AF/DVG202.SC | ⟦67f51547a⟧ pts_type |
| M:AF/DVKB00.SC | ⟦1e9379c4f⟧ pts_type |
| M:AF/DVKB01.SC | ⟦4e2ced0b1⟧ pts_type |
| M:AF/DVTDI.SC | ⟦5ef172779⟧ pts_type |
| M:AF/DVTDY.SC | ⟦c73e6c9c4⟧ pts_type |
| M:AF/DVTG2.SC | ⟦fdce1b646⟧ pts_type |
| M:AF/DVTKB.SC | ⟦b2a02f41c⟧ pts_type |
| M:AF/EBCDIC.SC | ⟦70e364a83⟧ pts_type |
| M:AF/LDTASK.SC | ⟦34150bdd5⟧ pts_type |
| M:AF/LKMAL.SC | ⟦59882a64a⟧ pts_type |
| M:AF/LRPINT.SC | ⟦1b5801427⟧ pts_type |
| M:AF/M:PROD.LM | ⟦aa1b0ff2a⟧ pts_type |
| M:AF/M:TEST.LM | ⟦7a60d6b21⟧ pts_type |
| M:AF/MONLNK.UF | ⟦0018f76b8⟧ pts_type |
| M:AF/MONTAB.SC | ⟦7f7353eb5⟧ pts_type |
| M:AF/MONTIM.SC | ⟦41cebca8b⟧ pts_type |
| M:AF/MSUBS.SC | ⟦b72690401⟧ pts_type |
| M:AF/PFTAB.SC | ⟦d705a8042⟧ pts_type |
| M:AF/SCLASS.SC | ⟦8c4a79f77⟧ pts_type |
| M:AF/ST8000.SC | ⟦d5f7f450d⟧ pts_type |
| M:AF/SYSBUG.SC | ⟦a20db472a⟧ pts_type |
| M:AF/SYSINI.SC | ⟦4e43608c1⟧ pts_type |
| M:AF/SYSLCR.SC | ⟦2032a1f79⟧ pts_type |
| M:AF/SYSLDM.SC | ⟦87aa4082a⟧ pts_type |
| M:AF/SYSLOD.SC | ⟦35bb9cb78⟧ pts_type |
| M:AF/SYSTAB.SC | ⟦97e2913b0⟧ pts_type |
| M:AF/TABORT.SC | ⟦ff5fc273b⟧ pts_type |
| M:AF/TCLASS.SC | ⟦6e2bedf3c⟧ pts_type |
| M:AF/TDISP.SC | ⟦a64cd893b⟧ pts_type |
| M:AF/TIMER.SC | ⟦e8df0aab1⟧ pts_type |
| M:AF/TLDSEG.SC | ⟦b9ee4a392⟧ pts_type |
| M:AF/TMMLKM.SC | ⟦ca2f5a8bb⟧ pts_type |
| M:AF/TMOVE.SC | ⟦7e14f9ab9⟧ pts_type |
| M:AF/TOSSIO.SC | ⟦fd7e538ae⟧ pts_type |
| M:AF/TPROC.SC | ⟦93f0f3473⟧ pts_type |
| M:AF/TTMJOB.SC | ⟦d99f95a49⟧ pts_type |
| M:AF/X.UF | ⟦c7f785cf6⟧ pts_type |
| P:AF | «none» |
| P:AF//OBJCT.OB | ⟦405f32e26⟧ pts_type |
| P:AF/A:AF.LM | ⟦2837e0ae3⟧ pts_type |
| P:AF/A:PROD.LM | ⟦cb129a2a6⟧ pts_type |
| P:AF/OBDIR.UF | ⟦6303f41bb⟧ pts_type |
| SAG | «none» |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»SAG «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x000000…000ca0 }
0x000ca0…001940 (1, 0) DirGranule ((1, 0)) {
0x000ca0…001940 DirEnt {nam=»M:AF «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0328, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CA «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0030, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CB «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CC «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0320, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0020, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0038, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c00, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0190, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0260, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0128, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00b0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05b0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRND01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0088, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DCADDR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0150, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TMOVE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0028, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DCSTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01b0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0200, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01a0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SYSINI«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0230, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVTG2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0830, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0108, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRSU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0340, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0750, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0358, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0520, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0538, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00e8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0210, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0220, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0280, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DVG202«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0510, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SYSBUG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0308, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a38, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MONLNK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x11e0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTABXX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04e8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b28, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»M:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1200, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»X «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0f58, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»M:PROD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0f78, f03=0x0000}
0x000ca0…001940 }
0x001940…001ad4 (1, 1) Opaque[0x194]
0x001ad4…001c68 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0328, f03=0x0000}
0x001ad4…001c68 IdxSect {
0x001ad4…001c68 f00 = 0x0019 // 0x1ad4 @0x0
0x001ad4…001c68 f01 = 0x0002 // 0x1ad6 @0x2
0x001ad4…001c68 gno = [ // 0x1ad8 @0x4
0x001ad4…001c68 [0x00]: C0x0019.0x1.0
0x001ad4…001c68 ]
0x001ad4…001c68 }
0x001c68…001dfc Dummy {f00=0x0019, f01=0x0190, f02=» 2 P IDENT TCLASS REL 11.0 81-01-26 870105041100 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVKB01 P EXTRN DVDI01 P
0x001dfc…001f90 Dummy {f00=0x0019, f01=0x0190, f02=»A TC00 P DATA TC01 P DATA TC02 0 PTCLASE EQU * N PTC00 DATA TC00E-* b P DATA /0021 P DATA DVKB00 P DATA /0031 P DATA DVDY00 PTC00
0x001f90…002124 Dummy {f00=0x0019, f01=0x415c, f02=» /0040 P DATA DVDI01 P DATA /0050 2 P DATA DVDY01 R PTC01E EQU * r PTC02 DATA TC02E-* P DATA /0030 P DATA DVG202 P DATA /0131
0x002124…0022b8 Dummy {f00=0x0019, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x0022b8…00244c Dummy {f00=0x0019, f01=0x4142, f02=»IX & PITCH ~ P DATA 0 LINE SPACE " P DATA /3300 HIGH SPEED PARAM. , P DATA 0 HOPPER 1 OR 2 R P DATA 0,0 LAST TAB POS. p & P DATA 0 CONTR. SEQ. SEPARATOR IND. P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF
0x00244c…0025e0 Dummy {f00=0x0019, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x0025e0…002774 (1, 2) Opaque[0x194]
0x002774…002908 # DirEnt {nam=»CA «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0030, f03=0x0000}
0x002774…002908 IdxSect {
0x002774…002908 f00 = 0x0001 // 0x2774 @0x0
0x002774…002908 f01 = 0x000e // 0x2776 @0x2
0x002774…002908 gno = [ // 0x2778 @0x4
0x002774…002908 [0x00]: C0x0001.0x2.0
0x002774…002908 [0x01]: C0x001e.0x0.0
0x002774…002908 [0x02]: C0x001f.0x2.0
0x002774…002908 [0x03]: C0x0020.0x0.0
0x002774…002908 [0x04]: C0x0020.0x2.0
0x002774…002908 [0x05]: C0x0022.0x0.0
0x002774…002908 [0x06]: C0x0022.0x3.0
0x002774…002908 ]
0x002774…002908 }
0x002908…002a9c Dummy {f00=0x0001, f01=0x0190, f02=» ASG /02,NO MOV TCLASS,/S,TOSSWORK KPF /S,TCLASS 4 SCR J INC TCLASS,TOSSWORK V KPF /O r MOV SCLASS,/S,TOSSWORK KPF /S,SCLASS SCR INC SCLASS,TOSSWORK KPF /O MOV MONTAB,/S,TOSSWORK
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=»WORK ~ KPF /S,SYSTAB SCR " MOV TDISP,/S,TOSSWORK . KPF /S,TDISP L SCR ` MOV LRPINT,/S,TOSSWORK l KPF /S,LRPINT SCR MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV MSUBS,/S,TOSSWORK
0x002c30…002dc4 Dummy {f00=0x0001, f01=0x018e, f02=»SIO SCR MOV LDTASK,/S,TOSSWORK KPF /S,LDTASK 6 SCR L MOV ST8000,/S,TOSSWORK X KPF /S,ST8000 v SCR MOV DRND01,/S,TOSSWORK KPF /S,DRND01 SCR MOV DCADDR,/S,TOSSWORK KPF /S,DCADDR
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x018e, f02=» MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB & SCR : MOV LKMAL,/S,TOSSWORK F KPF /S,LKMAL d SCR x MOV SYSLOD,/S,TOSSWORK KPF /S,SYSLOD SCR MOV SYSLDM,/S,TOSSWORK KPF /S,SYSLDM SCR MOV
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=» ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ` !!EN ASM /S KPF /O KPF /S SCR LED SYSLDM ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$
0x0030ec…003280 Dummy {f00=0x0001, f01=0x0190, f02=»/S SCR LED SYSLCR ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ T ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED SYSINI ( #!!CH $$C
0x003280…003414 (1, 3) Dummy {f00=0x001e, f01=0x0190, f02=»ASM /S KPF /O KPF /S SCR * MOV DSKSUB,/S,TOSSWORK 6 KPF /S,DSKSUB T SCR j LED DSKSUB v ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$
0x003414…0035a8 Dummy {f00=0x001e, f01=0x0190, f02=» $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( !!EN T ASM /S ` KPF /O n KPF /S | SCR LED TDISP ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$C
0x0035a8…00373c Dummy {f00=0x001e, f01=0x0190, f02=»U 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ H !!EN t ASM /S KPF /O KPF /S SCR LED TPROC ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$
0x00373c…0038d0 Dummy {f00=0x001e, f01=0x0190, f02=»D MSUBS ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ < ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ h !!EN ASM /S KPF /O KPF /S SCR LED TTMJOB ( #!!CH $$CPU857 EQU 0$$CPU857 EQU
0x0038d0…003a64 Dummy {f00=0x001e, f01=0x0190, f02=» KPF /S SCR LED TOSSIO ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 0 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED LDTASK ( #
0x003a64…003bf8 Dummy {f00=0x001e, f01=0x0190, f02=» ASM /S KPF /O KPF /S $ SCR 2 LED ST8000 > ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ P ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ | ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S
0x003bf8…003d8c Dummy {f00=0x001e, f01=0x0190, f02=»U 1$$CPU852 EQU 0$$ !!EN ASM /S ( KPF /O 6 KPF /S D SCR R LED DCADDR ^ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x003d8c…003f20 Dummy {f00=0x001e, f01=0x0190, f02=»EQU 1$$ t ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN < ASM /S H KPF /O V KPF /S d SCR r LED DCSTAT ~ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU
0x003f20…0040b4 (1, 4) Dummy {f00=0x001f, f01=0x0190, f02=» MOV DVTDI,/S,TOSSWORK KPF /S,DVTDI " SCR 6 MOV DVTDY,/S,TOSSWORK B KPF /S,DVTDY ` SCR t MOV DVTG2,/S,TOSSWORK KPF /S,DVTG2 SCR MOV DRKB04,/S,TOSSWORK KPF /S,DRKB04 SCR MOV DRDI01
0x0040b4…004248 Dummy {f00=0x001f, f01=0x0190, f02=»WORK ~ KPF /S,DRSU01 SCR " MOV DRGP03,/S,TOSSWORK . KPF /S,DRGP03 L SCR b MOV DRFD01,/S,TOSSWORK n KPF /S,DRFD01 SCR LED DRKB04 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$
0x004248…0043dc Dummy {f00=0x001f, f01=0x0190, f02=» !!CH $$ X:I$$ 64$$ !!CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 0$$ 8 !!CH $$ X:L$$ 00$$ R ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x0043dc…004570 Dummy {f00=0x001f, f01=0x018e, f02=»857 EQU 1$$ x ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ @ !!EN l ASM /S x KPF /O KPF /S SCR LED DRDY02 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$
0x004570…004704 Dummy {f00=0x001f, f01=0x0190, f02=» !!CH $$ X:I$$ 0$$ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ J ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ v !!EN ASM /S KPF /O KPF /S SCR LED DRSU01 !!CH $$ X:A$$ 0$$
0x004704…004898 Dummy {f00=0x001f, f01=0x018e, f02=» !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 01$$ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 8 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ d ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED DRGP03
0x004898…004a2c Dummy {f00=0x001f, f01=0x0190, f02=» !!CH $$ X:F$$ 132$$ !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 1$$ : !!CH $$ X:I$$ 00$$ T !!CH $$ X:J$$ 0$$ n !!CH $$ X:K$$ 1$$ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852
0x004a2c…004bc0 Dummy {f00=0x001f, f01=0x0190, f02=» !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ 8 !!CH $$ X:E$$ 256$$ R ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ n ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x004bc0…004d54 (1, 5) Dummy {f00=0x0020, f01=0x0190, f02=» !!DL 75,91 !!EN ASM /S & KPF /O 4 KPF /S B SCR P LED DVTKB !!DL 45 n DATA 0,0,0,0,0,0,0,0 ~ DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0, !!IL 48 DATA 0,0,0,0,0,0,0,0 DATA 0,0,
0x004d54…004ee8 Dummy {f00=0x0020, f01=0x0190, f02=»R LED DRND01 !!CH $$ X:A$$ 01$$ !!CH $$ X:B$$ 01$$ 6 !!CH $$ X:C$$ 00$$ P !!CH $$ X:D$$ 00$$ j !!CH $$ X:E$$ 00$$ !!CH $$ X:F$$ 00$$ !!CH $$ X:G$$ 00$$ !!CH $$ X:H$$ 00$$ !!CH $$ X:I$$ 01$$ !!
0x004ee8…00507c Dummy {f00=0x0020, f01=0x0190, f02=»CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 0$$ 2 !!CH $$ X:F$$ 0$$ L !!CH $$ X:G$$ 1$$ f ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x00507c…005210 Dummy {f00=0x0020, f01=0x0190, f02=» ASM /S KPF /O KPF /S $ SCR 2 MOV TIMER,/S,TOSSWORK > KPF /S,TIMER SCR p MOV TPROC,/S,TOSSWORK | KPF /S,TPROC SCR MOV TMMLKM,/S,TOSSWORK KPF /S,TMMLKM SCR MOV TLDSEG,/S,
0x005210…0053a4 Dummy {f00=0x0020, f01=0x0190, f02=» z KPF /S,MONTIM SCR LED TIMER * ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ < ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ h ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED T
0x0053a4…005538 Dummy {f00=0x0020, f01=0x0190, f02=» l !!EN ASM /S KPF /O " KPF /S 0 SCR > LED TMMLKM J ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O
0x005538…0056cc Dummy {f00=0x0020, f01=0x0190, f02=» $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ( ASM /S 4 KPF /O B KPF /S P SCR ^ LED TABORT j ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ | ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x0056cc…005860 Dummy {f00=0x0020, f01=0x0190, f02=»U 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN H ASM /S T KPF /O b KPF /S p SCR ~ LED LKMAL !!DL 065 DATA 00 !!DL 066 DATA 00 !!DL 067
0x005860…0059f4 (1, 6) Dummy {f00=0x0020, f01=0x0190, f02=»!!DL 077 !!EN ASM /S KPF /O * KPF /S 8 SCR F LED LRPINT R !!CH $$ X:A$$ 1$$ d !!CH $$ X:B$$ 1$$ ~ !!EN ASM /S KPF /O KPF /S SCR LED TMOVE !!EN ASM /S KP
0x0059f4…005b88 Dummy {f00=0x0020, f01=0x018e, f02=»$ | !!CH $$ X:E$$ 00000$$ !!CH $$ X:D$$ 00000$$ ( !!CH $$ X:F$$ 00000$$ F !!CH $$ X:G$$ 00001$$ d !!IL 55 !!DL 85 !!DL 115,177 DATA IHPFAR DATA IHLKM DATA IHRTC DATA ILLINT D
0x005b88…005d1c Dummy {f00=0x0020, f01=0x0190, f02=» DATA ILLINT DATA ILLINT DATA ILLINT , DATA CHLT1 @ DATA IHFD T DATA ILLINT h DATA ILLINT | DATA ILLINT DATA ILLINT DATA ILLINT DATA ILLINT DATA ILLINT DATA ILLINT
0x005d1c…005eb0 Dummy {f00=0x0020, f01=0x0190, f02=» DATA ILLINT ! DATA ILLINT ! DATA ILLINT ! , DATA ILLINT ! @ DATA ILLINT ! T DATA ILLINT ! h DATA ILLINT ! | DATA ILLINT ! DATA ILLINT ! DATA ILLINT ! DATA ILLINT ! DATA ILLINT ! DATA ILLINT !
0x005eb0…006044 Dummy {f00=0x0020, f01=0x0190, f02=» DATA ILLINT " DATA ILLINT " DATA ILLINT " , DATA ILLINT " @ DATA ILLINT " T DATA ILLINT " h DATA ILLINT " | DATA ILLINT " DATA ILLINT " DATA ILLINT " DATA ILLINT " DATA ILLINT " !!EN " ASM /S "
0x006044…0061d8 Dummy {f00=0x0020, f01=0x0190, f02=» " !!DL 046 # !!DL 047 # !!DL 048 # ( !!DL 050 # 8 !!DL 051 # H !!DL 052 # X !!DL 053 # h !!DL 054 # x !!DL 055 # !!DL 056 # !!DL 057 # !!DL 058 # !!DL 059 # !!DL 060 # !!DL 061 # !!EN # ASM
0x0061d8…00636c Dummy {f00=0x0020, f01=0x0190, f02=»PAG EQU 1$$ # x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!CH $$DVTKB$$DVKB00$$ $ @ !!CH $$/2222$$/0001$$ $ ^ !!CH $$/3333$$/1000$$ $ | !!CH $$COD$$CTAB01$$ $ !!CH $$ECH$$DVDY00$$ $ !!EN $ ASM /S $ KPF /O $ KPF /S $
0x00636c…006500 Dummy {f00=0x0020, f01=0x0190, f02=»1$$CPU852 EQU 0$$ $ ~ !!CH $$DVTDY$$DVDY00$$ % !!CH $$/ABC$$/1850$$ % 8 !!CH $$/2222$$/0004$$ % T !!CH $$/3333$$/0000$$ % r !!EN % ASM /S % KPF /O % KPF /S % SCR % LED DVTKB % ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$
0x006500…006694 (1, 7) Dummy {f00=0x0022, f01=0x0190, f02=»22$$/0001$$ % !!CH $$/3333$$/1000$$ & !!CH $$COD$$CTAB02$$ & 2 !!CH $$ECH$$DVDY01$$ & N !!EN & j ASM /S & v KPF /O & KPF /S & SCR & LED DVTDI & ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ & ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQ
0x006694…006828 Dummy {f00=0x0022, f01=0x0190, f02=»$ & | !!CH $$/3333$$/8000$$ ' !!EN ' ( ASM /S ' 4 KPF /O ' B KPF /S ' P SCR ' ^ LED DVTDY ' j ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ' | ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ' ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ' !!CH $$D
0x006828…0069bc Dummy {f00=0x0022, f01=0x0190, f02=»KPF /O ' KPF /S ( SCR ( LED DVTG2 ( ( ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( : ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( f ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( !!CH $$DVTG2$$DVG202$$ ( !!CH $$/2222$$/0003$$ ( !!CH $$/3333$$
0x0069bc…006b50 Dummy {f00=0x0022, f01=0x0190, f02=» ( l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ) ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ) 4 !!CH $$DVTG2$$DVG202$$ ) ` !!CH $$/2222$$/0003$$ ) ~ !!CH $$/3333$$/0000$$ ) !!EN ) ASM /S ) KPF /O ) KPF /S ) SCR ) LED TCLASS )
0x006b50…006ce4 Dummy {f00=0x0022, f01=0x0190, f02=»DI01 ) | EXTRN DVDY01 * EXTRN DVG202 * , !!IL 11 * L DATA TC00 * DATA TC01 * z DATA TC02 * !!IL 12 * TC00 DATA TC00E-* * DATA /0021 *
0x006ce4…006e78 Dummy {f00=0x0022, f01=0x0190, f02=»A TC01E-* * DATA /00200 + DATA DVKB01 + 6 DATA /00401 + V DATA DVDI01 + v DATA /00501 + DATA DVDY01 + TC01E EQU * + TC02 DATA TC02
0x006e78…00700c Dummy {f00=0x0022, f01=0x0190, f02=» TC02E EQU * , !!EN , ASM /S , , KPF /O , : KPF /S , H SCR , V LED SCLASS , b !!IL 6 , t EXTRN DWREMU , !!IL 11 , DATA TC00 , !!IL 12 , TC00 DATA TC00E-* , DATA /015 ,
0x00700c…0071a0 Dummy {f00=0x0022, f01=0x0190, f02=»IL 25 , **** - EXTRN CTAB01 - EXTRN CTAB02 - 0 !!IL 50 - F **** - V DATA CTAB01 - b DATA CTAB02 - x !!DL 082 - !!DL 083 - !!DL 084 - !!DL 087 - !!DL 089 - !!DL 090 - !!DL 091 - !!DL 092 -
0x0071a0…007334 (1, 8) Dummy {f00=0x0022, f01=0x0190, f02=»DL 102 - !!EN . ASM /S . KPF /O . ( KPF /S . 6 SCR . D LED SYSLDM . P !!CH $$ X:A$$ 01$$ . b !!CH $$ X:B$$ 01$$ . | !!CH $$ X:C$$ 00$$ . !!CH $$ X:D$$ 00$$ . !!CH $$ X:E$$ 00$$ . !!CH $$ X:F$$ 00$$ . !!CH $$ X:
0x007334…0074c8 Dummy {f00=0x0022, f01=0x018e, f02=»00$$ . !!CH $$ X:M$$ 00$$ / ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ / & ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ / R ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ / ~ !!EN / ASM /S / KPF /O / KPF /S / SCR / ASG /02,LP0F / SCR /
0x0074c8…00765c Dummy {f00=0x0022, f01=0x0018, f02=» / ASG /E0,TY10 0 $ 00$$ / ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ / & ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ / R ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ / ~ !!EN / ASM /S / KPF /O / KPF /S / SCR / ASG /02,LP0F / SCR /
0x00765c…0077f0 Dummy {f00=0x0022, f01=0x2008, f02=» 1 ASG /E0,TY10 0 $ 00$$ / ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ / & ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ / R ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ / ~ !!EN / ASM /S / KPF /O / KPF /S / SCR / ASG /02,LP0F / SCR /
0x0077f0…007984 Dummy {f00=0x0022, f01=0x2008, f02=» MOVE TO OUTPUT STRING FROM CURRENT VARIABLE FIELD P* B PSOU350 L $ P CALL STROU1,OUTSTR,OUTSTA,OUTUS Z P BNZ SOUERR MOVE NOT OK P CBNL INDEX1,INDEX2,SOU400 P ADD INDEX1,=W'1' P SWITCH P B SOU010 PSOU400
0x007984…007b18 Dummy {f00=0x0022, f01=0x0190, f02=» P* EDIT FIELD P* PKEDIT & P GETCTL 1,SPBINW3 GET MAXL 4 P CBNE SPBINW3,='0',KED100 V ( P EDWRT SPDSSCRN,BELL ACOUSTIC ALARM x P B SETCREAD PKED100 & P EDFLD SPINPUT,SPKTAB3,SPBINW1, C P SPBINW2,SPBINW4
0x007b18…007cac Dummy {f00=0x0022, f01=0x0190, f02=» ( P SET SPCHANGE ITEM CLEARED BY EDFLD " P B DYKOUT CONTINUE AS FOR DYKI 4 P* Z P* ENTER KEY d P* z PKENTER 0 P MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND , P MOVE SPBINW1,='0' INDICATE NO CLEARING 2 P MOVE SPBINW2,='0'
0x007cac…007e40 Dummy {f00=0x0022, f01=0x0190, f02=» l & P TSTCTL 2 LOOK IF COMPULSORY FIELD P BZ KENT05 NO! 2 . P CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD H P BP KENT10 YES! z PKENT05 4 P MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED P RET P* & P* EMPTY COMPULSORY FIEL
0x007e40…007fd4 (1, 9) Opaque[0x194]
0x007fd4…008168 # DirEnt {nam=»CB «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x007fd4…008168 IdxSect {
0x007fd4…008168 f00 = 0x0003 // 0x7fd4 @0x0
0x007fd4…008168 f01 = 0x0008 // 0x7fd6 @0x2
0x007fd4…008168 gno = [ // 0x7fd8 @0x4
0x007fd4…008168 [0x00]: C0x0003.0x1.0
0x007fd4…008168 [0x01]: C0x001f.0x3.0
0x007fd4…008168 [0x02]: C0x0021.0x0.0
0x007fd4…008168 [0x03]: C0x0023.0x2.0
0x007fd4…008168 ]
0x007fd4…008168 }
0x008168…0082fc Dummy {f00=0x0003, f01=0x0190, f02=» 6 2SYSGEN REL 11.1 81.07.27 12 NC = 8701 365 401110 R f bS Y S G E N SYSTEM GENERATION PROGRAM PTS RELEASE #11.1 SUPPORTING TOSS RELEASE #11.0 f ******************** ********************
0x0082fc…008490 Dummy {f00=0x0003, f01=0x018e, f02=» MEMORY MANAGEMENT UNIT : Y8 4 > DISK PAGING : H N8 ^ h $ SWAPPABLE WORK BLOCK HANDLING : r N8 DEBUGGER : Y8 B >PROGRAM LANGUAGE (AS=ASSEMBLER,BA=BASIC,CO=COBOL,CR=
0x008490…008624 Dummy {f00=0x0003, f01=0x0190, f02=» ******************** DEVICE ABBREVIATIONS * ******************** H d n DEVICE LIST (Y/N) : x NR DEFINE DEVICES : DI,DY,G2,FD,KB,SU 1MB
0x008624…0087b8 Dummy {f00=0x0003, f01=0x0190, f02=» ******************** DRKB04 4 : B L T ^ KEYBOARD TIMEOUT : h NI ECHO FUNCTION : YI . *COMPLETION OF READ REQUEST AT POWER ON : YI
0x0087b8…00894c Dummy {f00=0x0003, f01=0x0190, f02=» $ "KEYBOARD LOCK IF NO KEYLOCK ON : Y4 : D MMU BUFFER SIZE (BYTES) : N 70 p z MMU KEY TABLE SIZE : 64 KB 6236/71/72 IN SYSTEM : Y4 ( &OTHER THAN KB 6236/71/72 IN SY
0x00894c…008ae0 Dummy {f00=0x0003, f01=0x0190, f02=»PROGRAM DISPLAY : N4 $ FLASH FUNCTION : . N4 F P Z ******************** d DRDY02 : 8 4FAST OUTPUT USED FOR CONSECUTIVE EQUAL CHARACTERS : Y4 4 2OTHE
0x008ae0…008c74 (1, 10) Dummy {f00=0x001f, f01=0x0190, f02=»KEY : N4 $ SUPRESSION OF TRAILING BLANKS : " Y4 J T 2 .CURSOR STEADY ON 6386/6385 (ELSE TWINKLING) : ^ Y4 COUNTRY CODE ON 6385 (0-9) : 64 MMU BUFFER SIZE (BYTES) : 128D
0x008c74…008e08 Dummy {f00=0x001f, f01=0x0190, f02=» * &LOGG FUNCTION FOR INPUT/OUTPUT CHRS : N2 B L $ NUMBER OF LOCAL CHANNEL UNITS : V 12 ~ L HACKUMULATORS FOR NAK,RETRANSMISSION FAULT AND UNDEFINED CONTROL CHRS : N2 & "NUMBER OF REMOTE C
0x008e08…008f9c Dummy {f00=0x001f, f01=0x0190, f02=»ECTLY TO VDU : t Y2 * ******************** 4 DRGP03 P : ^ h p z * (NATIONAL CHARACTER VARIATION (1-15) : 72 FRICTION FEED : N7 FRONT FEED : Y7
0x008f9c…009130 Dummy {f00=0x001f, f01=0x0190, f02=»E : 132D CHARACTER MATRIX FONT : " 13 B L CHARACTER DENSITY (PITCH) : V 13 z . *END OF REQUEST WHEN PRINTER IS INACTIVE : N3 ORDER SET FORM PARAMETER : Y3
0x009130…0092c4 Dummy {f00=0x001f, f01=0x0190, f02=»Y3 . *FD ADAPTED TO TOSS FORMAT (DM & PAGING) : N3 F P " IBM LABELLED DISC HANDLING : Z N3 . *ORDERS FOR MOTOR START/STOP (6805 ONLY) : N3 MMU BUFFER SIZE (WORDS) : 256D
0x0092c4…009458 Dummy {f00=0x001f, f01=0x018e, f02=» ******************** SYSLOD * : 8 B J T LOADING FROM CASSETTE : ^ N4 ~ LOADING FROM DISC : N4 LOADING FROM FLEXIBLE DISC : Y4 LOADING FROM M
0x009458…0095ec Dummy {f00=0x001f, f01=0x018e, f02=» N4 CONFIGURATION FILE CHECK : Y4 : D N X b ******************** l " L K M - P R O C E S S O R S ******************** DELAY/DELAY AND ACTIVATION : Y4
0x0095ec…009780 Dummy {f00=0x001f, f01=0x0190, f02=» ATTACH/DETACH : Y4 * 4 > H R f p z ******************** $ DEFINE TERMINAL DEVICE CLASSES ******************** ******
0x009780…009914 (1, 11) Dummy {f00=0x0021, f01=0x0190, f02=»KB : Y4 FILE CODE : * 21 > H DEVICE ADDRESS : R 11 j t PTS NUMBER : ~ 6272 ECHO DEVICE : DY CODE CONVERSION : YY
0x009914…009aa8 Dummy {f00=0x0021, f01=0x0190, f02=»31 DEVICE ADDRESS : 41 , 6 PTS NUMBER : @ 6346 T ` NUMBER OF LINES : j 24 NUMBER OF CHARACTERS/LINE : 80 ********* G2 : N0 ****
0x009aa8…009c3c Dummy {f00=0x0021, f01=0x0190, f02=» 20 DEVICE ADDRESS : 10 0 : PTS NUMBER : D 6272 X d ECHO DEVICE : n DY CODE CONVERSION : YY ********* DI : YY
0x009c3c…009dd0 Dummy {f00=0x0021, f01=0x0190, f02=»***** D : Y2 & 0 FILE CODE : : 50 N X DEVICE ADDRESS : b 40 z PTS NUMBER : 6346 NUMBER OF LINES : 24 NUMBER OF CHARACTERS/LINE :
0x009dd0…009f64 Dummy {f00=0x0021, f01=0x0190, f02=»********* KB : N0 * ********* 4 DI : F N0 T ^ ********* h D : z N0 ********* G2 : Y0 FILE CODE JOURNAL : 30
0x009f64…00a0f8 Dummy {f00=0x0021, f01=0x0190, f02=»N1 ( ******************** 2 " DEFINE SPECIAL DEVICE-CLASSES N ******************** t ******************** S01 : Y1 ********* FD : N1
0x00a0f8…00a28c Dummy {f00=0x0021, f01=0x00b2, f02=» EXTRA MONITOR MODULES : N1 4 > H R f p z SYSGEN ENDED ****** S01 : Y1 ********* FD : N1
0x00a28c…00a420 Dummy {f00=0x0021, f01=0x2008, f02=» EXTRA MONITOR MODULES : N1 4 > H R f p z SYSGEN ENDED ****** S01 : Y1 ********* FD : N1
0x00a420…00a5b4 (1, 12) Dummy {f00=0x0023, f01=0x0190, f02=» ;: ;P ) : @* P ;4 @* : A* A+0 <x A+2 "V # ( * ;> A+0P UW T ;Z ;: A+0P ; - 9 , @, , =.V W.f Q/ M/ /1< S2 I2 J3@ T3 Y3 G3 L4 P4@ H4P R4j V4x K5P ;: ;L_ , : _ NO! A, A, A, A, A
0x00a5b4…00a748 Dummy {f00=0x0023, f01=0x0190, f02=» , A- L A, L @ A, A- _T 6r X ,T 6r X ) A, A, ;n 9 - .2 ;- :. .8 @- P A- 1+X A- _ .8 @, A, @, A, @, A, @, A, _ 8 A, @, V 8 .8 " @- T " @- @- P A, A, " , @, ; ,<T @+8 A, @+> A, @+D A, @+J A, @, A:
0x00a748…00a8dc Dummy {f00=0x0023, f01=0x0190, f02=»: ; W ;Z @+D A, @+> A, _x * A+2 PZ @, & ;X 0 ; P P ;P : P @R ;T ; 0 _ ;H ;4 ;( ;Z_T ;> ;4 / ,< 4 ; T P ;P : W T @R ;T ; W ;4 ;: ;: B "T" @+6 A, @+< A, @+B A, @+H A, W
0x00a8dc…00aa70 Dummy {f00=0x0023, f01=0x0190, f02=»<x ,< @: A+6 ;4 ; ;4 9@ ;4 ;4 9 : A: ,< @, R V ;a Q ;>_ ;n1 ,< ;H @: A+6_ 0 ; ;: A14 - P 3P , C @, P @, 1 @+2P @, Q @ @, Q P " ,<T @+4 A, @+: A, @+@ A, @+F A, @, A: @, A+@ @, A+F @, A+:P
0x00aa70…00ac04 Dummy {f00=0x0023, f01=0x0190, f02=» A, @+: A, _ @+.P @, V @) ( , V " @, T @) 8nTP @, P @, A: A+> A+D . ;X 0! ;( ;: - T @, P @, " 1 ,< , Px @, @, @, @, T @) 78RX A: *9l! P2 . 3 &9d! ) 3.W P$ &9d 3" & 3"_ 3 & 3.
0x00ac04…00ad98 Dummy {f00=0x0023, f01=0x0190, f02=» < ;X ! ;( ;: - T @, P @, ! 5 = ,< , , 5 ,<P @, , 64W" ( 6f ( $ B % A( ,<T @) W @, A+0 , @, R A) A+0 A) @) ( ,< A+0 , @) 5 , @, @, T I @_:P 5 @) 64_ A+0 , A) @, A) ,< @, !
0x00ad98…00af2c Dummy {f00=0x0023, f01=0x0190, f02=»)r 6f A)p ,< )r , A5. A5.:B A5.Q (P _ H B @, T @) H A5. " , EQ GT LT NE NG NL P2 @+. R* ;n 9 5 @, P Q 5| ( ,< , L U ( ( R ( @, V @) H B W # + C " ( B A5 A5 :B A5 , (P
0x00af2c…00b0c0 Dummy {f00=0x0023, f01=0x0190, f02=» I B " , $ % " ;n # C C C C *T W #T A, ;n : P PR (T 6r Pl ,T 6r P^ )TX ;n 8 A, T @) 78R: ?aP *:l" T* & W T C B B B B B " , A8 A8 A8 A8 A8 A8 A8 8nR Q
0x00b0c0…00b254 (1, 13) Opaque[0x194]
0x00b254…00b3e8 # DirEnt {nam=»CC «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0320, f03=0x0000}
0x00b254…00b3e8 IdxSect {
0x00b254…00b3e8 f00 = 0x0019 // 0xb254 @0x0
0x00b254…00b3e8 f01 = 0x0004 // 0xb256 @0x2
0x00b254…00b3e8 gno = [ // 0xb258 @0x4
0x00b254…00b3e8 [0x00]: C0x0019.0x0.0
0x00b254…00b3e8 [0x01]: C0x001c.0x2.0
0x00b254…00b3e8 ]
0x00b254…00b3e8 }
0x00b3e8…00b57c Dummy {f00=0x0019, f01=0x0190, f02=» PASG /CA,DK PASG /CB,DK PRUN SYSGEN,0 ( PN < P; F PM P P: Z PA d PF n P; x P6 P8 P1 P3 P; PY P; PN P; PN P; PY P; PC
0x00b57c…00b710 Dummy {f00=0x0019, f01=0x0190, f02=», PG P2 P, PF ( PD 2 P, < PK F PB P P, Z PS d PU n P; x PN P; P; PN P; PY P; PY P; P4 P0 P; PY P;
0x00b710…00b8a4 Dummy {f00=0x0019, f01=0x0190, f02=»; P; PN P; PN ( P; 2 P; < PY F P; P PN Z P; d PN n P; x PN P; PY P; PY P; P6 P; P1 P2 P8 P; PN P;
0x00b8a4…00ba38 Dummy {f00=0x0019, f01=0x0190, f02=»Y P; P; P7 P; ( PN 2 P; < PY F P; P P5 Z P1 d P; n P6 x P4 P; P1 P3 P2 P; P1 P; P1 P; PN P; PY P;
0x00ba38…00bbcc Dummy {f00=0x0019, f01=0x0190, f02=»; PN P; PN P; ( PY 2 P; < PN F P; P PN Z P; d PN n P; x PY P; PY P; PY P; PY P; PY P; PY P; P; PY
0x00bbcc…00bd60 Dummy {f00=0x0019, f01=0x0190, f02=»D PY P; PY P; ( PN 2 P; < PY F P; P P3 Z P1 d P; n P4 x P; P6 P3 P4 P6 P; P2 P4 P; P8 P0 P; PN P;
0x00bd60…00bef4 (1, 14) Dummy {f00=0x001c, f01=0x0190, f02=»; PD PY P; PY ( P; 2 PY < P; F P4 P P0 Z P; d P1 n P2 x P; P6 P2 P7 P2 P; PY P; P5 P0 P; P4 P; P6
0x00bef4…00c088 Dummy {f00=0x001c, f01=0x0146, f02=»; PN P; PN P; ( PN 2 P; < PY F P; P P3 Z P0 d P; n P3 x P; P3 P1 P; P P_ PN P; PY P; PN P; PN P;
0x00c088…00c21c Dummy {f00=0x001c, f01=0x2008, f02=» PN P; PN P; ( PN 2 P; < PY F P; P P3 Z P0 d P; n P3 x P; P3 P1 P; P P_ PN P; PY P; PN P; PN P;
0x00c21c…00c3b0 Dummy {f00=0x001c, f01=0x0190, f02=»U5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < PU7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F @ P* < PS2 DATA /2021,/2223,/2425,/262A,/FF3E,/2A3F,/3B5F,/3A2F < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F <
0x00c3b0…00c544 Dummy {f00=0x001c, f01=0x404a, f02=»A /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F P END :@ F071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F @ P* < PS2 DATA /2021,/2223,/2425,/262A,/FF3E,/2A3F,/3B5F,/3A2F < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F <
0x00c544…00c6d8 Dummy {f00=0x001c, f01=0x2008, f02=» < 7S5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7S7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F L END @ 051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7U7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7
0x00c6d8…00c86c Dummy {f00=0x001c, f01=0x0190, f02=» U p x # P P Z x T W PV X TJ+ Y 4 U $P(> R$> Y X '@T X ' T P $ 2W( Y Y X # P _ 4X U T T U ;h # <c$ X4 B ^: X@ B ]H "
0x00c86c…00ca00 Dummy {f00=0x001c, f01=0x0190, f02=» W Y $ W $ H $ 8% =A T > ? " 8 4TH ( X ( # ; < TR U P Q" $ 5 U T Y > > P X P P _ ] W Q Y _4 X Y $ b D P XP Y E Y Y _ @ T (@ > P X U 4X 5
0x00ca00…00cb94 (1, 15) Opaque[0x194]
0x00cb94…00cd28 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x00cb94…00cd28 IdxSect {
0x00cb94…00cd28 f00 = 0x0004 // 0xcb94 @0x0
0x00cb94…00cd28 f01 = 0x0090 // 0xcb96 @0x2
0x00cb94…00cd28 gno = [ // 0xcb98 @0x4
0x00cb94…00cd28 [0x00]: C0x0004.0x2.0
0x00cb94…00cd28 [0x01]: C0x0004.0x3.0
0x00cb94…00cd28 [0x02]: C0x0005.0x1.0
0x00cb94…00cd28 [0x03]: C0x0005.0x3.0
0x00cb94…00cd28 [0x04]: C0x0006.0x2.0
0x00cb94…00cd28 [0x05]: C0x0006.0x3.0
0x00cb94…00cd28 [0x06]: C0x0007.0x0.0
0x00cb94…00cd28 [0x07]: C0x004f.0x2.0
0x00cb94…00cd28 [0x08]: C0x004f.0x3.0
0x00cb94…00cd28 [0x09]: C0x0050.0x0.0
0x00cb94…00cd28 [0x0a]: C0x0050.0x1.0
0x00cb94…00cd28 [0x0b]: C0x0053.0x0.0
0x00cb94…00cd28 [0x0c]: C0x0053.0x1.0
0x00cb94…00cd28 [0x0d]: C0x0053.0x2.0
0x00cb94…00cd28 [0x0e]: C0x0053.0x3.0
0x00cb94…00cd28 [0x0f]: C0x0031.0x3.0
0x00cb94…00cd28 [0x10]: C0x0032.0x0.0
0x00cb94…00cd28 [0x11]: C0x0032.0x1.0
0x00cb94…00cd28 [0x12]: C0x0037.0x1.0
0x00cb94…00cd28 [0x13]: C0x0037.0x2.0
0x00cb94…00cd28 [0x14]: C0x003a.0x0.0
0x00cb94…00cd28 [0x15]: C0x003a.0x1.0
0x00cb94…00cd28 [0x16]: C0x0039.0x3.0
0x00cb94…00cd28 [0x17]: C0x003b.0x0.0
0x00cb94…00cd28 [0x18]: C0x0009.0x2.0
0x00cb94…00cd28 [0x19]: C0x003b.0x3.0
0x00cb94…00cd28 [0x1a]: C0x000b.0x2.0
0x00cb94…00cd28 [0x1b]: C0x003f.0x1.0
0x00cb94…00cd28 [0x1c]: C0x003f.0x2.0
0x00cb94…00cd28 [0x1d]: C0x000f.0x2.0
0x00cb94…00cd28 [0x1e]: C0x0010.0x1.0
0x00cb94…00cd28 [0x1f]: C0x003f.0x0.0
0x00cb94…00cd28 [0x20]: C0x003f.0x3.0
0x00cb94…00cd28 [0x21]: C0x0015.0x2.0
0x00cb94…00cd28 [0x22]: C0x0017.0x2.0
0x00cb94…00cd28 [0x23]: C0x0019.0x2.0
0x00cb94…00cd28 [0x24]: C0x0065.0x1.0
0x00cb94…00cd28 [0x25]: C0x001c.0x0.0
0x00cb94…00cd28 [0x26]: C0x0066.0x2.0
0x00cb94…00cd28 [0x27]: C0x0066.0x3.0
0x00cb94…00cd28 [0x28]: C0x0069.0x0.0
0x00cb94…00cd28 [0x29]: C0x0058.0x2.0
0x00cb94…00cd28 [0x2a]: C0x0058.0x3.0
0x00cb94…00cd28 [0x2b]: C0x0068.0x2.0
0x00cb94…00cd28 [0x2c]: C0x0068.0x3.0
0x00cb94…00cd28 [0x2d]: C0x005e.0x0.0
0x00cb94…00cd28 [0x2e]: C0x005e.0x1.0
0x00cb94…00cd28 [0x2f]: C0x0048.0x3.0
0x00cb94…00cd28 [0x30]: C0x0049.0x0.0
0x00cb94…00cd28 [0x31]: C0x0048.0x1.0
0x00cb94…00cd28 [0x32]: C0x0048.0x2.0
0x00cb94…00cd28 [0x33]: C0x0049.0x2.0
0x00cb94…00cd28 [0x34]: C0x003c.0x2.0
0x00cb94…00cd28 [0x35]: C0x0049.0x3.0
0x00cb94…00cd28 [0x36]: C0x0049.0x1.0
0x00cb94…00cd28 [0x37]: C0x004b.0x0.0
0x00cb94…00cd28 [0x38]: C0x0016.0x3.0
0x00cb94…00cd28 [0x39]: C0x0036.0x3.0
0x00cb94…00cd28 [0x3a]: C0x0037.0x3.0
0x00cb94…00cd28 [0x3b]: C0x004b.0x2.0
0x00cb94…00cd28 [0x3c]: C0x004c.0x0.0
0x00cb94…00cd28 [0x3d]: C0x004c.0x2.0
0x00cb94…00cd28 [0x3e]: C0x004d.0x1.0
0x00cb94…00cd28 [0x3f]: C0x0024.0x0.0
0x00cb94…00cd28 [0x40]: C0x008d.0x1.0
0x00cb94…00cd28 [0x41]: C0x008d.0x2.0
0x00cb94…00cd28 [0x42]: C0x008d.0x3.0
0x00cb94…00cd28 [0x43]: C0x008e.0x0.0
0x00cb94…00cd28 [0x44]: C0x0067.0x2.0
0x00cb94…00cd28 [0x45]: C0x0067.0x3.0
0x00cb94…00cd28 [0x46]: C0x0058.0x0.0
0x00cb94…00cd28 [0x47]: C0x0057.0x0.0
0x00cb94…00cd28 ]
0x00cb94…00cd28 }
0x00cd28…00cebc Dummy {f00=0x0004, f01=0x417a, f02=» J F IDENT TCLASS REL 11.0 81-01-26 870105041100 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 DVDI01 , ( D ! 1 @ DVDY01 DVG
0x00cebc…00d050 Dummy {f00=0x0004, f01=0x40d4, f02=» J F IDENT SCLASS REL 11.0 81-01-26 870105041100 SCLASSK R SCLASSK d DWREMU x @ @ P END @
0x00d050…00d1e4 Dummy {f00=0x0004, f01=0x4176, f02=» J F IDENT MONTAB REL 11.0 81-05-27 870105041100 & " MONTABK SPDLCI FREQUE PAGQUE R CTAB01 | CTAB02 MONTABK FREQUE PAGQUE SPDLCI KBAD4 DIADN
0x00d1e4…00d378 Dummy {f00=0x0004, f01=0xc0ac, f02=» GPAD04 VUAD GPAD3 " TPAD4 2 TNAD B , ( R % & @ SPDLCI KBAD4 TPAD GPAD DNAD DIAD
0x00d378…00d50c Dummy {f00=0x0004, f01=0x0190, f02=» J F IDENT DEBUGM REL 11.0 81-07-26 870105041100 dBUG R |BUG ` , ( A :U A A p , ( ! @ ~ A A ~ @ A A , ( A @ A A @ A A " a
0x00d50c…00d6a0 Dummy {f00=0x0004, f01=0x0190, f02=» h , ( , ( $ ( , 0 4 8 , ( 8 < h , ( 9 , ( Y , ( y
0x00d6a0…00d834 (1, 16) Dummy {f00=0x0004, f01=0x0190, f02=» T :a R T <a Z _ = , ( :A , >a @ ( , ( " A P UW B X , ( 9 @ = / M Q , ( Y R S T Y G P H L , ( y V I U _v
0x00d834…00d9c8 Dummy {f00=0x0004, f01=0x0190, f02=» P A A x , ( . , + - ; # , ( $ : X " H W X " H TTB:AP x ACBRELA , ( * 9 H H A W W L , ( W@ H A A _p @ P A 1+ , ( !T u X A
0x00d9c8…00db5c Dummy {f00=0x0004, f01=0x0190, f02=»NDTID , ( ! ? > " @ , ( D @ T " ( ^ @ P > , ( R A A " @ T @ n , ( 3 W @ A W W 0 , ( $ S _, W W , ( s
0x00db5c…00dcf0 Dummy {f00=0x0004, f01=0x0190, f02=» _` A , ( @ T @ W @ T @ W @ @ . , ( >a @ A ^ , ( 3 A , ( S ;a ]@ 1 _L W @ , ( s $ 0
0x00dcf0…00de84 Dummy {f00=0x0004, f01=0x0190, f02=» @ Q A @ ~ , ( BT A " T @ W @ A , ( ! A P @ _2 N , ( 3 T 0 P P ~ , ( S _ @ @ , ( P s @ @ P
0x00de84…00e018 Dummy {f00=0x0004, f01=0x0190, f02=» ) " A n , ( U H A @ , ( * @ @ T A A > , ( 3 P @ P n , ( @ S @ ! T A @ A # , ( E s A ~ RE XRN Y , ( P ME
0x00e018…00e1ac Dummy {f00=0x0004, f01=0x0190, f02=» T P #~ > V . >A , ( P Y X W ^ ? ? . , ( @ 3 @ ' P Y Y W Y Y @ ^ PRUNN ACBLACA , ( S @" P @ = ] , ( m ] ] W A A A W
0x00e1ac…00e340 Dummy {f00=0x0004, f01=0x0190, f02=» A p , ( A > > > > , ( > > > > ^ _ ^ _ ? ? ? ? @ , ( @ - ? A ^ @ ? ? p , ( @ M > > > > > > > , ( D m @ > , ( (
0x00e340…00e4d4 (1, 17) Dummy {f00=0x0005, f01=0x0190, f02=» # H A " A 0 , ( R 9U AR FQ 0:D A 0 , ( - _* A " A A ` , ( M T A A " , ( m R _U . " , ( A : A
0x00e4d4…00e668 Dummy {f00=0x0005, f01=0x0190, f02=» " A A P R :UT , ( @ @ W 9D) 9 I 9 ^ @ W TTB:MT P $ - ? H > " b , ( ! R :W W , ( W W ?W /W : A W ! A A , ( P _ @ _
0x00e668…00e7fc Dummy {f00=0x0005, f01=0x0190, f02=» A A @ z , ( B A A @ > @ _ , ( " a z | I R M A P T @ T J , ( D @ P A W ` @ @ P @ z , ( T A P A < V A @ H D ! )
0x00e7fc…00e990 Dummy {f00=0x0005, f01=0x0190, f02=» ? F C I M Q , U Y j ] d a l e . i : m q u H D ! y } 4 p p j T P B H D ! 0 d d | H N # /W* 3 GW K MW Q g H D !j| mP P W P W
0x00e990…00eb24 Dummy {f00=0x0005, f01=0x0190, f02=»V W r H D ! > T j W T W # ' + 3 7 > ; . H D ! ? I j M h ] g oW W P z H D !6n P P P T W < P # b + 5 b ;
0x00eb24…00ecb8 Dummy {f00=0x0005, f01=0x018e, f02=»W T V W~ P ^ H D ! P P P W TR PJ V P %W ;P EW UP$ yW } H D ! W P T T V 3 : K r f H D ! Q P < R$ U R Q + < / 9 < E f I h H D ! M Q
0x00ecb8…00ee4c Dummy {f00=0x0005, f01=0x40c6, f02=» J H D ! R T W( @ ) @ +W R W" W W W W W H D !P W PL T T P T$ 5 < oR> wP6 T. P W T P T V @ < R$ U R Q + < / 9 < E f I h H D ! M Q
0x00ee4c…00efe0 Dummy {f00=0x0005, f01=0x0190, f02=» J F IDENT SYSLOD REL 11.0 81-05-22 870105041100 F B SYSLODK SYSBAS NUMSEG PRGLG1 APLADA APLLAC APLLAPL APLLDA R F B APLMMC APLMMP APLNPE APLREL APLSTA APLTYPL APLIOE APLSEG APLSWB APLADA
0x00efe0…00f174 (1, 18) Dummy {f00=0x0005, f01=0x0190, f02=» APLSEG APLNPE APLSWB 0 APLSTA D APLTYPL X NUMSEG l PRGLG1 SYSLODK STKEND SCTIPL SCTANOB , ( I$ A 0 A A " A A
0x00f174…00f308 Dummy {f00=0x0005, f01=0x0190, f02=» @ " A. bREL & TABBE 4 , ( O UU @>B @ A D , ( k @ D E D E P t MMDDIV , ( $_( W V W V P ERROR SCTMSZW
0x00f308…00f49c Dummy {f00=0x0005, f01=0x0190, f02=» @ @ A , ( ! P A @ , , ( ! @ $ A A @ , ( H @ @ E E E E E , ( 9A A & E @ F CRP , ( U <A COP <A BAP AS
0x00f49c…00f630 Dummy {f00=0x0005, f01=0x0190, f02=» MMEND , ( F ;j , ( Y P F P > , ( @ P - P _ n , ( :L E A W , ( F D AST =l R , ( ?
0x00f630…00f7c4 Dummy {f00=0x0005, f01=0x0190, f02=» P :L AST , ( A A E E A A , , ( 8 P W 89B @ V , ( $ W Zb A @ @ , ( A A @ D , ( # B AS @
0x00f7c4…00f958 Dummy {f00=0x0005, f01=0x0190, f02=» A _H | , ( S W , ( Y* L , ( H @ @ A @ | , ( L P , ( :l 9b )
0x00f958…00faec Dummy {f00=0x0005, f01=0x0190, f02=» j , ( m U 8 !RRT A SCTNOP : , ( $ " @ P A A " @ > L , ( V T P T | , ( ;a=a?j V Y R W , ( ?J E =A;A E
0x00faec…00fc80 Dummy {f00=0x0005, f01=0x0190, f02=»BD A : " A @ A @ * & M E A @ V @ * * & e @ P , . A X , ( } @ @ A A , ( , (
0x00fc80…00fe14 (1, 19) Dummy {f00=0x0006, f01=0x018e, f02=» v , ( 3 _ 0 !TTX A 8 !CCT CC A , ( S _ 0 !;; !AAP !DDT F , ( sI @ @ A 6 0_ ; # v , ( H @ @ @ I A , ( P T , (
0x00fe14…00ffa8 Dummy {f00=0x0006, f01=0x0190, f02=» f , ( T @ " A @ @ @ MOVEN 8 , ( / I A ( A H SCTMXS x , ( IA @ A @ SYSLDM , ( c $ *P @ A * @ , , ( y $
0x00ffa8…01013c Dummy {f00=0x0006, f01=0x0190, f02=» T : , ( : 0 !TT 0 !;; , , ( : 0 !LLP !RRP !AA , ( + P !SSP !PPP !VVP !QQP W W , ( K P W A 0 !;;T , ( i : 0 !00R !99U !
0x01013c…0102d0 Dummy {f00=0x0006, f01=0x0190, f02=» : !00T A : | , ( 0 !99Q !00R P P =H_ : , ( TID=TCL=LEV=TDC=T0LC=0SDC=S0 L , ( '@ A I. : A A | , ( E " Q :d @ 1 # R P R W , ( cD * A $ W
0x0102d0…010464 Dummy {f00=0x0006, f01=0x0190, f02=» A l , ( A A A F 0 A , ( 2 : A A : < , ( @ @ 2 ! P V :AW 9E R l , ( 3 _ <e @ 2 $ T 9A $ < :B , ( Q 9A) @ P A A I T , ( q W
0x010464…0105f8 Dummy {f00=0x0006, f01=0x0190, f02=» : 9P , ( S Y T $ 1T C !CCT : 1P , CONVRT , ( H P _ P =H P . @ T X n , ( + A : Y h C , ( I !CCT B. * X B.9 H , ( i
0x0105f8…01078c Dummy {f00=0x0006, f01=0x0190, f02=» 0 : V W Q , ( T W @ T . , ( R P @ T A ^ , ( F R U @ , ( 5@ A p T : A _ , ( S 0V , -
0x01078c…010920 Dummy {f00=0x0006, f01=0x0190, f02=» P ~ , ( B T _* @ " 2 @ , ( ` P A : L , ( " T 0 | , ( !;;P 0 !;; " " , ( 7 - a =! 0 - Y :
0x010920…010ab4 (1, 20) Dummy {f00=0x0006, f01=0x018e, f02=» %T l , ( 8 P , ! P : SYSBAS < , ( . : : P * & 7 ( W $SWAP H D ! 5 P P 2 P J SP [P cP sP yT P H D !X U
0x010ab4…010c48 Dummy {f00=0x0006, f01=0x0190, f02=» H D ! v 7 ( QP _P0 c p qP ( p S W p @ ( P 3 ( E J _V4 H D ! gR, wU { T Pf V T P T V R W J aV gP P H D ! k J j j H D ! V V P&
0x010c48…010ddc Dummy {f00=0x0006, f01=0x0190, f02=» P G 2 P T R T eP H D ! P P P@ T T " " " P& %P +P 1P 7P < H D ! =P CP EW IW O SP UW [ gT sR yU R Q T H D ! 0 TV T Q0 R* P P 9 A
0x010ddc…010f70 Dummy {f00=0x0006, f01=0x416a, f02=» W YP ] a mTd qW l H D ! T T( P W W J V S PN TD T> Tp P P( ( H D !) 'T MTr i yTF S W V W, Q( T W& T R P t H D ! ) N T #R )U =T K J YV eP wP {W T P T
0x010f70…011104 Dummy {f00=0x0006, f01=0x8190, f02=»P T V R W aVb e B n H D ! [ i & q & y PZ < D WP T x W x * H D ! P $ f 8 8 ! % v H D ! ) - 8 1 5 9 = GP& K H O S 8 W [ _ ( c 8 g ~ k
0x011104…011298 Dummy {f00=0x0006, f01=0x818e, f02=»R q yT Z H D ! P P P PP T ;T ? G _ o { X P& P P H D ! @ P P P P W W X P W X T R U R Q T b H D ! x | # + 3 =TV MT cQ0 iR* kP qP Q R@ H D ! P6 RN
0x011298…01142c Dummy {f00=0x0006, f01=0x8190, f02=» H D ! P: ) 1 9 & A * E I eQ kP w yP } H D ! h P T R U P P 1T8 7R, 9Q$ P H D ! O QQ U { T : T , T W X n H D ! f T h P V W R T
0x01142c…0115c0 Dummy {f00=0x0006, f01=0xc0e2, f02=» I sS uW V W, Q( T W& T R P H D ! R T R U T !V -P ?P CW k wT { P T P < @ < T P # 7P ; t ?P yT P P @ H D ! f T h P V W R T
0x0115c0…011754 (1, 21) Dummy {f00=0x0007, f01=0x818e, f02=» J F IDENT SYSLDM REL 11.0 81-02-16 870105041100 SYSLDMK R SYSLDMK d bREL x STKCOMW SYSLOD TCLASS SCLASS( * & $H @ STKEND
0x011754…0118e8 Dummy {f00=0x0007, f01=0x8190, f02=» DWTMEC , ( OA Y 5 X SCTSFA F , ( i * _6 : @ X SCTTCT@ , ( $ % @ * & $ @ R ERROR , (
0x0118e8…011a7c Dummy {f00=0x0007, f01=0x8190, f02=»BLK , ( : ` SCTNOF < , ( H @ A P _ @ N , ( @ @ 3 S S @ V ~ , ( 9! A : , ( S @P T
0x011a7c…011c10 Dummy {f00=0x0007, f01=0x8190, f02=» l , ( CRT N =H N A N =H N CONVRT8 < TTB:TD N TTB:AM ` , ( $ " A $ @ %!5!T r TTB:MT , ( H & &W @ = V ( TTB:CB , ( @ (W = V
0x011c10…011da4 Dummy {f00=0x0007, f01=0x8190, f02=» P " U * & } _2 @ & , ( " P . 0 T , ( I V TTB:ST , ( H . 0 S $ @ S ,=J TTB:PW|
0x011da4…011f38 Dummy {f00=0x0007, f01=0x8190, f02=»:PP , ( $BT @ S 4 A A , ( % _ !TTT @ , < PUSHN l , ( ? $ P @ * @ a : | , ( WA 6 T ` @ , ( q W H A J AS
0x011f38…0120cc Dummy {f00=0x0007, f01=0x8190, f02=» @ ;C , ( @ U BAT @ , , ( * @ 8 : A . @ , ( ) @ P S SCTIPL , ( - _ S A . @ < 3 , ( I 3
0x0120cc…012260 Dummy {f00=0x0007, f01=0x8190, f02=» J U 3 S TTB:SP . , ( B S S _p P " I > @ bPOB p , ( D _ @ : P @ : ~ , ( $ A A < H A * & $ P
0x012260…0123f4 (1, 22) Dummy {f00=0x004f, f01=0x818e, f02=» l , ( A H I K T + , ( Y@ @ 6 _f @ Y < * & @ !TTX Y % @ l SCTFWT * & : A @ BT @ A , ( A H A *
0x0123f4…012588 Dummy {f00=0x004f, f01=0x8190, f02=» f DWTTAB , ( W T B D YP G , ( u 9h G G @ 8 P A 8 J , ( H _l @ A @ Y z , ( @" !TTX Y : , ( !TTX !CCT ,
0x012588…01271c Dummy {f00=0x004f, f01=0x8190, f02=» j * & ; $ $ _. Y SCTDCT 8 SCTDMT J , ( Y D !TTX @ F @ H @ ! SCTCDT * & q P @ 8 8 8 3 , ( J * U , ( I
0x01271c…0128b0 Dummy {f00=0x004f, f01=0x8190, f02=» @ @ < @ _2 , ( ]X @ 8 8 8 , , ( 1 4 D P @ # P , ( O H I K T K , ( k YB _b @ H @ F , ( @ % P @
0x0128b0…012a44 Dummy {f00=0x004f, f01=0x8190, f02=»PPT W !LLT z , ( W !RRP A A , ( . A 0 @ 0 P @ P J DWTCP2 z , ( / P _ P H L&? @ . #? DWTST , ( K" H N& D N# * H D , ( e@ D
0x012a44…012bd8 Dummy {f00=0x004f, f01=0x8190, f02=» @ I L D #@P D R L T D , ( TP @ ` < T @ < 1 0 DWTSQ ` DWTDEVW p , ( Q a < V I V I V , ( @ D X# P W W D , ( DV ` < T @ < 1 Q
0x012bd8…012d6c Dummy {f00=0x004f, f01=0x8190, f02=» A r , ( m < + + P , ( B$ @ : ` < P @ < @ < @ , ( @ @ < D (P W H $ I p * & @ T % E , a < : * & , (
0x012d6c…012f00 Dummy {f00=0x004f, f01=0x8190, f02=» A 0 A * , ( eH A , A . @ , @ . * INTLT1 Z , ( }$ P A . @ 2 E Z A , l * & @ * Q _8 A , ( @ 0 A * A , A . @ INTRT1
0x012f00…013094 (1, 23) Dummy {f00=0x004f, f01=0x8190, f02=» " l * & : &=H F " : F =H F GETNUM : , ( 3 " : ? ? ^ > > : L , ( O 4 P N =H N T | , ( mA _ : @ ! P (W ( : @ , ( 0 P 0 _ @ Q
0x013094…013228 Dummy {f00=0x004f, f01=0x8190, f02=» j , ( 2 * P J , ( # P _ :d Y @ * Z : , ( -@ A . T _4 @ j * & K 0 2T P _ / , ( g : .P W P A , ( .X
0x013228…0133bc Dummy {f00=0x004f, f01=0x8190, f02=» T N&@P @ 9 A J , ( ] W @ 9 A P _d ( , ( @ @ 8P 0P _ 1 _ @ X , ( - 8P 9 _ (T P _ 3 * & M @ _ : @ @ , ( g T :
0x0133bc…013550 Dummy {f00=0x004f, f01=0x8190, f02=» P 5 _ ` v , ( R - _ : @ A : * & I A : @ : A F bPSW t , ( $ : P @ A @ : , ( % ` : . ! T ! , ( A . : R
0x013550…0136e4 Dummy {f00=0x004f, f01=0x8190, f02=» H D !d P 0 ) 0 /WL 9P@ x R6 P P P # P 7V SP( [T H D ! T J T W V W V # 'P0 + & 9U [ cP0 g & uU P H D !% P V T 9T A CP ] g iT sW h T W P v H D ! " U T8 !P Q v Y v kRh s v
0x0136e4…013878 Dummy {f00=0x004f, f01=0x8190, f02=» A 6 MT YT gP o x P Tr P, H D ! & U P, # & 1U O U sP U T P R W < H D !~ P0 & 6 ! & ;P$ C J KP P T WB T H D !$ W6 T W* T W T W P
0x013878…013a0c Dummy {f00=0x004f, f01=0xc10e, f02=» o s j }P Q j P Q l H D ! WP eT }P W P Q P P P P Z P@ P 5T ST WP ( H D ! mP sW wP Z T TT P W P P W P P P /P ?T t 4 0 CP iT R R T P R P , 3T YR @
0x013a0c…013ba0 Dummy {f00=0x004f, f01=0x8190, f02=» P4 9T oP s V P( h H D !h* T ( T - z QT [W cV mW qV 8 P0 V U H P0 $ H D ! ` V U P V O oT T 4 P 4 T W h T W p H D !F P + CU WT8 P Rh P T W* S W U H D
0x013ba0…013d34 (1, 24) Dummy {f00=0x0050, f01=0x8190, f02=» + ;Tr T H D ! E ( IP, M V [U y H P, V U 4 P U T %P )R - 4 H D !_ 1W ; ( ?P0 G V O f c s w H V P$ z P P )T - 6 /WB H D !I$ 5T 9 V ;W6 AT E GW* MT Q SW YT ] _W eP q PV P H D ! P d z
0x013d34…013ec8 Dummy {f00=0x0050, f01=0xc162, f02=» Q( R" Y ] gP Q P Q P 1Q Q U H D !3 _P Q P Q P #Q P T P W P Q H H D ! P P P P 7P@ CP eT T P P W P T TT H D ! P W P P +W =P GP OP _P
0x013ec8…01405c Dummy {f00=0x0050, f01=0x0190, f02=» J F IDENT SYSLCR REL 11.0 81-10-06 870105041100 SYSLCRK R SYSLCRK d STKEND x STKMOV SCTSFAR , ( H ) @ A x STKCOMW GETAPP , (
0x01405c…0141f0 Dummy {f00=0x0050, f01=0x0190, f02=» A ^ d H t , ( c d H K 2 CMPADR D ERROR V , ( ;A @ x | R f , ( - @ x - J N ! , ( TTP N :H N TBT K , ( W 2
0x0141f0…014384 Dummy {f00=0x0050, f01=0x0190, f02=» @ !TTXX !CCT !UU , ( ) T @ x K (9A A x , GETNUML , ( E $ @ 2 n , ( a .:H N R P V * & _ N R :h$ * &
0x014384…014518 Dummy {f00=0x0050, f01=0x0190, f02=» l INILEN , ( A x A j , ( H A l @ A L A N SCTOPTP ~ , ( @ CR @ D MULTN , ( 9 G " F * E H , ( W
0x014518…0146ac Dummy {f00=0x0050, f01=0x0190, f02=» T _ k k :A K , ( J 4 P T T 0 * & @ _ K K @ @ ` , ( x @ ` @ j @ @ * & @ l @ d A @ , ( 3 @ A
0x0146ac…014840 Dummy {f00=0x0050, f01=0x0190, f02=» @ L >k | * & 8 A A , ( H Q R ^ V H MMTAB x , ( ;k " , , ( @ @ T A R @ ^ P * & U U
0x014840…0149d4 (1, 25) Dummy {f00=0x0050, f01=0x0190, f02=» 9k! " P , ( e $ % _ @ $ @ & A & A $ $ MMENT T * & }$H A " & A d * & J ` & ) K @ , ( b G ` & ) , ( - J ` $ 4
0x0149d4…014b68 Dummy {f00=0x0050, f01=0x0190, f02=» R X4 _ J GETTTB@ TTB:PP 2 MOVMMT D TTB:ID V , ( ; $ P ( I * , h TTB:CB TTB:SB TTB:SA * & UI H . 0 I 2 4 @ MMBEG
0x014b68…014cfc Dummy {f00=0x0050, f01=0x0190, f02=» 8 , @ ~ A ~ , ( ~ % R , , ( " E R N , ( @ A t R R P R Xv ~ , ( _|W T : A p * & / _ A r N P
0x014cfc…014e90 Dummy {f00=0x0050, f01=0x0190, f02=» D l , ( B E @ b H ` & H ` $ , ( H E #_ A P @ L < , ( 9k $ A A J l , ( " ` & ( ` $ A N J $ , ( K $ J J | , ( # @ |
0x014e90…015024 Dummy {f00=0x0050, f01=0x0190, f02=» _ " = D 4 Q _l , ( ( 1 , = G 4 * , ( 0 @ & A $ $ @ Z LSTPAG SCTTCT , ( E : " L M _V < * & < <P & &X '
0x015024…0151b8 Dummy {f00=0x0050, f01=0x0190, f02=» A ^ @ | SCTEFAR * & ? @ :B A @ @ 9n A . , ( W @ @ L @ @ R P J V , ( qI$ @ ^ A @ A A R K MOVING , ( " B : @ H <B A z P , ( ! P
0x0151b8…01534c Dummy {f00=0x0050, f01=0x0190, f02=» b @ v M : Z A , ( V @ H R R , , ( # > R W > , ( C <B @ p @ P P ` & 1 , ( ]I ` $ A v @ r ` Z _j , ( uH @ V Z : A T
0x01534c…0154e0 Dummy {f00=0x0050, f01=0x0190, f02=»X D P | , ( H E _( b E _6 " D T , ( E b E D E % : L , ( % Z " R ;B Z b | , ( A " R P P P ` , ( _ & @
0x0154e0…015674 (1, 26) Dummy {f00=0x0053, f01=0x0190, f02=»_ D : A H z , ( @ W A H ?AP ^ D : 4P * & @ " D ( 6 , H H J , ( 4 M j - I * x * & $ # Y0 : f : R , ( ? X A h @ N T : N @ , (
0x015674…015808 Dummy {f00=0x0053, f01=0x0190, f02=» , ( T T _v , ( J , V P _ N 4 , ( L % J J ` & G G d * & @ ` $ U ` & G ` , ( H $ : P V : , ( 1 @ t P
0x015808…01599c Dummy {f00=0x0053, f01=0x0190, f02=» L H D ! ! P6 P * UT i ` Q R V T P( U U cP b b H D ! b P0 & P 2 + 1 2 5 =PJ C b Pn & b T H D ! P W T ! % - 1 EP i ~ T " H D ! -P mP Q " ~
0x01599c…015b30 Dummy {f00=0x0053, f01=0x4042, f02=» P J V P U P %V ;P ` ,@ >P b b H D ! b P0 & P 2 + 1 2 5 =PJ C b Pn & b T H D ! P W T ! % - 1 EP i ~ T " H D ! -P mP Q " ~
0x015b30…015cc4 Dummy {f00=0x0053, f01=0x0190, f02=» J F IDENT SYSINI REL 11.0 81-01-26 870105041100 F B SYSINIK INILEN INIEND dREL MOVEY ERROR CMPADRL NXTBLK NXTCOM R H D ! CONVRT GETNUM MULTY XMOVE MOVING MOVMMT MMRST GETTAB GETTTB H D ! MMENT PUSHYdPOB GETAPP8 SETTA
0x015cc4…015e58 Dummy {f00=0x0053, f01=0x0190, f02=» W z " tPSW @ . , ( K @ ; Z [ : : 2 [ [ > MMDDIV0 l n i" 2 : MMTAB TABBE MMEND , (
0x015e58…015fec Dummy {f00=0x0053, f01=0x0190, f02=» MOVEY XMOVE , ( : R $ )_ : A ( ( , ( H A * A , Q X , ( I @ ( @ ` $ x A ( @ * & #D @ * ` & p R A * @ , ( ; , A , ^B _F
0x015fec…016180 Dummy {f00=0x0053, f01=0x0190, f02=» V U _ * & @V Z K A A ( , ( & :K A ( V , ( @ Q R ( V * & @ P @ SETTABN , ( ` $
0x016180…016314 (1, 27) Dummy {f00=0x0053, f01=0x0190, f02=» Q ( ; @ ( : : GETTAB ~ 0 GETTTB D * & m , X G : " L X SCTTCT( , ( 2 @ V @ 0 H INBIMA , ( A 2 : @
0x016314…0164a8 Dummy {f00=0x0053, f01=0x0190, f02=» @ @ 1 R U W 9a MMRST 0 , ( P _" : P _ B GETAPP8 8 r , ( 7 @ : @ ` U W L , ( S P _ @ P _" l 0 , ( o W P .
0x0164a8…01663c Dummy {f00=0x0053, f01=0x0190, f02=» :C # : .=H N , ( D N .=H N " GETNUM R , ( N N : d 8" f QUEJOBR SAVE8 , ( R _ ZY QY : ? ? , ( + R 0
0x01663c…0167d0 Dummy {f00=0x0053, f01=0x0190, f02=» SCTOPT , ( @ e " b ` $ : @ . @ SCTSFA F SCTPAG X SCTNOPW j , ( ! @ P | , ( P P P _ _ @ SCTPSZ , ( @@ @ :b @
0x0167d0…016964 Dummy {f00=0x0053, f01=0x0190, f02=»W Y P @ Q @ ~ , ( - . P A. @ . @ . P SCTEFA L * & G _l A 9n A :B A ^ TTB:SPW SEG:NS , ( _ D @ < | P N P , ( w 9b .V 3 S S
0x016964…016af8 Dummy {f00=0x0053, f01=0x0190, f02=» ] 9A n , ( @ ] 9k! ] PAGQUE > , ( Y P P P , ( ) S @ P 3 _ SCTBUG8 , ( G 3 A. @ SCTSTB , (
0x016af8…016c8c Dummy {f00=0x0053, f01=0x0190, f02=» , ( A * $ TDISP 8 INILEN H INIEND & " ) *_ > , p H D ! , n WN B @ > K B R > QF 1R0 I > P > V U H D ! @ V > Q R >
0x016c8c…016e20 Dummy {f00=0x0053, f01=0x40ac, f02=»P P V W U4 T W P P( V W #P )Q ~ H D ! /P AP oP: uP4 V T" T W P: P4 9P Y Z y } : @ @ > K B R > QF 1R0 I > P > V U H D ! @ V > Q R >
0x016e20…016fb4 (1, 28) Dummy {f00=0x0053, f01=0x0190, f02=» J F IDENT DSKSUB REL 11.0 81-01-26 870105041100 F B VOLCLRK VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWTL NVLTAB R NVLEND NVLBIT VOLCLRK VOLNAM ECBRL ECBEL , ( @
0x016fb4…017148 Dummy {f00=0x0053, f01=0x0190, f02=» X H t VOLADR < DWTOR ( DWTVOL 8 , ( 5 p ^ > X $ ^ J NVLCHK R z DWTORDC DWTNVL * & Q$ W X Y :g H I , ( i ? P X P ,P
0x017148…0172dc Dummy {f00=0x0053, f01=0x4102, f02=» INXDWTL , ( Z.?AZ2 @ Q X " _D NVLTAB L NVLEND ` NVLBIT t @ X $ _P @ < < W T~ < QWD oP& y } P P P P @ P ,P
0x0172dc…017470 Dummy {f00=0x0053, f01=0x0190, f02=» > @ IDENT SYSTAB REL 11.0 81-02-23 870105041100 F B SCTMSZ SCTSFA SCTEFA SCTIPL SCTANO SCTTCT SCTCDT SCTPAG F F B SCTNOP SCTPSZ SCTSTB SCTOPT SCTBUG SCTDMT SCTDMI SCTFWT F B SCTNOF SCTNFT SCTFWL SCTBLK SCTDCT SCT
0x017470…017604 Dummy {f00=0x0053, f01=0x0190, f02=» SWB:EL SWB:NS STKEND STKCOM n F B STKMOV ACBIOE ACBSWB ACBSEG ACBNPE ACBMMP ACBMMC ACBLAP ( & " ACBLAC ACBSTA ACBREL ACBADA r SEG:FC SEG:NS SEG:ST SEG:DS SEG:EL SEG:P
0x017604…017798 Dummy {f00=0x0053, f01=0x0190, f02=»WB:EL SWB:NS ACBIOE $ ACBSWB 8 ACBSEG L ACBNPE ` ACBMMP t ACBMMC ACBLAP ACBLAC ACBSTA ACBREL ACBADA IHPFA
0x017798…01792c Dummy {f00=0x0053, f01=0x0190, f02=» , ( , ( ! 4 , ( 1 d , ( A , ( Q , ( a
0x01792c…017ac0 Dummy {f00=0x0053, f01=0x0190, f02=» SCTSFA SCTEFA SCTIPL ( SCTANO < SCTTCT P SCTCDT d , ( @ x SCTPAG SCTNOP SCTPSZ SCTSTB SCTOPT
0x017ac0…017c54 (1, 29) Dummy {f00=0x0053, f01=0x4154, f02=» SCTBLK SCTDCT SCTNOS 0 SCTMXS D , ( X SCTMOX STKEND STKMOV Z STKCOM h [ $ ) _
0x017c54…017de8 Dummy {f00=0x0053, f01=0xc116, f02=» , ( 6 SCTMXS@ 4 SCTMOXS H STKEND2 p STKMOVW Z STKCOM h [ $ ) _ _
0x017de8…017f7c Dummy {f00=0x0053, f01=0x0190, f02=» J F IDENT TDISP REL 11.0 81-01-26 870105041100 H D ! TDISP TPAUSE TEXIT MEXIT QMEXITA ACTDISA DISIOE DISEND` DISQUE R PRUNY RETUR8 DISQUE PRUNY RETUR8 QTJOB QMEXI
0x017f7c…018110 Dummy {f00=0x0053, f01=0x0190, f02=»SA DISIOE " TENDIO DISEND` & 2 TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:STL , ( 9 (X: @ P T M ]J , ) A TTB:SA * & U P P Y
0x018110…0182a4 Dummy {f00=0x0053, f01=0x4048, f02=» > r W !W CP YP* ]P cU 2@ D TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:STL , ( 9 (X: @ P T M ]J , ) A TTB:SA * & U P P Y
0x0182a4…018438 Dummy {f00=0x0053, f01=0x8190, f02=» J F IDENT LRPINT REL 11.0 81-01-26 870105041100 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI LKMSRC IHRTC TIMQUE MONCLOC R IHPFAR INIFLGN PFPOST IHLKM INTSAVR PRUNN TTB:SA , (
0x018438…0185cc Dummy {f00=0x0053, f01=0x8190, f02=»LDSEG LKM030 J SWL48 " , ( 5 $P c P W A 2 LKMAL b , ( Q B V ( U P @ r LKMERR t HALTN LKMRQE z LKMSRC ~ LKMQDI QTJ
0x0185cc…018760 Dummy {f00=0x0053, f01=0x8190, f02=» #P DISQUE . , ( H @ A A Q ? > ? @ @ , ( XB ) A A _N A A p PFINIT IHRTC , ( $@ A _` A A Q > QMJOB S
0x018760…0188f4 (1, 30) Dummy {f00=0x0031, f01=0xc16a, f02=» , ( 1 Y _ A _0 8 FREBLK 8 , ( Q@" Q Z P 0 9 " " J , ( k _ _, ? _ P H z TIMQUE H H D ! %T 5P ;P ?W6 WV eP kV Q
0x0188f4…018a88 Dummy {f00=0x0031, f01=0x018e, f02=» J F IDENT TPROC REL 11.0 81-03-05 870105041100 TWAIT TMWAIT TACTOT R FNDDWT r TWAIT DWTWATL TDISP TACTOT FNDTIDN , ( @ P "R Y
0x018a88…018c1c Dummy {f00=0x0031, f01=0x414c, f02=» * & 3 <U "R P X DWTTAB 6 , ( M R X T X T . T H , ( gA G Y6 G _f P x LKMRQE` LKMQDIA & " ,P - _ < 8 P R Pp -
0x018c1c…018db0 Dummy {f00=0x0031, f01=0x0190, f02=» J F IDENT MSUBS REL 11.0 81-01-26 870105041100 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDDWD FNDTID PFINIT SWL48 SWLXY ILLINT@ INTSAV HALTY RELPAG , ( RELPA2 IHRET8 IHRET2 IHRET1
0x018db0…018f44 Dummy {f00=0x0031, f01=0x018e, f02=» ! $P T I QMJOB J . TTMJOB@ @ ACTOTP T R , ( ; R $ 5 % > ? W ? f ACTOT TTB:SA TTB:ID , ( Y $ W ? T T U T U TTB:SB^
0x018f44…0190d8 Dummy {f00=0x0031, f01=0x0190, f02=» GETBLK , ( P 0 U _h FREQUE H , ( ? @ T 0 A 1 Q Q Z FREBLKL , ( > > 0 @ 1 A P P FNDDWT TTB:TD FNDDWD , (
0x0190d8…01926c Dummy {f00=0x0031, f01=0x0190, f02=» SCTTCT , ( ; X W ? ` @ @ P $ IHRET8 ` @ IHRET2 d T IHRET1 h h IHRTN j | PFINIT l PFTAB * & U@ H W W > > > > > > @ SWL48 , ( q V ?
0x01926c…019400 Dummy {f00=0x0031, f01=0x4100, f02=»ALTY RELPAG RELPA2 " LKMERR 6 " @ ? A. H H D ! 4 $ 1P ;R SW [W gT T P T R P n , ( )R /P 7W0 ?W( QP [W _W sV @ ?
0x019400…019594 (1, 31) Dummy {f00=0x0032, f01=0x018e, f02=» J F IDENT TTMJOB REL 11.0 81-01-26 870105041100 F B TTB:AMK TTB:MT TTB:CB TTB:SP TTB:SB TTB:AP TTMJOBL TTB:QL R 6 2 TTB:ID TTB:ST TTB:PP TTB:PW TTB:SA TTB:TDL TTB:AMK TTB:MT TTB:CB
0x019594…019728 Dummy {f00=0x0032, f01=0x40f6, f02=» TTB:QL TTB:ID TTB:ST , TTB:PP @ TTB:PW T TTB:SA h , ( ! #M 1 | TTB:TDL ( A P @ TTB:CB
0x019728…0198bc Dummy {f00=0x0032, f01=0x8190, f02=» J F IDENT TOSSIO REL 11.0 81-04-13 870105041100 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT TIOMXIC R H D ! MONMMU ECBFC ECBFN ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1 ECBCW2 F B DC:DIX DM:DIX PC:DIX M
0x0198bc…019a50 Dummy {f00=0x0032, f01=0x818e, f02=»WTECBW DWTOPT DWTOR DWTOCH DWTADR DWTTAB8 DWTWAT2 D @ DWTTQ DWTOTQ: DWTUEC DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 < F B DWTSB2 DWTTP DWTECH DWTSQ DWTORD DWTNVLN DWTVOL DWTA7 DWTA8 > : DWTCP2C DWTLD1V DWTLD2 DWTDEV DWTTBU: DWTTLNr DWTTCWV
0x019a50…019be4 Dummy {f00=0x0032, f01=0x8190, f02=» DWTADR DWTTAB8 DWTWAT2 0 DWTTQ D DWTUEC V DWTMEC j DWTOTQ: ~ DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 DWTSB2 " DWT
0x019be4…019d78 Dummy {f00=0x0032, f01=0x8190, f02=»2 , DWTDEV . DWTTBU: . DWTVOL . 4 DWTECH 0 H DWTTLNr 0 DWTTCWV 2 p DWTSQ > BUFLEN ACTADR0 ABTADRx INTADR POLADR HDRLEN@
0x019d78…019f0c Dummy {f00=0x0032, f01=0x8190, f02=» IT:DIX DK:DIXF ECBFC 2 ECBFN D ECBBA V ECBRL h ECBEL z ECBRC ECBCW ECBCW1 ECBCW2 , (
0x019f0c…01a0a0 Dummy {f00=0x0032, f01=0x8190, f02=» ^ TTB:ST , ( A ( , 0 4 8 < C C , ( _A T 8P Y ^ 5 ) P L TTB:SA | TDISP FNDDWT |TIO TIO:FM , ( {$ U , (
0x01a0a0…01a234 (1, 32) Dummy {f00=0x0032, f01=0x8190, f02=» C W O " v , ( # X Y ) C C , ( x # P Y '? Y F GETBLK v QTJOB , ( 3 H Y T # P W Y , ( O P R R P T P (@ , ( @ o (@ "
0x01a234…01a3c8 Dummy {f00=0x0032, f01=0x8190, f02=» F C F C > TIOMXIC ( , ( B R Q F ! P C > C > < TTB:MT l , ( F 8D D ! 9b8d9D # C ~ , ( - > B R Q P B P , ( M 0$ T # R Q
0x01a3c8…01a55c Dummy {f00=0x0032, f01=0x818e, f02=» X 0 n DISENDV , ( X D C > X , ( H U H B P P $ # P , ( Q > P , ( + _0 # T p > P p , ( K (_H _2 B
0x01a55c…01a6f0 Dummy {f00=0x0032, f01=0x8190, f02=» f , ( _ X T (@ X L U L , ( Q M X 8 TENDIO h , ( L P ( L ) 1_f _& ? | , ( (@ X P 4 Y X , ( # 1 1 X P - M T $ P
0x01a6f0…01a884 Dummy {f00=0x0032, f01=0x8190, f02=»P l , ( T P 0 1 FREBLK < ACTOTP N & " Y > > _ ` H D ! . t t H D ! ! # % ' ) d + gP yP | P T
0x01a884…01aa18 Dummy {f00=0x0032, f01=0xc084, f02=»UJ P PL Q P 7T ?P mU U n @ < @ Q4 P P 1P ?PJ kR mP sP yP P, P$ P( P * n@ ` H D ! . t t H D ! ! # % ' ) d + gP yP | P T
0x01aa18…01abac Dummy {f00=0x0032, f01=0x0190, f02=» J F IDENT LDTASK REL 11.0 81-06-10 870105041100 F B LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB QLTASK LD:ECBL LD:BUF R LD:BUE PQEMTY LD:STB LD:ECBL LD:BUF L
0x01abac…01ad40 Dummy {f00=0x0032, f01=0x0190, f02=» h LT:SWB l LT:DSKK l TLSEG1 0 * & [ $V B QMEXITL p PAGQUE , ( y A ( @ PAG:QBV PAG:SBN , ( X H A ( 1 ) H
0x01ad40…01aed4 (1, 33) Dummy {f00=0x0037, f01=0x0190, f02=» TTB:AP , ( I$ M T M T M TLSEG2 B PAG:PA8 T SCTPSZ f SEG:ELR x * & $H U (@ H @ D TTB:SP8 SEG:FC , ( &! <a >a
0x01aed4…01b068 Dummy {f00=0x0037, f01=0x0190, f02=» &9b!0 # C ( ~ ECBRL , ( = V P * . ECBRC ^ , ( [ U ' ( B , n RELPA2 , ( w DT :" U F . t , ( U _8 # C
0x01b068…01b1fc Dummy {f00=0x0037, f01=0x4092, f02=»LTASK ACTOT ( $ D C 0_ 2 l B 4 , ( qV P CV OP W j [U _ wT S L |@ n RELPA2 , ( w DT :" U F . t , ( U _8 # C
0x01b1fc…01b390 Dummy {f00=0x0037, f01=0x0190, f02=» J F IDENT ST8000 REL 11.0 81-01-26 870105041100 ST8000K R ST8000K d IHPFAR x IHLKM IHRTC ILLINT IHTWA IASCUZ , (
0x01b390…01b524 Dummy {f00=0x0037, f01=0x4150, f02=» ~ , ( ! , ( 1 N , ( A ~ , ( Q , ( a
0x01b524…01b6b8 Dummy {f00=0x0037, f01=0x0190, f02=» J F IDENT DRND01 REL 11.0 81-05-27 870105041100 H D ! INPUT STABLK OUTPUT ENDBLK ECHRTN ECHOY ECHEND@ GETCHR ABORT R H D ! LENDERN LENDIS LDISP NDREPO NDRETOL NDREP NDRET NDSAV8 NDGET8 F B NDREWS NDREDWV NDGEDN8 NDG
0x01b6b8…01b84c Dummy {f00=0x0037, f01=0x018e, f02=» INTSL7W INTSL8 INTAS1 INTAS2 INTAS3 INTAS4 ~ F B INTAS5 INTAS6 INTAS7 INTAS8 INTPL1 INTPL2 INTPL3 INTPL4 8 F B INTPR1 INTPR2 INTPR3 INTPR4W INTVU1 INTVU2 INTVU3 INTVU4V & " INTVU5N INTVU6C INTVU7V INTVU8 INTLT1
0x01b84c…01b9e0 Dummy {f00=0x0037, f01=0x0190, f02=» INTSL1P INTSL2 INTSL3 0 INTSL4 D INTSL5 X INTSL6 l INTSL7W INTSL8 INTAS1 INTAS2 INTAS3 INTAS4 INTAS5
0x01b9e0…01bb74 (1, 34) Dummy {f00=0x0037, f01=0x018e, f02=» INTPR1 INTPR2 INTPR3 0 INTPR4W D INTVU1 X INTVU2 l INTVU3 INTVU4V INTVU5N INTVU6C INTVU7V INTVU8 INPUT
0x01bb74…01bd08 Dummy {f00=0x0037, f01=0x0190, f02=» OUTPUT " LTCHRO ENDBLK & . LTENBL B RTENBL, T , ( D X ! f ECHEND@ 4 ECHOY > DWTST , ( 3 W X P DWTECH
0x01bd08…01be9c Dummy {f00=0x0037, f01=0x0190, f02=» h GETCHR n ECBRL ECBBA . , ( g X W B U B ( > ECBEL n ABORT ~ LENDERN , ( " W C (@ > Y > LENDIS TENDIOl LDISP
0x01be9c…01c030 Dummy {f00=0x0037, f01=0x0190, f02=» NDSAV8 DWTA3 DWTA4 , DWTA5 < DWTA7 L * & H (@ 4 Y & Y ( Y * Y DWTA8 NDGET8 , ( $ , . > X & X ( X * X NDREWS NDREDWV
0x01c030…01c1c4 Dummy {f00=0x0037, f01=0x40b4, f02=»T j DISENDR NDGEDN8 NDGEDWN 0 $ 6 $ D 8 4 7 =W A MPf mWF uU W W W T b @ $ , . > X & X ( X * X NDREWS NDREDWV
0x01c1c4…01c358 Dummy {f00=0x0037, f01=0x018e, f02=» J F IDENT DCADDR REL 11.0 81-01-26 870105041100 F B FNDDNAK FNDDNT GETDNA GETDNT GETDSA GETDST GETSNAL GETSNT R GETSSA GETSST GETDSA GETDST SCTDCT , ( ? W ?
0x01c358…01c4ec Dummy {f00=0x0037, f01=0x0190, f02=» FNDDNT | , ( _ P B _V B P _ _ FNDDNAK H GETDNT GETDNA p , ( } ? W ? W ?W ? _ B , ( B ? ' V T _ _P GETSST GETSSA
0x01c4ec…01c680 Dummy {f00=0x0037, f01=0x4098, f02=» _*" /] Z 8_ H D ! W P P %Tn AR& QT UR _P oP W W W V& T W T & W r @ ?W ? _ B , ( B ? ' V T _ _P GETSST GETSSA
0x01c680…01c814 (1, 35) Dummy {f00=0x003a, f01=0x0190, f02=» J F IDENT TMOVE REL 11.0 81-05-21 870105041100 * & TMOVE MOVSS MOVSU MOVUS MOVUU MOVFW R TMOVE FNDTIDC , ( (@ B B " #MP , ( P B #MP P W , (
0x01c814…01c9a8 Dummy {f00=0x003a, f01=0x0190, f02=» ; j MOVSS , ( w [ [ W Z Z : : U , ( ? ? ? P P $ ) U L , ( P x T $ ) W X $ ) | MOVUS TTB:MT , ( Y W U ? ? _ T , (
0x01c9a8…01cb3c Dummy {f00=0x003a, f01=0x0190, f02=» Y _2 r , ( U ]( ? ? _ P P P ( , ( s $ ) ]^ P p r B , ( $ ($ ) _ (W X2 $ r MOVUU $ ]$ $ ) Y _ > H D ! P" !PH +P* 3P6 9 ;W( EP MP S R UW
0x01cb3c…01ccd0 Dummy {f00=0x003a, f01=0x4012, f02=» @ U ]( ? ? _ P P P ( , ( s $ ) ]^ P p r B , ( $ ($ ) _ (W X2 $ r MOVUU $ ]$ $ ) Y _ > H D ! P" !PH +P* 3P6 9 ;W( EP MP S R UW
0x01ccd0…01ce64 Dummy {f00=0x003a, f01=0x0190, f02=» J F IDENT DCSTAT REL 11.0 81-01-26 870105041100 F B DCSRSTK DCSRLL DCSUPR DCSUPS DCSUPD DCSRED CSMAXLL DWTCHD R DWTCHN DWTCHD DWTCHN CSMAXLL DCSRSTK DCSRLL
0x01ce64…01cff8 Dummy {f00=0x003a, f01=0x0190, f02=» ? ? ?W ? ? ? ? W ? ~ , ( A ? ? ? ~ _ X P ^ DCSRED n N , ( a _ > > > >W ? ? ? ? ? ? P B b DWTTAB , ( P B P X X P X W X , ( P X P D P ;A %W M
0x01cff8…01d18c Dummy {f00=0x003a, f01=0x4166, f02=» W ? ? t , ( X P %? R L V 9HR , ( = ,R S -W - X M W D ] W > >W > t H D ! W T 'W 1W =W U [P mW }P PV PP P W P H D ! P P W R P W W
0x01d18c…01d320 Dummy {f00=0x003a, f01=0x0190, f02=» J F IDENT DRKB04 REL 11.0 81-05-25 870105041100 KBAD4 R KBAD4 b DWTDEV t LENDIS * & @ F T Y LDISP ABORT DWTA3 ECBCW , (
0x01d320…01d4b4 (1, 36) Dummy {f00=0x003a, f01=0x0190, f02=»$ P V X x , ( m % Y (@ p ) ECBRL H , ( _* X P Y v X ECBBA , ( B B B % X , ( $ 4 T %(@ X P INPUT , (
0x01d4b4…01d648 Dummy {f00=0x003a, f01=0x0190, f02=» h , ( 1 "R p< R <A<a C W X , ( M X P P P P _ Y 8 , ( k W Y X X P h , ( @ X $P <c $P $ $ , ( V ! B W B P $$ , ( R
0x01d648…01d7dc Dummy {f00=0x003a, f01=0x0190, f02=» W > ! B T ! Xd ECBEL ( , ( 7 C 8 ECHENDA h , ( W ! " X $4 z * & o P X T 1 pR p Y , ( @ X X P 1 W , (
0x01d7dc…01d970 Dummy {f00=0x003a, f01=0x0190, f02=» h ECHON , ( " ! 4 B % > , ( 8 T > T H , ( -@ 8 > P ! x , ( @A K _ W X $ , ( iD X P Y 0 %_ % Y
0x01d970…01db04 Dummy {f00=0x003a, f01=0x018e, f02=» $ < X P " L DWTSB2 . $X & @ H D ! 6 d T 5 ?U CRL GP WP aP eV i { P b H D ! T T T P W VP Rz P P W + 1Rv 9R GW SP H D ! WP ]P a
0x01db04…01dc98 Dummy {f00=0x003a, f01=0x407e, f02=» H D !" {Tt Rr P WL P $ P< T W W, $ P T +T 9P UW mP P h@ z
0x01dc98…01de2c Dummy {f00=0x003a, f01=0x0190, f02=» J F IDENT DRDI01 REL 11.0 81-01-26 870105041100 DIADY R DIADY b ECBCW t DWTDEV` , ( B X R $ # LENDER * & ;D 7P P Y W Y
0x01de2c…01dfc0 Dummy {f00=0x003a, f01=0x417a, f02=»T , ( e P B V *@; V * ; V * Y ! ENDBLKA : LENDIS L , ( T X R $ P _B ! T ^ LDISP DWTST , ( 9 R 9 W 9 _ Y " ! X _~ H D !`
0x01dfc0…01e154 (1, 37) Dummy {f00=0x0039, f01=0x8190, f02=» > @ IDENT DRDY02 REL 11.0 81-05-25 870105041100 DYAD F DYAD V DWTDEV h STABLK z , ( B Y D ! ENDBLK LENDER , ( T P P P & !
0x01e154…01e2e8 Dummy {f00=0x0039, f01=0x8190, f02=»T Y t , ( m D X Y ! T D ! T , ( @H Y _6 Y Y D ECBRL t ECBBA , ( D@ Y W B P B H " + , ( P Y T P ! T , ( $ R X Y
0x01e2e8…01e47c Dummy {f00=0x0039, f01=0x8190, f02=» V B V _ X X , ( ? ! R Y ; ! " , ( [" ;h X $ X ! _p ! R , ( u ] B H " _ _ , ( P P P P P P P ECBRC * & "H C _ B
0x01e47c…01e610 Dummy {f00=0x0039, f01=0x8190, f02=» X ! T , ( ! T ! T ECBEL P * & 5 H B C C X C ` LENDIS , ( K $ ! T B Y ! * & a ! T Y U X , ( { "
0x01e610…01e7a4 Dummy {f00=0x0039, f01=0x8190, f02=» V X p * & P R Y ! T ! , ( H T P P Y ! T > ECHRTN n , ( P ! T Y X , ( # X ! T ! T Y , ( /$ X Y R Y, ! T !
0x01e7a4…01e938 Dummy {f00=0x0039, f01=0x8190, f02=» ! T p DWTST , ( " ! T ! T 4 X ? DWTOR P , ( A 9 R 9 X ' P P +P 9 ` DWTSB2 , ( $R 9 9 V 9 P C , ( " L X ! h X ' * & @
0x01e938…01eacc Dummy {f00=0x0039, f01=0x8190, f02=» M P U D T _* B C , ( i B C > Y D ! , , ( X P @ ! Y , ( ! $ *0 ! . ! 6 , ( ( Y Y L H D !xl p T
0x01eacc…01ec60 Dummy {f00=0x0039, f01=0xc17a, f02=» +V 1V IR" W i h s * w PJ P P8 P8 P4 P0 H D !!( P, U WJ TF P T +TV 3TN 7 QT0 a h oT wU Tt @ H D !( U T^ V PP WD VF P R T T Pf P Tf H D ! @ P TX TB %T: 9R CT KT WT aT2 { R
0x01ec60…01edf4 (1, 38) Dummy {f00=0x003b, f01=0x018e, f02=» J F IDENT DRSU01 REL 11.0 81-08-31 870105041100 D @ CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 CHLTON` CHTAB R D @ DWREMU LOCHAN RECHAN REMFC SUMLOG LTCHRIL LTSTBL LTCHRO > : LTENBL LTDISP RTCHRI RTSTBL RTC
0x01edf4…01ef88 Dummy {f00=0x003b, f01=0x0190, f02=» CHLT1 INTSAV , ( J B B A , CHLT2 & CHLT3 & n CHLT4 & CHRT1 & CHRT2 & CHRT3 & CHRT4 & , ( ? W U p ,
0x01ef88…01f11c Dummy {f00=0x003b, f01=0x0190, f02=»> R > Y X z NDREDW8 , ( '@T X ' T P , , ( 2W Y TDISP , ( $ Y X # P _ 4X U , ( T V T U ;h , ( # <c
0x01f11c…01f2b0 Dummy {f00=0x003b, f01=0x0190, f02=» W W Y | DWTADR@ INTADR , DWTSB2 > , ( [ X D Xj 4 U P DWTOTQ DWTOCH , ( s D 5 ? "P X # X LTCHRIL RTCHRI NDSAV8
0x01f2b0…01f444 Dummy {f00=0x003b, f01=0x018e, f02=» RTSTBL RTENBL LTENBL & LTSTBL : NDRETO2 N , ( H W 8% ` DWTCP2 , ( =A T > ? " 4T , ( X # ; < T , (
0x01f444…01f5d8 Dummy {f00=0x003b, f01=0x0190, f02=» , ( U Y $ b D P XP Y CHLTON` 4 , ( q E Y Y _ @ T H SUMLOG x , ( (@ > P X U 4X 5 _& H D !&H %W 9 ?P CP I O ST UW^ Y n _PV kTJ w N P( R$ T H D
0x01f5d8…01f76c Dummy {f00=0x003b, f01=0x401a, f02=» @
0x01f76c…01f900 Dummy {f00=0x003b, f01=0x0190, f02=» J F IDENT DRGP03 REL 11.0 81-06-01 870105041100 GPAD3 R , ( [000b [00w [00v c [5n b , ( ! [0;0x [000` [0g H [00d , ( A [00{ [20h [20l [4m [0m GPAD3 b D
0x01f900…01fa94 (1, 39) Dummy {f00=0x0009, f01=0x0190, f02=» " X # Y P Y LENDER & , ( @ M jP ^ L 8 , ( ! h LENDIS STABLK GETCHR * & ! B ! T , (
0x01fa94…01fc28 Dummy {f00=0x0009, f01=0x0190, f02=» l , ( W@ ! W ! T ! T , ( q" ! T Y W ! T < ENDBLK l , ( +T _L X T _ T ! T ~ , ( " ! T Q X $ P , ( D ! T Y ! T ! W
0x01fc28…01fdbc Dummy {f00=0x0009, f01=0x0190, f02=»P #R n , ( 5 ]U W X $ P Y W X , ( Q $ T Y ! T W > , ( k D C _ . " ! T Y _ n , ( ! Y , ( D ! T P ! T P _ , ( B !
0x01fdbc…01ff50 Dummy {f00=0x0009, f01=0x0190, f02=» B ! ! ! T X , ( )H Y Y ! . , ( C@ B X " P $ L W ^ , ( _ $ L 9d P _$ ! , ( ! P Y _6 , ( Q ,0 Y _D
0x01ff50…0200e4 Dummy {f00=0x0009, f01=0x0190, f02=» B " P ~ , ( P ! B 9d! , ( ' P Y D Y $ @ $ ! N , ( C @ 9h! P T h Y ' FW R ~ , ( a! l Y ' L & ! W , ( { Xp ! T $ P P
0x0200e4…020278 Dummy {f00=0x0009, f01=0x0190, f02=» T n * & ! T : ! ! * & T ! T ! Y Y < , ( Y ! j DWTST DWTSB2 , ( 5$D Y X P Y , ( M ! Y Y
0x020278…02040c Dummy {f00=0x0009, f01=0x0190, f02=» Y X Y * & ! T ," :HR :h ! . SETIMP@ * & T _ ! T n INPUT , ( ! " ! P T , ( ! ;T Y . X . T ! " !
0x02040c…0205a0 Dummy {f00=0x0009, f01=0x0190, f02=» d j , ( o R _ 00,0: " , ( @ 4 X P Y 4 Y : LDISP j , ( W ! 2 Y z * & H Y X ," :HR 0 P :h ! , ( 2 Y _ X , ! F , (
0x0205a0…020734 (1, 40) Dummy {f00=0x003b, f01=0x0190, f02=» h , ( ( I ! ! " , ( @ c ! ! j ," :HR :h ! | 8 , ( _ 4 :h 0 :C ! 41518 h , ( 24253033353648505160667072010203 , ( 040506070809101111131415 , ( ?
0x020734…0208c8 Dummy {f00=0x003b, f01=0x0190, f02=» L H D ! F 2 T Tj P P@ #TD 'WB /Tt 5P ; b H D ! IPN QTR ] _W8 gT< oT4 wT, }W T T T T T T Q P T H D ! @ T T W VH P T W T n P TV Tb #TZ )U /PD H D ! ` 3R8 7U 9W2 AP4 MW UT
0x0208c8…020a5c Dummy {f00=0x003b, f01=0x417e, f02=» ]W c kP w { 2 QV Q< Q" H D ! ! Q P Pf 'P 3 C KP& OT [W q sW` TP P6 P@ b @ H D ! ; T: T T T ) 2 - EPL Q b a b H D ! m b T R T T PL T"
0x020a5c…020bf0 Dummy {f00=0x003b, f01=0x0190, f02=» J F IDENT DRFD01 REL 11.0 81-04-14 870105041100 FDADR IHFDY FDONY DWFD01 R FDADR v , ( ! ! T 9 NVLCHK VOLCLR , ( ! T $ I ^ $
0x020bf0…020d84 Dummy {f00=0x003b, f01=0x0190, f02=» DWTORD , ( {H@ X Y 9 X L Y ! DISIOEL @ DISEND R , ( X X| R d ECBRL , ( B X V Y ; Z ECBCW2 ECBBA , ( Y& B
0x020d84…020f18 Dummy {f00=0x003b, f01=0x0190, f02=»R # ;b9B Y Y ) , ( K Y X !? P P P P & , ( i ! X P _ V , ( X x ^ Y ! P @ 9W , ( ! X P Y ! X P X , ( _ X p ^ P
0x020f18…0210ac Dummy {f00=0x003b, f01=0x0190, f02=» Y @ T B S W Y 8! T X ECBEL ( , ( G Y X C X U X Y R 8 TENDIO h TDISP z DWTST , ( e H V Y 8 Y FDONY DWTA2 , ( H _ ? Y
0x0210ac…021240 Dummy {f00=0x003b, f01=0x018e, f02=» P Y p , ( : ! ! X # P Y :A , DWTECB @ , ( H Y & t Y X Y R IHFDY $ INTSAV , ( A C '? z X h $ _, A , ( ' ( ? (@ X X K P @ , (
0x021240…0213d4 (1, 41) Dummy {f00=0x000b, f01=0x0190, f02=» f , ( $ P + < <A $ <C , ( ! 9 9 4 X 9C X : 8 ( $ H X X 4 A 2;D A 2 4 h DWFD01 , ( , ( "
0x0213d4…021568 Dummy {f00=0x000b, f01=0x0190, f02=»V : 8 4 > V < 6 : 4 ! > #T z H D ! $ 'V" + 6 -R ; B A D M F YPN ]P aPF eP s w F yP B @ 6 H D ! P W2 F P @ F P 6 B 8 P H D !F P T , r , W 2 ! . ' 0 +
0x021568…0216fc Dummy {f00=0x000b, f01=0x4080, f02=»P , ( - 3 . 7 0 =P0 f D @ CT G 2 IT w & ( P ( P P6 P 8 < 4 6 B " P j@ | D ! P W2 F P @ F P 6 B 8 P H D !F P T , r , W 2 ! . ' 0 +
0x0216fc…021890 Dummy {f00=0x000b, f01=0x40aa, f02=» J F IDENT EBCDIC REL 11.0 81-01-26 870105041100 TASCIIK TEBCDI R TASCIIK l TEBCDI @ P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/0000 78-7F 4 P DAT
0x021890…021a24 Dummy {f00=0x000b, f01=0x416e, f02=» J F IDENT DVTKB REL 11.0 81-01-26 870105041100 DVTKB R DVTKB b KBAD4 t & " @ KB bECH bCOD , ( ! "" 33 , ( =
0x021a24…021bb8 Dummy {f00=0x000b, f01=0x0190, f02=» J F IDENT TOSSIO REL 11.0 81-04-13 870105041100 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT TIOMXIC R H D ! MONMMU ECBFC ECBFN ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1 ECBCW2 F B DC:DIX DM:DIX PC:DIX M
0x021bb8…021d4c Dummy {f00=0x000b, f01=0x018e, f02=»WTECBW DWTOPT DWTOR DWTOCH DWTADR DWTTAB8 DWTWAT2 D @ DWTTQ DWTOTQ: DWTUEC DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 < F B DWTSB2 DWTTP DWTECH DWTSQ DWTORD DWTNVLN DWTVOL DWTA7 DWTA8 > : DWTCP2C DWTLD1V DWTLD2 DWTDEV DWTTBU: DWTTLNr DWTTCWV
0x021d4c…021ee0 Dummy {f00=0x000b, f01=0x0190, f02=» DWTADR DWTTAB8 DWTWAT2 0 DWTTQ D DWTUEC V DWTMEC j DWTOTQ: ~ DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 DWTSB2 " DWT
0x021ee0…022074 (1, 42) Dummy {f00=0x003f, f01=0x0190, f02=»2 , DWTDEV . DWTTBU: . DWTVOL . 4 DWTECH 0 H DWTTLNr 0 DWTTCWV 2 p DWTSQ > BUFLEN ACTADR0 ABTADRx INTADR POLADR HDRLEN@
0x022074…022208 Dummy {f00=0x003f, f01=0x0190, f02=» IT:DIX DK:DIXF ECBFC 2 ECBFN D ECBBA V ECBRL h ECBEL z ECBRC ECBCW ECBCW1 ECBCW2 , (
0x022208…02239c Dummy {f00=0x003f, f01=0x0190, f02=»TB:SA , ( _ $P $ ) U TTB:MT > HALTN P , ( @ { @ T C @ ,W ` , ( 0P P > ? P q , ( 0 ) >_ T C T V GETBLK , (
0x02239c…022530 Dummy {f00=0x003f, f01=0x0190, f02=» X P 4 t QTJOB TIOERR : $ LKMQDI 8 , ( / Y C C J QUEDEV T z QUEFIL V TTB:ST , ( K 8W T 8P Y ^ TDISP FNDDWT
0x022530…0226c4 Dummy {f00=0x003f, f01=0x0190, f02=» ! X P X T _l Xf Y @ , ( P R T X 0P P H * TTB:PW Z , ( T _ X I Y l , ( T # C C W O " # , ( X Y ) C C , ( ?
0x0226c4…022858 Dummy {f00=0x003f, f01=0x0190, f02=» (@ " 2 @ _ > X $? P , ( $ > > , , ( , ( F C F C > B TIOMXIC 6 , ( R Q F ! P C > C > F , ( ;
0x022858…0229ec Dummy {f00=0x003f, f01=0x018e, f02=» > X B U H Q X D , ( B $ T C x > C $ ) 0 , ( _ X 9BV X 0 ` DISENDV , ( X D C > X H , ( U H B P P $ # , ( 7
0x0229ec…022b80 Dummy {f00=0x003f, f01=0x0190, f02=» DC:MOT , ( X > ? _ X T DC:MIN@ H , ( (@ ^ > > ? _ X , ( T (@ X L U L Q M , ( X L P TENDIO ( , (
0x022b80…022d14 (1, 43) Dummy {f00=0x003f, f01=0x0190, f02=» q - M T $ P _ T , ( " # p X L R P 0 , ( P P (@ ^ X ` , ( P P # P T P * & 0 1 Y > > ACTOTP
0x022d14…022ea8 Dummy {f00=0x003f, f01=0x018e, f02=» P P Tv T V W^ h H D ! PZ RT P" WJ W, T( P$ T 'P QW _P qP P T $ H D ! P. T& P P T T W4 MP aT eP iW yP R P T p H D ! ! P Q 'P _Q~ iP0 oP* T QL U( Q2 T V ( H D
0x022ea8…02303c Dummy {f00=0x003f, f01=0x400c, f02=» @ Tv T V W^ h H D ! PZ RT P" WJ W, T( P$ T 'P QW _P qP P T $ H D ! P. T& P P T T W4 MP aT eP iW yP R P T p H D ! ! P Q 'P _Q~ iP0 oP* T QL U( Q2 T V ( H D
0x02303c…0231d0 Dummy {f00=0x003f, f01=0x0190, f02=» J F IDENT TIMER REL 11.0 81-01-26 870105041100 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x0231d0…023364 Dummy {f00=0x003f, f01=0x40ec, f02=» _ ? * & S ^ 4 _ ( TIMQUEA V , ( o @ 1 A _ P 9 > h > ( $ ~ T J : - 4 1 J 3 > P @ ETBLK@ LKMQDI
0x023364…0234f8 Dummy {f00=0x003f, f01=0x0190, f02=» J F IDENT TMMLKM REL 11.0 81-01-26 870105041100 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x0234f8…02368c Dummy {f00=0x003f, f01=0x407a, f02=» ,$ T -_> | RELPAG Q - _H . P -U 3U IT H X d@ vPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x02368c…023820 Dummy {f00=0x003f, f01=0x0190, f02=» J F IDENT TLDSEG REL 11.0 81-01-26 870105041100 TLDSEGK TLSEG1 TLSEG2 R TLDSEGK t TTB:SP SEG:NS LKM030@ , ( B T R L U 9C TTB:SB SEG:D
0x023820…0239b4 (1, 44) Dummy {f00=0x000f, f01=0x412c, f02=» TTB:AP ACBMMP ACBNPE " , ( 5BH D " T X X - 4 ACBLAP d TTB:MT v TTB:CB , ( M U _ 9B X T u TTB:SA g X > R U %T /
0x0239b4…023b48 Dummy {f00=0x000f, f01=0x0190, f02=» J F IDENT TABORT REL 11.0 81-01-26 870105041100 TABORTK R TABORTK d FNDDWT x DWTTAB DWTADR ABTADR * & "R P X T X DWTST DWTECH
0x023b48…023cdc Dummy {f00=0x000f, f01=0x4106, f02=»P X P t DWTECB ECBRC & DWTSB2C 6 * & IH Y 9 C H DISEND v LKMRQE " _ @ , ( Rf P^ TX PJ %RD )V 7T ?P* GP n @ H
0x023cdc…023e70 Dummy {f00=0x000f, f01=0x0190, f02=» J F IDENT MONTIM REL 11.0 81-01-26 870105041100 GETTIMK SETTIM TDATE R GETTIMK r MONCLO , ( @ < ? < ? <(@ $ , ( P B $ 9H C ">h # TTB:SA
0x023e70…024004 Dummy {f00=0x000f, f01=0x40d6, f02=» TDATE , ( w P ?_" = > = > = _D , ( @ X _F R _ 00 @ > & <h$ P > p ( $ P ?P eP s wP R P @ $ 9H C ">h # TTB:SA
0x024004…024198 Dummy {f00=0x000f, f01=0x018e, f02=» J F IDENT LKMAL REL 11.0 81-01-26 870105041100 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x024198…02432c Dummy {f00=0x000f, f01=0x4082, f02=» * & TCHMMU 2 # D & & l@ ~ TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x02432c…0244c0 Dummy {f00=0x000f, f01=0x0190, f02=» J F IDENT LRPINT REL 11.0 81-09-16 870105041100 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI LKMSRC IHRTC TIMQUE MONCLOC R IHPFAR INIFLGN PFPOST IHLKM INTSAVR PRUNN TTB:SA , (
0x0244c0…024654 (1, 45) Dummy {f00=0x0010, f01=0x0190, f02=»LDSEG LKM030 J SWL48 " , ( 5 $P c P W A 2 LKMAL b , ( Q B V ( U P @ r LKMERR t HALTN LKMRQE z LKMSRC ~ LKMQDI QTJ
0x024654…0247e8 Dummy {f00=0x0010, f01=0x0190, f02=» #P , ( @ A A Q ? _ ^ . DISQUE ^ , ( > ? @ XJ ) A A p PFINIT IHRTC , ( ( D_V A A A _h A QMJOB , (
0x0247e8…02497c Dummy {f00=0x0010, f01=0x018e, f02=» ) $ t , ( Q ( P P JW P ) % X % A MONCLOC D , ( q _` & P Y _l Z _r X MEXIT , ( 8 Q Z P FREBLK , ( 0 9 " "_
0x02497c…024b10 Dummy {f00=0x0010, f01=0x406a, f02=» J H D ! ! ) - 3 7R A E G UP YP _W q yP P T@ f Y _l Z _r X MEXIT , ( 8 Q Z P FREBLK , ( 0 9 " "_
0x024b10…024ca4 Dummy {f00=0x0010, f01=0x40d6, f02=» J F IDENT PFTAB REL 11.0 81-01-26 870105041100 PFTAB R PFTAB b CHLTONA t FDONN P @ P DATA VUON VIDEO P DATA X25:ON X25 L
0x024ca4…024e38 Dummy {f00=0x0010, f01=0x0190, f02=» J F IDENT DVKB00 REL 11.0 81-01-26 870105041100 DVKB00K R DVKB00K d KBAD4 x * & @ KB DVDY00 CTAB01 , ( % ,
0x024e38…024fcc Dummy {f00=0x0010, f01=0x405e, f02=» j p f ; > = > , H@ Z R DVKB00K d KBAD4 x * & @ KB DVDY00 CTAB01 , ( % ,
0x024fcc…025160 Dummy {f00=0x0010, f01=0x410e, f02=» J F IDENT DVDY00 REL 11.0 81-01-26 870105041100 DVDY00K R DVDY00K d DYADN x * & Y * & % P @ B 6 B @
0x025160…0252f4 (1, 46) Dummy {f00=0x003f, f01=0x0190, f02=» J F IDENT DVKB01 REL 11.0 81-01-26 870105041100 DVKB01K R DVKB01K d KBAD4 x * & @ KB DVDY01 CTAB02 , ( % ,
0x0252f4…025488 Dummy {f00=0x003f, f01=0x405e, f02=» j p f ; > = > , H@ Z R DVKB01K d KBAD4 x * & @ KB DVDY01 CTAB02 , ( % ,
0x025488…02561c Dummy {f00=0x003f, f01=0x4122, f02=» J F IDENT DVDI01 REL 11.0 81-01-26 870105041100 DVDI01K R DVDI01K d DIADN x * & DI , ( % ?O_o E @ F :
0x02561c…0257b0 Dummy {f00=0x003f, f01=0x410e, f02=» J F IDENT DVDY01 REL 11.0 81-01-26 870105041100 DVDY01K R DVDY01K d DYADN x * & Y * & % P @ B 6 B @
0x0257b0…025944 Dummy {f00=0x003f, f01=0x415e, f02=» J F IDENT DVG202 REL 11.0 81-01-26 870105041100 DVG202K R DVG202K d GPAD3 x , ( GP , ( , ( ? 3
0x025944…025ad8 Dummy {f00=0x003f, f01=0x0190, f02=» : @ IDENT CTAB01 820111 NJ CTAB01 CREBUG AF CTAB01 B CTAB01 T , ( h , ( ! !"#$%&' <*+,-./01 , ( A 23456789 PQRSTUVWXYZ [] _pq , ( a rstuvw
0x025ad8…025c6c Dummy {f00=0x003f, f01=0x4044, f02=» . > N ^ ! n # ~ ' ) + .@ @ CTAB01 B CTAB01 T , ( h , ( ! !"#$%&' <*+,-./01 , ( A 23456789 PQRSTUVWXYZ [] _pq , ( a rstuvw
0x025c6c…025e00 Dummy {f00=0x003f, f01=0x018e, f02=» J F IDENT SYSLDM REL 11.0 81-08-19 870105041100 SYSLDMK R SYSLDMK d bREL x STKCOM SYSLODW TCLASS SCLASS * & $H @ STKEND
0x025e00…025f94 (1, 47) Dummy {f00=0x003f, f01=0x0190, f02=» DWTMEC , ( OA Y 5 X SCTSFA F , ( i * _6 : @ X SCTTCT@ , ( $ % @ * & $ @ R ERROR , (
0x025f94…026128 Dummy {f00=0x003f, f01=0x0190, f02=»BLK , ( : ` SCTNOF < , ( H @ A P _ @ N , ( @ @ 3 S S @ V ~ , ( 9! A : , ( S @P T
0x026128…0262bc Dummy {f00=0x003f, f01=0x0190, f02=» l , ( CRT N =H N A N =H N CONVRT2 < TTB:TD N TTB:AM ` , ( $ " A $ @ %!5!T r TTB:MT , ( H & &W @ = V ( TTB:CB , ( @ (W = V
0x0262bc…026450 Dummy {f00=0x003f, f01=0x0190, f02=» P " U * & } _2 @ & , ( " P . 0 T , ( I V TTB:ST , ( H . 0 S $ @ S ,=J TTB:PW
0x026450…0265e4 Dummy {f00=0x003f, f01=0x0190, f02=»:PP| , ( $BT @ S 4 A A , ( % _ !TTT @ , < PUSHN l , ( ? $ P @ * @ a : | , ( WA 6 T ` @ , ( q W H A J AS
0x0265e4…026778 Dummy {f00=0x003f, f01=0x0190, f02=» @ ;C , ( @ U BAT @ , , ( * @ 8 : A . @ , ( ) @ P S SCTIPL , ( - _ S A . @ < 3 , ( I 3
0x026778…02690c Dummy {f00=0x003f, f01=0x0190, f02=» J U 3 S TTB:SP . , ( B S S _p P " I > @ bPOB p , ( D _ @ : P @ : ~ , ( $ A A < H A * & $ P
0x02690c…026aa0 Dummy {f00=0x003f, f01=0x018e, f02=» l , ( A H I K T + , ( Y@ @ 6 _f @ Y < * & @ !TTX Y % @ l SCTFWT * & : A @ BT @ A , ( A H A *
0x026aa0…026c34 (1, 48) Dummy {f00=0x0015, f01=0x0190, f02=» f DWTTAB , ( W T B D YP G , ( u 9h G G @ 8 P A 8 J , ( H _l @ A @ Y z , ( @" !TTX Y : , ( !TTX !CCT ,
0x026c34…026dc8 Dummy {f00=0x0015, f01=0x0190, f02=» j * & ; $ $ _. Y SCTDCT 8 SCTDMT J , ( Y D !TTX @ F @ H @ ! SCTCDT * & q P @ 8 8 8 3 , ( J * U , ( I
0x026dc8…026f5c Dummy {f00=0x0015, f01=0x0190, f02=» @ @ < @ _2 , ( ]X @ 8 8 8 , , ( 1 4 D P @ # P , ( O H I K T K , ( k YB _b @ H @ F , ( @ % P @
0x026f5c…0270f0 Dummy {f00=0x0015, f01=0x0190, f02=»PPT W !LLT z , ( W !RRT W !QQP , ( H A A . A 0 @ 0 J DWTCP2W z , ( 1 P @ P P 0 _ P H L DWTST , ( M &? @ . #? H N& D N# , ( g! * H
0x0270f0…027284 Dummy {f00=0x0015, f01=0x0190, f02=» ) I L D #@P D R ~ DWTECH , ( $ L T D TP @ ` < T 0 DWTSQ ` , ( " @ < 1 Q a < V p DWTDEVO , ( I I V I V D X# P , ( W W D DV ` < T
0x027284…027418 Dummy {f00=0x0015, f01=0x0190, f02=» @ r , ( q$ U A < + + * & P @ : ` < P @ B , ( < @ < @ < D (P p * & W H $ I T % E , a , ( < : @ Q A % @ , ( $
0x027418…0275ac Dummy {f00=0x0015, f01=0x0190, f02=» * p , ( ? Q _8 A 0 A * , ( [H A , A . @ , @ . @ INTRT1 p , ( s$ P A . @ 2 E A , , ( @ * Q _8 : , ( !
0x0275ac…027740 Dummy {f00=0x0015, f01=0x0190, f02=»& >b : r * & N =H N " : N =H N , ( 7 " : &=H F " : F =H F @ GETNUM p , ( S@@ " : ? ? ^ > > : , ( o 4 P N =H N T , ( _ : @ ! P (W (
0x027740…0278d4 (1, 49) Dummy {f00=0x0017, f01=0x0190, f02=» Q @ r , ( Q 1 a : @ 0 , ( @ 2 * P B * & / J # P _ :d Y @ r , ( M * Z A . P T , ( i _: @ 0 2T P , (
0x0278d4…027a68 Dummy {f00=0x0017, f01=0x0190, f02=» J T J & P T X& >aW T , ( L& P T N&@P 0 , ( B @ 9 A J ] W @ ` , ( 3 9 A P _d @ 8P , ( O 0P _ 1 _ @ 8P 9 _ , ( m (T P _ 3
0x027a68…027bfc Dummy {f00=0x0017, f01=0x0190, f02=»= % : @ H , ( ";l H :lT ;A ( ( , ( P 5 _ ` R - P * & H_ : @ A : A , ( 3 : @ : A : P @ bPSW , ( K$ A @ : `
0x027bfc…027d90 Dummy {f00=0x0017, f01=0x0190, f02=» Y b : ~ V , H D !d P 0 ) 0 /WL 9P@ R6 P P P # P 7V SP( [T N H D ! T l T W V W V # * 'P0 + H 9U [ : cP0 g H uU H D !% P V T 9T A 6 CP ]
0x027d90…027f24 Dummy {f00=0x0017, f01=0x0190, f02=» * 'P + H I : QPd Y H sP$ { | P 6 T ~ H D ! * P~ + H A X MT YT gP o P 6 Tr P, : H D ! H U : P, # H 1U O 6 U sP U T P R 6 W H D !~ P0 H X : ! H ;P$ C | KP P T
0x027f24…0280b8 Dummy {f00=0x0017, f01=0x4160, f02=»T P6 W( W" V T j H D ! 7PD SP( qU P P: P W Q !P EQ e i sP Q & H D ! yP T P W P Q P P$ P P -PF 9P [P aT T r H D ! P P W P P T TT P W P P -W ?P IP QP <
0x0280b8…02824c Dummy {f00=0x0017, f01=0x8190, f02=» A : P @ z bPSW , ( $ A @ : n : . ! ( , ( T ! . : X , ( 7 D R MOVEN , ( * Q Y p : V " m
0x02824c…0283e0 Dummy {f00=0x0017, f01=0x8190, f02=»W qV P0 U P0 j H D ! ` U P V O oT T P T W h T W & H D !F P + L CU WT8 P L L Rh L P T W* L S W U r H D ! + L ;P MP ] o P Pd P$ 0 P - KT H
0x0283e0…028574 (1, 50) Dummy {f00=0x0019, f01=0x8190, f02=»P )R - V H D !_ 1W ; ?P0 G O c s w P$ 0 P P )T - /WN H D !I$ 5T 9 ;WB AT E GW6 MT Q SW* YT ] x _W eT i kW qP ^ H D ! } @ PV P p 0 PV !Tp 'P 1T [P6 c iW( m p oW" H D ! 3 uV {T PD
0x028574…028708 Dummy {f00=0x0019, f01=0xc138, f02=»0 !P AQ a e J oP Q Q R Q R Q R QZ RT EQ* KR$ H D ! -P ;T SP WW gP uQ P P$ P P @ PF P P T 3T J H D ! 7P MP SW WP o @ yP T TT P W P P W P P P < 8 P %T )P OT eR sR T P
0x028708…02889c Dummy {f00=0x0019, f01=0x0190, f02=» J F IDENT DRDY02 REL 11.0 81-09-30 870105041100 DYADY R DYADY b DWTDEV t STABLK , ( B Y ! ENDBLK LENDER , ( T P P P
0x02889c…028a30 Dummy {f00=0x0019, f01=0x0190, f02=»U ! T Y , ( mD X Y U ! T , ( D ! T Y _@ Y Y P ECBRL ECBBA , ( D Y W B P B H , ( " +P Y T P ! * & @
0x028a30…028bc4 Dummy {f00=0x0019, f01=0x0190, f02=» # $ %T Y V B V , ( =$ _ X X ! R Y ; , * & W _U ! ;h X $ X , ( s ! _x _U ! , ( ] B H " _&_ P ECBRC , (
0x028bc4…028d58 Dummy {f00=0x0019, f01=0x018e, f02=» T " $ P * & X X ! ( , ( 3 T ! T ! V ECBEL * & O H T B C C X LENDIS , ( e $ C ! T B Y , (
0x028d58…028eec Dummy {f00=0x0019, f01=0x0190, f02=» f TENDIO , ( @ j V X P W , ( $V X P R Y ! T J , ( ! T P P Y ! z ECHRTNC , ( $T P ! T Y X , ( 3 # X ! T !
0x028eec…029080 Dummy {f00=0x0019, f01=0x0190, f02=»# Xj X ! z , ( ! Y _ Y R X DWTST J , ( A ! T " ! T ! T 4 Z DWTOR , ( D X ? 9 9 X ' P * & P +P 9 R 9 9 V 9 P C DWTSB2A ,
0x029080…029214 (1, 51) Dummy {f00=0x0065, f01=0x018e, f02=» Y j , ( O > B B U $$ , ( i P P P U D T : , ( $ _. B C C > Y j , ( ! X P @ , ( @ ! Y ! & *0 ! , ( D 0 !
0x029214…0293a8 Dummy {f00=0x0065, f01=0x0190, f02=» H D ! yU T$ T * V W, P P< T P" T R U R R H D ! h Q +T 1V 7V OR* ]U e w U H < PR P P@ P@ P H D ! J P< P8 P4 U WJ TF P 5T 9 < ITV QTN U * oT0 T H D ! U T U V *
0x0293a8…02953c Dummy {f00=0x0065, f01=0x404e, f02=» P R V P KQ aU( kP oP sP yU T P" 8@ J D ! h Q +T 1V 7V OR* ]U e w U H < PR P P@ P@ P H D ! J P< P8 P4 U WJ TF P 5T 9 < ITV QTN U * oT0 T H D ! U T U V *
0x02953c…0296d0 Dummy {f00=0x0065, f01=0x0190, f02=» > @ IDENT CTAB02 820111 NJ ARBEJDSFORMIDLINGEN CTAB02 F CTAB02 X , ( l , ( ! 01 , ( A 23456789 !"#$%&' <*+,-./01 , ( a 2345
0x0296d0…029864 Dummy {f00=0x0065, f01=0x4120, f02=» !"#$%&* >*?;_:/=! , ( "#$%&/() @ABCDEFGHIJKLMNOPQ , , ( RSTUVWXYZ [] _ ! |}~ H D ! . > N ^ n ~ ! # % ' ) +
0x029864…0299f8 Dummy {f00=0x0065, f01=0x0190, f02=» > @ IDENT SYSBUG REL 11.0 81-02-23 870105041100 F B SCTMSZ SCTSFA SCTEFA SCTIPL SCTANO SCTTCT SCTCDT SCTPAG F F B SCTNOP SCTPSZ SCTSTB SCTOPT SCTBUG SCTDMT SCTDMI SCTFWT F B SCTNOF SCTNFT SCTFWL SCTBLK SCTDCT SCT
0x0299f8…029b8c Dummy {f00=0x0065, f01=0x0190, f02=» SWB:EL SWB:NS STKEND STKCOM n F B STKMOV ACBIOE ACBSWB ACBSEG ACBNPE ACBMMP ACBMMC ACBLAP ( & " ACBLAC ACBSTA ACBREL ACBADA r SEG:FC SEG:NS SEG:ST SEG:DS SEG:EL SEG:P
0x029b8c…029d20 Dummy {f00=0x0065, f01=0x0190, f02=»WB:EL SWB:NS ACBIOE $ ACBSWB 8 ACBSEG L ACBNPE ` ACBMMP t ACBMMC ACBLAP ACBLAC ACBSTA ACBREL ACBADA IHPFA
0x029d20…029eb4 (1, 52) Dummy {f00=0x001c, f01=0x0190, f02=» , ( , ( ! 4 , ( 1 d , ( A , ( Q , ( a
0x029eb4…02a048 Dummy {f00=0x001c, f01=0x018e, f02=» SCTSFA SCTEFA SCTIPL ( SCTANO < SCTTCT P SCTCDT d , ( @ x SCTPAG SCTNOP SCTPSZ SCTSTB SCTOPT
0x02a048…02a1dc Dummy {f00=0x001c, f01=0x4166, f02=» SCTFWL SCTBLK SCTDCT , SCTNOS @ , ( T SCTMXS SCTMOX STKEND STKMOV Z STKCOM h [ $ )
0x02a1dc…02a370 Dummy {f00=0x001c, f01=0x2008, f02=» ) L = KMD15 DATE = 82 01 08 6876PACK NBR = 0001 8
0x02a370…02a504 Dummy {f00=0x001c, f01=0x0190, f02=» BE USED ) ( P LDR A4,A2 IF BIT 8 IN CHARACTER IS * 0 P ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED * < ( P RF(Z) MKB310 NO SPECIAL CONVERSION * p P ANK A2,/7F MASK AWAY BIT 8 * * * & P* INDICATE SPECIAL CONVERSION ! * * * 2 PMKB295 ANK
0x02a504…02a698 Dummy {f00=0x001c, f01=0x018e, f02=» P EJECT + * + * NORMAL CONVERSION + * + : PMKB300 EQU * + D * + X IFT KBLOCK=1 + b * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? + x . P ABL(Z) MKB100 YES ! READ A NEW CHARACTER + XIF + * + PMKB310 EQU * + , P LD A1
0x02a698…02a82c Dummy {f00=0x001c, f01=0x0190, f02=» P LDR* A1,A1 , & P RF(E) MKB320 NO CONVERSION TABLE , LDR A4,A2 , B SRL A4,3 LINE INDEX , T P ADR A1,A4 , p $ P LDR* A1,A1 COLUMN TABLE ADDRESS , P RF(E) MKB320 NO COLUMN , LDR A4,A2 , ANK A4,/F , P ADR A1,A4 ADD ROW INDEX ,
0x02a82c…02a9c0 Dummy {f00=0x001c, f01=0x0190, f02=»4,DWTDEV+DWTCS,A6 , P XIF - P EJECT - & * - 4 , '* CHECK IF BASIC READ OR ORDER 2 OR 3 - > * - n P LDR A4,A7 LOAD ORDER CODE - x SUK A4,2 - " P RF(NN) MKB330 ORDER 2 OR 3 ! - * - * ORDER 1, BASIC READ - * - , P C
0x02a9c0…02ab54 (1, 53) Dummy {f00=0x0066, f01=0x0000, f02=»
[…0xf…]
0x02c300…02c494 (1, 55) Dummy {f00=0x0069, f01=0x0000, f02=»
[…0x7…]
0x02cfa0…02d134 (1, 56) Dummy {f00=0x0058, f01=0x0190, f02=» OUTPUT QUEUE ? } t P RF(E) QUEU30 ~ " P LDR A6,A4 GET LAST OUTPUT DWT ~ . & P RF(E) QUEU30 UNDEFINED INTERRUPT ~ T P IFF RECHAN=0 ~ ~ P CWK A6,1 SYNC ANSWER ? ~ P RF(E) QUEU30 YES ~ P U =4 ~ P LDK A1,0 ~ P XIF U =4 ~ P ABL R
0x02d134…02d2c8 Dummy {f00=0x0058, f01=0x0190, f02=»A5 TERMINAL 2 REMOTE ? ~ P RB(E) QUEU01 NO & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE 6 P RB QUEU03 ` P XIF r PQUEU30 ADKL A15,4 ~ P RF LTDISP P IFF RECHAN=0 P EJECT P* P* 0 P* RESTSY = SUBROUTINE TO START OR R
0x02d2c8…02d45c Dummy {f00=0x0058, f01=0x0190, f02=»TER ZERO? v P RF(NE) RESY20 P LDR A1,A5 ( P LDK A4,CWTTP TIMER POINTER : P ADR A4,A5 ADD CWT-ADDRESS ^ P CF A15,SETIMP SET TIMER P DATA SYNCUT,TIME P RF RESY30 PRESY20 LDKL A4,-TIME " P ST* A4,CWTTP,A5 RESTART TIME
0x02d45c…02d5f0 Dummy {f00=0x0058, f01=0x018e, f02=»E FOR SYNC-SENDING | 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS P* SYNC-CHARACTER IS SENT. N P* r PSYNCUT EQU * | $ P CM CWTTP,A1 RESET TIMER POINTER P LDR A5,A1 ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER ( P XRKL A2,/800 CHAN
0x02d5f0…02d784 Dummy {f00=0x0058, f01=0x0190, f02=» P RF(U) EXITA & P CF A15,RESTSY RESTART SYNC TIMER P RF EXITA B PSYNC04 EQU * T , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT h P* P IFT LOGING=1 P* * P CF A15,LOGG LOGG OF OUTPUT CHARACTER P XIF P* P I
0x02d784…02d918 Dummy {f00=0x0058, f01=0x0190, f02=» XRS A2,LRCACK,A5 UPDATE LRC-ACKUMULATOR P LD A4,CWTRST,A1 LOOP MODE ? 0 P LDR A3,A4 T P ANK A4,/80 f P RF(E) EXITA NO z P ANK A3,/60 P RF(E) SYNC20 THIRD SYNC P SUK A3,/20 P RF(NE) SYNC10 FIRST SYNC P LDK A3,/20
0x02d918…02daac Dummy {f00=0x0058, f01=0x0190, f02=» j P LD A7,DWTOR,A6 ORDER P ANK A7,/FF & P LD A8,DWTECB,A6 ECB-ADDRESS : , P LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK ^ P ENB * P ABI INTADR,A3 GO TO INTERRUPT HANDLER P XIF P EJECT P* P* CHARACTER INPUT P
0x02daac…02dc40 Dummy {f00=0x0058, f01=0x0190, f02=»V8 SAVE A3-A5, A7-A8 IN DWT P RF LTDISP LOCAL DISPATCHER $ P* H P* CHARACTER OUTPUT R P* n PLTCHRO EQU * x PRTCHRO EQU * , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT " P CF A15,OUTLIN SEND CHARACTER P* P* LOCA
0x02dc40…02ddd4 (1, 57) Dummy {f00=0x0058, f01=0x0190, f02=» (REMOTE) | P* PRTSTBL EQU * P IFF RECHAN=0 0 P SUK A2,/03 BLOCK LENGTH < 3 F ( P RF(N) LTSTBL YES, SEND WITHOUT LRC j " P LD A2,DWTST,A6 DEVICE STATUS 6 P ANKL A2,DEVECH+LRCSEN ECHO MODE OR LRC RUNNING ? ( P RF(NZ) LTSTBL YES
0x02ddd4…02df68 Dummy {f00=0x0058, f01=0x0190, f02=»* PRTENBL EQU * P IFF RECHAN=0 " P LD A2,DWTST,A6 DEVICE STATUS 4 P ANK A2,LRCSEN LRC-SENDING ? Z P RF(Z) LTENBL NO ~ P LDK A2,ETB LOAD ETB P RB RTCHRO SEND P XIF P* P* END OF A BLOCK (LOCAL) P*
0x02df68…02e0fc Dummy {f00=0x0058, f01=0x0190, f02=»UEST ? j P RF(NZ) LTEN20 YES ( P CF A15,RESTIM RESET PRINTER TIMING ( PLTEN20 EQU * T P XIF U =4 h P* z " P* START OF A BLOCK (LOCAL) P* PLTSTBL EQU * 0 P ABL NDRETO SET OK & RETURN TO DEVICE DRIVER P* P E
0x02e0fc…02e290 Dummy {f00=0x0058, f01=0x0190, f02=»NNECTION j * P* IF BOTH CONNECTION TYPES ARE USED P* > P* ON ENTRY: H P* A6 = DWT-ADDRESS ^ P* ~ P* ON EXIT: P* A5 = CWT-ADDRESS & P* A7 = 0 IF LOCAL CONNECTION P* PGETCWT EQU * " P L
0x02e290…02e424 Dummy {f00=0x0058, f01=0x0190, f02=»,A6 CHANNEL PARAMETERS & P ANKL A7,/0100 REMOTE CONNECTION ? P RF(Z) GET010 NO H P XIF ` P IFF RECHAN=0 l * P LC A7,DWTCP2,A6 CHANNEL PARAMETERS 2 P SRL A7,1 P ANK A7,1 CHANNEL NUMBER * P ORR A5,A7 COMBINE WITH CH. UNIT INDEX
0x02e424…02e5b8 Dummy {f00=0x0058, f01=0x0190, f02=» , PGET010 LD A5,CHTAB+2,A5 GET CWT-ADDRESS . PGETRTN ADKL A15,2 ADJUST STACK POINTER =4 4 P LDR* P,A15 RETURN =4 f P IFF SOFTIM+RECHAN=0 U =4 P EJECT P* P* P* R E S T I M P* 2 P* SUBROUTINE TO RESET TIMER
0x02e5b8…02e74c Dummy {f00=0x0058, f01=0x0190, f02=» P* A6=DWT-ADDRESS P* & PRESTIM EQU * 0 P INH D P STR A7,A15 SAVE A7 ON STACK P & P LD A7,DWTLD1,A6 GET TIMER POINTER t & P RF(Z) REST20 TIMER ALREADY RESET P CM* DWTLD1,A6 RESET TIMER & P CM DWTLD1,A6 RESET TIMER POIN
0x02e74c…02e8e0 Dummy {f00=0x0058, f01=0x0190, f02=»CT P* P* P* R E S L R C P* 6 0 P* SUBROUTINE TO RESET LRC-DEVICE POINTER, @ < P* BLOCKSENDING RUNNING INDICATOR AND LRC-SENDING BIT. t P* P* ON ENTRY: P* A5 = CWT-ADDRESS P* A6 = DWT-ADD
0x02e8e0…02ea74 (1, 58) Dummy {f00=0x0068, f01=0x0000, f02=»
0x02ea74…02ec08 Dummy {f00=0x0068, f01=0x0004, f02=»
0x02ec08…02ed9c Dummy {f00=0x0068, f01=0x018e, f02=» J F IDENT DRSU01 REL 11.0 81-05-25 870105041100 D @ CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 CHLTON` CHTAB R D @ DWREMU LOCHAN RECHAN REMFC SUMLOG LTCHRIL LTSTBL LTCHRO > : LTENBL LTDISP RTCHRI RTSTBL RTC
0x02ed9c…02ef30 Dummy {f00=0x0068, f01=0x0190, f02=» CHLT1 INTSAV , ( J B B A , CHLT2 & CHLT3 & n CHLT4 & CHRT1 & CHRT2 & CHRT3 & CHRT4 & , ( ? W U p ,
0x02ef30…02f0c4 Dummy {f00=0x0068, f01=0x0190, f02=»R > Y X z NDREDW8 , ( '@T X ' T P * , ( 2W Y Z TDISP , ( $ Y X # P _ 4X U , ( T V T U ;h , ( # <c$
0x02f0c4…02f258 Dummy {f00=0x0068, f01=0x0190, f02=»W W Y z DWTADR@ INTADR * DWTSB2 < , ( Y X D Xj 4 U N DWTOTQ ~ DWTOCH , ( q D 5 ? "P X # X LTCHRIL RTCHRI NDSAV8
0x02f258…02f3ec Dummy {f00=0x0068, f01=0x0190, f02=»TSTBL RTENBL LTENBL $ LTSTBL 8 NDRETO2 L , ( H W 8% ^ DWTCP2 , ( =A T > ? " 4T , ( X # ; < T , (
0x02f3ec…02f580 Dummy {f00=0x0068, f01=0x0190, f02=» S Y $ b D P XP Y CHLTON` 0 , ( o E Y Y _ @ T D SUMLOG t , ( (@ > P X U 4X 5 _& H D !&H %W 9 ?P CP I O ST UW Y l ]PV iTJ u L P( R$ T H D !
0x02f580…02f714 (1, 59) Dummy {f00=0x0068, f01=0x4016, f02=» @
0x02f714…02f8a8 Dummy {f00=0x0068, f01=0x2008, f02=»
0x02f8a8…02fa3c Dummy {f00=0x0068, f01=0x0000, f02=»
[…0x5…]
0x030220…0303b4 (1, 60) Dummy {f00=0x005e, f01=0x0190, f02=» n $ PEOD EQU 74 END OF DATA POSITION PTIME EQU 20 DELAY - POWER ON 0 & POPENTI EQU 10 DELAY AT OPEN ORDERS T P* ~ $ PDIXTAB EQU * DOUBLE INDEX TABLE P DATA /0102 P DATA /0408 P* P EJECT DRFD01 P* P****
0x0303b4…030548 Dummy {f00=0x005e, f01=0x018e, f02=»LEN MMU BUFFER SIZE P XIF P* ( P IFT CHAN=0 2 P IFT IBM=0 F " P DATA 0 INDICATE NO MMU BUFFER X P XIF ~ P* P DATA DEVIND DEVICE INDEX & PFDADR DATA FDAD ACTIVATION ADDRESS " P DATA 0 ABORT ROUTINE ADDRESS P*
0x030548…0306dc Dummy {f00=0x005e, f01=0x0190, f02=» P*************** P* PTESTST EQU * & P IFF IBM+TOSS=0 : P CF A15,NVLCHK R " P STR A1,A6 SAVE NVL INDICATOR h P XIF P* P LDKL A2,/FFF9 BIO DUMMY P CF A5,FD:WRI P ANK A1,1 $ P RF(NZ) DIS:EN DISC NOT OPER
0x0306dc…030870 Dummy {f00=0x005e, f01=0x0190, f02=» NAME x , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 > P CF A15,VOLNAM V P RF FORM70 END:IO l P XIF P* P IFT TOSS+IBM=0 P ABL END:RC P XIF P* P EJECT DRFD01 P* P**********
0x030870…030a04 Dummy {f00=0x005e, f01=0x0190, f02=» P* PFORMAT EQU * P CF A15,NVLCHK " P ADK A1,0 8 , P RF(NZ) DIS:EN ERROR: NEW VOLUME LOADED J P LDK A2,36 CLEAR VOLUME NAME z PFORM10 EQU * P CM BUF,A2 P SUK A2,2 P RB(NN) FORM10 . P CF A15,VOLCLR CLEAR VOLUME
0x030a04…030b98 Dummy {f00=0x005e, f01=0x018e, f02=» RF(NZ) FORM50 IBM DISC , P LDKL A1,'TO' WRITE TOSS IN VOLUME LABEL P ST A1,BUF+32 P P LDKL A1,'SS' f P ST A1,BUF+34 | P IFT IBM=1 " P C1 A1,DWTA3,A6 INDICATE TOSS P ANS A1,DWTLAB,A6 P XIF P RF FORM60 P*
0x030b98…030d2c Dummy {f00=0x005e, f01=0x0190, f02=» P LDKL A1,/E5D6 VO IN EBCDIC P STR A1,A4 ( P LDKL A1,/D3F1 L1 IN EBCDIC : P ST A1,BUF+2 ^ P IFT IBM=1 r P LD A1,DWTA3,A6 INDICATE IBM P ORS A1,DWTLAB,A6 P XIF P LDK A2,/31 BIO P LDK A3,36 LENGTH PFORM60 E
0x030d2c…030ec0 Dummy {f00=0x005e, f01=0x0190, f02=» P* * P* ACTIVATION * P* * 0 P************** F P* PFDAD EQU * ACTIVATION ENTRY f P IFT MMUPAG=1 P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P
0x030ec0…031054 (1, 61) Dummy {f00=0x005e, f01=0x0190, f02=»DEX z P* P IFT OPCLOS=1 P* , & P* CHECK IF OPEN OR CLOSE ORDER 6 P* ` P LDR A1,A7 ORDER j P SUK A1,/21 P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P
0x031054…0311e8 Dummy {f00=0x005e, f01=0x0190, f02=» ONE TO BIT l 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* J " P LDKL A1,/8000 MASK FOR BIT 0 T & P ORS A1,SPDLCI SET OPEN/CLOSE BIT z P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P
0x0311e8…03137c Dummy {f00=0x005e, f01=0x0190, f02=»EGISTER. j P* POPEN EQU * " P LD A1,DWTTP2,A6 TIMER POINTER , P RF(NZ) OPEN20 TIMER ACTIVE R " P LDKL A1,/7FFF MASK FOR BIT 0 v ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT P* POPEN10 EQU * 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/
0x03137c…031510 Dummy {f00=0x005e, f01=0x0190, f02=» TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER POINTER ADDRESS P LDR A1,A6 SAVE DWT-ADDR J P CF A15,SETIMP WAIT j . P DATA OPENRE,OPENTI START ADDR, WAIT TIME POPEN20 EQU * P ABL TDISP EXIT P* POPENRE EQU * P LDR A
0x031510…0316a4 Dummy {f00=0x005e, f01=0x0190, f02=»ISP p P XIF P* P EJECT " P* 0 & P* PUT DRIVE NO IN CIO-INSTRUCTION : P* d PFD:ORD EQU * n P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK P* P IFT IBM+TOSS=2 P AN A2,DWTLAB,A6 ( P SC
0x0316a4…031838 Dummy {f00=0x005e, f01=0x018e, f02=» P* P LDR A3,A7 P RB(Z) TESTST TEST STATUS P* B P IFT IBM=0 L P SUK A3,31 ^ P RB(Z) FORMAT FORMAT VOLUME p P SUK A3,7 " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 P ABL(NP) LOAD LOAD/UNLOAD P XIF
0x031838…0319cc Dummy {f00=0x005e, f01=0x0190, f02=» P SUK A3,3 P RF(Z) INTEST BASIC WRITE P SUK A3,1 8 " P RF(Z) IBMCHK SEQUENTIAL WRITE J P SUK A3,25 p P RB(Z) FORMAT FORMAT VOLUME P SUK A3,7 & P RF(N) INTEST PHYSICAL READ/WRITE P SUK A3,11 P RF(Z) IBMCHK REWIND
0x0319cc…031b60 Dummy {f00=0x005e, f01=0x0190, f02=»FIB,A6 & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF 8 P* D P IFT TOSS=0 N P IFT IBM=1 b " P ABL IBMDSK IBM DISC HANDLING t P XIF P* P EJECT DRFD01 P* P* $ PREQERR ABL DISIOE REQUEST ERROR P*
0x031b60…031cf4 (1, 62) Dummy {f00=0x0048, f01=0x0190, f02=»INCREMENT NO OF CHARACTERS TO MOVE P CALL MOVE * P ADKL A10,2 SKIP NEXT RECORD < P* ` . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER j ( P CW A8,PLDADR+STKEND END OF BUFFER? P RF(L) COR:48 NO! P* ( P CF A14,RDSEC YES, READ NEXT
0x031cf4…031e88 Dummy {f00=0x0048, f01=0x018e, f02=»OSITION IN CONF. DATA =6 r 8 P SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 P ST A5,DCBLK+STKCOM SAVE =6 PCOR:30 EQU * P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? P RF(E) COR:40 YES! PCOR:35 EQU * * P C
0x031e88…03201c Dummy {f00=0x0048, f01=0x0190, f02=» | & P ADK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER 2 & P ADK A4,1 INCREMENT RECORD POINTER ` P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NEXT CHARACTER P CCK A5,';;' TWO SEMICOLONS? P RF(NE)
0x03201c…0321b0 Dummy {f00=0x0048, f01=0x0190, f02=» 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION P LDR A1,A8 START OF RECORD : P CALL MOVE ( P ADKL A10,1 INCREMENT RECORD COUNTER n & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! PCOR:48 EQU * . P ADKL A8,RECLEN+1 INCR
0x0321b0…032344 Dummy {f00=0x0048, f01=0x0190, f02=»R:50 EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S? 8 P RF(Z) COR:55 NO P P LDK A3,'S' h & P SC A3,GET:25+1 MODIFY INSTRUCTION | & P SC A3,GET:60+1 MODIFY INSTRUCTION P LD A1,IPLDEV+STKEND . P CF A14,LODDEV INITIALIZE PG
0x032344…0324d8 Dummy {f00=0x0048, f01=0x018e, f02=» GET CONF. DATA LOAD DEVICE | , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE $ P* T P LDR A2,A1 ^ P ANK A2,/F p P SUK A2,9 $ P RF(NZ) COR:58 NOT FLEXIBLE DISC P XIF P IFT CFTFLD+FLDISC=2 ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC
0x0324d8…03266c Dummy {f00=0x0048, f01=0x0190, f02=» $ P RF(N) COR:60 NOT FLEXIBLE DISC P* , " P SUK A1,/FC-/F8 FLEXIBLE DISC? 6 P RF(NN) COR:60 NO! P* v P XIF P IFT CFTFLD+FLDISC=2 " P LD A2,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? $ P RF(NZ) COR:60 YES! DON'T UN
0x03266c…032800 Dummy {f00=0x0048, f01=0x0190, f02=»EST=1 PCOR:60 EQU * P EJECT " PCONMOV EQU * 0 P* D 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA N P* & P CIO A1,0,SOP INHIBIT SOP SWITCHES " P LDR A1,A9 GET START OF BUFFER ( P AD A1,SAVCON COMPUTE END OF BUFFER
0x032800…032994 (1, 63) Dummy {f00=0x0049, f01=0x0190, f02=»URE CONFIGURATION FILE " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA D 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA t P SUR A2,A3 TO-ADDRESS P* $ P ANKL A2,/FFFE MAKE EVEN ADDRESS P CALL MOVE
0x032994…032b28 Dummy {f00=0x0049, f01=0x0190, f02=»E TRAILING ZEROES IN LENGTH P ANKL A1,/FFFE AND MAKE EVEN $ P ST A1,CONLEN+STKCOM H & P LDR A1,A9 GET START OF FREE AREA d P LDR A12,A2 END OF FREE AREA $ P SUR A12,A1 SUBTRACT MONITOR END 2 P ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT
0x032b28…032cbc Dummy {f00=0x0049, f01=0x0190, f02=»B ADDRESS =1 v , P ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1 PCMOV20 EQU * =1 D , P LD A2,CONSTA+STKCOM GET START OF CONFF ^ P* < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA P* PMOPRO EQU * P LDKL A13,SYSLDM
0x032cbc…032e50 Dummy {f00=0x0049, f01=0x0190, f02=»UE EXECUTION IN SYSLDM P XIF P EJECT * L P************************************************************************ 8 L P* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O L P************************************************
0x032e50…032fe4 Dummy {f00=0x0049, f01=0x0190, f02=»==== * x $ P* * $ P* ENTRY: * 8 $ P* * ` $ P* EXIT: A1 - SOP INPUT * $ P* BIT 6 - SWITCH 1 * $ P* BIT 15 - SWITCH 10 * $ P*
0x032fe4…033178 Dummy {f00=0x0049, f01=0x0190, f02=» * x $ P* * $ P******************************* 8 PSOPIN EQU * ` P CIO A1,1,SOP t P INR A1,0,SOP P RB(NA) *-2 P RTN A14 P EJECT ( P*********************************** ( P*
0x033178…03330c Dummy {f00=0x0049, f01=0x0190, f02=» * ( P* USED FOR CONFIGURATION OF * ( P* PROGRAM LOAD DEVICE AND * J ( P* CONFIGURATION DATA LOAD * v ( P* DEVICE (IF DIFFERENT). * ( P* * ( P* ON ENTRY: A1
0x03330c…0334a0 Dummy {f00=0x0049, f01=0x0190, f02=»***************** ~ P P " PLODDEV EQU * * P LDKL A3,BUFLEN > * P ST A3,SAVCON INITIALIZE BUFFER LENGTH V P LDKL A2,-1 $ P ST A2,CYLNBR SET SEEK CONDITION P LDR A2,A1 $ P ANK A2,/80 CHECK IF CASSETTE =9 P RF(P) CASS:0
0x0334a0…033634 (1, 64) Dummy {f00=0x0048, f01=0x0190, f02=» X P 4 t QTJOB TIOERR : $ LKMQDI 8 , ( / Y C C J QUEDEV T z QUEFIL V TTB:ST , ( K 8W T 8P Y ^ TDISP FNDDWT
0x033634…0337c8 Dummy {f00=0x0048, f01=0x0190, f02=» ! X P X T _l Xf Y @ , ( P R T X 0P P H * TTB:PW Z , ( T _ X I Y l , ( T # C C W O " # , ( X Y ) C C , ( ?
0x0337c8…03395c Dummy {f00=0x0048, f01=0x0190, f02=» (@ " 2 @ _ > X $? P , ( $ > > , , ( , ( F C F C > B TIOMXIC 6 , ( R Q F ! P C > C > F , ( ;
0x03395c…033af0 Dummy {f00=0x0048, f01=0x018e, f02=» > X B U H Q X D , ( B $ T C x > C $ ) 0 , ( _ X 9BV X 0 ` DISENDV , ( X D C > X H , ( U H B P P $ # , ( 7
0x033af0…033c84 Dummy {f00=0x0048, f01=0x0190, f02=» DC:MOT , ( X > ? _ X T DC:MIN@ H , ( (@ ^ > > ? _ X , ( T (@ X L U L Q M , ( X L P TENDIO ( , (
0x033c84…033e18 Dummy {f00=0x0048, f01=0x0190, f02=» q - M T $ P _ T , ( " # p X L R P 0 , ( P P (@ ^ X ` , ( P P # P T P * & 0 1 Y > > ACTOTP
0x033e18…033fac Dummy {f00=0x0048, f01=0x018e, f02=» P P Tv T V W^ h H D ! PZ RT P" WJ W, T( P$ T 'P QW _P qP P T $ H D ! P. T& P P T T W4 MP aT eP iW yP R P T p H D ! ! P Q 'P _Q~ iP0 oP* T QL U( Q2 T V ( H D
0x033fac…034140 Dummy {f00=0x0048, f01=0x400c, f02=» @ Tv T V W^ h H D ! PZ RT P" WJ W, T( P$ T 'P QW _P qP P T $ H D ! P. T& P P T T W4 MP aT eP iW yP R P T p H D ! ! P Q 'P _Q~ iP0 oP* T QL U( Q2 T V ( H D
0x034140…0342d4 (1, 65) Dummy {f00=0x0048, f01=0x2008, f02=»
0x0342d4…034468 Dummy {f00=0x0048, f01=0x0190, f02=» " P LC A5,1,A4 GET NEXT CHARACTER " P CCK A5,';;' TWO SEMI-COLONS? . P RF(NE) CON:75 NO! T * P CWK A3,NCHTID CHECK IF END OF RECORD n 4 P RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD PCON:75 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURREN
0x034468…0345fc Dummy {f00=0x0048, f01=0x018e, f02=»CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE P* 8 " P CF A14,RDBLK READ NEXT BLOCK B P LDR A1,A1 APPLICATION DATA? h P RF(NZ) CON:80 NO! P LDK A1,/D * P CF A14,CHCRIO SEARCH TAPEMARK REVERSE " P CF A14,RDBLK BYPASS TAPEMARK
0x0345fc…034790 Dummy {f00=0x0048, f01=0x0190, f02=» P XIF PCONERR EQU * P LDKL A1,LMP4 $ P CALL ERROR : P IFF CFTEST=1 N PMEMOFL EQU * d * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW x P CALL ERROR P EJECT PCONRAD EQU * P* 6 P* LOAD CONFIGURATION DATA FROM DI
0x034790…034924 Dummy {f00=0x0048, f01=0x0190, f02=» P* 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. PCONRA0 EQU * B * P LD A11,CONDAD+STKEND GET START SECTOR V 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART " P LDR A1,A9 GET START OF BUFFER $ P ADKL A1,BUFLEN-6 END OF BUFFER , P
0x034924…034ab8 Dummy {f00=0x0048, f01=0x0190, f02=»INPBF+STKEND SAVE =2 P ST A1,CONSTA+STKCOM $ P LDKL A10,0 RESET RECORD COUNTER 8 PCOR:10 EQU * ` P* t 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE ~ P* P CF A14,RDSEC READ SECTOR " P LDR A8,A9 GET START OF BUFFER PCOR:
0x034ab8…034c4c Dummy {f00=0x0048, f01=0x0190, f02=»FFER b P LDR A2,A1 SAVE & P LDK A3,0 RESET CHARACTER COUNTER $ P LDR A4,A8 START OF RECORD N P* p P* LOOK IF WE HAVE AN z P* APPLICATION CONTROL BLOCK P* & P LDR* A5,A4 GET 1ST WORD IN BUFFER 0 P CWK A5,'D;' DATA COMMUN
0x034c4c…034de0 Dummy {f00=0x0048, f01=0x0190, f02=» * P LDKL A5,/FF3B YES, SUBSTITUTE A; WITH P STR A5,A4 'HEX FF' AND ';' 6 8 P LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK Z P ADK A1,1 SKIP BLOCK MARKER 6 P ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION 8 P SU A1,CONSTA+STKCOM
0x034de0…034f74 (1, 66) Dummy {f00=0x0049, f01=0x0190, f02=» * n < P* CONFLD - SELECT LOAD UNIT FOR CONF. DATA * < P* ======================================== * ^ < P* * < P* ON ENTRY: A1 = DEVICE ADDRESS
0x034f74…035108 Dummy {f00=0x0049, f01=0x0190, f02=»***** ^ P P PCONFLD EQU * P LDKL A2,-1 2 $ P ST A2,CYLNBR SET SEEK CONDITION F " P LDR A2,A1 SAVE DEVICE ADDRESS n " P ANK A2,/F ISOLATE LAST DIGIT P SUK A2,7 P RB(N) MFD:0 MINI FIXED DISC P* P RB(Z) CDC:0 8
0x035108…03529c Dummy {f00=0x0049, f01=0x0190, f02=»CT P IFT CASS=1 < P******************************************************* < P* CASSIN - CASSETTE INITIATING ROUTINE * ^ < P* ==================================== * < P*
0x03529c…035430 Dummy {f00=0x0049, f01=0x0190, f02=» * ^ < P* ENTRY: * < P* * N < P* EXIT: * < P* *
0x035430…0355c4 Dummy {f00=0x0049, f01=0x0190, f02=» SUBROUTINES: SOPIN,CHCRIO * < P* * > < P******************************************************* ~ PCASSIN EQU * P LDK A1,/F " P CF A14,CHCRIO UNLOAD CASSETTE 2
0x0355c4…035758 Dummy {f00=0x0049, f01=0x0190, f02=»,/0300 ALLOWED SWITCHES? P RB(Z) CAS:10 NO! & P LDKL A3,LMP1 SWITCH ON LOAD LAMP : P OTR A3,0,SOP d P SRL A1,8 RIGHT ALIGN z P ANK A1,1 SELECT UNIT P CF A14,CHCRIO SELECT UNIT P LDK A1,LOCK P CF A14,CHCRIO LOCK CASSETTE
0x035758…0358ec Dummy {f00=0x0049, f01=0x0190, f02=» P LDK A1,STMF * P CF A14,CHCRIO SEARCH TAPEMARK FORWARD P RTN A14 F P EJECT V 2 P********************************************* d 2 P* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * 2 P* ======================================= * 2 P*
0x0358ec…035a80 Dummy {f00=0x0049, f01=0x018e, f02=» * r 2 P* ENTRY: A1 - I/O INSTRUCTION COMMAND * 2 P* * N 2 P* EXIT: * 2 P* * 2 P* WORK REGISTERS: A1,A
0x035a80…035c14 (1, 67) Dummy {f00=0x003c, f01=0x0190, f02=»GET ADDRESS TO PHYSICAL PAGE = $ P ANKL A1,/C000 GREATER THAN 64K? > $ P RF(Z) AP:353 NO! > L P LDK A1,0 UPPER LIMIT 64 KB > f P RF AP:354 > PAP:353 EQU * > $ P LDR* A1,A6 GET PHYSICAL ADDRESS > P SLL A1,2 > P ADR A1,A4 ADD DISPLACEMENT >
0x035c14…035da8 Dummy {f00=0x003c, f01=0x0008, f02=»$ $ $ $
0x035da8…035f3c Dummy {f00=0x003c, f01=0x0190, f02=» 2 P IDENT TIOADM PRR 11.0 80-11-19 870105041100 P : P* B 4 P*********************************************** L P* . P* TIOADM TOSS ABRIDGED DATA MANAGEMENT " P* ACTIVATION MODULE P* 4 P************************
0x035f3c…0360d0 Dummy {f00=0x003c, f01=0x0190, f02=»14 = STACK BASE P* $ P* OUTPUT: A2=DISPATCH ADDRESS " P* J P EJECT TIOADM T P* j P* t P**************** ~ P* ENTRY * P**************** P* P* $ P ENTRY TIOADM ACTIVATION ADDRESS P*
0x0360d0…036264 Dummy {f00=0x003c, f01=0x0190, f02=»WTOR P EXTRN DWTTAB P EXTRN FPB:BF BLOCK FACTOR " P EXTRN FPB:BO TOSS OPTION D P EXTRN FPB:EL ENLARGE FACTOR f P EXTRN DISIOE P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBCW1 P EXTRN ECBCW2 $ P EXTRN FPB:FO FILE O
0x036264…0363f8 Dummy {f00=0x003c, f01=0x0190, f02=» FDBOMD OPEN MODE " P EXTRN DMACTI ACTIVATE DM TASK & P EXTRN DMACTD ACTIVATE DM TASK #D @ P EXTRN FDBSTA j P EXTRN FNDFDB P EXTRN ADMTSK P* P EJECT TIOADM P* P* " P***************************** " P*
0x0363f8…03658c Dummy {f00=0x003c, f01=0x0190, f02=»***** x P* P* ( P* A VERSION INCLUDING OPENEN MODES " , P* EXTEND AND OUTPUT AND CLOSE DISCARD N ( P* IS OBTAINED BY SETTING X:A EQU 1 ~ P* PX:A EQU 0 PCRDEEX EQU X:A P* PMMUPAG EQU 0 P* P EJE
0x03658c…036720 Dummy {f00=0x003c, f01=0x0190, f02=» * z " P* * " P****************************** 6 P* P* f ( PLFILEN EQU 256 L-FILE RECORD LENGTH p P* P EJECT TIOADM P* P********** P* ORDTAB * P********** P* 4 P*
0x036720…0368b4 (1, 68) Dummy {f00=0x0049, f01=0x0190, f02=» 2 P* * 2 P********************************************* : PCHCRIO EQU * p P CIO A1,1,CHCR P SST A3,CHCR P RB(NA) CHCRIO P RTN A14 P EJECT 6 P**************************************
0x0368b4…036a48 Dummy {f00=0x0049, f01=0x018e, f02=»* =============================== * 6 P* * : 6 P* REFERENCED IN: SYSLOD * t 6 P* * 6 P* ENTRY: A9 - CASSETTE BUFFER
0x036a48…036bdc Dummy {f00=0x0049, f01=0x0190, f02=» 6 P* * : P* WORK REGISTERS: A1,A2,A3,A4,A5 * B 6 P* * 6 P* SUBROUTINES: * 6 P********************
0x036bdc…036d70 Dummy {f00=0x0049, f01=0x0190, f02=»2,0 RESET CHARACTER COUNTER $ P LDR A4,A3 SAVE START OF BUFFER $ P ADKL A3,CBLEN END OF BUFFER L P LDK A1,/A p P CIO A1,1,CHCR READ BLOCK P RF(NA) RDERR3 PRDB:20 EQU * P INR A1,0,CHCR P RF(NA) RDB:30 P CWR A4,A3 END
0x036d70…036f04 Dummy {f00=0x0049, f01=0x0190, f02=»INCREMENT BUFFER POINTER PRDB:30 EQU * P SST A1,CHCR 4 P RB(NA) RDB:20 J P ANKL A1,/FCFF CHECK STATUS ` P LDR A4,A1 SAVE STATUS P RF(Z) RDBEX OK P SLC A4,3 CHECK IF TAPEMARK P RF(N) RDBEX OK IF TAPEMARK PRDERR
0x036f04…037098 Dummy {f00=0x0049, f01=0x0190, f02=»BEEN MADE ` P* P ADK A5,1 NEXT ATTEMPT P CWK A5,3 THIRD ATTEMPT? : P RF(E) RDERR3 YES - GIVE UP! Z P LDK A1,/E REVERSE ONE BLOCK ~ P CIO A1,1,CHCR EXECUTE ORDER $ P RB(NA) *-2 LOOP UNTIL ACCEPTED P RB RDB:10 PRDERR3 E
0x037098…03722c Dummy {f00=0x0049, f01=0x0190, f02=»*********************************** ( P* * , ( P* DUINIT - INITIALIZE DISC UNIT * X ( P* ============================= * ( P* * ( P* REFERENCED IN: SYSLOD,GETFIL * ( P
0x03722c…0373c0 Dummy {f00=0x0049, f01=0x0190, f02=»XIT: * ( P* * ( * P* WORK REGISTERS: A2,A3 * T ( P* * ( P* SUBROUTINES: * ( P* * ( P**
0x0373c0…037554 (1, 69) Dummy {f00=0x0049, f01=0x0190, f02=»EVICE TYPE t P ANK A3,/FF P SUK A3,3 & P RF(N) DISC:0 DISC 8 P RF(Z) MFD:0 MINI FIXED DISC R P SUK A3,3 =9 v P RF(N) CDC:0 80M CDC DISC P RF FLEX:0 FLEXIBLE DISC P EJECT PCASS:0 EQU * P IFT CASS=1 P*
0x037554…0376e8 Dummy {f00=0x0049, f01=0x0002, f02=» (
0x0376e8…03787c Dummy {f00=0x0049, f01=0x0190, f02=» J F IDENT MONTIM REL 11.0 81-01-26 870105041100 GETTIMK SETTIM TDATE R GETTIMK r MONCLO , ( @ < ? < ? <(@ $ , ( P B $ 9H C ">h # TTB:SA
0x03787c…037a10 Dummy {f00=0x0049, f01=0x40d6, f02=» TDATE , ( w P ?_" = > = > = _D , ( @ X _F R _ 00 @ > & <h$ P > p ( $ P ?P eP s wP R P @ $ 9H C ">h # TTB:SA
0x037a10…037ba4 Dummy {f00=0x0049, f01=0x2008, f02=»
0x037ba4…037d38 Dummy {f00=0x0049, f01=0x0190, f02=»F0 - FIX DISC h P* & P LC A2,FCTAB,A2 LOAD FILE CODE =5 ( P ST A2,FILCOD+STKEND SAVE FILE CODE J P* v P* INITIALIZE DISC COMMANDS P* P CF A14,DUINIT P XIF P IFF DISC=1 P LDKL A1,LMP9 P CALL ERROR
0x037d38…037ecc Dummy {f00=0x0049, f01=0x0190, f02=» FILE CODE t P RTN A14 P EJECT " PCDC:0 EQU * 0 P IFF CDDISC+CDDI16=0 D P* ` 0 P* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC j P* P* P* MODIFY SCTIPL: /FC - /FD P* $ P SRC A2,2 TEST IF UNIT 1 OR 2 =9 P R
0x037ecc…038060 Dummy {f00=0x0049, f01=0x0190, f02=»E | ( P ST A2,FILCOD+STKEND SAVE FILE CODE P* 6 P* INITIALISE DISC COMMANDS @ P* b P CF A14,CDINIT INIT DEVICE l P RB FINISH RETURN P XIF P IFT CDDISC+CDDI16=0 =9 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OP
0x038060…0381f4 (1, 70) Dummy {f00=0x004b, f01=0x018e, f02=» P ANK A1,/10 ( P RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE P* H . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 R ( P ST A1,FRD:20 MODIFY INR INSTRUCTION P LDKL A1,/41F " P ST A1,FRD:42 MODIFY SST MASK P LDKL A1,/C00 & P ST A1
0x0381f4…038388 Dummy {f00=0x004b, f01=0x0190, f02=» P ST A2,READS $ P CF A14,GETVLB GET VOLUME LABEL P LD A1,FORDEV,A9 GET FORMAT @ P ST A1,DEVTYP+STKEND d P RTN A14 P EJECT 0 P******************************************** 0 P* * 0 P*
0x038388…03851c Dummy {f00=0x004b, f01=0x0190, f02=»= * n 0 P* * 0 P* ON ENTRY: A1 = DEVICE ADDRESS * F 0 P* * z 0 P******************************************** P P PUNLOCK EQU * $ P C
0x03851c…0386b0 Dummy {f00=0x004b, f01=0x0190, f02=»OP UNTIL ACCEPTED P* P EX FRD:40 SENSE STATUS $ $ P RB(NA) *-4 LOOP UNTIL ACCEPTED D P RTN A14 l P EJECT | @ P*********************************************************** @ P*
0x0386b0…038844 Dummy {f00=0x004b, f01=0x0190, f02=»* V @ P* * @ P* REFERENCED IN: SYSLOD * N @ P* * @ P* ENTRY: A9 - BUFFER ADDRESS
0x038844…0389d8 Dummy {f00=0x004b, f01=0x0190, f02=» * ^ @ P* EXIT: * @ P* * V @ P* WORK REGISTERS: A1,A2,A3 * @ P*
0x0389d8…038b6c Dummy {f00=0x004b, f01=0x0190, f02=» * f @ P*********************************************************** PFRDSEC EQU * ^ " P LDR A2,A11 GET SECTOR NUMBER r * P LDKL A4,/340 26 SHIFTED 10 STEPS LEFT $ P LD A1,DEVTYP+STKEND DEVICE TYPE P ANK A1,1 & P RF(Z) S
0x038b6c…038d00 Dummy {f00=0x004b, f01=0x0190, f02=» SECTOR NBR v P RF DVK26 PNOTCY0 EQU * & P ADK A2,13 : P EJECT L P* Z P* A2=PHYSICAL SECTOR NUMBER d P* PDVK26 EQU * P LDK A1,0 PDVK26A EQU * P SLL A1,5 PDVK26B EQU * P SUR A2,A4 P RF(
0x038d00…038e94 (1, 71) Dummy {f00=0x0016, f01=0x0190, f02=»WORD IN USER BUFFER % P ESR A5,A2 & ( P ADK A2,1 UPDATE USER BUFFER ADDRESS & . P RB MOVRT3 RETURN & Z P* & t P EJECT TMOVE & ~ P* & ( P* SYSTEM BUFFER EVEN,USER BUFFER ODD & P* & PMSU100 EQU * & P SUK A2,1 USER BUFFER EVEN & .
0x038e94…039028 Dummy {f00=0x0016, f01=0x0190, f02=» $ P RB(Z) MSU010 SYSTEM BUFFER EVEN ' P* ' , ( P* SYSTEM BUFFER ODD,USER BUFFER EVEN ' 6 P* ' b PMSU120 EQU * ' l " P LCR A5,A1 GET FIRST CHARACTER ' $ P ECR A5,A5 CHARACTER TO THE LEFT ' * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ' P SUK A3,1 DE
0x039028…0391bc Dummy {f00=0x0016, f01=0x0190, f02=»R ' f $ P ESR A5,A2 STORE TWO CHARACTERS ( * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ( 2 ( P ADK A2,2 UPDATE USER BUFFER ADDRESS ( ` P SUK A3,1 DECREMENT LENGTH ( P RB(P) MSU120 MORE TO MOVE ( P RB MOVRT3 ALL MOVED, RETURN ( P* ( P XIF =3
0x0391bc…039350 Dummy {f00=0x0016, f01=0x018e, f02=»UUMOV=2 =3 ( P EJECT TMOVE ) P* ) * P* ) 4 P********* ) > P* MOVUU * ) P P********* ) b P* ) t P* ) ~ $ P* SUBROUTINE TO MOVE CHARACTERS ) & P* FROM USER BUFFER TO USER BUFFER ) P* ) ( P* ENTRY: A1 = SOURCE BUFFER ADDRESS
0x039350…0394e4 Dummy {f00=0x0016, f01=0x0190, f02=» , P* A5 = TTAB ADDRESS SENDING TASK * P* * 4 2 P* EXIT: A1,A2,A3,A8,A9,A10,A11 ARE DESTROYED * > P* * t PMOVUU EQU * * ~ P LDR A11,A3 SAVE LENGTH * * P RF(NP) MUU120 NOTHING TO MOVE, RETURN * " P LDR A9,A1 SAVE SOURCE ADDRESS * ( P L
0x0394e4…039678 Dummy {f00=0x0016, f01=0x0190, f02=»EDIATE BUFFER LENGTH * z 0 P RF(NP) MUU120 INTERMEDIATE BUFFER TOO SMALL + P CWR A11,A3 + P , P RF(G) MUU110 MORE THAN ONE MOVE NEEDED + d ( P LDR A3,A11 REMAINING BUFFER LENGTH + P* + PMUU110 EQU * + P LDR A8,A3 SAVE PART LENGTH + $ P LDR A
0x039678…03980c Dummy {f00=0x0016, f01=0x0190, f02=» A9,A1 SAVE NEW SOURCE ADDRESS + 0 P LDKL A1,INTBUF INTERMEDIATE BUFFER ADDRESS , & $ P LDR A2,A10 DESTINATION ADDRESS , Z P LDR A3,A8 LENGTH , * P CF A15,MOVSU MOVE FROM SYSTEM TO USER , , P LDR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x03980c…0399a0 Dummy {f00=0x0016, f01=0x40cc, f02=» , P* INTERMEDIATE BUFFER - P* - & PINTBUF EQU * - 0 P RES LENGTH - D PINTLEN EQU *-INTBUF - X P* - t P* - ~ P* - P XIF - P* - P* - P* - P END - @ - DR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x0399a0…039b34 (1, 72) Dummy {f00=0x0036, f01=0x0190, f02=»LLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! : F P* !-----------------------------------------------------! J P* ! SUBROUTINES -COMMON TO ALL PARTS IN THIS PRO
0x039b34…039cc8 Dummy {f00=0x0036, f01=0x0008, f02=»
0x039cc8…039e5c Dummy {f00=0x0036, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 11.0 81-02-23 870105041100 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x039e5c…039ff0 Dummy {f00=0x0036, f01=0x0190, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* & P ENTRY SCTMSZ,SCTSFA,SCTEFA,SCTIPL & P ENTRY SCTANO,SCTTCT,SCTCDT,SCTPAG & P ENTRY SCTNO
0x039ff0…03a184 Dummy {f00=0x0036, f01=0x0190, f02=»CTMXS,SCTMOX z P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB 0 & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:SB Z & P ENTRY SWB:NC,SWB:DS,SWB:EL,SWB:NS P ENTRY STKEND,STKCOM,STKMOV & P ENTRY ACBIOE,ACBSWB,ACBSEG,ACBNPE & P ENTRY ACBMM
0x03a184…03a318 Dummy {f00=0x0036, f01=0x0190, f02=»TERNALS * P************* P* ( P* 2 P EXTRN TDISP < , P EXTRN IHPFAR POWER FAIL / AUTO RESTART P P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE TAPE ( P E
0x03a318…03a4ac Dummy {f00=0x0036, f01=0x0190, f02=»XTRN CHRT3 P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 & ( P EXTRN IHCC2 2 R ( P EXTRN IHCC3 3 ~ L P EXTRN CHLT1,IHSVU1,IHSVU2,IHSVU3,IHSVU4,IHSVU5 LOCAL CHANNEL UNIT NO. 1 > P EXTRN CHLT2,I
0x03a4ac…03a640 Dummy {f00=0x0036, f01=0x018e, f02=»IHPVU8 t 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC * P EXTRN IHLP,IHPL03,IHPL04 LINE PRINTER B ( P EXTRN IHCR,CHLT3,CHLT4 CARD-READER p ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC P EXTRN IHMT
0x03a640…03a7d4 (1, 73) Dummy {f00=0x0037, f01=0x0190, f02=» P DATA SCT P P " P* * P* SYSTEM TRAP 4 P* J PTRAP LDK A1,/D T P CF A15,HALT j P RES 4 ~ P HLT P P* P* DEBUG RESTART ENTRY P* P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG
0x03a7d4…03a968 Dummy {f00=0x0037, f01=0x018e, f02=»DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE " $ PX:D EQU 0 DM/FM NUMBER OF FILES P ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK x $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM 4 PX:H EQU 10 NUMBER OF SEG
0x03a968…03aafc Dummy {f00=0x0037, f01=0x0190, f02=» * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FREE AREA 6 $ PSCTEFA DATA 0,0 END OF FREE AREA ` ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: * P TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9 $ PSCTANO DATA 0 APPLICATION NUMBER
0x03aafc…03ac90 Dummy {f00=0x0037, f01=0x0190, f02=»GES v PSCTPSZ DATA 0 PAGE SIZE & PSCTSTB DATA STB SYSTEM STACK BASE , $ PSCTOPT DATA X:A MONITOR OPTION: V " P BIT 10:MPO,11:EMM,12:SWPBLK ~ $ P BIT 13:FM,14:DSKPAG,15:MMUPAG PSCTBUG DATA BUG DEBUGGER & PSCTDMT DATA X:B DMTASKS IN S
0x03ac90…03ae24 Dummy {f00=0x0037, f01=0x0190, f02=»T ADDRESS t $ PSCTNOF DATA X:D NUMBER OF FILES ( PSCTNFT DATA X:E NUMBER OF FILES/TASK : * PSCTFWL DATA X:F FILE WORK TABLE LENGTH f ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE , PSCTNOS DATA X:H NUMBER O
0x03ae24…03afb8 Dummy {f00=0x0037, f01=0x0190, f02=» P P* P* SYSTEM STACK P* , $ PSTKEND EQU * END OF SYSTEM STACK 6 P RES 68 ^ PSTKMOV LDR* A4,A1 n P STR A4,A2 P ADK A1,2 P ADK A2,2 P SUK A3,2 P ABR(Z) A7 P RB STKMOV PSTKCOM EQU * P
0x03afb8…03b14c Dummy {f00=0x0037, f01=0x4060, f02=»* IDLE LOOP P* P PLOOP RB * & P 8 P @ P H P END P@ ES 68 ^ PSTKMOV LDR* A4,A1 n P STR A4,A2 P ADK A1,2 P ADK A2,2 P SUK A3,2 P ABR(Z) A7 P RB STKMOV PSTKCOM EQU * P
0x03b14c…03b2e0 Dummy {f00=0x0037, f01=0x2008, f02=» P P END INIM @ & P EJECT 2 P @ P* H P* START SYSTEM R P* h P r P LD A13,CVTAPS z * P STR A13,A15 STORE USER START ADDRESS " P STR A7,A15 AND LEVEL ON STACK " P ABL PFINIT INITIALIZE DEVICES
0x03b2e0…03b474 (1, 74) Dummy {f00=0x004b, f01=0x0190, f02=» PCDINIT EQU * P* P* INIT 80M CDC DISC COMMANDS & P* J , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. T P ST A1,READC1 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR.
0x03b474…03b608 Dummy {f00=0x004b, f01=0x0190, f02=»VALUE FOR SECTOR NBR v & P LDKL A2,/300 BUFLEN 80M CDC DISC P ST A2,SAVCON SAVE LENGTH F 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. h P ST A2,READ P ST A2,READS P RTN A14 P EJECT 4 P**********************************
0x03b608…03b79c Dummy {f00=0x004b, f01=0x0190, f02=» ================================= * 4 P* * 6 4 P* REFERENCED IN: SYSLOD * n 4 P* * 4 P* ENTRY: A9 = BUFFER ADDRESS
0x03b79c…03b930 Dummy {f00=0x004b, f01=0x0190, f02=»A12 - SECTOR NBR MOST SIGNIFICANT * 4 P* * . 4 P* EXIT: A12,A11 = A12,A11 + 1 * f 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 *
0x03b930…03bac4 Dummy {f00=0x004b, f01=0x0190, f02=» * ~ 4 P*********************************************** & P* ^ PCRDSEC EQU * h P* | P* SET BUFFER ADDRESS P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 P ST A1,CIOAD2 ADDRESS 2 P ADKL
0x03bac4…03bc58 Dummy {f00=0x004b, f01=0x0190, f02=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT 0 P LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT 2 P EJECT f P* t P* DIVIDE LOGICAL WITH 3 ~ P* P LDK A3,0 PRED100 EQU * P ADK A3,1 P SUK A1,3 P RB(NN) RED100 P
0x03bc58…03bdec Dummy {f00=0x004b, f01=0x0190, f02=»W A2,PSECNL+STKEND , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR P CW A3,PSECNM+STKEND J , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR f P CW A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR
0x03bdec…03bf80 Dummy {f00=0x004b, f01=0x0190, f02=» EJECT P* A1=HEAD NBR * SECTOR NBR P* A2=CYLINDER NBR 0 P LDR A3,A2 J P LDR A2,A1 P LDK A1,0 n P DVK 23 P* A1=SECTOR NBR P* A2=HEAD NBR $ P ORKL A2,/800 SET INTERRUPT BIT " P ST A2,CIOTAB UPDATE CIO TABLE
0x03bf80…03c114 (1, 75) Dummy {f00=0x004c, f01=0x018e, f02=» PCIOPA2 EQU * P DATA /4000+128 PCIOAD2 EQU * 0 P DATA 0 ADDRESS 2 D PCIOPA3 EQU * ^ P DATA 128 r PCIOAD3 EQU * P DATA 0 ADDRESS 3 P XIF P IFT CDDI16=1 =9 P EJECT ( P**********************************
0x03c114…03c2a8 Dummy {f00=0x004c, f01=0x0190, f02=» j ( P* * ( P* REFERENCED IN: SYSLOD,GETFIL * 4 ( P* * ` ( P* ENTRY: A1 - DEVICE ADDRESS * ( P* * ( P* EXIT: *
0x03c2a8…03c43c Dummy {f00=0x004c, f01=0x0190, f02=» ( P* SUBROUTINES: * ( P* * 0 ( P*********************************** P PCDINIT EQU * P* ( P* INIT 16M OR 80M CDC DISC COMMANDS P* P LDR A2,A1 =9 & P ANK A1,/3F MA
0x03c43c…03c5d0 Dummy {f00=0x004c, f01=0x0190, f02=»ARTRIDGE INDICATOR =9 n , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. P ST A1,READC1 N ( P ORKL A1,/800 FORM SST A1,XX INSTR. d P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST A1,SEEKC1 ( P ORKL A1,/800 FORM SST A2,XX
0x03c5d0…03c764 Dummy {f00=0x004c, f01=0x0190, f02=»DC DISC v P ST A2,SAVCON SAVE LENGTH 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. 2 P ST A2,READ j P ST A2,READS ~ & P CF A14,GETVLB GET VOLUME LABEL =9 $ P LC A2,FORDEV+1,A9 GET FORMAT =9 P ANK A2,1 FORMAT 4 OR 5 =9 ( P L
0x03c764…03c8f8 Dummy {f00=0x004c, f01=0x0190, f02=» ( P ST A2,DIVCON SET DIVIDE CONSTANT =9 P RTN A14 4 P EJECT D 4 P*********************************************** R 4 P* * 4 P* CRDSEC- READ ONE SECTOR FROM DISC * 4 P* ===========
0x03c8f8…03ca8c Dummy {f00=0x004c, f01=0x0190, f02=» * j 4 P* * 4 P* ENTRY: A9 = BUFFER ADDRESS * J 4 P* * 4 P* A11 - SECTOR NBR LEAST SIGNIFICANT * 4 P* A12 - SECTOR
0x03ca8c…03cc20 Dummy {f00=0x004c, f01=0x0190, f02=»* b 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 * B 4 P* * z 4 P* SUBROUTINES: ERROR * 4 P*
0x03cc20…03cdb4 (1, 76) Dummy {f00=0x004c, f01=0x0190, f02=»N WORDS | PRMOV10 EQU * P LDR* A6,A1 $ P STR A6,A2 8 P ADK A1,2 J P ADK A2,2 P SUK A3,1 n P RB(P) RMOV10 NEXT WORD P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 & P CALL ERROR INDICATE R
0x03cdb4…03cf48 Dummy {f00=0x004c, f01=0x0190, f02=» NEW TRY P LC A1,CIOTAB P ANK A1,/C0 & 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S : P LDKL A2,/8000 r 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE P RB READER PRET31 EQU * P ANK A1,/80 2 P RF(Z) RET32 LAST
0x03cf48…03d0dc Dummy {f00=0x004c, f01=0x0190, f02=»U * P LDKL A2,/3FFF * P ANS A2,CIOTAB RESET LATE DATA STROBE " P LC A1,CIOTOT P P ANK A1,/C0 f 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- z P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRE
0x03d0dc…03d270 Dummy {f00=0x004c, f01=0x0190, f02=»- h P RB READER ! P EJECT ! P* ! * P* SEEK TABLE ! 4 P* ! H PSEKTAB EQU * ! R P DATA 0 ! f P* ! v P* CIO TABLE ! P* ! PCIOTAB EQU * ! & P DATA 0 ORDER,SECTOR NBR,HEAD NBR ! PCIOTOT EQU * ! 6 P DATA 384 TOTAL NUMBER O
0x03d270…03d404 Dummy {f00=0x004c, f01=0x0190, f02=»GN. =9 ! x PCIOAD1 EQU * " P DATA 0 ADDRESS 1 " " PCIOPA2 EQU * " < P DATA /4000+128 " P $ P DATA 0 ADDRESS 2 MOST SIGN. =9 " h PCIOAD2 EQU * " P DATA 0 ADDRESS 2 " PCIOPA3 EQU * " P DATA 128 " $ P DATA 0 ADDRESS 3 MOST SIGN. =9 "
0x03d404…03d598 Dummy {f00=0x004c, f01=0x0190, f02=»* * " 8 P* GETFIL - GET CONFIGURATION FILE * # < 8 P* =============================== * # x 8 P* * # 8 P* REFERENCED IN: SYSLO
0x03d598…03d72c Dummy {f00=0x004c, f01=0x0190, f02=» * # h 8 P* * $ 8 P* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * $ P 8 P* * $ 6 P* WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 * $ 8 P*
0x03d72c…03d8c0 Dummy {f00=0x004c, f01=0x0190, f02=» * $ z 8 P*************************************************** % & PGETFIL EQU * % b P CF A14,GETVLB % v PGET:10 EQU * % " P CF A14,RDSEC GET VOLUME LABEL % ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR % " P LDR A6,A9 GET START O
0x03d8c0…03da54 (1, 77) Dummy {f00=0x004d, f01=0x0190, f02=» A10,A10 END OF SEGMENT? 5 P RF(NZ) LOD:70 6 P RTN A14 EXIT 6 6 PLODSEG EQU * 6 L ( P LDKL A1,256 NUMBER OF WORDS/SECTOR 6 ` $ P ST A1,LOD:10 MODIFY INSTRUCTION 6 PLOD:70 EQU * 6 P CF A14,READ 6 PREAD EQU *-2 6 P RB LODCOM 6 P EJECT
0x03da54…03dbe8 Dummy {f00=0x004d, f01=0x0190, f02=»UF - RELOCATE BUFFER ROUTINE * 6 6 P* =============================== * 7 . 6 P* * 7 h 6 P* REFERENCED IN: LODCOM/LODSEG * 7 6 P*
0x03dbe8…03dd7c Dummy {f00=0x004d, f01=0x0190, f02=» * 7 6 P* EXIT: * 8 4 6 P* * 8 n 6 P* WORK REGISTERS: A1,A4,A5,A6 * 8 6 P*
0x03dd7c…03df10 Dummy {f00=0x004d, f01=0x0190, f02=»************************************************* 8 PREBUF EQU * 9 : . P LDR A4,A2 GET START OPF RELOCATION TABLE 9 N P SUK A4,2 9 PREB:10 EQU * 9 " P ADK A4,2 NEXT RELOCATION WORD 9 ( P LDK A6,16 NUMBER OF RELOCATION BITS 9 $ P LDR* A1,A4 GET
0x03df10…03e0a4 Dummy {f00=0x004d, f01=0x0190, f02=» RELOCATE 9 P STR A5,A3 STORE IT BACK : PREB:30 EQU * : 2 P ADK A3,2 NEXT CODE WORD : F & P CWR A3,A2 END OF CODE WORD PART? : f P RF(E) EXREL YES! : $ P SUK A6,1 MOORE RELOCATION BITS? : P RB(Z) REB:10 NO! : " P SLL A1,1 NEXT RELOCATION BI
0x03e0a4…03e238 Dummy {f00=0x004d, f01=0x0190, f02=»N - GET CONTENT IN MEMORY WORD * : . P***************************************** ; * P* ; P* REFERENCED IN: SEGGEN ; f P* ; " P* ENTRY: A2 - MEMORY ADDRESS ; . P* MMUOPT - MMU OPTION SWITCH (X) ; P* ; , P* EXIT: A1 - CONTE
0x03e238…03e3cc Dummy {f00=0x004d, f01=0x0190, f02=»CTOPT GET OPTION WORD ; P ANK A1,1 MMU OPTION < P RF(Z) GCON10 NO MMU < : P ELR A1,A2 < V P RF GCON20 < h PGCON10 EQU * < z P LDR* A1,A2 < PGCON20 EQU * < P RTN A14 RETURN < P EJECT < 2 P********************************************
0x03e3cc…03e560 Dummy {f00=0x004d, f01=0x0190, f02=»==== * < ~ 2 P* * = $ 2 P* SCAN CONFIGURATION FILE FOR POSSIBLE * = Z 2 P* APPLICATION DEFINITION BLOCKS. IF * = 8 P* FOUND APLTAB+STKCOM IS UPDATED WITH DISC * = 2 P* ADD
0x03e560…03e6f4 (1, 78) Dummy {f00=0x0024, f01=0x0190, f02=» J F " D RRRRRR AL4 CL*0X f_,0XW 0XW 0XW 0XW 0XW 0XW 0XW 0XX Z [ R BL 7 W 2 R Y d _ t a . d k i n p v {
0x03e6f4…03e888 Dummy {f00=0x0024, f01=0x0002, f02=»
0x03e888…03ea1c Dummy {f00=0x0024, f01=0x018e, f02=» > @ IDENT CTAB01 820111 NJ ARBEJDSFORMIDLINGEN CTAB01 CTAB02 F CTAB01 ` CTAB02 t , ( , ( ! !"#$%&' <*+,-./01 , ( A 23456789 PQRSTUVWXY
0x03ea1c…03ebb0 Dummy {f00=0x0024, f01=0x4052, f02=» x 0 , . > N ^ ! n # ~ ' + <@ NTAB02 F CTAB01 ` CTAB02 t , ( , ( ! !"#$%&' <*+,-./01 , ( A 23456789 PQRSTUVWXY
0x03ebb0…03ed44 Dummy {f00=0x0024, f01=0x406e, f02=» & & ( & " @@L AA?R!@L f0XC0X CC?R 2 X X@ j d - & v 0 $ 7 ? 8 G 9 < A J F " D AL:2A RRRRRR AL BL0X BB
0x03ed44…03eed8 Dummy {f00=0x0024, f01=0x018c, f02=» L H IDENT STRINP TRA 11.0 82-01-11 F1 O1111 REL=4.1,79-05-23,870138040410 STRINP T $$$TRAR f STRINP x STRIN1R T:GETFA T:SWIT2 " & 2
0x03eed8…03f06c Dummy {f00=0x0024, f01=0x4008, f02=»@ NT STRINP TRA 11.0 82-01-11 F1 O1111 REL=4.1,79-05-23,870138040410 STRINP T $$$TRAR f STRINP x STRIN1R T:GETFA T:SWIT2 " & 2
0x03f06c…03f200 Dummy {f00=0x0024, f01=0x018c, f02=» L H IDENT STROUT TRA 11.0 82-01-11 F1 O1111 REL=4.1,79-05-23,870138040410 STROUT T $$$TRAR f STROUT x STROU1R T:GETFA T:SWIT2 " & 2
0x03f200…03f394 (1, 79) Dummy {f00=0x008d, f01=0x0000, f02=»
[…0x17…]
0x0417e0…041974 (1, 82) Dummy {f00=0x008e, f01=0x0000, f02=»
[…0x7…]
0x042480…042614 (1, 83) Dummy {f00=0x0067, f01=0x0190, f02=» POINTER r P LDKL A4,/FFFF-LRCSEN * P ANS A4,DWTST,A6 RESET LRC-SENDING BIT . P LDK A4,1 6 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNING IND. n P LDR* A4,A15 RELOAD A4 P RB GETRTN RETURN =4 P XIF P EJECT P* P*
0x042614…0427a8 Dummy {f00=0x0067, f01=0x0190, f02=» B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER N 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE P* QUEUE OUTPUT P* POUTLIN EQU * P IFT CPU85
0x0427a8…04293c Dummy {f00=0x0067, f01=0x018e, f02=» XIF P* P IFT KBDIR=1 U =4 ( P LDKL A8,0 RESET REG FOR INDICATION 0 P XIF U =4 P ANK A2,/FF n " P CF A15,GETCWT GET CWT-ADDRESS P IFF RECHAN=0 P IFF LOCHAN=0 P LDR A7,A7 LOCAL ? P RF(Z) OUL100 YES P
0x04293c…042ad0 Dummy {f00=0x0067, f01=0x0190, f02=» P LDR A7,A5 GET CWT-ADDRESS , P ADR A7,A3 TERMINAL ADJUSTED CWT-ADDRESS * P XIF Z P EJECT f P* t ( P* IF UNIT NOT FREE QUEUE OUTPUT. ~ 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY 0 P* RUNNING ON TERMINAL FOR ANOTHER DEV
0x042ad0…042c64 Dummy {f00=0x0067, f01=0x018e, f02=»L100 INH $ P LDR* A3,A5 CHANNEL UNIT FREE ? P RF(NE) OUL800 NO 8 P IFF RECHAN=0 R P IFF LOCHAN=0 h P LDR A7,A7 REMOTE ? ~ P RF(Z) OUL400 NO P XIF P IFF RECHAN=0 P LDR A3,A2 P SUK A3,/82 STX ? P RF(NE)
0x042c64…042df8 Dummy {f00=0x0067, f01=0x0190, f02=» | P LDK A2,LRCSEN * P ORS A2,DWTST,A6 INDICATE LRC-SENDING P LDK A2,0 L $ P ST A6,LRCDWT,A7 SET LRC-DEVICE ^ , P CM LRCACK,A7 RESET LRC-ACKUMULATOR AND P INDICATE FIRST OBC 0 POUL150 LD A4,DWTCP2,A6 CHANNEL PARAMETERS 2 ( P
0x042df8…042f8c Dummy {f00=0x0067, f01=0x0190, f02=» P RF OUL350 POUL200 SUK A3,/15 ETB ? P RF(NE) OUL300 NO 6 P EJECT P P* ^ P* E T B h P* z & P SC A2,LRCACK,A7 INDICATE LAST OBC * P LC A2,LRCACK+1,A7 GET LRC-ACKUMULATOR P RB OUL150 P* P* OTHER OUTPU
0x042f8c…043120 Dummy {f00=0x0067, f01=0x0190, f02=»350 YES P LD A3,CWTBLK,A5 , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING ( * P RF OUL800 BLOCKSENDING RUNNING, QUEUE X P ( POUL350 LD A3,DWTST,A6 DEVICE STATUS 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? " P RF(Z) OUL500 DEVICE WITH
0x043120…0432b4 (1, 84) Dummy {f00=0x0067, f01=0x0190, f02=»CT P* P* 4 P* GET DEVICE ADDRESS AND WORK STATION ADDRESS : P* FROM CHANNEL PARAMETERS AND PUT INTO OUTPUT WORD V P* POUL400 EQU * U =4 P IFT KBDIR=1 U =4 , P LD A8,DWTCP2,A6 CHANNEL PARAMETERS 2 =4 P XIF
0x0432b4…043448 Dummy {f00=0x0067, f01=0x0190, f02=»3,4 TO CORRECT PLACE P IFF RECHAN=0 P IFF LOCHAN=0 2 P LDR A7,A7 LOCAL ? H P RF(NZ) OUL505 NO b P XIF | P IFF LOCHAN=0 P ANKL A4,/0700 WS-ADDRESS P SLC A4,1 TO CORRECT PLACE P IFF RECHAN=0 P RF OUL508
0x043448…0435dc Dummy {f00=0x0067, f01=0x0190, f02=»SS l , P LC A4,DWTCP2,A6 LEFT BYTE OF CH. PAR. 2 $ P ANK A4,1 REMOTE TERMINAL NUMBER : P SRC A4,5 TO CORRECT PLACE b P XIF POUL508 EQU * . P ORR A3,A4 COMBINE DEV.ADDR. AND WS-ADDR. P IFT KBDIR=1 U =4 , P ANKL A8,KBLAMP KB-LAMPS
0x0435dc…043770 Dummy {f00=0x0067, f01=0x0190, f02=» P EJECT P* , P* SEND CHARACTER AND SET CHANNEL BUSY P* L P IFF RECHAN=0 U =4 V $ P LDK A1,25 LOOP COUNTER FOR OTR p P XIF U =4 POUL515 EX CWTOTR,A5 OTR P RF(A) OUL520 ACCEPTED P IFT RECHAN=0 U =4 P RF(R)
0x043770…043904 Dummy {f00=0x0067, f01=0x0190, f02=»OUL515 YES P RF OUL800 QUEUE P XIF U =4 * " POUL518 ADKL A15,20 RESET STACK < " P LDK A1,NOERR SET NOT OPERABLE b 6 P ABL NDREP GET REGISTERS AND RETURN TO DEV.DRIVER POUL520 EQU * P* P IFT LOGING=1 P* 0 P CF A15,
0x043904…043a98 Dummy {f00=0x0067, f01=0x018e, f02=»AST OUTPUT WORD x P IFF RECHAN=0 P IFF LOCHAN=0 . P LDR A7,A7 REMOTE ? D P RF(Z) OUL550 NO ` P XIF x P IFF RECHAN=0 P EJECT P* N P* INDICATE BLOCKSENDING RUNNING IF STX TO DEVICE WITHOUT DATA REQUEST. . P*
0x043a98…043c2c Dummy {f00=0x0067, f01=0x0190, f02=» " P LD A3,DWTST,A6 DEVICE STATUS 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? * " P RF(Z) OUL540 DEVICE WITH DRD ^ , P LD A3,CWTBLK,A5 BLOCK SENDING INDICATOR * P RF(Z) OUL540 BLOCKSENDING NOT ALLOWED P LDK A3,/80 2 P SC A3,CWTBLK,A5 I
0x043c2c…043dc0 Dummy {f00=0x0067, f01=0x0190, f02=»SY START OR RESTART SYNC-TIMER P XIF & P* 2 6 P* SAVE LAST OUTPUT CHARACTER IN DWT AND RETURN < P* v POUL550 EQU * U =4 P IFT KBDIR=1 U =4 * P LDR A8,A8 KB-LAMPS ON VDU-OUTPUT ? =4 P RF(NZ) OUL700 YES P XIF U =4
0x043dc0…043f54 (1, 85) Dummy {f00=0x0058, f01=0x0190, f02=» PCLT090 ABL TDISP n P EJECT n P* n * P* n 4 $ P* DATA INPUT AND DATA REQUEST n > P* n f > P* ALWAYS: GET DWT-ADDRESS FROM INTERRUPT TABLE n p P* n D P* DATA INPUT: IF INPUT REQUESTED FROM DEVICE, RETURN TO n ( P*
0x043f54…0440e8 Dummy {f00=0x0058, f01=0x0016, f02=» ( 0 8 @ H P X `
0x0440e8…04427c Dummy {f00=0x0058, f01=0x0190, f02=» 2 P IDENT DRKB04 REL 11.0 81-05-25 870105041100 P : 0 P =2 GREEK CHARACTER SET & NEW CONDITIONS B P REL 11.0 81-03-27 v 4 P = 1 /00 SKIPPED IF IT CAME FROM SECOND DEVICE , P ADDRESS VIA CIRCULAR INPUT BUFFER P REL 11.0
0x04427c…044410 Dummy {f00=0x0058, f01=0x0190, f02=»S T E M P T S h P* P* DRKB04 = DRIVER KEYBOARD P* D . P****************************************** N P* 4 P* THIS DRIVER HANDLES INPUT FROM THE KEYBOARDS & P* PTS 6231, -32, -33, -34, -36, 2 P* -71, -72, 6331, 6342 AND
0x044410…0445a4 Dummy {f00=0x0058, f01=0x0190, f02=» ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. P* 6 0 P* AN ECHO DEVICE CAN BE ATTACHED TO EVERY @ 0 P* KEYBOARD, WHERE RECEIVED CHARACTERS ARE t P* ECHOED. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* R C K B =
0x0445a4…044738 Dummy {f00=0x0058, f01=0x0190, f02=» * P* THE FOLLOWING ORDERS ARE TREATED: P* ORDER 01: BASIC READ 6 " P* 02: STANDARD READ Z " P* 03: NUMERIC READ ( P* 31: RESET INPUT BUFFER P* P EJECT P* NORMAL REGISTER USAGE:
0x044738…0448cc Dummy {f00=0x0058, f01=0x0190, f02=» A4: WORK REGISTER " P* A5: STACK BASE " $ P* A6: DWT-ADDRESS H P* A7: ORDER p $ P* A8: ECB-ADDRESS P* P* SYSTEM ADAPTION P* 2 P* DWT-ADDRESS OF ECHO-OUTPUT
0x0448cc…044a60 Dummy {f00=0x0058, f01=0x018e, f02=»O ZERO. STANDARD VALUE FOR TIME- | 6 P* OUT IS 30 SECONDS SINCE LAST DEPRESSED KEY. IF ( 8 P* ANOTHER VALUE IS WANTED FOR A SYSTEM, INDICATOR b " P* IN DRIVER MUST BE CHANGED. P* P* < P* BIT 1 IN DWTDEV IS SET TO ZERO IF CHARACTERS
0x044a60…044bf4 (1, 86) Dummy {f00=0x0057, f01=0x0190, f02=»ENT BASE ADDRESS U l & P ADK A2,12 5 WORDS FOR DEBUGGER =9 V 0 P ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA V B : P LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK V v P SUK A2,2 =10 V 8 P ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART V . P S
0x044bf4…044d88 Dummy {f00=0x0057, f01=0x0002, f02=»
0x044d88…044f1c Dummy {f00=0x0057, f01=0x013c, f02=» PT; P01; PTID=T0; PTCL=T0; * PLEV=60; : P02; J PTDC=T02; V PLC=001L; f PTDC=T03; v PLC=003L; P00; PT; P01; PTID=T1; PTCL=T0; PLEV=60; P02; PTDC=T02; PLC=0
0x044f1c…0450b0 Dummy {f00=0x0057, f01=0x2008, f02=» P01; PTID=T0; PTCL=T0; * PLEV=60; : P02; J PTDC=T02; V PLC=001L; f PTDC=T03; v PLC=003L; P00; PT; P01; PTID=T1; PTCL=T0; PLEV=60; P02; PTDC=T02; PLC=0
0x0450b0…045244 Dummy {f00=0x0057, f01=0x0190, f02=»
0x045244…0453d8 Dummy {f00=0x0057, f01=0x0190, f02=» 2 K A01 1 1 7_ A01 1 61 "_ 4 0 41 _ 4 0 41 _*@0_._FA01 1 61 ,:_ 4 0 41 W, 4 0 41 W 4 0 41 W 4 0 41 W _ _P 4 4 4 4 A2 @24 1 1 8 0 I0 61 %0 0 W 0 0 W 6
0x0453d8…04556c Dummy {f00=0x0057, f01=0x0190, f02=» 3 W 0 2(2 _W 3 0 2 2 0 22 W&0 CA1!1 bI2 21 1 4 3 *0 C_,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ 2 71 FF:FF:6:::6:6_ A P 2 0 2_ 2 0 2 @ K2a_ 1 0 CX 3 Wb 0 0 0 2(2 1 ? 0 C 013R4*1 .(0 A1? 3 0 1 0 12S 0 P 0 Q 1 4 0 21W
0x04556c…045700 Dummy {f00=0x0057, f01=0x0190, f02=» 1 4 0 A1? 0 C0 30 33? 4 4 4 4 4 4 4 4 4 a Q o + V L k ) y
0x045700…045894 (1, 87) Opaque[0x194]
0x045894…045a28 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0020, f03=0x0000}
0x045894…045a28 IdxSect {
0x045894…045a28 f00 = 0x0001 // 0x45894 @0x0
0x045894…045a28 f01 = 0x0002 // 0x45896 @0x2
0x045894…045a28 gno = [ // 0x45898 @0x4
0x045894…045a28 [0x00]: C0x0001.0x0.0
0x045894…045a28 ]
0x045894…045a28 }
0x045a28…045bbc Dummy {f00=0x0001, f01=0x4180, f02=» 2 P IDENT SCLASS REL 11.0 81-01-26 870105041100 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWREMU P* P* P* P* PSCLASS DATA TCLASE-* P DATA TC00 PTCLASE EQU *
0x045bbc…045d50 Dummy {f00=0x0001, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x045d50…045ee4 Dummy {f00=0x0001, f01=0x2008, f02=»
0x045ee4…046078 Dummy {f00=0x0001, f01=0x0190, f02=»GICAL ADDRESS 2 P* TO SEGMENT 3 P* 3 , P LDR A2,A8 GET MMU ENTRY 3 6 & P SLL A2,12 MOVE TO 4 LEFTMOST BITS 3 V 6 P ST A2,APLLAP,A1 SAVE IN APPLICATION CONTROL BLOCK 3 ( P ORR A2,A4 CONCATENATE DISPLACEMENT 3 8 P ST A2,LSTASG+STKEND AND SAVE AS L
0x046078…04620c Dummy {f00=0x0001, f01=0x0190, f02=»MMU ENTRIES TO UPDATE 3 z ( P LDKL A6,MMEND INITIATE MMU POINTER 4 & P LDKL A8,16 AND MMU ENTRY POINTER 4 J & P LDR A4,A5 AREA LEFT IN LAST FRAME 4 t PAP:335 EQU * 4 P* 4 ( P* COMPUTE APPLICATION START ADDRESS 4 P* 4 0 P* A1 - POINTER TO APP
0x04620c…0463a0 Dummy {f00=0x0001, f01=0x0190, f02=»DRESS 4 | P* A8 - CURRENT MMU ENTRY 5 P* 5 0 0 P LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART 5 : * P LD A3,APLTYP,A1 GET APPLICATION TYPE 5 n P CWK A3,'AS' ASSEMBLER? 5 P RF(NE) AP:336 NO! 5 P* 5 , P ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER
0x0463a0…046534 (1, 88) Opaque[0x194]
0x046534…0466c8 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0038, f03=0x0000}
0x046534…0466c8 IdxSect {
0x046534…0466c8 f00 = 0x0001 // 0x46534 @0x0
0x046534…0466c8 f01 = 0x0002 // 0x46536 @0x2
0x046534…0466c8 gno = [ // 0x46538 @0x4
0x046534…0466c8 [0x00]: C0x0001.0x3.0
0x046534…0466c8 ]
0x046534…0466c8 }
0x0466c8…04685c Dummy {f00=0x0001, f01=0x018e, f02=» 2 P IDENT MONTAB REL 11.0 81-05-27 870105041100 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P
0x04685c…0469f0 Dummy {f00=0x0001, f01=0x018e, f02=» P EXTRN CTAB01 P EXTRN CTAB02 P 0 P 8 P @ P H P P P X P EXTRN KBAD4 ` P EXTRN TPAD t P EXTRN GPAD P EXTRN DNAD P EXTRN DIAD P EXTRN DYAD P EXTRN MSAD P EXTRN ODAD P EXTRN T
0x0469f0…046b84 Dummy {f00=0x0001, f01=0x0190, f02=» P P P P**** P DATA CTAB01 , P DATA CTAB02 B P X P ` P h P p PMONTAB EQU * x PFREQUE DATA 0 PPAGQUE DATA 0,0 P P P P P P P P 2 PSPDLCI DATA 0
0x046b84…046d18 Dummy {f00=0x0001, f01=0x407e, f02=» P P DATA KBAD4 P DATA DIAD $ P DATA DYAD 6 P* H P DATA GPAD3 R P f P END n@ z EQU * x PFREQUE DATA 0 PPAGQUE DATA 0,0 P P P P P P P P 2 PSPDLCI DATA 0
0x046d18…046eac Dummy {f00=0x0001, f01=0x2008, f02=» DATA DYAD P* P* $ P END .@ : DYAD 8 P* L P* V P* ` PMONTAB EQU * j PTCTAB DATA 0 ~ PCDTAB DATA 0 PBLOCKS DATA 0 PDCTAB DATA 0 PINTLT1 DATA 0 PINTLT2 DATA 0 PINTRT1 DATA
0x046eac…047040 Dummy {f00=0x0001, f01=0x0190, f02=»O FREE FWT AVAILABLE D P LDKL A4,/8400 RETURN CODE E P RF ER:RTN E > P* E P POP:040 EQU * FILE ATTACHED E Z P LDK A4,/40 RETURN CODE E | P* E PER:RTN EQU * E & P ORS A4,RETCOD PREPARE RETURN CODE E P ABL FMEXIT RETURN E P* E P
0x047040…0471d4 (1, 89) Opaque[0x194]
0x0471d4…047368 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c00, f03=0x0000}
0x0471d4…047368 IdxSect {
0x0471d4…047368 f00 = 0x0060 // 0x471d4 @0x0
0x0471d4…047368 f01 = 0x0006 // 0x471d6 @0x2
0x0471d4…047368 gno = [ // 0x471d8 @0x4
0x0471d4…047368 [0x00]: C0x0060.0x0.0
0x0471d4…047368 [0x01]: C0x0079.0x3.0
0x0471d4…047368 [0x02]: C0x007a.0x2.0
0x0471d4…047368 ]
0x0471d4…047368 }
0x047368…0474fc Dummy {f00=0x0060, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 11.0 81-02-23 870105041100 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x0474fc…047690 Dummy {f00=0x0060, f01=0x0190, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* & P ENTRY SCTMSZ,SCTSFA,SCTEFA,SCTIPL & P ENTRY SCTANO,SCTTCT,SCTCDT,SCTPAG & P ENTRY SCTNO
0x047690…047824 Dummy {f00=0x0060, f01=0x0190, f02=»CTMXS,SCTMOX z P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB 0 & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:SB Z & P ENTRY SWB:NC,SWB:DS,SWB:EL,SWB:NS P ENTRY STKEND,STKCOM,STKMOV & P ENTRY ACBIOE,ACBSWB,ACBSEG,ACBNPE & P ENTRY ACBMM
0x047824…0479b8 Dummy {f00=0x0060, f01=0x0190, f02=»TERNALS * P************* P* ( P* 2 P EXTRN TDISP < , P EXTRN IHPFAR POWER FAIL / AUTO RESTART P P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE TAPE ( P E
0x0479b8…047b4c Dummy {f00=0x0060, f01=0x0190, f02=»XTRN CHRT3 P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 & ( P EXTRN IHCC2 2 R ( P EXTRN IHCC3 3 ~ L P EXTRN CHLT1,IHSVU1,IHSVU2,IHSVU3,IHSVU4,IHSVU5 LOCAL CHANNEL UNIT NO. 1 > P EXTRN CHLT2,I
0x047b4c…047ce0 Dummy {f00=0x0060, f01=0x018e, f02=»IHPVU8 t 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC * P EXTRN IHLP,IHPL03,IHPL04 LINE PRINTER B ( P EXTRN IHCR,CHLT3,CHLT4 CARD-READER p ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC P EXTRN IHMT
0x047ce0…047e74 (1, 90) Dummy {f00=0x0079, f01=0x018e, f02=» ~ P* F P* DISPLACEMENTS IN SEGTAB, PAGTAB , SWBTAB AND APPL. CONTROL BLOCK P* PSEG:FC EQU -4 FILE CODE f $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE
0x047e74…048008 Dummy {f00=0x0079, f01=0x0190, f02=» j PPAG:PA EQU 4 PAGE ADDRESS & PPAG:SB EQU 6 SEGMENT BLOCK ADDRESS * P* T 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE ^ 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY $ PSWB:EL EQU 4 SWB LENGTH (BYTES) & PSWB:NS EQU 6 SWB LENGT
0x048008…04819c Dummy {f00=0x0079, f01=0x0190, f02=»ABLE POOL z ( PACBNPE EQU 6 NUMBER OF PAGE ENTRIES & PACBMMP EQU 8 MMU TABLE PAGE ENTRY > . PACBMMC EQU 10 MMU TABLE COMMON PART ENTRY h * PACBLAP EQU 12 LOGICAL ADDRESS TO PAGE 0 PACBLAC EQU 14 LOGICAL ADDRESS TO COMMON PART 4 PACBSTA EQU 1
0x04819c…048330 Dummy {f00=0x0079, f01=0x018e, f02=»S f P P P PSTART EQU * " P EJECT SYSTAB 6 P* N P* INTERRUPT VECTORS X P* t P DATA IHPFAR ~ P DATA IHLKM P DATA IHRTC P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT
0x048330…0484c4 Dummy {f00=0x0079, f01=0x0190, f02=» P DATA CHLT1 P DATA IHFD P DATA ILLINT 0 P DATA ILLINT D P DATA ILLINT X P DATA ILLINT l P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA CHLT1 P DATA ILLINT P DATA ILLINT
0x0484c4…048658 Dummy {f00=0x0079, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT P DATA ILLINT 0 P DATA ILLINT D P DATA ILLINT X P DATA ILLINT l P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT
0x048658…0487ec Dummy {f00=0x0079, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT P DATA ILLINT 0 P DATA ILLINT D P DATA ILLINT X P DATA ILLINT l P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA TRAP TRAP ROUTINE P EJECT SYSTAB P P* " P*
0x0487ec…048980 Dummy {f00=0x0079, f01=0x0190, f02=» P CF A15,HALT P RES 4 P HLT * P 6 P* > P* DEBUG RESTART ENTRY H P* f P XRR A13,A13 p P XRR A14,A14 P LD A1,SCTBUG P ABR(NZ) A1 P HLT P* P EJECT SYSTAB P* P* PX:A
0x048980…048b14 (1, 91) Dummy {f00=0x007a, f01=0x0190, f02=»MBER OF FILES ~ ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK $ PX:F EQU 0 FILE WORK TABLE LENGTH B PX:G EQU 0 DC TASK IN SYSTEM j 4 PX:H EQU 10 NUMBER OF SEGMENT TABLES (BASIC ONLY) P* P EJECT SYSTAB P* P* SYSTEM CONTROL TABLE
0x048b14…048ca8 Dummy {f00=0x007a, f01=0x0190, f02=»FA DATA 0,0 END OF FREE AREA ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: $ * P TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9 P $ PSCTANO DATA 0 APPLICATION NUMBER ~ PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB ADDRE
0x048ca8…048e3c Dummy {f00=0x007a, f01=0x0190, f02=»097 MONITOR OPTION: " P BIT 10:MPO,11:EMM,12:SWPBLK $ P BIT 13:FM,14:DSKPAG,15:MMUPAG B PSCTBUG DATA 0 DEBUGGER j & PSCTDMT DATA X:B DMTASKS IN SYSTEM & P BIT 12:#G, 13:#F, 14:#E, 15:#D 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZ
0x048e3c…048fd0 Dummy {f00=0x007a, f01=0x0190, f02=» j , PSCTFWL DATA 00000 FILE WORK TABLE LENGTH ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK 8 . PSCTDCT DATA 00001 DC-TASK IN SYSTEM/REMOTE d , PSCTNOS DATA X:H NUMBER OF SEGMENT TABLES $ PSCTMXS DATA 0 ADDRESS TO MXSTAB 0 PSCTMOX DATA 0 ADDRESS TO S
0x048fd0…049164 Dummy {f00=0x007a, f01=0x018e, f02=» P RES 68 PSTKMOV LDR* A4,A1 P STR A4,A2 . P ADK A1,2 @ P ADK A2,2 R P SUK A3,2 d P ABR(Z) A7 v P RB STKMOV PSTKCOM EQU * P RES 61 P RORG START+/1FC P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC F
0x049164…0492f8 Dummy {f00=0x007a, f01=0x4008, f02=»@ 68 PSTKMOV LDR* A4,A1 P STR A4,A2 . P ADK A1,2 @ P ADK A2,2 R P SUK A3,2 d P ABR(Z) A7 v P RB STKMOV PSTKCOM EQU * P RES 61 P RORG START+/1FC P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC F
0x0492f8…04948c Dummy {f00=0x007a, f01=0x2008, f02=» P P END INIM @ & P EJECT 2 P @ P* H P* START SYSTEM R P* h P r P LD A13,CVTAPS z * P STR A13,A15 STORE USER START ADDRESS " P STR A7,A15 AND LEVEL ON STACK " P ABL PFINIT INITIALIZE DEVICES
0x04948c…049620 Dummy {f00=0x007a, f01=0x0190, f02=» , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( P: : { : P"$0T O Pb 9 _ P"$0T [ P"$0T Z : R$ P $ 1T Y TdW 5 _& : P"$0TH
0x049620…0497b4 (1, 92) Opaque[0x194]
0x0497b4…049948 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x0497b4…049948 IdxSect {
0x0497b4…049948 f00 = 0x0002 // 0x497b4 @0x0
0x0497b4…049948 f01 = 0x0008 // 0x497b6 @0x2
0x0497b4…049948 gno = [ // 0x497b8 @0x4
0x0497b4…049948 [0x00]: C0x0002.0x3.0
0x0497b4…049948 [0x01]: C0x0003.0x0.0
0x0497b4…049948 [0x02]: C0x0003.0x2.0
0x0497b4…049948 [0x03]: C0x0003.0x3.0
0x0497b4…049948 ]
0x0497b4…049948 }
0x049948…049adc Dummy {f00=0x0002, f01=0x0190, f02=» 0 P IDENT TDISP REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* 6 P****************
0x049adc…049c70 Dummy {f00=0x0002, f01=0x0190, f02=» WITH 8 REGISTERS ON A15 STACK. v > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER ( < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. j : P* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER $ P* PRIORITY TASK IS STARTED.
0x049c70…049e04 Dummy {f00=0x0002, f01=0x0190, f02=» 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. P* B 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. L P* H P* ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. P* 0 P* ENTRY 'TEXIT' EXITS A TASK B
0x049e04…049f98 Dummy {f00=0x0002, f01=0x0190, f02=» A TASK BEFORE TDISP. t P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. ( P* p P EJECT TDISP z P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY TDISP DISPATC
0x049f98…04a12c Dummy {f00=0x0002, f01=0x018e, f02=»E TASK AND EXIT MONITOR TASK ~ , P ENTRY ACTDIS ACTIVATE TASK AND DISPATCH $ " P ENTRY DISIOE I/O ERROR ENTRY T & P ENTRY DISEND END I/O AND DISPATCH z 6 P ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE , P ENTRY PRUN TTAB ADDRESS OF RUNNING TASK
0x04a12c…04a2c0 Dummy {f00=0x0002, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:AP ACB ADDRESS T P EXTRN TTB:SA SAVE AREA v P EXTRN TTB:ST STATUS & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CU
0x04a2c0…04a454 (1, 93) Dummy {f00=0x0003, f01=0x0190, f02=» ADDRESS ~ . P EXTRN PAG:QB PAGE QUEUE BACKWARD POINTER P EXTRN TENDIO END I/O B P EXTRN EXIT PROGRAM EXIT ` 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN ACBLAP LOGICAL ADDRESS OF C
0x04a454…04a5e8 Dummy {f00=0x0003, f01=0x0190, f02=» . P***************************************** P* : P* CONDITIONAL ASSEMBLY D P* b . P***************************************** l P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P
0x04a5e8…04a77c Dummy {f00=0x0003, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 0 P* 4 P* > . P* A PROGRAM VERSION USING TOSS DISC PAGING H * P* IS OBTAINED BY SETTING DSKPAG EQU 1. z P* PDSKPAG EQU 0 P* P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOV
0x04a77c…04a910 Dummy {f00=0x0003, f01=0x0190, f02=» 1. ` P* PDIFPRI EQU 0 P* * P EJECT TDISP 4 P* J P* D I S Q U E T P* l 2 P* POINTER TO FIRST TASK IN DISPATCHER QUEUE v P* PDISQUE DATA 0 P* P* P R U N P* $ P* TTAB ADDRESS OF
0x04a910…04aaa4 Dummy {f00=0x0003, f01=0x0190, f02=»EGISTERS FROM STACK AND RETURN P* & PRETUR8 EQU * 0 P D P IFT CPU852=0 L P MLR 8,A15 b P XIF t P P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR*
0x04aaa4…04ac38 Dummy {f00=0x0003, f01=0x0190, f02=»M E X I T, M E X I T, T E X I T P* ( 2 P* DO EXIT ON (MONITOR) TASK AND GO TO TDISP 2 P* h 2 PQMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING r P* PMEXIT INH P LD A5,PRUN P CM PRUN P* PTEXIT EQU * P C
0x04ac38…04adcc Dummy {f00=0x0003, f01=0x018e, f02=» PACTDIS CF A15,ACTOT P RF TDISP P EJECT TDISP 2 P H P* P P* D I S I O E Z P* r 6 P* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND | P* PDISIOE LDKL A1,/8000 P P* P* D I S E N D P*
0x04adcc…04af60 Dummy {f00=0x0003, f01=0x0190, f02=» & P* PAUSE TASK (I. E. GO TO TDISP) P* . PTPAUSE EQU * 8 P EJECT TDISP L P* b P* T D I S P l P* $ P* THIS IS THE DISPATCHER ENTRY P* PTDISP INH & P LC A1,18,A15 LOAD PSW FROM STACK P ANK A1,/FC
0x04af60…04b0f4 (1, 94) Dummy {f00=0x0003, f01=0x0190, f02=»DKL A2,DISQUE P LDR* A3,A2 P RB(Z) RETUR8 QUEUE EMPTY * P L P LD A5,PRUN T $ P RF(Z) TDCQ10 IDLE LOOP RUNNING h & P LD A4,TTB:ST+1,A5 COMPARE RUNNING 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES * P RB(NG) RETUR8 RUNNING
0x04b0f4…04b288 Dummy {f00=0x0003, f01=0x0190, f02=»D A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR P RF(Z) TDISSW NONE . P LDR* A7,A1 H P RF(N) TDISSW SEGMENT LOADED 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF P EJECT TDISP P*
0x04b288…04b41c Dummy {f00=0x0003, f01=0x0190, f02=»IDLE LOOP P . P ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY P RF(Z) TDSW20 EMPTY QUEUE L 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES n 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6 P LDR* A6,A2 , P RB(NZ) TDSW
0x04b41c…04b5b0 Dummy {f00=0x0003, f01=0x0190, f02=» l P LDR A14,A5 P P IFT CPU852=0 $ P MLR 8,A15 : P MS 13,TTB:SA+2,A14 L P MLR 2,A15 h P z P XIF P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P
0x04b5b0…04b744 Dummy {f00=0x0003, f01=0x0190, f02=»2,A14 P ST A10,TTB:SA+20,A14 P ST A9,TTB:SA+18,A14 , P ST A8,TTB:SA+16,A14 H P ST A7,TTB:SA+14,A14 d P ST A6,TTB:SA+12,A14 P ST A5,TTB:SA+10,A14 P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,A14 P ST A2,TTB:SA+4,A14
0x04b744…04b8d8 Dummy {f00=0x0003, f01=0x0190, f02=»W,A14 AND PSW IN TTAB P IFT DSKPAG+DIFPRI=2 P : * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR B P RF(Z) TDISST NONE p P LDR* A2,A1 GET SEGM STATUS P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY INT TASK P RF(NZ) TDISST YES
0x04b8d8…04ba6c Dummy {f00=0x0003, f01=0x018e, f02=» P EJECT TDISP P* P* START NEW TASK $ P* < PTDISST LD A14,PRUN F P IFT DSKPAG=1 ` P v * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR ~ P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR P IFT DIFPRI=0 P
0x04ba6c…04bc00 Dummy {f00=0x0003, f01=0x0190, f02=» ( P LDR* A2,A4 CHECK IF PAGE IN PAGQUE P RF(NZ) TDST10 YES 4 " P LDR* A3,A1 NO GET SEGM STATUS N 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK t P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK P RF(NE) TDST20
0x04bc00…04bd94 (1, 95) Dummy {f00=0x0003, f01=0x0190, f02=»A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE P STR A2,A3 , P ST A3,PAG:QB,A2 > P CMR A4 V P f , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS n P P IFT MMUPAG=1 P " P ECR A2,A1 CALC PHYS PAGE ADDR P ANK A2,/FC * P LDR A3,A1
0x04bd94…04bf28 Dummy {f00=0x0003, f01=0x018e, f02=»RIES j P 2 PTDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE P SUK A4,1 J P RF(Z) TDST25 P ADK A2,4 r P ADK A3,2 P RB TDST22 P PTDST25 EQU * " P TL TTB:MT,A14 LOAD MMU TABLE 2 P SLL A1,2 UPDATE BASE IN T:A A
0x04bf28…04c0bc Dummy {f00=0x0003, f01=0x0190, f02=» P XIF P P IFT DSKPAG-MMUPAG=1 2 P ST* A1,TTB:CB,A14 UPDATE CURRENT SEGMENT BASE 8 P XIF n P z PTDST30 EQU * P IFT MMUPAG=1 " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC
0x04c0bc…04c250 Dummy {f00=0x0003, f01=0x0190, f02=»AD REGISTERS z P P XIF P IFT CPU852=1 ( P > P STR A1,A15 PUT PC F P STR A2,A15 AND PSW ON STACK ` & P LD A1,TTB:SA+2,A14 LOAD REGISTERS P LD A2,TTB:SA+4,A14 P LD A3,TTB:SA+6,A14 P LD A4,TTB:SA+8,A14 P LD A5
0x04c250…04c3e4 Dummy {f00=0x0003, f01=0x40e8, f02=»D A10,TTB:SA+20,A14 P LD A11,TTB:SA+22,A14 P LD A12,TTB:SA+24,A14 : P LD A13,TTB:SA+26,A14 X P LD A14,TTB:SA+28,A14 v P P XIF P P RTN A15 START THE TASK P P END @ D A4,TTB:SA+8,A14 P LD A5
0x04c3e4…04c578 Dummy {f00=0x0003, f01=0x2008, f02=» p P* P* P END $@ 0K P* > P* H PLKMDIS EQU * R P INH f P LD A5,DISQUE r " P RF(Z) DIS010 NO QUEUE,RETURN & P LD A1,32,A15 LOAD PSW FROM STACK P SRL A1,10 GET LEVEL 4 P CC A1,TTABST+1,A5 A
0x04c578…04c70c Dummy {f00=0x0003, f01=0x0190, f02=» EQU * + P CF A5,FD:REA PERFORM READ , P* , 0 P IFT TOSS+IBM=2 , : P LD A1,DWTFIB,A6 , R P RF(Z) FD:090 NOT IBM , j P XIF , P* , P IFT IBM=1 , P IFT MMUPAG=0 , ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS , P XIF , P* , P
0x04c70c…04c8a0 Dummy {f00=0x0003, f01=0x0190, f02=»* , P* - P IFT MMUPAG=1 - P IFT CHAN=0 - * P IFT TOSS+IBM=2 - > P LD A1,DWTFIB,A6 - V P RF(Z) FD:100 TOSS DISC - n P XIF - P* - P IFT MMUPAG=1 - P IFF CHAN+IBM=0 - 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS - (
0x04c8a0…04ca34 (1, 96) Opaque[0x194]
0x04ca34…04cbc8 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0190, f03=0x0000}
0x04ca34…04cbc8 IdxSect {
0x04ca34…04cbc8 f00 = 0x000c // 0x4ca34 @0x0
0x04ca34…04cbc8 f01 = 0x000c // 0x4ca36 @0x2
0x04ca34…04cbc8 gno = [ // 0x4ca38 @0x4
0x04ca34…04cbc8 [0x00]: C0x000c.0x2.0
0x04ca34…04cbc8 [0x01]: C0x000f.0x3.0
0x04ca34…04cbc8 [0x02]: C0x0014.0x1.0
0x04ca34…04cbc8 [0x03]: C0x002a.0x2.0
0x04ca34…04cbc8 [0x04]: C0x002b.0x0.0
0x04ca34…04cbc8 [0x05]: C0x002b.0x1.0
0x04ca34…04cbc8 ]
0x04ca34…04cbc8 }
0x04cbc8…04cd5c Dummy {f00=0x000c, f01=0x0190, f02=» 2 P IDENT LRPINT REL 11.0 81-09-16 870105041100 P : P =2, POWER FAIL IN MOVES B P REL 11.0 81-07-27 d P =1,60 HZ COND BUG P REL 11.0 81-01-26 P P* P* 6 P**************************************************
0x04cd5c…04cef0 Dummy {f00=0x000c, f01=0x0190, f02=»OWER FAILURE ~ P* P* P* ( P* 2 P* < 6 P************************************************** F P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: P* P* -IHLKM:
0x04cef0…04d084 Dummy {f00=0x000c, f01=0x0190, f02=»E FOLLOWING ENTRIES ARE USED TO QUEUE TASKS: P* 4 6 P* -LKMRQE: SET A7 = -1, QUEUE TASK AND DISPATCH > P* x H P* -LKMSRC: SET A7 TO RETURN CODE (C(A2)), QUEUE TASK AND DISPATCH P* ( P* -LKMQDI: QUEUE TASK AND DISPATCH P*
0x04d084…04d218 Dummy {f00=0x000c, f01=0x0190, f02=» IHLKM LKM INTERRUPT HANDLER 4 P ENTRY LKM030 SPECIAL TLDSEG REQUEST ERROR ENTRY $ $ P ENTRY LKMRQE LKM REQUEST ERROR 4 P ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR * P ENTRY LKMQDI QUEUE TASK AND DISPATCH 0 P ENTRY LKMSRC SET RETURN CODE
0x04d218…04d3ac Dummy {f00=0x000c, f01=0x018e, f02=»O MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER & P ENTRY INIFLG INITIALIZATION FLAG N * P ENTRY PFPOST PWF POST PROCESSING FLAG x P EJECT LRPINT P* P* P************* P* EXTERNALS * P**********
0x04d3ac…04d540 Dummy {f00=0x000c, f01=0x0190, f02=» n " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE . P EXTRN QTJOB QUEUE TASK ^ $ P EXTRN QMJOB QUEUE MONITOR TASK ~ $ P EXTRN SWL48 SWITCH TO LEVEL 48 $ P EXTRN SWLXY SWITCH TO LEVEL XY P EXTRN FREBLK SET
0x04d540…04d6d4 (1, 97) Dummy {f00=0x000f, f01=0x0190, f02=»NTSAV INTERRUPT SAVE MODULE P EXTRN RELPAG RELEASE PAGE $ , P EXTRN TLDSEG LOAD SEGMENT LKM PROCESSOR F ( P EXTRN TTB:SB SEGMENT BLOCK POINTER v & P EXTRN TTB:PW PROGRAM STATUS WORD 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB " P EXTRN
0x04d6d4…04d868 Dummy {f00=0x000f, f01=0x0190, f02=»* CONDITIONAL ASSEMBLY P* . P***************************************** ( P* Z . P* A PROGRAM VERSION USING TOSS MMU PAGING d * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSIO
0x04d868…04d9fc Dummy {f00=0x000f, f01=0x0190, f02=» . P* A PROGRAM VERSION USING TOSS DISC PAGING * P* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 P* d PDSKPAG EQU 0 n P* P* 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS * P* IS OBTAINED BY SETTING MONCLK EQU 0. P*
0x04d9fc…04db90 Dummy {f00=0x000f, f01=0x0190, f02=»ONS f 2 P* IS OBTAINED BY SETTING MONDAT = MONCLK = 1. P* B PX:B EQU 0 L PMONDAT EQU 1 ^ P* r P* | 4 P* A PROGRAM VERSION WITH MONITOR CLOCK FUNCTIONS 4 P* ADAPTED TO 60 HERTZ NET FREQUENCY (USA/CANADA) , P* IS OBTAINED BY S
0x04db90…04dd24 Dummy {f00=0x000f, f01=0x0190, f02=»RPINT P* P* P* I H L K M " P* 8 P* B 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING L P* STEPS ARE CARRIED OUT: P* * P* - IF STACK OVERFLOW SYSTEM HALTS. P* D P* - ELSE REGISTERS A1 - A1
0x04dd24…04deb8 Dummy {f00=0x000f, f01=0x0190, f02=»M PROCESSOR. | P* P* EXIT CONDITIONS ARE: P* > * P* A4 = LABEL ADDRESS OF LKM REQUEST H 8 P* (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) v * P* A5 = TTAB ADDRESS OF CALLING TASK P* A6 = LKM DATA DIRECTIVE P*
0x04deb8…04e04c Dummy {f00=0x000f, f01=0x0190, f02=» $ P ST P,INTSAV SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG 0 P* ^ P EJECT LRPINT h P* P* P ST A15,LKM010 SAVE A15 " P LD A15,PRUN LOAD TTAB ADDRESS P* P IFT CPU852=1 4 P ADKL A15,TTB:
0x04e04c…04e1e0 Dummy {f00=0x000f, f01=0x0190, f02=» P STR A11,A15 -A11 P STR A10,A15 -A10 P STR A9,A15 -A9 8 P STR A8,A15 -A8 P P STR A7,A15 -A7 h P STR A6,A15 -A6 P STR A5,A15 -A5 P STR A4,A15 -A4 P STR A3,A15 -A3 P STR A2,A15 -A2 P STR A1,A15 -A1
0x04e1e0…04e374 (1, 98) Dummy {f00=0x0014, f01=0x0190, f02=»A5,PRUN TTAB ADDRESS OF CALLING TASK * P LDKL A15,0 RESTORE A15 STACK POINTER , PLKM010 EQU *-2 Z P* p P EJECT LRPINT z P* " P* GET LKM REQUEST PARAMETERS P* P LDR* A3,A15 4 P LDR* A2,A15 LOAD P.C. AND ADJUST STACK
0x04e374…04e508 Dummy {f00=0x0014, f01=0x0190, f02=»,A2 DATA DIRECTIVE P XIF P* & P IFT MMUPAG=1 0 P ANK A3,1 F P RF(NZ) LKM015 USER MODE X * P TL MONMMU NO, LOAD MONITOR MMU TABLE x P* PLKM015 EQU * " P EL A3,-2,A2 INSTRUCTION CODE P ELR A6,A2 DATA DIRECTIVE
0x04e508…04e69c Dummy {f00=0x0014, f01=0x0190, f02=»STACK OVERFLOW: HALT SYSTEM P* $ P LDK A1,7 HALT PARAMETER . 0 P RF LKM070 HALT SYSTEM DUE TO STACK OVERFLOW N P* P EJECT LRPINT P* P* PLKM025 EQU * & P ADK A2,2 UPDATE DISPATCH ADDRESS P* P IFF MMU
0x04e69c…04e830 Dummy {f00=0x0014, f01=0x0190, f02=»1 * P LD A3,TTB:SB,A5 SEGMENT BLOCK ADDRESS P RF(Z) LKM030 NO SEGMENT 8 P LCR A4,A3 SEGMENT STATUS X , P ANK A4,/5E CHECK IF CORE RESIDENT OR... z 2 P RF(NZ) LKM030 ...USED BY AN INTERRUPTED TASK P CF A15,RELPAG RELEASE PAGE P XIF
0x04e830…04e9c4 Dummy {f00=0x0014, f01=0x018e, f02=»L48 SWITCH TO LEVEL 48 P LDK A4,0 P LDR A3,A6 DATA DIRECTIVE 0 P RF(NN) LKM050 NO LABEL R P* r P* LKM REQUEST WITH LABEL | P* P IFT MMUPAG=0 P LDR* A4,A2 LABEL P XIF P* P IFT MMUPAG=1 P ELR
0x04e9c4…04eb58 Dummy {f00=0x0014, f01=0x0190, f02=» P EJECT LRPINT P* . P* UPDATE TTB:SA AND GO TO LKM PROCESSOR * P* PLKM050 EQU * f . P ST A2,TTB:SA,A5 SET NEXT DISPATCH ADDRESS z P ADR A3,A3 INDEX IN LKMAL & P RF(Z) LKMQDI TASK SWITCH REQUEST P CW A3,LKMAL
0x04eb58…04ecec Dummy {f00=0x0014, f01=0x0190, f02=» P EJECT LRPINT P* P* & P* L K M E R R 0 P* H P* R > PLKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT P* PLKM070 EQU * P CF A15,HALT HALT SYSTEM P* P* P* L K M R Q E P
0x04ecec…04ee80 Dummy {f00=0x0014, f01=0x0190, f02=» P LDKL A2,-1 P* P* " P* L K M S R C , P* D . P* SET A7 = A2, QUEUE TASK AND DISPATCH. N P* P* A2 = RETURN CODE P* A5 = TTAB ADDRESS P* P* PLKMSRC EQU * 8 P ST A2,TTB:SA+14,A5 SET RETU
0x04ee80…04f014 (1, 99) Dummy {f00=0x002a, f01=0x0190, f02=»* P* A5 = TTAB ADDRESS P* ( P* 2 PLKMQDI EQU * < P CF A15,QTJOB P P* f * PT:DISP EQU * COMMON EXIT TO DISPATCHER p P ABL TDISP GO TO DISPATCHER P* P EJECT LRPINT P P* P* I H P F A R
0x04f014…04f1a8 Dummy {f00=0x002a, f01=0x0190, f02=»K ADDRESS | P DATA 0 & PTTABPF DATA 0 TTAB FOR POWER FAIL " P DATA '#P' L P DATA 0 ^ PA15SAV DATA 0 n P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER ON/OFF INDICATOR $ P P=POWER
0x04f1a8…04f33c Dummy {f00=0x002a, f01=0x018e, f02=»ST PROCESSING FLAG | P NZ=PWF POST PROCESSING P EJECT LRPINT < P T P* * P* POWER FAIL/AUTO RESTART INTERRUPT f P* P PIHPFAR EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT & P RIT /17 RESET INTERNAL INTERRUPT
0x04f33c…04f4d0 Dummy {f00=0x002a, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE A1-A14 ON STACK P STR A9,A15 2 P STR A10,A15 F P STR A11,A15 Z P STR A12,A15 n P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14 ON STACK P XIF P
0x04f4d0…04f664 Dummy {f00=0x002a, f01=0x0190, f02=» P EJECT LRPINT P P* $ P* POWER ON . P* B P L " PPOWON LD A15,A15SAV RELOAD A15 T P z P IFT MMUPAG=1 $ P TL -30,A15 RESTORE MMU TABLE =2 P XIF P IFT CPU852=1 P LDR* A14,A15 RESTORE A9-A14 P L
0x04f664…04f7f8 Dummy {f00=0x002a, f01=0x0190, f02=»2=0 P MLR 14,A15 RESTORE A9-A14 P MSR 8,A15 . P XIF @ P L 4 P LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING T P LDKL A2,TTABPF P CWR A1,A2 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST P STR A1,A2 P ST A2,D
0x04f7f8…04f98c Dummy {f00=0x002a, f01=0x0190, f02=» TASK . P* STARTED AFTER ALL PWF POST PROCESSING P* @ P J . PPFTASK CM PFPOST CLEAR PWF POST PROC FLAG R P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES P CM PRUN EXIT PFTASK P RB T:DISP P EJECT LRP
0x04f98c…04fb20 Dummy {f00=0x002a, f01=0x0190, f02=» BE PROCESSED EACH 100 MS. x P* " * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT , " P RIT /1B RESET INTERRUPT FLAG Z P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 P* PRTC010 EQU * P IFT CPU852=1 & P CF A15,SA
0x04fb20…04fcb4 (1, 100) Dummy {f00=0x002b, f01=0x0190, f02=» EJECT LRPINT P* P* " P IFT NETFRQ=50 , " P LDKL A4,-4 SET 100 MS SWITCH B P XIF h P* t P IFT NETFRQ=60 ~ " P LDKL A4,-5 SET 100 MS SWITCH P XIF P ST A4,COUNT =1 P* . P LDKL A2,CLOCK QUEUE CLOCK ROUTI
0x04fcb4…04fe48 Dummy {f00=0x002b, f01=0x0190, f02=» P* PSWDISP EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY & P RB T:DISP N P* ` P EJECT LRPINT j P* P* P IFT MONCLK=1 P* < P* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. P* PRTC025 E
0x04fe48…04ffdc Dummy {f00=0x002b, f01=0x018e, f02=»ND SECONDS l P* ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS H $ P RB(NE) SWDISP GO TO DISPATCHER z ( P CM MONCLO+2,A4 RESTART TIME COUNTER P SUK A4,2 END 6 P RF(N) MCLO30 MIDNIGHT CARRY AND WE
0x04ffdc…050170 Dummy {f00=0x002b, f01=0x0190, f02=» ( P IM MCARRY INCREMENT MIDNIGHT CARRY ! P* ! 0 P EJECT LRPINT ! : P* ! R P* ! P IFT MONDAT=1 ! f P* ! | P* UPDATE DAY, MONTH AND YEAR ! P* ! P IFT CPU852=1 ! P LDKL A1,MONTH MONTH ADDRESS ! P LDKL A2,DAY DAY ADDRESS !
0x050170…050304 Dummy {f00=0x002b, f01=0x0190, f02=»D DAY ADDRESS TO A1 AND A2 ! v P XIF " " P* " . P IFT MONCLK+MONDAT=2 " 8 P IMR A2 INCREMENT DAY " T P LDR* A4,A1 MONTH " r P LDR A6,A4 " P LDR* A5,A2 NEW DAY " " P SUK A5,29 CHECK IF DAY WAS 28 " 0 P RF(Z) MCLO40 YES, GO AND CHECK IF FEBRU
0x050304…050498 Dummy {f00=0x002b, f01=0x0190, f02=»URN " z ( P RF MCLO50 YES, WE HAVE A NEW MONTH # P* # 8 PMCLO40 EQU * # B P SUK A6,2 CHECK IF FEBRUARY # V P RB(NZ) SWDISP NO, RETURN # z P* # P EJECT LRPINT # P* # & P* CHANGE TO NEW MONTH (AND YEAR?) # P* # P* # PMC
0x050498…05062c Dummy {f00=0x002b, f01=0x0190, f02=»SWDISP NO, RETURN # $ P STR A3,A1 SET MONTH TO JANUARY $ P IM YEAR HAPPY NEW YEAR!!! $ B P RB SWDISP RETURN $ d P* $ ~ PMCLO60 EQU * $ P LDR A7,A6 MONTH $ P ANK A6,1 $ P RF(Z) MCLO70 MONTH EVEN $ P SUK A7,7 $ ( P RB(P) MCLO50 SE
0x05062c…0507c0 Dummy {f00=0x002b, f01=0x0190, f02=»APRIL OR JUNE $ P XIF % P* % " P IFT MONCLK=1 % , P RB SWDISP RETURN % B P XIF % P* % h P EJECT LRPINT % r P* % P* % P* M O N C L O % P* % P* % P IFT MONCLK+MONDAT=2 % , P DATA 0 THIS WORD USED BY MONTIM (
0x0507c0…050954 (1, 101) Dummy {f00=0x002b, f01=0x018e, f02=»MCARRY DATA 0 ACKUMULATED 24 HOUR CARRY % P DATA 0 HOUR & 0 P DATA 0 MINUTE & D P DATA 0 SECOND & Z PSECOND DATA 0 SECOND SWITCH & p P XIF & P* & P EJECT LRPINT & P* & * P* CLOCK ROUTINE STARTED EACH 100 MS. & P* & PCLOC
0x050954…050ae8 Dummy {f00=0x002b, f01=0x0190, f02=» & r P ABL(Z) MEXIT END OF QUEUE ' P IM 4,A4 INCREMENT TIMER ' * P RB(N) CLK10 NOT TIME OUT ' J P RF(Z) CLK30 TIME OUT ' l P LDR* A3,A4 RELEASE TIMER ' P STR A3,A6 ' P CF A15,FREBLK ' P LDR A4,A2 ' P CF A15,FREBLK ' P RB CLK20 '
0x050ae8…050c7c Dummy {f00=0x002b, f01=0x0190, f02=»L 48 ' t P INH ( P RB CLK10 ( P* ( * PCLK40 EQU * ( 4 P IFT CPU852=1 ( H & P CF A15,SAVE8 SAVE A1-A8 ON STACK ( ^ P XIF ( P* ( P IFT CPU852=0 ( " P MSR 8,A15 SAVE A1-A8 ON STACK ( P XIF ( P* ( & P LDKL A1,/C4C0 LEVEL 49
0x050c7c…050e10 Dummy {f00=0x002b, f01=0x4122, f02=»GO TO TIME OUT ROUTINE ( P* ) P* ) ( PCOUNT DATA 0 100 MS SWITCH ) 2 P* ) T P* ) ^ P* T I M Q U E ) h P* ) . P* POINTER TO FIRST BLOCK IN TIMER QUEUE ) P* ) P* ) PTIMQUE EQU * ) P DATA 0 ) P* ) P* ) P
0x050e10…050fa4 Dummy {f00=0x002b, f01=0x2008, f02=» * POINTER z PPFA210 EQU *-2 ( P CM INIFLG RESET INITIALIZATION FLAG . * P CF A15,PFINIT RESTART COMMON DEVICES Z 4 P ABL RETU14 RESTORE A1-A14 FROM INTERRUPT STACK P END @ 13,A15 P STR A14,A15 * P ST A15,PFA210 SAVE A1
0x050fa4…051138 Dummy {f00=0x002b, f01=0x0190, f02=»D A1,ECBCW2,A1 SECOND CONTROL WORD b P ES A1,ECBCW2,A8 c * P RTN A15 c B P* c R P EJECT TOSSIO c P* c t P* T E N P C I c ~ P* c D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN c @ P* COMPLETED AND THE DEVICE IS RUNN
0x051138…0512cc Dummy {f00=0x002b, f01=0x0190, f02=»CE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. c 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. d B P* d ~ P* INPUT: A6 = DWT ADDRESS d $ P* A8 = USER ECB ADDRESS d P* d & P* OUTPUT: A1-A4, A8 ARE DESTROYED d P*
0x0512cc…051460 Dummy {f00=0x002b, f01=0x0190, f02=»F(NP) TEPI30 NO MOVE IF ZERO d & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS e $ P* e N . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' e X ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS e $ P LDK A3,1 CHECK BUFFER ADDRESSES e P TM A3,A1 e * P RF(Z) TEPI20 DWT BUFFER
0x051460…0515f4 (1, 102) Opaque[0x194]
0x0515f4…051788 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x0515f4…051788 IdxSect {
0x0515f4…051788 f00 = 0x0008 // 0x515f4 @0x0
0x0515f4…051788 f01 = 0x0006 // 0x515f6 @0x2
0x0515f4…051788 gno = [ // 0x515f8 @0x4
0x0515f4…051788 [0x00]: C0x0008.0x0.0
0x0515f4…051788 [0x01]: C0x000c.0x0.0
0x0515f4…051788 [0x02]: C0x0016.0x0.0
0x0515f4…051788 ]
0x0515f4…051788 }
0x051788…05191c Dummy {f00=0x0008, f01=0x0190, f02=» 0 P IDENT TPROC REL 11.0 81-03-05 870105041100 P 8 0 P =1, A4 PARAM. NOT TRANSM. WHEN LKM ACTIV. @ P =1, REL 11.0 81-01-26 t P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM
0x05191c…051ab0 Dummy {f00=0x0008, f01=0x018e, f02=»************************************ P* , P* 6 * P* THIS MODULE CONTAINS THE FOLLOWING @ P* TOSS LKM PROCESSORS: n P* P* - TWAIT = WAIT P* P* - TMWAIT = MULTIPLE WAIT P* ( P* - TACTOT = ACTIVATE/REST
0x051ab0…051c44 Dummy {f00=0x0008, f01=0x0190, f02=» P* P ENTRY TWAIT WAIT PROCESSOR * P ENTRY TMWAIT MULTIPLE WAIT PROCESSOR 2 , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR ` P EJECT TPROC P* P* P************* P* EXTERNALS * P************* P* P*
0x051c44…051dd8 Dummy {f00=0x0008, f01=0x0190, f02=»XTRN ACTDIS ACTIVATE TASK AND DISPATCH $ P EXTRN LKMRQE LKM REQUEST ERROR . 2 P EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE V 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN TTB:SA TTAB SAVE AREA P EXTRN DWTST DWT STATUS P EXT
0x051dd8…051f6c Dummy {f00=0x0008, f01=0x0190, f02=»*********************** ~ P* P* CONDITIONAL ASSEMBLY * P* H . P***************************************** R P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1
0x051f6c…052100 Dummy {f00=0x0008, f01=0x0190, f02=»THE WAIT LKM PROCESSOR. P* , P* THIS MODULE IS ENTERED WHEN THE TASK * 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. Z P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 =
0x052100…052294 (1, 103) Dummy {f00=0x000c, f01=0x0190, f02=» & P RF(Z) TP:RQE FILE CODE NOT FOUND P* . P IFT MMUPAG=0 8 * P LDR* A1,A8 RETURN IF EVENT COMPLETED N P XIF | P* P IFT MMUPAG=1 ( P ELR A1,A8 RETURN IF EVENT COMPLETED P XIF P* ( P RF(N) TP:QDI I/O ALREADY COMP
0x052294…052428 Dummy {f00=0x000c, f01=0x0190, f02=» TPROC P* P* P********** " P* TACTOT * 4 P********** F P* X P* b 8 P* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. l P* 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER ( P* WHEN A TASK HAS TO BE ACTI
0x052428…0525bc Dummy {f00=0x000c, f01=0x0190, f02=» = START ADDRESS AT ACTIVATION, ELSE ZERO P* A5 = TTAB 2 4 P* A7 = IDENTIFICATION FOR TASK TO BE ACTIVATED H P* P* PTACTOT EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR $ P RF(Z) TP:RQE TASK NOT IN SYSTEM
0x0525bc…052750 Dummy {f00=0x000c, f01=0x0190, f02=»METER =1 v P LDR A5,A2 P LDR A2,A4 " 0 P RF(Z) TP:QDI RESTART: QUEUE FOR DISPATCHING 4 P LDR A4,A7 A4 PARAMETER =1 h * P ABL ACTDIS ACTIVATE TASK AND DISPATCH P* P EJECT TPROC P* P* P********** P* TMWAIT *
0x052750…0528e4 Dummy {f00=0x000c, f01=0x0190, f02=»KM HANDLER t & P* WITH THE FOLLOWING PARAMETERS: P* < P* A5 = TTAB ADDRESS F P* A7 = ECBBLK ADDRESS d P* 6 P* WHEN ONE OF THE SPECIFIED EVENTS IS COMPLETED, 6 P* RETURN IS MADE TO THE CALLING TASK VIA TENDIO & P* WI
0x0528e4…052a78 Dummy {f00=0x000c, f01=0x0190, f02=»AND NO RETURN VIA TENDIO). p P* " ( P* NOTICE THAT ALL EVENTS MUST HAVE , ( P* BEEN ISSUED IN THE NO WAIT MODE. X P* P* P EJECT TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY P LDK A3,0 P* P I
0x052a78…052c0c Dummy {f00=0x000c, f01=0x0190, f02=» IN ECBBLK v P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 ( P* T PTMW:10 EQU * ^ 2 P ADK A7,2 POINT TO NEXT ECB ADDRESS IN ECBBLK r P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS & P LDR* A2,A8 GET FIRST WORD O
0x052c0c…052da0 Dummy {f00=0x000c, f01=0x0190, f02=» P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED 8 P CF A15,FNDDWT NO, SEARCH DWT ADDRESS FROM FILE CODE > P ADK A6,0 SET CR z P RF(Z) TP:RQE NOT FOUND P* P EJECT TPROC P* P* " P LD A2,DWTST,A6 GET DWT STATUS
0x052da0…052f34 (1, 104) Dummy {f00=0x0016, f01=0x0190, f02=»T/ACTIVATE INDICATOR x , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT P ORK A6,1 SET BIT 15 L 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR h . P RF(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS P LDR A3,A6
0x052f34…0530c8 Dummy {f00=0x0016, f01=0x0190, f02=»UK A1,1 & P RB(P) TMW:10 MORE ECB:S IN ECBBLK : P ST A3,DWTWAT,A9 NO, SET FIRST DWT ADDRESS IN THE LAST : P RB T:DISP GO TO DISPATCHER x P* PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG I
0x0530c8…05325c Dummy {f00=0x0016, f01=0x4184, f02=»OR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S 2 P CMR A3 SET TO NO WAIT AGAIN V P LDR A3,A2 z P RB TMW:40 P* P EJECT TPROC P* P* PTP:RQE EQU * " P ABL LKMRQE LKM REQUEST ERROR
0x05325c…0533f0 Dummy {f00=0x0016, f01=0x2008, f02=» TERMINAL NOT IN SYSTEM 8 P CF A15,QTJOB QUEUE CALLING TERMINAL FOR DISPATCHING ( P LDR A5,A2 d P LDR A2,A4 v 0 P RB(Z) TPQUE RESTART: QUEUE FOR DISPATCHING P CF A15,ACTOT ACTIVATION P RB TPDIS GO TO DISPACHER P EJECT
0x0533f0…053584 Dummy {f00=0x0016, f01=0x0190, f02=» RESTORE NO OF EXTENTS i P RB MSX20 j P* j 0 PMSX99 EQU * j : P RTN A14 j N P EJECT j ^ 4 P*********************************************** j l P* j P* GETMON j P* ====== j P* j & P* SEARCH FOR MONIT
0x053584…053718 Dummy {f00=0x0016, f01=0x0190, f02=»************** j n P* k P* k PGETMON EQU * k * ( P LD A1,SCTANO GET APPLICATION NUMBER k > P ST A1,MONNO+STKEND SAVE k j 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC k 0 P LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER k 2 P SLL A1,8 FORM MONIT
0x053718…0538ac Dummy {f00=0x0016, f01=0x0190, f02=»GTMON2 EQU * k 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) l ( P CW A1,8,A4 IS IT THE RIGHT MONITOR? l H P RF(E) GTMON4 YES! l t P* l 8 P CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC l P RB GTMON2 l P* l PGTMON4 EQU * l $ P LD
0x0538ac…053a40 Dummy {f00=0x0016, f01=0x0190, f02=»,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) l " P ST A2,4,A1 AND SAVE IN MXSTAB m 4 P RTN A14 RETURN m Z P EJECT m r PGETNBR EQU * m $ P CF A14,GETVLB READ VOLUME LABEL m PGTNBR0 EQU * m P CF A14,RDSEC READ SECTOR m ( P LDK A7,QBLFAC VTOC BL
0x053a40…053bd4 (1, 105) Opaque[0x194]
0x053bd4…053d68 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0260, f03=0x0000}
0x053bd4…053d68 IdxSect {
0x053bd4…053d68 f00 = 0x0013 // 0x53bd4 @0x0
0x053bd4…053d68 f01 = 0x000e // 0x53bd6 @0x2
0x053bd4…053d68 gno = [ // 0x53bd8 @0x4
0x053bd4…053d68 [0x00]: C0x0013.0x0.0
0x053bd4…053d68 [0x01]: C0x0013.0x1.0
0x053bd4…053d68 [0x02]: C0x0013.0x2.0
0x053bd4…053d68 [0x03]: C0x0013.0x3.0
0x053bd4…053d68 [0x04]: C0x0016.0x1.0
0x053bd4…053d68 [0x05]: C0x0017.0x3.0
0x053bd4…053d68 [0x06]: C0x0024.0x2.0
0x053bd4…053d68 ]
0x053bd4…053d68 }
0x053d68…053efc Dummy {f00=0x0013, f01=0x0190, f02=» 0 P IDENT MSUBS REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x053efc…054090 Dummy {f00=0x0013, f01=0x0190, f02=»OLLOWING MONITOR r P* SUBROUTINES: P* 0 , P* -SAVE8 SAVE 8 REGISTERS ON STACK : , P* -QTJOB QUEUE TASK FOR DISPATCHING j 4 P* -QMJOB QUEUE MONITOR TASK FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x054090…054224 Dummy {f00=0x0013, f01=0x0190, f02=» SET A MONITOR BLOCK FREE 4 P* -FNDDWT FIND DWT ADDRESS IN TTAB OR CDTAB " , P* -FNDDWD FIND DWT ADDRESS IN CDTAB Z * P* -FNDTID FIND TASK IDENTIFICATION P* -PFINIT RESTART DEVICE $ P* -SWL48 SWITCH TO LEVEL 48 $ P*
0x054224…0543b8 Dummy {f00=0x0013, f01=0x0190, f02=»* P* P*********** P* ENTRIES * ( P*********** < P* P P* Z " P ENTRY SAVE8 SAVE 8 REGISTERS d P ENTRY QTJOB QUEUE TASK $ P ENTRY QMJOB QUEUE MONITOR TASK & P ENTRY ACTOT ACTIVATE TASK (FIFO) & P ENTRY ACTOT
0x0543b8…05454c Dummy {f00=0x0013, f01=0x0190, f02=»NDDWT FIND DWT IN TTAB OR CDTAB $ P ENTRY FNDDWD FIND DWT IN CDTAB ( , P ENTRY FNDTID FIND TASK INDENTIFICATION P P ENTRY PFINIT RESTART DEVICE $ P ENTRY SWL48 SWITCH TO LEVEL 48 $ P ENTRY SWLXY SWITCH TO LEVEL XY , P ENTRY ILLINT ILLEGA
0x05454c…0546e0 Dummy {f00=0x0013, f01=0x0190, f02=» * P ENTRY RELPA2 RELEASE PAGE (2ND ENTRY) " P ENTRY IHRET8 RESTORE FROM A8 2 P ENTRY IHRET2 A2 X " P ENTRY IHRET1 A1 p 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS P EJECT MSUBS P* P* P*************
0x0546e0…054874 (1, 106) Dummy {f00=0x0013, f01=0x0190, f02=» FREQUE POINTER TO FIRST FREE MONITOR BLOCK P EXTRN TTABLD LOAD TASK TTAB 4 ( P EXTRN PQEMTY PAGE QUEUE EMPTY FLAG X " P EXTRN PAGQUE FREE PAGE QUEUE $ P EXTRN SEG:PB PAGE BLOCK ADDRESS & P EXTRN PAG:QB QUEUE LINK BACKWARD 4 P EXTRN LKMER
0x054874…054a08 Dummy {f00=0x0013, f01=0x0190, f02=» TTB:ST TASK STATUS AND PRIORITY LEVEL & P EXTRN TTB:ID TASK IDENTIFICATION . P EXTRN TTB:SA SAVE AREA X * P EXTRN TTB:PP POINTER TO PENDING QUEUE x $ P EXTRN TTB:TD TASK DEVICE TABLE $ P EXTRN SCTTCT TASK CONTROL TABLE & P EXTRN SCTCDT COMM
0x054a08…054b9c Dummy {f00=0x0013, f01=0x0190, f02=»************************* P* " P* CONDITIONAL ASSEMBLY , P* J . P***************************************** T P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1
0x054b9c…054d30 Dummy {f00=0x0013, f01=0x0190, f02=» PCPU852 EQU 0 P* P* & . P* A PROGRAM VERSION USING TOSS DISC PAGING 0 * P* IS OBTAINED BY SETTING DSKPAG EQU 1. b P* PDSKPAG EQU 0 P* P* " PSOP EQU /2E SOP DEVICE ADDRESS P* P EJECT MSUBS P
0x054d30…054ec4 Dummy {f00=0x0013, f01=0x0190, f02=» p P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS 0 P STR A3,A15 P P STR A4,A15 d P STR A5,A15 x P STR A6,A15 P STR A7,A15 P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) , P ST A3,SAVE81 AN
0x054ec4…055058 Dummy {f00=0x0013, f01=0x018e, f02=»H BACK t PSAVE81 EQU *-2 P* $ P EJECT MSUBS . P* D P* N P* Q T J O B X P* n 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. x P* P* ENTRY PARAMETER: P* 0 P* A5 = TTAB ADDRESS OF TASK TO BE QUEUED
0x055058…0551ec Dummy {f00=0x0013, f01=0x018e, f02=» X P* PUT LAST IN QUEUE. P* & P* 0 PQTJOB EQU * : P INH N P* Z P IFT CPU852=1 d $ P STR A1,A15 SAVE A1-A3 ON STACK z P STR A2,A15 P STR A3,A15 P XIF P* P IFT CPU852=0 " P MSR 3,A15 SAVE A1
0x0551ec…055380 Dummy {f00=0x0013, f01=0x0190, f02=» d P RF(Z) QTJ020 DISQUE EMPTY & P LD A3,TTB:ST+1,A5 PRIORITY LEVEL * P* T P EJECT MSUBS ^ P* t P* ~ 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL P RF(L) QTJ020 INSERT P LDR A1,A2 SAVE ADDRESS * P LDR* A2,A
0x055380…055514 (1, 107) Dummy {f00=0x0013, f01=0x0190, f02=»5,A1 P* P IFT CPU852=1 P ABL IHRET3 , P XIF @ P* L P IFT CPU852=0 V * P MLR 3,A15 RESTORE A1-A3 FROM STACK... l P RTN A15 ...AND RETURN P XIF P* P EJECT MSUBS P* P* P* Q M J O B
0x055514…0556a8 Dummy {f00=0x0013, f01=0x0190, f02=» ~ P* A2 = DISPATCH ADDRESS P* A3 = PARAMETER * P* A4 = PARAMETER D P* ^ > P* A5 IS SET TO TTAB ADDRESS OF MONITOR TASK '#M' AND THE h B P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE TASK. P* P* PQMJO
0x0556a8…05583c Dummy {f00=0x0013, f01=0x0190, f02=» MSR 8,A15 SAVE A1-A8 ON STACK P XIF & P* 2 P LDKL A5,TTMJOB TTAB ADDRESS < P RF ACT01 ` P* r P EJECT MSUBS | P* P* P* A C T O T , A C T O T P P* & P* SUBROUTINE TO ACTIVATE A TASK. P* P
0x05583c…0559d0 Dummy {f00=0x0013, f01=0x0190, f02=» A4 = PARAMETER 2 P* A5 = TTAB ADDRESS P* 8 6 P* - IF REQUESTED TASK IS NOT ACTIVE THE TASK IS B : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. | < P* - IF TASK IS ACTIVE, THE REQUEST IS PUT IN A PENDING P* QUEUE.
0x0559d0…055b64 Dummy {f00=0x0013, f01=0x0190, f02=» R P* P* PACTOTP EQU * P IFT CPU852=1 0 & P CF A15,SAVE8 SAVE A1-A8 ON STACK F P XIF p P* | P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P LDK A6,1 INDICATE LIFO P RF
0x055b64…055cf8 Dummy {f00=0x0013, f01=0x018e, f02=»STACK t P XIF P* P IFT CPU852=0 $ P INH : " P MSR 8,A15 SAVE A1-A8 ON STACK F P XIF l P* x PACT01 LDK A6,0 INDICATE FIFO P* PACT03 EQU * , P LD A7,TTB:SA,A5 (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PR
0x055cf8…055e8c Dummy {f00=0x0013, f01=0x0190, f02=» p & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER " P ST A4,TTB:SA+8,A5 PARAMETER 2 2 P LD A4,TTB:ID,A5 SET TASK ID X * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA | P XIF P* P IFT CPU852=0 P LD A2,TTB:ID,A5 TASK ID 6 P MS 4,TTB:SA+2,A5
0x055e8c…056020 Dummy {f00=0x0013, f01=0x0190, f02=»TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT P XIF 6 P* B P CF A15,QTJOB QUEUE THE TASK L P* p PACT010 EQU * z P IFT CPU852=1 ( P RF IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 R
0x056020…0561b4 (1, 108) Dummy {f00=0x0013, f01=0x0190, f02=» PENDING QUEUE ~ P* & PACT020 LDR A7,A4 SAVE PARAMETER 2 $ P CF A15,GETBLK GET A FREE BLOCK J P LDR A1,A7 PARAMETER 2 r P LDR A2,A4 P CF A15,GETBLK P ADKL A5,TTB:PP P* " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5
0x0561b4…056348 Dummy {f00=0x0013, f01=0x0190, f02=»T030 NOT END OF QUEUE P* PACT040 EQU * ( " P STR A4,A3 SET BLOCK IN QUEUE < P STR A5,A4 b P RB ACT010 t P* P EJECT MSUBS P* P* P* E X I T P* 6 P* SUBROUTINE TO SET A TASK FREE AND QUEUE FIRS
0x056348…0564dc Dummy {f00=0x0013, f01=0x0190, f02=» A7 ARE DESTROYED P* P* $ PEXIT EQU * . ( P CM TTB:SA,A5 RESET DISPATCH ADDRESS @ , P LD A4,TTB:PP,A5 PENDING REQUEST POINTER l $ P RF(Z) IHRTN NO PENDING REQUEST P LDR* A3,A4 QUEUE THREAD 0 P ST A3,TTB:PP,A5 AND SAVE IN PENDING
0x0564dc…056670 Dummy {f00=0x0013, f01=0x018e, f02=»EBLK P LDR A4,A7 PARAMETER 2 P RB ACTOT ACTIVATE TASK * P* J P EJECT MSUBS T P* j P* t P* G E T B L K ~ P* 4 P* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR 8 P* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FO
0x056670…056804 Dummy {f00=0x0013, f01=0x0190, f02=» P* PGETBLK EQU * P INH " P STR A5,A15 SAVE A5 . , P LD A4,FREQUE FIRST BLOCK IN FREE QUEUE J P RF(NZ) GBL010 z P LDK A1,/B HALT PARAMETER , P CF A15,HALT HALT IF NO MORE FREE BLOCKS P* PGBL010 LDR* A5,A4 . P S
0x056804…056998 Dummy {f00=0x0013, f01=0x0190, f02=»,A15 RESTORE A5 P* P IFT CPU852=1 " P RF IHRTN 8 P XIF J P* V P IFT CPU852=0 ` P RTN A15 v P XIF P* P EJECT MSUBS P* P* P* F R E B L K P* : P* SUBROUTINE TO GET PARAMETERS
0x056998…056b2c Dummy {f00=0x0013, f01=0x0190, f02=» z P* P* EXIT PARAMETERS: P* . & P* A3 = FIRST PARAMETER IN BLOCK 8 $ P* A2 = SECOND " " b $ P* A1 = THIRD " " P* P* PFREBLK EQU * P INH P LDR* A3,A4 UPDATE A3 P LD
0x056b2c…056cc0 Dummy {f00=0x0013, f01=0x0190, f02=» P RF IHRTN P XIF P* & P IFT CPU852=0 0 P RTN A15 F P XIF V P* b P EJECT MSUBS l P* P* P* F N D D W T P* 2 P* SUBROUTINE TO FIND A DWT IN TTAB OR CDTAB. P* P* ENTRY PARAME
0x056cc0…056e54 (1, 109) Dummy {f00=0x0016, f01=0x0190, f02=» = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* B P* L P* F N D D W D V P* n * P* SUBROUTINE TO FIND A DWT IN CDTAB. x P* P* ENTRY PARAMETERS: P* P* A2 = FILE CODE P* $ P* EXIT PAR
0x056e54…056fe8 Dummy {f00=0x0016, f01=0x0190, f02=»D FILE CODE FROM ECB P XIF P* ( P IFT MMUPAG=0 2 ( P LDR* A2,A8 LOAD FILE CODE FROM ECB H P XIF t P* P STR A1,A15 SAVE A1 P LDKL A6,TTB:TD+2 , P ADR A6,A5 ADDRESS TO TASK DEVICE TABLE P LD A1,-2,A6 TABLE LENGT
0x056fe8…05717c Dummy {f00=0x0016, f01=0x018e, f02=» FND200 FILE CODE FOUND ( P ADK A6,4 ADDRESS TO NEXT FILE CODE P RB FND100 TRY NEXT L P* h P EJECT MSUBS r P* $ P* SEARCH IN COMMON DEVICE TABLE P* PFNDDWD EQU * P STR A1,A15 SAVE A1 P* & PFND110 LD
0x05717c…057310 Dummy {f00=0x0016, f01=0x018e, f02=» & P RF(N) FND130 FILE CODE NOT FOUND ! P CC A2,1,A6 ! . " P RF(E) FND200 FILE CODE FOUND ! B ( P ADK A6,4 ADDRESS TO NEXT FILE CODE ! h & P RB FND120 TRY NEXT ENTRY IN CDTAB ! P* ! PFND130 LDK A6,0 ! P RF IHRET1 ! P* ! PFND200 EQU *
0x057310…0574a4 Dummy {f00=0x0016, f01=0x0190, f02=» P* " P* F N D T I D " P* " & B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. " 0 P* " v P* ENTRY PARAMETER: " P* " P* A7 = TASK IDENTIFICATION " P* " P* EXIT PARAMETER: " P* " P* A2 = TTAB
0x0574a4…057638 Dummy {f00=0x0016, f01=0x0190, f02=» TCTAB LENGTH " P AD A1,SCTTCT # P* # , PFTI010 SUK A1,2 # 6 P CW A1,SCTTCT # N $ P RF(E) FTI030 ALL TTABS EXAMINED # d P LDR* A2,A1 TTAB ADDRESS # , P CW A7,TTB:ID,A2 COMPARE IDENTIFICATIONS # P RB(NE) FTI010 NO MATCH # P RF IHRET1
0x057638…0577cc Dummy {f00=0x0016, f01=0x0190, f02=» RESTORE REGISTERS AND RETURN WITHOUT # P* ENABLE INTERRUPTS. $ . P* $ L P* $ V P IFT CPU852=1 $ ` PIHRET8 LDR* A8,A15 $ v P LDR* A7,A15 $ P LDR* A6,A15 $ P LDR* A5,A15 $ P LDR* A4,A15 $ P* $ PIHRET3 LDR* A3,A15 $ P* $
0x0577cc…057960 Dummy {f00=0x0016, f01=0x0190, f02=» ABR* A15 AND RETURN $ P XIF % P* % ( P IFT CPU852=0 % 2 0 PIHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... % H P RTN A15 ...AND RETURN % | P* % 0 PIHRET2 MLR 2,A15 RESTORE A1-A2 FROM STACK... % P RTN A15 ...AND RETURN % P* % 0 PIHRET1 L
0x057960…057af4 (1, 110) Dummy {f00=0x0017, f01=0x0190, f02=» % P* & P* P F I N I T & P* & * & P* SUBROUTINE TO RESTART DEVICES. & 4 P* & ^ @ P* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALLED. & h @ P* REGISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. & P* & P* & PPFIN
0x057af4…057c88 Dummy {f00=0x0017, f01=0x0190, f02=»ED & v P STR A1,A15 SAVE A1 ' P INH ' & * P CFI A15,PFTAB,A1 CALL RESTART MODULE ' 2 P LDR* A1,A15 RESTORE A1 ' ` P ADK A1,2 NEXT DEVICE ' P RB PFI100 ' P* ' * PPFI110 RTN A15 RETURN WHEN ALL STARTED ' P* ' P EJECT MSUBS ' P
0x057c88…057e1c Dummy {f00=0x0017, f01=0x018e, f02=»TR A1,A15 SAVE A1 ' P* ( PSWL481 EQU * ( $ $ P LDKL A1,/C0C0 PSW FOR LEVEL 48 ( 8 P* ( ` PSWL482 EQU * ( j & P ST A1,4,A15 SAVE IT ON A15 STACK ( ~ P LDR* A1,A15 RESTORE A1 ( P RTN A15 ( P* ( P EJECT MSUBS ( P* ( P* (
0x057e1c…057fb0 Dummy {f00=0x0017, f01=0x0190, f02=» 0 P* LEVEL := XY " " " " " XY < 48 ) P* ) 8 > P* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. ) B P* ) P* ) PSWLXY EQU * ) P STR A1,A15 SAVE A1 ) " P LC A1,24,A15 LEVEL FROM STACK ) P ANK A1,/FC ) P SUK A
0x057fb0…058144 Dummy {f00=0x0017, f01=0x0190, f02=»BS ) P* * P* * & P* INTERRUPT SAVE AND HALT MODULE * P* * H P* * R PINTSAV DATA 0 * PSAVA15 DATA 0 * r P* * " PILLINT LDK A1,5 HALT PARAMETER * P CF A15,HALT * P* * PHALT EQU * * P IFT CPU852=1 * & P CF A15,SA
0x058144…0582d8 Dummy {f00=0x0017, f01=0x0190, f02=» A13,A15 * P STR A14,A15 + P XIF + $ P* + 0 P IFT CPU852=0 + : $ P MSR 14,A15 SAVE A1-A14 ON STACK + P P XIF + x P* + P ST A15,SAVA15 + ( P OTR A1,0,SOP INDICATE TYPE OF HALT + P HLT + P* + P EJECT MSUBS + P* + P*
0x0582d8…05846c Dummy {f00=0x0017, f01=0x0190, f02=»: + | P* , 6 P* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) , " P* A5 = TTAB ADDRESS (RELPA2) , N P* , t P* EXIT PARAMETER: , ~ P* , P* A4 IS DESTROYED , P* , P* , P IFT DSKPAG=1 , PRELPA2 EQU * , 6 P CM TTB:SB
0x05846c…058600 Dummy {f00=0x0017, f01=0x018e, f02=» PAGE BLOCK ADDRESS , P* - PREL:10 EQU * - & " P LDKL A4,PAGQUE PAGQUE ADDRESS - : P ST A4,PAG:QB,A3 - ` 0 P LDR* A4,A4 ADDRESS OF FIRST BLOCK IN PAGQUE - x " P STR A4,A3 UPDATE QUEUE LINKS - P ST A3,PAGQUE - P ST A3,PAG:QB,A4 - 4 P LD A4,P
0x058600…058794 (1, 111) Dummy {f00=0x0024, f01=0x018e, f02=» - x P* . , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY . P LDR A4,A5 SAVE A5 . B ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS . $ P CF A15,QTJOB RESTART LOAD TASK . P LDR A5,A4 RESTORE A5 . P* . PREL:20 EQU * . P IFT CPU852=1 . P RB IH
0x058794…058928 Dummy {f00=0x0024, f01=0x40b2, f02=» 2 PRELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. / PRELPA2 EQU * / : & P ABL LKMERR INDICATE SYSGEN ERROR / N P XIF / x P* / P* / P* / P END / @ / DR A5,A4 RESTORE A5 . P* . PREL:20 EQU * . P IFT CPU852=1 . P RB IH
0x058928…058abc Dummy {f00=0x0024, f01=0x2008, f02=» 0 5 STACK " ~ P LDR* A1,A15 RESTORE A1 # P RTN A15 RETURN TO CALLER # 8 P* # Z P END # d@ # pN WHEN ALL STARTED " ` P EJECT " P* " P* " P* S W L 4 8 " P* " : P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48. "
0x058abc…058c50 Dummy {f00=0x0024, f01=0x018e, f02=»1 & P CF A15,SAVE8 SAVE A1-A14 ON STACK P STR A9,A15 4 P STR A10,A15 H P STR A11,A15 P STR A12,A15 p P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14 ON STACK P XIF
0x058c50…058de4 Dummy {f00=0x0024, f01=0x0190, f02=» P EJECT LRPINT P P* ( P* POWER ON 2 P* F P P " PPOWON LD A15,A15SAV RELOAD A15 X P ~ P IFT MMUPAG=1 $ P TL -30,A15 RESTORE MMU TABLE =2 P XIF P IFT CPU852=1 P LDR* A14,A15 RESTORE A9-A14
0x058de4…058f78 Dummy {f00=0x0024, f01=0x0190, f02=»PU852=0 P MLR 14,A15 RESTORE A9-A14 P MSR 8,A15 2 P XIF D P P 4 P LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING X P LDKL A2,TTABPF P CWR A1,A2 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST P STR A1,A2 P ST
0x058f78…05910c Dummy {f00=0x0024, f01=0x0190, f02=»FAIL TASK . P* STARTED AFTER ALL PWF POST PROCESSING P* D P N . PPFTASK CM PFPOST CLEAR PWF POST PROC FLAG V P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES P CM PRUN EXIT PFTASK P RB T:DISP P EJECT
0x05910c…0592a0 Dummy {f00=0x0024, f01=0x0190, f02=»WILL BE PROCESSED EACH 100 MS. | P* & * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT 0 " P RIT /1B RESET INTERRUPT FLAG ^ P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 P* PRTC010 EQU * P IFT CPU852=1 & P CF A1
0x0592a0…059434 (1, 112) Opaque[0x194]
0x059434…0595c8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0128, f03=0x0000}
0x059434…0595c8 IdxSect {
0x059434…0595c8 f00 = 0x0009 // 0x59434 @0x0
0x059434…0595c8 f01 = 0x0004 // 0x59436 @0x2
0x059434…0595c8 gno = [ // 0x59438 @0x4
0x059434…0595c8 [0x00]: C0x0009.0x1.0
0x059434…0595c8 [0x01]: C0x0009.0x3.0
0x059434…0595c8 ]
0x059434…0595c8 }
0x0595c8…05975c Dummy {f00=0x0009, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 11.0 81-01-26 870105041100 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* P ENTRY TTB:AM ALLOCATION MAP P ENTRY TTB:MT MM
0x05975c…0598f0 Dummy {f00=0x0009, f01=0x0190, f02=»S n P ENTRY TTB:AP ACB ADDRESS P ENTRY TTMJOB TABLE ENTRY , ( P ENTRY TTB:QL DISPATCHER QUEUE LINK N & P ENTRY TTB:ID TASK IDENTIFICATION z P ENTRY TTB:ST TASK STATUS " P ENTRY TTB:PP PENDING POINTER & P ENTRY TTB:PW PROGRAM STATUS
0x0598f0…059a84 Dummy {f00=0x0009, f01=0x018e, f02=»* . P***************************************** P* < P* CONDITIONAL ASSEMBLY F P* d . P***************************************** n P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1.
0x059a84…059c18 Dummy {f00=0x0009, f01=0x0190, f02=» l P* * PTTB:MT EQU -40 MMU TABLE DISPLACEMENT P IFT MMUPAG=1 @ " P DATA /0000,/0400,/0800,/0C00 V " P DATA /1000,/1400,/1800,/1C00 | " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 P XIF P* & PTTB:
0x059c18…059dac Dummy {f00=0x0009, f01=0x0190, f02=»* 4 PTTB:SB EQU -4 SEGMENT BLOCK ADDRESS DISPLACEMENT P DATA 0 B P* R : PTTB:AP EQU -2 APPLICATION CONTROL BLOCK ADDRESS DISPL. P DATA 0 P* P EJECT TTMJOB P* P* PTTMJOB EQU * TTMJOB ENTRY . PTTB:QL
0x059dac…059f40 Dummy {f00=0x0009, f01=0x0190, f02=»* $ PTTB:ST EQU *-TTMJOB TASK STATUS P DATA 49 2 P* B ( PTTB:PP EQU *-TTMJOB PENDING POINTER L P DATA 0 x P* PTTB:PW EQU *-TTMJOB 4 P DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB P* P EJECT TTMJOB P
0x059f40…05a0d4 (1, 113) Dummy {f00=0x0009, f01=0x4090, f02=»R A1-A14 j P DATA 0,0,0,0,0,0,0 P* , ( PTTB:TD EQU *-TTMJOB TERMINAL DEVICES 6 P* b P* l P* v P END @
0x05a0d4…05a268 Dummy {f00=0x0009, f01=0x2008, f02=» TMJOB TERMINAL STATUS P DATA 48 * 0 PTTABID EQU *-TTMJOB TERMINAL IDENTIFICATION : P DATA /8000 n PTTABPP EQU *-TTMJOB P DATA 0 * PTTABSA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 & P DATA 0,0,0,0,0,0,0,0,0,0,0,
0x05a268…05a3fc Dummy {f00=0x0009, f01=0x0190, f02=»************************* P* " P* CONDITIONAL ASSEMBLY , P* J . P***************************************** T P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0
0x05a3fc…05a590 Dummy {f00=0x0009, f01=0x0190, f02=» PCPU852 EQU 1 P* * & . ** A PROGRAM VERSION USING TOSS DISC PAGING 0 * &* IS OBTAINED BY SETTING DSKPAG EQU 1. b * PDSKPAG EQU 0 * P* " PSOP EQU /2E SOP DEVICE ADDRESS P* P EJECT MSUBS P
0x05a590…05a724 Dummy {f00=0x0009, f01=0x0190, f02=» p P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS 0 P STR A3,A15 P P STR A4,A15 d P STR A5,A15 x P STR A6,A15 P STR A7,A15 P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) , P ST A3,SAVE81 AN
0x05a724…05a8b8 Dummy {f00=0x0009, f01=0x018e, f02=»H BACK t PSAVE81 EQU *-2 P* $ P EJECT MSUBS . P* D P* N P* Q T J O B X P* n 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. x P* P* ENTRY PARAMETER: P* 0 P* A5 = TTAB ADDRESS OF TASK TO BE QUEUED
0x05a8b8…05aa4c Dummy {f00=0x0009, f01=0x018e, f02=» X P* PUT LAST IN QUEUE. P* & P* 0 PQTJOB EQU * : P INH N P* Z P IFT CPU852=1 d $ P STR A1,A15 SAVE A1-A3 ON STACK z P STR A2,A15 P STR A3,A15 P XIF P* P IFT CPU852=0 " P MSR 3,A15 SAVE A1
0x05aa4c…05abe0 Dummy {f00=0x0009, f01=0x0190, f02=» d P RF(Z) QTJ020 DISQUE EMPTY & P LD A3,TTB:ST+1,A5 PRIORITY LEVEL * P* T P EJECT MSUBS ^ P* t P* ~ 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL P RF(L) QTJ020 INSERT P LDR A1,A2 SAVE ADDRESS * P LDR* A2,A
0x05abe0…05ad74 (1, 114) Opaque[0x194]
0x05ad74…05af08 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00b0, f03=0x0000}
0x05ad74…05af08 IdxSect {
0x05ad74…05af08 f00 = 0x0005 // 0x5ad74 @0x0
0x05ad74…05af08 f01 = 0x0024 // 0x5ad76 @0x2
0x05ad74…05af08 gno = [ // 0x5ad78 @0x4
0x05ad74…05af08 [0x00]: C0x0005.0x2.0
0x05ad74…05af08 [0x01]: C0x004c.0x3.0
0x05ad74…05af08 [0x02]: C0x004d.0x3.0
0x05ad74…05af08 [0x03]: C0x004e.0x0.0
0x05ad74…05af08 [0x04]: C0x004e.0x1.0
0x05ad74…05af08 [0x05]: C0x006a.0x0.0
0x05ad74…05af08 [0x06]: C0x006a.0x1.0
0x05ad74…05af08 [0x07]: C0x006a.0x2.0
0x05ad74…05af08 [0x08]: C0x006a.0x3.0
0x05ad74…05af08 [0x09]: C0x006b.0x0.0
0x05ad74…05af08 [0x0a]: C0x006b.0x1.0
0x05ad74…05af08 [0x0b]: C0x006b.0x2.0
0x05ad74…05af08 [0x0c]: C0x006b.0x3.0
0x05ad74…05af08 [0x0d]: C0x006c.0x0.0
0x05ad74…05af08 [0x0e]: C0x006c.0x1.0
0x05ad74…05af08 [0x0f]: C0x006c.0x2.0
0x05ad74…05af08 [0x10]: C0x006c.0x3.0
0x05ad74…05af08 [0x11]: C0x006d.0x0.0
0x05ad74…05af08 ]
0x05ad74…05af08 }
0x05af08…05b09c Dummy {f00=0x0005, f01=0x0190, f02=» 2 P IDENT TOSSIO REL 11.0 81-04-13 870105041100 P : ( P =4, CPU857 DEFINITION NOT CORRECT B P =4, REL 11.0 81-03-18 n . P =3, ORDERS IN ORDTAB CHANGED TO FIT TND P =3, REL 11.0 81-02-25 & P =2, CORRECTION OF UPDATE =1 =1
0x05b09c…05b230 Dummy {f00=0x0005, f01=0x0190, f02=»********************************************** P* 6 $ P* PHILIPS TERMINAL SYSTEM PTS @ P* h ( P* TOSSIO = TOSS I/O LKM PROCESSOR r P* P* P* 6 P************************************************** P* P* ,
0x05b230…05b3c4 Dummy {f00=0x0005, f01=0x018e, f02=»ALIZE I/O ~ P* P* -TENDIO END I/O P* 8 P* -ATTACH ATTACH DEVICE B P* d P* -DETACH DETACH DEVICE n P* 8 P* -DC:MIN DATA COMMUNICATION MOVE ROUTINE (READ) P* 8 P* -DC:MOT DATA COMMUNICATION MOVE ROU
0x05b3c4…05b558 Dummy {f00=0x0005, f01=0x0190, f02=» 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AREAS. D P* r P EJECT TOSSIO | P* P* P*********** P* ENTRIES * P*********** P* P* P ENTRY TIO I/O P
0x05b558…05b6ec Dummy {f00=0x0005, f01=0x0190, f02=»D I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN DEVICE QUEUE B 2 P ENTRY DC:MIN MOVE ROUTINE FOR DATACOM, INPUT z 2 P ENTRY DC:MOT MOVE ROUTINE FOR DATACOM, OUTPUT 6 P ENTRY TIOMXI CONVERT LOGICAL ADDR
0x05b6ec…05b880 Dummy {f00=0x0005, f01=0x018e, f02=»NTRY ECBBA BUFFER ADDRESS " P ENTRY ECBRL REQUESTED LENGTH " " P ENTRY ECBEL EFFECTIVE LENGTH H P ENTRY ECBRC RETURN CODE n P ENTRY ECBCW CONTROL WORD P ENTRY ECBCW1 CONTROL WORD 1 P ENTRY ECBCW2 CONTROL WORD 2 2 P ENTRY DC:DIX DE
0x05b880…05ba14 (1, 115) Dummy {f00=0x004c, f01=0x0190, f02=» ` 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW < 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION l $ P ENTRY DK:DIX DEVICE INDEX DISC $ P ENTRY BUFLEN MMU BUFFER LENGTH P* P EJECT
0x05ba14…05bba8 Dummy {f00=0x004c, f01=0x0190, f02=»ADDRESS x 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) F " P ENTRY RECADR RECOVERY ADDRESS ~ P ENTRY ECHADR ECHO ADDRESS $ P ENTRY DWTCHP CHANNEL PARAMETERS P ENTRY DWTST STATUS
0x05bba8…05bd3c Dummy {f00=0x004c, f01=0x0190, f02=» ( P ENTRY DWTOCH LAST OUTPUT CHARACTER & P ENTRY DWTADR DRIVER ADDRESS BLOCK 0 P ENTRY DWTTAB TTAB ADDRESS Z * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR | P ENTRY DWTTQ TERMINAL QUEUE $ P ENTRY DWTOTQ OUTPUT QUEUE LINK " P ENTRY DWTUEC USER
0x05bd3c…05bed0 Dummy {f00=0x004c, f01=0x0190, f02=»A4 SAVE AREA A4 P ENTRY DWTA5 SAVE AREA A5 & P ENTRY DWTSB1 STACK BASE 1 IN DWT : & P ENTRY DWTSB2 STACK BASE 2 IN DWT d P ENTRY DWTTP TIMER POINTER " P ENTRY DWTECH ECHO DEVICE DWT P ENTRY DWTSQ START OF QUEUE , P ENTRY DWTORD
0x05bed0…05c064 Dummy {f00=0x004c, f01=0x018e, f02=»AREA A7 ~ P ENTRY DWTA8 SAVE AREA A8 & P ENTRY DWTCP2 CHANNEL PARAMETERS 2 2 * P ENTRY DWTLD1 LINE DRIVER DEPENDENT 1 * P ENTRY DWTLD2 LINE DRIVER DEPENDENT 2 ( P ENTRY DWTDEV TERMINAL DEVICE STATUS * P ENTRY DWTTBU PLC TEST BUFFER ADDRES
0x05c064…05c1f8 Dummy {f00=0x004c, f01=0x0190, f02=» P* P************* P* EXTERNALS * $ P************* : P* P P* Z " P EXTRN SAVE8 SAVE 8 REGISTERS d 0 P EXTRN IHRET8 RESTORE 8 REGISTERS AND RETURN 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS & P EXTRN ACTOTP ACTI
0x05c1f8…05c38c Dummy {f00=0x004c, f01=0x0190, f02=» EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * P EXTRN LKMQDI QUEUE TASK AND DISPATCH 6 * P EXTRN LKMERR HALT SYSTEM, FATAL ERROR d , P EXTRN GETBLK PUT BLOCK IN PENDING QUEUE 2 P EXTRN FREBLK RELEASE BLOCK FROM PENDING QUEUE P EXTRN SETIMP SE
0x05c38c…05c520 Dummy {f00=0x004c, f01=0x0190, f02=» EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:SA SAVE AREA * P EXTRN TTB:MT MMUTAB J P EXTRN HALT =1 f P* ~ P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x05c520…05c6b4 (1, 116) Dummy {f00=0x004d, f01=0x0190, f02=»NED BY SETTING MMUPAG EQU 1. P* $ PMMUPAG EQU 1 . P* B P* L 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION V . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P* 0 P* A PROGRAM VERSION
0x05c6b4…05c848 Dummy {f00=0x004d, f01=0x018e, f02=»* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY SETTING CPU857 EQU 1. B P* p PCPU857 EQU 1 =4 z P* PX:C EQU 0 PTC8000 EQU X:C P EJECT TOSSIO P* P* P*******************
0x05c848…05c9dc Dummy {f00=0x004d, f01=0x0190, f02=» P* P* P********************* P* DWT DISPLACEMENTS * 6 P********************* T P* r 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART | P* & PDWTCHP EQU /00 CHANNEL PARAMETERS PDWTST EQU /02 STATUS PDWTBC
0x05c9dc…05cb70 Dummy {f00=0x004d, f01=0x0190, f02=»DWTOCH EQU /06 LAST OUTPUT CHARACTER ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK , PDWTTAB EQU /0A TTAB ADDRESS X * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR | PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 USER ECB ADDRESS " PDWTMEC EQU /12 MMU
0x05cb70…05cd04 Dummy {f00=0x004d, f01=0x018e, f02=»MUPAG=1 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART P XIF H P* T P EJECT TOSSIO ^ P* v , P* DWT DISPLACEMENTS: DRIVER DEFINED PART P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE LINK & PDWTA2 EQU DWTDRD+/02 SAVE AREA
0x05cd04…05ce98 Dummy {f00=0x004d, f01=0x0190, f02=» . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT 6 & PDWTTP EQU DWTDRD+/10 TIMER POINTER h 4 PDWTORD EQU DWTDRD+/10 SAVE AREA INDEX AND ORDER & PDWTA7 EQU DWTDRD+/10 SAVE AREA A7 & PDWTA8 EQU DWTDRD+/12
0x05ce98…05d02c Dummy {f00=0x004d, f01=0x0190, f02=» DWTDRD+/16 LINE DRIVER DEPENDENT 1 2 PDWTLD2 EQU DWTDRD+/18 LINE DRIVER DEPENDENT 2 , 0 PDWTDEV EQU DWTDRD+/1A TERMINAL DEVICE STATUS b P 2 PDWTTBU EQU DWTDRD+/1A PLC TEST BUFFER ADDRESS * PDWTVOL EQU DWTDRD+/1A DISC VOLUME NAME * PDWTECH
0x05d02c…05d1c0 Dummy {f00=0x004d, f01=0x0190, f02=» ( PDWTSQ EQU DWTDRD+/2A START OF QUEUE P* 0 P EJECT TOSSIO : P* R P* P********************* f P* DAB DISPLACEMENTS * P********************* P* ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS P* & PKEYLEN E
0x05d1c0…05d354 (1, 117) Dummy {f00=0x004e, f01=0x0190, f02=»ESS t PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS . 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) T 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) " PRECADR EQU 6 RECOVERY ADDRESS PECHADR EQU 8 ECHO ADDRESS P
0x05d354…05d4e8 Dummy {f00=0x004e, f01=0x0190, f02=»* THE VALUES ARE USED IN MMU SYSTEMS FOR SELECTING A SPECIAL ROUTINE F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. N P* $ PDC:DIX EQU -2 DATA COMMUNICATION PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CH
0x05d4e8…05d67c Dummy {f00=0x004e, f01=0x0190, f02=» EQU 10 DISC P* P EJECT TOSSIO P* 6 P* @ P********************* J P* ECB DISPLACEMENTS * h P********************* P* ( P* EVENT CONTROL BLOCK DISPLACEMENTS P* PECBFC EQU 1 FILE CODE PECBFN
0x05d67c…05d810 Dummy {f00=0x004e, f01=0x0190, f02=»C EQU 8 RETURN CODE PECBCW EQU 10 CONTROL WORD PECBCW1 EQU 10 CONTROL WORD 1 > PECBCW2 EQU 12 CONTROL WORD 2 b P* P EJECT TOSSIO P* P* P IFT MMUPAG=1 P* P* P********** P* TIOTAB *
0x05d810…05d9a4 Dummy {f00=0x004e, f01=0x0190, f02=» ADDRESS TABLE p . P DATA TIO:DM DATA MANAGEMENT, INPUT/OUTPUT * P DATA TIOPCI PROGRAMMED CHANNEL, INPUT H P DATA TIOMXI MUX, INPUT v $ P DATA TIOKBI KEYBOARD/CTW, INPUT 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT P* PTINDEX EQU *
0x05d9a4…05db38 Dummy {f00=0x004e, f01=0x0190, f02=»OKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT " P DATA TIODKO DISC, OUTPUT V P* x P EJECT TOSSIO P* P* P********** P* TENTAB * P********** P* @ P* TENTAB CONTAINS ADDRESSE
0x05db38…05dccc Dummy {f00=0x004e, f01=0x0190, f02=»INPUT/OUTPUT r * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT B $ P DATA TENKBI KEYBOARD/CTW, INPUT b 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT P DATA TENDKI DISC, INPUT , P DATA TENPCO PROGRAMMED CHANNEL, OUTPUT
0x05dccc…05de60 Dummy {f00=0x004e, f01=0x0190, f02=»A TENDKO DISC, OUTPUT P XIF P* * P EJECT TOSSIO 4 P* L P* V P********** ` P* MONMMU * r P********** P* P* MONITOR (SYSTEM) MMU TABLE P* PMONMMU EQU * P IFT MMUPAG=1 " P DATA /0000,/040
0x05de60…05dff4 (1, 118) Dummy {f00=0x004e, f01=0x0190, f02=» XIF P* P EJECT TOSSIO P* . P* 8 P IFT ATTDET=1 B P* X 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH b P* P* T I M O U T P* P* INPUT: A1 = DWT ADDRESS . P* A2 = ADDRESS TO 2ND TIMER
0x05dff4…05e188 Dummy {f00=0x004e, f01=0x0190, f02=» A1-A3 ARE DESTROYED P* PTIMOUT LDR A6,A1 * & P LDR* A2,A2 TIMER POINTER ADDRESS B P LD A5,2,A2 TTAB ADDRESS l P CF A15,FNDBLK P LDR* A1,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK P* P EJECT TOS
0x05e188…05e31c Dummy {f00=0x004e, f01=0x0190, f02=» PTIM:10 LDR A2,A1 SAVE P LDR* A1,A1 NEXT IN QUEUE & , P RF(Z) TIM:20 ERROR IN QUEUE HANDLING =1 H P CWR A1,A5 x P RB(NE) TIM:10 NOT FOUND P* P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE P*
0x05e31c…05e4b0 Dummy {f00=0x004e, f01=0x0190, f02=»5 ECB ADDRESS FROM A8 SAVE AREA ~ P LDK A3,/40 SET TIMEOUT BIT ! ( P* ! L P IFT MMUPAG=0 ! V * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB ! l P XIF ! P* ! P IFT ATTDET=1 ! P IFT MMUPAG=1 ! . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB !
0x05e4b0…05e644 Dummy {f00=0x004e, f01=0x0190, f02=»1 ! & P RF TIORTN QUEUE TASK AND DISPATCH " PTIM:20 EQU * =1 " 4 P LDK A1,1 INDICATE ERROR =1 " L P CF A15,HALT =1 " p P* " P EJECT TOSSIO " P* " P* F N D B L K " P* " ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH " P* "
0x05e644…05e7d8 Dummy {f00=0x004e, f01=0x0190, f02=»F FOUND, ELSE 0 " r P* # ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS # " P* # N PFND:10 LDR A2,A4 SAVE A4 # X P LDR* A4,A4 # x P RF(Z) FND:20 END OF ATT:CH # P CW A5,4,A4 # P RB(NE) FND:10 NOT FOUND # P* # PFND:20 EQU * # P IFT C
0x05e7d8…05e96c Dummy {f00=0x004e, f01=0x0190, f02=» # P* $ P IFT ATTDET=1 $ & PATT:CH DATA 0 ATTACH CHAIN ANCHOR $ ( P* $ R P EJECT $ P* $ j P* F R A B L K =1 $ t P* $ 0 P* FREE BLOCK AND TIMER IN ATT:CH IF FOUND =1 $ P* $ P* INPUT: A5=TTAB ADDRESS =1 $ P* $ $ P* OU
0x05e96c…05eb00 Dummy {f00=0x004e, f01=0x0190, f02=»=1 $ l P ADK A4,0 SET CR =1 % . P RF(Z) FRAEND TASK NOT FOUND IN ATT:CH =1 % & P CM* 2,A4 FREE TIMER =1 % X & P LDR* A3,A4 REMOVE FROM ATTACH =1 % x P STR A3,A2 =1 % $ P CF A15,FREBLK RELEASE BLOCK =1 % PFRAEND EQU * =1 % P LDR* A1,A15 RES
0x05eb00…05ec94 (1, 119) Dummy {f00=0x006a, f01=0x0190, f02=» % P* & P* & * P* THIS MODULE IS CALLED FROM TIO WITH & P* THE FOLLOWING PARAMETERS: & J P* & n & P* A3 /8000 (REQUEST ERROR BIT) & x & P* A4 I/O AND ACTIVATE INDICATOR & P* A5 TTAB ADDRESS & P* A6 DWT ADDRESS & P*
0x05ec94…05ee28 Dummy {f00=0x006a, f01=0x0190, f02=»13 DWT STATUS & P* ' PATTACH EQU * ENTRY ' P ADK A4,0 SET CR ' : * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR ' R P* ' P IFT MMUPAG=0 ' " P CM ECBRC,A8 RESET RETURN CODE ' P XIF ' P* ' P IFT ATTDET=1 ' P IFT MMUPAG=1 ' & P
0x05ee28…05efbc Dummy {f00=0x006a, f01=0x018e, f02=»0,A13 ' * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED ( P LDR A13,A13 ( < P RF(NN) ATT:50 DEVICE BUSY ( P P* ( r P* ATTACH REQUESTING TASK ( | P* ( P ORS A10,DWTST,A6 ATTACH ( , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT ( P RF ATTRTN =1
0x05efbc…05f150 Dummy {f00=0x006a, f01=0x0190, f02=» ( P* SET TIMER ) P* ) P IFT MMUPAG=0 ) * P LD A1,ECBCW,A8 TIME ) @ P XIF ) P* ) h P EJECT TOSSIO ) r P* ) P* ) P IFT ATTDET=1 ) P IFT MMUPAG=1 ) P EL A1,ECBCW,A8 TIME ) P XIF ) P* ) P IFT ATTDET=
0x05f150…05f2e4 Dummy {f00=0x006a, f01=0x0190, f02=»ESS ) | P LD A3,ATT:CH ANCHOR * P CF A15,GETBLK BLOCK * ( P ST A4,ATT:CH UPDATE ANCHOR * D $ P ADK A4,2 TIMER POINTER ADDRESS * h P LDR A1,A6 DWT ADDRESS * P CF A15,SETIMP SET TIMER * P DATA TIMOUT * P* * PATTIM DATA 0 * P* * ,
0x05f2e4…05f478 Dummy {f00=0x006a, f01=0x0190, f02=»N * P* + P EJECT TOSSIO + P* + , P* + 6 P********** + @ P* DETACH * + R P********** + d P* + v * P* THIS MODULE IS CALLED FROM TIO WITH + $ P* THE SAME PARAMETERS AS ATTACH. + P* + PDETACH EQU * + P ADK A4,0 SET CR +
0x05f478…05f60c Dummy {f00=0x006a, f01=0x0190, f02=»TIOERR ATTACHED TO OTHER TASK + P XRS A10,DWTST,A6 DETACH , & $ P LDR A7,A5 SAVE TTAB ADDRESS =1 , F P LD A5,DWTTQ,A6 QUEUE ANCHOR , n P RF(Z) DET:10 QUEUE EMPTY , 2 P CF A15,FRABLK FREE ATTACH BLOCK AND TIMER =1 , & P LDR* A3,A5 UPDATE QUEUE ANCHO
0x05f60c…05f7a0 Dummy {f00=0x006a, f01=0x0190, f02=» , n P* - 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT - PDETRTN LDK A3,0 RETURN CODE - H P XIF - l P* - x P EJECT TOSSIO - P* - P* - P********** - P* TIOERR * - P********** - P* - P* ERROR: FILE CODE UNKNOWN
0x05f7a0…05f934 (1, 120) Dummy {f00=0x006a, f01=0x0190, f02=»G=0 - * P ST A3,ECBRC,A8 SET RETURN CODE IN ECB . ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH . : P XIF . f P* . r P IFT MMUPAG=1 . | * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB . P LDK A3,0 . * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH . P XIF .
0x05f934…05fac8 Dummy {f00=0x006a, f01=0x0190, f02=»************ . P* QUEUE DEVICE * / P**************** / , P* / D P* / N 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. / X > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON / @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND
0x05fac8…05fc5c Dummy {f00=0x006a, f01=0x0190, f02=»NOT. / V P* 0 P IFT ATTDET=1 0 P* 0 , P* QUEUE ECHO DEVICE FIRST 0 6 P* 0 X PTIOQ00 LDR A6,A2 0 b P* 0 z P* QUEUE DEVICE FIRST 0 P* 0 $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR 0 P LDR A2,A6 0 P LDR* A6,A6 0 $ P RF TIOQ40 INSER
0x05fc5c…05fdf0 Dummy {f00=0x006a, f01=0x0190, f02=»MENT 0 j $ PTIOQ20 ADK A6,DWTTQ QUEUE ANCHOR 1 P* 1 4 . PQUEFIL EQU * ENTRY USED BY FILE MANAGEMENT 1 > P LD A1,TTB:ST+1,A5 LEVEL 1 p P* 1 P EJECT TOSSIO 1 P* 1 * P* SEARCH QUEUE FOR PLACE OF INSERTION 1 P* 1 PTIOQ30 LDR A2,A6 1
0x05fdf0…05ff84 Dummy {f00=0x006a, f01=0x0190, f02=» NEXT 1 ~ P* 2 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 2 P* 2 L PTIOQ40 LDKL A3,-4 2 V P STR A6,A5 INSERT IN QUEUE 2 p P STR A5,A2 2 P ADK A4,0 SET CR 2 P RF(Z) TIOQ50 NO ACTIVATION 2 P SUK A3,2 ACTIVATION 2 P* 2 4 PTI
0x05ff84…060118 Dummy {f00=0x006a, f01=0x0190, f02=» TOSSIO 2 P* 3 P* 3 P******* 3 & P* TIO * 3 6 P******* 3 F P* 3 V P* 3 ` 4 P* THIS MODULE IS ENTERED WHEN TASK INPUT/OUTPUT 3 j 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED 3 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED
0x060118…0602ac Dummy {f00=0x006a, f01=0x0190, f02=»S ARE PERFORMED. 3 z P* 4 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 4 " & P* WITH THE FOLLOWING PARAMETERS:- 4 P* 4 . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 4 P* 4 $ P* A4 = ZERO, NORMAL I/O REQUEST 4 ( P* NOT ZERO, I/
0x0602ac…060440 Dummy {f00=0x006a, f01=0x0190, f02=»* 4 P EJECT TOSSIO 5 P* 5 " P* 5 , < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 5 6 * P* WITH THE FOLLOWING REGISTER VAULES:- 5 v P* 5 P* A5 = STACK BASE 2 IN DWT 5 P* 5 P* A6 = DWT ADDRESS 5 P* 5 P* A7
0x060440…0605d4 (1, 121) Dummy {f00=0x006a, f01=0x018e, f02=» IF REQUEST ISSUED IN SYSTEM MODE 5 . P* = 1, " " " " USER MODE 6 * P* 6 P* 6 f , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 6 p P* 6 " P* -DWTOR DWT INDEX AND ORDER 6 P* -DWTECB ECB ADDRESS 6 $ P* -DWTST READY AND ECHO
0x0605d4…060768 Dummy {f00=0x006a, f01=0x0190, f02=» P* 7 P* 7 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 7 P* 7 F P* -BIT 0 IN THE FIRST WORD 7 P P* -ECBEL EFFECTIVE LENGTH 7 t P* -ECBRC RETURN CODE 7 P* 7 P EJECT TOSSIO 7 P* 7 . P* DWT ADDRESS AND CHECK IF REQUEST IS
0x060768…0608fc Dummy {f00=0x006a, f01=0x0190, f02=»ITCH SWITCH LEVEL 7 P INH 8 P LDKL A3,/8000 8 & P ADK A6,0 SET CR 8 < $ P RB(Z) TIOERR FILE CODE UNKNOWN 8 T 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 8 | P LD A13,DWTST,A6 DWT STATUS 8 P* 8 P EJECT TOSSIO 8 P* 8 @ P*
0x0608fc…060a90 Dummy {f00=0x006a, f01=0x0190, f02=» A7,/BB00 8 P RB(E) ATTACH ATTACH ORDER 9 P CCK A7,/BC00 9 4 P RB(E) DETACH DETACH ORDER 9 J P TM A10,A13 9 l P RF(Z) TIO020 NOT ATTACHED 9 P CW A5,DWTTAB,A6 9 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 9 P TM A3,A13 9 " P RF(NZ) TIO030
0x060a90…060c24 Dummy {f00=0x006a, f01=0x0190, f02=»DEVICE BUSY 9 P* : P EJECT TOSSIO : P* : 6 H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED : @ P* : * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX : P LDK A2,/40 CHECK IF ECHO : P ANR A2,A7 : P RF(Z) TIO070 NO
0x060c24…060db8 Dummy {f00=0x006a, f01=0x0190, f02=» NOT KEYBOARD : n , P LD A2,DWTECH,A6 ECHO DEVICE DWT ADDRESS ; P RF(Z) TIO070 NO ECHO DEVICE ; F $ P LD A14,DWTST,A2 ECHO DWT STATUS ; j P* ; P IFT ATTDET=1 ; P TM A10,A14 ; * P RF(Z) TIO050 ECHO DEVICE NOT ATTACHED ; P CW A5,DWTTAB,A2 ;
0x060db8…060f4c Dummy {f00=0x006a, f01=0x0190, f02=»USY, QUEUE ECHO DEVICE ; P XIF < P* < * P EJECT TOSSIO < 4 P* < L P* < V PTIO050 TM A3,A14 < ` " P RB(Z) TIOQ10 ECHO DEVICE BUSY < x P* < PTIO060 LDKL A3,/A000 < : P XRS A3,DWTST,A2 UPDATE BUSY & ECHO BITS IN DWT STATUS < P* <
0x060f4c…0610e0 Dummy {f00=0x006a, f01=0x0190, f02=»PAG=1 < P LD A13,TTB:PW,A5 PSW = $ P ANKL A13,1 SYSTEM/USER MODE BIT = , $ P RF(NZ) TIO100 JUMP IF USER MODE = T P LDKL A2,/7FFF = | , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE = , P ST A8,DWTECB,A6 SET ACTUAL ECB ADDRESS = ( P CM ECBEL,A8 RESET EF
0x0610e0…061274 (1, 122) Dummy {f00=0x006a, f01=0x0190, f02=»ECB TO DWT ECB = P* > PTIO100 EQU * > P LDKL A2,/4FFF > 4 * P ELR A3,A8 LOAD FIRST WORD OF USER ECB > J 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE > x P ESR A3,A8 > ( P LD A2,DWTMEC,A6 DWT MMU ECB ADDRESS > , P ST A2,DWTECB,A6 SET ACTUAL EC
0x061274…061408 Dummy {f00=0x006a, f01=0x0190, f02=»SET EFFECTIVE LENGTH > ~ & P ES A3,ECBRC,A8 RESET RETURN CODE ? P* ? F P LDR A10,A1 SAVE PARAMETER ? P P LDR A1,A8 ? r P ADK A1,ECBRL ? ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ? P ADK A2,ECBRL ? P LDK A3,8 ? . P MVUS A3 MOVE PART OF USER
0x061408…06159c Dummy {f00=0x006a, f01=0x0190, f02=»,A8 RESET BIT 0 IN ECB FILE CODE ? ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH @ ( $ P CM ECBRC,A8 RESET RETURN CODE @ T P XIF @ | P* @ P EJECT TOSSIO @ P* @ P* @ PTIO110 EQU * @ P ECR A3,A7 @ P ANK A3,/FF ORDER OPTION @ , P RF(
0x06159c…061730 Dummy {f00=0x006a, f01=0x018e, f02=» ANK A7,/3F @ ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT A 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRESS IN DWTTAB A @ P* A t PTIO130 EQU * A ~ P IFT MMUPAG=0 A & P ST A8,DWTECB,A6 SET ECB ADDRESS A P XIF A P* A P EJECT TOSSIO A P* A .
0x061730…0618c4 Dummy {f00=0x006a, f01=0x0190, f02=» 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED B P RF(Z) TIO220 NOT WAIT B < P LDK A4,1 INDICATE WAIT B Z P RF TIO230 B z P* B P* I/O WITH ACTIVATION B P* B < PTIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS B P* B P
0x0618c4…061a58 Dummy {f00=0x006a, f01=0x0190, f02=»A6 STORE WAIT/ACTIVATE INDICATOR B | P* C ( P EJECT TOSSIO C 2 P* C J P* C T P IFT MMUPAG=1 C ^ * P LDR A13,A13 CHECK IF SYSTEM/USER MODE C t & P RF(Z) TIO250 JUMP IF SYSTEM MODE C " P LD A3,DEVIND,A12 DEVICE INDEX C , P RF(N) TIO250 NO SPECI
0x061a58…061bec Dummy {f00=0x006a, f01=0x0190, f02=»A15,TIOCW2 MOVE 2ND CONTROL WORD C P* D ( " P* PERFORM CHECK ON ORDER CODE D 2 P* D X PTIO235 EQU * D b P LDR A4,A7 ORDER CODE D v 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE D . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER D P* D PTIO2
0x061bec…061d80 Dummy {f00=0x006a, f01=0x0190, f02=» TASKS A CHANCE D z P* E * PTIO260 LDK A5,DWTSB2 LOAD STACK BASE 2 E " P ADR A5,A6 E P P INH E b & P ABR* A12 GO TO DRIVER ACTIVATION E n P* E P EJECT TOSSIO E P* E P* E P********** E P* SWITCH * E P********** E P* E
0x061d80…061f14 (1, 123) Dummy {f00=0x006b, f01=0x0190, f02=»* IF CPU857, " " " " 16 E P* F , $ P* A3 IS DESTROYED, AND SO IS CR F 6 P* F ^ & PSWITCH EQU * SWITCH LEVEL ON STACK F h P IFT TC8000=0 F P IFF CPU852+CPU857=0 =4 F P LDK A3,/40 LEVEL 16 F P XIF F P IFT TC8000=1 F P L
0x061f14…0620a8 Dummy {f00=0x006b, f01=0x0190, f02=» P* G P* G ( P SC A3,2,A15 SET NEW LEVEL ON STACK G " P RTN A15 RETURN WITH NEW LEVEL G D P* G j P EJECT TOSSIO G t P* G P* G P IFT MMUPAG=0 G 0 PTIOMXI EQU * DUMMY ENTRY IN NON-MMU SYSTEMS G P XIF G P* G P EJECT
0x0620a8…06223c Dummy {f00=0x006b, f01=0x0190, f02=»TENDIO' FOR SELECTING G j @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING H > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). H b > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER ON STACK IS H * P* SET TO ZERO, ELSE NOT EQUAL TO Z
0x06223c…0623d0 Dummy {f00=0x006b, f01=0x0190, f02=»E INDEXED BRANCHING H n . P* CR = 0 IF NO READ/WRITE REQUEST I , P* CR <> 0 IF READ/WRITE REQUEST I N P* A4 IS DESTROYED I ~ P* I , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT I P ANK A4,/3F I P* I * PRD:WR2 ADKL A15,4 ADJUST
0x0623d0…062564 Dummy {f00=0x006b, f01=0x0190, f02=»1 I $ P ADR A3,A4 ADD READ/WRITE INDEX J ( P ABR* A15 RETURN WITHOUT CHANGING CR J 2 P* J ^ P EJECT TOSSIO J h P* J P* J P********** J P* ORDTAB * J P********** J P* J 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: J
0x062564…0626f8 Dummy {f00=0x006b, f01=0x0190, f02=»ONSTANTS J | P BYTES 0,1 /00, /01 K P BYTES 1,1 /02, /03 K , P BYTES 0,TINDEX+1 /04, /05 K H & P BYTES TINDEX+1,TINDEX+1 /06, /07 K j P BYTES TINDEX+1,0 /08, /09 K P BYTES 1,TINDEX+1 /0A, /0B K P BYTES 0,0 /0C, /0D K P BYTES 0,0 /0E, /0F
0x0626f8…06288c Dummy {f00=0x006b, f01=0x0190, f02=» /18, /19 K P BYTES 0,0 /1A, /1B L P BYTES 0,0 /1C, /1D L . P BYTES 0,0 /1E, /1F L J P BYTES 0,TINDEX+1 /20, /21 L f P BYTES TINDEX+1,0 /22, /23 L P BYTES TINDEX+1,0 /24, /25 L P BYTES 0,TINDEX+1 /26, /27 L P BYTES 0,0 /28, /29 L "
0x06288c…062a20 Dummy {f00=0x006b, f01=0x0190, f02=»ES 0,0 /32, /33 L P BYTES 0,0 /34, /35 M P BYTES 0,0 /36, /37 M 4 P BYTES 0,0 /38, /39 M P P BYTES 0,0 /3A, /3B M l P BYTES 0,0 /3C, /3D M P BYTES 0,0 /3E, /3F M P* M P EJECT TOSSIO M P* M P* T I O : D M M P* M
0x062a20…062bb4 (1, 124) Dummy {f00=0x006b, f01=0x0190, f02=»LED BY 'TENDIO' AT M r , P* COMPLETION OF THE REQUEST IS 'TEN:DM'. N P* N J " P* INPUT: A8 = DWT ECB ADDRESS N T $ P* A9 = USER ECB ADDRESS N z P* N P* OUTPUT: A2 IS DESTROYED N P* N . PTIO:DM EQU * DATA MANAGEMENT, INPUT/OUTPUT N (
0x062bb4…062d48 Dummy {f00=0x006b, f01=0x0190, f02=» N l P ST A2,ECBCW2,A8 O P* O PA15RTN EQU * O * P RTN A15 O > P* O N P EJECT TOSSIO O X P* O p P* T I O P C I O z P* O B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN O > P* ISSUED AND THE DEVICE IS RUNNING ON PR
0x062d48…062edc Dummy {f00=0x006b, f01=0x0190, f02=»BUFFER ADDRESS. O h 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT P , P* COMPLETION OF THE REQUEST IS 'TENPCI'. P P 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. P P* P " P* INPUT: A8 = DWT ECB ADDRESS P $ P* A9 = USER ECB ADDRESS
0x062edc…063070 Dummy {f00=0x006b, f01=0x0190, f02=»ANNEL, INPUT P v $ P LD A1,ECBRL,A8 REQUESTED LENGTH Q 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE Q < 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE Q r P* Q . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' Q ( P EL A1,ECBBA,A9 USER BUFFER ADDR
0x063070…063204 Dummy {f00=0x006b, f01=0x0190, f02=» A1,2 MAKE DWT BUFFER ADDRESS EVEN Q P ANS A1,ECBBA,A8 R * P RTN A15 R B P* R R P EJECT TOSSIO R P* R t P* T I O M X I R ~ P* R B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN R > P* ISSUED AND THE DEVICE IS RUNNING O
0x063204…063398 Dummy {f00=0x006b, f01=0x0190, f02=» R h 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT S , P* COMPLETION OF THE REQUEST IS 'TENMXI'. S @ N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. S p P* S P* INPUT: A5 = TTAB ADDRESS S " P* A8 = DWT ECB A
0x063398…06352c Dummy {f00=0x006b, f01=0x0190, f02=»ANSFERRED TO DWT ECB S f P* T PTIOMXI EQU * MUX, INPUT T & P LDK A1,0 T F 2 P EL A2,ECBBA,A9 USER BUFFER ADDRESS (LOGICAL) T X " P DLL 4 4 LEFTMOST BITS INTO A1 T P ADR A1,A1 DOUBLE INDEX T P ADR A1,A5 T " P LC A1,TTB:MT,A1 PAGE ADDRESS T
0x06352c…0636c0 Dummy {f00=0x006b, f01=0x0190, f02=»BA,A8 BITS 2-17 IN 18-BIT ADDRESS T P RTN A15 U * P* U : P EJECT TOSSIO U D P* U P* T I O K B I U f P* U | B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN U N P* ISSUED AND THE DEVICE IS KEYBOARD/CTW. TIOKBI WILL SET BUF
0x0636c0…063854 (1, 125) Dummy {f00=0x006b, f01=0x0190, f02=»E CORRESPONDING MODULE CALLED BY 'TENDIO' AT U , P* COMPLETION OF THE REQUEST IS 'TENKBI'. V 4 P* V d P* INPUT: A6 = DWT ADDRESS V n P* A7 = ORDER CODE V " P* A8 = DWT ECB ADDRESS V P* A9 = USER ECB ADDRESS V , P* A12 = ADDRESS TO DRIVE
0x063854…0639e8 Dummy {f00=0x006b, f01=0x018e, f02=»ESTED LENGTH V | 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE W 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE W J 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES W P CWK A7,1 CHECK ORDER CODE W , P RF(E) TIKB20 NO KEYTABLE IF BASIC READ
0x0639e8…063b7c Dummy {f00=0x006b, f01=0x0190, f02=» W P LDR A1,A9 X P ADK A1,8 X P ADKL A8,12 X , * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS X @ P SUKL A8,4 X n * P ELR A3,A4 FIRST WORD OF USER KEYTABLE X P ANK A4,1 X * P RF(NZ) TIKB10 KEYTABLE ADDRESS UNEVEN X , P ECR A3,A3 NO, PUT LENGTH
0x063b7c…063d10 Dummy {f00=0x006b, f01=0x0190, f02=»SIZE X h P RF(G) IO:ERR TOO SMALL Y P CF A15,TIPO05 Y , & P SUKL A8,8 ADJUST DWT ECB ADDRESS Y B P* Y l PTIKB20 EQU * Y v P RTN A15 Y P* Y P EJECT TOSSIO Y P* Y P* T I O I T I Y P* Y 4 PTIOITI EQU A15RTN INTERTASK COMMUN
0x063d10…063ea4 Dummy {f00=0x006b, f01=0x0190, f02=»* Y P* T I O P C O Z P* Z B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN Z * > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. Z p B P* TIOPCO CHECKS THAT REQUESTED LENGTH DOES NOT EXCEED THE DWT Z D P* BUFFER LENGTH,
0x063ea4…064038 Dummy {f00=0x006b, f01=0x0190, f02=»' AT Z d , P* COMPLETION OF THE REQUEST IS 'TENPCO'. [ 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. [ < F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. [ v & P* TIOPCO IS ALSO USED BY 'DC:MOT'. [ P* [ P* INPUT: A6 = DWT A
0x064038…0641cc Dummy {f00=0x006b, f01=0x0190, f02=»ANNEL, OUTPUT [ v 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK $ P LD A3,ECBRL,A8 REQUESTED LENGTH N ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 v 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZ
0x0641cc…064360 Dummy {f00=0x006b, f01=0x0190, f02=»BY 'TIOKBI' AND 'TENITO' r P ADK A3,1 ] . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN ] 2 ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS ] d & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS ] 0 P ANKL A2,/FFFE MAKE DWT BUFFER ADDRESS EVEN ] P LDR A4,A1 ] P ANK A4,
0x064360…0644f4 (1, 126) Dummy {f00=0x006b, f01=0x0190, f02=»M BUFFER ] f P* ^ PTIPO20 RTN A15 ^ P* ^ 0 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN ^ : 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN ^ n 0 P ELR A4,A1 FIRST CHARACTER FROM USER BUFFER ^ 2 P STR A4,A2 STORE FIRST CHARACTER IN DWT BUFFER
0x0644f4…064688 Dummy {f00=0x006b, f01=0x0190, f02=» P* _ P EJECT TOSSIO _ P* _ & P* I O : E R R _ 0 P* _ F , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. _ P B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). _ & P* BRANCH TO DISPATCHER VIA TENDIO. _ P* _ 4 PIO:ERR EQU * R
0x064688…06481c Dummy {f00=0x006b, f01=0x0190, f02=»2 CHECK ECHO BIT _ P RF(NN) IO:E10 NOT ECHO ` P LDR A1,A6 SAVE DWT ADDRESS ` 8 & P LD A6,DWTECH,A6 ECHO DWT ADDRESS ` P CF A15,TENDIO ` " P LDR A6,A1 RESTORE DWT ADDRESS ` P* ` PIO:E10 EQU * ` " P LDKL A1,/8008 SET RETURN CODE ` 0 P A
0x06481c…0649b0 Dummy {f00=0x006b, f01=0x0190, f02=» TIOMXI MUX, OUTPUT ` P* a P* T I O K B O a & P* a < * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT a F P* a t P* T I O I T O a ~ P* a 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUTPUT a P* a P* T I O D K O a P* a " PTIODKO
0x0649b0…064b44 Dummy {f00=0x006b, f01=0x0190, f02=»TENDIO' WHEN A REQUEST a t . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. b D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. b P P* b P* INPUT: A6 = DWT ADDRESS b $ P* A8 = USER ECB ADDRESS b P* b P* OUTPUT: A1 IS DE
0x064b44…064cd8 Dummy {f00=0x006b, f01=0x0190, f02=»OND CONTROL WORD b | P ES A1,ECBCW2,A8 c P RTN A15 c 0 P* c @ P EJECT TOSSIO c J P* c b P* T E N P C I c l P* c D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN c @ P* COMPLETED AND THE DEVICE IS RUNNING ON PROGRAMMED
0x064cd8…064e6c Dummy {f00=0x006b, f01=0x0190, f02=»ENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. c x 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. d 0 P* d l P* INPUT: A6 = DWT ADDRESS d v $ P* A8 = USER ECB ADDRESS d P* d & P* OUTPUT: A1-A4, A8 ARE DESTROYED d P* d * PTENPCI EQU
0x064e6c…065000 Dummy {f00=0x006b, f01=0x018e, f02=»VE IF ZERO d | & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS e P* e < . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' e F ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS e x $ P LDK A3,1 CHECK BUFFER ADDRESSES e P TM A3,A1 e * P RF(Z) TEPI20 DWT BUFFER ADDRESS EVEN e
0x065000…065194 (1, 127) Dummy {f00=0x006c, f01=0x0190, f02=» e P* f 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN f 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER f H P ELR A8,A2 f | P* f * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER f ( P ANKL A8,/FF00 SKIP RIGHT CHARACTER f P ORR A8,A3 f . P ESR
0x065194…065328 Dummy {f00=0x006c, f01=0x0190, f02=»MORE CHARACTERS TO MOVE f P RTN A15 NO, RETURN g P* g < PTEPI20 TM A3,A2 g F * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN g ^ " P LDR A3,A1 DWT BUFFER ADDRESS g $ P ADR A3,A4 ADD EFFECTIVE LENGTH g P* g $ PTEPI23 LC A8,-1,A3 ONE CHARACTER g
0x065328…0654bc Dummy {f00=0x006c, f01=0x0190, f02=»ESS OF BUFFER g n * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE h 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN h D P RB TEPI10 h x P* h P EJECT TOSSIO h P* h P* h , PTEPI25 LDR A3,A4 CHECK REQUESTED LENGTH h P ANK A3,1 h * P RF(NZ
0x0654bc…065650 Dummy {f00=0x006c, f01=0x018e, f02=»PI40 EQU * EFFECTIVE LENGTH WAS UNEVEN h ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN i . , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE i Z P LDR A8,A4 NO, SAVE A4 i 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER i & P ADR A1,A8 UPDATE BUFFER POINTERS i P A
0x065650…0657e4 Dummy {f00=0x006c, f01=0x0190, f02=» i . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN j " P LDR A3,A1 DWT BUFFER ADDRESS j : $ P ADR A1,A4 ADD EFFECTIVE LENGTH j ` P* j " PTEPI70 LCR A8,A3 ONE CHARACTER j 6 P SC A8,-1,A3 MOVE THIS CHAR. ONE BYTE TO THE LEFT j & P ADK A3,1 POINT TO NEX
0x0657e4…065978 Dummy {f00=0x006c, f01=0x0190, f02=»WT BUFFER ADDRESS j x * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN k P RB TEPI25 k H P* k Z P EJECT TOSSIO k d P* k | P* T E N M X I k P* k PTENMXI EQU A15RTN MUX, INPUT k P* k P* T E N K B I k P* k & PTENKBI EQU TENPCI KE
0x065978…065b0c Dummy {f00=0x006c, f01=0x018e, f02=»N D K I k P* l " PTENDKI EQU TEN:DM DISC, INPUT l P* l @ P EJECT TOSSIO l J P* l b P* T E N P C O l l P* l 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT l P* l P* T E N M X O l P* l " PTENMXO EQU A15RTN MUX, OUTPUT
0x065b0c…065ca0 Dummy {f00=0x006c, f01=0x0190, f02=» " PTENDKO EQU TEN:DM DISC, OUTPUT m P* m * P EJECT TOSSIO m 4 P* m L P* T E N I T O m V P* m l F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN m v L P* COMPLETED FOR INTERTASK COMMUNICATION, IN PURPOSE TO MOVE THE CONTENTS
0x065ca0…065e34 (1, 128) Dummy {f00=0x006c, f01=0x0190, f02=» m P* INPUT: A6 = DWT ADDRESS n P* n * & P* OUTPUT: A1-A4, A8 ARE DESTROYED n 4 P* n ^ 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT n h $ P LD A8,DWTECB,A6 DWT ECB ADDRESS n $ P LD A3,ECBEL,A8 EFFECTIVE LENGTH n P RF(NP) TEIO10 NO MOVE n &
0x065e34…065fc8 Dummy {f00=0x006c, f01=0x0190, f02=» TOSSIO n P* o P* D C : M O T o P* o 2 < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER o < < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO o | < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO' o " P* IS USED FO
0x065fc8…06615c Dummy {f00=0x006c, f01=0x0190, f02=»:MOT EQU * DATA COMMUNICATION, OUTPUT o " P MSR 8,A15 SAVE A1-A8 ON STACK p . $ P SUKL A15,32 ADJUST STACKPOINTER p T * P TS 2,A15 SAVE MMU REGISTERS ON STACK p | " P LD A5,DWTTAB,A6 TTAB ADDRESS p $ P TL TTB:MT,A5 LOAD MMU REGISTERS p $ P LD A8,DWTMEC,A6
0x06615c…0662f0 Dummy {f00=0x006c, f01=0x0190, f02=»A15 RESTORE MMU REGISTERS FROM STACK p $ P ADKL A15,32 ADJUST STACKPOINTER q , * P MLR 8,A15 RESTORE A1-A8 FROM STACK... q T P RTN A15 ...AND RETURN q P XIF q P* q P EJECT TOSSIO q P* q P* D C : M I N q P* q < P* THIS MODULE IS
0x0662f0…066484 Dummy {f00=0x006c, f01=0x0190, f02=» P* INPUT: A1 = RETURN CODE r ( P* A4 = DRIVER BUFFER ADDRESS r & P* A6 = DWT ADDRESS r R P* r t ( P* OUTPUT: NO REGISTERS ARE DESTROYED r ~ P* r PDC:MIN EQU * r P IFT MMUPAG=0 r P IFT CPU852=1 r & P CF A15,SAVE8 SAVE A
0x066484…066618 Dummy {f00=0x006c, f01=0x0190, f02=» SUKL A15,32 ADJUST STACKPOINTER r * P TS 2,A15 SAVE MMU REGISTERS ON STACK s ( " P LD A5,DWTTAB,A6 TTAB ADDRESS s V $ P TL TTB:MT,A5 LOAD MMU REGISTERS s | P XIF s P* s P EJECT TOSSIO s P* s P* M I N M O V s P* s P* INPUT: A1
0x066618…0667ac Dummy {f00=0x006c, f01=0x0190, f02=» s " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t . P LD A3,DWTECB,A6 ECB ADDRESS t : * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS t ^ $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH t " P RF(NP) MIN:40 NOTHING TO MOVE t 8 P CW A2,ECBRL,A3 CHECK IF USER BUFFER IS LARGE
0x0667ac…066940 Dummy {f00=0x006c, f01=0x0190, f02=»3,A5 t ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN u 8 P SUK A2,2 u j , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE u | P* u P EJECT TOSSIO u P* u P* WORD MOVE u P* u PMIN:10 EQU * u
0x066940…066ad4 (1, 129) Dummy {f00=0x006c, f01=0x0190, f02=»LOOP COUNTER u | 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v P* v J PMIN:20 EQU * v T P ADK A2,1 v h P RF(N) MIN:40 MOVE FINISHED v z P* v P* CHARACTER MOVE v P* v PMIN:30 EQU * v " P LCR A3,A7 MOVE ONE CHARACTER v P SCR
0x066ad4…066c68 Dummy {f00=0x006c, f01=0x018e, f02=»ST ONE MORE CHARACTER TO MOVE v | P XIF w & P* w 2 P IFT MMUPAG=1 w < * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB w R $ P LDR A1,A4 DRIVER BUFFER ADDRESS w P LDR A4,A2 EFFECTIVE LENGTH w & P LD A8,DWTUEC,A6 USER ECB ADDRESS w ( P CF A15,TEN:DC MOV
0x066c68…066dfc Dummy {f00=0x006c, f01=0x0190, f02=» w P* x PMIN:40 EQU * x P INH x & " P CF A15,TENDIO PERFORM TENDIO x 2 P* x X P* RELEASE BUFFER x b P* x z * P LD A3,DWTADR,A6 DRIVER ADDRESS BLOCK x ( P LD A1,POLADR,A3 BUFFER POOL ADDRESS x & P RF(Z) MIN:60 NO RELEASE OF BUFFER x P
0x066dfc…066f90 Dummy {f00=0x006c, f01=0x0190, f02=»ER IN CHAIN x t P* y $ P* INSERT BUFFER AT END OF CHAIN y P* y F ( P SU A4,HDRLEN,A3 REAL BUFFER ADDRESS y P " P STR A4,A2 UPDATE QUEUE LINKS y | P CMR A4 y P* y PMIN:60 EQU * y P IFT CPU852=1 y ( P ABL IHRET8 RESTORE A1-A8 AND RETU
0x066f90…067124 Dummy {f00=0x006c, f01=0x0190, f02=»RE A1-A8 FROM STACK... y P* z PDC:MOT RTN A15 ...AND RETURN z ( P XIF z L P* z X P IFT MMUPAG=1 z b " P RB DC:RTN RETURN TO DC DRIVER z x P XIF z P* z P* ERROR EXIT z P* z " PMIN:70 EQU * DC:MIN ERROR EXIT z 2 P LDKL A1,/8008 R
0x067124…0672b8 Dummy {f00=0x006c, f01=0x0190, f02=» MMUPAG=0 z P IFT CPU852=1 { PDC:MOT EQU * { ( 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS { < P XIF { r P* { ~ P EJECT TOSSIO { P* { P* { P********** { P* TENDIO * { P********** { P* { P* { . P* THIS MOD
0x0672b8…06744c Dummy {f00=0x006c, f01=0x0190, f02=» IS CALLED TO START THE TASK { P* | $ P* -IF NORMAL I/O WITH WAIT:- | . P* | R * P* QTJOB IS CALLED TO QUEUE THE TASK | 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- | P* | P* A5 = TTAB ADDRESS | P* | $ P* -IF NORMAL I/O
0x06744c…0675e0 Dummy {f00=0x006c, f01=0x0190, f02=» J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. } P* } R P EJECT TOSSIO } P* } t P* } ~ 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- } P* } P* A1 = RETURN CODE } P* } P* A6 = DWT ADDRESS } P
0x0675e0…067774 (1, 130) Dummy {f00=0x006c, f01=0x018e, f02=»E PERFORMED. } v P* ~ P EJECT TOSSIO ~ P* ~ 6 P* END I/O ENTRY ~ @ P* ~ X PTENDIO EQU * ~ b P IFT CPU852=1 ~ v & P CF A15,SAVE8 SAVE A1-A8 ON STACK ~ P XIF ~ P* ~ P IFT CPU852=0 ~ P INH ~ " P MSR 8,A15 SAVE A1-A8 ON S
0x067774…067908 Dummy {f00=0x006c, f01=0x018e, f02=» P INH ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK P RF(Z) TEN110 NO TASK QUEUED < P* ` P IFT ATTDET=1 j P LDKL A2,/800 ATTACH BIT P ANR* A2,A4 , P RF(Z) TEN095 DEVICE NOT ATTACHED =2 =1 , P CW A5,DWTTAB,A6 ATTACHED TO OTHER T
0x067908…067a9c Dummy {f00=0x006c, f01=0x0190, f02=» P LDR A4,A6 =1 P ADK A4,DWTST RESTORE A4 =1 P XIF > P* J P EJECT TOSSIO T P* l P* v PTEN100 EQU * , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS P ST A3,DWTTQ,A6 . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST
0x067a9c…067c30 Dummy {f00=0x006c, f01=0x0190, f02=» | , P ORRS A2,A4 INDICATE DEVICE READY IN DWT P LDKL A3,/DBFF 8 ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 N P LD A3,DWTECB,A6 ECB ADDRESS z : P RF(Z) TEN260 BRANCH IF ENTERED FROM ECHO OR RECOVERY P* P EJECT TOSSIO P* P
0x067c30…067dc4 Dummy {f00=0x006c, f01=0x0190, f02=» LD A4,TTB:PW,A5 PSW " P ANK A4,1 SYSTEM/USER MODE BIT P RF(Z) TEN200 SYSTEM MODE B P* d P* LOAD MMU REGISTERS n P* PTEN130 EQU * $ P SUKL A15,32 ADJUST STACKPOINTER * P TS 2,A15 SAVE MMU REGISTERS ON STACK . P TL TTB:MT
0x067dc4…067f58 Dummy {f00=0x006c, f01=0x0190, f02=»WTUEC,A6 USER ECB ADDRESS P ELR A4,A8 " * P ORR A4,A2 SET EVENT COMPLETED IN ECB 4 P ESR A4,A8 b P LDR A1,A3 t P ADK A1,ECBEL P LDR A2,A8 P ADK A2,ECBEL P LDK A4,6 4 P MVSU A4 MOVE EFF. LENGTH, RTN CODE & CNTRL WORD
0x067f58…0680ec Dummy {f00=0x006c, f01=0x0190, f02=»CTION REQUIRED v " P RF(Z) TEN140 DATA MANAGEMENT P CWK A3,DK:DIX CHECK IF DISC < P RF(E) TEN140 DISC ` P* z " P* PERFORM CHECK ON ORDER CODE P* , P CF A15,RD:WR CHECK IF IT WAS READ/WRITE . P RF(Z) TEN160 JUMP IF NO READ/WRITE
0x0680ec…068280 Dummy {f00=0x006c, f01=0x0190, f02=» TOSSIO P* P* RESTORE MMU REGISTERS P* < PTEN150 EQU * F P INH Z P* f PTEN160 EQU * p . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL A15,32 ADJUST STACKPOINTER P XIF P* P EJECT TOSSIO
0x068280…068414 (1, 131) Dummy {f00=0x006d, f01=0x0190, f02=» INDICATOR r ( P RF(Z) TEN250 NOT WAIT OR ACTIVATION P SUK A4,1 > P RF(Z) TEN240 WAIT P P ADK A4,1 j P LDR A3,A4 | P ANK A3,1 P RF(Z) TEN270 ACTIVATION P* P* MULTIPLE WAIT P* P LD A8,DWTECB,A6 ECB ADDRESS
0x068414…0685a8 Dummy {f00=0x006d, f01=0x0190, f02=» NO, GET USER ECB ADDRESS P XIF " P* . PTEN210 EQU * 8 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA L P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR P LDR* A3,A4 NEXT DWT ADDRESS P CMR A4 SET TO NO WAIT A
0x0685a8…06873c Dummy {f00=0x006d, f01=0x0190, f02=» 2 P CF A15,QTJOB WAIT: QUEUE TASK FOR DISPATCHING P* : P* NO WAIT D P* V PTEN250 EQU * ` $ P CM DWTECB,A6 RESET ECB ADDRESS t P* PTEN260 EQU * P IFT CPU852=1 P ABL IHRET8 P XIF P* P IFT CPU852=0
0x06873c…0688d0 Dummy {f00=0x006d, f01=0x40cc, f02=»* PTEN270 EQU * 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS Z P RB TEN250 P* P* P* P END @ P ABL IHRET8 P XIF P* P IFT CPU852=0
0x0688d0…068a64 Dummy {f00=0x006d, f01=0x2008, f02=» NT TOSSIO END @ &
0x068a64…068bf8 Dummy {f00=0x006d, f01=0x018e, f02=» 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD P* : 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER D P LDR A2,A1 SAVE ~ & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD PCOR:30 EQU * P LCR A5,A4 GET CHA
0x068bf8…068d8c Dummy {f00=0x006d, f01=0x018e, f02=» h PCOR:38 EQU *-2 P RF(E) COR:40 YES! * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? 8 P RF(E) MEMOFL YES! f & P ADK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER & P ADK A4,1 INCREMENT RECORD POINTER P RB CO
0x068d8c…068f20 Dummy {f00=0x006d, f01=0x0190, f02=» * P CWK A3,NCHTID CHECK IF END OF RECORD 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD 2 PCOR:45 EQU * j 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION ~ P LDR A1,A8 START OF RECORD P CALL MOVE PCOR:48 EQU * ( P ADKL A10,1
0x068f20…0690b4 (1, 132) Opaque[0x194]
0x0690b4…069248 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x0690b4…069248 IdxSect {
0x0690b4…069248 f00 = 0x000b // 0x690b4 @0x0
0x0690b4…069248 f01 = 0x0012 // 0x690b6 @0x2
0x0690b4…069248 gno = [ // 0x690b8 @0x4
0x0690b4…069248 [0x00]: C0x000b.0x1.0
0x0690b4…069248 [0x01]: C0x000b.0x3.0
0x0690b4…069248 [0x02]: C0x001d.0x0.0
0x0690b4…069248 [0x03]: C0x001d.0x1.0
0x0690b4…069248 [0x04]: C0x002c.0x1.0
0x0690b4…069248 [0x05]: C0x002c.0x2.0
0x0690b4…069248 [0x06]: C0x002c.0x3.0
0x0690b4…069248 [0x07]: C0x0033.0x2.0
0x0690b4…069248 [0x08]: C0x0034.0x3.0
0x0690b4…069248 ]
0x0690b4…069248 }
0x069248…0693dc Dummy {f00=0x000b, f01=0x0190, f02=» 2 P IDENT LDTASK REL 11.0 81-06-10 870105041100 P : P =2,REL 11.0 81-01-26 B 2 P =2,END OF RELOC. CHECK FAILS (SPECIAL CASE) b " P =1,PRR 11.0 80-06-12 BOFE & P =1,CHECK FOR END OF RELOCATION P* 6 P**********************
0x0693dc…069570 Dummy {f00=0x000b, f01=0x0190, f02=»* P* P* 6 P************************************************** P* X P* b * P* THIS MODULE CONTAINS THE LOAD TASK l , P* FOR TOSS MEMORY MANAGEMENT SYSTEMS. P* & P* IT CONTAINS TWO ENTRY POINTS: P* . P
0x069570…069704 Dummy {f00=0x000b, f01=0x0190, f02=» LDTASK P* P* P*********** & P* ENTRIES * : P*********** N P* b P* l $ P ENTRY LT:DSK DISC PAGING ENTRY v , P ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB 2 P ENTRY QLTDSK ACTIVATE
0x069704…069898 Dummy {f00=0x000b, f01=0x0190, f02=»B LDTASK ECB AREA P ENTRY LD:BUF LDTASK BUFFER P ENTRY LD:BUE END OF BUFFER > ( P ENTRY PQEMTY PAGE QUEUE EMPTY FLAG b $ P ENTRY LD:STB LDTASK STACK BASE P EJECT LDTASK P* P* P************* P* EXTERNALS *
0x069898…069a2c Dummy {f00=0x000b, f01=0x0190, f02=» EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR TASK 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR 6 P EXTRN ACTOT ACTIVATE TASK n P EXTRN RELPA2 RELEASE PAGE " P EXTRN PAGQUE FREE PAGE QUEUE & P EXTRN PAG:QB QUEUE LINK BACKWARDS P EXTRN
0x069a2c…069bc0 Dummy {f00=0x000b, f01=0x0190, f02=»S p P EXTRN SEG:EL SEGMENT LENGTH $ P EXTRN SEG:PB PAGE BLOCK ADDRESS . 4 P EXTRN SWB:DS DISC SECTOR ADDRESS OF FIRST COPY V $ P EXTRN SWB:EL SWB LENGTH (BYTES) & P EXTRN SWB:NS SWB LENGTH (SECTORS) $ P EXTRN ECBBA ECB BUFFER ADDRESS & P
0x069bc0…069d54 (1, 133) Dummy {f00=0x000b, f01=0x0190, f02=»B CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EXTRN TTB:AP ACB ADDRESS @ P EXTRN TTB:SA TTAB SAVE AREA b P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE P EXTRN TTB:SP SEGTAB ADDRESS P EJECT LDTASK
0x069d54…069ee8 Dummy {f00=0x000b, f01=0x0190, f02=»ES l P EJECT LDTASK P* " P* , . P***************************************** 6 P* h P* CONDITIONAL ASSEMBLY r P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P
0x069ee8…06a07c Dummy {f00=0x000b, f01=0x0190, f02=»NSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* D PCPU852 EQU 0 N P* b P* l 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK v 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* PSWPBLK EQU 0 P*
0x06a07c…06a210 Dummy {f00=0x000b, f01=0x018e, f02=»0 PCPU857 EQU X:B P* P EJECT LDTASK * P* B P* L 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER PAGING V * P* IS OBTAINED BY SETTING ASMPAG EQU 1. P* PX:C EQU 0 PASMPAG EQU X:C P* P EJECT LDTASK
0x06a210…06a3a4 Dummy {f00=0x000b, f01=0x0190, f02=» p P* P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* N 4 PLD:BUF RES 128 INTERMEDIATE BUFFER FOR LOAD TASK X PLD:BUE EQU * END OF BUFFER P* $ P RES 4 LDTASK STACK (TWO LEVELS) ( PLD:STB EQU *-2 LOAD TASK STACK BASE
0x06a3a4…06a538 Dummy {f00=0x000b, f01=0x0190, f02=» P XIF P* P EJECT LDTASK P* 2 P* < P********** F P* TTABLD * X P********** j P* | P* LDTASK TTAB P* P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* ( P DATA 0 CURRENT SEGMEN
0x06a538…06a6cc Dummy {f00=0x000b, f01=0x0190, f02=»UMMY) z P* PTTABLD EQU * TTABLD ENTRY " P DATA 0 DISPATCHER QUEUE LINK : " P DATA '#L' TASK IDENTIFICATION ` P DATA 49 PRIORITY LEVEL P DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) P DATA 0 DISPATCH ADD
0x06a6cc…06a860 Dummy {f00=0x000b, f01=0x0190, f02=»* P EJECT LDTASK P* " P* , P********** 6 P* LT:SWB * H P********** Z P* l P* v D P* LT:SWB HANDLES THE LOADING/STORING OF SWAPPABLE WORK BLOCKS. P* 2 P* INPUT: A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P
0x06a860…06a9f4 (1, 134) Dummy {f00=0x001d, f01=0x0190, f02=»NDLING ENTRY v P IFT SWPBLK=1 P IFT MMUPAG=1 * P INH @ ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS L , P TL TTB:MT,A3 LOAD MMU WITH CALLING TASK x , P TS TTB:MT,A5 STORE IN LDTASK MMU TABLE P ENB P XIF P* P IFT SWPBLK=1
0x06a9f4…06ab88 Dummy {f00=0x001d, f01=0x0190, f02=»K) f * P LDR* A3,A1 DISC ADDRESS OF FIRST COPY P ANK A3,/FF 8 P LD A4,SWB:DS,A1 L , P LD A6,SWB:EL,A1 SWB COPY LENGTH (BYTES) d . P LD A2,SWB:NS,A1 SWB COPY LENGTH (SECTORS) P* P EJECT LDTASK P* , P* COMPUTE DISC ADDRESS
0x06ab88…06ad1c Dummy {f00=0x001d, f01=0x0190, f02=»1 P* P IFT CPU852=1 P RF(NP) LTS:20 * 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB @ P RF(O) LTS:15 OVERFLOW x P RB LTS:10 P* $ PLTS:15 EQU * OVERFLOW CORRECTION P ADK A3,1 P ANKL A4,/7FFF P RB LT
0x06ad1c…06aeb0 Dummy {f00=0x001d, f01=0x0190, f02=»WPBLK=1 P IFT CPU852=0 P MUR A1 & P DAR A3 6 P XIF F P* R P EJECT LDTASK P* t P* ~ P IFT SWPBLK=1 0 P LD A3,TTB:SA+16,A5 MEMORY ADDRESS (LOGICAL) P ADK A6,1 P LDR A4,A6 & P LD A12,SCTIPL SWB
0x06aeb0…06b044 Dummy {f00=0x001d, f01=0x0190, f02=»RMEDIATE BUFFER j P LDK A7,/95 PHYSICAL WRITE P RF LTSWB2 STORE SWB : P XIF V P* b P EJECT LDTASK l P* P* P********** P* LT:DSK * P********** P* P* D P* LT:DSK PERFORMS LOADING OF DISC RE
0x06b044…06b1d8 Dummy {f00=0x001d, f01=0x0190, f02=» b P* P* * PLT:DSK EQU * LDTASK DISC PAGING ENTRY , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK J P LDR* A2,A1 SEGMENT STATUS z . P RF(NN) LTD:05 SEGMENT NOT LOADED IN CORE P* 2 P* UPDATE MMU TABLE FOR CALLING TASK (IF MMU),
0x06b1d8…06b36c Dummy {f00=0x001d, f01=0x0190, f02=» CF A15,TLSEG1 , P LDR A5,A7 TTAB ADDRESS OF CALLING TASK * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK F P* t P EJECT LDTASK ~ P* 6 P* NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RESTARTED * P* BY RELPAG WHEN PAGE AVAILABLE AGAIN. P
0x06b36c…06b500 Dummy {f00=0x001d, f01=0x0190, f02=» RECENTLY USED PAGE FROM PAGQUE P* ( PLTD:05 EQU * 2 P LD A2,PAGQUE+2 F P CWK A2,PAGQUE ^ $ P RB(E) LTD:00 NO PAGE AVAILABLE t P* P EJECT LDTASK P* $ P* TAKE FOUND PAGE OUT OF PAGQUE P* P INH 0 P L
0x06b500…06b694 (1, 135) Dummy {f00=0x001d, f01=0x0190, f02=»A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK 0 P CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK 0 . P LD A4,PAG:SB,A2 OLD SEGMENT BLOCK ADDRESS d P RF(Z) LTD:10 P LDKL A6,/7FFF 4 P ANRS A6,A4 INDICATE SEGMENT NOT LOADED ANYMORE P* P* CO
0x06b694…06b828 Dummy {f00=0x001d, f01=0x0190, f02=»EW SEGMENT BLOCK ADDRESS z P* P IFT MMUPAG=1 * P* @ 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK J P* ( P LDKL A3,TTABLD LDTASK TTAB ADDRESS 2 P MS 5,TTB:SA+2,A3 SAVE A1-A5 IN TTAB SAVE AREA , P TL TTB:MT,A5 LOAD MMU WITH
0x06b828…06b9bc Dummy {f00=0x001d, f01=0x0190, f02=»A3 $ P LD A1,TTB:AP,A5 GET ACB ADDRESS , P ST A1,TTB:AP,A3 STORE IN LDTASK'S TTAB 2 P LDR A1,A2 b " P LDR A5,A3 LDTASK TTAB ADDRESS t . P CF A15,TLSEG2 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A5 STORE NEW MMU TABLE FOR CALLING TASK P X
0x06b9bc…06bb50 Dummy {f00=0x001d, f01=0x0190, f02=»E ADDRESS (PHYSICAL) | P LD A4,SCTPSZ PAGE SIZE $ P LD A6,SEG:EL,A1 SEGMENT LENGTH < * P LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS d $ P LD A12,TTB:SP,A5 SEGTAB ADDRESS . P LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE P* P IFT CPU852=1
0x06bb50…06bce4 Dummy {f00=0x001d, f01=0x0190, f02=»ADDRESS z P XIF P* P IFT MMUPAG=0 & 2 P ST* A3,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE < P XIF r P* ~ P EJECT LDTASK P* P* P IFT SWPBLK=1 P* P* P********** P* LTSWB1 * P* LTSW
0x06bce4…06be78 Dummy {f00=0x001d, f01=0x0190, f02=»ANDLING IS SIMILAR TO v P* DISC PAGING HANDLING. P* @ 0 P* INPUT: A1 = DISC SECTOR NUMBER, PART 1 J 0 P* A2 = " " " , PART 2 ~ . P* A3 = MEMORY ADDRESS (LOGICAL) & P* A4 = SWB SIZE (BYTES)
0x06be78…06c00c Dummy {f00=0x001d, f01=0x018e, f02=»WRITE (LTSWB2 ONLY) j N P* A9 = 0 (INDICATES SWB HANDLING BY SETTING SEGBLK ADDRESS = 0) $ P* A12 = DISC FILE CODE n P* P* P XIF P* & PLTSWB1 EQU * ENTRY USED BY LT:SWB P ANK A1,/FF P LDK A7,/9
0x06c00c…06c1a0 Dummy {f00=0x001d, f01=0x0190, f02=» & P LDR A11,A4 PAGE/SWB SIZE (WORDS) P SRL A6,1 . ( P LDR A10,A6 SEGMENT/SWB SIZE (WORDS) @ P* l P* SET ECB PARAMETERS v P* " P LDKL A8,LD:ECB LD:ECB ADDRESS * P STR A12,A8 SET DISC FILE CODE IN ECB ( P CM ECBEL,A8 RESET EFFEC
0x06c1a0…06c334 (1, 136) Dummy {f00=0x002c, f01=0x0190, f02=»ECTOR NUMBER IN ECB z P ST A2,ECBCW2,A8 P XIF 4 P* @ P IFT CPU852=0 J , P MS 2,ECBCW1,A8 SET SECTOR NUMBER IN ECB ` P XIF P* P EJECT LDTASK P* P* P IFT MMUPAG=1 P ECR A1,A3 P* P IFT
0x06c334…06c4c8 Dummy {f00=0x002c, f01=0x0190, f02=»K P* . P* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL P* F P SRL A1,3 P & P ANK A1,/1E MMUTAB INDEX (5 BITS) b P ADR A1,A5 ADD TTAB ADDRESS * P LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS P LDR A2,A1 P ANK A2,/3C P SRC
0x06c4c8…06c65c Dummy {f00=0x002c, f01=0x0190, f02=»* 2 P* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL P* @ P SLL A3,2 J P LD A2,TTB:AP,A5 ACB ADDRESS P LDR A12,A3 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,ACBLAP,A2 P* PLTD:40 EQU * P S
0x06c65c…06c7f0 Dummy {f00=0x002c, f01=0x0190, f02=»SET BUFFER ADDRESS P* ! P IFT SWPBLK=1 ! $ 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) ! : P RF(Z) LTD:45 SWB HANDLING ! n P XIF ! P* ! P IFT ASMPAG=1 ! P LDR* A1,A9 SEGMENT STATUS ! ( P SLL A1,1 CHECK IF ASSEMBLER SEGMENT ! (
0x06c7f0…06c984 Dummy {f00=0x002c, f01=0x0190, f02=»CCESSARY ! r P* " PLTD:45 EQU * " . P ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 " . P ANKL A10,/7F80 " ` . P SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH " x * P RF(NN) LTD:50 OK, JUST ONE LKM NEEDED " P LDR A10,A6 " . P ANKL A10,/7F80 NEXT LOWER M
0x06c984…06cb18 Dummy {f00=0x002c, f01=0x0190, f02=»TO BYTES " t , P RF(Z) LTD:55 INTERMEDIATE BUFFER NEEDED # 0 P ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB # @ P* # t P EJECT LDTASK # ~ P* # P* READ/WRITE SEGMENT SWB # P* # ( P CF A14,LD:IO READ/WRITE SEGMENT/SWB # 2 P ADK A6,0 CHECK IF
0x06cb18…06ccac Dummy {f00=0x002c, f01=0x0190, f02=»D AND MOVE LAST PART OF SEGMENT/SWB # ~ P* $ , 4 P* COMMON EXIT FOR DISC PAGING, ASSEMBLER PAGING $ 6 2 P* AND SWAPPABLE WORK BLOCK HANDLING REQUESTS. $ n P* $ PLDEXIT EQU * $ P IFT SWPBLK=1 $ 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) $
0x06ccac…06ce40 Dummy {f00=0x002c, f01=0x0190, f02=» EQU * $ P ORRS A4,A9 % P* % " PLDEXI3 EQU * % , * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK % @ P* % n P EJECT LDTASK % x P* % P* % P********** % P* LD:IO * % P********** % P* % P* % < P* LDTASK I/O ROUTINE FOR
0x06ce40…06cfd4 (1, 137) Dummy {f00=0x002c, f01=0x0190, f02=»GAIN. CREDIT APPLICATIONS % n 8 P* ARE RESTARTED AT THE SPECIFIED REENTER ADDRESS. & " P* & ^ 2 P* INPUT: A5 = TTAB ADDRESS OF CALLING TASK & h P* A7 = ORDER CODE & P* A8 = LD:ECB ADDRESS & ( P* A9 = SEGBLK ADDRESS (=0 IF SWB) & P*
0x06cfd4…06d168 Dummy {f00=0x002c, f01=0x0190, f02=» CODE AND ABORT IF ERROR & P* ' P LD A2,ECBRC,A8 RETURN CODE ' * " P ANKL A2,/FEFF SKIP RETRY BIT ' N P RF(NZ) LDIO10 DISC ERROR ' t P RTN A14 NO, RETURN ' P* ' P EJECT LDTASK ' P* ' 2 P* ERROR: SET RETURN CODE IN A7 OF CALLING
0x06d168…06d2fc Dummy {f00=0x002c, f01=0x0190, f02=»ET RETURN CODE IN A7 ' z P* ( P IFT SWPBLK=1 ( & 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) ( < P RB(Z) LDEXI3 SWB HANDLING ( p P XIF ( P* ( " P* INSERT PAGE IN PAGQUE AGAIN ( P* ( ( P LD A3,SEG:PB,A9 PAGE BLOCK ADDRESS ( P INH
0x06d2fc…06d490 Dummy {f00=0x002c, f01=0x0190, f02=»ER SEGMENT ( v ( P RF(N) LDIO20 YES, ASSEMBLER SEGMENT ) P XIF ) > P* ) J 2 P LD* A4,TTB:AP,A5 APPLICATION RESTART ADDRESS ) T . P ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS ) P* ) PLDIO20 EQU * ) $ P LDKL A4,/100 SEGMENT ERROR BIT ) P RB LD
0x06d490…06d624 Dummy {f00=0x002c, f01=0x0190, f02=» ) P********** * P* * P* * $ 6 P* THIS ENTRY IS CALLED FROM THE LDTASK MAIN FLOW * . 8 P* WHEN LOADING OF AN ASSEMBLER SEGMENT IS WANTED. * h 2 P* ASSPAG WILL READ ONE SECTOR AT A TIME AND * * P* PERFORM THE NECESSARY RELOCATIONS. * P
0x06d624…06d7b8 Dummy {f00=0x002c, f01=0x018e, f02=»SS * z P* A9 = SEGBLK ADDRESS + $ P* A10 = SEGMENT LENGTH (WORDS) + * P* A11 = PAGE SIZE (WORDS) + R , P* A12 = PAGE ADDRESS (RELOCATION BASE) + v P* + P* + ( PASSPAG EQU * ASSEMBLER PAGING ENTRY + P LDK A1,1 + , P SC A1,ECBRL,A8
0x06d7b8…06d94c Dummy {f00=0x002c, f01=0x0190, f02=» P EJECT LDTASK , P* , P* , & P IFT ASMPAG=1 , 0 P* , F . P* PREPARE FOR RELOCATION OF ONE SECTOR AND , P 4 P* CHECK REMAINING PAGE SIZE. IF NOT LARGE ENOUGH , 6 P* THEN READ (LAST) SECTOR TO INTERMEDIATE BUFFER, , 2 P* ELSE READ SECTOR D
0x06d94c…06dae0 Dummy {f00=0x002c, f01=0x0190, f02=»SEGMENT POINTER , P* - P XIF - " P* - . P IFT ASMPAG=1 - 8 P IFT MMUPAG=1 - N . P LD A1,LD:LAD GET LOGICAL ADDRESS POINTER - d P XIF - P* - P IFT ASMPAG=1 - * P CWK A11,128 CHECK REMAINING PAGE SIZE - , P RF(L) ASS:85 INTERMEDIA
0x06dae0…06dc74 (1, 138) Dummy {f00=0x002c, f01=0x0190, f02=»ON BITS - l P CWK A10,120 . P RF(NL) ASS:02 . $ P LDR A2,A10 . : P ADR A2,A2 . N P* . ` PASS:02 EQU * . j P ADR A2,A1 . ~ P* . P EJECT LDTASK . P* . " P* RELOCATE ONE SEGMENT SECTOR . P* . PASS:05 EQU * . P SRL A2,
0x06dc74…06de08 Dummy {f00=0x002c, f01=0x0190, f02=»ION BITS COUNTER . ~ P* / P IFT MMUPAG=1 / " 2 P LDR A8,A8 CHECK WHERE TO FIND RELOCATION BITS / 8 , P RF(Z) ASS:15 RELOCATION BITS IN LD:BUF / n " P ELR A4,A2 16 RELOCATION BITS / P RF ASS:20 / P XIF / P* / P IFT ASMPAG=1 / PASS:15
0x06de08…06df9c Dummy {f00=0x002c, f01=0x0190, f02=»25 EQU * / 0 P LDR A6,A3 NUMBER OF RELOCATION BITS TO SKIP 0 P RF ASS:45 0 D P* 0 V P EJECT LDTASK 0 ` P* 0 x P* 0 PASS:30 EQU * 0 * P SLL A4,1 NEXT RELOCATION BIT TO TEST 0 & P RB(Z) ASS:25 NEXT RELOCATION WORD 0 P* 0 PASS:40
0x06df9c…06e130 Dummy {f00=0x002c, f01=0x0190, f02=»* 0 PASS:45 EQU * 1 . P SUR A3,A6 UPDATE RELOCATION BITS COUNTER 1 2 P SRL A1,1 WORD ADDRESS FOR SEGMENT POINTER =1 1 P 0 P ADR A1,A6 UPDATE SEGMENT POINTER (WORD) =1 1 0 P RF(O) ASS:70 ALL RELOCATED,END OF SECTOR =1 1 2 P SLL A1,1 BYTE ADDRESS FOR
0x06e130…06e2c4 Dummy {f00=0x002c, f01=0x0190, f02=»ORD 1 P* 2 PASS:50 EQU * 2 P IFT MMUPAG=0 2 * $ P ADRS A12,A1 ADD RELOCATION BASE 2 @ P XIF 2 h P* 2 t P IFT ASMPAG=1 2 ~ P IFT MMUPAG=1 2 P ELR A6,A1 WORD TO RELOCATE 2 $ P ADR A6,A12 ADD RELOCATION BASE 2 $ P ESR A6,A1 STORE R
0x06e2c4…06e458 Dummy {f00=0x002c, f01=0x0190, f02=»F SECTOR OR IF NEW RELOCATION WORD NEEDED 2 P* 3 2 PASS:60 EQU * 3 < P LDR A6,A1 SEGMENT POINTER 3 P P SRL A6,1 WORD ADDRESS 3 r 4 P SUR A6,A13 COMPARE WITH END OF REL. ADDRESS =2 3 P ADK A6,0 SET CR =2 3 $ P RF(NN) ASS:70 END OF SECTOR =2 3
0x06e458…06e5ec Dummy {f00=0x002c, f01=0x0190, f02=»INTER 3 j ( P RB ASS:10 NEXT RELOCATION BITS WORD 4 P* 4 : P EJECT LDTASK 4 D P* 4 . P* RETURN IF SEGMENT LOADING IS COMPLETED, 4 f . P* ELSE PREPARE FOR READING OF NEXT SECTOR. 4 P* 4 PASS:70 EQU * 4 * P SUKL A10,120 DECREMENT SEGMENT
0x06e5ec…06e780 Dummy {f00=0x002c, f01=0x018e, f02=»E PAGE ADDRESS 4 z P XIF 5 P* 5 " P IFT ASMPAG=1 5 , P IFT MMUPAG=1 5 B 2 P ADS A4,LD:LAD UPDATE LOGICAL ADDRESS POINTER 5 X P LDK A3,0 5 P MLR 2,A8 BUFFER ADDRESS 5 P SLC A1,4 5 P DLL 1 5 P SRL A2,1 5 P DAR A3 5 P SLL A
0x06e780…06e914 (1, 139) Dummy {f00=0x0033, f01=0x0190, f02=» 5 ~ P* 6 P* 6 P IFT ASMPAG=1 6 * P IM ECBCW2,A8 INCREMENT SECTOR NUMBER 6 2 P RF(O) ASS:80 OVERFLOW 6 ` ( P RB ASS:00 READ NEXT SECTOR TO PAGE 6 ~ P* 6 PASS:80 EQU * 6 & P LDKL A4,/7FFF OVERFLOW CORRECTION 6 P ANS A4,ECBCW2,A8 6
0x06e914…06eaa8 Dummy {f00=0x0033, f01=0x0190, f02=»INTERMEDIATE BUFFER. 6 z 0 P* MOVE CODE BUT NOT RELOCATION BITS TO PAGE. 7 P* 7 P PASS:85 EQU * 7 Z . P LDR A13,A10 SAVE REMAINING SEGMENT LENGTH 7 n P LDR A6,A10 7 & P LDR A11,A12 SAVE RELOCATION BASE 7 $ P LDR A12,A1 ACTUAL PAGE ADDRESS 7 6 P S
0x06eaa8…06ec3c Dummy {f00=0x0033, f01=0x0190, f02=»S OF CODE TO RELOCATE 7 v P LDR A10,A13 8 0 P LDR A2,A13 REMAINING SEGMENT LENGTH (WORDS) 8 2 2 P ADR A2,A2 DISPL. IN SECTOR TO RELOCATION BITS 8 f . P ADKL A2,LD:BUF ADDRESS TO RELOCATION BITS 8 P* 8 P IFT MMUPAG=1 8 2 P SUR A8,A8 INDICATE RELOCA
0x06ec3c…06edd0 Dummy {f00=0x0033, f01=0x0190, f02=»TS 8 b 4 P LDR A1,A12 LOGICAL ADDRESS OF CODE TO RELOCATE 9 ( P LDR A12,A11 RESTORE RELOCATION BASE 9 B . P RB ASS:10 RELOCATE LAST SECTOR AND RETURN 9 n P XIF 9 P* 9 P EJECT LDTASK 9 P* 9 P* 9 P********** 9 P* LDSECT * 9 P*
0x06edd0…06ef64 Dummy {f00=0x0033, f01=0x0190, f02=»RMEDIATE BUFFER 9 r P* : ( P* INPUT: A6 = NO OF WORDS TO MOVE : " $ P* A8 = LD:ECB ADDRESS : N ( P* A9 = SEGBLK ADDRESS (=0 IF SWB) : v 0 P* A10 = EFFECTIVE LENGTH, LAST I/O : B P* A12 = LAST USED PAGE ADDRESS, LOGICAL (
0x06ef64…06f0f8 Dummy {f00=0x0033, f01=0x0190, f02=»UAL PAGE ADDRESS (LOGICAL) : | , P* A1-A4, A7, A10 ARE DESTROYED ; " P* ; R P* ; PLDSECT EQU * ; f , P ADR A12,A10 UPDATE DESTINATION POINTER ; z P* ; P EJECT LDTASK ; P* ; P* SET ECB PARAMETERS ; P* ; PLDSEC2 EQU *
0x06f0f8…06f28c Dummy {f00=0x0033, f01=0x0190, f02=»ATE BUFFER NOW IN SYSTEM AREA ; P ADK A2,/80 A2 := 256 < & 6 P ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR < D P LDKL A4,/7FFF < ~ P XIF < P* < P IFT CPU852=0 < P MLK 4 < P DATA LD:BUF,256 < P DATA /80,/7FFF < 2 P SCR A3,A8
0x06f28c…06f420 Dummy {f00=0x0033, f01=0x018e, f02=» * P ADS A2,ECBCW2,A8 UPDATE SECTOR NUMBER = P RF(O) LDS:30 OVERFLOW = 2 P* = P PLDS:10 EQU * = Z , P CF A14,LD:IO READ ONE SECTOR TO LD:BUF = n $ P LDR A2,A12 DESTINATION POINTER = & P ADR A6,A6 CONVERT LENGTH TO BYTES = P* = P EJECT LDTAS
0x06f420…06f5b4 (1, 140) Dummy {f00=0x0034, f01=0x018e, f02=» P XIF > P* > PLDS:20 EQU * > P IFT MMUPAG=0 > . P IFT CPU852=1 > D P LDR* A10,A1 MOVE ONE WORD > Z P STR A10,A2 > | ( P ADK A1,2 INCREMENT BUFFER POINTERS > P ADK A2,2 > P SUK A6,2 DECREMENT COUNTER > P RB(P) LDS:20 > P
0x06f5b4…06f748 Dummy {f00=0x0034, f01=0x018e, f02=» > ( P ADK A1,2 INCREMENT BUFFER POINTERS ? P ADK A2,2 ? 4 P SUK A6,2 DECREMENT COUNTER ? F P RB(P) LDS:20 ? j P XIF ? P* ? P IFT MMUPAG=0 ? P IFT CPU852=0 ? P IFT CPU857=1 ? 2 P MVB A6 MOVE REMAINING PART OF SEGMENT TO PAGE ?
0x06f748…06f8dc Dummy {f00=0x0034, f01=0x0190, f02=» ? | P RB LDS:10 @ P* @ P EJECT LDTASK @ $ P* @ < P* @ F P********** @ P P* QLTDSK * @ b P* QLTSWB * @ t P********** @ P* @ P* @ : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. @ P* @ : P* ACTIVATION IS AT
0x06f8dc…06fa70 Dummy {f00=0x0034, f01=0x018e, f02=» = SEGMENT BLOCK ADDRESS (LT:DSK) @ 6 P* = SWAPPABLE WORK BLOCK ADDRESS (LT:SWB) A * 2 P* A3 = TTAB ADDRESS OF CALLING TASK A d * P* A4 = LKM DATA DIRECTIVE (LT:SWB) A P* A $ P* OUTPUT: A2, A5 ARE DESTROYED A P* A P* A
0x06fa70…06fc04 Dummy {f00=0x0034, f01=0x018e, f02=» P XIF B P* B P IFT SWPBLK=0 B 6 P ABL LKMERR INDICATE SYSGEN ERROR AND HALT SYSTEM B 0 P XIF B j P* B v 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK B $ P LDKL A2,LT:DSK DISPATCH ADDRESS B P* B P EJECT LDTASK B P* B P
0x06fc04…06fd98 Dummy {f00=0x0034, f01=0x4014, f02=» P END C @ C P IFT SWPBLK=0 B 6 P ABL LKMERR INDICATE SYSGEN ERROR AND HALT SYSTEM B 0 P XIF B j P* B v 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK B $ P LDKL A2,LT:DSK DISPATCH ADDRESS B P* B P EJECT LDTASK B P* B P
0x06fd98…06ff2c Dummy {f00=0x0034, f01=0x2008, f02=» D NT LDTASK PRR 9.1 79-01-17 870105040910 END <@ H* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x06ff2c…0700c0 Dummy {f00=0x0034, f01=0x0190, f02=»NB GIVE OTHER TASKS A CHANCE D P* E & * PTIO260 LDK A5,DWTSB2 LOAD STACK BASE 2 E 0 P ADR A5,A6 E ^ P INH E p & P ABR* A12 GO TO DRIVER ACTIVATION E | P* E P EJECT TOSSIO E P* E P* E P********** E P* SWITCH * E P********
0x0700c0…070254 (1, 141) Opaque[0x194]
0x070254…0703e8 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05b0, f03=0x0000}
0x070254…0703e8 IdxSect {
0x070254…0703e8 f00 = 0x002d // 0x70254 @0x0
0x070254…0703e8 f01 = 0x0004 // 0x70256 @0x2
0x070254…0703e8 gno = [ // 0x70258 @0x4
0x070254…0703e8 [0x00]: C0x002d.0x2.0
0x070254…0703e8 [0x01]: C0x002d.0x3.0
0x070254…0703e8 ]
0x070254…0703e8 }
0x0703e8…07057c Dummy {f00=0x002d, f01=0x0190, f02=» 2 P IDENT ST8000 REL 11.0 81-01-26 870105041100 P : P ENTRY ST8000 B P* X * P EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW b P EXTRN IHTC,IHSOP,CHLT1,IHFD ( P EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD P* PST8000 EQU * P* P
0x07057c…070710 Dummy {f00=0x002d, f01=0x018e, f02=» P DATA ILLINT P DATA ILLINT 6 $ P DATA IHTW 7 @ P DATA IASCUZ 8 Z P DATA IHSOP 9 v P DATA ISLCI P DATA ISLCO P DATA CHRT1 12 P DATA IHMD 13 P
0x070710…0708a4 Dummy {f00=0x002d, f01=0x0190, f02=» P DATA ILLINT 19 P DATA ILLINT 20 P DATA ILLINT 21 < P DATA ILLINT 22 X P DATA ILLINT 23 t P DATA ILLINT 24 P DATA ILLINT 25 P DATA ILLINT 26 P DATA ILLINT 27 P DATA IL
0x0708a4…070a38 Dummy {f00=0x002d, f01=0x0190, f02=»A ILLINT 33 P DATA ILLINT 34 P DATA ILLINT 35 4 P DATA ILLINT 36 P P DATA ILLINT 37 l P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT 40 P DATA ILLINT 41 P DATA ILLINT
0x070a38…070bcc Dummy {f00=0x002d, f01=0x0190, f02=» 47 P DATA ILLINT 48 P DATA ILLINT 49 , P DATA ILLINT 50 H P DATA ILLINT 51 d P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56
0x070bcc…070d60 Dummy {f00=0x002d, f01=0x4034, f02=» | P DATA ILLINT 62 P END $@ 0LINT 49 , P DATA ILLINT 50 H P DATA ILLINT 51 d P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56
0x070d60…070ef4 (1, 142) Dummy {f00=0x002d, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x070ef4…071088 Dummy {f00=0x002d, f01=0x0190, f02=»ES l P EJECT LDTASK P* " P* , . P***************************************** 6 P* h P* CONDITIONAL ASSEMBLY r P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P
0x071088…07121c Dummy {f00=0x002d, f01=0x0190, f02=»NSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* D PCPU852 EQU 1 N P* b P* l 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK v 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* PSWPBLK EQU 0 P*
0x07121c…0713b0 Dummy {f00=0x002d, f01=0x018e, f02=»0 PCPU857 EQU X:B P* P EJECT LDTASK * P* B P* L 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER PAGING V * P* IS OBTAINED BY SETTING ASMPAG EQU 1. P* PX:C EQU 0 PASMPAG EQU X:C P* P EJECT LDTASK
0x0713b0…071544 Dummy {f00=0x002d, f01=0x0190, f02=» p P* P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* N 4 PLD:BUF RES 128 INTERMEDIATE BUFFER FOR LOAD TASK X PLD:BUE EQU * END OF BUFFER P* $ P RES 4 LDTASK STACK (TWO LEVELS) ( PLD:STB EQU *-2 LOAD TASK STACK BASE
0x071544…0716d8 Dummy {f00=0x002d, f01=0x0190, f02=» P XIF P* P EJECT LDTASK P* 2 P* < P********** F P* TTABLD * X P********** j P* | P* LDTASK TTAB P* P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* ( P DATA 0 CURRENT SEGMEN
0x0716d8…07186c Dummy {f00=0x002d, f01=0x0190, f02=»UMMY) z P* PTTABLD EQU * TTABLD ENTRY " P DATA 0 DISPATCHER QUEUE LINK : " P DATA '#L' TASK IDENTIFICATION ` P DATA 49 PRIORITY LEVEL P DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) P DATA 0 DISPATCH ADD
0x07186c…071a00 Dummy {f00=0x002d, f01=0x0190, f02=»* P EJECT LDTASK P* " P* , P********** 6 P* LT:SWB * H P********** Z P* l P* v D P* LT:SWB HANDLES THE LOADING/STORING OF SWAPPABLE WORK BLOCKS. P* 2 P* INPUT: A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P
0x071a00…071b94 (1, 143) Opaque[0x194]
0x071b94…071d28 # DirEnt {nam=»DRND01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0088, f03=0x0000}
0x071b94…071d28 IdxSect {
0x071b94…071d28 f00 = 0x0004 // 0x71b94 @0x0
0x071b94…071d28 f01 = 0x001e // 0x71b96 @0x2
0x071b94…071d28 gno = [ // 0x71b98 @0x4
0x071b94…071d28 [0x00]: C0x0004.0x1.0
0x071b94…071d28 [0x01]: C0x004f.0x0.0
0x071b94…071d28 [0x02]: C0x004f.0x1.0
0x071b94…071d28 [0x03]: C0x0050.0x2.0
0x071b94…071d28 [0x04]: C0x0050.0x3.0
0x071b94…071d28 [0x05]: C0x0055.0x0.0
0x071b94…071d28 [0x06]: C0x005d.0x3.0
0x071b94…071d28 [0x07]: C0x005e.0x2.0
0x071b94…071d28 [0x08]: C0x005e.0x3.0
0x071b94…071d28 [0x09]: C0x005f.0x1.0
0x071b94…071d28 [0x0a]: C0x005f.0x2.0
0x071b94…071d28 [0x0b]: C0x005f.0x3.0
0x071b94…071d28 [0x0c]: C0x0061.0x3.0
0x071b94…071d28 [0x0d]: C0x0062.0x0.0
0x071b94…071d28 [0x0e]: C0x0062.0x1.0
0x071b94…071d28 ]
0x071b94…071d28 }
0x071d28…071ebc Dummy {f00=0x0004, f01=0x0190, f02=» 2 P IDENT DRND01 REL 11.0 81-05-27 870105041100 P : $ P =2, INTERRUPT TABLES INCLUDED B P REL 11.0 81-05-25 j ( P =1, COND. ASS. FOR ONLY SUM-CONN. P REL 11.0 81-01-26 P* P* P* @ P****************************
0x071ebc…072050 Dummy {f00=0x0004, f01=0x0190, f02=»RIBUTOR l P* P* P* $ @ P************************************************************ . P* r P* | 6 P* THIS PROGRAM CONTAINS INPUT AND OUTPUT ENTRIES 6 P* CALLED BY TERMINAL DEVICE DRIVERS. AT CALL, IT 6 P* CHECKS CHA
0x072050…0721e4 Dummy {f00=0x0004, f01=0x0190, f02=»UCTION MAKES IT p 8 P* POSSIBLE TO HAVE ONLY ONE TERMINAL DEVICE DRIVER 2 P* FOR EACH TERMINAL DEVICE, IRRESPECTIVE OF T 4 P* CONNECTION TYPE. IT IS ALSO POSSIBLE TO USE 6 P* SEVERAL TERMINAL DEVICE CHANNEL UNITS TOGETHER P* IN THE S
0x0721e4…072378 Dummy {f00=0x0004, f01=0x0190, f02=»IVERS ` P* AND LINE DRIVERS. P* , P EJECT 6 P* D : P* THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. N 4 P* SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED 2 P* INTO ROUTINES. THE ROUTINES ARE LISTED AT 4 P* BEGINNING
0x072378…07250c Dummy {f00=0x0004, f01=0x0190, f02=»ENTRIES DECLARE ENTRY POINTS . P* EXTERNALS DECLARE EXTERNAL REFERENCES ( 6 P* CONDITION SET CONDITIONAL ASSEMBLY PARAMETERS Z & P* CONSTANTS SET CONSTANT VALUES P* DATA DATA AREAS P* 4 P* DEVICE DR ROUTINES CALLED BY DEV
0x07250c…0726a0 Dummy {f00=0x0004, f01=0x0190, f02=»* P*********** P* ( P* TERMINAL DEVICE DRIVER REQUESTS ( P* T ( P ENTRY INPUT INPUT OF ONE CHARACTER ^ ( P ENTRY STABLK DEFINE START OF BLOCK * P ENTRY OUTPUT OUTPUT OF ONE CHARACTER & P ENTRY ENDBLK DEFINE END OF BLOCK
0x0726a0…072834 (1, 144) Dummy {f00=0x004f, f01=0x0190, f02=»ACTER FROM ECB-BUFFER v $ P ENTRY ABORT ABORT INPUT REQUEST P* F P* P . P* TERMINAL DEVICE DRIVER EXIT ROUTINES Z P* 2 P ENTRY LENDER REQUEST ERR, END I/O & DISPATCH $ P ENTRY LENDIS END I/O & DISPATCH P ENTRY LDISP DISPATC
0x072834…0729c8 Dummy {f00=0x004f, f01=0x0190, f02=»ETURN | P ENTRY NDREP POP & RETURN P ENTRY NDRET RETURN 0 P* L P EJECT V P* d & P* LINE DRIVER SERVICE ROUTINES n P* * P ENTRY NDSAV8 SAVE A3-A5, A7-A8 IN DWT , P ENTRY NDGET8 GET A3-A5, A7-A8 FROM DWT 0 P ENTRY N
0x0729c8…072b5c Dummy {f00=0x004f, f01=0x0190, f02=» ( P ENTRY NDGEDW CALCULATE DWT ADDRESS P* 0 P EJECT : P* H " P* INTERRUPT TABLE FOR CHLT R P* x & P ENTRY INTLT1,INTLT2,INTLT3,INTLT4 P* " P* INTERRUPT TABLE FOR CHRT P* & P ENTRY INTRT1,INTRT2,INTRT3,INTRT4
0x072b5c…072cf0 Dummy {f00=0x004f, f01=0x0190, f02=»7,INTSL8 v P* $ P* INTERRUPT TABLE FOR ASCU4Z P* B & P ENTRY INTAS1,INTAS2,INTAS3,INTAS4 L & P ENTRY INTAS5,INTAS6,INTAS7,INTAS8 v P* ( P* INTERRUPT TABLE FOR PLC - LOCAL P* & P ENTRY INTPL1,INTPL2,INTPL3,INTPL4
0x072cf0…072e84 Dummy {f00=0x004f, f01=0x0190, f02=»ABLE FOR VIDEO P* & P ENTRY INTVU1,INTVU2,INTVU3,INTVU4 & P ENTRY INTVU5,INTVU6,INTVU7,INTVU8 J P* t P EJECT ~ P* P************* P* EXTERNALS * P************* P* P* TOSS ROUTINES P* ( P E
0x072e84…073018 Dummy {f00=0x004f, f01=0x0190, f02=»I/O REQUEST ~ P* P* * P* REQUEST ROUTINES IN LINE DRIVERS ( P* V P* CHLT ` P* t " P EXTRN LTCHRI CHARACTER INPUT ~ P EXTRN LTSTBL START OF BLOCK " P EXTRN LTCHRO CHARACTER OUTPUT P EXTRN LTENBL END OF BLOCK
0x073018…0731ac Dummy {f00=0x004f, f01=0x018e, f02=»OF BLOCK | " P EXTRN RTCHRO CHARACTER OUTPUT P EXTRN RTENBL END OF BLOCK 6 P EXTRN RTDISP DISPATCH X P* v P EJECT P* P* SALCUZ P* " P EXTRN SLCHRI CHARACTER INPUT P EXTRN SLSTBL START OF BLOCK " P EXTRN
0x0731ac…073340 Dummy {f00=0x004f, f01=0x018e, f02=» " P EXTRN ASCHRI CHARACTER INPUT P EXTRN ASSTBL START OF BLOCK * " P EXTRN ASCHRO CHARACTER OUTPUT N P EXTRN ASENBL END OF BLOCK t P EXTRN ASDISP DISPATCH P* P* FT80 P* " P EXTRN FTCHRI CHARACTER INPUT P EXTRN
0x073340…0734d4 (1, 145) Dummy {f00=0x004f, f01=0x0190, f02=» P* PLC - LOCAL P* " " P EXTRN PLCHRI CHARACTER INPUT , P EXTRN PLSTBL START OF BLOCK R " P EXTRN PLCHRO CHARACTER OUTPUT v P EXTRN PLENBL END OF BLOCK P EXTRN PLDISP DISPATCH P* P EJECT P* P* PLC
0x0734d4…073668 Dummy {f00=0x004f, f01=0x0190, f02=» P EXTRN PRENBL END OF BLOCK P EXTRN PRDISP DISPATCH & P* D P* VIDEO N P* b " P EXTRN VUCHRI CHARACTER INPUT l P EXTRN VUSTBL START OF BLOCK " P EXTRN VUCHRO CHARACTER OUTPUT P EXTRN VUENBL END OF BLOCK P EXTRN VUD
0x073668…0737fc Dummy {f00=0x004f, f01=0x0190, f02=»XTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS P EXTRN DWTOR INDEX AND ORDER < . P EXTRN DWTADR DRIVER ADDRESS BLOCK ADDRESS ` * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR " P EXTRN DWTA3 SAVE AREA FOR A3 " P EXTRN DWTA4 SAVE AREA FOR A4
0x0737fc…073990 Dummy {f00=0x004f, f01=0x0190, f02=»OR A8 x 4 P EXTRN DWTECH DWT ADDRESS OF ECHO OUTPUT DEVICE P* F P* P P* ECB DISPLACEMENTS Z P* x P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH P* P* P*
0x073990…073b24 Dummy {f00=0x004f, f01=0x0190, f02=»LOCK b P* P EJECT P* $ P************************ . P* CONDITIONAL ASSEMBLY * N P************************ n P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x073b24…073cb8 Dummy {f00=0x004f, f01=0x0190, f02=»ARE USED IN THE SYSTEM. t ( P* 0 MEANS CHANNEL UNIT IS NOT USED. $ P* 1 MEANS CHANNEL UNIT IS USED. L P* t PX:A EQU 0 ~ PLT EQU 01 CHLT P* PX:B EQU 0 PRT EQU 01 CHRT P* PX:C EQU 0 PSL EQU 00 SALCUZ
0x073cb8…073e4c Dummy {f00=0x004f, f01=0x018e, f02=» EQU 00 PLC - LOCAL P* P EJECT & P* 4 PX:G EQU 0 > PPR EQU 00 PLC - REMOTE P P* n PX:H EQU 0 x PVU EQU 00 VIDEO P* P* * P* ECHO FUNCTION IS INCLUDED IF CECHO=1 P* PX:I EQU 1 PCECHO EQ
0x073e4c…073fe0 Dummy {f00=0x004f, f01=0x0190, f02=» h P* PS1 EQU SL+AS U =1 PS2 EQU S1+FT U =1 , PS3 EQU S2+PL U =1 F PS4 EQU S3+PR U =1 ` PS5 EQU S4+VU U =1 z P* PNTONSU EQU S5 U =1 P* P EJECT P* P************* P* CONSTANTS * P**
0x073fe0…074174 (1, 146) Dummy {f00=0x0050, f01=0x0190, f02=»MODE z $ PDWFINP EQU /0020 INPUT REQUESTED P* 4 P* > P* MISCELLANEOUS H P* b 0 PNOTOPR EQU /0001 RETURN CODE "NOT OPERABLE" l 6 PCONFER EQU /0001 RETURN CODE "CONFIGURATION ERROR" 0 PREQERR EQU /8000 RETURN CODE "REQUEST ERROR"
0x074174…074308 Dummy {f00=0x0050, f01=0x0190, f02=» P************** P* P IFF NTONSU=0 U =1 $ P* > P* DISPATCH TABLES H P* d P* CHARACTER INPUT n PINPTAB EQU * P IFT LT=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT LT=1 P DATA LTCH
0x074308…07449c Dummy {f00=0x0050, f01=0x0190, f02=»FT RT=1 P DATA RTCHRI P XIF $ P IFF NTONSU=0 U =1 0 P* J P IFT SL=0 T P DATA NDRETE f P XIF z P IFF NTONSU=0 U =1 P IFT SL=1 P DATA SLCHRI P XIF P IFF NTONSU=0 U =1 P* P IFT AS=0 P
0x07449c…074630 Dummy {f00=0x0050, f01=0x0190, f02=» P IFT FT=0 P DATA NDRETE P XIF . P IFF NTONSU=0 U =1 : P IFT FT=1 T P DATA FTCHRI f P XIF z P IFF NTONSU=0 U =1 P* P IFT PL=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PL=1 P
0x074630…0747c4 Dummy {f00=0x0050, f01=0x0190, f02=» ~ P IFT PR=1 P DATA PRCHRI P XIF . P IFF NTONSU=0 U =1 : P* T P IFT VU=0 ^ P DATA NDRETE p P XIF P IFF NTONSU=0 U =1 P IFT VU=1 P DATA VUCHRI P XIF P IFF NTONSU=0 U =1 PDTABLN EQU *-INPTA
0x0747c4…074958 Dummy {f00=0x0050, f01=0x0190, f02=»TONSU=0 U =1 P IFT LT=1 P DATA LTSTBL & P XIF : P IFF NTONSU=0 U =1 F P* ` P IFT RT=0 j P DATA NDRETE | P XIF P IFF NTONSU=0 U =1 P IFT RT=1 P DATA RTSTBL P XIF P IFF NTONSU=0 U =1 P*
0x074958…074aec Dummy {f00=0x0050, f01=0x0190, f02=»TONSU=0 U =1 P* P IFT AS=0 P DATA NDRETE 0 P XIF D P IFF NTONSU=0 U =1 P P IFT AS=1 j P DATA ASSTBL | P XIF P IFF NTONSU=0 U =1 P* P IFT FT=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1
0x074aec…074c80 Dummy {f00=0x0050, f01=0x0190, f02=» P IFF NTONSU=0 U =1 P IFT PL=1 P DATA PLSTBL 0 P XIF D P IFF NTONSU=0 U =1 P P* j P IFT PR=0 t P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PR=1 P DATA PRSTBL P XIF P IFF NTONSU=0 U =1
0x074c80…074e14 (1, 147) Dummy {f00=0x0050, f01=0x0190, f02=» P IFF NTONSU=0 U =1 P* P* ( P* CHARACTER OUTPUT 2 POUPTAB EQU * R P IFT LT=0 f P DATA NDRETE x P XIF P IFF NTONSU=0 U =1 P IFT LT=1 P DATA LTCHRO P XIF P IFF NTONSU=0 U =1 P* P
0x074e14…074fa8 Dummy {f00=0x0050, f01=0x0190, f02=»U=0 U =1 P* P IFT SL=0 P DATA NDRETE , P XIF @ P IFF NTONSU=0 U =1 L P IFT SL=1 f P DATA SLCHRO x P XIF P IFF NTONSU=0 U =1 P* P IFT AS=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P
0x074fa8…07513c Dummy {f00=0x0050, f01=0x0190, f02=» IFF NTONSU=0 U =1 P IFT FT=1 P DATA FTCHRO , P XIF @ P IFF NTONSU=0 U =1 L P* f P IFT PL=0 p P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PL=1 P DATA PLCHRO P XIF P IFF NTONSU=0 U =1 P
0x07513c…0752d0 Dummy {f00=0x0050, f01=0x0190, f02=» IFF NTONSU=0 U =1 P* ! P IFT VU=0 ! $ P DATA NDRETE ! 6 P XIF ! J P IFF NTONSU=0 U =1 ! V P IFT VU=1 ! p P DATA VUCHRO ! P XIF ! P IFF NTONSU=0 U =1 ! P* ! P* ! P* END OF BLOCK ! PENBTAB EQU * ! P IFT LT=
0x0752d0…075464 Dummy {f00=0x0050, f01=0x0190, f02=» ! ~ P* " P IFT RT=0 " P DATA NDRETE " $ P XIF " 8 P IFF NTONSU=0 U =1 " D P IFT RT=1 " ^ P DATA RTENBL " p P XIF " P IFF NTONSU=0 U =1 " P* " P IFT SL=0 " P DATA NDRETE " P XIF " P IFF NTONSU=0 U =1 " P IFT SL=
0x075464…0755f8 Dummy {f00=0x0050, f01=0x0190, f02=»NSU=0 U =1 " P IFT AS=1 # P DATA ASENBL # $ P XIF # 8 P IFF NTONSU=0 U =1 # D P* # ^ P IFT FT=0 # h P DATA NDRETE # z P XIF # P IFF NTONSU=0 U =1 # P IFT FT=1 # P DATA FTENBL # P XIF # P IFF NTONSU=0 U =1 # P* #
0x0755f8…07578c Dummy {f00=0x0050, f01=0x0190, f02=»NSU=0 U =1 # P* $ P IFT PR=0 $ P DATA NDRETE $ . P XIF $ B P IFF NTONSU=0 U =1 $ N P IFT PR=1 $ h P DATA PRENBL $ z P XIF $ P IFF NTONSU=0 U =1 $ P* $ P IFT VU=0 $ P DATA NDRETE $ P XIF $ P IFF NTONSU=0 U =1 $
0x07578c…075920 Dummy {f00=0x0050, f01=0x0190, f02=»QU * $ P IFT LT=0 % P DATA TDISP % P XIF % 2 P IFF NTONSU=0 U =1 % > P IFT LT=1 % X P DATA LTDISP % j P XIF % ~ P IFF NTONSU=0 U =1 % P* % P IFT RT=0 % P DATA TDISP % P XIF % P IFF NTONSU=0 U =1 % P IFT RT=1 %
0x075920…075ab4 (1, 148) Dummy {f00=0x0055, f01=0x0190, f02=»U =1 % P IFT SL=1 & P DATA SLDISP & P XIF & 2 P IFF NTONSU=0 U =1 & > P* & X P IFT AS=0 & b P DATA TDISP & t P XIF & P IFF NTONSU=0 U =1 & P IFT AS=1 & P DATA ASDISP & P XIF & P IFF NTONSU=0 U =1 & P* & P IFT
0x075ab4…075c48 Dummy {f00=0x0055, f01=0x0190, f02=»U =1 & P* ' P IFT PL=0 ' P DATA TDISP ' ( P XIF ' < P IFF NTONSU=0 U =1 ' H P IFT PL=1 ' b P DATA PLDISP ' t P XIF ' P IFF NTONSU=0 U =1 ' P* ' P IFT PR=0 ' P DATA TDISP ' P XIF ' P IFF NTONSU=0 U =1 ' P IFT
0x075c48…075ddc Dummy {f00=0x0055, f01=0x0190, f02=» NTONSU=0 U =1 ' P IFT VU=1 ( P DATA VUDISP ( ( P XIF ( < P* ( H P EJECT ( R P* ( ` P* INTERRUPT TABLES ( j P* ( P IFT LT=0 U =2 ( P* DUMMY ENTRIES CHLT ( PINTLT1 EQU * U =2 ( PINTLT2 EQU * U =2 ( PINTLT3 EQU *
0x075ddc…075f70 Dummy {f00=0x0055, f01=0x018e, f02=»T2 DATA 0 U =2 ( PINTLT3 DATA 0 U =2 ) PINTLT4 DATA 0 U =2 ) 0 P XIF U =2 ) J P* ) P IFT RT=0 U =2 ) f P* DUMMY ENTRIES CHRT ) | PINTRT1 EQU * U =2 ) PINTRT2 EQU * U =2 ) PINTRT3 EQU * U =2 ) PINTRT4 EQU * U =2 ) P XIF
0x075f70…076104 Dummy {f00=0x0055, f01=0x0190, f02=» ) | PINTRT4 DATA 0 U =2 * P XIF U =2 * " P* * 4 P IFT SL=0 U =2 * > P* DUMMY ENTRIES SALCUZ * T PINTSL1 EQU * * t PINTSL2 EQU * U =2 * PINTSL3 EQU * U =2 * PINTSL4 EQU * U =2 * PINTSL5 EQU * U =2 * PINTSL6 EQU * U =2 *
0x076104…076298 Dummy {f00=0x0055, f01=0x0190, f02=»0 U =2 * PINTSL2 DATA 0 U =2 + PINTSL3 DATA 0 U =2 + ( PINTSL4 DATA 0 U =2 + B PINTSL5 DATA 0 U =2 + PINTSL6 DATA 0 U =2 + v PINTSL7 DATA 0 U =2 + PINTSL8 DATA 0 U =2 + P XIF U =2 + P* + P IFT AS=0 U =2 + P* DUMMY ENTRIES
0x076298…07642c Dummy {f00=0x0055, f01=0x0190, f02=» + ~ PINTAS6 EQU * U =2 , PINTAS7 EQU * U =2 , " PINTAS8 EQU * U =2 , < P XIF U =2 , V P* , h P IFT AS=1 U =2 , r P* ASCU4Z , PINTAS1 DATA 0 U =2 , PINTAS2 DATA 0 U =2 , PINTAS3 DATA 0 U =2 , PINTAS4 DATA 0 U =2 , PINTA
0x07642c…0765c0 Dummy {f00=0x0055, f01=0x0190, f02=»0 U =2 , " P* DUMMY ENTRIES PLC - LOCAL - PINTPL1 EQU * U =2 - 4 PINTPL2 EQU * U =2 - N PINTPL3 EQU * U =2 - h PINTPL4 EQU * U =2 - P XIF U =2 - P* - P IFT PL=1 U =2 - P* PLC - LOCAL - PINTPL1 DATA 0 U =2 - PINTPL2 D
0x0765c0…076754 (1, 149) Dummy {f00=0x005d, f01=0x0190, f02=»ES PLC - REMOTE - PINTPR1 EQU * U =2 . PINTPR2 EQU * U =2 . 2 PINTPR3 EQU * U =2 . L PINTPR4 EQU * U =2 . f P XIF U =2 . P* . P IFT PR=1 U =2 . P* PLC - REMOTE . PINTPR1 DATA 0 U =2 . PINTPR2 DATA 0 U =2 . PINTPR3 D
0x076754…0768e8 Dummy {f00=0x005d, f01=0x0190, f02=» * U =2 . PINTVU2 EQU * U =2 / PINTVU3 EQU * U =2 / * PINTVU4 EQU * U =2 / D PINTVU5 EQU * U =2 / ^ PINTVU6 EQU * U =2 / x PINTVU7 EQU * U =2 / PINTVU8 EQU * U =2 / P XIF U =2 / P* / P IFT VU=1 U =2 / P* VIDEO /
0x0768e8…076a7c Dummy {f00=0x005d, f01=0x0190, f02=»U6 DATA 0 U =2 / PINTVU7 DATA 0 U =2 0 PINTVU8 DATA 0 U =2 0 0 P XIF U =2 0 J P* 0 P EJECT 0 f P* 0 t P************************** 0 ~ P* DEVICE DRIVER ROUTINES * 0 P************************** 0 P* 0 B P* THIS SECTION CONTAINS
0x076a7c…076c10 Dummy {f00=0x005d, f01=0x0190, f02=»R SWITCH CONTROL TO THE LINE DRIVER TO WHICH 0 | D P* THE DEVICE IS CONNECTED. WHEN THE LINE DRIVER HAS PERFORMED 1 4 D P* THE REQUESTED ACTIONS, IT WILL RETURN TO THE DEVICE DRIVER, 1 | D P* EITHER DIRECTLY OR THROUGH THE TERMINAL NETWORK DISTRIBUTOR 1
0x076c10…076da4 Dummy {f00=0x005d, f01=0x0190, f02=»RETURN TO THE DEVICE 1 f P* DRIVER. 2 P* 2 0 P* 2 : 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: 2 D P* 2 x P* NAME FUNCTION 2 P* 2 2 P* INPUT FETCH ONE CHARACTER FROM INPUT DEVICE 2 * P* STABLK DEFINE START OF OUTPUT BLOCK 2 0 P
0x076da4…076f38 Dummy {f00=0x005d, f01=0x0190, f02=» 2 h $ P* ECHRTN RETURN FROM ECHO OUTPUT 3 * P* GETCHR GET CHARACTER FROM ECB BUFFER 3 0 * P* ABORT SET INPUT NO LONGER REQUESTED 3 ^ . P* LDISP DISPATCH AT I/O REQUEST COMPLETED 3 P* 3 P EJECT 3 P* 3 @ P****************************************
0x076f38…0770cc Dummy {f00=0x005d, f01=0x018e, f02=» OF ONE CHARACTER 3 t 0 P* FROM A DEVICE TO A TERMINAL DEVICE DRIVER. 4 P* 4 N P* CALL: 4 X P* CF A5,INPUT 4 h P* 4 ~ P* INPUT: 4 P* A5 = LOCAL STACK POINTER 4 P* A6 = DWT ADDRESS 4 P* 4 P* OUTPUT: 4 & P* A1 = BITS 0-14 N
0x0770cc…077260 Dummy {f00=0x005d, f01=0x0190, f02=» P* 5 @ P************************************************************ 5 P* 5 R PINPUT EQU * 5 P IFF NTONSU=0 U =1 5 p & P LC A1,DWTCHP,A6 CHANNEL PARAMETER 5 ( P ANK A1,MASKCT CLEAN CONNECTION TYPE 5 P SLA A1,1 MAKE INDEX 5 P CWK A1,DTAB
0x077260…0773f4 (1, 150) Dummy {f00=0x005e, f01=0x0190, f02=»U =1 5 & P ABL LTCHRI ACTIVATE SUM-DRIVER =1 6 P XIF U =1 6 6 P* 6 H P EJECT 6 R P* 6 ` @ P************************************************************ 6 j P* 6 P* ROUTINE NAME: 6 P* STABLK 6 P* 6 P* FUNCTION: 6 6 P* THIS ROU
0x0773f4…077588 Dummy {f00=0x005e, f01=0x0190, f02=»OCK VARIES FOR 6 n P* DIFFERENT LINE DRIVERS. 7 P* 7 8 P* CALL: 7 B P* CF A5,STABLK 7 R P* 7 h P* INPUT: 7 r . P* A2 = MAXIMAL NR OF CHARACTERS IN BLOCK 7 P* A5 = LOCAL STACK POINTER 7 P* A6 = DWT ADDRESS 7 P* 7 P* OUTPUT:
0x077588…07771c Dummy {f00=0x005e, f01=0x0190, f02=» = CONTENTS OF A1 7 P* 8 @ P************************************************************ 8 $ P* 8 h PSTABLK EQU * 8 r & P LC A1,DWTCHP,A6 CHANNEL PARAMETER 8 P IFF NTONSU=0 U =1 8 ( P ANK A1,MASKCT CLEAN CONNECTION TYPE 8 P SLA A1,1 MAKE IND
0x07771c…0778b0 Dummy {f00=0x005e, f01=0x0190, f02=» 8 P IFT NTONSU=0 U =1 9 " P ANK A1,1 LOCAL OR REMOTE ? =1 9 " P ABL(Z) LTSTBL LOCAL =1 9 H P ABL RTSTBL REMOTE =1 9 h P XIF U =1 9 P EJECT 9 P* 9 @ P************************************************************ 9 P* 9 P* ROUTINE
0x0778b0…077a44 Dummy {f00=0x005e, f01=0x0190, f02=»CE DRIVER TO A DEVICE. 9 z P* : P* CALL: : ( P* CF A5,OUTPUT : 8 P* : N P* INPUT: : X P* A2 = BITS 0-7 IRRELEVANT : h P* BITS 8-15 CHARACTER : P* A5 = LOCAL STACK POINTER : P* A6 = DWT ADDRESS : P* : P* OUTPUT: : P
0x077a44…077bd8 Dummy {f00=0x005e, f01=0x0190, f02=»ENTS OF A1 : P* ; @ P************************************************************ ; P* ; ` POUTPUT EQU * ; j P IFF NTONSU=0 U =1 ; ~ & P LC A1,DWTCHP,A6 CHANNEL PARAMETER ; ( P ANK A1,MASKCT CLEAN CONNECTION TYPE ; P SLA A1,1 MAKE INDEX ;
0x077bd8…077d6c Dummy {f00=0x005e, f01=0x0190, f02=» IFT NTONSU=0 U =1 ; & P ABL LTCHRO ACTIVATE SUM-DRIVER =1 < P XIF U =1 < D P* < V P EJECT < ` P* < n @ P************************************************************ < x P* < P* ROUTINE NAME: < P* ENDBLK < P* < P* FUNCTION: <
0x077d6c…077f00 Dummy {f00=0x005e, f01=0x0190, f02=» END OF BLOCK VARIES FOR < z P* DIFFERENT LINE DRIVERS. = P* = B P* CALL: = L P* CF A5,ENDBLK = P* = r P* INPUT: = | P* A5 = LOCAL STACK POINTER = P* A6 = DWT ADDRESS = P* = P* OUTPUT: = P* A1 = RETURN CODE = P* 0
0x077f00…078094 (1, 151) Dummy {f00=0x005e, f01=0x0190, f02=»******************************************************** = P* > @ PENDBLK EQU * > J & P LC A1,DWTCHP,A6 CHANNEL PARAMETER > ^ P IFF NTONSU=0 U =1 > ( P ANK A1,MASKCT CLEAN CONNECTION TYPE > P SLA A1,1 MAKE INDEX > P CWK A1,DTABLN INSIDE LIMIT? >
0x078094…078228 Dummy {f00=0x005e, f01=0x018e, f02=»1,1 LOCAL OR REMOTE ? =1 > P ABL(Z) LTENBL LOCAL =1 ? P ABL RTENBL REMOTE =1 ? @ P XIF U =1 ? ^ P* ? p P EJECT ? z P* ? @ P************************************************************ ? P* ? P* ROUTINE NAME: ? P* ECHO ? P*
0x078228…0783bc Dummy {f00=0x005e, f01=0x0190, f02=» ? d 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, @ 2 P* LOAD STACKBASE AND FIND ADDRESS @ @ 4 P* TO DEVICE-DEPENDENT ECHO-ROUTINE @ v . P* PART TWO: ECHO ONE OR MORE CHARACTERS @ 2 P* CORRESPONDING TO ONE CHAR
0x0783bc…078550 Dummy {f00=0x005e, f01=0x0190, f02=»E DRIVER MODULE CORRESPONDING TO ECHO @ P* OUTPUT DEVICE A . P* A H 4 P* ECHO IS USED WHEN A CHARACTER SHOULD BE ECHOED A R , P* ECHEND IS USED AT END OF INPUT REQUEST A 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A A P* JUMP TO 'ECHRTN
0x078550…0786e4 Dummy {f00=0x005e, f01=0x0190, f02=» SIGNIFICANT A p 4 P* BIT 15 1 IF MORE CHARACTERS B & P* A2 = BITS 0-7 NOT SIGNIFICANT B L & P* BITS 8-17 CHARACTER (IF ECHO) B v P* A5 = LOCAL STACK POINTER B P* A6 = DWT ADDRESS B P* B P EJECT B P* B P* OUTP
0x0786e4…078878 Dummy {f00=0x005e, f01=0x0190, f02=»5 1 IF MORE CHARACTERS B x $ P* A2 = BITS 0-7 ZERO (IF ECHO) C & P* BITS 8-15 CHARACTER (IF ECHO) C H P* A5 = LOCAL STACK POINTER C r ( P* A6 = ADDRESS OF OUTPUT DEVICE DWT C * P* A7 = BIT 0 0 IF ECHO, 1 IF ECHEND C " P* BITS 1-15 NOT SIGNI
0x078878…078a0c Dummy {f00=0x005e, f01=0x0190, f02=»******************************************************** C P* D @ PECHEND EQU * D J P* D ^ P IFT CECHO=1 D h , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT D | ( P LDKL A7,/8000 INDICATE END OF ECHO D P RF ECHO10 D P* D P EJECT D P* D
0x078a0c…078ba0 Dummy {f00=0x005e, f01=0x0190, f02=»ND OF ECHO D x P* E P* E PECHO10 EQU * E & P LD A3,DWTST,A6 STATUS E : $ P ANKL A3,DWFECH ECHO REQUESTED? E X P RF(Z) NDREP NO, RETURN E P* E 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE E 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEV
0x078ba0…078d34 (1, 152) Dummy {f00=0x005f, f01=0x0190, f02=» ANK A2,/FF CLEAN CHARACTER E . P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK F $ 6 P ABI ECHADR,A3 GO TO ECHO-ROUTINE DEVICE-DEPENDENT F V P XIF F P* F P EJECT F P* F @ P************************************************************ F P* F
0x078d34…078ec8 Dummy {f00=0x005f, f01=0x0190, f02=»* IS READY WITH ECHOING ACTIONS, AND WANTS TO LEAVE F * P* CONTROL BACK TO INPUT DEVICE DRIVER. G < P* G j P* CALL: G t P* ABL ECHRTN G P* G P* INPUT: G ( P* A6 = DWT ADDRESS OF OUTPUT DEVICE G P* G P* OUTPUT: G $ P* AT ENTR
0x078ec8…07905c Dummy {f00=0x005f, f01=0x0190, f02=» PECHRTN EQU * H P IFT CECHO=1 H 0 P LD A6,DWTWAT,A6 DWT-ADDRESS OF INPUT DEVICE H , , P RF NDREP RELOAD A3-A5, A7-A8 AND RETURN H ` P XIF H P* H P EJECT H P* H @ P************************************************************ H P* H
0x07905c…0791f0 Dummy {f00=0x005f, f01=0x0190, f02=»BUFFER AND INCREMENT THE BUFFER INDEX. H 2 P* IF NO CHARACTER IS LEFT, INDEX IS STORED IN I . P* ECB REQUESTED LENGTH. I d P* I P* CALL: I P* CF A15,GETCHR I P* I P* INPUT: I P* A3 = BUFFER INDEX I P* A8 = ECB ADDRESS I P
0x0791f0…079384 Dummy {f00=0x005f, f01=0x0190, f02=» & P* BITS 8-15 CHARACTER (IF A1>0) J ( P* A3 = UPDATED BYTE INDEX (IF A1>0) J . P* CR = CHANGED J Z P* INTERR. ENABLED J r P* J @ P************************************************************ J P* J PGETCHR EQU * J $ P LD A1,ECBRL,A8
0x079384…079518 Dummy {f00=0x005f, f01=0x0190, f02=»8 GET BUFFER ADDRESS J P ADR A2,A3 K P LCR A2,A2 CHAR. TO A2 K . P ANK A2,/FF K L $ P ADK A3,1 INCREMENT BUFFER INDEX K ` P RF GCH020 K P* K P* K PGCH010 EQU * K * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH K PGCH020 EQU * K " P ADK
0x079518…0796ac Dummy {f00=0x005f, f01=0x0190, f02=»************************ K l P* L P* ROUTINE NAME: L * P* ABORT L B P* L R P* FUNCTION: L : P* THIS ROUTINE RESETS THE INPUT REQUESTED FLAG IN DWT. L p : P* IT IS USED AT ABORT REQUESTS, WHEN A REQUESTED INPUT L P* IS NO LONGER WANTED. L
0x0796ac…079840 Dummy {f00=0x005f, f01=0x0190, f02=» = CHANGED L P* CR = CHANGED M P* M , @ P************************************************************ M 6 P* M z PABORT EQU * M 2 P LDKL A1,/FFFF-DWFINP MASK FOR INPUT REQUESTED M P ANS A1,DWTST,A6 RESET FLAG M P IFT CPU852=1 M P
0x079840…0799d4 (1, 153) Dummy {f00=0x005f, f01=0x018e, f02=»********************************************** M P* N 6 P* ROUTINE NAME: N @ P* LDISP N X P* N h P* FUNCTION: N r 8 P* THIS ROUTINE PERFORMS DISPATCHING FOR THE TERMINAL N 8 P* DEVICE DRIVERS. IT ALSO PROVIDES QUICK EXITS FROM N 0 P* DEVICE D
0x0799d4…079b68 Dummy {f00=0x005f, f01=0x0190, f02=» P* INPUT: O $ P* A1 = RETURN CODE (IF LENDIS) O P* A6 = DWT ADDRESS O < P* O X P* OUTPUT: O b 2 P* AT ENTRY TO LINE DRIVER DISPATCH ENTRY: O t P* A6 = DWT ADDRESS O P* O @ P********************************************************
0x079b68…079cfc Dummy {f00=0x005f, f01=0x018e, f02=»UEST O v P* P P EJECT P P* P $ PLDISP EQU * P . P IFF NTONSU=0 U =1 P B & P LC A1,DWTCHP,A6 CHANNEL PARAMETER P ( P ANK A1,MASKCT CLEAN CONNECTION TYPE P P SLA A1,1 MAKE INDEX P P CWK A1,DTABLN INSIDE LIMIT? P 0 P ABI(L) ENRTAB,A1 YES,
0x079cfc…079e90 Dummy {f00=0x005f, f01=0x018e, f02=» P v P* LINE DRIVER ROUTINES * Q P************************ Q ( P* Q H F P* THIS SECTION CONTAINS AN EXIT ROUTINE THAT CAN BE USED BY THE Q R : P* LINE DRIVERS WHEN RETURNING TO THE DEVICE DRIVER. Q > P* IT ALSO CONTAINES A NUMBER OF SERVICE SUBR
0x079e90…07a024 Dummy {f00=0x005f, f01=0x0190, f02=» P* R P* NAME FUNCTION R P* R & $ P* NDRET RETURN TO DEVICE DRIVER R 0 & P* NDSAV8 SAVE A3-A5, A7-A8 IN DWT R X & P* NDGET8 GET A3-A5, A7-A8 FROM DWT R 8 P* NDREWS CALL RECOVERY FOR ALL DWT:S ON WORK STATION R * P* NDREDW CALL RECOVERY ROUTINE F
0x07a024…07a1b8 Dummy {f00=0x005f, f01=0x0190, f02=»************************************************************ R P* S D P* ROUTINE NAME: S N P* NDRET S f P* S v P* FUNCTION: S 4 P* THIS ROUTINE CONTAINS A NUMBER OF ENTRIES FOR S 0 P* RETURNING TO THE TERMINAL DEVICE DRIVERS. S 4 P* THEY C
0x07a1b8…07a34c Dummy {f00=0x005f, f01=0x0190, f02=» ALSO CONTAINS A "RTN A15" S . P* SIMULATION THAT DOESN'T PERFORM ENABLE. T $ P* T V P* CALL: T ` P* RF "NAME" T p P* RB "NAME" T P* ABL "NAME" T P* T P* INPUT: T , P* A5 = LOCAL STACK POINTER (IF NDRETX) T $ P* A6 = DWT ADDRES
0x07a34c…07a4e0 Dummy {f00=0x005f, f01=0x0190, f02=»NDLING ROUTINE T n P* U @ P************************************************************ U P* U d PNDRETE EQU * U n & P LDK A1,CONFER CONFIGURATION ERROR U P RF NDRET RETURN U P* U P EJECT U P* U PNDREPO EQU * U , P CF A15,NDGET8
0x07a4e0…07a674 (1, 154) Dummy {f00=0x005f, f01=0x0190, f02=» U P* V PNDREP EQU * V , P CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT V & PNDRET EQU * V V P ENB V j & P ADK A5,4 ADJUST STACK FOR RETURN V v P LDR A1,A1 SET CR V $ P ABR* A5 RETURN TO DEVICE DRIVER V P* V P* V P IFT CPU852=1 V
0x07a674…07a808 Dummy {f00=0x005f, f01=0x0190, f02=»****************************************** V ~ P* W 2 P* ROUTINE NAME: W < P* NDSAV8 W T P* W d P* FUNCTION: W n 6 P* THIS ROUTINE SAVES REGISTERS A3, A4, A5, A7 AND W P* A8 IN A SAVE AREA IN DWT. W P* W P* CALL: W P* CF A15,NDSAV
0x07a808…07a99c Dummy {f00=0x005f, f01=0x0190, f02=»************************************************** W P* X : PNDSAV8 EQU * X D " P* SAVE A3-A5, A7-A8 IN DWT X X P ST A3,DWTA3,A6 X ~ P ST A4,DWTA4,A6 X P ST A5,DWTA5,A6 X P ST A7,DWTA7,A6 X P ST A8,DWTA8,A6 X P* X P IFT CPU
0x07a99c…07ab30 Dummy {f00=0x005f, f01=0x018e, f02=»************************************************************ X P* Y D P* ROUTINE NAME: Y N P* NDGET8 Y f P* Y v P* FUNCTION: Y 8 P* THIS ROUTINE FETCHES REGISTERS A3, A4, A5, A7 AND Y " P* A8 FROM A SAVE AREA IN DWT. Y P* Y P* CALL:
0x07ab30…07acc4 Dummy {f00=0x005f, f01=0x0190, f02=» P* Z @ P************************************************************ Z P* Z R PNDGET8 EQU * Z " P* GET A3-A5, A7-A8 FROM DWT Z p P LD A3,DWTA3,A6 Z P LD A4,DWTA4,A6 Z P LD A5,DWTA5,A6 Z P LD A7,DWTA7,A6 Z P LD A8,DWTA8,A6 Z
0x07acc4…07ae58 Dummy {f00=0x005f, f01=0x0190, f02=» EJECT Z P* [ @ P************************************************************ [ P* [ P* ROUTINE NAME: [ f P* NDREWS [ ~ P* [ P* FUNCTION: [ 8 P* THIS ROUTINE CALLS RECOVERY ROUTINES FOR ALL DWT:S [ : P* ON A WORK STATION, EXEPT FOR T
0x07ae58…07afec Dummy {f00=0x005f, f01=0x0190, f02=»= WORK STATION TABLE ADDRESS [ P* A4 = RECOVERY CAUSE $ P* A6 = WORK STATION NUMBER B P* f P* OUTPUT: p ( P* AT ENTRY TO RECOVERY ROUTINE: P* SEE NDREDW P* AT SUBROUTINE RETURN: P* CR = CHANGED P* INTERR.
0x07afec…07b180 Dummy {f00=0x005f, f01=0x0190, f02=»0 U =1 P IFT CPU852=1 ] P CF A15,SAVE8 PUSH A1-A8 ] $ P XIF ] D P IFF NTONSU=0 U =1 ] P P IFF CPU852=1 ] j P MSR 8,A15 PUSH A1-A8 ] P XIF ] P IFF NTONSU=0 U =1 ] P* ] P EJECT ] P* ] P LDR A8,A6 SAVE WS NUMBER ] * P
0x07b180…07b314 (1, 155) Dummy {f00=0x0061, f01=0x018e, f02=»100 EQU * ] P SUK A7,1 NEXT DWT ^ " P RF(N) RW120 EXIT IF ALL DONE ^ , " P LDR A6,A8 WORK STATION NUMBER ^ R * P LDR A1,A3 WORK STATION TABLE ADDRESS ^ x $ P CF A15,NDGEDW A6 := DWT ADDRESS ^ P* ^ P LDR A6,A6 DWT DEFINED? ^ P RB(Z) RW100 NO,
0x07b314…07b4a8 Dummy {f00=0x0061, f01=0x0190, f02=» & P* CHECK IF OUTPUT ECHO DEVICE _ P LD A1,DWTST,A6 DWT STATUS _ . P LDR A2,A1 SAVE _ P P ANKL A1,DWFECH ECHO MODE? _ h P RF(Z) RW110 NO, CONTINUE _ " P ANKL A2,DWFINP INPUT DEVICE? _ , P RB(Z) RW100 NO, ECHO OUTPUT. TAKE NEXT _ P* _
0x07b4a8…07b63c Dummy {f00=0x0061, f01=0x0190, f02=» ALL DWT:S HANDLED _ P ABL TDISP RETURN ` P XIF U =1 ` 6 P* ` H P EJECT ` R P* ` ` @ P************************************************************ ` j P* ` P* ROUTINE NAME: ` P* NDREDW ` P* ` P* FUNCTION: ` < P* THIS ROU
0x07b63c…07b7d0 Dummy {f00=0x0061, f01=0x0190, f02=»NED, DWT IS BUSY BUT NO REQUEST ` x : P* IS ON, TENDIO IS CALLED TO ACTIVATE TERMINAL QUEUE. a ( P* a f P* CALL: a p P* CF A15,NDREDW a P* a P* INPUT: a P* A4 = RECOVERY CAUSE a P* A6 = DWT ADDRESS a P* a P* OUTPUT: a ( P
0x07b7d0…07b964 Dummy {f00=0x0061, f01=0x0190, f02=» = BITS 0-9 ZERO a ( P* BITS 10-15 ORDER (IF REQUEST ON) b & P* A8 = ECB ADDRESS IF REQUEST ON, b F P* ELSE ZERO b p P* INTERR. ENABLED b P* AT SUBROUTINE RETURN: b P* CR = CHANGED b P* INTERR. CHANGED b P* b @ P********
0x07b964…07baf8 Dummy {f00=0x0061, f01=0x0190, f02=» CF A15,SAVE8 PUSH A1-A8 b P XIF c P IFF CPU852=1 c , P MSR 8,A15 PUSH A1-A8 c B P XIF c ` P ENB c l P* c x P LDR A5,A6 DWT ADDRESS c P ADKL A5,DWTSB2 STACK BASE c P LC A7,DWTOR+1,A6 ORDER c P ANK A7,/3F CLEAN c P LD A8,DWTEC
0x07baf8…07bc8c Dummy {f00=0x0061, f01=0x0190, f02=»Y IF DEFINED c x P* d P* d : P* NO RECOVERY. CALL TENDIO IF BUSY BUT NO REQUEST d ( P LD A2,DWTST,A6 DWT STATUS d f P ANKL A2,DWFBSY BUSY? d P RF(NZ) RD100 NO, EXIT d P LDR A8,A8 REQUEST ON? d & P ABL(Z) DISEND NO, TENDIO & RETURN d
0x07bc8c…07be20 Dummy {f00=0x0061, f01=0x0190, f02=»******** d P* e P* ROUTINE NAME: e P* NDGEDN e 2 P* e B P* FUNCTION: e L 4 P* THIS ROUTINE CALCULATES THE HIGEST DWT NUMBER e ` 8 P* (POSITION NUMBER IN DWT TABLE) FOR A WORK STATION. e P* e P* CALL: e P* CF A15,NDGEDN e P*
0x07be20…07bfb4 (1, 156) Dummy {f00=0x0062, f01=0x0190, f02=»A7 = HIGEST DWT NUMBER (0-7) e P* -1 IF NO DWT:S FOUND f & P* CR = CHANGED f F P* f ^ @ P************************************************************ f h P* f PNDGEDN EQU * f P IFF NTONSU=0 U =1 f P STR A6,A15 PUSH WS NUMBER f P L
0x07bfb4…07c148 Dummy {f00=0x0062, f01=0x0190, f02=»GN100 YES, EXIT f P* g P EJECT g " P* g 0 P ADR A6,A1 g : " P LDR* A6,A6 DWT ADDRESS TABLE g L " P RF(Z) GN100 NOT DEFINED, EXIT g r P LD A7,-2,A6 TABLE LENGTH g P SUK A7,2 OFFSET TO LAST DWT g P SRA A7,1 NUMBER OF LAST DWT g P RF GN
0x07c148…07c2dc Dummy {f00=0x0062, f01=0x018e, f02=» IFT CPU852=1 g P RB RTNP15 RETURN h P XIF h 0 P IFF NTONSU=0 U =1 h < P IFF CPU852=1 h V P RTN A15 h l P XIF h | P* h P EJECT h P* h @ P************************************************************ h P* h P* ROUTINE NAME:
0x07c2dc…07c470 Dummy {f00=0x0062, f01=0x0190, f02=» P* CALL: i P* CF A15,NDGEDW i P* i , P* INPUT: i 6 2 P* A1 = ADDRESS OF WORK STATION TABLE (INTXXN) i F P* A6 = WORK STATION NUMBER i | P* A7 = DEVICE ADDRESS i P* i P* OUTPUT: i P* A6 = DWT ADDRESS IF FOUND i P* ELSE 0
0x07c470…07c604 Dummy {f00=0x0062, f01=0x0190, f02=» P IFF NTONSU=0 U =1 j * P SLL A7,1 MAKE INDEX OF DEVICE ADDRESS j P LDR A1,A1 WS TABLE DEFINED? j L P RF(Z) GD100 NO, EXIT j p * P SLL A6,1 INDEX IN WORK STATION TABLE j P CW A6,-2,A1 INSIDE TABLE? j P RF(NL) GD100 NO, ERROR j P* j P
0x07c604…07c798 Dummy {f00=0x0062, f01=0x0190, f02=»NDEX TOO HIGH? j P RF(NL) GD100 YES, EXIT k P ADR A6,A7 k 6 P LDR* A6,A6 DWT ADDRESS OR 0 k H P RF GD110 EXIT k l P* k PGD100 EQU * k P LDK A6,0 DWT NOT FOUND k PGD110 EQU * k $ P SRL A7,1 RESTORE DEVICE ADDRESS k P IFT CPU852=
0x07c798…07c92c Dummy {f00=0x0062, f01=0x4022, f02=» k P* l P END l @ l 0 YES, EXIT k P ADR A6,A7 k 6 P LDR* A6,A6 DWT ADDRESS OR 0 k H P RF GD110 EXIT k l P* k PGD100 EQU * k P LDK A6,0 DWT NOT FOUND k PGD110 EQU * k $ P SRL A7,1 RESTORE DEVICE ADDRESS k P IFT CPU852=
0x07c92c…07cac0 Dummy {f00=0x0062, f01=0x2008, f02=» m " " " " "("0"8"@
0x07cac0…07cc54 (1, 157) Dummy {f00=0x0062, f01=0x0190, f02=» P* V 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS V & P LDKL A2,/8000 OPEN/CLOSE BIT MASK V D $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG V n P ORS A2,DWTOCF,A6 SAVE V ( P XRRS A2,A4 SET STATUS WORD TO OPEN V P LDR* A2,A4 V & P OTR A2,0,SOPDA SET
0x07cc54…07cde8 Dummy {f00=0x0062, f01=0x018e, f02=»2,1 V PFDON25 EQU * W " P LD A1,DWTLC,A6 LOCK INDICATOR W P ANR A1,A2 W F P RF(Z) FDON30 NOT LOCKED W X P ST A2,DWTA3,A6 SAVE W x P* W P EJECT W P* W P* PUT DRIVE NO IN CIO INSTR W P* W P SRN A2,A3 DRIVE NO IN A3 W * P C
0x07cde8…07cf7c Dummy {f00=0x0062, f01=0x0190, f02=» W P RF(Z) FDON30 OK X $ P XRS A2,DWTLC,A6 INDICATE UNLOCK X PFDON30 EQU * X H P SLL A2,1 X P CWK A2,/0010 X n P RB(NE) FDON25 X P* X P IFT OPCLOS=1 X P* X D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF X
0x07cf7c…07d110 Dummy {f00=0x0062, f01=0x0190, f02=»I OPEN/CLOSE STATUS X 0 P OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED Y P XIF Y P P* Y P EJECT Y f P* Y t P* ANY REQUEST Y ~ P* Y P CM DWTA2,A6 RESET FDON FLAG Y PFDON60 EQU * Y P LD A8,DWTECB,A6 Y 0 P ABL(Z) END:IO NO REQUEST,
0x07d110…07d2a4 Dummy {f00=0x0062, f01=0x0190, f02=»,DWTOR,A6 RESTORE INDEX AND ORDER Y ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH Z * P ANK A7,/3F ORDER Z V P ABL FDAD REACTIVATE Z p P* Z P EJECT DRFD01 Z P* Z P******************** Z P* * Z P* READY INTERRUPT * Z
0x07d2a4…07d438 Dummy {f00=0x0062, f01=0x0190, f02=»ROUTINE ACTIVE Z x P LDKL A5,DWTSB2 [ P ADR A5,A6 STACK BASE [ . P* [ L P IFT TOSS+IBM=0 [ V P RB FDON60 [ n P XIF [ P* [ P IFF TOSS+IBM=0 [ 4 P LDKL A3,/7FFE SET UNIT BUSY AND RECOVERY ON =1 [ P ANS A3,DWTST,A6 =6 [ P RB FD
0x07d438…07d5cc Dummy {f00=0x0062, f01=0x0190, f02=»* [ | P* INTERRUPT HANDLER * P* * ( P********************* F P* d PIHFD EQU * n $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 * P CF A15,SAVE8 SAVE REGISTERS ON STACK P XIF P* P IFT C
0x07d5cc…07d760 Dummy {f00=0x0062, f01=0x0190, f02=» & P LD A1,DWTUB,A6 GET BUFFER POINTER ] " P LD A2,DWTUBE,A6 END OF BUFFER ] 2 P SUR A2,A1 LENGTH ] X PIH005 EQU * ] r P SST A3,CUADR GET STATUS ] " P RF(A) IH:000 READY INTERRUPT ] P LD A3,PFPOST ] , P RF(NZ) IHDISP POST PROCESSING FLAG SE
0x07d760…07d8f4 (1, 158) Opaque[0x194]
0x07d8f4…07da88 # DirEnt {nam=»DCADDR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0150, f03=0x0000}
0x07d8f4…07da88 IdxSect {
0x07d8f4…07da88 f00 = 0x000a // 0x7d8f4 @0x0
0x07d8f4…07da88 f01 = 0x000a // 0x7d8f6 @0x2
0x07d8f4…07da88 gno = [ // 0x7d8f8 @0x4
0x07d8f4…07da88 [0x00]: C0x000a.0x2.0
0x07d8f4…07da88 [0x01]: C0x000a.0x3.0
0x07d8f4…07da88 [0x02]: C0x000b.0x0.0
0x07d8f4…07da88 [0x03]: C0x002f.0x3.0
0x07d8f4…07da88 [0x04]: C0x0030.0x0.0
0x07d8f4…07da88 ]
0x07d8f4…07da88 }
0x07da88…07dc1c Dummy {f00=0x000a, f01=0x0190, f02=» 0 P IDENT DCADDR REL 11.0 81-01-26 870105041100 P* 8 4 P*********************************************** B P* z " P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DC:ADR : ADDRESS TRANSLATION ROUTINES FOR * P* DATA COMMUNICATION SO
0x07dc1c…07ddb0 Dummy {f00=0x000a, f01=0x0190, f02=»************************* z P* " P* PROGRAM DESCRIPTION , P* J : P* FOLLOWING SUBROUTINES CAN BE FOUND IN THIS MODULE : T P* 2 P* FNDDNA : FINDS A DTE NETWORK ADDRESS FROM A $ P* SYMBOLIC DTE ADDRESS P* 2 P* FN
0x07ddb0…07df44 Dummy {f00=0x000a, f01=0x0190, f02=»LATES A SYMBOLIC DTE ADDRESS INTO A " P* DTE NETWORK ADDRESS , P* R 6 P* GETDNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A 8 P* SPECIFIED TYPE INTO A DTE NETWORK ADDRESS P* 6 P* GETDSA : TRANSLATES A DTE NETWORK ADDRESS
0x07df44…07e0d8 Dummy {f00=0x000a, f01=0x0190, f02=» SPECIFIED ` 0 P* TYPE INTO A SYMBOLIC DTE ADDRESS P* F 6 P* GETSNA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A P > P* SYMBOLIC SUB-ADDRESS INTO A NETWORK SUB-ADDRESS P* 6 P* GETSNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A
0x07e0d8…07e26c Dummy {f00=0x000a, f01=0x0190, f02=»RANSLATES A SYMBOLIC DTE ADDRESS AND A > P* NETWORK SUB-ADDRESS INTO A SYMBOLIC SUB-ADDRESS . P* p @ P* GETSST : TRANSLATES A SYMBOLIC DTE ADDRESS OF A SPECIFIED z > P* TYPE AND A NETWORK SUB-ADDRESS INTO A SYMBOLIC P*
0x07e26c…07e400 Dummy {f00=0x000a, f01=0x018e, f02=»TRIES P* P ENTRY FNDDNA P ENTRY FNDDNT . P ENTRY GETDNA D P ENTRY GETDNT Z P ENTRY GETDSA p P ENTRY GETDST P ENTRY GETSNA P ENTRY GETSNT P ENTRY GETSSA P ENTRY GETSST P* P* P
0x07e400…07e594 (1, 159) Dummy {f00=0x000a, f01=0x0190, f02=» b * P EXTRN RETUR8 RELOAD A1-A8 AND RETURN 2 P EXTRN IHRET8 RELOAD A1-A8 AND RETURN INHIBIT 6 P* l P EJECT v P* & P* CONDITIONAL ASSEMBLY PARAMETERS P* ( PX:A EQU 1 SUB-ADDRESSING SUPPORTED ? PSUBADR EQU X:A 0=NO 1=YES
0x07e594…07e728 Dummy {f00=0x000a, f01=0x0190, f02=»NTRY INDICATORS PDN EQU 1 PSS EQU 2 ( PSN EQU 3 8 P* H P EJECT R P* ` P* j 4 P* ROUTINES TO GET A SYMBOLIC DTE ADDRESS FROM A t $ P* DTE NETWORK ADDRESS (AND TYPE) P* 6 P******************************************
0x07e728…07e8bc Dummy {f00=0x000a, f01=0x0190, f02=»ING DTE NETWORK ADDRESS z ( P* A3 = TYPE (ONLY FOR GETDST ENTRY) P* L P* CALLING SEQUENCES : V P* CF A15,GETDSA t P* CF A15,GETDST P* P* OUTPUT PARAMETERS : B P* A1 = SYMBOLIC DTE ADDRESS(OR -1 IF INVALID ADDRESS OR TYP
0x07e8bc…07ea50 Dummy {f00=0x000a, f01=0x0190, f02=»15 SAVE REG. A1-A8 P XIF P IFT CPU852=1 & " P CF A15,SAVE8 SAVE REG. A1-A8 < P XIF b $ P SUR A3,A3 CLEAR TYPE INDICATOR n P RF GET090 PGETDST EQU * P IFT CPU852=0 P MSR 8,A15 P XIF P IFT CPU852=1 P C
0x07ea50…07ebe4 Dummy {f00=0x000a, f01=0x0190, f02=»A5,-1 RESET TYPE COUNTER 6 P LDKL A8,SCTDCT POINTER TO DC ADDRESS TABLE ENTRY PGET110 EQU * Z P LDR* A8,A8 MORE ENTRIES ? n P RF(Z) GET330 NO P ADK A3,0 TYPE SPECIFIED ? P RF(Z) GET120 NO P CW A3,4,A8 TYPE FOUND ? P RB(NE
0x07ebe4…07ed78 Dummy {f00=0x000a, f01=0x0190, f02=»A/GETDST ENTRY ? P RF(NZ) GET220 NO P* 2 P* TEST ON ADDRESS LENGTH < P* P CC A1,6,A8 SAME ? f P RB(NE) GET110 NO,TAKE NEXT P* P EJECT P* P* GET ADDRESS PARAMETERS P* P ADK A1,1 CONVERT..
0x07ed78…07ef0c Dummy {f00=0x000a, f01=0x0190, f02=»6,7 ..FIND LAST OCTET OF.. P ADR A6,A1 ..NETWORK ADDRESS " . P ADR A2,A1 POINTER TO LAST OCTET IN BUFFER F P LDR A7,A1 SAVE LENGTH x P* " P* COMPARE DTE NETWORK ADDRESS P* PGET130 EQU * P SUK A1,1 LAST ONE ? P RF(N) G
0x07ef0c…07f0a0 Dummy {f00=0x000a, f01=0x018e, f02=» CCR A4,A2 COMPARE WITH DRIVER BUFFER P RB(E) GET130 EQUAL . P* J P EJECT T P* b P* COMPARED OCTETS NOT EQUAL l P* PGET140 EQU * P SUR A7,A1 FIRST ONE ? P SUK A7,1 . P RF(NZ) GET150 NO $ P ADK A4,0 SEMI
0x07f0a0…07f234 (1, 160) Dummy {f00=0x000b, f01=0x0190, f02=» " P ANK A1,/F0 MAKE IT SEMI-OCTET P CWR A4,A1 EQUAL ? * P RF(E) GET160 YES D PGET150 EQU * ^ P LC A1,6,A8 RELOAD LENGTH r & P LDK A4,DS RELOAD ENTRY INDICATOR P RB GET110 TRY NEXT P* P* COMMON EXIT ROUTINE P*
0x07f234…07f3c8 Dummy {f00=0x000b, f01=0x0190, f02=» * P ST A5,12,A15 SAVE TYPE COUNTER IN A3 PGET180 EQU * 6 P ST A1,16,A15 SAVE A1 J P IFT CPU852=0 h P ABL RETUR8 RETURN TO CALLER ~ P XIF P IFT CPU852=1 P LD A1,18,A15 GET PSW P ANK A1,/40 ENABLE MODE ? P ABL
0x07f3c8…07f55c Dummy {f00=0x000b, f01=0x0190, f02=»O FIND OR GET A DTE NETWORK ADDRESS FROM A * P* SYMBOLIC NETWORK ADDRESS (AND TYPE) 2 P* ` : P****************************************************** j P* P* INPUT PARAMETERS : P* A1 = SYMBOLIC DTE ADDRESS * P* A2 = BUFFER (ONLY I
0x07f55c…07f6f0 Dummy {f00=0x000b, f01=0x0190, f02=»F A15,FNDDNT P* CF A15,GETDNA P* CF A15,GETDNT , P* D P* OUTPUT PARAMETERS : N 8 P* A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS l < P* (OR -1 IF ILLEGAL SYMBOLIC DTE ADDRESS OR TYPE) : P* A2 = NEXT FREE ADDRESS IN BUF
0x07f6f0…07f884 Dummy {f00=0x000b, f01=0x0190, f02=»NOT CHANGED) b P* PFNDDNT EQU * P IFT CPU852=0 2 P MSR 8,A15 SAVE REG. A1-A8 H P XIF j P IFT CPU852=1 v " P CF A15,SAVE8 SAVE REG. A1-A8 P XIF $ P SUR A2,A2 CLEAR BUFFER ADDRESS P RF GET210 P* P EJECT
0x07f884…07fa18 Dummy {f00=0x000b, f01=0x018e, f02=»IF $ P SUR A2,A2 CLEAR BUFFER ADDRESS P RF GET200 2 PGETDNT EQU * D P IFT CPU852=0 X P MSR 8,A15 n P XIF P IFT CPU852=1 P CF A15,SAVE8 P XIF P RF GET210 PGETDNA EQU * P IFT CPU852=0 P MSR 8,A
0x07fa18…07fbac Dummy {f00=0x000b, f01=0x0190, f02=» PGET210 EQU * " P LDK A4,DN SET ENTRY INDICATOR P RB GET100 RUN > P* T P EJECT ^ P* l P* TEST ON SYMBOLIC ADDRESS v P* PGET220 EQU * P CW A1,2,A8 FOUND ? P RB(NE) GET110 NO P* P* GET ADDRESS PARA
0x07fbac…07fd40 Dummy {f00=0x000b, f01=0x0190, f02=»ERT LENGTH.. P SRC A7,1 ..INTO.. P ANK A7,/7F ..OCTETS . * P LDR A6,A8 GET ADDRESS WHERE TO FIND.. J P ADK A6,7 ..NETWORK ADDRESS x P IFT SUBADR=1 P* P* TEST ON ENTRY P* $ P SUK A4,SS ...DNA/...DNT ENTRY ? P R
0x07fd40…07fed4 (1, 161) Dummy {f00=0x002f, f01=0x0190, f02=»JECT P* P* SAVE PARAMETERS P* 0 PGET230 EQU * : $ P ST A2,14,A15 SAVE NEXT ADDRESS N P RB GET170 EXIT v P* P* GET NETWORK ADDRESS P* PGET240 EQU * P SUK A7,1 READY ? P RB(N) GET230 YES P
0x07fed4…080068 Dummy {f00=0x002f, f01=0x0190, f02=»UBADR=1 P EJECT P* P* ( 4 P* ROUTINES TO GET A SYMBOLIC SUB-ADDRESS FROM A 2 6 P* SYMBOLIC DTE ADDRESS (OF A SPECIFIED TYPE) AND A j P* NETWORK SUB-ADDRESS P* 8 P**************************************************** P
0x080068…0801fc Dummy {f00=0x002f, f01=0x0190, f02=»ST ENTRY) v P* P* CALLING SEQUENCE : P* CF A15,GETSSA 8 P* CF A15,GETSST P P* h P* OUTPUT PARAMETERS : r : P* A1 = SYMBOLIC SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC 4 P* DTE ADDRESS,TYPE OR NETWORK SUB-ADDRESS) D P*
0x0801fc…080390 Dummy {f00=0x002f, f01=0x0190, f02=» P XIF P IFT SUBADR=1 P IFT CPU852=1 & " P CF A15,SAVE8 SAVE REG. A1-A8 < P XIF b P IFT SUBADR=1 n P RF GET300 P* P EJECT P* PGETSSA EQU * P IFT CPU852=0 P MSR 8,A15 P XIF P IFT SUB
0x080390…080524 Dummy {f00=0x002f, f01=0x0190, f02=»00 EQU * " P LDK A4,SS SET ENTRY INDICATOR PGET305 EQU * 6 P RB GET100 RUN J P* ` P* TEST ON ENTRY j P* PGET310 EQU * " P ADR A6,A7 GET # OF ENTRIES IN " P LCR A7,A6 ..SUB-ADDRESS TABLE P LDR A4,A4 * P RF(NZ) GE
0x080524…0806b8 Dummy {f00=0x002f, f01=0x0190, f02=»OR b PGET320 EQU * P ADK A6,1 NEXT ENTRY , P CCR A2,A6 COMPARE NETWORK SUB-ADDRESSES : P RB(E) GET170 EXIT ! j ( P ADK A1,1 STEP SYMBOLIC SUB-ADDRESS P SUK A7,1 MORE ENTRIES ? P RB(P) GET320 YES P XIF P* P EJECT
0x0806b8…08084c Dummy {f00=0x002f, f01=0x018e, f02=»TSSA EQU * PGETSST EQU * P XIF & PGET330 EQU * 2 P LDKL A1,-1 ERROR INDICATION F P RB GET180 EXIT j P* P IFT SUBADR=1 P EJECT P* P* 2 P* ROUTINES TO GET A NETWORK SUB-ADDRESS FROM A 4 P* SYMBOLIC DTE
0x08084c…0809e0 Dummy {f00=0x002f, f01=0x0190, f02=» Z P* P* INPUT PARAMETERS : P* A1 = SYMBOLIC DTE ADDRESS . P* A2 = SYMBOLIC SUB-ADDRESS R ( P* A3 = TYPE (ONLY IF GETSNT ENTRY) v P* P* CALLING SEQUENCES : P* CF A15,GETSNA P* CF A15,GETSNT P* P* OU
0x0809e0…080b74 (1, 162) Dummy {f00=0x0030, f01=0x0190, f02=») ` D P* A3 = TYPE INDEX (ONLY IF GETSNT ENTRY,OTHERWISE NOT CHANGED) P* R PGETSNT EQU * P IFT CPU852=0 p P MSR 8,A15 SAVE REG. A1-A8 P XIF P IFT SUBADR=1 P IFT CPU852=1 " P CF A15,SAVE8 SAVE REG. A1-A8 P X
0x080b74…080d08 Dummy {f00=0x0030, f01=0x0190, f02=» P XIF P IFT SUBADR=1 P IFT CPU852=1 * P CF A15,SAVE8 @ P XIF V P IFT SUBADR=1 b $ P SUR A3,A3 CLEAR TYPE INDICATOR x PGET400 EQU * " P LDK A4,SN SET ENTRY INDICATOR P RB GET305 RUN P* P* GET NETWORK
0x080d08…080e9c Dummy {f00=0x0030, f01=0x4116, f02=»ID SYMBOLIC SUB-ADDRESS | 2 P SUR A7,A2 SYMBOLIC SUB-ADDRESS WITHIN TABLE ? P RB(N) GET330 NO V 2 P ADR A6,A2 SET POINTER(INDEX STARTS WITH /30) n & P LCR A1,A6 GET NETWORK SUB-ADDRESS P RB GET170 EXIT P* P XIF P* P E
0x080e9c…081030 Dummy {f00=0x0030, f01=0x2008, f02=» ! TO SAVE REGISTERS A1-A8 * ( SAVE8 EQU * 2 * F * &* SUBROUTINE TO RELOAD REGISTERS A1-A8 P * ~ RELOA8 EQU * * END @ & ! LDR A6,A8 GET ADDRESS WHERE TO.. " ADK A6,7 FIND LAST OCTET OF..
0x081030…0811c4 Dummy {f00=0x0030, f01=0x018e, f02=» P IFF NTONSU=0 U =1 " P* " P IFT RT=0 " ( P DATA NDRETE " : P XIF " N P IFF NTONSU=0 U =1 " Z P IFT RT=1 " t P DATA RTENBL " P XIF " P IFF NTONSU=0 U =1 " P* " P IFT SL=0 " P DATA NDRETE " P XIF " P IFF NTONSU=
0x0811c4…081358 Dummy {f00=0x0030, f01=0x0190, f02=» P XIF # P IFF NTONSU=0 U =1 # P IFT AS=1 # * P DATA ASENBL # < P XIF # P P IFF NTONSU=0 U =1 # P* # v P IFT FT=0 # P DATA NDRETE # P XIF # P IFF NTONSU=0 U =1 # P IFT FT=1 # P DATA FTENBL # P XIF # P IFF NTONS
0x081358…0814ec Dummy {f00=0x0030, f01=0x0190, f02=» P XIF $ P IFF NTONSU=0 U =1 $ P* $ * P IFT PR=0 $ 4 P DATA NDRETE $ F P XIF $ Z P IFF NTONSU=0 U =1 $ f P IFT PR=1 $ P DATA PRENBL $ P XIF $ P IFF NTONSU=0 U =1 $ P* $ P IFT VU=0 $ P DATA NDRETE $ P XIF $ P
0x0814ec…081680 Dummy {f00=0x0030, f01=0x0190, f02=»REQUEST $ PENRTAB EQU * % P IFT LT=0 % $ P DATA TDISP % 6 P XIF % J P IFF NTONSU=0 U =1 % V P IFT LT=1 % p P DATA LTDISP % P XIF % P IFF NTONSU=0 U =1 % P* % P IFT RT=0 % P DATA TDISP % P XIF % P IFF NTONSU=0 U
0x081680…081814 (1, 163) Opaque[0x194]
0x081814…0819a8 # DirEnt {nam=»TMOVE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0028, f03=0x0000}
0x081814…0819a8 IdxSect {
0x081814…0819a8 f00 = 0x0001 // 0x81814 @0x0
0x081814…0819a8 f01 = 0x000e // 0x81816 @0x2
0x081814…0819a8 gno = [ // 0x81818 @0x4
0x081814…0819a8 [0x00]: C0x0001.0x1.0
0x081814…0819a8 [0x01]: C0x0002.0x1.0
0x081814…0819a8 [0x02]: C0x0002.0x2.0
0x081814…0819a8 [0x03]: C0x0004.0x0.0
0x081814…0819a8 [0x04]: C0x0011.0x1.0
0x081814…0819a8 [0x05]: C0x0012.0x3.0
0x081814…0819a8 [0x06]: C0x002b.0x2.0
0x081814…0819a8 ]
0x081814…0819a8 }
0x0819a8…081b3c Dummy {f00=0x0001, f01=0x0190, f02=» 0 P IDENT TMOVE REL 11.0 81-05-21 870105041100 P 8 * P =4,CORR. OF UPDATE =3 (A14,A15) =3 @ P =4,REL 11.0 81-05-15 =3 n $ P =3,CONDITION FOR MOVUU ADDED P =3,REL 11.0 81-01-26 $ P =2,SAVE MMU WHEN MOVUS,MOVSU P =2,PR
0x081b3c…081cd0 Dummy {f00=0x0001, f01=0x0190, f02=»********************************** P* * $ P* PHILIPS TERMINAL SYSTEM PTS 4 P* ( P* TMOVE = TOSS MOVE LKM PROCESSOR f P* P* P* P* P* P* 6 P************************************************** P
0x081cd0…081e64 Dummy {f00=0x0001, f01=0x018e, f02=» - MOVSS = MOVE FROM SYSTEM AREA TO SYSTEM AREA 4 P* - MOVUS = MOVE FROM USER AREA TO SYSTEM AREA 8 4 P* - MOVSU = MOVE FROM SYSTEM AREA TO USER AREA p 2 P* - MOVUU = MOVE FROM USER AREA TO USER AREA > P* - MOVFW = MOVE FORWARD (ONLY SYSTEM A
0x081e64…081ff8 Dummy {f00=0x0001, f01=0x0190, f02=» P*********** P* ENTRIES * P*********** 0 P* D P* N ( P ENTRY TMOVE TOSS MOVE LKM PROCESSOR X , P ENTRY MOVSS MOVE FROM SYSTEM TO SYSTEM * P ENTRY MOVSU MOVE FROM SYSTEM TO USER * P ENTRY MOVUS MOVE FROM USER TO SYSTEM
0x081ff8…08218c Dummy {f00=0x0001, f01=0x0190, f02=» P* P* P************* P* EXTERNALS * 2 P************* H P* ^ P* h * P EXTRN LKMQDI QUEUE TASK AND DISPATCH r 4 P EXTRN LKMRQE SET A7=-1, QUEUE TASK AND DISPATCH 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID
0x08218c…082320 Dummy {f00=0x0001, f01=0x018e, f02=» f P* P* CONDITIONAL ASSEMBLY P* 0 . P***************************************** : P* l . P* A PROGRAM VERSION USING TOSS MMU PAGING v * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P
0x082320…0824b4 (1, 164) Dummy {f00=0x0002, f01=0x018e, f02=» P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION : P* SET FOR CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1. R P* PCPU857 EQU 1 P* P* 4 P* A PROGRAM VERSION CONTAINING SUBROUTINE MOVUU $ P* WILL EXIST B
0x0824b4…082648 Dummy {f00=0x0002, f01=0x0190, f02=» P* P* P************************ P* MOVBLK DISPLACEMENTS * 8 P************************ X P* x , P* DISPLACEMENTS IN MOVE PARAMETER BLOCK P* & PMOVTIS EQU 0 TASK ID SENDING TASK ( PMOVTIR EQU 2 TASK ID RECEIVING TAS
0x082648…0827dc Dummy {f00=0x0002, f01=0x0190, f02=» TO MOVE t 4 PLENGTH EQU 128 INTERMEDIATE BUFFER LENGTH WORDS P* H P EJECT TMOVE R P* h P* r P********* | P* TMOVE * P********* P* P* ( P* THIS IS THE MOVE LKM PROCESSOR. P* * P* IT IS EN
0x0827dc…082970 Dummy {f00=0x0002, f01=0x0190, f02=»ESS | P* PTMOVE EQU * P ENB * P* 6 P IFT MMUPAG=0 @ * P LD A1,MOVBAS,A7 SOURCE BUFFER ADDRESS V 0 P LD A2,MOVBAR,A7 DESTINATION BUFFER ADDRESS " P LD A3,MOVLEN,A7 BUFFER LENGTH P CF A15,MOVSS MOVE BUFFER P XIF
0x082970…082b04 Dummy {f00=0x0002, f01=0x0190, f02=» BUFFER ADDRESS SENDING TASK 4 P EL A10,MOVBAR,A8 BUFFER ADDRESS RECEIVING TASK $ , P EL A3,MOVLEN,A8 REQUESTED BUFFER LENGTH $ P ELR A7,A8 TASK ID SENDING TASK P CWK A7,'#M' * P RF(E) MOV100 MOVE FROM SYSTEM BUFFER $ P CF A15,FNDTID GET
0x082b04…082c98 Dummy {f00=0x0002, f01=0x0190, f02=» P CWK A7,'#M' ( P RF(E) MVUS10 MOVE TO SYSTEM BUFFER $ P CF A15,FNDTID GET TTAB ADDRESS D P LDR A4,A2 SAVE TTAB ADDRESS l P RF(Z) TTABNF TTAB NOT FOUND P* P EJECT TMOVE P* * P* MOVE FROM USER BUFFER TO USER BUFFER
0x082c98…082e2c Dummy {f00=0x0002, f01=0x0190, f02=» WHERE TO MOVE P* PMOV100 EQU * , P EL A7,MOVTIR,A8 TASK ID RECEIVING TASK 4 P CWK A7,'#M' d ( P RF(E) MVSS10 MOVE TO SYSTEM BUFFER x $ P CF A15,FNDTID GET TTAB ADDRESS P LDR A4,A2 P RF(Z) TTABNF TTAB NOT FOUND P*
0x082e2c…082fc0 Dummy {f00=0x0002, f01=0x0190, f02=» * P CF A15,MOVSU MOVE FROM SYSTEM TO USER P RF END 2 P* B , P* MOVE FROM USER BUFFER TO SYSTEM BUFFER L P* | PMVUS10 EQU * * P LDR A2,A10 DESTINATION BUFFER ADDRESS * P CF A15,MOVUS MOVE FROM USER TO SYSTEM P RF END P*
0x082fc0…083154 (1, 165) Dummy {f00=0x0002, f01=0x018e, f02=»F A15,MOVSS MOVE FROM SYSTEM TO SYSTEM P* . P XIF 8 P* D P EJECT TMOVE N P* d P* END n P* | PEND EQU * P IFT MMUPAG=1 " P LDR A5,A12 TTAB CALLING TASK P XIF P* ( P ABL LKMQDI QUEUE TASK AND DIS
0x083154…0832e8 Dummy {f00=0x0002, f01=0x0190, f02=» v 2 P ABL LKMRQE SET A7=-1, QUEUE TASK AND DISPATCH P XIF > P EJECT J P* X P* b P* l P********* v P* MOVFW * P********* P* P* $ P* SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM B
0x0832e8…08347c Dummy {f00=0x0002, f01=0x0190, f02=» A3 = BUFFER LENGTH P* > P* EXIT: A1 = SYSTEM BUFFER ADDRESS,SOURCE+BUFFER LENGTH * B P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION+BUFFER LENGTH l P* A3 = 0 P* PMOVFW EQU * PMOVBW EQU * P ADK A3,0
0x08347c…083610 Dummy {f00=0x0002, f01=0x0190, f02=» & P LDKL A6,/8000 INDICATE A14 RETURN P RF MSS005 MOVE BUFFER . P L P T P PRTNA14 EQU * d P LD A6,-4,A14 SAVED REGISTER x P LD A5,-2,A14 SAVED REGISTER P LDR* A4,A14 SAVED REGISTER P LDK A3,0 PRETA14 EQU *
0x083610…0837a4 Dummy {f00=0x0002, f01=0x0190, f02=»SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM BUFFER & P* T 0 P* ENTRY: A1 = SYSTEM BUFFER ADDRESS,SOURCE ^ 4 P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION P* A3 = BUFFER LENGTH P* > P* EXIT: A1 = S
0x0837a4…083938 Dummy {f00=0x0002, f01=0x0190, f02=» P* P IFT MMUPAG=0 PMOVUS EQU * ( PMOVSU EQU * < PMOVUU EQU * P P XIF d P* p PMOVSS EQU * z P ADK A3,0 CHECK LENGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE A4 P STR A5,A15 SAVE A
0x083938…083acc Dummy {f00=0x0002, f01=0x0190, f02=» RF(Z) MSS100 SOURCE BUFFER ADDRESS EVEN P TM A4,A2 0 2 P RF(Z) MSS110 DESTINATION BUFFER ADDRESS EVEN B P EJECT x P* 4 P* BOTH SOURCE AND DESTINATION BUFFER ADDRESS ODD P* & P LCR A5,A1 FIRST CHARACTER TO MOVE P SCR A5,A2 S
0x083acc…083c60 Dummy {f00=0x0002, f01=0x0190, f02=»ENT LENGTH $ P RF(NP) MOVRT1 ALL MOVED,RETURN P* : 6 P* BOTH SOURCE AND DESTINATION BUFFER ADDRESS EVEN D P* ~ PMSS010 EQU * P IFF CPUHLP+CPU852=2 P SUK A3,2 SUBTRACT LENGTH 2 P RF(N) MSS020 TEST IF LAST CHARACTER IS MOVED
0x083c60…083df4 (1, 166) Dummy {f00=0x0004, f01=0x0190, f02=»ON BUFFER v P RB MSS010 CONTINUE MOVE P* 2 PMSS020 EQU * < P ADK A3,2 P " P RF(Z) MOVRT1 ALL MOVED,RETURN b P XIF P* P IFT CPU852=0 P IFT CPU857=1 P TM A4,A3 ( P RF(Z) MSS020 REQUESTED LENGTH EVEN " P
0x083df4…083f88 Dummy {f00=0x0004, f01=0x0190, f02=»ED,RETURN z P XIF P* & P LCR A5,A1 LAST CHARACTER TO MOVE ( 0 P SCR A5,A2 STORE CHARACTER IN SYSTEM BUFFER R ( P ADK A1,1 UPDATE USER BUFFER ADDRESS * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS P RF MOVRT1 RETURN P EJECT P
0x083f88…08411c Dummy {f00=0x0004, f01=0x0190, f02=»R EVEN , DESTINATION BUFFER ODD P* OR ( 2 P* SOURCE BUFFER ODD , DESTINATION BUFFER EVEN 4 P* j PMSS110 EQU * t P LCR A4,A1 LOAD CHARACTER P SCR A4,A2 STORE CHARACTER $ P ADK A1,1 UPDATE SOURCE ADDRESS ( P ADK A2,1 UPDATE DES
0x08411c…0842b0 Dummy {f00=0x0004, f01=0x018e, f02=»PAG=1 P EJECT TMOVE P* $ P* . P********* 8 P* MOVUS * J P********* P* n P* x $ P* SUBROUTINE TO MOVE CHARACTERS ( P* FROM USER BUFFER TO SYSTEM BUFFER P* & P* ENTRY: A1 = USER BUFFER ADDRESS (
0x0842b0…084444 Dummy {f00=0x0004, f01=0x0190, f02=» 4 P* EXIT : A1 = USER BUFFER ADDRESS+BUFFER LENGTH 6 P* A2 = SYSTEM BUFFER ADDRESS+BUFFER LENGTH < P* A3 = 0 v P* PMOVUS EQU * P ADK A3,0 CHECK LENGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE
0x084444…0845d8 Dummy {f00=0x0004, f01=0x0190, f02=»4,1 MASK P TM A4,A1 " P RF(Z) MUS110 USER BUFFER EVEN " P TM A4,A2 H $ P RF(Z) MUS100 SYSTEM BUFFER EVEN Z P* P EJECT TMOVE P* ( P* USER BUFFER ODD,SYSTEM BUFFER ODD P* 0 P ELR A5,A1 FIRST CHARACTER FROM USER B
0x0845d8…08476c Dummy {f00=0x0004, f01=0x0190, f02=»DECREMENT LENGTH $ P RF(NP) MOVRT3 ALL MOVED, RETURN P* @ * P* USER BUFFER EVEN,SYSTEM BUFFER EVEN J P* x PMUS010 EQU * P TM A4,A3 ( P RF(Z) MUS020 REQUESTED LENGTH EVEN " P LDK A4,0 INDICATE LENGTH ODD P* PMUS0
0x08476c…084900 Dummy {f00=0x0004, f01=0x0190, f02=»TER z P ECR A5,A5 P RB MUS005 =1 P* 4 P XIF > P* J P EJECT TMOVE T P* j P* t P********** ~ P* MOVRTN * P********** P* , P* COMMON RETURN LABELS FOR MOVE ROUTINES P* PMOVRT1 EQU *
0x084900…084a94 (1, 167) Dummy {f00=0x0011, f01=0x0190, f02=»VRT3 EQU * P TL 2,A15 SAVED MMU =2 P ADKL A15,32 =2 0 P XIF H PMOVRTN EQU * T P LDR* A5,A15 RELOAD A5 h P LDR* A4,A15 RELOAD A4 P LDK A3,0 ALL MOVED P* PMOVRT2 EQU * P RTN A15 P* P IFT MMUPAG=1
0x084a94…084c28 Dummy {f00=0x0011, f01=0x0190, f02=»ER FROM USER BUFFER x P RF MUS125 P* . PMUS110 EQU * 8 P TM A4,A2 L $ P RB(Z) MUS010 SYSTEM BUFFER EVEN ^ P* ( P* USER BUFFER EVEN,SYSTEM BUFFER ODD P* PMUS120 EQU * P ELR A4,A1 GET TO CHARACTERS P ECR A5,A4
0x084c28…084dbc Dummy {f00=0x0011, f01=0x018e, f02=»DDRESS p P SUK A3,1 DECREMENT LENGTH $ P RB(NP) MOVRT3 ALL MOVED, RETURN 0 P* X PMUS125 EQU * b ( P ADK A1,1 UPDATE USER BUFFER ADDRESS v 0 P SCR A4,A2 STORE CHARACTER IN SYSTEM BUFFER * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS P SUK
0x084dbc…084f50 Dummy {f00=0x0011, f01=0x0190, f02=» P* ! P********* ! P* MOVSU * ! $ P********* ! 6 P* ! H P* ! R $ P* SUBROUTINE TO MOVE CHARACTERS ! ( P* FROM SYSTEM BUFFER TO USER BUFFER ! P* ! ( P* ENTRY: A1 = SYSTEM BUFFER ADDRESS ! & P* A2 = USER BUFFER ADDRESS
0x084f50…0850e4 Dummy {f00=0x0011, f01=0x0190, f02=»+LENGTH ! l . P* A2 = USER BUFFER ADDRESS+LENGTH " P* A3 = 0 " B P* " Z PMOVSU EQU * " d P ADK A3,0 CHECK LENGTH " x * P RB(NP) MOVRT2 NOTHING TO MOVE, RETURN " P STR A4,A15 SAVE A4 " P STR A5,A15 SAVE A5 " P SUKL A15,32
0x0850e4…085278 Dummy {f00=0x0011, f01=0x0190, f02=» BUFFER EVEN " ~ P TM A4,A1 # $ P RF(Z) MSU100 SYSTEM BUFFER EVEN # & P* # N P EJECT TMOVE # X P* # n ( P* SYSTEM BUFFER ODD,USER BUFFER ODD # x P* # * P ELR A5,A2 USER BUFFER FIRST CHARACTER # " P LCR A5,A1 GET FIRST CHARACTER # 4 P ESR A
0x085278…08540c Dummy {f00=0x0011, f01=0x0190, f02=»ENT LENGTH # * P RB(NP) MOVRT3 NOTHING TO MOVE, RETURN $ P* $ @ P EJECT TMOVE $ J P* $ ` * P* SYSTEM BUFFER EVEN,USER BUFFER EVEN $ j P* $ PMSU010 EQU * $ P TM A4,A3 $ ( P RF(Z) MSU020 REQUESTED LENGTH EVEN $ P SUK A3,1 LENGTH EVE
0x08540c…0855a0 Dummy {f00=0x0011, f01=0x0190, f02=» ADR A1,A5 UPDATE SYSTEM BUFFER ADDRESS $ * P ADR A2,A5 UPDATE USER BUFFER ADDRESS % 0 P ADK A4,0 CHECK LENGTH % ^ $ P RB(NZ) MOVRT3 ALL MOVED, RETURN % | " P LDR* A5,A1 GET LAST CHARACTER % * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS % P* % PMSU030
0x0855a0…085734 (1, 168) Dummy {f00=0x0012, f01=0x0190, f02=»WORD IN USER BUFFER % P ESR A5,A2 & ( P ADK A2,1 UPDATE USER BUFFER ADDRESS & . P RB MOVRT3 RETURN & Z P* & t P EJECT TMOVE & ~ P* & ( P* SYSTEM BUFFER EVEN,USER BUFFER ODD & P* & PMSU100 EQU * & P SUK A2,1 USER BUFFER EVEN & .
0x085734…0858c8 Dummy {f00=0x0012, f01=0x0190, f02=» $ P RB(Z) MSU010 SYSTEM BUFFER EVEN ' P* ' , ( P* SYSTEM BUFFER ODD,USER BUFFER EVEN ' 6 P* ' b PMSU120 EQU * ' l " P LCR A5,A1 GET FIRST CHARACTER ' $ P ECR A5,A5 CHARACTER TO THE LEFT ' * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ' P SUK A3,1 DE
0x0858c8…085a5c Dummy {f00=0x0012, f01=0x0190, f02=»R ' f $ P ESR A5,A2 STORE TWO CHARACTERS ( * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ( 2 ( P ADK A2,2 UPDATE USER BUFFER ADDRESS ( ` P SUK A3,1 DECREMENT LENGTH ( P RB(P) MSU120 MORE TO MOVE ( P RB MOVRT3 ALL MOVED, RETURN ( P* ( P XIF =3
0x085a5c…085bf0 Dummy {f00=0x0012, f01=0x018e, f02=»UUMOV=2 =3 ( P EJECT TMOVE ) P* ) * P* ) 4 P********* ) > P* MOVUU * ) P P********* ) b P* ) t P* ) ~ $ P* SUBROUTINE TO MOVE CHARACTERS ) & P* FROM USER BUFFER TO USER BUFFER ) P* ) ( P* ENTRY: A1 = SOURCE BUFFER ADDRESS
0x085bf0…085d84 Dummy {f00=0x0012, f01=0x0190, f02=» , P* A5 = TTAB ADDRESS SENDING TASK * P* * 4 2 P* EXIT: A1,A2,A3,A8,A9,A10,A11 ARE DESTROYED * > P* * t PMOVUU EQU * * ~ P LDR A11,A3 SAVE LENGTH * * P RF(NP) MUU120 NOTHING TO MOVE, RETURN * " P LDR A9,A1 SAVE SOURCE ADDRESS * ( P L
0x085d84…085f18 Dummy {f00=0x0012, f01=0x0190, f02=»EDIATE BUFFER LENGTH * z 0 P RF(NP) MUU120 INTERMEDIATE BUFFER TOO SMALL + P CWR A11,A3 + P , P RF(G) MUU110 MORE THAN ONE MOVE NEEDED + d ( P LDR A3,A11 REMAINING BUFFER LENGTH + P* + PMUU110 EQU * + P LDR A8,A3 SAVE PART LENGTH + $ P LDR A
0x085f18…0860ac Dummy {f00=0x0012, f01=0x0190, f02=» A9,A1 SAVE NEW SOURCE ADDRESS + 0 P LDKL A1,INTBUF INTERMEDIATE BUFFER ADDRESS , & $ P LDR A2,A10 DESTINATION ADDRESS , Z P LDR A3,A8 LENGTH , * P CF A15,MOVSU MOVE FROM SYSTEM TO USER , , P LDR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x0860ac…086240 Dummy {f00=0x0012, f01=0x40cc, f02=» , P* INTERMEDIATE BUFFER - P* - & PINTBUF EQU * - 0 P RES LENGTH - D PINTLEN EQU *-INTBUF - X P* - t P* - ~ P* - P XIF - P* - P* - P* - P END - @ - DR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x086240…0863d4 (1, 169) Dummy {f00=0x002b, f01=0x2008, f02=» . P `
0x0863d4…086568 Dummy {f00=0x002b, f01=0x0002, f02=» p
0x086568…0866fc Dummy {f00=0x002b, f01=0x0190, f02=» J F IDENT LRPINT REL 11.0 81-09-16 870105041100 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI LKMSRC IHRTC TIMQUE MONCLOC R IHPFAR INIFLGN PFPOST IHLKM INTSAVR PRUNN TTB:SA , (
0x0866fc…086890 Dummy {f00=0x002b, f01=0x0190, f02=»LDSEG LKM030 J SWL48 " , ( 5 $P c P W A 2 LKMAL b , ( Q B V ( U P @ r LKMERR t HALTN LKMRQE z LKMSRC ~ LKMQDI QTJ
0x086890…086a24 Dummy {f00=0x002b, f01=0x0190, f02=» #P , ( @ A A Q ? _ ^ . DISQUE ^ , ( > ? @ XJ ) A A p PFINIT IHRTC , ( ( D_V A A A _h A QMJOB , (
0x086a24…086bb8 Dummy {f00=0x002b, f01=0x018e, f02=» ) $ t , ( Q ( P P JW P ) % X % A MONCLOC D , ( q _` & P Y _l Z _r X MEXIT , ( 8 Q Z P FREBLK , ( 0 9 " "_
0x086bb8…086d4c Dummy {f00=0x002b, f01=0x406a, f02=» J H D ! ! ) - 3 7R A E G UP YP _W q yP P T@ f Y _l Z _r X MEXIT , ( 8 Q Z P FREBLK , ( 0 9 " "_
0x086d4c…086ee0 Dummy {f00=0x002b, f01=0x2008, f02=»
0x086ee0…087074 (1, 170) Opaque[0x194]
0x087074…087208 # DirEnt {nam=»DCSTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01b0, f03=0x0000}
0x087074…087208 IdxSect {
0x087074…087208 f00 = 0x000d // 0x87074 @0x0
0x087074…087208 f01 = 0x000e // 0x87076 @0x2
0x087074…087208 gno = [ // 0x87078 @0x4
0x087074…087208 [0x00]: C0x000d.0x2.0
0x087074…087208 [0x01]: C0x000d.0x3.0
0x087074…087208 [0x02]: C0x000e.0x0.0
0x087074…087208 [0x03]: C0x000e.0x1.0
0x087074…087208 [0x04]: C0x000e.0x2.0
0x087074…087208 [0x05]: C0x0032.0x2.0
0x087074…087208 [0x06]: C0x003a.0x3.0
0x087074…087208 ]
0x087074…087208 }
0x087208…08739c Dummy {f00=0x000d, f01=0x0190, f02=» 0 P IDENT DCSTAT REL 11.0 81-01-26 870105041100 P* 8 B P************************************************************* B P* $ P* PHILIPS TERMINAL SYSTEM, P T S P* 4 P* DCSTAT STATISTIC DATA COLLECTION ROUTINE FOR * P* DA
0x08739c…087530 Dummy {f00=0x000d, f01=0x0190, f02=»AM DESCRIPTION P*. FUNCTIONS: > P*. DCSTAT SUPPLIES THE DATA COMMUNICATION DRIVERS/PACKAGES , > P*. WITH A SET OF ROUTINES TO MAINTAIN STATISTICAL COUNTERS n , P*. FOR A DWT OR A DWT AND ITS HEAD DWT. @ P*. THE FUNCTIONS ARE CONFIGURABLE BY THE
0x087530…0876c4 Dummy {f00=0x000d, f01=0x0190, f02=»EM STACK IN d 8 P*. INHIBIT MODE. THEY CAN BE USED SIMULTANEOUSLY BY , P*. DIFFERENT TYPES OF DRIVERS/PACKAGES. P > P*. THE COUNTERS ARE MAINTAINED IN A BUFFER LINKED FROM THE : P*. DWT. EACH BUFFER CONTAINS A CONTROL WORD INDICATING < P*. STATU
0x0876c4…087858 Dummy {f00=0x000d, f01=0x0190, f02=» COUNTERS ENTRY: DCSRST AND DCSRLL 2 P* -UPDATE COUNTERS ENTRY: DCSUPR AND DCSUPD . ( P* -READ COUNTERS ENTRY: DCSRED d P* P* 8 P* ACTIONS TO INCLUDE STATISTICS IN A DRIVER/PACKAGE 8 P* 1. DEFINE EVENTS IN THE DRIVER TO CALL
0x087858…0879ec Dummy {f00=0x000d, f01=0x0190, f02=»E COUNTER AREA IN THE DWT AND ITS LINK(OFFSET) : P* THE LAYOUT DESCRIBED BELOW MUST BE APPLIED AS REQ 6 P* BY DCSTAT t P EJECT P*. TABLE STRUCTURE: ( P*. THE DWT HAS THE FOLLOWING LAYOUT P*. P* .................. P
0x0879ec…087b80 Dummy {f00=0x000d, f01=0x0190, f02=»UFF . -- P* .................. ! " P* . LINK HEAD DWT . --!----> 4 P* .................. ! Z " P* . LINK NEXT DWT . --!----> | P* .................. ! P* . . P* / / ! P* /
0x087b80…087d14 (1, 171) Dummy {f00=0x000d, f01=0x0190, f02=»NTER AREA . P* .................. P* . . 4 P* / / R P* .................. p P EJECT P* P* ENTRY POINTS P* , P ENTRY DCSRST REST COUNTERS IN SPEC DWT . P ENTRY DCSRLL RESE
0x087d14…087ea8 Dummy {f00=0x000d, f01=0x0190, f02=»TETAB ^ 2 P ENTRY DCSUPD UPDATE COUNTER SPEC IN PKT, (A2) 6 P ENTRY DCSRED READ STATISTIC COUNTERS TO USER BUFF D P* ~ P* ENTRY EQU:S P* ( P ENTRY CSMAXL MAX INDEX FOR LINK DWT * P ENTRY DWTCHD EQU DWT OFFSET HEAD DWT * P ENTRY
0x087ea8…08803c Dummy {f00=0x000d, f01=0x0190, f02=»* 8 P**************************************************** P* F & P* CONDITIONAL ASSEMBLY PARAMETERS P P* z 2 P********************************************* P* P PMMUPAG EQU 1 MMU SWITCH P P* 8 P* COND
0x08803c…0881d0 Dummy {f00=0x000d, f01=0x0190, f02=» P STATISTIC ON SUBUNITS PSTUNIT EQU 1 IF 0= NO 1= YES $ P H P DOUBLE WORD COUNTERS R PSTDBLE EQU 0 IF 0=NO, 1=YES r P P P 2 P********************************************** P* P* EXTERNAL TABLE OFF
0x0881d0…088364 Dummy {f00=0x000d, f01=0x0190, f02=» " REQ LENGTH PECBEL EQU 6 " EFF LENGTH P 8 P B P IFT MMUPAG=0 L ( PDWTDRD EQU /10 DRIVER DEP AREA START b P XIF P IFT MMUPAG=1 ( PDWTDRD EQU /14 DRIVER DEP AREA START P XIF P < PDWTSTB EQU DWTDRD DWT
0x088364…0884f8 Dummy {f00=0x000d, f01=0x0190, f02=»LINK TO NEXT DWT n 0 PDWTLAD EQU DWTCHN+2 " LOCAL DTE ADDRESS . PDWTSUB EQU DWTLAD+4 POSSIBLE SUB ADDRESS L P EJECT ~ B P************************************************************* P* P* STATISTIC EQU:S * P* USED IN CALLS FO
0x0884f8…08868c Dummy {f00=0x000d, f01=0x0190, f02=» < P* THE FORMAT OF THE PARAMETER-1 IN CALL TO DCSUPR/DCSUPD P* IS: D @ P* BITS XYZZZZZZ WHERE X=1IF PARAMETER-2 USED AS INCREMENT R 8 P* ELSE INCREMENT WITH +1 8 P* Y=1 IF DOUBLE WORD COUNTER
0x08868c…088820 Dummy {f00=0x000d, f01=0x0190, f02=»*********** ^ P P* P* LINK LEVEL COUNTERS ( P F . PCSSRBL EQU /10 SYNCH DATA BLOCKS RECEIVED P : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW 6 PCSSRAB
0x088820…0889b4 (1, 172) Dummy {f00=0x000e, f01=0x0190, f02=»ATA BLOCKS TRANSMITTED z 2 PCSSTRT EQU /16 " DATA BLOCKS RETRANSMITTED , PCSSTAB EQU /17 " DATA BLOCKS ABORTED T , PCSSXC1 EQU /18 " PROTOCOL DEPENDENT , PCSSXC2 EQU /19 " PROTOCOL DEPENDENT , PCSSXC3 EQU /1A " PROTOCOL DEPEND
0x0889b4…088b48 Dummy {f00=0x000e, f01=0x0190, f02=»CSBRBO EQU /12 " I-FRAMES REJECTED BUFFER OVERFLOW 2 PCSBRAB EQU /13 " I-FRAMES REJECTED ABORTED > 4 PCSBRPE EQU /14 " I-FRAMES REJECTED FCS ERROR t . PCSBTIF EQU /15 " I-FRAMES TRANSMITTED 0 PCSBTRT EQU /16 " I-FRAMES RETRANSMITTE
0x088b48…088cdc Dummy {f00=0x000e, f01=0x0190, f02=» p & PCSBRFR EQU /1A " FRMR RECEIVED $ PCSBRUA EQU /1B " UA RECEIVED 2 & PCSBRRJ EQU /1C " REJ RECEIVED Z & PCSBRNR EQU /1D " RNR RECEIVED 4 PCSBTSM EQU /1E " SNRM/SARM/SABM TRANSMITTED * PCSBTDI EQU /1F " DISC TRANSMIT
0x088cdc…088e70 Dummy {f00=0x000e, f01=0x0190, f02=»D n ( PCSBTRJ EQU /23 " REJ TRANSMITTED ( PCSBTNR EQU /24 " RNR TRANSMITTED 6 , PCSBXC1 EQU /25 " PROTOCOL DEPENDENT b ( PCSBXC2 EQU /26 " " " ( PCSBXC3 EQU /27 " " " P P P* DTE/DCE
0x088e70…089004 Dummy {f00=0x000e, f01=0x018e, f02=»HROUGHPUT ERROR | $ PCSCDCE EQU /2B DCE NOT OPERABLE * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT @ PCSCXC2 EQU /2D " n PCSCXC3 EQU /2E " P P 6 PCSINIV EQU /10 1ST IMPL COUNTER CSSRBL AND CSBRBL 8 PCSMAXL EQU CSCXC3-/F
0x089004…089198 Dummy {f00=0x000e, f01=0x018e, f02=» P* P* STATISTIC BUFFER LAYOUT P* 0 < P******************************************************* : P z P* ................... " P* . . STWSID P* .................. " P* . . STWCST
0x089198…08932c Dummy {f00=0x000e, f01=0x0190, f02=» P* / / P* / / " P* ................... @ ( PSTWSID EQU 0 RESERV FOR SYMBOLIC ID ^ & PSTWCST EQU STWSID+2 COUNTER STATUS P =0, RESET , P /=0, OVERFLOW IN COUNTER WITH BIT 0=1 8 PSTWMIX EQU STWCS
0x08932c…0894c0 Dummy {f00=0x000e, f01=0x0190, f02=»O VALUE IN STWMIX v P EJECT P* ( @ P*********************************************************** 2 P* v < P* DCSRST - RESET STATISTIC COUNTERS FOR SPECIFIED DWT P* & P* THE FOLLOWING ACTIONS ARE TAKEN 4 P* -CHECK IF FUNCTION
0x0894c0…089654 (1, 173) Dummy {f00=0x000e, f01=0x0190, f02=» COUNTERS d P* . P* ENTRY: CF A15,DCSRST A6=DWT 2 P* EXIT: ABR* A15 A1=STATUS N F P* 0=COMPLETED -1= NOT CONFIG P* @ P************************************************
0x089654…0897e8 Dummy {f00=0x000e, f01=0x0190, f02=»UFFER IF ANY z P LDR* A2,A15 RELOAD REG P XIF 4 P RF DCSEXI COMMON EXIT @ P EJECT ^ P l @ P*********************************************************** v P* B P* DCSRLL - RESET STATISTIC COUNTERS FOR ALL DWT:S IN CHAIN
0x0897e8…08997c Dummy {f00=0x000e, f01=0x0190, f02=»S OF HEAD DWT IF ANY. IF NOT START WITH CURRENT < P* -LOCATE LINK TO STATISTIC BUFFER. IF 0 GO TO NEXT DWT 8 $ P* -CLEAR COUNTERS IN THE BUFFER x P* 2 P* ENTRY: CF A15,DCSRLL A6=DWT 4 P* EXIT: ABR* A15 A
0x08997c…089b10 Dummy {f00=0x000e, f01=0x0190, f02=»********************** j P PDCSRLL EQU * ( P IFT STAT=1 < $ P IFT STUNIT=1 SUBUNIT STATISTICS P * P STR A2,A15 SAVE REGS ON SYSTEM STACK x P STR A6,A15 $ P LDR A1,A6 TEMP SAVE OF SPEC DWT " P LD A6,DWTCHD,A6 LINK TO HEAD & P
0x089b10…089ca4 Dummy {f00=0x000e, f01=0x0190, f02=» . P LD A6,DWTCHN,A6 LINK TO NEXT DWT IN CHAIN . P RB(NZ) DCSR10 NOT LAST CONTINUE TO CLEAR 6 P LDR* A6,A15 RELOAD REGS h P LDR* A2,A15 P XIF P IFT STAT=1 P IFF STUNIT=1 P RB DCSRST P XIF P RF DCSEXI COMMON EXIT
0x089ca4…089e38 Dummy {f00=0x000e, f01=0x0190, f02=» SPEC WITH PARAMETERS IN p . P* REGS A1 AND POSSIBLY A2 < P* DCSUPS - UPDATE COUNTER SPEC WITH PARAMETERS IN R : P* REGS A1 AND POSSIBLY A2. A7 = DTETAB < P* DCSUPD - UPDATE COUNTER SPEC WITH PARAMETERS IN
0x089e38…089fcc Dummy {f00=0x000e, f01=0x0190, f02=»IGURED. IF NOT EXIT WITH STATUS t : P* -IF ENTRY DCSUPD USED FETCH PARAMETER-1 FROM PACKET ( < P* -UPDATE COUNTER IN SPEC DWT IF PARAMETER WITHIN RANGE f 4 P* OF MAX VALUE KEPT IN THE CONTROL WORD OF THE P* STATISTIC BUFFER * P* IF SUBUNIT S
0x089fcc…08a160 Dummy {f00=0x000e, f01=0x018e, f02=»5,DCSUPR A6=DWT A1=PARAM-1 (A2=PARAM-2) t P* OR 2 2 P* CF A15,DCSUPD A6=DWT H 8 P* DATA PARAM-1 (A2=PARAM-2) ~ P* 6 P* EXIT: ABR* A15 A1=STATUS F P*
0x08a160…08a2f4 (1, 174) Dummy {f00=0x000e, f01=0x0190, f02=» H B P* +1=COUNTER OVERFLOWED P* N D P************::************************************************* X P PDCSUPR EQU * P IFT STAT=1 * P STR A3,A15 SAVE REGS ON SYSTEM STACK P STR A4,
0x08a2f4…08a488 Dummy {f00=0x000e, f01=0x0190, f02=»QU * P IFT STAT=1 * P STR A3,A15 SAVE REGS ON SYSTEM STACK P STR A4,A15 N P STR A5,A15 b P STR A6,A15 v " P LDR A6,A7 A6 = DTETAB ADDRESS P RF DCSU00 P XIF P P PDCSUPD EQU * P IFT STAT=1 * P S
0x08a488…08a61c Dummy {f00=0x000e, f01=0x0190, f02=» STACK p P LDK A4,2 ( P ADS A4,+12,A15 ADJUST RETURN POINT P L P V 0 PDCSU00 EQU * COMMON POINT FOR DCSUPR DCSUPD ` $ P LDK A4,0 PRESET STATUS FOR EXIT PDCSU01 EQU * P CF A15,DCOUNT INCR COUNTER P IFT STUNIT=1 &
0x08a61c…08a7b0 Dummy {f00=0x000e, f01=0x0190, f02=»KEEP IT x 4 P RB DCSU00 CLEAR STATUS AND UPDATE FOR HEAD DWT ! PDCSU04 EQU * ! H P XIF ! P IFT STAT=1 ! h $ P LDR A1,A4 MOVE STATUS FOR EXIT ! | P LDR* A6,A15 RELOAD REGS ! P LDR* A5,A15 ! P LDR* A4,A15 ! P LDR* A3,A15 ! P XIF !
0x08a7b0…08a944 Dummy {f00=0x000e, f01=0x0190, f02=»ATISTIC COUNTERS INTO USER BUFFER ! x P* " * & P* THE FOLLOWING ACTIONS ARE TAKEN " 4 < P* -CHECK IF FUNCTION CONFIGURED. IF NOT EXIT WITH STATUS " ^ 0 P* -CHECK USER PARAMETERS IF NOT CORRECT EXIT " : P* -FETCH SYMBOLIC ID FROM DWT AND MOV COUNTERS IF ANY
0x08a944…08aad8 Dummy {f00=0x000e, f01=0x0190, f02=»ACTION " n P* # : P* ENTRY: CF A15,DCSRED A6=DWT A8=ECB # P* # V 4 P* EXIT: ABR* A15 A1=STATUS # ` D P* 0=COMPLETED -1=NOT CONFIG # : P* -
0x08aad8…08ac6c Dummy {f00=0x000e, f01=0x0190, f02=» IN ECBEL AND (ECBBA)=COUNTERS # j > P********************************************************** $ & P $ h PDCSRED EQU * $ r P IFT STAT=1 $ * P STR A2,A15 SAVE REGS ON SYSTEM STACK $ P STR A3,A15 $ P STR A4,A15 $ P STR A5,A15 $ P STR
0x08ac6c…08ae00 Dummy {f00=0x000e, f01=0x0190, f02=» $ $ P LD A5,ECBRL,A8 ANY LENGTH GIVEN % P RF(Z) DCSRER NO % 0 P LD A4,DWTTAB,A6 TTAB ADDR % H P IFT STUNIT=1 % j " P LD A1,DWTCHD,A6 ANY HEAD DWT % P RF(Z) DCSR01 NO % 0 P LD A7,DWTSUB,A6 SYMBOLIC SUB ADDRESS IF ANY % P RF DCSR02 MOVE COUNTE
0x08ae00…08af94 (1, 175) Dummy {f00=0x0032, f01=0x0190, f02=»F(Z) DCSR04 NO SYMBOLIC ID MOVE 0 % $ P LD A1,DWTSTB,A6 ANY STAT BUFFER & * P RF(Z) DCSR04 NO MOVE 0 & R P ADR A1,A6 ADD BASE OF DWT & r $ P LD A3,STWMIX,A1 NO OF COUNTERS & P RF(Z) DCSR04 NOE MOVE 0 & P SLL A3,1 COUNTERS TO BYTES & , P ADK A3,
0x08af94…08b128 Dummy {f00=0x0032, f01=0x0190, f02=»ID OR STAT BUFFER MOVE ZEROE & P LDK A3,2 SIZE ' $ " P LDKL A1,DCZERO BUFFER ADDRESS ' : PDCSR06 EQU * ' ` & P SUR A5,A3 ANY SPACE IN USER BUFF ' t P RF(N) DCSRER NO ' 0 P CF A15,MOVSU MOVE STAT BUFFER TO USER BUFF ' P XIF ' P IFT STAT=1 '
0x08b128…08b2bc Dummy {f00=0x0032, f01=0x0190, f02=»IF ' P IFT STAT=1 ( P ( $ PDCSR08 EQU * ALL MOVE UPDATE ECB ( * " P SU A2,ECBBA,A8 START OF USER ( R P ST A2,ECBEL,A8 NO OF BYTES ( x P LDK A1,0 STATUS OK ( P RF DCSREX EXIT ( P ( 2 PDCSRER EQU * BUFFER ERROR E.G NONE OR OVERFLOW
0x08b2bc…08b450 Dummy {f00=0x0032, f01=0x0190, f02=»* A4,A15 ( P LDR* A3,A15 ) P LDR* A2,A15 ) $ P XIF ) 8 P RF DCSEXI COMMON EXIT ) D P* ) b PDCZERO DATA 0 ZEROE BUFFER ) l P EJECT ) > P********************************************************* ) P* ) P* COMMON EXIT FROM FUNCTIONS )
0x08b450…08b5e4 Dummy {f00=0x0032, f01=0x0190, f02=»A1,-1 STATUS NOT CONFIGURED ) P XIF * $ P ADKL A15,4 * 0 P ABR* A15 RETURN * D P EJECT * P IFT STAT=1 * j : P****************************************************** * ~ P* * " P* COMMON INTERNAL SUBROUTINES * P* * : P******************
0x08b5e4…08b778 Dummy {f00=0x0032, f01=0x0190, f02=»ENTRY: CF A15,DCLEAR A6=DWT * 0 P* EXIT: ABR* A15 A1=0 A6=DWT + , PDCLEAR EQU * + ` 0 P LD A2,DWTSTB,A6 ANY STATISTIC BUFFER LINKED + t P RF(Z) DCLEXI NO + P ADR A2,A6 ADD BASE OF DWT + 2 P LD A1,STWMIX,A2 GET MAX INDEX FOR THI
0x08b778…08b90c Dummy {f00=0x0032, f01=0x0190, f02=»DD OFFSET + , P ADR A2,A1 POINT AT LAST WORD+1 IN BUFF , PDCLOOP EQU * , B P CMR A2 CLEAR COUNTER , V P SUK A2,2 POINTER -2 , t P SUK A1,2 ALL CLEARED , P RB(NZ) DCLOOP NO , PDCLEXI EQU * , P LDK A1,0 STATUS , P RF DCEXIT COMMON RE
0x08b90c…08baa0 Dummy {f00=0x0032, f01=0x0190, f02=»A6=DWT , l * P* EXIT: ABR* A15 A4= - PDCOUNT EQU * - < P STR A1,A15 SAVE PARAM-1 - P $ P STR A2,A15 SAVE PARAM-2 IF ANY - p * P LD A3,DWTSTB,A6 ANY STATISTIC BUFFER - P RF(Z) DCONOB NO - P ADR A3,A6 ADD BASE OF DWT - P LDR A5,
0x08baa0…08bc34 (1, 176) Dummy {f00=0x003a, f01=0x0190, f02=»PARAM-1 - | 0 P CW A5,STWMIX,A3 PARAM-1 >MAX VALUE IN BUFF . P RF(NL) DCOMAX YES . D , P ADK A3,STWCTA START AFTER CONTROL WORD . ^ P ADR A3,A5 IN WORDS TO . P ADR A3,A5 START OF BUFFER . " P SLL A1,8 CHECK IF PARAM-2 REQ . P RF(N) DCO010 YES .
0x08bc34…08bdc8 Dummy {f00=0x003a, f01=0x018e, f02=»RITHM . p P RF(N) DCODBL / P XIF / $ P IFT STAT=1 / 0 ( P LDR* A1,A3 CHECK COUNTER OVERFLOWED / D P RF(N) DCOVRE YES NO UPDATE / p P ADR A2,A1 INCREMENT / P / P RF(O) DCOVRF OVERFLOW / P STR A2,A3 SAVE NEW VALUE / P RF DCOEXI /
0x08bdc8…08bf5c Dummy {f00=0x003a, f01=0x0190, f02=» / p P RF(N) DCOVRE 0 " P LDK A1,0 A1=0 A2=INCR VALUE 0 P DAR* A3 ADD TO COUNTER 0 D P RF(O) DCOVRF OVERFLOW 0 d $ P STR A1,A3 SAVE COUNTER 1ST WRD 0 & P ST A2,+2,A3 SAVE COUNTER 2ND WRD 0 P RF DCOEXI 0 P XIF 0 P IFT STAT=1 0 P
0x08bf5c…08c0f0 Dummy {f00=0x003a, f01=0x018e, f02=»A3 SAVE INDEX OVERFLOW FLAG 0 PDCOVRE EQU * 1 $ " P LDK A4,+1 SET STATUS OVERFLOW 1 8 P 1 ^ P RF DCOEXI 1 h P 1 z $ PDCOMAX EQU * PARAM-1 >MAX INDEX 1 P LDKL A4,-2 SET STATUS 1 P RF DCOEXI 1 PDCONOB EQU * NO BUFFER 1 ( P LDKL A4,-3 SE
0x08c0f0…08c284 Dummy {f00=0x003a, f01=0x40e2, f02=» P RF DCEXIT COMMON RETURN 2 P EJECT 2 $ P* 2 2 P* 2 < & P* COMMON RETURN FROM INTERNAL SUBS 2 F P* 2 p PDCEXIT EQU * 2 z " P ADKL A15,4 ADJUST STATUCK POS 2 P ABR* A15 2 P XIF 2 P END 2 @ 2 EQU * NO BUFFER 1 ( P LDKL A4,-3 SE
0x08c284…08c418 Dummy {f00=0x003a, f01=0x2008, f02=» 3 DCEXIT COMMON RETURN # END # $@ # 0 RF(Z) DCLEXI ZEROE " : 2 - ST A1,STWCTL,A2 RESTORE IT CLEANED STATUS =0 " V SLL A1,1 COUNTER INTO BYTES " , ' ADR A2,A1 POINT AT LAST WORD+1 IN BUFF " DCLOOP EQU * " SUK A2,2 POINTER -2
0x08c418…08c5ac Dummy {f00=0x003a, f01=0x0190, f02=» c n ( P ABR(NZ) A1 CALL RECOVERY IF DEFINED d P* d 4 P* d > : P* NO RECOVERY. CALL TENDIO IF BUSY BUT NO REQUEST d H P LD A2,DWTST,A6 DWT STATUS d P ANKL A2,DWFBSY BUSY? d P RF(NZ) RD100 NO, EXIT d P LDR A8,A8 REQUEST ON? d & P ABL(Z
0x08c5ac…08c740 Dummy {f00=0x003a, f01=0x018e, f02=»**************************************** d | P* e 0 P* ROUTINE NAME: e : P* NDGEDN e R P* e b P* FUNCTION: e l 4 P* THIS ROUTINE CALCULATES THE HIGEST DWT NUMBER e 8 P* (POSITION NUMBER IN DWT TABLE) FOR A WORK STATION. e P* e P* CALL: e
0x08c740…08c8d4 (1, 177) Opaque[0x194]
0x08c8d4…08ca68 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0200, f03=0x0000}
0x08c8d4…08ca68 IdxSect {
0x08c8d4…08ca68 f00 = 0x0010 // 0x8c8d4 @0x0
0x08c8d4…08ca68 f01 = 0x0002 // 0x8c8d6 @0x2
0x08c8d4…08ca68 gno = [ // 0x8c8d8 @0x4
0x08c8d4…08ca68 [0x00]: C0x0010.0x0.0
0x08c8d4…08ca68 ]
0x08c8d4…08ca68 }
0x08ca68…08cbfc Dummy {f00=0x0010, f01=0x018e, f02=» 0 P IDENT PFTAB REL 11.0 81-01-26 870105041100 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x08cbfc…08cd90 Dummy {f00=0x0010, f01=0x0190, f02=» P EXTRN SOPR SOP. PANEL ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS " P EXTRN FDON FLEXIBLE DISC N P EXTRN LPON LINE PRINTER p P EXTRN CRON CARD READER P EXTRN DUON DISC UNIT P EXTRN MDON MINI FIXED DISC $ P EXTRN MTDRON MAGNETIC
0x08cd90…08cf24 Dummy {f00=0x0010, f01=0x4132, f02=»N CDC DISC P EXTRN PLON LINE CONTROLLER P EXTRN VUON VIDEO 6 P EXTRN X25:ON X25 LEVEL 3 P P r P z P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA CHLTON P DATA FDON FLEXIBLE DISC P* PPFTABE E
0x08cf24…08d0b8 Dummy {f00=0x0010, f01=0x2008, f02=» TON LOCAL/REMOTE TERMINALS P* * P EXTRN DUON DISC UNIT 4 " P EXTRN MTON MAGNETIC YAPE UNIT R P* x P* $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TWON P DATA TCDRON P DATA SOPR P DATA DRDCON P DATA
0x08d0b8…08d24c Dummy {f00=0x0010, f01=0x0190, f02=»XTRN CHRT3 P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 & ( P EXTRN IHCC2 2 R ( P EXTRN IHCC3 3 ~ L P EXTRN CHLT1,IHSVU1,IHSVU2,IHSVU3,IHSVU4,IHSVU5 LOCAL CHANNEL UNIT NO. 1 > P EXTRN CHLT2,I
0x08d24c…08d3e0 Dummy {f00=0x0010, f01=0x018e, f02=»IHPVU8 t 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC * P EXTRN IHLP,IHPL03,IHPL04 LINE PRINTER B ( P EXTRN IHCR,CHLT3,CHLT4 CARD-READER p ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC P EXTRN IHMT
0x08d3e0…08d574 (1, 178) Opaque[0x194]
0x08d574…08d708 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x08d574…08d708 IdxSect {
0x08d574…08d708 f00 = 0x0007 // 0x8d574 @0x0
0x08d574…08d708 f01 = 0x0004 // 0x8d576 @0x2
0x08d574…08d708 gno = [ // 0x8d578 @0x4
0x08d574…08d708 [0x00]: C0x0007.0x3.0
0x08d574…08d708 [0x01]: C0x000c.0x1.0
0x08d574…08d708 ]
0x08d574…08d708 }
0x08d708…08d89c Dummy {f00=0x0007, f01=0x0190, f02=» 0 P IDENT LKMAL REL 11.0 81-01-26 870105041100 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x08d89c…08da30 Dummy {f00=0x0007, f01=0x0190, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l & P EXTRN TLUSEG LOCK/UNLOCK SEGMENT P EXTRN TLDSEG SEGMENT TLDSEG P EXTRN TABORT ABORT FUNCTION P EXTRN
0x08da30…08dbc4 Dummy {f00=0x0007, f01=0x0190, f02=»XTRN TIOFM FILE MANAGEMENT ( P EXTRN DMTEND DATA MANAGEMENT COMMIT " " P EXTRN TCHPAG CHANGE MMU PAGE N " P EXTRN TCHMMU CHANGE MMU TABLE t 2 P EXTRN TSWBLK LOAD/STORE SWAPPABLE WORK BLOCK P EXTRN TMOVE MOVE P EXTRN TENEDM TENDIO FOR EDM
0x08dbc4…08dd58 Dummy {f00=0x0007, f01=0x0190, f02=» P* P* P* P* " P* , P* 6 P* @ P* J P EJECT T P* b $ PLKMAL DATA LKMALE-* TABLE LENGTH l P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIV
0x08dd58…08deec Dummy {f00=0x0007, f01=0x018e, f02=»OCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION > P DATA TDATE GET/SET DATE b 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DAT
0x08deec…08e080 Dummy {f00=0x0007, f01=0x401e, f02=» P* P END @ A TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION > P DATA TDATE GET/SET DATE b 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DAT
0x08e080…08e214 (1, 179) Dummy {f00=0x000c, f01=0x2008, f02=» f " P DATA SETTIM SET MONITOR CLOCK PLKMALE EQU * 4 P* H P END R@ ^INAL EXIT R ( P DATA TACTOT ACTIVATE OTHER TERMINAL t P DATA TPAUSE TERMINAL PAUSE P DATA TIMER TIMER P DATA GETBUF GET BUFFER P DATA RELB
0x08e214…08e3a8 Dummy {f00=0x000c, f01=0x0190, f02=»A1,1,A8 P ELR A4,A8 P SRL A6,8 " P ANKL A4,/FF00 4 P ORR A6,A4 J P* 6 PGETT15 ESR A6,A8 SET VALUE IN TIMER CONTROL BLOCK f P XIF P* P SUK A3,2 P RF(E) GETT20 P ADKL A8,2 , P LDR* A6,A15 GET ACTUAL
0x08e3a8…08e53c Dummy {f00=0x000c, f01=0x0190, f02=»ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 " P* X PTPDIS EQU * b P CMR A7 CLEAR MIDNIGTH CARRY v P ABL LKMQDI P* P EJECT MONTIM P* P* P********** P* SETTIM * P
0x08e53c…08e6d0 Dummy {f00=0x000c, f01=0x0190, f02=»WITH h 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS @ $ P* COPIED INTO MONITOR CLOCK. t P* P* PSETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P* $ P
0x08e6d0…08e864 Dummy {f00=0x000c, f01=0x0190, f02=»6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 $ ( P LC A6,1,A8 GET RIGHTHAND CHARACTER 6 P XIF b P* n P EJECT MONTIM x P* P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CON
0x08e864…08e9f8 Dummy {f00=0x000c, f01=0x0190, f02=» SLL A6,8 P SRL A4,8 P ORR A6,A4 $ P* 6 PSETT15 EQU * @ P XIF T P* ` $ P CF A15,ASCTBY CONVERT TO BINARY j P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS AND MINUTES P RB
0x08e9f8…08eb8c Dummy {f00=0x000c, f01=0x0190, f02=» l P SUK A7,2 P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK . P SUK A7,2 Z P LDR* A6,A15 l & P STR A6,A7 HOURS TO MONITOR CLOCK P SUK A7,2 P RB TPDIS P* P EJECT MONTIM P* P* P****
0x08eb8c…08ed20 Dummy {f00=0x000c, f01=0x0190, f02=» IT IS ENTERED FROM THE LKM HANDLER ( P* WITH THE FOLLOWING PARAMETERS: , P* X $ P* A7 = GET/SET DATE PARAMETER b < P* (A7 = 0 MEANS GET DATE, A7 = 1 MEANS SET DATE) & P* A8 = DATE CONTROL BLOCK (DCB) P* P* 0 P
0x08ed20…08eeb4 (1, 180) Opaque[0x194]
0x08eeb4…08f048 # DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x08eeb4…08f048 IdxSect {
0x08eeb4…08f048 f00 = 0x000a // 0x8eeb4 @0x0
0x08eeb4…08f048 f01 = 0x0058 // 0x8eeb6 @0x2
0x08eeb4…08f048 gno = [ // 0x8eeb8 @0x4
0x08eeb4…08f048 [0x00]: C0x000a.0x0.0
0x08eeb4…08f048 [0x01]: C0x000a.0x1.0
0x08eeb4…08f048 [0x02]: C0x002e.0x0.0
0x08eeb4…08f048 [0x03]: C0x002e.0x1.0
0x08eeb4…08f048 [0x04]: C0x002e.0x2.0
0x08eeb4…08f048 [0x05]: C0x002e.0x3.0
0x08eeb4…08f048 [0x06]: C0x002f.0x0.0
0x08eeb4…08f048 [0x07]: C0x002f.0x1.0
0x08eeb4…08f048 [0x08]: C0x002f.0x2.0
0x08eeb4…08f048 [0x09]: C0x0035.0x0.0
0x08eeb4…08f048 [0x0a]: C0x0040.0x2.0
0x08eeb4…08f048 [0x0b]: C0x0040.0x3.0
0x08eeb4…08f048 [0x0c]: C0x0041.0x0.0
0x08eeb4…08f048 [0x0d]: C0x0045.0x3.0
0x08eeb4…08f048 [0x0e]: C0x0046.0x0.0
0x08eeb4…08f048 [0x0f]: C0x0062.0x2.0
0x08eeb4…08f048 [0x10]: C0x0062.0x3.0
0x08eeb4…08f048 [0x11]: C0x0063.0x0.0
0x08eeb4…08f048 [0x12]: C0x0063.0x1.0
0x08eeb4…08f048 [0x13]: C0x0063.0x2.0
0x08eeb4…08f048 [0x14]: C0x0063.0x3.0
0x08eeb4…08f048 [0x15]: C0x0069.0x1.0
0x08eeb4…08f048 [0x16]: C0x0069.0x2.0
0x08eeb4…08f048 [0x17]: C0x0069.0x3.0
0x08eeb4…08f048 [0x18]: C0x0072.0x2.0
0x08eeb4…08f048 [0x19]: C0x0072.0x3.0
0x08eeb4…08f048 [0x1a]: C0x0073.0x0.0
0x08eeb4…08f048 [0x1b]: C0x0073.0x1.0
0x08eeb4…08f048 [0x1c]: C0x0073.0x2.0
0x08eeb4…08f048 [0x1d]: C0x0073.0x3.0
0x08eeb4…08f048 [0x1e]: C0x0074.0x0.0
0x08eeb4…08f048 [0x1f]: C0x0074.0x1.0
0x08eeb4…08f048 [0x20]: C0x0075.0x2.0
0x08eeb4…08f048 [0x21]: C0x0075.0x3.0
0x08eeb4…08f048 [0x22]: C0x007e.0x1.0
0x08eeb4…08f048 [0x23]: C0x0081.0x0.0
0x08eeb4…08f048 [0x24]: C0x0081.0x1.0
0x08eeb4…08f048 [0x25]: C0x0081.0x2.0
0x08eeb4…08f048 [0x26]: C0x0081.0x3.0
0x08eeb4…08f048 [0x27]: C0x0082.0x0.0
0x08eeb4…08f048 [0x28]: C0x0086.0x3.0
0x08eeb4…08f048 [0x29]: C0x0087.0x0.0
0x08eeb4…08f048 [0x2a]: C0x0087.0x1.0
0x08eeb4…08f048 [0x2b]: C0x0087.0x2.0
0x08eeb4…08f048 ]
0x08eeb4…08f048 }
0x08f048…08f1dc Dummy {f00=0x000a, f01=0x0190, f02=» 2 P IDENT SYSLOD REL 11.0 81-05-22 870105041100 P : ( P =12,COND. ASSEMBLY EDM INTRODUCED B P =12,REL 11.0 81-05-19 n * P =11,ERROR IN READ ROUT. FOR 16M,80M P =11,REL 11.0 81-05-11 , P =10,TWO WORDS IN INTERRUPT TABLE ARE
0x08f1dc…08f370 Dummy {f00=0x000a, f01=0x0190, f02=» =8,WHEN CFTEST=1 TEST ALSO RWSI CONNECTION P =8,REL 11.0 81-03-31 6 $ P =7,WRONG VTOC-SECTOR POINTER V P =7,REL 11.0 81-03-12 ~ * P =6,DC BLOCK DESTROYED WHEN CFTEST=0 P =6,REL 11.0 81-02-06 2 P =5,SUPPORTS LOADING FROM
0x08f370…08f504 Dummy {f00=0x000a, f01=0x0190, f02=» KBYTE MEMORY OVERFLOW * P =3,WILL OCCUR IN SEGMENT ALLOCATION P =3,PRR 11.0 80-12-03 L 0 P =2,LOOK IF APPL. TYPE ALLOWED IN MONITOR l 0 P =2,REDESIGNED SEGMENT ALLOCATION ALGORITM P =2,PRR 11.0 80-11-20 * P =1,MXSTAB ADDR. N
0x08f504…08f698 Dummy {f00=0x000a, f01=0x0190, f02=»1 P ENTRY APLADA P ENTRY APLLAC P ENTRY APLLAP 6 P ENTRY APLLDA L P ENTRY APLMMC b P ENTRY APLMMP x P ENTRY APLNPE P ENTRY APLREL P ENTRY APLSTA P ENTRY APLTYP P ENTRY APLIOE P ENTRY APLSE
0x08f698…08f82c Dummy {f00=0x000a, f01=0x0190, f02=» P* * P*************************** ( P EXTRN CONVRT L ( P EXTRN POB RESTORE REGISTER CONTENTS b & P EXTRN PUSH SAVE REGISTER CONTENTS P EXTRN SYSLDM P EXTRN SCTANO P EXTRN SCTBUG P EXTRN SCTEFA
0x08f82c…08f9c0 Dummy {f00=0x000a, f01=0x0190, f02=»CTIPL P EXTRN SCTPSZ P EXTRN SCTSFA $ P EXTRN SCTSTB : P EJECT P P EXTRN REL ^ P EXTRN ERROR p P EXTRN MMDDIV P EXTRN TABBE P EXTRN MMEND P EXTRN CMPADR P EXTRN MOVE 4 P EXTRN TTB:MT DISPLACEMENT T
0x08f9c0…08fb54 (1, 181) Dummy {f00=0x000a, f01=0x0190, f02=»*************************** $ P* CONFIGURATION FILE (CONFIG) * $ $ P******************************* L P t P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS , PTDBID EQU TDBNT+2 6A TASK
0x08fb54…08fce8 Dummy {f00=0x000a, f01=0x0190, f02=»R OF TERMINAL DEVICE CLASSES v P* $ & PTDBFST EQU TDBNC+2 SAVE05 TERM DEF . $ PTDC EQU 7 TERMINAL DEVICE CLASS X PTLC EQU 7 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P*
0x08fce8…08fe7c Dummy {f00=0x000a, f01=0x0190, f02=»SDCFST EQU CDBNC+2 SAVE05 SDC-RECORD P* , P* 6 & P* USER WORK BLOCK TYPE DEF. BLOCK @ PUDBBT EQU 0 1A BLOCK TYPE j , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES P* ( PUDBFST EQU UDBNU+3 SAVE05 UDB-RECORD PNAMUWB EQU 3 NAME OF U
0x08fe7c…090010 Dummy {f00=0x000a, f01=0x0190, f02=»* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS 0 P R PLMP1 EQU /400 LAMP 1 CODE Z PLMP2 EQU /200 | PLMP3 EQU /100 PLMP4 EQU /80 PLMP5 EQU /40 PLMP6 EQU /20 PLMP7 EQU /10 PLMP8 EQU 8
0x090010…0901a4 Dummy {f00=0x000a, f01=0x018e, f02=» MXSTAB DISPLACEMENTS * ( P*********************************** * P V P ^ PMX:NOX EQU 6 f , PMX:NOS EQU 8 NUMBER OF SEGMENT CLUSTERS z P P 2 P********************************************* 2 P*
0x0901a4…090338 Dummy {f00=0x000a, f01=0x0190, f02=» 2 P* * 2 P********************************************* : P p P x 2 PAPLADA EQU 22 APPLICATION DISC FILE ADDRESS =2 . PAPLREL EQU 18 APPLICATION RELOCATION BASE , PAPLIOE EQU 0 APPLICATION RESTART
0x090338…0904cc Dummy {f00=0x000a, f01=0x018e, f02=»CATION LOAD ADDR. (PHYSICAL ADDR.) ~ . PAPLMMC EQU 10 APPLICATION MMU START ENTRY * ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU . PAPLPSZ EQU 20 APPLICATION SE
0x0904cc…090660 Dummy {f00=0x000a, f01=0x0190, f02=» p P EJECT " P****************************** " P* * < " P* COMMON DISPLACEMENTS * b " P* AND CONSTANTS * " P* * " P****************************** P P
0x090660…0907f4 (1, 182) Dummy {f00=0x002e, f01=0x0190, f02=»PLICATION NUMBER ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA D , PCONSTA EQU 2 START OF CONFIGURATION DATA v ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER
0x0907f4…090988 Dummy {f00=0x002e, f01=0x0190, f02=»ILDING DATA PART n ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA D ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA r $ PM:REL EQU 16 RELOCATION CONSTANT , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-F
0x090988…090b1c Dummy {f00=0x002e, f01=0x0190, f02=»1 EQU 40 COMMON SAVE AREA 1 $ PCOM02 EQU 42 COMMON SAVE AREA 2 $ $ PCOM03 EQU 44 COMMON SAVE AREA 3 L * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS t , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 S
0x090b1c…090cb0 Dummy {f00=0x002e, f01=0x018e, f02=»EMENTS * " P* AND CONSTANTS * " P* * < " P****************************** b P P , PAPLCNT EQU 4 NO OF APPLICATIONS TO LOAD & PBLKLEN EQU 6 SEGMENT BLOCK LENGTH 8 PCARFIX EQU 54
0x090cb0…090e44 Dummy {f00=0x002e, f01=0x0190, f02=» * PCONDAD EQU 44 CONF. FILE DISC ADDRESS P* EQU 46 2 0 PCONDEV EQU 32 SAVE AREA FOR CONF. DATA DEV. B , PCURAPL EQU 24 CURRENT APPL. CONTR. BLOCK v PDEVTYP EQU 50 DEVICE TYPE 6 PDISCAD EQU 28 SAVE AREA FOR DISC ADDRESS (2 WORDS) $ PECNFBF
0x090e44…090fd8 Dummy {f00=0x002e, f01=0x0190, f02=»TENT LENGTH z 6 PFILCOD EQU 36 LOAD DEVICE FILE CODE (NOT CASSETTE) ( PFSTSEC EQU 16 FIRST SECTOR INDICATOR N 0 PIPLDEV EQU 34 SAVE AREA FOR PGM LOAD DEVICE z & PIPLTYP EQU 48 PGM LOAD DEVICE TYPE & PLLDADR EQU 12 LOGICAL LOAD ADDRESS , PLSTREC
0x090fd8…09116c Dummy {f00=0x002e, f01=0x0190, f02=» EQU 8 NO OF CHAR. IN APPL. NAME * PNCHTID EQU 5 NO OF CHAR IN TID RECORD ( & PNDEVCL EQU 18 NO OF DEVICE CLASSES V 2 PNUMSEG EQU 10 DISPL. TO NO OF SEGM. IN S:GTAB . POPTION EQU 52 SAVE AREA FOR OPTOIN WORD =2 & PPAGLG EQU 8 PAGE LENGTH IN S:GTA
0x09116c…091300 Dummy {f00=0x002e, f01=0x0190, f02=»NT j : PPSECNL EQU 40 PHYSICAL SECTOR NUMBER LEAST SIGNIFICANT : PPSECNM EQU 42 PHYSICAL SECTOR NUMBER MOST SIGNIFICANT H , PPSECPA EQU 38 PHYSICAL SECTOR PART (0-2) " PSEGCNT EQU 10 SEGMENT COUNTER $ PSWPFEL EQU 14 FILE EXTENT LENGTH * PTNBR
0x091300…091494 (1, 183) Dummy {f00=0x002e, f01=0x0190, f02=»******* , PCHCR EQU /E DEVICE ADDRESS FOR CASSETTE PLOCK EQU /2 LOCK CASSETTE @ ( PSBOT EQU 8 SEARCH BEGINNING OF TAPE b ( PSTMF EQU /C SEARCH TAPEMARK FORWARD P* " P* DISC/FLEXIBLE DISC HANDLING P* ( PBUFLEN EQU 256 LENGT
0x091494…091628 Dummy {f00=0x002e, f01=0x0190, f02=» FLEXIBLE DISC CU ADDRESS $ PFDIOP EQU FDCU+FDCU MUX ADDRESS " PFORDEV EQU 48 DISC FORMAT J " PMUXCC EQU /8080 1:ST MUX WORD l * PMXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS PQBLFAC EQU 6 BLOCKING FACTOR , PCIO EQU /41C0 I/O INSTR. CONF. CONST
0x091628…0917bc Dummy {f00=0x002e, f01=0x0190, f02=»: CFR A14,A13 * x F P* DATA [REL-ADDRESS] * 2 F P* * | F P*****************************************************************
0x0917bc…091950 Dummy {f00=0x002e, f01=0x0190, f02=» ASSEMBLY * P************************** P 6 P > P* F " P* CONSTANTS EDITED BY SYSGEN P P* v P P PX:A EQU 1 PX:B EQU 1 PX:C EQU 1 PX:D EQU 0 PX:E EQU 0 PX:F EQU 0 =9 PX:G EQU
0x091950…091ae4 Dummy {f00=0x002e, f01=0x0190, f02=» LOAD DEVICE = CASSETTE | , PDISC EQU 0 1-PROGRAM LOAD DEVICE = DISC 8 PFLDISC EQU 1 1= PROGRAM LOAD DEVICE = FLEXIBLE DISC P 8 PMFDISC EQU 0 1-PROGRAM LOAD DEVICE = MINI FIXED DISC 4 PCDDISC EQU 0 1-PROGRAM LOAD DEVICE=80M CDC DISC 8 PCDDI16 E
0x091ae4…091c78 Dummy {f00=0x002e, f01=0x0190, f02=»TFLD EQU CFTEST+FLDISC P EJECT : P****************************************************** , : P* * j : P* APPLICATION LOAD PART OF SYSLOD * : P* =======================
0x091c78…091e0c Dummy {f00=0x002e, f01=0x0190, f02=» * b : P* A2 - PROGRAM LOAD DEVICE * : P* A3 - APPLICATION NUMBER * L : P* A7 - APPLICATION DISC ADDRESS BIT 16-31 * : P* A8 - APPLICATION DISC ADDRESS BIT 0-15 * : P*
0x091e0c…091fa0 Dummy {f00=0x002e, f01=0x0190, f02=» * : P* EXIT: * 0 : P* * n : P* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM * : P* LODSEG,REBUF,
0x091fa0…092134 (1, 184) Dummy {f00=0x002e, f01=0x0190, f02=» * f : P****************************************************** PSYSLOD EQU * R P* f P* SAVE REGISTERS p P* 4 P ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE * P ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE P ST A2,IPLDEV+
0x092134…0922c8 Dummy {f00=0x002e, f01=0x018e, f02=»YSLOD t P SUK A3,TBLBAS PTBLBAS EQU *-2-SYSLOD $ & P ST A3,APLTAB+STKCOM AS TABLE AREA B " P LDK A1,1 INITIATE NO OF APPL. l P STR A1,A3 AND SAVE IN TABLE > P ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 > P ST A7,APLADA+4,
0x0922c8…09245c Dummy {f00=0x002e, f01=0x0190, f02=» 4 PSYS100 ADKL A13,SYS110-SYS100 POINTER TO SYS110 P LD A1,SCTBUG < P LDR A2,A1 R 8 P ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START d P ABR(NZ) A1 P* PSYS110 EQU * " P LD A15,SCTSTB LOAD STACK BASE " P SUKL A15,4 ADJU
0x09245c…0925f0 Dummy {f00=0x002e, f01=0x018e, f02=»POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) $ P* AND ADDRESS TO GETPSW-ROUTINE ! > P* ! f P LDR A8,P RETURN ADDRESS ! p & P LDKL A3,REL+2 RELOCATION ROUTINE ! P CFR A8,A3 ! $ P LDKL A5,/5555 LOAD TEST PATTERN ! P LDK A6,64 INIT PAGE
0x0925f0…092784 Dummy {f00=0x002e, f01=0x0190, f02=» " P SLL A6,2 UPPER SAVE20=256 KB " P LDK A1,0 MMU ENTRY POINTER " * PAP:010 EQU * " N " P LD A2,TABBE GET PAGE ADDRESS " b 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS " P ST A2,TABBE STORE IT BACK " P TL TABBE LOAD MMU REGISTERS " 0 P EL
0x092784…092918 Dummy {f00=0x002e, f01=0x0190, f02=» 2 P ES A3,PAGSIZ-2,A1 RESTORE OLD MEMORY CONTENTS # ( P CWR A2,A5 COMPARE WITH TEST PATTERN # : P RF(E) AP:020 # f ( P SUK A6,4 DECREMENT NUMBER OF PAGES # | P RB AP:010 # P* # $ P* CHECK IF MMU HARDWARE PRESENT # P* # PAP:020 LDKL A1,/FC
0x092918…092aac Dummy {f00=0x002e, f01=0x0190, f02=»REGISTERS IN MMU TABLE # | " P CW A1,MMDDIV,A13 SUCCESSFUL? $ " P RF(E) AP:030 YES! MMU PRESENT $ D P LDKL A1,LMP9 $ j . P CALL ERROR INDICATE HARDWARE NOT PRESENT $ $ PAP:030 CM TABBE RESET MMU TABLE $ P* $ D P* END OF EXECUTION PATH FOR SYSTEMS
0x092aac…092c40 Dummy {f00=0x002e, f01=0x0190, f02=» PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY $ P* % 8 $ P LDKL A1,PAGSIZ-2 START AT /FFFE % B PAP:110 EQU * % j & P SUKL A1,PAGSIZ NEXT PHYSICAL PAGE % ~ ( P LDR* A2,A1 SAVE OLD MEMORY CONTENT % " P STR A5,A1 STORE TEST PATTERN % P CWR* A5,A1 CH
0x092c40…092dd4 (1, 185) Dummy {f00=0x002e, f01=0x0190, f02=» EQU * % * P STR A2,A1 RESTORE OLD MEMORY CONTENT & P* & < H P* END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY & F P* & P XIF & P EJECT & P* & P* COMMON EXECUTION PATH & P* & PAP:200 EQU * & 0 P ST A6,SCT
0x092dd4…092f68 Dummy {f00=0x002e, f01=0x0190, f02=»T FRAME TO BE USED & ~ P LDK A3,0 ' . P ST A3,SCTEFA+2 AREA EMPTY IN FIRST FRAME ' , $ P LD A1,SCTOPT GET OPTION WORD =2 ' ^ P ST A1,OPTION+STKEND =2 ' $ P ANKL A1,/FFF RESET TYPE BITS =2 ' * P ST A1,SCTOPT AND SET AS NEW OPTION =2 ' P* ' H P
0x092f68…0930fc Dummy {f00=0x002e, f01=0x0190, f02=»RESS TO READ-BUFFER ' * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE ( P* ( J & P* INITIALIZE PROGRAM LOAD DEVICE ( T P* ( ~ P CF A14,LODDEV ( P LDR A3,A9 SAVE ( . P AD A3,SAVCON COMPUTE START OF APPL. TABLE ( " P ST A3,SCTSFA STORE IN SYSTAB (
0x0930fc…093290 Dummy {f00=0x002e, f01=0x0190, f02=» PAP:232 EQU * ) P IFT EDM=1 =12 ) P* ) 0 & P* LOAD MONITOR EXTENTS IF PRESENT ) : P* ) d ( P CF A14,LODMEX LOAD MONITOR EXTENTS ) n P XIF ) P* ) $ P* SCAN CONF. FILE FOR POSSIBLE ) $ P* APPLICATION DEFINITION BLOCKS ) P* )
0x093290…093424 Dummy {f00=0x002e, f01=0x0190, f02=»IGN. PART OF DISC ADDRESS ) x 8 P LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDRESS * " ( P LD A10,READ GET SUBROUTINE ADDRESS * ^ " P CFR A14,A10 READ FIRST SECTOR * PAP:233 EQU * * 0 P LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS * ( P LDR* A6,A1 GET
0x093424…0935b8 Dummy {f00=0x002e, f01=0x0190, f02=»KEND CURRENT APPL. CONTROL BLOCK * PAP:234 EQU * + ( ( P LD A7,SCTEFA GET FIRST FRAME TO USE + < ( P LD A5,SCTEFA+2 AND AREA EMPTY IN IT + h : P LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR. + P EJECT + PAP:235 EQU * + P* + . P* SAVE IN
0x0935b8…09374c Dummy {f00=0x002e, f01=0x018e, f02=»DDRESS TO FIRST + r * P CM APLSEG+2,A1 CORE RESIDENT SEGMENT , 4 P CM APLMMC,A1 CLEAR REL. POSITION OF CONF. DATA , F . P CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 , ~ 0 P CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 , : P LDR* A6,A9 GET PGM. START ADDRESS (
0x09374c…0938e0 Dummy {f00=0x002e, f01=0x0190, f02=» 4 P LDKL A4,/1000 INITIALIZE BIT SETTING (BIT 3=1) - $ P CWK A6,'CR' CREDIT APPLICATION? - < P RF(E) AP2340 - d P* - z . P SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) - $ P CWK A6,'CO' COBOL APPLICATION? - P RF(E) AP2340 - P* - . P SLL A4,1
0x0938e0…093a74 (1, 186) Dummy {f00=0x002f, f01=0x0190, f02=»R TYPE - v 2 P SLL A4,1 BIT SETTING FOR ASSEMBLER (BIT 0=1) . PAP2340 EQU * . D * P ST A6,APLTYP,A1 SAVE APPLICATION TYPE . X , P CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2 . P RF(E) AP2345 =2 . 6 P AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 .
0x093a74…093c08 Dummy {f00=0x002f, f01=0x018e, f02=»2,A4 SET BIT IN OPTION WORD . P ST A2,SCTOPT AND SAVE / $ P CWK A6,'AS' / B * P RF(E) AP2350 SKIP IF ASSEMBLER APPL. / V P* / , P LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE / 6 P CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE / . P RF(NG) AP2350 I
0x093c08…093d9c Dummy {f00=0x002f, f01=0x0190, f02=» P EJECT 0 P* 0 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION 0 P* 0 R ( P CWK A6,'AS' ASSEMBLER APPLICATION? 0 $ P ABL(E) AP:330 YES! NO SEGMENTS 0 P LDR A4,A3 SAVE 0 $ P ANKL A4,/3FF EVEN 1K MULTIPLE? 0 P RF(Z) AP:237 YES! 0
0x093d9c…093f30 Dummy {f00=0x002f, f01=0x0190, f02=»EGMENTS DEFINED 0 r P* 1 PAP:238 EQU * 1 " P ABL(Z) AP:330 NO SEGMENTS! 1 6 P* 1 Z 2 P CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM. 1 d P* 1 2 P* A1 - POINTER TO CURRENT APPL. CONTR. BLOCK 1 " P* A3 - PAGESIZE IN 1K BLOCKS 1 " P* A5 -
0x093f30…0940c4 Dummy {f00=0x002f, f01=0x0190, f02=» STORE ADDRESS(ES) TO PAGE FRAMES 1 & P* HOLDING THE FIRST LOGICAL PAGE 2 * P* 2 T , P SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 2 ^ ( P LDKL A6,MMEND GET END OF MMU-TABLE 2 " P LDKL A8,16 AND NO OF ENTRIES 2 * P LDR A4,A5 GET AREA LEFT IN LAST FRAME 2
0x0940c4…094258 Dummy {f00=0x002f, f01=0x0190, f02=»PAGE SIZE WITH FRAME SIZE 2 | P RB(P) AP:295 3 " $ P RF(Z) AP:300 EVEN 4K BYTES PAGE 3 8 P* 3 ` " P* RESERVE ONE EXTRA MMU ENTRY 3 j P* WHEN PAGE SIZE IS NOT AN 3 P* EVEN MULTIPLE OF 4K 3 P* 3 $ P LD A3,PAGLG+8,A9 GET PAGE SIZE 3 * P ANK
0x094258…0943ec Dummy {f00=0x002f, f01=0x0190, f02=» A6,2 ALLOCATE ONE ENTRY EXTRA 3 P SUKL A8,1 4 & P* 4 8 PAP:300 EQU * 4 B 4 P LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS? 4 V P RF(Z) AP:310 NO! 4 P* 4 ( P LDR A2,A7 GET SEGMENT FRAME ADDRESS 4 P LDR A3,A6 SAVE MMU ENTRY 4 P* 4
0x0943ec…094580 Dummy {f00=0x002f, f01=0x0190, f02=»MU TABLE? 4 z P RF(E) AP:310 YES! 5 P* 5 , , P ADKL A2,/400 INCREMENT PAGE FRAME ADDR. 5 6 P RB AP:305 5 f P* 5 x PAP:310 EQU * 5 P* 5 P* SAVE LOGICAL ADDRESS 5 P* TO SEGMENT 5 P* 5 P LDR A2,A8 GET MMU ENTRY 5 & P SLL A2,
0x094580…094714 (1, 187) Dummy {f00=0x002f, f01=0x018e, f02=» ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR. 5 P RF AP:335 6 < P* 6 N P* NO SEGMENTS DEFINED 6 X P* 6 v PAP:330 EQU * 6 0 P LDK A3,0 RESET NO OF MMU ENTRIES TO UPDATE 6 ( P LDKL A6,MMEND INITIATE MMU POINTER 6 & P LDKL A8,16 AND MMU
0x094714…0948a8 Dummy {f00=0x002f, f01=0x0190, f02=» P* 7 0 P* A1 - POINTER TO APPLICATION CONTROL BLOCK 7 , P* A4 - AREA LEFT IN CURRENT PAGE FRAME 7 B " P* A7 - PHYSICAL PAGE ADDRESS 7 r P* A6 - MMU ENTRY ADDRESS 7 P* A8 - CURRENT MMU ENTRY 7 P* 7 0 P LD A2,COMLG,A9 COMLG OF CORE RESI
0x0948a8…094a3c Dummy {f00=0x002f, f01=0x0190, f02=» A2,10 YES, ADD 5 WORDS FOR DEBUGGER 7 PAP:336 EQU * 8 , P ADK A2,1 8 @ $ P ANKL A2,/FFFE MAKE EVEN LENGTH 8 R P* 8 z $ P* IF APPLICATION IS LARGER THAN 8 P* 60 K BYTES, START ON A 4K 8 " P* BOUNDARY, TO MAKE SURE THAT 8 P* LOGICAL MEMORY
0x094a3c…094bd0 Dummy {f00=0x002f, f01=0x018e, f02=» RF(L) AP:337 NO! 8 P* 9 $ P LDK A4,0 START ON A 4K BOUNDARY 9 $ P RF AP:341 9 L P* 9 ^ PAP:337 EQU * 9 h & P ADK A2,0 RESTORE LENGTH CONDITION 9 | & P RF(N) AP:340 LARGER THAN ONE PAGE 9 P* 9 & P* APPLICATION IS SMALLER THAN 32 K 9 & P* BU
0x094bd0…094d64 Dummy {f00=0x002f, f01=0x0190, f02=» ( P* APPLICATION LENGTH LESS THAN AREA : P* LEFT IN LAST PAGE : 0 P* COPY FRAME ADDRESS IN NEXT : L P* MMU ENTRY : p P* : P* : P SUKL A8,1 : " P RF(N) TABOVF TABBE OVERFLOW! : P* : P SUK A6,2 : P STR A7,A6 UPDATE MMU ENTRY
0x094d64…094ef8 Dummy {f00=0x002f, f01=0x0190, f02=»MMU TABLE FOR : z " P* COMMON PART OF APPLICATION ; P* ; < $ P* A4 - AREA MAPPED BUT NOT USED ; F P* IN LAST MMU ENTRY ; n " P* A2 - LENGTH OF COMMON PART ; P LDR A4,A4 EMPTY FRAME? ; P RF(Z) AP:341 YES! ; P* ; ( P SUKL A8,1 NO,
0x094ef8…09508c Dummy {f00=0x002f, f01=0x0190, f02=»ADDRESS ; v PAP:341 EQU * < 2 P SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME < $ , P LDK A4,0 RESET AREA LEFT IN LAST FRAME < Z * P LDR A5,A2 SAVE REMAINING AREA NEEDED < P RF(Z) AP:351 NOTHING LEFT < P* < * P SRL A2,12 CONVERT TO NO OF 4K FRAME
0x09508c…095220 Dummy {f00=0x002f, f01=0x0190, f02=» MMU ENTRIES < P* = PAP:342 EQU * = & P SUK A2,1 MORE ENTRIES TO UPDATE? = 2 P RF(N) AP:350 NO! = P* = v * P SUKL A8,1 DECREMENT MMU ENTRY POINTER = " P RF(N) TABOVF TABLE OVERFLOW! = P* = ( P SUK A6,2 DECREMENT MMU ENTRY ADDR. = *
0x095220…0953b4 (1, 188) Dummy {f00=0x002f, f01=0x0190, f02=»DK A1,LMP7 = & P CALL ERROR SIGNAL TABBE OVERFLOW! > PMEMOVF EQU * > < P LDKL A1,LMP3 > P P CALL ERROR MEMORY OVERFLOW! > f P* > PAP:350 EQU * > P* > 0 P LDR A5,A5 RESTORE AREA TO USE IN LAST FRAME > P RF(Z) AP:351 > P* > " P L
0x0953b4…095548 Dummy {f00=0x002f, f01=0x0190, f02=» > x * P SLL A2,12 MOVE TO FOUR LEFTMOST BITS ? P LDR A8,A2 ? 6 $ P ORR A8,A4 LOGICAL START ADDRESS ? H ( P CWK A3,'AS' ASSEMBLER APPLICATION? ? p P RF(NE) AP:352 NO! ? P* ? * P ADKL A8,10 SKIP FIVE PRECEEDING WORDS ? PAP:352 EQU * ? P ST A8
0x095548…0956dc Dummy {f00=0x002f, f01=0x0190, f02=»ION LOAD ADDR. (BIT 0-5) ? r $ P ST A4,APLLDA+2,A1 AND BIT 6-17 @ , P ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL @ H & P ST A4,LSTADR+STKCOM ADDRESS USED @ x , P LDR* A1,A6 GET ADDRESS TO PHYSICAL PAGE @ $ P ANKL A1,/C000 GREATER THAN 64K? @ P RF(Z) AP:353
0x0956dc…095870 Dummy {f00=0x002f, f01=0x0190, f02=» @ P ADR A1,A4 ADD DISPLACEMENT A ( P LD A2,SCTSFA GET START OF FREE AREA A , ( P TNM A1,A2 ON SAME SIDE OF 32K-LIMIT A X P RF(NN) AP3532 YES! A P CWR A2,A1 A P RF AP3534 A PAP3532 CWR A1,A2 A PAP3534 EQU * A " P RB(L) MEMOVF MEMORY OVE
0x095870…095a04 Dummy {f00=0x002f, f01=0x0190, f02=» REGISTERS A ~ P XIF B P IFT MMUPAG=0 B P EJECT B 4 PAP:240 EQU * B B P* B V @ P* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION B ` P* B P* B & P* CHECK IF ASSEMBLER APPLICATION B P* B ( P CWK A6,'AS' ASSEMBLER APPLI
0x095a04…095b98 Dummy {f00=0x002f, f01=0x0190, f02=» RESERVE AREA FOR SEGMENTS B , P LDR A2,A7 CONFIGURE LOGICAL START ADDR. C " P SLL A2,2 TO FIRST SEGMENT C R P ORR A2,A5 C t P ST A2,LSTASG+STKEND C PAP:275 EQU * C . P LD A10,COMLG,A9 GET LENGTH OF COMMON PART C * P LD A3,APLTYP,A1 GET APPLICATION
0x095b98…095d2c Dummy {f00=0x002f, f01=0x0190, f02=»76 EQU * C P ADKL A10,1 D $ P ANKL A10,/FFFE MAKE EVEN LENGTH D $ 8 P RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE D L P* D > P CWR A10,A5 APPL. IS SMALLER THAN AREA LEFT IN LAST FRAME D P RF(NG) AP:280 YES! D P* D PAP:278 EQU * D
0x095d2c…095ec0 Dummy {f00=0x002f, f01=0x0190, f02=»NGTH D t $ P SRL A2,12 COUNT NO OF 4K BLOCKS E , P SRL A7,10 FRAME ADDRESS AS BLOCK COUNT E 4 $ P SUR A7,A2 SUBTRACT AREA NEEDED E d " P RF(N) MEMOVF MEMORY OVERFLOW! E P* E . P ANKL A10,/0FFF ISOLATE POSSIBLE REMAINDER E P RF(Z) AP:279 NO REMAINDER
0x095ec0…096054 (1, 189) Dummy {f00=0x0035, f01=0x0190, f02=» EQU * E $ P SLL A7,10 RESTORE FRAME ADDRESS F PAP:280 EQU * F 6 2 P SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME F J P LDR A4,A9 SAVE A9 F P LDR A8,A11 SAVE A11 F P ST A7,SCTEFA AND SAVE F 2 P ST A5,SCTEFA+2 SAVE DISPLACEMENT WITHIN PAGE F 6
0x096054…0961e8 Dummy {f00=0x0035, f01=0x0190, f02=»AVE LAST PHYSICAL F z & P ST A5,LSTADR+STKCOM ADDRESS USED G P SLL A7,2 G D P LDR A11,A7 G V . P ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR. G j ( P LD A9,SCTSFA GET START OF FREE AREA G $ P CALL CMPADR A11 COMPARED TO A9 G P RF(G) AP:290 G P*
0x0961e8…09637c Dummy {f00=0x0035, f01=0x018e, f02=»ER APPLICATION? G | P RF(NE) AP:295 NO! H P* H 2 ( P ADKL A11,10 SKIP 5 PRECEEDING WORDS H < PAP:295 EQU * H h 2 P ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS H | P LDR A9,A4 RESTORE A9 H P LDR A11,A8 RESTORE A11 H 2 P LD A8,LLDADR+STKEND A8
0x09637c…096510 Dummy {f00=0x0035, f01=0x0190, f02=» P XIF I P EJECT I P* I P* COMMON EXECUTION PATH I ( P* I H : P* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION I R P* I $ P* A8 - APPLICATION LOAD ADDRESS I * P* A10 - LENGTH OF CORE RESIDENT PART I P* I PAP:355 EQU * I
0x096510…0966a4 Dummy {f00=0x0035, f01=0x0190, f02=»E APPLICATION RELOCATION BASE I | 4 P CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. J & 6 P LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK J ^ $ P ST A7,LOD:10 MODIFY INSTRUCTION J * P CF A14,LODCOM LOAD CORE RESIDENT PART J P* J & P* CHECK IF ASSE
0x0966a4…096838 Dummy {f00=0x0035, f01=0x0190, f02=» J h ( P CWK A2,'AS' ASSEMBLER APPLICATION? K P ABL(E) AP:400 YES K 4 : P LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE K N 0 P LD A2,TNBRSG+STKEND GET NUMBER OF SEGMENTS K . P ABL(Z) AP:400 NO SEGMENTS IN APPLICATION K P* K 4 P CM SEGCNT+S
0x096838…0969cc Dummy {f00=0x0035, f01=0x0190, f02=»QU * K P* L & P* READ AND RELOCATE THE SEGMENTS L P* L @ . P* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT L J P* A10 - SEGMENT LENGTH L | P* L 6 P LD A3,CURAPL+STKEND GET APPL. CONTROL BLOCK ADDR. L 0 P LD A2,APLLAC,A3 GET LOGICAL ADDR. TO AP
0x0969cc…096b60 Dummy {f00=0x0035, f01=0x018e, f02=» A2,BLKLEN NEXT BLOCK L & P SUK A1,1 DECREMENT BLOCK COUNTER M P RB AP:365 M H PAP:370 EQU * M Z P* M n P* CHECK IF DISC PAGING M x P* M " P LD A1,SCTOPT GET OPTION WORD M P ANK A1,2 DISC PAGING? M P RF(Z) AP:376 NO! M P* M &
0x096b60…096cf4 (1, 190) Dummy {f00=0x0040, f01=0x0190, f02=» " P ANKL A12,/FF OF DISC ADDRESS N * P SRL A1,8 SEGMENT TYPE TO RIGHT BYTE N * ( P CCK A1,'RR' CORE RESIDENT SEGMENT? N X * P RF(E) AP:376 YES: LOAD THIS SEGMENT! N P* N * P* BYPASS THIS SEGMENT AND CHECK NEXT N P* N , P LD A1,SEGCNT+STKEND
0x096cf4…096e88 Dummy {f00=0x0040, f01=0x0190, f02=»T? N z P ABL(E) AP:400 YES! O 4 P ST A1,SEGCNT+STKEND SAVE CURRENT SEGMENT NUMBER O & P RB AP:360 O ^ & PAP:375 LDKL A1,LMP2 DISC I/O ERROR O p P CALL ERROR O P EJECT O PAP:376 EQU * O " P ADK A2,2 DISC SECTOR ADDRESS O ( P CALL GETCON GET D
0x096e88…09701c Dummy {f00=0x0040, f01=0x0190, f02=» P RF AP:378 NOT OVERFLOW P 4 PAP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS P $ " P ANKL A11,/7FFF RESET OVERFLOW P 4 PAP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A. P P CWK A12,255 OVERFLOW? P , P RB(G) AP:375 YES: ILLEGAL DISC ADDRESS! P P
0x09701c…0971b0 Dummy {f00=0x0040, f01=0x0190, f02=» EVEN LENGTH P | P ST A8,LLDADR+STKEND Q P CF A14,LODSEG LOAD SEGMENT Q 0 , P LD A1,SEGCNT+STKEND GET SEGMENT COUNTER Q T 6 P LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS Q ( P ADK A1,1 INCREMENT SEGMENT COUNTER Q $ P CWR A1,A2 ALL SEGMENTS LOADED
0x0971b0…097344 Dummy {f00=0x0040, f01=0x0190, f02=»LOCK =2 Q ` 0 P LD A4,APLPSZ,A3 AND SEGMENT SIZE DEFINED =2 R P IFT MMUPAG=0 R D , P ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE R Z P RB AP:360 R P XIF R P IFT MMUPAG=1 R P EJECT R PAP:379 EQU * R P LDR A1,A4 SAVE R . P ANKL A4,/0C00 G
0x097344…0974d8 Dummy {f00=0x0040, f01=0x0190, f02=»A1 SAVE R . P ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT S 0 P ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE S B 2 P ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE S v * P SUR A1,A8 COMPUTE PHYSICAL INCREMENT S PAP:380 EQU * S * P LD A8,APLLAP,A3 LOGICAL P
0x0974d8…09766c Dummy {f00=0x0040, f01=0x018e, f02=» S l P ADR A2,A2 2*MMU ENTRY T P ADR A2,A13 T & & P ADKL A2,MMDDIV MMU ENTRY ADDRESS T : P LDR A3,A13 T d P ADKL A3,MMDDIV+32 T x * P SRL A1,2 MAP PHYSICAL ADDRESS ON MMU T PAP:385 EQU * T , P ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE T P ADK
0x09766c…097800 Dummy {f00=0x0040, f01=0x0190, f02=» P XIF U P EJECT U PAP:400 EQU * U 8 P LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK U 2 P IM APLCNT+STKEND U n * P ABL(Z) CONLOD ALL APPLICATIONS LOADED U P* U . P ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION U 2 P ST A1,CURAPL+STKEND A
0x097800…097994 (1, 191) Dummy {f00=0x0040, f01=0x0190, f02=»R. U ` ( P LD A10,READ GET SUBROUTINE ADDRESS V " P CFR A14,A10 READ FIRST SECTOR V 6 P ABL AP:234 V P EJECT V p 2 P********************************************* V ~ 2 P* * V 2 P*
0x097994…097b28 Dummy {f00=0x0040, f01=0x0190, f02=» * V 2 P* RESERVE PAGES FOR RESIDENT SEGMENTS * W 2 2 P* * W h 2 P* * W 2 P********************************************* W
0x097b28…097cbc Dummy {f00=0x0040, f01=0x0190, f02=»T SEGMENTS W f * P ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 X " P LD A4,SCTOPT GET OPTION WORD X @ P SRC A4,2 DISC PAGING? X f P RF(NN) ALSG04 NO! X P* X * P LD A4,SCTIPL GET PROGRAM LOAD DEVICE X " P SUK A4,/F0 CHECK IF CASSETTE X 0 P RF(N) ALSG0
0x097cbc…097e50 Dummy {f00=0x0040, f01=0x0190, f02=»ION X t & P ADK A6,14 START OF SEGMENT BLOCKS Y PALSG00 EQU * Y 6 P ADK A6,6 NEXT SEGMENT BLOCK Y J P* LOOK IF OUTSIDE BUFFER Y n P* IF SO READ NEXT Y P* SECTOR BLOCK Y P* Y $ P LDR A4,A6 SAVE BUFFER POSITION Y P SUR A4,A9 RELATIVE
0x097e50…097fe4 Dummy {f00=0x0040, f01=0x0190, f02=» SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 Y $ P AND RESET BUFFER POSITION =5 Z < P* Z d PALSG01 EQU * Z n P LCR A4,A6 GET SEGMENT TYPE Z ( P CCK A4,'RR' CORE RESIDENT SEGMENT? Z P RF(NE) ALSG02 NO! Z 8 P IM SEGCNT+STKEND INCREMENT
0x097fe4…098178 Dummy {f00=0x0040, f01=0x0190, f02=»UMBER OF RESIDENT SEGMENTS Z z ( P RF(Z) ALSG12 NO RESIDENT SEGMENTS! [ " PALSG04 EQU * [ N 6 P ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS [ b 4 P ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM. [ " P LD A6,SCTOPT GET OPTION WORD [ P SRC A6,1 [
0x098178…09830c Dummy {f00=0x0040, f01=0x0190, f02=»TIPLE OF 4K BYTES [ x P* 0 P LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY $ P RF(Z) ALSG08 YES X P* r $ P LDK A5,0 START ON A 4K BOUNDARY | PALSG08 EQU * * P LDR A7,A7 LOOK IF 256 KBYTE MEMORY =3 P RF(NZ) ALSG8B NO! =3 , P LDK
0x09830c…0984a0 Dummy {f00=0x0040, f01=0x0190, f02=»ART ON 1K BOUNDARY x . P SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 ] ( P SRL A5,1 AND REMAINING AREA TOO =2 ] L * P SRL A7,10 CONVERT TO NO OF FRAMES =2 ] x " P LDR A4,A3 GET SEGMENT SIZE =2 ] . P NGR A4,A4 AND CORRESPONDING NEG. VALUE =2 ] PALSG09 EQU
0x0984a0…098634 (1, 192) Dummy {f00=0x0041, f01=0x018e, f02=»800 ALLOCATE ANOTHER FRAME =2 ] $ P RB(P) ALSG09 LOOK IF ENOUGH =2 ^ & PALSG10 EQU * =2 ^ N 4 P TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 ^ f P RF(N) ALS11A YES =2 ^ . P SUR A5,A3 ALLOCATE AREA TO ONE SEGMENT =2 ^ P RF ALS11B =2 ^ PALS11A
0x098634…0987c8 Dummy {f00=0x0041, f01=0x0190, f02=» $ P RB(NZ) ALSG09 MORE SEGMENTS =2 _ P LDR A7,A7 =2 _ , $ P ABL(N) MEMOVF MEMORY OVERFLOW! _ B P* _ j $ P SLL A7,10 RESTORE FRAME ADDRESS _ t . P ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO _ , P SLL A5,1 RESTORE AREA LEFT IN BYTES =2 _ . P SLL A3,1
0x0987c8…09895c Dummy {f00=0x0041, f01=0x018e, f02=»SECTOR OF APPLICATION _ * P* IF S:GTAB IS LARGER THAN ONE SECTOR ` P* ` L 8 P LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. ` V 2 P LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART ` & P CF A14,NXTSEC REREAD FIRST SECTOR ` P RTN A14 ` P `
0x09895c…098af0 Dummy {f00=0x0041, f01=0x0190, f02=» 8 P ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 a ( P ST A12,DISCAD+2+STKEND ADDRESS =10 a @ . P CALL POB RESTORE FORMER REGISTER CONTENTS a l : P LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10 a ( P LD A12,DISCAD+2+STKEND ADDRESS =10 a P
0x098af0…098c84 Dummy {f00=0x0041, f01=0x0190, f02=» * a v 4 P* LODMEX - LOAD MONITOR EXTENT(S) * b 4 P* =============================== * b V 4 P* * b 4 P* REFERENCED IN: SYSLOD * b 4 P*
0x098c84…098e18 Dummy {f00=0x0041, f01=0x0190, f02=» * b n 4 P* EXIT: * c 4 P* * c N 4 P* WORK REGISTERS: A1-A12 * c 4 P* * c 4 P* SUBROUTINES: L
0x098e18…098fac Dummy {f00=0x0041, f01=0x0190, f02=»***** c f PLODMEX EQU * d & P LD A1,SCTMXS MONITOR EXTENT TABLE d " PMSX10 EQU * d L P RF(Z) MSX99 d ` P* d t ( P LD A1,SCTOPT GET MONITOR OPTION =12 d ~ ( P SRC A1,1 LOOK IF MMU OPTION ON =12 d P RF(N) MSX15 YES =12 d 4 P LDKL A1,LMP9 NO, SET
0x098fac…099140 Dummy {f00=0x0041, f01=0x0190, f02=»D A3,MX:NOX,A1 GET NUMBER OF EXTENTS d 4 P LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS e , $ P SLL A6,1 MAKE BYTE DISPLACEMENT e d P ADK A6,4 e " P ADR A6,A1 FIRST EXTENT BLOCK e PMSX20 EQU * e & P SUK A3,1 DECREMENT EXTENT COUNTER e P RF(N)
0x099140…0992d4 (1, 193) Dummy {f00=0x0045, f01=0x0190, f02=»ADDRESS TO e z $ P LD A5,SCTEFA+2 END OF FREE AREA f P RF(NZ) MSX25 f : P* f P 2 P LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE f Z P SUKL A7,/400 f PMSX25 EQU * f ( P LD A2,EXLEN,A6 GET LENGTH OF EXTENT f & P ADK A2,11 RESERV FIVE EXTRA WORDS
0x0992d4…099468 Dummy {f00=0x0045, f01=0x0190, f02=»TES? f h P RF(N) MSX30 NO g P* g $ 2 P CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME g . P RF(L) MSX40 YES! g d P* g ~ PMSX30 EQU * g P LDR A1,A2 g . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES g P CWK A1,14 <60K BYTES? g P RF(L) MSX
0x099468…0995fc Dummy {f00=0x0045, f01=0x0190, f02=»K BOUNDARY g v P SUK A7,1 h PMSX35 EQU * h $ 0 P SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME h 8 " P LDK A5,0 AND SET EMPTY FRAME h l P LDR A1,A2 h . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES h , P SUR A7,A1 AND SUBTRACT FROM FRAME COUNT h $ P A
0x0995fc…099790 Dummy {f00=0x0045, f01=0x0190, f02=»KE NEXT EMPTY FRAME h ~ P SUK A7,1 i PMSX40 EQU * i . 4 P SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME i B PMSX45 EQU * i z & P CWK A7,15 LOOK IF FIRST PARTITION i * P ABL(NG) MEMOVF YES, MEMORY OVERFNGOW! i P* i . P ANKL A5,/FFFC START ON
0x099790…099924 Dummy {f00=0x0045, f01=0x0190, f02=»FREE AREA i x P* j $ P LD A4,SCTMXS GET MXSTAB ADDRESS j " P ADK A4,2 MONITOR DISC ADDRESS j D P XRR A1,A1 RESET REG. A1 j j * P LDR* A2,A6 GET MONITOR EXTENT ADDRESS j ( P DAR* A4 AND RELOCATE EXTENT ADDRESS j * P LDR A11,A2 GET LEAST SIGNIFICANT PA
0x099924…099ab8 Dummy {f00=0x0045, f01=0x0190, f02=»A 16 BITS ADDRESS j " P STR A1,A6 AND SAVE IN MXSTAB k P* k @ * P ADK A5,10 SKIP PRECCEDING FIVE WORDS k J : P ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) k x $ P LDR A8,A5 SAVE RELOCATION BASE k 0 P ADS A5,2,A6 RELOCATE PROGRAM START ADDRES
0x099ab8…099c4c Dummy {f00=0x0045, f01=0x0190, f02=»O MMU TABLE k t 6 P ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR l PMSX50 EQU * l N " P STR A7,A2 STORE PAGE ADDRESS l b $ P ADKL A7,/400 NEXT PAGE ADDRESS l P ADK A2,2 NEXT MMU ENTRY l & P ADK A3,1 INCREMENT ENTRY COUNTER l ( P CWK A3,16 ALL
0x099c4c…099de0 Dummy {f00=0x0045, f01=0x0190, f02=»* A3,A15 RESTORE NO OF EXTENTS l P RB MSX20 m & P* m 8 PMSX99 EQU * m B P RTN A14 m V P EJECT m f 4 P*********************************************** m t P* m P* GETMON m P* ====== m P* m & P* SEARCH F
0x099de0…099f74 (1, 194) Dummy {f00=0x0046, f01=0x0190, f02=»********************** m v P* n P* n ( PGETMON EQU * n 2 ( P LD A1,SCTANO GET APPLICATION NUMBER n F P ST A1,MONNO+STKEND SAVE n r 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC n 0 P LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER n 2 P SLL A1,8 FO
0x099f74…09a108 Dummy {f00=0x0046, f01=0x018e, f02=» n PGTMON2 EQU * o 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) o ( P CW A1,8,A4 IS IT THE RIGHT MONITOR? o P P RF(E) GTMON4 YES! o | P* o 8 P CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC o P RB GTMON2 o P* o PGTMON4 EQU * o
0x09a108…09a29c Dummy {f00=0x0046, f01=0x0190, f02=» 6 P LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) p " P ST A2,4,A1 AND SAVE IN MXSTAB p > P RTN A14 RETURN p d P EJECT p | PGETNBR EQU * p $ P CF A14,GETVLB READ VOLUME LABEL p PGTNBR0 EQU * p P CF A14,RDSEC READ SECTOR p ( P LDK A7,QBLF
0x09a29c…09a430 Dummy {f00=0x0046, f01=0x0190, f02=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME p P CCK A2,/2020 UNUSED? q 2 P RF(E) GTNBR4 YES! q P P* q j ( P CC A1,9,A4 SAME APPLICATION NUMBER? q t P RF(E) GTNBR6 YES, RETURN q P* q PGTNBR4 EQU * q P ADR A4,A8 GET NEXT RECORD q & P ADK A
0x09a430…09a5c4 Dummy {f00=0x0046, f01=0x0190, f02=»D NEXT SECTOR q ~ P* r PGTNBR6 EQU * r P RTN A14 r 4 P XIF r D P EJECT r P > P********************************************************** r ^ > P* * r > P* LOAD CONFIGURATION PART OF
0x09a5c4…09a758 Dummy {f00=0x0046, f01=0x0190, f02=» * r f > P* ENTRY: A9 - BUFFER ADDRESS * s > P* * s Z > P* EXIT: * s > P*
0x09a758…09a8ec Dummy {f00=0x0046, f01=0x018e, f02=» * s b > P********************************************************** t PCONLOD EQU * t V & P LD A1,SCTEFA GET END OF FREE AREA t j P LDR A2,A1 SAVE t " P ANKL A1,/3C00 ISOLATE BIT 2-5 t P SLL A1,2 ROTATE TO BIT 0-3 t 2 P ORS A1,SCTEFA+2 C
0x09a8ec…09aa80 Dummy {f00=0x0046, f01=0x0190, f02=» 8 P LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK u 0 P ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK u @ , P ST A1,SCTSFA UPDATE START OF FREE AREA u t 8 P LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE u , P ADK A1,2 ADVANCE TO FIRST CONTROL BLOCK
0x09aa80…09ac14 (1, 195) Dummy {f00=0x0062, f01=0x0190, f02=»ONTROL BLOCK u z * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE v " P SUK A1,/F0 CHECK DEVICE TYPE v B P RF(NN) CONRAD NOT CASSETTE v h P IFT CFTEST+CASS=2 v P* v & P* PROGRAM LOAD DEVICE = CASSETTE v P* v PCON:30 EQU * v P LDKL A1,CON:40-
0x09ac14…09ada8 Dummy {f00=0x0062, f01=0x0190, f02=»FY v ~ P LDR A1,A9 START OF BUFFER w " P ADKL A1,BUFLEN END OF BUFFER w , , P ST A1,PLDADR+STKEND SAVE END OF BUFFER w R P ST A1,EINPBF+STKEND SAVE w , P ST A1,CONSTA+STKCOM START OF CONF. DATA w P CF A14,RDBLK READ ONE BLOCK w " P CF A14,RDBLK RE
0x09ada8…09af3c Dummy {f00=0x0062, f01=0x0190, f02=»A14,CASSIN INIT CONFIGURATION CASSETTE w P CALL CON:40 x . P RF TST:10 x B PCONEX EQU * x T P* x h > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE x r P* x " P CF A14,RDBLK READ NEXT BLOCK x P LDR A1,A1 APPLICATION DATA? x P
0x09af3c…09b0d0 Dummy {f00=0x0062, f01=0x0190, f02=»90 x PCON:80 EQU * y P LDK A1,/F y " P CF A14,CHCRIO UNLOAD CASSETTE y 0 PCON:90 EQU * y V P ABL CONMOV y j P XIF y ~ P IFT CFTEST=1 y P EJECT y PCONRAD EQU * y P* y 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC y P*
0x09b0d0…09b264 Dummy {f00=0x0062, f01=0x018e, f02=»LD INITIATE CONF. DATA LOAD DEV. y PCONRA0 EQU * z ( * P LD A11,CONDAD+STKEND GET START SECTOR z < 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART z j " P LDR A1,A9 GET START OF BUFFER z $ P ADKL A1,BUFLEN-6 END OF BUFFER z , P ST A1,PLDADR+STKEND SAVE
0x09b264…09b3f8 Dummy {f00=0x0062, f01=0x0190, f02=» , P ST A1,CONSTA+STKCOM START OF CONF. DATA { $ P LDKL A10,0 RESET RECORD COUNTER { 4 P* { 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE { f P* { P CALL READC READ SECTOR { P* { 0 P* TEST THE SYNTAX OF THE CONFIGURATION FILE { P* {
0x09b3f8…09b58c Dummy {f00=0x0062, f01=0x0190, f02=»ALL CONRD { P CALL TCL | P CALL TEST | $ P CALL AA | 6 P CALL CONRD | F P CALL LEV | Z P CALL TEST | l P CALL NN1 | ~ PTST:20 CALL CONRD | P CALL NN1 | P CALL CONRD | B PTST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL DEV. C
0x09b58c…09b720 Dummy {f00=0x0062, f01=0x018e, f02=» P CALL CONRD } P CALL LC } P CALL TEST } ( P CALL NNL } : P CALL CONRD } L P RB TST:30 } ` PTST:40 EQU * } r P CALL NN1 } P CALL CONRD } PTST:50 EQU * } < P LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES } P CWK A5,
0x09b720…09b8b4 (1, 196) Dummy {f00=0x0062, f01=0x0190, f02=» P RB TST:50 ~ PTST:60 EQU * ~ P LCR A5,A4 GET CHARACTER ~ * , P CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.) ~ J PTST:70 EQU *-2 ~ z P RB(E) TST:10 YES! ~ P LDKL A3,/FFFF ~ * P ST A3,TST:70 MODIFY INSTRUCTION TO RF ~ P CCK A5,'CC' BLOCK TYPE C
0x09b8b4…09ba48 Dummy {f00=0x0062, f01=0x0190, f02=» EQU * ~ . P LDR A1,A5 SAVE FIRST CHARACTER IN RECORD & P ADK A4,1 INCREMENT BUFFER POINTER @ P LCR A5,A4 GET CHARACTER j P CCK A5,';;' END OF RECORD P ABL(NE) CONERR NO! PTST:85 EQU * . P CCK A1,'AA' START OF APPL. CONTR. BLOCK?
0x09ba48…09bbdc Dummy {f00=0x0062, f01=0x0190, f02=»F+STKEND CURRENT POSITION IN CONF. DATA 4 P SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION 0 P ST A1,DCBLK+STKCOM SAVE h PTST:87 EQU * ( P CALL CONRD MOVE AND GET NEXT RECORD $ P LCR A1,A4 AND FIRST CHAR. IN IT P RB TST:85 P*
0x09bbdc…09bd70 Dummy {f00=0x0062, f01=0x0190, f02=»* : P LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' P STR A1,A8 H 4 P LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK Z 8 P LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA P ADK A1,1 SKIP BLOCK MARKER 4 P SU A1,CONSTA+STKCOM C
0x09bd70…09bf04 Dummy {f00=0x0062, f01=0x0190, f02=»ND ADVANCE TO NEXT APPL. CONTR. BLOCK ~ $ P CALL CONRD MOVE AND PACK RECORD . ( P ADKL A10,1 INCREMENT RECORD COUNTER V & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER & P CW A8,PLDADR+ST
0x09bf04…09c098 Dummy {f00=0x0062, f01=0x0190, f02=»K DEF. BLOCK v P ST A1,TST:70 MODIFY INSTR. P ST A1,T:10 8 P LDR A4,A8 L P ABL TST:10 SCAN CONF. DATA ^ P* PCOR:50 EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S? P RF(Z) COR:55 NO P LDK A3,'S' &
0x09c098…09c22c Dummy {f00=0x0062, f01=0x0190, f02=»IZE PGM LOAD DEVICE z P CF A14,GETFIL P* 2 P* UNLOCK FLEXIBLE DISC < P* PCOR:55 EQU * f 4 P LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE z , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE P* P LDR A2,A1 P ANK A2,/F
0x09c22c…09c3c0 Dummy {f00=0x0062, f01=0x0190, f02=»K FLEXIBLE DISC | P XIF P IFT CFTEST=1 $ PCOR:58 EQU * : * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE N P SUK A1,/F8 CHECK TYPE | $ P RF(N) COR:60 NOT FLEXIBLE DISC P* P XIF " P SUK A1,/FC-/F8 FLEXIBLE DISC? P ABL(NN) C
0x09c3c0…09c554 (1, 197) Dummy {f00=0x0063, f01=0x0190, f02=»60 YES! DON'T UNLOCK P* P LD A1,IPLDEV+STKEND & ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC B P XIF n P IFT CFTEST=1 z PCOR:60 EQU * P EJECT PCONMOV EQU * P* 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA P
0x09c554…09c6e8 Dummy {f00=0x0063, f01=0x0190, f02=»ND OF CONFIGURATION DATA p 0 P LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA * P CM -2,A2 MAKE SURE CONFIGURATION FILE T " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA
0x09c6e8…09c87c Dummy {f00=0x0063, f01=0x0190, f02=»E START OF CONFIGURATION DATA x 2 P LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA & 0 P ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH P ANKL A1,/FFFE AND MAKE EVEN P ST A1,CONLEN+STKCOM & P LDR A1,A9 GET START OF FREE AREA P LDR A12,A2 EN
0x09c87c…09ca10 Dummy {f00=0x0063, f01=0x0190, f02=»STAB ADDRESS | $ P RF(Z) CMOV20 NO MXSTAB PRESENT P* < 0 P AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS F * P ST A2,SCTMXS AND SAVE AS NEW ADDRESS z PCMOV20 EQU * , P LD A2,CONSTA+STKCOM GET START OF CONFF P* < P* MOVE SYSLDA+SYS
0x09ca10…09cba4 Dummy {f00=0x0063, f01=0x0190, f02=» LDR* A4,A1 P STR A4,A2 P CWR A1,A13 & P RB(NE) MOPRO : ( P ABR A2 CONTINUE EXECUTION IN SYSLDM P P EJECT | D P*************************************************************** D P* SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURA
0x09cba4…09cd38 Dummy {f00=0x0063, f01=0x0190, f02=» COMPUTE NUMBER OF CHARACTERS IN THIS RECORD P* 4 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER > P LDR A2,A1 SAVE x & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD PCOR:30 EQU * P LCR A5,A4 GET CHARACTER
0x09cd38…09cecc Dummy {f00=0x0063, f01=0x0190, f02=»COR:38 EQU *-2 P RF(E) COR:40 YES! * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? 0 P RF(E) MEMOFL YES! ^ & P ADK A1,1 INCREMENT BUFFER POINTER x * P ADK A3,1 INCREMENT CHARACTER COUNTER & P ADK A4,1 INCREMENT RECORD POINTER P RB COR:30 LOO
0x09cecc…09d060 Dummy {f00=0x0063, f01=0x018e, f02=»3,NCHTID CHECK IF END OF RECORD 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD ( PCOR:45 EQU * ` 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION t P LDR A1,A8 START OF RECORD P CALL MOVE PCOR:48 EQU * ( P ADKL A10,1 INCREMENT
0x09d060…09d1f4 (1, 198) Dummy {f00=0x0063, f01=0x0190, f02=» d & P CW A8,PLDADR+STKEND END OF BUFFER P RF(NE) COR:10 NO! 2 P CALL READC READ SECTOR L $ PCOR:10 LDR A4,A8 START OF RECORD l P RTN A14 P XIF P IFT CFTEST+CASS=2 PCON:40 EQU * " P CF A14,RDBLK READ NEXT BLOCK P LDR
0x09d1f4…09d388 Dummy {f00=0x0063, f01=0x0190, f02=» IFT CFTEST=1 PMEMOFL EQU * * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * P CALL ERROR X P EJECT l PREADC EQU * z P CF A14,RDSEC READ SECTOR P LDR A8,A9 " P LDR A4,A8 GET START OF BUFFER P RTN A14 PT EQU * P
0x09d388…09d51c Dummy {f00=0x0063, f01=0x0190, f02=» POINTER v " P LCR A5,A4 GET NEXT CHARACTER P CCK A5,';;' END OF RECORD? 6 P ABL(NE) CONERR NO! Z P RTN A14 v P EJECT PNNL EQU * * P LDK A3,3 NO OF DIGITS IN LINE NUMBER & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P LDR A1,A1
0x09d51c…09d6b0 Dummy {f00=0x0063, f01=0x0190, f02=»5,'LL' LINE L? P RF(E) NN:40 YES! P CCK A5,'RR' LINE R? 0 P RF(E) NN:40 YES! L P CCK A5,'AA' LINE A? f P RF(E) NN:40 YES! P CCK A5,'SS' LINE S? P RF(E) NN:40 YES! P CCK A5,'PP' LINE P? P RF(E) NN:40 YES! P
0x09d6b0…09d844 Dummy {f00=0x0063, f01=0x0190, f02=» & P ADK A4,1 INCREMENT BUFFER POINTER P RF NN:50 . P* @ PNN EQU * J $ P LDK A3,2 NO OF DIGITS IN NUMBER Z & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P LDR A1,A1 SET RETURN CONDITION " P RF(Z) CONERR '00' NOT ALLOWED P* $ P RF
0x09d844…09d9d8 Dummy {f00=0x0063, f01=0x0190, f02=»S p $ P ST A5,NDEVCL+STKEND SAVE NUMBER " PNN:50 LCR A5,A4 GET CHARACTER 2 P CCK A5,';;' END OF RECORD? X P RF(NE) CONERR NO! | P RTN A14 P EJECT PAA EQU * P LDK A3,2 PAA:10 EQU * P LCR A5,A4 GET CHARACTER .
0x09d9d8…09db6c Dummy {f00=0x0063, f01=0x0190, f02=») AA:20 NO! 0 P CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? P RF(L) CONERR H 0 P CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? ^ P RF(G) CONERR PAA:20 EQU * & P ADK A4,1 INCREMENT BUFFER POINTER P SUK A3,1 P RB(NZ) AA:10
0x09db6c…09dd00 Dummy {f00=0x0063, f01=0x0190, f02=»TID EQU * " P LDKL A2,SEQ1 SELECT SEQUENCE & P LDK A3,4 GET NUMBER OF CHARACTERS 8 P RTN A14 b PTCL EQU * r " P LDKL A2,SEQ2 SELECT SEQUENCE & P LDK A3,4 GET NUMBER OF CHARACTERS P RTN A14 PLEV EQU * " P LDKL A2,SEQ3 SELE
0x09dd00…09de94 (1, 199) Dummy {f00=0x0063, f01=0x0190, f02=»NCE v & P LDK A3,5 GET NUMBER OF CHARACTERS P RTN A14 6 PLC EQU * F " P LDKL A2,SEQ5 SELECT SEQUENCE V & P LDK A3,3 GET NUMBER OF CHARACTERS | P RTN A14 PSDCS EQU * " P LDKL A2,SEQ6 SELECT SEQUENCE & P LDK A3,5 GET NUMBER OF CH
0x09de94…09e028 Dummy {f00=0x0063, f01=0x0190, f02=» ADK A4,1 INCREMENT BUFFER POINTER ( P ADK A2,1 INCREMENT SEQUENCE POINTER * . P SUK A3,1 MORE CHARACTERS IN THE SEQUENCE? V P RB(NZ) TEST YES! P RTN A14 P EJECT PSUKASC EQU * 2 P CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10?
0x09e028…09e1bc Dummy {f00=0x0063, f01=0x0190, f02=»14 P EJECT PNUMB EQU * * P LDK A1,0 RESET NO OF NON ZERO DIGITS * PNUMB00 EQU * X " P LCR A5,A4 GET DIGIT IN NUMBER l & P ADK A4,1 INCREMENT BUFFER POINTER ( P CCK A5,/3939 NUMERIC CHARACTER >9? P RF(G) CONERR YES! P*
0x09e1bc…09e350 Dummy {f00=0x0063, f01=0x0190, f02=»INCREMENT NO OF NON ZERO DIGITS PNUMB10 EQU * ( & P SUK A3,1 DECREMENT DIGIT COUNTER < & P RF(Z) NUMB20 ALL DIGITS PROCESSED f P* , P SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE " P RB NUMB00 PROCESS NEXT DIGIT P* PNUMB20 EQU *
0x09e350…09e4e4 Dummy {f00=0x0063, f01=0x018e, f02=» * 6 P* SEQUENCES * , 6 P* * f 6 P************************************************** P* P* P* P* PSEQ1 E
0x09e4e4…09e678 Dummy {f00=0x0063, f01=0x0190, f02=» P DATA 'LE' P DATA 'V=' PSEQ4 EQU * TDC=T ( P DATA 'TD' @ P DATA 'C=' R P DATA 'T0' d PSEQ5 EQU * LC= v P DATA 'LC' P DATA '=0' PSEQ6 EQU * SDC=S P DATA 'SD' P DATA 'C=' P DATA 'S0' P XIF
0x09e678…09e80c Dummy {f00=0x0063, f01=0x0190, f02=» v " P ADKL A1,BUFLEN END OF BUFFER , P ST A1,PLDADR+STKEND SAVE END OF BUFFER . P ST A1,EINPBF+STKEND SAVE ^ 4 P ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA P CF A14,RDBLK READ ONE BLOCK " P CF A14,RDBLK READ NEXT BLOCK P LDR A
0x09e80c…09e9a0 Dummy {f00=0x0063, f01=0x0190, f02=» NEXT BLOCK ~ P LDR A1,A1 TAPEMARK? P RF(NZ) CONEX YES! 0 PCON:50 EQU * J P* ^ 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK h P* 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER P LDR A2,A1 SAVE & P LDK A3,0 RESE
0x09e9a0…09eb34 (1, 200) Dummy {f00=0x0063, f01=0x0190, f02=»';;' CHECK IF SPACE & P RF(E) CON:70 NO MOORE CHARACTERS PCON:65 EQU * F P CWK A3,CBLEN END OF BUFFER? Z P RF(E) CON:75 YES! ~ * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? P RF(E) MEMOFL YES! , P ADK A1,1 INCREMENT DESTINATION POINTER
0x09eb34…09ecc8 Dummy {f00=0x0063, f01=0x0190, f02=»C A5,1,A4 GET NEXT CHARACTER " P CCK A5,';;' TWO SEMI-COLONS? $ P RF(NE) CON:75 NO! J * P CWK A3,NCHTID CHECK IF END OF RECORD d 4 P RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD PCON:75 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINAT
0x09ecc8…09ee5c Dummy {f00=0x0063, f01=0x0190, f02=»F NO APPLICATION DATA ON SAME CASSETTE | P* . " P CF A14,RDBLK READ NEXT BLOCK 8 P LDR A1,A1 APPLICATION DATA? ^ P RF(NZ) CON:80 NO! P LDK A1,/D * P CF A14,CHCRIO SEARCH TAPEMARK REVERSE " P CF A14,RDBLK BYPASS TAPEMARK P RF CO
0x09ee5c…09eff0 Dummy {f00=0x0063, f01=0x018e, f02=» PCONERR EQU * P LDKL A1,LMP4 P CALL ERROR . P IFF CFTEST=1 B PMEMOFL EQU * X * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW l P CALL ERROR P EJECT PCONRAD EQU * P* 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE
0x09eff0…09f184 Dummy {f00=0x0063, f01=0x0190, f02=» 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. PCONRA0 EQU * 8 * P LD A11,CONDAD+STKEND GET START SECTOR L 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART z " P LDR A1,A9 GET START OF BUFFER $ P ADKL A1,BUFLEN-6 END OF BUFFER , P ST A1,PLD
0x09f184…09f318 Dummy {f00=0x0063, f01=0x018e, f02=»ND SAVE =2 ~ P ST A1,CONSTA+STKCOM $ P LDKL A10,0 RESET RECORD COUNTER . PCOR:10 EQU * V P* j 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE t P* P CF A14,RDSEC READ SECTOR " P LDR A8,A9 GET START OF BUFFER PCOR:20 EQU *
0x09f318…09f4ac Dummy {f00=0x0063, f01=0x0190, f02=» P LDR A2,A1 SAVE & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD F P* h P* LOOK IF WE HAVE AN r P* APPLICATION CONTROL BLOCK P* & P LDR* A5,A4 GET 1ST WORD IN BUFFER 0 P CWK A5,'D;' DATA COMMUNICATION
0x09f4ac…09f640 Dummy {f00=0x0063, f01=0x0190, f02=» LDKL A5,/FF3B YES, SUBSTITUTE A; WITH P STR A5,A4 'HEX FF' AND ';' . 8 P LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK R P ADK A1,1 SKIP BLOCK MARKER 6 P ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION 8 P SU A1,CONSTA+STKCOM AND CAL
0x09f640…09f7d4 (1, 201) Dummy {f00=0x0069, f01=0x0190, f02=»T NO OF CHARACTERS TO MOVE ~ P CALL MOVE " P ADKL A10,2 SKIP NEXT RECORD 4 P* X . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER b ( P CW A8,PLDADR+STKEND END OF BUFFER? P RF(L) COR:48 NO! P* ( P CF A14,RDSEC YES, READ NEXT SECTOR
0x09f7d4…09f968 Dummy {f00=0x0069, f01=0x0190, f02=»IN CONF. DATA =6 j 8 P SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 P ST A5,DCBLK+STKCOM SAVE =6 T PCOR:30 EQU * x P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? P RF(E) COR:40 YES! PCOR:35 EQU * * P CWK A3,RE
0x09f968…09fafc Dummy {f00=0x0069, f01=0x0190, f02=»DK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER ( & P ADK A4,1 INCREMENT RECORD POINTER V P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NEXT CHARACTER P CCK A5,';;' TWO SEMICOLONS? P RF(NE) COR:45 NO!
0x09fafc…09fc90 Dummy {f00=0x0069, f01=0x0190, f02=»,EINPBF+STKEND SAVE CURRENT DESTINATION P LDR A1,A8 START OF RECORD 0 P CALL MOVE R ( P ADKL A10,1 INCREMENT RECORD COUNTER d & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! PCOR:48 EQU * . P ADKL A8,RECLEN+1 INCREMENT RECO
0x09fc90…09fe24 Dummy {f00=0x0069, f01=0x0190, f02=» " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S? . P RF(Z) COR:55 NO F P LDK A3,'S' ^ & P SC A3,GET:25+1 MODIFY INSTRUCTION r & P SC A3,GET:60+1 MODIFY INSTRUCTION P LD A1,IPLDEV+STKEND . P CF A14,LODDEV INITIALIZE PGM LOAD DEV
0x09fe24…09ffb8 Dummy {f00=0x0069, f01=0x0190, f02=» DATA LOAD DEVICE r , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE P* J P LDR A2,A1 T P ANK A2,/F f P SUK A2,9 x $ P RF(NZ) COR:58 NOT FLEXIBLE DISC P XIF P IFT CFTFLD+FLDISC=2 ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC P X
0x09ffb8…0a014c Dummy {f00=0x0069, f01=0x018e, f02=»OR:60 NOT FLEXIBLE DISC P* " P SUK A1,/FC-/F8 FLEXIBLE DISC? * P RF(NN) COR:60 NO! P P* j P XIF t P IFT CFTFLD+FLDISC=2 " P LD A2,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? $ P RF(NZ) COR:60 YES! DON'T UNLOCK P
0x0a014c…0a02e0 Dummy {f00=0x0069, f01=0x0190, f02=» PCOR:60 EQU * P EJECT PCONMOV EQU * & P* : 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA D P* | & P CIO A1,0,SOP INHIBIT SOP SWITCHES " P LDR A1,A9 GET START OF BUFFER ( P AD A1,SAVCON COMPUTE END OF BUFFER < PCMOV10
0x0a02e0…0a0474 (1, 202) Dummy {f00=0x0069, f01=0x0190, f02=»URATION FILE v " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA : 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA j P SUR A2,A3 TO-ADDRESS P* $ P ANKL A2,/FFFE MAKE EVEN ADDRESS P CALL MOVE : P ST A2
0x0a0474…0a0608 Dummy {f00=0x0069, f01=0x0190, f02=» ZEROES IN LENGTH v P ANKL A1,/FFFE AND MAKE EVEN P ST A1,CONLEN+STKCOM > & P LDR A1,A9 GET START OF FREE AREA Z P LDR A12,A2 END OF FREE AREA $ P SUR A12,A1 SUBTRACT MONITOR END 2 P ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT ( P L
0x0a0608…0a079c Dummy {f00=0x0069, f01=0x0190, f02=»=1 l , P ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1 PCMOV20 EQU * =1 : , P LD A2,CONSTA+STKCOM GET START OF CONFF T P* < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA P* PMOPRO EQU * P LDKL A13,SYSLDM P SUK
0x0a079c…0a0930 Dummy {f00=0x0069, f01=0x018e, f02=»ON IN SYSLDM x P XIF P EJECT L P************************************************************************ . L P* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O ~ L P**********************************************************
0x0a0930…0a0ac4 Dummy {f00=0x0069, f01=0x0190, f02=» n $ P* * $ P* ENTRY: * 0 $ P* * X $ P* EXIT: A1 - SOP INPUT * $ P* BIT 6 - SWITCH 1 * $ P* BIT 15 - SWITCH 10 * $ P*
0x0a0ac4…0a0c58 Dummy {f00=0x0069, f01=0x0190, f02=» p $ P* * $ P******************************* 0 PSOPIN EQU * X P CIO A1,1,SOP l P INR A1,0,SOP P RB(NA) *-2 P RTN A14 P EJECT ( P*********************************** ( P*
0x0a0c58…0a0dec Dummy {f00=0x0069, f01=0x0190, f02=» * z ( P* USED FOR CONFIGURATION OF * ( P* PROGRAM LOAD DEVICE AND * B ( P* CONFIGURATION DATA LOAD * n ( P* DEVICE (IF DIFFERENT). * ( P* * ( P* ON ENTRY: A1=DEVICE
0x0a0dec…0a0f80 Dummy {f00=0x0069, f01=0x0190, f02=»********* v P P PLODDEV EQU * " P LDKL A3,BUFLEN 6 * P ST A3,SAVCON INITIALIZE BUFFER LENGTH N P LDKL A2,-1 | $ P ST A2,CYLNBR SET SEEK CONDITION P LDR A2,A1 $ P ANK A2,/80 CHECK IF CASSETTE =9 P RF(P) CASS:0 YES!
0x0a0f80…0a1114 (1, 203) Dummy {f00=0x0069, f01=0x0190, f02=»PE l P ANK A3,/FF P SUK A3,3 P RF(N) DISC:0 DISC 0 P RF(Z) MFD:0 MINI FIXED DISC J P SUK A3,3 =9 n P RF(N) CDC:0 80M CDC DISC P RF FLEX:0 FLEXIBLE DISC P EJECT PCASS:0 EQU * P IFT CASS=1 P* & P*
0x0a1114…0a12a8 Dummy {f00=0x0069, f01=0x0190, f02=»R APPLICATION DISC | ( P CM APLADA+4,A1 FILE ADDRESS ENTRIES * P LDKL A1,RDBLK GET SUBROUTINE ADDRESS F P LDR A10,A1 t 0 P ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE PCASS:2 EQU * * P CF A14,RDBLK READ ONE CASSETTE BLOCK P LDR A1,A1
0x0a12a8…0a143c Dummy {f00=0x0069, f01=0x018e, f02=» IFF CASS=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION * P XIF T P EJECT ` PFLEX:0 EQU * n P IFT FLDISC=1 P* * P* PROGRAM LOAD DEVICE = FLEXIBLE DISC P* P* 2 P* MODIFY SCTIPL: /F8 - DRIVE 1, /F9
0x0a143c…0a15d0 Dummy {f00=0x0069, f01=0x0190, f02=» P CF A14,FDINIT P RF FINISH P* 0 P XIF : P IFF FLDISC=1 F P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION r P XIF P EJECT PMFD:0 EQU * P IFT MFDISC=1 P* , P* PROGRAM LOAD DEVICE = MINI F
0x0a15d0…0a1764 Dummy {f00=0x0069, f01=0x0190, f02=» CODE r P* P* INIT MINI FIXED DISC P* 6 P CF A14,MDINIT @ P RF FINISH RETURN V P* p P XIF z P IFF MFDISC=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF P EJECT PDISC:0 EQU *
0x0a1764…0a18f8 Dummy {f00=0x0069, f01=0x0190, f02=»IX DISC b P* & P LC A2,FCTAB,A2 LOAD FILE CODE =5 ( P ST A2,FILCOD+STKEND SAVE FILE CODE D P* p P* INITIALIZE DISC COMMANDS z P* P CF A14,DUINIT P XIF P IFF DISC=1 P LDKL A1,LMP9 P CALL ERROR P
0x0a18f8…0a1a8c Dummy {f00=0x0069, f01=0x0190, f02=»CODE n P RTN A14 P EJECT PCDC:0 EQU * * P IFF CDDISC+CDDI16=0 > P* Z 0 P* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC d P* P* P* MODIFY SCTIPL: /FC - /FD P* $ P SRC A2,2 TEST IF UNIT 1 OR 2 =9 P RF(NN)
0x0a1a8c…0a1c20 Dummy {f00=0x0069, f01=0x0190, f02=» ( P ST A2,FILCOD+STKEND SAVE FILE CODE P* 0 P* INITIALISE DISC COMMANDS : P* P CF A14,CDINIT INIT DEVICE f P RB FINISH RETURN P XIF P IFT CDDISC+CDDI16=0 =9 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION
0x0a1c20…0a1db4 (1, 204) Dummy {f00=0x0072, f01=0x0190, f02=» * h < P* CONFLD - SELECT LOAD UNIT FOR CONF. DATA * < P* ======================================== * X < P* * < P* ON ENTRY: A1 = DEVICE ADDRESS
0x0a1db4…0a1f48 Dummy {f00=0x0072, f01=0x0190, f02=» X P P PCONFLD EQU * P LDKL A2,-1 , $ P ST A2,CYLNBR SET SEEK CONDITION @ " P LDR A2,A1 SAVE DEVICE ADDRESS h " P ANK A2,/F ISOLATE LAST DIGIT P SUK A2,7 P RB(N) MFD:0 MINI FIXED DISC P* P RB(Z) CDC:0 80M CDC
0x0a1f48…0a20dc Dummy {f00=0x0072, f01=0x0190, f02=» P IFT CASS=1 < P******************************************************* < P* CASSIN - CASSETTE INITIATING ROUTINE * X < P* ==================================== * < P*
0x0a20dc…0a2270 Dummy {f00=0x0072, f01=0x0190, f02=» X < P* ENTRY: * < P* * H < P* EXIT: * < P* * < P
0x0a2270…0a2404 Dummy {f00=0x0072, f01=0x0190, f02=»UTINES: SOPIN,CHCRIO * < P* * 8 < P******************************************************* x PCASSIN EQU * P LDK A1,/F " P CF A14,CHCRIO UNLOAD CASSETTE 2 P LDK
0x0a2404…0a2598 Dummy {f00=0x0072, f01=0x0190, f02=» ALLOWED SWITCHES? P RB(Z) CAS:10 NO! & P LDKL A3,LMP1 SWITCH ON LOAD LAMP 4 P OTR A3,0,SOP ^ P SRL A1,8 RIGHT ALIGN t P ANK A1,1 SELECT UNIT P CF A14,CHCRIO SELECT UNIT P LDK A1,LOCK P CF A14,CHCRIO LOCK CASSETTE
0x0a2598…0a272c Dummy {f00=0x0072, f01=0x0190, f02=»DK A1,STMF * P CF A14,CHCRIO SEARCH TAPEMARK FORWARD P RTN A14 @ P EJECT P 2 P********************************************* ^ 2 P* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * 2 P* ======================================= * 2 P*
0x0a272c…0a28c0 Dummy {f00=0x0072, f01=0x0190, f02=» * l 2 P* ENTRY: A1 - I/O INSTRUCTION COMMAND * 2 P* * H 2 P* EXIT: * ~ 2 P* * 2 P* WORK REGISTERS: A1,A3
0x0a28c0…0a2a54 (1, 205) Dummy {f00=0x0072, f01=0x0190, f02=» * 2 P********************************************* 2 PCHCRIO EQU * h P CIO A1,1,CHCR | P SST A3,CHCR P RB(NA) CHCRIO P RTN A14 P EJECT 6 P**********************************************
0x0a2a54…0a2be8 Dummy {f00=0x0072, f01=0x0190, f02=» =============================== * 6 P* * 2 6 P* REFERENCED IN: SYSLOD * l 6 P* * 6 P* ENTRY: A9 - CASSETTE BUFFER POINTER
0x0a2be8…0a2d7c Dummy {f00=0x0072, f01=0x0190, f02=» * : P* WORK REGISTERS: A1,A2,A3,A4,A5 * 8 6 P* * v 6 P* SUBROUTINES: * 6 P******************************
0x0a2d7c…0a2f10 Dummy {f00=0x0072, f01=0x0190, f02=»CHARACTER COUNTER $ P LDR A4,A3 SAVE START OF BUFFER P ADKL A3,CBLEN END OF BUFFER B P LDK A1,/A f P CIO A1,1,CHCR READ BLOCK x P RF(NA) RDERR3 PRDB:20 EQU * P INR A1,0,CHCR P RF(NA) RDB:30 P CWR A4,A3 END OF BUFFER
0x0a2f10…0a30a4 Dummy {f00=0x0072, f01=0x0190, f02=»BUFFER POINTER | PRDB:30 EQU * P SST A1,CHCR * P RB(NA) RDB:20 @ P ANKL A1,/FCFF CHECK STATUS V P LDR A4,A1 SAVE STATUS z P RF(Z) RDBEX OK P SLC A4,3 CHECK IF TAPEMARK P RF(N) RDBEX OK IF TAPEMARK PRDERR EQU *
0x0a30a4…0a3238 Dummy {f00=0x0072, f01=0x0190, f02=» V P* P ADK A5,1 NEXT ATTEMPT P CWK A5,3 THIRD ATTEMPT? 0 P RF(E) RDERR3 YES - GIVE UP! P P LDK A1,/E REVERSE ONE BLOCK t P CIO A1,1,CHCR EXECUTE ORDER $ P RB(NA) *-2 LOOP UNTIL ACCEPTED P RB RDB:10 PRDERR3 EQU *
0x0a3238…0a33cc Dummy {f00=0x0072, f01=0x0190, f02=»************************* ( P* * " ( P* DUINIT - INITIALIZE DISC UNIT * N ( P* ============================= * z ( P* * ( P* REFERENCED IN: SYSLOD,GETFIL * ( P*
0x0a33cc…0a3560 Dummy {f00=0x0072, f01=0x0190, f02=» * ( P* * * P* WORK REGISTERS: A2,A3 * J ( P* * x ( P* SUBROUTINES: * ( P* * ( P************
0x0a3560…0a36f4 (1, 206) Dummy {f00=0x0073, f01=0x0190, f02=» P EJECT P* $ P* INIT DISC COMMANDS VERSION A2 P* D , P ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. N P ST A1,SEEK20 ~ ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,SEEK21 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST
0x0a36f4…0a3888 Dummy {f00=0x0073, f01=0x0190, f02=»EADS P LDK A2,4 $ P XRS A2,CRCCHK DISCARD CRC CHECK $ P CF A14,GETVLB GET VOLUME LABEL F P LDK A2,4 n P ORS A2,CRCCHK SET CRC CHECK P LC A2,FORDEV,A9 GET FORMAT P ANK A2,1 P RF(Z) DUI:50 FORMAT A2 P* " P LDR
0x0a3888…0a3a1c Dummy {f00=0x0073, f01=0x0190, f02=» , P LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 * P ST A3,SAVCON BUFFER LENGTH VERSION A3 4 P ORKL A1,CIO+8 b , P XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR. x P ST A1,SEEK30 ( P ORKL A1,/800 FORM SST A4,XX INSTR. P ST A1,SEEK31 * P XRKL A1
0x0a3a1c…0a3bb0 Dummy {f00=0x0073, f01=0x018e, f02=»* INIT SUBROUTINE ADDRESSES P* $ " PDUI:40 ST A2,READ READ PROGRAM . ( P ST A2,READS READ CONFIGURATION DATA T PDUI:50 EQU * P RTN A14 P EJECT 4 P*********************************************** 4 P*
0x0a3bb0…0a3d44 Dummy {f00=0x0073, f01=0x0190, f02=» 4 P* * 4 P* REFERENCED IN: SYSLOD * < 4 P* * t " P* ENTRY: A9 = BUFFER ADDRESS 4 P* * 4
0x0a3d44…0a3ed8 Dummy {f00=0x0073, f01=0x0190, f02=» * z 4 P* * " ( P* WORK REGISTERS: A1,A2,A3,A4,A7 Z 4 P* * 4 P* SUBROUTINES: ERROR * 4 P*
0x0a3ed8…0a406c Dummy {f00=0x0073, f01=0x018e, f02=»ISC SECTOR VERSION A2 P* PRDSEC2 EQU * ( P LDK A2,0 < * P LDR A1,A11 GET LOGICAL SECTOR NUMBER N PDIV200 EQU * | P ADR A2,A1 P SRL A1,5 ( P RB(NZ) DIV200 MORE IN SERIE TO ADD P LDR A1,A2 P ANKL A1,/FFE0 P
0x0a406c…0a4200 Dummy {f00=0x0073, f01=0x018e, f02=» PDIV210 EQU * . P LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 P RF(Z) DIV220 CYLINDER 0 J P ADK A2,1 j PDIV220 EQU * | 4 P ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING P* P LDR A1,A2 P SRL A1,5 P CW A1,CYLNBR
0x0a4200…0a4394 (1, 207) Dummy {f00=0x0073, f01=0x0190, f02=» P* SEEK CYLINDER P* PSEEK20 CIO A1,1,0 & P RB(NA) SEEK20 @ P* V PSEEK21 SST A1,0 ` P RB(NA) SEEK21 x P* P* INTERLACING P* PINT200 EQU * P LDR A1,A2 P ADR A2,A2 $ P ADR A2,A1 INTERLACING F
0x0a4394…0a4528 Dummy {f00=0x0073, f01=0x0190, f02=» A2,8 PINT210 EQU * P ANK A2,/1F " , P SLL A2,2 PHYSICAL SECTOR AND ORDER CODE 6 P ST A2,SECNBR f P EJECT | P* P* READ SECTOR P* P LDR A1,A9 BUFFER ADDRESS ( PREAD20 LDKL A4,MUXCC NUMBER OF WORDS , PWERIO2
0x0a4528…0a46bc Dummy {f00=0x0073, f01=0x0190, f02=»OOP UNTIL ACCEPTED PREAD22 SST A2,0 STATUS & P RB(NA) READ22 LOOP UNTIL ACCEPTED 8 PCRCCHK EQU * b P ANK A2,/1F STATUS v P RF(NZ) DUERR READING ERROR ( P ADKL A11,1 INCREMENT SECTOR COUNTER P RTN A14 P EJECT P* " P
0x0a46bc…0a4850 Dummy {f00=0x0073, f01=0x0190, f02=»L A7,/1000 P LDKL A4,/3000 PDIV300 EQU * ( P SUR A1,A4 < P RF(N) DIV310 N P ADR A2,A7 d P RB DIV300 v PDIV310 EQU * P ADR A1,A4 ADJUST DIVIDEND P SRL A4,4 P SRL A7,4 P RB(NZ) DIV300 P ADR A2,A2
0x0a4850…0a49e4 Dummy {f00=0x0073, f01=0x018e, f02=» v PCASE10 EQU * P LDR A4,A2 P SRL A4,5 . P CW A4,CYLNBR @ P RF(E) INT300 V , P ST A4,CYLNBR STORE NEW CYLINDER NUMBER l P SLL A4,3 P ORK A4,2 SET BIT 14 P EJECT P* P* SEEK CYLINDER P* PSEEK
0x0a49e4…0a4b78 Dummy {f00=0x0073, f01=0x0190, f02=» P* PINT300 EQU * P LDR A3,A2 & P ADR A2,A2 8 $ P ADR A2,A3 INTERLACING FACTOR 3 J P ANK A2,/1F r & P LD A4,CYLNBR GET CYLINDER NUMBER P ANK A4,1 & P RF(Z) INT310 EVEN CYLINDER NUMBER " P ADK A2,8 SKEW FACTOR 180 DE
0x0a4b78…0a4d0c Dummy {f00=0x0073, f01=0x0190, f02=»R NUMBER n P EJECT P* P* READ SECTOR ( P* > P LDR A7,A9 BUFFER ADDRESS H * PREAD34 LDKL A4,MXCCD3 NUMBER OF WORDS j , PWERIO3 WER A4,/10 WRITE NUMBER OF WORDS $ P WER A7,/11 WRITE BUFFER ADDRESS P* " PREAD30 CIO A2,
0x0a4d0c…0a4ea0 Dummy {f00=0x0073, f01=0x0190, f02=»ACCEPTED v P ANK A2,/1F STATUS P RF(NZ) DUERR READING ERROR * P LDR A2,A9 BUFFER ADDRESS N P LDR A1,A1 p " P RF(N) RETURN ,XXXX , , " P RF(P) READ33 , , XXXX, P ADKL A2,256 SOURCE POINTER & P LDK A4,64 NUMBER OF W
0x0a4ea0…0a5034 (1, 208) Dummy {f00=0x0073, f01=0x0190, f02=»4,1 " P RB(NZ) READ32 CONTINUE MOVING P LD A1,SAVMEM 2 P RF(P) RETURN H ( P LD A2,SECNBR PHYSICAL SECTOR NUMBER ^ " P ADK A2,/C NEW SECTOR TO READ P ANK A2,/7C P SUK A1,1 P RB READ34 P EJECT PREAD33 EQU *
0x0a5034…0a51c8 Dummy {f00=0x0073, f01=0x018e, f02=»BER j P RTN A14 P PDUERR EQU * $ P LDKL A1,LMP2 8 P CALL ERROR N P XIF b P IFT MFDISC=1 n P EJECT < P******************************************************** < P*
0x0a51c8…0a535c Dummy {f00=0x0073, f01=0x0190, f02=» < P* * < P* REFERENCED IN: SYSLOD,GETFIL * D < P* * < P* ENTRY: A1 = DEVICE ADDRESS * < P*
0x0a535c…0a54f0 Dummy {f00=0x0073, f01=0x018e, f02=» * < P* WORK REGISTERS: * 4 < P* * t < P* SUBROUTINES: ERROR * < P*
0x0a54f0…0a5684 Dummy {f00=0x0073, f01=0x0190, f02=» $ P* INIT MINI FIXED DISC COMMANDS P* , PMDI:00 EQU * 6 , P ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. J P ST A1,READM2 z ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READM3 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST A1,S
0x0a5684…0a5818 Dummy {f00=0x0073, f01=0x0190, f02=»DDRESS p P ST A2,READ P ST A2,READS " P RTN A14 6 P EJECT F : P****************************************************** T : P* * : P* MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC *
0x0a5818…0a59ac Dummy {f00=0x0073, f01=0x0190, f02=»ERENCED IN: SYSLOD * : P* * 8 : P* ENTRY: A9 = BUFFER ADDRESS * v : P* A11 = SECTOR NUMBER * : P*
0x0a59ac…0a5b40 Dummy {f00=0x0073, f01=0x0190, f02=» * n : P* WORK REGISTERS: * : P* * Z : P* SUBROUTINES: * : P*
0x0a5b40…0a5cd4 (1, 209) Dummy {f00=0x0073, f01=0x0190, f02=» A2,A11 GET LOGICAL SECTOR NUMBER P DVK 104 DIVIDE BY 104 * P SLL A2,2 H P ORK A2,3 SET BIT 14 AND 15 Z P* ~ " P* A1=SECTOR NUMBER ON CYLINDER P* A2=CYLINDER NUMBER P* & P ST A1,SECNBR STORE SECTOR NUMBER P CW A2,CYL
0x0a5cd4…0a5e68 Dummy {f00=0x0073, f01=0x0190, f02=»R P* " PSEEKM1 CIO A2,1,0 SEEK COMMAND & P RB(NA) SEEKM1 LOOP UNTIL ACCEPTED : P* d PSEEKM2 SST A2,0 GET STATUS n & P RB(NA) SEEKM2 WAIT UNTIL ACCEPTED P* P* INTERLACING P* PINTM10 EQU * P CWK A1,52
0x0a5e68…0a5ffc Dummy {f00=0x0073, f01=0x0190, f02=» r " P LDK A1,0 PREPARE FOR DIVISION P DVK 52 . , P ADR A1,A2 A1:=INTERLACED SECTOR NUMBER > P* n " P* A1:=INTERLACED SECTOR NUMBER x P* & P LD A2,CYLNBR GET CYLINDER NUMBER P SRC A2,3 ( P RF(NN) INTM30 EVEN CYLINDER NUMBER
0x0a5ffc…0a6190 Dummy {f00=0x0073, f01=0x0190, f02=»T SECTOR NUMBER BEFORE INTERLACING P CWK A2,52 * P RF(L) INTM40 HEAD NUMBER 0 < P ORKL A1,/4000 HEAD NUMBER 1 ` PINTM40 EQU * P* P* READ SECTOR P* PREADM1 EQU * " P LDKL A4,MUXCC NUMBER OF WORDS P LDR A7,A9 B
0x0a6190…0a6324 Dummy {f00=0x0073, f01=0x0190, f02=» A1,1,0 READ SECTOR & P RB(NA) READM2 LOOP UNTIL ACCEPTED P* F PREADM3 SST A1,0 GET STATUS P & P RB(NA) READM3 LOOP UNTIL ACCEPTED r P ANK A1,/1F STATUS P RF(NZ) MFDERR READING ERROR ( P ADKL A11,1 INCREMENT SECTOR NUMBER P R
0x0a6324…0a64b8 Dummy {f00=0x0073, f01=0x0190, f02=»******************************************** 4 P* * 4 4 P* FDINIT - INITIALIZE FLEXIBLE DISC * l 4 P* ================================= * 4 P*
0x0a64b8…0a664c Dummy {f00=0x0073, f01=0x0190, f02=»1 - DEVICE ADDRESS * 4 P* * , 4 P* EXIT: * d 4 P* * 4 P* WORK REGISTERS: *
0x0a664c…0a67e0 Dummy {f00=0x0073, f01=0x0190, f02=» * | 4 P************************************************ $ PFDINIT EQU * P ANK A1,/10 p 0 P ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. P ST A1,FRD:10 < P LDKL A2,FRDS25 ADDRESS TO READ ON 0,25 MEG FLOPPY DRIVE
0x0a67e0…0a6974 (1, 210) Dummy {f00=0x0074, f01=0x0190, f02=» ANK A1,/10 ( P RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE P* @ . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 J ( P ST A1,FRD:20 MODIFY INR INSTRUCTION | P LDKL A1,/41F " P ST A1,FRD:42 MODIFY SST MASK P LDKL A1,/C00 & P ST A1,RELEAS
0x0a6974…0a6b08 Dummy {f00=0x0074, f01=0x0190, f02=»,READS $ P CF A14,GETVLB GET VOLUME LABEL P LD A1,FORDEV,A9 GET FORMAT 6 P ST A1,DEVTYP+STKEND Z P RTN A14 v P EJECT 0 P******************************************** 0 P* * 0 P*
0x0a6b08…0a6c9c Dummy {f00=0x0074, f01=0x0190, f02=» d 0 P* * 0 P* ON ENTRY: A1 = DEVICE ADDRESS * < 0 P* * p 0 P******************************************** P P PUNLOCK EQU * $ P CF A14,FDIN
0x0a6c9c…0a6e30 Dummy {f00=0x0074, f01=0x0190, f02=»CCEPTED x P* P EX FRD:40 SENSE STATUS $ P RB(NA) *-4 LOOP UNTIL ACCEPTED : P RTN A14 b P EJECT r @ P*********************************************************** @ P* * @ P
0x0a6e30…0a6fc4 Dummy {f00=0x0074, f01=0x0190, f02=»* * @ P* REFERENCED IN: SYSLOD * D @ P* * @ P* ENTRY: A9 - BUFFER ADDRESS *
0x0a6fc4…0a7158 Dummy {f00=0x0074, f01=0x0190, f02=» T @ P* EXIT: * @ P* * L @ P* WORK REGISTERS: A1,A2,A3 * @ P*
0x0a7158…0a72ec Dummy {f00=0x0074, f01=0x0190, f02=» * @ P*********************************************************** PFRDSEC EQU * T " P LDR A2,A11 GET SECTOR NUMBER h * P LDKL A4,/340 26 SHIFTED 10 STEPS LEFT $ P LD A1,DEVTYP+STKEND DEVICE TYPE P ANK A1,1 & P RF(Z) SNHEAD 0,25
0x0a72ec…0a7480 Dummy {f00=0x0074, f01=0x018e, f02=»R l P RF DVK26 PNOTCY0 EQU * P ADK A2,13 0 P EJECT B P* P P* A2=PHYSICAL SECTOR NUMBER Z P* ~ PDVK26 EQU * P LDK A1,0 PDVK26A EQU * P SLL A1,5 PDVK26B EQU * P SUR A2,A4 P RF(N) DVK26C
0x0a7480…0a7614 (1, 211) Dummy {f00=0x0074, f01=0x0190, f02=» P EJECT P* P* A2=SECTOR NUMBER P* A1=CYLINDER NUMBER 6 P* R $ P LD A4,DEVTYP+STKEND DEVICE TYPE P ANK A4,1 , P RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD P SLL A1,1 ONLY ONE HEAD PDBHEAD EQU * P LDR A4,A1
0x0a7614…0a77a8 Dummy {f00=0x0074, f01=0x0190, f02=»2=CIO READ REGISTER 2 P SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION " P ORK A1,3 A1=CIO SEEK REGISTER R 4 P CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER x P RF(E) NOSEEK NO SEEK NEEDED & P ST A1,CYLNBR SAVE CYLINDER NUMBER PFDSEEK EX
0x0a77a8…0a793c Dummy {f00=0x0074, f01=0x018e, f02=»ERROR | PNOSEEK EQU * P LDR A1,A2 " P RF FRD:05 4 P EJECT F PFRDS25 EQU * T P LDR A1,A11 SECTOR NO h P SLL A1,4 8 P ORKL A1,/4000 NUMBER OF SECTORS=2 (BIT 0 - BIT 1) PFRD:05 EQU * P LDKL A2,MUXCC P LD A3,MXB
0x0a793c…0a7ad0 Dummy {f00=0x0074, f01=0x0190, f02=» $ P AD A2,SAVCON BUFFER END ADDRESS P* , $ PFRD:10 CIO A1,1,FDCU START READ 6 P RB(NA) FRD:10 ^ P* t P EJECT CRVOL ~ P* P* PFRD:20 INR A1,0,FDCU P RF(NA) FRD:40 =4 P STR A1,A3 P ADK A3,2 P CWR A
0x0a7ad0…0a7c64 Dummy {f00=0x0074, f01=0x0190, f02=»D:20 PFRD:42 EQU *+2 P ANKL A1,/4E15 FATAL ERROR ? " P RF(NZ) FRD:50 YES! F PFRD:43 CWR A3,A2 =4 b ( P RF(E) FRD:44 PROGRAMMED CHANNEL =4 ~ . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 & P ST A1,FRD:20 UPDATE INR ISTR. =4 PFR
0x0a7c64…0a7df8 Dummy {f00=0x0074, f01=0x0190, f02=»4 z PFRD:45 EQU * ( P ADKL A11,1 INCRMENT SECTOR ADDRESS P RF(NN) FRD:48 J 0 P SUR A11,A11 RESET LEAST SIGN. PART OF D.A. ` 2 P ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. $ P RF(O) FRD:50 DISC ADDRESS ERROR PFRD:48 EQU * P R
0x0a7df8…0a7f8c Dummy {f00=0x0074, f01=0x0190, f02=»43-2 =4 z P XIF P IFT CDDISC=1 P IFT CDDI16=0 =9 2 P EJECT L ( P*********************************** Z ( P* * ( P* CDINIT - INITIALIZE DISC UNIT * ( P* ============================= * (
0x0a7f8c…0a8120 Dummy {f00=0x0074, f01=0x018e, f02=» ENTRY: A1 - DEVICE ADDRESS * ( P* * * ( P* EXIT: * V ( P* * ( P* WORK REGISTERS: A1,A2 * ( P* * ( P*
0x0a8120…0a82b4 (1, 212) Dummy {f00=0x0075, f01=0x0190, f02=» PCDINIT EQU * P* P* INIT 80M CDC DISC COMMANDS " P* F , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. P P ST A1,READC1 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P S
0x0a82b4…0a8448 Dummy {f00=0x0075, f01=0x0190, f02=»E FOR SECTOR NBR r & P LDKL A2,/300 BUFLEN 80M CDC DISC P ST A2,SAVCON SAVE LENGTH B 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. d P ST A2,READ P ST A2,READS P RTN A14 P EJECT 4 P**************************************
0x0a8448…0a85dc Dummy {f00=0x0075, f01=0x0190, f02=»============================== * 4 P* * 2 4 P* REFERENCED IN: SYSLOD * j 4 P* * 4 P* ENTRY: A9 = BUFFER ADDRESS
0x0a85dc…0a8770 Dummy {f00=0x0075, f01=0x0190, f02=»- SECTOR NBR MOST SIGNIFICANT * 4 P* * * 4 P* EXIT: A12,A11 = A12,A11 + 1 * b 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 * 4
0x0a8770…0a8904 Dummy {f00=0x0075, f01=0x0190, f02=» * z 4 P*********************************************** " P* Z PCRDSEC EQU * d P* x P* SET BUFFER ADDRESS P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 P ST A1,CIOAD2 ADDRESS 2 P ADKL A1,2
0x0a8904…0a8a98 Dummy {f00=0x0075, f01=0x0190, f02=» A1,A12 SECTOR NUMBER MOST SIGNIFICANT 0 P LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT . P EJECT b P* p P* DIVIDE LOGICAL WITH 3 z P* P LDK A3,0 PRED100 EQU * P ADK A3,1 P SUK A1,3 P RB(NN) RED100 P ADK
0x0a8a98…0a8c2c Dummy {f00=0x0075, f01=0x0190, f02=»,PSECNL+STKEND , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR P CW A3,PSECNM+STKEND F , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR b P CW A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR
0x0a8c2c…0a8dc0 Dummy {f00=0x0075, f01=0x0190, f02=»CT P* A1=HEAD NBR * SECTOR NBR P* A2=CYLINDER NBR , P LDR A3,A2 F P LDR A2,A1 X P LDK A1,0 j P DVK 23 | P* A1=SECTOR NBR P* A2=HEAD NBR $ P ORKL A2,/800 SET INTERRUPT BIT " P ST A2,CIOTAB UPDATE CIO TABLE P
0x0a8dc0…0a8f54 (1, 213) Dummy {f00=0x0075, f01=0x018e, f02=»VEN CYLINDER NUMBER P ADK A2,12 SKEW FACTOR PINT100 EQU * : P DVK 23 N P SLL A1,5 IN POSITION ^ $ P ORS A1,CIOTAB UPDATE CIO TABLE | P SRC A3,1 RESTORE A3 P CW A3,CYLNBR & P RF(E) READER SAME CYLINDER NUMBER P EJECT
0x0a8f54…0a90e8 Dummy {f00=0x0075, f01=0x0190, f02=» P LDKL A2,SEKTAB PSEEKC1 EQU * P CIO A2,1,0 SEEK 0 P RB(NA) SEEKC1 H PSEEKC2 EQU * ^ P SST A2,0 r P RB(NA) SEEKC2 P EJECT P* P* READ P* PREADER EQU * P LDK A6,3 NUMBER OF RETRIES PRE
0x0a90e8…0a927c Dummy {f00=0x0075, f01=0x0190, f02=» PREADC2 SST A1,0 STATUS & P RB(NA) READC2 LOOP UNTIL ACCEPTED & P ANKL A1,/FF0F STATUS P P RF(NZ) RET30 READING ERROR n > P LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 0 P RF(NZ) REDMOV NOT FIRST REL LOG SECTOR =11 P
0x0a927c…0a9410 Dummy {f00=0x0075, f01=0x0190, f02=» * P SUR A11,A11 RESET A11 P ADKL A12,1 ( PTURN20 EQU * < P RTN A14 P P EJECT ` P* n " P* MOVE UP NEXT LOGICAL SECTOR x P* PREDMOV EQU * 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART P SLL A1,2 INDEX TO
0x0a9410…0a95a4 Dummy {f00=0x0075, f01=0x0190, f02=»QU * P LDR* A6,A1 P STR A6,A2 P ADK A1,2 2 P ADK A2,2 D P SUK A3,1 V P RB(P) RMOV10 NEXT WORD h P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 & P CALL ERROR INDICATE READING ERROR P EJE
0x0a95a4…0a9738 Dummy {f00=0x0075, f01=0x0190, f02=»IOTAB P ANK A1,/C0 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S " P LDKL A2,/8000 Z 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE p P RB READER PRET31 EQU * P ANK A1,/80 2 P RF(Z) RET32 LAST RETRY WITH LATE DATA STR
0x0a9738…0a98cc Dummy {f00=0x0075, f01=0x0190, f02=»FF * P ANS A2,CIOTAB RESET LATE DATA STROBE P LC A1,CIOTOT 8 P ANK A1,/C0 N 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- b P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRET33 EQU * P ANK A
0x0a98cc…0a9a60 Dummy {f00=0x0075, f01=0x0190, f02=» P EJECT P* P* SEEK TABLE P* 0 PSEKTAB EQU * : P DATA 0 N P* ^ P* CIO TABLE h P* | PCIOTAB EQU * & P DATA 0 ORDER,SECTOR NBR,HEAD NBR PCIOTOT EQU * 6 P DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTO
0x0a9a60…0a9bf4 (1, 214) Dummy {f00=0x007e, f01=0x0190, f02=»OPA2 EQU * P DATA /4000+128 PCIOAD2 EQU * * P DATA 0 ADDRESS 2 > PCIOPA3 EQU * X P DATA 128 l PCIOAD3 EQU * ~ P DATA 0 ADDRESS 3 P XIF P IFT CDDI16=1 =9 P EJECT ( P***********************************
0x0a9bf4…0a9d88 Dummy {f00=0x007e, f01=0x0190, f02=»* * ( P* REFERENCED IN: SYSLOD,GETFIL * , ( P* * X ( P* ENTRY: A1 - DEVICE ADDRESS * ( P* * ( P* EXIT: * ( P
0x0a9d88…0a9f1c Dummy {f00=0x007e, f01=0x0190, f02=»UBROUTINES: * ( P* * ( ( P*********************************** T P PCDINIT EQU * P* ( P* INIT 16M OR 80M CDC DISC COMMANDS P* P LDR A2,A1 =9 & P ANK A1,/3F MASK DEVIC
0x0a9f1c…0aa0b0 Dummy {f00=0x007e, f01=0x0190, f02=» INDICATOR =9 f , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. P ST A1,READC1 F ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST A1,SEEKC1 ( P ORKL A1,/800 FORM SST A2,XX INSTR.
0x0aa0b0…0aa244 Dummy {f00=0x007e, f01=0x0190, f02=» n P ST A2,SAVCON SAVE LENGTH 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. * P ST A2,READ b P ST A2,READS v & P CF A14,GETVLB GET VOLUME LABEL =9 $ P LC A2,FORDEV+1,A9 GET FORMAT =9 P ANK A2,1 FORMAT 4 OR 5 =9 ( P LDK A2,23
0x0aa244…0aa3d8 Dummy {f00=0x007e, f01=0x0190, f02=» ST A2,DIVCON SET DIVIDE CONSTANT =9 P RTN A14 , P EJECT < 4 P*********************************************** J 4 P* * 4 P* CRDSEC- READ ONE SECTOR FROM DISC * 4 P* ===================
0x0aa3d8…0aa56c Dummy {f00=0x007e, f01=0x018e, f02=»* b 4 P* * 4 P* ENTRY: A9 = BUFFER ADDRESS * B 4 P* * z 4 P* A11 - SECTOR NBR LEAST SIGNIFICANT * 4 P* A12 - SECTOR NBR MOS
0x0aa56c…0aa700 Dummy {f00=0x007e, f01=0x0190, f02=» 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 * < 4 P* * t 4 P* SUBROUTINES: ERROR * 4 P*
0x0aa700…0aa894 (1, 215) Dummy {f00=0x0081, f01=0x0190, f02=» | P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 4 P ST A1,CIOAD2 ADDRESS 2 H P ADKL A1,256 h P ST A1,CIOAD3 ADDRESS 3 | P LDKL A1,/3FFF P ANS A1,CIOTAB RESET BITS P ANS A1,CIOTOT RESET BITS . P LDR A1,A12 SECTOR
0x0aa894…0aaa28 Dummy {f00=0x0081, f01=0x0190, f02=» P* P LDK A3,0 PRED100 EQU * P ADK A3,1 4 P SUK A1,3 F P RB(NN) RED100 X P ADK A1,3 n P SUK A3,1 P DVK 3 P CW A9,CIOAD1 : P RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ P CW A2,PSECNL+STKEND
0x0aaa28…0aabbc Dummy {f00=0x0081, f01=0x0190, f02=»A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR B PRED110 EQU * t P ST A9,CIOAD1 ADDRESS 1 ( P MS 3,PSECPA+STKEND SAVE NEW VALUES P LDR A1,A3 PDIVCON EQU *+2 =9 P DVK 23
0x0aabbc…0aad50 Dummy {f00=0x0081, f01=0x0190, f02=» P DVK 23 P* A1=SECTOR NBR P* A2=HEAD NBR , $ P ORKL A2,/800 SET INTERRUPT BIT B , P OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9 j " P ST A2,CIOTAB UPDATE CIO TABLE P EJECT P* P* INTERLACING P* P LDR A2,A1
0x0aad50…0aaee4 Dummy {f00=0x0081, f01=0x018e, f02=» * P DVK 23 P SLL A1,5 IN POSITION $ P ORS A1,CIOTAB UPDATE CIO TABLE 8 P SLC A3,1 RESTORE A3 =9 ` P CW A3,CYLNBR & P RF(E) READER SAME CYLINDER NUMBER P EJECT P* P* SEEK P* $ P ST A3,CYLNBR SAVE CYLIN
0x0aaee4…0ab078 Dummy {f00=0x0081, f01=0x0190, f02=» ~ P RB(NA) SEEKC1 PSEEKC2 EQU * P SST A2,0 2 P RB(NA) SEEKC2 D P EJECT Z P* h P* READ r P* PREADER EQU * P LDK A6,3 NUMBER OF RETRIES PREA100 EQU * ( P LDKL A1,CIOTAB POINTER TO CIO TABLE PRE
0x0ab078…0ab20c Dummy {f00=0x0081, f01=0x018e, f02=»ACCEPTED v P ANKL A1,/FF0F STATUS P RF(NZ) RET30 READING ERROR . : P LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11 R : P RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11 P PTURN EQU * 0 P ADKL A11,1 INCREMENT LOGICAL SE
0x0ab20c…0ab3a0 Dummy {f00=0x0081, f01=0x0190, f02=» PTURN20 EQU * P RTN A14 P EJECT ( P* 6 " P* MOVE UP NEXT LOGICAL SECTOR @ P* f PREDMOV EQU * p 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART P SLL A1,1 =9 P LDR A2,A1 =9 P ADR A1,A1 =9 & P ADR A1,
0x0ab3a0…0ab534 (1, 216) Dummy {f00=0x0081, f01=0x0190, f02=»RDS x PRMOV10 EQU * P LDR* A6,A1 P STR A6,A2 4 P ADK A1,2 F P ADK A2,2 X P SUK A3,1 j P RB(P) RMOV10 NEXT WORD | P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 & P CALL ERROR INDICATE READI
0x0ab534…0ab6c8 Dummy {f00=0x0081, f01=0x0190, f02=» TRY ~ P LC A1,CIOTAB P ANK A1,/C0 " 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S 6 P LDKL A2,/8000 n 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE P RB READER PRET31 EQU * P ANK A1,/80 2 P RF(Z) RET32 LAST RETR
0x0ab6c8…0ab85c Dummy {f00=0x0081, f01=0x018e, f02=» P LDKL A2,/3FFF * P ANS A2,CIOTAB RESET LATE DATA STROBE P LC A1,CIOTOT L P ANK A1,/C0 b 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- v P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRET33
0x0ab85c…0ab9f0 Dummy {f00=0x0081, f01=0x0190, f02=» d P RB READER ! P EJECT ! P* ! ( P* SEEK TABLE ! 2 P* ! F PSEKTAB EQU * ! P P DATA 0 ! d P* ! t P* CIO TABLE ! ~ P* ! PCIOTAB EQU * ! & P DATA 0 ORDER,SECTOR NBR,HEAD NBR ! PCIOTOT EQU * ! 6 P DATA 384 TOTAL NUMBER OF
0x0ab9f0…0abb84 Dummy {f00=0x0081, f01=0x0190, f02=». =9 ! v PCIOAD1 EQU * " P DATA 0 ADDRESS 1 " PCIOPA2 EQU * " : P DATA /4000+128 " N $ P DATA 0 ADDRESS 2 MOST SIGN. =9 " f PCIOAD2 EQU * " P DATA 0 ADDRESS 2 " PCIOPA3 EQU * " P DATA 128 " $ P DATA 0 ADDRESS 3 MOST SIGN. =9 "
0x0abb84…0abd18 Dummy {f00=0x0081, f01=0x0190, f02=» * " 8 P* GETFIL - GET CONFIGURATION FILE * # : 8 P* =============================== * # v 8 P* * # 8 P* REFERENCED IN: SYSLOD
0x0abd18…0abeac Dummy {f00=0x0081, f01=0x0190, f02=» * # f 8 P* * $ 8 P* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * $ N 8 P* * $ 6 P* WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 * $ 8 P*
0x0abeac…0ac040 Dummy {f00=0x0081, f01=0x0190, f02=» * $ x 8 P*************************************************** % $ PGETFIL EQU * % ` P CF A14,GETVLB % t PGET:10 EQU * % " P CF A14,RDSEC GET VOLUME LABEL % ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR % " P LDR A6,A9 GET START OF
0x0ac040…0ac1d4 (1, 217) Dummy {f00=0x0081, f01=0x0190, f02=»RT OF RECORD % ( P LDK A5,'S' STANDARD FILE CHARACTER & P CC A5,27,A6 STANDARD FILE? & @ P RF(NE) GET:50 NO! & d * P LDK A5,'$' LEADING CHAR IN CONF. FILE & ~ " P CCR A5,A4 CONFIGURATION FILE? & P RF(NE) GET:50 NO! & 2 PGET:25 LDK A3,'C' THIS INSTR
0x0ac1d4…0ac368 Dummy {f00=0x0081, f01=0x0190, f02=»5,':' CHARACTER TO PRECEED NUMBER & ( PGET:30 CCR A5,A4 CONFIGURATION FILE? ' * P RF(E) GET:40 YES! ' V P SUK A4,1 TRY NEXT CHARACTER ' p P CWR A4,A6 FIRST IN NAME? ' P RF(E) GET:50 YES! ' P RB GET:30 ' PGET:40 EQU * ' P* ' P* CHECK
0x0ac368…0ac4fc Dummy {f00=0x0081, f01=0x0190, f02=» ' t " P CALL CONVRT CONVERT TO BINARY ( , P CW A1,SCTANO SAME AS APPLICATION NUMBER ( . P RF(NE) GET:50 ( ^ P* ( t P* CONFIGURATION FILE FOUND ( ~ P* ( $ P LD A1,22,A6 LAST RECORD NUMBER ( P ST A1,LSTREC+STKEND SAVE ( P LD A12,16,A6 GET
0x0ac4fc…0ac690 Dummy {f00=0x0081, f01=0x0190, f02=»BYPASS STATUS CHARACTER ( , P SUK A7,1 MOORE RECORDS IN THIS SECTOR? ) P RB(P) GET:20 YES! ) P " P CWR A11,A10 LAST VTOC SECTOR? ) j P RB(NE) GET:10 NO! ) 2 PGET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED ) ( P CCK A3,'CC' LOOKING FOR CONF. FILE? )
0x0ac690…0ac824 Dummy {f00=0x0081, f01=0x018e, f02=»ILE ) n P* * P* * P LDKL A2,/7F8 * & P OTR A2,0,SOP SWITCH ON SOP LAMPS * 6 PGET:70 EQU * * ` P CF A14,SOPIN * t " P ANKL A1,/7FC ALLOWED SWITCH? * P RB(Z) GET:70 NO! * P LDKL A2,LMP1 * & P OTR A2,0,SOP SWITCH ON LOAD LAMP *
0x0ac824…0ac9b8 Dummy {f00=0x0081, f01=0x0190, f02=» * ( P CF A14,CONFLD CONFIGURE LOAD DEVICE + P RB GETFIL + 4 PGET:85 EQU * + F $ P CCK A3,'SS' LOOKING FOR $SWAPP? + Z P RF(NE) GET:99 NO! + & P LDK A5,0 RESET CHARACTER COUNTER + * PGET:90 LCR A1,A4 GET CHAR IN FILENAME + . P CC A1,SWPTAB,A5 CHE
0x0ac9b8…0acb4c Dummy {f00=0x0081, f01=0x0190, f02=»WK A5,8 ALL CHARACTERS CHECKED? + P RB(NE) GET:90 NO! , ( P* , B : P* SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS , L , P* TO FILE AND TO NEXT SECTOR AFTER FILE , P* , & P LD A1,18,A6 GET BIT 16-31 OF D.A. , & P LD A2,16,A6 GET BIT 0-15
0x0acb4c…0acce0 Dummy {f00=0x0081, f01=0x0190, f02=»D A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH , ( P ADR A4,A2 ADD MOST SIGNIFICANT PART - 0 * P ADR A3,A1 ADD LEAST SIGNIFICANT PART - & P RF(O) GET:92 OVERFLOW - ADD CARRY - P RF GET:98 - PGET:92 ADK A4,1 ADD CARRY - " P ANKL A3,/7FFF RESET OVERFLOW -
0x0acce0…0ace74 (1, 218) Dummy {f00=0x0081, f01=0x0190, f02=»DICATE SWB-FILE FOUND - | PGET:99 RTN A14 . P EJECT . 4 : P***************************************************** . B : P* * . : P* LODCOM - LOAD CORE RESIDENT PART OF APPLICATION * . : P* =========
0x0ace74…0ad008 Dummy {f00=0x0081, f01=0x0190, f02=»MENT * . x : P* ========================= * / & : P* * / d : P* ENTRY: A8 - RELOCATION BASE * / : P* A10 - EFFECTIVE LENGTH
0x0ad008…0ad19c Dummy {f00=0x0081, f01=0x018e, f02=»* / : P* * 0 : P* WORK REGISTERS: A1,A2,A3,A4,A7 * 0 H : P* * 0 : P* SUBROUTINES: MOVE,READ * 0 : P*
0x0ad19c…0ad330 Dummy {f00=0x0081, f01=0x0190, f02=» , P LD A9,MXBUF GET ADDRESS TO READ BUFFER 1 " P LDR A3,A9 GET START OF BUFFER 1 4 P LDR A2,A3 SAVE 1 Z & P LDKL A7,240 NUMBER OF CODE WORDS 1 r PLOD:10 EQU *-2 1 P LDR A10,A10 APP >32 KB? 1 P RF(NN) LOD:20 NO! 1 P SUR A10,A7 DEC. LENGTH 1
0x0ad330…0ad4c4 Dummy {f00=0x0081, f01=0x0190, f02=»8 WORDS/SECTOR? 1 P RF(NE) LOD:30 NO! 2 , P ADR A7,A10 COMPUTE NUMBER OF CODE WORDS 2 2 ( P LDKL A10,0 INDICATE END OF SEGMENT 2 b P RF LOD:52 2 PLOD:30 EQU * 2 2 P ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! 2 ( P LDKL A10,0 INDICATE END OF SE
0x0ad4c4…0ad658 Dummy {f00=0x0081, f01=0x0190, f02=»SATE FOR HEADER 2 r : P CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK 3 P RF(L) LOD:50 NO! 3 V P* 3 p ( P SUK A7,240 YES, GET WORDS REMAINING 3 z P LDR A10,A7 AND SAVE 3 ( P LDK A7,240 START OF RELOCATION BITS 3 PLOD:50 EQU * 3 " P CWK A
0x0ad658…0ad7ec Dummy {f00=0x0081, f01=0x0190, f02=»52 EQU * 3 " P LDR A1,A9 START OF CODE PART 4 , P LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK? 4 6 P RF(NZ) LOD:55 NO! 4 f 6 P IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK 4 0 P ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK 4 0 P SUK A7,8 DECREMENT NUMBER
0x0ad7ec…0ad980 Dummy {f00=0x0081, f01=0x0190, f02=»0 SINGLE SECTOR/BLOCK APPLICATION? 4 P RF(NG) LOD:55 YES! 5 * P* 5 F PLOD:54 ADKL A10,8 5 P PLOD:55 EQU * 5 j , P LDR A3,A7 NUMBER OF CHARACTERS TO MOVE 5 ~ ( P LD A2,LLDADR+STKEND GET TO-ADDRESS 5 0 P ADS A3,LLDADR+STKEND UPDATE MEMORY ADDRESS 5
0x0ad980…0adb14 (1, 219) Dummy {f00=0x0082, f01=0x0190, f02=» A10,A10 END OF SEGMENT? 5 P RF(NZ) LOD:70 6 P RTN A14 EXIT 6 6 PLODSEG EQU * 6 L ( P LDKL A1,256 NUMBER OF WORDS/SECTOR 6 ` $ P ST A1,LOD:10 MODIFY INSTRUCTION 6 PLOD:70 EQU * 6 P CF A14,READ 6 PREAD EQU *-2 6 P RB LODCOM 6 P EJECT
0x0adb14…0adca8 Dummy {f00=0x0082, f01=0x0190, f02=»UF - RELOCATE BUFFER ROUTINE * 6 6 P* =============================== * 7 . 6 P* * 7 h 6 P* REFERENCED IN: LODCOM/LODSEG * 7 6 P*
0x0adca8…0ade3c Dummy {f00=0x0082, f01=0x0190, f02=» * 7 6 P* EXIT: * 8 4 6 P* * 8 n 6 P* WORK REGISTERS: A1,A4,A5,A6 * 8 6 P*
0x0ade3c…0adfd0 Dummy {f00=0x0082, f01=0x0190, f02=»************************************************* 8 PREBUF EQU * 9 : . P LDR A4,A2 GET START OPF RELOCATION TABLE 9 N P SUK A4,2 9 PREB:10 EQU * 9 " P ADK A4,2 NEXT RELOCATION WORD 9 ( P LDK A6,16 NUMBER OF RELOCATION BITS 9 $ P LDR* A1,A4 GET
0x0adfd0…0ae164 Dummy {f00=0x0082, f01=0x0190, f02=» RELOCATE 9 P STR A5,A3 STORE IT BACK : PREB:30 EQU * : 2 P ADK A3,2 NEXT CODE WORD : F & P CWR A3,A2 END OF CODE WORD PART? : f P RF(E) EXREL YES! : $ P SUK A6,1 MOORE RELOCATION BITS? : P RB(Z) REB:10 NO! : " P SLL A1,1 NEXT RELOCATION BI
0x0ae164…0ae2f8 Dummy {f00=0x0082, f01=0x0190, f02=»N - GET CONTENT IN MEMORY WORD * : . P***************************************** ; * P* ; P* REFERENCED IN: SEGGEN ; f P* ; " P* ENTRY: A2 - MEMORY ADDRESS ; . P* MMUOPT - MMU OPTION SWITCH (X) ; P* ; , P* EXIT: A1 - CONTE
0x0ae2f8…0ae48c Dummy {f00=0x0082, f01=0x0190, f02=»CTOPT GET OPTION WORD ; P ANK A1,1 MMU OPTION < P RF(Z) GCON10 NO MMU < : P ELR A1,A2 < V P RF GCON20 < h PGCON10 EQU * < z P LDR* A1,A2 < PGCON20 EQU * < P RTN A14 RETURN < P EJECT < 2 P********************************************
0x0ae48c…0ae620 Dummy {f00=0x0082, f01=0x0190, f02=»==== * < ~ 2 P* * = $ 2 P* SCAN CONFIGURATION FILE FOR POSSIBLE * = Z 2 P* APPLICATION DEFINITION BLOCKS. IF * = 8 P* FOUND APLTAB+STKCOM IS UPDATED WITH DISC * = 2 P* ADD
0x0ae620…0ae7b4 (1, 220) Dummy {f00=0x0086, f01=0x0190, f02=» * = n 2 P* * > 2 P* WORK REGISTERS A1-A8,A10 * > J 2 P* * > 2 P* ROUTINES REFERENCED: GETFIL, APLID * > 2 P*
0x0ae7b4…0ae948 Dummy {f00=0x0086, f01=0x0190, f02=»******************************************* > P* ? 4 P* ? > PSCNCON EQU * ? H * P CF A14,GETFIL GET CONFIGURATION FILE ? 6 P ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADDRESS ? , P ST A12,CONDAD+2+STKEND MOST SIGN. PART ? " P LDR A8,A9 GET START
0x0ae948…0aeadc Dummy {f00=0x0086, f01=0x018e, f02=»RESET RECORD COUNTER ? 2 P LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS @ * P ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK @ R $ P CF A14,RDSEC READ FIRST SECTOR @ " P LDR A4,A9 GET START OF RECORD @ P LDR A8,A9 SAVE RECORD START @ P* @ PSCAN00 EQU *
0x0aeadc…0aec70 Dummy {f00=0x0086, f01=0x0190, f02=» * P CF A14,APLID YES GET APPLICATION NAME A PSCAN10 EQU * A 2 ( P ADKL A10,1 INCREMENT RECORD COUNTER A F & P CW A10,LSTREC+STKEND LAST RECORD? A r P RF(E) SCNEND YES! A P* A . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER A ( P CW A8,ECNFBF+STKEND O
0x0aec70…0aee04 Dummy {f00=0x0086, f01=0x0190, f02=»SCAN20 EQU * A P LDR A4,A8 GET RECORD START B $ P RB SCAN00 CONTINUE SCAN PROCESS B 8 P* B ` $ P* THE WHOLE CONFIGURATION FILE B j $ P* IS PROCESSED. SEARCH VTOC FOR B " P* GIVEN FILE NAMES AND UPDATE B ( P* APLTAB+STKCOM WITH CORRESPONDING B
0x0aee04…0aef98 Dummy {f00=0x0086, f01=0x0190, f02=»D A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS B * P ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK C : 0 P LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS C h P SUK A1,1 DECREMENT C $ P RF(Z) RTRN ONLY ONE APPLICATION C P NGR A1,A1 NEGATE C 2 P ST A1,APLCNT+
0x0aef98…0af12c Dummy {f00=0x0086, f01=0x018e, f02=»ON C | P EJECT D 2 P********************************************* D 2 P* * D N 2 P* * D 2 P* APLID * D 2 P* =====
0x0af12c…0af2c0 Dummy {f00=0x0086, f01=0x0190, f02=» 2 P* AND MOVES IT FROM CONF. FILE TO * E 8 P* APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY * E : 8 P* IN APLTAB+STKCOM IS CREATED ACCORDINGLY: * E v 2 P* * E 2 P* LENGTH OF NAME (BYTES)
0x0af2c0…0af454 (1, 221) Dummy {f00=0x0087, f01=0x0190, f02=» NAME ENTRY CONSISTS OF 1-4 WORDS * E 2 P* * F 0 8 P* ENTRY: A6 POINTER INTO APLTAB+STKCOM * F f 2 P* A8 RECORD POINTER * F 2 P* A10 RECORD COUNTER * F
0x0af454…0af5e8 Dummy {f00=0x0087, f01=0x0190, f02=» * F z 2 P********************************************* G P* G V P* G ` PAPLID EQU * G j ( P ADKL A10,1 INCREMENT RECORD COUNTER G ~ & P CW A10,LSTREC+STKEND LAST RECORD G 4 P ABL(E) CONERR YES! ERROR IN CONFIGURATION FILE G
0x0af5e8…0af77c Dummy {f00=0x0087, f01=0x0190, f02=» G " P CF A14,RDSEC READ NEXT SECTOR H P LDR A8,A9 GET RECORD START H . PAPLID0 EQU * H R P LDR A4,A8 RECORD START H f & P LDK A5,0 RESET CHARACTER COUNTER H PAPLID2 EQU * H P LCR A1,A4 GET CHARACTER H & P CCK A1,';;' DELIMITER CHARACTER? H
0x0af77c…0af910 Dummy {f00=0x0087, f01=0x0190, f02=» H l & P CWK A5,NCHAID END OF THIS RECORD? I ( P RB(NE) APLID2 NO GET NEXT CHARACTER I 2 P* I ^ " P* END OF NAME RECORD, LOOK IF I h $ P* NEXT CHARACTER IS A DELIMITER I P* I P LCR A1,A4 I P CCK A1,';;' I 6 P ABL(NE) CONERR NO DELIMITER, ERRO
0x0af910…0afaa4 Dummy {f00=0x0087, f01=0x0190, f02=» A3,A6 SAVE BLOCK START I 0 P STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM J . P IM* APLTAB+STKCOM INCREMENT NO OF APPLIC. J T ( P LDR A4,A8 GET START OF NAME RECORD J ( P ADK A5,1 INCREMENT CHARACTER COUNT J " P SRA A5,1 AND MAKE WORD COUNT J P* J
0x0afaa4…0afc38 Dummy {f00=0x0087, f01=0x018e, f02=»COM J x ( P ADK A4,2 ADVANCE CHARACTER POINTER K " P SUK A5,1 DECREMENT WORD COUNT K 8 * P RB(P) APLID6 MORE CHARACTERS TO MOVE K ^ P* K 0 P ADK A6,ACBLEN PREPARE FOR NEXT TABLE ENTRY K P RTN A14 NO, RETURN K P EJECT K 2 P********************
0x0afc38…0afdcc Dummy {f00=0x0087, f01=0x018e, f02=» K ` 2 P* GETAPL * L 2 P* ====== * L > 2 P* * L t 2 P* SCANS VTOC FOR FILE NAMES LISTED IN * L @ P* APLTAB+STKCOM. APLTAB+STKCOM IS UPDAT
0x0afdcc…0aff60 Dummy {f00=0x0087, f01=0x0190, f02=» L Z 2 P* START OF FREE AREA. * M 2 P* * M > 8 P* ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM * M t @ P* APLCNT+STKEND - NO OF ENTRIES IN APLTAB+STKCOM * M 2 P*
0x0aff60…0b00f4 (1, 222) Dummy {f00=0x0087, f01=0x0190, f02=»GETVLB READ VOLUME LABEL M PGETAP0 EQU * N P CF A14,RDSEC READ SECTOR N 4 ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR N V " P LDR A4,A9 GET START OF RECORD N PGETAP2 EQU * N ( P LDR* A5,A6 GET LENGTH OF APPL. NAME N P LDR A3,A4 SAVE RECORD START N
0x0b00f4…0b0288 Dummy {f00=0x0087, f01=0x0190, f02=»2,/2020 UNUSED? N P RF(E) GETAP4 YES! O P* O 2 " P CF A14,CMPSYM COMPARE SYMBOLS O < P ADK A5,0 O b P RF(Z) FOUND EQUAL O t P* O $ P* NO MATCH, TRY NEXT VTOC ENTRY O P* O PGETAP4 EQU * O P ADR A4,A8 GET NEXT RECORD O & P ADK A4,
0x0b0288…0b041c Dummy {f00=0x0087, f01=0x0190, f02=»OC SECTOR? O | & P ABL(E) CONERR ERROR IN CONF. FILE P P* P < P RB GETAP0 P F P* P X PFOUND EQU * P b $ P LDK A2,'L' LOAD FILE CHARACTER P v P CC A2,27,A4 LOAD FILE? P * P ABL(NE) CONERR NO ERROR IN CONF. FILE P P* P . P LD A2,16,A4 GET D
0x0b041c…0b05b0 Dummy {f00=0x0087, f01=0x0190, f02=»PLADA+2,A6 AND SAVE IN APLTAB+STKCOM P . P ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK Q , P* Q ^ 2 P IM APLCNT+STKEND INCREMENT APPLICATION COUNT Q h P RB(NZ) GETAPL MORE TO DO! Q P* Q P RTN A14 END OF GETAPL Q P EJECT Q 2 P******************
0x0b05b0…0b0744 Dummy {f00=0x0087, f01=0x0190, f02=» Q b 2 P* CMPSYM * R 2 P* ====== * R > 2 P* * R t 2 P* COMPARE TWO SYMBOLS WITH EACH OTHER * R 2 P*
0x0b0744…0b08d8 Dummy {f00=0x0087, f01=0x0190, f02=» LENGTH OF SYMBOL 2 * R 2 P* * S ( 2 P* EXIT: A5 = 0 IF SYMBOLS EQUAL * S ^ 2 P* * S 2 P********************************************* S P* S
0x0b08d8…0b0a6c Dummy {f00=0x0087, f01=0x0190, f02=») CMPEND IF NOT EQUAL, RETURN S P* T & ( P ADK A3,1 ADVANCE CHARACTER POINTERS T 0 P ADK A1,1 T ( P SUK A5,1 DECREMENT CHARACTER COUNT T n , P RB(NZ) CMPSYM CONTINUE THE COMPARISION T P* T $ P LDR* A2,A6 RESTORE NAME LENGTH T " P CWK A2,8 LO
0x0b0a6c…0b0c00 Dummy {f00=0x0087, f01=0x0190, f02=»END OF FILE NAME? T P RF(E) CMPEND YES! U P* U 4 P LDK A5,1 NO, NOT EQUAL! U > PCMPEND EQU * U ^ P RTN A14 END OF CMPSYM U r P EJECT U 2 P********************************************* U 2 P* * U 2
0x0b0c00…0b0d94 (1, 223) Dummy {f00=0x0087, f01=0x018e, f02=» * U v 2 P* * V 2 P* READ SECTOR CONTAINIG VOLUME LABEL * V R 2 P* * V 2 P* EXIT: A10 - LAST VTOC SECTOR * V 2 P* A11 - FIRST
0x0b0d94…0b0f28 Dummy {f00=0x0087, f01=0x0190, f02=» V ` 2 P********************************************* W P* W > P* W H PGETVLB EQU * W R P SUR A11,A11 VOLUME LABEL W f P SUR A12,A12 W " P CF A14,RDSEC GET VOLUME LABEL W P LD A10,10,A9 GET VTOC BASE W P LDR A11,A10 SAVE W " P AD A10,
0x0b0f28…0b10bc Dummy {f00=0x0087, f01=0x0190, f02=» OF GETVLB W P* X P EJECT X 2 P********************************************* X * 2 P* * X ` 2 P* * X 2 P* RDSEC * X 2 P*
0x0b10bc…0b1250 Dummy {f00=0x0087, f01=0x0190, f02=» * X n 2 P* * Y 2 P* ENTRY: A9 - BUFFER ADDRESS * Y J 2 P* A11- SECTOR ADDRESS * Y 2 P* A12- SECTOR ADDRESS * Y 2 P*
0x0b1250…0b13e4 Dummy {f00=0x0087, f01=0x0190, f02=»DIFIED ADDRESS Y PREADS EQU *-2 Z P RTN A14 Z , P EJECT Z < P* Z J P* DATA AREA DEFINITION Z T P* Z t PSYSBAS EQU * Z ~ PSAVCON DATA BUFLEN Z 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS Z PSAVMEM DATA 0 SAVE AREA Z & PCYLNBR
0x0b13e4…0b1578 Dummy {f00=0x0087, f01=0x411c, f02=»AB DATA 0,/1909,/3717,/2808,/1404 Z P XIF =9 [ * P IFF CDDISC-CDDI16=1 =9 [ < , PDEVTAB DATA 0,/1909,/3717,/2808,/5717 =9 [ P XIF =9 [ $ PSWPTAB DATA '$S','WA','P ',' ' [ PFCTAB EQU * =5 [ P DATA /F1F3,/F0F2 =5 [ P* [ P END
0x0b1578…0b170c Dummy {f00=0x0087, f01=0x2008, f02=» P X ` h p
0x0b170c…0b18a0 Dummy {f00=0x0087, f01=0x0190, f02=»QU * , P ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. ] 4 P LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED ] < & P RF(Z) UPDTE8 NO SUBADDR. DEFINED ] t P* ] 4 P LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR. ] P LDR A3,A1 ] * P SLL A3,1 2 DIGITS FOR
0x0b18a0…0b1a34 (1, 224) Opaque[0x194]
0x0b1a34…0b1bc8 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x0b1a34…0b1bc8 IdxSect {
0x0b1a34…0b1bc8 f00 = 0x0002 // 0xb1a34 @0x0
0x0b1a34…0b1bc8 f01 = 0x0070 // 0xb1a36 @0x2
0x0b1a34…0b1bc8 gno = [ // 0xb1a38 @0x4
0x0b1a34…0b1bc8 [0x00]: C0x0002.0x0.0
0x0b1a34…0b1bc8 [0x01]: C0x001c.0x3.0
0x0b1a34…0b1bc8 [0x02]: C0x0030.0x1.0
0x0b1a34…0b1bc8 [0x03]: C0x0030.0x2.0
0x0b1a34…0b1bc8 [0x04]: C0x0030.0x3.0
0x0b1a34…0b1bc8 [0x05]: C0x0031.0x0.0
0x0b1a34…0b1bc8 [0x06]: C0x0031.0x1.0
0x0b1a34…0b1bc8 [0x07]: C0x0031.0x2.0
0x0b1a34…0b1bc8 [0x08]: C0x0032.0x3.0
0x0b1a34…0b1bc8 [0x09]: C0x0033.0x1.0
0x0b1a34…0b1bc8 [0x0a]: C0x0033.0x3.0
0x0b1a34…0b1bc8 [0x0b]: C0x0034.0x0.0
0x0b1a34…0b1bc8 [0x0c]: C0x0034.0x1.0
0x0b1a34…0b1bc8 [0x0d]: C0x0034.0x2.0
0x0b1a34…0b1bc8 [0x0e]: C0x0035.0x2.0
0x0b1a34…0b1bc8 [0x0f]: C0x0035.0x3.0
0x0b1a34…0b1bc8 [0x10]: C0x003e.0x3.0
0x0b1a34…0b1bc8 [0x11]: C0x0040.0x0.0
0x0b1a34…0b1bc8 [0x12]: C0x0040.0x1.0
0x0b1a34…0b1bc8 [0x13]: C0x006d.0x1.0
0x0b1a34…0b1bc8 [0x14]: C0x006d.0x2.0
0x0b1a34…0b1bc8 [0x15]: C0x006d.0x3.0
0x0b1a34…0b1bc8 [0x16]: C0x006e.0x0.0
0x0b1a34…0b1bc8 [0x17]: C0x006e.0x1.0
0x0b1a34…0b1bc8 [0x18]: C0x006e.0x2.0
0x0b1a34…0b1bc8 [0x19]: C0x006e.0x3.0
0x0b1a34…0b1bc8 [0x1a]: C0x006f.0x0.0
0x0b1a34…0b1bc8 [0x1b]: C0x006f.0x1.0
0x0b1a34…0b1bc8 [0x1c]: C0x006f.0x2.0
0x0b1a34…0b1bc8 [0x1d]: C0x006f.0x3.0
0x0b1a34…0b1bc8 [0x1e]: C0x0070.0x0.0
0x0b1a34…0b1bc8 [0x1f]: C0x0070.0x1.0
0x0b1a34…0b1bc8 [0x20]: C0x0070.0x2.0
0x0b1a34…0b1bc8 [0x21]: C0x0070.0x3.0
0x0b1a34…0b1bc8 [0x22]: C0x0071.0x0.0
0x0b1a34…0b1bc8 [0x23]: C0x0071.0x1.0
0x0b1a34…0b1bc8 [0x24]: C0x0077.0x2.0
0x0b1a34…0b1bc8 [0x25]: C0x0077.0x3.0
0x0b1a34…0b1bc8 [0x26]: C0x0078.0x0.0
0x0b1a34…0b1bc8 [0x27]: C0x0078.0x1.0
0x0b1a34…0b1bc8 [0x28]: C0x0078.0x2.0
0x0b1a34…0b1bc8 [0x29]: C0x0078.0x3.0
0x0b1a34…0b1bc8 [0x2a]: C0x0079.0x0.0
0x0b1a34…0b1bc8 [0x2b]: C0x0079.0x1.0
0x0b1a34…0b1bc8 [0x2c]: C0x0079.0x2.0
0x0b1a34…0b1bc8 [0x2d]: C0x0087.0x3.0
0x0b1a34…0b1bc8 [0x2e]: C0x0088.0x0.0
0x0b1a34…0b1bc8 [0x2f]: C0x0088.0x1.0
0x0b1a34…0b1bc8 [0x30]: C0x0088.0x2.0
0x0b1a34…0b1bc8 [0x31]: C0x0088.0x3.0
0x0b1a34…0b1bc8 [0x32]: C0x0089.0x0.0
0x0b1a34…0b1bc8 [0x33]: C0x0089.0x1.0
0x0b1a34…0b1bc8 [0x34]: C0x0089.0x2.0
0x0b1a34…0b1bc8 [0x35]: C0x008b.0x3.0
0x0b1a34…0b1bc8 [0x36]: C0x008c.0x0.0
0x0b1a34…0b1bc8 [0x37]: C0x008d.0x0.0
0x0b1a34…0b1bc8 ]
0x0b1a34…0b1bc8 }
0x0b1bc8…0b1d5c Dummy {f00=0x0002, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 11.0 81-08-19 870105041100 P : $ P =10,CORRECTION =9 NOT CORRECT B P REL 11.0 81-07-28 j 0 P =9,FOR MONITOR EXTENTS APLREL AND APLLAC * P =9,POINTS AT 1 WORD TO HIGH ADDRESS * P =8,BUILD REAL-TIME INTERRUPT
0x0b1d5c…0b1ef0 Dummy {f00=0x0002, f01=0x0190, f02=»RUPT TABLE x P REL 11.0 81-02-16 2 P =6,INIT UNUSED MMU ENTRIES,AND INIT ACBSTA . ( P AND ACBREL FOR MONITOR EXTENTS d P REL 11.0 81-01-26 . P =5,CHANGES IN CONDITIONAL ASSEMBLY WHEN ( P BUILDING COMMON DEVICE TABLES
0x0b1ef0…0b2084 Dummy {f00=0x0002, f01=0x0190, f02=» PRR 11.0 80-12-03 0 P =3,APPLICATION CONTROL BLOCK IS EXTENDED P WITH 1 WORD R P PRR 11.0 80-12-01 l , P =2,IF NO S-BLOCK IN CONF.DATA,PROCESS , P EVEN NEXT CREDIT APPL. CONVERT A $ P BINARY VALUE >99 TO ASCII
0x0b2084…0b2218 Dummy {f00=0x0002, f01=0x0190, f02=» WHEN BUILDING r P USER TASK TABLES P PRR 11.0 80-11-20 4 8 P =1,IF NO D-BLOCK IN CONF. DATA, SKIP DCT-CREATION T P PRR 11.0 80-11-19 P ENTRY SYSLDM P* 0 P* EXTERNALS DEFINED IN SYSTEM CONTROL TABLE P*
0x0b2218…0b23ac Dummy {f00=0x0002, f01=0x0190, f02=»XTRN SCTCDT COMMON DEVICE TABLE ADDRESS $ P EXTRN SCTDCT DATA COMMUNICATION 0 . P EXTRN SCTDMI DM: INDEX BUFFER RECORD SIZE X ( P EXTRN SCTDMT DATA MANAGEMENT TASKS " P EXTRN SCTEFA END OF FREE AREA , P EXTRN SCTFWL FM: FILE WORK TABLE LENGTH
0x0b23ac…0b2540 Dummy {f00=0x0002, f01=0x018e, f02=»NT&SEGMENT TABLE v . P EXTRN SCTNFT DM/FM: NUMBER OF FILES/TASK ( P EXTRN SCTNOF DM/FM: NUMBER OF FILES J " P EXTRN SCTNOP NUMBER OF PAGES v 6 P EXTRN SCTNOS NUMBER OF SEGMENTS/TASK (BASIC ONLY) P EXTRN SCTOPT SYSTEM OPTIONS $ P EXTRN SCTPAG
0x0b2540…0b26d4 (1, 225) Dummy {f00=0x001c, f01=0x018e, f02=» n $ P EXTRN SCTTCT TASK CONTROL TABLE P EJECT 0 P* > " P* EXTERNALS DEFINED IN MONTAB H P* n * P EXTRN FREQUE FREE PAGES QUEUE ANCHOR x " P EXTRN INTLT1 LOCAL CONNECTION $ P EXTRN INTRT1 REMOTE CONNECTION " P EXTRN INTVU1 VIDEO
0x0b26d4…0b2868 Dummy {f00=0x001c, f01=0x0190, f02=» h ( P EXTRN INTSL1 SYNCHRONOUS CONNECTION P* 4 P* MISCELLANOEUS EXTERNALS > P* ` ( P EXTRN REL RELOCATION BASE IN SYSINI j , P EXTRN SCLASS SPECIAL DEVICE CLASS TABLE . P EXTRN TCLASS TERMINAL DEVICE CLASS TABLE " P EXTRN SYSLOD ST
0x0b2868…0b29fc Dummy {f00=0x001c, f01=0x0190, f02=»OUTINES P* P EXTRN ERROR ERROR HANDLING $ P EXTRN MOVE MOVE AREAS IN MEMORY > P EXTRN MULT MULTIPLY f ( P EXTRN PSW STORE PROGRAM STATUS WORD $ P EXTRN CMPADR COMPARE ADDRESSES . P EXTRN CONVRT CONVERT FROM ASCII TO BINARY * P
0x0b29fc…0b2b90 Dummy {f00=0x001c, f01=0x0190, f02=»RN INBIMA INIT MMU ALLOCATION BIT MAP . P EXTRN PUSH SAVE REGISTER A1-A14 ON STACK . 2 P EXTRN POB RESTORE REGISTER A1-A14 FROM STACK ` 8 P EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE P EJECT P* P* TTAB DISPLACEMENTS P
0x0b2b90…0b2d24 Dummy {f00=0x001c, f01=0x0190, f02=»XTRN TTB:CB CURRENT SEGMENT BASE POINTER ( P EXTRN TTB:SP SEGMENT TABLE POINTER 0 ( P EXTRN TTB:SB SEGMENT BLOCK POINTER P EXTRN TTB:ID TASK ID P EXTRN TTB:ST STATUS " P EXTRN TTB:PP PENDING POINTER & P EXTRN TTB:PW PROGRAM STATUS WOR
0x0b2d24…0b2eb8 Dummy {f00=0x001c, f01=0x018e, f02=»XTRN DWTCHP CHANNEL PARAMETER-1 P EXTRN DWTST STATUS ( P EXTRN DWTECB ECB ADDRESS D P EXTRN DWTOR ORDER f P EXTRN DWTADR ADDRESS BLOCK P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EXTRN DWTTQ TERMINA
0x0b2eb8…0b304c Dummy {f00=0x001c, f01=0x0190, f02=» P EXTRN DWTDEV DEVICE STATUS P EXTRN DWTECH ECHO DEVICE ( P EXTRN DWTSQ START OF QUEUE J P EJECT n P | P , P*************************************** , P* CONDITIONAL ASSEMBLY * , P****************************
0x0b304c…0b31e0 Dummy {f00=0x001c, f01=0x0190, f02=»LE WORK BLOCK HANDLING x * PEDM EQU 0 1 - EXTENDED DATA MANAGEMENT PX:A EQU 1 L PX:B EQU 1 ^ PX:C EQU 1 p PX:D EQU 1 PX:E EQU 1 PX:F EQU 1 PX:G EQU 1 PX:H EQU 1 PX:I EQU 1 PX:J EQU 1 PX:K EQU
0x0b31e0…0b3374 (1, 226) Dummy {f00=0x0030, f01=0x0190, f02=» PFT80 EQU 00 PPLCL EQU 00 PPLCR EQU 00 , PVIDEO EQU 00 @ PTEDVCL EQU 01 T PSPDVCL EQU 01 j PNOEXMB EQU X:K PFM EQU 00 PDC EQU 00 P EJECT P* * P* COMMON DISPLACEMENTS AND CONSTANTS P* .
0x0b3374…0b3508 Dummy {f00=0x0030, f01=0x0190, f02=» p ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA 4 , PCONSTA EQU 2 START OF CONFIGURATION DATA f ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG E
0x0b3508…0b369c Dummy {f00=0x0030, f01=0x0190, f02=» ^ ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA 4 ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA b $ PM:REL EQU 16 RELOCATION CONSTANT , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-FILE START ADDRES
0x0b369c…0b3830 Dummy {f00=0x0030, f01=0x0190, f02=»SAVE AREA 1 | $ PCOM02 EQU 42 COMMON SAVE AREA 2 $ PCOM03 EQU 44 COMMON SAVE AREA 3 < * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS d , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 START OF DC CONF.
0x0b3830…0b39c4 Dummy {f00=0x0030, f01=0x0190, f02=» 2 ADDRESS TO SCLASS & PCUTENT EQU 4 FIRST USER TASK ENTRY ( PFWTSIZ EQU 6 FWT AREA SIZE IN WORDS F , PAPCTAB EQU 8 CURRENT APPL CONTROL BLOCK r * PSFASAV EQU 10 SAVE START OF FREE AREA * PNBRTSK EQU 12 NUMBER OF TASKS IN CLASS & PTASKID EQU
0x0b39c4…0b3b58 Dummy {f00=0x0030, f01=0x0190, f02=» 22 TEMP INTTERRUPT TABLE $ PFWTSTA EQU 24 START OF FWT AREA " , PLIMIT EQU 26 CURRENT END OF SYSTEM AREA J ( PNBRCOM EQU 28 NUMBER OF COMMON TDC:S z PCLASID EQU 30 CLASS ID " PCONTYP EQU 32 CONNECTION TYPE ( PLCNBR EQU 34 LINE CONNECTION N
0x0b3b58…0b3cec Dummy {f00=0x0030, f01=0x0190, f02=» EQU 44 WORK AREA 2 PWRK3 EQU 46 WORK AREA 3 PWRK4 EQU 48 WORK AREA 4 < " PBRDTAB EQU 50 BOARD CONF TABLE , PLCDSTA EQU 52 CONFIGURATION DATA POINTER 2 PNBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES 4 PNBRTDC EQU 56 NUMBER OF TERMINAL
0x0b3cec…0b3e80 Dummy {f00=0x0030, f01=0x0190, f02=» r * PNUMDTE EQU 64 NUMBER OF DTE:S DEFINED & PDTENAM EQU 66 SDTE IDENTIFICATION 6 $ PDTETYP EQU 68 TYPE OF CONNECTION ` 4 PNASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA * PNALNG EQU 72 LENGTH OF NETWORK ADDRESS , PDTENSA EQU 74 NO OF SUBADD
0x0b3e80…0b4014 (1, 227) Dummy {f00=0x0030, f01=0x0190, f02=» APCTAB CURRENT APPLICATION CONTROL BLOCK 4 PSCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK 2 2 PEXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK j , PNBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS . PSWBBLK EQU FWTFLG START OF SWB CONF. DATA * PSWBNAM
0x0b4014…0b41a8 Dummy {f00=0x0030, f01=0x0190, f02=»ASKID NUMBER OF SWB:S P EJECT P* , 0 P* DISPLACEMENT IN APPLICATION CONTROL TABLE 6 P* j 0 PAPLREL EQU 18 APPLICATION RELOCATION BASE =6 t , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS * PAPLLAC EQU 14 APPLICATION LOAD ADDRESS & PAP
0x0b41a8…0b433c Dummy {f00=0x0030, f01=0x0190, f02=»MP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT ( . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU Z " PAPLSWB EQU 2 SWB TABLE ADDRESS , PAPLSTA EQU 16 APPL PROGRAM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE 8 P
0x0b433c…0b44d0 Dummy {f00=0x0030, f01=0x0190, f02=»* P* CONSTANTS P* * PS:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS ( PSWBLEN EQU 4 LENGTH OF SWB V ( PSWBSEC EQU 6 DISPL. TO SECTOR LENGTH x 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME $ PWBLEN EQU -4
0x0b44d0…0b4664 Dummy {f00=0x0030, f01=0x0190, f02=»******************************* P ( P* TASK DEFINITION BLOCK: 4 PTDBBT EQU 0 1A BLOCK TYPE T ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS v , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL
0x0b4664…0b47f8 Dummy {f00=0x0030, f01=0x0190, f02=»DEF r $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 7 LINE CONNECTION 4 ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH V P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON DEVICE DEF. BLOCK: P* PCDBBT EQU 0 1A BLOCK T
0x0b47f8…0b498c Dummy {f00=0x0030, f01=0x0190, f02=»USER WORK BLOCK TYPE DEF. BLOCK P* ( PUDBBT EQU 0 1A BLOCK TYPE 2 , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES T P* ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC E
0x0b498c…0b4b20 Dummy {f00=0x0030, f01=0x0190, f02=»SET t & PTYPOFS EQU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. 6 " PNAOFS EQU 3 START OF NA NUMBER f $ PNSAOFS EQU 4 START OF NSA RECORD & PDTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P**************** P* SO
0x0b4b20…0b4cb4 (1, 228) Dummy {f00=0x0030, f01=0x0190, f02=» EQU /200 NOT USED " PLMP3 EQU /100 MEMORY OVERFLOW , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA @ PLMP5 EQU /40 NOT USED p PLMP6 EQU /20 NOT USED PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED PLMP10
0x0b4cb4…0b4e48 Dummy {f00=0x0030, f01=0x0190, f02=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * J F P* * F P******************************************
0x0b4e48…0b4fdc Dummy {f00=0x0030, f01=0x0190, f02=»LACEMENTS P* $ PMXSBL EQU 6 SEGMENT BLOCK LENGTH " PMXNOX EQU 6 NUMBER OF EXTENTS D * PMX:NOS EQU 8 NUMBER OF SEGMENT TABLES j , PMX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH ( PMX:LEV EQU /0031 MONITOR TASK LEVEL & PMX:LEN EQU 4 MONITOR
0x0b4fdc…0b5170 Dummy {f00=0x0030, f01=0x0190, f02=»:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS , PMX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH ! 4 . PMX:STA EQU 2 MONITOR EXTENT START ADDRESS ! d P EJECT ! P* ! " P* *********** ! " P* * PAGTAB * ! " P*
0x0b5170…0b5304 Dummy {f00=0x0030, f01=0x0190, f02=»DDRESS ! ~ & PPAGSB EQU 6 SEGMENT BLOCK ADDRESS " P EJECT " 8 P* " F & P* ************* " P & P* * SEGTAB * " z & P* ************* " P* " PSEGPB EQU 6 SEGMENT POINTER " " PSEGSB EQU 6
0x0b5304…0b5498 Dummy {f00=0x0030, f01=0x0190, f02=»ES * " p * P* ******************* # P* # < PBUFLEN EQU -4 # F PDEVIND EQU -2 # PDWTLEN EQU 6 # r PTDCDD1 EQU 5 # PTDCDD2 EQU 6 # ( PTDCLCN EQU 10 DISP. TO LINE CON. NBR # $ PSLL0 EQU /3940 SLL A1,0 CONSTANT # 8 PNBRDPS
0x0b5498…0b562c Dummy {f00=0x0030, f01=0x0190, f02=» * # : P* * $ 8 : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * $ v : P* * $ : P* IT IS ENTERED FROM
0x0b562c…0b57c0 Dummy {f00=0x0030, f01=0x0190, f02=» * $ n : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDX * % : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * % Z : P* * % : P*
0x0b57c0…0b5954 (1, 229) Dummy {f00=0x0031, f01=0x0190, f02=»A1,REL+2 RELOCATION ROUTINE ENTRY % ( P AD A1,STKCOM+M:REL RELOCATE ADDRESS & * P CFR A8,A1 & V $ P LDKL A11,SYSLOD START OF SYSLOD & h * P LDKL A2,TCLASS GET ADDRESS TO TCLASS & . P CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? & $ P RF(E) NO:TCL YES:DUMMY
0x0b5954…0b5ae8 Dummy {f00=0x0031, f01=0x0190, f02=»A2,SCLASS GET ADDRESS TO SCLASS & , P CALL CHPTRS RELOCATE POINTERS IN SCLASS ' ( 0 P ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS ' X P RF CLEAR ' P EJECT ' 4 P*********************************************** ' 4 P* CHPTRS - CHANGE POINTERS IN TCLAS
0x0b5ae8…0b5c7c Dummy {f00=0x0031, f01=0x0190, f02=» A11 - SYSLOD START ADDRESS ' ( P* A12 - RELOCATION CONSTANT ( * P* ( V 2 P* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS ( ` P* ( P* WORK REGISTER:A1-A7 ( P* ( P* SUBROUTINES: ( P* ( PCHPTRS EQU * ( P ADR A2,A1
0x0b5c7c…0b5e10 Dummy {f00=0x0031, f01=0x018e, f02=»QU * ( . P SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? ) P RF(Z) CHPT30 NO! ) > P ADK A3,2 NEXT ENTRY ) X $ P LDR* A5,A3 GET POINTER TO CLASS ) t P ADR A5,A12 RELOCATE ) P STR A5,A3 STORE ) $ P LDR* A6,A5 GET LENGTH OF CLASS ) PCHPT20 EQU * )
0x0b5e10…0b5fa4 Dummy {f00=0x0031, f01=0x0190, f02=» ) r P LDR A9,A7 GET DWT-ADDRESS * " P CALL CMPADR COMPARE ADDRESSES * * P RB(G) CHPT20 DWT IN DRIVER! * P P ADR A7,A12 RELOCATE * t * P STR A7,A5 STORE RELOCATED DW-ADDRESS * " P LD A8,SCTOPT GET OPTION WORD * P ANKL A8,1 MMU IN SYSTEM? * P R
0x0b5fa4…0b6138 Dummy {f00=0x0031, f01=0x0190, f02=»EADY RELOCATED? * z P RB(NZ) CHPT20 YES! + P ADR A8,A12 RELOCATE + 4 . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED + P , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS + P RB CHPT20 + PCHPT30 EQU * + P RTN A14 + P EJECT + PCLEAR EQU * +
0x0b6138…0b62cc Dummy {f00=0x0031, f01=0x0190, f02=» + P SUK A1,2 , P CMR A1 , P CWR A1,A2 , * P RB(NE) CLRSYS , < P LDKL A1,CONMON , R P AD A1,STKCOM+M:REL , j P ABR A1 , P EJECT , 6 P************************************************** , 6 P* B:TCT - BUILD TASK CONTROL TABLE
0x0b62cc…0b6460 Dummy {f00=0x0031, f01=0x0190, f02=»* ENTRY: , P* - P* EXIT: - P* - , & P* WORK REGISTERS: A1-A7,A11,A12 - 6 P* - ` P* SUBROUTINES: - j P* - . P* TASK CONTROL TABLE LAYOUT - . P* _________________________ - . P* I L
0x0b6460…0b65f4 (1, 230) Dummy {f00=0x0031, f01=0x018e, f02=» _________________________ - . P* I USER TASKS I . ( . P* __________________________ . Z P* . P EJECT . PB:TCT EQU * . * P LD A12,SCTSFA GET START OF FREE AREA . * P ST A12,SCTTCT STORE ADDRESS TO TC
0x0b65f4…0b6788 Dummy {f00=0x0031, f01=0x0190, f02=» P* AND MONITOR SEGMENT TASKS / P* / ( ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB / 2 P RF(Z) BTCT20 NOT PRESENT! / ^ . P CALL MX:TDB GET FIRST MONITOR EXTENT TDB / 0 PBTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS / P RF(N) BTCT05 NO MORE! / ( P LDR
0x0b6788…0b691c Dummy {f00=0x0031, f01=0x0190, f02=»2 NO MORE! / P LDR* A2,A1 GET TASK ID 0 ( P CALL RESTCT RESERVE ENTRY IN TCTAB 0 2 P RB BTCT04 0 ^ 4 PBTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB 0 p > PBTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES 0 P RF(N) BTCT20 NO MORE! 0 ( P
0x0b691c…0b6ab0 Dummy {f00=0x0031, f01=0x0190, f02=»TCT06 NO MORE 0 P LDR* A2,A1 GET TASK ID 1 $ P CALL RESTCT RESERVE ENTRY TCTAB 1 6 P RB BTCT08 1 ^ P XIF 1 p P EJECT 1 | P* 1 . P* RESERVE ENTRIES IN TCTAB FOR USER TASKS 1 P* 1 PBTCT20 EQU * 1 6 P ST A12,STKEND+CUTENT SAVE CURRENT U
0x0b6ab0…0b6c44 Dummy {f00=0x0031, f01=0x0190, f02=»UK A7,1 MORE APPLICATIONS? 1 P RF(N) BTCT70 NO! 2 " 6 P LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA 2 < * P AD A11,STKCOM+CONSTA RELOCATE POINTER 2 v 2 P ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY 2 P LCR A2,A11 GET BLOCK TYPE 2 ( P CCK A2,'TT'
0x0b6c44…0b6dd8 Dummy {f00=0x0031, f01=0x0190, f02=» EQU * 2 P* 3 0 P* COMPUTE NUMBER OF TASK IN EACH TASK CLASS 3 P* 3 L PBTCT40 EQU * 3 V $ P CALL GETTSK GET NUMBER OF TASKS 3 j PBTCT50 EQU * 3 . P ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB 3 ( P SUK A1,1 MOORE TASKS IN THIS CLASS? 3 P RB(
0x0b6dd8…0b6f6c Dummy {f00=0x0031, f01=0x0190, f02=»60 EQU * 3 , P ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK 4 P RB BTCT30 4 @ P* 4 R 4 P* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB 4 P* 4 0 PBTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA 4 " P SU A12,SCTTCT COMPUTE LENGTH 4 P ST* A12,SCTTCT
0x0b6f6c…0b7100 Dummy {f00=0x0031, f01=0x0190, f02=» * 4 : P* RESTCT - RESERVE ENTRY IN TCTAB * 5 2 : P* =============================== * 5 p : P* * 5 : P* REFERENCED IN: B:TCT
0x0b7100…0b7294 (1, 231) Dummy {f00=0x0031, f01=0x0190, f02=» * 5 h : P* A12 - NEXT FREE ENTRY IN TCTAB * 6 : P* * 6 T : P* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * 6 : P* * 6
0x0b7294…0b7428 Dummy {f00=0x0031, f01=0x0190, f02=»ROUTINES: * 6 : P* * 7 8 : P***************************************************** 7 v PRESTCT EQU * 7 P LDR A3,A12 GET END OF TCTAB 7 PREST10 SUK A3,2 NEXT ENTRY 7
0x0b7428…0b75bc Dummy {f00=0x0031, f01=0x018e, f02=» FREEE ENTRY IN TCTAB 7 PREST20 RTN A14 RETURN 8 , PREST30 CWR* A2,A3 CHECK IF SAME TASK ID 8 < P RB(NE) REST10 NOT THE SAME 8 l " P RB REST20 COINCIDENCE: RETURN 8 P XIF 8 P IFF FM=0 8 P EJECT 8 8 P**************************************
0x0b75bc…0b7750 Dummy {f00=0x0031, f01=0x0190, f02=» 8 Z 8 P* ============================= * 9 8 P* * 9 D 8 P*************************************************** 9 8 P* * 9 8 P* REFERENCED IN
0x0b7750…0b78e4 Dummy {f00=0x0031, f01=0x0190, f02=»-FILES PER TASK * 9 p 8 P* SCTNOF - NUMBER OF GENERAL FM-FILES * : 8 P* SCTFWL - FILE WORK TABLE LENGTH IN * : X 8 P* BYTES * : 8 P* * :
0x0b78e4…0b7a78 Dummy {f00=0x0031, f01=0x0190, f02=» * : 8 P* WORK REGISTERS: A2,A3 * ; 0 8 P* * ; l 8 P* SUBROUTINES: ERROR,MULT * ; 8 P*
0x0b7a78…0b7c0c Dummy {f00=0x0031, f01=0x0190, f02=» ; 8 P* FILE WORK TABLES. * < 8 P* SIZE OF THE AREA RESERVED IS GIVEN BY THE * < D 8 P* FORMULA: A=L*(G+N*T) * < 8 P* WHERE A=AREA SIZE IN BYTES * < 8 P* L=
0x0b7c0c…0b7da0 Dummy {f00=0x0031, f01=0x0190, f02=»S PER TASK * < p 8 P* N=NUMBER OF USER TASKS * = 8 P* * = X 8 P*************************************************** = P EJECT = PB:FWT EQU * = & P LD* A2,SCTTCT GET LEN
0x0b7da0…0b7f34 (1, 232) Dummy {f00=0x0032, f01=0x0190, f02=»ASKS = v 2 P LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK > P CALL MULT MULTIPLY > B 0 P AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES > ^ 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES > , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH > P CALL MULT MULTIPL
0x0b7f34…0b80c8 Dummy {f00=0x0032, f01=0x0190, f02=»IZ SAVE FWT AREA SIZE IN WORDS > ~ ( P LD A2,SCTSFA GET START OF FREE AREA ? & , P ST A2,SCTFWT STORE ADDRESS TO FIRST FWT ? R 0 P ST A2,STKEND+FWTSTA SAVE START OF FWT AREA ? 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA ? . PFWT50 CW A2,STKEND+LIMIT MEMOR
0x0b80c8…0b825c Dummy {f00=0x0032, f01=0x0190, f02=»WT AREA ? | " P ADK A2,2 RESERVE ANOTHER WORD @ $ P SUK A3,1 DECREMENT WORD COUNTER @ 6 * P RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW @ ^ , P ST A2,SCTSFA UPDATE START OF FREE AREA @ P SUK A2,2 @ 0 P ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. @ PFWT70
0x0b825c…0b83f0 Dummy {f00=0x0032, f01=0x0190, f02=»************************************ @ P* A , ( P* NUMBER OF BLOCKS TO BE GENERATED: A 6 ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) A b $ P* WHERE N IS A SYSTEM CONSTANT A $ P* DEFINED AT SYSTEM GENERATION A P* A P* A P* REFERENCED IN: SYSL
0x0b83f0…0b8584 Dummy {f00=0x0032, f01=0x0190, f02=»S - POINTER TO FIRST BLOCK A P* B " $ P* WORK REGISTERS: A1,A2,A7,A12 B , P* B T P* SUBROUTINES: BLKGEN B ^ P* B ~ P EJECT B PMONBLK EQU * B P LDK A1,0 B & P LD A12,SCTSFA START OF FREE AREA B . P ST A12,FREQUE SAVE POINTER TO FIR
0x0b8584…0b8718 Dummy {f00=0x0032, f01=0x0190, f02=» NUMBER OF BLOCKS PER TASK TO GENERATE B P* C . P LD A2,SCTBLK C 8 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA C N PMON:10 EQU * C P SUK A7,2 MOORE TASKS? C P RF(Z) MON:20 NO C P CALL BLKGEN C P RB MON:10 C PMON:20 EQU * C P
0x0b8718…0b88ac Dummy {f00=0x0032, f01=0x0190, f02=» C P CALL BLKGEN D P* D P* GENERATE END BLOCK D & P* D D P STR A1,A12 D N P ST A1,2,A12 D b P ST A1,4,A12 D v P* D F P* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A D 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFF
0x0b88ac…0b8a40 Dummy {f00=0x0032, f01=0x018e, f02=»BUFFER SIZE D 0 P ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE E P ADKL A12,2 E H 0 P ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS E PMON:30 EQU * E P ADKL A12,6 E P E * P ST A12,SCTSFA UPDATE END OF FREE AREA E P RTN A14 E P EJECT E
0x0b8a40…0b8bd4 (1, 233) Dummy {f00=0x0033, f01=0x0190, f02=» E h P* F P* REFERENCED IN: MONBLK F P* F 4 P* ENTRY: A1=0 F > 4 P* A2 - NUMBER OF BLOCKS TO BE GENERATED F V $ P* A12 - NEXT FREE ENTRY F P* F P* EXIT: A1=0 F " P* A12 - NEXT FREE ENTRY F P* F P*
0x0b8bd4…0b8d68 Dummy {f00=0x0033, f01=0x0190, f02=» -------------------- F 0 P* I DATA *+6 I G * 0 P* -------------------- G ^ 0 P* I DATA 0 I G 0 P* -------------------- G 0 P*
0x0b8d68…0b8efc Dummy {f00=0x0033, f01=0x0190, f02=»DR A3,A2 G PBLK:10 EQU * H P RF(Z) BLKEX H & $ P LDK A4,3 NUMBER OF WORDS/BLOCK H : 0 PBLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? H b P RF(NE) BLK:30 NOT YET! H * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW H P CALL ERROR H * PBLK:30 ADKL A12,
0x0b8efc…0b9090 Dummy {f00=0x0033, f01=0x0190, f02=» ST A1,-2,A12 H P SUK A3,1 I P RB BLK:10 I ( PBLKEX EQU * I : P RTN A14 I N P IFF EDM=0 I ^ P EJECT I p H P******************************************************************* I ~ H P*
0x0b9090…0b9224 Dummy {f00=0x0033, f01=0x0190, f02=»========== * I b H P* * J H P* REFERENCED IN: SYSLDM * J j H P* * J H P* ENT
0x0b9224…0b93b8 Dummy {f00=0x0033, f01=0x0190, f02=»* J N H P* EXIT: * K H P* * K V H P* WORK REGISTERS: A4 * K H P*
0x0b93b8…0b954c Dummy {f00=0x0033, f01=0x0190, f02=» * K H P******************************************************************* L B PB:MXTT EQU * L ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB L P RF(Z) BMX99 NOT PRESENT L 0 P LDK A4,2 DISPLACEMENT TO
0x0b954c…0b96e0 Dummy {f00=0x0033, f01=0x0190, f02=» START-ADDRESS TABLE L t " P RF(NZ) BMX05 ALREADY DEFINED M $ P LD A4,SCTSFA START OF FREE AREA M B 0 P ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE M j 4 P LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE M & P ST* A4,SCTMOX STORE IN FIRST WORD M $ P SUK A4,
0x0b96e0…0b9874 (1, 234) Dummy {f00=0x0033, f01=0x0190, f02=»K A3,1 MORE EXTENTS? M P RF(N) BMX03 NO N * P ADK A2,2 ADDRESS NUMBER OF TASK ID:S N 4 ( P LDR* A6,A2 GET NUMBER OF TASK ID:S N b ( P ADR* A4,A2 ADD NUMBER OF TASK ID:S N " PBMX02 SUK A6,1 MORE TASK ID:S? N P RB(N) BMX01 NO N " P ADK A2,2 ADDRES
0x0b9874…0b9a08 Dummy {f00=0x0033, f01=0x0190, f02=»D A4,SCTSFA END OF START-ADDRESS TABLE N , P ST A4,SCTSFA UPDATE START OF FREE AREA O . P LDR A11,A4 GET TABLE END O ^ " P LDR A9,P GET CURRENT LOCATION O " P CALL CMPADR COMPARE ADDRESSES O P RF(NG) BMXS05 OK O * P LDKL A1,LMP3 INDICATE MEMORY OVER
0x0b9a08…0b9b9c Dummy {f00=0x0033, f01=0x0190, f02=» NUMBER OF EXTENTS O x P RF(N) BMX99 NO MORE P * P LD A12,SCTSFA GET START OF FREE AREA P 6 6 P ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK P d 4 P ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK P , P ST A12,SCTSFA UPDATE START OF FREE AREA P " P A
0x0b9b9c…0b9d30 Dummy {f00=0x0033, f01=0x0190, f02=»N) BMX10 NO MORE P P ADK A1,2 NEXT TASK ID Q P CALL MXTTAB Q 6 P RB BMX20 Q J PBMX99 RTN A14 RETURN Q P EJECT Q x H P******************************************************************** Q H P*
0x0b9d30…0b9ec4 Dummy {f00=0x0033, f01=0x0190, f02=»=================== * Q j H P* * R & H P* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * R r H P* A5 - POINTER TO MONITOR EXTENT BLOCK * R H
0x0b9ec4…0ba058 Dummy {f00=0x0033, f01=0x0190, f02=» * R V H P* EXIT: A1 - POINTER TO TASK ID IN MXSTAB * S H P* A5 - POINTER TO MONITOR EXTENT BLOCK * S ^ H P* * S H P* WORK REGISTER:
0x0ba058…0ba1ec Dummy {f00=0x0033, f01=0x0190, f02=» SUBROUTINES: IMXTT,STRMOX,INBIMA * S H P* * T J H P******************************************************************** T P EJECT T PMXTTAB EQU * T , P MSR
0x0ba1ec…0ba380 Dummy {f00=0x0033, f01=0x0190, f02=»GET TASK ID T P CALL STRMOX STORE IN MOXTAB U & P LD A2,MX:STA,A5 GET START ADDRESS U 8 4 P LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 U b , P ST A2,APLSTA,A3 STORE START ADDRESS =6 U P CALL STRMOX STORE IN MOXTAB U " P LDR* A2,A5 GET EXTENT ADD
0x0ba380…0ba514 (1, 235) Dummy {f00=0x0034, f01=0x0190, f02=» U & P ADK A2,12 5 WORDS FOR DEBUGGER =9 V 0 P ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA V 2 : P LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK V f P SUK A2,2 =10 V 8 P ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART V . P ST A2,APLREL,A3 S
0x0ba514…0ba6a8 Dummy {f00=0x0034, f01=0x0190, f02=»A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS V " P LD A2,SCTOPT GET OPTION WORD W 8 P ANK A2,/20 EMM? W ^ P RF(Z) MXTT20 NO W v & P LD A2,MX:LEN,A5 GET EXTENT LENGTH W P ST A2,MAPLEN,A13 SAVE W & P ST A12,TTAB,A13 SAVE TTAB ADDRESS W P CALL IN
0x0ba6a8…0ba83c Dummy {f00=0x0034, f01=0x018e, f02=»*************** W r 2 P* * X 2 P* STRMOX - STORE START ADDRRESS IN MOXTAB * X N 2 P* ======================================= * X 2 P* * X 2 P* REFERENCED IN: MXTTAB
0x0ba83c…0ba9d0 Dummy {f00=0x0034, f01=0x0190, f02=» 2 P* * Y 2 P* EXIT: * Y : 2 P* * Y p 2 P* WORK REGISTERS: * Y 2 P*
0x0ba9d0…0bab64 Dummy {f00=0x0034, f01=0x0190, f02=»*************************** Y ~ PSTRMOX EQU * Z $ & P LD* A3,SCTMOX GET CURRENT LENGTH Z 8 , P AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY Z b " P STR A2,A3 STORE START ADDRESS Z P IM* SCTMOX INCREMENT LENGTH Z P IM* SCTMOX TWICE Z P RTN A14 RETURN Z
0x0bab64…0bacf8 Dummy {f00=0x0034, f01=0x0190, f02=» 8 P* IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK * [ 8 P* ============================================== * [ @ 8 P* * [ | 8 P* REFERENCED IN: MXTTAB * [ 8 P*
0x0bacf8…0bae8c Dummy {f00=0x0034, f01=0x0190, f02=» * [ l 8 P* * 8 P* EXIT: * T 8 P* * 8 P* WORK REGISTERS: A2,A3,A4,A9,A11 * 8 P
0x0bae8c…0bb020 Dummy {f00=0x0034, f01=0x0190, f02=» * 8 P**************************************************** ] , P EJECT ] h PIMXTT EQU * ] v P LDR A2,A12 GET TTAB ENTRY ] * P ADKL A2,TTB:MT GET START OF MMU TABLE ] . P LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT ]
0x0bb020…0bb1b4 (1, 236) Dummy {f00=0x0034, f01=0x0190, f02=» & P LDKL A9,/1000 PHYSICAL PAGE SIZE ^ P SUR A9,A4 SAVE ^ . ( P LD A11,MX:LEN,A5 GET EXTENT LENGTH ^ F 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? ^ r P RF(G) IMX10 NO! ^ & P XRR A11,A11 INDICATE SINGLE ENTRY ^ P RF IMX20 ^ < PIMX10 SUR A11,
0x0bb1b4…0bb348 Dummy {f00=0x0034, f01=0x0190, f02=» ADK A2,2 INCREMENT ENTRY POINTER ^ " P ADKL A11,0 ONE ENTRY ENOUGTH? _ * P RF(Z) IMX99 YES! _ P P RF(NN) IMX30 <32KB _ j $ P SUKL A11,/1000 DECREMENT LENGTH _ P RB IMX20 _ & PIMX30 STR A3,A2 STORE PAGE ADDRESS _ ( P ADKL A3,/400 INCREMENT PAGE A
0x0bb348…0bb4dc Dummy {f00=0x0034, f01=0x0190, f02=» " P LDR A4,A12 GET TTAB ENTRY =6 ` . P ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6 ` * P LDKL A3,/FC00 =6 ` PIMX100 EQU * =6 ` v , P CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6 ` P RF(E) IMX110 NO! =6 ` 0 P STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 `
0x0bb4dc…0bb670 Dummy {f00=0x0034, f01=0x0190, f02=»****************************************** ` < P* * a 2 < P* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS * a r < P* ================================================== * a < P*
0x0bb670…0bb804 Dummy {f00=0x0034, f01=0x0190, f02=» * a r < P* ENTRY: * b " < P* * b b < P* EXIT: * b < P*
0x0bb804…0bb998 Dummy {f00=0x0034, f01=0x018e, f02=» * b b < P* SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT * c < P* * c R < P******************************************************** c P EJECT c PB:MSEG EQU * c 2 P CALL MX:MST FIND FI
0x0bb998…0bbb2c Dummy {f00=0x0034, f01=0x0190, f02=» : P LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE d 6 P CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK d B P DEFINITION BLOCK d | > PBMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES d P RF(N) BMSG99 NO MORE! d < P CM STKEND+SCBTA
0x0bbb2c…0bbcc0 Dummy {f00=0x0034, f01=0x0190, f02=»R OF SEGMENTS d l , P CALL BMSTAB BUILD MONITOR SEGMENT TABLE e . P LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB e F PBMSG20 ADK A1,2 NEXT TASK ID e x , P SUK A7,1 DECREMENT NUMBER OF TASK ID:S e P RB(N) BMSG10 NO MORE! e . P CALL CHKTAD CHECK IF TASK ALR
0x0bbcc0…0bbe54 (1, 237) Dummy {f00=0x0034, f01=0x0190, f02=»CBTAB GET SEGMENT CONTROL BLOCK e 2 P RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED f ( * P LD A12,SCTSFA GET START OF FREE AREA f ^ P LDR A10,A12 SAVE f 6 P ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK f , P ST A12,SCTSFA UPDATE START OF FREE AREA
0x0bbe54…0bbfe8 Dummy {f00=0x0034, f01=0x0190, f02=» < P LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK g 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE g D * P ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES g z 2 P ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES g ( P LDKL A2,/F000 END OF LOGICAL MEMORY g ,
0x0bbfe8…0bc17c Dummy {f00=0x0034, f01=0x0190, f02=» g p P RF(NZ) BMSG40 NO! h & P ADKL A2,/1000 SAVE ONE MMU ENTRY h " : PBMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE h L P SRL A2,12 MMU TABLE ENTRY h $ P LDK A3,16 NUMBER OF MMU ENTRIES h . P SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES h 4 P S
0x0bc17c…0bc310 Dummy {f00=0x0034, f01=0x0190, f02=»DKL A3,TTB:CB DISPL TO END OF MMU TABLE h 4 P ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE i 0 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE i h 0 P ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES i 2 P ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES i ( P
0x0bc310…0bc4a4 Dummy {f00=0x0034, f01=0x0190, f02=»L) BMSG20 NO i * P ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE j P RB BMSG20 j B PBMSG99 RTN A14 RETURN j T P EJECT j r > P********************************************************** j > P* * j > P*
0x0bc4a4…0bc638 Dummy {f00=0x0034, f01=0x0190, f02=» * j > P* REFERENCED IN: B:MSEG * k : > P* * k | > P* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * k > P*
0x0bc638…0bc7cc Dummy {f00=0x0034, f01=0x0190, f02=» - SEGMENT TABLE ADDRESS * k > P* * l 6 > P* WORK REGISTERS: A2,A3,A9,A11 * l x > P* * l > P* SUBROUTIN
0x0bc7cc…0bc960 Dummy {f00=0x0034, f01=0x0190, f02=»****************************************** l P EJECT m 2 PBMSTAB EQU * m @ * P STR A1,A15 SAVE REGISTER A1 ON STACK m T ( P LD A5,SCTSFA GET START OF FREE AREA m * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE m & P STR A2,A5 STORE IN SEGMENT TABLE m * P A
0x0bc960…0bcaf4 (1, 238) Dummy {f00=0x0035, f01=0x0190, f02=»T TABLE m v < P ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS n " P ADK A5,2 SEGMENT TABLE ENTRY n P P LDR A3,A5 SAVE n v P* n P* BUILD SEGMENT BLOCK 0 n P* n ( P LDKL A2,/8400 STATUS FOR SEGMENT 0 n ( P STR A2,A3 STORE IN SEGMEN
0x0bcaf4…0bcc88 Dummy {f00=0x0035, f01=0x0190, f02=»END OF SYSTEM AREA n x * P LDR A11,A3 GET END OF SEGMENT BLOCKS o " P CALL CMPADR COMPARE ADDRESSES o H P RF(NG) BMST25 OK o n * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW o P CALL ERROR o & PBMST25 LDR* A2,A8 GET SEGMENT TYPE o P SRL A2,8 ISOLATE o
0x0bcc88…0bce1c Dummy {f00=0x0035, f01=0x0190, f02=» o z P RF(Z) BMST40 NO! p P* p " * P* DISC PAGING & DISC RESIDENT SEGMENT p , P* p Z ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB p d 0 P LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 p 0 P LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 p $ P LD A10,2,A8 GET
0x0bce1c…0bcfb0 Dummy {f00=0x0035, f01=0x0190, f02=» A1,1 ADD CARRY p P RF(P) BMST30 NOT OVERFLOW q ( P LDKL A1,LMP10 DISC ADDRESS OVERFLOW q : P CALL ERROR q f 4 PBMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT q z 4 P STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 q 6 P ST A2,2,A3 STORE SEGMENT DISC
0x0bcfb0…0bd144 Dummy {f00=0x0035, f01=0x0190, f02=» STATUS FOR DISC RESIDENT SEGMENT q | & P STR A2,A3 STORE IN SEGMENT BLOCK r * ( PBMST50 LD A9,4,A8 GET SEGMENT LENGTH r T 4 P LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH r P CALL CMPADR r . P RF(NL) BMST55 CURRENT SEGMENT NOT GREATER r 6 P ST A9,STK
0x0bd144…0bd2d8 Dummy {f00=0x0035, f01=0x0190, f02=»NTER IN MXSTAB r x 0 P LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS s P SUK A1,1 s J P RB(NZ) BMST20 MORE SEGMENTS s " P ADK A3,8 END OF SEGMENT TABLE s 2 PBMST60 ST A3,SCTSFA UPDATE START OF FREE AREA s $ P LDR* A1,A15 RESTORE REGISTER A1 s P RTN
0x0bd2d8…0bd46c Dummy {f00=0x0035, f01=0x0190, f02=» * s f @ P* CHKTAD - CHECK IF TASK ALREADY DEFINED * t @ P* ====================================== * t ^ @ P* * t @ P* REFERENCED IN: B:MSEG
0x0bd46c…0bd600 Dummy {f00=0x0035, f01=0x0190, f02=» * t n @ P* FOR MONITOR SEGMENT TASK * u " @ P* * u f @ P* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * u @ P* A12 = 0 IF TASK
0x0bd600…0bd794 (1, 239) Dummy {f00=0x0035, f01=0x0190, f02=» * u v @ P* * v * @ P* SUBROUTINES: PSW * v n @ P* * v @ P******************
0x0bd794…0bd928 Dummy {f00=0x0035, f01=0x0190, f02=»TCT END OF TCTAB v . PCHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB w " P CW A2,SCTTCT START OF TCTAB? w J * P RF(E) CHKT30 YES: ALL TASKS CHECKED! w p $ P LDR* A3,A2 GET POINTER TO TTAB w P LD A3,TTB:ID,A3 GET TASK ID w ( P CWR* A3,A1 EQUAL TO CURRENT T
0x0bd928…0bdabc Dummy {f00=0x0035, f01=0x0190, f02=»D w h . PCHKT50 CFI A14,PSW,A13 STORE PSW ON STACK x P RTN A14 x < P EJECT x L H P******************************************************************* x Z H P* * x H P* BMXSTT - BU
0x0bdabc…0bdc50 Dummy {f00=0x0035, f01=0x0190, f02=» * x H P* REFERENCED IN: MXTTAB,B:MSEG * y F H P* * y H P* ENTRY:
0x0bdc50…0bdde4 Dummy {f00=0x0035, f01=0x0190, f02=»SS * y v H P* * z 2 H P* WORK REGISTERS: A2,A9,A10,A11 * z ~ H P*
0x0bdde4…0bdf78 Dummy {f00=0x0035, f01=0x0190, f02=» * z b H P******************************************************************* { PBMXSTT EQU * { j * P LD A12,SCTSFA GET START OF FREE AREA { ~ , P LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH { " P LD A2,SCTOPT GET OPTION WORD { P ANK A
0x0bdf78…0be10c Dummy {f00=0x0035, f01=0x0190, f02=»LUDE LENGTH { | P RF BMXS40 | ( PBMXS20 LD A2,SCTOPT GET OPTION WORD | & P ANK A2,1 MMU OPTION? | R P RF(Z) BMXS30 NO! | p . P SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB | $ P SUKL A10,TTB:MT INCLUDE LENGTH | P RF BMXS40 | ( PBMXS30 LD A2,SCTOP
0x0be10c…0be2a0 Dummy {f00=0x0035, f01=0x0190, f02=»UKL A10,TTB:CB INCLUDE IN LENGTH | 4 PBMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA } ( P LDR A9,A10 SAVE } ` 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA } x " P CALL CMPADR MEMORY OVERFLOW? } P RF(NL) BMXS50 NO! } P LDKL A1,LMP3 } ( P CALL
0x0be2a0…0be434 (1, 240) Dummy {f00=0x003e, f01=0x0190, f02=»D A2,SCTTCT COMPUTE NEXT FREE ENTRY } " P STR A12,A2 STORE TTAB ADDRESS ~ , ( P IM* SCTTCT INCREMENT CURRENT LENGTH ~ R P IM* SCTTCT TWICE ~ ~ P LDR* A2,A1 GET TASK ID ~ $ P ST A2,TTB:ID,A12 STORE IN TTAB ~ * P LDKL A2,MX:LEV GET MONITOR TASK LEVEL ~
0x0be434…0be5c8 Dummy {f00=0x003e, f01=0x0190, f02=»ATUS WORD ~ n : P LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS $ P ST A2,TTB:AP,A12 STORE IN TTAB P P LDK A2,2 x 0 P ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH P RTN A14 RETURN P EJECT B P************************************
0x0be5c8…0be75c Dummy {f00=0x003e, f01=0x0190, f02=»=================== * p B P* * & B P* REFERENCED IN: MX:MST * l B P* * B P* ENTRY: SCTMX
0x0be75c…0be8f0 Dummy {f00=0x003e, f01=0x0190, f02=» - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A5 - POINTER TO NUMBER OF SEGTABS * : B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS *
0x0be8f0…0bea84 Dummy {f00=0x003e, f01=0x0190, f02=» R B P* * B P* SUBROUTINES: * N B P* * B P**********************************************
0x0bea84…0bec18 Dummy {f00=0x003e, f01=0x018e, f02=»99 NOT PRESENT * P LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS P LDR A6,A2 SAVE D & P LDR A1,A7 SAVE ADDRESS TO MXSTAB * P LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS , P ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS P LDR A5,A1 SAVE . PMEB10 ADK A1
0x0bec18…0bedac Dummy {f00=0x003e, f01=0x0190, f02=» B P************************************************************** B P* * J B P* MX:MST - GET FIRST MONITOR SEGMENT TABLE * B P* =======================================
0x0bedac…0bef40 Dummy {f00=0x003e, f01=0x0190, f02=» * b B P* * B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * ^ B P* * B P* EXIT: A1 - POINTER TO FIRS
0x0bef40…0bf0d4 (1, 241) Dummy {f00=0x0040, f01=0x0190, f02=»ONITOR SEGMENT TABLES * v B P* A7 - NUMBER OF MONITOR EXTENTS * , B P* * r B P* WORK REGISTERS: A2 * B P*
0x0bf0d4…0bf268 Dummy {f00=0x0040, f01=0x0190, f02=» * B P************************************************************** @ P EJECT PMX:MST EQU * : P CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK 2 P LDR A2,A7 GET NUMBER OF MONITOR E
0x0bf268…0bf3fc Dummy {f00=0x0040, f01=0x0190, f02=»MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK P RB MST10 0 PMST99 RTN A14 RETURN B P EJECT ^ B P************************************************************* l B P* * B P* MX:TDB - GET
0x0bf3fc…0bf590 Dummy {f00=0x0040, f01=0x0190, f02=» * B P* REFERENCED IN: MX:STD * : B P* * B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB *
0x0bf590…0bf724 Dummy {f00=0x0040, f01=0x0190, f02=» R B P* DEFINITION BLOCK * B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * N B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS
0x0bf724…0bf8b8 Dummy {f00=0x0040, f01=0x0190, f02=» * f B P* * B P* SUBROUTINES: MX:MST * b B P* * B P**************************
0x0bf8b8…0bfa4c Dummy {f00=0x0040, f01=0x018e, f02=»2,A6 GET NUMBER OF SEGMENT TABLES . PTDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS * * P SUK A2,1 DECREMENT NUMBER OF SEGTABS P RF(N) TDB99 NO MORE SEGTABS & P LDR* A3,A5 GET NUMBER OF SEGMENTS 0 PTDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS
0x0bfa4c…0bfbe0 Dummy {f00=0x0040, f01=0x0190, f02=» z P EJECT B P************************************************************** B P* * B P* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK * B P* =============================
0x0bfbe0…0bfd74 (1, 242) Dummy {f00=0x0040, f01=0x0190, f02=» * t B P* * * B P* ENTRY: * p B P* * B P* EXIT: A1
0x0bfd74…0bff08 Dummy {f00=0x0040, f01=0x0190, f02=» A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * > B P* A7 - NUMBER OF MONITOR EXTENTS * B P* *
0x0bff08…0c009c Dummy {f00=0x0040, f01=0x0190, f02=» * V B P* SUBROUTINES: MX:TDB * B P* * R B P************************************************************** P EJECT PMX:STD EQU * 2 P CALL MX
0x0c009c…0c0230 Dummy {f00=0x0040, f01=0x0190, f02=» EXTENTS f P RF(N) STD99 NO MORE EXTENTS . P LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT 4 " PSTD20 ADK A1,2 ADDRESS TASK ID f ( P SUK A3,1 DECREMENT NUMBER OF TASKS P RB(NN) STD20 MORE TASKS P RB STD10 NEXT EXTENT PSTD99 RTN A14 RETU
0x0c0230…0c03c4 Dummy {f00=0x0040, f01=0x0190, f02=»****** x P* P* REFERENCED IN: SYSLDM P* 8 P* ENTRY: B P* T 8 P* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES ^ P* P* WORK REGISERS: A1-A12 P* 8 P* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC
0x0c03c4…0c0558 Dummy {f00=0x0040, f01=0x0190, f02=»ALLOCATION I z * P* I BIT MAP (4 WORDS) I * P* I______________________I F * P* TTB:MT I MMU I t * P* I TABLE I * P* I 16 I * P*
0x0c0558…0c06ec Dummy {f00=0x0040, f01=0x018e, f02=» I______________________I * P* TTB:SP I SEGTAB POINTER I & * P* I______________________I T * P* TTB:SB I SEGM. BLOCK POINTER I * P* I----------------------I * P* TTB:AP I ACB POINTER I
0x0c06ec…0c0880 Dummy {f00=0x0040, f01=0x0190, f02=» h * P* TTB:ID I TASK IDENTIFICATION I * P* ------------------------ 6 * P* TTB:ST I STATUS/LEVEL I d * P* ------------------------ * P* TTB:PP I PENDING QUEUE I * P* ------------
0x0c0880…0c0a14 (1, 243) Dummy {f00=0x006d, f01=0x0190, f02=»TCH ADDRESS I x * P* ------------------------ * P* I REGISTER I D * P* I SAVE I r * P* I AREA I * P* I 14 I * P*
0x0c0a14…0c0ba8 Dummy {f00=0x006d, f01=0x0190, f02=» I SAVE01URATION I * P* I TABLE I $ * P* : : R * P* : : * P* I______________________I 2 P* TASK SAVE01URATION TABLE LAYOU
0x0c0ba8…0c0d3c Dummy {f00=0x006d, f01=0x0190, f02=»---------------------- z 0 P* I INDEX/FILCODE I 0 P* ------------------------------ R 0 P* I DWT-ADDRESS I 0 P* ------------------------------ 0 P* :
0x0c0d3c…0c0ed0 Dummy {f00=0x006d, f01=0x0190, f02=» I INDEX/FILECODE I 0 P* ------------------------------ . 0 P* I DWT-ADDRESS I b 0 P* ------------------------------ P EJECT PB:TT EQU * & P CALL FSTAPL GET FIRST APPLICA
0x0c0ed0…0c1064 Dummy {f00=0x006d, f01=0x0190, f02=» d * P ST P,STKEND+WRK1 SAVE PROGRAM COUNTER : P ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER 6 * P ST P,STKEND+WRK2 SAVE PROGRAM COUNTER t P* ( P* GET NUMBER OF TASKS IN THIS CLASS P* P CALL GETTSK . P ST A1,STKEND+NBRT
0x0c1064…0c11f8 Dummy {f00=0x006d, f01=0x0190, f02=»5,8 MOVE TO LEFT BYTE * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT 2 P ST A5,STKEND+TASKID SAVE TASK ID START VALUE L P* " P* CHECK IF CREDIT APPLICATION P* 6 P LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK * P LD A5,APLTYP,A5 G
0x0c11f8…0c138c Dummy {f00=0x006d, f01=0x0190, f02=»ATCH VALUE z P* , P LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL P SLL A5,8 MOVE TO LEFT BYTE L . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL p $ P CALL GETTCL GET TCL START VALUE P ST A5,STKEND+TCLSAV SAVE PBTT21 EQU * P EJECT
0x0c138c…0c1520 Dummy {f00=0x006d, f01=0x018e, f02=» 0 P LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL " P CALL CONVRT CONVERT TO BINARY 8 P ST A1,STKEND+TSKLEV SAVE ^ P EJECT P* B P* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE P* & P LDKL A10,TTB:TD+4 STANDARD LENG
0x0c1520…0c16b4 (1, 244) Dummy {f00=0x006d, f01=0x018e, f02=» P RF(NZ) BTT22 NO! 0 P SUKL A10,TTB:AM+2 INCLUDE BIT MAP IN LENGTH . P SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP R P RF BTT30 PBTT22 LD A5,SCTOPT P SRC A5,1 MMU PAGING? P RF(NN) BTT25 NO . P SUKL A10,TTB:MT+2 16+2 WORD EXTRA
0x0c16b4…0c1848 Dummy {f00=0x006d, f01=0x0190, f02=» P RF(NN) BTT30 NO! 6 P SUKL A10,TTB:CB+2 FOUR WORD EXTRA IF DISC PAGING 0 P SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD X PBTT30 EQU * P EJECT P* < P* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART " P* OF TASK CONFI
0x0c1848…0c19dc Dummy {f00=0x006d, f01=0x0190, f02=»FST TERMINAL DEVICE CLASS DEFINITION $ P CALL GETTDC GET NUMBER OF TDC:S , P LDR A7,A1 SAVE T PBTT35 EQU * l P RF(Z) BTT40 ( P CALL GETCLN GET CLASS NUMBER (1-99) & P ADR A1,A1 2*(BINARY CLASS NUMBER) , P LD A8,STKEND+TCLA GET POINTER
0x0c19dc…0c1b70 Dummy {f00=0x006d, f01=0x018e, f02=»TE FORMAT ERROR ~ PBTT37 EQU * " P ADR A8,A1 GET ENTRY IN TCLASS , $ P LDR* A8,A8 GET POINTER TO CLASS R $ P LDR* A8,A8 GET LENGTH OF CLASS z " P SUKL A8,2 EXCLUDE LENGTH WORD ( P ADR A10,A8 ADD TO TOTAL TTAB LENGTH . P ADR A6,A8 ADD TO TA
0x0c1b70…0c1d04 Dummy {f00=0x006d, f01=0x0190, f02=» PBTT40 EQU * P* > P* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF & P* TASK CONFIGURATION TABLE h P* 6 P CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES P ADKL A9,2 FIRST SDC RECORD P LDR A7,A1 SAVE
0x0c1d04…0c1e98 Dummy {f00=0x006d, f01=0x0190, f02=»R) p , P LD A8,STKEND+SCLA GET POINTER TO SCLASS P LDR* A2,A8 : P SUK A2,2 N P CWR A1,A2 ` P RF(NG) BTT52 r P LDKL A1,LMP4 & P CALL ERROR INDICATE FORMAT ERROR PBTT52 EQU * " P ADR A8,A1 GET ENTRY IN SCLASS $ P LDR*
0x0c1e98…0c202c Dummy {f00=0x006d, f01=0x0190, f02=» TTAB LENGTH x . P ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH P ADKL A9,SDC NEXT CLASS F ( P SUK A7,1 DECREMENT NUMBER OF SDC:S f P RB BTT50 PBTT55 EQU * P IFF EDM=0 & P ADKL A10,14 7 EXTRA WORDS FOR EDM P XIF " P ADK A6,
0x0c202c…0c21c0 Dummy {f00=0x006d, f01=0x0190, f02=»LASS ^ PBTT60 EQU * P RF(Z) BTT70 P ST A9,STKEND+WRK3 SAVE A9 4 P ST A11,STKEND+WRK4 SAVE A11 V P LDR A9,A10 GET TTAB LENGTH z 4 P AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 P ST A9,STKEND+SFASAV =2 0 P LD A11,STKEND+LIM
0x0c21c0…0c2354 (1, 245) Dummy {f00=0x006d, f01=0x0190, f02=»ORY OVERFLOW v P CALL ERROR & PBTT61 LD A9,STKEND+WRK3 RESTORE A9 ( $ P LD A11,STKEND+WRK4 RESTORE A11 R P* z 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB P* P ST A6,TTB:TD,A12 P* : P* STORE TASK LEVEL IN RIG
0x0c2354…0c24e8 Dummy {f00=0x006d, f01=0x0190, f02=» < P* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD P* D & P SLL A5,10 MOVE LEVEL TO LEFT BYTE N P ORKL A5,/00C0 x " P LD A2,SCTOPT GET OPTION WORD P ANK A2,1 MMU OPTION? P ORR A5,A2 SET BIT 15 IF MMU $ P ST A5,TTB:PW,A12
0x0c24e8…0c267c Dummy {f00=0x006d, f01=0x0190, f02=» IN TTAB t P* * PBTT62 LD A5,STKEND+TASKID GET TASK ID $ P ST A5,TTB:ID,A12 STORE IN TTAB H P ADK A5,1 INCREMENT TASK ID p 8 P ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS 0 P LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK , P ST
0x0c267c…0c2810 Dummy {f00=0x006d, f01=0x0190, f02=»* ( P* STORE TASK CLASS TO MATCH IN TTAB P* 6 , P LD A5,STKEND+TCLSAV GET TCL START VALUE @ " P ST A5,TTB:PP,A12 SAVE IN TTAB p P ADK A5,1 INCREMENT TCL P ST A5,STKEND+TCLSAV SAVE PBTT65 EQU * , P STR A12,A7 SAVE TTAB ADDRES
0x0c2810…0c29a4 Dummy {f00=0x006d, f01=0x0190, f02=»AB ENTRY IN THIS TASK CLASS | 6 P SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS $ P RB BTT60 ^ P EJECT p PBTT70 EQU * ~ P* * P* RESET POINTER TO START OF FREE AREA P* P LD A12,STKEND+SFASAV PBTT90 EQU * P C
0x0c29a4…0c2b38 Dummy {f00=0x006d, f01=0x018e, f02=»* " P CALL NXTAPL NEXT APPLICATION P RF(Z) BTT98 0 P LD P,STKEND+WRK1 D 0 PBTT98 ST A12,SCTSFA SAVE START OF FREE AREA ^ P SU A7,SCTTCT COMPUTE LENGTH P ST* A7,SCTTCT STORE P RTN A14 RETURN P IFF SWPBLK=0 P EJECT
0x0c2b38…0c2ccc Dummy {f00=0x006d, f01=0x0190, f02=» p P RF(Z) BSWT42 NO 0 P CM STKCOM+APPLNO RESET APPLICATION COUNTER , P ST P,STKEND+LIMIT SAVE LOCATION COUNTER T 0 PBSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT , P CALL GETAPP GET NEXT CREDIT APPLICATION & P RF(Z) BSWT42 NO MORE APPLICATIO
0x0c2ccc…0c2e60 Dummy {f00=0x006d, f01=0x0190, f02=»EARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE P* : & PBSWT10 CALL NXTBLK GET NEXT BLOCK D ( P CCK A2,'TT' TASK DEFINITION BLOCK? n P RB(E) BSWT10 YES! 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? P RF(NE) BSWT20 NO! P ADKL
0x0c2e60…0c2ff4 (1, 246) Dummy {f00=0x006e, f01=0x0190, f02=»L A11,1 NUMBER OF TYPES P LDR A6,A11 & P CALL GETNUM NUMBER OF UWB RECORDS 4 P LDR A1,A5 SAVE ^ $ P RF(Z) SWBERR ILLEGAL NUMBER!!! v ( P ADKL A11,UDBFST-1 FIRST UWB RECORD ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD $ P SUK A1,1 DECR. NU
0x0c2ff4…0c3188 Dummy {f00=0x006e, f01=0x0190, f02=»TION BLOCK n P RF(E) BSWT44 YES! ( P LDKL A1,0 NO SWB DEFINITION BLOCK! , ( P ST A1,APLSWB,A10 CLEAR SWB POINTER X : P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 & PBSWT42 CALL POB RESTORE REGISTERS P RTN A14 & PBSWT44 ADKL
0x0c3188…0c331c Dummy {f00=0x006e, f01=0x018e, f02=»DR A5,A5 ZERO? $ P RF(Z) SWBERR ILLEGAL NUMBER!!! 0 P ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS > P ST A5,STKEND+WRK1 SAVE r . P LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP P RF(NZ) BSWT48 FILE CREATED " PSWBERR LDKL A1,LMP6 SWB ERROR!
0x0c331c…0c34b0 Dummy {f00=0x006e, f01=0x018e, f02=» P ADKL A12,2 FIRST POINTER P LDR A10,A12 SAVE & $ PBSWT50 ADKL A10,2 BYPASS POINTER @ ( P SUK A5,1 DECREMENT NUMBER OF TYPES h P RB(P) BSWT50 P* & P* GET ADDRESS TO S:BTAB PROTOTYPE P* , P LD A2,STKEND+APCSTA GET ADDRESS
0x0c34b0…0c3644 Dummy {f00=0x006e, f01=0x0190, f02=» j $ P CALL GETCON GET P:MTAB ADDRESS P LDR A2,A1 SAVE 0 , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS H $ P CALL GETCON GET S:BTAB ADDRESS x * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB * P RB(Z) SWBERR NO SWB:S IN APPLICATION! P ADK A1,2 AD
0x0c3644…0c37d8 Dummy {f00=0x006e, f01=0x0190, f02=»ROT. S:BTAB t P LDR A4,A1 SAVE P* , 2 P* CHECK IF ENOUGTH MEMORY IN FIRST PARTITION 6 P* l P XRR A2,A2 RESET COUNTER v $ PBSWT52 SUK A1,6 DECREMENT LENGTH $ P RF(N) BSWT55 NO MORE SWB-BLOCKS " P ADK A2,1 INCR. BLOCK COUNTER
0x0c37d8…0c396c Dummy {f00=0x006e, f01=0x0190, f02=»1,STKEND+LIMIT GET CURRENT LIMIT " P CALL CMPADR MEMORY OVERFLOW? ( P RF(NL) BSWT57 NO! N * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW h P CALL ERROR $ PBSWT57 SUK A4,2 SKIP LENGTH WORD " P LDKL A9,0 RESET BLOCK COUNTER , PBSWT60 STR A10,A
0x0c396c…0c3b00 Dummy {f00=0x006e, f01=0x0190, f02=» NUMBER OF SWB RECORDS | 4 PBSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. $ P CALL GETCON GET TWO FIRST CHAR. V ( P ADKL A11,NAMUWB NAME IN CONF. FILE ~ P LCR A3,A11 GET FIRST CHAR. P SLL A3,8 MOVE TO LEFT BYTE " P LC A3,1,A11 GET SECON
0x0c3b00…0c3c94 (1, 247) Dummy {f00=0x006e, f01=0x0190, f02=»ET THIRD CHAR. P SRL A1,8 ISOLATE CHAR. 0 P LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE 6 P ANK A3,/FF ISOLATE CHAR. j " P CWR A1,A3 THIRD CHAR. EQUAL? P RF(E) BSWT75 YES! $ PBSWT70 ADKL A11,NAMUWB SKIP NAME ( P SUK A7,1 DECREMENT
0x0c3c94…0c3e28 Dummy {f00=0x006e, f01=0x018e, f02=»OCK J P* P STR A7,A10 1:ST WORD P ST A7,2,A10 2:ND WORD 4 P ST A7,4,A10 3:RD WORD R P ST A7,6,A10 4:TH WORD p P RF BSWT95 PBSWT75 EQU * P* P* MATCHING NAME FOUND P* . P LD A3,STKEND+WRK1 GET NUMBER OF S
0x0c3e28…0c3fbc Dummy {f00=0x006e, f01=0x0190, f02=» P LDR A3,A2 SAVE POINTER & P CALL GETNUM GET NUMBER OF COPIES $ , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE N > P OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE ~ " P STR A5,A10 STORE IN SWB BLOCK , P SRL A5,8 NUMBER OF COPIES TO RIGH
0x0c3fbc…0c4150 Dummy {f00=0x006e, f01=0x0190, f02=»2,UPNAME PROTOTYPE ADDRESS & P CALL GETCON GET PROTOTYPE ADDRESS " P LDR A2,A1 SAVE L & P SUK A2,UPNAME LENGTH OF WORKBLOCK d P CALL GETCON * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB 0 PBSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK " P LDK
0x0c4150…0c42e4 Dummy {f00=0x006e, f01=0x0190, f02=» IM STKCOM+SWBFSA+2 P CM STKCOM+SWBFSA PBSWT90 EQU * 6 & P ADK A1,1 INCREMENT SECTOR COUNTER J " P SUKL A3,256 DECREMENT LENGTH t P RB(P) BSWT86 MOORE SECTORS? P SUK A5,1 MOORE COPIES? P RB(P) BSWT85 YES! * P ST A1,SWBSEC,A1
0x0c42e4…0c4478 Dummy {f00=0x006e, f01=0x0190, f02=» z ( P RF(G) BSWT98 $SWAP-FILE TOO SMALL! P RF(L) BSWT95 4 P LD A8,STKCOM+SWBFSA J P CW A8,STKCOM+SWBFSE f ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! * PBSWT95 ADKL A10,8 START OF NEXT BLOCK P ADKL A12,2 NEXT POINTER & P ADKL A9,1 I
0x0c4478…0c460c Dummy {f00=0x006e, f01=0x0190, f02=» P ST A2,STKEND+SWBNAM SAVE 4 P LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB & P SUK A4,UP:REC DECREMENT ^ P RB(P) BSWT60 MOORE TYPES ~ . P LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED? P RF(Z) BSWT98 NO! . P LD A8,STKEND+WRK1 ALL SWB T
0x0c460c…0c47a0 Dummy {f00=0x006e, f01=0x0190, f02=»START OF FREE AREA t 2 P LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS * P ST* A9,APLSWB,A10 NUMBER OF SWB TYPES P 6 P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION ~ P XIF P IFF MMUPAG+DSKPAG=0 P EJECT 8 P**************************
0x0c47a0…0c4934 (1, 248) Dummy {f00=0x006e, f01=0x0190, f02=» * f 8 P* ============================= * 8 P* * N 8 P* REFERENCED IN: SYSLDM * 8 P* * 8 P* ENT
0x0c4934…0c4ac8 Dummy {f00=0x006e, f01=0x0190, f02=» * z 8 P* * & 8 P* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * b 8 P* CONTENTS ARE SAVED ON STACK * 8 P* AND RESTORED BEFORE EXIT)
0x0c4ac8…0c4c5c Dummy {f00=0x006e, f01=0x0190, f02=» FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * 8 P* RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * : 8 P* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * v 8 P* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * 8 P* WORD IN THE NEXT SEGMEN
0x0c4c5c…0c4df0 Dummy {f00=0x006e, f01=0x0190, f02=»EGMENT * f 8 P* TABLE PER APPLICATION IS GENERATED. STATUS, * 8 P* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * N 8 P* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * 8 P* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * 8 P* TAS
0x0c4df0…0c4f84 Dummy {f00=0x006e, f01=0x0190, f02=»***************************** z P EJECT & PB:STAB EQU * 4 $ P CALL PUSH SAVE A1-A14 ON STACK H & P CALL FSTAPL GET FIRST APPLICATION p " P LDR A9,P GET LIMIT FOR WRITE < PBST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB . P CALL NX
0x0c4f84…0c5118 Dummy {f00=0x006e, f01=0x0190, f02=»D OF TCTAB P RF BST040 4 PBST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES $ $ PBST040 ST A2,STKEND+TCTEND SAVE P LDR A8,P 8 PBST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS 2 P LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE ( P
0x0c5118…0c52ac Dummy {f00=0x006e, f01=0x0190, f02=»Y j P CWK A5,'BA' BASIC? P RF(NE) BST050 NO & P SUR A2,A8 2*NUMBER OF TASKS @ P SRL A2,1 NUMBER OF TASKS d P ST A2,STKEND+WRK1 SAVE P ST A2,APLNPE,A10 SAVE . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK P SLL A3,3 MULTIPLY
0x0c52ac…0c5440 Dummy {f00=0x006e, f01=0x0190, f02=» P RF BST090 P EJECT ( PBST050 LD A2,SCTOPT GET OPTION WORD $ P ANK A2,1 MMU? P P RF(Z) BST070 NO f P LDR* A7,A8 GET TTAB ADDRESS ~ P TL TTB:MT,A7 LOAD MMU TABLE * PBST070 LD A2,APLLAC,A10 ADDRESS S:GTAB * P ADK A2,10 ADDRESS N
0x0c5440…0c55d4 (1, 249) Dummy {f00=0x006e, f01=0x0190, f02=» BY 8 ~ $ P ADK A3,12 INCLUDE 6 FIRST WORDS 0 PBST090 LD A12,SCTSFA GET START OF FREE AREA 6 ( P LDR A2,A11 SAVE CONF. DATA POINTER j P LDR A11,A12 SAVE * P ADR A11,A3 END OF SEGMENT TABLE AREA " P CALL CMPADR MEMORY OVERFLOW? P RF(
0x0c55d4…0c5768 Dummy {f00=0x006e, f01=0x0190, f02=» ` * P LDR A11,A2 RESTORE CONF. DATA POINTER P CWK A5,'BA' BASIC? 6 P RF(NE) BST200 NO R * P LD A2,STKEND+WRK1 GET NUMBER OF TASKS l . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK 0 P ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK P CALL MU
0x0c5768…0c58fc Dummy {f00=0x006e, f01=0x0190, f02=»APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL P EJECT 6 P* D P* CLEAR SEGMENT TABLE AREA N P* r 0 P LD A2,SCTSFA GET END OF SEGMENT TABLE AREA | & PBST110 SUK A2,2 DECREMENT POINTER P CMR A2 CLEAR , P CWR A2,A12 START OF SEG
0x0c58fc…0c5a90 Dummy {f00=0x006e, f01=0x0190, f02=»LE AREA? p P RF(E) BST400 YES 2 P ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE * 2 P ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE ` , P ADR A12,A4 START OF NEXT SEGMENT TABLE P LDR A2,A12 SAVE P RB BST120 0 PBST200 ST A6,2,A12 STORE
0x0c5a90…0c5c24 Dummy {f00=0x006e, f01=0x018e, f02=»A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE P STR A3,A12 STORE 0 ( P ADKL A12,4 ADDRESS SEGMENT BLOCK 0 J P LDR A4,A12 SAVE v . PBST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 " P STR A2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:G
0x0c5c24…0c5db8 Dummy {f00=0x006e, f01=0x0190, f02=» x " P ST A1,2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:GTAB . * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( PBST220 ADKL A12,8 NEXT SEGMENT BLOCK P SUK A6,1 ANY MORE SEGMENTS? P RF(N) BST300 NO P LDK A7,0 INIT STATUS
0x0c5db8…0c5f4c Dummy {f00=0x006e, f01=0x0190, f02=» $ P ANK A3,/FF ISOLATE DISC ADDRESS " P SRL A1,8 ISOLATE SEGMENT TYPE , ( P CCK A1,'RR' CORE RESIDENT SEGMENT? R P RF(E) BST230 YES ~ " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(NZ) BST240 YES " P XRR A3,A3 CLEAR D
0x0c5f4c…0c60e0 Dummy {f00=0x006e, f01=0x0190, f02=»BST270 : PBST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED * PBST240 ADK A2,2 DISC ADDRESS BIT 8-23 L * P CALL GETCON GET SEGMENT DISC ADDRESS z 0 P AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. P RF(O) BST250 CARRY P RF BST260 *
0x0c60e0…0c6274 (1, 250) Dummy {f00=0x006f, f01=0x018e, f02=»1 OF D. A. j . P CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? P RF(NG) BST270 NO! D ( P LDKL A1,LMP10 INDICATE DEVICE ERROR ^ P CALL ERROR 2 PBST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS P STR A7,A12 STORE , P ST A1,2,A12 STORE DISC AD
0x0c6274…0c6408 Dummy {f00=0x006f, f01=0x0190, f02=» & P CM 6,A12 CLEAR PAGEBLOCK POINTER P RB BST220 . 0 PBST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY? @ P RF(E) BST400 YES t P LDR* A2,A8 GET TTAB ADDRESS 0 P ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER * P ADKL A8,2 INCREMENT POINTER IN TC
0x0c6408…0c659c Dummy {f00=0x006f, f01=0x0190, f02=» A9 NEXT APPLICATION PBST410 EQU * P CALL POB RESTORE REGISTERS 0 P RTN A14 RETURN T P XIF l P IFF SPDVCL+TEDVCL=0 x P EJECT L P************************************************************************ J P* B:DWTS - BUILD DWT:
0x0c659c…0c6730 Dummy {f00=0x006f, f01=0x0190, f02=»* P* REFERENCED IN: MONCON P* * , P* ENTRY: SCTSFA - START OF FREE ARE (X) 4 2 P* CONSTA - START OF CONFIGURATION DATA d ( P* SCTEFA - END OF FREE AREA P* P* EXIT: P* P* WORK REGISTERS: A1-A12
0x0c6730…0c68c4 Dummy {f00=0x006f, f01=0x0190, f02=»ET START OF CONFIGURATION FILE P* & & P LD A12,SCTSFA START OF FREE AREA 0 P* Z 6 P* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK d P* & P CALL FSTAPL GET FIRST APPLICATION 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA , P S
0x0c68c4…0c6a58 Dummy {f00=0x006f, f01=0x0190, f02=» ENTRY j P SUK A7,2 P EJECT PDWTS10 EQU * . P* B . P* GET NUMBER OF TASKS IN THIS TASK CLASS L P* ~ P CALL GETTSK PDWTS20 EQU * P ST A1,STKEND+NBRTSK SAVE P* * P* GET CORRESPONDING TASK TABLE (TTAB)
0x0c6a58…0c6bec Dummy {f00=0x006f, f01=0x0190, f02=»CE TABLE ENTRY t P* 0 P* INIT SUB-POINTER IN TASK DEFINITION BLOCK P* T . P LDR A9,A11 START OF TASK DEFINITION BLOCK ^ , P ADKL A9,TDBFST START OF TDC DEFINITION P EJECT P* 4 P* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS
0x0c6bec…0c6d80 Dummy {f00=0x006f, f01=0x018e, f02=»1,A1 , P LD A8,STKEND+TCLA GET POINTER TO TCLASS P ADR A8,A1 GET CLASS ENTRY < $ P LDR* A8,A8 GET POINTER TO CLASS ^ $ P LDR* A8,A8 GET LENGTH OF CLASS " P SUKL A8,2 EXCLUDE LENGTH WORD * P ADR A10,A8 INCREMENT POINTER IN TTAB 0 P ADKL
0x0c6d80…0c6f14 (1, 251) Dummy {f00=0x006f, f01=0x0190, f02=» , P* GET NUMBER OF SPECIAL DEVICE CLASSES P* 4 P CALL GETSDC > P ADKL A9,SDCFST-CDBNC R P LDR A1,A1 p PDWTS50 EQU * P RF(Z) DWTS90 P ST A1,STKEND+NBRSDC SAVE P* & P* GET SPECIAL DEVICE CLASS NUMBER P*
0x0c6f14…0c70a8 Dummy {f00=0x006f, f01=0x0190, f02=»SCLA POINTER TO SCLASS P ADR A6,A1 SELECT ENTRY $ P LDR* A6,A6 GET POINTER TO CLASS > P LDR A5,A6 SAVE f P LDR* A6,A6 GET LENGTH ~ " P SUK A6,2 EXCLUDE LENGTH WORD PDWTS60 EQU * P ADK A5,4 GET DEVICE ( P LDR* A1,A5 GET ADDRES
0x0c70a8…0c723c Dummy {f00=0x006f, f01=0x0190, f02=»2,A12 TO-ADDRESS , P ADR A12,A3 UPDATE POINTER TO FREE AREA P CALL CHKMOV COPY DWT H P EJECT f P* t 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM ~ P* " P LD A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? P R
0x0c723c…0c73d0 Dummy {f00=0x006f, f01=0x0190, f02=»ONITOR ECB-ADDRESS z P SUR A4,A3 RELOCATE $ P ANKL A4,/FFFE MAKE EVEN ADDRESS 6 " P ST A4,DWTMEC,A2 STORE IT BACK ^ PDWTS65 EQU * $ P LDR A1,A2 DT-ADDRESS TO BE USED PDWTS70 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB
0x0c73d0…0c7564 Dummy {f00=0x006f, f01=0x0190, f02=»0,4 UPDATE TASK CONFIGURATION POINTER PDWTS80 EQU * . * P SUK A6,4 DECREMENT NUMBER OF DEVICES B P RB(P) DWTS60 NEXT DEVICE p P EJECT P* 4 P* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS P* P ADKL A9,SDC P LD A1
0x0c7564…0c76f8 Dummy {f00=0x006f, f01=0x0190, f02=»ION ` P* P LD A1,STKEND+NBRTSK P SUK A1,1 2 P RB(P) DWTS20 D P* Z , P* CHECK IF MOORE TASK DEFINITION BLOCKS d P* P CALL NXTBLK ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) DWTS10 YES & P CALL NXTAPL GET
0x0c76f8…0c788c Dummy {f00=0x006f, f01=0x018e, f02=»R ECHO DEVICE p & P* AND TEMPORARY INTERRUPT TABLES P* @ & P LDR A1,P GET LOCATION COUNTER =4 J 0 PDWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 t P CMR A1 CLEAR MEMORY AREA =4 ( P CW A1,SCTSFA ALL WORDS CLEARED? =4 P RB(NE) DWTS95 N
0x0c788c…0c7a20 Dummy {f00=0x006f, f01=0x0190, f02=» ^ 4 P* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * 4 P************************************************ @ 4 P************************************************ x P* P* REFERENCED IN: MONCON P* P* ENTRY: P* P* EXIT:
0x0c7a20…0c7bb4 (1, 252) Dummy {f00=0x006f, f01=0x0190, f02=» P EJECT PB:DWTT EQU * $ P CM STKEND+FWTFLG CLEAR FWT FLAG * $ P LD A1,SCTFWT START OF FWT AREA R $ P RF(NZ) BDWT15 FWT AREA RESERVED z P LD A1,STKEND+LIMIT 8 P ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA P IM STKEND+FWT
0x0c7bb4…0c7d48 Dummy {f00=0x006f, f01=0x018e, f02=»IRST APPLICATION ~ * P LD A12,SCTSFA GET START OF FREE AREA P* F B P* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY P P* . P LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY : P ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY
0x0c7d48…0c7edc Dummy {f00=0x006f, f01=0x0190, f02=» PBDWT50 EQU * * P ST A1,STKEND+NBRTSK SAVE BINARY VALUE P* F @ P* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS P P* P CALL GETTDC P* $ P* CHECK IF TASK WITHOUT DEVICES P* $ P LDR A1,A1 ANY TERMINAL DE
0x0c7edc…0c8070 Dummy {f00=0x006f, f01=0x0190, f02=»ESS l 6 P ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE P* F ( P* GET TERMINAL DEVICE CLASS NUMBER P P* | . P LDR A9,A11 START OF TASK DEFINITION BLOCK 4 P ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION PBDWT55 EQU * " P CAL
0x0c8070…0c8204 Dummy {f00=0x006f, f01=0x0190, f02=» TCLASS b P* 6 P LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID P ADR A2,A2 2*ID T ( P LD A7,STKEND+TCLA POINTER TO TCLASS l P ADR A7,A2 GET ENTRY $ P LDR* A7,A7 GET POINTER TO CLASS P* @ P* GET LINE CONNECTION NUMBER FOR
0x0c8204…0c8398 Dummy {f00=0x006f, f01=0x0190, f02=»RY VALUE | , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P CCK A4,'AA' ASCU4Z CONNECTION? @ P RF(NE) BDWT58 NO! h . P LDR* A8,A7 YES! GET LENGTH OF THIS CLASS $ P SUKL A8,2 EXCLUSIVE LENGTH WORD P CWK A8,4 ONE DEVICE? P RF(NE) BDWT57
0x0c8398…0c852c Dummy {f00=0x006f, f01=0x018e, f02=»YES! PBDWT57 EQU * . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER PBDWT58 EQU * R . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER f 4 P CALL BINASC CONVERT INCREMENTED VALUE TO ASCII ( P SC A1,TDC+5,A9 STORE ASCII DIGIT =2 & P SRL A1,8 MO
0x0c852c…0c86c0 Dummy {f00=0x006f, f01=0x0190, f02=» P* $ P* GENERATE DWT:S FOR THIS CLASS 2 P* A6 - LINE CONNECTION NUMBER (BINARY VALUE) 6 , P* A7 - POINTER TO TERMINAL DEVICE CLASS l P* . P* THE ENTRY IN TEMPORARY INTERRUPT TABLE . P* IS DERIVED FROM LINE CONNECTION NUMBER, :
0x0c86c0…0c8854 (1, 253) Dummy {f00=0x006f, f01=0x0190, f02=»ET NUMBER OF TERMINAL DEVICE CLASSES z , P SUK A1,1 ANY MOORE IN THIS TASK CLASS? , P RF(Z) BDW100 NO . P ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER t $ P ADKL A9,TDC+TLC NEXT TDC RECORD P RB BDWT55 PBDW100 EQU * " P CALL ECHO INIT ECHO
0x0c8854…0c89e8 Dummy {f00=0x006f, f01=0x0190, f02=» SAVE | : P LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS " P SUK A1,1 ANY MOORE TASKS LEFT L P RB(P) BDWT50 YES r , P* CHECK IF MOORE TASK DEFINITION BLOCKS P* $ P CALL NXTBLK SKIP TO NEXT BLOCK ( P CCK A2,'TT' TASK DEFINITI
0x0c89e8…0c8b7c Dummy {f00=0x006f, f01=0x0190, f02=» UPDATE START OF FREE AREA P RTN A14 RETURN " P XIF : P EJECT F , P**************************************** V , P* B:CDT - BUILD COMMON DEVICE TABLE * , P**************************************** P* P* REFERENCED IN: SYSLD
0x0c8b7c…0c8d10 Dummy {f00=0x006f, f01=0x0190, f02=»EFA - END OF FREE AREA P* 4 P* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE ( P* ` P* WORK REGISTERS: A1-A12 j P* < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE P* P EJECT PB:CDT EQU * & P LD A1
0x0c8d10…0c8ea4 Dummy {f00=0x006f, f01=0x0190, f02=»CE DEFINITION BLOCK ~ P* PCDG:10 EQU * & P CALL NXTBLK : ( P CCK A2,'TT' TASK DEFINITION BLOCK? N P RB(E) CDG:10 YES z ( P CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO P EJECT P* : P* RESERVE AREA IN COM
0x0c8ea4…0c9038 Dummy {f00=0x006f, f01=0x018e, f02=»N DEFINITION BLOCK v 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES & P CALL GETCTC GET NUMBER OF C.T.C. T P LDR A6,A1 SAVE ~ " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) , P ADR A1,A1 DISPLACEMENT TO
0x0c9038…0c91cc Dummy {f00=0x006f, f01=0x0190, f02=» v & P CWR A1,A2 MAKE SURE CLASS EXISTS P RF(NG) B:CT20 OK! 2 P LDKL A1,LMP4 FORMAT ERROR! L P CALL ERROR p , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS $ P LDR* A1,A1 GET LENGTH OF CLASS " P SUK
0x0c91cc…0c9360 Dummy {f00=0x006f, f01=0x0190, f02=»DECR. NBR OF C.T.C. P RB B:CT10 P EJECT . PB:CT30 EQU * < P* P : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES Z 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* P CALL GETSDC P ADKL A9,SDCFST-CDBNC
0x0c9360…0c94f4 (1, 254) Dummy {f00=0x0070, f01=0x0190, f02=» TO SCLASS r P LDR* A2,A5 P SUK A2,2 & P CWR A1,A2 8 P RF(NG) BCDT15 J P LDKL A1,LMP4 ` P CALL ERROR v PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS P LDR* A1,A1 GET LENGTH P SUK
0x0c94f4…0c9688 Dummy {f00=0x0070, f01=0x0190, f02=»ATION t $ P RB(P) CDG:10 MORE APPLICATIONS? & P CALL FSTAPL GET FIRST APPLICATION 6 & PB:CT35 CALL NXTBLK GET NEXT BLOCK ` ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) B:CT35 YES P EJECT P* < P* RESERV ENTRIES IN COMMON DEVI
0x0c9688…0c981c Dummy {f00=0x0070, f01=0x0190, f02=»VICE TABLE FOR l @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION P* Z J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS d P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD A6,SCTDMT DATA MANAGEMENT
0x0c981c…0c99b0 Dummy {f00=0x0070, f01=0x0190, f02=»S IF NOT ZERO v P RF(Z) CDG:12 NO! , P LD A6,STKEND+SCLA GET POINTER TO SCLASS 0 $ P LDR* A1,A6 GET LENGTH OF SCLASS ` " P SUK A1,2 EXCLUDE LENGTH WORD $ P ADR A6,A1 LAST ENTRY IN SCLASS * P LDR* A6,A6 GET POINTER TO LAST CLASS ( P LDR
0x0c99b0…0c9b44 Dummy {f00=0x0070, f01=0x018e, f02=» P ADK A7,2 P STR A7,A12 P ST A12,SCTCDT * P ADR A12,A7 @ P ST A11,STKEND+WRK1 SAVE A11 T " P LDR A11,A12 GET END OF CDTAB x . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF MEMORY OVERFLOW P RF(NG) CD
0x0c9b44…0c9cd8 Dummy {f00=0x0070, f01=0x0190, f02=» P* 6 P* INIT POINTER TO START OF FREE AREA AND TO CDTAB P* L ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT V * PCDG:15 LCR A2,A11 GET FIRST CHARACTER . PCDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ P RF(NE) CDG:17 NO! P CALL NXTBLK
0x0c9cd8…0c9e6c Dummy {f00=0x0070, f01=0x0190, f02=»OMMON WORK BLOCKS x ( PCDG:18 RF(N) CDG:EX CDTAB COMPLETE! & P CALL NXTAPL GET NEXT APPLICATION F $ P RB(P) CDG:15 MORE APPLICATIONS p " P RF CDGEX NO MORE APPLICATIONS PCDG:19 EQU * P* > P* GENERATE DEVICE WORK TABLES FOR COMMON TE
0x0c9e6c…0ca000 Dummy {f00=0x0070, f01=0x0190, f02=» CALL GETCTC GET NUMBER OF C.T.C. , P LDR A1,A1 ANY COMMON TERMINAL CLASSES? * PB:CT40 RF(Z) B:CT50 NO! Z P ST A1,STKEND+NBRCOM SAVE z ( P CALL GETCLN GET CLASS IDENT NUMBER P ST A1,STKEND+CLASID SAVE , P CALL GETLCN GET LINE CONNECTI
0x0ca000…0ca194 (1, 255) Dummy {f00=0x0070, f01=0x0190, f02=» LD A7,STKEND+TCLA GET POINTER TO TCLASS & P ADR A7,A2 SELECT ENTRY IN TCLASS 0 $ P LDR* A7,A7 GET POINTER TO CLASS Z . P CALL DWTGEN GENERATE DWT:S FOR THIS CLASS . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE . P LD A1,STKEND+NBRCOM GET NUMBER OF
0x0ca194…0ca328 Dummy {f00=0x0070, f01=0x018e, f02=»PECIAL DEVICE CLASSES ~ P* P CALL GETSDC ( P ADKL A9,SDCFST-CDBNC < P LDR A8,A1 Z PCDG:20 EQU * l P RB(NP) CDG:18 P* & P* GET SPECIAL DEVICE CLASS NUMBER P* P CALL GETCLN P* 0 P* GET CORRESPONDING D
0x0ca328…0ca4bc Dummy {f00=0x0070, f01=0x0190, f02=» v & P LDR* A5,A6 SAVE POINTER TO CLASS $ P LDR* A6,A6 GET POINTER TO CLASS 2 $ P LDR* A6,A6 GET LENGTH OF CLASS Z " P SUK A6,2 EXCLUDE LENGTH WORD PCDG:30 EQU * P ADK A5,4 NEXT DEVICE P LDR* A1,A5 GET DWT-ADDRESS ( P LD A3,DWT
0x0ca4bc…0ca650 Dummy {f00=0x0070, f01=0x0190, f02=»,A3 UPDATE POINTER TO FREE AREA P CALL CHKMOV COPY DWT ( P* F 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM P P* " P LD A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? P RF(Z) CDG:35 NO! ( P LDR A3,A1 GET PROTOTY
0x0ca650…0ca7e4 Dummy {f00=0x0070, f01=0x0190, f02=»IT EVEN! | P SUR A4,A3 RELOCATE " P ST A4,DWTMEC,A2 STORE IT BACK , PCDG:35 EQU * R " P LDR A1,A2 DWT-ADDRESS TO USE f PCDG:40 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P* " P ST A1,4,A10 STORE DWT-ADDRESS
0x0ca7e4…0ca978 Dummy {f00=0x0070, f01=0x0190, f02=»CE COUNTER x P RB(P) CDG:30 NEXT DEVICE P EJECT 4 P* B , P* CHECK IF MOORE SPECIAL DEVICE CLASSES L P* | P ADKL A9,SDC P SUKL A8,1 P RB CDG:20 PCDGEX EQU * " P LD A1,SCTDMT DATA MANAGEMENT $ P LD A5,SCTDCT DA
0x0ca978…0cab0c Dummy {f00=0x0070, f01=0x0190, f02=»1,A5 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:EX NO! * , P LD A5,STKEND+SCLA GET POINTER TO SCLASS D $ P LDR* A1,A5 GET LENGTH OF SCLASS t " P SUK A1,2 EXCLUDE LENGTH WORD P ADR A5,A1 GET LAST ENTRY * P LDR* A5,A5 GET POINTER TO LAST CLAS
0x0cab0c…0caca0 Dummy {f00=0x0070, f01=0x0190, f02=»2,SCTSFA UPDATE START OF FREE AREA P RTN A14 RETURN * P =6 B P EJECT P J P********************************************************************** ^ H P* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS J P****************
0x0caca0…0cae34 (1, 256) Dummy {f00=0x0070, f01=0x0190, f02=» A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS * P* A6 - LINE CONNECTION NUMBER : P* h P* EXIT: r P* P* WORK REGISTERS: A1-A8 P* P* SUBROUTINES: I:CHP,MOVE P* P EJECT PDWTGEN EQU * 4 P ST
0x0cae34…0cafc8 Dummy {f00=0x0070, f01=0x0190, f02=» ADK A7,2 FIRST FILECODE PDWT05 EQU * . P LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT 4 2 P LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER f P* P* CHECK CONNECTION TYPE P* , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P CCK A4,
0x0cafc8…0cb15c Dummy {f00=0x0070, f01=0x0190, f02=»K A4,'AA' ASCU4Z CONNECTION? P RF(NE) DWT07 NO! $ . P CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z > P RF DWT31 p * PDWT07 CCK A4,'VV' VCCU1/4 CONNECTION? P RF(NE) DWT11 0 P CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4 P RF DWT31
0x0cb15c…0cb2f0 Dummy {f00=0x0070, f01=0x0190, f02=» $ PDWT12 CCK A4,'LL' LT CONNECTION? P RF(NE) DWT08 NO! , , P CALL I:CHLT INIT CHANNEL PARAMETERS LT F P RF DWT31 v $ PDWT08 CCK A4,'RR' RT CONNECTION? P RF(NE) DWT09 NO! =8 . P CALL I:CHRT INIT CHANNEL PARAMETERS RT =8 P RF DWT31
0x0cb2f0…0cb484 Dummy {f00=0x0070, f01=0x0190, f02=»ERROR 6 PDWT06 CALL I:CHRI INIT CHANNEL PARAMETERS RWSI =8 PDWT31 EQU * H P ST A3,STKEND+CONTYP SAVE P ST A5,STKEND+WRK3 SAVE ~ P ST A6,STKEND+WRK4 SAVE P* 2 P* CHECK IF DWT ALREADY GENERATED ON THIS LINE P* , P
0x0cb484…0cb618 Dummy {f00=0x0070, f01=0x0190, f02=» P RF(Z) DWT32 6 P LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE P CW A3,-4,A4 EQUAL? V P RF(Z) DWT15 YES! r PDWT14 EQU * " P LDR* A4,A4 GET NEXT BLOCK =7 ( P SUK A5,1 DECREMENT NUMBER OF BLOCKS P RB DWT13 PDWT1
0x0cb618…0cb7ac Dummy {f00=0x0070, f01=0x0190, f02=»DDRESS v . P LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2 $ P ANK A3,/003F GET DEVICE ADDRESS @ P SUR A3,A6 EQUAL? h P RB(NE) DWT14 NO! & P LD A6,DWTST,A2 GET DEVICE STATUS " P ANK A6,/00C0 GET BITS 8 AND 9 & P LD A3,DWTST,A1 GET DEVICE S
0x0cb7ac…0cb940 Dummy {f00=0x0070, f01=0x0190, f02=» $ P ANKL A6,/8000 ISOLATE ECHO BIT $ P LD A3,DWTTAB,A1 GET DEVICE TYPE , $ P ANKL A3,/8000 ISOLATE ECHO BIT T P SUR A3,A6 EQUAL? | P RB(NE) DWT14 NO! P CALL DWT50 P LDKL A1,DWT70 P AD A1,STKCOM+M:REL P ABR A1 PDW
0x0cb940…0cbad4 (1, 257) Dummy {f00=0x0070, f01=0x0190, f02=»E DWT ~ P* P LDR A2,A12 TO-ADDRESS P LD A3,DWTOR,A1 LENGTH 6 P ADR A12,A3 NEXT FREE ENTRY T P CALL CHKMOV x P EJECT P* $ P* A1 - ADDRESS TO PROTOTYPE DWT P* A2 - ADDRESS TO REAL DWT P* P LD A6,STKEND+
0x0cbad4…0cbc68 Dummy {f00=0x0070, f01=0x0190, f02=»* P* CHECK IF INPUT DEVICE P* * P LD A3,2,A1 GET DWT STATUS 4 P ANK A3,/0040 INPUT DEVICE? V P RF(Z) DWT45 NO z P* P* INPUT DEVICE: P* CHECK IF KEYBOARD P* P LD A3,DWTADR,A1 P LD A3,DEVIND,A3
0x0cbc68…0cbdfc Dummy {f00=0x0070, f01=0x018e, f02=»RE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE * P* h P* r P LD A5,DWTECH,A1 ECHO? | P RF(Z) DWT40 NO P AD A5,STKCOM+M:REL : P LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE
0x0cbdfc…0cbf90 Dummy {f00=0x0070, f01=0x0190, f02=» ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE 0 < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE l P ADK A3,4 UPDATE LENGTH * P ST* A3,STKEND+ECHTAB SAVE NEW LENGTH P EJECT P
0x0cbf90…0cc124 Dummy {f00=0x0070, f01=0x0190, f02=»,DWTSQ DISPLACEMENT TO START OF BUFFER $ P ST A5,DWTSQ-4,A2 STORE POINTER . $ P ST A5,DWTSQ-2,A2 STORE POINTER V P* ~ P* IF DOUBLE KEYBOARD: D P* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 P* IN ENTRY CORRESPONDING
0x0cc124…0cc2b8 Dummy {f00=0x0070, f01=0x0190, f02=» $ P RF(Z) DWT60 NOT DOUBLE KEYBOARD $ P LDR A5,A2 GET REAL DWT-ADDRESS , P ADK A5,1 ADD ONE T * P CALL B:TTAB BUILD ONE BLOCK IN T.I.T. n P SUK A5,1 $ P LDR A2,A5 GET REAL DWT-ADDRESS P RF DWT60 P EJECT PDWT45 CALL DWT50
0x0cc2b8…0cc44c Dummy {f00=0x0070, f01=0x0190, f02=»EVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT , 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. f P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN) DWT59 NO ECHOING ON THIS DEVICE : P
0x0cc44c…0cc5e0 Dummy {f00=0x0070, f01=0x0190, f02=»DWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY $ . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT P , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH * P ST* A3,STKEND+ECHTAB STORE NEW LENGTH PDWT59 RT
0x0cc5e0…0cc774 (1, 258) Dummy {f00=0x0071, f01=0x0190, f02=»NG? ~ P RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS . ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS ^ * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANKL A5,/FFFE MAKE EVEN ADDRESS
0x0cc774…0cc908 Dummy {f00=0x0071, f01=0x0190, f02=»,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $ $ P RF(Z) DWT70 ALLOCATE NO BUFFER! Z P* L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL P* , P LD A5,DWTMEC,A2 GET MONITOR ECB-A
0x0cc908…0cca9c Dummy {f00=0x0071, f01=0x0190, f02=»5 SAVE P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 . , P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH X P EJECT P* 4 P* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 P* THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A
0x0cca9c…0ccc30 Dummy {f00=0x0071, f01=0x0190, f02=»M+BUFSIZ P RF(NG) DWT65 P ST A3,STKCOM+BUFSIZ ( P ST A12,STKCOM+SYSBUF D PDWT65 EQU * b P ADR A12,A3 NEXT FREE ENTRY v P EJECT PDWT70 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P* " P ADKL
0x0ccc30…0ccdc4 Dummy {f00=0x0071, f01=0x0190, f02=»RY IN TTAB | " P STR A2,A10 STORE DWT-ADDRESS P* 8 , P* CHECK IF MOORE DEVICES IN THIS CLASS B P* r P SUKL A8,4 | P RF(Z) DWTEX P ADK A7,4 NEXT DEVICE P LDKL A1,DWT05 P AD A1,STKCOM+M:REL P ABR A1 PDWTEX
0x0ccdc4…0ccf58 Dummy {f00=0x0071, f01=0x0190, f02=»NTER IN ONE POINTER-SET x 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: 0 P* STORE SECOND POINTER OF FIRST POINTER-SET X 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-SET AND CLEAR POINTERS OF P* SECOND POINTE
0x0ccf58…0cd0ec Dummy {f00=0x0071, f01=0x0190, f02=» A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE " P RF(Z) DWT160 NO ECHO DEVICES! : : P AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE ` 8 P LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS LENGTH < PDWT90 LD A2,ST
0x0cd0ec…0cd280 Dummy {f00=0x0071, f01=0x0190, f02=» > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! F P ADK A2,4 NEXT POINTER-SET h ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 : PDWT130 LD A4,2,A2 ADDRES
0x0cd280…0cd414 (1, 259) Dummy {f00=0x0071, f01=0x0190, f02=»CHO-DEVICE f P CMR A1 CLEAR FIRST POINTER " P CM 2,A1 CLEAR SECOND POINTER 6 $ PDWT140 ADK A1,4 NEXT POINTER-SET ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! * PDWT150 CM* STKEND+ECHTAB CLEAR LENGTH PDWT160 RTN A14 R
0x0cd414…0cd5a8 Dummy {f00=0x0071, f01=0x0190, f02=»REAL-TIME INTERRUPT TABLE * ~ 2 P********************************************** $ P* Z P* REFERENCED IN: DWTGEN d P* * P* ENTRY: SCTSFA - START OF FREE AREA P* , P* EXIT: REAL TIME INTERRUPT TABLES FOR 2 P* LT,RT,
0x0cd5a8…0cd73c Dummy {f00=0x0071, f01=0x0190, f02=»LES f 0 P LD A1,STKEND+FWTFLG T.I.T. IN FREE AREA? =7 P RF(P) B:ITLT YES? =7 @ 4 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA =7 ^ P LDR A1,P =7 PBIT05 EQU * =7 * P SUK A1,2 DECREMENT MEMORY ADDRESS =7 P CMR A1 CLEAR MEMORY A
0x0cd73c…0cd8d0 Dummy {f00=0x0071, f01=0x0190, f02=»T h P* P XIF PB:ITLT EQU * P IFF SUML=0 4 $ P LDKL A8,0 CONNECTION TYPE = LT H P LDKL A9,7 1:ST BOARD p . P LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE P ST A1,STKEND+WRK4 SAVE P CM STKEND+WRK1 CLEAR P CM STKEND
0x0cd8d0…0cda64 Dummy {f00=0x0071, f01=0x0190, f02=»EX IN MONTAB v " P LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BIT15 NO! : P CM STKEND+WRK3 CLEAR R : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE p P ST A2,INTLT1,A1 SAVE PBIT15 EQU * P ADK A1,2 & P ST A1,STKEND+WRK2 STO
0x0cda64…0cdbf8 Dummy {f00=0x0071, f01=0x0190, f02=» B:ITRT YES! P RB BIT10 P XIF & P EJECT 2 P* @ . P* BUILD REAL-TIME INTERRUPT TABLES FOR RT J P* | PB:ITRT EQU * P IFF SUMR=0 $ P LDKL A8,1 CONNECTION TYPE = RT P LDKL A9,3 1:ST BOARD . P LDK A1,8 MAX.LENGTH
0x0cdbf8…0cdd8c Dummy {f00=0x0071, f01=0x0190, f02=»3 CLEAR PBRT10 EQU * P CALL B:BTAB $ P CALL B:LTAB 8 * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB L " P LD A2,STKEND+WRK3 ANY LINES? z P RF(Z) BRT15 NO! P CM STKEND+WRK3 CLEAR : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TA
0x0cdd8c…0cdf20 Dummy {f00=0x0071, f01=0x0190, f02=» P ST A9,STKEND+WRK1 STORE P ADKL A9,3 NEXT BOARD $ P CWK A9,15 LAST BOARD? B P RF(G) B:ITPC YES! ` P RB BRT10 z P XIF P EJECT P* 4 P* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-LOCAL P* PB:ITPC EQU * P I
0x0cdf20…0ce0b4 (1, 260) Dummy {f00=0x0077, f01=0x0190, f02=» P ST A1,STKEND+WRK4 P LDK A1,1 =2 P ST A1,STKEND+WRK1 =2 4 P CM STKEND+WRK2 CLEAR R P CM STKEND+WRK3 CLEAR p PBPC10 EQU * P CALL B:BTAB P CALL B:LTAB * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB " P LD A2,STKEND+WR
0x0ce0b4…0ce248 Dummy {f00=0x0077, f01=0x0190, f02=» P ST A2,INTPL1,A1 SAVE PBPC15 EQU * " P ADK A1,2 6 & P ST A1,STKEND+WRK2 STORE NEW INDEX H P ADKL A9,1 r P ST A9,STKEND+WRK1 P ADKL A9,31 NEXT BOARD P CWK A9,128 LAST BOARD? P RF(G) B:ITPR YES! =8 P RB BPC10
0x0ce248…0ce3dc Dummy {f00=0x0077, f01=0x0190, f02=»LCR=0 * P LDKL A8,6 CONNECTION TYPE=PLC-REMOTE P LDKL A9,32 1:ST BOARD < 0 P LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2 Z P ST A1,STKEND+WRK4 P LDK A1,1 =2 P ST A1,STKEND+WRK1 =2 P CM STKEND+WRK2 CLEAR P CM STKEND+WRK
0x0ce3dc…0ce570 Dummy {f00=0x0077, f01=0x018e, f02=»WRK3 ANY LINES? P RF(Z) BPR15 NO! ! P CM STKEND+WRK3 ! 0 B P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ! H P ST A2,INTPR1,A1 SAVE ! PBPR15 EQU * ! P ADK A1,2 ! & P ST A1,STKEND+WRK2 STORE NEW INDEX ! P ADKL A9,1 !
0x0ce570…0ce704 Dummy {f00=0x0077, f01=0x0190, f02=» P XIF " P EJECT " P " P* " & 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4 " 0 P* " f PB:ITVU EQU * " p P IFF VIDEO=0 " ( P LDKL A8,7 CONNECTION TYPE = VCCU1/4 " P LDKL A9,3 1:ST BOARD " . P LDK A1,8 MAX.LENGTH OF BOARD CONF. TA
0x0ce704…0ce898 Dummy {f00=0x0077, f01=0x0190, f02=»U10 EQU * " P CALL B:BTAB # P CALL B:LTAB # & * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB # : " P LD A2,STKEND+WRK3 ANY LINES? # h P RF(Z) BVU15 NO! # P CM STKEND+WRK3 CLEAR # : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE # P ST A2
0x0ce898…0cea2c Dummy {f00=0x0077, f01=0x0190, f02=»WRK1 STORE # P ADKL A9,3 NEXT BOARD $ P CWK A9,31 LAST BOARD? $ 0 P RF(G) B:ITSZ YES! $ N P RB BVU10 $ h P XIF $ z P $ P EJECT $ P* $ 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ $ P* $ PB:ITSZ EQU * $ P IFF SALCUZ=0
0x0cea2c…0cebc0 Dummy {f00=0x0077, f01=0x0190, f02=»A1,STKEND+WRK4 $ P CM STKEND+WRK1 CLEAR % P CM STKEND+WRK2 CLEAR % 4 P CM STKEND+WRK3 CLEAR % R PBSZ10 EQU * % p P CALL B:BTAB % P CALL B:LTAB % * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB % " P LD A2,STKEND+WRK3 ANY LINES? % P RF(Z) B
0x0cebc0…0ced54 (1, 261) Dummy {f00=0x0077, f01=0x018e, f02=»U * % P ADK A1,2 & & P ST A1,STKEND+WRK2 STORE NEW INDEX & P ADKL A9,1 & H P ST A9,STKEND+WRK1 & Z P CWK A9,7 LAST BOARD? & t P RF(G) B:ITAZ YES! & P RB BSZ10 & P XIF & P EJECT & P* & 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR
0x0ced54…0ceee8 Dummy {f00=0x0077, f01=0x0190, f02=» & x . P LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE ' P ST A1,STKEND+WRK4 ' : P CM STKEND+WRK1 CLEAR ' T P CM STKEND+WRK2 CLEAR ' r P CM STKEND+WRK3 CLEAR ' PBAZ10 EQU * ' P CALL B:BTAB ' P CALL B:LTAB ' * P LD A1,STKEND+WRK2 GET INDEX I
0x0ceee8…0cf07c Dummy {f00=0x0077, f01=0x0190, f02=»D CONFIGURATION TABLE ' h P ST A2,INTAS1,A1 SAVE ( PBAZ15 EQU * ( < P ADK A1,2 ( P & P ST A1,STKEND+WRK2 STORE NEW INDEX ( b P ADKL A9,1 ( P ST A9,STKEND+WRK1 ( P ADKL A9,3 NEXT BOARD ( P CWK A9,31 LAST BOARD? ( P RF(G) BAZ20 YES! (
0x0cf07c…0cf210 Dummy {f00=0x0077, f01=0x0190, f02=» 2 P* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * ) 2 P********************************************* ) : P* ) p P* REFERENCED IN: DWTGEN ) z P* ) , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ) ( P* A2 - POINTER TO REAL DWT ) * P*
0x0cf210…0cf3a4 Dummy {f00=0x0077, f01=0x0190, f02=» . P* A3 - BITS 12-15 CONNECTION TYPE * * P* BITS 4 -11 LINE NUMBER * 6 P* WORK REGISTERS: * d P* * ~ P* SUBROUTINES: * P* * PI:CHSZ EQU * * P IFF SALCUZ=0 * $ P CWK A6,8 CONNECTION NUMBER <=8? * P RF(G) NUMER
0x0cf3a4…0cf538 Dummy {f00=0x0077, f01=0x0190, f02=»WTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT * $ P ANK A5,/3F CLEAR BITS TO MODIFY + , 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER + T " P SLL A3,4 MOVE TO BITS 4 - 11 + ( P ADK A3,2 ADD CONNECTION TYPE SALCUZ + . P ADKL A6,/0200 ADD CONNECTION TYPE SALCUZ +
0x0cf538…0cf6cc Dummy {f00=0x0077, f01=0x018e, f02=»*********************************************** + 2 P* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * , 8 : P***************************************************** , n P* , P* REFERENCED IN: DWTGEN , P* , , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT
0x0cf6cc…0cf860 Dummy {f00=0x0077, f01=0x0190, f02=» , h P* - * P* EXIT: A6 - CHANNEL PARAMETER - 1 - * P* A5 - CHANNEL PARAMETER - 2 - @ . P* A3 - BITS 12-15 CONNECTION TYPE - n * P* BITS 4-11 LINE NUMBER - P* - P* WORK REGISTERS: - P* - P* SUBROUTIN
0x0cf860…0cf9f4 (1, 262) Dummy {f00=0x0078, f01=0x0190, f02=» A6,1 CONNECTION NUMBER >=1? - P RF(L) NUMERR NO! . $ , P SUK A6,1 MODIFY LINE CONNECTION NUMBER . > 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT . n $ P ANK A5,/3F CLEAR BITS TO MODIFY . 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER . P ANK A3,3
0x0cf9f4…0cfb88 Dummy {f00=0x0078, f01=0x0190, f02=»ONNECTION NUMBER . r P SLL A3,4 / , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER / * P SRL A6,2 MOVE TO BITS 12-15 / Z ( P ADK A3,3 ADD CONNECTION TYPE ASCU4Z / ~ . P ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z / P RTN A14 / P XIF / P IFT ASCU4Z=0 /
0x0cfb88…0cfd1c Dummy {f00=0x0078, f01=0x018e, f02=»* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 * / : P***************************************************** 0 6 P* 0 t P* REFERENCED IN: DWTGEN 0 ~ P* 0 , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 0 ( P* A2 - POINTER TO REAL DWT 0 ( P*
0x0cfd1c…0cfeb0 Dummy {f00=0x0078, f01=0x0190, f02=» 0 h * P* A5 - CHANNEL PARAMETER - 2 1 . P* A3 - BITS 12-15 CONNECTION TYPE 1 6 * P* BITS 4-11 LINE NUMBER 1 h P* 1 P* WORK REGISTERS: 1 P* 1 P* SUBROUTINES: 1 P* 1 PI:CHVC EQU * 1 P IFF VIDEO=0 1
0x0cfeb0…0d0044 Dummy {f00=0x0078, f01=0x0190, f02=» , P SUK A6,1 MODIFY LINE CONNECTION NUMBER 2 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT 2 4 $ P ANK A5,/3F CLEAR BITS TO MODIFY 2 h 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER 2 P ANK A3,3 GET BITS 14-15 2 & P SLL A3,8 MOVE TO BITS TO BITS 6-7 2
0x0d0044…0d01d8 Dummy {f00=0x0078, f01=0x0190, f02=»BITS 11-13 BOARD NUMBER 2 P SRL A6,2 MOVE TO BITS 12-15 3 * P ADK A3,7 ADD CONNECTION TYPE VCCU1/4 3 D . P ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4 3 r P RTN A14 3 P XIF 3 P IFT VIDEO=0 3 P LDKL A1,LMP4 3 P CALL ERROR 3 P XIF 3
0x0d01d8…0d036c Dummy {f00=0x0078, f01=0x0190, f02=»************************ 3 ~ P* 4 P* REFERENCED IN: DWTGEN 4 * P* 4 J , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 4 T ( P* A2 - POINTER TO REAL DWT 4 * P* A6 - LINE CONNECTION NUMBER 4 P* 4 * P* EXIT: A6 - CHANNEL PARAMETE
0x0d036c…0d0500 Dummy {f00=0x0078, f01=0x0190, f02=» LINE NUMBER 4 v P* 5 P* WORK REGISTERS: 5 P* SUBROUTINES: 5 8 P* 5 P PI:CHPC EQU * 5 Z P IFF PLCL=0 5 n ( P CWK A6,128 CONNECTION NUMBER <=128? 5 P RF(G) NUMERR NO! 5 $ P CWK A6,1 CONNECTION NUMBER >=1? 5 P RF(L) NUMERR NO! 5
0x0d0500…0d0694 (1, 263) Dummy {f00=0x0078, f01=0x0190, f02=»ECTION NUMBER 5 x P ANK A3,/1F GET BITS 11 - 15 6 P ADK A3,1 6 : P SLL A3,8 MOVE TO BITS 2 - 7 6 L & P ORR A5,A3 MERGE WITH OLD CONTENTS 6 p * P LDR A3,A6 GET LINE CONNECTION NUMBER 6 P ADK A3,1 6 " P SLL A3,4 MOVE TO BITS 4 - 11 6 & P ADK A3,
0x0d0694…0d0828 Dummy {f00=0x0078, f01=0x0190, f02=»DD CONNECTION TYPE PLC 6 P RTN A14 7 P XIF 7 . P IFT PLCL=0 7 : P LDKL A1,LMP4 7 N P CALL ERROR 7 d P XIF 7 x P EJECT 7 . P****************************************** 7 2 P* I:CHPC - INIT CHANNEL PARAMETERS RWSI * =8 7 . P**************
0x0d0828…0d09bc Dummy {f00=0x0078, f01=0x0190, f02=»* A2 - POINTER TO REAL DWT 7 * P* A6 - LINE CONNECTION NUMBER 8 , P* 8 Z * P* EXIT: A6 - CHANNEL PARAMETER - 1 8 d * P* A5 - CHANNEL PARAMETER - 2 8 . P* A3 - BITS 12-15 CONNECTION TYPE 8 * P* BITS 4
0x0d09bc…0d0b50 Dummy {f00=0x0078, f01=0x0190, f02=»WK A6,128 CONNECTION NUMBER <=128? 8 P RF(G) NUMERR NO! 9 * $ P CWK A6,1 CONNECTION NUMBER >=1? 9 D P RF(L) NUMERR NO! 9 l P SUK A6,1 9 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT 9 $ P ANK A5,/3F CLEAR BITS TO MODIFY 9 * P LDR A3,A6 GET LINE
0x0d0b50…0d0ce4 Dummy {f00=0x0078, f01=0x0190, f02=»H OLD CONTENTS 9 | * P LDR A3,A6 GET LINE CONNECTION NUMBER : P ADK A3,1 : D " P SLL A3,4 MOVE TO BITS 4 - 11 : V , P ADK A3,6 ADD CONNECTION TYPE PLC-REMOTE : | , P ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER : " P SRL A6,5 MOVE TO BITS 12 - 15 : 2 P ADKL
0x0d0ce4…0d0e78 Dummy {f00=0x0078, f01=0x0190, f02=» P CALL ERROR ; P EJECT ; * P************************************* ; & . P* I:CHLT - INIT CHANNEL PARAMETERS LT * ; T * P************************************* ; P* ; P* REFERENCED IN: DWTGEN ; P* ; , P* ENTRY: A1 - POINTER TO PROTO
0x0d0e78…0d100c Dummy {f00=0x0078, f01=0x0190, f02=»NEL PARAMETERS -1 ; | * P* A5 - CHANNEL PARAMETERS -2 < . P* A3 - BITS 12-15 CONNECTION TYPE < H * P* BITS 4-11 LINE NUMBER < z P* < P* WORK REGISTERS: < P* < P* SUBROUTINES: < P* < P EJECT < PI:
0x0d100c…0d11a0 Dummy {f00=0x0078, f01=0x0190, f02=»NUMBER >=01? < x P RB(L) NUMERR NO =8! = , P SUK A6,1 MODIFY LINE CONNECTION NUMBER = 0 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT = ` ( P ANKL A5,/003F CLEAR BITS TO MODIFY = 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER = P ANK A3,7 GET BITS
0x0d11a0…0d1334 (1, 264) Dummy {f00=0x0078, f01=0x0190, f02=» = b P SLL A3,4 > P ANK A6,/18 GET BITS 11-12 > P SRL A6,3 MOVE TO BITS 14-15 > < P RTN A14 > ` P XIF > p P IFT SUML=0 > | P LDKL A1,LMP4 > P CALL ERROR > P XIF > P EJECT > . P***************************************** > . P*
0x0d1334…0d14c8 Dummy {f00=0x0078, f01=0x0190, f02=» P* ? , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ? ( P* A2 - POINTER TO REAL DWT ? > * P* A6 - LINE CONNECTION NUMBER ? j P* ? * P* EXIT: A6 - CHANNEL PARAMETERS - 1 ? * P* A5 - CHANNEL PARAMETERS - 2 ? . P*
0x0d14c8…0d165c Dummy {f00=0x0078, f01=0x0190, f02=»UBROUTINES: ? P* @ P EJECT @ PI:CHRT EQU * @ , P IFF SUMR=0 @ @ * P CWK A6,0016 CONNECTION NUMBER <= 16? @ T P RB(G) NUMERR NO =8! @ ( P CWK A6,0001 CONNECTION NUMBER >=1? @ P RB(L) NUMERR NO =8! @ , P SUK A6,1 MODIFY LINE CONNECTION N
0x0d165c…0d17f0 Dummy {f00=0x0078, f01=0x0190, f02=»NE CONNECTION NUMBER @ v P ANK A3,3 GET BITS 14-15 A P SLL A3,8 MOVE TO BITS 6-7 A < & P ORR A5,A3 MERGE WITH OLD CONTENTS A ^ 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER A P SLL A3,4 A $ P ADK A3,1 ADD CONNECTION TYPE RT A P ANK A6,/C GET B
0x0d17f0…0d1984 Dummy {f00=0x0078, f01=0x0190, f02=»R=0 =8 A P LDKL A1,LMP4 B P CALL ERROR B $ P XIF =8 B 8 P IFT DC=1 B H P EJECT B Z < P******************************************************* B h < P* * B < P* B:CNA BUILD COMPUTER NETWOR
0x0d1984…0d1b18 Dummy {f00=0x0078, f01=0x0190, f02=» * B h < P* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * C < P* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * C X < P* TABLE START IS DEFINED BY THE POINTER SCTDCT * C < P* IN SYSTAB.
0x0d1b18…0d1cac Dummy {f00=0x0078, f01=0x0190, f02=» C X < P* * D < P* REFERENCED IN: CONMON * D H < P* SUBROUTINES CALLED: GETDTE, P:DTE * D < P* WORK REGISTERS: A1-A12 * D < P
0x0d1cac…0d1e40 Dummy {f00=0x0078, f01=0x0190, f02=» P E PB:CNA EQU * E P LD A11,DCBLK+STKCOM E $ * P RF(Z) B:CN20 NO DATA COMMUNICATION =1 E @ P* E n < P AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA E x * P LD A12,SCTSFA GET START OF FREE AREA E ( P ST A12,SCTDCT UPDATE SYSTAB POINT
0x0d1e40…0d1fd4 (1, 265) Dummy {f00=0x0078, f01=0x0190, f02=»F SDTE RECORD E r PB:CN00 EQU * F P SUK A1,1 F * 2 P RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA F < P* F r . P ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT F | , P ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME F & P CALL P:DTE PROCESS THIS DTE BLOCK F 2 P
0x0d1fd4…0d2168 Dummy {f00=0x0078, f01=0x0190, f02=»QU * F P CM 0,A12 AND RESET IT G P ADKL A12,2 G * , P ST A12,SCTSFA UPDATE START OF FREE AREA G > PB:CN20 EQU * =1 G n P RTN A14 G P EJECT G < P******************************************************* G < P*
0x0d2168…0d22fc Dummy {f00=0x0078, f01=0x018e, f02=»======== * G f < P* * H < P* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * H V < P* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * H < P* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO O
0x0d22fc…0d2490 Dummy {f00=0x0078, f01=0x0190, f02=» H V < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * I < P* SDTE NAME IN CONF. DATA * I H < P* A12 POINTER TO START OF CURRENT * I < P* DTE BLOCK IN SCTDCT TABLE * I < P
0x0d2490…0d2624 Dummy {f00=0x0078, f01=0x0190, f02=» PROCESSED DTE-BLOCK IN CONF. DATA * I < P* A12 POINTER TO LAST DEFINED DTE-BLOCK * J 8 < P* DEFINED IN SCTDCT TABLE * J x < P* * J < P* REFERENCED I
0x0d2624…0d27b8 Dummy {f00=0x0078, f01=0x0190, f02=» AND MOVE * J x < P* * K ( < P******************************************************* K h P K P K PP:DTE EQU * K * P LDKL A1,/3000 INITIALIZE NAME FILLER K , P LC A1
0x0d27b8…0d294c Dummy {f00=0x0078, f01=0x0190, f02=»PE RECORD? K x P RF(E) PDTE00 YES! L P* L , & P SLL A1,8 NO LEFT ADJUST CHAR. AND L 6 $ P LC A1,1,A11 GET NEXT CHARACTER L ` P ADKL A11,1 L PPDTE00 EQU * L , P ST A1,DTENAM+STKEND SAVE NAME IN STACK L " P CALL GETCOP GET NO OF COPIES L " P S
0x0d294c…0d2ae0 Dummy {f00=0x0078, f01=0x0190, f02=»ER L t P LC A1,2,A11 M & P ST A1,DTETYP+STKEND SAVE IN STACK M P ADKL A11,2 M H ( P LDK A2,0 RESET NETWORK ADDR. LENGTH M P CALL ENDBLK END OF D-BLOCK? M P LDR A8,A8 M P RF(Z) PDTE05 YES! M P* M . P LC A7,NANSA,A11 GET NA-NSA-SDTE QUALI
0x0d2ae0…0d2c74 (1, 266) Dummy {f00=0x0079, f01=0x0190, f02=»T A11,NASTRT+STKEND SAVE ADDRESS M & P CALL P:NA PROCESS NETWORK ADDRESS N ( P LC A7,2,A11 N R PPDTE05 EQU * N f * P ST A2,NALNG+STKEND SAVE LENGTH OF NA N z P LDK A1,0 N P CALL ENDBLK END OF D-BLOCK? N P LDR A8,A8 N P RF(Z) PDTE07 YES! N
0x0d2c74…0d2e08 Dummy {f00=0x0079, f01=0x0190, f02=»TNSA N * P ADKL A11,2 SKIP NSA NR IN CONF. DATA O PPDTE07 EQU * O : 2 P ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. O N $ P CWK A1,/FF LOOK IF LEGAL NUMBER O P RF(NG) PDTE10 YES! O P* O PNSAERR EQU * O * P LDKL A1,LMP4 NO, ERROR IN CONF. F
0x0d2e08…0d2f9c Dummy {f00=0x0079, f01=0x0190, f02=»END SAVE ADDR. OF 1ST SUBADDR. O ~ P SLL A1,1 P & . P ADR A11,A1 CALCULATE STAT OF NEXT RECORD P 8 PPDTE15 EQU * P j 2 P CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK P ~ ( P CALL UPDDTE UPDATE DTE BLOCK IN DCT P * P LD A7,DTECOP+STKEND GET NO OF COPIES P
0x0d2f9c…0d3130 Dummy {f00=0x0079, f01=0x0190, f02=» * P LD A4,DTENAM+STKEND GET PREVIOUS NAME Q P LDR A3,A4 Q 2 * P ANK A3,/FF ISOLATE RIGHT BYTE OF NAME Q D P CWK A3,/5F UPPER BOUNDARY? Q r P RF(L) PDTE25 NO! Q P* Q , P LC A4,/30 RESET RIGHT BYTE TO ASCII '0' Q & P SLL A5,8 LEFT BYTE INCREMENTA
0x0d3130…0d32c4 Dummy {f00=0x0079, f01=0x0190, f02=»OCK? Q x P LDR A8,A8 R P RF(Z) PDTE35 YES! R P* R 8 . P LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD R B 0 P CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. R t P RF(E) PDTE35 R P* R P CCK A1,'SS' IF NSA RECORD R * P RF(E) PDTE30 USE OLD NETWORK
0x0d32c4…0d3458 Dummy {f00=0x0079, f01=0x0190, f02=»RESS R r * P ST A2,NALNG+STKEND SAVE LENGTH OF NA S P* S : P CALL ENDBLK END OF D-BLOCK? S D P LDR A8,A8 S h P RF(Z) PDTE35 YES! S z P* S P LC A1,2,A11 S P CCK A1,'SS' S ( P RF(NE) PDTE35 NO NSA RECORD PRESENT S P* S PPDTE30 EQU *
0x0d3458…0d35ec Dummy {f00=0x0079, f01=0x018e, f02=»2 S P LDR A1,A1 T P RF(Z) PDTE35 NO SUBADDRESSE T P* T @ P CWK A1,/FF T J , P RB(G) NSAERR TOO MANY SUBADDR. DEFINED T ^ P* T 4 P ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR. T P SLL A1,1 T . P ADR A11,A1 CALCULATE START OF NEXT RE
0x0d35ec…0d3780 Dummy {f00=0x0079, f01=0x0190, f02=» P CALL UPDDTE U P RB PDTE20 U P* U * PPDTE40 EQU * U 4 P RTN A14 U H P EJECT U X < P******************************************************** U f < P* * U < P* DTESIZ CALCULATES THE LENGTH
0x0d3780…0d3914 (1, 267) Dummy {f00=0x0079, f01=0x018e, f02=» * U f < P* ON ENTRY: A12 START OF CURRENT DTE BLOCK * V < P* * V V < P* WORK REGISTER: A1,A9 * V < P*
0x0d3914…0d3aa8 Dummy {f00=0x0079, f01=0x0190, f02=» V z 6 P LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS W P ADK A1,1 W B $ P SRL A1,1 2 DIGITS IN EACH BYTE W T , P AD A1,DTENSA+STKEND ADD NO OF SUBADDR. W | . P ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 W P ANKL A1,/FFFE MAKE EVEN W ( P ADR A1,A1
0x0d3aa8…0d3c3c Dummy {f00=0x0079, f01=0x0190, f02=»1,LIMIT+STKEND GET END OF SYSTEM AREA W " P CALL CMPADR MEMORY OVERFLOW? X . P RF(NL) DTSIZ0 NO! X T P* X n P LDKL A1,LMP3 YES! X x P CALL ERROR X P* X PDTSIZ0 EQU * X 6 P LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA X P RTN A14 X
0x0d3c3c…0d3dd0 Dummy {f00=0x0079, f01=0x0190, f02=» * X < P* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: * Y < P* ====== * Y L < P* NAME * Y < P* TYPE * Y
0x0d3dd0…0d3f64 Dummy {f00=0x0079, f01=0x0190, f02=» * Y < P******************************************************** Z < P Z | P Z PUPDDTE EQU * Z 4 P LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY Z P ADK A6,2 SKIP LINK ENTRY Z , P LD A1,DTENAM+
0x0d3f64…0d40f8 Dummy {f00=0x0079, f01=0x0190, f02=» P STR A1,A6 AND SAVE IN DCT [ P ADK A6,2 [ & P LDK A5,4 GET NO OF SHIFTS [ 8 . P ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. [ Z 4 P LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. [ $ P LDR A3,A2 SAVE NO OF CHARACTERS [ P SLL A2,8 LEFT ADJUST [ ,
0x0d40f8…0d428c Dummy {f00=0x0079, f01=0x0190, f02=»D PACK NA TO DCT [ | $ P ANKL A5,/1F ISOLATE SHIFT COUNT & P CWK A5,4 LESS THAN ONE BYTE LEFT? @ P RF(NG) UPDTE2 YES! j PUPDTE0 EQU * P LDK A5,0 SET NO OF SHIFTS P RF UPDTE4 P* PUPDTE2 EQU * P STR A2,A6 STORE WORD IN DCT
0x0d428c…0d4420 Dummy {f00=0x0079, f01=0x0190, f02=» ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. 4 P LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED ] 0 & P RF(Z) UPDTE8 NO SUBADDR. DEFINED ] h P* ] 4 P LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR. ] P LDR A3,A1 ] * P SLL A3,1 2 DIGITS FOR EACH SUDADD
0x0d4420…0d45b4 (1, 268) Dummy {f00=0x0079, f01=0x0190, f02=» ] P STR A2,A6 YES! SAVE IN DCT ^ P LDK A2,0 CLEAR TABLE WORD ^ , " P ADK A6,2 ADVANCE DCT POINTER ^ N P LDK A5,16 NO OF SHIFTS ^ t , P ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR. ^ PUPDTE6 EQU * ^ P SUK A5,4 NEXT NIBBLE ^ ( P CALL HEXCPY COPY
0x0d45b4…0d4748 Dummy {f00=0x0079, f01=0x018e, f02=»************** ^ f < P* * _ < P* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS * _ V < P* IN ONE WORD. * _ < P*
0x0d4748…0d48dc Dummy {f00=0x0079, f01=0x0190, f02=» _ V < P* A4 ADDRESS TO FIRST ASCII DIGIT * ` < P* A5 PACKING INSTR. (SLL A1,N TIMES) * ` H < P* A6 POINTER WHERE TO STORE PACKED WORD * ` < P* * ` < P
0x0d48dc…0d4a70 Dummy {f00=0x0079, f01=0x0190, f02=» PROCESSED DIGIT * ` < P* A5 PACKING INSTR. (SLL A1,N TIMES) * a 8 < P* A6 POINTER WHERE TO STORE NEXT WORD * a x < P* * a < P****************
0x0d4a70…0d4c04 Dummy {f00=0x0079, f01=0x0190, f02=» a v P CALL HEXCNV CONVERT TO HEX b P EXR A5 SHIFT b , " P ORR A2,A1 CONFIGURE DCT WORD b B ( P SUK A3,1 DECREMENT NO OF CHARACTERS b h $ P RF(Z) HXCPY8 WHOLE NA PROCESSED b P* b P CWK A5,SLL0 FULL WORD? b P RF(NE) HXCPY6 NO! b P* b
0x0d4c04…0d4d98 Dummy {f00=0x0079, f01=0x0190, f02=» b x , P ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR. c PHXCPY6 EQU * c 8 P SUK A5,4 NEXT NIBBLE c L * P ADK A4,1 NEXT CHARACTER IN CONF. DATA c j P RB HEXCPY c P* c PHXCPY8 EQU * c P RTN A14 c P EJECT c < P**********************************
0x0d4d98…0d4f2c Dummy {f00=0x0079, f01=0x018e, f02=»N ASCII CODE * c f < P* TO CORRESPONDING HEXADECIMAL VALUE * d < P* (4 BITS BINARY CODE) * d V < P* * d < P* ON ENTRY: A1 CHARACTER TO CONVERT
0x0d4f2c…0d50c0 Dummy {f00=0x0079, f01=0x0190, f02=» d V < P* * e < P******************************************************** e H P e P e PHEXCNV EQU * e " P ANK A1,/FF ISOLATE CHARACTER e P CWK A1,/29 e P RF(L) TYPERR ERRANEOUS TY
0x0d50c0…0d5254 (1, 269) Dummy {f00=0x0087, f01=0x0190, f02=» CWK A1,/46 DIGIT BETWEEN A-F? e P RF(G) TYPERR NO f & P* f > P ADK A1,9 YES! f H PHXCN00 EQU * f ^ " P ANK A1,/F ISOLATE HEX NUMBER f r P RTN A14 f P* f PTYPERR EQU * f " P LDKL A1,LMP4 CONF. DATA ERROR f P CALL ERROR f P EJECT f
0x0d5254…0d53e8 Dummy {f00=0x0087, f01=0x0190, f02=» P:NA PROCESS NETWORK ADDRESS * f < P* * g > < P* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. * g ~ < P* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE * g < P* CONTIN
0x0d53e8…0d557c Dummy {f00=0x0087, f01=0x0190, f02=» * g ~ < P* * h . < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK * h n < P* ADDRESS. * h < P*
0x0d557c…0d5710 Dummy {f00=0x0087, f01=0x0190, f02=»ORD IN CONF. DATA * h n < P* * i < P******************************************************** i ^ P i P i PP:NA EQU * i $ P LDK A4,1 RESET PACKING CONSTANT i " P LDK A2,0 RESET ADDRESS
0x0d5710…0d58a4 Dummy {f00=0x0087, f01=0x0190, f02=»:NA06 END OF CONF. DATA i P* j P CCK A1,/FF END OF D-BLOCK? j * P RF(E) P:NA05 YES! j N P* j h & P CCK A1,'==' CONTINUATION RECORD? j r P RF(E) P:NA04 YES! j P* j . P CCK A1,'NN' NO! START OF NA OR NSA RECORD j P RF(E) P:NA06 YES! RET
0x0d58a4…0d5a38 Dummy {f00=0x0087, f01=0x0190, f02=»H j l P CWK A2,/FF TOO MANY DIGITS? k P RF(NG) P:NA02 NO! k . P* k H * P LDKL A1,LMP4 YES! ERROR IN CONF. DATA k R P CALL ERROR k PP:NA02 EQU * k P LDR A3,A4 k " P ADR A3,A11 REPACKING ADDRESS k * P SCR A1,A3 PUT CHARACTER BACK IN FILE k
0x0d5a38…0d5bcc Dummy {f00=0x0087, f01=0x0190, f02=»R k d $ P SUK A4,2 SET REPACKING CONSTANT l * P ADKL A11,1 ADVANCE TO NEXT CHARACTER l 2 P RB P:NA00 l ` P* l r PP:NA05 EQU * l | " P SUK A2,1 DECREMENT NA LENGTH l * P SUKL A11,1 AND POSITION IN CONF. DATA l P* l PP:NA06 EQU * l P RTN A
0x0d5bcc…0d5d60 Dummy {f00=0x0087, f01=0x0190, f02=» * l h < P* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK * m < P* ================================================= * m X < P* * m < P* END OF BLOCK IS DEFINED BY A RECORD BEGINNIN
0x0d5d60…0d5ef4 (1, 270) Dummy {f00=0x0088, f01=0x0190, f02=» m X < P* CONFIGURATION DATA. * n < P* * n H < P* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA * n < P* * n < P
0x0d5ef4…0d6088 Dummy {f00=0x0088, f01=0x0190, f02=» * n < P******************************************************** o 8 P o x P o PENDBLK EQU * o $ P LC A8,1,A11 GET NEXT CHARACTER o " P CCK A8,/00 END OF CONF. DATA? o P RF(E) ENDBL0 YES! o P* o
0x0d6088…0d621c Dummy {f00=0x0088, f01=0x0190, f02=»8,A8 SET END OF D-BLOCK COND. o PENDBL2 EQU * p & P RTN A14 p : P XIF p J P EJECT p V T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p d 6 P* GENERAL SUBROUTINES * p T P*=*=*=*=*=*=*=*=*=
0x0d621c…0d63b0 Dummy {f00=0x0088, f01=0x0190, f02=»********** p f 8 P* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * q P* q N 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES q X P* q 8 P**************************************************** q P* q " P* REFERENCED IN: B:TCT,B:CDT q P
0x0d63b0…0d6544 Dummy {f00=0x0088, f01=0x0190, f02=» (BINARY VALUE) q ^ P* r P* WORK REGISTERS: A5 r " P* r @ P* SUBROUTINES: CONVRT r J P* r j PGETTSK EQU * r t PGETCTC EQU * r . PGETDTE EQU * GET NO OF DTE BLOCKS DEFINED r . PGETCOP EQU * GET NO OF COPIES OF LAST DTE r 0 PGETNSA E
0x0d6544…0d66d8 Dummy {f00=0x0088, f01=0x018e, f02=» A14 r P EJECT s 8 P**************************************************** s 8 P* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * s V 8 P**************************************************** s P* s P* REFERENCED IN: B:TT s P* s > P* ENT
0x0d66d8…0d686c Dummy {f00=0x0088, f01=0x0190, f02=» s N P* t P* WORK REGISTERS: A5 t P* t 0 P* SUBROUTINES: CONVRT t : P* t X PGETTDC EQU * t b P LC A5,TDBNC,A11 t v P SLL A5,8 t P LC A5,TDBNC+1,A11 t P CALL CONVRT t P RTN A14 t P EJECT t 8 P****************************
0x0d686c…0d6a00 Dummy {f00=0x0088, f01=0x0190, f02=»******* t d P* u P* REFERENCED IN: B:TT u P* u : 4 P* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD u D P* u | D P* EXIT: A1 - NUMBER OF SPECIAL DEVICE CLASSES (BINARY VALUE) u P* u P* WORK REGISTERS: A5 u P* u P* SUBRO
0x0d6a00…0d6b94 (1, 271) Dummy {f00=0x0088, f01=0x0190, f02=»14 u P EJECT v 2 P********************************************** v 2 P* GETCLN - GET CLASS IDENTIFICATION NUMBER * v N 2 P********************************************** v P* v P* REFERENCED IN: B:TT v P* v 6 P* ENTRY: A9 - POINTER TO
0x0d6b94…0d6d28 Dummy {f00=0x0088, f01=0x018e, f02=» A5 v ~ P* w P* SUBROUTINES: CONVRT w P* w 6 PGETCLN EQU * w @ P LC A5,TDCDD1,A9 w T P SLL A5,8 w l P LC A5,TDCDD2,A9 w ~ P CALL CONVRT w P RTN A14 RETURN w P EJECT w . P***************************************** w . P* GET
0x0d6d28…0d6ebc Dummy {f00=0x0088, f01=0x0190, f02=» P* x 8 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD x P* x J : P* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) x T P* x P* WORK REGISTERS: A5 x P* x P* SUBROUTINES: CONVRT x P* x PGETLCN EQU * x * P STR A
0x0d6ebc…0d7050 Dummy {f00=0x0088, f01=0x0190, f02=»TDCLCN ADDRESS LINE CONNECTION NUMBER x , P CALL GETNUM GET LINE CONNECTION NUMBER y . P LDR A1,A5 SAVE BINARY VALUE y ^ 0 P LDR* A6,A15 RESTORE REGISTER A6 FROM STACK y 0 P LDR* A4,A15 RESTORE REGISTER A4 FROM STACK y P RTN A14 y P EJECT y : P
0x0d7050…0d71e4 Dummy {f00=0x0088, f01=0x0190, f02=»GET TASK CLASS TO MATCH * y : P* ================================ * z 2 : P* * z p : P* REFERENCED IN: B:TT * z : P*
0x0d71e4…0d7378 Dummy {f00=0x0088, f01=0x0190, f02=» * z h : P* EXIT: A5 - TCL START VALUE FOR THIS TASK CLASS * { : P* * { T : P* WORK REGISTERS: A1-A7,A10 * { : P* * {
0x0d7378…0d750c Dummy {f00=0x0088, f01=0x0190, f02=»*********************************************** { P | 8 PGETTCL EQU * | @ P LDR A6,A5 SAVE TCL | T P LDR A7,A6 TCL START VALUE | p 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK | 6 P LD A11,STKEND+LCDSTA START OF CONFIGURATION DATA | 4 P
0x0d750c…0d76a0 Dummy {f00=0x0088, f01=0x0190, f02=» A5,8 MOVE TO LEFT BYTE | . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL } P CWR A5,A6 SAME TCL? } R P RF(NE) TCL:50 NO! } n & P CALL GETTSK GET NUMBER OF COPIES } P ADR A7,A1 INCREMENT TCL } 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK } P R
0x0d76a0…0d7834 (1, 272) Dummy {f00=0x0088, f01=0x0190, f02=» } f . P* GETCON - GET CONTENT IN MEMORY WORD * ~ . P***************************************** ~ : P* ~ l P* REFERENCED IN: SEGGEN ~ v P* ~ " P* ENTRY: A2 - MEMORY ADDRESS ~ . P* MMUOPT - MMU OPTION SWITCH (X) ~ P* ~ , P* E
0x0d7834…0d79c8 Dummy {f00=0x0088, f01=0x0190, f02=» ~ " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION . P RF(Z) GCON10 NO MMU J P ELR A1,A2 f P RF GCON20 x PGCON10 EQU * P LDR* A1,A2 PGCON20 EQU * P RTN A14 RETURN P EJECT . P****************************
0x0d79c8…0d7b5c Dummy {f00=0x0088, f01=0x0190, f02=»EFERENCED IN: DWTGEN P* 4 P* ENTRY: INTTAB - START OF TEMP.INTERRUPT TABLE & 6 P* CONTYP - CONNECTION TYPE AND LINE NUMBER ^ , P* A5 - RUN TIME DWT-ADDRESS P* P* EXIT: P* P* WORK REGISTERS: P*
0x0d7b5c…0d7cf0 Dummy {f00=0x0088, f01=0x0190, f02=»* A2,A4 GET NUMBER OF BLOCKS P SUK A4,2 $ P 6 P LDR A2,A2 ZERO? > PTTA10 EQU * V P RF(Z) TTA11 YES! j ( P LDR* A4,A4 GET START OF NEXT BLOCK P SUK A2,1 ZERO? P RB TTA10 P* P* AREA TO BUILD BLOCKS P*
0x0d7cf0…0d7e84 Dummy {f00=0x0088, f01=0x018e, f02=» P* BUILD BLOCKS IN FWT AREA P* & PTTA09 EQU * 0 P LDK A3,5 D PTTA12 EQU * V P SUK A2,2 j < P CW A2,STKEND+FWTSTA START OF FWT OR USED PART OF SYSLDM | P RF(E) TTA14 P SUK A3,1 P RF(Z) TTA20 P RB TTA12 P
0x0d7e84…0d8018 Dummy {f00=0x0088, f01=0x018e, f02=» PTTA15 EQU * P LDK A3,5 PTTA16 EQU * . P SUK A2,2 B P CWR A2,A12 T P RF(E) TTA17 h P ST A2,STKEND+LIMIT | P SUK A3,1 P RF(Z) TTA20 P RB TTA16 PTTA17 EQU * P LDKL A1,LMP3 P CALL ERROR
0x0d8018…0d81ac Dummy {f00=0x0088, f01=0x0190, f02=» P ADK A2,4 0 P STR A2,A4 STRORE POINTER TO NEXT FREE BLOCK P* N P* STORE NUMBER OF BLOCKS X P* x . P IM* STKEND+INTTAB INCREMENT BLOCK COUNTER P RTN A14 RETURN P EJECT 2 P**********************************************
0x0d81ac…0d8340 Dummy {f00=0x0088, f01=0x0190, f02=»CED IN: B:ITAB P* " P* ENTRY: A8 - CONNECTION TYPE P* A9 - BOARD NUMBER F 8 P* SAVE20 - MAX. LENGTH OF BOARD CONF. TABLE j P* & P* EXIT: A12 - START OF FREE AREA P* , P* WORK REGISTERS: A1,A2,A3,A10,A11,
0x0d8340…0d84d4 (1, 273) Dummy {f00=0x0088, f01=0x0190, f02=»LOW? p , P LD A12,SCTSFA NO!GET START OF FREE AREA P LDR A11,A12 SAVE < P ADKL A12,2 V P ST A12,STKEND+BRDTAB STORE j @ P LD A10,STKEND+INTTAB GET START OF TEMPORARY INTERRUPT TABLE , P LDR* A1,A10 GET NUMBER OF BLOCKS.ZERO? P
0x0d84d4…0d8668 Dummy {f00=0x0088, f01=0x0190, f02=» TYPE d P LDR A3,A2 SAVE $ P ANK A3,/0F GET CONNECTION TYPE & P SUR A3,A8 RIGHT TYPE? N P RF(Z) BTA30 YES! l PBTA20 EQU * $ P LDR* A10,A10 NO!GET NEXT BLOCK P SUK A1,1 LAST BLOCK? P RB BTA10 PBTA30 EQU * " P A
0x0d8668…0d87fc Dummy {f00=0x0088, f01=0x0190, f02=» P* P LD A3,STKEND+WRK1 P CWR A2,A3 , P RB(L) BTA20 NO! > P* V & P* BUILD BOARD CONFIGURATION TABLE ` P* P IM STKEND+WRK3 " P CWK A8,5 LWSI CONNECTION? =2 P RF(E) BTA34 YES! =2 " P CWK A8,6 RWSI CONNECTION?
0x0d87fc…0d8990 Dummy {f00=0x0088, f01=0x018e, f02=» P LDR A12,A11 P ADKL A12,2 ( P ADR A12,A2 GET ENTRY IN BOARD TABLE 0 P STR A11,A12 STORE P RB BTA20 v PBTA40 EQU * P* 2 P* COMPUTE LENGTH OF BOARD CONFIGURATION TABLE P* : P LD A1,STKEND+WRK4 GET MAX. LENGTH
0x0d8990…0d8b24 Dummy {f00=0x0088, f01=0x0190, f02=» P RF(NZ) BTA60 P SUK A1,2 P RF(Z) BTA70 0 P SUKL A12,2 D P RB BTA50 X PBTA60 EQU * j : P STR A1,A11 STORE LENGTH OF BOARD CONFIGURATION TABLE ~ P ADKL A12,2 0 P ST A12,SCTSFA STORE NEW START OF FREE AREA PBTA7
0x0d8b24…0d8cb8 Dummy {f00=0x0088, f01=0x0190, f02=»GURATION TABLES * t 2 P********************************************** P* P P* REFERENCED IN: B:ITAB Z P* z " P* ENTRY: WRK1 - BOARD NUMBER & P* A8 - CONNECTION TYPE P* & P* EXIT: A12 - START OF FREE AREA P
0x0d8cb8…0d8e4c Dummy {f00=0x0088, f01=0x0190, f02=» P RF(Z) BLT70 P LDKL A3,-1 LINE COUNTER P RF BLT15 8 PBLT10 EQU * J P SUK A1,2 DECREMENT LENGTH ^ P RF(Z) BLT70 RETURN P* PBLT15 EQU * P LDR A2,A12 P ADK A2,24 B P ST A2,STKEND+FWTFLG INITIATE POINTER TO
0x0d8e4c…0d8fe0 Dummy {f00=0x0088, f01=0x0190, f02=»2 P LDR* A2,A11 READ LINE.ZERO? P RB(Z) BLT10 YES! . P LDK A4,32 GET TEST LENGTH H ( P CALL M:TST TEST IF MEMORY OVERFLOW? j P* $ P* SCAN TEMPORARY INTERRUPT TABLE P* ( P LD A2,STKEND+WRK1 GET BOARD NUMBER " P CWK A8,5
0x0d8fe0…0d9174 (1, 274) Dummy {f00=0x0089, f01=0x0190, f02=» P SUK A2,1 =2 PBLT17 EQU * =2 P ADR A2,A3 ADD LINE NUMBER 6 P SLL A2,4 X " P ADR A2,A8 ADD CONNECTION TYPE j . P LD A10,STKEND+INTTAB GET START OF T.I.T. & P LDR* A4,A10 GET NUMBER OF BLOCKS P SUKL A10,2 PBLT20 EQ
0x0d9174…0d9308 Dummy {f00=0x0089, f01=0x018e, f02=»ORE RUN-TIME DWT-ADDRESS IN LINE CONFIGURATION TABLE P* < * P LD A5,-2,A10 GET RUN TIME DWT-ADDRESS F P LDR A6,A5 t " P ANK A6,/0001 DOUBLE KEYBOARD? P RF(Z) BLT25 N0! & P LD A6,DWTDEV,A5 GET DEVICE STATUS ( P ANK A6,/FF GET EIGHT RIGH
0x0d9308…0d949c Dummy {f00=0x0089, f01=0x0190, f02=» d P ANK A6,7 GET DEVICE ADDRESS PBLT26 EQU * , P ADR A6,A6 @ P LDR A7,A12 SAVE R P ADR A7,A6 j P LD A6,2,A7 ZERO? | P RF(Z) BLT27 YES! ( P LD A6,DWTST,A5 NO!GET DEVICE STATUS P ANK A6,/0040 INPUT DEVICE? P RF(Z) B
0x0d949c…0d9630 Dummy {f00=0x0089, f01=0x0190, f02=» A5,A6 STORE RUN TIME DWT-ADDRESS & P ST A6,STKEND+FWTFLG STORE POINTER * * P LD A5,-2,A10 GET RUM TIME DWT-ADDRESS T PBLT27 EQU * * P ST A5,2,A7 STORE RUN TIME DWT-ADDRESS P RF BLT30 PBLT28 EQU * 2 P LD A6,STKEND+FWTFLG GET POINT
0x0d9630…0d97c4 Dummy {f00=0x0089, f01=0x0190, f02=» P LDR* A10,A10 GET NEXT BLOCK P SUK A4,1 LAST BLOCK? ( P RF(Z) BLT40 YES! F P RB BLT20 NO! ` P* v D P* MOVE DWT-ADR.IN TEMP.AREA TO FREE LOCATIONS IN LINE CONF.TABLE P* PBLT40 EQU * 2 P LD A6,STKEND+FWTFLG GET POINTER T
0x0d97c4…0d9958 Dummy {f00=0x0089, f01=0x0190, f02=»1 EQU * P ADK A4,2 P LDR* A2,A4 " P RF(Z) BLT42 6 P RB BLT41 J PBLT42 EQU * * P STR A5,A4 STORE RUN TIME DWT-ADDRESS p P SUK A6,2 P RB BLT43 P* P* CLEAR TEMP.AREA P* PBLT45 EQU * 2 P LD
0x0d9958…0d9aec Dummy {f00=0x0089, f01=0x0190, f02=»MR A6 NO!CLEAR MEMORY WORD P SUK A6,2 DECREMENT POINTER " P RB BLT46 F P* X 0 P* COMPUTE LENGTH OF LINE CONFIGURATION TABLE b P* PBLT48 EQU * P LDR A2,A12 SAVE 2 P ADK A2,22 ADD. MAX LENGTH OF LINE CONF.TABLE P LDK A
0x0d9aec…0d9c80 Dummy {f00=0x0089, f01=0x0190, f02=» P RB BLT50 PBLT60 EQU * 8 P STR A4,A12 STORE LENGTH OF LINE CONFIGURATION TABLE * P ADKL A12,2 f J P STR A12,A11 STORE THE ADDRESS IN BOARD CONF.TABLE TO LINE CONF.TABLE z 4 P ADR A12,A4 A12 - START OF NEXT LINE CONF.TABLE 2 PBLT65 ST
0x0d9c80…0d9e14 (1, 275) Dummy {f00=0x0089, f01=0x0190, f02=»********************************* * P* M:TST - TEST IF MEMORY OVERFLOW * * * P************************************* X P* P* ENTRY: A4 - TEST LENGTH P* P* WORK REGISTERS: A2,A4 P* PM:TST EQU * $ P LD A2,SCTSFA
0x0d9e14…0d9fa8 Dummy {f00=0x0089, f01=0x018e, f02=»MTST20 P LDKL A1,LMP3 P CALL ERROR MEMORY OVERFLOW $ PMTST20 EQU * H P CWR A2,A4 P RB(NE) MTST10 n P RTN A14 RETURN P EJECT B P************************************************************** B P* BINASC - CONVERT A BI
0x0d9fa8…0da13c Dummy {f00=0x0089, f01=0x018e, f02=» B P************************************************************** P* J P* REFERENCED IN: B:DWTT T P* v , P* ENTRY: A1 - BINARY NUMBER TO CONVERT P* $ P* EXIT: A1,A5 - ASCII OUTPUT P* P* WORK REGISTER: A2
0x0da13c…0da2d0 Dummy {f00=0x0089, f01=0x018e, f02=» P SUKL A1,100 =2 P LDKL A5,/100 =2 PBIN:10 CWK A1,10 =2 6 P RF(L) BIN:20 =2 R P SUK A1,10 =2 l P ADK A5,/1 =2 P RB BIN:10 =2 PBIN:20 ORKL A5,/3030 =2 P ORK A1,/30 =2 P SRC A5,8 =2 P LDR A2,A5
0x0da2d0…0da464 Dummy {f00=0x0089, f01=0x0190, f02=» : P****************************************************** : P* * B : P* MMUINI - INIT MMU TABLE IN TTAB * : P* =============================== * : P*
0x0da464…0da5f8 Dummy {f00=0x0089, f01=0x0190, f02=» * x : P* ENTRY: APCSTA - APPL. CONTROL BLOCK ADDRESS * & : P* * d : P* EXIT: * : P*
0x0da5f8…0da78c Dummy {f00=0x0089, f01=0x018e, f02=» * : P* SUBROUTINES: * : P* * H : P****************************************************** P EJECT PMMUINI EQU * < P LD A2,STKEND+APCSTA GET ADDRESS T
0x0da78c…0da920 Dummy {f00=0x0089, f01=0x0190, f02=» . P LD A2,APLLAP,A2 GET LOGICAL PAGE ADDRESS ( P SRL A2,12 ISOLATE MMU ENTRY NUMBER 6 P RF(NZ) MMI:10 PAGES DEFINED b ( P LDK A2,16 MAX NUMBER OF MMU ENTRIES 0 PMMI:10 SUR A2,A3 NUMBER OF ENTRIES TO WRITE P SLL A3,1 TWICE P ADR A3,A1
0x0da920…0daab4 (1, 276) Dummy {f00=0x0089, f01=0x0190, f02=»T ADD DISPL. TO START OF MMU TABLE =6 P LDKL A4,/FC00 =6 . PMMI:15 EQU * =6 H 2 P CWR A5,A3 INIT MMU ENTRY WHITH PAGE ERROR? =6 ` P RF(E) MMI:16 NO! =6 0 P STR A4,A5 STORE PAGE ERROR IN MMU TABLE =6 P ADK A5,2 NEXT MMU ENTRY =6
0x0daab4…0dac48 Dummy {f00=0x0089, f01=0x0190, f02=» ENTRIES TO WRITE? | P RF(N) MMI:30 NO " P STR A4,A3 STORE PAGE ADDRESS 2 P ADK A3,2 NEXT MMU ENTRY X $ P ADKL A4,/400 NEXT PAGE ADDRESS x P RB MMI:20 PMMI:30 RTN A14 RETURN P XIF P EJECT 6 P******************************
0x0dac48…0daddc Dummy {f00=0x0089, f01=0x0190, f02=» ^ 6 P* ============================== * 6 P* * B 6 P* REFERENCED IN: * | 6 P* * 6 P* ENTRY:
0x0daddc…0daf70 Dummy {f00=0x0089, f01=0x0190, f02=» * d 6 P* A11- START OF CONFIGURATION DATA * 6 P* * H 6 P* WORK REGISTERS: A2 * 6 P* * 6 P* SUBROUTINES:
0x0daf70…0db104 Dummy {f00=0x0089, f01=0x0190, f02=»*********** j PFSTAPL EQU * , P LD A2,SYSLOD GET NUMBER OF APPLICATIONS ( P ST A2,STKEND+APLNO SAVE X 6 P LDKL A2,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK x P ST A2,STKEND+APCSTA SAVE 6 P LD A11,STKCOM+CONSTA START OF CONFIGURATION DATA
0x0db104…0db298 Dummy {f00=0x0089, f01=0x0190, f02=» * n 6 P* NXTAPL - GET NEXT APPLICATION * 6 P* ============================= * R 6 P* * 6 P* REFERENCED IN: * 6 P*
0x0db298…0db42c Dummy {f00=0x0089, f01=0x0190, f02=»PL. CONTROL * t 6 P* BLOCK ADDRESS * 6 P* * X 6 P* EXIT: APLNO - REMAINING NUMBER OF APPL.-1 * 6 P* APCSTA - NEXT APPL. CONTROL BLOCK * 6 P*
0x0db42c…0db5c0 Dummy {f00=0x0089, f01=0x0190, f02=»,A2 * z 6 P* * $ 6 P* SUBROUTINES: * ^ 6 P* * 6 P*************************************************
0x0db5c0…0db754 (1, 277) Dummy {f00=0x008b, f01=0x018e, f02=»O SAVE REMAINING NUMBER OF APPL. ~ P RF(Z) NOAPL NO MORE! ( * P CALL NXTADB GET NEXT APPL DEF. BLOCK F @ P LD A2,STKEND+APCSTA GET ADDRESS TO CURRENT APPL. CTRL BLOCK t ( P ADK A2,ACBLEN NEXT APPL. CTRL BLOCK & P ST A2,STKEND+APCSTA SAVE ADDRESS
0x0db754…0db8e8 Dummy {f00=0x008b, f01=0x0190, f02=» ~ P EJECT D P**************************************************************** D P* * ^ D P* NXTADB - GET NEXT APPLICATION DEF. BLOCK * D P* ===============
0x0db8e8…0dba7c Dummy {f00=0x008b, f01=0x0190, f02=» NXTAPL * ~ D P* * 6 D P* ENTRY: A11 - CURRENT POINTER TO CONFIGURATION DATA * ~ D P* *
0x0dba7c…0dbc10 Dummy {f00=0x008b, f01=0x0190, f02=»OCK * V D P* * D P* WORK REGISTERS: * V D P* * D P* SUBROUTINES: ERROR
0x0dbc10…0dbda4 Dummy {f00=0x008b, f01=0x0190, f02=»************************************** v PNXT10 ADKL A11,1 NEXT CHAR . ( PNXTADB LCR A2,A11 GET NEXT CHARACTER P $ P CCK A2,/0000 END OF CONF DATA? | P RF(NE) NEXT20 NOT YET P LDKL A1,LMP4 FORMAT ERROR P CALL ERROR 2 PNEXT20 CCK A2,/F
0x0dbda4…0dbf38 Dummy {f00=0x008b, f01=0x0190, f02=» RETURN P EJECT 2 P********************************************* 2 P* * T 2 P* CHKMOV - CHECK MEMORY OVERFLOW AND MOVE * 2 P* ======================================= * 2 P*
0x0dbf38…0dc0cc Dummy {f00=0x008b, f01=0x0190, f02=» b 2 P* ENTRY: A1 - FROM-ADDRESS * 2 P* A2 - TO-ADDRESS * > 2 P* A3 - LENGTH * t 2 P* STKEND+LIMIT - END OF SYSTEM * 2 P* AREA
0x0dc0cc…0dc260 Dummy {f00=0x008b, f01=0x0190, f02=» * 2 P* WORK REGISTERS: * ( 2 P* * ^ 2 P* SUBROUTINES: MOVE,ERROR * 2 P* * 2 P********
0x0dc260…0dc3f4 (1, 278) Dummy {f00=0x008c, f01=0x018e, f02=» P LDR A11,A3 GET LENGTH . P XRR A9,A9 PHYSICAL END OF FIRST PARTITION " 0 P SUR A9,A2 COMPUTE AREA LEFT IN FIRST PART. T & P CALL CMPADR ENOUGTH MEMORY LEFT? P RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CALL ERRO
0x0dc3f4…0dc588 Dummy {f00=0x008c, f01=0x018e, f02=» & P RB(G) CHK10 SYSTEM AREA OVERFLOW! P CALL MOVE MOVE AREA . P LDR* A11,A15 RESTORE A11 J P LDR* A9,A15 RESTORE A9 l P RTN A14 P EJECT D P**************************************************************** D P* STAR
0x0dc588…0dc71c Dummy {f00=0x008c, f01=0x0190, f02=» ( P CALL B:TCT BUILD TASK CONTROL TABLE P IFF FM=0 4 & P CALL B:FWT BUILD FILE WORK TABLES F P XIF p ( P CALL MONBLK GENERATE MONITOR BLOCKS | P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:MSEG BUILD MONIT
0x0dc71c…0dc8b0 Dummy {f00=0x008c, f01=0x0190, f02=»LE WORK BLOCK TABLE v P XIF P IFF MMUPAG+DSKPAG=0 ( ( P CALL B:STAB BUILD SEGMENT TABLE(S) D P XIF p P IFF SPDVCL+TEDVCL=0 | 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES P XIF P IFF TEDVCL=0 2 P CALL B:DWTT BUILD TERMI
0x0dc8b0…0dca44 Dummy {f00=0x008c, f01=0x0190, f02=»ERRUPT TABLE =7 z P XIF P IFT DC=1 =7 $ 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 : P XIF t P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART
0x0dca44…0dcbd8 Dummy {f00=0x008c, f01=0x4036, f02=»***************************** l P END &@ 2 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 : P XIF t P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART
0x0dcbd8…0dcd6c Dummy {f00=0x008c, f01=0x403c, f02=» 0 P******************************************** @ 8 6@ B 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 J P XIF P EJECT F P***************************************************************** F P* END OF MONITOR SA
0x0dcd6c…0dcf00 Dummy {f00=0x008c, f01=0x2008, f02=» P X ` h p
0x0dcf00…0dd094 (1, 279) Dummy {f00=0x008d, f01=0x0190, f02=»E A11 ON STACK P LDR A11,A3 GET LENGTH . P XRR A9,A9 PHYSICAL END OF FIRST PARTITION 4 0 P SUR A9,A2 COMPUTE AREA LEFT IN FIRST PART. f & P CALL CMPADR ENOUGTH MEMORY LEFT? P RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x0dd094…0dd228 Dummy {f00=0x008d, f01=0x018e, f02=»RE ADDRESSES ~ & P RB(G) CHK10 SYSTEM AREA OVERFLOW! P CALL MOVE MOVE AREA > P LDR* A11,A15 RESTORE A11 Z P LDR* A9,A15 RESTORE A9 | P RTN A14 P EJECT D P**************************************************************** D P*
0x0dd228…0dd3bc Dummy {f00=0x008d, f01=0x0190, f02=» PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE P IFF FM=0 D & P CALL B:FWT BUILD FILE WORK TABLES V P XIF ( P CALL MONBLK GENERATE MONITOR BLOCKS P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:
0x0dd3bc…0dd550 Dummy {f00=0x008d, f01=0x0190, f02=»BT BUILD SWAPPABLE WORK BLOCK TABLE P XIF , P IFF MMUPAG+DSKPAG=0 8 ( P CALL B:STAB BUILD SEGMENT TABLE(S) T P XIF P IFF SPDVCL+TEDVCL=0 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES P XIF P IFF TEDVCL=0 2 P CALL B:
0x0dd550…0dd6e4 Dummy {f00=0x008d, f01=0x0190, f02=»B:ITAB BUILD INTERRUPT TABLE =7 P XIF ( P IFT DC=1 =7 4 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 J P XIF P EJECT F P***************************************************************** F P* END OF MONITOR SA
0x0dd6e4…0dd878 Dummy {f00=0x008d, f01=0x4046, f02=»********************************************* | P END 6@ B 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 J P XIF P EJECT F P***************************************************************** F P* END OF MONITOR SA
0x0dd878…0dda0c Dummy {f00=0x008d, f01=0x403c, f02=» 0 P******************************************** @ 8********************************************************* 4 F P* END OF MONITOR SAVE01URATION PART * ~ F P* -CONTINUE WITH APPLICATION SAVE01URATION PART
0x0dda0c…0ddba0 Dummy {f00=0x008d, f01=0x2008, f02=» P X ` h p
0x0ddba0…0ddd34 (1, 280) Opaque[0x194]
0x0ddd34…0ddec8 # DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01a0, f03=0x0000}
0x0ddd34…0ddec8 IdxSect {
0x0ddd34…0ddec8 f00 = 0x000d // 0xddd34 @0x0
0x0ddd34…0ddec8 f01 = 0x0044 // 0xddd36 @0x2
0x0ddd34…0ddec8 gno = [ // 0xddd38 @0x4
0x0ddd34…0ddec8 [0x00]: C0x000d.0x0.0
0x0ddd34…0ddec8 [0x01]: C0x000d.0x1.0
0x0ddd34…0ddec8 [0x02]: C0x0044.0x0.0
0x0ddd34…0ddec8 [0x03]: C0x0044.0x1.0
0x0ddd34…0ddec8 [0x04]: C0x0044.0x2.0
0x0ddd34…0ddec8 [0x05]: C0x0044.0x3.0
0x0ddd34…0ddec8 [0x06]: C0x0045.0x0.0
0x0ddd34…0ddec8 [0x07]: C0x0045.0x1.0
0x0ddd34…0ddec8 [0x08]: C0x0045.0x2.0
0x0ddd34…0ddec8 [0x09]: C0x004e.0x2.0
0x0ddd34…0ddec8 [0x0a]: C0x0064.0x3.0
0x0ddd34…0ddec8 [0x0b]: C0x0067.0x0.0
0x0ddd34…0ddec8 [0x0c]: C0x0067.0x1.0
0x0ddd34…0ddec8 [0x0d]: C0x0071.0x2.0
0x0ddd34…0ddec8 [0x0e]: C0x0071.0x3.0
0x0ddd34…0ddec8 [0x0f]: C0x0072.0x0.0
0x0ddd34…0ddec8 [0x10]: C0x0072.0x1.0
0x0ddd34…0ddec8 [0x11]: C0x0074.0x2.0
0x0ddd34…0ddec8 [0x12]: C0x0074.0x3.0
0x0ddd34…0ddec8 [0x13]: C0x0075.0x0.0
0x0ddd34…0ddec8 [0x14]: C0x0075.0x1.0
0x0ddd34…0ddec8 [0x15]: C0x0076.0x0.0
0x0ddd34…0ddec8 [0x16]: C0x0076.0x1.0
0x0ddd34…0ddec8 [0x17]: C0x0076.0x2.0
0x0ddd34…0ddec8 [0x18]: C0x0076.0x3.0
0x0ddd34…0ddec8 [0x19]: C0x0077.0x0.0
0x0ddd34…0ddec8 [0x1a]: C0x0077.0x1.0
0x0ddd34…0ddec8 [0x1b]: C0x007c.0x2.0
0x0ddd34…0ddec8 [0x1c]: C0x007c.0x3.0
0x0ddd34…0ddec8 [0x1d]: C0x007d.0x0.0
0x0ddd34…0ddec8 [0x1e]: C0x007d.0x1.0
0x0ddd34…0ddec8 [0x1f]: C0x007d.0x2.0
0x0ddd34…0ddec8 [0x20]: C0x007d.0x3.0
0x0ddd34…0ddec8 [0x21]: C0x007e.0x0.0
0x0ddd34…0ddec8 ]
0x0ddd34…0ddec8 }
0x0ddec8…0de05c Dummy {f00=0x000d, f01=0x0190, f02=» 2 P IDENT SYSLCR REL 11.0 81-10-06 870105041100 P : P =5,NOT CORRECT CHANGE IN B P REL 11.0 81-09-16 f . P =4,T:A FOR TRABUG COMMON FOR ALL TASKS P REL 11.0 81-05-19 , P =3,WHEN MMUPAG=1 APPLICATION CODE IS * P
0x0de05c…0de1f0 Dummy {f00=0x000d, f01=0x018e, f02=»ING BUFFERS p P FROM TOP P PRR 11.0 80-12-03 * 0 P =1,APPLICATION CONTROL BLOCK IS EXTENDED J P WITH 1 WORD ~ P PRR 11.0 80-11-19 P P > P********************************************************
0x0de1f0…0de384 Dummy {f00=0x000d, f01=0x0190, f02=» N P* P* P* P* & P* 0 P* : > P********************************************************** D P* P* CREDIT APPLICATION: F P* SYSLCR READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-
0x0de384…0de518 Dummy {f00=0x000d, f01=0x0190, f02=»F TO FOLLOW MONITOR AND WILL ALSO MOVE r P* DDIV-PROTOTYPE . . P* N H P* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW X H P* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS H P* ARE, IN CASE OF M
0x0de518…0de6ac Dummy {f00=0x000d, f01=0x018e, f02=» P* 'OVER' SYSLCR. P EJECT " P 0 P*************************** < P* * ` P* ENTRIES AND EXTERNALS * P* * P*************************** P P* LABEL ENTR
0x0de6ac…0de840 Dummy {f00=0x000d, f01=0x0190, f02=» 2 P EXTRN XMOVE MOVE BLOCKS INSIDE MEMORY VIA MMU P EXTRN MOVMMT MOVE MM-TABLE > $ P EXTRN GETTAB FIND TTAB-ADDRESS b $ P EXTRN GETTTB FIND TTAB-ADDRESS 0 P EXTRN MMENT FIND LAST USED ENTRY IN MM-TAB ( P EXTRN ERROR ERROR HANDLING ROUTIN
0x0de840…0de9d4 (1, 281) Dummy {f00=0x000d, f01=0x0190, f02=»DEFINITION BLOCK p * P EXTRN CONVRT CONVERSION ASCII-BINARY 2 P EXTRN GETNUM CONVERT 3 ASCII-DIGITS TO BINARY F & P EXTRN MULT MULTIPLICATION ROUTINE | 4 P EXTRN GETAPP FIND APPLICATION AND ITS CONF.FILE P EXTRN QUEJOB QUEUE TASK P " P*
0x0de9d4…0deb68 Dummy {f00=0x000d, f01=0x0190, f02=»RN MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P EXTRN MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' 4 P EXTRN PSW j " P EXTRN INILEN LENGTH OF SYSINI | , P EXTRN LSTPAG DISPL. TO 'ENTRY-POINTER' P EXTRN MMBEG P P EJECT $ P* SYSTEM CON
0x0deb68…0decfc Dummy {f00=0x000d, f01=0x0190, f02=» " P EXTRN SCTEFA END OF FREE AREA " P EXTRN SCTNOP NUMBER OF PAGES * P EXTRN SCTPSZ PAGE SIZE P P EXTRN SCTOPT SYSTEM OPTION p $ P EXTRN SCTPAG PAGE TABLE ADDRESS 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE P EXTRN SCTBUG BUGGER
0x0decfc…0dee90 Dummy {f00=0x000d, f01=0x0190, f02=»OF COMMON-PAD AREA | P P* EXTERNAL LABELS " P < P* D , P EXTRN TTB:SA START OF SAVE AREA IN TTAB N 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS ~ & P EXTRN TTB:MT DISPL. TO MMU TABLE $ P EXTRN TTB:ID DISPL. TO TASK ID
0x0dee90…0df024 Dummy {f00=0x000d, f01=0x018e, f02=»********************************* , P* CONDITIONAL ASSEMBLY * * , P*************************************** Z P PMMUPAG EQU 1 0 = NO MMU P . PSWPBLK EQU 0 0 = NO SWAPPABLE WORK BLOCKS P 2 P********************
0x0df024…0df1b8 Dummy {f00=0x000d, f01=0x0190, f02=» ` 2 P* ==================== * 2 P* * > 2 P********************************************* t P 4 PAPLADA EQU 22 APPL. DISC FILE ADDR. (2 WORDS) =1 ( PAPLREL EQU 18 APPL. RELOCATION
0x0df1b8…0df34c Dummy {f00=0x000d, f01=0x0190, f02=»APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE ADDRESS . 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) X . PAPLMMC EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL
0x0df34c…0df4e0 Dummy {f00=0x000d, f01=0x018e, f02=»M START ADDRESS z " PAPLTYP EQU 8 APPLICATION TYPE . PAPLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 > P EJECT p P ~ P PROGRAM STRUCTURE: P F P* ENTRY ->! * SYSLCR ENTRY * ! N P* ! READ
0x0df4e0…0df674 (1, 282) Dummy {f00=0x0044, f01=0x0190, f02=» F P* ! T:ATAB: ! F P* ! -A TABLE OF 'NUMBER OF REAL TASKS'IS BUILT AT ! N F P* ! THE END OF MONITOR. ! F P* ! U:BTAB:
0x0df674…0df808 Dummy {f00=0x0044, f01=0x0190, f02=»OTYPE. ! v F P* ! ! 0 F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! z F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB !
0x0df808…0df99c Dummy {f00=0x0044, f01=0x0190, f02=» ! X < P* ! SYSLCO AND SYSLBA),SYSINI AND CONF.DATA , P* ! TO FOLLOW SHADOW-TABLES T F P* ! -CONTINUE IN PART 2.A ! F P* -----------------------------------------------
0x0df99c…0dfb30 Dummy {f00=0x0044, f01=0x0190, f02=» ! ~ F P* ! C O M D A T ! 8 F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. ! F P* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO
0x0dfb30…0dfcc4 Dummy {f00=0x0044, f01=0x0190, f02=» ! ` F P* ! C L A D A T ! F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! d F P* ! AND DWB'S. ! F P* ! -B
0x0dfcc4…0dfe58 Dummy {f00=0x0044, f01=0x0190, f02=» ! -MOVE D.T. & W.B., COPY UWB'S ! F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! F F P* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE ! F P* ! W.B.-ADDRESS
0x0dfe58…0dffec Dummy {f00=0x0044, f01=0x0190, f02=» ! n F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! ( F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! r F P* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK ! F P*
0x0dffec…0e0180 Dummy {f00=0x0044, f01=0x0190, f02=» ! P F P* ! -CONTINUE IN PART 2.B ! F P* !-----------------------------------------------------! T P P* ! R E A L T A ! PART 2.B F P* ! BUILD RE
0x0e0180…0e0314 (1, 283) Dummy {f00=0x0044, f01=0x0190, f02=» ! -COPY T:A'S ACCORDING TO SHADOW-TABLE ! F P* ! -BUILD TWB'S AND RESERVE FOR SWB'S ! @ F P* ! -ALLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:A
0x0e0314…0e04a8 Dummy {f00=0x0044, f01=0x0190, f02=» PARTS IN THIS PROGRAM ! h F P* !-----------------------------------------------------! & P EJECT p . P***************************************** ~ . P* * . P* COMMON DISPLACEMENTS AND CONSTANTS
0x0e04a8…0e063c Dummy {f00=0x0044, f01=0x0190, f02=»DRESS TO APPL. CONTROL TABLE $ PAPPLNO EQU 18 APPLICATION NUMBER $ ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE L . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA x , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF DDIV PROTOTYPE $ PDY
0x0e063c…0e07d0 Dummy {f00=0x0044, f01=0x0190, f02=»L) l , PFYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER 6 PLSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART : ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP t * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA $ PM:REL EQU 16 R
0x0e07d0…0e0964 Dummy {f00=0x0044, f01=0x0190, f02=»ILE END ADDRESS ~ ( PTTAB EQU 32 WORK AREA FOR MMU TABLE * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS D , PSWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG r $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2 $ PCOM03 EQU 44 COMMON WO
0x0e0964…0e0af8 Dummy {f00=0x0044, f01=0x0190, f02=» t P*************************** P* , & PT:ATOD EQU 0 T:ATAB 'OLD' ADDRESS 6 & PU:BTOD EQU 2 U:BTAB 'OLD' ADDRESS ` & PS:BTOD EQU 4 S:BTAB 'OLD' ADDRESS & PT:ATNW EQU 6 T:ATAB 'NEW' ADDRESS & PU:BTNW EQU 8 U:BTAB 'NEW' ADDRESS & P
0x0e0af8…0e0c8c Dummy {f00=0x0044, f01=0x0190, f02=»T:ANO EQU 16 TOT. NUMBER OF T:A'S * PDDIVFR EQU 18 PROT. DDIV FROM ADDRESS * ( PS:BLEN EQU 20 LENGTH OF REAL S:BTAB X , PPDDIVL EQU 22 LENGTH OF PDDIV AND S:GTAB P EJECT & P********************************* & P* SCRATCH-PAD DISPLACEMENT
0x0e0c8c…0e0e20 Dummy {f00=0x0044, f01=0x0190, f02=»SUPER-LOOP | ( PCSTAPP EQU 74 CONF.START FOR A APPL. 4 PDDIVST EQU 76 START OF DDIV-PROTOTYPE AFTER MOVE > : PENDADD EQU 78 END-ADDRESS INDICATOR FOR TABLE-SCANNING v 4 PFLAG EQU 80 REAL TASK DATA PROCESSING INDICATOR $ PMMREL1 EQU 96 PHYSICAL PAGE
0x0e0e20…0e0fb4 (1, 284) Dummy {f00=0x0044, f01=0x0190, f02=»NGTH 1 z PMOVLE2 EQU 108 MOVE LENGTH 2 ( PNEWAD1 EQU 110 SAVE FOR W.B.ADDRESS 2 ( PNEWAD2 EQU 112 SAVE FOR D.T. ADDRESS ^ , PPDDIV EQU 82 INDICATE IF SPACE IN PDDIV , PRELOCA EQU 100 SAVE FOR RELOCATION BASE PSWITCH EQU 114 D.T.INDICATOR
0x0e0fb4…0e1148 Dummy {f00=0x0044, f01=0x0190, f02=»ICATOR z $ PWBADD EQU 118 SAVE W.B.-ADDRESS PSAVE01 EQU 124 6 PSAVE02 EQU 126 L PSAVE03 EQU 128 b PSAVE04 EQU 84 x PSAVE05 EQU 86 PSAVE06 EQU 88 PSAVE07 EQU 90 2 PSAEFA1 EQU 92 SAVE SCTEFA BITS 0-5 PAGE NUMBER 2 PSA
0x0e1148…0e12dc Dummy {f00=0x0044, f01=0x0190, f02=»** ** P ** CONSTANTS ** P ***************** 6 P ** ** R P ***************** n P P********** P* P:MTAB * P********** PT:ATAB EQU 0 PU:BTAB EQU 2 PP:BAS EQU 6 SEGMENT
0x0e12dc…0e1470 Dummy {f00=0x0044, f01=0x0190, f02=»RESS p , PI:RSTE EQU 42 INTERPRETER RESTART ENTRY ! & PTRABUG EQU 44 TASK ID. FOR TRABUG ! < P ! f P ! n P********** ! v P* U:BTAB * ! P********** ! 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB ! " PUPADDR EQU 2 PROTOTYPE ADDRESS ! PUP
0x0e1470…0e1604 Dummy {f00=0x0044, f01=0x0190, f02=»AL U:BTAB ! p * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB " PURNUMB EQU 4 NUMBER OF UWB'S " @ PURLENG EQU 6 LENGTH OF UWB " d P EJECT " P " P " P " $ P******************************* " $ P* CONFIGURATION FILE (CONFIG) * " $ P
0x0e1604…0e1798 Dummy {f00=0x0044, f01=0x0190, f02=»2N NUMBER OF TASKS " ~ , PTDBID EQU TDBNT+2 6A TASK ID START VALUE # , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS # J $ PTDBTL EQU TDBMC+6 6A TASK LEVEL # z : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES # P* # & PTDBFST EQU TDBNC+2 FIRST TERM
0x0e1798…0e192c Dummy {f00=0x0044, f01=0x0190, f02=» * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD $ P* $ 2 P* COMMON DEVICE DEF. BLOCK: $ < PCDBBT EQU 0 1A BLOCK TYPE $ ` 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES $ ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD $ P* $ P* $ & P* USER WORK
0x0e192c…0e1ac0 Dummy {f00=0x0044, f01=0x0190, f02=»NU+3 FIRST UDB-RECORD $ PNAMUWB EQU 3 NAME OF UWB % " PNUMUBL EQU 3 NUMBER OF BLOCKS % > . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH % d P EJECT % P % P % P********* % P* T:A * % P********* % PT:ASTA EQU -14 T:A STA
0x0e1ac0…0e1c54 (1, 285) Dummy {f00=0x0044, f01=0x0190, f02=»NUMBER (HERE LENGTH % t 2 P OF ALL DSCB-RECORDS & PT:DAD EQU -8 ADDRESS TO T:D & R * PCIA EQU -6 CURRENT INSTUCTION ADDRESS & v ( P (HERE: DISPLACEMENT TO T:A-START) & P & PT:ATID EQU -4 TASK ID & PSTKE EQU -2 ST
0x0e1c54…0e1de8 Dummy {f00=0x0044, f01=0x0190, f02=»D: & PDSCBL EQU 20 RECORD LENGTH ' " PBL EQU 2 LENGTH OF FIX BUFFER ' , 2 PSB EQU 4 INDEX TO DSCB WHICH SHARE THE BUFFER ' R PBP EQU 18 BUFFER POINTER ' P EJECT ' P ' P ' P********* ' P* T:D * ' P********* ' ( PFCD
0x0e1de8…0e1f7c Dummy {f00=0x0044, f01=0x018e, f02=»DATTAB EQU 6 DISPLACEMENT TO BEGINNING OF DAT-TABLE ' & PWATLEN EQU 8 NUMBER OF WATELEMENTS ( < 0 PTWBMSK EQU 10 MASK FOR TWB'S (ONE BIT/ENTRY) ( f * PSWBMSK EQU 12 MASK FOR SWB'S -"- ( * PCWBMSK EQU 14 MASK FOR CWB'S -"- ( * PUWBMSK EQU 16 MASK
0x0e1f7c…0e2110 Dummy {f00=0x0044, f01=0x0190, f02=» P ) P**************** ) P* SOP-HANDLING * ) $ P**************** ) < PSOP EQU /2E DEVICE ADDRESS ) T P ) v P LAMP CODE MEANING ) ~ P --------- ------- ) PLMP1 EQU /400 SYSLOAD RUNS ) PLMP2 EQU /200 READ ERROR ) " PLMP3 EQU /10
0x0e2110…0e22a4 Dummy {f00=0x0044, f01=0x0190, f02=»LMP7 EQU /10 MM-TABLE OVERFLOW ) PLMP8 EQU 8 * & PLMP9 EQU 4 * 8 PLMP10 EQU 2 * J PLMP11 EQU 1 * ^ P EJECT * r P********************* * P* OTHER CONSTA+STKCOMNTS * * P********************* * P * & PWBLEN EQU -4 LENGTH OF WORK-
0x0e22a4…0e2438 Dummy {f00=0x0044, f01=0x018e, f02=» FIRST DSET * | $ PFCBDD2 EQU 10 DISP TO 2:ND DSET + $ PFCBDD3 EQU 64 DISP. TO 1:ST DAT + < $ PFCBDD4 EQU 66 DISP. TO 2:ND DAT + d P + $ PSTKSZ EQU 128 DEFAULT STACK-SIZE + P + ( PSEGREC EQU 6 RECORD LENGTH IN S:GTAB + 8 PNUMSEG EQU 10 DI
0x0e2438…0e25cc Dummy {f00=0x0044, f01=0x0190, f02=» + ( PNTPA EQU 4 INTERPRETER START ADDRESS , & PIHRTC EQU 4 RTC INTERRUPT ADDRESS , 4 $ PRTCDA EQU /1B RTC DEVICE ADDRESS , ^ P , > PTABLEN EQU 24 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD AREA , 0 PACBLEN EQU 26 APPL. CONTROL BLOCK LENGTH =1 , P
0x0e25cc…0e2760 Dummy {f00=0x0044, f01=0x0190, f02=» * , Z F P* DATA [REL-ADDRESS] * - F P* * - ^ F P***************************************************************** - P - P -
0x0e2760…0e28f4 (1, 286) Dummy {f00=0x0045, f01=0x0190, f02=»******* ******* - 2 P** ** . 6 2 P* SYSLOAD PART 1 * . l 2 P** ** . 2 P***** ***** .
0x0e28f4…0e2a88 Dummy {f00=0x0045, f01=0x0190, f02=»-TABLES * . 2 P* * / , 2 P********************************************* / b P / P EJECT / P / P* START OF PROGRAM PART 1 * / P / P / PSYSLCR EQU * / P*
0x0e2a88…0e2c1c Dummy {f00=0x0045, f01=0x0190, f02=»PAD AREA / n PSYA10 SUK A2,2 0 P CMR A2 CLEAR MEMORY WORD 0 & " P CWR A1,A2 ALL WORDS CLEARED? 0 H P RB(NE) SYA10 NO 0 n PSYA20 EQU * 0 P LD A1,SCTSFA 0 8 P ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE 0 * P LDKL A10,STKEND START OF 1:
0x0e2c1c…0e2db0 Dummy {f00=0x0045, f01=0x0190, f02=»APPLICATION 0 P* 1 PSYA100 EQU * 1 $ P LDKL A1,'CR' CREDIT APPLICATION 1 2 . P CALL GETAPP FIND APPL. AND ITS CONF.FILE 1 Z 2 P RF(NZ) SYA105 MORE APPLICATIONS OF THIS TYPE 1 P LD A2,APPLNO+STKCOM 1 P RF(NZ) SYA102 1 P LDKL A2,LCREND 1
0x0e2db0…0e2f44 Dummy {f00=0x0045, f01=0x0190, f02=»COM 1 P ABR A2 GO TO SYA152 2 PSYA105 EQU * 2 ( 8 P ST A11,CSTAPP+STKEND SAVE CONF.START FOR THIS APPL. 2 < P EJECT 2 x P 2 , P* READ CONFIG FILE AND BUILD SHADOWTABLE 2 P 2 P IFT MMUPAG=0 2 * P LD* A2,APLLAC,A1 GET START OF P:MTA
0x0e2f44…0e30d8 Dummy {f00=0x0045, f01=0x0190, f02=»B,A2 GET U:BTAB FROM P:MTAB 2 " P SUK A4,2 INCLUDE LENGTH-WORD 3 $ P ST A4,U:BTOD,A10 3 J P XIF 3 d P IFT SWPBLK-MMUPAG=1 3 p ( P LD A4,S:BTAB,A2 GET S:BTAB ADDRESS 3 $ P SUK A4,2 ADJUST FOR LENGTH WORD 3 P ST A4,S:BTOD,A10 SAVE 3 P XIF 3
0x0e30d8…0e326c Dummy {f00=0x0045, f01=0x0190, f02=»STKEND ADD LAST SHADOW (MONITOR) END ADDRESS 3 P* CHECK ADDRESSES 4 4 P 4 N " P LDR A11,A3 END OF SHADOW-TAB 4 V . P LD A9,SAVE01+STKEND GET LOCATION COUNTER 4 | P CALL CMPADR 4 P RF(L) SYA110 OK! 4 " P LDKL A1,LMP3 MEMORY OVERFLOW 4 P CALL
0x0e326c…0e3400 Dummy {f00=0x0045, f01=0x0190, f02=»2 NEXT 4 P STR A2,A3 CLEAR 5 P CW A3,SHADST+STKEND ALL? 5 & P RB(NE) ZERO NO! 5 H " P STR A4,A3 STORE TABLE LENGTH 5 ` P* 5 ( P* READ CONF.FILE AND GET TASK CLASS 5 P* 5 8 P LD A11,CSTAPP+STKEND GET CONF.START FOR THIS APPL. 5 " P LC A2
0x0e3400…0e3594 (1, 287) Dummy {f00=0x0045, f01=0x018e, f02=» 5 ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID 6 P SLL A2,8 . 6 4 P LC A2,TDBMC+5,A11 ... 6 H P CWK A2,'TB' BUGGER TASK? 6 f P RF(NE) SYA125 NO! 6 2 P ST A2,BTASK,A10 INDICATE BUGGER TASK PRESENT 6 " P RF SYA136 SKIP TO NEXT BLOCK 6 PSYA125 LDR
0x0e3594…0e3728 Dummy {f00=0x0045, f01=0x0190, f02=» 6 PSYA130 ADKL A8,2 NEXT T:A 7 P LDR* A6,A8 GET T:A ADDRESS 7 * P SUK A4,2 7 N P RF(NZ) SYA135 7 ` 0 P LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) 7 v P CALL ERROR 7 PSYA135 EQU * 7 P CW A2,T:ATID,A6 TID EQUAL? 7 P RB(NE) SYA130 NO!
0x0e3728…0e38bc Dummy {f00=0x0045, f01=0x0190, f02=» P XIF 8 P IFT MMUPAG=1 8 6 P LD A2,FYSPAG+STKCOM GET LAST PHYSICAL PAGE NUMBER 8 & P ST A2,SAEFA1+STKEND SAVE 8 ` * P LD A2,LSTADR+STKCOM GET LAST ADDRESS 8 P ANKL A2,/FFF GET OFFSET 8 P ST A2,SAEFA2+STKEND SAVE 8 , P LD* A2,APLMMC,A1 GET
0x0e38bc…0e3a50 Dummy {f00=0x0045, f01=0x018e, f02=» ADDRESS 8 x $ P SUKL A12,2 INCLUDE LENGTH WORD 9 & P ST A12,T:ATOD,A10 SAVE IN APPTAB 9 8 $ P EL A4,U:BTAB,A2 U:BTAB ADDRESS 9 b $ P SUK A4,2 ADJUST FOR LENGTH WORD 9 $ P ST A4,U:BTOD,A10 SAVE IN APPTAB 9 P XIF 9 P IFT MMUPAG+SWPBLK=2 9 ( P EL A4
0x0e3a50…0e3be4 Dummy {f00=0x0045, f01=0x0190, f02=» 9 P* T:ATAB PROCESSING: : P : $ P ELR A4,A12 T:ATAB-LENGTH : 0 P LDR A3,A4 SAVE : R 0 P SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE : j > P AD A3,SHADST+STKEND ADD LAST SHADOW (MONITOR) END ADDRESS : P* CHECK ADDRESSES : P : $ P LDR A
0x0e3be4…0e3d78 Dummy {f00=0x0045, f01=0x0190, f02=»A1,LMP3 MEMORY OVERFLOW : P CALL ERROR ; ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS ; 4 P* CLEAR T:ATAB SHADOW-TABLE: ; ` P ; PSYA115 SUK A3,2 NEXT ; P CMR A3 CLEAR ; P CW A3,SHADST+STKEND ALL? ; P RB(NE) SYA115 NO! ; " P STR A4,A3
0x0e3d78…0e3f0c Dummy {f00=0x0045, f01=0x0190, f02=»S APPL. ; d " P LC A2,TDBBT,A11 GET BLOCKTYPE < P CCK A2,'TT' TASK DEF? < 6 P RF(E) SYA120 OK! < T P LDK A1,LMP4 NO TASK PRESENT < n P CALL ERROR < ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID < P SLL A2,8 . < P LC A2,TDBMC+5,A11 ... < P CWK
0x0e3f0c…0e40a0 Dummy {f00=0x0045, f01=0x0190, f02=»CK < x PSYA125 LDR A8,A12 SAVE = P ELR A4,A12 T:ATAB LENGTH = ( P* = J P* SCAN T:ATAB = T * P* FIND CORRESPONDING TASK CLASS IN T:A = j P* = PSYA130 ADKL A8,2 NEXT T:A = P ELR A6,A8 GET T:A ADDRESS = P SUK A4,2 = P RF(NZ) SYA135 =
0x0e40a0…0e4234 (1, 288) Dummy {f00=0x0045, f01=0x0190, f02=» TID EQUAL? = P RB(NE) SYA130 NO! > P* > . , P* STORE NUMBER OF TASKS IN SHADOW-TABLE > 8 P* FOR THIS TASK CLASS > h P* > P ELR A5,A12 > P SUR A4,A5 T:ATAB LENGTH > P XIF > . P NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB > ( P LC A5
0x0e4234…0e43c8 Dummy {f00=0x0045, f01=0x018e, f02=»OW TABLE > n P ADR A2,A4 ? 6 P ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE ? " P ? P* SKIP TO NEXT BLOCK ? h P ? PSYA136 CALL NXTBLK ? PSYA137 EQU * ? P CCK A2,'TT' ? & P RB(E) SYA120 NEXT TASK DEF BLOCK ? P CCK A2,'CC'
0x0e43c8…0e455c Dummy {f00=0x0045, f01=0x0190, f02=» P RF(NE) SYA141 NO UWB'S @ 2 P LD A8,U:BTOD,A10 GET MODIFIED U:BTAB ADDRESS @ $ 6 P CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE @ Z PSYA141 EQU * @ P IFT SWPBLK=1 @ P LCR A2,A11 @ P CCK A2,'SS' @ P RF(NE) SYA143 @ P LD A8,S:BTO
0x0e455c…0e46f0 Dummy {f00=0x0045, f01=0x0190, f02=»0 SAVE IN APPTAB @ P LDR* A1,A2 GET LENGTH A P IFT MMUPAG=1 A 6 * P SLL A1,1 RESERVE FOR MM-ADDRESS-TABLE A L P XIF A z : P ADS A1,SHADST+STKEND SAVE START OF NEXT SHADOW-TABLE A P ADKL A10,TABLEN NEXT APPTAB A P LDKL A1,SYA100 A P AD A1,M
0x0e46f0…0e4884 Dummy {f00=0x0045, f01=0x0190, f02=»************* A V L P* * B L P* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * B f L P* ================================================================= * B L P*
0x0e4884…0e4a18 Dummy {f00=0x0045, f01=0x0190, f02=» * B V L P* * C L P* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * C f L P* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * C L P*
0x0e4a18…0e4bac Dummy {f00=0x0045, f01=0x0190, f02=» * C V L P* * D J P* WORK REGISTERS: A1,A2,A3,A4,A6,A12 * D f L P* * D L P* S
0x0e4bac…0e4d40 Dummy {f00=0x0045, f01=0x018e, f02=» * D T L P*********************************************************************** E P E d PUSWBTP EQU * E l P E P IFT MMUPAG=0 E P ADKL A11,1 E P LDR A6,A11 E * P CALL GETNUM PACK 3 DIG. RESULT IN A5 E $ P LDR A1,A5 SAVE NUMB
0x0e4d40…0e4ed4 (1, 289) Dummy {f00=0x004e, f01=0x0190, f02=» E j PSYA145 EQU * F 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG F P SLL A2,8 F P P LC A2,1,A11 GET 2:ND CHAR F b 6 P CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP F * P RF(E) FRSTOK FIRST TWO CHARACTERS OK! F 0 PSYA147 SUK A3,UP:REC DEC. NU
0x0e4ed4…0e5068 Dummy {f00=0x004e, f01=0x0190, f02=» ADD TO NEXT RECORD F P RB SYA145 G $ PFRSTOK LC A2,2,A11 GET 3:RD CHAR G . P CC A2,UPNAME+2,A12 G V P RB(NE) SYA147 .NEQ. G r P EJECT G P G P* PROTOTYPE FOUND * G P G 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG G
0x0e5068…0e51fc Dummy {f00=0x004e, f01=0x0190, f02=»CONFIG FILE G r P RB(P) SYA142 H P ADKL A11,UDBFST-1 H * P RTN A14 H D P XIF H T P IFT MMUPAG=1 H ` P ADKL A11,1 H v P LDR A6,A11 H * P CALL GETNUM PACK 3 DIG. RESULT IN A5 H $ P LDR A1,A5 SAVE NUMBER OF UWB'S H PSYA142 EQU * H P
0x0e51fc…0e5390 Dummy {f00=0x004e, f01=0x018e, f02=»CR A2,A11 GET FIRST CHARACTER FROM CONFIG H P SLL A2,8 I 2 P LC A2,1,A11 GET 2:ND CHAR I D 2 P EL A4,UPNAME,A12 GET FIRST WORD IN PROTOTYPE I f P CWR A2,A4 I P RF(E) FRSTOK FIRST WORD OK! I 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S I P R
0x0e5390…0e5524 Dummy {f00=0x004e, f01=0x0190, f02=» P RB SYA145 J 0 PFRSTOK LC A4,2,A11 GET 3:RD CHAR FROM CONFIG J 0 P EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY J J P SRL A2,8 J ~ P ANK A4,/FF J P CWR A4,A2 J P RB(NE) SYA147 .NEQ. J P EJECT J P J P* PROTOTYPE FOUND * J P
0x0e5524…0e56b8 Dummy {f00=0x004e, f01=0x0190, f02=»VERT J 4 P EL A4,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE K P ANKL A4,/FF00 K D P ORR A4,A5 K Z P ES A4,UPNUMB-1,A12 K l . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE K P RB(P) SYA142 K P ADKL A11,UDBFST-1 K P RTN A14 K P XIF K P E
0x0e56b8…0e584c Dummy {f00=0x004e, f01=0x0190, f02=»W-TABLES) K d P ADK A7,1 L P ANKL A7,/FFFE EVEN ADDRESS L $ P* L H P* CALULATE RELOCATION L R P* L p & P LDKL A2,PART2 GET START OF PART2 L z , P AD A2,M:REL+STKCOM ADD RELOCATION BASE L P LDR A3,A2 L P SUR A2,A7 MOVE LENGTH L P NGR
0x0e584c…0e59e0 Dummy {f00=0x004e, f01=0x0190, f02=»Y EXIST SYSLCO AND SYSLBA) L h P* CONF.FILE AND SYSINI M " P* M @ " P LDR A2,A7 TO-ADDRESS (SYSLCR) M J P ANKL A2,/F000 FIRST PAGE M p , P ST A2,MMREL1+STKEND SAVE PHYSIVAL PAGE M " P SRL A2,2 SHIFT FOR MM-PAGING M P LDKL A11,MMDDIV M , P ADR A11
0x0e59e0…0e5b74 (1, 290) Dummy {f00=0x0064, f01=0x0190, f02=» M z P ADKL A2,/400 PAGE INCREMENT N P SUK A1,1 ALL? N , P N B P RB(NZ) SYA157 NO! N J * P ANKL A7,/FFF GET DISPLACEMENT IN PAGE N d P XIF N 2 P ST A7,SHADST+STKEND SAVE (LOGICAL) TO-ADDRESS N $ P LDR A2,A13 A13=START OF SYSINI N P SUR A2,A3 L
0x0e5b74…0e5d08 Dummy {f00=0x0064, f01=0x0190, f02=»NGTH TO MOVE N t 0 P AD A2,CONLEN+STKCOM ADD LENGTH OF CONF.FILE O P ADR A7,A2 O H 6 P ST A7,DDIVST+STKEND SAVE START OF DDIV AFTER MOVE O Z P* O " P* CALCULATE DDIV FROM-ADDRESS O P* O , P CM APPLNO+STKCOM RESET NUMBER OF APPL. O * P LDKL A10,
0x0e5d08…0e5e9c Dummy {f00=0x0064, f01=0x0190, f02=»ON O r P CALL GETAPP ANY APPLICATION P P ABR(Z) A5 NO P . " P LD A3,SCTOPT GET OPTION WORD P D P IFT MMUPAG=0 P j * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB P $ P LDR* A9,A2 GET START OF P:MTAB P 0 P ST A3,OPTION,A9 STORE OPTION WORD IN P:MTAB P 0
0x0e5e9c…0e6030 Dummy {f00=0x0064, f01=0x0190, f02=» P XIF Q P IFT MMUPAG=1 Q * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB Q & " P ELR A9,A2 GET START OF P:MTAB Q T 0 P ES A3,OPTION,A9 STORE OPTION WORD IN P:MTAB Q z 0 P EL A3,I:RSTE,A9 GET INTERPRETER ERROR ENTRY Q " P ST A3,APLIOE,A1 STORE IN ACB Q , P
0x0e6030…0e61c4 Dummy {f00=0x0064, f01=0x0190, f02=»LT A2*A3 RESULT IN A3 Q P ADR A1,A3 R P ADK A1,NUMSEG+2 R 0 , P ST A1,DDIVFR,A10 SAVE DDIV FROM ADDRESS R H 6 P LD A6,DDIVST+STKEND GET START OF DDIV AFTER MOVE R x " P SUR A6,A1 RELOCATION FOR DDIV R P EJECT R P R P R P R 0 P*
0x0e61c4…0e6358 Dummy {f00=0x0064, f01=0x0190, f02=» * R l . P* A9=P:MTAB A6=MOVE-RELOC * S . P***************************************** S @ P IFT MMUPAG=0 S r P S P* INITIATE POINTERS S P S ( P LD A8,T:ATOD,A10 GET T:ATAB ADDRESS S P LDR* A3,A8 GET LENGTH S P ADR A3,A8
0x0e6358…0e64ec Dummy {f00=0x0064, f01=0x0190, f02=» S x & P LDR A2,A8 2:ND POINTER IN T:ATAB T & P LDK A3,2 SET 'NEW' T:ATAB COUNTER T 2 . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR T P T P* SCAN T:ATAB: T P T " PSYA160 ADKL A8,2 TAKE NEXT T:A T $ P ADK A5,2 NEXT T:A IN SHADOW-TAB T P CW A8
0x0e64ec…0e6680 Dummy {f00=0x0064, f01=0x0190, f02=»160 THIS T:A IS NOT USED!!!!! T " P ADR A11,A7 ACCUMULATE LENGTH U & , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH U L , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS U | ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS U 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLA
0x0e6680…0e6814 (1, 291) Dummy {f00=0x0067, f01=0x018e, f02=» W.B.-ADDRESSES U P V $ P LD A12,T:DAD,A1 GET T:D-ADDRESS V $ P LD A7,WATLEN,A12 LENGTH OF WAT V H . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS V p PSYA165 SUK A7,1 DEC. COUNTER V P RB(N) SYA160 TAKE NEXT T:A V P ADRS A6,A1 RELOCATE V P X
0x0e6814…0e69a8 Dummy {f00=0x0067, f01=0x0190, f02=» P ADR A3,A8 END OF T:ATAB W P ST A3,ENDADD+STKEND SAVE W $ 4 P LD A5,SHADOW,A10 GET START OF T:ATAB SHADOW-TAB W F P LDR A4,A5 2:ND POINTER W ~ & P LDR A2,A8 2:ND POINTER IN T:ATAB W & P LDK A3,2 SET 'NEW' T:ATAB COUNTER W . P SUR A11,A11 CLEAR REA
0x0e69a8…0e6b3c Dummy {f00=0x0067, f01=0x0190, f02=» W p P CW A8,ENDADD+STKEND X P RF(E) SYA170 ALL DONE X $ P ELR A1,A8 GET T:A X B * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB X , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! X " P ADR A11,A7 ACCUMULATE LENGTH X , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH
0x0e6b3c…0e6cd0 Dummy {f00=0x0067, f01=0x0190, f02=». ON NEW PLACE) X l P ELR A12,A8 GET T:A-ADDRESS Y P ADR A12,A6 RELOCATE Y < . P ESR A12,A2 STORE ADDR. (EV. ON NEW PLACE) Y X P* RELOCATE W.B.-ADDRESSES Y P Y $ P EL A12,T:DAD,A1 GET T:D-ADDRESS Y $ P EL A7,WATLEN,A12 LENGTH OF WAT Y . P ADK
0x0e6cd0…0e6e64 Dummy {f00=0x0067, f01=0x0190, f02=»END SAVE Y ~ P ELR A10,A1 GET ADDRESS Z P ADR A10,A6 RELOCATE Z 0 P ESR A10,A1 Z L " P LD A10,SAVE04+STKEND RESTORE Z ` P XIF Z P ADK A1,4 NEXT W.B. Z P RB SYA165 Z P Z PSYA170 EQU * Z > P ST* A3,SHADOW,A10 STORE NEW TABLE LENGTH IN
0x0e6e64…0e6ff8 Dummy {f00=0x0067, f01=0x0190, f02=» AND IN T:ATAB Z ~ P XIF [ 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR [ " ( P SLL A2,1 CALC. REAL LENGTH (BYTES) [ V P ADK A2,2 [ . P ST A2,T:ANO,A10 SAVE TOT. NUMBER OF T:A'S [ P [ P EJECT [ " P****************************** [ $ P*
0x0e6ff8…0e718c Dummy {f00=0x0067, f01=0x0190, f02=»G=0 [ $ P LD A5,U:BTOD,A10 U:BTAB ADDRESS P LDR* A3,A5 LENGTH 4 P ADK A5,2 SKIP LENGTH WORD N P SUK A3,2 -"- p " PSYA180 RF(Z) SYA185 ALL DONE! P ADRS A6,A5 RELOCATE P XIF P IFT MMUPAG=1 $ P LD A5,U:BTOD,A10 U:BTAB ADD
0x0e718c…0e7320 Dummy {f00=0x0067, f01=0x0190, f02=»04+STKEND STORE P ELR A10,A5 GET ADDRESS ] P ADR A10,A6 RELOCATE ] 8 P ESR A10,A5 ] T " P LD A10,SAVE04+STKEND RESTORE ] h P XIF ] 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP ] P SUK A3,UP:REC ] P RB SYA180 ] P EJECT ]
0x0e7320…0e74b4 (1, 292) Dummy {f00=0x0067, f01=0x0190, f02=» ADDRESS ] x " P ELR A3,A5 LENGTH OF PROTOTYPE ^ P LDR A2,A3 SAVE ^ 6 " P SUK A3,2 EXCLUDE LENGTH WORD ^ N , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED! ^ t $ P EL A4,2,A5 GET PROT. W.B.-ADDR. ^ P ADR A4,A6 RELOCATE ^ P ES A4,2,A5 STORE IT BACK ^ ,
0x0e74b4…0e7648 Dummy {f00=0x0067, f01=0x0190, f02=»DK A2,2 INCREMENT LENGTH ^ ( P SUK A4,1 DECREMENT NUMBER OF COPIES _ P RB SYA192 _ L 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE _ ^ $ P SUK A3,UP:REC DECREMENT LENGTH _ P RB SYA190 _ P XIF _ P IFT SWPBLK-MMUPAG=1 _ $ P LD A5,S:BTO
0x0e7648…0e77dc Dummy {f00=0x0067, f01=0x0190, f02=»SYA195 RF(Z) SYA199 ALL RECORDS SCANNED! _ $ P LD A4,2,A5 GET PROT. W.B.-ADDR. ` 0 P ADR A4,A6 RELOCATE ` X P ST A4,2,A5 STORE IT BACK ` t , P LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES ` P ANK A4,/FF ` . PSYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! `
0x0e77dc…0e7970 Dummy {f00=0x0067, f01=0x0190, f02=»S:BTAB PROTOTYPE ` l $ P SUK A3,UP:REC DECREMENT LENGTH a P RB SYA195 a @ P XIF a R P IFT SWPBLK=1 a ^ 4 PSYA199 ADS A6,S:BTOD,A10 RELOCATE S:BTAB ADDRESS a t 0 P ST A2,S:BLEN,A10 SAVE LENGTH OF REAL S:BTAB a P XIF a P EJECT a P a 6 P* RELO
0x0e7970…0e7b04 Dummy {f00=0x0067, f01=0x0190, f02=»T APPTAB a | P LDKL A1,SYA156 b P AD A1,M:REL+STKCOM b ( P ABR A1 b D POUT01 EQU * b T P* b h 8 P* MOVE SYSLCR (AND IF THEY EXIST SYSLCO AND SYSLBA) b r P* AND SYSINI b P* b ( P LD A2,SHADST+STKEND GET TO-ADDRESS b * P OR A2,MMREL1+ST
0x0e7b04…0e7c98 Dummy {f00=0x0067, f01=0x0190, f02=»RT OF PART2 b z , P AD A1,M:REL+STKCOM ADD RELOCATION BASE c P c D ( P LD A3,MOVLE2+STKEND LENGTH TO MOVE c L , P LD A4,RELOCA+STKEND GET RELOCATION BASE c x , P ADS A4,M:REL+STKCOM NEW RELOCATION BASE c P EJECT c P* c , P* JUMP TO MOVE ROUTINE
0x0e7c98…0e7e2c Dummy {f00=0x0067, f01=0x0190, f02=» A7=RETURN-ADDRESS c P* d $ P ABL STKMOV JUMP TO MOVE ROUTINE d & P EJECT d N P d P* ************************** d d " P* START OF PROGRAM PART 2.A * d " P***************************** d P d P d PPART2 EQU * d " P LDR A8,P LO
0x0e7e2c…0e7fc0 Dummy {f00=0x0067, f01=0x0190, f02=»A1,CONSTA+STKCOM GET FROM ADDRESS d 0 P LD A3,CONLEN+STKCOM GET LENGTH OF CONF.FILE e * P LDR A7,P e ^ P ADK A7,10 e p 4 P ST A2,CONSTA+STKCOM UPDATE START OF CONF. DATA e $ P ABL STKMOV JUMP TO MOVE-ROUTINE e * P LDKL A10,STKEND START OF 1:ST APPTAB
0x0e7fc0…0e8154 (1, 293) Dummy {f00=0x0071, f01=0x0190, f02=»CR' CREDIT APPLICATION e " P CALL GETAPP FIND APPLICATION f * P RF(NZ) SYA205 MORE APPL.OF THIS TYPE f D P IFT MMUPAG=1 f r " P LD A2,SAEFA1+STKEND GET PAGE f P ST A2,FYSPAG+STKCOM f * P LD A2,SAEFA2+STKEND GET DISPLACEMENT f P ST A2,LSTADR+ST
0x0e8154…0e82e8 Dummy {f00=0x0071, f01=0x0190, f02=»PL. OF THIS TYPE f v P AD A2,M:REL+STKCOM g P ABR A2 g 4 PSYA205 EQU * g D : P ST A1,APCBLK+STKEND SAVE START OF APPL. CONTROL TABLE g X P LDR A4,A1 SAVE g * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB g P IFT MMUPAG=0 g $ P LDR* A9,A2 GET START
0x0e82e8…0e847c Dummy {f00=0x0071, f01=0x0190, f02=»,DDIVFR,A10 END - START g & P AD A5,DDIVST+STKEND ADD NEW START h P ST A5,DATEND+STKCOM STORE h J P* h l * P* CALCULATE LENGTH OF PDDIV AND S:GTAB h v P* h " P LDR A3,A9 GET START OF P:MTAB h . P SUR A3,A2 GET LENGTH OF PDDIV AND S:GTAB h P I
0x0e847c…0e8610 Dummy {f00=0x0071, f01=0x0190, f02=» NO! h $ P CM PDDIV+STKEND YES!RESET FLAG i PSYA206 EQU * i 4 6 P ST A3,PDDIVL,A10 STORE LENGTH OF PDDIV AND S:GTAB i H P XIF i P IFT MMUPAG=1 i " P ELR A9,A2 GET START OF P:MTAB i * P ST A9,APLLAC,A1 SAVE START OF P:MTAB i P* i P* CALC
0x0e8610…0e87a4 Dummy {f00=0x0071, f01=0x0190, f02=» P LDR A6,A5 j . P ANKL A6,/F000 GET LOGICAL PAGE (MM-ENTRY) j $ P SRL A6,11 ADJUST FOR ADDRESSING j H . P ADKL A6,MMDDIV ADD RELATIVE START ADDRESS j p P ADR A6,A13 RELOCATE j & P LDR* A6,A6 GET MM-TABLE CONTENTS j P ST A6,FSTPAG+STKCOM SAVE j "
0x0e87a4…0e8938 Dummy {f00=0x0071, f01=0x018e, f02=»A9 SAVE A9 j " P LDR A9,A6 GET FIRST FREE PAGE k , P LD A11,SAEFA1+STKEND GET LAST FREE PAGE k 8 P CALL CMPADR k h P RF(G) SYA201 OK! k | P RF(L) SYA208 NOK! k P LDR A9,A5 GET DISPLACEMENT k P LD A11,SAEFA2+STKEND k P CALL CMPADR k P R
0x0e8938…0e8acc Dummy {f00=0x0071, f01=0x0190, f02=» k ( P* CHECK IF START OF S:GTAB = SCTEFA l P* l 4 $ P LDR A3,A2 GET ADDRESS TO S:GTAB l > . P ANKL A3,/F000 GET LOGICAL PAGE (MM-ENTRY) l f $ P SRL A3,11 ADJUST FOR ADDRESSING l . P ADKL A3,MMTAB ADD RELATIVE START ADDRESS l P ADR A3,A13 RELOCATE l
0x0e8acc…0e8c60 Dummy {f00=0x0071, f01=0x0190, f02=»DR A3,A2 YES! COMPARE OFFSET l P ANKL A3,/0FFF GET OFFSET m $ P CM PDDIV+STKEND RESET FLAG m F P CW A3,SAEFA2+STKEND m j P RF(E) SYA203 OFFSET EQUAL? m P* m * P* CALCULATE LENGTH OF PDDIV AND S:GTAB m P* m PSYA202 EQU * m " P LDR A3,
0x0e8c60…0e8df4 (1, 294) Dummy {f00=0x0071, f01=0x0190, f02=» A3,A2 GET START OF S:GTAB m & P ANKL A2,/F000 NO!GET PAGE NUMBER n " P ADKL A2,/1000 ADD n L P CWR A2,A9 n f P RF(NG) SYA204 n x P LDR A2,A3 n PSYA204 EQU * n " P LDR A3,A9 GET START OF P:MTAB n * P SUR A3,A2 LENGTH OF PDDIV AND S:GTAB n P
0x0e8df4…0e8f88 Dummy {f00=0x0071, f01=0x0190, f02=»LES ADDRESSES n P* o P LDKL A4,MMDDIV o " P ADR A4,A13 GET TABLE ADDRESS o 8 2 P ST A4,MMTO+STKCOM SAVE 1:ST MM-TABLE ADDRESS o ^ P LDKL A4,MMTAB o " P ADR A4,A13 GET TABLE ADDRESS o 0 P ST A4,MMFROM+STKCOM SAVE 2:ND TABLE ADDRESS o P XIF
0x0e8f88…0e911c Dummy {f00=0x0071, f01=0x0190, f02=»ADDRESS o t P LDR A4,A2 p P SUR A3,A1 LENGTH OF DDIV p " " P SUR A4,A1 RELOCATION FOR DDIV p D P ST A4,MOVADD+STKEND SAVE p j P IFT MMUPAG=0 p P LD A8,STKCOM+TOTSGM PAGING? p P RF(NZ) PAGING YES! p & P LD A8,SCTOPT NO! GET OPTION WORD p
0x0e911c…0e92b0 Dummy {f00=0x0071, f01=0x0190, f02=»STADR+STKCOM IF SEGMENTS! p x P RF SEGMTS q " 2 PNOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP q 4 $ PSEGMTS ST A8,FSTADR+STKCOM STORE q j PMOVNXT LDR* A4,A1 GET WORD q P STR A4,A2 STORE q P ADK A1,2 q P ADK A2,2 q P SUK A3,2 DEC LENGTH q
0x0e92b0…0e9444 Dummy {f00=0x0071, f01=0x0190, f02=» CALL CMPADR q P RF(NG) SYA207 r P LDKL A1,LMP3 r * P CALL ERROR r @ PSYA207 EQU * r T " P LDR A9,A3 GET P:MTAB ADDRESS r h , P SUK A3,10 RESERVE 5 WORDS FOR DEBUGGER r P XIF r P IFT MMUPAG=1 r P CALL XMOVE r & P* REMOVE DDIV ENTRIE
0x0e9444…0e95d8 Dummy {f00=0x0071, f01=0x0190, f02=»B ADDRESS-5WORDS =3 r | $ P SRL A1,11 ADJUST FOR ADDRESSING s P ANK A1,/1E s D & P LDKL A2,MMTAB-2 GET TABLE ADDRESS s X P ADR A2,A13 RELOCATE s , P ADR A1,A2 P:MTAB-5WORDS START ENTRY =3 s P LDKL A4,/FC00 s PSYA206 CWR A1,A2 ALL? s P RF(E)
0x0e95d8…0e976c Dummy {f00=0x0071, f01=0x0190, f02=»CHANGE TABLE - ADDRESSES s P* t P LD A4,MMFROM+STKCOM t * P LD A5,MMTO+STKCOM t F P ST A4,MMTO+STKCOM t ` P ST A5,MMFROM+STKCOM t z P XIF t P ANKL A3,/FFFE EVEN ADDRESS t . P ST A3,LSTADR+STKCOM SAVE END OF FREE AREA t P t P t P
0x0e976c…0e9900 Dummy {f00=0x0071, f01=0x0190, f02=» t l P ADR A3,A13 u , P* FIND LAST USED ENTRY IN REAL MMUTAB * u P u L P CALL MMENT u T P ST A9,TTAB+STKCOM u h , P ST A1,FYSPAG+STKCOM SAVE PHYSICALL PAGE u * P LD A3,T:ANO,A10 GET LENGTH OF T:ATAB u P LDR A5,A3 SAVE u * P CALL CALLMO RES
0x0e9900…0e9a94 (1, 295) Dummy {f00=0x0072, f01=0x0190, f02=» T:ATAB ADDRESS u v P ADK A2,2 SKIP LENGTH WORD v 8 P LD A1,APCBLK+STKEND GET START OF APLL.CONTROL BLOCK v : ( P LD A9,APLLAC,A1 GET P:MTAB ADDRESS v v $ P ES A2,T:ATAB,A9 STORE IN P:MTAB v $ P* RESERVE PLACE FOR T:AID TABLE v P v P LDR A3,A5 GET
0x0e9a94…0e9c28 Dummy {f00=0x0072, f01=0x0190, f02=» A5,A2 STORE TABLE LENGTH IN T:TID-TABLE v " P ADK A2,2 ADJUST TABLE ADDRESS w 0 P ESR A2,A3 STORE IN P:MTAB w V $ P LD A5,U:BTOD,A10 U:BTAB ADDRESS w x ( P TL* MMFROM+STKCOM SET CORRECT TABLE w P ELR A3,A5 GET LENGTH w P LDR A5,A3 SAVE w P CALL
0x0e9c28…0e9dbc Dummy {f00=0x0072, f01=0x018e, f02=» GET U:BTOD LENGTH w ~ P LDR A5,A3 SAVE x P CALL CALLMO RESERVE SPACE x 2 4 P ST A2,U:BTNW,A10 SAVE NEW (REAL) U:BTAB ADDRESS x T P STR A5,A2 STORE LENGTH x P ADK A2,2 x : P ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB x * P LD A3,T:ANO
0x0e9dbc…0e9f50 Dummy {f00=0x0072, f01=0x018e, f02=» x p . P ST A2,T:ATNW,A10 SAVE NEW T:ATAB ADDRESS y P ADK A2,2 y : & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS y L P* RESERVE FOR T:AID TABLE y v P y P LDR A3,A5 LENGTH y P CALL CALLMO y P STR A5,A2 STORE LENGTH y $ P ADK A2,2 ADJUST FOR LENGT
0x0e9f50…0ea0e4 Dummy {f00=0x0072, f01=0x0190, f02=» P ESR A5,A2 STORE LENGTH z P ADK A2,2 SKIP LENGTH WORD z $ $ P ES A2,U:BTAB,A9 STORE IN P:MTAB z F P XIF z n P IFT SWPBLK=1 z z P* z * P* RESERV SPACE FOR REAL S:BTAB TABLE z P* z $ P LD A5,S:BTOD,A10 S:BTAB ADDRESS z 0 P LD A3,S:BLEN,
0x0ea0e4…0ea278 Dummy {f00=0x0072, f01=0x0190, f02=»LK=2 z P TL* MMTO+STKCOM { P ESR A5,A2 { $ P ADK A2,2 { 6 P ES A2,S:BTAB,A9 { H P CALL B:RSWT { ` P XIF { t P IFT SWPBLK-MMUPAG=1 { P STR A5,A2 { P ADK A2,2 { P ST A2,S:BTAB,A9 { P CALL B:RSWT { P XIF { P IFT MMUPAG=1 {
0x0ea278…0ea40c Dummy {f00=0x0072, f01=0x0190, f02=»******** { ~ P* SEARCH CWB'S: | P | ( ( P LD A8,T:ATOD,A10 GET T:ATAB ADDRESS | 4 P IFT MMUPAG=0 | ` P LDR* A3,A8 GET LENGTH | v P XIF | P IFT MMUPAG=1 | P ELR A3,A8 GET LENGTH | P XIF | P ADR A3,A8 | 4 P ST A3,ENDADD+STKEND S
0x0ea40c…0ea5a0 Dummy {f00=0x0072, f01=0x0190, f02=» ALL DONE? | | P RF(E) SYA245 YES! =5 } $ P CALL T:DADD T:D-ADDRESS TO A12 } 0 P IFT MMUPAG=0 } X " P LD A7,CWBMSK,A12 GET CWB-MASK } n P XIF } P IFT MMUPAG=1 } P EL A7,CWBMSK,A12 } P XIF } P CALL SHIFT SUPER-LOOPA } PSYA220 RF(Z)
0x0ea5a0…0ea734 (1, 296) Dummy {f00=0x0072, f01=0x0190, f02=»* SEARCH UWB'S: } P* ~ ( P IM UWB+STKEND INDICATE UWB-SCANNING ~ " P IFT MMUPAG=0 ~ N P LD A7,UWBMSK,A12 ~ d P XIF ~ ~ P IFT MMUPAG=1 ~ P EL A7,UWBMSK,A12 ~ P XIF ~ P CALL SHIFT ~ " PSYA230 RB(Z) SYA210 ALL DONE! ~ PSYA235 C
0x0ea734…0ea8c8 Dummy {f00=0x0072, f01=0x0190, f02=»QU * =5 ~ * P LD A1,BTASK,A10 BUGGER TASK INCLUDED? P RF(Z) CLADAT NO! > . P LDK A3,2 RESERVE ONE WORD FOR TRABUG-T:A X P CALL CALLMO P LDR A8,A2 SAVE CSB-POINTER 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 ( P CM TTB:PP,A2 CL
0x0ea8c8…0eaa5c Dummy {f00=0x0072, f01=0x018e, f02=» * P LD A3,TTB:ID,A2 GET TRABUG'S TASK ID P IFT MMUPAG=0 6 8 P LD A1,APCBLK+STKEND GET START OF APL. CONTROL TABLE L ( P LD A1,APLLAC,A1 GET START OF P:MTAB 4 P ST A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB P LD A1,P:BAS,A1 GET P:BAS
0x0eaa5c…0eabf0 Dummy {f00=0x0072, f01=0x0190, f02=» P XIF 0 P ST A8,TTB:CB,A2 SAVE ADDRESS TO CSB-POINTER . P CM TTB:SB,A2 CLEAR SEGMENT BLOCK ADDRESS D PSYA272 EQU * v 2 P SUKL A8,CSB ADD DISPL. TO CURRENT SEGMENT BAE P ST A8,TTB:SA+26,A2 SAVE A13 P IFT MMUPAG=1 8 P LD A1,APCBLK+
0x0eabf0…0ead84 Dummy {f00=0x0072, f01=0x0190, f02=»S A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB P EL A1,P:BAS,A1 GET P:BAS 6 ( P TL MMBEG,A2 LOAD TRABUG'S MMU-TABLE X , P ES A1,CSB,A8 STORE CURRENT SEGMENT BASE ( P TL* MMFROM+STKCOM RELOAD DDIV TABLE P XIF P EJECT P * P*
0x0ead84…0eaf18 Dummy {f00=0x0072, f01=0x0190, f02=»SET POINTER TO LENGTH INT:ATAB ~ P IFT MMUPAG=0 & & PSYA250 CM UWB+STKEND INDICATE CWB < ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS f P CW A8,ENDADD+STKEND P RF(E) SYA270 ALL T:A'S DONE ( P CALL T:DADD GET T:D ADDRESS TO A12 P P*
0x0eaf18…0eb0ac Dummy {f00=0x0072, f01=0x018e, f02=»ESS x ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST * P LDR A3,A1 GET NUMBER OF START-POINTS 8 P ADR A3,A12 ADD T:D-ADDRESS f P LDR* A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY P ADK A3,2 'NUMBER-WO
0x0eb0ac…0eb240 Dummy {f00=0x0072, f01=0x0190, f02=» * P ST A2,T:DAD,A1 STORE NEW T:D ADDRESS " P LD A7,CWBMSK,A12 GET CWBMASK 2 P XIF X P IFT MMUPAG=1 d ( P* INITIATE MM-ADDRESS TABLE POINTER z P ( P LD A1,SHADOW,A10 SHADOW TABLE START * P AD* A1,SHADOW,A10 ADDRESS TABLE START P
0x0eb240…0eb3d4 (1, 297) Dummy {f00=0x0074, f01=0x0190, f02=»KEND " P RF(E) SYA270 ALL T:A'S DONE! " P CALL GETTAB GET TTAB-ADDRESS 2 P CALL MOVMMT MOVE MM-TABLE X " P* FILL MM-TABLE ADDRESS TABLE z P P LD A1,SAVE02+STKEND & P ADK A1,2 INCREMENT TABLE POINTER P ST A1,SAVE02+STKEND RESTO
0x0eb3d4…0eb568 Dummy {f00=0x0074, f01=0x0190, f02=» P P* CALCULATE LENGTH OF T:D P . 2 P EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB 6 P ADK A1,2 l P ANKL A1,/FFFE EVEN ADDRESS ~ ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST , P LDR A3,A1 GET NUMB. OF START-POINTS... P ADR A3,A1
0x0eb568…0eb6fc Dummy {f00=0x0074, f01=0x0190, f02=»RD' | P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS ( P CALL CALLMO MOVE T:D H P ELR A1,A8 GET T:A ADDRESS f * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS " P EL A7,CWBMSK,A12 GET CWBMASK P XIF P P CALL MOVCLA P EJE
0x0eb6fc…0eb890 Dummy {f00=0x0074, f01=0x0190, f02=»NG n P IFT MMUPAG=0 " P LD A7,UWBMSK,A12 GET UWBMASK P XIF F P IFT MMUPAG=1 R P EL A7,UWBMSK,A12 h P XIF P CALL MOVCLA P EJECT P P " P* MOVE DT:S OF SWB'S & TWB'S * " P**************************
0x0eb890…0eba24 Dummy {f00=0x0074, f01=0x0190, f02=»A265 LD A7,TWBMSK,A12 P XIF P IFT MMUPAG=1 * P EL A7,SWBMSK,A12 @ P RF(Z) SYA265 NONE Z P CALL SKRITT t PSYA265 EL A7,TWBMSK,A12 P XIF P RB(Z) SYA250 P CALL SKRITT P RB SYA250 P PSYA270 RF PR
0x0eba24…0ebbb8 Dummy {f00=0x0074, f01=0x018e, f02=» ** r 4 P** MOVE D.T ** 4 P** ** R 4 P*********************************************** PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14
0x0ebbb8…0ebd4c Dummy {f00=0x0074, f01=0x0190, f02=» P RB NO P EJECT P $ & P* BUILD TASKDATA PROTOTYPE AREA * 0 & P********************************* Z PPRODAT EQU * 4 P IM SWITCH+STKEND INDICATE: -NO MORE D.T. MOVE! $ P LD A8,T:ATOD,A10 T:ATAB ADDRESS PSYA280 ADKL A8,2
0x0ebd4c…0ebee0 Dummy {f00=0x0074, f01=0x0190, f02=»DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P F " P* CALCULATE LENGTH OF DSCB'S * R " P*** *** x P P LDR* A1,A8 GET T:A-ADDRESS & P LD A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DS
0x0ebee0…0ec074 (1, 298) Dummy {f00=0x0074, f01=0x0190, f02=» P ADKL A2,T:ASTA ( P AD A4,DATTAB,A12 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S H , P ADR A3,A2 A3=LENGTH OF DSCB'S AND DAT'S j ( P LD A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGT
0x0ec074…0ec208 Dummy {f00=0x0074, f01=0x0190, f02=»TACK SIZE | $ P ST A2,CSE,A1 AND SAVE TEMPORARY 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE : ( P LD A2,APLLAC,A2 GET START OF P:MTAB v P LD A2,P:BAS,A2 GET P:BAS P ST A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P
0x0ec208…0ec39c Dummy {f00=0x0074, f01=0x0190, f02=»TAB-ADDRESS v , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P D 2 P* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE L P ( P TL MMBEG,A2 LOAD CLASS LOCAL TABLE * P LDKL A3,MMTAB GET WORK TABLE ADDRESS P ADR A3,A13 $ P TSR A3 STORE TA
0x0ec39c…0ec530 Dummy {f00=0x0074, f01=0x0190, f02=»L TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * 0 " P*** *** V P | P ELR A1,A8 GET T:A-ADDRESS & P EL A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X
0x0ec530…0ec6c4 Dummy {f00=0x0074, f01=0x0190, f02=»LACEMENT v P ADR A4,A1 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S 4 , P ADR A3,A2 A3=LENGTH OF DSCB'S AND DAT'S V ( P EL A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T
0x0ec6c4…0ec858 Dummy {f00=0x0074, f01=0x0190, f02=»S A2,CSE,A1 AND SAVE (TEMPORARY) 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE ( ( P LD A2,APLLAC,A2 GET START OF P:MTAB d ( P TL* MMTO+STKCOM LOAD CORRECT TABLE P EL A2,P:BAS,A2 GET P:BAS ( P TL* MMFROM+STKCOM RELOAD DDIV TABLE
0x0ec858…0ec9ec Dummy {f00=0x0074, f01=0x0190, f02=»AB l P XIF P RB SYA280 NEXT P EJECT . PSYA290 EQU * < 6 P IM FLAG+STKEND INDICATE REAL DATA-PART PROCESSING P P* P* INCLUDE DDIV IN FREE AREA P* P LD A1,DDIVST+STKEND P IFT MMUPAG=1 P LDR A2,A1 P A
0x0ec9ec…0ecb80 Dummy {f00=0x0074, f01=0x0190, f02=»A2,/FFF P ST A2,FSTADR+STKCOM P XIF , P IFT MMUPAG=0 8 P ST A1,DATEND+STKCOM N P XIF j P* MOVE T:ATAB v P . P LD A2,T:ATNW,A10 GET REAL T:A-TAB ADDRESS P IFT MMUPAG=0 P LDR* A1,A2 REAL LENGTH $ P ADR A2,A1 E
0x0ecb80…0ecd14 (1, 299) Dummy {f00=0x0075, f01=0x0190, f02=» SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE P CALL MOVE < P XIF N P IFT MMUPAG=1 Z ( P TL* MMTO+STKCOM LOAD CORRECT TABLE p & P ELR A1,A2 GET REAL T:ATAB LENGTH $ P TL* MMFROM+STKCOM RELOAD TABLE P ADR A2,A1 END ADDRESS
0x0ecd14…0ecea8 Dummy {f00=0x0075, f01=0x0190, f02=» P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE " P CALL XMOVE @ P XIF T P ` P EJECT h P v P ~ 4 P************************************************ 4 P*** *** 4 P** SYSL
0x0ecea8…0ed03c Dummy {f00=0x0075, f01=0x0190, f02=»****** f P 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE * N 4 P* * 4 P************************************************ P PPART2B EQU
0x0ed03c…0ed1d0 Dummy {f00=0x0075, f01=0x0190, f02=» f * P LD A7,T:ATNW,A10 REAL T:ATAB ADDRESS P ADK A7,2 6 P ST A8,SAVE01+STKEND SAVE A8 H * PSYA310 LD A8,SAVE01+STKEND RESTORE A8 l P ADKL A8,2 P CW A8,ENDADD+STKEND ALL? P RF(E) SYA350 YES! P ST A8,SAVE01+STKEND SAVE $
0x0ed1d0…0ed364 Dummy {f00=0x0075, f01=0x0190, f02=»TASK FLAG ~ : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) " P LD A1,SCTOPT GET OPTION WORD P P ANK A1,2 DISC PAGING? v P RF(Z) SYA320 NO! P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST
0x0ed364…0ed4f8 Dummy {f00=0x0075, f01=0x0190, f02=»DR* A6,A5 GET NUMBER OF COPIES P EJECT & PSYA340 SUK A6,1 4 P RF(P) SYA345 NEXT TASK L 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS l P RB SYA310 NEXT TASK-CLASS * PSYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS P CALL MOVT:A MOVE T:A
0x0ed4f8…0ed68c Dummy {f00=0x0075, f01=0x0190, f02=»ORRESPONDING TTAB AND QUEUE ~ P IMR A4 SET QUEUE TASK FLAG $ 0 P ST A3,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB H " P LD A1,SCTOPT GET OPTION WORD | P ANK A1,2 DISC PAGING? P RF(Z) SYA348 NO! P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1,CSB
0x0ed68c…0ed820 Dummy {f00=0x0075, f01=0x0190, f02=»BSWB MOVE TWB'S AND RESERVE FOR SWB'S " P CALL ALLBUF ALLOCATE BUFFERS . P XIF T P IFT MMUPAG=1 ` * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD v P P LDR A1,A5 . P AD* A1,SHADOW,A10 ADD SHADOW-TABLE LENGTH $ P LDR* A1,A1 GET MM-TABLE
0x0ed820…0ed9b4 (1, 300) Dummy {f00=0x0075, f01=0x0190, f02=»EUE TASK FLAG : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) P LDR A1,A3 GET T:A-ADDRESS T 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE v " P ST A1,TTB:CB,A2 STORE IN TTAB 0 P LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY * P LDK
0x0ed9b4…0edb48 Dummy {f00=0x0075, f01=0x0190, f02=»BLE l P P SUK A2,2 START OF TABLE P LDKL A12,/FC00 4 PSYA320 SUK A1,2 NEXT ENTRY L P CWR A1,A2 ALL? n P RF(E) SYA330 YES! P STR A12,A1 REMOVE ENTRY P RB SYA320 PSYA330 EQU * P ELR A1,A8 GET T:A ADDRESS $ P
0x0edb48…0edcdc Dummy {f00=0x0075, f01=0x0190, f02=»REAL T:ATAB x $ P LDR* A6,A5 GET NUMBER OF COPIES PSYA340 SUK A6,1 < P RF(P) SYA345 NEXT TASK T 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS t P RB SYA310 NEXT TASK-CLASS PSYA345 ADK A1,1 NEXT T:A ID ( P CALL GETTTB FIND CORRES
0x0edcdc…0ede70 Dummy {f00=0x0075, f01=0x0190, f02=»A7 STORE IN REAL T:ATAB @ P ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS P LDR A8,A2 GET T:A-ADDRESS d 0 P ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A8,TTB:CB,A9 STORE IN TTAB " P LDR A8,A7 CHANGE T:A TO COPY , P A
0x0ede70…0ee004 Dummy {f00=0x0075, f01=0x018e, f02=»STKCOM GET TO-TABLE 2 P ST A1,MMFROM+STKCOM CHANGE T:A ADDRESS-TABLE P TLR A1 R " P CALL ALLBUF ALLOCATE BUFFERS b ( P LD A1,TTAB+STKCOM GET TTAB-ADDRESS * P CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB $ P ELR A3,A8 GET T:A-ADDRESS (NEW)
0x0ee004…0ee198 Dummy {f00=0x0075, f01=0x018e, f02=» ( P* SCAN TCTAB FOR TASKS TO BE QUEUED P* 4 , PSYA350 LD* A9,SCTTCT GET LENGTH OF TCTAB > $ P AD A9,SCTTCT ADD START OF TCTAB n ( PSYA355 SUKL A9,2 NEXT ENTRY IN TCTAB & P CW A9,SCTTCT ALL ENTRIES SCANNED? P RF(E) SYA360 YES P L
0x0ee198…0ee32c Dummy {f00=0x0075, f01=0x018e, f02=» ~ $ P STR A5,A9 RESET QUEUE TASK FLAG ( P LD A12,TTB:SA+26,A5 GET T:A ADDRESS 0 , P LD A2,APCBLK+STKEND GET ADDRESS TO ACB ( P LD A2,APLLAC,A2 GET P:MTAB ADDRESS P IFT MMUPAG=1 & P TL TTB:MT,A5 LOAD TASKS MMU TABLE P EL A12,T:DAD,A1
0x0ee32c…0ee4c0 Dummy {f00=0x0075, f01=0x0190, f02=» 0 P LD A2,NTPA,A2 GET INTERPRETER START ADDRESS P XIF 8 P CALL QUEJOB QUEUE TASK D P RB SYA355 d P EJECT v PSYA360 EQU * P ADKL A10,TABLEN NEXT TABLEN P CM SWITCH+STKEND P CM FLAG+STKEND P LD A1,PDDIV+STKEND GET FL
0x0ee4c0…0ee654 (1, 301) Dummy {f00=0x0076, f01=0x0190, f02=» f P ST A1,SCTEFA+2 SAVE P XIF $ P IFT MMUPAG=1 0 6 P LD A1,FYSPAG+STKCOM GET LAST PHYSICAL PAGE NUMBER F P ST A1,SAEFA1+STKEND STORE * P LD A1,LSTADR+STKCOM GET LAST ADDRESS P ANKL A1,/FFF GET OFFSET P ST A1,SAEFA2+STKEND STO
0x0ee654…0ee7e8 Dummy {f00=0x0076, f01=0x0190, f02=»,FYSPAG+STKCOM GET LAST PHYSICAL PAGE P SLL A2,2 . P ORR A1,A2 @ P ST A1,SCTEFA+2 R P LD A1,FYSPAG+STKCOM j P SRL A1,14 P ST A1,SCTEFA P XIF PSYA370 EQU * P LDKL A1,SYA200 P AD A1,M:REL+STKCOM & P ABR A
0x0ee7e8…0ee97c Dummy {f00=0x0076, f01=0x0190, f02=»N TO ALL PARTS IN THIS PROGRAM * z < P******************************************************* * P EJECT j 2 P** C A L L M O ** x 2 P** ** 2 P** CHECK IF MORE SPACE IN PDDIV ARE
0x0ee97c…0eeb10 Dummy {f00=0x0076, f01=0x0190, f02=» PDDIV = IF "1" INDICATE THAT ** 2 P** MORE SPACE IN PDDIV ** , 2 P** PDDIVL = LENGTH OF PDDIV AND ** b 2 P** S:GTAB ** 2 P** OUTPUT: PDDIVL AND LSTADR IS UPDATED ** 2 P**
0x0eeb10…0eeca4 Dummy {f00=0x0076, f01=0x0190, f02=» ** p 2 P** SUBROUTINES: MOVING ** 2 P** ** L 2 P********************************************* P* PCALLMO EQU * 2 P LD A2,PDDIV+STKEND MORE SPACE IN PDDIV AREA?
0x0eeca4…0eee38 Dummy {f00=0x0076, f01=0x0190, f02=»PAG=0 , P LD A2,SCTEFA+2 N0! GET END OF FREE AREA , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS > P XIF n P IFT MMUPAG=1 z P LD A2,SAEFA2+STKEND , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS P LD A2,SAEFA1+STKEND 4 P ST A2,FYSPAG+ST
0x0eee38…0eefcc Dummy {f00=0x0076, f01=0x0190, f02=»DDIVL v PCALL:10 EQU * P CALL MOVING $ P RTN A14 8 P EJECT H P V 4 P** G E T W B ** b 4 P** ** 4 P** ** 4
0x0eefcc…0ef160 Dummy {f00=0x0076, f01=0x0190, f02=» ** z 4 P** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** " 4 P** BIT=BIT NUMBER SAT IN MASK (0-15)** Z 4 P** OUTPUT: A4=W.B. DISPLACEMENT IN T:A ** 4 P** TADISP=A4 ** 4 P**
0x0ef160…0ef2f4 (1, 302) Dummy {f00=0x0076, f01=0x0190, f02=»***************** r P PGETWB EQU * & $ P LD A4,BIT+STKEND GET BIT NUMBER : $ P SLL A4,2 ADJUST FOR ADDRESSING b P ADK A4,WATFST+2 * P ST A4,TADISP+STKEND SAVE DISPLACEMENT P IFT MMUPAG=0 P LDR* A11,A8 GET T:A-ADDRESS
0x0ef2f4…0ef488 Dummy {f00=0x0076, f01=0x0190, f02=» 2 P LD A11,FLAG+STKEND REAL TASK-DATA PROCESSING? P RF(Z) GETW10 NO! > " P TL* MMTO+STKCOM LOAD TO-TABLE X & PGETW10 ELR A11,A8 GET T:A-ADDRESS ~ P ADR A11,A4 ADD DISPLACEMENT P ST A11,WBADD+STKEND SAVE " P ELR A11,A11 GET W.B.-ADDR
0x0ef488…0ef61c Dummy {f00=0x0076, f01=0x018e, f02=» M O V W B ** 8 P** ** . 8 P** ** j 8 P** MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED ** 8 P**
0x0ef61c…0ef7b0 Dummy {f00=0x0076, f01=0x0190, f02=» Z 8 P** WORK-REGS: A1-A4 ** 8 P**************************************************** D P PMOVWB EQU * P LDR A1,A11 GET ADDRESS P ADKL A1,WBLEN FROM-ADDRESS P IFT MMUPAG=0 P LDR* A3,A1 LE
0x0ef7b0…0ef944 Dummy {f00=0x0076, f01=0x0190, f02=» MOVE b P XIF P IFT MMUPAG=1 P ELR A3,A1 LENGTH 0 P CALL CALLMO J 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT ^ 2 P LD A4,FLAG+STKEND REAL DATA-PART PROCESSING? P RF(Z) MOVW10 NO! " P TL* MMTO+STKCOM LOAD TO-TABLE
0x0ef944…0efad8 Dummy {f00=0x0076, f01=0x0190, f02=» P EJECT P P " : P** M O V D T ** . : P** ** l : P** ** : P** MOVE DISCRIPTOR TABLE. D.T.-
0x0efad8…0efc6c Dummy {f00=0x0076, f01=0x0190, f02=»:A ** d : P** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** : P** WORK REGS: A1-A4 ** P : P***************************************************** P PMOVDT EQU * : P LD A1,WBADD+STKEND GET POIN
0x0efc6c…0efe00 Dummy {f00=0x0076, f01=0x018e, f02=»A1,DTLEN ADJUST FOR LENGTH WORD " P AD A1,MOVADD+STKEND RELOCATE ( P LDR* A3,A1 LENGTH N P CALL CALLMO h P LD A3,WBADD+STKEND | P SUKL A2,DTLEN P SUKL A1,DTLEN 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS P XIF P
0x0efe00…0eff94 (1, 303) Dummy {f00=0x0076, f01=0x0190, f02=» P ELR A3,A1 LENGTH P CALL CALLMO P LD A3,WBADD+STKEND 2 P SUKL A2,DTLEN N P SUKL A1,DTLEN d 4 P ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS z P XIF P RTN A14 P EJECT P < P** M O V D W
0x0eff94…0f0128 Dummy {f00=0x0076, f01=0x0190, f02=» ** h < P** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. ** < P** AND UPDATE ADDRESSES (W.B. & D.T.) ** X < P** ** < P** INPUT : A12=T:D-ADDRESS
0x0f0128…0f02bc Dummy {f00=0x0076, f01=0x0190, f02=» X < P** WORK.REGS: A1-A4 ** < P******************************************************** H P PMOVDWB EQU * " P ST A10,SAVE07+STKEND SAVE A10 P ST A6,SAVE05+STKEND SAVE A6 P LDK A6,0 * PMOVD
0x0f02bc…0f0450 Dummy {f00=0x0076, f01=0x018e, f02=» P IFT MMUPAG=1 P EL A2,WATLEN,A12 P XIF 4 " P SUR A2,A6 ACTUAL TABLE LENGTH @ P ADR A6,A12 A6=TABLE POINTER f " PMOVD20 ADK A6,1 A6=TABLE INDEX P SUK A2,1 ALL? P RF(N) MOVD60 YES! P IFT MMUPAG=0 " P CC A4,DWBFST,A6 S
0x0f0450…0f05e4 Dummy {f00=0x0076, f01=0x0190, f02=» P RF(N) MOVD30 RIGHT! P ANKL A10,/FF00 P ECR A10,A10 8 P RF MOVD40 L PMOVD30 ANKL A10,/FF ^ " PMOVD40 SLC A6,1 ADJUST POINTER z P CWR A4,A10 SHARED W.B.? P XIF P RB(NE) MOVD20 NO! P* DWB FOUND * , P NGR A4,A2 C
0x0f05e4…0f0778 Dummy {f00=0x0076, f01=0x0190, f02=» ~ P ADR A4,A10 P XIF P LDR A6,A4 SAVE TABLE INDEX ( P SUK A4,1 L P SLL A4,2 ^ P ADK A4,WATFST+2 p . P LD A3,NEWAD2+STKEND GET NEW W.B.-ADDRESS P IFT MMUPAG=0 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A " P S
0x0f0778…0f090c Dummy {f00=0x0076, f01=0x0190, f02=»0 NO! " P TL* MMTO+STKCOM LOAD TO-TABLE PMOVD50 EQU * 4 . P ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A H P ADR A4,A10 z " P ESR A3,A4 CHANGE W.B.-ADDRESS ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE P XIF P ST A4,WBADD+STKEND 0 P
0x0f090c…0f0aa0 Dummy {f00=0x0076, f01=0x018e, f02=»VE D.T. P RB MOVD10 PMOVD60 EQU * " $ P LD A6,SAVE05+STKEND RESTORE A6 6 & P LD A10,SAVE07+STKEND RESTORE A10 ^ P RTN A14 P EJECT P P 4 P** T W B S W B ** 4 P**
0x0f0aa0…0f0c34 (1, 304) Dummy {f00=0x0076, f01=0x018e, f02=» ^ 4 P** INPUT : A8=ACTUAL T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS ** @ 4 P** WORK-REGS: A1-A4, A11 ** x 4 P************************************************ P PTWBSWB EQU * P ST
0x0f0c34…0f0dc8 Dummy {f00=0x0076, f01=0x0190, f02=» P CALL SHIFT " PTWSW10 RF(Z) TWSW20 ALL DONE! P CALL GETWB B P CALL MOVWB V , P ST A2,NEWAD2+STKEND SAVE NEW WB-ADDRESS j & P CALL MOVDWB CHANGE DWB-ADDRESSES P CALL SKIFTA P RB TWSW10 PTWSW20 EQU * P IFT SWPBL
0x0f0dc8…0f0f5c Dummy {f00=0x0076, f01=0x0190, f02=»FT SWPBLK-MMUPAG=1 P LD A7,SWBMSK,A12 P XIF 4 P IFT MMUPAG+SWPBLK=2 @ P EL A7,SWBMSK,A12 P XIF v P IFT SWPBLK=1 P CALL SHIFT PTWSW30 RF(Z) TARZAN ALL DONE P CALL GETWB P CALL MOVWB RESERVE SPACE * P S
0x0f0f5c…0f10f0 Dummy {f00=0x0076, f01=0x0190, f02=» P XIF $ P LD A7,SAVE04+STKEND RESTORE A7 P RTN A14 < P EJECT L P Z P b 4 P** A L L B U F ** j 4 P** ** 4 P** ALLOCATE FIXED DATA SET BUFFERS AND
0x0f10f0…0f1284 Dummy {f00=0x0076, f01=0x018e, f02=»=ACTUAL T:A-ADDRESS IN T:ATAB ** 4 P** A12=T:D-ADDRESS ** * 4 P** CSN (IN T:A)=LENGTH OF DSCB'S ** b 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** 4 P** CSE (IN T:A)=STACKSIZE ** 4
0x0f1284…0f1418 Dummy {f00=0x0076, f01=0x0190, f02=» P IFT MMUPAG=0 2 P LD A9,FSTADR+STKCOM GET BUFFER START ADDRESS P LDR* A1,A8 GET T:A-ADDRESS T ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH x P RF(Z) ALLB70 NO DSCB'S 2 P AD A1,DATTAB,A12 CALC. START OF DSCB RECORDS " P LDR A11,A1 SA
0x0f1418…0f15ac Dummy {f00=0x0076, f01=0x0190, f02=» RF(Z) ALLB70 NO DSCB * P EL A11,DATTAB,A12 GET DISPL. TO DAT'S P ADR A1,A11 START OF DAT'S L " P LDR A11,A1 SAVE START ADDRESS n P XIF P SUR A3,A1 P NGR A3,A3 P SUK A3,DSCBL END CONDITION < P ST A3,SAVE04+STKEND SAVE ADDRES
0x0f15ac…0f1740 Dummy {f00=0x0076, f01=0x0190, f02=»LLB70 YES! P IFT MMUPAG=0 : P LD A3,BL,A1 GET LENGTH OF THE REQUESTED BUFFER.ZERO? ( P RB(Z) ALLB10 YES! f * P LD A2,SB,A1 GET INDEX.SHARED BUFFER? P RF(Z) NOTSH NO! P LDK A3,DSCBL LENGTH OF DSCB " P CALL MULT A2*A3 RESULT IN A3
0x0f1740…0f18d4 (1, 305) Dummy {f00=0x0077, f01=0x0190, f02=»TORE IN CURRENT DSCB P XIF P IFT MMUPAG=1 ( 0 P EL A3,BL,A1 GET LENGTH OF REQ.BUFFER.ZERO? > P RB(Z) ALLB10 YES! r * P EL A2,SB,A1 GET INDEX.SHARED BUFFER? P RF(Z) NOTSH NO! P LDK A3,DSCBL LENGTH OF DSCB " P CALL MULT A2*A3 R
0x0f18d4…0f1a68 Dummy {f00=0x0077, f01=0x0190, f02=»S A4,BP,A1 STORE IN CURRENT DSCB P XIF ( P RB ALLB10 4 P F P IFT MMUPAG=0 N : PNOTSH ADK A3,2 ONE EXTRA WORD USED BY THE INTERPRETER d P LDR A9,A9 PAGING? P RF(NZ) NOTS10 NO! , P CALL CALLMO ALLOCATE BUFFER FROM BOTTOM & P A
0x0f1a68…0f1bfc Dummy {f00=0x0077, f01=0x0190, f02=»9,A9 , P SUR A9,A2 MAX LENGTH OF REM. MEM. AREA P LDR A4,A11 SAVE REGISTER < P LDR A11,A3 LENGTH OF BUFFER ^ P CALL CMPADR ENOUGTH MEMORY? P RF(G) ALLB50 NO! ( P LDR A9,A2 GET START OF MEMORY AREA ( P ADR A9,A3 ALLOCATE BUFFER F
0x0f1bfc…0f1d90 Dummy {f00=0x0077, f01=0x0190, f02=»RT r P CALL CMPADR P RF(NL) ALLB60 OK! PALLB50 LDKL A1,LMP3 8 P CALL ERROR T PALLB60 EQU * h P LDR A11,A4 RESTORE REGISTER | & P ADK A2,2 BUFFER MASK AT DISPL. -2 & P ST A2,BP,A1 STORE BUFFER POINTER 0 P ST A9,FSTADR+STKCOM
0x0f1d90…0f1f24 Dummy {f00=0x0077, f01=0x0190, f02=»XTRA WORD USED BY THE INTERPRETER | . P CALL CALLMO ALLOCATE BUFFER FROM 'BOTTOM' * & P ADK A2,2 BUFFER MASK AT DISPL. -2 & P ES A2,BP,A1 STORE BUFFER ADDRESS P XIF P RB ALLB10 P , P* RESERVE STACK AND SET STACKPOINTERS *
0x0f1f24…0f20b8 Dummy {f00=0x0077, f01=0x018e, f02=»80 $ P LDK A3,STKSZ DEFAULT STACKSIZE PALLB80 EQU * 2 , P ST A3,STKB,A1 STORE ACTUAL STACK SIZE F P CALL CALLMO ALLOCATE STACK v P ST A2,STKE,A1 SET STACK-END " P LD A3,STKB,A1 GET STACK SIZE " P ADR A2,A3 COMPUTE STACK BASE "
0x0f20b8…0f224c Dummy {f00=0x0077, f01=0x0190, f02=» P IFT MMUPAG=1 P ELR A1,A8 GET T:A-ADDRESS P EL A3,CSE,A1 GET STACK SIZE < * P RF(NZ) ALLB80 USER DEFINED STACK SIZE ` $ P LDK A3,STKSZ DEFAULT STACK SIZE ( PALLB80 ES A3,STKB,A1 SAVE STACK SIZE P CALL CALLMO ALLOCATE STACK " P E
0x0f224c…0f23e0 Dummy {f00=0x0077, f01=0x0190, f02=»T WORD x $ P ES A2,STKB,A1 STORE STACK BASE * P ESR A2,A1 STORE CURRENT STACK POINTER 6 P XIF d P RTN A14 p P EJECT P 4 P** M O V T : A ** 4 P** ** 4 P**
0x0f23e0…0f2574 (1, 306) Dummy {f00=0x0077, f01=0x0190, f02=» ** v 4 P** INPUT : A8=T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS ** V 4 P** CIA (IN T:A)=DISL. TO T:A-START ** 4 P** OUTPUT: A2=NEW T:A-ADDRESS ** 4 P** WORKRE
0x0f2574…0f2708 Dummy {f00=0x0077, f01=0x0190, f02=»0,SAVE07+STKEND SAVE A10 P IFT MMUPAG=0 P LDR* A1,A8 GET T:A-ADDRESS 6 ( P LD A3,WATLEN,A12 GET LENGTH OF WAT Z P SLL A3,2 BYTES , P SU A3,CIA,A1 ADD DISPLACEMENT TO START P ADK A3,WATFST A3=LENGTH P AD A1,CIA,A1 FROM-ADDRESS
0x0f2708…0f289c Dummy {f00=0x0077, f01=0x018e, f02=»COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * P : P LD A3,FCD,A12 ANY FCD? B P RF(Z) MOVT10 NO! b P ADR A3,A2 START OF FCB | P LDR A4,A2 SAVE T:A-ADDRESS 2 P LD A10,FLAG+STKEND REAL TASK DATA PROCESSING? P RF(Z) MOVT05 NO!
0x0f289c…0f2a30 Dummy {f00=0x0077, f01=0x0190, f02=» | P ADS A4,FCBDD3,A3 P ADS A4,FCBDD4,A3 " , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10 < P RTN A14 l P XIF | P IFT MMUPAG=1 P P ELR A1,A8 GET T:A-ADDRESS ( P EL A3,WATLEN,A12 GET LENGTH OF WAT P SLL A3,2 BYTES
0x0f2a30…0f2bc4 Dummy {f00=0x0077, f01=0x0190, f02=»0,SAVE07+STKEND RESTORE A10 P CALL CALLMO $ P ELR A4,A8 8 P EL A10,CIA,A4 J P SUR A2,A10 NEW T:A-ADDRESS ` " P SUR A1,A10 'OLD' T:A-ADDRESS 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * P P EL A3,FCD,A12 ANY FCD?
0x0f2bc4…0f2d58 Dummy {f00=0x0077, f01=0x018e, f02=»! 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) PMOVT05 EQU * F P ADR A3,A2 START OF FCB Z " P TL* MMTO+STKCOM LOAD TO-TABLE z P EL A10,FCBDD1,A3 P ADR A10,A4 P ES A10,FCBDD1,A3 P EL A10,FCBDD2,A3 P ADR A
0x0f2d58…0f2eec Dummy {f00=0x0077, f01=0x0190, f02=» P ADR A10,A4 P ES A10,FCBDD4,A3 ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE 2 , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10 ^ P RTN A14 P XIF P EJECT D P*************************************************************** D P*
0x0f2eec…0f3080 Dummy {f00=0x0077, f01=0x0190, f02=»* ===================================== * D P* * H D P* REFERENCED IN: MOVCOM * D P*
0x0f3080…0f3214 (1, 307) Dummy {f00=0x007c, f01=0x0190, f02=» * h D P* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * D P* * h D P* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * D P* IN T:A
0x0f3214…0f33a8 Dummy {f00=0x007c, f01=0x0190, f02=»REGISTERS: A1,A2 * D P* * @ D P* SUBROUTINES: * D P*
0x0f33a8…0f353c Dummy {f00=0x007c, f01=0x0190, f02=» SET BIT 0 8 P LD A2,BIT+STKEND GET BIT NUMBER IN CWB- OR UWB-MASK " PIBAM10 RF(Z) IBAM20 BIT FOUND N & P SRL A1,1 SHIFT BIT RIGHT ONE STEP t $ P SUK A2,1 DECREMENT BIT COUNTER P RB IBAM10 P* & P* UPDATE MOVED MASK IN FIRST T:A
0x0f353c…0f36d0 Dummy {f00=0x007c, f01=0x0190, f02=»E CURRENT BLOCK MOVED ~ * P STR A3,A2 STORE NEW MOVED BLOCK MASK P* L & P* UPDATE MOVED MASK IN SECOND T:A V P* P LDR* A2,A6 GET T:A POINTER $ P LDR* A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P S
0x0f36d0…0f3864 Dummy {f00=0x007c, f01=0x0190, f02=»ED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED BLOCK MASK F P* t & P* UPDATE MOVED MASK IN SECOND T:A ~ P* P ELR A2,A6 GET T:A POINTER $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 I
0x0f3864…0f39f8 Dummy {f00=0x007c, f01=0x0190, f02=»******************************************************************* J P* * L J P* CHKMVD - CHECK IF BLOCK ALREADY MOVED * J P* ================
0x0f39f8…0f3b8c Dummy {f00=0x007c, f01=0x0190, f02=»D IN: MOVCOM,MOVCLA * J P* * B J P* ENTRY: A8 - POINTER TO T:A * J P* BIT - BIT NUMBER IN CWB- OR UWB-
0x0f3b8c…0f3d20 Dummy {f00=0x007c, f01=0x0190, f02=»EADY MOVED THEN CR=2 ELSE CR<>2 * z J P* * 8 J P* WORK REGISTER: A1,A2 * J P*
0x0f3d20…0f3eb4 (1, 308) Dummy {f00=0x007c, f01=0x0190, f02=» * p J P********************************************************************* . P EJECT | PCHKMVD EQU * P IFT MMUPAG=0 P LDR* A1,A8 GET T:A POINTER $ P LDR* A1,A1 GET MOVED BLOCK MASK P XIF
0x0f3eb4…0f4048 Dummy {f00=0x007c, f01=0x0190, f02=»END GET BIT SET IN CWB- OR UWB-MASK 6 PCHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND , * P SLL A1,1 NEXT BIT IN MOVED BLOCK MASK f $ P SUK A2,1 DECREMENT BIT COUNTER P RB CHKM10 PCHKM20 ADK A1,0 SET CR * P CFI A14,PSW,A13 PUT CONDITI
0x0f4048…0f41dc Dummy {f00=0x007c, f01=0x0190, f02=» ** : P** S H I F T & SKIFTA ** < : P** ** z : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** : P** INPUT : A7=MAS
0x0f41dc…0f4370 Dummy {f00=0x007c, f01=0x0190, f02=»PSW ON RETURN ** r : P****************************************************** P ^ PSHIFT EQU * j $ P CM BIT+STKEND RESET BIT COUNTER ~ P LDR A7,A7 P RF SHIF20 & PSKIFTA EQU * ENTRY: CONTINUE SHIFT PSHIF10 IM BIT+STKEND
0x0f4370…0f4504 Dummy {f00=0x007c, f01=0x0190, f02=»OND IN PSW t P RTN A14 P EJECT " @ P************************************************************ 0 @ P* * t @ P* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB * B P*
0x0f4504…0f4698 Dummy {f00=0x007c, f01=0x0190, f02=» * @ P* * : @ P* REFERENCED IN: SYSLDA PART 2 B. * ~ @ P* * @ P*
0x0f4698…0f482c Dummy {f00=0x007c, f01=0x018e, f02=» * @ P* EXIT: * B @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8 *
0x0f482c…0f49c0 Dummy {f00=0x007c, f01=0x0190, f02=» R @ P* * @ P************************************************************ L PCHTAID EQU * 2 P LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES " PCHT:10
0x0f49c0…0f4b54 (1, 309) Dummy {f00=0x007d, f01=0x0190, f02=»T:A p $ P LD A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB 4 * P LD A4,TTBTID,A2 GET REAL TID IN TTAB f 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS ( P ST A4,T:ATID,A3 REPLACE TCL IN T:A & P LDR A3,A8 GET
0x0f4b54…0f4ce8 Dummy {f00=0x007d, f01=0x0190, f02=»IF P IFT MMUPAG=1 & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A J . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB r ( P LDR A3,A2 GET POINTER TO TTAB ENTRY 2 P ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB P T
0x0f4ce8…0f4e7c Dummy {f00=0x007d, f01=0x018e, f02=»:ATID,A3 REPLACE TCL IN T:A *79-04-11* 0 P EL* A3,T:ATNW,A10 GET LENGTH OF REAL T:ATAB . $ P NGR A3,A3 NEGATIVE DISPLACEMENT b . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 8 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* P XIF & P CM
0x0f4e7c…0f5010 Dummy {f00=0x007d, f01=0x0190, f02=» j P RB(P) CHT:20 NEXT COPY PCHT:90 RTN A14 ( P > 4 P** T : D A D D ** J 4 P** ** 4 P** ** 4 P** GET T:D - ADDRESS
0x0f5010…0f51a4 Dummy {f00=0x007d, f01=0x018e, f02=»** b 4 P** OUTPUT: A12=T:D ADDRESS ** 4 P************************************************ B PT:DADD EQU * z P IFT MMUPAG=0 P LDR* A12,A8 T:A ADDRESS P LD A12,T:DAD,A12 P XIF P IFT MMUPAG=1 P ELR A12
0x0f51a4…0f5338 Dummy {f00=0x007d, f01=0x0190, f02=» P 6 P** M O V C O M ** 6 P** ** N 6 P** ** 6 P** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** 6 P** ARE COMM
0x0f5338…0f54cc Dummy {f00=0x007d, f01=0x018e, f02=» ** p 6 P** INPUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, SAT IN MASK ** T 6 P** ENDADD=ENDADDRESS OF T:ATAB ** 6 P** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** 6 P** WO
0x0f54cc…0f5660 Dummy {f00=0x007d, f01=0x0190, f02=» & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YES! 2 : P CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL L , P ST A11,SAVE06+STKEND SAVE W.B.-ADDRESS * P CM MOVED+STKEND CLEAR MOVED INDICATOR P LDR A6,A8 PMOVC10 ADK A6,
0x0f5660…0f57f4 (1, 310) Dummy {f00=0x007d, f01=0x0190, f02=»30 LDR* A11,A6 P LD A2,T:DAD,A11 T:D-ADDRESS " P AD A2,MOVADD+STKEND RELOCATE : P ST A2,SAVE03+STKEND SAVE ` , P LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT+STKEND ENOUGHT? 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A
0x0f57f4…0f5988 Dummy {f00=0x007d, f01=0x018e, f02=»IF P IFT MMUPAG=1 PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS : " P AD A2,MOVADD+STKEND RELOCATE ^ 4 P ST A2,SAVE03+STKEND SAVE T:D-ADDRESS TEMPORARY , P EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT+STKEND ENOUGHT?
0x0f5988…0f5b1c Dummy {f00=0x007d, f01=0x0190, f02=» 0 P CW A11,SAVE06+STKEND COMPARE W.B.-ADDRESSES P XIF 8 P RB(NE) MOVC10 .NEQ. D , P LD A9,MOVED+STKEND W.B. ALREADY MOVED? ` . P RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY & P CALL MOVDT MOVE DESCRIPTOR-TABLE * P ST A2,NEWAD1+STKEND SAVE D.
0x0f5b1c…0f5cb0 Dummy {f00=0x007d, f01=0x0190, f02=» MOVC40 NO! " P CALL GETPRO CREATE REAL UWB'S 8 PMOVC40 ST A2,NEWAD2+STKEND SAVE NEW ADDRESS TO W.B. : P CALL MOVDWB v & PMOVC50 CALL CHADR CHANGE ADDRESSES . P CALL ICBMVD INDICATE CURRENT BLOCK MOVED P LDR A11,A8 SAVE T:A-POINTER *
0x0f5cb0…0f5e44 Dummy {f00=0x007d, f01=0x0190, f02=» P CALL MOVDWB P LDR A8,A11 , P LD A12,SAVE04+STKEND RELOAD T:D-ADDRESS , P RB MOVC10 P EJECT n P | P 4 P** G E T P R O ** 4 P** ** 4 P**
0x0f5e44…0f5fd8 Dummy {f00=0x007d, f01=0x0190, f02=» ** t 4 P** ** 4 P** INPUT : A11=PROTOTYPE ADDRESS ** T 4 P** A2=LAST W.B. - ADDRESS ** 4 P** OUTPUT: A2=NEW ADDRESS ** 4 P** WORK-REG
0x0f5fd8…0f616c Dummy {f00=0x007d, f01=0x018e, f02=»A3,U:BTOD,A10 GET U:BTAB ADDRESS P IFT MMUPAG=0 ( P LDR* A4,A3 LENGTH > PGETP10 EQU * X 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH l P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! P CALL ERROR PGETP20 EQU * P
0x0f616c…0f6300 Dummy {f00=0x007d, f01=0x0190, f02=» 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * < P p PGETP30 EQU * x P LD A4,WBLEN,A11 W.B.-LENGTH * P LC A5,UPNUMB,A3 GET NUMBER OF COPIES P ANK A5,/FF , P SU A3,U:BTOD,A10 GET
0x0f6300…0f6494 (1, 311) Dummy {f00=0x007d, f01=0x0190, f02=»A5,URNUMB,A9 STORE IN REAL U:BTAB 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * * 0 P******************************************** ^ . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 PGETP40 CALL MOVWB P SUK A5,1 P R
0x0f6494…0f6628 Dummy {f00=0x007d, f01=0x018e, f02=» ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB P XIF : P IFT MMUPAG=1 F P ELR A4,A3 LENGTH PGETP10 EQU * v 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! P CALL ERRO
0x0f6628…0f67bc Dummy {f00=0x007d, f01=0x018e, f02=» f P ADK A3,UP:REC NEXT P RB GETP10 $ P 6 0 P* GET NUMBER OF COPIES * B 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * v 0 P******************************************** P PGETP30 EQU * P EL A4,WBLEN,A
0x0f67bc…0f6950 Dummy {f00=0x007d, f01=0x0190, f02=» . P AD A3,U:BTNW,A10 ADD TO NEW TABLE ADDRESS P LDR A9,A3 6 " P TL* MMTO+STKCOM LOAD TO-TABLE H * P ES A5,URNUMB,A9 ESORE IN REAL U:BTAB n " P ES A4,URLENG,A9 STORE LENGTH ( P TL* MMFROM+STKCOM RELOAD FROM TABLE 0 P* COPY NUMBER OF WORKBLOCK
0x0f6950…0f6ae4 Dummy {f00=0x007d, f01=0x0190, f02=»GETP50 PGETP40 CALL MOVWB P SUK A5,1 ( P RB(NZ) GETP40 : P P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* PGETP50 EQU * P TL* MMTO+STKCOM 6 P ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U
0x0f6ae4…0f6c78 Dummy {f00=0x007d, f01=0x0190, f02=» ** f 2 P** ** 2 P** ** B 2 P** CHECKS IF W.B. ALREADY MOVED TO COMMON ** x 2 P** AREA. IF NOT MOVE W.B. & D.T. AND ** 2 P** CHECK IF ANY DWB'S
0x0f6c78…0f6e0c Dummy {f00=0x007d, f01=0x0190, f02=»*********************************** P , PMOVCLA EQU * 4 P CALL SHIFT H P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRESS TO A11 r & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(NN) MVCL40 NO! , PMVCL20 CALL SKIFTA GET NEXT BIT IN M
0x0f6e0c…0f6fa0 Dummy {f00=0x007d, f01=0x0190, f02=» P RF(Z) MVCL50 NO! P CALL GETPRO DUPLICATE WB'S 0 PMVCL50 ST A2,NEWAD2+STKEND SAVE W.B.-ADDRESS B P CALL MOVDWB PROCESS DWB'S v P RB MVCL20 P EJECT P P 6 P** C H A D R ** 6
0x0f6fa0…0f7134 (1, 312) Dummy {f00=0x007d, f01=0x0190, f02=» TO W.B. & D.T. IN T:A, ** ~ 6 P** BLOCKS ALREDY MOVED ** ( 6 P** ** b 6 P** INPUT : A6=POINTER IN T:ATAB TO T:A ** 6 P** NEWADR1=NEW D.T.-ADDRESS **
0x0f7134…0f72c8 Dummy {f00=0x007d, f01=0x0190, f02=»S: A1,A2 ** 6 P************************************************* . P h PCHADR EQU * t P IFT MMUPAG=0 P LDR* A1,A6 T:A-ADDRESS 2 P AD A1,TADISP+STKEND ADDRESS TO W.B.-ADDRESS P LD A2,NEWAD2+STKEND
0x0f72c8…0f745c Dummy {f00=0x007d, f01=0x0190, f02=»G=1 P ELR A1,A6 T:A-ADDRESS 2 P AD A1,TADISP+STKEND ADDRESS TO W.B.-ADDRESS * P LD A2,NEWAD2+STKEND ` P ESR A2,A1 | & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1+STKEND P ESR A2,A1 P XIF P RTN A14 P IFT S
0x0f745c…0f75f0 Dummy {f00=0x007d, f01=0x0190, f02=» * l B P* * " B P* B:RSWT - BUILD REAL SWB CONTROL TABLE * h B P* ===================================== * B P*
0x0f75f0…0f7784 Dummy {f00=0x007d, f01=0x0190, f02=» * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB * 6 B P* A5 - LENGTH OF REAL S:BTAB * | B P* * B P
0x0f7784…0f7918 Dummy {f00=0x007d, f01=0x0190, f02=» B P* WORK REGISTERS: A1-A7 * B P* * J B P* SUBROUTINES: * B P*
0x0f7918…0f7aac Dummy {f00=0x007d, f01=0x0190, f02=»AVE POINTER TO FIRST BLOCK 8 P LD A1,APCBLK+STKEND GET START OF APL.CONTROL TABLE " 0 P LD A1,APLSWB,A1 POINTER TO SWB BLOCK TABLE ^ * P RF(Z) RSWBEX NO SWB:S IN APPLICATION P LDR* A3,A1 NUMBER OF TYPES P RF(Z) RSWBEX NO MOORE P LDK A
0x0f7aac…0f7c40 Dummy {f00=0x007d, f01=0x0190, f02=» COPIES | $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P XIF 8 P IFT MMUPAG+SWPBLK=2 D & P ES A6,2,A2 STORE NUMBER OF COPIES ` , P ES A7,4,A2 STORE LENGTH OF SWB IN BYTES P XIF P IFT SWPBLK-MMUPAG=1 & P ST A6,2,A2 STORE NUMBER OF COPIES
0x0f7c40…0f7dd4 (1, 313) Dummy {f00=0x007e, f01=0x0190, f02=»6 INCREMENT POINTER IN BLOCK ( P SUK A3,1 DECREMENT NUMBER OF TYPES $ P RB(P) RSWB10 P P LDR A4,A2 f P* x 4 P* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE ( P* AND RESET ALL WORDS IN TID BLOCKS P* PRSWB20 EQU * ( P LDR
0x0f7dd4…0f7f68 Dummy {f00=0x007e, f01=0x018e, f02=» t P RF(Z) RSWB50 NO COPIES! * P STR A6,A8 STORE POINTER TO TID BLOCK ( PRSWB30 STR A3,A2 RESET TID V , P ADK A2,2 INCREMENT POINTER IN TID BLOCK x . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB $ P SUK A1,1 DECR. NUMBER OF COPIES P RB(P)
0x0f7f68…0f80fc Dummy {f00=0x007e, f01=0x0190, f02=» * P ESR A6,A8 STORE POINTER TO TID BLOCK PRSWB40 ESR A3,A2 RESET TID 2 , P ADK A2,2 INCREMENT POINTER IN TID BLOCK T . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY P XIF
0x0f80fc…0f8290 Dummy {f00=0x007e, f01=0x4098, f02=» RSWBEX YES P LDKL A1,LMP6 SWB ERROR! P CALL ERROR 4 PRSWBEX RTN A14 H P XIF ^ PLCREND EQU * j P ~ P END @ LENGTH OF REAL S:BTAB ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY P XIF
0x0f8290…0f8424 Dummy {f00=0x007e, f01=0x2008, f02=» -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x0f8424…0f85b8 Dummy {f00=0x007e, f01=0x0190, f02=»BITS p $ P RF(Z) DWT60 NOT DOUBLE KEYBOARD $ P LDR A5,A2 GET REAL DWT-ADDRESS 4 P ADK A5,1 ADD ONE * P CALL B:TTAB BUILD ONE BLOCK IN T.I.T. v P SUK A5,1 $ P LDR A2,A5 GET REAL DWT-ADDRESS P RF DWT60 P EJECT PDWT45 CALL
0x0f85b8…0f874c Dummy {f00=0x007e, f01=0x0190, f02=»* THE DEVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT 4 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. n P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN) DWT59 NO ECHOING ON THIS DEVICE
0x0f874c…0f88e0 Dummy {f00=0x007e, f01=0x0190, f02=» x PDWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY , . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT X , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH * P ST* A3,STKEND+ECHTAB STORE NEW LENGTH P
0x0f88e0…0f8a74 (1, 314) Opaque[0x194]
0x0f8a74…0f8c08 # DirEnt {nam=»SYSINI«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x0f8a74…0f8c08 IdxSect {
0x0f8a74…0f8c08 f00 = 0x0027 // 0xf8a74 @0x0
0x0f8a74…0f8c08 f01 = 0x0028 // 0xf8a76 @0x2
0x0f8a74…0f8c08 gno = [ // 0xf8a78 @0x4
0x0f8a74…0f8c08 [0x00]: C0x0027.0x2.0
0x0f8a74…0f8c08 [0x01]: C0x0036.0x0.0
0x0f8a74…0f8c08 [0x02]: C0x0036.0x1.0
0x0f8a74…0f8c08 [0x03]: C0x0036.0x2.0
0x0f8a74…0f8c08 [0x04]: C0x0037.0x0.0
0x0f8a74…0f8c08 [0x05]: C0x0038.0x0.0
0x0f8a74…0f8c08 [0x06]: C0x0038.0x2.0
0x0f8a74…0f8c08 [0x07]: C0x0038.0x3.0
0x0f8a74…0f8c08 [0x08]: C0x0039.0x0.0
0x0f8a74…0f8c08 [0x09]: C0x0039.0x1.0
0x0f8a74…0f8c08 [0x0a]: C0x0039.0x2.0
0x0f8a74…0f8c08 [0x0b]: C0x003b.0x2.0
0x0f8a74…0f8c08 [0x0c]: C0x003c.0x0.0
0x0f8a74…0f8c08 [0x0d]: C0x003c.0x1.0
0x0f8a74…0f8c08 [0x0e]: C0x003c.0x3.0
0x0f8a74…0f8c08 [0x0f]: C0x003d.0x0.0
0x0f8a74…0f8c08 [0x10]: C0x003d.0x3.0
0x0f8a74…0f8c08 [0x11]: C0x003e.0x0.0
0x0f8a74…0f8c08 [0x12]: C0x003e.0x1.0
0x0f8a74…0f8c08 [0x13]: C0x003e.0x2.0
0x0f8a74…0f8c08 ]
0x0f8a74…0f8c08 }
0x0f8c08…0f8d9c Dummy {f00=0x0027, f01=0x0190, f02=» 2 P IDENT SYSINI REL 11.0 81-01-26 870105041100 P : . P =2,WHEN MMUPAG=0 INITIATE PAGE ADDRESS B $ P IN PAGTAB WITH RIGHT VALUE t P PRR 11.0 80-12-03 , P =1,CREATE PAGES FOR APPLICATIONS WITH " P DIFFERENT SEGMENT SIZE
0x0f8d9c…0f8f30 Dummy {f00=0x0027, f01=0x0190, f02=» * P* ENTRIES AND EXTERNALS * P* * @ P*************************** d P P* LABEL ENTRIES P ENTRY SYSINI P ENTRY INILEN PROGRAM LENGTH P ENTRY INIEND END OF SYSINI
0x0f8f30…0f90c4 Dummy {f00=0x0027, f01=0x018e, f02=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK 6 * P ENTRY CONVRT CONVERSION ASCII-BINARY n 2 P ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY & P ENTRY MULT MULTIPLICATION ROUTINE 2 P ENTRY XMOVE
0x0f90c4…0f9258 Dummy {f00=0x0027, f01=0x0190, f02=» l $ P ENTRY GETTAB FIND TTAB-ADDRESS $ P ENTRY GETTTB FIND TTAB-ADDRESS 0 0 P ENTRY MMENT FIND LAST USED ENTRY IN MM-TAB X , P ENTRY PUSH STORE REGISTERS ON A15-STACK 0 P ENTRY POB RESTORE REGISTERS FROM A15-STACK P ENTRY GETAPP P E
0x0f9258…0f93ec Dummy {f00=0x0027, f01=0x0190, f02=»RY MMTAB WORK-TABLE 1 (MMU 6 P ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 " 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' P ENTRY MMBEG , P ENTRY LSTPAG DISPL. TO 'ENTRY POINTER'
0x0f93ec…0f9580 Dummy {f00=0x0027, f01=0x0190, f02=»CTLAC LOGICALL ADDRESS TO COMMON PART P EXTRN SCTTCT TC:TAB ADDRESS . P EXTRN SCTSTB A15 STACK-BASE R " P EXTRN SCTEFA END OF FREE AREA v " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMMC =00002 P EXTRN S
0x0f9580…0f9714 (1, 315) Dummy {f00=0x0036, f01=0x0190, f02=»G BUGGER ADDRESS , P EXTRN STKEND START OF SCRATCH-PAD AREA * P EXTRN STKCOM START OF COMMON-PAD AREA H P v P* EXTERNAL LABELS ~ $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXTRN ACTOT QUEUE TASK P E
0x0f9714…0f98a8 Dummy {f00=0x0036, f01=0x0190, f02=»48 SWITCH TO LEVEL 48 P P* & , P EXTRN TTB:SA START OF SAVE AREA IN TTAB 0 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS ` 8 P EXTRN TTB:MT DISPL. TO 1:ST MMU-TABLE ENTRY IN TTAB 0 P EXTRN TTB:SP DISPL TO SEGMENT TABLE ADDRESS
0x0f98a8…0f9a3c Dummy {f00=0x0036, f01=0x0190, f02=»************************************* , P* CONDITIONAL ASSEMBLY * . , P*************************************** ^ P $ PDSKPAG EQU 0 0 = NO DISC PAGING PMMUPAG EQU 1 0 = NO MMU PCPU852 EQU 0 0 = NOT 852 CPU 2 P******
0x0f9a3c…0f9bd0 Dummy {f00=0x0036, f01=0x018e, f02=» * n 2 P* ==================== * 2 P* * J 2 P********************************************* P P . PAPLADA EQU 22 APPL. REL. BASE (2 WORDS) =1 . PAPLREL EQU 18 NU
0x0f9bd0…0f9d64 Dummy {f00=0x0036, f01=0x0190, f02=» Z 8 PAPLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE ADDRESS D 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) n . PAPLMMC EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . P
0x0f9d64…0f9ef8 Dummy {f00=0x0036, f01=0x018e, f02=»APLSTA EQU 16 APPL. PGM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE . . PAPLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 T P EJECT . P***************************************** . P* * . P* COMMON DISPLA
0x0f9ef8…0fa08c Dummy {f00=0x0036, f01=0x0190, f02=» 0 PAPLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE $ PAPPLNO EQU 18 APPLICATION NUMBER < ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE d . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF D
0x0fa08c…0fa220 Dummy {f00=0x0036, f01=0x018e, f02=»2 1ST FREE PAGE (PHYSICAL) , PFYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER " 6 PLSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART R ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AR
0x0fa220…0fa3b4 (1, 316) Dummy {f00=0x0036, f01=0x0190, f02=» j & PSWBFSE EQU 8 SWB-FILE END ADDRESS ( PTTAB EQU 32 WORK AREA FOR MMU TABLE 2 * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS ^ , PSWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2
0x0fa3b4…0fa548 Dummy {f00=0x0036, f01=0x018e, f02=» $ P******************************* $ P* SCRATCH-PAD DISPLACEMENTS * , $ P******************************* T P* | . PAPCBLK EQU 0 START OF APPL. CONTROL BLOCK P EJECT P P ***************** P *****************
0x0fa548…0fa6dc Dummy {f00=0x0036, f01=0x0190, f02=» z P P********** P* P:MTAB * & P********** 8 PT:ATAB EQU 0 J PU:BTAB EQU 2 ^ PP:BAS EQU 6 SEGMENT BASE r . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS P EJECT P
0x0fa6dc…0fa870 Dummy {f00=0x0036, f01=0x0190, f02=»* r P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE 6 ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS X , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK LEVEL
0x0fa870…0faa04 Dummy {f00=0x0036, f01=0x0190, f02=» DEVICE CLASS ~ PTLC EQU 7 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH 8 P* d * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD n P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CDBBT+1 2N NUMBER
0x0faa04…0fab98 Dummy {f00=0x0036, f01=0x0190, f02=»UDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES " P* R ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH P EJECT
0x0fab98…0fad2c Dummy {f00=0x0036, f01=0x0190, f02=»SEGMENT END (HERE: STACKSIZE) | $ PCSB EQU -12 CURRENT SEGMENT BASE & 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH N 2 P OF ALL DSCB-RECORDS PT:DAD EQU -8 ADDRESS TO T:D * PCIA EQU -6 CURRENT INSTUCTION ADDRESS
0x0fad2c…0faec0 Dummy {f00=0x0036, f01=0x0190, f02=» POINTER PSTKB EQU 2 STACK BASE " PWATFST EQU 4 FIRST WAT-ELEMENT . P* T P* DSCB-RECORD: ^ PDSCBL EQU 20 RECORD LENGTH t " PBL EQU 2 LENGTH OF FIX BUFFER 2 PSB EQU 4 INDEX TO DSCB WHICH SHARE THE BUFFER PBP EQU 18 BUFFER POINT
0x0faec0…0fb054 (1, 317) Dummy {f00=0x0036, f01=0x0190, f02=»:A n , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) : 8 PDATTAB EQU 6 DISPLACEMENT TO BEGINNING OF DAT-TABLE j & PWATLEN EQU 8 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 10 MASK FOR TWB'S (ONE BIT/ENTRY) * PSWBM
0x0fb054…0fb1e8 Dummy {f00=0x0036, f01=0x0190, f02=»BFST EQU 18 FIRST WORD IN DBLK-TAB P * . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS 2 P d P p P**************** x P* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS P P LAMP CODE MEANING P
0x0fb1e8…0fb37c Dummy {f00=0x0036, f01=0x0190, f02=»P4 EQU /80 FORMAT ERROR (CONFIG) PLMP5 EQU /40 TID ERROR ( " PLMP6 EQU /20 UWB OR SWB ERROR F " PLMP7 EQU /10 MM-TABLE OVERFLOW l PLMP8 EQU 8 PLMP9 EQU 4 PLMP10 EQU 2 PLMP11 EQU 1 P EJECT " P****************************
0x0fb37c…0fb510 Dummy {f00=0x0036, f01=0x0190, f02=»AX EQU 500 DEFAULT SPL STACK-SIZE 4 PENTFIN EQU /FFFF PROGRAMMER DEFINED ENTRY POINT * & PSPLSTS EQU 4 DIAGNOSTIC,STACK-SIZE b PSPLSTB EQU 52 STACK-BASE PSPLENT EQU 54 ENTRY-FINI PSPLSTA EQU 88 STACK-AREA P P P************
0x0fb510…0fb6a4 Dummy {f00=0x0036, f01=0x0190, f02=» n , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE & PSWBLEN EQU 4 DISP TO LENGTH OF SWB 8 P b $ PFCBDD1 EQU 8 DISP TO FIRST DSET n $ PFCBDD2 EQU 10 DISP TO 2:ND DSET P $ PSTKSZ EQU 128 DEFAULT STACK-SIZE P ( PSEGREC EQU
0x0fb6a4…0fb838 Dummy {f00=0x0036, f01=0x0190, f02=»DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB 0 P ^ ( PNTPA EQU 4 INTERPRETER START ADDRESS f & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ PRTCDA EQU /1B RTC DEVICE ADDRESS P > PTABLEN EQU 20 LENGTH OF
0x0fb838…0fb9cc Dummy {f00=0x0036, f01=0x0190, f02=»********************************* p F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * * F P* DATA [REL-ADDRESS] * t F P* * F P
0x0fb9cc…0fbb60 Dummy {f00=0x0036, f01=0x0190, f02=» P EJECT P LDKL A1,SYSINI P AD A1,M:REL+STKCOM * " P ABR A1 GO TO START OF SYSINI F P EJECT l P z 6 P************************************************** 6 P************************************************** 6 P**
0x0fbb60…0fbcf4 (1, 318) Dummy {f00=0x0037, f01=0x0190, f02=» ** n 6 P************************************************** 6 P************************************************** R P , PREL RF SUBBA JUMP TO SUBROUTINE HANDLER & P LDR A13,P GET BASE ADDRESS TO A13 P SUKL A13,4 P*
0x0fbcf4…0fbe88 Dummy {f00=0x0037, f01=0x0190, f02=»SOLUT DITO 4 P ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE P* LOAD STACKBASE * J P****************** d P ~ P LDKL A14,STACKB P ADR A14,A13 RELOCATE P RTN A8 P P P* STACK * P********* P
0x0fbe88…0fc01c Dummy {f00=0x0037, f01=0x0190, f02=»************** P* PPSW EQU *-REL P DATA GETPSW 6 P J D P**************************************************************** V D P* G E T P S W * D P* LITTLE SUBROUTINE TO PUT PSW IN
0x0fc01c…0fc1b0 Dummy {f00=0x0037, f01=0x0190, f02=»EL $ P STR A2,A14 SAVE A2 ON A14-STACK ! 0 P LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ! 2 . P ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM ! f P LDR* A2,A14 RESTORE A2 ! P RTN A14 ! P EJECT ! P ! & P********************************* ! & P
0x0fc1b0…0fc344 Dummy {f00=0x0037, f01=0x018e, f02=»*********************** ! P " PSUBSUB EQU *-REL " ( & PSUBBA ST A10,COM04+STKCOM SAVE A10 " @ . P LD* A10,4,A14 GET SUBROUTINE REL ADDRESS " j $ P IM 4,A14 ADJUST RETURN ADDRESS " P IM 4,A14 " 2 P AD A10,M:REL+STKCOM ADD FOR SYSLDM RELOCATION "
0x0fc344…0fc4d8 Dummy {f00=0x0037, f01=0x0190, f02=» " P* MMU TABLES * # P # P # & . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE # . P IFT MMUPAG=1 # ` P RES 16 # v P XIF # P # $ PMMTAB EQU *-REL WORK AREA MM-TAB # PTABBE EQU * # P IFT MMUPAG=1 # P DATA 0,0,0,0,0,0,0,0 #
0x0fc4d8…0fc66c Dummy {f00=0x0037, f01=0x0190, f02=»M BOTTOM) IN MM-TAB # t P DATA 0 $ 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' $ , ( P DATA 0 APPL. CONTROL BLOCK ADDRESS $ ` P $ PMMBEG EQU TABBE-* $ P EJECT $ P $ 6 P*** *** $ 6 P***
0x0fc66c…0fc800 Dummy {f00=0x0037, f01=0x018e, f02=»*********************** $ v 6 P************************************************* % P % Z P % f , P** E R R O R ** % r , P** ** % , P** ** % , P** ER
0x0fc800…0fc994 (1, 319) Dummy {f00=0x0038, f01=0x0190, f02=» , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** & , P** (REG-CONTENTS IS SAVED) ** & 4 , P**************************************** & d P & PERROR EQU * & P ST A2,COM01+STKCOM SAVE A2 & . P LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS & P S
0x0fc994…0fcb28 Dummy {f00=0x0038, f01=0x018e, f02=» P U S H ** & ( P** ** ' " ( P** ** ' N ( P** STORE REGISTERS ON A15-STACK ** ' z ( P** ** ' ( P************************************ ' PPUSH EQU *
0x0fcb28…0fccbc Dummy {f00=0x0038, f01=0x0190, f02=» ' z P STR A5,A15 SAVE A5 ( P STR A6,A15 SAVE A6 ( $ P STR A7,A15 SAVE A7 ( @ P STR A8,A15 SAVE A8 ( P STR A9,A15 SAVE A9 ( x P STR A10,A15 SAVE A10 ( P STR A11,A15 SAVE A11 ( P STR A12,A15 SAVE A12 ( P STR A13,A15 SAVE A13 (
0x0fccbc…0fce50 Dummy {f00=0x0038, f01=0x0190, f02=» P EJECT ) P ) P** P O B ) P** ) 6 P** ) @ , P** RESTORE REGISTERS FROM A15-STACK ** ) J , P** ** ) z , P**************************************** ) P ) PPOB EQU * ) P IFT CPU852=1 )
0x0fce50…0fcfe4 Dummy {f00=0x0038, f01=0x0190, f02=»A10,A15 RESTORE A5 ) P LDR* A9,A15 RESTORE A6 * P LDR* A8,A15 RESTORE A7 * : P LDR* A7,A15 RESTORE A8 * Z P LDR* A6,A15 RESTORE A9 * z P LDR* A5,A15 RESTORE A10 * P LDR* A4,A15 RESTORE A11 * P LDR* A3,A15 RESTORE A12 * P LDR* A2,A15 R
0x0fcfe4…0fd178 Dummy {f00=0x0038, f01=0x0190, f02=»IF * P RTN A14 + P EJECT + P + ( & P** M O V E ** + 0 & P** ** + Z & P** ** + & P** MOVE BLOCKS INSIDE MEMORY ** + & P** ** + & P** IN
0x0fd178…0fd30c Dummy {f00=0x0038, f01=0x0190, f02=» ** + & P** WORK-REG: A4 ** , & P********************************* , D P , n PMOVE EQU * , z $ PMOVES ADR A1,A3 END OF FROM AREA , P ADR A2,A3 END OF TO-AREA , PMOVE10 SUK A3,1 DEC LENGTH , P RF(N) MOVE20 AL
0x0fd30c…0fd4a0 Dummy {f00=0x0038, f01=0x0190, f02=»VE20 RTN A14 , P IFT MMUPAG=0 - P EJECT - * P - 8 P - D 4 P** M O V I N G ** - P 4 P** ** - 4 P** ** - 4 P** USES ROUTINE
0x0fd4a0…0fd634 (1, 320) Dummy {f00=0x0038, f01=0x0190, f02=» ** - h 4 P** ADDRESS. LSTADR IS UPDATED AND CHECKED ** . 4 P** ** . H 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** . 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** . 4 P** WORK-REG: A4
0x0fd634…0fd7c8 Dummy {f00=0x0038, f01=0x0190, f02=» REGISTERS ON A15-STACK . * P LD A2,LSTADR+STKCOM GET LAST ADDRESS / P LDR A9,A2 / N P LDR A11,A3 / ` & P CALL CMPADR ENOUGTH MEMORY LEFT? / t P RF(NL) MOV010 NO! / P SUR A2,A3 SUB LENGTH / $ P ANKL A2,/FFFE MAKE EVEN ADDRESS / P LDR A11,A
0x0fd7c8…0fd95c Dummy {f00=0x0038, f01=0x0190, f02=»MP3 MEMORY OVERFLOW / P CALL ERROR 0 8 PMOV020 LD A9,FSTADR+STKCOM CHECK FIRST FREE ADDRESS 0 0 P CALL CMPADR 0 l P RB(L) MOV010 0 $ P ST A2,LSTADR+STKCOM NEW ADDRESS 0 . P CALL POB RESTORE REGISTERS FROM A15-STACK 0 P LD A2,LSTADR+STKCOM 0
0x0fd95c…0fdaf0 Dummy {f00=0x0038, f01=0x0190, f02=» ** 0 x 4 P** ** 1 4 P** MOVE BLOCK INSIDE MEMORY VIA MMU ** 1 X 4 P** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** 1 4 P** -MOVE TO USER AREA ** 1 4 P** IF '
0x0fdaf0…0fdc84 Dummy {f00=0x0038, f01=0x018e, f02=» ** 1 p 4 P** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)** 2 4 P** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)** 2 P 4 P** A3=LENGTH (IN BYTES) ** 2 4 P** WORK.REGS:A4,A10 ** 2 4 P****************
0x0fdc84…0fde18 Dummy {f00=0x0038, f01=0x0190, f02=» P ST A1,COM01+STKCOM 3 P ST A2,COM02+STKCOM 3 P ST A3,COM03+STKCOM 3 < PXMOV05 EQU * 3 X P LDR A10,A3 SAVE LENGTH 3 l , P LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER 3 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE 3 2 P LD A9,BUFSIZ+STKCOM GET TEMPO
0x0fde18…0fdfac Dummy {f00=0x0038, f01=0x0190, f02=»NGTH 3 x ( P LD A1,COM01+STKCOM GET FROM ADDRESS 4 8 P LD A2,SYSBUF+STKCOM GET TEMP. BUFFER START-ADDRESS 4 8 & P TL* MMFROM+STKCOM LOAD FROM-TABLE 4 t , P MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER 4 2 P ST A1,COM01+STKCOM SAVE END OF 'FROM' ADDRESS 4 P LD
0x0fdfac…0fe140 Dummy {f00=0x0038, f01=0x0190, f02=»LE 4 t ( P MVSU A3 MOVE DATA-BLOCK FROM BUFFER 5 " P SUK A4,1 MORE PARTS TO MOVE? 5 6 P RF(N) XMOV30 NO! 5 P ADR A2,A10 5 v 2 P ST A2,COM02+STKCOM SAVE START OF 'TO' ADDRESS 5 , P LD A3,COM03+STKCOM GET REQUESTED LENGTH 5 $ P SUR A3,A10 SUBTRACT MOV
0x0fe140…0fe2d4 (1, 321) Dummy {f00=0x0038, f01=0x0190, f02=»ALL CMPADR REMAINING LENGTH<CURRENT BUFFER LENGTH? 5 P RB(NL) XMOV10 6 : P LDR A10,A3 LAST LENGTH 6 P P RB XMOV10 6 p P EJECT 6 P 6 PSPLIT EQU * 6 P LDR A1,A3 GET DIVISOR 6 * P SRL A1,15 MOST SIGN. PART OF DIVISOR 6 P LDR A2,A3 GET D
0x0fe2d4…0fe468 Dummy {f00=0x0038, f01=0x0190, f02=»ENGTH 6 p P RB XMOV10 7 P 7 4 PXMOV30 CALL POB RESTORE REGISTERS FROM A15-STACK 7 ( P RTN A14 7 ` P EJECT 7 p P 7 ~ 4 P** M O V I N G ** 7 4 P** ** 7 4 P**
0x0fe468…0fe5fc Dummy {f00=0x0038, f01=0x018e, f02=» ** 7 f 4 P** IS ALWAYS ASSUMED TO BE DATA PART OF ** 8 4 P** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** 8 F 4 P** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** 8 ~ 4 P** IS UPDATED AND CHECKED. ** 8 4 P**
0x0fe5fc…0fe790 Dummy {f00=0x0038, f01=0x0190, f02=» 8 ^ 4 P** OUTPUT:A2=LOGICALL TO-ADDRESS ** 9 4 P** WORK-REGS: A4,A10 ** 9 @ 4 P*********************************************** 9 x P 9 PMOVING EQU * 9 , P CALL PUSH STORE REGISTERS ON A15-STACK 9 0 P LD A4,FYSPA
0x0fe790…0fe924 Dummy {f00=0x0038, f01=0x0190, f02=» " P LDR* A9,A2 GET PAGE IN TABLE : P ANKL A9,/FC00 : * * P CWR A9,A4 CORRECT PAGE IN MMU-TABLE? : @ P RF(E) MOV010 YES! : n & P ADKL A4,/400 ADJUST FOR 'SETTAB' : $ P CALL SETTAB NEW PAGE IN TABLE! : : PMOV010 LD A11,LSTADR+STKCOM GET LAST LOGICALL
0x0fe924…0feab8 Dummy {f00=0x0038, f01=0x0190, f02=» RF(NL) MOV020 YES! : , P SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE ; PMOV015 RF(NP) MOV025 ; L * P CALL SETTAB INITIALIZE NEW PAGE ENTRY ; h * P ADKL A11,4096 PHYSICAL PAGE INCREMENT ; P RB MOV015 ; 2 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE ;
0x0feab8…0fec4c Dummy {f00=0x0038, f01=0x0190, f02=»T ENOUGH. NEW PAGE! ; P < ( P* MM-TABLE CORRECT. SAVE ADDRESSES * < $ P < P P* A4=PHYSICALL PAGE NUMBER < X P* A11=DISPLACEM. WITHIN PAGE < z " P* A2=CURRENT ENTRY IN MM-TABLE < P < PMOV050 EQU * < , P ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB
0x0fec4c…0fede0 Dummy {f00=0x0038, f01=0x0190, f02=»LUTE ENTRY ADDRESS < * P ST A4,MMTO+STKCOM SAVE TABLE ADDRESS = P SUR A2,A4 RELATIVE ADDRESS = H 2 P SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2 = l * P ORR A2,A11 GET DISPLACEM. WITHIN PAGE = P ANKL A2,/FFFE EVEN ADDRESS = . P ST A2,LSTADR+STKCOM
0x0fede0…0fef74 (1, 322) Dummy {f00=0x0039, f01=0x018e, f02=»AVE A11 = z P LD A11,FYSPAG+STKCOM > P CALL CMPADR AND COMPARE > . P RF(G) MOV090 OK! > N P RF(L) MOV070 NOK! > h ( P LD A11,COM01+STKCOM RESTORE DISPL. > P LD A9,FSTADR+STKCOM > P CALL CMPADR > P RF(NL) MOV090 OK! > PMOV070 LDKL A1,L
0x0fef74…0ff108 Dummy {f00=0x0039, f01=0x0190, f02=» ( P CALL INBIMA INIT ALLOCATION BIT MAP ? 4 PMOV100 CALL POB RESTORE REGISTERS FROM A15-STACK ? 0 0 P LD A2,LSTADR+STKCOM GET LOGICAL TO-ADDRESS ? h ( P TL* MMFROM+STKCOM RESTORE MM-TABLE ? P RTN A14 ? P XIF ? P EJECT ? P ? 6 P**
0x0ff108…0ff29c Dummy {f00=0x0039, f01=0x0190, f02=» ** ? n 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** @ 6 P** OVERFLOW. ** @ R 6 P** ** @ 6 P** INPUT :A2-ADDRESS TO CURRENT ENTRY ** @ 6 P**
0x0ff29c…0ff430 Dummy {f00=0x0039, f01=0x0190, f02=» ** @ t 6 P************************************************* A P A X PSETTAB EQU * A ` P IFT MMUPAG=1 A t P SUKL A4,/400 GET NEXT PAGE A P SUK A2,2 GET NEXT ENTRY A P A " P* CHECK IF MM-TABLE OVERFLOW * A P A ( P LDR
0x0ff430…0ff5c4 Dummy {f00=0x0039, f01=0x0190, f02=» P RF SETT05 B PSETT00 CWR A2,A9 OVERFLOW? B PSETT05 RF(NL) SETT10 NO B 8 P LDK A1,LMP7 B X P CALL ERROR B l PSETT10 EQU * B P STR A4,A2 STORE IN TABLE B P RTN A14 B P XIF B P EJECT B P B P B P B 6 P**
0x0ff5c4…0ff758 Dummy {f00=0x0039, f01=0x018e, f02=» ** B l 6 P** COMPARE ADDRESSES. RESULT IN PSW ON RETURN ** C 6 P** ** C P 6 P** INPUT : A11 COMPARED TO.. ** C 6 P** A9 ** C 6 P** OUTPUT
0x0ff758…0ff8ec Dummy {f00=0x0039, f01=0x0190, f02=» P TNM A11,A9 D P RF(NN) CMPA10 D P CWR A9,A11 D . P RF CMPA20 D B PCMPA10 CWR A11,A9 D T . PCMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK D n P RTN A14 D P EJECT D P D P D 4 P** M U L T ** D
0x0ff8ec…0ffa80 Dummy {f00=0x0039, f01=0x0190, f02=» (A2) X A3(), A2#0 ** D ~ 4 P** ** E & 4 P** INPUT : A3,A2 ** E ^ 4 P** OUTPUT:A3=RESULT ** E 4 P************************************************ E PMU
0x0ffa80…0ffc14 (1, 323) Dummy {f00=0x0039, f01=0x0190, f02=»2,1 E P RB(NZ) ADD F P LDR* A2,A14 F P RTN A14 F 4 P EJECT F D P F R 4 P** M M E N T ** F Z 4 P** ** F 4 P** ** F 4 P** FI
0x0ffc14…0ffda8 Dummy {f00=0x0039, f01=0x0190, f02=» ** F r 4 P** INPUT :A3=MM-TABLE ADDRESS ** G 4 P** OUTPUT:A3=ENTRY ADDRESS ** G R 4 P** A9=TTAB-ADDRESS ** G 4 P** LSTPAG IN TTAB=A3 ** G 4 P** A1=
0x0ffda8…0fff3c Dummy {f00=0x0039, f01=0x0190, f02=»G=1 G P LDR A9,A3 GET TABLE ADDRESS H 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) H 0 P SUK A3,2 H j & PMMEN10 ADK A3,2 INCREMENT ADDRESS H | ( P LDR* A1,A3 GET CONTENTS OF MM-TABLE H P ANKL A1,/FC00 H P CWK A1,/FC00 H P RB(Z) MME
0x0fff3c…1000d0 Dummy {f00=0x0039, f01=0x0190, f02=»T T A B ** H | 2 P** ** I " 2 P** ** I X 2 P** FIND TTAB ADDRESS ** I 2 P** ** I 2 P** INPUT :A8=
0x1000d0…100264 Dummy {f00=0x0039, f01=0x0190, f02=» ** I f 2 P** WORKREGS:A3,A4,A10 ** J 2 P********************************************** J B P J x PGETTAB EQU * J P IFT MMUPAG=0 J P LDR* A3,A8 T:A ADDRESS J & P LD A1,T:ATID,A3 GET TID TO MATCH J P LD A12,T:DAD,A3 T:D
0x100264…1003f8 Dummy {f00=0x0039, f01=0x0190, f02=» XIF J & PGETTTB EQU * ENTRY. INPUT: A1=TID K " P ST A10,COM04+STKCOM SAVE A10 K 6 $ P LD A4,SCTTCT GET TC:TAB ADDRESS K P LDR* A10,A4 TCTAB LENGTH K PGETT10 ADK A4,2 K P SUKL A10,2 ALL? K P RF(NN) GETT20 NO! K * P LDR A3,A1 SAVE A1 (DEBU
0x1003f8…10058c Dummy {f00=0x0039, f01=0x0190, f02=»? K v P RB(NE) GETT10 NO! L P ST A2,TTAB+STKCOM SAVE L $ P LD A10,COM04+STKCOM L D P RTN A14 L ` P EJECT L p > P********************************************************** L ~ > P* * L > P*
0x10058c…100720 Dummy {f00=0x0039, f01=0x0190, f02=» * L > P* REFERENCED IN: MOVING,SYSLDB PART 2 * M 8 > P* * M z > P* ENTRY: MAPLEN - LENGTH OF AREA TO BE MAPPED * M > P*
0x100720…1008b4 (1, 324) Dummy {f00=0x0039, f01=0x0190, f02=» * M > P* EXIT: * N 4 > P* * N v > P* WORK REGISTERS: A1,A2,A3,A4 * N > P*
0x1008b4…100a48 Dummy {f00=0x0039, f01=0x0190, f02=» * N ~ > P********************************************************** O 0 PINBIMA EQU * O r P IFT MMUPAG=1 O P LDKL A1,/8000 INIT BIT MASK O * P LD A2,STKCOM+LSTADR GET LAST ADDRESS O P LDR A4,A2 SAVE O . P A
0x100a48…100bdc Dummy {f00=0x0039, f01=0x0190, f02=»NT O n ( P AD A4,STKCOM+TTAB ADD TTAB ADDRESS P " P LDR A3,A2 GET LOGICAL ADDRESS P 6 , P ANKL A3,/3000 SELECT ENTRY IN PARTITION P . P SRL A3,12 DISPL. REL. START OF PARTITION P * PMAP:40 SUK A3,1 CORRECT NIBBLE FOUND? P P RF(N) MAP:50 YES P P S
0x100bdc…100d70 Dummy {f00=0x0039, f01=0x0190, f02=»E P * PMAP:60 SUK A3,1 CORRECT 1K-PARTITION? Q P RF(N) MAP:65 YES Q 8 P SRL A1,1 NEXT 1K-PARTITION Q R P RB MAP:60 Q v * PMAP:65 LD A3,STKCOM+MAPLEN GET LENGTH Q * P ANKL A2,/3FF REMANING PART OF 1K-PAGE Q P ADR A3,A2 ADJUST LENGTH Q . P LDK
0x100d70…100f04 Dummy {f00=0x0039, f01=0x0190, f02=»OCCUPIED Q h P LDR A3,A3 GET LENGTH R P RF(N) MAP:80 >32K R . " P SUKL A3,/400 DECREMENT LENGTH R H $ P RF(NP) MAP100 MAPPING FINISHED R n P RF MAP:90 R ( PMAP:80 SUKL A3,/400 DECREMENT LENGTH R & PMAP:90 SRL A1,1 NEXT 1K-PARTITION R , P RB(NZ) MA
0x100f04…101098 Dummy {f00=0x0039, f01=0x0190, f02=»DKL A1,/8000 INIT BIT MASK R P RB MAP:70 S " PMAP100 EQU * S 4 P XIF S H P RTN A14 S T P EJECT S d P S r 2 P** M M R S T ** S z 2 P** ** S 2 P** RESET MMTAB ENTRIES FROM ADDRE
0x101098…10122c Dummy {f00=0x0039, f01=0x0190, f02=» ** S 2 P** INPUT : A1 = LAST USED ENTRY ** T . 2 P** OUTPUT: A1 = MMTAB START ADDRESS ** T d 2 P** A2 = MMTAB START ADDRESS ** T 2 P** A12= /FC00 ** T 2 P**
0x10122c…1013c0 Dummy {f00=0x0039, f01=0x0190, f02=» T n P ADR A2,A13 U P SUK A2,2 U P LDKL A12,/FC00 INDICATOR U . PMMRST1 EQU * U P P SUK A1,2 NEXT ENTRY U d P CWR A1,A2 ALL DONE ? U P RF(E) MMRST2 YES U $ P STR A12,A1 INDICATE FREE ENTRY U P RB MMRST1 NEXT ENTRY U PMMRST2 EQU
0x1013c0…101554 (1, 325) Dummy {f00=0x003b, f01=0x0190, f02=» * U p 0 P* GET START OF APLTAB-BLOCK AND CONFIGURA- * V 0 P* TION-DATA FOR SPECIFIED APPLICATION * V H 0 P* AND IF MMU-CASE ,LOAD HARDWARE MMU-TABLE * V | 0 P* AND MMTAB WITH MMU-TABLE FROM TTAB * V 0 P*
0x101554…1016e8 Dummy {f00=0x003b, f01=0x0190, f02=» APPL.TYPE 0,1,2,3... * V 0 P* CONSTA=START OF CONF.DATA * W $ 0 P* * W X 0 P* OUTPUT: A1=ADDRESS TO FIRST ENTRY IN * W 0 P* APLTAB-BLOCK * W 0 P* A2=BLOCK T
0x1016e8…10187c Dummy {f00=0x003b, f01=0x0190, f02=»* APPLICATION * W 0 P* APPLNO=APPLNO+1 IF APPLICATION * X 4 0 P* IS FOUND * X h 0 P* ELSE APPLNO IS UNCHANGED * X 0 P* CONSTA=START OF CONF.DATA * X 0 P*
0x10187c…101a10 Dummy {f00=0x003b, f01=0x0190, f02=» * X l 0 P* WORK REGISTERS : A1-A4,A11 * Y 0 P* * Y D 0 P******************************************** Y x PGETAPP EQU * Y . P* INITIATE REGISTERS AND INCREMENT APPLNO Y ( P LD A3,APLTAB+STKCOM A
0x101a10…101ba4 Dummy {f00=0x003b, f01=0x0190, f02=»DK A2,0 CLEAR APPL.COUNTER OF Y P ALL APPL.TYPES Z & 8 P* FIND RIGHT APLTAB-BLOCK FOR SPECIFIED APPLICATION Z @ PGTA100 EQU * Z | ( P ADK A2,1 INCREMENT APPL.COUNTER OF Z P ALL APPL.TYPES Z 0 P CW* A2,APLTAB+STKCOM ANY APPLICATION LEFT? Z
0x101ba4…101d38 Dummy {f00=0x003b, f01=0x0190, f02=»P,A3 RIGHT APPL.TYPE? Z P RF(E) GTA200 YES! [ . P ADK A3,ACBLEN UPDATE APLTAB-BLOCK ADDRESS [ 8 & P RB GTA100 SHECK NEXT APLTAB-BLOCK [ j PGTA200 EQU * [ . P CW A4,APPLNO+STKCOM RIGHT APPL.NUMBER OF [ P CURRENT APPL.TYPE? [ P RF(E) GTA300 YE
0x101d38…101ecc Dummy {f00=0x003b, f01=0x0190, f02=»GTA100 SHECK NEXT APLTAB-BLOCK [ PGTA300 EQU * & P IFT MMUPAG=1 : . P* GET MMU-TABLE FROM TTAB OF CURRENT TASK P 6 P LD* A4,APLMMC,A3 GET TCTAB-ENTRY FOR CURRENT TASK 4 P ADKL A4,TTB:MT ADDRESS TO 1:ST MMU-TABLE ENTRY P IN TTAB P T
0x101ecc…102060 Dummy {f00=0x003b, f01=0x0190, f02=»N ^ $ P LDK A4,0 CLEAR APPL.COUNTER OF ] P ALL APPL.TYPES ] 2 , P LDR A1,A3 LOAD APLTAB-BLOCK ADDRESS TO ] L P OUTPUT REGISTER ] | 0 P LD A11,CONSTA+STKCOM GET START OF CONF.DATA ] ( P ADK A4,1 INCREMENT APPL.COUNTER OF ] P ALL APPL.TYPES
0x102060…1021f4 (1, 326) Dummy {f00=0x003c, f01=0x0190, f02=» A3,A11 GET CHAR. FROM CONF.DATA ] , P ADKL A11,1 INCREMENT CONF.DATA POINTER ^ ( * P CCK A3,/FFFF IS CONF.DATA CHAR. /FF? ^ X P RB(NE) GTA400 NO! ^ ( P ADK A4,1 INCREMENT APPL.COUNTER OF ^ P ALL APL.TYPES ^ $ P CWR A2,A4 RIGHT APPL.NUMBER OF ^
0x1021f4…102388 Dummy {f00=0x003c, f01=0x018e, f02=» TO PSW OF THIS ^ x ( P* SUBRUTIN,AND RETURN FROM SUBRUTIN _ PGTA800 EQU * _ D . P IM APPLNO+STKCOM INCREMENT APPL.NUMBER OF _ X P CURRENT APPL.TYPE _ P LDK A2,0 CLEAR REGISTER _ ( P LCR A2,A11 GET CHAR FROM CONF.DATA _ 0 P LDK A4,1 MAKE COND.RE
0x102388…10251c Dummy {f00=0x003c, f01=0x0190, f02=» P ` P ` 6 P** C O N V R T ** ` 6 P** ** ` V 6 P** ** ` 6 P** CONVERSION OF TWO ASCII-DIGITS TO BINARY ** ` 6 P**
0x10251c…1026b0 Dummy {f00=0x003c, f01=0x0190, f02=»SULT ** ` x 6 P** WORK.REGS: A3,A2 ** a " 6 P************************************************** a P a PCONVRT EQU * a P LDK A1,0 CLEAR RESULT REG a P LDR A3,A5 a P SRL A3,8 GET TEN'S a P S
0x1026b0…102844 Dummy {f00=0x003c, f01=0x0190, f02=»3,A5 a P ANK A3,/F GET ONE'S b P ADR A1,A3 b ( P RTN A14 b : P EJECT b J P b X 6 P** N X T B L K ** b ` 6 P** ** b 6 P** ** b
0x102844…1029d8 Dummy {f00=0x003c, f01=0x0190, f02=»=ADDRESS TO CURRENT BLOCK-START ** b 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** c , 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** c f 6 P** WORKREGS: A1,A3-A5 ** c 6 P**********************************************
0x1029d8…102b6c Dummy {f00=0x003c, f01=0x0190, f02=»N-BLOCK c j P LCR A5,A11 d P SLL A5,8 d $ P LC A5,1,A11 d 6 P CALL CONVRT d J P LDK A2,TDBREC d ^ P LDR A3,A1 d t P CALL MULT d P ADR A11,A3 d P ADKL A11,2 d 0 P LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES d P SLL A5,8 d P L
0x102b6c…102d00 Dummy {f00=0x003c, f01=0x0190, f02=»1=NEXT BLOCK d P ADKL A11,2 e $ P LC A2,TDBBT,A11 GET BLOCK TYPE e ( P RTN A14 e P P EJECT e ` P e n P e z 8 P** G E T N U M ** e 8 P** ** e 8 P**
0x102d00…102e94 (1, 327) Dummy {f00=0x003c, f01=0x018e, f02=» ** e v 8 P** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER ** f " 8 P** OUTPUT: A5=BINARY VALUE ** f ^ 8 P** WORK.REGS: A2,A4 ** f 8 P**************************************************
0x102e94…103028 Dummy {f00=0x003c, f01=0x0190, f02=» f x PGET030 ADK A6,1 NEXT DIGIT g P LCR A2,A6 GET CHAR g * P ANK A2,/F g F PGET050 SUK A2,1 g X " P RF(N) GET100 THIS DIGIT READY g p P ADR A5,A4 ACCUMULATE g P RB GET050 g , PGET100 SUK A4,90 NEXT INCREMENT (TEN'S) g P RB(P) GET030 g
0x103028…1031bc Dummy {f00=0x003c, f01=0x0190, f02=» Q U E J O B ** g 8 P** ** h 2 8 P** ** h n 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** h 8 P** 0, ENB.
0x1031bc…103350 Dummy {f00=0x003c, f01=0x0190, f02=»AB-ADDRESS ** h 8 P*************************************************** i , P i h PQUEJOB EQU * i p P* QUEUE THIS TASK (THIS TID) i P i 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS i P ADR A3,A13 RELOCATE i P STR A3,
0x103350…1034e4 Dummy {f00=0x003c, f01=0x0190, f02=»0 CLEAR ABORT INDICATOR i P IFT MMUPAG=0 j , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS j 6 P ADK A4,2 j f P ANKL A4,/FFFE j x P ADK A4,DWBFST+4 j 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS j & P LDR* A6,A4 NUMBER OF START POINTS j
0x1034e4…103678 Dummy {f00=0x003c, f01=0x0190, f02=»ER j x P XIF k P IFT MMUPAG=1 k , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS k , P ADK A4,2 k P ANKL A4,/FFFE k n P ADK A4,DWBFST+4 k 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS k & P ELR A6,A4 NUMBER OF START-POINTS k . PGETT30
0x103678…10380c Dummy {f00=0x003c, f01=0x0190, f02=» XIF k P CF A15,ACTOT l $ P ADK A4,STPREC NEXT START-POINT l " P RB GETT30 l J $ PGETT40 ABL RETUR8 RELOAD 8 REGS l PRETUR EQU *-REL l P RTN A14 l P EJECT l P l 4 P** M O V M M T ** l 4 P**
0x10380c…1039a0 Dummy {f00=0x003c, f01=0x0190, f02=» ** l j 4 P** ** m 4 P** INPUT :A2=TTAB-ADDRESS ** m J 4 P** MMTAB HOLDS TABLE TO MOVE ** m 4 P** OUTPUT:A2=START OF MM-TABLE IN TTAB ** m 4 P** A9=TTAB AD
0x1039a0…103b34 (1, 328) Dummy {f00=0x003c, f01=0x0190, f02=»* m b P n PMOVMMT EQU * n P IFT MMUPAG=1 n & ( P ADKL A2,MMBEG GET TO-TABLE ADDRESS n < " P TL MMTAB,A13 LOAD FROM-TABLE n h P TSR A2 MOVE n P LDR A3,A2 n ( P CALL MMENT FILL LAST ENTRY ADDRESS n $ P TL* MMFROM+STKCOM RELOAD TABLE n P
0x103b34…103cc8 Dummy {f00=0x003c, f01=0x0190, f02=»NITIATE DYNAMIC CORE FOR COBOL n P* o & " P LD A2,SCTOPT GET OPTION WORD o 0 " P ANKL A2,/2000 ANY COBOL APPL? o V P RF(Z) PBSEND NO! o | . P LD A8,DYNSTA+STKCOM GET START OF DYNTAB:S o & P LDR* A2,A8 GET NUMBER OF DYNTAB:S o ( P ADKL A8,2 INCREMENT D
0x103cc8…103e5c Dummy {f00=0x003c, f01=0x0190, f02=»POINTER o t P LDR* A7,A8 GET SPL-PBS ADR p P LDR A6,A13 p 4 * P ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS p H P SUK A3,2 END OF DYNTAB p v P RF(Z) INDY50 YES! p PINDY20 EQU * p $ P LDR* A5,A6 GET NUMBER OF COPIES p P CWK A5,/FFFF END OF TABLE?
0x103e5c…103ff0 Dummy {f00=0x003c, f01=0x0190, f02=»EMENT NBR.OF COPIES p . P RB(N) INDY20 ALL DONE FOR THIS CHARACTER q * P STR A4,A7 STORE CHARACTER IN SPL-PBS q N " P ADK A7,2 STEP SPL-PBS POINTER q | P RB INDY30 NEXT WORD q PINDY40 EQU * q P LDR* A4,A8 SPL-PBS ADR q P LDKL A5,STKMAX STACK-
0x103ff0…104184 Dummy {f00=0x003c, f01=0x0190, f02=» P LDR A6,A4 SPL-PBS ADDR r & P ADK A6,SPLSTA POINT AT STACK AREA r $ P ADR A5,A6 +STACK AREA ADDR r N 0 P ST A5,SPLSTB,A4 STORE IN SPL-PBS STACK-BASE r r P RB INDY10 r PINDY50 EQU * r P SUK A2,1 ANY DYNTAB:S LEFT? r P RB(NZ) INDY05 YES! r
0x104184…104318 Dummy {f00=0x003c, f01=0x0190, f02=» ** r j 6 P** EACH WORD IN THIS TABLE CONSISTS OF: ** s 6 P** WORD1=COUNTER,NBR OF COPIES OF NEXT WORD ** s N 6 P** WORD2=WORD ** s 6 P** ** s 6 P** BYTE1 (C
0x104318…1044ac Dummy {f00=0x003c, f01=0x0190, f02=»****************** s p PPBSTAB EQU *-REL t P DATA 1 TERMINATION-CODE t 2 P DATA 0 t R P DATA 1 STACK-USED t b P DATA /6 t | P DATA 1 STACK-SIZE t P DATA 0 t P DATA 3 PROCEDURE-NAME t P DATA /2020 t & P DATA 20 PGM-DATA UNTIL STACK-BA
0x1044ac…104640 Dummy {f00=0x003c, f01=0x0190, f02=»ORK-AREA t v P DATA 0 u & P DATA /FFFF E N D O F T A B L E u PPBSEND EQU * u J P XIF u ^ P IFF MMUPAG+DSKPAG=0 u j P* u 4 P* RESERVE PAGES IN MEMORY AND BUILD PAGE TABLE u P* u PPAGGEN EQU * u P LDKL A2,PAGEX EXIT ADDRESS u
0x104640…1047d4 (1, 329) Dummy {f00=0x003d, f01=0x0190, f02=»ORD u v P ANK A1,3 PAGING? v P ABR(Z) A2 NO! v & P* v < L P* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS v F P* v * P LD A11,SCTSFA GET START OF FREE AREA v " P ST A11,SCTPAG STORE IN SYSTAB v $ P LDR A8,A13 GET RELO
0x1047d4…104968 Dummy {f00=0x003d, f01=0x0190, f02=»P EQUAL TO NUMBER OF PAGES? v P RF(E) PAG:30 YES! w $ $ P LDK A1,0 RESET NUMBER OF WORDS w > PPAG:20 EQU * w f " P ADKL A11,2 INCLUDE NEXT WORD w z 0 P RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) w $ P ADK A1,1 INCREMENT WORD COUNTER w P CWK A1,4 4
0x104968…104afc Dummy {f00=0x003d, f01=0x0190, f02=»PAG:20 w 0 PPAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER x P RB PAG:10 x B PPAG:30 EQU * x T P* x h 4 P* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY x r 6 P* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER x P* OF PAGE BLOCKS. x P* x P
0x104afc…104c90 Dummy {f00=0x003d, f01=0x0190, f02=»NKL A2,/FFF GET DISPLACEMENT x & P SRL A2,2 SKIP TWO RIGHTMOST BITS y $ , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS y N P LDR A3,A1 SAVE y ~ P LD A2,SCTPSZ GET PAGE SIZE y & P SRL A2,2 SKIP TWO RIGHTMOST BITS y P LDR A10,A2 SAVE y 0 P ANKL A1,/FC
0x104c90…104e24 Dummy {f00=0x003d, f01=0x0190, f02=»PAGE ADDRESS LIMIT y ~ P XIF z P IFT DSKPAG-MMUPAG=1 z & 2 P LD A1,LSTADR+STKCOM GET PHYSICAL LAST ADDRESS z B P LD A10,SCTPSZ PAGE SIZE z x P XIF z P IFF MMUPAG+DSKPAG=0 z P LDR A9,A1 INIT PAGE ADDRESS z P LDR A6,A9 SAVE z PPAG:31 EQU *
0x104e24…104fb8 Dummy {f00=0x003d, f01=0x0190, f02=»PAG:32 CWR A6,A10 z PPAG:33 RF(NG) PAG:40 { , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE { 6 P LDR A1,A6 GET PAGE ADDRESS { f P IFT MMUPAG=1 { * P ANKL A1,/C000 ADDRESS IN SYSTEM AREA? { P RF(NZ) PAG:34 NO! { . P LDR A1,A6 PHYSICAL ADDRESS IN
0x104fb8…10514c Dummy {f00=0x003d, f01=0x0190, f02=» P IFF MMUPAG+DSKPAG=0 | & PPAG:36 LDK A2,0 RESET WORD COUNTER | . PPAG:38 CWR A11,A8 CHECK PROGRAM OVERWRITE | J * P RF(E) PAG:40 NO MORE MEMORY AVALIABLE | | $ P ADKL A11,2 INCR. PAGBLK POINTER | $ P ADK A2,1 INCREMENT WORD COUNTER | P CWK A2,4 BLOC
0x10514c…1052e0 Dummy {f00=0x003d, f01=0x0190, f02=»T CHECK | z P RF(NN) PAG382 } P CWR A11,A1 } & P RF PAG384 } : PPAG382 CWR A1,A11 } L . PPAG384 RB(G) PAG:38 MORE MEMORY AVALIABLE } f PPAG:40 EQU * } " P ADK A7,0 ANY PAGES RESERVED? } P RF(Z) MEMOFL NO! } 6 P CW A7,SCTNOP ONLY PAGES FOR
0x1052e0…105474 (1, 330) Dummy {f00=0x003d, f01=0x0190, f02=»AG:50 YES! } PMEMOFL LDKL A1,LMP3 ~ * P OTR A1,0,SOP INDICATE MEMORY OVERFLOW ~ . P HLT HALT PROGRAM ~ : PPAG:45 CW A7,STKCOM+TOTSGM ONE PAGE/SEGMENT ALLOCATED? ~ v , P CW A7,STKCOM+TOTSGM MORE PAGES WANTED? ~ P RF(E) PAG:50 YES! ~ $ P ADK A7,1
0x105474…105608 Dummy {f00=0x003d, f01=0x0190, f02=»ES ~ p ( P LDR A1,A9 GET ADDRESS TO FIRST PAGE P LDR A2,A1 SAVE 6 P IFT MMUPAG=1 N * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS d P ST A1,SCTEFA SAVE . P SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P XIF P IFF MMUPAG+DSKPAG=0 P S
0x105608…10579c Dummy {f00=0x003d, f01=0x0190, f02=»APLTAB GET START OF ACB:S * P LDR* A4,A7 GET NUMBER OF APPLICATIONS " . PINI10 LD* A3,APLMMC+2,A7 GET TTAB ADDRESS P P IFF MMUPAG+DSKPAG=0 0 P LD A11,TTB:SP,A3 GET SEGMENT TABLE ADDRESS " P RF(Z) INI40 NO SEGMENT TABLE , P LD A6,SEG:NS,A1
0x10579c…105930 Dummy {f00=0x003d, f01=0x0190, f02=»4K PAGE l & P SRL A1,2 SKIP TWO RIGHTMOST BITS : P OR A1,APLSEG+2,A7 MERGE WITH PHYSICL 4K PAGE ADDRESS : P XIF x P IFT DSKPAG-MMUPAG=1 4 P LD A1,APLSEG+2,A7 GET PHYSICAL 4K PAGE ADDRESS P SLL A1,2 MULTIPLY BY 4 6 P OR A1,APLNPE+2,
0x105930…105ac4 Dummy {f00=0x003d, f01=0x0190, f02=» FOR CORE RESIDENT SEGMENTS x 8 P* AND STORE PAGE BLOCK ADDRESSES IN SEGMENT BLOCKS $ P* ` " P ADKL A11,8 NEXT SEGMENT BLOCK j P LDR* A2,A11 GET STATUS , P RF(NN) INI30 SEGMENT NOT LOADED IN CORE * P ST A12,6,A11 STORE PAGE BLOCK ADDRESS
0x105ac4…105c58 Dummy {f00=0x003d, f01=0x0190, f02=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS * P LD A2,APLPSZ+2,A7 GET SEGMENT SIZE =1 2 P XIF =2 ` P IFT MMUPAG=1 =2 r P SRL A2,2 =1 P XIF =2 P IFF MMUPAG+DSKPAG=0 =2 & P ADR A1,A2 ADDRESS TO NEXT PAGE =1 P ADKL A12,
0x105c58…105dec Dummy {f00=0x003d, f01=0x0190, f02=»PAG+DSKPAG=0 P* 0 P* SAVE START OF DYNTAB:S IN SYSINI (STADYN) , P* BEFORE ENABLE IS SET BECAUSE INTERUPT R & P* CAN DESTROY DYNSTA IN A15-STACK P* . P LD A1,DYNSTA+STKCOM GET START OF DYNTAB:S . P ST A1,SAVDYN,A13 SAVE IN SYSINI
0x105dec…105f80 Dummy {f00=0x003d, f01=0x0190, f02=»* , P LD A1,APLMMP+2,A7 GET APPLICATION TYPE ( P CWK A1,'AS' ASSEMBLER APPLICATION? : P RF(NE) INI50 NO f P* ~ " P* SWITCH TO LEVEL 0 & ENABLE P* " P LDKL A1,INI45 RETURN ADDRESS P ADR A1,A13 RELOCATE P STR A1,A15 ST
0x105f80…106114 (1, 331) Dummy {f00=0x003e, f01=0x0190, f02=»APLMMC+2,A7 GET TTAB ADDRESS ( P LD A2,APLSTA+2,A7 GET START ADDRESS $ P AD A2,APLREL+2,A7 RELOCATE P P LDK A3,0 SEGMENT NUMBER t P CF A15,ACTOT QUEUE TASK P EJECT PINI50 EQU * P IFT MMUPAG=1 0 P LD A1,APLLAP+2,A7 GET LOGIC
0x106114…1062a8 Dummy {f00=0x003e, f01=0x0190, f02=»M APLMMP+2,A7 CLEAR DISPL. TO PAGE ENTRY P IFT MMUPAG=1 0 P RF INI60 F PINI55 EQU * X P SRL A1,12 PAGE ENTRY NUMBER l $ P LDK A2,16 NUMBER OF MMU ENTRIES & P SUR A2,A1 NUMBER OF PAGE ENTRIES P ST A2,APLNPE+2,A7 SAVE P SLL A
0x1062a8…10643c Dummy {f00=0x003e, f01=0x018e, f02=»LOGICAL ADDR. TO COMMON PART t P SRL A1,11 ENTRY NUMBER $ P ANK A1,/1E 2*ENTRY NUMBER D 4 P ADKL A1,TTB:MT DISPL TO FIRST COMMON PART ENTRY f P ST A1,APLMMC+2,A7 SAVE P XIF P ADK A7,ACBLEN NEXT ACB P SUK A4,1 MORE APPLICATIONS?
0x10643c…1065d0 Dummy {f00=0x003e, f01=0x0190, f02=» P LDR A12,A12 ANY PAGES? P RF(Z) INI90 NO! ( $ P CW A12,SCTSFA ANY FREE BLOCKS? @ P RF(E) INI90 NO! h 4 P ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK & P LDKL A11,PAGQUE POINTER TO PAGQUE 0 P LDR A1,A12 SAVE ADDRESS TO FIRST PAGE
0x1065d0…106764 Dummy {f00=0x003e, f01=0x0190, f02=»NDICATE PAGE FREE & P ADK A1,8 ADDRESS NEXT PAGE BLOCK " P CW A1,SCTSFA LAST PAGE BLOCK? D P RF(E) INI80 YES! j , P LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK & P STR A1,A12 STORE FORWARD POINTER P LDR A12,A1 NEXT PAGE BLOCK P ADR A
0x106764…1068f8 Dummy {f00=0x003e, f01=0x0190, f02=» p & P ST A12,PAGQUE+2 STORE IN PAGQUE+2 PINI90 EQU * 2 P EJECT F P XIF T P ` P h P* START BUGGER (IF ANY) p P P P* GET APPLICATION START , P LD A14,STKCOM+APLTAB GET START OF ACB:S , P LD A14,APLREL+2,A14 GET
0x1068f8…106a8c Dummy {f00=0x003e, f01=0x0190, f02=»A1,SCTBUG GET BUGGER ADDRESS P ABR(NZ) A1 $ P 8 PINI100 EQU *-REL @ P LDR A13,P X PINI110 EQU *-REL j 0 P SUKL A13,INI110 RESTORE PROGRAM BASE OINTER P* P* INIT A15 STACK P* P LD A15,SCTSTB P SUKL A15,4
0x106a8c…106c20 Dummy {f00=0x003e, f01=0x0190, f02=»A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS P ADR A1,A13 RELOCATE 2 * P ST A1,IHRTC STORE IN INTERRUPT VECTOR N & P CF A15,PFINIT INITIALIZE DEVICES | P CF A15,SAVE8 SAVE REGISTERS $ P CF A15,SWL48 SWITCH TO LEVEL 48 P* F P* WAIT APPR
0x106c20…106db4 (1, 332) Dummy {f00=0x003e, f01=0x018e, f02=»1,1 P RB(NZ) DELAY P INH " ( P LDKL A1,0 GET RTC INTERRUPT ADDRESS . PSAVRTC EQU *-REL-2 Z P ST A1,IHRTC RESTORE t $ P LDR A1,A13 GET START OF SYSINI . P ADKL A1,INISTA START OF INIT. INSTR. SEQ. . P ADKL A13,INILEN END OF INIT.
0x106db4…106f48 Dummy {f00=0x003e, f01=0x0190, f02=» p $ P ADK A1,2 INCREMENT FROM-ADDRESS " P ADK A2,2 INCREMENT TO-ADDRESS 0 P CWR A1,A13 ALL WORDS MOVED? V P ABL(E) STKEND YES z P RB INI150 P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* PIHRTCO EQU *-REL P RIT RTC
0x106f48…1070dc Dummy {f00=0x003e, f01=0x0190, f02=»LICATIONS AND BRANCH TO DISPATCHER P* * PINDY00 EQU * 4 " P LD A2,SCTOPT GET OPTION WORD H " P ANKL A2,/2000 ANY COBOL APPL? n P RF(Z) PBSEND NO! P LDKL A2,STKEND * P LD A8,STADYN,A2 GET START OF DYNTAB:S ( P RF(Z) PBSEND NO COB
0x1070dc…107270 Dummy {f00=0x003e, f01=0x0190, f02=»A3,A8 GET DYNTAB LENGTH (BYTES) PINDY10 EQU * ( ( P ADKL A8,2 INCREMENT DYNTAB POINTER < P LDR* A7,A8 GET SPL-PBS ADR h , P LDKL A6,STKEND START OF INIT.INSTR.SEQ. * P ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS P SUK A3,2 END OF DYNTAB
0x107270…107404 Dummy {f00=0x003e, f01=0x0190, f02=»0 YES! P LD A4,2,A6 GET WORD TO COPY P ADK A6,4 ADJUST PBSTAB 2 PINDY30 EQU * R & P SUK A5,1 DECREMENT NBR.OF COPIES f . P RB(N) INDY20 ALL DONE FOR THIS CHARACTER * P STR A4,A7 STORE CHARACTER IN SPL-PBS " P ADK A7,2 STEP SPL-PBS P
0x107404…107598 Dummy {f00=0x003e, f01=0x018e, f02=»PLSTS,A4 STORE IN SPL-PBS ( P LDKL A7,ENTFIN ENTRY-FINI (ADDRESS) " & P ST A7,SPLENT,A4 STORE IN SPL-PBS N P LDR A6,A4 SPL-PBS ADDR x & P ADK A6,SPLSTA POINT AT STACK AREA P ADR A5,A6 +STACK AREA ADDR 0 P ST A5,SPLSTB,A4 STORE IN SPL-PBS
0x107598…10772c Dummy {f00=0x003e, f01=0x0190, f02=» PSAVDYN EQU *-REL PSTADYN EQU *-INDY00 P DATA 0 SAVE AREA FOR DYNSTA < P EJECT ` 6 P************************************************** n 6 P** ** 6 P** EACH WORD IN THIS TABLE CONSISTS O
0x10772c…1078c0 Dummy {f00=0x003e, f01=0x0190, f02=»** ** 6 P** BYTE1 (COUNTER)=/FF MEANS END OF TABLE ** : 6 P** ** t 6 P************************************************** PPBSTAB EQU *-INDY00 P DAT
0x1078c0…107a54 (1, 333) Dummy {f00=0x003e, f01=0x018e, f02=»PROCEDURE-NAME P DATA /2020 & P DATA 20 PGM-DATA UNTIL STACK-BASE * P DATA 0 T P DATA 1 STACK-BASE d P DATA 0 ~ P DATA 1 ENTRY-FINI P DATA 0 & P DATA 16 LAST-TS,RUNTIME-WORK-AREA P DATA 0 & P DATA /FFFF E N D O F
0x107a54…107be8 Dummy {f00=0x003e, f01=0x400c, f02=» @ ME P DATA /2020 & P DATA 20 PGM-DATA UNTIL STACK-BASE * P DATA 0 T P DATA 1 STACK-BASE d P DATA 0 ~ P DATA 1 ENTRY-FINI P DATA 0 & P DATA 16 LAST-TS,RUNTIME-WORK-AREA P DATA 0 & P DATA /FFFF E N D O F
0x107be8…107d7c Dummy {f00=0x003e, f01=0x2008, f02=» -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x107d7c…107f10 Dummy {f00=0x003e, f01=0x0190, f02=» f * P LD A7,T:ATNW,A10 REAL T:ATAB ADDRESS P ADK A7,2 6 P ST A8,SAVE01+STKEND SAVE A8 H * PSYA310 LD A8,SAVE01+STKEND RESTORE A8 l P ADKL A8,2 P CW A8,ENDADD+STKEND ALL? P RF(E) SYA350 YES! P ST A8,SAVE01+STKEND SAVE $
0x107f10…1080a4 Dummy {f00=0x003e, f01=0x0190, f02=»TASK FLAG ~ : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) " P LD A1,SCTOPT GET OPTION WORD P P ANK A1,2 DISC PAGING? v P RF(Z) SYA320 NO! P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST
0x1080a4…108238 Dummy {f00=0x003e, f01=0x0190, f02=»DR* A6,A5 GET NUMBER OF COPIES P EJECT & PSYA340 SUK A6,1 4 P RF(P) SYA345 NEXT TASK L 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS l P RB SYA310 NEXT TASK-CLASS * PSYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS P CALL MOVT:A MOVE T:A
0x108238…1083cc Dummy {f00=0x003e, f01=0x0190, f02=»ORRESPONDING TTAB AND QUEUE ~ P IMR A4 SET QUEUE TASK FLAG $ 0 P ST A3,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB H " P LD A1,SCTOPT GET OPTION WORD | P ANK A1,2 DISC PAGING? P RF(Z) SYA348 NO! P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1,CSB
0x1083cc…108560 Dummy {f00=0x003e, f01=0x0190, f02=»BSWB MOVE TWB'S AND RESERVE FOR SWB'S " P CALL ALLBUF ALLOCATE BUFFERS . P XIF T P IFT MMUPAG=1 ` * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD v P P LDR A1,A5 . P AD* A1,SHADOW,A10 ADD SHADOW-TABLE LENGTH $ P LDR* A1,A1 GET MM-TABLE
0x108560…1086f4 (1, 334) Opaque[0x194]
0x1086f4…108888 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0230, f03=0x0000}
0x1086f4…108888 IdxSect {
0x1086f4…108888 f00 = 0x0011 // 0x1086f4 @0x0
0x1086f4…108888 f01 = 0x000a // 0x1086f6 @0x2
0x1086f4…108888 gno = [ // 0x1086f8 @0x4
0x1086f4…108888 [0x00]: C0x0011.0x2.0
0x1086f4…108888 [0x01]: C0x0011.0x3.0
0x1086f4…108888 [0x02]: C0x0012.0x0.0
0x1086f4…108888 [0x03]: C0x0012.0x1.0
0x1086f4…108888 [0x04]: C0x0012.0x2.0
0x1086f4…108888 ]
0x1086f4…108888 }
0x108888…108a1c Dummy {f00=0x0011, f01=0x018e, f02=» 2 P IDENT DSKSUB REL 11.0 81-01-26 870105041100 P : " P =1, DM NVL BITS TAKEN AWAY B P PRR 11.0 80-11-19 CHLO h P* , P**************************************** P* , P* PHILIPS TERMINAL SYSTEM PTS * P* ,
0x108a1c…108bb0 Dummy {f00=0x0011, f01=0x0190, f02=» P* P* ( P* DSKSUB HOLDS THE FOLLOWING DISC ( P* AND FILE MANAGEMENT SUBROUTINES: D P* p 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT z < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER 6 P* - VOLADR = COMPUTE
0x108bb0…108d44 Dummy {f00=0x0011, f01=0x0190, f02=»OM DISC BUFFER TO DWT n . P* - NEWVOL = SET NEW VOLUME LOADED BITS 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX P 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL P* P* P EJECT DSKSUB P* P* P****
0x108d44…108ed8 Dummy {f00=0x0011, f01=0x0190, f02=»M MOVE VOLUME NAME FROM DWT TO USER BUFFER 4 P ENTRY VOLADR COMPUTE VOLUME NAME ADDRESS IN DWT 2 . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED j : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4
0x108ed8…10906c Dummy {f00=0x0011, f01=0x0190, f02=»RY NVLEND END OF NVLTAB P ENTRY NVLBIT NVL BIT MASK P EJECT DSKSUB B P* X P* b P************* l P* EXTERNALS * P************* P* P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD
0x10906c…109200 Dummy {f00=0x0011, f01=0x018e, f02=»DER l P EXTRN DWTOR INDEX AND ORDER P EXTRN DWTTAB TTAB ADDRESS 0 " P EXTRN DWTUEC USER ECB ADDRESS R P EXTRN DWTVOL VOLUME NAME x ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND
0x109200…109394 (1, 335) Dummy {f00=0x0011, f01=0x018e, f02=» & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH . P EJECT DSKSUB X P* n P* x , P*************************************** P* P* CONDITIONAL ASSEMBLY P* , P************************************
0x109394…109528 Dummy {f00=0x0011, f01=0x018e, f02=» PMMUPAG EQU 1 P* P* " 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION , . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. f P* PCPU852 EQU 0 P* P* . P* A PROGRAM VERSION USING TOSS DISC PAGING * P* IS OBTAINE
0x109528…1096bc Dummy {f00=0x0011, f01=0x0190, f02=» 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* > PSWPBLK EQU 0 H P* P EJECT DSKSUB f P* ~ P* 2 P* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT * P* IS OBTAINED BY SETTING FILMAN EQU 1. P* PX:A EQU
0x1096bc…109850 Dummy {f00=0x0011, f01=0x0190, f02=»N EQU 1. r P* PX:B EQU 0 PDATMAN EQU X:B , P* B P EJECT DSKSUB L P* d P* n P********** x P* VOLCLR * P********** P* P* 6 P* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) " P* IN THE R
0x109850…1099e4 Dummy {f00=0x0011, f01=0x0190, f02=»OUTPUT: A1, A2 ARE DESTROYED P* $ PVOLCLR EQU * . P LDR A2,A1 B & P CF A15,VOLADR VOLUME NAME ADDRESS T P* ~ PVCLR10 EQU * P CMR A1 CLEAR ONE WORD P ADK A1,2 INCREMENT POINTER $ P SUK A2,2 DECREMENT LOOP COUNTER P R
0x1099e4…109b78 Dummy {f00=0x0011, f01=0x0190, f02=» P* P* : P* VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC 4 P* TO THE USER BUFFER IF REQUESTED LENGTH = 6. Z P* P* INPUT: A6 = DWT ADDRESS P* A8 = ECB ADDRESS P* $ P* OUTPUT: A1-A4 ARE DEST
0x109b78…109d0c Dummy {f00=0x0011, f01=0x0190, f02=»ED n * P CF A15,VOLADR GET DWT VOLUME ADDRESS ( P ST A4,ECBEL,A8 SET EFFECTIVE LENGTH 8 P* d P IFT MMUPAG=0 n ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS P* P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MO
0x109d0c…109ea0 Dummy {f00=0x0011, f01=0x018e, f02=» P RB(P) VNAM10 P RF RETURN P XIF , P* 8 P IFT MMUPAG=1 B 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK X P TS -30,A15 SAVE RUNNING MMU P TL TTB:MT,A2 LOAD USER MMU & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,E
0x109ea0…10a034 (1, 336) Dummy {f00=0x0012, f01=0x018e, f02=» P* P EJECT DSKSUB P* $ P* . P********** 8 P* VOLADR * J P********** P* n P* x P* INPUT: A6 = DWT ADDRESS P* ( P* OUTPUT: A1 = VOLUME NAME ADDRESS P* A4 = 6 P* PVOLADR EQU *
0x10a034…10a1c8 Dummy {f00=0x0012, f01=0x0190, f02=» PVOLA10 EQU * P ADK A1,6 UPDATE ADDRESS P SUK A4,1 8 P RB(NN) VOLA10 J P LDK A4,6 ` P RF RETURN r P* P EJECT DSKSUB P* P* P********** P* NVLCHK * P********** P* P* 8 P*
0x10a1c8…10a35c Dummy {f00=0x0012, f01=0x0190, f02=»D TO THE CALLING TASK (RC=/20). | P* ( P* INPUT: A6 = DWT ADDRESS 2 P* V 6 P* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) ` 0 P* A2 = DWT ADDRESS + DOUBLE INDEX $ P* A3, A4 ARE DESTROYED P* PNVLCHK E
0x10a35c…10a4f0 Dummy {f00=0x0012, f01=0x0190, f02=»DR A2,A6 P LD A1,DWTNVL,A2 NVL FLAG 2 P ANKL A1,/7FFF RESET BIT 0 (FIRST REQUEST BIT) 2 P ST A1,DWTNVL,A2 h , P ANKL A1,/3FFF NOT 1ST REQ. OR FIX DISK " P RF(Z) RETURN RETURN IF NO NVL " P LD A4,DWTTAB,A6 TTAB ADDRESS P LDK A1,1
0x10a4f0…10a684 Dummy {f00=0x0012, f01=0x0190, f02=»CK IF END OF TABLE REACHED ~ P RF(E) NVL:20 END OF NVLTAB " " P CWR* A4,A3 CHECK TTAB ADDRESS F $ P RF(E) NVL:20 NVL FOR THIS TASK l P SLL A1,1 SHIFT NVL BIT MASK * P ADK A3,2 POINT TO NEXT TTAB IN NVLTAB P RB NVL:10 P* PNVL:20
0x10a684…10a818 Dummy {f00=0x0012, f01=0x0190, f02=»BIT t P LDK A1,/20 RETURN CODE P* , P EJECT DSKSUB 6 P* N P* X $ PRETURN EQU * COMMON RETURN LABEL b P IFT CPU852=1 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS P XIF P* P IFT CPU852=0 P RTN A
0x10a818…10a9ac Dummy {f00=0x0012, f01=0x0190, f02=» P* 6 P* VOLGET WILL READ VOLUME NAME FROM DISC BUFFER @ P* TO DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. H P* ( P* INPUT: A2 = DISC BUFFER ADDRESS 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) 0 P* BIT 0
0x10a9ac…10ab40 Dummy {f00=0x0012, f01=0x0190, f02=» A1-A3, A7-A8 ARE DESTROYED P* , P* 6 PVOLGET EQU * @ * P CF A15,VOLADR DWT VOLUME NAME ADDRESS T P LDK A7,0 RESET NVL FLAG P* PVGET10 EQU * , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME , P CWR* A8,A1 COMPARE WITH
0x10ab40…10acd4 (1, 337) Dummy {f00=0x0012, f01=0x018e, f02=»SKSUB P* P* PVGET20 EQU * " ( P ADK A1,2 INCREMENT BUFFER POINTERS 6 P ADK A2,2 b $ P SUK A4,2 DECREMENT LOOP COUNTER t P RB(P) VGET10 P CF A15,INXDWT P ADK A7,0 CHECK NVL FLAG " P RB(Z) RETURN RETURN IF NO NVL
0x10acd4…10ae68 Dummy {f00=0x0012, f01=0x0190, f02=» j P LD A7,DWTNVL,A4 NVL FLAGS 2 P RB(N) RETURN NO REQUESTS SO FAR ON THIS DISC * P SLL A7,1 ` $ P RB(N) RETURN FIXED DISC, NO NVL r P* P EJECT DSKSUB P* P* P********** P* NEWVOL * P********** P*
0x10ae68…10affc Dummy {f00=0x0012, f01=0x0190, f02=» 6 P* THE NEW VOLUME LOADED FLAG IS THEN SET BY THIS 6 P* ROUTINE FOR THE CONCERNED FILE CODE AND FILES > 8 P* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE x 4 P* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE ( P* NEXT REQUEST ON THAT FIL
0x10affc…10b190 Dummy {f00=0x0012, f01=0x0190, f02=» A6 = DWT ADDRESS P* & P* OUTPUT: A3 = ACTUAL FILE CODE $ P* A1-A2 ARE DESTROYED N P* n PNEWVOL EQU * x P LD A2,NVLBIT NVL BIT MASK 0 P ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED P LC A2,DWTOR,A6 INDEX P ANK A2,
0x10b190…10b324 Dummy {f00=0x0012, f01=0x0190, f02=» P XIF P* P IFT FILMAN=1 * P LDKL A1,SCTFWT ADDRESS TO FWT POINTER 0 P* ^ > P* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME h P* PNEW:10 EQU * P LDR* A2,A1 NEXT FWT ADDRESS P RB(Z) RETURN NO MORE FWT:S
0x10b324…10b4b8 Dummy {f00=0x0012, f01=0x0190, f02=»,A2 ADDRESS TO 2ND EWT BLOCK $ P CC A3,EWTVOL,A2 CHECK FILE CODE $ P RF(NE) NEW:30 L P LDKL A2,/8000 NVL BIT b 0 P ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED P RB NEW:10 P* PNEW:30 EQU * . P LDR* A2,A2 ADDRESS TO NEXT EWT STRU
0x10b4b8…10b64c Dummy {f00=0x0012, f01=0x0190, f02=» DSKSUB P* P* P********** $ P* INXDWT * 6 P********** H P* Z P* d H P* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. n P* P* INPUT: A6 = DWT ADDRESS P* 0 P* OUTPUT: A4 = DWT A
0x10b64c…10b7e0 Dummy {f00=0x0012, f01=0x0190, f02=» ANK A4,/3 P ADR A4,A4 DOUBLE INDEX P ADR A4,A6 2 P RB RETURN D P* V P EJECT DSKSUB ` P* x P* P********** P* NVLTAB * P********** P* P* 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS
0x10b7e0…10b974 (1, 338) Dummy {f00=0x0012, f01=0x0190, f02=»WTNVL v PNVLTAB EQU * P IFT FILMAN=1 " $ P DATA TTABFM FMTASK TTAB 15 8 P* ` P IFF DSKPAG+SWPBLK=0 j $ P DATA TTABLD LDTASK TTAB 14 P XIF P* =1 P IFT FILMAN=1 PNVLEND EQU * P* PNVLBIT DAT
0x10b974…10bb08 Dummy {f00=0x0012, f01=0x413a, f02=» P DATA TTABLD LDTASK TTAB P* $ PNVLEND EQU * . P* B PNVLBIT DATA 3 NVL BIT MASK L P XIF n P* z P IFT FILMAN=0 P IFT DSKPAG+SWPBLK=0 P* PNVLEND EQU * P* PNVLBIT DATA 1 NVL BIT MASK P XIF
0x10bb08…10bc9c Dummy {f00=0x0012, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x10bc9c…10be30 Dummy {f00=0x0012, f01=0x0190, f02=»T T A B ** H | 2 P** ** I " 2 P** ** I X 2 P** FIND TTAB ADDRESS ** I 2 P** ** I 2 P** INPUT :A8=
0x10be30…10bfc4 Dummy {f00=0x0012, f01=0x0190, f02=» ** I f 2 P** WORKREGS:A3,A4,A10 ** J 2 P********************************************** J B P J x PGETTAB EQU * J P IFT MMUPAG=0 J P LDR* A3,A8 T:A ADDRESS J & P LD A1,T:ATID,A3 GET TID TO MATCH J P LD A12,T:DAD,A3 T:D
0x10bfc4…10c158 Dummy {f00=0x0012, f01=0x0190, f02=» XIF J & PGETTTB EQU * ENTRY. INPUT: A1=TID K " P ST A10,COM04+STKCOM SAVE A10 K 6 $ P LD A4,SCTTCT GET TC:TAB ADDRESS K P LDR* A10,A4 TCTAB LENGTH K PGETT10 ADK A4,2 K P SUKL A10,2 ALL? K P RF(NN) GETT20 NO! K * P LDR A3,A1 SAVE A1 (DEBU
0x10c158…10c2ec Dummy {f00=0x0012, f01=0x0190, f02=»? K v P RB(NE) GETT10 NO! L P ST A2,TTAB+STKCOM SAVE L $ P LD A10,COM04+STKCOM L D P RTN A14 L ` P EJECT L p > P********************************************************** L ~ > P* * L > P*
0x10c2ec…10c480 Dummy {f00=0x0012, f01=0x0190, f02=» * L > P* REFERENCED IN: MOVING,SYSLDB PART 2 * M 8 > P* * M z > P* ENTRY: MAPLEN - LENGTH OF AREA TO BE MAPPED * M > P*
0x10c480…10c614 (1, 339) Opaque[0x194]
0x10c614…10c7a8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03c8, f03=0x0000}
0x10c614…10c7a8 IdxSect {
0x10c614…10c7a8 f00 = 0x001e // 0x10c614 @0x0
0x10c614…10c7a8 f01 = 0x0004 // 0x10c616 @0x2
0x10c614…10c7a8 gno = [ // 0x10c618 @0x4
0x10c614…10c7a8 [0x00]: C0x001e.0x1.0
0x10c614…10c7a8 [0x01]: C0x0041.0x1.0
0x10c614…10c7a8 ]
0x10c614…10c7a8 }
0x10c7a8…10c93c Dummy {f00=0x001e, f01=0x0190, f02=» 0 P IDENT DVTKB REL 11.0 81-01-26 870105041100 P 8 P* @ " P* KEYBOARD DEVICE WORK TABLE J P* p P ENTRY DVTKB TABLE ENTRY z P EXTRN COD P EXTRN ECH P EXTRN KBAD4 PMMUPAG EQU 0 P* P* P* PDVTK
0x10c93c…10cad0 Dummy {f00=0x001e, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB ADDRESS J " P DATA 0 WAIT/ACTIVE INDICATOR j P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB ADDRE
0x10cad0…10cc64 Dummy {f00=0x001e, f01=0x018e, f02=»A FOR A5 P RES 4 DWT STACK P DATA 0 SAVE AREA FOR A7 ( P DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER-2 h " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS P DATA ECH
0x10cc64…10cdf8 Dummy {f00=0x001e, f01=0x0190, f02=» P DATA 0 TIMER , P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE , P DATA DWTSQ+DVTKB POINTER TO LAST PLACE J PDWTSQ EQU *-DVTKB z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU *
0x10cdf8…10cf8c Dummy {f00=0x001e, f01=0x4042, f02=»0,0,0,0,0 P XIF PDWTEND EQU * P END 2@ > , P DATA DWTSQ+DVTKB POINTER TO LAST PLACE J PDWTSQ EQU *-DVTKB z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU *
0x10cf8c…10d120 Dummy {f00=0x001e, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x10d120…10d2b4 (1, 340) Dummy {f00=0x0041, f01=0x0190, f02=» DATA /0005,/1500,/0C00,/0000 08-0F ( P DATA /1011,/1213,/3C3D,/3226 10-17 , ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F X ( P DATA /404F,/7F7B,/5B6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 ( P
0x10d2b4…10d448 Dummy {f00=0x0041, f01=0x4158, f02=»A /D7D8,/D9E2,/E3E4,/E5E6 50-57 ( P DATA /E7E8,/E94A,/005A,/5F6D 58-5F ( ( P DATA /0081,/8283,/8485,/8687 60-67 T ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/0000 78-7F 4 P DAT
0x10d448…10d5dc Dummy {f00=0x0041, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x10d5dc…10d770 Dummy {f00=0x0041, f01=0x0190, f02=»EN NO RUBOUT ! z P ANK A2,LCWBIT BIT 9 SET ? < P RF(NZ) ECV140 YES.LAST COLUMN WRITTEN (DURING REQUEST) 8 > P LD A4,DWTSN+DWTDEV,A6 GET NEXT WRITE POSITION SAVED AFTER x P* PREVIOUS REQUEST : P CW A4,DWTCN+DWTDEV,A6 = CURRENT NEXT WRITE POSITI
0x10d770…10d904 Dummy {f00=0x0041, f01=0x0190, f02=» P RF ECV150 PECV140 EQU * B P XRS A2,DWTDEV,A6 RESET BIT 9 (LAST COLUMN NO LONGER WRITTEN) * PECV150 EQU * p 2 P LDK A2,SPACE RUBOUT PREVIOUS (OR LAST) COLUMN , P CF A5,ECHOUT OUTPUT ONE SPACE TO RUBOUT P RB ECV100 GO SET CURSOR
0x10d904…10da98 Dummy {f00=0x0041, f01=0x0190, f02=»O INTO A2 6 P ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN WRITTEN $ P* ALREADY BY PREVIOUS REQUEST) L ( P RB(NZ) ECV120 YES. THEN NO RUBOUT ! t P* P* PREPARE THE RUBOUT P* : P LD A3,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION
0x10da98…10dc2c Dummy {f00=0x0041, f01=0x018e, f02=» (=LAST COLUMN WRITTEN, v P* DURING REQUEST !) P RF(Z) ECV170 NO > 4 P ADK A3,1 YES. MODIFY TO RUBOUT ALSO LAST COLUMN V PECV170 EQU * 0 P ADK A3,0 ANY ECHOED CHARACTERS TO RUBOUT ? P RB(Z) ECV120 NO P* P* DO THE RUBOUT
0x10dc2c…10ddc0 Dummy {f00=0x0041, f01=0x0190, f02=» P RF(NZ) DEVERR STATUS NOT OK PECV180 EQU * ( . P LDK A2,SPACE GET SPACE TO DO RUBOUT WITH < P CF A5,OUTCHA OUTPUT IT n P RF(NZ) DEVERR STATUS NOT OK ( P SUK A3,1 ONE MORE CHAR TO RUBOUT ? P RB(NZ) ECV180 YES ( P CF A5,ENDWRI EN
0x10ddc0…10df54 (1, 341) Opaque[0x194]
0x10df54…10e0e8 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a0, f03=0x0000}
0x10df54…10e0e8 IdxSect {
0x10df54…10e0e8 f00 = 0x0005 // 0x10df54 @0x0
0x10df54…10e0e8 f01 = 0x0002 // 0x10df56 @0x2
0x10df54…10e0e8 gno = [ // 0x10df58 @0x4
0x10df54…10e0e8 [0x00]: C0x0005.0x0.0
0x10df54…10e0e8 ]
0x10df54…10e0e8 }
0x10e0e8…10e27c Dummy {f00=0x0005, f01=0x018e, f02=» 0 P IDENT DVTDI REL 11.0 81-01-26 870105041100 P 8 P* @ . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR J P* | P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 0
0x10e27c…10e410 Dummy {f00=0x0005, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTDI ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK @ P DATA 'DI' TTAB ADDRESS l P DATA 0 WAIT ACTIVATE P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x10e410…10e5a4 Dummy {f00=0x0005, f01=0x018e, f02=» P DATA 0 SAVE AREA A5 =1 P RES 4 DWT STACK $ P DATA 0 SAVE AREA A7 =1 < P DATA 0 SAVE AREA A8 $ P DATA /2222 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS
0x10e5a4…10e738 Dummy {f00=0x0005, f01=0x4082, f02=» x P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF > PDWTEND EQU * J P* ^ P* h P END r@ ~2 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS
0x10e738…10e8cc Dummy {f00=0x0005, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x10e8cc…10ea60 Dummy {f00=0x0005, f01=0x0190, f02=» A1,A2 GET PRINTER STATUS $ P ANK A1,/25 TEST PRINTER STATUS " P RF(Z) WRJL70 NO ERRORS J " P ANK A1,1 TEST PRINTER STATUS j P RF(NZ) WRJL70 NOT OPERABLE " P ANK A2,4 TEST PRINTER STATUS P RF(NZ) WRJL80 REQUEST ERROR P LDKL A1,E
0x10ea60…10ebf4 (1, 342) Opaque[0x194]
0x10ebf4…10ed88 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x10ebf4…10ed88 IdxSect {
0x10ebf4…10ed88 f00 = 0x0006 // 0x10ebf4 @0x0
0x10ebf4…10ed88 f01 = 0x0002 // 0x10ebf6 @0x2
0x10ebf4…10ed88 gno = [ // 0x10ebf8 @0x4
0x10ebf4…10ed88 [0x00]: C0x0006.0x0.0
0x10ebf4…10ed88 ]
0x10ebf4…10ed88 }
0x10ed88…10ef1c Dummy {f00=0x0006, f01=0x0190, f02=» 0 P IDENT DVTDY REL 11.0 81-01-26 870105041100 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x10ef1c…10f0b0 Dummy {f00=0x0006, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA /C459 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x10f0b0…10f244 Dummy {f00=0x0006, f01=0x0190, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 ( P DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER 2 h $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA
0x10f244…10f3d8 Dummy {f00=0x0006, f01=0x407a, f02=»K v P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF @ PDWTEND EQU * L P* ` P END j@ vL PARAMETER 2 h $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA
0x10f3d8…10f56c Dummy {f00=0x0006, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x10f56c…10f700 Dummy {f00=0x0006, f01=0x0190, f02=» P* - PORDER EQU * - P CF A5,STABLK START OF BLOCK - " P RF(NZ) ERTP JMP IF ERROR - F * P LDK A2,RESET SEND RESET JUST IN CASE - h P CF A5,OUTPUT - P RF(NZ) ERTP JMP IF ERROR - P LDR A2,A3 - P RF OUT10 SEND PRINTER ORDER - P -
0x10f700…10f894 (1, 343) Opaque[0x194]
0x10f894…10fa28 # DirEnt {nam=»DVTG2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00c8, f03=0x0000}
0x10f894…10fa28 IdxSect {
0x10f894…10fa28 f00 = 0x0006 // 0x10f894 @0x0
0x10f894…10fa28 f01 = 0x0004 // 0x10f896 @0x2
0x10f894…10fa28 gno = [ // 0x10f898 @0x4
0x10f894…10fa28 [0x00]: C0x0006.0x1.0
0x10f894…10fa28 [0x01]: C0x0015.0x1.0
0x10f894…10fa28 ]
0x10f894…10fa28 }
0x10fa28…10fbbc Dummy {f00=0x0006, f01=0x0190, f02=» 0 P IDENT DVTG2 REL 11.0 81-01-26 870105041100 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTG2 TABLE ENTRY z P* P* * P EXTRN GPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND. P*
0x10fbbc…10fd50 Dummy {f00=0x0006, f01=0x0190, f02=»ECB ADDRESS P DATA DWTEND-DVTG2 ORDER ( P DATA GPAD3 POINTER TO ADDRESS BLOCK 4 P DATA 'GP' TTAB-ADDRESS ` $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P D
0x10fd50…10fee4 Dummy {f00=0x0006, f01=0x0190, f02=»0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 0 $ P DATA /2222 CHANNEL PARAMETER 2 L $ P DATA 0 LINE DRIVER DEPENDENT 1 t $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 TIMER POINTER " P DAT
0x10fee4…110078 Dummy {f00=0x0006, f01=0x0190, f02=»H t P DATA 0 ACTUAL LINE DOCUMENT $ P DATA 0 REQUESTED LINE DOCUMENT . P DATA 0 RETURN CODE V $ P DATA 0 CONTROL SEQUENCE ADRESS r 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER P
0x110078…11020c Dummy {f00=0x0006, f01=0x413c, f02=»ITCH x P DATA 0 LINE SPACE " P DATA /3300 HIGH SPEED PARAM. & P DATA 0 HOPPER 1 OR 2 L P DATA 0,0 LAST TAB POS. j & P DATA 0 CONTR. SEQ. SEPARATOR IND. P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTE
0x11020c…1103a0 Dummy {f00=0x0006, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x1103a0…110534 (1, 344) Dummy {f00=0x0015, f01=0x0190, f02=»U 60 PX:D EQU 10 PX:E EQU 6 P 0 PTIMOUT EQU X:A 8 PPOWUP EQU X:B P PDVBLEN EQU X:C f PDVBKTB EQU X:D | PDEVIND EQU X:E P PCREDIT EQU 0 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBT
0x110534…1106c8 Dummy {f00=0x0015, f01=0x0190, f02=»ON ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* < PCPU852 EQU 1 F P* Z P EJECT d P* r P* | P********************* P* DWT-DISPLACEMENTS * P********************* P* P* 0 PDWTDRD EQU /10 START
0x1106c8…11085c Dummy {f00=0x0015, f01=0x0190, f02=»T EQU DWTDRD+4 P XIF P* " PDWTHP EQU START+/18 , PTWCLR EQU START+/15 H PTWEOF EQU START+/16 d PTWBSP EQU START+/14 PDWTA2 EQU START+/1A * P DATA DVBKTB+DVBKTB MMU KEY TABLE SIZE ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZ
0x11085c…1109f0 Dummy {f00=0x0015, f01=0x0190, f02=»JECT P* P* 2 P* ACTIVATION PART: CHECK VALIDITY OF ORDERS P* V P* ` PTWA EQU * j P LDK A3,0 | $ P LD A2,4,A8 GET REQUESTED LENGTH & P ABL(Z) IHTW50 REQUESTED LENGTH =0 P* P* P LDR A2,A7 COPY ORDE
0x1109f0…110b84 Dummy {f00=0x0015, f01=0x0190, f02=»UK A2,2 " P RF(NP) TWAOUT OUTPUT REQUEST P* 6 P* @ $ PTWAERR ABL DISIOE REQUEST ERROR J P EJECT r P* P* PTWAIN EQU * P IFT TIMOUT=1 & P LD A2,DWTTP,A6 GET TIMER POINTER * P RF(Z) TWA010 NO TIMING ON THIS
0x110b84…110d18 Dummy {f00=0x0015, f01=0x0190, f02=» h P XIF PTWA010 EQU * P IFT POWUP=1 ( " P LD A2,DWTST,A6 GET DWT-STATUS < P ANKL A2,/200 b 0 P RF(Z) TWA020 NOT FIRST READ AFTER POEWR UP x " P XRS A2,DWTST,A6 RESET POINTER P LDKL A2,-2 " P ST A2,10,A8 INDICATE POWER UP
0x110d18…110eac Dummy {f00=0x0015, f01=0x0190, f02=» P RF RED030 & PRED020 CF A5,STREG SAVE REGISTERS P EJECT @ P* N P* RETURN AFTER INTERRUPT X P* z P* PRED030 EQU * P IFT TIMOUT=1 P LDR A1,A1 P RF(NZ) RED037 P XIF P SUK A7,1 P RF(P) RED
0x110eac…111040 Dummy {f00=0x0015, f01=0x0190, f02=»XT CHARACTER | P LDR A7,A7 P RF(Z) RED040 BASIC READ & P* F P* P P LDK A1,LNGERR OVERFLOW Z & PRED037 ORS A1,8,A8 SET RETURN CODE z P* P* P EJECT P PRED040 EQU * P P IFT TIMOUT=1 P LD A7,D
0x111040…1111d4 (1, 345) Opaque[0x194]
0x1111d4…111368 # DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0830, f03=0x0000}
0x1111d4…111368 IdxSect {
0x1111d4…111368 f00 = 0x0041 // 0x1111d4 @0x0
0x1111d4…111368 f01 = 0x0016 // 0x1111d6 @0x2
0x1111d4…111368 gno = [ // 0x1111d8 @0x4
0x1111d4…111368 [0x00]: C0x0041.0x2.0
0x1111d4…111368 [0x01]: C0x0041.0x3.0
0x1111d4…111368 [0x02]: C0x0042.0x0.0
0x1111d4…111368 [0x03]: C0x0042.0x1.0
0x1111d4…111368 [0x04]: C0x0042.0x2.0
0x1111d4…111368 [0x05]: C0x0042.0x3.0
0x1111d4…111368 [0x06]: C0x0043.0x0.0
0x1111d4…111368 [0x07]: C0x0043.0x1.0
0x1111d4…111368 [0x08]: C0x0052.0x0.0
0x1111d4…111368 [0x09]: C0x0052.0x1.0
0x1111d4…111368 [0x0a]: C0x0052.0x2.0
0x1111d4…111368 ]
0x1111d4…111368 }
0x111368…1114fc Dummy {f00=0x0041, f01=0x0190, f02=» 2 P IDENT DRKB04 REL 11.0 81-05-25 870105041100 P : 0 P =2 GREEK CHARACTER SET & NEW CONDITIONS B P REL 11.0 81-03-27 v 4 P = 1 /00 SKIPPED IF IT CAME FROM SECOND DEVICE , P ADDRESS VIA CIRCULAR INPUT BUFFER P REL 11.0
0x1114fc…111690 Dummy {f00=0x0041, f01=0x0190, f02=»S T E M P T S h P* P* DRKB04 = DRIVER KEYBOARD P* D . P****************************************** N P* 4 P* THIS DRIVER HANDLES INPUT FROM THE KEYBOARDS & P* PTS 6231, -32, -33, -34, -36, 2 P* -71, -72, 6331, 6342 AND
0x111690…111824 Dummy {f00=0x0041, f01=0x0190, f02=» ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. P* 6 0 P* AN ECHO DEVICE CAN BE ATTACHED TO EVERY @ 0 P* KEYBOARD, WHERE RECEIVED CHARACTERS ARE t P* ECHOED. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* R C K B =
0x111824…1119b8 Dummy {f00=0x0041, f01=0x0190, f02=» * P* THE FOLLOWING ORDERS ARE TREATED: P* ORDER 01: BASIC READ 6 " P* 02: STANDARD READ Z " P* 03: NUMERIC READ ( P* 31: RESET INPUT BUFFER P* P EJECT P* NORMAL REGISTER USAGE:
0x1119b8…111b4c Dummy {f00=0x0041, f01=0x0190, f02=» A4: WORK REGISTER " P* A5: STACK BASE " $ P* A6: DWT-ADDRESS H P* A7: ORDER p $ P* A8: ECB-ADDRESS P* P* SYSTEM ADAPTION P* 2 P* DWT-ADDRESS OF ECHO-OUTPUT
0x111b4c…111ce0 Dummy {f00=0x0041, f01=0x018e, f02=»O ZERO. STANDARD VALUE FOR TIME- | 6 P* OUT IS 30 SECONDS SINCE LAST DEPRESSED KEY. IF ( 8 P* ANOTHER VALUE IS WANTED FOR A SYSTEM, INDICATOR b " P* IN DRIVER MUST BE CHANGED. P* P* < P* BIT 1 IN DWTDEV IS SET TO ZERO IF CHARACTERS
0x111ce0…111e74 (1, 346) Dummy {f00=0x0041, f01=0x0190, f02=» P* > P* BIT 2 IN DWTDEV IS SET TO ZERO IF /20-/5F ARE ACCEPTED < P* FOR STANDARD READ. IF IT IS SET TO ONE, /20-/7F ARE P P* ACCEPTED. P* 8 P* KEYBOARD TYPE MUST ALSO BE DEFINED IN DWT. BIT 3 8 P* IN DWTDEV MUST BE SET IF
0x111e74…112008 Dummy {f00=0x0041, f01=0x0190, f02=»ECHOED. r P* @ P* SPACE FOR THE CIRCULAR INPUT BUFFER IS RESERVED IN DWT. P* ^ 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE h ( P* TO EXCLUDE FOLLOWING FUNCTIONS: P* ---- ECHO FUNCTION P* ---- TIME OUT FUNCTION
0x112008…11219c Dummy {f00=0x0041, f01=0x0190, f02=»NUMERIC PART OF 6272 USED AS NORMAL KEY z P* 0 P EJECT : P* ENTRIES H P* P ENTRY KBAD4 ADDRESSBLOCK f P* $ P* EXTERNAL TOSS MODULE ENTRIES P* * P EXTRN LENDER END REQUEST AND DISPATCH " P EXTRN INPUT READ A CH
0x11219c…112330 Dummy {f00=0x0041, f01=0x0190, f02=» EXTRN LENDIS END I/O AND DISPATCH P EXTRN ABORT ABORT REQUESTS * P EXTRN ABTADR ABORT-ADDRESS N P EXTRN TENDIO r P EXTRN TDISP P* P* DWT PARAMETERS P* P EXTRN DWTDEV P EXTRN DWTST P EXTRN DWTA3 P
0x112330…1124c4 Dummy {f00=0x0041, f01=0x0190, f02=» ~ P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH 6 " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBCW CONTROL WORD P* P* CONSTANTS P* * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER " PTIME EQU 300
0x1124c4…112658 Dummy {f00=0x0041, f01=0x0190, f02=»* ( P************************************ P* 6 < P* TIME OUT FUNCTION MAY BE INCLUDED BY SETTING X:A = 1 @ P* PX:A EQU 0 PCTIMUT EQU 0 P* 8 P* ECHO FUNCTION MAY BE EXCLUDED BY SETTING X:B = 0 P* PX:B EQU
0x112658…1127ec Dummy {f00=0x0041, f01=0x0190, f02=»* PX:C EQU 0 PRECOV EQU 1 P* 0 : P* THE LENGTH OF THE CIRCULAR INPUT BUFFER IS DEFINED : 0 P* IN X:D, NUMBER OF BYTES IN DECIMAL FORM. x P* PX:D EQU 8 PDWTLNG EQU 040 P* P* CODE CONVERSION DUMMY
0x1127ec…112980 Dummy {f00=0x0041, f01=0x018e, f02=»/00 INSTEAD OF BEING A SHIFT KEY P* ( PX:F EQU 1 2 PNSHIFT EQU 1 D P* X & P* BY SETTING X:G = 1 KEYBOARD IS b P* LOCKED IF NO KEYLOCK ON P* PX:G EQU 0 PKBLOCK EQU 1 P* P* MMU BUFFER SIZE P*
0x112980…112b14 (1, 347) Dummy {f00=0x0042, f01=0x0190, f02=» P* 6 P* X:J SHOULD BE SET TO 1 IF KB 6236, 71 OR 72 =2 " P* IS INCLUDED IN SYSTEM =2 H P* n PX:J EQU 1 x PNEWKB EQU 1 P* 8 P* X:K SHOULD BE SET TO 1 IF OTHER KB THAN 6236 =2 * P* 71 OR 72 IS INCLUDED IN SYSTEM
0x112b14…112ca8 Dummy {f00=0x0042, f01=0x0190, f02=»EQU 1 PPLC EQU 00 P* , P* IF X:M = 1 IT IS POSSIBLE TO USE =2 * P* GREEK CHARACTER SET =2 Z P* ~ PX:M EQU 0 PGREECE EQU X:M 2 P* A PROGRAM VERSION USING TOSS MMU-PAGING IS * P* OBTAINED BY SETTING MMUPAG EQU
0x112ca8…112e3c Dummy {f00=0x0042, f01=0x0190, f02=» MEMORY z $ PDWTCS EQU /06 CRTL-SHIFT MEMORY . PDWTCTB EQU /08 CONVERSION POINTERS ADDRESS 8 PDWTTP EQU /0A TIMER POINTER j P* P* CIRCULAR INPUT BUFFER P* * PDWTINQ EQU /0C POINTER TO FIRST PLACE ( PDWTUTQ EQU /0E POINTER
0x112e3c…112fd0 Dummy {f00=0x0042, f01=0x0190, f02=» P* P DATA DVBKTB MMU KEY TABLE P DATA DVBLEN MMU BUFFER SIZE 0 P DATA 6 DEVICE INDEX T PKBAD4 EQU * p P DATA ACKB ACTIVATION PART P DATA ABKB ABORT ROUTINE P DATA IHKB INTERRUPT HANDLER P IFF RECOV=1 P DATA 0 NO
0x112fd0…113164 Dummy {f00=0x0042, f01=0x018e, f02=»******** t P* P* RECOVERY ROUTINE P* 6 * P************************************* @ PRCKB LDR A8,A8 BUSY ? n P RF(NZ) RC10 YES ! P LDKL A1,/400 NO ! ( P ORS A1,DWTDEV,A6 INDICATE POWER OFF P ABL LENDIS DISPATCH !
0x113164…1132f8 Dummy {f00=0x0042, f01=0x0190, f02=» , P LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH & PRC15 CM ECBCW,A8 COMPLETE REQUEST 4 & P ABL MKB335 AND SET RETURN CODE =0 ^ P XIF P EJECT ( P************************************ P* P* P* A C K B P* ACTIVATION PAR
0x1132f8…11348c Dummy {f00=0x0042, f01=0x0190, f02=»ERS z P LDK A3,0 P* P* CHECK ORDER ( P* @ P LDR A4,A7 J P RF(NG) AKB100 ILLEGAL ORDER P SUK A4,4 " P RF(N) AKB200 ORDER 1, 2 OR 3 P SUK A4,/2D P RF(Z) AKB110 ORDER 31 P* P* ILLEGAL ORDER
0x11348c…113620 Dummy {f00=0x0042, f01=0x0190, f02=» P* PAKB110 EQU * P INH " $ P LD A1,DWTDEV+DWTUTQ,A6 BUF END . * P CW A1,DWTDEV+DWTINQ,A6 BUFFER EMPTY ? V P RF(E) AKB119 YES ! P* P LDR A2,A1 P IFT NEWKB+OLDKB=2 =2 P LD A4,DWTDEV,A6 ( P ANKL A4,/1000 PTS 623
0x113620…1137b4 (1, 348) Dummy {f00=0x0042, f01=0x0190, f02=» NOT REMOVED f . P* FROM BUFFER WHEN KB 6236/71/72 IS USED P* F " PAKB112 LCR A4,A1 GET CHARACTER P P ANK A4,/FF v P IFT NSHIFT=0 & P CCK A4,/7C00 NUMSHIFT DEPRESSED ? & P RF(E) AKB113 YES ! SKIP CHARACTER P XIF P IFT NEW
0x1137b4…113948 Dummy {f00=0x0042, f01=0x0190, f02=» YES ! P* * PAKB113 CF A15,EOQUEU GET NEXT POINTER ( P CW A1,DWTDEV+DWTINQ,A6 END OF BUF ? F " P RB(NE) AKB112 NO ! CHECK NEXT r P* P XIF PAKB118 SCR A3,A1 P ST A2,DWTDEV+DWTINQ,A6 YES! PAKB119 ENB . P ABL MKB335
0x113948…113adc Dummy {f00=0x0042, f01=0x0190, f02=» x " P LDR A3,A1 EXCHANGE REGISTERS P LDR A1,A2 . $ P CF A15,EOQUEU GET NEXT POINTER @ P LDR A2,A1 h P LDR A1,A3 z P LDK A3,0 P RB AKB113 P* P XIF PAKB200 EQU * P IFT RECOV=1 P* P* POWER OFF TE
0x113adc…113c70 Dummy {f00=0x0042, f01=0x0190, f02=»F BIT p P CWK A7,1 BASIC READ ? ( P RB(NE) RC15 NO ! COMPLETE REQUEST ! , P XIF X PAKB205 EQU * d P IFT CTIMUT=1 x P EJECT P* P* INITIATE TIMING ROUTINE P* P LD A1,DWTDEV,A6 TIMING ? P RF(NN) AKB210 NO!
0x113c70…113e04 Dummy {f00=0x0042, f01=0x0190, f02=» YES ! RESTART TIMER P RF AKB210 P* . PAKBTIM EQU * 8 P LDR A1,A6 DWT-ADDRESS IN A1 L P* p P CF A15,SETIME SET TIME z , P DATA AKBTUT,TIME TIMEOUT ROUTINE & TIME P* 6 P ST A4,DWTTP+DWTDEV,A6 STORE TIMER ADDRESS IN DWT
0x113e04…113f98 Dummy {f00=0x0042, f01=0x0190, f02=»? ^ , P ABL(E) MKBEND YES ! COMPLETE REQUEST ! P* : P* CLEAR ECB-BUFFER D P* ` " P LD A1,ECBBA,A8 BUFFER ADDRESS j P SUK A1,1 $ P ADR A1,A2 ADD REQUESTED LENGTH P* 8 PAKB230 SCR A3,A1 CLEAR BUFFER UNTIL REQUESTED LENGTH
0x113f98…11412c Dummy {f00=0x0042, f01=0x0190, f02=»****** r P* P* P* M K B " $ P* MAIN PART OF KEYBOARD DRIVER 4 P* P* f * P************************************** p P* 4 P* CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS 2 P* CHARACTERS AND NO OVERFLOW HAS OCCUR
0x11412c…1142c0 Dummy {f00=0x0042, f01=0x0190, f02=»R FROM h " P LCR A2,A1 CIRCULAR BUFFER END P* 4 P LDR A4,A2 > P XRK A4,/FF OVERFLOW ? P P RF(NE) MKB130 NO ! n P* P SCR A4,A1 YES ! P ENB $ P LDK A1,OVMASK SET OVERFLOW BIT P ABL MKBEND COMPLETE REQUEST P*
0x1142c0…114454 (1, 349) Dummy {f00=0x0042, f01=0x018e, f02=»A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER P =1 . P IFT PLC=1 =2 < P* R @ P* TEST IF THERE ARE MORE CHARACTERS IN CIRC. INPUT BUFFER P* 4 P LDKL A4,/0800 "MORE CHARACTERS" INDICATION BIT , P CW A1,DWTDEV+DWTINQ,A6 MORE IN BUFFER
0x114454…1145e8 Dummy {f00=0x0042, f01=0x0190, f02=» PMKB135 C1R A4,A4 8 P ANS A4,DWTDEV,A6 CLEAR "MORE CHARACTERS" INDICATION P RB MKB133 P XIF n P EJECT z P* & P* READ A CHARACTER FROM KEYBOARD P* PMKB140 EQU * P CF A5,INPUT READ CHARACTER P ENB
0x1145e8…11477c Dummy {f00=0x0042, f01=0x018e, f02=» ^ P* ARE MORE CHARACTERS P* ( ( P ANK A1,/1 MASK NOT SIGNIFICANT BITS 2 P SRC A1,5 ^ P ORS A1,DWTDEV,A6 p P* P XIF P IFT CTIMUT=1 ( P CF A15,RESTRT RESTART TIMEOUT TIMER P XIF P* PMKB150 EQU *
0x11477c…114910 Dummy {f00=0x0042, f01=0x0190, f02=» ( P ANKL A4,/1000 SPECIAL CONVERSION ? ! P RF(Z) MKB290 PERHAPS ! ! 0 P XIF ! P P IFT NEWKB=1 =2 ! P* ! t P* KB 6236/71/72 IS USED ! ~ P* CHECK INCOMING CHARACTER ! P* ! P LDR A4,A2 ! , P SUK A4,/80 SKIP CHAR. FROM CIRC. BUF.?
0x114910…114aa4 Dummy {f00=0x0042, f01=0x0190, f02=»ACTER ? ! z P RF(N) MKB300 YES ! " P EJECT " , P* " : > P* KEYLOCK IS TURNED. SET/CLEAR CORRESPONDING BIT IN DWT. " D : P* IF THE KEYLOCK ISN'T CHANGED, WHICH MEANS THAT THE " < P* CHARACTER IS COMING BECAUSE OF POWER UP, THE CHARAC- " P*
0x114aa4…114c38 Dummy {f00=0x0042, f01=0x018e, f02=» ! " r P SUK A4,1 # P RF(Z) MKB180 KEYLOCK OFF ! # $ P SLC A1,1 SHIFT "FLAG BIT" LEFT # @ P SUK A4,1 # h & P RB MKB160 NEXT KEYLOCK, PERHAPS ? # z P* # PMKB170 EQU * # 6 P LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK IS CHANGED # P TM A4,A1 #
0x114c38…114dcc Dummy {f00=0x0042, f01=0x0190, f02=» # 4 P LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK CHANGED $ P TM A4,A1 $ @ P RB(Z) MKB100 NO CHANGE $ R * P C1R A1,A1 COMPLEMENT FOR AND-FUNCTION $ r . P ANS A1,DWTDEV+DWTKEY,A6 CLEAR "FLAG BIT" $ PMKB190 EQU * $ 0 P CF A15,STORE STORE KEYLOCK CHARAC
0x114dcc…114f60 Dummy {f00=0x0042, f01=0x0190, f02=»K IS TURNED ! MAKE A NEGATIVE CODE $ 6 P* TO THE CONTROLWORD IN ECB AND COMPLETE REQUEST % * P* % d PMKB200 EQU * % n P LDR A4,A2 LOAD CHARACTER % P SUK A4,/70 % & P SRC A4,1 SHIFT TO GET KEY NUMBER % P RF(N) MKB210 ON OR OFF ? % P ADK
0x114f60…1150f4 (1, 350) Dummy {f00=0x0042, f01=0x0190, f02=» ST A4,ECBCW,A8 STORE CODE IN ECB % , P RF MKB335 SET RC=0 AND COMPLETE REQUEST & * P* & Z 4 P* CTRL OR (NUM.) SHIFT IS DEPRESSED (RELEASED) & d P* & PMKB220 EQU * & P IFT KBLOCK=1 & * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? & , P RB(Z) MKB
0x1150f4…115288 Dummy {f00=0x0042, f01=0x0190, f02=»RIC SHIFT KEY IS & r 2 P* DEPRESSED, AND SKIP THE INCOMING CHARACTER ' P* IF IT IS RELEASED. ' N P* ' l P CCK A2,/7C00 DEPRESSED ? ' v P RF(NE) MKB230 NO ! ' $ P LDK A2,/00 YES ! LOAD CHARACTER ' P RF MKB300 ' P* ' " PMKB230 CCK A2,/7
0x115288…11541c Dummy {f00=0x0042, f01=0x0190, f02=»DR A4,A4 SHIFT ON ? ' P RF(Z) MKB260 YES ! ( P SUK A4,1 SHIFT OFF ? ( 8 P RF(Z) MKB270 YES ! ( V P LDK A1,/4 CONTROL BIT ( r P SUK A4,1 CONTROL ON ? ( P RF(Z) MKB260 YES ! ( P SUK A4,1 CONTROL OFF ? ( P RF(Z) MKB270 YES ! ( P S
0x11541c…1155b0 Dummy {f00=0x0042, f01=0x018e, f02=» A1,A1 COMPLEMENT ( " P ANS A1,DWTDEV+DWTCS,A6 CLEAR ) P* ) @ $ PMKB280 ABL MKB100 NEXT CHARACTER ) J P XIF ) r P IFT OLDKB=1 =2 ) ~ P EJECT ) P* ) . P* SPECIAL CONVERSION OF CHARACTERS FROM ) P* NUMERIC PART OF 6234. ) P* )
0x1155b0…115744 Dummy {f00=0x0042, f01=0x0190, f02=» ) x ( P LDR A4,A2 IF BIT 8 IN CHARACTER IS * 0 P ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED * 4 ( P RF(Z) MKB310 NO SPECIAL CONVERSION * h P ANK A2,/7F MASK AWAY BIT 8 * P* * & P* INDICATE SPECIAL CONVERSION ! * P* * 2 PMKB295 ANKL A6,/FF
0x115744…1158d8 Dummy {f00=0x0042, f01=0x0190, f02=»CT * P* + P* NORMAL CONVERSION + P* + 2 PMKB300 EQU * + < P* + P P IFT KBLOCK=1 + Z * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? + p . P ABL(Z) MKB100 YES ! READ A NEW CHARACTER + P XIF + P* + PMKB310 EQU * + , P LD A1,DWTDEV+
0x1158d8…115a6c Dummy {f00=0x0042, f01=0x0190, f02=»A1,A1 + & P RF(E) MKB320 NO CONVERSION TABLE , P LDR A4,A2 , 8 P SRL A4,3 LINE INDEX , J P ADR A1,A4 , f $ P LDR* A1,A1 COLUMN TABLE ADDRESS , x P RF(E) MKB320 NO COLUMN , P LDR A4,A2 , P ANK A4,/F , P ADR A1,A4 ADD ROW INDEX , P LCR
0x115a6c…115c00 Dummy {f00=0x0042, f01=0x0190, f02=»WTCS,A6 , P XIF - P EJECT - P* - * , P* CHECK IF BASIC READ OR ORDER 2 OR 3 - 4 P* - d P LDR A4,A7 LOAD ORDER CODE - n P SUK A4,2 - " P RF(NN) MKB330 ORDER 2 OR 3 ! - P* - P* ORDER 1, BASIC READ - P* - , P CF A5,STOEC
0x115c00…115d94 (1, 351) Dummy {f00=0x0043, f01=0x0190, f02=» IF ECHO WANTED - x P* . ( PMKB325 EQU * . 2 0 P CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? . F . P ABL(NE) MKB100 NO ! READ A NEW CHARACTER . z P* . ( P RF MKB335 YES ! SET RETURN CODE = 0 . P EJECT . P* . . P* ORDER 2 OR
0x115d94…115f28 Dummy {f00=0x0043, f01=0x0190, f02=»D A1,ECBCW,A8 KEY-TABLE ADDRESS . P RF(Z) MKB360 NO KEYTABLE ! / ( " P LCR A4,A1 TABLE LENGTH IN A4 / L P ANK A4,/FF / r 0 P ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE / P ADK A1,1 / PMKB340 SUK A4,1 / , P RF(N) MKB360 KEY NOT FOUND IN KEYTA
0x115f28…1160bc Dummy {f00=0x0043, f01=0x0190, f02=»DK A4,1 YES ! MAKE KEYTABLE INDEX / PMKB350 EQU * 0 * 0 P ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD 0 > P* 0 r 0 P CF A15,STORE STORE CHARACTER IN ECB BUFFER 0 | P IFT CECHO=1 0 & P ORK A2,/80 INDICATE EOR CHARACTER 0 P CF A5,EORECH ECHO CHARACT
0x1160bc…116250 Dummy {f00=0x0043, f01=0x0190, f02=» P EJECT 1 P* 1 P* 1 P* CHARACTER CHECK 1 & P* 1 B PMKB360 EQU * 1 L ( P STR A2,A15 SAVE CHARACTER ON STACK 1 ` P LD A1,DWTDEV,A6 1 P CWK A7,2 STANDARD READ ? 1 P RF(NE) MKB380 NO ! 1 P LDK A4,/20 LOWER LIMIT 1 P SLC A
0x116250…1163e4 Dummy {f00=0x0043, f01=0x018e, f02=»R LIMIT 1 z P RF MKB400 2 P* 2 " ( PMKB380 SLC A1,1 /30-/39 & /70-/79 ? 2 , P RF(NZ) MKB390 NO ! 2 X P* 2 t P ANK A2,/3F RESET BIT 9 2 ~ " PMKB390 LDK A1,/39 UPPER LIMIT 2 P LDK A4,/30 LOWER LIMIT 2 P* 2 PMKB400 SUR A1,A2 2 $ P R
0x1163e4…116578 Dummy {f00=0x0043, f01=0x0190, f02=» 2 P* 3 $ P* IT IS A "NORMAL" CHARACTER ! 3 P* 3 : PMKB405 EQU * 3 D * P CF A5,STOECH STORE AND ECHO CHARACTER 3 X P* 3 & P CW A3,ECBRL,A8 LENGTH OVERFLOW ? 3 , P ABL(L) MKB100 NO ! TAKE NEXT CHARACTER 3 P* 3 ( PMKB410 LDK A1,8 YES
0x116578…11670c Dummy {f00=0x0043, f01=0x0190, f02=»R UNKNOWN CHARACTER 3 x P* 4 ( PMKB420 LDR* A2,A15 RELOAD CHARACTER 4 & P LDR A1,A2 4 R P ANK A1,/FF 4 d P LD A4,ECBCW,A8 4 x * P RF(NZ) MKB440 STANDARD EOR NOT USED ! 4 6 P LDK A4,1 INDEX TO STORE IN ECBCW IF STANDARD EOR 4 P CCK A1,/0D00 ST
0x11670c…1168a0 Dummy {f00=0x0043, f01=0x018e, f02=» 4 " P ADK A1,/13 BACKSPACE ? (/08) 5 P ABL(E) BACKSP YES ! 5 . P* 5 J P SUK A1,/10 CLEAR ? (/18) 5 T P ABL(E) CLEAR YES ! 5 v P* 5 " P SUK A1,/2 DOUBLE ZERO ? (/1A) 5 P ABL(E) MZ20 YES ! 5 P* 5 $ P SUK A1,/E5 SKIP CHARACTER (/FF) 5
0x1168a0…116a34 (1, 352) Dummy {f00=0x0043, f01=0x0190, f02=» 5 l & P RF(N) MKB460 GREEK CHARACTER SET 6 P SUK A1,/9 6 2 P RB(NP) MKB405 YES IT IS OK 6 D PMKB460 EQU * 6 h P XIF 6 | P* 6 , P* SET ERROR CODE FOR UNKNOWN CHARACTER 6 P* 6 0 P CF A15,STORE STORE CHARACTER IN ECB-BUFFER 6 P LDK A1,
0x116a34…116bc8 Dummy {f00=0x0043, f01=0x0190, f02=» 6 * P************************************* 7 PMKBEND EQU * 7 6 P* 7 J P IFT CTIMUT=1 7 T P LD A4,DWTTP+DWTDEV,A6 7 j P RF(E) MKBE10 NO TIMING ! 7 & P CM* DWTTP+DWTDEV,A6 SCRATCH TIMER 7 P CM DWTTP+DWTDEV,A6 7 P XIF 7 P* 7 PMK
0x116bc8…116d5c Dummy {f00=0x0043, f01=0x0190, f02=»D OF ECHOING 7 P LDR A1,A4 8 P XIF 8 & P* 8 2 , P ABL LENDIS PERFORM END I/O AND DIPATCH 8 < P EJECT 8 l * P************************************** 8 z P* 8 P* 8 P* INTERRUPT HANDLER 8 P* 8 P* 8 * P**************************
0x116d5c…116ef0 Dummy {f00=0x0043, f01=0x0190, f02=»ER 8 n P XIF 9 P* 9 4 P* STORE INCOMING CHARACTER IN CIRCULAR BUFFER 9 P* 9 X P IFT OLDKB=1 =2 9 b $ P LDR A1,A6 SPECIAL CONVERSION ? 9 z P ANK A1,1 9 P RF(Z) IHKB02 NO ! 9 . P ORK A2,/80 YES INDICATE BY SETTING BIT 8 9 P XIF 9
0x116ef0…117084 Dummy {f00=0x0043, f01=0x018e, f02=» LDR A4,A1 9 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS : P* : J & P CW A1,DWTDEV+DWTUTQ,A6 OVERFLOW ? : T P RF(NE) IHKB20 NO ! : ~ $ P LDK A1,/FF OVERFLOW INDICATION : ( P SCR A1,A4 SET OVFL. IND. IN BUFFER : P* : PIHKB05 EQU * :
0x117084…117218 Dummy {f00=0x0043, f01=0x0190, f02=» : P IFT NEWKB=1 =2 ; & P SUK A2,/70 KEYLOCK, SHIFT, CTRL ? ; P RF(N) EXIT NO ! ; J P ADK A2,/70 YES ! ; b P* ; | P LDK A1,0 ; P SC A1,DWTDEV+1,A6 ; P LD A1,DWTDEV+DWTINQ,A6 ; P LDR A4,A1 ; P CF A15,EOQUEU ; , P CW A1,DWTDEV+
0x117218…1173ac Dummy {f00=0x0043, f01=0x0190, f02=» ; l P LDR A4,A1 FORWARD IN BUFFER < P RF IHKB20 < , P* < > P* CHECK BUFFER < H P* < ` > PIHKB07 LD A1,DWTDEV+DWTINQ,A6 POINTER TO LAST POS IN BUF. < j PIHKB10 EQU * < * P CW A1,DWTDEV+DWTUTQ,A6 END OF QUEUE ? < P RF(E) IHKB19 YES ! < (
0x1173ac…117540 Dummy {f00=0x0043, f01=0x0190, f02=»XIT EQUAL CHARACTER ! < P SUK A4,1 INVERTED CHAR. ? = P RF(NZ) IHKB17 NO ! = @ 2 P LDK A2,/80 YES ! LOAD SKIP CHAR FOR CIRC BUF = P RF IHKB18 = P* = PIHKB17 EQU * = & P SUK A4,/F CTRL, SHIFT, KEYLOCK ? = P RB(N) IHKB10 YES ! = P
0x117540…1176d4 (1, 353) Dummy {f00=0x0052, f01=0x0190, f02=»UAL AND INV. CHARACTERS = P* > : PIHKB19 LC A4,DWTDEV+1,A6 SORT OUT EQUAL AND INV. CHAR > * P ANK A4,/FF > h P LD A1,DWTDEV+DWTINQ,A6 > | PIHKB21 CF A15,SOQUEU > P SUK A4,1 > P RB(NN) IHKB21 > P IM DWTDEV,A6 > ( P LCR A4,A1 GET OLD
0x1176d4…117868 Dummy {f00=0x0052, f01=0x0190, f02=» PUT CHAR IN A2 > P ANK A2,/7F ? P RB IHKB07 ? , P XIF ? > P* ? J 8 PIHKB20 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER ? T 4 PIHKB30 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER ? P* ? PEXIT ABL LDISP DISPATCH ! ? P EJECT ? P* ?
0x117868…1179fc Dummy {f00=0x0052, f01=0x0190, f02=» EQU * ? , P CF A15,STORE STORE CHAR. IN ECB-BUFFER @ P* @ > P IFT CECHO=1 @ H P IFT GREECE=1 =2 @ P RF EORECH DO NOT MASK @ v P XIF @ P IFT CECHO=1 @ , PECHSUB ANK A2,/7F MASK TO GET CHARACTER @ PEORECH EQU * @ P IFT PLC=1 =2 @
0x1179fc…117b90 Dummy {f00=0x0052, f01=0x0190, f02=» SLC A1,5 @ P XIF A P IFT CECHO=1 A P CF A5,ECHO ECHO CHARACTER A 2 P XIF A T P* A ` P RTN A5 A j P* A z P EJECT A P IFT CTIMUT=1 A P* A $ P* THIS IS THE TIMEOUT ROUTINE A P* A PAKBTUT EQU * A P LDR A6,A1 LOAD
0x117b90…117d24 Dummy {f00=0x0052, f01=0x0190, f02=»5,ABORT RESET INPUT REQUESTED FLAG A * P LDR A5,A6 INITIATE DWT-STACK POINTER B * P ADKL A5,DWTSB2 B X 4 P LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH FROM DWT B p ( P LD A8,DWTECB,A6 RELOAD ECB-ADDRESS B P LDK A1,/40 SET RETURN CODE B P ABL MKBEND COMP
0x117d24…117eb8 Dummy {f00=0x0052, f01=0x0190, f02=»E NO TIMING B P LDKL A4,-TIME RESTART TIMER C P ST* A4,DWTTP+DWTDEV,A6 C 8 PNOTIME RTN A15 C X P XIF C n P EJECT C z P* C 0 P* STORE = SUBROUTINE TO STORE A CHARACTER C 0 P* IN ECB-BUFFER AND INCREMENT BUFFER INDEX C P* C , P*
0x117eb8…11804c Dummy {f00=0x0052, f01=0x0190, f02=»ER ADDRESS C | P ADR A1,A3 ADD BUFFER INDEX D ( P SCR A2,A1 STORE CHARACTER IN BUFFER D 6 $ P ADK A3,1 INCREMENT BUFFER INDEX D b P RTN A15 D P* D 6 P* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER D P* D ( P* ON ENTRY: A1 = QUEUE POIN
0x11804c…1181e0 Dummy {f00=0x0052, f01=0x0190, f02=»WTEQ END OF QUEUE ? D P RF(NE) EOQU10 E 2 P LDKL A1,DWTDEV+DWTSQ SET QUEUE START ADDRESS E 2 PEOQU10 ADR A1,A6 E h P RTN A15 E P* E : P* SOQUEUE = SUBROUTINE TO GET PREVIOUS QUEUE POINTER E P* E ( P* ON ENTRY: A1 = QUEUE POINTER E
0x1181e0…118374 (1, 354) Dummy {f00=0x0052, f01=0x0190, f02=»? E h P RF(NE) SOQ10 NO ! F 0 P LDKL A1,DWTDEV+DWTEQ GET LAST POS IN QUEUE F $ PSOQ10 ADR A1,A6 F X ( P SUK A1,1 GET PREVIOUS POINTER POS. F p P RTN A15 F P EJECT F P* F P* BACKSPACE F P* F PBACKSP EQU * F P LDR A3,A3 F "
0x118374…118508 Dummy {f00=0x0052, f01=0x0190, f02=»EAD OF LAST CHAR F p " P SUK A3,1 STEP BACKWARDS AGAIN G P* G > PKBBSPA EQU * G H P IFT CECHO=1 G & P LDK A2,/8 BACKSPACE TO ECHODEVICE G p P XIF G PKBBSP2 EQU * G P IFT CECHO=1 G " P CF A5,ECHSUB ECHSUB CHARACTER G P XIF G P ABL MKB
0x118508…11869c Dummy {f00=0x0052, f01=0x0190, f02=»ARACTER G ~ P EJECT H P* H P* MULTIPLE ZERO H ( P* H B PMZ20 EQU * DOUBLE ZERO H L P LDK A4,2 H j P RF MZ50 H | P* H PMZ30 EQU * TRIPLE ZERO H P LDK A4,3 H P* H PMZ50 EQU * H P SUK A4,1 ANY MORE ZEROES ? H & P A
0x11869c…118830 Dummy {f00=0x0052, f01=0x0190, f02=»SOQUEU GET PREVIOUS POINTER H P* I $ , P CW A1,DWTDEV+DWTINQ,A6 ANY SPACE LEFT ? I . P RF(E) MZ90 NO ! I ^ PMZ75 EQU * I v 6 P ST A1,DWTDEV+DWTUTQ,A6 STORE NEW OUTQUEUE POINTER I , P LDK A2,/30 STORE ZERO IN CIRCULAR BUFF. I P SCR A2,A1 I P RB
0x118830…1189c4 Dummy {f00=0x0052, f01=0x0190, f02=»INTER I n 2 P LDK A1,/A SET RETURN CODE FOR BOTH LENGTH AND J P ENB THROUGHPUT ERRORS J D P* J d P ABL MKBEND J n P* J PMZ90 EQU * J P LDR A4,A4 ALL ZEROES ? J P RB(E) MZ80 YES J & P LDKL A2,/FFFF NO, MOVE IN-POINTER J P ADS A2,
0x1189c4…118b58 Dummy {f00=0x0052, f01=0x0190, f02=»INE J P* K , P**************************************** K P* K F PABKB EQU * K P & P CF A15,ABORT ABORT INPUT REQUEST K b P IFT CTIMUT=1 K P LD A4,DWTTP+DWTDEV,A6 K P RF(Z) ABKB05 NO TIMER ! K P CM* DWTTP+DWTDEV,A6 K $ P CM DWTTP+DW
0x118b58…118cec Dummy {f00=0x0052, f01=0x0190, f02=»KEYBOARD K v * P SLC A4,2 GET ECHO-MODE INDICATION BIT L PABKB10 EQU * L > & P ABL(NN) LDISP NOT AN ECHO REQUEST L R P* L | 4 P LD A4,DWTECH,A6 GET DWT-ADDRESS OF ECHO DEVICE L & P LD A3,DWTADR,A4 GET ADDRESS BLOCK L 6 P LD A3,ABTADR,A3 GET ABORT-ADDRE
0x118cec…118e80 Dummy {f00=0x0052, f01=0x40a6, f02=» . P LDKL A5,DWTSB2 STACK BASE 2 DISPLACEMENT M P ADR A5,A6 ADD DWT-ADDRESS M 6 P* M X 0 P ABR A3 JUMP TO ABORT ROUTINE OF ECHO DEVICE M b P END M @ M OF ECHO DEVICE L & P LD A3,DWTADR,A4 GET ADDRESS BLOCK L 6 P LD A3,ABTADR,A3 GET ABORT-ADDRE
0x118e80…119014 (1, 355) Dummy {f00=0x0052, f01=0x2008, f02=» N #e DRKB04SC &8 & EGE LM ! 9 q 1 y q A ) Y ) ) YQ. !CTOR INPUT TAPE:; BLOCK f:; <m !! KB04SC q m 10 z
0x119014…1191a8 Dummy {f00=0x0052, f01=0x0190, f02=»QU * N P CF A15,TENDIO O PT:DISP ABL TDISP O " P* O : $ PEND:30 EQU * CU ADDRESS UNKNOWN O D P LDK A1,1 NOT OPERABLE O l & P ORS A1,DWTST,A6 RECOVERY DONE =1 O P RB END:IO O P EJECT DRFD01 O P* O P******************** O P*
0x1191a8…11933c Dummy {f00=0x0052, f01=0x0190, f02=» IFT CPU852=1 O & P CF A15,SAVE8 SAVE A1-A8 ON STACK P P XIF P @ P* P L P IFT CPU852=0 P V " P MSR 8,A15 SAVE A1-A8 ON STACK P l P XIF P P* P P LDKL A6,DWFD01 DWT ADDRESS P 4 P LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1 P P ANS
0x11933c…1194d0 Dummy {f00=0x0052, f01=0x0190, f02=»,A6 P P RF(Z) FDON10 NO TIMER SET Q P LDKL A4,-TIME Q . " P ST* A4,DWTTP,A6 RESTART TIMER Q D P RB T:DISP Q j PFDON10 LDK A4,DWTTP Q | P ADR A4,A6 Q P LDR A1,A6 SAVE A6 Q P CF A15,SETIMP Q P DATA FDON20,TIME Q P* Q PF:DISP EQU
0x1194d0…119664 Dummy {f00=0x0052, f01=0x018e, f02=» Q P ADR A5,A6 GET STACK BASE R P* R * 6 PFDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE R 4 P IFT MMUPAG=1 R n P IFT CHAN=0 R $ P CM BUFFLG,A6 RESET BUFFER FLAG R P XIF R P* R P IFF TOSS+IBM=0 R 4 P IM DWTST2,A6 SET RECOVERY
0x119664…1197f8 Dummy {f00=0x0052, f01=0x0190, f02=» P* S PFDONLD EQU * S $ P SC A3,DWTOR,A6 GET VOLUME NAME S " & P LC A4,DIXTAB,A3 DRIVE INDEX MASK S J P SC A4,DWTA3+1,A6 SAVE IT S t P CF A5,SETCIO S P LDK A2,/14 S P CF A5,FD:REA LOCK S P ANK A3,1 S P RF(Z) FDON19 OPERABLE S
0x1197f8…11998c Dummy {f00=0x0052, f01=0x0190, f02=» S P CF A5,VO:NAM T & P LDKL A2,/FBFF RESET IBM IND. BIT T , P ANRS A2,A6 UPDATE TEMPORARY RETURN CODE T H PFDON21 EQU * T x P LDK A2,/C T P CF A5,FD:REA UNLOCK T P LDK A3,0 T , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. T P SUK A3,1 T
0x11998c…119b20 Dummy {f00=0x0052, f01=0x018e, f02=»E VOLUME NAMES READ T | P* U P IFT OPCLOS=1 U & P* U < P EJECT U F P* U T : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING U ^ P* U " P LD A4,DWTTP2,A6 TIMER POINTER U P RF(Z) FDON09 NOT RUNNING U P CMR A4 STOP TIMER U $ P
0x119b20…119cb4 (1, 356) Opaque[0x194]
0x119cb4…119e48 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0108, f03=0x0000}
0x119cb4…119e48 IdxSect {
0x119cb4…119e48 f00 = 0x0008 // 0x119cb4 @0x0
0x119cb4…119e48 f01 = 0x0008 // 0x119cb6 @0x2
0x119cb4…119e48 gno = [ // 0x119cb8 @0x4
0x119cb4…119e48 [0x00]: C0x0008.0x1.0
0x119cb4…119e48 [0x01]: C0x0015.0x3.0
0x119cb4…119e48 [0x02]: C0x0019.0x3.0
0x119cb4…119e48 [0x03]: C0x002b.0x3.0
0x119cb4…119e48 ]
0x119cb4…119e48 }
0x119e48…119fdc Dummy {f00=0x0008, f01=0x0190, f02=» 2 P IDENT DRDI01 REL 11.0 81-01-26 870105041100 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY P*
0x119fdc…11a170 Dummy {f00=0x0008, f01=0x0190, f02=»* THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241 > P* AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232 B " P* 6233, 6236 AND 633, 62361. * P* IT IS ALSO POSSIBLE TO OPEN CASH- P* BOXES ON FT80. P* 4 P* THE DRIV
0x11a170…11a304 Dummy {f00=0x0008, f01=0x0190, f02=» P* * P* THE FOLLOWING ORDERS ARE TREATED: P* < " P* ORDER 37: WRITE LIGHTS ON F " P* 38: WRITE LIGHTS OFF l ( P* 06: WRITE PROGRAM DISPLAY , P* 39: WRITE FLASHING LIGHTS P EJECT P* P*
0x11a304…11a498 Dummy {f00=0x0008, f01=0x0190, f02=» WORK REGISTER " P* A4: WORK REGISTER " P* A5: WORK REGISTER < P* A6: DWT-ADDRESS b P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* SYSTEM ADAPTATION P* . P*
0x11a498…11a62c Dummy {f00=0x0008, f01=0x0190, f02=»1,6242,6233 t P* : P* ORDER 06, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY P* CONDITIONAL ASSEMBLY P* | P EJECT P* P* P*************** P* ENTRIES * P*************** P* ( P ENTRY DIAD AD
0x11a62c…11a7c0 Dummy {f00=0x0008, f01=0x0190, f02=»XTRN LENDIS PERFORM END I/O AND DISPATCH * P EXTRN LDISP DISPATCHER ORDINARY INT. 0 P EXTRN OUTPUT SEND ONE CHAR. ^ P EXTRN GETCHR GET CHARACTER $ P EXTRN LENDER I/O REQUEST ERROR P EXTRN DWTST STATUS WORD P EXTRN DWTDEV STATUS
0x11a7c0…11a954 (1, 357) Dummy {f00=0x0015, f01=0x0190, f02=»XTRN ENDBLK END BLOCK $ P EXTRN ECBCW CONTROL WORD OF ECB P* F P* P P EJECT Z P* h P* r P*************** | P* TABLES * P*************** P* P* " P DATA DVBLEN BUFFER SIZE (MMU) P DATA 2 DEVI
0x11a954…11aae8 Dummy {f00=0x0015, f01=0x0190, f02=»A 0 NO INTERRUPT HANDLER P DATA RCDI RECOVERY ROUTINE P* D " PCCERR EQU /4 CODE CHECK ERROR N P* t P EJECT ~ P* P* P************************* P* CONDITIONAL ASSEMBLY * P************************* P*
0x11aae8…11ac7c Dummy {f00=0x0015, f01=0x0190, f02=»D6 EQU 0 P* P* 8 P* ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED $ ( P* IN THIS DRIVER BY SETTING X:B=1 ` P* PX:B EQU 0 PFLASH EQU 0 P* P* P EJECT P* P* P* MMU BUFFER SIZE
0x11ac7c…11ae10 Dummy {f00=0x0015, f01=0x0190, f02=»********************* P* PDWTDIB EQU /02 SAVE AREA ( , PDWTFLA EQU /08 SAVE AREA FOR FLASH IMAGE H PDWTTP EQU /0A TIMER POINTER x PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P* ACTIVATION
0x11ae10…11afa4 Dummy {f00=0x0015, f01=0x0190, f02=» CCK A7,/0606 P RF(E) ADI050 ORDER /06 P XIF 6 & P LD A4,ECBCW,A8 CONTROL WORD TO A4 B 8 P LD A3,DWTDEV,A6 TEST IF ONE OR TWO CHARACTER DEVICE l & P RF(N) ADI005 ONE CHARACTER DEVICE " P LDR A3,A4 CONTROL WORD tO A3 P ANK A4,/F
0x11afa4…11b138 Dummy {f00=0x0015, f01=0x0190, f02=» RF(E) FLA05 P XIF P SUK A7,/37 P RF(E) ADI010 ORDER 37 4 P SUK A7,1 R P RF(E) ADI007 ORDER 38 d " P ABL(NE) LENDER REQUEST ERROR P EJECT P IFT FLASH=1 P* P* FLASH ORDER /39 P* P* 2 P
0x11b138…11b2cc Dummy {f00=0x0015, f01=0x018e, f02=»ADY STARTED x P LDR A1,A6 P CF A15,SETIME & P DATA FLTUT,TIME < P ST A4,DWTTP+DWTDEV,A6 T . P LD A4,DWTFLA+DWTDEV,A6 RELOAD FLASH IMAGE r P* PFLA10 EQU * P LDKL A3,/200 ( P XRS A3,DWTDEV,A6 SWITCH 0N-OFF FLAG P*
0x11b2cc…11b460 Dummy {f00=0x0015, f01=0x0190, f02=» j P RF ADI020 TURN ON LAMPS P* ( PFLA20 C1R A4,A4 2 & P ANS A4,DWTDIB+DWTDEV,A6 ON-FLASH J P RF ADI020 TURN OFF LAMPS t P EJECT P* P* P* FLASH TIME OUT ROUTINE P* P* PFLTUT EQU * $ P LDR A
0x11b460…11b5f4 (1, 358) Dummy {f00=0x0019, f01=0x0190, f02=»BUSY v P ANS A4,DWTST,A6 P* $ P LD A4,DWTFLA+DWTDEV,A6 . * P RF(Z) FLA30 NO MORE LAMPS TO FLASHER N P* | * P LDR A5,A6 INITIATE DWT-STACK POINTER P ADKL A5,DWTSB2 P LDKL A1,-TIME RESTART TIMER P ST* A1,DWTTP+DWTDEV,A6
0x11b5f4…11b788 Dummy {f00=0x0019, f01=0x0190, f02=» P LDKL A1,-TIME RESTART TIMER P ST* A1,DWTTP+DWTDEV,A6 ( P ABL LDISP H P XIF Z P EJECT f P IFT ORD6=1 t P* P* ( P* ORDER 06: WRITE PROGRAM DISPLAY P* PADI050 LDK A3,0 & PADI060 CF A15,GETCHR GET CHARA
0x11b788…11b91c Dummy {f00=0x0019, f01=0x0190, f02=»TER ? v P RF(L) ADI100 YES P CWK A4,3 UNDEFINED ? ( P RF(G) ADI100 YES F P ADKL A4,DWTDIB+2 ` P ADR A4,A6 z , P SCR A2,A4 STORE CHARACTER IN DWT-BUFFER " P RB ADI060 GET NEXT CHARACTER < PADI070 SC A1,DWTDEV+1,A6 SET START V
0x11b91c…11bab0 Dummy {f00=0x0019, f01=0x0190, f02=»00 SEND CHARACTERS P* P* $ P* CODE CHECK ERROR . P* L ( PADI100 LDK A1,CCERR SET RETURN CODE V P ORS A1,8,A8 IN ECB " P RB ADI060 GET NEXT CHARACTER P XIF P* P EJECT P* P* $ P* ORDER 3
0x11bab0…11bc44 Dummy {f00=0x0019, f01=0x018e, f02=»FT FLASH=1 6 P ANS A4,DWTFLA+DWTDEV,A6 RESET BITS IN FLASH IMAGE P XIF L P RF ADI020 X P* j P* t P* ~ P* P* ORDER 37: TURN ON LAMPS P* P* P* : PADI010 ORS A4,DWTDIB+DWTDEV,A6 SET BITS IN DWT-BUFFE
0x11bc44…11bdd8 Dummy {f00=0x0019, f01=0x018e, f02=» P* SENDING SEQUENCE P* $ " PADI020 LDK A2,/2 BLOCK LENGTH . P CF A5,STABLK START OF BLOCK T P RF(NZ) DIER10 NOT OK ! x 0 P LC A2,DWTDIB+DWTDEV,A6 GET FIRST CHARACTER PADI035 LDK A1,1 6 P SC A1,DWTDEV+1,A6 SET START VALUE I
0x11bdd8…11bf6c Dummy {f00=0x0019, f01=0x0190, f02=» P ADR A2,A6 P LD A4,DWTDEV,A6 P ANK A4,/FF 0 P ADR A2,A4 D P LCR A2,A2 GET CHARACTER V P LD A8,DWTECB,A6 v < P RF(Z) SSEQ10 IF POWER FAIL NO BELL OR CASH-BOX OPENING P LD A3,ECBCW,A8 BELL? P RF(NN) SSEQ05 NO $ P O
0x11bf6c…11c100 Dummy {f00=0x0019, f01=0x0190, f02=» OF BOX 2 n PSSEQ07 SLC A3,1 OPEN BOX 1 ? P RF(NN) SSEQ10 NO ! 6 0 P ORK A2,/10 YES ! INDICATE OPENING OF BOX 1 R P EJECT P* . PSSEQ10 IM DWTDEV,A6 INCREMENT BYTE COUNTER P* " PSSEQ20 CF A5,OUTPUT SEND CHAR. P RF(NZ)
0x11c100…11c294 (1, 359) Dummy {f00=0x002b, f01=0x0190, f02=»BYTE COUNTER $ P SUK A4,2 TWO CHARACTERS SENT ? P EJECT < P IFT ORD6=1 J P RF(NZ) SSEQ25 NO ! ^ P LDR A7,A7 GET ORDER z P IFT ORD6=1 0 P CWK A7,06 ORDER 06, WRITE PROGRAM DISPLAY ? P RF(NE) SSEQ30 NO ! $ PSSEQ25 SUK A4,
0x11c294…11c428 Dummy {f00=0x002b, f01=0x0190, f02=»EQ00 NO ! GET NEXT CHARACTER P XIF $ P* 0 $ PSSEQ30 CF A5,ENDBLK END OF BLOCK : P RF(NZ) DIER10 b P* x PENDIO EQU * , P ABL LENDIS PERFORM END I/O AND DISPATCH P EJECT P* P* P* ERROR ROUTINE P*
0x11c428…11c5bc Dummy {f00=0x002b, f01=0x0190, f02=»(N) LDISP YES, GO TO DISPATCHER P* ( P RF RCDI PERFORM RECOVERY 2 P* T PDIER20 EQU * ^ $ P SLC A1,1 SET "NOT OPERABLE" BIT r P RB ENDIO END I/O P EJECT P* P* R C D I P* > P* RECOVERY ROUTINE: AT POWER
0x11c5bc…11c750 Dummy {f00=0x002b, f01=0x4180, f02=» RESTORED r P* P* PRCDI EQU * & " P LDKL A2,/7FFF SET DEVICE BUSY 8 P ANS A2,DWTST,A6 ^ P* v P LDK A2,/4 BLOCK LENGTH P CF A5,STABLK START OF BLOCK P RB(NZ) DIER10 P* 0 P LC A2,DWTDIB+DWTDEV,A6 GET FIRST CH
0x11c750…11c8e4 Dummy {f00=0x002b, f01=0x2008, f02=» POWER FAILURE TIME.THE INFORMATION ~ , P* OM PROGRAM DISPLAY IS ALSO RESTORED 4 P* d P* n PRCDI EQU * x P CF A15,SAVE8 SAVE REGS. ( P LC A2,DWTDIB,A6 GET FIRST CHARACTER P RB ADI035 P* P* P END P
0x11c8e4…11ca78 Dummy {f00=0x002b, f01=0x0190, f02=»TH IN ECB = 0 ? l , ' ABL(E) MKBEND YES ! COMPLETE REQUEST ! * H * CLEAR ECB-BUFFER R * n " P LD A1,ECBBA,A8 BUFFER ADDRESS x SUK A1,1 $ ADR A1,A2 ADD REQUESTED LENGTH * 8 4AKB230 SCR A3,A1 CLEAR BUFFER UNTIL RE
0x11ca78…11cc0c Dummy {f00=0x002b, f01=0x0190, f02=»******************** * * & * M K B 0 $ * MAIN PART OF KEYBOARD DRIVER B * j * t * &************************************** ~ * 4 /* CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS 2 .* CHARACTERS AND NO OVER
0x11cc0c…11cda0 Dummy {f00=0x002b, f01=0x0190, f02=»TCH A CHARACTER FROM v " LCR A2,A1 CIRCULAR BUFFER END * B P LDR A4,A2 L XRK A4,/FF OVERFLOW ? ^ P RF(NE) MKB130 NO ! | * P SCR A4,A1 YES ! P ENB $ LDK A1,OVMASK SET OVERFLOW BIT ABL MKBEND COMPLETE REQUE
0x11cda0…11cf34 (1, 360) Opaque[0x194]
0x11cf34…11d0c8 # DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03d8, f03=0x0000}
0x11cf34…11d0c8 IdxSect {
0x11cf34…11d0c8 f00 = 0x001e // 0x11cf34 @0x0
0x11cf34…11d0c8 f01 = 0x0020 // 0x11cf36 @0x2
0x11cf34…11d0c8 gno = [ // 0x11cf38 @0x4
0x11cf34…11d0c8 [0x00]: C0x001e.0x3.0
0x11cf34…11d0c8 [0x01]: C0x001f.0x0.0
0x11cf34…11d0c8 [0x02]: C0x0020.0x1.0
0x11cf34…11d0c8 [0x03]: C0x0021.0x1.0
0x11cf34…11d0c8 [0x04]: C0x002c.0x0.0
0x11cf34…11d0c8 [0x05]: C0x0035.0x1.0
0x11cf34…11d0c8 [0x06]: C0x003b.0x1.0
0x11cf34…11d0c8 [0x07]: C0x0043.0x2.0
0x11cf34…11d0c8 [0x08]: C0x0043.0x3.0
0x11cf34…11d0c8 [0x09]: C0x0048.0x0.0
0x11cf34…11d0c8 [0x0a]: C0x004a.0x0.0
0x11cf34…11d0c8 [0x0b]: C0x0052.0x3.0
0x11cf34…11d0c8 [0x0c]: C0x0054.0x0.0
0x11cf34…11d0c8 [0x0d]: C0x0054.0x1.0
0x11cf34…11d0c8 [0x0e]: C0x0064.0x0.0
0x11cf34…11d0c8 [0x0f]: C0x0064.0x1.0
0x11cf34…11d0c8 ]
0x11cf34…11d0c8 }
0x11d0c8…11d25c Dummy {f00=0x001e, f01=0x0190, f02=» 2 P IDENT DRDY02 REL 11.0 81-09-30 870105041100 P : 6 P =9 ERR. FOR 6342/51 AND EMPTY BLOCK IN ORD. /05 B : P CHAR. CHECK AT FAST OUTPUT. ULINE&LOWINT ON 6387 | P REL 11.0 81-09-17 2 P = 8 ERROR FOR 6342 & 6351 IN ORDER 0B & 31
0x11d25c…11d3f0 Dummy {f00=0x001e, f01=0x0190, f02=»G BLANKS" REMOVED FROM BASIC WRITE r P REL 11.0 81-06-24 * . P = 5 SUPPRESSION OF TABULATION CORRECTED F P REL 11.0 81-05-24 x 8 P = 4 GREEK CHARACTER SET HANDLING & NEW CONDITIONS P REL 11.0 81-04-06 8 P = 3 ASS. ERROR IF FAST0=1
0x11d3f0…11d584 Dummy {f00=0x001e, f01=0x0190, f02=» | 0 P = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE P REL 11.0 81-02-03 < P* X @ P************************************************************ b P* P* P* & P* PHILIPS TERMINAL SYSTEM P T S & P* DRDY02 = DRIVER VIDEO
0x11d584…11d718 Dummy {f00=0x001e, f01=0x0190, f02=»VER HANDLES OUTPUT TO THE VIDEO 0 P* DISPLAYS PTS 6342, 6344, 6346 AND TO THE ( * P* DISPLAYS PTS 6351, 6385 AND 6386. 2 P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO- 0 P* FUNCTIONS WHICH MAKES IT POSSIBLE TO USE 2 P* THE DISPLAY AS A
0x11d718…11d8ac Dummy {f00=0x001e, f01=0x0190, f02=»R 00 TEST STATUS P* 05 BASIC WRITE " P* 06 STANDARD WRITE @ ( P* 0B SET CURSOR AND WRITE f P* 31 ERASE P* P* P* NORMAL REGISTER USAGE : P* $ P* REGISTER A1 = R
0x11d8ac…11da40 Dummy {f00=0x001e, f01=0x0190, f02=»EGISTER r $ P* A5 = STACK BASE $ P* A6 = DWT-ADDRESS 8 P* A7 = ORDER ` $ P* A8 = ECB-ADDRESS P* P* P* ENTRIES P* P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOC
0x11da40…11dbd4 (1, 361) Dummy {f00=0x001f, f01=0x0190, f02=»ROR t " P EXTRN LENDIS END I/O-REQUEST P EXTRN STABLK START OF BLOCK 2 P EXTRN OUTPUT SEND V P EXTRN ENDBLK END OF BLOCK p 2 P EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER $ P EXTRN ECHRTN RETURN TO KEYBOARD P EXTRN TENDIO END OF I/O
0x11dbd4…11dd68 Dummy {f00=0x001f, f01=0x018e, f02=» EXTRN DWTOR ORDER P EXTRN DWTSB2 STACK BASE P* : P* ECB DISPLACEMENTS D P* b P EXTRN ECBBA BUFFER ADDRESS l " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBRC RETURN CODE P EXTRN ECBCW
0x11dd68…11defc Dummy {f00=0x001f, f01=0x0190, f02=» @ P************************************************************ P* L P* DWT DISPLACEMENTS V P* t & PDWTAP EQU /2 HEAD POSITION POINTER ~ " PDWTBC EQU /1 POSITION COUNTER PDWTLIN EQU /4 LINES PDWTPOS EQU /5 POSITIONS &
0x11defc…11e090 Dummy {f00=0x001f, f01=0x0190, f02=» NON-DESTRUCTIVE BACKSPACE PLF EQU /0A LINE FEED " PHOME EQU /0B CURSOR HOME > ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME ^ PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTOP EQU /13 U
0x11e090…11e224 Dummy {f00=0x001f, f01=0x0190, f02=»OP EQU /1F LOW INTENSITY STOP PSPACE EQU /20 SPACE & P* B P* RETURN CODES L P* d " PCCERR EQU /4 CODE CHECK ERROR n P* P* OTHER P* PMINBLK EQU 6 BLOCK SIZE @ PFASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WIT
0x11e224…11e3b8 Dummy {f00=0x001f, f01=0x0190, f02=»* @ P************************************************************ P DATA DVBLEN BUFFER LENGTH N P DATA 2 DEVICE INDEX p PDYAD EQU * ( P DATA ACDY DRIVER ACTIVATION ADDRESS P DATA ABDY ABORT ROUTINE P DATA 0 NO INTERRUPT HANDLER
0x11e3b8…11e54c Dummy {f00=0x001f, f01=0x0190, f02=»********** ^ P* P* CONDITIONAL ASSEMBLY P* < @ P************************************************************ F P* 4 P* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT < P* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR")
0x11e54c…11e6e0 Dummy {f00=0x001f, f01=0x0190, f02=»* P* H P* BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344 P* 6346, 6385 AND 6386. ` P* PX:B EQU 0 PWHATDY EQU 0 P* P* 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR & P* (CO
0x11e6e0…11e874 (1, 362) Dummy {f00=0x0020, f01=0x0190, f02=»POSSIBLE d 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 L P* PX:D EQU 0 PEORECH EQU 0 P* 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS T P* POSSIBLE TO SU
0x11e874…11ea08 Dummy {f00=0x0020, f01=0x0190, f02=»ETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKING. . P* N PX:F EQU 1 X PSTEADY EQU 1 j P* ~ 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- . P* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT , P* CHARACTER SETS, IF
0x11ea08…11eb9c Dummy {f00=0x0020, f01=0x0190, f02=»I/CH P* 5 S/SF P* 6 DK/N P* 7 P , P* 8 YU : P* 9 US H PX:G EQU 0 V PCOUNTRY EQU 6 h P* ~ & P* MEMORY MANAGEMENT BUFFER SIZE P* PX:H EQU 82 PDVBLEN EQU 128 P* P* MAXIMUM BLOCK SIZE
0x11eb9c…11ed30 Dummy {f00=0x0020, f01=0x0190, f02=»4 J P* PX:I EQU 0 PPLASM EQU 0 & P* : 2 P* IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4 D P* CHARACTER SET =4 z P* PX:K EQU 0 =4 PGREECE EQU X:K =4 P* 4 P* IF DISPLAY VD 87 IS USED, X:L SHOULD BE
0x11ed30…11eec4 Dummy {f00=0x0020, f01=0x0190, f02=»*********** f P* & P* A C T I V A T I O N P A R T P* H 4 P* THIS PART MAKES A START OF BLOCK, CHECKS THE R 8 P* REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE P* PART OF THE DRIVER. P* < P************************
0x11eec4…11f058 Dummy {f00=0x0020, f01=0x0190, f02=»CTER COUNTER p $ P LDKL A2,MAXBLK MAX. BLOCK SIZE P CF A5,STABLK START OF BLOCK < P RF(NZ) DYER10 ` P* v P* TEST ORDER P* P LDR A7,A7 GET ORDER & P RF(Z) DY100 ORDER 00, TEST STATUS P* P SUK A7,/5 & P RF(Z)
0x11f058…11f1ec Dummy {f00=0x0020, f01=0x018e, f02=» ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE P* 4 P SUK A7,/26 > " P ABL(Z) DY700 ORDER 31, ERASE R P IFT VD87=1 =7 x P ADK A7,/A 0 P ABL(Z) ORD27 ORDER /27, TRANSFER PARAMETERS P XIF P* P* I/O-REQUEST ERROR
0x11f1ec…11f380 Dummy {f00=0x0020, f01=0x0190, f02=» @ P************************************************************ P* H P* ORDER 00, TEST STATUS. R 8 P* THIS PART SENDS A DUMMY CHARACTER TO THE DISPLAY t : P* AND SETS BIT 15 IN THE RETURN CODE IF THE DISPLAY P* IS NOT OPERABLE. :
0x11f380…11f514 (1, 363) Dummy {f00=0x0021, f01=0x0190, f02=»T. P* @ P************************************************************ P* X PDY100 EQU * b P LDK A2,DUMMY v P CF A5,OUTPUT SEND DUMMY P RF(NZ) DYER10 P* . P LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION 0 P ST A4,ECB
0x11f514…11f6a8 Dummy {f00=0x0021, f01=0x0190, f02=»****************** f P* P* ORDER 05, BASIC WRITE. $ 0 P* THIS ORDER SENDS THE REQUESTED NUMBER OF F . P* CHARACTERS TO THE DISPLAY AND SETS THE z 0 P* INTERNAL CURSOR POSITION COUNTER TO HOME P* POSITION. (/0101) P* @ P
0x11f6a8…11f83c Dummy {f00=0x0021, f01=0x0190, f02=»B-BUFFER j 0 P LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? P RF(NP) DY210 NO D P IFT GREECE=1 =4 P CF A15,GRCHAR =4 v P XIF P* & P CF A5,OUTPUT YES ! SEND CHARACTER P RF(NZ) DYER05 P* * P CF A15,POSUPD UPDATE PO
0x11f83c…11f9d0 Dummy {f00=0x0021, f01=0x0190, f02=»TBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER " P LDKL A2,MAXBLK GET BLOCKSIZE 2 * P CW A2,DWTBLC+DWTDEV,A6 BLOCK FILLED ? X P* $ P RB(G) DY200 NO ! NEXT CHARACTER P* $ P CF A15,GETCHR MORE TO SEND ? =9 P LDR A1,A1 =9 P RF(NP)
0x11f9d0…11fb64 Dummy {f00=0x0021, f01=0x0190, f02=»L A2,MAXBLK GET BLOCKSIZE " P CF A5,STABLK START NEW BLOCK " P RF(NZ) DYER05 H 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER ^ P RB DY200 NEXT CHARACTER P* PDY210 EQU * * P CF A15,UPDAPP RESET POSITION COUNTER P* , P
0x11fb64…11fcf8 Dummy {f00=0x0021, f01=0x0190, f02=»CTERS-IN-BLOCK COUNTER p P* P ABL DY493 END REQUEST ( P* F PDYER05 EQU * P B P CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER BEFORE d ( P RF DYER10 ERROR ROUTINE IS ENTERED P EJECT P* @ P**************************
0x11fcf8…11fe8c Dummy {f00=0x0021, f01=0x0190, f02=»S ZERO. b > P* IF IT IS, CARRIAGE RETURN AND LINE FEED ARE SENT, AND " P* THE REQUEST IS COMPLETED. R F P* ELSE THIS PART LOOKS FOR A CONTROL CHARACTER IN THE FIRST WORD x @ P* IN THE ECB-BUFFER AND CARRIES OUT THE DESIRED FUNCTION. < P*
0x11fe8c…120020 Dummy {f00=0x0021, f01=0x0190, f02=»R ( /07, /11, /12, /13, /14, /1E, /1F, /AE ) IS RECOGNIZED. B P* IF A SPECIAL CHARACTER IS FOUND, THE APPROPRIATE FUNCTION D 6 P* IS CARRIED OUT BEFORE NEXT CHARACTER IS SENT. < P* WHEN ALL CHARACTERS ARE SENT, THE CURSOR POSITION IS * P*
0x120020…1201b4 (1, 364) Dummy {f00=0x002c, f01=0x0190, f02=»EQU * P* P* TEST REQUESTED LENGTH P* : 6 P LD A2,ECBRL,A8 GET REQUESTED LENGTH. IS IT ZERO ? D P RF(Z) DY307 YES ! ~ P* P* TEST CONTROL CHARACTER P* PDY305 EQU * & P LD A2,ECBBA,A8 GET BUFFER ADDRESS
0x1201b4…120348 Dummy {f00=0x002c, f01=0x0190, f02=» RF(Z) DY335 NO MOVING OF CURSOR PDY307 EQU * ( P* < 0 P LDK A4,1 FIRST POSITION AND ONE LINE FEED. F 8 P SC A4,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER z P* P SUK A2,/5 TWO LINE FEED ? P RF(NZ) DY310 NO ! * P LDK A4,2 YE
0x120348…1204dc Dummy {f00=0x002c, f01=0x0190, f02=»SE b P* P LDK A2,CR CARRIAGE RETURN P* 6 PDY320 EQU * @ P CF A5,OUTPUT SEND T PDYER10 RF(NZ) DYER15 n P* P SUK A4,1 READY ? 0 P RF(N) DY335 YES ! START WRITING ON DISPLAY P* < P LC A1,DWTLIN+DWTDEV,A6 MAX.
0x1204dc…120670 Dummy {f00=0x002c, f01=0x0190, f02=»,/100 NO ! INCREMENT LINE COUNTER P ADS A2,DWTAP+DWTDEV,A6 ! * PDY325 EQU * ! J " P LDK A2,LF LINE FEED CHARACTER ! ^ " P RB DY320 SEND NEXT LINE FEED ! P* ! PDY330 EQU * ! . P SC A4,DWTAP+DWTDEV,A6 RESET LINE COUNTER ! ( P LDK A2,CLEHOM
0x120670…120804 Dummy {f00=0x002c, f01=0x0190, f02=» 8 P* WRITING PART, ORDER 06 (ALSO USED BY ORDER 0B). " P* " @ P* " J PDY335 EQU * " T P IFT TRASPA=1 " h * P CF A15,TRASP SUPPRESS TRAILING SPACES " ~ P XIF " PDY340 EQU * " 0 P CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER " P* " &
0x120804…120998 Dummy {f00=0x002c, f01=0x018e, f02=»* " P LDR A4,A2 CHECK CODE LIMITS # P SUK A4,/20 # . * P RF(N) DY380 TEST IF SPECIAL CHARACTER # B P SUK A4,/5F # p * P RF(P) DY380 TEST IF SPECIAL CHARACTER # P IFT FASTO=1 # P IFT WHATDY=1 # 6 P LDK A4,0 RESET A4 BEFORE ENTERING THE OUTPU
0x120998…120b2c Dummy {f00=0x002c, f01=0x0190, f02=» # P* $ P* $ 2 P* FAST OUTPUT SHOULD BE USED IF A NUMBER OF $ $ P* CHARACTERS ARE FOUND EQUAL. $ R P* $ z P* $ & P LD A1,ECBBA,A8 GET BUFFER ADDRESS $ P ADR A1,A3 ADD BUFFER INDEX $ P* $ P* $ 4 P LC A4,DWTBC+DWTDEV,A6 G
0x120b2c…120cc0 Dummy {f00=0x002c, f01=0x0190, f02=»ACTER COUNTER $ x 6 P CCR A2,A1 NEXT CHAR. IN BUFFER EQUAL TO CURRENT ? % P RF(NE) FAST40 NO ! % P P* % l , P CC A4,DWTPOS+DWTDEV,A6 MAX. POSITIONS ? % v P RF(NL) FAST40 YES ! % P* % & P CW A3,ECBRL,A8 REQUESTED LENGTH ? % P RF(NL) FAST40 YES
0x120cc0…120e54 (1, 365) Dummy {f00=0x0035, f01=0x018e, f02=» % : P LD A1,DWTAP+DWTDEV,A6 GET NUMBER OF EQUAL CHARACTERS & P AD A1,DWTBC+DWTDEV,A6 & F P ANK A1,/FF & d P SUR A4,A1 & x P* & 6 P CWK A4,FASTNR COND. FOR FAST OUTPUT FULLFILLED ? & P RF(L) FAST80 NO ! & P* & . P* YES ! SEND CHARACT
0x120e54…120fe8 Dummy {f00=0x0035, f01=0x0190, f02=» & p P ADR A4,A3 ' P* ' P IFT LOWCHA=0 ' $ P LDR A3,A2 ' : P SUK A3,/5F ' L P RF(NP) FAST30 ' ` P SUK A2,/20 ' v PFAST30 EQU * ' P XIF ' P IFT FASTO=1 ' $ P LDR A3,A2 PUT CHARACTER INTO A3 ' P* ' P CF A5,FASTER ' P*
0x120fe8…12117c Dummy {f00=0x0035, f01=0x0190, f02=»/FF ' P AD A4,DWTAP+DWTDEV,A6 ( P* ( * P CF A5,CURPOS SET CURSOR ( 4 P RB DY340 NEXT CHARACTER ( T PFAST80 EQU * ( t P XIF ( P* ( $ P IFT LOWCHA=0 LOWER CASE IS USED ( P LDR A1,A2 ( P SUK A1,/5F ( P RF(NP) DY360 ( P SUK A
0x12117c…121310 Dummy {f00=0x0035, f01=0x018e, f02=»A15,POSUPD POSITION COUNTER UPDATE ( P IFT FASTO=1 ) * P IFT WHATDY=1 ) > * P LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? ) T P ANKL A1,/1000 ) P RF(NZ) FAST90 NO ! ) P XIF ) P IFT FASTO=1 ) * P SUK A4,1 DECREMENT CHARACTER COUNTER ) 2 P RB(NP
0x121310…1214a4 Dummy {f00=0x0035, f01=0x0190, f02=» P ANK A2,/7F MASK CHARACTER * P RB FAST80 * & PFAST90 EQU * * 8 P XIF * L P RB DY340 NEXT CHARACTER * X P* * x " P* TEST IF SPECIAL CHARACTER * P* * PDY380 EQU * * P LDK A4,0 RESET A4 * P LDR A1,A2 CHARACTER * P* * P S
0x1214a4…121638 Dummy {f00=0x0035, f01=0x0190, f02=»O TO TABULATION ROUTINE * z P* + $ P SUK A1,/3 FAST OUTPUT ( /14 ) ? + * * P RF(Z) DY390 YES ! GO TO THAT ROUTINE + R P* + P SUK A1,/9A POINT ( /AE ) ? + $ P RF(Z) DY410 YES ! LOAD AND SEND + P IFF WHATDY+PLASM=0 =4 + 0 P LD A4,DWTDEV,A6 C
0x121638…1217cc Dummy {f00=0x0035, f01=0x018e, f02=»2 EQU * =9 + P XIF , P* , * P ADK A1,/9C UNDERLINE START ( /12 ) ? , * P RF(Z) DY467 YES ! , X P* , r ( P SUK A1,/1 UNDERLINE STOP ( /13 ) ? , | P RF(Z) DY467 YES ! , P* , , P SUK A1,/B LOW INTENSITY START ( /1E) ? , P RF(Z) DY467
0x1217cc…121960 Dummy {f00=0x0035, f01=0x0190, f02=» P* - PDY385 EQU * - " P LDK A1,CCERR CODE CHECK ERROR - " , P ORS A1,ECBRC,A8 SET RETURN CODE OF ECB - H P RB DY340 NEXT CHARACTER - x P EJECT - P* - P* ROUTINE FOR FAST OUTPUT - P* - PDY390 EQU * - P IFT TRASPA=1 - * P
0x121960…121af4 (1, 366) Dummy {f00=0x003b, f01=0x0190, f02=» LD A4,ECBRL,A8 REQUESTED LENGTH - 0 P SUR A4,A3 GET NUMBER OF CHARACTERS TO SEND . ( P RF(NP) DY400 NONE ! . P IFT GREECE=1 =4 . x P CF A15,GRCHAR =4 . P XIF . P* . $ P LDR A3,A2 LOAD CHARACTER IN A3 . P SUK A2,/20 IS CHAR. OK ? =9 .
0x121af4…121c88 Dummy {f00=0x003b, f01=0x0190, f02=» P* / PDY400 EQU * / 6 P LD A3,ECBRL,A8 GET REQ. LEN. TO STORE IN EFF. LEN / " P* / $ PDY405 RF DY470 GO TO COMMON END / f P* / P* SEND A POINT / P* / PDY410 EQU * / " P LDK A2,/2E GET CODE FOR POINT / P RB DY370 SEND POINT
0x121c88…121e1c Dummy {f00=0x003b, f01=0x018e, f02=»TER ! / z P EJECT 0 @ P************************************************************ 0 P* 0 ` P* TABULATION 0 j P* 0 @ P************************************************************ 0 PADY140 EQU * 0 , P CF A15,GETCHR GET FIRST ASCII CHARA
0x121e1c…121fb0 Dummy {f00=0x003b, f01=0x018e, f02=» 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL 1 P SUK A4,1 1 8 P RB(NE) ADY143 1 J " PADY144 LC A4,DWTAP+DWTDEV+1,A6 1 ` . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER 1 P LC A4,DWTBC+DWTDEV,A6 1 , P SUR A2,A4 AND REQUESTS POSITION COUNTER 1 & P
0x121fb0…122144 Dummy {f00=0x003b, f01=0x018e, f02=» P CF A5,OUTPUT 2 P RF(NZ) DYER20 2 , P CF A15,POSUPD POSITION COUNTER UPDATING 2 0 P SUK A4,1 READY ? 2 ` P RB(NE) ADY145 NO 2 z P ABL DY340 NEXT CHARACTER 2 P EJECT 2 B P************************************************************** 2
0x122144…1222d8 Dummy {f00=0x003b, f01=0x0190, f02=» B P************************************************************* 3 P* 3 J PDY470 EQU * 3 T " P LDK A2,ULSTOP UNDERLINE STOP 3 h P CF A5,OUTPUT SEND 3 PDYER20 RF(NZ) DYER30 3 P* 3 & P LDK A2,LISTOP LOW INTENSITY STOP 3 P CF A5,OUTPUT SE
0x1222d8…12246c Dummy {f00=0x003b, f01=0x0190, f02=»1 3 P LD A2,ECBCW,A8 4 0 P ST A2,ECBRL,A8 RESTORE OLD REQUESTED LENGTH 4 " P XIF 4 V , P ST A3,ECBEL,A8 STORE EFF. LENGTH IN ECB 4 b 4 P LD A2,DWTAP+DWTDEV,A6 SET HEAD POSITION POINTER 4 * P ST A2,ECBCW,A8 IN CONTROL WORD OF ECB 4 PENDIO EQU * 4
0x12246c…122600 Dummy {f00=0x003b, f01=0x0190, f02=»************************** 4 n P* 5 " ( P* ORDER 0B, SET CURSOR AND WRITE. 5 , 8 P* THIS ORDER SETS CURSOR TO THE POSITION GIVEN IN 5 X 8 P* THE CONTROL WORD OF ECB AND SENDS THE CHARACTERS 5 : P* TO THE DISPLAY, CHECKING THE SAME SPECIAL CHARAC- 5
0x122600…122794 (1, 367) Dummy {f00=0x0043, f01=0x0190, f02=» 5 P IFT WHATDY=1 6 0 P LD A4,DWTDEV,A6 6344, 6346, 6385 OR 6386 ? 6 P ANKL A4,/1000 6 R P RF(Z) DY610 YES ! 6 h P* GET LINE 6 P LDK A4,0 =8 6 & P LC A4,ECBCW,A8 GET REQUESTED LINE 6 , P CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? 6 P
0x122794…122928 Dummy {f00=0x0043, f01=0x0190, f02=»CTUAL LINE 6 t PADY210 CWR A4,A3 7 . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL 7 * P RF(E) ADY300 SAME LINE 7 P LDK A2,LF LINE FEED 7 | * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 7 PADY230 CF A5,OUTPUT SEND 7 P RF(NZ) DYER30 7 P LDR A4,A4 R
0x122928…122abc Dummy {f00=0x0043, f01=0x0190, f02=»1 RESET ACTUAL LINE NUMBER 7 * P ST A3,DWTAP+DWTDEV,A6 RESET POSITION 8 " P RB ADY230 8 P P* 8 b P* 8 l P* GET POSITION 8 v P* 8 : PADY300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER 8 , P LC A4,ECBCW+1,A8 GET REQUESTED POSITION 8 , P
0x122abc…122c50 Dummy {f00=0x0043, f01=0x0190, f02=» P CWK A4,1 FIRST POSITION ? 9 P RF(NE) ADY305 NO 9 & P CWR A4,A3 FIRST LINE ? 9 @ P RF(NE) ADY305 NO 9 ` P LDK A2,HOME CURSOR GO HOME 9 z P RF ADY330 9 * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO 9 P LDK A4,1 9 6 PADY307 LC A3,DWTAP+DWTDE
0x122c50…122de4 Dummy {f00=0x0043, f01=0x0190, f02=»ORWARDS OR BACKWARDS 9 ~ P RF(E) ADY370 POSITION FOUND : P RF(N) ADY340 BACK : @ P LDK A2,CURRIG CURSOR RIGHT : Z & P ADK A3,1 UPDATE POSITION COUNTER : ~ PADY330 CF A5,OUTPUT SEND : P RF(NZ) DYER30 : P RB ADY310 : . PADY340 SUR A3,A4 ACTUAL
0x122de4…122f78 Dummy {f00=0x0043, f01=0x0190, f02=» : v & P LDK A3,1 INDICATE FIRST POSITION ; P RB ADY330 ; 2 " PADY345 LDK A2,BACKSP BACKSPACE ; D P CF A5,OUTPUT SEND ; j P RF(NZ) DYER30 ; P SUK A3,1 LAST BACKSPACE ? ; P RB(NE) ADY345 ; @ PADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD POSITION PO
0x122f78…12310c Dummy {f00=0x0043, f01=0x0190, f02=»V,A6 UPDATE HEAD POSITION COUNTER ; ~ ( P CF A5,CURPOS SET CURSOR ON DISPLAY < * P* < V PDY620 EQU * < ` P LDK A3,2 START BUFFER INDEX < t 2 P ABL DY335 SEND CHARACTERS WITH STANDARD WRITE < P EJECT < @ P********************************************
0x12310c…1232a0 Dummy {f00=0x0043, f01=0x0190, f02=»E) < X P* = @ P************************************************************ = PCURPOS EQU * = X $ P LDK A2,SCADD SET CURSOR ADDRESS = l P CF A5,OUTPUT SEND = P RF(NZ) DYER30 = P* = P LDR A2,A4 GET POSITIONS = 6 P CC A4,DWTPOS+DWTDEV,A6 MO
0x1232a0…123434 (1, 368) Dummy {f00=0x0043, f01=0x0190, f02=» A2,/1F CONVERT = P CF A5,OUTPUT SEND > PDYER30 RF(NZ) DYER32 > 2 P* > N P LDR A2,A4 > X P SRL A2,8 GET LINES > j 2 P CC A2,DWTLIN+DWTDEV,A6 MORE THAN MAX. LINES ? > P RF(NG) CURR20 NO ! > 0 P LC A2,DWTLIN+DWTDEV,A6 YES ! SET MAX LINES >
0x123434…1235c8 Dummy {f00=0x0043, f01=0x0190, f02=»JECT > P IFT VD87=1 =7 ? < P******************************************************** ? $ P* ? d ( P* ORDER /27. TRANSFER PARAMETERS. ? n ( P* THIS ORDER MAKES IT POSSIBLE TO ? , P* CHANGE BACKGROUND COLOUR, CHARACTER ? , P* WIDTH, SCREEN
0x1235c8…12375c Dummy {f00=0x0043, f01=0x0190, f02=»*************************************************** ? P* @ < PORD27 EQU * @ F $ P LD A3,ECBCW,A8 GET CONTROL WORD @ Z & P SLC A3,1 ADJUST CW FOR SUBROUTINE @ $ P CF A15,TSTBIT CHECK BITS IN CW @ P LDR A2,A2 @ & P RF(Z) TEST10 NO CHANGE IN COLOUR
0x12375c…1238f0 Dummy {f00=0x0043, f01=0x0190, f02=» ( P LCK A4,/3000 GET CONTROL CHARACTER A P CF A5,PSEND1 AND SEND IT A 0 P* A R PTEST10 EQU * A $ P CF A15,TSTBIT CHECK BITS IN CW A p P LDR A2,A2 A $ P RF(Z) TEST20 NO CHANGE IN WITDH A P* A P SLC A4,5 CHANGE WIDTH A P CF A15,SETBIT
0x1238f0…123a84 Dummy {f00=0x0043, f01=0x0190, f02=»IS SET TO HOME POS. A z 0 P ST A4,DWTAP+DWTDEV,A6 WHEN WIDTH IS CHANGED B P* B P PTEST20 EQU * B Z P CF A15,TSTBIT CHECK CW B n P LDR A2,A2 B ( P RF(Z) TEST30 NO CHANGE IN INTENSITY B P* B P SLC A4,6 CHANGE INTENSITY B P CF A15,SETBIT B
0x123a84…123c18 Dummy {f00=0x0043, f01=0x018e, f02=»A15,TSTBIT CHECK CW B P LDR A2,A2 C & P RF(Z) TEST40 NO CHANGE OF CURSOR C . P* C X P SLC A4,7 CHANGE CURSOR MODE C b P CF A15,SETBIT C P SRC A2,7 C P ST A2,DWTDEV,A6 C P LCK A4,/1500 C P CF A5,PSEND2 C P* C PTEST40 EQU *
0x123c18…123dac Dummy {f00=0x0043, f01=0x0190, f02=» P* ORDER 31, ERASE. D < P* SENDS THE NUMBER OF SPACES THAT IS GIVEN IN CONTROL D . P* WORD OF ECB. THE CURSOR IS NOT MOVED. D ` P* D @ P************************************************************ D P* D PDY700 EQU * D 6 P LD A4,ECB
0x123dac…123f40 Dummy {f00=0x0043, f01=0x0190, f02=» P RF(Z) DY750 YES ! E P* E , P LD A2,DWTPOS+DWTDEV,A6 MAX. CHARACTERS E ( P ANK A2,/FF E X . P LC A3,DWTAP+DWTDEV+1,A6 CURRENT POSITION E l P ANK A3,/FF E , P SUR A2,A3 NR OF CHARS. TO END OF SCREEN E P LDK A3,0 ADJUST =8 E P ADK A2,1
0x123f40…1240d4 (1, 369) Dummy {f00=0x0048, f01=0x0190, f02=» E PDY710 EQU * F " P ADR A3,A4 CHARACTERS TO ERASE F PDY720 EQU * =8 F B P LDK A2,/20 SPACE F Z , P SUK A4,1 DECREMENT NUMBER OF CHARACTERS F t P RF(N) DY730 ERASE READY F P* F P CF A5,OUTPUT SEND F P RF(NZ) DYER40 F P RB DY720
0x1240d4…124268 Dummy {f00=0x0048, f01=0x0190, f02=»TABLK START OF NEW BLOCK F P RF(NZ) DYER40 G P LDR A4,A3 RESET COUNTER G 6 PDY740 EQU * =8 G V " P LDK A2,BACKSP CURSOR LEFT =8 G n , P SUK A4,1 CURSOR IN ORIGINAL POSITION ? G P ABL(N) ENDIO YES ! G . P CF A5,OUTPUT NO ! SEND ANOTHER BACKSPAC
0x124268…1243fc Dummy {f00=0x0048, f01=0x0190, f02=» OUTPUT G t P ABL ENDIO H P EJECT H " @ P************************************************************ H 0 P* H t . P* ECHODY, DEVICE-DEPENDENT ECHO-ROUTINE H ~ 0 P* THIS ROUTINE CHECKS IF THE ECHO-CHARCTER H . P* IS A BACKSPACE, CLEAR OR EOR-KEY
0x1243fc…124590 Dummy {f00=0x0048, f01=0x018e, f02=»LAY. H | P* I @ P************************************************************ I P* I Z PECHODY EQU * I d P LDR A7,A7 END OF ECHOING ? I x P RF(NN) EDY110 NO ! I P* I P* I 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER I P CF A15,
0x124590…124724 Dummy {f00=0x0048, f01=0x0190, f02=» I PEDY110 EQU * J 0 P LDR A4,A1 SAVE "MORE CHARACTERS" INDICATION J P IFT GREECE=1 =4 J P P CF A15,GRCHAR =4 =4 J j P XIF =4 J P LDR A3,A2 SAVE CHARACTER J P* J P IFT EORECH=0 J P SUK A3,/80 J $ P RF(NN) EDY130 NOT TO BE
0x124724…1248b8 Dummy {f00=0x0048, f01=0x0190, f02=» YES ! IS IT FULL ? J P RF(L) EDY118 NO ! K 6 P CM DWTBLC+DWTDEV,A6 YES ! CLEAR CHARACTER COUNTER K 6 P CF A5,ENDBLK FINISH BLOCK K p PDYER35 RF(NZ) DYER40 K PEDY116 EQU * K P LDK A2,MINBLK K P CF A5,STABLK DECLARE BLOCK K P RF(NZ) DYER
0x1248b8…124a4c Dummy {f00=0x0048, f01=0x0190, f02=»3,/10 BACKSPACE ? K P RF(Z) DY800 YES ! L P* L 4 P* L > & P* SEND CHARACTER TO ECHO-DEVICE L H P* L r * P IM DWTBLC+DWTDEV,A6 INCREMENT COUNTER L | P CF A5,OUTPUT SEND L PDYER40 RF(NZ) DYER45 L , P CF A15,POSUPD POSITION COUNTER UPDATING
0x124a4c…124be0 Dummy {f00=0x0048, f01=0x0190, f02=» RF(NZ) DYER45 L & P CM DWTBLC+DWTDEV,A6 RESET COUNTER M ( PEDY130 ABL ECHRTN RETURN TO KEYBOARD M @ P EJECT M l @ P************************************************************ M z P* M P* BACKSPACE M 6 P* CHECKS CURSOR POSITION, MOVES CURSOR O
0x124be0…124d74 (1, 370) Dummy {f00=0x004a, f01=0x0190, f02=»****************************************** M ~ P* N 2 PDY800 EQU * N < 0 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER N P P ANK A3,/FF N P RB(Z) EDY120 FIRST POSITION N P* N " P CF A5,ENDBLK FINISH OLD BLOCK N P RF(NZ) DYER45 N P LDK A
0x124d74…124f08 Dummy {f00=0x004a, f01=0x0190, f02=»1 INDICATE ONE BACKSTEP N 0 P SC A3,DWTBC+DWTDEV,A6 SET POSITION COUNTER O " P ADK A3,1 GET POSITION ON LINE O T P AD A3,DWTAP+DWTDEV,A6 O z 4 P CC A3,DWTPOS+DWTDEV,A6 LAST POSITION ON LINE ? O P RF(L) DY810 NO ! O P RB(G) DY800 NO, OUTSIDE ! O
0x124f08…12509c Dummy {f00=0x004a, f01=0x0190, f02=» PDY810 EQU * P , P LDK A2,BACKSP NON-DESTRUCTIVE BACKSPACE P P CF A5,OUTPUT SEND P H P RF(NZ) DYER45 P b P* P x P SUK A4,1 SEND AGAIN ? P P RB(NZ) DY805 YES ! P P* NO, BACKSPACE FINISHED P P RB EDY120 P P EJECT P < P**********
0x12509c…125230 Dummy {f00=0x004a, f01=0x0190, f02=» 4 P* REQUEST ENDED AND SENDS SPACES TO ERASE THE Q 2 P* CHARACTERS WRITTEN DURING CURRENT REQUEST. Q < P* Q r @ P************************************************************ Q | P* Q PDY850 EQU * Q " P CF A5,ENDBLK FINISH OLD BLOCK Q P RF(
0x125230…1253c4 Dummy {f00=0x004a, f01=0x018e, f02=»WTDEV,A6 GET POSITION COUNTER Q P ANK A3,/FF R & P RB(Z) EDY120 FIRST POSITION R : P* R ^ P IFT WHATDY=1 R h . P LD A1,DWTDEV,A6 PTS 6344, 6385 OR 6386 ? R ~ P ANKL A1,/1000 R P RF(Z) DY860 YES ! R ( P CF A5,BACCAN ERASE CURRENT REQUEST R
0x1253c4…125558 Dummy {f00=0x004a, f01=0x0190, f02=» R v P* S $ P LDR A4,A3 GET POSITION COUNTER S & P ADK A4,1 UPDATE POSITION COUNTER S : $ P LDK A3,SPACE GET SPACE TO SEND S d ( P CF A5,FASTER SEND WITH FAST OUTPUT S P* S 2 P SC A1,DWTBC+DWTDEV,A6 RESET POSITION COUNTER S P RB EDY120 S
0x125558…1256ec Dummy {f00=0x004a, f01=0x0190, f02=»TINE TO POSITION CURSOR S | 0 P* AT THE PLACE BEFORE REQUEST IF T P* CLEAR. T T P* T p @ P************************************************************ T z PBACCAN EQU * T 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER T P L
0x1256ec…125880 Dummy {f00=0x004a, f01=0x0190, f02=» T ` P ANK A2,/FF U * P CC A2,DWTPOS+DWTDEV,A6 LAST POSITION U P RF(NP) BACA10 NO U J $ P LDK A2,SPACE DESTRUCTIVE SPACE U d P RF BACA20 U PBACA10 EQU * U 4 P IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER U ( P LDKL A2,MAXBLK-3 GET BLOCKSIZ
0x125880…125a14 (1, 371) Dummy {f00=0x0052, f01=0x0190, f02=»OLD BLOCK U x P RF(NZ) DYER50 V P LDKL A2,MAXBLK BLOCK SIZE V ( $ P CF A5,STABLK START A NEW BLOCK V J P RF(NZ) DYER50 V r 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER V PBACA30 EQU * V P LDK A2,BACKSP BACKSPACE V P CF A5,OUTPUT SEND V
0x125a14…125ba8 Dummy {f00=0x0052, f01=0x0190, f02=» V x PBACA20 CF A5,OUTPUT SEND W P RF(NZ) DYER50 W ( P SUK A4,1 W > P RB(NE) BACA10 W P P NGR A3,A3 NEGATE REGISTER W f 4 P ADS A3,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER W P RTN A5 W P XIF W P EJECT W @ P******************************
0x125ba8…125d3c Dummy {f00=0x0052, f01=0x0190, f02=»ARACTERS W h 2 P* A3 = CHARACTER TO SEND X P* X F @ P************************************************************ X P PFASTER EQU * X P IFT WHATDY=1 X P LD A2,DWTDEV,A6 PTS X " P ANKL A2,/1000 6342 OR 6351 ? X P RF(Z) F
0x125d3c…125ed0 Dummy {f00=0x0052, f01=0x0190, f02=»AP+DWTDEV,A6 GET POSITION X P ANK A2,/FF Y " ( P ADR A2,A4 ADD NUMBER OF CHARACTERS Y 6 P* Y b . P LD A1,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS Y l P ANK A1,/FF Y P SUR A1,A2 COMPARE Y P RF(NN) FAS002 LENGTH OK Y P ADR A4,A1 ADJUST LENGTH Y
0x125ed0…126064 Dummy {f00=0x0052, f01=0x018e, f02=» P RF FAS007 =9 Z P* Z PFAS002 EQU * Z $ P* Z 8 & P LDR A2,A4 PUT TWO COUNTERS IN A4 Z B PFAS007 EQU * =9 Z l P SLL A2,8 Z P ORR A4,A2 Z P* Z PFAS004 EQU * Z $ P LDR A2,A3 GET CHARACTER TO SEND Z P CF A5,OUTPUT SEND Z P
0x126064…1261f8 Dummy {f00=0x0052, f01=0x0190, f02=» Z & P CF A5,ENDBLK START A NEW BLOCK TO [ $ P RF(NZ) DYER50 AVOID OVERFLOW IN [ 2 P LDKL A2,MAXBLK THE OLD ONE [ Z P CF A5,STABLK [ ~ P RF(NZ) DYER50 [ P* [ P SRL A4,8 GET LENGTH COUNTER [ * P RF(Z) FAS008 NO BACKSPACE TO SEND =9 [ PFA
0x1261f8…12638c Dummy {f00=0x0052, f01=0x018e, f02=»B(P) FAS003 NEXT [ PFAS008 EQU * =9 P RTN A5 0 PFAS005 EQU * @ P XIF T 6 P CC A4,DWTPOS+DWTDEV,A6 TEST NUMBER OF CHARACTERS ` . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG : P LC A4,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS ON DISPLAY
0x12638c…126520 Dummy {f00=0x0052, f01=0x0190, f02=» z P LDR A2,A4 NO OF CHAR ] P ANK A2,/FF ] & P CF A5,OUTPUT SEND ] : P RF(NZ) DYER50 ] T P LDR A2,A3 ] j P CF A5,OUTPUT SEND ] | P RF(NZ) DYER50 ] P RTN A5 ] P EJECT ] 8 P**************************************************** ] P*
0x126520…1266b4 (1, 372) Dummy {f00=0x0054, f01=0x0190, f02=»************************************** ] PDYER50 EQU * ^ . P LD A7,DWTST,A6 ^ B P SLC A7,2 ECHO ? ^ Z * P ABL(N) ECHRTN YES ! RETURN FROM ECHO ^ r P* ^ " P SRC A1,5 OUTPUT ERROR (HER) ? ^ & P ABL(N) RCDY YES ! GO TO RECOVERY ^ P SLC A1,5 NO !
0x1266b4…126848 Dummy {f00=0x0054, f01=0x0190, f02=»DER 5 ? ^ P RF(Z) DYER52 YES ! _ P SUK A7,/2B ORDER 31 ? _ , P RF(Z) DYER52 YES ! _ J P* _ f P SRC A1,2 LRC-ERROR ? _ p P RF(N) DYER70 YES ! _ P SLC A1,2 _ PDYER52 SRC A1,3 LINK ERROR ? _ P RF(NN) DYER55 NO ! _ 8 P LDKL A1,/20
0x126848…1269dc Dummy {f00=0x0054, f01=0x0190, f02=»-ADDRESS (SYSTEM START) =1 _ | 2 P CM ECBCW,A8 CLEAR INSIGNIFICANT CONTROL WORD ` " PDYER60 EQU * =1 ` X P ABL LENDIS COMPLETE REQUEST ` r P* ` P* LRC-ERROR ` P* ` PDYER70 EQU * ` ( P LDKL A5,DWTSB2 INITIALIZE A5 STACK ` P ADR A5,
0x1269dc…126b70 Dummy {f00=0x0054, f01=0x0190, f02=»V,A6 6344,6385 OR 6386 ? ` P ANKL A4,/1000 a P RF(Z) DYER90 YES ! a 6 6 P LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POS. TO BACK a R P ANK A4,/FF a P RF(Z) DYER80 a . P CF A5,BACCAN SEND BACKSPACES AND RUB OUT a P LDK A3,2 SET BUFFER INDEX a
0x126b70…126d04 Dummy {f00=0x0054, f01=0x0190, f02=»A5,CURPOS SET CURSOR ON DISPLAY a P LDK A3,0 RESET BUFFER INDEX b ( P LD A7,DWTOR,A6 GET ORDER b L P ANK A7,/FF b n P ABL ACDY b P EJECT b @ P************************************************************ b P* b , P* UPDAPP = SUBROUTINE
0x126d04…126e98 Dummy {f00=0x0054, f01=0x0190, f02=»************************************************** b PUPDAPP EQU * c : 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER c N P ANK A2,/FF c 8 P ADS A2,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER c P LDK A2,0 c 2 P SC A2,DWTBC+DWTDEV,A6 RESET POSITI
0x126e98…12702c Dummy {f00=0x0054, f01=0x0190, f02=» TO UPDATE ACTUAL POSITION c x 0 P* COUNTER WHEN REQUEST RUNNING. d " D P* A CHECK THAT POINTER NOT EXCEEDS THE LIMIT IS DONE d V P* d @ P************************************************************ d PPOSUPD EQU * d 0 P LC A2,D
0x12702c…1271c0 Dummy {f00=0x0054, f01=0x0190, f02=»S+DWTDEV,A6 END OF ROW ? d P RF(G) POSU10 e ( P IM DWTBC+DWTDEV,A6 POSITION COUNTER e 6 PPOSU10 RTN A15 e b P IFT GREECE=1 =4 e x P EJECT =4 e : P*************************************************** =4 e P* e : P* GRCHAR = SUBROUTINE TO
0x1271c0…127354 (1, 373) Dummy {f00=0x0054, f01=0x0190, f02=»********************* =4 e r PGRCHAR EQU * = f , P LDR A1,A2 IS IT A GREEK CHARACTER ? =4 f 8 P SUK A1,/B9 =4 f h P RF(P) GRCH10 NO =4 f P ADK A1,9 =4 f P RF(N) GRCH10 NO =4 f P* =4 f 0 P ADKL A1,GRTAB GET THE CORRECT CODE FROM =
0x127354…1274e8 Dummy {f00=0x0054, f01=0x018e, f02=»U * =4 f , P DATA /265B,/5C23,/5D22,/4021,/5E5F =4 g P XIF =4 g @ P IFT TRASPA=1 g R P EJECT g h 6 P************************************************** g v P* g 4 P* TRASP = SUBROUTINE THAT ELIMINATES TRAILING g 4 P* SPACES FRO
0x1274e8…12767c Dummy {f00=0x0054, f01=0x0190, f02=» P* h 6 P************************************************** h P* h H PTRASP EQU * h R , P LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) h f , P LD A2,ECBRL,A8 GET REQUESTED LENGTH(RL) h P ADR A1,A2 GET END OF BUFFER h PSKIP05 CWK A2,2 h P RF(NG
0x12767c…127810 Dummy {f00=0x0054, f01=0x0190, f02=»P07 YES h P ADK A4,1 LOW INT. STOP ? i P RF(Z) SKIP07 YES ! i 2 P ADK A4,1 LOW INT. START ? i N P RF(Z) SKIP07 YES ! i p P CWK A2,4 i " P RF(NG) SKIP30 REQ, LENGTH < 5 i P LC A4,-2,A1 GET CHARACTER i & P SUK A4,/11 TABULATION CHARACTER ?
0x127810…1279a4 Dummy {f00=0x0054, f01=0x0190, f02=» PSKIP30 EQU * j P LD A4,ECBRL,A8 j ( P ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH j 0 P* j P ST A2,ECBRL,A8 STORE NEW RL j f P* j P RTN A15 j P XIF j P IFT VD87=1 =7 j P EJECT j P* j D P****************************************
0x1279a4…127b38 Dummy {f00=0x0054, f01=0x0190, f02=»ROL CHAR. FOR FIRST TYPE j n J P* A4, LEFT BYTE: BIT 0 = 0 FOR FIRST TYPE, 1 = SECOND TYPE k < P* PSEND1 SENDS CHARACTER /1B BEFORE CONTROL CHARACTER k n P* k D P**************************************************************** k P* k
0x127b38…127ccc Dummy {f00=0x0054, f01=0x0190, f02=» * k P LDR A2,A4 FIRST TYPE ? l P RF(NN) PS10 YES ! l * * P ADK A2,1 NO, CHANGE CONTROL CHARACTER l D PPS10 EQU * l r ( P CF A5,OUTPUT SEND CONTROL CHARACTER l P RF(NZ) RCER NOT OK ! l P RTN A5 RETURN l P* l P EJECT l F P************
0x127ccc…127e60 Dummy {f00=0x0054, f01=0x0190, f02=»******************************************************* l P* m @ PTSTBIT EQU * m J P LD A4,DWTDEV,A6 m ^ P SRC A3,2 m v P LDR A2,A3 m P ANKL A2,/8001 m P RTN A15 m P* m F P**************************************************************
0x127e60…127ff4 (1, 374) Dummy {f00=0x0064, f01=0x0190, f02=»ION BIT m P . P* A2=INDICATION BIT IN BIT 15 n @ P* ON EXIT: A2 AND A4=DWTDEV WITH NEW IND. BIT IN BIT ZERO n B P* n F P***************************************************************** n P* n PSETBIT EQU * n P ANK A2,/1 n &
0x127ff4…128188 Dummy {f00=0x0064, f01=0x0190, f02=» LDR A4,A2 n P RTN A15 o P XIF o " P EJECT o . @ P************************************************************ o < P* o P* RCDY = RECOVERY ROUTINE o 6 P* CLEARS DISPLAY AND SETS CURSOR & HEAD POSITION o , P* COUNTER TO HOME POSITION ( /
0x128188…12831c Dummy {f00=0x0064, f01=0x0190, f02=» o " P ANS A2,DWTST,A6 INDICATE BUSY p P* p . $ P LDKL A2,MAXBLK MAX. BLOCK SIZE p 8 P CF A5,STABLK START OF BLOCK p ` PRCER ABL(NZ) DYER50 p P IFT VD87=1 =7 p P* p 2 P* THIS PART IS ONLY USED BY THE VD87 DISPLAY p P* p & P LD A4
0x12831c…1284b0 Dummy {f00=0x0064, f01=0x0190, f02=»0 CONTR. CHAR. FOR BACKGR. COLOUR p " P CF A5,PSEND1 SEND PARAMETERS q * P* q P P SLL A4,1 q Z ( P LCK A4,/3200 CONTR. CHAR. FOR WIDTH q l P CF A5,PSEND1 q P* q P SLL A4,1 q 4 P LCK A4,/3600 CONTR. CHAR. FOR SCREEN INTENSITY q P CF A5
0x1284b0…128644 Dummy {f00=0x0064, f01=0x018e, f02=» q P IFF STEADY+VD87=0 r & P LD A2,DWTDEV,A6 GET DEVICE STATUS r " & P ANKL A2,/2000 PTS 6385 OR 6386 ? r L P RF(Z) RCDY20 NO ! r v ( P LDK A3,/40 SET UP TRANSFER COUNTER r P* r 0 PRCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKING r * P ADK A2,STEADY
0x128644…1287d8 Dummy {f00=0x0064, f01=0x0190, f02=» r j & P RB(P) RCDY10 NOT ENOUGH TRANSFERS s P XIF s 2 P IFF COUNTRY=0 s > * P LDK A2,CTYCOD SEND "SET COUNTRY CODE" s T P CF A5,OUTPUT s P RB(NZ) RCER s P IFT VD87=1 =7 s P* s D P* SEND AN EXTRA CONTROL CHARACTER TO VD87 BEFORE COUNTRY
0x1287d8…12896c Dummy {f00=0x0064, f01=0x0190, f02=»B(NZ) RCER NOT OK ! s PNOT87 EQU * t P XIF t 0 P IFF COUNTRY=0 t < ( P LDK A2,COUNTRY SEND "COUNTRY CODE" t R P ORK A2,/30 MAKE ASCII DIGIT t ~ P CF A5,OUTPUT t P RB(NZ) RCER t P XIF t PRCDY20 EQU * t P* t ( P LDK A2,CLEHOM CLE
0x12896c…128b00 Dummy {f00=0x0064, f01=0x018e, f02=»V,A6 SET HEAD POSITION COUNTER t ~ P LDK A2,0 u & : P SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER u 8 P* u v P ABL ENDIO u P* u , P**************************************** u P* u P* ABORT ROUTINE u P* u , P**************
0x128b00…128c94 (1, 375) Dummy {f00=0x0064, f01=0x4014, f02=» P END v @ v @ X
0x128c94…128e28 Dummy {f00=0x0064, f01=0x2008, f02=» w E & | CF A5,STABLK START OF BLOCK ' * ' 6 ( $ LDK A2,CLEHOM CLEAR AND CURSOR HOME ' @ CF A5,OUTPUT SEND ' l * ' LDKL A2,/0101 HOME POSITION ' 4 0 ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER ' * ' ABL ENDIO '
0x128e28…128fbc Dummy {f00=0x0064, f01=0x0190, f02=»0 UNDEFINED INTERRUPT P IFF RECHAN=0 P CWK A6,1 SYNC ANSWER ? 4 P RF(E) QUEU30 YES T P U =4 n P LDK A1,0 ~ P XIF U =4 P ABL RTNA15 P IFF RECHAN=0 U =4 PQUEU10 LDR A1,A1 READY ? P RB(E) QUEU05 P L
0x128fbc…129150 Dummy {f00=0x0064, f01=0x0190, f02=» RB QUEU03 P XIF PQUEU30 ADKL A15,4 P RF LTDISP 8 P IFF RECHAN=0 J P EJECT ` P* n P* x 0 P* RESTSY = SUBROUTINE TO START OR RESTART * P* A TIMER FOR SYNC-SENDING P* PRESTSY EQU * P STR A
0x129150…1292e4 Dummy {f00=0x0064, f01=0x0190, f02=»DR A4,A5 ADD CWT-ADDRESS P CF A15,SETIMP SET TIMER P DATA SYNCUT,TIME @ P RF RESY30 Z PRESY20 LDKL A4,-TIME l " P ST* A4,CWTTP,A5 RESTART TIME PRESY30 LDR* A4,A15 RELOAD A4 P ADKL A15,2 P LDR* P,A15 P EJECT P
0x1292e4…129478 Dummy {f00=0x0064, f01=0x018e, f02=»R IS SENT. ~ P* PSYNCUT EQU * $ P CM CWTTP,A1 RESET TIMER POINTER 0 P LDR A5,A1 X ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER j ( P XRKL A2,/800 CHANGE TERMINAL NUMBER P ST A2,CWSYNC,A1 STORE P LDK A6,1 PSYNC02 EX CWTOTR,A1 OU
0x129478…12960c Dummy {f00=0x0064, f01=0x018e, f02=» , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT P* 8 P IFT LOGING=1 B P* X * P CF A15,LOGG LOGG OF OUTPUT CHARACTER b P XIF P* P IFF RECHAN=0 P LDR A3,A2 P SLL A3,4 P RF(NN) SYNC05 P ADK A5,2 P
0x12960c…1297a0 Dummy {f00=0x0064, f01=0x0190, f02=» P ANK A4,/80 P RF(E) EXITA NO P ANK A3,/60 4 P RF(E) SYNC20 THIRD SYNC H P SUK A3,/20 h P RF(NE) SYNC10 FIRST SYNC | P LDK A3,/20 SECOND SYNC * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNTER PEXITA ABL TDISP DISPATCH
0x1297a0…129934 (1, 376) Opaque[0x194]
0x129934…129ac8 # DirEnt {nam=»DRSU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0340, f03=0x0000}
0x129934…129ac8 IdxSect {
0x129934…129ac8 f00 = 0x001a // 0x129934 @0x0
0x129934…129ac8 f01 = 0x002c // 0x129936 @0x2
0x129934…129ac8 gno = [ // 0x129938 @0x4
0x129934…129ac8 [0x00]: C0x001a.0x0.0
0x129934…129ac8 [0x01]: C0x001a.0x1.0
0x129934…129ac8 [0x02]: C0x001a.0x2.0
0x129934…129ac8 [0x03]: C0x0024.0x1.0
0x129934…129ac8 [0x04]: C0x0024.0x3.0
0x129934…129ac8 [0x05]: C0x0025.0x0.0
0x129934…129ac8 [0x06]: C0x0025.0x2.0
0x129934…129ac8 [0x07]: C0x0026.0x2.0
0x129934…129ac8 [0x08]: C0x0026.0x3.0
0x129934…129ac8 [0x09]: C0x0027.0x0.0
0x129934…129ac8 [0x0a]: C0x0038.0x1.0
0x129934…129ac8 [0x0b]: C0x004a.0x1.0
0x129934…129ac8 [0x0c]: C0x004a.0x2.0
0x129934…129ac8 [0x0d]: C0x004b.0x1.0
0x129934…129ac8 [0x0e]: C0x004b.0x3.0
0x129934…129ac8 [0x0f]: C0x004c.0x1.0
0x129934…129ac8 [0x10]: C0x0064.0x2.0
0x129934…129ac8 [0x11]: C0x0065.0x0.0
0x129934…129ac8 [0x12]: C0x0065.0x2.0
0x129934…129ac8 [0x13]: C0x0065.0x3.0
0x129934…129ac8 [0x14]: C0x0068.0x0.0
0x129934…129ac8 [0x15]: C0x0068.0x1.0
0x129934…129ac8 ]
0x129934…129ac8 }
0x129ac8…129c5c Dummy {f00=0x001a, f01=0x0190, f02=» 2 P IDENT DRSU01 REL 11.0 81-08-31 870105041100 P : 0 P =5, SEND ETX AFTER ETB TO REM. DR-DEVICE B P REL 11.0 81-05-25 v , P =4, LOOPT & POW-ON CORR;NEW COND ASS P REL 11.0 81-02-17 & P =3, HANG UP ON REMOTE RECOVERY P
0x129c5c…129df0 Dummy {f00=0x001a, f01=0x0190, f02=» P PRR 11.0 80-12-02 P* 4 P************************************************ * P* b $ P* PHILIPS TERMINAL SYSTEM PTS l P* . P* DRSU01 = DRIVER CHANNEL UNIT FOR LOCAL & P* AND REMOTE TERMINALS " P* C
0x129df0…129f84 Dummy {f00=0x001a, f01=0x018e, f02=»IS IS THE DRIVER TO CHANNEL UNITS FOR LOCAL AND REMOTE TERMINALS * P* CONNECTED TO SELECTOR UNIT (SUM). H P* v : P* THE DRIVER IS CALLED FROM TERMINAL DEVICE DRIVERS. P* : P* THE DRIVER HAS SEPARATED ENTRIES FOR LOCAL AND FOR P*
0x129f84…12a118 Dummy {f00=0x001a, f01=0x0190, f02=» P* : P* AT INTERRUPT AN INPUT WORD IS READ TO REGISTER A2. B P* THE WORD IS EXAMINED AND SUITABLE ACTIONS ARE CARRIED OUT. L P* 0 P* CONTROL WORK TABLES FOR THE CHANNELS ARE P* INCLUDED IN THE DRIVER. P EJECT P*
0x12a118…12a2ac Dummy {f00=0x001a, f01=0x018e, f02=» P* A3 = LINE NUMBER * 2 P* A4 = DEVICE NUMBER * 2 $ P* A5 = CWT-ADDRESS F P* A6 = DWT-ADDRESS b & P* A7 = LOCAL/REMOTE INDICATION: ~ & P* 0 IF LOCAL CONNECTION : P* ADJUSTED CWT-ADDRESS IF REMOTE CONNECTION
0x12a2ac…12a440 Dummy {f00=0x001a, f01=0x018e, f02=» P*************** P* P* & 8 P ENTRY CHLT1 INTERRUPT FROM FIRST CHANNEL UNIT LOCAL 0 : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL l 4 P ENTRY CHLT3 INTERRUPT FROM THIRD CHANNEL LOCAL 4 P ENTRY CHLT4 INTERRUPT FROM FOURTH CHA
0x12a440…12a5d4 (1, 377) Dummy {f00=0x001a, f01=0x0190, f02=» X 4 P ENTRY CHRT3 INTERRUPT FROM THIRD CHANNEL REMOTE 6 P ENTRY CHRT4 INTERRUPT FROM FOURTH CHANNEL REMOTE @ ( P ENTRY CHLTON START OF CHLT AND CHRT z P ENTRY CHTAB CHANNEL TABLE @ P ENTRY DWREMU DWT-DUMMY FOR LOOP-TESTING OF REMOTE CHANNELS
0x12a5d4…12a768 Dummy {f00=0x001a, f01=0x0190, f02=»E CODE t 6 P ENTRY SUMLOG LOGG AREA FOR LOCAL AND REMOTE TERM. P* H * P ENTRY LTCHRI CHARACTER INPUT (LOCAL) R 0 P ENTRY LTSTBL START OF OUTPUT BLOCK (LOCAL) * P ENTRY LTCHRO CHARACTER OUTPUT (LOCAL) . P ENTRY LTENBL END OF OUTPUT BLOCK (LOC
0x12a768…12a8fc Dummy {f00=0x001a, f01=0x0190, f02=» OUTPUT BLOCK (REM0TE) z , P ENTRY RTCHRO CHARACTER OUTPUT (REMOTE) . P ENTRY RTENBL END OF OUTPUT BLOCK (REMOTE) N , P ENTRY RTDISP LOCAL DISPATCHER (REMOTE) P* P EJECT P* P* * P************************************** *
0x12a8fc…12aa90 Dummy {f00=0x001a, f01=0x0190, f02=»STERS A1-A8 z P EXTRN TDISP DISPATCHER P EXTRN SETIMP SET TIME 4 P* R 6 P EXTRN INTLT1 INTERRUPT TABLE FOR LOCAL CHANNEL 1 6 P EXTRN INTLT2 INTERRUPT TABLE FOR LOCAL CHANNEL 2 6 P EXTRN INTLT3 INTERRUPT TABLE FOR LOCAL CHANNEL 3 6
0x12aa90…12ac24 Dummy {f00=0x001a, f01=0x0190, f02=»RRUPT TABLE FOR REMOTE CHANNEL 2 ~ 6 P EXTRN INTRT3 INTERRUPT TABLE FOR REMOTE CHANNEL 3 ( 6 P EXTRN INTRT4 INTERRUPT TABLE FOR REMOTE CHANNEL 4 b P* $ P EXTRN LENDER I/O REQUEST ERROR & P EXTRN LENDIS END I/O AND DISPATCH * P EXTRN INTSAV SA
0x12ac24…12adb8 Dummy {f00=0x001a, f01=0x0190, f02=» EXTRN NDGET8 GET A3-A5, A7-A8 IN DWT * P EXTRN NDREDW CALL RECOVERY FOR DEVICE . 2 P EXTRN NDRETO SET OK & RETURN TO DEVICE DRIVER 6 P EXTRN NDREP GET REGISTERS & RETURN TO DEV. DRIVER P* P EJECT P* P* P****************
0x12adb8…12af4c Dummy {f00=0x001a, f01=0x0190, f02=»UTPUT CHARACTER | P EXTRN DWTECB ECB-ADDRESS * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK : P EXTRN DWTST STATUS h P EXTRN DWTOTQ OUTPUT QUEUE & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN DWTLD1 TIMER POINTER & P EXTRN DWTCP2 CHANNE
0x12af4c…12b0e0 Dummy {f00=0x001a, f01=0x0190, f02=»VERY ADDRESS DISPLACEMENT ~ P* " P EJECT , P* : P* D P******************** N P* CONSTANTS * j P******************** P* P* ( PNOERR EQU 1 RETURN CODE NOT OPERABLE ( PLRCERR EQU /02 RETURN CODE LRC-ERROR
0x12b0e0…12b274 (1, 378) Dummy {f00=0x001a, f01=0x0190, f02=»E r 4 PDEWDRQ EQU /80 MASK DEVICE WITHOUT DATA REQUEST $ PDEVINP EQU /40 MASK INPUT DEVICE B , PINDARQ EQU /20 MASK INPUT DATA REQUESTED j & PRECTRI EQU /10 FLAG RECOVERY TRIAL $ PLRCSEN EQU /08 FLAG LRC-SENDING ( PLMPQUE EQU /04 FLAG LAMP COD
0x12b274…12b408 Dummy {f00=0x001a, f01=0x018e, f02=»EXT z * PETB EQU /97 END OF TRANSMISSION BLOCK PETX EQU /03 END OF TEXT : ( PESCKB EQU /1C ESCAPE CODE DATA TO KB Z 4 PDUMMSP EQU /3 SPECIAL DUMMY TO GET DATA REQUEST ( P FIRST WHEN PRINTERBUFFER IS EMPTY 0 PDRQTIM EQU 30 TIME TO NEXT ACK
0x12b408…12b59c Dummy {f00=0x001a, f01=0x0190, f02=» f , P*************************************** P* 8 P* B < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER L 8 P* MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 P* PX:A EQU 1 PLOGING EQU 0 P* P*
0x12b59c…12b730 Dummy {f00=0x001a, f01=0x0190, f02=»LOCHAN EQU 1 P* P* 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND ( 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN d 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM $ P* DRIVER BY SETTING X:C = 0. P*
0x12b730…12b8c4 Dummy {f00=0x001a, f01=0x0190, f02=»OUR REMOTE CHANNEL CARDS. P* " PX:D EQU 0 , PRECHAN EQU 0 > P* R P* P EJECT f P* t , P* REMFC IS " REMOTE TEST FILE CODE " ~ P* STANDARD IS /15 P* PX:E EQU /15 PREMFC EQU /15 P* P
0x12b8c4…12ba58 Dummy {f00=0x001a, f01=0x0190, f02=» @ P* THE EXCLUSION IS ONLY POSSIBLE IF THE DRIVER IS ADAPTED , P* FOR ONLY LOCAL TERMINALS (RECHAN=0). H P* x PX:F EQU 1 U =4 PSOFTIM EQU 0 U =4 P* P* B P* IF X:G = 1 THE DRIVER CAN HANDLE OUTPUT TO KEYBOARD LAMPS
0x12ba58…12bbec Dummy {f00=0x001a, f01=0x0190, f02=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 0 P* SET IS OBTAINED BY SETTING CPU852 EQU 0. < P* p PCPU852 EQU 0 z P* P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG TO 1. P*
0x12bbec…12bd80 Dummy {f00=0x001a, f01=0x018e, f02=» P*************************** P* ( " P* LOCAL AND REMOTE TERMINALS 2 P* X P* b PCWTLDW EQU 0 LAST OUTPUT DWT l " PCWTLOW EQU 2 LAST OUTPUT WORD , PCWTITA EQU 4 ADDRESS TO INTERRUPT TABLE PCWTINR EQU 6 INR PCWTOTR EQU
0x12bd80…12bf14 (1, 379) Dummy {f00=0x0024, f01=0x0190, f02=» PCWTADD EQU 18 ACKUMULATORS . PACKTIM EQU 24 PRINTER TIME-OUT ACKUMULATOR & PCWTTP EQU 26 TIMER POINTER X P XIF z P IFT ACKMUL=0 PCWTTP EQU 18 TIMER POINTER P XIF P* P* ONLY REMOTE TERMINALS P* P* &
0x12bf14…12c0a8 Dummy {f00=0x0024, f01=0x018e, f02=» l 8 PCWTRST EQU CWTTP+12 CHANNEL STATUS WORD (LOOP-TESTS) 0 PCWTBLK EQU CWTTP+14 BLOCK SENDING INDICATOR D P* x P EJECT : P***************************************************** : P* C W T L T 1 *
0x12c0a8…12c23c Dummy {f00=0x0024, f01=0x018e, f02=» PDWA1 EQU /03 DEVICEADDRESS P* * PCWTLT1 EQU * TABLE ENTRY 4 P* T P IFF LOCHAN=0 ^ P* t P DATA 0 LAST OUTPUT DWT ~ P DATA 0 LAST OUTPUT WORD , P DATA INTLT1 ADDRESS TO INTERRUPT TABLE P INR A2,0,DWA1 INR P
0x12c23c…12c3d0 Dummy {f00=0x0024, f01=0x0190, f02=» ~ P* P IFT ACKMUL=1 P* ( P DATA 0 NAK-ACKUMULATOR 2 $ P DATA 0 RETR. FAULT-ACKUMULATOR R , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR z ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT P*
0x12c3d0…12c564 Dummy {f00=0x0024, f01=0x0190, f02=» : P***************************************************** P* B 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 2 L P* PCWTLT2 EQU * P* P IFF LOCHAN=0 P IFF LOCHAN=1 P* P* P* PDWA2 EQU /13 DEVIC
0x12c564…12c6f8 Dummy {f00=0x0024, f01=0x018e, f02=»0,DWA2 INR P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START , " P DATA 0 RETRANSMISSION COUNTER L P DATA 0 QUEUE r P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMU
0x12c6f8…12c88c Dummy {f00=0x0024, f01=0x018e, f02=» P EJECT P* P* : P***************************************************** & : P* C W T L T 3 * d : P***************************************************** P* 4 P* CONTROL WORK TABLE FOR LO
0x12c88c…12ca20 Dummy {f00=0x0024, f01=0x0190, f02=» P* P* PDWA3 EQU /23 DEVICE ADDRESS P* @ P DATA 0 LAST OUTPUT DWT J P DATA 0 LAST OUTPUT WORD j P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P DATA
0x12ca20…12cbb4 (1, 380) Dummy {f00=0x0024, f01=0x0190, f02=»ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR < ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR l P* P XIF P* P EJECT P* P* : P**********************************************
0x12cbb4…12cd48 Dummy {f00=0x0024, f01=0x0190, f02=» P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 4 P* F PCWTLT4 EQU * P P* d P IFT LOCHAN=4 n P* P* P* PDWA4 EQU /33 P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA IN
0x12cd48…12cedc Dummy {f00=0x0024, f01=0x0190, f02=»OUNTER x P DATA 0 QUEUE P DATA 0 SECOND QUEUE $ P* @ P IFT ACKMUL=1 J P* ` P DATA 0 NAK-ACKUMULATOR j $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR
0x12cedc…12d070 Dummy {f00=0x0024, f01=0x0190, f02=»*************************** 4 P* CONTROL WORK TABLE FOR REMOTE CHANNEL NO. 1 ! $ P* CONNECTED TO FIRST CHRT ! P* ! PCWTRT1 EQU * ! P* ! P IFF RECHAN=0 ! P* ! PDWA5 EQU /1 DEVICE ADDRESS ! P* ! P DATA 0 LAST OUTPUT
0x12d070…12d204 Dummy {f00=0x0024, f01=0x0190, f02=» A2,1,DWA5 CIO-START ! " P DATA 0 RETRANSMISSION COUNTER " P DATA 0 QUEUE TERMINAL 1 " B P DATA 0 QUEUE TERMINAL 2 " b P* " P IFT ACKMUL=1 " P* " P DATA 0 NAK-ACKUMULATOR " $ P DATA 0 BLOCK ERROR ACKUMULATOR " , P DATA 0 UNDEFINED-IN
0x12d204…12d398 Dummy {f00=0x0024, f01=0x0190, f02=»MER POINTER " P DATA /7055 SYNC CHARACTER # 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 # 6 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 # j & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 # & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 # , P DATA 0 CHANNEL STATUS
0x12d398…12d52c Dummy {f00=0x0024, f01=0x0190, f02=»******************************** # $ P* C W T R T 2 * $ ( $ P******************************** $ P : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 $ x P* CONNECTED TO FIRST CHRT $ P* $ PCWTRT2 EQU * $ P* $ P IFF R
0x12d52c…12d6c0 Dummy {f00=0x0024, f01=0x0190, f02=»DWA5 INR $ P OTR A2,1,DWA5 OTR % P CIO A2,1,DWA5 CIO-START % * " P DATA 0 RETRANSMISSION COUNTER % J P DATA 0 QUEUE TERMINAL 1 % p P DATA 0 QUEUE TERMINAL 2 % P* % P IFT ACKMUL=1 % P* % P DATA 0 NAK-ACKUMULATOR % $ P DATA 0 BLOCK
0x12d6c0…12d854 (1, 381) Dummy {f00=0x0025, f01=0x018e, f02=» P* & P IFF RECHAN=0 & P DATA 0 TIMER POINTER & $ P DATA /7255 SYNC-CHARACTER & B 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 & d 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 & & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 & & P DATA 0 LRC-ACKUMU
0x12d854…12d9e8 Dummy {f00=0x0025, f01=0x018e, f02=» $ P******************************** ' $ P* C W T R T 3 * ' , $ P******************************** ' T P* ' | : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 ' " P* CONNECTED TO SECOND CHRT ' P* ' PCWTRT3 EQU * ' P
0x12d9e8…12db7c Dummy {f00=0x0025, f01=0x0190, f02=» ' v P DATA 0 LAST OUTPUT WORD ( P DATA INTRT2 INTERRUPT TABLE ( ( P INR A2,0,DWA6 INR ( L P OTR A2,0,DWA6 OTR ( f P CIO A2,1,DWA6 CIO-START ( " P DATA 0 RETRANSMISSION COUNTER ( P DATA 0 QUEUE TERMINAL 1 ( P DATA 0 QUEUE TERMINAL 2 ( P*
0x12db7c…12dd10 Dummy {f00=0x0025, f01=0x0190, f02=»LATOR ( n ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ) P* ) : P XIF ) D P IFF RECHAN=0 ) P P IFF RECHAN=1 ) f P DATA 0 TIMER POINTER ) | P DATA /7055 SYNC-CHARACTER ) 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ) 0 P DATA 0 DWT OF GOING LRC
0x12dd10…12dea4 Dummy {f00=0x0025, f01=0x0190, f02=»ORD (LOOP-TESTS) ) x $ P DATA 1 BLOCK SENDING INDICATOR * P XIF * @ P EJECT * L $ P******************************** * Z $ P* C W T R T 4 * * $ P******************************** * P* * : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHAN
0x12dea4…12e038 Dummy {f00=0x0025, f01=0x0190, f02=» P DATA 0 LAST OUTPUT DWT + P DATA 0 LAST OUTPUT WORD + $ P DATA INTRT2 INTERRUPT TABLE + D P INR A2,0,DWA6 INR + h P OTR A2,1,DWA6 OTR + P CIO A2,1,DWA6 CIO-START + " P DATA 0 RETRANSMISSION COUNTER + P DATA 0 QUEUE TERMINAL 1 + P DATA
0x12e038…12e1cc Dummy {f00=0x0025, f01=0x0190, f02=»0 UNDEFINED-INTERRUPT-ACKUMULATOR + ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR , * P XIF , V P IFF RECHAN=0 , b P IFF RECHAN=1 , x P DATA 0 TIMER POINTER , P DATA /7255 SYNC-CHARACTER , 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 , 0 P DATA
0x12e1cc…12e360 Dummy {f00=0x0025, f01=0x0190, f02=»0 CHANNEL STATUS WORD (LOOP-TESTS) , $ P DATA 1 BLOCK SENDING INDICATOR - * P* - R P XIF - P EJECT - h $ P******************************** - v $ P* C W T R T 5 * - $ P******************************** - P* - : P* CHANNEL UNI
0x12e360…12e4f4 (1, 382) Dummy {f00=0x0025, f01=0x018e, f02=»ECHAN=0 - P IFF RECHAN=1 . P IFF RECHAN=2 . & P* . < PDWA7 EQU /21 DEVICE ADDRESS . F P* . j P DATA 0 LAST OUTPUT DWT . t P DATA 0 LAST OUTPUT WORD . P DATA INTRT3 INTERRUPT TABLE . P INR A2,0,DWA7 INR . P OTR A2,0,DWA7 OTR .
0x12e4f4…12e688 Dummy {f00=0x0025, f01=0x0190, f02=» P* / P IFT ACKMUL=1 / P DATA 0 NAK-ACKUMULATOR / $ $ P DATA 0 BLOCK ERROR ACKUMULATOR / D , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR / l ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR / P* / P XIF / P IFF RECHAN=0 / P IFF RECHAN=1 /
0x12e688…12e81c Dummy {f00=0x0025, f01=0x0190, f02=» 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 0 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 0 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 0 b , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 0 $ P DATA 1 BLOCK SENDING INDICATOR 0 P XIF 0 P EJECT 0 $ P**********
0x12e81c…12e9b0 Dummy {f00=0x0025, f01=0x0190, f02=»T WORK TABLE FOR REMOTE CHANNEL NO. 2 0 P* CONNECTED TO THIRD CHRT 1 . P* 1 R PCWTRT6 EQU * 1 P* 1 p P IFF RECHAN=0 1 z P IFF RECHAN=1 1 P IFF RECHAN=2 1 P DATA 0 LAST OUTPUT DWT 1 P DATA 0 LAST OUTPUT WORD 1 P DATA INTRT3
0x12e9b0…12eb44 Dummy {f00=0x0025, f01=0x0190, f02=»ER 1 t P DATA 0 QUEUE TERMINAL 1 2 P DATA 0 QUEUE TERMINAL 2 2 * P* 2 J P IFT ACKMUL=1 2 T P DATA 0 NAK-ACKUMULATOR 2 j $ P DATA 0 BLOCK ERROR ACKUMULATOR 2 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 2 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 2
0x12eb44…12ecd8 Dummy {f00=0x0025, f01=0x0190, f02=»SYNC-CHARACTER 2 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 3 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 3 J & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 3 ~ & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 3 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 3 $ P DATA
0x12ecd8…12ee6c Dummy {f00=0x0025, f01=0x0190, f02=» $ P******************************** 4 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 4 , " P* CONNECTED TO FOURTH CHRT 4 j P* 4 PCWTRT7 EQU * 4 P* 4 P IFT RECHAN=4 4 P* 4 PDWA8 EQU /31 DEVICE ADDRESS 4 P* 4 P D
0x12ee6c…12f000 Dummy {f00=0x0025, f01=0x0190, f02=»A8 OTR 4 P CIO A2,1,DWA8 CIO-START 5 " P DATA 0 RETRANSMISSION COUNTER 5 . P DATA 0 QUEUE TERMINAL 1 5 T P DATA 0 QUEUE TERMINAL 2 5 t P* 5 P IFT ACKMUL=1 5 P DATA 0 NAK-ACKUMULATOR 5 $ P DATA 0 BLOCK ERROR ACKUMULATOR 5 , P DATA 0 UNDE
0x12f000…12f194 (1, 383) Dummy {f00=0x0026, f01=0x0190, f02=»R POINTER 5 P DATA /7055 SYNC-CHARACTER 6 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 6 4 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 6 h & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 , P DATA 0 CHANNEL STATUS W
0x12f194…12f328 Dummy {f00=0x0026, f01=0x0190, f02=» W T R T 8 * 6 $ P******************************** 7 " P* 7 J : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 7 T " P* CONNECTED TO FOURTH CHRT 7 P* 7 PCWTRT8 EQU * 7 P* 7 P IFT RECHAN=4 7 P DATA 0 LAST OUTPU
0x12f328…12f4bc Dummy {f00=0x0026, f01=0x018e, f02=»IO A2,1,DWA8 CIO-START 7 " P DATA 0 RETRANSMISSION COUNTER 8 P DATA 0 QUEUE TERMINAL 1 8 D P DATA 0 QUEUE TERMINAL 2 8 d P* 8 P IFT ACKMUL=1 8 P DATA 0 NAK-ACKUMULATOR 8 $ P DATA 0 BLOCK ERROR ACKUMULATOR 8 , P DATA 0 UNDEFINED-INTERRUPT-
0x12f4bc…12f650 Dummy {f00=0x0026, f01=0x0190, f02=» P DATA /7255 SYNC-CHARACTER 9 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 9 & 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 9 Z & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 9 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 9 , P DATA 0 CHANNEL STATUS WORD (LOOP-TEST
0x12f650…12f7e4 Dummy {f00=0x0026, f01=0x018e, f02=»********* 9 h 6 P* C H T A B * : 6 P************************************************* : L P* : 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK : 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE : P*
0x12f7e4…12f978 Dummy {f00=0x0026, f01=0x018e, f02=» P DATA 0 ; P DATA 0 ; P DATA 0 ; $ P DATA 0 ; 4 P XIF ; D P* ; P P IFT LOCHAN=1 ; Z P DATA CWTLT1 ; p P DATA 0 ; P DATA 0 ; P DATA 0 ; P XIF ; P* ; P IFT LOCHAN=2 ; P DATA CWTLT1 ; P DATA CWTLT2 ;
0x12f978…12fb0c Dummy {f00=0x0026, f01=0x018e, f02=» P DATA 0 < P XIF < P IFT LOCHAN=4 < P DATA CWTLT1 < 6 P DATA CWTLT2 < J P DATA CWTLT3 < ^ P DATA CWTLT4 < r P XIF < P* < P IFT RECHAN=1 < P DATA CWTRT1 < P DATA CWTRT2 < P XIF < P* < P IFT RECHAN=2 < P D
0x12fb0c…12fca0 Dummy {f00=0x0026, f01=0x018e, f02=» < P DATA CWTRT2 = P DATA CWTRT3 = P DATA CWTRT4 = 0 P DATA CWTRT5 = D P DATA CWTRT6 = X P XIF = l P* = x P IFT RECHAN=4 = P DATA CWTRT1 = P DATA CWTRT2 = P DATA CWTRT3 = P DATA CWTRT4 = P DATA CWTRT5 = P DATA CWTRT6
0x12fca0…12fe34 (1, 384) Dummy {f00=0x0026, f01=0x0190, f02=» ( P************************************ > ( P* D W R E M U * > 0 ( P************************************ > P* > . P* DUMMY TABLE USED WHEN LOOP-TESTING OF > $ P* REMOTE CHANNELS ARE NEEDED. > P* > PDWREMU EQU * >
0x12fe34…12ffc8 Dummy {f00=0x0026, f01=0x0190, f02=»0,0 > P IFT MMUPAG=1 U =4 ? * P DATA 0 SAVE AREA USER ECB ADDRESS =4 ? & $ P DATA DEVECB MMU ECB ADDRESS =4 ? T & PDEVECB DATA 0,0,0,0,0,0 MMU ECB =4 ? | P XIF U =4 ? P IFF RECHAN=0 U =4 ? P EJECT ? P* ? P* ? * P* L O O P - T E S
0x12ffc8…13015c Dummy {f00=0x0026, f01=0x018e, f02=»VEN IN CONTROL WORD OF ECB. ? v 6 P* THE REQUEST IS COMPLETED WITH FOLLOWING BITS @ $ P* IN RETURN CODE OF ECB: @ ^ P* @ 2 P* BIT 9: CHANNEL UNIT NOT IN ACTIVE STATUS @ P* @ P* @ . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT @ P
0x13015c…1302f0 Dummy {f00=0x0026, f01=0x0190, f02=» P IFF RECHAN=0 U =4 A PAREM DATA LOPTST A " P DATA 0 ABORT ROUTINE ADDRESS A 6 " P DATA IHLOP INTERRUPT HANDLER A PLOPTST EQU * A $ P LD A2,10,A8 GET CHANNEL NUMBER A P ANK A2,/FF A P RF(E) DISIIE A ( P CWK A2,RECHAN+RECHAN CHANNEL 1-
0x1302f0…130484 Dummy {f00=0x0026, f01=0x018e, f02=»ER ? A | P RF(E) LOPT10 NO B ( PDISIIE ABL LENDER I/O REQUEST ERROR B $ PLOPT10 EQU * B P , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS B d P LDR A5,A2 CWT-ADDRESS B P ANK A1,/40 B , P RF(NE) IHLP20 CHANNEL UNIT NOT BUSY =4 B & P LDK A5,/E0 INDICA
0x130484…130618 Dummy {f00=0x0026, f01=0x0190, f02=» P* C PIHLOP EQU * C P LDR A5,A1 GET CWT-ADDRESS C " , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS C D P ANK A1,3 C t P XRK A1,3 C PIHLP10 EQU * C P LDK A2,0 C : P SC A2,CWTRST+1,A5 RESET RIGHT BYTE IN CHANNEL STATUS C PIHLP20 EQU *
0x130618…1307ac Dummy {f00=0x0026, f01=0x018e, f02=» 1 / C H R T 2 C P* D 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT D P* D 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS D f 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. D 0 P* THEN DRIVER GETS THE INTERRUPT MESSAGE, D 2 P*
0x1307ac…130940 Dummy {f00=0x0026, f01=0x0190, f02=» 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT E P* E : . P* D = DEVICE ADDRESS C = CHARACTER E D P* E v 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 E 8 P* NAK OUTPUT ERROR D = 0 C = 5 E 8 P* OER T
0x130940…130ad4 (1, 385) Dummy {f00=0x0027, f01=0x018e, f02=»DIATE SIGN BIT SET E p 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 F 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A F X 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C F 8 P* ABC-LV LRC O VRC ERROR IN BLOCK D = 0 C = E F
0x130ad4…130c68 Dummy {f00=0x0027, f01=0x0190, f02=» 8 P* STD STATUS MESSAGE D # 0 C # 0 G 2 P* DIN DATA INPUT D # 0 G @ P EJECT G v P* G P* C H L T 1 G P* G P* INTERRUPT FROM CHLT1 G P* G PCHLT1 EQU * G P IFF LOCHAN=0 G $ P ST
0x130c68…130dfc Dummy {f00=0x0027, f01=0x0190, f02=» LOCHAN=0 G P IFT CPU852=0 H " P MSR 8,A15 SAVE A1-A8 ON STACK H ( P XIF H N P* H Z P IFF LOCHAN=0 H d P LDK A7,2 INDICATE CHLT1 H z P RF CLT010 H P XIF H P* H P* H P* C H L T 2 H P* H P* INTERRUPT FROM CHLT2 H
0x130dfc…130f90 Dummy {f00=0x0027, f01=0x0190, f02=»PU852=1 H & P CF A15,SAVE8 SAVE A1-A8 ON STACK I P XIF I : P* I F P IFF LOCHAN=0 I P P IFF LOCHAN=1 I f P IFT CPU852=0 I | " P MSR 8,A15 SAVE A1-A8 ON STACK I P XIF I P* I P IFF LOCHAN=0 I P IFF LOCHAN=1 I P LDK A7,4 INDI
0x130f90…131124 Dummy {f00=0x0027, f01=0x0190, f02=» I PCHLT3 EQU * J P IFF LOCHAN=0 J P IFF LOCHAN=1 J 2 P IFF LOCHAN=2 J H $ P ST P,INTSAV SAVE LAST INTERRUPT J ^ P* J P IFT CPU852=1 J & P CF A15,SAVE8 SAVE A1-A8 ON STACK J P XIF J P* J P IFF LOCHAN=0 J P IFF LOCHAN=
0x131124…1312b8 Dummy {f00=0x0027, f01=0x018e, f02=» IFF LOCHAN=1 J P IFF LOCHAN=2 K P LDK A7,6 INDICATE CHLT3 K , P RF CLT010 K L P XIF K ^ P* K j P* K t P* C H L T 4 K ~ P* K P* INTERRUPT FROM CHLT4 K P* K PCHLT4 EQU * K P IFT LOCHAN=4 K $ P ST P,INTSAV SAVE LA
0x1312b8…13144c Dummy {f00=0x0027, f01=0x0190, f02=» P IFT CPU852=0 L " P MSR 8,A15 SAVE A1-A8 ON STACK L P XIF L @ P* L L P IFT LOCHAN=4 L V P LDK A7,8 INDICATE CHLT4 L l P RF CLT010 L P* L P XIF L P* L P EJECT L P* L P* L P* C H R T 1 L P* INTERRUPT FRO
0x13144c…1315e0 Dummy {f00=0x0027, f01=0x0190, f02=»VE A1-A8 ON STACK L P XIF M P* M & P IFF RECHAN=0 M 0 P IFT CPU852=0 M F " P MSR 8,A15 SAVE A1-A8 ON STACK M P XIF M P* M P IFF RECHAN=0 M P LDK A7,10 INDICATE CHRT1 M P RF CLT010 M P XIF M P* M P* C H R T 2 M
0x1315e0…131774 (1, 386) Dummy {f00=0x0038, f01=0x0190, f02=» SAVE LAST INTERRUPT M P* N P IFT CPU852=1 N & & P CF A15,SAVE8 SAVE A1-A8 ON STACK N < P XIF N f P* N r P IFF RECHAN=0 N | P IFF RECHAN=1 N P IFT CPU852=0 N " P MSR 8,A15 SAVE A1-A8 ON STACK N P XIF N P* N P IFF RECHAN=0
0x131774…131908 Dummy {f00=0x0038, f01=0x018e, f02=»* N P* INTERRUPT FROM CHRT3 O P* O , PCHRT3 EQU * O 6 P IFF RECHAN=0 O J P IFF RECHAN=1 O ` P IFF RECHAN=2 O v $ P ST P,INTSAV SAVE LAST INTERRUPT O P* O P IFT CPU852=1 O & P CF A15,SAVE8 SAVE A1-A8 ON STACK O P XIF O
0x131908…131a9c Dummy {f00=0x0038, f01=0x0190, f02=» P XIF P P* P P IFF RECHAN=0 P P IFF RECHAN=1 P 0 P IFF RECHAN=2 P F P LDK A7,18 INDICATE CHRT3 P P RF CLT010 P ~ P XIF P P* P P* P P* C H R T 4 P P* P P* INTERRUPT FROM CHRT4 P P* P PCHRT4 EQU *
0x131a9c…131c30 Dummy {f00=0x0038, f01=0x018e, f02=» P n P XIF Q P* Q P IFT RECHAN=4 Q P IFT CPU852=0 Q 4 " P MSR 8,A15 SAVE A1-A8 ON STACK Q J P XIF Q p P* Q | P IFT RECHAN=4 Q P LDK A7,22 INDICATE CHRT4 Q P XIF Q P* Q P EJECT Q P* Q ( P* COMMON PART FOR ALL INT
0x131c30…131dc4 Dummy {f00=0x0038, f01=0x018e, f02=» P IFF RECHAN=0 U =4 R P ABL(NA) TDISP R P XIF U =4 R 4 P* R F P IFT LOGING=1 R P P* R f 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** R p P* R P XIF R P EJECT R P* R & P* DETERMINE TYPE OF INTERRUPT. R 4 P* MOR
0x131dc4…131f58 Dummy {f00=0x0038, f01=0x0190, f02=» P SUK A7,10 S P U =4 S P IFF LOCHAN=0 S & $ P RF(NN) CLT014 REMOTE INTERRUPT S < & P LDK A7,0 INDICATE LOCAL INTERRUPT S d P RF CLT018 S PCLT014 EQU * S P XIF S P IFF RECHAN=0 S P LDR A3,A2 S . P SLC A3,6 REMOTE FIRST OR SECOND
0x131f58…1320ec Dummy {f00=0x0038, f01=0x0190, f02=»RT OR RESTART SYNC-TIMER S x * P ANK A3,/2 FIRST OR SECOND TERMINAL ? T P LDR A7,A5 T N P ADR A7,A3 T ` & P LD A3,CWTRST,A5 LOOP TEST MODE ? T r P ABL(N) CLT170 YES T P XIF T & PCLT018 LDK A1,0 RESET RETURN CODE T ( P LDR A3,A2 DATA REQUEST IMME
0x1320ec…132280 Dummy {f00=0x0038, f01=0x0190, f02=», STD OR DRD T x P EJECT U P* U " P* U , , P* DETERMINE TYPE OF CONTROL CHARACTER U 6 P* U f P LDR A3,A2 U p . P ANK A3,/FF DELETE DEVICE AND LINE NUMBER U P RF(E) CLT030 OER U P SUK A3,7 U P RF(E) CLT050 ACK U P ADK A3,2 U
0x132280…132414 (1, 387) Dummy {f00=0x004a, f01=0x0190, f02=»OCAL ? U P RF(NZ) CLT022 NO V P XIF V ( P IFF LOCHAN=0 V 4 & P SUK A3,/18 RETRANSMISSION FAULT ? V J * P RF(NE) CLT025 NO, UNDEFINED INTERRUPT V t P* V P IFT ACKMUL=1 V 6 P IM CWTADD+2,A5 UPDATE RETRANSM. FAULT ACKUMULATOR V P XIF V P
0x132414…1325a8 Dummy {f00=0x004a, f01=0x0190, f02=»/80 ABC-ANSWER ALLOWED ? V P TM A6,A4 W P RF(E) EXIIT NO W 2 P XRK A4,/80 YES, RESET BIT W J P SC A4,LRCACK,A7 AND STORE W l " P LD A6,LRCDWT,A7 LRC-DEVICE ? W P RF(E) EXIIT W P ANK A4,/7F W P RF(Z) CLT046 YES W 8 P CF A15,RESLRC RES
0x1325a8…13273c Dummy {f00=0x004a, f01=0x0190, f02=» W r P SUK A3,5 X P RF(E) CLT043 ABC+ =5 X P IFT ACKMUL=1 X 8 P* X N , P IM CWTADD+2,A5 UPDATE ERROR ACKUMULATOR X X P XIF X P IFF RECHAN=0 X P* X P SUK A3,4 VRC-ERROR ? X P RF(E) CLT042 YES X & P LDK A1,LRCERR INDICATE LRC-
0x13273c…1328d0 Dummy {f00=0x004a, f01=0x0190, f02=» X h P XIF Y PCLT025 EQU * Y P IFT ACKMUL=1 Y ( 8 P IM CWTADD+4,A5 UPDATE UNDEF. INTERRUPT ACKUMULATOR Y > P XIF Y z P EJECT Y P* Y 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. Y 4 P* RETURN TO DEVICE DRIVER WITH RETURN CODE : Y 0
0x1328d0…132a64 Dummy {f00=0x004a, f01=0x0190, f02=»ST OER OR UNDEFINED Y v " P* INTERRUPT Z P* Z B PCLT030 EQU * Z L P IFF RECHAN=0 Z ` P IFF LOCHAN=0 Z v P LDR A7,A7 REMOTE ? Z P RF(Z) CLTQUE NO Z P XIF Z P IFF RECHAN=0 Z P LD A6,LRCDWT,A7 Z P CWR* A6,A5 LR
0x132a64…132bf8 Dummy {f00=0x004a, f01=0x018e, f02=»RESOLVE QUEUE Z | " P ANK A2,/FF CLEAN CHARACTER =5 [ P SUK A2,5 SEVEN NAK ? [ < P RF(Z) CLT045 YES [ Z * PCLT031 LD A2,DWTST,A6 GET STATUS WORD [ t P LDR A3,A2 [ 0 P ANKL A2,DEVECH+RECTRI ECHO AND RECOVERY BIT [ P RF(NE) CLT045 [ 0 P ORK A3,RE
0x132bf8…132d8c Dummy {f00=0x004a, f01=0x018e, f02=» [ ( P ABL CLT107 RETURN TO DEVICE DRIVER P IFF RECHAN=0 4 P EJECT J P* X P* ABC- VRC-ERROR b P* ~ 8 P* IF BLOCKSENDING SAME PROCEDURE AS FOR THE OTHER P* ERRORS OF TYPE ABC-. 4 P* IF OUTPUT TO PRINTERS WITH LR
0x132d8c…132f20 Dummy {f00=0x004a, f01=0x0190, f02=» p P RB(NZ) CLT031 YES ] P U =5 ] " P* ] 2 P* ABC+ VRC-ERROR ] < P* ] X 6 P* SEND ETX TO REMOTE PRINTERS WITH DATA REQUEST ] b 4 P* RETURN TO DEV. DRIVER IF OTHER DEVICE TYPE ] P* ] PCLT043 EQU * U =5 ] 0 P ANK A4,DEWDRQ D
0x132f20…1330b4 (1, 388) Dummy {f00=0x004a, f01=0x0190, f02=»A15,OUTLIN PRINTERS WITH DATA REQUEST =5 ] " P RF EXIIT GO TO DISPATCHER =5 ^ 0 P XIF ^ V P EJECT ^ b P* ^ p P* POWER ON ^ z P* ^ 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE ^ < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL
0x1330b4…133248 Dummy {f00=0x004a, f01=0x0190, f02=»TC,A5 RESET RETRANSMISSION COUNTER ^ P IFF RECHAN=0 _ * P IFF LOCHAN=0 _ @ P LDR A7,A7 REMOTE ? _ V P RF(Z) CPO010 NO _ r P XIF _ P IFF RECHAN=0 _ P U =1 _ . P CM LRCDWT,A7 RESET LRC-DEVICE POINTER =1 _ P LDK A7,1 U =1 _ 6 P ANS
0x133248…1333dc Dummy {f00=0x004a, f01=0x018e, f02=» ADDRESS POINTER _ PCPO020 EQU * ` P LDR* A6,A1 GET DWT-ADDRESS ` , P RF(E) CPO030 ` P P SRC A6,1 ` f P RF(N) CPO030 ` x P SLC A6,1 ` P U =4 ` P LDKL A7,/FFFF-RECTRI-LRCSEN ` 6 P ANS A7,DWTST,A6 RESET RECOVERY BIT AND LRC-BIT =1 `
0x1333dc…133570 Dummy {f00=0x004a, f01=0x0190, f02=» P ANK A7,/20 ECHO MODE ? a P RF(NE) CPO030 YES a $ PCPO023 EQU * U =4 a > 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER a X P RF(E) CPO030 YES a PCPO025 EQU * a & P LDK A4,3 RECOVERY CAUSE: POWER ON a ( P CF A15,NDREDW CALL RECOVERY ROUTINE
0x133570…133704 Dummy {f00=0x004a, f01=0x0190, f02=» a P EJECT b P* b 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER b P* b Z PCLT045 EQU * b d P LDKL A1,/FFFF-RECTRI b x ( P ANS A1,DWTST,A6 RESET RECOVERY BIT b ( P LDK A1,NOERR INDICATE NOT OPERABLE b & P ABL CLT107 RESET TIMER AN
0x133704…133898 Dummy {f00=0x004a, f01=0x0190, f02=»HEN EXAMINE LAST b r 0 P* OUTPUT DWT. IF NOT DEFINED UPDATE ERROR c 6 P* ACKUMULATOR AND GO TO DISPATCHER. IF SYNC-ACK c L P* DROP IT. c 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF c 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF D
0x133898…133a2c Dummy {f00=0x004a, f01=0x0190, f02=» : P* HANDLING ANSWERS FROM DEVICE IS AFFECTED AND THEN d > P* IF DRI A BRANCH IS MADE TO THE DATA REQUEST SECTION. d B * P* IF ACK WE HAVE TO WAIT FOR A DRD. d PCLT050 EQU * d P IFF RECHAN=0 d & P LC A3,CWTLOW,A5 LAST OUTPUT WORD d " P A
0x133a2c…133bc0 Dummy {f00=0x004a, f01=0x0190, f02=» RECOVERY BIT IN STATUS WORD d z P IFF RECHAN=0 e $ P IFF LOCHAN=0 e : P LDR A7,A7 REMOTE ? e P P RF(Z) CLT052 NO e l P XIF e P IFF RECHAN=0 e P LDK A4,2 e 4 P ORS A4,CWTRST,A5 INDICATE ACK IN CHANNEL STATUS e P LDR A8,A3 OBC-ACK ? e
0x133bc0…133d54 (1, 389) Dummy {f00=0x004b, f01=0x0190, f02=»QU * e " P LD A3,DWTST,A6 DEVICE STATUS f 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? f 2 P RF(Z) CLT055 NO f f P IFF RECHAN=0 f ~ P IFF LOCHAN=0 f P LDR A7,A7 REMOTE ? f , P RB(Z) CLT046 NO, RETURN TO DEV. DRIVER f P XIF f P IFF R
0x133d54…133ee8 Dummy {f00=0x004b, f01=0x0190, f02=» P XIF g P EJECT g P* g P* g ( H P* PRINTER TIMING AND TIMING FOR MISSING BLOCK CONTROL CHARACTERS g 2 P* g ~ PCLT055 EQU * g P IFF SOFTIM+RECHAN=0 U =4 g P INH g , P LD A3,DWTLD1,A6 ADDRESS TO TIMER BLOCK g P RF(E) CLT060
0x133ee8…13407c Dummy {f00=0x004b, f01=0x0190, f02=»* g P* START TIMER h P* h " PCLT060 EQU * h , P LDR A1,A6 PARAMETER h @ " P LDKL A4,DWTLD1 TIMER POINTER h P ADR A4,A6 ADD DWT-ADDRESS h " P CF A15,SETIMP GET TIMER BLOCK h > P DATA DRQTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY h
0x13407c…134210 Dummy {f00=0x004b, f01=0x0190, f02=»CE STATUS h | 0 P ANK A4,DEWDRQ DEVICE WITHOUT DATA REQUEST ? i 0 P RB(NZ) CLT046 YES, RETURN TO DEVICE DRIVER i F ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? i z P ABL(N) CLT110 YES =2 i P XIF i " PEXIT ABL TDISP DISPATCHER EXIT i P IFF SOFTIM+RECHAN
0x134210…1343a4 Dummy {f00=0x004b, f01=0x0190, f02=» CONNECTED DEVICES i l 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL j . P* CHARACTERS (ABC) FROM SELECTOR UNIT. j V P* j PDRQTUT EQU * j P LDR A6,A1 GET DWT-ADDRESS j . P CM DWTLD1,A6 RESET POINTER TO TIMER BLOCK j P LD A3,DWTST,A
0x1343a4…134538 Dummy {f00=0x004b, f01=0x0190, f02=» EXIT U =2 j P U =2 k PDRQT10 EQU * k " P* k 6 P IFT ACKMUL=1 k @ " P CF A15,GETCWT GET CWT-ADDRESS k V ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR k | P XIF k P* k P IFF SOFTIM+RECHAN=0 U =4 k . P LDK A1,TIMERR INDICATE SOFTWARE TIME-OU
0x134538…1346cc Dummy {f00=0x004b, f01=0x0190, f02=»LRC-ERROR k x PDRQT20 EQU * l P XIF l & P IFF SOFTIM+RECHAN=0 U =4 l 2 ( P ABL CLT107 RETURN TO DEVICE DRIVER l T P XIF U =4 l P EJECT l P* l P* N A K l P* l 8 P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS l 8 P* U
0x1346cc…134860 Dummy {f00=0x004b, f01=0x018e, f02=»OT OPERABLE IS SENT TO DEVICE DRIVER. l ~ P* m . PCLT080 EQU * m 8 $ P LDR* A6,A5 GET LAST OUTPUT DWT m L P RB(E) EXIT m t P* m P IFT ACKMUL=1 m P* m * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR m P* m P XIF m P* m P IFF REC
0x134860…1349f4 (1, 390) Dummy {f00=0x004b, f01=0x0190, f02=» P LD A4,CWTRTC,A5 GET COUNTER n P SUK A4,7 SEVEN TIMES ? n ( P ABL(E) CLT030 n H * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD n ^ $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. n P IFT LOGING=1 n 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** n P XIF n
0x1349f4…134b88 Dummy {f00=0x004b, f01=0x0190, f02=»N=0 n P ANK A2,/FF o , P XRS A2,LRCACK,A7 UPDATE LRC-ACKUMULATOR o . P CF A15,RESTSY START OR RESTART SYNC-TIMER o P P XIF o PCLT090 ABL TDISP o P EJECT o P* o P* o $ P* DATA INPUT AND DATA REQUEST o P* o > P* ALWAYS:
0x134b88…134d1c Dummy {f00=0x004b, f01=0x0190, f02=» DEVICE DRIVER. o B P* IF INPUT NOT REQUESTED, GO TO INTERRUPT p * 4 P* ROUTINE OF DEVICE DRIVER. p p P* p P* DATA REQUEST: p P* p < P* LOCAL DEVICES: STORE PRINTER STATUS IN DWTD
0x134d1c…134eb0 Dummy {f00=0x004b, f01=0x0190, f02=» STATUS MESSAGE (ONLY FOR REMOTE DEVICES): p D P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER. q 2 P* q z P* q PCLT100 EQU * q P LDR A3,A2 q P SRL A3,8 q P LDR A4,A3 q . P ANK A3,/E 2 * LINE NUMBER FOR LOCAL CONN. q
0x134eb0…135044 Dummy {f00=0x004b, f01=0x0190, f02=» A3,/02 MASK CHANNEL NUMBER q " P SLL A3,1 TO CORRECT POSITION r $ & P CWR A7,A5 TERMINAL 2 ON CHANNEL ? r J P RF(E) CLT103 NO r t & P ADK A3,2 YES, ADD TERMINAL NUMBER r P XIF r PCLT103 EQU * r P SRL A4,3 r P ANK A4,/E 2 * DEVICE NUMBER r
0x135044…1351d8 Dummy {f00=0x004b, f01=0x0190, f02=»,A5 ADDRESS TO INTERRUPT TABLE r P RB(Z) EXIT s & P CW A3,-2,A8 WITHIN TABLE ? s : P RB(NL) EXIT NO s ^ P ADR A8,A3 s v , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION s P RB(Z) EXIT NOT DEFINED s P LD A6,-2,A8 GET ID-WORD s P SUR A6,A4 s $
0x1351d8…13536c Dummy {f00=0x004b, f01=0x0190, f02=»T-ADDRESS s x P LDR* A6,A8 GET DWT-ADDRESS t P RB(E) EXIT t 6 P ANK A2,/FF CLEAN CHARACTER t J " P LD A3,DWTST,A6 DEVICE STATUS t n 8 P ANK A3,DEVINP+INDARQ MASK INPUT DEV. AND INPUT REQ. t P SUK A3,DEVINP t 4 P RF(Z) CLT115 INPUT DEV. BUT NO IN
0x13536c…135500 Dummy {f00=0x004b, f01=0x0190, f02=»WITHOUT DATA REQUEST ? t z P RB(NZ) EXIT YES u P IFF RECHAN=0 u 6 P IFF LOCHAN=0 u L P LDR A7,A7 REMOTE ? u b P RF(NZ) CLT120 YES u ~ P XIF u P IFT LOCHAN=0 u P RF CLT120 u P XIF u P IFF LOCHAN=0 u . P SC A2,DWTDEV+1,A6 SAVE PR
0x135500…135694 (1, 391) Dummy {f00=0x004c, f01=0x0190, f02=»RESTIM RESET TIMER u P XIF U =4 v P RF CLT110 v , PCLT108 EQU * v > P LDKL A7,/FFFF-INDARQ v R 2 P ANS A7,DWTST,A6 RESET FLAG 'INPUT REQUESTED' v p P* v P* RETURN TO DEVICE DRIVER v , P* (USED BY ALL DEVICES FOR RETURN) v P* v
0x135694…135828 Dummy {f00=0x004c, f01=0x0190, f02=» PCLT115 EQU * w " P LD A1,DWTADR,A6 ADDRESS BLOCK w . P LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED ? w > $ P RB(Z) CLT090 NO, SKIP CHARACTER w p P LDR A5,A6 DWT ADDRESS w P ADKL A5,DWTSB2 STACK BASE w * P ABR A1 DEVICE DRIVER INTERRUPT ENTRY w P*
0x135828…1359bc Dummy {f00=0x004c, f01=0x0190, f02=»E DATA REQUEST ? w z P ANK A7,/FF x P U =2 x , ( P RB(NZ) CLT115 NO, STATUS MESSAGE =2 x < $ P CWR* A6,A5 DRD BEFORE ANSWER ? x h P ABL(E) EXIT YES x P U =2 x . P LC A3,DWTOCH,A6 LAST OUTPUT CHARACTER =5 x P ANK A3,/7F CLEAN =5 x & P S
0x1359bc…135b50 Dummy {f00=0x004c, f01=0x0190, f02=» P* y P* y P* TFU IN LOOP MODE y P* y 6 PCLT150 EQU * y @ P LDK A4,1 y T P CWR* A4,A5 SYNC SENT ? y f P RF(NE) CLT154 y < P LDKL A4,/8001 INDICATE LOOP MODE AND SYNC-ACK RECEIVED y PCLT152 EQU * y P ORS A4,CWTRST,A5 y
0x135b50…135ce4 Dummy {f00=0x004c, f01=0x0190, f02=» P SUK A3,3 POWER ON ? z P RF(E) CLT179 YES z $ P LDR* A4,A5 GET LAST OUTPUT DWT z : P LDR* A6,A5 z b P SUK A4,1 SYNC ? z v P RF(E) CLT178 YES z ( P LDK A1,NOERR INDICATE NOT OPERABLE z PCLT177 RB CLT110 z PCLT178 EQU * z P SUK A3,
0x135ce4…135e78 Dummy {f00=0x004c, f01=0x0190, f02=» PCLT179 EQU * { P LDK A3,/E3 { * P ANS A3,CWTRST,A5 RESET LOOP TEST BIT { , P ABL CLT100 { Z P XIF { n P EJECT { z P* { P* QUEUE { P* { 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. { 4 P* IF LOCAL DEVICE CHECK OUTPUT QU
0x135e78…13600c Dummy {f00=0x004c, f01=0x0190, f02=»F SOMETHING THERE. IF NOTHING I { x < P* IN THAT QUEUE, CHECK QUEUE OF INTERRUPTING TERMINAL | ( & P* AND SEND IF SOMETHING THERE. | h P* | PQUEUE EQU * | $ P LDR* A4,A5 GET LAST OUTPUT DWT | . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER |
0x13600c…1361a0 Dummy {f00=0x004c, f01=0x0190, f02=» | P IFF RECHAN=0 } P IFF LOCHAN=0 } * P LDK A1,0 INDICATE READY FOR LOCAL =4 } 4 P LDR A7,A7 LOCAL ? } b P RF(Z) QUEU01 YES } | P XIF } P IFF RECHAN=0 } " P LDK A1,1 INDICATE FIRST TRIAL } " P CWR A7,A5 REMOTE TERMINAL 2 ? } P RF(
0x1361a0…136334 (1, 392) Dummy {f00=0x0064, f01=0x0190, f02=»QU * } P LDR* A6,A8 QUEUE EMPTY ? ~ P U =4 ~ . P IFT RECHAN=0 U =4 ~ > P RF(E) QUEU05 YES =4 ~ X P XIF U =4 ~ t P IFF RECHAN=0 ~ P RF(E) QUEU10 YES =4 ~ P IFF LOCHAN=0 ~ P LDR A7,A7 ~ " P RF(Z) QUEU06 PREVENT HANG UP ~ P
0x136334…1364c8 Dummy {f00=0x0064, f01=0x0190, f02=»U05 BLOCK SENDING RUNNING ~ P XIF " PQUEU06 EQU * . * P LD A2,DWTOTQ,A6 TAKE DWT OUT OF QUEUE D * P STR A2,A8 SET NEXT DWT FIRST IN QUEUE r . P LC A2,DWTOCH,A6 GET LAST OUTPUT CHARACTER P CF A15,OUTLIN SEND IT PQUEU05 LDR* A2,A15 RELOA
0x1364c8…13665c Dummy {f00=0x0064, f01=0x0190, f02=»0 UNDEFINED INTERRUPT P IFF RECHAN=0 P CWK A6,1 SYNC ANSWER ? 4 P RF(E) QUEU30 YES T P U =4 n P LDK A1,0 ~ P XIF U =4 P ABL RTNA15 P IFF RECHAN=0 U =4 PQUEU10 LDR A1,A1 READY ? P RB(E) QUEU05 P L
0x13665c…1367f0 Dummy {f00=0x0064, f01=0x0190, f02=» RB QUEU03 P XIF PQUEU30 ADKL A15,4 P RF LTDISP 8 P IFF RECHAN=0 J P EJECT ` P* n P* x 0 P* RESTSY = SUBROUTINE TO START OR RESTART * P* A TIMER FOR SYNC-SENDING P* PRESTSY EQU * P STR A
0x1367f0…136984 Dummy {f00=0x0064, f01=0x0190, f02=»DR A4,A5 ADD CWT-ADDRESS P CF A15,SETIMP SET TIMER P DATA SYNCUT,TIME @ P RF RESY30 Z PRESY20 LDKL A4,-TIME l " P ST* A4,CWTTP,A5 RESTART TIME PRESY30 LDR* A4,A15 RELOAD A4 P ADKL A15,2 P LDR* P,A15 P EJECT P
0x136984…136b18 Dummy {f00=0x0064, f01=0x018e, f02=»R IS SENT. ~ P* PSYNCUT EQU * $ P CM CWTTP,A1 RESET TIMER POINTER 0 P LDR A5,A1 X ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER j ( P XRKL A2,/800 CHANGE TERMINAL NUMBER P ST A2,CWSYNC,A1 STORE P LDK A6,1 PSYNC02 EX CWTOTR,A1 OU
0x136b18…136cac Dummy {f00=0x0064, f01=0x018e, f02=» , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT P* 8 P IFT LOGING=1 B P* X * P CF A15,LOGG LOGG OF OUTPUT CHARACTER b P XIF P* P IFF RECHAN=0 P LDR A3,A2 P SLL A3,4 P RF(NN) SYNC05 P ADK A5,2 P
0x136cac…136e40 Dummy {f00=0x0064, f01=0x0190, f02=» P ANK A4,/80 P RF(E) EXITA NO P ANK A3,/60 4 P RF(E) SYNC20 THIRD SYNC H P SUK A3,/20 h P RF(NE) SYNC10 FIRST SYNC | P LDK A3,/20 SECOND SYNC * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNTER PEXITA ABL TDISP DISPATCH
0x136e40…136fd4 (1, 393) Dummy {f00=0x0065, f01=0x0190, f02=» LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK P ENB 0 * P ABI INTADR,A3 GO TO INTERRUPT HANDLER < P XIF j P EJECT v P* P* CHARACTER INPUT P* PLTCHRI EQU * PRTCHRI EQU * P LDK A2,INDARQ 0 P ORS A2,DWTST,A6 SET I
0x136fd4…137168 Dummy {f00=0x0065, f01=0x0190, f02=»R OUTPUT P* PLTCHRO EQU * PRTCHRO EQU * . , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT B " P CF A15,OUTLIN SEND CHARACTER r P* P* LOCAL DISPATCHER P* PLTDISP EQU * PRTDISP EQU * P ABL TDISP GO TO DISPATC
0x137168…1372fc Dummy {f00=0x0065, f01=0x0190, f02=» < 3 x ( P RF(N) LTSTBL YES, SEND WITHOUT LRC " P LD A2,DWTST,A6 DEVICE STATUS 8 6 P ANKL A2,DEVECH+LRCSEN ECHO MODE OR LRC RUNNING ? ^ ( P RF(NZ) LTSTBL YES, SEND WITHOUT LRC P LDK A2,STX LOAD STX P RB RTCHRO SEND P XIF P*
0x1372fc…137490 Dummy {f00=0x0065, f01=0x0190, f02=» A2,LRCSEN LRC-SENDING ? P RF(Z) LTENBL NO P LDK A2,ETB LOAD ETB 8 P RB RTCHRO SEND T P XIF l P* x P* END OF A BLOCK (LOCAL) P* PLTENBL EQU * P IFF SOFTIM+RECHAN=0 U =4 " P LD A2,DWTST,A6 DEVICE STATUS
0x137490…137624 Dummy {f00=0x0065, f01=0x0190, f02=» * P XIF U =4 P* " P* START OF A BLOCK (LOCAL) & P* L PLTSTBL EQU * V 0 P ABL NDRETO SET OK & RETURN TO DEVICE DRIVER j P* P EJECT P* P* G E T C W T P* & P* SUBROUTINE TO GET CWT-ADDRESS
0x137624…1377b8 Dummy {f00=0x0065, f01=0x018e, f02=»* A6 = DWT-ADDRESS P* P* ON EXIT: * P* A5 = CWT-ADDRESS @ & P* A7 = 0 IF LOCAL CONNECTION ` P* PGETCWT EQU * " P LDR* A5,A6 CHANNEL PARAMETERS P ANK A5,/F P SLL A5,1 DOUBLE INDEX P IFF RECHA
0x1377b8…13794c Dummy {f00=0x0065, f01=0x0190, f02=» P XIF P IFF RECHAN=0 * P LC A7,DWTCP2,A6 CHANNEL PARAMETERS 2 & P SRL A7,1 T P ANK A7,1 CHANNEL NUMBER f * P ORR A5,A7 COMBINE WITH CH. UNIT INDEX P ADK A5,4 ADJUST FOR LOCAL $ P SLL A5,1 GET CHTAB DISPLACEMENT * P LDR A7,A5
0x13794c…137ae0 Dummy {f00=0x0065, f01=0x0190, f02=»4 h P LDR* P,A15 RETURN =4 P IFF SOFTIM+RECHAN=0 U =4 ( P EJECT J P* X P* b P* R E S T I M l P* 2 P* SUBROUTINE TO RESET TIMER FOR SUPERVISION 4 P* OF MISSING DATA REQUESTS AND MISSING BLOCK P* CONTROL
0x137ae0…137c74 (1, 394) Dummy {f00=0x0065, f01=0x0190, f02=»SAVE A7 ON STACK & P LD A7,DWTLD1,A6 GET TIMER POINTER & P RF(Z) REST20 TIMER ALREADY RESET B P CM* DWTLD1,A6 RESET TIMER l & P CM DWTLD1,A6 RESET TIMER POINTER PREST20 LDR* A7,A15 RELOAD A7 P U =4 P RB GETRTN RETURN =4 P
0x137c74…137e08 Dummy {f00=0x0065, f01=0x0190, f02=»-DEVICE POINTER, t < P* BLOCKSENDING RUNNING INDICATOR AND LRC-SENDING BIT. P* X P* ON ENTRY: b P* A5 = CWT-ADDRESS x P* A6 = DWT-ADDRESS . P* A7 = TERMINAL ADJUSTED CWT-ADDRESS P* PRESLRC EQU * P
0x137e08…137f9c Dummy {f00=0x0065, f01=0x0190, f02=»RC-SENDING BIT x P LDK A4,1 6 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNING IND. ( P LDR* A4,A15 RELOAD A4 b P RB GETRTN RETURN =4 P XIF P EJECT P* P* O U T L I N P* 6 P* OUTLIN = SUBROUTINE TO SEND ONE C
0x137f9c…138130 Dummy {f00=0x0065, f01=0x0190, f02=» R 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE D P* QUEUE OUTPUT P* POUTLIN EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P*
0x138130…1382c4 Dummy {f00=0x0065, f01=0x0190, f02=»OR INDICATION z P XIF U =4 P ANK A2,/FF ( " P CF A15,GETCWT GET CWT-ADDRESS < P IFF RECHAN=0 b P IFF LOCHAN=0 x P LDR A7,A7 LOCAL ? P RF(Z) OUL100 YES P XIF P IFF RECHAN=0 * P LC A3,DWTCP2,A6 CHANNEL PARAMETERS
0x1382c4…138458 Dummy {f00=0x0065, f01=0x0190, f02=»WT-ADDRESS r P XIF P EJECT P* , ( P* IF UNIT NOT FREE QUEUE OUTPUT. 6 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY b 0 P* RUNNING ON TERMINAL FOR ANOTHER DEVICE, 0 P* QUEUE THIS NEW OUTPUT IF LRC-CONTROL ON P* IT
0x138458…1385ec Dummy {f00=0x0065, f01=0x018e, f02=»O P IFF RECHAN=0 P IFF LOCHAN=0 P LDR A7,A7 REMOTE ? 6 P RF(Z) OUL400 NO R P XIF j P IFF RECHAN=0 v P LDR A3,A2 P SUK A3,/82 STX ? P RF(NE) OUL200 NO P EJECT P* P* S T X P* * P L
0x1385ec…138780 Dummy {f00=0x0065, f01=0x0190, f02=» P LDK A2,0 $ P ST A6,LRCDWT,A7 SET LRC-DEVICE , P CM LRCACK,A7 RESET LRC-ACKUMULATOR AND > P INDICATE FIRST OBC n 0 POUL150 LD A4,DWTCP2,A6 CHANNEL PARAMETERS 2 ( P LDK A3,0 SET DEVICE NUMBER TO ZER0 P RF OUL505 & POUL175 CWR
0x138780…138914 (1, 395) Dummy {f00=0x0065, f01=0x0190, f02=» ~ P EJECT P* P* E T B P* 2 & P SC A2,LRCACK,A7 INDICATE LAST OBC < * P LC A2,LRCACK+1,A7 GET LRC-ACKUMULATOR f P RB OUL150 P* P* OTHER OUTPUT P* 0 POUL300 LD A8,DWTCP2,A6 CHANNEL PARAMETERS 2 2 P
0x138914…138aa8 Dummy {f00=0x0065, f01=0x0190, f02=»RUNNING p * P RF OUL800 BLOCKSENDING RUNNING, QUEUE P > ( POUL350 LD A3,DWTST,A6 DEVICE STATUS F 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? r " P RF(Z) OUL500 DEVICE WITH DRD P LD A3,CWTBLK,A5 P RF(Z) OUL500 ( P ORKL A2,/8000
0x138aa8…138c3c Dummy {f00=0x0065, f01=0x0190, f02=»DDRESS f : P* FROM CHANNEL PARAMETERS AND PUT INTO OUTPUT WORD P* L POUL400 EQU * U =4 V P IFT KBDIR=1 U =4 p , P LD A8,DWTCP2,A6 CHANNEL PARAMETERS 2 =4 P XIF U =4 POUL500 EQU * * P LD A3,DWTCP2,A6 CHANNEL PARAMETERS 2
0x138c3c…138dd0 Dummy {f00=0x0065, f01=0x0190, f02=» LDR A7,A7 LOCAL ? P RF(NZ) OUL505 NO P XIF 4 P IFF LOCHAN=0 @ P ANKL A4,/0700 WS-ADDRESS V P SLC A4,1 TO CORRECT PLACE x P IFF RECHAN=0 P RF OUL508 P XIF P IFF RECHAN=0 POUL505 EQU * ( P ANKL A4,/0200 R
0x138dd0…138f64 Dummy {f00=0x0065, f01=0x0190, f02=»TE TERMINAL NUMBER P SRC A4,5 TO CORRECT PLACE P XIF < POUL508 EQU * H . P ORR A3,A4 COMBINE DEV.ADDR. AND WS-ADDR. P IFT KBDIR=1 U =4 , P ANKL A8,KBLAMP KB-LAMPS ON VDU-OUTPUT ? 4 P RF(NZ) OUL900 YES, PUT LAMP CODE FIRST IN QUEUE
0x138f64…1390f8 Dummy {f00=0x0065, f01=0x0190, f02=» P* P IFF RECHAN=0 U =4 $ P LDK A1,25 LOOP COUNTER FOR OTR ( P XIF U =4 P POUL515 EX CWTOTR,A5 OTR b P RF(A) OUL520 ACCEPTED P IFT RECHAN=0 U =4 P RF(R) OUL800 QUEUE =4 P XIF U =4 P IFF RECHAN=0 U =4 P RF(
0x1390f8…13928c Dummy {f00=0x0065, f01=0x0190, f02=»A15,20 RESET STACK " P LDK A1,NOERR SET NOT OPERABLE 6 P ABL NDREP GET REGISTERS AND RETURN TO DEV.DRIVER @ POUL520 EQU * z P* P IFT LOGING=1 P* 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* P XIF P*
0x13928c…139420 Dummy {f00=0x0065, f01=0x0190, f02=» A7,A7 REMOTE ? P RF(Z) OUL550 NO P XIF 0 P IFF RECHAN=0 < P EJECT R P* ` N P* INDICATE BLOCKSENDING RUNNING IF STX TO DEVICE WITHOUT DATA REQUEST. j . P* UPDATE LRC-ACKUMULATOR AND SYNC-TIMER P* & P ANKL A3,/7000 M
0x139420…1395b4 (1, 396) Dummy {f00=0x0068, f01=0x0190, f02=»TA REQUEST ? p " P RF(Z) OUL540 DEVICE WITH DRD , P LD A3,CWTBLK,A5 BLOCK SENDING INDICATOR : * P RF(Z) OUL540 BLOCKSENDING NOT ALLOWED j P LDK A3,/80 2 P SC A3,CWTBLK,A5 INDICATE BLOCKSENDING RUNNING POUL540 EQU * P ANK A2,/FF ,
0x1395b4…139748 Dummy {f00=0x0068, f01=0x0190, f02=» OUTPUT CHARACTER IN DWT AND RETURN P* , POUL550 EQU * U =4 6 P IFT KBDIR=1 U =4 P * P LDR A8,A8 KB-LAMPS ON VDU-OUTPUT ? =4 j P RF(NZ) OUL700 YES P XIF U =4 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER POUL700 EQU *
0x139748…1398dc Dummy {f00=0x0068, f01=0x0190, f02=» A1-A8 FROM STACK... ~ P INH * P ADKL A15,2 ...ADJUST STACK POINTER... * P LDR* P,A15 ...AND RETURN X P XIF z P* P EJECT P* : P* NORMALLY DWT-ADDRESS IS PUT LAST IN OUTPUT QUEUE P* POUL800 EQU * P IFF
0x1398dc…139a70 Dummy {f00=0x0068, f01=0x0190, f02=»A5 CWT-ADDRESS P XIF , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER " P RF(E) OUL820 R POUL810 CWR A6,A4 h & P RB(E) OUL600 DWT ALREADY IN QUEUE P LD A3,DWTOTQ,A4 P RF(E) OUL830 P LDR A4,A3 FOLLOW THE THREAD P RB OUL810
0x139a70…139c04 Dummy {f00=0x0068, f01=0x0190, f02=»HREAD p P RB OUL600 P IFT KBDIR=1 U =4 P EJECT : P* H & P* KEYBOARD LAMPS ON VDU OUTPUT R 4 P* (KEYBOARD CONNECTED TO VDU INSTEAD OF SUM) | P* , P* PUT LAMP CODE FIRST IN OUTPUT QUEUE . P* LOAD ESCAPE CODE FOR
0x139c04…139d98 Dummy {f00=0x0068, f01=0x0190, f02=»FF-LMPQUE 2 P ANS A1,DWTST,A6 RESET BIT 'LAMP CODE QUEUED' P ANK A4,LMPQUE H , P RB(NZ) OUL510 LAMP CODE ALREADY QUEUED ^ P LDR A1,A5 CWT-ADDRESS P IFF RECHAN=0 P IFF LOCHAN=0 P LDR A7,A7 REMOTE ? P RF(Z) OUL910 NO
0x139d98…139f2c Dummy {f00=0x0068, f01=0x0190, f02=» U =4 & POUL910 LD A4,CWTEQ,A1 OUTPUT QUEUE P RF(Z) OUL920 QUEUE EMPTY 8 P CWR A6,A4 Z , P RB(E) OUL600 THIS DWT ALREADY IN QUEUE l * POUL920 ST A4,DWTOTQ,A6 MOVE QUEUE LINK $ P ST A6,CWTEQ,A1 QUEUE LAMP CODE , P SC A2,DWTOCH,A6 STORE
0x139f2c…13a0c0 Dummy {f00=0x0068, f01=0x0190, f02=»O KB l P RB OUL510 P XIF U =4 P EJECT 0 P* > P* H P* C H L T O N R P* j > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY t @ P* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERED FROM 'PFINIT' P* P*
0x13a0c0…13a254 (1, 397) Dummy {f00=0x0068, f01=0x0190, f02=» ADKL A15,2 RETURN AND ENABLE P ENB & P LDR* P,A15 2 PCON020 EQU * F P INH Z $ P LD A5,CHTAB,A4 LOAD CWT-ADDRESS f P RB(Z) CON010 P IFF RECHAN=0 P IFF LOCHAN=0 P CWK A4,/A LOCAL ? P RF(L) CON030 YES P XIF
0x13a254…13a3e8 Dummy {f00=0x0068, f01=0x0190, f02=» RF(U) CON027 $ P LDK A3,0 INDICATE CHANNEL BUSY . P CF A15,RESTSY START OR RESTART SYNC-TIMER > PCON027 EQU * p 2 P ST A3,CWTRST,A5 INDICATE C.U. PRESENT OR NOT P RF CON035 P XIF PCON030 EQU * $ P EX CWTCIS,A5 EXECUTE CIO-ST
0x13a3e8…13a57c Dummy {f00=0x0068, f01=0x018e, f02=»E) CON010 P XIF P CMR A5 RESET LAST OUTPUT P LDK A2,/00 DUMMY @ P CF A15,OUTLIN SEND IT Z P RB CON010 x P EJECT P* P* L O G G P* 8 P* IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT AND $ P* OUTPUT C
0x13a57c…13a710 Dummy {f00=0x0068, f01=0x0190, f02=» & P CWK A1,BUFE BUFE IS MAX LOGG AREA P RF(NE) L1 2 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS D PL1 ST A1,POINT p & P STR A2,A1 LOGG OF INR OR OTR WORD P LDR* A1,A15 P ADKL A15,2 P LDR* P,A15 RETURN P* P* P X
0x13a710…13a8a4 Dummy {f00=0x0068, f01=0x409e, f02=»GG AREA P XIF P IFT LOGING=1 P IFF RECHAN=0 2 PBUF RES 1000 LOGG AREA H P XIF f PBUFE EQU * r P* P END @ R OTR WORD P LDR* A1,A15 P ADKL A15,2 P LDR* P,A15 RETURN P* P* P X
0x13a8a4…13aa38 Dummy {f00=0x0068, f01=0x2008, f02=» INR OR OTR WORD e P LDR* A1,A15 f P ADKL A15,2 f 4 P LDR* P,A15 RETURN f H P* f b P* f l PPOINT DATA BUF LOGG POINTER f v P* f PBUF RES 500 LOGG AREA f PBUFE EQU * f P* f P XIF f P* f P END f @ f
0x13aa38…13abcc Dummy {f00=0x0068, f01=0x0190, f02=»A15,20 RESET STACK " P LDK A1,NOERR SET NOT OPERABLE 6 P ABL NDREP GET REGISTERS AND RETURN TO DEV.DRIVER @ POUL520 EQU * z P* P IFT LOGING=1 P* 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* P XIF P*
0x13abcc…13ad60 Dummy {f00=0x0068, f01=0x0190, f02=» A7,A7 REMOTE ? P RF(Z) OUL550 NO P XIF 0 P IFF RECHAN=0 < P EJECT R P* ` N P* INDICATE BLOCKSENDING RUNNING IF STX TO DEVICE WITHOUT DATA REQUEST. j . P* UPDATE LRC-ACKUMULATOR AND SYNC-TIMER P* & P ANKL A3,/7000 M
0x13ad60…13aef4 (1, 398) Opaque[0x194]
0x13aef4…13b088 # DirEnt {nam=»DRGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0750, f03=0x0000}
0x13aef4…13b088 IdxSect {
0x13aef4…13b088 f00 = 0x003a // 0x13aef4 @0x0
0x13aef4…13b088 f01 = 0x001c // 0x13aef6 @0x2
0x13aef4…13b088 gno = [ // 0x13aef8 @0x4
0x13aef4…13b088 [0x00]: C0x003a.0x2.0
0x13aef4…13b088 [0x01]: C0x0046.0x3.0
0x13aef4…13b088 [0x02]: C0x0047.0x0.0
0x13aef4…13b088 [0x03]: C0x0047.0x1.0
0x13aef4…13b088 [0x04]: C0x0047.0x2.0
0x13aef4…13b088 [0x05]: C0x0047.0x3.0
0x13aef4…13b088 [0x06]: C0x004a.0x3.0
0x13aef4…13b088 [0x07]: C0x004d.0x0.0
0x13aef4…13b088 [0x08]: C0x004d.0x2.0
0x13aef4…13b088 [0x09]: C0x0054.0x2.0
0x13aef4…13b088 [0x0a]: C0x0054.0x3.0
0x13aef4…13b088 [0x0b]: C0x0055.0x1.0
0x13aef4…13b088 [0x0c]: C0x0055.0x2.0
0x13aef4…13b088 [0x0d]: C0x0055.0x3.0
0x13aef4…13b088 ]
0x13aef4…13b088 }
0x13b088…13b21c Dummy {f00=0x003a, f01=0x0190, f02=» 2 P IDENT DRGP03 REL 11.0 81-06-01 870105041100 P : P =1,STATUS DEL. B P REL 11.0 81-01-26 P* x < P******************************************************* < P* * < P* PH
0x13b21c…13b3b0 Dummy {f00=0x003a, f01=0x0190, f02=»RIVER GENERAL PRINTER * < P* * * < P* * j < P* * < P******************************
0x13b3b0…13b544 Dummy {f00=0x003a, f01=0x0190, f02=»THE DRIVER CONSISTS OF THE FOLLOWING PARTS : P* 4 $ P* A C T P : ACTIVATION PART > P* f $ P* R C T P : RECOVERY ROUTINE p P* P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* $ P* ORDER 00
0x13b544…13b6d8 Dummy {f00=0x003a, f01=0x0190, f02=»ON DOCUMENT v . P* ORDER 24 : SET PRINTER PARAMETERS , P* ORDER 27 : SET FORM PARAMETERS F ( P* ORDER 38 : RELEASE DOCUMENT v P* , P* THE FOLLOWING RETURN CODES ARE USED: P* & P* BIT 0 : REQUEST ERROR
0x13b6d8…13b86c Dummy {f00=0x003a, f01=0x0190, f02=»RROR p $ P* BIT 15 : NOT OPERABLE P* 4 P* > P* NORMAL REGISTER USAGE: H P* j " P* REGISTER A1: WORK REGISTER t " P* A2: INPUT/OUTPUT $ P* A3: BUFFER POINTER " P* A4: WORK REGISTER
0x13b86c…13ba00 Dummy {f00=0x003a, f01=0x0190, f02=»SS v P* P* P EJECT P* , P* 6 0 P******************************************* @ P* t P* ENTRIES ~ P* 0 P******************************************* P* P* P ENTRY GPAD3 ADDRESS BLOCK P*
0x13ba00…13bb94 (1, 399) Dummy {f00=0x0046, f01=0x0190, f02=»************************* ~ P* " P* , , P EXTRN LDISP DISPATCHING FROM INTERRUPT 6 $ P EXTRN LENDER DISPATCH I/O ERROR f & P EXTRN LENDIS END I/O AND DISPATCH & P EXTRN OUTPUT OUTPUT ONE CHARACTER 0 P EXTRN GETCHR GET CHARACTER FROM ECB B
0x13bb94…13bd28 Dummy {f00=0x0046, f01=0x0190, f02=»RN DWTOR DWT ORDER DISPLACEMENT P EXTRN DWTSB2 STACK BASE ( 2 P EXTRN INPUT STORE REG = GET STATUS INPUT CHAR H $ P EXTRN STABLK DEF START OF BLOCK ~ " P EXTRN ENDBLK DEF END OF BLOCK P EXTRN DWTDEV DEVICE STATUS P EJECT P*
0x13bd28…13bebc Dummy {f00=0x0046, f01=0x0190, f02=» f P* P* " PSPEC EQU /2E SPECIAL CHARACTER PLF EQU /0A LINE FEED B " PRLF EQU /40 REVERSE LINE FEED ^ PFF EQU /0C FORM FEED PCR EQU /0D CARRIAGE RETURN PSO EQU /0E SHIFT OUT PSI EQU /0F SHIFT IN PESC EQU /1B ES
0x13bebc…13c050 Dummy {f00=0x0046, f01=0x0190, f02=»EQU /64 VERTICAL POSITION ABSOLUTE ( PSNV EQU /77 SELECT NATIONAL VERSION * $ PSLPL EQU /76 SELECT PAGE LENGTH V & PRIS EQU /63 RESET TO INITIAL STATE ~ $ PDSR EQU /6E DEVICE STATUS REPORT PDS EQU /35 DEVICE STATUS & PDCS EQU /50 DEVICE CONTR
0x13c050…13c1e4 Dummy {f00=0x0046, f01=0x0190, f02=»8 CHARACTER PITCH LOAD 0 PHPA EQU /60 HORIZONTAL POSITIONING ABSOLUTE * PHTS EQU /48 HORIZONTAL TABULATION SET R , PTBC EQU /67 HORIZONTAL TABULATION CLEAR PLSL EQU /7B LINE SPACE LOAD PSM EQU /68 SET MODE PRM EQU /6C RESET MODE
0x13c1e4…13c378 Dummy {f00=0x0046, f01=0x0190, f02=» 25 SEC. TIMER P EJECT P* ( P* 2 > P********************************************************* < P* ~ P* CONTROL SEQUENCES P* > P********************************************************* P* P* PBYTE
0x13c378…13c50c Dummy {f00=0x0046, f01=0x0190, f02=»E NEG,NEG PCSSNV EQU * P SELECT NATIONAL VERSION & P BYTE ESC,CSI H P BYTE ZERO,ZERO ^ P BYTE SNV,NEG v " PCSSLPL EQU * SELECT PAGELENGTH P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE SLPL,NEG P BYTE NEG,NEG
0x13c50c…13c6a0 Dummy {f00=0x0046, f01=0x018e, f02=»YTE ESC,CSI P BYTE DS,DSR P BYTE NEG,NEG ( $ PCSCPL EQU * CHARACTER PITCH LOAD > P BYTE ESC,CSI f P BYTE ZERO,SEP | P BYTE ZERO,CPL P BYTE NEG,NEG 0 PCSHPA EQU * HORIZONTAL POSITIONING ABSOLUTE P BYTE ESC,CSI P
0x13c6a0…13c834 (1, 400) Dummy {f00=0x0047, f01=0x0190, f02=» P BYTE ZERO,TBC P BYTE NEG,NEG * PCSHTS EQU * HORIZONTAL TABULATION SET 0 P BYTE ESC,HTS ^ P BYTE NEG,NEG t . PCSVPA EQU * VERTICAL POSITIONING ABSOLUTE P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE VPA,NEG PCSLSL EQ
0x13c834…13c9c8 Dummy {f00=0x0047, f01=0x0190, f02=»I P BYTE FR,ZERO P BYTE SM,NEG PCSRM EQU * RESET MODE 4 P BYTE ESC,CSI R P BYTE FR,ZERO h P BYTE RM,NEG ~ PCSSUL EQU * START UNDERLINE P BYTE ESC,CSI P BYTE UL,SGR P BYTE NEG,NEG PCSEUL EQU * STOP U
0x13c9c8…13cb5c Dummy {f00=0x0047, f01=0x0190, f02=»*********************************** | P* , P* CONDITIONAL ASSEMBLY 6 P* T < P******************************************************* ^ P* P* P* 4 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN 8 P* BY SETTING X:A TO
0x13cb5c…13ccf0 Dummy {f00=0x0047, f01=0x0190, f02=»,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA | 0 P =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG 6 , P =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA j P =5 ITALY,SWITZERLAND P =6 SWEDEN,FINLAND P =7 DENMARK,NORWAY P =8 PORTUGAL,BR
0x13ccf0…13ce84 Dummy {f00=0x0047, f01=0x0190, f02=» =14 JAPAN (KATAKANA VERSION) $ P =15 ISRAEL (HEBREW VERSION) ( P* P P* Z ( PX:A EQU 02 GREAT BRITAIN AS STANDARD d PSTDNCV EQU 07 P EJECT P* P* & P* FRICTION FEED CAN BE SELECTED BY P* SETTING X:B=1
0x13ce84…13d018 Dummy {f00=0x0047, f01=0x018e, f02=»* P* PX:C EQU 1 " PFFDEV EQU 1 FRONT FEED DEVICE & P* L P* V P* ` ( P* THE STANDARD PAGELENGTH IS DEFINED j & P* BY SETTING X:D = NUMBER OF LINES P* P* PX:D EQU 48 PPAGLEN EQU 51 P* P*
0x13d018…13d1ac Dummy {f00=0x0047, f01=0x0190, f02=» PDOCLEN EQU 64 P* P* ( P* 2 P* MMU BUFFER SIZE < P* V P* ` PX:F EQU 132 j PDVBLEN EQU 132 ~ P* P EJECT P* P* 0 P* THE STANDARD MATRIX IS SELECTED BY SETTING P* 1=MATRIX NUMBER (1
0x13d1ac…13d340 Dummy {f00=0x0047, f01=0x018e, f02=»LECTED BY b @ P* SETTING X:H=(1-4). 1=10 CH/INCH,2=12 CH/INCH,3=15 CH/INCH P* 4= PROPORTIONAL PITCH V P* v P* PX:H EQU 1 PDENSIT EQU 1 P* P* < P* HIGH SPEED PRINTING CAN BE PERFORMED BY SETTING X:I=1 P*
0x13d340…13d4d4 (1, 401) Dummy {f00=0x0047, f01=0x0190, f02=» ( P* ERROR OR SOFTW. TIME OUT IF X:J=1 P* 0 P* : PX:J EQU 0 D PREQEND EQU 0 V P* j P* t 8 P* ORDER /27, SET FORM PARAMETERS CAN BE EXCLUDED BY ~ P* SETTING X:K=0 P* P* PX:K EQU 1 PFORMPA EQU 1
0x13d4d4…13d668 Dummy {f00=0x0047, f01=0x0190, f02=» PMMUPAG EQU 1 P* P* " P* , 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 6 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0 p P* P* PCPU852 EQU 0 P EJECT P* P* 0 P****************************
0x13d668…13d7fc Dummy {f00=0x0047, f01=0x0190, f02=»DWTTP EQU /2 TIMER POINTER ( PDWTDCS EQU /4 DOCUMENT CHARACTER SET " ( PDWTPCS EQU /6 PRINTER CHARACTER SET N & PDWTPL EQU /8 PRINTER PAPER LENGTH z & PDWTDL EQU /A DOCUMENT PAPER LENGTH * PDWTALN EQU /C ACTUAL LINE ON DOCUMENT , PDWTRLN EQU /
0x13d7fc…13d990 Dummy {f00=0x0047, f01=0x0190, f02=»P EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. & PDWTACP EQU /16 ACTUAL COLUMN PAPER < $ PDWTCO1 EQU /1A COLUMN COUNTER 1 f & PDWTSYST EQU /1C SYSTEM START IND. , PDWTLFD EQU /1E LINE/FORM FEED INDICATOR 4 PDWTCMF EQU /20 CHAR MATRIX & PIT
0x13d990…13db24 Dummy {f00=0x0047, f01=0x0190, f02=»EED z PDWTHOP EQU /28 HOPPER 1 OR 2 $ PDWTTAB EQU /2A LAST TAB POS SET 0 . PDWTSER EQU /2E CONTR. SEQ. SEPARATOR IND. X P EJECT P* P* 0 P******************************************* P* P* ECB - DISPLACEMENTS P
0x13db24…13dcb8 Dummy {f00=0x0047, f01=0x0190, f02=»LENGTH IN ECB z ( PECBEL EQU 6 EFFECTIVE LENGTH IN ECB " PECBRC EQU 8 RETURN CODE IN ECB B $ PECBCW EQU 10 CONTROL WORD IN ECB h P EJECT P* 0 P******************************************* P* P* TABLES P* 0 P********
0x13dcb8…13de4c Dummy {f00=0x0047, f01=0x0190, f02=»U * ADDRESS BLOCK P DATA ACTP ACTIVATION DRIVER " P DATA 0 ABORT ROUTINE ADDRESS > P DATA 0 INTERRUPT HANDLER d P DATA RCTP RECOVERY ROUTINE PTPTAB EQU * P IFT SINHAN+FFDEV=1 P DATA /0107,/0C25,/2839 P XIF P D
0x13de4c…13dfe0 Dummy {f00=0x0047, f01=0x018e, f02=»********** ^ P* P* A C T P P* 0 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER : > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR p P* @ P************************************************************ P*
0x13dfe0…13e174 (1, 402) Dummy {f00=0x0047, f01=0x0190, f02=» " P LC A2,DWTOR,A6 GET DWT INDEX P ANK A2,1 MASK * , P SC A2,DWTDEV,A6 STORE NEW DEVICE INDEX @ P CWK A7,/24 p P RF(E) ACT010 , P LC A3,DWTDEV+1,A6 GET OLD DEVICE INDEX P ANK A3,1 P CWR A2,A3 P RF(E) ACT010 ( PACT0
0x13e174…13e308 Dummy {f00=0x0047, f01=0x0190, f02=»,DWTDEV,A6 P ANK A2,1 PACT010 LC A3,DWTDEV+1,A6 $ P ANK A3,/FE D P ORR A3,A2 X " P SC A3,DWTDEV+1,A6 STORE INDEX j P CWK A7,/05 ORDER /05 ? P RF(E) ACT015 YES & P ADR A7,A2 ADD DWT INDEX TO ORDER 0 PACT015 SC A7,DWTOR+1
0x13e308…13e49c Dummy {f00=0x0047, f01=0x0190, f02=»R x P SUK A3,1 P RB(NN) ACT030 TRY NEXT P* < P ABL LENDER ILLEGAL ORDER F P* h P* r PACT040 EQU * | P ADR A3,A3 GET INDEX P ABI TPFUC,A3 EXECUTE ORDER PTPFUC EQU * P IFT SINHAN+FFDEV=1 4 P DATA TS
0x13e49c…13e630 Dummy {f00=0x0047, f01=0x0190, f02=»************************ P* ! P* ORDER 00 : TEST STATUS ! * P* ! L " P****************************** ! V PTSTSTA EQU * TEST STATUS ! | * P CF A5,GTSTAT GET STATUS FROM PRINTER ! $ PTSTEND LDR A2,A1 GET RETURN CODE ! " P ANKL A2,/100 PRINTER
0x13e630…13e7c4 Dummy {f00=0x0047, f01=0x0190, f02=»***************** ! P* " P* ORDER 06: WRITE " $ P* " @ P************************* " J PWRTCON EQU * " l P* * =1 " P* * =1 " P* * =1 " $ P LD A2,ECBRL,A8 GET REQ. LENGTH " P ADK A2,/8 BLOCK LENGTH " P CF A5,STABLK ST
0x13e7c4…13e958 Dummy {f00=0x0047, f01=0x0190, f02=»UFFER POINTER " z ( P CF A15,GETCHR GET CONTROL CHARACTER # & P LD A1,DWTDEV,A6 GET DEVICE STATUS # B ( P ANK A1,/20 HAS POWER OFF OCCURED ? # l P RF(NZ) REP2 YES # ( P SUK A2,/2B PRINT ON SAME LINE =/2B? # P RF(Z) WRC20 YES # 2 PWRC04 CM DWTDEV+DWTC
0x13e958…13eaec Dummy {f00=0x0047, f01=0x0190, f02=» FEED =/31 ? # v P RF(NZ) ONELF NO,ONE LF $ P* $ 4 P LDK A2,FF $ > P RF FORMF FORM FEED $ P P* $ l " P* EXECUTE CONTROL CHARACTER $ v P* $ PWRC20 EQU * $ P LDK A2,CR CARRIDGE RETURN $ P CF A5,OUTPUT $ P RF(NZ) ERGP01 $ 2 P
0x13eaec…13ec80 Dummy {f00=0x0047, f01=0x0190, f02=» CONVERT BINARY TO ASCII $ ~ : P ST A2,DWTDEV+DWTACP,A6 STORE THE VALUE IN ACTUAL COL. % : P ST A4,DWTDEV+DWTACP+2,A6 STORE THE VALUE IN ACT. COL. % ^ P* % 2 PWRC07 LD A4,DWTDEV+DWTCO1,A6 GET ACTUAL COLUMN % , P RF(Z) WRT15 JMP IF NO PRECEIDING SPACES %
0x13ec80…13ee14 (1, 403) Dummy {f00=0x0047, f01=0x0190, f02=»V+DWTACP+1 ACTUAL COLUMN PAPER DISPLACEMENT % P CF A5,SEND SEND REPEAT & 4 P RF WRT15 & T P* & f PTWOLF LDK A2,LF LINE FEED & p P CF A5,OUTPUT & P RF(NZ) ERGP01 JMP IF ERROR & PONELF LDK A2,LF LINE FEED & PFORMF CF A5,OUTPUT & P
0x13ee14…13efa8 Dummy {f00=0x0047, f01=0x0190, f02=»EV+DWTLFD,A6 SET LF/FF INDICATOR & P RF WRT15 ' ( P* ' : P* REPEAT WRITE REQUEST ' D P* ' f PREP2 EQU * ' p " P LDR A3,A2 SAVE CONTROL CHAR. ' $ P LDK A2,CR SEND CARRIDGE RETURN ' P CF A5,OUTPUT ' P RF(NZ) ERGP01 JMP IF ERROR '
0x13efa8…13f13c Dummy {f00=0x0047, f01=0x0190, f02=»GET INDICATOR ' t $ P RF(NZ) WRT15 JMP IF LF/FF DONE ( P RB WRC04 ( > P EJECT ( P P* ( ^ 2 P* ORDER 06 : THIS PART SENDS THE CHARACTERS ( h . P* TO DOCUMENT OR CONTINUOUS STATIONARY. ( P* ( P* ( * PWRT15 LDK A3,2 SET ECB BUFFER POINTE
0x13f13c…13f2d0 Dummy {f00=0x0047, f01=0x0190, f02=»ROR ( r P LDK A2,/90 NEW BLOCK LENGTH ) P CF A5,STABLK START OF BLOCK ) 0 P RF(NZ) ERGP04 JMP IF ERROR ) T & PWRT030 CF A15,GETCHR GET CHARACTER ) x P LDR A4,A1 BUFFER FINISHED ? ) P RF(P) WRT050 NO ) & P LD A4,DWTDEV,A6 GET DEVICE STATUS ) & P
0x13f2d0…13f464 Dummy {f00=0x0047, f01=0x0190, f02=»MP IF ERROR ) ( P XRS A4,DWTDEV,A6 RESET SHIFT INDIC. * $ PWRT040 CF A5,ENDBLK END OF BLOCK * @ P RF(NZ) ERGP04 JMP IF ERROR * h P CF A5,GTSTAT GET STATUS * P RF ENDIO END REQUEST * P* * PWRT050 EQU * * P LDR A4,A2 * P* * @ P* EX
0x13f464…13f5f8 Dummy {f00=0x0047, f01=0x0190, f02=» " P* CHECK IF SPECIAL CHARACTER + P SUK A4,/9 TABULATION ? + * P RF(Z) WRT170 YES + J P SUK A4,/9 START UNDERLINE ? + d P RF(NZ) WRT060 NO + & P LDR A4,A3 SAVE ECB BUFFER POINTER + ( P LDKL A3,CSSUL SEND START UNDERLINE + P RF WRT070 + $
0x13f5f8…13f78c Dummy {f00=0x0047, f01=0x0190, f02=»NDERLINE + v PWRT070 CF A5,SEN40 GO & SEND , * P LDR A3,A4 RESTORE ECB BUFFER POINTER , 4 " P RB WRT020 GET NEXT CHARACTER , b 0 PWRT080 SUK A4,/8 /1B, PARTIAL LINE UP DOWN ? , * P RB(NZ) WRT020 NO, GET NEXT CHARACTER , , P CF A15,GETCHR YES, CHECK NEXT
0x13f78c…13f920 Dummy {f00=0x0047, f01=0x0190, f02=» WRT090 YES , P SUK A2,1 PARTIAL LINE UP ? - 0 P RF(NZ) WRT140 NO, INDICATE CODE CHECK ERROR - 8 0 PWRT090 LDK A2,ESC SEND PARTIAL LINE UP/DOWN - l P CF A5,OUTPUT - P RF(NZ) ERGP04 JMP IF ERROR - P LDR A2,A4 RESTORE CHAR. - P CF A5,OUTPUT
0x13f920…13fab4 (1, 404) Dummy {f00=0x004a, f01=0x0190, f02=») WRT110 YES, LEGAL CHARACTER - P CWK A2,/AE ROOMLESS POINT ? . & P RF(E) WRT160 YES . J P SUK A4,/23 CHAR >=/A1 ? . d 0 P RF(N) WRT150 NO,INDICATE CODE CHECK ERROR ! . P SUK A4,/5D CHAR =</FE ? . ( P RF(NP) WRT120 YES, LEGAL CHARACTER . , P RF
0x13fab4…13fc48 Dummy {f00=0x004a, f01=0x018e, f02=»/20-/7E . n . P ANK A4,/80 SHIFT OUT PERFORMED EARLIER ? / $ P RF(Z) WRT170 NO, SEND CHARACTER / B P LDK A4,/80 / j , P XRS A4,DWTDEV,A6 RESET SHIFT INDICATOR / ~ P LDR A4,A2 STORE CHAR. / P LDK A2,SI SEND SHIFT IN / P RF WRT130 / P* / . P
0x13fc48…13fddc Dummy {f00=0x004a, f01=0x0190, f02=» / l P LDK A4,/80 0 ( P ORS A4,DWTDEV,A6 INDICATE SHIFT OUT 0 P LDR A4,A2 STORE CHAR. 0 H P LDK A2,SO SEND SHIFT OUT 0 f * PWRT130 CF A5,OUTPUT SEND SHIFT CONTROL 0 P RF(NZ) ERGP04 JMP IF ERROR 0 P LDR A2,A4 RESTORE CHAR. 0 P RF WRT170 SEN
0x13fddc…13ff70 Dummy {f00=0x004a, f01=0x0190, f02=»RS A4,ECBRC,A8 0 P RB WRT020 1 PWRT160 LDK A2,/2E 1 ( PWRT170 LDR A4,A1 1 B & P ANK A2,/7F MASK,JUST 7 BIT CHAR. 1 Z P CF A5,OUTPUT SEND CHARACTER 1 & PERGP04 RF(NZ) ERGP06 JMP IF ERROR 1 . P IM DWTDEV+DWTCO1,A6 INC COLUMN COUNTER 1 1 P RB
0x13ff70…140104 Dummy {f00=0x004a, f01=0x0190, f02=»A5,RESREC RESET RECOVERY BIT 1 . P CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR 2 $ P ABL LENDIS END REQUEST 2 V P EJECT 2 v " P****************************** 2 P* 2 P* ORDER 05 : BASIC WRITE 2 P* 2 " P****************************** 2 PBA
0x140104…140298 Dummy {f00=0x004a, f01=0x0190, f02=» BLOCK LENGTH IN A2=144 2 P CF A5,STABLK START OF BLOCK 3 P RF(NZ) ERGP06 JMP IF ERROR 3 D & PBAS15 CF A15,GETCHR GET CHARACTER 3 h P LDR A1,A1 BUFFER FINISHED ? 3 P RF(Z) BAS25 YES 3 P CF A5,OUTPUT 3 P RF(NZ) ERGP06 JMP IF ERROR 3 P
0x140298…14042c Dummy {f00=0x004a, f01=0x0190, f02=»NZ) ERGP06 JMP IF ERROR 3 P RB BAS10 START NEXT BLOCK 4 $ PBAS25 CF A5,ENDBLK END OF BLOCK 4 B & PERGP06 ABL(NZ) ERGP15 JMP IF ERROR 4 j ( P ABL TSTSTA CHECK STATUS & END REQ. 4 P EJECT 4 P IFT SINHAN+FFDEV=1 4 2 P******************************
0x14042c…1405c0 Dummy {f00=0x004a, f01=0x0190, f02=»********************************************* 4 " PPOSDOC EQU * POSITION DOCUMENT 5 6 $ P CF A5,GTSTAT GET DEVICE STATUS 5 P LDR A1,A1 ERROR ? 5 $ P RF(NZ) POS040 ERROR INDICATION 5 & P LD A4,ECBCW,A8 GET REQUESTED LINE 5 P ANK A4,/FF 5 & P RF(
0x1405c0…140754 (1, 405) Dummy {f00=0x004d, f01=0x018e, f02=»EQ. LINE>MAX. LINE 5 P RF(G) POSERR YES 6 * P CF A5,KONVER CONVERT BINARY TO ASCII 6 4 . P ST A4,DWTDEV+DWTRLN,A6 SET REQUESTED LINE 6 b PPOS005 EQU * 6 P LDK A2,/15 BLOCK LENGTH 6 P CF A5,STABLK START OF BLOCK 6 P RF(NZ) ERGP08 JMP IF ERROR
0x140754…1408e8 Dummy {f00=0x004d, f01=0x018e, f02=» PPOS020 LDKL A2,CSVPA 7 P LDKL A3,DWTDEV+DWTRLN 7 P CF A5,SEND 7 > $ PPOS030 CF A5,ENDBLK END OF BLOCK 7 R & PERGP08 ABL(NZ) ERGP15 JMP IF ERROR 7 z P CF A5,GTSTAT GET STATUS 7 P RF(NZ) POS040 ERROR ? 7 . P LD A2,DWTDEV+DWTRLN,A6 GET REQ. LINE
0x1408e8…140a7c Dummy {f00=0x004d, f01=0x0190, f02=» P LDR A2,A1 GET RETURN CODE 8 " P ANKL A2,/100 PRINTER RESET ? 8 & P ABL(NZ) RCTP YES 8 L $ P CF A5,RESREC RESET RECOVERY BIT 8 f P ABL LENDIS END REQUEST 8 PPOSERR ABL LENDER 8 P XIF 8 P EJECT 8 0 P**************************************
0x140a7c…140c10 Dummy {f00=0x004d, f01=0x0190, f02=» EQU * 8 * PPRI07 LDK A3,/6 SET UP BRANCH POINTER 9 $ P LD A1,ECBCW,A8 GET CONTROL WORD 9 > PPRI10 LDR A4,A1 9 f P IFT SINHAN+FFDEV=1 9 ~ $ P LC A2,DWTOR+1,A6 GET DWT INDEX 9 P ANK A2,1 9 P RF(Z) PRI14 9 0 P ANK A4,/F CHECK IF NEW PARAM. V
0x140c10…140da4 Dummy {f00=0x004d, f01=0x0190, f02=» 9 ` , P ABI(NZ) PRITAB,A3 FRICTION/TRACTOR FEED : & PPRI15 SRL A1,4 GET NEXT PARAMETER : 8 4 PPRI16 CWK A3,0 FRI/TRA, ANY MORE PARAM. TO CHECK : b P RF(E) PRI17 NO, GO AND SEND : & PPRI18 SUK A3,2 TEST NEXT PARAMETER : P RB PRI10 : & PPRI17 LDR A4,P
0x140da4…140f38 Dummy {f00=0x004d, f01=0x0190, f02=»GET STATUS : P LDR A2,A1 GET RETURN CODE ; " P ANKL A2,/100 PRINTER RESET ? ; 4 P ABL(NZ) RCTP YES ; Z $ P CF A5,RESREC RESET RECOVERY BIT ; t P ABL LENDIS END REQUEST ; & P* STORE PARAMETERS, TRACTOR FEED ; 2 PPRI20 EQU * NCV= NATIONAL CHARACTE
0x140f38…1410cc Dummy {f00=0x004d, f01=0x0190, f02=»6 STORE IN DWT ; z P RB PRI15 < , PPRI30 EQU * SCM= SELECT CHARACTER MATRIX < ( P CWK A4,/9 < X P RF(G) PRI60 INDEX TOO HIGH < j P ORK A4,/30 ASCII < ( P SC A4,DWTDEV+DWTCMF,A6 STORE IN DWT < P RB PRI15 < PPRI40 EQU * PL= PAGE LENGTH <
0x1410cc…141260 Dummy {f00=0x004d, f01=0x0190, f02=»I15 < $ PPRI50 EQU * CD= CHARACTER PITCH = P CWK A4,/4 = 4 P RF(G) PRI60 INDEX TOO HIGH = F P ORK A4,/30 ASCII = j * P SC A4,DWTDEV+DWTCMF+1,A6 STORE IN DWT = P RB PRI17 = 2 P* STORE PARAMETERS, FRONT FEED/FRICTION FEED = P IFT SINHAN+FF
0x141260…1413f4 (1, 406) Dummy {f00=0x004d, f01=0x0190, f02=» ACCORDING TO INDEX = l ( P ST A4,DWTDEV+DWTDCS,A6 STORE IN DWT > P RB PRI15 > H , PFRO30 EQU * SCM=SELECT CHARACTER MATRIX > Z P CWK A4,/9 > P RF(G) PRI60 INDEX TOO HIGH > P ORK A4,/30 ASCII > ( P SC A4,DWTDEV+DWTCMT,A6 STORE IN DWT > P R
0x1413f4…141588 Dummy {f00=0x004d, f01=0x0190, f02=» ST A4,DWTDEV+DWTDL,A6 STORE IN DWT > P RB PRI15 ? , $ PFRO50 EQU * CD= CHARACTER PITCH ? > P CWK A4,/4 ? f P RF(G) PRI60 INDEX TOO HIGH ? x P ORK A4,/30 ASCII ? * P SC A4,DWTDEV+DWTCMT+1,A6 STORE IN DWT ? P RB PRI17 ? P XIF ? " PPRI60
0x141588…14171c Dummy {f00=0x004d, f01=0x0190, f02=»ETERS ? t P* @ 0 P******************************************** @ PFORPAR EQU * @ L P IFT FORMPA=1 @ ` , P LD A2,ECBCW,A8 GET CONTROL WORD, INDEX @ v P ANK A2,/F MASK @ P SUK A2,1 @ 8 P RF(Z) FOR020 HOPPER,HIGH SPEED OR LINE SPACE PARAM. @
0x14171c…1418b0 Dummy {f00=0x004d, f01=0x0190, f02=» ABL LENDER REQUEST ERROR,END OF REQ. @ P IFT FORMPA=1 A . 2 P* HOPPER, HIGH SPEED & LINE SPACE PARAMETERS A D P* A z " PFOR020 LDK A2,/E BLOCK LENGTH A P CF A5,STABLK START OF BLOCK A P ABL(NZ) ERGP15 JMP IF ERROR A $ P LD A4,ECBCW,A8 GET CO
0x1418b0…141a44 Dummy {f00=0x004d, f01=0x0190, f02=»WANTED A x P CWK A1,/8 B . P RB(G) FOR010 REQUEST ERROR, INDEX TOO BIG B P ADR A1,A1 ADJUST TABLE B R 6 P LD A1,LINTAB,A1 GET LINE SPACE ACCORDING TO TABLE B r ( P ST A1,DWTDEV+DWTLS,A6 STORE IN DWT B P LDKL A2,CSLSL B P LDKL A3,DWTDEV+DWTLS B
0x141a44…141bd8 Dummy {f00=0x004d, f01=0x0190, f02=»ETER B p " P RF(Z) FOR060 NO CHANGE WANTED C P SUK A1,1 C 2 P RF(NZ) FOR040 C D " P LDK A2,SM HIGH SPEED SELECTED C Z * P SC A2,DWTDEV+DWTHSP+1,A6 STORE IN DWT C P LDKL A2,CSSM C * P RF FOR050 SEND SELECT HIGH SPEED MODE C PFOR040 SUK A1,1 C
0x141bd8…141d6c Dummy {f00=0x004d, f01=0x0190, f02=»PEED C n PFOR050 LDKL A3,DWTDEV+DWTHSP D P CF A5,SEND D 0 PFOR060 EQU * D D P IFT SINHAN=1 D X P LDR A1,A4 GET CONTROL WORD D n P SRL A1,/C D $ P ANK A1,/F MASK HOPPER PARAMETER D " P RF(Z) FOR120 NO CHANGE WANTED D P SUK A1,1 D P RF(
0x141d6c…141f00 Dummy {f00=0x004d, f01=0x0190, f02=»ELECT HOPPER 2 D . PFOR075 ST A2,DWTDEV+DWTHOP,A6 STORE IN DWT E P LDKL A2,CSSM E H P RF FOR110 E ^ PFOR080 SUK A1,1 E p P RF(NZ) FOR090 E $ P LDKL A2,/316C DESELECT HOPPER 1 E P RF FOR095 E PFOR090 SUK A1,1 E P RB(NZ) FOR010 REQUEST E
0x141f00…142094 (1, 407) Dummy {f00=0x0054, f01=0x0190, f02=»A3,DWTDEV+DWTHOP E P CF A5,SEND SEND HOPPER MODE F P XIF F < P IFT FORMPA=1 F H P RF FOR120 END OF REQ. F ^ P* F | P* TABULATION PART F P* F PTAB010 EQU * F $ P LDK A3,0 SET UP BUFFER POINTER F & PTAB020 CF A15,GETCHR GET CHARACT
0x142094…142228 Dummy {f00=0x0054, f01=0x0190, f02=»NGTH F | P CF A5,STABLK START OF BLOCK G P RF(NZ) ERGP10 JMP IF ERROR G 0 " P ANK A4,1 SET OR CLEAR TABS. ? G T ( P RF(Z) TAB050 CLEAR ALL TABULATIONS G z 0 PTAB030 CF A15,GETCHR GET TABULATION POSITION G P LDR A1,A1 G P RF(Z) FOR120 END OF REQUEST
0x142228…1423bc Dummy {f00=0x0054, f01=0x018e, f02=»6 STORE TAB POS IN DWT G x P SRL A4,8 SHIFT RIGHT H 2 P SC A4,DWTDEV+DWTTAB+1,A6 STORE TAB POS IN DWT H < " P LDR A4,A3 KEEP COUNTER IN A4 H r P LDKL A2,CSHPA H P LDKL A3,DWTDEV+DWTTAB H ( P CF A5,SEND SEND HORIZONTAL POS ABS. H P LDKL A2,CSHTS H
0x1423bc…142550 Dummy {f00=0x0054, f01=0x0190, f02=» P LDK A3,/33 CLEAR ALL TABS I ( P SC A3,DWTDEV+DWTTAB,A6 STORE IN DWT I & P LDKL A2,CSTBC I R P LDKL A3,DWTDEV+DWTTAB I h * P CF A5,SEND CLEAR ALL TABULATION POS. I $ PFOR120 CF A5,ENDBLK END OF BLOCK I & PERGP10 ABL(NZ) ERGP15 JMP IF ERROR I ( P A
0x142550…1426e4 Dummy {f00=0x0054, f01=0x0190, f02=»38 : RELEASE DOCUMENT I P* J . P***************************************** J ( P IFT SINHAN+FFDEV=1 J Z PRELDOC EQU * J v P CF A5,GTSTAT GET STATUS J P LDR A2,A1 J P RF(NZ) REL20 ERROR ? J P LDK A2,/F BLOCK LENGTH J P CF A5,STABLK
0x1426e4…142878 Dummy {f00=0x0054, f01=0x0190, f02=»A5,SEND J ( P LDK A3,/F SET UP LINE FEED COUNTER K PREL10 LDK A2,LF LINE FEED K < P CF A5,OUTPUT K ^ P RF(NZ) ERGP14 JMP IF ERROR K t * P SUK A3,1 DECREMENT LINE FEED COUNTER K P RB(NZ) REL10 ANY MORE LF ? K P CF A5,ENDBLK END OF BLOCK K
0x142878…142a0c Dummy {f00=0x0054, f01=0x018e, f02=»DWTDEV+DWTRLN,A6 RESET REQUESTED LINE K . P CM DWTDEV+DWTCO1,A6 CLEAR COLUMN COUNTER L . P LDR A2,A1 GET RETURN CODE L ` & PREL20 ANKL A2,/100 PRINTER RESET ? L P ABL(NZ) RCTP YES L $ P CF A5,RESREC RESET RECOVERY BIT L P ABL LENDIS END REQUEST L
0x142a0c…142ba0 Dummy {f00=0x0054, f01=0x018e, f02=» : P* RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON M P* M B @ P************************************************************ M L PRCTP EQU * M * PRCTP07 LDKL A1,/7FFF SET DEVICE BUSY M P ANS A1,DWTST,A6 BUSY M P LDKL A5,DWTSB2 STACK BASE
0x142ba0…142d34 (1, 408) Dummy {f00=0x0054, f01=0x0190, f02=» 6 P CM DWTDEV+DWTSYST,A6 SET SYSTEM START INDICATOR N 0 P LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET N > * P CF A5,KONVER CONVERT BIANARY TO ASCII N r 2 P ST A4,DWTDEV+DWTDCS,A6 SET CHAR. SET DOCUMENT N 4 P ST A4,DWTDEV+DWTPCS,A6 SET CHAR. SET CONT.STAT. N
0x142d34…142ec8 Dummy {f00=0x0054, f01=0x0190, f02=»ONT.STAT. N h 6 P LDKL A4,DOCLEN GET STANDARD PAGE LENGTH DOCUMENT O * P CF A5,KONVER CONVERT BINARY TO ASCII O L 4 P ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH DOCUMENT O z 2 P LDKL A4,MATRIX GET STANDARD CHAR MATRIX FONT O P ORK A4,ZERO MAKE ASCII O 2 P
0x142ec8…14305c Dummy {f00=0x0054, f01=0x0190, f02=»RD CHAR DENSITY/PITCH O v P ORK A4,ZERO MAKE ASCII P 4 P SC A4,DWTDEV+DWTCMT+1,A6 STORE IN DWT (TRACTOR) P > 6 P SC A4,DWTDEV+DWTCMF+1,A6 STORE IN DWT (FRONT/FRI) P v , P CF A5,GTSTAT DUMMY ST., CLEAR RESET BIT P PRCTP10 EQU * P " P LDR A4,P GET PROGRA
0x14305c…1431f0 Dummy {f00=0x0054, f01=0x0190, f02=»T/FRI) P d , P LDKL A1,/20 INDICATE POWER OFF OCCURED Q P ORS A1,DWTDEV,A6 Q > $ P LD A1,DWTECB,A6 RUNNING REQUEST Q X , P ABL(NZ) ACT020 YES , REPEAT THE REQUEST Q PRCTP20 ABL LENDIS DISPATCH Q P EJECT Q @ P****************************************
0x1431f0…143384 Dummy {f00=0x0054, f01=0x0190, f02=» P* R : P* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER R P* R L P* AT EXIT A1 = RETURN CODE R V P* R x @ P************************************************************ R PGTSTAT EQU * R * P CM DWTDEV+DWTRC,A6 RESET RETURN CODE R P
0x143384…143518 Dummy {f00=0x0054, f01=0x0190, f02=»ORT R p " PGTST02 LCR A2,A3 GET CHARACTER S P ANK A2,/FF MASK S 2 P SLL A2,8 SHIFT LEFT S J * P RF(N) GTST04 END OF CONTROL SEQUENSE S f P SRL A2,8 SHIFT RIGHT S P CF A5,OUTPUT S P RF(NZ) ERGP14 JMP IF ERROR S P ADK A3,1 INCR. ADDRESS S
0x143518…1436ac Dummy {f00=0x0054, f01=0x0190, f02=»AVE DWTADDRESS S P LDKL A4,DWTDEV+DWTTP T P ADR A4,A6 TIMER T 4 & P CF A15,SETIMP SET TIMER, 10 SEC. T L * P DATA ERGP00,TIME RETURN ADDRESS,TIME T v ( PGTST05 LDKL A4,TAB GET TABLE ADDRESS T PGTST10 EQU * T P LDK A3,0 RESET INDEX T * P CF A5
0x1436ac…143840 Dummy {f00=0x0054, f01=0x0190, f02=» P LDR A7,A7 ORDER /00 ? U P RF(NZ) GTST15 NO U " " P CCK A2,/3B STRING SEPARATOR ? U < P RF(NE) GTST15 NO U b * P IM DWTDEV+DWTSER,A6 IND. STRING SEP. U | P LD A2,DWTDEV+DWTSER,A6 U ( P SUK A2,2 TWO SEPARATORS RECEIVED ? U & P RF(NZ) GTST30 NO,
0x143840…1439d4 (1, 409) Dummy {f00=0x0055, f01=0x0190, f02=»SERVICE STATUS U ~ . P LDKL A4,TAB+20 INCR. ADDR. TO SERV. STAT. V * PGTST15 LCR A3,A4 GET MASK RETURN CODE V H P ANR A2,A3 V v * P LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 V P LC A3,1,A4 A3 TIMES V $ P EXR A3 EXECUT SHIFT INSTRUCTION V P LDR A7,A7 ORD
0x1439d4…143b68 Dummy {f00=0x0055, f01=0x0190, f02=»N CONTR. WORD V p P RF GTST30 W > PGTST20 ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY W ( $ PGTST30 ADK A4,2 INCREMENT ADRESS W j ( P RB GTST10 GET NEXT STATUS CHARACTER W PGTSEND EQU * W * P LD A1,DWTDEV+DWTRC,A6 GET RETURN CODE W 0 P CM DWTD
0x143b68…143cfc Dummy {f00=0x0055, f01=0x0190, f02=»A6 RESET TIMER W ~ 2 PGTST40 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER X PGTST50 EQU * X L P RTN A5 X ` P EJECT X p @ P************************************************************ X ~ P* X : P* THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE X
0x143cfc…143e90 Dummy {f00=0x0055, f01=0x018e, f02=» X PKONVER EQU * Y P* BINARY TO DEC. Y P LDK A2,0 CLEAR A2 Y 4 P CWK A4,100 VALUE > 100 ? Y N P RF(L) KONV05 NO Y p P SUKL A4,100 Y & P LDKL A2,/100 LEFT BYTE OF A2=X=1 Y * PKONV05 CWK A4,10 ARE THERE ANY TENS ? Y P RF(L) KONV04 NO Y
0x143e90…144024 Dummy {f00=0x0055, f01=0x0190, f02=» P ORK A4,/30 Z IN A4 Z P SRC A2,8 YX IN A2 Z P LDR A1,A2 Z : P ANKL A1,/FF00 KEEP Y IN A1 Z L . P ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII Z p P ORR A4,A1 YZ IN A1. ASCII Z P RTN A5 Z P EJECT Z P************************* Z P* RE
0x144024…1441b8 Dummy {f00=0x0055, f01=0x0190, f02=». Z . P XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT [ 2 P ORKL A1,/100 INDIC. RECOV. IN RET. CODE BIT7 [ < PRESRTN RTN A5 RETURN [ r P* [ P* [ 6 P************************************************** [ P* [ . P* ERROR ROUTINE FOR STABLK,OUTPUT,
0x1441b8…14434c Dummy {f00=0x0055, f01=0x0190, f02=»POINTER [ p P RF ERGP20 PERGP15 EQU * " 0 P ANK A1,/1A OUTP. ERR, SOFTW. T-OUT,LRC-ERR 6 P ABL(NZ) RCTP YES, RECOVERY j PERGP17 EQU * P IFF REQEND=1 P ABL LDISP DISPATCH P XIF $ PERGP20 LDK A1,1 SET NOT OPERABLE $ P
0x14434c…1444e0 Dummy {f00=0x0055, f01=0x0190, f02=»D P* ] , P* THIS ROUTINE SENDS AN CONTROL SEQUENCE ] P* TO THE PRINTER ] D P* ] P* ] f P* AT ENTRY : ] p " P* A2 = CONTROL SEQUENCE ADRESS ] 4 P* A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC ] P* ] P* ] P* AT EXIT : ]
0x1444e0…144674 (1, 410) Dummy {f00=0x0055, f01=0x0190, f02=»T-DISPLACEMENT ] p 4 P ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS ^ PSEND10 EQU * ^ N 8 P LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS ^ b P LCR A2,A3 GET CHARACTER ^ P ANK A2,/FF MAKE CHARACTER ^ & P SLL A2,8 END OF CONTROL SEQUENCE ^
0x144674…144808 Dummy {f00=0x0055, f01=0x018e, f02=»TER ^ p P CF A5,OUTPUT SEND CHARACTER _ P RB(NZ) ERGP15 JMP IF ERROR _ 0 PSEND20 EQU * _ T 4 P IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS _ h P RB SEND10 GET NEXT _ PSEND30 EQU * _ 2 P LD A3,DWTDEV+DWTDISP,A6 GET DWT-DISPLACEMENT _ P A
0x144808…14499c Dummy {f00=0x0055, f01=0x0190, f02=» 2 P IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS ` P RB SEND20 GET NEXT ` : PSENDEND EQU * ` V P RTN A5 ` l P EJECT ` | @ P************************************************************ ` P* ` P* SENPAR ` P* ` B P* THIS ROUTINE SENDS
0x14499c…144b30 Dummy {f00=0x0055, f01=0x0190, f02=»GP15 JMP IF ERROR ` P IFT SPEEDY=1 a P LDKL A2,CSSM a 0 P LDKL A3,DWTDEV+DWTHSP a F & P CF A5,SEND SEND SELECT HIGH SPEED a d P XIF a P IFT SINHAN+FFDEV=1 a " P LC A2,DWTDEV,A6 GET DWTINDEX a P ANK A2,1 a P RF(NZ) SEN10 a P XIF
0x144b30…144cc4 Dummy {f00=0x0055, f01=0x0190, f02=» SELECTED PAGE LENGTH a P LDKL A2,CSSNV b P LDKL A3,DWTDEV+DWTPCS b 4 , P CF A5,SEND SEND NATIONAL CHAR VARIATION b R P LDKL A2,CSCPL b P LDKL A3,DWTDEV+DWTCMF b * P CF A5,SEND SEND CHAR. MATRIX & PITCH b P RF SEN20 b P* b P IFT SIN
0x144cc4…144e58 Dummy {f00=0x0055, f01=0x0190, f02=» IFT SINHAN+FFDEV=1 b P LDKL A2,CSSLPL c P LDKL A3,DWTDEV+DWTDL c 4 * P CF A5,SEND SEND SELECTED PAGE LENGTH c R P LDKL A2,CSSNV c P LDKL A3,DWTDEV+DWTDCS c , P CF A5,SEND SEND NATIONAL CHAR VARIATION c P LDKL A2,CSCPL c P LDKL A3,DWTDE
0x144e58…144fec Dummy {f00=0x0055, f01=0x0190, f02=»ERROR c z P ABR A4 RETURN d P* d $ P EJECT d . 2 P********************************************** d < P* d r > P* THIS ROUTINE SENDS A CONTR. SEQ. WITHOUT DWT REFERENCE d | , P* AT ENTRY : A3= CONTROL SEQ, ADDRESS d P* d PSEN40 LCR A2,A3
0x144fec…145180 Dummy {f00=0x0055, f01=0x0190, f02=»PUT d P RB(NZ) ERGP16 JMP IF ERROR e P ADK A3,1 INCR. ADDRESS e 0 P RB SEN40 GET NEXT CHAR. e P * PSEN50 RTN A5 RETURN & SEND PARAMETERS e p P EJECT e @ P************************************************************ e P* e P* BINARY e
0x145180…145314 (1, 411) Dummy {f00=0x0055, f01=0x0190, f02=»RK REGISTER e P* A3= BINARY OUTPUT f P* f 0 P* f : P* f D PBINARY SUR A3,A3 CLEAR A3 f N P LDR A2,A1 MAX. LINE ASCII f p P SRL A2,8 f P SUK A2,/30 f P ADR A3,A2 f P ADR A3,A2 f P SLL A2,3 f P ADR A3,A2 f P ANK A1,
0x145314…1454a8 Dummy {f00=0x0055, f01=0x0190, f02=»4 f z " P DATA /3235,/3330,/3333,/3335 g " P DATA /3336,/3438,/3530,/3531 g 0 " P DATA /3630,/3636,/3730,/3732 g V P* g | P* g P* g P* g 6 PNCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE g " P DATA /3031,/3032,/3033,/3034 g " P DAT
0x1454a8…14563c Dummy {f00=0x0055, f01=0x0190, f02=»REPORT FROM PRINTER g p P DATA /C0,/C0,/C0,/2CC * h P DATA /2CF,/1C8,/C0,/C0 * h > P DATA /C0,/C0,/FC8,/FC0 h ` P DATA /C0,/C0 h , PPRITAB EQU * BRANCH ADDRESSES ORDER /24 h P DATA PRI50 h P DATA PRI40 h P DATA PRI30 h P DATA
0x14563c…1457d0 Dummy {f00=0x0055, f01=0x40b2, f02=»FRO30 h P DATA FRO20 i P XIF i " $ PLINTAB EQU *-2 LINE SPACE TABLE i . ( P DATA /3033,/3034,/3036,/3038,/3132 i V P DATA /3136,/3234,/3438 i P END i @ i S ORDER /24 h P DATA PRI50 h P DATA PRI40 h P DATA PRI30 h P DATA
0x1457d0…145964 Dummy {f00=0x0055, f01=0x4008, f02=»@ j @
0x145964…145af8 Dummy {f00=0x0055, f01=0x2008, f02=» k * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x145af8…145c8c Dummy {f00=0x0055, f01=0x0190, f02=»LRC-ERROR k x PDRQT20 EQU * l P XIF l & P IFF SOFTIM+RECHAN=0 U =4 l 2 ( P ABL CLT107 RETURN TO DEVICE DRIVER l T P XIF U =4 l P EJECT l P* l P* N A K l P* l 8 P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS l 8 P* U
0x145c8c…145e20 Dummy {f00=0x0055, f01=0x018e, f02=»OT OPERABLE IS SENT TO DEVICE DRIVER. l ~ P* m . PCLT080 EQU * m 8 $ P LDR* A6,A5 GET LAST OUTPUT DWT m L P RB(E) EXIT m t P* m P IFT ACKMUL=1 m P* m * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR m P* m P XIF m P* m P IFF REC
0x145e20…145fb4 (1, 412) Opaque[0x194]
0x145fb4…146148 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0358, f03=0x0000}
0x145fb4…146148 IdxSect {
0x145fb4…146148 f00 = 0x001a // 0x145fb4 @0x0
0x145fb4…146148 f01 = 0x0024 // 0x145fb6 @0x2
0x145fb4…146148 gno = [ // 0x145fb8 @0x4
0x145fb4…146148 [0x00]: C0x001a.0x3.0
0x145fb4…146148 [0x01]: C0x001b.0x0.0
0x145fb4…146148 [0x02]: C0x001b.0x1.0
0x145fb4…146148 [0x03]: C0x001b.0x2.0
0x145fb4…146148 [0x04]: C0x0058.0x1.0
0x145fb4…146148 [0x05]: C0x0059.0x0.0
0x145fb4…146148 [0x06]: C0x0059.0x3.0
0x145fb4…146148 [0x07]: C0x005a.0x0.0
0x145fb4…146148 [0x08]: C0x005a.0x1.0
0x145fb4…146148 [0x09]: C0x005b.0x1.0
0x145fb4…146148 [0x0a]: C0x005b.0x2.0
0x145fb4…146148 [0x0b]: C0x005b.0x3.0
0x145fb4…146148 [0x0c]: C0x005c.0x0.0
0x145fb4…146148 [0x0d]: C0x005c.0x1.0
0x145fb4…146148 [0x0e]: C0x005c.0x2.0
0x145fb4…146148 [0x0f]: C0x005c.0x3.0
0x145fb4…146148 [0x10]: C0x005d.0x0.0
0x145fb4…146148 [0x11]: C0x005d.0x1.0
0x145fb4…146148 ]
0x145fb4…146148 }
0x146148…1462dc Dummy {f00=0x001a, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 11.0 81-04-14 870105041100 P : P =8, REL 11.0 81-02-27 B < P =8, IBM ,MMU AND IO TO SYSTEM AREA NO CODE CONVERSION b P =7, REL 11.0 81-02-23 8 P =7, CRN UPDATED EVEN IF ERROR FOR SEQUENTIAL READ P =6, REL
0x1462dc…146470 Dummy {f00=0x001a, f01=0x0190, f02=»CHANGED CORRRECT z P =4, REL 11.0 81-02-18 * P =4, IBM VOLUME NAME NOT READ TO DWT 8 P =3, REL 11.0 81-01-27 f 8 P =3, IBM,LOAD ORDER, DATA SET SECTOR NBR IN ECBCW1 P =2, REL 11.0 81-01-26 . P =2, NOT OP. GIVEN IF WRONGLY STRAPT
0x146470…146604 Dummy {f00=0x001a, f01=0x0190, f02=» P* " P* PHILIPS TERMINAL SYSTEM PTS P* 4 ( P* DRFD01 = DRIVER FOR FLEXIBLE DISK > P* j P* t P* ~ P* P* P* 2 P********************************************* P* P* 0 P* THIS DISK DRIVER HAND
0x146604…146798 Dummy {f00=0x001a, f01=0x0190, f02=»TIPLEX OR PROGRAMMED CHANNEL P* $ P* . P EJECT DRFD01 8 P* P P* ORDERS: Z P* l P* /00 TEST STATUS v P* /01 PHYSICAL READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- P* /05 BASIC WRI
0x146798…14692c Dummy {f00=0x001a, f01=0x018e, f02=» x P* /21 OPEN P* /22 CLOSE P* /24 WRITE DELETED DATA 0 P* /26 LOCK T D P* /31 REWIND -IBM DISC ONLY- j P* /37 LOAD P* /38 UNLOAD P* P* ENTRY PARAMETERS: P*
0x14692c…146ac0 Dummy {f00=0x001a, f01=0x0190, f02=» P* P*********** P* * " P* ENTRIES * 6 P* * J P*********** ^ P* r $ P ENTRY FDADR ACTIVATION ADDRESS | " P ENTRY IHFD INTERRUPT HANDLER P ENTRY FDON RECOVERY ROUTINE P ENTRY DWFD01 DWT-ADDRESS
0x146ac0…146c54 (1, 413) Dummy {f00=0x001b, f01=0x0190, f02=»******* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO : P EXTRN DISIOE REQUEST ERROR V * P EXTRN DISEND PERFORM TENDIO AND TDISP z $ P EXTRN VOLCLR CLEAR VOLUME NAME & P EXTRN VOLNAM VOLUME NAME ADDRESS 0 P EXTRN VOLGET
0x146c54…146de8 Dummy {f00=0x001b, f01=0x0190, f02=»DRESS | " P EXTRN DWTUEC USER ECB ADDRESS $ P EXTRN DWTOR DWT INDEX AND ORDER 4 ( P EXTRN DWTORD ORDER/INDEX SAVE AREA P EXTRN DWTTAB TTAB ADDRESS P EXTRN DWTA2 SAVE AREA A2 & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN TTB:MT MMU
0x146de8…146f7c Dummy {f00=0x001b, f01=0x0190, f02=»FPOST PWF POST PROC. FLAG & P EXTRN TASCII EBCDIC TO ASCII TAB " & P EXTRN TEBCDIC ASCII TO EBCDIC TAB L 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE v $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL
0x146f7c…147110 Dummy {f00=0x001b, f01=0x0190, f02=» P************************ P* * ( P* CONDITIONAL ASSEMBLY * H P* * h P************************ P* . P* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED P* CHANNEL BY SETTING X:A = 0 P
0x147110…1472a4 Dummy {f00=0x001b, f01=0x0190, f02=»OSS EQU 1. v P* PX:B EQU 0 PTOSS EQU 0 . P* @ 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT J ( P* IS OBTAINED BY SETTING IBM EQU 1. P* PX:C EQU 0 PIBM EQU 0 P* . P* A PROGRAM VERSION USING TOSS MMU P
0x1472a4…147438 Dummy {f00=0x001b, f01=0x0190, f02=»THE EXTENDED INSTRUCTION v . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* R PCPU852 EQU 0 P* p P EJECT DRFD01 z P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE UNIT CA
0x147438…1475cc Dummy {f00=0x001b, f01=0x018e, f02=» P* MMU BUFFER SIZE P* $ P* . P IFT MMUPAG=0 8 PDVBLEN EQU 256 N P XIF d P* p P IFT MMUPAG=1 z PX:E EQU 256 PDVBLEN EQU 256 P XIF P* P* P* MMU DEVICE INDEX P* P*
0x1475cc…147760 Dummy {f00=0x001b, f01=0x0190, f02=» P* * P************* P* 0 & PCUADR EQU 09 CONTROL UNIT ADDRESS : & PMUXADR EQU CUADR+CUADR MUX-ADDRESS d ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS PSECLEN EQU 128 SECTOR LENGTH & PMAXSEC EQU 2002 MAX SECTOR NUMBER . P
0x147760…1478f4 (1, 414) Dummy {f00=0x001b, f01=0x0190, f02=»EOD EQU 74 END OF DATA POSITION PTIME EQU 20 DELAY - POWER ON ( & POPENTI EQU 10 DELAY AT OPEN ORDERS L P* v $ PDIXTAB EQU * DOUBLE INDEX TABLE P DATA /0102 P DATA /0408 P* P EJECT DRFD01 P* P**********
0x1478f4…147a88 Dummy {f00=0x001b, f01=0x0190, f02=»BUFFER SIZE x P XIF P* P IFT CHAN=0 * P IFT IBM=0 > " P DATA 0 INDICATE NO MMU BUFFER P P XIF v P* P DATA DEVIND DEVICE INDEX & PFDADR DATA FDAD ACTIVATION ADDRESS " P DATA 0 ABORT ROUTINE ADDRESS P* P
0x147a88…147c1c Dummy {f00=0x001b, f01=0x0190, f02=»********* P* PTESTST EQU * P IFF IBM+TOSS=0 0 P CF A15,NVLCHK H " P STR A1,A6 SAVE NVL INDICATOR ^ P XIF P* P LDKL A2,/FFF9 BIO DUMMY P CF A5,FD:WRI P ANK A1,1 $ P RF(NZ) DIS:EN DISC NOT OPERABLE *
0x147c1c…147db0 Dummy {f00=0x001b, f01=0x0190, f02=» , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 4 P CF A15,VOLNAM L P RF FORM70 END:IO b P XIF | P* P IFT TOSS+IBM=0 P ABL END:RC P XIF P* P EJECT DRFD01 P* P********************
0x147db0…147f44 Dummy {f00=0x001b, f01=0x0190, f02=» PFORMAT EQU * P CF A15,NVLCHK P ADK A1,0 . , P RF(NZ) DIS:EN ERROR: NEW VOLUME LOADED @ P LDK A2,36 CLEAR VOLUME NAME p PFORM10 EQU * P CM BUF,A2 P SUK A2,2 P RB(NN) FORM10 . P CF A15,VOLCLR CLEAR VOLUME NAME FROM
0x147f44…1480d8 Dummy {f00=0x001b, f01=0x0190, f02=»RM50 IBM DISC , P LDKL A1,'TO' WRITE TOSS IN VOLUME LABEL P ST A1,BUF+32 F P LDKL A1,'SS' P ST A1,BUF+34 r P IFT IBM=1 " P C1 A1,DWTA3,A6 INDICATE TOSS P ANS A1,DWTLAB,A6 P XIF P RF FORM60 P* P EJECT
0x1480d8…14826c Dummy {f00=0x001b, f01=0x0190, f02=»,/E5D6 VO IN EBCDIC P STR A1,A4 P LDKL A1,/D3F1 L1 IN EBCDIC . P ST A1,BUF+2 R P IFT IBM=1 f P LD A1,DWTA3,A6 INDICATE IBM x P ORS A1,DWTLAB,A6 P XIF P LDK A2,/31 BIO P LDK A3,36 LENGTH PFORM60 EQU * P
0x14826c…148400 Dummy {f00=0x001b, f01=0x0190, f02=» * P* ACTIVATION * P* * $ P************** : P* P PFDAD EQU * ACTIVATION ENTRY Z P IFT MMUPAG=1 ~ P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWTOR
0x148400…148594 (1, 415) Dummy {f00=0x001b, f01=0x0190, f02=»* P IFT OPCLOS=1 P* & P* CHECK IF OPEN OR CLOSE ORDER * P* T P LDR A1,A7 ORDER ^ P SUK A1,/21 v P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P*********
0x148594…148728 Dummy {f00=0x001b, f01=0x0190, f02=» ` 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* > " P LDKL A1,/8000 MASK FOR BIT 0 H & P ORS A1,SPDLCI SET OPEN/CLOSE BIT n P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P* *
0x148728…1488bc Dummy {f00=0x001b, f01=0x0190, f02=» P* POPEN EQU * " P LD A1,DWTTP2,A6 TIMER POINTER P RF(NZ) OPEN20 TIMER ACTIVE F " P LDKL A1,/7FFF MASK FOR BIT 0 j ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT P* POPEN10 EQU * 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA
0x1488bc…148a50 Dummy {f00=0x001b, f01=0x0190, f02=»ER OFFSET v ( P ADR A4,A6 A4:=TIMER POINTER ADDRESS P LDR A1,A6 SAVE DWT-ADDR > P CF A15,SETIMP WAIT ^ . P DATA OPENRE,OPENTI START ADDR, WAIT TIME z POPEN20 EQU * P ABL TDISP EXIT P* POPENRE EQU * P LDR A6,A1 GET DWT
0x148a50…148be4 Dummy {f00=0x001b, f01=0x018e, f02=» XIF P* P EJECT P* $ & P* PUT DRIVE NO IN CIO-INSTRUCTION . P* X PFD:ORD EQU * b P LC A2,DIXTAB,A3 v , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK P* P IFT IBM+TOSS=2 P AN A2,DWTLAB,A6 ( P SC A2,DWTFIB+1,
0x148be4…148d78 Dummy {f00=0x001b, f01=0x0190, f02=» P LDR A3,A7 P RB(Z) TESTST TEST STATUS P* 8 P IFT IBM=0 B P SUK A3,31 T P RB(Z) FORMAT FORMAT VOLUME f P SUK A3,7 " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 P ABL(NP) LOAD LOAD/UNLOAD P XIF P*
0x148d78…148f0c Dummy {f00=0x001b, f01=0x018e, f02=»3 P RF(Z) INTEST BASIC WRITE P SUK A3,1 , " P RF(Z) IBMCHK SEQUENTIAL WRITE > P SUK A3,25 d P RB(Z) FORMAT FORMAT VOLUME v P SUK A3,7 & P RF(N) INTEST PHYSICAL READ/WRITE P SUK A3,11 P RF(Z) IBMCHK REWIND P SUK
0x148f0c…1490a0 Dummy {f00=0x001b, f01=0x0190, f02=» & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF . P* : P IFT TOSS=0 D P IFT IBM=1 X " P ABL IBMDSK IBM DISC HANDLING j P XIF P* P EJECT DRFD01 P* P* $ PREQERR ABL DISIOE REQUEST ERROR P* 0 PINCLEN
0x1490a0…149234 (1, 416) Dummy {f00=0x0058, f01=0x0190, f02=» AND GO TO TDISP v P* P EJECT DRFD01 " P* 8 P* INPUT PARAMETER CHECK B P* b PINTEST EQU * l P IFF TOSS+IBM=0 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED P ADK A1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED P XIF
0x149234…1493c8 Dummy {f00=0x0058, f01=0x0190, f02=»N+DVBLEN CHECK MMU BUFFER SIZE P CWK A2,512 & P RF(NL) INTES3 SUFFICIENT : P CWR A3,A2 & P RB(G) INCLEN MMU BUFFER TOO SMALL n PINTES3 EQU * P XIF ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAME
0x1493c8…14955c Dummy {f00=0x0058, f01=0x0190, f02=»* P IFT IBM+TOSS=2 P LD A4,DWTFIB,A6 " P RF(NZ) INTES5 IBM-DISC : P XIF Z P* f P IFT TOSS=1 p P LDR A4,A3 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL 6 P S
0x14955c…1496f0 Dummy {f00=0x0058, f01=0x0190, f02=» * P LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER ! P RB(N) REQERR REQUEST ERROR ! 2 P SUKL A4,MAXSEC ! V P RB(NN) REQERR REQUEST ERROR ! n P ADR A4,A3 ! " P RB(P) INCLEN INCORRECT LENGTH ! , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS ! 2 P ST A2,DWTCW2,
0x1496f0…149884 Dummy {f00=0x0058, f01=0x0190, f02=» MMUPAG=1 ! P LCR A2,A8 " P ANK A2,/30 " $ 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS " 8 P XIF " p P* " | P EJECT DRFD01 " P* " P* MULTIPLE SECTOR IO ENTRY " P* " PFD:000 EQU * " P IFT MMUPAG=1 " P IFT CHAN=
0x149884…149a18 Dummy {f00=0x0058, f01=0x018e, f02=»UK A3,4 " & P RF(NN) FD:005 FOUR PHYS. SEC. IO # P* # : PFD:003 SUK A2,128 # D P SUK A4,1 # ^ P ADK A3,1 # p P RB(NZ) FD:003 # P* # PFD:005 EQU * # . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC # ( P ST A2,DWTRL,A6 UPDATE DWTRL FOR
0x149a18…149bac Dummy {f00=0x0058, f01=0x018e, f02=» P IFF CHAN+IBM=0 $ " P LD A2,DWTBA,A6 BUFFER ADDRESS $ P LD A1,DWT:BF,A6 $ B , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA $ Z P LDR A3,A2 $ P RF(NN) FD:009 $ 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED $ P RF(N) FD:009 NO $ P* $
0x149bac…149d40 Dummy {f00=0x0058, f01=0x0190, f02=» $ P ORR A1,A3 % 2 P SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS % ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY % P P SC A1,DWT:PA+2,A6 % | P ANKL A2,/FFF % P LDR A1,A2 % ( P ORK A1,1 INDICATE ADDRESS NOT ZERO % P* % 8 PFD:009 ST A1,DWT:LA,
0x149d40…149ed4 (1, 417) Dummy {f00=0x0059, f01=0x0190, f02=»R % P SUK A1,1 & P RF(Z) FD:060 BASIC READ & P SUK A1,4 & < P RF(Z) FD:015 BASIC WRITE & N P SUK A1,12 & p P RF(Z) FD:060 PHYSICAL READ & P SUK A1,4 & P RF(Z) FD:013 PHYSICAL WRITE & * P SUK A1,15 CHECK IF WRITE DELETED DATA &
0x149ed4…14a068 Dummy {f00=0x0059, f01=0x018e, f02=»ASIC WRITE ORDERS & j P* ' & P LDK A4,1 WRITE DELETED DATA ORDER ' $ & PFD:013 EQU * PHYSICAL WRITE ORDER ' N P ADK A4,4 ' x " PFD:015 EQU * BASIC WRITE ORDER ' P ADK A4,1 ' " P CF A5,BIO PREPARATION FOR CIO ' P* ' P IFT MMUPAG=1 ' P
0x14a068…14a1fc Dummy {f00=0x0059, f01=0x0190, f02=» ' P IFF CHAN+IBM=0 ( 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA ( X P LDR A7,A3 REQUESTED LENGTH ( P LDR A8,A2 SAVE A2 ( & P LDKL A4,BUF DRIVER BUFFER ADDRESS ( P LDR A2,A4 ( & P TS -30,A1
0x14a1fc…14a390 Dummy {f00=0x0059, f01=0x0190, f02=»0,A15 RESTORE MMU FROM STACK ( P LDR A2,A8 RESTORE A2 ) $ 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA ) B PFD:019 EQU * ) v P XIF ) P* ) P IFT TOSS+IBM=2 ) P LD A1,DWTFIB,A6 ) P RF(Z) FD:018 NOT IBM ) P XIF ) P* ) P IFT
0x14a390…14a524 Dummy {f00=0x0059, f01=0x0190, f02=»RFD01 ) P* * P* * " P CF A5,FD:WRITE PERFORME WRITE * " * P ANKL A3,/200 CHECK IF WRITE PROTECTED * H P RF(Z) FD:020 * v P LDK A3,/40 INDICATE ERROR * , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE * PFD:020 EQU * * P RF FD:100 GOTO FDMSIO
0x14a524…14a6b8 Dummy {f00=0x0059, f01=0x0190, f02=» * * P***************** + P* + . PFD:060 CF A5,BIO + 8 P* + P P IFT MMUPAG=1 + Z P IFT CHAN=0 + p P IFT TOSS+IBM=2 + P LD A1,DWTFIB,A6 + P RF(Z) FD:070 TOSS DISC + & P LDKL A4,BUF DRIVER BUFFER ADDRESS + 0 P CM BUFFLG
0x14a6b8…14a84c Dummy {f00=0x0059, f01=0x0190, f02=»:LA,A6 + ( P RF(Z) FD:080 BUFFER IN SYSTEM AREA , & P LDKL A4,BUF DRIVER BUFFER ADDRESS , : 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA , d P XIF , P* , P IFT MMUPAG=1 , P IFT IBM=1 , P IFT TOSS+CHAN=0 , & P LDKL A4,BUF DRIVER BUFFER
0x14a84c…14a9e0 Dummy {f00=0x0059, f01=0x0190, f02=» , v P* - P IFT TOSS+IBM=2 - P LD A1,DWTFIB,A6 - * P RF(Z) FD:090 NOT IBM - B P XIF - ` P* - l P IFT IBM=1 - v P IFT MMUPAG=0 - ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS - P XIF - P* - P IFT IBM=1 - P LD A7,DWTRL,A6 REQ. L
0x14a9e0…14ab74 (1, 418) Dummy {f00=0x0059, f01=0x0190, f02=»6 BUFFER ADDRESS =8 - * P CF A5,ASC:00 CONVERT EBCDIC-ASCII =8 . P RF FD:090 =8 . J PFD:085 EQU * =8 . ` P XIF =8 . x P IFT IBM=1 =8 . P CF A5,ASCII =8 . PFD:090 EQU * . P XIF . P* . P EJECT DRFD01 . P* . P* .
0x14ab74…14ad08 Dummy {f00=0x0059, f01=0x0190, f02=» P* / P IFT MMUPAG=1 / P IFF CHAN+IBM=0 / $ 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS / < ( P RF(Z) FD:100 BUFFER IN SYSTEM AREA / t $ P LD A7,DWTRL,A6 REQUESTED LENGTH / ( P LDKL A1,BUF GET DWT BUFFER ADDRESS / & P TS -30,A15 SAVE RUN
0x14ad08…14ae9c Dummy {f00=0x0059, f01=0x018e, f02=»ORE MMU FROM STACK / P XIF 0 PFD:100 EQU * 0 & P ABL FDMSIO 0 : P* 0 N P EJECT DRFD01 0 X P* 0 p P******** 0 z P* * 0 P* LOAD * 0 P* * 0 P******** 0 P* 0 PLOAD EQU * 0 P ADK A3,0 CHECK ORDER CODE 0 P
0x14ae9c…14b030 Dummy {f00=0x0059, f01=0x0190, f02=» 0 n P* 1 PLOAD00 EQU * 1 P LDK A2,/14 LOCK 1 & P CF A5,FD:REA 1 > P ANK A3,1 1 T & P RF(NZ) LOA:80 ENDIO NOT OPERABLE 1 f P* 1 P IFT TOSS+IBM=2 1 P LD A1,DWTFIB,A6 1 P RF(Z) LOA:70 TOSS DISC 1 P XIF 1 P* 1 P IFT IBM
0x14b030…14b1c4 Dummy {f00=0x0059, f01=0x0190, f02=»CK RETURN CODE 1 P EJECT DRFD01 2 P* 2 . P* READ DATA SET LABEL 2 8 P* 2 V & P LD A2,ECBCW1,A8 SECTOR NUMBER =3 2 ` P SUK A2,7 2 P RF(N) LOA:85 REQUEST ERROR 2 P SUK A2,18 2 P RF(P) LOA:85 REQUEST ERROR 2 P ADK A2,25 2 P
0x14b1c4…14b358 Dummy {f00=0x0059, f01=0x0190, f02=»A:60 NOT NO DATA 2 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL 3 PLOA:60 EQU * 3 L P CF A5,LD:RC 3 ` P ENB 3 t . P LD A3,ECBCW1,A8 DATA SET LABEL SECTOR =3 3 P LDK A1,DWTDSS 3 P CF A5,STDWT SAVE IN DWT 3 P ADK A4,BOE BOE ADDRESS 3 . P
0x14b358…14b4ec Dummy {f00=0x0059, f01=0x018e, f02=»DK A1,DWTCRN 3 P CF A5,STDWT 4 P ADK A4,EOE-BOE EOE ADDRESS 4 ( P CF A5,LOGSEC 4 L P LDK A1,DWTEOE 4 b $ P CF A5,STDWT STORE EOE NO IN DWT 4 x P ADK A4,EOD-EOE EOD ADDRESS 4 P CF A5,LOGSEC 4 F P INH INHIBIT INTERRUPTS
0x14b4ec…14b680 Dummy {f00=0x0059, f01=0x0190, f02=» 4 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE 5 P* 5 8 PLOA:70 EQU * 5 B P XIF 5 V P LD A2,DWTA3,A6 5 b " P ORS A2,DWTLC,A6 INDICATE LOCK 5 z PLOA:80 EQU * 5 P ABL END:RC 5 P* 5 P IFT IBM=1 5 PLOA:85 EQU * 5 P LDK A1,/80 REQU
0x14b680…14b814 (1, 419) Dummy {f00=0x005a, f01=0x0190, f02=» TOSS+IBM=0 5 P* 6 P* ERROR , UNLOCK 6 P* 6 8 PLOA:90 EQU * 6 B P LDR A5,A6 6 V P ADKL A5,DWTSB2 STACK BASE 6 h P LDK A2,/C UNLOCK 6 P CF A5,FD:REA 6 P RB LOA:80 6 P* 6 P* LD:RC SUBROUTINE 6 P* 6 PLD:RC EQU
0x14b814…14b9a8 Dummy {f00=0x005a, f01=0x0190, f02=» 6 P EJECT DRFD01 7 P* 7 P********** 7 * P* * 7 < P* UNLOAD * 7 N P* * 7 ` P********** 7 r P* 7 PUNLOAD EQU * 7 P IFT IBM=1 7 P* 7 P* DATA SET OPEN 7 P* 7 P CF A5,DSOPCH A1,AFFECTED 7 P ADK
0x14b9a8…14bb3c Dummy {f00=0x005a, f01=0x0190, f02=»DATA SET LABEL TO DRIVER BUFFER 7 P* 8 ( P CF A5,DSLIO PREPARE FOR I/O 8 2 & P CF A5,FD:REA READ DATA SET LABEL 8 V $ P CF A5,UNL:RC RETURN CODE CHECK 8 P ENB 8 P* 8 < P* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) 8 P* 8 P
0x14bb3c…14bcd0 Dummy {f00=0x005a, f01=0x0190, f02=»0 8 P ADK A1,1 9 P RB UNL:10 9 P* 9 . P EJECT DRFD01 9 8 P* 9 P P* 9 Z PUNL:20 ADK A7,27 9 d P* 9 | P* A1 = BINARY TRACK NO 9 * P* A7 = SECTOR NO WITHIN TRACK (0-25) 9 P* 9 ( P CF A5,BINDEC TRANSFORM SEC.NO TO A3 9 (
0x14bcd0…14be64 Dummy {f00=0x005a, f01=0x018e, f02=» 9 v P LDR A7,A1 TRACK : ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 : P SUK A4,3 : L P STR A3,A4 TRACK INTO BUF : ^ F P INH INHIBIT INTERRUPTS INHIBIT : P* : P* WRITE DATA SET LABEL : P* : P CF A5,DSL
0x14be64…14bff8 Dummy {f00=0x005a, f01=0x0190, f02=» : n P CF A5,DSOPCH ; P CMR A2 INDICATE NOT OPEN ; P* ; @ P EJECT DRFD01 ; J P* ; b P* UNLOCK ; l P* ; P XIF ; PUNL:70 EQU * ; P LDK A2,/C UNLOCK ; P CF A5,FD:REA ; P ANK A3,1 ; P RB(NZ) LOA:80 NOT OPERABLE
0x14bff8…14c18c Dummy {f00=0x005a, f01=0x0190, f02=» ; P* < P* UNLOAD RETURN CODE CHECK < P* < 6 PUNL:RC EQU * < @ P ANKL A3,/207 < T P RF(Z) RTN:A5 NO RETURN CODE < j P ANKL A3,/200 < & P RF(Z) RTN:A5 NOT WRITE PROTECTED < P CF A5,DSOPCH < P ADK A7,0 SET CR (CHECK EOD) < P
0x14c18c…14c320 Dummy {f00=0x005a, f01=0x0190, f02=» < P EJECT DRFD01 = P* = P* = * ( PIBMDSK EQU * IBM DISK HANDLING ENTRY = 4 P IFT IBM=1 = ` . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED = r P ADK A1,0 = & P ABL(NZ) END:IO NEW VOLUME LOADED = P CF A5,DSOPCH GET EOD = P ADK A7,0
0x14c320…14c4b4 (1, 420) Dummy {f00=0x005a, f01=0x0190, f02=»ND FILE = ~ * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH > P IFT MMUPAG+CHAN=2 > > P CWK A3,DVBLEN+DVBLEN > X ( P ABL(G) INCLEN MMU BUFFER TOO SMALL > v P XIF > P IFT IBM=1 > P SUK A3,SECLEN > $ P ABL(NZ) INCLEN INCORRECT LENGTH > P ADK A1,43
0x14c4b4…14c648 Dummy {f00=0x005a, f01=0x0190, f02=» DRFD01 > P* ? P******************* ? P* SEQUENTIAL READ * ? 6 P******************* ? R P* ? n . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN ? x P LDR* A3,A2 CRN ? P ADK A3,1 CRN+1 ? ( P ST A3,ECBCW2,A8 STORE CRN+1 IN ECB ? P C
0x14c648…14c7dc Dummy {f00=0x005a, f01=0x0190, f02=»F A5,BIOSQ ? 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 @ P* @ H P IFT MMUPAG=0 @ R ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS @ h P XIF @ P* @ P IFT IBM=1 @ P LDK A7,SECLEN @ $ P CF A5,ASCII TRANSFORM TO ASCII @ P* @ P EJE
0x14c7dc…14c970 Dummy {f00=0x005a, f01=0x0190, f02=» @ r P TL TTB:MT,A7 LOAD MMU TABLE A & P LDKL A1,BUF DRIVER BUFFER ADDRESS A , & P LD A2,DWTUEC,A6 USER ECB ADDRESS A V ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS A P LDK A7,SECLEN LENGTH A ( P MVSU A7 MOVE SECTOR TO USER BUFFER A , P TL -30,A15 RESTOR
0x14c970…14cb04 Dummy {f00=0x005a, f01=0x0190, f02=»7 A x P RF SQW:10 UPDATE CRN B P* B ( P* END OF DATA B 2 P* B J $ PSQR:10 LDKL A1,/1000 RETURN CODE B T P RF END:IO B | P* B P EJECT DRFD01 B P* B P******************* B P* SEQUENTIAL WRITE * B P******************* B
0x14cb04…14cc98 Dummy {f00=0x005a, f01=0x0190, f02=»ESS TO A2 B x , P ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. C P CWK A7,MAXIBM C B P RF(P) FD:DIS REQUEST ERROR C X P CWR* A7,A2 C | P RF(G) ENDEOE END OF EXTENT C P* C P IFT MMUPAG=1 C ( P TS -30,A15 SAVE RUNNING TASK'S MMU C " P LD A7,D
0x14cc98…14ce2c Dummy {f00=0x005a, f01=0x0190, f02=»ADDRESS C t & P LDKL A2,BUF DRIVER BUFFER ADDRESS D P LDK A7,SECLEN LENGTH D : * P MVUS A7 MOVE SECTOR TO DRIVER BUFFER D X , P TL -30,A15 RESTORE MMU TABLE FROM STACK D P XIF D P* D P IFT IBM=1 D P LDK A4,5 BIO WRITE D P CF A5,BIOSQ D
0x14ce2c…14cfc0 Dummy {f00=0x005a, f01=0x0190, f02=»D:WRI D " P SRL A1,3 IF BIT 6 SET THEN =7 E P ANK A1,/40 SET BIT 9 =7 E 4 0 P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE =7 E T P CF A5,DSOPCH E PSQW:10 EQU * E 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE E P RF(NZ) END:RC E * P IMR A2 EO
0x14cfc0…14d154 (1, 421) Dummy {f00=0x005b, f01=0x0190, f02=»:DIS EQU * E P ABL DISIOE REQUEST ERROR F P* F 4 P EJECT DRFD01 F > P* F V P********** F ` P* REWIND * F r P********** F P* F PREWIND EQU * F P LDR A3,A2 SAVE EOD ADDRESS F P LDK A1,DWTBOE F P CF A5,DSPAD F P LDR*
0x14d154…14d2e8 Dummy {f00=0x005b, f01=0x0190, f02=»1 F z P LDK A1,0 RETURN CODE G P RF END:IO G ( P XIF G : P* G F P EJECT DRFD01 G P P* G h P***************** G r P* * G P* PERFORM ORDER * G P* * G P***************** G P* G P* G P
0x14d2e8…14d47c Dummy {f00=0x005b, f01=0x0190, f02=»FD:WRI EQU * G P IFT CHAN=0 H P LDKL A1,/C000 WORDS,WRITE H ( P XIF H J P IFT CHAN=1 H V " P LDK A1,0 INDICATOR WRITE MODE H j P XIF H P RF FD:800 H P* H PFD:REA EQU * H P IFT CHAN=1 H P LDK A1,1 READ MODE H P XIF H P
0x14d47c…14d610 Dummy {f00=0x005b, f01=0x0190, f02=» H r P* I P EJECT DRFD01 I P* I * P* I 4 P IFT MMUPAG=1 I > 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO I T ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA I 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS I P ECR A7,A7 I P ORR A1,A7 I
0x14d610…14d7a4 Dummy {f00=0x005b, f01=0x0190, f02=»XADR+1 SECOND WER I P XIF J P IFT CHAN=1 J & P* J : P EJECT DRFD01 J D P* J . P* PUT BUFFER START AND END ADDRESS IN DWT J f P* J " P ST A1,DWTRW,A6 INDICATE MODE J P ST A4,DWTUB,A6 J P ADR A3,A4 J " P ST A3,DWTUBE,A6 END A
0x14d7a4…14d938 Dummy {f00=0x005b, f01=0x0190, f02=» 0 PFD:CIO EQU * LABEL USED FOR CHANGE OF CUADR K P CIO A2,1,CUADR CIO START K 8 ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN K Z P RF T:DISP K P* K P EJECT DRFD01 K P* K * P************************************* K P* K < P* FDMSIO -
0x14d938…14dacc Dummy {f00=0x005b, f01=0x0190, f02=» K j P* L PFDMSIO EQU * L & P IM DWTCW2,A6 UPDATE SECTOR NUMBER L & P LDR* A1,A6 RETURN CODE L P & P ANK A1,/7F GET ERROR RETURN CODE L p P RF(NZ) END:RC L 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE L $ P ADS A2,DWTCW2,A6 UPDATE DWTCW2 L
0x14dacc…14dc60 Dummy {f00=0x005b, f01=0x0190, f02=»MUPAG=1 L & P LD A4,DWTBA,A6 GET BUFFER POINTER M $ P ADR A2,A4 UPDATE BUFFER POINTER M : P ST A2,DWTBA,A6 M b & P RF(N) FDMSI1 NOT PASSED 64K LIMIT M z P ADK A4,0 M ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT M P LDK A2,/10 M & P ADS A2,DWT:BF,A6
0x14dc60…14ddf4 (1, 422) Dummy {f00=0x005b, f01=0x0190, f02=»IF M 2 P ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO N P* N @ P EJECT DRFD01 N J P* N b P********** N l P* * N ~ P* END:IO * N P* * N P********** N P* N P IFT IBM=1 N $ PENDEOE EQU * END OF EXTENT EXIT N
0x14ddf4…14df88 Dummy {f00=0x005b, f01=0x0190, f02=»QU * N P CF A15,TENDIO O PT:DISP ABL TDISP O " P* O : $ PEND:30 EQU * CU ADDRESS UNKNOWN O D P LDK A1,1 NOT OPERABLE O l & P ORS A1,DWTST,A6 RECOVERY DONE =1 O P RB END:IO O P EJECT DRFD01 O P* O P******************** O P*
0x14df88…14e11c Dummy {f00=0x005b, f01=0x0190, f02=» IFT CPU852=1 O & P CF A15,SAVE8 SAVE A1-A8 ON STACK P P XIF P @ P* P L P IFT CPU852=0 P V " P MSR 8,A15 SAVE A1-A8 ON STACK P l P XIF P P* P P LDKL A6,DWFD01 DWT ADDRESS P 4 P LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1 P P ANS
0x14e11c…14e2b0 Dummy {f00=0x005b, f01=0x0190, f02=»,A6 P P RF(Z) FDON10 NO TIMER SET Q P LDKL A4,-TIME Q . " P ST* A4,DWTTP,A6 RESTART TIMER Q D P RB T:DISP Q j PFDON10 LDK A4,DWTTP Q | P ADR A4,A6 Q P LDR A1,A6 SAVE A6 Q P CF A15,SETIMP Q P DATA FDON20,TIME Q P* Q PF:DISP EQU
0x14e2b0…14e444 Dummy {f00=0x005b, f01=0x018e, f02=» Q P ADR A5,A6 GET STACK BASE R P* R * 6 PFDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE R 4 P IFT MMUPAG=1 R n P IFT CHAN=0 R $ P CM BUFFLG,A6 RESET BUFFER FLAG R P XIF R P* R P IFF TOSS+IBM=0 R 4 P IM DWTST2,A6 SET RECOVERY
0x14e444…14e5d8 Dummy {f00=0x005b, f01=0x0190, f02=» P* S PFDONLD EQU * S $ P SC A3,DWTOR,A6 GET VOLUME NAME S " & P LC A4,DIXTAB,A3 DRIVE INDEX MASK S J P SC A4,DWTA3+1,A6 SAVE IT S t P CF A5,SETCIO S P LDK A2,/14 S P CF A5,FD:REA LOCK S P ANK A3,1 S P RF(Z) FDON19 OPERABLE S
0x14e5d8…14e76c Dummy {f00=0x005b, f01=0x0190, f02=» S P CF A5,VO:NAM T & P LDKL A2,/FBFF RESET IBM IND. BIT T , P ANRS A2,A6 UPDATE TEMPORARY RETURN CODE T H PFDON21 EQU * T x P LDK A2,/C T P CF A5,FD:REA UNLOCK T P LDK A3,0 T , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. T P SUK A3,1 T
0x14e76c…14e900 Dummy {f00=0x005b, f01=0x018e, f02=»E VOLUME NAMES READ T | P* U P IFT OPCLOS=1 U & P* U < P EJECT U F P* U T : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING U ^ P* U " P LD A4,DWTTP2,A6 TIMER POINTER U P RF(Z) FDON09 NOT RUNNING U P CMR A4 STOP TIMER U $ P
0x14e900…14ea94 (1, 423) Dummy {f00=0x005b, f01=0x018e, f02=» 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS V & P LDKL A2,/8000 OPEN/CLOSE BIT MASK V : $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG V d P ORS A2,DWTOCF,A6 SAVE V ( P XRRS A2,A4 SET STATUS WORD TO OPEN V P LDR* A2,A4 V & P OTR A2,0,SOPDA SET DRIVE TO O
0x14ea94…14ec28 Dummy {f00=0x005b, f01=0x0190, f02=» PFDON25 EQU * W " P LD A1,DWTLC,A6 LOCK INDICATOR W P ANR A1,A2 W > P RF(Z) FDON30 NOT LOCKED W P P ST A2,DWTA3,A6 SAVE W p P* W P EJECT W P* W P* PUT DRIVE NO IN CIO INSTR W P* W P SRN A2,A3 DRIVE NO IN A3 W * P CF A5,SET
0x14ec28…14edbc Dummy {f00=0x005b, f01=0x0190, f02=»F(Z) FDON30 OK W $ P XRS A2,DWTLC,A6 INDICATE UNLOCK X PFDON30 EQU * X > P SLL A2,1 X R P CWK A2,/0010 X d P RB(NE) FDON25 X z P* X P IFT OPCLOS=1 X P* X D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF X P* X
0x14edbc…14ef50 Dummy {f00=0x005b, f01=0x0190, f02=»SE STATUS X z 0 P OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED Y P XIF Y F P* Y R P EJECT Y P* Y j P* ANY REQUEST Y t P* Y P CM DWTA2,A6 RESET FDON FLAG Y PFDON60 EQU * Y P LD A8,DWTECB,A6 Y 0 P ABL(Z) END:IO NO REQUEST, RETURN VI
0x14ef50…14f0e4 Dummy {f00=0x005b, f01=0x0190, f02=»RESTORE INDEX AND ORDER Y ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH Z P ANK A7,/3F ORDER Z L P ABL FDAD REACTIVATE Z f P* Z P EJECT DRFD01 Z P* Z P******************** Z P* * Z P* READY INTERRUPT * Z P*
0x14f0e4…14f278 Dummy {f00=0x005b, f01=0x0190, f02=»TIVE Z n P LDKL A5,DWTSB2 [ P ADR A5,A6 STACK BASE [ $ P* [ B P IFT TOSS+IBM=0 [ L P RB FDON60 [ d P XIF [ v P* [ P IFF TOSS+IBM=0 [ 4 P LDKL A3,/7FFE SET UNIT BUSY AND RECOVERY ON =1 [ P ANS A3,DWTST,A6 =6 [ P RB FDONVL READ
0x14f278…14f40c Dummy {f00=0x005b, f01=0x0190, f02=»* INTERRUPT HANDLER * [ P* * P********************* < P* Z PIHFD EQU * d $ P ST P,INTSAV SAVE LAST INTERRUPT v P IFT CPU852=1 * P CF A15,SAVE8 SAVE REGISTERS ON STACK P XIF P* P IFT CPU852=0
0x14f40c…14f5a0 Dummy {f00=0x005b, f01=0x018e, f02=»D A1,DWTUB,A6 GET BUFFER POINTER " P LD A2,DWTUBE,A6 END OF BUFFER ] ( P SUR A2,A1 LENGTH ] N PIH005 EQU * ] h P SST A3,CUADR GET STATUS ] | " P RF(A) IH:000 READY INTERRUPT ] P LD A3,PFPOST ] , P RF(NZ) IHDISP POST PROCESSING FLAG SET ] ( P
0x14f5a0…14f734 (1, 424) Dummy {f00=0x005c, f01=0x0190, f02=» ] $ P LDR* A3,A1 ONE WORD FROM BUFFER ^ P OTR A3,0,CUADR WRITE ^ 0 P RB(NA) IH005 ^ N $ P ADK A1,2 UPDATE BUFFER POINTER ^ d P SUK A2,2 ^ P RB(P) IH010 ^ P CIO A2,0,CUADR CIO HALT ^ PIHDISP EQU * ^ P ABL TDISP GOTO DISPATCHER ^ P
0x14f734…14f8c8 Dummy {f00=0x005c, f01=0x0190, f02=»UFFER POINTER ^ ~ P SUK A2,2 _ P RB(P) IH050 _ ( P CIO A2,0,CUADR CIO HALT _ < P SST A3,CUADR STATUS _ P RB(NA) *-2 _ x PIH:000 EQU * _ P INH _ P XIF _ P* _ P EJECT DRFD01 _ P* _ P* _ P IFT CHAN=0 _ P SST A
0x14f8c8…14fa5c Dummy {f00=0x005c, f01=0x0190, f02=»T OPERABLE =2 _ PIH:00 EQU * =2 ` P XIF ` . P LD A8,DWTECB,A6 ECB ADDRESS ` : " P LD A5,DWTA5,A6 STACK POINTER ` ^ P LDR A2,A3 STATUS ` P SLL A2,1 ` P RB(N) FDRE READY INTERRUPT ` P LD A2,DWTRTY,A6 RETRY ` P RF(Z) IH:10 NO ` "
0x14fa5c…14fbf0 Dummy {f00=0x005c, f01=0x0190, f02=» ORK A3,4 ` PIH:10 EQU * a P* a & P EJECT DRFD01 a 0 P* a H & P* TRANSFORM RETURN CODE, CU - ECB a R P* a | P ANKL A3,/FF37 a P RF(Z) IH:80 a P LDR A1,A3 a " P ANKL A3,/0A05 UNCHANGED BITS a P ECR A4,A3 a P ANK A4,8 CHEC
0x14fbf0…14fd84 Dummy {f00=0x005c, f01=0x0190, f02=»00 BIT 5 a P SLC A4,7 TO BIT 14 b P ORR A3,A4 b , P* b > P IFT TOSS+IBM=0 b H P LDR A4,A1 b ` P ANKL A4,/2000 BIT 2 b r P SLL A4,1 TO BIT 1 b P ORR A3,A4 b P XIF b P* b P LDR A4,A1 b P ANK A4,/20 BIT 10 b P SLL A4,3 TO
0x14fd84…14ff18 Dummy {f00=0x005c, f01=0x0190, f02=»N CODE b n P ANKL A3,/F7FF c PIH:80 EQU * c $ P LDR A1,A3 c 8 P RTN A5 c J P* c Z P EJECT DRFD01 c d P* c | 0 P******************************************* c 0 P* * c 0 P* S U B R O U T I N E S
0x14ff18…1500ac Dummy {f00=0x005c, f01=0x0190, f02=» P******* d P* * d P* BIO * d $ P* * d 4 P******* d D P* d T P* INPUT: A8 ECB ADDRESS d ^ P* A4 ORDER d P* d > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START d 0 P* A3 NO OF BYTES TO
0x1500ac…150240 Dummy {f00=0x005c, f01=0x0190, f02=»1,3 PUT IN RIGHT BIO POSITION d 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO e & P SRC A2,2 e ` P ORR A2,A1 COMPLETE BIO e r & P ADR A2,A4 COMPLETE BIO WITH ORDER e " P LD A4,DWTBA,A6 BUFFER ADDRESS e $ P LD A3,DWTRL,A6 GET REQ. LENGTH e
0x150240…1503d4 (1, 425) Dummy {f00=0x005c, f01=0x0190, f02=» * e P* * f P***************** f & P* f @ P* INPUT: A8 ECB ADDRESS f J P* A4 ORDER f l P* f > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START f 0 P* A3 NO OF BYTES TO BE TRANSFERED f "
0x1503d4…150568 Dummy {f00=0x005c, f01=0x0190, f02=»2,3 PUT IN RIGHT BIO POSITION f & P ADR A2,A4 COMPLETE BIO WITH ORDER g & P* g P P IFT MMUPAG=0 g Z & P LD A4,ECBBA,A8 GET BUFFER ADDRESS g p P XIF g P* g P IFT IBM=1 g P IFT MMUPAG=1 g & P LDKL A4,BUF DRIVER BUFFER ADDRESS g P XIF g
0x150568…1506fc Dummy {f00=0x005c, f01=0x0190, f02=» g P****************** h P* VO:NAM * h " P****************** h < P* h V P* h ` PVO:NAM EQU * h j P IFT TOSS+IBM=2 h ~ P LDK A3,36 LENGTH h P XIF h P* h P IFT TOSS=1 h P IFT IBM=0 h P LDK A3,6 VOLUME NAME LENGTH
0x1506fc…150890 Dummy {f00=0x005c, f01=0x0190, f02=»3,/17 FATAL ERROR h P RF(NZ) VOL:40 i P IFT IBM=1 i 0 P LD A2,BUF+32 i B P CWK A2,'TO' i X P RF(NE) VOL:10 IBM DISC i l P LD A2,BUF+34 GET NEXT WORD i P CWK A2,'SS' i P RF(NZ) VOL:10 IBM DISC i PVOL:05 EQU * i " P C1 A1,DWTA3,A6
0x150890…150a24 Dummy {f00=0x005c, f01=0x0190, f02=» TOSS=1 i P LDKL A2,BUF j P IFT IBM=1 j $ P RF VOL:20 j 6 P XIF j H P* j T P IFT IBM=1 j ^ PVOL:10 EQU * j p P LDK A3,10 LENGTH j P LDK A2,/30 BIO j & P LDKL A4,BUF+10 READ TO BUF+10FER j P CF A5,FD:REA j P ANK A3,/17 j
0x150a24…150bb8 Dummy {f00=0x005c, f01=0x0190, f02=»VOL:05 NOT IBM j P LD A2,BUF+12 k P CWK A2,/D3F1 L1 k , P RB(NE) VOL:05 NOT IBM DISC k D P XIF k h P IFT IBM=1 k t P* =4 k & P LD A1,DWTA3,A6 DRIVE NO BIT MASK k " P ORS A1,DWTLAB,A6 INDICATE IBM k P LDKL A1,/400 k , P ORRS A1,A6
0x150bb8…150d4c Dummy {f00=0x005c, f01=0x0190, f02=»NSFER IBM VOLUME NAME TO ASCII k P LDKL A2,BUF+14 =5 l & P XIF l B P* l N P EJECT DRFD01 l X P* l p P* l z PVOL:20 EQU * l P IFF TOSS+IBM=0 l P LDK A3,/F8 FILE CODE l P LD A1,DWTST2,A6 l " P RF(NZ) VOL:30 NOT TEST STATUS l
0x150d4c…150ee0 Dummy {f00=0x005c, f01=0x0190, f02=» l P LDK A3,0 m PVOL:40 EQU * m P RTN A5 m . P XIF m > P* m J P IFT IBM=1 m T P EJECT DRFD01 m f P* m ~ P********* m P* ASCII * m P********* m P* m : P* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO m P*
0x150ee0…151074 (1, 426) Dummy {f00=0x005c, f01=0x0190, f02=»FFER ADDRESS m P* OUTPUT: A1 CHANGED n P* A4 = BUFFER ADDRESS n 6 P* A7 CHANGED n X P* n z PASCII EQU * n P IFT MMUPAG=1 n & P LDKL A4,BUF DRIVER BUFFER ADDRESS n P XIF n P* n P IFT IBM=1 n PASC:00 E
0x151074…151208 Dummy {f00=0x005c, f01=0x0190, f02=» ( P LC A1,TASCII,A1 TRANSFORM TO ASCII o 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER o 0 P SUK A7,1 o d P RB(P) ASC:10 o v P RF EBC:90 o P* o P EJECT DRFD01 o P* o P********** o P* EBCDIC * o P********** o P* o <
0x151208…15139c Dummy {f00=0x005c, f01=0x0190, f02=»N DRIVER BUFFER o l P* p & P* INPUT: A7 NO OF CHARACTERS p " P* A4 = BUFFER ADDRESS p L P* p n P* OUTPUT: A1 CHANGED p x P* A4 = BUFFER ADDRESS p P* A7 CHANGED p PEBCDIC EQU * p P ENB p P IFT MMUPA
0x15139c…151530 Dummy {f00=0x005c, f01=0x0190, f02=» A4,1 p P LCR A1,A4 GET ASCII CHAR. q P ANK A1,/FF q 0 P LC A1,TEBCDIC,A1 q D P SC A1,BUF-1,A7 q ^ P SUK A7,1 q v P RB(P) EBC:10 q & P LDKL A4,BUF DRIVER BUFFER ADDRESS q PEBC:90 EQU * q P INH INHIBIT INTERRUPTS q P RTN A5 q
0x151530…1516c4 Dummy {f00=0x005c, f01=0x0190, f02=»NSFORMS PHYSICAL SECTOR TO STANDARD q x , P* LOGICAL SECTOR (BINARY). r , < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) r * P* TT = TRACK, SS=SECTOR r P* r , P* INPUT: A4 ADDRESS TO PHYS. SECTOR r P* r
0x1516c4…151858 Dummy {f00=0x005c, f01=0x0190, f02=»ECBIN r P LDR A3,A1 SAVE s P ADK A4,2 s & P* s 8 P* MULTIPLY BY 26 s B P* s P SLL A3,5 *32 s f P LDR A2,A1 s | P SLL A2,2 s P SUR A3,A2 *28 s P SLL A1,1 s P SUR A3,A1 *26 s P CF A5,DECBIN s P SUK A1,1 s P A
0x151858…1519ec Dummy {f00=0x005c, f01=0x0190, f02=»NP) LOG:10 s P CWK A4,BUF+EOD+4 EOD t P RF(E) LOG:02 YES! t 0 P SUKL A1,1898 t J P RF LOG:04 t ` P* t r " P* CHECK EOD LESS/EQUAL 74001 t | P* t PLOG:02 SUKL A1,1899 t PLOG:04 EQU * t " P RF(P) LOG:10 NOT ACC SEC. NO t " P SUK A
0x1519ec…151b80 Dummy {f00=0x005c, f01=0x0190, f02=»G:10 LDK A1,/10 RETURN CODE t , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE u $ P INH INHIBIT INTERRUPTS u T P ABL LOA:90 ERROR ROUTINE u t P* u P EJECT DRFD01 u P* u P********** u P* DECBIN* u P********** u P* u > P* FUN
0x151b80…151d14 (1, 427) Dummy {f00=0x005c, f01=0x0190, f02=» INPUT: A4 ADDRESS TO FIRST DIGIT u P* OUTPUT: A1 BINARY v , P* WORKING REG: A2,A7 v J P* v j PDECBIN LDK A1,0 v t P LDK A7,2 v PDEC:10 LCR A2,A4 DIGIT v P ANK A2,/FF v P SUK A2,/F0 v P RB(N) LOG:05 v P SUK A2,9 v
0x151d14…151ea8 Dummy {f00=0x005c, f01=0x018e, f02=»DEC:20 SUK A2,1 v P RB(N) DEC:10 NEXT DIGIT w P ADK A1,/A MULTIPLY BY 10 w 8 P RB DEC:20 w Z PDEC:30 ADR A1,A2 w l P RTN A5 w P XIF w P* w P EJECT DRFD01 w P* w P********** w P* SETCIO * w P********** w P* w
0x151ea8…15203c Dummy {f00=0x005c, f01=0x0190, f02=» P* OUTPUT: A3 CHANGED x P* A4 CHANGED x " P* x @ PSETCIO LDKL A4,/FFCF x J P ANS A4,FD:CIO x f P SLL A3,4 x | P ORS A3,FD:CIO x P RTN A5 x P IFT IBM=1 x P* x P EJECT DRFD01 x P* x P********** x P* BI
0x15203c…1521d0 Dummy {f00=0x005c, f01=0x0190, f02=»S (DECIMAL) x p P* y P* INPUT: A7 BINARY NUMBER y P* y B . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS y L P* A7 CHANGED y ~ P* y PBINDEC LDK A3,0 y PBIN:10 SUK A7,10 y P RF(N) BIN:20 y P ADK A3,1 y P RB BIN:10
0x1521d0…152364 Dummy {f00=0x005c, f01=0x0190, f02=» A5 y P* z P EJECT DRFD01 z P********* z . P* DSLIO * z @ P********* z R P* z d 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL z n P* z P* INPUT: A6 DWT ADDRESS z P* z : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-
0x152364…1524f8 Dummy {f00=0x005c, f01=0x0190, f02=»A1 IS CHANGED z P* { PDSLIO LDK A1,DWTDSS { P CF A5,DSPAD { < P LDR* A2,A2 { P P SLL A2,3 { d P LDK A3,128 { v P LDKL A4,BUF { P RTN A5 { P* { P EJECT DRFD01 { P* { P********** { P* DSOPCH * { P**********
0x1524f8…15268c Dummy {f00=0x005c, f01=0x0190, f02=»PUT: A2 EOD ADDRESS { , P* A7 EOD-NO (0=NOT OPEN) | P* A1 CHANGED | L PDSOPCH LDK A1,DWTEOD | j P CF A5,DSPAD | P LDR* A7,A2 EOD-NO | P RTN A5 | P* | P EJECT DRFD01 | P* | P********* | P* DSPA
0x15268c…152820 Dummy {f00=0x005c, f01=0x0190, f02=»G DRIVE | f P* } P* INPUT: A1 DWT OFFSET } P* A6 DWT ADDRESS } < P* } ^ " P* OUTPUT: A2 ADDRESS TO DATA } h P* A6 DWT ADDRESS } P* } " PDSPAD LC A2,DWTOR,A6 DRIVE NO } P ANK A2,/3 } P ADR A2,A2 } P ADR
0x152820…1529b4 (1, 428) Dummy {f00=0x005d, f01=0x0190, f02=»* } P* ~ : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF ~ P* DRIVE NO ~ R P* ~ p ( P* INPUT: A1 OFFSET TO DWT AREA ~ z . P* A3 WORD TO BE STORED IN DWT ~ P* A6 DWT ADDRESS ~ P* ~ P*
0x1529b4…152b48 Dummy {f00=0x005d, f01=0x0190, f02=»NCHANGED ~ ~ P* PSTDWT EQU * P CF A5,DSPAD . P STR A3,A2 B P RTN A5 T P XIF d P* p P EJECT DRFD01 z P* " P* D R I V E R B U F F E R P* PBUF EQU * P IFT IBM=1 P RES DVBLEN P XIF
0x152b48…152cdc Dummy {f00=0x005d, f01=0x0190, f02=»U BUFFER P XIF P* P IFT TOSS+IBM=0 & P IFT MMUPAG+CHAN=2 > P RES DVBLEN MMU BUFFER X P XIF v P* P EJECT DRFD01 P* P********************* P* * P* DEVICE WORK TABLE * P
0x152cdc…152e70 Dummy {f00=0x005d, f01=0x0190, f02=»ATA 0 P DATA /8000 DWT STATUS P DATA 0 ECB ADDRESS , P DATA 0 ORDER H " P DATA FDADR ACTIVATION ADDRESS ^ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMUPAG=1 & P D
0x152e70…153004 Dummy {f00=0x005d, f01=0x0190, f02=» P DATA 0 SAVE AREA P DATA 0 P DATA 0 . " P DATA 0,0,0,0 STACK (3 LEVELS) > P DATA 0 ORDER SAVE AREA d P* P EJECT DRFD01 P* P* P IFF TOSS+IBM=0 P DATA /8000 NVL INDICATOR 0 P DATA /8000 NVL IN
0x153004…153198 Dummy {f00=0x005d, f01=0x0190, f02=»ATA /FFFF,/FFFF,/FFFF ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 P DATA /FFFF,/FFFF,/FFFF J ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 j P DATA /FFFF,/FFFF,/FFFF ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 P DATA /FFFF,/FFFF,/FFFF ( PDWTST2
0x153198…15332c Dummy {f00=0x005d, f01=0x0190, f02=»QUEST FLAG t P DATA 0 $ PDWTTP EQU *-DWFD01 TIMER POINTER " P DATA 0 J P* Z P EJECT DRFD01 d P* | P* P IFT IBM=1 , PDWTLAB EQU *-DWFD01 DISC LABEL INDICATOR P DATA 0 P XIF P* , PDWTLC EQU *-DWFD
0x15332c…1534c0 Dummy {f00=0x005d, f01=0x0190, f02=»0 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON P DATA 0 B P XIF R P* ^ P EJECT DRFD01 h P* P* P IFT CHAN=1 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER P DATA 0 , PDWTUBE EQU *-DWFD01 BU
0x1534c0…153654 (1, 429) Dummy {f00=0x005d, f01=0x018e, f02=»=1 , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT P DATA 0,0,0,0 : $ PDWTEOD EQU *-DWFD01 END OF DATA P P DATA 0,0,0,0 x & PDWTEOE EQU *-DWFD01 END OF EXTENT P DATA 0,0,0,0 * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO P DATA 0,0,0,
0x153654…1537e8 Dummy {f00=0x005d, f01=0x0190, f02=» P* & PDWTBA EQU *-DWFD01 BUFFER POINTER P DATA 0 8 ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO H P DATA 0 t & PDWTCW2 EQU *-DWFD01 SECTOR NUMBER P DATA 0 . PDWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER P DATA 0 4 PDWTSIO E
0x1537e8…15397c Dummy {f00=0x005d, f01=0x0190, f02=» P DATA 0 P XIF P* P EJECT DRFD01 * P* B P* L P IFT MMUPAG=1 V PDWT:BF EQU *-DWFD01 l $ P DATA 0 SAVE AREA BUFFER ADDRESS PBUFFLG EQU *-DWFD01 P DATA 0 P* P IFF CHAN+IBM=0 PDWT:PA EQU
0x15397c…153b10 Dummy {f00=0x005d, f01=0x40c2, f02=»ATA 0 16 BIT LOGICAL BUFFER ADDRESS P XIF , P* 8 P IFT MMUPAG=1 B PDEVECB EQU * X P DATA 0,0,0,0,0,0,0 l P XIF P* P* P* P END @ 1 P DATA 0 P* P IFF CHAN+IBM=0 PDWT:PA EQU
0x153b10…153ca4 Dummy {f00=0x005d, f01=0x2008, f02=» END @
0x153ca4…153e38 Dummy {f00=0x005d, f01=0x0190, f02=»ND OF PAGE J n P CF A5,SEND K ( P LDK A3,/F SET UP LINE FEED COUNTER K & PREL10 LDK A2,LF LINE FEED K R P CF A5,OUTPUT K t P RF(NZ) ERGP14 JMP IF ERROR K * P SUK A3,1 DECREMENT LINE FEED COUNTER K P RB(NZ) REL10 ANY MORE LF ? K P CF A5,E
0x153e38…153fcc Dummy {f00=0x005d, f01=0x0190, f02=»CTUAL LINE K t . P CM DWTDEV+DWTRLN,A6 RESET REQUESTED LINE L . P CM DWTDEV+DWTCO1,A6 CLEAR COLUMN COUNTER L D P LDR A2,A1 GET RETURN CODE L v & PREL20 ANKL A2,/100 PRINTER RESET ? L P ABL(NZ) RCTP YES L $ P CF A5,RESREC RESET RECOVERY BIT L P ABL
0x153fcc…154160 Dummy {f00=0x005d, f01=0x0190, f02=» C T P L P* M : P* RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON M P* M V @ P************************************************************ M ` PRCTP EQU * M * PRCTP07 LDKL A1,/7FFF SET DEVICE BUSY M P ANS A1,DWTST,A6 BUSY M P LDKL
0x154160…1542f4 (1, 430) Opaque[0x194]
0x1542f4…154488 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d8, f03=0x0000}
0x1542f4…154488 IdxSect {
0x1542f4…154488 f00 = 0x004e // 0x1542f4 @0x0
0x1542f4…154488 f01 = 0x0002 // 0x1542f6 @0x2
0x1542f4…154488 gno = [ // 0x1542f8 @0x4
0x1542f4…154488 [0x00]: C0x004e.0x3.0
0x1542f4…154488 ]
0x1542f4…154488 }
0x154488…15461c Dummy {f00=0x004e, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 11.0 81-01-26 870105041100 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x15461c…1547b0 Dummy {f00=0x004e, f01=0x0190, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P*
0x1547b0…154944 Dummy {f00=0x004e, f01=0x40b0, f02=» P* P* 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC P* R P* PTEBCDIC EQU * f P IFF CODE+RCOM=0 | P XIF P END @ MAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P*
0x154944…154ad8 Dummy {f00=0x004e, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x154ad8…154c6c Dummy {f00=0x004e, f01=0x0190, f02=» P LDKL A1,/E5D6 VO IN EBCDIC P STR A1,A4 ( P LDKL A1,/D3F1 L1 IN EBCDIC : P ST A1,BUF+2 ^ P IFT IBM=1 r P LD A1,DWTA3,A6 INDICATE IBM P ORS A1,DWTLAB,A6 P XIF P LDK A2,/31 BIO P LDK A3,36 LENGTH PFORM60 E
0x154c6c…154e00 Dummy {f00=0x004e, f01=0x0190, f02=» P* * P* ACTIVATION * P* * 0 P************** F P* PFDAD EQU * ACTIVATION ENTRY f P IFT MMUPAG=1 P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P
0x154e00…154f94 (1, 431) Opaque[0x194]
0x154f94…155128 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x154f94…155128 IdxSect {
0x154f94…155128 f00 = 0x0008 // 0x154f94 @0x0
0x154f94…155128 f01 = 0x0006 // 0x154f96 @0x2
0x154f94…155128 gno = [ // 0x154f98 @0x4
0x154f94…155128 [0x00]: C0x0008.0x2.0
0x154f94…155128 [0x01]: C0x0008.0x3.0
0x154f94…155128 [0x02]: C0x000c.0x3.0
0x154f94…155128 ]
0x154f94…155128 }
0x155128…1552bc Dummy {f00=0x0008, f01=0x0190, f02=» 0 P IDENT TIMER REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x1552bc…155450 Dummy {f00=0x0008, f01=0x0190, f02=»AINS TIMER LKM PROCESSORS AND | " P* THE FOLLOWING SUBROUTINES: & P* L * P* -SETIME: SET BLOCK IN TIMER QUEUE V . P* -SETIMP: SETIME + STORE TIMER POINTER P* P* P EJECT TIMER P* P* P*********** P
0x155450…1555e4 Dummy {f00=0x0008, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P EJECT TIMER 6 P* L P* V P*********** ` P* EXTRNALS * t P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXTRN
0x1555e4…155778 Dummy {f00=0x0008, f01=0x0190, f02=»DRESS v , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK > 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE l 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P**
0x155778…15590c Dummy {f00=0x0008, f01=0x0190, f02=»*** j P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P P* PCPU852 EQU 0 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIME
0x15590c…155aa0 Dummy {f00=0x0008, f01=0x018e, f02=»AM DELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS , P* A8 = DELAY J P* ` P* j P* 2. TIMING AND ACTIVATION t P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB AD
0x155aa0…155c34 (1, 432) Dummy {f00=0x0008, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR ( P RF(NZ) TIM010 TIMING AND ACTIVATION 4 P* ` P EJECT TIMER j P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 D
0x155c34…155dc8 Dummy {f00=0x0008, f01=0x0190, f02=»10 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR 8 " P ABL(Z) LKMRQE TTAB NOT FOUND P ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS v , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER . P LDR A1,A4
0x155dc8…155f5c Dummy {f00=0x0008, f01=0x0190, f02=»QU * P ABL LKMQDI P* P EJECT TIMER * P* @ P* J P* RETURN AFTER TIME OUT T P* v P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISPATCHING
0x155f5c…1560f0 Dummy {f00=0x0008, f01=0x0190, f02=»ET IT FREE | P LDR A5,A3 SET TTAB ADDRESS * P ABL ACTDIS ACTIVATE TASK AND DISPATCH 6 P* d P EJECT TIMER n P* P* " P* S E T I M E , S E T I M P P* . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , P* AND IF SET
0x1560f0…156284 Dummy {f00=0x0008, f01=0x0190, f02=»POINTER ADDRESS v , P* P1 = DISPATCH ADDRESS AFTER TIME OUT P* P2 = DELAY H P* ^ : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. h P* P* EXIT PARAMETER:- P* P* A4 = ADDRESS TO TIMER P* P*
0x156284…156418 Dummy {f00=0x0008, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P INH , " P MSR 8,A15 SAVE A1-A8 ON STACK 8 P XIF ^ P* j P EJECT TIMER t P* P* * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS
0x156418…1565ac Dummy {f00=0x0008, f01=0x0190, f02=» PROGRAM COUNTER | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A2,A4 @ P C1R A1,A8 R " P CF A15,GETBLK GET TIMER BLOCK d P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER AD
0x1565ac…156740 Dummy {f00=0x0008, f01=0x412e, f02=»CT TIMER P* P* PSETEND EQU * & P IFT CPU852=1 : ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P P XIF | P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN P XIF P*
0x156740…1568d4 (1, 433) Dummy {f00=0x000c, f01=0x2008, f02=» ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER ADDRESS A4 ON STACK 0 P LDR A6,A6 d P RF(Z) SETEND -SETIME v , P STR A4,A6 -SETIMP STORE TIMER POINTER PSETEND ABL IHRET8 P* P END @ GET A FREE BLOC
0x1568d4…156a68 Dummy {f00=0x000c, f01=0x0190, f02=»* PBYTA10 SUK A6,/A P RF(N) BYTA20 " P ADKL A4,/100 8 P RB BYTA10 N P* ` PBYTA20 ADK A6,/A j P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P* P EJECT MONTIM P* P* P********** P* ASCT
0x156a68…156bfc Dummy {f00=0x000c, f01=0x414e, f02=»RY. p P* RESULT IN A6. P* 0 P* : PASCTBY EQU * D P LDR A4,A6 X P ANK A6,/F j P SRL A4,8 | P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P*
0x156bfc…156d90 Dummy {f00=0x000c, f01=0x2008, f02=» ASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 2 PASCT20 RTN A15 H P END ^@ j P RTN A15 p P* P* 2 P* ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT ( P* FROM ASCII TO BINARY. P* RESU
0x156d90…156f24 Dummy {f00=0x000c, f01=0x2008, f02=»
0x156f24…1570b8 Dummy {f00=0x000c, f01=0x0190, f02=»MENT BASE l P XIF P* P IFT MMUPAG=0 ( PTLDS40 EQU * > 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE R P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x1570b8…15724c Dummy {f00=0x000c, f01=0x40c2, f02=»A+6,A5 P LD A4,TTB:SA+8,A5 P LD A6,TTB:SA+12,A5 ( P LD A5,TTB:SA+10,A5 D $ P RTN A15 RETURN TO CALLING TASK ` P XIF P* P* P* END @ $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x15724c…1573e0 Dummy {f00=0x000c, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x1573e0…157574 (1, 434) Opaque[0x194]
0x157574…157708 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0520, f03=0x0000}
0x157574…157708 IdxSect {
0x157574…157708 f00 = 0x0029 // 0x157574 @0x0
0x157574…157708 f01 = 0x0006 // 0x157576 @0x2
0x157574…157708 gno = [ // 0x157578 @0x4
0x157574…157708 [0x00]: C0x0029.0x0.0
0x157574…157708 [0x01]: C0x0029.0x1.0
0x157574…157708 [0x02]: C0x0029.0x2.0
0x157574…157708 ]
0x157574…157708 }
0x157708…15789c Dummy {f00=0x0029, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x15789c…157a30 Dummy {f00=0x0029, f01=0x0190, f02=»WING n P* TOSS MMU LKM PROCESSORS: P* 0 " P* - TCHPAG = CHANGE MMU PAGE : P* ` $ P* - TCHMMU = CHANGE MMU TABLE j P* & P* - TLUSEG = LOCK/UNLOCK SEGMENT P* P* P EJECT TMMLKM P* P* P**
0x157a30…157bc4 Dummy {f00=0x0029, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P EJECT TMMLKM < P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN RELPAG RELEASE
0x157bc4…157d58 Dummy {f00=0x0029, f01=0x0190, f02=» IN TTAB l ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS $ P EXTRN SEG:NS NUMBER OF SEGMENTS < P EJECT TMMLKM d P* | P* P********** P* TCHPAG * P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.
0x157d58…157eec Dummy {f00=0x0029, f01=0x0190, f02=» AT A TIME. ` P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: L P* v P* A5 = TTAB ADDRESS ( P* A7 = PAGE TO BE CHANGED, 0 - 15 * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT
0x157eec…158080 Dummy {f00=0x0029, f01=0x018e, f02=»(IF ANY) p 0 P ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE P ADR A7,A5 ADD TTAB ADDRESS D P LDR A2,A8 NEW PAGE LOCATION h . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE
0x158080…158214 (1, 435) Dummy {f00=0x0029, f01=0x0190, f02=» P* TCHMMU * P********** P* , P* 6 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. @ P* x D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P*
0x158214…1583a8 Dummy {f00=0x0029, f01=0x0190, f02=»A7 = TASK IDENTIFICATION OF SEARCHED TASK P* 2 ( P* IT RETURNS TO CALLING TASK WITH < P* THE FOLLOWING PARAMETER: h P* 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU E
0x1583a8…15853c Dummy {f00=0x0029, f01=0x0190, f02=» TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK 6 * P RB T:DISP QUEUE TASK FOR DISPATCHING n P* P EJECT TMMLKM P* P* P********** P* TLUSEG * P********** P
0x15853c…1586d0 Dummy {f00=0x0029, f01=0x018e, f02=» CORE RESIDENT, ` D P* UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* ` * P* IT IS ENTERED FROM THE LKM HANDLER j & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER &
0x1586d0…158864 Dummy {f00=0x0029, f01=0x0190, f02=» j " P* THE FOLLOWING PARAMETERS: P* . 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE 8 P* A7 = -1 IF REQUEST ERROR n P* P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT $ P LD A4,TTB:SP,
0x158864…1589f8 Dummy {f00=0x0029, f01=0x0190, f02=»GMENT NUMBER TOO BIG t P RF(NG) TLUS00 OK P* 6 PTLCERR EQU * @ , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR T P* PTLUS00 EQU * , P SLL A3,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A3,A4 ADD SEGTAB ADDRESS " P LCR A4,A3 GET S
0x1589f8…158b8c Dummy {f00=0x0029, f01=0x018e, f02=»T IT IS t " P RF(NZ) TLUS10 UNLOCK SEGMENT P* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x158b8c…158d20 Dummy {f00=0x0029, f01=0x4036, f02=» P* P* P* P END &@ 2* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x158d20…158eb4 (1, 436) Dummy {f00=0x0029, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x158eb4…159048 Dummy {f00=0x0029, f01=0x0190, f02=»UK A1,1 & P RB(P) TMW:10 MORE ECB:S IN ECBBLK : P ST A3,DWTWAT,A9 NO, SET FIRST DWT ADDRESS IN THE LAST : P RB T:DISP GO TO DISPATCHER x P* PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG I
0x159048…1591dc Dummy {f00=0x0029, f01=0x4184, f02=»OR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S 2 P CMR A3 SET TO NO WAIT AGAIN V P LDR A3,A2 z P RB TMW:40 P* P EJECT TPROC P* P* PTP:RQE EQU * " P ABL LKMRQE LKM REQUEST ERROR
0x1591dc…159370 Dummy {f00=0x0029, f01=0x2008, f02=» TERMINAL NOT IN SYSTEM 8 P CF A15,QTJOB QUEUE CALLING TERMINAL FOR DISPATCHING ( P LDR A5,A2 d P LDR A2,A4 v 0 P RB(Z) TPQUE RESTART: QUEUE FOR DISPATCHING P CF A15,ACTOT ACTIVATION P RB TPDIS GO TO DISPACHER P EJECT
0x159370…159504 Dummy {f00=0x0029, f01=0x0190, f02=» A x , ( A A A A A A A , ( *T A _ P A A H , ( . , + - ; # x , ( + $ : X " H W X " ACBREL , ( * K H H A W W
0x159504…159698 Dummy {f00=0x0029, f01=0x0190, f02=» P " W U z , ( :U A " FNDTID@ J , ( ! ? > " @ , ( D @ T " ( ^ @ P , ( R % A A " @ ,T @ , ( E W @ A W
0x159698…15982c Dummy {f00=0x0029, f01=0x0190, f02=»P V | , ( W _x , ( _` A L , ( @ ,T @ W @ T @ W @ @ | , ( % >a @ A , ( E A ,
0x15982c…1599c0 Dummy {f00=0x0029, f01=0x0190, f02=» l , ( P 3P C @ P @ , ( @ P @ Q A , @ < , ( BT A " T @ W @ A l , ( ! % A ,P @ _2 , ( E ,T 2 0 P nP , ( e _
0x1599c0…159b54 (1, 437) Opaque[0x194]
0x159b54…159ce8 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x159b54…159ce8 IdxSect {
0x159b54…159ce8 f00 = 0x000e // 0x159b54 @0x0
0x159b54…159ce8 f01 = 0x0008 // 0x159b56 @0x2
0x159b54…159ce8 gno = [ // 0x159b58 @0x4
0x159b54…159ce8 [0x00]: C0x000e.0x3.0
0x159b54…159ce8 [0x01]: C0x000f.0x0.0
0x159b54…159ce8 [0x02]: C0x000f.0x1.0
0x159b54…159ce8 [0x03]: C0x002a.0x3.0
0x159b54…159ce8 ]
0x159b54…159ce8 }
0x159ce8…159e7c Dummy {f00=0x000e, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x159e7c…15a010 Dummy {f00=0x000e, f01=0x0190, f02=»M PROCESSOR, d 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* H P* R P EJECT TLDSEG P* t P* ~ P*********** P* ENTRIES * P*********** P* P* P ENTRY TLDSEG LOAD SEGMENT , P ENTRY TLSEG1
0x15a010…15a1a4 Dummy {f00=0x000e, f01=0x0190, f02=» P* EXTERNALS * P************* P* 0 P* : 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM D P EXTRN TDISP DISPATCHER x P EXTRN RELPAG RELEASE PAGE $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS
0x15a1a4…15a338 Dummy {f00=0x000e, f01=0x0190, f02=»GE BLOCK ADDRESS P EXTRN TTB:AP ACB ADDRESS & P EXTRN TTB:PW PROGRAM STATUS WORD : P EXTRN TTB:SA TTAB SAVE AREA d P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS ( P EXTRN TTB
0x15a338…15a4cc Dummy {f00=0x000e, f01=0x0190, f02=» ACBNPE NUMBER OF PAGE ENTRIES * P EXTRN ACBLAP LOGICAL ADDRESS OF PAGES & P EJECT TLDSEG T P* l P* v . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P************************************
0x15a4cc…15a660 Dummy {f00=0x000e, f01=0x0190, f02=» EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P* . P* A PROGRAM VERSION USING TOSS DISC PAGING * P* IS OBTAINED BY SETTI
0x15a660…15a7f4 (1, 438) Dummy {f00=0x000f, f01=0x0190, f02=» P********** P* P* $ 0 P* THIS IS THE LOAD SEGMENT LKM PROCESSOR. . P* b * P* IT IS ENTERED FROM THE LKM HANDLER l & P* WITH THE FOLLOWING PARAMETERS: P* P* A2 = DISPATCH ADDRESS P* A5 = TTAB ADDRESS
0x15a7f4…15a988 Dummy {f00=0x000f, f01=0x0190, f02=» > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE & P* A7 = -1 IF REQUEST ERROR, ELSE F ( P* A7 = -2 IF DISC I/O ERROR, ELSE p $ P* A7 = -3 IF DISC NOT OPERABLE P* 2 P* WHEN REQUESTED SEGMENT IS ALREADY IN CORE: < P*
0x15a988…15ab1c Dummy {f00=0x000f, f01=0x0190, f02=»POSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. P* 6 : P* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL @ : P* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE. ~ P* P* P EJECT TLDSEG P* P* PTLDSEG EQU *
0x15ab1c…15acb0 Dummy {f00=0x000f, f01=0x0190, f02=»MENT STATUS , P ANK A4,/1E CHECK IF CORE RESIDENT OR... 2 P RF(NZ) TLDS00 ...USED BY AN INTERRUPTED TASK D P* z ( P* INSERT PAGE BLOCK IN PAGE QUEUE P* P CF A15,RELPAG RELEASE PAGE P LD A4,TTB:PW,A5 PSW & P ST A4,-2,A15
0x15acb0…15ae44 Dummy {f00=0x000f, f01=0x0190, f02=»A5 SEGTAB ADDRESS * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 P RF(N) TLDERR REQUEST ERROR H 4 P CW A1,SEG:NS,A3 CHECK IF SEGMENT NUMBER TOO BIG l P RF(NG) TLDS03 OK P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P ABL LKM030 BRANCH TO LK
0x15ae44…15afd8 Dummy {f00=0x000f, f01=0x0190, f02=»LL A1,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A1,A3 ADD SEGTAB ADDRESS . P LDR A3,A5 GET TTAB ADDRESS T P* x P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* " P
0x15afd8…15b16c Dummy {f00=0x000f, f01=0x0190, f02=»:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 P* 0 P IFT DSKPAG=1 : $ P SUKL A15,4 ADJUST STACKPOINTER P . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK x P XIF P RF TLDS40 P* P EJECT TLDSEG P* P* PTLDS05 EQU
0x15b16c…15b300 Dummy {f00=0x000f, f01=0x018e, f02=»0 SEGMENT LOADED IN CORE P ST A2,TTB:SA,A3 P CM PRUN 8 P* H P* ACTIVATE LOAD TASK R P* n 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK x P ABL TDISP GO TO DISPATCHER P* PTLDS10 EQU * $ P SUKL A15,4 ADJUST S
0x15b300…15b494 (1, 439) Dummy {f00=0x000f, f01=0x0190, f02=» P* TLSEG1 * P* TLSEG2 * P********** , P* > P* H > P* ENTRIES USED BY LDTASK IN PURPOSE TO REMOVE PAGE BLOCK R @ P* FROM PAGQUE, UPDATE CURRENT SEGMENT BASE AND MMU TABLE. P* P* INPUT: $ P* TLSEG1: A1 = SEG
0x15b494…15b628 Dummy {f00=0x000f, f01=0x0190, f02=»G2: A1 = PAGBLK ADDRESS ( P* A3 = TTAB ADDRESS LDTASK & P* A5 = " " " L P* v . P* OUTPUT: A1-A6 FROM TTAB SAVE AREA (A5) P* P XIF P* & PTLSEG1 EQU * ENTRY USED BY LDTASK ( P LD A1,SEG:P
0x15b628…15b7bc Dummy {f00=0x000f, f01=0x0190, f02=»N QUEUE r , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK @ " P STR A2,A4 UPDATE QUEUE LINKS x P ST A4,PAG:QB,A2 P XIF P* P EJECT TLDSEG P* , P* GET PAGE ADDRESS OF REQU
0x15b7bc…15b950 Dummy {f00=0x000f, f01=0x0190, f02=»G=1 P ECR A2,A1 P ANK A2,/FC P* 2 4 P* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE < P* t P LD A6,TTB:AP,A5 ACB ADDRESS ~ 4 P AD A3,ACBMMP,A6 POINT TO FIRST USED PAGE ENTRY 0 P LD A4,ACBNPE,A6 GET NUMBER OF PAGE ENTRIES
0x15b950…15bae4 Dummy {f00=0x000f, f01=0x0190, f02=» RF(NP) TLDS30 NO MORE PAGE ENTRIES & P ADK A3,2 POINT TO NEXT PAGE ENTRY , " P ADK A2,4 UPDATE PAGE ADDRESS V P RB TLDS25 | P* P EJECT TLDSEG P* P* 4 PTLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE P SLL A1,2
0x15bae4…15bc78 Dummy {f00=0x000f, f01=0x0190, f02=»MENT BASE l P XIF P* P IFT MMUPAG=0 ( PTLDS40 EQU * > 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE R P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x15bc78…15be0c Dummy {f00=0x000f, f01=0x40c2, f02=»A+6,A5 P LD A4,TTB:SA+8,A5 P LD A6,TTB:SA+12,A5 ( P LD A5,TTB:SA+10,A5 D $ P RTN A15 RETURN TO CALLING TASK ` P XIF P* P* P* P END @ $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x15be0c…15bfa0 Dummy {f00=0x000f, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x15bfa0…15c134 (1, 440) Dummy {f00=0x002a, f01=0x0190, f02=»PONDING MODULE CALLED BY 'TENDIO' AT M , P* COMPLETION OF THE REQUEST IS 'TEN:DM'. N , P* N " P* INPUT: A8 = DWT ECB ADDRESS N f $ P* A9 = USER ECB ADDRESS N P* N P* OUTPUT: A2 IS DESTROYED N P* N . PTIO:DM EQU * DATA MANAGEMENT,
0x15c134…15c2c8 Dummy {f00=0x002a, f01=0x0002, f02=» X
0x15c2c8…15c45c Dummy {f00=0x002a, f01=0x0190, f02=» J F IDENT TMMLKM REL 11.0 81-01-26 870105041100 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x15c45c…15c5f0 Dummy {f00=0x002a, f01=0x407a, f02=» ,$ T -_> | RELPAG Q - _H . P -U 3U IT H X d@ vPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x15c5f0…15c784 Dummy {f00=0x002a, f01=0x2008, f02=»
0x15c784…15c918 Dummy {f00=0x002a, f01=0x0190, f02=»UX BY THE DRIVER. R z 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT S , P* COMPLETION OF THE REQUEST IS 'TENMXI'. S R N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. S P* S P* INPUT: A5 = TTAB ADDRESS S " P*
0x15c918…15caac Dummy {f00=0x002a, f01=0x0190, f02=»FFER ADDRESS IS TRANSFERRED TO DWT ECB S x P* T . PTIOMXI EQU * MUX, INPUT T 8 P LDK A1,0 T X 2 P EL A2,ECBBA,A9 USER BUFFER ADDRESS (LOGICAL) T j " P DLL 4 4 LEFTMOST BITS INTO A1 T P ADR A1,A1 DOUBLE INDEX T P ADR A1,A5 T " P LC A1,TTB:MT,A1
0x15caac…15cc40 Dummy {f00=0x002a, f01=0x0190, f02=» T d 0 P ST A2,ECBBA,A8 BITS 2-17 IN 18-BIT ADDRESS U P RTN A15 U < P* U L P EJECT TOSSIO U V P* U n P* T I O K B I U x P* U B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN U N P* ISSUED AND THE DEVICE IS KEYBOARD/CTW. T
0x15cc40…15cdd4 (1, 441) Opaque[0x194]
0x15cdd4…15cf68 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0538, f03=0x0000}
0x15cdd4…15cf68 IdxSect {
0x15cdd4…15cf68 f00 = 0x0029 // 0x15cdd4 @0x0
0x15cdd4…15cf68 f01 = 0x0004 // 0x15cdd6 @0x2
0x15cdd4…15cf68 gno = [ // 0x15cdd8 @0x4
0x15cdd4…15cf68 [0x00]: C0x0029.0x3.0
0x15cdd4…15cf68 [0x01]: C0x002a.0x0.0
0x15cdd4…15cf68 ]
0x15cdd4…15cf68 }
0x15cf68…15d0fc Dummy {f00=0x0029, f01=0x0190, f02=» 2 P IDENT TABORT REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x15d0fc…15d290 Dummy {f00=0x0029, f01=0x0190, f02=»AINS THE | ( P* ABORT I/O REQUEST LKM PROCESSOR. P* < P* F P EJECT TABORT P P* h P* r P*********** | P* ENTRIES * P*********** P* P* P ENTRY TABORT P EJECT TABORT P* P*
0x15d290…15d424 Dummy {f00=0x0029, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n P EXTRN DWTECB ECB ADDRESS ( P EXTRN DWTSB2 2ND STACK BASE IN DWT * P EXTRN DWTECH ECHO DEVIC
0x15d424…15d5b8 Dummy {f00=0x0029, f01=0x0190, f02=»XTRN LKMRQE LKM REQUEST ERROR P EXTRN FREBLK FREE ONE BLOCK & P EXTRN ECBRC ECN RETURN CODE J P EJECT TABORT n P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P**********
0x15d5b8…15d74c Dummy {f00=0x0029, f01=0x0190, f02=»1. l P* PMMUPAG EQU 1 P* ( P EJECT TABORT 2 P* J P* T P********** ^ P* TABORT * p P********** P* P* 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM
0x15d74c…15d8e0 Dummy {f00=0x0029, f01=0x018e, f02=»* A PENDING I/O REQUEST IS ABORTED. < P* THE ABORT REQUEST MUST BE ISSUED FROM THE SAME TASK . : P* THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN n P* NOT BE ABORTED. P* P* PTABORT EQU * P IFT MMUPAG=0 " P L
0x15d8e0…15da74 (1, 442) Dummy {f00=0x002a, f01=0x0190, f02=» , P RF(N) TABRQE REQUEST ALREADY COMPLETED ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS 4 P LDR A7,A6 SAVE DWT ADDRESS ` P RF(Z) TABRQE DWT UNKNOWN P* P EJECT TABORT P* P* P CW A5,DWTTAB,A6 P RF(NE) TABRQE ILLEG
0x15da74…15dc08 Dummy {f00=0x002a, f01=0x018e, f02=» RF(E) TABRQE ABORT NOT ALLOWED P LD A4,DWTST,A6 ( " P RF(N) TABRQE DEVICE NOT BUSY @ P SLC A4,2 f $ P RF(NN) TAB:20 NOT ECHO REQUEST x & P LD A6,DWTECH,A6 ECHO DWT ADDRESS : P LD A3,DWTADR,A6 ADDRESS TO ECHO DRIVER ADDRESS BLOCK * P
0x15dc08…15dd9c Dummy {f00=0x002a, f01=0x0190, f02=» P SUK A3,1 2 P RF(Z) TABRQE ABORT NOT ALLOWED ON ECHO DEVICE " P LDR A6,A7 RESTORE DWT ADDRESS P P* v PTAB:20 EQU * P LD A4,DWTWAT,A6 " P RF(Z) TAB:30 I/O WITH NO WAIT : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK
0x15dd9c…15df30 Dummy {f00=0x002a, f01=0x0190, f02=» " P ST A1,DWTWAT,A6 INDICATE WAIT P SRC A1,2 A1 := /4000 . 0 P ORS A1,ECBRC,A8 SET RETURN CODE TO ABORTED L 6 P LDKL A5,DWTSB2 2ND STACK BASE DISPLACEMENT IN DWT P ADR A5,A6 ADD DWT ADDRESS P* , P* EXIT IS MADE TO DRIVER ABORT R
0x15df30…15e0c4 Dummy {f00=0x002a, f01=0x4124, f02=»A8 = ECB ADDRESS (IN SYSTEM AREA IF MMU) P* 0 $ P LDR A9,A9 ABORT ROUTINE ADDRESS : . P ABR(NZ) A9 PERFORM ABORT ROUTINE (IF ANY) b P ABL DISEND TENDIO AND TDISP P* 0 PTABRQE ABL LKMRQE GO AND INDICATE LKM ERROR P* P*
0x15e0c4…15e258 Dummy {f00=0x002a, f01=0x2008, f02=»
0x15e258…15e3ec Dummy {f00=0x002a, f01=0x0190, f02=»:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 P* 0 P IFT DSKPAG=1 : $ P SUKL A15,4 ADJUST STACKPOINTER P . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK x P XIF P RF TLDS40 P* P EJECT TLDSEG P* P* PTLDS05 EQU
0x15e3ec…15e580 Dummy {f00=0x002a, f01=0x018e, f02=»0 SEGMENT LOADED IN CORE P ST A2,TTB:SA,A3 P CM PRUN 8 P* H P* ACTIVATE LOAD TASK R P* n 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK x P ABL TDISP GO TO DISPATCHER P* PTLDS10 EQU * $ P SUKL A15,4 ADJUST S
0x15e580…15e714 (1, 443) Opaque[0x194]
0x15e714…15e8a8 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00e8, f03=0x0000}
0x15e714…15e8a8 IdxSect {
0x15e714…15e8a8 f00 = 0x0007 // 0x15e714 @0x0
0x15e714…15e8a8 f01 = 0x0006 // 0x15e716 @0x2
0x15e714…15e8a8 gno = [ // 0x15e718 @0x4
0x15e714…15e8a8 [0x00]: C0x0007.0x1.0
0x15e714…15e8a8 [0x01]: C0x0007.0x2.0
0x15e714…15e8a8 [0x02]: C0x002a.0x1.0
0x15e714…15e8a8 ]
0x15e714…15e8a8 }
0x15e8a8…15ea3c Dummy {f00=0x0007, f01=0x0190, f02=» 2 P IDENT MONTIM REL 11.0 81-01-26 870105041100 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* MONTIM = MONITOR CLOCK/DATE PROCESSORS P*
0x15ea3c…15ebd0 Dummy {f00=0x0007, f01=0x0190, f02=» @ P* THIS MODULE CONTAINS TOSS MONITOR CLOCK/DATE PROCESSORS P* H 0 P* -GETTIM GET TIME FROM MONITOR CLOCK R P* . P* -SETTIM SET TIME IN MONITOR CLOCK P* 0 P* -GETDAT GET DATE FROM MONITOR CLOCK P* .
0x15ebd0…15ed64 Dummy {f00=0x0007, f01=0x0190, f02=»* P*********** P* P* ( . P ENTRY GETTIM GET TIME FROM MONITOR CLOCK 2 , P ENTRY SETTIM SET TIME IN MONITOR CLOCK d . P ENTRY TDATE GET/SET DATE IN MONITOR CLOCK P EJECT MONTIM P* P* P************* P
0x15ed64…15eef8 Dummy {f00=0x0007, f01=0x0190, f02=»H l P EXTRN TTB:SA TTAB SAVE AREA P EJECT MONTIM . P* F P* P . P***************************************** Z P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P* . P* A PROGRAM VE
0x15eef8…15f08c Dummy {f00=0x0007, f01=0x0190, f02=»M P* P* P********** P* GETTIM * 0 P********** B P* T P* ^ , P* THIS IS THE GET TIME LKM PROCESSOR. h P* , P* IT IS ENTERED FROM THE LKM HANDLER 0 P* WITH ADDRESS TO THE USER TIMER CONTROL 2 P*
0x15f08c…15f220 Dummy {f00=0x0007, f01=0x0190, f02=»ONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P* 0 $ PGETDAT EQU * ENTRY USED BY TDATE : P LDK A3,6 COUNTER b P LDR* A6,A7 SECONDS | P STR A6,A15 SAVE ON STACK P SUK A7,2 P LDR* A6,A7 MINUTES P STR A6,A15 SAVE ON STACK
0x15f220…15f3b4 (1, 444) Dummy {f00=0x0007, f01=0x0190, f02=» SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 . ( P SCR A6,A8 STORE LEFTHAND CHARACTER @ P XIF l P* x P EJECT MONTIM P* P* P IFT MMUPAG=1 . P LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS P ANK A4,1 " P
0x15f3b4…15f548 Dummy {f00=0x0007, f01=0x0190, f02=»A1,1,A8 P ELR A4,A8 P SRL A6,8 " P ANKL A4,/FF00 4 P ORR A6,A4 J P* 6 PGETT15 ESR A6,A8 SET VALUE IN TIMER CONTROL BLOCK f P XIF P* P SUK A3,2 P RF(E) GETT20 P ADKL A8,2 , P LDR* A6,A15 GET ACTUAL
0x15f548…15f6dc Dummy {f00=0x0007, f01=0x0190, f02=»ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 " P* X PTPDIS EQU * b P CMR A7 CLEAR MIDNIGTH CARRY v P ABL LKMQDI P* P EJECT MONTIM P* P* P********** P* SETTIM * P
0x15f6dc…15f870 Dummy {f00=0x0007, f01=0x0190, f02=»WITH h 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS @ $ P* COPIED INTO MONITOR CLOCK. t P* P* PSETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P* $ P
0x15f870…15fa04 Dummy {f00=0x0007, f01=0x0190, f02=»6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 $ ( P LC A6,1,A8 GET RIGHTHAND CHARACTER 6 P XIF b P* n P EJECT MONTIM x P* P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CON
0x15fa04…15fb98 Dummy {f00=0x0007, f01=0x0190, f02=» SLL A6,8 P SRL A4,8 P ORR A6,A4 $ P* 6 PSETT15 EQU * @ P XIF T P* ` $ P CF A15,ASCTBY CONVERT TO BINARY j P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS AND MINUTES P RB
0x15fb98…15fd2c Dummy {f00=0x0007, f01=0x0190, f02=» l P SUK A7,2 P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK . P SUK A7,2 Z P LDR* A6,A15 l & P STR A6,A7 HOURS TO MONITOR CLOCK P SUK A7,2 P RB TPDIS P* P EJECT MONTIM P* P* P****
0x15fd2c…15fec0 Dummy {f00=0x0007, f01=0x0190, f02=» IT IS ENTERED FROM THE LKM HANDLER ( P* WITH THE FOLLOWING PARAMETERS: , P* X $ P* A7 = GET/SET DATE PARAMETER b < P* (A7 = 0 MEANS GET DATE, A7 = 1 MEANS SET DATE) & P* A8 = DATE CONTROL BLOCK (DCB) P* P* 0 P
0x15fec0…160054 (1, 445) Dummy {f00=0x002a, f01=0x0190, f02=»DK A1,0 SET CR P RB(Z) GETDAT GET DATE P RB SETDAT SET DATE 4 P* P P EJECT MONTIM Z P* r P* | P********** P* BYTASC * P********** P* P* 2 P* BYTASC = SUBROUTINE TO CONVERT A6-CONTENT ( P*
0x160054…1601e8 Dummy {f00=0x002a, f01=0x0190, f02=»* PBYTA10 SUK A6,/A P RF(N) BYTA20 " P ADKL A4,/100 8 P RB BYTA10 N P* ` PBYTA20 ADK A6,/A j P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P* P EJECT MONTIM P* P* P********** P* ASCT
0x1601e8…16037c Dummy {f00=0x002a, f01=0x414e, f02=»RY. p P* RESULT IN A6. P* 0 P* : PASCTBY EQU * D P LDR A4,A6 X P ANK A6,/F j P SRL A4,8 | P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P*
0x16037c…160510 Dummy {f00=0x002a, f01=0x2008, f02=» ASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 2 PASCT20 RTN A15 H P END ^@ j P RTN A15 p P* P* 2 P* ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT ( P* FROM ASCII TO BINARY. P* RESU
0x160510…1606a4 Dummy {f00=0x002a, f01=0x2008, f02=»
0x1606a4…160838 Dummy {f00=0x002a, f01=0x0190, f02=»MENT BASE l P XIF P* P IFT MMUPAG=0 ( PTLDS40 EQU * > 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE R P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x160838…1609cc Dummy {f00=0x002a, f01=0x40c2, f02=»A+6,A5 P LD A4,TTB:SA+8,A5 P LD A6,TTB:SA+12,A5 ( P LD A5,TTB:SA+10,A5 D $ P RTN A15 RETURN TO CALLING TASK ` P XIF P* P* P* END @ $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x1609cc…160b60 Dummy {f00=0x002a, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x160b60…160cf4 (1, 446) Opaque[0x194]
0x160cf4…160e88 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0210, f03=0x0000}
0x160cf4…160e88 IdxSect {
0x160cf4…160e88 f00 = 0x0010 // 0x160cf4 @0x0
0x160cf4…160e88 f01 = 0x0004 // 0x160cf6 @0x2
0x160cf4…160e88 gno = [ // 0x160cf8 @0x4
0x160cf4…160e88 [0x00]: C0x0010.0x2.0
0x160cf4…160e88 [0x01]: C0x0010.0x3.0
0x160cf4…160e88 ]
0x160cf4…160e88 }
0x160e88…16101c Dummy {f00=0x0010, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 11.0 81-01-26 870105041100 P : P* B " P* KEYBOARD DEVICE WORK TABLE L P* r P ENTRY DVKB00 TABLE ENTRY | P EXTRN CTAB01 P EXTRN DVDY00 P EXTRN KBAD4 PMMUPAG EQU 1 P* P* P*
0x16101c…1611b0 Dummy {f00=0x0010, f01=0x0190, f02=»S ~ P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK , P DATA 'KB' TTAB ADDRESS X " P DATA 0 WAIT/ACTIVE INDICATOR x P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB
0x1611b0…161344 Dummy {f00=0x0010, f01=0x0190, f02=»ATA 0 SAVE AREA FOR A5 P RES 4 DWT STACK P DATA 0 SAVE AREA FOR A7 6 P DATA 0 SAVE AREA FOR A8 V $ P DATA /0001 CHANNEL PARAMETER-2 v " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /1000 DEVICE STATUS
0x161344…1614d8 Dummy {f00=0x0010, f01=0x0190, f02=»CONVERSION POINTERS p P DATA 0 TIMER . P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE 2 , P DATA DWTSQ+DVKB00 POINTER TO LAST PLACE d PDWTSQ EQU *-DVKB00 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMU
0x1614d8…16166c Dummy {f00=0x0010, f01=0x405c, f02=»0,0,0 P DATA 0,0,0,0,0,0,0,0 P XIF , PDWTEND EQU * 8 P END L@ X 2 , P DATA DWTSQ+DVKB00 POINTER TO LAST PLACE d PDWTSQ EQU *-DVKB00 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMU
0x16166c…161800 Dummy {f00=0x0010, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x161800…161994 (1, 447) Dummy {f00=0x0010, f01=0x0190, f02=» P DATA SCT P P " P* * P* SYSTEM TRAP 4 P* J PTRAP LDK A1,/D T P CF A15,HALT j P RES 4 ~ P HLT P P* P* DEBUG RESTART ENTRY P* P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG
0x161994…161b28 Dummy {f00=0x0010, f01=0x018e, f02=»DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE " $ PX:D EQU 0 DM/FM NUMBER OF FILES P ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK x $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM 4 PX:H EQU 10 NUMBER OF SEG
0x161b28…161cbc Dummy {f00=0x0010, f01=0x0190, f02=» * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FREE AREA 6 $ PSCTEFA DATA 0,0 END OF FREE AREA ` ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: * P TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9 $ PSCTANO DATA 0 APPLICATION NUMBER
0x161cbc…161e50 Dummy {f00=0x0010, f01=0x0190, f02=»GES v PSCTPSZ DATA 0 PAGE SIZE & PSCTSTB DATA STB SYSTEM STACK BASE , $ PSCTOPT DATA X:A MONITOR OPTION: V " P BIT 10:MPO,11:EMM,12:SWPBLK ~ $ P BIT 13:FM,14:DSKPAG,15:MMUPAG PSCTBUG DATA BUG DEBUGGER & PSCTDMT DATA X:B DMTASKS IN S
0x161e50…161fe4 Dummy {f00=0x0010, f01=0x0190, f02=»T ADDRESS t $ PSCTNOF DATA X:D NUMBER OF FILES ( PSCTNFT DATA X:E NUMBER OF FILES/TASK : * PSCTFWL DATA X:F FILE WORK TABLE LENGTH f ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE , PSCTNOS DATA X:H NUMBER O
0x161fe4…162178 Dummy {f00=0x0010, f01=0x0190, f02=» P P* P* SYSTEM STACK P* , $ PSTKEND EQU * END OF SYSTEM STACK 6 P RES 68 ^ PSTKMOV LDR* A4,A1 n P STR A4,A2 P ADK A1,2 P ADK A2,2 P SUK A3,2 P ABR(Z) A7 P RB STKMOV PSTKCOM EQU * P
0x162178…16230c Dummy {f00=0x0010, f01=0x4060, f02=»* IDLE LOOP P* P PLOOP RB * & P 8 P @ P H P END P@ ES 68 ^ PSTKMOV LDR* A4,A1 n P STR A4,A2 P ADK A1,2 P ADK A2,2 P SUK A3,2 P ABR(Z) A7 P RB STKMOV PSTKCOM EQU * P
0x16230c…1624a0 Dummy {f00=0x0010, f01=0x2008, f02=» P P END INIM @ & P EJECT 2 P @ P* H P* START SYSTEM R P* h P r P LD A13,CVTAPS z * P STR A13,A15 STORE USER START ADDRESS " P STR A7,A15 AND LEVEL ON STACK " P ABL PFINIT INITIALIZE DEVICES
0x1624a0…162634 (1, 448) Opaque[0x194]
0x162634…1627c8 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0220, f03=0x0000}
0x162634…1627c8 IdxSect {
0x162634…1627c8 f00 = 0x0011 // 0x162634 @0x0
0x162634…1627c8 f01 = 0x0002 // 0x162636 @0x2
0x162634…1627c8 gno = [ // 0x162638 @0x4
0x162634…1627c8 [0x00]: C0x0011.0x0.0
0x162634…1627c8 ]
0x162634…1627c8 }
0x1627c8…16295c Dummy {f00=0x0011, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 11.0 81-01-26 870105041100 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY00 EQU * T
0x16295c…162af0 Dummy {f00=0x0011, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB
0x162af0…162c84 Dummy {f00=0x0011, f01=0x0190, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 . P DATA 0 SAVE AREA FOR A8 N $ P DATA /0004 CHANNEL PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x162c84…162e18 Dummy {f00=0x0011, f01=0x4082, f02=» IN BLOCK ~ P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 ( P XIF H PDWTEND EQU * T P* h P END r@ ~PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x162e18…162fac Dummy {f00=0x0011, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x162fac…163140 Dummy {f00=0x0011, f01=0x0190, f02=» ANK A4,/3 P ADR A4,A4 DOUBLE INDEX P ADR A4,A6 2 P RB RETURN D P* V P EJECT DSKSUB ` P* x P* P********** P* NVLTAB * P********** P* P* 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS
0x163140…1632d4 (1, 449) Opaque[0x194]
0x1632d4…163468 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0280, f03=0x0000}
0x1632d4…163468 IdxSect {
0x1632d4…163468 f00 = 0x0014 // 0x1632d4 @0x0
0x1632d4…163468 f01 = 0x0004 // 0x1632d6 @0x2
0x1632d4…163468 gno = [ // 0x1632d8 @0x4
0x1632d4…163468 [0x00]: C0x0014.0x0.0
0x1632d4…163468 [0x01]: C0x0016.0x2.0
0x1632d4…163468 ]
0x1632d4…163468 }
0x163468…1635fc Dummy {f00=0x0014, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 11.0 81-01-26 870105041100 P : P* B " P* KEYBOARD DEVICE WORK TABLE L P* r P ENTRY DVKB01 TABLE ENTRY | P EXTRN CTAB02 P EXTRN DVDY01 P EXTRN KBAD4 PMMUPAG EQU 1 P* P* P*
0x1635fc…163790 Dummy {f00=0x0014, f01=0x0190, f02=»S ~ P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK , P DATA 'KB' TTAB ADDRESS X " P DATA 0 WAIT/ACTIVE INDICATOR x P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB
0x163790…163924 Dummy {f00=0x0014, f01=0x0190, f02=»ATA 0 SAVE AREA FOR A5 P RES 4 DWT STACK P DATA 0 SAVE AREA FOR A7 6 P DATA 0 SAVE AREA FOR A8 V $ P DATA /0001 CHANNEL PARAMETER-2 v " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /1000 DEVICE STATUS
0x163924…163ab8 Dummy {f00=0x0014, f01=0x0190, f02=»CONVERSION POINTERS p P DATA 0 TIMER . P DATA DWTSQ+DVKB01 POINTER TO FIRST PLACE 2 , P DATA DWTSQ+DVKB01 POINTER TO LAST PLACE d PDWTSQ EQU *-DVKB01 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMU
0x163ab8…163c4c Dummy {f00=0x0014, f01=0x405c, f02=»0,0,0 P DATA 0,0,0,0,0,0,0,0 P XIF , PDWTEND EQU * 8 P END L@ X 2 , P DATA DWTSQ+DVKB01 POINTER TO LAST PLACE d PDWTSQ EQU *-DVKB01 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMU
0x163c4c…163de0 Dummy {f00=0x0014, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x163de0…163f74 (1, 450) Dummy {f00=0x0016, f01=0x2008, f02=»
0x163f74…164108 Dummy {f00=0x0016, f01=0x0002, f02=»
0x164108…16429c Dummy {f00=0x0016, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 11.0 81-01-26 870105041100 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY00 EQU * T
0x16429c…164430 Dummy {f00=0x0016, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB
0x164430…1645c4 Dummy {f00=0x0016, f01=0x0190, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 . P DATA 0 SAVE AREA FOR A8 N $ P DATA /0004 CHANNEL PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x1645c4…164758 Dummy {f00=0x0016, f01=0x4082, f02=» IN BLOCK ~ P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 ( P XIF H PDWTEND EQU * T P* h P END r@ ~PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x164758…1648ec Dummy {f00=0x0016, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x1648ec…164a80 Dummy {f00=0x0016, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x164a80…164c14 (1, 451) Opaque[0x194]
0x164c14…164da8 # DirEnt {nam=»DVDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e0, f03=0x0000}
0x164c14…164da8 IdxSect {
0x164c14…164da8 f00 = 0x0017 // 0x164c14 @0x0
0x164c14…164da8 f01 = 0x0002 // 0x164c16 @0x2
0x164c14…164da8 gno = [ // 0x164c18 @0x4
0x164c14…164da8 [0x00]: C0x0017.0x0.0
0x164c14…164da8 ]
0x164c14…164da8 }
0x164da8…164f3c Dummy {f00=0x0017, f01=0x0190, f02=» 2 P IDENT DVDI01 REL 11.0 81-01-26 870105041100 P : P* B . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR L P* ~ P* & P ENTRY DVDI01 DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 1
0x164f3c…1650d0 Dummy {f00=0x0017, f01=0x0190, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVDI01 ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK B P DATA 'DI' TTAB ADDRESS n P DATA 0 WAIT ACTIVATE P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x1650d0…165264 Dummy {f00=0x0017, f01=0x018e, f02=» P DATA 0 SAVE AREA A5 =1 P RES 4 DWT STACK $ P DATA 0 SAVE AREA A7 =1 < P DATA 0 SAVE AREA A8 $ P DATA /000C CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /8000 DEVICE STATUS
0x165264…1653f8 Dummy {f00=0x0017, f01=0x4082, f02=» x P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF > PDWTEND EQU * J P* ^ P* h P END r@ ~C CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /8000 DEVICE STATUS
0x1653f8…16558c Dummy {f00=0x0017, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x16558c…165720 Dummy {f00=0x0017, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x165720…1658b4 (1, 452) Opaque[0x194]
0x1658b4…165a48 # DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e8, f03=0x0000}
0x1658b4…165a48 IdxSect {
0x1658b4…165a48 f00 = 0x0017 // 0x1658b4 @0x0
0x1658b4…165a48 f01 = 0x0002 // 0x1658b6 @0x2
0x1658b4…165a48 gno = [ // 0x1658b8 @0x4
0x1658b4…165a48 [0x00]: C0x0017.0x1.0
0x1658b4…165a48 ]
0x1658b4…165a48 }
0x165a48…165bdc Dummy {f00=0x0017, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 11.0 81-01-26 870105041100 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY01 EQU * T
0x165bdc…165d70 Dummy {f00=0x0017, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB
0x165d70…165f04 Dummy {f00=0x0017, f01=0x0190, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 . P DATA 0 SAVE AREA FOR A8 N $ P DATA /0004 CHANNEL PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x165f04…166098 Dummy {f00=0x0017, f01=0x4082, f02=» IN BLOCK ~ P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 ( P XIF H PDWTEND EQU * T P* h P END r@ ~PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x166098…16622c Dummy {f00=0x0017, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x16622c…1663c0 Dummy {f00=0x0017, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x1663c0…166554 (1, 453) Opaque[0x194]
0x166554…1666e8 # DirEnt {nam=»DVG202«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0510, f03=0x0000}
0x166554…1666e8 IdxSect {
0x166554…1666e8 f00 = 0x0028 // 0x166554 @0x0
0x166554…1666e8 f01 = 0x0004 // 0x166556 @0x2
0x166554…1666e8 gno = [ // 0x166558 @0x4
0x166554…1666e8 [0x00]: C0x0028.0x2.0
0x166554…1666e8 [0x01]: C0x0028.0x3.0
0x166554…1666e8 ]
0x166554…1666e8 }
0x1666e8…16687c Dummy {f00=0x0028, f01=0x0190, f02=» 2 P IDENT DVG202 REL 11.0 81-01-26 870105041100 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVG202 TABLE ENTRY | P* P* * P EXTRN GPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND. P
0x16687c…166a10 Dummy {f00=0x0028, f01=0x0190, f02=»A 0 ECB ADDRESS P DATA DWTEND-DVG202 ORDER ( P DATA GPAD3 POINTER TO ADDRESS BLOCK : P DATA 'GP' TTAB-ADDRESS f $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x166a10…166ba4 Dummy {f00=0x0028, f01=0x0190, f02=»ATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 6 $ P DATA /0003 CHANNEL PARAMETER 2 R $ P DATA 0 LINE DRIVER DEPENDENT 1 z $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P DATA 0 TIMER POINTER "
0x166ba4…166d38 Dummy {f00=0x0028, f01=0x0190, f02=» LENGTH z P DATA 0 ACTUAL LINE DOCUMENT $ P DATA 0 REQUESTED LINE DOCUMENT 4 P DATA 0 RETURN CODE $ P DATA 0 CONTROL SEQUENCE ADRESS x 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER
0x166d38…166ecc Dummy {f00=0x0028, f01=0x4142, f02=»IX & PITCH ~ P DATA 0 LINE SPACE " P DATA /3300 HIGH SPEED PARAM. , P DATA 0 HOPPER 1 OR 2 R P DATA 0,0 LAST TAB POS. p & P DATA 0 CONTR. SEQ. SEPARATOR IND. P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF
0x166ecc…167060 Dummy {f00=0x0028, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x167060…1671f4 (1, 454) Dummy {f00=0x0028, f01=0x0190, f02=» ~ P* F P* DISPLACEMENTS IN SEGTAB, PAGTAB , SWBTAB AND APPL. CONTROL BLOCK P* PSEG:FC EQU -4 FILE CODE f $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE
0x1671f4…167388 Dummy {f00=0x0028, f01=0x0002, f02=»
0x167388…16751c Dummy {f00=0x0028, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 11.0 81-01-26 870105041100 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY01 EQU * T
0x16751c…1676b0 Dummy {f00=0x0028, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB
0x1676b0…167844 Dummy {f00=0x0028, f01=0x0190, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 . P DATA 0 SAVE AREA FOR A8 N $ P DATA /0004 CHANNEL PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x167844…1679d8 Dummy {f00=0x0028, f01=0x4082, f02=» IN BLOCK ~ P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 ( P XIF H PDWTEND EQU * T P* h P END r@ ~PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x1679d8…167b6c Dummy {f00=0x0028, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x167b6c…167d00 Dummy {f00=0x0028, f01=0x018e, f02=» P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 < P DATA ILLINT 56 X P DATA ILLINT 57 t P DATA ILLINT 58 P DATA ILLINT 59 P DATA ILLINT 60 P DATA ILLINT 61 P DATA IL
0x167d00…167e94 (1, 455) Opaque[0x194]
0x167e94…168028 # DirEnt {nam=»SYSBUG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0308, f03=0x0000}
0x167e94…168028 IdxSect {
0x167e94…168028 f00 = 0x0018 // 0x167e94 @0x0
0x167e94…168028 f01 = 0x0006 // 0x167e96 @0x2
0x167e94…168028 gno = [ // 0x167e98 @0x4
0x167e94…168028 [0x00]: C0x0018.0x1.0
0x167e94…168028 [0x01]: C0x001d.0x3.0
0x167e94…168028 [0x02]: C0x001e.0x2.0
0x167e94…168028 ]
0x167e94…168028 }
0x168028…1681bc Dummy {f00=0x0018, f01=0x0190, f02=» 2 P IDENT SYSBUG REL 11.0 81-02-23 870105041100 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSBUG = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x1681bc…168350 Dummy {f00=0x0018, f01=0x0190, f02=»*************** l P* P* " P EJECT SYSBUG , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* & P ENTRY SCTMSZ,SCTSFA,SCTEFA,SCTIPL & P ENTRY SCTANO,SCTTCT,SCTCDT,SCTPAG & P ENTRY SCTNO
0x168350…1684e4 Dummy {f00=0x0018, f01=0x0190, f02=»CTMXS,SCTMOX z P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB 0 & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:SB Z & P ENTRY SWB:NC,SWB:DS,SWB:EL,SWB:NS P ENTRY STKEND,STKCOM,STKMOV & P ENTRY ACBIOE,ACBSWB,ACBSEG,ACBNPE & P ENTRY ACBMM
0x1684e4…168678 Dummy {f00=0x0018, f01=0x0190, f02=»TERNALS * P************* P* ( P* 2 P EXTRN TDISP < , P EXTRN IHPFAR POWER FAIL / AUTO RESTART P P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE TAPE ( P E
0x168678…16880c Dummy {f00=0x0018, f01=0x0190, f02=»XTRN CHRT3 P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 & ( P EXTRN IHCC2 2 R ( P EXTRN IHCC3 3 ~ L P EXTRN CHLT1,IHSVU1,IHSVU2,IHSVU3,IHSVU4,IHSVU5 LOCAL CHANNEL UNIT NO. 1 > P EXTRN CHLT2,I
0x16880c…1689a0 Dummy {f00=0x0018, f01=0x018e, f02=»IHPVU8 t 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC * P EXTRN IHLP,IHPL03,IHPL04 LINE PRINTER B ( P EXTRN IHCR,CHLT3,CHLT4 CARD-READER p ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC P EXTRN IHMT
0x1689a0…168b34 (1, 456) Dummy {f00=0x001d, f01=0x018e, f02=» ~ P* F P* DISPLACEMENTS IN SEGTAB, PAGTAB , SWBTAB AND APPL. CONTROL BLOCK P* PSEG:FC EQU -4 FILE CODE f $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE
0x168b34…168cc8 Dummy {f00=0x001d, f01=0x0190, f02=» j PPAG:PA EQU 4 PAGE ADDRESS & PPAG:SB EQU 6 SEGMENT BLOCK ADDRESS * P* T 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE ^ 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY $ PSWB:EL EQU 4 SWB LENGTH (BYTES) & PSWB:NS EQU 6 SWB LENGT
0x168cc8…168e5c Dummy {f00=0x001d, f01=0x0190, f02=»ABLE POOL z ( PACBNPE EQU 6 NUMBER OF PAGE ENTRIES & PACBMMP EQU 8 MMU TABLE PAGE ENTRY > . PACBMMC EQU 10 MMU TABLE COMMON PART ENTRY h * PACBLAP EQU 12 LOGICAL ADDRESS TO PAGE 0 PACBLAC EQU 14 LOGICAL ADDRESS TO COMMON PART 4 PACBSTA EQU 1
0x168e5c…168ff0 Dummy {f00=0x001d, f01=0x018e, f02=»S f P P P PSTART EQU * " P EJECT SYSBUG 6 P* N P* INTERRUPT VECTORS X P* t P DATA IHPFAR ~ P DATA IHLKM P DATA IHRTC P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT
0x168ff0…169184 Dummy {f00=0x001d, f01=0x0190, f02=» P DATA CHLT1 P DATA IHFD P DATA ILLINT 0 P DATA ILLINT D P DATA ILLINT X P DATA ILLINT l P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA CHLT1 P DATA ILLINT P DATA ILLINT
0x169184…169318 Dummy {f00=0x001d, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT P DATA ILLINT 0 P DATA ILLINT D P DATA ILLINT X P DATA ILLINT l P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT
0x169318…1694ac Dummy {f00=0x001d, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT P DATA ILLINT 0 P DATA ILLINT D P DATA ILLINT X P DATA ILLINT l P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA TRAP TRAP ROUTINE P EJECT SYSBUG P P* " P*
0x1694ac…169640 Dummy {f00=0x001d, f01=0x0190, f02=» P CF A15,HALT P RES 4 P HLT * P 6 P* > P* DEBUG RESTART ENTRY H P* f P XRR A13,A13 p P XRR A14,A14 P LD A1,SCTBUG P ABR(NZ) A1 P HLT P* P EJECT SYSBUG P* P* PX:A
0x169640…1697d4 (1, 457) Dummy {f00=0x001e, f01=0x0190, f02=»MBER OF FILES ~ ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK $ PX:F EQU 0 FILE WORK TABLE LENGTH B PX:G EQU 0 DC TASK IN SYSTEM j 4 PX:H EQU 10 NUMBER OF SEGMENT TABLES (BASIC ONLY) P* P EJECT SYSBUG P* P* SYSTEM CONTROL TABLE
0x1697d4…169968 Dummy {f00=0x001e, f01=0x0190, f02=»FA DATA 0,0 END OF FREE AREA ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: $ * P TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9 P $ PSCTANO DATA 0 APPLICATION NUMBER ~ PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB ADDRE
0x169968…169afc Dummy {f00=0x001e, f01=0x0190, f02=»097 MONITOR OPTION: " P BIT 10:MPO,11:EMM,12:SWPBLK $ P BIT 13:FM,14:DSKPAG,15:MMUPAG B PSCTBUG DATA BUG DEBUGGER j & PSCTDMT DATA X:B DMTASKS IN SYSTEM & P BIT 12:#G, 13:#F, 14:#E, 15:#D 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER S
0x169afc…169c90 Dummy {f00=0x001e, f01=0x018e, f02=»SK l , PSCTFWL DATA 00000 FILE WORK TABLE LENGTH ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK : . PSCTDCT DATA 00001 DC-TASK IN SYSTEM/REMOTE f , PSCTNOS DATA X:H NUMBER OF SEGMENT TABLES $ PSCTMXS DATA 0 ADDRESS TO MXSTAB 0 PSCTMOX DATA 0 ADDRESS TO
0x169c90…169e24 Dummy {f00=0x001e, f01=0x018e, f02=» n P RES 68 PSTKMOV LDR* A4,A1 P STR A4,A2 2 P ADK A1,2 D P ADK A2,2 V P SUK A3,2 h P ABR(Z) A7 z P RB STKMOV PSTKCOM EQU * P RES 61 P RORG START+/1FC P DATA /FCC0 AND PSW & PSTB DATA LOOP AND
0x169e24…169fb8 Dummy {f00=0x001e, f01=0x400c, f02=» @ 68 PSTKMOV LDR* A4,A1 P STR A4,A2 2 P ADK A1,2 D P ADK A2,2 V P SUK A3,2 h P ABR(Z) A7 z P RB STKMOV PSTKCOM EQU * P RES 61 P RORG START+/1FC P DATA /FCC0 AND PSW & PSTB DATA LOOP AND
0x169fb8…16a14c Dummy {f00=0x001e, f01=0x2008, f02=» P P END INIM @ & P EJECT 2 P @ P* H P* START SYSTEM R P* h P r P LD A13,CVTAPS z * P STR A13,A15 STORE USER START ADDRESS " P STR A7,A15 AND LEVEL ON STACK " P ABL PFINIT INITIALIZE DEVICES
0x16a14c…16a2e0 Dummy {f00=0x001e, f01=0x4036, f02=» P* P* P* P END &@ 2* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x16a2e0…16a474 (1, 458) Opaque[0x194]
0x16a474…16a608 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a38, f03=0x0000}
0x16a474…16a608 IdxSect {
0x16a474…16a608 f00 = 0x0051 // 0x16a474 @0x0
0x16a474…16a608 f01 = 0x0002 // 0x16a476 @0x2
0x16a474…16a608 gno = [ // 0x16a478 @0x4
0x16a474…16a608 [0x00]: C0x0051.0x3.0
0x16a474…16a608 ]
0x16a474…16a608 }
0x16a608…16a79c Dummy {f00=0x0051, f01=0x0190, f02=» , P IDENT CTAB01 820111 NJ CTAB01 CREBUG AF P ENTRY CTAB01 4 PCTAB01 EQU * J P DATA UNSH,SHIFT,0,0,0 ^ $ PUNSH DATA 0,0,U2,U3,0,U5,0,U7,0 | P* & PSHIFT DATA 0,0,S2,S3,0,S5,S6,S7,0 P* < PU2 DATA /2021,/2223,/2425,/2627,/FF3C,
0x16a79c…16a930 Dummy {f00=0x0051, f01=0x0190, f02=»B5D,/FF5F b < PU7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F P* R < PS2 DATA /2021,/2223,/2425,/262A,/FF3E,/2A3F,/3B5F,/3A2F < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F < PS5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,
0x16a930…16aac4 Dummy {f00=0x0051, f01=0x401c, f02=»E7F P END @ 071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F P* R < PS2 DATA /2021,/2223,/2425,/262A,/FF3E,/2A3F,/3B5F,/3A2F < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F < PS5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,
0x16aac4…16ac58 Dummy {f00=0x0051, f01=0x2008, f02=» < 7S5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7S7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F L END @ 051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7U7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7
0x16ac58…16adec Dummy {f00=0x0051, f01=0x0190, f02=» D E n , ( ! @ b H ` & H ` $ E , ( #_ A P @ L 9k > , ( B $ A A J ` n , ( & ( ` $ A N J $ K , ( @ $ J J | | , ( #
0x16adec…16af80 Dummy {f00=0x0051, f01=0x0190, f02=» u D 4 Q _l , 1 , ( A * = G 6 2 . LSTPAG ^ , ( @ & A $ $ @ E p SCTTCT , ( $ : " L M _V < < * & <P & &X ' 6 @
0x16af80…16b114 (1, 459) Opaque[0x194]
0x16b114…16b2a8 # DirEnt {nam=»MONLNK«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x11e0, f03=0x0000}
0x16b114…16b2a8 IdxSect {
0x16b114…16b2a8 f00 = 0x008f // 0x16b114 @0x0
0x16b114…16b2a8 f01 = 0x0002 // 0x16b116 @0x2
0x16b114…16b2a8 gno = [ // 0x16b118 @0x4
0x16b114…16b2a8 [0x00]: C0x008f.0x0.0
0x16b114…16b2a8 ]
0x16b114…16b2a8 }
0x16b2a8…16b43c Dummy {f00=0x008f, f01=0x0176, f02=» PASG /02,LP0F PSCR PPRT MONLNK $ PSCR 6 PINC SYSBUG B PNOD AM T PINC SYSLOD b PINC SYSLDM t PINC SYSLCR PINC SYSINI PLKE M PKPF /L,M:TEST PSCR PINC SYSTAB PNOD AM PINC SYSLOD
0x16b43c…16b5d0 Dummy {f00=0x008f, f01=0x2008, f02=» /02,LP0F PSCR PPRT MONLNK $ PSCR 6 PINC SYSBUG B PNOD AM T PINC SYSLOD b PINC SYSLDM t PINC SYSLCR PINC SYSINI PLKE M PKPF /L,M:TEST PSCR PINC SYSTAB PNOD AM PINC SYSLOD
0x16b5d0…16b764 Dummy {f00=0x008f, f01=0x0190, f02=»
0x16b764…16b8f8 Dummy {f00=0x008f, f01=0x0190, f02=»0 0 0 H V W ' u ' " C C G C C C D X ` d h "D = >`< 6 r 0 h j h< = b cd a` b cd ! P P P X P
0x16b8f8…16ba8c Dummy {f00=0x008f, f01=0x0190, f02=» Q Y W X " " X X . 8 X 0P X T 5 ! Y * X 2 y X V. X X ( x C ( Y * X Y , X X C & C C ( B Ph9 R^9 X !@PP X X * b ) Y * Y , X , x
0x16ba8c…16bc20 Dummy {f00=0x008f, f01=0x0190, f02=» X * n_R X !@XX y X # x V y X X * P P 1 _ 1 2 X * V X X * $" X D % " X # X * y _< X # X * y X 1 1 X !@T X $ " P y _ x T X H X X * , )$ P _ : X "
0x16bc20…16bdb4 (1, 460) Opaque[0x194]
0x16bdb4…16bf48 # DirEnt {nam=»CTABXX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04e8, f03=0x0000}
0x16bdb4…16bf48 IdxSect {
0x16bdb4…16bf48 f00 = 0x0027 // 0x16bdb4 @0x0
0x16bdb4…16bf48 f01 = 0x0002 // 0x16bdb6 @0x2
0x16bdb4…16bf48 gno = [ // 0x16bdb8 @0x4
0x16bdb4…16bf48 [0x00]: C0x0027.0x1.0
0x16bdb4…16bf48 ]
0x16bdb4…16bf48 }
0x16bf48…16c0dc Dummy {f00=0x0027, f01=0x0190, f02=» 0 P IDENT CTAB01 820111 NJ ARBEJDSFORMIDLINGEN P ENTRY CTAB01 8 P ENTRY CTAB02 N PCTAB01 EQU * d PCTAB02 EQU * x P DATA UNSH,SHIFT,0,0,0 $ PUNSH DATA 0,0,U2,U3,0,U5,0,U7,0 P* & PSHIFT DATA 0,0,S2,S3,0,S5,S6,S7,0 P*
0x16c0dc…16c270 Dummy {f00=0x0027, f01=0x0190, f02=»U5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < PU7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F @ P* < PS2 DATA /2021,/2223,/2425,/262A,/FF3E,/2A3F,/3B5F,/3A2F < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F <
0x16c270…16c404 Dummy {f00=0x0027, f01=0x404a, f02=»A /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F P END :@ F071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F @ P* < PS2 DATA /2021,/2223,/2425,/262A,/FF3E,/2A3F,/3B5F,/3A2F < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F <
0x16c404…16c598 Dummy {f00=0x0027, f01=0x2008, f02=» < 7S5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7S7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F L END @ 051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7U7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7
0x16c598…16c72c Dummy {f00=0x0027, f01=0x0190, f02=» U p x # P P Z x T W PV X TJ+ Y 4 U $P(> R$> Y X '@T X ' T P $ 2W( Y Y X # P _ 4X U T T U ;h # <c$ X4 B ^: X@ B ]H "
0x16c72c…16c8c0 Dummy {f00=0x0027, f01=0x0190, f02=» W Y $ W $ H $ 8% =A T > ? " 8 4TH ( X ( # ; < TR U P Q" $ 5 U T Y > > P X P P _ ] W Q Y _4 X Y $ b D P XP Y E Y Y _ @ T (@ > P X U 4X 5
0x16c8c0…16ca54 (1, 461) Opaque[0x194]
0x16ca54…16cbe8 # DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b28, f03=0x0000}
0x16ca54…16cbe8 IdxSect {
0x16ca54…16cbe8 f00 = 0x0059 // 0x16ca54 @0x0
0x16ca54…16cbe8 f01 = 0x0002 // 0x16ca56 @0x2
0x16ca54…16cbe8 gno = [ // 0x16ca58 @0x4
0x16ca54…16cbe8 [0x00]: C0x0059.0x1.0
0x16ca54…16cbe8 ]
0x16ca54…16cbe8 }
0x16cbe8…16cd7c Dummy {f00=0x0059, f01=0x0190, f02=» 0 P IDENT CTAB02 820111 NJ ARBEJDSFORMIDLINGEN P ENTRY CTAB02 8 PCTAB02 EQU * N P DATA UNSH,SHIFT,0,0,0 b ( PUNSH DATA U0,U1,U2,U3,U4,U5,U6,U7,0 P* ( PSHIFT DATA S0,S1,S2,S3,S4,S5,S6,S7,0 P* < PU0 DATA /0001,/0203,/0405,/7
0x16cd7c…16cf10 Dummy {f00=0x0059, f01=0x0190, f02=»C,/2A2B,/2C2D,/2E2F l < PU3 DATA /3031,/3233,/3435,/3637,/3839,/8A8B,/8C8D,/8E8F < PU4 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F < PU5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/7F5F < PU6 DATA /6061,/6263,/647F,/6667,/7F7F,/7F7F,
0x16cf10…16d0a4 Dummy {f00=0x0059, f01=0x018e, f02=»F,/7F7F,/7F7F f < PS1 DATA /7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F < PS2 DATA /2021,/2223,/2425,/262A,/7F3E,/2A3F,/3B5F,/3A2F V < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F < PS4 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,
0x16d0a4…16d238 Dummy {f00=0x0059, f01=0x4058, f02=» V < PS7 DATA /7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7C7D,/7E7F P END H@ T DATA /2021,/2223,/2425,/262A,/7F3E,/2A3F,/3B5F,/3A2F V < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F < PS4 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,
0x16d238…16d3cc Dummy {f00=0x0059, f01=0x2008, f02=» < 7S5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7S7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F L END @ 051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7U7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7
0x16d3cc…16d560 Dummy {f00=0x0059, f01=0x0190, f02=» ) ; ( ( ; ( * ;8 D "! A+( ;T ;4 @) @) @+(P ( * V
0x16d560…16d6f4 (1, 462) Opaque[0x194]
0x16d6f4…16d888 # DirEnt {nam=»M:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1200, f03=0x0000}
0x16d6f4…16d888 IdxSect {
0x16d6f4…16d888 f00 = 0x0090 // 0x16d6f4 @0x0
0x16d6f4…16d888 f01 = 0x0014 // 0x16d6f6 @0x2
0x16d6f4…16d888 gno = [ // 0x16d6f8 @0x4
0x16d6f4…16d888 [0x00]: C0x0090.0x0.0
0x16d6f4…16d888 [0x01]: C0x0090.0x1.0
0x16d6f4…16d888 [0x02]: C0x0090.0x2.0
0x16d6f4…16d888 [0x03]: C0x0090.0x3.0
0x16d6f4…16d888 [0x04]: C0x0091.0x0.0
0x16d6f4…16d888 [0x05]: C0x0091.0x1.0
0x16d6f4…16d888 [0x06]: C0x0091.0x2.0
0x16d6f4…16d888 [0x07]: C0x0091.0x3.0
0x16d6f4…16d888 [0x08]: C0x0092.0x0.0
0x16d6f4…16d888 [0x09]: C0x0092.0x1.0
0x16d6f4…16d888 ]
0x16d6f4…16d888 }
0x16d888…16da1c Dummy {f00=0x0090, f01=0x0190, f02=»;@ Lo ! ! ! J J @
0x16da1c…16dbb0 Dummy {f00=0x0090, f01=0x0190, f02=» _ A :U A A " @ ~ A h A ~ @ A < A @ A L A @ A X A @ A A
0x16dbb0…16dd44 Dummy {f00=0x0090, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ j S A _ @ T :a R T <a Z
0x16dd44…16ded8 Dummy {f00=0x0090, f01=0x0190, f02=» S v T 8 Y D G P ( H L V > I z U z _v A t_ NO! A A A A A A A A *T A _ P A A . * , : + n - n ; # R $ X : X " H W* X " H H A W W L H A A _p
0x16ded8…16e06c Dummy {f00=0x0090, f01=0x0190, f02=» > " @ @ T " ( ^ @ P A A " @ $T @ tW @ A t W W 0 _, W W Pf @ & 0 T* A P P V W _x _`
0x16e06c…16e200 Dummy {f00=0x0090, f01=0x0190, f02=» $ ;a ]@ 1 $ _L W @ $ 0 W $ A W @ A P 3P C @ P @ @ P @ Q A $ @ A " T @ W @ A F A $P l @ _2 l $T * 0 P fP _
0x16e200…16e394 (1, 463) Dummy {f00=0x0090, f01=0x0190, f02=» & A *<a P j A ) " A H A @ & @ @ T A A P@ @ PB @ ! T A @ A # A $ RE bRN cME nMN o W R, ( T ( W P T $ ; V ;
0x16e394…16e528 Dummy {f00=0x0090, f01=0x0190, f02=» Y W Y Y @ " P$ @ = ] ] ] W A A A W ^ P _ " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A D ^ @ ?
0x16e528…16e6bc Dummy {f00=0x0090, f01=0x0190, f02=» A ^ " , , A A :B A Q (P _ # # H A " A F 0R$ 9U AR FQ 0:D A F _* A F " A p A r T A r A p " R _U . " A : A " A A $ T !
0x16e6bc…16e850 Dummy {f00=0x0090, f01=0x0190, f02=» H > " ! R :W" W W W ?W /W : A W ! A A PL _ " @ _ I T " T A P I T$! A A A A A A A A A F
0x16e850…16e9e4 Dummy {f00=0x0090, f01=0x0190, f02=» A P A < V A > > @ A W W ^ ! Z2 (X: @ P T M ]J , ) A P* P Y U ( ) 5 & > > [ [ Z Z Z ? Z > ? ? ? ? ? ^ A _ _ ^ $P T I R $ 5 % > ?
0x16e9e4…16eb78 Dummy {f00=0x0090, f01=0x0190, f02=» R _h ? @" T 0 A" 1 Q Q > > 0 @" 1 A" P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @" V ? " > _ > ? _ > > ? ^ ! Y ^ _ ? A. !
0x16eb78…16ed0c Dummy {f00=0x0090, f01=0x0190, f02=» U p z # P P z T W^ " PV X TJ+ Y 4 U $P(> R$> Y X '@T X ' T P $ 2W( Y Y X # P _ 4X U T T U ;h # <c$ X4 B ^: X@ B ]H
0x16ed0c…16eea0 Dummy {f00=0x0090, f01=0x0190, f02=» W Y $ W $ J $ 8% =A T > ? " : 4TH ( X ( # ; < TR U P Q" $ 5 U T Y > > P X P P _ ] W Q Y _4 X Y $ b D P XP Y E Y Y _ @ T (@ > P X U 4X 5
0x16eea0…16f034 (1, 464) Dummy {f00=0x0090, f01=0x0190, f02=» A " 1 $ ! : X Y $ 9 X L & Y ! X X| R B X V Y ; Z Y& B Z2 ^8 Y8 Y : Y 8 B Y 4 ""0 Y > V Y < Y 6 Y : X 4 X >T V" X 6R # ;b9B Y B Y D ) Y F X !? PN P PF P !
0x16f034…16f1c8 Dummy {f00=0x0090, f01=0x0190, f02=» P ! ># T X Y , ! ># X Y ,_ W Y 2 Y . Y 0 Y & @! TFB SFW@ Y 8 8! T0 X < Y 8 X 6 C X :U X 4 Y 4R V Y > " 8 Y _ ? Y Y X *P y *_. * _> Y * " Y X , P Y : ! ! > X # P Y
0x16f1c8…16f35c Dummy {f00=0x0090, f01=0x0190, f02=» K & % Y B K X & :AZh X (P Y ( ! P + 7P6 $ P + < <A $ <C ! 9 9 4 X 89C X <: X 4 X 6 4 A X;D A X 4
0x16f35c…16f4f0 Dummy {f00=0x0090, f01=0x0190, f02=»
0x16f4f0…16f684 Dummy {f00=0x0090, f01=0x0190, f02=» z v v v $ ( , 0 4 8 < ( H 0 ) R $P" $ ) U @ T C @ W 0P P > ? P q 0 ) R >_ Tv C T V Y W^ X PZ B RTP" A z @ . A
0x16f684…16f818 Dummy {f00=0x0090, f01=0x0190, f02=» U j XT ! X ! X P X T _l Xf Y @ P. R T& X 0P P H T _ X I Y T # C C W4 O " # X Y ) C C x # P Y '? Y Y T # P W . Y P
0x16f818…16f9ac Dummy {f00=0x0090, f01=0x0190, f02=» F C F C > B R Q F ! P C > C > F 8D D ! 9b8d9D # C > B R Q~ P0 B P* 0$ T # R QL & > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X 0
0x16f9ac…16fb40 Dummy {f00=0x0090, f01=0x0190, f02=» > P p (_H _2 B U X & > ? _ X T (@ ^ > > ? _ X T (@ X L U L Q4 M X L P ( L ) 1_f _& ?(@ X P 0P X T 4 Y X 1 1
0x16fb40…16fcd4 (1, 465) Dummy {f00=0x0090, f01=0x0190, f02=» T P 0 1 Y > > R _ T ! . ! _ R ? ^ 4 _ . . @" 1 A" _ P 9 > > A !$ _ @ > > U # T @ H ( ( P c P W6 1 A
0x16fcd4…16fe68 Dummy {f00=0x0090, f01=0x0190, f02=» ^ > ? @ ! XJ ) A A! _V A! A! A _h A A" Q > ? A" " A" Q _ A" < Q" P" Q" R Y _ A" " " ) $ ( P P JW P ) % X % A" _` & P Y _l Z _r " 8 Q Z P 0 9 R R_ "
0x16fe68…16fffc Dummy {f00=0x0090, f01=0x0190, f02=» ^ > X ( $ ^ WD X Y $:g H & I & ? P& X # # P ,P 9A _ H &P I & > #F P Y # X"; [&;! P &Z.?AZ2 @# Q & X " _D X $ _P X ! 6 6 * X ! 6 6 $ W $ X Pf X 0 Y
0x16fffc…170190 Dummy {f00=0x0090, f01=0x0190, f02=» Y Y $ & > X X X X $ & > ?(@ " X '? X D X T @ F %F( 't% T Y . $ $ $ X C & (@ U RL -P $ X < X :P $$ P V (" X : % Y :(@ & p ) (" _* X . P Y . v B 'd B
0x170190…170324 Dummy {f00=0x0090, f01=0x0190, f02=»Xf Y 2 ( Rv p< R <A<a C W X 2X P P P P _ Y 4W Y 4 % X 2 % X 6P X 4 $P <c $P $ $ V !( B % W( B P& $$ R % C ( * !( Wv ? X . T 9 P _W W 9 T "? 9 0 R Q > !( B % W8 > ! B T
0x170324…1704b8 Dummy {f00=0x0090, f01=0x0190, f02=» <P 1 WL X : X <P (4 $$ P< T W Z %W, X /$ X : (4 ^ Y . $ ! P % " _L Y : 1 $ ( " !$0 4 B % > fT > > >T f > P ( !( % _ W % X < (4 X :P Y < 0 %_ % Y < (@ 'd X Y :_( $ X
0x1704b8…17064c Dummy {f00=0x0090, f01=0x0190, f02=» 0 X .$ ( P B V *@; V * ; V * Y . !$ T X .R $ P _B !$ T $ 9 R 9 $ W 9 _ Y !$ X 0_~ [000b [00w [00v c [5n [0;0x [000` [0g H [00d [00{ [20h [20l [4m [0m * . %(9 $' X " Y . $P X /# P
0x17064c…1707e0 Dummy {f00=0x0090, f01=0x0190, f02=» $` X .! Tj +P Y H P@ TD WB !$ Tt X HP !/ Y D Y F X HPN !$ TR ) E !0PW8 !$ T< !$ T4 !$ T, Y LW !$ T +T _L X LT _ T !$ T !$ T $` Q X .$ P !$ T Y . !$ T !/DW VH P T ) W T ) !1 _f j $`]@ K
0x1707e0…170974 (1, 466) Dummy {f00=0x0091, f01=0x0190, f02=»TH Y H_ . !0$ Y L $ !$ T $` P !$ T P _ !$ T _& !$ 0@ *v !/D TX B $ Pb X 8 !1 QV !/ Y < !$ T X :T !$ T ) < !0P !$ 0@ !/DT X < Y : Y H . !0$ $ $ B X " P $ L1 W $ L1 9d P _$ 0 !/D .
0x170974…170b08 Dummy {f00=0x0091, f01=0x0190, f02=» $ B " P ,. Pf $ !$ 0@ B 9d! P Y D1 Y R ) R !0P 9h! P& T h Y U ) W R l Y U ) T !0PW` $` Xp !$ TP$ P6 $` P@ !/ Y X Y Z<h Y Y ) X !0P ) !0P _6 3 Y X ) X !0P !$ 0@ *v !/D T: !$ T ) 8 !0P
0x170b08…170c9c Dummy {f00=0x0091, f01=0x0190, f02=» Y 8 ,0 Y P Y N ,0 Y Q Y O !/D 0 Y : Y . X *H $ Y ? !$ T ) ," :HR :h !$ T _ !$ T 0 08 1h !$ " ! PL T" ! ;T Y X T2 !$ " ! ^0 1| 0 : P T @1|R C W Y ? _Z X ? Y X 0P y 0 Y 0 4 dR d
0x170c9c…170e30 Dummy {f00=0x0091, f01=0x0190, f02=» X B , !$ F Y B_ 4 !$ V X ." T. ) !1 ) 6 !0P ) 4 !0P ) N !0PW, ) !1 ) 8 !0P ) 2 !0P ) P !0P !$ j ," :HR :h !$ | _ 4 :h 0 :C ! 4151824253033353648505160667072010203040506070809101111131415
0x170e30…170fc4 Dummy {f00=0x0091, f01=0x0190, f02=»U _ 9B X T u X > & 9 92 9R9 1 : ; :x: 9 9 2B2T 2f2v 2 2 2 2 2 2 2 !"#$%&' <*+,-./0123456789 PQRSTUVWXYZ [] _pqrstuvw |}~ !"#$%&* >*?;_:/=!"#$%&/() PQRSTUVWXYZ [] _ pqrstuvw |}~
0x170fc4…171158 Dummy {f00=0x0091, f01=0x0190, f02=» $` U !$ T$ !$ T Y 4_@ 7 Y 0 Y 4 5L Y 4W, B P B H " +P< Y 1 T P" !$ T R X 2 Y 0U Y 0 _ Y 0 _* 7H $` 4 R _Q B X / X 0$ %T Y 3V B V _ X 0 X /! R* Y /; _U !6 ;h X /$ X 0 !5|_x
0x171158…1712ec Dummy {f00=0x0091, f01=0x0190, f02=» _Y& !6 B WJ ._z !$ TF 3 $` $`" $ P X 1 X / 3 !$ T 72 3 !$ TV !$ TN 7 B C C X 0 C !$ T0 $ B Y 0 !5| 3 !$ T Y 3U X 3 !$ T :h Y 2U X 2 !$ 5 4 B !6 5` V 7 X 4PPWD VF X 4P
0x1712ec…171480 Dummy {f00=0x0091, f01=0x0190, f02=»T !$ T _P !$ T !$ 6 X /# Xj X 0 !5| !6 Y /_ Y 3R X 3 !$ T " !$ T !$ T 4 X ? $Z9 7 9 X ' P P +P 9 R 9 9 V 9 P C $ " 5` X 0 !5| X ' 3 X /" Y 0 Y / > X / X 0" Y 3Q Y / > B B U( $$
0x171480…171614 (1, 467) Dummy {f00=0x0091, f01=0x0190, f02=» !$ 8 Y 0 Y / 5` 7 $ 7 8 8 8.8>8N8^8n8~8 8 8 8 8 8 8 8 9 0123456789 !"#$%&' <*+,-./0123456789 @ABCDEFGHIJKLMNOPQRSTUVWXYZ [] _`abcd fg |}~ !"#$%&* >*?;_:/=!"#$%&/()
0x171614…1717a8 Dummy {f00=0x0091, f01=0x0190, f02=» Pb <UR "R4 j PB X R< X T6 X T0. T G Y6 G _f P ,P - _ ! ! ' "?:B ] ! P H U _ T U P U ! ;C ,$ T -_> - &_H "Rf j P^ X TX X PJ X RD< V X 0 X L T P* X
0x1717a8…17193c Dummy {f00=0x0091, f01=0x0190, f02=» < U = ! " (@ " $ P B >H<h ;. P ?_" = > = > = _D " X _F R _ 00 > & <h$ P > A A A A A A | - M ;@ @ " A. e UU @>B @f Af @f D E D E P _(
0x17193c…171ad0 Dummy {f00=0x0091, f01=0x0190, f02=» G @ | $ A A @ @ @ E E E E E A & E @ F CRP <A COP <A BAP AS<A E ASP @ T f8 A ASP F @ U A AS =R P f8 F =R ? ;j f0 Y P F P @ P - f0P
0x171ad0…171c64 Dummy {f00=0x0091, f01=0x0190, f02=» P R R 9_ f8 f8 P :L AST A A E E A A 8 P W 89B @ V W Zb A @f @ A AG G @ D AS ?h @ ?h A W l @ L @ P _ @ ! P0 G 9h !RRP @ @
0x171c64…171df8 Dummy {f00=0x0091, f01=0x0190, f02=» P :l l 9b ) V l_ @ A @h A G <X A A E @ < V4 @ R, U @H 8 !RRT A " @ Pf A A @ > V T P T ;a=a?j V Y R W = ?J E
0x171df8…171f8c Dummy {f00=0x0091, f01=0x0190, f02=»V @ P D A @I0 A A r C* C4 B C B C D C B C D C B C D C B C B @ 00P& D C D C B C D CL B _0 C B @ 00P D C D C B _ 0 !TTX AAx !CCT CC AC8 C4_ 0 !;; Db !
0x171f8c…172120 Dummy {f00=0x0091, f01=0x0190, f02=»P S AF= AF @ Dr F @ P " T E: @ R B` @ ! T @ E:A @ r @ @ I A p fP A r @ p A p @ P @ A @ r IP $ ) @ 0 !;;P P @ P@ _ P !;;T X$ A fP B T C*
0x172120…1722b4 (1, 468) Dummy {f00=0x0091, f01=0x0190, f02=» P W D& A 0 !;;T : 0 !00R !99U !AAR !ZZQ 0 !;;T : DF : DJ : DN : DR : DX : D : 0 )TV : !00T A : 0 !99Q0 !00R*P P =H_ :TID=TCL=LEV=TDC=T0LC=0SDC=S0 f8A I. : AI0 AI6 " Q :d @ # R$P
0x1722b4…172448 Dummy {f00=0x0091, f01=0x0190, f02=» W AE AE AE@ EP AG AI, I F 0 A : D AE AE : @ @ ! P V :AW 9E R _ <e @ $ T 9A $ < :B 9A) @I6P AI6 AE I Td W 9D @ @I2r s @I0A I T - A _ I N T( P W AE W AE @G V S
0x172448…1725dc Dummy {f00=0x0091, f01=0x0190, f02=»Y h C !CCTr B. Dj X B.9 HI: A D _ !SSTF 0 UID J X X A t A v X X S W A x A z A : I2 V W, Q( T W& @ T R P G @ T A F R U @ A p T : AG
0x1725dc…172770 Dummy {f00=0x0091, f01=0x0190, f02=» P T I* _* @ Dr @ | ` | P A H : Db T I* 0 !;;P 0 !;; Db Db - a | =! 0 - Y : I I* 8 0 ! P H P Y Db_0 L Q Db P Y P Y A V : , %T 8
0x172770…172904 Dummy {f00=0x0091, f01=0x0190, f02=» ln I A WL , P@ , - 4 ] 4 g Y 5 X * _6 : @ % X @ @;@ ;B R6 r . !TTP f8 Uj Y i8 !TTX _: : " ` @ A P J _ @ @ J 3 S
0x172904…172a98 Dummy {f00=0x0091, f01=0x0190, f02=» Uj A N =H N A @ T CRT N =H N U A N =H N i A , @ %!5!T W @ = V W = V Uz P0 U " U f8 _2 U P0 U " U f8 _2 @ P
0x172a98…172c2c Dummy {f00=0x0091, f01=0x0190, f02=» S A A _ i8 !TTT @ X P @ @ a : fH Xp X T ` @ W H A h J AS BAT :a A K @ ;C g W @ " P " J U ;C g U f8 BAT8 @ @ g A @ )
0x172c2c…172dc0 Dummy {f00=0x0091, f01=0x0190, f02=» W* U J S W J U f8 3 S U S S _p P " I _ @ P fL : Xp A A H Uj A * Uz P U _ U Pd A U @ 8 8 4 D P$ X @ # P H
0x172dc0…172f54 (1, 469) Dummy {f00=0x0091, f01=0x0190, f02=» A Uj A Uz P~ A ( U A @ @ < U F !AAT T B YP W G 9h G G Q @ P A _l S @ A @ Y i8 !TTX X Y : Xp i8 !TTX !CCTr Uj P, U @ 4 U f8 $ $
0x172f54…1730e8 Dummy {f00=0x0091, f01=0x0190, f02=» 8 8 8 3 g U f8 . !TTT i8_ !CCP R X Y W Uj P0 A U A U @ @ < Q @ _2 S U ]X U @ 8 8 8 4 D P$ X @ # P H I K T K YB _b @
0x1730e8…17327c Dummy {f00=0x0091, f01=0x0190, f02=»W* !LLT U W !RRT U<W !QQP f8 U A A A @ 0 PV @ P P 0 _ P H (&? @ #? H & D # * H D > S^ S @ U D X @ @ ) I ( D #@PV D L Tp D 0P @ ` T @ 1 Q a > I : I < D .#
0x17327c…173410 Dummy {f00=0x0091, f01=0x0190, f02=» @ ~U A ~ < + + P R @ : ` P: @ @ @ D (P W H $ I 0 % E , a : @ Q A % @ A A A A VZ V @ @ P A @ E# A Q _8 A A A A VZ V @ @
0x173410…1735a4 Dummy {f00=0x0091, f01=0x0190, f02=» ;D& >c : Y6 Z< D ( ? # ;H ;D & >b : N =H N i : N =H N i : &=H F i : F =H F i : ? ? iv > > : P N =H N T Uj i8_ : @ ! P (W ( : @ 0 P 0 _ @ Q @ P P$_ @ A P A
0x1735a4…173738 Dummy {f00=0x0091, f01=0x0190, f02=» P T _: @ 2T P _ / : .P W P A .X W @ P T :D * J TT J & P T .& >aW T (& P T &@P @ 9 A J ] W @ 9 A P _d @ 8P 0P _ 1 _ @ 8
0x173738…1738cc Dummy {f00=0x0091, f01=0x0190, f02=» % : @ H ;l H :lT ;A P 5 _ ` R - _ : @;@ A ;B A r : @ A P X @ A @ @ : . ! T f8 ! . : g R f8 g Y fP : I JD J L ND O0 P T0 b )
0x1738cc…173a60 Dummy {f00=0x0091, f01=0x0190, f02=» 2 ;A @ R V g R f8 - @ R - $ N !TTP f8 N :H N TBT K W8 2 " T @ f8 X 2 N =H N i @ R ) i8 !TTXX !CCT i< !UUT Zj @ R K (9A A R Y> @ iv 2 .:H N R P V f8 _ N
0x173a60…173bf4 (1, 470) Dummy {f00=0x0092, f01=0x0190, f02=» A R A D A F @ p A & A @ CR h @ D G " F * E H g K @ & " A ( J (P6 " 4X 1 R Z0 . . _ k k :A K J 4 P . . _ K K [8 @
0x173bf4…173d88 Dummy {f00=0x0092, f01=0x0190, f02=» A < D J @ & >k l 8 A A 6 g Q R 8 g V f8 ;k , @ 6T A , @ 8P( U U A , K l A A J @ & A @ fd 9k! P % _ @ @ A
0x173d88…173f1c Dummy {f00=0x0092, f01=0x0190, f02=» G ` " A ( A N (P0 d@ R c P dL c _ A N R c X4 dL c _ J PJ a| h I i H I $ @ < D ` E , D H C ` J j A X A N (Pn g i @ X A X % d@ R , g a| " E R
0x173f1c…1740b0 Dummy {f00=0x0092, f01=0x0190, f02=» g I b " R g E R R T E D E @ < H ` H ` E b c< #_ A * @ & 9k l $ A A J ` ( ` A ( J $ K fd J J V V (P V j $ $ A g 1 I $ I H )
0x1740b0…174244 Dummy {f00=0x0092, f01=0x0190, f02=»_V P* & &X ' $ @ < H T H i _4 A L A * @ ,T2 @ A 6 @ A 8 @ @ :B A @ 9n A f @ @ ,P J V @ 8 A @ 6 A A , K f : @ "<B A T *P ` P ` : $ a| @ *P ` a P ` : @ P
0x174244…1743d8 Dummy {f00=0x0092, f01=0x0190, f02=» *P ` 1 ` A P @ L ` 4 a _j @ 0 4 : A . R R c P a a A J b c _ @ . : " D PH A . @ .P. D X D P g H E _( a| E _6 " D T E a| E D E % : 4 " R ;B 4 a| " R P< *
0x1743d8…17456c Dummy {f00=0x0092, f01=0x0190, f02=» @ : A " W A "?AP ^ @ : 4P: " D h , H H $ M j - I Y0 : @ : c R a 2 A B @ (T : N @ @ A Z H @ "]" T 2 . BT" a A H a A B @ NP d A J b ed c . Z b ._v J , V f8
0x17456c…174700 Dummy {f00=0x0092, f01=0x0190, f02=»d A J b _$ 8 @ T @ J % @ H % : i @ WN B W @ > " B ; Z [ : : [ [ : A Z A. c ? : > : R $ )
0x174700…174894 (1, 471) Dummy {f00=0x0092, f01=0x0190, f02=» @ ~ ~_X fL : fH @ J P g g V U g _ V g Z K A A :K A g Q R g V f8 fd @ P h. fL @ ` : V W V f8 ) : V W @ : A ; @
0x174894…174a28 Dummy {f00=0x0092, f01=0x0190, f02=» 0 ;l R 9d_ ;b# R 9a_ @ @ 1 R U W 9a P _" : P _ : @ | ` |U WP L P _ @ P _" l 0 W r P . ! A . @ : ;h 0 :C # : .=H N i g
0x174a28…174bbc Dummy {f00=0x0092, f01=0x0190, f02=» P _ : V ) g ` : R @ @ ! @ P P P P _ _ @ @ :b @ :b V W U4 T 9BW P P( X V W Y P @ Q @ P A. @ @ P _l A
0x174bbc…174d50 Dummy {f00=0x0092, f01=0x0190, f02=» ? > | T ] ] W 9l ] 9A ] 9k! ] Y P: P4 " " S @ P 3 _ " 3 " | Z A. @ @ W A j : A $ ) _ >
0x174d50…174ee4 Dummy {f00=0x0092, f01=0x0190, f02=» l l B2 Y m` P @ % KB m nd 7 m m
0x174ee4…175078 Dummy {f00=0x0092, f01=0x0190, f02=»DI nX ?O_o B2 Y n P j) GP o 3
0x175078…17520c Dummy {f00=0x0092, f01=0x0000, f02=»
[…0x1…]
0x1753a0…175534 (1, 472) Opaque[0x194]
0x175534…1756c8 # DirEnt {nam=»X «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0f58, f03=0x0000}
0x175534…1756c8 IdxSect {
0x175534…1756c8 f00 = 0x007a // 0x175534 @0x0
0x175534…1756c8 f01 = 0x0002 // 0x175536 @0x2
0x175534…1756c8 gno = [ // 0x175538 @0x4
0x175534…1756c8 [0x00]: C0x007a.0x3.0
0x175534…1756c8 ]
0x175534…1756c8 }
0x1756c8…17585c Dummy {f00=0x007a, f01=0x0158, f02=» PASG /02,LP0F PSCR PINC SYSBUG $ PNOD AM 6 PINC SYSLOD D PINC SYSLDM V PINC SYSLCR h PINC SYSINI z PLKE M PKPF /L,M:TEST PSCR PINC SYSTAB PNOD AM PINC SYSLOD PINC SYSLDM PINC SYSL
0x17585c…1759f0 Dummy {f00=0x007a, f01=0x2008, f02=» /02,LP0F PSCR PINC SYSBUG $ PNOD AM 6 PINC SYSLOD D PINC SYSLDM V PINC SYSLCR h PINC SYSINI z PLKE M PKPF /L,M:TEST PSCR PINC SYSTAB PNOD AM PINC SYSLOD PINC SYSLDM PINC SYSL
0x1759f0…175b84 Dummy {f00=0x007a, f01=0x0190, f02=»0 B0 3 3 3 22 3 W 0 2(2 _W 3 0 2 2 0 22 W&0 CA1!1 bI2 21 1 4 3 *0 C_,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ 2 71 FF:FF:6:::6:6_ A P 2 0 2_ 2 0 2 @ K2a_ 1 0 CX 3 Wb 0 0 0 2(2 1 ? 0 C 013R4*1 .(0 A1? 3 0 1 0
0x175b84…175d18 Dummy {f00=0x007a, f01=0x0190, f02=» 0 C D D0 30 3321 1 4 0 A1? 0 C0 30 33? 0 84 4 4 4 4 4 4 4 4 w > R K M u [ 0 2 4 6 8 : < > . 2 0 0 1 TLF:
0x175d18…175eac Dummy {f00=0x007a, f01=0x0190, f02=»POSTNR :STILLING: AF TASTENFUNKTION: PERSONNR: *** GOD FORNAF PTS 6000.FELT MANGLER SKRIV KOPI. BEM[RKNINGER:DATA-KVALITETS PAPIR BANE FOR AT STARTE S PAPIR BANE TEKST-KVALITET P T S 6 0 0 0EVT. C/O ADRESSE:UDSKRIVNING ENDEL INDTAST OPLYSNINGERRETUR TIL 1. BI
0x175eac…176040 Dummy {f00=0x007a, f01=0x0190, f02=»RMINAL SYSTEM PTS 6000UDSKRIVNING A4-ARK I FRONT-FEED FELTERNE AFSLUTTES MED TASTEN: ENTER. BYDER DEM VELKOMMEN TIL DENNE OFF-LINE VEJLEDNING: UDFYLD OPLYSNINGSFELTER, IDET P H I L I P S T E R M I N A L S Y S T E MEFTER INDTASTNING AF OPLYSNINGER KAN V[LGES VEJL
0x176040…1761d4 (1, 473) Opaque[0x194]
0x1761d4…176368 # DirEnt {nam=»M:PROD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0f78, f03=0x0000}
0x1761d4…176368 IdxSect {
0x1761d4…176368 f00 = 0x007b // 0x1761d4 @0x0
0x1761d4…176368 f01 = 0x0012 // 0x1761d6 @0x2
0x1761d4…176368 gno = [ // 0x1761d8 @0x4
0x1761d4…176368 [0x00]: C0x007b.0x3.0
0x1761d4…176368 [0x01]: C0x007c.0x0.0
0x1761d4…176368 [0x02]: C0x007c.0x1.0
0x1761d4…176368 [0x03]: C0x007e.0x2.0
0x1761d4…176368 [0x04]: C0x007e.0x3.0
0x1761d4…176368 [0x05]: C0x007f.0x0.0
0x1761d4…176368 [0x06]: C0x007f.0x1.0
0x1761d4…176368 [0x07]: C0x008f.0x1.0
0x1761d4…176368 [0x08]: C0x008f.0x2.0
0x1761d4…176368 ]
0x1761d4…176368 }
0x176368…1764fc Dummy {f00=0x007b, f01=0x0190, f02=».| CbL L 6 6 @
0x1764fc…176690 Dummy {f00=0x007b, f01=0x0190, f02=» _ ? ? ? ? ? ^ A . _ _ ^ $P T I R $ 5 % > ? W ? W ? T T U T U U
0x176690…176824 Dummy {f00=0x007b, f01=0x0190, f02=» > 0 @ 1 A P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ V ? > _ > ? _ > > ? ^ ! Y ^ _ ? A. $ ( , 0 4 8 < #M 1
0x176824…1769b8 Dummy {f00=0x007b, f01=0x0190, f02=» T W^ " PV X TJ+ Y h 4 U $P(> R$> Y X '@T X ' T P 2W( Y h r Y X # P _ 4X U T p T U ;h # <c$ X4 B ^: X@ B ]H "XT" X #` @P Q X # j Y /W W Y
0x1769b8…176b4c Dummy {f00=0x007b, f01=0x0190, f02=» T . > ? " 4TH ( X ( # ; < TR U P Q" 5 U T Y > > P X P P _ ] W Q Y _4 X Y $ b D P XP Y E Y Y _ @ , T (@ > P ,X U 4X 5 _& @ ! ! T 9 8
0x176b4c…176ce0 Dummy {f00=0x007b, f01=0x0190, f02=» ! X X| R B X V Y ; Z Y& B Z2 ^8 Y8 Y : Y 8 B Y 4 ""0 Y > V Y < Y 6 Y : X 4 X >T V" X 6R # ;b9B Y B Y D ) Y F X !? PN P PF P ! X FP _ X Bx ^ Y @ !
0x176ce0…176e74 (1, 474) Dummy {f00=0x007c, f01=0x0190, f02=» X Y ,_ W Y 2 Y . Y 0 Y & @ JTFB SFW@ Y 8 8! T0 X < Y 8 X 6 C X :U X 4 Y 4R V Y > 8 > Y _ ? Y Y X *P y *_. * n | _> Y * " Y X , P Y : ! ! X # P Y ,:A , Y : Y ( X $ Y C '?
0x176e74…177008 Dummy {f00=0x007c, f01=0x0190, f02=»P Y ( ! P + 7P6 $ P + < <A $ <C ! 9 9 4 X 89C X <: X 4 X 6 4 A ;D A 4
0x177008…17719c Dummy {f00=0x007c, f01=0x0190, f02=»
0x17719c…177330 Dummy {f00=0x007c, f01=0x0190, f02=» * * * $ ( , 0 4 8 < ( H 0 ) $P" $ ) U @ T C @ BW 0P P > ? P q 0 ) >_ Tv C T V Y W^ X PZ B RTP" A @ A n b WJ @W, T( P$ X T X P
0x177330…1774c4 Dummy {f00=0x007c, f01=0x0190, f02=» ! X ! X P X T _l Xf Y @ P. R T& X 0P P H T _ X I Y T # C C W4 O " # X Y ) C C x # P Y '? Y Y T # P W 0 Y P R R P T " P (@ (@ "
0x1774c4…177658 Dummy {f00=0x007c, f01=0x0190, f02=» > B R Q F ! P C > C > F 8D D ! 9b8d9D # C > B R Q~ 6 P0 B P* 0$ T # R QL > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X 0 > X D C > X H UJ H
0x177658…1777ec Dummy {f00=0x007c, f01=0x0190, f02=»_2 B U X > ? _ X T (@ ^ > > ? _ X T (@ X L U L Q4 M 2 > X L P ( L ) 1_f _& ?(@ X P 0P X T 4 Y 0 X 1 1 X P - M T $ PJ _ T "
0x1777ec…177980 Dummy {f00=0x007c, f01=0x0190, f02=» ^_ T 2 l J & V l ` . _ ? ^ 4 _ @ 1 A _ P 9 > > A _ @ > > U # T @ B H ( ( P c P W6 $ A V ( U P @%NV L%N
0x177980…177b14 (1, 475) Dummy {f00=0x007c, f01=0x0190, f02=» v A _h A A Q > ? A D T A BQ _ A B < Q < P < Q < R Y _ A : 6 8 ) $ ( P P JW P ) % X % A 4_` & P Y _l Z _r 8 Q Z P 0 9 _ v _, ? _ P H H J%t
0x177b14…177ca8 Dummy {f00=0x007c, f01=0x0190, f02=» H & I & ? P& X P ,P 9A _ H &P I & > P Y X"; [&;! P &Z.?AZ2 @ Q & X " _D X $ _P > > 0 @ A W fW > ^ ! Z2 (X: @ P T M ]J , ) A P* P Y U ( ) 5 & > > [
0x177ca8…177e3c Dummy {f00=0x007c, f01=0x0190, f02=» 0 Y " " X L X WF B U B (" W C (@ > Y > > W W (@ 4 Y Y Y Y $ & > X X X X $ & > ?(@ " X '? X D X T @ F Z T Y . X C &(@
0x177e3c…177fd0 Dummy {f00=0x007c, f01=0x0190, f02=» B % X < $ 4 T %(@ X :P ^ Y <(@W ! >(@" X8 VP Rz P P 9 _ X 2 X Y 2W X 2 Xf Y 2 R Rv p< R <A<a C W X 2X P P P P _ Y 4W Y 4 X 2 X 6P X 4 $P <c $P $ $ V ! F B W( B
0x177fd0…178164 Dummy {f00=0x007c, f01=0x0190, f02=» T ! Xd R C ! b " X : $4 P ^ X <Tt 1 pRr p Y / X : ^ X <P 1 WL X : X <P p $$ P< T W Z %W, X /$ X : p ^ Y . $ ! P % " _L Y : 1 R" ! l 4 B % > fT > > >T
0x178164…1782f8 Dummy {f00=0x007c, f01=0x0190, f02=» >< X 0 P L X " B X .R $ # ;D 7P P Y 0W Y 0 ! BT X 0 Y / X .V. 0 X .$ ( P B V *@; V * ; V * Y . ! PT X .R $ P _B ! TT 9 R 9 W 9 _ Y ! B X 0_~ [000b [00w [00v c [5n [
0x1782f8…17848c Dummy {f00=0x007c, f01=0x0190, f02=» # X ." X /# Y / P Y M 8P ^ L ! j j !" " !#` B ! BT X .! Tj +P Y H P@ TD WB ! PTt X HP !#0 Y D Y F X HPN ! PTR E !# W8 ! PT< ! PT4 ! PT, Y LW ! PT +T _L X LT _
0x17848c…178620 Dummy {f00=0x007c, f01=0x0190, f02=» KP TV ! PTb ! PTZ_ ~U PD #R8 ]U W2 X .$ P4 Y . W X .$ T Y . ! PT W C _ . " ! PTH Y H_ " !#` Y L ! BT P ! PT P _ ! TT _& ! T #| !" TX B $ Pb X 8 !$R QV !#0 Y < ! BT X :T ! PT <
0x178620…1787b4 (1, 476) Dummy {f00=0x007e, f01=0x0190, f02=» " !#` P$ Y 4_6 QV,0 Y N_D P$f Y 6_P Q<,0 Y O_R P$ Y 2_j Q",0 Y P_x P$f Y 8_ Q ,0 Y Q_ B " P j Pf ! B #| B 9d! P Y D$ Y R R !# 9h! P& T h Y U W R l Y U T !# W` Xp ! BTP$
0x1787b4…178948 Dummy {f00=0x007e, f01=0x0190, f02=»# ! PT ! TT !" Y : Y < Y H " !#` Y " X JPL Y J !#0 Y 2 Y 4 3 !#0 Y 6 @ !#0 Y 8 ,0 Y P Y N ,0 Y Q Y O !" # Y : Y . X Y ? ! BT ," :HR :h ! PT _ ! TT 0 n#t $ ! >" ! PL T"
0x178948…178adc Dummy {f00=0x007e, f01=0x0190, f02=» R _ 00,0: " 4 X . P Y . 4 Y 0W ! " Y B Y @ X @ ," :HR( 0 P :h ! P 2 Y @_ X B , ! P F Y B_ 4 ! B V X ." T. !$< 6 !# 4 !# N !# W, !$< 8 !# 2 !# P !# ! T j ," :HR :h !
0x178adc…178c70 Dummy {f00=0x007e, f01=0x0190, f02=» v h 0304060812162448 T R L U 9C _ T M D W2 D D " T X X - U _ 9B X T u X > & ,Z ,n ", - $ -F.H- . , - %~% % % % % % % & & &" !"#$%&' <*+,-./0123456789
0x178c70…178e04 Dummy {f00=0x007e, f01=0x0190, f02=»~ &@+$ * ( Y 4 ! BT P P, P ( & ( ! T ! PT X 0 C ( U8 ! PTF *n Y 4 X 4Y U ! TT$ ! BT Y 4_@ * Y 0 Y 4 ( Y 4W, B P B H " +P< Y 1 T P" ! PT R X 2 Y 0U Y 0 _ Y 0 _* *
0x178e04…178f98 Dummy {f00=0x007e, f01=0x0190, f02=»( _x _U ! P (z *n ] B H " _&_ PR (8 P P@ P@ P< P8 P4 C _ B C B U Z" _Y& !) B WJ ._z ! PTF '4 " $ P X 1 X / '4 ! PT *n '4 ! PTV ! PTN * B C C X 0 C ! TT0 B Y 0 !
0x178f98…17912c Dummy {f00=0x007e, f01=0x0190, f02=» R Y 4 ! TT ! BT Pf P Y 4 ! PTf *n P ! TTX Y 4 X /# X ! TTB ! BT: Y / X 0 Y 3R Y, ! PT ! PT _P ! TT ! B ) X /# Xj X 0 !( !) Y /_ Y 3R X 3 ! PT " ! PT ! PT 4 X ? 9 * 9 X ' P P +P 9 R 9 9
0x17912c…1792c0 Dummy {f00=0x007e, f01=0x0190, f02=»$ P P P U D T _. B C C > Y ! B ) X . P" @ ! P Y ! P & *0 ! P 0 ! P 8 Y 0 Y / ( * +6+H +Z+j+z+ + + + + + + + , , ,*,:,J 0123456789 !"#$%&' <*+,-./0123456789 @ABCDE
0x1792c0…179454 (1, 477) Dummy {f00=0x007e, f01=0x0190, f02=»&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ [] _ |}~ P "R Y J Pp 0 T T Pb <UR "R4 PB X R< X T6 X T0. T G Y6 G _f P ,P - _ & .' "?:B ] . J P H U _ T
0x179454…1795e8 Dummy {f00=0x007e, f01=0x0190, f02=» X P Y 9 C " & @ < ? < ? <(@ .T $ P B $ 9H C ">h # P >_2 < U = . @ (@ " $ P B >H<h .j P ?_" = > = > = _D 8 X _F R _ 00 > & <h$ P > A A A A A
0x1795e8…17977c Dummy {f00=0x007e, f01=0x0190, f02=» _( W l V l W l V lP Yt AYL A >b>J A A @ A A <n @ 7 @<l A P A : @ | : @ | $ A A @ @ @ E E E E E A & E @ F CRP <A COP <A BAP AS<A E ASP @ T Yt A ASP
0x17977c…179910 Dummy {f00=0x007e, f01=0x0190, f02=» _ :L E A W Yl F D AST =l R W$ R Q R< 9 WJ P R* 9 P4:l P R R 9_ Yt Yt P :L AST A A E E A A 8 P W 89B @ V W Zb A @YL @
0x179910…179aa4 Dummy {f00=0x007e, f01=0x0190, f02=» @ 2 A _H Yt : S W Y* : : @ @ 2 A @ L P :l l 9b ) V l_ @ A 3 A : / A A E @ < V4 @ R, U 3
0x179aa4…179c38 Dummy {f00=0x007e, f01=0x0190, f02=»?J E =A;A E 3 : Y : Y : @ < 9B A : " A @ A @ | E A @ V @ P 8 A @<l A A r 6f 6p 6 6 6 7 7B 6 6 7 7B 6 6 7" 7B 6 6 6 6 @ 00P& 7R 7* 7B
0x179c38…179dcc Dummy {f00=0x007e, f01=0x0190, f02=»7 !AAP !DDT @ @ r A 6 0_ ; # @ @ @ r I A 6 P T 6f TT A4 A6t 4 @ ! P S A9y A9 @ 7 9V @ P " T 8v @ R 5 @ ! T @ 8vA @ r @ @ I A p Y A r @ p A p @ P @ A
0x179dcc…179f60 Dummy {f00=0x007e, f01=0x0190, f02=»6f : Yt <f : 0 !TT 7 0 !;; 7 : 7b 7 0 !LLP& !RRP !AAP !SSP !PPP !VVP !QQP W W 7b P W 7b A 0 !;;T : 0 !00R !99U !AAR !ZZQ 0 !;;T : 7 : 7 : 7 : 7 : 7 : 7 : 0 )TV : !00T A
0x179f60…17a0f4 (1, 478) Dummy {f00=0x007f, f01=0x0190, f02=»R$P R.W Yt* A 8&W Yt Yt @ : Yt A<r " Z0X X._D! A A9 8 A9 A8 ! T W A9 A9" A8| 8 A: A<h <J F 0 A : 8& A9 A9 : @ @ ! P V :AW 9E R _ <e @ $ T 9A $ < :B 9A) @<rP A
0x17a0f4…17a288 Dummy {f00=0x007f, f01=0x0190, f02=» S : Yt <J <f 9PN S Y TD $ 1T> C !CCTp : 1P P(_ P =H P Z @ T X A : Y h C !CCTr B. 7 X B.9 H<v A 8 _ !SSTF 0 U< J X X A t A v X X S W A x A z A : <n V
0x17a288…17a41c Dummy {f00=0x007f, f01=0x0190, f02=» A:H : _ 0V , - P X 9A_ : @ ! P (W ( : 9V @ | <f 0 A;T ;p P T <f _* @ 7 @ | ` | P A ; : 7 T <f 0 !;;P 0 !;; 7 7 - a | =! 0 -
0x17a41c…17a5b0 Dummy {f00=0x007f, f01=0x0190, f02=» P , ! P : <f . : <h : 7 ( W $SWAP X @ .| _ _ P < A _ < A WL , P@ , - 4 ] 4 Z Y 5 X * _6 : @ % L6 @ @.| .~ R6
0x17a5b0…17a744 Dummy {f00=0x007f, f01=0x0190, f02=» 3 S S @ ~ V A ~ : P( T Yt S S _* : K A A A H A N =H N A @ T CRT N =H N H A N =H N Z A , @ %!5!T W @ = V W = V H P0 H
0x17a744…17a8d8 Dummy {f00=0x007f, f01=0x0190, f02=» P Z V Yt S ( @ S =J @ " S Kf @ S A @ S T CRT @ S A A _ t !TTT @ K P @ @ a : Y K K T ` @ W H A h J AS BAT :a A K @
0x17a8d8…17aa6c Dummy {f00=0x007f, f01=0x0190, f02=» ) @ P S _ S A @ 3 3 J I$ I$ S J Rh I$ # 9h !RRP @ ! T W* I$ J S W J U Yt 3 S I$ S S _p P " I _ @ P Y : K A A H H A *
0x17aa6c…17ac00 Dummy {f00=0x007f, f01=0x0190, f02=» I K T + Y@ @ _f @ Y t !TTX K Y % @ : A @ T @ A A K H A H A H P~ A ( H A @ @ < H F !AAT T B YP K6 G 9h G G E6 @ P A _l
0x17ac00…17ad94 (1, 479) Dummy {f00=0x007f, f01=0x0190, f02=» $ $ _. H P, H @ 4 U Yt $ $ _. K Y K t !TTX @ @ @ ! P @ 8 8 8 3 Z U Yt . !TTT t_ !CCP R K Y W H P0 A H A H @ @ < E6 @
0x17ad94…17af28 Dummy {f00=0x007f, f01=0x0190, f02=»_b @ @ @ % P @ 4 4 4 _r : A @ F !SST H(WN !AAT H0WB !VVT H8W6 !PPT H@W* !LLT HPW !RRT HxW !QQP Yt HH A A A @ 0 PV @ P P 0 _ P H (&? @ #? H & D # * H D > F G
0x17af28…17b0bc Dummy {f00=0x007f, f01=0x0190, f02=» .# P6 I4 W( F W" D V ` T @ 1 Q a : @ % PD H I H T P( H U @ ~U A ~ < + + P EB @ : ` P: @ @ @ D (P W H $ I 0 % E , a : @ Q A % @
0x17b0bc…17b250 Dummy {f00=0x007f, f01=0x0190, f02=» @ P A @ E 6 A Q _8 : Yt Yt Yt Yt Yt Y Z D ( ? # ;H ;D& >c : Y6 Z< D ( ? # ;H ;D & >b : N =H N Z : N =H N Z : &=H F Z : F =H F Z : ? ? > > :
0x17b250…17b3e4 Dummy {f00=0x007f, f01=0x0190, f02=» P _ Yt Q @ Q 1 a : @ K * PF J # P _ :d Y @ Z A P T _: @ 2T P _ / : .P W P A .X K @ P T :D * J TT J
0x17b3e4…17b578 Dummy {f00=0x007f, f01=0x0190, f02=» 8P 9 _ (T P _ 3 _ : @ @ T Yt : dR d R _ 00)0= % : @ H ;l H :lT ;A P 5 _ ` R - _ : @.| A .~ A r : @ A P K @ A @ @ : . !
0x17b578…17b70c Dummy {f00=0x007f, f01=0x0190, f02=» ) @ A R A V A CR [ T @ T X W N @ $ @ A 6 @ A 8 d H d H K 2 ;A @ R V Z R Yt - @ R - $ N !TTP Yt N :H N TBT K W8 2 " T @ Yt X 2 N =H N Z @ R ) t !
0x17b70c…17b8a0 Dummy {f00=0x007f, f01=0x0190, f02=»_ N R :h$ R S YT : @ R O @ A > A ::b l / A R A D A F @ p A & A OX @ CR [ @ D G " F * E H [ K @ & " A ( J (P6 " 4X
0x17b8a0…17ba34 (1, 480) Dummy {f00=0x008f, f01=0x0190, f02=»Nt @ @ R @ : @ D O @ @ F @ > A b @ r @ p A r b A CR [ T @ 6 A @ 8 A X @ A < D J @ & >k l 8 A A 6 Z Q R 8 Z V Yt ;k , @ 6T A , @ 8P( U
0x17ba34…17bbc8 Dummy {f00=0x008f, f01=0x0190, f02=» A A A [ A J T ` ) K @ < G T ` ) - J ` 4 T K ` ) G ` " A ( A N (P0 W| R W"P W W*_ A N R W"X4 W W*_ J PJ T [> I ] H I $ @ < D ` E , D
0x17bbc8…17bd5c Dummy {f00=0x008f, f01=0x0190, f02=» R Xl A N R Xl R P Rl R Xv Rl_|W W"T : T U. A J UV W*_ A L (P [4 H - V l [ I U " R [ E R R T E D E @ < H ` H ` E V Vx #_ A * @ & 9k l $ A A J `
0x17bd5c…17bef0 Dummy {f00=0x008f, f01=0x0190, f02=» P _ " = D 4 Q W:_l [> 1 ] Vx = G $ U @ A $ V @ E " L M _V P* & &X ' $ @ < H T H _4 A L A * @ ,T2 @ A 6 @ A 8 @ @ :B A @ 9n A O @ @ ,P J
0x17bef0…17c084 Dummy {f00=0x008f, f01=0x0190, f02=» P $ @ @ $ T @ P M : 4 A 0 @ " R RV > R W > <B @ J @ *P ` 1 ` A P @ L ` 4 U._j @ 0 4 : A . R R W"P T U A J UV W*_ @ . : " D PH A . @ .P. D X D P [
0x17c084…17c218 Dummy {f00=0x008f, f01=0x0190, f02=» *P ` @ @ B B ` 4 : @ "P 9a _ " ( ) 8 ( ) : " $ @ "P 9A _ @ : A " W A "?AP ^ @ : 4P: " D [> , H H $ M j - I Y0 : @ : W R T 2 A B @ (T : N @ @
0x17c218…17c3ac Dummy {f00=0x008f, f01=0x0190, f02=»Yt P _ N L % J J ` G G ` U U ` G ` : W"P T W V W* : U. U @ NP X A J UV_$ 8 @ T @ J % @ H % : ]$ @ WN B W @ > " B ; Z [ : : [ [
0x17c3ac…17c540 Dummy {f00=0x008f, f01=0x0190, f02=» $ )_ : Y A A A ~ Z QF @ @ ` x A @ @ ` p R0 A @ A Z ^B _F 9o @ ~ ~_X Y : Y @ J P Z Z V U Z _ V Z Z K A A :K A Z Q R
0x17c540…17c6d4 (1, 481) Dummy {f00=0x008f, f01=0x0190, f02=» : : , X G : " L @ V @ Yt 0 H A : @ <m @ 0 ;l R 9d_ ;b# R 9a_ @ @ 1 R U W 9a P _" : P _ : @ | ` |U WP L P _ @ P
0x17c6d4…17c868 Dummy {f00=0x008f, f01=0x0190, f02=» [ .=H N Z [ N : d 8" R _ ZY QY : L ? ? R 0 R P P f _ : V ) [ ` : R @ @ ! @ P P P P _ _ @ @ :b @ :b
0x17c868…17c9fc Dummy {f00=0x008f, f01=0x0190, f02=» 9n A :B A @ | < | P: N P4 9b .V 3 S S :b Y* AST" ? ? > | f T ] ] W 9l ] 9A ] 9k! ] Y P: P4 S @ P 3 _ 3 |
0x17c9fc…17cb90 Dummy {f00=0x008f, f01=0x0190, f02=» > _ _ _ !_ 1`f ` @aZ Pa 0a 1a _ 6 @ RKB ` `f %t _ _ B&6 Y `
0x17cb90…17cd24 Dummy {f00=0x008f, f01=0x0190, f02=» F DI a ?O_o B&6 Y a P j 0GP b@
0x17cd24…17ceb8 Dummy {f00=0x008f, f01=0x0190, f02=» :C # : .=H N , ( D N .=H N " GETNUM R , ( N N : d 8" f QUEJOBR SAVE8 , ( R _ ZY QY : ? ? , ( + R 0
0x17ceb8…17d04c Dummy {f00=0x008f, f01=0x0190, f02=» SCTOPT , ( @ e " b ` $ : @ . @ SCTSFA F SCTPAG X SCTNOPW j , ( ! @ P | , ( P P P _ _ @ SCTPSZ , ( @@ @ :b @
0x17d04c…17d1e0 Dummy {f00=0x008f, f01=0x0190, f02=»W Y P @ Q @ ~ , ( - . P A. @ . @ . P SCTEFA L * & G _l A 9n A :B A ^ TTB:SPW SEG:NS , ( _ D @ < | P N P , ( w 9b .V 3 S S
0x17d1e0…17de80 (2, 0) DirGranule ((2, 0)) {
0x17d1e0…17de80 DirEnt {nam=»A:AF «, typ=» «, f00=0x0000, f01=0x0000, f02=0x03b0, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»SPDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b30, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»SCREEN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10b8, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0318, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»TSTGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0290, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»SPLITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0300, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»AFMATC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05a8, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0f68, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»AFMATG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»AFGEN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x03e8, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04b8, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ff8, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»PROGEX«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0418, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»PROGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0378, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0310, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»PROD «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ff0, f03=0x0000}
0x17d1e0…17de80 DirEnt {nam=»A:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0430, f03=0x0000}
0x17d1e0…17de80 }
0x17de80…17e014 (2, 1) Opaque[0x194]
0x17e014…17e1a8 # DirEnt {nam=»SPDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b30, f03=0x0000}
0x17e014…17e1a8 IdxSect {
0x17e014…17e1a8 f00 = 0x0059 // 0x17e014 @0x0
0x17e014…17e1a8 f01 = 0x0004 // 0x17e016 @0x2
0x17e014…17e1a8 gno = [ // 0x17e018 @0x4
0x17e014…17e1a8 [0x00]: C0x0059.0x2.0
0x17e014…17e1a8 [0x01]: C0x005a.0x2.0
0x17e014…17e1a8 ]
0x17e014…17e1a8 }
0x17e1a8…17e33c Dummy {f00=0x0059, f01=0x0190, f02=» 0 P IDENT SPDDIV 820111 NJ ARBEJDSFORMIDLINGEN P* 8 & P* DATA DIVISION FOR DISPLAY TASKS B P* l P DDIV v P TERM T0 P* P CWB CB1 P CWB CB2 P P TWB TB1 P TWB TB2 P* " PSPDSDYKB DSET FC=X'20',D
0x17e33c…17e4d0 Dummy {f00=0x0059, f01=0x0190, f02=»M b 8 PSPDSFF DSET FC=X'31',BUFDS=SPDSPRT,DEV=GP FRONTFEED ( P FMTCTL INDS=SPDSDYKB,OUTDS=SPDSSCRN F P* r P START MATC | P STACK 128 P EJECT PCB1 BLK P* PPRBUSY BOOL F P* P* P* P* P
0x17e4d0…17e664 Dummy {f00=0x0059, f01=0x0190, f02=» '5' PW6 BIN '6' PW7 BIN '7' PW8 BIN '8' 0 PW9 BIN '9' B PW10 BIN '10' T PW11 BIN '11' h PW12 BIN '12' | PW13 BIN '13' PW14 BIN '14' PW15 BIN '15' P PCB2 BLK PW16 BIN '16' PW17 BIN '17'
0x17e664…17e7f8 Dummy {f00=0x0059, f01=0x0190, f02=» PTB1 BLK PSPPROMPT BOOL T PSPCHANGE BOOL , PSPERCALL BOOL F B PSPBINW1 BIN Z PSPBINW2 BIN n PSPBINW3 BIN PSPBINW4 BIN P* PTBIN1 BIN PTBIN2 BIN PTBIN3 BIN PTBIN4 BIN PTBIN5 BIN
0x17e7f8…17e98c Dummy {f00=0x0059, f01=0x414a, f02=»0 PSPINPUT STRG 72 PSPSTRGW1 STRG 1 " PTSTILLNG STRG 30 : PTNAVN STRG 39 R PTADRES STRG 39 h PTPOSTD STRG 34 ~ PTCOADRES STRG 31 PTBEM1 STRG 67 PTBEM2 STRG 67 PTBEM3 STRG 67 PTBEM4 STRG 67 PTBEM
0x17e98c…17eb20 Dummy {f00=0x0059, f01=0x2008, f02=» NW1 BIN SPBINW2 BIN SPBINW3 BIN , SPBINW4 BIN @ SPINPUT STRG 40 T * l TWB2 BLK v BCDWK BCD 1 PDIV EXT START END @ DSET FC=20 SPDSSCRN DSET FC=50,BUFL=75 SPDSPR
0x17eb20…17ecb4 (2, 2) Dummy {f00=0x005a, f01=0x0190, f02=»Tf B 9 R 9 X ! T X_ y C Q " T X ! X X ! x Y~ Y _ X "@P B R y C B P 9 V X_F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c C _$ _ y _6 x
0x17ecb4…17ee48 Dummy {f00=0x005a, f01=0x0190, f02=»X X # _ " O C C ( # B P B C v : + X ( ( ^ : B C _J + . X 9 V ! P @ Y #0 " Y Y . X ! " : V V " V
0x17ee48…17efdc Dummy {f00=0x005a, f01=0x0190, f02=» !0 " X ' ! Y 0T V 6 : 2' " " P # P " R P P X ' ' Er X _ X ' _ X '?_ ! P # P " X ' X ! X " 9b! X :c
0x17efdc…17f170 Dummy {f00=0x005a, f01=0x0190, f02=»Q X :h Y 0 xW U X Q vW Y 0 p ?Z ? @ > 9H Y * *W W > X 0T " X 2Z X +" X *9h P: R Y ?_ P R P R " Y +Wl Y + tWZ T R( ~WJ Q W Y + U Q " Y Q P
0x17f170…17f304 Dummy {f00=0x005a, f01=0x0190, f02=» :H* : X 2T Y 2 : C 1 B ] > : X +! " X +! U 9K Y ( Y + p 9H Y * 2 Y ( Y ? Y + f 4 0 f 6 2 X 0 " : ! P # T : " C ( C : C B _( _ X
0x17f304…17f498 Dummy {f00=0x005a, f01=0x0190, f02=»V : !d_0 _>"z"x "x"x"x"6"f"b! ! ~ t t"x "x"x W W X 0Q v t Y ( Y *P > F X <' X X X *# X ( " Q " P X 0PR V _` " PL T " Ph Wp " P Y 0] Y (_z P P T0 " X
0x17f498…17f62c Dummy {f00=0x005a, f01=0x0190, f02=»> R C W @ X (T W X y 6 Y ( : X (;n "z!dB !z!L "6"f"b! ! ~ ! "x!z Y . Y ,W Y . X ( X ." PV X 0RzT$ Y *P U :H K T ! W ! X . X 2QP Y *T2 ! : " P$ X 0U X *# P P T " T : "
0x17f62c…17f7c0 Dummy {f00=0x005a, f01=0x0190, f02=» X &P V H " P ! X ?! P* R Q$ X &P V D ! P $ ! P %_ ! : V Y " X .9H $ ! P & X ( " Q Y +Q R " P W " U Y , " Q " " X . X 0R P" X *:h P PD " ) Y (W X *:h Pt Pn P
0x17f7c0…17f954 (2, 3) Opaque[0x194]
0x17f954…17fae8 # DirEnt {nam=»SCREEN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10b8, f03=0x0000}
0x17f954…17fae8 IdxSect {
0x17f954…17fae8 f00 = 0x0085 // 0x17f954 @0x0
0x17f954…17fae8 f01 = 0x000a // 0x17f956 @0x2
0x17f954…17fae8 gno = [ // 0x17f958 @0x4
0x17f954…17fae8 [0x00]: C0x0085.0x3.0
0x17f954…17fae8 [0x01]: C0x0086.0x0.0
0x17f954…17fae8 [0x02]: C0x0086.0x1.0
0x17f954…17fae8 [0x03]: C0x0086.0x2.0
0x17f954…17fae8 [0x04]: C0x0089.0x3.0
0x17f954…17fae8 ]
0x17f954…17fae8 }
0x17fae8…17fc7c Dummy {f00=0x0085, f01=0x0190, f02=» . P IDENT SCREEN REL.9.1 ARBEJDSFORMIDLINGEN P* 6 , P* A STANDARD PROGRAM PACKAGE HANDLING @ 0 P* A COMPLETE PICTURE ON A DISPLAY SCREEN p P* ( P* RUNNING UNDER: CREDIT REL 4.1 ( P* TOSS REL 9.1 P*
0x17fc7c…17fe10 Dummy {f00=0x0085, f01=0x0190, f02=»ELDS l * P ENTRY SPCLRN CLEAR NO VARIABLE FIELDS . P ENTRY SPERR DISPLAY ERROR MESSAGE, UPDATE : ( P .. CURRENT FIELD & CONTINUE IN .. l P .. FORMAT. P EXT EMPTYT P P INCLUDE SPLITT,LIST P P* > P* CLEAR ALL V
0x17fe10…17ffa4 Dummy {f00=0x0085, f01=0x018e, f02=» @ P* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* H PSPCLRS PROC R P PERF SCREEN,W2 f P RET ~ P PEND P* > P* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* PSPCLRN PROC P PERF
0x17ffa4…180138 Dummy {f00=0x0085, f01=0x0190, f02=» P PERF SCREEN,W0 P RET P PEND ( P* 6 PSPERR2 PROC @ & P SET SPERCALL INDICATE SPERR CALL T P PERF SCREEN,W0 ~ P CLEAR SPERCALL P RET P PEND P* P PSCREEN PROC OPT P PBIN OPT P
0x180138…1802cc Dummy {f00=0x0085, f01=0x0190, f02=»ES! P & P MOVE SPBINW1,W1 SET INITIAL VALUE . P TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT > P SHOULD BE DISPLAYED p P* P* ONLY VARIABLE FIELDS P* 8 P IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX P*
0x1802cc…180460 Dummy {f00=0x0085, f01=0x0190, f02=»T-"NCLR" FIELDS t P FROM 1 AND UP P B CONT 0 P @ P* H P* DISPLAY ENTIRE FORMAT R P* t PENTIRE ~ 8 P IB SPBINW2,ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX P* P* CLEAR ALL VARIABLES P* PECLRA 0
0x180460…1805f4 (2, 4) Dummy {f00=0x0086, f01=0x0190, f02=»UT THE "NCLR" FLAG SET v P* PECLRS ( 0 P ERASE 6,SPBINW1,W0 CLEAR NOT-"NCLR" FIELDS 6 P IN MEMORY j P* ~ & P* CLEAR NO VARIABLES IN MEMORY P* PECLRN . P DISPLAY 0,SPBINW1,W0 DISPLAY ENTIRE FORM P P*
0x1805f4…180788 Dummy {f00=0x0086, f01=0x0190, f02=»4,SPBINW3 SEARCH CURRENT POSITION P BZ SETCREAD JUMP IF FOUND * " P BL KTHOME POSITION NOT FOUND L P* r P* COMPULSORY FIELD FOUND | P* & P MOVE SPBINW4,SPBINW3 CHANGE INDEX P B CONT5 SEARCH AGAIN P* P P*
0x180788…18091c Dummy {f00=0x0086, f01=0x018e, f02=»* READ TO CURRENT FIELD ON DISPLAY P* . PREADIN 8 . P DYKI SPINPUT,SPKTAB1,SPKTAB2,SPBINW1, C F P SPBINW2,SPBINW4 x P BL ERRPRT ERROR 0 P CBNG SPBINW2,W0,RETUR JUMP IF POWER OFF OR P KEY SWITCHES PDYKOUT 0 P CBN
0x18091c…180ab0 Dummy {f00=0x0086, f01=0x0190, f02=» ( P IB SPBINW2,UPD300,CLEA20 JUMP ON C P UPDATE,CANC,CANC, C 4 . P UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C R 4 P UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C P UPDATE,KDUPL,KEDIT P P* 4 P* HANDLE THE RESPECTIVE K
0x180ab0…180c44 Dummy {f00=0x0086, f01=0x0190, f02=» n 6 P CBE SPBINW4,W0,UPD050 JUMP IF NOT STANDARD CHECK P* B * P PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3 C L " P SPCHK4,SPCHK5,SPCHK6,SPCHK7 z & P IB SPBINW3,UPD100,UPD070,ERRPRINT P* P* CONDITIONAL DISPLAYING P* PUPD050
0x180c44…180dd8 Dummy {f00=0x0086, f01=0x0190, f02=»NW3,W0,UPD210 JUMP IF APPL VALUE P B SETCREAD ( P* < " P* UNCONDITIONAL DISPLAYING F P* l PUPD100 v 4 P MOVE SPBINW4,W2 INDICATE UNCONDITIONAL DISPLAY PUPD200 $ P GETCTL 0,SPBINW3 GET APPL-VALUE 0 P CBE SPBINW3,W0,UPD400
0x180dd8…180f6c Dummy {f00=0x0086, f01=0x0190, f02=»NW3,UPD260,SETCREAD,ERRPRINT P B UPD400 $ P* 6 P* OK AFTER APPL CONTROL @ " P* UNCONDITIONAL DISPLAYING b P* & PUPD260 UPDATE CURRENT INPUT ... , P UPDFLD 1,SPINPUT ... FIELD & DISPLAY IT . PUPD300 SET SPCHANGE INDICATE
0x180f6c…181100 Dummy {f00=0x0086, f01=0x0190, f02=»L,RETUR RETURN IF "SPERR2"-CALL P* ( $ P* JUMP ON FUNCTION KEY INDEX 2 P* Z P IB SPBINW2,READIN,DUMMY, C d P KEOI,DUMMY,DUMMY,KTFWD, C . P KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C * P KTDOWN,KTUP,DUMMY,DUMMY,DUMMY,KENTER
0x181100…181294 (2, 5) Dummy {f00=0x0086, f01=0x0190, f02=»60 JUMP IF UNCONDITIONAL DISPL | 0 P UPDFLD 0,SPINPUT UPDATE FIELD DISPL. COND. & P B UPD300 Z P* l P v " PKEOI COMMON END-OF-ITEM KEY ~ PKTFWD TAB. FORWARD 1 STEP P TFWD P B TSTTAB $ PKTBWD TABULATION 1 STEP BACKW.
0x181294…181428 Dummy {f00=0x0086, f01=0x0190, f02=» NEXT LINE v P TLDOWN P B TSTTAB " PKTLEFT TAB. TO LEFTMOST 4 P TLEFT V P B TSTTAB d PKTRIGHT TAB. TO RIGHTMOST v P TRIGHT P B TSTTAB PKTDOWN TAB 1 DOWN P TDOWN P B TSTTAB PKTUP TAB 1 UP
0x181428…1815bc Dummy {f00=0x0086, f01=0x0190, f02=»PULSORY FIELD x P* P* CONDITIONAL TABULATION P* D P PERF SPTCHK N P CBE SPBINW3,W0,SETCREAD b P IB SPBINW2,DUMMY,DUMMY, C " P KTFWD,DUMMY,DUMMY,KTFWD, C " P KTBWD,KTFWD,KTFWD,KTFWD, C P KTBWD,KTFWD,KTBWD
0x1815bc…181750 Dummy {f00=0x0086, f01=0x0190, f02=»RD COPY P SET PRBUSY P BOK KCOPY1 PRINTER NOT BUSY $ ( P MOVE SPBINW3,=W'50' VENT 5 SEKUNDER H P DELAY SPBINW3 t P B KCOPY OG PROV IGEN PKCOPY1 P MOVE SPBINW3,W1 P PRINT SPDSPRT,SPBINW3,W0 P CLEAR PRBUSY FRIGIV PRI
0x181750…1818e4 Dummy {f00=0x0086, f01=0x0190, f02=» , P MOVE SPBINW2,W3 INDICATE COMMON EOI-KEY P DUPL SPINPUT DUPLICATION 4 P BZ UPD260 DUPL ALLOWED V . P MOVE SPBINW4,W4 INDICATE ILLEGAL EOI-KEY v P B ERRPRINT DUPL NOT ALLOWED P P* P* EDIT FIELD P* PKEDERR
0x1818e4…181a78 Dummy {f00=0x0086, f01=0x0190, f02=» P GETCTL 1,SPBINW3 GET MAXL P CBNE SPBINW3,W0,KED100 & ( P EDWRT SPDSSCRN,BELL ACOUSTIC ALARM F P B SETCREAD r PKED100 & P EDFLD SPINPUT,SPKTAB3,SPBINW1, C P SPBINW2,SPBINW4 P BL ERRPRT ERROR 6 P CBNG SPBINW2,W0,POWEROF
0x181a78…181c0c Dummy {f00=0x0086, f01=0x0190, f02=» " P B DYKOUT CONTINUE AS FOR DYKI P * P* 4 P* ENTER KEY > P* T PKENTER ^ . P MOVE SPBINW4,W5 INDICATE COMP.FIELD FOUND l * P MOVE SPBINW1,W0 INDICATE NO CLEARING , P MOVE SPBINW2,W0 SET INDEX TO LAST FIELD P IN FORMAT
0x181c0c…181da0 Dummy {f00=0x0086, f01=0x0190, f02=» COMPULSORY? | P BZ KENT05 NO! P CALL EMPTYT,:FMTITEM EMPTY? * P BP KENT10 YES! N PKENT05 f 2 P MOVE SPBINW2,W3 INDICATE ENTER KEY DEPRESSED t P RET P* & P* EMPTY COMPULSORY FIELD FOUND P* PKENT10 6 P GETFL
0x181da0…181f34 (2, 6) Dummy {f00=0x0086, f01=0x0190, f02=»W2,W16,KEDIT JUMP IF EDIT ( P CBE SPBINW2,W4,CANC JUMP IF CANCEL1 " ( P CBE SPBINW2,W5,CANC JUMP IF CANCEL2 N ( P CBE SPBINW2,W7,KEDBWD JUMP IF TBWD z P* P* ERROR HANDLING P* PERRPRINT P CMP SPBINW4,W0 $ P BE SETCRE
0x181f34…1820c8 Dummy {f00=0x0086, f01=0x0190, f02=»PBINW3 SET CURSOR ON LAST ROW ~ & P EDWRT SPDSSCRN,SPFTBERR(SPBINW4) & P* P P* READ AFTER ERROR Z P* x PERREAD ( P SETCUR SET CURSOR AT THE BEGINNING P OF THE CURRENT FIELD PERR100 & P MOVE SPBINW3,W1 REQUESTED LEN
0x1820c8…18225c Dummy {f00=0x0086, f01=0x0190, f02=»FF JUMP IF POWER OFF z " P IB SPBINW2,ERR100,ERRCONT C $ P ERRCONT,ERR100,ERRCONT,ERRCONT B 8 P CBNE SPBINW2,W17,ERR100 TRY AGAIN IF NOT EDIT KEY! j P* P* CLEAR ERROR PRINTOUT P* PERRCONT * P MOVE SPBINW3,='24' INDICATE
0x18225c…1823f0 Dummy {f00=0x0086, f01=0x018e, f02=»EX r PCANC . P CBE SPBINW1,W0,ERRC10 JUMP IF LENGTH = 0 0 P MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS H P MOVE SPSTRGW1,=X'3100' | 6 P MOVE :FMTITEM,SPSTRGW1 PUT SOMETHING IN THE FIELD & P GETABX SPBINW4 GET CURRENT INDEX * P ERASE 1
0x1823f0…182584 Dummy {f00=0x0086, f01=0x018e, f02=» d P RET PCLEAR1 . P CBE SPBINW1,W0,ERRC20 JUMP IF LENGTH = 0 " ( P SET SPCHANGE INDICATE CHANGED FIELD T PERRC20 P B SETCREAD CONTINUE P* PCLEAR2 , P CBE SPBINW1,W0,CLEA20 JUMP IF LENGTH 0 4 P MOVE :FMTITEM,SPINPUT
0x182584…182718 Dummy {f00=0x0086, f01=0x0190, f02=» f P B SETCREAD P* PBELL FRMT & P FSL 8 P FILLR X'07',1 D P FMEND Z P h P PEND p P ~ P XSTAT SPDSSCRN,TBIN5 P EJECT PSPTCHK PROC P RET P PEND P PSPCHK1 PROC P RET P
0x182718…1828ac Dummy {f00=0x0086, f01=0x4110, f02=» PROC P RET P PEND P ( PSPCHK5 PROC 0 P RET D P PEND P P ^ PSPCHK6 PROC f P RET z P PEND P PSPCHK7 PROC P RET P PEND P PSPAPPL PROC P RET P PEND P END
0x1828ac…182a40 Dummy {f00=0x0086, f01=0x2008, f02=» ,SPBINW4 DISPLAY FIELD P B SETCREAD CONTINUE & P* B PBELL FRMT L P FSL ^ P FILLR X'07',1 j P FMEND P P PEND P P END @ INUE P* PCLEAR2 . P CBE SPBINW1,='0',CLEA20 JUMP IF LENGTH
0x182a40…182bd4 (2, 7) Dummy {f00=0x0089, f01=0x0190, f02=» 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? " Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ C 8 8 !++P !-- z ;$# + ^$ _* |`. PT*AXYZ9E:E:E:F G4E G, 8G^GdH J K K I F F F EtF EtF
0x182bd4…182d68 Dummy {f00=0x0089, f01=0x0190, f02=»E @D R R. RT F( pVV 9c DDl 9a1 P Q DzW H :aW* @D YZP Q @D ]f Q @D ]p Q # 2 P V W< _ 2 # ;B F V T W V P L , V 2P " 2 P V D ! R T V P V > W
0x182d68…182efc Dummy {f00=0x0089, f01=0x0190, f02=»^ 6 E 7_ 2 # PT L PN 2# &X 3Y $! 2P R P _ 9BP E _ W E 6 D " 7 $ V P > W F D: Ef V & E HD 'W 'W '_8 W " # " " T & T
0x182efc…183090 Dummy {f00=0x0089, f01=0x0190, f02=» 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : #0 " P8" T * & : * & !`P :J +
0x183090…183224 Dummy {f00=0x0089, f01=0x0190, f02=» W ! W V P , V W Q P W $ W V P T V W Z : 2' [ [ Z Z 8 : V ) 0 " !0 " " TV *V &V : V S W P 9 S W _ V P W
0x183224…1833b8 Dummy {f00=0x0089, f01=0x0190, f02=» 8 M Gd Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P M G^ V H )_ M K _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 " !0 " " Tz *V &V
0x1833b8…18354c Dummy {f00=0x0089, f01=0x0190, f02=» 6 " [ [ [ [ $ [ [ &! P M M 8 M 8 M Gd z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z M IB Q M K P _ T { [ M M [ Q@ [ M Gd { R [ _ M G^ M K
0x18354c…1836e0 Dummy {f00=0x0089, f01=0x0190, f02=» , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( P: : { : P"$0T O Pb 9 _ P"$0T [ P"$0T Z : R$ P $ 1T Y TdW 5 _& : P"$0TH
0x1836e0…183874 (2, 8) Opaque[0x194]
0x183874…183a08 # DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0318, f03=0x0000}
0x183874…183a08 IdxSect {
0x183874…183a08 f00 = 0x0018 // 0x183874 @0x0
0x183874…183a08 f01 = 0x0002 // 0x183876 @0x2
0x183874…183a08 gno = [ // 0x183878 @0x4
0x183874…183a08 [0x00]: C0x0018.0x3.0
0x183874…183a08 ]
0x183874…183a08 }
0x183a08…183b9c Dummy {f00=0x0018, f01=0x0190, f02=» 0 P IDENT CTAB02 820111 NJ ARBEJDSFORMIDLINGEN P ENTRY CTAB02 8 PCTAB02 EQU * N P DATA UNSH,SHIFT,0,0,0 b ( PUNSH DATA U0,U1,U2,U3,U4,U5,U6,U7,0 P* ( PSHIFT DATA S0,S1,S2,S3,S4,S5,S6,S7,0 P* < PU0 DATA /0001,/0203,/0405,/7
0x183b9c…183d30 Dummy {f00=0x0018, f01=0x0190, f02=»C,/2A2B,/2C2D,/2E2F l < PU3 DATA /3031,/3233,/3435,/3637,/3839,/8A8B,/8C8D,/8E8F < PU4 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F < PU5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/7F5F < PU6 DATA /6061,/6263,/647F,/6667,/7F7F,/7F7F,
0x183d30…183ec4 Dummy {f00=0x0018, f01=0x018e, f02=»F,/7F7F,/7F7F f < PS1 DATA /7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F < PS2 DATA /2021,/2223,/2425,/262A,/7F3E,/2A3F,/3B5F,/3A2F V < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F < PS4 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,
0x183ec4…184058 Dummy {f00=0x0018, f01=0x4058, f02=» V < PS7 DATA /7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7F7F,/7C7D,/7E7F P END H@ T DATA /2021,/2223,/2425,/262A,/7F3E,/2A3F,/3B5F,/3A2F V < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F < PS4 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,
0x184058…1841ec Dummy {f00=0x0018, f01=0x2008, f02=» < 7S5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7S7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F L END @ 051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7U7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7
0x1841ec…184380 Dummy {f00=0x0018, f01=0x0190, f02=» ) ; ( ( ; ( * ;8 D "! A+( ;T ;4 @) @) @+(P ( * V
0x184380…184514 (2, 9) Opaque[0x194]
0x184514…1846a8 # DirEnt {nam=»TSTGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0290, f03=0x0000}
0x184514…1846a8 IdxSect {
0x184514…1846a8 f00 = 0x0014 // 0x184514 @0x0
0x184514…1846a8 f01 = 0x0002 // 0x184516 @0x2
0x184514…1846a8 gno = [ // 0x184518 @0x4
0x184514…1846a8 [0x00]: C0x0014.0x2.0
0x184514…1846a8 ]
0x184514…1846a8 }
0x1846a8…18483c Dummy {f00=0x0014, f01=0x012c, f02=» PMES TESTVERSION AF-MATCH PPRT TSTGEN $ PPRT TEST 6 PNOD C F PTRA SPDDIV,NL T PINC AFMATC j PINC SCREEN | PTLK U,4K PLKE M PKPF /L,A:TEST PASG 2,NO F PMES $PDISC M=M:TEST,MU=M:AF,A=A:TEST,AU=A:AF,C=TEST,CO
0x18483c…1849d0 Dummy {f00=0x0014, f01=0x2008, f02=» TESTVERSION AF-MATCH PPRT TSTGEN $ PPRT TEST 6 PNOD C F PTRA SPDDIV,NL T PINC AFMATC j PINC SCREEN | PTLK U,4K PLKE M PKPF /L,A:TEST PASG 2,NO F PMES $PDISC M=M:TEST,MU=M:AF,A=A:TEST,AU=A:AF,C=TEST,CO
0x1849d0…184b64 Dummy {f00=0x0014, f01=0x0190, f02=»
0x184b64…184cf8 Dummy {f00=0x0014, f01=0x0190, f02=»0 0 0 H V W ' u ' " C C G C C C D X ` d h "D = >`< 6 r 0 h j h< = b cd a` b cd ! P P P X P
0x184cf8…184e8c Dummy {f00=0x0014, f01=0x0190, f02=» Q Y W X " " X X . 8 X 0P X T 5 ! Y * X 2 y X V. X X ( x C ( Y * X Y , X X C & C C ( B Ph9 R^9 X !@PP X X * b ) Y * Y , X , x
0x184e8c…185020 Dummy {f00=0x0014, f01=0x0190, f02=» X * n_R X !@XX y X # x V y X X * P P 1 _ 1 2 X * V X X * $" X D % " X # X * y _< X # X * y X 1 1 X !@T X $ " P y _ x T X H X X * , )$ P _ : X "
0x185020…1851b4 (2, 10) Opaque[0x194]
0x1851b4…185348 # DirEnt {nam=»SPLITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x1851b4…185348 IdxSect {
0x1851b4…185348 f00 = 0x0000 // 0x1851b4 @0x0
0x1851b4…185348 f01 = 0x0004 // 0x1851b6 @0x2
0x1851b4…185348 gno = [ // 0x1851b8 @0x4
0x1851b4…185348 [0x00]: C0x0000.0x3.0
0x1851b4…185348 [0x01]: C0x0015.0x0.0
0x1851b4…185348 ]
0x1851b4…185348 }
0x185348…1854dc Dummy {f00=0x0000, f01=0x0190, f02=» P* P* S P L I T T , P* THIS MODULE IS USED BY SCREEN PACKAGE. $ 0 P* IT CONTAINS KEYTABLES AND ERROR PRINTOUTS T , P* USED IN CONNECTION WITH SCREEN PACKAGE P* PBSP1 EQU X'8D' PEDIT EQU X'82' PSEND EQU X'0F' PPF1
0x1854dc…185670 Dummy {f00=0x0000, f01=0x0190, f02=»X'64' PPA3 EQU NOKEY PPA4 EQU NOKEY $ PPA5 EQU NOKEY : PFSP EQU X'8E' P PBSP EQU X'8D' f PRESET EQU X'1D' | PCANC1 EQU X'0D' PREWRT EQU NOKEY PEOI EQU X'1C' PFWD EQU X'1C' PBWD EQU X'0C' PHO
0x185670…185804 Dummy {f00=0x0000, f01=0x0190, f02=»U X'62' PDUP EQU NOKEY PNOKEY EQU X'FF' & PINS EQU X'61' > PDEL EQU X'60' T PCLEAR EQU X'1E' j P* 6 P* KEYTABLE USED WHEN CURSOR IS PLACED AT THE VERY * P* FIRST POSITION IN THE CURRENT FIELD P* 0 PSPKTAB1 KT
0x185804…185998 Dummy {f00=0x0000, f01=0x0190, f02=»PF2,PF3, C P PF4,PF5,PA1,PA2,PA3, C P PA4,PA5 6 P H P* P 0 P* KEYTABLE USED WHEN CURSOR IS PLACED AT ANY Z 6 P* POSITION BUT THE VERY FIRST IN THE CURRENT FIELD P* 0 PSPKTAB2 KTAB BSP1,RESET,NOKEY,EOI,CANC1, C $ P
0x185998…185b2c Dummy {f00=0x0000, f01=0x018e, f02=»C x P PA4,PA5 P* P* KEYTABLE USED IN EDIT MODE & P* J , PSPKTAB3 KTAB FSP,BSP,INS,DEL,NOKEY, C T & P NOKEY,NOKEY,EOI,CANC1,CLEAR, C $ P FWD,BWD,HOME,LF,LEFT,RIGHT, C P DOWN,UP,HCOPY,DUP,EDIT, C P SEND,PF1,PF2
0x185b2c…185cc0 Dummy {f00=0x0000, f01=0x0190, f02=» f P PER01 FRMT P FILLR '+',2 " P FCOPY ='FOR F] TEGN' 6 P FMEND T P b PER02 FRMT j P FILLR '+',2 | P FCOPY ='FEJL 2' P FMEND P PER03 FRMT P FILLR '+',2 P FCOPY ='FEJL 3' P FMEND
0x185cc0…185e54 (2, 11) Dummy {f00=0x0015, f01=0x402c, f02=»PY ='FELT MANGLER' P FMEND @ (
0x185e54…185fe8 Dummy {f00=0x0015, f01=0x2008, f02=» ERRFMT FRMT FSL FHIGH * FTEXT 'ERROR NUMBER ' 8 FTEXT X'7' BELL V FMEL '9',BCDWK ERROR NUMBER n FMEND @ . )* FORMAT TABLE CONTAINING ERROR PRINTOUTS * * * SPFTBERR TO BE SUP
0x185fe8…18617c Dummy {f00=0x0015, f01=0x0190, f02=» !0 " X ' ! Y 0T V 8 : 2' " " P # P " R P P X ' ' Et X _ X ' _ X '?_ ! P # P " X ' X ! X " 9b! X
0x18617c…186310 Dummy {f00=0x0015, f01=0x0190, f02=» Q X :h Y 0 zW U X Q xW Y 0 r ? ? @ > 9H Y * ,W W > X 0T " X 2Z X +" X *9h P: R Y ?_ P R P R " Y +Wl Y + vWZ T R( WJ Q W Y + U Q " Y Q
0x186310…1864a4 Dummy {f00=0x0015, f01=0x0190, f02=» 0 :H* : X 2T Y 2 : C 1 B ] > : X +! " X +! U 9K Y ( Y + r 9H Y * 2 Y ( Y ? Y + h 4 0 h 6 2 X 0 " : ! P # T : " C ( C : C B _( _ X
0x1864a4…186638 Dummy {f00=0x0015, f01=0x0190, f02=» V : !f_0 _>"|"z "z"z"z"8"h"d! ! v v"z "z"z W W X 0Q x v Y ( Y *P > H X <' X X X *# X ( " Q " P X 0PR V _` " PL T " Ph Wp " P Y 0] Y (_z P P T0 "
0x186638…1867cc Dummy {f00=0x0015, f01=0x0190, f02=» > T C W @ X (T W X y 6 Y ( : X (;n "|!fB !|!N "8"h"d! ! ! "z!| Y . Y ,W Y . X ( X ." PV X 0RzT$ Y *P U :H K T ! W ! X . X 2QP Y *T2 ! : " P$ X 0U X *# P P T " T :
0x1867cc…186960 Dummy {f00=0x0015, f01=0x0190, f02=» X &P V H " P ! X ?! P* R Q$ X &P V D ! P $ ! P %_ ! : V Y " X .9H $ ! P & X ( " Q Y +Q R " P W " U Y , " Q " " X . X 0R P" X *:h P PD " ) Y (W X *:h Pt Pn P
0x186960…186af4 (2, 12) Opaque[0x194]
0x186af4…186c88 # DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0300, f03=0x0000}
0x186af4…186c88 IdxSect {
0x186af4…186c88 f00 = 0x0018 // 0x186af4 @0x0
0x186af4…186c88 f01 = 0x0002 // 0x186af6 @0x2
0x186af4…186c88 gno = [ // 0x186af8 @0x4
0x186af4…186c88 [0x00]: C0x0018.0x0.0
0x186af4…186c88 ]
0x186af4…186c88 }
0x186c88…186e1c Dummy {f00=0x0018, f01=0x005c, f02=» ASG 2,LP0F TRA AFMATC TRA SCREEN ( KPF /O : ASG /E0,DK,AFGEN H
0x186e1c…186fb0 Dummy {f00=0x0018, f01=0x2008, f02=» 2,LP0F TRA AFMATC TRA SCREEN ( KPF /O : ASG /E0,DK,AFGEN H
0x186fb0…187144 Dummy {f00=0x0018, f01=0x018e, f02=»E TBIN1,=X'0130' P DSC SPDSPRT,SETDPAR,TBIN1 P EDWRT SPDSPRT,BILLED2 : P B DISP208 X PDISP205 j P PERF WAITGP z P MOVE TBIN1,=X'0230' P DSC SPDSPRT,SETDPAR,TBIN1 P EDWRT SPDSPRT,BILLED2 P B DISP208 PDISP206
0x187144…1872d8 Dummy {f00=0x0018, f01=0x0190, f02=» P P*************************************************************************** P PDISP3 d P SET SPPROMPT r P ATTFMT BILLED3 P PERF SPCLRA P SUB SPBINW2,W3 P CBL SPBINW2,W1,DISP3 P CBG SPBINW2,W5,DISP3 P
0x1872d8…18746c Dummy {f00=0x0018, f01=0x0190, f02=»,SETDPAR,TBIN1 P EDWRT SPDSPRT,BILLED4 P B TSTGP9 4 P F PTSTGP2 N P MOVE TBIN1,=X'0130' P DSC SPDSPRT,SETDPAR,TBIN1 x P EDWRT SPDSPRT,BILLED4 P B TSTGP9 P PTSTGP3 P MOVE TBIN1,=X'0101' & P DSC SPDSFF,
0x18746c…187600 Dummy {f00=0x0018, f01=0x0190, f02=»RELEASE P B TSTGP9 P " PTSTGP4 * P MOVE TBIN1,=X'0101' 8 & P DSC SPDSFF,6,TBIN1 GRASP+POSITION T P MOVE TBIN1,=X'0130' ~ P DSC SPDSFF,SETDPAR,TBIN1 P EDWRT SPDSFF,BILLED4 P DSC SPDSFF,1 RELEASE P B TSTGP9
0x187600…187794 (2, 13) Opaque[0x194]
0x187794…187928 # DirEnt {nam=»AFMATC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05a8, f03=0x0000}
0x187794…187928 IdxSect {
0x187794…187928 f00 = 0x002d // 0x187794 @0x0
0x187794…187928 f01 = 0x000a // 0x187796 @0x2
0x187794…187928 gno = [ // 0x187798 @0x4
0x187794…187928 [0x00]: C0x002d.0x1.0
0x187794…187928 [0x01]: C0x003d.0x1.0
0x187794…187928 [0x02]: C0x0057.0x2.0
0x187794…187928 [0x03]: C0x0057.0x3.0
0x187794…187928 [0x04]: C0x0060.0x2.0
0x187794…187928 ]
0x187794…187928 }
0x187928…187abc Dummy {f00=0x002d, f01=0x0190, f02=» . P IDENT AFMATC 820114 NJ ARBEJDSFORMIDLING P DDUM SPDDIV 6 P PDIV J P ENTRY MATC X P EXT SPCLRA l P PSETPPAR EQU X'0D' P PMATC PDISP1 P SET SPPROMPT P ATTFMT BILLED1 PDISP1A P PERF SP
0x187abc…187c50 Dummy {f00=0x002d, f01=0x0190, f02=»************************************************************* P F PDISP2 N P SET SPPROMPT P ATTFMT BILLED2 r PDISP200 P PERF SPCLRA 4 P IB SPBINW2,DISP201,DISP202,DISP203,DISP204, C P DISP205,DISP206,DISP207 P
0x187c50…187de4 Dummy {f00=0x002d, f01=0x0190, f02=» P PERF WAITGP P MOVE TBIN1,=X'1B17' P DSC SPDSPRT,SETPPAR,TBIN1 4 P EDWRT SPDSPRT,BILLED2 V P CLEAR PRBUSY t P B DISP208 PDISP205 P PERF WAITGP & P MOVE TBIN1,=X'1B27' HIGH QUALITY P DSC SPDSPRT,SETPPAR,TBIN1
0x187de4…187f78 Dummy {f00=0x002d, f01=0x018e, f02=»207 P B DISP1 PDISP208 P SET SPPROMPT , P B DISP200 B P T P P*************************************************************************** P PDISP3 P SET SPPROMPT P ATTFMT BILLED3 P PERF SPCLRA P
0x187f78…18810c Dummy {f00=0x002d, f01=0x0190, f02=» P PTSTGP1 P PERF WAITGP . P MOVE TBIN1,=X'1B27' 10 PITCH, HIGHQUALITY . P DSC SPDSPRT,SETPPAR,TBIN1 ` P EDWRT SPDSPRT,BILLED4 0 P MOVE TBIN1,=X'2B27' 12 PITCH, HIGH QUALITY P DSC SPDSPRT,SETPPAR,TBIN1 P EDWRT SPDSPRT,BIL
0x18810c…1882a0 Dummy {f00=0x002d, f01=0x0190, f02=»9 P PTSTGP2 P PERF WAITGP . P MOVE TBIN1,=X'1B17' 10 PITCH LOW QUALITY 4 P DSC SPDSPRT,SETPPAR,TBIN1 f P EDWRT SPDSPRT,BILLED4 P MOVE TBIN1,=X'2B17' P DSC SPDSPRT,SETPPAR,TBIN1 P EDWRT SPDSPRT,BILLED7 P MOVE
0x1882a0…188434 (2, 14) Dummy {f00=0x003d, f01=0x018e, f02=»1,=X'0101' & P DSC SPDSFF,6,TBIN1 GRASP+POSITION P MOVE TBIN1,=X'1B27' < P DSC SPDSFF,SETPPAR,TBIN1 X P EDWRT SPDSFF,BILLED5 z P MOVE TBIN1,=X'2B27' P DSC SPDSFF,SETPPAR,TBIN1 P EDWRT SPDSFF,BILLED7 P MOVE TBIN1,=X'1B27'
0x188434…1885c8 Dummy {f00=0x003d, f01=0x0190, f02=» P PERF WAITGP P MOVE TBIN1,=X'0101' & P DSC SPDSFF,6,TBIN1 GRASP+POSITION 8 P MOVE TBIN1,=X'1B17' b P DSC SPDSFF,SETPPAR,TBIN1 ~ P EDWRT SPDSFF,BILLED5 P MOVE TBIN1,=X'2B17' P DSC SPDSFF,SETPPAR,TBIN1 P EDWRT SPDSF
0x1885c8…18875c Dummy {f00=0x003d, f01=0x0190, f02=» P B TSTGP9 P PTSTGP5 P B DISP1 , P < PTSTGP9 D P CLEAR PRBUSY R P B DISP3 h P x P P*************************************************************************** P PWAITGP PROC PWAIT10 P TBF PRBUS
0x18875c…1888f0 Dummy {f00=0x003d, f01=0x0190, f02=»*********************************************************** P D PBILLED1 FRMT L P FSL ` P FNL l P FHIGH x P FTAB 4 P FILLR '*',40 P FILLR '*',35 P FNL P FHIGH P FTAB 4 P FILLR '*',1 P FTAB 78
0x1888f0…188a84 Dummy {f00=0x003d, f01=0x0190, f02=» M I N A L S Y S T E M' r P FCOPY =C' P T S 6 0 0 0' P FTAB 78 D P FILLR '*',1 T P FNL h P FHIGH t P FTAB 4 P FILLR '*',1 P FTAB 78 P FILLR '*',1 P FNL P FHIGH P FTAB 4 P FILLR '*',40
0x188a84…188c18 Dummy {f00=0x003d, f01=0x0190, f02=»KOMMEN TIL DENNE OFF-LINE ' x P FCOPY TEST $ P FNL 8 P FTAB 4 D P FCOPY =C'AF PTS 6000.' T P FNL 2 t P FTAB 4 P FCOPY =C'FOR AT STARTE ' P FCOPY TEST , P FCOPY =C' AKTIVERES FUNKTIONSTASTERNE:' P FNL 3 P F
0x188c18…188dac Dummy {f00=0x003d, f01=0x0190, f02=»ER' P FNL 2 P FHIGH P FTAB 14 ( P FCOPY ='PA 2:' 8 P FILLR ' ',2 P P FCOPY TEST d P FCOPY =C' SKRIVER' x P FNL 4 P FLOW P FTAB 29 P FCOPY =C'*** GOD FORN' P FILLR X'5C',1 P FCOPY =C'JELSE **
0x188dac…188f40 Dummy {f00=0x003d, f01=0x018e, f02=»********************* Z P PBILLED2 FRMT & P FSL : 0 P FCOPY =C'PHILIPS TERMINAL SYSTEM PTS 6000' F P FTAB 40 z P FCOPY ='FUNKTION: ' P FCOPY TEST P FCOPY =' SK[RM OG' P FCOPY =' SKRIVER' P FNL 2 P FCOPY =C'
0x188f40…1890d4 (2, 15) Dummy {f00=0x0057, f01=0x0190, f02=» P FKI 11,ALPHA,MAXL=30 P FCOPY TSTILLNG " P FNL : P FCOPY ='NAVN :' F P FKI 11,ALPHA,MAXL=39 b P FCOPY TNAVN P FNL P FCOPY ='ADRESSE :' P FKI 11,ALPHA,MAXL=39 P FCOPY TADRES P FNL P FCOPY ='POS
0x1890d4…189268 Dummy {f00=0x0057, f01=0x0190, f02=»A,MAXL=34 P FCOPY TPOSTD P FTAB 62 ( P FCOPY ='TLF:' 8 P FKI 66,MINL=8,MAXL=8,REWRT N P FMEL '99E-99B99B99',TTLFNR r P FNL 2 P FCOPY ='EVT. C/O ADRESSE:' P FKI 19,MAXL=31,ALPHA P FCOPY TCOADRES P FNL 2
0x189268…1893fc Dummy {f00=0x0057, f01=0x0190, f02=»BEM2 P FNL P FKI 14,MAXL=67,ALPHA P FCOPY TBEM3 6 P FNL J P FKI 14,MAXL=67,ALPHA V P FCOPY TBEM4 t P FNL P FKI 14,MAXL=67,ALPHA P FCOPY TBEM5 P FNL 2 P FILLR '*',40 P FILLR '*',40 P FNL
0x1893fc…189590 Dummy {f00=0x0057, f01=0x0190, f02=»B 13 < P FCOPY =C'EFTER INDTASTNING AF OPLYSNINGER KAN V[LGES ' & P FCOPY =C'NY FUNKTION MED TASTEN:' L P FNL 2 v P FHIGH P FTAB 13 P FCOPY ='PF 1:' P FCOPY =' SKRIV KOPI. ' P FCOPY ='DATA-KVALITET' P FTAB 47
0x189590…189724 Dummy {f00=0x0057, f01=0x0190, f02=»PY ='PF 3:' " P FCOPY =' INDTAST OPLYSNINGER' P FTAB 47 : P FCOPY ='PF 4:' J " P FCOPY ='RETUR TIL 1. BILLEDE' b P FNL P FKI 79 P FMEL 'Z',BCDWK P FMEND P P P******************************************************
0x189724…1898b8 Dummy {f00=0x0057, f01=0x0190, f02=» FCOPY ='FUNKTION: ' P FCOPY TEST P FCOPY =' SKRIVER' 0 P FNL 3 J P FHIGH X < P FCOPY ='VEJLEDNING: FUNKTIONERNE V[LGES VED AKTIVERING' f P FCOPY =' AF TASTEN' P FNL 2 P FHIGH P FTAB 12 P FCOPY ='PF 1:' P F
0x1898b8…189a4c Dummy {f00=0x0057, f01=0x0190, f02=»EKST-KVALITET' P FNL 2 P FHIGH $ P FTAB 12 2 P FCOPY ='PF 2:' B P FILLR ' ',1 Z P FCOPY ='UDSKRIVNING' n P FCOPY =' ENDEL' P FILLR X'5C',1 P FCOPY ='S PAPIR BANE ' P FCOPY ='DATA-KVALITET' P FNL 2 P
0x189a4c…189be0 Dummy {f00=0x0057, f01=0x018e, f02=» p P FCOPY ='TEKST-KVALITET' P FNL 2 ( P FHIGH 6 P FTAB 12 D P FCOPY ='PF 4:' T P FILLR ' ',1 l P FCOPY ='UDSKRIVNING' $ P FCOPY =' A4-ARK I FRONT-FEED ' P FCOPY ='DATA-KVALITET' P FNL 2 P FHIGH P FTAB
0x189be0…189d74 (2, 16) Dummy {f00=0x0057, f01=0x0190, f02=» ~ P FMEND P P P*************************************************************************** P r PBILLED4 FRMT z P FILLR '1',2 SAME LINE P FLINK BILLED6 P FMEND P P P PBILLED5 FRMT P FILLR '+',2
0x189d74…189f08 Dummy {f00=0x0057, f01=0x0190, f02=» '*',34 P FEOR P FILLR ' ',5 P FILLR '*',1 2 P FILLR ' ',36 F P FILLR ' ',36 P FILLR '*',1 r P FEOR P FILLR ' ',5 P FILLR '*',1 P FILLR ' ',6 : P FCOPY ='P H I L I P S T E R M I N A L S Y S T E M'
0x189f08…18a09c Dummy {f00=0x0057, f01=0x0190, f02=» FILLR ' ',36 P FILLR ' ',36 P FILLR '*',1 , P FEOR @ P FILLR ' ',5 N P FILLR '*',40 b P FILLR '*',34 x P FEOR P FILLR '0',2 P FEOR P FILLR '0',2 P FILLR ' ',3 , P FCOPY ='DETTE ER PHILIPS DATA SYS
0x18a09c…18a230 Dummy {f00=0x0057, f01=0x0190, f02=» P FILLR ' ',22 P FILLR X'12',1 ( P FCOPY ='P T S G P 6 3 7 4 / 7 5' 0 P FILLR X'13',1 P FEOR r P FILLR '0',2 P FEOR P FILLR ' ',5 , P FCOPY ='DER SAMTIDIG KAN ANVENDES FOR ' P FCOPY ='DATABEHANDLING' P F
0x18a230…18a3c4 Dummy {f00=0x0057, f01=0x018e, f02=»'5C',1 6 P FCOPY ='DVENDIGT AT ANVENDE FORSKELLIGE SKRIVERE' P FEOR H P FILLR ' ',5 V P FCOPY ='TIL DE 2 OPGAVER:' j P FEOR P FILLR ' ',2 P FILLR ' ',10 P FCOPY ='DATABEHANDLING' P FCOPY =' : H' P FILLR X'5C'
0x18a3c4…18a558 Dummy {f00=0x0057, f01=0x018e, f02=» P FILLR '0',2 P FILLR ' ',10 P FCOPY ='TEKSTBEHANDLING' . P FCOPY =': H' P P FILLR X'5C',1 f P FCOPY ='J ' | P FCOPY ='SKRIVEKVALITET' P FCOPY =' / MIDDEL ' P FCOPY ='SKRIVEHASTIGHED' P FEOR P FILLR '0',2
0x18a558…18a6ec Dummy {f00=0x0057, f01=0x018e, f02=» v P FEOR P FILLR ' ',5 * P FCOPY ='I EEN OG SAMME SKRIVEENHED.' * P FEOR X P FILLR '0',2 f P FEOR z P FILLR ' ',5 P FCOPY ='SKRIVEHASTIGHED' P FCOPY =': ' P FCOPY ='DATABEHANDLING' P FCOPY =': OP TIL 300
0x18a6ec…18a880 Dummy {f00=0x0057, f01=0x0190, f02=» P FCOPY ='TEGN PR. SEKUND' P FEOR & P FILLR '0',2 4 P FILLR ' ',3 H @ P FCOPY ='SKRIVEBREDDE: 305 MM OG DET MAKSIMALE ANTAL TEGN ' P FILLR ' ',3 P FCOPY =' PR. LINIE ER VED' P FEOR P FILLR ' ',20 P FCOPY ='10'
0x18a880…18aa14 (2, 17) Dummy {f00=0x0060, f01=0x0190, f02=» FCOPY =' TEGN PR. TOMME ' P FCOPY ='144 TEGN' $ P FEOR > P FMEND L P Z P b P j PBILLED7 FRMT r P FILLR '0',2 P FILLR ' ',3 P FCOPY ='UDSKRIVNING' * P FCOPY =' KAN FORETAGES VED HJ[LP AF ' P FCOPY ='FRIKT
0x18aa14…18aba8 Dummy {f00=0x0060, f01=0x0190, f02=»'5C',1 2 P FCOPY ='RING OG VED ANVENDELSE AF FRONTINDF' P FILLR X'5C',1 D P FCOPY ='RING' Z P FEOR p P FILLR '0',2 ~ P FILLR ' ',3 D P FCOPY ='LINIEAFSTANDEN KAN V[RE HENHOLDSVIS 3,4,6,8 ELLER 12 ' P FCOPY ='LINIER PR. TOMME'
0x18aba8…18ad3c Dummy {f00=0x0060, f01=0x018e, f02=» =' IS[TNING AF NY' P FEOR P FILLR ' ',5 * 6 P FCOPY ='PAPIR BANE SAMT UDSKIFTNING AF FARVEB]ND' > P FEOR x P FMEND P P P PBILLED8 FRMT P FILLR '0',2 P FILLR ' ',3 : P FCOPY ='SKRIVEREN HAR FORUDEN A
0x18ad3c…18aed0 Dummy {f00=0x0060, f01=0x414e, f02=» P FCOPY ='UDSKRIVNING' ! P FCOPY =' AF BOGSTAVER' ! " * P FCOPY =' OG TAL I FORSKELLIGE STORE ' ! B P FEOR ! p P FILLR ' ',5 ! ~ P FCOPY ='ST' ! P FILLR X'5C',1 ! P FCOPY ='RRELSER SAMT LOGO' ! P FILLR X'27',1 ! P FCOPY ='S.' !
0x18aed0…18b064 Dummy {f00=0x0060, f01=0x2008, f02=» " @ FNL FTAB 14 $ FCOPY ='PF 4:' 4 0 + FCOPY ='UDSKRIVNING A4-ARK I FRONT-FEED ' L FCOPY ='DATA-KVALITET' FNL FNL FTAB 14 FCOPY ='PF 5:' $ FCOPY =' RETUR TIL 1. BILLEDE'
0x18b064…18b1f8 Dummy {f00=0x0060, f01=0x0190, f02=» : C C * : C * : ' X @ ; [ W ' X B ; [ + Z : :( R : V E V D ' $ T ( W ( P . X =' V W V Y =P ( : 1D ( . W * ) ( / ) _
0x18b1f8…18b38c Dummy {f00=0x0060, f01=0x0190, f02=»9HR ). ' W 781"&$ 39#$;< '()*+,-! + + 1D P _J +: B 1D 'W +: ( W| 1D + +: 1 ( 0 W : 1W C C ( ' P0 *6 P& V ,V - W B % P C
0x18b38c…18b520 Dummy {f00=0x0060, f01=0x0190, f02=» C B : ( ' P + I : + + % Y 0 C 1D & R V C 1D : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D 3 W<' #? 2 ;B V D W ,"? :D;B D V : _: L
0x18b520…18b6b4 (2, 18) Opaque[0x194]
0x18b6b4…18b848 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0f68, f03=0x0000}
0x18b6b4…18b848 IdxSect {
0x18b6b4…18b848 f00 = 0x007b // 0x18b6b4 @0x0
0x18b6b4…18b848 f01 = 0x0026 // 0x18b6b6 @0x2
0x18b6b4…18b848 gno = [ // 0x18b6b8 @0x4
0x18b6b4…18b848 [0x00]: C0x007b.0x1.0
0x18b6b4…18b848 [0x01]: C0x007b.0x2.0
0x18b6b4…18b848 [0x02]: C0x0080.0x3.0
0x18b6b4…18b848 [0x03]: C0x0082.0x1.0
0x18b6b4…18b848 [0x04]: C0x0085.0x1.0
0x18b6b4…18b848 [0x05]: C0x0085.0x2.0
0x18b6b4…18b848 [0x06]: C0x003d.0x2.0
0x18b6b4…18b848 [0x07]: C0x0046.0x2.0
0x18b6b4…18b848 [0x08]: C0x0051.0x0.0
0x18b6b4…18b848 [0x09]: C0x0051.0x1.0
0x18b6b4…18b848 [0x0a]: C0x0094.0x0.0
0x18b6b4…18b848 [0x0b]: C0x0094.0x1.0
0x18b6b4…18b848 [0x0c]: C0x0094.0x2.0
0x18b6b4…18b848 [0x0d]: C0x0094.0x3.0
0x18b6b4…18b848 [0x0e]: C0x0056.0x0.0
0x18b6b4…18b848 [0x0f]: C0x0056.0x1.0
0x18b6b4…18b848 [0x10]: C0x0057.0x1.0
0x18b6b4…18b848 [0x11]: C0x0066.0x0.0
0x18b6b4…18b848 [0x12]: C0x008a.0x0.0
0x18b6b4…18b848 ]
0x18b6b4…18b848 }
0x18b848…18b9dc Dummy {f00=0x007b, f01=0x0190, f02=» J H IDENT SCREEN TRA 11.0 - - F1 O1111 REL.9.1 ARBEJDSFORMIDLINGEN $ SPCLRA SPCLRN SPCLRS SPERR R $$$TRAR z , ( SPCLRA SPCLRNS SPCLRSE SPERR > : EMPTYTR T:DELAA T:DISP T:DSC1F T:DUPL T:DYKI1 T:EDFLS D @ T:EDWR
0x18b9dc…18bb70 Dummy {f00=0x007b, f01=0x0190, f02=»C T:TUP T:UPDFT T:XSTAT * % # b cd G * % # b cd G N . ) ' ! a` b cd | * " " " " " (
0x18bb70…18bd04 Dummy {f00=0x007b, f01=0x0190, f02=» 2 $ ( & & + 6 FEJL 3 D $ Z ( j v & + FEJL 4 $ ( & + FELT MANGLER $
0x18bd04…18be98 Dummy {f00=0x007b, f01=0x0190, f02=» 9 J F " D R 4 R 4 R 4 R 4 A2 R @24 1 1 8R 0 I0 61 %0X 0 W 0X 0 W 6 F Z M j R z W j l n o t J F " D @1 0X
0x18be98…18c02c Dummy {f00=0x007b, f01=0x0190, f02=» ( 8 H X h x p N P R T
0x18c02c…18c1c0 Dummy {f00=0x007b, f01=0x0190, f02=»RRR 0 B0X 3 3 3 RRRRRRR22 RRR 3 W 0X 2(2 _W x 6 F V i f v 2 k
0x18c1c0…18c354 (2, 19) Dummy {f00=0x007b, f01=0x0190, f02=» ( 2 : J F " D 3 0X 2 2 0 R22 RRRW&0X CA1!1LbI2 21 RRRRRRRRRRRRRRRRR 1L4 3 *0 J $ & ( * , "
0x18c354…18c4e8 Dummy {f00=0x007b, f01=0x0190, f02=» Q ` q ( y 8 { H } i X h x J F " D @ A P 2L0X2_ 2 0X 2 @ K2a_ 1 0XCX 3 Wb 0 0 0X 2(2 1X F?R0X y .
0x18c4e8…18c67c Dummy {f00=0x007b, f01=0x0190, f02=» & 6 F V f v J F " D 1 L 1 H 1 ^ 3 8R1X F 2L0X 2
0x18c67c…18c810 Dummy {f00=0x007b, f01=0x4140, f02=» ( 7 ) 6 i ( ? 8 J F " D 2L0X 22 1! 1 0 C DL D0X30X 3321 RRR 1 4 0 A1?R 0 C0X H B G i & & ( I 4 ( $ " @30X
0x18c810…18c9a4 Dummy {f00=0x007b, f01=0x8190, f02=» . H IDENT AFMATC TRA 11.0 82-01-14 F1 O1111 MATC 6 $$$TRAM F MATC X 6 2 SPCLRAM T:ATTFA T:DELA2 T:DSC0F T:DSC1 T:EDWR j
0x18c9a4…18cb38 Dummy {f00=0x007b, f01=0x8190, f02=» A01XF R61 (,_ @0_ W& R 4L0X 41X FW R 4 x B 6 G F I V Y f Z 0 v i t 0 v { } G J F " D @L0X 41X FW @0_8_RA0_>A01X
0x18cb38…18cccc Dummy {f00=0x007b, f01=0x818e, f02=» 0 , G < L n 0 ~ G J F " D 4L0X 41X FW6 4L0X 4 4L0X 41X F0X W 4L0X 4 4
0x18cccc…18ce60 Dummy {f00=0x007b, f01=0x8190, f02=» & * & * & & * . & N < & * J & * X & * f & t & * & 8 3 1 +P H I L I P S T E R M I N A L S Y S T E M $ P T S 6 0 0 0E
0x18ce60…18cff4 (2, 20) Dummy {f00=0x0080, f01=0x8190, f02=» * & * & & * & & * 4 & B & P & ^ & ! PHILIPS DATA SYSTEMER A/SN l $ 4 0 . ( BYDER DEM VELKOMMEN TIL DENNE OFF-LINE $ & & & &
0x18cff4…18d188 Dummy {f00=0x0080, f01=0x8190, f02=»& & * % # AKTIVERES FUNKTIONSTASTERNE:E $ : & J & Z & h PA 1: v $ & & & SK[RM OGS $ SKRIVER $
0x18d188…18d31c Dummy {f00=0x0080, f01=0x8190, f02=»$ & & & , *** GOD FORN : $ V & f JELSE ***O t $ & & Z " 9 ( & ,
0x18d31c…18d4b0 Dummy {f00=0x0080, f01=0x8190, f02=» SK[RM OG $ SKRIVER * $ B & R PERSONNR: ` $ z & 999999E-9999 " @ & STILLING:9 $ & @
0x18d4b0…18d644 Dummy {f00=0x0080, f01=0x8190, f02=»RESSE :9 $ ' & @' & G 2 & G @ POSTNR :9 N $ ' h & x 9999 " A & POSTDIST:9 $ & @" & H
0x18d644…18d7d8 Dummy {f00=0x0080, f01=0x8190, f02=» C/O ADRESSE:S $ & @ & & I 8 & F BEM[RKNINGER:S T $ r & @C & J & J & @C & K & K & @C & L & L
0x18d7d8…18d96c Dummy {f00=0x0080, f01=0x8190, f02=» 0 ! *VEJLEDNING: UDFYLD OPLYSNINGSFELTER, IDET $ !C : 2 - + " %FELTERNE AFSLUTTES MED TASTEN: ENTER.I J $ "C & & 8 4 2 # ,EFTER INDTASTNING AF OPLYSNINGER KAN V[LGES $ #C $ $ NY FUNKT
0x18d96c…18db00 Dummy {f00=0x0080, f01=0x8190, f02=»OPI. $ &C ! ' DATA-KVALITETE ! $ 'C ! : & / ! J ( PF 2: ! X $ (C ! n ) SKRIV KOPI. ! ~ $ )C ! * TEKST-KVALITET ! $ *C ! & ! & ! & ! +
0x18db00…18dc94 (2, 21) Dummy {f00=0x0082, f01=0x8190, f02=» . RETUR TIL 1. BILLEDE ! $ .C " $ & " 4 & O " B / Z " T " /9 " f ( " v 0 b " & / " , ( & 1 PHILIPS TERMINAL SYSTEM PTS 6000 " $ 1 " & + " 2 FUNKTION: "
0x18dc94…18de28 Dummy {f00=0x0082, f01=0x8190, f02=»GES VED AKTIVERING " l $ 4 # 5 AF TASTEN # * $ 5 # D & # T & # b & # p 6 PF 1: # ~ $ 6 # & # 7 UDSKRIVNING ENDELI # $ 7 # & # 8 S PAPIR BANE #
0x18de28…18dfbc Dummy {f00=0x0082, f01=0x8190, f02=» : # & $ ; UDSKRIVNING ENDELI $ $ ; $ < & $ L < S PAPIR BANE $ Z $ < $ v = DATA-KVALITETN $ $ = $ & $ & $ & $ > PF 3: $ $ > $ &
0x18dfbc…18e150 Dummy {f00=0x0082, f01=0x8190, f02=»& $ & % A PF 4: % $ A % 0 & % @ , ( & B UDSKRIVNING A4-ARK I FRONT-FEED % N $ B % ~ C DATA-KVALITET4 % $ C % & % & % & % D PF 5: % $ D %
0x18e150…18e2e4 Dummy {f00=0x0082, f01=0x818e, f02=» ( % G & & + & & & * & * & 8 & * & F & * & T & & b & * & p & & ~ & & & * & & * & & & & * & & & 8 3 1 H +P H I L I P S T E R M I N A L
0x18e2e4…18e478 Dummy {f00=0x0082, f01=0x8190, f02=» & & * ' & ' & ' $ & * ' 2 & * ' @ & ' N & * ' & * ' j & * ' x & 0 ' & 0 ' & 0 ' & ' * & $ J DETTE ER PHILIPS DATA SYSTEMER ' $ J ' & ' ' $
0x18e478…18e60c Dummy {f00=0x0082, f01=0x8190, f02=»3 7 4 / 7 5T ' z $ L ( & ( $ & + ( 2 & ( @ & ! M P T S G P 6 3 7 4 / 7 5T ( N $ M ( x & ( & 0 ( & 0 ( & ( * & $ N DER SAMTIDIG KAN ANVENDES FOR ( $ N ( O DA
0x18e60c…18e7a0 Dummy {f00=0x0082, f01=0x8190, f02=»& ( " R HIDTIL HAR DET V[RET N ) $ R ) 2 & ) B 4 0 . S (DVENDIGT AT ANVENDE FORSKELLIGE SKRIVERE ) P $ S ) & ) & ) T TIL DE 2 OPGAVER:D ) $ T ) & ) & ) &
0x18e7a0…18e934 (2, 22) Dummy {f00=0x0085, f01=0x8190, f02=»EL SKRIVEKVALITET ) p $ W * & * * & + * 8 & * F X DATABEHANDLING * T $ X * r Y : H * $ Y * & * 6 1 / Z )J SKRIVEHASTIGHED / MIDDEL SKRIVEKVALITET * $ Z * & *
0x18e934…18eac8 Dummy {f00=0x0085, f01=0x8190, f02=» )J SKRIVEKVALITET / MIDDEL SKRIVEHASTIGHED * $ ] + 4 & + D & + + R & + ` ^ TEKSTBEHANDLINGT + n $ ^ + _ : H + $ _ + & + 6 1 / ` )J SKRIVEKVALITET / MIDDEL SKRIVEHASTIGHED +
0x18eac8…18ec5c Dummy {f00=0x0085, f01=0xc0de, f02=» $ a , b OPGAVEOMR]DER , $ b , 2 & , B & , P ( # ! c I EEN OG SAMME SKRIVEENHED.P , ^ $ c , ( , W _ @ _rH 0X _ A 4 , , @ , VEKVALITET / MIDDEL SKRIVEHASTIGHED +
0x18ec5c…18edf0 Dummy {f00=0x0085, f01=0x8190, f02=» L H IDENT AFMATC TRA 11.0 82-01-15 F1 O1111 820114 NJ ARBEJDSFORMIDLING MATC T $$$TRAM d MATC v 6 2 SPCLRAM T:ATTFA T:DELA2 T:DSC0F T:DSC1 T:EDWR
0x18edf0…18ef84 Dummy {f00=0x0085, f01=0x818e, f02=»R 1 1 K@0_ A01XF R61 ,0_ @0_ W* R 4L0X 41X F@ W R B 0 B D T I d K t ] ^ 0 ` u x 0 z L J F "
0x18ef84…18f118 Dummy {f00=0x0085, f01=0x8190, f02=» K * 0 : L L l | 0 J F " D FWH R 4L0X 41X FW8 4L0X 4 4L0X
0x18f118…18f2ac Dummy {f00=0x0085, f01=0x818e, f02=» & & & * & & * 4 & * B & * P & ^ & * l & N z & * & * & * & & * & 8 3 1 +P H I L I P S T E R M I N A L S Y
0x18f2ac…18f440 Dummy {f00=0x0085, f01=0x818e, f02=» & ! & * ! & N ! & * ! . & * ! < & * ! J & ! X & * ! f & * ! t & ! & ! & ! & ! PHILIPS DATA SYSTEMER A/SN ! $ ! 4 0 . ( BYDER DEM VELKOMMEN TIL D
0x18f440…18f5d4 (2, 23) Dummy {f00=0x0085, f01=0x8190, f02=» & " FOR AT STARTE " $ " 0 & & " @ * % # AKTIVERES FUNKTIONSTASTERNE:E " N $ " | & " & " & " PA 1: " $ " & " & & " SK[RM
0x18f5d4…18f768 Dummy {f00=0x0085, f01=0x8190, f02=» " & # & & # SKRIVER # ( $ # @ & # P & # ` & # n *** GOD FORN # | $ # & # JELSE ***O # $ # & # & #
0x18f768…18f8fc Dummy {f00=0x0085, f01=0x8190, f02=» ( # FUNKTION: $ $ $ $ & & $ 4 SK[RM OG $ B $ $ SKRIVER $ l $ $ & $ PERSONNR: $ $ $ & $ 999999E-9999 $ " @ $
0x18f8fc…18fa90 Dummy {f00=0x0085, f01=0x8190, f02=» $ & @' % & F % & F % * ADRESSE :9 % 8 $ ' % R & @' % b & G % t & G % POSTNR :9 % $ ' % & % 9999 % " A % & % PO
0x18fa90…18fc24 Dummy {f00=0x0085, f01=0x8190, f02=» 99E-99B99B99 % " B & & & ( EVT. C/O ADRESSE:S & 6 $ & X & @ & h & I & z & & BEM[RKNINGER:S & $ & & @C & & J & & J & & @C & & K
0x18fc24…18fdb8 Dummy {f00=0x0085, f01=0x8190, f02=» N & & ' & * ' & * ' & & * ' 4 6 2 0 ! *VEJLEDNING: UDFYLD OPLYSNINGSFELTER, IDET ' B $ !C ' | 2 - + " %FELTERNE AFSLUTTES MED TASTEN: ENTER.I ' $ "C ' & ' & ' 8 4 2 # ,EFTER INDTASTNING
0x18fdb8…18ff4c Dummy {f00=0x0085, f01=0x8190, f02=»& ' % PF 1: ( $ %C ( " & SKRIV KOPI. ( 2 $ &C ( N ' DATA-KVALITETE ( ^ $ 'C ( | & / ( ( PF 2: ( $ (C ( ) SKRIV KOPI. ( $ )C ( * TEKST-KVALITET (
0x18ff4c…1900e0 Dummy {f00=0x0085, f01=0x8190, f02=»$ ,C ( & / ) - PF 4: ) $ -C ) 2 . RETUR TIL 1. BILLEDE ) B $ .C ) f & ) v & O ) / Z ) " /9 ) ( ) 0 j ) & / ) , ( & 1 PHILIPS TERMINAL SYSTEM PTS 60
0x1900e0…190274 (2, 24) Dummy {f00=0x003d, f01=0x8190, f02=» & ) & * : 6 4 4 .VEJLEDNING: FUNKTIONERNE V[LGES VED AKTIVERING * $ 4 * 5 AF TASTEN * l $ 5 * & * & * & * 6 PF 1: * $ 6 * & * 7 UDSKRIVNING
0x190274…190408 Dummy {f00=0x003d, f01=0x8190, f02=»ALITET * $ : + & + & + , & + : ; PF 2: + H $ ; + ^ & + n < UDSKRIVNINGT + | $ < + = ENDEL + $ = + & + > S PAPIR BANE + $ > +
0x190408…19059c Dummy {f00=0x003d, f01=0x8190, f02=» A UDSKRIVNINGE , $ A , B A4-ARK I FRONT-FEED , 0 $ B , T C TEKST-KVALITET , d $ C , & , & , & , D PF 4: , $ D , & , E UDSKRIVNINGT ,
0x19059c…190730 Dummy {f00=0x003d, f01=0x8190, f02=» , & - H PF 5: - $ H - . & - > I RETUR TIL 1. BILLEDE - L $ I - p & - & - J Z - " J9 - ( - K - & 1 - $ M - ( -
0x190730…1908c4 Dummy {f00=0x003d, f01=0x8190, f02=» - & * . & . & . $ & * . 2 & * . @ & . N & * . & . j 8 3 1 N +P H I L I P S T E R M I N A L S Y S T E MI . x $ N . O P T S 6 0 0 0E . $ O . & . &
0x1908c4…190a58 Dummy {f00=0x003d, f01=0x8190, f02=» & * . & * / & 0 / & 0 / * & 0 / 8 & / F * & $ P DETTE ER PHILIPS DATA SYSTEMER / T $ P / & ' / $ Q S NYE GENERELLE SKRIVER: / $ Q / & / & 0 / & 0 / &
0x190a58…190bec Dummy {f00=0x003d, f01=0x818e, f02=» & / * & $ S DER SAMTIDIG KAN ANVENDES FOR 0 $ S 0 < T DATABEHANDLING 0 L $ T 0 j U OG 0 z $ U 0 V TEKSTBEHANDLINGN 0 $ V 0 & 0 & 0 " W HIDTIL HAR DET V[RET N
0x190bec…190d80 Dummy {f00=0x003d, f01=0x8190, f02=» Y TIL DE 2 OPGAVER:D 1 $ Y 1 & & 1 6 & 1 D & 1 R Z DATABEHANDLING 1 ` $ Z 1 ~ [ : H 1 $ [ 1 & 1 J 1 $ 1 ] SKRIVEHASTIGHEDR 1 $
0x190d80…190f14 (2, 25) Dummy {f00=0x0046, f01=0x8190, f02=» ` TEKSTBEHANDLINGR 2 $ ` 2 $ a : H 2 4 $ a 2 H & 2 X b J 2 f $ b 2 x c SKRIVEKVALITET 2 $ c 2 d / MIDDEL 2 $ d 2 e SKRIVEHASTIGHEDR 2 $ e
0x190f14…1910a8 Dummy {f00=0x0046, f01=0x8190, f02=»f 2 g OPGAVEOMR]DER 3 $ g 3 ( & 3 8 & 3 F ( # ! h I EEN OG SAMME SKRIVEENHED.P 3 T $ h 3 & 3 & 0 3 & 0 3 & 3 i SKRIVEHASTIGHEDS 3 $ i 3 j : 3
0x1910a8…19123c Dummy {f00=0x0046, f01=0x8190, f02=» $ m 4 & 4 & 4 " n TEKSTBEHANDLINGS 4 0 $ n 4 P o : 80 4 ` $ o 4 t p TEGN PR. SEKUNDS 4 $ p 4 & 4 & 0 4 & 4 < 9 7 q 1SKRIVEBREDDE: 305 MM OG DET MAKSIM
0x19123c…1913d0 Dummy {f00=0x0046, f01=0x818e, f02=» 10 4 $ s 5 t TEGN PR. TOMME 5 $ t 5 < u 120 TEGN OG VED 5 L $ u 5 n & 5 ~ & 5 v 12 5 $ v 5 w TEGN PR. TOMME 5 $ w 5 x 144 TEGN 5 $
0x1913d0…191564 Dummy {f00=0x0046, f01=0x8190, f02=» 5 j $ z 6 { FRIKTIONSFREMF 6 $ { 6 6 & 6 F | RING, 6 T $ | 6 j & 6 z & 6 } TRAKTORFREMF 6 $ } 6 & 6 0 + ) ~ #RING OG VED ANVENDELSE AF FRONTINDFL 6 $
0x191564…1916f8 Dummy {f00=0x0046, f01=0x8190, f02=»HENHOLDSVIS 3,4,6,8 ELLER 12 6 p $ 7 $ LINIER PR. TOMME 7 4 $ 7 T & 7 d & 0 7 r & 7 > 9 7 1SKRIVEREN ER LET AT BETJENE MED HENSYN TIL F.EKS. 7 $ 7 IS[TNING AF NYT 7 $
0x1916f8…19188c Dummy {f00=0x0046, f01=0x8190, f02=» & 7 8 4 2 ,SKRIVEREN HAR FORUDEN ALMINDELIG SKRIFT OGS] 8 $ 8 J MULIGHED FOR AT 8 Z $ 8 z & 8 & 8 KUNNE ANVENDES FOR 8 $ 8 UDSKRIVNINGD 8 $ 8
0x19188c…191a20 Dummy {f00=0x0046, f01=0xc102, f02=» ST 8 $ 9 & 9 RRELSER SAMT LOGOL 9 * $ 9 L & ' 9 S. 9 j $ 9 | & 9 & 9 & 9 ( 9 & " 1X F0X W _ @ _vH 0X _ A 4 9 9 @ 9
0x191a20…191bb4 (2, 26) Dummy {f00=0x0051, f01=0xc130, f02=» OG TAL I FORSKELLIGE STORE $ ( & 8 & F ST T $ h & x RRELSER SAMT LOGOL $ & ' S. $ ( " 0X W _ @ _vH
0x191bb4…191d48 Dummy {f00=0x0051, f01=0x0190, f02=» L H IDENT AFMATC TRA 11.0 - - F1 O1111 820114 NJ ARBEJDSFORMIDLING MATC T $$$TRAM d MATC v 6 2 SPCLRAM T:ATTFA T:DELA T:DSC0F T:DSC1 T:EDWR
0x191d48…191edc Dummy {f00=0x0051, f01=0x018e, f02=»R 1 1 K@0_ A01XF R61 ,0_ @0_ W* R 4L0X 41X F@ W R B ' B D T I d K t ] ^ 0 ` u 0 x ' z K J F "
0x191edc…192070 Dummy {f00=0x0051, f01=0x0190, f02=» ' * : 0 J Z l | K + y
0x192070…192204 Dummy {f00=0x0051, f01=0x0190, f02=» ' " L 2 +' B T d y t ' 0 J F
0x192204…192398 Dummy {f00=0x0051, f01=0x0190, f02=» + * y : J ! l # | % + 4 & & & & &
0x192398…19252c Dummy {f00=0x0051, f01=0x0190, f02=» & & * & 8 3 1 +P H I L I P S T E R M I N A L S Y S T E MX * $ f P T S 6 0 0 0E v $ & N & * & * & * & & * & N
0x19252c…1926c0 Dummy {f00=0x0051, f01=0x018e, f02=»PHILIPS DATA SYSTEMER A/SN $ " 4 0 . ( BYDER DEM VELKOMMEN TIL DENNE OFF-LINE 2 $ j & & z & & & AF PTS 6000. $ & & FOR AT STARTE
0x1926c0…192854 (2, 27) Dummy {f00=0x0051, f01=0x018e, f02=» PA 1: $ & * & & 8 SK[RM OGS F $ ` SKRIVER p $ & & & PA 2: $ & & &
0x192854…1929e8 Dummy {f00=0x0051, f01=0x0190, f02=» JELSE ***O $ & . & < Z N " 9 ` ( p | & , ( & PHILIPS TERMINAL SYSTEM PTS 6000 $ & ( FUNKTION: $
0x1929e8…192b7c Dummy {f00=0x0051, f01=0x0190, f02=»: $ & 999999E-9999 , " @ H & X STILLING:9 f $ & @ & E & E NAVN :9 $ & @' & F
0x192b7c…192d10 Dummy {f00=0x0051, f01=0x018e, f02=» & 9999 " A . & > POSTDIST:9 L $ f & @" v & H & > TLF: $ " & B 99E-99B99B99 " B
0x192d10…192ea4 Dummy {f00=0x0051, f01=0x0190, f02=» $ & @C & J $ & J 2 & @C @ & K R & K ` & @C n & L & L & @C & M & M & @C & N & & *
0x192ea4…193038 Dummy {f00=0x0051, f01=0x0190, f02=»N: ENTER.I l $ "C & " & 0 8 4 2 # ,EFTER INDTASTNING AF OPLYSNINGER KAN V[LGES > $ #C z $ $ NY FUNKTION MED TASTEN:L $ $C & & & % PF 1: $
0x193038…1931cc Dummy {f00=0x0051, f01=0x0190, f02=» $ (C ) SKRIV KOPI. $ )C , * TEKST-KVALITET < $ *C Z & j & x & + PF 3: $ +C , INDTAST OPLYSNINGER $ ,C & / - PF 4
0x1931cc…193360 Dummy {f00=0x0051, f01=0x018e, f02=» ( 0 j & / $ , ( & 1 PHILIPS TERMINAL SYSTEM PTS 6000 2 $ 1 b & + r 2 FUNKTION: $ 2 & & 3 SKRIVER $ 3 & & : 6 4 4 .VE
0x193360…1934f4 (2, 28) Dummy {f00=0x0094, f01=0x0190, f02=» & 6 PF 1: $ 6 ( & 8 7 UDSKRIVNING F $ 7 b 8 ENDEL r $ 8 & 9 S PAPIR BANE $ 9 : TEKST-KVALITET $ : &
0x1934f4…193688 Dummy {f00=0x0094, f01=0x0190, f02=» ENDEL $ = & > S PAPIR BANE . $ > J ? DATA-KVALITETT Z $ ? x & & & @ PF 3: $ @ & A UDSKRIVNINGE $
0x193688…19381c Dummy {f00=0x0094, f01=0x0190, f02=» & D PF 4: $ D $ & 4 E UDSKRIVNINGT B $ E ^ F A4-ARK I FRONT-FEED n $ F G DATA-KVALITETN $ G & & & H PF 5:
0x19381c…1939b0 Dummy {f00=0x0094, f01=0x018e, f02=» " J9 ( K & 1 0 $ M > ( N L Z & + j $ M x ( M & & * & * & * & & * &
0x1939b0…193b44 Dummy {f00=0x0094, f01=0x0190, f02=» Z $ N O P T S 6 0 0 0E $ O : & J & * X & * f & t & * & & & * & * & & * & * & * & 0
0x193b44…193cd8 Dummy {f00=0x0094, f01=0x0190, f02=»E GENERELLE SKRIVER: $ Q & , & 0 : & 0 H & V & d & ! R P T S G P 6 3 7 4 / 7 5T r $ R & & & 0 & 0 & * & $ S DER SAMTIDIG K
0x193cd8…193e6c Dummy {f00=0x0094, f01=0x0190, f02=»EHANDLINGN $ V & " & 0 " W HIDTIL HAR DET V[RET N > $ W d & t 4 0 . X (DVENDIGT AT ANVENDE FORSKELLIGE SKRIVERE $ X & & Y TIL DE 2 OPGAVER:D
0x193e6c…194000 Dummy {f00=0x0094, f01=0x0190, f02=» & J $ $ ] SKRIVEHASTIGHEDR 4 $ ] T ^ / MIDDEL d $ ^ ~ _ SKRIVEKVALITET $ _ & & 0 & ` TEKSTBEHANDLINGR
0x194000…194194 (2, 29) Dummy {f00=0x0094, f01=0x0190, f02=» d / MIDDEL $ d " e SKRIVEHASTIGHEDR 2 $ e R & b & 0 p & 0 ~ & > 9 7 f 1PHILIPS GENERELLE SKRIVER GP 6374/75 D[KKER BEGGE $ f g OPGAVEOMR]DER
0x194194…194328 Dummy {f00=0x0094, f01=0x018e, f02=»& 0 & i SKRIVEHASTIGHEDS $ i : j : J $ j k DATABEHANDLING l $ k l : OP TIL 300 $ l m TEGN PR. SEKUNDS $ m & &
0x194328…1944bc Dummy {f00=0x0094, f01=0x0190, f02=» & & 0 & $ < 9 7 q 1SKRIVEBREDDE: 305 MM OG DET MAKSIMALE ANTAL TEGN 2 $ q r & r PR. LINIE ER VED $ r & & s 10 $ s t
0x1944bc…194650 Dummy {f00=0x0094, f01=0x0190, f02=» $ v w TEGN PR. TOMME $ w 0 x 144 TEGN @ $ x X & h ( v y 3 & 0 & z UDSKRIVNINGO $ z ( $ " { KAN FORETAGES VED HJ[LP AF
0x194650…1947e4 Dummy {f00=0x0094, f01=0x0190, f02=» ~ TRAKTORFREMF $ ~ & 0 0 + ) #RING OG VED ANVENDELSE AF FRONTINDFL > $ r & RING $ & & 0 & @ = ; 5LINIEAFSTANDEN KAN V[RE HENHOLDSVI
0x1947e4…194978 Dummy {f00=0x0094, f01=0x0190, f02=» 1SKRIVEREN ER LET AT BETJENE MED HENSYN TIL F.EKS. $ > IS[TNING AF NYT N $ n & ~ & 4 0 . (PAPIR BANE SAMT UDSKIFTNING AF FARVEB]ND $ & ( #
0x194978…194b0c Dummy {f00=0x0094, f01=0x018e, f02=» $ & & " KUNNE ANVENDES FOR 0 $ R UDSKRIVNINGD b $ ~ AF BOGSTAVERS $ ( $ " OG TAL I FORSKELLIGE STORE $ &
0x194b0c…194ca0 Dummy {f00=0x0094, f01=0x40ae, f02=» $ & & & & 4 ( B F B @ 4L0X 41X F 4L0X 41X F 4L0X 41X F0X W ?R@ _ H 0X _ A 4 N < @
0x194ca0…194e34 (2, 30) Dummy {f00=0x0094, f01=0x0190, f02=» L H IDENT AFMATG TRA 11.0 82-01-18 F1 O1111 820114 NJ ARBEJDSFORMIDLING MATC T $$$TRAM d MATC v > : SPCLRAM T:ATTFA T:DELA2 T:DSC0F T:DSC1 T:EDWR T:ERASE
0x194e34…194fc8 Dummy {f00=0x0094, f01=0x0190, f02=» A01XF R 1 1 K@0_ A01XF R61 ,0_ @0_ W* R 4L0X 41X F@ W R B ' J D I l K | ] ^ 2 ` u Z x ' z M
0x194fc8…19515c Dummy {f00=0x0094, f01=0x018e, f02=» { ' 0 @ Z P ` r M + {
0x19515c…1952f0 Dummy {f00=0x0094, f01=0x0190, f02=» ( 8 J ' Z l | N .' { '
0x1952f0…195484 Dummy {f00=0x0094, f01=0x0190, f02=» Z 2 B R b t $ & + - N 0 . 2 7 9 {
0x195484…195618 Dummy {f00=0x0094, f01=0x018e, f02=» G L N * U : Y Z J ^ Z j & z 6 2 0 *IS[T PAPIR I FRONT-FEED OG TAST START/STOP $ ( & &
0x195618…1957ac Dummy {f00=0x0094, f01=0x0190, f02=» & * & * & $ & * 2 & @ 8 3 1 +P H I L I P S T E R M I N A L S Y S T E MF N $ P T S 6 0 0 0E $ & N & * & * & * &
0x1957ac…195940 Dummy {f00=0x0094, f01=0x0190, f02=» & & & ! PHILIPS DATA SYSTEMER A/SN $ F 4 0 . ( BYDER DEM VELKOMMEN TIL DENNE OFF-LINE V $ & & & & & AF PTS 6000. $ & &
0x195940…195ad4 (2, 31) Dummy {f00=0x0094, f01=0x018e, f02=» & & PA 1: & $ < & L & & Z SK[RM OGS h $ SKRIVER $ & & & PA 2: $
0x195ad4…195c68 Dummy {f00=0x0094, f01=0x0190, f02=» z $ & JELSE ***O & $ @ & P & ^ Z p " 9 ( & , ( & PHILIPS TERMINAL SYSTEM PTS 6000 $ & (
0x195c68…195dfc Dummy {f00=0x0094, f01=0x0190, f02=» & PERSONNR: $ , & < 999999E-9999 N " @ j & z STILLING:9 $ & @ & E & E NAVN :9 $
0x195dfc…195f90 Dummy {f00=0x0094, f01=0x018e, f02=» POSTNR :9 $ ' & * 9999 < " A P & ` POSTDIST:9 n $ & @" & H & > TLF: $ " & B 99E-
0x195f90…196124 Dummy {f00=0x0094, f01=0x0190, f02=» " BEM[RKNINGER:S $ " & & @C 6 & J H & J V & @C d & K v & K & @C & L & L & @C & M & M & @C & N
0x196124…1962b8 Dummy {f00=0x0094, f01=0x0190, f02=» + $ %FELTERNE AFSLUTTES MED TASTEN: ENTER.I $ $C 6 & F & T 8 4 2 % ,EFTER INDTASTNING AF OPLYSNINGER KAN V[LGES b $ %C $ & NY FUNKTION MED TASTEN:L $ &C & & &
0x1962b8…19644c Dummy {f00=0x0094, f01=0x0190, f02=» & / * PF 2: $ *C $ + SKRIV KOPI. 4 $ +C P , TEKST-KVALITET ` $ ,C ~ & & & - PF 3: $ -C . INDTAST OPLYSNINGER $
0x19644c…1965e0 Dummy {f00=0x0094, f01=0x0190, f02=» 1 Z " 19 ( , 2 j 8 & 1 H , ( & 3 PHILIPS TERMINAL SYSTEM PTS 6000 V $ 3 & + 4 FUNKTION: $ 4 & & 5 SKRIVER $ 5 &
0x1965e0…196774 (2, 32) Dummy {f00=0x0056, f01=0x0190, f02=»7 & & & & 8 PF 1: 4 $ 8 J & Z 9 UDSKRIVNING h $ 9 : ENDEL $ : & ; S PAPIR BANE $ ; < TEKST-KVALIT
0x196774…196908 Dummy {f00=0x0056, f01=0x018e, f02=»INGT $ > ? ENDEL $ ? 2 & B @ S PAPIR BANE P $ @ l A DATA-KVALITETT | $ A & & & B PF 3: $ B &
0x196908…196a9c Dummy {f00=0x0056, f01=0x0190, f02=» & & & $ F PF 4: 2 $ F H & X G UDSKRIVNINGT f $ G H A4-ARK I FRONT-FEED $ H I DATA-KVALITETN $ I & &
0x196a9c…196c30 Dummy {f00=0x0056, f01=0x0190, f02=» & L Z " L9 ( ( 8 M D & 1 T $ O b ( r N ~ & + $ O ( O & & * & * & * &
0x196c30…196dc4 Dummy {f00=0x0056, f01=0x0190, f02=»P S T E R M I N A L S Y S T E MI ~ $ P * Q P T S 6 0 0 0E : $ Q & l & * z & * & & * & & & * & * & & *
0x196dc4…196f58 Dummy {f00=0x0056, f01=0x0190, f02=» & ' $ S S NYE GENERELLE SKRIVER: $ S > & N & 0 & 0 j & x & & ! T P T S G P 6 3 7 4 / 7 5T $ T & & & 0 & 0
0x196f58…1970ec Dummy {f00=0x0056, f01=0x018e, f02=» $ W X TEKSTBEHANDLINGN $ X 4 & D & R " Y HIDTIL HAR DET V[RET N ` $ Y & 4 0 . Z (DVENDIGT AT ANVENDE FORSKELLIGE SKRIVERE $ Z & &
0x1970ec…197280 Dummy {f00=0x0056, f01=0x0190, f02=» ] : H $ ] & ( ^ J 6 $ ^ H _ SKRIVEHASTIGHEDR X $ _ x ` / MIDDEL $ ` a SKRIVEKVALITET $ a & & 0 &
0x197280…197414 (2, 33) Dummy {f00=0x0056, f01=0x018e, f02=» e SKRIVEKVALITET $ e f / MIDDEL , $ f F g SKRIVEHASTIGHEDR V $ g v & & 0 & 0 & > 9 7 h 1PHILIPS GENERELLE SKRIVER GP 6374/75 D[KKER BEGGE $ h
0x197414…1975a8 Dummy {f00=0x0056, f01=0x0190, f02=» & & 0 & 0 $ & 2 k SKRIVEHASTIGHEDS @ $ k ` l : p $ l m DATABEHANDLING $ m n : OP TIL 300 $ n o TEGN PR. SEKUNDS
0x1975a8…19773c Dummy {f00=0x0056, f01=0x0190, f02=» r TEGN PR. SEKUNDS $ r & , & 0 : & H < 9 7 s 1SKRIVEBREDDE: 305 MM OG DET MAKSIMALE ANTAL TEGN V $ s & t PR. LINIE ER VED $ t & & u
0x19773c…1978d0 Dummy {f00=0x0056, f01=0x0190, f02=» & x 12 $ x $ y TEGN PR. TOMME 4 $ y T z 144 TEGN d $ z | & ( { 3 & 0 & | UDSKRIVNINGO $ | ( $ " } K
0x1978d0…197a64 Dummy {f00=0x0056, f01=0x0190, f02=» & & TRAKTORFREMF ( $ D & T 0 + ) #RING OG VED ANVENDELSE AF FRONTINDFL b $ & RING $ & & 0 & @ = ;
0x197a64…197bf8 Dummy {f00=0x0056, f01=0x0190, f02=» & 0 & > 9 7 1SKRIVEREN ER LET AT BETJENE MED HENSYN TIL F.EKS. $ b IS[TNING AF NYT r $ & & 4 0 . (PAPIR BANE SAMT UDSKIFTNING AF FARVEB]ND $
0x197bf8…197d8c Dummy {f00=0x0056, f01=0x0190, f02=» MULIGHED FOR AT $ ( & 8 & F KUNNE ANVENDES FOR T $ v UDSKRIVNINGD $ AF BOGSTAVERS $ ( $ " OG TAL I FORSKELLIGE STORE
0x197d8c…197f20 Dummy {f00=0x0056, f01=0x40ba, f02=» & ' S. $ * & : & H & V ( d 0 , * @ 41X F0X 2L0X 22W ?R@ ?RH 0X _ A 4 p f @ AF BOGSTAVERS $ ( $ " OG TAL I FORSKELLIGE STORE
0x197f20…1980b4 (2, 34) Dummy {f00=0x0057, f01=0x2008, f02=» ~ L = KMD15 DATE = 82 01 08 6876PACK NBR = 0001 @ @ ?
0x1980b4…198248 Dummy {f00=0x0057, f01=0x018e, f02=»,2 P FILLR ' ',3 P FCOPY ='UDSKRIVNING' * P FCOPY =' KAN FORETAGES VED HJ[LP AF ' < P FCOPY ='FRIKTIONSFREMF' j P FILLR X'5C',1 P FCOPY ='RING,' P FEOR P FILLR ' ',5 P FCOPY ='TRAKTORFREMF' P FILLR X'5C',1
0x198248…1983dc Dummy {f00=0x0057, f01=0x018e, f02=» P FILLR ' ',3 D P FCOPY ='LINIEAFSTANDEN KAN V[RE HENHOLDSVIS 3,4,6,8 ELLER 12 ' P FCOPY ='LINIER PR. TOMME' ` P FEOR P FILLR '0',2 P FILLR ' ',3 @ P FCOPY ='SKRIVEREN ER LET AT BETJENE MED HENSYN TIL F.EKS.' P FCOPY =' IS
0x1983dc…198570 Dummy {f00=0x0057, f01=0x0190, f02=» P ! P ! P ! PBILLED8 FRMT ! P FILLR '0',2 ! 4 P FILLR ' ',3 ! H : P FCOPY ='SKRIVEREN HAR FORUDEN ALMINDELIG SKRIFT OGS]' ! P FCOPY =' MULIGHED FOR AT ' ! P FEOR ! P FILLR ' ',5 ! " P FCOPY ='KUNNE ANVENDES FOR ' ! P F
0x198570…198704 Dummy {f00=0x0057, f01=0x40c0, f02=» P FCOPY ='ST' " P FILLR X'5C',1 " P FCOPY ='RRELSER SAMT LOGO' " . P FILLR X'27',1 " R P FCOPY ='S.' " h P FEOR " | P FNL " P FNL " P FMEND " P END " @ " EOR ! P FILLR ' ',5 ! " P FCOPY ='KUNNE ANVENDES FOR ' ! P F
0x198704…198898 Dummy {f00=0x0057, f01=0x2008, f02=» # @ FNL FTAB 14 $ FCOPY ='PF 4:' 4 0 + FCOPY ='UDSKRIVNING A4-ARK I FRONT-FEED ' L FCOPY ='DATA-KVALITET' FNL FNL FTAB 14 FCOPY ='PF 5:' $ FCOPY =' RETUR TIL 1. BILLEDE'
0x198898…198a2c Dummy {f00=0x0057, f01=0x0190, f02=» ! )P9H # T &W &" :I : @ : P & _ &X _ : : : : B2 < : { : Bj B* PX 9 _ Bj [ Bj Z : R" P $ 1T Y W 5 _$ : Bj $ R W R # P W
0x198a2c…198bc0 Dummy {f00=0x0057, f01=0x0190, f02=» _. : 6 : 1D 1D jP kT T : & 9! " : $ : B2 0 $ :
0x198bc0…198d54 (2, 35) Dummy {f00=0x0066, f01=0x0190, f02=» ( 2 : J F " D 3 0X 2 2 0 R22 RRRW&0X CA1!1LbI2 21 RRRRRRRRRRRRRRRRR 1L4 3 *0 J $ & ( * , "
0x198d54…198ee8 Dummy {f00=0x0066, f01=0x000c, f02=» H P X `
0x198ee8…19907c Dummy {f00=0x0066, f01=0x0190, f02=».T .B| CR ` ~ @ P ~ 0 1 T0 B b 6T0 0 *
0x19907c…199210 Dummy {f00=0x0066, f01=0x0190, f02=» AFPR VNING 0 0 " . 0 0 X
0x199210…1993a4 Dummy {f00=0x0066, f01=0x0190, f02=»
0x1993a4…199538 Dummy {f00=0x0066, f01=0x0190, f02=» 0 H V W ' u ' " C C G C C C .T l P | X T ` .P A01 1 1 K@0_ A01 61 ,0_ @0_ W* 4 0 41 @ W 4 0 41 @ W @0_<_VA0_BA01 1 1 1 61 (P 4 0 41 4 0 41 4 0 41 W
0x199538…1996cc Dummy {f00=0x0066, f01=0x0190, f02=» 0 41 4 0 41 0 W ? @ _ H 0 _ A 4 4 4 4 4 A2 @24 1 1 8 0 I0 61 %0 0 W 0 0 W 61 0 0 W 0 0 0 0 0 3R 0 32P R 32_ 0 0 C 013: *1 (1 0 T 21 0 B0 3 3 3 22 3 W 0 2(2 _W 3 0 2 2 0 22 W&0 CA
0x1996cc…199860 Dummy {f00=0x0066, f01=0x0190, f02=»2_ 2 0 2 @ K2a_ 1 0 CX 3 Wb 0 0 0 2(2 1 ? 0 C 013R4*1 .(0 A1? 3 0 1 0 12S 0 P 0 Q 1 4 0 21W _ 1 O 1 L 1 H 1 ^ 3 8 1 2 0 21 30 2 0 D 21 1 :21 1! 2 0 22 1! 1 0 C D D0 30 3321 1 4 0 A1? 0 C0 30 33? 0 84 4 4
0x199860…1999f4 (2, 36) Dummy {f00=0x008a, f01=0x0190, f02=» $ $ _. H P, H @ 4 U Yt $ $ _. K Y K t !TTX @ @ @ ! P @ 8 8 8 3 Z U Yt . !TTT t_ !CCP R K Y W H P0 A H A H @ @ < E6 @
0x1999f4…199b88 Dummy {f00=0x008a, f01=0x000a, f02=» @
0x199b88…199d1c Dummy {f00=0x008a, f01=0x40a0, f02=» IDENT S:GTAB S:GTAB " S:GTAB 4 P:MTAB H P:END Z CR j @ T:FMT B y P:END @ * & ( * + )
0x199d1c…199eb0 Dummy {f00=0x008a, f01=0x0190, f02=» L H IDENT T:AT00 TRA 11.0 - - F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN T:AT00 T T:AT00A f > : T:DT00 D:CB10 C:CB10 D:CB20 C:CB20 D:TB10 Z:TB10 z D:TB20A Z:TB20A * & * &
0x199eb0…19a044 Dummy {f00=0x008a, f01=0x40cc, f02=» y * & @ P ~ , , ( 0 1 T0 Z ( $ @ 0A * & * &
0x19a044…19a1d8 Dummy {f00=0x008a, f01=0x40e4, f02=» L H IDENT T:DT00 TRA 11.0 - - F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN T:DT00 T T:DT00D f MATC0 z * & 6T0 0 * * @ " @ * &
0x19a1d8…19a36c Dummy {f00=0x008a, f01=0x40b8, f02=» L H IDENT T:ATAB TRA 11.0 - - F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN T:ATAB T T:ATABA f T:AT00 z @ :A @ @ " @ * &
0x19a36c…19a500 Dummy {f00=0x008a, f01=0x40a2, f02=» L H IDENT U:BTAB TRA 11.0 - - F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN U:BTAB T U:BTABB f z :B @ :A @ @ " @ * &
0x19a500…19a694 (2, 37) Opaque[0x194]
0x19a694…19a828 # DirEnt {nam=»AFMATG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x19a694…19a828 IdxSect {
0x19a694…19a828 f00 = 0x001c // 0x19a694 @0x0
0x19a694…19a828 f01 = 0x000a // 0x19a696 @0x2
0x19a694…19a828 gno = [ // 0x19a698 @0x4
0x19a694…19a828 [0x00]: C0x001c.0x1.0
0x19a694…19a828 [0x01]: C0x0027.0x3.0
0x19a694…19a828 [0x02]: C0x0028.0x1.0
0x19a694…19a828 [0x03]: C0x002d.0x0.0
0x19a694…19a828 [0x04]: C0x0046.0x1.0
0x19a694…19a828 ]
0x19a694…19a828 }
0x19a828…19a9bc Dummy {f00=0x001c, f01=0x0190, f02=» . P IDENT AFMATG 820114 NJ ARBEJDSFORMIDLING P DDUM SPDDIV 6 P PDIV J P ENTRY MATC X P EXT SPCLRA l P PSETPPAR EQU X'0D' P PMATC PDISP1 P SET SPPROMPT P ATTFMT BILLED1 PDISP1A P PERF SP
0x19a9bc…19ab50 Dummy {f00=0x001c, f01=0x0190, f02=»************************************************************* P F PDISP2 N P SET SPPROMPT P ATTFMT BILLED2 r PDISP200 P PERF SPCLRA 4 P IB SPBINW2,DISP201,DISP202,DISP203,DISP204, C P DISP205,DISP206,DISP207 P
0x19ab50…19ace4 Dummy {f00=0x001c, f01=0x0190, f02=» P PERF WAITGP P MOVE TBIN1,=X'1B17' P DSC SPDSPRT,SETPPAR,TBIN1 4 P EDWRT SPDSPRT,BILLED2 V P CLEAR PRBUSY t P B DISP208 PDISP205 P PERF WAITGP & P MOVE TBIN1,=X'1B27' HIGH QUALITY P DSC SPDSPRT,SETPPAR,TBIN1
0x19ace4…19ae78 Dummy {f00=0x001c, f01=0x018e, f02=»207 P B DISP1 PDISP208 P SET SPPROMPT , P B DISP200 B P T P P*************************************************************************** P PDISP3 P SET SPPROMPT P ATTFMT BILLED3 P PERF SPCLRA P
0x19ae78…19b00c Dummy {f00=0x001c, f01=0x0190, f02=» P PTSTGP1 P PERF WAITGP . P MOVE TBIN1,=X'1B27' 10 PITCH, HIGHQUALITY . P DSC SPDSPRT,SETPPAR,TBIN1 ` P EDWRT SPDSPRT,BILLED4 0 P MOVE TBIN1,=X'2B27' 12 PITCH, HIGH QUALITY P DSC SPDSPRT,SETPPAR,TBIN1 P EDWRT SPDSPRT,BIL
0x19b00c…19b1a0 Dummy {f00=0x001c, f01=0x0190, f02=»9 P PTSTGP2 P PERF WAITGP . P MOVE TBIN1,=X'1B17' 10 PITCH LOW QUALITY 4 P DSC SPDSPRT,SETPPAR,TBIN1 f P EDWRT SPDSPRT,BILLED4 P MOVE TBIN1,=X'2B17' P DSC SPDSPRT,SETPPAR,TBIN1 P EDWRT SPDSPRT,BILLED7 P MOVE
0x19b1a0…19b334 (2, 38) Dummy {f00=0x0027, f01=0x0190, f02=»GP , P MOVE SPBINW3,=X'1801' LINE 24, POS. 1 . P DSC1 SPDSSCRN,6,SPBINW3 POSITION CURSOR < , P EDWRT SPDSSCRN,MESS1 OPERATOR MESSAGE n P MOVE TBIN1,=X'0101' & P DSC SPDSFF,6,TBIN1 GRASP+POSITION P MOVE TBIN1,=X'1E27' P DSC SPD
0x19b334…19b4c8 Dummy {f00=0x0027, f01=0x0190, f02=»ED7 ~ P MOVE TBIN1,=X'1E27' P DSC SPDSFF,SETPPAR,TBIN1 ( P EDWRT SPDSFF,BILLED8 J P DSC SPDSFF,1 RELEASE h " P MOVE SPBINW3,=W'24' LINE 24 , P ERASE 0,SPBINW3,SPBINW3 ERASE LINE 24 P B TSTGP9 P PTSTGP4 P PER
0x19b4c8…19b65c Dummy {f00=0x0027, f01=0x018e, f02=»OPERATOR MESSAGE z P MOVE TBIN1,=X'0101' & P DSC SPDSFF,6,TBIN1 GRASP+POSITION 6 P MOVE TBIN1,=X'1E17' ` P DSC SPDSFF,SETPPAR,TBIN1 | P EDWRT SPDSFF,BILLED5 P MOVE TBIN1,=X'2E17' P DSC SPDSFF,SETPPAR,TBIN1 P EDWRT SPDSFF,
0x19b65c…19b7f0 Dummy {f00=0x0027, f01=0x018e, f02=» " P MOVE SPBINW3,=W'24' LINE 24 , P ERASE 0,SPBINW3,SPBINW3 ERASE LINE 24 * P B TSTGP9 Z P l PTSTGP5 t P B DISP1 P PTSTGP9 P CLEAR PRBUSY P B DISP3 P P P**************************************************
0x19b7f0…19b984 Dummy {f00=0x0027, f01=0x0190, f02=» PWAIT20 P SET PRBUSY P RET & P PEND 2 P @ P P*************************************************************************** H P PMESS1 FRMT P FSL 8 P FCOPY ='IS[T PAPIR I FRONT-FEED OG TAST START/STOP' P FMEND
0x19b984…19bb18 Dummy {f00=0x0027, f01=0x0190, f02=» FNL P FHIGH P FTAB 4 P FILLR '*',1 * P FTAB 78 > P FILLR '*',1 N P FNL b P FHIGH n P FTAB 4 | P FILLR '*',1 P FTAB 11 : P FCOPY =C'P H I L I P S T E R M I N A L S Y S T E M' P FCOPY =C' P T S 6 0 0
0x19bb18…19bcac Dummy {f00=0x0027, f01=0x018e, f02=» P FNL P FHIGH P FTAB 4 " P FILLR '*',40 2 P FILLR '*',35 H P FNL 2 ^ P FLOW l P FTAB 4 z ( P FCOPY =C'PHILIPS DATA SYSTEMER A/S' 8 P FCOPY =C' BYDER DEM VELKOMMEN TIL DENNE OFF-LINE ' P FCOPY TEST P F
0x19bcac…19be40 Dummy {f00=0x0027, f01=0x0190, f02=» , P FCOPY =C' AKTIVERES FUNKTIONSTASTERNE:' P FNL 3 8 P FHIGH F P FTAB 14 T P FCOPY ='PA 1:' d P FILLR ' ',2 | P FCOPY TEST P FCOPY =C' SK[RM OG' P FCOPY =C' SKRIVER' P FNL 2 P FHIGH P FTAB 14 P
0x19be40…19bfd4 (2, 39) Dummy {f00=0x0028, f01=0x0190, f02=» FCOPY =C'*** GOD FORN' P FILLR X'5C',1 P FCOPY =C'JELSE ***' 6 P FNL R P FKI 1 ^ P FMEL 'Z',BCDWK l P FMEND P P P*************************************************************************** P PBILLED2 FRMT
0x19bfd4…19c168 Dummy {f00=0x0028, f01=0x0190, f02=» =' SK[RM OG' P FCOPY =' SKRIVER' P FNL 2 0 P FCOPY =C'PERSONNR: ' > $ P FKI 11,ME,MINL=10,MAXL=10,REWRT P FMEL '999999E-9999',TCPRNR P FNL 2 P FCOPY ='STILLING:' P FKI 11,ALPHA,MAXL=30 P FCOPY TSTILLNG P
0x19c168…19c2fc Dummy {f00=0x0028, f01=0x018e, f02=»1,ALPHA,MAXL=39 P FCOPY TADRES P FNL . P FCOPY ='POSTNR :' : P FKI 11,MINL=4,MAXL=4,ME V P FMEL '9999',TPOSTNR v P FILLR ' ',2 P FCOPY ='POSTDIST:' P FKI 26,ALPHA,MAXL=34 P FCOPY TPOSTD P FTAB 62 P F
0x19c2fc…19c490 Dummy {f00=0x0028, f01=0x018e, f02=» r P FKI 19,MAXL=31,ALPHA P FCOPY TCOADRES & P FNL 2 > P FCOPY =C'BEM[RKNINGER:' L P FKI 14,MAXL=67,ALPHA l P FCOPY TBEM1 P FNL P FKI 14,MAXL=67,ALPHA P FCOPY TBEM2 P FNL P FKI 14,MAXL=67,ALPHA P F
0x19c490…19c624 Dummy {f00=0x0028, f01=0x0190, f02=» P FNL 2 P FILLR '*',40 P FILLR '*',40 , P FNL B 8 P FCOPY ='VEJLEDNING: UDFYLD OPLYSNINGSFELTER, IDET ' N 4 P FCOPY ='FELTERNE AFSLUTTES MED TASTEN: ENTER.' P FNL P FTAB 13 < P FCOPY =C'EFTER INDTASTNING AF OPLYSNINGER
0x19c624…19c7b8 Dummy {f00=0x0028, f01=0x0190, f02=»PY =' SKRIV KOPI. ' P FCOPY ='DATA-KVALITET' P FTAB 47 < P FCOPY ='PF 2:' L P FCOPY =' SKRIV KOPI. ' d P FCOPY ='TEKST-KVALITET' P FNL P FHIGH P FTAB 13 P FCOPY ='PF 3:' " P FCOPY =' INDTAST OPLYSNINGER'
0x19c7b8…19c94c Dummy {f00=0x0028, f01=0x0190, f02=»MEND P P P*************************************************************************** P h PBILLED3 FRMT p P FSL . P FCOPY ='PHILIPS TERMINAL SYSTEM PTS 6000' P FTAB 43 P FCOPY ='FUNKTION: ' P FCOPY TEST P FCOPY
0x19c94c…19cae0 Dummy {f00=0x0028, f01=0x0190, f02=» P FNL 2 P FHIGH P FTAB 12 P FCOPY ='PF 1:' 0 P FILLR ' ',1 H P FCOPY ='UDSKRIVNING' P FCOPY =' ENDEL' z P FILLR X'5C',1 P FCOPY ='S PAPIR BANE ' P FCOPY ='TEKST-KVALITET' P FNL 2 P FHIGH P FTA
0x19cae0…19cc74 (2, 40) Dummy {f00=0x002d, f01=0x0190, f02=»PY ='S PAPIR BANE ' P FCOPY ='DATA-KVALITET' P FNL 2 < P FHIGH J P FTAB 12 X P FCOPY ='PF 3:' h P FILLR ' ',1 P FCOPY ='UDSKRIVNING' $ P FCOPY =' A4-ARK I FRONT-FEED ' P FCOPY ='TEKST-KVALITET' P FNL 2 P
0x19cc74…19ce08 Dummy {f00=0x002d, f01=0x018e, f02=» p P FCOPY ='DATA-KVALITET' P FNL 2 ( P FHIGH 6 P FTAB 12 D P FCOPY ='PF 5:' T P FILLR ' ',1 l " P FCOPY ='RETUR TIL 1. BILLEDE' P FNL P FKI 1 P FMEL 'Z',BCDWK P FMEND P P P**************************
0x19ce08…19cf9c Dummy {f00=0x002d, f01=0x0190, f02=» P FMEND P P P " PBILLED5 FRMT * P FILLR '+',2 > P FLINK BILLED6 R P FMEND h P v P ~ P PBILLED6 FRMT P FILLR ' ',3 P FILLR '*',40 P FILLR '*',34 P FEOR P FILLR ' ',5 P FIL
0x19cf9c…19d130 Dummy {f00=0x002d, f01=0x0190, f02=»ILLR ' ',6 : P FCOPY ='P H I L I P S T E R M I N A L S Y S T E M' P FCOPY =' P T S 6 0 0 0' P P FILLR ' ',6 t P FILLR '*',1 P FEOR P FILLR ' ',5 P FILLR '*',1 P FILLR ' ',36 P FILLR ' ',36 P FILLR '*'
0x19d130…19d2c4 Dummy {f00=0x002d, f01=0x0190, f02=» FILLR '0',2 P FILLR ' ',3 , P FCOPY ='DETTE ER PHILIPS DATA SYSTEMER' ( P FILLR X'27',1 SINGLE QUOTE X & P FCOPY ='S NYE GENERELLE SKRIVER:' | P FEOR P FILLR '0',2 P FEOR P FILLR ' ',22 P FILLR X'12',1 ( P FCOPY
0x19d2c4…19d458 Dummy {f00=0x002d, f01=0x0190, f02=»'DER SAMTIDIG KAN ANVENDES FOR ' P FCOPY ='DATABEHANDLING' ( P FCOPY =' OG ' H P FCOPY ='TEKSTBEHANDLING' ^ P FEOR P FILLR ' ',5 $ P FCOPY ='HIDTIL HAR DET V[RET N' P FILLR X'5C',1 6 P FCOPY ='DVENDIGT AT ANVENDE FORSKELLIGE
0x19d458…19d5ec Dummy {f00=0x002d, f01=0x0190, f02=» P FCOPY ='DATABEHANDLING' P FCOPY =' : H' ( P FILLR X'5C',1 > P FCOPY ='J ' T P FCOPY ='SKRIVEHASTIGHED' h P FCOPY =' / MIDDEL ' P FCOPY ='SKRIVEKVALITET' P FEOR P FILLR '0',2 P FILLR ' ',10 P FCOPY ='T
0x19d5ec…19d780 Dummy {f00=0x002d, f01=0x0190, f02=»EL ' P FCOPY ='SKRIVEHASTIGHED' P FEOR . P FILLR '0',2 < P FEOR P P FILLR ' ',5 ^ @ P FCOPY ='PHILIPS GENERELLE SKRIVER GP 6374/75 D[KKER BEGGE' r P FCOPY =' OPGAVEOMR]DER' P FEOR P FILLR ' ',5 * P FCOPY ='I EEN O
0x19d780…19d914 (2, 41) Dummy {f00=0x0046, f01=0x0190, f02=»PY =': ' P FCOPY ='DATABEHANDLING' P FCOPY =': OP TIL 300 ' 0 P FCOPY ='TEGN PR. SEKUND' P P FEOR r P FILLR ' ',22 P FCOPY ='TEKSTBEHANDLING' P FCOPY =': 80 ' P FCOPY ='TEGN PR. SEKUND' P FEOR P FILLR '
0x19d914…19daa8 Dummy {f00=0x0046, f01=0x0190, f02=»NIE ER VED' P FEOR P FILLR ' ',20 " P FCOPY ='10' 8 P FCOPY =' TEGN PR. TOMME ' L P FCOPY ='120 TEGN OG VED' p P FEOR P FILLR ' ',20 P FCOPY ='12' P FCOPY =' TEGN PR. TOMME ' P FCOPY ='144 TEGN'
0x19daa8…19dc3c Dummy {f00=0x0046, f01=0x0190, f02=» z * P FCOPY =' KAN FORETAGES VED HJ[LP AF ' P FCOPY ='FRIKTIONSFREMF' 6 P FILLR X'5C',1 V P FCOPY ='RING,' l P FEOR P FILLR ' ',5 P FCOPY ='TRAKTORFREMF' P FILLR X'5C',1 2 P FCOPY ='RING OG VED ANVENDELSE AF FRONTINDF'
0x19dc3c…19ddd0 Dummy {f00=0x0046, f01=0x0190, f02=»RE HENHOLDSVIS 3,4,6,8 ELLER 12 ' r P FCOPY ='LINIER PR. TOMME' ! * P FEOR ! L P FILLR '0',2 ! Z P FILLR ' ',3 ! n @ P FCOPY ='SKRIVEREN ER LET AT BETJENE MED HENSYN TIL F.EKS.' ! P FCOPY =' IS[TNING AF NY' ! P FEOR ! P FILLR ' ',5 ! 6
0x19ddd0…19df64 Dummy {f00=0x0046, f01=0x0190, f02=»LR '0',2 ! P FILLR ' ',3 " : P FCOPY ='SKRIVEREN HAR FORUDEN ALMINDELIG SKRIFT OGS]' " $ P FCOPY =' MULIGHED FOR AT ' " b P FEOR " P FILLR ' ',5 " " P FCOPY ='KUNNE ANVENDES FOR ' " P FCOPY ='UDSKRIVNING' " P FCOPY =' AF BOGSTAVER' "
0x19df64…19e0f8 Dummy {f00=0x0046, f01=0x4088, f02=»RELSER SAMT LOGO' " P FILLR X'27',1 # P FCOPY ='S.' # 0 P FEOR # D P FNL # R P FNL # ^ P FMEND # j P END # x@ # EOR " P FILLR ' ',5 " " P FCOPY ='KUNNE ANVENDES FOR ' " P FCOPY ='UDSKRIVNING' " P FCOPY =' AF BOGSTAVER' "
0x19e0f8…19e28c Dummy {f00=0x0046, f01=0x2008, f02=» $ @ FNL FTAB 14 $ FCOPY ='PF 4:' 4 0 + FCOPY ='UDSKRIVNING A4-ARK I FRONT-FEED ' L FCOPY ='DATA-KVALITET' FNL FNL FTAB 14 FCOPY ='PF 5:' $ FCOPY =' RETUR TIL 1. BILLEDE'
0x19e28c…19e420 Dummy {f00=0x0046, f01=0x0190, f02=» X &P V H " P ! X ?! P* R Q$ X &P V D ! P $ ! P %_ ! : V Y " X .9H $ ! P & X ( " Q Y +Q R " P W " U Y , " Q " " X . X 0R P" X *:h P PD " ) Y (W X *:h Pt Pn P
0x19e420…19e5b4 (2, 42) Opaque[0x194]
0x19e5b4…19e748 # DirEnt {nam=»AFGEN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x03e8, f03=0x0000}
0x19e5b4…19e748 IdxSect {
0x19e5b4…19e748 f00 = 0x001f // 0x19e5b4 @0x0
0x19e5b4…19e748 f01 = 0x0002 // 0x19e5b6 @0x2
0x19e5b4…19e748 gno = [ // 0x19e5b8 @0x4
0x19e5b4…19e748 [0x00]: C0x001f.0x1.0
0x19e5b4…19e748 ]
0x19e5b4…19e748 }
0x19e748…19e8dc Dummy {f00=0x001f, f01=0x0108, f02=» PMES TESTVERSION AF-MATCH PPRT AFGEN $ PPRT TSTFIG 6 PNOD C H PTRA SPDDIV,NL V PNOD R l PINC AFMATC z PINC SCREEN PTLK U,M,4K PLKE M PKPF /L,L:AF PASG 2,NO P$PDISC A=L:AF PASG /E0,TY10
0x19e8dc…19ea70 Dummy {f00=0x001f, f01=0x2008, f02=» TESTVERSION AF-MATCH PPRT AFGEN $ PPRT TSTFIG 6 PNOD C H PTRA SPDDIV,NL V PNOD R l PINC AFMATC z PINC SCREEN PTLK U,M,4K PLKE M PKPF /L,L:AF PASG 2,NO P$PDISC A=L:AF PASG /E0,TY10
0x19ea70…19ec04 Dummy {f00=0x001f, f01=0x0190, f02=» ! S z m @ `
0x19ec04…19ed98 Dummy {f00=0x001f, f01=0x40e6, f02=» L H IDENT Z:TB10 TRA 11.0 82-01-11 F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN Z:TB10 T Z:TB10T f * & z " " @ B @
0x19ed98…19ef2c Dummy {f00=0x001f, f01=0x40de, f02=» L H IDENT D:TB10 TRA 11.0 82-01-11 F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN D:TB10 T D:TB10T f * & . z 0 0 . @ @ B @
0x19ef2c…19f0c0 Dummy {f00=0x001f, f01=0x0190, f02=» L H IDENT Z:TB20 TRA 11.0 82-01-11 F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN Z:TB20 T Z:TB20T f & z & & = & [ & y & & &
0x19f0c0…19f254 (2, 43) Opaque[0x194]
0x19f254…19f3e8 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04b8, f03=0x0000}
0x19f254…19f3e8 IdxSect {
0x19f254…19f3e8 f00 = 0x0025 // 0x19f254 @0x0
0x19f254…19f3e8 f01 = 0x0002 // 0x19f256 @0x2
0x19f254…19f3e8 gno = [ // 0x19f258 @0x4
0x19f254…19f3e8 [0x00]: C0x0025.0x3.0
0x19f254…19f3e8 ]
0x19f254…19f3e8 }
0x19f3e8…19f57c Dummy {f00=0x0025, f01=0x000c, f02=»820115 _ _ 820115 $$$TRAR SPCLRA SPCLRNS SPCLRSE SPERR EMPTYTR T:DELAA T:DISP2 T:DSC1F T:DUPL T:DYKI1 T:EDFLS T:EDWR T:ERASR T:GETAC T:GETCS T:GETF T:NKI T:PRIN T:SETC T:TBWDR T:TDOWA T:TFWD2 T:THOMF T:TLDO T:TLEF1 T:TRIGS T:TSTC
0x19f57c…19f710 Dummy {f00=0x0025, f01=0x0190, f02=» &SCREEN ? 820115 $$$TRAR SPCLRA SPCLRNS SPCLRSE SPERR EMPTYTR T:DELAA T:DISP2 T:DSC1F T:DUPL T:DYKI1 T:EDFLS T:EDWR T:ERASR T:GETAC T:GETCS T:GETF T:NKI T:PRIN T:SETC T:TBWDR T:TDOWA T:TFWD2 T:THOMF T:TLDO T:TLEF1 T:TRIGS T:TSTC
0x19f710…19f8a4 Dummy {f00=0x0025, f01=0x4002, f02=» SCREEN ? 820115 $$$TRAR SPCLRA SPCLRNS SPCLRSE SPERR EMPTYTR T:DELAA T:DISP2 T:DSC1F T:DUPL T:DYKI1 T:EDFLS T:EDWR T:ERASR T:GETAC T:GETCS T:GETF T:NKI T:PRIN T:SETC T:TBWDR T:TDOWA T:TFWD2 T:THOMF T:TLDO T:TLEF1 T:TRIGS T:TSTC
0x19f8a4…19fa38 Dummy {f00=0x0025, f01=0x0190, f02=» FILLR ' ',20 P FCOPY ='12' P FCOPY =' TEGN PR. TOMME ' * P FCOPY ='144 TEGN' N P FEOR h P FILLR '0',2 v P FILLR ' ',3 P FILLR X'12',1 P FCOPY ='UDSKRIVNING' * P FCOPY =' KAN FORETAGES VED HJ[LP AF ' P FCOPY =
0x19fa38…19fbcc Dummy {f00=0x0025, f01=0x018e, f02=»RAKTORFREMF' P FILLR X'5C',1 2 P FCOPY ='RING OG VED ANVENDELSE AF FRONTINDF' * P FILLR X'5C',1 ` P FCOPY ='RING' v P FEOR P FILLR '0',2 P FILLR ' ',3 D P FCOPY ='LINIEAFSTANDEN KAN V[RE HENHOLDSVIS 3,4,6,8 ELLER 12 '
0x19fbcc…19fd60 Dummy {f00=0x0025, f01=0x0190, f02=» P FCOPY =' IS[TNING AF NY' P FEOR & P FILLR ' ',2 4 6 P FCOPY ='PAPIR BANE SAMT UDSKIFTNING AF FARVEB]ND' H P FEOR P FILLR '0',2 : P FCOPY ='SKRIVEREN HAR FORUDEN ALMINDELIG SKRIFT OGS]' P FCOPY =' MULIGHED FOR AT ' P F
0x19fd60…19fef4 (2, 44) Opaque[0x194]
0x19fef4…1a0088 # DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ff8, f03=0x0000}
0x19fef4…1a0088 IdxSect {
0x19fef4…1a0088 f00 = 0x007f // 0x19fef4 @0x0
0x19fef4…1a0088 f01 = 0x0002 // 0x19fef6 @0x2
0x19fef4…1a0088 gno = [ // 0x19fef8 @0x4
0x19fef4…1a0088 [0x00]: C0x007f.0x3.0
0x19fef4…1a0088 ]
0x19fef4…1a0088 }
0x1a0088…1a021c Dummy {f00=0x007f, f01=0x011c, f02=» PT; P01; PTID=TB; PTCL=TB; * PLEV=55; : P01; J PTDC=T01; V PLC=008L; f P00; v PT; P01; PTID=T0; PTCL=T0; PLEV=60; P02; PTDC=T02; PLC=001L; PTDC=T03; PLC=0
0x1a021c…1a03b0 Dummy {f00=0x007f, f01=0x2008, f02=» P01; PTID=TB; PTCL=TB; * PLEV=55; : P01; J PTDC=T01; V PLC=008L; f P00; v PT; P01; PTID=T0; PTCL=T0; PLEV=60; P02; PTDC=T02; PLC=001L; PTDC=T03; PLC=0
0x1a03b0…1a0544 Dummy {f00=0x007f, f01=0x0190, f02=» ! S z m @ `
0x1a0544…1a06d8 Dummy {f00=0x007f, f01=0x40e6, f02=» L H IDENT Z:TB10 TRA 11.0 82-01-11 F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN Z:TB10 T Z:TB10T f * & z " " @ B @
0x1a06d8…1a086c Dummy {f00=0x007f, f01=0x40de, f02=» L H IDENT D:TB10 TRA 11.0 82-01-11 F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN D:TB10 T D:TB10T f * & . z 0 0 . @ @ B @
0x1a086c…1a0a00 Dummy {f00=0x007f, f01=0x0190, f02=» L H IDENT Z:TB20 TRA 11.0 82-01-11 F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN Z:TB20 T Z:TB20T f & z & & = & [ & y & & &
0x1a0a00…1a0b94 (2, 45) Opaque[0x194]
0x1a0b94…1a0d28 # DirEnt {nam=»PROGEX«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0418, f03=0x0000}
0x1a0b94…1a0d28 IdxSect {
0x1a0b94…1a0d28 f00 = 0x0020 // 0x1a0b94 @0x0
0x1a0b94…1a0d28 f01 = 0x0002 // 0x1a0b96 @0x2
0x1a0b94…1a0d28 gno = [ // 0x1a0b98 @0x4
0x1a0b94…1a0d28 [0x00]: C0x0020.0x3.0
0x1a0b94…1a0d28 ]
0x1a0b94…1a0d28 }
0x1a0d28…1a0ebc Dummy {f00=0x0020, f01=0x0148, f02=» $ PMES PRODVERSION AF-MATCH (DEMO) PPRT PROGEX , PPRT PROD > PBYE N PP:AF Z PNOD C f PMOV SPDDIV,/S,A:AF t PTRA /S,NL PINC AFMATG,A:AF PINC SCREEN,A:AF PTLK U,4K PLKE M PKPF /L,A:PROD PASG
0x1a0ebc…1a1050 Dummy {f00=0x0020, f01=0x2008, f02=» PRODVERSION AF-MATCH (DEMO) PPRT PROGEX , PPRT PROD > PBYE N PP:AF Z PNOD C f PMOV SPDDIV,/S,A:AF t PTRA /S,NL PINC AFMATG,A:AF PINC SCREEN,A:AF PTLK U,4K PLKE M PKPF /L,A:PROD PASG
0x1a1050…1a11e4 Dummy {f00=0x0020, f01=0x018e, f02=» { ' 0 @ Z P ` r M + {
0x1a11e4…1a1378 Dummy {f00=0x0020, f01=0x0190, f02=» ( 8 J ' Z l | N .' { '
0x1a1378…1a150c Dummy {f00=0x0020, f01=0x0190, f02=» Z 2 B R b t $ & + - N 0 . 2 7 9 {
0x1a150c…1a16a0 Dummy {f00=0x0020, f01=0x0190, f02=» G N P * U : Y Z J ^ Z j & z & ! INDS[T PAPIR I FRONT FEED4 $ ( & & &
0x1a16a0…1a1834 (2, 46) Opaque[0x194]
0x1a1834…1a19c8 # DirEnt {nam=»PROGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0378, f03=0x0000}
0x1a1834…1a19c8 IdxSect {
0x1a1834…1a19c8 f00 = 0x001b // 0x1a1834 @0x0
0x1a1834…1a19c8 f01 = 0x0002 // 0x1a1836 @0x2
0x1a1834…1a19c8 gno = [ // 0x1a1838 @0x4
0x1a1834…1a19c8 [0x00]: C0x001b.0x3.0
0x1a1834…1a19c8 ]
0x1a1834…1a19c8 }
0x1a19c8…1a1b5c Dummy {f00=0x001b, f01=0x0148, f02=» $ PMES PRODVERSION AF-MATCH (DEMO) PPRT PROGEN , PPRT PROD > PBYE N PP:AF Z PNOD C f PMOV SPDDIV,/S,A:AF t PTRA /S,NL PINC AFMATC,A:AF PINC SCREEN,A:AF PTLK U,4K PLKE M PKPF /L,A:PROD PASG
0x1a1b5c…1a1cf0 Dummy {f00=0x001b, f01=0x2008, f02=» PRODVERSION AF-MATCH (DEMO) PPRT PROGEN , PPRT PROD > PBYE N PP:AF Z PNOD C f PMOV SPDDIV,/S,A:AF t PTRA /S,NL PINC AFMATC,A:AF PINC SCREEN,A:AF PTLK U,4K PLKE M PKPF /L,A:PROD PASG
0x1a1cf0…1a1e84 Dummy {f00=0x001b, f01=0x0190, f02=» P PERF WAITGP P MOVE TBIN1,=X'1B17' P DSC SPDSPRT,SETPPAR,TBIN1 4 P EDWRT SPDSPRT,BILLED2 V P CLEAR PRBUSY t P B DISP208 PDISP205 P PERF WAITGP & P MOVE TBIN1,=X'1B27' HIGH QUALITY P DSC SPDSPRT,SETPPAR,TBIN1
0x1a1e84…1a2018 Dummy {f00=0x001b, f01=0x018e, f02=»207 P B DISP1 PDISP208 P SET SPPROMPT , P B DISP200 B P T P P*************************************************************************** P PDISP3 P SET SPPROMPT P ATTFMT BILLED3 P PERF SPCLRA P
0x1a2018…1a21ac Dummy {f00=0x001b, f01=0x0190, f02=» P PTSTGP1 P PERF WAITGP . P MOVE TBIN1,=X'1B27' 10 PITCH, HIGHQUALITY . P DSC SPDSPRT,SETPPAR,TBIN1 ` P EDWRT SPDSPRT,BILLED4 0 P MOVE TBIN1,=X'2B27' 12 PITCH, HIGH QUALITY P DSC SPDSPRT,SETPPAR,TBIN1 P EDWRT SPDSPRT,BIL
0x1a21ac…1a2340 Dummy {f00=0x001b, f01=0x0190, f02=»9 P PTSTGP2 P PERF WAITGP . P MOVE TBIN1,=X'1B17' 10 PITCH LOW QUALITY 4 P DSC SPDSPRT,SETPPAR,TBIN1 f P EDWRT SPDSPRT,BILLED4 P MOVE TBIN1,=X'2B17' P DSC SPDSPRT,SETPPAR,TBIN1 P EDWRT SPDSPRT,BILLED7 P MOVE
0x1a2340…1a24d4 (2, 47) Opaque[0x194]
0x1a24d4…1a2668 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0310, f03=0x0000}
0x1a24d4…1a2668 IdxSect {
0x1a24d4…1a2668 f00 = 0x0018 // 0x1a24d4 @0x0
0x1a24d4…1a2668 f01 = 0x0002 // 0x1a24d6 @0x2
0x1a24d4…1a2668 gno = [ // 0x1a24d8 @0x4
0x1a24d4…1a2668 [0x00]: C0x0018.0x2.0
0x1a24d4…1a2668 ]
0x1a24d4…1a2668 }
0x1a2668…1a27fc Dummy {f00=0x0018, f01=0x0190, f02=» , P IDENT CTAB01 820111 NJ CTAB01 CREBUG AF P ENTRY CTAB01 4 PCTAB01 EQU * J P DATA UNSH,SHIFT,0,0,0 ^ $ PUNSH DATA 0,0,U2,U3,0,U5,0,U7,0 | P* & PSHIFT DATA 0,0,S2,S3,0,S5,S6,S7,0 P* < PU2 DATA /2021,/2223,/2425,/2627,/FF3C,
0x1a27fc…1a2990 Dummy {f00=0x0018, f01=0x0190, f02=»B5D,/FF5F b < PU7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F P* R < PS2 DATA /2021,/2223,/2425,/262A,/FF3E,/2A3F,/3B5F,/3A2F < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F < PS5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,
0x1a2990…1a2b24 Dummy {f00=0x0018, f01=0x401c, f02=»E7F P END @ 071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F P* R < PS2 DATA /2021,/2223,/2425,/262A,/FF3E,/2A3F,/3B5F,/3A2F < PS3 DATA /3D21,/2223,/2425,/262F,/2829,/8A8B,/8C8D,/8E8F < PS5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,
0x1a2b24…1a2cb8 Dummy {f00=0x0018, f01=0x2008, f02=» < 7S5 DATA /5051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7S7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7F L END @ 051,/5253,/5455,/5657,/5859,/5A5C,/5B5D,/FF5F < 7U7 DATA /7071,/7273,/7475,/7677,/FFFF,/FFFF,/7C7D,/7E7
0x1a2cb8…1a2e4c Dummy {f00=0x0018, f01=0x0190, f02=» D E n , ( ! @ b H ` & H ` $ E , ( #_ A P @ L 9k > , ( B $ A A J ` n , ( & ( ` $ A N J $ K , ( @ $ J J | | , ( #
0x1a2e4c…1a2fe0 Dummy {f00=0x0018, f01=0x0190, f02=» u D 4 Q _l , 1 , ( A * = G 6 2 . LSTPAG ^ , ( @ & A $ $ @ E p SCTTCT , ( $ : " L M _V < < * & <P & &X ' 6 @
0x1a2fe0…1a3174 (2, 48) Opaque[0x194]
0x1a3174…1a3308 # DirEnt {nam=»PROD «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ff0, f03=0x0000}
0x1a3174…1a3308 IdxSect {
0x1a3174…1a3308 f00 = 0x007f // 0x1a3174 @0x0
0x1a3174…1a3308 f01 = 0x0002 // 0x1a3176 @0x2
0x1a3174…1a3308 gno = [ // 0x1a3178 @0x4
0x1a3174…1a3308 [0x00]: C0x007f.0x2.0
0x1a3174…1a3308 ]
0x1a3174…1a3308 }
0x1a3308…1a349c Dummy {f00=0x007f, f01=0x013c, f02=» PT; P01; PTID=T0; PTCL=T0; * PLEV=60; : P02; J PTDC=T02; V PLC=001L; f PTDC=T03; v PLC=003L; P00; PT; P01; PTID=T1; PTCL=T0; PLEV=60; P02; PTDC=T02; PLC=0
0x1a349c…1a3630 Dummy {f00=0x007f, f01=0x2008, f02=» P01; PTID=T0; PTCL=T0; * PLEV=60; : P02; J PTDC=T02; V PLC=001L; f PTDC=T03; v PLC=003L; P00; PT; P01; PTID=T1; PTCL=T0; PLEV=60; P02; PTDC=T02; PLC=0
0x1a3630…1a37c4 Dummy {f00=0x007f, f01=0x0190, f02=»
0x1a37c4…1a3958 Dummy {f00=0x007f, f01=0x0190, f02=» 2 K A01 1 1 7_ A01 1 61 "_ 4 0 41 _ 4 0 41 _*@0_._FA01 1 61 ,:_ 4 0 41 W, 4 0 41 W 4 0 41 W 4 0 41 W _ _P 4 4 4 4 A2 @24 1 1 8 0 I0 61 %0 0 W 0 0 W 6
0x1a3958…1a3aec Dummy {f00=0x007f, f01=0x0190, f02=» 3 W 0 2(2 _W 3 0 2 2 0 22 W&0 CA1!1 bI2 21 1 4 3 *0 C_,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ 2 71 FF:FF:6:::6:6_ A P 2 0 2_ 2 0 2 @ K2a_ 1 0 CX 3 Wb 0 0 0 2(2 1 ? 0 C 013R4*1 .(0 A1? 3 0 1 0 12S 0 P 0 Q 1 4 0 21W
0x1a3aec…1a3c80 Dummy {f00=0x007f, f01=0x0190, f02=» 1 4 0 A1? 0 C0 30 33? 4 4 4 4 4 4 4 4 4 a Q o + V L k ) y
0x1a3c80…1a3e14 (2, 49) Opaque[0x194]
0x1a3e14…1a3fa8 # DirEnt {nam=»A:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0430, f03=0x0000}
0x1a3e14…1a3fa8 IdxSect {
0x1a3e14…1a3fa8 f00 = 0x0021 // 0x1a3e14 @0x0
0x1a3e14…1a3fa8 f01 = 0x0012 // 0x1a3e16 @0x2
0x1a3e14…1a3fa8 gno = [ // 0x1a3e18 @0x4
0x1a3e14…1a3fa8 [0x00]: C0x0021.0x2.0
0x1a3e14…1a3fa8 [0x01]: C0x0021.0x3.0
0x1a3e14…1a3fa8 [0x02]: C0x0022.0x1.0
0x1a3e14…1a3fa8 [0x03]: C0x0022.0x2.0
0x1a3e14…1a3fa8 [0x04]: C0x0023.0x0.0
0x1a3e14…1a3fa8 [0x05]: C0x0023.0x1.0
0x1a3e14…1a3fa8 [0x06]: C0x0023.0x3.0
0x1a3e14…1a3fa8 [0x07]: C0x0025.0x1.0
0x1a3e14…1a3fa8 [0x08]: C0x0026.0x1.0
0x1a3e14…1a3fa8 ]
0x1a3e14…1a3fa8 }
0x1a3fa8…1a413c Dummy {f00=0x0021, f01=0x0190, f02=»T Db CR h ~ @ P ~ 0 1 T0 B b 6T0 0 *
0x1a413c…1a42d0 Dummy {f00=0x0021, f01=0x0190, f02=» AFPR VNING 0 0 " . 0 0 X
0x1a42d0…1a4464 Dummy {f00=0x0021, f01=0x0190, f02=»
0x1a4464…1a45f8 Dummy {f00=0x0021, f01=0x0190, f02=» 0 H V W ' u ' " C C G C C C T l X ~ ` d h T A01 1 1 K@0_ A01 61 ,0_ @0_ W* 4 0 41 @ W 4 0 41 @ W @0_<_VA0_BA01 1 1 1 61 (P 4 0 41 4 0 41 4 0 41 W
0x1a45f8…1a478c Dummy {f00=0x0021, f01=0x0190, f02=» 0 41 4 0 41 0 W ? @ _ H 0 _ A 4 4 4 4 4 A2 @24 1 1 8 0 I0 61 %0 0 W 0 0 W 61 0 0 W 0 0 0 0 0 3R 0 32P R 32_ 0 0 C 013: *1 (1 0 T 21 0 B0 3 3 3 22 3 W 0 2(2 _W 3 0 2 2 0 22 W&0 CA
0x1a478c…1a4920 Dummy {f00=0x0021, f01=0x0190, f02=»2_ 2 0 2 @ K2a_ 1 0 CX 3 Wb 0 0 0 2(2 1 ? 0 C 013R4*1 .(0 A1? 3 0 1 0 12S 0 P 0 Q 1 4 0 21W _ 1 O 1 L 1 H 1 ^ 3 8 1 2 0 21 30 2 0 D 21 1 :21 1! 2 0 22 1! 1 0 C D D0 30 3321 1 4 0 A1? 0 C0 30 33? 0 84 4 4
0x1a4920…1a4ab4 (2, 50) Dummy {f00=0x0021, f01=0x0190, f02=» 5 A E I M Q U Y ] < k s < 0 Y 2 0 0 '+ +'1 1012: J S.ST: H : H OG RINGTLF:: 80 PA 1:PA 2:PF 1:PF 2:PF 3:PF 4:PF 5:RING, ENDELFEJL 1FEJL 2FEJL 3FEJL 4 SKRIVER
0x1a4ab4…1a4c48 Dummy {f00=0x0021, f01=0x0190, f02=»DSKRIVNING*** GOD FORNAF PTS 6000.FELT MANGLERTRAKTORFREMF AF BOGSTAVER SKRIV KOPI. : OP TIL 300 BEM[RKNINGER:DATA-KVALITETS PAPIR BANE OPGAVEOMR]DERDATABEHANDLINGFOR AT STARTE FRIKTIONSFREMFSKRIVEKVALITETTEKST-KVALITET IS[TNING AF NYSKRIVEHASTIGHEDTEGN PR. SEKUN
0x1a4c48…1a4ddc Dummy {f00=0x0021, f01=0x0190, f02=»ESSE:RRELSER SAMT LOGOTIL DE 2 OPGAVER: TEGN PR. TOMME KUNNE ANVENDES FOR INDTAST OPLYSNINGERRETUR TIL 1. BILLEDE A4-ARK I FRONT-FEED HIDTIL HAR DET V[RET NNY FUNKTION MED TASTEN:S NYE GENERELLE SKRIVER:P T S G P 6 3 7 4 / 7 5PHILIPS DATA SYSTEMER A/SI EEN OG
0x1a4ddc…1a4f70 Dummy {f00=0x0021, f01=0x0190, f02=»IDIG KAN ANVENDES FOR DETTE ER PHILIPS DATA SYSTEMERPHILIPS TERMINAL SYSTEM PTS 6000RING OG VED ANVENDELSE AF FRONTINDFFELTERNE AFSLUTTES MED TASTEN: ENTER. BYDER DEM VELKOMMEN TIL DENNE OFF-LINE DVENDIGT AT ANVENDE FORSKELLIGE SKRIVEREPAPIR BANE SAMT UDSKIFTNING
0x1a4f70…1a5104 Dummy {f00=0x0021, f01=0x0190, f02=»NG AF OPLYSNINGER KAN V[LGES SKRIVEREN HAR FORUDEN ALMINDELIG SKRIFT OGS]VEJLEDNING: FUNKTIONERNE V[LGES VED AKTIVERINGPHILIPS GENERELLE SKRIVER GP 6374/75 D[KKER BEGGESKRIVEBREDDE: 305 MM OG DET MAKSIMALE ANTAL TEGN SKRIVEREN ER LET AT BETJENE MED HENSYN TIL F.EK
0x1a5104…1a5298 Dummy {f00=0x0021, f01=0x0190, f02=» a` b cd + + E + 4 + 3 + 2 + 1 1 0 x Y ` B G k ! ] ' 0 B j P / F p % 0 } W 0 | S t o + @ & 5 y ? * B 0 L R + B 0 L K , B c R - B c K . b 9 *
0x1a5298…1a542c Dummy {f00=0x0021, f01=0x0190, f02=» 9 9 o ( @ & 7 5 A @ = @ E : @' F 8 @' G < A ; @" H > & B B @ I J @C J @C K @C L @C M @C N * * u q w e * H K / + H R , a / - b O 9 * * * * * v X * * * * * 0
0x1a542c…1a55c0 Dummy {f00=0x0021, f01=0x0190, f02=» N I U V ' U 0 { Z _ [ _ 6 " $ ' + / 3 7 < A F K P U Z _ d j p v |
0x1a55c0…1a5754 (2, 51) Dummy {f00=0x0022, f01=0x0190, f02=» ( @ Y r # > % a ( ( ( * + ( , S , . 1 1 1 ; 5 l ! # 3 B j u ` (@ L N J * #0 0T & ! T P & ! X
0x1a5754…1a58e8 Dummy {f00=0x0022, f01=0x0190, f02=» 8 ( X 0P X T 5 ! Y * X 2 y X V. X X ( x C ( Y * X Y , X X C & C C ( B Ph9 R^9 X !@PP X X * b ) Y * Y , X , x X *YrP y X " x Y X " T Y
0x1a58e8…1a5a7c Dummy {f00=0x0022, f01=0x0190, f02=» X X * P P 1 _ 1 2 X * V X X * $" X D % " X # X * y _< X # X * y X 1 1 X !@T X $ " P y _ x T X H X X * , )$ P _ : X " X ) X : ( ) '
0x1a5a7c…1a5c10 Dummy {f00=0x0022, f01=0x0190, f02=» C Q " T X ! X X ! x Y~ Y _ X "@P B R y C B P 9 V Z_F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c ( C _$ _ y _6 x X@ X X # C _. B
0x1a5c10…1a5da4 Dummy {f00=0x0022, f01=0x0190, f02=» ( # B P B C x : + X ( ) * ( ) (` : B C _J + . ( X 9 V ! P @ Y * #0 2 Y Y . X ! 2 : ) * X * X " * X $ : ! P # P 2 : ( 2! 2
0x1a5da4…1a5f38 Dummy {f00=0x0022, f01=0x0190, f02=» ) ' * ! Y 0T V ) -8 : ( 2' 2 * " P # P 2 R P P X ' ' Ut X _ X ' _ X '?_ ( * ! P # P 2 X ' ( X ! ( ( ( X " 9b! X :c 2" 2 H ( @
0x1a5f38…1a60cc Dummy {f00=0x0022, f01=0x0190, f02=» 0 r ! O O P N ( 9H Y * ,W W ) N X 0T 2 X 2Z X +" X *9h P: R Y ?_ P R P R 2 Y +Wl Y + vWZ T R( WJ Q W Y + U Q 2 Y Q P W W Y ( r C ( X *!
0x1a60cc…1a6260 Dummy {f00=0x0022, f01=0x0190, f02=» B ] N : ) X +! 2 X +! U 9K Y ( Y + r ! ( 9H Y * 2 Y ( Y ? Y + * h 4 0 ) h 6 2 X 0 2 : ! P # T : 2 C ( C : C B _( _ ) X P B _R ( ) X
0x1a6260…1a63f4 (2, 52) Dummy {f00=0x0022, f01=0x0190, f02=»2z2z282h2d1 0 1 0 " #v#v2z" 2z2z0 W W X 0Q !x !v Y ( Y *P N / H X <' X X / ( X *# X ( " Q " P X 0PR V _` " PL T " Ph & ) Wp " P Y 0] Y (_z P P T0 " X _@ " P" N X *# P B 1
0x1a63f4…1a6588 Dummy {f00=0x0022, f01=0x0190, f02=» ( : X (;n ( 2|1fR 1|1N" 282h2d1 0 1 0 " " " 1 " 2z1|0 ( Y . Y ,W ( Y . X ( X ." PV X 0RzT$ Y *P U :H ( ! K T 1 W 1 X . X 2QP Y *T2 1 : " P$ X 0U X *# P P T " T : " 2 Y . & Y ( 0 ( Y *T
0x1a6588…1a671c Dummy {f00=0x0022, f01=0x0190, f02=»! P* R Q$ X &P V D ! P $ ! P %_ 1 : ( V Y " X .9H $ 1 P & X ( " Q Y +Q R " P W " U % Y , " Q " 2 X . X 0R P" X *:h P PD 2 ) Y (W X *:h Pt Pn P P 2 % P< &@WZ X ! X $"
0x1a671c…1a68b0 Dummy {f00=0x0022, f01=0x0190, f02=»TbW X , X 0P@ % T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l &@_r X ( P Y (_ P* & P| Y 8 # X 8 X $ ( Wh_ " P X ( T X & V H "@TF & P6 V Y X (P ( &h X (P % (` 8 Y 0 X 2P X 0
0x1a68b0…1a6a44 Dummy {f00=0x0022, f01=0x0190, f02=»T : : Y ( X $ Y X " Y X & Y X < Y > : Y : ( X : X ( T X & V H " V Y : X $ ( X : ( : X Y " X Y $ X Y & X >W X < Y = " ) ! T W 2 ! P =H 2 'v X *! T" X y 4 @ X (T y 6W4 X
0x1a6a44…1a6bd8 Dummy {f00=0x0022, f01=0x0190, f02=» D Y D :H Y ! P V Y * W Y ! P ) W V Y ( V Y : * 1f : 2' " P T , W ) R : ' : ) ( N (T C ( X ( : "0P ' Q W ' Y : W ) V 1 ( Y Y Y <
0x1a6bd8…1a6d6c Dummy {f00=0x0022, f01=0x0190, f02=» ; [ O P Z : :( R : V E V D ' $ 3 W )> P Ut X =' V W V Y =P )> : * #0 P 3 ( Ut :l:d:h * W W P W 6 2# , W4 @ E) " T> ; [ # ,x:H
0x1a6d6c…1a6f00 Dummy {f00=0x0022, f01=0x0190, f02=» P& Pd" # ,x ;b Wv " ;d# _ [ v [ ) * ) Z Z : R ; * 6 : F _v 2 :B , (V ; H [ [ [ * Z (;AR H WH 2 2 Z H # , ;
0x1a6f00…1a7094 (2, 53) Dummy {f00=0x0023, f01=0x0190, f02=» : [ [ * & @ ! P 3 Z 3 [ 6 [ Z 7 ) Z 7 : T # ( + * " T # :A ( @ " P ! P [ :;H 2 ;h R # # XR : ; V Y : 2! : 6 2 , W& " # ,x;b
0x1a7094…1a7228 Dummy {f00=0x0023, f01=0x0190, f02=» P ! P ! P 9_. &" ! ! P $ T 9 : & P Q - ,^ , < . # ; [ _ ' d V W V 4! P < S S S X 4 9d * & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8
0x1a7228…1a73bc Dummy {f00=0x0023, f01=0x0190, f02=» Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : !! gg++ L 33 2 ) ) , 2 , ) * 2|1fR 1|1N2z282h2d1 0 1 0 1 1 1 1 1 2z1|0 / 6 0 K K K K V K : *
0x1a73bc…1a7550 Dummy {f00=0x0023, f01=0x0190, f02=» J _Z Z 1 [ Z P )> [ V 2 7_ W Z 18 @ ! P )> Z 7 Z Z P )> : V R (Q V : : / J P v I < : J Qx : Pn 4 ! Th_
0x1a7550…1a76e4 Dummy {f00=0x0023, f01=0x0190, f02=» 1N 1 : ! P ! P ! P ! P * ! P ) W : ! )P9H " 2 # T &W &" :I : 2 : P & _ &X _ : 2 : : : W W W W| Wx Wt Wp Wl Wh Wd W` W WX WT WP WL WH WD W@ W< W8 W4 W0 W, W( W$
0x1a76e4…1a7878 Dummy {f00=0x0023, f01=0x0190, f02=» 3 R 4 7F 4 $ A`R ` U 4 1 _ "T @ % W T, @ % 1 X & 7H A`R b. `z @`R 8 U ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL OPERAND TYPE FILE NOT OPENED MISSING ENTRY ILLEGAL REQUESTED
0x1a7878…1a7a0c Dummy {f00=0x0023, f01=0x0190, f02=»Y: ILL INDEX TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE ILLEGAL
0x1a7a0c…1a7ba0 Dummy {f00=0x0023, f01=0x0190, f02=»NCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REENTER POINT DSCB NOT AVAILABLE FIXBUFFER NOT AVAILABLE FILE ORGANIZATION UNDEFINED SUBSTRINGLENGTH < 0 "SUBSTRING NOT WITHIN MAINSTRING (IX OVFL,FTABLE: W 9 " R 0
0x1a7ba0…1a7d34 (2, 54) Dummy {f00=0x0023, f01=0x0190, f02=»W . @9rP$ 8 9t $ $P BT , D E @ : @7jP A7j H A9 W TW V A7l 9 9 V A: @ ( ;Z( A7l 9 @: V P ( R W 7n @ ( ;N : @ ( <> : A: A: E A7l 9 V A: @ # P ( R4 9 @ ( ;Z( A7l 9 @: V
0x1a7d34…1a7ec8 Dummy {f00=0x0023, f01=0x0190, f02=»
0x1a7ec8…1a805c Dummy {f00=0x0023, f01=0x0190, f02=» : K ( ( K ( : K@ D "! A;0 K K< @9 @: @;0P ( : V K R : V W Z T;
0x1a805c…1a81f0 Dummy {f00=0x0023, f01=0x0190, f02=»: A;2 Lz A;4 "V # ( : K@ A;2P UW T K K< A;2P K = I < @< < =>X W>h Q?" M? /A> SB IB JCB TC YC GC LD PDB HDR RDl VDz KER K< KN_ < J _ NO! A< A< A< A< A= A< A< A< A< A< A= A< A=
0x1a81f0…1a8384 Dummy {f00=0x0023, f01=0x0190, f02=» ,T Ft X ) A< A< Kp I = >4 ;= :>" >: @= P A= 1+X A= _ >: @< A< @< A< @< A< @< A< _ H A= @< V H >: " @= T " @= @= P A< A< " < @< K <>T @;: A< @;@ A= @;F A< @;L A< @< AJ @< A;F @< A;L @= A;@P I W
0x1a8384…1a8518 Dummy {f00=0x0023, f01=0x0190, f02=»;4 PZ @< & KZ 0 K P P KR J P @R KV K @ _ KJ K6 K* K _T K@ K6 ? <> 4 K T P KR J W T @R KV K W K6 K< K< B "T" @;8 A< @;> A= @;D A< @;J A< W @< T @< W @< @< @< R B >a
0x1a8518…1a86ac Dummy {f00=0x0023, f01=0x0190, f02=» I J AJ <> @< R V ;a Q K@_ Kp1 <> KJ @J A;8_ 0 K K< AA6 = P 3P < C @< P @< 1 @;4P @< Q @ @= Q P " <>T @;6 A< @;< A= @;B A< @;H A< @< AJ @< A;B @< A;H @= A;<P I W @< T B @< V @J A;6 0
0x1a86ac…1a8840 Dummy {f00=0x0023, f01=0x0190, f02=»< V " @= T @9 HpTP @< P @< AJ A;@ A;F > KZ 0! K* K< = T @< P @< " 1 <> < Px @< @< @< @= T @9 G:RX AJ *9l! P2 > C &9d! ) C0W P$ &9d C$ & C$_ C & C0 <> < AC AC" K@ @LzZ K6
0x1a8840…1a89d4 (2, 55) Dummy {f00=0x0023, f01=0x0190, f02=»< ! 5 = <> < < E <>P @< < F6W" 8 Fh 8 $ B % A8 <>T @9 W @< A;2 < @< R A: A;2 A9 @9 ( <> A;2 < @9 E < @< @< T I @_:P E @9 F6_ A;2 < A9 @= A9 <> @< ! AT <>Pd @< @< PL @< P Kp Kp
0x1a89d4…1a8b68 Dummy {f00=0x0023, f01=0x0190, f02=» (P _ H B @= T @9 H AE0 " < EQ GT LT NE NG NL P2 @;0 R* Kp I E @< P Q E~ ( <> < L U 8 ( R ( @< V @: H B W # + C " 8 B AE AE :B AE < (P _ B @< @< @< P E
0x1a8b68…1a8cfc Dummy {f00=0x0023, f01=0x0190, f02=» C C *T W #T A< Kp J P PR (T Ft Pl ,T Ft P^ )TX Kp H A= T @9 G:R: ?aP *:l" T* & W T C B B B B B " < AH AH AH AH AH AH AH" HpR Q ! 9D# 9hP Q " ;B 2
0x1a8cfc…1a8e90 Dummy {f00=0x0023, f01=0x0190, f02=» C " _* Q P Q V _ W " AHl < V " F <P W* @;0" P ( < $ C " :T Kp Kp Kp " " AH A< .T @;0P JjP " A< "
0x1a8e90…1a9024 Dummy {f00=0x0023, f01=0x0190, f02=»J AJ T AJ T I @< R B AJ N @J " @;0! PD @= T @9 I J Q";H @J ;d I ( @J "( < @J " :S :X :Y :Z Kp $P WH Kp AJh AJ` 0R 9Q 0 AJh :B Kp_" AJh " Kp AJ
0x1a9024…1a91b8 Dummy {f00=0x0023, f01=0x0190, f02=» J "! R _U .WV AK : K* AK " 9d K* ! R :W& K W K W W ?W :W .W / aL AL T K " @K T K AK K K ( @L AK " K K K ( A( K ( AK " AK K @L L P AL L ( L AL
0x1a91b8…1a934c Dummy {f00=0x0023, f01=0x0190, f02=» W N M L / M _ P C P8 P * <H : L M P P8 * &P B V C / <H : P PH C C W PT C 9HR M& ' W 781"&$ 39#$;< '()*+,-! PT P8 * P _J O B *
0x1a934c…1a94e0 Dummy {f00=0x0023, f01=0x0190, f02=» 0 W : 1W C C " 2 ( ' P6 ND P& V ,V R:W B % P C + Q8 P Ut O* I B P B P B 5 : O O P N 0 N C C N@ C B B P C N : B T 3 V I C B : ( ' P O* I
0x1a94e0…1a9674 (2, 56) Dummy {f00=0x0025, f01=0x0190, f02=» : 2 ' W 2 6 2 @ " T # ' ?D , WD' #? ,x ;B V D 2 W ,"? :D;B D V : _B W "!@ 3 T B 2 D 3 " T E "* # " T "*@ # : L C L C B C : O O P : O P : * C : : P
0x1a9674…1a9808 Dummy {f00=0x0025, f01=0x0190, f02=» C C : & T ;d# P S W P P, 9A:AV X R _ S W 4 _T :#0 T B 'W 2 B B " Q : PR R6PR LR R R _ R _ # Q R V > _V X^ ' h
0x1a9808…1a999c Dummy {f00=0x0025, f01=0x0190, f02=» ) #0 T B ' : 2 B B Q : V C ) P C #0 T & C C : 2 P C C : : + * [ [ < !AAP !TTT W !**T * [ !FFP !EET W R ITd * B Z 9 ! ; *Xt 8 ! DTT 0P Wv 0W@ Wn :T& *W4
0x1a999c…1a9b30 Dummy {f00=0x0025, f01=0x0190, f02=» R 4! P ;)0 9U ? 2 Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ S 8 8 !++P !-- z ;$# + ^$ _* |`. PT*AXYZ9U:U:U:V W4U W,-8W^WdX Z [ [ Y V V V UtV UtV V / _.^ ^R^t_.^,U WTWPWZW U U U U )B
0x1a9b30…1a9cc4 Dummy {f00=0x0025, f01=0x0190, f02=»VV 9c DTl 9a1 P * ) Q TzW X :aW* @T YZP a @T ]f a @T ]p a 3 2 P V W< _ 2 # ;B V V T W V P L , V 2P " 2 P V D ! R T V P V )> W V P _ 8^t DT V| @ 2 !
0x1a9cc4…1a9e58 Dummy {f00=0x0025, f01=0x0190, f02=» * 2# &X 3Y $! 2P R P _ 9BP U _ W U 6 D " 7 $ V P )> W V T: Uf , V & U HT 'W 'W '_8 W 2 # 2 " T & T + : * & !@P `1` P YBQ
0x1a9e58…1a9fec Dummy {f00=0x0025, f01=0x0190, f02=» TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : #0 2 P8" T * & : * & !`P :J +_ +Q YB_0 , T T
0x1a9fec…1aa180 Dummy {f00=0x0025, f01=0x0190, f02=»$ W V P T V W Z : 2' ) [ [ * Z Z -8 : V ) 0 2 !0 2 " TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 2
0x1aa180…1aa314 (2, 57) Dummy {f00=0x0026, f01=0x0190, f02=»! P6 P( [ Z w [ P ] W^ V H )_ ] [ _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 2 !0 2 " Tz *V &V PP= ;@ R P W ;a
0x1aa314…1aa4a8 Dummy {f00=0x0026, f01=0x0190, f02=» [ $ [ [ &! P ] ] -8 ] -8 ] Wd z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z ] YB Q ] [ P _ T { [ ] ] [ Q@ [ ] Wd { R [ _ ] W^ ] [ Z ! Z $ Z %_N [ Q* ] W^
0x1aa4a8…1aa63c Dummy {f00=0x0026, f01=0x0190, f02=» D & H D % [ ( `: / : { : `"$0T _ Pb 9 _ `"$0T [ `"$0T Z : R$ P $ 1T Y TdW 5 _& : `"$0TH $ R W R # P W ) V E
0x1aa63c…1aa7d0 Dummy {f00=0x0026, f01=0x0190, f02=»! 9 R R _. : -X : * * #03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q4 R W Q$ : _ ) #03 T $_X _ _^ W !W 3 ` p *1 TID ADDR OP CR LVL MODIFIE
0x1aa7d0…1aa964 Dummy {f00=0x0026, f01=0x0190, f02=»`N ( @`V' $ * A` T( `N ( A`R A` ( ` p A`R ) Y V A`` `d V V 7N . 1 V 7H v 7H A`R : ` W ` 2 `y 7H @ # T R 7H * 7N & 7H ` Q ` A`RW> ` `q V D
0x1aa964…1aaaf8 Dummy {f00=0x0026, f01=0x0190, f02=» W h<a R 9a V 7n : 3
0x1aaaf8…1aac8c Dummy {f00=0x0026, f01=0x0190, f02=»EN J D:CB10 D:CB10C * & B 0 * & ^ = B L H IDENT C:CB20 TRA 11.0 82-01-15 F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN C
0x1aac8c…1aae20 Dummy {f00=0x0026, f01=0x0190, f02=»82-01-15 F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN x D:CB20 8 D:CB20C J * & 0 0 ^ L H IDENT Z:TB10 TRA 11.0 82-01-15 F1 O1111 820111 NJ ARBEJDSFORMIDLINGEN Z:TB10 Z:TB1
0x1aae20…1abac0 (3, 0) DirGranule ((3, 0)) {
0x1aae20…1abac0 DirEnt {nam=»P:AF «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x1aae20…1abac0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1000, f03=0x0000}
0x1aae20…1abac0 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0f48, f03=0x0000}
0x1aae20…1abac0 DirEnt {nam=»A:AF «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x1aae20…1abac0 DirEnt {nam=»A:PROD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0b58, f03=0x0000}
0x1aae20…1abac0 }
0x1abac0…1abc54 (3, 1) Opaque[0x194]
0x1abc54…1abde8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1000, f03=0x0000}
0x1abc54…1abde8 IdxSect {
0x1abc54…1abde8 f00 = 0x0080 // 0x1abc54 @0x0
0x1abc54…1abde8 f01 = 0x0032 // 0x1abc56 @0x2
0x1abc54…1abde8 gno = [ // 0x1abc58 @0x4
0x1abc54…1abde8 [0x00]: C0x0080.0x0.0
0x1abc54…1abde8 [0x01]: C0x0080.0x1.0
0x1abc54…1abde8 [0x02]: C0x0080.0x2.0
0x1abc54…1abde8 [0x03]: C0x0082.0x2.0
0x1abc54…1abde8 [0x04]: C0x0082.0x3.0
0x1abc54…1abde8 [0x05]: C0x0083.0x0.0
0x1abc54…1abde8 [0x06]: C0x0083.0x1.0
0x1abc54…1abde8 [0x07]: C0x0083.0x2.0
0x1abc54…1abde8 [0x08]: C0x0083.0x3.0
0x1abc54…1abde8 [0x09]: C0x0084.0x0.0
0x1abc54…1abde8 [0x0a]: C0x0084.0x1.0
0x1abc54…1abde8 [0x0b]: C0x0084.0x2.0
0x1abc54…1abde8 [0x0c]: C0x0084.0x3.0
0x1abc54…1abde8 [0x0d]: C0x0085.0x0.0
0x1abc54…1abde8 [0x0e]: C0x008a.0x2.0
0x1abc54…1abde8 [0x0f]: C0x008a.0x3.0
0x1abc54…1abde8 [0x10]: C0x008b.0x0.0
0x1abc54…1abde8 [0x11]: C0x008b.0x1.0
0x1abc54…1abde8 [0x12]: C0x008b.0x2.0
0x1abc54…1abde8 [0x13]: C0x008c.0x1.0
0x1abc54…1abde8 [0x14]: C0x008c.0x2.0
0x1abc54…1abde8 [0x15]: C0x008c.0x3.0
0x1abc54…1abde8 [0x16]: C0x008e.0x1.0
0x1abc54…1abde8 [0x17]: C0x008e.0x2.0
0x1abc54…1abde8 [0x18]: C0x008e.0x3.0
0x1abc54…1abde8 ]
0x1abc54…1abde8 }
0x1abde8…1abf7c Dummy {f00=0x0080, f01=0x4110, f02=» > @ IDENT FMOVE P,REL=11.0,810128,870136941100 FMOVE F FMOVE V I:EVA0 h I:EVA5 z , ( B & + P I:RT1 _ P (
0x1abf7c…1ac110 Dummy {f00=0x0080, f01=0x40cc, f02=» > @ IDENT TYPET P,REL=11.0,810128,870136941100 TYPET F TYPET V I:EVA0 h I:RT1 z ( $ D ;d # + @ :RT1 RETURN TO INTERPRETER P END @
0x1ac110…1ac2a4 Dummy {f00=0x0080, f01=0x40fc, f02=» > @ IDENT ICLEAR P,REL=11.0,810128,870136941100 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x1ac2a4…1ac438 Dummy {f00=0x0080, f01=0x411c, f02=» > @ IDENT EMPTYT P,REL=11.0,810128,870136941100 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x1ac438…1ac5cc Dummy {f00=0x0080, f01=0x0190, f02=» > @ IDENT T:STIN P,REL=11.0,810128,870136941100 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R ~ T:RNOK , ( W R P _ Y $ T:LOFS I:E
0x1ac5cc…1ac760 Dummy {f00=0x0080, f01=0x0190, f02=» h , ( u [ z [ }T 0W 3R V : , ( %W X $ X " R W V 8 , ( R W V % _ [ h I:MOV , ( " D $ D Z P Z T:GRFC , ( @ % z " * {
0x1ac760…1ac8f4 (3, 2) Dummy {f00=0x0080, f01=0x402e, f02=» V P @ *
0x1ac8f4…1aca88 Dummy {f00=0x0080, f01=0x0190, f02=» > @ IDENT T:STOU P,REL=11.0,810128,870136941100 STROU1 F STROU1 X T:STEV l T:LOFS ~ * & @ X x & Y " I:EVA0 T:LOPS , ( !0P <
0x1aca88…1acc1c Dummy {f00=0x0080, f01=0x40fe, f02=»R W V r T:DUPX T:GRFC $ , ( y & Y $ 8 " X X 6 T:ROK f T:RNOK v $ x ( y $ 4 0 1P< ;T( AT GW$ WP cW mW wP R W V, @ !0P <
0x1acc1c…1acdb0 Dummy {f00=0x0080, f01=0x40f4, f02=» > @ IDENT T:STEV P,REL=11.0,810128,870136941100 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ , ( H Y Y & ( : & @ P RTN PS P I
0x1acdb0…1acf44 Dummy {f00=0x0080, f01=0x0190, f02=» > @ IDENT T:EDFL P,REL=11.0,810128,870136941100 T:EDFL F T:EDFL X T:PRKB l T:PRDY ~ T:PM1 T:PM2 T:CASP , ( I$ Y , ( ( x P Y *
0x1acf44…1ad0d8 Dummy {f00=0x0080, f01=0x0190, f02=» X 0 v , ( s P X T 5 ! Y * T:SCUW F T:CLRD X , ( y X V X X ( j , ( x C ( Y * , ( X Y , X X C & , ( C
0x1ad0d8…1ad26c Dummy {f00=0x0080, f01=0x018e, f02=» X l , ( I *YrP y X " x Y X " T T:BELL < , ( i Y _ _ B U C Q N T:CLR1 ~ T:CLR2 , ( P C D X , ( X * $" ~_> @ Y X * _R X , (
0x1ad26c…1ad400 Dummy {f00=0x0080, f01=0x0190, f02=» , ( ! @ " X # X * y _< X , ( ? # X * y X 1 1 4 , ( ] X !@T X $ " P y d T:CLIT T:EKEY , ( } @ _ x T X H , ( X X * , )$ P
0x1ad400…1ad594 (3, 3) Dummy {f00=0x0080, f01=0x405c, f02=»T {U Q < V P eT uP T P F@ X
0x1ad594…1ad728 Dummy {f00=0x0080, f01=0x0190, f02=» > @ IDENT T:DYKI P,REL=11.0,810128,870136941100 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL F T:DYKI T:PRKB T:PRDY I:EVA7 * & H ' Y
0x1ad728…1ad8bc Dummy {f00=0x0080, f01=0x0190, f02=» X l T:CASP * & y ! T _ y C Q " T T:CLRD L , ( X ! X ^ , ( X ! x Y~ Y _ X "@P B , ( R y C B P 9 V _F9 , ( V X ! T X !@X
0x1ad8bc…1ada50 Dummy {f00=0x0080, f01=0x0190, f02=» B y " y $ c C T:CLR1 X & T:CLR2 f : T:SCUW N , ( Q _$ _ y _6 ( x X@ X ` , ( qA X # C _. B , ( ]d P C Q X8_H x XD @ Y , ( c C y
0x1ada50…1adbe4 Dummy {f00=0x0080, f01=0x0190, f02=» T:IOWR , ( # B P B C : T:CLIT : F , ( ' + X Z T:LOFS I:EVA0 T:LOPS T:CLMI , ( A ( ( T:P
0x1adbe4…1add78 Dummy {f00=0x0080, f01=0x4104, f02=» , ( B Y Y . : & " " $ : 8 H D ! ! n # aTf i mR s J }T Q T Z P R P V b < 8 ` VV T 'P +Q( [ * P Q8 Z P & a j {V P @ T:P
0x1add78…1adf0c Dummy {f00=0x0080, f01=0x0190, f02=» > @ IDENT T:UPDF P,REL=11.0,810128,870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x1adf0c…1ae0a0 Dummy {f00=0x0080, f01=0x4032, f02=» =T P @ .870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x1ae0a0…1ae234 (3, 4) Dummy {f00=0x0082, f01=0x018e, f02=» > @ IDENT T:DUPL P,REL=11.0,810128,870136941100 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x1ae234…1ae3c8 Dummy {f00=0x0082, f01=0x4052, f02=» UD : CT OV $ ` <@ N:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x1ae3c8…1ae55c Dummy {f00=0x0082, f01=0x4140, f02=» > @ IDENT T:GETC P,REL=11.0,810128,870136941100 T:GETC F T:GETC X T:GRFC l I:EVA0 ~ , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x1ae55c…1ae6f0 Dummy {f00=0x0082, f01=0x4124, f02=» > @ IDENT T:GETA P,REL=11.0,810128,870136941100 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x1ae6f0…1ae884 Dummy {f00=0x0082, f01=0x410e, f02=» > @ IDENT T:TSTC P,REL=11.0,810128,870136941100 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ T:RTES $ H @ % , 4 @
0x1ae884…1aea18 Dummy {f00=0x0082, f01=0x0190, f02=» > @ IDENT T:TFWD P,REL=11.0,810128,870136941100 D @ T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM F T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T
0x1aea18…1aebac Dummy {f00=0x0082, f01=0x4132, f02=» Y ( Y 09H Y * T:TABE * & = Y 4 Y 2 Y 69h Q X :h Y 0 2 T:SCR2 ` T:TABC r , ( [ W U X Q W Y 0 T:TABN w 8 4 W W W W W W !W MQ ]W
0x1aebac…1aed40 Dummy {f00=0x0082, f01=0x0190, f02=» > @ IDENT T:DISP P,REL=11.0,810128,870136941100 T:PRIN T:DISP T:ERAS F T:PRIN h T:GDSP | T:DSM T:EDWI T:GRFC , ( D 9H Y T:GTIP T
0x1aed40…1aeed4 (3, 5) Dummy {f00=0x0082, f01=0x0190, f02=» 0 X +" X *9h P R , ( Q Y ?_ P P Y +W T:TABD P , ( q Y + W T W b , ( Q W Y + U T:TABC , ( Q P W W Y ( C T
0x1aeed4…1af068 Dummy {f00=0x0082, f01=0x4146, f02=» h , ( 0 X 0 X 2] X 8 Y 0 : X 0 T:WRDY 8 , ( % :H* : X 2T Y 2 : J T:EDIO z $ C @ C 1 B ] : H D ! !W %W KP2 OR YP _P gW^ k < w . }WL T . W> Q W , ( U
0x1af068…1af1fc Dummy {f00=0x0082, f01=0x0190, f02=» > @ IDENT T:GETF P,REL=11.0,810128,870136941100 T:GETF T:GTIT T:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x1af1fc…1af390 Dummy {f00=0x0082, f01=0x405a, f02=» 0 p W 6 2 : ! ( U ! 0 d ! D@ ! V:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x1af390…1af524 Dummy {f00=0x0082, f01=0x0190, f02=» > @ IDENT T:REWR P,REL=11.0,810128,870136941100 " . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP " F T:IOWR " x T:SCUW " , ( C ( C : " T:CLRD * " T:REWR 0 " T:PRDY " ,
0x1af524…1af6b8 Dummy {f00=0x0082, f01=0x4160, f02=» _ X D D : K " I:EVA3 # 0 I:EPIC # B , ( } $ + Q 2 P P # T T:LOPS # , ( ( B X # V # I:EVA0 # I:ECPY # I:EVI # , ( :
0x1af6b8…1af84c Dummy {f00=0x0082, f01=0x0190, f02=» > @ IDENT T:DEDT P,REL=11.0,810128,870136941100 $ . * T:TABC T:TABD T:TABE T:TABN T:SCR2 $ F I:EVNO $ x I:ESKI $ I:EVA0 $ I:EBRI $ I:EBRB $ I:EBR $ , (
0x1af84c…1af9e0 Dummy {f00=0x0082, f01=0x0190, f02=» $ z T:DSL % I:RET % * T:TABC * % : T:TABD . % N T:TABE 2 % b , ( ! W W X % v T:EDWI % , ( 7 0Q Y ( Y *P % I:EVT % I:EDSK % *
0x1af9e0…1afb74 (3, 6) Dummy {f00=0x0083, f01=0x0190, f02=» X 0P V _` " P T & % T:LOPS & , , ( (W " P Y 0] Y & > T:EDWF & n , ( (_t " X _. * X *# P B & , ( 1 *W " P X & T:SCR2 & * & X$ C : X
0x1afb74…1afd08 Dummy {f00=0x0083, f01=0x40a4, f02=» y 6 Y ( : X (;n . & H D ! -W 1W 9Q = A MP Qp P P: Vp P4 T WT P P W ' " P P -W 5T 9W ' n V ' @ ' P B & , ( 1 *W " P X & T:SCR2 & * & X$ C : X
0x1afd08…1afe9c Dummy {f00=0x0083, f01=0x0190, f02=» > @ IDENT T:ENLI P,REL=11.0,810128,870136941100 ( T:DNL T:DSL ( F I:EVNO ( I:ECPY ( n I:EPIC ( I:ETXT ( I:ETAB ( I:EBRI ( I:EBRB ( I:EBR ( * &
0x1afe9c…1b0030 Dummy {f00=0x0083, f01=0x0190, f02=» ( I:ESKI ) . I:EXPY ) @ I:RET ) R T:DSL * ) b T:GRFC ) t , ( ! " $ & Y . Y , ) T:DNL 8 ) , ( 7 W & Y . X ( X ." P X 0R ) T:WRDY ) ,
0x1b0030…1b01c4 Dummy {f00=0x0083, f01=0x417a, f02=»CTR ) , ( @ X 2Q Y *T . : " P X * , ( 0U X *# P P T " * < T:ENIN * l , ( T : Y . 0 Y ( * ~ , ( & Y *T " T ! 1 W ! ) * . : * H D ! 8 # * 7W
0x1b01c4…1b0358 Dummy {f00=0x0083, f01=0x0190, f02=» > @ IDENT T:EINP P,REL=11.0,810128,870136941100 + " T:PKI T:PINP T:TKI T:TINP + F T:PKI + l T:PINP + ~ T:GRFC + I:ETAB + I:EVIN + , ( I P & + , ( Y *T
0x1b0358…1b04ec Dummy {f00=0x0083, f01=0x0190, f02=»Q X &P V D ! P + | T:TINP , T:TKI , 0 * & u $ ! P %_ : , B , ( V Y " X .9H $ , p , ( P & X ( " Q Y +Q R , , ( " P W " U Y , " Q X . , , (
0x1b04ec…1b0680 Dummy {f00=0x0083, f01=0x0190, f02=» M X (# P X # :! R W , T:ENIN - 0 T:ENI - B * & m T @ Y (W Y , W - R I:EXIT - , ( Y ( : X *:h X (! - , ( # P X & V L T W X , X 0 - , ( P T X *
0x1b0680…1b0814 (3, 7) Dummy {f00=0x0083, f01=0x0190, f02=» , ( @ % P Y 8 & X 8 X $ . , ( E@ W _ " P X ( T X & V . 4 , ( c H "@T P V Y . d , ( X (P X ( . T:CLMI . , ( P 8 Y 0 X 2P X . , (
0x1b0814…1b09a8 Dummy {f00=0x0083, f01=0x0190, f02=» P : : . x , ( "0P $ T W %T / , ( ; : : Y ( X $ Y X " Y X & / H , ( [ Y X < Y > : Y : X : / x , ( y X ( T X & V H " V / T:CLDY / ( $ Y : X $ X :
0x1b09a8…1b0b3c Dummy {f00=0x0083, f01=0x4110, f02=»Pl Pf %P +P / 3P< / b H D ! 7 @ 9WZ IP< KQ SP2 aR$ cW g @ k oT$ wW W P Tb W P@ 0 H D ! T, T @ P !P* ) -P| IWh QP [T kTF o sP6 P h 0 j @ < A P P V T P P #P )T -W 1T T V 0 0
0x1b0b3c…1b0cd0 Dummy {f00=0x0083, f01=0x0190, f02=» > @ IDENT T:ENIN P,REL=11.0,810128,870136941100 1 T:ENIN T:ENI T:EVOU 1 F T:ENIN 1 f T:ENI 1 z , ( X Y " X Y $ X Y & X >W X 1 T:LOFS 1 , ( ! < Y = " 1 I:EGTB
0x1b0cd0…1b0e64 Dummy {f00=0x0083, f01=0x0190, f02=» X (P 1 n T:WRDY 2 , ( W X & V D ! P @ W X 2 , ( W Y ( : X , Y X $ Y 2 P , ( X &T Y Y Y W V $ 2 , ( :H D Y D :H Y ! P V 2 I:EVA0 2 I:EVA1 2 , (
0x1b0e64…1b0ff8 Dummy {f00=0x0083, f01=0x411a, f02=» 2 , ( Q : 2' " P T 3 I:EVA3 3 8 I:EPIC 3 J , ( mD W : N : 3 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 3 ( $ P W )P /W A X aP gT qW 3
0x1b0ff8…1b118c Dummy {f00=0x0083, f01=0x415c, f02=» > @ IDENT T:SETC P,REL=11.0,810128,870136941100 4 T:SETC T:SCUR 4 F T:SETC 4 ` T:PRDY 4 t T:GRFC 4 T:EDWI 4 T:RCTS 4 , ( H C 4 T:SCUR 4 T:WRD
0x1b118c…1b1320 Dummy {f00=0x0083, f01=0x40e2, f02=» > @ IDENT T:CLMI P,REL=11.0,810128,870136941100 5 T:CLMI 5 F T:CLMI 5 X , ( "0P ' Q W ' 5 l ! Y : 5 P Q W 5 ( 5 @ 5 A2,0 PCLRM20 EQU * P SCR
0x1b1320…1b14b4 (3, 8) Dummy {f00=0x0083, f01=0x0190, f02=» > @ IDENT T:ATTF P,REL=11.0,810128,870136941100 6 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY 6 F T:CLDY T:PRKB T:PRDY 6 T:DETF 6 T:ATTF 6 I:EVA6 6 I:FFSN 6 , (
0x1b14b4…1b1648 Dummy {f00=0x0083, f01=0x0190, f02=» Y Y Y < V E B 6 T:RNOK < 7 . T:GRFC @ 7 B T:WRDY H 7 V T:EDIO 7 j * & ; X _ v : C C 7 | T:CLDY 7 T:PRKB l 7 , ( Y @ : C : @ 7 T:P
0x1b1648…1b17dc Dummy {f00=0x0083, f01=0x4020, f02=»W 7 8 @ 8 B 6 T:RNOK < 7 . T:GRFC @ 7 B T:WRDY H 7 V T:EDIO 7 j * & ; X _ v : C C 7 | T:CLDY 7 T:PRKB l 7 , ( Y @ : C : @ 7 T:P
0x1b17dc…1b1970 Dummy {f00=0x0083, f01=0x0190, f02=» > @ IDENT T:LSEG P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x1b1970…1b1b04 Dummy {f00=0x0083, f01=0x401a, f02=» f : @ : G P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x1b1b04…1b1c98 Dummy {f00=0x0083, f01=0x4146, f02=» > @ IDENT T:DC00 P,REL=11.0,810128,870136941100 ; DCREAD DCWRTE DCEXCH ; F T:FDS0 ; h DCREAD ; z T:DCR1 ; DCWRTE ; T:DCW1 ; DCEXCH ; T:DCE1 ; , ( I$
0x1b1c98…1b1e2c Dummy {f00=0x0083, f01=0x40aa, f02=» > @ IDENT T:SWI0 P,REL=11.0,810128,870136941100 < SWITCH < F T:SWIT < X SWITCH < j @ < ~ < @ < ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x1b1e2c…1b1fc0 Dummy {f00=0x0083, f01=0x40da, f02=» > @ IDENT T:TEI0 P,REL=11.0,810128,870136941100 = TESTIO ABORT = F T:TEST = ^ TESTIO = p T:ABOR = ABORT = H = = @ = . P*
0x1b1fc0…1b2154 (3, 9) Dummy {f00=0x0083, f01=0x40de, f02=» > @ IDENT T:CLO0 P,REL=11.0,810128,870136941100 > SETTIM GETTIM > F T:SETT > ` SETTIM > r T:GETT > GETTIM > H > > @ > . P*
0x1b2154…1b22e8 Dummy {f00=0x0083, f01=0x40a6, f02=» > @ IDENT T:DEL0 P,REL=11.0,810128,870136941100 ? DELAY ? F T:DELA ? V DELAY ? h @ ? z ? @ ? * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x1b22e8…1b247c Dummy {f00=0x0083, f01=0x40aa, f02=» > @ IDENT T:GTI0 P,REL=11.0,810128,870136941100 @ GETTID @ F T:GETI @ X GETTID @ j @ @ ~ @ @ @ ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x1b247c…1b2610 Dummy {f00=0x0083, f01=0x0190, f02=» > @ IDENT T:DC P,REL=11.0,810128,870136941100 A 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 A F T:DCRE A T:GDSP A T:DCR1 A T:DCWR A T:DCW1 A T:EDIO A , ( @@ /
0x1b2610…1b27a4 Dummy {f00=0x0083, f01=0x40ca, f02=»:EVA0 A , ( 7 ' / C B , ( Q$ C B > & " k &P C & C : B n V W V 1 V B B @ B T:DCW1 A T:EDIO A , ( @@ /
0x1b27a4…1b2938 Dummy {f00=0x0083, f01=0x40b6, f02=» > @ IDENT T:SWI P,REL=11.0,810128,870136941100 C T:SWIT C F T:SWIT C X I:RT1 C l ( C | C @ C E LEVEL P* PT:SWIT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET
0x1b2938…1b2acc Dummy {f00=0x0083, f01=0x4174, f02=» > @ IDENT T:TEI P,REL=11.0,810128,870136941100 D T:TEST T:ABOR D F T:TEST D ` T:GDSP D t I:RT1 D T:ABOR D * & @ "Q V I D T:KIAA D , ( ( T
0x1b2acc…1b2c60 Dummy {f00=0x0083, f01=0x4178, f02=» > @ IDENT T:CLO P,REL=11.0,810128,870136941100 E & " T:SETT T:GETT T:SETD T:GETD E F T:SETT E p I:EVA0 E I:RT1 E T:GETT E * & @ ( E T:SETD . E , (
0x1b2c60…1b2df4 (3, 10) Dummy {f00=0x0084, f01=0x40d0, f02=» > @ IDENT T:DEL P,REL=11.0,810128,870136941100 F T:DELA F F T:DELA F X I:EVA0 F l I:RT1 F ~ ( $ @ ( F F @ F RY * P LDK WK1,2 NOT BINARY; SET ERROR CODE P
0x1b2df4…1b2f88 Dummy {f00=0x0084, f01=0x40cc, f02=» > @ IDENT T:MSK0 P,REL=11.0,810128,870136941100 G MASK G F MASK G V I:EVA0 G h I:RT1 G z ( $ D V G G @ G TYPE? P RF(NZ) MSK010 NOT BINARY P XIF P
0x1b2f88…1b311c Dummy {f00=0x0084, f01=0x0190, f02=» > @ IDENT T:SCD P,REL=11.0,810224,870136941100 T:ACTV T:PAUS T:RSTR F T:ACTV h , ( 2 ;B P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x1b311c…1b32b0 Dummy {f00=0x0084, f01=0x408e, f02=» ( W V x I:RT1 y V I ( ( $ ( P0 #T + X ?W6 I X WW uW V L x@ P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x1b32b0…1b3444 Dummy {f00=0x0084, f01=0x0190, f02=» > @ IDENT T:UNUS P,REL=11.0,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x1b3444…1b35d8 Dummy {f00=0x0084, f01=0x402a, f02=» 5RF OQ0 @ &,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x1b35d8…1b376c Dummy {f00=0x0084, f01=0x4096, f02=» > @ IDENT T:EXIT P,REL=11.0,810128,870136941100 N T:EXIT N F T:EXIT N X ( N l N @ N KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x1b376c…1b3900 Dummy {f00=0x0084, f01=0x413a, f02=» > @ IDENT T:GTCW P,REL=11.0,810128,870136941100 O GETCW O F T:GDSP O V GETCW O h I:EVA0 O z T:BINB O * & H V 0V B B O T:GTCW O I:RT1 O W
0x1b3900…1b3a94 (3, 11) Dummy {f00=0x0084, f01=0x40cc, f02=» > @ IDENT T:GTID P,REL=11.0,810128,870136941100 P T:GETI P F T:GETI P X I:EVA0 P l I:RT1 P ~ $ @ V G 9h ' P P @ P VALUE " P SC WK1,1,OP2A STORE FOR USER P SRL WK1
0x1b3a94…1b3c28 Dummy {f00=0x0084, f01=0x4184, f02=» > @ IDENT T:DMR P,REL=11.0,810128,870136941100 & " T:DREA T:IREA T:XREA T:IXID F T:DREA p T:REAX T:SCW2 T:IO2 T:IREA , ( $ T:XREA
0x1b3c28…1b3dbc Dummy {f00=0x0084, f01=0x0190, f02=» > @ IDENT T:DMW P,REL=11.0,810128,870136941100 > : T:SWRI T:DWRI T:IWRI T:XWRI T:DREW T:CREW T:IREW F T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI , ( / W
0x1b3dbc…1b3f50 Dummy {f00=0x0084, f01=0x40a2, f02=» T:CREW > T:IREW L , ( 5D" / / ( M X W | @ RIX T:IO1 T:XWRI T:DWRI , ( / W
0x1b3f50…1b40e4 Dummy {f00=0x0084, f01=0x416a, f02=» > @ IDENT T:DMDI P,REL=11.0,810128,870136941100 T:DDIS T:CDIS T:IDIS F T:DDIS h T:DSB | T:SCW2 T:IO2 T:CDIS , ( $ C <H / T:IDIS
0x1b40e4…1b4278 Dummy {f00=0x0084, f01=0x4162, f02=» > @ IDENT T:DMPO P,REL=11.0,810128,870136941100 T:DPOS T:IPOS F T:DPOS ` T:DSB t T:SCW2 T:GTBY T:IO2 , ( H@ C <H / T:IPOS T:WRIX
0x1b4278…1b440c Dummy {f00=0x0084, f01=0x0190, f02=» > @ IDENT T:DCC P,REL=11.0,810128,870136941100 X F B T:COPE T:COP1 T:CCLO T:CCL1 T:CCL2 T:ACON T:ACO1 T:ACO2 X F F B T:ACO3 T:PCON T:PCO1 T:PCO2 T:DISC T:DIS1 T:DIS2 T:DIS3 X T:DIS4 T:OPT X T:COPE X
0x1b440c…1b45a0 Dummy {f00=0x0084, f01=0x018e, f02=» T:CCLO " X T:CCL1 & Y T:CCL2 * Y & , ( W W /" C Y : T:ACON P Y j T:ACO1 T Y ~ , ( 7 C C P P _2 W Y T:ACO2 X Y T:ACO3 Y T:PCON f Y T:PCO1
0x1b45a0…1b4734 (3, 12) Dummy {f00=0x0084, f01=0x0190, f02=» T:DIS3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x1b4734…1b48c8 Dummy {f00=0x0084, f01=0x400c, f02=» Z @ [ 3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x1b48c8…1b4a5c Dummy {f00=0x0084, f01=0x0190, f02=» > @ IDENT T:DCR P,REL=11.0,810128,870136941100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x1b4a5c…1b4bf0 Dummy {f00=0x0084, f01=0x403a, f02=» v W P #W 3P ] D ] $@ ] 61100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x1b4bf0…1b4d84 Dummy {f00=0x0084, f01=0x0190, f02=» > @ IDENT T:DCS P,REL=11.0,810128,870136941100 ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x1b4d84…1b4f18 Dummy {f00=0x0084, f01=0x403e, f02=» _* ^ t W P %W 7P _ H _ (@ _ : ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x1b4f18…1b50ac Dummy {f00=0x0084, f01=0x018e, f02=» > @ IDENT T:IO P,REL=11.0,810713,870136941100 J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 D @ T:IO5 T:FDS0 T:FDSP T:GDSP T:KIPR
0x1b50ac…1b5240 Dummy {f00=0x0084, f01=0x0190, f02=» p T:KI T:NKI T:WRIT , T:WRIL @ T:LWRI T , ( W / h T:WRIX " T:WRIO & I:EVA0 , ( ! _ C P <H T:S
0x1b5240…1b53d4 (3, 13) Dummy {f00=0x0084, f01=0x0190, f02=» V C / <H : C T:DSC1 " , ( } C W C 9HR 6 T:DSC2 f , ( ' W 781"&$ 39#$;< '()*+,-! z T:XSTA , ( P _J T:WAIT T:M
0x1b53d4…1b5568 Dummy {f00=0x0084, f01=0x0190, f02=» ( v , ( 7 0 W T:IO1 F T:IO2 ` X T:IO3 d j T:IO5 p | T:IORE t , ( W : 1W C C ( ' P T:GCW2 , ( w @ P V ,V W B
0x1b5568…1b56fc Dummy {f00=0x0084, f01=0x0190, f02=» I:EDW , ( B P B P B 5 : T:EDWE > T:EDWF R , ( @ C C C B f T:EDWI , ( B P C : V I C T:EDIO , ( B : (
0x1b56fc…1b5890 Dummy {f00=0x0084, f01=0x018e, f02=» & R r , ( i V C : B T:FDS0 B , ( T T T V : 2 V T:GDSP P:MTAB I:EVTO * & ' W 2 6 2 @ & " T # ' ?D I:FML , ( @
0x1b5890…1b5a24 Dummy {f00=0x0084, f01=0x0190, f02=» , ( : _: L C L C T:DSB ( 8 T:FDSP 2 J , ( B C : : : ^ T:GTBY L , ( ? C : : ( T:SCW2 T:DSCX j I:EVA2 ,
0x1b5a24…1b5bb8 Dummy {f00=0x0084, f01=0x413a, f02=» W 6 d " % ( - < 1P G L K ` O ( S < _P eV u ( y L H D !V W X R W X < P W W| L [W sP0 H H D ! w }P& V W P z P P P )P - z @ < 9 ( = < cR iV T T T W T
0x1b5bb8…1b5d4c Dummy {f00=0x0084, f01=0x0190, f02=» > @ IDENT T:CW P,REL=11.0,810615,870136941100 F B T:GCW2 T:GTCW T:SCW2 T:STCW T:SCW0 T:BCDB T:BINB T:KIAA F T:KIAC T:STCW I:EVA2 T:SCW0 , ( @ #0 T & C C : C
0x1b5d4c…1b5ee0 Dummy {f00=0x0084, f01=0x0190, f02=» X R _ S W T:GTCW , ( 4 _T :#0 T B 'W B B 4 T:BINB d , ( " : x , ( P P L R R , ( _ R _ # Q R , (
0x1b5ee0…1b6074 (3, 14) Dummy {f00=0x0085, f01=0x0190, f02=» h , ( _ B@ ' d w5 1 T:KIAA 8 T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x1b6074…1b6208 Dummy {f00=0x0085, f01=0x404e, f02=» X R R Q P 'P 7P GR T P T 8@ J T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x1b6208…1b639c Dummy {f00=0x0085, f01=0x40d0, f02=» > @ IDENT T:LEN P,REL=11.0,810128,870136941100 l GETLEN l F GETLEN l X I:EVA0 l l I:RT1 l ~ ( $ A #03 1 l l @ l XIF * % LDR A4,OP2A SAVE ADDR. TO RETURNITEM
0x1b639c…1b6530 Dummy {f00=0x0085, f01=0x0190, f02=» > @ IDENT T:ADIT P,REL=11.0,810128,870136941100 m & " T:RREA T:RRE1 T:RWRI T:RWR1 m F T:RREA m p T:DSB m T:RRE1 m I:EVA0 m T:STCW m , ( A &P C m T:IO2 m
0x1b6530…1b66c4 Dummy {f00=0x0085, f01=0x4034, f02=» : m t 6 + 6 n F n @ n 0
0x1b66c4…1b6858 Dummy {f00=0x0085, f01=0x0190, f02=» > @ IDENT T:KIA P,REL=11.0,810128,870136941100 o T:KIA T:NKIA o F T:KIA o ^ T:NKIA o p T:ABUF o T:KIPR o , ( W 6 V :a o , ( ' ( ( o
0x1b6858…1b69ec Dummy {f00=0x0085, f01=0x0190, f02=» y K V K V 6V ( - o , ( _ : J 7 J V W J p , , ( :A V 6V $ - _ * p , ( + : D T E D :A D p , ( ;A 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x1b69ec…1b6b80 Dummy {f00=0x0085, f01=0x40c8, f02=» D V p p , ( @ m D V ( 2 C C q _, q @ H D !r W ^ - 2 IT MP Y V V T> Q U ! R /P 7P ?W q R [R ]P q q @ q 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x1b6b80…1b6d14 (3, 15) Dummy {f00=0x008a, f01=0x4098, f02=» > @ IDENT T:ABUF P,REL=11.0,810128,870136941100 r T:ABUF r F M r X T:ABUF r n r @ r IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x1b6d14…1b6ea8 Dummy {f00=0x008a, f01=0x414a, f02=» > @ IDENT WRITEL P,REL=11.0,810128,870136941100 s WRITEL s F WRITEL s X T:FDS0 s l T:DSM s ~ I:EVA0 s , ( H / C s T:IO2 s , ( @ &P C & C
0x1b6ea8…1b703c Dummy {f00=0x008a, f01=0x0190, f02=» > @ IDENT I:NTP P,REL=11.0,810630,870136941100 B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 F I:MOV I:ADD I:SUB I:CMP I:MUL * & T
0x1b703c…1b71d0 Dummy {f00=0x008a, f01=0x0190, f02=»:DLT I:MCH I:XCP I:EDS , , ( / < I:TRC l I:RST D ~ T:CSEG I:NTPA H I:NTPB H P:MTAB , ( A V 7 @ " ! P
0x1b71d0…1b7364 Dummy {f00=0x008a, f01=0x0190, f02=» 9c D 9a1 P I:EVA2 $ * & $ & Q W 6 I:RT2 d I:RT1 v I:RT0 , ( :aW _J( 2 P T:BAT , ( V W _ 2 # ;B V T ,
0x1b7364…1b74f8 Dummy {f00=0x008a, f01=0x0190, f02=» 8 j T:PAT , ( M ^n D . V @ 2 ! 9B V T , ( m@ *W V P D $ V 6 V J , ( % V E W 2 % z T:CAT , ( ^ 6 E 7_ 2 # L , ( , $ 2#
0x1b74f8…1b768c Dummy {f00=0x008a, f01=0x4170, f02=» W F z I:EVB , ( P E . V & * c H L 'W 'W '_8 Z H D ! H L D ! # % ' ) + - = l ~ H D ! ? h A r C t [P eP q r T P Q W W P W8 T
0x1b768c…1b7820 Dummy {f00=0x008a, f01=0x018e, f02=» > @ IDENT I:EVA P,REL=11.0,810128,870136941100 y J F " I:EVA0 I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:EVA6 I:EVA7 I:EVB I:EVI y F I:FML I:EVTO y P:MTAB y , ( :l:d:h y I:EVA2 y I:E
0x1b7820…1b79b4 (3, 16) Dummy {f00=0x008a, f01=0x0190, f02=» y f , ( 9 # W @ $ E " T ; [ z , ( W # :H 2 T Z L z 8 , ( @ w L D V W # z h , ( L D V $ W D V z I:EVA0 z , ( @ L , W 6 2 W " z
0x1b79b4…1b7b48 Dummy {f00=0x008a, f01=0x0190, f02=» Z Z z , ( 3 : R ; { 0 , ( S 6 : F _v :B , { ` , ( s (V ; H [ [ [ { , ( z ;AV Z H # { , ( ;
0x1b7b48…1b7cdc Dummy {f00=0x008a, f01=0x0190, f02=» & @ $ ! P { , ( 1 [ 6 [ Z 7 . Z | I:FML ^ | P , ( Q 7 : T # ( | b I:EVTO | , ( H q : " T # :A ( | , ( @ @ & " P ! P [ :;H 2 | , (
0x1b7cdc…1b7e70 Dummy {f00=0x008a, f01=0x40f4, f02=» " # ^;b ; | : ;f" #?_" } * H D ! #W 'W -P 1W = ?W4 KT> [ ^ kT V, W ^ V W W } J D @ W$ P& Pd ^ Wv yVv V$ P P P R W& } } @ } :;H 2 | , (
0x1b7e70…1b8004 Dummy {f00=0x008a, f01=0x0190, f02=» > @ IDENT I:ADS P,REL=11.0,810128,870136941100 ~ I:ADD I:SUB ~ F I:ADD ~ I:SUB ~ n , ( W " T & T + : ~ I:CPA ~ , ( ! * & !@P `1` P Q ~ " ? [
0x1b8004…1b8198 Dummy {f00=0x008a, f01=0x0190, f02=» $ P T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x1b8198…1b832c Dummy {f00=0x008a, f01=0x4008, f02=»@ T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x1b832c…1b84c0 Dummy {f00=0x008a, f01=0x4166, f02=» > @ IDENT I:CMP P,REL=11.0,810128,870136941100 I:CMP F I:CMP V , ( P " T * & : * & h I:CPA , ( ! !`P :J +_ +Q , ( A _0 , T T XD W 1
0x1b84c0…1b8654 (3, 17) Dummy {f00=0x008b, f01=0x4172, f02=» > @ IDENT I:CPA P,REL=11.0,810128,870136941100 I:CPA F I:CPA V * & R W h , ( ( V W Q P W ! W V , ( ? P , V W Q P W $ W V * & _ P
0x1b8654…1b87e8 Dummy {f00=0x008b, f01=0x0190, f02=» > @ IDENT I:MOV P,REL=11.0,810209,870136941100 I:MOV I:MVC F I:MOV I:MVC n , ( $0#0;b P P P , ( ! 0 - P _ 4 , ( A V W Q P ) P ! P ! P
0x1b87e8…1b897c Dummy {f00=0x008b, f01=0x0190, f02=» p , ( _ ' d V W V , ( 4! P < X 4 @ , ( 9d $ & ! R + : p , ( ! V W R 4 0R Y 7 Y& , ( A P Z,;D 9_8 8 _< V , ( a
0x1b897c…1b8b10 Dummy {f00=0x008b, f01=0x4112, f02=» Q V V 7 Y P _& & Q , ( 9d! )0 + P 7 Y Z $ 0 _ : ` H D ! t P Pd P /PN IQ KP SP YP _P qP wT P Q x 4 0 R +R 1R CP P( T WJ V P. P
0x1b8b10…1b8ca4 Dummy {f00=0x008b, f01=0x4140, f02=» > @ IDENT I:MMOV P,REL=11.0,810128,870136941100 I:MMOV F I:MMOV X I:EVA2 l , ( 2' ~ I:EVA0 , ( [ [ Z I:MOV & " =
0x1b8ca4…1b8e38 Dummy {f00=0x008b, f01=0x0190, f02=» > @ IDENT I:MUL P,REL=11.0,810128,870136941100 I:MUL I:SH1L F I:MUL ^ , ( V ) " T *V &V p , ( ! : V S W P 9 S W _ , ( A V P W T V E + , ( a
0x1b8e38…1b8fcc Dummy {f00=0x008b, f01=0x0190, f02=» [ , ( P Z P [ 9a Z ( , ( $" T 9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x1b8fcc…1b9160 Dummy {f00=0x008b, f01=0x4066, f02=» l D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP P@ b9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x1b9160…1b92f4 (3, 18) Dummy {f00=0x008b, f01=0x0190, f02=» > @ IDENT I:DIV P,REL=11.0,810128,870136941100 I:DIV I:SH1R F I:DIV ^ , ( " T *V &V p ! P = , ( ' ;@ R P W ;a , ( G =a P " R & R
0x1b92f4…1b9488 Dummy {f00=0x008b, f01=0x0190, f02=» [ [ x I:MOV I:NTFA , ( &! P 0 I:SUB ` , ( z " ! ! p , ( R 2` { z " P ! R 2` { 1 I:CPA , ( ! { [ Z
0x1b9488…1b961c Dummy {f00=0x008b, f01=0x0190, f02=» { R [ _ , ( Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x1b961c…1b97b0 Dummy {f00=0x008b, f01=0x4040, f02=» 7Q CP W _Q@ sR Q* R W *@ < Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x1b97b0…1b9944 Dummy {f00=0x008b, f01=0x40da, f02=» > @ IDENT I:NTF P,REL=11.0,810128,870136941100 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x1b9944…1b9ad8 Dummy {f00=0x008b, f01=0x0190, f02=» > @ IDENT I:EDT P,REL=11.0,810128,870136941100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB I:FFSN I:EXPY I:RET , ( !!
0x1b9ad8…1b9c6c Dummy {f00=0x008b, f01=0x0190, f02=» I:EVA5 I:EVB I:EGTB I:EVI 2 I:EVA3 B I:EVA0 T * & AUT f I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * & Q T
0x1b9c6c…1b9e00 Dummy {f00=0x008b, f01=0x018e, f02=» , ( { 6 K K I:EDT 4 I:ED1 F I:EDW X , ( K K V K : j I:EVA6 , ( @ R B " V , ( V Z P 2 " T W
0x1b9e00…1b9f94 (3, 19) Dummy {f00=0x008b, f01=0x0190, f02=» , ( 7 Z [ Z P I:RET p 4 , ( W $ [ V 7_ F I:EXIT v v P:MTAB , ( u BW Z @ " &! P $ , ( Z 7 Z Z P $ I:FFSN
0x1b9f94…1ba128 Dummy {f00=0x008b, f01=0x018e, f02=» , ( P v I < : J I:ECPY 4 I:ETXT & H I:EXPY & , ( Q : P 4 ! T _ p I:ECTR 8 I:ESL B , ( + P 4 W K W W + I:ENL L
0x1ba128…1ba2bc Dummy {f00=0x008b, f01=0x4166, f02=» I:EFIL , ( i *W X & , J K : I:SCB H V : 1 Z H D ! U Y & [ e b g v i l k 6 m L s u B y & { p > > x H D ! @ P T W T W = SP uW P P R Q P Qx
0x1ba2bc…1ba450 Dummy {f00=0x008b, f01=0x0190, f02=» > @ IDENT I:EPIC P,REL=11.0,810625,870136941100 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ !FF A
0x1ba450…1ba5e4 Dummy {f00=0x008b, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:SCB : * & @ W :P # U 1 p !00T ; J , ( _ 9P F " X6# ; W x )0_: , ( J R Z R 4! P ;)0 , ( 9U ? Z
0x1ba5e4…1ba778 Dummy {f00=0x008b, f01=0x4120, f02=» } !++P !-- z ;$# + ^$ _* $ T tX. PT*AXYZ9 . H D ! ` %P +T /W 5T AP GT KW OR S P Wn W8 Wf V H D ! T& W, P T W F W@ P U T P W R( R P U ; ?U kP
0x1ba778…1ba90c Dummy {f00=0x008b, f01=0x0190, f02=» > @ IDENT I:EDTE P,REL=11.0,810128,870136941100 D @ I:EKIH I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNO F I:EGTD I:EGTB I:EKIH I:EINH I:ETAB I:EVIN , ( @
0x1ba90c…1baaa0 Dummy {f00=0x008b, f01=0x414e, f02=» ; W : ! )P9H # T &W I:EBR j , I:EBRB n > , ( Y &" :I : : P & R I:ESKI I:EVNO I:EGTD I:EGTB & " y _ &X _ : : : : 8 4 P
0x1baaa0…1bac34 (3, 20) Dummy {f00=0x008c, f01=0x40ea, f02=» > @ IDENT I:EDS P,REL=11.0,810128,870136941100 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x1bac34…1badc8 Dummy {f00=0x008c, f01=0x0190, f02=» > @ IDENT I:STR P,REL=11.0,810128,870136941100 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x1badc8…1baf5c Dummy {f00=0x008c, f01=0x0190, f02=» R # P W ) v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x1baf5c…1bb0f0 Dummy {f00=0x008c, f01=0x400e, f02=» @ v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x1bb0f0…1bb284 Dummy {f00=0x008c, f01=0x4152, f02=» > @ IDENT I:EVS P,REL=11.0,810128,870136941100 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x1bb284…1bb418 Dummy {f00=0x008c, f01=0x0190, f02=» > @ IDENT STRIX P,REL=11.0,810128,870136941100 STRIX STROUX USRFMT F I:EVNO f I:ESKI x I:EVA0 I:EBRI I:EBRB I:EBR , ( I:ECW
0x1bb418…1bb5ac Dummy {f00=0x008c, f01=0x0190, f02=» STRIN2 USRFLD STROUX . , STRIX 2 @ USRFMT 6 R , ( # W W f T:GRFC T:STEV , ( 7! Y * & Y + , ( Q 8 & Y 0 4 y 4
0x1bb5ac…1bb740 Dummy {f00=0x008c, f01=0x0190, f02=»VT I:EDSK * & " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x1bb740…1bb8d4 (3, 21) Dummy {f00=0x008c, f01=0x4022, f02=» R$ ` B @ " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x1bb8d4…1bba68 Dummy {f00=0x008c, f01=0x018e, f02=» > @ IDENT STRIN2 P,REL=11.0,810128,870136941100 STRIN2 F STRIN2 X , ( X x & Y " X R W l I:EXIT , ( ! V P _ y 6 : Y I:EVA0 T:CLMI , ( ?
0x1bba68…1bbbfc Dummy {f00=0x008c, f01=0x4150, f02=» , ( W V R W V % _ I:MOV 4 * & [ " D $ D D T:GRFC r * & Z P Z % z " * { $ X $ X y & : H D ! R W !V %P SP ]P* uT yW }R< V8
0x1bbbfc…1bbd90 Dummy {f00=0x008c, f01=0x0190, f02=» > @ IDENT STROU2 P,REL=11.0,810128,870136941100 STROU2 F STROU2 X I:EVA0 l , ( X x & Y " !0P <! ~ , ( T T W < X ! P , ( ? ?A W ?AW <! P
0x1bbd90…1bbf24 Dummy {f00=0x008c, f01=0x408a, f02=» I:EXIT " @ y $ : y 6 : 8 4 P6 !T$ 'T +W ;P EW MW WP mR qW uV* P 8 t@
0x1bbf24…1bc0b8 Dummy {f00=0x008c, f01=0x4094, f02=» > @ IDENT USRFLD P,REL=11.0,810128,870136941100 USRFLD F USRFLD X : l ~@ E P=IDIOT4 * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x1bc0b8…1bc24c Dummy {f00=0x008c, f01=0x0190, f02=» > @ IDENT T:DM P,REL=11.0,810209,870136941100 F B T:OPEN T:CLOS T:DCLO T:COMM T:PCOM T:ROLL T:RSTA T:OPCH F T:IXCH T:STCH T:OPEN T:DSB , ( @ 2 2 ! <e T:WRIO
0x1bc24c…1bc3e0 Dummy {f00=0x008c, f01=0x0190, f02=» T:DCLO Z T:COMM f I:EVA0 , , ( Y <H _ ( > I:RT1 n T:PCOM ~ T:GTBY * & u@ R ' T:GDSP , ( ,# ;
0x1bc3e0…1bc574 (3, 22) Dummy {f00=0x008c, f01=0x4092, f02=» T:OPCH T:STCH T:IXCH & & " $ _` C / : ;T {R R d |@ T:GTBY * & u@ R ' T:GDSP , ( ,# ;
0x1bc574…1bc708 Dummy {f00=0x008c, f01=0x0190, f02=» > @ IDENT T:USE P,REL=11.0,810224,870136941100 T:USE T:UERR T:UER F T:USE d I:EVA0 v * & 2 & >A >A 2 $ P:MTAB , ( & V D 9a 9 V , ( =D @ W
0x1bc708…1bc89c Dummy {f00=0x008c, f01=0x0190, f02=»_ X @ 9 X ( R , ( 9 8 ? X ( , ( Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x1bc89c…1bca30 Dummy {f00=0x008c, f01=0x4058, f02=»R R< V R Q" Rf T #R< %W, n +P& /W$ IT * f B@ T Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x1bca30…1bcbc4 Dummy {f00=0x008c, f01=0x2008, f02=» L = KMD15 DATE = 82 01 08 6876PACK NBR = 0001 @ 0 b ?
0x1bcbc4…1bcd58 Dummy {f00=0x008c, f01=0x0190, f02=» 8 M Gd Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P M G^ V H )_ M K _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 " !0 " " Tz *V &V
0x1bcd58…1bceec Dummy {f00=0x008c, f01=0x0190, f02=» 6 " [ [ [ [ $ [ [ &! P M M 8 M 8 M Gd z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z M IB Q M K P _ T { [ M M [ Q@ [ M Gd { R [ _ M G^ M K
0x1bceec…1bd080 Dummy {f00=0x008c, f01=0x0190, f02=» , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( P: : { : P"$0T O Pb 9 _ P"$0T [ P"$0T Z : R$ P $ 1T Y TdW 5 _& : P"$0TH
0x1bd080…1bd214 (3, 23) Dummy {f00=0x008e, f01=0x0190, f02=»!0 , !0P4 0 > R* 4 R :d" 8 R ! :DW ! 9 R R _. : X : #03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q4 R W Q$ : O #03 T $_X O _^ W !W # P p
0x1bd214…1bd3a8 Dummy {f00=0x008e, f01=0x0190, f02=» @PZP ( _ APZ APX PN ( @PV' $ * AP T( PN ( APR AP ( P p APR ) Y V AP` Pd V V 'N . 1 V 'H v 'H APR : P W P 2 Py 'H @ # T R 'H 'N & 'H
0x1bd3a8…1bd53c Dummy {f00=0x008e, f01=0x0190, f02=» ( APZ : ;a V P V P W h<a R 9a V 'n : #
0x1bd53c…1bd6d0 Dummy {f00=0x008e, f01=0x0190, f02=» * 2 @ " &A01 1 1 G@0_ A01 61 (,_ @0_ W& 4 0 41 W 4 0 41 W @0_8_RA0_>A01 1 1 1 61 6P 4 0 41 WD 4 0 41 W6 4 0 4 4 0 41 0 W 4 0 4 4 0 41 0 W _ @ _rH 0 _ A 4 4 4 4 4 A2 @24 1 1 8
0x1bd6d0…1bd864 Dummy {f00=0x008e, f01=0x0190, f02=»0 B0 3 3 3 22 3 W 0 2(2 _W 3 0 2 2 0 22 W&0 CA1!1 bI2 21 1 4 3 *0 C_,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ 2 71 FF:FF:6:::6:6_ A P 2 0 2_ 2 0 2 @ K2a_ 1 0 CX 3 Wb 0 0 0 2(2 1 ? 0 C 013R4*1 .(0 A1? 3 0 1 0
0x1bd864…1bd9f8 Dummy {f00=0x008e, f01=0x0190, f02=» 0 C D D0 30 3321 1 4 0 A1? 0 C0 30 33? 0 84 4 4 4 4 4 4 4 4 w > R K M u [ 0 2 4 6 8 : < > . 2 0 0 1 TLF:
0x1bd9f8…1bdb8c Dummy {f00=0x008e, f01=0x0190, f02=»POSTNR :STILLING: AF TASTENFUNKTION: PERSONNR: *** GOD FORNAF PTS 6000.FELT MANGLER SKRIV KOPI. BEM[RKNINGER:DATA-KVALITETS PAPIR BANE FOR AT STARTE S PAPIR BANE TEKST-KVALITET P T S 6 0 0 0EVT. C/O ADRESSE:UDSKRIVNING ENDEL INDTAST OPLYSNINGERRETUR TIL 1. BI
0x1bdb8c…1bdd20 Dummy {f00=0x008e, f01=0x0190, f02=»RMINAL SYSTEM PTS 6000UDSKRIVNING A4-ARK I FRONT-FEED FELTERNE AFSLUTTES MED TASTEN: ENTER. BYDER DEM VELKOMMEN TIL DENNE OFF-LINE VEJLEDNING: UDFYLD OPLYSNINGSFELTER, IDET P H I L I P S T E R M I N A L S Y S T E MEFTER INDTASTNING AF OPLYSNINGER KAN V[LGES VEJL
0x1bdd20…1bdeb4 (3, 24) Dummy {f00=0x008e, f01=0x0190, f02=» I , ; 7 8 ; 5 4 C 8 C 4 = 9 * * * N * * G 9 N * * N * * * @ E & 0 6 & A & % $ & $ / ' 9 B ( - & % $ . @ + @ E ( @' F & @'
0x1bdeb4…1be048 Dummy {f00=0x008e, f01=0x0190, f02=» 2 4 / 2 8 < / = O 9 2 # ( - 2 7 = C I O W ` i r { ( 6 G X i } % 2 ( W * +
0x1be048…1be1dc Dummy {f00=0x008e, f01=0x2008, f02=»
0x1be1dc…1be370 Dummy {f00=0x008e, f01=0x0190, f02=»***** ( h 2 P* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * ) 2 P********************************************* ) D P* ) z P* REFERENCED IN: DWTGEN ) P* ) , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ) ( P* A2 - POINTER TO REAL DWT ) *
0x1be370…1be504 Dummy {f00=0x008e, f01=0x018e, f02=»R - 2 ) p . P* A3 - BITS 12-15 CONNECTION TYPE * * P* BITS 4 -11 LINE NUMBER * @ P* WORK REGISTERS: * n P* * P* SUBROUTINES: * P* * PI:CHSZ EQU * * P IFF SALCUZ=0 * $ P CWK A6,8 CONNECTION NUMBER <=8? * P R
0x1be504…1be698 Dummy {f00=0x008e, f01=0x018e, f02=» 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT + $ P ANK A5,/3F CLEAR BITS TO MODIFY + 8 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER + ` " P SLL A3,4 MOVE TO BITS 4 - 11 + ( P ADK A3,2 ADD CONNECTION TYPE SALCUZ + . P ADKL A6,/0200 ADD CONNECTION TYPE
0x1be698…1be82c Dummy {f00=0x008e, f01=0x0190, f02=» + : P***************************************************** , 2 P* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * , F : P***************************************************** , | P* , P* REFERENCED IN: DWTGEN , P* , , P* ENTRY: A1 - POINTER TO
0x1be82c…1be9c0 Dummy {f00=0x008e, f01=0x0190, f02=»CTION NUMBER , v P* - * P* EXIT: A6 - CHANNEL PARAMETER - 1 - * P* A5 - CHANNEL PARAMETER - 2 - L . P* A3 - BITS 12-15 CONNECTION TYPE - z * P* BITS 4-11 LINE NUMBER - P* - P* WORK REGISTERS: - P* - P
0x1be9c0…1beb54 (3, 25) Dummy {f00=0x008e, f01=0x0190, f02=» @ r , ( q$ U A < + + * & P @ : ` < P @ B , ( < @ < @ < D (P p * & W H $ I T % E , a , ( < : @ Q A % @ , ( $
0x1beb54…1bece8 Dummy {f00=0x008e, f01=0x0190, f02=» * p , ( ? Q _8 A 0 A * , ( [H A , A . @ , @ . @ INTRT1 p , ( s$ P A . @ 2 E A , , ( @ * Q _8 : , ( !
0x1bece8…1bee7c Dummy {f00=0x008e, f01=0x0190, f02=»& >b : r * & N =H N " : N =H N , ( 7 " : &=H F " : F =H F @ GETNUM p , ( S@@ " : ? ? ^ > > : , ( o 4 P N =H N T , ( _ : @ ! P (W (
0x1bee7c…1bf010 Dummy {f00=0x008e, f01=0x0190, f02=» Q @ r , ( Q 1 a : @ 0 , ( @ 2 * P B * & / J # P _ :d Y @ r , ( M * Z A . P T , ( i _: @ 0 2T P , (
0x1bf010…1bf1a4 Dummy {f00=0x008e, f01=0x0190, f02=» J T J & P T X& >aW T , ( L& P T N&@P 0 , ( B @ 9 A J ] W @ ` , ( 3 9 A P _d @ 8P , ( O 0P _ 1 _ @ 8P 9 _ , ( m (T P _ 3
0x1bf1a4…1bf338 Dummy {f00=0x008e, f01=0x0190, f02=»= % : @ H , ( ";l H :lT ;A ( ( , ( P 5 _ ` R - P * & H_ : @ A : A , ( 3 : @ : A : P @ bPSW , ( K$ A @ : `
0x1bf338…1bf4cc Dummy {f00=0x008e, f01=0x0190, f02=» Y b : ~ V , H D !d P 0 ) 0 /WL 9P@ R6 P P P # P 7V SP( [T N H D ! T l T W V W V # * 'P0 + H 9U [ : cP0 g H uU H D !% P V T 9T A 6 CP ]
0x1bf4cc…1bf660 Dummy {f00=0x008e, f01=0x0190, f02=» * 'P + H I : QPd Y H sP$ { | P 6 T ~ H D ! * P~ + H A X MT YT gP o P 6 Tr P, : H D ! H U : P, # H 1U O 6 U sP U T P R 6 W H D !~ P0 H X : ! H ;P$ C | KP P T
0x1bf660…1bf7f4 (3, 26) Opaque[0x194]
0x1bf7f4…1bf988 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0f48, f03=0x0000}
0x1bf7f4…1bf988 IdxSect {
0x1bf7f4…1bf988 f00 = 0x007a // 0x1bf7f4 @0x0
0x1bf7f4…1bf988 f01 = 0x0008 // 0x1bf7f6 @0x2
0x1bf7f4…1bf988 gno = [ // 0x1bf7f8 @0x4
0x1bf7f4…1bf988 [0x00]: C0x007a.0x1.0
0x1bf7f4…1bf988 [0x01]: C0x007b.0x0.0
0x1bf7f4…1bf988 [0x02]: C0x0093.0x0.0
0x1bf7f4…1bf988 [0x03]: C0x0093.0x1.0
0x1bf7f4…1bf988 ]
0x1bf7f4…1bf988 }
0x1bf988…1bfb1c Dummy {f00=0x007a, f01=0x000c, f02=»820118 B T:UERR T I:RT0 T:UER ` f C I:EXIT ,USRFLD 820118 USRFLD T:DM 820118 T:OPEN T:DSB T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY
0x1bfb1c…1bfcb0 Dummy {f00=0x007a, f01=0x0190, f02=» FFMOVE 820118 FMOVE I:EVA0 I:EVA5 I:RT1 ( <TYPET 820118 TYPET I:EVA0 I:RT1 >ICLEAR 820118 ICLEAR I:EVA0 I:RT1 $ >EMPTYT 820118 EMPTYT I:EVA0 I:RT1 <
0x1bfcb0…1bfe44 Dummy {f00=0x007a, f01=0x0190, f02=»OU 820118 STROU1 T:STEV T:LOFS I:EVA0 T:LOPS T:DUPX T:GRFC T:ROK T:RNOK @T:STEV 820118 T:STEV T:GRFC I:EVA0 & T:EDFL 820118 T:EDFL T:PRKB T:PRDY T:PM1 T:PM2 T:CAS
0x1bfe44…1bffd8 Dummy {f00=0x007a, f01=0x0190, f02=» T:DYKI T:PRKB T:PRDY I:EVA7 T:CASP T:CLRD T:EKEY T:RCR T:IOER J T:CLR1 X T:CLR2 f T:SCUW T:BELL T:IOWR T:CLIT : T:LOFS I:EVA0 T:LOPS T:CLMI T:PM1 n T:GRFC T:PM2 xT:UPDF 820118
0x1bffd8…1c016c Dummy {f00=0x007a, f01=0x0190, f02=» T:GRFC I:EVA0 T:RNOK T:ROK T:DUPX T:LOFS T:LOPS I:MOV ` HT:GETC 820118 T:GETC T:GRFC I:EVA0 I:RT1 < ZT:GETA 820118 T:GETA T:GRFC I:EVA0 T:RNOK T:ROK T:RCR " @T:TSTC
0x1c016c…1c0300 Dummy {f00=0x007a, f01=0x0190, f02=» T:TFWD T:TBWD T:THOM " T:PRDY T:GRFC T:TABE T:SCR2 T:TABC T:TABN | T:DISP 820118 T:PRIN T:GDSP T:DSM T:EDWI T:GRFC T:GTIP T:DISP " T:ERAS & T:GTIT T:PRDY T:TABD T:TABC T:RNO
0x1c0300…1c0494 (3, 27) Dummy {f00=0x007b, f01=0x0190, f02=»C T:GTIP 8 I:EVA0 I:EVA2 d T:REWR " 820118 T:IOWR T:SCUW T:CLRD * T:REWR 0 T:PRDY T:CASP R T:LOFS I:EVA3 I:EPIC T:LOPS I:EVA0 I:ECPY I:EVI 4T:DEDT $ 820118 I:EVNO I:ESKI I
0x1c0494…1c0628 Dummy {f00=0x007b, f01=0x0190, f02=»ABE 2 T:EDWI I:EVT I:EDSK T:GRFC T:ENIN T:LOPS T:EDWF T:SCR2 T:SCUR T:TABN L T:RCR V T:ENLI ( 820118 I:EVNO I:ECPY I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR I:EOR I:EXIT I:ECW I:EFLA
0x1c0628…1c07bc Dummy {f00=0x007b, f01=0x0190, f02=» T:EINP + 820118 T:PKI T:PINP T:GRFC I:ETAB I:EVIN I:ECTR T:EVOU T:TINP T:TKI T:ENIN T:ENI I:EXIT T:WRDY T:CLMI I:EVA0 T:CLDY T:ENIN 1 820118 T:ENIN T:ENI T:LOFS I:E
0x1c07bc…1c0950 Dummy {f00=0x007b, f01=0x0190, f02=»RDY T:GRFC T:EDWI T:RCTS T:SCUR T:WRDY * ,T:CLMI 5 820118 T:CLMI ( T:ATTF 6 820118 T:DETF T:ATTF I:EVA6 I:FFSN T:ROK ( T:RCR * I:RT1 T:RCTS 6 T:RTES : T:RNOK < T:GRFC @ T:WRD
0x1c0950…1c0ae4 Dummy {f00=0x007b, f01=0x0190, f02=» T:LOPS R f lT:DC00 ; 820118 T:FDS0 DCREAD T:DCR1 DCWRTE T:DCW1 DCEXCH T:DCE1 6T:SWI0 < 820118 T:SWIT SWITCH JT:TEI0 = 820118 T:TEST TESTIO T:ABOR ABORT
0x1c0ae4…1c0c78 Dummy {f00=0x007b, f01=0x0190, f02=»GTI0 @ 820118 T:GETI GETTID T:DC A 820118 T:DCRE T:GDSP T:DCR1 T:DCWR T:DCW1 T:EDIO T:IO2 T:DCEX & T:DCE1 * I:EVA0 4T:SWI C 820118 T:SWIT I:RT1 ^T:TEI D
0x1c0c78…1c0e0c Dummy {f00=0x007b, f01=0x0190, f02=» T:GETT T:SETD . T:GETD D H >T:DEL F 820118 T:DELA I:EVA0 I:RT1 <T:MSK0 G 820118 MASK I:EVA0 I:RT1 pT:SCD H 820118 T:ACTV P:BAS I:NTPB T:BAT T:RSTR F I:EVA0 T:PAU
0x1c0e0c…1c0fa0 Dummy {f00=0x007b, f01=0x0190, f02=»T ZT:GTCW M 820118 T:GDSP GETCW I:EVA0 T:BINB T:GTCW I:RT1 & >T:GTID N 820118 T:GETI I:EVA0 I:RT1 vT:DMR O 820118 T:DREA T:REAX T:SCW2 T:IO2 T:IREA T:XREA T:I
0x1c0fa0…1c1134 (3, 28) Dummy {f00=0x0093, f01=0x0190, f02=» T:IWRI 0 T:CREW > T:IREW L pT:DMDI R 820118 T:DDIS T:DSB T:SCW2 T:IO2 T:CDIS T:IDIS T:WRIX T:IO1 0 pT:DMPO S 820118 T:DPOS T:DSB T:SCW2 T:GTBY T:IO2 T:IPOS T:WRIX T:IXID
0x1c1134…1c12c8 Dummy {f00=0x0093, f01=0x0190, f02=»N P T:ACO1 T T:ACO2 X T:ACO3 T:PCON f T:PCO1 j T:PCO2 n T:DISC x T:DIS1 | T:DIS2 T:DIS3 T:DIS4 T:STCW T:OPT I:EVA0 ~T:DCR X 820118 T:RECE T:REC1 T:REAX T:OPT T:IO2 T:AREC
0x1c12c8…1c145c Dummy {f00=0x0093, f01=0x0190, f02=» & T:STCW T:SCW2 H HT:IO 820118 T:KI T:NKI T:WRIT T:WRIL T:LWRI T:WRIX " T:WRIO & I:EVA0 T:SREA B T:READ B T:REAX L T:DSC0 r T:DSC1 T:DSC2 T:XSTA T:WAIT T:MWAI T:IO1
0x1c145c…1c15f0 Dummy {f00=0x0093, f01=0x0190, f02=» T:EDIO T:KIPR 6 I:EVA7 T:FDS0 T:GDSP P:MTAB I:EVTO I:FML T:DS15 T:DS25 T:DSM T:DSB ( T:FDSP 2 T:GTBY L T:SCW2 T:DSCX j I:EVA2 T:SCW0 T:DSR T:CW d 820118 T:STCW I:EVA2
0x1c15f0…1c1784 Dummy {f00=0x0093, f01=0x0190, f02=»LEN I:EVA0 I:RT1 |T:ADIT i 820118 T:RREA T:DSB T:RRE1 I:EVA0 T:STCW T:IO2 T:RWRI $ T:RWR1 ( T:IO1 F rT:KIA k 820118 T:KIA T:NKIA T:ABUF T:KIPR T:LSEG T:IORE T:KIAA T:KIA
0x1c1784…1c1918 Dummy {f00=0x0093, f01=0x0190, f02=» 8 DI:NTP p 820118 I:MOV I:ADD I:SUB I:CMP I:MUL I:DIV I:MMOV I:EDT I:CPY I:INS I:DLT I:MCH I:XCP I:EDS I:TRC I:RST D T:CSEG I:NTPA H I:NTPB H P:MTAB T:LSEG I:NTP r I:NTPR r I:EVA0 I:EVA2 I:R
0x1c1918…1c1aac Dummy {f00=0x0093, f01=0x0190, f02=» I:EVA6 ( I:EVA5 . I:EVA7 2 I:EVA0 T:LOFS T:LOPS I:FML ^ I:EVTO I:EVI I:EVB <I:ADS z 820118 I:ADD I:SUB I:CPA X 2I:CMP } 820118 I:CMP I:CPA n *I:CPA ~ 820118 I:C
0x1c1aac…1c1c40 Dummy {f00=0x0093, f01=0x0190, f02=» T VI:MUL 820118 I:MUL I:MOV I:NTFA I:SUB I:ADD I:SH1L X hI:DIV 820118 I:DIV I:MOV I:NTFA I:SUB I:CPA I:SH1L I:ADD I:SH1R ,I:NTF 820118 I:NTFA 8 I:EDT 8201
0x1c1c40…1c1dd4 (3, 29) Dummy {f00=0x0093, f01=0x0190, f02=»:EBRB I:EBR I:EINH I:EKIH I:EDSK | I:EDT I:ED1 I:EDW I:EVA6 I:EFLA 6 T:LSEG I:RET p I:EXIT v P:MTAB I:FFSN P:BAS I:ETAB I:ECPY I:ETXT & I:EXPY & I:ECTR 8 I:ESL B I:ENL L I:EOR b T:EDWF I
0x1c1dd4…1c1f68 Dummy {f00=0x0093, f01=0x0190, f02=» 820118 I:EKIH I:EINH I:ETAB I:EVIN I:EVA0 I:EVA1 I:EBRI F I:EBR j I:EBRB n I:ESKI I:EVNO I:EGTD I:EGTB <I:EDS 820118 I:EDS I:EVS2 I:ED1 & nI:STR 820118 I:DLT
0x1c1f68…1c20fc Dummy {f00=0x0093, f01=0x0190, f02=» I:EVS2 J STRIX 820118 I:EVNO I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR I:ECWC I:EXIT I:EFLA T:DNL T:DSL STROU2 STRIN2 USRFLD STROUX . STRIX 2 USRFMT 6 T:GRFC T:STEV T:EDWI I:EVT I:EDSK
0x1c20fc…1c2290 Dummy {f00=0x0093, f01=0x0190, f02=»U2 820118 STROU2 I:EVA0 I:MOV T:GRFC I:EXIT ,USRFLD 820118 USRFLD T:DM 820118 T:OPEN T:DSB T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY
0x1c2290…1c2424 Dummy {f00=0x0093, f01=0x4038, f02=»VA0 P:MTAB T:UERR T I:RT0 T:UER ` f C I:EXIT ,USRFLD 820118 USRFLD T:DM 820118 T:OPEN T:DSB T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY
0x1c2424…1c25b8 Dummy {f00=0x0093, f01=0x0190, f02=» T W^ " PV X TJ+ Y h 4 U $P(> R$> Y X '@T X ' T P 2W( Y h r Y X # P _ 4X U T p T U ;h # <c$ X4 B ^: X@ B ]H "XT" X #` @P Q X # j Y /W W Y
0x1c25b8…1c274c Dummy {f00=0x0093, f01=0x0190, f02=» T . > ? " 4TH ( X ( # ; < TR U P Q" 5 U T Y > > P X P P _ ] W Q Y _4 X Y $ b D P XP Y E Y Y _ @ , T (@ > P ,X U 4X 5 _& @ ! ! T 9 8
0x1c274c…1c28e0 Dummy {f00=0x0093, f01=0x0190, f02=» ! X X| R B X V Y ; Z Y& B Z2 ^8 Y8 Y : Y 8 B Y 4 ""0 Y > V Y < Y 6 Y : X 4 X >T V" X 6R # ;b9B Y B Y D ) Y F X !? PN P PF P ! X FP _ X Bx ^ Y @ !
0x1c28e0…1c2a74 (3, 30) Opaque[0x194]
0x1c2a74…1c2c08 # DirEnt {nam=»A:AF «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x1c2a74…1c2c08 IdxSect {
0x1c2a74…1c2c08 f00 = 0x0009 // 0x1c2a74 @0x0
0x1c2a74…1c2c08 f01 = 0x000c // 0x1c2a76 @0x2
0x1c2a74…1c2c08 gno = [ // 0x1c2a78 @0x4
0x1c2a74…1c2c08 [0x00]: C0x0009.0x0.0
0x1c2a74…1c2c08 [0x01]: C0x0028.0x0.0
0x1c2a74…1c2c08 [0x02]: C0x0033.0x0.0
0x1c2a74…1c2c08 [0x03]: C0x0056.0x2.0
0x1c2a74…1c2c08 [0x04]: C0x0056.0x3.0
0x1c2a74…1c2c08 [0x05]: C0x0060.0x1.0
0x1c2a74…1c2c08 ]
0x1c2a74…1c2c08 }
0x1c2c08…1c2d9c Dummy {f00=0x0009, f01=0x0190, f02=» *2 CR h R # * ~ @ P ~ 0 1 T0 H & h 6T0 0
0x1c2d9c…1c2f30 Dummy {f00=0x0009, f01=0x0190, f02=» AFPR VNING 0 0 " . 0 0 X
0x1c2f30…1c30c4 Dummy {f00=0x0009, f01=0x0190, f02=»
0x1c30c4…1c3258 Dummy {f00=0x0009, f01=0x0190, f02=»0 0 0 H V W ' u ' " C C G C C C X ` d h " X r Z ~ $ N r 8 z ~ F h l b cd a` b cd ! P P P X P !L
0x1c3258…1c33ec Dummy {f00=0x0009, f01=0x0190, f02=» Q Y W X " " X X . 8 X 0P X T 5 ! Y * X 2 y X V. X X ( x C ( Y * X Y , X X C & C C ( B Ph9 R^9 X !@PP X X * b ) Y * Y , X , x
0x1c33ec…1c3580 Dummy {f00=0x0009, f01=0x0190, f02=» X * n_R X !@XX y X # x V y X X * P P 1 _ 1 2 X * V X X * $" X D % " X # X * y _< X # X * y X 1 1 X !@T X $ " P y _ x T X H X X * , )$ P _ : X "
0x1c3580…1c3714 (3, 31) Dummy {f00=0x0028, f01=0x0190, f02=» Tf B 9 R 9 X ! T Z_ y C Q " T X ! X X ! x Y~ Y _ X "@P B R y C B P 9 V Z_F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c C _$ _ y _6
0x1c3714…1c38a8 Dummy {f00=0x0028, f01=0x0190, f02=» X X # _ " O C C ( # B P B C : + X ( ^ !L ( j B : B C _J + . X 9 V ! P @ Y !L Y Y . : !L !L " !L $ : 2! Y "
0x1c38a8…1c3a3c Dummy {f00=0x0028, f01=0x0190, f02=»!L ! Y 0T V j % : 2' !L R P P X ' ' X _ X ' _ X '?_ !L X ' X ! X " 9b! X :c 2" H r @ W W W W W W W Y ( Y 09H Y * Y 4 Y 2 Y 69h Q
0x1c3a3c…1c3bd0 Dummy {f00=0x0028, f01=0x0190, f02=» *9h P2 R Y ?_ P P Y +W^ 2 Y + $ WL T $ W> Q W Y + U Q P W W Y ( C X *! P V L ! X 0 Y 8 P Y 0 X 0 X 2] X 8 Y 0 : X 0 :H* : X 2T Y 2 : C 1 B
0x1c3bd0…1c3d64 Dummy {f00=0x0028, f01=0x0190, f02=» : C ( C : C B _( _ X P B _R ( ^ X D D : K + Q 2 P. P8 . ( j B X # V : !L .,_0 # _>0 0 !L0 0 0 0 0 0 . - . -R p p0 0 0 - W W X
0x1c3d64…1c3ef8 Dummy {f00=0x0028, f01=0x0190, f02=» jWT " P Y 0] Y (_t " X _. X *# P B 1 W " P X X$ C : X *! P 6 C W @ X (T W X y 6 Y ( : X (;n 0 .,. .B. 0 0 0 .~- . -R . 0 .B- Y . Y ,W Y . X ( X ." PV X 0RzT$
0x1c3ef8…1c408c Dummy {f00=0x0028, f01=0x0190, f02=» " T : Y . Y ( - Y *T " T ! 1 W ! ) .T : . 0l P & Y *T : X ?! T X &P V H " P .T X ?! P* R Q$ X &P V D ! P $ ! P %_ .T : V Y " X .9H $ 0l P & X ( " Qv Y
0x1c408c…1c4220 Dummy {f00=0x0028, f01=0x0190, f02=» "WZ X ! X $" P<Q X (# P2 X # :! R$W " T$ @ Y (W Y , W Y ( - : X *:h X (! # P X & V L TbW X , X 0P@ T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l "_r X ( P Y (_ P* P| Y 8 X 8
0x1c4220…1c43b4 (3, 32) Dummy {f00=0x0033, f01=0x0190, f02=» Y 0 X 2P X 0V _z Y ( " T Y ( : 8 !L 8 V Y 8 : " P X & V ( P : : "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y > : Y : X : X ( T X & V H " V Y : X $ X : : X Y
0x1c43b4…1c4548 Dummy {f00=0x0033, f01=0x0190, f02=» @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y !LW Y ! P W V Y V Y : !L ., : 2' " P T # W . :
0x1c4548…1c46dc Dummy {f00=0x0033, f01=0x0190, f02=» Y Y Y < V E B X _ v : C C : C : X @ ; [ W X B ; [ Z : :( R : V E V D ' $ T ( W P X =' V W V Y =P : !L
0x1c46dc…1c4870 Dummy {f00=0x0033, f01=0x0190, f02=» V C / <H : C C W C 9HR 6 ' W 781"&$ 39#$;< '()*+,-! !L P _J B B !L 'W B ( W| !L B 1 ( 0 W : 1W C C (
0x1c4870…1c4a04 Dummy {f00=0x0033, f01=0x0190, f02=» C C : C B B P C : V I C B : ( ' P I : % Y C !L & R V C !L : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D # W<' #? " ;B V D
0x1c4a04…1c4b98 Dummy {f00=0x0033, f01=0x0190, f02=» : ,V : P C W $0 P C . : #0 T & C C : N C C : & T ;d# P S W P P, 9A:AV X R _ S W 4 _T :#0 T B 'W B B " : P
0x1c4b98…1c4d2c Dummy {f00=0x0033, f01=0x0190, f02=»P 1_ , @ - R T U :J a B@ ' d w5 1 #0 T B ' : B B : V C P C #0 T & C C : N C C : ` X% # # % (F) ) ' & , 1 1 1 181 0 | V 7
0x1c4d2c…1c4ec0 Dummy {f00=0x0033, f01=0x0190, f02=» P V W8 _ 2 # ;B V T W V P L , V 2P " 2 P V D ! R T V P V W V _ 8^n D B Vt @ 2 ! 9B V T W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 # L
0x1c4ec0…1c5054 (3, 33) Dummy {f00=0x0056, f01=0x0190, f02=» Z #n V & H ` 'W 'W '_8 :l:d:h !L W W P W 6 2# # W4 @ E " T> ; [ # " :H 2 T Z L L D V, W # " L D V $ W D V L , W 6 2 # W$
0x1c5054…1c51e8 Dummy {f00=0x0056, f01=0x0190, f02=» R ; !L 6 : F _v :B , (Vv ; H [ [ [ !L z ;AV$ Z H # #L ; !L : & Z 4 #L : Z 4 " 2@P : [ [ !L & @ ! P [ 6 [ Z 7
0x1c51e8…1c537c Dummy {f00=0x0056, f01=0x0190, f02=» R # # XR : ; V Y : 2! : 6 2 # W& " # " ;b ; : ;f" #?_" W " T & T + : * & !@P `1` P %nQ [ ; 8 V W Q P [ ! X # P 4 V W Q P [
0x1c537c…1c5510 Dummy {f00=0x0056, f01=0x0190, f02=» R Q <# =_ P :" P * U P 1`! T "# 9e! # K : P8" T * & : * & !`P :J +_ +Q %n_0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P
0x1c5510…1c56a4 Dummy {f00=0x0056, f01=0x0190, f02=» Q P ) P ! P ! P 9_. &" ! ! P $ T 9 : & P Q & ,^ , < & # ; [ _ ' d V W V 4! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9
0x1c56a4…1c5838 Dummy {f00=0x0056, f01=0x0190, f02=» Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : 2' [ [ !L Z Z % : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : &
0x1c5838…1c59cc Dummy {f00=0x0056, f01=0x0190, f02=»9d! P6 P( [ Z w [ P + # V H )_ + ) _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V PP= ;@ R P W ;a=a P " R &
0x1c59cc…1c5b60 Dummy {f00=0x0056, f01=0x0190, f02=»! P + + % + % + # z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z + %n Q + ) P _ T { [ + + [ Q@ [ + # { R [ _ + # + ) Z ! Z $ Z %_N [ Q* + # + %n R [ Z { + #
0x1c5b60…1c5cf4 (3, 34) Dummy {f00=0x0056, f01=0x0190, f02=»% [ ( !! gg++ L 33 0 #n0 # !L0 .,. .B. 0 0 0 0 .~- . -R.h0b0b. .^0 .B- , 6 -Z K K K K V K : !L ,n ,^ , V - -Z - V Z P 2 " T W
0x1c5cf4…1c5e88 Dummy {f00=0x0056, f01=0x0190, f02=» 7_ W Z - @ ! P Z 7 Z Z P : V R (Q V : : ,n J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K . WJ .dW +_ .~ .z K W. _& X W X &
0x1c5e88…1c601c Dummy {f00=0x0056, f01=0x0190, f02=»0Z * B Z 9 ! ; *Xt 8 ! D0J 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 / !00T ; . _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^
0x1c601c…1c61b0 Dummy {f00=0x0056, f01=0x0190, f02=»! P ! P ! P !L ! P W : ! )P9H # T &W &" :I : 0 : P & _ &X _ : : : : 2: , : { : 2r 22 PX 9 _ 2r [ 2r Z : R" P $ 1T Y W 5
0x1c61b0…1c6344 Dummy {f00=0x0056, f01=0x0190, f02=» !0P0 R* 4 R :d" 8 R ! :DW ! 9 R R _. : & : !L !L jP kT T : & 9! " : $ : 2: $ :
0x1c6344…1c64d8 Dummy {f00=0x0056, f01=0x0190, f02=» * 2 @ " &A01 1 1 G@0_ A01 61 (,_ @0_ W& 4 0 41 W 4 0 41 W @0_8_RA0_>A01 1 1 1 61 6P 4 0 41 WD 4 0 41 W6 4 0 4 4 0 41 0 W 4 0 4 4 0 41 0 W _ @ _rH 0 _ A 4 4 4 4 4 A2 @24 1 1 8
0x1c64d8…1c666c Dummy {f00=0x0056, f01=0x0190, f02=»0 B0 3 3 3 22 3 W 0 2(2 _W 3 0 2 2 0 22 W&0 CA1!1 bI2 21 1 4 3 *0 C_,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ 2 71 FF:FF:6:::6:6_ A P 2 0 2_ 2 0 2 @ K2a_ 1 0 CX 3 Wb 0 0 0 2(2 1 ? 0 C 013R4*1 .(0 A1? 3 0 1 0
0x1c666c…1c6800 Dummy {f00=0x0056, f01=0x0190, f02=» 0 C D D0 30 3321 1 4 0 A1? 0 C0 30 33? 0 84 4 4 4 4 4 4 4 4 w > R K M u [ 0 2 4 6 8 : < > . 2 0 0 1 TLF:
0x1c6800…1c6994 (3, 35) Dummy {f00=0x0060, f01=0x0190, f02=»POSTNR :STILLING: AF TASTENFUNKTION: PERSONNR: *** GOD FORNAF PTS 6000.FELT MANGLER SKRIV KOPI. BEM[RKNINGER:DATA-KVALITETS PAPIR BANE FOR AT STARTE S PAPIR BANE TEKST-KVALITET P T S 6 0 0 0EVT. C/O ADRESSE:UDSKRIVNING ENDEL INDTAST OPLYSNINGERRETUR TIL 1. BI
0x1c6994…1c6b28 Dummy {f00=0x0060, f01=0x0190, f02=»RMINAL SYSTEM PTS 6000UDSKRIVNING A4-ARK I FRONT-FEED FELTERNE AFSLUTTES MED TASTEN: ENTER. BYDER DEM VELKOMMEN TIL DENNE OFF-LINE VEJLEDNING: UDFYLD OPLYSNINGSFELTER, IDET P H I L I P S T E R M I N A L S Y S T E MEFTER INDTASTNING AF OPLYSNINGER KAN V[LGES VEJL
0x1c6b28…1c6cbc Dummy {f00=0x0060, f01=0x0190, f02=» I , ; 7 8 ; 5 4 C 8 C 4 = 9 * * * N * * G 9 N * * N * * * @ E & 0 6 & A & % $ & $ / ' 9 B ( - & % $ . @ + @ E ( @' F & @'
0x1c6cbc…1c6e50 Dummy {f00=0x0060, f01=0x0190, f02=» 2 4 / 2 8 < / = O 9 2 # ( - 2 7 = C I O W ` i r { ( 6 G X i } % 2 ( W * +
0x1c6e50…1c6fe4 Dummy {f00=0x0060, f01=0x0190, f02=» Q ` q ( y 8 { H } i X h x J F " D @ A P 2L0X2_ 2 0X 2 @ K2a_ 1 0XCX 3 Wb 0 0 0X 2(2 1X F?R0X y .
0x1c6fe4…1c7178 Dummy {f00=0x0060, f01=0x0190, f02=» & 6 F V f v J F " D 1 L 1 H 1 ^ 3 8R1X F 2L0X 2
0x1c7178…1c730c Dummy {f00=0x0060, f01=0x4140, f02=» ( 7 ) 6 i ( ? 8 J F " D 2L0X 22 1! 1 0 C DL D0X30X 3321 RRR 1 4 0 A1?R 0 C0X H B G i & & ( I 4 ( $ " @30X
0x1c730c…1c74a0 Dummy {f00=0x0060, f01=0x2008, f02=» - L = KMD15 DATE = 82 01 08 6876PACK NBR = 0001 @ 0 @ ?
0x1c74a0…1c7634 (3, 36) Opaque[0x194]
0x1c7634…1c77c8 # DirEnt {nam=»A:PROD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0b58, f03=0x0000}
0x1c7634…1c77c8 IdxSect {
0x1c7634…1c77c8 f00 = 0x005a // 0x1c7634 @0x0
0x1c7634…1c77c8 f01 = 0x000c // 0x1c7636 @0x2
0x1c7634…1c77c8 gno = [ // 0x1c7638 @0x4
0x1c7634…1c77c8 [0x00]: C0x005a.0x3.0
0x1c7634…1c77c8 [0x01]: C0x005f.0x0.0
0x1c7634…1c77c8 [0x02]: C0x0060.0x3.0
0x1c7634…1c77c8 [0x03]: C0x0061.0x0.0
0x1c7634…1c77c8 [0x04]: C0x0061.0x1.0
0x1c7634…1c77c8 [0x05]: C0x0061.0x2.0
0x1c7634…1c77c8 ]
0x1c7634…1c77c8 }
0x1c77c8…1c795c Dummy {f00=0x005a, f01=0x0190, f02=». .B CR ~ @ P ~ 0 1 T0 B b 6T0 0 *
0x1c795c…1c7af0 Dummy {f00=0x005a, f01=0x0190, f02=» AFPR VNING 0 0 " . 0 0 X
0x1c7af0…1c7c84 Dummy {f00=0x005a, f01=0x0190, f02=»
0x1c7c84…1c7e18 Dummy {f00=0x005a, f01=0x0190, f02=» 0 H V W ' u ' " C C G C C C . J . A01 1 1 K@0_ A01 61 ,0_ @0_ W* 4 0 41 @ W 4 0 41 @ W @0_<_VA0_BA01 1 1 1 61 (P 4 0 41 4 0 41 4 0 41 W
0x1c7e18…1c7fac Dummy {f00=0x005a, f01=0x0190, f02=» 2 0 21 4 0 4 4 0 41 4 0 41 4 0 41 0 2 0 22W ? @ ? H 0 _ A 4 4 4 4 4 A2 @24 1 1 8 0 I0 61 %0 0 W 0 0 W 61 0 0 W 0 0 0 0 0 3R 0 32P R 32_ 0 0 C 013: *1 (1 0 T 21 0 B0 3 3 3 22
0x1c7fac…1c8140 Dummy {f00=0x005a, f01=0x0190, f02=» 0 X Z [ 2 71 FF:FF:6:::6:6_ A P 2 0 2_ 2 0 2 @ K2a_ 1 0 CX 3 Wb 0 0 0 2(2 1 ? 0 C 013R4*1 .(0 A1? 3 0 1 0 12S 0 P 0 Q 1 4 0 21W _ 1 O 1 L 1 H 1 ^ 3 8 1 2 0 21 30 2 0 D 21 1 :21 1! 2 0 22 1! 1 0 C D D0 30 3321
0x1c8140…1c82d4 (3, 37) Dummy {f00=0x005f, f01=0x0190, f02=» Z 1 ! ? u & ; _ k o s w { I f f Z 2 ' '+ +'. .'1 1012: J S.ST: H : H OG RINGTLF:: 80 PA 1:PA 2:PF 1:PF 2:PF 3:PF
0x1c82d4…1c8468 Dummy {f00=0x005f, f01=0x0190, f02=»NG: / MIDDEL AF TASTENFUNKTION: PERSONNR: FOR F] TEGNUDSKRIVNING*** GOD FORNAF PTS 6000.FELT MANGLERTRAKTORFREMF AF BOGSTAVER SKRIV KOPI. : OP TIL 300 BEM[RKNINGER:DATA-KVALITETS PAPIR BANE OPGAVEOMR]DERDATABEHANDLINGFOR AT STARTE FRIKTIONSFREMFSKRIVEKVALITETTEK
0x1c8468…1c85fc Dummy {f00=0x005f, f01=0x0190, f02=»D FOR AT PR. LINIE ER VED120 TEGN OG VEDEVT. C/O ADRESSE:RRELSER SAMT LOGOTIL DE 2 OPGAVER: TEGN PR. TOMME KUNNE ANVENDES FOR INDTAST OPLYSNINGERRETUR TIL 1. BILLEDE A4-ARK I FRONT-FEED HIDTIL HAR DET V[RET NNY FUNKTION MED TASTEN:S NYE GENERELLE SKRIVER:P T
0x1c85fc…1c8790 Dummy {f00=0x005f, f01=0x0190, f02=»FORSKELLIGE STORE AKTIVERES FUNKTIONSTASTERNE:DER SAMTIDIG KAN ANVENDES FOR DETTE ER PHILIPS DATA SYSTEMERPHILIPS TERMINAL SYSTEM PTS 6000RING OG VED ANVENDELSE AF FRONTINDFFELTERNE AFSLUTTES MED TASTEN: ENTER. BYDER DEM VELKOMMEN TIL DENNE OFF-LINE DVENDIGT AT A
0x1c8790…1c8924 Dummy {f00=0x005f, f01=0x0190, f02=»LEDNING: UDFYLD OPLYSNINGSFELTER, IDET P H I L I P S T E R M I N A L S Y S T E MEFTER INDTASTNING AF OPLYSNINGER KAN V[LGES SKRIVEREN HAR FORUDEN ALMINDELIG SKRIFT OGS]VEJLEDNING: FUNKTIONERNE V[LGES VED AKTIVERINGPHILIPS GENERELLE SKRIVER GP 6374/75 D[KKER BEGG
0x1c8924…1c8ab8 Dummy {f00=0x005f, f01=0x0190, f02=»N KAN V[RE HENHOLDSVIS 3,4,6,8 ELLER 12 Z9999999999E-999999E-99B99B99 b cd a` b cd w + + G + 5 + 4 + 3 + C 1 0 { [ b D I m # _ ' " 0 D l R 1 H r ' 0 Y 0 U v q + A & 6
0x1c8ab8…1c8c4c Dummy {f00=0x005f, f01=0x0190, f02=» * y Z N * * N * * * j t & F Q & n * & 8 6 + & 6 E : 9 q ( A & 8 6 B @ > @ E ; @' F 9 @' G = A < @" H > ( B B ^ @ I L @C J @C K @C L @C M @C N * * x s
0x1c8c4c…1c8de0 Dummy {f00=0x005f, f01=0x0190, f02=»0 i 0 o P & X f u ` P % ! V ? S 0 X $ ! S ? V 0 } O k 0 V P K W X ) W 0 ~ a ] a 7 " $ & ( + / 3 7 ; @ E
0x1c8de0…1c8f74 (3, 38) Dummy {f00=0x0060, f01=0x0190, f02=» 1 = J W d q ~ + < M ^ o 1 I b { ' # G % j ( ( ( * * 1 + [ , , . 1 1 = 1 n 5 !
0x1c8f74…1c9108 Dummy {f00=0x0060, f01=0x0190, f02=»X T C /B (J (d T x Y ( x P* Y * x y Q W Q Y W X " X X . 8 ( X 0P X T 5 ! Y * y X V. X > X ( P x C ( Y * X Y , > X X C & C C
0x1c9108…1c929c Dummy {f00=0x0060, f01=0x0190, f02=» Y _ _ B U C Q C D $ > L T X X * $" ~_> @ Y X * _R X !@XX y X # x V y X X * P P P 1 _ 1 X * X X * $" X D % " X # X * P y _< X # X * y P X 1 1 X !@T X $
0x1c929c…1c9430 Dummy {f00=0x0060, f01=0x0190, f02=» Y 10 y x C y X C C X ( x Tf B p9 R 9 0 X ! T _ y C Q " T x P X ! @ X X ! x Y~ Y _ X "@P B R y C B P 9 V _F9 VV X ! T X !@X y C _d y C C
0x1c9430…1c95c4 Dummy {f00=0x0060, f01=0x0190, f02=» B ]d P C Q8X8_H x XD @ Y c C y XR X x > @ x X X # P_ " O C C ( # B P B C & : + x X > P ( ( 1 ( ( ' : B P C _J + . ( X 9 V ! P @ Y 1
0x1c95c4…1c9758 Dummy {f00=0x0060, f01=0x0190, f02=»T X ( V ( ( 1 X ( ( ( ' 1 ! Y 0T V ( 6^ : ( 2' 1 R P P X ' ' /B X _ X ' _ X '?_ ( 1 X ' ( X ! ( ( ( X " 9b! X :c 2" H ( @
0x1c9758…1c98ec Dummy {f00=0x0060, f01=0x0190, f02=» 0 !B + , + ( 9H Y * W W (d + X 0 X +" X *9h P2 R Y ?_ P P Y +W^ Y + $WL T ZW> Q W Y + U Q P W W Y ( C ( X *! P V L ! ( /B X 0 Y 8 P
0x1c98ec…1c9a80 Dummy {f00=0x0060, f01=0x0190, f02=» Y ( Y + !B ( 9H Y * 2 Y ( Y ? Y + 1 4 0 1 6 2 : C ( C : C B _( _ (d X > x P P B _R ( ( X D D : K + Q 2 P. P8 1" ?$ ( ( B X # V :
0x1c9a80…1c9c14 (3, 39) Dummy {f00=0x0061, f01=0x0190, f02=»< X <' X X = ( X *# X ( " Qp " P X 0P: Vp_` " P4 T & ( WT " P Y 0] Y (_t " X _. * X *# P B 1 * W " P X X$ C : X *! P + ' C W @ X (T W X y 6 Y ( : X (;n ( AX> ?$> > "2
0x1c9c14…1c9da8 Dummy {f00=0x0061, f01=0x0190, f02=» T > W > X . X 2QH Y *T2 > : " P$ X 0U X *# P P T " T : Y . & Y ( > ( Y *T " T ! 1 W ! ) > : ( > @ P & Y *T "| : X ?! T X &P V H " P > '^ ( X ?! P* R Q$ X &P V D ! P $
0x1c9da8…1c9f3c Dummy {f00=0x0061, f01=0x0190, f02=» . X 0RvP X *:h P P4) Y (W X *:h Pl Pf P P %N P< % WZ X ! X $" P<Q X (# P2 X # :! R$W % %N T$ @ Y (W Y , & W &$ Y ( > : X *:h X (! # P X & V L TbW X , X 0P@ %N T, X *:h XF XL X (!@T @ Y ( X ,
0x1c9f3c…1ca0d0 Dummy {f00=0x0061, f01=0x0190, f02=» H "@TF %n P6 V Y X (P '^ % X (P %2 ' 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 '^ 1 8 V Y 8 : " P X & V ( P %n : : %2 "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y > : Y
0x1ca0d0…1ca264 Dummy {f00=0x0061, f01=0x0190, f02=» " ( ! T W A ! P =H A & X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X (&W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y 1 W Y ! P 1 W
0x1ca264…1ca3f8 Dummy {f00=0x0061, f01=0x0190, f02=»( X (& : "0P ' Q W ' Y : W 1& V >L ( Y Y Y < V E /B B X _ v : C C +$ : C +$ : ( X @ ; [ W ( X B ; [ , Z : :( R : V E V D ' $
0x1ca3f8…1ca58c Dummy {f00=0x0061, f01=0x0190, f02=»/ *f _ ,2 C ,F P 1 <H : )V *j ,2 ,F 1 &P B V C / <H : ,2 ,V C C W ,b C 9HR ) ' W 781"&$ 39#$;< '()*+,-! ,b ,F 1 P _J + B 1 'W + ( W| 1 ,V + 1
0x1ca58c…1ca720 Dummy {f00=0x0061, f01=0x0190, f02=» B % P C + -( /B + I B P B P B 5 : + , + =F * C C * C B B P C +$ : V I C B : ( ' P + I : ,2 ,F % Y 10 C 1 & R V C 1 : B T T
0x1ca720…1ca8b4 (3, 40) Dummy {f00=0x0061, f01=0x0190, f02=» _: L C L C B C : + , : + , : 1 C : : ,2 ,V ,V .P : 1 P C W $0 P C , : 1 #0 T & C C : , C C : & T ;d# P S W P P, 9A:AV X R _ S W
0x1ca8b4…1caa48 Dummy {f00=0x0061, f01=0x0190, f02=» _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 . 1 #0 T B ' : B B -F : V C 1 P C #0 T & C C : , C C :/ / / /
0x1caa48…1cabdc Dummy {f00=0x0061, f01=0x0190, f02=» / 9c D. 9a1 P 1 1 Q . W 5t :aW _J( 2 P V W8 _ 2 # ;B V T W V P L , V 2P " 2 P V D ! R T V P V ( W V _ 8^n D. Vt @ 2 ! 9B V T JW V P D
0x1cabdc…1cad70 Dummy {f00=0x0061, f01=0x0190, f02=»! 2P R P _ 9B /r _ 6 D " 7 $ V P ( W / .V /B 3 V & /b H. 'W 'W '_8 :l:d:h 1 W W P W 6 2# 3 W4 @ E1 " T> ; [ # 3 :H 2 T Z L L0 D V,
0x1cad70…1caf04 Dummy {f00=0x0061, f01=0x0190, f02=»" ;d# _ [ v [ ( 1 ( Z Z : R ; 1 6 : F _v :B , (Vv ; H [ [ [ 1 z ;AV$ Z H # 3 ; 1 : & Z 4 3 : Z 4
0x1caf04…1cb098 Dummy {f00=0x0061, f01=0x0190, f02=» ( 28 1 " T # :A ( @ " P ! P [ :;H 2 ;h R # # XR : ; V Y : 2! : 6 2 3 W& " # 3 ;b ; : ;f" #?_" W " T & T + : * & !@P `1` P 5 Q [ ;
0x1cb098…1cb22c Dummy {f00=0x0061, f01=0x0190, f02=» R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : P8" T * & : * & !`P :J +_ +Q 5 _0 , T T XD W 1 L P X _&
0x1cb22c…1cb3c0 Dummy {f00=0x0061, f01=0x0190, f02=» Z :$0#0;b 7 P 7r Pd P 0 - PN _ 4 V W Q P ) P ! P ! P 9_. &" ! ! P $ T 9 : & P Q 7 ,^ , < 7( # ; [ _ ' d V W V 4! P < X 4 9d
0x1cb3c0…1cb554 (3, 41) Dummy {f00=0x0061, f01=0x0190, f02=» : &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : 2' 1 [ [ 1 Z Z 6^ : V ) " TV *V &V
0x1cb554…1cb6e8 Dummy {f00=0x0061, f01=0x0190, f02=» [ [ >h [ [ <X6^ <X6^ <X4" Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P <X4 V H )_ <X: _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V
0x1cb6e8…1cb87c Dummy {f00=0x0061, f01=0x0190, f02=» + : V & [ [ [ [ $ [ [ &! P <. <X6^ <X6^ <X4" z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z <X5 Q <X: P _ T { [ <X<: [ Q@ [ <X4" { R [ _ <X4
0x1cb87c…1cba10 Dummy {f00=0x0061, f01=0x0190, f02=»_ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L 33 AZ1 1,3 A 3 1"1 AX> ?$> > AVA ADA@> > > = > @ @ ? > AV> > = 6 = K K K K V K :
0x1cba10…1cbba4 Dummy {f00=0x0061, f01=0x0190, f02=» J J " J _Z Z >L [ Z P ( [ V 7_ W Z >r @ ! P ( Z 7 Z Z P ( : V R (Q V : : < J P v I < : J Qx : Pn 4 ! Th_
0x1cbba4…1cbd38 Dummy {f00=0x0061, f01=0x0190, f02=» 1 [ [ < !AAP !TTT W !**T * [ !FFP !EET W R I@ * B Z 9 ! ; *Xt 8 ! D@ 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 ? !00T ; ? _ 9P F " X6# ; W )0_: J R( Z R 4!
0x1cbd38…1cbecc Dummy {f00=0x0061, f01=0x0190, f02=»++P !-- z ;$# + ^$ _* T tX. PT*AXYZ9 > @ : ! P ! P ! P ! P 1 ! P 1 W : ! )P9H # T &W &" :I : A : P & _ &X _ : : : : B =D : { : B B PX 9
0x1cbecc…1cc060 Dummy {f00=0x0061, f01=0x0190, f02=» R # P W ) V E B WX B [ B : Z !0P0 R* 4 R :d" 8 R ! :DW ! 9 R R _. : 6~ : 1 1 jP kT T : & 9! " : $ : B 1 $ :