|
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 B C D E F G L M N O P S T U p ½
Length: 1628928 (0x18db00)
Description: Bits:30009672 Philips computer tape "600133"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| A:DSB | «none» |
| A:DSB//OBJCT.OB | ⟦b82cf45d8⟧ pts_type |
| A:DSB/A:6040.LM | ⟦24708cd61⟧ pts_type |
| A:DSB/A:6141.LM | ⟦b54017dcd⟧ pts_type |
| A:DSB/B:DSB.LM | ⟦4cb4531d8⟧ pts_type |
| A:DSB/BITPUL.SC | ⟦d06db16c3⟧ pts_type |
| A:DSB/BUGCAS.UF | ⟦f031bbc8d⟧ pts_type |
| A:DSB/DCTSK.SC | ⟦e1d32743c⟧ pts_type |
| A:DSB/DSBCAS.UF | ⟦6d2e0c2b7⟧ pts_type |
| A:DSB/DSBCON.UF | ⟦9986e4043⟧ pts_type |
| A:DSB/DSBGEN.UF | ⟦733ed9634⟧ pts_type |
| A:DSB/DSBTST.UF | ⟦2d0c68f7e⟧ pts_type |
| A:DSB/DUMMY.SC | ⟦decc9c9b7⟧ pts_type |
| A:DSB/GEOT.UF | ⟦bf5d51212⟧ pts_type |
| A:DSB/GFLDIX.SC | ⟦1456cbb32⟧ pts_type |
| A:DSB/GL6040.LM | ⟦24569a881⟧ pts_type |
| A:DSB/GL6141.LM | ⟦7d4a483b9⟧ pts_type |
| A:DSB/GMSGIX.SC | ⟦9869112b8⟧ pts_type |
| A:DSB/MASK02.SC | ⟦6d9fb136d⟧ pts_type |
| A:DSB/MASK03.SC | ⟦6d0944e39⟧ pts_type |
| A:DSB/MASK04.SC | ⟦28259e7b8⟧ pts_type |
| A:DSB/MASK05.SC | ⟦fb85df1c0⟧ pts_type |
| A:DSB/MASK06.SC | ⟦a33757544⟧ pts_type |
| A:DSB/MASK07.SC | ⟦a35511864⟧ pts_type |
| A:DSB/MASK08.SC | ⟦a07a60aee⟧ pts_type |
| A:DSB/MASK09.SC | ⟦b4beed9ed⟧ pts_type |
| A:DSB/MSKTAB.SC | ⟦2610b44d1⟧ pts_type |
| A:DSB/NJ.UF | ⟦0c9a2b55d⟧ pts_type |
| A:DSB/NY6040.LM | ⟦6475b2ced⟧ pts_type |
| A:DSB/NY6141.LM | ⟦e39acc5e2⟧ pts_type |
| A:DSB/OBDIR.UF | ⟦c42fffe70⟧ pts_type |
| A:DSB/P24CON.UF | ⟦98a95862a⟧ pts_type |
| A:DSB/PLADS.SC | ⟦35676dd89⟧ pts_type |
| A:DSB/PROCON.UF | ⟦1e82bdacd⟧ pts_type |
| A:DSB/T:DSB.LM | ⟦ccdbfc118⟧ pts_type |
| A:DSB/TEST.SC | ⟦07f9ceec9⟧ pts_type |
| A:DSB/TMPCAS.UF | ⟦291fe85d7⟧ pts_type |
| A:DSB/TMPGEN.UF | ⟦1ba35a5ab⟧ pts_type |
| A:DSB/TSTCON.UF | ⟦b5fc6772f⟧ pts_type |
| A:DSB/UNPACK.SC | ⟦b0bb0d33a⟧ pts_type |
| M:DSB | «none» |
| M:DSB//OBJCT.OB | ⟦252281668⟧ pts_type |
| M:DSB/B:DSB.LM | ⟦4cb4531d8⟧ pts_type |
| M:DSB/CTAB01.SC | ⟦810974d96⟧ pts_type |
| M:DSB/CTAB02.SC | ⟦433ffa886⟧ pts_type |
| M:DSB/CTABX.SC | ⟦3769dd56c⟧ pts_type |
| M:DSB/DRDC15.SC | ⟦dcd5dce41⟧ pts_type |
| M:DSB/DRDI01.SC | ⟦5ebf0f625⟧ pts_type |
| M:DSB/DRDY01.SC | ⟦a14904208⟧ pts_type |
| M:DSB/DRGP01.SC | ⟦b03e97aac⟧ pts_type |
| M:DSB/DRKB03.SC | ⟦6bb96869e⟧ pts_type |
| M:DSB/DRRT01.SC | ⟦85cf39920⟧ pts_type |
| M:DSB/DRSOP1.SC | ⟦8e2f00fbe⟧ pts_type |
| M:DSB/DVDI00.SC | ⟦affb12745⟧ pts_type |
| M:DSB/DVDY00.SC | ⟦0dd7d2ded⟧ pts_type |
| M:DSB/DVDY01.SC | ⟦c7ea40f95⟧ pts_type |
| M:DSB/DVGP00.SC | ⟦0d2d86704⟧ pts_type |
| M:DSB/DVKB00.SC | ⟦ee753aca4⟧ pts_type |
| M:DSB/DVKB01.SC | ⟦5d8f3920b⟧ pts_type |
| M:DSB/DVTDI.SC | ⟦1d2fc504c⟧ pts_type |
| M:DSB/DVTDY.SC | ⟦963eba64a⟧ pts_type |
| M:DSB/DVTGP.SC | ⟦93b53e66f⟧ pts_type |
| M:DSB/DVTKB.SC | ⟦78fae17d5⟧ pts_type |
| M:DSB/DW1501.SC | ⟦b4fe3b4cb⟧ pts_type |
| M:DSB/EBCDIC.SC | ⟦98c77bef4⟧ pts_type |
| M:DSB/FILLER.SC | ⟦27fe79b97⟧ pts_type |
| M:DSB/LDTASK.SC | ⟦509a88e8f⟧ pts_type |
| M:DSB/LISTS.UF | ⟦af7a6b780⟧ pts_type |
| M:DSB/LKMAL.SC | ⟦ace24cad9⟧ pts_type |
| M:DSB/LRPINT.SC | ⟦d6cb37556⟧ pts_type |
| M:DSB/M:DSB.LM | ⟦42a4338f7⟧ pts_type |
| M:DSB/M:DSB.UF | ⟦1c1c369df⟧ pts_type |
| M:DSB/MONGEN.UF | ⟦a7504daee⟧ pts_type |
| M:DSB/MONTAB.SC | ⟦67f2ec991⟧ pts_type |
| M:DSB/MONTIM.SC | ⟦e3bdb0a74⟧ pts_type |
| M:DSB/MSUBS.SC | ⟦ae4944be6⟧ pts_type |
| M:DSB/PFTAB.SC | ⟦b0476ce9e⟧ pts_type |
| M:DSB/SCLASS.SC | ⟦337e68f5d⟧ pts_type |
| M:DSB/SYSBUG.SC | ⟦1b36b9c6c⟧ pts_type |
| M:DSB/SYSHIS.SC | ⟦7b6d37288⟧ pts_type |
| M:DSB/SYSLDA.SC | ⟦ba73e00e4⟧ pts_type |
| M:DSB/SYSLDM.SC | ⟦fc65c6b27⟧ pts_type |
| M:DSB/SYSTAB.SC | ⟦058c5acf3⟧ pts_type |
| M:DSB/T:DSB.LM | ⟦d440c72de⟧ pts_type |
| M:DSB/TABORT.SC | ⟦28ff1271c⟧ pts_type |
| M:DSB/TCLASS.SC | ⟦8413dfc7b⟧ pts_type |
| M:DSB/TDISP.SC | ⟦78bad221e⟧ pts_type |
| M:DSB/TIMER.SC | ⟦4ee364632⟧ pts_type |
| M:DSB/TIODMX.SC | ⟦e6cbc0c77⟧ pts_type |
| M:DSB/TLDSEG.SC | ⟦c98812760⟧ pts_type |
| M:DSB/TMMLKM.SC | ⟦3cbd60306⟧ pts_type |
| M:DSB/TOSSIO.SC | ⟦2c074484a⟧ pts_type |
| M:DSB/TPROC.SC | ⟦aaa790319⟧ pts_type |
| M:DSB/TTMJOB.SC | ⟦02300311a⟧ 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=»A:DSB «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x13a8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»P24CON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PLADS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13c0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»A:6040«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0698, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TEST «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DSBGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0730, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0038, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DSBTST«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0368, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0108, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»A:6141«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1380, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»GL6040«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DSBCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0078, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»GL6141«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x05a8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»NY6040«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0138, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»NY6141«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0490, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»BUGCAS«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DSBCAS«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04c0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TMPGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0720, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TMPCAS«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1160, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DCTSK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»T:DSB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x13d0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»BITPUL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0028, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»B:DSB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1390, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»UNPACK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0398, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»GEOT «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1548, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»GFLDIX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MSKTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2680, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»GMSGIX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1118, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MASK02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0148, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MASK03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0780, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MASK04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0790, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MASK05«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11b8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MASK06«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0260, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MASK07«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ec8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MASK08«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05b0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»MASK09«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d90, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DUMMY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12f8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PROCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x000ca0…001940 }
0x001940…001ad4 (1, 1) Opaque[0x194]
0x001ad4…001c68 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x001ad4…001c68 IdxSect {
0x001ad4…001c68 f00 = 0x0008 // 0x1ad4 @0x0
0x001ad4…001c68 f01 = 0x001c // 0x1ad6 @0x2
0x001ad4…001c68 gno = [ // 0x1ad8 @0x4
0x001ad4…001c68 [0x00]: C0x0008.0x0.0
0x001ad4…001c68 [0x01]: C0x000b.0x2.0
0x001ad4…001c68 [0x02]: C0x0010.0x2.0
0x001ad4…001c68 [0x03]: C0x0011.0x1.0
0x001ad4…001c68 [0x04]: C0x0011.0x2.0
0x001ad4…001c68 [0x05]: C0x000c.0x0.0
0x001ad4…001c68 [0x06]: C0x000e.0x0.0
0x001ad4…001c68 [0x07]: C0x000f.0x1.0
0x001ad4…001c68 [0x08]: C0x000f.0x2.0
0x001ad4…001c68 [0x09]: C0x0010.0x0.0
0x001ad4…001c68 [0x0a]: C0x0010.0x1.0
0x001ad4…001c68 [0x0b]: C0x0012.0x1.0
0x001ad4…001c68 [0x0c]: C0x0012.0x2.0
0x001ad4…001c68 [0x0d]: C0x0021.0x1.0
0x001ad4…001c68 ]
0x001ad4…001c68 }
0x001c68…001dfc Dummy {f00=0x0008, f01=0x40b8, f02=» F IDENT DUMMY " dNUM CURP DCPO LENG ATTR $ tNUM J CURP Z DCPO l LENG ~ ATTR @ K FTBKY EQU X'1A' -> BTBKY EQU X'1B' <- CL1KY EQU CANKY KO
0x001dfc…001f90 Dummy {f00=0x0008, f01=0x0190, f02=» 6 F IDENT BITPUL 810612 NJ $ BITTSTK BITINV BITON BITOFF > BITTSTK f BITINV z BITON BITOFF I:EVA0 , ( W W W , ( F
0x001f90…002124 Dummy {f00=0x0008, f01=0x4044, f02=»W T W Z W ` )P GP YW _W j .@ @TSTK BITINV BITON BITOFF > BITTSTK f BITINV z BITON BITOFF I:EVA0 , ( W W W , ( F
0x002124…0022b8 Dummy {f00=0x0008, f01=0x40c6, f02=» 6 F IDENT GMSGIX 810916 NJ GMSGIXK > GMSGIXK P I:EVA0 d I:RT1 v & " @ F 9e G @
0x0022b8…00244c Dummy {f00=0x0008, f01=0x0190, f02=» D F IDENT MSKTAB DSB MASK TABLE 820601 NJ MSKTABK TABEND L MSKTABK f MASK02 z MASK03 MASK04 MASK05 MASK06L * & HD D G G BS V MAS
0x00244c…0025e0 Dummy {f00=0x0008, f01=0x410c, f02=»Au Au AV % | , ( O < , ( o X " o " ' L CURPA | DCPOL LENGL ATTRC " @ $ ' @
0x0025e0…002774 (1, 2) Dummy {f00=0x000b, f01=0x40c4, f02=» 6 F IDENT GFLDIX 810622 NJ GFLDIXK > GFLDIXK P I:EVA0 d I:RT1 v $ @ F G @
0x002774…002908 Dummy {f00=0x000b, f01=0x0190, f02=» 6 F IDENT UNPACK 811016-NJ UNPACKK FLASH > UNPACKK V , ( P T p P j FLASH : I:RT1 , ( ! P R W W I:EVA0 , ( A
0x002908…002a9c Dummy {f00=0x000b, f01=0x0190, f02=» p , ( B : , ( P , B , 9 @ , ( Q _ B Q , ! P !@@P p , ( !##P !$$P ! P ! P ! P ! , ( P ! P !::P 9 )R , ( )
0x002a9c…002c30 Dummy {f00=0x000b, f01=0x0190, f02=» , !::T Q : , ( B % , C ( : Q p 0 , ( ! P ! P P , ` , ( , 9H P W MSKTAB TABEND@ , ( Q : q _ ,P
0x002c30…002dc4 Dummy {f00=0x000b, f01=0x0190, f02=» P P t , ( $ ! P P Z + , ( : 5 P Y( $ ! D , ( P ! P ! P P t , ( - _6 _p P 4 , , ( 4 U Q _ : , (
0x002dc4…002f58 Dummy {f00=0x000b, f01=0x0190, f02=» , ( ! T W ! T W ! T W ! , ( T W ! X !<<T 4 , ( W !==T W !::T d , ( : - P _ :h : , ( ( B P Q : ( P P , ( % p ^
0x002f58…0030ec Dummy {f00=0x000b, f01=0x0190, f02=» Q P ,! Q , ( _ P P Q : ! P ! P ! P $ , ( ! P " (U W T , ( Q U U Q , ! P ! , ( P ! P ! P ! P !@@P !## , ( % P !$$P _< U W
0x0030ec…003280 Dummy {f00=0x000b, f01=0x0190, f02=» ( : V t , ( B C P ] C : , ( B ) T ) 9h ) D , ( ) 9h ) ) C t , ( : T C ) T ) , ( # 9h ) T C P Q
0x003280…003414 (1, 3) Dummy {f00=0x0010, f01=0x0190, f02=» P6 P0 P< !R +Qj =W> AW: V T p H D !, P0 P* P . D W P _Q P P( P" P P Q , H D !A ?Q E d IP OR iT mWz sU { Wf T WZ T WP T WF T x H D ! D W6 T W T W T P P !P % j ?T CW
0x003414…0035a8 Dummy {f00=0x0010, f01=0x401a, f02=» R @ W: V T p H D !, P0 P* P . D W P _Q P P( P" P P Q , H D !A ?Q E d IP OR iT mWz sU { Wf T WZ T WP T WF T x H D ! D W6 T W T W T P P !P % j ?T CW
0x0035a8…00373c Dummy {f00=0x0010, f01=0x0190, f02=» > F IDENT MASK02 830317 NJ INT. SID MASK02K F MASK02K X bNUM l CURP z DCPOK LENG , ( J , ( * 4 w *
0x00373c…0038d0 Dummy {f00=0x0010, f01=0x409e, f02=» h , ( ] * " l ATTR 8 , ( oT H x @ ENG , ( J , ( * 4 w *
0x0038d0…003a64 Dummy {f00=0x0010, f01=0x0190, f02=» @ F IDENT MASK03 830317 NJ LIGGEVOGN MASK03K H MASK03K Z bNUM n CURP | DCPOK LENG , ( J A4 , ( * Au Au
0x003a64…003bf8 Dummy {f00=0x0010, f01=0x403a, f02=» z X X $@ 6EVOGN MASK03K H MASK03K Z bNUM n CURP | DCPOK LENG , ( J A4 , ( * Au Au
0x003bf8…003d8c Dummy {f00=0x0010, f01=0x0190, f02=» > F IDENT MASK04 830307 NJ INT. LIG MASK04K F MASK04K X bNUM l CURP z DCPOK LENG , ( J , ( * A4 Aw *
0x003d8c…003f20 Dummy {f00=0x0010, f01=0x4082, f02=» h ATTR , ( ] * o H p p l@ ~ z DCPOK LENG , ( J , ( * A4 Aw *
0x003f20…0040b4 (1, 4) Dummy {f00=0x0011, f01=0x0190, f02=» B F IDENT MASK05 811116 NJ AFBESTILLING MASK05K J MASK05K bNUM p CURP ~ DCPOK LENG , ( J I , ( * V
0x0040b4…004248 Dummy {f00=0x0011, f01=0x403c, f02=» | X X &@ 8ILLING MASK05K J MASK05K bNUM p CURP ~ DCPOK LENG , ( J I , ( * V
0x004248…0043dc Dummy {f00=0x0011, f01=0x0190, f02=» > F IDENT MASK06 830317 NJ SOVEVOGN MASK06K F MASK06K X bNUM l CURP z DCPOK LENG , ( J ? , ( * *
0x0043dc…004570 Dummy {f00=0x0011, f01=0x409e, f02=» h , ( ] * n ATTR 8 , ( oT H x @ ENG , ( J ? , ( * *
0x004570…004704 Dummy {f00=0x0011, f01=0x416c, f02=» : F IDENT MASK07 830318 NJ BIL MASK07K B MASK07K T bNUM h CURP v DCPOK LENG , ( J I , ( * R
0x004704…004898 Dummy {f00=0x0011, f01=0x4170, f02=» > F IDENT MASK08 820601 NJ [NDRING MASK08K F MASK08K X bNUM l CURP z DCPOK LENG , ( J c , ( * u u
0x004898…004a2c Dummy {f00=0x0011, f01=0x40fe, f02=» 2 F IDENT MASK09 DUMMY MASK09K : MASK09K L bNUM ` CURP n DCPOK ~ LENG ATTR & " P @
0x004a2c…004bc0 Dummy {f00=0x0011, f01=0x0190, f02=» 8 H IDENT T:AK00 TRA 4.2 82-12-09 F1 O1111 821209 NJ T:AK00 @ T:AK00A R > : T:DK00 D:CB90 C:CB90 D:CB10 C:CB10 D:CB20 C:CB20 f 6 2 D:TB10A Z:TB10A D:TB202 Z:TB20F D:TB30 Z:TB30 * & a a
0x004bc0…004d54 (1, 5) Dummy {f00=0x0011, f01=0x4094, f02=» l , ( y * K0 , ( : j ~@ B20 C:CB20 f 6 2 D:TB10A Z:TB10A D:TB202 Z:TB20F D:TB30 Z:TB30 * & a a
0x004d54…004ee8 Dummy {f00=0x0011, f01=0x40d0, f02=» 8 H IDENT T:DK00 TRA 4.2 82-12-09 F1 O1111 821209 NJ T:DK00 @ T:DK00D R KBGO0 f * & K0 * * v @ " @ 0 Z:TB30 * & a a
0x004ee8…00507c Dummy {f00=0x0011, f01=0x412e, f02=» 8 H IDENT T:AD00 TRA 4.2 82-12-09 F1 O1111 821209 NJ T:AD00 @ T:AD00A " R > : T:DD00 D:CB90 C:CB90 D:CB10 C:CB10 D:CB20 C:CB20 f * & ` * & T D0
0x00507c…005210 Dummy {f00=0x0011, f01=0x40bc, f02=» 8 H IDENT T:DD00 TRA 4.2 82-12-09 F1 O1111 821209 NJ T:DD00 @ T:DD00D R DC1GO f , ( D0 * v @ * & T D0
0x005210…0053a4 Dummy {f00=0x0011, f01=0x40b0, f02=» 8 H IDENT T:ATAB TRA 4.2 82-12-09 F1 O1111 821209 NJ T:ATAB @ T:ATABA R T:AD00 T:AK00 f P :A @ @ * & T D0
0x0053a4…005538 Dummy {f00=0x0011, f01=0x408e, f02=» 8 H IDENT U:BTAB TRA 4.2 82-12-09 F1 O1111 821209 NJ U:BTAB @ U:BTABB R f :B x@
0x005538…0056cc Dummy {f00=0x0011, f01=0x408e, f02=» 8 H IDENT S:BTAB TRA 4.2 82-12-09 F1 O1111 821209 NJ S:BTAB @ S:BTABB R f :B x@
0x0056cc…005860 Dummy {f00=0x0011, f01=0x0190, f02=» 8 H IDENT C:CB90 TRA 4.2 82-12-09 F1 O1111 821209 NJ C:CB90 @ C:CB90C R * & @ABCDEFGHIJKLMNOPQRS f * & `@ * & = & [ &
0x005860…0059f4 (1, 6) Dummy {f00=0x000c, f01=0x4042, f02=» ,@ > C:CB90 @ C:CB90C R * & @ABCDEFGHIJKLMNOPQRS f * & `@ * & = & [ &
0x0059f4…005b88 Dummy {f00=0x000c, f01=0x40c2, f02=» 8 H IDENT D:CB90 TRA 4.2 82-12-09 F1 O1111 821209 NJ D:CB90 @ D:CB90C R * & & * , f , ^ & @ = & [ &
0x005b88…005d1c Dummy {f00=0x000c, f01=0x40d4, f02=» 8 H IDENT C:CB10 TRA 4.2 82-12-09 F1 O1111 821209 NJ C:CB10 @ C:CB10C R * & ( f P $ $ @ & [ &
0x005d1c…005eb0 Dummy {f00=0x000c, f01=0x40ee, f02=» 8 H IDENT D:CB10 TRA 4.2 82-12-09 F1 O1111 821209 NJ D:CB10 @ D:CB10C R * & B f * & = B @ & [ &
0x005eb0…006044 Dummy {f00=0x000c, f01=0x0190, f02=» 8 H IDENT C:CB20 TRA 4.2 82-12-09 F1 O1111 821209 NJ C:CB20 @ C:CB20C R * & , . / 0 6 7 f * & 8 9 : ; < = > A B C D I J K P * & = Q T U V W X Z [ ^ ******** * & [ ****************
0x006044…0061d8 Dummy {f00=0x000c, f01=0x0190, f02=» KLASSE/K v * & UPE, @NSKE UFORENELIG KUPE/RYG * & ER, @NSKE UFORENELIG DATAMATE B ( & N OPTAGET, PR@V IGEN DATO? p * & - KLASSE? ( & K RYGER? ( & i
0x0061d8…00636c Dummy {f00=0x000c, f01=0x0190, f02=» TILSLUTN z * & ING? SATELLIT * & ? KONTROLN F & & UMMER? NAT? t * & ; BILART/P * & Y LADSART? REST/STR ( & w [KNING
0x00636c…006500 Dummy {f00=0x000c, f01=0x0190, f02=» STANDARD ( & MASKE? TEKNIK * & SKRIV MA J * & + NUELT RYGER/AN x * & I TAL? KUPE/ANT * & g AL? PLACERIN * &
0x006500…006694 (1, 7) Dummy {f00=0x000e, f01=0x0190, f02=» R? BNR-@NSK & & E? BNR? * * & REFNR FE T * & 9 JLAGTIG UDFYLDT !!!!!!!! * & W !!!!!!!!!!!!!!!!!!!!!!++ ; ( & u " 0)(!%'&B K 12 *
0x006694…006828 Dummy {f00=0x000e, f01=0x0190, f02=» * & T SAT ( & 2 ( & ) AAAAAA AAAAAAAAAAAAA ^ ( & G BBBBBBBBBBBBB B ( & e CCCCCCCC & CC C & &
0x006828…0069bc Dummy {f00=0x000e, f01=0x4014, f02=» @ AT ( & 2 ( & ) AAAAAA AAAAAAAAAAAAA ^ ( & G BBBBBBBBBBBBB B ( & e CCCCCCCC & CC C & &
0x0069bc…006b50 Dummy {f00=0x000e, f01=0x40ea, f02=» 8 H IDENT D:CB20 TRA 4.2 82-12-09 F1 O1111 821209 NJ D:CB20 @ D:CB20C R * & > # N f * & # h k l m n = ! > @ CC C & &
0x006b50…006ce4 Dummy {f00=0x000e, f01=0x40d4, f02=» 8 H IDENT Z:TB10 TRA 4.2 82-12-09 F1 O1111 821209 NJ Z:TB10 @ Z:TB10T R * & f $ $ @ > @ CC C & &
0x006ce4…006e78 Dummy {f00=0x000e, f01=0x40ee, f02=» 8 H IDENT D:TB10 TRA 4.2 82-12-09 F1 O1111 821209 NJ D:TB10 @ D:TB10T R * & B f * & = B @
0x006e78…00700c Dummy {f00=0x000e, f01=0x418c, f02=» 8 H IDENT Z:TB20 TRA 4.2 82-12-09 F1 O1111 821209 NJ Z:TB20 @ Z:TB20T R & f & ~ & = & [ & y & & & & &
0x00700c…0071a0 Dummy {f00=0x000e, f01=0x40ce, f02=» 8 H IDENT D:TB20 TRA 4.2 82-12-09 F1 O1111 821209 NJ D:TB20 @ D:TB20T R * & 20 ( f ( C * k 2 @ & & &
0x0071a0…007334 (1, 8) Dummy {f00=0x000f, f01=0x0190, f02=» 8 H IDENT Z:TB30 TRA 4.2 82-12-09 F1 O1111 821209 NJ Z:TB30 @ Z:TB30T R * & f * & * & = * & [
0x007334…0074c8 Dummy {f00=0x000f, f01=0x0190, f02=» z * & * & F * & t * & - * & K * & i
0x0074c8…00765c Dummy {f00=0x000f, f01=0x0190, f02=» & $ & 4 & D & ; T & Y d & w t & & & & & & + & I & g &
0x00765c…0077f0 Dummy {f00=0x000f, f01=0x409e, f02=» & & & $ & 4 & D & ) T $ G d b t G b @ & & & & + & I & g &
0x0077f0…007984 Dummy {f00=0x000f, f01=0x40d6, f02=» 8 H IDENT D:TB30 TRA 4.2 82-12-09 F1 O1111 821209 NJ D:TB30 @ D:TB30T R * & : @ f ( $ 0 , , , 2 : @ + & I & g &
0x007984…007b18 Dummy {f00=0x000f, f01=0x0190, f02=» 8 H IDENT PLADS TRA 4.2 82-12-09 F1 O1111 821209 NJ DC1GO KBGO @ $$$TRAA V DC1GO KBGO@ " h @ < BITOFFA BITON BITTST FLASH GFLDIX1 GMSGIX1 MASKJ T:ABOR D @ T:DELA T:DSC0" T:DSC1 T:GETI T:KI1 T:MWAI0 T:READ T:WAIT
0x007b18…007cac Dummy {f00=0x000f, f01=0x0190, f02=» $ # ' KA 0 / A B 6 !A T : @A f @ x J F " D 0X 0X 30X 0X L A _ 0XA ALT2 A! RL Q6A!QL! QL B C ` k q #
0x007cac…007e40 Dummy {f00=0x000f, f01=0x0190, f02=» K * : J Z j z
0x007e40…007fd4 (1, 9) Dummy {f00=0x000f, f01=0x018e, f02=» ! ! ! * ! : J F " D "!0 f""! f"#! f"$L R A!0XQWKAF0X b3 k:0X kb0XC C"*0X 0X 2F ! J 1 ! ! ! ! ! ! L ! J F
0x007fd4…008168 Dummy {f00=0x000f, f01=0x0190, f02=» ! " & " ) " ( - " 8 2 " H 5 " X ; " h @ " x A " B " " C " " D o " E g " F " " G " H "
0x008168…0082fc Dummy {f00=0x000f, f01=0x0190, f02=» " R " # S " # T # ( U # 8 V " # H W k # X X " # h Y " # x Z # [ # J F " D R0X ! R2T _( A!0X QKAFW A!0X QKAF0X T 0X 0R`!_ 0X 2F # d 1 #
0x0082fc…008490 Dummy {f00=0x000f, f01=0x0190, f02=»RRRRRRRR F > NF R_E R_U R_M R R# R$ R% R& M' # v $ 4 $ D $ T $ d $ t $ $ $ $ $ $ $ J F " D R&W R,T R
0x008490…008624 Dummy {f00=0x000f, f01=0x0190, f02=» % % % $ 0000000000 % 4 J F " D _ C"0X C R CL RC! R?R R" A" Bh!! B!"AB[ U;jU hA#lhA"!UL ULjU % N 0000000000 % % % % " % / %
0x008624…0087b8 Dummy {f00=0x000f, f01=0x0190, f02=» r & y & } $ & $ J F " D @ !4 R" 4 M IP d M! `* M" `+ M$ M!4 R!0X .@P0X 0X A & 4 & & & & & & & &
0x0087b8…00894c Dummy {f00=0x000f, f01=0x0190, f02=» j & ' X ' $ ' : J F " D j[ !Z 0X [eT)@U R R2T W k= bLW k> bLW kL b%0X ! 4 j3 m; ' J ' ' % 0 ' , ' 4 ' ; '
0x00894c…008ae0 Dummy {f00=0x000f, f01=0x0190, f02=» ' j " ( p ( ( ( & + ( 8 & ( F 99 ( T " P ( f & ( v & 6A ( & ( ( ( x ( ( J F " D @X L B A" B4A !4AL A!_ A! P aXF BL0X XB R"
0x008ae0…008c74 (1, 10) Dummy {f00=0x0010, f01=0x0190, f02=» " D L!0X L AL0X A0X L R!4 h!! h!" h!# h!$ 0R`!kblch!! d [ R ( ) N ) ^ O ) n ) ~ ) ) ) 1 ) ) ) ) J F " D R
0x008c74…008e08 Dummy {f00=0x0010, f01=0x0190, f02=» " D hAB B! B B$ A! A R"4 "h!!$.,f!!% RW$ R" AL B$ hABfAB B! B ) K * N J F " D @ B$ A! A R"4 Ah!$$A!A"A(=@@@A@B@C@D@E@F@GAQAS6A A@W A * ^ ) * * * J F " D BW AAW ACW AFW ADW AEW AG4 h!!! h
0x008e08…008f9c Dummy {f00=0x0010, f01=0x018e, f02=» * J F " D Q4 A""Ah!! ChA$0RC T A!_ 0RC RC$W/ RT+H@ RW$HA RW IF HG RW + + + l + | " + + 9 + - 3 + ?0 9 + J F " D IB IC HD RW IE 4 R#0Rh)$"T 0Rh*$"P CL RC$W
0x008f9c…009130 Dummy {f00=0x0010, f01=0x0190, f02=» m V , o 3 , u , & J F " D @30Rh($"P CL RC$Wx0Rh)$"P CL RC$Wg0Rh*$"P CL RC$WV0Rh)$"PFjQ ! , 6 6h , , 1h , / , 3 , , 1/ , . ,
0x009130…0092c4 Dummy {f00=0x0010, f01=0x0190, f02=» , 0 " - 0 - 0 - 0 - B V - R 3 - d J F " D W R# 4 R# !4 R#jR "lh"" PR%PL #PL %PL 0Rh'$"P CLW C) RC$ - t - - - -
0x0092c4…009458 Dummy {f00=0x0010, f01=0x0190, f02=» - K 3 . O . W . ( i . 8 q . H y . X J F " D @R# 4 CL RC$ R# !4 R# A" Bh!! B!"AB%0RhA$!P 0RhA$"T 0RhA$ W . h . . J F " D A!_! R# !4 R# 4 6 ?6-$ jYK"H K"jYK
0x009458…0095ec Dummy {f00=0x0010, f01=0x0190, f02=» "YK K"jD "YK K"jC "YK K"jB "YK K"jA "YK . r L / 0 P 11 / @ U " / R [ / b ] / r b / y / / J F " D @ K" K K 4 R! XL A#0X XA R R!4 R# Ah!!$A!7 B" X8@U l:0RhB$ 0R /
0x0095ec…009780 Dummy {f00=0x0010, f01=0x0190, f02=»!6A / P J 0 3 0 0 0 w 0 @ 0 P 0 ` 0 p 0 J F " D CL RC$ M! G R R$_/ R'4 4 R# L00X L$F!T#FLPAUj[!!<F 0 0 0
0x009780…009914 (1, 11) Dummy {f00=0x0010, f01=0x0190, f02=» f 0 L G ) 1 I 1 ] 1 , p 1 < u a 1 L K 1 J F " D @"#! f"$L R#4 B!"B! BA B!4 R# B! CA C!*BC B" R#4 R B"4 l: R 1 l 1 , 1 1 1 1
0x009914…009aa8 Dummy {f00=0x0010, f01=0x0190, f02=»0X XD GA+ R(4 4 A! I J jJ!!L B!jI!!hB! "B 1 z n 2 8 !0 G 2 H )0 G 2 Z -0 G 2 l 60 G 2 ~ :0 G 2 >0 G 2 J F " D A "IJ _ B" A!4 4 R B!4 PW PL4 PW!PL !PL 4 PW!PL !PL !PL 2 K
0x009aa8…009c3c Dummy {f00=0x0010, f01=0x018e, f02=»PL W !4 2 Z 0 A 3 0 A 3 ( 0 A 3 : 0 A 3 L 0 A 3 ^ 0 $ 3 p J F " D 4 PW%PL #PL W !4 PW%PL #PL W !4 PW%PL #PL W !4 3 0 P 3 0 P 3 0 P 3
0x009c3c…009dd0 Dummy {f00=0x0010, f01=0x0190, f02=» 3 J F " D PW!PL !PL !PL 4 PW!PL !PL !PL !PL 4 PW%PL #PL 4 PW!PL %P 4 0 W 4 V 0 W 4 h 0 W 4 z 0 W 4 !0 W 4 /0 W 4 30 W 4 J F " D L #PL W !4 PW!PL !PL !PL !PL 4 4 PW%
0x009dd0…009f64 Dummy {f00=0x0010, f01=0x0190, f02=» D @ 4 PW%PL #PL W !4 PW%PL #PL W !4 PW%PL #PL W 4 ? 5 L 0 5 0 P 5 n 0 5 0 P 5 J F " D !4 HF RW PW%PL #PL W !4 PW%PL #PL W !4 H!"HE jQ !W 5 0 H 5
0x009f64…00a0f8 Dummy {f00=0x0010, f01=0x0190, f02=» 5 0 9 6 0 1 6 .0 1 6 0 20 6 B 9 6 T J F " D H!_ !W 4 R" RW PR%PL<#PL8 APjR "W" PR%PL(#PL$ BP%AL%6B 6 f N 6 T 6 Y 6 a 6 m0 6
0x00a0f8…00a28c Dummy {f00=0x0010, f01=0x0190, f02=»PL PL4 6 R 0 7 0 7 " 0 7 4 0 7 F 0 7 X 0 7 j 0 7 | 0 7 0 7 0 7 0 7 J F " D PW!PL !PL !PL !PL PL4 PW!PL !PL !PL !PL !
0x00a28c…00a420 Dummy {f00=0x0010, f01=0x018e, f02=»hB$0RCIG RC$W RC& GB LhB 7 d 8 " 8 2 8 B 8 R 8 b # 8 r ! 1 8 " 8 4 8 5 8 6 M 8 7 8 8 t 8 9 { 8 :
0x00a420…00a5b4 (1, 12) Dummy {f00=0x0012, f01=0x018e, f02=» C 9 D 9 E 9 $ F 9 4 G 9 D H 9 T I 9 d J 9 t K 9 L 9 M 9 N 9 O 9 J F " D !0X L DhB$0RD MhB# R EM FN2H RRRRRAHjWE!$! E!
0x00a5b4…00a748 Dummy {f00=0x0012, f01=0x0190, f02=» Z t : [ t : t : $ ] t : 4 ^ t : D _ t : T ` t : d a q : t b q : c t : d q : e t : f t : g t : h t : i t :
0x00a748…00a8dc Dummy {f00=0x0012, f01=0x018e, f02=» O HhG"jlH : T ; ; " $ ; 2 1 ; B B ; R c ; b h ; r } ; ; ; ; ; ; ; ;
0x00a8dc…00aa70 Dummy {f00=0x0012, f01=0x018e, f02=» < < < $ < 4 h < D < T < d < t < < J F " D EW 0RhG$"jW hG#lH 3D RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRP 0RhG$ W < <
0x00aa70…00ac04 Dummy {f00=0x0012, f01=0x0190, f02=» = = = $ = 4 = D = T = d = t = = = = = = = =
0x00ac04…00ad98 Dummy {f00=0x0012, f01=0x018e, f02=»BG HS ?R dLA = V > D > $ ! > 4 , 1 > F @ > V J F " D RW @U4 R$@H CM RR N P R !NL W NC W H!W R H"W H#W H$W H% > f E > k > w > z > $ > J F " D
0x00ad98…00af2c Dummy {f00=0x0012, f01=0x0190, f02=» > ? ? ? ( J F " D X O FL0ROFP R NLW ( N R( !W R( W N$W["A @T N Z A! EN!E ? : ? J F " D L !EL' E'IW;KT8 BA B! BM jVCAW CA C! GL GC_ BA B!jVCAW CA C! ? o ? $ o ?
0x00af2c…00b0c0 Dummy {f00=0x0012, f01=0x4104, f02=» ? L @ R @ X @ ( ^ @ 8 d @ H j @ X w ( @ h J F " D @RZ'W(0RZ&W"0RZ%W 0RZ$W 0RZ'W 0RZ&W 0RZ%W 0RZ$4 Q: A GLh AGQ ! @ z " A GA G!jQ !WG,Q; A!4 @ @ @ @ @
0x00b0c0…00b254 (1, 13) Dummy {f00=0x0012, f01=0x2008, f02=» ^ L = DSB002 DATE = 81 06 12 1216PACK NBR = 0002 X !H ` /| .U /E | a ? C ~
0x00b254…00b3e8 Dummy {f00=0x0012, f01=0x018e, f02=»01,TEST02,TEST03,TEST04,TEST05, C ~ , P TEST06,TEST07,TEST08,TEST09,TEST10, C * , P TEST11,TEST12,TEST13,TEST14,TEST15, C Z , P TEST16,TEST17,TEST18,TEST19,TEST20, C , P TEST21,TEST22,TEST23,TEST24,TEST25, C , P TEST26,TEST27,TEST28,TEST29,
0x00b3e8…00b57c Dummy {f00=0x0012, f01=0x0190, f02=» PKB040 . P CALL BITOFF,FLDTAB(TBIN7,W4),W0 FIELD OK PKB050 H PKB051 V P IB TBIN6, C d . P KB090,KB090,KB052,KB052,KB052,KB090, C z . P KB080,KB090,KB090,KB090,KB090,KB090, C . P KB090,KB090,KB090,KB000,KB015,KB090, C
0x00b57c…00b710 Dummy {f00=0x0012, f01=0x018e, f02=»FERENT, TBIN2 OK r PKB055 P ADD TBIN2,W1 & P MOVE TBIN7,TBIN1 < P ADD TBIN7,W1 V P CBNG TBIN2,TBIN7,KB015 l ( P TBF TALLFLD,KB090 ERROR CORRECTION? & P B KB000 WRAP AROUND IF DATAENTRY P " PKB060 POWER FAILURE DETECTED
0x00b710…00b8a4 Dummy {f00=0x0012, f01=0x0190, f02=» PKB090 P RET P PEND P EJECT , PREADKB PROC : 4 P* THE PROCEDURE READS A FIELD FROM THE KEYBOARD. N P* PARAMETERS: P* TP1 - FIELD LENGTH P* RETURNED BINARIES: P* TP1 - EFFECTIVE LENGTH P* TP2 - INDEX TO KEY
0x00b8a4…00ba38 Dummy {f00=0x0012, f01=0x0190, f02=» 5=KEYBOARDTIMEOUT P PERF PUSH,W4 " P CLEAR TAUTOTAB 8 & P MOVE TBIN3,TP1 SAVE FIELD LENGTH P P PERF KBREAD z P BERR RKB010 P CMP TP2,W0 P BE RKB020 POWER FAILURE P BL RKB030 KEYLOCK TURNED " P CBE TP2,=W'33',
0x00ba38…00bbcc Dummy {f00=0x0012, f01=0x0190, f02=»IN KEYTAB j : P* CASE 3: OVERFLOW IN DATAITEM (SHOULD BE IMPOSSIBLE) $ P* CASE 5: NBR OF CHARS. REACHED P * P CBE TP2,TBIN3,RKB040 THIS WAS CASE 5 x P* NOW ONLY CASE 2 IS LEFT 4 P* THIS IS CONSIDERED TO BE IMPOSSIBLE, RIGHT NOW P B RKB05
0x00bbcc…00bd60 Dummy {f00=0x0012, f01=0x0190, f02=»E TBIN8,W2 P B RKB090 PRKB040 TOO MANY INPUTCHARS $ P MOVE TBIN8,W3 H P B RKB090 ^ PRKB050 NORMAL p P MOVE TBIN8,W4 P B RKB090 PRKB060 P MOVE TBIN8,W5 PRKB090 P PERF PULL,W4 P RET P PEN
0x00bd60…00bef4 (1, 14) Dummy {f00=0x0021, f01=0x0190, f02=»MANY CHARACTERS TO READ (MAX), ON RETURN THIS ITEM 8 P* WILL CONTAIN THE ACTUAL NBR OF CHARS READ : L P* TP2 - ON COMPLETION THIS ITEM WILL POINT AT THE END-OF-ITEM KEY USED v P* P* SPECIAL FEATURES: > P* BSP - BACKSPACE - NON-DE
0x00bef4…00c088 Dummy {f00=0x0021, f01=0x018e, f02=»ST COMPLETE 'KI' z F P* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT & P* TBIN3 - DISPLACEMENT IN TSTRG40 b P* TBIN4 - ORIG. LENGTH P* TBIN5 - INDEX TO KEYTABLE P* TBIN6 - SCRATCH P* TBIN7 - SCRATCH & P* TBIN
0x00c088…00c21c Dummy {f00=0x0021, f01=0x0190, f02=» P MOVE TBIN8,W1 PKBR010 P CLEAR TBOOL ( P MOVE TBIN3,W0 < $ P MOVE TBIN4,TP1 SAVE ORIG.LENGTH R P MOVE TBIN2,TP1 z P MOVE TSTRG40,CZERO 2 P MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED 4 P XCOPY TSTRG40,W0,TBIN4,OUTBUF,FLDTA
0x00c21c…00c3b0 Dummy {f00=0x0021, f01=0x0190, f02=»P j $ P KI KEYB,TKBBUF,KTAB02,TBIN1,TP2 & P BOK KBR040 KEYLOCK OR TERM. CHAR. 2 , P* A CHAR NEITHER ALPHANUM NOR LISTED IN P* KEYTABLE IS INPUT P* SIZE OF BUFFER IS REACHED P* POWER FAILURE " P* REQ. NBR OF CHARS IS REACHED
0x00c3b0…00c544 Dummy {f00=0x0021, f01=0x0190, f02=»ALL MASK,TKBSTAT,TBIN6 P BZ KBR018 NO TIMEOUT P PERF FUNC06 < P MOVE TP2,=W'33' P P B KBR025 h PKBR018 z P CBNE W0,TP2,KBR030 P********** PKBR020 P PERF PULL,W8 * P CMP W0,W1 UNDEF. ERROR OR PWR FAILURE P
0x00c544…00c6d8 Dummy {f00=0x0021, f01=0x0190, f02=»******** PKBR030 " P MOVE TP2,W4 SIMULATE FTABKEY P B KBR090 RETURN D P********** PKBR040 n * P CBG TBIN1,W0,KBR045 IF ANY INPUTCHAR | $ P CLEAR TBOOL WE CAN RESET TBOOL PKBR045 & P CBE TP2,W0,KBR020 POWER FAILURE ?
0x00c6d8…00c86c Dummy {f00=0x0021, f01=0x0190, f02=»W'20',KBR060 FSP P CBE TBIN5,W7,KBR095 ETX P B KBR090 8 P********** J " PKBR050 BACKSPACE KEY PRESSED P TBT TBOOL,KBR020 ( P SUB TBIN2,TBIN1 HOW MANY CHARS LEFT P ADD TBIN2,W1 2 P CBNL TBIN2,TP1,KBR010 BACKSPACED WE TO ST
0x00c86c…00ca00 Dummy {f00=0x0021, f01=0x0190, f02=»TCURPOS MOVE CURSOR ONE POS P ADD TBIN7,TBIN3 -//- $ P B KBR016 B P********** T PKBR060 FORWARDSPACE KEY f 0 P SUB TBIN2,TBIN1 HOW MANY CHARS MAY WE READ P SUB TBIN2,W1 ( P XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0 " P ADD TBIN3
0x00ca00…00cb94 (1, 15) Opaque[0x194]
0x00cb94…00cd28 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x13a8, f03=0x0000}
0x00cb94…00cd28 IdxSect {
0x00cb94…00cd28 f00 = 0x009d // 0xcb94 @0x0
0x00cb94…00cd28 f01 = 0x0004 // 0xcb96 @0x2
0x00cb94…00cd28 gno = [ // 0xcb98 @0x4
0x00cb94…00cd28 [0x00]: C0x009d.0x1.0
0x00cb94…00cd28 [0x01]: C0x009d.0x2.0
0x00cb94…00cd28 ]
0x00cb94…00cd28 }
0x00cd28…00cebc Dummy {f00=0x009d, f01=0x000c, f02=»831223 _ _FLDIX1 GMSGIX1 MASKJ T:ABOR T:DELA T:DSC0" T:DSC1 T:GETI T:KI1 T:MWAI0 T:READ T:WAIT T:WRITA T:XSTAB UNPACKF @ ,Z:TB20 4 831223 Z:TB20T ,D:TB20 5 831223 D:TB20T 2 ,Z:TB30 6 831223 Z
0x00cebc…00d050 Dummy {f00=0x009d, f01=0x0190, f02=» PDUMMY 831223 tNUM CURP DCPO LENG ATTR `BITPUL 831223 BITTSTK BITINV BITON BITOFF I:EVA0 I:RT1 j >GMSGIX 831223 GMSGIXK I:EVA0 I:RT1 MSKTAB 831223
0x00d050…00d1e4 Dummy {f00=0x009d, f01=0x0190, f02=»TTRC >GFLDIX 831223 GFLDIXK I:EVA0 I:RT1 fUNPACK 831223 UNPACKK FLASH : I:RT1 I:EVA0 T:FDSP MSKTAB TABEND@ R RMASK02 831223 MASK02K bNUM CURP DCPOK LENG ATTR
0x00d1e4…00d378 Dummy {f00=0x009d, f01=0x0190, f02=» DCPOK LENG ATTR p RMASK05 831223 MASK05K bNUM CURP DCPOK LENG ATTR X RMASK06 831223 MASK06K bNUM CURP DCPOK LENG ATTR RMASK07 831223 MASK07K bNUM CURP DCPOK L
0x00d378…00d50c Dummy {f00=0x009d, f01=0x0190, f02=»K09K bNUM CURP DCPOK LENG ATTR T:AK00 831223 T:AK00A T:DK00 D:CB90 C:CB90 D:CB10 C:CB10 D:CB20 C:CB20 D:TB10A Z:TB10A D:TB202 Z:TB20F D:TB30 Z:TB30 4T:DK00 831223 T:DK00D KBGO0 " f
0x00d50c…00d6a0 Dummy {f00=0x009d, f01=0x0190, f02=» DC1GO >T:ATAB " 831223 T:ATABA T:AD00 T:AK00 :A ,U:BTAB # 831223 U:BTABB :B ,S:BTAB $ 831223 S:BTABB :B ,C:CB90 % 831223 C:CB90C ,D:CB90 ' 831223 D:CB90C
0x00d6a0…00d834 (1, 16) Dummy {f00=0x009d, f01=0x0190, f02=» ,D:CB20 1 831223 D:CB20C > ,Z:TB10 2 831223 Z:TB10T $ ,D:TB10 3 831223 D:TB10T B ,Z:TB20 4 831223 Z:TB20T ,D:TB20 5 831223 D:TB20T 2 ,Z:TB30 6 831223 Z
0x00d834…00d9c8 Dummy {f00=0x009d, f01=0x408e, f02=»TST FLASH GFLDIX1 GMSGIX1 MASKJ T:ABOR T:DELA T:DSC0" T:DSC1 T:GETI T:KI1 T:MWAI0 T:READ T:WAIT T:WRITA T:XSTAB UNPACKF @ ,Z:TB20 4 831223 Z:TB20T ,D:TB20 5 831223 D:TB20T 2 ,Z:TB30 6 831223 Z
0x00d9c8…00db5c Dummy {f00=0x009d, f01=0x0190, f02=»TX z P B KBR090 P********** " PKBR050 BACKSPACE KEY PRESSED . P TBT TBOOL,KBR020 T ( P SUB TBIN2,TBIN1 HOW MANY CHARS LEFT n P ADD TBIN2,W1 2 P CBNL TBIN2,TP1,KBR010 BACKSPACED WE TO START? ( P XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,
0x00db5c…00dcf0 Dummy {f00=0x009d, f01=0x018e, f02=»,TBIN3 -//- P B KBR016 P********** & PKBR060 FORWARDSPACE KEY 8 0 P SUB TBIN2,TBIN1 HOW MANY CHARS MAY WE READ Z P SUB TBIN2,W1 ( P XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0 " P ADD TBIN3,TBIN1 FIELD LENGTH P ADD TBIN3,W1 PLUS
0x00dcf0…00de84 Dummy {f00=0x009d, f01=0x0190, f02=» 8 P XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0 COMPLETE BUFFER 6 P MOVE TKBBUF,TSTRG40 MOVE COMPLETED BUFFER TO APPL D . P PERF FIND00,TKBBUF FIND TOTAL FIELDLENGTH ~ PKBR095 P MOVE TSTRG40,CZERO & P XCOPY TSTRG40,W0,TBIN1,TKBBUF,W0 P MOV
0x00de84…00e018 Dummy {f00=0x009d, f01=0x018e, f02=»1 P PERF PULL,W8 P CMP W0,W0 PKBR099 2 P RET @ P PEND L P EJECT Z PLCKSET PROC h P MUL TP2,=W'-1' | , P IB TP2,RKB034,RKB033,RKB032,RKB031, C " P RKB038,RKB037,RKB036,RKB035 PRKB031 P CALL BITOFF,TKE
0x00e018…00e1ac Dummy {f00=0x009d, f01=0x0190, f02=» P B RKB039 PRKB034 P CALL BITOFF,TKEYS,W4 $ P B RKB039 B PRKB035 T P CALL BITON,TKEYS,W7 b P B RKB039 ~ PRKB036 P CALL BITON,TKEYS,W6 P B RKB039 PRKB037 P CALL BITON,TKEYS,W5 P B RKB039 P
0x00e1ac…00e340 Dummy {f00=0x009d, f01=0x018e, f02=» THE LENGTH OF THE DATAFIELD IN THE P* BUFFER SPECIFIED. , . P* IF THE LAST NON-ZERO CHAR IS BELOW X'20' H 2 P* (EOI-KEY) THE COUNT WILL BE DECREASED BY 1. z P* P MOVE TSTRG1,CZERO P MOVE TBIN1,W0 0 P MOVE TBIN7,=W'40' OBS OBS LEN
0x00e340…00e4d4 (1, 17) Opaque[0x194]
0x00e4d4…00e668 # DirEnt {nam=»P24CON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x00e4d4…00e668 IdxSect {
0x00e4d4…00e668 f00 = 0x0000 // 0xe4d4 @0x0
0x00e4d4…00e668 f01 = 0x0002 // 0xe4d6 @0x2
0x00e4d4…00e668 gno = [ // 0xe4d8 @0x4
0x00e4d4…00e668 [0x00]: C0x0000.0x3.0
0x00e4d4…00e668 ]
0x00e4d4…00e668 }
0x00e668…00e7fc Dummy {f00=0x0000, f01=0x018e, f02=» PT; P24; PTID=KA; TCL=K0; * LEV=60; : 01; J TDC=T01; V PLC=01L; f P02; v SDC=S01; PSDC=S02; T; P01; PTID=KR; PTCL=K0; PLEV=60; P01; PTDC=T01; PLC=0
0x00e7fc…00e990 Dummy {f00=0x0000, f01=0x000c, f02=» P00; P24; PTID=KA; TCL=K0; * LEV=60; : 01; J TDC=T01; V PLC=01L; f P02; v SDC=S01; PSDC=S02; T; P01; PTID=KR; PTCL=K0; PLEV=60; P01; PTDC=T01; PLC=0
0x00e990…00eb24 Dummy {f00=0x0000, f01=0x2008, f02=» P24; PTID=KA; TCL=K0; * LEV=60; : 01; J TDC=T01; V PLC=01L; f P02; v SDC=S01; PSDC=S02; T; P01; PTID=KR; PTCL=K0; PLEV=60; P01; PTDC=T01; PLC=0
0x00eb24…00ecb8 Dummy {f00=0x0000, f01=0x0190, f02=» 6 F IDENT T:IO P,REL=4.2,791229,870136940420 J F " T:WRITK T:READ T:KIY T:NKI T:EDWR T:DSC0 T:DSC1@ T:DSC2 T:EDWEC > F B T:EDWF T:EDWIN T:EDIO T:XSTA T:WAIT@ T:IO1 T:IO2 T:IO3 T:IO4 F B T:FDS0 T:FDSP, T:STCW T:GDSP T:GTCW T:KIPR
0x00ecb8…00ee4c Dummy {f00=0x0000, f01=0x0190, f02=» r I:EVA0 T:READ 2 $ * & ! P / W 8 T:DSC0 F f T:DSC1@ X z , ( = / W C C W , ( [ C C J ' W 781"&$ 39 T:DSC2 , ( {
0x00ee4c…00efe0 Dummy {f00=0x0000, f01=0x0190, f02=»SEGW T:MWAID , ( ( W , ( W ^ P , ( ( , ( 1W C C C ( T:IO1 T:IO2 T
0x00efe0…00f174 (1, 18) Opaque[0x194]
0x00f174…00f308 # DirEnt {nam=»PLADS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13c0, f03=0x0000}
0x00f174…00f308 IdxSect {
0x00f174…00f308 f00 = 0x009e // 0xf174 @0x0
0x00f174…00f308 f01 = 0x0026 // 0xf176 @0x2
0x00f174…00f308 gno = [ // 0xf178 @0x4
0x00f174…00f308 [0x00]: C0x009e.0x0.0
0x00f174…00f308 [0x01]: C0x009e.0x1.0
0x00f174…00f308 [0x02]: C0x00ad.0x0.0
0x00f174…00f308 [0x03]: C0x00ad.0x1.0
0x00f174…00f308 [0x04]: C0x00ad.0x2.0
0x00f174…00f308 [0x05]: C0x00ae.0x0.0
0x00f174…00f308 [0x06]: C0x00ae.0x1.0
0x00f174…00f308 [0x07]: C0x00af.0x3.0
0x00f174…00f308 [0x08]: C0x00b0.0x0.0
0x00f174…00f308 [0x09]: C0x00b0.0x1.0
0x00f174…00f308 [0x0a]: C0x00b0.0x2.0
0x00f174…00f308 [0x0b]: C0x00b0.0x3.0
0x00f174…00f308 [0x0c]: C0x00b1.0x0.0
0x00f174…00f308 [0x0d]: C0x00b1.0x1.0
0x00f174…00f308 [0x0e]: C0x00b1.0x2.0
0x00f174…00f308 [0x0f]: C0x00b1.0x3.0
0x00f174…00f308 [0x10]: C0x00b3.0x0.0
0x00f174…00f308 [0x11]: C0x00b4.0x2.0
0x00f174…00f308 [0x12]: C0x00b4.0x3.0
0x00f174…00f308 ]
0x00f174…00f308 }
0x00f308…00f49c Dummy {f00=0x009e, f01=0x0190, f02=» P IDENT PLADS 831223 NJ P* " " P* DATA DIVISION FOR DSB-PLADS , P* R P DDIV P* j P t P | P* P* KEYBOARD TASK P* P TERM K0 P P CWB CB9 P CWB CB1 P CWB CB2 P P TWB TB1
0x00f49c…00f630 Dummy {f00=0x009e, f01=0x0190, f02=» x PLAMPS DSET FC=40 PDC DSET FC=61 PDC2 DSET FC=61 6 P L P START KBGO T P EJECT h P* v P* DC TASK P* P TERM D0 P P CWB CB9 P CWB CB1 P CWB CB2 P P PDSDC DSET FC=60
0x00f630…00f7c4 Dummy {f00=0x009e, f01=0x0190, f02=»434445464748494A4B4C4D4E4F C z ( P 505152535455565758595A5B5C5D5E5F' & PMF1CU BIN X'6040' R PBINWK1 BIN l PDCBUF STRG 300 ~ P EJECT PCB1 BLK P* PW0 BIN '0' PW1 BIN '1' PW2 BIN '2' PW3 BIN '3' PW4 B
0x00f7c4…00f958 Dummy {f00=0x009e, f01=0x0190, f02=» PW40 BIN '40' ( PLPAT1 BIN X'0010' PAPER OUT PATTERN , PLPAT2 BIN X'8000' AUDIBLE ALARM PATTERN H P x P P PCB2 BLK P* " PCHOME BIN X'0101' CURSOR HOME ( PCTEST BIN '0' 0 - PRODUCTION VERSION P 1 - SIDDE
0x00f958…00faec Dummy {f00=0x009e, f01=0x0190, f02=»UFFERLENGTH z B PCINX BINI (35),'0','9','10','11','46','47','48','54','55', C , P '56','57','58','59','60','61','62', C Z 2 P '65','66','67','68','73','74','75','80', C , P '81','84','85','86','87','88','90', C P '91','92','94','999'
0x00faec…00fc80 Dummy {f00=0x009e, f01=0x018e, f02=» C P 30C'PLADSART/ANTAL? ', C P 30C'TOG? ', C 0 P 30C'STATION? ', C H . P 30C'KLASSE/KUPE, @NSKE UFORENELIG ', C d , P 30C'KUPE/RYGER, @NSKE UFORENELIG ', C , P 30C'DATAMATEN OPTAGET, PR@V IGEN ', C P 30C'DATO? ', C
0x00fc80…00fe14 (1, 19) Dummy {f00=0x009e, f01=0x0190, f02=» ~ P 30C'TILSLUTNING? ', C P 30C'SATELLIT? ', C ( P 30C'KONTROLNUMMER? ', C F P 30C'NAT? ', C h P 30C'BILART/PLADSART? ', C P 30C'REST/STR[KNING? ', C P 30C'REST? ', C P 30C'ACCEPTKODE? ', C P 30C'
0x00fe14…00ffa8 Dummy {f00=0x009e, f01=0x018e, f02=» C z P 30C'KUPE/ANTAL? ', C P 30C'PLACERING/ANTAL? ', C * " P 30C'FORKERT PLADSART? ', C N P 30C'FORBINDELSESD@R? ', C t P 30C'TURNUMMER? ', C P 30C'BNR-@NSKE? ', C P 30C'BNR? ', C ( P 30C'REFNR FEJLAGTIG UDFYLD
0x00ffa8…01013c Dummy {f00=0x009e, f01=0x018e, f02=» | $ PCERASE STRG X'2B2BAE' "++<CNIL>" PCNIL STRG X'AE' 0 PCZERO STRG X'00' H PCSP STRG X'20' ` 0 P* INVALID ENTRIES GENERATE A CALL TO SIDMASK v 4 PCCODE STRG 58X'003B22090909090930292821252726 C $ P 4209094B09091516200909093132' :
0x01013c…0102d0 Dummy {f00=0x009e, f01=0x0190, f02=» PTISID BOOL PTILIG BOOL PTSOV BOOL , PTBIL BOOL > PTAFBEST BOOL P PTCHNG BOOL d PTAUTOTAB BOOL F v P PTTID BIN TASKID PTBIN1 BIN PTBIN2 BIN PTBIN3 BIN PTBIN4 BIN PTBIN5 BIN P
0x0102d0…010464 Dummy {f00=0x009e, f01=0x0190, f02=»BIN CURSOR POSITION PTP1 BIN PARAMETER 1 PTP2 BIN PARAMETER 2 8 PTKBSTAT BIN KEYBOARD STATUS T P x P PTB2 BLK P* * PTPAPOUT BOOL F TRUE::=PAPEROUT ON GTP , PTNODEP BOOL TRUE TRUE::= INGEN FELTAFH. , PTPOWFAIL
0x010464…0105f8 Dummy {f00=0x009e, f01=0x0190, f02=»WRITE FROM ALT. BUFFER v P PTBCD5 BCD 5 & PTSTRG1 STRG 1 : PTSTRG2 STRG 2 P PTSTRG5 STRG 5 f PTSTRG6 STRG 6 | PTSTRG10 STRG 10 PTSTRG40 STRG 40 PTKBBUF STRG 40 PTPDUBUF STRG 42 . PTSTACK STRG 128 STACKARE
0x0105f8…01078c Dummy {f00=0x009e, f01=0x0190, f02=»PARAMETERS FOR THE UNPACK ROUTINE P* * PTSAVE BINI (64) 4 PINLEN BIN L POUTLEN BIN ^ $ PPRINTFLG BIN 1: TICKET PRINTED p P -1: DONT PRINT TICKET PTDC2LEN BIN PSAVTAB BINI (21,4) PFLDTAB BINI (21,4) . P* EL. 1,
0x01078c…010920 Dummy {f00=0x009e, f01=0x0190, f02=». 1,4: MASK NBR (1->8) 4 P* EL. (2->21),1: CURSORPOS (X'0101' -> X'0628') & , P* EL. ,2: OUTBUF POS (FOR XCOPY) ^ ( P* EL. ,3: FIELDLENGTH (1-N) $ P* EL. ,4: FIELDATTRIBUTE 0 P* BIT 0 - ERROR IN
0x010920…010ab4 (1, 20) Dummy {f00=0x00ad, f01=0x0190, f02=» BIT 3 - NOT USED | 8 P* BIT 4-10 - ERRORMESSAGE INDEX 6 P* BIT 11-15 - VALIDATION INDEX V PTLEN BIN PINBUF STRG 300 POUTBUF STRG 64 PTBUF STRG 300 P PDIV P P ENTRY KBGO
0x010ab4…010c48 Dummy {f00=0x00ad, f01=0x0190, f02=»K P EXT GMSGIX P EXT GFLDIX P 2 6 P************************************************* : 6 P* * t 6 P* EQUATES * 6 P*
0x010c48…010ddc Dummy {f00=0x00ad, f01=0x0190, f02=»7 TEST STATUS PSTIMO EQU X'0B' SET TIMEOUT PFLSH EQU X'0B' FLSH LED'S : PON EQU 0 TURN ON LED POFF EQU 1 TURN OFF LED x " PTRPAR EQU 0 TRANSFER PARAMETER PPOS EQU 6 POSITION CURSUR , P* *
0x010ddc…010f70 Dummy {f00=0x00ad, f01=0x0190, f02=»O BE * n , P* CHANGED, AS THEY ARE USED AS INDEXES * , P* IN "IB"'S AND "PERFI"'S * > & PAFBKY EQU X'01' E15 - AFBESTILLING n ( PKNTKY EQU X'02' E17 - KONTOOPGORELSE PLSKY EQU X'03' E18 - BACKTAB $ PRSKY EQU X'04' E19 - FORWARD TAB
0x010f70…011104 Dummy {f00=0x00ad, f01=0x0190, f02=»U X'08' E23 - NEJ $ PSIDKY EQU X'09' D15 - SIDDEPLADS $ PLIGKY EQU X'0A' D16 - LIGGEVOGN B * PBILKY EQU X'0B' D17 - F[RGEBESTILLING j 4 PISIDKY EQU X'0C' C15 - INTERNATIONAL SIDDEPLADS 2 PILIGKY EQU X'0D' C16 - INTERNATIONAL LIGGEVOGN " PSO
0x011104…011298 Dummy {f00=0x00ad, f01=0x018e, f02=»17 - CURSOR DOWN ~ " PSP2KY EQU X'12' A15 - SPARE 2 & PLEFTKY EQU X'13' A16 - BACK SPACE > * PRIGHTKY EQU X'14' A17 - FORWARD SPACE h ( PCHNGKY EQU X'15' D18 - [NDRINGSMASKE & PTESTKY EQU X'16' C18 - TESTBILLEDE PMRKY EQU X'17' A18 - SPACE
0x011298…01142c Dummy {f00=0x00ad, f01=0x018e, f02=» z PJA2KY EQU X'1C' A23 PSP3KY EQU X'1D' A21 $ PNOKY EQU X'FF' NO KEY @ ( P* OBS: MRKY GENERATES X'20' (CTAB01) ^ ( P* OBS: X'21' RESERVED FOR KBTIMEOUT P 4 PKTAB02 KTAB AFBKY,KNTKY,LSKY,RSKY,SDKY,SSKY, C . P ETXKY,NEJKY,SIDK
0x01142c…0115c0 Dummy {f00=0x00ad, f01=0x0190, f02=» P SP5KY,SENDKY,JA1KY,JA2KY P EJECT & P 4 P < PDC1GO START DC-TASK D P DSC1 DSDC,TRPAR,MF1CU b PDC1GO1 P MOVE BINWK1,W0 P DSC1 DSDC,STIMO,BINWK1 P MOVE BINWK1,CBUFLEN 0 P READ DSDC,DCBUF,BINWK1 READ ANY UNSOL
0x0115c0…011754 (1, 21) Dummy {f00=0x00ad, f01=0x0190, f02=»C1GO1 THROW AWAY REST P EJECT P* HOUSEKEEPING FUNCTIONS , PKBGO START KB-TASK L P GETID TBIN1 h 4 P SUB TBIN1,=X'4B41' CONVERT KA,KB,... TO 0,1,... | P BNZ KBGO4 P MOVE TBIN1,W1 P MOVE TSTRG2,=X'5C' DANSK OE PKBGO1
0x011754…0118e8 Dummy {f00=0x00ad, f01=0x0190, f02=» ~ 0 P MATCH CTXT(TBIN1),TBIN2,TBIN3,TSTRG1,W0,W1 P BNOK KBGO2 < * P XCOPY CTXT(TBIN1),TBIN2,W1,TSTRG2,W0 P P B KBGO1 ~ PKBGO2 P ADD TBIN1,W1 P B KBGO1 PKBGO3 P MOVE TBIN1,W0 PKBGO4 & P TBT CPOLL,KBGO5 BLI
0x0118e8…011a7c Dummy {f00=0x00ad, f01=0x018e, f02=»1 DC,TRPAR,TTID P MOVE TBIN1,=X'0023' P DSC1 LAMPS,ON,TBIN1 4 P EJECT P & P PERF NOINPT SETUP A DUMMY FLDTAB ^ P MOVE SAVTAB(W1,W1),W1 * P MOVE SAVTAB(W2,W1),CHOME CURSOR POS. P MOVE SAVTAB(W2,W2),W1 P MOVE SAVTAB(W2,W3),W1
0x011a7c…011c10 Dummy {f00=0x00ad, f01=0x0190, f02=» " P* A KEYBOARDINPUT, OR A DCREAD PHK20 * P MOVE TBIN1,W1 6 * P KI .NW,KEYB,TKBBUF,KTAB02,TBIN1,TBIN6 L P DSC1 DC,STIMO,W0 z P MOVE INLEN,CBUFLEN P MOVE INBUF,CZERO P READ .NW,DC,INBUF,INLEN P MWAIT TBIN3,KEYB,DC P C
0x011c10…011da4 Dummy {f00=0x00ad, f01=0x0190, f02=»20,HK20,HK27,HK27,HK27,HK27, C ( P HK27,HK27,HK20,HK20,HK20,HK20, C ( P HK20,HK20,HK27,HK27 T . P CBG TBIN6,W0,HK20 INVALID KEY, TRY AGAIN r P MOVE TP2,TBIN6 ( P PERF LCKSET IT WAS A TURNED KEYLOCK P B HK20 AND TRY AGAIN PHK
0x011da4…011f38 Dummy {f00=0x00ad, f01=0x0190, f02=»CH P PERF DCEXCH P BNOK DCERROR PEXCH05 4 P MOVE TBIN2,W3 IUT,SEND B " P DSC1 LAMPS,ON,TBIN2 LIT THEM b , P* READY TO PROCESS ANY INCOMING MESSAGE P MOVE PRINTFLG,W0 P PERF UNPCK UNPACK MESSAGE P PERF SETTP1 & P
0x011f38…0120cc Dummy {f00=0x00ad, f01=0x0190, f02=» 1 0 BILLET , P* 4 0 1 1 PAPER OUT & * P* 5 1 0 0 TILBUD V & P* 6 1 0 1 N/A . P* 7 1 1 0 X-MARKERING 8 P* 8 1 1 1 X-MARKING
0x0120cc…012260 Dummy {f00=0x00ad, f01=0x0190, f02=»13 P DSC1 LAMPS,OFF,W1 6 P PERF READDC,CTIMOUT READ NEW MASK OR SP-SP-LF-LF $ P OR 'SKRIV MANUELT' ^ P BNOK DCERROR | P B EXCH05 P* PHK23 : P* AFTER FLASH: LS, ETX, <INV>, DOWN,LEFT,RIGHT,SPACE, , P* STOP FLASHING,
0x012260…0123f4 (1, 22) Dummy {f00=0x00ad, f01=0x0190, f02=»** FLASHING; FLASH UNTIL 'KI' ** P MOVE TBIN1,W1 ( . P KI .NW,.NE,KEYB,TSTRG1,KTAB02,TBIN1,TBIN6 > P ABORT KEYB p P BNOK HK25A P WAIT KEYB P CALL FLASH,TSAVE(W1) P B HK25 PHK25A P WAIT KEYB PHK25B P I
0x0123f4…012588 Dummy {f00=0x00ad, f01=0x0190, f02=»5,HK25, C v ( P HK25,HK25,HK27,HK27,HK25,HK26B, C P HK25,HK25,HK28,HK28 > " P CBG TBIN6,W0,HK25 INVALID KEY P MOVE TP2,TBIN6 P PERF LCKSET TURNED KEYLOCK P B HK25 P PHK26A SLET SK[RM P PERF ERASCR P B H
0x012588…01271c Dummy {f00=0x00ad, f01=0x0190, f02=» P PHK26D CURSOR HOME P PERF ERALIN,W3 ( P PERF ERALIN,W4 @ P PERF ERALIN,W5 X P PERF ERALIN,W6 p P CBE TP1,W7,HK26F X-MARK $ P PERF READDC,W6 NOTHING EXPECTED P B HK26E PHK26F , P PERF READDC,W40 NEW MASK
0x01271c…0128b0 Dummy {f00=0x00ad, f01=0x018e, f02=»STFT P B HK30 ! P ! PHK28 ! $ P PERF SAVEFT NEJ,JA1,JA2 ! 0 PHK27 ! P P PERF READDC,W10 ! P BNOK HK27A ! t P PERF SSLL ! P BNOK EXCH05 ! PHK27A ! P PERF FUNC01 ALL BLUE KEYS ! P B EXCH ! P EJECT ! PHK30 ! P
0x0128b0…012a44 Dummy {f00=0x00ad, f01=0x0190, f02=» PHK40 " P PERF KBINP PROCESS INPUT " 2 P TBT TPOWFAIL,EXCH05 UNPACK AFTER POWERFAILURE " 2 P CLEAR TALLFLD " h P PERF ERRTST " ~ P BNZ HK40 " $ P TBT TNODEP,HK60 NO TESTS NEEDED " P CLEAR TALLFLD " & P PERF FLDDEP TEST ON INTERRELATION "
0x012a44…012bd8 Dummy {f00=0x00ad, f01=0x0190, f02=»ERROR " P** A TIMEOUT HAS OCCURRED ** # P MOVE TBIN3,W2 IUT # 2 P DSC1 LAMPS,OFF,TBIN3 # L P PERF ERASCR # j P MOVE TBIN3,=W'48' # ~ . P PERF PDUWRT,TBIN3,W1 'DATAMATEN OPTAGET' # P PERF CLRKBQ # P B HK20 # P EJECT # PERRTST PROC
0x012bd8…012d6c Dummy {f00=0x00ad, f01=0x0190, f02=»FIELDS FILLED WITH SPACES OR ZEROES ARE FLAGGED AS ERRORFREE # P* AND NOT-MODIFIED $ D P* $ ^ P PERF PUSH,W2 $ h P MOVE TBIN1,W2 FIRST TO TEST $ ~ 2 P MOVE TBIN2,FLDTAB(W1,W1) NBR OF FIELDS ACTIVE $ P ADD TBIN2,W1 $ PERRT10 $ . P CBG TBIN1,T
0x012d6c…012f00 Dummy {f00=0x00ad, f01=0x0190, f02=»STRG10,=C' ',ERRT10A $ P MOVE TSTRG10,=C'0000000000' % & > P XCOPY TSTRG10,W0,FLDTAB(TBIN1,W3),OUTBUF,FLDTAB(TBIN1,W2) % J ( P CBE TSTRG10,=C'0000000000',ERRT10A % P B ERRT12 % PERRT10A % $ P CALL BITOFF,FLDTAB(TBIN1,W4),W0 % $ P CALL
0x012f00…013094 (1, 23) Dummy {f00=0x00ae, f01=0x0190, f02=»IN1,W4),W2 MODIFIED? % z " P BZ ERRT13 SHOULD BE, SO ERROR & PERRT11 & B P ADD TBIN1,W1 & P P B ERRT10 & f PERRT12 & x , P CALL BITTST,FLDTAB(TBIN1,W4),W0 ERROR? & P BZ ERRT11 & PERRT13 & 0 P CALL BITON,FLDTAB(TBIN1,W4),W0 SET ERRORBIT &
0x013094…013228 Dummy {f00=0x00ae, f01=0x018e, f02=»JECT & PSETTP1 PROC ' P* ' 4 P* SET TP1, DEPENDING ON THE VALUES OF PRINTFLG, ' * P* TSAVE(10) AND TSAVE(12). ' b $ P* PRINTFLG : IF 0, PRINT WAS OK ' . P* TSAVE(10): IF 0, NO TICKET WAS RECEIVED ' * P* TSAVE(12): IF 0, NO FLASHING FIELDS '
0x013228…0133bc Dummy {f00=0x00ae, f01=0x0190, f02=» ' PSETT10 ( P CBE TSAVE(W10),W0,SETT20 ( P ADD TP1,W2 ( 8 PSETT20 ( L P CBE TSAVE(W12),W0,SETT30 ( Z P ADD TP1,W4 ( | PSETT30 ( ( P ADD TP1,W1 ADJUST VALUE FROM (0-7) ( P TO (1-8) ( P RET ( P PEND ( P EJECT ( PTS
0x0133bc…013550 Dummy {f00=0x00ae, f01=0x0190, f02=»S,OFF,LPAT1 SWITCH OFF PAPER/OUT ( P CLEAR TPAPOUT ) ( ( P DSC0 GTP,TSTAT TEST PRINTER STATUS ) > P XSTAT GTP,TBIN1 ) j & P CALL BITTST,TBIN1,W10 PAPER OUT? ) P BZ TSTG10 ) P DSC1 LAMPS,ON,LPAT2 BUZZ ) P DSC1 LAMPS,FLSH,LPAT1 ) P SET TPAPO
0x013550…0136e4 Dummy {f00=0x00ae, f01=0x0190, f02=»F READDC,W1 ANYTHING WAITING? ) P BOK DCEX95 * & P DSC1 DC,STIMO,CTIMOUT * : P PERF LCKTST * X $ P* IB CTEST,DCEX91,DCEX92,DCEX93 * l P TBT TALTBUF,DCEX20 * 4 P XCOPY OUTBUF,W0,W1,TKEYS,W0 MOVE KEYLOCKSTATUS * P WRITE DC,OUTBUF,OUTLEN * P
0x0136e4…013878 Dummy {f00=0x00ae, f01=0x0190, f02=» BNOK DCEX99 * P CLEAR TALTBUF + PDCEX30 + * P PERF TSTGTP + 8 P PERF READDC,CTIMOUT + L P BNOK DCEX99 + h P B DCEX95 + | PDCEX91 + P* MOVE INBUF,MASK + P* MOVE INLEN,=W'106' + P* B DCEX95 + PDCEX92 + P* MOVE INBUF,TICKET +
0x013878…013a0c Dummy {f00=0x00ae, f01=0x0190, f02=» P DSC1 LAMPS,ON,W1 , P CMP W0,W0 , PDCEX99 , 0 P RET , > P PEND , J P , X P , ` P , h PREADDC PROC P , p P MOVE TLEN,CBUFLEN , P MOVE TBUF,CSP , P DSC1 DC,STIMO,P , P CBNE CTEST,W0,RDDC20 , P READ DC,TBUF,TLEN , P B
0x013a0c…013ba0 Dummy {f00=0x00ae, f01=0x0190, f02=»DC90 , P RET - P PEND - P - & P - . PSSLL PROC - 6 " P* TEST FOR "GENTAG GL. MASKE" - H P MOVE TSTRG5,INBUF - n & P CBE TSTRG5,=X'0E20200A0A',SSLL95 - P MOVE TSTRG6,INBUF - ( P CBE TSTRG6,=X'0E20200F0A0A',SSLL95 - P CMP W0,W1 -
0x013ba0…013d34 (1, 24) Dummy {f00=0x00ae, f01=0x0190, f02=»DING - Z P* ON THE PARAMETER. . P* IF THE PARAMETER IS ZERO, . ( 6 P* THE CONTENTS OF TPDUBUF WILL BE WRITTEN "AS-IS". . L P PERF PUSH,W2 . " P MOVE TCURPOS,LIN CURSORPOS := . , P MUL TCURPOS,=W'256' (LIN SHIFT 16) + 1 . P ADD TCURPOS,W1 .
0x013d34…013ec8 Dummy {f00=0x00ae, f01=0x0190, f02=»1),PDUW30 ERRORNBR FOUND? . | 2 P CBE CINX(TBIN1),=W'999',PDUW20 OUT OF ARRAY? / " P ADD TBIN1,W1 NO, TRY NEXT / X P B PDUW10 / z PPDUW20 / ( P MOVE TBIN1,W1 ALL '*' IF NOT FOUND / PPDUW30 / P MOVE TBCD5,IX / P EDIT TPDUBUF,ERRFMT / PPD
0x013ec8…01405c Dummy {f00=0x00ae, f01=0x018e, f02=» / PERRFMT FRMT 0 P FILLR '+',2 0 P FILLR ' ',2 0 0 P FMEL '99',TBCD5 0 D P FILLR ' ',1 0 P FCOPY CTXT(TBIN1) 0 p P FILLR ' ',6 0 P FMEND 0 P 0 P 0 P 0 PERALIN PROC P 0 P PERF PUSH,W1 0 P MOVE TCURPOS,P 0 P
0x01405c…0141f0 Dummy {f00=0x00ae, f01=0x0190, f02=» P DSC1 PDU,POS,TCURPOS 1 P PERF PULL,W1 1 " P RET 1 8 P PEND 1 D P EJECT 1 R PUNPCK PROC 1 ` P MOVE FLDTAB(W1,W1),W0 1 r P MOVE FLDTAB(W1,W2),W0 1 P MOVE FLDTAB(W1,W3),W0 1 P MOVE FLDTAB(W1,W4),W0 1 " P CALL UNPACK, UNPACK ROUTINE C
0x0141f0…014384 Dummy {f00=0x00ae, f01=0x0190, f02=», OUTPUT BUFFER TO BE SENT C 1 ( P OUTLEN, LENGTH OF MSG TO BE SENT C 2 $ . P FLDTAB(W1,W1), TABLE OVER INPUTFIELDS C 2 P P PDU, DISPLAYDEVICE C 2 P GTP, PRINT DEVICE C 2 ( P PRINTFLG, TICKET PRINTED OR NOT C 2 P DC, DC DATASET C 2 ( P TD
0x014384…014518 Dummy {f00=0x00ae, f01=0x0190, f02=» RESTORE IF < 5 INPUTFIELDS 2 P PERF BOOSET 3 $ P RET 3 8 P PEND 3 D P EJECT 3 R PCLRKBQ PROC 3 ` PCLRK10 3 t 8 P* CLEAR CYCLIC BUFFER APART FROM KEYLOCK CHARACTERS 3 P MOVE TBIN1,W1 3 P MOVE TBIN2,W0 3 . P KI .NW,.NE,KEYB,TKBBUF,KTAB02
0x014518…0146ac Dummy {f00=0x00ae, f01=0x0190, f02=»OVE TP2,TBIN2 3 P PERF LCKSET WILL BE REFUSED 4 P B CLRK10 4 : PCLRK80 4 L P WAIT KEYB 4 Z P RET 4 l P PEND 4 x P EJECT 4 PSAVEFT PROC 4 P CBL FLDTAB(W1,W1),W5,SAVE90 4 P PERF PUSH,W2 4 P MOVE TBIN1,=W'21' 4 P MOVE TBIN2,
0x0146ac…014840 Dummy {f00=0x00ae, f01=0x0190, f02=»IN2,W4 4 P SUB TBIN1,W1 5 P CBG TBIN1,W0,SAVE10 5 $ P PERF PULL,W2 5 @ PSAVE90 5 V P RET 5 d P PEND 5 p P 5 ~ P 5 PRESTFT PROC 5 P CBG FLDTAB(W1,W1),W4,REST90 5 " P CBNL SAVTAB(W1,W1),W5,REST00 5 P PERF NOINPT 5 P B REST9
0x014840…0149d4 (1, 25) Dummy {f00=0x00af, f01=0x0190, f02=»VTAB(TBIN1,TBIN2) 5 t P SUB TBIN2,W1 6 P CBG TBIN2,W0,REST10 6 0 P MOVE TBIN2,W4 6 L P SUB TBIN1,W1 6 b P CBG TBIN1,W0,REST10 6 x PREST80 6 P PERF PULL,W2 6 PREST90 6 P RET 6 P PEND 6 P 6 P 6 P 6 PBOOSET PROC 6
0x0149d4…014b68 Dummy {f00=0x00af, f01=0x0190, f02=»G 6 P CLEAR TISID 7 P CLEAR TILIG 7 P CLEAR TSOV 7 2 P CLEAR TBIL 7 F P CLEAR TAFBEST 7 Z P CLEAR TCHNG 7 p P SET TNODEP 7 P SET TALLFLD 7 P IB TBIN1, C 7 P BOO11, SID C 7 P BOO12, ISID C 7 P BOO13, LIG C 7 P
0x014b68…014cfc Dummy {f00=0x00af, f01=0x0190, f02=»SID 7 P B BOO90 8 PBOO12 8 P SET TISID 8 * P B BOO90 8 < PBOO13 8 L P SET TLIG 8 Z P B BOO90 8 l PBOO14 8 | P SET TILIG 8 P B BOO90 8 PBOO15 8 P SET TAFBEST 8 P B BOO90 8 PBOO16 8 P SET TSOV 8 P B BOO90 8
0x014cfc…014e90 Dummy {f00=0x00af, f01=0x018e, f02=» PNOINPT PROC 9 P* 9 < P* IN SOME CASES IT IS NECESSARY TO SIMULATE A FLDTAB OF 9 " P* 1 INPUTFIELD. 9 b P* 9 z , P MOVE FLDTAB(W1,W1),W1 NBR OF FIELDS = 1 9 P MOVE FLDTAB(W2,W1),CHOME 9 P MOVE FLDTAB(W2,W2),W1 9 P MOVE FLDTAB(W2,W3),
0x014e90…015024 Dummy {f00=0x00af, f01=0x0190, f02=» 9 | P SET TNODEP : P RET : P PEND : ( P EJECT : 6 PFLDDEP PROC : D P* : X 0 P* THIS PRECEDURE TESTS THE INTERRELATIONSHIP : b P* OF VARIOUS FIELDS : P* : P : 4 P* IN THIS PART IT IS CHECKED IF THE FIELDS THEM- : P* SELVES ARE
0x015024…0151b8 Dummy {f00=0x00af, f01=0x0190, f02=»RIBUTE : p * P CALL BITTST,TBIN3,W0 ERROR IN FIELD? ; $ P BNZ FLDDS30 YES, WRITE ERRORMSG ; < P ADD TBIN1,W1 ; d P B FLDDS10 ; z PFLDDS30 ; ( P CALL GMSGIX,TBIN3 ISOLATE ERRORNBR ; P PERF PDUWRT,TBIN3,W4 ; P B FLDD90 EXIT ; P************
0x0151b8…01534c Dummy {f00=0x00af, f01=0x0190, f02=» ERROR ; b . P PERF MUST ALL COMPULSARY FIELDS PRESENT? < P BNOK FLDD90 NO, EXT < @ P TBF TSID,FLDD10 < P PERF FLDDSID < t P B FLDD90 < P************************* < PFLDD10 < P TBF TLIG,FLDD20 < P PERF FLDDLIG < P B FLDD90 <
0x01534c…0154e0 Dummy {f00=0x00af, f01=0x0190, f02=»NG,FLDD40 < P PERF FLDDCHNG = P B FLDD90 = ( P************************* = : PFLDD40 = P TBT TISID,FLDD85 = j P************************* = PFLDD50 = P TBT TILIG,FLDD85 = P************************* = PFLDD70 = P TBF TSOV,
0x0154e0…015674 (1, 26) Dummy {f00=0x00b0, f01=0x018e, f02=»*************** = PFLDD85 > P CMP W0,W0 > & PFLDD90 > 8 P RET > F P PEND > R P EJECT > ` PFLDDSID PROC > n P PERF PUSH,W3 > P* TEST FOR '57 KUPE' > " P CALL BITTST,FLDTAB(W9,W4),W2 > P BNZ FLDDS11 KUPE MODIFIED > " P CALL BITTST
0x015674…015808 Dummy {f00=0x00b0, f01=0x0190, f02=» > PFLDDS11 ? 2 P* IF ANTAL < 7, NO FURTHER TESTS ARE REQUIRED ? 2 P XCOPY TSTRG2,W0,W2,OUTBUF,FLDTAB(W2,W2) ANTAL ? N P MOVE TBCD5,TSTRG2 ? P CBL TBCD5,=D'7',FLDDS14 ? P* TEST FOR '84 RYGER/ANTAL' ? " P CALL BITTST,FLDTAB(W8,W4),W2 ? " P
0x015808…01599c Dummy {f00=0x00b0, f01=0x0190, f02=»OR '85 KUPE/ANTAL' ? " P CALL BITTST,FLDTAB(W9,W4),W2 @ " P BZ FLDDS13 KUPE NOT MODIFIED @ @ P MOVE TBIN3,=W'85' @ f P PERF PDUWRT,TBIN3,W4 @ P B FLDDS90 @ PFLDDS13 @ $ P* TEST FOR '86 PLACERING/ANTAL' @ " P CALL BITTST,FLDTAB(W10,W4),W2 @
0x01599c…015b30 Dummy {f00=0x00b0, f01=0x0190, f02=»RENELIG @ | & P CALL BITTST,FLDTAB(W9,W4),W2 KUPE A P BZ FLDDS16 A : , P XCOPY TSTRG1,W0,W1,OUTBUF,FLDTAB(W9,W2) A N P CBNE TSTRG1,=C'6',FLDDS16 A ~ 0 P CALL BITTST,FLDTAB(W8,W4),W2 RYGER MODIFIED A P BZ FLDDS15 A , P XCOPY TSTRG1,W0,W1,OUTBUF,FLDTA
0x015b30…015cc4 Dummy {f00=0x00b0, f01=0x0190, f02=»DDS15 A P* 46 KLASSE/KUPE UFORENELIG B ( P CALL BITTST,FLDTAB(W7,W4),W2 KLASSE B 2 P BZ FLDDS16 B ^ , P XCOPY TSTRG1,W0,W1,OUTBUF,FLDTAB(W7,W2) B r P CBNE TSTRG1,=C'1',FLDDS16 B P MOVE TBIN3,=W'46' B P PERF PDUWRT,TBIN3,W4 B P B FLDDS90 B
0x015cc4…015e58 Dummy {f00=0x00b0, f01=0x0190, f02=» PFLDDS90 C P PERF PULL,W3 C P CMP W0,W1 C * P RET C < P PEND C H P EJECT C V PFLDDLIG PROC C d P PERF PUSH,W3 C x 2 P XCOPY TSTRG2,W0,W2,OUTBUF,FLDTAB(W2,W2) ANTAL C P MOVE TBCD5,TSTRG2 C P CBL TBCD5,=D'1',FLDDL20 C P CBG TBCD5
0x015e58…015fec Dummy {f00=0x00b0, f01=0x0190, f02=»E TBIN3,=W'86' C P B FLDDL25 D PFLDDL20 D ( P MOVE TBIN3,W9 D 8 PFLDDL25 D N P PERF PDUWRT,TBIN3,W4 D ^ P PERF PULL,W3 D | P CMP W0,W1 D P RET D PFLDDL30 D P PERF PULL,W3 D P CMP W0,W0 D P RET D P PEND D P EJECT
0x015fec…016180 Dummy {f00=0x00b0, f01=0x0190, f02=»E TBIN2,=W'15' D 8 P XCOPY TSTRG10,W0,W10,OUTBUF,FLDTAB(TBIN2,W2) REFNR E P MOVE TBIN1,W9 E R PFLDDS01 E h & P XCOPY TSTRG1,W0,W1,TSTRG10,TBIN1 E x P CBE TSTRG1,CZERO,FLDDS03 E P CBL TSTRG1,=C'0',FLDDS02 E P CBG TSTRG1,=C'9',FLDDS02 E P
0x016180…016314 (1, 27) Dummy {f00=0x00b0, f01=0x0190, f02=» MOVE TBIN3,=W'94' E P PERF PDUWRT,TBIN3,W4 F P PERF PULL,W3 F 8 P CMP W0,W1 F N P RET F ` P PEND F l P EJECT F z PMUST PROC F P* F 2 P* THIS ROUTINE CHECKS IF ALL 'ME' FIELDS HAVE F 2 P* BEEN ENTERED, ENVENTUALLY AS A DEFAULT-VALUE
0x016314…0164a8 Dummy {f00=0x00b0, f01=0x0190, f02=» P MOVE TBIN2,FLDTAB(W1,W1) G P ADD TBIN2,W1 G & PMUST10 G < P CBG TBIN1,TBIN2,MUST90 G J 0 P CALL BITTST,FLDTAB(TBIN1,W4),W1 MUST-ENTER? G j P BZ MUST20 G . P CALL BITTST,FLDTAB(TBIN1,W4),W2 MODIFIED? G P BNZ MUST20 G 0 P CALL BITON,FLDTAB
0x0164a8…01663c Dummy {f00=0x00b0, f01=0x0190, f02=» P PERF PULL,W3 H P CMP W0,W1 H P RET H , PMUST90 H 8 P PERF PULL,W3 H F P CMP W0,W0 H P RET H n P PEND H z P EJECT H 0 P* THE TWO PROCEDURES PUSH AND PULL TAKE CARE H P* OF THE STACKHANDLING. H 4 P* DEPENDING ON THE PARAMETER,
0x01663c…0167d0 Dummy {f00=0x00b0, f01=0x0190, f02=»P TRACK OF 'WHERE TO PUT IT', A H P* STACKPOINTER IS MAINTAINED I ( 0 P* AS THE DATAITEMS ARE SAVED IN THE SEQUENCE I L 4 P* TBIN8,7,6,.... THE PULL-OFF MUST BE BACKWARD. I PPUSH PROC B1 I 2 P IB B1,PUS1,PUS2,PUS3,PUS4,PUS5,PUS6,PUS7,PUS8 I PPUS8 I
0x0167d0…016964 Dummy {f00=0x00b0, f01=0x0190, f02=»KPT,W2 I PPUS6 J & P XCOPY TSTACK,TSTACKPT,W2,TBIN6,W0 J P ADD TSTACKPT,W2 J D PPUS5 J & P XCOPY TSTACK,TSTACKPT,W2,TBIN5,W0 J h P ADD TSTACKPT,W2 J PPUS4 J & P XCOPY TSTACK,TSTACKPT,W2,TBIN4,W0 J P ADD TSTACKPT,W2 J PPUS3 J & P XCO
0x016964…016af8 Dummy {f00=0x00b0, f01=0x0190, f02=» PPUS1 K & P XCOPY TSTACK,TSTACKPT,W2,TBIN1,W0 K P ADD TSTACKPT,W2 K : P RET K R P PEND K ^ P K l P K t PPULL PROC B1 K | * P SUB TSTACKPT,B1 POINT AT STARTADDRESS K & P SUB TSTACKPT,B1 FOR PREVIOUS PUSH K 2 P IB B1,PUL1,PUL2,PUL3,PUL4,PUL5,
0x016af8…016c8c Dummy {f00=0x00b0, f01=0x0190, f02=»K,TSTACKPT K x P ADD TSTACKPT,W2 L PPUL6 L * & P XCOPY TBIN6,W0,W2,TSTACK,TSTACKPT L 6 P ADD TSTACKPT,W2 L ` PPUL5 L x & P XCOPY TBIN5,W0,W2,TSTACK,TSTACKPT L P ADD TSTACKPT,W2 L PPUL4 L & P XCOPY TBIN4,W0,W2,TSTACK,TSTACKPT L P ADD TSTACKP
0x016c8c…016e20 Dummy {f00=0x00b0, f01=0x0190, f02=» L n P ADD TSTACKPT,W2 M PPUL1 M & P XCOPY TBIN1,W0,W2,TSTACK,TSTACKPT M , * P ADD TSTACKPT,W2 ADJUST ONCE MORE, SO M V ( P SUB TSTACKPT,B1 TSTACKPT NOW POINTS M , P SUB TSTACKPT,B1 AT THE NEW STARTADDRESS M P RET M P PEND M P EJECT M P
0x016e20…016fb4 (1, 28) Dummy {f00=0x00b0, f01=0x0190, f02=»PT M P PERF PULL,W1 N P RET N P PEND N , P N : PERAIPT PROC N B & P* THE ROUTINE ERASES ALL MODIFIED N V & P* FIELDS BY OVERWRITING WITH X'AE' N P* THE MODIFIED BIT IS RESET N P PERF PUSH,W3 N 0 P MOVE TBIN1,FLDTAB(W1,W1) NBR OF INP
0x016fb4…017148 Dummy {f00=0x00b0, f01=0x018e, f02=» N ~ PERAI010 O 4 P CALL BITOFF,FLDTAB(TBIN2,W4),W0 RESET ERRORBIT O 8 P CALL BITOFF,FLDTAB(TBIN2,W4),W2 RESET MODIFIED BIT O P 4 P MOVE TCURPOS,FLDTAB(TBIN2,W1) CURSORPOS ON PDU O * P DSC1 PDU,POS,TCURPOS POSITION CURSOR O . P MOVE TBIN3,FLDTAB(TBI
0x017148…0172dc Dummy {f00=0x00b0, f01=0x0190, f02=» O $ P SUB TBIN1,W1 MORE FIELDS LEFT? P * P BNZ ERAI010 YES THERE WERE, TAKE NEXT P 0 PERAI050 P ^ P PERF PULL,W3 P n P RET P P PEND P P EJECT P PLCKTST PROC P P PERF PUSH,W7 P PLOCK20 P P MOVE TBIN1,W0 P 2 P XCOPY TBIN1,W
0x0172dc…017470 Dummy {f00=0x00b0, f01=0x0190, f02=»TBIN1,LOCK40,LOCK40,LOCK40,LOCK30, C P ( P LOCK40,LOCK30,LOCK30,LOCK30,LOCK40 Q . PLOCK30 Q Z P MOVE TBIN3,=W'74' Q h P PERF PDUWRT,TBIN3,W4 Q P MOVE TP1,W1 REQ. LENGTH Q P MOVE TBIN7,W0 Q P PERF READKB READ KEYLOCK Q P PERF ERALIN,W4
0x017470…017604 Dummy {f00=0x00b0, f01=0x0190, f02=» CMP W0,W0 Q P RET R P PEND R P R , P R 4 PFUNC01 PROC R < ( P* A FUNCTION KEY HAS BEEN DEPRESSED. R P 2 P* THE VALUE TO BE SENT CAN BE FOUND IN CCODE, R | ( P* WITH THE INDEX AS INDEX IN A XCOPY R P PERF PUSH,W3 R P MOVE TCURPOS,CHOME
0x017604…017798 Dummy {f00=0x00b0, f01=0x0190, f02=»RITE FORM ALTERNATE BUFFER R 4 P XCOPY TDC2BUF,W1,W1,CCODE,TBIN6 MOVE ASCII-CODE S " P MOVE TDC2LEN,W2 S Z $ P XCOPY TSTRG1,W0,W1,CCODE,TBIN6 S r P CBE TBIN6,W8,FUNC0199 NEJ S " P CBE TBIN6,=W'27',FUNC0199 JA1 S " P CBE TBIN6,=W'28',FUNC0199 JA2 S P
0x017798…01792c Dummy {f00=0x00b0, f01=0x018e, f02=»G TO S h : P* THE STANDARD. THESE ARE [NDRINGSMASKE AND TESTMASKE. T 2 P* THEREFORE, A SPECIAL BUFFER HAS TO BE SET UP T J ( P* WHEN ONE OF THESE KEYS IS PRESSED. T P B FUNC01C T " PFUNC01A [NDRINGSMASKE WANTED T P MOVE TDC2BUF,CZERO T & P MOVE TD
0x01792c…017ac0 Dummy {f00=0x00b0, f01=0x018e, f02=» PFUNC01C U P MOVE SAVTAB(W1,W1),W1 U P MOVE SAVTAB(W2,W1),CHOME U 2 P MOVE SAVTAB(W2,W2),W1 U T P MOVE SAVTAB(W2,W3),W1 U r P MOVE SAVTAB(W2,W4),=X'2920' U PFUNC0199 U P PERF PULL,W3 U P RET U P PEND U P U P U PFUNC
0x017ac0…017c54 (1, 29) Dummy {f00=0x00b0, f01=0x0190, f02=» P SUB TBIN2,W1 V P CBG TBIN2,W1,FUNC0399 V P MOVE TBIN2,TBIN1 V 8 * P ADD TBIN2,W1 FIND INDEX OF LAST FIELD V R PFUNC0399 V P RET V P PEND V P V P V PFUNC04 PROC V P* FORWARD TAB V , P* A WRAP-AROUND MAY HAVE TO BE PERFO
0x017c54…017de8 Dummy {f00=0x00b0, f01=0x018e, f02=»0499 STILL WITHIN LIMITS? V z P MOVE TBIN2,W2 W " PFUNC0499 W 8 P PERF PULL,W3 W H P RET W ^ P PEND W j P W x P W PFUNC05 PROC W P* ERASE ALL INPUTFIELDS W P* SEND CURSOR HOME W P PERF ERAIPT W P MOVE TBIN2,W2 W P RET W
0x017de8…017f7c Dummy {f00=0x00b0, f01=0x0190, f02=» W P RET X P PEND X P X " P X * PFUNC07 PROC ETX X 2 P PERF PUSH,W8 X J P MOVE TSTRG10,CZERO X ` & P XCOPY TSTRG10,W0,TBIN5,TKBBUF,W0 X | P MOVE TKBBUF,TSTRG10 X 2 P MOVE TBIN3,FLDTAB(TBIN7,W2) STARTPOS + DISPL X , P ADD TBIN3,TBIN5
0x017f7c…018110 Dummy {f00=0x00b0, f01=0x018e, f02=» $ P XCOPY OUTBUF,TBIN3,W1,CZERO,W0 Y P ADD TBIN3,W1 Y , P B FUNC0710 Y B PFUNC0720 Y V 2 P* IDEALLY, THE CURRENT FIELD SHOULD BE TESTED Y f 2 P* AGAIN, BUT FOR THE TIME BEING THE ERROR-BIT Y P* IS UNCONDITIONALLY RESET Y P B FUNC0740 Y ( P
0x018110…0182a4 Dummy {f00=0x00b0, f01=0x0190, f02=» PFUNC0730 Z P ADD TBIN7,W1 NEXT TO CLEAR Z PFUNC0740 Z 8 4 P CALL BITOFF,FLDTAB(TBIN7,W4),W0 CLEAR ERRORBIT Z H . P CALL BITOFF,FLDTAB(TBIN7,W4),W2 CLEAR MDT Z " P DSC1 PDU,POS,FLDTAB(TBIN7,W1) Z P MOVE TPDUBUF,CERASE Z P MOVE TBIN4,FLDTAB(T
0x0182a4…018438 Dummy {f00=0x00b0, f01=0x0190, f02=»PULL,W8 Z P RET [ P PEND [ P [ * P [ 2 PFUNC15 PROC [ : " P* KEY 'B15' HAS BEEN PRESSED. [ N P CMP W0,W0 [ t P RET [ P PEND [ P [ P [ PFUNC17 PROC [ P* CURSOR DOWN. [ P* GET 1. FIELD ON NEXT LINE. [ $ P* IF THERE
0x018438…0185cc Dummy {f00=0x00b0, f01=0x018e, f02=»,W0 [ * P XCOPY TBIN10,W1,W1,TCURPOS,W0 LINENBR PFUNC1710 : P ADD TBIN2,W1 NEXT FIELD J * P XCOPY TBIN9,W1,W1,FLDTAB(TBIN2,W1),W0 j * P CBG TBIN2,TBIN1,FUNC1730 OUT OF TABLE 0 P CBG TBIN9,TBIN10,FUNC1799 LOWER LINE FOUND P B FUNC1710
0x0185cc…018760 Dummy {f00=0x00b0, f01=0x0190, f02=» PFUNC18 PROC ] P* TASTE 'A15' ER TRYKKET NED ] P CMP W0,W0 ] < P RET ] N P PEND ] Z P ] h P ] p PFUNC24 PROC ] x P PERF TSTGTP ] P SUB TBIN2,W1 REENTER FIELD ] P RET ] P PEND ] P EJECT ] P* ] 8 P* I TESTXX-PROCEDU
0x018760…0188f4 (1, 30) Dummy {f00=0x00b1, f01=0x018e, f02=» MAN F.X. SIGER CMP 0,0 ] , P* VIL REGISTRET BLIVE SAT TIL 0 (EQUAL) ^ " PTEST01 PROC ^ R P* ONLY '0' ALLOWED ^ f P MOVE TBCD5,TKBBUF ^ P CMP TBCD5,=D'0' ^ P RET ^ P PEND ^ P ^ P ^ P ^ PTEST02 PROC ^ P* 0,1 ^ P M
0x0188f4…018a88 Dummy {f00=0x00b1, f01=0x0190, f02=» ^ P _ P _ PTEST03 PROC _ P* 0-2 _ , P MOVE TBCD5,TKBBUF _ : P CBE TBCD5,=D'0',TEST0399 _ T P CBE TBCD5,=D'1',TEST0399 _ v P CBE TBCD5,=D'2',TEST0399 _ PTEST0399 _ P RET _ P PEND _ P _ P _ P _ PTEST04 PROC
0x018a88…018c1c Dummy {f00=0x00b1, f01=0x018e, f02=» TEST0499 _ PTEST0498 ` P CMP W0,W1 ` " PTEST0499 ` 4 P RET ` D P PEND ` P P ` ^ P ` f P ` n PTEST05 PROC ` v P CMP W0,W0 ` P RET ` P PEND ` P ` P ` P ` PTEST06 PROC ` P* 0-5 ` P MOVE TBCD5,TKBBUF `
0x018c1c…018db0 Dummy {f00=0x00b1, f01=0x0190, f02=» ` PTEST0699 a P RET a P PEND a $ P a 2 P a : P a B PTEST07 PROC a J P CMP W0,W0 a ^ P RET a p P PEND a | P a P a P a PTEST08 PROC a P* 0-7 a P MOVE TBCD5,TKBBUF a P CBL TBCD5,=D'0',TEST0798 a P CBG TBC
0x018db0…018f44 Dummy {f00=0x00b1, f01=0x0190, f02=» P b P b P b PTEST09 PROC b P* 0-9 b 0 P CMP W0,W0 b > P RET b P P PEND b P b j P b r P b z PTEST10 PROC b P* 0-24 b P MOVE TBCD5,TKBBUF b P CBL TBCD5,=D'0',TEST1098 b P CBG TBCD5,=D'24',TEST1098 b P CMP W
0x018f44…0190d8 Dummy {f00=0x00b1, f01=0x0190, f02=»11 PROC b P* 0,1,9 c P MOVE TBCD5,TKBBUF c P CBE TBCD5,=D'0',TEST1199 c : P CBE TBCD5,=D'1',TEST1199 c P CBE TBCD5,=D'9',TEST1199 c ~ PTEST1199 c P RET c P PEND c P c P c P c PTEST12 PROC c P* 0,1,2,5 c P
0x0190d8…01926c Dummy {f00=0x00b1, f01=0x018e, f02=»D5,=D'5',TEST1299 c PTEST1299 d P RET d * P PEND d 6 P d D P d L P d T PTEST13 PROC d P* 00-99 d p P MOVE TBCD5,TKBBUF d P CBL TBCD5,=D'0',TEST1399 d P CBG TBCD5,=D'99',TEST1399 d P CMP W0,W0 d PTEST1399 d P RET d
0x01926c…019400 Dummy {f00=0x00b1, f01=0x0190, f02=» d t P CBL TBCD5,=D'2',TEST1498 e P CBG TBCD5,=D'5',TEST1498 e * P CMP W0,W0 e L P B TEST1499 e ^ PTEST1498 e r P CMP W0,W1 e PTEST1499 e P RET e P PEND e P e P e P e PTEST15 PROC e P* 0,2,3,5 e P MOVE TBCD5,
0x019400…019594 (1, 31) Dummy {f00=0x00b1, f01=0x0190, f02=»T1599 e | PTEST1599 f P RET f P PEND f * P f 8 P f @ P f H PTEST16 PROC f P P* 0000000000-9999999999 f d P CMP W0,W0 f P RET f P PEND f P f P f P f PTEST17 PROC f P* 1-6 f P MOVE TBCD5,TKBBUF f P CBL
0x019594…019728 Dummy {f00=0x00b1, f01=0x0190, f02=»TEST1799 f P RET g P PEND g P g * P g 2 P g : PTEST18 PROC g B P* 0-99999 g V P CMP W0,W0 g h P RET g z P PEND g P g P g P g PTEST19 PROC g P* 1-20 g P MOVE TBCD5,TKBBUF g P CBL TBCD5,=D'1',TEST1998 g
0x019728…0198bc Dummy {f00=0x00b1, f01=0x0190, f02=» PEND g P h P h P h PTEST20 PROC h & P* 1-24 h : P MOVE TBCD5,TKBBUF h H P CBL TBCD5,=D'1',TEST2098 h b P CBG TBCD5,=D'24',TEST2098 h P CMP W0,W0 h P B TEST2099 h PTEST2098 h P CMP W0,W1 h PTEST2099 h P RET h
0x0198bc…019a50 Dummy {f00=0x00b1, f01=0x0190, f02=» CBG TBCD5,=D'999',TEST2198 h P CMP W0,W0 i $ P B TEST2199 i 6 PTEST2198 i J P CMP W0,W1 i Z PTEST2199 i l P RET i | P PEND i P i P i P i PTEST22 PROC i P* 1-99998 i P MOVE TBCD5,TKBBUF i P CBL TBCD5,=D'1',TEST2298
0x019a50…019be4 Dummy {f00=0x00b1, f01=0x018e, f02=»ET i P PEND j P j P j P j ( PTEST23 PROC j 0 P* 1-99999 j D P MOVE TBCD5,TKBBUF j V P CBL TBCD5,=D'1',TEST2398 j p " P CBG TBCD5,=D'99999',TEST2398 j P CMP W0,W0 j P B TEST2399 j PTEST2398 j P CMP W0,W1 j PTEST2399
0x019be4…019d78 Dummy {f00=0x00b1, f01=0x018e, f02=» . P CBG TBIN8,TBIN5,TEST2498 LENGTH EXCEEDED? k $ P XCOPY TSTRG1,W0,W1,TKBBUF,TBIN8 k 6 P CBE TSTRG1,CNIL,TEST2498 k ^ P MOVE TBCD5,TSTRG1 k P CBL TBCD5,=D'0',TEST2497 k P CBG TBCD5,=D'3',TEST2497 k P ADD TBIN8,W1 k P B TEST2410 k P
0x019d78…019f0c Dummy {f00=0x00b1, f01=0x0190, f02=» P l P l PTEST25 PROC l P* 000000-999999 l ( P CMP W0,W0 l @ P RET l R P PEND l ^ P l l P l t P l | PTEST26 PROC l P* ALL FIGS 0-4 l P MOVE TBIN8,W1 l PTEST2610 l . P CBG TBIN8,TBIN5,TEST2698 LENGTH EXCEEDED? l $ P X
0x019f0c…01a0a0 Dummy {f00=0x00b1, f01=0x0190, f02=» TBCD5,=D'4',TEST2697 l P ADD TBIN8,W1 m P B TEST2610 m 4 PTEST2697 m H P CMP W0,W1 m X P B TEST2699 m j PTEST2698 m ~ P CMP W0,W0 m PTEST2699 m P RET m P PEND m P m P m P m PTEST27 PROC m P* DATOCHECK DD-MM
0x01a0a0…01a234 (1, 32) Dummy {f00=0x00b1, f01=0x018e, f02=»TEST2798 m ~ P MOVE TBIN1,TBCD5 n " P XCOPY TSTRG2,W0,W2,TKBBUF,W2 n * P MOVE TBCD5,TSTRG2 n P P CBL TBCD5,=D'1',TEST2798 n j P CBG TBCD5,=D'12',TEST2798 n P MOVE TBIN2,TBCD5 n 2 P CBL TBIN1,=W'29',TEST2799 <29 DAYS ALWAYS OK n 6 P IB TBIN2,
0x01a234…01a3c8 Dummy {f00=0x00b1, f01=0x0190, f02=» n r PTEST2701 o PTEST2703 o PTEST2705 o ( PTEST2707 o 8 PTEST2708 o H PTEST2710 o X PTEST2712 o h P B TEST2799 o x PTEST2704 o PTEST2706 o PTEST2709 o PTEST2711 o , P CBE TBIN1,=W'31',TEST2798 ONLY 30 DAYS o P B TEST2799
0x01a3c8…01a55c Dummy {f00=0x00b1, f01=0x0190, f02=»ET o PTEST2799 p P PERF PULL,W2 p P CMP W0,W0 p 0 P RET p B P PEND p N P p P p d P p l PTEST28 PROC p t P* 0-9 p P CMP W0,W0 p PTEST2899 p P RET p P PEND p P p P p P p PTEST29 PROC p P MOVE TBCD
0x01a55c…01a6f0 Dummy {f00=0x00b1, f01=0x0190, f02=»EST2999 p ~ P CMP TBCD5,=D'6' q PTEST2999 q ( P RET q 8 P PEND q D P q R P q Z P q b PTEST30 PROC q j P CMP W0,W0 q ~ P RET q P PEND q P q P q P q PTEST31 PROC q P* 0-6 q P MOVE TBCD5,TKBBUF q P CBL TBCD5
0x01a6f0…01a884 Dummy {f00=0x00b1, f01=0x0190, f02=»END q P r P r P r P EJECT r $ PKBINP PROC r 2 P* r D . P* THIS PROCEDURE SCANS THE FIELD-TABLE AND r N > P* EXECUTES A KB-INPUT FOR EVERY ELEMENT IF TALLFLD IS SET, r 4 P* OTHERWISE, ONLY THE FLAGGED FIELDS ARE TREATED r 0 P* THE LAYOUT O
0x01a884…01aa18 Dummy {f00=0x00b1, f01=0x0190, f02=» r z P* 2. TABKEYS PRESSED s P* 3. FUNCTION KEY PRESSED s & P* 4. KEYLOCK TURNED s J P* 5. POWER OFF/ON s h P* s , P* THE FOLLOWING BITS IN EL.4 MAY BE SET: s $ P* 0. DATA ERROR (INVALID DATA) s P* 1. MUST-ENTER s P* 2. F
0x01aa18…01abac Dummy {f00=0x00b1, f01=0x0190, f02=»FIELDS) s h " P* TBIN2 - 'NEW' CURRENT FIELD t & P* TBIN3 - SCRATCH / CURSORPOSITION t 6 P* TBIN4 - FIELD INDEX t ` P* TBIN5 - FIELD LENGTH t ~ $ P* TBIN6 - INDEX TO USED END-KEY t " P* TBIN7 - 'OLD' CURRENT FIELD t 0 P* TBIN8 - RETURN VALUE FROM RE
0x01abac…01ad40 Dummy {f00=0x00b1, f01=0x0190, f02=»E TBIN2,W2 FIRST ENTRY IN FLDTAB t P TBT TALLFLD,KB015 u ( P MOVE TBIN3,TBIN1 u B P ADD TBIN3,W1 u PKB011 u r , P CALL BITTST,FLDTAB(TBIN2,W4),W0 ERROR? u P BNZ KB012 YES, WRITE TEXT u P ADD TBIN2,W1 NEXT FIELD u * P CBNG TBIN2,TBIN3,KB01
0x01ad40…01aed4 (1, 33) Dummy {f00=0x00b1, f01=0x0190, f02=»GMSGIX,TBIN3 ISOLATE ERRORNBR u P TBT TCHNG,KB013 v & & P PERF PDUWRT,TBIN3,W4 WRITE ON PDU v > P B KB015 v h PKB013 v x , P PERF PDUWRT,TBIN3,W6 LINE 6= ERRORLINE v PKB015 v 2 P MOVE TBIN7,TBIN2 SAVE INDEX TO CURRENT FIELD v 2 P MOVE TCURPOS,
0x01aed4…01b068 Dummy {f00=0x00b1, f01=0x0190, f02=»BIN4 FIELD INDEX v , P MOVE TP1,FLDTAB(TBIN2,W3) FIELD LENGTH w P PERF READKB READ DATA w H $ P MOVE TBIN5,TP1 RETURNED LENGTH w f " P MOVE TBIN6,TP2 INDEX TOKEYTAB w P IB TBIN8, C w * P KB060, POWER FAILURE, DO AN UNPACK C w , P KB015, KEYLOCK
0x01b068…01b1fc Dummy {f00=0x00b1, f01=0x0190, f02=»D w v PKB020 x " P SET TAUTOTAB SIMULATE FTABKEY x 0 P XCOPY TKBBUF,TBIN5,W1,W4,W1 INSERT FTABKEY x > P ADD TBIN5,W1 ADJUST LENGTH x r P MOVE TBIN6,W4 x PKB030 x * P PERFI TBIN6, FUNCTIONKEY DEPRESSED C x 4 P FUNC01,FUNC01,FUNC03,FUNC04,FU
0x01b1fc…01b390 Dummy {f00=0x00b1, f01=0x018e, f02=» FUNC00,FUNC00,FUNC01,FUNC01,FUNC00,FUNC24, C x " P FUNC00,FUNC00,FUNC01,FUNC01 y 8 P IB TBIN6, RESTARTPOINT C y ^ . P KB034,KB034,KB034,KB034,KB015,KB000, C y . P KB034,KB034,KB034,KB034,KB034,KB034, C y . P KB034,KB034,KB032,KB033,KB034,KB03
0x01b390…01b524 Dummy {f00=0x00b1, f01=0x0190, f02=» y P MOVE TBIN2,W2 z PKB034 z 0 P CBE TBIN5,W0,KB051 IF L=0, IT WAS FUNCTION z , P MOVE TBIN8,FLDTAB(TBIN7,W2) z ` ( P XCOPY OUTBUF,TBIN8,TBIN5,TKBBUF,W0 z 2 P CALL BITON,FLDTAB(TBIN7,W4),W2 SET 'MODIFIED' z 2 P XCOPY TKBBUF,W0,FLDTAB(TBIN7,W3),
0x01b524…01b6b8 Dummy {f00=0x00b1, f01=0x0190, f02=» C z j , P TEST06,TEST07,TEST08,TEST09,TEST10, C { , P TEST11,TEST12,TEST13,TEST14,TEST15, C { : , P TEST16,TEST17,TEST18,TEST19,TEST20, C { j , P TEST21,TEST22,TEST23,TEST24,TEST25, C { , P TEST26,TEST27,TEST28,TEST29,TEST30, C { P TEST31 {
0x01b6b8…01b84c Dummy {f00=0x00b1, f01=0x0190, f02=»TBIN7,W4),W0 FIELD OK { | PKB050 | PKB051 | , P IB TBIN6, C | : . P KB090,KB090,KB052,KB052,KB052,KB090, C | P . P KB080,KB090,KB090,KB090,KB090,KB090, C | . P KB090,KB090,KB090,KB000,KB015,KB090, C | . P KB090,KB090,KB090,KB090,KB055,KB
0x01b84c…01b9e0 Dummy {f00=0x00b1, f01=0x0190, f02=» TBIN2,W1 | P MOVE TBIN7,TBIN1 } P ADD TBIN7,W1 } , P CBNG TBIN2,TBIN7,KB015 } B ( P TBF TALLFLD,KB090 ERROR CORRECTION? } b & P B KB000 WRAP AROUND IF DATAENTRY } P } " PKB060 POWER FAILURE DETECTED } & P MOVE PRINTFLG,=W'-1' NO PRINTING
0x01b9e0…01bb74 (1, 34) Dummy {f00=0x00b3, f01=0x0190, f02=» EJECT } PREADKB PROC ~ 4 P* THE PROCEDURE READS A FIELD FROM THE KEYBOARD. ~ " P* PARAMETERS: ~ Z P* TP1 - FIELD LENGTH ~ p P* RETURNED BINARIES: ~ P* TP1 - EFFECTIVE LENGTH ~ P* TP2 - INDEX TO KEYTAB ~ P* TBIN8 - 1=POWER FAILURE ~
0x01bb74…01bd08 Dummy {f00=0x00b3, f01=0x0190, f02=»,W4 ~ P CLEAR TAUTOTAB & P MOVE TBIN3,TP1 SAVE FIELD LENGTH $ P PERF KBREAD N P BERR RKB010 b P CMP TP2,W0 v P BE RKB020 POWER FAILURE P BL RKB030 KEYLOCK TURNED " P CBE TP2,=W'33',RKB060 TIMEOUT P B RKB050 PRKB0
0x01bd08…01be9c Dummy {f00=0x00b3, f01=0x0190, f02=»ITEM (SHOULD BE IMPOSSIBLE) v $ P* CASE 5: NBR OF CHARS. REACHED $ * P CBE TP2,TBIN3,RKB040 THIS WAS CASE 5 L P* NOW ONLY CASE 2 IS LEFT z 4 P* THIS IS CONSIDERED TO BE IMPOSSIBLE, RIGHT NOW P B RKB050 PRKB020 POWER FAILURE P MOV
0x01be9c…01c030 Dummy {f00=0x00b3, f01=0x0190, f02=» TOO MANY INPUTCHARS P MOVE TBIN8,W3 P B RKB090 2 PRKB050 NORMAL D P MOVE TBIN8,W4 P B RKB090 r PRKB060 P MOVE TBIN8,W5 PRKB090 P PERF PULL,W4 P RET P PEND P EJECT PKBREAD PROC P
0x01c030…01c1c4 Dummy {f00=0x00b3, f01=0x0190, f02=»S ITEM V 8 P* WILL CONTAIN THE ACTUAL NBR OF CHARS READ L P* TP2 - ON COMPLETION THIS ITEM WILL POINT AT THE END-OF-ITEM KEY USED J P* P* SPECIAL FEATURES: > P* BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT > P* FS
0x01c1c4…01c358 Dummy {f00=0x00b3, f01=0x0190, f02=»TH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT | & P* TBIN3 - DISPLACEMENT IN TSTRG40 6 P* TBIN4 - ORIG. LENGTH ` P* TBIN5 - INDEX TO KEYTABLE ~ P* TBIN6 - SCRATCH P* TBIN7 - SCRATCH & P* TBIN8 - USED TO SAVE FIELDINDEX P*
0x01c358…01c4ec Dummy {f00=0x00b3, f01=0x0190, f02=» TBOOL P MOVE TBIN3,W0 $ P MOVE TBIN4,TP1 SAVE ORIG.LENGTH $ P MOVE TBIN2,TP1 L P MOVE TSTRG40,CZERO d 2 P MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED 4 P XCOPY TSTRG40,W0,TBIN4,OUTBUF,FLDTAB(TBIN8,W2) PKBR016 P DSC1 PDU,PO
0x01c4ec…01c680 Dummy {f00=0x00b3, f01=0x0190, f02=» & P BOK KBR040 KEYLOCK OR TERM. CHAR. , P* A CHAR NEITHER ALPHANUM NOR LISTED IN . P* KEYTABLE IS INPUT ^ P* SIZE OF BUFFER IS REACHED ~ P* POWER FAILURE " P* REQ. NBR OF CHARS IS REACHED P* ONLY POSSIBILITIES: P* POWERF
0x01c680…01c814 (1, 35) Dummy {f00=0x00b4, f01=0x0190, f02=»MEOUT P PERF FUNC06 P MOVE TP2,=W'33' " P B KBR025 : PKBR018 L P CBNE W0,TP2,KBR030 Z P********** v PKBR020 P PERF PULL,W8 * P CMP W0,W1 UNDEF. ERROR OR PWR FAILURE P B KBR099 RETURN P********** PKBR0
0x01c814…01c9a8 Dummy {f00=0x00b4, f01=0x0190, f02=»ULATE FTABKEY P B KBR090 RETURN P********** . PKBR040 @ * P CBG TBIN1,W0,KBR045 IF ANY INPUTCHAR N $ P CLEAR TBOOL WE CAN RESET TBOOL | PKBR045 & P CBE TP2,W0,KBR020 POWER FAILURE ? P BL KBR025 P SUB TBIN1,W1 * P MOV
0x01c9a8…01cb3c Dummy {f00=0x00b4, f01=0x0190, f02=»TX z P B KBR090 P********** " PKBR050 BACKSPACE KEY PRESSED . P TBT TBOOL,KBR020 T ( P SUB TBIN2,TBIN1 HOW MANY CHARS LEFT n P ADD TBIN2,W1 2 P CBNL TBIN2,TP1,KBR010 BACKSPACED WE TO START? ( P XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,
0x01cb3c…01ccd0 Dummy {f00=0x00b4, f01=0x018e, f02=»,TBIN3 -//- P B KBR016 P********** & PKBR060 FORWARDSPACE KEY 8 0 P SUB TBIN2,TBIN1 HOW MANY CHARS MAY WE READ Z P SUB TBIN2,W1 ( P XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0 " P ADD TBIN3,TBIN1 FIELD LENGTH P ADD TBIN3,W1 PLUS
0x01ccd0…01ce64 Dummy {f00=0x00b4, f01=0x0190, f02=» 8 P XCOPY TSTRG40,TBIN3,TBIN1,TKBBUF,W0 COMPLETE BUFFER 6 P MOVE TKBBUF,TSTRG40 MOVE COMPLETED BUFFER TO APPL D . P PERF FIND00,TKBBUF FIND TOTAL FIELDLENGTH ~ PKBR095 P MOVE TSTRG40,CZERO & P XCOPY TSTRG40,W0,TBIN1,TKBBUF,W0 P MOV
0x01ce64…01cff8 Dummy {f00=0x00b4, f01=0x018e, f02=»1 P PERF PULL,W8 P CMP W0,W0 PKBR099 2 P RET @ P PEND L P EJECT Z PLCKSET PROC h P MUL TP2,=W'-1' | , P IB TP2,RKB034,RKB033,RKB032,RKB031, C " P RKB038,RKB037,RKB036,RKB035 PRKB031 P CALL BITOFF,TKE
0x01cff8…01d18c Dummy {f00=0x00b4, f01=0x0190, f02=» P B RKB039 PRKB034 P CALL BITOFF,TKEYS,W4 $ P B RKB039 B PRKB035 T P CALL BITON,TKEYS,W7 b P B RKB039 ~ PRKB036 P CALL BITON,TKEYS,W6 P B RKB039 PRKB037 P CALL BITON,TKEYS,W5 P B RKB039 P
0x01d18c…01d320 Dummy {f00=0x00b4, f01=0x018e, f02=» THE LENGTH OF THE DATAFIELD IN THE P* BUFFER SPECIFIED. , . P* IF THE LAST NON-ZERO CHAR IS BELOW X'20' H 2 P* (EOI-KEY) THE COUNT WILL BE DECREASED BY 1. z P* P MOVE TSTRG1,CZERO P MOVE TBIN1,W0 0 P MOVE TBIN7,=W'40' OBS OBS LEN
0x01d320…01d4b4 (1, 36) Dummy {f00=0x00b4, f01=0x40b0, f02=» $ P XCOPY TSTRG1,W0,W1,TKBBUF,TBIN7 . P CBNL TSTRG1,CSP,FIN010 < X'20' IS EOI KEY 0 P SUB TBIN1,W1 b PFIN010 x P RET P PEND P END @
0x01d4b4…01d648 Dummy {f00=0x00b4, f01=0x2008, f02=» EXT DCTASK EXT PLADS , > INCLUDE EQUATE F ^ f KBGO START KB-TASK n MOVE TBIN1,=X'40' , ( DSC1 DC,TRPAR,TBIN1 TRANSFER PARAMETERS B PLADS DC1GO START DC-TASK
0x01d648…01d7dc Dummy {f00=0x00b4, f01=0x0190, f02=»?L Ff< h | " @ " , 6 c @ d Tg t z ^ b bLPL H b2 Z ` z
0x01d7dc…01d970 Dummy {f00=0x00b4, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d @ < R:R: ` J bf b% bfpL 0 <h ll d : | ` ^ D)hH P D >~ `" f >~ $ d p 4d @u { H
0x01d970…01db04 Dummy {f00=0x00b4, f01=0x0190, f02=» ^< 2 f_ A ( _ @( > > U # T @4. H ( ( P c P W: P, A( V ( U P" @;jV L;jW @;| U ($ A
0x01db04…01dc98 Dummy {f00=0x00b4, f01=0x0190, f02=» Z P 0 9 _ _, ? _ P H H #P A A< A Q ? @( ) A( _ A< A A( A< ? ? ? ? ? ^ A _ _ ^ ( $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x01dc98…01de2c Dummy {f00=0x00b4, f01=0x0190, f02=» 1 Q Q > > 0 @' 1 A' P P > ? * X " R" Y T ? X D ( T> ( W8 > _& @ 8 R" Y T ? X D ( T ( W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @; V ? ; > _ > ? _ > > ? ^ ! Y ^ _
0x01de2c…01dfc0 Dummy {f00=0x00b4, f01=0x0190, f02=»B B ' J#B#B ' J B B pU ' J BAB rU > P b t B " P Q :A H P P ( H !@T I ($ T ! 1 U ( A ? W A ? W A ? W A ? W U ($ R ; V
0x01dfc0…01e154 (1, 37) Opaque[0x194]
0x01e154…01e2e8 # DirEnt {nam=»A:6040«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0698, f03=0x0000}
0x01e154…01e2e8 IdxSect {
0x01e154…01e2e8 f00 = 0x0034 // 0x1e154 @0x0
0x01e154…01e2e8 f01 = 0x000e // 0x1e156 @0x2
0x01e154…01e2e8 gno = [ // 0x1e158 @0x4
0x01e154…01e2e8 [0x00]: C0x0034.0x3.0
0x01e154…01e2e8 [0x01]: C0x0037.0x0.0
0x01e154…01e2e8 [0x02]: C0x003f.0x1.0
0x01e154…01e2e8 [0x03]: C0x003f.0x2.0
0x01e154…01e2e8 [0x04]: C0x0045.0x1.0
0x01e154…01e2e8 [0x05]: C0x0059.0x3.0
0x01e154…01e2e8 [0x06]: C0x005b.0x1.0
0x01e154…01e2e8 ]
0x01e154…01e2e8 }
0x01e2e8…01e47c Dummy {f00=0x0034, f01=0x0190, f02=»& /D &CR a a @ 0 , P , K0 6 F ( z K0 * * | ` D0 6
0x01e47c…01e610 Dummy {f00=0x0034, f01=0x0190, f02=»
0x01e610…01e7a4 Dummy {f00=0x0034, f01=0x0190, f02=» , . / 0 6 7 8 9 : ; < = > A B C D I J K P Q T U V W X Z [ ^ ******************************PLADSART/ANTAL? TOG? STATION? KLASSE/KUPE, @NSKE UFORENELIG KUPE/RYGER, @NSKE UFOREN
0x01e7a4…01e938 Dummy {f00=0x0034, f01=0x0190, f02=» KUPE? PLACERING? FRI? TILSLUTNING? SATELLIT? KONTROLNUMMER? NAT? BILART/PLADSART? REST/STR[K
0x01e938…01eacc Dummy {f00=0x0034, f01=0x0190, f02=»ANDARDMASKE? TEKNIK SKRIV MANUELT RYGER/ANTAL? KUPE/ANTAL? PLACERING/ANTAL? FORKERT PLADSART? FORBINDELSESD@R? TURNUMMER?
0x01eacc…01ec60 Dummy {f00=0x0034, f01=0x0190, f02=»!!!!!!!!!!!!++ ;" 0)(!%'&B K 12* 6 # N # h k l m n $ B
0x01ec60…01edf4 (1, 38) Dummy {f00=0x0037, f01=0x0190, f02=» @ 20 ( ( C * k v
0x01edf4…01ef88 Dummy {f00=0x0037, f01=0x0190, f02=»
[…0x1…]
0x01f11c…01f2b0 Dummy {f00=0x0037, f01=0x0190, f02=» : @ 0 , @ , F * 0& Z N
0x01f2b0…01f444 Dummy {f00=0x0037, f01=0x0190, f02=»!_) A I 0 *_ j@!! A0 @ A 0 A f!!! f"!0 f""! f"#! f"$- A!0 QW AF0 b3 k:0 kb0 C C"*0 0 2F F G NF _N0 0 W T B#0 B d 6M 0 ! 2T _( A!0 Q AFW A!0 Q AF0 T 0 0 `!_ 0 2F F
0x01f444…01f5d8 Dummy {f00=0x0037, f01=0x0190, f02=» C! ? " A" Bh!! B!"AB[ U;jU hA#lhA"!U; U<jU hA#lhA"!U< W!0 hA$ 0 hA$"0 hA$!P 0 hA$"P A!_I0 hA$ X 0 hA$ " !4 " 4 M IP d M! `* M" `+ M$ M!4 !0 -@P0 0 A0 A*P 0 .0 -AP !4 0 ! !P30 2 IU jl !Z 0 lcT#W j[ !Z 0 [eT @U 2T W 0
0x01f5d8…01f76c Dummy {f00=0x0037, f01=0x0190, f02=» aX B 0 XB " 4 ! L L( L!0 L A 0 A0 L !4 h!! h!" h!# h!$ 0 `!kblch!! d [ 4 A! B 0 W AB0 P 0 B NB _ 0 4 $h!!%$ " A B$ fABhAB B! B B$ A! A "4 "h!!$.,f!!% W$ " A B$ hABfAB B! B B$ A! A "4 Ah!$$A!A"A(=@@@A@B@C@D@E@F
0x01f76c…01f900 Dummy {f00=0x0037, f01=0x0190, f02=»_ 0 C C$W/ T+H@ W$HA W IF HG W IB IC HD W IE 4 #0 h)$"T 0 h*$"P C! C$W jR "lh"" PR%PD30 h($"P C$ C$Wx0 h)$"P C% C$Wg0 h*$"P C& C$WV0 h)$"PFjQ !lh)")Q3:0 h($"P jQ !lh(")Q2 C C$W%0 h'$"P jQ !lh'")Q2 C C$W # 4 # !4 #jR "lh"" PR%P
0x01f900…01fa94 (1, 39) Dummy {f00=0x003f, f01=0x0190, f02=» !4 # A" Bh!! B!"AB%0 hA$!P 0 hA$"T 0 hA$ W A!_! # !4 # 4 6 ?6-$ jYK"H K"jYK"G K"jYK"F K"jYK"E K"jYK"D K"jYK"C K"jYK"B K"jYK"A K"4 K K 6 ?6-$ jH "YK K"jG "YK K"jF "YK K"jE "YK K"jD "YK K"jC "YK K"jB "YK K"jA "YK K" K K 4 ! X7 A#0 XA
0x01fa94…01fc28 Dummy {f00=0x003f, f01=0x0190, f02=» C$ M! G $_/ '4 4 # L00 L$F!T#F PAUj[!!<F e"jQ !<F F(;!F 7!F 3 !F !F W [: e!W [8 e# f!!! f"!0 f""! f"#! f"$- #4 B!"B! BA B!4 # B! CA C!*BC B" #4 B"4 l: AQ4 ( U:jU EW WU ChG" CE B*,CB jlC!: C!_ W G!0 hG$ 0 hG$"0 hG! X8 DhG# D"0
0x01fc28…01fdbc Dummy {f00=0x003f, f01=0x0190, f02=» PW%P= #P@ W !4 4 PW%P= #PB W !4 4 PW%P= #PD W !4 4 PW%P= #PH W !4 PW!P= !P> !PE 4 PW!P= !P> !P? !PB 4 PW%P= #PJ 4 PW!P= %P? #PB W !4 PW!P= !P? !P@ !PB 4 4 PW%P> #PC W !4 4 PW%P> #PG W !4 PW%P> #PH
0x01fdbc…01ff50 Dummy {f00=0x003f, f01=0x0190, f02=»4 4 H!"HE jQ !WH Q9 PQ%P= #PA H!_ !W 4 " RW PR%P><#PI8 APjR "W" PR%P>(#PF$ BP%A %6B W !A W #A W " !4 " 4 4 PW!P= !P> !P? !P@ PC4 4 PW%P= #PC 4 !4 @Q Ah!! B"IS. CA C!0 hB$ T B! BC AS_& ChB$0 CIG C$W C& GB LhB!0
0x01ff50…0200e4 Dummy {f00=0x003f, f01=0x0190, f02=» E N HhG"jlHEW 0 hG$"jW hG#lH 3D ()*+,-./0123456789:;<=>?@ABCDEFP 0 hG$ W 0 hG$ 2F BG B! GA G! BG HS ? d/ARW @U4 $@H CM GR N P R !N W NC W H!W H"W H#W H$W H% $4 ( HG"H H!@T C DM BM V: GLjV DlhH"0 G AB*A 10 W AN
0x0200e4…020278 Dummy {f00=0x003f, f01=0x0190, f02=» BA B!jVCAW CA C! GL GC_ jVCAW WV HW V:jV AW WV E' HW MA ( 4 N/6N *$ 0 Z'W(0 Z&W"0 Z%W 0 Z$W 0 Z'W 0 Z&W 0 Z%W 0 Z$4 Q: A G h AGQ ! A GA G!jQ !WG,Q; A!4 A ! !d! ! 9 !2" ! : : 9 9 !x!@: : :r9 " o g q k
0x020278…02040c Dummy {f00=0x003f, f01=0x0190, f02=» n 3 : E 1 @ _ h & ; @ U Z o t ! 6 K ` u ) . F K ! # ( * . / 0 9 @ J T U V ^ , )
0x02040c…0205a0 Dummy {f00=0x003f, f01=0x0190, f02=»P 6A " $ & ( * , . 0 2 4 6 8 : < > @ A B C D E F G J N S Y c0 m0 n0 o0 p0 q0 r0 s0 t0 u0 v0 x0 z0 |0 ~0 0 0
0x0205a0…020734 (1, 40) Dummy {f00=0x003f, f01=0x0190, f02=» : # / W # / # "N # / # # ' / )z C "N )z C )z &P C )z & C : # "R V I ' # ( T _& @&^X, @&` _6 )z V G 9h ' ' W #> "R # $J $ # P
0x020734…0208c8 Dummy {f00=0x003f, f01=0x0190, f02=»)z P _B # B )z 'W # ( Wj )z # $ W # ^ ( 1W C C C ( ' Pb # I "%@P "% P& B C C 4 "5 # B P B P B 5 P C P B % P C + %| '
0x0208c8…020a5c Dummy {f00=0x003f, f01=0x0190, f02=»# # % Y ( C )z & R V C )z : B T T T V : 2 ' W 2 6 2 @ L" T # ' ?D * W"' #? * ;D:B " : _ )z C : : # $ ( P C W $0 P C $r
0x020a5c…020bf0 Dummy {f00=0x003f, f01=0x0190, f02=» W Q W %8 %p 4 ! P T 0P(W$ 8 C S W C C 0 P C ;a 6 4 ZH T : 49d_Z B@5 @ 8 @N ' @ d P ( z= #0 T B 'W B B " P&N &^PP L&@
0x020bf0…020d84 Dummy {f00=0x003f, f01=0x0190, f02=» T U :B@ ' d &^ & & & ' ( ' ( ,d6 6 +p.`/ / ( ( ( ( (R' ( ( 2 6 5 5N5l6 5(( ( ( ( W V 7 P P W & V X _ ' 9c D&b )z ( Q &pW +p :aW _B( 2 P V W8
0x020d84…020f18 Dummy {f00=0x003f, f01=0x0190, f02=» D& 2 ! 9B V T W V P D $ V 6 V % V E @ L' T 2 % 7_ 2 # L )z 2" &] Y $! 6P Q $ T 9B 'D _ _ 6 @ L" T 7 $ V P W _ &. ' +6 V & '4 H& 'W
0x020f18…0210ac Dummy {f00=0x003f, f01=0x0190, f02=» T Z L L( D V, W # * L( E V $ W D V L( , Wn 6 2 * W " P " # * ;b WF " ;d# _ [ v [ : )z F Z Z : :B , (Vj ; [ [ )z z ;AV$ Z H #
0x0210ac…021240 Dummy {f00=0x003f, f01=0x0190, f02=»P [ 6 [ Z 7 ( Z 7 : ( :A ( @ L" P [ :;H 2 P ;h * : ) ; V Y : 2! : 6 2 * W& " # * ;b ; : ;f" #?_" P8" T * & : * & !`P :J +_ +
0x021240…0213d4 (1, 41) Dummy {f00=0x0045, f01=0x0190, f02=» Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b - P P PN P 0 - P: V W Z _ 4 V W Q P ) P 9_ &" ! 9 : & P Q - ,^ , < - # ; [ _n' d
0x0213d4…021568 Dummy {f00=0x0045, f01=0x0190, f02=»7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P & T 9d! T 7 V Y P _$ SZ Q V P V Q W Q 7 Y P._6 & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V &V : V S W
0x021568…0216fc Dummy {f00=0x0045, f01=0x0190, f02=» [ 1 ,d 1 ,d 1 6 Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P 1 6 V H )_ 1 / _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
0x0216fc…021890 Dummy {f00=0x0045, f01=0x0190, f02=» [ [ [ [ $ [ [ 1 ,d 1 ,d 1 6 z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z 1 + Q 1 / P _ T { [ 1 1 [ Q@ [ 1 6 { R [ _ 1 6 1 / Z ! Z $ Z %_N [
0x021890…021a24 Dummy {f00=0x0045, f01=0x0190, f02=» Z H D & H D % [ ( !! gg++ L 5 ( ( +65 +$( )z5 4&8 4&4 5 4 5 5 4f3 4p3Z4P4 4 4 4F5 2 6 3b K K K K V K : )z 2z 2j 2 ( V 3
0x021a24…021bb8 Dummy {f00=0x0045, f01=0x0190, f02=» [ Z P [ V 7_ Z 3 Z 7 Z Z P : V R (Q V : Z Z : 2z J P v I < : J Qf : P 4 ! TV_ K 4 WJ 4LW +_ 4f 4b K W. _& X " W
0x021bb8…021d4c Dummy {f00=0x0045, f01=0x0190, f02=»)P9H # T &W &" :I : 5 : P & _ &X _ : : : : 6l 2 : { : 6 6d PX 9 _ 6 [ 6 Z : R" P $ 1T Y W 5 _$ : 6 $ R W R # P W )
0x021d4c…021ee0 Dummy {f00=0x0045, f01=0x0190, f02=» , : )z )z jP kT T : & 9! " : $ : 6l ( $ : W " T & T + : * & !@P `1` P + Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $
0x021ee0…022074 (1, 42) Dummy {f00=0x0059, f01=0x0190, f02=»# =_ P :" P * U P 1`! T "# 9e! # K : : + )z [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I9 6 * B Z 9 ! ; *Xt 8 ! D9 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1
0x022074…022208 Dummy {f00=0x0059, f01=0x0190, f02=» _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W 8~ 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 )z )z V ' )z ( ' :XW :FW :LW :R )z )z F P =# & =` P P V Y Q W Q
0x022208…02239c Dummy {f00=0x0059, f01=0x0190, f02=» ? ' )z )z )z F Q )z )z )z # # )z # )z : P , B , 9 Q _ B Q , ! Px !@@Pv !##Pt !$$Pr ! Pp ! Pn ! Pv ! P6 ! P0 !::P< 9 )R Qj 9 :h 9 W> )W:
0x02239c…022530 Dummy {f00=0x0059, f01=0x0190, f02=» , C ( : Q p ! P0 ! P* P , , 9H < P < < W Q : q _ @ ,P @ Z : L _ H P ( - Z : P (9a - p Q ( - _ : P P P P $ ! P P Z + =z : 5 P
0x022530…0226c4 Dummy {f00=0x0059, f01=0x0190, f02=» - P P Q $ = P R - _ B C : ! T Wz (U >p Wf ! T WZ ! T WP ! T WF ! T >pW6 ! X !<<T >pW !==T >pW !::T >p : - P _ :h : ( B P Q : ( P P ? p ^ (
0x0226c4…022858 Dummy {f00=0x0059, f01=0x0190, f02=»Q _ P P Q : ! P ! P ! P ! P " (U Wx Q U U QF , ! P0 ! P* ! P$ ! P ! P* !@@P* !##P* !$$P* _< U W _ -_ -_$ [ -_* ] -_0 : )z P P2 @$ ( @ ( : V B C
0x022858…0229ec Dummy {f00=0x0059, f01=0x0190, f02=» ) 9h ) T C @ P Q _< : ( :D @ D AtG A G BLBSB V C L C C D At A4 Au Au AV % < X " o " ' A 4 w w AV
0x0229ec…022b80 Dummy {f00=0x0059, f01=0x0190, f02=» AV X " B A4 Aw Aw AV Z " C I V r r f C
0x022b80…022d14 (1, 43) Dummy {f00=0x005b, f01=0x0190, f02=» C I R k D c u u D % < X " o " ' A 4 w w AV
0x022d14…022ea8 Dummy {f00=0x005b, f01=0x0190, f02=» T U V W X Z [ ^ ******** * & [ **********************PLADSART $ & & y /ANTAL? TOG? R * & STATION? | * & KLASSE/K * & UPE, @NSKE UFORENELIG KUPE/RYG * &
0x022ea8…02303c Dummy {f00=0x005b, f01=0x0190, f02=» K RYGER? ( & i KUPE? * * & PLACERIN V & & G? FRI? * & TILSLUTN * & ING? SATELLIT *
0x02303c…0231d0 Dummy {f00=0x005b, f01=0x0190, f02=» Y LADSART? REST/STR ( & w [KNING? REST? . * & ACCEPTKO Z ( & DE? N@GLE? * & STANDARD ( & MASKE? TEKNIK
0x0231d0…023364 Dummy {f00=0x005b, f01=0x0190, f02=» j * & g AL? PLACERIN * & G/ANTAL? FORKERT 6 * & PLADSART? FORBINDE d * & LSESD@R? TURNUMME * & R? BNR-@NSK & & E?
0x023364…0234f8 Dummy {f00=0x005b, f01=0x0190, f02=»!!++ ; t ( $ u " 0)(!%'&B K 12* > u R 8 H IDENT D:CB20 TRA 4.2 83-12-23 F1 O1111 831223 NJ d D:CB20 D:CB20C * & 6 # N $ # h k
0x0234f8…02368c Dummy {f00=0x005b, f01=0x0190, f02=» . $ D $ X 8 H IDENT D:TB10 TRA 4.2 83-12-23 F1 O1111 831223 NJ j D:TB10 D:TB10T * & B * &
0x02368c…023820 Dummy {f00=0x005b, f01=0x0190, f02=»:TB20 Z:TB20T & " & : & = J & [ Z & y j & z & & & @ 8 H IDENT D:TB2
0x023820…0239b4 (1, 44) Opaque[0x194]
0x0239b4…023b48 # DirEnt {nam=»TEST «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef0, f03=0x0000}
0x0239b4…023b48 IdxSect {
0x0239b4…023b48 f00 = 0x0077 // 0x239b4 @0x0
0x0239b4…023b48 f01 = 0x0002 // 0x239b6 @0x2
0x0239b4…023b48 gno = [ // 0x239b8 @0x4
0x0239b4…023b48 [0x00]: C0x0077.0x2.0
0x0239b4…023b48 ]
0x0239b4…023b48 }
0x023b48…023cdc Dummy {f00=0x0077, f01=0x0190, f02=» P IDENT TEST 830201 NJ L PMASK STRG 300X'0E202053494420414E540F00000E202053540F313233 C " L P 0E2D0F3435360E20544F470F00000000000E204441544F0F0000 C r < P 00000E4B4C0F310E2052590F000E204B55500F000E20504C41 C L P 430F
0x023cdc…023e70 Dummy {f00=0x0077, f01=0x0190, f02=» R < PTICKET STRG 400X'0E2020202020202020202041414141414120 C 8 P 4141414141414141414141414120202020202020202020 C T 6 P 424242424242424242424242422042200F200E202020 C : P 202020202020202020202020202020202020202043434343 C 6 P
0x023e70…024004 Dummy {f00=0x0077, f01=0x408e, f02=»20200F202020200E20202020202020202020202020 C < P 20202020202020202020202020202020205441532020200F2020' 6 P v P END ~@ P 424242424242424242424242422042200F200E202020 C : P 202020202020202020202020202020202020202043434343 C 6 P
0x024004…024198 Dummy {f00=0x0077, f01=0x2008, f02=» @
0x024198…02432c Dummy {f00=0x0077, f01=0x0190, f02=» P d P d PTEST07 PROC d P CMP W0,W0 d ( P RET d : P PEND d F P d T P d P d d PTEST08 PROC d l P* 0-7 d P MOVE TBCD5,TKBBUF d P CBL TBCD5,=D'0',TEST0898 d P CBG TBCD5,=D'7',TEST0898 d P CMP W0,W0 d P B TEST089
0x02432c…0244c0 Dummy {f00=0x0077, f01=0x018e, f02=» d P MOVE TBCD5,TKBBUF e P CBL TBCD5,=D'0',TEST0998 e " P CBG TBCD5,=D'9',TEST0998 e D P CMP W0,W0 e f P B TEST0999 e x PTEST0998 e P CMP W0,W1 e PTEST0999 e P RET e P PEND e P e P e P e PTEST10 PROC e P* 0-
0x0244c0…024654 (1, 45) Opaque[0x194]
0x024654…0247e8 # DirEnt {nam=»DSBGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0730, f03=0x0000}
0x024654…0247e8 IdxSect {
0x024654…0247e8 f00 = 0x0039 // 0x24654 @0x0
0x024654…0247e8 f01 = 0x0004 // 0x24656 @0x2
0x024654…0247e8 gno = [ // 0x24658 @0x4
0x024654…0247e8 [0x00]: C0x0039.0x2.0
0x024654…0247e8 [0x01]: C0x003f.0x0.0
0x024654…0247e8 ]
0x024654…0247e8 }
0x0247e8…02497c Dummy {f00=0x0039, f01=0x0190, f02=» SCR , PMES *********************************** , PMES * GENERATION OF D S B - PROGRAM * @ , PMES * (PROD VERSION) * p , PMES *********************************** PPRT DSBGEN PPRT DSBCAS PPRT PROCON PSC
0x02497c…024b10 Dummy {f00=0x0039, f01=0x0190, f02=»INC T:GTID,INT:PROD PINC T:IO,INT:PROD PINC I:NTP,INT:PROD 6 PINC I:EVA,INT:PROD P PINC I:CMP,INT:PROD j PINC I:CPA,INT:PROD PINC I:MOV,INT:PROD PINC I:MUL,INT:PROD PINC I:DIV,INT:PROD PINC I:NTF,INT:PROD PIN
0x024b10…024ca4 Dummy {f00=0x0039, f01=0x0190, f02=»ADS,INT:PROD PINC I:EPIC,INT:PROD PINC T:MSK0,INT:PROD 0 PINC T:DEL,INT:PROD L LKE M f PKPF /L,A:6040 t SCR PNOD C PLED PLADS P!!CH $$6040$$6141$$ P!!EN PTRA /S,NL TLK PINC T:LSEG,I
0x024ca4…024e38 Dummy {f00=0x0039, f01=0x0190, f02=»PROD PINC I:EVA,INT:PROD PINC I:CMP,INT:PROD & PINC I:CPA,INT:PROD @ PINC I:MOV,INT:PROD Z PINC I:MUL,INT:PROD t PINC I:DIV,INT:PROD PINC I:NTF,INT:PROD PINC I:EDT,INT:PROD PINC I:EDTE,INT:PROD PINC I:EDS,INT:PR
0x024e38…024fcc Dummy {f00=0x0039, f01=0x006c, f02=» | PINC T:DEL,INT:PROD LKE M " PKPF /L,A:6141 0 PASG 2,NO F PASG /E0,DK,DSBCAS V Z PINC I:MUL,INT:PROD t PINC I:DIV,INT:PROD PINC I:NTF,INT:PROD PINC I:EDT,INT:PROD PINC I:EDTE,INT:PROD PINC I:EDS,INT:PR
0x024fcc…025160 Dummy {f00=0x0039, f01=0x2008, f02=» INC T:DEL,INT:PROD LKE M " PKPF /L,A:6141 0 PASG 2,NO F PASG /E0,DK,DSBCAS V Z PINC I:MUL,INT:PROD t PINC I:DIV,INT:PROD PINC I:NTF,INT:PROD PINC I:EDT,INT:PROD PINC I:EDTE,INT:PROD PINC I:EDS,INT:PR
0x025160…0252f4 (1, 46) Dummy {f00=0x003f, f01=0x0190, f02=» 4 F IDENT T:ENIN P,REL=4.2,791116,870136940420 0 T:ENINK T:ENI T:EVOU 0 < T:ENINK 0 T:ENI 0 p , ( X Y " X Y $ X Y & X @W X 0 T:LOFS 0 , ( ! < Y = " 0 I:EGTBC 0 * &
0x0252f4…025488 Dummy {f00=0x003f, f01=0x0004, f02=» 0
0x025488…02561c Dummy {f00=0x003f, f01=0x000c, f02=»820805 ^ ^:DELA T:DSC0" T:DSC1 T:GETI T:KI1 T:MWAI1 T:READ T:WAIT T:WRITA T:XSTAB UNPACKF @ ,Z:TB20 3 820805 Z:TB20T K h ,D:TB20 4 820805 D:TB20T 2 ,Z:TB30 5 820805 Z:TB30T G b ,D:TB30 9
0x02561c…0257b0 Dummy {f00=0x003f, f01=0x0190, f02=» PDUMMY 820805 tNUM CURP DCPO LENG ATTR `BITPUL 820805 BITTSTK BITINV BITON BITOFF I:EVA0 I:RT1 j >GMSGIX 820805 GMSGIXK I:EVA0 I:RT1 MSKTAB 820805
0x0257b0…025944 Dummy {f00=0x003f, f01=0x0190, f02=»TTRC >GFLDIX 820805 GFLDIXK I:EVA0 I:RT1 fUNPACK 820805 UNPACKK FLASH : I:RT1 I:EVA0 T:FDSP MSKTAB TABEND@ R RMASK02 820805 MASK02K bNUM CURP DCPOK LENG ATTR
0x025944…025ad8 Dummy {f00=0x003f, f01=0x0190, f02=» DCPOK LENG ATTR p RMASK05 820805 MASK05K bNUM CURP DCPOK LENG ATTR X RMASK06 820805 MASK06K bNUM CURP DCPOK LENG ATTR RMASK07 820805 MASK07K bNUM CURP DCPOK L
0x025ad8…025c6c Dummy {f00=0x003f, f01=0x0190, f02=»K09K bNUM CURP DCPOK LENG ATTR T:AK00 820805 T:AK00A T:DK00 D:CB90 C:CB90 D:CB10 C:CB10 D:CB20 C:CB20 D:TB10A Z:TB10A D:TB202 Z:TB20F D:TB30 Z:TB30 4T:DK00 820805 T:DK00D KBGO0 " F
0x025c6c…025e00 Dummy {f00=0x003f, f01=0x0190, f02=» 820805 T:ATABA T:AD00 T:AK00 :A ,U:BTAB # 820805 U:BTABB :B ,S:BTAB $ 820805 S:BTABB :B ,C:CB90 % 820805 C:CB90C ,D:CB90 ' 820805 D:CB90C & ,C:CB10 ( 820805 C
0x025e00…025f94 (1, 47) Opaque[0x194]
0x025f94…026128 # DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0038, f03=0x0000}
0x025f94…026128 IdxSect {
0x025f94…026128 f00 = 0x0001 // 0x25f94 @0x0
0x025f94…026128 f01 = 0x0002 // 0x25f96 @0x2
0x025f94…026128 gno = [ // 0x25f98 @0x4
0x025f94…026128 [0x00]: C0x0001.0x3.0
0x025f94…026128 ]
0x025f94…026128 }
0x026128…0262bc Dummy {f00=0x0001, f01=0x0056, f02=» ASG 2,LP0F SCR TRA PLADS " SCR 4 ASG /E0,DK,DSBGEN @ S B - PROGRAM * @ , PMES * (PROD VERSION) * p , PMES *********************************** PPRT DSBGEN PPRT DSBCAS PPRT PROCON PSC
0x0262bc…026450 Dummy {f00=0x0001, f01=0x2008, f02=» 2,LP0F SCR TRA PLADS " SCR 4 ASG /E0,DK,DSBGEN @ S B - PROGRAM * @ , PMES * (PROD VERSION) * p , PMES *********************************** PPRT DSBGEN PPRT DSBCAS PPRT PROCON PSC
0x026450…0265e4 Dummy {f00=0x0001, f01=0x0190, f02=»E AFTER 1. POLL PNBRKBV BIN PNBRGTP BIN 2 > PMF1KBV STRG 40X'404142434445464748494A4B4C4D4E4F50515253' D PMF1GTP STRG 36X'7F' PMF1CU BIN X'6040' PCNFAC BINI (24),'1' PBINWK1 BIN PDCBUF STRG 300 EJECT
0x0265e4…026778 Dummy {f00=0x0001, f01=0x018e, f02=» PW6 BIN '6' PW7 BIN '7' PW8 BIN '8' ( PW9 BIN '9' : PW10 BIN '10' L PW12 BIN '12' ` PW40 BIN '40' t PW80 BIN '80' ( PLPAT1 BIN X'0010' PAPER OUT PATTERN , PLPAT2 BIN X'8000' AUDIBLE ALARM PATTERN P P P
0x026778…02690c Dummy {f00=0x0001, f01=0x0190, f02=» | P 2 - FAERGEBILLET P 3 - SP-SP-LF-LF $ * PCTIMOUT BIN '1450' READ/WRITE TIMEOUT > & PCBUFLEN BIN '300' DC BUFFERLENGTH l B PCINX BINI (35),'0','9','10','11','46','47','48','54','55', C , P '56','57','58','59','60','61','62', C
0x02690c…026aa0 Dummy {f00=0x0001, f01=0x018e, f02=»* OBS: 'OE'R SKRIVES SOM '@'. $ P* DISSE ERSTATTES I OPSTARTDELEN & < PCTXT STRGI (35),30C'******************************', C N P 30C'PLADSART/ANTAL? ', C P 30C'TOG? ', C P 30C'STATION? ', C . P 30C'KLASSE/KUPE, @NSKE UFORENELI
0x026aa0…026c34 (1, 48) Opaque[0x194]
0x026c34…026dc8 # DirEnt {nam=»DSBTST«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0368, f03=0x0000}
0x026c34…026dc8 IdxSect {
0x026c34…026dc8 f00 = 0x001b // 0x26c34 @0x0
0x026c34…026dc8 f01 = 0x0002 // 0x26c36 @0x2
0x026c34…026dc8 gno = [ // 0x26c38 @0x4
0x026c34…026dc8 [0x00]: C0x001b.0x1.0
0x026c34…026dc8 ]
0x026c34…026dc8 }
0x026dc8…026f5c Dummy {f00=0x001b, f01=0x0170, f02=» SCR , PMES *********************************** , PMES * GENERATION OF D S B - PROGRAM * @ , PMES * (TEST VERSION) * p , PMES *********************************** PPRT DSBTST PPRT TSTCON PSCR PNOD C
0x026f5c…0270f0 Dummy {f00=0x001b, f01=0x2008, f02=» , PMES *********************************** , PMES * GENERATION OF D S B - PROGRAM * @ , PMES * (TEST VERSION) * p , PMES *********************************** PPRT DSBTST PPRT TSTCON PSCR PNOD C
0x0270f0…027284 Dummy {f00=0x001b, f01=0x4094, f02=» l , ( y * K0 , ( : j ~@ B20 C:CB20 f 6 2 D:TB10A Z:TB10A D:TB202 Z:TB20F D:TB30 Z:TB30 * & a a
0x027284…027418 Dummy {f00=0x001b, f01=0x40d0, f02=» 8 H IDENT T:DK00 TRA 4.2 82-06-03 F1 O1111 820602 NJ T:DK00 @ T:DK00D R KBGO0 f * & K0 * * v @ " @ 0 Z:TB30 * & a a
0x027418…0275ac Dummy {f00=0x001b, f01=0x40ee, f02=» 8 H IDENT T:AD00 TRA 4.2 82-06-03 F1 O1111 820602 NJ T:AD00 @ T:AD00A " R T:DD00 D:CB90 C:CB90 f * & ` D0 * @ a
0x0275ac…027740 Dummy {f00=0x001b, f01=0x40ba, f02=» 8 H IDENT T:DD00 TRA 4.2 82-06-03 F1 O1111 820602 NJ T:DD00 @ T:DD00D R DC1GO f * & D0 * v @ D0 * @ a
0x027740…0278d4 (1, 49) Opaque[0x194]
0x0278d4…027a68 # DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0108, f03=0x0000}
0x0278d4…027a68 IdxSect {
0x0278d4…027a68 f00 = 0x0008 // 0x278d4 @0x0
0x0278d4…027a68 f01 = 0x0002 // 0x278d6 @0x2
0x0278d4…027a68 gno = [ // 0x278d8 @0x4
0x0278d4…027a68 [0x00]: C0x0008.0x1.0
0x0278d4…027a68 ]
0x0278d4…027a68 }
0x027a68…027bfc Dummy {f00=0x0008, f01=0x018e, f02=» T; 01; TID=TB; TCL=TB; * LEV=55; : 01; J TDC=T02; V PLC=08L; f 00; v T; P01; PTID=KA; TCL=K0; LEV=60; 01; TDC=T01; PLC=01L; P02; SDC=S01;
0x027bfc…027d90 Dummy {f00=0x0008, f01=0x008a, f02=» P02; PSDC=S01; PSDC=S02; T; 0 01; : TID=D0; F TCL=D0; V LEV=60; f 00; v P00; P01; PTID=KA; TCL=K0; LEV=60; 01; TDC=T01; PLC=01L; P02; SDC=S01;
0x027d90…027f24 Dummy {f00=0x0008, f01=0x2008, f02=» PSDC=S01; PSDC=S02; T; 0 01; : TID=D0; F TCL=D0; V LEV=60; f 00; v P00; P01; PTID=KA; TCL=K0; LEV=60; 01; TDC=T01; PLC=01L; P02; SDC=S01;
0x027f24…0280b8 Dummy {f00=0x0008, f01=0x0190, f02=»* * * * * ( * 2 PW0 BIN '0' < PW1 BIN '1' N PW2 BIN '2' ` PW3 BIN '3' r PW4 BIN '4' PW5 BIN '5' PW6 BIN '6' PW7 BIN '7' PW8 BIN '8' PW9 BIN '9' PW10 BIN '10' PW12
0x0280b8…02824c Dummy {f00=0x0008, f01=0x018e, f02=»'300' B PCINX BINI (35),'0','9','10','11','46','47','48','54','55', C , P '56','57','58','59','60','61','62', C T 2 P '65','66','67','68','73','74','75','80', C , P '81','84','85','86','87','88','90', C P '91','92','94','999' " P
0x02824c…0283e0 Dummy {f00=0x0008, f01=0x018e, f02=» V P 30C'PLADSART/ANTAL? ', C P 30C'TOG? ', C , P 30C'STATION? ', C D . P 30C'KLASSE/KUPE, @NSKE UFORENELIG ', C ` , P 30C'KUPE/RYGER, @NSKE UFORENELIG ', C , P 30C'DATAMATEN OPTAGET, PR@V IGEN ', C P 30C'DATO? ', C
0x0283e0…028574 (1, 50) Opaque[0x194]
0x028574…028708 # DirEnt {nam=»A:6141«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1380, f03=0x0000}
0x028574…028708 IdxSect {
0x028574…028708 f00 = 0x009c // 0x28574 @0x0
0x028574…028708 f01 = 0x000e // 0x28576 @0x2
0x028574…028708 gno = [ // 0x28578 @0x4
0x028574…028708 [0x00]: C0x009c.0x0.0
0x028574…028708 [0x01]: C0x009c.0x1.0
0x028574…028708 [0x02]: C0x00ae.0x2.0
0x028574…028708 [0x03]: C0x00ae.0x3.0
0x028574…028708 [0x04]: C0x00af.0x0.0
0x028574…028708 [0x05]: C0x00af.0x1.0
0x028574…028708 [0x06]: C0x00af.0x2.0
0x028574…028708 ]
0x028574…028708 }
0x028708…02889c Dummy {f00=0x009c, f01=0x0190, f02=»& /D &CR a a @ 0 , P , K0 6 F ( z K0 * * | ` D0 6
0x02889c…028a30 Dummy {f00=0x009c, f01=0x0190, f02=»
0x028a30…028bc4 Dummy {f00=0x009c, f01=0x0190, f02=» , . / 0 6 7 8 9 : ; < = > A B C D I J K P Q T U V W X Z [ ^ ******************************PLADSART/ANTAL? TOG? STATION? KLASSE/KUPE, @NSKE UFORENELIG KUPE/RYGER, @NSKE UFOREN
0x028bc4…028d58 Dummy {f00=0x009c, f01=0x0190, f02=» KUPE? PLACERING? FRI? TILSLUTNING? SATELLIT? KONTROLNUMMER? NAT? BILART/PLADSART? REST/STR[K
0x028d58…028eec Dummy {f00=0x009c, f01=0x0190, f02=»ANDARDMASKE? TEKNIK SKRIV MANUELT RYGER/ANTAL? KUPE/ANTAL? PLACERING/ANTAL? FORKERT PLADSART? FORBINDELSESD@R? TURNUMMER?
0x028eec…029080 Dummy {f00=0x009c, f01=0x0190, f02=»!!!!!!!!!!!!++ ;" 0)(!%'&B K 12* 6 # N # h k l m n $ B
0x029080…029214 (1, 51) Dummy {f00=0x009c, f01=0x0190, f02=» @ 20 ( ( C * k v
0x029214…0293a8 Dummy {f00=0x009c, f01=0x0190, f02=»
[…0x1…]
0x02953c…0296d0 Dummy {f00=0x009c, f01=0x0190, f02=» : @ 0 , @ , F * 0& Z N
0x0296d0…029864 Dummy {f00=0x009c, f01=0x0190, f02=»!_) A I 0 *_ j@!! A0 @ A 0 A f!!! f"!0 f""! f"#! f"$- A!0 QW AF0 b3 k:0 kb0 C C"*0 0 2F F G NF _N0 0 W T B#0 B d 6M 0 ! 2T _( A!0 Q AFW A!0 Q AF0 T 0 0 `!_ 0 2F F
0x029864…0299f8 Dummy {f00=0x009c, f01=0x0190, f02=» C! ? " A" Bh!! B!"AB[ U;jU hA#lhA"!U; U<jU hA#lhA"!U< W!0 hA$ 0 hA$"0 hA$!P 0 hA$"P A!_I0 hA$ X 0 hA$ " !4 " 4 M IP d M! `* M" `+ M$ M!4 !0 -@P0 0 A0 A*P 0 .0 -AP !4 0 ! !P30 2 IU jl !Z 0 lcT#W j[ !Z 0 [eT @U 2T W 0
0x0299f8…029b8c Dummy {f00=0x009c, f01=0x0190, f02=» aX B 0 XB " 4 ! L L( L!0 L A 0 A0 L !4 h!! h!" h!# h!$ 0 `!kblch!! d [ 4 A! B 0 W AB0 P 0 B NB _ 0 4 $h!!%$ " A B$ fABhAB B! B B$ A! A "4 "h!!$.,f!!% W$ " A B$ hABfAB B! B B$ A! A "4 Ah!$$A!A"A(=@@@A@B@C@D@E@F
0x029b8c…029d20 Dummy {f00=0x009c, f01=0x0190, f02=»_ 0 C C$W/ T+H@ W$HA W IF HG W IB IC HD W IE 4 #0 h)$"T 0 h*$"P C! C$W jR "lh"" PR%PD30 h($"P C$ C$Wx0 h)$"P C% C$Wg0 h*$"P C& C$WV0 h)$"PFjQ !lh)")Q3:0 h($"P jQ !lh(")Q2 C C$W%0 h'$"P jQ !lh'")Q2 C C$W # 4 # !4 #jR "lh"" PR%P
0x029d20…029eb4 (1, 52) Dummy {f00=0x00ae, f01=0x0190, f02=» !4 # A" Bh!! B!"AB%0 hA$!P 0 hA$"T 0 hA$ W A!_! # !4 # 4 6 ?6-$ jYK"H K"jYK"G K"jYK"F K"jYK"E K"jYK"D K"jYK"C K"jYK"B K"jYK"A K"4 K K 6 ?6-$ jH "YK K"jG "YK K"jF "YK K"jE "YK K"jD "YK K"jC "YK K"jB "YK K"jA "YK K" K K 4 ! X7 A#0 XA
0x029eb4…02a048 Dummy {f00=0x00ae, f01=0x0190, f02=» C$ M! G $_/ '4 4 # L00 L$F!T#F PAUj[!!<F e"jQ !<F F(;!F 7!F 3 !F !F W [: e!W [8 e# f!!! f"!0 f""! f"#! f"$- #4 B!"B! BA B!4 # B! CA C!*BC B" #4 B"4 l: AQ4 ( U:jU EW WU ChG" CE B*,CB jlC!: C!_ W G!0 hG$ 0 hG$"0 hG! X8 DhG# D"0
0x02a048…02a1dc Dummy {f00=0x00ae, f01=0x0190, f02=» PW%P= #P@ W !4 4 PW%P= #PB W !4 4 PW%P= #PD W !4 4 PW%P= #PH W !4 PW!P= !P> !PE 4 PW!P= !P> !P? !PB 4 PW%P= #PJ 4 PW!P= %P? #PB W !4 PW!P= !P? !P@ !PB 4 4 PW%P> #PC W !4 4 PW%P> #PG W !4 PW%P> #PH
0x02a1dc…02a370 Dummy {f00=0x00ae, f01=0x0190, f02=»4 4 H!"HE jQ !WH Q9 PQ%P= #PA H!_ !W 4 " RW PR%P><#PI8 APjR "W" PR%P>(#PF$ BP%A %6B W !A W #A W " !4 " 4 4 PW!P= !P> !P? !P@ PC4 4 PW%P= #PC 4 !4 @Q Ah!! B"IS. CA C!0 hB$ T B! BC AS_& ChB$0 CIG C$W C& GB LhB!0
0x02a370…02a504 Dummy {f00=0x00ae, f01=0x0190, f02=» E N HhG"jlHEW 0 hG$"jW hG#lH 3D ()*+,-./0123456789:;<=>?@ABCDEFP 0 hG$ W 0 hG$ 2F BG B! GA G! BG HS ? d/ARW @U4 $@H CM GR N P R !N W NC W H!W H"W H#W H$W H% $4 ( HG"H H!@T C DM BM V: GLjV DlhH"0 G AB*A 10 W AN
0x02a504…02a698 Dummy {f00=0x00ae, f01=0x0190, f02=» BA B!jVCAW CA C! GL GC_ jVCAW WV HW V:jV AW WV E' HW MA ( 4 N/6N *$ 0 Z'W(0 Z&W"0 Z%W 0 Z$W 0 Z'W 0 Z&W 0 Z%W 0 Z$4 Q: A G h AGQ ! A GA G!jQ !WG,Q; A!4 A ! !d! ! 9 !2" ! : : 9 9 !x!@: : :r9 " o g q k
0x02a698…02a82c Dummy {f00=0x00ae, f01=0x0190, f02=» n 3 : E 1 @ _ h & ; @ U Z o t ! 6 K ` u ) . F K ! # ( * . / 0 9 @ J T U V ^ , )
0x02a82c…02a9c0 Dummy {f00=0x00ae, f01=0x0190, f02=»P 6A " $ & ( * , . 0 2 4 6 8 : < > @ A B C D E F G J N S Y c0 m0 n0 o0 p0 q0 r0 s0 t0 u0 v0 x0 z0 |0 ~0 0 0
0x02a9c0…02ab54 (1, 53) Dummy {f00=0x00ae, f01=0x0190, f02=» : # / W # / # "N # / # # ' / )z C "N )z C )z &P C )z & C : # "R V I ' # ( T _& @&^X, @&` _6 )z V G 9h ' ' W #> "R # $J $ # P
0x02ab54…02ace8 Dummy {f00=0x00ae, f01=0x0190, f02=»)z P _B # B )z 'W # ( Wj )z # $ W # ^ ( 1W C C C ( ' Pb # I "%@P "% P& B C C 4 "5 # B P B P B 5 P C P B % P C + %| '
0x02ace8…02ae7c Dummy {f00=0x00ae, f01=0x0190, f02=»# # % Y ( C )z & R V C )z : B T T T V : 2 ' W 2 6 2 @ L" T # ' ?D * W"' #? * ;D:B " : _ )z C : : # $ ( P C W $0 P C $r
0x02ae7c…02b010 Dummy {f00=0x00ae, f01=0x0190, f02=» W Q W %8 %p 4 ! P T 0P(W$ 8 C S W C C 0 P C ;a 6 4 ZH T : 49d_Z B@5 @ 8 @N ' @ d P ( z= #0 T B 'W B B " P&N &^PP L&@
0x02b010…02b1a4 Dummy {f00=0x00ae, f01=0x0190, f02=» T U :B@ ' d &^ & & & ' ( ' ( ,d6 6 +p.`/ / ( ( ( ( (R' ( ( 2 6 5 5N5l6 5(( ( ( ( W V 7 P P W & V X _ ' 9c D&b )z ( Q &pW +p :aW _B( 2 P V W8
0x02b1a4…02b338 Dummy {f00=0x00ae, f01=0x0190, f02=» D& 2 ! 9B V T W V P D $ V 6 V % V E @ L' T 2 % 7_ 2 # L )z 2" &] Y $! 6P Q $ T 9B 'D _ _ 6 @ L" T 7 $ V P W _ &. ' +6 V & '4 H& 'W
0x02b338…02b4cc Dummy {f00=0x00ae, f01=0x0190, f02=» T Z L L( D V, W # * L( E V $ W D V L( , Wn 6 2 * W " P " # * ;b WF " ;d# _ [ v [ : )z F Z Z : :B , (Vj ; [ [ )z z ;AV$ Z H #
0x02b4cc…02b660 Dummy {f00=0x00ae, f01=0x0190, f02=»P [ 6 [ Z 7 ( Z 7 : ( :A ( @ L" P [ :;H 2 P ;h * : ) ; V Y : 2! : 6 2 * W& " # * ;b ; : ;f" #?_" P8" T * & : * & !`P :J +_ +
0x02b660…02b7f4 (1, 54) Dummy {f00=0x00af, f01=0x0190, f02=» Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b - P P PN P 0 - P: V W Z _ 4 V W Q P ) P 9_ &" ! 9 : & P Q - ,^ , < - # ; [ _n' d
0x02b7f4…02b988 Dummy {f00=0x00af, f01=0x0190, f02=»7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P & T 9d! T 7 V Y P _$ SZ Q V P V Q W Q 7 Y P._6 & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V &V : V S W
0x02b988…02bb1c Dummy {f00=0x00af, f01=0x0190, f02=» [ 1 ,d 1 ,d 1 6 Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P 1 6 V H )_ 1 / _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
0x02bb1c…02bcb0 Dummy {f00=0x00af, f01=0x0190, f02=» [ [ [ [ $ [ [ 1 ,d 1 ,d 1 6 z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z 1 + Q 1 / P _ T { [ 1 1 [ Q@ [ 1 6 { R [ _ 1 6 1 / Z ! Z $ Z %_N [
0x02bcb0…02be44 Dummy {f00=0x00af, f01=0x0190, f02=» Z H D & H D % [ ( !! gg++ L 5 ( ( +65 +$( )z5 4&8 4&4 5 4 5 5 4f3 4p3Z4P4 4 4 4F5 2 6 3b K K K K V K : )z 2z 2j 2 ( V 3
0x02be44…02bfd8 Dummy {f00=0x00af, f01=0x0190, f02=» [ Z P [ V 7_ Z 3 Z 7 Z Z P : V R (Q V : Z Z : 2z J P v I < : J Qf : P 4 ! TV_ K 4 WJ 4LW +_ 4f 4b K W. _& X " W
0x02bfd8…02c16c Dummy {f00=0x00af, f01=0x0190, f02=»)P9H # T &W &" :I : 5 : P & _ &X _ : : : : 6l 2 : { : 6 6d PX 9 _ 6 [ 6 Z : R" P $ 1T Y W 5 _$ : 6 $ R W R # P W )
0x02c16c…02c300 Dummy {f00=0x00af, f01=0x0190, f02=» , : )z )z jP kT T : & 9! " : $ : 6l ( $ : W " T & T + : * & !@P `1` P + Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $
0x02c300…02c494 (1, 55) Dummy {f00=0x00af, f01=0x0190, f02=»# =_ P :" P * U P 1`! T "# 9e! # K : : + )z [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I9 6 * B Z 9 ! ; *Xt 8 ! D9 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1
0x02c494…02c628 Dummy {f00=0x00af, f01=0x0190, f02=» _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W 8~ 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 )z )z V ' )z ( ' :XW :FW :LW :R )z )z F P =# & =` P P V Y Q W Q
0x02c628…02c7bc Dummy {f00=0x00af, f01=0x0190, f02=» ? ' )z )z )z F Q )z )z )z # # )z # )z : P , B , 9 Q _ B Q , ! Px !@@Pv !##Pt !$$Pr ! Pp ! Pn ! Pv ! P6 ! P0 !::P< 9 )R Qj 9 :h 9 W> )W:
0x02c7bc…02c950 Dummy {f00=0x00af, f01=0x0190, f02=» , C ( : Q p ! P0 ! P* P , , 9H < P < < W Q : q _ @ ,P @ Z : L _ H P ( - Z : P (9a - p Q ( - _ : P P P P $ ! P P Z + =z : 5 P
0x02c950…02cae4 Dummy {f00=0x00af, f01=0x0190, f02=» - P P Q $ = P R - _ B C : ! T Wz (U >p Wf ! T WZ ! T WP ! T WF ! T >pW6 ! X !<<T >pW !==T >pW !::T >p : - P _ :h : ( B P Q : ( P P ? p ^ (
0x02cae4…02cc78 Dummy {f00=0x00af, f01=0x0190, f02=»Q _ P P Q : ! P ! P ! P ! P " (U Wx Q U U QF , ! P0 ! P* ! P$ ! P ! P* !@@P* !##P* !$$P* _< U W _ -_ -_$ [ -_* ] -_0 : )z P P2 @$ ( @ ( : V B C
0x02cc78…02ce0c Dummy {f00=0x00af, f01=0x0190, f02=» ) 9h ) T C @ P Q _< : ( :D @ D AtG A G BLBSB V C L C C D At A4 Au Au AV % < X " o " ' A 4 w w AV
0x02ce0c…02cfa0 Dummy {f00=0x00af, f01=0x0190, f02=» AV X " B A4 Aw Aw AV Z " C I V r r f C
0x02cfa0…02d134 (1, 56) Dummy {f00=0x00af, f01=0x0190, f02=» C I R k D c u u D % < X " o " ' A 4 w w AV
0x02d134…02d2c8 Dummy {f00=0x00af, f01=0x0190, f02=» T U V W X Z [ ^ ******** * & [ **********************PLADSART $ & & y /ANTAL? TOG? R * & STATION? | * & KLASSE/K * & UPE, @NSKE UFORENELIG KUPE/RYG * &
0x02d2c8…02d45c Dummy {f00=0x00af, f01=0x0190, f02=» K RYGER? ( & i KUPE? * * & PLACERIN V & & G? FRI? * & TILSLUTN * & ING? SATELLIT *
0x02d45c…02d5f0 Dummy {f00=0x00af, f01=0x0190, f02=» Y LADSART? REST/STR ( & w [KNING? REST? . * & ACCEPTKO Z ( & DE? N@GLE? * & STANDARD ( & MASKE? TEKNIK
0x02d5f0…02d784 Dummy {f00=0x00af, f01=0x0190, f02=» j * & g AL? PLACERIN * & G/ANTAL? FORKERT 6 * & PLADSART? FORBINDE d * & LSESD@R? TURNUMME * & R? BNR-@NSK & & E?
0x02d784…02d918 Dummy {f00=0x00af, f01=0x0190, f02=»!!++ ; t ( $ u " 0)(!%'&B K 12* > u R 8 H IDENT D:CB20 TRA 4.2 83-12-23 F1 O1111 831223 NJ d D:CB20 D:CB20C * & 6 # N $ # h k
0x02d918…02daac Dummy {f00=0x00af, f01=0x0190, f02=» . $ D $ X 8 H IDENT D:TB10 TRA 4.2 83-12-23 F1 O1111 831223 NJ j D:TB10 D:TB10T * & B * &
0x02daac…02dc40 Dummy {f00=0x00af, f01=0x0190, f02=»:TB20 Z:TB20T & " & : & = J & [ Z & y j & z & & & @ 8 H IDENT D:TB2
0x02dc40…02ddd4 (1, 57) Opaque[0x194]
0x02ddd4…02df68 # DirEnt {nam=»GL6040«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x02ddd4…02df68 IdxSect {
0x02ddd4…02df68 f00 = 0x0002 // 0x2ddd4 @0x0
0x02ddd4…02df68 f01 = 0x000e // 0x2ddd6 @0x2
0x02ddd4…02df68 gno = [ // 0x2ddd8 @0x4
0x02ddd4…02df68 [0x00]: C0x0002.0x0.0
0x02ddd4…02df68 [0x01]: C0x0024.0x0.0
0x02ddd4…02df68 [0x02]: C0x0024.0x3.0
0x02ddd4…02df68 [0x03]: C0x0025.0x0.0
0x02ddd4…02df68 [0x04]: C0x0025.0x1.0
0x02ddd4…02df68 [0x05]: C0x0025.0x2.0
0x02ddd4…02df68 [0x06]: C0x0026.0x1.0
0x02ddd4…02df68 ]
0x02ddd4…02df68 }
0x02df68…02e0fc Dummy {f00=0x0002, f01=0x0190, f02=»& /D ,CR a a @ 0 , P , K0 6 L . K0 * * ` D0 6
0x02e0fc…02e290 Dummy {f00=0x0002, f01=0x0190, f02=»
0x02e290…02e424 Dummy {f00=0x0002, f01=0x0190, f02=» , . / 0 6 7 8 9 : ; < = > A B C D I J K P Q T U V W X Z [ ^ ******************************PLADSART/ANTAL? TOG? STATION? KLASSE/KUPE, @NSKE UFORENELIG KUPE/RYGER, @NSKE
0x02e424…02e5b8 Dummy {f00=0x0002, f01=0x0190, f02=» KUPE? PLACERING? FRI? TILSLUTNING? SATELLIT? KONTROLNUMMER? NAT? BILART/PLADSART? REST
0x02e5b8…02e74c Dummy {f00=0x0002, f01=0x0190, f02=» STANDARDMASKE? TEKNIK SKRIV MANUELT RYGER/ANTAL? KUPE/ANTAL? PLACERING/ANTAL? FORKERT PLADSART? FORBINDELSESD@R? TURNUMMER?
0x02e74c…02e8e0 Dummy {f00=0x0002, f01=0x0190, f02=»!!!!!!!!!!!!!!!!!!++ ;" 0)(!%'&B K 12* 6 # N # h k l m n $ B
0x02e8e0…02ea74 (1, 58) Dummy {f00=0x0024, f01=0x0190, f02=» @ 20 ( ( C * k v
0x02ea74…02ec08 Dummy {f00=0x0024, f01=0x0190, f02=»
[…0x1…]
0x02ed9c…02ef30 Dummy {f00=0x0024, f01=0x0190, f02=» : @ 0 , @ , F * 0& ` N
0x02ef30…02f0c4 Dummy {f00=0x0024, f01=0x0190, f02=»R _$ A!_) A I 0 *_ j@!! A0 @ A 0 A f!!! f"!0 f""! f"#! f"$- A!0 QW AF0 b3 k:0 kb0 C C"*0 0 2F F G NF _N0 0 W T B#0 B d 6M 0 ! 2T _( A!0 Q AFW A!0 Q AF0 T 0 0 `!_ 0 2F
0x02f0c4…02f258 Dummy {f00=0x0024, f01=0x0190, f02=» C C C! ? " A" Bh!! B!"AB[ U;jU hA#lhA"!U; U<jU hA#lhA"!U< W!0 hA$ 0 hA$"0 hA$!P 0 hA$"P A!_I0 hA$ X 0 hA$ " !4 " 4 M IP d M! `* M" `+ M$ M!4 !0 .@P0 0 A0 A*P 0 /0 .AP !4 0 ! !P30 2 IU jl !Z 0 lcT#W j[ !Z 0 [eT @U 2
0x02f258…02f3ec Dummy {f00=0x0024, f01=0x0190, f02=» A! P aX B 0 XB " 4 ! L L( L!0 L A 0 A0 L !4 h!! h!" h!# h!$ 0 `!kblch!! d [ 4 A! B 0 W AB0 P 0 B NB _ 0 4 $h!!%$ " A B$ fABhAB B! B B$ A! A "4 "h!!$.,f!!% W$ " A B$ hABfAB B! B B$ A! A "4 Ah!$$A!A"A(=@@@A@B@C
0x02f3ec…02f580 Dummy {f00=0x0024, f01=0x0190, f02=» T A!_ 0 C C$W/ T+H@ W$HA W IF HG W IB IC HD W IE 4 #0 h)$"T 0 h*$"P C! C$W jR "lh"" PR%PD30 h($"P C$ C$Wx0 h)$"P C% C$Wg0 h*$"P C& C$WV0 h)$"PFjQ !lh)")Q3:0 h($"P jQ !lh(")Q2 C C$W%0 h'$"P jQ !lh'")Q2 C C$W # 4 # !4 #jR "lh"
0x02f580…02f714 (1, 59) Dummy {f00=0x0024, f01=0x0190, f02=»C$ # !4 # A" Bh!! B!"AB%0 hA$!P 0 hA$"T 0 hA$ W A!_! # !4 # 4 6 ?6-$ jYK"H K"jYK"G K"jYK"F K"jYK"E K"jYK"D K"jYK"C K"jYK"B K"jYK"A K"4 K K 6 ?6-$ jH "YK K"jG "YK K"jF "YK K"jE "YK K"jD "YK K"jC "YK K"jB "YK K"jA "YK K" K K 4 ! X7 A#
0x02f714…02f8a8 Dummy {f00=0x0024, f01=0x0190, f02=» C# C$ M! G $_/ '4 4 # L00 L$F!T#F PAUj[!!<F e"jQ !<F F(;!F 7!F 3 !F !F W [: e!W [8 e# f!!! f"!0 f""! f"#! f"$- #4 B!"B! BA B!4 # B! CA C!*BC B" #4 B"4 l: AQ4 ( U:jU EW WU ChG" CE B*,CB jlC!: C!_ W G!0 hG$ 0 hG$"0 hG! X8 DhG
0x02f8a8…02fa3c Dummy {f00=0x0024, f01=0x0190, f02=»!P? 4 IA ID W W PW%P= #P@ W !4 4 PW%P= #PB W !4 4 4 4 PW%P= #PH W !4 PW!P= !P> !PE 4 PW!P= !P> !P? !PB 4 PW%P= #PJ 4 PW!P= %P? #PB W !4 PW!P= !P? !P@ !PB 4 4 PW%P> #PC W !4 4 PW%P> #PG W !4 PW%P> #PH
0x02fa3c…02fbd0 Dummy {f00=0x0024, f01=0x0190, f02=» !W 4 4 H!"HE jQ !WH Q9 PQ%P= #PA H!_ !W 4 " RW PR%P><#PI8 APjR "W" PR%P>(#PF$ BP%A %6B W !A W #A W " !4 " 4 4 PW!P= !P> !P? !P@ PC4 4 4 4 @Q Ah!! B"IS. CA C!0 hB$ T B! BC AS_& ChB$0 CIG C$W C& GB LhB!0 L
0x02fbd0…02fd64 Dummy {f00=0x0024, f01=0x0190, f02=» O HhG"jlHEW 0 hG$"jW hG#lH 3D * +,-./0123456789!:;<=>?@ABCDEFGP 0 hG$ W 0 hG$ 2F BG B! GA G! BG HS ? d/ARW @U4 $@H CM HR N P R !N W NC W H!W H"W H#W H$W H% $4 ( HG"H H!@T C DM BM V: GLjV DlhH"0 G AB*A 10 W ANP
0x02fd64…02fef8 Dummy {f00=0x0024, f01=0x0190, f02=»BA B!jVCAW CA C! GL GC_ jVCAW WV IW V:jV AW WV E' IW MA ( 4 N/6N *$ 0 Z'W(0 Z&W"0 Z%W 0 Z$W 0 Z'W 0 Z&W 0 Z%W 0 Z$4 Q: A G h AGQ ! A GA G!jQ !WG,Q; A!4 ! !f! ! 9 !4" ! : : 9 : !z!B: :^:t9 " o g q k X
0x02fef8…03008c Dummy {f00=0x0024, f01=0x0190, f02=» n 3 : E 1 @ _ h & G L a f k p 2 G c x , 1 I N S ! # ( * . / 0 9 @ J T U V ^ ,
0x03008c…030220 Dummy {f00=0x0024, f01=0x0190, f02=» P 6A " $ & ( * , . 0 2 4 6 8 : < > @ A B C D E F G J N S Y c0 m0 n0 o0 p0 q0 r0 s0 t0 u0 v0 x0 z0 |0 ~0 0 0
0x030220…0303b4 (1, 60) Dummy {f00=0x0025, f01=0x0190, f02=»P : # / W # / # "P # / # # ' / )| C "P )| C )| &P C )| & C : # "R V I ' # ( T _& @&`X, @&b _6 )| V G 9h ' ' W #@ "T # $L $ # P
0x0303b4…030548 Dummy {f00=0x0025, f01=0x0190, f02=» )| P _B # B )| 'W # ( Wj )| # $ W # ^ ( 1W C C C ( ' Pb # I "%@P "% P& B C C 4 "5 # B P B P B 5 P C P B % P C + %~
0x030548…0306dc Dummy {f00=0x0025, f01=0x0190, f02=» # # % Y ( C )| & R V C )| : B T T T V : 2 ' W 2 6 2 @ R" T # ' ?D * W"' #? * ;D:B " : _ )| C : : # $ ( P C W $0 P C
0x0306dc…030870 Dummy {f00=0x0025, f01=0x0190, f02=»Q W Q W %: %r 4 ! P T 0P(W$ 8 C S W C C 0 P C ;a 6 4 ZH T : 49d_Z B@5 @ 8 @N ' @ d P ( z= #0 T B 'W B B " P&P &`PP L
0x030870…030a04 Dummy {f00=0x0025, f01=0x0190, f02=»R T U :B@ ' d &` & & & ' ( ' ( ,f6 6 +r.b/ / ( ( ( ( (T' ( ( 2 6 5 5P5n6 5*( ( ( ( W V 7 P P W & V X _ ' 9c D&d )| ( Q &rW +r :aW _B( 2 P V W8
0x030a04…030b98 Dummy {f00=0x0025, f01=0x0190, f02=»^n D& 2 ! 9B V T W V P D $ V 6 V % V E @ R' T 2 % 7_ 2 # L )| 2" &] Y $! 6P Q $ T 9B 'F _ _ 6 @ R" T 7 $ V P W _ &0 ' +8 V & '6 H& 'W
0x030b98…030d2c Dummy {f00=0x0025, f01=0x0190, f02=» T Z L L( D V, W # * L( E V $ W D V L( , Wn 6 2 * W " P " # * ;b WF " ;d# _ [ v [ < )| H Z Z : :B , (Vj ; [ [ )| z ;AV$ Z H #
0x030d2c…030ec0 Dummy {f00=0x0025, f01=0x0190, f02=» P [ 6 [ Z 7 ( Z 7 : ( :A ( @ R" P [ :;H 2 P ;h * : ) ; V Y : 2! : 6 2 * W& " # * ;b ; : ;f" #?_" P8" T * & : * & !`P :J +_
0x030ec0…031054 (1, 61) Dummy {f00=0x0025, f01=0x0190, f02=»W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b - P P PN P 0 - P: V W Z _ 4 V W Q P ) P 9_ &" ! 9 : & P Q - ,^ , < - # ; [ _n' d
0x031054…0311e8 Dummy {f00=0x0025, f01=0x0190, f02=» 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P & T 9d! T 7 V Y P _$ SZ Q V P V Q W Q 7 Y P._6 & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V &V : V S W
0x0311e8…03137c Dummy {f00=0x0025, f01=0x0190, f02=» [ 1 ,f 1 ,f 1 6 Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P 1 6 V H )_ 1 / _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
0x03137c…031510 Dummy {f00=0x0025, f01=0x0190, f02=»& [ [ [ [ $ [ [ 1 ,f 1 ,f 1 6 z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z 1 + Q 1 / P _ T { [ 1 1 [ Q@ [ 1 6 { R [ _ 1 6 1 / Z ! Z $ Z %_N
0x031510…0316a4 Dummy {f00=0x0025, f01=0x0190, f02=»_ Z H D & H D % [ ( !! gg++ L 5 ( ( +85 +&( )|5 4(8 4(4 5 4 5 5 4h3 4r3 4R4 4 4 4H5 2 6 3d K K K K V K : )| 2| 2l 2 ( V
0x0316a4…031838 Dummy {f00=0x0025, f01=0x0190, f02=» [ Z P [ V 7_ Z 3 Z 7 Z Z P : V R (Q V : ` ` : 2| J P v I < : J Qf : P 4 ! TV_ K 4 WJ 4NW +_ 4h 4d K W. _& X "
0x031838…0319cc Dummy {f00=0x0025, f01=0x0190, f02=»! )P9H # T &W &" :I : 5 : P & _ &X _ : : : : 6n 2 : { : 6 6f PX 9 _ 6 [ 6 Z : R" P $ 1T Y W 5 _$ : 6 $ R W R # P W )
0x0319cc…031b60 Dummy {f00=0x0025, f01=0x0190, f02=» : , : )| )| jP kT T : & 9! " : $ : 6n ( $ : W " T & T + : * & !@P `1` P + Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X
0x031b60…031cf4 (1, 62) Dummy {f00=0x0025, f01=0x0190, f02=» <# =_ P :" P * U P 1`! T "# 9e! # K : : + )| [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I9 6 * B Z 9 ! ; *Xt 8 ! D9 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1
0x031cf4…031e88 Dummy {f00=0x0025, f01=0x0190, f02=»_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W 8 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 )| )| V ' )| ( ' :ZW :HW :NW :T )| )| F P =# & =` P P V Y Q W Q
0x031e88…03201c Dummy {f00=0x0025, f01=0x0190, f02=»W ? ' )| )| )| F Q )| )| )| # # )| # )| : P , B , 9 Q _ B Q , ! Px !@@Pv !##Pt !$$Pr ! Pp ! Pn ! Pv ! P6 ! P0 !::P< 9 )R Qj 9 :h 9 W> )
0x03201c…0321b0 Dummy {f00=0x0025, f01=0x0190, f02=» , C ( : Q p ! P0 ! P* P , , 9H < P < < W Q : q _ @ ,P @ Z : L _ H P ( - Z : P (9a - p Q ( - _ : P P P P $ ! P P Z + =| : 5
0x0321b0…032344 Dummy {f00=0x0025, f01=0x0190, f02=» - P P Q $ = P R - _ B C : ! T Wz (U >r Wf ! T WZ ! T WP ! T WF ! T >rW6 ! X !<<T >rW !==T >rW !::T >r : - P _ :h : ( B P Q : ( P P ? p ^
0x032344…0324d8 Dummy {f00=0x0025, f01=0x0190, f02=» Q _ P P Q : ! P ! P ! P ! P " (U Wx Q U U QF , ! P0 ! P* ! P$ ! P ! P* !@@P* !##P* !$$P* _< U W _ -_ -_$ [ -_* ] -_0 : )| P P2 @& ( @ ( : V B
0x0324d8…03266c Dummy {f00=0x0025, f01=0x0190, f02=» T ) 9h ) T C @ P Q _< : ( :D @ D AvG A G BNBSB V C L C C D Av A4 Au Au AV % < X " o " ' A 4 w w AV
0x03266c…032800 Dummy {f00=0x0025, f01=0x0190, f02=» AV X " B A4 Aw Aw AV Z " C I V r r f C
0x032800…032994 (1, 63) Dummy {f00=0x0026, f01=0x0190, f02=» C H R k D c u u D % < X " o " ' A 4 w w AV
0x032994…032b28 Dummy {f00=0x0026, f01=0x0190, f02=» = Q T U V W X Z [ ^ ******** * & [ **********************PLADSART * & & y /ANTAL? TOG? X * & STATION? * & KLASSE/K * & UPE, @NSKE UFORENELIG KUPE/RYG
0x032b28…032cbc Dummy {f00=0x0026, f01=0x018e, f02=» ( & K RYGER? ( & i KUPE? 0 * & PLACERIN & & G? FRI? * & TILSLUTN * & ING? SATELLIT
0x032cbc…032e50 Dummy {f00=0x0026, f01=0x0190, f02=» h * & Y LADSART? REST/STR ( & w [KNING? REST? 6 * & ACCEPTKO b ( & DE? N@GLE? * & STANDARD ( & MASKE?
0x032e50…032fe4 Dummy {f00=0x0026, f01=0x0190, f02=»KUPE/ANT r * & g AL? PLACERIN * & G/ANTAL? FORKERT > * & PLADSART? FORBINDE l * & LSESD@R? TURNUMME * & R? BNR-@NSK & & E?
0x032fe4…033178 Dummy {f00=0x0026, f01=0x0190, f02=»!!!!!!!!!!++ ; | ( $ u " 0)(!%'&B K 12* F u Z 8 H IDENT D:CB20 TRA 4.2 83-03-09 F1 O1111 830309 NJ l D:CB20 D:CB20C * & 6 # N $ #
0x033178…03330c Dummy {f00=0x0026, f01=0x0190, f02=» * & 6 $ L $ ` 8 H IDENT D:TB10 TRA 4.2 83-03-09 F1 O1111 830309 NJ r D:TB10 D:TB10T * & B * &
0x03330c…0334a0 Dummy {f00=0x0026, f01=0x0190, f02=» Z:TB20 Z:TB20T & * & B & = R & [ b & y r & & & & @ 8 H IDE
0x0334a0…033634 (1, 64) Opaque[0x194]
0x033634…0337c8 # DirEnt {nam=»DSBCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0078, f03=0x0000}
0x033634…0337c8 IdxSect {
0x033634…0337c8 f00 = 0x0003 // 0x33634 @0x0
0x033634…0337c8 f01 = 0x0002 // 0x33636 @0x2
0x033634…0337c8 gno = [ // 0x33638 @0x4
0x033634…0337c8 [0x00]: C0x0003.0x3.0
0x033634…0337c8 ]
0x033634…0337c8 }
0x0337c8…03395c Dummy {f00=0x0003, f01=0x00fc, f02=» T; P07; TID=K0; TCL=K0; * LEV=60; : 01; J TDC=T01; V PLC=01L; f P02; v SDC=S01; PSDC=S02; T; 01; TID=D0; TCL=D0; LEV=60; 00; P00; EQU CANKY KO
0x03395c…033af0 Dummy {f00=0x0003, f01=0x2008, f02=» P07; TID=K0; TCL=K0; * LEV=60; : 01; J TDC=T01; V PLC=01L; f P02; v SDC=S01; PSDC=S02; T; 01; TID=D0; TCL=D0; LEV=60; 00; P00; EQU CANKY KO
0x033af0…033c84 Dummy {f00=0x0003, f01=0x018e, f02=» 0 | " P* 6 1 0 1 " P* 7 1 1 0 8 " P* 8 1 1 1 ^ P IB TP1, C P HK30, C P HK23, C P HK24, C P HK23, C P HK25, C P HK23, C P HK
0x033c84…033e18 Dummy {f00=0x0003, f01=0x018e, f02=» P P PHK24 . P** NORMAL TICKET RCVD, NEW MASK WANTED ** P PERF ERASCR,W3 R P TBF TTEST,HK30 j P PERF ERASCR,W2 ALSO LIN 1-2 P B HK30 P P PHK25 $ P** FLASHING; FLASH UNTIL 'KI' ** P MOVE TBIN1,W1
0x033e18…033fac Dummy {f00=0x0003, f01=0x0190, f02=» x P B HK25 PHK25A P WAIT KEYB & PHK26 8 P IB TBIN6, C D ( P HK27,HK27,HK25,HK25,HK25,HK25, C Z ( P HK25,HK27,HK27,HK27,HK27,HK27, C ( P HK27,HK27,HK25,HK25,HK25,HK25, C ( P HK25,HK25,HK27,HK27,HK25,HK25, C
0x033fac…034140 Dummy {f00=0x0003, f01=0x0190, f02=»L MASK HAS BEEN RECEIVED ** P MOVE INBUF,SAVBUF $ P CLEAR TPOWFAIL > P CLEAR TNODEP V * P SET TALLFLD MAKE A 'KI' ON ALL FIELDS l PHK40 P PERF KBINP PROCESS INPUT 2 P TBT TPOWFAIL,EXCH10 UNPACK AFTER POWERFAILURE P PERF ERRT
0x034140…0342d4 (1, 65) Opaque[0x194]
0x0342d4…034468 # DirEnt {nam=»GL6141«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x05a8, f03=0x0000}
0x0342d4…034468 IdxSect {
0x0342d4…034468 f00 = 0x002d // 0x342d4 @0x0
0x0342d4…034468 f01 = 0x000e // 0x342d6 @0x2
0x0342d4…034468 gno = [ // 0x342d8 @0x4
0x0342d4…034468 [0x00]: C0x002d.0x1.0
0x0342d4…034468 [0x01]: C0x0036.0x0.0
0x0342d4…034468 [0x02]: C0x0036.0x1.0
0x0342d4…034468 [0x03]: C0x003a.0x3.0
0x0342d4…034468 [0x04]: C0x003b.0x0.0
0x0342d4…034468 [0x05]: C0x003b.0x2.0
0x0342d4…034468 [0x06]: C0x006c.0x1.0
0x0342d4…034468 ]
0x0342d4…034468 }
0x034468…0345fc Dummy {f00=0x002d, f01=0x0190, f02=»& /D ,CR a a @ 0 , P , K0 6 L . K0 * * ` D0 6
0x0345fc…034790 Dummy {f00=0x002d, f01=0x0190, f02=»
0x034790…034924 Dummy {f00=0x002d, f01=0x0190, f02=» , . / 0 6 7 8 9 : ; < = > A B C D I J K P Q T U V W X Z [ ^ ******************************PLADSART/ANTAL? TOG? STATION? KLASSE/KUPE, @NSKE UFORENELIG KUPE/RYGER, @NSKE
0x034924…034ab8 Dummy {f00=0x002d, f01=0x0190, f02=» KUPE? PLACERING? FRI? TILSLUTNING? SATELLIT? KONTROLNUMMER? NAT? BILART/PLADSART? REST
0x034ab8…034c4c Dummy {f00=0x002d, f01=0x0190, f02=» STANDARDMASKE? TEKNIK SKRIV MANUELT RYGER/ANTAL? KUPE/ANTAL? PLACERING/ANTAL? FORKERT PLADSART? FORBINDELSESD@R? TURNUMMER?
0x034c4c…034de0 Dummy {f00=0x002d, f01=0x0190, f02=»!!!!!!!!!!!!!!!!!!++ ;" 0)(!%'&B K 12* 6 # N # h k l m n $ B
0x034de0…034f74 (1, 66) Dummy {f00=0x0036, f01=0x0190, f02=» @ 20 ( ( C * k v
0x034f74…035108 Dummy {f00=0x0036, f01=0x0190, f02=»
[…0x1…]
0x03529c…035430 Dummy {f00=0x0036, f01=0x0190, f02=» : @ 0 , @ , F * 0& ` N
0x035430…0355c4 Dummy {f00=0x0036, f01=0x0190, f02=»R _$ A!_) A I 0 *_ j@!! A0 @ A 0 A f!!! f"!0 f""! f"#! f"$- A!0 QW AF0 b3 k:0 kb0 C C"*0 0 2F F G NF _N0 0 W T B#0 B d 6M 0 ! 2T _( A!0 Q AFW A!0 Q AF0 T 0 0 `!_ 0 2F
0x0355c4…035758 Dummy {f00=0x0036, f01=0x0190, f02=» C C C! ? " A" Bh!! B!"AB[ U;jU hA#lhA"!U; U<jU hA#lhA"!U< W!0 hA$ 0 hA$"0 hA$!P 0 hA$"P A!_I0 hA$ X 0 hA$ " !4 " 4 M IP d M! `* M" `+ M$ M!4 !0 .@P0 0 A0 A*P 0 /0 .AP !4 0 ! !P30 2 IU jl !Z 0 lcT#W j[ !Z 0 [eT @U 2
0x035758…0358ec Dummy {f00=0x0036, f01=0x0190, f02=» A! P aX B 0 XB " 4 ! L L( L!0 L A 0 A0 L !4 h!! h!" h!# h!$ 0 `!kblch!! d [ 4 A! B 0 W AB0 P 0 B NB _ 0 4 $h!!%$ " A B$ fABhAB B! B B$ A! A "4 "h!!$.,f!!% W$ " A B$ hABfAB B! B B$ A! A "4 Ah!$$A!A"A(=@@@A@B@C
0x0358ec…035a80 Dummy {f00=0x0036, f01=0x0190, f02=» T A!_ 0 C C$W/ T+H@ W$HA W IF HG W IB IC HD W IE 4 #0 h)$"T 0 h*$"P C! C$W jR "lh"" PR%PD30 h($"P C$ C$Wx0 h)$"P C% C$Wg0 h*$"P C& C$WV0 h)$"PFjQ !lh)")Q3:0 h($"P jQ !lh(")Q2 C C$W%0 h'$"P jQ !lh'")Q2 C C$W # 4 # !4 #jR "lh"
0x035a80…035c14 (1, 67) Dummy {f00=0x0036, f01=0x0190, f02=»C$ # !4 # A" Bh!! B!"AB%0 hA$!P 0 hA$"T 0 hA$ W A!_! # !4 # 4 6 ?6-$ jYK"H K"jYK"G K"jYK"F K"jYK"E K"jYK"D K"jYK"C K"jYK"B K"jYK"A K"4 K K 6 ?6-$ jH "YK K"jG "YK K"jF "YK K"jE "YK K"jD "YK K"jC "YK K"jB "YK K"jA "YK K" K K 4 ! X7 A#
0x035c14…035da8 Dummy {f00=0x0036, f01=0x0190, f02=» C# C$ M! G $_/ '4 4 # L00 L$F!T#F PAUj[!!<F e"jQ !<F F(;!F 7!F 3 !F !F W [: e!W [8 e# f!!! f"!0 f""! f"#! f"$- #4 B!"B! BA B!4 # B! CA C!*BC B" #4 B"4 l: AQ4 ( U:jU EW WU ChG" CE B*,CB jlC!: C!_ W G!0 hG$ 0 hG$"0 hG! X8 DhG
0x035da8…035f3c Dummy {f00=0x0036, f01=0x0190, f02=»!P? 4 IA ID W W PW%P= #P@ W !4 4 PW%P= #PB W !4 4 4 4 PW%P= #PH W !4 PW!P= !P> !PE 4 PW!P= !P> !P? !PB 4 PW%P= #PJ 4 PW!P= %P? #PB W !4 PW!P= !P? !P@ !PB 4 4 PW%P> #PC W !4 4 PW%P> #PG W !4 PW%P> #PH
0x035f3c…0360d0 Dummy {f00=0x0036, f01=0x0190, f02=» !W 4 4 H!"HE jQ !WH Q9 PQ%P= #PA H!_ !W 4 " RW PR%P><#PI8 APjR "W" PR%P>(#PF$ BP%A %6B W !A W #A W " !4 " 4 4 PW!P= !P> !P? !P@ PC4 4 4 4 @Q Ah!! B"IS. CA C!0 hB$ T B! BC AS_& ChB$0 CIG C$W C& GB LhB!0 L
0x0360d0…036264 Dummy {f00=0x0036, f01=0x0190, f02=» O HhG"jlHEW 0 hG$"jW hG#lH 3D * +,-./0123456789!:;<=>?@ABCDEFGP 0 hG$ W 0 hG$ 2F BG B! GA G! BG HS ? d/ARW @U4 $@H CM HR N P R !N W NC W H!W H"W H#W H$W H% $4 ( HG"H H!@T C DM BM V: GLjV DlhH"0 G AB*A 10 W ANP
0x036264…0363f8 Dummy {f00=0x0036, f01=0x0190, f02=»BA B!jVCAW CA C! GL GC_ jVCAW WV IW V:jV AW WV E' IW MA ( 4 N/6N *$ 0 Z'W(0 Z&W"0 Z%W 0 Z$W 0 Z'W 0 Z&W 0 Z%W 0 Z$4 Q: A G h AGQ ! A GA G!jQ !WG,Q; A!4 ! !f! ! 9 !4" ! : : 9 : !z!B: :^:t9 " o g q k X
0x0363f8…03658c Dummy {f00=0x0036, f01=0x0190, f02=» n 3 : E 1 @ _ h & G L a f k p 2 G c x , 1 I N S ! # ( * . / 0 9 @ J T U V ^ ,
0x03658c…036720 Dummy {f00=0x0036, f01=0x0190, f02=» P 6A " $ & ( * , . 0 2 4 6 8 : < > @ A B C D E F G J N S Y c0 m0 n0 o0 p0 q0 r0 s0 t0 u0 v0 x0 z0 |0 ~0 0 0
0x036720…0368b4 (1, 68) Dummy {f00=0x003a, f01=0x0190, f02=»P : # / W # / # "P # / # # ' / )| C "P )| C )| &P C )| & C : # "R V I ' # ( T _& @&`X, @&b _6 )| V G 9h ' ' W #@ "T # $L $ # P
0x0368b4…036a48 Dummy {f00=0x003a, f01=0x0190, f02=» )| P _B # B )| 'W # ( Wj )| # $ W # ^ ( 1W C C C ( ' Pb # I "%@P "% P& B C C 4 "5 # B P B P B 5 P C P B % P C + %~
0x036a48…036bdc Dummy {f00=0x003a, f01=0x0190, f02=» # # % Y ( C )| & R V C )| : B T T T V : 2 ' W 2 6 2 @ R" T # ' ?D * W"' #? * ;D:B " : _ )| C : : # $ ( P C W $0 P C
0x036bdc…036d70 Dummy {f00=0x003a, f01=0x0190, f02=»Q W Q W %: %r 4 ! P T 0P(W$ 8 C S W C C 0 P C ;a 6 4 ZH T : 49d_Z B@5 @ 8 @N ' @ d P ( z= #0 T B 'W B B " P&P &`PP L
0x036d70…036f04 Dummy {f00=0x003a, f01=0x0190, f02=»R T U :B@ ' d &` & & & ' ( ' ( ,f6 6 +r.b/ / ( ( ( ( (T' ( ( 2 6 5 5P5n6 5*( ( ( ( W V 7 P P W & V X _ ' 9c D&d )| ( Q &rW +r :aW _B( 2 P V W8
0x036f04…037098 Dummy {f00=0x003a, f01=0x0190, f02=»^n D& 2 ! 9B V T W V P D $ V 6 V % V E @ R' T 2 % 7_ 2 # L )| 2" &] Y $! 6P Q $ T 9B 'F _ _ 6 @ R" T 7 $ V P W _ &0 ' +8 V & '6 H& 'W
0x037098…03722c Dummy {f00=0x003a, f01=0x0190, f02=» T Z L L( D V, W # * L( E V $ W D V L( , Wn 6 2 * W " P " # * ;b WF " ;d# _ [ v [ < )| H Z Z : :B , (Vj ; [ [ )| z ;AV$ Z H #
0x03722c…0373c0 Dummy {f00=0x003a, f01=0x0190, f02=» P [ 6 [ Z 7 ( Z 7 : ( :A ( @ R" P [ :;H 2 P ;h * : ) ; V Y : 2! : 6 2 * W& " # * ;b ; : ;f" #?_" P8" T * & : * & !`P :J +_
0x0373c0…037554 (1, 69) Dummy {f00=0x003b, f01=0x0190, f02=»W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b - P P PN P 0 - P: V W Z _ 4 V W Q P ) P 9_ &" ! 9 : & P Q - ,^ , < - # ; [ _n' d
0x037554…0376e8 Dummy {f00=0x003b, f01=0x0190, f02=» 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P & T 9d! T 7 V Y P _$ SZ Q V P V Q W Q 7 Y P._6 & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V &V : V S W
0x0376e8…03787c Dummy {f00=0x003b, f01=0x0190, f02=» [ 1 ,f 1 ,f 1 6 Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P 1 6 V H )_ 1 / _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
0x03787c…037a10 Dummy {f00=0x003b, f01=0x0190, f02=»& [ [ [ [ $ [ [ 1 ,f 1 ,f 1 6 z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z 1 + Q 1 / P _ T { [ 1 1 [ Q@ [ 1 6 { R [ _ 1 6 1 / Z ! Z $ Z %_N
0x037a10…037ba4 Dummy {f00=0x003b, f01=0x0190, f02=»_ Z H D & H D % [ ( !! gg++ L 5 ( ( +85 +&( )|5 4(8 4(4 5 4 5 5 4h3 4r3 4R4 4 4 4H5 2 6 3d K K K K V K : )| 2| 2l 2 ( V
0x037ba4…037d38 Dummy {f00=0x003b, f01=0x0190, f02=» [ Z P [ V 7_ Z 3 Z 7 Z Z P : V R (Q V : ` ` : 2| J P v I < : J Qf : P 4 ! TV_ K 4 WJ 4NW +_ 4h 4d K W. _& X "
0x037d38…037ecc Dummy {f00=0x003b, f01=0x0190, f02=»! )P9H # T &W &" :I : 5 : P & _ &X _ : : : : 6n 2 : { : 6 6f PX 9 _ 6 [ 6 Z : R" P $ 1T Y W 5 _$ : 6 $ R W R # P W )
0x037ecc…038060 Dummy {f00=0x003b, f01=0x0190, f02=» : , : )| )| jP kT T : & 9! " : $ : 6n ( $ : W " T & T + : * & !@P `1` P + Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X
0x038060…0381f4 (1, 70) Dummy {f00=0x003b, f01=0x0190, f02=» <# =_ P :" P * U P 1`! T "# 9e! # K : : + )| [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I9 6 * B Z 9 ! ; *Xt 8 ! D9 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1
0x0381f4…038388 Dummy {f00=0x003b, f01=0x0190, f02=»_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W 8 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 )| )| V ' )| ( ' :ZW :HW :NW :T )| )| F P =# & =` P P V Y Q W Q
0x038388…03851c Dummy {f00=0x003b, f01=0x0190, f02=»W ? ' )| )| )| F Q )| )| )| # # )| # )| : P , B , 9 Q _ B Q , ! Px !@@Pv !##Pt !$$Pr ! Pp ! Pn ! Pv ! P6 ! P0 !::P< 9 )R Qj 9 :h 9 W> )
0x03851c…0386b0 Dummy {f00=0x003b, f01=0x0190, f02=» , C ( : Q p ! P0 ! P* P , , 9H < P < < W Q : q _ @ ,P @ Z : L _ H P ( - Z : P (9a - p Q ( - _ : P P P P $ ! P P Z + =| : 5
0x0386b0…038844 Dummy {f00=0x003b, f01=0x0190, f02=» - P P Q $ = P R - _ B C : ! T Wz (U >r Wf ! T WZ ! T WP ! T WF ! T >rW6 ! X !<<T >rW !==T >rW !::T >r : - P _ :h : ( B P Q : ( P P ? p ^
0x038844…0389d8 Dummy {f00=0x003b, f01=0x0190, f02=» Q _ P P Q : ! P ! P ! P ! P " (U Wx Q U U QF , ! P0 ! P* ! P$ ! P ! P* !@@P* !##P* !$$P* _< U W _ -_ -_$ [ -_* ] -_0 : )| P P2 @& ( @ ( : V B
0x0389d8…038b6c Dummy {f00=0x003b, f01=0x0190, f02=» T ) 9h ) T C @ P Q _< : ( :D @ D AvG A G BNBSB V C L C C D Av A4 Au Au AV % < X " o " ' A 4 w w AV
0x038b6c…038d00 Dummy {f00=0x003b, f01=0x0190, f02=» AV X " B A4 Aw Aw AV Z " C I V r r f C
0x038d00…038e94 (1, 71) Dummy {f00=0x006c, f01=0x0190, f02=» C H R k D c u u D % < X " o " ' A 4 w w AV
0x038e94…039028 Dummy {f00=0x006c, f01=0x0190, f02=» = Q T U V W X Z [ ^ ******** * & [ **********************PLADSART * & & y /ANTAL? TOG? X * & STATION? * & KLASSE/K * & UPE, @NSKE UFORENELIG KUPE/RYG
0x039028…0391bc Dummy {f00=0x006c, f01=0x018e, f02=» ( & K RYGER? ( & i KUPE? 0 * & PLACERIN & & G? FRI? * & TILSLUTN * & ING? SATELLIT
0x0391bc…039350 Dummy {f00=0x006c, f01=0x0190, f02=» h * & Y LADSART? REST/STR ( & w [KNING? REST? 6 * & ACCEPTKO b ( & DE? N@GLE? * & STANDARD ( & MASKE?
0x039350…0394e4 Dummy {f00=0x006c, f01=0x0190, f02=»KUPE/ANT r * & g AL? PLACERIN * & G/ANTAL? FORKERT > * & PLADSART? FORBINDE l * & LSESD@R? TURNUMME * & R? BNR-@NSK & & E?
0x0394e4…039678 Dummy {f00=0x006c, f01=0x0190, f02=»!!!!!!!!!!++ ; | ( $ u " 0)(!%'&B K 12* F u Z 8 H IDENT D:CB20 TRA 4.2 83-03-09 F1 O1111 830309 NJ l D:CB20 D:CB20C * & 6 # N $ #
0x039678…03980c Dummy {f00=0x006c, f01=0x0190, f02=» * & 6 $ L $ ` 8 H IDENT D:TB10 TRA 4.2 83-03-09 F1 O1111 830309 NJ r D:TB10 D:TB10T * & B * &
0x03980c…0399a0 Dummy {f00=0x006c, f01=0x0190, f02=» Z:TB20 Z:TB20T & * & B & = R & [ b & y r & & & & @ 8 H IDE
0x0399a0…039b34 (1, 72) Opaque[0x194]
0x039b34…039cc8 # DirEnt {nam=»NY6040«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0138, f03=0x0000}
0x039b34…039cc8 IdxSect {
0x039b34…039cc8 f00 = 0x0009 // 0x39b34 @0x0
0x039b34…039cc8 f01 = 0x000e // 0x39b36 @0x2
0x039b34…039cc8 gno = [ // 0x39b38 @0x4
0x039b34…039cc8 [0x00]: C0x0009.0x3.0
0x039b34…039cc8 [0x01]: C0x000a.0x0.0
0x039b34…039cc8 [0x02]: C0x000b.0x3.0
0x039b34…039cc8 [0x03]: C0x000d.0x1.0
0x039b34…039cc8 [0x04]: C0x000e.0x2.0
0x039b34…039cc8 [0x05]: C0x0012.0x3.0
0x039b34…039cc8 [0x06]: C0x0023.0x2.0
0x039b34…039cc8 ]
0x039b34…039cc8 }
0x039cc8…039e5c Dummy {f00=0x0009, f01=0x0190, f02=»& /D &CR a a @ 0 , P , K0 6 F ( z K0 * * | ` D0 6
0x039e5c…039ff0 Dummy {f00=0x0009, f01=0x0190, f02=»
0x039ff0…03a184 Dummy {f00=0x0009, f01=0x0190, f02=» , . / 0 6 7 8 9 : ; < = > A B C D I J K P Q T U V W X Z [ ^ ******************************PLADSART/ANTAL? TOG? STATION? KLASSE/KUPE, @NSKE UFORENELIG KUPE/RYGER, @NSKE UFOREN
0x03a184…03a318 Dummy {f00=0x0009, f01=0x0190, f02=» KUPE? PLACERING? FRI? TILSLUTNING? SATELLIT? KONTROLNUMMER? NAT? BILART/PLADSART? REST/STR[K
0x03a318…03a4ac Dummy {f00=0x0009, f01=0x0190, f02=»ANDARDMASKE? TEKNIK SKRIV MANUELT RYGER/ANTAL? KUPE/ANTAL? PLACERING/ANTAL? FORKERT PLADSART? FORBINDELSESD@R? TURNUMMER?
0x03a4ac…03a640 Dummy {f00=0x0009, f01=0x0190, f02=»!!!!!!!!!!!!++ ;" 0)(!%'&B K 12* 6 # N # h k l m n $ B
0x03a640…03a7d4 (1, 73) Dummy {f00=0x000a, f01=0x0190, f02=» @ 20 ( ( C * k v
0x03a7d4…03a968 Dummy {f00=0x000a, f01=0x0190, f02=»
[…0x1…]
0x03aafc…03ac90 Dummy {f00=0x000a, f01=0x0190, f02=» : @ 0 , @ , F * 0& Z N
0x03ac90…03ae24 Dummy {f00=0x000a, f01=0x0190, f02=»!_) A I 0 *_ j@!! A0 @ A 0 A f!!! f"!0 f""! f"#! f"$- A!0 QW AF0 b3 k:0 kb0 C C"*0 0 2F F G NF _N0 0 W T B#0 B d 6M 0 ! 2T _( A!0 Q AFW A!0 Q AF0 T 0 0 `!_ 0 2F F
0x03ae24…03afb8 Dummy {f00=0x000a, f01=0x0190, f02=» C! ? " A" Bh!! B!"AB[ U;jU hA#lhA"!U; U<jU hA#lhA"!U< W!0 hA$ 0 hA$"0 hA$!P 0 hA$"P A!_I0 hA$ X 0 hA$ " !4 " 4 M IP d M! `* M" `+ M$ M!4 !0 -@P0 0 A0 A*P 0 .0 -AP !4 0 ! !P30 2 IU jl !Z 0 lcT#W j[ !Z 0 [eT @U 2T W 0
0x03afb8…03b14c Dummy {f00=0x000a, f01=0x0190, f02=» aX B 0 XB " 4 ! L L( L!0 L A 0 A0 L !4 h!! h!" h!# h!$ 0 `!kblch!! d [ 4 A! B 0 W AB0 P 0 B NB _ 0 4 $h!!%$ " A B$ fABhAB B! B B$ A! A "4 "h!!$.,f!!% W$ " A B$ hABfAB B! B B$ A! A "4 Ah!$$A!A"A(=@@@A@B@C@D@E@F
0x03b14c…03b2e0 Dummy {f00=0x000a, f01=0x0190, f02=»_ 0 C C$W/ T+H@ W$HA W IF HG W IB IC HD W IE 4 #0 h)$"T 0 h*$"P C! C$W jR "lh"" PR%PD30 h($"P C$ C$Wx0 h)$"P C% C$Wg0 h*$"P C& C$WV0 h)$"PFjQ !lh)")Q3:0 h($"P jQ !lh(")Q2 C C$W%0 h'$"P jQ !lh'")Q2 C C$W # 4 # !4 #jR "lh"" PR%P
0x03b2e0…03b474 (1, 74) Dummy {f00=0x000b, f01=0x0190, f02=» !4 # A" Bh!! B!"AB%0 hA$!P 0 hA$"T 0 hA$ W A!_! # !4 # 4 6 ?6-$ jYK"H K"jYK"G K"jYK"F K"jYK"E K"jYK"D K"jYK"C K"jYK"B K"jYK"A K"4 K K 6 ?6-$ jH "YK K"jG "YK K"jF "YK K"jE "YK K"jD "YK K"jC "YK K"jB "YK K"jA "YK K" K K 4 ! X7 A#0 XA
0x03b474…03b608 Dummy {f00=0x000b, f01=0x0190, f02=» C$ M! G $_/ '4 4 # L00 L$F!T#F PAUj[!!<F e"jQ !<F F(;!F 7!F 3 !F !F W [: e!W [8 e# f!!! f"!0 f""! f"#! f"$- #4 B!"B! BA B!4 # B! CA C!*BC B" #4 B"4 l: AQ4 ( U:jU EW WU ChG" CE B*,CB jlC!: C!_ W G!0 hG$ 0 hG$"0 hG! X8 DhG# D"0
0x03b608…03b79c Dummy {f00=0x000b, f01=0x0190, f02=» PW%P= #P@ W !4 4 PW%P= #PB W !4 4 PW%P= #PD W !4 4 PW%P= #PH W !4 PW!P= !P> !PE 4 PW!P= !P> !P? !PB 4 PW%P= #PJ 4 PW!P= %P? #PB W !4 PW!P= !P? !P@ !PB 4 4 PW%P> #PC W !4 4 PW%P> #PG W !4 PW%P> #PH
0x03b79c…03b930 Dummy {f00=0x000b, f01=0x0190, f02=»4 4 H!"HE jQ !WH Q9 PQ%P= #PA H!_ !W 4 " RW PR%P><#PI8 APjR "W" PR%P>(#PF$ BP%A %6B W !A W #A W " !4 " 4 4 PW!P= !P> !P? !P@ PC4 4 4 PW%P= #PC 4 !4 @Q Ah!! B"IS. CA C!0 hB$ T B! BC AS_& ChB$0 CIG C$W C& GB Lh
0x03b930…03bac4 Dummy {f00=0x000b, f01=0x0190, f02=»W B" E O HhG"jlHEW 0 hG$"jW hG#lH 3D ()*+,-./0123456789:;<=>?@ABCDEFGP 0 hG$ W 0 hG$ 2F BG B! GA G! BG HS ? d/ARW @U4 $@H CM HR N P R !N W NC W H!W H"W H#W H$W H% $4 ( HG"H H!@T C DM BM V: GLjV DlhH"0 G AB*A 10
0x03bac4…03bc58 Dummy {f00=0x000b, f01=0x0190, f02=»L GC_ BA B!jVCAW CA C! GL GC_ jVCAW WV IW V:jV AW WV E' IW MA ( 4 N/6N *$ 0 Z'W(0 Z&W"0 Z%W 0 Z$W 0 Z'W 0 Z&W 0 Z%W 0 Z$4 Q: A G h AGQ ! A GA G!jQ !WG,Q; A!4 A ! !n! !(9 !<" ! : : 9 : ! !J: :f:|9 " o g q k
0x03bc58…03bdec Dummy {f00=0x000b, f01=0x0190, f02=» y n 3 : E 1 @ _ h & ; @ U Z o t ! 6 K ` u ) . F K P ! # ( * . / 0 9 @ J T U V ^
0x03bdec…03bf80 Dummy {f00=0x000b, f01=0x0190, f02=» + P 6A " $ & ( * , . 0 2 4 6 8 : < > @ A B C D E F G J N S Y c0 m0 n0 o0 p0 q0 r0 s0 t0 u0 v0 x0 z0 |0 ~0 0 0
0x03bf80…03c114 (1, 75) Dummy {f00=0x000d, f01=0x0190, f02=» V Y =P : # / W # / #( "X # / #( #( ' / ) C "X ) C ) &P C ) & C : # "R V I ' # ( T _& @&hX, @&j _6 ) V G 9h ' ' W #H " # $T $
0x03c114…03c2a8 Dummy {f00=0x000d, f01=0x0190, f02=» $T $ ) P _B # B ) 'W # ( Wj ) # $ W # ^ ( 1W C C C ( ' Pb # I "%@P "% P& B C C 4 "5 # B P B P B 5 P C P B % P C +
0x03c2a8…03c43c Dummy {f00=0x000d, f01=0x0190, f02=» I : # $ % Y ( C ) & R V C ) : B T T T V : 2 ' W 2 6 2 @ L" T # ' ?D * W"' #? * ;D:B " : _ ) C : : # $ ( P C W $0 P C
0x03c43c…03c5d0 Dummy {f00=0x000d, f01=0x0190, f02=» 0W Q W Q W %B %z 4 ! P T 0P(W$ 8 C S W C C 0 P C ;a 6 4 ZH T : 49d_Z B@5 @ 8 @N ' @ d P ( z= #0 T B 'W B B " P&X &hPP
0x03c5d0…03c764 Dummy {f00=0x000d, f01=0x0190, f02=» , @ - R T U :B@ ' d &h & & & ' ( '$( ,n6 6 +z.j/ / ( ( ("("( ' ("("2 6 5 5X5v6 52( ( ( ( W V 7 P P W & V X _ ' 9c D&l ) ( Q &zW +z :aW _B( 2 P
0x03c764…03c8f8 Dummy {f00=0x000d, f01=0x0190, f02=» _ 8^n D& 2 ! 9B V T W V P D $ V 6 V % V E @ L' T 2 % 7_ 2 # L ) 2" &] Y $! 6P Q $ T 9B 'N _ _ 6 @ L" T 7 $ V P W _ &8 ' +@ V & '>
0x03c8f8…03ca8c Dummy {f00=0x000d, f01=0x0190, f02=» 2 T Z L L( D V, W # * L( E V $ W D V L( , Wn 6 2 * W " P " # * ;b WF " ;d# _ [ v [ D ) P Z Z : :B , (Vj ; [ [ ) z ;AV$ Z H
0x03ca8c…03cc20 Dummy {f00=0x000d, f01=0x0190, f02=» & @ J! P [ 6 [ Z 7 ( Z 7 : ( :A ( @ L" P [ :;H 2 P ;h * : ) ; V Y : 2! : 6 2 * W& " # * ;b ; : ;f" #?_" P8" T * & : * & !`P
0x03cc20…03cdb4 (1, 76) Dummy {f00=0x000e, f01=0x0190, f02=» ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b - P P PN P 0 - P: V W Z _ 4 V W Q P ) P 9_ &" ! 9 : & P Q - ,^ , < - # ; [ _n
0x03cdb4…03cf48 Dummy {f00=0x000e, f01=0x0190, f02=» Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P & T 9d! T 7 V Y P _$ SZ Q V P V Q W Q 7 Y P._6 & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V &V : V
0x03cf48…03d0dc Dummy {f00=0x000e, f01=0x0190, f02=» >h [ [ 1 ,n 1 ,n 1 6 Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P 1 6 V H )_ 1 / _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
0x03d0dc…03d270 Dummy {f00=0x000e, f01=0x0190, f02=» V & [ [ [ [ $ [ [ 1 ,n 1 ,n 1 6 z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z 1 + Q 1 / P _ T { [ 1 1 [ Q@ [ 1 6 { R [ _ 1 6 1 / Z ! Z $ Z
0x03d270…03d404 Dummy {f00=0x000e, f01=0x0190, f02=» ,9 -9d_ Z H D & H D % [ ( !! gg++ L 5$( ( +@5&+.( ) 5"408 404 5 4 5 5 4p3 4z3d4Z4 4 4 4P5 2 6 3l K K K K V K : ) 2 2t 2
0x03d404…03d598 Dummy {f00=0x000e, f01=0x0190, f02=» 3 [ Z P [ V 7_ Z 4 Z 7 Z Z P : V R (Q V : Z Z : 2 J P v I < : J Qf : P 4 ! TV_ K 4 WJ 4VW +_ 4p 4l K W. _&
0x03d598…03d72c Dummy {f00=0x000e, f01=0x0190, f02=» : ! )P9H # T &W &" :I : 5& : P & _ &X _ : : : : 6v 2 : { : 6 6n PX 9 _ 6 [ 6 Z : R" P $ 1T Y W 5 _$ : 6 $ R W R #
0x03d72c…03d8c0 Dummy {f00=0x000e, f01=0x0190, f02=»R Y, : , : ) ) jP kT T : & 9! " : $ : 6v ( $ : W " T & T + : * & !@P `1` P + Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [
0x03d8c0…03da54 (1, 77) Dummy {f00=0x0012, f01=0x0190, f02=» R Q <# =_ P :" P * U P 1`! T "# 9e! # K : : + ) [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I9 6 * B Z 9 ! ; *Xt 8 ! D9 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P
0x03da54…03dbe8 Dummy {f00=0x0012, f01=0x0190, f02=» ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W 8 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 ) ) V ' ) ( ' :bW :PW :VW : ) ) F P =# & =` P P V Y
0x03dbe8…03dd7c Dummy {f00=0x0012, f01=0x0190, f02=» > > W ? ' ) ) ) F Q ) ) ) # # ) # ) : P , B , 9 Q _ B Q , ! Px !@@Pv !##Pt !$$Pr ! Pp ! Pn ! Pv ! P6 ! P0 !::P< 9 )R Qj 9 :h 9
0x03dd7c…03df10 Dummy {f00=0x0012, f01=0x0190, f02=» B % , C ( : Q p ! P0 ! P* P , , 9H < P < < W Q : q _ @ ,P A Z : L _ H P ( - Z : P (9a - p Q ( - _ : P P P P $ ! P P Z + = : 5
0x03df10…03e0a4 Dummy {f00=0x0012, f01=0x0190, f02=» B - P P Q $ = P R - _ B C : ! T Wz (U >z Wf ! T WZ ! T WP ! T WF ! T >zW6 ! X !<<T >zW !==T >zW !::T >z : - P _ :h : ( B P Q : ( P P ? p
0x03e0a4…03e238 Dummy {f00=0x0012, f01=0x0190, f02=» ,! ?B Q _ P P Q : ! P ! P ! P ! P " (U Wx Q U U QF , ! P0 ! P* ! P$ ! P ! P* !@@P* !##P* !$$P* _< U W _ -_ -_$ [ -_* ] -_0 : ) P P2 @. ( @ ( :
0x03e238…03e3cc Dummy {f00=0x0012, f01=0x0190, f02=» ) T ) 9h ) T C @ P Q _< : ( :D A D A~G A G BVBSB V C L C C D A~ A4 Au Au AV % < X " o " ' A 4 w w
0x03e3cc…03e560 Dummy {f00=0x0012, f01=0x0190, f02=» Au AV X " B A4 Aw Aw AV Z " C I V r r f
0x03e560…03e6f4 (1, 78) Dummy {f00=0x0023, f01=0x0190, f02=» C H R k D c u u D % < X " o " ' A 4 w w
0x03e6f4…03e888 Dummy {f00=0x0023, f01=0x0190, f02=»****** p * & [ **********************PLADSART & & y /ANTAL? TOG? < * & STATION? f * & KLASSE/K * & UPE, @NSKE UFORENELIG KUPE/RYG * & ER, @NSKE UFOREN
0x03e888…03ea1c Dummy {f00=0x0023, f01=0x0190, f02=» RYGER? x ( & i KUPE? * & PLACERIN @ & & G? FRI? n * & TILSLUTN * & ING? SATELLIT * & ?
0x03ea1c…03ebb0 Dummy {f00=0x0023, f01=0x0190, f02=» REST/STR z ( & w [KNING? REST? * & ACCEPTKO D ( & DE? N@GLE? r * & STANDARD ( & MASKE? TEKNIK * &
0x03ebb0…03ed44 Dummy {f00=0x0023, f01=0x0190, f02=» PLACERIN * & G/ANTAL? FORKERT * & PLADSART? FORBINDE N * & LSESD@R? TURNUMME | * & R? BNR-@NSK & & E? BNR? * &
0x03ed44…03eed8 Dummy {f00=0x0023, f01=0x0190, f02=» u " 0)(!%'&B K 12* ( u < 6 H IDENT D:CB20 TRA 4.2 83-03-17 F1 O1111 830317 N D:CB20 D:CB20C * & 6 # N $ # h k l m n
0x03eed8…03f06c Dummy {f00=0x0023, f01=0x0190, f02=» v $ * $ > 6 H IDENT D:TB10 TRA 4.2 83-03-17 F1 O1111 830317 P D:TB10 D:TB10T * & B * &
0x03f06c…03f200 Dummy {f00=0x0023, f01=0x0190, f02=» & & & = , & [ < & y L & & l & | & @ 6 H IDENT D:TB20 TRA 4.2 83-03-17 F1 O1111
0x03f200…03f394 (1, 79) Opaque[0x194]
0x03f394…03f528 # DirEnt {nam=»NY6141«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0490, f03=0x0000}
0x03f394…03f528 IdxSect {
0x03f394…03f528 f00 = 0x0024 // 0x3f394 @0x0
0x03f394…03f528 f01 = 0x000e // 0x3f396 @0x2
0x03f394…03f528 gno = [ // 0x3f398 @0x4
0x03f394…03f528 [0x00]: C0x0024.0x2.0
0x03f394…03f528 [0x01]: C0x0027.0x1.0
0x03f394…03f528 [0x02]: C0x0036.0x2.0
0x03f394…03f528 [0x03]: C0x003a.0x0.0
0x03f394…03f528 [0x04]: C0x003a.0x1.0
0x03f394…03f528 [0x05]: C0x003b.0x1.0
0x03f394…03f528 [0x06]: C0x0045.0x0.0
0x03f394…03f528 ]
0x03f394…03f528 }
0x03f528…03f6bc Dummy {f00=0x0024, f01=0x0190, f02=»& /D &CR a a @ 0 , P , K0 6 F ( z K0 * * | ` D0 6
0x03f6bc…03f850 Dummy {f00=0x0024, f01=0x0190, f02=»
0x03f850…03f9e4 Dummy {f00=0x0024, f01=0x0190, f02=» , . / 0 6 7 8 9 : ; < = > A B C D I J K P Q T U V W X Z [ ^ ******************************PLADSART/ANTAL? TOG? STATION? KLASSE/KUPE, @NSKE UFORENELIG KUPE/RYGER, @NSKE UFOREN
0x03f9e4…03fb78 Dummy {f00=0x0024, f01=0x0190, f02=» KUPE? PLACERING? FRI? TILSLUTNING? SATELLIT? KONTROLNUMMER? NAT? BILART/PLADSART? REST/STR[K
0x03fb78…03fd0c Dummy {f00=0x0024, f01=0x0190, f02=»ANDARDMASKE? TEKNIK SKRIV MANUELT RYGER/ANTAL? KUPE/ANTAL? PLACERING/ANTAL? FORKERT PLADSART? FORBINDELSESD@R? TURNUMMER?
0x03fd0c…03fea0 Dummy {f00=0x0024, f01=0x0190, f02=»!!!!!!!!!!!!++ ;" 0)(!%'&B K 12* 6 # N # h k l m n $ B
0x03fea0…040034 (1, 80) Dummy {f00=0x0027, f01=0x0190, f02=» @ 20 ( ( C * k v
0x040034…0401c8 Dummy {f00=0x0027, f01=0x0190, f02=»
[…0x1…]
0x04035c…0404f0 Dummy {f00=0x0027, f01=0x0190, f02=» : @ 0 , @ , F * 0& Z N
0x0404f0…040684 Dummy {f00=0x0027, f01=0x0190, f02=»!_) A I 0 *_ j@!! A0 @ A 0 A f!!! f"!0 f""! f"#! f"$- A!0 QW AF0 b3 k:0 kb0 C C"*0 0 2F F G NF _N0 0 W T B#0 B d 6M 0 ! 2T _( A!0 Q AFW A!0 Q AF0 T 0 0 `!_ 0 2F F
0x040684…040818 Dummy {f00=0x0027, f01=0x0190, f02=» C! ? " A" Bh!! B!"AB[ U;jU hA#lhA"!U; U<jU hA#lhA"!U< W!0 hA$ 0 hA$"0 hA$!P 0 hA$"P A!_I0 hA$ X 0 hA$ " !4 " 4 M IP d M! `* M" `+ M$ M!4 !0 -@P0 0 A0 A*P 0 .0 -AP !4 0 ! !P30 2 IU jl !Z 0 lcT#W j[ !Z 0 [eT @U 2T W 0
0x040818…0409ac Dummy {f00=0x0027, f01=0x0190, f02=» aX B 0 XB " 4 ! L L( L!0 L A 0 A0 L !4 h!! h!" h!# h!$ 0 `!kblch!! d [ 4 A! B 0 W AB0 P 0 B NB _ 0 4 $h!!%$ " A B$ fABhAB B! B B$ A! A "4 "h!!$.,f!!% W$ " A B$ hABfAB B! B B$ A! A "4 Ah!$$A!A"A(=@@@A@B@C@D@E@F
0x0409ac…040b40 Dummy {f00=0x0027, f01=0x0190, f02=»_ 0 C C$W/ T+H@ W$HA W IF HG W IB IC HD W IE 4 #0 h)$"T 0 h*$"P C! C$W jR "lh"" PR%PD30 h($"P C$ C$Wx0 h)$"P C% C$Wg0 h*$"P C& C$WV0 h)$"PFjQ !lh)")Q3:0 h($"P jQ !lh(")Q2 C C$W%0 h'$"P jQ !lh'")Q2 C C$W # 4 # !4 #jR "lh"" PR%P
0x040b40…040cd4 (1, 81) Dummy {f00=0x0036, f01=0x0190, f02=» !4 # A" Bh!! B!"AB%0 hA$!P 0 hA$"T 0 hA$ W A!_! # !4 # 4 6 ?6-$ jYK"H K"jYK"G K"jYK"F K"jYK"E K"jYK"D K"jYK"C K"jYK"B K"jYK"A K"4 K K 6 ?6-$ jH "YK K"jG "YK K"jF "YK K"jE "YK K"jD "YK K"jC "YK K"jB "YK K"jA "YK K" K K 4 ! X7 A#0 XA
0x040cd4…040e68 Dummy {f00=0x0036, f01=0x0190, f02=» C$ M! G $_/ '4 4 # L00 L$F!T#F PAUj[!!<F e"jQ !<F F(;!F 7!F 3 !F !F W [: e!W [8 e# f!!! f"!0 f""! f"#! f"$- #4 B!"B! BA B!4 # B! CA C!*BC B" #4 B"4 l: AQ4 ( U:jU EW WU ChG" CE B*,CB jlC!: C!_ W G!0 hG$ 0 hG$"0 hG! X8 DhG# D"0
0x040e68…040ffc Dummy {f00=0x0036, f01=0x0190, f02=» PW%P= #P@ W !4 4 PW%P= #PB W !4 4 PW%P= #PD W !4 4 PW%P= #PH W !4 PW!P= !P> !PE 4 PW!P= !P> !P? !PB 4 PW%P= #PJ 4 PW!P= %P? #PB W !4 PW!P= !P? !P@ !PB 4 4 PW%P> #PC W !4 4 PW%P> #PG W !4 PW%P> #PH
0x040ffc…041190 Dummy {f00=0x0036, f01=0x0190, f02=»4 4 H!"HE jQ !WH Q9 PQ%P= #PA H!_ !W 4 " RW PR%P><#PI8 APjR "W" PR%P>(#PF$ BP%A %6B W !A W #A W " !4 " 4 4 PW!P= !P> !P? !P@ PC4 4 4 PW%P= #PC 4 !4 @Q Ah!! B"IS. CA C!0 hB$ T B! BC AS_& ChB$0 CIG C$W C& GB Lh
0x041190…041324 Dummy {f00=0x0036, f01=0x0190, f02=»W B" E O HhG"jlHEW 0 hG$"jW hG#lH 3D ()*+,-./0123456789:;<=>?@ABCDEFGP 0 hG$ W 0 hG$ 2F BG B! GA G! BG HS ? d/ARW @U4 $@H CM HR N P R !N W NC W H!W H"W H#W H$W H% $4 ( HG"H H!@T C DM BM V: GLjV DlhH"0 G AB*A 10
0x041324…0414b8 Dummy {f00=0x0036, f01=0x0190, f02=»L GC_ BA B!jVCAW CA C! GL GC_ jVCAW WV IW V:jV AW WV E' IW MA ( 4 N/6N *$ 0 Z'W(0 Z&W"0 Z%W 0 Z$W 0 Z'W 0 Z&W 0 Z%W 0 Z$4 Q: A G h AGQ ! A GA G!jQ !WG,Q; A!4 A ! !n! !(9 !<" ! : : 9 : ! !J: :f:|9 " o g q k
0x0414b8…04164c Dummy {f00=0x0036, f01=0x0190, f02=» y n 3 : E 1 @ _ h & ; @ U Z o t ! 6 K ` u ) . F K P ! # ( * . / 0 9 @ J T U V ^
0x04164c…0417e0 Dummy {f00=0x0036, f01=0x0190, f02=» + P 6A " $ & ( * , . 0 2 4 6 8 : < > @ A B C D E F G J N S Y c0 m0 n0 o0 p0 q0 r0 s0 t0 u0 v0 x0 z0 |0 ~0 0 0
0x0417e0…041974 (1, 82) Dummy {f00=0x003a, f01=0x0190, f02=» V Y =P : # / W # / #( "X # / #( #( ' / ) C "X ) C ) &P C ) & C : # "R V I ' # ( T _& @&hX, @&j _6 ) V G 9h ' ' W #H " # $T $
0x041974…041b08 Dummy {f00=0x003a, f01=0x0190, f02=» $T $ ) P _B # B ) 'W # ( Wj ) # $ W # ^ ( 1W C C C ( ' Pb # I "%@P "% P& B C C 4 "5 # B P B P B 5 P C P B % P C +
0x041b08…041c9c Dummy {f00=0x003a, f01=0x0190, f02=» I : # $ % Y ( C ) & R V C ) : B T T T V : 2 ' W 2 6 2 @ L" T # ' ?D * W"' #? * ;D:B " : _ ) C : : # $ ( P C W $0 P C
0x041c9c…041e30 Dummy {f00=0x003a, f01=0x0190, f02=» 0W Q W Q W %B %z 4 ! P T 0P(W$ 8 C S W C C 0 P C ;a 6 4 ZH T : 49d_Z B@5 @ 8 @N ' @ d P ( z= #0 T B 'W B B " P&X &hPP
0x041e30…041fc4 Dummy {f00=0x003a, f01=0x0190, f02=» , @ - R T U :B@ ' d &h & & & ' ( '$( ,n6 6 +z.j/ / ( ( ("("( ' ("("2 6 5 5X5v6 52( ( ( ( W V 7 P P W & V X _ ' 9c D&l ) ( Q &zW +z :aW _B( 2 P
0x041fc4…042158 Dummy {f00=0x003a, f01=0x0190, f02=» _ 8^n D& 2 ! 9B V T W V P D $ V 6 V % V E @ L' T 2 % 7_ 2 # L ) 2" &] Y $! 6P Q $ T 9B 'N _ _ 6 @ L" T 7 $ V P W _ &8 ' +@ V & '>
0x042158…0422ec Dummy {f00=0x003a, f01=0x0190, f02=» 2 T Z L L( D V, W # * L( E V $ W D V L( , Wn 6 2 * W " P " # * ;b WF " ;d# _ [ v [ D ) P Z Z : :B , (Vj ; [ [ ) z ;AV$ Z H
0x0422ec…042480 Dummy {f00=0x003a, f01=0x0190, f02=» & @ J! P [ 6 [ Z 7 ( Z 7 : ( :A ( @ L" P [ :;H 2 P ;h * : ) ; V Y : 2! : 6 2 * W& " # * ;b ; : ;f" #?_" P8" T * & : * & !`P
0x042480…042614 (1, 83) Dummy {f00=0x003a, f01=0x0190, f02=» ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b - P P PN P 0 - P: V W Z _ 4 V W Q P ) P 9_ &" ! 9 : & P Q - ,^ , < - # ; [ _n
0x042614…0427a8 Dummy {f00=0x003a, f01=0x0190, f02=» Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P & T 9d! T 7 V Y P _$ SZ Q V P V Q W Q 7 Y P._6 & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V &V : V
0x0427a8…04293c Dummy {f00=0x003a, f01=0x0190, f02=» >h [ [ 1 ,n 1 ,n 1 6 Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P 1 6 V H )_ 1 / _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
0x04293c…042ad0 Dummy {f00=0x003a, f01=0x0190, f02=» V & [ [ [ [ $ [ [ 1 ,n 1 ,n 1 6 z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z 1 + Q 1 / P _ T { [ 1 1 [ Q@ [ 1 6 { R [ _ 1 6 1 / Z ! Z $ Z
0x042ad0…042c64 Dummy {f00=0x003a, f01=0x0190, f02=» ,9 -9d_ Z H D & H D % [ ( !! gg++ L 5$( ( +@5&+.( ) 5"408 404 5 4 5 5 4p3 4z3d4Z4 4 4 4P5 2 6 3l K K K K V K : ) 2 2t 2
0x042c64…042df8 Dummy {f00=0x003a, f01=0x0190, f02=» 3 [ Z P [ V 7_ Z 4 Z 7 Z Z P : V R (Q V : Z Z : 2 J P v I < : J Qf : P 4 ! TV_ K 4 WJ 4VW +_ 4p 4l K W. _&
0x042df8…042f8c Dummy {f00=0x003a, f01=0x0190, f02=» : ! )P9H # T &W &" :I : 5& : P & _ &X _ : : : : 6v 2 : { : 6 6n PX 9 _ 6 [ 6 Z : R" P $ 1T Y W 5 _$ : 6 $ R W R #
0x042f8c…043120 Dummy {f00=0x003a, f01=0x0190, f02=»R Y, : , : ) ) jP kT T : & 9! " : $ : 6v ( $ : W " T & T + : * & !@P `1` P + Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [
0x043120…0432b4 (1, 84) Dummy {f00=0x003b, f01=0x0190, f02=» R Q <# =_ P :" P * U P 1`! T "# 9e! # K : : + ) [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I9 6 * B Z 9 ! ; *Xt 8 ! D9 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P
0x0432b4…043448 Dummy {f00=0x003b, f01=0x0190, f02=» ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W 8 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 ) ) V ' ) ( ' :bW :PW :VW : ) ) F P =# & =` P P V Y
0x043448…0435dc Dummy {f00=0x003b, f01=0x0190, f02=» > > W ? ' ) ) ) F Q ) ) ) # # ) # ) : P , B , 9 Q _ B Q , ! Px !@@Pv !##Pt !$$Pr ! Pp ! Pn ! Pv ! P6 ! P0 !::P< 9 )R Qj 9 :h 9
0x0435dc…043770 Dummy {f00=0x003b, f01=0x0190, f02=» B % , C ( : Q p ! P0 ! P* P , , 9H < P < < W Q : q _ @ ,P A Z : L _ H P ( - Z : P (9a - p Q ( - _ : P P P P $ ! P P Z + = : 5
0x043770…043904 Dummy {f00=0x003b, f01=0x0190, f02=» B - P P Q $ = P R - _ B C : ! T Wz (U >z Wf ! T WZ ! T WP ! T WF ! T >zW6 ! X !<<T >zW !==T >zW !::T >z : - P _ :h : ( B P Q : ( P P ? p
0x043904…043a98 Dummy {f00=0x003b, f01=0x0190, f02=» ,! ?B Q _ P P Q : ! P ! P ! P ! P " (U Wx Q U U QF , ! P0 ! P* ! P$ ! P ! P* !@@P* !##P* !$$P* _< U W _ -_ -_$ [ -_* ] -_0 : ) P P2 @. ( @ ( :
0x043a98…043c2c Dummy {f00=0x003b, f01=0x0190, f02=» ) T ) 9h ) T C @ P Q _< : ( :D A D A~G A G BVBSB V C L C C D A~ A4 Au Au AV % < X " o " ' A 4 w w
0x043c2c…043dc0 Dummy {f00=0x003b, f01=0x0190, f02=» Au AV X " B A4 Aw Aw AV Z " C I V r r f
0x043dc0…043f54 (1, 85) Dummy {f00=0x0045, f01=0x0190, f02=» C H R k D c u u D % < X " o " ' A 4 w w
0x043f54…0440e8 Dummy {f00=0x0045, f01=0x0190, f02=»****** p * & [ **********************PLADSART & & y /ANTAL? TOG? < * & STATION? f * & KLASSE/K * & UPE, @NSKE UFORENELIG KUPE/RYG * & ER, @NSKE UFOREN
0x0440e8…04427c Dummy {f00=0x0045, f01=0x0190, f02=» RYGER? x ( & i KUPE? * & PLACERIN @ & & G? FRI? n * & TILSLUTN * & ING? SATELLIT * & ?
0x04427c…044410 Dummy {f00=0x0045, f01=0x0190, f02=» REST/STR z ( & w [KNING? REST? * & ACCEPTKO D ( & DE? N@GLE? r * & STANDARD ( & MASKE? TEKNIK * &
0x044410…0445a4 Dummy {f00=0x0045, f01=0x0190, f02=» PLACERIN * & G/ANTAL? FORKERT * & PLADSART? FORBINDE N * & LSESD@R? TURNUMME | * & R? BNR-@NSK & & E? BNR? * &
0x0445a4…044738 Dummy {f00=0x0045, f01=0x0190, f02=» u " 0)(!%'&B K 12* ( u < 6 H IDENT D:CB20 TRA 4.2 83-03-17 F1 O1111 830317 N D:CB20 D:CB20C * & 6 # N $ # h k l m n
0x044738…0448cc Dummy {f00=0x0045, f01=0x0190, f02=» v $ * $ > 6 H IDENT D:TB10 TRA 4.2 83-03-17 F1 O1111 830317 P D:TB10 D:TB10T * & B * &
0x0448cc…044a60 Dummy {f00=0x0045, f01=0x0190, f02=» & & & = , & [ < & y L & & l & | & @ 6 H IDENT D:TB20 TRA 4.2 83-03-17 F1 O1111
0x044a60…044bf4 (1, 86) Opaque[0x194]
0x044bf4…044d88 # DirEnt {nam=»BUGCAS«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x044bf4…044d88 IdxSect {
0x044bf4…044d88 f00 = 0x0004 // 0x44bf4 @0x0
0x044bf4…044d88 f01 = 0x0002 // 0x44bf6 @0x2
0x044bf4…044d88 gno = [ // 0x44bf8 @0x4
0x044bf4…044d88 [0x00]: C0x0004.0x3.0
0x044bf4…044d88 ]
0x044bf4…044d88 }
0x044d88…044f1c Dummy {f00=0x0004, f01=0x0190, f02=» PMES ASG /E0,DK,DSBCAS , PMES *********************************** & , PMES * GENERATION OF PROGRAMCASSETTES * V 0 PMES * (ASM DEBUG VERSION) * , PMES *********************************** PASG 2,NO PMES * TCU 1, S
0x044f1c…0450b0 Dummy {f00=0x0004, f01=0x00a2, f02=» PMES * TCU 2, SELPOL=6141 * , P$PCAS M=B:DSB,MU=M:DSB,A=A:6141,C=PROCON & PPSE V , P$PCAS M=B:DSB,MU=M:DSB,A=A:6141,C=PROCON b PASG /E0,TY10 N) * , PMES *********************************** PASG 2,NO PMES * TCU 1, S
0x0450b0…045244 Dummy {f00=0x0004, f01=0x2008, f02=» * TCU 2, SELPOL=6141 * , P$PCAS M=B:DSB,MU=M:DSB,A=A:6141,C=PROCON & PPSE V , P$PCAS M=B:DSB,MU=M:DSB,A=A:6141,C=PROCON b PASG /E0,TY10 N) * , PMES *********************************** PASG 2,NO PMES * TCU 1, S
0x045244…0453d8 Dummy {f00=0x0004, f01=0x0190, f02=» Q ( R " S T Y G P H L V I U . V h_v A B _ NO! A A A A A A A A z *T A _ P A A d . , , < + - ; t : X " H W X " H H A A A _T @ P A 1+X A
0x0453d8…04556c Dummy {f00=0x0004, f01=0x0190, f02=» & .T @ W @ A @W dW 0 Z P & l_, W W PP @ & l 0 & T A P P p r :_b d P D r_J A B Z .T @ W @ T @ W @ @ >a Z P & P @ A B P P
0x04556c…045700 Dummy {f00=0x0004, f01=0x0190, f02=» P 3P C @ P @ x @ P @ Q A . @ B A " T @ W @ A 2 A .P @ j_2 .T 4 0 P j pP _ @ j . d 0 @ @ @ P d 0 @ A B b 9 Y 4>a Y t c x
0x045700…045894 (1, 87) Opaque[0x194]
0x045894…045a28 # DirEnt {nam=»DSBCAS«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04c0, f03=0x0000}
0x045894…045a28 IdxSect {
0x045894…045a28 f00 = 0x0026 // 0x45894 @0x0
0x045894…045a28 f01 = 0x0002 // 0x45896 @0x2
0x045894…045a28 gno = [ // 0x45898 @0x4
0x045894…045a28 [0x00]: C0x0026.0x0.0
0x045894…045a28 ]
0x045894…045a28 }
0x045a28…045bbc Dummy {f00=0x0026, f01=0x0190, f02=» PMES ASG /E0,DK,DSBCAS , PMES *********************************** & , PMES * GENERATION OF PROGRAMCASSETTES * V , PMES * (PROD VERSION) * , PMES *********************************** PASG 2,NO PMES * TCU 1, SELPO
0x045bbc…045d50 Dummy {f00=0x0026, f01=0x009e, f02=»MES * TCU 2, SELPOL=6141 * , P$PCAS M=M:DSB,MU=M:DSB,A=A:6141,C=PROCON " PPSE R , P$PCAS M=M:DSB,MU=M:DSB,A=A:6141,C=PROCON ^ PASG /E0,TY10 ) * , PMES *********************************** PASG 2,NO PMES * TCU 1, SELPO
0x045d50…045ee4 Dummy {f00=0x0026, f01=0x2008, f02=» U 2, SELPOL=6141 * , P$PCAS M=M:DSB,MU=M:DSB,A=A:6141,C=PROCON " PPSE R , P$PCAS M=M:DSB,MU=M:DSB,A=A:6141,C=PROCON ^ PASG /E0,TY10 ) * , PMES *********************************** PASG 2,NO PMES * TCU 1, SELPO
0x045ee4…046078 Dummy {f00=0x0026, f01=0x0190, f02=»EN PTRA /S,NL TLK PINC T:LSEG,INT:PROD ( PINC T:DC,INT:PROD D PINC T:TEI,INT:PROD ^ PINC T:GTID,INT:PROD x PINC T:IO,INT:PROD PINC I:NTP,INT:PROD PINC I:EVA,INT:PROD PINC I:CMP,INT:PROD PINC I:CPA,IN
0x046078…04620c Dummy {f00=0x0026, f01=0x0190, f02=» ~ PINC I:EDTE,INT:PROD PINC I:EDS,INT:PROD $ PINC I:STR,INT:PROD > PINC I:EVS,INT:PROD X PINC I:ADS,INT:PROD r PINC I:EPIC,INT:PROD PINC T:MSK0,INT:PROD PINC T:DEL,INT:PROD LKE M PKPF /L,A:6141 PASG 2,
0x04620c…0463a0 Dummy {f00=0x0026, f01=0x0076, f02=»M=M:DSB,MU=M:DSB,A=A:6141,C=PROCON PPSE * , P$PCAS M=M:DSB,MU=M:DSB,A=A:6141,C=PROCON 6 PASG /E0,TY10 fI:ADS,INT:PROD r PINC I:EPIC,INT:PROD PINC T:MSK0,INT:PROD PINC T:DEL,INT:PROD LKE M PKPF /L,A:6141 PASG 2,
0x0463a0…046534 (1, 88) Opaque[0x194]
0x046534…0466c8 # DirEnt {nam=»TMPGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0720, f03=0x0000}
0x046534…0466c8 IdxSect {
0x046534…0466c8 f00 = 0x0039 // 0x46534 @0x0
0x046534…0466c8 f01 = 0x0004 // 0x46536 @0x2
0x046534…0466c8 gno = [ // 0x46538 @0x4
0x046534…0466c8 [0x00]: C0x0039.0x0.0
0x046534…0466c8 [0x01]: C0x003b.0x3.0
0x046534…0466c8 ]
0x046534…0466c8 }
0x0466c8…04685c Dummy {f00=0x0039, f01=0x0190, f02=» SCR , PMES *********************************** , PMES * GENERATION OF D S B - PROGRAM * @ , PMES * (PROD VERSION) * p , PMES *********************************** PPRT TMPGEN PPRT TMPCAS PPRT PROCON PSC
0x04685c…0469f0 Dummy {f00=0x0039, f01=0x0190, f02=»INC T:GTID,INT:PROD PINC T:IO,INT:PROD PINC I:NTP,INT:PROD 6 PINC I:EVA,INT:PROD P PINC I:CMP,INT:PROD j PINC I:CPA,INT:PROD PINC I:MOV,INT:PROD PINC I:MUL,INT:PROD PINC I:DIV,INT:PROD PINC I:NTF,INT:PROD PIN
0x0469f0…046b84 Dummy {f00=0x0039, f01=0x0190, f02=»ADS,INT:PROD PINC I:EPIC,INT:PROD PINC T:MSK0,INT:PROD 0 PINC T:DEL,INT:PROD L LKE M f PKPF /L,A:6040 t SCR PNOD C PLED PLADS P!!CH $$6040$$6141$$ P!!EN PTRA /S,NL TLK PINC T:LSEG,I
0x046b84…046d18 Dummy {f00=0x0039, f01=0x0190, f02=»PROD PINC I:EVA,INT:PROD PINC I:CMP,INT:PROD & PINC I:CPA,INT:PROD @ PINC I:MOV,INT:PROD Z PINC I:MUL,INT:PROD t PINC I:DIV,INT:PROD PINC I:NTF,INT:PROD PINC I:EDT,INT:PROD PINC I:EDTE,INT:PROD PINC I:EDS,INT:PR
0x046d18…046eac Dummy {f00=0x0039, f01=0x006c, f02=» | PINC T:DEL,INT:PROD LKE M " PKPF /L,A:6141 0 PASG 2,NO F PASG /E0,DK,TMPCAS V Z PINC I:MUL,INT:PROD t PINC I:DIV,INT:PROD PINC I:NTF,INT:PROD PINC I:EDT,INT:PROD PINC I:EDTE,INT:PROD PINC I:EDS,INT:PR
0x046eac…047040 Dummy {f00=0x0039, f01=0x2008, f02=» INC T:DEL,INT:PROD LKE M " PKPF /L,A:6141 0 PASG 2,NO F PASG /E0,DK,TMPCAS V Z PINC I:MUL,INT:PROD t PINC I:DIV,INT:PROD PINC I:NTF,INT:PROD PINC I:EDT,INT:PROD PINC I:EDTE,INT:PROD PINC I:EDS,INT:PR
0x047040…0471d4 (1, 89) Dummy {f00=0x003b, f01=0x0190, f02=»R POSITION L P DATA DCPO DC-BUFFER POSITION @ L P DATA LENG LENGTH OF INPUT FIELD B P DATA /06DB 54/27
0x0471d4…047368 Dummy {f00=0x003b, f01=0x0190, f02=» v L P DATA DCPO DC-BUFFER POSITION 6 L P DATA LENG LENGTH OF INPUT FIELD B P DATA /0758 58:24
0x047368…0474fc Dummy {f00=0x003b, f01=0x0190, f02=» l L P DATA DCPO DC-BUFFER POSITION , L P DATA LENG LENGTH OF INPUT FIELD | B P DATA /0822 65/2
0x0474fc…047690 Dummy {f00=0x003b, f01=0x0190, f02=» b L P DATA DCPO DC-BUFFER POSITION " L P DATA LENG LENGTH OF INPUT FIELD r P DATA /0782 60/2 L P*
0x047690…047824 Dummy {f00=0x003b, f01=0x0190, f02=»OSITION z L P DATA LENG LENGTH OF INPUT FIELD : B P DATA /07AD 61/13 L P*
0x047824…0479b8 Dummy {f00=0x003b, f01=0x417c, f02=» p L P DATA LENG LENGTH OF INPUT FIELD 0 @ P DATA ATTR 0/0 L P*
0x0479b8…047b4c Dummy {f00=0x003b, f01=0x2008, f02=» NT MASK03 L P END 8@
0x047b4c…047ce0 Dummy {f00=0x003b, f01=0x0190, f02=» CBG TBCD5,=D'4',TEST2697 l P ADD TBIN8,W1 m " P B TEST2610 m 8 PTEST2697 m L P CMP W0,W1 m P B TEST2699 m n PTEST2698 m P CMP W0,W0 m PTEST2699 m P RET m P PEND m P m P m P m PTEST27 PROC m P* DATOCHECK DD
0x047ce0…047e74 (1, 90) Opaque[0x194]
0x047e74…048008 # DirEnt {nam=»TMPCAS«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1160, f03=0x0000}
0x047e74…048008 IdxSect {
0x047e74…048008 f00 = 0x008b // 0x47e74 @0x0
0x047e74…048008 f01 = 0x0002 // 0x47e76 @0x2
0x047e74…048008 gno = [ // 0x47e78 @0x4
0x047e74…048008 [0x00]: C0x008b.0x0.0
0x047e74…048008 ]
0x047e74…048008 }
0x048008…04819c Dummy {f00=0x008b, f01=0x0190, f02=» PMES ASG /E0,DK,DSBCAS , PMES *********************************** & , PMES * GENERATION OF PROGRAMCASSETTES * V 0 PMES * (ASM DEBUG VERSION) * , PMES *********************************** PASG 2,NO PMES * TCU 1, S
0x04819c…048330 Dummy {f00=0x008b, f01=0x00a2, f02=» PMES * TCU 2, SELPOL=6141 * , P$PCAS M=M:DSB,MU=M:DSB,A=A:6141,C=PROCON & PPSE V , P$PCAS M=M:DSB,MU=M:DSB,A=A:6141,C=PROCON b PASG /E0,TY10 N) * , PMES *********************************** PASG 2,NO PMES * TCU 1, S
0x048330…0484c4 Dummy {f00=0x008b, f01=0x2008, f02=» * TCU 2, SELPOL=6141 * , P$PCAS M=M:DSB,MU=M:DSB,A=A:6141,C=PROCON & PPSE V , P$PCAS M=M:DSB,MU=M:DSB,A=A:6141,C=PROCON b PASG /E0,TY10 N) * , PMES *********************************** PASG 2,NO PMES * TCU 1, S
0x0484c4…048658 Dummy {f00=0x008b, f01=0x0190, f02=» C! ? " A" Bh!! B!"AB[ U;jU hA#lhA"!U; U<jU hA#lhA"!U< W!0 hA$ 0 hA$"0 hA$!P 0 hA$"P A!_I0 hA$ X 0 hA$ " !4 " 4 M IP d M! `* M" `+ M$ M!4 !0 -@P0 0 A0 A*P 0 .0 -AP !4 0 ! !P30 2 IU jl !Z 0 lcT#W j[ !Z 0 [eT @U 2T W 0
0x048658…0487ec Dummy {f00=0x008b, f01=0x0190, f02=» aX B 0 XB " 4 ! L L( L!0 L A 0 A0 L !4 h!! h!" h!# h!$ 0 `!kblch!! d [ 4 A! B 0 W AB0 P 0 B NB _ 0 4 $h!!%$ " A B$ fABhAB B! B B$ A! A "4 "h!!$.,f!!% W$ " A B$ hABfAB B! B B$ A! A "4 Ah!$$A!A"A(=@@@A@B@C@D@E@F
0x0487ec…048980 Dummy {f00=0x008b, f01=0x0190, f02=»_ 0 C C$W/ T+H@ W$HA W IF HG W IB IC HD W IE 4 #0 h)$"T 0 h*$"P C! C$W jR "lh"" PR%PD30 h($"P C$ C$Wx0 h)$"P C% C$Wg0 h*$"P C& C$WV0 h)$"PFjQ !lh)")Q3:0 h($"P jQ !lh(")Q2 C C$W%0 h'$"P jQ !lh'")Q2 C C$W # 4 # !4 #jR "lh"" PR%P
0x048980…048b14 (1, 91) Opaque[0x194]
0x048b14…048ca8 # DirEnt {nam=»DCTSK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x048b14…048ca8 IdxSect {
0x048b14…048ca8 f00 = 0x000d // 0x48b14 @0x0
0x048b14…048ca8 f01 = 0x0004 // 0x48b16 @0x2
0x048b14…048ca8 gno = [ // 0x48b18 @0x4
0x048b14…048ca8 [0x00]: C0x000d.0x3.0
0x048b14…048ca8 [0x01]: C0x0011.0x0.0
0x048b14…048ca8 ]
0x048b14…048ca8 }
0x048ca8…048e3c Dummy {f00=0x000d, f01=0x0190, f02=» . P IDENT DCTSK REL2.1 DK 800317 870150540210 P ENTRY DCTSK 6 P EXTRN I:EVA0 J P* ` P* j P* t P ~ P > P********************************************************** P* P* CONDITIONAL ASSEMBLY P* & P****
0x048e3c…048fd0 Dummy {f00=0x000d, f01=0x0190, f02=» 0 " PRBUFNR EQU 2 2 RECEIVE BUFFERS & PRBUFL EQU 150 LENGTH 800 BYTES DK 0 P* Z P* d P* EQUATES n P* PRSET EQU /B2 RESET KEY " P* COMMON EQU FOR ECB HANDLING P* P PECBBA EQU 2 PECBRL EQU 4
0x048fd0…049164 Dummy {f00=0x000d, f01=0x0190, f02=»REL. ADDRESSES P* P* PDIS EQU 20 * P* < PECBDC EQU -DIS-14 F P IFT DCLIN=2 ` P IFT COPCMD=1 t PECBDC2 EQU ECBDC-DIS PECBICR EQU ECBDC2-DIS PECBICW EQU ECBICR-DIS P XIF P IFT DCLIN=2 P IFF C
0x049164…0492f8 Dummy {f00=0x000d, f01=0x0190, f02=»QU ECBDC-DIS PECBICW EQU ECBICR-DIS P XIF 2 P IFF DCLIN=2 > P IFF COPCMD=1 R PECBICW EQU ECBDC-DIS h P XIF PECBVDU EQU ECBICW-DIS PECBKB EQU ECBVDU-DIS PECBSD EQU ECBKB-DIS P* P* " P* BASE ADDRESS
0x0492f8…04948c Dummy {f00=0x000d, f01=0x0190, f02=» n P* " PNBRKBV EQU 0 NUMBER OF KB/VDUS & PNBRGTP EQU NBRKBV+2 NUMBER OF GTPS 8 P* b 2 PMF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 l 2 PMF1GTP EQU MF1KBV+36 DV ADDRESSES GTPS MF # 1 P IFT DCLIN=2 PMF2KBV EQU MF1GTP+16 P
0x04948c…049620 Dummy {f00=0x000d, f01=0x0190, f02=»********* P* P* START ADDRESS FOR DC TASKS B P************************************************************* @ P PDCTSK EQU * P CF A14,I:EVA0 & P LDR* A1,A9 POLL & SELECT ADDRESS P LDKL A8,ECBDC P ADR A8,CREBAS
0x049620…0497b4 (1, 92) Dummy {f00=0x0011, f01=0x018e, f02=»F ANY MESSAGE WITH WAIT ~ P LKM P DATA 1 , & P CF A14,GTRBUF GET RECEIVE BUFFER < P LDKL A8,ECBDC f P ADR A8,CREBAS | P CF A14,DCGETM P LD A4,ECBBA,A8 " P CF A14,RLRBUF RELEASE BUFFER P RB DCT100 P* P*
0x0497b4…049948 Dummy {f00=0x0011, f01=0x0190, f02=» x ( P CM ECBCW,A8 NO TIME OUT SUPERVISION P LDKL A1,RBUFL+RBUFL 4 P ST A1,ECBRL,A8 REQ LENGTH P P ST A4,ECBBA,A8 r P LKM P DATA 1 P RTN A14 P* P* P* > P****************************************************
0x049948…049adc Dummy {f00=0x0011, f01=0x018e, f02=»RLINK EQU RBUFL+RBUFL+2 P* PRBUF EQU * * P DATA *+2 POINTER FIRST FREE < P IFF RBUFNR=1 ` P DATA *+RLINK v P RES RBUFL P IFF RBUFNR=2 P DATA *+RLINK P RES RBUFL P IFF RBUFNR=3 P DATA *+RLINK P
0x049adc…049c70 Dummy {f00=0x0011, f01=0x0190, f02=» P* P* P* GET RECEIVE BUFFER P* 4 PGTRBUF EQU * > P LDKL A5,RBUF R P* h P* r PGETBUF EQU * | P LDR* A4,A5 P RF(Z) GETB50 NO BUFFER FREE P LDR* A3,A4 P STR A3,A5 P ADK A4,2 SKIP LINK
0x049c70…049e04 Dummy {f00=0x0011, f01=0x0190, f02=» PRLRBUF EQU * P LDKL A2,RBUF PRELB05 EQU * . P SUK A4,2 POINT TO LINK B PRELB10 EQU * b P LDR* A3,A2 v P RF(Z) RELB20 P LDR A2,A3 P RB RELB10 PRELB20 EQU * P STR A4,A2 P CMR A4 P RTN A14
0x049e04…049f98 Dummy {f00=0x0011, f01=0x407c, f02=»REQTIM EQU * P ST A1,ECBCW,A8 P LDK A7,/B9 , P LKM @ P DATA 1 L P RTN A14 P END l@ xA3,A2 v P RF(Z) RELB20 P LDR A2,A3 P RB RELB10 PRELB20 EQU * P STR A4,A2 P CMR A4 P RTN A14
0x049f98…04a12c Dummy {f00=0x0011, f01=0x2008, f02=» A7,/B7 TRANSFER PARAMETERS LKM , DATA 1 8 CF A14,ERASE ERASE SCREEN H 0 ,EM100 CF A14,TRPF TRANSMIT, PROGRAM FUNCTION j RB EM100 AGAIN * * END START @ 4,2,A13 ADR A14,A13 LOAD STACK
0x04a12c…04a2c0 Dummy {f00=0x0011, f01=0x415e, f02=» X 1 1 X x , ( ? !@T X $ " P y _ T:CLIT@ H T:EKEY Z , ( _ x T X H X l $ { X * , )$ P _ : H D !T P l )Wz 9 UP m l yV* Ph R^ PP +P ET YU cQ m z o |
0x04a2c0…04a454 (1, 93) Opaque[0x194]
0x04a454…04a5e8 # DirEnt {nam=»T:DSB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x13d0, f03=0x0000}
0x04a454…04a5e8 IdxSect {
0x04a454…04a5e8 f00 = 0x009e // 0x4a454 @0x0
0x04a454…04a5e8 f01 = 0x0012 // 0x4a456 @0x2
0x04a454…04a5e8 gno = [ // 0x4a458 @0x4
0x04a454…04a5e8 [0x00]: C0x009e.0x2.0
0x04a454…04a5e8 [0x01]: C0x009e.0x3.0
0x04a454…04a5e8 [0x02]: C0x00ab.0x1.0
0x04a454…04a5e8 [0x03]: C0x00ab.0x2.0
0x04a454…04a5e8 [0x04]: C0x00ab.0x3.0
0x04a454…04a5e8 [0x05]: C0x00ac.0x0.0
0x04a454…04a5e8 [0x06]: C0x00ac.0x1.0
0x04a454…04a5e8 [0x07]: C0x00ac.0x2.0
0x04a454…04a5e8 [0x08]: C0x00ac.0x3.0
0x04a454…04a5e8 ]
0x04a454…04a5e8 }
0x04a5e8…04a77c Dummy {f00=0x009e, f01=0x0190, f02=»0 B`^ &CR a a @ 0 , P , K0 6 F ( z K0 * * | ` D0 6
0x04a77c…04a910 Dummy {f00=0x009e, f01=0x0190, f02=»
0x04a910…04aaa4 Dummy {f00=0x009e, f01=0x0190, f02=» , . / 0 6 7 8 9 : ; < = > A B C D I J K P Q T U V W X Z [ ^ ******************************PLADSART/ANTAL? TOG? STATION? KLASSE/KUPE, @NSKE UFORENELIG KUPE/RYGER, @NSKE UFOREN
0x04aaa4…04ac38 Dummy {f00=0x009e, f01=0x0190, f02=» KUPE? PLACERING? FRI? TILSLUTNING? SATELLIT? KONTROLNUMMER? NAT? BILART/PLADSART? REST/STR[K
0x04ac38…04adcc Dummy {f00=0x009e, f01=0x0190, f02=»ANDARDMASKE? TEKNIK SKRIV MANUELT RYGER/ANTAL? KUPE/ANTAL? PLACERING/ANTAL? FORKERT PLADSART? FORBINDELSESD@R? TURNUMMER?
0x04adcc…04af60 Dummy {f00=0x009e, f01=0x0190, f02=»!!!!!!!!!!!!++ ;" 0)(!%'&B K 12* 6 # N # h k l m n $ B
0x04af60…04b0f4 (1, 94) Dummy {f00=0x009e, f01=0x0190, f02=» @ 20 ( ( C * k v
0x04b0f4…04b288 Dummy {f00=0x009e, f01=0x0190, f02=»
[…0x1…]
0x04b41c…04b5b0 Dummy {f00=0x009e, f01=0x0190, f02=» : @ 0 , @ , F * 00 Z N
0x04b5b0…04b744 Dummy {f00=0x009e, f01=0x0190, f02=»!_) A I 0 *_ j@!! A0 @ A 0 A f!!! f"!0 f""! f"#! f"$- A!0 QW AF0 b3 k:0 kb0 C C"*0 0 2F F G NF _N0 0 W T B#0 B d 6M 0 ! 2T _( A!0 Q AFW A!0 Q AF0 T 0 0 `!_ 0 2F F
0x04b744…04b8d8 Dummy {f00=0x009e, f01=0x0190, f02=» C! ? " A" Bh!! B!"AB[ U;jU hA#lhA"!U; U<jU hA#lhA"!U< W!0 hA$ 0 hA$"0 hA$!P 0 hA$"P A!_I0 hA$ X 0 hA$ " !4 " 4 M IP d M! `* M" `+ M$ M!4 !0 -@P0 0 A0 A*P 0 .0 -AP !4 0 ! !P30 2 IU jl !Z 0 lcT#W j[ !Z 0 [eT @U 2T W 0
0x04b8d8…04ba6c Dummy {f00=0x009e, f01=0x0190, f02=» aX B 0 XB " 4 ! L L( L!0 L A 0 A0 L !4 h!! h!" h!# h!$ 0 `!kblch!! d [ 4 A! B 0 W AB0 P 0 B NB _ 0 4 $h!!%$ " A B$ fABhAB B! B B$ A! A "4 "h!!$.,f!!% W$ " A B$ hABfAB B! B B$ A! A "4 Ah!$$A!A"A(=@@@A@B@C@D@E@F
0x04ba6c…04bc00 Dummy {f00=0x009e, f01=0x0190, f02=»_ 0 C C$W/ T+H@ W$HA W IF HG W IB IC HD W IE 4 #0 h)$"T 0 h*$"P C! C$W jR "lh"" PR%PD30 h($"P C$ C$Wx0 h)$"P C% C$Wg0 h*$"P C& C$WV0 h)$"PFjQ !lh)")Q3:0 h($"P jQ !lh(")Q2 C C$W%0 h'$"P jQ !lh'")Q2 C C$W # 4 # !4 #jR "lh"" PR%P
0x04bc00…04bd94 (1, 95) Dummy {f00=0x00ab, f01=0x0190, f02=» !4 # A" Bh!! B!"AB%0 hA$!P 0 hA$"T 0 hA$ W A!_! # !4 # 4 6 ?6-$ jYK"H K"jYK"G K"jYK"F K"jYK"E K"jYK"D K"jYK"C K"jYK"B K"jYK"A K"4 K K 6 ?6-$ jH "YK K"jG "YK K"jF "YK K"jE "YK K"jD "YK K"jC "YK K"jB "YK K"jA "YK K" K K 4 ! X7 A#0 XA
0x04bd94…04bf28 Dummy {f00=0x00ab, f01=0x0190, f02=» C$ M! G $_/ '4 4 # L00 L$F!T#F PAUj[!!<F e"jQ !<F F(;!F 7!F 3 !F !F W [: e!W [8 e# f!!! f"!0 f""! f"#! f"$- #4 B!"B! BA B!4 # B! CA C!*BC B" #4 B"4 l: AQ4 ( U:jU EW WU ChG" CE B*,CB jlC!: C!_ W G!0 hG$ 0 hG$"0 hG! X8 DhG# D"0
0x04bf28…04c0bc Dummy {f00=0x00ab, f01=0x0190, f02=» PW%P= #P@ W !4 4 PW%P= #PB W !4 4 PW%P= #PD W !4 4 PW%P= #PH W !4 PW!P= !P> !PE 4 PW!P= !P> !P? !PB 4 PW%P= #PJ 4 PW!P= %P? #PB W !4 PW!P= !P? !P@ !PB 4 4 PW%P> #PC W !4 4 PW%P> #PG W !4 PW%P> #PH
0x04c0bc…04c250 Dummy {f00=0x00ab, f01=0x0190, f02=»4 4 H!"HE jQ !WH Q9 PQ%P= #PA H!_ !W 4 " RW PR%P><#PI8 APjR "W" PR%P>(#PF$ BP%A %6B W !A W #A W " !4 " 4 4 PW!P= !P> !P? !P@ PC4 4 PW%P= #PC 4 !4 @Q Ah!! B"IS. CA C!0 hB$ T B! BC AS_& ChB$0 CIG C$W C& GB LhB!0
0x04c250…04c3e4 Dummy {f00=0x00ab, f01=0x0190, f02=» E N HhG"jlHEW 0 hG$"jW hG#lH 3D ()*+,-./0123456789:;<=>?@ABCDEFP 0 hG$ W 0 hG$ 2F BG B! GA G! BG HS ? d/ARW @U4 $@H CM GR N P R !N W NC W H!W H"W H#W H$W H% $4 ( HG"H H!@T C DM BM V: GLjV DlhH"0 G AB*A 10 W AN
0x04c3e4…04c578 Dummy {f00=0x00ab, f01=0x0190, f02=» BA B!jVCAW CA C! GL GC_ jVCAW WV HW V:jV AW WV E' HW MA ( 4 N/6N *$ 0 Z'W(0 Z&W"0 Z%W 0 Z$W 0 Z'W 0 Z&W 0 Z%W 0 Z$4 Q: A G h AGQ ! A GA G!jQ !WG,Q; A!4 A +6+ + * *X* + *.+ +$* ^ t* " o g q k
0x04c578…04c70c Dummy {f00=0x00ab, f01=0x0190, f02=» n 3 : E 1 @ _ h & ; @ U Z o t ! 6 K ` u ) . F K ! # ( * . / 0 9 @ J T U V ^ , )
0x04c70c…04c8a0 Dummy {f00=0x00ab, f01=0x0190, f02=»P 6A " $ & ( * , . 0 2 4 6 8 : < > @ A B C D E F G J N S Y c0 m0 n0 o0 p0 q0 r0 s0 t0 u0 v0 x0 z0 |0 ~0 0 0
0x04c8a0…04ca34 (1, 96) Dummy {f00=0x00ab, f01=0x0190, f02=» W Q 14 3 F 9e G 14 3 F G 14 !& ", $ P T "J p P P R " W # $ $ W % 14 3 3 3 F Q 3 3 3 -~ -~ 3 -~ 3 : P , B , 9 Q _ B
0x04ca34…04cbc8 Dummy {f00=0x00ab, f01=0x0190, f02=»W: 9:h _< Q _B _F _J [_N ]_R _V V _ , !::T Q : B % , C ( : Q p ! P0 ! P* P , , 9H " P " " W Q : q _ & ,P & Z : L _ H P ( - Z : P
0x04cbc8…04cd5c Dummy {f00=0x00ab, f01=0x0190, f02=» P Y( $ ! P( ! P" ! P P - _6 _p P 4 , 4 U Q _ : B - P P Q $ # P R - _ B C : ! T Wz (U $r Wf ! T WZ ! T WP ! T WF ! T $rW6 ! X !<<T
0x04cd5c…04cef0 Dummy {f00=0x00ab, f01=0x0190, f02=»( B _* P T +W > B - d C ( C ( : Q P ,! ! T2 Q P ,! %: Q _ P P Q : ! P ! P ! P ! P " (U Wx Q U U QF , ! P0 ! P* ! P$ ! P ! P* !@@P* !##P* !$$P* _<
0x04cef0…04d084 Dummy {f00=0x00ab, f01=0x0190, f02=» C &J P ] C : B ) T ) 9h ) ) 9h ) ) C & : T C ) T ) 9h ) T C & P Q _< : ( :D & D 'vG ' G (NBS( V ) L ) ) * 'v A4 Au Au AV %
0x04d084…04d218 Dummy {f00=0x00ab, f01=0x0190, f02=» < X " l (N A4 Au Au AV X " ( A4 Aw Aw AV Z "
0x04d218…04d3ac Dummy {f00=0x00ab, f01=0x0190, f02=» ? # X " n ) I R k * c u u * -~ "R V I
0x04d3ac…04d540 Dummy {f00=0x00ab, f01=0x0190, f02=» 14 F 3 #0T R W T V G 9h ' 14 W F W , + -~ .& - - P 3 / W -~ - 3 / "!@ E W -~ - C C W - C C J+L ' W 781"&$ 39#$;< '()*+,-! - .& - 3 P _B -~ B 3 'W -~ (
0x04d540…04d6d4 (1, 97) Dummy {f00=0x00ab, f01=0x0190, f02=» _ ' Pb -L I "%@P "% P& B C C 4 "5 # B P B P B 5 P C P B % P C + /f 14 -~ , ?< , C ,~ C B B P C , : "!@T F V I C B : ( _ ' P -L I : -~ - % Y 3:
0x04d6d4…04d868 Dummy {f00=0x00ab, f01=0x0190, f02=»" T # ' ?D 5 W.' #? 5j V H E ;D:B " : _, 3 C : : -~ - 3 P C W $0 P E C .N : "!@P ") # B C B % C C : 3 #0 T & C C : E C C V W V Q
0x04d868…04d9fc Dummy {f00=0x00ab, f01=0x0190, f02=» ;a > 4 ZP T : 49d_b B@5 @ 8 @N ' @ d P ( z= #0 T B 'W E B B " P0> 0NPP L00 R R _ R _ # Q R V > _V ' P _d P & 1
0x04d9fc…04db90 Dummy {f00=0x00ab, f01=0x0190, f02=»2 142 2 ?6B BDA A B A 1J2 2 3 3 1J1J1J1J W V 7 P _ P W 0 V X _ @0 R Eb H 1 pVP 9c D0R 3 3 Q 0`W 7z :aW, @0 YRP D @0 ]^ E0 @0 ]h D _n F 2 P V W< _ 2 # ;B 2 V
0x04db90…04dd24 Dummy {f00=0x00ab, f01=0x0190, f02=»! 9BP V T W V P D $ V 6 V % V E @ L' T 2 % 7_ 2 # PH L PB 3 2" &] Y $! 6P Q $ T 9BP 1~ _ _ W 1L 6 @ L" T 7 $ V P _ W _ 0 1& 5 V & 1j H
0x04dd24…04deb8 Dummy {f00=0x00ab, f01=0x0190, f02=» 2 T Z L L3 D V, W # 5j L3 E V $ W D V L3 , Wn 6 2 5 W " P " # 5j ;b WF " ;d# _ [ v [ `> 3 `J Z Z : E :B , (V ; [ [ 3 Z H
0x04deb8…04e04c Dummy {f00=0x00ab, f01=0x0190, f02=» 5 : Z 4 " 2@P : [ [ 3 & @ J! P E Z E [ 6 [ Z 7 36 Z 7 : ( :A ( @ L" P [ :;H 2 P ;h 5t : 3 ; V Y : 2! : 6 2 5 W& " #
0x04e04c…04e1e0 Dummy {f00=0x00ab, f01=0x0190, f02=» 7 Q [ ; 8 V W Q P [ ! X # P 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
0x04e1e0…04e374 (1, 98) Dummy {f00=0x00ac, f01=0x0190, f02=»V W R V W R XV W 1 ^ _0 R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b 9 P P PN P 0 - P: V W Z _ 4 V W Q P ) P 9_ &"
0x04e374…04e508 Dummy {f00=0x00ac, f01=0x0190, f02=» < S S S X 4 9d * & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : E &9d! + P & T 9d! T 7 V Y P _$ SZ Q V P V Q W Q 7 Y P._6
0x04e508…04e69c Dummy {f00=0x00ac, f01=0x0190, f02=» P 9 S W _ V P W T V E + : & 6 E [ [ [ [ $ [ [ >h [ [ >R8x >R8x >R6 Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P >R6 V H )_ >R; _X z R z ! P
0x04e69c…04e830 Dummy {f00=0x00ac, f01=0x0190, f02=» !0 E " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & 6 E [ [ [ [ $ [ [ >R8x >R8x >R6 z " ! ! R 2` {
0x04e830…04e9c4 Dummy {f00=0x00ac, f01=0x0190, f02=»R [ _ >R6 >R; Z ! Z $ Z %_N [ Q* >R6 >R7 R [ Z { >R6 z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L
0x04e9c4…04eb58 Dummy {f00=0x00ac, f01=0x0190, f02=» V K : 3 > > ? 30 V @4 ? @Z V Z P 2 " T W "@T '?W "? H> " K :e J J " J _Z Z @4 [ Z P _ [ V 7_ Z @Z _ Z 7 Z Z P _
0x04eb58…04ecec Dummy {f00=0x00ac, f01=0x0190, f02=» @ WJ @ W +_ @ @ K W. _& X , W X & , J K : V : J T E 1 @p A : ! P ! P ! P ! P 3 ! P 3(W : ! )P9H " E # T &W &" :I : A : P & _ &X _ : E : : : C
0x04ecec…04ee80 Dummy {f00=0x00ac, f01=0x0190, f02=» R$ P $ 1T Y TdW 5 _& : C $0TH $ R W R # P W ) V E C $0T Wp W W F C [ C : Z !0 , !0P2 0 > 4 R :d" 8 R ! :DW ! 9 R R Y, : 8 : 3
0x04ee80…04f014 (1, 99) Dummy {f00=0x00ac, f01=0x0190, f02=»Q$ : C 3 #03 T $_X C _^ W F C p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 2.1 TRACE ; C ( _ @C R ( _ _ * AC T0 C ( _ AC AC (
0x04f014…04f1a8 Dummy {f00=0x00ac, f01=0x0190, f02=» H & H D6Q C AC W* D: C V D ! )0 1 6 V 9 H AC Eb 0 C ( _ < ( _ : Wp Wl Wh Wd W` W WX WT WP WL WH WD W@ W< W8 W4 W0 W, W( W$ W W W W W W W W W D:
0x04f1a8…04f33c Dummy {f00=0x00ac, f01=0x0190, f02=»GAL OPERATION MIXED ARITHMETIC ILLEGAL TYPE ODD WORD ADDR MISSING ENTRY ILLEGAL REQUESTED LENGTH STACK UNDERFLOW ARITHM OVERFLOW STACK OVERFLOW INDEX OVERFLOW ILL INDEX TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR A
0x04f33c…04f4d0 Dummy {f00=0x00ac, f01=0x0190, f02=»LLOWED ILLEGAL CONTROL CODE ILLEGAL INDEX VALUE FORMAT CONDITIONS CHANGED ILLEGAL PARAMETER LENGTH ERROR DATASET BUSY ILLEGAL DATASET REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REENTER POINT W 9 " R 0 1 Y : ;a V P V
0x04f4d0…04f664 Dummy {f00=0x00ac, f01=0x0190, f02=» $T$ D BR V T D P T D @PL E @W . @K$P$ I K& $ $P BT , D E @ : @I,P AI, H AK W TW V AI. K K V AK TB( M ( AI. K @K V P ( R W I0 TB( M : TB( M : AK AK E AI. K K V AK TB( M (
0x04f664…04f7f8 Dummy {f00=0x00ac, f01=0x0190, f02=» LEGAL DATASET REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC E POINT W 9 " R 0 1 Y : ;a V P V
0x04f7f8…04f98c Dummy {f00=0x00ac, f01=0x0190, f02=» $T$ D R V T D P T D PL Z K Z ] ( ( ] ( L & D "! AL ] @K @K L @L P ( L V R
0x04f98c…04fb20 Dummy {f00=0x00ac, f01=0x0190, f02=» @K P @K AK AL ^. AL "V # ( L AL P UW T ] AL P ]R N Z NB @N N =P WP QP MQ /R SS IT@ JT TUd YUp GU LU PU HV RV( VV6 KW ] _ N _ NO! AN AN AN AN AN AN AN
0x04fb20…04fcb4 (1, 100) Dummy {f00=0x00ac, f01=0x0190, f02=» L @ AN AN _T X( X ,T X( X ) AN AN ]$ Z O O ;O :O O @N P AN 1+X AN _ O @N AN @N AN @N AN @N AN _ Zn AN @N V Z O " @N T " @N @N P AN AN " N @N M T @L AN @L AN @L AN @M AN @N A[ @N AL @N A
0x04fcb4…04fe48 Dummy {f00=0x00ac, f01=0x0190, f02=» @L AN @L AN _x L AL PZ @N & ] 0 P P ] P @R ] R _ ] _T QZ M 4 T P ] W T @R ] W B "T" @L AN @L AN @L AN @L AN W @N T @N W @
0x04fe48…04ffdc Dummy {f00=0x00ac, f01=0x0190, f02=» Z [V A M @N R V ;a Q _ ]$1 M @[ AL _ 0 AR N P 3P N C @N P @N 1 @L P @N Q @ @N Q P " M T @L AN @L AN @L AN @L AN @N A[ @N AL @N AL @N AL P [f W @N T
0x04ffdc…050170 Dummy {f00=0x00ac, f01=0x0190, f02=» L @L P @N V @K ( N V " @N T @K Z$TP @N P @N A[ AL AL P ] 0! N T @N P @N " 1 M N Px @N @N @N @N T @K X RX A[ *9l! P2 P T &9d! ) T W P$ &9d T & T _ T & T M N A
0x050170…050304 Dummy {f00=0x00ac, f01=0x0190, f02=» ! N T @N P @N ! 5 = M N N Wx M P @N N W W" J X J $ B % AJ M T @K W @N AL N @N R AK AL AK @K ( M AL N @K WJ N @N @N T I @_:P Wx @K W _ AL N AK @N AK M @N ! A0 M Pd
0x050304…050498 Dummy {f00=0x00ac, f01=0x0190, f02=» M K& , AV AV :B AV Q (P _ H B @N H AV " N EQ GT LT NE NG NL P2 @L R* ]$ Z W> @N P Q W2 ( M N L U J ( R ( @N V @K H B W # + C " J B AW AW :B AW N (P _ B @N @N
0x050498…05062c Dummy {f00=0x00ac, f01=0x0190, f02=» % " ]$ # C C C C *T W #T AN ]$ [ P PR (T X( Pl ,T X( P^ )TX ]$ Zn AN T @K X R: ?aP *:l" T* & W T C B B B B B " N AY AY AY AY AY AY AY Z$R Q ! 9D# 9hP
0x05062c…0507c0 Dummy {f00=0x00ac, f01=0x0190, f02=» Z W C " _* Q P Q V _ W " AZ < V " F F <P W* @L " P ( N & $ C " :T ]$ ]$ ]$ " " AZ AN .T @L
0x0507c0…050954 (1, 101) Dummy {f00=0x00ac, f01=0x0190, f02=» I[V T A A[ A[ T A T [f @N R S A N @[ " P P (T @L ! PD @N T @K Z [ Q";H @[ ;d [ ( @[ "( N @[ " :S :X :Y :Z ]$ $P WH ]$ A A 0R 9Q 0 A :B ]$_" A
0x050954…050ae8 Dummy {f00=0x00ac, f01=0x0190, f02=»T A A " , "! R _U .WV A : A " 9d ! R :W& ] W ] W W ?W :W .W / a] A] T ]| " @]zT ]| A]B ]F ] ( @] A]z " ]| ]r ] ( A( ]p( A]z " A] ] @] ] P A
0x050ae8…050c7c Dummy {f00=0x00ac, f01=0x0190, f02=» I T A A A T A T @ : + 3 [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I_ 6 * B Z 9 ! ; *Xt 8 ! D_ 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U J E 1
0x050c7c…050e10 Dummy {f00=0x00ac, f01=0x0190, f02=» ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W ^ 8 !++P !-- z ;$# + ^" _( |`. PT*AXYZ9( R : V E V D ' $ E W _ P 14 X =' V W V Y =P _ : A " A @ P A
0x050e10…050fa4 Dummy {f00=0x00ac, f01=0x0190, f02=» _ V U Z K W W :K W r W Q R t W V T( Td v : V W V T( ) : V <B W |P v v : $ T V |P v w v : V $ V l $ T V M : W
0x050fa4…051138 Dummy {f00=0x00ac, f01=0x0190, f02=» R R W P U U W x V4 X _ V : " D Pd W V PL $;A^ D E D P. V T(P T( P T T( E _J T E _T " D T E T E D E % : " R ;B T " R P( |P v v
0x051138…0512cc Dummy {f00=0x00ac, f01=0x0190, f02=» : : , X G : J @ 0 V @ T( 0 H W : ? ? R 0 R P P B t _ 3& : V ) X* v : 4P: " D XP , H H $ M v b - I Y0 : @ ` V b
0x0512cc…051460 Dummy {f00=0x00ac, f01=0x0190, f02=»Wd = G $ V V W $ V V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U
0x051460…0515f4 (1, 102) Opaque[0x194]
0x0515f4…051788 # DirEnt {nam=»BITPUL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0028, f03=0x0000}
0x0515f4…051788 IdxSect {
0x0515f4…051788 f00 = 0x0001 // 0x515f4 @0x0
0x0515f4…051788 f01 = 0x0004 // 0x515f6 @0x2
0x0515f4…051788 gno = [ // 0x515f8 @0x4
0x0515f4…051788 [0x00]: C0x0001.0x1.0
0x0515f4…051788 [0x01]: C0x0001.0x2.0
0x0515f4…051788 ]
0x0515f4…051788 }
0x051788…05191c Dummy {f00=0x0001, f01=0x018e, f02=» IDENT BITPUL 810612 NJ * $ 6 2* THIS MODULE MAKES IT POSSIBLE TO MANIPULATE BITS . * IN A CREDIT DATAITEM h * * 4 FUNCTIONS ARE ALLOWED: * BITON SET BIT * BITOFF CLEAR BIT * BITINV INVERT BIT
0x05191c…051ab0 Dummy {f00=0x0001, f01=0x018e, f02=» 8 3* WHERE FUNCTION IS ONE OF THE NAMES DEFINED ABOVE, 0 +* ITEM IS THE NAME OF THE ITEM TO BE TESTED @ , '* INDEX IS THE BIT POSITION WITHIN ITEM t 8 3* WHEN INDEX = 0, THE MOST SIGNIFICANT BIT IS TAKEN * 0 ,* THERE IS NO CHECK ON VALIDIT
0x051ab0…051c44 Dummy {f00=0x0001, f01=0x0190, f02=» ENTRY BITTST ENTRY BITINV 2 ENTRY BITON H P ENTRY BITOFF P r P z P EXTRN I:RT1 EXTRN I:EVA0 EJECT BITTST EQU * 0 , LDKL A8,BTEST LOAD POINTER TO REQ. BITOPER.
0x051c44…051dd8 Dummy {f00=0x0001, f01=0x0190, f02=» RF GETPAR * BITOFF EQU * LDKL A8,BOFF 4 * J GETPAR EQU * T . * CF A14,I:EVA0 PICK UP ADDR OF 1. ARGUMENT h LDR A4,A9 SAVE ADDR IN A4 0 + CF A14,I:EVA0 PICK UP VALUE OF 2. ARGUMENT P LD A5,0,A9 2 - LDK
0x051dd8…051f6c Dummy {f00=0x0001, f01=0x0190, f02=» SUK A4,X'01' WORDB EQU * LDR A6,A5 SAVE BIT INDEX * ( $ SRA A5,3 SPLIT ADDR INTO BYTE + BIT L ADR A4,A5 BYTE ADDR IN A4 x $ P ANK A6,X'0F' EXTRACT BIT OFFSET & ! ORKL A6,X'3D60' A6 := 'SRL A5,0' & ! LDKL A5,X'8000' INITIAL BIT
0x051f6c…052100 Dummy {f00=0x0001, f01=0x018e, f02=»01' SET CREDIT COND REG MASK POFF EQU * $ & "* UPDATE CREDIT CONDITION REGISTER 6 LD A6,2,A13 ` SC A5,-2,A6 t * * SELECT TYPE OF OPERATOR . ) ABR A8 BRANCH TO THE ADR SELECTED BEFORE * BINV EQU * XRS A
0x052100…052294 (1, 103) Dummy {f00=0x0001, f01=0x4092, f02=» C1R A7,A7 ANS A7,0,A4 CLEAR BIT * 8 BTEST EQU * B OUT EQU * V ABL I:RT1 GET OUT h END @
0x052294…052428 Dummy {f00=0x0001, f01=0x2008, f02=» ANS A7,0,A4 CLEAR BIT * ( BTEST EQU * 2 OUT EQU * F ABL I:RT1 GET OUT X END r@ ~
0x052428…0525bc Dummy {f00=0x0001, f01=0x0190, f02=» 6N 4CR b a a @ 0 , P , K0 t 0 J 4 K0 * h ` D0 t 0
0x0525bc…052750 Dummy {f00=0x0001, f01=0x0190, f02=»
0x052750…0528e4 Dummy {f00=0x0001, f01=0x0190, f02=» ++ !"%&'()012; B >+;" 0)(!%'& 12 SID ANT ST - TOG DATO KL RY KUP PLAC N FRI T SAT
0x0528e4…052a78 Dummy {f00=0x0001, f01=0x0190, f02=» 74 <XXXXX 8608666279 06111022 999199 0405 : " * 2 0 0
0x052a78…052c0c Dummy {f00=0x0001, f01=0x0190, f02=» ( P D "
0x052c0c…052da0 Dummy {f00=0x0001, f01=0x0190, f02=»
0x052da0…052f34 (1, 104) Opaque[0x194]
0x052f34…0530c8 # DirEnt {nam=»B:DSB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1390, f03=0x0000}
0x052f34…0530c8 IdxSect {
0x052f34…0530c8 f00 = 0x009c // 0x52f34 @0x0
0x052f34…0530c8 f01 = 0x0014 // 0x52f36 @0x2
0x052f34…0530c8 gno = [ // 0x52f38 @0x4
0x052f34…0530c8 [0x00]: C0x009c.0x2.0
0x052f34…0530c8 [0x01]: C0x009c.0x3.0
0x052f34…0530c8 [0x02]: C0x009f.0x0.0
0x052f34…0530c8 [0x03]: C0x009f.0x1.0
0x052f34…0530c8 [0x04]: C0x009f.0x2.0
0x052f34…0530c8 [0x05]: C0x009f.0x3.0
0x052f34…0530c8 [0x06]: C0x00a0.0x0.0
0x052f34…0530c8 [0x07]: C0x00a0.0x1.0
0x052f34…0530c8 [0x08]: C0x00a0.0x2.0
0x052f34…0530c8 [0x09]: C0x00a0.0x3.0
0x052f34…0530c8 ]
0x052f34…0530c8 }
0x0530c8…05325c Dummy {f00=0x009c, f01=0x0190, f02=»Jj NqZ ! ! @ ^ @ J T c @ Tg t z ^ b bLPL H b2 Z ` z
0x05325c…0533f0 Dummy {f00=0x009c, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A U A @ * A A , @ ~ A A ~ @ A A @ A A @ A A @ A
0x0533f0…053584 Dummy {f00=0x009c, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ t S A _ Z r V @ & T :a R
0x053584…053718 Dummy {f00=0x009c, f01=0x0190, f02=» Q ( R " S T Y G P H L V I U . V h_v A B _ NO! A A A A A A A A z *T A _ P A A d . , , < + - ; t : X " H W X " H H A A A _T @ P A 1+X A
0x053718…0538ac Dummy {f00=0x009c, f01=0x0190, f02=» & .T @ W @ A @W dW 0 Z P & l_, W W PP @ & l 0 & T A P P p r :_b d P D r_J A B Z .T @ W @ T @ W @ @ >a Z P & P @ A B P P
0x0538ac…053a40 Dummy {f00=0x009c, f01=0x0190, f02=» P 3P C @ P @ x @ P @ Q A . @ B A " T @ W @ A 2 A .P @ j_2 .T 4 0 P j pP _ @ j . d 0 @ @ @ P d 0 @ A B b 9 Y 4>a Y t c x
0x053a40…053bd4 (1, 105) Dummy {f00=0x009c, f01=0x0190, f02=» A A P@ @ PB z z d . @ ! T A @ A # A . & RE RN ME MN W R, ( T ( W P T $ ; V ; W~&~ P &`P 6 P @ $ P $W $ TR PJ#~ > V . >A P Y X W ^ ? ?
0x053bd4…053d68 Dummy {f00=0x009c, f01=0x0190, f02=» " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A ^ @ ? ? > > > > > > > @ > ? ? ? ? ? ? ? A > A >
0x053d68…053efc Dummy {f00=0x009c, f01=0x0190, f02=» 0:D A z_* A " A A b P & T A A " @ R _U . r " A >: D A > " A Z A ^ b$ T ! " A @ BT 0W 0W A @ BT 1W 1 @ " P& A UT @ W T @ W T @ W @ " " ? ?
0x053efc…054090 Dummy {f00=0x009c, f01=0x0190, f02=» ! R :W" r W r W W ?W /W : A W ! A A PL _ @ _ I T " T A P I T$! A A A A A A A A J A A @ A @ > @ _ . I d 0R> M A P6 T @
0x054090…054224 Dummy {f00=0x009c, f01=0x0190, f02=» H ( ( P c P W: P, A3$ V ( U P" @F V LF W @F U > 3B A A Q > ? @ AG A v b A tQ _8 A t < Q n P n Q n Z Y _ 8 3* Q Z P 0 9 _ _, ? _ P H
0x054224…0543b8 Dummy {f00=0x009c, f01=0x0190, f02=» A < _ _ ^ 3" $P T I R $ 5 % > ? 2W ? W ? T T$ U U U U T U U > > > 4 T - 1_( U T P 0 U _t ? @2 T 0 A2 1 Q Q > > 0 @2 1 A2 P P > ? * X
0x0543b8…05454c Dummy {f00=0x009c, f01=0x0190, f02=» @ P $ H W W > > > > > > @F V ? F > _ > ? _ > > ? ^ ! Y ^ _ ? A. $ ( , 0 4 8 < #M 1 3 J B B 3 J B B 3 J#B#B 3 J B B pU
0x05454c…0546e0 Dummy {f00=0x009c, f01=0x0190, f02=» H !@T I 3B T ! 1 U 3> A ? W A ? W A ? W A ? W U 3B R ; V # T L p # PR T RR P 4 ] P $ P ] U x PB P: P0 P, R 4T ] U p X "0Tn
0x0546e0…054874 (1, 106) Dummy {f00=0x009f, f01=0x0190, f02=» 9BR W Y T # p Y R U T ] W 8V X $P y $W $ FJ P 8R 3B Y $ X Z ;BR 8% =A Y T Z& _, X ' X 8V ( 4XB XH U T T U 5 U R " ] 3B ;h # <c$
0x054874…054a08 Dummy {f00=0x009f, f01=0x0190, f02=» <d$ _F $?:D" Y X P Y # P ( 4T U # P 4 4 P _t T _$ U _ 4 U 5 ? R PF "P2 R T T R X # X > P P P X XF _H Wr ? T T FJ W u > > E D E
0x054a08…054b9c Dummy {f00=0x009f, f01=0x0190, f02=»_8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< T W T ] _ P T V Wt 8V T P U 8 ~ U P S WH X H 5 U R" T 8V T P
0x054b9c…054d30 Dummy {f00=0x009f, f01=0x0190, f02=» U t " D P D T U W _ U 4XR XX 5 _b Y Y Y X 9BV$ X & Y " X D V D X T 8TV 9WD B 7P P 3: A3 W A3 @3 A.W ? A I.9 X R C C D 3B ?A @3 A. X V
0x054d30…054ec4 Dummy {f00=0x009f, f01=0x0190, f02=»_8 X XB Y X X X X Pz Pb 1P P W P 5P 3: 3B B 9 #:P. @2 2 3: @2 `2 @2 P 0P _ % A2 A2 D _F B ,Q< n _Z X P 0 Y P C DP_| J_ B Y _N 3> X P A FH d Y Wb Y @_x X X A
0x054ec4…055058 Dummy {f00=0x009f, f01=0x0190, f02=» (X( P _ 0 )_6 (P _ ) 1 4 #: X R2 X T* X P& , Y L C L C DP > @ R @ N @ P A PX D _" X P y Y X P T @ T A A > A A A A A W > X
0x055058…0551ec Dummy {f00=0x009f, f01=0x0190, f02=» P " J !"B _ !"B T #: " X !" _ !# @ P @ P ! A A _ !# @ P @#hX< ! T A ! !" X _4 A @#h @ T PP A @ #:P2 X R, X T$ P C C DPW D W ! ! _ !# @ T @ P !
0x0551ec…055380 Dummy {f00=0x009f, f01=0x0190, f02=» @ X @ P ! ! _ A 8 A @ T _( _, @ T8W @#hT ! _ ! 4 ! _ A A E A A 4 @ P ! !" !" W @ TT ! _ T _ A )n C D( B B A A A A A ! !" A _ _T @ P6 X R0 X P T$ T Y
0x055380…055514 (1, 107) Dummy {f00=0x009f, f01=0x0190, f02=» 1 A @ ,]6W P _@ @#h @ E !#$P !! 4 _$ !#$ 2_l 1 A T 0W W A A W W W A A !!v @ !" @ !" !! !! B J !* 4 !!v !! @ @ A @ T @#: !" 8 !" 0 " ~T }T T !" A @ @ U
0x055514…0556a8 Dummy {f00=0x009f, f01=0x0190, f02=» ? _ I !* " P A AG A R 4 A _,B P AG W !* 3B" * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @2 `2 A"@ @2 P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT " AG @#:P FH" 3B @ A N " 3B A N j a V
0x0556a8…05583c Dummy {f00=0x009f, f01=0x0190, f02=» # #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A @ T @ ! 8 ! 0 " ~T }T T ! A @ @ U
0x05583c…0559d0 Dummy {f00=0x009f, f01=0x0190, f02=» ? _ I ! " P A A A R 4 A _,B P A W ! " * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @ ` A"@ @ P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT A @ P " @ A N A N j a V
0x0559d0…055b64 Dummy {f00=0x009f, f01=0x0190, f02=» #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A @ T @ ! 8 ! (: " ~T }T T ! A @ @ U
0x055b64…055cf8 Dummy {f00=0x009f, f01=0x0190, f02=» ? _ I ! " P A A A R 4 A _,B P A W ! " * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @ ` A"@ @ P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT A @ P " @ A N A N j a V
0x055cf8…055e8c Dummy {f00=0x009f, f01=0x0190, f02=» #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A @ T @ ! 8 ! (: " ~T }T T ! A @ @ U
0x055e8c…056020 Dummy {f00=0x009f, f01=0x0190, f02=» ? A2 W A2 W P& A2 A2 @* - 2 R * A* @2 @2 4* " * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @ ` A"@ @ P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT A @ P " @ A N A N j a V
0x056020…0561b4 (1, 108) Dummy {f00=0x009f, f01=0x0190, f02=» #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A @ T @ ! 8 ! (: " ~T }T T ! A @ @ U
0x0561b4…056348 Dummy {f00=0x009f, f01=0x0190, f02=» ? A W A W P A A @ - R A @ @ 4 " * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @ ` A"@ @ P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT A @ P " @ A N A N j a V
0x056348…0564dc Dummy {f00=0x009f, f01=0x0190, f02=» #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A @ T @ ! 8 ! (: " ~T }T T ! A @ @ U
0x0564dc…056670 Dummy {f00=0x009f, f01=0x0190, f02=» ? A W A W P A A @ - R A @ @ 4 " * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @ ` A"@ @ P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT A @ P " @ A N A N j a V
0x056670…056804 Dummy {f00=0x009f, f01=0x0190, f02=» #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A 2 2
0x056804…056998 Dummy {f00=0x009f, f01=0x0190, f02=» ) A3$ P* P Y U ( ) 5 & > > [ [ 3$ Z Z Z ? Z > 3 5 Y U R -P 5 X , ) Y . 5 X " PP:A: R Q W Y <D X ? ?: T p > 6 > Pb P C 5 B 5 T B % X . $ 4 T
0x056998…056b2c Dummy {f00=0x009f, f01=0x0190, f02=»P> Y (P Y )P 6 R _Q P OR R W " ! : B 3 Wr W 0 Z 6 ! : B Z Z& X . 0T N W X ,P Y . 0 %_. % Y . W _p P 6 _ C ! 6 3>" 64 QPR X R(;GV$ 6 P8 X R2;GV. X " 3 X , $4 P
0x056b2c…056cc0 Dummy {f00=0x009f, f01=0x0190, f02=»P R P 9 W4 _ _ _ _ %0=c X 0P > 0 P > >_ P > _| B 1 > NT 0 _ , 6 8H8 8j PB P8 3: B P B L # +P ! T ! T T ! T Y & ! TW ! T ! TW ! T Y Y 8 U P" T Y &
0x056cc0…056e54 (1, 109) Dummy {f00=0x009f, f01=0x0190, f02=» Y _ " _ ! T ! T 7 D 3B X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P f " T X _~ R0 V0 ! P* P P P" R ?Q ! T Y R Q 7 f -_ ? _ X # ! T ^ Y _( ? X Z !
0x056e54…056fe8 Dummy {f00=0x009f, f01=0x0190, f02=» 3: Y X T FJ9 Y 9 X 8"@P Y W: Y W2 X P y @ 9_. Y WP Y Y W Y Y X Y 8# T W$ T( X $ P X P B V *@ Y 3B 3> ? X _F , : ?"=*=<= < ! T 8! P ! T P P < & ; 3: B
0x056fe8…05717c Dummy {f00=0x009f, f01=0x0190, f02=» < X " E: P( 8'0P E: TJ ! T 9 _z ! T @_ ! B P 8' T( !> B C < ^T PR RF ?] _ X X &" X )# C V C ! T Y B ! T Y _` C _ " $ P X ' X ] ! T = : B 8!
0x05717c…057310 Dummy {f00=0x009f, f01=0x0190, f02=» ! T W Y &_ Y & B Y )U X ) T T W V X ' Y )U P"R ! T_ R _ ! T Y ' : " ! T 8!0T 8 !@P ! T$ P ! T ! T = ! T T Y & T X & C D 3B X Y & Y > X " X &" Y )Q Y > X Z2<BR J ?
0x057310…0574a4 Dummy {f00=0x009f, f01=0x0190, f02=» !> : R V P P" ! T = W = f X $ X !> _ X $ X 8! P !> _( X & !> !> Y _D X " X &" Y )U W ! T ! T ! T Y 4 B : U )X R@ X X &" Y * X ) V Y !> X $ X & !> X * :
0x0574a4…057638 Dummy {f00=0x009f, f01=0x0190, f02=»B B B B B C B C B C C B C C B B B D $ ( , 0 4 8 < ( H T ? 0 ) $P $ ) U @ C @?L @ ? 0P P > ? ? ? ? ? P q 0 ) > > > >_* 3 Z8 0P R I W @ _" H P ? 4 I >
0x057638…0577cc Dummy {f00=0x009f, f01=0x0190, f02=»3 T ? W @ C 8W T 8P Y ^ 5 ) P U 3B $ XH ' X X #DP @ b P X l T _| Xv Y @ P< 3 T W0 X &P* T P H T _ X I Y T # C C W4 O
0x0577cc…057960 Dummy {f00=0x009f, f01=0x0190, f02=»B0P ?( " 2 X $? PBB$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ B P0 B P* 0$ T # R QL C4 >
0x057960…057af4 (1, 110) Dummy {f00=0x00a0, f01=0x0190, f02=» C > X H UJ H B P PL $ # Q > P _0 # T p > P p (_H _2 B U X C4 > ? _ X T (@ C ^ > > ? _ X T X X T % T ?C L Rl D _@(@ L U L Q0 M
0x057af4…057c88 Dummy {f00=0x00a0, f01=0x0190, f02=» X P* T #DP 0P X T ? 4 Y > X 3 X T X 3 1 1 X P - M T $ PD _ T " # p X L R P B*P (@ ?: ^ X P8 P0 # P T P 0P 1 _ lW > Y > > T F FHF4 3B
0x057c88…057e1c Dummy {f00=0x00a0, f01=0x0190, f02=»P 9 > > &@ G G H H E H"H H I> I I H H "x F F 0123456789 F G.G^G G^G 0123456789 & p 0123456789 * +,-. 0123456789 `ABCDEFGHI
0x057e1c…057fb0 Dummy {f00=0x00a0, f01=0x0190, f02=» Y W 3B Pl > T Pb t_ <UR "R4 $ PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U 9C @ _ T M D
0x057fb0…058144 Dummy {f00=0x00a0, f01=0x0190, f02=» X P Y X H P D r < ? < ? <(@ J2 $ P B $ 9H C ">h # P >_2 < U = r (@ " $ P B >H<h JH P ?_" = > = > = =_D R _ 00 > & <h$ P > ($SWAP A A A
0x058144…0582d8 Dummy {f00=0x00a0, f01=0x0190, f02=» A JZ : R W2 A PB AR PB P. O _ " :c* A P Q&W " :d2 * A P P & W F ` W F W F CRT F A @ @ ! P2 @ P T(;b=H F CR L F L W =J F CRTT F PN A @ $ P( @ R W 8 !RRT W
0x0582d8…05846c Dummy {f00=0x00a0, f01=0x0190, f02=» Y P @ T W - T&P _ T <B :L A W A A W T& T F W V T( = V W Y* P Z( = :L < P W <9B @ V W Q T( W
0x05846c…058600 Dummy {f00=0x00a0, f01=0x0190, f02=» P W _: S S R V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W PB PB P O PB TJ V 0 !;;P P V P$ _ P !;;T X$ W T8
0x058600…058794 (1, 111) Dummy {f00=0x00a0, f01=0x0190, f02=» !;;T X$ W T8 nP XZ_V S AQ AQ Ql @ R @ ! T AQ@ AQT V @ R V V I T8 W V $ ) H A I. : P: C. O X C.9h! P: P:# " P: P: :A K : A T.I T
0x058794…058928 Dummy {f00=0x00a0, f01=0x0190, f02=»9A ! 9B r @JZr A I ! ( : Q& AR AO" AQr AQ AQ@! T AQD AQ@ I ! : 9E @JZr s A I T ) A _ I N T : T( Qr Q 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P _` @ T
0x058928…058abc Dummy {f00=0x00a0, f01=0x0190, f02=» X W : @ ' R xW V W$ V P P R W P V V T R V T W P V W @ $ P p W T8 T : AR^ R _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T
0x058abc…058c50 Dummy {f00=0x00a0, f01=0x0190, f02=» j AO" A A A ! T A W Z A. c @ V W U T( R $ )_ : W W W W W W Q@ V V v x W V V v p R( W V
0x058c50…058de4 Dummy {f00=0x00a0, f01=0x0190, f02=» _ V U Z K W W :K W r W Q R t W V T( Td v : V W V T( ) : V <B W |P v v : $ T V |P v w v : V $ V l $ T V M : W
0x058de4…058f78 Dummy {f00=0x00a0, f01=0x0190, f02=» R R W P U U W x V4 X _ V : " D Pd W V PL $;A^ D E D P. V T(P T( P T T( E _J T E _T " D T E T E D E % : " R ;B T " R P( |P v v
0x058f78…05910c Dummy {f00=0x00a0, f01=0x0190, f02=» : : , X G : J @ 0 V @ T( 0 H W : ? ? R 0 R P P B t _ 3& : V ) X* v : 4P: " D XP , H H $ M v b - I Y0 : @ ` V b
0x05910c…0592a0 Dummy {f00=0x00a0, f01=0x0190, f02=»Wd = G $ V V W $ V V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U
0x0592a0…059434 (1, 112) Dummy {f00=0x00a0, f01=0x0190, f02=» Y& P4 2 2 S P 3 _ 2 3 2 B A. @ D @ W x A : A 3B > l : W R U W n V pT : N V l W H V ]" . nT" V W v U W n V ~P
0x059434…0595c8 Dummy {f00=0x00a0, f01=0x0190, f02=»U v G v : W P U W V X : V U V ~P B W x V4_$ 8 V V x % V v % : V V Td 9k! P % _ V V W W r X* W V T v ) W b G T v ) - V T W f v ) G v
0x0595c8…05975c Dummy {f00=0x00a0, f01=0x0190, f02=» V W % [ R , X T " E R W ~ R R P ^h R Xv ^h_|W W T : U V W x V4 X _ V P XP I X W z ` pPl XF H - V X* I V " R X E R T E D E @ v H v E
0x05975c…0598f0 Dummy {f00=0x00a0, f01=0x0190, f02=» : .=H N _` X .=H N _` X N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ W R T( - @ - N !TTP T( N :H N TBT W W8 2 " T @ T(
0x0598f0…059a84 Dummy {f00=0x00a0, f01=0x0190, f02=»V T( _ R :h " _ YV : v `?A @ W W :b / W : W @ W D X V W W ` " W p @ pP. " 4X 1 R Z0
0x059a84…059c18 Dummy {f00=0x00a0, f01=0x0190, f02=» 8 W W t V V : x A JZ o o@P b W r o@ b W @ @ % n V , P@ , - 4 ] 4 W Y 5 X * _6 : @ 2 ] @ P @ P " P " P " P W W . !TT
0x059c18…059dac Dummy {f00=0x00a0, f01=0x0190, f02=» #F c : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T T( : @ :B W . !TTP T( n W t N =H N W l N =H N nP W p N =H N _` W | ( @ % P W @ % P
0x059dac…059f40 Dummy {f00=0x00a0, f01=0x0190, f02=» _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P _z !TTT d S& @ @ T T( : @ ! P @ @ n CRT 3 @ n n S @
0x059f40…05a0d4 (1, 113) Dummy {f00=0x00a0, f01=0x0190, f02=» : 2 ` @ P g:_ g: 3 S S V V W @ @ T T( : P S S _ : . !TTP T( V n W t * n P n0 r _ n" Ph W p n0 W V 8 8
0x05a0d4…05a268 Dummy {f00=0x00a0, f01=0x0190, f02=»T( : hz @ R @ T T( P / _ T @ A V W n W t n PT W f ( n0 W d n@ n| G =h G V d V r < k2 V f P W f _B V W V t Yr _z !TTX @ @
0x05a268…05a3fc Dummy {f00=0x00a0, f01=0x0190, f02=» P, n0 V 4 U T( $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W n P0 W f n0 W d n@ V d V r < k2 V f _2 n" U^ n0 V 8 8 8 4 D P$ T8 @ # P H
0x05a3fc…05a590 Dummy {f00=0x00a0, f01=0x0190, f02=» l V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W Jj V W R 9 W D T8 ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @ % PD H I H T P( H
0x05a590…05a724 Dummy {f00=0x00a0, f01=0x0190, f02=»WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P
0x05a724…05a8b8 Dummy {f00=0x00a0, f01=0x0190, f02=» _` : F =H F _` : F =H F _` : P N =H N T n _z_ : 00=H 00 P P _ _ : @ ! P (W ( : c* c d^ f f gT hT id m @ n CRT" @ ! P ` @ E "W ` @ E " o$o6 o 0p @
0x05a8b8…05aa4c Dummy {f00=0x00a0, f01=0x0190, f02=» o F W # T pp o o 46 GP p2 *T P 29 DI pd ?O_o 8: DY p % (
0x05aa4c…05abe0 Dummy {f00=0x00a0, f01=0x0190, f02=» 8: DY qN : P T n _z_ : 00=H 00 P P _ _ : @ ! P (W ( : c* c d^ f f gT hT id m @ n CRT" @ ! P ` @ E "W ` @ E " o$o6 0 @
0x05abe0…05ad74 (1, 114) Opaque[0x194]
0x05ad74…05af08 # DirEnt {nam=»UNPACK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0398, f03=0x0000}
0x05ad74…05af08 IdxSect {
0x05ad74…05af08 f00 = 0x001c // 0x5ad74 @0x0
0x05ad74…05af08 f01 = 0x002c // 0x5ad76 @0x2
0x05ad74…05af08 gno = [ // 0x5ad78 @0x4
0x05ad74…05af08 [0x00]: C0x001c.0x3.0
0x05ad74…05af08 [0x01]: C0x0023.0x0.0
0x05ad74…05af08 [0x02]: C0x0049.0x3.0
0x05ad74…05af08 [0x03]: C0x004d.0x1.0
0x05ad74…05af08 [0x04]: C0x005d.0x2.0
0x05ad74…05af08 [0x05]: C0x006a.0x3.0
0x05ad74…05af08 [0x06]: C0x006c.0x2.0
0x05ad74…05af08 [0x07]: C0x006d.0x0.0
0x05ad74…05af08 [0x08]: C0x006f.0x0.0
0x05ad74…05af08 [0x09]: C0x0070.0x3.0
0x05ad74…05af08 [0x0a]: C0x0072.0x0.0
0x05ad74…05af08 [0x0b]: C0x0073.0x2.0
0x05ad74…05af08 [0x0c]: C0x0078.0x0.0
0x05ad74…05af08 [0x0d]: C0x007d.0x2.0
0x05ad74…05af08 [0x0e]: C0x0087.0x3.0
0x05ad74…05af08 [0x0f]: C0x0088.0x0.0
0x05ad74…05af08 [0x10]: C0x0088.0x1.0
0x05ad74…05af08 [0x11]: C0x0088.0x2.0
0x05ad74…05af08 [0x12]: C0x0089.0x0.0
0x05ad74…05af08 [0x13]: C0x0089.0x3.0
0x05ad74…05af08 [0x14]: C0x008c.0x2.0
0x05ad74…05af08 [0x15]: C0x008e.0x2.0
0x05ad74…05af08 ]
0x05ad74…05af08 }
0x05af08…05b09c Dummy {f00=0x001c, f01=0x0190, f02=» P IDENT UNPACK 811016-NJ L P $ L P t L P********************************************************************
0x05b09c…05b230 Dummy {f00=0x001c, f01=0x0190, f02=»THE DSB PLADS RES. APPL. * d L P* CALLING SEQUENCE: * $ L P* * t L P* CALL UNPACK,WORK,INBUF,INLEN,OUTBUF,OUTLEN,FLDTAB,DSDY,DSGP
0x05b230…05b3c4 Dummy {f00=0x001c, f01=0x0190, f02=» * d L P* WORK, BINARY ARRAY OF 12 ELEMENTS (SCRATCH AREAS) * $ L P* INBUF, STRING ITEM, INPUT BUFFER * t L P* INLEN, BINARY ITEM, INPUT BUFFER LENGTH
0x05b3c4…05b558 Dummy {f00=0x001c, f01=0x0190, f02=»H * d L P* FLDTAB, BINARY ARRAY (21 X 4), DESCRIPTION OF INPUT FIELDS * $ L P* DSDY, DATA SET, FOR PDU 6386 * t L P* DSGP, DATA SET, FOR GTP 6221, (MODIFIED DK PAPER OUT)
0x05b558…05b6ec Dummy {f00=0x001c, f01=0x0190, f02=» * d L P* * $ L P* INBUF, INLEN * t L P*
0x05b6ec…05b880 Dummy {f00=0x001c, f01=0x0190, f02=» * d L P* OUTBUF, OUTLEN, FLDTAB * $ L P* DISPLAYED BUFFER, PRINTED FORM * t L P*
0x05b880…05ba14 (1, 115) Dummy {f00=0x0023, f01=0x0190, f02=» d L P $ L P t L P
0x05ba14…05bba8 Dummy {f00=0x0023, f01=0x0190, f02=» * d L P* ENTRIES AND EXTERNAL REFERENCES * $ L P* * t L P********************************************************************
0x05bba8…05bd3c Dummy {f00=0x0023, f01=0x0190, f02=» d & P ENTRY FLASH COMMAND FROM KB TASK $ L P N L P EXTRN I:EVA0,T:FDSP ROUTINES TO PICK UP PARAMETERS , P EXTRN I:RT1 ROUTINE TO RE
0x05bd3c…05bed0 Dummy {f00=0x0023, f01=0x0190, f02=» X L P L P h L P************************************************************************ L P
0x05bed0…05c064 Dummy {f00=0x0023, f01=0x0190, f02=» * X L P* * L P************************************************************************ h L P L P
0x05c064…05c1f8 Dummy {f00=0x0023, f01=0x0190, f02=» X N PSI EQU /0F0F SHIFT IN N PLF EQU /0A0A LINE FEED l N PCR EQU /0D0D CARRIAGE RETURN
0x05c1f8…05c38c Dummy {f00=0x0023, f01=0x0190, f02=» ` L PPOINT EQU /AE POINT CHAR. " N PPRTCHR EQU /3A3A PRINT INDICATOR = : r " PLFCHR EQU /0A LINE FEED FOR GP * PMLF2 EQU /3C3C MULTIPLE LINE F
0x05c38c…05c520 Dummy {f00=0x0023, f01=0x0190, f02=» j ( PACK EQU /2B PRINTER ACKNOWLEDGEMENT " PNAK EQU /3E PRINTER NEG. " 4 , PPNTCHK EQU /AEAE POINT IN PRINTER BUFFER Z PDKOE1 EQU /4040 PDKAE1 EQU /2323 PDKAA1 EQU /2424 . PCHRFD1 EQU /0909 NONDESTRUCTIVE SPACE FWD PDKOE
0x05c520…05c6b4 (1, 116) Dummy {f00=0x0049, f01=0x0190, f02=» n L P* PTS 6386 CONTROL CHARACTERS * . L P ~ L PCURLFT EQU /08 CURSOR LEFT
0x05c6b4…05c848 Dummy {f00=0x0049, f01=0x0190, f02=» HOME n L PCURRGT EQU /10 CURSOR RIGHT . L PSETCUR EQU /11 SET CURSOR POSITION ~ L PXADR0 EQU /20 LINE POSITION = 0,(OFF-SCREEN)
0x05c848…05c9dc Dummy {f00=0x0049, f01=0x0190, f02=» n L PCUROFF EQU /16 CURSOR OFF . L PCRBLNK EQU /17 CURSOR BLINK ~ L PCRSTDY EQU /18 CURSOR STEADY
0x05c9dc…05cb70 Dummy {f00=0x0049, f01=0x018e, f02=» n $ PSTATUS EQU /80 TEST STATUS ORDER " PDCWRT EQU /86 WRITE WITH WAIT 0 L P EJECT V L P L P
0x05cb70…05cd04 Dummy {f00=0x0049, f01=0x0190, f02=» F L P* * L P* WORK AREA DISPLACEMENTS, (POINTERS) * X L P* * L P****************
0x05cd04…05ce98 Dummy {f00=0x0049, f01=0x0190, f02=» H L PINBUF EQU 0 START OF WORK AREA. INBUF L PINLEN EQU INBUF+2 LENGTH OF INBUF X L POUTBUF EQU INLEN+2 OUTPUT BUFFER L POUTLEN EQU OUTBU
0x05ce98…05d02c Dummy {f00=0x0049, f01=0x0190, f02=» H L PDYECB EQU FLDTAB+2 DISPLAY EVENT CONTROL BLOCK L PGPECB EQU DYECB+2 PRINTER EVENT CONTROL BLOCK X " PPRINT EQU GPECB+2 PRINT FLAG 4 PDCECB EQU PRINT+2 DATA-COMM EVENT CONTROL BLOCK $ PWO
0x05d02c…05d1c0 Dummy {f00=0x0049, f01=0x018e, f02=»SITIONS f P* & P* WORK AREA FOR FLASHING FIELDS P* D & PFLATAB EQU CURSAV NUMBER OF FIELDS N PFLACUR EQU 0 CURSOR POSITION x * PFLINPO EQU 2 POSITION IN INPUT BUFFER " PFLALEN EQU 4 LENGTH OF FIELD , PBLANKS EQU FLATAB+62 BUF
0x05d1c0…05d354 (1, 117) Dummy {f00=0x004d, f01=0x0190, f02=» PECBEL EQU 6 PECBRC EQU 8 PECBCW EQU 10 4 L P EJECT J L P L P
0x05d354…05d4e8 Dummy {f00=0x004d, f01=0x0190, f02=» * L P* UNP000 * J L P* MAIN MODULE * L P* CALLS SUB-MODULES, UN
0x05d4e8…05d67c Dummy {f00=0x004d, f01=0x0190, f02=» ENTRY : UNPACK = UNP000 * L P* EXITS VIA ABL I:RT1 * J L P* * L P******************************
0x05d67c…05d810 Dummy {f00=0x004d, f01=0x0190, f02=» L PUNPACK EQU * J L PUNP000 EQU * L P CF A14,UNP100 GET PARAMETERS
0x05d810…05d9a4 Dummy {f00=0x004d, f01=0x0190, f02=»FORMED. L P J L P L P CF A14,UNP200 MOVE AND CONVER
0x05d9a4…05db38 Dummy {f00=0x004d, f01=0x0190, f02=» L P J L P CF A14,UNP300 WRITE BUFFER TO DISPLAY, THIS L P ROUTINE CONTAINS THE LKM...
0x05db38…05dccc Dummy {f00=0x004d, f01=0x018e, f02=»NG TO PRINT? z P RF(NZ) UNP060 YES L P . L P ~ L P CF A14,UNP400 BUILD INPUT FIELD TABLE
0x05dccc…05de60 Dummy {f00=0x004d, f01=0x0190, f02=» n . P RF(Z) UNP090 NO, IT'S A TEST OR SOMETHING , P LD A2,WORK2,A4 IS IT AN ERROR MESSAGE? : $ P RF(N) UNP090 YES, SKIP THE REST j L P L P CF A14,UNP500 COPY INPUT FIELDS TO DC
0x05de60…05dff4 (1, 118) Dummy {f00=0x005d, f01=0x0190, f02=»URN L P L P PUNP060 EQU * * P CF A14,UNP600 FILL IN TICKET / FORM. L P
0x05dff4…05e188 Dummy {f00=0x005d, f01=0x0190, f02=»F A14,UNP700 PRINT TICKET / FORM P ( . P CF A14,UNP800 ACKNOWLEDGE PRINT OPERATION 4 P RF UNP090 f P z PFLASH EQU * P CF A14,KBFLSH FLASH COMMAND L P
0x05e188…05e31c Dummy {f00=0x005d, f01=0x0190, f02=»DING r P EJECT 2 L P************************************************************************ H L P* * L P*
0x05e31c…05e4b0 Dummy {f00=0x005d, f01=0x0190, f02=» UNP100 * L P* * ! H L P* * ! L P*
0x05e4b0…05e644 Dummy {f00=0x005d, f01=0x0190, f02=»QU * ! L P CF A14,I:EVA0 GET POINTER TO WORK AREA " L P LDR A4,A9 PUT IT IN A4 AS BASE REGISTER " L P " L P CF A14,I:EV
0x05e644…05e7d8 Dummy {f00=0x005d, f01=0x0190, f02=» " L L P # L P CF A14,I:EVA0 GET BUFFER LENGTH ADDRESS # P LD A5,0,A9 GET LENGTH # L P ST A5,INLEN,A4 PUT IT IN WORK AREA
0x05e7d8…05e96c Dummy {f00=0x005d, f01=0x0190, f02=»RESS # l L P ST A9,OUTBUF,A4 PUT IT IN WORK AREA $ , L P $ | L P CF A14,I:EVA0 GET OUTPUT BUFFER LENGTH ADDR.
0x05e96c…05eb00 Dummy {f00=0x005d, f01=0x0190, f02=»A14,I:EVA0 GET INPUT FIELD TABLE ADDRESS $ L P ST A9,FLDTAB,A4 PUT IT IN WORK AREA % L L P % L P CF A14,T:FDSP GET DISPLAY E
0x05eb00…05ec94 (1, 119) Dummy {f00=0x006a, f01=0x0190, f02=» % L P CF A14,T:FDSP GET PRINTER ECB ADDRESS & L L P ST A8,GPECB,A4 PUT IT THERE ALSO & " P CF A14,I:EVA0 GET PRINT FLA
0x05ec94…05ee28 Dummy {f00=0x006a, f01=0x0190, f02=»A & n & P CF A14,I:EVA0 GET ACK/NAK BUFFER ' P ST A9,2,A8 SAVE IN ECB ' 4 L P ' T P RTN A14 ' P EJECT ' L P************************************************************
0x05ee28…05efbc Dummy {f00=0x006a, f01=0x0190, f02=» * ' l L P* * ( , L P* UNP200 * ( | L P*
0x05efbc…05f150 Dummy {f00=0x006a, f01=0x0190, f02=» * ( l L P************************************************************************ ) , PUNP200 EQU * ) | * P LDK A1,1 SET LINE POS. COUNTER TO ONE ) 6 P LDKL A9,/0100 SET THE LINE COUNTER TO FIRST LINE ) . P LDKL A10,CURSAV
0x05f150…05f2e4 Dummy {f00=0x006a, f01=0x018e, f02=» ) J P LDKL A5,300 FIXED LENGTH * L P LD A8,DYECB,A4 * , L P LD A6,ECBBA,A8 * | " P LDR A1,A6 TEST FOR BUFFER END * P ADKL A1,300 * $ P
0x05f2e4…05f478 Dummy {f00=0x006a, f01=0x0190, f02=» * t P CWR A6,A1 END OF BUFFER ? + P RF(G) UNP204 YES, FINISHED + , P RB UNP202 NO, CONTINUE + P PUNP204 EQU * + p * P LD A6,ECBBA,A8 RESTORE BUFFER ADDR. + , P LDK A1,1 SET LINE POS. COUNTER TO ONE + & P ADK A6,1 OFF-SET FOR CURSOR HOME +
0x05f478…05f60c Dummy {f00=0x006a, f01=0x0190, f02=»QU * + L P LCR A2,A3 CHECK CHARS. TO BE REMOVED OR , H L P CCK A2,NULL CONVERTED , L P RF(E) UNP235 NULL.
0x05f60c…05f7a0 Dummy {f00=0x006a, f01=0x0190, f02=» CCK A2,DKAA1 , P RF(E) UNP238 - P CCK A2,CHRFD1 - , P RF(E) UNP239 - B L P CCK A2,SI - X L P RF(E) UNP240 SHIFT IN - L P CCK A2,SO
0x05f7a0…05f934 (1, 120) Dummy {f00=0x006c, f01=0x0190, f02=» - H L P . L PUNP210 EQU * . X L P CCK A2,CR CHECK CONTROL CHARACTERS . L P RF(E) UNP225 CA
0x05f934…05fac8 Dummy {f00=0x006c, f01=0x0190, f02=» . H L P RF(E) UNP230 LINE FEED / ( P CCK A2,PRTCHR SEE IF IT'S A TICKET / X $ P RF(E) UNP234 YES, SET INDICATOR / L P / L PUNP215 EQU *
0x05fac8…05fc5c Dummy {f00=0x006c, f01=0x018e, f02=» / L L P ADK A6,1 UPDATE POINTERS 0 L P ADK A1,1 0 L P SUK A1,41 CHECK FOR END OF LINE 0 L P RF(N) UNP22
0x05fc5c…05fdf0 Dummy {f00=0x006c, f01=0x0190, f02=» 0 t P RF(G) UNP290 YES, FINISHED 1 L P LDKL A2,CRLF END OF LINE, INSERT LINE FEED 1 , L P SCR A2,A6 AND CARRIAGE RETURN 1 | L P ADK A6,1
0x05fdf0…05ff84 Dummy {f00=0x006c, f01=0x0190, f02=» 1 l L P ADK A6,1 UPDATE POINTERS 2 , L P LDK A1,1 2 | L P RF UNP250 CHECK END OF PROCESSING
0x05ff84…060118 Dummy {f00=0x006c, f01=0x0190, f02=» 2 l L P ADK A1,41 RESTORE POINTER VALUE 3 , L P RF UNP250 CHECK END OF PROCESSING 3 | L P
0x060118…0602ac Dummy {f00=0x006c, f01=0x0190, f02=» 3 l L PUNP230 EQU * 4 , ( P LDK A1,0 LINE FEED IN BUFFER RESET 4 | P ADKL A9,/0100 ADD A LINE 4 " P LDKL A2,CRLF IT'S A NEW LINE 4 P SCR A2,A6 STORE IT IN O
0x0602ac…060440 Dummy {f00=0x006c, f01=0x0190, f02=»G TO PRINT 4 x P RB UNP215 5 L P 5 & L PUNP235 EQU * 5 v L P LDK A2,POINT NULL CHAR. REPLACE WITH POINT
0x060440…0605d4 (1, 121) Dummy {f00=0x006d, f01=0x0190, f02=» RB UNP215 5 PUNP237 EQU * 6 P LDK A2,DKAE2 6 & P RB UNP215 6 < PUNP238 EQU * 6 N P LDK A2,DKAA2 6 b P RB UNP215 6 x PUNP239 EQU * 6 P LDK A2,CHRFD2 6 P RB UNP215 6 L P
0x0605d4…060768 Dummy {f00=0x006d, f01=0x0190, f02=»T A9,2,A10 PUT IT IN SAVE AREA 6 * P ADKL A10,2 MOVE POINTER TO NEXT ENTRY 7 & . P ANKL A9,/FF00 CLEAR LINE POS. FOR COUNTER 7 T L PUNP245 EQU * 7 & P* "SI" OR "SO", SKIP 'EM 7 L P
0x060768…0608fc Dummy {f00=0x006d, f01=0x0190, f02=» 7 P L P ADK A3,1 UPDATE INPUT POINTER 8 L P ADK A7,1 CHECK IF END OF INPUT 8 ` L P SUR A7,A5 BUFFER 8 " P RF(NN)
0x0608fc…060a90 Dummy {f00=0x006d, f01=0x0190, f02=»TER 8 v PUNP285 EQU * 9 6 " P SUK A3,1 GO BACK ONE POSITION 9 L , P LCR A2,A3 GET LAST CHARACTER IN BUFFER 9 r & P CCK A2,PRTCHR SOMETHING TO PRINT? 9 P RF(NE) UNP290 NO, RETURN 9 * P ST A2,WORK1,A4 SET PRINT
0x060a90…060c24 Dummy {f00=0x006d, f01=0x0190, f02=»V PUT THE NUMBER OF INPUT FIELDS 9 P ADR A9,A4 IN THE SAVE AREA : * P SUR A10,A9 : N 4 P ST A10,CURSAV,A4 SAVE IT,(2X NUMBER OF FIELDS) : b P RTN A14 RETURN TO CALLER.. : P EJECT : L P****************************************************
0x060c24…060db8 Dummy {f00=0x006d, f01=0x0190, f02=» * : t L P* * ; 4 L P* UNP300 * ; L P*
0x060db8…060f4c Dummy {f00=0x006d, f01=0x0190, f02=» * ; t L P************************************************************************ < 4 PUNP300 EQU * < * P LD A8,DYECB,A4 GET ECB ADDRESS IN A8 < * P LD A1,ECBBA,A8 COMPUTE BUFFER LENGTH < * P LDK A2,CURHOM AND I
0x060f4c…0610e0 Dummy {f00=0x006d, f01=0x0190, f02=»T IN ECB < ~ $ P LDK A7,BASWRT GET ORDER IN A7 = P* = 8 P* = B P LKM EXECUTE I-O = L P DATA 1 = f P RTN A14 = x P EJECT = L P************************************************************************ = L P*
0x0610e0…061274 (1, 122) Dummy {f00=0x006f, f01=0x0190, f02=»* * = L P* UNP400 * > P L P* * > L P*
0x061274…061408 Dummy {f00=0x006f, f01=0x0190, f02=»************************************************************************ > PUNP400 EQU * ? P ( P CM WORK2,A4 CLEAR ERROR MESS. FLAG ? d ( P LC* A1,INBUF,A4 SEE IF IT'S A MASK ? P ANKL A1,/00FF ? P CCK A1,LF ? P RF(E) UNP410 NOT A MASK ? P
0x061408…06159c Dummy {f00=0x006f, f01=0x0190, f02=» LCR A1,A3 GET IT ? P ANKL A1,/00FF CLEAN IT @ P ADK A3,1 GET NEXT ONE @ : P LCR A2,A3 @ X P ANKL A2,/00FF @ l P SLL A1,8 MAKE ROOM @ P ORR A1,A2 MERGE THEM @ P* @ ( P CF A14,SRCHTB GO LOOK FOR THE MASK @ P* @ " P LDR A2,A2
0x06159c…061730 Dummy {f00=0x006f, f01=0x0190, f02=»LCUR FILL IN CURSOR POSITIONS. @ P RF UNP412 A ( P* A < PUNP410 EQU * A F P LDKL A3,-1 INDICATE NO MASK A P ST A3,WORK2,A4 A PUNP412 EQU * A P RTN A14 RETURN TO CALLER A PUNP415 EQU * A , P CM* FLDTAB,A4 INDICATE FLDTAB NOT
0x061730…0618c4 Dummy {f00=0x006f, f01=0x0190, f02=» * A L P* * B L L P* * B L P* SRCHTB, ROUTIN
0x0618c4…061a58 Dummy {f00=0x006f, f01=0x0190, f02=» * B L P* * C L L P************************************************************************ C L P
0x061a58…061bec Dummy {f00=0x006f, f01=0x0190, f02=» A1 = KEY, (TWO CHARACTERS) * C L P* RETURNS: A2 = 0, NO MASK FOUND * D L L P* A2 /= 0, ADDRESS TO MASK TABLE * D L P
0x061bec…061d80 Dummy {f00=0x006f, f01=0x0190, f02=» A2,0 PRE-SET RETURN VALUE D L P LDKL A3,MSKTAB GET START OF TABLE E L L PUNP460 EQU * E L P CWR* A1,A3 MATCH KEY
0x061d80…061f14 (1, 123) Dummy {f00=0x0070, f01=0x0190, f02=» A3,4 CHECK NEXT E L P CWK A3,TABEND LAST? F L L P RB(L) UNP460 NO, GO FURTHER F L PUNP465 EQU *
0x061f14…0620a8 Dummy {f00=0x0070, f01=0x0190, f02=»70 EQU * F L P LD A2,2,A3 FOUND, GET TABLE ADDRESS IN A2 G L L P RB UNP465 G P EJECT G L P******
0x0620a8…06223c Dummy {f00=0x0070, f01=0x0190, f02=» * G R L P* * H L P* * H b L P* MOVMSK: ROUTINE TO MOVE A MASK TABLE TO "FLDTAB". * H L P*
0x06223c…0623d0 Dummy {f00=0x0070, f01=0x0190, f02=» * H R L P* * I L P************************************************************************ I b L P I L P*
0x0623d0…062564 Dummy {f00=0x0070, f01=0x0190, f02=» * I R L P* * J L PMOVMSK EQU * J b L P LD A5,2,A2 GET TABLE END ADDRESS J L P LD A3
0x062564…0626f8 Dummy {f00=0x0070, f01=0x0190, f02=» J R L P LDR* A1,A2 GET A WORD K L P STR A1,A3 K b L P ADK A3,2 UPDATE POINTERS K L P ADK A
0x0626f8…06288c Dummy {f00=0x0070, f01=0x0190, f02=» K R L P RB(L) UNP480 NO L L P RTN A14 FINISHED RETURN TO CALLER L b P L P L PFILCUR EQU * L P LDK A5,1 ENTRY COUNTER = 1 L . P LD A3
0x06288c…062a20 Dummy {f00=0x0070, f01=0x0190, f02=»FIELDS L p P SRL A1,1 DIVIDE IT X2 M " P STR A1,A3 PUT IT IN FLD =TAB M 0 , P ADK A3,8 MOVE POINTER TO FIELD DESCR. M V P ADK A2,2 GET CURSOR POS. M PUNP490 EQU * M " P CW* A5,FLDTAB,A4 END OF WORK M P RF(G) UNP495 YES, GO BACK M P
0x062a20…062bb4 (1, 124) Dummy {f00=0x0072, f01=0x0190, f02=» P RB UNP490 CONTINUE N PUNP495 EQU * N P RTN A14 N 6 P EJECT N H L P************************************************************************ N ^ L P* * N L P*
0x062bb4…062d48 Dummy {f00=0x0072, f01=0x0190, f02=» * N N L P* UNP500 * O L P* * O ^ L P* * O L P*
0x062d48…062edc Dummy {f00=0x0072, f01=0x0190, f02=»****** O N PUNP500 EQU * P L P LD A1,INBUF,A4 INITIALIZE THE POINTERS P " L P LD A3,OUTBUF,A4 P r & P ADK A3,1 SKIP TERM. ADDR. + KEYS P L P LD A5,FLDTAB,A4
0x062edc…063070 Dummy {f00=0x0072, f01=0x0190, f02=» A5,10 FIRST ENTRY IN TABLE P L P LDK A7,0 NUMBER OF CHARACTERS CHECKED Q L L PUNP510 EQU * Q L P LCR A2,A1 SEARCH FOR INPUT
0x063070…063204 Dummy {f00=0x0072, f01=0x0190, f02=»E) UNP530 YES,MOVE IT Q L PUNP520 EQU * R L L P ADK A7,1 NO LOOK FURTHER R L P ADK A1,1
0x063204…063398 Dummy {f00=0x0072, f01=0x0190, f02=»L) UNP510 NO, CONTINUE R L PUNP525 EQU * S L L P SUR A3,A6 COMPUTE TOTAL LENGTH S . P LD A10,OUTLEN,A4 GET ADDR.
0x063398…06352c Dummy {f00=0x0072, f01=0x0190, f02=»INFLNG'. S x P T 2 P CF A14,INFLNG INSERT FIELD LENGTHS IN FLDTAB T L P RTN A14 RETURN TO CALLER T R P T L PUNP530 EQU * T $ P LDR A9,A3 SAV
0x06352c…0636c0 Dummy {f00=0x0072, f01=0x0190, f02=» T r L P ADK A5,8 MOVE POINTER TO NEXT ENTRY U 2 L P ADR A3,A6 RESTORE ADDRESS IN BUFFER U L P ADK A1,1 MOVE PAST "SI"
0x0636c0…063854 (1, 125) Dummy {f00=0x0073, f01=0x0190, f02=»W A7,INLEN,A4 END OF INPUT U L P RB(G) UNP525 YES, STOP V N L P LCR A2,A1 GET THE CHARACTER V L P CCK A2,SO END OF INPUT FI
0x063854…0639e8 Dummy {f00=0x0073, f01=0x0190, f02=»CK A2,LF OTHER END CHARS. V P RF(E) UNP540 W " P CCK A2,CR W 8 P RF(E) UNP540 W L PUNP537 EQU * W b P CWK A2,/00 WAS IT NILL? W v P RF(E) UNP538 W & P LD A11,-4,A5 SET THE MODIFIED BIT W P ORKL A11,/2000 W P ST A11,-4,A5 W PUNP5
0x0639e8…063b7c Dummy {f00=0x0073, f01=0x0190, f02=» W h L P ADK A1,1 X ( $ P ADK A7,1 NUMBER OF CHARS. MOVED X x L P RB UNP535 X L PUNP540 EQU *
0x063b7c…063d10 Dummy {f00=0x0073, f01=0x018e, f02=» ADK A7,1 COUNT EM X L P RB UNP510 GET THE NEXT FIELD Y PINFLNG EQU * Y l P LD A5,FLDTAB,A4 GET FLDTAB Y " P LDR* A6,A5 NUMBER OF FIELDS Y $ P ADK A5,10 MOVE TO FIRST ENTRY Y P LDR A3,A5 ANOTHER P
0x063d10…063ea4 Dummy {f00=0x0073, f01=0x0190, f02=» P LDR* A2,A5 Z " P SUR A1,A2 COMPUTE THE LENGTH Z P ST A1,2,A5 PUT IT IN TABLE Z @ P ADK A7,1 COUNT IT. Z d P CWR A7,A6 END? Z P RF(G) UNP560 YES ,RETURN Z P ADK A5,8 UPDATE POINTERS Z P ADK A3,8 Z P RB UNP550 CONTINUE Z
0x063ea4…064038 Dummy {f00=0x0073, f01=0x0190, f02=»************************************************************** Z L P* * [ F L P* * [ L P*
0x064038…0641cc Dummy {f00=0x0073, f01=0x0190, f02=» * [ L P* * F L P* * L P**********************************
0x0641cc…064360 Dummy {f00=0x0073, f01=0x0190, f02=» J & P LDK A6,0 INITIALIZE SPACE COUNTER ] L P LD A8,GPECB,A4 GET PRINTER BUFFER ADDRESS ] 4 L P LD A3,ECBBA,A8 ] 2 P LDKL A2,LF MOVE TICKET TO FIRST LOGICAL LINE ]
0x064360…0644f4 (1, 126) Dummy {f00=0x0078, f01=0x0190, f02=»4 GET INPUT BUFFER ] L P LD A5,INLEN,A4 AND LENGTH ^ B L P ADR A5,A1 END OF BUFFER ^ & P LDK A7,1 INITIALIZE LINE COUNTER ^
0x0644f4…064688 Dummy {f00=0x0078, f01=0x0190, f02=» ^ L P CWR A1,A5 END OF BUFFER? _ L P RF(G) UNP620 YES, RETURN _ l L P _
0x064688…06481c Dummy {f00=0x0078, f01=0x0190, f02=» _ L P LDR A2,A2 IF ZERO, SKIP IT ` L P RF(Z) UNP615 MUST HAVE BEEN = "SI" OR "SO". ` l , P CWK A7,3 DON'T FILL BUFFER UNTIL LINE=3 ` P RF(L) UNP615 ` L P
0x06481c…0649b0 Dummy {f00=0x0078, f01=0x0190, f02=» ` T L P ADK A3,1 UPDATE POINTERS a L PUNP615 EQU * a d L P ADK A1,1 a L P RB
0x0649b0…064b44 Dummy {f00=0x0078, f01=0x0190, f02=» a T $ P LD A5,ECBBA,A8 CALCULATE LENGTH b P SUR A3,A5 b < " P ST A3,ECBRL,A8 PUT IT IN ECB b P P b v L P RTN A14 FINISHED, RETURN TO CALLER b L P EJECT
0x064b44…064cd8 Dummy {f00=0x0078, f01=0x0190, f02=»EST PICTURE b r . P RF(NE) UNP640 TEST PIC. IF MORE THAT 40 c P ADK A6,1 COUNT THE SPACE c F ( P RF UNP670 PUT IN BUFFER IF LINE > 3 c h PUNP640 EQU * c $ P CWK A6,40 MORE THAN 40 SPACES? c P RF(NG) UNP642 NO, PROCESS c , P LDKL A9,2 THIS IS
0x064cd8…064e6c Dummy {f00=0x0078, f01=0x0190, f02=»E COUNTER c ~ P RF UNP670 GO ON. d PUNP642 EQU * d , " P LDK A6,0 RESET SPACE COUNTER d B L P CCK A2,NULL IF "NULL" REPLACE WITH SPACE d h L P RF(NE) UNP650 d L P
0x064e6c…065000 Dummy {f00=0x0078, f01=0x0190, f02=» d X L PUNP650 EQU * e L P CCK A2,SO IF "SO", SKIP IT e h L P RF(NE) UNP652 e L P
0x065000…065194 (1, 127) Dummy {f00=0x007d, f01=0x0190, f02=» e X PUNP652 EQU * f L P CCK A2,SI IF "SI", SKIP IT f . L P RF(NE) UNP654 f ~ L P LDK A2,0
0x065194…065328 Dummy {f00=0x007d, f01=0x0190, f02=» f n L P CCK A2,LF IF LINE FEED, INSERT LF-CR g . L P RF(NE) UNP656 g ~ L PUNP655 EQU *
0x065328…0654bc Dummy {f00=0x007d, f01=0x0190, f02=»FFER g n L P RF UNP670 h . L PUNP656 EQU * h ~ L P CCK A2,CR IF CARRIAGE RETURN, THEN "LF"
0x0654bc…065650 Dummy {f00=0x007d, f01=0x0190, f02=» h n L P CCK A2,MLF2 IF MULTIPLE LINE FEEDS i . L P RF(NE) UNP658 i ~ L P LDKL A9,2
0x065650…0657e4 Dummy {f00=0x007d, f01=0x0190, f02=» i n L PUNP658 EQU * j . L P CCK A2,MLF6 IF MULTIPLE LINE FEEDS j ~ L P RF(NE) UNP660
0x0657e4…065978 Dummy {f00=0x007d, f01=0x0190, f02=»UFFER j n L P RF UNP670 k . L PUNP660 EQU * k ~ L P CCK A2,PRTCHR IF ":", INSERT LINE FEEDS
0x065978…065b0c Dummy {f00=0x007d, f01=0x0190, f02=» k n & P SUR A9,A7 CALCULATE 'TOP-OF-FORM' l 0 L P CF A14,MLF600 l Z L PUNP670 EQU * l L P RTN A14
0x065b0c…065ca0 Dummy {f00=0x007d, f01=0x0190, f02=» l J L P LDKL A2,CRLF m L PUNP680 EQU * m Z L P SCR A2,A3 m L P ADK A3,1 UPDA
0x065ca0…065e34 (1, 128) Dummy {f00=0x0087, f01=0x0190, f02=» m r L P RF(Z) UNP682 YES n 2 L P RB UNP680 NO, INSERT ANOTHER LF n L P
0x065e34…065fc8 Dummy {f00=0x0087, f01=0x0190, f02=»GE RETURN n r L P RTN A14 LET MAIN ROUTINE INSERT IT o 2 P EJECT o L P************************************************************************ o L P*
0x065fc8…06615c Dummy {f00=0x0087, f01=0x0190, f02=» * o L P* UNP700 * p H L P* * p L P*
0x06615c…0662f0 Dummy {f00=0x0087, f01=0x0190, f02=»**************************************************************** p PUNP700 EQU * q H L P* TEST STATUS OF PRINTER * q L P q L P LDK A7,STAT
0x0662f0…066484 Dummy {f00=0x0087, f01=0x0190, f02=» q L L P LKM I/O r L P DATA 1 r L P r L P LD A1,ECBRC
0x066484…066618 Dummy {f00=0x0087, f01=0x0190, f02=» r L L PUNP705 EQU * s L P ST A1,PRINT,A4 RETURN NOT OK, SAVE IT s L P RTN A14 RETURN TO CALLER s L PUNP710 EQU *
0x066618…0667ac Dummy {f00=0x0087, f01=0x0190, f02=» s t L P LKM t 4 L P DATA 1 t L P
0x0667ac…066940 Dummy {f00=0x0087, f01=0x0190, f02=» $ P CF A14,PFLASH FLASH THE FIELDS u ( P LD* A1,GPECB,A4 PRINTER FINISHED ? u , $ P RB(NN) UNP725 NO, KEEP FLASHING u X PUNP730 EQU * u P LD A8,GPECB,A4 SET UP WAIT u P LKM u P DATA 2 u L P LD A1,ECBRC,A8 GET THE RETURN CODE
0x066940…066ad4 (1, 129) Dummy {f00=0x0088, f01=0x0190, f02=»****************** u Z L P* * v L P* * v j L P* * v L
0x066ad4…066c68 Dummy {f00=0x0088, f01=0x0190, f02=» * v Z L P* * w L P* * w j L P************************************************************************ w L
0x066c68…066dfc Dummy {f00=0x0088, f01=0x0190, f02=» w Z L P LD A1,PRINT,A4 CHECK RETURN CODE FROM x L P PRINT ROUTINE x j L P RF(NZ) UNP810 SEND NAK x L
0x066dfc…066f90 Dummy {f00=0x0088, f01=0x0190, f02=» x Z L PUNP810 EQU * y L P LDK A2,NAK y j PUNP815 EQU * y L P LD A8,DCECB,A4 GET THE DC ECB
0x066f90…067124 Dummy {f00=0x0088, f01=0x0190, f02=» INFO y p L P SCR A2,A3 INSERT ACKNOWLEDGEMENT z 0 P LDK A7,100 WAIT 10 SECONDS z P ST A7,ECBCW,A8 SAVEIN ECB z P LDK A7,/B9 SETIME z P LKM z P DATA 1 z L P
0x067124…0672b8 Dummy {f00=0x0088, f01=0x0190, f02=»7,DCWRT FILL IN ORDER, WRITE z L P { J L P LKM I/O { L P DATA 1
0x0672b8…06744c Dummy {f00=0x0088, f01=0x0190, f02=»14 RETURN TO CALLER { L P | J P EJECT | L P | L P************
0x06744c…0675e0 Dummy {f00=0x0088, f01=0x0190, f02=» * | L L P* THIS MODULE SCANS THE INPUT BUFFER TO SEE IF FLASHING * } L P* FIELDS ARE PRESENT. IF SO, A TABLE "FLATAB" IS BUILT. * } L P* FLATAB IS PLACED IN THE WORK AREA "CURSAV". * } L P* WO
0x0675e0…067774 (1, 130) Dummy {f00=0x0088, f01=0x0190, f02=» * } L L P************************************************************************ ~ L P ~ L P ~ L PUNP900 EQU *
0x067774…067908 Dummy {f00=0x0088, f01=0x0190, f02=» ~ L L P LD A3,INBUF,A4 SEE IF FIRST CHAR = SI L P LCR A1,A3 $ P ANK A1,/FF CLEAN THE LEFT HALF L P CCK A1,SI
0x067908…067a9c Dummy {f00=0x0088, f01=0x0190, f02=» t L P LDKL A9,FLATAB COULD BE FLASHING FIELDS 4 L P ADR A9,A4 INITIALIZE TABLE L P LDR A5,A9 FIELD POINTER
0x067a9c…067c30 Dummy {f00=0x0088, f01=0x0190, f02=»F FIELDS t L P LDKL A7,/0101 RESET CURSOR POSITION 4 L P LD A6,INLEN,A4 L P ADR A6,A3 END OF INPUT BUFFER
0x067c30…067dc4 Dummy {f00=0x0088, f01=0x0190, f02=»CTER t L P LCR A1,A3 4 $ P ANK A1,/FF CLEAN THE LEFT HALF L P L P CF A14,FLAC
0x067dc4…067f58 Dummy {f00=0x0088, f01=0x0190, f02=» L L P CWR A3,A6 END ? L P RF(G) UNP910 L P RB UNP905 NO CONTINUE L PUNP910 EQU *
0x067f58…0680ec Dummy {f00=0x0088, f01=0x0190, f02=» L L P RF(Z) UNP915 L P IM WORK3,A4 YES FLAG IT L PUNP915 EQU * L P RTN A14 FIN
0x0680ec…068280 Dummy {f00=0x0088, f01=0x0190, f02=» L L PFLACHK EQU * L P CCK A1,LF IF LINE FEED UPDATE CURSOR L P RF(E) FLA000 L P CCK A1,CR I
0x068280…068414 (1, 131) Dummy {f00=0x0088, f01=0x0190, f02=» L L P CCK A1,SI IF SI THEN START OF FIELD L P RF(E) FLA005 L P CCK A1,SO IF SO,SKIP IT L P RF(E) FLART
0x068414…0685a8 Dummy {f00=0x0088, f01=0x0190, f02=» L L P ADK A7,1 UPDATE CURSOR POSITION L P LDR A2,A7 L P ANK A2,/FF L P CWK A2,/002
0x0685a8…06873c Dummy {f00=0x0088, f01=0x0190, f02=» L L PFLA000 EQU * L P ADKL A7,/0100 CURSOR TO NEXT LINE L P ANKL A7,/FF00 L P ADKL A7,/00
0x06873c…0688d0 Dummy {f00=0x0088, f01=0x0190, f02=» L L PFLA005 EQU * L P IM FLATAB,A4 COUNT THE FIELD L P LDR A2,A3 SAVE POSITION TO CALCULATE L P ADK A2,1 MO
0x0688d0…068a64 Dummy {f00=0x0088, f01=0x0190, f02=» L L P ADK A3,1 MOVE PAST SI L P ST A3,FLINPO,A5 POINTS TO START OF FIELD L P ST A7,FLACUR,A5 CURSOR POSITION L PFLA015 EQU *
0x068a64…068bf8 Dummy {f00=0x0088, f01=0x0190, f02=»OOK FOR END OF FIELD L P CCK A1,SO END OF FIELD = SI, SO, CR, LF D L P RF(E) FLA020 L P CCK A1,SI
0x068bf8…068d8c Dummy {f00=0x0088, f01=0x0190, f02=» L P RF(E) FLA020 D L P CCK A1,CR L P RF(E) FLA020
0x068d8c…068f20 Dummy {f00=0x0088, f01=0x0190, f02=»VERSIONS t P RF(E) FLA035 P CCK A1,DKAE1 & P RF(E) FLA040 < P CCK A1,DKAA1 R P RF(E) FLA045 h PFLA017 EQU * ~ P ADK A7,1 UPDATE CURSOR L P ADK A3,1 UPDATE POINTER L P RB
0x068f20…0690b4 (1, 132) Dummy {f00=0x0089, f01=0x0190, f02=» T L PFLA020 EQU * L P SUR A2,A3 COMPUTE FIELD LENGTH d L P C1R A2,A2 MAKE IT POSITIVE L P ADK
0x0690b4…069248 Dummy {f00=0x0089, f01=0x0190, f02=» T L P ADK A5,6 POINTS TO NEXT FIELD L P RF FLARTN d L PFLA025 EQU * L P SUK
0x069248…0693dc Dummy {f00=0x0089, f01=0x0190, f02=» T PFLA030 EQU * P LDK A1,POINT INSERT A . * P SCR A1,A3 L P RB FLA017 ` PFLA035 EQU * t 0 P LDK A1,DKOE2 THE END OF DANISH CONVERSIONS P SCR A1,A3 P RB FLA017 PFLA040 EQU * P LDK A1,DKAE
0x0693dc…069570 Dummy {f00=0x0089, f01=0x0190, f02=» L PFLARTN EQU * P L P RTN A14 P EJECT L P
0x069570…069704 Dummy {f00=0x0089, f01=0x0190, f02=» P L P************************************************************************ L P* * ` L P* THIS MODULE WILL FLASH THE FIELDS ON A PDU * L P*
0x069704…069898 Dummy {f00=0x0089, f01=0x0190, f02=» * P L P* THE ORIGINAL CONTENTS... * L P* * ` L P************************************************************************ L P
0x069898…069a2c Dummy {f00=0x0089, f01=0x0190, f02=» P L PKBFLSH EQU * L P CF A14,I:EVA0 CREDIT ENTRY, GET WORK AREA ` L P LDR A4,A9 ( P LD A1,W
0x069a2c…069bc0 Dummy {f00=0x0089, f01=0x0190, f02=» P L PPFLASH EQU * L P ASSEMBLER ENTRY ` " P LDKL A9,FLATAB GET THE TABLE L P ADR A9,A4
0x069bc0…069d54 (1, 133) Dummy {f00=0x0089, f01=0x0190, f02=»IELDS v L P LDK A6,1 INITIALIZE FIELD COUNTER 6 L P LD A8,DYECB,A4 GET DISPLAY ECB L P
0x069d54…069ee8 Dummy {f00=0x0089, f01=0x0190, f02=» v & P LDKL A8,3 WAIT 500 MILLI-SECONDS 6 P LKM ` P DATA 6 n P P LD A8,DYECB,A4 RETSORE A8 L P LDR A5,A9 RESET POINTER L P ADK A5,
0x069ee8…06a07c Dummy {f00=0x0089, f01=0x0190, f02=» P L P L P CF A14,REWRIT RE-WRITE THE FIELDS ` L P & P LDKL A8
0x06a07c…06a210 Dummy {f00=0x0089, f01=0x0190, f02=» L P EJECT L PBLANK EQU * l L P LDKL A1,BLANKS SET UP BUFFER
0x06a210…06a3a4 Dummy {f00=0x0089, f01=0x0190, f02=» * L P CF A14,BLKFLD BLANK ONE FIELD F L P ADK A5,6 MOVE TO NEXT FIELD L P ADK A6,1 COUNT IT
0x06a3a4…06a538 Dummy {f00=0x0089, f01=0x0190, f02=» L P RB(NG) BLK000 NO,CONTINUE F P ST A3,ECBBA,A8 L P RTN A14 FINISHED L P
0x06a538…06a6cc Dummy {f00=0x0089, f01=0x0190, f02=» N L PBLKFLD EQU * L P LD A2,ECBBA,A8 GET BUFFER ADDRESS ^ L P LDK A1,SETCUR SET CURSOR POSITION L P SCR A1,A2
0x06a6cc…06a860 Dummy {f00=0x0089, f01=0x0190, f02=» N L P LD A1,FLACUR,A5 L P ADKL A1,/1F1F MAKE CURS. POS DISPLAY ^ L P SCR A1,A2 PUT IN LINE NUMBER L P ADK A2,1
0x06a860…06a9f4 (1, 134) Dummy {f00=0x008c, f01=0x0190, f02=» N L P SCR A1,A2 PUT IN COLUMN NUMBER L P ADK A2,1 ^ L P L P
0x06a9f4…06ab88 Dummy {f00=0x008c, f01=0x0190, f02=» N L P LD A10,FLALEN,A5 GET LENGTH OF FIELD L P ADR A1,A10 ^ L P ECR A1,A1 PUT IT IN RIGHT ORDER L P SCR A1,A2
0x06ab88…06ad1c Dummy {f00=0x008c, f01=0x0190, f02=» N L P SRL A1,8 L P SCR A1,A2 ^ L P ADK A2,1 L P LDK A1,SP
0x06ad1c…06aeb0 Dummy {f00=0x008c, f01=0x0190, f02=» N L P & P LDK A1,6 SET UP REQUESTED LENGTH ^ L P ST A1,ECBRL,A8 L P
0x06aeb0…06b044 Dummy {f00=0x008c, f01=0x0190, f02=» x L P RTN A14 8 L P EJECT L PREWRIT EQU *
0x06b044…06b1d8 Dummy {f00=0x008c, f01=0x0190, f02=» ^ L P SUK A2,3 MAKE ROOM FOR CURSOR POSITION L P ST A2,ECBBA,A8 n L P LDK A1,SETCUR
0x06b1d8…06b36c Dummy {f00=0x008c, f01=0x0190, f02=» ^ L P LD A1,FLACUR,A5 L P ADKL A1,/1F1F n L P SCR A1,A2
0x06b36c…06b500 Dummy {f00=0x008c, f01=0x0190, f02=» ^ L P SCR A1,A2 L P n L P LD A1,FLALEN,A5 GET THE FIELD LENGTH
0x06b500…06b694 (1, 135) Dummy {f00=0x008e, f01=0x0190, f02=» ^ L P L P CF A14,LINKUM WRITE IT... n L P
0x06b694…06b828 Dummy {f00=0x008e, f01=0x0190, f02=» ^ L P LD A2,FLATAB,A4 CHECK END L P CWR A6,A2 n L P RF(G) REW100 YES, RETURN
0x06b828…06b9bc Dummy {f00=0x008e, f01=0x0190, f02=» ^ * P ST A10,ECBBA,A8 RESTORE BUFFER ADDR. L P RTN A14 L P EJECT L P L P
0x06b9bc…06bb50 Dummy {f00=0x008e, f01=0x0190, f02=» N L PLINKUM EQU * L P LDK A7,/85 BASIC WRITE WITH WAIT ^ L P LKM L P DATA 1
0x06bb50…06bce4 Dummy {f00=0x008e, f01=0x4102, f02=» N L P L P ^ L P END @ A 1
0x06bce4…06be78 Dummy {f00=0x008e, f01=0x2008, f02=» * ' ^ L P* * ( L P************************************************************************ ( n L P END (
0x06be78…06c00c Dummy {f00=0x008e, f01=0x40d4, f02=» 8 H IDENT C:CB10 TRA 4.2 81-11-29 F1 O1111 811017 NJ C:CB10 @ C:CB10C R * & f P $ $ @ & [ &
0x06c00c…06c1a0 Dummy {f00=0x008e, f01=0x40ee, f02=» 8 H IDENT D:CB10 TRA 4.2 81-11-29 F1 O1111 811017 NJ D:CB10 @ D:CB10C R * & B f * & = B @ & [ &
0x06c1a0…06c334 (1, 136) Opaque[0x194]
0x06c334…06c4c8 # DirEnt {nam=»GEOT «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1548, f03=0x0000}
0x06c334…06c4c8 IdxSect {
0x06c334…06c4c8 f00 = 0x00aa // 0x6c334 @0x0
0x06c334…06c4c8 f01 = 0x0004 // 0x6c336 @0x2
0x06c334…06c4c8 gno = [ // 0x6c338 @0x4
0x06c334…06c4c8 [0x00]: C0x00aa.0x1.0
0x06c334…06c4c8 [0x01]: C0x00ad.0x3.0
0x06c334…06c4c8 ]
0x06c334…06c4c8 }
0x06c4c8…06c65c Dummy {f00=0x00aa, f01=0x0190, f02=» PSCR , PMES *********************************** , PMES * GENERATION OF D S B - PROGRAM * @ , PMES * (PROD VERSION) * p , PMES *********************************** PPRT DSBGEN PPRT DSBCAS PPRT PROCON PSC
0x06c65c…06c7f0 Dummy {f00=0x00aa, f01=0x0190, f02=»INC T:GTID,INT:PROD PINC T:IO,INT:PROD PINC I:NTP,INT:PROD 6 PINC I:EVA,INT:PROD P PINC I:CMP,INT:PROD j PINC I:CPA,INT:PROD PINC I:MOV,INT:PROD PINC I:MUL,INT:PROD PINC I:DIV,INT:PROD PINC I:NTF,INT:PROD PIN
0x06c7f0…06c984 Dummy {f00=0x00aa, f01=0x0190, f02=»ADS,INT:PROD PINC I:EPIC,INT:PROD PINC T:MSK0,INT:PROD 0 PINC T:DEL,INT:PROD L PLKE M f PSCR t PNOD C PLED PLADS P!!CH $$6040$$6141$$ P!!EN PTRA /S,NL PTLK PINC T:LSEG,INT:PROD PINC T:
0x06c984…06cb18 Dummy {f00=0x00aa, f01=0x0190, f02=»INT:PROD PINC I:CMP,INT:PROD PINC I:CPA,INT:PROD * PINC I:MOV,INT:PROD D PINC I:MUL,INT:PROD ^ PINC I:DIV,INT:PROD x PINC I:NTF,INT:PROD PINC I:EDT,INT:PROD PINC I:EDTE,INT:PROD PINC I:EDS,INT:PROD PINC I:STR,IN
0x06cb18…06ccac Dummy {f00=0x00aa, f01=0x0040, f02=»PROD PLKE M PASG 2,NO PASG /E0,DK,DSBCAS * PINC I:MOV,INT:PROD D PINC I:MUL,INT:PROD ^ PINC I:DIV,INT:PROD x PINC I:NTF,INT:PROD PINC I:EDT,INT:PROD PINC I:EDTE,INT:PROD PINC I:EDS,INT:PROD PINC I:STR,IN
0x06ccac…06ce40 Dummy {f00=0x00aa, f01=0x2008, f02=» PLKE M PASG 2,NO PASG /E0,DK,DSBCAS * PINC I:MOV,INT:PROD D PINC I:MUL,INT:PROD ^ PINC I:DIV,INT:PROD x PINC I:NTF,INT:PROD PINC I:EDT,INT:PROD PINC I:EDTE,INT:PROD PINC I:EDS,INT:PROD PINC I:STR,IN
0x06ce40…06cfd4 (1, 137) Dummy {f00=0x00ad, f01=0x0190, f02=»ER l P RB ACGP17 P EJECT P* * P* CODE CHECK ERROR 4 P* R PACGP30 EQU * P LDK A1,CCERR p P ORS A1,8,A8 RETURN CODE P RB ACGP20 P EJECT P* P* TABULATION P* PACGP40 EQU * , P C
0x06cfd4…06d168 Dummy {f00=0x00ad, f01=0x0190, f02=» A4,/F P RF(E) ACGP44 0 PACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL $ P SUK A4,1 X P RB(NE) ACGP43 j 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER P LC A4,DWTBC,A6 , P SUR A2,A4 AND REQUESTS POSITION COUNTER & P T
0x06d168…06d2fc Dummy {f00=0x00ad, f01=0x0190, f02=» PACGP46 CF A5,OUTPUT ( P IM DWTST,A6 INCREMENT BUFFER INDEX P SUK A4,1 L P RB(P) ACGP45 ^ P LDR A3,A3 RECOVERY? t P RB(NE) ACGP20 * P SC A4,DWTBC,A6 RESET POSITION POINTER P LDK A3,2 START BUFFER INDEX P RB ACGP19
0x06d2fc…06d490 Dummy {f00=0x00ad, f01=0x0190, f02=»HR GET CHARACTER TO SEND P ANK A2,/F ! P LC A2,ROMTAB,A2 TRANSFORM ! 2 P* ! T P XIF ! ^ P* ! j P* ! t P IFF CROOM=1 ! ~ P* ! P ANK A2,/7F ! P* ! P XIF ! P* ! P RB ACGP17 ! P EJECT ! P* ! P* ! ( P*
0x06d490…06d624 Dummy {f00=0x00ad, f01=0x018e, f02=» P CF A5,OUTPUT SEND " PAGP410 LDK A2,ETX LAST DUMMY " P CF A5,OUTPUT SEND " B PAGP415 EQU * =1 " P IFT ABIS=1 =1 " t P ANK A2,/4 PAPER IN ? =1 " P RF(NZ) AGP420 YES =1 " " P LDK A1,/20 SET RETURN CODE =1 " P XIF =1 " PAGP420
0x06d624…06d7b8 Dummy {f00=0x00ad, f01=0x0190, f02=» " n PAGP430 EQU * # P LD A3,DWTA3,A6 # P ST A3,6,A8 EFF. LENGTH # 4 P RB AGP415 =1 # T P EJECT # j P* # x P* # , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # , P* POSITION POINTER WHEN END # ( P* OF REQUEST IS
0x06d7b8…06d94c Dummy {f00=0x00ad, f01=0x0190, f02=»DK A3,0 # , P SC A3,DWTBC,A6 RESET POSITION COUNTER $ P RTN A15 $ @ P IFT SUPSPA=1 $ P P EJECT $ f P* $ t P* $ ~ * P* SKIPSP = SUBROTINE TO SKIP SPACES $ ( P* IN END OF ECB-BUFFER. $ 6 P* REQUESTED LENGTH IN ECB
0x06d94c…06dae0 Dummy {f00=0x00ad, f01=0x0190, f02=» LD A2,4,A8 GET REQUESTED LENGTH(RL) $ $ P ADR A1,A2 GET ADD END OF BUFFER % , PSKIP05 CWK A2,2 % T P RF(NG) SKIP30 RL < 3 % l P SUK A1,1 DECR. BA % P LCR A4,A1 GET CHAR % P CCK A4,/2020 SPACE ? % P RF(NE) SKIP20 NO % PSKIP07 SUK A2,1
0x06dae0…06dc74 (1, 138) Opaque[0x194]
0x06dc74…06de08 # DirEnt {nam=»GFLDIX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10c8, f03=0x0000}
0x06dc74…06de08 IdxSect {
0x06dc74…06de08 f00 = 0x0086 // 0x6dc74 @0x0
0x06dc74…06de08 f01 = 0x0002 // 0x6dc76 @0x2
0x06dc74…06de08 gno = [ // 0x6dc78 @0x4
0x06dc74…06de08 [0x00]: C0x0086.0x1.0
0x06dc74…06de08 ]
0x06dc74…06de08 }
0x06de08…06df9c Dummy {f00=0x0086, f01=0x0190, f02=» IDENT GFLDIX 810622 NJ P* $ P ENTRY GFLDIX . P EXTRN I:EVA0 D P EXTRN I:RT1 Z P* n P* x * , '* THE PROCEDURE EXTRACTS THE FIELDINDEX * FROM THE FIELDTABLE. ( $* THIS INDEX IS LOCATED IN BIT 11-15 *
0x06df9c…06e130 Dummy {f00=0x0086, f01=0x406a, f02=» 0-10 v $ ST A1,0,A9 RESTOREIN WORKFIELD ABL I:RT1 RETURN TO CALLER 6 END Z@ f P* n P* x * , '* THE PROCEDURE EXTRACTS THE FIELDINDEX * FROM THE FIELDTABLE. ( $* THIS INDEX IS LOCATED IN BIT 11-15 *
0x06e130…06e2c4 Dummy {f00=0x0086, f01=0x2008, f02=» NT GFLDIX 810622 NJ * $ , '* THE PROCEDURE EXTRACTS THE FIELDINDEX . * FROM THE FIELDTABLE. ^ ( $* THIS INDEX IS LOCATED IN BIT 11-15 | * * & CF A14,I:EVA0GET ADDRESS OF WORKFIELD LD A1,0,A9 LOAD CONTENTS $ ANKL
0x06e2c4…06e458 Dummy {f00=0x0086, f01=0x0190, f02=» 2 % 7_ 2 # PH L PB | 2" &] Y $! 6P Q $ T 9BP 0 _ _ W 6 @ " T 7 $ V P I W _ V & H R 'W 'W '_6 :l:d:h | W W P W 6
0x06e458…06e5ec Dummy {f00=0x0086, f01=0x0190, f02=» W D V L , Wn 6 2 2W " P " # ;b WF " ;d# _ [ v [ I | I Z Z : /b:B , (V ; [ [ | Z H (;AR H & /f z ;AV: Z H # /f /f d ; 6
0x06e5ec…06e780 Dummy {f00=0x0086, f01=0x0190, f02=» P /f Z /f [ 6 [ Z 7 Z 7 : ( :A ( @ " P [ :;H 2 P ;h & : ; V Y : 2! : 6 2 2W& " # ;b ; : ;f" #?_" W /F # /B"
0x06e780…06e914 (1, 139) Opaque[0x194]
0x06e914…06eaa8 # DirEnt {nam=»MSKTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2680, f03=0x0000}
0x06e914…06eaa8 IdxSect {
0x06e914…06eaa8 f00 = 0x0134 // 0x6e914 @0x0
0x06e914…06eaa8 f01 = 0x0008 // 0x6e916 @0x2
0x06e914…06eaa8 gno = [ // 0x6e918 @0x4
0x06e914…06eaa8 [0x00]: C0x0134.0x0.0
0x06e914…06eaa8 [0x01]: C0x0135.0x3.0
0x06e914…06eaa8 [0x02]: C0x0138.0x2.0
0x06e914…06eaa8 [0x03]: C0x0138.0x3.0
0x06e914…06eaa8 ]
0x06e914…06eaa8 }
0x06eaa8…06ec3c Dummy {f00=0x0134, f01=0x0190, f02=» * P IDENT MSKTAB DSB MASK TABLE 820601 NJ L P 2 L P************************************************************************ L P*
0x06ec3c…06edd0 Dummy {f00=0x0134, f01=0x0190, f02=»LDS FOR EACH "MASK" SENT FROM * r L P* THE MAIN-FRAME. KEYS TO EACH MASK ARE FOUND IN * 2 L P* POSITIONS 5 AND 6 OF THE INPUT BUFFER WHICH ARE * L P* USED TO SELECT THE PROPER FIELD DESCRITORS.
0x06edd0…06ef64 Dummy {f00=0x0134, f01=0x0190, f02=» MASKS SHOULD BE CHECKED AGAINST * r L P* THESE TABLES.... * 2 L P************************************************************************ L P
0x06ef64…06f0f8 Dummy {f00=0x0134, f01=0x0190, f02=»****************************************** r L P* * 2 L P* TABLE ENTRIES * L P*
0x06f0f8…06f28c Dummy {f00=0x0134, f01=0x0190, f02=» r & P EXTRN MASK02,MASK03,MASK04,MASK05 : & P EXTRN MASK06,MASK07,MASK08,MASK09 d P EXTRN MASK10 " P EXTRN NUM,CURP,DCPO,LENG,ATTR L P
0x06f28c…06f420 Dummy {f00=0x0134, f01=0x0190, f02=» j L P DATA MASK01 * L P z L P DATA /440F SID INT. ="D(SI)"
0x06f420…06f5b4 (1, 140) Dummy {f00=0x0135, f01=0x0190, f02=» j L P DATA /4720 LIG = "G " * L P DATA MASK03 z L P
0x06f5b4…06f748 Dummy {f00=0x0135, f01=0x0190, f02=» j L P * L P DATA /4253 AFBST = "BS" z L P DATA MASK05
0x06f748…06f8dc Dummy {f00=0x0135, f01=0x0190, f02=»SK06 L P H L P DATA /4C0F BIL = "L(SI)" L P DATA MASK07
0x06f8dc…06fa70 Dummy {f00=0x0135, f01=0x0190, f02=»020 AENDRING L P DATA MASK08 J L P L P DATA /FFFF COMMENT
0x06fa70…06fc04 Dummy {f00=0x0135, f01=0x0190, f02=» PTABEND EQU * END OF TABLE J L P EJECT l L P************************************************************************
0x06fc04…06fd98 Dummy {f00=0x0135, f01=0x0190, f02=»******************** L P L PMASK01 EQU * l J P DATA 13 13BER OF INPUT FIELDS
0x06fd98…06ff2c Dummy {f00=0x0135, f01=0x0190, f02=» * N P DATA /010A CURSOR POSITION N J P DATA 0 DC-BUFFER POSITION F P DATA 2 2TH OF INPUT FIELD
0x06ff2c…0700c0 Dummy {f00=0x0135, f01=0x0190, f02=» * N P DATA /010F CURSOR POSITION J J P DATA 2 DC-BUFFER POSITION F P DATA 3 3TH OF INPUT FIELD
0x0700c0…070254 (1, 141) Dummy {f00=0x0138, f01=0x0190, f02=» * N P DATA /0113 CURSOR POSITION F J P DATA 5 DC-BUFFER POSITION F P DATA 3 3TH OF INPUT FIELD
0x070254…0703e8 Dummy {f00=0x0138, f01=0x0190, f02=» * N P DATA /011B CURSOR POSITION B J P DATA 8 DC-BUFFER POSITION F P DATA 5 5TH OF INPUT FIELD
0x0703e8…07057c Dummy {f00=0x0138, f01=0x0190, f02=» * ~ N P DATA /0125 CURSOR POSITION > J P DATA 13 DC-BUFFER POSITION F P DATA 4 4TH OF INPUT FIELD
0x07057c…070710 Dummy {f00=0x0138, f01=0x0190, f02=» * z N P DATA /0203 CURSOR POSITION : J P DATA 17 DC-BUFFER POSITION F P DATA 1 1TH OF INPUT FIELD
0x070710…0708a4 Dummy {f00=0x0138, f01=0x0190, f02=» * v N P DATA /0207 CURSOR POSITION 6 J P DATA 18 DC-BUFFER POSITION F P DATA 1 1TH OF INPUT FIELD
0x0708a4…070a38 Dummy {f00=0x0138, f01=0x0190, f02=» * r N P DATA /020C CURSOR POSITION 2 J P DATA 19 DC-BUFFER POSITION F P DATA 1 1TH OF INPUT FIELD
0x070a38…070bcc Dummy {f00=0x0138, f01=0x0190, f02=» DATA /0212 CURSOR POSITION J P DATA 20 DC-BUFFER POSITION R F P DATA 5 5TH OF INPUT FIELD N P DATA /0758 FIELD /0758IBUTES
0x070bcc…070d60 Dummy {f00=0x0138, f01=0x0190, f02=»A /021A CURSOR POSITION J P DATA 25 DC-BUFFER POSITION N F P DATA 1 1TH OF INPUT FIELD N P DATA /0822 FIELD /0822IBUTES
0x070d60…070ef4 (1, 142) Dummy {f00=0x0138, f01=0x0190, f02=»21F CURSOR POSITION J P DATA 26 DC-BUFFER POSITION J F P DATA 1 1TH OF INPUT FIELD N P DATA /076F FIELD /076FIBUTES
0x070ef4…071088 Dummy {f00=0x0138, f01=0x0190, f02=»CURSOR POSITION J P DATA 27 DC-BUFFER POSITION F F P DATA 1 1TH OF INPUT FIELD N P DATA /0784 FIELD /0784IBUTES
0x071088…07121c Dummy {f00=0x0138, f01=0x0190, f02=»OR POSITION J P DATA 28 DC-BUFFER POSITION B F P DATA 2 2TH OF INPUT FIELD " P DATA /07AD FIELD ATTRIBUTES L P*
0x07121c…0713b0 Dummy {f00=0x0138, f01=0x0190, f02=» P L P DATA DCPO DC-BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD ` L P DATA ATTR FIELD ATTRIBUTES L P*
0x0713b0…071544 Dummy {f00=0x0138, f01=0x4028, f02=» d@ $ITION L P DATA LENG LENGTH OF INPUT FIELD ` L P DATA ATTR FIELD ATTRIBUTES L P*
0x071544…0716d8 Dummy {f00=0x0138, f01=0x2008, f02=» x L P* * 8 L PTABEND EQU * L P END
0x0716d8…07186c Dummy {f00=0x0138, f01=0x0190, f02=» BG B! GA G!"BG ? HS ? d4AR4 $@H CK GR L P R !L W LC W H!W H"W H#W H$W H% $4 ( HG"H H!@T C DK BK T9 GJjT DlhH"0 G AB*A 10 U ALP-0 M F$0 MFP # L W ( L ( !W ( W L$W["A @T L Z A! EL!E !E ' E'IW;KT8 BA B! BK
0x07186c…071a00 Dummy {f00=0x0138, f01=0x0190, f02=» 0 X$W 0 X'W 0 X&W 0 X%W 0 X$4 Q9 A G h AGQ ! A GA G!jQ !UG,Q: A!4 $*$ $x# <v# $ # $ =`< < < $ # =&< = <` r j t n = : H s # r : X m
0x071a00…071b94 (1, 143) Opaque[0x194]
0x071b94…071d28 # DirEnt {nam=»GMSGIX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1118, f03=0x0000}
0x071b94…071d28 IdxSect {
0x071b94…071d28 f00 = 0x0088 // 0x71b94 @0x0
0x071b94…071d28 f01 = 0x0002 // 0x71b96 @0x2
0x071b94…071d28 gno = [ // 0x71b98 @0x4
0x071b94…071d28 [0x00]: C0x0088.0x3.0
0x071b94…071d28 ]
0x071b94…071d28 }
0x071d28…071ebc Dummy {f00=0x0088, f01=0x0190, f02=» P IDENT GMSGIX 810916 NJ * $ * . P ENTRY GMSGIX 8 EXTRN I:EVA0 N EXTRN I:RT1 d * x * & !* THE ROUTINE SHIFTS THE CONTENTS P* OF BIT 4-10 TO BIT 9-15 * %* THESE BITS CONTAIN THE MESSAGEINDEX *
0x071ebc…072050 Dummy {f00=0x0088, f01=0x4084, f02=»EROISE BIT 0-3 $ SRL A1,5 SHIFT (4-10) -> (9-15) ST A1,0,A9 RESTORE CONTENTS > ABL I:RT1 b END t@ & !* THE ROUTINE SHIFTS THE CONTENTS P* OF BIT 4-10 TO BIT 9-15 * %* THESE BITS CONTAIN THE MESSAGEINDEX *
0x072050…0721e4 Dummy {f00=0x0088, f01=0x2008, f02=» (9-15) ~ ST A1,0,A9 RESTORE CONTENTS ABL I:RT1 : END L@ X N * b * l & !* THE ROUTINE SHIFTS THE CONTENTS v * OF BIT 4-10 TO BIT 9-15 * %* THESE BITS CONTAIN THE MESSAGEINDEX * FOR A FIELD IN ERROR
0x0721e4…072378 Dummy {f00=0x0088, f01=0x0190, f02=» & P XCOPY TKBBUF,W0,W10,OUTBUF,TBIN8 $ P PERFI TBIN4, FIELD VALIDATION C . , P TEST01,TEST02,TEST03,TEST04,TEST05, C V , P TEST06,TEST07,TEST08,TEST09,TEST10, C , P TEST11,TEST12,TEST13,TEST14,TEST15, C , P TEST16,TEST17,TEST18,TEST19,TEST
0x072378…07250c Dummy {f00=0x0088, f01=0x0190, f02=»OK KB040 NO ERRORS? 2 P CALL BITON,FLDTAB(TBIN7,W4),W0 INDICATE ERROR P B KB050 R PKB040 b . P CALL BITOFF,FLDTAB(TBIN7,W4),W0 FIELD OK p PKB050 P IB TBIN6, C . P KB090,KB090,KB052,KB052,KB052,KB090, C . P KB090,KB090,KB
0x07250c…0726a0 Dummy {f00=0x0088, f01=0x018e, f02=»KB090,KB090,KB090,KB090 PKB052 P CBE TBIN2,W0,KB070 . 4 P CBE TBIN2,TBIN7,KB055 IF DIFFERENT,TBIN2 IS OK J P B KB015 PKB055 P ADD TBIN2,W1 P MOVE TBIN7,TBIN1 P ADD TBIN7,W1 & P CBG TBIN2,TBIN7,KB056 MORE LEFT?
0x0726a0…072834 (1, 144) Opaque[0x194]
0x072834…0729c8 # DirEnt {nam=»MASK02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0148, f03=0x0000}
0x072834…0729c8 IdxSect {
0x072834…0729c8 f00 = 0x000a // 0x72834 @0x0
0x072834…0729c8 f01 = 0x0006 // 0x72836 @0x2
0x072834…0729c8 gno = [ // 0x72838 @0x4
0x072834…0729c8 [0x00]: C0x000a.0x1.0
0x072834…0729c8 [0x01]: C0x000b.0x0.0
0x072834…0729c8 [0x02]: C0x001d.0x0.0
0x072834…0729c8 ]
0x072834…0729c8 }
0x0729c8…072b5c Dummy {f00=0x000a, f01=0x0190, f02=» $ P IDENT MASK02 830317 NJ INT. SID L P************************************************************************ , L P* INPUT FIELD DESCRIPTORS * | L P************************************************************
0x072b5c…072cf0 Dummy {f00=0x000a, f01=0x0190, f02=» r L PMASK02 EQU * 2 L P DATA NUM NUMBER OF INPUT FIELDS P DATA MSKE02 END OF TABLE P DATA 0,2 L P*
0x072cf0…072e84 Dummy {f00=0x000a, f01=0x0190, f02=» * V L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION f L P DATA LENG LENGTH OF INPUT FIELD B P D
0x072e84…073018 Dummy {f00=0x000a, f01=0x018e, f02=» * L L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD B P DATA /0134
0x073018…0731ac Dummy {f00=0x000a, f01=0x0190, f02=» L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION T L P DATA LENG LENGTH OF INPUT FIELD B P DATA /0177 11/23
0x0731ac…073340 Dummy {f00=0x000a, f01=0x0190, f02=»CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION J L P DATA LENG LENGTH OF INPUT FIELD B P DATA /0177 11/23
0x073340…0734d4 (1, 145) Dummy {f00=0x000b, f01=0x0190, f02=»R POSITION L P DATA DCPO DC-BUFFER POSITION @ L P DATA LENG LENGTH OF INPUT FIELD B P DATA /4156 10/22
0x0734d4…073668 Dummy {f00=0x000b, f01=0x0190, f02=» v L P DATA DCPO DC-BUFFER POSITION 6 L P DATA LENG LENGTH OF INPUT FIELD B P DATA /06DB 54/27
0x073668…0737fc Dummy {f00=0x000b, f01=0x0190, f02=» l L P DATA DCPO DC-BUFFER POSITION , L P DATA LENG LENGTH OF INPUT FIELD | B P DATA /06E3 55/3
0x0737fc…073990 Dummy {f00=0x000b, f01=0x0190, f02=» b L P DATA DCPO DC-BUFFER POSITION " L P DATA LENG LENGTH OF INPUT FIELD r B P DATA /0703 56/3 P
0x073990…073b24 Dummy {f00=0x000b, f01=0x0190, f02=» ` L P DATA DCPO DC-BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD p P DATA /073C 57/28 L P*
0x073b24…073cb8 Dummy {f00=0x000b, f01=0x0190, f02=»OSITION z L P DATA LENG LENGTH OF INPUT FIELD : B P DATA /0758 58/24 L P*
0x073cb8…073e4c Dummy {f00=0x000b, f01=0x0190, f02=» p L P DATA LENG LENGTH OF INPUT FIELD 0 B P DATA /0822 65/2 L P*
0x073e4c…073fe0 Dummy {f00=0x000b, f01=0x0190, f02=» f L P DATA LENG LENGTH OF INPUT FIELD & B P DATA /076C 59/12 v L P* *
0x073fe0…074174 (1, 146) Dummy {f00=0x001d, f01=0x0190, f02=» L P DATA LENG LENGTH OF INPUT FIELD B P DATA /0784 60/4 l L P* * L P DATA
0x074174…074308 Dummy {f00=0x001d, f01=0x0190, f02=» R L P DATA LENG LENGTH OF INPUT FIELD B P DATA /07AD 61/13 b L P* * L P DATA CURP CURSO
0x074308…07449c Dummy {f00=0x001d, f01=0x4156, f02=» H L P DATA LENG LENGTH OF INPUT FIELD B P DATA ATTR 00/00 X L P* * PMSKE02 EQU * L P END
0x07449c…074630 Dummy {f00=0x001d, f01=0x2008, f02=» NT MASK02 L P END 8@
0x074630…0747c4 Dummy {f00=0x001d, f01=0x0190, f02=» PERF READDC,W1 ANYTHING WAITING? ) P BOK DCEX95 * * P DSC1 DC,STIMO,CTIMOUT * > P PERF LCKTST * $ P* IB CTEST,DCEX91,DCEX92,DCEX93 * p P TBT TALTBUF,DCEX20 * 4 P XCOPY OUTBUF,W0,W1,TKEYS,W0 MOVE KEYLOCKSTATUS * P WRITE DC,OUTBUF,OUTLEN *
0x0747c4…074958 Dummy {f00=0x001d, f01=0x0190, f02=» P BNOK DCEX99 + P CLEAR TALTBUF + PDCEX30 + . P PERF TSTGTP + < P PERF READDC,CTIMOUT + P P BNOK DCEX99 + l P B DCEX95 + PDCEX91 + P* MOVE INBUF,MASK + P* MOVE INLEN,=W'106' + P* B DCEX95 + PDCEX92 + P* MOVE INBUF,TICKE
0x074958…074aec Dummy {f00=0x001d, f01=0x018e, f02=» + P DSC1 LAMPS,ON,W1 , P CMP W0,W0 , " PDCEX99 , 4 P RET , B P PEND , N P , P , d P , l PREADDC PROC P , t P MOVE TLEN,CBUFLEN , P MOVE TBUF,CSP , P DSC1 DC,STIMO,P , P CBNE CTEST,W0,RDDC20 , P READ DC,TBUF,TLEN ,
0x074aec…074c80 Dummy {f00=0x001d, f01=0x0190, f02=» PRDDC90 - P RET - P PEND - P - , P - 4 PSSLL PROC - < " P* TEST FOR "GENTAG GL. MASKE" - N P MOVE TSTRG5,INBUF - t & P CBE TSTRG5,=X'0E20200A0A',SSLL95 - P MOVE TSTRG6,INBUF - ( P CBE TSTRG6,=X'0E20200F0A0A',SSLL95 - P CMP W0,W1
0x074c80…074e14 (1, 147) Opaque[0x194]
0x074e14…074fa8 # DirEnt {nam=»MASK03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0780, f03=0x0000}
0x074e14…074fa8 IdxSect {
0x074e14…074fa8 f00 = 0x003c // 0x74e14 @0x0
0x074e14…074fa8 f01 = 0x0004 // 0x74e16 @0x2
0x074e14…074fa8 gno = [ // 0x74e18 @0x4
0x074e14…074fa8 [0x00]: C0x003c.0x0.0
0x074e14…074fa8 [0x01]: C0x003c.0x1.0
0x074e14…074fa8 ]
0x074e14…074fa8 }
0x074fa8…07513c Dummy {f00=0x003c, f01=0x0190, f02=» & P IDENT MASK03 830823 NJ LIGGEVOGN L P************************************************************************ . L P* INPUT FIELD DESCRIPTORS * ~ L P**********************************************************
0x07513c…0752d0 Dummy {f00=0x003c, f01=0x0190, f02=» t L PMASK03 EQU * 4 L P DATA NUM NUMBER OF INPUT FIELDS P DATA MSKE03 END OF TABLE P DATA 0,3 L P
0x0752d0…075464 Dummy {f00=0x003c, f01=0x0190, f02=» * X L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION h L P DATA LENG LENGTH OF INPUT FIELD P
0x075464…0755f8 Dummy {f00=0x003c, f01=0x0190, f02=» p L P DATA DCPO DC-BUFFER POSITION 0 L P DATA LENG LENGTH OF INPUT FIELD B P DATA /4175 11/21
0x0755f8…07578c Dummy {f00=0x003c, f01=0x0190, f02=» f L P DATA DCPO DC-BUFFER POSITION & L P DATA LENG LENGTH OF INPUT FIELD v B P DATA /4175 11/21
0x07578c…075920 Dummy {f00=0x003c, f01=0x0190, f02=» L P DATA DCPO DC-BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD l B P DATA /4156 10/22 L P*
0x075920…075ab4 (1, 148) Dummy {f00=0x003c, f01=0x0190, f02=» R L P DATA DCPO DC-BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD b B P DATA /06DB 54/27 L P*
0x075ab4…075c48 Dummy {f00=0x003c, f01=0x0190, f02=» H L P DATA DCPO DC-BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD X B P DATA /0758 58:24 L P*
0x075c48…075ddc Dummy {f00=0x003c, f01=0x0190, f02=»ATA DCPO DC-BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD N B P DATA /0822 65/2 L P*
0x075ddc…075f70 Dummy {f00=0x003c, f01=0x0190, f02=»C-BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD D P DATA /0782 60/2 L P* * L P DATA CURP C
0x075f70…076104 Dummy {f00=0x003c, f01=0x018e, f02=» L L P DATA LENG LENGTH OF INPUT FIELD B P DATA /07AD 61/13 L P* * L P DATA CURP CURSOR POSI
0x076104…076298 Dummy {f00=0x003c, f01=0x4150, f02=» L P DATA LENG LENGTH OF INPUT FIELD @ P DATA ATTR 0/0 T L P* * PMSKE03 EQU * L P END
0x076298…07642c Dummy {f00=0x003c, f01=0x2008, f02=» NT MASK03 L P END 8@
0x07642c…0765c0 Dummy {f00=0x003c, f01=0x018e, f02=» C P 30C'PLADSART/ANTAL? ', C P 30C'TOG? ', C 0 P 30C'STATION? ', C H . P 30C'KLASSE/KUPE, @NSKE UFORENELIG ', C d , P 30C'KUPE/RYGER, @NSKE UFORENELIG ', C , P 30C'DATAMATEN OPTAGET, PR@V IGEN ', C P 30C'DATO? ', C
0x0765c0…076754 (1, 149) Opaque[0x194]
0x076754…0768e8 # DirEnt {nam=»MASK04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0790, f03=0x0000}
0x076754…0768e8 IdxSect {
0x076754…0768e8 f00 = 0x003c // 0x76754 @0x0
0x076754…0768e8 f01 = 0x0006 // 0x76756 @0x2
0x076754…0768e8 gno = [ // 0x76758 @0x4
0x076754…0768e8 [0x00]: C0x003c.0x2.0
0x076754…0768e8 [0x01]: C0x0041.0x2.0
0x076754…0768e8 [0x02]: C0x004e.0x0.0
0x076754…0768e8 ]
0x076754…0768e8 }
0x0768e8…076a7c Dummy {f00=0x003c, f01=0x0190, f02=» $ P IDENT MASK04 830307 NJ INT. LIG L P************************************************************************ , L P* INPUT FIELD DESCRIPTORS * | L P************************************************************
0x076a7c…076c10 Dummy {f00=0x003c, f01=0x0190, f02=» r L PMASK04 EQU * 2 L P DATA NUM NUMBER OF INPUT FIELDS P DATA MSKE04 END OF TABLE P DATA 0,4 L P*
0x076c10…076da4 Dummy {f00=0x003c, f01=0x0190, f02=» * V L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION f L P DATA LENG LENGTH OF INPUT FIELD N P D
0x076da4…076f38 Dummy {f00=0x003c, f01=0x0190, f02=» * X L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION h L P DATA LENG LENGTH OF INPUT FIELD N P
0x076f38…0770cc Dummy {f00=0x003c, f01=0x0190, f02=» * Z L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION j L P DATA LENG LENGTH OF INPUT FIELD N
0x0770cc…077260 Dummy {f00=0x003c, f01=0x0190, f02=» * L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION l L P DATA LENG LENGTH OF INPUT FIELD
0x077260…0773f4 (1, 150) Dummy {f00=0x0041, f01=0x0190, f02=» * ^ L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION n L P DATA LENG LENGTH OF INPUT FIELD
0x0773f4…077588 Dummy {f00=0x0041, f01=0x0190, f02=» * ` L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION p L P DATA LENG LENGTH OF INPUT FIELD
0x077588…07771c Dummy {f00=0x0041, f01=0x0190, f02=» * b L P DATA CURP CURSOR POSITION " L P DATA DCPO DC-BUFFER POSITION r L P DATA LENG LENGTH OF INPUT FIELD
0x07771c…0778b0 Dummy {f00=0x0041, f01=0x0190, f02=» * d L P DATA CURP CURSOR POSITION $ L P DATA DCPO DC-BUFFER POSITION t L P DATA LENG LENGTH OF INPUT FIELD
0x0778b0…077a44 Dummy {f00=0x0041, f01=0x0190, f02=» * f L P DATA CURP CURSOR POSITION & L P DATA DCPO DC-BUFFER POSITION v L P DATA LENG LENGTH OF INPUT FIELD
0x077a44…077bd8 Dummy {f00=0x0041, f01=0x0190, f02=» * h L P DATA CURP CURSOR POSITION ( L P DATA DCPO DC-BUFFER POSITION x L P DATA LENG LENGTH OF INPUT FIELD
0x077bd8…077d6c Dummy {f00=0x0041, f01=0x0190, f02=» * j L P DATA CURP CURSOR POSITION * L P DATA DCPO DC-BUFFER POSITION z L P DATA LENG LENGTH OF INPUT FIELD
0x077d6c…077f00 Dummy {f00=0x0041, f01=0x0190, f02=»SOR POSITION L P DATA DCPO DC-BUFFER POSITION B L P DATA LENG LENGTH OF INPUT FIELD N P DATA /07AD FIELD ATTRIBUTES
0x077f00…078094 (1, 151) Dummy {f00=0x004e, f01=0x0190, f02=»URSOR POSITION L P DATA DCPO DC-BUFFER POSITION D L P DATA LENG LENGTH OF INPUT FIELD L P DATA ATTR FIELD ATTRIBUTES
0x078094…078228 Dummy {f00=0x004e, f01=0x405c, f02=» L P END @ XITION D L P DATA LENG LENGTH OF INPUT FIELD L P DATA ATTR FIELD ATTRIBUTES
0x078228…0783bc Dummy {f00=0x004e, f01=0x2008, f02=» NT MASK04 L P END 8@
0x0783bc…078550 Dummy {f00=0x004e, f01=0x018e, f02=»KSET P MOVE TBIN8,W2 P B RKB090 " PRKB040 TOO MANY INPUTCHARS 4 P MOVE TBIN8,W3 X P B RKB090 n PRKB050 NORMAL P MOVE TBIN8,W4 P B RKB090 PRKB060 P MOVE TBIN8,W5 PRKB090 P PERF PULL,W4 P
0x078550…0786e4 Dummy {f00=0x004e, f01=0x0190, f02=» D P* TP1 - HOW MANY CHARACTERS TO READ (MAX), ON RETURN THIS ITEM 8 P* WILL CONTAIN THE ACTUAL NBR OF CHARS READ L L P* TP2 - ON COMPLETION THIS ITEM WILL POINT AT THE END-OF-ITEM KEY USED P* P* SPECIAL FEATURES: > P* BSP -
0x0786e4…078878 Dummy {f00=0x004e, f01=0x0190, f02=»IN1 - LENGTH OF JUST COMPLETE 'KI' F P* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT * & P* TBIN3 - DISPLACEMENT IN TSTRG40 t P* TBIN4 - ORIG. LENGTH P* TBIN5 - INDEX TO KEYTABLE P* TBIN6 - SCRATCH P* TBIN7 - SCRA
0x078878…078a0c Dummy {f00=0x004e, f01=0x0190, f02=»N8,W0,KBR010 P MOVE TBIN8,W1 PKBR010 * P CLEAR TBOOL 8 P MOVE TBIN3,W0 L $ P MOVE TBIN4,TP1 SAVE ORIG.LENGTH b P MOVE TBIN2,TP1 P MOVE TSTRG40,CZERO 2 P MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED 4 P XCOPY TSTRG40,W0,TB
0x078a0c…078ba0 Dummy {f00=0x004e, f01=0x0190, f02=»FTAB IF FILLED UP z $ P KI KEYB,TKBBUF,KTAB02,TBIN1,TP2 & P BOK KBR040 KEYLOCK OR TERM. CHAR. B , P* A CHAR NEITHER ALPHANUM NOR LISTED IN l P* KEYTABLE IS INPUT P* SIZE OF BUFFER IS REACHED P* POWER FAILURE " P* REQ. NBR OF CH
0x078ba0…078d34 (1, 152) Opaque[0x194]
0x078d34…078ec8 # DirEnt {nam=»MASK05«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11b8, f03=0x0000}
0x078d34…078ec8 IdxSect {
0x078d34…078ec8 f00 = 0x008d // 0x78d34 @0x0
0x078d34…078ec8 f01 = 0x0006 // 0x78d36 @0x2
0x078d34…078ec8 gno = [ // 0x78d38 @0x4
0x078d34…078ec8 [0x00]: C0x008d.0x3.0
0x078d34…078ec8 [0x01]: C0x00e9.0x2.0
0x078d34…078ec8 [0x02]: C0x00e9.0x3.0
0x078d34…078ec8 ]
0x078d34…078ec8 }
0x078ec8…07905c Dummy {f00=0x008d, f01=0x0190, f02=» ( P IDENT MASK05 811116 NJ AFBESTILLING L P************************************************************************ 0 L P* INPUT FIELD DESCRIPTORS * L P********************************************************
0x07905c…0791f0 Dummy {f00=0x008d, f01=0x0190, f02=» v L PMASK05 EQU * 6 L P DATA NUM NUMBER OF INPUT FIELDS P DATA MSKE05 END OF TABLE P DATA 0,5 L
0x0791f0…079384 Dummy {f00=0x008d, f01=0x0190, f02=» * Z L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION j L P DATA LENG LENGTH OF INPUT FIELD N
0x079384…079518 Dummy {f00=0x008d, f01=0x0190, f02=» * L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION l L P DATA LENG LENGTH OF INPUT FIELD
0x079518…0796ac Dummy {f00=0x008d, f01=0x0190, f02=» * ^ L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION n L P DATA LENG LENGTH OF INPUT FIELD
0x0796ac…079840 Dummy {f00=0x008d, f01=0x0190, f02=» * ` L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION p L P DATA LENG LENGTH OF INPUT FIELD
0x079840…0799d4 (1, 153) Dummy {f00=0x00e9, f01=0x0190, f02=» * b L P DATA CURP CURSOR POSITION " L P DATA DCPO DC-BUFFER POSITION r L P DATA LENG LENGTH OF INPUT FIELD
0x0799d4…079b68 Dummy {f00=0x00e9, f01=0x0190, f02=» * d L P DATA CURP CURSOR POSITION $ L P DATA DCPO DC-BUFFER POSITION t L P DATA LENG LENGTH OF INPUT FIELD
0x079b68…079cfc Dummy {f00=0x00e9, f01=0x0190, f02=» * f L P DATA CURP CURSOR POSITION & L P DATA DCPO DC-BUFFER POSITION v L P DATA LENG LENGTH OF INPUT FIELD
0x079cfc…079e90 Dummy {f00=0x00e9, f01=0x0190, f02=» * h L P DATA CURP CURSOR POSITION ( L P DATA DCPO DC-BUFFER POSITION x L P DATA LENG LENGTH OF INPUT FIELD
0x079e90…07a024 Dummy {f00=0x00e9, f01=0x0190, f02=» * j L P DATA CURP CURSOR POSITION * L P DATA DCPO DC-BUFFER POSITION z L P DATA LENG LENGTH OF INPUT FIELD
0x07a024…07a1b8 Dummy {f00=0x00e9, f01=0x0190, f02=» * l L P DATA CURP CURSOR POSITION , L P DATA DCPO DC-BUFFER POSITION | L P DATA LENG LENGTH OF INPUT FIELD
0x07a1b8…07a34c Dummy {f00=0x00e9, f01=0x4094, f02=» * l PMSKE05 EQU * , L P END @@ ITION | L P DATA LENG LENGTH OF INPUT FIELD
0x07a34c…07a4e0 Dummy {f00=0x00e9, f01=0x2008, f02=» NT MASK05 L P END 8@
0x07a4e0…07a674 (1, 154) Dummy {f00=0x00e9, f01=0x0190, f02=»04 % PTEST2706 & PTEST2709 & PTEST2711 & * , P CBE TBIN1,=W'31',TEST2798 ONLY 30 DAYS & : P B TEST2799 & j PTEST2702 & ~ P CBG TBIN1,=W'29',TEST2798 & P B TEST2799 & PTEST2798 & P PERF PULL,W2 & P CMP W0,W1 & P RET & P
0x07a674…07a808 Dummy {f00=0x00e9, f01=0x0190, f02=»5,TKBBUF & P CBE TBCD5,=D'0',TEST2899 ' P CBE TBCD5,=D'1',TEST2899 ' 2 P CBE TBCD5,=D'2',TEST2899 ' T P CMP TBCD5,=D'6' ' v PTEST2899 ' P RET ' P PEND ' P ' P ' P ' PTEST29 PROC ' P MOVE TBCD5,TKBBUF ' P CBE TBCD5
0x07a808…07a99c Dummy {f00=0x00e9, f01=0x4150, f02=»,=D'6' ' PTEST2999 ( P RET ( P PEND ( * P ( 8 P ( @ P ( H PTEST30 PROC ( P P CMP W0,W0 ( d P RET ( v P PEND ( P ( P ( P ( PTEST31 PROC ( P CMP W0,W0 ( P RET ( P PEND ( P ( P ( P ( PTEST32 P
0x07a99c…07ab30 Dummy {f00=0x00e9, f01=0x2008, f02=» ) NT PLSUB2 END @ &
0x07ab30…07acc4 Dummy {f00=0x00e9, f01=0x0190, f02=»a < V " F <P W* @S " P ( Up $ C " :T d d d " " Aa AU .T @S P c P " AU " c X X Up " , , Aa Aa :B Aa Q (P _ # # H Aa " Ac| Ac~ 4 c c 4 @c|
0x07acc4…07ae58 Dummy {f00=0x00e9, f01=0x0190, f02=» Q";H @b ;d b ( @b "( Up @b " :S :X :Y :Z d $P WH d Ac Ab 0R 9Q 0 Ac :B d _" Ac " d AcT 0R$ 9U AR FQ 0:D AcT d _* 'T d :H_ AcT " Ac| Ac~ 4 c c T
0x07ae58…07afec Dummy {f00=0x00e9, f01=0x0190, f02=» W W ?W :W .W / ad Ad T db " @d`T db Ad( d, d ( @d Ad` " db dX d ( A( dV( Ad` " Ad d @d d P Ad d ( d Ad " !d 1d d Q (P _ # # H A " A A 4 4 @
0x07afec…07b180 Dummy {f00=0x00e9, f01=0x0190, f02=» [ R !FFP !EET W If 6 * B Z 9 ! ; *Xt 8 ! Df 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U J L 1 e !00T ; G _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? L Z
0x07b180…07b314 (1, 155) Opaque[0x194]
0x07b314…07b4a8 # DirEnt {nam=»MASK06«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0260, f03=0x0000}
0x07b314…07b4a8 IdxSect {
0x07b314…07b4a8 f00 = 0x0013 // 0x7b314 @0x0
0x07b314…07b4a8 f01 = 0x0006 // 0x7b316 @0x2
0x07b314…07b4a8 gno = [ // 0x7b318 @0x4
0x07b314…07b4a8 [0x00]: C0x0013.0x0.0
0x07b314…07b4a8 [0x01]: C0x0021.0x2.0
0x07b314…07b4a8 [0x02]: C0x0036.0x3.0
0x07b314…07b4a8 ]
0x07b314…07b4a8 }
0x07b4a8…07b63c Dummy {f00=0x0013, f01=0x0190, f02=» $ P IDENT MASK06 830317 NJ SOVEVOGN L P************************************************************************ , L P* INPUT FIELD DESCRIPTORS * | L P************************************************************
0x07b63c…07b7d0 Dummy {f00=0x0013, f01=0x0190, f02=» r L PMASK06 EQU * 2 L P DATA NUM NUMBER OF INPUT FIELDS P DATA MSKE06 END OF TABLE P DATA 0,6 L P D
0x07b7d0…07b964 Dummy {f00=0x0013, f01=0x0190, f02=» V L P DATA LENG LENGTH OF INPUT FIELD P DATA /013F 9/31 f P* ~ L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION
0x07b964…07baf8 Dummy {f00=0x0013, f01=0x0190, f02=»UTES x P* : L P DATA CURP CURSOR POSITION D L P DATA DCPO DC-BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD
0x07baf8…07bc8c Dummy {f00=0x0013, f01=0x0190, f02=» DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION P L P DATA LENG LENGTH OF INPUT FIELD N P DATA /0000 FIELD ATTRIB
0x07bc8c…07be20 Dummy {f00=0x0013, f01=0x0190, f02=» L L P DATA DCPO DC-BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD N P DATA /06DB FIELD ATTRIBUTES P* L P
0x07be20…07bfb4 (1, 156) Dummy {f00=0x0021, f01=0x0190, f02=» X L P DATA LENG LENGTH OF INPUT FIELD N P DATA /06E6 FIELD ATTRIBUTES h P L P DATA CURP CURSOR POSITION
0x07bfb4…07c148 Dummy {f00=0x0021, f01=0x0190, f02=» b N P DATA /0723 FIELD ATTRIBUTES " L P DATA CURP CURSOR POSITION t L P DATA DCPO DC-BUFFER POSITION
0x07c148…07c2dc Dummy {f00=0x0021, f01=0x0190, f02=» d P & L P DATA CURP CURSOR POSITION . L P DATA DCPO DC-BUFFER POSITION ~ L P DATA LENG LENGTH OF INPUT FIELD
0x07c2dc…07c470 Dummy {f00=0x0021, f01=0x0190, f02=»ON x L P DATA DCPO DC-BUFFER POSITION 8 L P DATA LENG LENGTH OF INPUT FIELD N P DATA /0822 FIELD ATTRIBUTES
0x07c470…07c604 Dummy {f00=0x0021, f01=0x0190, f02=»BUFFER POSITION L P DATA LENG LENGTH OF INPUT FIELD B N P DATA /076E FIELD ATTRIBUTES P* L P DATA CURP CURSOR POSITION
0x07c604…07c798 Dummy {f00=0x0021, f01=0x0190, f02=»ATA LENG LENGTH OF INPUT FIELD P DATA /0782 60/2 N P* f L P DATA CURP CURSOR POSITION p L P DATA DCPO DC-BUFFER POSITION
0x07c798…07c92c Dummy {f00=0x0021, f01=0x0190, f02=» ` P* " L P DATA CURP CURSOR POSITION , L P DATA DCPO DC-BUFFER POSITION | L P DATA LENG LENGTH OF INPUT FIELD
0x07c92c…07cac0 Dummy {f00=0x0021, f01=0x4190, f02=»ON x L P DATA DCPO DC-BUFFER POSITION 8 L P DATA LENG LENGTH OF INPUT FIELD L P DATA ATTR FIELD ATTRIBUTES
0x07cac0…07cc54 (1, 157) Dummy {f00=0x0036, f01=0x2008, f02=» NT MASK06 L P END 8@
0x07cc54…07cde8 Dummy {f00=0x0036, f01=0x0190, f02=»
[…0x1…]
0x07cf7c…07d110 Dummy {f00=0x0036, f01=0x0190, f02=» : @ 0 , @ , F * 0& ` N
0x07d110…07d2a4 Dummy {f00=0x0036, f01=0x0190, f02=»R _$ A!_) A I 0 *_ j@!! A0 @ A 0 A f!!! f"!0 f""! f"#! f"$- A!0 QW AF0 b3 k:0 kb0 C C"*0 0 2F F G NF _N0 0 W T B#0 B d 6M 0 ! 2T _( A!0 Q AFW A!0 Q AF0 T 0 0 `!_ 0 2F
0x07d2a4…07d438 Dummy {f00=0x0036, f01=0x0190, f02=» C C C! ? " A" Bh!! B!"AB[ U;jU hA#lhA"!U; U<jU hA#lhA"!U< W!0 hA$ 0 hA$"0 hA$!P 0 hA$"P A!_I0 hA$ X 0 hA$ " !4 " 4 M IP d M! `* M" `+ M$ M!4 !0 .@P0 0 A0 A*P 0 /0 .AP !4 0 ! !P30 2 IU jl !Z 0 lcT#W j[ !Z 0 [eT @U 2
0x07d438…07d5cc Dummy {f00=0x0036, f01=0x0190, f02=» A! P aX B 0 XB " 4 ! L L( L!0 L A 0 A0 L !4 h!! h!" h!# h!$ 0 `!kblch!! d [ 4 A! B 0 W AB0 P 0 B NB _ 0 4 $h!!%$ " A B$ fABhAB B! B B$ A! A "4 "h!!$.,f!!% W$ " A B$ hABfAB B! B B$ A! A "4 Ah!$$A!A"A(=@@@A@B@C
0x07d5cc…07d760 Dummy {f00=0x0036, f01=0x0190, f02=» T A!_ 0 C C$W/ T+H@ W$HA W IF HG W IB IC HD W IE 4 #0 h)$"T 0 h*$"P C! C$W jR "lh"" PR%PD30 h($"P C$ C$Wx0 h)$"P C% C$Wg0 h*$"P C& C$WV0 h)$"PFjQ !lh)")Q3:0 h($"P jQ !lh(")Q2 C C$W%0 h'$"P jQ !lh'")Q2 C C$W # 4 # !4 #jR "lh"
0x07d760…07d8f4 (1, 158) Opaque[0x194]
0x07d8f4…07da88 # DirEnt {nam=»MASK07«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ec8, f03=0x0000}
0x07d8f4…07da88 IdxSect {
0x07d8f4…07da88 f00 = 0x0076 // 0x7d8f4 @0x0
0x07d8f4…07da88 f01 = 0x0004 // 0x7d8f6 @0x2
0x07d8f4…07da88 gno = [ // 0x7d8f8 @0x4
0x07d8f4…07da88 [0x00]: C0x0076.0x1.0
0x07d8f4…07da88 [0x01]: C0x0076.0x2.0
0x07d8f4…07da88 ]
0x07d8f4…07da88 }
0x07da88…07dc1c Dummy {f00=0x0076, f01=0x0190, f02=» P IDENT MASK07 830318 NJ BIL L P************************************************************************ ( L P* INPUT FIELD DESCRIPTORS * x L P****************************************************************
0x07dc1c…07ddb0 Dummy {f00=0x0076, f01=0x0190, f02=» n L PMASK07 EQU * . L P DATA NUM NUMBER OF INPUT FIELDS ~ P DATA MSKE07 END OF TABLE P DATA 0,7 L P*
0x07ddb0…07df44 Dummy {f00=0x0076, f01=0x0190, f02=» * R L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION b L P DATA LENG LENGTH OF INPUT FIELD B P DATA
0x07df44…07e0d8 Dummy {f00=0x0076, f01=0x0190, f02=» H L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION X L P DATA LENG LENGTH OF INPUT FIELD @ P DATA /06DB XX
0x07e0d8…07e26c Dummy {f00=0x0076, f01=0x0190, f02=»A CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION L L P DATA LENG LENGTH OF INPUT FIELD @ P DATA /0B52 XX
0x07e26c…07e400 Dummy {f00=0x0076, f01=0x0190, f02=»R POSITION L P DATA DCPO DC-BUFFER POSITION @ L P DATA LENG LENGTH OF INPUT FIELD @ P DATA /0B6B XX
0x07e400…07e594 (1, 159) Dummy {f00=0x0076, f01=0x0190, f02=» t L P DATA DCPO DC-BUFFER POSITION 4 L P DATA LENG LENGTH OF INPUT FIELD @ P DATA /0B99 XX
0x07e594…07e728 Dummy {f00=0x0076, f01=0x4172, f02=» h L P DATA DCPO DC-BUFFER POSITION ( L P DATA LENG LENGTH OF INPUT FIELD x > P DATA ATTR XX
0x07e728…07e8bc Dummy {f00=0x0076, f01=0x2008, f02=» NT MASK07 L P END 8@
0x07e8bc…07ea50 Dummy {f00=0x0076, f01=0x0190, f02=» I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T H : W a2 V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W ? V W R 9 W D H ) $ P@ D L
0x07ea50…07ebe4 Dummy {f00=0x0076, f01=0x0190, f02=» U V U W < + + P _ V : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P
0x07ebe4…07ed78 Dummy {f00=0x0076, f01=0x0190, f02=»P _ V |P V v ]. W v P _ @ @ T H : N =H N T : N =H N T : &=H F T : F =H F T : F =H F T : P N =H N T b T,_ : 00=H 00 P P _ _ : @ ! P (W ( : W X
0x07ed78…07ef0c Dummy {f00=0x0076, f01=0x0190, f02=» @d Pe" !eZ 1e c d d ad ` , . nDC d6 @ z0BKB d = W # T e" drdr 43 GP d *T P
0x07ef0c…07f0a0 Dummy {f00=0x0076, f01=0x0190, f02=» z0BKB e > P e e e 86 DY f : P T b T,_ : 00=H 00 P P _ _ : @ ! P (W ( : W X
0x07f0a0…07f234 (1, 160) Opaque[0x194]
0x07f234…07f3c8 # DirEnt {nam=»MASK08«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05b0, f03=0x0000}
0x07f234…07f3c8 IdxSect {
0x07f234…07f3c8 f00 = 0x002d // 0x7f234 @0x0
0x07f234…07f3c8 f01 = 0x0004 // 0x7f236 @0x2
0x07f234…07f3c8 gno = [ // 0x7f238 @0x4
0x07f234…07f3c8 [0x00]: C0x002d.0x2.0
0x07f234…07f3c8 [0x01]: C0x005a.0x2.0
0x07f234…07f3c8 ]
0x07f234…07f3c8 }
0x07f3c8…07f55c Dummy {f00=0x002d, f01=0x0190, f02=» $ P IDENT MASK08 820601 NJ [NDRING L P************************************************************************ , L P* INPUT FIELD DESCRIPTORS * | L P************************************************************
0x07f55c…07f6f0 Dummy {f00=0x002d, f01=0x0190, f02=» r L PMASK08 EQU * 2 L P DATA NUM NUMBER OF INPUT FIELDS P DATA MSKE08 END OF TABLE P DATA 0,8 L P*
0x07f6f0…07f884 Dummy {f00=0x002d, f01=0x0190, f02=» * V L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION f L P DATA LENG LENGTH OF INPUT FIELD N P D
0x07f884…07fa18 Dummy {f00=0x002d, f01=0x0190, f02=» * X L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION h L P DATA LENG LENGTH OF INPUT FIELD N P
0x07fa18…07fbac Dummy {f00=0x002d, f01=0x0190, f02=» * Z L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION j L P DATA LENG LENGTH OF INPUT FIELD N
0x07fbac…07fd40 Dummy {f00=0x002d, f01=0x0190, f02=» * L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION l L P DATA LENG LENGTH OF INPUT FIELD
0x07fd40…07fed4 (1, 161) Dummy {f00=0x005a, f01=0x0190, f02=» * ^ L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION n L P DATA LENG LENGTH OF INPUT FIELD
0x07fed4…080068 Dummy {f00=0x005a, f01=0x0190, f02=» * ` L P DATA CURP CURSOR POSITION L P DATA DCPO DC-BUFFER POSITION p L P DATA LENG LENGTH OF INPUT FIELD
0x080068…0801fc Dummy {f00=0x005a, f01=0x4088, f02=» * ` PMSKE08 EQU * L P END 4@ ITION p L P DATA LENG LENGTH OF INPUT FIELD
0x0801fc…080390 Dummy {f00=0x005a, f01=0x2008, f02=» NT MASK08 L P END 8@
0x080390…080524 Dummy {f00=0x005a, f01=0x0190, f02=» y Y W ( (P 0 ) > X (P _ ) 1_ X (X( P _ 0 )_6 (P _ ) 1 4 X R2 X T* X P& , Y L C L C " > @ V @ R @ T A TX #d_" X P y Y X P T @ T A A > A A A A A
0x080524…0806b8 Dummy {f00=0x005a, f01=0x0190, f02=» h A P A TL ! TF ! T< ! A I A P " D ! _x ! T " X ! _ ! @ P @ P ! A A _ ! @ P @ (X< ! T A ! ! X _4 A @ ( @ T PP A @ P2 X R, X T$ P C C
0x0806b8…08084c Dummy {f00=0x005a, f01=0x0190, f02=» A ! @ XN ! T @ P ! ! _h 1T" @ X @ P ! ! _ A 8 A @ T _( _, @ T8W @ (T ! _ ! . ! _ A A E A A 4 @ P ! ! ! W @ XT ! _ T _ A . C " B B A A A A A
0x08084c…0809e0 Dummy {f00=0x005a, f01=0x0190, f02=» @ A A ! T2 P4 PJ PL P P. 1 A @ ,]6W P _@ @ ( @ E ! P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! l @ ! @ ! ! ! B J 4 ! l ! @ @ A @ T @ ! 8 ! 0
0x0809e0…080b74 (1, 162) Opaque[0x194]
0x080b74…080d08 # DirEnt {nam=»MASK09«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d90, f03=0x0000}
0x080b74…080d08 IdxSect {
0x080b74…080d08 f00 = 0x00ec // 0x80b74 @0x0
0x080b74…080d08 f01 = 0x0002 // 0x80b76 @0x2
0x080b74…080d08 gno = [ // 0x80b78 @0x4
0x080b74…080d08 [0x00]: C0x00ec.0x2.0
0x080b74…080d08 ]
0x080b74…080d08 }
0x080d08…080e9c Dummy {f00=0x00ec, f01=0x0190, f02=» P IDENT MASK09 DUMMY ENTRY MASK09 " EXTRN NUM,CURP,DCPO,LENG,ATTR 6 MASK09 EQU * DATA NUM p DATA MSKE09 P DATA 0,9 @ ;*********************************************************** DATA CURP * DATA DC
0x080e9c…081030 Dummy {f00=0x00ec, f01=0x4014, f02=» END @ MMY ENTRY MASK09 " EXTRN NUM,CURP,DCPO,LENG,ATTR 6 MASK09 EQU * DATA NUM p DATA MSKE09 P DATA 0,9 @ ;*********************************************************** DATA CURP * DATA DC
0x081030…0811c4 Dummy {f00=0x00ec, f01=0x2008, f02=» @ MMY ENTRY MASK09 " EXTRN NUM,CURP,DCPO,LENG,ATTR 6 MASK09 EQU * DATA NUM p DATA MSKE09 DATA 0,0 @ ;*********************************************************** DATA CURP * DATA DC
0x0811c4…081358 Dummy {f00=0x00ec, f01=0x40c6, f02=» 8 H IDENT D:CB90 TRA 4.2 81-12-04 F1 O1111 811017 NJ D:CB90 @ D:CB90C R * & * ( * f Z , ^ * @ = & [ &
0x081358…0814ec Dummy {f00=0x00ec, f01=0x40d4, f02=» 8 H IDENT C:CB10 TRA 4.2 81-12-04 F1 O1111 811017 NJ C:CB10 @ C:CB10C R * & f P $ $ @ & [ &
0x0814ec…081680 Dummy {f00=0x00ec, f01=0x40ee, f02=» 8 H IDENT D:CB10 TRA 4.2 81-12-04 F1 O1111 811017 NJ D:CB10 @ D:CB10C R * & B f * & = B @ & [ &
0x081680…081814 (1, 163) Opaque[0x194]
0x081814…0819a8 # DirEnt {nam=»DUMMY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12f8, f03=0x0000}
0x081814…0819a8 IdxSect {
0x081814…0819a8 f00 = 0x0097 // 0x81814 @0x0
0x081814…0819a8 f01 = 0x0002 // 0x81816 @0x2
0x081814…0819a8 gno = [ // 0x81818 @0x4
0x081814…0819a8 [0x00]: C0x0097.0x3.0
0x081814…0819a8 ]
0x081814…0819a8 }
0x0819a8…081b3c Dummy {f00=0x0097, f01=0x40c6, f02=» IDENT DUMMY $ ENTRY NUM,CURP,DCPO,LENG,ATTR NUM EQU /AAAA @ CURP EQU /BBBB V DCPO EQU /CCCC n PLENG EQU /DDDD ATTR EQU /EEEE END @ SSYT " P$PCAS M=M:DSB,A=ASSYT,C=CONFT ASG /E0,TY10
0x081b3c…081cd0 Dummy {f00=0x0097, f01=0x2008, f02=» NT DUMMY $ ENTRY NUM,CURP,DCPO,LENG,ATTR NUM EQU /AAAA @ CURP EQU /BBBB V DCPO EQU /CCCC n LENG EQU /DDDD/ ATTR EQU /EEEE END @ SSYT " P$PCAS M=M:DSB,A=ASSYT,C=CONFT ASG /E0,TY10
0x081cd0…081e64 Dummy {f00=0x0097, f01=0x40ce, f02=» L H IDENT T:DT00 TRA 4.2 - - F1 O1111 TEST ALLPICATION 81-06-18 T:DT00 T T:DT00D f HGOD z , ( T0 * * @ * & P , , (
0x081e64…081ff8 Dummy {f00=0x0097, f01=0x40b8, f02=» L H IDENT T:ATAB TRA 4.2 - - F1 O1111 TEST ALLPICATION 81-06-18 T:ATAB T T:ATABA f T:AT00 z @ :A @ @ * & P , , (
0x081ff8…08218c Dummy {f00=0x0097, f01=0x40a2, f02=» L H IDENT U:BTAB TRA 4.2 - - F1 O1111 TEST ALLPICATION 81-06-18 U:BTAB T U:BTABB f z :B @ :A @ @ * & P , , (
0x08218c…082320 Dummy {f00=0x0097, f01=0x40a2, f02=» L H IDENT S:BTAB TRA 4.2 - - F1 O1111 TEST ALLPICATION 81-06-18 S:BTAB T S:BTABB f z :B @ :A @ @ * & P , , (
0x082320…0824b4 (1, 164) Opaque[0x194]
0x0824b4…082648 # DirEnt {nam=»PROCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x0824b4…082648 IdxSect {
0x0824b4…082648 f00 = 0x0008 // 0x824b4 @0x0
0x0824b4…082648 f01 = 0x0002 // 0x824b6 @0x2
0x0824b4…082648 gno = [ // 0x824b8 @0x4
0x0824b4…082648 [0x00]: C0x0008.0x2.0
0x0824b4…082648 ]
0x0824b4…082648 }
0x082648…0827dc Dummy {f00=0x0008, f01=0x018e, f02=» PT; P17; PTID=KA; TCL=K0; * LEV=60; : 01; J TDC=T01; V PLC=01L; f P02; v SDC=S01; PSDC=S02; T; P01; PTID=KR; PTCL=K0; PLEV=60; P01; PTDC=T01; PLC=0
0x0827dc…082970 Dummy {f00=0x0008, f01=0x0148, f02=» PTDC=T01; PLC=03R; P02; $ PSDC=S01; 0 PSDC=S02; @ PT; P P06; Z PTID=KT; f TCL=K0; v LEV=60; 01; TDC=T01; PLC=18L; P02; SDC=S01; PSDC=S02; T; 01; TID=
0x082970…082b04 Dummy {f00=0x0008, f01=0x2008, f02=» T01; PLC=03R; P02; $ PSDC=S01; 0 PSDC=S02; @ PT; P P06; Z PTID=KT; f TCL=K0; v LEV=60; 01; TDC=T01; PLC=18L; P02; SDC=S01; PSDC=S02; T; 01; TID=
0x082b04…082c98 Dummy {f00=0x0008, f01=0x0190, f02=»P B l , ( q 5 P C P B % P C I:RT1 < T:EDWR L I:EDW ` , ( + p T:EDWEC T:EDWF , ( C C B B P C T:EDWIN
0x082c98…082e2c Dummy {f00=0x0008, f01=0x0190, f02=» I:EVA7 , ( : % Y , ( ) C & R V C F , ( G : B T v T:FDS0 x T:FDSP, T:GDSP , ( e T T V : 2 ' W
0x082e2c…082fc0 Dummy {f00=0x0008, f01=0x0190, f02=»;D:B " : v , ( _ C : I:EVA2 F , ( : P C X , ( W $0 P C : " , ( !@P ") # B C B % C C T:STCW < , ( ; :
0x082fc0…083c60 (2, 0) DirGranule ((2, 0)) {
0x082fc0…083c60 DirEnt {nam=»M:DSB «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»M:DSB «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0050, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b28, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x00e8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00b8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10c0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02d0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0290, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05d0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0318, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03f0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0590, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0240, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0898, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0800, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bf0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0610, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f10, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a70, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0640, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0340, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07b8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a18, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b78, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0300, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0268, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0870, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0880, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0818, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0660, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DVGP00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0670, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0688, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06a0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b00, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b10, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»M:DSB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1198, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»MONGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x06b0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»SYSBUG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»B:DSB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1280, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»LISTS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»FILLER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03f8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»SYSHIS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06a8, f03=0x0000}
0x082fc0…083c60 DirEnt {nam=»T:DSB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0da8, f03=0x0000}
0x082fc0…083c60 }
0x083c60…083df4 (2, 1) Opaque[0x194]
0x083df4…083f88 # DirEnt {nam=»M:DSB «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0050, f03=0x0000}
0x083df4…083f88 IdxSect {
0x083df4…083f88 f00 = 0x0002 // 0x83df4 @0x0
0x083df4…083f88 f01 = 0x000e // 0x83df6 @0x2
0x083df4…083f88 gno = [ // 0x83df8 @0x4
0x083df4…083f88 [0x00]: C0x0002.0x2.0
0x083df4…083f88 [0x01]: C0x0003.0x0.0
0x083df4…083f88 [0x02]: C0x0003.0x1.0
0x083df4…083f88 [0x03]: C0x0003.0x2.0
0x083df4…083f88 [0x04]: C0x0004.0x2.0
0x083df4…083f88 [0x05]: C0x0005.0x1.0
0x083df4…083f88 [0x06]: C0x0005.0x2.0
0x083df4…083f88 ]
0x083df4…083f88 }
0x083f88…08411c Dummy {f00=0x0002, 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
0x08411c…0842b0 Dummy {f00=0x0002, 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
0x0842b0…084444 Dummy {f00=0x0002, f01=0x018e, f02=»SIO SCR MOV SYSLDM,/S,TOSSWORK KPF /S,SYSLDM 6 SCR L MOV SYSLDA,/S,TOSSWORK X KPF /S,SYSLDA v SCR MOV LDTASK,/S,TOSSWORK KPF /S,LDTASK SCR MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB
0x084444…0845d8 Dummy {f00=0x0002, f01=0x0190, f02=» MOV TIODMX,/S,TOSSWORK KPF /S,TIODMX " SCR 8 INC TIODMX,TOSSWORK D KPF /O ` LED SYSTAB n ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x0845d8…08476c Dummy {f00=0x0002, f01=0x0190, f02=»G EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN L ASM /S X KPF /O f KPF /S t SCR LED LRPINT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQ
0x08476c…084900 Dummy {f00=0x0002, f01=0x0190, f02=»DIT 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 MSUBS ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG
0x084900…084a94 (2, 2) Dummy {f00=0x0003, f01=0x0190, f02=» ( #!!CH $$CREDIT EQU 0$$CREDIT 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 TOSSIO ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x084a94…084c28 Dummy {f00=0x0003, f01=0x0190, f02=»/S SCR LED SYSLDM ( #!!CH $$CREDIT EQU 0$$CREDIT 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 SYSLDA ( #!!CH $$C
0x084c28…084dbc Dummy {f00=0x0003, f01=0x0190, f02=»ASM /S KPF /O KPF /S SCR * LED LDTASK 6 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ H ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ t ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x084dbc…084f50 Dummy {f00=0x0003, f01=0x0190, f02=»VTDI,/S,TOSSWORK KPF /S,DVTDI SCR , MOV DVTDY,/S,TOSSWORK 8 KPF /S,DVTDY V SCR j MOV DW1501,/S,TOSSWORK v KPF /S,DW1501 SCR INC DW1501,TOSSWORK KPF /O LED DW1501 ( #!!CH $$CREDIT EQU 0$$C
0x084f50…0850e4 Dummy {f00=0x0003, f01=0x0190, f02=»KPF /O KPF /S SCR MOV DRKB03,/S,TOSSWORK ( KPF /S,DRKB03 F SCR MOV DRGP01,/S,TOSSWORK h KPF /S,DRGP01 SCR MOV DRDI01,/S,TOSSWORK KPF /S,DRDI01 SCR MOV DRDY01,/S,TOSSWORK KP
0x0850e4…085278 Dummy {f00=0x0003, f01=0x0190, f02=»OP1 SCR MOV DRDC15,/S,TOSSWORK KPF /S,DRDC15 6 SCR L LED DRKB03 X !!CH $$ X:A$$ 1$$ j !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$ 30$$ !!
0x085278…08540c Dummy {f00=0x0003, f01=0x0190, f02=»$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ R !!EN ~ ASM /S KPF /O KPF /S SCR LED DRGP01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 0$$ !!
0x08540c…0855a0 Dummy {f00=0x0003, f01=0x0190, f02=»X:H$$ 300$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ @ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ l !!EN ASM /S KPF /O KPF /S SCR LED DRDI01 !!CH $$ X:A$$ 0$$ !!
0x0855a0…085734 (2, 3) Dummy {f00=0x0003, f01=0x018e, f02=»852 EQU 0$$ x !!EN ASM /S KPF /O . KPF /S < SCR J LED DRDY01 V !!CH $$ X:A$$ 0$$ h !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$ 0$$ !!CH
0x085734…0858c8 Dummy {f00=0x0003, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 0 ASM /S < KPF /O J KPF /S X SCR f LED DRRT01 r !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 3$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ /15$$
0x0858c8…085a5c Dummy {f00=0x0003, f01=0x018e, f02=»PU852 EQU 0$$ z !!EN ASM /S " KPF /O 0 KPF /S > SCR L LED DRSOP1 X !!CH $$ X:A$$ 0$$ j !!CH $$ X:B$$ 0$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU
0x085a5c…085bf0 Dummy {f00=0x0003, f01=0x0190, f02=» !!CH $$ X:B$$ /60$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 600$$ : !!CH $$ X:E$$ 0$$ V !!CH $$ X:F$$ 0$$ p !!CH $$ X:G$$ 300$$ !!CH $$ X:H$$ 0$$ !!CH $$ X:I$$ 0$$ !!CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 1$$
0x085bf0…085d84 Dummy {f00=0x0003, f01=0x0190, f02=»!!CH $$ X:Q$$ 0$$ !!CH $$ X:R$$ 300$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 6 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ b ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR MOV EBCDIC,/
0x085d84…085f18 Dummy {f00=0x0003, f01=0x0190, f02=»EN ASM /S KPF /O KPF /S & SCR 4 LED DRKB03 @ !!CH $$ X:A$$ 1$$ R !!CH $$ X:B$$ 1$$ l !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$ 30$$ !!CH $$ X:G$$ 1$$
0x085f18…0860ac Dummy {f00=0x0003, f01=0x018e, f02=»U 1$$ r ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ : !!EN f ASM /S r KPF /O KPF /S SCR LED DVTKB !!DL 35 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0, !!IL
0x0860ac…086240 Dummy {f00=0x0003, f01=0x0190, f02=» LED TOSSIO !!CH $$ X:A$$ 1$$ !!EN 0 ASM /S < KPF /O J KPF /S X SCR f MOV TIMER,/S,TOSSWORK r KPF /S,TIMER SCR MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV TMMLKM,/S,TOSSWORK
0x086240…0863d4 (2, 4) Dummy {f00=0x0003, f01=0x0190, f02=»/S,TABORT SCR MOV MONTIM,/S,TOSSWORK KPF /S,MONTIM < SCR R LED TIMER ^ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ p ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x0863d4…086568 Dummy {f00=0x0003, 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 TMMLKM ~ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU
0x086568…0866fc Dummy {f00=0x0003, f01=0x0190, f02=» ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 0 !!EN ASM /S h KPF /O v KPF /S SCR LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #
0x0866fc…086890 Dummy {f00=0x0003, f01=0x0190, f02=»REDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ P !!EN | ASM /S KPF /O KPF /S SCR LED LKMAL !!DL 019 !!DL 022 !!DL 023 !!DL 024
0x086890…086a24 Dummy {f00=0x0003, f01=0x0190, f02=» DATA 00 !!DL 047 $ DATA 00 4 !!DL 050 P !!DL 051 ` !!EN p ASM /S | KPF /O KPF /S SCR LED LRPINT !!CH $$ X:A$$ 1$$ !!EN ASM /S KPF /O KP
0x086a24…086bb8 Dummy {f00=0x0003, f01=0x018e, f02=» $$ X:D$$ 00000$$ !!CH $$ X:E$$ 00000$$ !!CH $$ X:F$$ 00001$$ 8 , '!!CH $$ILLINT 12$$IH1501 12$$ V , '!!CH $$ILLINT 13$$IH1502 13$$ !!IL 55 EXTRN IH1501 EXTRN IH1502 !!
0x086bb8…086d4c Dummy {f00=0x0003, f01=0x0190, f02=» !!DL 075 !!DL 076 !!DL 077 ( !!DL 078 8 !!DL 079 H !!DL 080 X !!DL 081 h !!DL 85 x !!DL 122 DATA ILLINT !!DL 123 DATA ILLINT !!DL 130 DATA
0x086d4c…086ee0 Dummy {f00=0x0003, f01=0x0190, f02=» DATA ILLINT !!DL 135 DATA ILLINT ( !!DL 136 H DATA ILLINT X !!DL 138 x DATA ILLINT !!DL 142 DATA ILLINT !!DL 145 DATA ILLINT
0x086ee0…087074 (2, 5) Dummy {f00=0x0004, f01=0x0190, f02=» x !!DL 156 DATA ILLINT !!DL 159 8 DATA ILLINT H !!EN h ASM /S t KPF /O KPF /S SCR LED PFTAB !!IL 12 EXTRN DC15ON !!DL 013 !!DL 014
0x087074…087208 Dummy {f00=0x0004, f01=0x0190, f02=» 026 !!DL 027 !!DL 028 !!DL 029 , !!DL 030 < !!DL 031 L !!DL 032 !!DL 033 l !!DL 034 | !!DL 035 !!DL 036 !!DL 037 !!DL 038 !!DL 039 !!IL 40 DATA DC15ON
0x087208…08739c Dummy {f00=0x0004, f01=0x0190, f02=» 052 !!DL 053 !!DL 054 !!DL 055 , !!DL 056 < !!DL 057 L !!DL 058 !!DL 059 l !!DL 060 | !!DL 061 !!DL 062 !!DL 063 !!DL 064 !!DL 065 !!DL 066 !!DL 067 !!EN
0x08739c…087530 Dummy {f00=0x0004, f01=0x0190, f02=»MOV CTAB02,/S,GLMON ASM /S ! KPF /O ! * KPF /S ! 8 SCR ! F MOV DRDC15,/S,GLMON ! R ASM /S ! n KPF /O ! | KPF /S ! SCR ! MOV DRGP01,/S,GLMON ! ASM /S ! KPF /O ! KPF /S ! SCR ! MOV DRDY01,/S,GLMO
0x087530…0876c4 Dummy {f00=0x0004, f01=0x0190, f02=»PAG EQU 0$$MMUPAG EQU 1$$ ! ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ " " !!CH $$DVTKB$$DVKB00$$ " N !!CH $$KBAD$$KBAD3$$ " l !!CH $$/1111$$/1140$$ " !!CH $$BCA$$FFFF$$ " !!CH $$ED0$$BBBA$$ " " !!CH $$0 CODE $$CTAB01 CODE $$ " !!CH $$E
0x0876c4…087858 Dummy {f00=0x0004, f01=0x0190, f02=» ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ # ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ # 0 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ # !!CH $$DVTGP$$DVGP00$$ # !!CH $$/1111$$/2000$$ # !!EN # ASM /S # KPF /O # KPF /S # SCR # LE
0x087858…0879ec Dummy {f00=0x0004, f01=0x0190, f02=»0$$ # p !!CH $$DVTDI$$DVDI00$$ $ !!CH $$2010$$0000$$ $ * !!CH $$/1111$$/9010$$ $ F !!EN $ d ASM /S $ p KPF /O $ ~ KPF /S $ SCR $ LED DVTDY $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x0879ec…087b80 Dummy {f00=0x0004, f01=0x0190, f02=» !!EN % ASM /S % KPF /O % KPF /S % , SCR % : LED DVTKB % F ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ % X ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ % ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ % !!CH $$DVTKB$$DVKB01$$ % !!CH $$KBAD$$K
0x087b80…087d14 (2, 6) Dummy {f00=0x0005, f01=0x018e, f02=»CH $$ECH$$DVDY01$$ % !!DL 5 & EXTRN CTAB02 & ( !!EN & > ASM /S & J KPF /O & X KPF /S & f SCR & t LED DVTDY & ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ & ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & ( #!!CH $$CPU852 EQU 1$$CPU852 EQ
0x087d14…087ea8 Dummy {f00=0x0005, f01=0x0190, f02=» & KPF /S ' SCR ' LED TCLASS ' " !!IL 6 ' 4 EXTRN DVKB00 ' B EXTRN DVGP00 ' b EXTRN DVDI00 ' EXTRN DVDY00 ' EXTRN DVKB01 ' EXTRN DVDY01 ' !!IL 1
0x087ea8…08803c Dummy {f00=0x0005, f01=0x0190, f02=» /0020 ' DATA DVKB00 ( DATA /00300 ( 0 DATA DVGP00 ( P DATA /00400 ( p DATA DVDI00 ( DATA /00500 ( DATA DVDY00 ( TC00E EQU * (
0x08803c…0881d0 Dummy {f00=0x0005, f01=0x0190, f02=» DATA DVDY01 ( TC01E EQU * ) !!EN ) : ASM /S ) F KPF /O ) T KPF /S ) b SCR ) p LED SCLASS ) | !!IL 6 ) EXTRN DWSI01 ) EXTRN DWSO01 ) EXTRN DW1501 ) EXT
0x0881d0…088364 Dummy {f00=0x0005, f01=0x0190, f02=»TC02 ) ~ !!IL 12 * TC00 DATA TC00E-* * DATA /00101 * > DATA DWSI01 * ^ DATA /00111 * ~ DATA DWSO01 * TC00E EQU * * TC01 DATA TC01E-* * DAT
0x088364…0884f8 Dummy {f00=0x0005, f01=0x0190, f02=»01 * z DATA DW1500 + DATA /015 + * DATA DWREMU + < TC02E EQU * + P !!EN + l ASM /S + x KPF /O + KPF /S + SCR + LED MONTAB + !!IL 19 + **** + EXTRN CTAB01 + EXTRN CTAB02 +
0x0884f8…08868c Dummy {f00=0x0005, f01=0x0190, f02=» + !!IL 47 , **** , DATA CTAB01 , $ DATA CTAB02 , : !!DL 049 , P !!DL 050 , ` !!DL 052 , p !!DL 055 , !!DL 057 , !!DL 058 , !!DL 059 , !!DL 060 , !!DL 061 , !!EN , ASM /S , KPF /O ,
0x08868c…088820 Dummy {f00=0x0005, f01=0x0008, f02=»TY10 , !!IL 47 , **** , DATA CTAB01 , $ DATA CTAB02 , : !!DL 049 , P !!DL 050 , ` !!DL 052 , p !!DL 055 , !!DL 057 , !!DL 058 , !!DL 059 , !!DL 060 , !!DL 061 , !!EN , ASM /S , KPF /O ,
0x088820…0889b4 (2, 7) Dummy {f00=0x0005, f01=0x2008, f02=» .
0x0889b4…088b48 Dummy {f00=0x0005, f01=0x0190, f02=»DL 024 !!DL 025 !!DL 026 !!DL 027 . !!DL 028 > !!DL 029 N !!DL 030 ^ !!DL 031 n !!DL 032 ~ !!DL 033 !!DL 034 !!DL 035 !!DL 036 !!DL 037 !!DL 038 !!DL 039 !!IL 40
0x088b48…088cdc Dummy {f00=0x0005, f01=0x0190, f02=»DL 050 !!DL 051 !!DL 052 !!DL 053 . !!DL 054 > !!DL 055 N !!DL 056 ^ !!DL 057 n !!DL 058 ~ !!DL 059 !!DL 060 !!DL 061 !!DL 062 !!DL 063 !!DL 064 !!DL 065 !!DL 066
0x088cdc…088e70 Dummy {f00=0x0005, f01=0x018e, f02=» KPF /S ! SCR ! MOV CTAB02,/S,DSBAID ! " ASM /S ! > KPF /O ! L KPF /S ! Z SCR ! h MOV DRDC15,/S,DSBAID ! t ASM /S ! KPF /O ! KPF /S ! SCR ! LED DVTKB ! ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ! ( #!!CH
0x088e70…089004 Dummy {f00=0x0005, f01=0x0190, f02=» ! z !!CH $$/1111$$/1100$$ " !!CH $$BCA$$FFFF$$ " & !!CH $$ED0$$BBBA$$ " @ " !!CH $$0 CODE $$CTAB01 CODE $$ " Z !!CH $$ECH$$DVDY00$$ " !!DL 5 " EXTRN CTAB01 " !!EN " ASM /S " KPF /O " KPF /S " SCR " LED D
0x089004…089198 Dummy {f00=0x0005, f01=0x0190, f02=» " l !!CH $$DVTGP$$DVGP00$$ # !!CH $$/1111$$/2000$$ # & !!EN # D ASM /S # P KPF /O # ^ KPF /S # l SCR # z LED DVTDI # ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ # ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ # ( #!!CH $$CPU852 EQU 1$$CPU
0x089198…08932c Dummy {f00=0x0005, f01=0x0190, f02=»F /O # KPF /S $ SCR $ LED DVTDY $ & ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ 8 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ d ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!CH $$DVTDY$$DVDY00$$ $ !!CH $$/ABC$$/0628$$ $ !!CH $$/1111$$/C02
0x08932c…0894c0 Dummy {f00=0x0005, f01=0x0190, f02=» ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ % ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ % 0 !!CH $$DVTKB$$DVKB01$$ % !!CH $$KBAD$$KBAD3$$ % z !!CH $$/1111$$/1100$$ % !!CH $$BCA$$FFFF$$ % !!CH $$ED0$$FFFF$$ % " !!CH $$0 CODE $$CTAB02 CODE $$ %
0x0894c0…089654 (2, 8) Opaque[0x194]
0x089654…0897e8 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b28, f03=0x0000}
0x089654…0897e8 IdxSect {
0x089654…0897e8 f00 = 0x0059 // 0x89654 @0x0
0x089654…0897e8 f01 = 0x0002 // 0x89656 @0x2
0x089654…0897e8 gno = [ // 0x89658 @0x4
0x089654…0897e8 [0x00]: C0x0059.0x1.0
0x089654…0897e8 ]
0x089654…0897e8 }
0x0897e8…08997c Dummy {f00=0x0059, f01=0x0190, f02=» 2 P IDENT TCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVGP00 P EXTRN DVDI00 P EXTRN DVDY00 P
0x08997c…089b10 Dummy {f00=0x0059, f01=0x0190, f02=»A TC00 P DATA TC01 PTCLASE EQU * 0 PTC00 DATA TC00E-* D P DATA /0020 f P DATA DVKB00 P DATA /0030 P DATA DVGP00 P DATA /0040 P
0x089b10…089ca4 Dummy {f00=0x0059, f01=0x40c0, f02=» TC01E-* P DATA /0021 P DATA DVKB01 4 P DATA /0031 T P DATA DVDY01 t PTC01E EQU * P END @ P DATA DVGP00 P DATA /0040 P
0x089ca4…089e38 Dummy {f00=0x0059, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x089e38…089fcc Dummy {f00=0x0059, f01=0x018e, f02=»RANSLATE TO ASCII ~ P XIF PIHIN10 RTN A5 & P IFT P6805=0 SALCUZ < PIHIN20 CF A5,SST PERFORM SST X P ABL BRM | P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF SALCUZ P EJECT
0x089fcc…08a160 Dummy {f00=0x0059, f01=0x0190, f02=» P CF A15,SAVE8 SAVE A1 - A8 P XIF & P 2 P IFF CPU852=1 : P MSR 8,A15 SAVE A1-A8 =1 P P XIF p * P CF A15,LDREG RESTORE DC REGS A3 - A8 | P RB IHIN10 P EJECT P* P* & P* SST INSTRUCTION AND STATUS CHECK P
0x08a160…08a2f4 (2, 9) Opaque[0x194]
0x08a2f4…08a488 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x00e8, f03=0x0000}
0x08a2f4…08a488 IdxSect {
0x08a2f4…08a488 f00 = 0x0007 // 0x8a2f4 @0x0
0x08a2f4…08a488 f01 = 0x0078 // 0x8a2f6 @0x2
0x08a2f4…08a488 gno = [ // 0x8a2f8 @0x4
0x08a2f4…08a488 [0x00]: C0x0007.0x1.0
0x08a2f4…08a488 [0x01]: C0x0007.0x2.0
0x08a2f4…08a488 [0x02]: C0x0008.0x3.0
0x08a2f4…08a488 [0x03]: C0x0009.0x1.0
0x08a2f4…08a488 [0x04]: C0x000c.0x3.0
0x08a2f4…08a488 [0x05]: C0x000e.0x1.0
0x08a2f4…08a488 [0x06]: C0x000e.0x3.0
0x08a2f4…08a488 [0x07]: C0x0040.0x2.0
0x08a2f4…08a488 [0x08]: C0x0041.0x3.0
0x08a2f4…08a488 [0x09]: C0x0042.0x0.0
0x08a2f4…08a488 [0x0a]: C0x0042.0x2.0
0x08a2f4…08a488 [0x0b]: C0x0014.0x3.0
0x08a2f4…08a488 [0x0c]: C0x0043.0x1.0
0x08a2f4…08a488 [0x0d]: C0x0016.0x3.0
0x08a2f4…08a488 [0x0e]: C0x0047.0x2.0
0x08a2f4…08a488 [0x0f]: C0x0047.0x3.0
0x08a2f4…08a488 [0x10]: C0x004b.0x2.0
0x08a2f4…08a488 [0x11]: C0x004b.0x3.0
0x08a2f4…08a488 [0x12]: C0x004c.0x0.0
0x08a2f4…08a488 [0x13]: C0x0054.0x0.0
0x08a2f4…08a488 [0x14]: C0x0054.0x1.0
0x08a2f4…08a488 [0x15]: C0x0054.0x2.0
0x08a2f4…08a488 [0x16]: C0x002e.0x3.0
0x08a2f4…08a488 [0x17]: C0x0030.0x1.0
0x08a2f4…08a488 [0x18]: C0x0064.0x3.0
0x08a2f4…08a488 [0x19]: C0x0064.0x1.0
0x08a2f4…08a488 [0x1a]: C0x0033.0x1.0
0x08a2f4…08a488 [0x1b]: C0x0067.0x3.0
0x08a2f4…08a488 [0x1c]: C0x0068.0x0.0
0x08a2f4…08a488 [0x1d]: C0x006c.0x0.0
0x08a2f4…08a488 [0x1e]: C0x006d.0x2.0
0x08a2f4…08a488 [0x1f]: C0x0053.0x3.0
0x08a2f4…08a488 [0x20]: C0x0072.0x3.0
0x08a2f4…08a488 [0x21]: C0x0073.0x0.0
0x08a2f4…08a488 [0x22]: C0x005e.0x0.0
0x08a2f4…08a488 [0x23]: C0x0060.0x0.0
0x08a2f4…08a488 [0x24]: C0x007e.0x2.0
0x08a2f4…08a488 [0x25]: C0x0082.0x1.0
0x08a2f4…08a488 [0x26]: C0x0046.0x3.0
0x08a2f4…08a488 [0x27]: C0x0072.0x2.0
0x08a2f4…08a488 [0x28]: C0x007d.0x0.0
0x08a2f4…08a488 [0x29]: C0x0046.0x2.0
0x08a2f4…08a488 [0x2a]: C0x0083.0x0.0
0x08a2f4…08a488 [0x2b]: C0x0045.0x2.0
0x08a2f4…08a488 [0x2c]: C0x0041.0x0.0
0x08a2f4…08a488 [0x2d]: C0x0041.0x1.0
0x08a2f4…08a488 [0x2e]: C0x0084.0x1.0
0x08a2f4…08a488 [0x2f]: C0x0034.0x0.0
0x08a2f4…08a488 [0x30]: C0x0034.0x2.0
0x08a2f4…08a488 [0x31]: C0x0039.0x1.0
0x08a2f4…08a488 [0x32]: C0x0058.0x1.0
0x08a2f4…08a488 [0x33]: C0x0059.0x0.0
0x08a2f4…08a488 [0x34]: C0x0059.0x2.0
0x08a2f4…08a488 [0x35]: C0x012e.0x1.0
0x08a2f4…08a488 [0x36]: C0x0020.0x1.0
0x08a2f4…08a488 [0x37]: C0x0037.0x1.0
0x08a2f4…08a488 [0x38]: C0x006e.0x1.0
0x08a2f4…08a488 [0x39]: C0x006e.0x2.0
0x08a2f4…08a488 [0x3a]: C0x009b.0x2.0
0x08a2f4…08a488 [0x3b]: C0x009b.0x3.0
0x08a2f4…08a488 ]
0x08a2f4…08a488 }
0x08a488…08a61c Dummy {f00=0x0007, f01=0x4168, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVGP00 DVDI00 DVDY00 , ( 0 @ P DVKB01 DVD
0x08a61c…08a7b0 Dummy {f00=0x0007, f01=0x415c, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d DWSI01 x DWSO01 DW1501 , ( D a DW1500 DWREMU
0x08a7b0…08a944 Dummy {f00=0x0007, f01=0x0190, f02=» J F IDENT MONTAB REL 9.2 79-11-16 870105040920 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R & " INTRT1 INTRT2 INTRT3 INTRT4 MONTABK FREQUE PAGQUE INT
0x08a944…08aad8 Dummy {f00=0x0007, f01=0x4106, f02=» INTRT4 SYSLOD CTAB01L $ CTAB02 6 * & H KBAD3 v GPADN DIADN DYADN SPDLCI $ " & @ NT
0x08aad8…08ac6c Dummy {f00=0x0007, f01=0x018e, f02=» > @ IDENT DEBUGM REL 9.2 79-11-16 870105040920 dBUG F |BUG T , ( A U A @ * A d , ( ! A " @ ~ A A ~ @ , ( A A A @ A A @ , ( a A A
0x08ac6c…08ae00 Dummy {f00=0x0007, f01=0x0190, f02=» f , ( , ( $ ( , 0 4 8 , ( # 8 < h , ( C , ( c , (
0x08ae00…08af94 (2, 10) Dummy {f00=0x0007, f01=0x0190, f02=» T :a R T <a Z _ = , ( :A , >a @ ( , ( " # A P UW B X , ( C @ = / M Q , ( c R S T Y G P H L , ( V I U _v
0x08af94…08b128 Dummy {f00=0x0007, f01=0x0190, f02=» P A A x , ( . , + - ; : , ( # X " H W X " H H H , ( C A A A _T @ P A 1+ x , ( !T c X A _ @ A @ A _ , ( ! A UP " , (
0x08b128…08b2bc Dummy {f00=0x0007, f01=0x0190, f02=» h , ( 0 _, W , ( ! # W P @ & 0 8 , ( C T A P P h , ( c _b _J A , ( $T @ W @ , ( % T @ W
0x08b2bc…08b450 Dummy {f00=0x0007, f01=0x0190, f02=» _L W @ $ 0 , ( # W $ A W @ A ( , ( C P 3P X , ( c C @ P @ @ P @ Q , ( A $ @ A " T @ W @ , ( ( A A
0x08b450…08b5e4 Dummy {f00=0x0007, f01=0x0190, f02=» @ P x , ( # & @ A 9 Y , ( $ C *>a Y j c A A " H , ( P c & A *<a P j A x , ( @ ) " A H , ( U A @ & @ @ , (
0x08b5e4…08b778 Dummy {f00=0x0007, f01=0x0190, f02=» h , ( # RE RN ME MN W R , ( C ( T ( W P T $ ; V 8 , ( c ; W &~ P &`P 6 P @ h , ( $ P $W $ T P , ( #~ > V . >A P Y X , ( W ^ ?
0x08b778…08b90c Dummy {f00=0x0007, f01=0x0190, f02=» ^ P _ " ^ , ( $ C T @ 9J A T _ 1@ _ ( , ( c ^ 9 V >! D A X , ( A > > > > > , ( > > > ^ _ ^ _ ? ? ? ? ? , ( A ^ @ ?
0x08b90c…08baa0 Dummy {f00=0x0007, f01=0x0190, f02=» A > A x , ( C > A A ^ " , , ( c , A A :B A Q (P _ # # H , ( H A " A 0R x , ( 9U AR FQ 0:D A , ( _* A " A A , (
0x08baa0…08bc34 (2, 11) Dummy {f00=0x0008, f01=0x0190, f02=» h , ( C $ T ! " A @ T , ( c 0W 0W A @ T 1W 1 8 , ( @ " P A UT @ W T h " @ W T @ W @ " , ( @ D H L P T X ` d h l p t x | , (
0x08bc34…08bdc8 Dummy {f00=0x0008, f01=0x0190, f02=» /W : A W ! A A ~ , ( y P _ @ _ , ( I T " T N , ( A P I T ! A A A A A A ~ , ( A A @ A A @ , ( B A @ > @ _ $
0x08bdc8…08bf5c Dummy {f00=0x0008, f01=0x0190, f02=»V A n @ y H D ! ' 3 7 C G S W c g s w " H D ! P h L R h h : F # + P 1P 5W ; h ? L n H D ! C G Z I P M S W [ _ c g k o s w { H D !
0x08bf5c…08c0f0 Dummy {f00=0x0008, f01=0x0190, f02=» p R H D !+^ T P T W 6 W Z W P F b W H D !5 #W +PP = b C IT M SP W f ] h a 0 i Z m F s : y h 8 P Z H D ! T W T W P F F 8 F F H D ! p Z W b %
0x08c0f0…08c284 Dummy {f00=0x0008, f01=0x0190, f02=» ` Z P ) Z 7 8 = X U n c Z m } 8 n Z T P@ H D !x PB p p Z $ T AR, GT KW UT ]V mW~ uP yP }P P F H D ! < W TR PJ V P W P W P W & " W 3P H D ! 9 h IT UT ] kV o w {
0x08c284…08c418 Dummy {f00=0x0008, f01=0x412c, f02=»U h # 4 + : / 4 9 P = T C X GT [ _ 8 v H D !, aT eW i mW q u 8 wT {W P& T W T 2 H D !)B W T W ?R EW" K h OW U h YW ]W aW eW k oW ~ H D ! u yPL } T T P T$ 'R> /P6 7T. =P EW ]T k
0x08c418…08c5ac Dummy {f00=0x0008, f01=0x4128, f02=» J F IDENT TIODMX REL 9.2 79-11-16 870105040920 4 0 TIODM CHKIND REQEND FDBADF TCFILE COFILE R TIODM CHKIND REQEND FDBADF TCFILE COFILE
0x08c5ac…08c740 Dummy {f00=0x0008, f01=0x0190, f02=» J F IDENT SYSTAB REL 9.2 79-11-16 870105040920 F B SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL SCTSEG R F B SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC SCTLACL SCTMMP SCTLAP F B SCTNPE SCTSTB SCTOPT SCTTCT
0x08c740…08c8d4 (2, 12) Dummy {f00=0x0009, f01=0x0190, f02=»:PA PAG:SB SWB:NC SWB:DS SWB:ELS SWB:NS0 z T:ACSB 4 SEG:ST F SEG:DSL Z SEG:EL n SEG:PBI PAG:QF PAG:QBV PAG:PA PAG:SB SWB:NC SWB:DS
0x08c8d4…08ca68 Dummy {f00=0x0009, f01=0x018e, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b CHRT1 r , ( , ( ! CHLT2 CHLT3 , ( 1
0x08ca68…08cbfc Dummy {f00=0x0009, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA S
0x08cbfc…08cd90 Dummy {f00=0x0009, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x08cd90…08cf24 Dummy {f00=0x0009, f01=0x4062, f02=» [ _ ] ^ , ` L@ ^ X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x08cf24…08d0b8 Dummy {f00=0x0009, f01=0x0190, f02=» J F IDENT TDISP REL 9.2 79-11-16 870105040920 8 4 TDISP MEXIT DISIOE DISEND DISQUE PRUNY RETUR8 R DISQUE PRUNY RETUR8 MEXIT EXITN DISIOE TENDIO
0x08d0b8…08d24c Dummy {f00=0x0009, f01=0x4130, f02=» (X0 @ P T x * & @ = M ]@ , ) A P P Y TTB:SA` F , ( W B U ( ) 5 > X TTB:PWN TTB:MT , ( q$$ > [ [ Z Z Z ? Z > W 9P O
0x08d24c…08d3e0 Dummy {f00=0x0009, f01=0x0190, f02=» > @ IDENT LRPINT 9.2DK 1 83-04-29 870105040920 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE MONCLO IHPFAR F INIFLG IHLKM INTSAV PRUN TTB:SA , ( A$ A _
0x08d3e0…08d574 (2, 13) Dummy {f00=0x000c, f01=0x0190, f02=» , ( 5 $P c P W P A LKMAL 4 , ( Q V ( U P @ V D LKMERR x t HALT LKMRQE ~ * & mD L W @ U LKMQDI QTJOB TDISP
0x08d574…08d708 Dummy {f00=0x000c, f01=0x018e, f02=» A r SWLXY , ( Q _8 A < Q P " MONCLO R , ( Q Z Y _ f MEXIT FREBLK , ( 8 Q Z P 0 9 , ( _ _, ?
0x08d708…08d89c Dummy {f00=0x000c, f01=0x4164, f02=» DISQUE , ( OH A A A JQ ? @ " > PWROFF J PFINIT , ( i ) A "_ D A $ D A L n PWRON @ & A A ( H D ! . %T 5P ;P ?W: EP, SV cP" iV qW 8 Q
0x08d89c…08da30 Dummy {f00=0x000c, f01=0x0190, f02=» J F IDENT TPROC REL 9.2 79-11-16 870105040920 * & TWAIT TEXIT TACTOT TPAUSE TMWAIT R FNDDWT TWAIT DWTWAT TEXIT EXITN TDISP * & @ P "R Y W
0x08da30…08dbc4 Dummy {f00=0x000c, f01=0x018a, f02=» P n TPAUSE TMWAIT 6 " DWTST 6 , ( 1@ _ <U "R P F DWTTAB v , ( MD@ X R X T X T . T , ( g G Y6 G _b P LKMRQE LKMQDI
0x08dbc4…08dd58 Dummy {f00=0x000c, f01=0x4008, f02=»@ n TPAUSE TMWAIT 6 " DWTST 6 , ( 1@ _ <U "R P F DWTTAB v , ( MD@ X R X T X T . T , ( g G Y6 G _b P LKMRQE LKMQDI
0x08dd58…08deec Dummy {f00=0x000c, f01=0x0190, f02=» J F IDENT MSUBS REL 9.2 79-11-16 870105040920 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDTID PFINIT SWL48 SWLXY ILLINT INTSAV@ HALTY IHRET8 IHRET2 IHRET1 IHRTN SAVE8
0x08deec…08e080 Dummy {f00=0x000c, f01=0x0190, f02=»P T I v QMJOB J TTMJOB ( ACTOTP T : , ( ; R $ 5 % > ? W ? N ACTOT ~ TTB:SA , ( Y $ W ? T T U U U TTB:ID TTB:SB, , ( s H U
0x08e080…08e214 (2, 14) Dummy {f00=0x000e, f01=0x0190, f02=» T P 0 U z GETBLK FREQUE . , ( _t ? @ T @ FREBLKL p * & 0 A 1 Q Q > > 0 @ FNDDWT TTB:TD , ( 1 A P P > ?
0x08e214…08e3a8 Dummy {f00=0x000e, f01=0x0190, f02=»W > _& @ 8 | * & K R Y T ? X D T FNDTID | J SCTTCTD ^ * & e W > _& W > 8 X W ? ` p , ( @ @ P $ H W IHRET8 IHRET2 IHRET1
0x08e3a8…08e53c Dummy {f00=0x000e, f01=0x4154, f02=» , ( > _ > ? _ > > ? ^ INTSAV@ 4 ILLINT H HALTY , ( ! Y ^ _ ? n A. H D ! 4 $ 1P ;R SW [W gT$ T P T R" #T < 8 3T> 9
0x08e53c…08e6d0 Dummy {f00=0x000e, f01=0x0190, f02=» J F IDENT TTMJOB REL 9.2 79-11-16 870105040920 F B TTB:LAK TTB:MT TTB:SB TTMJOB TTB:QL TTB:ID TTB:STL TTB:PP R TTB:PW TTB:SA TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x08e6d0…08e864 Dummy {f00=0x000e, f01=0x40ac, f02=» TTB:PW TTB:SA , ( ! #M 1 & TTB:TD ( V A j K L @ A TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x08e864…08e9f8 Dummy {f00=0x000e, f01=0x8190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIXV DM:DIX PC:DIX8
0x08e9f8…08eb8c Dummy {f00=0x000e, f01=0x818e, f02=»UEC# DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 z * & DWTSB2f DWTTP DWTECHj DWTSQ DWTVOLW 4 DWTCHP b DWTST v DWTBC DWTECB DWTOR DWTOCH DWTADR DWTTAB DWTWAT
0x08eb8c…08ed20 Dummy {f00=0x000e, f01=0x8190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x08ed20…08eeb4 (2, 15) Dummy {f00=0x000e, f01=0x8190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x08eeb4…08f048 Dummy {f00=0x000e, f01=0x818e, f02=»P l TDISP FNDDWT |TIO . , ( yI U XH > TTB:ID n , ( D #DP @ R XV Y TIODM , ( @ P T W X &P TTB:PW , (
0x08f048…08f1dc Dummy {f00=0x000e, f01=0x8190, f02=» , ( - x '? Y T Y GETBLKP 4 QTJOB F , ( K W Y T # P W V , ( g Y P R R P P (@ (@ , ( " 2 X $? P $ > > , (
0x08f1dc…08f370 Dummy {f00=0x000e, f01=0x8190, f02=» F :c" v TTB:MTE , ( ' H :b"? #" : C > B R ( , ( E Q P B P X , ( e 0$ T # R Q > , ( X B U H Q X D B , ( $ T C x > C
0x08f370…08f504 Dummy {f00=0x000e, f01=0x8190, f02=» U H B P P $ # , ( # Q > P * , ( C _0 # T p > P p (_H Z , ( c _2 B U DC:MOT , ( X > ? _ X T DC:MIN
0x08f504…08f698 Dummy {f00=0x000e, f01=0x8190, f02=» Q M r , ( X D ( * & ) 1 > _" X X T B TTMJOBP p MEXIT QMJOB , ( B = U . TENDIO b , ( U@ Y _| ?(@
0x08f698…08f82c Dummy {f00=0x000e, f01=0x8190, f02=» 1 1 X P - M T , ( @ $ P _ T " # ( , ( p X L R P P (@ X , ( @ ^ X P P # P , ( ' @ T P 0P 1 FREBLK ACTOTPN
0x08f82c…08f9c0 Dummy {f00=0x000e, f01=0xc154, f02=» x UW cP uP P P, T W P T T W4 GT MW UT H D ! YP ]W mP sR uP { }P Q P GQ~ QP0 WP* mT yQL } B H D ! U( Q2 T V b UJ P PL +Q 1P KT SP U T Rl H D ! U Q0 b sP& P P T T P PD
0x08f9c0…08fb54 (2, 16) Dummy {f00=0x0040, f01=0x018e, f02=» J F IDENT SYSLDM REL 9.2 79-12-20 870105040920 SYSLDMK R SYSLDMK d SCTSFA x SYSBAS SCTEFA TCLASSV , ( I A SCLASS SAV
0x08fb54…08fce8 Dummy {f00=0x0040, f01=0x0190, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT: J , ( i @ 4 Y 5 X SAVE01f * & * _6 : @ TTMJOB SCTDMT , ( " ]
0x08fce8…08fe7c Dummy {f00=0x0040, f01=0x0190, f02=» . !TTP @ NXTBLK $ , ( T Y " !TTX" 6 SCTTCTW f , ( B$ A 9 A $ : @ $ x SCTDMI , ( %B @ P @ &" P #D " , ( A P #E " P #F
0x08fe7c…090010 Dummy {f00=0x0040, f01=0x0190, f02=»9B @ @ z * & T : SCTDML@ F SAVE04 X , ( @ (:B W * . !TTP j SAVE19E SAVE16E , ( W , N =H N W SAVE17T , (
0x090010…0901a4 Dummy {f00=0x0040, f01=0x0190, f02=»W @ % P , ( Y P " U $ , ( w _2 T , ( P " U , ( _2 , ( A V * V ,P S
0x0901a4…090338 Dummy {f00=0x0040, f01=0x0190, f02=» % P p , ( 7 W @ % P " !TTT bREL @ , ( @ S 6 @ @ T N , ( m : @ ! ~ SCTADA SCTLAC PRGLG1 , ( $ P @ 8 @ : < CR
0x090338…0904cc Dummy {f00=0x0040, f01=0x0190, f02=» h , ( @ !RRP @ ! T , ( 3 @ & P 3 8 , ( 3 YL @ @ h , ( 1 T : FREQUE SCTBLK , ( K @ B ` $ @
0x0904cc…090660 Dummy {f00=0x0040, f01=0x0190, f02=» @ T p , ( : P , ( H S S _ : . ! @ , ( TTP V W , p * & * P , ( _ SAVE03N
0x090660…0907f4 (2, 17) Dummy {f00=0x0041, f01=0x0190, f02=» H I K T , ( } + Y@ V 0 _j V , , ( Y " !TTX @ @ T P * & : , ( $ @ R @ , ( T P
0x0907f4…090988 Dummy {f00=0x0041, f01=0x0190, f02=» W , P W N SAVE14G , ( K ( W P 0 , ( g G =h G V P V < ` , ( V N P W N _B V , ( $ W V , Yr " !TTX @ , ( @ T
0x090988…090b1c Dummy {f00=0x0041, f01=0x0190, f02=» $ $ , ( % _. P V 4 SCTDCTN P , ( C U $ $ _. b , ( aH @ R @ @ ! P V SCTDMC SCTCDT * & y 8 8 8 @ T>B
0x090b1c…090cb0 Dummy {f00=0x0041, f01=0x018e, f02=» V t , ( N _2 U V * & 8 8 8 4 D P B , ( ! L @ # P H I p , ( = K T + Y@ _`R , ( ]H @ @ R @ % P V , ( u
0x090cb0…090e44 Dummy {f00=0x0041, f01=0x0190, f02=» * & V Z @ 0 V SAVE072 6 , ( P _ W ^ $ q > R H DWTECH x * & P >b W >b & 8P D P U SYSLOD , ( ` E W b V W R 9 , ( W
0x090e44…090fd8 Dummy {f00=0x0041, f01=0x0190, f02=» V j , ( o ^ -W H P U ` I @ % , ( P H I H T P H : , ( U V FU W j , ( F H < + + P , ( @ V : V X $ * & F !
0x090fd8…09116c Dummy {f00=0x0041, f01=0x0190, f02=» W R _ $ SAVE21S ( , ( qD W Z : W 4 f : SAVE23I j , ( @ h | , ( *T P _ / P , ( *_ *T P _ .P
0x09116c…091300 Dummy {f00=0x0041, f01=0x0190, f02=» _ V 4P V f ] ~ , ( ; jW f P _ @ , ( U @ T N , ( o @ : N =H N 2 : N =H N ~ , ( 2 : &=H F 2 : F =H , ( F 2 : F =H F 2 :
0x091300…091494 (2, 18) Dummy {f00=0x0042, f01=0x0190, f02=» ! n , ( P (W ( : ~ F , ( = v @ : < > , ( Y CRT @ ! P ` : @ E "W n SYSLDA * & sH ` : @ E " l H D !p P # N / N G &
0x091494…091628 Dummy {f00=0x0042, f01=0x0190, f02=» g uU P0 U PJ 5P ;W CP QT kT P T H D ! PP P T P 3T [P _ g {V T P H H D !m P r P ! )Ph 1 OP$ _P T R T P T H D ! * 7 r ? CPT Y a i P T
0x091628…0917bc Dummy {f00=0x0042, f01=0x410e, f02=» P W P P W V W R W 3P@ AT@ x H D ! GP cP sW yP PD P( U P T !WR %T /W, 3T ?W ET QW 4 H D ! cR T P P T P$ P U P W 'P 3P =W IP [T P ( $ T P P P !W [T" cP qW @
0x0917bc…091950 Dummy {f00=0x0042, f01=0x0190, f02=» J F IDENT SYSLDA REL 9.2 79-12-21 870105040920 D @ JUMPY SYSLDA dREL LDALEN MOVEY ERROR CMPADR NXTBLKL NXTCOM R F B CONVRT GETNUM MMTAB TABBE MMEND MMDDIV BUFSIZ` SYSBUF M:REL F B SAVE01 SAVE120 SAVE03 SAVE04 S
0x091950…091ae4 Dummy {f00=0x0042, f01=0x0190, f02=»9( SAVE20 SAVE21 SAVE22 SAVE23F SAVE24V x SAVE25 2 |REL D $ W W " T , ( 1 ; Z [ : : [ [ | SYSLDMP JUMPY , ( Q : SAVE0
0x091ae4…091c78 Dummy {f00=0x0042, f01=0x0190, f02=»AVE08 , ( o SAVE09 @ SAVE10 T SAVE11 h SAVE120 | SAVE13D SAVE22 SAVE25 M:REL SYSBUF BUFSIZ` , (
0x091c78…091e0c Dummy {f00=0x0042, f01=0x0190, f02=» p SAVE18 r SAVE19( t SAVE20 n 2 SAVE21 v F SAVE23F z Z SAVE24V | n MMDDIV MMTAB TABBE MMEND , (
0x091e0c…091fa0 Dummy {f00=0x0042, f01=0x0190, f02=» U R $ )_ : , ( ? W W W W W $ , ( _ Q V V v x W T , ( V V v p R W V , ( W ^< _@ V _P V , ( V : V
0x091fa0…092134 (2, 19) Dummy {f00=0x0042, f01=0x0190, f02=»:K W r t , ( ? Q R t , ( _ V > v : D , ( V W V ) : V t , ( <B W |P v v , ( : $ V |P v w , (
0x092134…0922c8 Dummy {f00=0x0042, f01=0x0190, f02=» , ( ? <B V x V |P v , ( _ 1 v W V z ` _f V 4 , ( : W R R P W x d , ( @ _ V : " D P , ( W V P $;A^ D E D , ( P V
0x0922c8…09245c Dummy {f00=0x0042, f01=0x0190, f02=» ;B " , ( _ R P |P v $ CMPADR T , ( v : V W 0 : h , ( V P 9a _ " ( ) 8 ( ) , ( : " $ V P 9A _ 0 : W , ( W W ?A
0x09245c…0925f0 Dummy {f00=0x0042, f01=0x018e, f02=» j SAVE8 , ( = 0 H W : ? ? SCTLAC J , ( ] R 0 ACTOT RETUR8P , ( y R P P B _ : , ( V ) v : 4P
0x0925f0…092784 Dummy {f00=0x0042, f01=0x0190, f02=» , ( ` V b pP , ( ` $ $ W H 4 , ( @ - L ) P _ " = d , ( E M D 4 Q _d * L , ( P m > = G V W , ( $ V E
0x092784…092918 Dummy {f00=0x0042, f01=0x0190, f02=» @ @ x SCTPAG SCTNOPN * * & ! @ < , ( P P P P _ _ j SCTPSZ , ( D @ 9N @ :b @ :b , ( / V W U
0x092918…092aac Dummy {f00=0x0042, f01=0x0190, f02=» l SCTSEG , ( A A 9n A :B A , ( D @ .V N PAGQUE ~ , ( 3 S Y& P , ( S P , ( 3 _
0x092aac…092c40 Dummy {f00=0x0042, f01=0x0190, f02=» @ W A & TDISP & , ( k : A ( > 6 , ( @ l : R W n f , ( V pT : N V l W H V ]" , ( " . nT W v W , ( D n V ~P
0x092c40…092dd4 (2, 20) Dummy {f00=0x0014, f01=0x0190, f02=» v G G v U , ( i v G v : P V & , ( : V ~P W x V , ( _$ 8 V V x % V v % : V , ( V > 9k! , ( P % _ V V W W
0x092dd4…092f68 Dummy {f00=0x0014, f01=0x018e, f02=» f v ) G v , ( g v ` " W p W ~ pP , ( @ R P _ W ~ R F , ( $ X4 _ ` @ ` W v , ( P W ~ pP V W , ( % R , , (
0x092f68…0930fc Dummy {f00=0x0014, f01=0x0190, f02=» f , ( c P * I W z ` p , ( P H - V I 8 , ( " R E R T h , ( E D E @ v H v , ( E > #_v W | , ( ;b W
0x0930fc…093290 Dummy {f00=0x0014, f01=0x0190, f02=» , ( A 0 :C # : .=H N , ( D a : .=H N : 4 GETNUM d , ( N : d 8" x SYSLDA , ( BR _ ZY QY : $ @ , ( V H W z W | CR
0x093290…093424 Dummy {f00=0x0014, f01=0x0190, f02=» !TTP N x , ( 3 :H N TBT W W 2 " T , ( S @ N =H N H , ( s : @ ) T !TTXX !CCT x , ( @ X !UUT d W , ( 2 .:H N P V , (
0x093424…0935b8 Dummy {f00=0x0014, f01=0x0190, f02=» h , ( / :b / W , ( O : W @ W D 8 , ( k V W W ` " h , ( W p @ pP " , ( 4X 1 R , ( @Z0
0x0935b8…09374c Dummy {f00=0x0014, f01=0x0190, f02=» W V V >k 8 W , ( G W t V V : ( g x X H D ! W> 2 0 . 1 2 C S Y j V !W %U 1R g iQ@ R( l H D !e P z V U z V z M OQ QR ] _V V W V H D !
0x09374c…0938e0 Dummy {f00=0x0014, f01=0x4152, f02=» , P H D ! P P P P| ?V CW GU6 QT WW aP iP( mP qV uW yU H D ! Q P P V P4 P 7 B W x [ R T T" P %V X H D ! 0 3P _U {P V P P P0 P Pn /P 3 B = B AW GT eP Pl H D ! T R P R 'P
0x0938e0…093a74 (2, 21) Dummy {f00=0x0043, f01=0x0190, f02=» J F IDENT LDTASK REL 9.2 79-12-06 870105040920 6 2 LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB PQEMTY R PQEMTY TTABLD , ( #L 1
0x093a74…093c08 Dummy {f00=0x0043, f01=0x0190, f02=»AGQUEA , ( @ A ( @ PAG:QB > PAG:SB P * & % X H A ) @ H b TTB:MT , ( = D P 1 % E I L TLDS20 SEG:EL * & U U
0x093c08…093d9c Dummy {f00=0x0043, f01=0x0190, f02=»CW , ( ( C 9b;BT SCTLAP : ECBBA L SCTPLDT , ( " C 0 @ # n * & W C U R C , ( W C R # R , ( _8
0x093d9c…093f30 Dummy {f00=0x0043, f01=0x4152, f02=»TB:SBH * & ) HT :" U U ( F QLTSWB X < , ( A M 0 - A Q '_D P QLTDSK ^ ACTOT LKMERR LT:SWB j & " Y W * , D @ @4 V ?P T
0x093f30…0940c4 Dummy {f00=0x0043, f01=0x4104, f02=» J F IDENT DW1501 REL 9.2 79-11-16 870105040920 DW1501K R DW1501K d DC15AD x , ( DC @ . " . @ PDW
0x0940c4…094258 Dummy {f00=0x0043, f01=0x018e, f02=» > F IDENT DRKB03 9.2 DSB 820603 NJ KBAD3 F KBAD3 V DWTST h , ( Y U x , ( R -P X , ) Y . X * & ? " P :A: R Q W Y , (
0x094258…0943ec Dummy {f00=0x0043, f01=0x0190, f02=» f STREG , ( 4 T % X ,T ! W ECHON H , ( Y . V ! B P X X , ( " _Z B P $$ R % , ( C * ! W Y +P Y *P , ( / Y (P Y )P R _
0x0943ec…094580 Dummy {f00=0x0043, f01=0x0190, f02=»T N W X x , ( ,P Y . 0 %_. % Y . W _p ECHEND H * & P _ C ! Z DISEND , ( " Q R X R LDREG DWTA3 , ( ;GV P X
0x094580…094714 (2, 22) Dummy {f00=0x0016, f01=0x018e, f02=» l , ( W :a Z T T W P X :d , ( u Y > > |V ? 8 R @ < , ( R V @% =cW R P R P l , ( 9 W _ _ _ _ %0=c , ( X 0P > 0 P > >_ , ( P
0x094714…0948a8 Dummy {f00=0x0016, f01=0x415a, f02=» H D ! T T T W V P P$ R W 'PH -P> H D ! 3P 9P = CR GQ MP QR UR YW kWr oW } T W P W P H D !a P QP R R( V$ N P8 R2 V. 3P 9 ?T CW aT H D ! eT gW kP Vj R R6 V
0x0948a8…094a3c Dummy {f00=0x0016, f01=0xc0a8, f02=»R6 CV2 IP Y ]P8 ^ H D ! cR2 gV. P h T W T T W P Vj R R6 V W2 RH ( $ P R P W4 7P CP OP qT f x @ mPP yR {Q W T z H D ! 4 X Ph P T T T P h V X P +
0x094a3c…094bd0 Dummy {f00=0x0016, f01=0x0190, f02=» J F IDENT DRGP01 REL 9.2DK, 81-06-11 8701050409 GPADY ECHOGP R GPADY j DISIOE | , ( , P P OUTPUT * & B P B L # +P ! ! , ( ;
0x094bd0…094d64 Dummy {f00=0x0016, f01=0x0190, f02=» U P , ( T Y &_. P R P O]> V , ( _F T Y Y & V Y _^ P , ( C _P " $ P DWTBC , ( $ X & X ]r ! Y , ( Y Y _
0x094d64…094ef8 Dummy {f00=0x0016, f01=0x0190, f02=» Y & Y > B B , ( K U $ ! T _ U D ! " , ( k T _ C > X Z^<BR P R LDREG ECHOGP , ( f " T X _~ R V * & ! P P P P R ?Q ! E
0x094ef8…09508c Dummy {f00=0x0016, f01=0x4150, f02=» P t , ( @ P X " ! * & 1 ! X & $ D H D ! x PB P8 #P 1P AT UW cW w > U P" T P4 r H D ! R( Pj V T P . MU$ WT aU kT R P T R0 V0 P* ,
0x09508c…095220 Dummy {f00=0x0016, f01=0x0190, f02=» J F IDENT DRDI01 REL 9.2 79-11-16 870105040920 DIADY R DIADY b , ( B 8# T $ # ;D t DISIOE` , ( ! !99P 7P P Y X T SETIMP , ( ?
0x095220…0953b4 (2, 23) Dummy {f00=0x0047, f01=0x415e, f02=» , ( X Y 8# T W T X DWTECB 8 OUTLINA J , ( $ P X P B V *@ Y TDISP DISEND & " I ? X _F H D !p@ T %P )Pj -PZ ;T G l ]P
0x0953b4…095548 Dummy {f00=0x0047, f01=0x0190, f02=» J F IDENT DRDY01 9.2DK 1 80-02-12 870105040921 DYADY ECHODY R DYADY j OUTPUT | , ( , , ( !@ ! 8! P ! P P DISIOE , ( =
0x095548…0956dc Dummy {f00=0x0047, f01=0x0190, f02=» &_. 8$ T B 1 ! GETCHR 0 , ( X " E P 8 B , ( '0P E T ! T 9 _z ! T r , ( @_ ! B P , ( 8' T ! B C ^T DWT
0x0956dc…095870 Dummy {f00=0x0047, f01=0x018e, f02=» _ r , ( " $ P X ' X , ( ] ! B 8 B , ( @! T ! ! ! ! r , ( R ! _ B ! V Z, , ( @ ! _ 8! T B Y & ! W B , (
0x095870…095a04 Dummy {f00=0x0047, f01=0x018e, f02=» , ( } P R ! _ R _ , ( @ @ ! Y ' " ! 8!0 4 , ( T 8 !@P ! $ P ! d , ( A ! ! T Y & TENDIO TDISP , ( HT X & C X
0x095a04…095b98 Dummy {f00=0x0047, f01=0x0190, f02=» f , ( ? D Y 8" P ! ! , ( Y T 8" P d ! Y ! 8 , ( u *0 ! X ! Y & h , ( Z T _ ! X ECHODY , ( $ P ! R V P
0x095b98…095d2c Dummy {f00=0x0047, f01=0x0190, f02=» ! Y _D ~ , ( !@ X " X &" Y )U W ! , ( =" ! ! Y 4 B N , ( W U )X R ~ , ( w@ X X &" Y * X ) V , ( A Y ! X $ X & ! X *
0x095d2c…095ec0 Dummy {f00=0x0047, f01=0x0190, f02=» 4 n , ( X )" X '# R 4 % > > H D ! ` ( : )P 5P 9P ? E OP _PV cP. iT {R: P H D !8 R T T P( P TJ T T P T( ) 3PR 7RF H D !/H YV P T
0x095ec0…096054 (2, 24) Dummy {f00=0x0047, f01=0x409a, f02=» IP YT> _P T P R V P P" W P D @ 1U 5W iU uR@ V R V V W R < & @ D !8 R T T P( P TJ T T P T( ) 3PR 7RF H D !/H YV P T
0x096054…0961e8 Dummy {f00=0x0047, f01=0x8190, f02=» J F IDENT DRRT01 9.2DK 1 83-03-09 870105040920 F B CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 OUTLIN` CHLTON R H D ! OUTPUTN CHTAB LDREG LDREGE LDREGF STREG GETCHRC DWREMU LOCHAN * & RECHAN REMFC ECHRTN` ECHOY E
0x0961e8…09637c Dummy {f00=0x0047, f01=0x8190, f02=» J B t INTLT3L INTRT1I & , ( B J#B#B 8 , ( ; J B B pU h , ( Y J BAB rU CHTAB z DWREMU , ( w $ 6 X
0x09637c…096510 Dummy {f00=0x0047, f01=0x8190, f02=» T p DISEND CHLT1 " INTSAV 4 CHLT2 F , ( ! 1 U A ? W A X CHLT3 CHLT4 CHRT1 , ( ? W A ? W A ? CHRT2 CHRT3
0x096510…0966a4 Dummy {f00=0x0047, f01=0x8190, f02=» R P 4 ] , ( i P $ P ] U P P $ , ( P P R 4T ] U T DWTST , ( @ X "0T + Y W 8 , ( Z 4 U R ] U # * & $P > R >
0x0966a4…096838 Dummy {f00=0x0047, f01=0x8190, f02=» >W T # , ( 9@ Y U T ] W 8V ( DWTTP X , ( W X P y W h SETIMP , ( s P 8R R DWTOCHf , ( Y X Z
0x096838…0969cc Dummy {f00=0x0047, f01=0x8190, f02=» 5 U R " ] ;h , ( # <c$ P X X " Z , * & @ # "X 8# T 8Z V X , ( A D # T 8R X P y Y DWTECB INTADR , ( [ " X ' " X (@ L $
0x0969cc…096b60 Dummy {f00=0x0047, f01=0x8190, f02=» P n , ( _r T _$ U _ ? 4 U 5 DWTOTQ > , ( R P "P R T T R P , ( D X & # X > P P , ( ) P X XF _H W ? , ( I T T W u
0x096b60…096cf4 (2, 25) Dummy {f00=0x004b, f01=0x8190, f02=» E _ " P STREG $ DWTA3 6 DWTA4 F , ( $T 8! P Y Y ( Y V DWTA5 LDREG LDREGF , ( * Y ,_8 X XB Y X LDREGE GETCH
0x096cf4…096e88 Dummy {f00=0x004b, f01=0x8190, f02=» > ?" 8' ?A | R 8;b# , ( O 4T R T T ] ] 8 ( , ( o W T W T ] _ P X , ( T V W 8V T P U 8 , ( $~ U Q P X H $ 5 , ( U R " ] F Y
0x096e88…09701c Dummy {f00=0x004b, f01=0x8190, f02=»T A n , ( # . ( P zX R @ U S , ( @ A F U t " D P D T > , ( a U W _ U 4XX X^ 5 0 n ECHENDT ECHOY , ( $_h Y ( Y * Y , X 9B DWTECH
0x09701c…0971b0 Dummy {f00=0x004b, f01=0x8190, f02=» 6 X 2 H D !p { P Q P P T W W W W R V # F H D ! 1 7R ? EPJ IP O U YRL cP oP sP PD P< P0 P, R d H D !H T Tp WH L R P4 R0 T T P P #Wh ) 3 ET H D !$ OW SV
0x0971b0…097344 Dummy {f00=0x004b, f01=0xc10e, f02=» H D ! 0 P #P )P / ( EWj MT Y n ]W S( V P P T P T H D !@ P6 0 U #W AR QT URT [T aT sW< wTr yW }T P V WT P H D ! V P Q2 P R V P P W T 5R4 =S WP ]T eW V$ V @
0x097344…0974d8 Dummy {f00=0x004b, f01=0x018e, f02=» J F IDENT DRSOP1 REL 9.2 83-03-09 870105040920 0 , SOPCT SOPRY IHSOP DWSI01 DWSI02A DWSO01A R SOPCT , ( T 8T 9W B DISIOE SPDLCI , ( ! D 7P P
0x0974d8…09766c Dummy {f00=0x004b, f01=0x0190, f02=» ECBCW ECBEL TENDIO $ , ( W"H X R C C 6 TDISP f SOPRY t v * & o ?A @ A. X PWRCPL DWSI01 , ( V 9 A _@
0x09766c…097800 Dummy {f00=0x004b, f01=0x4058, f02=» T TV WD +P /P ;W GW W ]R V B@ T 6 TDISP f SOPRY t v * & o ?A @ A. X PWRCPL DWSI01 , ( V 9 A _@
0x097800…097994 (2, 26) Dummy {f00=0x004b, f01=0x8190, f02=» H F IDENT DRDC15 9.2DSB 820817 870105040920 . * DC15ADK IH1501 IH1502 DC15ON DW1500 P DC15ADK * & , DISIOEC , ( C P P 1P P W P 5P
0x097994…097b28 Dummy {f00=0x004b, f01=0x8190, f02=» ECBRL , ( % A A _F B , DWTECB H , ( Q _Z X P 0 Y Z ECBEL DC:MIN , ( P C _| _ B DISEND SETIME * &
0x097b28…097cbc Dummy {f00=0x004b, f01=0x8190, f02=» G 0 A A _: X P ( y Y , ( g W (P 0 ) > ( . , ( P _ ) 1_ (X( P ^ DWTST , ( _ 0 )_6 (P _ ) 1 4 X DWTOR , ( @ R X T X P , Y
0x097cbc…097e50 Dummy {f00=0x004b, f01=0x8190, f02=» P l , ( 5 T @ T A A > A A , ( U A A A W < u > l , ( < ! B ! , ( T P P
0x097e50…097fe4 Dummy {f00=0x004b, f01=0x8190, f02=» l , ( $ ? " X ! _ ! @ P @ P , ( _ ! A A _ ! @ P @ X< ! < , ( T A ! ! X _4 A l , ( R @ @ T P A j @ , ( P X R X T P * & ! C
0x097fe4…098178 Dummy {f00=0x004b, f01=0x8190, f02=» X W A I N , ( K h @ @ @ A ! @ XN * , ( k ! T @ P ! ! _h 1T Z , ( H @ X @ P ! ! _ A , ( 8 A @ T _( _, @ T , ( W @ T ! _ !
0x098178…09830c Dummy {f00=0x004b, f01=0x8190, f02=»T, , ( @ ) T _ A C , ( U E B B A A A A : , ( A _ A ! ! A _ _T @ P X j , ( } R X P T T Y W , ( @ V P C A A , ( % 4 @
0x09830c…0984a0 Dummy {f00=0x004b, f01=0x8190, f02=» W P _@ @ @ E ! P , ( 5 ! 4 _$ ! 2_l 1 A T * , ( U 0W W A A W W W A Z , ( u A ! @ ! @ ! ! , ( ! B J ! 4 ! ! , ( T @ @ A @ T @
0x0984a0…098634 (2, 27) Dummy {f00=0x004c, f01=0x8190, f02=» _ B J B ! z IH1501 B INTSAVL . , ( 5 ! 4 A ? hJ T ! @ IH1502 l p , ( S A T P 4 ! A , ( q ? h_ I ! " P A < , ( P A 4 A _(B P A
0x098634…0987c8 Dummy {f00=0x004c, f01=0x8190, f02=» @ ,# t DC15ON , ( A 4 _ ? @ A A ( , ( J / @ T < @ A X , ( O B J A j a 4 , ( $ o > A > Z A , ( 4 A < ! @ P
0x0987c8…09895c Dummy {f00=0x004c, f01=0x8190, f02=» 8 9 l ( m : L ^ , ( 7 A W A W P A A p , ( W @ - R A @ @ w 4 , ( K
0x09895c…098af0 Dummy {f00=0x004c, f01=0x8190, f02=»Pb OP SP UW [P _P g u wP. n H D ! { N P P P P P N R Q< ~ P P * H D ! ! Wb + 2 1 : C G O S [P iW m sP P P P v H D ! R2 T* P& #P 3P 7T ? CT G K Q j U n Y r ] v a z e ~
0x098af0…098c84 Dummy {f00=0x004c, f01=0x818e, f02=» O UP [P Z H D ! a r o uP y T h T PP P2 R, T$ W H D !fy W J T P | # )T 1Wj A H _ Z c m sT yP } p b H D ! ] ~ T" P r l Z T T8 W T X J P p H D ! ~ Z
0x098c84…098e18 Dummy {f00=0x004c, f01=0xc16a, f02=» H D ! ST WW [W gW kW oW ( 6 ( T H D ! T T T U 3 ; OT S J YT _PT g x P H D ! 6 P P W @ P P P P P 5T 9 l O l P H D !4 P T 9 J ?W C J IW
0x098e18…098fac Dummy {f00=0x004c, f01=0x40aa, f02=» J F IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l TEBCDI @ @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-5
0x098fac…099140 Dummy {f00=0x004c, f01=0x4136, f02=» J F IDENT DVTKB REL 9.2 79-11-16 870105040920 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ ?
0x099140…0992d4 (2, 28) Dummy {f00=0x0054, f01=0x0190, f02=» > @ IDENT TOSSIO REL 9.2 81-06-24 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC F D @ ECBCW ECBCW2 BUFLEN ACTADR ABTADR INTADR POLADR RECADR F B ECHADR DC:DIX DM:DIX PC:DIX MX:DIX KB:
0x0992d4…099468 Dummy {f00=0x0054, f01=0x0190, f02=» DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 n * & DWTSB2 DWTTP DWTECH DWTSQ DWTVOL ( DWTCHP V DWTST j DWTBC | DWTECB DWTOR DWTOCH DWTADR DWTTAB DWTWAT D
0x099468…0995fc Dummy {f00=0x0054, f01=0x018e, f02=»A4 DWTA5 DWTSB1 DWTSB2 " 2 DWTTP $ F DWTECH & X DWTSQ 0 l DWTVOL 0 ~ BUFLEN ACTADR ABTADR INTADR POLADR RECADR
0x0995fc…099790 Dummy {f00=0x0054, f01=0x018e, f02=» ECBFC ECBBA ECBRL , ECBEL > ECBRC P ECBCW b ECBCW2 t , ( MONMMU $ , ( ! $ ( , 0 4 TTB:MT
0x099790…099924 Dummy {f00=0x0054, f01=0x0190, f02=» HALT , ( y @ @ C @ $ 0P , ( P > ? ? ? ? P q 0 D FDBADF t , ( ) > > > >_* , ( Z8 0P R I W _" QTJOB , ( H P
0x099924…099ab8 Dummy {f00=0x0054, f01=0x0190, f02=» A @ x SETIMP , ( A M A D W @W T * , ( k P X T T W Z LKMQDI TTB:ST , ( C 8W T * & 8P Y ^ 5 ) P U
0x099ab8…099c4c Dummy {f00=0x0054, f01=0x0190, f02=»X X #DP , ( @ b P X l T _| Xv Y , ( @ P T W X &P P , ( 7 T P H T _ X TTB:PW , ( W I Y T # C , ( u C W O "
0x099c4c…099de0 Dummy {f00=0x0054, f01=0x0190, f02=» Y P R R P , ( P " 2 X $? P " , ( $ > > R , ( / , ( O F C F C > B , ( o R Q F ! P C > C >
0x099de0…099f74 (2, 29) Dummy {f00=0x0054, f01=0x0190, f02=» # R r , ( Q > X B U H Q X , ( D B $ T C x > B , ( - C $ ) _ X 9BV X r DISEND , ( M & X B D C , ( k > X H U H B P
0x099f74…09a108 Dummy {f00=0x0054, f01=0x0190, f02=» t DC:MOT , ( @ _2 B U X > ? _ ( DC:MIN ( X , ( @ X T (@ ^ > > l , ( ) ? _ X T X X T , ( G % T ?C L R _@(@ L U , ( g L
0x09a108…09a29c Dummy {f00=0x0054, f01=0x0190, f02=» " U ~ QMJOB TENDIO . , ( $ & Y _| ?(@ B , ( X P T #DP r , ( 0P X T 4 Y X REQEND , ( X T X ( 1
0x09a29c…09a430 Dummy {f00=0x0054, f01=0x0190, f02=» ^ X t , ( P P # P T P ACTOTP D , ( H 0P 1 _ *W V Y > > H D ! Z l j j n j n n j j H D ! ! j # S eP
0x09a430…09a5c4 Dummy {f00=0x0054, f01=0x4150, f02=»P T P< #T )W0 /P* 9T AP KT gT {W4 T W T P H D ! W P R P P uQ }P Q~ P0 P* T QL U( B H D ! Q2 #T GV Q wUJ P PL Q P T P U MT URl Y eU H D !@ kQ0 P* P P T T 9P GPD sR u
0x09a5c4…09a758 Dummy {f00=0x0054, f01=0x0190, f02=» J F IDENT TIMER REL 9.2 79-11-16 870105040920 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x09a758…09a8ec Dummy {f00=0x0054, f01=0x40ee, f02=» _ _< , ( S ? ^ 4 _ & TIMQUE V , ( qH @ 1 A _ P 9 h > > ( $ ~ T N : - 4 1 N 3 > P @ BLK@ LKMQDI
0x09a8ec…09aa80 Dummy {f00=0x0054, f01=0x0190, f02=» J F IDENT TMMLKM REL 9.2 79-11-16 870105040920 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MTL LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x09aa80…09ac14 (2, 30) Dummy {f00=0x0054, f01=0x4060, f02=»$ T %_< z O %_B P )U /U GT . R J@ MMU TLUSEG R TCHPAGK t TTB:MTL LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x09ac14…09ada8 Dummy {f00=0x0054, f01=0x0190, f02=» J F IDENT TLDSEG REL 9.2 79-11-16 870105040920 TLDSEGK TLDS15 TLDS20 R TLDSEGK t SCTNOS LKM030 SCTSEG , ( R @ U 9C @ TTB:SB@ SEG:D
0x09ada8…09af3c Dummy {f00=0x0054, f01=0x4114, f02=» SCTMMP SCTNPE , ( 5B@ D " @ @ - U " SCTLAP` R TTB:MT d T:ACSBN v TTB:SA * & O _ 9B @ T W X g > R U %T /W. IU j
0x09af3c…09b0d0 Dummy {f00=0x0054, f01=0x0190, f02=» J F IDENT TABORT REL 9.2 79-11-16 870105040920 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x09b0d0…09b264 Dummy {f00=0x0054, f01=0x40a8, f02=» X H x LKMQDI LKMRQE * & " I P < ( $ RT PL TF R@ V )P 7P IP f @ , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x09b264…09b3f8 Dummy {f00=0x0054, f01=0x0190, f02=» J F IDENT MONTIM REL 9.2 79-11-16 870105040920 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ , ( $ P B $ 9H C ">h # TTB:SA L
0x09b3f8…09b58c Dummy {f00=0x0054, f01=0x40b4, f02=» P ?_" = > = > = =_D , ( R _ 00 > & <h$ P * > Z ( $ !P AP gP u yP R P r @ , ( $ P B $ 9H C ">h # TTB:SA L
0x09b58c…09b720 Dummy {f00=0x0054, f01=0x0190, f02=» J F IDENT LKMAL REL 9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x09b720…09b8b4 (2, 31) Dummy {f00=0x002e, f01=0x406e, f02=» , ( B % 4 & H & X@ j b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x09b8b4…09ba48 Dummy {f00=0x002e, f01=0x40ec, f02=» J F IDENT PFTAB REL 9.2 79-11-16 870105040920 PFTAB R PFTAB b DC15ON t SOPRN CHLTON T @ END @ P*
0x09ba48…09bbdc Dummy {f00=0x002e, f01=0x40f8, f02=» D F IDENT CTAB01 820603 NJ DSB-PLADS 6271 CTAB01K L CTAB01K ^ , ( 0123 r ( $ ! 456789 < @ DATA /1314
0x09bbdc…09bd70 Dummy {f00=0x002e, f01=0x0190, f02=» @ F IDENT CTAB02 80.05.12 EV KMD APPL CTAB02K H CTAB02K Z , ( 0123 n , ( ! 456789 & p , ( A 0123456789 * , ( a
0x09bd70…09bf04 Dummy {f00=0x002e, f01=0x4084, f02=» $%&/() @ABCDEFGHIJKLMNOPQRS TUVWXYZ[ ] . < l l J n@ 0123 n , ( ! 456789 & p , ( A 0123456789 * , ( a
0x09bf04…09c098 Dummy {f00=0x002e, f01=0x018e, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( @ KB DVDY00 , ( %@
0x09c098…09c22c Dummy {f00=0x002e, f01=0x4008, f02=»@ IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( @ KB DVDY00 , ( %@
0x09c22c…09c3c0 Dummy {f00=0x002e, f01=0x4100, f02=» J F IDENT DVGP00 REL 9.2 79-11-16 870105040920 DVGP00K R DVGP00K d GPADN x * & GP % @ 4 ( 4 @ ECB ADD
0x09c3c0…09c554 (2, 32) Dummy {f00=0x0030, f01=0x4106, f02=» J F IDENT DVDI00 REL 9.2 79-11-16 870105040920 DVDI00K R DVDI00K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x09c554…09c6e8 Dummy {f00=0x0030, f01=0x4104, f02=» J F IDENT DVDY00 REL 9.2 79-11-16 870105040920 DVDY00K R DVDY00K d DYADN x * & DY % ( @ 8 , 8 @
0x09c6e8…09c87c Dummy {f00=0x0030, f01=0x018e, f02=» J F IDENT DVKB01 REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( KB DVDY01 , ( %@
0x09c87c…09ca10 Dummy {f00=0x0030, f01=0x4008, f02=»@ IDENT DVKB01 REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( KB DVDY01 , ( %@
0x09ca10…09cba4 Dummy {f00=0x0030, f01=0x4104, f02=» J F IDENT DVDY01 REL 9.2 79-11-16 870105040920 DVDY01K R DVDY01K d DYADN x * & DY % P @ 8 , 8 @
0x09cba4…09cd38 Dummy {f00=0x0030, f01=0x0190, f02=» J F IDENT SYSBUG REL 9.2 79-11-16 870105040920 F B SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL SCTSEG R F B SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC SCTLACL SCTMMP SCTLAP F B SCTNPE SCTSTB SCTOPT SCTTCT
0x09cd38…09cecc Dummy {f00=0x0030, f01=0x0190, f02=»:PA PAG:SB SWB:NC SWB:DS SWB:ELS SWB:NS0 z T:ACSB 4 SEG:ST F SEG:DSL Z SEG:EL n SEG:PBI PAG:QF PAG:QBV PAG:PA PAG:SB SWB:NC SWB:DS
0x09cecc…09d060 Dummy {f00=0x0030, f01=0x018e, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b CHRT1 r , ( , ( ! CHLT2 CHLT3 , ( 1
0x09d060…09d1f4 (2, 33) Dummy {f00=0x0064, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA S
0x09d1f4…09d388 Dummy {f00=0x0064, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCTBUG~ , (
0x09d388…09d51c Dummy {f00=0x0064, f01=0x4072, f02=» _ & < @ nNPE l SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCTBUG~ , (
0x09d51c…09d6b0 Dummy {f00=0x0064, f01=0x4052, f02=» 4 F IDENT FILLER 82-11-26 h 8 <@ N
0x09d6b0…09d844 Dummy {f00=0x0064, f01=0x413e, f02=» 8 F IDENT SYSHIS DSB 83-03-09 < 8 PWRON PWROFF PWRCPL DCTHER DCRTRY DCMISC SAVPRF @ PWRON PWROFF PWRCPL DCTHER DCRTRY DCMISC SAVPRF
0x09d844…09d9d8 Dummy {f00=0x0064, f01=0x0190, f02=» > @ IDENT DRDC15 9.2DSB 83-07-27 870105040920 . * DC15AD IH1501 IH1502 DC15ON DW1500 F DC15AD x * & , DISIOE , ( C P P 1P P W P 5P TDISP
0x09d9d8…09db6c Dummy {f00=0x0064, f01=0x0190, f02=» ECBRL , ( % A A _F B , DWTECB > , ( Q _Z X P 0 Y P ECBEL DC:MIN , ( P C _| _ B DISEND SETIME * & Y _N
0x09db6c…09dd00 Dummy {f00=0x0064, f01=0x018e, f02=» 0 A A _: X P ( y Y , ( g W (P 0 ) > ( $ , ( P _ ) 1_ (X( P T DWTST , ( _ 0 )_6 (P _ ) 1 4 X DWTOR , ( @ R X T X P , Y * &
0x09dd00…09de94 (2, 34) Dummy {f00=0x0064, f01=0x0190, f02=» , ( 5 T @ T A A > A A , ( U A A A W 4 u > d , ( < ! B A ! , ( T P P , (
0x09de94…09e028 Dummy {f00=0x0064, f01=0x0190, f02=» , ( $ ? " X ! _ ! @ P @ P , ( _ ! A A _ ! @ P @ X< ! 4 , ( T A ! ! X _4 A d , ( R @ @ T P A j @ , ( P X R X T P * & ! C V
0x09e028…09e1bc Dummy {f00=0x0064, f01=0x018e, f02=»A I N , ( K h @ @ @ A ! @ XN " , ( k ! T @ P ! ! _h 1T R , ( H @ X @ P ! ! _ A , ( 8 A @ T _( _, @ T , ( W @ T ! _ ! ! _ A
0x09e1bc…09e350 Dummy {f00=0x0064, f01=0x0190, f02=» , ( @ ) T _ A C , ( U E B B A A A A 4 , ( A _ A ! ! A _ _T @ P X d , ( } R X P T T Y W , ( @ V P C A A , ( % 4 @
0x09e350…09e4e4 Dummy {f00=0x0064, f01=0x0190, f02=» P _@ @ @ E ! P , ( 5 ! 4 _$ ! 2_l 1 A T $ , ( U 0W W A A W W W A T , ( u A ! @ ! @ ! ! , ( ! B J ! 4 ! ! , ( T @ @ A @ T @ !
0x09e4e4…09e678 Dummy {f00=0x0064, f01=0x0190, f02=» B J B P J t IH1501 L INTSAV ( , ( 5 ! _ ! ! 4 A ? : , ( A S hJ T ! A T P 4 ! j IH1502 v , ( A s A ? h_ I ! " P A DCTHER , ( P A <
0x09e678…09e80c Dummy {f00=0x0064, f01=0x018e, f02=» @ ` A @ P DC15ON * , ( @ 0 @ ,# A 4 _ 4 PWRCPL d , ( + ? @ A @ T A " @ v , ( I P F < @ A , ( E e A j a , (
0x09e80c…09e9a0 Dummy {f00=0x0064, f01=0x0190, f02=» f DW1500 , ( T ' A 4 , ( P L Q | , ( O A W A W P A A , ( o @ -
0x09e9a0…09eb34 (2, 35) Dummy {f00=0x0033, f01=0x0190, f02=» h H D ! V B GPz KPb OP SP UW [P _P g u wP. " H D ! { f h h h P P f j Q< ~ P P n H D ! ! Wb + 2 1 : C G O S [P iW m sP P P P H D !
0x09eb34…09ecc8 Dummy {f00=0x0033, f01=0x0190, f02=»TL R H D !oy TB N P # ) p / 3T 7 ; I O UP [P a r H D ! o uP y T h T PP P2 R, T$ W W Z H D ! J T P | # )T 1Wj A H _ Z c m sT yP } p H D !8 T" P r l
0x09ecc8…09ee5c Dummy {f00=0x0033, f01=0x0190, f02=»T T2 P4 PJ PL P P. W P ! - /P 7 E ST H D ! WW [W gW kW oW ( N ( T F H D ! t T T T U 1P 7 N = E YT ] b cT iPT H D ! q N P P W X P h h
0x09ee5c…09eff0 Dummy {f00=0x0033, f01=0x4020, f02=» j v @
0x09eff0…09f184 Dummy {f00=0x0033, f01=0x0190, f02=» > @ IDENT DRRT01 REL 9.2 80-11-24 870105040920 F B CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 OUTLIN CHLTON F H D ! OUTPUT CHTAB LDREG LDREGE LDREGF STREG GETCHR DWREMU LOCHAN * & RECHAN REMFC ECHRTN ECHO ECHEND
0x09f184…09f318 Dummy {f00=0x0033, f01=0x0190, f02=» h INTLT3 INTRT1 , ( B J#B#B , , ( ; J B B pU , ( Y J BAB rU CHTAB z DWREMU , ( w $ 6 X
0x09f318…09f4ac Dummy {f00=0x0033, f01=0x0190, f02=» DISEND CHLT1 INTSAV ( CHLT2 : , ( T ! 1 U A ? W L CHLT3 | CHLT4 CHRT1 , ( A A ? W A ? W A ? CHRT2 CHRT3
0x09f4ac…09f640 Dummy {f00=0x0033, f01=0x0190, f02=» R x , ( g P 4 ] P $ P ] U , ( P P P P R H DWTST x , ( 4T ] U X "0T , ( + Y W 8Z 4 U R , ( ] U # $P >
0x09f640…09f7d4 (2, 36) Dummy {f00=0x0067, f01=0x0190, f02=» >W X ~ , ( 7 9BR W Y T , ( U # Y R U T N DWTTP ~ , ( s ] W 8V X P SETIMP , ( y W , ( D
0x09f7d4…09f968 Dummy {f00=0x0067, f01=0x018e, f02=» ' X 8V 4XB , ( XH U T T U 5 U " , ( ! R " ] ;h # <c$ R , ( ? P X X " Z " , ( _ X 8# T 8Z V X # T , ( } 8R X P y Y X
0x09f968…09fafc Dummy {f00=0x0067, f01=0x0190, f02=» f , ( @ P Y # P 4T U , ( # P 4 4 P _t T 8 , ( _$ U _ 4 U 5 ? R P h DWTOTQ , ( + "P R T T R X & # , ( I@ X > P P P ,
0x09fafc…09fc90 Dummy {f00=0x0067, f01=0x0190, f02=» | j , ( W % ;DV " U D $ P #`P OUTPUT : , ( @ T E _ " P N STREG ~ DWTA3 DWTA4 , ( $T 8! P Y Y ( Y DWTA5 LDREG & LDR
0x09fc90…09fe24 Dummy {f00=0x0067, f01=0x0190, f02=» " 4 n , ( M B U B (" W C (@ OUTLIN n > , ( m > ?" 8' ?A | R 8;b# R , ( 4T R T T ] ] 8 , ( W T W T ] _ P , ( T V W 8V T P U 8
0x09fe24…09ffb8 Dummy {f00=0x0067, f01=0x0190, f02=» > r , ( G > V P X P &P _ ] CHLTON t B , ( e W Q & Y &_: @ z T f V , ( P zX R @ U S | U , ( t " D P D T U W ECHEND ECHO
0x09ffb8…0a014c Dummy {f00=0x0067, f01=0x0190, f02=» ECHADR ECHRTN , ( $ . Y 0 X D 2 $ TENDIO T $ V 4 X 0 4 f H D !p { P Q P P T W W W W R !V ) | H D ! 7 ? R G 0 MPR S R Y _ 0 cRR mP yP }P
0x0a014c…0a02e0 Dummy {f00=0x0067, f01=0x0190, f02=» P W P R R T l H D ! n V !R + | AP iT& qV2 {T R P T P P T P P ( H D ! $ T #R )PF 3P2 7R AR O n UP YP _P e f {Wr T W P t H D ! @ S. W( V P P T P T P6 n SU aW R T RT T
0x0a02e0…0a0474 (2, 37) Dummy {f00=0x0068, f01=0x401e, f02=» X @ T l H D ! n V !R + | AP iT& qV2 {T R P T P P T P P ( H D ! $ T #R )PF 3P2 7R AR O n UP YP _P e f {Wr T W P t H D ! @ S. W( V P P T P T P6 n SU aW R T RT T
0x0a0474…0a0608 Dummy {f00=0x0068, f01=0x2008, f02=» L = DSB002 DATE = 81 06 12 1216PACK NBR = 0002 ? G ~
0x0a0608…0a079c Dummy {f00=0x0068, f01=0x0190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIXV DM:DIX PC:DIX8
0x0a079c…0a0930 Dummy {f00=0x0068, f01=0x018e, f02=»UEC# DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 z * & DWTSB2f DWTTP DWTECHj DWTSQ DWTVOLW 4 DWTCHP b DWTST v DWTBC DWTECB DWTOR DWTOCH DWTADR DWTTAB DWTWAT
0x0a0930…0a0ac4 Dummy {f00=0x0068, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x0a0ac4…0a0c58 Dummy {f00=0x0068, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x0a0c58…0a0dec Dummy {f00=0x0068, f01=0x0190, f02=» n , ( y @ C @ $W 0P P > FDBADF > , ( Z 0P R I P QTJOB * & W _" H P 4 I TIODM , ( > T C T V Y * & @
0x0a0dec…0a0f80 Dummy {f00=0x0068, f01=0x0190, f02=» A D , ( I W @W T P X T T LKMQDIR P , ( D g W C 8 b TTB:ST , ( W T 8P Y ^ 5 TDISP FNDDWT |TIO , (
0x0a0f80…0a1114 (2, 38) Dummy {f00=0x006c, f01=0x0190, f02=» P XIF ^ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS ^ P LD A3,ECBRL,A8 GET LENGTH ^ : PPOL127 EQU * ^ & P ST A4,FECBBA SAVE BUFFER ADDRESS ^ p P ST A3,FECBRL SAVE LENGTH ^ P CM FBAX RESET BUFFER INDEX ^ PPOL130 EQU * ^ P CM XETX RESET 'ETX
0x0a1114…0a12a8 Dummy {f00=0x006c, f01=0x0190, f02=» ^ t P RB POL100 _ P _ P* _ $ P* _ . & P* SPECIFIC POLL HAS BEEN RECEIVED _ 8 P* _ b P* _ l PSPOLL EQU * _ v P IFF STAT+SPECP=0 _ P LD A1,XACK =5 _ " P RB(NZ) POL010 ACK EXPECTED =5 _ P LDR A7,A6 SAVE A6 _ P CF A5,CPTIM
0x0a12a8…0a143c Dummy {f00=0x006c, f01=0x018e, f02=»L050 PENDING STATUS _ P XIF ` P IFF STAT+SPECP=0 ` ( P LD A1,DWTST,A6 ` B P RB(N) POL115 NO REQUEST ` Z P LD A1,DWTOR,A6 GET ORDER ` z P SUK A1,6 ` P RB(Z) POL125 WRITE REQUEST ` P SUK A1,2 ` " P RB(Z) POL125 EXCHANGE REQUEST `
0x0a143c…0a15d0 Dummy {f00=0x006c, f01=0x0190, f02=» ` P* A1 CONTAINS RETURN CODE a P* a * P* a 4 PCWRITE LD A6,FDWTUT a > $ P RF(Z) CWR900 NO WRITE GOING ON a Z P LD A2,DWTST,A6 a P RF(N) CWR900 NO REQUEST a P LD A2,DWTOR,A6 GET ORDER a P SUK A2,6 a P RF(Z) CWR100 WRITE REQUES
0x0a15d0…0a1764 Dummy {f00=0x006c, f01=0x0190, f02=» a b P LDK A2,2 TRANMISSION OK b ( P ST A2,DWTOR,A6 INDICATE READ ORDER b ( P RF CWR150 b T & PCWR100 LD A8,FECB GET ECB ADDRESS b f P CF A15,CTIME STOP TIMING b P LDR A8,A8 b P RF(Z) CWR150 b P ST A2,ECBCW,A8 b $ P CF A15,TENDIO COMPLET
0x0a1764…0a18f8 Dummy {f00=0x006c, f01=0x018e, f02=»ET 'ACK EXPECTED' b P CM FDWTUT c P RTN A5 c , P c < P* c F P* c P P* READ ONE TEXT BLOCK c Z P* c x P* ON EXIT A3 CONTAINS : c ( P* 0 : IF CORRECT ETX BLOCK RECEIVED c 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW c ( P* 2
0x0a18f8…0a1a8c Dummy {f00=0x006c, f01=0x0190, f02=» c v P LDK A3,0 d P LD A1,XSTA d $ P RF(NZ) RDM050 LAST INPUT WAS OK d . " P LD A1,FBLST COMPUTE NEW INDEX d V P SUR A1,A4 d | P ST A1,FBAX d PRDM050 EQU * d P AD A4,FBAX ADD BUFFER INDEX d ( P ST A4,FBLST REMEMBER START OF BLOCK d PRD
0x0a1a8c…0a1c20 Dummy {f00=0x006c, f01=0x0190, f02=» BLOCK d x P CF A5,READP e P RF(NZ) RDM120 PARITY ERROR e " P CWK A2,ESC e F P RF(NE) RDM110 e Z * P CF A5,READP SKIP NEXT TWO CHARACTERS e p P CF A5,READP e P XIF e PRDM100 EQU * e $ P CF A5,READP READ ONE CHARACTER e P RF(NZ) RDM120
0x0a1c20…0a1db4 (2, 39) Dummy {f00=0x006d, f01=0x0190, f02=»CEIVED e | P CWK A2,ITB f P RF(E) RDM170 ITB RECEIVED f " P CWK A2,ENQ f D 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE f X P CWK A2,/FF f $ P RF(E) RDM140 MARK HOLD RECEIVED f P f P IFT CODE=0 f P IFT BINTRM=1 f P f P LDR
0x0a1db4…0a1f48 Dummy {f00=0x006d, f01=0x018e, f02=» P LDR A8,A1 g * P CF A5,READP 8-BIT CHAR GET NEXT PART g P RF(NZ) RDM120 PARITY ERROR g D * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER g h P ORR A2,A8 g PRDM115 EQU * g P XIF g P g P SCR A2,A4 STORE CHARACTER g P ADK A4,1 INCREMENT PO
0x0a1f48…0a20dc Dummy {f00=0x006d, f01=0x0190, f02=» P* h P* BUFFER OVERFLOW h P* h ( P RF RDM140 ABORT INPUT h 2 PRDM120 EQU * h P & P LDK A3,1 INDICATE INVALID MESSAGE h d P SUK A2,/7F h $ P RF(Z) RDM150 MARK HOLD RECEIVED h P RB RDM100 h P* h P* ETX RECEIVED h P* h PRD
0x0a20dc…0a2270 Dummy {f00=0x006d, f01=0x0190, f02=»DER h f P IFF CODE=1 i P CF A5,RDLRC i P RF(Z) RDM150 LRC WAS OK i 4 P XIF i T P IFT CODE=1 i ` & P CF A5,RDCRC READ CRC AND CHECK IT i t P RF(E) RDM150 CRC WAS OK i P XIF i PRDM140 EQU * i & P LDK A3,1 INDICATE INVALID MESSAGE i P
0x0a2270…0a2404 Dummy {f00=0x006d, f01=0x0190, f02=»SALCUZ i x P XIF SALCUZ j P RTN A5 j $ P* j 4 P* ETB RECEIVED j > P* j T PRDM160 EQU * j ^ P LDR A3,A3 j r " P RB(NZ) RDM130 ALREADY INVALID j " P LDK A3,2 INDICATE CORRECT ETB j P RB RDM130 j P* j P* ITB RECEIVED j P* j
0x0a2404…0a2598 Dummy {f00=0x006d, f01=0x0190, f02=»F A5,RDCRC READ CRC AND CHECK IT j " P RB(NE) RDM120 CRC WAS NOT OK k ( P XIF k N P RB RDM100 k Z P k l P* k v P* TRANSMIT ACK 0 OR 1 k P* k PTRACK LDK A2,1 k P LDK A3,ACK1 PRELOAD ACK1 k & P XRS A2,CACK INCREMENT ACK COUNTER k
0x0a2598…0a272c Dummy {f00=0x006d, f01=0x018e, f02=»OAD WACK k | P RF TRDLE l P* l " P* TRANSMIT RVI l , P* l B P IFF STAT=0 l L PTRRVI LDK A3,RVI LOAD RVI l ` P XIF l P* l P* TRANSMIT DLE l P* l PTRDLE LDK A2,DLE LOAD DLE l " P SC A2,RESEND PUT INSAVE AREA l P SC A3,R
0x0a272c…0a28c0 Dummy {f00=0x006d, f01=0x0190, f02=» P* m P* TRANSMIT EOT m P* m $ PTREOT LDK A3,EOT LOAD EOT m . P RF TREN10 m P P* m b P* TRANSMIT ENQ m l P* m PTRENQ LDK A3,ENQ LOAD ENQ m P* m ( PTREN10 SC A3,RESEND PUT IN SAVE AREA m P LDK A2,/FF m P SC A2,RESEND+1
0x0a28c0…0a2a54 (2, 40) Dummy {f00=0x0053, f01=0x0190, f02=»L STATUS WORD (LOOP-TESTS) - $ P DATA 0 BLOCK SENDING INDICATOR . " P XIF . J P IFT RECHAN=3 . V P DATA 0 TIMER POINTER . l P DATA /7055 SYNC-CHARACTER . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINA
0x0a2a54…0a2be8 Dummy {f00=0x0053, f01=0x0190, f02=» . h $ P DATA 0 BLOCK SENDING INDICATOR / P XIF / 0 P IFT RECHAN=4 / < P DATA 0 TIMER POINTER / R P DATA /7055 SYNC-CHARACTER / p 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 / 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 / & P DATA 0 LRC-AC
0x0a2be8…0a2d7c Dummy {f00=0x0053, f01=0x0190, f02=»ING INDICATOR / ~ P XIF 0 P EJECT 0 " $ P******************************** 0 0 $ P* C W T R T 4 * 0 X $ P******************************** 0 P* 0 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 0 " P* CONNECTED TO SECOND
0x0a2d7c…0a2f10 Dummy {f00=0x0053, f01=0x0190, f02=» P DATA INTRT2 INTERRUPT TABLE 1 P INR A2,0,DWA6 INR 1 ( P OTR A2,1,DWA6 OTR 1 B P CIO A2,1,DWA6 CIO-START 1 " P DATA 0 RETRANSMISSION COUNTER 1 | P DATA 0 QUEUE TERMINAL 1 1 P DATA 0 QUEUE TERMINAL 2 1 P* 1 P IFT ACKMUL=1 1 P DATA
0x0a2f10…0a30a4 Dummy {f00=0x0053, f01=0x018e, f02=»T ACKUMULATOR 1 z P XIF 2 P IFT RECHAN=3 2 " P DATA 0 LAST OUTPUT DWT 2 8 P DATA 0 LAST OUTPUT WORD 2 X P DATA INTRT2 INTERRUPT TABLE 2 x P INR A2,0,DWA6 INR 2 P OTR A2,1,DWA6 OTR 2 P CIO A2,1,DWA6 CIO-START 2 " P DATA 0 RETRANSMISSION C
0x0a30a4…0a3238 Dummy {f00=0x0053, f01=0x0190, f02=» 2 v $ P DATA 0 BLOCK ERROR ACKUMULATOR 3 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 3 0 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 3 ` P XIF 3 P IFT RECHAN=4 3 P DATA 0 LAST OUTPUT DWT 3 P DATA 0 LAST OUTPUT WORD 3 P DATA INTRT2 INTERRUPT TAB
0x0a3238…0a33cc Dummy {f00=0x0053, f01=0x0190, f02=»A 0 QUEUE TERMINAL 1 3 P DATA 0 QUEUE TERMINAL 2 4 P* 4 < P IFT ACKMUL=1 4 F P DATA 0 NAK-ACKUMULATOR 4 $ P DATA 0 BLOCK ERROR ACKUMULATOR 4 | , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 4 P XIF 4
0x0a33cc…0a3560 Dummy {f00=0x0053, f01=0x0190, f02=»MINAL 1 4 l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 5 D & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 5 n , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 5 $ P DATA 0 BLOCK SENDING INDICATOR 5 P* 5 P XIF 5 P*
0x0a3560…0a36f4 (2, 41) Dummy {f00=0x0072, f01=0x0190, f02=»NE) SKIP30 NO % P SUK A1,2 DECR BA & P SUK A2,2 DECR RL & 0 P RB SKIP07 GET NEXT & J P* & f " PSKIP30 ST A2,4,A8 STORE NEW RL & p P RTN A15 & P XIF & P & P* & P* I H G P & P* & P* INTERRUPT & P* & PIHGP
0x0a36f4…0a3888 Dummy {f00=0x0072, f01=0x018e, f02=»? & ~ P RF(Z) IHGP20 =2 ' . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? ' $ P IFT RECEND=0 ' V P RB(NZ) EXIT ' l P XIF ' P IFT RECEND=1 ' P RB(NZ) AGP430 ' P XIF ' P ' 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 ' PIHGP
0x0a3888…0a3a1c Dummy {f00=0x0072, f01=0x0190, f02=» ' l PIHGP25 EQU * DK1 ( " P LDR A1,A1 RETURN-CODE OK? DK1 ( " , P RB(Z) IHGP10 TEST ORDER AND TIME OUT =2 ( H P RB ENDIO =2 ( x P ( P* ( P* E C H O G P ( P* ( 0 P* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE ( P* ( PECHOGP
0x0a3a1c…0a3bb0 Dummy {f00=0x0072, f01=0x0190, f02=»/80 EOR-CHARACTER ( P RF(NN) ECGP20 YES ) P ADK A2,/80 ) 4 P* ) H P XIF ) R P* ) ^ P LDR A1,A2 ) h P ANK A1,/7F ) z P SUK A1,/8 ) P RF(E) ECGP40 BACKSPACE ) P SUK A1,/2 LINE FEED =1 ) P RF(E) ECGP10 YES =1 ) P SUK A1,/3 C
0x0a3bb0…0a3d44 Dummy {f00=0x0072, f01=0x0190, f02=»20-/5F ) b P RF(N) ECGP20 * P SUK A1,/5F-/20 * $ P RF(P) ECGP20 * < & PECGP10 CF A5,OUTPUT SEND CHARACTER * R ( P IM DWTST,A6 UPDATE POSITION COUNTER * | P SUK A4,1 READY ? * P RF(N) ECGP20 YES * * P RF(P) ECGP60 NO, GO TO CLEAR SECTION *
0x0a3d44…0a3ed8 Dummy {f00=0x0072, f01=0x0190, f02=» CF A15,UPDAPP UPDATE HEAD POSITION POINTER * ( PECGP20 ABL ECHRTN RETURN TO KEYBOARD + 4 P + ` P* + j P* BACKSPACE + t P* + PECGP40 EQU * + & P LDK A2,GPBSP BACKSPACE CHARACTER + P RB ECGP10 + P* + P* CANCEL + P* +
0x0a3ed8…0a406c Dummy {f00=0x0072, f01=0x0190, f02=»A3,DWTBC,A6 + P ANK A3,/FF , " PECGP70 CF A5,OUTPUT SEND CHAR. , ( P LDK A2,/08 BACKSPACE , N P SUK A3,1 , l P RB(NN) ECGP70 , ~ P LDK A3,0 , * P SC A3,DWTBC,A6 RESET POSITION COUNTER , P RB ECGP20 , P , P* , P* R C G P ,
0x0a406c…0a4200 Dummy {f00=0x0072, f01=0x0190, f02=» ORDER 6 IS RUNNING , P* - P* ON ENTRY: - & P* - < P* A6 = DWT-ADDRESS - F P* A7 = ORDER - d P* A8 = ECB-ADDRESS - | PRCGP EQU * - P IFT CPU852=1 - & P CF A15,SAVE8 SAVE A1-A8 ON STACK - P XIF - P* - P IFT C
0x0a4200…0a4394 (2, 42) Dummy {f00=0x0073, f01=0x0190, f02=»SOH RESET PRINT BUFFER CODE - P CF A5,OUTPUT SEND IT . $ P CWK A7,5 . B P RF(E) RCGP10 . T P CWK A7,6 ORDER 6? . j P RF(E) RCGP05 YES . P CWK A7,0 ORDER 0? . P ABL(E) ENDIO =3 . P ABL EXIT =3 . PRCGP05 EQU * . 0 P LC A2,DWTST
0x0a4394…0a4528 Dummy {f00=0x0073, f01=0x4110, f02=»SEND SPACE . P LDK A2,STX / P CF A5,OUTPUT SEND STX / & P LDK A2,CR CARRIAGE RETURN / D P LDK A3,0 / f 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND / x P ABL ACGP46 / ( PRCGP10 LDK A1,TPERR SET RETURN CODE / P ABL AGP430 / P END /
0x0a4528…0a46bc Dummy {f00=0x0073, f01=0x2008, f02=» 0 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x0a46bc…0a4850 Dummy {f00=0x0073, f01=0x018e, f02=» # ( & * 8 , H J F " D QL0X Q R R xL sL RxsTR RL0X R t HY tL R0Rp!wrxsu!! tHY b@ X C S Y t ^ e P l #
0x0a4850…0a49e4 Dummy {f00=0x0073, f01=0x0190, f02=» O 6 ( 8 H X h x
0x0a49e4…0a4b78 Dummy {f00=0x0073, f01=0x018e, f02=» > @ B ( D 8 H H J X N h J F " D R! SuR!0X S TuR$0RT UuR# R2X RRRRAW U!jcV!$!W>3V RRRRRRRRRRRRRR x M M
0x0a4b78…0a4d0c Dummy {f00=0x0073, f01=0x0190, f02=» M w ( 8 H X h x M M M
0x0a4d0c…0a4ea0 Dummy {f00=0x0073, f01=0x0190, f02=» ( 8 H X h x
0x0a4ea0…0a5034 (2, 43) Dummy {f00=0x005e, f01=0x0190, f02=» A3,A2 % * PGBUF10 ADKL A15,4 ADJUST STACK POINTER & P ABR* A15 RETURN TO CALLER & < P EJECT & ^ P* & l P* & v ( P* INSERT DWT IN WRITE REQUEST QUEUE & P* & P* A2,A3,A4 DESTROYED & P* A6=DWT & P* & ( PINSWQ LDKL A2,DCWRQ GET QUEU
0x0a5034…0a51c8 Dummy {f00=0x005e, f01=0x018e, f02=»Q2 & PINSWQ3 ADR A4,A6 ' P STR A4,A2 INSERT IN QUEUE ' " " P CMR A4 INDICATE END OF QUEUE ' D P RB GBUF10 RETURN ' j P* ' P* ' * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' * PRE
0x0a51c8…0a535c Dummy {f00=0x005e, f01=0x0190, f02=» PREM10 LDR* A3,A2 ( & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ( P CWR A3,A4 ( F P RF(E) REM15 ( X P LDR A2,A3 GET NEXT ( l P RB REM10 ( PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( P RB GBUF10 RETURN ( P EJECT ( P* ( P* ( P
0x0a535c…0a54f0 Dummy {f00=0x005e, f01=0x0190, f02=»STQ GET QUEUE ANCHOR ( P LDK A4,DWTSQ ) P RB INSWQ2 ) 2 P* ) D P* ) N " P* REMOVE DWT FROM STATUS QUEUE ) X P* ) ~ P* A2,A3,A4 DESTROYED ) P* A6=DWT ) P* ) * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) P LDK A4,DWTSQ ) P RB RE
0x0a54f0…0a5684 Dummy {f00=0x005e, f01=0x0190, f02=»,A3 DESTROYED ) P* * PQRBUF EQU * * P IFT MESPAS=1 * 4 ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * J P XIF * v P IFT MESPAS=0 * $ P LDR A2,A6 QUEUE ON TERMINAL DWT * P XIF * , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * PQR100 EQU *
0x0a5684…0a5818 Dummy {f00=0x005e, f01=0x0190, f02=»E * p " P CMR A4 INDICATE END OF QUEUE + P RTN A5 + 0 P EJECT + @ P* + N P* + X 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + b P* + 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL A6,DW1500 + P LD A1
0x0a5818…0a59ac Dummy {f00=0x005e, f01=0x018e, f02=»A8,DWTECB,A6 ECB ADDR TO A8 + * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , $ " P RF(Z) CKM200 NO READ IN QUEUE , R P , x P , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , " P ADK A3,6 MOVE POINTER TO TEXT
0x0a59ac…0a5b40 Dummy {f00=0x005e, f01=0x0190, f02=» , . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS - P - : P LDK A1,0 RESET RETURN CODE - B & P LDR A4,A3 RECEIVE BUFFER ADDRESS - f , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - * PCKM110 ADKL A15,4 ADJUST STACK POINTER - P ABR* A15 RETURN - 8 PCK
0x0a5b40…0a5cd4 (2, 44) Dummy {f00=0x0060, f01=0x0190, f02=»A5,READP SKIP NEXT TWO CHARACTERS e P CF A5,READP f * P XIF f > PRDM100 EQU * f J $ P CF A5,READP READ ONE CHARACTER f ^ P RF(NZ) RDM120 PARITY ERROR f PRDM110 EQU * f P CWK A2,ETX f P RF(E) RDM130 ETX RECEIVED f P CWK A2,ETB f P
0x0a5cd4…0a5e68 Dummy {f00=0x0060, f01=0x0190, f02=»BEDDED IN MESSAGE f t P CWK A2,/FF g $ P RF(E) RDM140 MARK HOLD RECEIVED g . P g V P IFT CODE=0 g ^ P IFT BINTRM=1 g r P g P LDR A1,A2 g P SUK A1,DC1+3 g P RF(P) RDM115 NOT DC1-DC3 g P ADK A1,3 g P RF(N) RDM115 NOT DC1-DC3 g
0x0a5e68…0a5ffc Dummy {f00=0x0060, f01=0x0190, f02=»ASSEMBLE TO ONE CHARACTER g P ORR A2,A8 h " PRDM115 EQU * h 4 P XIF h H P h T P SCR A2,A4 STORE CHARACTER h P ADK A4,1 INCREMENT POINTER h ~ $ P IM FBAX INCREMENT BUFFER INDEX h P LD A1,FBAX h P CWK A1,RBUFL+RBUFL h P RB(NG) RDM100
0x0a5ffc…0a6190 Dummy {f00=0x0060, f01=0x0190, f02=» INVALID MESSAGE h ~ P SUK A2,/7F i $ P RF(Z) RDM150 MARK HOLD RECEIVED i , P RB RDM100 i T P* i f P* ETX RECEIVED i p P* i PRDM130 EQU * i $ P LD A1,DCRBUF GET BUFFER ADDRESS i P LD A2,FBAX GET BUFFER INDEX i 2 P ST A2,+2,A1 STORE EFFEC
0x0a6190…0a6324 Dummy {f00=0x0060, f01=0x0190, f02=»F A5,RDCRC READ CRC AND CHECK IT i P RF(E) RDM150 CRC WAS OK j ( P XIF j H PRDM140 EQU * j T & P LDK A3,1 INDICATE INVALID MESSAGE j h PRDM150 EQU * j $ P LDR A7,A3 SAVE RESULT REGISTER j P CF A5,HALTIN HALT INPUT j P IFT P6805=1 j " P ORR A
0x0a6324…0a64b8 Dummy {f00=0x0060, f01=0x0190, f02=» A3,A3 j " P RB(NZ) RDM130 ALREADY INVALID k " P LDK A3,2 INDICATE CORRECT ETB k 4 P RB RDM130 k Z P* k l P* ITB RECEIVED k v P* k PRDM170 EQU * k P IFF CODE=1 k P CF A5,RDLRC k " P RB(NZ) RDM120 LRC WAS NOT OK k P XIF k P IFT
0x0a64b8…0a664c Dummy {f00=0x0060, f01=0x0190, f02=» P* l P* TRANSMIT ACK 0 OR 1 l P* l , PTRACK LDK A2,1 l 6 P LDK A3,ACK1 PRELOAD ACK1 l L & P XRS A2,CACK INCREMENT ACK COUNTER l n P RF(NZ) TRDLE l P LDK A3,ACK0 LOAD ACK0 l P RF TRDLE l P* l P* TRANSMIT WACK l P* l
0x0a664c…0a67e0 Dummy {f00=0x0060, f01=0x0190, f02=»OAD RVI l ~ P XIF m P* m P* TRANSMIT DLE m & P* m < PTRDLE LDK A2,DLE LOAD DLE m F " P SC A2,RESEND PUT INSAVE AREA m h P SC A3,RESEND+1 m P RF TRREP m P EJECT m P* m P* TRANSMIT NAK m P* m PTRNAK LDK A3,NAK LOAD NA
0x0a67e0…0a6974 (2, 45) Dummy {f00=0x007e, f01=0x0190, f02=» ` $ PSWB:EL EQU 4 SWB LENGTH (BYTES) & PSWB:NS EQU 6 SWB LENGTH (SECTORS) 0 P* Z ( PT:ACSB EQU -12 CURRENT SEGMENT BASE d P EJECT SYSBUG P* P* INTERRUPT VECTORS P* P DATA IHPFAR 0 P DATA IHLKM 1
0x0a6974…0a6b08 Dummy {f00=0x007e, f01=0x0190, f02=» 6 P DATA ILLINT P DATA ILLINT , P DATA IHSOP 9 L P DATA ILLINT 10 h P DATA ILLINT 11 P DATA IH1501 12 P DATA IH1502 13 P DATA CHLT1 14 P DATA IL
0x0a6b08…0a6c9c Dummy {f00=0x007e, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT $ P DATA ILLINT 22 D P DATA ILLINT ` P DATA CHLT1 24 P DATA CHLT2 25 P DATA CHLT3 26 P DATA ILLINT P DATA ILLINT 28
0x0a6c9c…0a6e30 Dummy {f00=0x007e, f01=0x0190, f02=» 33 P DATA ILLINT P DATA ILLINT 0 P DATA ILLINT 36 P P DATA ILLINT 37 l P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT P DATA ILLINT P DATA IL
0x0a6e30…0a6fc4 Dummy {f00=0x007e, f01=0x0190, f02=» DATA ILLINT 47 P DATA ILLINT 48 P DATA ILLINT 49 8 P DATA ILLINT 50 T P DATA ILLINT 51 p P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT
0x0a6fc4…0a7158 Dummy {f00=0x007e, f01=0x0190, f02=»LINT 61 P DATA ILLINT 62 P DATA TRAP TRAP ROUTINE 0 P EJECT SYSBUG P P h P* p " P* SYSTEM CONTROL TABLE POINTER z P* P DATA SCT P P P* P* SYSTEM TRAP P* PTRAP LDK A1,/D
0x0a7158…0a72ec Dummy {f00=0x007e, f01=0x0190, f02=»,A14 P LD A1,SCTBUG P ABR(NZ) A1 " P HLT 6 P B P EJECT SYSBUG J P b P* j P* SYSTEM CONTROL TABLE t P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FRE
0x0a72ec…0a7480 Dummy {f00=0x007e, f01=0x0190, f02=» $ PSCTANO DATA 0 APPLICATION NUMBER 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS , PSCTPAG DATA 0 PAGTAB ADDRESS b PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DATA 0 NUMBER OF SEGMENTS " PSCTNOP DATA 0 NUMB
0x0a7480…0a7614 (2, 46) Dummy {f00=0x0082, f01=0x0190, f02=» PTRT103 EQU * v P CWK A2,X'7F' NULL ?? v P RF(NE) TRT105 v 6 P SUK A2,1 v L P XIF v ^ P IFT RCOM=1 v j P RF TRT105 v ~ P v PTRT101 EQU * v P v P LDK A2,SF v " P CF A5,WRITEP SEND START FIELD v P v ( P LC A2,-1,A4 GET ATT
0x0a7614…0a77a8 Dummy {f00=0x0082, f01=0x0190, f02=» A2,1 v & P ORR A2,A1 IBM ATTRIBUTE COMPOSED w " P ORK A2,/40 BIT ALWAYS SET ONE w 8 P LC A2,TASCII,A2 w ^ & P CWK A2,/18 CHECK SPECIAL ATTRIBUT w v P RF(NE) TRT104 w P LDK A2,/30 w PTRT104 EQU * w P CF A5,WRITEP SEND ATTRIBUTE w P ADK A
0x0a77a8…0a793c Dummy {f00=0x0082, f01=0x0190, f02=» INCREMENT BUFFER INDEX w & P LD A1,FECBRL GET REQUESTED LENGTH x P CW A1,FBAX x J " P RF(NG) TRT130 END OF MESSAGE x ^ * P ADK A3,1 INCREMENT CHARACTER COUNTER x P CWK A3,TBLEN x P RB(L) TRT100 NOT FULL BLOCK x P IFT RCOM=1 x , P LDK A1,
0x0a793c…0a7ad0 Dummy {f00=0x0082, f01=0x0190, f02=» ( P LCR A2,A4 GET FIRST BYTE AFTER SBA y P ADK A4,1 INREMENT POINTER y 0 P CF A5,WRITEP SEND IT y R P IM FBAX INCREMENT INDEX y p . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA y P CF A5,WRITEP SEND IT y P IM FBAX INCREMENT INDEX y P XIF y
0x0a7ad0…0a7c64 Dummy {f00=0x0082, f01=0x0190, f02=» LRC y P CF A5,WRITEP SEND LRC z P XIF z * P IFT CODE=1 z 6 P LDR A8,A7 SAVE CURRENT CRC z J P LDR A2,A7 z n P ANK A2,/FF z " P CF A5,WRIT05 SEND CRC BYTE 1 z P ECR A2,A8 z P ANK A2,/FF z " P CF A5,WRIT05 SEND CRC BYTE 2 z P X
0x0a7c64…0a7df8 Dummy {f00=0x0082, f01=0x0190, f02=»TX z ~ P RB TRT120 SEND ETX AND LRC { P { . P* { 8 P* { B P* TRANSMIT STATUS MESSAGE { L P* { n P* { x P IFF STAT=0 { PTRSTA EQU * { $ P IM XSTA INDICATE 'STATUS SENT' { P ST A6,FDWTUT SAVE A6 { P CF A5,TRSYNC START OUTP
0x0a7df8…0a7f8c Dummy {f00=0x0082, f01=0x0190, f02=» LDK A2,'R' { P CF A5,WRITEP SEND 'R' | P LDK A2,STX | 2 P CF A5,WRITE SEND STX | F P LC A2,DW1500+1 | d P CF A5,WRITEP SEND TCA | | P LDR* A2,A6 | P CF A5,WRITEP SEND STA | P LD A1,DWTST,A6 GET STATUS | P ANK A1,/06 MASK FOR S/S 0
0x0a7f8c…0a8120 Dummy {f00=0x0082, f01=0x0190, f02=»A1,DWTST,A6 GET STATUS | P ANK A1,5 } P RF(Z) TRST10 NOT 'IR' } 0 P ANK A1,4 } N P RF(NZ) TRST10 NO IR IF DE } ` P LDK A2,IR } PTRST10 EQU * } P CF A5,WRITEP SEND S/S 1 } P RB TRT130 SEND ETX AND LRC } P XIF } P } P* }
0x0a8120…0a82b4 (2, 47) Dummy {f00=0x0046, f01=0x0190, f02=» J F IDENT LDTASK REL 9.2 79-12-06 870105040920 6 2 LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB PQEMTY R PQEMTY TTABLD , ( #L 1
0x0a82b4…0a8448 Dummy {f00=0x0046, f01=0x0190, f02=»AGQUEA , ( @ A ( @ PAG:QB > PAG:SB P * & % X H A ) @ H b TTB:MT , ( = D P 1 % E I L TLDS20 SEG:EL * & U U
0x0a8448…0a85dc Dummy {f00=0x0046, f01=0x0190, f02=»CW , ( ( C 9b;BT SCTLAP : ECBBA L SCTPLDT , ( " C 0 @ # n * & W C U R C , ( W C R # R , ( _8
0x0a85dc…0a8770 Dummy {f00=0x0046, f01=0x4152, f02=»TB:SBH * & ) HT :" U U ( F QLTSWB X < , ( A M 0 - A Q '_D P QLTDSK ^ ACTOT LKMERR LT:SWB j & " Y W * , D @ @4 V ?P T
0x0a8770…0a8904 Dummy {f00=0x0046, f01=0x4104, f02=» J F IDENT DW1501 REL 9.2 79-11-16 870105040920 DW1501K R DW1501K d DC15AD x , ( DC @ . " . @ PDW
0x0a8904…0a8a98 Dummy {f00=0x0046, f01=0x8190, f02=» J F IDENT DRKB03 REL 9.2 79-11-16 870105040920 KBAD3 R KBAD3 b DWTST t , ( Y U , ( R -P X , ) Y . X * & ? " P :A: R Q W
0x0a8a98…0a8c2c Dummy {f00=0x0046, f01=0x8190, f02=» X . $ r STREG , ( 4 T % X ,T ! W " ECHON R , ( Y . V ! B P X b , ( " _Z B P $$ R % , ( C * ! W Y +P Y *P , ( / Y (P Y )P
0x0a8c2c…0a8dc0 Dummy {f00=0x0046, f01=0x8190, f02=» X . 0T N W X , ( ,P Y . 0 %_. % Y . W _p " ECHEND R * & P _ C ! d DISEND , ( " Q R X R LDREG DWTA3 , ( ;GV
0x0a8dc0…0a8f54 (2, 48) Dummy {f00=0x0072, f01=0x2008, f02=»
0x0a8f54…0a90e8 Dummy {f00=0x0072, f01=0x0004, f02=» P
0x0a90e8…0a927c Dummy {f00=0x0072, f01=0x0190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIXV DM:DIX PC:DIX8
0x0a927c…0a9410 Dummy {f00=0x0072, f01=0x018e, f02=»UEC# DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 z * & DWTSB2f DWTTP DWTECHj DWTSQ DWTVOLW 4 DWTCHP b DWTST v DWTBC DWTECB DWTOR DWTOCH DWTADR DWTTAB DWTWAT
0x0a9410…0a95a4 Dummy {f00=0x0072, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x0a95a4…0a9738 Dummy {f00=0x0072, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x0a9738…0a98cc Dummy {f00=0x0072, f01=0x0190, f02=» n , ( y @ C @ $W 0P P > FDBADF > , ( Z 0P R I P QTJOB * & W _" H P 4 I TIODM , ( > T C T V Y * & @
0x0a98cc…0a9a60 Dummy {f00=0x0072, f01=0x0190, f02=» A D , ( I W @W T P X T T LKMQDIR P , ( D g W C 8 b TTB:ST , ( W T 8P Y ^ 5 TDISP FNDDWT |TIO , (
0x0a9a60…0a9bf4 (2, 49) Dummy {f00=0x007d, f01=0x0190, f02=» b P X l T x , ( @_| Xv Y @ P T W X , ( &P T P H T H TTB:PW x , ( 7 _ X I Y T , ( U # C C W O " # X , ( u Y ) C C
0x0a9bf4…0a9d88 Dummy {f00=0x007d, f01=0x0190, f02=»P (@ (@ " 2 z , ( X $? P $ > > , ( J , ( / F C z , ( O F C > B R Q F ! P C , ( o > C > F :c" H ,
0x0a9d88…0a9f1c Dummy {f00=0x007d, f01=0x0190, f02=» j , ( U H Q X D B , ( $ T C x > C $ ) _ : DISENDS j , ( - X 9BV X & X | , ( K B D C > X H U H B , ( k P P $ #
0x0a9f1c…0aa0b0 Dummy {f00=0x007d, f01=0x0190, f02=» l DC:MOT , ( @ > ? _ X T (@ DC:MIN P , ( ^ > > ? _ X T d , ( ' X X T % T ?C L R , ( G _@(@ L U L Q M , ( g h
0x0aa0b0…0aa244 Dummy {f00=0x007d, f01=0x0190, f02=» H " $ TENDIO & , ( Y _| ?(@ X P T : * & D #DP 0P X T 4 Y j REQEND , ( X X T X & , ( 1 1 X P - M T $ P ,
0x0aa244…0aa3d8 Dummy {f00=0x007d, f01=0x0190, f02=» j * & P 0P 1 _ ACTOTPN 6 & " (W Y > > H H D ! F X x V x V H Z V Z Z V V r H D ! ! V # S eP W P P R W P T T, V. T H
0x0aa3d8…0aa56c Dummy {f00=0x007d, f01=0x4124, f02=»T W T V H D ! P W P R P P aQ iP Q~ P0 P* T QL H D ! U( Q2 T 3V = cUJ qP uPL Q P T P U 9T ARl E H ^ H D ! QU WQ0 q P& P P T T !P /PD [R ]P cP yP8 }P0 P P P W
0x0aa56c…0aa700 Dummy {f00=0x007d, f01=0x2008, f02=»
0x0aa700…0aa894 (2, 50) Dummy {f00=0x0046, f01=0x018e, f02=»LOAD MMU REGISTERS FROM TTAB P* $ P EJECT TOSSIO . P* F P* MOVE DWT ECB TO USER ECB P P* r * P LD A8,DWTUEC,A6 GET USER ECB ADDRESS | P ELR A4,A8 * P ORR A4,A2 SET EVENT COMPLETED IN ECB P ESR A4,A8 P LDR A1,A3
0x0aa894…0aaa28 Dummy {f00=0x0046, f01=0x0002, f02=»
0x0aaa28…0aabbc Dummy {f00=0x0046, f01=0x0190, f02=» J F IDENT TLDSEG REL 9.2 79-11-16 870105040920 TLDSEGK TLDS15 TLDS20 R TLDSEGK t SCTNOS LKM030 SCTSEG , ( R @ U 9C @ TTB:SB@ SEG:D
0x0aabbc…0aad50 Dummy {f00=0x0046, f01=0x4114, f02=» SCTMMP SCTNPE , ( 5B@ D " @ @ - U " SCTLAP` R TTB:MT d T:ACSBN v TTB:SA * & O _ 9B @ T W X g > R U %T /W. IU j
0x0aad50…0aaee4 Dummy {f00=0x0046, f01=0x2008, f02=»
[…0x1…]
0x0ab078…0ab20c Dummy {f00=0x0046, f01=0x40dc, f02=» IFT CPU852=1 P ABL IHRET8 P XIF * P* 6 P IFT CPU852=0 @ * P MLR 8,A15 RESTORE A1-A8 FROM STACK... V P RTN A15 ...AND RETURN P XIF P* P* P* P END @ PTEN240 EQU * 2 P CF A15,QTJOB WAIT
0x0ab20c…0ab3a0 Dummy {f00=0x0046, f01=0x2008, f02=» NT TOSSIO END @ &
0x0ab3a0…0ab534 (2, 51) Dummy {f00=0x0083, f01=0x2008, f02=»
0x0ab534…0ab6c8 Dummy {f00=0x0083, f01=0x0006, f02=» `
0x0ab6c8…0ab85c Dummy {f00=0x0083, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 9.2 79-11-16 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x0ab85c…0ab9f0 Dummy {f00=0x0083, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P EJECT SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD
0x0ab9f0…0abb84 Dummy {f00=0x0083, f01=0x0190, f02=» SCTMMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 4 P ENTRY SCTTCT,SCTCDT J P ENTRY SCTBUG f & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC | P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,
0x0abb84…0abd18 Dummy {f00=0x0083, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IH1501 X P EXTRN IH1502 x ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P * P EXTRN CHLT1 LOCAL CHANNEL U
0x0abd18…0abeac Dummy {f00=0x0083, f01=0x0190, f02=»HALT ROUTINE P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM > * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE j & PX:D EQU 0 DM NUMBER OF LOCAL FILES ( PX:E EQU 0 DM NUMBER OF COMMON FILES PX:F EQU 0 DC TASK IN SYSTE
0x0abeac…0ac040 Dummy {f00=0x0083, f01=0x0190, f02=»CTOR ADDRESS | " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS : P* b & PPAG:QF EQU 0 QUEUE POINTER FORWARD l ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD PPAG:PA EQU 4 PAGE ADDRESS & PPAG:SB EQU 6 SEGMENT BLOCK ADDRESS
0x0ac040…0ac1d4 (2, 52) Dummy {f00=0x0045, 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
0x0ac1d4…0ac368 Dummy {f00=0x0045, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF . P* : P IFT CPU852=0 D P INH Z " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* $ P LDKL A5,TTMJOB SET TTAB ADDRESS P RF ACT01 P* P EJECT MSUBS P* P*
0x0ac368…0ac4fc Dummy {f00=0x0045, f01=0x0190, f02=»* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS & P* A3 = SEGMENT NUMBER H P* A4 = PARAMETER 2 h P* A5 = TTAB ADDRESS P* < P* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS : P* PUT IN DISPATCHER QUEU
0x0ac4fc…0ac690 Dummy {f00=0x0045, f01=0x0190, f02=»LL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. 6 P* | P* PACTOTP EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x0ac690…0ac824 Dummy {f00=0x0045, f01=0x0190, f02=» P EJECT MSUBS P* P* $ PACTOT EQU * . P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* PACT01 LDK A6,0 IND
0x0ac824…0ac9b8 Dummy {f00=0x0045, f01=0x0190, f02=» " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS * & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER ^ " P ST A4,TTB:SA+8,A5 PARAMETER 2 $ P LD A4,TTB:ID,A5 SET TERMINAL ID * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA P*
0x0ac9b8…0acb4c Dummy {f00=0x0045, f01=0x0190, f02=»E JOB z P* P EJECT MSUBS P* . P* 8 PACT010 EQU * B P IFT CPU852=1 V ( P ABL IHRET8 RESTORE A1-A8 AND RETURN l P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN
0x0acb4c…0acce0 Dummy {f00=0x0045, f01=0x0190, f02=»K GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 8 P CF A15,GETBLK J P ADKL A5,TTB:PP ` P* x " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5,A5 FOLLOW THE QUEUE THREAD P ADK A6,0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO
0x0acce0…0ace74 (2, 53) Dummy {f00=0x0041, f01=0x0190, f02=» r P* 6 P* DISPLACEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* L PSEG:ST EQU 0 STATUS V $ PSEG:DS EQU 2 DISC SECTOR ADDRESS r " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POI
0x0ace74…0ad008 Dummy {f00=0x0041, f01=0x0190, f02=» P* 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY D $ PSWB:EL EQU 4 SWB LENGTH (BYTES) z & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P EJECT
0x0ad008…0ad19c Dummy {f00=0x0041, f01=0x0190, f02=» 2 P DATA ILLINT 3 P DATA ILLINT 4 * P DATA ILLINT 5 F P DATA ILLINT 6 b P DATA IHTW 7 ~ P DATA IHTC 8 P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P D
0x0ad19c…0ad330 Dummy {f00=0x0041, f01=0x0190, f02=» DATA CHRT2 17 P DATA CHRT3 18 P DATA CHRT4 19 8 P DATA IHCC1 20 T P DATA IHCC2 21 p P DATA ILLINT 22 P DATA IHCC3 23 P DATA CHLT1 24 P DATA CHLT2 25 P DATA CHLT3
0x0ad330…0ad4c4 Dummy {f00=0x0041, f01=0x0190, f02=»NT 31 P DATA ILLINT 32 P DATA ILLINT 33 . P DATA IHLP 34 J P DATA IHCR 35 d P DATA ILLINT 36 ~ P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P DATA IHDU1 40
0x0ad4c4…0ad658 Dummy {f00=0x0041, f01=0x0190, f02=» P DATA ILLINT 46 P DATA ILLINT 47 P DATA ILLINT 48 < P DATA ILLINT 49 X P DATA ILLINT 50 t P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA IL
0x0ad658…0ad7ec Dummy {f00=0x0041, f01=0x0190, f02=»A ILLINT 60 P DATA ILLINT 61 P DATA ILLINT 62 4 P DATA IHINPT IHINPT ROUTINE P P EJECT SYSTAB t P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP
0x0ad7ec…0ad980 Dummy {f00=0x0041, f01=0x0190, f02=» P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG 0 P ABR(NZ) A1 F P HLT Z P f P EJECT SYSTAB n P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES
0x0ad980…0adb14 (2, 54) Dummy {f00=0x0041, f01=0x018e, f02=»0,C1 CAS F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER ( 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS P PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DATA 0 NUMBER O
0x0adb14…0adca8 Dummy {f00=0x0041, f01=0x0190, f02=» P INDEX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY R P INDEX REL TTAB | * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM S
0x0adca8…0ade3c Dummy {f00=0x0041, f01=0x018e, f02=»SCTCDT DATA 0 CDTAB ADDRESS PSCTBUG DATA BUG DEBUGGER $ & PSCTDMT DATA X:B DMTASKS IN SYSTEM D P BIT 13:D2,14:D1,15:D0 n 0 PSCTDMI DATA X:C DM INDEX RECORD BUFFER SIZE ( PSCTDML DATA X:D DM NO OF LOCAL FILES * PSCTDMC DATA X:E DM NO OF C
0x0ade3c…0adfd0 Dummy {f00=0x0041, f01=0x40fe, f02=» P* P* SYSTEM STACK P* $ P RES 145 . P DATA /FCC0 AND PSW > & PSTB DATA LOOP AND PC FOR IDLE LOOP Z P P P* P* IDLE LOOP P* P PLOOP RB * P P P P END @ DM NO OF C
0x0adfd0…0ae164 Dummy {f00=0x0041, 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
0x0ae164…0ae2f8 Dummy {f00=0x0041, f01=0x0190, f02=»01.XXX.1 b C:CB60 C:CB60C " * & x 6 * & d & = & [ & y & & & & &
0x0ae2f8…0ae48c Dummy {f00=0x0041, f01=0x0190, f02=».1 80-01-22 F1 O1111 02.01.XXX.1 | D:CB60 * D:CB60C < * & . 9 P 0 9 ; ~ . : H IDENT Z:TB10 TRA 4.1 80-01-22 F1 O1111 02.01.XXX.1 Z:TB10 Z:TB1
0x0ae48c…0ae620 Dummy {f00=0x0041, f01=0x0190, f02=» p * & [ * & y < * & j * & * &
0x0ae620…0ae7b4 (2, 55) Dummy {f00=0x0084, f01=0x0190, f02=»S OF COMMON PART t & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY P INDEX REL TTAB B * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM STACK BASE $ PSCTOPT DATA 00001 MONITOR OPTION ( P
0x0ae7b4…0ae948 Dummy {f00=0x0084, f01=0x0002, f02=»
0x0ae948…0aeadc Dummy {f00=0x0084, f01=0x0190, f02=» J F IDENT LRPINT 9.2DK 1 79-11-16 870105040920 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG IHLKM INTSAV PRUNN TTB:SA , ( A$ A
0x0aeadc…0aec70 Dummy {f00=0x0084, f01=0x0190, f02=» SWL48 , ( 5 $P c P W P A LKMAL @ , ( Q V ( U P @ V P LKMERR x HALTN LKMRQE ~ * & mD L W @ U LKMQDI QTJOB
0x0aec70…0aee04 Dummy {f00=0x0084, f01=0x0190, f02=» A Q | , ( _0 A < Q P Q Z MONCLO L MEXIT ` , ( Y _ 8 p FREBLK0 , ( Q Z P 0 9 _ TIMQUE@ , , ( @ _,
0x0aee04…0aef98 Dummy {f00=0x0084, f01=0x40f4, f02=» OA @ 0 ) A _ 6 6 A PFINIT 0 k$ > A _ B H D ! . %T 5P ;P ?W: EP, SV cP" iV qW * Q * Q b , ( , P ; ^ KQ v @ ( @ _,
0x0aef98…0af12c Dummy {f00=0x0084, f01=0x2008, f02=»
0x0af12c…0af2c0 Dummy {f00=0x0084, f01=0x0190, f02=» T2 Q P ,! * Q _ P P Q : ! P ! P ! P ! Pn " (Ub WT Q U U Q4 , ! P ! P ! P ! P ! P _* U W _ -_ : 5 + ( + ( : V C +
0x0af2c0…0af454 (2, 56) Dummy {f00=0x0034, f01=0x0190, f02=»44 Z P* PX:B EQU 1 PWHATDY EQU 0 & P* : P* D 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR N & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 0 PLOWCHA EQU 0 P* P* 8 P* BY MEANS OF CONDITION
0x0af454…0af5e8 Dummy {f00=0x0034, f01=0x018e, f02=»ANT X:G=0 f P* PX:D EQU 0 PEORECH EQU 0 . P* B 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS L @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* PX:E EQU 0 PTRASPA EQU 0 P EJECT P*
0x0af5e8…0af77c Dummy {f00=0x0034, f01=0x0190, f02=» < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1 D P* f PMMUPAG EQU 1 p P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x0af77c…0af910 Dummy {f00=0x0034, f01=0x0190, f02=» CHARACTER SETS. h P P P* CODE COUNTRY ( P > P* 0 GB/NL/B F P* 1 D/A/L/CH Z P* 2 F/CH/B/L n P* 3 E P* 4 I/CH P* 5 S/SF P* 6 DK/N P* 7 P P* 8 YU P* 9 US PX:G EQU 0 PCOUNTRY EQU
0x0af910…0afaa4 Dummy {f00=0x0034, f01=0x0190, f02=»CT P* P* $ P******************************** $ P* DWT-DISPLACEMENT * F $ P******************************** n P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU
0x0afaa4…0afc38 Dummy {f00=0x0034, f01=0x0190, f02=»ION POINTER r " PDWTPOS EQU START+/15 POSITIONS PDWTLIN EQU START+/14 LINES : & PDWTBIN EQU START+/16 BUFFER INDEX P* P EJECT P* P* P********** P* TABLES * P********** P* P* P DATA DVBLEN
0x0afc38…0afdcc Dummy {f00=0x0034, f01=0x0190, f02=»OUTINE ADDRESS ~ P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE : . P DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE ^ P* P* , PTABSPE EQU * TABLE OF SPECIAL CHARACTERS P DATA /0712,/131E,/1F14 P EJECT P*
0x0afdcc…0aff60 Dummy {f00=0x0034, f01=0x0190, f02=»ISPLAY AND RETURN CODE b 2 P* IS SET IF DISPLAY NOT OPERABLE P* T P* ^ > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY h 6 P* FROM ECB-BUFFER WITHOUT ANY CHECK. P* F P* ORDER 06: STANDARD WR
0x0aff60…0b00f4 (2, 57) Dummy {f00=0x0034, f01=0x0190, f02=»OUNTER r P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND & P RB ACDY50 P ( PACDY65 LDK A2,CLEHOM CLEAR AND HOME b P LDK A1,1 & P SC A1,DWTAP,A6 RESET LINE COUNTER P RB ACDY35 P EJECT P* & P* GET, CHECK AND
0x0b00f4…0b0288 Dummy {f00=0x0034, f01=0x0190, f02=»METER t P ANK A4,/10 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 " P XIF J P LD A4,2,A8 V 2 P ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER j $ P CCR A2,A4 CHAR EQU TO CURRENT? P ABL(E) CHECK YES! PACDY75 EQU * P CF A5,OUTPUT
0x0b0288…0b041c Dummy {f00=0x0034, f01=0x0190, f02=»GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 H P RF(NG) SKIP30 RL < 3 ` P SUK A1,1 DECR. BA ~ P LCR A4,A1 GET CHAR P CCK A4,/2020 SPACE ? P RF(NE) SKIP20 NO PSKIP07 SUK A2,1 DECR RL
0x0b041c…0b05b0 Dummy {f00=0x0034, f01=0x0190, f02=»TION CHAR ? | P RF(NE) SKIP25 NO! ! P SUK A1,2 DECR BA ! . P SUK A2,2 DECR RL ! H P RB SKIP07 GET NEXT ! b ( PSKIP25 LCR A4,A1 GET CHARACTER AGAIN ! ~ P ANK A4,/FF ! " P SUK A4,/12 UNDER LINE START? ! P RB(Z) SKIP07 YES! SKIP IT! ! P
0x0b05b0…0b0744 Dummy {f00=0x0034, f01=0x018e, f02=»T A2,4,A8 STORE NEW RL ! P XIF " PACDY90 LDK A4,0 " * 6 PADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER " B P LDR A1,A1 LAST CHARACTER? " | P ABL(NP) ADY405 " P SUK A7,5 ORDER 5? " P RB(E) ACDY75 " P ANK A2,/7F " P LDK A1,5 SET
0x0b0744…0b08d8 Dummy {f00=0x0034, f01=0x0190, f02=» " p P ANK A7,/30 GRAFIC DISPLAY ? # P RF(E) ADY110 NO # , P LDK A1,0 SET TABLE PONTER # D * PADY110 CC A2,TABSPE,A1 CHARACTER FOUND # f P RF(NE) ADY128 # " P CCK A2,/1E1E LOW INTENSITY ? # P RF(NE) ADY122 NO # P LDK A4,/80 # , PADY120 ORR
0x0b08d8…0b0a6c Dummy {f00=0x0034, f01=0x0190, f02=» LDK A4,/40 SET UNDERLINE MODE # P RB ADY120 $ & & PADY125 CCK A2,/1414 FAST OUTPUT ? $ 8 P LDK A4,0 $ b P RB(NE) ACDY50 NO $ t P LDR A4,A2 $ ( P CF A15,GETCHR GET OUTPUT CHARACTER $ P LDR A1,A2 $ P LDR A2,A4 $ P LD A4,4,A8 REQ LENGTH $
0x0b0a6c…0b0c00 Dummy {f00=0x0034, f01=0x018e, f02=» P ANK A7,/10 % 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % P XIF % N P LDR A3,A1 NO! % Z P CF A5,FASTER % p PADY127 EQU * % P LD A3,4,A8 REQ LENGTH % P ST A3,6,A8 EFF LENGTH % P ABL ADY405 % PADY128 EQU * % P SUK A1,1
0x0b0c00…0b0d94 (2, 58) Dummy {f00=0x0039, f01=0x0190, f02=» P* . * P* ORDER /B CURSOR POSITIONING PART . P* . < PADY200 EQU * . F P* . Z P IFT WHATDY=0 . d " P LDR* A1,A6 CHANNEL PARAMETER . z P ANK A1,/10 GRAFIC DISPLAY? . P RF(NE) ADY205 YES . 2 P* IF VIDEO (6344) SET CURSOR ADDRESS DI
0x0b0d94…0b0f28 Dummy {f00=0x0039, f01=0x0190, f02=»T CURSOR . P RF ADY380 / P IFT WHATDY=0 / " P* GET LINE / 8 * PADY205 LC A4,10,A8 GET REQUESTED LINE / N $ P CC A4,DWTLIN,A6 OUTSIDE SCREEN? / | P RF(NG) ADY207 NO! / 4 P LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE / PADY207 EQU * / $
0x0b0f28…0b10bc Dummy {f00=0x0039, f01=0x018e, f02=»INE / | P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 0 ( PADY230 CF A5,OUTPUT SEND 0 V P LDR A4,A4 REQUESTED LINE 0 v " P RB(NZ) ADY210 NOT EQUAL ZERO 0 P LDK A4,1 0 P RF ADY300 0 PADY250 LDK A2,HOME HOME 0 & P LDK A
0x0b10bc…0b1250 Dummy {f00=0x0039, f01=0x0190, f02=» 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,A8 GET REQUESTED POSITION 1 : $ P CC A4,DWTPOS,A6 OUTSIDE SCREEN? 1 f P RF(NG) ADY303 NO! 1 " P LC A4,DWTPOS,A6 SET LAST LINE 1 PADY303 EQU * 1 P CWK A4,1 FIRST POSITION ? 1 P RF(
0x0b1250…0b13e4 Dummy {f00=0x0039, f01=0x0190, f02=»Y305 RF(NL) ADY307 REQ. POS NOT ZERO 1 P LDK A4,1 2 , 0 PADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2 > P CC A3,DWTPOS,A6 MAX-POS? 2 r P RF(NG) ADY310 NO! 2 P SUK A3,1 2 * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS 2 P RF(E) ADY370 POSITION FOU
0x0b13e4…0b1578 Dummy {f00=0x0039, f01=0x0190, f02=»ND 2 z P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 3 , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY 3 N P RF(L) ADY345 BACKSPACE WAY 3 ~ P LDK A2,CR CARRIAGE RETURN 3 & P LDK A3,1 INDICATE FIRST POSITION 3 P RB ADY330 3 " PADY345 L
0x0b1578…0b170c Dummy {f00=0x0039, f01=0x0190, f02=»UPDATE HEAD POSITION POINTER 3 x P XIF 4 $ & PADY380 LDK A3,2 START BUFFER INDEX 4 0 P ABL ACDY90 4 Z P IFT WHATDY=0 4 n P* 4 & PADY400 LDK A2,/22 START CHARACTER 4 P CF A5,OUTPUT 4 P* 4 P XIF 4 P* 4 P EJECT 4 P* 4 P*
0x0b170c…0b18a0 Dummy {f00=0x0039, f01=0x018e, f02=»Y405 EQU * 4 & P LDR* A1,A6 GET CHANNEL PARAMETER 5 P ANK A1,/30 6344 ? 5 < P RF(NE) ADY407 NO 5 V P LDR* A1,A6 5 p P LDR A4,A1 5 P ANK A1,/40 UNDERLINE MODE ? 5 P RF(E) ADY406 NO 5 " P LDK A2,ULSTOP UNDERLINE STOP 5 P CF A5,OUTPUT 5
0x0b18a0…0b1a34 (2, 59) Dummy {f00=0x0058, f01=0x0190, f02=» 4 n , ( X )" X '# R 4 % > > H D ! ` ( : )P 5P 9P ? E OP _PV cP. iT {R: P H D !8 R T T P( P TJ T T P T( ) 3PR 7RF H D !/H YV P T
0x0b1a34…0b1bc8 Dummy {f00=0x0058, f01=0x409a, f02=» IP YT> _P T P R V P P" W P D @ 1U 5W iU uR@ V R V V W R < & @ D !8 R T T P( P TJ T T P T( ) 3PR 7RF H D !/H YV P T
0x0b1bc8…0b1d5c Dummy {f00=0x0058, f01=0x2008, f02=»
0x0b1d5c…0b1ef0 Dummy {f00=0x0058, f01=0x0190, f02=» h l P SUK A2,/7F i $ P RF(Z) RDM150 MARK HOLD RECEIVED i P RB RDM100 i D P* i V P* ETX RECEIVED i ` P* i v PRDM130 EQU * i $ P LD A1,DCRBUF GET BUFFER ADDRESS i P LD A2,FBAX GET BUFFER INDEX i 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN H
0x0b1ef0…0b2084 Dummy {f00=0x0058, f01=0x0190, f02=»CRC AND CHECK IT i ~ P RF(E) RDM150 CRC WAS OK j P XIF j 8 PRDM140 EQU * j D & P LDK A3,1 INDICATE INVALID MESSAGE j X PRDM150 EQU * j $ P LDR A7,A3 SAVE RESULT REGISTER j P CF A5,HALTIN HALT INPUT j P IFT P6805=1 j " P ORR A7,A1 PARITY ERRO
0x0b2084…0b2218 Dummy {f00=0x0058, f01=0x0190, f02=»B(NZ) RDM130 ALREADY INVALID j " P LDK A3,2 INDICATE CORRECT ETB k $ P RB RDM130 k J P* k P* ITB RECEIVED k f P* k | PRDM170 EQU * k P IFF CODE=1 k P CF A5,RDLRC k " P RB(NZ) RDM120 LRC WAS NOT OK k P XIF k P IFT CODE=1 k & P
0x0b2218…0b23ac Dummy {f00=0x0058, f01=0x0190, f02=»TRANSMIT ACK 0 OR 1 k P* l PTRACK LDK A2,1 l & P LDK A3,ACK1 PRELOAD ACK1 l < & P XRS A2,CACK INCREMENT ACK COUNTER l ^ P RF(NZ) TRDLE l P LDK A3,ACK0 LOAD ACK0 l P RF TRDLE l P* l P* TRANSMIT WACK l P* l PTRWACK LDK A3,
0x0b23ac…0b2540 Dummy {f00=0x0058, f01=0x018e, f02=» XIF l P* m P* TRANSMIT DLE m P* m , PTRDLE LDK A2,DLE LOAD DLE m 6 " P SC A2,RESEND PUT INSAVE AREA m X P SC A3,RESEND+1 m ~ P RF TRREP m P EJECT m P* m P* TRANSMIT NAK m P* m PTRNAK LDK A3,NAK LOAD NAK m P RF TR
0x0b2540…0b26d4 (2, 60) Dummy {f00=0x0059, f01=0x018e, f02=»******* u h P v & P CWK A2,X'20' ATTRIBUTE CHARACTER v P RF(L) TRT101 YES!!! v B P XIF v ^ P IFT DMRK=1 v j P CWK A2,/7E LINE FEED ? v ~ " P RF(NE) TRT102 NO,GO TO TRT102 v P LDK A2,/0A v PTRT102 EQU * v P CWK A2,/7D END OF MESSAGE ?
0x0b26d4…0b2868 Dummy {f00=0x0059, f01=0x0190, f02=» P SUK A2,1 w P XIF w P IFT RCOM=1 w " P RF TRT105 w 6 P w H PTRT101 EQU * w P P w d P LDK A2,SF w l " P CF A5,WRITEP SEND START FIELD w ~ P w ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER w P ANK A2,X'7F' w ( P LDR A1,A2 CONVERT TO IBM
0x0b2868…0b29fc Dummy {f00=0x0059, f01=0x0190, f02=»ALWAYS SET ONE w P LC A2,TASCII,A2 x & P CWK A2,/18 CHECK SPECIAL ATTRIBUT x . P RF(NE) TRT104 x X P LDK A2,/30 x n PTRT104 EQU * x P CF A5,WRITEP SEND ATTRIBUTE x P ADK A3,1 x P RF TRT110 x PTRT105 EQU * x P XIF x P EJECT x
0x0b29fc…0b2b90 Dummy {f00=0x0059, f01=0x0190, f02=»REMENT BUFFER INDEX x & P LD A1,FECBRL GET REQUESTED LENGTH y P CW A1,FBAX y F " P RF(NG) TRT130 END OF MESSAGE y Z * P ADK A3,1 INCREMENT CHARACTER COUNTER y P CWK A3,TBLEN y P RB(L) TRT100 NOT FULL BLOCK y P IFT RCOM=1 y , P LDK A1,SBA
0x0b2b90…0b2d24 Dummy {f00=0x0059, f01=0x0190, f02=» LCR A2,A4 GET FIRST BYTE AFTER SBA y P ADK A4,1 INREMENT POINTER z , P CF A5,WRITEP SEND IT z N P IM FBAX INCREMENT INDEX z l . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA z P CF A5,WRITEP SEND IT z P IM FBAX INCREMENT INDEX z P XIF z P
0x0b2d24…0b2eb8 Dummy {f00=0x0059, f01=0x018e, f02=» z ~ P CF A5,WRITEP SEND LRC { P XIF { & P IFT CODE=1 { 2 P LDR A8,A7 SAVE CURRENT CRC { F P LDR A2,A7 { j P ANK A2,/FF { | " P CF A5,WRIT05 SEND CRC BYTE 1 { P ECR A2,A8 { P ANK A2,/FF { " P CF A5,WRIT05 SEND CRC BYTE 2 { P XIF {
0x0b2eb8…0b304c Dummy {f00=0x0059, f01=0x018e, f02=» { z P RB TRT120 SEND ETX AND LRC | P EJECT | , P* | : P* | D P* TRANSMIT STATUS MESSAGE | N P* | p P* | z P IFF STAT=0 | PTRSTA EQU * | $ P IM XSTA INDICATE 'STATUS SENT' | P ST A6,FDWTUT SAVE A6 | P CF A5,TRSYNC START OU
0x0b304c…0b31e0 Dummy {f00=0x0059, f01=0x0190, f02=» P LDK A2,'R' } P CF A5,WRITEP SEND 'R' } P LDK A2,STX } 6 P CF A5,WRITE SEND STX } J P LC A2,DW1500+1 } h P CF A5,WRITEP SEND TCA } P LDR* A2,A6 } P CF A5,WRITEP SEND STA } P LD A1,DWTST,A6 GET STATUS } P ANK A1,/06 MASK FOR S
0x0b31e0…0b3374 (2, 61) Dummy {f00=0x0059, f01=0x0190, f02=»UT ERROR p , P* BIT 15=MODEM NOT READY P* @ PSST SST A1,LCUIN J P IFT P6805=1 SALCUZ b 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ ~ P XIF SALCUZ P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST IN
0x0b3374…0b3508 Dummy {f00=0x0059, f01=0x0190, f02=»LCUZ P ANK A2,6 SALCUZ P RF(Z) SST100 SALCUZ & P ANK A2,2 SALCUZ D & P RF(NZ) SST050 THROUGH PUT SALCUZ ^ & P LDK A1,1 SET PARITY ERROR SALCUZ P RF SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ P CM XSTA T
0x0b3508…0b369c Dummy {f00=0x0059, f01=0x0190, f02=»A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 * P XIF SALCUZ : P IFT P6805=1 SALCUZ P P ANK A1,/21 SALCUZ l P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ P DATA 2
0x0b369c…0b3830 Dummy {f00=0x0059, f01=0x018e, f02=» CR SALCUZ P ABR* A5 RETURN SALCUZ P XIF SALCUZ 0 P* F P* P P* HALT INPUT Z P* n P* x PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x0b3830…0b39c4 Dummy {f00=0x0059, f01=0x0190, f02=» P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* H P* R PWRITE EQU * P IFT CODE=1 p P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC
0x0b39c4…0b3b58 Dummy {f00=0x0059, f01=0x0190, f02=» CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF 8 P IFT CODE=1 D & PWRIT10 CF A5,CRCCAL CALCULATE CRC X P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG P ABL TDISP
0x0b3b58…0b3cec Dummy {f00=0x0059, f01=0x018e, f02=»0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2 , P ORK A2,/80 > PWRI100 SLL A1,1 R P RB(P) WRI100 j P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P X
0x0b3cec…0b3e80 Dummy {f00=0x0059, f01=0x0190, f02=» PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 > PRE100 SLL A1,1 P P RF(Z) RE110 f P RB(NN) RE100 z P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ
0x0b3e80…0b4014 (2, 62) Dummy {f00=0x012e, f01=0x0000, f02=»
[…0x7…]
0x0b4b20…0b4cb4 (2, 63) Dummy {f00=0x0020, f01=0x0190, f02=» !4 Sk!S; Tk!T< !4 " L L* L!0 L B A" B4A !4A- A!_ A! P aX B 0 XB " 4 ! L L* L!0 L A 0 A0 L !4 h!! h!" h!# h!$ 0 `!kblch!! d [ 4 A! B 0 W AB0 P 0 B NB _ 0 4 $h!!%$ " A B$ fABhAB B! B B$ A! A "4 "h!!$.,f!!%
0x0b4cb4…0b4e48 Dummy {f00=0x0020, f01=0x0190, f02=»EW AG4 h!!! h"!0 h""! h"#! h"$/ L+0 L l:AQ4 A""Ah!! ChA$0 C T A!_ 0 C C$W/ T+H@ W$HA W IF HG W IB IC HD W IE 4 #0 h)$"T 0 h*$"P C! C$W jR "lh"" PR%PF30 h($"P C$ C$Wx0 h)$"P C% C$Wg0 h*$"P C& C$WV0 h)$"PFjQ !lh)")Q5:0 h($"P jQ !lh(")Q4
0x0b4e48…0b4fdc Dummy {f00=0x0020, f01=0x0190, f02=» 4 4 # B jU *lhB" A)jQ !UA Q: %Q3 #Q6 A! A # 4 C' C$ # !4 # A" Bh!! B!"AB%0 hA$!P 0 hA$"T 0 hA$ W A!_! # !4 # 4 6 ?6-$ jYK"H K"jYK"G K"jYK"F K"jYK"E K"jYK"D K"jYK"C K"jYK"B K"jYK"A K"4 K K 6 ?6-$ jH "YK K"jG "YK K"jF "YK
0x0b4fdc…0b5170 Dummy {f00=0x0020, f01=0x0190, f02=» LhB!0 L ChB# C"0 XC B! A! , #4 ' A jA!!Z 0 A A!6A C# C$ M! G $_/jl !Z j[ !Z '4 4 # L00 L$F!T#F PAUj[!!<F e"jQ !<F F(;!F 7!F 3 !F !F W [: e!W [: e# f!!! f"!0 f""! f"#! f"$/ #4 B!"B! BA B!4 # B! CA C!*BC B" #4 B"4 l:
0x0b5170…0b5304 Dummy {f00=0x0020, f01=0x0190, f02=»!L B!jI!!hB! "BA "IJ _ B" A!4 4 B!4 PW P?4 PW!P? !P@ 4 PW!P? !P@ !PA 4 IA ID W W PW%P? #PB W !4 4 PW%P? #PD W !4 4 PW%P? #PF W !4 PW%P? #PG W !4 PW%P? #PJ W !4 PW!P? !P@ !PG 4 PW!P? !P@ !PA !PD 4 PW%P? #PL 4
0x0b5304…0b5498 Dummy {f00=0x0020, f01=0x0190, f02=» !4 PW%P@ #PM W !4 HF !W PW%P@ #PN W !4 PW%P@ #PO W !4 H!"HE jQ !WH Q9 PQ%P? #PB H!_ !W 4 4 H!"HE jQ !WH Q9 PQ%P? #PC H!_ !W 4 " RW PR%P@<#PK8 APjR "W" PR%P@(#PH$ BP%A %6B W !A W #A W " !4 " 4 PW!P? !
0x0b5498…0b562c Dummy {f00=0x0020, f01=0x0190, f02=»AS_& ChB$0 CIG C$W C& GB LhB!0 L DhB$0 D MhB# EM FN2H AHjWE!$! E! F$3F "# $% &'()'' ' '' 2F W B" E O HhG"jlHEW 0 hG$"jW hG#lH 3D * +,-./0123456789!:;<=>?@ABCDEFGP 0 hG$ W 0 hG$ 2F B
0x0b562c…0b57c0 Dummy {f00=0x0020, f01=0x0190, f02=»M BM V: GLjV DlhH"0 G AB*A 10 W ANP-0 O F"0 OFP $ N W ( N ( !W ( W N$W["A @T N Z A! EN!E !E ' E'IW;KT8 BA B! BM jVCAW CA C! GL GC_ BA B!jVCAW CA C! GL GC_ jVCAW WV IW V:jV AW WV E' IW MA ( 4 N16N *$ 0 Z'W(0 Z&W"0 Z%W 0 Z$W 0 Z'W 0 Z
0x0b57c0…0b5954 (2, 64) Dummy {f00=0x0037, f01=0x018e, f02=» P BNZ DC1GO1 ( P SET CPOLL HURRAY WE'RE BEING POLLED P B DC1GO1 THROW AWAY REST D P EJECT f P* HOUSEKEEPING FUNCTIONS t KBGO START KB-TASK P GETID TBIN1 4 P SUB TBIN1,=X'4B41' CONVERT KA,KB,... TO 0,1,... P BNZ KBGO4
0x0b5954…0b5ae8 Dummy {f00=0x0037, f01=0x018e, f02=» v P MOVE TSTRG1,=C'@' P MOVE TBIN2,W0 " P MOVE TBIN3,=W'30' 8 0 P MATCH CTXT(TBIN1),TBIN2,TBIN3,TSTRG1,W0,W1 R P BNOK KBGO2 * P XCOPY CTXT(TBIN1),TBIN2,W1,TSTRG2,W0 P B KBGO1 PKBGO2 P ADD TBIN1,W1 P B KBGO1
0x0b5ae8…0b5c7c Dummy {f00=0x0037, f01=0x0190, f02=» P B KBGO4 PKBGO5 " P XCOPY TTID,W1,W1,MF1KBV,TBIN1 " P DSC1 DC,TRPAR,TTID H P MOVE TBIN1,=X'0023' d P DSC1 LAMPS,ON,TBIN1 P EJECT & P PERF NOINPT SETUP A DUMMY FLDTAB P MOVE SAVTAB(W1,W1),W1 * P MOVE SAVTAB(W2,W1),CH
0x0b5c7c…0b5e10 Dummy {f00=0x0037, f01=0x0190, f02=»ERF ERASCR 8 P* WAIT FOR ONE OF THE FOLLOWING TWO EVENTS TO OCCUR: " P* A KEYBOARDINPUT, OR A DCREAD N PHK20 t P MOVE TBIN1,W1 * P KI .NW,KEYB,TKBBUF,KTAB02,TBIN1,TBIN6 P DSC1 DC,STIMO,W0 P MOVE INLEN,CBUFLEN P MOVE INBUF,CZ
0x0b5e10…0b5fa4 Dummy {f00=0x0037, f01=0x0190, f02=»ZE THE I-O ~ 0 P IB TBIN6,HK27,HK27,HK20,HK20,HK20,HK20, C ( P HK20,HK20,HK27,HK27,HK27,HK27, C F ( P HK27,HK27,HK20,HK20,HK20,HK20, C r P HK20,HK20,HK27,HK27 . P CBG TBIN6,W0,HK20 INVALID KEY, TRY AGAIN P MOVE TP2,TBIN6 ( P P
0x0b5fa4…0b6138 Dummy {f00=0x0037, f01=0x0190, f02=» r P B EXCH05 UNPACK IT P EJECT $ P* MAIN MODULE 2 EXCH H P PERF DCEXCH T BNOK DCERROR h PEXCH05 ~ P MOVE TBIN2,W3 IUT,SEND " P DSC1 LAMPS,ON,TBIN2 LIT THEM , '* READY TO PROCESS ANY INCOMING MESSAGE P MOVE
0x0b6138…0b62cc Dummy {f00=0x0037, f01=0x0190, f02=» 0 MASKE | & P* 2 0 0 1 N/A * P* 3 0 1 0 BILLET B , P* 4 0 1 1 PAPER OUT p * P* 5 1 0 0 TILBUD & P* 6 1 0 1 N/A . P* 7 1
0x0b62cc…0b6460 Dummy {f00=0x0037, f01=0x0190, f02=»HK25,HK25,HK25,TP18 PTP14 PTP18 ( P PERF NOINPT 4 PTP13 H P DSC1 LAMPS,OFF,W1 T 6 P PERF READDC,CTIMOUT READ NEW MASK OR SP-SP-LF-LF n P OR 'SKRIV MANUELT' P BNOK DCERROR P B EXCH05 P* PHK23 : P* AF
0x0b6460…0b65f4 (2, 65) Dummy {f00=0x006e, f01=0x0190, f02=» INTADR INTERRUPT ADDRESS DISPLACEMENT 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT . , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT b P* P EJECT P* P* P******************** P* CONSTANTS * P******************
0x0b65f4…0b6788 Dummy {f00=0x006e, f01=0x0190, f02=»SPECIAL DUMMY TO GET DATA REQUEST ( P FIRST WHEN PRINTERBUFFER IS EMPTY * 0 PDRQTIM EQU 30 TIME TO NEXT ACK FOR PRINTERS V P EJECT P* , P*************************************** , P* CONDITIONAL ASSEMBLY * , P******
0x0b6788…0b691c Dummy {f00=0x006e, f01=0x0190, f02=» INCLUDED TO THE DRIVER BY SETTING X:A=1 P* 2 PX:A EQU 1 < PLOGING EQU 0 N P* b P* l > P* BY SETTING X:B TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE v & P* OR UP TO FOUR LOCAL CHANNELS. P* PX:B EQU 1 PLOCHAN EQU
0x0b691c…0b6ab0 Dummy {f00=0x006e, f01=0x0190, f02=»IN b 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM $ P* DRIVER BY SETTING X:C = 0. F P* n PX:C EQU 1 x PACKMUL EQU 0 P* P* > P* BY SETTING X:D TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE , P* OR UP TO FOUR R
0x0b6ab0…0b6c44 Dummy {f00=0x006e, f01=0x0190, f02=»LE CODE " r P* STANDARD IS /15 P* . PX:E EQU /15 8 PREMFC EQU /15 L P* b * P* ECHO FUNCTION CAN BE EXCLUDED BY l P* SETTING X:F = 0 P* PX:F EQU 1 PCECHO EQU 01 P* P* 6 P* A PROGRAM
0x0b6c44…0b6dd8 Dummy {f00=0x006e, f01=0x018e, f02=» DB P* 8 P* BY SETTING BLOCK=1 BLOCKSENDING IS PERMITTED < P* BY SETTING BLOCK=0 BLOCKSENDING IS NOT PERMITTED T P* PBLOCK EQU 0 DK1 P* P DE P EJECT : P********************************************
0x0b6dd8…0b6f6c Dummy {f00=0x006e, f01=0x0190, f02=» X P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 1 P* J PDWA1 EQU /03 DEVICEADDRESS T P* v PCWTLT1 EQU * TABLE ENTRY PCWTLDW EQU *-CWTLT1 P DATA 0 LAST OUTPUT DWT PCWTLOW EQU *-CWTLT1 P DATA 0 LAST OUT
0x0b6f6c…0b7100 Dummy {f00=0x006e, f01=0x0190, f02=»NR PCWTOTR EQU *-CWTLT1 P OTR A2,0,DWA1 OTR & PCWTCIS EQU *-CWTLT1 @ P CIO A2,1,DWA1 CIO-START PCWTRTC EQU *-CWTLT1 | " P DATA 0 RETRANSMISSION COUNTER PCWTEQ EQU *-CWTLT1 P DATA 0 QUEUE P DATA 0 QUEUE 2 PCW
0x0b7100…0b7294 (2, 66) Dummy {f00=0x006e, f01=0x0190, f02=» , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P P* | P XIF P* P EJECT P* P* : P***************************************************** : P* C W T L
0x0b7294…0b7428 Dummy {f00=0x006e, f01=0x018e, f02=»ORK TABLE FOR LOCAL CHANNEL NO. 2 P* * PCWTLT2 EQU * 4 P* H P IFT LOCHAN=2 R P* h P* r P* | PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRU
0x0b7428…0b75bc Dummy {f00=0x006e, f01=0x0190, f02=» P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* 6 P IFT ACKMUL=1 @ P* V P DATA 0 NAK-ACKUMULATOR ` $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P*
0x0b75bc…0b7750 Dummy {f00=0x006e, f01=0x0190, f02=»ST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE 6 P INR A2,0,DWA2 INR Z P OTR A2,0,DWA2 OTR t P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE P*
0x0b7750…0b78e4 Dummy {f00=0x006e, f01=0x0190, f02=»RUPT-ACKUMULATOR x ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* D P XIF N P* Z P IFT LOCHAN=4 d P* z P* P* PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P D
0x0b78e4…0b7a78 Dummy {f00=0x006e, f01=0x0190, f02=»SION COUNTER ~ P DATA 0 QUEUE P DATA 0 SECOND QUEUE * P* F P IFT ACKMUL=1 P P* f P DATA 0 NAK-ACKUMULATOR p $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULA
0x0b7a78…0b7c0c Dummy {f00=0x006e, f01=0x0190, f02=» : P* C W T L T 3 * : P***************************************************** B P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 P* PCWTLT3 EQU * P* P IFT LOCHAN=3 P*
0x0b7c0c…0b7da0 Dummy {f00=0x006e, f01=0x0190, f02=»A INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR : P CIO A2,1,DWA3 CIO-START T " P DATA 0 RETRANSMISSION COUNTER t P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMU
0x0b7da0…0b7f34 (2, 67) Dummy {f00=0x009b, f01=0x0190, f02=»TIOTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE . P DATA TIO:DM DATA MANAGEMENT, INPUT/OUTPUT 6 * P DATA TIOPCI PROGRAMMED CHANNEL, INPUT h P DATA TIOMXI MUX, INPUT $ P DATA TIOKBI KEYBOARD/CTW, INPUT P* PTINDEX EQU *-TIOTAB 0 P DAT
0x0b7f34…0b80c8 Dummy {f00=0x009b, f01=0x0190, f02=»OKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT " P* V P EJECT TOSSIO ` P* x P* P********** P* TENTAB * P********** P* @ P* TENTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TENDIO
0x0b80c8…0b825c Dummy {f00=0x009b, f01=0x0190, f02=»ROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT $ P DATA TENKBI KEYBOARD/CTW, INPUT @ 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT h , P DATA TENPCO PROGRAMMED CHANNEL, OUTPUT P DATA TENMXO MUX, OUTPUT & P DATA TENKBO KEYBOARD/CTW, O
0x0b825c…0b83f0 Dummy {f00=0x009b, f01=0x0190, f02=»****** P* MONMMU * P********** P* 2 P* MONITOR (SYSTEM) MMU TABLE < P* ` , PMONMMU EQU * MONITOR (SYSTEM) MMU TABLE j P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 " P DATA /1000,/1400,/1800,/1C00 " P DATA /2000,
0x0b83f0…0b8584 Dummy {f00=0x009b, f01=0x0190, f02=»TTDET=1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* P P* T I M O U T Z P* p P* INPUT: A1 = DWT ADDRESS z . P* A2 = ADDRESS TO 2ND TIMER BLOCK P* P* OUTPUT: A4 = BLOCK ADDRESS P* A5
0x0b8584…0b8718 Dummy {f00=0x009b, f01=0x0190, f02=»A2,A2 TIMER POINTER ADDRESS P LD A5,2,A2 GET TTAB ADDRESS $ P* H P IFT MMUPAG=1 R . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB h P XIF P* P IFT ATTDET=1 P CF A15,FNDBLK P LDR* A1,A4 " P STR A1,A2 REMOVE FROM A
0x0b8718…0b88ac Dummy {f00=0x009b, f01=0x0190, f02=» A1,A6 & P ADK A1,DWTTQ QUEUE ANCHOR ADDRESS P* 8 PTIM:10 LDR A2,A1 SAVE B P LDR* A1,A1 NEXT IN QUEUE ` , P RF(Z) TIM:20 ERROR IN QUEUE HANDLING =4 P CWR A1,A5 P RB(NE) TIM:10 NOT FOUND? P* P EJECT TOSSIO
0x0b88ac…0b8a40 Dummy {f00=0x009b, f01=0x0190, f02=»3,TTB:SA,A5 UPDATE DISPATCH ADDRESS : P LD A8,TTB:SA+16,A5 GET ECB ADDRESS FROM A8 SAVE AREA , P LDK A3,/40 SET TIMEOUT BIT j P* P IFT MMUPAG=0 * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB P XIF P* P IFT ATTDET=1 P
0x0b8a40…0b8bd4 (2, 68) Dummy {f00=0x009b, f01=0x0190, f02=» P IFT ATTDET=1 * P ABL TIORTN QUEUE TASK AND DISPATCH =4 P* H PTIM:20 EQU * =4 R P LDK A1,1 INDICATE ERROR =4 j P CF A15,HALT =4 P EJECT TOSSIO P* P* F N D B L K P* ( P* SUBROUTINE TO FIND BLOCK IN AT
0x0b8bd4…0b8d68 Dummy {f00=0x009b, f01=0x0190, f02=»A4 = BLOCK ADDRESS IF FOUND, ELSE 0 P* , ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS 6 P* b PFND:10 LDR A2,A4 SAVE A4 l P LDR* A4,A4 P RF(Z) FND:20 END OF ATT:CH? P CW A5,4,A4 P RB(NE) FND:10 NOT FOUND? P* PFND:
0x0b8d68…0b8efc Dummy {f00=0x009b, f01=0x0190, f02=»15 RETURN P XIF P* P IFT ATTDET=1 ( & PATT:CH DATA 0 ATTACH CHAIN ANCHOR > P* h P EJECT r P* P* F R A B L K =4 P* 0 P* FREE BLOCK AND TIMER IN ATT:CH IF FOUND =4 P* P* INPUT: A5=TTAB ADDRESS =4
0x0b8efc…0b9090 Dummy {f00=0x009b, f01=0x0190, f02=»5 SAVE A2 =4 P STR A3,A15 SAVE A3 =4 ! P STR A4,A15 SAVE A4 =4 ! 2 * P CF A15,FNDBLK FIND BLOCK IN ATT:CH =4 ! P P ADK A4,0 SET CR =4 ! ~ . P RF(Z) FRAEND TASK NOT FOUND IN ATT:CH =4 ! P CM* 2,A4 FREE TIMER =4 ! & P LDR* A3,A4 REMOVE FROM ATTA
0x0b9090…0b9224 Dummy {f00=0x009b, f01=0x0190, f02=»DR* A3,A15 RESTORE A3 =4 ! P LDR* A2,A15 RESTORE A2 =4 " P LDR* A1,A15 RESTORE A1 =4 " B P RB FND:20 RETURN =4 " d P EJECT TOSSIO " P* " P* F D B A T T / F D B D E T " P* " ( P* SUBROUTINE TO ATTACH/DETACH FDB:S " * P* IN A DATA
0x0b9224…0b93b8 Dummy {f00=0x009b, f01=0x0190, f02=»TTACH BIT) " z P* # " P* OUTPUT: A2-A4 AREA DESTROYED # P* # B PFDBDET EQU * # L P C1R A10,A10 A10=F7FF # ` P* # ~ PFDBATT EQU * # P LDR A4,A6 FDB ADDRESS # P ADKL A4,FDBADF # P LDK A3,10 LOOP INDEX # P* # PFDB:10 SUK A3,
0x0b93b8…0b954c Dummy {f00=0x009b, f01=0x0190, f02=»:15 DETACH REQUEST? # $ P ORS A10,DWTST,A2 ATTACH REQUEST $ P ST A5,DWTTAB,A2 $ D P RF FDB:20 $ P* $ n * PFDB:15 ANS A10,DWTST,A2 DETACH REQUEST $ x P CF A15,QREQ UPDATE DWTTQ $ P* $ $ PFDB:20 ADK A4,2 NEXT FDB ADDRESS $ P RB FDB:10 $
0x0b954c…0b96e0 Dummy {f00=0x009b, f01=0x0190, f02=»* $ P* INPUT: A2 = DWT ADDRESS % P* % , " P* OUTPUT: A7, A9 ARE DESTROYED % 6 P* % PQREQ EQU * % f & P LDR A9,A5 SAVE A5 (TTAB ADDRESS) % x & P LD A5,DWTTQ,A2 ANY TASK IN QUEUE? % P RF(Z) QRE:10 NO! % 2 P CF A15,FRABLK FREE ATTACH BLOCK A
0x0b96e0…0b9874 (2, 69) Opaque[0x194]
0x0b9874…0b9a08 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00b8, f03=0x0000}
0x0b9874…0b9a08 IdxSect {
0x0b9874…0b9a08 f00 = 0x0005 // 0xb9874 @0x0
0x0b9874…0b9a08 f01 = 0x0002 // 0xb9876 @0x2
0x0b9874…0b9a08 gno = [ // 0xb9878 @0x4
0x0b9874…0b9a08 [0x00]: C0x0005.0x3.0
0x0b9874…0b9a08 ]
0x0b9874…0b9a08 }
0x0b9a08…0b9b9c Dummy {f00=0x0005, f01=0x018e, f02=» 2 P IDENT SCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWSI01 P EXTRN DWSO01 P EXTRN DW1501 P EXTRN DW1500 P EXTRN D
0x0b9b9c…0b9d30 Dummy {f00=0x0005, f01=0x0190, f02=» x P DATA TC02 PTCLASE EQU * & PTC00 DATA TC00E-* : P DATA /0010 P DATA DWSI01 | P DATA /0011 P DATA DWSO01 PTC00E EQU * PTC01 DATA
0x0b9d30…0b9ec4 Dummy {f00=0x0005, f01=0x409a, f02=» v P DATA /0060 P DATA DW1500 ( P DATA /015 H P DATA DWREMU Z PTC02E EQU * n P END @ P DATA /0011 P DATA DWSO01 PTC00E EQU * PTC01 DATA
0x0b9ec4…0ba058 Dummy {f00=0x0005, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x0ba058…0ba1ec Dummy {f00=0x0005, f01=0x018e, f02=»A5,READ READ 2ND CRC CHAR P ECR A7,A7 " P ADK A5,4 4 $ P XRR A2,A7 CHECK CRC AND SET CR F P ABR* A5 RETURN n P XIF P EJECT < P******************************************************* P* ( P* INTERRUPT HANDLER , CHLC REC
0x0ba1ec…0ba380 Dummy {f00=0x0005, f01=0x0190, f02=» P ST P,INTSAV * P CF A15,IHSAV8 SAVE A1-A8 ON A15 STACK $ P LDKL A6,DW1701 LOAD DWT ADDRESS F , P INR A2,0,DAMI01 GET CHARACTER FROM LINR n PIHI100 EQU * P ABL(NA) SSTIN P**LOGG P IFF LOGG=0 P LD A5,DWTSAV+4,A6 & P CF
0x0ba380…0ba514 (2, 70) Opaque[0x194]
0x0ba514…0ba6a8 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x0ba514…0ba6a8 IdxSect {
0x0ba514…0ba6a8 f00 = 0x0007 // 0xba514 @0x0
0x0ba514…0ba6a8 f01 = 0x0002 // 0xba516 @0x2
0x0ba514…0ba6a8 gno = [ // 0xba518 @0x4
0x0ba514…0ba6a8 [0x00]: C0x0007.0x3.0
0x0ba514…0ba6a8 ]
0x0ba514…0ba6a8 }
0x0ba6a8…0ba83c Dummy {f00=0x0007, f01=0x0190, f02=» 2 P IDENT MONTAB REL 9.2 79-11-16 870105040920 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 E
0x0ba83c…0ba9d0 Dummy {f00=0x0007, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4 P* & P EXTRN SYSLOD 0 P**** F P EXTRN CTAB01 R P EXTRN CTAB02 h P EXTRN KBAD3 ~ P EXTRN GPAD P EXTRN DIAD P EXTRN DYAD P* P P PMONTAB EQU * PFREQUE DATA
0x0ba9d0…0bab64 Dummy {f00=0x0007, f01=0x412e, f02=» PINTRT2 DATA 0 PINTRT3 DATA 0 PINTRT4 DATA 0 4 P DATA SYSLOD J P**** ^ P DATA CTAB01 j P DATA CTAB02 P DATA KBAD3 P DATA GPAD P DATA DIAD P DATA DYAD P* 0 PSPDLCI DATA 0 LIGHTS CORE IMAG
0x0bab64…0bacf8 Dummy {f00=0x0007, 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
0x0bacf8…0bae8c Dummy {f00=0x0007, f01=0x018e, f02=»IO A2,1,DAF2 CIO-START FIXED DISC ; , P CIO A2,1,DAC2 CIO-START CARTRIDGE DISC < * P* < Z P EJECT DRDU01 < d P* < | P* < P WER A2,WER1 < P WER A3,WER1+1 < & P DATA 0,0,0 VOLUME NAME FIXED DISC < * P DATA 0,0,0 VOLUME NAME CARTRIDGE DI
0x0bae8c…0bb020 Dummy {f00=0x0007, f01=0x018e, f02=» < P IFT NUNITS+TYPE2=3 = P DATA MAXCY6 MAX CYLINDER NO = $ P XIF = H P* = T P IFT NUNITS=2 = ^ P IFT MMUPAG=1 = t * P DATA 0 PAGE NUMBER (PSEUDO MMU TABLE) = * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS = PECBDU2 EQU * = P DATA 0,0,0,0,
0x0bb020…0bb1b4 (2, 71) Opaque[0x194]
0x0bb1b4…0bb348 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e0, f03=0x0000}
0x0bb1b4…0bb348 IdxSect {
0x0bb1b4…0bb348 f00 = 0x0017 // 0xbb1b4 @0x0
0x0bb1b4…0bb348 f01 = 0x0006 // 0xbb1b6 @0x2
0x0bb1b4…0bb348 gno = [ // 0xbb1b8 @0x4
0x0bb1b4…0bb348 [0x00]: C0x0017.0x0.0
0x0bb1b4…0bb348 [0x01]: C0x001a.0x3.0
0x0bb1b4…0bb348 [0x02]: C0x0022.0x3.0
0x0bb1b4…0bb348 ]
0x0bb1b4…0bb348 }
0x0bb348…0bb4dc Dummy {f00=0x0017, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 9.2 79-11-16 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x0bb4dc…0bb670 Dummy {f00=0x0017, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD P E
0x0bb670…0bb804 Dummy {f00=0x0017, f01=0x0190, f02=»MMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 0 P ENTRY SCTTCT,SCTCDT F P ENTRY SCTBUG b & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC x P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:
0x0bb804…0bb998 Dummy {f00=0x0017, f01=0x0190, f02=»START n P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 0 P EXTRN IH1501 T P EXTRN IH1502 t ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P * P EXTRN CHRT1 REMOTE CHANNEL UNIT
0x0bb998…0bbb2c Dummy {f00=0x0017, f01=0x018e, f02=»INT ILLEGAL INTERRUPT P EXTRN HALT HALT ROUTINE P* EXTRN BUG DEBUGGER > PX:A EQU 0 MONITOR OPTION Z ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM z * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE & PX:D EQU 0 DM NUMBER OF LOCAL FILES ( PX:E EQU 0
0x0bbb2c…0bbcc0 Dummy {f00=0x0017, f01=0x0190, f02=» P* PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS * " PSEG:EL EQU 4 EFFECTIVE LENGTH R $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS x P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD PPAG:PA E
0x0bbcc0…0bbe54 (2, 72) Dummy {f00=0x001a, f01=0x0190, f02=»DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY $ PSWB:EL EQU 4 SWB LENGTH (BYTES) 2 & PSWB:NS EQU 6 SWB LENGTH (SECTORS) Z P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P SYSTAB P* P* INTERRUPT VECTORS P* P DATA IHPF
0x0bbe54…0bbfe8 Dummy {f00=0x001a, f01=0x018e, f02=»ILLINT 5 P DATA ILLINT 6 P DATA ILLINT 2 P DATA ILLINT R P DATA IHSOP 9 r P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH1501 12 P DATA IH1502 13 P DATA CHLT
0x0bbfe8…0bc17c Dummy {f00=0x001a, f01=0x0190, f02=» v P DATA ILLINT P DATA ILLINT ( P DATA ILLINT H P DATA ILLINT 22 h P DATA ILLINT P DATA CHLT1 24 P DATA CHLT2 25 P DATA CHLT3 26 P DATA
0x0bc17c…0bc310 Dummy {f00=0x001a, f01=0x0190, f02=»A ILLINT 32 P DATA ILLINT 33 P DATA ILLINT 4 P DATA ILLINT T P DATA ILLINT 36 t P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT P
0x0bc310…0bc4a4 Dummy {f00=0x001a, f01=0x0190, f02=» | P DATA ILLINT 46 P DATA ILLINT 47 $ P DATA ILLINT 48 @ P DATA ILLINT 49 P DATA ILLINT 50 x P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DAT
0x0bc4a4…0bc638 Dummy {f00=0x001a, f01=0x0190, f02=» DATA ILLINT 60 P DATA ILLINT 61 P DATA ILLINT 62 8 P DATA TRAP TRAP ROUTINE T P SYSTAB t P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP
0x0bc638…0bc7cc Dummy {f00=0x001a, f01=0x0190, f02=» P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG , P ABR(NZ) A1 B P HLT V P b P SYSTAB j P ~ P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & P
0x0bc7cc…0bc960 Dummy {f00=0x001a, f01=0x0190, f02=» F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS H PSCTPAG DATA 0 PAGTAB ADDRESS ~ PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DATA 0 NUMBER OF SEGMEN
0x0bc960…0bcaf4 (2, 73) Dummy {f00=0x0022, f01=0x0190, f02=»EX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY H P INDEX REL TTAB r * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM STACK BASE
0x0bcaf4…0bcc88 Dummy {f00=0x0022, f01=0x018e, f02=»ATA 0 CDTAB ADDRESS PSCTBUG DATA 0 DEBUGGER & PSCTDMT DATA X:B DMTASKS IN SYSTEM : P BIT 13:D2,14:D1,15:D0 d 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 00000 DM NO OF LOCAL FILES , PSCTDMC DATA 00000 DM NO OF COMMO
0x0bcc88…0bce1c Dummy {f00=0x0022, f01=0x40f8, f02=» P* SYSTEM STACK P* P RES 320 ( P DATA /FCC0 AND PSW 8 & PSTB DATA LOOP AND PC FOR IDLE LOOP T P ~ P P* P* IDLE LOOP P* P PLOOP RB * P P P P END @ 0 DM NO OF COMMO
0x0bce1c…0bcfb0 Dummy {f00=0x0022, 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
0x0bcfb0…0bd144 Dummy {f00=0x0022, f01=0x0190, f02=» r PSTB2 RES 1 P P IFT SPEED=1 " PLSPEED EQU /0200 6 P XIF N P IFT SPEED=0 Z PLSPEED EQU 0 n P XIF P P* P* $ P* ACTIVATION FROM TERMINAL TASKS P* PDCACT EQU * P LDK A1,0 PRESET RETUR
0x0bd144…0bd2d8 Dummy {f00=0x0022, f01=0x0190, f02=» RF(Z) DCRD READ SPECIFIC P SUK A7,/06-/02 " P RF(Z) DCWR : P SUK A7,/37-/06 N $ P RF(Z) DCTP TRANSFER PARAMETERS f P IFF STAT=0 P SUK A7,/38-/37 P RF(Z) DCSS SET STATUS P SUK A7,/39-/38 $ P ABL(Z) REQTIM SET REQUE
0x0bd2d8…0bd46c Dummy {f00=0x0022, f01=0x0190, f02=»DCA100 P P* P* " P* ACTIVATION FROM DCTASK , P* L P* V PDCACTD EQU * ` $ P SUR A1,A1 PRESET RETURN CODE =4 t P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 P XIF P SUK A
0x0bd46c…0bd600 Dummy {f00=0x0022, f01=0x018e, f02=»OR x P ABL DISIOE INVALID ORDER P* , P* 6 P* READ FROM DCTASK @ P* Z P* d P* REQUEST FROM DC-TASK n P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANOUS MESSAGE RECEPTION P* PDCRDDC E
0x0bd600…0bd794 (2, 74) Opaque[0x194]
0x0bd794…0bd928 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e0, f03=0x0000}
0x0bd794…0bd928 IdxSect {
0x0bd794…0bd928 f00 = 0x000f // 0xbd794 @0x0
0x0bd794…0bd928 f01 = 0x0008 // 0xbd796 @0x2
0x0bd794…0bd928 gno = [ // 0xbd798 @0x4
0x0bd794…0bd928 [0x00]: C0x000f.0x0.0
0x0bd794…0bd928 [0x01]: C0x000f.0x3.0
0x0bd794…0bd928 [0x02]: C0x0010.0x3.0
0x0bd794…0bd928 [0x03]: C0x0040.0x1.0
0x0bd794…0bd928 ]
0x0bd794…0bd928 }
0x0bd928…0bdabc Dummy {f00=0x000f, f01=0x0190, f02=» 0 P IDENT TDISP REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* P* P*
0x0bdabc…0bdc50 Dummy {f00=0x000f, f01=0x0190, f02=»PATCHER IN TOSS. x > P* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER Z < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. : P* - IF SO, THE RUNNING TASK IS QUEUED AND
0x0bdc50…0bdde4 Dummy {f00=0x000f, f01=0x0190, f02=»TRY 'DISEND' CALLS TENDIO BEFORE TDSIP P* . 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. 8 P* r 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. | P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS.
0x0bdde4…0bdf78 Dummy {f00=0x000f, f01=0x0190, f02=»NTRY TDISP DISPATCHER ENTRY ( P ENTRY MEXIT EXIT FOR MONITOR TASKS $ " P ENTRY DISIOE I/O ERROR ENTRY P & P ENTRY DISEND END I/O AND DISPATCH v 8 P ENTRY DISQUE POINTER TO FIRST PLACE IN DISP. QUEUE 0 P ENTRY PRUN TTAB ADDRESS OF RUNNING PROGRAM
0x0bdf78…0be10c Dummy {f00=0x000f, f01=0x018e, f02=» P************* P* P* ( P EXTRN TTB:SA SAVE AREA 2 P EXTRN TTB:ST STATUS R & P EXTRN TTB:PW PROGRAM STATUS WORD n P EXTRN TTB:MT MMUTAB ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS , P EXTRN SEG:PB SEGMENT PAGE BLOCK ADDRESS
0x0be10c…0be2a0 Dummy {f00=0x000f, f01=0x018e, f02=» d P EXTRN TENDIO END I/O P EXTRN EXIT PROGRAM EXIT & 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK F . P EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE | & P EXTRN SCTMMP MMU TABLE PAGE ENTRY ( P EXTRN SCTNPE NUMBER OF PAGE ENTRIES P EJE
0x0be2a0…0be434 (2, 75) Dummy {f00=0x000f, f01=0x0190, f02=» . P***************************************** P* 6 . P* A PROGRAM VERSION USING TOSS MMU PAGING @ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. r P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
0x0be434…0be5c8 Dummy {f00=0x000f, f01=0x0190, f02=»ISC PAGING p * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * @ PDSKPAG EQU 0 J * ^ P* h @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING r > P* APPLICATION TASKS AT DIFFERENT PRIORITY LEVELS USING THE 8 P* SAME SEGMENT I
0x0be5c8…0be75c Dummy {f00=0x000f, f01=0x018e, f02=»VERLAY f * P* IS OBTAINED BY SETTING ASSOLY EQU 1 P* < PASSOLY EQU 0 F P* Z P EJECT TDISP d P* z P* D I S Q U E P* 2 P* POINTER TO FIRST PLACE IN DISPATCHER QUEUE P* PDISQUE DATA 0 P* P*
0x0be75c…0be8f0 Dummy {f00=0x000f, f01=0x0190, f02=» P* R E T U R 8 P* . P* LOAD 8 REGISTERS FROM STACK AND RETURN * P* PRETUR8 EQU * f P z P IFT CPU852=0 P MLR 8,A15 P XIF P P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15
0x0be8f0…0bea84 Dummy {f00=0x000f, f01=0x0190, f02=» P EJECT TDISP P P* & P* M E X I T 0 P* F 0 P* DO EXIT ON MONITOR TASK AND GO TO TDISP P P* PMEXIT INH P LD A5,PRUN P CF A15,EXIT P CM PRUN P RF TDISP P P* P* D I S I
0x0bea84…0bec18 Dummy {f00=0x000f, f01=0x0190, f02=»* D I S E N D P* $ P* CALL TENDIO AND GO TO TDISP " P* J PDISEND CF A15,TENDIO T P EJECT TDISP p P* P* T D I S P P* $ P* THIS IS THE DISPATCHER ENTRY P* PTDISP INH & P LC A1,18,A15 LOAD P
0x0bec18…0bedac Dummy {f00=0x000f, f01=0x0190, f02=»CHER QUEUE P* PTDISCQ LDKL A2,DISQUE P LDR* A3,A2 : P RB(Z) RETUR8 QUEUE EMPTY N P p P LD A5,PRUN x $ P RF(Z) TDCQ10 IDLE LOOP RUNNING & P LD A4,TTB:ST+1,A5 COMPARE RUNNING 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIOR
0x0bedac…0bef40 Dummy {f00=0x000f, f01=0x0190, f02=» P P IFT DSKPAG=1 , P LD A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR " P RF(Z) TDISSW NONE R P LDR* A7,A1 l 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
0x0bef40…0bf0d4 (2, 76) Dummy {f00=0x0010, f01=0x0190, f02=»D RUNNING TASK ~ P RF(Z) TDISST IDLE LOOP P 6 . P ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY > P RF(Z) TDSW20 EMPTY QUEUE p 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6
0x0bf0d4…0bf268 Dummy {f00=0x0010, f01=0x0190, f02=» ST A14,TTB:SA+28,A5 SAVE REGISTERS P LDR A14,A5 , P @ P IFT CPU852=0 H P MLR 8,A15 ^ P MS 13,TTB:SA+2,A14 p P MLR 2,A15 P P XIF P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR
0x0bf268…0bf3fc Dummy {f00=0x0010, f01=0x0190, f02=»B:SA+24,A14 P ST A11,TTB:SA+22,A14 P ST A10,TTB:SA+20,A14 2 P ST A9,TTB:SA+18,A14 P P ST A8,TTB:SA+16,A14 l P ST A7,TTB:SA+14,A14 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,
0x0bf3fc…0bf590 Dummy {f00=0x0010, f01=0x0190, f02=»TB:SA,A14 AND PC & P ST A2,TTB:PW,A14 AND PSW IN TTAB P IFT DSKPAG+DIFPRI=2 B P ^ * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR f P RF(Z) TDISST NONE P LDR* A2,A1 GET SEGM STATUS P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY
0x0bf590…0bf724 Dummy {f00=0x0010, f01=0x018e, f02=»AT IT WAS THIS TASK x P XIF P EJECT TDISP ( P* > P* START NEW TASK H P* ` PTDISST LD A14,PRUN j P IFT DSKPAG=1 P * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOC
0x0bf724…0bf8b8 Dummy {f00=0x0010, f01=0x0190, f02=» P IFT DSKPAG+DIFPRI=2 P $ ( P LDR* A2,A4 CHECK IF PAGE IN PAGQUE , P RF(NZ) TDST10 YES X " P LDR* A3,A1 NO GET SEGM STATUS r 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT
0x0bf8b8…0bfa4c Dummy {f00=0x0010, f01=0x018e, f02=» DSKPAG=1 P 2 PTDST10 LD A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE P STR A2,A3 P P ST A3,PAG:QB,A2 b P CMR A4 z P , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS ( P LD A5,TTB:SA+26,A14 AND T:A ADDRESS P P IFT MMUPAG=1
0x0bfa4c…0bfbe0 Dummy {f00=0x0010, f01=0x0190, f02=» , P LD A4,SCTNPE AND GET NUMBER OF ENTRIES P 4 2 PTDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE < P SUK A4,1 r P RF(Z) TDST25 P ADK A2,4 P ADK A3,2 P RB TDST22 P PTDST25 EQU * P IFT ASSOLY=0 " P TL TT
0x0bfbe0…0bfd74 (2, 77) Dummy {f00=0x0040, f01=0x0190, f02=»,T:ACSB,A5 P RF TDST35 P $ P XIF , P IFT DSKPAG-MMUPAG=1 8 4 P ST A1,T:ACSB,A5 UPDATE BASE IN T:A JUST IN CASE T P XIF P PTDST30 EQU * P IFT MMUPAG=1 " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST
0x0bfd74…0bff08 Dummy {f00=0x0040, f01=0x0190, f02=» n & P ML 14,TTB:SA+2,A14 LOAD REGISTERS P 2 P XIF : P IFT CPU852=1 F P P STR A1,A15 PUT PC d 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
0x0bff08…0c009c Dummy {f00=0x0040, f01=0x4106, f02=» LD A9,TTB:SA+18,A14 P LD A10,TTB:SA+20,A14 P LD A11,TTB:SA+22,A14 : P LD A12,TTB:SA+24,A14 X P LD A13,TTB:SA+26,A14 v P LD A14,TTB:SA+28,A14 P P XIF P P RTN A15 START THE TASK P P END @ D
0x0c009c…0c0230 Dummy {f00=0x0040, 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
0x0c0230…0c03c4 Dummy {f00=0x0040, f01=0x0190, f02=» IHTWN IHTCN , ( IHSOP N CHLT1 ^ IHFDN n CHRT1 ~ , ( CHRT2 CHRT3 CHRT4 IHCC1 IHCC2
0x0c03c4…0c0558 Dummy {f00=0x0040, f01=0x018e, f02=» $ & ~ IHLPN IHCRN . IHDU1 > , ( A ( * N IHDU2 ~ IHMTN , ( Q , . 0 , ( a IHINPTI
0x0c0558…0c06ec Dummy {f00=0x0040, f01=0x0190, f02=» SCTEFA SCTPLD SCTANO , SCTADA @ SCTPAGL T , ( @ h SCTSEG SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC
0x0c06ec…0c0880 Dummy {f00=0x0040, f01=0x414e, f02=»T SCTCDT bBUG SCTBUG~ . , ( 6 B SCTDMT r SCTDMI SCTDML SCTDMC SCTBLK SCTDCT
0x0c0880…0c0a14 (2, 78) Opaque[0x194]
0x0c0a14…0c0ba8 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10c0, f03=0x0000}
0x0c0a14…0c0ba8 IdxSect {
0x0c0a14…0c0ba8 f00 = 0x0086 // 0xc0a14 @0x0
0x0c0a14…0c0ba8 f01 = 0x000a // 0xc0a16 @0x2
0x0c0a14…0c0ba8 gno = [ // 0xc0a18 @0x4
0x0c0a14…0c0ba8 [0x00]: C0x0086.0x0.0
0x0c0a14…0c0ba8 [0x01]: C0x0086.0x2.0
0x0c0a14…0c0ba8 [0x02]: C0x0086.0x3.0
0x0c0a14…0c0ba8 [0x03]: C0x0087.0x0.0
0x0c0a14…0c0ba8 [0x04]: C0x0089.0x2.0
0x0c0a14…0c0ba8 ]
0x0c0a14…0c0ba8 }
0x0c0ba8…0c0d3c Dummy {f00=0x0086, f01=0x0190, f02=» 2 P IDENT LRPINT 9.2DK 1 83-04-29 870105040920 P : " P DK2, INH. OUT OF CLK ROUT. B P =DK1, HANGING REM. TERM. h P 80-03-11 P* P* 6 P************************************************** P* $ P* PHILIPS TERM
0x0c0d3c…0c0ed0 Dummy {f00=0x0086, f01=0x0190, f02=» P* P* P* 6 P************************************************** & P* ` P* j : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS t P* FOR TOSS. THESE ARE: P* P* -IHLKM: LKM INTERRUPT P* P
0x0c0ed0…0c1064 Dummy {f00=0x0086, f01=0x0190, f02=» ERRORS ALSO ARE j P* PROVIDED. THESE ARE: P* 8 4 P* -LKMRQE: SET A7 = -1, QUEUE JOB AND DISPATCH B P* z ( P* -LKMQDI: QUEUE JOB AND DISPATCH P* P EJECT LRPINT P* P* P*********** P* ENTRIES *
0x0c1064…0c11f8 Dummy {f00=0x0086, f01=0x018e, f02=» ` $ P ENTRY LKMRQE LKM REQUEST ERROR 4 P ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR 0 ( P ENTRY LKMQDI QUEUE JOB AND DISPATCH h & P ENTRY IHRTC RTC INTERRUPT HANDLER 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE P ENTRY MONCLO
0x0c11f8…0c138c Dummy {f00=0x0086, f01=0x0190, f02=» ~ P* P* P************* P* EXTERNALS * 2 P************* H P* ^ P* h P EXTRN TDISP DISPATCHER r " P EXTRN DISQUE DISPATCHER QUEUE ( P EXTRN PRUN TTAB OF RUNNING PROGRAM " P EXTRN MEXIT MONITOR TASK EXIT ,
0x0c138c…0c1520 Dummy {f00=0x0086, f01=0x0190, f02=»TCH TO LEVEL 48 $ P EXTRN SWLXY SWITCH TO LEVEL XY P EXTRN FREBLK SET BLOCK FREE @ " P EXTRN SAVE8 SAVE 8 REGISTERS d $ P EXTRN PFINIT RESTART OF DEVICES P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN TTA
0x0c1520…0c16b4 (2, 79) Dummy {f00=0x0086, f01=0x0190, f02=»RESS t & P EXTRN PAG:QB QUEUE LINK BACKWARD ( P EXTRN TTB:SB SEGMENT BLOCK POINTER 6 & P EXTRN TTB:PW PROGRAM STATUS WORD b 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB " P EXTRN LKMAL LKM REQUEST TABLE 6 P EXTRN PWRON,PWROFF,PWRCPL,SAVPR
0x0c16b4…0c1848 Dummy {f00=0x0086, f01=0x0190, f02=»ITIONAL ASSEMBLY P* . P***************************************** " P* T . P* A PROGRAM VERSION USING TOSS MMU PAGING ^ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USIN
0x0c1848…0c19dc Dummy {f00=0x0086, f01=0x0190, f02=»A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. 0 * ^ DSKPAG EQU 0 h * | P* 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS * P* IS OBTAINED BY SETTING MCLOCK EQU 0. P* PX:A
0x0c19dc…0c1b70 Dummy {f00=0x0086, f01=0x0190, f02=»IS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P* STEPS ARE CARRIED OUT: 6 P* X * P* - IF STACK OVERFLOW SYSTEM HALTS. b P* @ P* - ELSE REGISTERS A1 - A14 ARE SAVED IN TTAB FOR RUNNING P* PROGRAM. P* : P* - EXIT
0x0c1b70…0c1d04 Dummy {f00=0x0086, f01=0x0190, f02=» * P* A4 = LABEL ADDRESS OF LKM REQUEST 8 P* (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) 6 , P* A5 = TTAB ADDRESS OF CALLING PROGRAM r P* A2, A3 AND A6 ARE LOST. P* : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING
0x0c1d04…0c1e98 Dummy {f00=0x0086, f01=0x0190, f02=»NAL INTERRUPT FLAG | P* P EJECT LRPINT $ P* < P* F P ST A15,LKM010 SAVE A15 P " P LD A15,PRUN LOAD TTAB ADDRESS p P* P IFT CPU852=1 4 P ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA * P STR A14,A15 SAVE USER REG
0x0c1e98…0c202c Dummy {f00=0x0086, f01=0x0190, f02=»-A9 P STR A8,A15 -A8 P STR A7,A15 -A7 $ P STR A6,A15 -A6 < P STR A5,A15 -A5 T P STR A4,A15 -A4 l P STR A3,A15 -A3 P STR A2,A15 -A2 P STR A1,A15 -A1 P XIF P* P IFT CPU852=0 6 P MS 14,TTB:SA+2,
0x0c202c…0c21c0 Dummy {f00=0x0086, f01=0x0190, f02=»A15 STACK POINTER | PLKM010 EQU *-2 P* 0 P EJECT LRPINT : P* R " P* GET LKM REQUEST PARAMETERS P* P LDR* A3,A15 4 P LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER & P ST A3,TTB:PW,A5 STORE PSW IN TTAB P*
0x0c21c0…0c2354 (2, 80) Dummy {f00=0x0086, f01=0x018e, f02=»PAG=1 P ANK A3,1 P RF(NZ) LKM015 USER MODE? * P TL MONMMU NO, LOAD MONITOR MMU TABLE B P* p PLKM015 EQU * z & P EL A3,-2,A2 GET INSTRUCTION CODE " P ELR A6,A2 GET DATA DIRECTIVE P XIF P* P CWK A3,/2804
0x0c2354…0c24e8 Dummy {f00=0x0086, f01=0x0190, f02=» P LDK A1,7 HALT PARAMETER 0 P RF LKM070 HALT SYSTEM DUE TO STACK OVERFLOW $ P* X P EJECT LRPINT b P* z P* PLKM025 EQU * P IFT DSKPAG=1 . P LD A3,TTB:SB,A5 GET SEGMENT BLOCK ADDRESS P RF(Z) LKM027 NO SEGMENT?
0x0c24e8…0c267c Dummy {f00=0x0086, f01=0x0190, f02=»ASK f P* ( P* INSERT PAGE BLOCK IN PAGE QUEUE P* B , P LD A3,SEG:PB,A3 GET PAGE BLOCK ADDRESS L & P LDKL A4,PAGQUE GET PAGQUE ADDRESS | P ST A4,PAG:QB,A3 4 P LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE " P STR A4,A3 UPDATE
0x0c267c…0c2810 Dummy {f00=0x0086, f01=0x0190, f02=»PAGE QUEUE NOT EMPTY? P* P EJECT LRPINT ( P* @ P* RESTART LOAD TASK J P* h , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY r P LDR A4,A5 SAVE A5 , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS $ P CF A15,QTJOB RESTART LOAD T
0x0c2810…0c29a4 Dummy {f00=0x0086, f01=0x0190, f02=» * P XIF P* P IFF MMUPAG+DSKPAG=0 " P CWK A6,9 CHECK DATA DIRECTIVE < ( P RF(E) LKM060 LOAD SEGMENT REQUEST? b P XIF P* P EJECT LRPINT P* P* PLKM030 EQU * ( P CM PRUN INDICATE IDLE LOOP RUNNING
0x0c29a4…0c2b38 Dummy {f00=0x0086, f01=0x0190, f02=»* P* LKM REQUEST WITH LABEL P* , P ADK A2,2 6 , P NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE H P* x P IFT MMUPAG=0 P LDR* A4,A2 GET LABEL P XIF P* P IFT MMUPAG=1 P ELR A4,A2 GET LABEL P XIF
0x0c2b38…0c2ccc Dummy {f00=0x0086, f01=0x0190, f02=»SAVE NEXT ADDRESS TO $ P ST A2,TTB:SA,A5 EXECUTE IN TTAB " P ADR A3,A3 GET INDEX IN LKMAL D * P RF(Z) LKMQDI PROGRAM SWITCH REQUEST? j P CW A3,LKMAL * P RF(NL) LKMRQE INVALID DATA DIRECTIVE? P INH P LD A3,LKMAL,A3 P* P
0x0c2ccc…0c2e60 Dummy {f00=0x0086, f01=0x0190, f02=»RESS r P XIF P* PLKM065 EQU * " ( P ABR(NZ) A3 BRANCH TO LKM PROCESSOR 6 P* b P EJECT LRPINT l P* P* P* L K M E R R P* P* > PLKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT P*
0x0c2e60…0c2ff4 (2, 81) Dummy {f00=0x0087, f01=0x0190, f02=» TERMINAL JOB AND DISPATCH. z P* $ P* A5 = TTAB ADDRESS . P* L P* V PLKMRQE EQU * ` P LDKL A2,-1 t . P ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7 P* P* P* L K M Q D I P* ( P* QUEUE TERMINAL JOB A
0x0c2ff4…0c3188 Dummy {f00=0x0087, f01=0x0190, f02=»SP EQU * COMMON EXIT TO DISPATCHER P ABL TDISP GO TO DISPATCHER * P* N P EJECT LRPINT X P* p P* I H R T C z P* 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 6 P* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS.
0x0c3188…0c331c Dummy {f00=0x0087, f01=0x0190, f02=»K TIMER QUEUE? ~ P RTN A15 P* & PRTC010 EQU * 0 P IFT CPU852=1 D & P CF A15,SAVE8 SAVE A1-A8 ON STACK Z P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF " P LD A4,0 SAVE IHPRF ADDR. DSB , P
0x0c331c…0c34b0 Dummy {f00=0x0087, f01=0x018e, f02=» CLOCK ROUTINE AS MJOB | P CF A15,QMJOB P* 4 P IFT MONCLK=1 > P IM SECOND T ( P RF(P) RTC025 UPDATE MONITOR CLOCK? f P XIF P* PRTC020 EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT
0x0c34b0…0c3644 Dummy {f00=0x0087, f01=0x0190, f02=» PMCLOCK EQU * ( PRTC025 LDKL A4,-9 SET SECOND SWITCH P ST A4,SECOND H P LDK A4,4 ^ P* p 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS z ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME 0 P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS ?
0x0c3644…0c37d8 Dummy {f00=0x0087, f01=0x0190, f02=» CARRY? z " P RB(P) MCLO10 UPDATE MINUTES? P LDK A3,24 UPDATE HOURS 6 P RB MCLO20 V P XIF h P* t P* ~ P* M O N C L O P* P* PMONCLO EQU * P IFT MONCLK=1 & P DATA 0 ACCUMULATED 24 HOUR CARRY P
0x0c37d8…0c396c Dummy {f00=0x0087, f01=0x0190, f02=»T P* * P* CLOCK ROUTINE STARTED EACH 100 MS. P* B PCLOCK INH L , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS ^ P* PCLK10 LDR A6,A4 $ PCLK20 LDR* A4,A6 GET TIMER BLOCK P ABL(Z) MEXIT END OF QUEUE P IM 4,A4 INCRE
0x0c396c…0c3b00 Dummy {f00=0x0087, f01=0x018e, f02=»F A15,FREBLK P LDR A4,A2 P CF A15,FREBLK & P RB CLK20 < P* N P EJECT LRPINT X P* p P* z , PCLK30 CF A15,CLK40 CALL TIME OUT ROUTINE ( P CF A15,SWL48 SWITCH TO LEVEL 48 DK1 P INH P RB CLK10 P* , P
0x0c3b00…0c3c94 (2, 82) Dummy {f00=0x0089, f01=0x0190, f02=» l P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK 4 P XIF Z P* f & P LDKL A1,/C4C0 LEVEL 49 AND ENABLE p & P ST A1,18,A15 SET NEW PSW ON STACK P LD A2,2,A4 LOAD DISP BLOCK P LD A1,4,A2 GET PARAMETER $
0x0c3c94…0c3e28 Dummy {f00=0x0089, f01=0x0190, f02=» . P* POINTER TO FIRST BLOCK IN TIMER QUEUE P* 6 P* @ PTIMQUE EQU * J P DATA 0 ^ P* n P EJECT LRPINT x P* P* P* I H P F A R P* > P* THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER. P
0x0c3e28…0c3fbc Dummy {f00=0x0089, f01=0x0190, f02=»ATA /00C0 P DATA POWOFF P* & P* 0 P* WORK AREAS : P* P P* Z & PPFX DATA 1 POWER ON/OFF INDICATOR d P* P* & PINIFLG DATA 1 INITIALIZATION FLAG P* P EJECT LRPINT P* P* * P* PO
0x0c3fbc…0c4150 Dummy {f00=0x0089, f01=0x0190, f02=»AR COMPLETION FLAGS DSB & P RIT /17 RESET INTERNAL INTERRUPT ! & P C1S PFX INDICATE POWER ON OR OFF ! J P RF(P) POWON POWER ON? ! t P* ! P* POWER OFF ! P* ! P IFT CPU852=1 ! & P CF A15,SAVE8 SAVE A1-A8 ON STACK ! P XIF ! P
0x0c4150…0c42e4 Dummy {f00=0x0089, f01=0x0190, f02=»HING ! d P LDKL A2,TTABPF " P STR A1,A2 " $ P ST A2,DISQUE " 6 P RB T:DISP " L P* " ^ 2 PPOWOFF ST A15,A15SAV SAVE A15 FOR BETTER TIMES " h . P IM PWROFF COUNT A POWER OFF OCCURRED DSB " P HLT " P* " P EJECT LRPINT " P* " P
0x0c42e4…0c4478 Dummy {f00=0x0089, f01=0x4076, f02=» , P IM PWRON COUNT A POWER ON OCCURRED DSB # P ABL T:DISP # 4 P* # H P* # R P* # P END # f@ # rA15SAV SAVE A15 FOR BETTER TIMES " h . P IM PWROFF COUNT A POWER OFF OCCURRED DSB " P HLT " P* " P EJECT LRPINT " P* " P
0x0c4478…0c460c Dummy {f00=0x0089, 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
0x0c460c…0c47a0 Dummy {f00=0x0089, f01=0x0190, f02=»PT PTP13 P DSC1 LAMPS,OFF,W1 6 P PERF READDC,CTIMOUT READ NEW MASK OR SP-SP-LF-LF 0 P OR 'SKRIV MANUELT' j P BNOK DCERROR P B EXCH05 P* PHK23 : P* AFTER FLASH: LS, ETX, <INV>, DOWN,LEFT,RIGHT,SPACE, , P* ST
0x0c47a0…0c4934 (2, 83) Opaque[0x194]
0x0c4934…0c4ac8 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02d0, f03=0x0000}
0x0c4934…0c4ac8 IdxSect {
0x0c4934…0c4ac8 f00 = 0x0016 // 0xc4934 @0x0
0x0c4934…0c4ac8 f01 = 0x0006 // 0xc4936 @0x2
0x0c4934…0c4ac8 gno = [ // 0xc4938 @0x4
0x0c4934…0c4ac8 [0x00]: C0x0016.0x2.0
0x0c4934…0c4ac8 [0x01]: C0x0017.0x2.0
0x0c4934…0c4ac8 [0x02]: C0x0017.0x3.0
0x0c4934…0c4ac8 ]
0x0c4934…0c4ac8 }
0x0c4ac8…0c4c5c Dummy {f00=0x0016, f01=0x0190, f02=» 0 P IDENT TPROC REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS P* P* P*
0x0c4c5c…0c4df0 Dummy {f00=0x0016, f01=0x0190, f02=»AINS THE FOLLOWING | P* TOSS LKM PROCESSORS: P* : P* - TWAIT = WAIT D P* ` P* - TEXIT = EXIT j P* ( P* - TACTOT = ACTIVATE/RESTART TASK P* P* - TPAUSE = PAUSE TASK P* P* - TMWAIT = MULTIPL
0x0c4df0…0c4f84 Dummy {f00=0x0016, f01=0x018e, f02=»* P* P ENTRY TWAIT WAIT PROCESSOR P ENTRY TEXIT EXIT PROCESSOR 8 , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR " P ENTRY TPAUSE PAUSE PROCESSOR * P ENTRY TMWAIT MULTIPLE WAIT PROCESSOR P P P P* P*
0x0c4f84…0c5118 Dummy {f00=0x0016, f01=0x0190, f02=» P EXTRN TDISP DISPATCHER * P EXTRN LKMQDI QUEUE TASK AND DISPATCH $ $ P EXTRN LKMRQE LKM REQUEST ERROR R P EXTRN EXIT PROGRAM EXIT z 2 P EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXT
0x0c5118…0c52ac Dummy {f00=0x0016, f01=0x018e, f02=»RN DWTWAT WAIT/ACTIVATE INDICATOR P EJECT TPROC * P* @ P* J . P***************************************** T P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P* . P* A PROGRAM VERSION
0x0c52ac…0c5440 Dummy {f00=0x0016, f01=0x0190, f02=» P* P* P******** P* WAIT * ( P******** 8 P* H P* R ( P* THIS IS THE WAIT LKM PROCESSOR. P* , P* THIS MODULE IS ENTERED WHEN THE TASK 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. P* * P*
0x0c5440…0c55d4 (2, 84) Dummy {f00=0x0017, f01=0x0190, f02=»CB ADDRESS P* P* * PTWAIT CF A15,FNDDWT SEARCH DWT ADDRESS & P ADK A6,0 SET CR T & P RF(Z) TP:RQE FILE CODE NOT FOUND? l P* P IFT MMUPAG=0 * P LDR* A1,A8 RETURN IF EVENT COMPLETED P XIF P* P IFT MMUPAG=1
0x0c55d4…0c5768 Dummy {f00=0x0017, f01=0x0190, f02=»SET WAIT INDICATOR IN DWT ~ P RF T:DISP GO TO DISPATCHER " P* F P EJECT TPROC P P* f P* p P******** z P* EXIT * P******** P* P* ( P* THIS IS THE EXIT LKM PROCESSOR. P* * P* THIS MODULE IS E
0x0c5768…0c58fc Dummy {f00=0x0017, f01=0x0190, f02=»D FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* H P* A5 = TTAB ADDRESS R P* p P* z PTEXIT EQU * " P CF A15,EXIT CALL PROGRAM EXIT P* & PT:DISP ABL TDISP GO TO DISPATCHER P* P EJECT TPR
0x0c58fc…0c5a90 Dummy {f00=0x0017, f01=0x0190, f02=» TASK LKM PROCESSOR. p P* 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER & ( P* WHEN A TASK HAS TO BE ACTIVATED. ^ P* 0 P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- P* ( P* A1 = PARAMETER WHEN A4 NOT ZERO 4 P* A4 = S
0x0c5a90…0c5c24 Dummy {f00=0x0017, f01=0x0190, f02=» PTACTOT EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR D $ P RF(Z) TP:RQE TASK NOT IN SYSTEM 4 P CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING * P LD A3,TTB:SA+6,A5 GET SEGMENT NUMBER P LDR A5,A2 P LDR A2,A4
0x0c5c24…0c5db8 Dummy {f00=0x0017, f01=0x0190, f02=» EJECT TPROC P* P* P********** * P* TPAUSE * < P********** N P* ` P* j ( P* THIS IS THE PAUSE LKM PROCESSOR. t P* : P* THIS MODULE IS ENTERED FROM THE LKM HANDLER WHEN A : P* TASK WANTS TO (TEMPORARILY)
0x0c5db8…0c5f4c Dummy {f00=0x0017, f01=0x0190, f02=» P********** P* TMWAIT * P********** , P* > P* H 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. R P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS
0x0c5f4c…0c60e0 Dummy {f00=0x0017, f01=0x018e, f02=»LLING TASK VIA TENDIO t & P* WITH THE FOLLOWING PARAMETERS: P* H , P* A8 = ECB ADDRESS OF COMPLETED EVENT R P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO). P* ( P* NOTICE THAT ALL EVENTS MUST HAVE ( P*
0x0c60e0…0c6274 (2, 85) Dummy {f00=0x0017, f01=0x0190, f02=» n P LDK A3,0 P* P IFT MMUPAG=0 $ * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK : P XIF h P* t P IFT MMUPAG=1 ~ ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 P*
0x0c6274…0c6408 Dummy {f00=0x0017, f01=0x0190, f02=»S v & P LDR* A2,A8 GET FIRST WORD OF ECB P XIF 4 P* @ P IFT MMUPAG=1 J P ELR A8,A7 GET ECB ADDRESS ` $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED? 8 P CF A15,FNDDWT NO, SEARCH DW
0x0c6408…0c659c Dummy {f00=0x0017, f01=0x0190, f02=» " P LD A2,DWTST,A6 GET DWT STATUS P RF(N) TP:RQE NOT BUSY? * P CW A5,DWTTAB,A6 J 4 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK? b 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT? P ORK A6,1
0x0c659c…0c6730 Dummy {f00=0x0017, f01=0x0190, f02=»AVE FIRST DWT ADDRESS P LDR A3,A6 P* 0 PTMW:20 EQU * : 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE N $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 ( P RB(P) TMW:10 MORE ECB:S IN ECBBLK? : P ST A3,DWTWAT,A9 NO, SET
0x0c6730…0c68c4 Dummy {f00=0x0017, f01=0x0190, f02=» TTAB SAVE AREA p 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR & P RF(Z) TP:QDI FIRST ECB IN ECBBLK? N P* x : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x0c68c4…0c6a58 Dummy {f00=0x0017, f01=0x40aa, f02=»QU * " P ABL LKMRQE LKM REQUEST ERROR P* 2 PTP:QDI EQU * < ( P ABL LKMQDI QUEUE TASK AND DISPATCH P P* | P* P* P END @ VATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x0c6a58…0c6bec Dummy {f00=0x0017, 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
0x0c6bec…0c6d80 Dummy {f00=0x0017, f01=0x0000, f02=»
0x0c6d80…0c6f14 (2, 86) Opaque[0x194]
0x0c6f14…0c70a8 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0290, f03=0x0000}
0x0c6f14…0c70a8 IdxSect {
0x0c6f14…0c70a8 f00 = 0x0014 // 0xc6f14 @0x0
0x0c6f14…0c70a8 f01 = 0x000c // 0xc6f16 @0x2
0x0c6f14…0c70a8 gno = [ // 0xc6f18 @0x4
0x0c6f14…0c70a8 [0x00]: C0x0014.0x2.0
0x0c6f14…0c70a8 [0x01]: C0x0015.0x0.0
0x0c6f14…0c70a8 [0x02]: C0x0015.0x1.0
0x0c6f14…0c70a8 [0x03]: C0x0015.0x2.0
0x0c6f14…0c70a8 [0x04]: C0x0042.0x1.0
0x0c6f14…0c70a8 [0x05]: C0x0042.0x3.0
0x0c6f14…0c70a8 ]
0x0c6f14…0c70a8 }
0x0c70a8…0c723c Dummy {f00=0x0014, f01=0x0190, f02=» 0 P IDENT MSUBS REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x0c723c…0c73d0 Dummy {f00=0x0014, 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 JOB FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x0c73d0…0c7564 Dummy {f00=0x0014, f01=0x018e, f02=»K SET A MONITOR BLOCK FREE " P* -FNDDWT FIND DWT ADDRESS $ * P* -FNDTID FIND TASK IDENTIFICATION J P* -PFINIT RESTART DEVICE x $ P* -SWL48 SWITCH TO LEVEL 48 $ P* -SWLXY SWITCH TO LEVEL XY P* -HALT HALT MODULE
0x0c7564…0c76f8 Dummy {f00=0x0014, f01=0x0190, f02=» " P ENTRY SAVE8 SAVE 8 REGISTERS P ENTRY QTJOB QUEUE TASK * " P ENTRY QMJOB QUEUE MONITOR JOB J & P ENTRY ACTOT ACTIVATE TASK (FIFO) p & P ENTRY ACTOTP ACTIVATE TASK (LIFO) P ENTRY EXIT PROGRAM EXIT P ENTRY GETBLK GET BLOCK P ENT
0x0c76f8…0c788c Dummy {f00=0x0014, f01=0x0190, f02=»CE v $ P ENTRY SWL48 SWITCH TO LEVEL 48 $ P ENTRY SWLXY SWITCH TO LEVEL XY 2 , P ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE Z * P ENTRY INTSAV SAVE AREA LAST INTERRUPT P ENTRY HALT HALT MODULE P* 2 P* ENTRIES TO RESTORE REGISTERS A8-A1
0x0c788c…0c7a20 Dummy {f00=0x0014, f01=0x018e, f02=» A1 ~ 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS P EJECT MSUBS J P* ` P* j P************* t P* EXTERNALS * P************* P* P* : P EXTRN DISQUE POINTER TO 1ST PLACE IN DISPATCHER QUEUE & P
0x0c7a20…0c7bb4 (2, 87) Dummy {f00=0x0015, f01=0x0190, f02=» & P EXTRN TTB:ID TASK IDENTIFICATION P EXTRN TTB:SA SAVE AREA . * P EXTRN TTB:PP POINTER TO PENDING QUEUE N ( P EXTRN TTB:TD TERMINAL DEVICE TABLE | 6 P EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK P EXTRN DWTADR -ADDRESS BLOCK $ P E
0x0c7bb4…0c7d48 Dummy {f00=0x0015, f01=0x0190, f02=»XTRN TIODM DM ENTRY P EXTRN CHKIND DM ENTRY P* : P* D " PSOP EQU /2E SOP DEVICE ADDRESS N P* t P EJECT MSUBS ~ P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P*
0x0c7d48…0c7edc Dummy {f00=0x0015, f01=0x0190, f02=»NG MMUPAG EQU 1. z P* PMMUPAG EQU 1 " P* 6 P* @ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION J . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* * . ** A PROGRAM VERSION USING TOSS D
0x0c7edc…0c8070 Dummy {f00=0x0015, f01=0x0190, f02=»* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS ON STACK * $ P* WITHOUT ENABLING INTERRUPTS. ^ P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS P STR A3,A15 P STR A4,A15 P STR A5,A15
0x0c8070…0c8204 Dummy {f00=0x0015, f01=0x0190, f02=»RANCH ADDRESS v P ST A2,14,A15 P ST A1,16,A15 , P LD A3,12,A15 RESTORE A3 B & P ABL 0 THIS IS USED TO BRANCH BACK b PSAVE81 EQU *-2 P* P EJECT MSUBS P* P* P* Q T J O B P* 2 P* SUBROUTINE TO
0x0c8204…0c8398 Dummy {f00=0x0015, f01=0x0190, f02=» P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS J P* PUT LAST IN QUEUE. P* P* PQTJOB EQU * P INH P* P IFT CPU852=1 $ P STR A1,A15 SAVE
0x0c8398…0c852c Dummy {f00=0x0015, f01=0x0190, f02=»CK t P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2 P LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE R P RF(Z) QTJ020 DISQUE EMPTY? * P LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL P* P EJECT MSUBS P* P*
0x0c852c…0c86c0 Dummy {f00=0x0015, f01=0x0190, f02=»1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE? ( P* P ( PQTJ020 STR A2,A5 UPDATE QUEUE LINKS Z P STR A5,A1 P* P IFT CPU852=1 P ABL IHRET3 P XIF P* P IFT CPU852=0 * P MLR 3,A15 RESTO
0x0c86c0…0c8854 (2, 88) Dummy {f00=0x0015, f01=0x018e, f02=»B P* 6 P* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. P* N P* ENTRY PARAMETERS:- X P* v P* A1 = PARAMETER P* A2 = DISPATCH ADDRESS P* : P* A5 IS SET TO TTAB ADDRESS OF MONITOR JOBS AND THE < P*
0x0c8854…0c89e8 Dummy {f00=0x0015, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF . P* : P IFT CPU852=0 D P INH Z " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* $ P LDKL A5,TTMJOB SET TTAB ADDRESS P RF ACT01 P* P EJECT MSUBS P* P*
0x0c89e8…0c8b7c Dummy {f00=0x0015, f01=0x0190, f02=»* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS & P* A3 = SEGMENT NUMBER H P* A4 = PARAMETER 2 h P* A5 = TTAB ADDRESS P* < P* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS : P* PUT IN DISPATCHER QUEU
0x0c8b7c…0c8d10 Dummy {f00=0x0015, f01=0x0190, f02=»LL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. 6 P* | P* PACTOTP EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x0c8d10…0c8ea4 Dummy {f00=0x0015, f01=0x0190, f02=» P EJECT MSUBS P* P* $ PACTOT EQU * . P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* PACT01 LDK A6,0 IND
0x0c8ea4…0c9038 Dummy {f00=0x0015, f01=0x0190, f02=» " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS * & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER ^ " P ST A4,TTB:SA+8,A5 PARAMETER 2 $ P LD A4,TTB:ID,A5 SET TERMINAL ID * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA P*
0x0c9038…0c91cc Dummy {f00=0x0015, f01=0x0190, f02=»E JOB z P* P EJECT MSUBS P* . P* 8 PACT010 EQU * B P IFT CPU852=1 V ( P ABL IHRET8 RESTORE A1-A8 AND RETURN l P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN
0x0c91cc…0c9360 Dummy {f00=0x0015, f01=0x0190, f02=»K GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 8 P CF A15,GETBLK J P ADKL A5,TTB:PP ` P* x " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5,A5 FOLLOW THE QUEUE THREAD P ADK A6,0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO
0x0c9360…0c94f4 (2, 89) Dummy {f00=0x0015, f01=0x0190, f02=»E t P STR A5,A4 P RB ACT010 P* . P EJECT MSUBS 8 P* N P* X P* E X I T b P* v 8 P* SUBROUTINE TO SET A PROGRAM FREE AND QUEUE FIRST P* PENDING PROGRAM. P* P* ENTRY PARAMETER: P* P
0x0c94f4…0c9688 Dummy {f00=0x0015, f01=0x018e, f02=»OGRAM COUNTER z 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER $ P RF(Z) IHRTN NO PENDING PROGRAM J P LDR* A3,A4 GET QUEUE THREAD r 0 P ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER 4 P CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS P LDR A
0x0c9688…0c981c Dummy {f00=0x0015, f01=0x0190, f02=» P EJECT MSUBS P* P* ( P* G E T B L K 2 P* J 4 P* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR T 8 P* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FOUND P* FREE BLOCK. P* P* EXIT PARAMETER:- P*
0x0c981c…0c99b0 Dummy {f00=0x0015, f01=0x0190, f02=»A4,FREQUE GET FIRST BLOCK IN FREE QUEUE P RF(NZ) GBL010 0 P LDK A1,/B HALT PARAMETER F , P CF A15,HALT HALT IF NO MORE FREE BLOCKS h P* PGBL010 LDR* A5,A4 . P ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE $ P STR A3,A4 STORE A3-A1 IN
0x0c99b0…0c9b44 Dummy {f00=0x0015, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P RTN A15 , P XIF < P* H P EJECT MSUBS R P* h P* r P* F R E B L K | P* : P* SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK P* AND SET THIS BLOCK FREE. P*
0x0c9b44…0c9cd8 Dummy {f00=0x0015, f01=0x0190, f02=» PARAMETER IN BLOCK $ P* A2 = SECOND " " $ P* A1 = THIRD " " D P* l P* v PFREBLK EQU * P INH P LDR* A3,A4 UPDATE A3 P LD A1,FREQUE P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE
0x0c9cd8…0c9e6c Dummy {f00=0x0015, f01=0x0190, f02=» RTN A15 P XIF P* P EJECT MSUBS & P* < P* F P* F N D D W T P P* h " P* SUBROUTINE TO FIND A DWT. r P* P* ENTRY PARAMETERS:- P* P* A5 = TTAB ADDRESS 8 P* A7 = ORDER CODE WHEN CALLED
0x0c9e6c…0ca000 Dummy {f00=0x0015, f01=0x0190, f02=»A6 = DWT ADDRESS IF FOUND, ELSE 0 P* * P* 4 PFNDDWT STR A1,A15 SAVE A1 > P LDKL A6,TTB:TD+2 ` 4 P ADR A6,A5 GET ADDRESS TO TERMINAL DEVICE TABLE z " P LD A1,-2,A6 GET TABLE LENGTH P* P IFT MMUPAG=1 & P ELR A2,A8 LOAD
0x0ca000…0ca194 (2, 90) Dummy {f00=0x0042, f01=0x0190, f02=» EJECT MSUBS P* P* PFND100 SUK A1,4 * ( P RF(N) FND110 FILE CODE NOT IN TTAB? B & P CC A2,1,A6 SEARCH IN DEVICE TABLE n & P RF(NE) FND106 BRANCH IF NOT FOUND P STR A1,A15 P LD A1,2,A6 DWT ADDRESS " P LD A1,DWTADR,A1 A
0x0ca194…0ca328 Dummy {f00=0x0042, f01=0x0190, f02=» OK P LDR* A1,A15 P* PFND106 EQU * * ( P ADK A6,4 ADDRESS TO NEXT FILE CODE > P RB FND100 TRY NEXT j P* $ P* SEARCH IN COMMON DEVICE TABLE P* & PFND110 LD A6,SCTCDT CDTAB ADDRESS P LDR* A1,A6 CDTAB LENGTH
0x0ca328…0ca4bc Dummy {f00=0x0042, f01=0x0190, f02=»LE CODE NOT FOUND? P CC A2,1,A6 ( P RF(NE) FND126 FILE CODE NOT FOUND? . P STR A1,A15 Z P LD A1,2,A6 n P LD A1,DWTADR,A1 P CWK A1,TIODM " P RF(NE) FND200 NOT DM REQUEST? $ P CF A15,CHKIND CHECK INDEX IN DM P RF FND200
0x0ca4bc…0ca650 Dummy {f00=0x0042, f01=0x0190, f02=»6,0 P RF IHRET1 ! P* ! " PFND200 LDR* A1,A15 RESET STACK ! ( P LCR A2,A6 LOAD DWT INDEX ! N P LD A6,2,A6 LOAD DWT ADDRESS ! p P* ! PFND210 RF IHRET1 ! P* ! P EJECT MSUBS ! P* ! P* ! P* F N D T I D ! P* !
0x0ca650…0ca7e4 Dummy {f00=0x0042, f01=0x0190, f02=»IDENTIFICATION ! P* " P* EXIT PARAMETER: " P* " < P* A2 = TTAB ADDRESS " F 0 P* A2 = 0 INDICATES ILLEGAL IDENTIFICATION " d P* " P* " PFNDTID STR A1,A15 SAVE A1 " P LD* A1,SCTTCT TCTAB LENGTH " P AD A1,SCTTCT " P
0x0ca7e4…0ca978 Dummy {f00=0x0042, f01=0x0190, f02=»,TTB:ID,A2 COMPARE IDENTIFICATIONS " P RB(NE) FTI010 NO MATCH? # * P RF IHRET1 # J P* # ^ * PFTI030 LDK A2,0 ILLEGAL IDENTIFICATION # h P RF IHRET1 # P* # P EJECT MSUBS # P* # P* # , P* RESTORE REGISTERS AND RETURN WITHOUT #
0x0ca978…0cab0c Dummy {f00=0x0042, f01=0x0190, f02=»DR* A6,A15 # PIHRET5 LDR* A5,A15 $ PIHRET4 LDR* A4,A15 $ , PIHRET3 LDR* A3,A15 $ F PIHRET2 LDR* A2,A15 $ ` PIHRET1 LDR* A1,A15 $ z PIHRTN INH $ $ P ADKL A15,4 ADJUST STACK POINTER $ P ABR* A15 AND RETURN $ P XIF $ P* $ P IFT CPU
0x0cab0c…0caca0 Dummy {f00=0x0042, f01=0x0190, f02=» FROM STACK... $ r P RTN A15 ...AND RETURN % P* % 4 0 PIHRET1 LDR* A1,A15 RESTORE A1 FROM STACK... % > P* % r PIHRTN RTN A15 ...AND RETURN % | P XIF % P* % P EJECT MSUBS % P* % P* % P* P F I N I T % P* % & P* SU
0x0caca0…0cae34 (2, 91) Dummy {f00=0x0042, f01=0x0190, f02=»E AVAILABLE FOR THE RESTART ROUTINES. % z P* & . P* & 8 PPFINIT EQU * & B ( P LDK A1,2 SET INDEX TO FIRST ROUTINE & V P* & $ PPFI100 CW A1,PFTAB CHECK IF LAST & " P RF(NL) PFI110 ALL RESTARTED? & P STR A1,A15 SAVE A1 & P INH & * P CFI A
0x0cae34…0cafc8 Dummy {f00=0x0042, f01=0x0190, f02=» RTN A15 RETURN WHEN ALL STARTED & P* ' ( P EJECT MSUBS ' 2 P* ' H P* ' R P* S W L 4 8 ' P* ' r & P* SWITCH TO LEVEL 48 AND ENABLE. ' | P* ' P* ' PSWL48 EQU * ' P STR A1,A15 SAVE A1 ' P* ' PSWL481 EQU * ' $ P
0x0cafc8…0cb15c Dummy {f00=0x0042, f01=0x018e, f02=» ' x P RTN A15 ( P* ( P EJECT MSUBS ( " P* ( 8 P* ( B P* S W L X Y ( L P* ( b & P* SWITCH TO LEVEL XY AND ENABLE. ( l P* ( . P* LEVEL := 48 IF LEVEL ON STACK IS >= 48 ( 0 P* LEVEL := XY " " " " " XY < 48 ( P*
0x0cb15c…0cb2f0 Dummy {f00=0x0042, f01=0x0190, f02=» ( z & P LC A1,24,A15 GET LEVEL FROM STACK ) P ANK A1,/FC ) 2 P SUK A1,/BC ) F P RB(G) SWL481 ) Z P LD A1,24,A15 ) p " P ANKL A1,/FFFE SYSTEM MODE BIT ) P RB SWL482 ) P* ) P EJECT MSUBS ) P* ) P* ) & P* INTERRUPT SAVE AND
0x0cb2f0…0cb484 Dummy {f00=0x0042, f01=0x0190, f02=»A15,HALT ) P* * PHALT EQU * * P IFT CPU852=1 * , & P CF A15,SAVE8 SAVE A1-A8 ON STACK * B $ P STR A9,A15 SAVE A9-A14 ON STACK * l P STR A10,A15 * P STR A11,A15 * P STR A12,A15 * P STR A13,A15 * P STR A14,A15 * P XIF * P* *
0x0cb484…0cb618 Dummy {f00=0x0042, f01=0x404e, f02=»YPE OF HALT * x P HLT + P* + P* + * P* + 4 P END + >@ + J8 SAVE A1-A8 ON STACK * B $ P STR A9,A15 SAVE A9-A14 ON STACK * l P STR A10,A15 * P STR A11,A15 * P STR A12,A15 * P STR A13,A15 * P STR A14,A15 * P XIF * P* *
0x0cb618…0cb7ac Dummy {f00=0x0042, f01=0x2008, f02=» , 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. "
0x0cb7ac…0cb940 Dummy {f00=0x0042, f01=0x0190, f02=»TCH TO LEVEL XY P EXTRN FREBLK SET BLOCK FREE " P EXTRN SAVE8 SAVE 8 REGISTERS < $ P EXTRN PFINIT RESTART OF DEVICES b P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN TTABLD LOAD TASK TTAB ( P EXTRN PQEMTY
0x0cb940…0cbad4 (2, 92) Opaque[0x194]
0x0cbad4…0cbc68 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x0cbad4…0cbc68 IdxSect {
0x0cbad4…0cbc68 f00 = 0x0015 // 0xcbad4 @0x0
0x0cbad4…0cbc68 f01 = 0x0004 // 0xcbad6 @0x2
0x0cbad4…0cbc68 gno = [ // 0xcbad8 @0x4
0x0cbad4…0cbc68 [0x00]: C0x0015.0x3.0
0x0cbad4…0cbc68 [0x01]: C0x0016.0x0.0
0x0cbad4…0cbc68 ]
0x0cbad4…0cbc68 }
0x0cbc68…0cbdfc Dummy {f00=0x0015, f01=0x018e, f02=» 2 P IDENT TTMJOB REL 9.2 79-11-16 870105040920 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* $ P ENTRY TTB:LA LAST LOAD ADDRESS P ENTRY TTB:M
0x0cbdfc…0cbf90 Dummy {f00=0x0015, f01=0x0190, f02=» j & P ENTRY TTB:ID TASK IDENTIFICATION P ENTRY TTB:ST TASK STATUS 2 " P ENTRY TTB:PP PENDING POINTER T & P ENTRY TTB:PW PROGRAM STATUS WORD z $ P ENTRY TTB:SA TERMINAL SAVE AREA " P ENTRY TTB:TD TERMINAL DEVICES P* P EJECT TTM
0x0cbf90…0cc124 Dummy {f00=0x0015, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINE
0x0cc124…0cc2b8 Dummy {f00=0x0015, f01=0x018e, f02=» * P* IS OBTAINED BY SETTING ASSOLY EQU 1. P* 2 PASSOLY EQU 0 < P* P " P EJECT TTMJOB TTMJOB Z P* P* PLA:DUM EQU * P IFT ASSOLY=1 P DATA 0 LAST LOAD ADDRESS P XIF P* PMMUDUM EQU *
0x0cc2b8…0cc44c Dummy {f00=0x0015, f01=0x0190, f02=» " P DATA /3000,/3400,/3800,/3C00 P XIF * P* 6 PSB:DUM EQU * @ P IFF MMUPAG+DSKPAG=0 T " P DATA 0 SEGMENT BLOCK ADDRESS p P XIF 6 PTTB:LA EQU LA:DUM-* LAST LOAD ADDRESS DISPLACEMENT . PTTB:MT EQU MMUDUM-* MMU TABLE DISPLACEMENT
0x0cc44c…0cc5e0 Dummy {f00=0x0015, f01=0x018e, f02=»TMJOB ENTRY . PTTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK P DATA 0 F P* V , PTTB:ID EQU *-TTMJOB TASK IDENTIFICATION ` P DATA '#M' P* $ PTTB:ST EQU *-TTMJOB TASK STATUS P DATA 49 P* ( PTTB:PP EQU *-TTMJOB PENDIN
0x0cc5e0…0cc774 (2, 93) Dummy {f00=0x0016, f01=0x4168, f02=» P EJECT TTMJOB P* P* & * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA 0 P DATA 0 DISPATCH ADDRESS ^ 2 P DATA 0,0,0,0,0,0,0 SAVE AREA, REGISTER A1-A14 ~ P DATA 0,0,0,0,0,0,0 P* ( PTTB:TD EQU *-TTMJOB TERMINAL DEVICES P D
0x0cc774…0cc908 Dummy {f00=0x0016, 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,
0x0cc908…0cca9c Dummy {f00=0x0016, f01=0x0190, f02=»NG MMUPAG EQU 1. z P* PMMUPAG EQU 0 " P* 6 P* @ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION J . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS D
0x0cca9c…0ccc30 Dummy {f00=0x0016, f01=0x0190, f02=»* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS ON STACK * $ P* WITHOUT ENABLING INTERRUPTS. ^ P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS P STR A3,A15 P STR A4,A15 P STR A5,A15
0x0ccc30…0ccdc4 Dummy {f00=0x0016, f01=0x0190, f02=»RANCH ADDRESS v P ST A2,14,A15 P ST A1,16,A15 , P LD A3,12,A15 RESTORE A3 B & P ABL 0 THIS IS USED TO BRANCH BACK b PSAVE81 EQU *-2 P* P EJECT MSUBS P* P* P* Q T J O B P* 2 P* SUBROUTINE TO
0x0ccdc4…0ccf58 Dummy {f00=0x0016, f01=0x0190, f02=» P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS J P* PUT LAST IN QUEUE. P* P* PQTJOB EQU * P INH P* P IFT CPU852=1 $ P STR A1,A15 SAVE
0x0ccf58…0cd0ec Dummy {f00=0x0016, f01=0x0190, f02=»CK t P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2 P LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE R P RF(Z) QTJ020 DISQUE EMPTY? * P LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL P* P EJECT MSUBS P* P*
0x0cd0ec…0cd280 Dummy {f00=0x0016, f01=0x0190, f02=»1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE? ( P* P ( PQTJ020 STR A2,A5 UPDATE QUEUE LINKS Z P STR A5,A1 P* P IFT CPU852=1 P ABL IHRET3 P XIF P* P IFT CPU852=0 * P MLR 3,A15 RESTO
0x0cd280…0cd414 (2, 94) Opaque[0x194]
0x0cd414…0cd5a8 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05d0, f03=0x0000}
0x0cd414…0cd5a8 IdxSect {
0x0cd414…0cd5a8 f00 = 0x002e // 0xcd414 @0x0
0x0cd414…0cd5a8 f01 = 0x0026 // 0xcd416 @0x2
0x0cd414…0cd5a8 gno = [ // 0xcd418 @0x4
0x0cd414…0cd5a8 [0x00]: C0x002e.0x2.0
0x0cd414…0cd5a8 [0x01]: C0x005f.0x3.0
0x0cd414…0cd5a8 [0x02]: C0x0060.0x1.0
0x0cd414…0cd5a8 [0x03]: C0x0060.0x2.0
0x0cd414…0cd5a8 [0x04]: C0x0060.0x3.0
0x0cd414…0cd5a8 [0x05]: C0x0061.0x0.0
0x0cd414…0cd5a8 [0x06]: C0x0061.0x1.0
0x0cd414…0cd5a8 [0x07]: C0x0061.0x2.0
0x0cd414…0cd5a8 [0x08]: C0x0062.0x0.0
0x0cd414…0cd5a8 [0x09]: C0x0062.0x1.0
0x0cd414…0cd5a8 [0x0a]: C0x0062.0x2.0
0x0cd414…0cd5a8 [0x0b]: C0x0062.0x3.0
0x0cd414…0cd5a8 [0x0c]: C0x0063.0x0.0
0x0cd414…0cd5a8 [0x0d]: C0x0063.0x1.0
0x0cd414…0cd5a8 [0x0e]: C0x0063.0x2.0
0x0cd414…0cd5a8 [0x0f]: C0x0063.0x3.0
0x0cd414…0cd5a8 [0x10]: C0x0064.0x0.0
0x0cd414…0cd5a8 [0x11]: C0x006a.0x1.0
0x0cd414…0cd5a8 [0x12]: C0x006b.0x3.0
0x0cd414…0cd5a8 ]
0x0cd414…0cd5a8 }
0x0cd5a8…0cd73c Dummy {f00=0x002e, f01=0x018e, f02=» 2 P IDENT TOSSIO REL 9.2 79-11-16 870105040920 P : P =1, DM ATTACH HANG UP B P REL 9.1 79-05-23 b P* ~ P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P
0x0cd73c…0cd8d0 Dummy {f00=0x002e, f01=0x0190, f02=» P* , P* THIS IS THE TOSS I/O LKM PROCESSOR. 6 P* IT CONTAINS THE FOLLOWING MONITOR SUBROUTINES: B P* | P* -TIO INITIALIZE I/O P* P* -TENDIO END I/O P* P* -ATTACH ATTACH DEVICE P* P*
0x0cd8d0…0cda64 Dummy {f00=0x002e, f01=0x0190, f02=» j P* 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT 8 P* VALUES FOR ECB AND DWT AREAS, AS WELL AS SPECIAL N . P* MOVE ROUTINES FOR DATA COMMUNICATION. P* P EJECT TOSSIO P* P* P*********** P*
0x0cda64…0cdbf8 Dummy {f00=0x002e, f01=0x0190, f02=» DC:MIN MOVE ROUTINE FOR DATACOM, INPUT 2 P ENTRY DC:MOT MOVE ROUTINE FOR DATACOM, OUTPUT 0 , P ENTRY MONMMU MONITOR (SYSTEM) MMU TABLE f P* P ENTRY ECBFC FILE CODE P ENTRY ECBBA BUFFER ADDRESS " P ENTRY ECBRL REQUESTED LENGTH " P
0x0cdbf8…0cdd8c Dummy {f00=0x002e, f01=0x0190, f02=»D (USED BY DM) p P* $ P ENTRY BUFLEN MMU BUFFER LENGTH $ P ENTRY ACTADR ACTIVATION ADDRESS H P ENTRY ABTADR ABORT ADDRESS p $ P ENTRY INTADR INTERRUPT ADDRESS 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) " P ENTRY RECADR RECOVERY
0x0cdd8c…0cdf20 Dummy {f00=0x002e, f01=0x0190, f02=»NDEX DATA MANAGEMENT z 2 P ENTRY PC:DIX DEVICE INDEX PROGRAMMED CHANNEL 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL R , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION P* P EJECT TOSSI
0x0cdf20…0ce0b4 (2, 95) Dummy {f00=0x005f, f01=0x0190, f02=»RY DWTECB ECB ADDRESS P ENTRY DWTOR INDEX AND ORDER ( P ENTRY DWTOCH LAST OUTPUT CHARACTER B & P ENTRY DWTADR DRIVER ADDRESS BLOCK n P ENTRY DWTTAB TTAB ADDRESS * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR P ENTRY DWTTQ TERMINAL QUEUE
0x0ce0b4…0ce248 Dummy {f00=0x005f, f01=0x018e, f02=»WTMEC MMU ECB ADDRESS P ENTRY DWTA2 SAVE AREA A2 P ENTRY DWTA3 SAVE AREA A3 @ P ENTRY DWTA4 SAVE AREA A4 b P ENTRY DWTA5 SAVE AREA A5 & P ENTRY DWTSB1 STACK BASE 1 IN DWT & P ENTRY DWTSB2 STACK BASE 2 IN DWT P ENTRY DWTTP T
0x0ce248…0ce3dc Dummy {f00=0x005f, f01=0x0190, f02=» P EJECT TOSSIO P* P* * P************* 4 P* EXTERNALS * J P************* ` P* v P* " P EXTRN SAVE8 SAVE 8 REGISTERS 0 P EXTRN IHRET8 RESTORE 8 REGISTERS AND RETURN 4 P EXTRN IHRTN RETURN WITHOUT ENABLING
0x0ce3dc…0ce570 Dummy {f00=0x005f, f01=0x0190, f02=»SPATCHING j , P EXTRN QTJOB QUEUE TERM.PROG. FOR DISP. " P EXTRN MEXIT MONITOR TASK EXIT B P EXTRN TDISP DISPATCHER h 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * P EXTRN LKMQDI QUEUE TASK AND DISPATCH , P EXTRN GETBLK PUT BLOCK IN P
0x0ce570…0ce704 Dummy {f00=0x005f, f01=0x0190, f02=» & P EXTRN TTB:ID TASK IDENTIFICATION ( P EXTRN TTB:ST TASK STATUS AND LEVEL . & P EXTRN TTB:PW PROGRAM STATUS WORD Z P EXTRN TTB:SA SAVE AREA P EXTRN TTB:MT MMUTAB P EXTRN TIODM ENTRY FOR DM P EXTRN REQEND ENTRY FOR DM * P EXT
0x0ce704…0ce898 Dummy {f00=0x005f, f01=0x0190, f02=»* h P* P* CONDITIONAL ASSEMBLY P* 2 . P***************************************** < P* n . P* A PROGRAM VERSION USING TOSS MMU PAGING x * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6
0x0ce898…0cea2c Dummy {f00=0x005f, f01=0x0190, f02=» P* P* 0 P* A PROGRAM VERSION INCLUDING ATTACH/DETACH * P* IS OBTAINED BY SETTING ATTDET EQU 1. L P* z PX:A EQU 0 PATTDET EQU 1 P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY S
0x0cea2c…0cebc0 Dummy {f00=0x005f, f01=0x0190, f02=»*************** P* FORM STATEMENTS * P******************* 4 P* P P* Z PBYTES FORM 8,8 d P* z P EJECT TOSSIO P* P* P********************* P* DWT DISPLACEMENTS * P*********************
0x0cebc0…0ced54 (2, 96) Dummy {f00=0x0060, f01=0x0190, f02=»C EQU /03 BYTE COUNTER PDWTECB EQU /04 ECB ADDRESS " PDWTOR EQU /06 INDEX AND ORDER @ ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER f ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR
0x0ced54…0ceee8 Dummy {f00=0x0060, f01=0x0190, f02=» MMUPAG=0 4 PDWTDRD EQU DWTTQ+2 START OF DRIVER DEFINED PART P XIF J P* V P IFT MMUPAG=1 ` 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART v P XIF P* P EJECT TOSSIO P* , P* DWT DISPLACEMENTS: DRIVER DEFINE
0x0ceee8…0cf07c Dummy {f00=0x0060, f01=0x0190, f02=»DWTDRD+/02 SAVE AREA A2 & PDWTA3 EQU DWTDRD+/02 SAVE AREA A3 & PDWTA4 EQU DWTDRD+/04 SAVE AREA A4 J & PDWTA5 EQU DWTDRD+/06 SAVE AREA A5 t . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT & PDWTTP
0x0cf07c…0cf210 Dummy {f00=0x0060, f01=0x0190, f02=» DWTDRD+/1C DISC VOLUME NAME P* $ P EJECT TOSSIO . P* F P* P * P************************************** Z * P* DRIVER ADDRESS BLOCK DISPLACEMENTS * * P************************************** P* P* & PKEYLEN EQU -6 DW
0x0cf210…0cf3a4 Dummy {f00=0x0060, f01=0x018e, f02=» PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS & $ PPOLADR EQU 4 BUFFER POOL ADDRESS L " PRECADR EQU 6 RECOVERY ADDRESS t PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE INDEX VALUES *
0x0cf3a4…0cf538 Dummy {f00=0x0060, f01=0x0190, f02=» F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* N $ PDC:DIX EQU -2 DATA COMMUNICATION X PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6 KEYBOARD/
0x0cf538…0cf6cc Dummy {f00=0x0060, f01=0x0190, f02=» P* ECB DISPLACEMENTS * P********************* " P* @ P* J PECBFC EQU /01 FILE CODE T PECBBA EQU /02 BUFFER ADDRESS t " PECBRL EQU /04 REQUESTED LENGTH " PECBEL EQU /06 EFFECTIVE LENGTH PECBRC EQU /08 RETURN CODE PEC
0x0cf6cc…0cf860 Dummy {f00=0x0060, f01=0x0190, f02=»PAG=1 P* P* P********** " P* TIOTAB * 4 P********** F P* X < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TIO b P* 2 PTIOTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE . P DATA TIO:DM DATA MANAGEMENT, INPUT/OU
0x0cf860…0cf9f4 (2, 97) Dummy {f00=0x0060, f01=0x0190, f02=» PTINDEX EQU *-TIOTAB 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT , P DATA TIOPCO PROGRAMMED CHANNEL, OUTPUT T P DATA TIOMXO MUX, OUTPUT & P DATA TIOKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT P*
0x0cf9f4…0cfb88 Dummy {f00=0x0060, f01=0x0190, f02=»SES TO ROUTINES ENTERED FROM TENDIO x P* , 2 PTENTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE 6 . P DATA TEN:DM DATA MANAGEMENT, INPUT/OUTPUT l * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT $ P DATA TENKBI KEYBOARD/CTW, I
0x0cfb88…0cfd1c Dummy {f00=0x0060, f01=0x0190, f02=» x & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P DATA TENITO INTERTASK COMMUNICATION, OUTPUT 2 P XIF f P* r P EJECT TOSSIO | P* P* P********** P* MONMMU * P********** P* P* MONITOR (SYSTEM) MMU TABLE
0x0cfd1c…0cfeb0 Dummy {f00=0x0060, f01=0x0190, f02=»400,/1800,/1C00 " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 > P XIF d P* p P EJECT TOSSIO z P* P* P IFT ATTDET=1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* P*
0x0cfeb0…0d0044 Dummy {f00=0x0060, f01=0x0190, f02=» = BLOCK ADDRESS P* A5 = TTAB ADDRESS P* A6 = DWT ADDRESS < " P* A1-A3 ARE DESTROYED ^ P* PTIMOUT LDR A6,A1 & P LDR* A2,A2 TIMER POINTER ADDRESS P LD A5,2,A2 GET TTAB ADDRESS P* P IFT MMUPA
0x0d0044…0d01d8 Dummy {f00=0x0060, f01=0x018e, f02=»,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK 2 P* H P EJECT TOSSIO R P* j & P* REMOVE TTAB FROM DEVICE QUEUE t P* P LDR A1,A6 & P ADK A1,DWTTQ QUEUE ANCHOR ADDRESS P* PTIM:10 LDR A2,A1 SAVE
0x0d01d8…0d036c Dummy {f00=0x0060, f01=0x018e, f02=» P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE & P* P P LDR* A1,A1 Z P STR A1,A2 n P* PTIM:20 EQU * P LDK A3,4 . P ADS A3,TTB:SA,A5 UPDATE DISPATCH ADDRESS : P LD A8,TTB:SA+16,A5 GET ECB ADDRESS FR
0x0d036c…0d0500 Dummy {f00=0x0060, f01=0x0190, f02=» P XIF P* P IFT ATTDET=1 P IFT MMUPAG=1 0 * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB F . P TL MONMMU LOAD MONITOR (SYSTEM) MMU TABLE t P XIF P* P IFT ATTDET=1 & P RF TIORTN QUEUE TASK AND DISPATCH P* P E
0x0d0500…0d0694 (2, 98) Dummy {f00=0x0060, f01=0x0190, f02=»B ADDRESS ~ P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0 V P* ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS P* PFND:10 LDR A2,A4 SAVE A4 P LDR* A4,A4 P RF(Z) F
0x0d0694…0d0828 Dummy {f00=0x0060, f01=0x0190, f02=»BL IHRTN RETURN P XIF P* $ P IFT ATTDET=1 . P IFT CPU852=0 D P RTN A15 RETURN Z P XIF r P* ~ P IFT ATTDET=1 & PATT:CH DATA 0 ATTACH CHAIN ANCHOR P* P EJECT TOSSIO P* P* F D B A T T / F D
0x0d0828…0d09bc Dummy {f00=0x0060, f01=0x0190, f02=»A5 = TTAB ADDRESS P* A6 = FDB ADDRESS $ P* A10 = /800 (ATTACH BIT) < P* d " P* OUTPUT: A2-A4 AREA DESTROYED n P* PFDBDET EQU * P C1R A10,A10 A10=F7FF P* PFDBATT EQU * P LDR A4,A6 FDB ADDRESS
0x0d09bc…0d0b50 Dummy {f00=0x0060, f01=0x0190, f02=»A2,A4 NEXT FDB P RF(Z) FDB:20 NO FDB? ! P LDR A10,A10 ! 4 " P RF(N) FDB:15 DETACH REQUEST? ! H $ P ORS A10,DWTST,A2 ATTACH REQUEST ! n P ST A5,DWTTAB,A2 ! P RF FDB:20 ! P* ! * PFDB:15 ANS A10,DWTST,A2 DETACH REQUEST ! P CF A15,QREQ UPD
0x0d0b50…0d0ce4 Dummy {f00=0x0060, f01=0x0190, f02=»E Q ! P* " 8 P* SUBROUTINE TO QUEUE TASK IN DEVICE QUEUE (IF ANY) " P* " R P* INPUT: A2 = DWT ADDRESS " P* " ~ " P* OUTPUT: A7, A9 ARE DESTROYED " P* " PQREQ EQU * " & P LDR A9,A5 SAVE A5 (TTAB ADDRESS) " & P LD A5,DWTTQ,A2 ANY
0x0d0ce4…0d0e78 Dummy {f00=0x0060, f01=0x0190, f02=»TASK " | P* # PQRE:10 EQU * # $ P LDR A5,A9 RESTORE TTAB ADDRESS # * P IFT CPU852=1 # R P RB FND:20 RETURN # h P XIF # P* # P IFT ATTDET=1 # P IFT CPU852=0 # P RTN A15 RETURN # P XIF # P* # P IFT ATTDET=1 # P
0x0d0e78…0d100c Dummy {f00=0x0060, f01=0x0190, f02=»MODULE IS CALLED FROM TIO WITH # P* THE FOLLOWING PARAMETERS: $ & P* $ J & P* A3 /8000 (REQUEST ERROR BIT) $ T & P* A4 I/O AND ACTIVATE INDICATOR $ ~ P* A5 TTAB ADDRESS $ P* A6 DWT ADDRESS $ P* A7 ORDER CODE $ P* A8 ECB AD
0x0d100c…0d11a0 Dummy {f00=0x0060, f01=0x0190, f02=»CH EQU * ENTRY $ P ADK A4,0 SET CR % * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR? % . P* % P IFT MMUPAG=0 % f " P CM ECBRC,A8 RESET RETURN CODE % | P XIF % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % & P ES A4,ECBRC,A8 RESET RETURN CODE %
0x0d11a0…0d1334 (2, 99) Dummy {f00=0x0061, f01=0x0190, f02=»ALREADY ATTACHED? % z P LDR A13,A13 & P RF(NN) ATT:50 DEVICE BUSY? & . P* & R P* ATTACH REQUESTING TASK & P* & P ORS A10,DWTST,A6 ATTACH & , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT & P CWK A12,TIODM & " P RF(NE) ATT:15 NO DM REQ
0x0d1334…0d14c8 Dummy {f00=0x0061, f01=0x0190, f02=»4,0 SET CR & P RF(Z) ATTRTN NO! ' P* ' , P EJECT TOSSIO ' 6 P* ' N & P* FREE BLOCK AND TIMER IN ATT:CH ' X P* ' P CM* 2,A4 FREE TIMER ' " P LDR* A3,A4 REMOVE FROM ATT:CH ' P STR A3,A2 ' P CF A15,FREBLK RELEASE BLOCK ' P RF
0x0d14c8…0d165c Dummy {f00=0x0061, f01=0x0190, f02=»A15,FNDBLK ' P ADK A4,0 SET CR ( $ P RF(NZ) ATT:70 IS TIMER ACTIVE? ( , P* ( T P* SET TIMER ( ^ P* ( v P IFT MMUPAG=0 ( P LD A1,ECBCW,A8 TIME ( P XIF ( P* ( P EJECT TOSSIO ( P* ( P* ( P IFT ATTDET=1 (
0x0d165c…0d17f0 Dummy {f00=0x0061, f01=0x0190, f02=»Z) ATT:80 END REQUEST? ( P* ) PATT:60 ST A1,ATTIM ) ( P LDR A1,A5 TTAB ADDRESS ) B P LD A3,ATT:CH ANCHOR ) b P CF A15,GETBLK GET BLOCK ) ~ P ST A4,ATT:CH UPDATE ANCHOR ) $ P ADK A4,2 TIMER POINTER ADDRESS ) P LDR A1,A6 DWT ADDRESS ) P
0x0d17f0…0d1984 Dummy {f00=0x0061, f01=0x0190, f02=» P RF TIOQ20 * P* * & PATT:80 LDK A3,/40 SET TIME OUT BIT * P RF TIOERR RETURN * J P* * d P EJECT TOSSIO * n P* * P* * P********** * P* DETACH * * P********** * P* * * P* THIS MODULE IS CALLED FROM TIO WITH * $ P
0x0d1984…0d1b18 Dummy {f00=0x0061, f01=0x0190, f02=» P TM A10,A13 + P RF(Z) TIOERR NOT ATTACHED? + P CW A5,DWTTAB,A6 + < * P RF(NE) TIOERR ATTACHED TO OTHER TASK? + T P XRS A10,DWTST,A6 DETACH + P CWK A12,TIODM + " P RF(NE) DET:05 NO DM REQUEST? + ( P CF A15,FDBDET DETACH FILE STRUCTURE +
0x0d1b18…0d1cac Dummy {f00=0x0061, f01=0x0190, f02=»ATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT + PDETRTN LDK A3,0 RETURN CODE , 6 P XIF , Z P* , f P EJECT TOSSIO , p P* , P* , P********** , P* TIOERR * , P********** , P* , P* ERROR: FILE CODE UNKNOWN , ( P* TIOERR I
0x0d1cac…0d1e40 Dummy {f00=0x0061, f01=0x0190, f02=»,ECBRC,A8 INDICATE ERROR IN ECB , P XIF - ( P* - 4 P IFT MMUPAG=1 - > * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB - T P XIF - P* - PTIORTN EQU * - ( P ABL LKMQDI QUEUE TASK AND DISPATCH - P* - P EJECT TOSSIO - P* - P* -
0x0d1e40…0d1fd4 (2, 100) Dummy {f00=0x0061, f01=0x018e, f02=»ICE REQUESTS. - j > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON . @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING . X 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT, AND WHEN . B P* ATTACHED, WHETHER THE DEVICE IS ATTACHED TO TH
0x0d1fd4…0d2168 Dummy {f00=0x0061, f01=0x018e, f02=» P* / ( PTIOQ05 ADK A6,DWTTQ GET QUEUE ANCHOR / P LDR A2,A6 / : P LDR* A6,A6 / L $ P RF TIOQ40 INSERT FIRST IN QUEUE / ` P* / & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE / P* / ( PTIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR / P LD A1,TTB:ST+1,A5 GET
0x0d2168…0d22fc Dummy {f00=0x0061, f01=0x0190, f02=» $ P LDR* A6,A6 FOLLOW QUEUE TO END 0 P RF(Z) TIOQ40 END FOUND? 0 , & P CC A1,TTB:ST+1,A6 COMPARE LEVELS 0 L P RB(NL) TIOQ30 TRY NEXT? 0 v P* 0 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 0 P* 0 PTIOQ40 LDKL A3,-4 0 P STR A6,A5 INSER
0x0d22fc…0d2490 Dummy {f00=0x0061, f01=0x018e, f02=»OQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM 0 P* 1 6 PTIOQ60 EQU * 1 @ P ABL TDISP GO TO DISPATCHER 1 T P* 1 x P EJECT TOSSIO 1 P* 1 P* 1 P******* 1 P* TIO * 1 P******* 1 P* 1 P* 1 . P* THIS MODULE IS ENTER
0x0d2490…0d2624 Dummy {f00=0x0061, f01=0x0190, f02=» 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. 2 P* 2 : 2 P* WHEN RUNNING WITH MMU OPTION SPECIAL DEVICE 2 D * P* DEPENDENT SUBROUTINES ARE PERFORMED. 2 z P* 2 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 2 & P* WITH THE FOLLOWING PARAMET
0x0d2624…0d27b8 Dummy {f00=0x0061, f01=0x018e, f02=»ZERO, I/O AND ACTIVATION 2 P* 3 P* A5 = TTAB ADDRESS 3 * P* 3 F P* A7 = ORDER CODE 3 P P* 3 j P* A8 = ECB ADDRESS 3 t P* 3 P EJECT TOSSIO 3 P* 3 P* 3 < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 3 * P*
0x0d27b8…0d294c Dummy {f00=0x0061, f01=0x0190, f02=» P* A7 = ORDER CODE 4 P* 4 P* A8 = ECB ADDRESS 4 ( P* 4 D , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK 4 N P* 4 ~ 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 4 . P* = 1, " " " " USER MODE 4 P* 4 P* 4 , P* THE
0x0d294c…0d2ae0 Dummy {f00=0x0061, f01=0x0190, f02=» AND ECHO FIELDS 4 P* -DWTTAB TTAB ADDRESS 5 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 5 8 . P* -DWTUEC USER ECB ADDRESS (MMU SYSTEMS) 5 b P* 5 P* 5 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 5 P* 5 P* -BIT 0 IN THE FIRST WORD 5 P* -
0x0d2ae0…0d2c74 (2, 101) Dummy {f00=0x0061, f01=0x0190, f02=» REQUEST IS BUSY 5 r P* 6 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 6 " P LDKL A3,/8000 6 N P ADK A6,0 SET CR 6 d $ P RB(Z) TIOERR FILE CODE UNKNOWN? 6 | : P LD A12,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 6 $ P LD A13,DWTST,A6 GET DWT STATUS 6
0x0d2c74…0d2e08 Dummy {f00=0x0061, f01=0x0190, f02=»ATTACH ORDER? 6 P SUK A7,1 7 P RB(Z) DETACH DETACH ORDER? 7 ( " P ADK A7,/BC RESTORE ORDER CODE 7 L P XIF 7 r P* END OF =1 7 ~ " P LD A11,TTB:ID,A5 GET TASK ID 7 P ANKL A11,/FF44 7 P SUKL A11,'#D' CHECK TASK ID 7 " P RF(Z) TIO020 DMTA
0x0d2e08…0d2f9c Dummy {f00=0x0061, f01=0x0190, f02=»SIO 7 P* 8 & P* CHECK IF DEVICE IS ATTACHED/BUSY 8 P* 8 @ P IFT ATTDET=1 8 J P TM A10,A13 8 ` P RF(Z) TIO020 NOT ATTACHED? 8 t P CW A5,DWTTAB,A6 8 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK? 8 P TM A3,A13 8 $ P RF(NZ) TIO030 DEVICE NO
0x0d2f9c…0d3130 Dummy {f00=0x0061, f01=0x0190, f02=»USY? 8 z P* 9 P EJECT TOSSIO 9 P* 9 . H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED 9 8 P* 9 * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 9 P LDK A2,/40 CHECK IF ECHO 9 P ANR A2,A7 9 P RF(Z) TIO070 NOT ECHO?
0x0d3130…0d32c4 Dummy {f00=0x0061, f01=0x0190, f02=» P* : . PTIO040 LD A2,DWTECH,A6 GET ECHO DEVICE DWT : " P RF(Z) TIO070 NO ECHO DEVICE? : @ & P LD A9,DEVIND,A12 GET DEVICE INDEX : f $ P CWK A9,KB:DIX CHECK IF KEYBOARD : 4 P RF(NE) TIO070 ECHO NOT ALLOWED IF NOT KEYBOARD : ( P LD A14,DWTST,A2 GET ECH
0x0d32c4…0d3458 Dummy {f00=0x0061, f01=0x0190, f02=» : 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK? ; P TM A3,A14 ; B ( P RF(NZ) TIO060 ECHO DEVICE NOT BUSY? ; T & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE ; P XIF ; P* ; P EJECT TOSSIO ; P* ; P* ; PTIO050 TM A3,A14 ; $ P RB(
0x0d3458…0d35ec Dummy {f00=0x0061, f01=0x0190, f02=»* ; P* UPDATE ECB AND DWT FIELDS < P* < . @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS IN DWT STATUS < 8 P* < | P IFT MMUPAG=1 < P LD A13,TTB:PW,A5 GET PSW < ( P ANKL A13,1 GET SYSTEM/USER MODE BIT < $ P RF(NZ) TIO100 JUMP IF USER MO
0x0d35ec…0d3780 Dummy {f00=0x0061, f01=0x0190, f02=»L,A8 RESET EFFECTIVE LENGTH < $ P CM ECBRC,A8 RESET RETURN CODE = $ P RF TIO110 = L P* = ^ P EJECT TOSSIO = h P* = P* MOVE USER ECB TO DWT ECB = P* = PTIO100 EQU * = P LDKL A2,/4FFF = * P ELR A3,A8 LOAD FIRST WORD OF USER ECB =
0x0d3780…0d3914 (2, 102) Dummy {f00=0x0062, f01=0x0190, f02=»B,A6 SET ACTUAL ECB ADDRESS = P STR A3,A2 > $ * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS > 6 P LDR A9,A8 > d P LDK A3,0 > v * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH > & P ES A3,ECBRC,A8 RESET RETURN CODE > P* > P LDR A10,A1 SAVE PARAMETER >
0x0d3914…0d3aa8 Dummy {f00=0x0062, f01=0x0190, f02=» MOVE PART OF USER ECB TO DWT ECB > " P LDR A1,A10 RESTORE PARAMETER ? * P XIF ? P P* ? P IFT MMUPAG=0 ? f P LDKL A3,/7FFF ? | , P ANRS A3,A8 RESET BIT 0 IN ECB FILE CODE ? ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH ? $ P CM ECBRC,A8 RESET RETURN
0x0d3aa8…0d3c3c Dummy {f00=0x0062, f01=0x0190, f02=»/3F ? ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT @ P CWK A12,TIODM @ 8 * P RF(NE) TIO120 JUMP IF NOT DM REQUEST @ N 0 P ST A5,DWTTDM,A6 SAVE TTAB ADDRESS IN DWTTDM @ | P RF TIO130 @ P* @ PTIO120 EQU * @ 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRESS IN DW
0x0d3c3c…0d3dd0 Dummy {f00=0x0062, f01=0x0190, f02=» DWTWAT (WAIT/ACTIVATE INDICATOR) @ P* A * P LDR A2,A4 CHECK PARAMETER A 4 & P RF(NZ) TIO210 I/O AND ACTIVATION? A V 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED A P RF(Z) TIO220 NOT WAIT? A P LDK A4,1 INDICATE WAIT A P RF TIO230 A
0x0d3dd0…0d3f64 Dummy {f00=0x0062, f01=0x0190, f02=» P* B 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR B P* B J P EJECT TOSSIO B T P* B l P* B v P IFT MMUPAG=1 B * P LDR A13,A13 CHECK IF SYSTEM/USER MODE B & P RF(Z) TIO250 JUMP IF SYSTEM MODE B & P LD A3,DEVIND,A12 GET DEVI
0x0d3f64…0d40f8 Dummy {f00=0x0062, f01=0x0190, f02=»ER CODE B z P* C P LDR A4,A7 GET ORDER CODE C 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE C < . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER C p P* C PTIO240 EQU * C P ENB C < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE C
0x0d40f8…0d428c Dummy {f00=0x0062, f01=0x0190, f02=»A6 C P INH D & P ABR* A12 GO TO DRIVER ACTIVATION D P* D @ P EJECT TOSSIO D J P* D b P* D l P IFT MMUPAG=1 D v P* D P* R D : W R D P* D @ P* THIS MODULE IS CALLED BY 'TIO' AND 'TENDIO' FOR SELECTING D @ P* THE APPROPRIAT
0x0d428c…0d4420 Dummy {f00=0x0062, f01=0x0190, f02=» REQUEST, CONDITION REGISTER ON STACK IS D ~ * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. E 0 P* E ^ P* INPUT: A3 = DEVICE INDEX E h P* A6 = DWT ADDRESS E P* E : P* OUTPUT: A3 = INDEX FOR USE IN THE INDEXED BRANCHING E . P* CR = 0 I
0x0d4420…0d45b4 (2, 103) Dummy {f00=0x0062, f01=0x0190, f02=» GET ORDER CODE FROM DWT E | P ANK A4,/3F F P* F 4 * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER F > $ P LC A4,ORDTAB,A4 GET ORDER INDEX F l P ANK A4,/FF F . P ABR(Z)* A15 RETURN IF NO READ/WRITE ORDER F P SUK A4,1 F $ P ADR A3,A4 ADD READ/WRITE IN
0x0d45b4…0d4748 Dummy {f00=0x0062, f01=0x0190, f02=» * F P********** G P* G 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: G & P* G P* =0: NO READ/WRITE ORDER G f P* =1: READ ORDER G P* =TINDEX+1: WRITE ORDER G P* G PORDTAB EQU * ORDER CONSTANTS G P BYTES 0,1 /00, /01 G
0x0d4748…0d48dc Dummy {f00=0x0062, f01=0x0190, f02=» G v P BYTES 1,TINDEX+1 /0A, /0B H P BYTES 0,0 /0C, /0D H * P BYTES 0,0 /0E, /0F H F P BYTES 0,1 /10, /11 H b P BYTES 0,0 /12, /13 H ~ P BYTES 0,TINDEX+1 /14, /15 H P BYTES 0,0 /16, /17 H P BYTES 0,0 /18, /19 H P BYTES 0,0 /1A, /1B
0x0d48dc…0d4a70 Dummy {f00=0x0062, f01=0x0190, f02=»ES 0,0 /24, /25 H P BYTES 0,0 /26, /27 I P BYTES 0,0 /28, /29 I 4 P BYTES 0,0 /2A, /2B I P P BYTES 0,1 /2C, /2D I l P BYTES 1,TINDEX+1 /2E, /2F I P BYTES 0,0 /30, /31 I P BYTES 0,0 /32, /33 I P BYTES 0,0 /34, /35 I P BYTES 0,0
0x0d4a70…0d4c04 Dummy {f00=0x0062, f01=0x0190, f02=» P EJECT TOSSIO J P* J P* T I O : D M J & P* J < 4 P* THIS MODULE IS CALLED BY 'TIO' WHEN A REQUEST J F * P* FOR DATA MANAGEMENT HAS BEEN ISSUED. J ~ P* J & P* INPUT: A8 = FDB MMU ECB ADDRESS J $ P* A9 = USER ECB ADDRESS J P
0x0d4c04…0d4d98 Dummy {f00=0x0062, f01=0x0190, f02=»ADDRESS J p P ST A2,ECBBA,A8 K , P EL A2,ECBCW2,A9 GET SECOND CONTROL WORD K ( P ST A2,ECBCW2,A8 K X P* K p PA15RTN EQU * K z P RTN A15 K P* K P EJECT TOSSIO K P* K P* T I O P C I K P* K B P* THIS MODULE IS CALLED BY 'TI
0x0d4d98…0d4f2c Dummy {f00=0x0062, f01=0x0190, f02=»UFFER ADDRESSES SO THAT BOTH ARE K r < P* EVEN OR UNEVEN, DEPENDING ON THE USER BUFFER ADDRESS. L ( 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT L h , P* COMPLETION OF THE REQUEST IS 'TENPCI'. L 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. L P
0x0d4f2c…0d50c0 Dummy {f00=0x0062, f01=0x0190, f02=»* L P* OUTPUT: A1 IS DESTROYED M P* M , * PTIOPCI EQU * PROGRAMMED CHANNEL, INPUT M 6 ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH M d 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE M 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE? M P* M .
0x0d50c0…0d5254 (2, 104) Dummy {f00=0x0062, f01=0x0190, f02=» BUFFER ADDRESS EVEN? M ~ P ORS A1,ECBBA,A8 N P RTN A15 N 6 P* N F 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN N P P ANS A1,ECBBA,A8 N P RTN A15 N P* N P EJECT TOSSIO N P* N P* T I O M X I N P* N B P* THIS MODULE IS
0x0d5254…0d53e8 Dummy {f00=0x0062, f01=0x0190, f02=»ES THE FULL 18 BIT BUFFER ADDRESS WHICH IS N , P* TRANSFERRED TO THE MUX BY THE DRIVER. O 2 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT O b , P* COMPLETION OF THE REQUEST IS 'TENMXI'. O 6 P* NOTICE THAT MODULE 'TIOMXO' IS EQUAL TO TIOMXI. O P* O
0x0d53e8…0d557c Dummy {f00=0x0062, f01=0x0190, f02=»2 ARE DESTROYED O B P* 18 BIT USER BUFFER ADDRESS IS TRANSFERRED TO DWT ECB P P* P ^ PTIOMXI EQU * MUX, INPUT P h , P EL A1,ECBBA,A9 GET USER BUFFER ADDRESS P P ECR A2,A1 P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS P P SRL A2,3 P & P A
0x0d557c…0d5710 Dummy {f00=0x0062, f01=0x0190, f02=» P P ANK A2,/3F Q 4 P SCR A2,A8 STORE BITS 16-17 IN DWT ECB 1ST WORD Q P ANK A2,/0F Q T P SRC A2,4 Q h P ORR A1,A2 Q z 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS Q P RTN A15 Q P* Q P EJECT TOSSIO Q P* Q P* T I O K
0x0d5710…0d58a4 Dummy {f00=0x0062, f01=0x0190, f02=»KBI WILL SET BUFFER ADDRESSES Q d 6 P* AND MOVE KEYTABLE (IF ANY) BY USING ENTRY TIPI05 R & 0 P* IN 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. R ` 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT R , P* COMPLETION OF THE REQUEST IS 'TENKBI'. R P* R P*
0x0d58a4…0d5a38 Dummy {f00=0x0062, f01=0x0190, f02=»ADDRESS TO DRIVER ADDRESS BLOCK R P* S ( " P* OUTPUT: A1-A4 ARE DESTROYED S 2 P* S X PTIOKBI EQU * KEYBOARD/CTW S b ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH S 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE S 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS
0x0d5a38…0d5bcc Dummy {f00=0x0062, f01=0x018e, f02=»TABLE IF BASIC READ S | . P LD A4,ECBCW,A8 GET USER KEYTABLE ADDRESS T P RF(Z) TIKB20 NO KEYTABLE? T N P* T p P EJECT TOSSIO T z P* T P* T P LDR A1,A9 T P ADK A1,8 T P ADKL A8,12 T * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS T
0x0d5bcc…0d5d60 Dummy {f00=0x0062, f01=0x0190, f02=» , P ECR A3,A3 NO, PUT LENGTH IN RIGHT BYTE U P* U 4 * PTIKB10 ANK A3,/FF SKIP LEFT CHARACTER U > P ADK A3,1 U l 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE U ~ P RF(G) IO:ERR TOO SMALL? U P CF A15,TIPO05 U & P SUKL A8,8 ADJUST DWT ECB ADDRES
0x0d5d60…0d5ef4 (2, 105) Dummy {f00=0x0062, f01=0x018e, f02=»TI EQU A15RTN INTERTASK COMMUNICATION, INPUT U P* V 4 P EJECT TOSSIO V > P* V V P* T I O P C O V ` P* V v B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. V B P
0x0d5ef4…0d6088 Dummy {f00=0x0062, f01=0x0190, f02=» V N P* BUFFER TO THE DWT BUFFER. W 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT W , , P* COMPLETION OF THE REQUEST IS 'TENPCO'. W d 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. W F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'T
0x0d6088…0d621c Dummy {f00=0x0062, f01=0x0190, f02=» P* X " P* OUTPUT: A1-A4 ARE DESTROYED X P* X 4 , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT X > 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK X n ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH X * P RF(NP) TIPO20 REQUESTED LENGTH <= 0? X 2 P CW
0x0d621c…0d63b0 Dummy {f00=0x0062, f01=0x0190, f02=»B ADDRESS X t P* Y P EJECT TOSSIO Y P* Y 4 P* Y > : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' Y H P ADK A3,1 Y . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN Y , P EL A1,ECBBA,A1 GET USER BUFFER ADDRESS Y * P LD A2,ECBBA,A
0x0d63b0…0d6544 Dummy {f00=0x0062, f01=0x0190, f02=»SER BUFFER ADDRESS UNEVEN? Y P ST A2,ECBBA,A8 Z " P* Z : 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Z D P* Z ~ PTIPO20 RTN A15 Z P* Z 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Z 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNE
0x0d6544…0d66d8 Dummy {f00=0x0062, f01=0x0190, f02=»TE USER BUFFER POINTER Z ( P ADK A2,2 UPDATE DWT BUFFER POINTER [ ( P RB TIPO10 MOVE REMAINING CHARACTERS [ J P* [ v P EJECT TOSSIO [ P* [ P* I O : E R R [ P* [ , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. [ B P* SET RETURN CODE /800
0x0d66d8…0d686c Dummy {f00=0x0062, f01=0x0190, f02=»MMU ROUTINES [ l P INH $ P ADKL A15,4 ADJUST STACKPOINTER " P LD A1,DWTST,A6 GET DWT STATUS H P SLL A1,2 CHECK ECHO BIT n P RF(NN) IO:E10 NOT ECHO? P LDR A1,A6 SAVE DWT ADDRESS * P LD A6,DWTECH,A6 GET ECHO DWT ADDRESS P CF A15,
0x0d686c…0d6a00 Dummy {f00=0x0062, f01=0x0190, f02=»CH TO DISPATCHER VIA TENDIO P* ] $ P EJECT TOSSIO ] . P* ] F P* T I O M X O ] P P* ] f " PTIOMXO EQU TIOMXI MUX, OUTPUT ] p P* ] P* T I O K B O ] P* ] * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT ] P* ] P* T I O I T O ]
0x0d6a00…0d6b94 (2, 106) Dummy {f00=0x0063, f01=0x0190, f02=» P* ^ 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ^ . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ^ H P* ^ z P* INPUT: A6 = FDB ADDRESS ^ $ P* A8 = USER ECB ADDRESS ^ P* ^ " P* OUTPUT: A1-A2 ARE DESTROYED ^ P* ^ . P
0x0d6b94…0d6d28 Dummy {f00=0x0063, f01=0x0190, f02=»1,A1 ^ P ES A2,ECBCW2,A8 _ P RTN A15 _ $ P* _ 4 P EJECT TOSSIO _ > P* _ V P* T E N P C I _ ` P* _ v D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN _ @ P* COMPLETED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. _
0x0d6d28…0d6ebc Dummy {f00=0x0063, f01=0x0190, f02=» _ V & P* ISSUING THE REQUEST IS 'TIOPCI'. ` D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. ` 2 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. ` z P* ` P* INPUT: A6 = DWT ADDRESS ` $ P* A8 = USER ECB ADDRESS `
0x0d6ebc…0d7050 Dummy {f00=0x0063, f01=0x018e, f02=»CB ADDRESS ` v ( P LD A4,ECBEL,A2 GET EFFECTIVE LENGTH a " P RF(NP) TEPI30 NO MOVE IF ZERO a > * P LD A1,ECBBA,A2 GET DWT BUFFER ADDRESS a d P* a . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' a , P EL A2,ECBBA,A8 GET USER BUFFER ADDRESS a $ P LDK A3,1
0x0d7050…0d71e4 Dummy {f00=0x0063, f01=0x018e, f02=» a f , P RF(Z) TEPI60 USER BUFFER ADDRESS EVEN? b P* b 8 P EJECT TOSSIO b B P* b Z P* b d 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN b n 4 P LDR* A3,A1 GET FIRST CHARACTER FROM DWT BUFFER b P ELR A8,A2 b P* b * PTEPI15 ANK A3,/F
0x0d71e4…0d7378 Dummy {f00=0x0063, f01=0x0190, f02=» b d $ P ADK A1,1 UPDATE BUFFER POINTERS c P ADK A2,1 c 0 P SUK A4,1 c B * P RF(P) TEPI25 MORE CHARACTERS TO MOVE? c T P RTN A15 NO, RETURN c P* c PTEPI20 TM A3,A2 c , P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN? c & P LDR A3,A1 GET DWT BUFFE
0x0d7378…0d750c Dummy {f00=0x0063, f01=0x0190, f02=»R. ONE BYTE TO THE RIGHT c x & P SUK A3,1 POINT TO NEXT CHARACTER d 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER d J , P RB(NE) TEPI23 MORE CHARACTERS TO MOVE? d 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN d P RB TEPI10 d P* d P EJECT
0x0d750c…0d76a0 Dummy {f00=0x0063, f01=0x0190, f02=»UNEVEN? d p 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER e P* e D PTEPI30 RTN A15 e N P* e d , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN e n ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN e . P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE? e P LDR A8,A4 N
0x0d76a0…0d7834 (2, 107) Dummy {f00=0x0063, f01=0x0190, f02=» PTEPI50 EQU * f 2 P LDR* A8,A1 GET LAST CHARACTER FROM DWT BUFFER f P ELR A3,A2 f N P RB TEPI15 f ` P* f r . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN f | & P LDR A3,A1 GET DWT BUFFER ADDRESS f $ P ADR A1,A4 ADD EFFECTIVE LENGTH f P* f &
0x0d7834…0d79c8 Dummy {f00=0x0063, f01=0x0190, f02=» f n * P CWR A3,A1 COMPARE WITH ENDING ADDRESS g , P RB(NE) TEPI70 MORE CHARACTERS TO MOVE? g 6 . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS g f * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN g P RB TEPI25 g P* g P EJECT TOSSIO g P* g P* T
0x0d79c8…0d7b5c Dummy {f00=0x0063, f01=0x018e, f02=»PUT g r P* h P* T E N I T I h P* h , 4 PTENITI EQU TENPCI INTERTASK COMMUNICATION, INPUT h 6 P* h n P* T E N P C O h x P* h 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT h P* h P* T E N M X O h P* h " PTENMXO EQU A15RTN
0x0d7b5c…0d7cf0 Dummy {f00=0x0063, f01=0x0190, f02=» h ~ P* i P* T E N I T O i P* i ( F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN i 2 L P* COMPLETED FOR INTERTASK COMMUNICATION, IN PURPOSE TO MOVE THE CONTENTS i | J P* OF THE USER BUFFER TO THE DRIVER BUFFER. THE ENTRY TIPO05
0x0d7cf0…0d7e84 Dummy {f00=0x0063, f01=0x018e, f02=» A8 ARE DESTROYED i P* j 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT j $ ( P LD A8,DWTECB,A6 GET DWT ECB ADDRESS j X ( P LD A3,ECBEL,A8 GET EFFECTIVE LENGTH j P RF(NP) TEIO10 NO MOVE? j * P LD A1,DWTUEC,A6 GET USER ECB ADDRESS j ( P CF A15,TI
0x0d7e84…0d8018 Dummy {f00=0x0063, f01=0x0190, f02=» j < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER k < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO k H < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO' k " P* IS USED FOR MOVING THE DATA. k P* k P* INPUT: A6 = D
0x0d8018…0d81ac Dummy {f00=0x0063, f01=0x0190, f02=»,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER l * P TS 2,A15 SAVE MMU REGISTERS ON STACK l H & P LD A5,DWTTAB,A6 GET TTAB ADDRESS l v $ P TL TTB:MT,A5 LOAD MMU REGISTERS l ( P LD A8,DWTMEC,A6 GET DWT ECB ADDRESS l P ENB l ( P CF A15,
0x0d81ac…0d8340 Dummy {f00=0x0063, f01=0x0190, f02=» ADKL A15,32 ADJUST STACKPOINTER l * P MLR 8,A15 RESTORE A1-A8 FROM STACK... m ( P RTN A15 ...AND RETURN m V P XIF m t P* m P EJECT TOSSIO m P* m P* D C : M I N m P* m < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER m
0x0d8340…0d84d4 (2, 108) Dummy {f00=0x0063, f01=0x0190, f02=» A4 = DRIVER BUFFER ADDRESS m P* A6 = DWT ADDRESS n & P* n H ( P* OUTPUT: NO REGISTERS ARE DESTROYED n R P* n ~ PDC:MIN EQU * n P IFT MMUPAG=0 n P IFT CPU852=1 n & P CF A15,SAVE8 SAVE A1-A8 ON STACK n P XIF n P* n P
0x0d84d4…0d8668 Dummy {f00=0x0063, f01=0x0190, f02=»2,A15 SAVE MMU REGISTERS ON STACK n " P LD A5,DWTTAB,A6 TTAB ADDRESS o * $ P TL TTB:MT,A5 LOAD MMU REGISTERS o P P XIF o x P* o P EJECT TOSSIO o P* o & P* CHECK MESSAGE LENGTH AND DECIDE o $ P* IF TTMJOB IS TO BE ACTIVATED. o P* o
0x0d8668…0d87fc Dummy {f00=0x0063, f01=0x018e, f02=»2=1 o P LDK A7,128 852 CPU p ( P ANK A5,1 CHECK USER BUFFER ADDRESS p ( . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN p T P ADK A7,128 A7 := 256 p P XIF p P* p P IFT MMUPAG=0 p P IFT CPU852=0 p P IFT CPU857=0 p P LDK A7,80 8
0x0d87fc…0d8990 Dummy {f00=0x0063, f01=0x0190, f02=» P XIF q P* q P IFT MMUPAG=0 q P IFT CPU852=0 q 0 P IFT CPU857=1 q F P LDKL A7,256 857 CPU q ( P ANK A5,1 CHECK USER BUFFER ADDRESS q x . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN q P ADR A7,A7 A7 := 512 q P XIF q P* q P
0x0d8990…0d8b24 Dummy {f00=0x0063, f01=0x0190, f02=»ADDRESS q t P LDKL A7,256 r ( P ANK A5,1 CHECK USER BUFFER ADDRESS r $ . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN r P P SLL A7,3 A7 := 2048 r P XIF r P* r PDCMI00 EQU * r 8 P CW A7,ECBEL,A3 CHECK IF USER BUFFER IS LARGE ENOUGH r 2 P RF(
0x0d8b24…0d8cb8 Dummy {f00=0x0063, f01=0x018e, f02=» r p P IFT CPU852=1 s ( P ABL IHRET8 RESTORE A1-A8 AND RETURN s P XIF s J P* s V P IFT MMUPAG=0 s ` P IFT CPU852=0 s v * P MLR 8,A15 RESTORE A1-A8 FROM STACK... s P* s PDC:MOT RTN A15 ...AND RETURN s P XIF s P* s P IFT MMUPA
0x0d8cb8…0d8e4c Dummy {f00=0x0063, f01=0x0190, f02=» P* INPUT: A1 = RETURN CODE t P* A3 = ECB ADDRESS t & ( P* A4 = DRIVER BUFFER ADDRESS t H P* A6 = DWT ADDRESS t t P* t & P* OUTPUT: A1-A5, A7 ARE DESTROYED t P* t " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t * P L
0x0d8e4c…0d8fe0 Dummy {f00=0x0063, f01=0x0190, f02=»3 CHECK IF USER BUFFER IS LARGE ENOUGH t $ P RF(G) MIN:70 NO, REQUEST ERROR u . P* u V P IFT MMUPAG=0 u ` ( P LD A5,ECBBA,A3 USER BUFFER ADDRESS u v P LDR A3,A5 u ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVE
0x0d8fe0…0d9174 (2, 109) Dummy {f00=0x0063, f01=0x0190, f02=» P* v PMIN:10 EQU * v P LDR* A3,A7 MOVE ONE WORD v " P STR A3,A5 v D ( P ADK A7,2 INCREMENT BUFFER POINTERS v V P ADK A5,2 v $ P SUK A2,2 DECREMENT LOOP COUNTER v 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v P* v PMIN:20 EQU *
0x0d9174…0d9308 Dummy {f00=0x0063, f01=0x0190, f02=» MOVE ONE CHARACTER v P SCR A3,A5 w ( P ADK A7,1 INCREMENT BUFFER POINTERS w . P ADK A5,1 w Z $ P SUK A2,1 DECREMENT LOOP COUNTER w l 6 P RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE w P XIF w P* w P IFT MMUPAG=1 w * P ST A1,ECBRC,A
0x0d9308…0d949c Dummy {f00=0x0063, f01=0x0190, f02=»DRESS w t ( P CF A15,TEN:DC MOVE BUFFER CONTENTS x & P LDR A4,A7 RESTORE BUFFER ADDRESS x : P LDK A1,0 x d P XIF x v P* x P EJECT TOSSIO x P* x P* x PMIN:40 EQU * x P INH x " P CF A15,TENDIO PERFORM TENDIO x P* x P
0x0d949c…0d9630 Dummy {f00=0x0063, f01=0x0190, f02=»N:50 EQU * x " P LDR A2,A1 SAVE BUFFER ADDRESS y $ P LDR* A1,A2 NEXT BUFFER ADDRESS y 8 , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN y ` P* y $ P* INSERT BUFFER AT END OF CHAIN y P* y " P SUK A4,6 REAL BUFFER ADDRESS y " P STR A4,A2 UPDATE QUEU
0x0d9630…0d97c4 Dummy {f00=0x0063, f01=0x0190, f02=»8008 REQUEST ERROR/INCORRECT LENGTH y $ P RB MIN:40 RETURN VIA TENDIO ETC z , P* z T P EJECT TOSSIO z ^ P* z v P* D C M I N T z P* z 2 P* TTMJOB WILL BE DISPATCHED HERE TO CARRY OUT z 2 P* THE MOVE OF THE DC DRIVER BUFFER CONTENTS TO z
0x0d97c4…0d9958 Dummy {f00=0x0063, f01=0x018e, f02=» ( P* A4 = DRIVER BUFFER ADDRESS { P* { 0 * PDCMINT EQU * TTMJOB MOVE BUFFER ENTRY { : P LDR A6,A3 DWT ADDRESS { h P LD A3,DWTECB,A6 ECB ADDRESS { P* { P IFT MMUPAG=1 { P INH { " P LD A5,DWTTAB,A6 TTAB ADDRESS { $ P TL TTB:MT,A
0x0d9958…0d9aec Dummy {f00=0x0063, f01=0x0190, f02=» { ( P CF A15,MINMOV MOVE BUFFER CONTENTS | P ABL MEXIT EXIT TTMJOB | 4 P* | R P EJECT TOSSIO | P* | t P* Q M T A S K | ~ P* | : P* WHEN THE MOVE WILL TAKE TOO LONG TIME TTMJOB WILL BE | 6 P* ACTIVATED AT ENTRY 'DCMINT' TO PERFORM THE
0x0d9aec…0d9c80 Dummy {f00=0x0063, f01=0x0190, f02=»R BUFFER ADDRESS | | P* A6 = DWT ADDRESS } P* } : PQMTASK EQU * ACTIVATE TTMJOB } D $ P LDKL A2,DCMINT DISPATCH ADDRESS } h P LDR A3,A6 DWT ADDRESS } " P CF A15,QMJOB ACTIVATE TTMJOB } P LDKL A1,/8000 NOT BUSY BIT } " P ORS A1,DWTST,A6
0x0d9c80…0d9e14 (2, 110) Dummy {f00=0x0064, f01=0x0190, f02=» IFT CPU852=1 } PDC:MOT INH ~ 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS ~ ( P XIF ~ ^ P* ~ j P EJECT TOSSIO ~ t P* ~ P* ~ P********** ~ P* TENDIO * ~ P********** ~ P* ~ P* ~ . P* THIS MODULE IS CALLED WHEN C
0x0d9e14…0d9fa8 Dummy {f00=0x0064, f01=0x0190, f02=»THE TASK ~ r P* P* -IF NORMAL I/O WITH WAIT:- P* > * P* QTJOB IS CALLED TO QUEUE THE TASK H 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- v P* P* A5 = TTAB ADDRESS P* $ P* -IF NORMAL I/O WITH NO WAIT:-
0x0d9fa8…0da13c Dummy {f00=0x0064, f01=0x0190, f02=»UT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. P* > P EJECT TOSSIO H P* ` P* j 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- t P* P* A1 = RETURN CODE P* P* A6 = DWT ADDRESS P* P* NO REGIS
0x0da13c…0da2d0 Dummy {f00=0x0064, f01=0x0190, f02=»* P EJECT TOSSIO P* " P* END I/O ENTRY , P* D PTENDIO EQU * N P IFT CPU852=1 b & P CF A15,SAVE8 SAVE A1-A8 ON STACK x P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF
0x0da2d0…0da464 Dummy {f00=0x0064, f01=0x018e, f02=»,DWTTQ,A6 GET TERMINAL QUEUE LINK " P RF(Z) TEN110 NO TASK QUEUED? * P LD A2,TTB:ID,A5 GET TASK ID P P ANKL A2,/FF44 t P CWK A2,'#D' CHECK TASK ID " P RF(E) TEN100 DM REQUEST NEXT? P LDKL A2,/800 ATTACH BIT P ANR* A2,A4 & P R
0x0da464…0da5f8 Dummy {f00=0x0064, f01=0x0190, f02=» P EJECT TOSSIO P* P* * PTEN100 EQU * 4 , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS H P ST A3,DWTTQ,A6 x . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST P* P* UPDATE ECB AND DWT P* 4 PTEN110 LD A5,DWTTAB,A6
0x0da5f8…0da78c Dummy {f00=0x0064, f01=0x0190, f02=»ET TTAB ADDRESS ~ 4 P CF A15,REQEND RESET REQUEST BUSY FOR ALL FILES P* P PTEN120 LDKL A2,/8000 Z , P ORRS A2,A4 INDICATE DEVICE READY IN DWT v P LDKL A3,/DBFF ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 $ P LD A3,DWTECB,A6 GET ECB ADDRESS
0x0da78c…0da920 Dummy {f00=0x0064, f01=0x0190, f02=»SET EVENT COMPLETED IN ECB , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB " P* R P IFT MMUPAG=1 P LD A4,TTB:PW,A5 GET PSW r & P ANK A4,1 GET SYSTEM/USER MODE BIT P RF(Z) TEN200 SYSTEM MODE? P* P* LOAD MMU REGISTERS P*
0x0da920…0daab4 (2, 111) Dummy {f00=0x006a, f01=0x018e, f02=»EGISTERS FROM TTAB x P* P EJECT TOSSIO $ P* < P* MOVE DWT ECB TO USER ECB F P* h * P LD A8,DWTUEC,A6 GET USER ECB ADDRESS r P ELR A4,A8 * P ORR A4,A2 SET EVENT COMPLETED IN ECB P ESR A4,A8 P LDR A1,A3 P ADK
0x0daab4…0dac48 Dummy {f00=0x006a, f01=0x0190, f02=» 8 P LD A3,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK & P LD A3,DEVIND,A3 GET DEVICE INDEX D . P RF(N) TEN160 NO SPECIAL ACTION REQUIRED? n " P RF(Z) TEN140 DATA MANAGEMENT? P* " P* PERFORM CHECK ON ORDER CODE P* , P CF A15,
0x0dac48…0daddc Dummy {f00=0x006a, f01=0x0190, f02=» A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* < P EJECT TOSSIO F P* ^ P* RESTORE MMU REGISTERS h P* PTEN150 EQU * P INH P* PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL
0x0daddc…0daf70 Dummy {f00=0x006a, f01=0x0190, f02=»IVATION b P* PTEN200 EQU * 0 P LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR . * P RF(Z) TEN250 NOT WAIT OR ACTIVATION? b P SUK A4,1 P RF(Z) TEN240 WAIT? P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) TEN230 ACTIVA
0x0daf70…0db104 Dummy {f00=0x006a, f01=0x018e, f02=» RF(Z) TEN210 SYSTEM MODE? . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS " P XIF T P* ` PTEN210 EQU * j 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA ~ P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A3,A
0x0db104…0db298 Dummy {f00=0x006a, f01=0x0190, f02=» P* P EJECT TOSSIO P* & P* 0 PTEN230 EQU * : 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR N . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS P RF TEN250 P* PTEN240 EQU * 2 P CF A15,QTJOB WAIT: QUEUE TA
0x0db298…0db42c Dummy {f00=0x006a, f01=0x40d2, f02=»2=1 P ABL IHRET8 P XIF P* , P IFT CPU852=0 6 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... L P RTN A15 ...AND RETURN z P XIF P* P* P* P END @ PTEN240 EQU * 2 P CF A15,QTJOB WAIT: QUEUE TA
0x0db42c…0db5c0 Dummy {f00=0x006a, f01=0x2008, f02=» NT TOSSIO END @ &
0x0db5c0…0db754 (2, 112) Dummy {f00=0x006b, f01=0x0190, f02=»MOT, , ( ' $ C B B A , ( A ? A A A A ! ! A < , ( _ _^_V @ P X R X P T l , ( { T Y W V P C , ( @ A A 4 @ @ , ( %P T @
0x0db754…0db8e8 Dummy {f00=0x006b, f01=0x0190, f02=» E ! P ! 4 _$ ! , ( 5 2_l 1 A T 0W W A A , , ( U W W W A A ! @ , ( u ! @ ! ! ! B J 4 , ( Q ! ! @ @ A @ , ( T @ ! 8 ! 0
0x0db8e8…0dba7c Dummy {f00=0x006b, f01=0x0190, f02=»J B ! ! | IH1501 6 INTSAVL 0 , ( 5 4 A ? hJ T A T P B IH1502 r , ( S 4 ! A ? h_ I " P , ( U@ q A < A 4 A _$B P , ( W N " * 9AY X
0x0dba7c…0dbc10 Dummy {f00=0x006b, f01=0x0190, f02=» 4 ? @ A @ T , ( J < @ A A * , ( P - a 4 X A > Z , ( J K@ Z A 4 A < ! @ , ( J i P ! ` ! H @ P a A 4 DW1500 , ( PA A
0x0dbc10…0dbda4 Dummy {f00=0x006b, f01=0x0190, f02=» z { ^ _ , ( -M . , ( -m ^ - H D ! V B GPz KPb OP SP UW [P _P g u wP. H D ! {-L - -N -N -N
0x0dbda4…0dbf38 Dummy {f00=0x006b, f01=0x0190, f02=» T* P& #P 3P 7T ? CT G K Q j U n Y r ] v a z e ~ H D !c gW Tp P Pr N P TD T> D H D !_ T4 P ` % 7 = x CP IP O b ] x cP g m H D !r qT y X T PP P2 R, T$
0x0dbf38…0dc0cc Dummy {f00=0x006b, f01=0x0190, f02=» H : P ` H $ W T t H D !p T +&B U Y H gP6 mR0 uP yT$ }T W P T T2 P4 0 H D ! ` PJ PL P P. W P P ' 5 CT GW KW WW [W | H D ! q _W o w T T T R
0x0dc0cc…0dc260 Dummy {f00=0x006b, f01=0x401e, f02=» ` - @ W T t H D !p T +&B U Y H gP6 mR0 uP yT$ }T W P T T2 P4 0 H D ! ` PJ PL P P. W P P ' 5 CT GW KW WW [W | H D ! q _W o w T T T R
0x0dc260…0dc3f4 (2, 113) Opaque[0x194]
0x0dc3f4…0dc588 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0318, f03=0x0000}
0x0dc3f4…0dc588 IdxSect {
0x0dc3f4…0dc588 f00 = 0x0018 // 0xdc3f4 @0x0
0x0dc3f4…0dc588 f01 = 0x0036 // 0xdc3f6 @0x2
0x0dc3f4…0dc588 gno = [ // 0xdc3f8 @0x4
0x0dc3f4…0dc588 [0x00]: C0x0018.0x3.0
0x0dc3f4…0dc588 [0x01]: C0x0019.0x0.0
0x0dc3f4…0dc588 [0x02]: C0x0019.0x1.0
0x0dc3f4…0dc588 [0x03]: C0x0019.0x2.0
0x0dc3f4…0dc588 [0x04]: C0x0019.0x3.0
0x0dc3f4…0dc588 [0x05]: C0x001a.0x1.0
0x0dc3f4…0dc588 [0x06]: C0x001a.0x2.0
0x0dc3f4…0dc588 [0x07]: C0x001b.0x0.0
0x0dc3f4…0dc588 [0x08]: C0x001b.0x3.0
0x0dc3f4…0dc588 [0x09]: C0x001c.0x0.0
0x0dc3f4…0dc588 [0x0a]: C0x001c.0x1.0
0x0dc3f4…0dc588 [0x0b]: C0x001d.0x1.0
0x0dc3f4…0dc588 [0x0c]: C0x001d.0x2.0
0x0dc3f4…0dc588 [0x0d]: C0x001d.0x3.0
0x0dc3f4…0dc588 [0x0e]: C0x001e.0x0.0
0x0dc3f4…0dc588 [0x0f]: C0x001e.0x1.0
0x0dc3f4…0dc588 [0x10]: C0x001e.0x2.0
0x0dc3f4…0dc588 [0x11]: C0x001e.0x3.0
0x0dc3f4…0dc588 [0x12]: C0x001f.0x1.0
0x0dc3f4…0dc588 [0x13]: C0x0047.0x0.0
0x0dc3f4…0dc588 [0x14]: C0x0047.0x1.0
0x0dc3f4…0dc588 [0x15]: C0x0048.0x0.0
0x0dc3f4…0dc588 [0x16]: C0x0048.0x1.0
0x0dc3f4…0dc588 [0x17]: C0x0048.0x2.0
0x0dc3f4…0dc588 [0x18]: C0x0048.0x3.0
0x0dc3f4…0dc588 [0x19]: C0x0049.0x0.0
0x0dc3f4…0dc588 [0x1a]: C0x0049.0x1.0
0x0dc3f4…0dc588 ]
0x0dc3f4…0dc588 }
0x0dc588…0dc71c Dummy {f00=0x0018, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 9.2 79-12-20 870105040920 P : : P =1,FAULTY LENGTH OF TEMPORARY BUFFER,USED BY XMOVE B P REL 9.2 79-12-20 ST P ENTRY SYSLDM P*************************** P* * P* ENTRIES A
0x0dc71c…0dc8b0 Dummy {f00=0x0018, f01=0x0190, f02=» P EXTRN REL P EXTRN SCLASS P EXTRN SCTADA , P EXTRN SCTANO B P EXTRN SCTBLK X P EXTRN SCTBUG n P EXTRN SCTCDT P EXTRN SCTDCT P EXTRN SCTDMC P EXTRN SCTDMI P EXTRN SCTDML P EXTRN SCTDMT P
0x0dc8b0…0dca44 Dummy {f00=0x0018, f01=0x0190, f02=»RN SCTPAG P EXTRN SCTPLD P EXTRN STTPSZ ( P EXTRN SCTPSZ > P EXTRN SCTSEG T P EXTRN SCTSFA j P EXTRN SCTSWB P EXTRN SCTTCT P EXTRN SYSBAS P EXTRN SYSLOD P EXTRN TCLASS P EXTRN TTMJOB P EXT
0x0dca44…0dcbd8 Dummy {f00=0x0018, f01=0x0190, f02=»XTRN CONVRT P EXTRN NXTBLK P EXTRN SYSLDA * P EXTRN SAVE01 @ P EXTRN SAVE02 V P EXTRN SAVE03 l P EXTRN SAVE04 P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09 P E
0x0dcbd8…0dcd6c Dummy {f00=0x0018, f01=0x0190, f02=» SAVE16 P EXTRN SAVE17 P EXTRN SAVE18 & P EXTRN SAVE19 < P EXTRN SAVE20 R P EXTRN SAVE21 h P EXTRN NUMSEG ~ P EXTRN SAVE23 P EXTRN SAVE24 P EXTRN SAVE25 P EXTRN BUFSIZ P EXTRN SYSBUF P EXTRN
0x0dcd6c…0dcf00 Dummy {f00=0x0018, f01=0x0190, f02=» P P , P*************************************** , P* CONDITIONAL ASSEMBLY * D , P*************************************** t P ( PMMUPAG EQU 1 MEMORY MANAGEMENT UNIT & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS $ PCREDIT
0x0dcf00…0dd094 (2, 114) Dummy {f00=0x0019, f01=0x0190, f02=»SS l 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME > $ PWBLEN EQU -4 LENGTH OF WORKBLOCK b P P $ P******************************* $ P* SAVE01URATION FILE (SAVE01) * $ P**********************
0x0dd094…0dd228 Dummy {f00=0x0019, f01=0x0190, f02=» , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS 4 $ PTDBTL EQU TDBMC+6 6A TASK LEVEL d : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES P* & PTDBFST EQU TDBNC+2 FIRST TERM DEF $ PTDC EQU 7
0x0dd228…0dd3bc Dummy {f00=0x0019, f01=0x0190, f02=»DEVICE CLASS-RECORD ~ P* P* COMMON DEVICE DEF. BLOCK: & PCDBBT EQU 0 1A BLOCK TYPE J 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES l ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD P* P* & P* USER WORK BLOCK TYPE DEF. BLOCK
0x0dd3bc…0dd550 Dummy {f00=0x0019, f01=0x0190, f02=» l PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS ( . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH N P EJECT P**************** P* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS P PLMP1 EQU
0x0dd550…0dd6e4 Dummy {f00=0x0019, f01=0x0190, f02=»QU /10 PLMP8 EQU 8 PLMP9 EQU 4 PLMP10 EQU 2 2 PLMP11 EQU 1 F P Z F P***************************************************************** f F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P*
0x0dd6e4…0dd878 Dummy {f00=0x0019, f01=0x0190, f02=»*************************************************************** P H P T P ` PCALL FORM 16=/F697,16 l P EJECT F P***************************************************************** F P* CONSTANTS USED IN SYS
0x0dd878…0dda0c Dummy {f00=0x0019, f01=0x018e, f02=» ********** P* * TTAB * P* ********** 8 P* PTTB:MT EQU -34 f PTTB:SB EQU -2 | PTTB:ID EQU 2 PTTB:ST EQU 4 PTTB:PP EQU 6 PTTB:PW EQU 8 PTTB:SA EQU 10 PTTB:TD EQU 40
0x0dda0c…0ddba0 Dummy {f00=0x0019, f01=0x0190, f02=» " PDWTCHP EQU 0 CHANNEL PARAMETER PDWTST EQU 2 STATUS . PDWTECB EQU 4 ECB ADDRESS H PDWTOR EQU 6 ORDER h PDWTADR EQU 8 ADDRESS BLOCK PDWTTAB EQU 10 TTAB ADDRESS * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINA
0x0ddba0…0ddd34 (2, 115) Dummy {f00=0x0019, f01=0x0190, f02=» *********** " P* * PAGTAB * " P* *********** < P* b PPAGQF EQU 0 l PPAGQB EQU 2 PPAGPA EQU 4 PPAGSB EQU 6 P EJECT P* & P* ************* & P*
0x0ddd34…0ddec8 Dummy {f00=0x0019, f01=0x0190, f02=»CT P* * P* ******************* * P* * MISCELLANOUES * B * P* ******************* p P* PBUFLEN EQU -4 PDEVIND EQU -2 PDWTLEN EQU 6 PTDCDD1 EQU 5 PTDCDD2 EQU 6
0x0ddec8…0de05c Dummy {f00=0x0019, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * P : P* * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * :
0x0de05c…0de1f0 Dummy {f00=0x0019, f01=0x0190, f02=»TERS: * : P* * 4 : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDA * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA * : P*
0x0de1f0…0de384 Dummy {f00=0x0019, f01=0x0190, f02=»**************** j PSYSLDM EQU * ( P ST P,SCTSFA+2 SAVE LOCATION COUNTER , . P LDKL A11,SYSBAS GET SYSBAS START ADDRESS X , P ST A11,SCTSFA UPDATE START OF FREE AREA P LDR A8,P INIT STACK POINTER & P ADK A1,2 RELOCATION ROUTINE ENTRY P
0x0de384…0de518 Dummy {f00=0x0019, f01=0x0190, f02=»RESS TO SCLASS? v $ P RF(E) NO:TCL YES:DUMMY TCLASS! , P CALL CHPTRS RELOCATE POINTERS IN TCLASS @ 6 P ST A2,SAVE18,A13 SAVE RELOCATED POINTER TO TCLASS p 0 PNO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS , P CALL CHPTRS RELOCATE POINTERS IN SCLASS
0x0de518…0de6ac Dummy {f00=0x0019, f01=0x0190, f02=»EFA P LD A2,SCTSFA PCLRSYS EQU * " P SUK A1,2 6 P CMR A1 H P CWR A1,A2 X P RB(NE) CLRSYS j P LDKL A1,CONMON P AD A1,M:REL,A13 P ABR A1 P EJECT 4 /*********************************************** 4 /*
0x0de6ac…0de840 Dummy {f00=0x0019, f01=0x0190, f02=»POINTER TO TCLASS/SCLASS ( P* A11 - SYSLOD START ADDRESS ( #* A12 - RELOCATION CONSTANT L * x 2 .* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS * * WORK REGISTER:A1-A7 * * SUBROUTINES: *
0x0de840…0de9d4 (2, 116) Dummy {f00=0x0019, f01=0x0190, f02=» OF TCLASS/SCLASS z CHPT10 EQU * . ) SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? . RF(Z) CHPT30 NO! ` ADK A3,2 NEXT ENTRY z $ ! LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE STR A5,A3 STORE $ LDR* A6,A5 GET LENGTH
0x0de9d4…0deb68 Dummy {f00=0x0019, f01=0x0190, f02=» LDR* A7,A5 GET DWT-ADDRESS P LDR A9,A7 GET DWT-ADDRESS ( " P CALL CMPADR COMPARE ADDRESSES J P RB(G) CHPT20 DWT IN DRIVER! p ADR A7,A12 RELOCATE * % STR A7,A5 STORE RELOCATED DW-ADDRESS " P LD A8,SCTOPT GET OPTION WORD P ANK
0x0deb68…0decfc Dummy {f00=0x0019, f01=0x0190, f02=»SS p * P ANKL A9,1 ADDRESS ALREADY RELOCATED? P RB(NZ) CHPT20 YES! 8 P ADR A8,A12 RELOCATE T . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED p , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 CHPT30 EQU * P RTN A14 P
0x0decfc…0dee90 Dummy {f00=0x0019, f01=0x0190, f02=»******************************************** * 4 * REFERENCED IN: MONCON > * ^ 2 P* ENTRY: SAVE01 - START OF SAVE01URATION DATA h P EJECT 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABL
0x0dee90…0df024 Dummy {f00=0x0019, f01=0x0190, f02=» ENTRY: SAVE01 - START OF SAVE01URATION DATA * 4 " * EXIT: A6 - START OF TC:TAB > $ * A7 - LENGTH OF TC:TAB d * * WORK REGISTERS: A2,A3 * * SUBROUTINES: * . )* TASK CONTROL TABLE L
0x0df024…0df1b8 Dummy {f00=0x0019, f01=0x0190, f02=»___________________ z . ** I TTMJOB I . )* _________________________ N . ** I MONITOR TASKS I . )* _________________________ . ** I USER TASKS
0x0df1b8…0df34c Dummy {f00=0x0019, f01=0x0190, f02=» OF SAVE01URATION DATA t ( $ LD A7,SCTSFA GET START OF FREE AREA LDR A6,A7 SAVE J & " LDKL A2,TTMJOB GET TTMJOB ADDRESS b ST A2,2,A7 STORE IN TC:TAB * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY OPTIONS AVALIABLE?
0x0df34c…0df4e0 Dummy {f00=0x0019, f01=0x0190, f02=»PTIONS AVALIABLE * h @ P* - TO BE PROVIDED * @ P*********************************************************** ` PBTCT15 EQU * " P LD A2,SCTDMT DATA MANAGEMENT? P RF(Z) BTCT30 NO! P LDR A3,A2 SAVE
0x0df4e0…0df674 (2, 117) Dummy {f00=0x0019, f01=0x0190, f02=» A2,A3 GET SCTDMT P ANK A2,2 DM-TASK D1? P RF(Z) BTCT25 NO! 8 * P ADK A7,2 RESERV ENTRY FOR DM-TASK D0 R PBTCT25 EQU * P LDR A2,A3 GET SCTDMT P ANK A2,4 DMTASK D2? P RF(Z) BTCT30 NO! ( P ADK A7,2 RESERV ENTRY FOR DMTAS
0x0df674…0df808 Dummy {f00=0x0019, f01=0x0190, f02=»SK DEFINITION BLOCK z * 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY & , P ST A7,SAVE02,A13 FIRST USER TASK ENTRY LCR A2,A11 GET BLOCK TYPE ( # CCK A2,'TT' TASK DEFINITION BLOCK? RF(E) BTCT35 YES P LDKL A1,LMP4 FORMAT
0x0df808…0df99c Dummy {f00=0x0019, f01=0x0190, f02=» EQU * $ CALL GETTSK GET NUMBER OF TASKS PBTCT50 EQU * 6 , P ADK A7,2 RESERV ANOTHER ENTRY IN TC:TAB J & P CW A7,SCTEFA CHECK IF MEMORY LEFT z P RF(NE) BTCT55 YES! P LDKL A1,LMP3 ( P CALL ERROR INDICATE MEMORY OVERFLOW PBTCT55
0x0df99c…0dfb30 Dummy {f00=0x0019, f01=0x0190, f02=» TASK DEFINITION BLOCK? RB(E) BTCT40 YES ! * ! : 4 0* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB ! D * ! | * % ST A7,SCTSFA UPDATE END OF FREE AREA ! SUR A7,A6 LENGTH OF TC:TAB ! & ! STR A7,A6 STORE LENGTH IN TC:TAB ! * P ST A6
0x0dfb30…0dfcc4 Dummy {f00=0x0019, f01=0x0190, f02=»TT - BUILD DATA MANAGEMENT TASK TABLES * ! 6 1************************************************* " 2 * " l * &* ENTRY: SCTSFA - START OF FREE AREA " v * P* SCTTCT - ADDRESS TO TC:TAB " 2 -* SCTDMT - DATA MANAGEMENT INDICATOR "
0x0dfcc4…0dfe58 Dummy {f00=0x0019, f01=0x0190, f02=» EQU * " * % LD A12,SCTSFA GET START OF FREE AREA # ( P LD A7,SCTTCT GET POINTER TO TC:TAB # < " ADK A7,4 FIRST DM-TASK ENTRY # h $ LD A2,SCTDMT DATA MANAGEMENT? # RF(Z) DMTTEX NO! # . ) LDR A3,A2 SAVE DATA MANAGEMENT INDICATOR # . * LD A6
0x0dfe58…0dffec Dummy {f00=0x0019, f01=0x0190, f02=»L DMTGEN # DMTT10 EQU * $ , ( LDR A2,A3 GET DATA MANAGEMENT INDICATOR $ $ ANK A2,2 DM-TASK D1? $ T RF(Z) DMTT20 NO! $ r P LDKL A1,'#E' TASK ID $ CALL DMTGEN $ DMTT20 EQU * $ , ( LDR A2,A3 GET DATA MANAGEMENT INDICATOR $ ANK A
0x0dffec…0e0180 Dummy {f00=0x0019, f01=0x018e, f02=» RTN A14 % EJECT % 6 2************************************************** % " 6 2* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE * % 6 2************************************************** % * % * ENTRY: A1 - TASK ID % , (* A6
0x0e0180…0e0314 (2, 118) Dummy {f00=0x001a, f01=0x0190, f02=» * EXIT: & * & * WORK REGISTERS: & * & 8 * SUBROUTINES: & B * & Z PDMTGEN EQU * & d " P LD A2,SCTOPT GET OPTION WORD & x P ANK A2,1 MMU OPTION? & P RF(Z) DMTG20 NO! & P LDK A4,0 RESET PAGE POINTER & PDMTG10 EQU * &
0x0e0314…0e04a8 Dummy {f00=0x001a, f01=0x0190, f02=»ER & n , P ADKL A12,2 INCREMENT MMU ENTRY POINTER ' P RB DMTG10 ' : PDMTG20 EQU * ' L " P LD A2,SCTOPT GET OPTION WORD ' ` P ANK A2,2 DISC PAGING? ' P RF(Z) DMTG40 NO! ' PDMTG30 EQU * ' & P ADKL A12,2 SEGMENT BLOCK ADDRESS ' PDMTG40 EQU *
0x0e04a8…0e063c Dummy {f00=0x001a, f01=0x0190, f02=»N ' l P LDKL A1,/0031 TASK LEVEL ( P ST A1,TTB:ST,A12 STORE ( , & P SLL A1,10 MOVE LEVEL TO LEFT BYTE ( L " P ORKL A1,/00C0 PROGRAM STATUS ( v $ P ST A1,TTB:PW,A12 STORE IN TTAB ( " ADKL A12,40 TERMINAL DEVICES ( LDK A1,6 LENGTH ( STR A
0x0e063c…0e07d0 Dummy {f00=0x001a, f01=0x0190, f02=»DR A12,A1 RESERV SPACE FOR BUFFERS ( P LD A2,SCTSFA ) * P SUK A2,2 ) @ PDMTG50 ADK A2,2 ) R * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW ) j P RF(NE) DMTG60 NO! ) P LDKL A1,LMP3 ) ( P CALL ERROR INDICATE MEMORY OVERFLOW ) PDMTG60 CWR A2,A12 )
0x0e07d0…0e0964 Dummy {f00=0x001a, f01=0x0190, f02=» ) r " * B:TT - BUILD TASK TABLES * * " ****************************** * . * * T * REFERENCED IN: MONCON * ^ * * ~ 4 P* ENTRY: SAVE01 - START OF SAVE01URATION DATA * * * 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * *
0x0e0964…0e0af8 Dummy {f00=0x001a, f01=0x0190, f02=»* TASK TABLE LAYOUT * * &* ________________________ + , * &* I MMU I + Z * &* I TABLE I + * &* I 16 I + * &* I WORDS
0x0e0af8…0e0c8c Dummy {f00=0x001a, f01=0x0190, f02=»---- + n * &* TASK ENTRY I QUEUE I , * &* ------------------------ , : * &* TTB:ID I TASK IDENTIFICATION I , h * &* ------------------------ , * &* TTB:ST I STATUS/LEVEL I , * &* --------
0x0e0c8c…0e0e20 Dummy {f00=0x001a, f01=0x0190, f02=»RAM STATUS WORD I , | * &* ------------------------ - * &* TTB:SA I DISPATCH ADDRESS I - H * &* ------------------------ - v * &* I REGISTER I - * &* I SAVE I - * &*
0x0e0e20…0e0fb4 (2, 119) Dummy {f00=0x001a, f01=0x0190, f02=» ------------------------ - * &* TTB:TD I TASK I . ( * P* I SAVE01URATION I . V * &* I TABLE I . * &* : : . * &* : : .
0x0e0fb4…0e1148 Dummy {f00=0x001a, f01=0x018e, f02=» ______________________________ . 0 ,* I LENGTH I / * 0 ,* ------------------------------ / ^ 0 ,* I INDEX/FILCODE I / 0 ,* ------------------------------ / 0 ,*
0x0e1148…0e12dc Dummy {f00=0x001a, f01=0x0190, f02=» / b 0 ,* : : 0 0 ,* ------------------------------ 0 < 0 ,* I INDEX/FILECODE I 0 p 0 ,* ------------------------------ 0 0 ,* I DWT-ADDRESS I 0
0x0e12dc…0e1470 Dummy {f00=0x001a, f01=0x0190, f02=»D A11,SAVE01,A13 GET START OF SAVE01URATION DATA 0 . P LD A2,SCTDML GET NUMBER OF LOCAL DM-FILES 1 8 P SLL A2,2 MULTIPLY BY 4 1 j 6 P ST A2,SAVE04,A13 SAVE NUMBER OF BYTES TO RESERVE 1 PBTT10 EQU * 1 $ LCR A2,A11 GET FIRST BLOCK TYPE 1 ( # CCK A2,
0x0e1470…0e1604 Dummy {f00=0x001a, f01=0x0190, f02=» 1 ( $* GET NUMBER OF TASKS IN THIS CLASS 2 * 2 4 CALL GETTSK 2 > P ST A1,SAVE19,A13 SAVE 2 R * 2 p * GET TASK ID START VALUE 2 z * 2 ( P LC A5,TDBID+4,A11 GET FIRST ID CHAR 2 SLL A5,8 MOVE TO LEFT BYTE 2 * P LC A5,TDBID+5,A11
0x0e1604…0e1798 Dummy {f00=0x001a, f01=0x0190, f02=» VALUE 2 v P* 3 , P LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL 3 P SLL A5,8 MOVE TO LEFT BYTE 3 H . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL 3 l $ P CALL GETTCL GET TCL START VALUE 3 P ST A5,SAVE17,A13 SAVE 3 P XIF 3 P EJECT 3 * 3
0x0e1798…0e192c Dummy {f00=0x001a, f01=0x0190, f02=»+5,A11 GET SECOND DIGIT IN LEVEL 3 " CALL CONVRT CONVERT TO BINARY 4 ( P ST A1,SAVE24,A13 SAVE 4 N * 4 l B P* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE 4 v * 4 $ LDKL A10,TTB:TD STANDARD LENGTH 4 " P LD A5,SCTOPT GET OPTION W
0x0e192c…0e1ac0 Dummy {f00=0x001a, f01=0x0190, f02=»V SPACE FOR EXTRA WORDS 4 z RF BTT30 5 PBTT25 EQU * 5 2 " P LD A5,SCTOPT GET OPTION WORD 5 F P ANK A5,2 DISC PAGING? 5 l RF(Z) BTT30 NO 5 2 . SUKL A10,TTB:SB ONE WORD EXTRA IF DISC PAGING 5 0 , SUKL A12,TTB:SB RESERV SPACE FOR EXTRA WORD 5
0x0e1ac0…0e1c54 (2, 120) Dummy {f00=0x001b, f01=0x0190, f02=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART 5 " P* OF TASK SAVE01URATION TABLE 6 @ * 6 f LDK A6,0 RESET LENGTH 6 p : 5 LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK 6 4 0 ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION 6 $ CAL
0x0e1c54…0e1de8 Dummy {f00=0x001b, f01=0x0190, f02=» 6 l & " ADR A1,A1 2*(BINARY CLASS NUMBER) 7 , P LD A8,SAVE18,A13 GET POINTER TO TCLASS 7 2 P LDR* A2,A8 7 b P SUK A2,2 7 v P CWR A1,A2 7 P RF(NG) BTT37 7 P LDKL A1,LMP4 7 & P CALL ERROR INDICATE FORMAT ERROR 7 PBTT37 EQU * 7 " P ADR
0x0e1de8…0e1f7c Dummy {f00=0x001b, f01=0x0190, f02=»GTH WORD 7 z ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH 8 . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH 8 < ADKL A9,TDC+TLC NEXT CLASS 8 n ( # SUK A7,1 DECREMENT NUMBER OF TDC:S 8 RB BTT35 8 P EJECT 8 PBTT40 EQU * 8 * 8 > :* COMPUTE S
0x0e1f7c…0e2110 Dummy {f00=0x001b, f01=0x0190, f02=»EVICE CLASSES 8 l P ADKL A9,2 FIRST SDC RECORD 9 LDR A7,A1 SAVE 9 : PBTT50 EQU * 9 R RF(Z) BTT55 NO MOORE SDC:S 9 f ( $ CALL GETCLN GET CLASS NUMBER (1-99) 9 & " ADR A1,A1 2*(BINARY CLASS NUMBER) 9 , P LD A8,SAVE11,A13 GET POINTER TO SCLASS
0x0e2110…0e22a4 Dummy {f00=0x001b, f01=0x0190, f02=»ERROR 9 t PBTT52 EQU * : " P ADR A8,A1 GET ENTRY IN SCLASS : " $ P LDR* A8,A8 GET POINTER TO CLASS : H $ P LDR* A8,A8 GET LENGTH OF CLASS : p " SUKL A8,2 EXCLUDE LENGTH WORD : ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH : . ) ADR A6,A8 ADD TO TASK CONF. T
0x0e22a4…0e2438 Dummy {f00=0x001b, f01=0x0190, f02=»D A7,SAVE04,A13 GET NUMBER OF BYTES TO RESERV : ( P ADR A10,A7 ADD TO TOTAL TTAB LENGTH ; 6 . P ADR A6,A7 ADD TO TASK CONF. TABLE LENGTH ; b " P ADK A6,2 INCLUDE LENGTH WORD ; 2 P LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB ; 8 P LD A8,SAVE19,A13 GET NU
0x0e2438…0e25cc Dummy {f00=0x001b, f01=0x0190, f02=»B ; ^ * < ST A6,TTB:TD,A12 < * < . : 6* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD < 8 * < v $ P LD A5,SAVE24,A13 GET TASK LEVEL < $ ST A5,TTB:ST,A12 STORE IN TTAB < * < < 7* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM ST
0x0e25cc…0e2760 Dummy {f00=0x001b, f01=0x0190, f02=»2,1 MMU OPTION? < P ORR A5,A2 SET BIT 15 IF MMU = $ ST A5,TTB:PW,A12 STORE IN TTAB = < * = d ( $* STORE TASK IDENTIFICATION IN TTAB = n * = & P LD A5,SAVE16,A13 GET THIS TASK ID = $ ST A5,TTB:ID,A12 STORE IN TTAB = ADK A5,1 INCREMEN
0x0e2760…0e28f4 (2, 121) Dummy {f00=0x001b, f01=0x0190, f02=» IN TTAB = t P* > * P LD A5,SAVE17,A13 GET TCL START VALUE > " P ST A5,TTB:PP,A12 SAVE IN TTAB > H P ADK A5,1 INCREMENT TCL > n P ST A5,SAVE17,A13 SAVE > P XIF > , ' STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB > " ADK A7,2 NEXT ENTRY IN TC:TAB >
0x0e28f4…0e2a88 Dummy {f00=0x001b, f01=0x0190, f02=» NUMBER OF TASKS IN THIS CLASS > | RB BTT60 ? & P EJECT ? 8 PBTT70 EQU * ? F * ? Z * &* RESET POINTER TO START OF FREE AREA ? d * ? " P LD A5,SCTOPT GET OPTION WORD ? P ANK A5,1 MMU PAGING? ? RF(Z) BTT80 NO ? ( # ADKL A12,TTB:MT
0x0e2a88…0e2c1c Dummy {f00=0x001b, f01=0x0190, f02=»F(Z) BTT90 NO ? & " ADKL A12,TTB:SB SUBTRACT ONE WORD @ PBTT90 EQU * @ @ CALL NXTBLK GET NEXT BLOCK @ T ( # CCK A2,'TT' TASK DEFINITION BLOCK? @ x P RF(NE) BTT95 @ P LDKL A2,BTT20 @ P SUKL A2,REL @ P ADR A2,A13 @ P ABR A2 @ P
0x0e2c1c…0e2db0 Dummy {f00=0x001b, f01=0x0190, f02=»,LMP3 @ ( P CALL ERROR INDICATE MEMORY OVERFLOW A PBTT105 CWR A2,A12 A : P RB(NE) BTT100 A T * & ST A12,SCTSFA SAVE START OF FREE AREA A j RTN A14 RETURN A P IFT CREDIT=1 A EJECT A ( $************************************ A ( $* SEGG
0x0e2db0…0e2f44 Dummy {f00=0x001b, f01=0x0190, f02=»* SCTEFA - END OF FREE AREA A , (* SCTLAC - START OF APPLICATION B , * B , (* EXIT: SCTPAG - ADDRESS TO PAGE TABLE B f * B * WORK REGISTERS: A1-A12 B * B * SUBROUTINES: GETCON B * B EJECT B PSEGG
0x0e2f44…0e30d8 Dummy {f00=0x001b, f01=0x0190, f02=»,SCTADA APPLICATION DISC SECTOR ADDRESS B PSEG:05 EQU * C 0 0 P LD A2,SCTLAC LOGICAL ADDRESS OF COMMON PART C D P* C x " P* CHECK IF CREDIT APPLICATION C P* C P ADKL A2,PRGLG1 C P CALL GETCON C P CWK A1,'CR' C P RF(NE) SEGEX NOT CRED
0x0e30d8…0e326c Dummy {f00=0x001b, f01=0x0190, f02=»TABLE C p * P LDKL A1,/8400 STATUS FOR FIRST BLOCK D $ P STR A1,A12 STORE IN FIRST BLOCK D < 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART D d & P CALL GETCON GET POINTER TO P:MTAB D P LDR A2,A1 SAVE POINTER D P ADKL A2,6 ADDRESS TO P:BAS D
0x0e326c…0e3400 Dummy {f00=0x001b, f01=0x0190, f02=»L ADDRESS TO COMMON PART D x * P ADKL A2,NUMSEG GET NUMBER OF SEGMENTS E CALL GETCON E N ( # LDR A4,A1 SAVE NUMBER OF SEGMENTSS E d P RF(Z) SEG:50 NO SEGMENTS! E " ADK A2,2 FIRST SEGMENT BLOCK E " P LDK A3,1 INIT SEGMENT NUMBER E PSEG:10 EQU
0x0e3400…0e3594 (2, 122) Dummy {f00=0x001c, f01=0x0190, f02=»OPT GET OPTION WORD E P ANK A1,2 DISC PAGING? F P RF(NZ) SEG:35 YES! F : PSEG:30 EQU * F V * P LDKL A7,/8800 INDICATE LOADED IN CORE F j PSEG:35 EQU * F 2 P ORR A7,A3 INSERT SEGMENT NUMBER IN RIGHT BYTE F STR A7,A12 SET STATUS F $ ADKL A1
0x0e3594…0e3728 Dummy {f00=0x001c, f01=0x0190, f02=»SC PAGING? F RF(Z) SEG:40 G CALL GETCON G * , ( ADR A1,A5 PHYSICAL DISC SECTOR ADDRESS G > PSEG:40 EQU * G n STR A1,A12 SAVE IN SEGBLK G $ ADKL A12,2 NEXT ENTRY IN SEGBLK G ADK A2,2 EFFECTIVE LENGTH G CALL GETCON G STR A
0x0e3728…0e38bc Dummy {f00=0x001c, f01=0x018e, f02=» SUK A4,1 DECREMENT NUMBER OF SEGMENTS G RB(P) SEG:10 H . PSEG:50 LD A2,SCTSFA H D P SUK A2,2 H ` PSEG:60 ADK A2,2 H r P CW A2,SCTEFA H P RF(NE) SEG:70 H P LDKL A1,LMP3 H ( P CALL ERROR INDICATE MEMORY OVERFLOW H PSEG:70 CWR A2,A1
0x0e38bc…0e3a50 Dummy {f00=0x001c, f01=0x0190, f02=» P EJECT I D P*************************************************************** I D P* * I Z D P* * I D P*
0x0e3a50…0e3be4 Dummy {f00=0x001c, f01=0x0190, f02=»============================== * I z D P* * J 2 D P* REFERENCED IN: SYSLDM * J z D P* * J D
0x0e3be4…0e3d78 Dummy {f00=0x001c, f01=0x0190, f02=»* J R D P* EXIT: * K D P* * K R D P* WORK REGISTERS: A1-A12 * K D P*
0x0e3d78…0e3f0c Dummy {f00=0x001c, f01=0x018e, f02=» - ADDRESS TO S:BTAB PROTOTYPE * K r D P* A10 - SWB BLOCK POINTER * L * D P* A11 - POINTER IN CONF. FILE * L r D P* A12 - ADDRESS TABLE POINTER * L D P*
0x0e3f0c…0e40a0 Dummy {f00=0x001c, f01=0x0190, f02=» D P* * M D P* * M L D P*************************************************************** M P EJECT M PB:SWBT EQU * M & P LD A12,SC
0x0e40a0…0e4234 (2, 123) Dummy {f00=0x001c, f01=0x0190, f02=»IN CONF. FILE M h P* N & PBSWT10 CALL NXTBLK GET NEXT BLOCK N ( P CCK A2,'TT' TASK DEFINITION BLOCK? N J P RB(E) BSWT10 YES! N v 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? N P RF(NE) BSWT20 NO! N P ADKL A11,1 N " P CALL NXTCOM SKIP COMM
0x0e4234…0e43c8 Dummy {f00=0x001c, f01=0x0190, f02=» A6,A11 N & P CALL GETNUM NUMBER OF UWB RECORDS O P LDR A1,A5 SAVE O : $ P RF(Z) SWBERR ILLEGAL NUMBER!!! O R ( P ADKL A11,UDBFST-1 FIRST UWB RECORD O z ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD O $ P SUK A1,1 DECR. NUMBER OF TYPES O P RB(P) BSWT30
0x0e43c8…0e455c Dummy {f00=0x001c, f01=0x018e, f02=» O ~ ( P LDKL A1,0 NO SWB DEFINITION BLOCK! P $ P ST A1,SCTSWB CLEAR SWB POINTER P 4 P RTN A14 P & PBSWT44 ADKL A11,1 NUMBER OF TYPES P l * P ST A11,SAVE23,A13 START OF CONF. DATA P P LDR A6,A11 P P CALL GETNUM GET 3 DIGITS P P LDR A5,A5 ZER
0x0e455c…0e46f0 Dummy {f00=0x001c, f01=0x018e, f02=» P j P RF(NZ) BSWT48 FILE CREATED Q " PSWBERR LDKL A1,LMP6 SWB ERROR! Q , P CALL ERROR Q R 6 PBSWT48 ST A12,SCTSWB SAVE ADDRESS TO ADDRESS TABLE Q f , P ST A8,SAVE14,A13 SAVE ADDRESS TO $SWAP Q P ADKL A12,2 FIRST POINTER Q P LDR A10,A12 SAVE Q
0x0e46f0…0e4884 Dummy {f00=0x001c, f01=0x0190, f02=» Q n P LDR A2,A1 SAVE R , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS R $ P CALL GETCON GET S:BTAB ADDRESS R P * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB R x * P RB(Z) SWBERR NO SWB:S IN APPLICATION! R P ADK A1,2 ADDRESS TO NAME R P ST A1,SAVE21,A13
0x0e4884…0e4a18 Dummy {f00=0x001c, f01=0x0190, f02=» SUK A1,2 SKIP LENGTH R . PBSWT50 ADKL A10,2 RESERV ENTRY FOR POINTER S 2 P SUK A1,6 DECREMENT LENGTH OF S:BTAB PROTOTYPE S P $ P RB(P) BSWT50 NEXT SWB-PROTOTYPE S P SUK A4,2 SKIP LENGTH WORD S " P LDKL A9,0 RESET BLOCK COUNTER S , PBSWT60 STR A10,A12
0x0e4a18…0e4bac Dummy {f00=0x001c, f01=0x018e, f02=»B RECORDS S r 0 PBSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. T $ P CALL GETCON GET TWO FIRST CHAR. T F ( P ADKL A11,NAMUWB NAME IN CONF. FILE T n P LCR A3,A11 GET FIRST CHAR. T P SLL A3,8 MOVE TO LEFT BYTE T " P LC A3,1,A11 GET SECOND CHAR. T & P
0x0e4bac…0e4d40 Dummy {f00=0x001c, f01=0x0190, f02=» T r P SRL A1,8 ISOLATE CHAR. U 0 P LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE U ( P ANK A3,/FF ISOLATE CHAR. U " P CWR A1,A3 THIRD CHAR. EQUAL? U ~ P RF(E) BSWT75 YES! U $ PBSWT70 ADKL A11,NAMUWB SKIP NAME U ( P SUK A7,1 DECREMENT NUMBER OF TYPE
0x0e4d40…0e4ed4 (2, 124) Dummy {f00=0x001d, f01=0x0190, f02=» U P STR A7,A10 1:ST WORD V P ST A7,2,A10 2:ND WORD V & P ST A7,4,A10 3:RD WORD V D P ST A7,6,A10 4:TH WORD V b P RF BSWT95 V PBSWT75 EQU * V P* V P* MATCHING NAME FOUND V P* V & P ADKL A11,NAMUWB NUMBER OF COPIES V P LDR A
0x0e4ed4…0e5068 Dummy {f00=0x001d, f01=0x0190, f02=» RESTORE POINTER V $ P SUK A2,UPNAME PROTOTYPE ADDRESS W & P CALL GETCON GET PROTOTYPE ADDRESS W @ P LDR A2,A1 SAVE W j & P SUK A2,UPNAME LENGTH OF WORKBLOCK W P CALL GETCON W * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB W 0 P ST A8,2,A10 STORE DISC AD
0x0e5068…0e51fc Dummy {f00=0x001d, f01=0x0190, f02=»REMENT SECTOR NUMBER W | & P ADK A1,1 INCREMENT SECTOR COUNTER X " P SUKL A3,400 DECREMENT LENGTH X F P RB(P) BSWT90 MOORE SECTORS? X l P SUK A5,1 MOORE COPIES? X P RB(P) BSWT85 YES! X * P ST A1,SWBSEC,A10 STORE SECTOR LENGTH X ( P CW A8,SAVE25,A1
0x0e51fc…0e5390 Dummy {f00=0x001d, f01=0x018e, f02=»OINTER X ~ & P ADKL A9,1 INCREMENT BLOCK COUNTER Y 4 P LD A2,SAVE21,A13 CURRENT RECORD IN PROT. S:BTAB Y 8 . P ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB Y p P ST A2,SAVE21,A13 SAVE Y 0 P LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB Y P SUK A4,UP:REC DECRE
0x0e5390…0e5524 Dummy {f00=0x001d, f01=0x0190, f02=» Y P CALL ERROR SWB ERROR! Z 2 PBSWT99 ST* A9,SCTSWB SAVE NUMBER OF SWB TYPES Z & , P ST A10,SCTSFA UPDATE START OF FREE AREA Z P RTN A14 Z P XIF Z EJECT Z * &************************************** Z * &* MONBLK - GENERATE MONITOR BLOCKS
0x0e5524…0e56b8 Dummy {f00=0x001d, f01=0x018e, f02=»N SYSTEM) Z v $ P* WHERE N IS A SYSTEM CONSTANT [ $ P* DEFINED AT SYSTEM GENERATION [ : P* [ b * [ l * REFERENCED IN: SYSLOD [ v * [ * &* ENTRY: SCTSFA - START OF FREE AREA [ ( $* SCTEFA - END OF FREE AREA [ * [ . ** E
0x0e56b8…0e584c Dummy {f00=0x001d, f01=0x018e, f02=» * EJECT PMONBLK EQU * LDK A1,0 0 & ! LD A12,SCTSFA START OF FREE AREA B . P ST A12,FREQUE SAVE POINTER TO FIRST BLOCK l * $ * GET NUMBER OF TASKS IN SYSTEM * ( P LD* A7,SCTTCT GET LENGTH OF TC:TAB P*
0x0e584c…0e59e0 Dummy {f00=0x001d, f01=0x0190, f02=» x RF(Z) MON:20 NO ] P CALL BLKGEN ] " RB MON:10 ] 6 PMON:20 EQU * ] H * ] * GENERATE 19 MOORE BLOCKS ] f * ] LDK A2,19 ] P CALL BLKGEN ] * ] * GENERATE END BLOCK ] * ] STR A1,A12 ] ST A1,2
0x0e59e0…0e5b74 (2, 125) Dummy {f00=0x001d, f01=0x0190, f02=» MONITOR BLOCK AS BUFFER ] | P* ^ & P LD A1,BUFSIZ,A13 GET BUFFER SIZE ^ * P CWK A1,6 >6? ^ T $ P RF(NL) MON:30 NOT LESS ANYWAY! ^ j P LDK A1,6 BUFFER SIZE ^ P ST A1,BUFSIZ,A13 STORE ^ & P ST A12,SYSBUF,A13 START OF BUFFER ^ PMON:30 EQU * ^
0x0e5b74…0e5d08 Dummy {f00=0x001d, f01=0x0190, f02=»DKL A1,LMP3 ^ P CALL ERROR _ PMON:50 CWR A2,A12 _ ( P RB(NE) MON:40 _ B * & ST A12,SCTSFA UPDATE END OF FREE AREA _ X RTN A14 _ EJECT _ * %************************************* _ * %* BLKGEN - GENERATE MONITOR BLOCK * _ * %********
0x0e5d08…0e5e9c Dummy {f00=0x001d, f01=0x0190, f02=»ER OF BLOCKS TO BE GENERATED _ | $ * A12 - NEXT FREE ENTRY ` $ * ` L * EXIT: A1=0 ` V " * A12 - NEXT FREE ENTRY ` l * ` * WORK REGISTES: A3 ` * ` * SUBROUTINES: ` * ` 0 ,* MONITOR BLOC
0x0e5e9c…0e6030 Dummy {f00=0x001d, f01=0x0190, f02=» -------------------- ` 0 ,* I DATA 0 I a $ 0 ,* -------------------- a X 0 ,* I DATA 0 I a 0 ,* -------------------- a * a EJECT a
0x0e6030…0e61c4 Dummy {f00=0x001d, f01=0x0190, f02=»A12 a ST A1,-2,A12 b SUK A3,1 b " RB BLK:10 b 4 PBLKEX EQU * b F RTN A14 b Z EJECT b j L J************************************************************************ b x J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK
0x0e61c4…0e6358 Dummy {f00=0x001d, f01=0x018e, f02=»* b , (* ENTRY: SCTSFA - START OF FREE ARE (X) c 2 P* SAVE01 - START OF SAVE01URATION FILE c : ( #* SCTEFA - END OF FREE AREA c p * c * EXIT: c * c * WORK REGISTERS: A1-A12 c * c < 8* SUBROUTINES: GETTSK,GETTD
0x0e6358…0e64ec Dummy {f00=0x001d, f01=0x0190, f02=» c 2 P LD A11,SAVE01,A13 START OF SAVE01URATION FILE d & ! LD A12,SCTSFA START OF FREE AREA d > * d h 6 2* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK d r * d $ LCR A2,A11 GET FIRST CHARACTER d ( # CCK A2,'TT' TASK DEFINITION BLOCK? d
0x0e64ec…0e6680 Dummy {f00=0x001d, f01=0x0190, f02=» * e , P LD A7,SAVE02,A13 FIRST USER TASK ENTRY e P SUK A7,2 e > EJECT e P PDWTS10 EQU * e ^ * e r . )* GET NUMBER OF TASKS IN THIS TASK CLASS e | * e CALL GETTSK e PDWTS20 EQU * e P ST A1,SAVE19,A13 SAVE e * e * &
0x0e6680…0e6814 (2, 126) Dummy {f00=0x001d, f01=0x0190, f02=»ADDRESS e z 6 P ADKL A10,TTB:TD+2 TASK SAVE01URATION TABLE ENTRY f * f J 0 ,* INIT SUB-POINTER IN TASK DEFINITION BLOCK f T * f . * LDR A9,A11 START OF TASK DEFINITION BLOCK f , ' ADKL A9,TDBFST START OF TDC DEFINITION f P EJECT f * f
0x0e6814…0e69a8 Dummy {f00=0x001d, f01=0x018e, f02=»WTS40 f P CALL GETCLN GET TDC ID g P ADR A1,A1 g . , P LD A8,SAVE18,A13 GET POINTER TO TCLASS g @ P ADR A8,A1 GET CLASS ENTRY g p $ P LDR* A8,A8 GET POINTER TO CLASS g $ P LDR* A8,A8 GET LENGTH OF CLASS g " P SUKL A8,2 EXCLUDE LENGTH WORD g * P
0x0e69a8…0e6b3c Dummy {f00=0x001d, f01=0x0190, f02=» g j P RB DWTS30 h PDWTS40 EQU * h * h . , '* GET NUMBER OF SPECIAL DEVICE CLASSES h 8 * h h CALL GETSDC h r ADKL A9,SDCFST-CDBNC h LDR A1,A1 h PDWTS50 EQU * h P RF(Z) DWTS90 h P ST A1,SAVE17,A13 SAVE h * h * &
0x0e6b3c…0e6cd0 Dummy {f00=0x001d, f01=0x0190, f02=» CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS h * i 6 ADR A1,A1 i @ ( P LD A6,SAVE11,A13 POINTER TO SCLASS i R P ADR A6,A1 SELECT ENTRY i ~ $ P LDR* A6,A6 GET POINTER TO CLASS i P LDR A5,A6 SAVE i P LDR* A6,A6 GET LENGTH i " P SUK A6,2 EX
0x0e6cd0…0e6e64 Dummy {f00=0x001d, f01=0x0190, f02=»ENERATION OF DWT? i ~ P RF(Z) DWTS70 NO j * j 2 * COPY DWT j < * j P LDR A2,A12 TO-ADDRESS j Z , ' ADR A12,A3 UPDATE POINTER TO FREE AREA j x CALL MOVE COPY DWT j P EJECT j P* j 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SY
0x0e6e64…0e6ff8 Dummy {f00=0x001d, f01=0x0190, f02=»TOTYPE DWT-ADDRESS j ~ * P SUR A3,A2 COMPUTE RELOCATION CONSTANT k , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS k H P SUR A4,A3 RELOCATE k x $ P ANKL A4,/FFFE MAKE EVEN ADDRESS k " P ST A4,DWTMEC,A2 STORE IT BACK k PDWTS65 EQU * k $ LDR A1,A2 DT-ADDR
0x0e6ff8…0e718c Dummy {f00=0x001d, f01=0x0190, f02=»DDRESS k x $ LD A1,-2,A5 GET INDEX/FILECODE l STR A1,A10 SAVE IN TTAB l 6 2 P ADKL A10,4 UPDATE TASK SAVE01URATION POINTER l V PDWTS80 EQU * l * % SUK A6,4 DECREMENT NUMBER OF DEVICES l RB(P) DWTS60 NEXT DEVICE l P EJECT l * l 4 /
0x0e718c…0e7320 Dummy {f00=0x001d, f01=0x018e, f02=»DWTS50 l PDWTS90 EQU * m * m " 8 P* CHECK IF MOORE TASKS WITH THE SAME SAVE01URATION m , * m h P LD A1,SAVE19,A13 m r SUK A1,1 m RB(P) DWTS20 m * m , (* CHECK IF MOORE TASK DEFINITION BLOCKS m * m CALL NXTBLK m
0x0e7320…0e74b4 (2, 127) Dummy {f00=0x001e, f01=0x0190, f02=» P CW A2,SCTEFA n P RF(NE) DWTS99 n P LDKL A1,LMP3 n 0 ( P CALL ERROR INDICATE MEMORY OVERFLOW n F PDWTS99 CWR A2,A12 n r P RB(NE) DWTS95 n ST A12,SCTSFA n RTN A14 RETURN n EJECT n 4 0******************************************
0x0e74b4…0e7648 Dummy {f00=0x001e, f01=0x018e, f02=»************************************** n * o . * REFERENCED IN: MONCON o 8 * o X * ENTRY: o b * o t * EXIT: o ~ * o * WORK REGISTERS: A1-A12 o * o D @* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK o
0x0e7648…0e77dc Dummy {f00=0x001e, f01=0x0190, f02=» o P LDK A1,0 p 0 P LDKL A11,BDWT05 GET END OF TEMP. WORK AREA p & P AD A11,M:REL,A13 RELOCATE ADDRESS p N P LDR A7,A11 SAVE p x 2 P SU A7,SCTSFA+2 COMPUTE SIZE OF TEMP WORK AREA p $ P CWK A7,1808 IS AREA BIG ENOUGH? p P RF(L) BDWT02 NO! p , P
0x0e77dc…0e7970 Dummy {f00=0x001e, f01=0x0190, f02=»NTERRUPT TABLE AT END OF FREE AREA p n * q * PBDWT02 EQU * q 4 ( P LD A11,SCTEFA GET END OF FREE AREA q H ( $ LD A9,SCTSFA GET START OF FREE AREA q t PBDWT05 EQU * q LDK A7,0 RESET WORD COUNTER q PBDWT10 EQU * q CWR A11,A9 MEMORY OVERFLOW?
0x0e7970…0e7b04 Dummy {f00=0x001e, f01=0x0190, f02=»WORDS RESERVED? q RF(E) BDWT20 YES r $ SUKL A11,2 RESERV ANOTHER WORD r 2 P CMR A11 CLEAR MEMORY WORD r Z $ ADK A7,1 INCREMENT WORD COUNTER r | RB BDWT10 r PBDWT20 EQU * r * r 6 2* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES r
0x0e7b04…0e7c98 Dummy {f00=0x001e, f01=0x0190, f02=»2 r PBDWT30 EQU * s , ( STR A11,A7 SAVE INTERRUPT TABLE ADDRESS s & " ADK A7,2 NEXT ADDRESS TABLE ENTRY s N . * ADKL A11,224 NEXT INTERRUPT TABLE ADDRESS s x * % CW A11,SCTEFA ALL POINTERS INTIATED? s RB(NE) BDWT30 NO s * P ST A1,SCTEFA UPDATE E
0x0e7c98…0e7e2c Dummy {f00=0x001e, f01=0x0190, f02=» OF FREE AREA s x * t B >* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY t * t f 0 P LD A5,SAVE02,A13 GET FIRST USER TASK ENTRY t p 6 P ST A5,SAVE13,A13 STORE IN CURRENT USER TASK ENTRY t PBDWT40 EQU * t * t . )* GET NUMBE
0x0e7e2c…0e7fc0 Dummy {f00=0x001e, f01=0x0190, f02=»Y VALUE t t * u @ ;* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS u * u ^ CALL GETTDC u h * u | $ * CHECK IF TASK WITHOUT DEVICES u * u $ LDR A1,A1 ANY TERMINAL DEVICES? u RF(Z) BDW100 NO u 6 P ST A1,SAVE15,A1
0x0e7fc0…0e8154 (2, 128) Dummy {f00=0x001e, f01=0x0190, f02=» u ^ * v ( #* GET TERMINAL DEVICE CLASS NUMBER v * v > . * LDR A9,A11 START OF TASK DEFINITION BLOCK v H 4 0 ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION v z PBDWT55 EQU * v " CALL GETCLN GET CLASS NUMBER v ( P ST A1,SAVE14,A13 SAVE BINAR
0x0e8154…0e82e8 Dummy {f00=0x001e, f01=0x018e, f02=»TLCN GET LINE CONNECTION NUMBER v LDR A6,A1 SAVE BINARY VALUE w ( . * ADK A1,1 INCREMENT LINE CONNECTION NUMBER w L 4 / CALL BINASC CONVERT INCREMENTED VALUE TO ASCII w ~ , ' SC A5,TDC+4,A9 STORE RIGHT ASCII DIGIT w 2 - SRL A5,8 MOVE LEFT ASCII DIGIT TI
0x0e82e8…0e847c Dummy {f00=0x001e, f01=0x0190, f02=» * x 2 P LD A2,SAVE14,A13 GET BINARY VALUE OF CLASS ID x ADR A2,A2 2*ID x D ( P LD A7,SAVE18,A13 POINTER TO TCLASS x P ADR A7,A2 GET ENTRY x P* x : P* CHECK IF THIS IS AN ENTRY IN TCLASS -TO BE SUPPLIED x P* x $ P LDR* A7,A7 GET PO
0x0e847c…0e8610 Dummy {f00=0x001e, f01=0x0190, f02=» , (* A7 - POINTER TO TERMINAL DEVICE CLASS y * y 4 . ** THE ENTRY IN TEMPORARY INTERRUPT TABLE y > . ** IS DERIVED FROM LINE CONNECTION NUMBER, y p : 6* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT) y * y CALL DWTGEN y PBDWT90 EQU
0x0e8610…0e87a4 Dummy {f00=0x001e, f01=0x0190, f02=»NO y , P ST A1,SAVE15,A13 SAVE REMAINING NUMBER z $ ADKL A9,TDC+TLC NEXT TDC RECORD z : RB BDWT55 z b PBDW100 EQU * z t 2 P LD A1,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB z & ! ADK A1,2 INCREMENT ENTRY POINTER z P ST A1,SAVE13,A13 SAVE z 8 P L
0x0e87a4…0e8938 Dummy {f00=0x001e, f01=0x0190, f02=»TASK DEFINITION BLOCKS z ~ * { $ CALL NXTBLK SKIP TO NEXT BLOCK { ( ( # CCK A2,'TT' TASK DEFINITION BLOCK? { P RB(E) BDWT40 YES { | * { 0 ,* ALL TERMINAL DEVICE WORK TABLES GENERATED { * { P LD A2,SCTSFA { P SUK A2,2 { PBD
0x0e8938…0e8acc Dummy {f00=0x001e, f01=0x0190, f02=»B(NE) BDW105 { , P ST A12,SCTSFA UPDATE START OF FREE AREA | RTN A14 RETURN | D EJECT | , (**************************************** | l , P* B:CDT - BUILD COMMON DEVICE TABLE * | , (**************************************** | * | *
0x0e8acc…0e8c60 Dummy {f00=0x001e, f01=0x018e, f02=» | ` ( $* SCTEFA - END OF FREE AREA } * } 4 4 0* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE } > * } v * WORK REGISTERS: A1-A12 } * } < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE } * } EJECT } PB:CD
0x0e8c60…0e8df4 (2, 129) Dummy {f00=0x001e, f01=0x0190, f02=» } x * ~ * %* GET COMMON DEVICE DEFINITION BLOCK ~ * ~ @ PCDG:10 EQU * ~ J CALL NXTBLK ~ ^ ( # CCK A2,'TT' TASK DEFINITION BLOCK? ~ r RB(E) CDG:10 YES ~ ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? ~ P RF(NE) BCDTEX NO ~ P EJECT ~
0x0e8df4…0e8f88 Dummy {f00=0x001e, f01=0x0190, f02=»* ~ 0 P LDR A9,A11 START OF COMMON DEFINITION BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES > & P CALL GETCTC GET NUMBER OF C.T.C. x P LDR A6,A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-9
0x0e8f88…0e911c Dummy {f00=0x001e, f01=0x0190, f02=»SS r P SUK A2,2 EXCLUDE LENGTH & P CWR A1,A2 MAKE SURE CLASS EXISTS * P RF(NG) B:CT20 OK! T P LDKL A1,LMP4 FORMAT ERROR! n P CALL ERROR , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS $ P LDR* A1,A
0x0e911c…0e92b0 Dummy {f00=0x001e, f01=0x0190, f02=»RD IN CONF. FILE v " P SUK A6,1 DECR. NBR OF C.T.C. P RB B:CT10 > P EJECT P PB:CT30 EQU * ^ P* r : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES | 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* CALL GE
0x0e92b0…0e9444 Dummy {f00=0x001e, f01=0x018e, f02=» , P LD A5,SAVE11,A13 GET POINTER TO SCLASS P LDR* A2,A5 4 P SUK A2,2 H P CWR A1,A2 Z P RF(NG) BCDT15 l P LDKL A1,LMP4 P CALL ERROR PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS P
0x0e9444…0e95d8 Dummy {f00=0x001e, f01=0x0190, f02=» P EJECT P* < P* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES 6 P* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC ` P* 6 P* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR @ P* FILE-CODES AND DWT-ADDRESSES USED FOR D
0x0e95d8…0e976c Dummy {f00=0x001e, f01=0x0190, f02=»T DATA COMMUNICATION? " P LD A6,SCTDMT DATA MANAGEMENT P ORR A6,A1 DM OR DC? D " P LD A1,SCTOPT GET OPTION WORD ` $ P ANK A1,/A DISC PAGING OR SWB:S? , P ORR A6,A1 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:15 NO! , P LD A6,SAVE11,A1
0x0e976c…0e9900 Dummy {f00=0x001e, f01=0x018e, f02=»CLASS v * P LDR* A6,A6 GET POINTER TO LAST CLASS ( P LDR* A6,A6 GET LENGTH OF LAST CLASS < " P SUK A6,2 EXCLUDE LENGTH WORD h & P ADR A7,A6 ADD TO LENGTH OF CD:TAB PCDG:15 EQU * , P LD A6,SCTDMC GET NUMBER OF GLOBAL FILES P SLL A6,2 MU
0x0e9900…0e9a94 (2, 130) Dummy {f00=0x001e, f01=0x0190, f02=» EJECT * 6 1* INIT POINTER TO START OF FREE AREA AND TO CDTAB * Z ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT d $ P LCR A2,A11 COMMON DEVICE BLOCK? P CCK A2,'CC' P RF(E) CDG:18 * P ADKL A10,2 FIRST FREE ENTRY IN CDTAB
0x0e9a94…0e9c28 Dummy {f00=0x001e, f01=0x0190, f02=» P* * P LDR A9,A11 START OF COMMON DEF. BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES < & P CALL GETCTC GET NUMBER OF C.T.C. v , P LDR A1,A1 ANY COMMON TERMINAL CLASSES? PB:CT40 RF(Z) B:CT50 NO! P ST A1,SAVE15,A13 SAVE
0x0e9c28…0e9dbc Dummy {f00=0x001e, f01=0x0190, f02=»A1 SAVE , P LD A2,SAVE14,A13 GET CLASS IDENT NUMBER & P ADR A2,A2 CONVERT TO DISPLACEMENT @ , P LD A7,SAVE18,A13 GET POINTER TO TCLASS j & P ADR A7,A2 SELECT ENTRY IN TCLASS $ P LDR* A7,A7 GET POINTER TO CLASS . P CALL DWTGEN GENERATE DWT:S
0x0e9dbc…0e9f50 Dummy {f00=0x001e, f01=0x0190, f02=»T COUNTER ~ P RB B:CT40 . PB:CT50 ADKL A10,2 NEXT FREE ENTRY IN CDTAB $ P EJECT V * d , '* GET NUMBER OF SPECIAL DEVICE CLASSES n * CALL GETSDC ADKL A9,SDCFST-CDBNC P LDR A8,A1 PCDG:20 EQU * P RF(NP)
0x0e9f50…0ea0e4 Dummy {f00=0x001e, f01=0x0190, f02=»ASS IN SCLASS r * ADR A1,A1 T , P LD A6,SAVE11,A13 GET POINTER TO SCLASS 6 PCDG:25 EQU * f P ADR A6,A1 SELECT CLASS z & P LDR* A5,A6 SAVE POINTER TO CLASS $ P LDR* A6,A6 GET POINTER TO CLASS $ P LDR* A6,A6 GET LENGTH OF CL
0x0ea0e4…0ea278 Dummy {f00=0x001e, f01=0x0190, f02=» LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) CDG:40 NO , * D * COPY DWT N * b LDR A2,A12 TO-ADDRESS l , ' ADR A12,A3 UPDATE POINTER TO FREE AREA CALL MOVE COPY DWT P* 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU I
0x0ea278…0ea40c Dummy {f00=0x001e, f01=0x0190, f02=» PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS L P ANKL A4,/FFFE MAKE IT EVEN! | P SUR A4,A3 RELOCATE " P ST A4,DWTMEC,A2 STORE IT BACK PCDG:35 EQU * " LDR A1,A2 DWT-ADD
0x0ea40c…0ea5a0 Dummy {f00=0x001e, f01=0x0190, f02=»RESS v LD A1,-2,A5 GET FILE CODE STR A1,A10 STORE IN TTAB . $ ADKL A10,4 NEXT ENTRY IN CD:TAB P & " SUK A6,4 DECREMENT DEVICE COUNTER x RB(P) CDG:30 NEXT DEVICE P EJECT * , (* CHECK IF MOORE SPECIAL DEVICE CLASSES
0x0ea5a0…0ea734 (2, 131) Dummy {f00=0x001f, f01=0x0190, f02=»CTDMT DATA MANAGEMENT $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? F " P LD A5,SCTOPT GET OPTION WORD b $ P ANK A5,/A DISC PAGING OR SWB:S? , P ORR A1,A5 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:EX NO! , P LD A5,SAVE11,
0x0ea734…0ea8c8 Dummy {f00=0x001f, f01=0x0190, f02=»Y x * P LDR* A5,A5 GET POINTER TO LAST CLASS ( P LDR* A6,A5 GET LENGTH OF LAST CLASS 8 " P SUK A6,2 EXCLUDE LENGTH WORD d P RB CDG:30 PCDG:EX EQU * P LD A2,SCTSFA P SUK A2,2 PCDG:50 ADK A2,2 P CW A2,SCTEFA P R
0x0ea8c8…0eaa5c Dummy {f00=0x001f, f01=0x0190, f02=»T A12,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN . EJECT F J F********************************************************************** T H C* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS J F**************************
0x0eaa5c…0eabf0 Dummy {f00=0x001f, f01=0x0190, f02=»INTER TO TERMINAL DEVICE CLASS IN TCLASS ~ * &* A6 - LINE CONNECTION NUMBER 0 * ^ * EXIT: h * x * WORK REGISTERS: A1-A8 * * SUBROUTINES: I:CHP,MOVE * EJECT PDWTGEN EQU * 2 P ST A6,SAVE08,
0x0eabf0…0ead84 Dummy {f00=0x001f, f01=0x0190, f02=»RST FILECODE PDWT10 EQU * . ) LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT ( * Z 4 /* DERIVE CONTENT OF CHANNEL PARAMETER AND ALSO d 8 4* THE ENTRY TO BE USED IN TEMPORARY INTERRUPT TABLE 4 0* FROM LINE CONNECTION NUMBER AND PROTOTYPE DWT
0x0ead84…0eaf18 Dummy {f00=0x001f, f01=0x0190, f02=»TS ENTRY) | * 0 P* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) 4 P* SAVE06 HOLDS THE NUMBER STORED IN BITS 12-15 P * %* OF THE GENERATED CHANNEL PARAMETER 2 P LD A4,SAVE05,A13 GET SAVED NUMBER IN BITS 4-6 , P LD A3,SCTSFA+2 FIRST INT TA
0x0eaf18…0eb0ac Dummy {f00=0x001f, f01=0x0190, f02=»AMETER v PDWT15 EQU * " RF(Z) DWT17 LINE ENTRY FOUND * ADK A4,28 NEXT LINE P & " SUK A3,1 DECREMENT LINE PARAMETER l RB DWT15 EJECT PDWT17 EQU * 6 P ST A4,SAVE07,A13 SAVE INTERRUPT TABLE LINE ENTRY *
0x0eb0ac…0eb240 Dummy {f00=0x001f, f01=0x0190, f02=» DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES * 2 0 + LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT < P LDR A2,A6 SAVE p : 5 ANKL A6,/7100 GET DEVICE ADDRESS AND DEVICE TYPE BIT $ SLC A6,7 CHECK IF INPUT DEVICE P RF(N) DWT20 YES! P
0x0eb240…0eb3d4 (2, 132) Dummy {f00=0x0047, f01=0x0190, f02=»WT20 NO! P SRL A6,2 P ADK A6,12 " RF DWT30 4 PDWT20 EQU * F P SRL A6,2 Z P SUK A6,2 l PDWT30 EQU * ~ ANK A6,/1E * 2 .* CHECK IF DWT ALREADY GENERATED ON THIS LINE * ADR A6,A4 TABLE ENTRY
0x0eb3d4…0eb568 Dummy {f00=0x0047, f01=0x0190, f02=»T A2,DWTECH,A5 STORE REAL ECHODEVICE-DWTADDRESS , P CM DWTECB,A1 RESET POINTER TO INPUT-DWT 8 P RF DWT70 h P EJECT z P* P* CHECK IF DWT IN DRIVER P* PDWT32 LDKL A2,SYSLOD P TNM A1,A2 P RF(NN) DWT34 P CWR A
0x0eb568…0eb6fc Dummy {f00=0x0047, f01=0x0190, f02=»T70 PDWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS * D * COPY DEVICE TYPE DWT N * n LDR A2,A12 TO-ADDRESS x P LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE P EJECT * $ * A1
0x0eb6fc…0eb890 Dummy {f00=0x0047, f01=0x0190, f02=»HECK IF INPUT DEVICE * * & LDR* A3,A1 GET FIRST WORD OF TYPE DWT & ANKL A3,/0100 INPUT DEVICE? T RF(Z) DWT50 NO x * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3
0x0eb890…0eba24 Dummy {f00=0x0047, f01=0x0190, f02=»F KEYBOARD DWT IN THIRD WORD ~ . )* OF PROTOTYPE DWT OF OUTPUT ECHO DEVICE $ * V P LD A5,DWTECH,A1 ECHO? ` RF(Z) DWT40 NO ~ 6 P AD A5,M:REL,A13 RELOCATE ECHO DEVICE DWT-ADDRESS & P ST A2,4,A5 SAVE INPUT DWT-ADDRESS P EJECT P
0x0eba24…0ebbb8 Dummy {f00=0x0047, f01=0x0190, f02=»,DWTSQ DISPLACEMENT TO START OF BUFFER $ ST A5,DWTSQ-4,A2 STORE POINTER . $ ST A5,DWTSQ-2,A2 STORE POINTER V * ~ * IF DOUBLE KEYBOARD: D @* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 2* IN ENTRY CORRESPONDING
0x0ebbb8…0ebd4c Dummy {f00=0x0047, f01=0x0190, f02=» DWT60 NOT DOUBLE KEYBOARD $ LDR A5,A2 GET REAL DWT-ADDRESS " ADK A5,1 ADD ONE J 0 , SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 d ADR A3,A3 BYTE DISPLACEMENT . P AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE $ STR A5,A3 STORE DEVICE-AD
0x0ebd4c…0ebee0 Dummy {f00=0x0047, f01=0x0190, f02=» GET CORRESPONDING INPUT DWT-ADDRESS FROM THIRD WORD * IN THE DWT. < 8 3* SAVE ADDRESS OF THIS DWT IN WORD 18 OF INPUT DWT R $ * AND CLEAR WORD 3 OF THIS DWT. * 0 P LD A5,DWTECB,A2 GET THIRD WORD IN REAL DWT ( # RF(Z) DWT60 NOT ECH
0x0ebee0…0ec074 (2, 133) Dummy {f00=0x0047, f01=0x0190, f02=»DWT60 EQU * * * CHECK IF PAGING * 8 " P LD A5,SCTOPT GET OPTION WORD B P ANK A5,1 MMU PAGING? h RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS * P SUR
0x0ec074…0ec208 Dummy {f00=0x0047, f01=0x0190, f02=»,DWTMEC,A2 STORE IT BACK * < P* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED * P* j & P LD A5,DWTADR,A2 GET ADDRESS BLOCK t 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $ P RF(Z) DWT70 ALLOCATE NO BUFFER! * L P*
0x0ec208…0ec39c Dummy {f00=0x0047, f01=0x0190, f02=» LDR A3,A12 INTERNAL BUFFER ADDRESS ADK A3,1 , , ( ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS @ P ST A3,2,A5 SAVE p P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 $ P ANKL A3,/FFFE MAKE LENGTH EVEN P EJECT
0x0ec39c…0ec530 Dummy {f00=0x0047, f01=0x018e, f02=»AN STORE THE ADDRESS AND SIZE OF THE , P* INTERNAL BUFFER IN SYSBUF AND BUFSIZ. , * CW A3,BUFSIZ,A13 f RF(NG) DWT65 ST A3,BUFSIZ,A13 P ST A12,SYSBUF,A13 PDWT65 EQU * ADR A12,A3 NEXT FREE ENTRY P EJE
0x0ec530…0ec6c4 Dummy {f00=0x0047, f01=0x0190, f02=» " P LDR* A5,A7 GET INDEX/FILECODE * P STR A5,A10 STORE IN TASK CONF. TABLE * " P ADKL A10,2 NEXT ENTRY IN TTAB X " P STR A2,A10 STORE DWT-ADDRESS ~ P* , '* CHECK IF MOORE DEVICES IN THIS CLASS * SUKL A8,4 RF(Z) DWTEX
0x0ec6c4…0ec858 Dummy {f00=0x0047, f01=0x0190, f02=»DWTEX EQU * RTN A14 RETURN EJECT , * %************************************* : * %* I:CHP - INIT CHANNEL PARAMETER * h * %************************************* * * REFERENCED IN: DWTGEN * , (* ENTRY: A1 -
0x0ec858…0ec9ec Dummy {f00=0x0047, f01=0x0190, f02=»- POINTER TO TDC RECORD * & !* EXIT: A5 - CHANNEL PARAMETER * @ P* SAVE05 - SELECTS INTERRUPT TABLE (INTLT1-INTRT4) T 0 P* SAVE06 - SELECTS LINE ENTRY (1-8) * * WORK REGISTERS: A3,A4,A5 * * S
0x0ec9ec…0ecb80 Dummy {f00=0x0047, f01=0x018e, f02=»E CONNECTION NUMBER | 0 + LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ( # ANKL A5,/F1F0 CLEAR BITS TO MODIFY P 2 . LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER | & " LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CH
0x0ecb80…0ecd14 (2, 134) Dummy {f00=0x0048, f01=0x0190, f02=» & " ORR A5,A3 MERGE WITH OLD CONTENTS * % LDR A3,A6 GET LINE CONNECTION NUMBER . ANK A3,/18 GET BITS 11-12 SRL A3,2 MOVE TO BITS 13-14 ~ P ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 & " ORR A5,A3 MERGE WITH OLD CONTENTS
0x0ecd14…0ecea8 Dummy {f00=0x0048, f01=0x0190, f02=»NZ) I:CH10 0 , ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) * P ST A3,SAVE06,A13 SAVE ENTRY SELECTOR F RF I:CH50 t PI:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 & " ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SE
0x0ecea8…0ed03c Dummy {f00=0x0048, f01=0x018e, f02=»T 15 RF(NZ) I:CH30 & " ORKL A5,/0200 STORE 1 IN BITS 4-6 " LDK A3,1 ENTRY SELECTOR L P ST A3,SAVE06,A13 SAVE l RF I:CH50 PI:CH30 EQU * & " ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR P ST A3,SAVE06,
0x0ed03c…0ed1d0 Dummy {f00=0x0048, f01=0x0190, f02=» . * SUK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 6 & " ADK A4,1 INCREMENT TABLE SELECTOR L RB I:CH60 v PI:CH70 EQU * ( $ ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 P ST A4,SAV
0x0ed1d0…0ed364 Dummy {f00=0x0048, f01=0x0190, f02=»:ITAB - BUILD REAL-TIME INTERRUPT TABLE * 2 .********************************************** 2 * h * REFERENCED IN: DWTGEN r * * &* ENTRY: SCTSFA - START OF FREE AREA * 8 4* EXIT: INTLT1-INTRT4 - REAL TIME INTERRUPT TABL
0x0ed364…0ed4f8 Dummy {f00=0x0048, f01=0x0190, f02=» > P* A4 - LENGTH OF LINE SAVE01URATION TABLE * %* A5 - DEVICE COUNTER F ( #* A6 - LINE COUNTER t 2 P* A7 - DISPLACEMENT IN SAVE21 @ ;* A10- ADDRESS TO TEMPORARY INTERR
0x0ed4f8…0ed68c Dummy {f00=0x0048, f01=0x0190, f02=»INTERRUPT TABLE f * * SUBROUTINES " * 8 P EJECT B PB:ITAB EQU * P 2 - LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. d P LDR A11,A12 $ LDK A7,0 RESET POINTER IN IABAT PBIT10 EQU * P LDK A1,0 P ST A1,SAVE2
0x0ed68c…0ed820 Dummy {f00=0x0048, f01=0x0190, f02=»Y INTERRUPT TABLE v * P LD A10,SCTSFA+2 $ ADR A10,A7 < LDR* A10,A10 P & P LDK A6,0 RESET LINE ENTRY POINTER f PBIT20 EQU * * 8 P* SAVE POINTER TO START OF LINE SAVE01URATION TABLE F P* IN TEMPORARY AREA AND RESET
0x0ed820…0ed9b4 (2, 135) Dummy {f00=0x0048, f01=0x018e, f02=»LENGTH OF LINE CONF.TABLE * " 0 -* INIT POINTER IN TEMPORARY INTERRUPT TABLE , * &* TO POINT AT LAST INPUT DEVICE ENTRY ` * ADKL A10,12 LDK A5,7 ADKL A11,14 P EJECT * < 9* CHECK INPUT PART OF TEMPORA
0x0ed9b4…0edb48 Dummy {f00=0x0048, f01=0x0190, f02=» RF(NZ) BIT40 YES PBIT35 EQU * , ( SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY 2 RF(Z) BIT50 YES b * z < 7* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY 0 +* INTERRUPT TABLE HAS BEEN OCCUPIED SO FAR * . P SUKL
0x0edb48…0edcdc Dummy {f00=0x0048, f01=0x0190, f02=» ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. D @* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) < H C* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY. * PBIT40 EQU * * % STR A1,A11 STORE CONTENT
0x0edcdc…0ede70 Dummy {f00=0x0048, f01=0x0190, f02=» IN T.I.T. z $ SUKL A11,2 NEXT ENTRY IN R.I.T. * & LDR* A1,A10 GET CONTENT OF NEXT ENTRY : RB BIT40 h EJECT z PBIT50 EQU * * B >* ALL ENTRIES OF THE INPUT DEVICE PART IN TEMPORARY INTERRUPT * TABLE HAS BEEN SCANNED.
0x0ede70…0ee004 Dummy {f00=0x0048, f01=0x0190, f02=»R. z * ADKL A10,14 LDK A5,7 ( * : L G* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. D $ * -IF AN OCCUPIED ENTRY OCCUR: L P* FIND FIRST UNOCCUPIED ENTRY (CONTENT=ZERO) IN THE LINE SAVE01URATION
0x0ee004…0ee198 Dummy {f00=0x0048, f01=0x0190, f02=» * INCREMENT LENGTH * PBIT70 EQU * * LDR* A1,A10 OCCUPIED ENTRY? > RF(NZ) BIT90 YES b SUK A5,1 LAST ENTRY | RF(Z) BIT120 YES PBIT80 EQU * ADKL A10,2 NEXT ENTRY RB BIT70 PBIT90 EQU *
0x0ee198…0ee32c Dummy {f00=0x0048, f01=0x0190, f02=»IN LINE SAVE01URATION TABLE d * OF REAL INTERRUPT TABLE. $ * H P LDR* A2,A11 R RF(Z) BIT100 f P ADKL A11,2 | RB BIT90 EJECT PBIT100 EQU * * F P* AN UNOCCUPIED ENTRY HAS BEEN FOUND IN LINE SAVE01URATIO
0x0ee32c…0ee4c0 Dummy {f00=0x0048, f01=0x0190, f02=»CONTENT ~ * P LD A1,SAVE23,A13 GET START OF L.C.T. " LDR A3,A11 GET CURRENT ENTRY > P SUR A3,A1 COMPUTE LENGTH d CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3 SAVE NEW LENGTH PBIT110 EQU * SUK A5,1 LAST ENT
0x0ee4c0…0ee654 (2, 136) Dummy {f00=0x0048, f01=0x0190, f02=»NE J D ?* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE L P* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR R * " LDR A4,A4 ANY ENTRY OCCUPIED? RF(Z) BIT130 NO , P IM SAVE24,A13 INDICATE DEVICE
0x0ee654…0ee7e8 Dummy {f00=0x0048, f01=0x018e, f02=»ST WORD OF L.C.T. r LDR A11,A1 START OF L.C.T. . ) ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. > ADKL A11,2 NEXT FREE ENTRY p RF BIT140 EJECT PBIT130 EQU * * * NO DEVICES ON THIS LINE. . P* -NO LINE SAVE01
0x0ee7e8…0ee97c Dummy {f00=0x0048, f01=0x0190, f02=» r PBIT140 EQU * $ ADKL A10,2 NEXT ENTRY IN T.I.T. $ ADK A6,1 INCREMENT LINE COUNTER D CWK A6,8 ALL LINES SCANNED? l RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY P RB BIT20 PBIT150 EQU * P* 6 P* STORE A
0x0ee97c…0eeb10 Dummy {f00=0x0048, f01=0x0190, f02=»NT? n P RF(Z) BIT155 NO! 2 P LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS & P ST A1,INTLT1,A7 SAVE P RF BIT158 z PBIT155 EQU * . P LD A11,SAVE21,A13 GET START OF FREE AREA PBIT158 EQU * * : 6* ALL LINES OF THIS INT
0x0eeb10…0eeca4 Dummy {f00=0x0048, f01=0x0190, f02=»XT ENTRY IN ITAB CWK A7,16 LAST ENTRY? RF(E) BIT160 YES 6 $ LDR A12,A11 GET NEXT FREE ENTRY P RB BIT10 x PBIT160 EQU * * D @* ALL ENTRIES IN THE TEMPORARY INTERRUPT TABLE HAS BEEN SCANNED < 8* AND ALL THE REAL INTE
0x0eeca4…0eee38 Dummy {f00=0x0048, f01=0x0190, f02=»CTSFA P SUK A2,2 PBIT165 ADK A2,2 * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW 8 P RF(NE) BIT170 f P LDKL A1,LMP3 | ( P CALL ERROR INDICATE MEMORY OVERFLOW PBIT170 CWR A2,A11 P RB(NE) BIT165 ( P ST A13,SCTEFA SKIP TEMP.
0x0eee38…0eefcc Dummy {f00=0x0048, f01=0x0190, f02=»*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p 6 1* GENERAL SUBROUTINES * 8 T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= r 8 4**************************************
0x0eefcc…0ef160 Dummy {f00=0x0048, f01=0x0190, f02=»ASSES d P* 8 4**************************************************** * T " P* REFERENCED IN: B:TCT,B:CDT ^ * > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK * F A* EXIT: A1 - NUMBER OF TASKS IN THE TASK C
0x0ef160…0ef2f4 (2, 137) Dummy {f00=0x0048, f01=0x0190, f02=» PGETCTC EQU * P LC A5,TDBNT,A11 SLL A5,8 0 P LC A5,TDBNT+1,A11 B CALL CONVRT RTN A14 p EJECT 8 4**************************************************** 8 4* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * 8 4**
0x0ef2f4…0ef488 Dummy {f00=0x0048, f01=0x0190, f02=»O START OF TASK DEFINITION BLOCK v * ( D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) 2 * z * WORK REGISTERS: A5 * * SUBROUTINES: CONVRT * PGETTDC EQU * LC A5,TDBNC,A11 SLL A5,
0x0ef488…0ef61c Dummy {f00=0x0048, f01=0x018e, f02=»* ^ 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * 8 3*************************************************** F * * REFERENCED IN: B:TT * 4 /* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD * D ?* EXIT: A1 -
0x0ef61c…0ef7b0 Dummy {f00=0x0048, f01=0x0190, f02=» * PGETSDC EQU * LCR A5,A9 " P SLL A5,8 4 LC A5,1,A9 F CALL CONVRT Z RTN A14 n EJECT ~ 2 .********************************************** 2 .* GETCLN - GET CLASS IDENTIFICATION NUMBER * 2 .****************
0x0ef7b0…0ef944 Dummy {f00=0x0048, f01=0x0190, f02=»CORD b * > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) * X * WORK REGISTERS: A5 b * * SUBROUTINES: CONVRT * PGETCLN EQU * P LC A5,TDCDD1,A9 P SLL A5,8 P LC A5,TDCDD2,A9
0x0ef944…0efad8 Dummy {f00=0x0048, f01=0x0190, f02=»CTION NUMBER * v . )***************************************** * J * REFERENCED IN: B:DWTT T * v 8 3* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD * : 5* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) *
0x0efad8…0efc6c Dummy {f00=0x0048, f01=0x0190, f02=» A5,8 P LC A5,LCND2,A9 P CALL CONVRT & RTN A14 : P IFT CREDIT=1 J P EJECT ` : P***************************************************** n : P* * : P* GETTCL - GET TASK CLASS TO
0x0efc6c…0efe00 Dummy {f00=0x0048, f01=0x0190, f02=» * f : P* REFERENCED IN: B:TT * : P* * R : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * : P* *
0x0efe00…0eff94 (2, 138) Dummy {f00=0x0049, f01=0x0190, f02=»REGISTERS: A1-A7,A10 * : P* * 6 : P* SUBROUTINES: GETTSK,NXTBLK * t : P* * : P************************
0x0eff94…0f0128 Dummy {f00=0x0049, f01=0x0190, f02=»,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA 4 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? j P RF(E) TCL:60 YES! . P LC A5,TDBMC+4,A11 GET FIRST CHAR. IN TCL P SLL A5,8 MOVE TO LEFT BYT
0x0f0128…0f02bc Dummy {f00=0x0049, f01=0x0190, f02=»R OF COPIES z P ADR A7,A1 INCREMENT TCL 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK 4 P RB TCL:10 h , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL z P RTN A14 P XIF EJECT B >****************************************************
0x0f02bc…0f0450 Dummy {f00=0x0049, f01=0x018e, f02=»ONVERTED * j * " B >************************************************************** , * r * REFERENCED IN: B:DWTT | * , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED
0x0f0450…0f05e4 Dummy {f00=0x0049, f01=0x0190, f02=» P SLL A5,8 P LCK A5,'00' LDK A2,0 * LDR A1,A1 < PBIN:20 EQU * N RF(Z) BINEX b ADK A2,1 v CWK A2,10 RF(E) BIN:30 SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0
0x0f05e4…0f0778 Dummy {f00=0x0049, f01=0x018e, f02=»***************** x . )* GETCON - GET CONTENT IN MEMORY WORD * . )***************************************** L * ~ * REFERENCED IN: SEGGEN * " * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MMU OPTION SWITCH (X)
0x0f0778…0f090c Dummy {f00=0x0049, f01=0x0190, f02=» PGETCON EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION B P RF(Z) GCON10 NO MMU ^ ELR A1,A2 z P RF GCON20 PGCON10 EQU * LDR* A1,A2 PGCON20 EQU * RTN A14 RETURN P EJECT PCONMON E
0x0f090c…0f0aa0 Dummy {f00=0x0049, f01=0x0190, f02=» * D P**************************************************************** " P CALL B:TCT BUILD TASK TABLES 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES & P CALL B:TT BUILD USER TASK TABLES P IFT CREDIT=1 $ P CALL SEGGEN BUI
0x0f0aa0…0f0c34 (2, 139) Dummy {f00=0x0049, f01=0x0190, f02=»MONBLK GENERATE MONITOR BLOCKS 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES & 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK TABLES * P CALL B:CDT BUILD COMMON DEVICE TABLES & P CALL B:ITAB BUILD INTERRUPT TABLE P IFT CREDIT=1 P EJECT
0x0f0c34…0f0dc8 Dummy {f00=0x0049, f01=0x0190, f02=»1,'CR' P RF(NE) SLDM70 P* $ : P* STORE OPTION WORD (SCTOPT) IN USER AREA (P:MTAB+34) . P* l " P LD A1,SCTOPT GET OPTION WORD v P ANK A1,1 MMU OPTION? P RF(Z) SLDM50 ( P EL* A1,SCTLAC GET ADDRESS TO P:MTAB " P LD A2,SCTOP
0x0f0dc8…0f0f5c Dummy {f00=0x0049, f01=0x0190, f02=»D A2,SCTOPT GET OPTION WORD $ P ST A2,34,A1 STORE IN USER AREA $ PSLDM70 EQU * L P XIF ` P EJECT l F P***************************************************************** z F P* END OF MONITOR SAVE01URATION PART *
0x0f0f5c…0f10f0 Dummy {f00=0x0049, f01=0x40c2, f02=»********* X P LDKL A8,/FFFF * P ST A8,SCTEFA MODIFY END OF FREE AREA ( P LDR A8,A13 GET BASE-ADDRESS V $ P ADKL A8,SYSLDA START OF SYSLODA z P ABR A8 P END @ P* END OF MONITOR SAVE01URATION PART *
0x0f10f0…0f1284 Dummy {f00=0x0049, f01=0x403c, f02=» 0 P******************************************** @ 8 END OF FREE AREA ( P LDR A8,A13 GET BASE-ADDRESS V $ P ADKL A8,SYSLDA START OF SYSLODA z P ABR A8 P END @ P* END OF MONITOR SAVE01URATION PART *
0x0f1284…0f1418 Dummy {f00=0x0049, f01=0x2008, f02=» P X ` h p
0x0f1418…0f15ac Dummy {f00=0x0049, f01=0x0190, f02=» 3 @ T T S @ T PP T !RRP @ ! T 3 @ & P T 3 T 3 YL @ @ T :J : !$ ` @ P Mf_ Mf 3 S S V V W @ @ T :J :
0x0f15ac…0f1740 Dummy {f00=0x0049, f01=0x0190, f02=»_ TN Ph W p T W V 8 8 4 D P$ :Z @ # P H I K T + Y@ V p _j V t Y E !TTX @ @ T :J : N @ R @ T :J P / _ T @ A
0x0f1740…0f18d4 (2, 140) Opaque[0x194]
0x0f18d4…0f1a68 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03f0, f03=0x0000}
0x0f18d4…0f1a68 IdxSect {
0x0f18d4…0f1a68 f00 = 0x001f // 0xf18d4 @0x0
0x0f18d4…0f1a68 f01 = 0x0054 // 0xf18d6 @0x2
0x0f18d4…0f1a68 gno = [ // 0xf18d8 @0x4
0x0f18d4…0f1a68 [0x00]: C0x001f.0x2.0
0x0f18d4…0f1a68 [0x01]: C0x0020.0x3.0
0x0f18d4…0f1a68 [0x02]: C0x0022.0x0.0
0x0f18d4…0f1a68 [0x03]: C0x0022.0x1.0
0x0f18d4…0f1a68 [0x04]: C0x0023.0x3.0
0x0f18d4…0f1a68 [0x05]: C0x0026.0x3.0
0x0f18d4…0f1a68 [0x06]: C0x0027.0x0.0
0x0f18d4…0f1a68 [0x07]: C0x0027.0x2.0
0x0f18d4…0f1a68 [0x08]: C0x0027.0x3.0
0x0f18d4…0f1a68 [0x09]: C0x0028.0x0.0
0x0f18d4…0f1a68 [0x0a]: C0x0028.0x1.0
0x0f18d4…0f1a68 [0x0b]: C0x0028.0x2.0
0x0f18d4…0f1a68 [0x0c]: C0x0028.0x3.0
0x0f18d4…0f1a68 [0x0d]: C0x0029.0x0.0
0x0f18d4…0f1a68 [0x0e]: C0x0029.0x1.0
0x0f18d4…0f1a68 [0x0f]: C0x0029.0x2.0
0x0f18d4…0f1a68 [0x10]: C0x0029.0x3.0
0x0f18d4…0f1a68 [0x11]: C0x002a.0x0.0
0x0f18d4…0f1a68 [0x12]: C0x002a.0x1.0
0x0f18d4…0f1a68 [0x13]: C0x002a.0x2.0
0x0f18d4…0f1a68 [0x14]: C0x002a.0x3.0
0x0f18d4…0f1a68 [0x15]: C0x002b.0x0.0
0x0f18d4…0f1a68 [0x16]: C0x002b.0x1.0
0x0f18d4…0f1a68 [0x17]: C0x002b.0x2.0
0x0f18d4…0f1a68 [0x18]: C0x002b.0x3.0
0x0f18d4…0f1a68 [0x19]: C0x002c.0x0.0
0x0f18d4…0f1a68 [0x1a]: C0x002c.0x1.0
0x0f18d4…0f1a68 [0x1b]: C0x0049.0x2.0
0x0f18d4…0f1a68 [0x1c]: C0x004a.0x0.0
0x0f18d4…0f1a68 [0x1d]: C0x004a.0x3.0
0x0f18d4…0f1a68 [0x1e]: C0x004c.0x1.0
0x0f18d4…0f1a68 [0x1f]: C0x004c.0x3.0
0x0f18d4…0f1a68 [0x20]: C0x004f.0x3.0
0x0f18d4…0f1a68 [0x21]: C0x0050.0x0.0
0x0f18d4…0f1a68 [0x22]: C0x0050.0x1.0
0x0f18d4…0f1a68 [0x23]: C0x0050.0x2.0
0x0f18d4…0f1a68 [0x24]: C0x0051.0x2.0
0x0f18d4…0f1a68 [0x25]: C0x0051.0x3.0
0x0f18d4…0f1a68 [0x26]: C0x0052.0x0.0
0x0f18d4…0f1a68 [0x27]: C0x0052.0x1.0
0x0f18d4…0f1a68 [0x28]: C0x0052.0x3.0
0x0f18d4…0f1a68 [0x29]: C0x0053.0x0.0
0x0f18d4…0f1a68 ]
0x0f18d4…0f1a68 }
0x0f1a68…0f1bfc Dummy {f00=0x001f, f01=0x0190, f02=» 2 P IDENT SYSLDA REL 9.2 79-12-21 870105040920 P : ( P =5,MOVING AREAS>32K DOES NOT WORK B P REL 9.2 79-12-21 ST n . P =4, FAULTY STACK BASE & CWB/UWB BLOCKS P REL 9.1 79-07-17 , P =3, IMPOSSIBLE TO LOAD NON MMU SYSTEM
0x0f1bfc…0f1d90 Dummy {f00=0x001f, f01=0x0190, f02=»ILIPS TERMINAL SYSTEM PTS P* " > P* SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART , P* n P* x P* P* P* P* > P********************************************************** P* P* F P* THIS
0x0f1d90…0f1f24 Dummy {f00=0x001f, f01=0x0190, f02=»* ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND H P* IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. J P* P* ASSEMBLER APPLICATION: J P* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED
0x0f1f24…0f20b8 Dummy {f00=0x001f, f01=0x0190, f02=»CREDIT APPLICATION: F P* SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & f . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLDA THEN MOVES ITSELF TO FOLLOW
0x0f20b8…0f224c Dummy {f00=0x001f, f01=0x0190, f02=»STACK AND TABLES ARE NOW d H P* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS H P* ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF l H P* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR P*
0x0f224c…0f23e0 Dummy {f00=0x001f, f01=0x0190, f02=»'S ARE FILLED. A BRANCH IS FINALLY MADE TO x . P* P F I N I T TO START APPLICATION. 2 P EJECT d P r P*************************** ~ P* * P* ENTRIES AND EXTERNALS * P* *
0x0f23e0…0f2574 (2, 141) Dummy {f00=0x0020, f01=0x018e, f02=»LDA P ENTRY REL START OF CODE P ENTRY LDALEN PROGRAM LENGTH , P P P* SUBROUTINE ENTRIES X P ENTRY MOVE t P ENTRY ERROR $ P ENTRY CMPADR COMPARE ADDRESSES 2 P ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P ENTRY NXTCOM
0x0f2574…0f2708 Dummy {f00=0x0020, f01=0x0190, f02=» ` P P* SAVE AND WORK AREA ENTRIES " P ENTRY MMTAB WORK-TABLE 1 (MMU 4 6 P ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 Z 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' , P ENTRY
0x0f2708…0f289c Dummy {f00=0x0020, f01=0x0190, f02=»!!! d & P ENTRY SAVE01,SAVE12,SAVE03,SAVE04 & P ENTRY SAVE05,SAVE06,SAVE07,SAVE08 6 & P ENTRY SAVE09,SAVE10,SAVE11,SAVE02 ` & P ENTRY SAVE13,SAVE14,SAVE15,SAVE16 & P ENTRY SAVE17,SAVE18,SAVE19,SAVE20 . P ENTRY SAVE21,SAVE22,SAVE23,SAVE24,SAVE25
0x0f289c…0f2a30 Dummy {f00=0x0020, f01=0x0190, f02=»RESS TO COMMON PART v P EXTRN SCTTCT TC:TAB ADDRESS P EXTRN SCTSTB A15 STACK-BASE @ " P EXTRN SCTEFA END OF FREE AREA d $ P EXTRN SCTNOS NUMBER OF SEGMENTS " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMMC =
0x0f2a30…0f2bc4 Dummy {f00=0x0020, f01=0x0190, f02=»XTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE P EXTRN SCTBUG BUGGER ADDRESS 6 P Z P* EXTERNAL LABELS b 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATION PART | $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXT
0x0f2bc4…0f2d58 Dummy {f00=0x0020, f01=0x0190, f02=»TCHER ENTRY ~ P P* , P EXTRN TTB:SA START OF SAVE AREA IN TTAB & P EJECT V P d P l , P*************************************** t , P* CONDITIONAL ASSEMBLY * , P*************************************** P
0x0f2d58…0f2eec Dummy {f00=0x0020, f01=0x0190, f02=»MMUSWB EQU MMUPAG+SWPBLK P PSWBMMU EQU SWPBLK-MMUPAG ( P EJECT H P V P PROGRAM STRUCTURE: ^ P | F P* ------------------------------------------------------- L P* ! RELOCATION ROUTINE
0x0f2eec…0f3080 Dummy {f00=0x0020, f01=0x0190, f02=»-------------------------! h F P* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! " F P* !-----------------------------------------------------! l F P* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM. ! F P*
0x0f3080…0f3214 (2, 142) Dummy {f00=0x0022, f01=0x0190, f02=»T 2.B J F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! F P* ! -QUEUE TASK VIA 'ACTOT' ! X F P* ! -FILL MM-TABLE IN TTAB ! F P* ! -COPY T:A'S AC
0x0f3214…0f33a8 Dummy {f00=0x0022, f01=0x0190, f02=»LLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! : F P* ! -START DEBUGGER (IF ANY) AND START APPLICATION ! F P* !----------------------------------------------
0x0f33a8…0f353c Dummy {f00=0x0022, f01=0x0190, f02=»O FOLLOW SYSLDA ! l F P* ! ! & F P* ! C O M D A T ! p F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. ! F P*
0x0f353c…0f36d0 Dummy {f00=0x0022, f01=0x0190, f02=» N F P* ! ! F P* ! C L A D A T ! R F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! F P* ! AND DWB'S.
0x0f36d0…0f3864 Dummy {f00=0x0022, f01=0x0190, f02=»D ! z F P* ! -MOVE D.T. & W.B., COPY UWB'S ! 4 F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! ~ F P* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE
0x0f3864…0f39f8 Dummy {f00=0x0022, f01=0x0190, f02=» ! F P* ! P R O D A T ! F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! ` F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! F P* ! -ALLOC
0x0f39f8…0f3b8c Dummy {f00=0x0022, f01=0x0190, f02=» ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! F P* ! -CONTINUE IN PART 2.B ! B F P* !-----------------------------------------------------! N P* ! SUBROUTINES
0x0f3b8c…0f3d20 Dummy {f00=0x0022, f01=0x0190, f02=»ON: ! ASSEMBLER APPLICATION: ! r F P* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN ! , F P* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. ! v F P* ! ! -QUEUE 1:ST USER TASK ! F
0x0f3d20…0f3eb4 (2, 143) Dummy {f00=0x0022, f01=0x0190, f02=»-----! T F P* ! REAL TASKS' IS BUILT AT ! F P* ! THE END OF MONITOR. ! X F P* ! U:BTAB: ! F P* ! -A TABLE OF 'N
0x0f3eb4…0f4048 Dummy {f00=0x0022, f01=0x0190, f02=» ! F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! : F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! F P* ! -RELOCATE ADDRESSES IN U:BTAB
0x0f4048…0f41dc Dummy {f00=0x0022, f01=0x0190, f02=» ! b F P* ! -CONTINUE IN PART 2.A ! F P* !-----------------------------------------------------! f P EJECT P P ***************** P ***************** P **
0x0f41dc…0f4370 Dummy {f00=0x0022, f01=0x0190, f02=» P********** P* P:MTAB * P********** . PT:ATAB EQU 0 @ PU:BTAB EQU 2 T PP:BAS EQU 6 SEGMENT BASE h . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS P P P********** P
0x0f4370…0f4504 Dummy {f00=0x0022, f01=0x0190, f02=» 4 PROTOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) P* V . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB ` * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNUMB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P E
0x0f4504…0f4698 Dummy {f00=0x0022, f01=0x0190, f02=»*********************** P P* TASK DEFINITION BLOCK: , PTDBBT EQU 0 1A BLOCK TYPE L ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS n , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBM
0x0f4698…0f482c Dummy {f00=0x0022, f01=0x0190, f02=» $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION , ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH N P* z * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC
0x0f482c…0f49c0 Dummy {f00=0x0022, f01=0x018e, f02=»PE DEF. BLOCK | PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES 8 P* h ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD r PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-
0x0f49c0…0f4b54 (2, 144) Dummy {f00=0x0023, f01=0x0190, f02=» 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) $ PCSB EQU -12 CURRENT SEGMENT BASE > 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH f 2 P OF ALL DSCB-RECORDS PT:DAD EQU -8 ADDRESS TO T:D * PCIA EQU -6 CURRE
0x0f4b54…0f4ce8 Dummy {f00=0x0023, f01=0x0190, f02=»D | PPA EQU 0 STACK POINTER PSTKB EQU 2 STACK BASE ( " PWATFST EQU 4 FIRST WAT-ELEMENT F P* l P* DSCB-RECORD: v PDSCBL EQU 20 RECORD LENGTH PBA EQU 2 BUFFER ADDRESS PRL EQU 4 REQ. LENGTH PEL EQU 6 EFF. LENGTH " PBL
0x0f4ce8…0f4e7c Dummy {f00=0x0023, f01=0x0190, f02=»0 DISPLACEMENT TO FCB IN T:A , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) $ , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) T & PWATLEN EQU 6 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) * PSWBMSK EQU 10 MASK FOR SWB'S -"-
0x0f4e7c…0f5010 Dummy {f00=0x0023, f01=0x018e, f02=» l P ! . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ! P ! B P ! J P**************** ! R P* SOP-HANDLING * ! j P**************** ! PSOP EQU /2E DEVICE ADDRESS ! P ! P LAMP CODE MEANING ! P --------- ------- ! PLMP1 EQU
0x0f5010…0f51a4 Dummy {f00=0x0023, f01=0x0190, f02=» PLMP5 EQU /40 TID ERROR " " PLMP6 EQU /20 UWB OR SWB ERROR " " " PLMP7 EQU /10 MM-TABLE OVERFLOW " H PLMP8 EQU 8 " n PLMP9 EQU 4 " PLMP10 EQU 2 " PLMP11 EQU 1 " P EJECT " P********************* " P* OTHER CONSTANTS * " P****
0x0f51a4…0f5338 Dummy {f00=0x0023, f01=0x0190, f02=»QU 4 DISP TO LENGTH OF SWB " P # " $ PFCBDD1 EQU 8 DISP TO FIRST DSET # . $ PFCBDD2 EQU 10 DISP TO 2:ND DSET # V P # ~ $ PSTKSZ EQU 128 DEFAULT STACK-SIZE # P # & PCREID EQU 2 CREDIT IDENTIFICATION # ( PSEGREC EQU 6 RECORD LENGTH IN S:
0x0f5338…0f54cc Dummy {f00=0x0023, f01=0x0190, f02=»D-ADDRESS IN TTAB # x * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB $ P $ H ( PNTPA EQU 4 INTERPRETER START ADDRESS $ P & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ | $ PRTCDA EQU /1B RTC DEVICE ADDRESS $ P $ F P**********************************************
0x0f54cc…0f5660 Dummy {f00=0x0023, f01=0x0190, f02=» [REL-ADDRESS] * $ n F P* * % ( F P***************************************************************** % r P % P % P % PCALL FORM 16=/F697,16 % P EJECT %
0x0f5660…0f57f4 (2, 145) Dummy {f00=0x0026, f01=0x0190, f02=» ** % 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & 6 6 P** ** & p 6 P************************************************** & 6 P************************************
0x0f57f4…0f5988 Dummy {f00=0x0026, f01=0x0190, f02=» & P* ADJUST FOR PSW-ROUTINE * ' P************************** ' * 6 P LDK A3,GETPSW RELATIVE ADDRESS TO 'PSWSW-ADDRESS' ' L P ADR A3,A13 ABSOLUT DITO ' 4 P ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE ' P* LOAD STACKBASE * ' P****************
0x0f5988…0f5b1c Dummy {f00=0x0026, f01=0x0190, f02=»*** ' P* ( P RES 12 ( PSTACKB EQU *-REL-2 ( & P EJECT ( @ P ( N P ( Z P* ADDRESS TO PSW-ROUTINE * ( f P************************** ( P* ( PPSW EQU *-REL ( P DATA GETPSW ( P ( D P******************************
0x0f5b1c…0f5cb0 Dummy {f00=0x0026, f01=0x0190, f02=» PUT PSW IN STACK FOR CALLING SUBROUTINE * ( z D P**************************************************************** ) 2 P ) z PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0 P LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ) . P ST A2,6,A14 R
0x0f5cb0…0f5e44 Dummy {f00=0x0026, f01=0x0190, f02=»*** ) r & P* * * & P* SUBROUTINE-HANDLER * * 6 & P* * * ` & P********************************* * P * PSUBSUB EQU *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 * . P LD* A10,4,A14
0x0f5e44…0f5fd8 Dummy {f00=0x0026, f01=0x0190, f02=»N * f P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RESTORE A10 + , P ABR* A14 + P P + b P + j P + r < P******************************************************* + z < P* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P**************
0x0f5fd8…0f616c Dummy {f00=0x0026, f01=0x0190, f02=»******** + t ( P** ** , ( P** SAVE, AND COMMUNICATION AREA ** , < ( P** ** , h ( P************************************ , P , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS , P DATA 0 , *
0x0f616c…0f6300 Dummy {f00=0x0026, f01=0x0190, f02=»-REL U:BTAB NEW ADDRESS , P DATA 0 - ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - 0 P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - l P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE - P DATA 0 - 4 PMOVED EQU *-REL INDICATOR IF B
0x0f6300…0f6494 (2, 146) Dummy {f00=0x0027, f01=0x0190, f02=»TADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART - P DATA 0 . < @ PFSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS . L P DATA 0 . * PNEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS . P DATA 0 . * PNEWAD2 EQU *-REL SAVE FORD.T. ADDRESS .
0x0f6494…0f6628 Dummy {f00=0x0027, f01=0x0190, f02=»ATA 0 . " PUWB EQU *-REL U.W.B. INDICATOR / P DATA 0 / 4 $ PSAVE01 EQU *-REL TEMPORARY SAVE / D P DATA 0 / l PSAVE02 EQU *-REL / | P DATA 0 / PSAVE03 EQU *-REL / P DATA 0 / PSAVE04 EQU *-REL / P DATA 0 / PSAVE05 EQU *-REL /
0x0f6628…0f67bc Dummy {f00=0x0027, f01=0x0190, f02=» PSAVE09 EQU *-REL SAVE AREAS 0 P DATA 0 0 ( PSAVE10 EQU *-REL 0 8 P DATA 0 0 P PSAVE11 EQU *-REL 0 ` P DATA 0 0 x PSAVE12 EQU *-REL 0 P DATA 0 0 PSAVE13 EQU *-REL 0 P DATA 0 0 PSAVE22 EQU *-REL 0 P DATA 0 0 PSAVE25 E
0x0f67bc…0f6950 Dummy {f00=0x0027, f01=0x0190, f02=» DATA 0 0 & PBIT EQU *-REL SAVE FOR SUPER-LOOP 1 P DATA 0 1 : 8 PTADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS 1 J P DATA 0 1 * PDATEND EQU *-REL END OF DDIV PROTOTYPE 1 P DATA 0 1 ( PMMREL1 EQU *-REL PHYSICALL PAGE BASE 1 P DATA 0
0x0f6950…0f6ae4 Dummy {f00=0x0027, f01=0x0190, f02=» & PBUFSIZ EQU *-REL TEMP. BUFFER SIZE 2 P DATA 0 2 . " PMMTO EQU *-REL MMTABLE ADDRESS 2 > P DATA 0 2 d * PMMFROM EQU *-REL 2:ND MMTABLE ADDRESS 2 t P DATA 0 2 0 PFYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER 2 P DATA 0 2 PFSTPAG EQU *-REL 2
0x0f6ae4…0f6c78 Dummy {f00=0x0027, f01=0x0190, f02=»ATA LDAEND-REL 2 PXMSAV EQU *-REL 3 P DATA 0,0 3 . P 3 @ P 3 H P 3 P P 3 X & P********************************* 3 ` & P* EQUATES FOR SYSLDM SAVE-WORDS * 3 & P********************************* 3 P 3 PSAVE14 EQU U:BTOD 3 PSAVE15 E
0x0f6c78…0f6e0c Dummy {f00=0x0027, f01=0x0190, f02=»ED 3 PSAVE21 EQU NEWAD1 4 PSAVE23 EQU SWITCH 4 $ PSAVE24 EQU FLAG 4 > P EJECT 4 V P 4 d P* MMU TABLES * 4 l P 4 P 4 . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE 4 P IFT MMUPAG=1 4 P RES 16 4 P XIF 4 P 4 $ PMMTAB EQU
0x0f6e0c…0f6fa0 Dummy {f00=0x0027, f01=0x0190, f02=» 4 PMMEND EQU * 5 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 5 P 5 T PMMBEG EQU TABBE-* 5 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 5 v P EJECT 5 P 5 6 P*** *** 5 6 P*** S
0x0f6fa0…0f7134 (2, 147) Dummy {f00=0x0027, f01=0x0190, f02=» *** 5 r 6 P************************************************* 6 6 P************************************************* 6 V P 6 P 6 , P** E R R O R ** 6 , P** ** 6 , P
0x0f7134…0f72c8 Dummy {f00=0x0027, f01=0x0190, f02=» 6 h , P** INPUT :A1=SOP-MESSAGE ** 7 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 7 8 , P** (REG-CONTENTS IS SAVED) ** 7 h , P**************************************** 7 P 7 PERROR EQU * 7 P ST A2,SAVE01,A13 SAVE A2 7 . P L
0x0f72c8…0f745c Dummy {f00=0x0027, f01=0x0190, f02=»NG PURPOS) 7 | P EJECT 8 P 8 & P** M O V E ** 8 ( & P** ** 8 R & P** ** 8 | & P** MOVE BLOCKS INSIDE MEMORY ** 8 & P** ** 8 & P** INPUT:A1=F
0x0f745c…0f75f0 Dummy {f00=0x0027, f01=0x0190, f02=» ** 8 x & P** WORK-REG: A4 ** 9 & P********************************* 9 < P 9 f PMOVE EQU * 9 r $ PMOVES ADR A1,A3 END OF FROM AREA 9 P ADR A2,A3 END OF TO-AREA 9 & P LD A4,SCTEFA GET END OF FREE AREA 9 P TNM A2,A4 EQUAL
0x0f75f0…0f7784 Dummy {f00=0x0027, f01=0x0190, f02=» SIGN 9 n 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA : P LDKL A1,LMP3 : J ( P CALL ERROR INDICATE MEMORY OVERFLOW : ` PMOVE10 SUK A3,1 DEC LENGTH : P RF(N) MOVE20 ALL DONE : P SUK A1,1 : P SUK A2,1 : P LCR A4,A1 GET CHARACTER
0x0f7784…0f7918 Dummy {f00=0x0027, f01=0x0190, f02=» : 4 P** M O V I N G ** ; 4 P** ** ; D 4 P** ** ; | 4 P** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** ; 4 P** ASSUMED TO BE DATA-PART
0x0f7918…0f7aac Dummy {f00=0x0027, f01=0x0190, f02=» 4 P** ** < 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** < < 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** < t 4 P** WORK-REG: A4 ** < 4 P************************************
0x0f7aac…0f7c40 Dummy {f00=0x0027, f01=0x0190, f02=»FE MAKE EVEN ADDRESS < P ST A11,SAVE01,A13 SAVE A11 = P ST A9,SAVE12,A13 SAVE A9 = @ P LDR A11,A2 = b * P LD A9,DATEND,A13 END OF PROTOTYP AREA = v " P CALL CMPADR COMPARE ADDRESSES = P RF(NL) MOV020 = ( PMOV010 LDKL A1,LMP3 MEMORY OVERFLOW =
0x0f7c40…0f7dd4 (2, 148) Dummy {f00=0x0027, f01=0x0190, f02=»A13 NEW ADDRESS = ( P LD A9,SAVE12,A13 RESTORE REGISTERS > P LD A11,SAVE01,A13 > D P RB MOVES > ^ P XIF > p P IFT CREDIT+MMUPAG=2 > | P EJECT > > 4 P** X M O V E ** > 4 P**
0x0f7dd4…0f7f68 Dummy {f00=0x0027, f01=0x0190, f02=» TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** > 4 P** -MOVE TO USER AREA ** ? 6 4 P** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT** ? n 4 P** BIG ENOUGH THE MOVE IS REPEATED ** ? 4 P**
0x0f7f68…0f80fc Dummy {f00=0x0027, f01=0x0190, f02=» A3=LENGTH (IN BYTES) ** ? 4 P** WORK.REGS:A4,A10 ** @ . 4 P************************************************ @ f P @ PXMOVE EQU * @ P ST A1,SAVE09,A13 @ P ST A1,SAVE07,A13 @ P ST A2,SAVE10,A13 @ P
0x0f80fc…0f8290 Dummy {f00=0x0027, f01=0x018e, f02=» PXMOV05 EQU * A LDR A10,A3 SAVE LENGTH A , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER A 8 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE A h 0 P LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE A P CALL CMPADR COMPARE A " RF(G) SPLIT NO! SEVERAL MOVE A
0x0f8290…0f8424 Dummy {f00=0x0027, f01=0x0190, f02=» $ P TL* MMFROM,A13 LOAD FROM-TABLE B , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER B , 0 P ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS B P LD A1,SYSBUF,A13 B 0 P LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS B LDR A3,A10 GET LENGTH B P TL* MMTO,A1
0x0f8424…0f85b8 Dummy {f00=0x0027, f01=0x0190, f02=» A2,A10 B 0 P ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS C * P LD A3,SAVE11,A13 GET REQUESTED LENGTH C D $ SUR A3,A10 SUBTRACT MOVED PART C r P ST A3,SAVE11,A13 SAVE C P CWR A3,A10 C P RB(NL) XMOV10 C P LDR A10,A3 LAST LENGTH C P RB XM
0x0f85b8…0f874c Dummy {f00=0x0027, f01=0x0190, f02=»ND DIVIDE C 2 P LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) D & " LD A10,BUFSIZ,A13 MOVE MAX LENGTH D H P RB XMOV10 D r D 0 PXMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' D , P LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' D P LD A9,XMSAV,A13 RESTORE
0x0f874c…0f88e0 Dummy {f00=0x0027, f01=0x018e, f02=»* D b 4 P** ** E 4 P** ** E B 4 P** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** E z 4 P** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** E 4 P** IS ALWAYS ASSUMED TO BE DA
0x0f88e0…0f8a74 (2, 149) Dummy {f00=0x0028, f01=0x0190, f02=» 4 P** IS UPDATED AND CHECKED. ** F 4 P** ** F < 4 P** INPUT :A1 & A3 AS IN 'XMOVE' ** F t 4 P** TTAB=POINTER TO TTAB (OR LIKELY) ** F 4 P** OUTPUT:A2=LOGICALL TO-ADDRESS
0x0f8a74…0f8c08 Dummy {f00=0x0028, f01=0x0190, f02=» PMOVING EQU * G P ST A11,SAVE01,A13 SAVE A11 G P ST A9,SAVE12,A13 SAVE A9 G < . ) LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE G ^ & P LD A10,TTAB,A13 LOAD TTAB-ADDRESS G 2 . LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB G " LDR* A9,A2 GET PAGE IN
0x0f8c08…0f8d9c Dummy {f00=0x0028, f01=0x0190, f02=»TTAB' G t $ P CALL SETTAB NEW PAGE IN TABLE! H 6 PMOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS H 6 ANKL A11,/FFF H p * P LDR A9,A3 GET LENGTH OF AREA TO MOVE H 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? H P RF(NL) MOV020 YES H 0 P SUR A
0x0f8d9c…0f8f30 Dummy {f00=0x0028, f01=0x0190, f02=» PHYSICAL PAGE INCREMENT H P RB MOV015 I 6 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT WITHIN PAGE I 2 PMOV025 RF(NN) MOV050 I l * PMOV030 CALL SETTAB NEW PAGE IN TABLE! I & ! ADKL A11,4096 NEW PAGE INCREMENT I ( P RB(N) MOV030 NOT ENOUGH. NEW PAGE! I
0x0f8f30…0f90c4 Dummy {f00=0x0028, f01=0x0190, f02=»A2=CURRENT ENTRY IN MM-TABLE I J $ PMOV050 EQU * J , , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB J @ 0 , ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER J p 4 P LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. J & " ADR A4,A10 ABSOLUTE ENTRY ADDRESS J & P S
0x0f90c4…0f9258 Dummy {f00=0x0028, f01=0x0190, f02=»2,A11 GET DISPLACEM. WITHIN PAGE J P ANKL A2,/FFFE EVEN ADDRESS K ( , ' ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS K L P* CHECK ADDRESSES * K | P K * P LD A9,FSTPAG,A13 GET FIRST FREE PAGE K P ST A11,SAVE07,A13 SAVE A11 K P LD A11,FYSPAG,A13 K
0x0f9258…0f93ec Dummy {f00=0x0028, f01=0x0190, f02=»,FSTADR,A13 K P CALL CMPADR L P RF(NL) MOV090 OK! L ( PMOV070 LDKL A1,LMP3 L B P CALL ERROR L ^ PMOV090 EQU * L r P CALL XMOVE MOVE L P LD A9,SAVE12,A13 L ( P LD A11,SAVE01,A13 RESTORE REGISTERS L $ P TL* MMFROM,A13 RESTORE MM-TABLE L
0x0f93ec…0f9580 Dummy {f00=0x0028, f01=0x0190, f02=» ** L l 6 P** ** M 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** M P 6 P** OVERFLOW. ** M 6 P** ** M 6 P** INPUT
0x0f9580…0f9714 (2, 150) Dummy {f00=0x0028, f01=0x0190, f02=» ** M r 6 P** WORK.REG: A9 ** N 6 P************************************************* N V P N PSETTAB EQU * N SUKL A4,/400 GET NEXT PAGE N SUK A2,2 GET NEXT ENTRY N P N " P* CHECK IF MM-TA
0x0f9714…0f98a8 Dummy {f00=0x0028, f01=0x0190, f02=»F(NN) SETT00 N P CWR A9,A2 O P RF SETT05 O & PSETT00 CWR A2,A9 OVERFLOW? O 8 PSETT05 RF(NL) SETT10 NO O Z P LDK A1,LMP7 O z P CALL ERROR O PSETT10 EQU * O STR A4,A2 STORE IN TABLE O RTN A14 O P XIF O P IFF CREDIT=0 O
0x0f98a8…0f9a3c Dummy {f00=0x0028, f01=0x0190, f02=» 4 P** ** P 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** P < 4 P** MENT IN T:A ** P t 4 P** ** P 4 P** INPUT : A8= POINTER TO T:A-ADD I
0x0f9a3c…0f9bd0 Dummy {f00=0x0028, f01=0x0190, f02=» TADISP=A4 ** P 4 P** A11=W.B.-ADDRESS ** Q 4 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** Q l 4 P*********************************************** Q P Q PGETWB EQU * Q " P LD A4,BIT,A
0x0f9bd0…0f9d64 Dummy {f00=0x0028, f01=0x0190, f02=»FT CREDIT-MMUPAG=1 Q P LDR* A11,A8 GET T:A-ADDRESS R P ADR A11,A4 ADD DISPLACEMENT R > P ST A11,WBADD,A13 SAVE R b " P LDR* A11,A11 GET W.B.-ADDRESS R P XIF R P IFT CREDIT+MMUPAG=2 R 0 P LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? R P RF(Z)
0x0f9d64…0f9ef8 Dummy {f00=0x0028, f01=0x0190, f02=»T A11,WBADD,A13 SAVE R " P ELR A11,A11 GET W.B.-ADDRESS S & P TL* MMFROM,A13 RELOAD FROM-TABLE S B P XIF S l P IFF CREDIT=0 S x P RTN A14 S P EJECT S P S P S 8 P** M O V W B ** S 8 P**
0x0f9ef8…0fa08c Dummy {f00=0x0028, f01=0x0190, f02=».-ADDRESS IS UPDATED ** S x 8 P** ** T $ 8 P** INPUT: A11=W.B.-ADDRESS ** T ` 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** T 8 P** WORK-REGS: A1-A4
0x0fa08c…0fa220 Dummy {f00=0x0028, f01=0x0190, f02=» ADKL A1,WBLEN FROM-ADDRESS T P IFT CREDIT-MMUPAG=1 U $ P LDR* A3,A1 LENGTH U @ P CALL MOVING U Z 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT U n 4 P ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE U P XIF U P IFT CREDIT+MMUPAG=2 U P
0x0fa220…0fa3b4 (2, 151) Dummy {f00=0x0028, f01=0x0190, f02=»ROCESSING? U p P RF(Z) MOVW10 NO! V P TL* MMTO,A13 LOAD TO-TABLE V , : PMOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE V P & P TL* MMFROM,A13 RELOAD FROM-TABLE V P XIF V P IFF CREDIT=0 V P RTN A14 V P EJECT V P V P
0x0fa3b4…0fa548 Dummy {f00=0x0028, f01=0x0190, f02=» ** V : P** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** W : : P** ** W x : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** W : P** OUTPUT: A3=POINT
0x0fa548…0fa6dc Dummy {f00=0x0028, f01=0x0190, f02=»********************* W p P X PMOVDT EQU * X * 6 P LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT X > & P SUK A1,2 POINTER TO D.T.-ADDRESS X x P IFT CREDIT-MMUPAG=1 X P LDR* A1,A1 D.T.-ADDRESS X * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD X
0x0fa6dc…0fa870 Dummy {f00=0x0028, f01=0x018e, f02=»A1,DTLEN X 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS Y P XIF Y H P IFT CREDIT+MMUPAG=2 Y T P ELR A1,A1 D.T.-ADDRESS Y p * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD Y P AD A1,MOVADD,A13 RELOCATE Y P ELR A3,A1 LENGTH Y P CALL MOVING Y
0x0fa870…0faa04 Dummy {f00=0x0028, f01=0x0190, f02=» Y P IFF CREDIT=0 Z P RTN A14 Z P EJECT Z . P Z < < P** M O V D W B ** Z H < P** ** Z < P** ** Z < P
0x0faa04…0fab98 Dummy {f00=0x0028, f01=0x0190, f02=» ** Z < P** INPUT : A12=T:D-ADDRESS ** [ 8 < P** A8= POINTER TO T:A-ADDRESS ** [ x < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** [ < P** WORK.REGS: A
0x0fab98…0fad2c Dummy {f00=0x0028, f01=0x0190, f02=» [ P ST A6,SAVE05,A13 SAVE A5 P LDK A6,0 * ( PMOVD10 LD A4,BIT,A13 GET BIT NUMBER < " P ADK A4,1 FIRST WAT-ELEMENT =1 h P IFT CREDIT-MMUPAG=1 P LD A2,WATLEN,A12 P XIF P IFT CREDIT+MMUPAG=2 P EL A2,WATLEN,A12 P X
0x0fad2c…0faec0 Dummy {f00=0x0028, f01=0x018e, f02=» r P SUK A2,1 ALL? ] P RF(N) MOVD60 YES! ] P IFT CREDIT-MMUPAG=1 ] 8 " P CC A4,DWBFST,A6 SHARED W.B.? ] T P XIF ] z P IFT CREDIT+MMUPAG=2 ] * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ] " P SRC A6,1 RIGHT OR LEFT BYTE? ] P RF(N) MOVD30 RIGH
0x0faec0…0fb054 (2, 152) Dummy {f00=0x0028, f01=0x0190, f02=» P CWR A4,A10 SHARED W.B.? ^ P XIF ^ $ P IFF CREDIT=0 ^ 0 P RB(NE) MOVD20 NO! ^ F P* DWB FOUND * ^ ` , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A ^ v P IFT CREDIT-MMUPAG=1 ^ P AD A4,WATLEN,A12 ^ P XIF ^ P IFT CREDIT+MMUPAG=2 ^ P EL
0x0fb054…0fb1e8 Dummy {f00=0x0028, f01=0x0190, f02=»4,2 ^ P ADK A4,WATFST+2 _ * P LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS _ $ P IFT CREDIT-MMUPAG=1 _ R 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A _ n " P STR A3,A4 CHANGE W.B.-ADDRESS _ P XIF _ P IFT CREDIT+MMUPAG=2 _ . P LD A2,FLAG,A13 REAL D
0x0fb1e8…0fb37c Dummy {f00=0x0028, f01=0x018e, f02=»W.B.-ADDR IN T:A _ v P ADR A4,A10 ` " P ESR A3,A4 CHANGE W.B.-ADDRESS ` , & P TL* MMFROM,A13 RELOAD FROM-TABLE ` R P XIF ` | P IFF CREDIT=0 ` P ST A4,WBADD,A13 ` . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? ` P RB(NZ) MOVD10 YES! ` P CAL
0x0fb37c…0fb510 Dummy {f00=0x0028, f01=0x0190, f02=» P a 4 P** T W B S W B ** a 4 P** ** a D 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** a | 4 P** ** a 4 P** INPUT : A8=ACTUAL T:A-AD
0x0fb510…0fb6a4 Dummy {f00=0x0028, f01=0x0190, f02=» 4 P************************************************ b P b < PTWBSWB EQU * b D P ST A7,SAVE04,A13 SAVE A7 b X " P LD A7,TWBMSK,A12 GET TWB MASK b z P IFT CREDIT+MMUPAG=2 b " P EL A7,TWBMSK,A12 GET TWB MASK b P XIF b P IFF CREDIT=0 b P CAL
0x0fb6a4…0fb838 Dummy {f00=0x0028, f01=0x0190, f02=» & P CALL MOVDWB CHANGE DWB-ADDRESSES c P CALL SKIFTA c . P RB TWSW10 c B PTWSW20 EQU * c T P IFT CREDIT+SWPBLK=2 c h P EJECT c P c P c P* RESERVE SPACE FOR SWB'S * c P*************************** c P XIF c P IFT CREDI
0x0fb838…0fb9cc Dummy {f00=0x0028, f01=0x0190, f02=»PBLK=2 c P CALL SHIFT d PTWSW30 RF(Z) TARZAN ALL DONE d " P CALL GETWB d F P CALL MOVWB RESERVE SPACE d Z ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS d | & P CALL MOVDWB CHANGE DWB- ADDRESSES d P CALL SKIFTA d P RB TWSW30 d PTARZAN EQU * d
0x0fb9cc…0fbb60 Dummy {f00=0x0028, f01=0x0190, f02=» A L L B U F ** d 4 P** ** e ( 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** e ` 4 P** TERMINAL STACK ** e 4 P** ** e 4 P
0x0fbb60…0fbcf4 (2, 153) Dummy {f00=0x0029, f01=0x0190, f02=»=LENGTH OF DSCB'S ** e x 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** f 4 P** CSE (IN T:A)=STACKSIZE ** f X 4 P** WORK-REGS. :A1-A4,A9,A11 ** f 4 P************************************************ f P f P
0x0fbcf4…0fbe88 Dummy {f00=0x0029, f01=0x0190, f02=»D A3,CSN,A1 GET DSCB TOTAL LENGTH f P RF(Z) ALLB70 NO DSCB'S g * . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS g J " P LDR A10,A1 SAVE START ADDRESS g | P XIF g P IFT CREDIT+MMUPAG=2 g P ELR A1,A8 GET T:A-ADDRESS g ( P EL A3,CSN,A1 GET DSCB TOTAL
0x0fbe88…0fc01c Dummy {f00=0x0029, f01=0x0190, f02=»IF g P IFF CREDIT=0 h P SUR A3,A1 h P NGR A3,A3 h 2 P SUK A3,DSCBL END CONDITION h D : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS h h : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD h P CW A1,SAVE04,A13 ALL? h P RF(E)
0x0fc01c…0fc1b0 Dummy {f00=0x0029, f01=0x0190, f02=» NO! h P ST A9,BA,A1 BUFFER START i P LD A3,RL,A1 BUFFER LENGTH i . P ST A3,BL,A1 i P P LD A2,EL,A1 SHARED BUFFER? i d P RF(Z) NOTSH NO! i & P LDR A4,A1 RESTORE START OF DSCB'S i P XIF i P IFT CREDIT+MMUPAG=2 i $ P ELR A3,A1 GET FIRST W
0x0fc1b0…0fc344 Dummy {f00=0x0029, f01=0x0190, f02=»,EL,A1 SHARED BUFFER? i P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j 6 P XIF j ` P IFF CREDIT=0 j l P ADK A4,DSCBL FIRST WORD j PALLB20 SUK A2,1 A2=INDEX j P RF(NN) ALLB30 j P LDK A1,LMP4 FORMAT ERROR j P CALL ERROR j
0x0fc344…0fc4d8 Dummy {f00=0x0029, f01=0x018e, f02=») ALLB20 j " P LDK A1,LMP4 BUFFER NOT FOUND k P CALL ERROR k 6 P IFT CREDIT-MMUPAG=1 k J ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? k f P RF(NZ) ALLB50 YES! k P LDK A1,LMP4 FORMAT ERROR k P CALL ERROR k PALLB50 EQU * k * P ST A4,BA,A1 AND
0x0fc4d8…0fc66c Dummy {f00=0x0029, f01=0x0190, f02=» k z P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l * PALLB50 EQU * l > * P ES A4,BA,A1 AND ESORE IN CURRENT ECB l R P XIF l P IFF CREDIT=0 l P RB ALLB10 l P l P IFT CREDIT-MMUPAG=1 l PNOTSH LDR A9,A9 PAGING? l P RF(NZ) NOTS10 N
0x0fc66c…0fc800 Dummy {f00=0x0029, f01=0x0190, f02=»LLOCATE BUFFER FROM TOP l ~ P ADKL A9,1 m P ANKL A9,/FFFE EVEN ADDRESS m 2 P* CHECK ADDRESS: m V P m n " P LD A11,LSTADR,A13 DATA START m z P CALL CMPADR m P RF(NL) ALLB60 OK! m P LDKL A1,LMP3 m P CALL ERROR m PALLB60 EQU * m
0x0fc800…0fc994 (2, 154) Dummy {f00=0x0029, f01=0x018e, f02=»TTOM' m f & P ES A2,BA,A1 STORE BUFFER ADDRESS n P XIF n 8 P IFF CREDIT=0 n D P RB ALLB10 n Z P n l , P* RESERVE STACK AND SET STACKPOINTERS * n x P n PALLB70 EQU * n P IFT CREDIT-MMUPAG=1 n P LDR* A1,A8 GET T:A-ADDRESS n P LD
0x0fc994…0fcb28 Dummy {f00=0x0029, f01=0x0190, f02=» PALLB80 EQU * o P ST A4,STKB,A1 SET STACKBASE o P STR A4,A1 STACK POINTER o < P CALL MOVING ALLOCATE STACK o P ST A2,STKE,A1 SET STACK-END o P XIF o P IFT CREDIT+MMUPAG=2 o P ELR A1,A8 GET T:A-ADDRESS o P EL A3,CSE,A1 GET STACK SI
0x0fcb28…0fccbc Dummy {f00=0x0029, f01=0x0190, f02=» P CALL MOVING ALLOCATE STACK p " P ES A2,STKE,A1 STORE STACK END p ( " P EL A3,STKB,A1 GET STACK SIZE p N " P ADR A2,A3 COMPUTE STACK BASE p t $ P ES A2,STKB,A1 STORE STACK BASE p * P ESR A2,A1 STORE CURRENT STACK POINTER p P XIF p P IFF CREDIT=
0x0fccbc…0fce50 Dummy {f00=0x0029, f01=0x0190, f02=» ** p p 4 P** MOVE T:A AND UPDATE DATA SET ADDRESSES IN ** q 4 P** FORMAT CONTROL BLOCK ** q P 4 P** ** q 4 P** INPUT : A8=T:A-ADDRESS ** q 4 P** A12=
0x0fce50…0fcfe4 Dummy {f00=0x0029, f01=0x018e, f02=» ** q h 4 P** WORKREGS: A1-A4 ** r 4 P************************************************ r H P r PMOVT:A EQU * r P IFT CREDIT-MMUPAG=1 r P LDR* A1,A8 GET T:A-ADDRESS r ( P LD A3,WATLEN,A12 GET LENGTH OF WAT r P
0x0fcfe4…0fd178 Dummy {f00=0x0029, f01=0x018e, f02=» P CALL MOVING s P LDR* A4,A8 s " P SU A2,CIA,A4 NEW T:A-ADDRESS s , $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS s R P s z 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * s P s P LD A3,FCD,A12 ANY FCD? s P RF(Z) MOVT10 NO! s P ADR A3,
0x0fd178…0fd30c Dummy {f00=0x0029, f01=0x0190, f02=» : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) t PMOVT05 EQU * t B P ADS A4,FCBDD1,A3 t V P ADS A4,FCBDD2,A3 t p PMOVT10 RTN A14 t P XIF t P IFT CREDIT+MMUPAG=2 t P t P ELR A1,A8 GET T:A-ADDRESS t ( P EL A3,WATLEN,A12 GET
0x0fd30c…0fd4a0 Dummy {f00=0x0029, f01=0x0190, f02=» P ADR A1,A10 FROM-ADDRESS u P CALL MOVING u $ P ELR A4,A8 u 8 P EL A10,CIA,A4 u J P SUR A2,A10 NEW T:A-ADDRESS u ` " P SUR A1,A10 'OLD' T:A-ADDRESS u 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * u P u P EL A3,FCD,A12 ANY FCD? u
0x0fd4a0…0fd634 (2, 155) Dummy {f00=0x0029, f01=0x0190, f02=» u ~ 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) v PMOVT05 EQU * v D P ADR A3,A2 START OF FCB v X P TL* MMTO,13 LOAD TO-TABLE v x P EL A10,FCBDD1,A3 v P ADR A10,A4 v P ES A10,FCBDD1,A3 v P EL A10,FCBDD2,A3 v P ADR A10,A4
0x0fd634…0fd7c8 Dummy {f00=0x0029, f01=0x0190, f02=» P w 6 P** C M P A D R ** w 6 P** ** w F 6 P** ** w 6 P** COMPARE ADDRESSES. RESULT IN PSW ON RETURN ** w 6 P**
0x0fd7c8…0fd95c Dummy {f00=0x0029, f01=0x0190, f02=» ** w h 6 P** OUTPUT: RESULT IN A14-STACK ** x 6 P************************************************** x L P x PCMPADR EQU * x P TNM A11,A9 x P RF(NN) CMPA10 x P CWR A9,A11 x P RF CMPA20 x PCMPA10 CWR A11,A9
0x0fd95c…0fdaf0 Dummy {f00=0x0029, f01=0x018e, f02=»************************************* x v D P* * y . D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * y v D P* ===================================== * y D P*
0x0fdaf0…0fdc84 Dummy {f00=0x0029, f01=0x0190, f02=» y N D P* * z D P* ENTRY: A8 - FIRST T:A POINTER * z P D P* A6 - SECOND T:A POINTER * z D P* BIT - BIT NUMBER SET IN CWB- O
0x0fdc84…0fde18 Dummy {f00=0x0029, f01=0x0190, f02=»URRENT STATCK POINTER * z p D P* IN T:A IS SET * { ( D P* * { p D P* WORK REGISTERS: A1,A2 * { D P*
0x0fde18…0fdfac Dummy {f00=0x0029, f01=0x018e, f02=»* * { D P*************************************************************** | H P EJECT | PICBMVD EQU * | P LDKL A1,/8000 SET BIT 0 | 6 P LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK |
0x0fdfac…0fe140 Dummy {f00=0x0029, f01=0x0190, f02=» | P* } & P* UPDATE MOVED MASK IN FIRST T:A } P* } < P XIF } F P IFT CREDIT-MMUPAG=1 } R & PIBAM20 LDR* A2,A8 GET T:A POINTER } n $ P LDR* A3,A2 GET MOVED BLOCK MASK } , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED } * P STR A3,A2 STORE NEW MOV
0x0fe140…0fe2d4 (2, 156) Dummy {f00=0x0029, f01=0x0190, f02=»MOVED BLOCK MASK } , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED ~ * P STR A3,A2 STORE NEW MOVED BLOCK MASK ~ H P XIF ~ v P IFT CREDIT+MMUPAG=2 ~ $ PIBAM20 ELR A2,A8 GET T:A POINTER ~ $ P ELR A3,A2 GET MOVED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURREN
0x0fe2d4…0fe468 Dummy {f00=0x0029, f01=0x0190, f02=»2,A6 GET T:A POINTER ~ $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED D * P ESR A3,A2 STORE NEW MOVED BLOCK MASK t P XIF P IFF CREDIT=0 P RTN A14 P EJECT J P**************************************
0x0fe468…0fe5fc Dummy {f00=0x0029, f01=0x0190, f02=»KMVD - CHECK IF BLOCK ALREADY MOVED * ~ J P* ===================================== * < J P* * J P* REFERENCED IN: MOVCOM,MOVCLA
0x0fe5fc…0fe790 Dummy {f00=0x0029, f01=0x0190, f02=»:A * t J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK * 2 J P* * J P* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2
0x0fe790…0fe924 Dummy {f00=0x0029, f01=0x0190, f02=» * j J P* * ( J P* SUBROUTINES: * v J P*
0x0fe924…0feab8 Dummy {f00=0x0029, f01=0x0190, f02=»UPAG=1 P LDR* A1,A8 GET T:A POINTER $ P LDR* A1,A1 GET MOVED BLOCK MASK 2 P XIF Z P IFT CREDIT+MMUPAG=2 f P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK P XIF P IFF CREDIT=0 2 P LD A2,BIT,A13 GET BIT SET
0x0feab8…0fec4c Dummy {f00=0x0029, f01=0x0190, f02=» A2,1 DECREMENT BIT COUNTER P RB CHKM10 $ PCHKM20 ADK A1,0 SET CR 6 * P CFI A14,PSW,A13 PUT CONDITION IN PSW T P RTN A14 P EJECT P P : P***** S * U * P * E * R * L * O * O * P **** : P**
0x0fec4c…0fede0 Dummy {f00=0x0029, f01=0x0190, f02=» ** r : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** : P** INPUT : A7=MASK WORD ** ^ : P** OUTPUT: BIT=BIT NUMBER ** : P** CONDITION CODE IN PSW ON RETURN
0x0fede0…0fef74 (2, 157) Dummy {f00=0x002a, f01=0x0190, f02=»TER v P LDR A7,A7 P RF SHIF20 & PSKIFTA EQU * ENTRY: CONTINUE SHIFT 0 PSHIF10 IM BIT,A13 Z P SLL A7,1 t PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT P RB(NN) SHIF10 * PSHIF30 CFI A14,PSW,A13 PUT COND IN PSW P R
0x0fef74…0ff108 Dummy {f00=0x002a, f01=0x0190, f02=» ** 4 P** ** ( 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** ` 4 P** ** 4 P** INPUT : A3,A2 ** 4 P
0x0ff108…0ff29c Dummy {f00=0x002a, f01=0x0190, f02=»,MUL,A13 " P STR A2,A14 SAVE A2 TEMPORARY P LDK A3,0 6 PADD AD A3,MUL,A13 H P SUK A2,1 b P RB(NZ) ADD t P LDR* A2,A14 P RTN A14 P P IFT MMUPAG=1 P EJECT P 4 P** M M E N T
0x0ff29c…0ff430 Dummy {f00=0x002a, f01=0x0190, f02=» LAST USED ENTRY IN MM-TAB. SCAN ** 4 P** FROM LOW ADDRESS. NOT USED ENTRY=0. ** 0 4 P** ** h 4 P** INPUT :A3=MM-TABLE ADDRESS ** 4 P** OUTPUT:A3=ENTRY ADDRESS **
0x0ff430…0ff5c4 Dummy {f00=0x002a, f01=0x0190, f02=»NTENTS OF 1:ST USED ENTRY ** 4 P*********************************************** ( P ` PMMENT EQU * h P LDR A9,A3 GET TABLE ADDRESS | 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) P SUK A3,2 & PMMEN10 ADK A3,2 INCREMENT AD
0x0ff5c4…0ff758 Dummy {f00=0x002a, f01=0x0190, f02=»G,A9 SAVE FIRST FREE PAGE-ADDRESS P RTN A14 * P XIF : P IFF CREDIT=0 F P EJECT P j 2 P** G E T T A B ** r 2 P** ** 2 P**
0x0ff758…0ff8ec Dummy {f00=0x002a, f01=0x0190, f02=»INTER TO T:A IN T:ATAB ** 2 P** OUTPUT:A2=TTAB-ADDRESS ** & 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** 2 P********************************************** P PGE
0x0ff8ec…0ffa80 Dummy {f00=0x002a, f01=0x0190, f02=»DAD,A10 T:D-ADDRESS P XIF P IFT MMUPAG=1 ( P ELR A10,A8 T:A-ADDRESS > P EL A1,T:ATID,A10 GET TID ^ P EL A12,T:DAD,A10 P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD A4,SCTTCT GET TC:TAB ADDRESS P LDR* A3,A4 TCTA
0x0ffa80…0ffc14 (2, 158) Dummy {f00=0x002a, f01=0x0190, f02=»DK A1,LMP5 TID ERROR P CALL ERROR " PGETT20 LDR* A2,A4 TTAB-ADDRESS 0 P CW A1,TTB:PP,A2 TCL EQUAL? V P RB(NE) GETT10 NO! z P ST A2,TTAB,A13 SAVE P RTN A14 P IFF CREDIT=0 P EJECT P P 8 P**
0x0ffc14…0ffda8 Dummy {f00=0x002a, f01=0x0190, f02=» ** l 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** 8 P** 0, ENB. ** T 8 P** ** 8 P** INPUT: A10=T:A-ADDRESS ** 8 P
0x0ffda8…0fff3c Dummy {f00=0x002a, f01=0x0190, f02=»*********************************** P , PQUEJOB EQU * 4 P* QUEUE THIS TASK (THIS TID) H P l 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS t P ADR A3,A13 RELOCATE P STR A3,A15 PUT ON STACK * P LDKL A3,/00C0 SET LEVEL 0 AND ENABL
0x0fff3c…1000d0 Dummy {f00=0x002a, f01=0x0190, f02=»RESS t P LDR A5,A2 GET TTAB-ADDRESS P IFT CREDIT-MMUPAG=1 0 , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS L P ADK A4,2 | P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS & P LDR* A6,A4 NUMB
0x1000d0…100264 Dummy {f00=0x002a, f01=0x0190, f02=»D A3,2,A4 SEGMENT NUMBER , P LD A2,NTPA,A8 INTERPRETER START ADDRESS P XIF P P IFT CREDIT+MMUPAG=2 , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS x P ADK A4,2 P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDRESS => S
0x100264…1003f8 Dummy {f00=0x002a, f01=0x0190, f02=»L! P EL A1,4,A4 DISP ADDRESS P EL A3,2,A4 SEGMENT NUMBER * , P EL A2,NTPA,A8 INTERPRETER START ADDRESS L P XIF | P IFF CREDIT=0 P CF A15,ACTOT $ P ADK A4,STPREC NEXT START-POINT P RB GETT30 $ PGETT40 ABL RETUR8 RELOAD 8
0x1003f8…10058c Dummy {f00=0x002a, f01=0x0190, f02=»T ** v 4 P** ** 4 P** ** V 4 P** MOVE MM-TABLE ** 4 P** ** 4 P** INPUT
0x10058c…100720 Dummy {f00=0x002a, f01=0x0190, f02=» TTAB ** n 4 P** A9=TTAB ADDRESS ** 4 P** WORKREGS:A1,A3 ** N 4 P*********************************************** P PMOVMMT EQU * ( P ADKL A2,MMBEG GET TO-TABLE ADDRESS " P T
0x100720…1008b4 (2, 159) Dummy {f00=0x002a, f01=0x0190, f02=»LOAD TABLE ~ P RTN A14 P XIF " P IFF CREDIT=0 . P EJECT D @ P************************************************************ R @ P* * @ P* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE A
0x1008b4…100a48 Dummy {f00=0x002a, f01=0x0190, f02=»=========== * b @ P* * @ P* * Z @ P* REFERENCED IN: SYSLDA PART 2 B. * @ P*
0x100a48…100bdc Dummy {f00=0x002a, f01=0x0190, f02=»NTRY IN REAL T:ATAB * j @ P* * @ P* EXIT: * b @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8
0x100bdc…100d70 Dummy {f00=0x002a, f01=0x0190, f02=» * r @ P* * & @ P************************************************************ j PCHTAID EQU * 2 P LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET
0x100d70…100f04 Dummy {f00=0x002a, f01=0x0190, f02=» ( P LDR* A1,A8 GET POINTER TO REAL T:A $ P LD A1,T:ATID,A1 GET TCL IN T:A 0 . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB X , P LD A4,TTBTID,A2 GET REAL TID IN TTAB =3 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS * P ST A4,T:ATID,A3 REP
0x100f04…101098 Dummy {f00=0x002a, f01=0x0190, f02=» SAVE TID FOR DEBUGGER PURPOSE =3 P XIF * P IFT CREDIT+MMUPAG=2 6 & P ELR A1,A8 GET POINTER TO REAL T:A R $ P EL A1,T:ATID,A1 GET TCL IN T:A | . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB ( P LDR A3,A2 GET POINTER TO TTAB ENTRY 2 P ADKL
0x101098…10122c Dummy {f00=0x002a, f01=0x0190, f02=»CORRESPONDING T:A-ADDRESS x * P ES A4,T:ATID,A3 REPLACE TCL IN T:A =3 " 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB P $ P NGR A3,A3 NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 0 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =
0x10122c…1013c0 Dummy {f00=0x002a, f01=0x0190, f02=»NT ~ ( P SUK A6,1 DECREMENT NUMBER OF COPIES P RB(P) CHT:20 NEXT COPY 6 PCHT:90 RTN A14 V P EJECT l P z P 4 P************************************************ 4 P*** *** 4 P**
0x1013c0…101554 (2, 160) Dummy {f00=0x002a, f01=0x0190, f02=»********** j P 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE * R 4 P* * 4 P************************************************ P PPART2B
0x101554…1016e8 Dummy {f00=0x002a, f01=0x0190, f02=»S h * P LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS P ADK A7,2 8 P ST A8,SAVE03,A13 SAVE A8 J & PSYA310 LD A8,SAVE03,A13 RESTORE A8 l P ADKL A8,2 P CW A8,ENDADD,A13 ALL? P RF(E) SYA350 YES! P ST A8,SAVE03,A13 SAVE $ P ADK A5,2
0x1016e8…10187c Dummy {f00=0x002a, f01=0x0190, f02=»A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) P LDR* A1,A8 GET T:A ADDRESS : $ P STR A1,A7 STORE IN REAL T:ATAB ^ P ADK A7,2 $ P LDR* A6,A5 GET NUMBER OF COPIES P EJECT PSYA340 SUK A6,1 P RF(P) SYA345 NEXT TASK 2 P C
0x10187c…101a10 Dummy {f00=0x002a, f01=0x0190, f02=»L MOVT:A MOVE T:A P IM T:ATID,A2 UPDATE TID $ P STR A2,A7 STORE IN REAL T:ATAB : " P LDR A8,A7 CHANGE T:A TO COPY b 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB QUEUE THIS TASK 2 P ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS
0x101a10…101ba4 Dummy {f00=0x002a, f01=0x0190, f02=»BUFFERS z P XIF P IFT CREDIT+MMUPAG=2 * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD 8 P f P LDR A1,A5 n * P AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH $ P LDR* A1,A1 GET MM-TABLE ADDRESS P TLR A1 LOAD " P ST A1,MMFROM,A13 SAVE ADDRESS
0x101ba4…101d38 Dummy {f00=0x002a, f01=0x0190, f02=»LASS-LOCAL LAST ENTRY z P CALL QUEJOB QUEUE THIS TASK * P LDKL A2,MMTAB GET WORK TABLE ADDRESS B P ADR A2,A13 p " P TSR A2 SAVE CLASS-DATA TABLE , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE P P SUK A2,2 START OF TABLE P LDKL
0x101d38…101ecc Dummy {f00=0x002a, f01=0x0190, f02=»B SYA320 PSYA330 EQU * P ELR A1,A8 GET T:A ADDRESS $ $ P ESR A1,A7 STORE IN REAL T:ATAB F $ P EL A12,T:DAD,A1 GET T:D ADDRESS n P EL A1,T:ATID,A1 GET TID ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES
0x101ecc…102060 Dummy {f00=0x002a, f01=0x0190, f02=»SS x PSYA345 ADK A1,1 NEXT T:A ID ( P CALL GETTTB FIND CORRESPONDING TTAB . P CALL QUEJOB QUEUE THIS TASK Z & P CALL MOVMMT MOVE MM-TABLE TO TTAB ~ P CALL MOVT:A MOVE T:A $ P ESR A2,A7 STORE IN REAL T:ATAB @ P ST A2,TTB:SA+26,A9 PUT T:
0x102060…1021f4 (2, 161) Dummy {f00=0x002b, f01=0x0190, f02=»W ADDRESS 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P LD A1,MMTO,A13 GET TO-TABLE F . P ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE j P TLR A1 " P CALL ALLBUF ALLOCATE BUFFERS $ P LD A1,TTAB,A13 GET TTAB-ADDRESS * P CM LSTPAG,A1
0x1021f4…102388 Dummy {f00=0x002b, f01=0x018e, f02=» ES A1,T:ATID,A10 RESTORE IN T:A P XIF ( P IFF CREDIT=0 4 P RB SYA340 J P XIF P EJECT h PFINISH EQU *-REL v P P* ADJUST START OF FREE AREA P PSYA350 EQU * P IFF CREDIT=0 * P LD A1,LSTADR,A13 GET END OF
0x102388…10251c Dummy {f00=0x002b, f01=0x0190, f02=» P XIF P IFF CREDIT=1 P LD A1,SCTLAC * P XIF @ P IFT MMUPAG-CREDIT=1 L P ANKL A1,/03FF h P SLL A1,2 ~ P XIF P ST A1,SCTEFA+2 P IFT CREDIT=1 P LD A1,FYSPAG,A13 P IFT MMUPAG-CREDIT=1 P LD A1,S
0x10251c…1026b0 Dummy {f00=0x002b, f01=0x0190, f02=»MMUPAG=1 ( P LD A1,FSTADR,A13 START OF FREE AREA P RF(NZ) SYA355 < P XIF R P LD A1,SCTSFA ^ PSYA355 ST A1,SCTSFA+2 t P CM SCTSFA P IFT CREDIT=1 P EJECT D ?***************************************************************
0x1026b0…102844 Dummy {f00=0x002b, f01=0x0190, f02=» * X D ?* ========================= * D ?* * X D ?* REFERENCED IN: SYSLDA * D ?*
0x102844…1029d8 Dummy {f00=0x002b, f01=0x0190, f02=»OF FREE AREA * x D ?* SCTNOS - NUMBER OF SEGMENTS * 0 D ?* SCTNOP - NUMBER OF PAGES * x D ?* SCTPSZ - PAGE SIZE * D ?
0x1029d8…102b6c Dummy {f00=0x002b, f01=0x0190, f02=» P D ?* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * P D ?* * D ?* WORK REGISTERS: A1-A12
0x102b6c…102d00 Dummy {f00=0x002b, f01=0x0190, f02=» * p D ?* * ( D ?* * p D ?*************************************************************** PAGGEN E
0x102d00…102e94 (2, 162) Dummy {f00=0x002b, f01=0x0190, f02=» NO! " LD A1,SCTOPT GET OPTION WORD ANK A1,3 PAGING? 2 P ABR(Z) A2 NO! L * b L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS l * , ' LD A11,SCTSFA+2 GET START OF FREE AREA " ST A11,SCTPAG STO
0x102e94…103028 Dummy {f00=0x002b, f01=0x0190, f02=» t PAG:10 EQU * , ' CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? RF(E) PAG:30 YES! L $ LDK A1,0 RESET NUMBER OF WORDS f PAG:20 EQU * " ADKL A11,2 INCLUDE NEXT WORD 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) $ ADK A1,1 IN
0x103028…1031bc Dummy {f00=0x002b, f01=0x0190, f02=»F(E) MEMOFL MEMORY OVERFLOW! RB PAG:20 $ 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER 6 RB PAG:10 j PAG:30 EQU * | * 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY 6 2* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER
0x1031bc…103350 Dummy {f00=0x002b, f01=0x0190, f02=» X 4 P SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS 4 / LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS @ & ! SRL A2,2 SKIP TWO RIGHTMOST BITS x , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS P LDR A3,A1 SAVE LD A2,SCTPSZ GET PAGE SIZE
0x103350…1034e4 Dummy {f00=0x002b, f01=0x0190, f02=»00 MODIFY FOR PAGE SIZE P ANR A2,A3 EVEN 1-KB LIMIT ( $ ORR A1,A2 MODIFY PAGE ADDRESS LIMIT B P XIF n P IFT CREDIT-MMUPAG=1 z $ P LD A1,SCTEFA+2 END OF FREE AREA P LD A10,SCTPSZ PAGE SIZE P XIF P IFT CREDIT=1 LDR A9,
0x1034e4…103678 Dummy {f00=0x002b, f01=0x0190, f02=»F PAG:33 PPAG:32 CWR A6,A10 PPAG:33 RF(NG) PAG:40 * , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE F LDR A1,A6 GET PAGE ADDRESS v P IFT CREDIT+MMUPAG=2 * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? RF(NZ) PAG:34 NO! . * LDR A1,
0x103678…10380c Dummy {f00=0x002b, f01=0x0190, f02=»E AREA v P XIF P IFT CREDIT=1 & "PAG:36 LDK A2,0 RESET WORD COUNTER 0 * %PAG:38 ADKL A11,2 RESERV ANOTHER WORD Z RF(Z) PAG:40 64 KB LIMIT $ ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE? RF(E) PAG:45 YES!
0x10380c…1039a0 Dummy {f00=0x002b, f01=0x0190, f02=»WR A11,A1 P RF PAG384 PPAG382 CWR A1,A11 $ 4 PPAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! > PPAG:39 EQU * v " CWR A11,A8 PROGRAM OVERWRITE RB(NE) PAG:38 NO! PAG:40 EQU * 6 1 CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT
0x1039a0…103b34 (2, 163) Dummy {f00=0x002b, f01=0x0190, f02=»MOFL LDKL A1,LMP3 * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW HLT HALT PROGRAM H , 'PAG:45 CW A7,SCTNOS MOORE PAGES WANTED? b RF(E) PAG:50 YES! $ ADK A7,1 INCREMENT PAGE COUNTER LDR A9,A6 SAVE PAGE ADDRESS P RB PAG:31
0x103b34…103cc8 Dummy {f00=0x002b, f01=0x0190, f02=» A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE ( P XIF @ P IFT CREDIT+MMUPAG=2 L * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS h ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P XIF P IFT CREDIT=1 ST
0x103cc8…103e5c Dummy {f00=0x002b, f01=0x0190, f02=»LOCKS h * LDK A1,0 @ ; LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. * * % LD A11,SCTSEG START OF SEGMENT TABLE n , ( LDK A4,0 RESET RESIDENT SEGMENT COUNTER & " LD A12,SCTPAG START OF PAGE TABLE $ LD A6,SCTNOS NUMB
0x103e5c…103ff0 Dummy {f00=0x002b, f01=0x0190, f02=»OT LOADED IN CORE x * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS , ' STR A1,A12 RESET QUEUE POINTER FORWARD H . ) ST A1,2,A12 RESET QUEUE POINTER BACKWARD x $ ST A8,4,A12 STORE PAGE ADDRESS . ) ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS 0 , ADK
0x103ff0…104184 Dummy {f00=0x002b, f01=0x0190, f02=» A6,1 DECREMENT SEGMENT BLOCK COUNTER RB(P) PAG:60 . * D < 8* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE N * CWR A4,A7 ANY FREE BLOCKS? P RF(E) PAG:90 NO! 4 / ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK
0x104184…104318 Dummy {f00=0x002b, f01=0x0190, f02=»2 STORE BACKWARD POINTER ~ $ ST A9,4,A12 STORE PAGE ADDRESS $ ST A2,6,A12 INDICATE PAGE FREE H * & ADK A4,1 INCREMENT PAGE BLOCK COUNTER p CWR A4,A7 LAST PAGE BLOCK? RF(E) PAG:80 YES! , ' LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK
0x104318…1044ac Dummy {f00=0x002b, f01=0x0190, f02=»0 NEXT PAGE RB PAG:70 PAG:80 EQU * & & ! LDKL A1,PAGQUE POINTER TO PAGQUE : $ STR A1,A12 STORE IN LAST BLOCK d & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PPAG:90 EQU * PPAGEX EQU *-REL P EJECT P XIF P P
0x1044ac…104640 Dummy {f00=0x002b, f01=0x0190, f02=»PPLICATION r P XIF P IFT CREDIT=1 , P LD A14,SAVE13,A13 TRUE START OF S:GTAB 4 P XIF d P SUKL A14,8 ADJUST FOR MAP p * P ADKL A13,SYA360 CONTINUATION ADDRESS $ P LDK A1,0 INDICATE SYSLOAD ENDED P OTR A1,0,SOP $ P LD A1,SCT
0x104640…1047d4 (2, 164) Dummy {f00=0x002b, f01=0x0190, f02=»A370 RESTORE PROGRAM BASE OINTER P* ( P* INIT A15 STACK 2 P* L P LD A15,SCTSTB V P SUKL A15,4 l P P* START APPLICATION P . P LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC P ST A1,SAVRTC,A13 SAVE 4 P LDKL A1,IHR
0x1047d4…104968 Dummy {f00=0x002b, f01=0x018e, f02=»TIALIZE DEVICES ~ P CF A15,SAVE8 SAVE REGISTERS P* < F P* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER F P* P LDKL A1,/FFFF SET COUNTER PDELAY SRC A2,31 P SUK A1,1 P RB(NZ) DELAY P INH ( P
0x104968…104afc Dummy {f00=0x002b, f01=0x0190, f02=» P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* < PIHRTCO EQU *-REL F P RIT RTCDA ^ P RTN A15 p P IFF CREDIT=0 P EJECT P 6 P************************************************* 6 P***
0x104afc…104c90 Dummy {f00=0x002b, f01=0x0190, f02=» ^ 6 P************************************************* P B 6 P* BUILD COMMON AND TASKCLASS DATA AREAS. * J 6 P* BUILD TASKDATA PROTOTYPE AREA * 6 P* * 6 P****************
0x104c90…104e24 Dummy {f00=0x002b, f01=0x0190, f02=»* *** 0 P** S U B R O U T I N E S ** 2 0 P******************************************** f P P 4 P** T : D A D D ** 4 P**
0x104e24…104fb8 Dummy {f00=0x002b, f01=0x0190, f02=» ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** 6 4 P** OUTPUT: A12=T:D ADDRESS ** n 4 P************************************************ PT:DADD EQU * P IFT CREDIT-MMUPAG=1
0x104fb8…10514c Dummy {f00=0x002b, f01=0x0190, f02=» EL A12,T:DAD,A12 P XIF P IFF CREDIT=0 & P AD A12,MOVADD,A13 RELOCATE < P RTN A14 ` P EJECT p P ~ P 6 P** M O V C O M ** 6 P** ** 6
0x10514c…1052e0 Dummy {f00=0x002b, f01=0x0190, f02=»AT LEAST TWO T:A'S, AND MOVE ** ~ 6 P** TO COMMON AREA ** ( 6 P** ** b 6 P** INPUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, SAT IN MASK **
0x1052e0…105474 (2, 165) Dummy {f00=0x002c, f01=0x0190, f02=»S: A1-A6,A9,A11,A12 ** 6 P************************************************* . P h PMOVCOM EQU * t & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YES! : P CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL (
0x105474…105608 Dummy {f00=0x002c, f01=0x0190, f02=» P CW A6,ENDADD,A13 ALL DONE? P RF(NE) MOVC30 NO ( PMOVC20 RTN A14 YES! B P IFT CREDIT-MMUPAG=1 ^ PMOVC30 LDR* A11,A6 z P LD A2,T:DAD,A11 T:D-ADDRESS P AD A2,MOVADD,A13 RELOCATE P ST A2,SAVE03,A13 SAVE , P LD A2,WATLEN,A2
0x105608…10579c Dummy {f00=0x002c, f01=0x0190, f02=»,A13 W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 $ . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES : P XIF l P IFT CREDIT+MMUPAG=2 x PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS P AD A2,MOVADD,A13 RELOCATE 0 P ST A2,SAVE03,A13 SA
0x10579c…105930 Dummy {f00=0x002c, f01=0x0190, f02=»T ELEMENTS. TAKE NEXT T:A x . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE " P ELR A11,A11 T . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES h P XIF P IFF CREDIT=0 P RB(NE) MOVC10 .NEQ. ( P LD A9,MOVED,A13 W.B. ALREADY MOVED? . P RF(
0x105930…105ac4 Dummy {f00=0x002c, f01=0x0190, f02=»MOVWB MOV WORK BLOCK P IM MOVED,A13 INDICATE MOVED P LD A4,UWB,A13 UWB-BLOCKS? @ P RF(Z) MOVC40 NO! b " P CALL GETPRO CREATE REAL UWB'S | 4 PMOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B. P CALL MOVDWB & PMOVC50 CALL CHADR CHANGE A
0x105ac4…105c58 Dummy {f00=0x002c, f01=0x0190, f02=»S n & P LDR A8,A6 REPLACE POINTER TO T:A * P LD A12,SAVE03,A13 REPLACE T:D-ADDRESS 4 P CALL MOVDWB b P LDR A8,A11 v * P LD A12,SAVE25,A13 RELOAD T:D-ADDRESS P RB MOVC10 P EJECT P P 4 P** G E T P
0x105c58…105dec Dummy {f00=0x002c, f01=0x0190, f02=» ` 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** 4 P** COPIES. FILL REAL U:BTAB ** @ 4 P** ** x 4 P** INPUT : A11=PROTOTYPE ADDRESS ** 4 P** A2=LAST W.B. - ADDRE
0x105dec…105f80 Dummy {f00=0x002c, f01=0x0190, f02=»************************************************ P 8 PGETPRO EQU * D ( P LD A3,U:BTOD,A13 GET U:BTAB ADDRESS X P IFT CREDIT-MMUPAG=1 P LDR* A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH P
0x105f80…106114 (2, 166) Dummy {f00=0x002c, f01=0x0190, f02=»F(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT . P RB GETP10 J P 0 P* GET NUMBER OF COPIES * h 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * P PGETP30 EQU * P LD A4,WBLEN,A11 W.B.-LENGTH
0x106114…1062a8 Dummy {f00=0x002c, f01=0x0190, f02=»A13 ADD TO NEW TABLE ADDRESS P LDR A9,A3 $ " P ST A4,URLENG,A9 STORE LENGTH 6 * P ST 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
0x1062a8…10643c Dummy {f00=0x002c, f01=0x0190, f02=» POINTER IN REAL U:BTAB * & P********************************* " PGETP50 EQU * L 6 P ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB ` P XIF P IFT CREDIT+MMUPAG=2 P ELR A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECOR
0x10643c…1065d0 Dummy {f00=0x002c, f01=0x0190, f02=»A10,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A10 ( , P RF(E) GETP30 YES! GET NUMBER OF COPIES < P ADK A3,UP:REC NEXT l P RB GETP10 P 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *
0x1065d0…106764 Dummy {f00=0x002c, f01=0x0190, f02=»1,A3 GET NUMBER OF COPIES P ANK A5,/FF " , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT 6 . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS f P LDR A9,A3 P TL* MMTO,A13 LOAD TO-TABLE * P ES A5,URNUMB,A9 ESORE IN REAL U:BTAB " P ES A4,URLEN
0x106764…1068f8 Dummy {f00=0x002c, f01=0x018e, f02=»**************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') $ P RF(NP) GETP50 V PGETP40 CALL MOVWB l P SUK A5,1 P RB(NZ) GETP40 P & P* UPDATE POINTER IN REAL U:BTAB * & P*********************************
0x1068f8…106a8c Dummy {f00=0x002c, f01=0x0190, f02=» P IFF CREDIT=0 P RTN A14 P EJECT . P < 2 P** M O V C L A ** H 2 P** ** ~ 2 P** ** 2 P** CHECKS IF W.B. ALREADY MOV
0x106a8c…106c20 Dummy {f00=0x002c, f01=0x0190, f02=» ** 2 P** A LOT OF WORKREGS. ** 2 2 P********************************************* h P PMOVCLA EQU * P CALL SHIFT P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRESS TO A1
0x106c20…106db4 (2, 167) Dummy {f00=0x0049, f01=0x0190, f02=»CL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT " P CALL MOVWB < P LD A4,UWB,A13 UWB-SCANNING P P RF(Z) MVCL50 NO! t P CALL GETPRO DUPLICATE WB'S . PMVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS P CALL MOVDWB PROCESS DWB'S P R
0x106db4…106f48 Dummy {f00=0x0049, f01=0x0190, f02=» ** x 6 P** ** " 6 P** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** 6 P** BLOCKS ALREDY MOVED ** 6 P** ** 6
0x106f48…1070dc Dummy {f00=0x0049, f01=0x0190, f02=»= NEW W.B.-ADDRESS ** ~ 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** ( 6 P** WORK.REGS: A1,A2 ** b 6 P************************************************* P PCHADR EQU * P IFT CREDIT-MMUPAG
0x1070dc…107270 Dummy {f00=0x0049, f01=0x0190, f02=» SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 * P STR A2,A1 D P XIF V P IFT CREDIT+MMUPAG=2 b P ELR A1,A6 T:A-ADDRESS ~ . P AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS P LD A2,NEWAD2,A13 P ESR A2,A1 & P SUK A1,2 ADDR
0x107270…107404 Dummy {f00=0x0049, f01=0x0190, f02=»FT CREDIT+SWPBLK=2 P EJECT B P************************************************************** ( B P* * n B P* * B P* B:RSWT - BU
0x107404…107598 Dummy {f00=0x0049, f01=0x0190, f02=» * B P* REFERENCED IN: SYSLDA * < B P* * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *
0x107598…10772c Dummy {f00=0x0049, f01=0x0190, f02=» * T B P* EXIT: * B P* * P B P* WORK REGISTERS: A1-A7 * B P*
0x10772c…1078c0 Dummy {f00=0x0049, f01=0x0190, f02=» * h B P************************************************************** P EJECT d PB:RSWT EQU * r * P LDR A8,A2 SAVE POINTER TO FIRST BLOCK , P LD A1,SCTSWB POINTER TO SWB BLOCK TABLE * P RF(Z) RSWBEX NO SWB:S IN APPLICATIO
0x1078c0…107a54 (2, 168) Dummy {f00=0x004a, f01=0x0190, f02=» v P LDR* A4,A1 POINTER TO BLOCK P LDR* A6,A4 NUMBER OF COPIES , $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P P XIF x P IFT CREDIT+MMUSWB=3 & P ES A6,2,A2 STORE NUMBER OF COPIES , P ES A7,4,A2 STORE LENGTH OF SWB IN BYTES P XIF P I
0x107a54…107be8 Dummy {f00=0x004a, f01=0x0190, f02=»DIT+SWPBLK=2 & P SUK A5,6 DECREMENTS S:BTAB LENGTH ( P ADK A2,6 INCREMENT POINTER IN BLOCK > ( P SUK A3,1 DECREMENT NUMBER OF TYPES j P RB(P) RSWB10 P LDR A4,A2 P* 4 P* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE ( P* AND R
0x107be8…107d7c Dummy {f00=0x004a, f01=0x0190, f02=»EMENT v P IFT CREDIT+SWBMMU=2 P LD A1,2,A8 NUMBER OF COPIES * P RF(Z) RSWB50 NO COPIES! N * P STR A6,A8 STORE POINTER TO TID BLOCK n PRSWB30 STR A3,A2 RESET TID , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2 DECREMENT LENGTH
0x107d7c…107f10 Dummy {f00=0x004a, f01=0x0190, f02=» EL A1,2,A8 GET NUMBER OF COPIES P RF(Z) RSWB50 NO COPIES! ( * P ESR A6,A8 STORE POINTER TO TID BLOCK H PRSWB40 ESR A3,A2 RESET TID v , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB ( P SUK A1,1 DECR
0x107f10…1080a4 Dummy {f00=0x004a, f01=0x0190, f02=» P RB(NE) RSWB20 " P LDR A5,A5 S:BTAB CONSISTENT? P RF(Z) RSWBEX YES D P LDKL A1,LMP6 SWB ERROR! ^ P CALL ERROR ~ PRSWBEX RTN A14 P XIF P IFF CREDIT=0 P EJECT P P* ************************** " P* ST
0x1080a4…108238 Dummy {f00=0x004a, f01=0x0190, f02=» P* A5=START-ADDRESS P* A9=P:MTAB ADDRESS P* SAVE03=DDIV TO-ADDRESS : P* SAVE04=DDIV FROM ADDRESS Z " P* SAVE05=LENGTH OF REAL T:ATAB | " P* SAVE06=LENGTH OF REAL U:BTAB P PSTART2 EQU *-REL " P LDR A8,P LOAD TEMP. STACKBA
0x108238…1083cc Dummy {f00=0x004a, f01=0x0190, f02=» n $ P LD A2,SAVE03,A13 GET TO ADDRESS . P LDR A3,A9 GET P:MTAB START (=END OF DDIV 0 P SUR A3,A1 => LENGTH b P XIF ~ P IFT CREDIT-MMUPAG=1 . P LD A8,SCTNOS ANY SEGMENTS IN APPLICATION? P RF(Z) NOSGMT NO! ( P LDKL A8,0 RESET FSTAD
0x1083cc…108560 Dummy {f00=0x004a, f01=0x0190, f02=»XT LDR* A4,A1 GET WORD P STR A4,A2 STORE P ADK A1,2 6 P ADK A2,2 H P SUK A3,2 DEC LENGTH Z P RB(NN) MOVNXT v P XIF P IFT CREDIT+MMUPAG=2 P CALL XMOVE & P* REMOVE DDIV ENTRIES IN MM-TABLE P " P LDR A1,A9 GET
0x108560…1086f4 (2, 169) Dummy {f00=0x004a, f01=0x0190, f02=»3 RELOCATE " P ADR A1,A2 P:MTAB START ENTRY P LDKL A4,/FC00 8 PSYA205 CWR A1,A2 ALL? N P RF(E) SYA207 YES! l , P STR A4,A1 REPLACE ENTRY WITH PAGE ERROR P SUK A1,2 P RB SYA205 PSYA207 EQU * P* CHANGE TABLE-ADDRESSES
0x1086f4…108888 Dummy {f00=0x004a, f01=0x0190, f02=» P ANKL A9,/FFFE EVEN ADDRESS , P ST A9,LSTADR,A13 SAVE END OF FREE AREA ( P X P ` P h . P* RESERVE SPACE FOR REAL T:A- AND U:BTAB * t P P IFT CREDIT+MMUPAG=2 ( P LDKL A3,MMTAB GET CURRENT MM-TABLE P ADR A3,A13 ,
0x108888…108a1c Dummy {f00=0x004a, f01=0x0190, f02=»AGE n * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE : * P CALL MOVING RESERVE SPACE FOR T:ATAB R $ P TL* MMTO,A13 SET CORRECT TABLE " P ESR A5,A2 STORE T:ATAB LENGTH . P ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS P ADK A2,
0x108a1c…108bb0 Dummy {f00=0x004a, f01=0x0190, f02=»E r P P LDR A3,A5 GET LENGTH P CALL MOVING 0 P TL* MMTO,A13 D P LDR A3,A9 GET P:MTAB Z & P ADK A3,T:AID ADD TO ADDRESS WORD x 0 P ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE " P ADK A2,2 ADJUST TABLE ADDRESS P ESR A2,A3 S
0x108bb0…108d44 Dummy {f00=0x004a, f01=0x0190, f02=» RESERVE SPACE 4 P ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS P IFT CREDIT-MMUPAG=1 N P STR A5,A2 STORE LENGTH j P ADK A2,2 : P ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P
0x108d44…108ed8 Dummy {f00=0x004a, f01=0x018e, f02=»:ATAB ADDRESS t P ADK A2,2 & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS ( P* RESERVE FOR T:AID TABLE R P t P LDR A3,A5 LENGTH | P CALL MOVING P STR A5,A2 STORE LENGTH $ P ADK A2,2 ADJUST FOR LENGTH-WORD , P ST A2,T:AID,A9 STORE
0x108ed8…10906c Dummy {f00=0x004a, f01=0x0190, f02=» P ADK A2,2 SKIP LENGTH WORD $ P ES A2,U:BTAB,A9 STORE IN P:MTAB & P XIF N P IFT SWPBLK+CREDIT=2 Z P* v * P* RESERV SPACE FOR REAL S:BTAB TABLE P* , P LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB P LDR A5,A3 SAVE P CALL MO
0x10906c…109200 Dummy {f00=0x004a, f01=0x018e, f02=» ES A2,S:BTAB,A9 P CALL B:RSWT P XIF , P IFT CREDIT+SWBMMU=2 8 P STR A5,A2 T P ADK A2,2 f P ST A2,S:BTAB,A9 x P CALL B:RSWT P XIF P IFT CREDIT+MMUPAG=2 " P TL* MMFROM,A13 RELOAD TABLE P XIF P IFF CREDI
0x109200…109394 (2, 170) Dummy {f00=0x004c, f01=0x0190, f02=» ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS P IFT CREDIT-MMUPAG=1 4 P LDR* A3,A8 GET LENGTH P P XIF n P IFT CREDIT+MMUPAG=2 z P ELR A3,A8 GET LENGTH P XIF P IFF CREDIT=0 P ADR A3,A8 0 P ST A3,ENDADD,A13 SAVE END OF T:
0x109394…109528 Dummy {f00=0x004c, f01=0x0190, f02=» RF(E) CLADAT YES! $ P CALL T:DADD T:D-ADDRESS TO A12 P IFT CREDIT-MMUPAG=1 B " P LD A7,CWBMSK,A12 GET CWB-MASK ^ P XIF P IFT CREDIT+MMUPAG=2 P EL A7,CWBMSK,A12 P XIF P IFF CREDIT=0 P CALL SHIFT SUPER-LOOPA P
0x109528…1096bc Dummy {f00=0x004c, f01=0x0190, f02=»QU * P* SEARCH UWB'S: P* $ & P IM UWB,A13 INDICATE UWB-SCANNING . P IFT CREDIT-MMUPAG=1 X P LD A7,UWBMSK,A12 t P XIF P IFT CREDIT+MMUPAG=2 P EL A7,UWBMSK,A12 P XIF P IFF CREDIT=0 P CALL SHIFT " PSY
0x1096bc…109850 Dummy {f00=0x004c, f01=0x0190, f02=»SK CLASS DATA CONFIGURATION PART * * P************************************** * P X PCLADAT EQU * ` 4 P LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB t P IFT CREDIT-MMUPAG=1 " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:
0x109850…1099e4 Dummy {f00=0x004c, f01=0x0190, f02=»LCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB & P ADK A1,2 P ANKL A1,/FFFE EVEN ADDRESS n ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST * P LDR A3,A1 GET NUMBER OF START-POINTS P ADR A3,A12 ADD T:D-ADDRESS
0x1099e4…109b78 Dummy {f00=0x004c, f01=0x0190, f02=»' z P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS & P CALL MOVING MOVE T:D F P LDR* A1,A8 GET T:A ADDRESS d * P ST A2,T:DAD,A1 STORE NEW T:D ADDRESS " P LD A7,CWBMSK,A12 GET CWBMASK P XIF P IFT CREDIT+MMUPAG=2 ( P* IN
0x109b78…109d0c Dummy {f00=0x004c, f01=0x0190, f02=»,SAVE06,A13 SAVE " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS > P CW A8,ENDADD,A13 j " P RF(E) SYA270 ALL T:A'S DONE! " P CALL GETTAB GET TTAB-ADDRESS P CALL MOVMMT MOVE MM-TABLE " P* FILL MM-TABLE ADDRES
0x109d0c…109ea0 Dummy {f00=0x004c, f01=0x0190, f02=» FILL TABLE ( P CALL T:DADD GET T:D ADDRESS TO A12 4 P ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB @ P x P* CALCULATE LENGTH OF T:D P 2 P EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB P ADK A1,2 P ANKL A1,/FFFE EVEN AD
0x109ea0…10a034 (2, 171) Dummy {f00=0x004c, f01=0x0190, f02=»A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY @ P ADK A3,2 'NUMBER-WORD' ` P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS P CALL MOVING MOVE T:D P ELR A1,A8 GET T:A ADDRESS * P ES A2,T:DAD
0x10a034…10a1c8 Dummy {f00=0x004c, f01=0x0190, f02=» P P P* TASK CLASS DATA UWB'S * P************************* > & P IM UWB,A13 INDICATE UWB SCANNING ` P IFT CREDIT-MMUPAG=1 " P LD A7,UWBMSK,A12 GET UWBMASK P XIF P IFT CREDIT+MMUPAG=2 P EL A7,UWBMSK,A12
0x10a1c8…10a35c Dummy {f00=0x004c, f01=0x0190, f02=»****************************** P & PSYA260 EQU * . P IFT CREDIT-MMUPAG=1 B P LD A7,SWBMSK,A12 ^ P RF(Z) SYA265 NONE x P CALL SKRITT PSYA265 LD A7,TWBMSK,A12 P XIF P IFT CREDIT+MMUPAG=2 P EL A7,SWBMSK,A12 P
0x10a35c…10a4f0 Dummy {f00=0x004c, f01=0x0190, f02=»ALL SKRITT P RB SYA250 P $ PSYA270 RF PRODAT 0 P EJECT H P V P b 4 P** S K R I T T ** n 4 P** ** 4 P** MOVE D.T
0x10a4f0…10a684 Dummy {f00=0x004c, f01=0x0190, f02=» * P CALL SHIFT PNO RF(NZ) NES P RTN A14 4 PNES CALL GETWB D P CALL MOVDT Z . P CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) n P CALL MOVDWB P CALL SKIFTA P RB NO P EJECT P & P* BUILD TASKDATA PROTOTY
0x10a684…10a818 Dummy {f00=0x004c, f01=0x018e, f02=»? j P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 $ & P CM TTB:PP,A2 CLEAR TCL SAVE AREA Z P IFT CREDIT+MMUPAG=2 =00001 P CALL MOVMMT MOVE MM-TABLE P XIF =00001 P IFF CREDIT=0 =00001 PSYA275 EQU
0x10a818…10a9ac Dummy {f00=0x004c, f01=0x0190, f02=» PSYA280 ADKL A8,2 P CW A8,ENDADD,A13 P RF(E) SYA290 ALL DONE 6 P IFT CREDIT-MMUPAG=1 T " P LDR* A12,A8 GET T:D ADDRESS.. p P LD A12,T:DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P " P* CALCULATE LENGTH OF
0x10a9ac…10ab40 Dummy {f00=0x004c, f01=0x0190, f02=» n P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X (A2) RESULT IN A3 * & P ST A3,CSN,A1 SAVE LENG OF DSCB'S V ( P LD A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T:ASTA
0x10ab40…10acd4 (2, 172) Dummy {f00=0x004f, f01=0x0190, f02=»SE,A1 AND SAVE TEMPORARY * P LD A2,SCTLAC GET START OF COMMON PART P LD A2,P:BAS,A2 GET P:BAS N P ST A2,CSB,A1 AND SAVE p " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF
0x10acd4…10ae68 Dummy {f00=0x004f, f01=0x0190, f02=»GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE P 4 ( P TL MMBEG,A2 LOAD CLASS LOCAL TABLE < * P LDKL A3,MMTAB GET WORK TABLE ADDRESS h P ADR A3,A13 $ P TSR A3 STORE TABLE IN WORK-AREA $ P TL MMDDIV,A13 RELOAD DDIV TABLE P CALL MMENT GE
0x10ae68…10affc Dummy {f00=0x004f, f01=0x0190, f02=» r " P*** *** 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 (A2) RESULT IN A3 & P ES A3,CSN,A1 SAVE LENG OF DSCB'S ( P EL A2,FCD
0x10affc…10b190 Dummy {f00=0x004f, f01=0x0190, f02=»TO FIRST WORD v 6 PSYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART " P EL A2,STKB,A1 GET STACK SIZE P & P ES A2,CSE,A1 AND SAVE (TEMPORARY) v & P LD A2,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT TABLE P EL A2,P:BAS,A2 GET P:
0x10b190…10b324 Dummy {f00=0x004f, f01=0x0190, f02=»OVE T:A * P ESR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF > P IFF CREDIT=0 J P RB SYA280 NEXT ` P EJECT x PSYA290 EQU * 4 P IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING , P* INCLUDE DDIV AND PART 2.A IN FREE AREA P .
0x10b324…10b4b8 Dummy {f00=0x004f, f01=0x018e, f02=»A3,/F000 $ P SRL A3,2 GET NEW PHYSICALL PAGE P ST A3,FSTPAG,A13 SAVE 8 ( P ANKL A2,/FFF GET NEW PAGE INCREMENT V P ST A2,FSTADR,A13 SAVE P* MOVE T:ATAB P * P LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS P XIF P IFT CREDIT-MMUP
0x10b4b8…10b64c Dummy {f00=0x004f, f01=0x0190, f02=» P LDR* A1,A2 REAL LENGTH $ P ADR A2,A1 END OF TABLE ADDRESS $ P ST A2,ENDADD,A13 SAVE L & P LD A1,T:ATOD,A13 GET FROM-ADDRESS j P LDR* A3,A1 MOVE-LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE P CALL MOVE P XIF
0x10b64c…10b7e0 Dummy {f00=0x004f, f01=0x0190, f02=»AD TABLE | P ADR A2,A1 END ADDRESS 4 P ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION' . * P LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB f P ELR A3,A1 GET LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE P CALL XMOVE P XIF
0x10b7e0…10b974 (2, 173) Dummy {f00=0x0050, f01=0x0190, f02=»D BASE ADDRESS P ABR A5 & PLENGT2 EQU *-REL LENGTH OF PART 2 & P EJECT P P ^ P j 2 P********************************************* v 2 P******* ******* 2 P**
0x10b974…10bb08 Dummy {f00=0x0050, f01=0x0190, f02=» ***** 2 P********************************************* * P ` 2 P* READ CONFIGURATION FILE & BUILD * l 2 P* SHADOW-TABLES * 2 P* *
0x10bb08…10bc9c Dummy {f00=0x0050, f01=0x0190, f02=»********* t * P*** *** * P** S U B R O U T I N E S ** @ ( P** -USED IN THIS PART ONLY * n * P************************************* P EJECT P P 6 P** C O N
0x10bc9c…10be30 Dummy {f00=0x0050, f01=0x0190, f02=» ** b 6 P** CONVERSION OF TWO ASCII-DIGITS TO BINARY ** 6 P** ** F 6 P** INPUT : A5=ASCII DIGITS ** 6 P** OUTPUT: A1=BINARY RESULT ** 6 P** WORK.REGS: A3,A2
0x10be30…10bfc4 Dummy {f00=0x0050, f01=0x0190, f02=»0 CLEAR RESULT REG P LDR A3,A5 P SRL A3,8 GET TEN'S , P SUK A3,/30 H P ADR A1,A3 P LDR A2,A1 MULT BY 10 n P ADR A1,A1 . P SLL A2,3 . P ADR A1,A2 .... P LDR A3,A5 P ANK A3,/F GET ONE'S P ADR A1,A3
0x10bfc4…10c158 Dummy {f00=0x0050, f01=0x0190, f02=» ** l 6 P** ** 6 P** SKIP TO NEXT BLOCK IN CONFIGURATION FILE ** P 6 P** ** 6 P** INPUT: A11=ADDRESS TO CURRENT BLOCK-START ** 6 P** OUTPUT
0x10c158…10c2ec Dummy {f00=0x0050, f01=0x018e, f02=» ** r 6 P************************************************** P V PNXTBLK EQU * ^ 6 P ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES r 2 PNXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK P LCR A5,A11 P SLL A5,8 P
0x10c2ec…10c480 Dummy {f00=0x0050, f01=0x0190, f02=» 0 P LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES P SLL A5,8 8 P LC A5,1,A11 J P CALL CONVRT ^ , P LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH r P LDR A3,A1 P CALL MULT P ADR A11,A3 A11=NEXT BLOCK P ADKL A11,2 $ P LC A2,TDBBT
0x10c480…10c614 (2, 174) Dummy {f00=0x0050, f01=0x0190, f02=» ** 8 P** ** 4 8 P** CONVERT 3 ASCII-DIGITS TO BINARY ** p 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST
0x10c614…10c7a8 Dummy {f00=0x0050, f01=0x0190, f02=» ** ` 8 P**************************************************** P H PGETNUM EQU * T P LDK A4,100 FIRST INCREMENT h P LDK A5,0 CLEAR RESULT REG P SUK A6,1 INIT POINTER PGET030 ADK A6,1 NEXT DIGIT P LCR A2,A6 GET CHAR
0x10c7a8…10c93c Dummy {f00=0x0050, f01=0x0190, f02=» SUK A4,90 NEXT INCREMENT (TEN'S) P RB(P) GET030 * & P ADK A4,81 NEXT INCREMENT (ONE'S) @ P RB(P) GET030 THIRD DIGIT j P RTN A14 P EJECT P P* START OF PROGRAM PART 1 * P 4 P* SAVE02=POINTER TO 1:ST USER TASK TTAB-AD
0x10c93c…10cad0 Dummy {f00=0x0050, f01=0x0190, f02=» P* P LD A15,SCTSTB P SUKL A15,4 $ P 8 & P LD A2,SCTLAC GET S:GTAB (IF ANY) @ P IFT MMUPAG=0 j . P LD A2,CREID,A2 GET CREDIT IDENTIFICATION P XIF P IFT MMUPAG=1 P TL MMTAB,A13 %%## P EL A2,CREID,A2 P X
0x10cad0…10cc64 Dummy {f00=0x0050, f01=0x0190, f02=»0 YES! START CONFIGURATE P IFF CREDIT=1 P 6 P* ASSEMBLER APPLICATION > P ^ P* SWITCH TO LEVEL 0 ENB f P ( P LDKL A4,SYA103 CONTINUATION ADDRESS P ADR A4,A13 RELOCATE P STR A4,A15 PUT ON STACK P LDKL A4,/00C0
0x10cc64…10cdf8 Dummy {f00=0x0050, f01=0x0190, f02=»ET MM-TABLE ADDRESS P ADR A4,A13 RELOCATE P ST A4,MMFROM,A13 SAVE 8 ( P* FILL MM-TABLES IN USER TASK TTAB'S V P ( P LD* A5,SCTTCT GET LENGTH OF TC:TAB $ P LD A6,SAVE02,A13 1:ST USER TASK P LDR A3,A6 SAVE 0 P SU A3,SCTTCT GET
0x10cdf8…10cf8c Dummy {f00=0x0050, f01=0x0190, f02=»DKL A1,/FC00 P LDKL A2,MMTAB P ADR A2,A13 * P LDR A4,A2 =00002 > P SUKL A4,MMBEG X P AD A4,SCTMMC n PSYA:10 CWR A4,A2 P RF(E) SYA105 P SUK A4,2 P STR A1,A4 P RB SYA:10 PSYA105 SUK A5,2 ALL? P RF(
0x10cf8c…10d120 Dummy {f00=0x0050, f01=0x018e, f02=»A107 EQU * P XIF P IFF CREDIT=1 2 P LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS 4 . P LD A2,SAVE09,A13 EXECUTION START ADDRESS j ( P AD A2,SCTLAC ADD RELOCATION ADDRESS P LDK A3,0 SEGMENT NUMBER P CF A15,ACTOT QUEUE TASK " P
0x10d120…10d2b4 (2, 175) Dummy {f00=0x0050, f01=0x018e, f02=» P , P* READ CONFIG FILE AND BUILD SHADOWTABLE P D 0 P CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR' P P IFT CREDIT-MMUPAG=1 & P LD* A2,SCTLAC GET START OF P:MTAB $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS & P SUKL A12,2 ADJUST FOR
0x10d2b4…10d448 Dummy {f00=0x0050, f01=0x0190, f02=» $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA P XIF , P IFT CREDIT+SWBMMU=2 8 ( P LD A4,S:BTAB,A2 GET S:BTAB ADDRESS T $ P SUK A4,2 ADJUST FOR LENGTH WORD P ST A4,S:BTOD,A13 SAVE P XIF P IFT CREDIT-MMUPAG=1 P* T:ATAB PROCESSING:
0x10d448…10d5dc Dummy {f00=0x0050, f01=0x0190, f02=» ~ P " P LDR A11,A3 END OF SHADOW-TAB P LDR A9,A13 START OF SYSLDA 6 P CALL CMPADR Z P RF(L) SYA110 OK! n " P LDKL A1,LMP3 MEMORY OVERFLOW P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS P LDK A2,0 P* CLEAR
0x10d5dc…10d770 Dummy {f00=0x0050, f01=0x0190, f02=» " P STR A4,A3 STORE TABLE LENGTH ( P LD A11,SAVE01,A13 GET CONFIG START * " P LC A2,TDBBT,A11 GET BLOCKTYPE V P CCK A2,'TT' TASK DEF? | P RF(E) SYA120 OK! P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR ( PSYA120 LC A2,TDBMC+4,A11 GET
0x10d770…10d904 Dummy {f00=0x0050, f01=0x0190, f02=»E02,A13 INDICATE BUGGER TASK PRESENT =00001 " P RF SYA136 SKIP TO NEXT BLOCK 4 PSYA125 LDR A8,A12 SAVE Z P LDR* A4,A12 T:ATAB LENGTH x PSYA130 ADKL A8,2 NEXT T:A P LDR* A6,A8 GET T:A ADDRESS P SUK A4,2 P RF(NZ) SYA135 0 P
0x10d904…10da98 Dummy {f00=0x0050, f01=0x0190, f02=»SYA130 NO! P SUR* A4,A12 T:ATAB LENGTH P XIF 4 P IFT CREDIT+MMUPAG=2 @ & P EL* A2,SCTLAC GET START OF P:MTAB $ P EL A12,T:ATAB,A2 T:ATAB ADDRESS $ P SUKL A12,2 INCLUDE LENGTH WORD & P ST A12,T:ATOD,A13 SAVE IN SYSLDA $ P EL A4,U
0x10da98…10dc2c Dummy {f00=0x0050, f01=0x0190, f02=»MMUSWB=3 ( P EL A4,S:BTAB,A2 GET S:BTAB ADDRESS $ P SUK A4,2 ADJUST FOR LENGTH WORD < P ST A4,S:BTOD,A13 SAVE d P XIF P IFT CREDIT+MMUPAG=2 P* T:ATAB PROCESSING: P P ELR A4,A12 T:ATAB-LENGTH P LDR A3,A4 SAVE
0x10dc2c…10ddc0 Dummy {f00=0x0050, f01=0x0190, f02=» LDR A11,A3 END OF SHADOW-TABLE P LDR A9,A13 START OF SYSLDA ( P CALL CMPADR L P RF(L) SYA110 OK! ` " P LDKL A1,LMP3 MEMORY OVERFLOW z P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS P* CLEAR T:ATAB SHADOW-TABLE: P
0x10ddc0…10df54 (2, 176) Dummy {f00=0x0051, f01=0x0190, f02=»GTH v ( P LD A11,SAVE01,A13 GET CONFIG START " P LC A2,TDBBT,A11 GET BLOCKTYPE 8 P CCK A2,'TT' TASK DEF? ^ P RF(E) SYA120 OK! | P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID P SLL A2,8 .
0x10df54…10e0e8 Dummy {f00=0x0051, f01=0x0190, f02=»PRESENT' h P RF SYA136 SKIP THIS BLOCK PSYA125 LDR A8,A12 SAVE 2 P ELR A4,A12 T:ATAB LENGTH P PSYA130 ADKL A8,2 NEXT T:A r P ELR A6,A8 GET T:A ADDRESS P SUK A4,2 P RF(NZ) SYA135 , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR)
0x10e0e8…10e27c Dummy {f00=0x0051, f01=0x018e, f02=» ELR A10,A12 P SUR A4,A10 T:ATAB LENGTH P XIF 6 P IFF CREDIT=0 B . P NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB X ( P LC A5,TDBNT,A11 GET NUMBER OF TASKS P SLL A5,8 P LC A5,TDBNT+1,A11 P CALL CONVRT ( P LD A2,SCTSFA STAR
0x10e27c…10e410 Dummy {f00=0x0051, f01=0x0190, f02=» z P ! PSYA136 CALL NXTBLK ! PSYA137 EQU * ! . P CCK A2,'TT' ! B & P RB(E) SYA120 NEXT TASK DEF BLOCK ! V P CCK A2,'CC' ! P RF(NE) SYA140 ! * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ! P CALL NXTCOM SKIP COMMON DEF ! PSYA140 CCK A
0x10e410…10e5a4 Dummy {f00=0x0051, f01=0x0190, f02=» IN PROTOTYPE ! l PSYA141 EQU * " P XIF " * P IFT CREDIT+SWPBLK=2 " 6 P LCR A2,A11 " R P CCK A2,'SS' " f P RF(NE) SYA152 " z P LD A8,S:BTOD,A13 " P CALL USWBTP " P XIF " P IFT CREDIT=1 " P RF SYA152 " P EJECT " L P********
0x10e5a4…10e738 Dummy {f00=0x0051, f01=0x0190, f02=» * " P L P* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * # L P* ================================================================= * # ` L P* * # L P* REFER
0x10e738…10e8cc Dummy {f00=0x0051, f01=0x0190, f02=» * # P L P* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * $ L P* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * $ ` L P* * $ L P* EXIT:
0x10e8cc…10ea60 Dummy {f00=0x0051, f01=0x0190, f02=» * $ P L P* WORK REGISTERS: * % L P* * % ` L P* SUBROUTINES: GETNUM,ERROR * % L P*
0x10ea60…10ebf4 (2, 177) Dummy {f00=0x0051, f01=0x0190, f02=»******* % P P & PUSWBTP EQU * & P & , P XIF & 4 P IFT CREDIT-MMUPAG=1 & @ P ADKL A11,1 & P LDR A6,A11 & p * P CALL GETNUM PACK 3 DIG. RESULT IN A5 & $ P LDR A1,A5 SAVE NUMBER OF UWB'S & PSYA142 EQU * & P LDR A12,A8 & " P LDR*
0x10ebf4…10ed88 Dummy {f00=0x0051, f01=0x0190, f02=»FIG & h P SLL A2,8 ' P LC A2,1,A11 GET 2:ND CHAR ' 6 P CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP ' @ * P RF(E) FRSTOK FIRST TWO CHARACTERS OK! ' z 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S ' P RF(NN) SYA150 ' P LDK A1,LMP6 UWB NOT F
0x10ed88…10ef1c Dummy {f00=0x0051, f01=0x0190, f02=» 3:RD CHAR ' z P CC A2,UPNAME+2,A12 ( P RB(NE) SYA147 .NEQ. ( . P EJECT ( J P ( X P* PROTOTYPE FOUND * ( d P ( 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG ( P LDR A6,A11 ( P CALL GETNUM CONVERT ( 2 P SC A5,UPNUMB,A1
0x10ef1c…10f0b0 Dummy {f00=0x0051, f01=0x018e, f02=» RTN A14 ( P XIF ) P IFT CREDIT+MMUPAG=2 ) P ADKL A11,1 ) 8 P LDR A6,A11 ) L * P CALL GETNUM PACK 3 DIG. RESULT IN A5 ) ` $ P LDR A1,A5 SAVE NUMBER OF UWB'S ) PSYA142 EQU * ) P LDR A12,A8 START OF TABLE ) P ELR A3,A12 LENGTH OF U:BTAB
0x10f0b0…10f244 Dummy {f00=0x0051, f01=0x0190, f02=» ) P LC A2,1,A11 GET 2:ND CHAR * 2 P EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE * * P CWR A2,A10 * ` P RF(E) FRSTOK FIRST WORD OK! * t 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S * P RF(NN) SYA150 * P LDK A1,LMP6 UWB NOT FOUND * P CAL
0x10f244…10f3d8 Dummy {f00=0x0051, f01=0x0190, f02=» CONFIG * j 0 P EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY + P SRL A2,8 + D P ANKL A10,/FF + V P CWR A10,A2 + l P RB(NE) SYA147 .NEQ. + P EJECT + P + P* PROTOTYPE FOUND * + P******************* + P + 8 P ADKL A11,NAMU
0x10f3d8…10f56c Dummy {f00=0x0051, f01=0x0190, f02=»-TABLE + f P ANKL A10,/FF00 , P ORR A10,A5 , & P ES A10,UPNUMB-1,A12 , : . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE , V P RB(P) SYA142 , P ADKL A11,UDBFST-1 , P RTN A14 , P XIF , P IFT CREDIT=1 , P EJECT , PSYA152 EQU * ,
0x10f56c…10f700 Dummy {f00=0x0051, f01=0x0190, f02=»OF T:ATAB , r P XIF - P IFT CREDIT+MMUPAG=2 - ( P EL* A7,T:ATOD,A13 GET T:ATAB LENGTH - : * P SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE - f P XIF - P IFF CREDIT=0 - 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE - P ADK A7,1 - P ANKL A7,/FF
0x10f700…10f894 (2, 178) Dummy {f00=0x0052, f01=0x0190, f02=»2,A2 - 4 P ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY . P IFT CREDIT+MMUPAG=2 . D & P* CREATE SYSLDA & DDIV MM-TABLE * . ` P . " P LDR A2,A7 TO-ADDRESS (SYSLDA) . P ANKL A2,/F000 FIRST PAGE . ( P ST A2,MMREL1,A13 SAVE PHYSICAL PAGE . " P S
0x10f894…10fa28 Dummy {f00=0x0052, f01=0x0190, f02=» ( PSYA157 STR A2,A11 STORE PAGE-POINTER / P ADKL A11,2 NEXT ENTRY / 0 P ADKL A2,/400 PAGE INCREMENT / N P SUK A3,1 ALL? / r P RB(NZ) SYA157 NO! / ( P ANKL A7,/FFF GET DISPLACEM. IN PAGE / P XIF / P IFF CREDIT=0 / 0 P ST A7,SAVE12,A13 SAVE (
0x10fa28…10fbbc Dummy {f00=0x0052, f01=0x0190, f02=» / $ P* CALCULATE DDIV FROM-ADDRESS * 0 P 0 2 P LD A1,SCTLAC GET S:GTAB 0 : * P ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS 0 Z & P ST A9,SCTLAC SAVE START OF P:MTAB 0 P IFT CREDIT-MMUPAG=1 0 ( P LD A3,NUMSEG,A1 NUMBER OF SEGMENTS 0 P XIF 0 P I
0x10fbbc…10fd50 Dummy {f00=0x0052, f01=0x0190, f02=»ORD LENGTH 0 p P CALL MULT 1 P ADR A1,A3 1 $ & P ADK A1,NUMSEG+2 => START OF DDIV 1 6 2 P LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT 1 ` 0 P ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE 1 P IFT CREDIT+MMUPAG=2 1 P 1 . P ST A1,SAVE04,A13 SAVE DDI
0x10fd50…10fee4 Dummy {f00=0x0052, f01=0x0190, f02=»0 1 " P SUR A6,A1 RELOCATION FOR DDIV 2 P EJECT 2 0 P 2 > P 2 F P 2 R 0 P* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * 2 ^ . P* CALCULATE TOTAL (=REAL) LENGTH * 2 . P* REMOVE NOT USED ENTRIES IN T:ATAB * 2 . P* A9=P:MTAB A6=M
0x10fee4…110078 Dummy {f00=0x0052, f01=0x018e, f02=»S 2 ~ P 3 ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS 3 P LDR* A3,A8 GET LENGTH 3 > P ADR A3,A8 END OF T:ATAB 3 P ST A3,ENDADD,A13 SAVE 3 | 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB 3 P LDR A4,A5 2:ND POINTER 3 & P LDR A2,A8 2:ND POINTER IN
0x110078…11020c Dummy {f00=0x0052, f01=0x018e, f02=» P 4 " PSYA160 ADKL A8,2 TAKE NEXT T:A 4 $ P ADK A5,2 NEXT T:A IN SHADOW-TAB 4 2 P CW A8,ENDADD,A13 4 Z P RF(E) SYA170 ALL DONE 4 t P LDR* A1,A8 GET T:A 4 * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB 4 , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! 4
0x11020c…1103a0 Dummy {f00=0x0052, f01=0x0190, f02=» ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS 5 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) 5 0 P LDR* A10,A8 GET T:A-ADDRESS 5 l P ADR A10,A6 RELOCATE 5 . P STR A10,A2 STORE ADDR. (EV. ON NEW PLACE) 5 P* RELOCATE W.B.-ADDRESSES 5 P 5 $ P
0x1103a0…110534 (2, 179) Dummy {f00=0x0052, f01=0x0190, f02=» SUK A7,1 DEC. COUNTER 5 P RB(N) SYA160 TAKE NEXT T:A 6 P ADRS A6,A1 RELOCATE 6 B P XIF 6 ^ P IFT CREDIT+MMUPAG=2 6 j P 6 P* INITIATE POINTERS 6 P 6 P LD A8,T:ATOD,A13 T:ATAB 6 P ELR A3,A8 GET LENGTH 6 P ADR A3,A8 END OF T:ATAB
0x110534…1106c8 Dummy {f00=0x0052, f01=0x0190, f02=»D POINTER IN T:ATAB 6 & P LDK A3,2 SET 'NEW' T:ATAB COUNTER 7 . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR 7 F P 7 x P* SCAN T:ATAB: 7 P 7 " PSYA160 ADKL A8,2 TAKE NEXT T:A 7 $ P ADK A5,2 NEXT T:A IN SHADOW-TAB 7 P CW A8,ENDADD,A13 7 P R
0x1106c8…11085c Dummy {f00=0x0052, f01=0x018e, f02=»!!! 7 l " P ADR A11,A7 ACCUMULATE LENGTH 8 , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH 8 2 , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS 8 b ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS 8 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) 8 P ELR A10,A8 GE
0x11085c…1109f0 Dummy {f00=0x0052, f01=0x0190, f02=» 8 $ P EL A12,T:DAD,A1 GET T:D-ADDRESS 9 $ P EL A7,WATLEN,A12 LENGTH OF WAT 9 0 . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS 9 X PSYA165 SUK A7,1 DEC. COUNTER 9 P RB(N) SYA160 TAKE NEXT T:A 9 P ELR A10,A1 GET ADDRESS 9 P ADR A10,A6 RELOCATE 9
0x1109f0…110b84 Dummy {f00=0x0052, f01=0x0190, f02=»T A6,MOVADD,A13 SAVE 9 8 P ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB : P IFT CREDIT+MMUPAG=2 : X $ P ES* A3,T:ATOD,A13 AND IN T:ATAB : t P XIF : P IFT CREDIT-MMUPAG=1 : $ P ST* A3,T:ATOD,A13 AND IN T:ATAB : P XIF : P IFF CREDIT=0 :
0x110b84…110d18 Dummy {f00=0x0052, f01=0x018e, f02=»3 SAVE TOT. NUMBER OF T:A'S : P ; $ P EJECT ; 0 " P****************************** ; > $ P* RELOCATE ADDRESSES IN U:BTAB * ; d $ P* (REAL LENGTH=PROTOTYPE LEN.) * ; $ P******************************** ; P ; P IFT CREDIT-MMUPAG=1 ; $ P LD A5,U
0x110d18…110eac Dummy {f00=0x0052, f01=0x018e, f02=» ; ~ " PSYA180 RF(Z) SYA185 ALL DONE! < P ADRS A6,A5 RELOCATE < . P XIF < J P IFT CREDIT+MMUPAG=2 < V $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS < r P ELR A3,A5 TABLE LENGTH < , P ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB < P ADK A5,2 < P SUK A3,2 SU
0x110eac…111040 Dummy {f00=0x0052, f01=0x0190, f02=» < P IFF CREDIT=0 = 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP = P SUK A3,UP:REC = Z P RB SYA180 = p P EJECT = PSYA185 EQU * = P IFT CREDIT+MMUSWB=3 = P* = $ P* COMPUTE REAL LENGTH OF S:BTAB = P* = $ P LD A5,S:BTO
0x111040…1111d4 (2, 180) Dummy {f00=0x0052, f01=0x0190, f02=»F(Z) SYA199 ALL RECORDS SCANNED! = $ P EL A4,2,A5 GET PROT. W.B.-ADDR. > ( P ADR A4,A6 RELOCATE > P P ES A4,2,A5 STORE IT BACK > l , P EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES > P ANK A4,/FF GET RIGHT BYTE > . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYP
0x1111d4…111368 Dummy {f00=0x0052, f01=0x0190, f02=»RD IN S:BTAB PROTOTYPE > r $ P SUK A3,UP:REC DECREMENT LENGTH ? P RB SYA190 ? F P XIF ? X P IFT CREDIT+SWBMMU=2 ? d $ P LD A5,S:BTOD,A13 S:BTAB ADDRESS ? * P LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE ? P LDR A2,A3 SAVE ? " P SUK A3,2 EXCLUDE LENGTH W
0x111368…1114fc Dummy {f00=0x0052, f01=0x0190, f02=»,A5 STORE IT BACK ? , P LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES @ P ANK A4,/FF @ J . PSYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! @ ^ P ADK A2,2 INCREMENT LENGTH @ ( P SUK A4,1 DECREMENT NUMBER OF COPIES @ P RB SYA196 @ 8 PSYA198 ADK A5,UP:REC NEX
0x1114fc…111690 Dummy {f00=0x0052, f01=0x0190, f02=»A199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH @ P XIF A 2 P IFT CREDIT=1 A > P EJECT A T P A b 6 P* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB A j P A P ADS A6,T:ATOD,A13 A P ADS A6,U:BTOD,A13 A P IFT CREDIT+SWPBLK=2 A P ADS A6,
0x111690…111824 Dummy {f00=0x0052, f01=0x0190, f02=»D-START A | $ P AD A5,SAVE12,A13 ADD NEW START B P ST A5,DATEND,A13 SAVE B 8 P XIF B V P IFT CREDIT+MMUPAG=2 B b P B ~ P B P* STORE MMTABLE ADDRESSES B P B P LDK A4,MMDDIV B " P ADR A4,A13 GET TABLE ADDRESS B & P LDR A5,A13 CALC. RE
0x111824…1119b8 Dummy {f00=0x0052, f01=0x0190, f02=»DK A4,MMTAB B $ P ADR A4,A13 'WORK-TABLE' ADDRESS C P SUR A4,A5 RELOCATE C < P ST A4,MMFROM,A13 C X P* CALCULATE DDIV END C r P C P LDR A5,A9 DDIV END C P SU A5,SAVE04,A13 ENT-START C $ P AD A5,SAVE12,A13 ADD NEW START C P LDR A6,A5
0x1119b8…111b4c Dummy {f00=0x0052, f01=0x0190, f02=»DRESS C l P ADR A6,A13 RELOCATE D & P LDR* A6,A6 GET MM-TABLE CONTENTS D * P ST A6,FSTPAG,A13 SAVE D T " P ANKL A5,/FFF GET DISPLACEMENT D r P ST A5,FSTADR,A13 AND SAVE D P XIF D P IFF CREDIT=0 D P* CONTINUE IN PART 2 * D P D . P L
0x111b4c…111ce0 Dummy {f00=0x0052, f01=0x0190, f02=»EXECUTION START ADDRESS D | P ADR A7,A2 E " P LDKL A3,LENGT2 SYSLDA LENGTH E 2 P LDR A1,A13 FROM-ADDRESS E X P E x P* MOVE SYSLDA * E P E P IFT CREDIT-MMUPAG=1 E PNXTMOV LDR* A4,A1 GET WORD E P STR A4,A2 STORE WORD E P ADK A1,2 E
0x111ce0…111e74 (2, 181) Dummy {f00=0x0053, f01=0x40e4, f02=» E P IFF CREDIT=0 F P F * P ABR A7 HEJ SVEJS! VI SES I PART 2... F & P XIF F T P IFT CREDIT=0 F ` P LDKL A1,LMP9 F v $ P CALL ERROR INCONSISTENT MONITOR F P XIF F PLDAEND EQU * F P END F @ F
0x111e74…112008 Dummy {f00=0x0053, f01=0x2008, f02=» G -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
0x112008…11219c Dummy {f00=0x0053, f01=0x0190, f02=» INTSAVL , ( _ B J B ! ! 4 A , ( 7 ? hJ T A T P 4 ! F IH1502 Z v , ( U A ? h_ I " P A , ( U s < A 4 A _$B P W , ( @ N " * 9AY X
0x11219c…112330 Dummy {f00=0x0053, f01=0x0190, f02=» * 4 _ ? @ A @ T , ( < @ A . , ( E / A a 4 X A ^ , ( $ M > Z A 4 A , ( T k < ! @ P ! f ! R @ P a DW1500 , (
0x112330…1124c4 Dummy {f00=0x0053, f01=0x0190, f02=» A t u ( , ( : , ( + j K H D ! V B GPz KPb OP SP UW [P _P g u wP. H D ! { P
0x1124c4…112658 Dummy {f00=0x0053, f01=0x0190, f02=» H D ! R2 T* P& #P 3P 7T ? CT G K Q j U n Y r ] v a z e ~ H D !c gW Tx P Pz V P TL TF P H D !^ T< P f % )T - 1 ? E KP QP W h e H D !nA kP o u yT ^
0x112658…1127ec Dummy {f00=0x0053, f01=0x0190, f02=» P T T8 W T N @ P f R . H D !. W T b !T 3 [ _ R mP6 sR0 {P T$ T W P T < H D ! l T2 P4 PJ PL P P. W P # %P - ; IT MW H D ! QW ]W aW eW u } T
0x1127ec…112980 Dummy {f00=0x0053, f01=0x4036, f02=» uP P T l P @ 2 H D !. W T b !T 3 [ _ R mP6 sR0 {P T$ T W P T < H D ! l T2 P4 PJ PL P P. W P # %P - ; IT MW H D ! QW ]W aW eW u } T
0x112980…112b14 (2, 182) Opaque[0x194]
0x112b14…112ca8 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0590, f03=0x0000}
0x112b14…112ca8 IdxSect {
0x112b14…112ca8 f00 = 0x002c // 0x112b14 @0x0
0x112b14…112ca8 f01 = 0x000c // 0x112b16 @0x2
0x112b14…112ca8 gno = [ // 0x112b18 @0x4
0x112b14…112ca8 [0x00]: C0x002c.0x2.0
0x112b14…112ca8 [0x01]: C0x002c.0x3.0
0x112b14…112ca8 [0x02]: C0x002d.0x0.0
0x112b14…112ca8 [0x03]: C0x002d.0x3.0
0x112b14…112ca8 [0x04]: C0x002e.0x0.0
0x112b14…112ca8 [0x05]: C0x002e.0x1.0
0x112b14…112ca8 ]
0x112b14…112ca8 }
0x112ca8…112e3c Dummy {f00=0x002c, f01=0x018e, f02=» 2 P IDENT LDTASK REL 9.2 79-12-06 870105040920 P : ( P =2, DEVICE TABLE LENGTH DATA WORD B P REL 9.2 79-11-16 n " P =1, QLTASK RETURN IN ENABLE P REL 9.1 79-05-23 P* 6 P**************************************************
0x112e3c…112fd0 Dummy {f00=0x002c, f01=0x018e, f02=» 6 P************************************************** P* > P* H * P* THIS MODULE CONTAINS THE LOAD TASK R 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* & P* IT CONTAINS TWO ENTRY POINTS: P* . P* - LT:DSK USED IN
0x112fd0…113164 Dummy {f00=0x002c, f01=0x0190, f02=» P* P*********** P* ENTRIES * & P*********** : P* N P* X $ P ENTRY LT:DSK DISC PAGING ENTRY b , P ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB 2 P ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:
0x113164…1132f8 Dummy {f00=0x002c, f01=0x0190, f02=» P* P************* P* EXTERNALS * ( P************* > P* T P* ^ " P EXTRN TLDS15 ENTRY IN TLDSEG h " P EXTRN TLDS20 ENTRY IN TLDSEG " P EXTRN MEXIT MONITOR TASK EXIT 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERR
0x1132f8…11348c Dummy {f00=0x002c, f01=0x0190, f02=» PAG:QB QUEUE LINK BACKWARDS P EXTRN PAG:PA PAGE ADDRESS $ ( P EXTRN PAG:SB SEGMENT BLOCK ADDRESS F & P EXTRN SEG:DS DISC SECTOR ADDRESS r P EXTRN SEG:EL SEGMENT LENGTH $ P EXTRN SEG:PB PAGE BLOCK ADDRESS 4 P EXTRN SWB:DS DISC SECTOR ADDRES
0x11348c…113620 Dummy {f00=0x002c, f01=0x0190, f02=»S r P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD . P EXTRN TTB:SA TTAB SAVE AREA T P EXTRN TTB:MT MMU TABLE x ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EXTRN SCTPSZ PAGE SIZE
0x113620…1137b4 (2, 183) Dummy {f00=0x002c, f01=0x0190, f02=» . P***************************************** P* 6 P* CONDITIONAL ASSEMBLY @ P* ^ . P***************************************** h P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P*
0x1137b4…113948 Dummy {f00=0x002c, f01=0x018e, f02=»852 EQU 0. p P* PCPU852 EQU 0 P* 0 P* : 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK D 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. ~ P* PSWPBLK EQU 0 P* * 4 P* A PROGRAM VERSION USING TOSS ASS
0x113948…113adc Dummy {f00=0x002c, f01=0x018e, f02=» " P* LDTASK ECB AND BUFFER AREAS P* . 4 PLD:ECB DATA 0,0,410,0,0,0 ECB AREA FOR LOAD TASK 8 P* p 4 PLD:BUF RES 205 INTERMEDIATE BUFFER FOR LOAD TASK z P* & P RES 2 LOAD TASK STACK (ONE LEVEL) ( PLD:STB EQU *-2 LOAD TASK STACK BAS
0x113adc…113c70 Dummy {f00=0x002c, f01=0x0190, f02=» t P* P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE ( P XIF H P* T " P DATA 0 SEGMENT BLOCK ADDRESS ^ P* PTTABLD EQU * TTABLD ENTRY " P DATA 0 DISPATCHER QUEUE LINK " P DATA '#L' TASK IDENTIFICATION P DATA 49 PRI
0x113c70…113e04 Dummy {f00=0x002c, f01=0x0190, f02=»0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 P DATA 0,0,0,0,0,0,0 0 " P DATA 2 DEVICE TABLE LENGTH =2 L P* r P EJECT LDTASK | P* P* P********** P* LT:DSK * P********** P* P* D P* LT:DSK PERFORMS LO
0x113e04…113f98 Dummy {f00=0x002c, f01=0x0190, f02=»OF CALLING TASK r P* P* " * PLT:DSK EQU * LDTASK DISC PAGING ENTRY , 4 P LD A13,TTB:SA+26,A3 GET A13 FROM TTAB SAVE AREA Z , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS " P LDR* A2,A1 GET SEGMENT STATUS . P RF(NN) LTD:05 SEGMENT NOT LOADE
0x113f98…11412c Dummy {f00=0x002c, f01=0x0190, f02=»A3 SAVE A3 P LDR A5,A3 , P LD A1,SEG:PB,A1 GET PAGE BLOCK ADDRESS $ P CF A15,TLDS15 T 0 P LDR A5,A7 GET TTAB ADDRESS OF CALLING TASK j P ABL LTD:80 P* P EJECT LDTASK P* 6 P* NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RE
0x11412c…1142c0 Dummy {f00=0x002c, f01=0x0190, f02=» LKM P DATA 5 PAUSE LDTASK P* ( P* GET ONE PAGE FROM PAGQUE 2 P* T PLTD:05 EQU * ^ P LD A2,PAGQUE+2 r P CWK A2,PAGQUE $ P RB(E) LTD:00 NO PAGE AVAILABLE? P* P EJECT LDTASK P* $ P* TAKE FOUND PAGE OU
0x1142c0…114454 (2, 184) Dummy {f00=0x002d, f01=0x0190, f02=»A2 GET PAGQUE ADDRESS AND UPDATE... 4 P STR A12,A4 ...QUEUE LINK FORWARD FOR NEXT BLOCK , 4 P CMR A2 RESET QUEUE LINK FORWARD OF REMOVED BLK d , P LDKL A6,/4000 SEGMENT UNDER LOADING BIT 2 P LD A4,PAG:SB,A2 GET OLD SEGMENT BLOCK ADDRESS P RF(Z)
0x114454…1145e8 Dummy {f00=0x002d, f01=0x0190, f02=»EG:PB,A1 SET NEW PAGE BLOCK ADDRESS 2 P ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS , P* b P IFT MMUPAG=1 l P* 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK P* P INH 2 P MS 3,TTB:SA+2,A5 SAVE A1-A3 IN TTAB SAVE AREA
0x1145e8…11477c Dummy {f00=0x002d, f01=0x0190, f02=»ADDRESS OF LDTASK . P CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A3 STORE NEW MMU TABLE FOR CALLING TASK L P ENB P XIF P* P EJECT LDTASK P* $ P* PREPARE FOR READING OF SEGMENT P* ( P LD A6,SEG:E
0x11477c…114910 Dummy {f00=0x002d, f01=0x0190, f02=»O WORDS v 0 P LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK 0 P LD A3,PAG:PA,A2 GET PAGE ADDRESS (PHYSICAL) D . P LD A2,SEG:DS,A1 GET SEGMENT DISC ADDRESS x * P LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS 0 P LDR A11,A5 INDICATE DISC PAGING (A11 <> 0)
0x114910…114aa4 Dummy {f00=0x002d, f01=0x0190, f02=»BY LT:SWB x P LDK A7,/91 PHYSICAL READ P* 4 P* SET ECB PARAMETERS > P* Z & PLTD:40 EQU * ENTRY USED BY LT:SWB d , P LDKL A14,LD:STB LOAD LDTASK STACK BASE & P LDKL A8,LD:ECB GET LD:ECB ADDRESS P ST A2,ECBCW,A8 P*
0x114aa4…114c38 Dummy {f00=0x002d, f01=0x0190, f02=»CBBA,A8 SET BUFFER ADDRESS P RF LTD:60 " P XIF 4 P* @ P EJECT LDTASK J P* b P* l P IFT ASSOLY=1 v , P LD A2,SCTPLD GET PROGRAM DISC FILE CODE P STR A2,A8 . P LDKL A1,LD:BUF GET LDTASK BUFFER ADDRESS P ST A1,E
0x114c38…114dcc Dummy {f00=0x002d, f01=0x0190, f02=» A11,A11 CHECK DISC PAGING/SWB FLAG ( P RF(NZ) LTD:43 DISC PAGING REQUEST? , P* X P EJECT LDTASK b P* z P* , P LDR A12,A3 SAVE LOGICAL BUFFER ADDRESS 2 P ECR A2,A3 CONVERT LOGICAL ADDRESS TO PHYSICAL P ANKL A3,/FFF
0x114dcc…114f60 Dummy {f00=0x002d, f01=0x0190, f02=»RESS j P SRL A2,2 P ECR A1,A2 P ANK A2,/0F 0 P SRC A2,4 D P ORR A3,A2 V P RF(NZ) LTD:48 h P SUKL A1,/1000 ~ P RF LTD:48 P* PLTD:43 EQU * P XIF P* P IFT MMUPAG=1 P LDR A1,A3 P SRL A
0x114f60…1150f4 (2, 185) Dummy {f00=0x002d, f01=0x0190, f02=»QU * P LDR A12,A3 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,SCTLAP Z P* p PLTD:48 EQU * z P SUK A3,2 & P ST A3,ECBBA,A8 SET BUFFER ADDRESS P ANKL A1,/3000 , P OR A1,SCTPLD GET PROGRAM DISC FILE CODE
0x1150f4…115288 Dummy {f00=0x002d, f01=0x0190, f02=» P* $ P* MOVE FIRST SECTOR TO PAGE AREA P* 6 P LDKL A1,LD:BUF+2 @ P LDR A2,A12 Z P LDKL A3,376 n & P MVSU A3 MOVE FIRST SECTOR TO PAGE P SUKL A12,2 P XIF P* P EJECT LDTASK P* P* PLTD:50
0x115288…11541c Dummy {f00=0x002d, f01=0x0190, f02=»SSOLY=1 P LDK A1,188 P XIF $ P* 0 2 P SUR A6,A1 GET REMAINING LENGTH OF SEGMENT/SWB : 2 P RF(NP) LTD:75 SEGMENT/SWB HANDLING FINISHED? p , P SUR A4,A1 GET REMAINING LENGTH OF PAGE P ADR A1,A1 ( P ADR A12,A1 UPDATE PAGE AREA POI
0x11541c…1155b0 Dummy {f00=0x002d, f01=0x0190, f02=»FFER ADDRESS v P RF LTD:60 P* & PLTD:55 EQU * 0 * P ADS A1,ECBBA,A8 UPDATE BUFFER ADDRESS D P RF(N) LTD:60 NOT OVERFLOW? r & P LDKL A1,/1000 OVERFLOW CORRECTION P ADRS A1,A8 P XIF P* P IFT MMUPAG=0 * P ADS A1,
0x1155b0…115744 Dummy {f00=0x002d, f01=0x0190, f02=»CHECK REMAINING LENGTH OF PAGE 8 P RF(L) LTD:65 NOT ROOM FOR ONE MORE SECTOR IN PAGE? & P* b P IFT MMUPAG=1 l : P ELR A10,A12 SAVE WORD TO BE DESTROYED BY DISC CYL-ID ( P CF A14,LTD:85 READ/WRITE ONE SECTOR $ P ESR A10,A12 RESTORE SAVED W
0x115744…1158d8 Dummy {f00=0x002d, f01=0x0190, f02=» CF A14,LTD:85 READ/WRITE ONE SECTOR $ P STR A10,A12 RESTORE SAVED WORD , P RB LTD:50 T P XIF f P* r P EJECT LDTASK | P* . P* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: 0 P* READ IT TO MEMORY VIA INTERMEDIATE BUFFER P*
0x1158d8…115a6c Dummy {f00=0x002d, f01=0x0190, f02=»ATE BUFFER NOW IN SYSTEM AREA , P CF A14,LTD:85 READ ONE SECTOR TO LD:BUF & P ADK A1,2 SKIP CYLINDER ID V P LDR A2,A12 GET PAGE POINTER x P ADK A2,2 & P ADR A6,A6 CONVERT LENGTH TO BYTES P* P IFT MMUPAG=1 2 P MVSU A6 MOVE LA
0x115a6c…115c00 Dummy {f00=0x002d, f01=0x0190, f02=» STR A10,A2 ( P ADK A1,2 INCREMENT BUFFER POINTERS P ADK A2,2 @ P SUK A6,2 DECREMENT COUNTER R P RB(P) LTD:70 v P XIF P* P EJECT LDTASK P* P* PLTD:75 EQU * P IFT SWPBLK=1 , P LDR A11,A11 CHE
0x115c00…115d94 (2, 186) Dummy {f00=0x002e, f01=0x0190, f02=»OADED b P XRRS A4,A9 P* " PLTD:80 EQU * , , P CF A15,QTJOB QUEUE TASK FOR DISPATCHING @ & P ABL MEXIT PERFORM EXIT ON LDTASK p P* P EJECT LDTASK P* P* READ ONE SECTOR FROM DISC P* PLTD:85 EQU * P
0x115d94…115f28 Dummy {f00=0x002e, f01=0x0190, f02=» P RTN A14 NO, RETURN P* ( P* ERROR: INSERT PAGE IN PAGQUE AGAIN * P* V PLTD:95 ANK A2,1 ` P NGR A2,A2 x . P SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 . P ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 P* P IFT SWPBLK=1
0x115f28…1160bc Dummy {f00=0x002e, f01=0x0190, f02=»ENT BLOCK ADDRESS x , P LD A3,SEG:PB,A9 GET PAGE BLOCK ADDRESS & P LDKL A4,PAGQUE GET PAGQUE ADDRESS J P ST A4,PAG:QB,A3 t 4 P LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE " P STR A4,A3 UPDATE QUEUE LINKS P ST A3,PAGQUE P ST A3,P
0x1160bc…116250 Dummy {f00=0x002e, f01=0x0190, f02=»* P********** ! P* QLTDSK * ! P* QLTSWB * ! . P********** ! @ P* ! R P* ! : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. ! f P* ! : P* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. ! B P* ACTIVATION IS AT LT:SWB
0x116250…1163e4 Dummy {f00=0x002e, f01=0x0190, f02=»LOCK ADDRESS (LT:SWB) ! t 2 P* A3 = TTAB ADDRESS OF CALLING TASK " P* " T $ P* OUTPUT: A2, A5 ARE DESTROYED " ^ P* " P* " 0 PQLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB " ( P LDKL A2,LT:SWB GET DISPATCH ADDRESS " P RF QLTASK "
0x1163e4…116578 Dummy {f00=0x002e, f01=0x0190, f02=» , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS # " P ABL ACTOT ACTIVATE LDTASK =1 # 4 P* # Z P EJECT LDTASK # d P* # | P* # P IFT SWPBLK=1 # P* # P* # P********** # P* LT:SWB * # P********** # P* # P* # D P*
0x116578…11670c Dummy {f00=0x002e, f01=0x018e, f02=» A3 = TTAB ADDRESS OF CALLING TASK # P* $ 2 P* $ < * PLT:SWB EQU * LDTASK SWB HANDLING ENTRY $ F P IFT MMUPAG=1 $ t P INH $ , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS $ , P TL TTB:MT,A3 LOAD MMU WITH CALLING TASK $ , P TS TTB:MT,A5 STOR
0x11670c…1168a0 Dummy {f00=0x002e, f01=0x0190, f02=» 0 P LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK % 4 P LD A3,TTB:SA+16,A5 GET MEMORY ADDRESS (LOGICAL) % 8 4 P LD A4,SWB:DS,A1 GET DISC ADDRESS OF FIRST COPY % p 0 P LD A6,SWB:EL,A1 GET SWB COPY LENGTH (BYTES) % 2 P LD A2,SWB:NS,A1 GET SWB COPY LENGTH (SECTOR
0x1168a0…116a34 (2, 187) Dummy {f00=0x002e, f01=0x018e, f02=»* % P* & PLTS:10 EQU * & P SUK A1,1 & ( P* & : P IFT CPU852=1 & D P RF(NP) LTS:20 & Z 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB & p P RB LTS:10 & P* & PLTS:20 EQU * & 0 P LDR A2,A4 GET DISC ADDRESS OF REQUESTED SWB &
0x116a34…116bc8 Dummy {f00=0x002e, f01=0x0190, f02=» & P XIF ' P* ' P IFT SWPBLK=1 ' P ADK A6,1 ' 4 * P SRL A6,1 CONVERT SWB LENGTH TO WORDS ' F P LDR A4,A6 ' t . P ANK A7,1 GET LOAD/STORE SWB REQUEST FLAG ' $ P ABL(Z) LTD:35 LOAD SWB REQUEST? ' : P LDKL A4,/7FFF PARAMETER TO AVOID INTERM
0x116bc8…116d5c Dummy {f00=0x002e, f01=0x406e, f02=» , PLT:SWB ABL LKMERR INDICATE SYSGEN ERROR ( P XIF ( 4 P* ( @ P* ( J P* ( T END ( ^@ ( j F P LDR A4,A6 ' t . P ANK A7,1 GET LOAD/STORE SWB REQUEST FLAG ' $ P ABL(Z) LTD:35 LOAD SWB REQUEST? ' : P LDKL A4,/7FFF PARAMETER TO AVOID INTERM
0x116d5c…116ef0 Dummy {f00=0x002e, f01=0x2008, f02=» ) 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*
0x116ef0…117084 Dummy {f00=0x002e, f01=0x0190, f02=»*** ) r & P* * * & P* SUBROUTINE-HANDLER * * 6 & P* * * ` & P********************************* * P * PSUBSUB EQU *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 * . P LD* A10,4,A14
0x117084…117218 Dummy {f00=0x002e, f01=0x0190, f02=»N * f P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RESTORE A10 + , P ABR* A14 + P P + b P + j P + r < P******************************************************* + z < P* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P**************
0x117218…1173ac Dummy {f00=0x002e, f01=0x0190, f02=»******** + t ( P** ** , ( P** SAVE, AND COMMUNICATION AREA ** , < ( P** ** , h ( P************************************ , P , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS , P DATA 0 , *
0x1173ac…117540 Dummy {f00=0x002e, f01=0x0190, f02=»-REL U:BTAB NEW ADDRESS , P DATA 0 - ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - 0 P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - l P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE - P DATA 0 - 4 PMOVED EQU *-REL INDICATOR IF B
0x117540…1176d4 (2, 188) Opaque[0x194]
0x1176d4…117868 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0240, f03=0x0000}
0x1176d4…117868 IdxSect {
0x1176d4…117868 f00 = 0x0012 // 0x1176d4 @0x0
0x1176d4…117868 f01 = 0x0002 // 0x1176d6 @0x2
0x1176d4…117868 gno = [ // 0x1176d8 @0x4
0x1176d4…117868 [0x00]: C0x0012.0x0.0
0x1176d4…117868 ]
0x1176d4…117868 }
0x117868…1179fc Dummy {f00=0x0012, f01=0x0190, f02=» 0 P IDENT PFTAB REL 9.2 79-11-16 870105040920 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
0x1179fc…117b90 Dummy {f00=0x0012, f01=0x40d0, f02=» l $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA DC15ON 0 P DATA SOPR P P* b P DATA CHLTON l P* PPFTABE EQU * END OF TABLE P* P* P END @ LEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x117b90…117d24 Dummy {f00=0x0012, 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
0x117d24…117eb8 Dummy {f00=0x0012, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA S
0x117eb8…11804c Dummy {f00=0x0012, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCTBUG~ , (
0x11804c…1181e0 Dummy {f00=0x0012, f01=0x4072, f02=» _ & < @ nNPE l SCTSTB SCTOPT SCTTCT SCTCDT bBUG SCTBUG~ , (
0x1181e0…118374 (2, 189) Opaque[0x194]
0x118374…118508 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0898, f03=0x0000}
0x118374…118508 IdxSect {
0x118374…118508 f00 = 0x0044 // 0x118374 @0x0
0x118374…118508 f01 = 0x0002 // 0x118376 @0x2
0x118374…118508 gno = [ // 0x118378 @0x4
0x118374…118508 [0x00]: C0x0044.0x3.0
0x118374…118508 ]
0x118374…118508 }
0x118508…11869c Dummy {f00=0x0044, f01=0x0190, f02=» 0 P IDENT LKMAL REL 9.2 79-11-16 870105040920 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
0x11869c…118830 Dummy {f00=0x0044, 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
0x118830…1189c4 Dummy {f00=0x0044, f01=0x0190, f02=»CHMMU CHANGE MMU TABLE P EJECT P* , $ PLKMAL DATA LKMALE-* TABLE LENGTH 6 P DATA TIO TERMINAL I/O ^ P DATA TWAIT TERMINAL WAIT | P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIVATE OTHER TERMINAL P DATA TPAUSE TERMINAL PAUSE
0x1189c4…118b58 Dummy {f00=0x0044, f01=0x4172, f02=» t P DATA TABORT ABORT FUNCTION P DATA 0 , 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK H " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA 0 P DATA 0 P DATA TCHPAG C
0x118b58…118cec Dummy {f00=0x0044, 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
0x118cec…118e80 Dummy {f00=0x0044, f01=0x018e, f02=» v P SUK A7,2 P LDR* A6,A7 HOURS P ENB 4 P* @ * PGETT10 CF A15,BYTASC CONVERT TO ASCII J P IFT MMUPAG=0 x * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P*
0x118e80…119014 (2, 190) Opaque[0x194]
0x119014…1191a8 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f8, f03=0x0000}
0x119014…1191a8 IdxSect {
0x119014…1191a8 f00 = 0x003f // 0x119014 @0x0
0x119014…1191a8 f01 = 0x0002 // 0x119016 @0x2
0x119014…1191a8 gno = [ // 0x119018 @0x4
0x119014…1191a8 [0x00]: C0x003f.0x3.0
0x119014…1191a8 ]
0x119014…1191a8 }
0x1191a8…11933c Dummy {f00=0x003f, f01=0x0190, f02=» 0 P IDENT CTABX REL 9.2 79-11-16 870105040920 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x11933c…1194d0 Dummy {f00=0x003f, f01=0x4142, f02=» 5 ( PC6 EQU 0 6 " ( PC7 EQU 0 7 N P* z P* P* PCTABX DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x1194d0…119664 Dummy {f00=0x003f, f01=0x2008, f02=» C7 EQU 0 7 * 4 * > * H CTABX DATA C1 R DATA C2 h DATA C2 x DATA C3 DATA C4 DATA C5 DATA C6 DATA C7 * * END @
0x119664…1197f8 Dummy {f00=0x003f, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | 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
0x1197f8…11998c Dummy {f00=0x003f, f01=0x0190, f02=» DRFD01 P* P************* P* * 2 P* EXTERNALS * H P* * ^ P************* t P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR EXTRN DWTST STATUS
0x11998c…119b20 Dummy {f00=0x003f, f01=0x0190, f02=»EA A5 | & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SCTPLD PROGRAM LOADING DEVICE 8 ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK d P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT SAVE AREA & P EXTRN INIFLG INITIALIZATION FLAG & P EXTRN T
0x119b20…119cb4 (2, 191) Opaque[0x194]
0x119cb4…119e48 # DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0800, f03=0x0000}
0x119cb4…119e48 IdxSect {
0x119cb4…119e48 f00 = 0x0040 // 0x119cb4 @0x0
0x119cb4…119e48 f01 = 0x0002 // 0x119cb6 @0x2
0x119cb4…119e48 gno = [ // 0x119cb8 @0x4
0x119cb4…119e48 [0x00]: C0x0040.0x0.0
0x119cb4…119e48 ]
0x119cb4…119e48 }
0x119e48…119fdc Dummy {f00=0x0040, f01=0x0190, f02=» 2 P IDENT TIODMX REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* $ P* LEVEL #
0x119fdc…11a170 Dummy {f00=0x0040, f01=0x418a, f02=» P* . P* THIS DUMMY MODULE REPLACE TIODM AND DM P* D P ENTRY TIODM,CHKIND,REQEND N P ENTRY FDBADF p P ENTRY TCFILE,COFILE PTIODM EQU * PCHKIND EQU * PREQEND EQU * PFDBADF EQU * $ P DATA /6300 SOMETHING
0x11a170…11a304 Dummy {f00=0x0040, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIF
0x11a304…11a498 Dummy {f00=0x0040, f01=0x0190, f02=» SET RETURN CODE : P XIF ; P LDK A4,1 IND RECOVERY ; $ * P ABL ACT005 START RECOVERY OF PRINTER ; B & PRCTP10 ABL TDISP GO TO DISPATCHER ; p P EJECT ; P* ; P* B C D T B Y ; P* ; 4 P* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL ;
0x11a498…11a62c Dummy {f00=0x0040, f01=0x0190, f02=» SUK A1,6 DECREMENT BY 6 ; P RB BCDTB1 < " PBCDTB2 RTN A5 RETURN TO CALLER < 4 P* < Z P* < d P* < n P* < x P* < P* G R A S P < P* < 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK < P* < P* < PGRASPA EQU * <
0x11a62c…11a7c0 Dummy {f00=0x0040, f01=0x018e, f02=» LDK A3,0 < P LDK A2,GRA GRASP = P CF A5,OUTPUT = , P ANK A2,VOIN VOUCHER IN ? = B P RF(NZ) GRAS10 YES = d P LDK A2,ETB SEND ETB =2 = ~ P CF A5,OUTPUT =2 = " P LDK A2,TETX DUMMY AFTER GRASP = P CF A5,OUTPUT = P LDK A2,STX SEND STX
0x11a7c0…11a954 (2, 192) Opaque[0x194]
0x11a954…11aae8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bf0, f03=0x0000}
0x11a954…11aae8 IdxSect {
0x11a954…11aae8 f00 = 0x005f // 0x11a954 @0x0
0x11a954…11aae8 f01 = 0x0002 // 0x11a956 @0x2
0x11a954…11aae8 gno = [ // 0x11a958 @0x4
0x11a954…11aae8 [0x00]: C0x005f.0x2.0
0x11a954…11aae8 ]
0x11a954…11aae8 }
0x11aae8…11ac7c Dummy {f00=0x005f, f01=0x0190, f02=» 0 P IDENT DVTKB REL 9.2 79-11-16 870105040920 P 8 " P* KEYBOARD DEVICE WORK TABLE @ P* f P ENTRY DVTKB TABLE ENTRY p P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH PMMUPAG EQU 0 P* PDVTKB EQU * TABL
0x11ac7c…11ae10 Dummy {f00=0x005f, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x11ae10…11afa4 Dummy {f00=0x005f, f01=0x0190, f02=»ATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 6 P DATA ECH ECHO DEVICE T $ P DATA /BCA BACKSPACE AND CANCEL r " P DATA /ED0 EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x11afa4…11b138 Dummy {f00=0x005f, f01=0x40b0, f02=»G=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 : P DATA 0,0,0,0,0,0,0,0 X P XIF v PDWTEND EQU * P* P END @ BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x11b138…11b2cc Dummy {f00=0x005f, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x11b2cc…11b460 Dummy {f00=0x005f, f01=0x40ac, f02=»Q^ 9R ?R6 CV2 IP Y ]P8 f H D ! cR2 gV. P b T W T T W P Vd R R6 V W2 RB " $ P R P W. 7P IP kT n r @ W _ mPP yR {Q W T H D ! 4 R Ph P T T T P b V
0x11b460…11b5f4 (2, 193) Opaque[0x194]
0x11b5f4…11b788 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e0, f03=0x0000}
0x11b5f4…11b788 IdxSect {
0x11b5f4…11b788 f00 = 0x002f // 0x11b5f4 @0x0
0x11b5f4…11b788 f01 = 0x0002 // 0x11b5f6 @0x2
0x11b5f4…11b788 gno = [ // 0x11b5f8 @0x4
0x11b5f4…11b788 [0x00]: C0x002f.0x0.0
0x11b5f4…11b788 ]
0x11b5f4…11b788 }
0x11b788…11b91c Dummy {f00=0x002f, f01=0x0190, f02=» 0 P IDENT DVTGP REL 9.2 79-11-16 870105040920 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTGP TABLE ENTRY z P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTGP EQU * TABL
0x11b91c…11bab0 Dummy {f00=0x002f, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA 'GP' TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x11bab0…11bc44 Dummy {f00=0x002f, f01=0x40e8, f02=»REA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER * " P DATA 0 HEAD POSITIPN POINTER H P IFT MMUPAG=1 n PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU ECB ADD
0x11bc44…11bdd8 Dummy {f00=0x002f, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | 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
0x11bdd8…11bf6c Dummy {f00=0x002f, f01=0x0190, f02=»A5,DSOPCH 3 P CMR A2 INDICATE NOT OPEN 4 P* 4 4 P* UNLOCK 4 > P* 4 R P XIF 4 PUNL:70 EQU * 4 h P LDK A2,/C UNLOCK 4 | P CF A5,FD:REA 4 P ORS A3,DWTRCW,A6 4 P ANK A3,1 4 , P RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED 4 P
0x11bf6c…11c100 Dummy {f00=0x002f, f01=0x0190, f02=»S+IBM=0 4 P* 5 P* UNLOAD RETURN CODE CHECK 5 P* 5 > PUNL:RC ORS A3,DWTRCW,A6 5 H P ANK A3,/7 FATAL ERROR? 5 h P RB(NZ) UNL:80 ENDIO 5 P RTN A5 5 P XIF 5 P IFT IBM=1 5 P EJECT DRFD01 5 P* 5 P*******************
0x11c100…11c294 (2, 194) Opaque[0x194]
0x11c294…11c428 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05e8, f03=0x0000}
0x11c294…11c428 IdxSect {
0x11c294…11c428 f00 = 0x002f // 0x11c294 @0x0
0x11c294…11c428 f01 = 0x0002 // 0x11c296 @0x2
0x11c294…11c428 gno = [ // 0x11c298 @0x4
0x11c294…11c428 [0x00]: C0x002f.0x1.0
0x11c294…11c428 ]
0x11c294…11c428 }
0x11c428…11c5bc Dummy {f00=0x002f, f01=0x0190, f02=» 0 P IDENT DVTDI REL 9.2 79-11-16 870105040920 P 8 P =1,HANG UP AT /03 OUTPUT @ P REL 9.1 79-05-23 d P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P*
0x11c5bc…11c750 Dummy {f00=0x002f, f01=0x0190, f02=»METER x 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS B P DATA DWTEND-DVTDI ORDER ^ ( P DATA DIAD POINTER TO ADDRESS-BLOCK ~ 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x11c750…11c8e4 Dummy {f00=0x002f, f01=0x415e, f02=» | P DATA /2010 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS 6 P DATA 0 TIMER POINTER d P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DATA 0,
0x11c8e4…11ca78 Dummy {f00=0x002f, 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
0x11ca78…11cc0c Dummy {f00=0x002f, f01=0x018e, f02=» P LDKL A1,/C000 WORDS,WRITE < P XIF < & P IFT CHAN=1 < 2 ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < F P XIF < r P RF FD:800 < ~ P* < PFD:REA EQU * < P IFT CHAN=1 < P LDK A1,1 < P ST A1,DWTRW,A6 READ MODE < P XIF < P IFT C
0x11cc0c…11cda0 Dummy {f00=0x002f, f01=0x0190, f02=» P* = P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = $ * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = N P XIF = | P* = P IFT CHAN=0 = P ORR A3,A1 = PWER1 WER A3,MUXADR FIRST WER = $ PWER2 WER A4,MUXADR+1 SECOND WER = P XIF
0x11cda0…11cf34 (2, 195) Opaque[0x194]
0x11cf34…11d0c8 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f0, f03=0x0000}
0x11cf34…11d0c8 IdxSect {
0x11cf34…11d0c8 f00 = 0x002f // 0x11cf34 @0x0
0x11cf34…11d0c8 f01 = 0x0002 // 0x11cf36 @0x2
0x11cf34…11d0c8 gno = [ // 0x11cf38 @0x4
0x11cf34…11d0c8 [0x00]: C0x002f.0x2.0
0x11cf34…11d0c8 ]
0x11cf34…11d0c8 }
0x11d0c8…11d25c Dummy {f00=0x002f, f01=0x0190, f02=» 0 P IDENT DVTDY REL 9.2 79-11-16 870105040920 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
0x11d25c…11d3f0 Dummy {f00=0x002f, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' 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
0x11d3f0…11d584 Dummy {f00=0x002f, f01=0x4150, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER ( P DATA /101 CURSOR POINTER F ( P DATA /ABC LEFT BYTE=NUMBER OF LINES h " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0
0x11d584…11d718 Dummy {f00=0x002f, 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
0x11d718…11d8ac Dummy {f00=0x002f, f01=0x0190, f02=» P LD A7,DWTOR,A6 L P ANK A7,/3F ORDER L P LD A8,DWTECB,A6 ECB ADDRESS L 6 P ABL FDAD REACTIVATE L Z P EJECT DRFD01 L v P* L P********************* L P* * L P* INTERRUPT HANDLER * L P* *
0x11d8ac…11da40 Dummy {f00=0x002f, f01=0x018e, f02=» L r P IFT CPU852=1 M * P CF A15,SAVE8 SAVE REGISTERS ON STACK M P XIF M L P* M X P IFT CPU852=0 M b " P MSR 8,A15 SAVE A1-A8 ON STACK M x P XIF M P* M P LDKL A6,DWFD01 DWT ADDRESS M P IFT CHAN=1 M P ENB M & P LD A1,DWTUB,A6
0x11da40…11dbd4 (2, 196) Opaque[0x194]
0x11dbd4…11dd68 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0610, f03=0x0000}
0x11dbd4…11dd68 IdxSect {
0x11dbd4…11dd68 f00 = 0x0030 // 0x11dbd4 @0x0
0x11dbd4…11dd68 f01 = 0x0002 // 0x11dbd6 @0x2
0x11dbd4…11dd68 gno = [ // 0x11dbd8 @0x4
0x11dbd4…11dd68 [0x00]: C0x0030.0x2.0
0x11dbd4…11dd68 ]
0x11dbd4…11dd68 }
0x11dd68…11defc Dummy {f00=0x0030, f01=0x0190, f02=» 2 P IDENT DW1501 REL 9.2 79-11-16 870105040920 P : P* B : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 L P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 1 P*
0x11defc…11e090 Dummy {f00=0x0030, f01=0x0190, f02=»DRESS P DATA DWTEND-DW1501 P RIGHT BYTE=ORDER * * P DATA DC15AD POINTER TO ADDRESS-BLOCK F P DATA 'DC' TTAB-ADDRESS t $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMUPAG=1 P DATA 0 USER E
0x11e090…11e224 Dummy {f00=0x0030, f01=0x412a, f02=»ATA 0 STATUS QUEUE P DATA 0 RECEIVE QUEUE P DATA 0 BUFFER ADDRESS 8 P DATA 0 CURSOR ADDRESS V " P DATA 0 REQUEST TIMEOUT VALUE t P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* PDW
0x11e224…11e3b8 Dummy {f00=0x0030, f01=0x2008, f02=» ATUS QUEUE P DATA 0 RECEIVE QUEUE P DATA 0 BUFFER ADDRESS 8 P DATA 0 CURSOR ADDRESS V , P DATA 50 REQUEST TIMEOUT. DEFAULT 5 SEC. t P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P*
0x11e3b8…11e54c Dummy {f00=0x0030, f01=0x0190, f02=» : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) t PMOVT05 EQU * t B P ADS A4,FCBDD1,A3 t V P ADS A4,FCBDD2,A3 t p PMOVT10 RTN A14 t P XIF t P IFT CREDIT+MMUPAG=2 t P t P ELR A1,A8 GET T:A-ADDRESS t ( P EL A3,WATLEN,A12 GET
0x11e54c…11e6e0 Dummy {f00=0x0030, f01=0x0190, f02=» P ADR A1,A10 FROM-ADDRESS u P CALL MOVING u $ P ELR A4,A8 u 8 P EL A10,CIA,A4 u J P SUR A2,A10 NEW T:A-ADDRESS u ` " P SUR A1,A10 'OLD' T:A-ADDRESS u 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * u P u P EL A3,FCD,A12 ANY FCD? u
0x11e6e0…11e874 (2, 197) Opaque[0x194]
0x11e874…11ea08 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f10, f03=0x0000}
0x11e874…11ea08 IdxSect {
0x11e874…11ea08 f00 = 0x0078 // 0x11e874 @0x0
0x11e874…11ea08 f01 = 0x0010 // 0x11e876 @0x2
0x11e874…11ea08 gno = [ // 0x11e878 @0x4
0x11e874…11ea08 [0x00]: C0x0078.0x2.0
0x11e874…11ea08 [0x01]: C0x0078.0x3.0
0x11e874…11ea08 [0x02]: C0x0079.0x0.0
0x11e874…11ea08 [0x03]: C0x007c.0x3.0
0x11e874…11ea08 [0x04]: C0x007d.0x1.0
0x11e874…11ea08 [0x05]: C0x0083.0x2.0
0x11e874…11ea08 [0x06]: C0x0083.0x3.0
0x11e874…11ea08 [0x07]: C0x0084.0x2.0
0x11e874…11ea08 ]
0x11e874…11ea08 }
0x11ea08…11eb9c Dummy {f00=0x0078, f01=0x0190, f02=» $ P IDENT DRKB03 9.2 DSB 820603 NJ P , & P DSB1 - THE DRIVER DID NOT CHECK 4 $ P IF THE CHR RETURNED FROM THE ^ P CTAB WAS /FF (=IGNORE) P P* 0 P******************************************* P* $ P* PHILIPS TERM
0x11eb9c…11ed30 Dummy {f00=0x0078, f01=0x0190, f02=»************************************* P* . P* 8 0 P* THIS DRIVER HANDLES INPUT FROM NUMERIC B . P* AND ALPHANUMERIC KEYBOARDS PTS 6236, v , P* CONNECTED TO CPU VIA CHLT OR CHRT. P* : P* ONLY INPUT DATA FROM DEPRESSED KE
0x11ed30…11eec4 Dummy {f00=0x0078, f01=0x0190, f02=»ARD WHERE RECEIVED CHARACTERS ARE P* ECHOED. * P* > 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: H P* | " P* A C K B : ACTIVATION PART P* $ P* I H K B : INTERRUPT HANDLER P* P* E C H O : ECHO HANDLER
0x11eec4…11f058 Dummy {f00=0x0078, f01=0x0190, f02=»: j P* P* ORDER 01: BASIC READ P* ORDER 02: STANDARD READ 6 P* ORDER 03: NUMERIC READ Z & P* ORDER 31: RESET INPUT BUFFER ~ P* P* P* NORMAL REGISTER USAGE : P* " P* REGISTER A1 : RETURN CODE
0x11f058…11f1ec Dummy {f00=0x0078, f01=0x0190, f02=» A5 : STACK BASE " P* A6 : DWT-ADDRESS P* A7 : ORDER F " P* A8 : ECB-ADDRESS f P* P* P* P* SYSTEM ADAPTATION P* 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE,
0x11f1ec…11f380 Dummy {f00=0x0078, f01=0x0190, f02=»UST BE h P* DEFINED IN DWT. P* * , P* IF TIMING IS WANTED, TIMER POINTER 4 , P* IN DWT MUST BE SET UNEQUAL TO ZERO. d 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* I
0x11f380…11f514 (2, 198) Dummy {f00=0x0078, f01=0x0190, f02=»S b 8 P* DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL F P* DWT:S IN SYSTEM P EJECT P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO EXCLUDE FROM T
0x11f514…11f6a8 Dummy {f00=0x0078, f01=0x0190, f02=»-FUNCTION ~ $ P* -----NUMERIC SHIFT-FUNCTION , P* -----KEYBOARD LOCK IF NO KEYLOCK ON : P* j P* ENTRIES t P* P* P ENTRY KBAD3 ADDRESS-BLOCK P* P* P* & P* EXTERNAL TOSS MODULE ENTRIES P*
0x11f6a8…11f83c Dummy {f00=0x0078, f01=0x0190, f02=»I/O ~ " P EXTRN TDISP DISPATCHER ENTRY 0 P EXTRN LDREG LOAD REGISTERS A2-A8 AND RETURN 2 4 P EXTRN STREG STORE REGISTERS AND GO TO DISPATCER f , P EXTRN LDREGE RETURN FROM ECHOE HANDLING P EXTRN LDREGF PANIK EXTERN P EXTRN SETIME SET TIME
0x11f83c…11f9d0 Dummy {f00=0x0078, f01=0x0190, f02=» x P EXTRN ECHEND END OF ECHOING P* , P* 6 P* @ P* DWT PARAMETERS J P* f P* p P* z " P EXTRN DWTCHP CHANEL PARAMETER P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER & " EXTRN DWTADR DRIVER ADDRESS BLO
0x11f9d0…11fb64 Dummy {f00=0x0078, f01=0x0190, f02=» 2 IN DWT x " EXTRN DWTECH ECHO DEVICE DWT P EXTRN DWTTP TIMER POINTER 8 P EXTRN DWTWAT SAVE INPUT DWT Z P* ~ P* P* P* CONSTANTS P* P* P* * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER P* .
0x11fb64…11fcf8 Dummy {f00=0x0078, f01=0x0190, f02=» BEFORE TIME OUT P* " PTIME EQU 300 TIME OUT CONSTANT " P* H P EJECT R P* ` P* j , P**************************************** t , P* CONDITIONAL ASSEMBLY * , P**************************************** P*
0x11fcf8…11fe8c Dummy {f00=0x0078, f01=0x0190, f02=» * P* ECHO FUNCTION MAY BE EXCLUDED BY P* SETTING X:B = 0. 6 P* T PX:B EQU 1 ^ PCECHO EQU 1 p P* > P* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION & P* IS INCLUDED IN THE DRIVER. < P* IF THER
0x11fe8c…120020 Dummy {f00=0x0078, f01=0x0190, f02=»HE FIRST READ REQUEST j @ P* AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD P* OF ECB b P* x P* PX:E EQU 0 PPOWOFF EQU 0 P* P* P* N P* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC
0x120020…1201b4 (2, 199) Dummy {f00=0x0079, f01=0x0190, f02=»YLOCK ON. PX:I EQU 0 PKBLOCK EQU 0 $ P* 8 P* B . P* A PROGRAM VERSION USING TOSS MMU PAGING L * P* IS OBTAINED BY SETTING MMUPAG EQU 1. ~ P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INS
0x1201b4…120348 Dummy {f00=0x0079, f01=0x018e, f02=» | P* P* PX:J EQU 10 PDVBLEN EQU 030 . P* D P* N P* MMU KEY TABLE SIZE X P* v P* PX:K EQU 10 PDVBKTB EQU 32 P* P EJECT P* P* P* DWT-DISPLACEMENT P* P*
0x120348…1204dc Dummy {f00=0x0079, f01=0x0190, f02=» P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF 4 P* @ * PDWTCON EQU START+/00 CONVERSION TABLE J 8 PDWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE x 8 PDWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE & PDWTSQ EQU START+/1C STAR
0x1204dc…120670 Dummy {f00=0x0079, f01=0x0190, f02=»* , PKBBSP EQU START+/14 BACK-SPACE CHARACTER ( PKBCLR EQU START+/15 CLEAR CHARACTER : . PKBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER f PKBMZ3 EQU START+/16 P* P EJECT P* TABLES P* P* $ P DATA DVBKTB MMU K
0x120670…120804 Dummy {f00=0x0079, f01=0x0190, f02=»N HANDLER | " P DATA 0 ABORT ROUTINE ADDRESS P DATA IHKB INTERRUPT HANDLER 8 P IFT POWOFF=1 P DATA RCKB RECOVERY ROUTINE r P XIF P IFT POWOFF=0 P DATA 0 NO RECOVERY P XIF P* P IFT POWOFF=1 P EJECT
0x120804…120998 Dummy {f00=0x0079, f01=0x018e, f02=»VE A1-A8 ON STACK P XIF P* & P IFT POWOFF=1 0 P IFT CPU852=0 F " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFT POWOFF=1 P LD A3,DWTST,A6 BUSY? P RF(NN) RCKB10 P LDKL A1,/200 ( P ORS A1,DWTST,A6
0x120998…120b2c Dummy {f00=0x0079, f01=0x0190, f02=» P* P* ACKB P* & : P* ACTIVATION PART: CHECS VALIDITY OF ORDERS AND 0 P* n @ P* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER x P* P* TO THREAT P* P* P* P* PAC
0x120b2c…120cc0 Dummy {f00=0x0079, f01=0x0190, f02=»EX v P LDR A4,A7 P RF(NG) AKB100 ILLEGAL ORDER P SUK A4,4 @ P RF(N) AKB200 ORDER 1,2 OR 3 R P SUK A4,/2D v P RF(Z) AKB110 ORDER 31 * PAKB100 ORKL A1,/8000 I/0 REQUEST ERROR P ABL ENDI10 P EJECT P* P*
0x120cc0…120e54 (2, 200) Dummy {f00=0x007c, f01=0x0190, f02=»1,A2 ( P ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE P ABL ENDIO 8 P* J P EJECT T P* b P* l P* ORDER 1,2,3 v P* P* P* PAKB200 EQU * P IFT POWOFF=1 P LD A2,DWTST,A6 P ANKL A2,/200 POWER OFF?
0x120e54…120fe8 Dummy {f00=0x007c, f01=0x018e, f02=»E THE REQUEST j P RF(E) AKB205 P CM 10,A8 INDICATE POWER OFF , P RF AKB218 P P XIF b PAKB205 EQU * n P IFT CTIMUT=1 P LDR* A1,A6 P ANK A1,/40 TIMING? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE! , P LD A4,DWTTP,A6
0x120fe8…12117c Dummy {f00=0x007c, f01=0x0190, f02=» P LDKL A4,DWTTP TIMER POINTER P ADR A4,A6 ADD DWT-ADDRESS ( P LDR A1,A6 J P CF A15,SETIMP SET TIME 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME | . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P XIF P* P EJECT P*
0x12117c…121310 Dummy {f00=0x007c, f01=0x0190, f02=»R IN ECB-BUFFER. n < P* IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE & P* AND END I/O. ELSE CONTINUE. X P* P* PAKB210 EQU * " P LD A2,DWTST,A6 ANY KEY-LOCK? P ANK A2,/F P RF(Z) AKB219 P SLL A2,1
0x121310…1214a4 Dummy {f00=0x007c, f01=0x0190, f02=»AKB211 ADR A4,A4 . PAKB212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG P LDR A2,A4 J P SLL A4,4 P AN A4,DWTST,A6 n P STR A4,A15 SAVE A4 P STR A3,A15 P SRN A2,A3 ORDER 1 " P ADR A3,A3 MAKE CHARACTER FLAG P LDR A4,A4 P
0x1214a4…121638 Dummy {f00=0x007c, f01=0x0190, f02=» BUFFER r P LDR* A4,A15 RESTORE A4 P CWK A7,1 0 $ P RF(E) AKB307 JUMP IF BASIC READ B " PAKB214 NGR A2,A1 MAKE ECB CODE j P LDR A4,A4 KEY FLAG P RF(E) AKB215 P SUK A2,4 , PAKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB PAKB2
0x121638…1217cc Dummy {f00=0x007c, f01=0x0190, f02=»NE) AKB240 N0! P LD A1,2,A8 BUFFER ADDRESS P SUK A1,1 8 P ADR A1,A2 J & PAKB230 SCR A3,A1 CLEAR ECB BUFFER P SUK A1,1 P SUK A2,1 P RB(NE) AKB230 PAKB240 EQU * P LD A1,DWTUTQ,A6 P LCR A2,A1 PAKB245 LDR
0x1217cc…121960 Dummy {f00=0x007c, f01=0x0190, f02=» ABL ENDIX END I/O . PAKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? P RF(NE) AKB255 L " P CF A5,STREG NOTHING IN QUEUE d P IFT CTIMUT=1 * P LDR A1,A1 CHECK TIME OUT RETURN CODE P RF(Z) AKB257 NO TIME OUT $ P ABL ENDI05 END I/O AT T
0x121960…121af4 (2, 201) Dummy {f00=0x007d, f01=0x0190, f02=»UTQ,A6 STORE NEW POINTER PAKB257 EQU * P LDR A4,A7 4 P SUK A4,2 F P RF(NN) AKB310 ORDER 2 OR 3 X P EJECT | P* P* P* ORDER 1 BASIC READ P* P* P* 6 PAKB305 CF A15,STORE STORE CHARACTER IN ECB-B
0x121af4…121c88 Dummy {f00=0x007d, f01=0x0190, f02=» P LD A2,DWTST,A6 MORE KEYS? P ANK A2,/F & P RB(NZ) AKB210 8 P RB AKB225 N P EJECT ` P* n P* x P* 4 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ P* B P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF A
0x121c88…121e1c Dummy {f00=0x007d, f01=0x018e, f02=» v & P LCR A4,A1 KEY-TABLE LENGTH IN A4 P ANK A4,/FF 2 & P ADR A1,A4 LAST PLACE IN KEY-TABLE F P ADK A1,1 p PAKB355 SUK A4,1 , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE P SUK A1,1 NEXT KEY P CCR A2,A1 EOR? P RB(NE) AKB3
0x121e1c…121fb0 Dummy {f00=0x007d, f01=0x018e, f02=» & P ORK A2,/80 INDICATE EOR-CHARACTER ! " P CF A5,ECHO ECHO EOR-CHARACTER ! . P XIF ! T P RF AKB380 ! ` PAKB360 EQU * ! r P LDR A4,A2 ! P CC A4,KBMZ2,A6 ! P RF(E) KBMZ20 ! P CC A4,KBMZ3,A6 ! P RF(E) KBMZ30 ! P CC A4,KBBSP,A6 !
0x121fb0…122144 Dummy {f00=0x007d, f01=0x0190, f02=» ( P SUK A4,/20 CHEC CONVERTED CHARACTER " P RF(N) AKB364 LESS THAN /20 " 0 P SUK A4,/5F CHARACTER > /7F " T P RF(P) AKB364 YES " x P CWK A7,2 " $ P RF(E) AKB366 STANDARD READ OK " P ADK A4,/4F " P RF(N) AKB364 " P SUK A4,/A " " P
0x122144…1222d8 Dummy {f00=0x007d, f01=0x0190, f02=»2,/7F " P CF A5,ECHO # P XIF # " P CW A3,4,A8 LENGTH OVERFLOW? # . " PAKB367 ABL(L) AKB210 NO RETURN # R & PAKB368 LDK A1,8 YES SET ERROR CODE # x P RF ENDIO END I/O # P EJECT # PKBMZ30 EQU * TRIPPLE ZERO # P LDK A4,3 # P RF KBMZ25
0x1222d8…12246c Dummy {f00=0x007d, f01=0x0190, f02=»STORE # P LDR A4,A1 $ P IFT CECHO=1 $ P CF A5,ECHO $ 4 P XIF $ H P CW A3,4,A8 $ T P RB(L) KBMZ25 $ h PKBMZ27 EQU * $ ~ P SUK A4,1 ANY MORE ZEROES $ $ P RB(L) AKB368 NO,SET RETURN CODE $ P INH $ * P LD A1,DWTUTQ,A6 GET OUTQUEUE PO
0x12246c…122600 Dummy {f00=0x007d, f01=0x0190, f02=» $ h P ADR A1,A6 % P SUK A1,1 % P RF KBMZ40 % , 2 PKBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION % > P SUK A1,1 % t , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? % P RF(E) KBMZ90 NO NOT REALY. % 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER %
0x122600…122794 (2, 202) Dummy {f00=0x0083, f01=0x0190, f02=»TE BUFFER OWERFLOW % ~ P SCR A4,A1 & $ P ST A1,DWTUTQ,A6 UPPDATE POINTER & , ( P LDK A1,/A SET RETURN CODE FOR BOTH & T . PENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS & P* & P* & P* & PKBCL10 EQU * CLEAR & P LDK A3,0 & P LDK A2,/18
0x122794…122928 Dummy {f00=0x0083, f01=0x0190, f02=»UR A2,A2 CLEAR LAST CHAR IN ECB-BUFFER & P CF A15,STORE ' . P SUK A3,1 ' D PKBSP15 LDK A2,/8 ' V P RB AKB366 ' n P* ' P* ' PAKB380 LDK A1,0 RETURN CODE ' P EJECT ' P* ' P* ' , P* THIS IS A COMMON END OF THE DRIVER '
0x122928…122abc Dummy {f00=0x0083, f01=0x0190, f02=»* ' P* ( P INH ( P IFT CTIMUT=1 ( P LD A4,DWTTP,A6 ( 6 * P RF(E) ENDI05 NO TIMING ON THIS DEVICE ( N P CM* DWTTP,A6 RESET TIMER ( | P CM DWTTP,A6 ( P XIF ( P* ( , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( PENDI10 EQU * (
0x122abc…122c50 Dummy {f00=0x0083, f01=0x0190, f02=»IF ( P ABL DISEND ) P* ) P EJECT ) ( P* ) 6 P* ) @ P* ) J P* IHKB ) T P* ) f P* ) p F P* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER ) z P* ) P* ) P* ) PIHKB EQU * ) P ANK A2,/FF ) * P
0x122c50…122de4 Dummy {f00=0x0083, f01=0x0190, f02=»LOCK ) ~ P * P LD A3,DWTST,A6 NORMAL CHAR * P IFT KBLOCK=1 * 8 P ANK A3,/FF * N P RF(Z) EXIT * b P LD A3,DWTST,A6 I/O REQUEST? * v P XIF * * P RF(N) IHKB15 NO READ REQUEST PENDING * " P SLL A3,7 INTERRUPT ALLOWED ? * 4 P RF(NN) IHKB15
0x122de4…122f78 Dummy {f00=0x0083, f01=0x0190, f02=»DKL A3,-TIME RESTART TIME * P ST* A3,DWTTP,A6 + " P XIF + : , PIHKB07 ABL LDREG RETURN TO READ ROUTINE + F , PIHKB12 CF A15,KEYSET SET KEY CODE IN DWT + v P LDR A3,A3 + P RF(Z) EXIT NO KEY CHANGE + P LD A3,DWTST,A6 + ( P RF(N) EXIT NO READ RE
0x122f78…12310c Dummy {f00=0x0083, f01=0x0190, f02=»WTSB2 + P ADR A5,A6 , P ABL AKB210 , P , 4 PIHKB15 LD A1,DWTINQ,A6 , < P LCR A4,A1 , Z " P XRK A4,/FF ALREADY OVERFLOW? , l P RF(E) EXIT YES , P LDR A3,A1 , 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS , P CW A1,DWTUTQ,A6 OVE
0x12310c…1232a0 Dummy {f00=0x0083, f01=0x018e, f02=»T A1,DWTINQ,A6 STORE INQUEUE POINTER , PIHKB30 SCR A2,A3 - , PEXIT ABL TDISP - D P* - Z P EJECT - d P* - r P* - | P* - P* AKBTUT - P* - & P* THIS IS THE TIME-OUT ROUTINE - P* - P* - P* - P IFT CTIMUT=1 -
0x1232a0…123434 (2, 203) Dummy {f00=0x0083, f01=0x0190, f02=» - ~ * P RB(N) EXIT DISPATCH IF NO REQUEST ON . , P RB IHKB07 RESTORE REGISTER AND END I/O . 6 P XIF . f P EJECT . r P* . P* . P* . P* . P* KEYSET . P* . P* . P* . , P* ON ENTRY: A4= NEG KEY-LOCK VALUE .
0x123434…1235c8 Dummy {f00=0x0083, f01=0x0190, f02=» P LD A3,DWTST,A6 / P LDKL A2,/100 / PSET100 SRL A2,1 / 2 P ADK A4,2 IN A4: 1=OFF 0=ON / J P RB(N) SET100 / n $ P ANR A3,A2 CHEC OLD KEY POSITION / " P RF(NZ) SET300 JUMP IF KEY ON / P LDR A4,A4 / P RF(NZ) SET500 / P RF SET400 /
0x1235c8…12375c Dummy {f00=0x0083, f01=0x0190, f02=»T A2,DWTST,A6 / * P LDK A3,1 A3=1 IF KEY LOCK HAS CHANGED 0 PSET500 LDR* A4,A15 0 D P RTN A15 0 ^ P EJECT 0 n P* 0 | P* 0 P* 0 P* KONVER 0 P* 0 * P* KONVER CONVERTS INPUT CHARACTER 0 P* 0 P* 0 ( P* ON ENTRY
0x12375c…1238f0 Dummy {f00=0x0083, f01=0x0190, f02=»O IF CHARACTER,POS IF CTRL,SHIFT 0 h $ P* A5 IS DESTROYED! 1 ( P* 1 P P* 1 Z PKONVER EQU * 1 d P LDR A4,A2 1 x P IFT NSHIFT=0 1 P SUK A4,/7C CODE > /7B 1 P RF(NN) KON500 YES 1 P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P
0x1238f0…123a84 Dummy {f00=0x0083, f01=0x0190, f02=» SUK A4,/40 1 P RF(N) KON180 ALFANUMERIC 2 P SUK A4,/10 FUNCTION 2 6 P RF(NN) KON110 NO 2 R P SUK A2,/40 YES 2 l PKON105 EQU * 2 P ANK A5,/10 2 P SRL A5,3 2 P RF KON200 2 * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 P RF(N) KON
0x123a84…123c18 Dummy {f00=0x0083, f01=0x0190, f02=» NSHIFT=1 2 P SUK A4,2 3 P RF(N) KON125 CONTROL OFF 3 $ $ P RF(E) KON140 NUMERICAL SHIFT ON 3 F " P RF KON160 NUMERICAL SHIFT OFF 3 n P XIF 3 PKON125 EQU * 3 P LDKL A2,/FFDF UNCTRL 3 PKON120 ANR A5,A2 3 PKON130 STR A5,A6 DWTCHP 3
0x123c18…123dac Dummy {f00=0x0083, f01=0x0190, f02=» KON145 SHIFT NOT ON 3 P LDK A2,/90 4 P RF KON150 4 0 P XIF 4 B PKON145 EQU * 4 N P LDK A2,/10 SHIFT 4 b PKON150 ORR A5,A2 4 | P RB KON130 4 PKON160 EQU * 4 P IFT NSHIFT=1 4 P LDR A4,A5 4 P ANK A4,/80 4 P RF(Z) KON165 4
0x123dac…123f40 Dummy {f00=0x0083, f01=0x0190, f02=»N170 LDK A2,/20 CTRL 4 P RB KON150 5 PKON180 SUK A2,/20 FIND INDEX 5 . P ANK A5,/30 5 R P SRL A5,3 5 f P ADK A5,4 5 x 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 P ADR A4,A5 5 P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A
0x123f40…1240d4 (2, 204) Dummy {f00=0x0084, f01=0x018e, f02=» RF(E) KON550 DSB1 5 * PKON250 LDK A4,0 A4=0 IF NOT KEY-LOCK$$ 6 PKON300 RTN A15 6 J 4 PKON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER 6 ` P RB KON300 6 P IFT NSHIFT=0 6 PKON500 EQU * 6 P LDR A4,A4 KEY CODE /7C 6 P RF(Z) KON600 YES 6
0x1240d4…124268 Dummy {f00=0x0084, f01=0x0190, f02=» 6 t P XIF 7 P EJECT 7 P* 7 " 4 P* STORE = SUBROUTINE TO STORE A CHARACTER IN 7 , 6 P* ECB-BUFFER AND INCREMENT BUFFER INDEX 7 d P* 7 P* ON ENTRY: 7 P* 7 P* A2 = CHARACTER TO STORE 7 P* A3 = BUFFER INDEX 7
0x124268…1243fc Dummy {f00=0x0084, f01=0x0190, f02=»ER IN BUFFER 7 x $ P ADK A3,1 INCREMENT BUFFER INDEX 8 PSTORTN ADKL A15,2 8 < P LDR* P,A15 8 V P EJECT 8 j P* 8 x P* 8 6 P* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER 8 P* 8 P* ON ENTRY: 8 P* 8 P* A1 = QUEUE POINTER
0x1243fc…124590 Dummy {f00=0x0084, f01=0x40c6, f02=» ADK A1,1 8 P SUR A1,A6 9 P CWK A1,DWTEQ END OF QUEUE? 9 $ P RF(NE) EOQU10 9 H * P LDK A1,DWTSQ SET QUEUE START ADDRESS 9 ^ PEOQU10 ADR A1,A6 9 P RB STORTN 9 P END 9 @ 9 * 8 P* ON ENTRY: 8 P* 8 P* A1 = QUEUE POINTER
0x124590…124724 Dummy {f00=0x0084, f01=0x2008, f02=» : WTCON,A6 GET CONVERSION TABLE ADDRESS ADR A4,A1 6 ADR A4,A2 H ( # LCR A2,A4 GET CHARACTER FROM TABLE Z RTN A15 END @ A4,2 RF(Z) KON180 CTRL RF(N) KON190 SHIFT LDR A1,8 CTRL AND SHIFT
0x124724…1248b8 Dummy {f00=0x0084, f01=0x4148, f02=» 4 F IDENT I:EVS P,REL=4.2,791116,870136940420 I:EVS1K I:EVS2 < I:EVA0 V , ( A jP kT h I:EVS1K 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2 =
0x1248b8…124a4c Dummy {f00=0x0084, f01=0x0190, f02=» 4 F IDENT I:ADS P,REL=4.2,791116,870136940420 u I:ADD I:SUB u < I:ADD u R I:SUB u d , ( W " T & T + : u v I:CPA u , ( ! * & !@P `1` P Q u " ? [ ; u
0x124a4c…124be0 Dummy {f00=0x0084, f01=0x418e, f02=» T u l , ( R R ` ; <( v , ( Q P # W " <! =# T W = Z v < , ( P _ V ^< `_@ v l , ( R Q <# =_ P :" P * U v , ( 5 P 1`! T "# 9e! # K v U :
0x124be0…124d74 (2, 205) Opaque[0x194]
0x124d74…124f08 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a70, f03=0x0000}
0x124d74…124f08 IdxSect {
0x124d74…124f08 f00 = 0x0053 // 0x124d74 @0x0
0x124d74…124f08 f01 = 0x000e // 0x124d76 @0x2
0x124d74…124f08 gno = [ // 0x124d78 @0x4
0x124d74…124f08 [0x00]: C0x0053.0x2.0
0x124d74…124f08 [0x01]: C0x0054.0x3.0
0x124d74…124f08 [0x02]: C0x0055.0x1.0
0x124d74…124f08 [0x03]: C0x0055.0x2.0
0x124d74…124f08 [0x04]: C0x0055.0x3.0
0x124d74…124f08 [0x05]: C0x0056.0x0.0
0x124d74…124f08 [0x06]: C0x0056.0x1.0
0x124d74…124f08 ]
0x124d74…124f08 }
0x124f08…12509c Dummy {f00=0x0053, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 9.2DK, 81-06-11 870105040921 P : P B P DK1, PAPER-OUT, 81-06-11 N P =4,MMU BUFFER CONDITION r P REL 9.2 79-11-16 P =3,RB - ABL P REL 9.1 79-05-23 P UPDATE PRR 9.1 - REL 9.1 P
0x12509c…125230 Dummy {f00=0x0053, f01=0x0190, f02=». OF TEST ORDER P REL 8.2 78-11-19 " P =1,ECHO OF LF AND CR, ABIS 4 P REL 8.2 78-09-15 Z P* v P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRGP
0x125230…1253c4 Dummy {f00=0x0053, f01=0x018e, f02=»********* h P* P* 6 P* THIS DRIVER HANDLES GENERAL TERMINAL PRINTER & < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. ` P* 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO 6 P* FUNCTIONS, WHICH MAKES IT POS
0x1253c4…125558 Dummy {f00=0x0053, f01=0x018e, f02=» P* DRIVER DRKB01. P* P* * 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: 4 P* h & P* A C G P ACTIVATION PART r P* ( P* I H G P INTERRUPT HANDLER P* ( P* R C G P RECOVERY ROUTINE P
0x125558…1256ec Dummy {f00=0x0053, f01=0x018e, f02=» P* ORDER 00: TEST STATUS P* 05: BASIC WRITE & " P* 06: STANDARD WRITE H P* n P* NORMAL REGISTER USAGE x P* " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER $ P* A3 =
0x1256ec…125880 Dummy {f00=0x0053, f01=0x0190, f02=» P* A7 = ORDER " P* A8 = ECB-ADDRESS $ P* J P* T P* SYSTEM ADAPTATION ^ P* | : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR ( P* (GPCLR) KEYS SHOULD BE DEFINED. P* 8 P* BY MEANS
0x125880…125a14 (2, 206) Dummy {f00=0x0054, f01=0x0190, f02=»CCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH P* 6 D P* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER @ 6 P* --SUPPRESS ECHOING OF END OF RECORD CHARACTER * P** --SUPPRESION OF TRAILING BLANKS @ P* --END OF REQUEST WH
0x125a14…125ba8 Dummy {f00=0x0054, f01=0x0190, f02=»CIAL TABLE. STANDARD IS SHB CHARACTER SET x P 2 P* < P* F P* P P* Z P*********** d P* ENTRIES * x P*********** P* P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHOGP DEVICE-DEPENDENT
0x125ba8…125d3c Dummy {f00=0x0054, f01=0x0190, f02=»E ENTRIES * x . P***************************************** P* L P* V $ P EXTRN DISIOE I/O REQUEST ERROR ` . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8
0x125d3c…125ed0 Dummy {f00=0x0054, f01=0x0190, f02=»ER ECHO l 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P D P* N P* X P************************ b P* DWT PARAMETERS * P************************ P* P* P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUN
0x125ed0…126064 Dummy {f00=0x0054, f01=0x018e, f02=»CONSTANTS * P************* P* * P* 4 : PSOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY > PSTX EQU /82 START OF MESSAGE | PETB EQU /97 END OF MESSAGE PETX EQU /03 LAST DUMMY PCR EQU /0D CARRIAGE RETURN PLF EQU
0x126064…1261f8 Dummy {f00=0x0054, f01=0x0190, f02=» P P* P* * P************************************** & * P* CONDITIONAL ASSEMBLY * T * P************************************** P* 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT $ P* FUNCTION BY SETTING
0x1261f8…12638c Dummy {f00=0x0054, f01=0x018e, f02=»NCLUDED IN THE DRIVER BY SETTING X:B=1 P* . PX:B EQU 0 8 PTRETON EQU 0 J P* ^ 4 P* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE h 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* PX:C EQU 0 PFJOTON EQU 0 P*
0x12638c…126520 Dummy {f00=0x0054, f01=0x0190, f02=» PX:D EQU 0 PCOSPAC EQU 0 P* . P 8 P* B P* L 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE V 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0.
0x126520…1266b4 (2, 207) Dummy {f00=0x0055, f01=0x0190, f02=»1 | P* PX:F EQU 0 PSUPSPA EQU 1 & P* : ( P* END OF REQUEST IN SITUATIONS WHERE D , P* THE SELECTOR UNIT OR PRINTER HARDWARE p * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 PX:G EQU 0 PRECEND
0x1266b4…126848 Dummy {f00=0x0055, 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* MMU BUFFER SIZE P* PX:H EQU 120 PDVBLEN EQU 300 P*
0x126848…1269dc Dummy {f00=0x0055, f01=0x0190, f02=»********** z $ P* DWT-DISPLACEMENT * $ P******************************** : P* b P* l 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART v P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1
0x1269dc…126b70 Dummy {f00=0x0055, f01=0x0190, f02=»**************** z , P* SPECIAL KEYS FOR ECHO FUNCTION * * P************************************** H P* v PGPBSP EQU /2D BACK SPACE PGPCLR EQU /3F CLEAR P* P******************** P* RETURN CODES * P**********
0x126b70…126d04 Dummy {f00=0x0055, f01=0x0190, f02=»GHPUT ERROR ~ ( POPERR EQU /1 NOT OPERABLE, POWER OFF P* @ P J P* T P* ^ P********** h P* TABLES * z P********** P* P* P IFT CROOM=1 P* PROMTAB EQU * * P TABLE FOR ROOMLESS POINT CHARACTE
0x126d04…126e98 Dummy {f00=0x0055, f01=0x0190, f02=» r P DATA 2 DEVICE INDEX PGPAD EQU * ADDRESS BLOCK $ P DATA ACGP ACTIVATION DRIVER D " P DATA 0 ABORT ROUTINE ADDRESS h P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P
0x126e98…12702c Dummy {f00=0x0055, f01=0x0190, f02=»ATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE z < P* IS SET IF PAPER OUT OR READY SWITCH OFF. 6 H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM v P* CHANNEL UNIT. P* > P* ORDER 05: BASIC WRI
0x12702c…1271c0 Dummy {f00=0x0055, f01=0x018e, f02=»SENT TO PRINTER FROM b < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. P* PACGP EQU * f P LDK A2,STX START OF MESSAGE x P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 P SUK A3,5 =1 P RF(E) ACGP09 ORDER 5 =1 P
0x1271c0…127354 (2, 208) Dummy {f00=0x0055, f01=0x0190, f02=» & P LD A3,2,A8 GET BUFFER ADDRESS =1 ( P LC A3,1,A3 GET CONTROL CHARACTER =1 . P ANK A3,/FF =1 Z PACGP01 SUK A3,/2B =1 r $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 P LDK A2,CR =1 P CF A5,OUTPUT =1
0x127354…1274e8 Dummy {f00=0x0055, f01=0x0190, f02=» LDK A2,LF =1 P SUK A3,/30-/2B =1 * P RF(NE) ACGP03 NOT CONTROL CHAR 30 =1 2 P CF A5,OUTPUT =1 ` P LDK A2,LF =1 z , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 * PACGP06 LDK A3,2 START BUFFER INDEX =1
0x1274e8…12767c Dummy {f00=0x0055, f01=0x0190, f02=»MPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =2 ~ P* =2 @ $ PACGP10 LDK A2,2 SEND CHAR /02 =2 P P CF A5,OUTPUT =2 x * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 P RF AGP410 =2 P P* & P*
0x12767c…127810 Dummy {f00=0x0055, f01=0x0190, f02=»N COUNTER UPDATING v PACGP19 EQU * * P LDKL A4,/400 INDICATE LINE FEED DONE . P ORS A4,DWTST,A6 P IFT SUPSPA=1 t 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF P LDK A4,0 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM
0x127810…1279a4 Dummy {f00=0x0055, f01=0x0190, f02=»BASIC WRITE $ P SUK A1,9 HARDWARE TABULATION ? P RF(NE) ACGP22 < 0 P ST A4,DWTAP,A6 RESET HEAD POSITION POINTER R P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? P RF(E) ACGP40 P IFT ABIS=1 =1 P CWK A2,/07 BELL ? =
0x1279a4…127b38 Dummy {f00=0x0055, f01=0x0190, f02=»AN /20 ? ~ P* P XIF P* & P IFT TRETON=0 0 P IFT FJOTON=1 F P* P SUK A1,3 /14? f P RB(E) ACGP17 | P SUK A1,/C LESS THAN /20 ? P* P XIF P* P* P IFT TRETON=1 P IFT FJOTON=0
0x127b38…127ccc Dummy {f00=0x0055, f01=0x018e, f02=»1 P IFT FJOTON=1 P* P SUK A1,2 /13? * P RB(E) ACGP17 @ P SUK A1,1 /14? V P RB(E) ACGP17 l P SUK A1,/C LESS THAN /20 ? P* P XIF P* & P RF(N) ACGP30 YES,CODE CHECK ERROR & P SUK A1,/8E ROOMLESS POINT
0x127ccc…127e60 Dummy {f00=0x0055, f01=0x0190, f02=» 6 P SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F & P TO CHARACTER BETWEEN /40 TO /5F B P RB ACGP17 l PACGP24 EQU * ~ P SUK A1,/D P RF(NZ) ACGP26 NOT CR " P CM DWTST,A6 SET POS LTR.TO 0 ( P CM DWTAP,A6 RESET HEAD POS.POII
0x127e60…127ff4 (2, 209) Dummy {f00=0x0055, f01=0x0190, f02=» RB ACGP17 P P* P* CODE CHECK ERROR & P* D PACGP30 EQU * N P LDK A1,CCERR b P ORS A1,8,A8 RETURN CODE x P RB ACGP20 P P* P* TABULATION P* PACGP40 EQU * , P CF A15,GETCHR GET F
0x127ff4…128188 Dummy {f00=0x0055, f01=0x0190, f02=»E) ACGP44 0 PACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL P SUK A4,1 F P RB(NE) ACGP43 X 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER n P LC A4,DWTBC,A6 , P SUR A2,A4 AND REQUESTS POSITION COUNTER & P TO GET NUMBER OF SP
0x128188…12831c Dummy {f00=0x0055, f01=0x0190, f02=»UTPUT ( P IM DWTST,A6 INCREMENT BUFFER INDEX P SUK A4,1 : P RB(P) ACGP45 L P LDR A3,A3 RECOVERY? b P RB(NE) ACGP20 ~ * P SC A4,DWTBC,A6 RESET POSITION POINTER P LDK A3,2 START BUFFER INDEX P RB ACGP19 P P*
0x12831c…1284b0 Dummy {f00=0x0055, f01=0x0190, f02=»ND n P ANK A2,/F ! P LC A2,ROMTAB,A2 TRANSFORM ! P* ! > P XIF ! H P* ! T P* ! ^ P IFF CROOM=1 ! h P* ! | P ANK A2,/7F ! P* ! P XIF ! P* ! P RB ACGP17 ! P ! P* ! P* ! ( P* SEND LAST DUMMY , LOAD A1
0x1284b0…128644 Dummy {f00=0x0055, f01=0x0190, f02=» PAGP410 LDK A2,ETX LAST DUMMY " P CF A5,OUTPUT SEND " ( PAGP415 EQU * =1 " B P IFT ABIS=1 =1 " Z P ANK A2,/4 PAPER IN ? =1 " r P RF(NZ) AGP420 YES =1 " " P LDK A1,/20 SET RETURN CODE =1 " P XIF =1 " PAGP420 EQU * " 0 P CF A15,UPDA
0x128644…1287d8 Dummy {f00=0x0055, f01=0x0190, f02=» LD A3,DWTA3,A6 " P ST A3,6,A8 EFF. LENGTH # P RB AGP415 =1 # 8 P # N P* # X P* # b , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # l , P* POSITION POINTER WHEN END # ( P* OF REQUEST IS REACHED # PUPDAPP EQU * #
0x1287d8…12896c Dummy {f00=0x0055, f01=0x0190, f02=»RESET POSITION COUNTER # P RTN A15 $ P IFT SUPSPA=1 $ 0 P $ F P* $ P P* $ Z * P* SKIPSP = SUBROTINE TO SKIP SPACES $ d ( P* IN END OF ECB-BUFFER. $ 6 P* REQUESTED LENGTH IN ECB IS UPDATED. $ & P* A1
0x12896c…128b00 Dummy {f00=0x0055, f01=0x0190, f02=» $ l $ P ADR A1,A2 GET ADD END OF BUFFER % PSKIP05 CWK A2,2 % 0 P RF(NG) SKIP30 RL < 3 % H P SUK A1,1 DECR. BA % f P LCR A4,A1 GET CHAR % P CCK A4,/2020 SPACE ? % P RF(NE) SKIP20 NO % PSKIP07 SUK A2,1 DECR RL % P RB SKIP05 GET NEXT
0x128b00…128c94 (2, 210) Dummy {f00=0x0056, f01=0x0190, f02=»NE) SKIP30 NO % P SUK A1,2 DECR BA & P SUK A2,2 DECR RL & 0 P RB SKIP07 GET NEXT & J P* & f " PSKIP30 ST A2,4,A8 STORE NEW RL & p P RTN A15 & P XIF & P & P* & P* I H G P & P* & P* INTERRUPT & P* & PIHGP
0x128c94…128e28 Dummy {f00=0x0056, f01=0x018e, f02=»? & ~ P RF(Z) IHGP20 =2 ' . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? ' $ P IFT RECEND=0 ' V P RB(NZ) EXIT ' l P XIF ' P IFT RECEND=1 ' P RB(NZ) AGP430 ' P XIF ' P ' 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 ' PIHGP
0x128e28…128fbc Dummy {f00=0x0056, f01=0x0190, f02=» ' l PIHGP25 EQU * DK1 ( " P LDR A1,A1 RETURN-CODE OK? DK1 ( " , P RB(Z) IHGP10 TEST ORDER AND TIME OUT =2 ( H P RB ENDIO =2 ( x P ( P* ( P* E C H O G P ( P* ( 0 P* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE ( P* ( PECHOGP
0x128fbc…129150 Dummy {f00=0x0056, f01=0x0190, f02=»/80 EOR-CHARACTER ( P RF(NN) ECGP20 YES ) P ADK A2,/80 ) 4 P* ) H P XIF ) R P* ) ^ P LDR A1,A2 ) h P ANK A1,/7F ) z P SUK A1,/8 ) P RF(E) ECGP40 BACKSPACE ) P SUK A1,/2 LINE FEED =1 ) P RF(E) ECGP10 YES =1 ) P SUK A1,/3 C
0x129150…1292e4 Dummy {f00=0x0056, f01=0x0190, f02=»20-/5F ) b P RF(N) ECGP20 * P SUK A1,/5F-/20 * $ P RF(P) ECGP20 * < & PECGP10 CF A5,OUTPUT SEND CHARACTER * R ( P IM DWTST,A6 UPDATE POSITION COUNTER * | P SUK A4,1 READY ? * P RF(N) ECGP20 YES * * P RF(P) ECGP60 NO, GO TO CLEAR SECTION *
0x1292e4…129478 Dummy {f00=0x0056, f01=0x0190, f02=» CF A15,UPDAPP UPDATE HEAD POSITION POINTER * ( PECGP20 ABL ECHRTN RETURN TO KEYBOARD + 4 P + ` P* + j P* BACKSPACE + t P* + PECGP40 EQU * + & P LDK A2,GPBSP BACKSPACE CHARACTER + P RB ECGP10 + P* + P* CANCEL + P* +
0x129478…12960c Dummy {f00=0x0056, f01=0x0190, f02=»A3,DWTBC,A6 + P ANK A3,/FF , " PECGP70 CF A5,OUTPUT SEND CHAR. , ( P LDK A2,/08 BACKSPACE , N P SUK A3,1 , l P RB(NN) ECGP70 , ~ P LDK A3,0 , * P SC A3,DWTBC,A6 RESET POSITION COUNTER , P RB ECGP20 , P , P* , P* R C G P ,
0x12960c…1297a0 Dummy {f00=0x0056, f01=0x0190, f02=» ORDER 6 IS RUNNING , P* - P* ON ENTRY: - & P* - < P* A6 = DWT-ADDRESS - F P* A7 = ORDER - d P* A8 = ECB-ADDRESS - | PRCGP EQU * - P IFT CPU852=1 - & P CF A15,SAVE8 SAVE A1-A8 ON STACK - P XIF - P* - P IFT C
0x1297a0…129934 (2, 211) Dummy {f00=0x0056, f01=0x0190, f02=»SOH RESET PRINT BUFFER CODE - P CF A5,OUTPUT SEND IT . $ P CWK A7,5 . B P RF(E) RCGP10 . T P CWK A7,6 ORDER 6? . j P RF(E) RCGP05 YES . P CWK A7,0 ORDER 0? . P ABL(E) ENDIO =3 . P ABL EXIT =3 . PRCGP05 EQU * . 0 P LC A2,DWTST
0x129934…129ac8 Dummy {f00=0x0056, f01=0x4110, f02=»SEND SPACE . P LDK A2,STX / P CF A5,OUTPUT SEND STX / & P LDK A2,CR CARRIAGE RETURN / D P LDK A3,0 / f 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND / x P ABL ACGP46 / ( PRCGP10 LDK A1,TPERR SET RETURN CODE / P ABL AGP430 / P END /
0x129ac8…129c5c Dummy {f00=0x0056, f01=0x2008, f02=» 0 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x129c5c…129df0 Dummy {f00=0x0056, f01=0x018e, f02=» # ( & * 8 , H J F " D QL0X Q R R xL sL RxsTR RL0X R t HY tL R0Rp!wrxsu!! tHY b@ X C S Y t ^ e P l #
0x129df0…129f84 Dummy {f00=0x0056, f01=0x0190, f02=» O 6 ( 8 H X h x
0x129f84…12a118 Dummy {f00=0x0056, f01=0x018e, f02=» > @ B ( D 8 H H J X N h J F " D R! SuR!0X S TuR$0RT UuR# R2X RRRRAW U!jcV!$!W>3V RRRRRRRRRRRRRR x M M
0x12a118…12a2ac Dummy {f00=0x0056, f01=0x0190, f02=» M w ( 8 H X h x M M M
0x12a2ac…12a440 Dummy {f00=0x0056, f01=0x0190, f02=» ( 8 H X h x
0x12a440…12a5d4 (2, 212) Opaque[0x194]
0x12a5d4…12a768 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0640, f03=0x0000}
0x12a5d4…12a768 IdxSect {
0x12a5d4…12a768 f00 = 0x0032 // 0x12a5d4 @0x0
0x12a5d4…12a768 f01 = 0x0008 // 0x12a5d6 @0x2
0x12a5d4…12a768 gno = [ // 0x12a5d8 @0x4
0x12a5d4…12a768 [0x00]: C0x0032.0x0.0
0x12a5d4…12a768 [0x01]: C0x0032.0x1.0
0x12a5d4…12a768 [0x02]: C0x0032.0x2.0
0x12a5d4…12a768 [0x03]: C0x0032.0x3.0
0x12a5d4…12a768 ]
0x12a5d4…12a768 }
0x12a768…12a8fc Dummy {f00=0x0032, f01=0x0190, f02=» 2 P IDENT DRDI01 REL 9.2 79-11-16 870105040920 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY P*
0x12a8fc…12aa90 Dummy {f00=0x0032, 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* @ P* THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT P* 4 P* TH
0x12aa90…12ac24 Dummy {f00=0x0032, f01=0x0190, f02=»LER t P* " P* R C D I : RECOVERY ROUTINE P* < * P* THE FOLLOWING ORDERS ARE TREATED: F P* t " P* ORDER 05: WRITE LIGHTS ON ~ " P* 06: WRITE LIGHTS OFF ( P* 07: WRITE PROGRAM DISPLAY , P* 39:
0x12ac24…12adb8 Dummy {f00=0x0032, f01=0x0190, f02=» t P* A2: OUTPUT " P* A3: WORK REGISTER ( " P* A4: WORK REGISTER N " P* A5: WORK REGISTER t P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-ADDRESS P*
0x12adb8…12af4c Dummy {f00=0x0032, f01=0x0190, f02=» 1 IF PROGRAM DISPLAY (PTS 6241) , P* BIT 11 = 1 FOR PTS 6232,6331,6236 , , P* BIT 11 = 0 FOR PTS 6241,6242,6233 P* : P* ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY P* CONDITIONAL ASSEMBLY P* P EJECT
0x12af4c…12b0e0 Dummy {f00=0x0032, f01=0x0190, f02=»-BLOCK r P* P******************* P* EXTERNALS * 4 P******************* P P* l P EXTRN SAVE8 SAVE REGS v P EXTRN TENDIO END I/O . P EXTRN DISEND PERFORM END I/O AND DISPATCH * P EXTRN TDISP DISPATCHER ORDINARY INT
0x12b0e0…12b274 (2, 213) Dummy {f00=0x0032, f01=0x0190, f02=» STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS 2 P* T P EXTRN SETIMP SET TIMER ^ P* ~ P* P EJECT P* P* P*************** P* TABLES * P*************** P* P*
0x12b274…12b408 Dummy {f00=0x0032, f01=0x0190, f02=»DRIVER z " P DATA 0 ABORT ROUTINE ADDRESS P DATA IHDI INTERRUPT HANDLER 4 P DATA RCDI RECOVERY ROUTINE X P* | " PCCERR EQU /4 CODE CHECK ERROR P* P EJECT P* P* P************************* P* CONDITIONAL
0x12b408…12b59c Dummy {f00=0x0032, f01=0x0190, f02=»* SETTING X:A=0 P* PX:A EQU 0 $ PORD7 EQU 0 6 P* H P* R 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS P* BY SETTING CREDIT = 1 0 P* ORDERS 05,06AND 07 ARE THEN REPLACED BY P* ORDERS 37,38 AND 06
0x12b59c…12b730 Dummy {f00=0x0032, f01=0x0190, f02=»Y SETTING X:B=1 | P* PX:B EQU 0 " PFLASH EQU 1 4 P* H P* R . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING
0x12b730…12b8c4 Dummy {f00=0x0032, f01=0x018e, f02=»* P* P* MMU BUFFER SIZE P* 0 PX:C EQU 4 : PDVBLEN EQU X:C L P* b P* l P********************* v P* DWT-DISPLACEMENTS * P********************* P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFIN
0x12b8c4…12ba58 Dummy {f00=0x0032, f01=0x0190, f02=» | P XIF P* " PDWTDIB EQU START+/02 SAVE AREA 2 PDWTFLA EQU START+/08 SAVE AREA FOR FLASH IMAGE D & PDWTTP EQU START+/0A TIMER POINTER z PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P* AC
0x12ba58…12bbec Dummy {f00=0x0032, f01=0x0190, f02=»EDIT=1 P CCK A7,/0707 P RF(E) ADI050 ORDER /07 $ P XIF D P IFT ORD7+CREDIT=2 P P CCK A7,/0606 j P RF(E) ADI050 ORDER /06 P XIF $ P LD A4,10,A8 CONTROL WORD TO A4 P LDR* A3,A6 4 P ANK A3,/10 TEST IF ONE OR TWO C
0x12bbec…12bd80 Dummy {f00=0x0032, f01=0x0190, f02=» P SLL A3,4 P ORR A4,A3 LAMPCODES IN A4 PADI005 EQU * < P IFT FLASH=1 P P CCK A7,/3939 d P RF(E) FLA05 z P XIF P IFT CREDIT=0 P SUK A7,5 P XIF P IFT CREDIT=1 P SUK A7,/37 P XIF P RF(
0x12bd80…12bf14 (2, 214) Dummy {f00=0x0032, f01=0x0190, f02=»* P* P IFT FLASH=1 P* ( P* FLASH ORDER /39 2 P* R P* , PFLA05 ORS A4,DWTFLA,A6 SAVE FLASH IMMAGE f & P LD A1,DWTTP,A6 GET TIMER POINTER ( P RF(NZ) FLA10 TIMER ALREADY STARTED P LDK A4,DWTTP START TIMER
0x12bf14…12c0a8 Dummy {f00=0x0032, f01=0x0190, f02=»NRS A4,A6 CHECK ON-OFF INDICATOR PFLA10 EQU * ( P LD A4,DWTFLA,A6 < & P LDR* A2,A6 CHECK ON-OFF INDICATOR T P ANK A2,/40 ~ * P RF(Z) FLA20 WRITE FLASHING LIGHTS OFF P ORS A4,DWTDIB,A6 ON + FLASH P RF ADI030 TURN ON LAMPS PFLA2
0x12c0a8…12c23c Dummy {f00=0x0032, f01=0x0190, f02=»A1 P LD A4,DWTFLA,A6 < P RF(Z) FLA30 IF NO MORE LAMPS TO FLASH GO TO DISPATCHER " P LDKL A1,-TIME RESTART TIMER b P ST* A1,DWTTP,A6 P LDK A4,/40 " P XRRS A4,A6 SWITCH 0N-OFF FLAG P RB FLA10 PFLA30 CM DWTTP,A6 P RF
0x12c23c…12c3d0 Dummy {f00=0x0032, f01=0x0190, f02=» A4,DWTDIB,A6 RESET BITS IN DWT-BUFFER P IFT FLASH=1 . 0 P ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE B P XIF v P RF ADI030 P* P* P EJECT P* P* P* ORDER 05: TURN ON LAMPS P* P* P*
0x12c3d0…12c564 Dummy {f00=0x0032, f01=0x0190, f02=»AGE h P XIF . PADI030 LC A2,DWTDIB,A6 GET FIRST CHARACTER PADI035 LDK A1,1 J 6 P SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER b P LDR* A3,A6 TWO OUTPUTS ? P ANK A3,/10 P RF(NZ) IHDI10 NO P RF IHDI20 YES P*
0x12c564…12c6f8 Dummy {f00=0x0032, f01=0x0190, f02=»0 & PADI060 CF A15,GETCHR GET CHARACTER P LDR A1,A1 LAST CHARACTER ? 4 P RF(Z) ADI070 YES X P LDR A4,A2 r P SRL A4,4 $ P SUK A4,3 UNDEFINED CHARACTER ? P RF(L) ADI100 YES P CWK A4,3 UNDEFINED ? P RF(G) ADI100 YES
0x12c6f8…12c88c Dummy {f00=0x0032, f01=0x0190, f02=» < PADI070 SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER P RF IHDI10 SEND CHARACTERS D P* f P* p P* CODE CHECK ERROR z P* ( PADI100 LDK A1,CCERR SET RETURN CODE P ORS A1,8,A8 IN ECB " P RB ADI060 GET NEXT CHARACTER
0x12c88c…12ca20 Dummy {f00=0x0032, f01=0x0190, f02=»* PIHDI EQU * P LDR A1,A1 RETURN CODE P RF(NE) ENDIO YES END I/O : P LD A4,DWTST,A6 GET STATUS P ANK A4,/FF ~ P SUK A4,2 TWO CHARS. SENT P IFT ORD7=1 P RF(NZ) IHDI05 NO & P LDR* A3,A6 GET CHANNEL PARAMETER
0x12ca20…12cbb4 (2, 215) Dummy {f00=0x0032, f01=0x018e, f02=»RFORM ENDIO | PIHDI10 LDKL A2,DWTDIB P ADR A2,A6 2 P LD A4,DWTST,A6 F P ANK A4,/FF ^ P ADR A2,A4 r P LCR A2,A2 GET CHARACTER P XIF P IFT ORD7=0 P RF(Z) ENDIO 2 PIHDI10 LC A2,DWTDIB+1,A6 GET SECOND CHARACTER
0x12cbb4…12cd48 Dummy {f00=0x0032, f01=0x0190, f02=» P ORK A2,/40 INDICATE BELL P* & . POUTPUT IM DWTST,A6 INCREMENT BYTE COUNTER 0 & PIHDI20 CF A15,OUTLIN OUTPUT CHAR. b PEXIT ABL TDISP 2 PENDIO ABL DISEND PERFORM END I/O AND DISPATCH P* P EJECT P* P* R C D I
0x12cd48…12cedc Dummy {f00=0x0032, f01=0x018e, f02=»RMATION Z , P* OM PROGRAM DISPLAY IS ALSO RESTORED P* @ P* J PRCDI EQU * T P IFT CPU852=1 f & 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*
0x12cedc…12d070 Dummy {f00=0x0032, f01=0x4014, f02=» P @ OM PROGRAM DISPLAY IS ALSO RESTORED P* @ P* J PRCDI EQU * T P IFT CPU852=1 f & 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*
0x12d070…12d204 Dummy {f00=0x0032, 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
0x12d204…12d398 Dummy {f00=0x0032, f01=0x0190, f02=» p P DATA 2 DEVICE INDEX PGPAD EQU * ADDRESS BLOCK $ P DATA ACGP ACTIVATION DRIVER D " P DATA 0 ABORT ROUTINE ADDRESS h P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE P
0x12d398…12d52c Dummy {f00=0x0032, f01=0x0190, f02=»T STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE ~ < P* IS SET IF PAPER OUT OR READY SWITCH OFF. : H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM z P* CHANNEL UNIT. P* > P* ORDER 05: BASIC
0x12d52c…12d6c0 Dummy {f00=0x0032, f01=0x018e, f02=»ARE SENT TO PRINTER FROM f < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. P* ` PACGP EQU * j P LDK A2,STX START OF MESSAGE | P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 P SUK A3,5 =1 P RF(E) ACGP09 ORDER 5 =1
0x12d6c0…12d854 (2, 216) Opaque[0x194]
0x12d854…12d9e8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f8, f03=0x0000}
0x12d854…12d9e8 IdxSect {
0x12d854…12d9e8 f00 = 0x002f // 0x12d854 @0x0
0x12d854…12d9e8 f01 = 0x0018 // 0x12d856 @0x2
0x12d854…12d9e8 gno = [ // 0x12d858 @0x4
0x12d854…12d9e8 [0x00]: C0x002f.0x3.0
0x12d854…12d9e8 [0x01]: C0x0030.0x0.0
0x12d854…12d9e8 [0x02]: C0x0030.0x3.0
0x12d854…12d9e8 [0x03]: C0x0031.0x0.0
0x12d854…12d9e8 [0x04]: C0x0031.0x1.0
0x12d854…12d9e8 [0x05]: C0x0031.0x2.0
0x12d854…12d9e8 [0x06]: C0x0031.0x3.0
0x12d854…12d9e8 [0x07]: C0x0056.0x2.0
0x12d854…12d9e8 [0x08]: C0x0056.0x3.0
0x12d854…12d9e8 [0x09]: C0x0057.0x1.0
0x12d854…12d9e8 [0x0a]: C0x0057.0x2.0
0x12d854…12d9e8 [0x0b]: C0x0057.0x3.0
0x12d854…12d9e8 ]
0x12d854…12d9e8 }
0x12d9e8…12db7c Dummy {f00=0x002f, f01=0x0190, f02=» 2 P IDENT DRDY01 9.2DK 1 80-02-12 870105040921 P : P *DK,POS 80 ON VDU B P REL 9.2 80-02-12 ^ P =4,ABORT ROUTINE INCLUDED z P REL 9.1 79-05-23 * P =3,STEADY CURSOR PROBLEM CORRECTED P PRR 9.1 79-04-06 , P =
0x12db7c…12dd10 Dummy {f00=0x002f, f01=0x0190, f02=»01-12 P P* 6 P************************************************** P* Z $ P* PHILIPS TERMINAL SYSTEM PTS d P* 2 P* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY P* P* P* P* P* P* 6 P
0x12dd10…12dea4 Dummy {f00=0x002f, f01=0x0190, f02=» @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 P* AND PTS 6386 H 6 P* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM b P* VIA CHLT OR CHRT. P* < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS : P*
0x12dea4…12e038 Dummy {f00=0x002f, f01=0x018e, f02=»BOARD DRIVER DRKB01. P* P* & 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: 0 P* d & P* A C D Y ACTIVATION PART n P* ( P* I H D Y INTERRUPT HANDLER P* ( P* R C D Y RECOVERY ROUTINE P*
0x12e038…12e1cc Dummy {f00=0x002f, f01=0x0190, f02=» P* P* ORDER 00: TEST STATUS P* 05: BASIC WRITE 0 " P* 06: STANDARD WRITE R ( P* 07: WRITE GRAPHIC DISPLAY x & P* 0B: CURSOR POSITIONING P* 31: ERASE P* P* NORMAL REGISTER
0x12e1cc…12e360 Dummy {f00=0x002f, f01=0x0190, f02=»X r $ P* A4 = WORK REGISTER " P* A5 = STACK BASE 2 " P* A6 = DWT-ADDRESS X P* A7 = ORDER ~ " P* A8 = ECB-ADDRESS P* P EJECT P* P* P* SYSTEM ADAPTATION
0x12e360…12e4f4 (2, 217) Dummy {f00=0x0030, f01=0x0190, f02=»* BIT: 10 11 P* -------------- " P* 0 0 PTS 6344 4 * P* 0 1 PTS 6351 & 6342 Z * P* 1 0 PTS 6386 & 6385 * P* --------------------------------- P* 6 P* BY MEANS OF CONDITION
0x12e4f4…12e688 Dummy {f00=0x0030, f01=0x0190, f02=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER > & P* -CAN SUPPRESS TRAILING BLANKS z F P* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F) P EJECT P* P*
0x12e688…12e81c Dummy {f00=0x0030, f01=0x0190, f02=»S TO ADDRESSBLOCK ~ 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* N P* X P* b P* l . P***************************************** v . P* EXTERNAL TOSS MODULE ENTRIES * . P*****************************************
0x12e81c…12e9b0 Dummy {f00=0x0030, f01=0x0190, f02=»R z > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O L . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK j 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P EJE
0x12e9b0…12eb44 Dummy {f00=0x0030, f01=0x0190, f02=»ST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER 4 P* N P EJECT X P************* f P* CONSTANTS * | P************* P* PFASTO EQU /14 FAST OUTPUT $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTAR EQU /
0x12eb44…12ecd8 Dummy {f00=0x0030, f01=0x0190, f02=»TOP r PBACKSP EQU /08 BACKSPACE PLF EQU /0A LINE FEED , PHOME EQU /0B CURSOR HOME H ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME h PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT PSPACE EQU /20 SPACE PSTX EQU /82 START
0x12ecd8…12ee6c Dummy {f00=0x0030, f01=0x018e, f02=»PE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER * 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT P PSTILL EQU /18 CURSOR STEADY $ PCTYCOD EQU /1B SET COUNTRY CODE P* P******************** P* RETURN CODE
0x12ee6c…12f000 Dummy {f00=0x0030, f01=0x0190, f02=» P EJECT P* P* . P***************************************** * . P* CONDITIONAL ASSEMBLY * . P***************************************** P* P* H P* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MO
0x12f000…12f194 (2, 218) Dummy {f00=0x0030, f01=0x0190, f02=»44 Z P* PX:B EQU 1 PWHATDY EQU 0 & P* : P* D 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR N & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 0 PLOWCHA EQU 0 P* P* 8 P* BY MEANS OF CONDITION
0x12f194…12f328 Dummy {f00=0x0030, f01=0x018e, f02=»ANT X:G=0 f P* PX:D EQU 0 PEORECH EQU 0 . P* B 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS L @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* PX:E EQU 0 PTRASPA EQU 0 P EJECT P*
0x12f328…12f4bc Dummy {f00=0x0030, f01=0x0190, f02=» < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1 D P* f PMMUPAG EQU 1 p P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x12f4bc…12f650 Dummy {f00=0x0030, f01=0x0190, f02=» CHARACTER SETS. h P P P* CODE COUNTRY ( P > P* 0 GB/NL/B F P* 1 D/A/L/CH Z P* 2 F/CH/B/L n P* 3 E P* 4 I/CH P* 5 S/SF P* 6 DK/N P* 7 P P* 8 YU P* 9 US PX:G EQU 0 PCOUNTRY EQU
0x12f650…12f7e4 Dummy {f00=0x0030, f01=0x0190, f02=»CT P* P* $ P******************************** $ P* DWT-DISPLACEMENT * F $ P******************************** n P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU
0x12f7e4…12f978 Dummy {f00=0x0030, f01=0x0190, f02=»ION POINTER r " PDWTPOS EQU START+/15 POSITIONS PDWTLIN EQU START+/14 LINES : & PDWTBIN EQU START+/16 BUFFER INDEX P* P EJECT P* P* P********** P* TABLES * P********** P* P* P DATA DVBLEN
0x12f978…12fb0c Dummy {f00=0x0030, f01=0x0190, f02=»OUTINE ADDRESS ~ P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE : . P DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE ^ P* P* , PTABSPE EQU * TABLE OF SPECIAL CHARACTERS P DATA /0712,/131E,/1F14 P EJECT P*
0x12fb0c…12fca0 Dummy {f00=0x0030, f01=0x0190, f02=»ISPLAY AND RETURN CODE b 2 P* IS SET IF DISPLAY NOT OPERABLE P* T P* ^ > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY h 6 P* FROM ECB-BUFFER WITHOUT ANY CHECK. P* F P* ORDER 06: STANDARD WR
0x12fca0…12fe34 (2, 219) Dummy {f00=0x0031, f01=0x0190, f02=» IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER B F P* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386> P* P IFT GRAFIC=1 B P* ORDER 07:
0x12fe34…12ffc8 Dummy {f00=0x0031, f01=0x0190, f02=» IS SENT TO THE DISPLAY. P* " P XIF , : P* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. 8 < P* THE CURSOR IS SENT TO THE POSITION GIVEN v > P* IN CONTROL WORD. NO INFORMATION ON DISPLAY @ P* I
0x12ffc8…13015c Dummy {f00=0x0031, f01=0x0190, f02=»RASED ON THE LINE j < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL Z @ P* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS : P* IN THE CURSOR POSITION.
0x13015c…1302f0 Dummy {f00=0x0031, f01=0x018e, f02=»UNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES * P LDK A2,STX START OF MESSAGE D P CF A5,OUTPUT SEND h P IFT WHATDY=0 " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/10 GRAPHIC DISPLAY P RF(E) ACDY02 NO P IFT GRAFIC=1
0x1302f0…130484 Dummy {f00=0x0031, f01=0x0190, f02=» d P CF A5,OUTPUT P* P XIF ( P* 4 PACDY02 EQU * > P CWK A7,5 ORDER 5 R P RF(E) ACDY90 YES l P SUK A7,6 ORDER 6 ? P RF(E) ACDY20 YES P SUK A7,5 ORDER /B ? P ABL(E) ADY200 YES P SUK A7,/26 ORDER ERAS
0x130484…130618 Dummy {f00=0x0031, f01=0x0190, f02=»N RIGHT BYTE IN BUFFER p P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF PRINT HEAD < " P* /30 CR, LF, LF p B P* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION P* OTHER VALUE CR, LF P* P
0x130618…1307ac Dummy {f00=0x0031, f01=0x0190, f02=»FFER ADDRESS ~ & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF > PACDY25 EQU * R * P SUK A2,/2B POSITIONING BEFORE WRITE ? f P RF(E) ACDY90 P SUK A2,6 /31 ? P RF(E) ACDY65 P LDK A4,1 INDICATE LINE FEED " P ADK A2,1 DO
0x1307ac…130940 Dummy {f00=0x0031, f01=0x0190, f02=»TURN t PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER $ 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS Z P* PACDY50 EQU * P CF A5,OUTPUT SEND CHARACTER PACDY52 SUK A4,1 & P RF(N) ACDY90 START SECT
0x130940…130ad4 (2, 220) Dummy {f00=0x0031, f01=0x0190, f02=»OUNTER r P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND & P RB ACDY50 P ( PACDY65 LDK A2,CLEHOM CLEAR AND HOME b P LDK A1,1 & P SC A1,DWTAP,A6 RESET LINE COUNTER P RB ACDY35 P EJECT P* & P* GET, CHECK AND
0x130ad4…130c68 Dummy {f00=0x0031, f01=0x0190, f02=»METER t P ANK A4,/10 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 " P XIF J P LD A4,2,A8 V 2 P ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER j $ P CCR A2,A4 CHAR EQU TO CURRENT? P ABL(E) CHECK YES! PACDY75 EQU * P CF A5,OUTPUT
0x130c68…130dfc Dummy {f00=0x0031, f01=0x0190, f02=»GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 H P RF(NG) SKIP30 RL < 3 ` P SUK A1,1 DECR. BA ~ P LCR A4,A1 GET CHAR P CCK A4,/2020 SPACE ? P RF(NE) SKIP20 NO PSKIP07 SUK A2,1 DECR RL
0x130dfc…130f90 Dummy {f00=0x0031, f01=0x0190, f02=»TION CHAR ? | P RF(NE) SKIP25 NO! ! P SUK A1,2 DECR BA ! . P SUK A2,2 DECR RL ! H P RB SKIP07 GET NEXT ! b ( PSKIP25 LCR A4,A1 GET CHARACTER AGAIN ! ~ P ANK A4,/FF ! " P SUK A4,/12 UNDER LINE START? ! P RB(Z) SKIP07 YES! SKIP IT! ! P
0x130f90…131124 Dummy {f00=0x0031, f01=0x018e, f02=»T A2,4,A8 STORE NEW RL ! P XIF " PACDY90 LDK A4,0 " * 6 PADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER " B P LDR A1,A1 LAST CHARACTER? " | P ABL(NP) ADY405 " P SUK A7,5 ORDER 5? " P RB(E) ACDY75 " P ANK A2,/7F " P LDK A1,5 SET
0x131124…1312b8 Dummy {f00=0x0031, f01=0x0190, f02=» " p P ANK A7,/30 GRAFIC DISPLAY ? # P RF(E) ADY110 NO # , P LDK A1,0 SET TABLE PONTER # D * PADY110 CC A2,TABSPE,A1 CHARACTER FOUND # f P RF(NE) ADY128 # " P CCK A2,/1E1E LOW INTENSITY ? # P RF(NE) ADY122 NO # P LDK A4,/80 # , PADY120 ORR
0x1312b8…13144c Dummy {f00=0x0031, f01=0x0190, f02=» LDK A4,/40 SET UNDERLINE MODE # P RB ADY120 $ & & PADY125 CCK A2,/1414 FAST OUTPUT ? $ 8 P LDK A4,0 $ b P RB(NE) ACDY50 NO $ t P LDR A4,A2 $ ( P CF A15,GETCHR GET OUTPUT CHARACTER $ P LDR A1,A2 $ P LDR A2,A4 $ P LD A4,4,A8 REQ LENGTH $
0x13144c…1315e0 Dummy {f00=0x0031, f01=0x018e, f02=» P ANK A7,/10 % 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % P XIF % N P LDR A3,A1 NO! % Z P CF A5,FASTER % p PADY127 EQU * % P LD A3,4,A8 REQ LENGTH % P ST A3,6,A8 EFF LENGTH % P ABL ADY405 % PADY128 EQU * % P SUK A1,1
0x1315e0…131774 (2, 221) Dummy {f00=0x0031, f01=0x0190, f02=» % P SUK A1,/F LESS THAN /20 ? & " P RF(N) ADY130 CODE CHECK ERROR & * P SUK A1,/3F GREATER THAN /5F & P P RB(NP) ACDY70 & t P IFT LOWCHA=0 & 6 P SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F & & P TO CHARACTER BETWEEN /40 TO /5F & P XIF
0x131774…131908 Dummy {f00=0x0031, f01=0x018e, f02=» P* A1 = CHARACTER ' P* A4 = NUMBER ' P************************ ' 2 P LC A2,DWTBC,A6 ' R P AD A2,DWTAP,A6 GET POSITION ' j P ANK A2,/FF ' $ P ADR A2,A4 ADD LENGTH OF REQUEST ' $ P LD A3,DWTPOS,A6 GET MAX-POS AND ' P ANK A3,/FF ' P S
0x131908…131a9c Dummy {f00=0x0031, f01=0x0190, f02=» 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS ( POT030 EQU * ( 8 & P LDR A3,A1 SAVE CHARACTER TO SEND ( L POT010 LDR A2,A3 ( v $ P CF A5,OUTPUT SENT CHAR (IN A2) ( P SUK A4,1 DECREMENT COUNTER ( P RB(P) OT010 ( P LD A4,10,A8 GET ACT. LENG
0x131a9c…131c30 Dummy {f00=0x0031, f01=0x0190, f02=»27 ( P XIF ) P EJECT ) P* ) $ P* CODE CHECK ERROR ) . P* ) L PADY130 EQU * ) V P LDK A1,CCERR ) j P ORS A1,8,A8 RETURN CODE ) P RB ADY100 ) P EJECT ) P* ) P* TABULATION ) P* ) PADY140 EQU * ) , P CF A15,
0x131c30…131dc4 Dummy {f00=0x0031, f01=0x0190, f02=» ) P RF(E) ADY144 * 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL * P SUK A4,1 * R P RB(NE) ADY143 * d PADY144 LC A4,DWTAP+1,A6 * z . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER * P LC A4,DWTBC,A6 * , P SUR A2,A4 AND REQUESTS POSITION COU
0x131dc4…131f58 Dummy {f00=0x0031, f01=0x0190, f02=»ADY146 CF A5,OUTPUT * , P CF A15,POSUPD POSITION COUNTER UPDATING + P SUK A4,1 READY ? + L P RB(NE) ADY145 NO + f P ABL ADY100 + P EJECT + P* + P* ERASE ORDER /31 + P* + 2 PADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE +
0x131f58…1320ec Dummy {f00=0x0031, f01=0x0190, f02=» & P CF A5,ERA GET LENGTH TO ERASE =2 , P LDK A3,/20 , . P CF A5,FASTER FAST OUTPUT , B PADY165 LDK A2,ETB , d P CF A5,OUTPUT , ~ P ABL ADY410 END OF REQUEST , P IFT WHATDY=0 , PADY166 EQU * YES =2 , & P CF A5,ERA GET LENGTH TO ERASE =
0x1320ec…132280 Dummy {f00=0x0031, f01=0x0190, f02=»ND IT , P RB ADY170 - PADY180 LD A4,10,A8 - & P CF A5,ERA GET LENGTH TO ERASE =2 - : P LDR A3,A3 OVER EDGE =2 - d P RF(NN) ADY186 NO =2 - P SUK A4,1 ADJUST LENGTH - PADY186 EQU * - P SUK A4,1 DECREMENT =2 - , P RB(N) ADY165 CURSOR I
0x132280…132414 (2, 222) Dummy {f00=0x0031, f01=0x0190, f02=» P* . * P* ORDER /B CURSOR POSITIONING PART . P* . < PADY200 EQU * . F P* . Z P IFT WHATDY=0 . d " P LDR* A1,A6 CHANNEL PARAMETER . z P ANK A1,/10 GRAFIC DISPLAY? . P RF(NE) ADY205 YES . 2 P* IF VIDEO (6344) SET CURSOR ADDRESS DI
0x132414…1325a8 Dummy {f00=0x0031, f01=0x0190, f02=»T CURSOR . P RF ADY380 / P IFT WHATDY=0 / " P* GET LINE / 8 * PADY205 LC A4,10,A8 GET REQUESTED LINE / N $ P CC A4,DWTLIN,A6 OUTSIDE SCREEN? / | P RF(NG) ADY207 NO! / 4 P LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE / PADY207 EQU * / $
0x1325a8…13273c Dummy {f00=0x0031, f01=0x018e, f02=»INE / | P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 0 ( PADY230 CF A5,OUTPUT SEND 0 V P LDR A4,A4 REQUESTED LINE 0 v " P RB(NZ) ADY210 NOT EQUAL ZERO 0 P LDK A4,1 0 P RF ADY300 0 PADY250 LDK A2,HOME HOME 0 & P LDK A
0x13273c…1328d0 Dummy {f00=0x0031, f01=0x0190, f02=» 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,A8 GET REQUESTED POSITION 1 : $ P CC A4,DWTPOS,A6 OUTSIDE SCREEN? 1 f P RF(NG) ADY303 NO! 1 " P LC A4,DWTPOS,A6 SET LAST LINE 1 PADY303 EQU * 1 P CWK A4,1 FIRST POSITION ? 1 P RF(
0x1328d0…132a64 Dummy {f00=0x0031, f01=0x0190, f02=»Y305 RF(NL) ADY307 REQ. POS NOT ZERO 1 P LDK A4,1 2 , 0 PADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2 > P CC A3,DWTPOS,A6 MAX-POS? 2 r P RF(NG) ADY310 NO! 2 P SUK A3,1 2 * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS 2 P RF(E) ADY370 POSITION FOU
0x132a64…132bf8 Dummy {f00=0x0031, f01=0x0190, f02=»ND 2 z P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 3 , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY 3 N P RF(L) ADY345 BACKSPACE WAY 3 ~ P LDK A2,CR CARRIAGE RETURN 3 & P LDK A3,1 INDICATE FIRST POSITION 3 P RB ADY330 3 " PADY345 L
0x132bf8…132d8c Dummy {f00=0x0031, f01=0x0190, f02=»UPDATE HEAD POSITION POINTER 3 x P XIF 4 $ & PADY380 LDK A3,2 START BUFFER INDEX 4 0 P ABL ACDY90 4 Z P IFT WHATDY=0 4 n P* 4 & PADY400 LDK A2,/22 START CHARACTER 4 P CF A5,OUTPUT 4 P* 4 P XIF 4 P* 4 P EJECT 4 P* 4 P*
0x132d8c…132f20 Dummy {f00=0x0031, f01=0x018e, f02=»Y405 EQU * 4 & P LDR* A1,A6 GET CHANNEL PARAMETER 5 P ANK A1,/30 6344 ? 5 < P RF(NE) ADY407 NO 5 V P LDR* A1,A6 5 p P LDR A4,A1 5 P ANK A1,/40 UNDERLINE MODE ? 5 P RF(E) ADY406 NO 5 " P LDK A2,ULSTOP UNDERLINE STOP 5 P CF A5,OUTPUT 5
0x132f20…1330b4 (2, 223) Dummy {f00=0x0056, f01=0x018e, f02=» PADY407 EQU * 6 $ P LDK A2,ETB END OF TEXT MESSAGE 6 P CF A5,OUTPUT SEND CHARACTER 6 @ 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 6 d PADY410 LDK A2,ETX LAST DUMMY 6 P CF A5,OUTPUT SEND DUMMY 6 PADY415 EQU * 6 P SUK A7,5 ORDER 5 ? 6
0x1330b4…133248 Dummy {f00=0x0056, f01=0x0190, f02=» P RF(NE) ENDIO NO *DK 7 , P LD A4,DWTAP,A6 GET CURSOR POSITION. *DK 7 " P ST A4,10,A8 PUT IN ECBCW *DK 7 P PENDIO CF A15,TENDIO END I/O 7 v $ PEXIT ABL TDISP GO TO DISPATCHER 7 P* 7 P IFT GRAFIC=1 7 P* 7 P EJECT 7 P* 7 P*
0x133248…1333dc Dummy {f00=0x0056, f01=0x018e, f02=» GET CHARACTER 7 | P LDR A1,A1 BUFFER EMPTY 8 P RB(E) ADY400 8 6 P LDR A4,A2 8 L & P CF A15,GETCHR GET NEXT CHARACTER 8 ^ P LDR A1,A4 8 P ANK A4,/80 ADDRESS OR DATA 8 P RF(E) ADY530 DATA MESSAGE 8 P* 8 P* ADDRESS MESSAGE 8 P*
0x1333dc…133570 Dummy {f00=0x0056, f01=0x0190, f02=» P ORR A4,A1 9 P ANK A2,/F 9 P ANK A4,/7F 9 ( P ORK A2,/20 9 < , PADY515 CF A5,OUTPUT SEND FIRST CHARACTER 9 P $ P LDR A2,A4 GET SECOND CHARACTER 9 ( P CF A5,OUTPUT SEND SECOND CHARACTER 9 P RB ADY510 9 P EJECT 9 P* 9 P* DATA
0x133570…133704 Dummy {f00=0x0056, f01=0x018e, f02=»A2 9 P SLL A2,5 : P ORR A1,A2 : P LDK A7,10 : . P LDK A2,0 : @ PADY540 SLL A1,1 : R P RF(NN) ADY550 : j P ORKL A2,/200 : PADY550 SUK A7,1 : P RF(E) ADY560 : P SRL A2,1 : P RB ADY540 : PADY560 LDR A4,A2 : P SRL A4,
0x133704…133898 Dummy {f00=0x0056, f01=0x0190, f02=» : , P* UPDAPP = SUBROUTINE TO UPDATE HEAD ; , P* POSITION POINTER WHEN END ; 8 ( P* OF REQUEST IS REACHED ; h PUPDAPP EQU * ; ( P LC A3,DWTBC,A6 GET POSITION COUNTER ; 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER ;
0x133898…133a2c Dummy {f00=0x0056, f01=0x0190, f02=»POSITION ; f 0 P* POINTER WHEN REQUEST RUNNING. < > P* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE < D P* < PPOSUPD EQU * < ( P LC A2,DWTBC,A6 GET POSITION POINTER < P ANK A2,/FF < 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITIO
0x133a2c…133bc0 Dummy {f00=0x0056, f01=0x0190, f02=»R < j PPOSU10 RTN A15 = P EJECT = P* = . P* I H D Y = 8 P* = L P* INTERRUPT = V P* = l PIHDY EQU * = v P LD A4,DWTST,A6 BUSY? = P RB(N) EXIT NO = P SLL A4,2 ECHO MODE ? = P RF(N) IHDY10 = . P LDR A1,A1 RETURN CODE F
0x133bc0…133d54 (2, 224) Dummy {f00=0x0056, f01=0x0190, f02=» R C D Y = P* > ( P* RCDY = RECOVERY ROUTINE DISPLAY > P* > F P* > P ( P* RECOVERY IS CARRIED OUT ONLY IF > Z P* ORDER 6 IS RUNNING > P* > P* AT ENTRY: > P* > P* A6 = DWT-ADDRESS > P* A7 = ORDER > P*
0x133d54…133ee8 Dummy {f00=0x0056, f01=0x018e, f02=» CPU852=0 > " P MSR 8,A15 SAVE A1-A8 ON STACK ? P XIF ? 8 P* ? D P =3 ? N P LDKL A2,/7FFF ? P ANS A2,DWTST,A6 SET BUSY ? r P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P* ?
0x133ee8…13407c Dummy {f00=0x0056, f01=0x0190, f02=» . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE @ P CF A5,OUTPUT @ 6 P* @ L P XIF @ V P* @ b P EJECT @ l PRCDY10 EQU * @ z P LDK A2,/00 DUMMY TO SEND @ P CF A5,OUTPUT @ $ P LDR A4,A4 LRC-ERROR IN BLOCK ? @ P RF(NE) RCDY20 @ P IFT
0x13407c…134210 Dummy {f00=0x0056, f01=0x0190, f02=» P RF(Z) RCDY14 NO =3 A * P LDK A3,100 SET UP TRANSFER COUNTER =3 A 4 PRCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 A N , P ADK A2,STEADY ADJUST TO STEADY IF SO =3 A $ P CF A5,OUTPUT SEND CURSOR INF =3 A & P SUK A3,1 DEC TRANSFER COUNTER =3 A , P
0x134210…1343a4 Dummy {f00=0x0056, f01=0x018e, f02=»TRY SEND 'COUNTRY CODE' =1 A P ORK A2,/30 =1 B " P CF A5,OUTPUT =1 B : P =3 B T P =3 B b PRCDY14 EQU * =3 B p P XIF =1 B ( P LD A3,DWTST,A6 SAVE STATUS WORD =3 B " P LDK A2,CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND B P L
0x1343a4…134538 Dummy {f00=0x0056, f01=0x018e, f02=» B x " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C . P EJECT C H P* C V ( P* LRC-ERROR IN BLOCK SENT REMOTE C ` P* C PRCDY20 EQU * C P SUK A7,5 ORDER 5 ? C P RF(NE) RCDY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR C
0x134538…1346cc Dummy {f00=0x0056, f01=0x0190, f02=» C ^ P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKSPACES AND RUB OUT D 2 P LDK A3,2 START BUFFER INDEX D d PRCDY30 ABL ACDY90 D P EJECT D P* D P* E C H O D Y D P* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE
0x1346cc…134860 Dummy {f00=0x0056, f01=0x018e, f02=» EORECH=0 D P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE ECHOED E 0 P ADK A2,/80 E X P* E l P XIF E v P* E P SUK A3,/8 E P RF(E) ECDY40 BACKSPACE E P SUK A3,/10 E P RF(E) ECDY50 CLEAR E & PECDY10 CF A5,OUTPUT SEND C
0x134860…1349f4 (2, 225) Dummy {f00=0x0057, f01=0x0190, f02=» ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD F P* F 0 P* BACKSPACE F : P* F P PECDY40 EQU * F Z ( P LC A4,DWTBC,A6 GET POSITION COUNTER F n P ANK A4,/FF F P RB(E) ECDY20 FIRST POSITION F $ P LDK A4,1 INDICATE ONE BACKSTEP F P CF A5,BACCAN
0x1349f4…134b88 Dummy {f00=0x0057, f01=0x0190, f02=»ER F n P ANK A4,/FF G P RB(E) ECDY20 FIRST POSITION G P IFT WHATDY=0 G B & P LDR* A1,A6 GET CHANNEL PARAMETER G X P ANK A1,/10 GRAFIC DISPLAY G P RF(E) ECDY60 N G P CF A5,BACCAN BACK G P RB ECDY20 G P XIF G * PECDY60 LDR A3,A4 SAV
0x134b88…134d1c Dummy {f00=0x0057, f01=0x0190, f02=»OUNTER G | P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H 2 P CF A5,FASTER FAST OUTPUT H F P LDK A2,0 H h * P SC A2,DWTBC,A6 RESET POSITION COUNTER H z P RB ECDY20 H P EJECT H P* H P* H 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR
0x134d1c…134eb0 Dummy {f00=0x0057, f01=0x0190, f02=» H x P* I PBACCAN EQU * I P LDR A3,A4 I & ( P LC A2,DWTBC,A6 GET POSITION COUNTER I 8 P ANK A2,/FF I d . P AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER I x P ANK A2,/FF I " P CC A2,DWTPOS,A6 LAST POSITION I P RF(NP) BACA10 NO I $ P LDK A2,SP
0x134eb0…135044 Dummy {f00=0x0057, f01=0x0190, f02=»E SPACE I x P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J * PBACA20 CF A5,OUTPUT SEND J J P SUK A4,1 J j P RB(NE) BACA10 J | P NGR A3,A3 NEGATE REGISTER J , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER J P RTN A5 J P EJECT J 4 P******
0x135044…1351d8 Dummy {f00=0x0057, f01=0x0190, f02=»SON FOR USING * J r 4 P* 'FAST OUTPUT FACILITY' ON 6344 * K 4 P* AND 6386 * K R 4 P*********************************************** K PCHECK EQU * K P* K P* K P LD A1,4,A8 K P SUR A1,A3
0x1351d8…13536c Dummy {f00=0x0057, f01=0x0190, f02=» K l P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L ( P SUK A1,1 END OF BUFFER? L P P RF(NP) OUT YES! L p P ADK A2,1 INCREMENT POINTER L $ P CCR A7,A2 CHAR EQU TO PREVIUS? L P RB(E) NEXT YES! L POUT EQU * L 6 P CWK A4,EQ
0x13536c…135500 Dummy {f00=0x0057, f01=0x0190, f02=»TION POINTER * L | , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P AD A2,DWTAP,A6 M F P ANK A2,/FF M ^ " P ADR A3,A4 UPDATE BUFFER-INDEX M r P ST A3,DWTBIN,A6 SAVE INDEX M 0 P LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE M P SUR A3,A2 AND COMPARE M
0x135500…135694 (2, 226) Dummy {f00=0x0057, f01=0x0190, f02=»*********** M P* EXECUTE FAST OUTPUT * N P LDR A3,A7 GET CHAR TO SEND N 4 P CF A5,FASTER N X P************** N n P* SET CURSOR * N " P LD A4,DWTST,A6 GET ACTUAL POS N P ANK A4,/FF N ( P AD A4,DWTAP,A6 INC HEAD POS POINTER N P CF A5,C
0x135694…135828 Dummy {f00=0x0057, f01=0x018e, f02=» SUK A3,1 N P ABL ACDY90 READ NEXT CHAR O P* O 4 . PNOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER O > P ABL ACDY75 O p P EJECT O P* O P* O < P* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT O 4 P* AT ENTRY A4 = NUMBER
0x135828…1359bc Dummy {f00=0x0057, f01=0x0190, f02=» O PFAS010 EQU * P P ADK A4,/20 ADD CONSTANT P P LDK A2,FASTO FAST OUTPUT P < P CF A5,OUTPUT SEND P ^ P LDR A2,A4 NO OF CHAR P x P CF A5,OUTPUT SEND P P LDR A2,A3 P P CF A5,OUTPUT SEND P P RTN A5 P P EJECT P P* P P* P
0x1359bc…135b50 Dummy {f00=0x0057, f01=0x0190, f02=»QU * P P ADKL A4,/1F1F CONVERT Q P LDK A2,SCADD SET CURSOR Q * P CF A5,OUTPUT SEND Q J P ECR A2,A4 POS. X < /80? Q d P LDR A2,A2 Q P RF(NN) CURR05 YES! Q P LCK A4,/7F00 Q PCURR05 EQU * Q P LDR A2,A4 Q & P CF A5,OUTPUT OUTPUT POSIT
0x135b50…135ce4 Dummy {f00=0x0057, f01=0x0190, f02=»IFT RIGHT Q PCURR15 EQU * R P CF A5,OUTPUT OUTPUT LINE(Y) R & P RTN A5 R J P EJECT R Z P* =2 R h P* =2 R v P* =2 R 8 P* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2 R P* =2 R P* =2 R 0 P* AT ENTRY A4 = CHAR TO ERASE
0x135ce4…135e78 Dummy {f00=0x0057, f01=0x0190, f02=»2 R t P ANK A2,/FF GET MAX CHAR. =2 S 0 P LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 S . P ANK A3,/FF =2 S b 2 P SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2 S z P ADK A2,1 ADJUST LENGTH =2 S P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO
0x135e78…13600c Dummy {f00=0x0057, f01=0x40a2, f02=» RTN A5 RETURN =2 S PABDY EQU * ABORT ROUTINE =4 T , P CF A15,UPDAPP UPDATE CURSOR POSITION =4 T > P RTN A15 RETURN TO CALLER =4 T n P END T @ T EEN =2 S z P ADK A2,1 ADJUST LENGTH =2 S P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO
0x13600c…1361a0 Dummy {f00=0x0057, f01=0x2008, f02=» U PP UPDATE CURSOR POSITION =4 S P RTN A15 RETURN TO CALLER =4 T , P END T P@ T EEN =2 S 8 P ADK A2,1 ADJUST LENGTH =2 S n P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO =2 S . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 S P LDK
0x1361a0…136334 (2, 227) Dummy {f00=0x0057, f01=0x0190, f02=» GET ORDER CODE FROM DWT E | P ANK A4,/3F F P* F 4 * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER F > $ P LC A4,ORDTAB,A4 GET ORDER INDEX F l P ANK A4,/FF F . P ABR(Z)* A15 RETURN IF NO READ/WRITE ORDER F P SUK A4,1 F $ P ADR A3,A4 ADD READ/WRITE IN
0x136334…1364c8 Dummy {f00=0x0057, f01=0x0190, f02=» * F P********** G P* G 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: G & P* G P* =0: NO READ/WRITE ORDER G f P* =1: READ ORDER G P* =TINDEX+1: WRITE ORDER G P* G PORDTAB EQU * ORDER CONSTANTS G P BYTES 0,1 /00, /01 G
0x1364c8…13665c Dummy {f00=0x0057, f01=0x0190, f02=» G v P BYTES 1,TINDEX+1 /0A, /0B H P BYTES 0,0 /0C, /0D H * P BYTES 0,0 /0E, /0F H F P BYTES 0,1 /10, /11 H b P BYTES 0,0 /12, /13 H ~ P BYTES 0,TINDEX+1 /14, /15 H P BYTES 0,0 /16, /17 H P BYTES 0,0 /18, /19 H P BYTES 0,0 /1A, /1B
0x13665c…1367f0 Dummy {f00=0x0057, f01=0x0190, f02=»ES 0,0 /24, /25 H P BYTES 0,0 /26, /27 I P BYTES 0,0 /28, /29 I 4 P BYTES 0,0 /2A, /2B I P P BYTES 0,1 /2C, /2D I l P BYTES 1,TINDEX+1 /2E, /2F I P BYTES 0,0 /30, /31 I P BYTES 0,0 /32, /33 I P BYTES 0,0 /34, /35 I P BYTES 0,0
0x1367f0…136984 Dummy {f00=0x0057, f01=0x0190, f02=» P EJECT TOSSIO J P* J P* T I O : D M J & P* J < 4 P* THIS MODULE IS CALLED BY 'TIO' WHEN A REQUEST J F * P* FOR DATA MANAGEMENT HAS BEEN ISSUED. J ~ P* J & P* INPUT: A8 = FDB MMU ECB ADDRESS J $ P* A9 = USER ECB ADDRESS J P
0x136984…136b18 Dummy {f00=0x0057, f01=0x0190, f02=»ADDRESS J p P ST A2,ECBBA,A8 K , P EL A2,ECBCW2,A9 GET SECOND CONTROL WORD K ( P ST A2,ECBCW2,A8 K X P* K p PA15RTN EQU * K z P RTN A15 K P* K P EJECT TOSSIO K P* K P* T I O P C I K P* K B P* THIS MODULE IS CALLED BY 'TI
0x136b18…136cac Dummy {f00=0x0057, f01=0x0190, f02=»UFFER ADDRESSES SO THAT BOTH ARE K r < P* EVEN OR UNEVEN, DEPENDING ON THE USER BUFFER ADDRESS. L ( 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT L h , P* COMPLETION OF THE REQUEST IS 'TENPCI'. L 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. L P
0x136cac…136e40 Dummy {f00=0x0057, f01=0x0190, f02=»* L P* OUTPUT: A1 IS DESTROYED M P* M , * PTIOPCI EQU * PROGRAMMED CHANNEL, INPUT M 6 ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH M d 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE M 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE? M P* M .
0x136e40…136fd4 (2, 228) Opaque[0x194]
0x136fd4…137168 # DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0340, f03=0x0000}
0x136fd4…137168 IdxSect {
0x136fd4…137168 f00 = 0x001a // 0x136fd4 @0x0
0x136fd4…137168 f01 = 0x002e // 0x136fd6 @0x2
0x136fd4…137168 gno = [ // 0x136fd8 @0x4
0x136fd4…137168 [0x00]: C0x001a.0x0.0
0x136fd4…137168 [0x01]: C0x001b.0x2.0
0x136fd4…137168 [0x02]: C0x001c.0x2.0
0x136fd4…137168 [0x03]: C0x001f.0x0.0
0x136fd4…137168 [0x04]: C0x0021.0x3.0
0x136fd4…137168 [0x05]: C0x0022.0x2.0
0x136fd4…137168 [0x06]: C0x0033.0x3.0
0x136fd4…137168 [0x07]: C0x0037.0x3.0
0x136fd4…137168 [0x08]: C0x0038.0x2.0
0x136fd4…137168 [0x09]: C0x003a.0x2.0
0x136fd4…137168 [0x0a]: C0x005b.0x2.0
0x136fd4…137168 [0x0b]: C0x005c.0x1.0
0x136fd4…137168 [0x0c]: C0x0065.0x2.0
0x136fd4…137168 [0x0d]: C0x0067.0x0.0
0x136fd4…137168 [0x0e]: C0x0067.0x1.0
0x136fd4…137168 [0x0f]: C0x0082.0x3.0
0x136fd4…137168 [0x10]: C0x0084.0x0.0
0x136fd4…137168 [0x11]: C0x008a.0x0.0
0x136fd4…137168 [0x12]: C0x008b.0x3.0
0x136fd4…137168 [0x13]: C0x008c.0x0.0
0x136fd4…137168 [0x14]: C0x008c.0x1.0
0x136fd4…137168 [0x15]: C0x0097.0x0.0
0x136fd4…137168 [0x16]: C0x0097.0x1.0
0x136fd4…137168 ]
0x136fd4…137168 }
0x137168…1372fc Dummy {f00=0x001a, f01=0x0190, f02=» 2 P IDENT DRRT01 REL 9.2 80-11-24 870105040920 P : $ P =13,8000,CURT,BLK TRANSM. PR B P REL 9.2 80-04-23 j " P =12,PRINTER RECOVERY ERROR P REL 9.2 80-03-14 " P =11,DISPLAY RECOVERY ERROR P REL 9.2 80-02-19 &
0x1372fc…137490 Dummy {f00=0x001a, f01=0x0190, f02=» | * P =8, INTERRUPT ADDRESS DISPLACEMENT P REL 9.1 79-05-23 6 P =7,CLT100 CORRECTED R P REL 9.1 79-04-06 p & P =1-6,GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-03-22 " P =6,C.U. PRESENT CHECK ERROR P REL 8.2 79-03
0x137490…137624 Dummy {f00=0x001a, f01=0x018e, f02=» =3,DISPL. RECOVERY P REL 8.2 79-03-17 P =2,LOOP TEST ERROR 8 P REL 8.2 79-03-16 V P =1,IMPROV. OF TEST ORDER r P REL 8.2 78-09-15 P* 4 P************************************************ P* $ P* PHILIP
0x137624…1377b8 Dummy {f00=0x001a, f01=0x0190, f02=» P* P* P* P* & 4 P************************************************ 0 P* h L P* THIS IS THE DRIVER TO CHANNEL UNITS FOR LOCAL AND REMOTE TERMINALS. r B P* AT INTERRUPT AN INPUT WORD IS READ TO REGISTER A2. IF DATA D P
0x1377b8…13794c Dummy {f00=0x001a, f01=0x0190, f02=»EXAMINED AND NECESSARY ACTIONS n P* ARE CARRIED OUT. & P* B P* L < P* THE DRIVER ALSO INCLUDES THE FOLLOWING SUBROUTINES:- V P* . P* - OUTLIN SEND ONE CHARACTER VIA CHLT P* < P* - CHLTON EXECUTE CIO-START ON EVERY CH
0x13794c…137ae0 Dummy {f00=0x001a, f01=0x018e, f02=»S ARE h P* INCLUDED IN THE DRIVER. P EJECT 2 P* @ P* J P* T B P* THE FOLLOWING FUNCTIONS ARE ALSO INCLUDED IN THE DRIVER:- ^ P* J P* - OUTPUT SEND ONE CHARACTER, SAVE A3-A5 AND RETURN TO DISPATCHER P* 6 P*
0x137ae0…137c74 (2, 229) Dummy {f00=0x001b, f01=0x0190, f02=» " P* TO USER VIA A5 P* * : P* - LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 4 P* r P* | P* . P* NORMAL REGISTER USAGE IN THE DRIVER:- P* P* A1 = RETURN CODE P* A2 = INPUT WORD P*
0x137c74…137e08 Dummy {f00=0x001b, f01=0x0190, f02=» P* A8 = ECB-ADDRESS P* P* * P* 4 P EJECT > P* L P*************** V P* ENTRIES * n P*************** P* P* 2 P ENTRY CHLT1 INTERRUPT FROM FIRST CHANNEL UNIT : P ENTRY CHLT2 INTERRUPT FROM SECO
0x137e08…137f9c Dummy {f00=0x001b, f01=0x0190, f02=» : P ENTRY CHRT1 INTERRUPT FROM FIRST CHANNEL UNIT REMOTE : P ENTRY CHRT2 INTERRUPT FROM SECOND CHANNEL UNIT REMOTE B 2 P ENTRY CHRT3 INTERRUPT FROM THIRD CHANEL REMOT 4 P ENTRY CHRT4 INTERRUPT FROM FOURTH CHANEL REMOTE $ P ENTRY OUTLIN SEND ONE CHA
0x137f9c…138130 Dummy {f00=0x001b, f01=0x0190, f02=» AND GO TO DISPATCHER , P ENTRY LDREG RELOAD REGISTERS AND RETURN , P ENTRY LDREGE RETURN FROM ECHO HANDLING P P ENTRY LDREGF RETURN 6 P ENTRY STREG SAVE REGISTERS IN DWT AND DISPATCHER 4 P ENTRY GETCHR GET ONE CHARACTER FROM ECB-BUFFER
0x138130…1382c4 Dummy {f00=0x001b, f01=0x0190, f02=»NTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS & P ENTRY REMFC REMOTE TEST FILE CODE 2 " P ENTRY ECHRTN RETURN FROM ECHO P ENTRY ECHO ECHO ROUTINE P ENTRY ECHEND END OF ECHO P EJECT P* P* * P**********************************
0x1382c4…138458 Dummy {f00=0x001b, f01=0x0190, f02=» SAVE REGISTERS A1-A8 P EXTRN TDISP DISPATCHER P EXTRN RETUR4 RESTORE A1-A4 > P EXTRN RETUR8 RESTORE A1-A8 b P EXTRN SETIME SET TIMER P EXTRN SETIMP SET TIME 6 P EXTRN INTLT1 INTERRUPT TABLE FOR LOCAL TERMINALS , P EXTRN INT
0x138458…1385ec Dummy {f00=0x001b, f01=0x0190, f02=»INTERRUPT TABLE FOR REMOTE TERMINALS 2 P EXTRN INTRT2 INTERRUPT TABLE REMOTE CHANNEL 2 , 6 P EXTRN INTRT3 INTERRUPT TABLE FOR REMOTE CHANEL 3 b 6 P EXTRN INTRT4 INTERRUPT TABLE FOR REMOTE CHANEL 4 $ P EXTRN DISIOE I/O REQUEST ERROR & P EXTRN DIS
0x1385ec…138780 Dummy {f00=0x001b, f01=0x0190, f02=»ENABLE l P* P* P* " P* , P*********************** 6 P* DWT PARAMETERS * V P*********************** v P* P EXTRN DWTOR ORDER ( P EXTRN DWTOCH LAST OUTPUT CHARACTER P EXTRN DWTECB ECB-ADDRESS * P
0x138780…138914 (2, 230) Dummy {f00=0x001c, f01=0x018e, f02=» DWTA3 SAVE AREA A3 P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE AREA A5 > & P EXTRN DWTSB2 STACK BASE 2 IN DWT ` P EXTRN DWTTP TIMER POINTER " P EXTRN DWTECH ECHO DEVICE DWT 0 P EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT 0 P E
0x138914…138aa8 Dummy {f00=0x001c, f01=0x0190, f02=» P******************** P* CONSTANTS * $ P******************** @ P* P* f ( PNOERR EQU 1 RETURN CODE NOT OPERABLE p , PTIME EQU 5 TIME BEFORE TIME-OUT FOR SYNC 4 PDUMMSP EQU /3 SPECIAL DUMMY TO GET DATA REQUEST ( P F
0x138aa8…138c3c Dummy {f00=0x001c, f01=0x018e, f02=»******************* | , P* CONDITIONAL ASSEMBLY * , P*************************************** L P* | P* < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER 8 P* MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1
0x138c3c…138dd0 Dummy {f00=0x001c, f01=0x0190, f02=» & P* OR UP TO FOUR LOCAL CHANNELS. P* . PX:B EQU 1 8 PLOCHAN EQU 3 J P* ^ P* h 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND r 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN 8 P* THE DRIVER. THIS FUNCTION CAN
0x138dd0…138f64 Dummy {f00=0x001c, f01=0x0190, f02=» BY SETTING X:D TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE , P* OR UP TO FOUR REMOTE CHANNEL CARDS. @ P* p PX:D EQU 2 z PRECHAN EQU 1 P* P* P* , P* REMFC IS " REMOTE TEST FILE CODE " P* STANDARD IS /15
0x138f64…1390f8 Dummy {f00=0x001c, f01=0x0190, f02=» P* PX:F EQU 1 PCECHO EQU 1 P* 4 P* > 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION H . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT : P******************************
0x1390f8…13928c Dummy {f00=0x001c, f01=0x0190, f02=»*********** f P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 1 P* V PDWA1 EQU /03 DEVICEADDRESS ` P* PCWTLT1 EQU * TABLE ENTRY PCWTLDW EQU *-CWTLT1 P DATA 0 LAST OUTPUT DWT PCWTLOW EQU *-CWTLT1 P DAT
0x13928c…139420 Dummy {f00=0x001c, f01=0x0190, f02=» A2,0,DWA1 INR PCWTOTR EQU *-CWTLT1 P OTR A2,0,DWA1 OTR 2 PCWTCIS EQU *-CWTLT1 L P CIO A2,1,DWA1 CIO-START h PCWTRTC EQU *-CWTLT1 " P DATA 0 RETRANSMISSION COUNTER PCWTEQ EQU *-CWTLT1 P DATA 0 QUEUE P DATA 0 QUEUE
0x139420…1395b4 (2, 231) Dummy {f00=0x001f, f01=0x0190, f02=»MULATOR x , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 @ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT P* P* : P***************************************************** : P
0x1395b4…139748 Dummy {f00=0x001f, f01=0x0190, f02=» CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 2 P* 6 PCWTLT2 EQU * @ P* T P IFT LOCHAN=2 ^ P* t P* ~ P* PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA IN
0x139748…1398dc Dummy {f00=0x001f, 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
0x1398dc…139a70 Dummy {f00=0x001f, f01=0x0190, f02=» DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE @ P INR A2,0,DWA2 INR d P OTR A2,0,DWA2 OTR ~ P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE
0x139a70…139c04 Dummy {f00=0x001f, f01=0x0190, f02=»NED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR " P* N P XIF X P* d P IFT LOCHAN=4 n P* P* P* PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD
0x139c04…139d98 Dummy {f00=0x001f, f01=0x0190, f02=»RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE 4 P* P P IFT ACKMUL=1 Z P* p P DATA 0 NAK-ACKUMULATOR z $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOU
0x139d98…139f2c Dummy {f00=0x001f, f01=0x018e, f02=»***** ` : P* C W T L T 3 * : P***************************************************** L P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 P* PCWTLT3 EQU * P* P IFT LOCHAN=3
0x139f2c…13a0c0 Dummy {f00=0x001f, f01=0x0190, f02=» v P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR , P OTR A2,0,DWA3 OTR F P CIO A2,1,DWA3 CIO-START ` " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA
0x13a0c0…13a254 (2, 232) Dummy {f00=0x0021, f01=0x0190, f02=»T ACKUMULATOR z P* P XIF P* , P IFT LOCHAN=4 6 P* L P* V P* ` PDWA3 EQU /23 DEVICE ADDRESS j P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DW
0x13a254…13a3e8 Dummy {f00=0x0021, f01=0x0190, f02=»A 0 SECOND QUEUE P* P IFT ACKMUL=1 " P* 8 P DATA 0 NAK-ACKUMULATOR B $ P DATA 0 RETR. FAULT-ACKUMULATOR b , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P E
0x13a3e8…13a57c Dummy {f00=0x0021, f01=0x0190, f02=» * f : P***************************************************** P* R 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 4 P* PCWTLT4 EQU * P* P IFT LOCHAN=4 P* P* P* PDWA4 EQU /33 P*
0x13a57c…13a710 Dummy {f00=0x0021, f01=0x0190, f02=» A2,0,DWA4 OTR P CIO A2,1,DWA4 CIO-START ! " P DATA 0 RETRANSMISSION COUNTER ! 6 P DATA 0 QUEUE ! P DATA 0 SECOND QUEUE ! r P* ! P IFT ACKMUL=1 ! P* ! P DATA 0 NAK-ACKUMULATOR ! $ P DATA 0 RETR. FAULT-ACKUMULATOR ! , P DATA 0
0x13a710…13a8a4 Dummy {f00=0x0021, f01=0x0190, f02=»************************* ! $ P* C W T R T 1 * " " $ P******************************* " J 4 P* CONTROL WORK TABLE FOR REMOTE CHANNEL NO. 1 " r P* CONNECTED TO FIRST CHRT " P* " PDWA5 EQU /1 DEVICE ADDRESS " PCWTRT1 EQU * "
0x13a8a4…13aa38 Dummy {f00=0x0021, f01=0x0190, f02=» A2,0,DWA5 OTR " P CIO A2,1,DWA5 CIO-START # " P DATA 0 RETRANSMISSION COUNTER # 6 P DATA 0 QUEUE TERMINAL 1 # P DATA 0 QUEUE TERMINAL 2 # | P* # P IFT ACKMUL=1 # P* # P DATA 0 NAK-ACKUMULATOR # $ P DATA 0 BLOCK ERROR ACKUMULATOR #
0x13aa38…13abcc Dummy {f00=0x0021, f01=0x0190, f02=»EQU *-CWTRT1 # P DATA 0 TIMER POINTER $ PCWSYNC EQU *-CWTRT1 $ 2 P DATA /7055 SYNC CHARACTER $ N PLRCDWT EQU *-CWTRT1 $ p 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ PLRCACK EQU *-CWTRT1
0x13abcc…13ad60 Dummy {f00=0x0021, f01=0x0190, f02=»STATUS WORD (LOOP-TESTS) $ 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR % ( P DATA 0 BIT 0: BLOCKSENDING RUNNING % T $ P BIT 15: BLOCKSENDING ALLOWED % P EJECT % $ P******************************** % $ P* C W T R T 2 * % $ P**
0x13ad60…13aef4 (2, 233) Dummy {f00=0x0022, f01=0x0190, f02=»* % PCWTRT2 EQU * & P DATA 0 LAST OUTPUT DWT & P DATA 0 LAST OUTPUT WORD & > P & ^ P DATA INTRT1 INTERRUPT TABLE & f P INR A2,0,DWA5 INR & P OTR A2,1,DWA5 OTR & P CIO A2,1,DWA5 CIO-START & " P DATA 0 RETRANSMISSION COUNTER & P DAT
0x13aef4…13b088 Dummy {f00=0x0022, f01=0x0190, f02=»ATA 0 BLOCK ERROR ACKUMULATOR & , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ' & ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ' V P* ' P XIF ' P* ' P DATA 0 TIMER POINTER ' P DATA /7255 SYNC-CHARACTER ' 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMI
0x13b088…13b21c Dummy {f00=0x0022, f01=0x0190, f02=»INAL 2 ' t , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) ( $ P DATA 0 BLOCK SENDING INDICATOR ( > P EJECT ( f $ P******************************** ( t $ P* C W T R T 3 * ( $ P******************************** ( P* ( : P* CHANNEL UNIT
0x13b21c…13b3b0 Dummy {f00=0x0022, f01=0x0190, f02=» ( P* ) PDWA6 EQU /11 DEVICE ADDRESS ) P* ) 6 P DATA 0 LAST OUTPUT DWT ) @ P DATA 0 LAST OUTPUT WORD ) ` P DATA INTRT2 INTERRUPT TABLE ) P INR A2,0,DWA6 INR ) P OTR A2,0,DWA6 OTR ) P CIO A2,1,DWA6 CIO-START ) " P DATA 0 RETRANSM
0x13b3b0…13b544 Dummy {f00=0x0022, f01=0x0190, f02=»LATOR ) ~ $ P DATA 0 BLOCK ERROR ACKUMULATOR * , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR * 6 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR * f P* * P XIF * P IFT RECHAN=3 * PDWA6 EQU /11 DEVICE ADDRESS * P* * P DATA 0 LAST OUTPUT DWT *
0x13b544…13b6d8 Dummy {f00=0x0022, f01=0x0190, f02=»A6 CIO-START * " P DATA 0 RETRANSMISSION COUNTER + P DATA 0 QUEUE TERMINAL 1 + : P DATA 0 QUEUE TERMINAL 2 + Z P* + z P IFT ACKMUL=1 + P DATA 0 NAK-ACKUMULATOR + $ P DATA 0 BLOCK ERROR ACKUMULATOR + , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATO
0x13b6d8…13b86c Dummy {f00=0x0022, f01=0x0190, f02=» + P DATA 0 LAST OUTPUT DWT , P DATA 0 LAST OUTPUT WORD , ( P DATA INTRT2 INTERRUPT TABLE , H P INR A2,0,DWA6 INR , l P OTR A2,0,DWA6 OTR , P CIO A2,1,DWA6 CIO-START , " P DATA 0 RETRANSMISSION COUNTER , P DATA 0 QUEUE TERMINAL 1 , P D
0x13b86c…13ba00 Dummy {f00=0x0022, f01=0x0190, f02=»ATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR - . P* - Z P XIF - d P IFT RECHAN=2 - p 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
0x13ba00…13bb94 (2, 234) Dummy {f00=0x0033, f01=0x0190, f02=»L STATUS WORD (LOOP-TESTS) - $ P DATA 0 BLOCK SENDING INDICATOR . " P XIF . J P IFT RECHAN=3 . V P DATA 0 TIMER POINTER . l P DATA /7055 SYNC-CHARACTER . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINA
0x13bb94…13bd28 Dummy {f00=0x0033, f01=0x0190, f02=» . h $ P DATA 0 BLOCK SENDING INDICATOR / P XIF / 0 P IFT RECHAN=4 / < P DATA 0 TIMER POINTER / R P DATA /7055 SYNC-CHARACTER / p 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 / 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 / & P DATA 0 LRC-AC
0x13bd28…13bebc Dummy {f00=0x0033, f01=0x0190, f02=»ING INDICATOR / ~ P XIF 0 P EJECT 0 " $ P******************************** 0 0 $ P* C W T R T 4 * 0 X $ P******************************** 0 P* 0 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 0 " P* CONNECTED TO SECOND
0x13bebc…13c050 Dummy {f00=0x0033, f01=0x0190, f02=» P DATA INTRT2 INTERRUPT TABLE 1 P INR A2,0,DWA6 INR 1 ( P OTR A2,1,DWA6 OTR 1 B P CIO A2,1,DWA6 CIO-START 1 " P DATA 0 RETRANSMISSION COUNTER 1 | P DATA 0 QUEUE TERMINAL 1 1 P DATA 0 QUEUE TERMINAL 2 1 P* 1 P IFT ACKMUL=1 1 P DATA
0x13c050…13c1e4 Dummy {f00=0x0033, f01=0x018e, f02=»T ACKUMULATOR 1 z P XIF 2 P IFT RECHAN=3 2 " P DATA 0 LAST OUTPUT DWT 2 8 P DATA 0 LAST OUTPUT WORD 2 X P DATA INTRT2 INTERRUPT TABLE 2 x P INR A2,0,DWA6 INR 2 P OTR A2,1,DWA6 OTR 2 P CIO A2,1,DWA6 CIO-START 2 " P DATA 0 RETRANSMISSION C
0x13c1e4…13c378 Dummy {f00=0x0033, f01=0x0190, f02=» 2 v $ P DATA 0 BLOCK ERROR ACKUMULATOR 3 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 3 0 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 3 ` P XIF 3 P IFT RECHAN=4 3 P DATA 0 LAST OUTPUT DWT 3 P DATA 0 LAST OUTPUT WORD 3 P DATA INTRT2 INTERRUPT TAB
0x13c378…13c50c Dummy {f00=0x0033, f01=0x0190, f02=»A 0 QUEUE TERMINAL 1 3 P DATA 0 QUEUE TERMINAL 2 4 P* 4 < P IFT ACKMUL=1 4 F P DATA 0 NAK-ACKUMULATOR 4 $ P DATA 0 BLOCK ERROR ACKUMULATOR 4 | , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 4 P XIF 4
0x13c50c…13c6a0 Dummy {f00=0x0033, f01=0x0190, f02=»MINAL 1 4 l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 5 D & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 5 n , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 5 $ P DATA 0 BLOCK SENDING INDICATOR 5 P* 5 P XIF 5 P*
0x13c6a0…13c834 (2, 235) Dummy {f00=0x0037, f01=0x0190, f02=»1 5 f 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 > & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 h , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 6 $ P DATA 0 BLOCK SENDING INDICATOR 6 P* 6 P XIF 6 P* 6
0x13c834…13c9c8 Dummy {f00=0x0037, f01=0x0190, f02=» 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 7 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 7 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 7 b , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 7 $ P DATA 0 BLOCK SENDING INDICATOR 7 P* 7 P XIF 7 P* 7 P EJE
0x13c9c8…13cb5c Dummy {f00=0x0037, f01=0x0190, f02=» : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 8 P* CONNECTED TO THIRD CHRT 8 B P 8 f P* 8 n PCWTRT5 EQU * 8 x P* 8 P IFT RECHAN=3 8 P* 8 PDWA7 EQU /21 DEVICE ADDRESS 8 P* 8 P DATA 0 LAST OUTPUT DWT 8 P DAT
0x13cb5c…13ccf0 Dummy {f00=0x0037, f01=0x0190, f02=»TART 8 | " P DATA 0 RETRANSMISSION COUNTER 9 P DATA 0 QUEUE TERMINAL 1 9 2 P DATA 0 QUEUE TERMINAL 2 9 R P* 9 r P IFT ACKMUL=1 9 | P DATA 0 NAK-ACKUMULATOR 9 $ P DATA 0 BLOCK ERROR ACKUMULATOR 9 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 9 (
0x13ccf0…13ce84 Dummy {f00=0x0037, f01=0x0190, f02=»* 9 P DATA 0 LAST OUTPUT DWT : P DATA 0 LAST OUTPUT WORD : * P DATA INTRT3 INTERRUPT TABLE : J P INR A2,0,DWA7 INR : n P OTR A2,0,DWA7 OTR : P CIO A2,1,DWA7 CIO-START : " P DATA 0 RETRANSMISSION COUNTER : P DATA 0 QUEUE TERMINAL 1 : P
0x13ce84…13d018 Dummy {f00=0x0037, f01=0x0190, f02=» DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR : ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ; 0 P* ; P XIF ; f P IFT RECHAN=3 ; r 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
0x13d018…13d1ac Dummy {f00=0x0037, f01=0x0190, f02=»NEL STATUS WORD (LOOP-TESTS) ; $ P DATA 0 BLOCK SENDING INDICATOR < $ P XIF < L P IFT RECHAN=4 < X P DATA 0 TIMER POINTER < n P DATA /7055 SYNC-CHARACTER < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMI
0x13d1ac…13d340 Dummy {f00=0x0037, f01=0x0190, f02=»S) < j $ P DATA 0 BLOCK SENDING INDICATOR = P XIF = 2 P EJECT = > $ P******************************** = L $ P* C W T R T 6 * = t $ P******************************** = P* = : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 =
0x13d340…13d4d4 (2, 236) Dummy {f00=0x0038, f01=0x0190, f02=»ATA 0 LAST OUTPUT WORD = P DATA INTRT3 INTERRUPT TABLE > P INR A2,0,DWA7 INR > B P OTR A2,1,DWA7 OTR > P CIO A2,1,DWA7 CIO-START > v " P DATA 0 RETRANSMISSION COUNTER > P DATA 0 QUEUE TERMINAL 1 > P DATA 0 QUEUE TERMINAL 2 > P* > P I
0x13d4d4…13d668 Dummy {f00=0x0038, f01=0x0190, f02=» ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ? P XIF ? 0 P IFT RECHAN=4 ? < P DATA 0 LAST OUTPUT DWT ? R P DATA 0 LAST OUTPUT WORD ? r P DATA INTRT3 INTERRUPT TABLE ? P INR A2,0,DWA7 INR ? P OTR A2,1,DWA7 OTR ? P CIO A2,1,DWA7 CIO-START ? "
0x13d668…13d7fc Dummy {f00=0x0038, f01=0x0190, f02=» DATA 0 NAK-ACKUMULATOR ? $ P DATA 0 BLOCK ERROR ACKUMULATOR @ , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR @ H ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR @ x P XIF @ P* @ P IFT RECHAN=3 @ P DATA 0 TIMER POINTER @ P DATA /7255 SYNC-CHARACTER
0x13d7fc…13d990 Dummy {f00=0x0038, f01=0x0190, f02=»TERMINAL 1 @ x & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 A , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) A < $ P DATA 0 BLOCK SENDING INDICATOR A l P* A P XIF A P* A P IFT RECHAN=4 A P* A P DATA 0 TIMER POINTER A P DATA /7255 SYNC-CHARA
0x13d990…13db24 Dummy {f00=0x0038, f01=0x0190, f02=»TOR TERMINAL 1 A | & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 B , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) B @ $ P DATA 0 BLOCK SENDING INDICATOR B p P* B P XIF B P* B P EJECT B $ P******************************** B $ P* C W T R T 7
0x13db24…13dcb8 Dummy {f00=0x0038, f01=0x0190, f02=»CTED TO FOURTH CHRT B P* C PCWTRT7 EQU * C & P* C : P IFT RECHAN=4 C D P* C Z PDWA8 EQU /31 DEVICE ADDRESS C d P* C P DATA 0 LAST OUTPUT DWT C P DATA 0 LAST OUTPUT WORD C P DATA INTRT4 INTERRUPT TABLE C P INR A2,0,DWA8 INR
0x13dcb8…13de4c Dummy {f00=0x0038, f01=0x0190, f02=» DATA 0 QUEUE TERMINAL 2 C P* D P IFT ACKMUL=1 D * P DATA 0 NAK-ACKUMULATOR D @ $ P DATA 0 BLOCK ERROR ACKUMULATOR D ` , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR D ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR D P* D P XIF D P IFT RECHAN=4
0x13de4c…13dfe0 Dummy {f00=0x0038, f01=0x0190, f02=»OF GOING LRC-PROCESS TERMINAL 2 D & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 E ( & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 E R , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) E | $ P DATA 0 BLOCK SENDING INDICATOR E P XIF E P EJECT E $ P**************************
0x13dfe0…13e174 (2, 237) Dummy {f00=0x003a, f01=0x0190, f02=» REMOTE CHANNEL NO. 2 E p " P* CONNECTED TO FOURTH CHRT F P* F D PCWTRT8 EQU * F N P* F b P IFT RECHAN=4 F l P DATA 0 LAST OUTPUT DWT F P DATA 0 LAST OUTPUT WORD F P DATA INTRT4 INTERRUPT TABLE F P INR A2,0,DWA8 INR F P OTR A2,
0x13e174…13e308 Dummy {f00=0x003a, f01=0x0190, f02=»RMINAL 2 F P* G P IFT ACKMUL=1 G P DATA 0 NAK-ACKUMULATOR G 0 $ P DATA 0 BLOCK ERROR ACKUMULATOR G P , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR G x ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR G P XIF G P IFT RECHAN=4 G P* G P DATA 0
0x13e308…13e49c Dummy {f00=0x003a, f01=0x0190, f02=»CESS TERMINAL 2 G t & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 H & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 H B , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) H l $ P DATA 0 BLOCK SENDING INDICATOR H P* H P XIF H P* H P EJECT H 6 P**********************
0x13e49c…13e630 Dummy {f00=0x003a, f01=0x0190, f02=»******* H f P* I 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK I 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE I T P* TERMINALS. I P* I P* I P* I PCHTAB EQU * I P DATA CHTABE-* TABLE LENGTH I P IFT LOCHAN=
0x13e630…13e7c4 Dummy {f00=0x003a, f01=0x0190, f02=» I P DATA CWTLT2 J P DATA 0 J P DATA 0 J , P XIF J < P* J H P IFT LOCHAN=3 J R P DATA CWTLT1 J h P DATA CWTLT2 J | P DATA CWTLT3 J P DATA 0 J P XIF J P IFT LOCHAN=4 J P DATA CWTLT1 J P DATA CWTLT2 J P DATA CWTL
0x13e7c4…13e958 Dummy {f00=0x003a, f01=0x018e, f02=» J P DATA CWTRT4 K P DATA CWTRT5 K P DATA CWTRT6 K 0 P* K D P XIF K N P* K Z P IFT RECHAN=2 K d P DATA CWTRT3 K z P DATA CWTRT4 K P XIF K P* K P IFT RECHAN=4 K P DATA CWTRT3 K P DATA CWTRT4 K P DATA CWTRT5 K
0x13e958…13eaec Dummy {f00=0x003a, f01=0x0190, f02=» K P* L P* L ( P************************************ L ( P* D W R E M U * L H ( P************************************ L t P* L . P* DUMMY TABLE USED WHEN LOOP-TESTING OF L $ P* REMOTE CHANNELS ARE NEEDED. L P* L
0x13eaec…13ec80 Dummy {f00=0x003a, f01=0x0190, f02=»0,0,0 L P EJECT M P* M P* M & * P* L O O P - T E S T S E C T I O N M 0 P* M ^ P* M h 2 P* ORDER /00: TEST REMOTE CHANNEL CONNECTION M r P* M : P* CHANNEL TO TEST IS GIVEN IN CONTROL WORD OF ECB. M 6 P* THE REQUEST IS COMP
0x13ec80…13ee14 (2, 238) Dummy {f00=0x005b, f01=0x0190, f02=» M P* N . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT N P* N D 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUTPUT N N PAREM DATA LOPTST N " P DATA 0 ABORT ROUTINE ADDRESS N " P DATA IHLOP INTERRUPT HANDLER N PLOPTST EQU * N $ P LD A2,10,A8 G
0x13ee14…13efa8 Dummy {f00=0x005b, f01=0x0190, f02=» SLL A2,1 N & P LD A2,CHTAB+8,A2 GET CWT-ADDRESS O P RF(E) DISIIE O < P LDR A7,A7 WRONG ORDER ? O R P RF(E) LOPT10 NO O r ( PDISIIE ABL DISIOE I/O REQUEST ERROR O PLOPT10 EQU * O , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS O P LDR A5,A2 CWT
0x13efa8…13f13c Dummy {f00=0x005b, f01=0x0190, f02=»RST,A2 INDICATE LOOP-TESTING O P ABL TDISP P $ P EJECT P 6 P* P D P* P N P* END OF LOOP-TEST P X P* P v PIHLOP EQU * P P LDR A5,A1 GET CWT-ADDRESS P , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS P P ANK A1,3 P P XRK A1,3 P
0x13f13c…13f2d0 Dummy {f00=0x005b, f01=0x0190, f02=»* P P* Q P* C H L T 1 / C H L T 2 Q P* Q 6 P* C H R T 1 / C H R T 2 Q @ P* Q b 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT Q l P* Q 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS Q 2 P* DRIVER FIRST RELATES INTERR
0x13f2d0…13f464 Dummy {f00=0x005b, f01=0x0190, f02=»ICE NUMBER , LINE NUMBER AND TYPE OF Q P* INTERRUPT. R , P* R D 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT R N P* R . P* D = DEVICE ADDRESS C = CHARACTER R P* R 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 R 8 P*
0x13f464…13f5f8 Dummy {f00=0x005b, f01=0x018e, f02=»ER ON D = 0 C = 3 R ~ 8 P* DRI DATA REQUEST IMMEDIATE SIGN BIT SET S * 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 S f 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A S 8 P* ABC-V VRC ERROR IN BLOCK D
0x13f5f8…13f78c Dummy {f00=0x005b, f01=0x0190, f02=» F P* LOCAL CHAR. MAY BE DIFFERENT FROM ZERO T 8 P* STD STATUS MESSAGE D # 0 C # 0 T N 2 P* DIN DATA INPUT D # 0 T P EJECT T P* T P* C H L T 1 T P* T P* INTERRUPT F
0x13f78c…13f920 Dummy {f00=0x005b, f01=0x0190, f02=»5,SAVE8 SAVE A1-A8 ON STACK T P XIF U $ P* U 0 P IFT CPU852=0 U : " P MSR 8,A15 SAVE A1-A8 ON STACK U P P XIF U v P* U P LDK A7,2 INDICATE CHLT1 U P RF CLT010 U P* U PCHLT2 EQU * U P* U P* U P* U P* U P*
0x13f920…13fab4 (2, 239) Dummy {f00=0x005c, f01=0x0190, f02=» U P IFT CPU852=1 V & P CF A15,SAVE8 SAVE A1-A8 ON STACK V P XIF V H P* V T P IFT LOCHAN=2 V ^ P IFT CPU852=0 V t " P MSR 8,A15 SAVE A1-A8 ON STACK V P XIF V P* V P IFT LOCHAN=2 V P LDK A7,4 INDICATE CHLT2 V P RF CLT010 V
0x13fab4…13fc48 Dummy {f00=0x005c, f01=0x0190, f02=»A15,SAVE8 SAVE A1-A8 ON STACK V P XIF W & P* W 2 P IFT LOCHAN=3 W < P IFT CPU852=0 W R " P MSR 8,A15 SAVE A1-A8 ON STACK W h P XIF W P* W P IFT LOCHAN=3 W P LDK A7,4 INDICATE CHLT2 W P RF CLT010 W P* W P XIF W P* W
0x13fc48…13fddc Dummy {f00=0x005c, f01=0x0190, f02=» P XIF X P* X P IFT LOCHAN=4 X P IFT CPU852=0 X 0 " P MSR 8,A15 SAVE A1-A8 ON STACK X F P XIF X l P* X x P IFT LOCHAN=4 X P LDK A7,4 INDICATE CHLT2 X P RF CLT010 X P* X P XIF X P* X PCHLT3 EQU * X P* X P
0x13fddc…13ff70 Dummy {f00=0x005c, f01=0x0190, f02=»LAST INTERRUPT X ~ P* Y P IFT CPU852=1 Y & P CF A15,SAVE8 SAVE A1-A8 ON STACK Y 6 P XIF Y ` P* Y l P IFT LOCHAN=4 Y v P IFT CPU852=0 Y " P MSR 8,A15 SAVE A1-A8 ON STACK Y P XIF Y P* Y P IFT LOCHAN=4 Y P LDK A7,6 INDICATE C
0x13ff70…140104 Dummy {f00=0x005c, f01=0x0190, f02=»FT CPU852=1 Y & P CF A15,SAVE8 SAVE A1-A8 ON STACK Z P XIF Z > P* Z J P IFT LOCHAN=3 Z T P IFT CPU852=0 Z j " P MSR 8,A15 SAVE A1-A8 ON STACK Z P XIF Z P* Z P IFT LOCHAN=3 Z P LDK A7,6 INDICATE CHLT3 Z P RF CLT010 Z P* Z
0x140104…140298 Dummy {f00=0x005c, f01=0x0190, f02=» Z v P* [ P IFT LOCHAN=4 [ $ P ST P,INTSAV SAVE LAST INTERRUPT [ ( P* [ P P IFT CPU852=1 [ Z & P CF A15,SAVE8 SAVE A1-A8 ON STACK [ p P XIF [ P* [ P IFT LOCHAN=4 [ P IFT CPU852=0 [ " P MSR 8,A15 SAVE A1-A8 ON STACK [ P XIF [
0x140298…14042c Dummy {f00=0x005c, f01=0x0190, f02=» [ P* P* C H R T 1 P* INTERRUPT FROM CHRT1 ( P* J PCHRT1 EQU * T P ST P,INTSAV h P* | P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8
0x14042c…1405c0 Dummy {f00=0x005c, f01=0x0190, f02=» INTERRUPT FROM CHRT2 P* ] PCHRT2 EQU * ] ( P IFT RECHAN=2 ] < $ P ST P,INTSAV SAVE LAST INTERRUPT ] R P* ] z P IFT CPU852=1 ] & P CF A15,SAVE8 SAVE A1-A8 ON STACK ] P XIF ] P* ] P IFT RECHAN=2 ] P IFT CPU852=0 ] " P M
0x1405c0…140754 (2, 240) Dummy {f00=0x0065, f01=0x0190, f02=» ] P* ^ P IFT RECHAN=3 ^ & P ST P,INTSAV STORE LAST INTERRUPT ^ ( P* ^ R P IFT CPU852=1 ^ & P CF A15,SAVE8 SAVE A1-A8 ON STACK ^ r P XIF ^ P* ^ P IFT RECHAN=3 ^ P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK ^ P XIF
0x140754…1408e8 Dummy {f00=0x0065, f01=0x0190, f02=» ST P,INTSAV SAVE LAST INTERRUPT ^ P* _ ( P IFT CPU852=1 _ 2 & P CF A15,SAVE8 SAVE A1-A8 ON STACK _ H P XIF _ r P* _ ~ P IFT RECHAN=4 _ P IFT CPU852=0 _ " P MSR 8,A15 SAVE A1-A8 ON STACK _ P XIF _ P* _ P IFT RECHAN=4 _ P L
0x1408e8…140a7c Dummy {f00=0x0065, f01=0x0190, f02=»RT3 _ z P* ` PCHRT3 EQU * ` P IFT RECHAN=3 ` * $ P ST P,INTSAV SAVE LAST INTERRUPT ` @ P* ` h P IFT CPU852=1 ` r & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` P XIF ` P* ` P IFT RECHAN=3 ` P IFT CPU852=0 ` " P MSR 8,A15 SAVE A1-A
0x140a7c…140c10 Dummy {f00=0x0065, f01=0x0190, f02=» IFT RECHAN=4 ` $ P ST P,INTSAV SAVE LAST INTERRUPT a P* a > P IFT CPU852=1 a H & P CF A15,SAVE8 SAVE A1-A8 ON STACK a ^ P XIF a P* a P IFT RECHAN=4 a P IFT CPU852=0 a " P MSR 8,A15 SAVE A1-A8 ON STACK a P XIF a P* a P I
0x140c10…140da4 Dummy {f00=0x0065, f01=0x0190, f02=»* INTERRUPT FROM CHRT4 a P* b " PCHRT4 EQU * b , P IFT RECHAN=4 b @ $ P ST P,INTSAV SAVE LAST INTERRUPT b V P* b ~ P IFT CPU852=1 b & P CF A15,SAVE8 SAVE A1-A8 ON STACK b P XIF b P* b P IFT RECHAN=4 b P IFT CPU852=0 b "
0x140da4…140f38 Dummy {f00=0x0065, f01=0x0190, f02=» * PCLT010 LD A5,CHTAB,A7 GET CWT-ADDRESS c P* c 2 P XIF c < P* c H * P EX CWTINR,A5 EXECUTE INR-INSTRUCTION c R 4 P ABL(NA) TDISP WAIT FOR ACCEPTED INT (8000) =13 c P* c P IFT LOGING=1 c P* c 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CH
0x140f38…1410cc Dummy {f00=0x0065, f01=0x0190, f02=»THE RIGHT CHANNEL c r 2 P* OF CHRT AND START OR RESTART SYNC-TIMER. d P* d P P SUK A7,10 d Z " P RF(N) CLT018 LOCAL INTERRUPT d l P LDR A3,A2 d . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? d P RF(NN) CLT015 FIRST d > P LD A5,CHTAB+12,A7 GET
0x1410cc…141260 Dummy {f00=0x0065, f01=0x0190, f02=»? d l P LDR A7,A5 e P ADR A7,A3 e & P LD A3,CWTRST,A5 LOOP TEST MODE ? e . P ABL(N) CLT170 YES e X & PCLT018 LDK A1,0 RESET RETURN CODE e r ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? e P ABL(N) CLT050 =10 e $ P ANKL A3,/7000 DEVICE ADDRESS ? e
0x141260…1413f4 (2, 241) Dummy {f00=0x0067, f01=0x0190, f02=» P LDR A3,A2 f . P ANK A3,/FF DELETE DEVICE AND LINE NUMBER f P RF(E) CLT030 OER f H P SUK A3,7 f b P ABL(E) CLT050 U =13 f t P ADK A3,2 f P ABL(E) CLT080 NAK f P ADK A3,2 f P ABL(E) CLT100 POWER ON f P LDR A7,A7 LOCAL ? f P
0x1413f4…141588 Dummy {f00=0x0067, f01=0x0190, f02=» A4,/80 YES, RESET BIT f P SC A4,LRCACK,A7 AND STORE g " P LD A6,LRCDWT,A7 LRC-DEVICE ? g @ P RF(E) EXIIT g f P ANK A4,/7F g z P RF(Z) CLT046 YES g * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER g ( P LDK A4,1 RESET BLOCKSENDING RUNNING g P ANS A
0x141588…14171c Dummy {f00=0x0067, f01=0x0190, f02=» DRIVER g v P IFT ACKMUL=1 h P* h & , P IM CWTADD+2,A5 UPDATE ERROR ACKUMULATOR h 0 P XIF h ` P* h l P SUK A3,4 VRC-ERROR ? h v P RF(E) CLT042 YES h P LDK A4,1 h P SUK A3,2 h P RF(E) CLT033 h P ADK A3,4 h P RF(E) CLT033
0x14171c…1418b0 Dummy {f00=0x0067, f01=0x0190, f02=» RETURN CODE NOT OPERABLE IS SENT TO h P* DEVICE DRIVER. i . PCLT030 LDR A7,A7 REMOTE ? i J P RF(N) CLTQUE NO i l P LD A6,LRCDWT,A7 i P SUR* A6,A5 LRC-DEVICE ? i P RF(NE) CLTQUE i * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER i P LDK A4,
0x1418b0…141a44 Dummy {f00=0x0067, f01=0x0190, f02=» BYTE OF STATUS WORD i r P LDR A3,A2 j & P ANK A2,/30 ECHO AND RECOVERY BIT j . P RF(NE) CLT045 j X , P ORK A3,/10 INDICATE RECOVERY TRIAL DONE j n P SC A3,DWTST,A6 STORE j PCLT032 LDK A4,0 j 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE j P
0x141a44…141bd8 Dummy {f00=0x0067, f01=0x0190, f02=»AS FOR THE OTHER j l P* ERRORS OF TYPE ABC-. k 4 P* IF OUTPUT TO PRINTERS WITH LRC-CONTROL SAME k : P* PROCEDURE AS FOR ABC+. k r P* k & PCLT042 LDR* A4,A6 BLOCK SENDING ? k P RB(N) CLT031 k PCLT043 ABL CLT107 k P EJECT k P
0x141bd8…141d6c Dummy {f00=0x0067, f01=0x0190, f02=»CCUPYING CHANNEL UNIT k n P* OR THOSE IN ECHO MODE. l P* l B & P* ON EXIT TO RECOVERY ROUTINE: l L P* l v P* A5 = STACKBASE l P* A6 = DWT-ADDRESS l P* l PCHPOWO EQU * l , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE l . P
0x141d6c…141f00 Dummy {f00=0x0067, f01=0x0190, f02=»NTER l n P LDK A7,1 m 0 P ANS A7,CWTBLK,A5 RESET BLOCKSENDING RUNNING m $ PCPO010 LDR A3,A6 DEVICE COUNTER m R P ANK A3,/FF m z " P LDR A1,A8 SET ADDRESS POINTER m PCPO020 ADK A1,2 m P LDR* A6,A1 GET DWT-ADDRESS m P RF(E) CPO030 m P S
0x141f00…142094 (2, 242) Dummy {f00=0x0067, f01=0x0190, f02=»NE) CPO025 YES m & P LDKL A7,/EFFF RESET RECOVERY BIT n P ANS A7,DWTST,A6 n @ P LC A7,DWTST,A6 n X P ANK A7,/20 ECHO MODE ? n p P RF(NE) CPO030 YES n 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER n P RF(E) CPO030 YES n : PCPO025 LD A7,DWT
0x142094…142228 Dummy {f00=0x0067, f01=0x0190, f02=»WTSB2 STACK BASE n P ADR A5,A6 o P INH o * & P CFR A15,A7 GO TO RECOVERY ROUTINE o 6 * PCPO030 SUK A3,2 ALL DEVICES THREATED? o ` P RB(NE) CPO020 NO TAKE NEXT o PEXIIT RF EXIT o P EJECT o P* o 6 P* INDICATE NOT OPERABLE BEFORE GOING
0x142228…1423bc Dummy {f00=0x0067, f01=0x0190, f02=» o z 2 P LDKL A1,/EEFF NO, RESET INT ALL AND RECOV =10 p P RF CLT048 =10 p > 6 PCLT047 LDKL A1,/EFFF YES, RESET ONLY RECOV BIT =10 p V PCLT048 ANS A1,DWTST,A6 =10 p ( P LDK A1,NOERR INDICATE NOT OPERABLE p * P ABL CLT107 RESET TIMER AND FINISH =10 p
0x1423bc…142550 Dummy {f00=0x0067, f01=0x0190, f02=»E LAST p h 0 P* OUTPUT DWT. IF NOT DEFINED UPDATE ERROR q 6 P* ACKUMULATOR AND GO TO DISPATCHER. IF SYNC-ACK q B P* DROP IT. q | 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF q 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF DATA q <
0x142550…1426e4 Dummy {f00=0x0067, f01=0x0190, f02=»ANDLING ANSWERS FROM DEVICE IS AFFECTED AND THEN q > P* IF DRI A BRANCH IS MADE TO THE DATA REQUEST SECTION. r 8 * P* IF ACK WE HAVE TO WAIT FOR A DRD. r z PCLT050 EQU * r & P LC A3,CWTLOW,A5 LAST OUTPUT WORD r " P ANK A3,/F0 KEEP DEVICE NUMBER r
0x1426e4…142878 Dummy {f00=0x0067, f01=0x0190, f02=»E ? =10 r P RF(N) CLT052 N0 =10 s P LDK A4,2 s , 4 P ORS A4,CWTRST,A5 INDICATE ACK IN CHANNEL STATUS s > P LDR A8,A3 OBC-ACK ? s v P RF(NE) CLT052 s P LDKL A3,/8000 s * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED s P RF CLT055 s PCLT052 EQU
0x142878…142a0c Dummy {f00=0x0067, f01=0x0190, f02=» s P* t P* t P* PRINTER TIMING t P* t 8 PCLT055 EQU * t B P INH t V * P LD A3,DWTTP,A6 ADDRESS TO TIMER BLOCK t b P RF(E) CLT060 t P* t P* RESTART TIMER t P* t " P LDKL A3,-DRQTIM RESTART TIMER t P ST* A3,DWTTP,
0x142a0c…142ba0 Dummy {f00=0x0067, f01=0x0190, f02=»IMER POINTER t P ADR A4,A6 ADD DWT-ADDRESS u " P CF A15,SETIMP GET TIMER BLOCK u 6 > P DATA DRQTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY u PCLT068 EQU * u P LDR A8,A8 OBC-ACK ? u P RF(E) EXIT YES u P LDK A1,0 u & P LDR* A4,A6 GET
0x142ba0…142d34 (2, 243) Dummy {f00=0x0082, f01=0x0190, f02=»ES =11 u " PEXIT ABL TDISP DISPATCHER EXIT v P EJECT v 4 P* v B 8 P* TIME-OUT ROUTINE HANDLING MISSING DATA REQUESTS v L : P* FROM PRINTERS AND , FOR REMOTLY CONNECTED DEVICES v 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL v . P* C
0x142d34…142ec8 Dummy {f00=0x0082, f01=0x0190, f02=»O TIMER BLOCK v t P LD A3,DWTST,A6 w P RB(N) EXIT w . P SLL A3,2 ECHO MODE ? w B P RF(N) CLT110 YES w ` " P LDR* A5,A6 CHANNEL PARAMETER w z P ANK A5,/F w P SLL A5,1 2 * INDEX w P LDK A2,/83 w P CC A2,DWTOCH,A6 w P RF(NE) DRQT10
0x142ec8…14305c Dummy {f00=0x0082, f01=0x0190, f02=» ACKMUL=1 w P* x & P LD A5,CHTAB+2,A5 GET CWT-ADDRESS x ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR x F P* x r P XIF x | P* x $ P LD A7,DWTOR,A6 TEST ORDER ? =1 x P ANK A7,/FE U =9(=1) x 2 P RB(E) CLT045 YES, GO TO DEV. INT. HANDLER =1 x
0x14305c…1431f0 Dummy {f00=0x0082, f01=0x0190, f02=» PDRQT20 EQU * U =12 y 0 P ABL CLT033 EXECUTE DEVICE RECOVERY =12(=1) y P EJECT y R P* y ` P* N A K y j P* y | 8 P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS y 8 P* UPDATED. LAST OUTPUT CHARACTER IS RETRANSMITTED y < P* BY CH
0x1431f0…143384 Dummy {f00=0x0082, f01=0x0190, f02=»QU * y $ P LDR* A6,A5 GET LAST OUTPUT DWT z P RB(E) EXIT z 4 P* z H P IFT ACKMUL=1 z R P* z h * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR z r P* z P XIF z P* z P CWK A6,1 SYNC BEFORE NAK? z P RB(E) EXIT YES z 2 P IM CWTRTC,A5
0x143384…143518 Dummy {f00=0x0082, f01=0x0190, f02=»,CWTLOW,A5 GET LAST OUTPUT WORD z $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. { ( P IFT LOGING=1 { P 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** { f P XIF { P STR A6,A5 SET CHANEL BUSY { , P ST A2,CWTLOW,A5 STORE LAST OUTPUT WORD { P LDR A7,A7 REM
0x143518…1436ac Dummy {f00=0x0082, f01=0x0190, f02=»SYNC-TIMER { p PCLT090 ABL TDISP | P EJECT | * P* | 8 P* | B $ P* DATA INPUT AND DATA REQUEST | L P* | t 6 P* LOCAL DEVICES: GET DWT-ADDRESS, GET ORDER AND | ~ : P* ECB-ADDRESS AND GO TO DEVICE-DEPENDENT INTERRUPT | P* HANDLER. |
0x1436ac…143840 Dummy {f00=0x0082, f01=0x0190, f02=» INPUT WORD IS COMPLEMENTED WITH | ~ 8 P* STATUS FROM CHANNEL PARAMETER. } , : P* STATUS MESSAGE: NEW STATUS IS STORED IN CHANNEL } h @ P* PARAMETER. THEN WAIT-STATUS-INDICATOR } < P* IS CHECK
0x143840…1439d4 (2, 244) Dummy {f00=0x0084, f01=0x0190, f02=»B-ADDRESS AND GO TO } j < P* DEVICE WITH THE NEW STATUS. IF NO ~ > P* WAITING FOR STATUS, CONTROL IS GIVEN ~ ( P* TO DISPATCHER. ~ P* ~ P* ~ PCLT100 EQU * ~ P LDR A3,A2 ~ P SRL
0x1439d4…143b68 Dummy {f00=0x0084, f01=0x018e, f02=»INPUT ? ~ P RF(E) CLT150 YES P LOOP SWITCH SET * 0 P LD* A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE D P RB(Z) EXIT =7 x P ADR A8,A3 , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION P RB(Z) EXIT NOT DEFINED P LDR* A6,A8 GET ID-WOR
0x143b68…143cfc Dummy {f00=0x0084, f01=0x0190, f02=» & P ADR A8,A4 ADDRESS TO DWT-ADDRESS P LDR* A6,A8 GET DWT-ADDRESS . P RB(E) EXIT R P ANKL A6,/FFFE f 2 P LCR A3,A6 GET FIRST BYTE IN CHANNEL PARAMETER | P ANK A3,1 DATA INPUT ? P RF(NE) CLT110 YES & P LDR* A4,A6 GET CHANNEL PARAME
0x143cfc…143e90 Dummy {f00=0x0084, f01=0x0190, f02=» SUK A3,DUMMSP P RF(NE) CLT110 . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST =9 , 4 P RF(N) CLT110 YES, DO NOT TOUCH TIMER POINTER =9 ^ P* P************************* P* PCLT107 EQU * P INH & P LD A7,DWTTP,A6 GET TIMER PO
0x143e90…144024 Dummy {f00=0x0084, f01=0x0190, f02=»DWTTP,A6 PCLT110 LD A7,DWTOR,A6 ORDER P ANK A7,/FF 4 P LD A8,DWTECB,A6 ECB-ADDRESS H , P LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK l P ENB * P ABI INTADR,A3 GO TO INTERRUPT HANDLER P* * PCLT120 LDR A7,A2 REMOTE DATA REQUEST ?
0x144024…1441b8 Dummy {f00=0x0084, f01=0x0190, f02=» P ANK A4,/C P ORR A2,A4 STATUS IN A2 P RB CLT105 6 PCLT130 EQU * H P LDR A3,A4 SAVE OLD STATUS P ANK A4,/3F RESET OLD STATUS ~ P SLL A2,4 P ANK A2,/C0 P ORR A4,A2 ( P SC A4,1,A6 STORE NEW STATUS IN DWT $ P L
0x1441b8…14434c Dummy {f00=0x0084, f01=0x018e, f02=» BIT z ( P XRR A3,A2 VOUCHER STATUS CHANGED ? P ANK A3,/80 8 P RF(E) CLT154 EG. EXIT L P ABL CLT033 j P EJECT ~ P* P* P* TFU IN LOOP MODE P* PCLT150 EQU * P LDK A4,1 P CWR* A4,A5 SYNC SENT ?
0x14434c…1444e0 Dummy {f00=0x0084, f01=0x0190, f02=» PCLT154 ABL EXIT P EJECT P* * P* LOOP MODE 4 P* J PCLT170 EQU * T P LDR A3,A2 h P ANK A3,/FF z P SUK A3,3 POWER ON ? P RF(E) CLT179 YES $ P LDR* A4,A5 GET LAST OUTPUT DWT P LDR* A6,A5 P SUK A4,
0x1444e0…144674 (2, 245) Dummy {f00=0x008a, f01=0x0190, f02=»3,4 ACK ? P RF(NE) EXITA NO $ P LDK A4,2 INDICATE ACK RECEIVED * P RB CLT152 R P EJECT d P* r P* POWER ON | P* PCLT179 EQU * P LDK A3,/E3 * P ANS A3,CWTRST,A5 RESET LOOP TEST BIT P RB CLT100 P EJE
0x144674…144808 Dummy {f00=0x008a, f01=0x0190, f02=»QUEUE AND SEND n P* IF SOMETHING THERE. 8 P* IF REMOTE DEVICE CHECK QUEUE OF CHANNEL'S OTHER 6 < P* TERMINAL AND SEND IF SOMETHING THERE. IF NOTHING I r < P* IN THAT QUEUE, CHECK QUEUE OF INTERRUPTING TERMINAL & P* AND SEND IF SOMET
0x144808…14499c Dummy {f00=0x008a, f01=0x0190, f02=»SION COUNTER r P CMR A5 SET CHANNEL FREE 0 PQUESEC EQU * SECOND ENTRY IN SUBROUTINE =13 4 $ P STR A2,A15 SAVE A2 ON STACK =13 h P LDK A1,0 P LDR A7,A7 LOCAL ? P RF(N) QUEU01 YES " P LDK A1,1 INDICATE FIRST TRIAL " P CWR A7,A5 R
0x14499c…144b30 Dummy {f00=0x008a, f01=0x0190, f02=»SS l PQUEU04 EQU * P LDR* A6,A8 QUEUE EMPTY ? P RF(E) QUEU10 YES @ P LDR A7,A7 =5 Z $ P RF(N) QUEU06 PREVENT HANG UP =5 p P LD A2,CWTBLK,A5 P LD A2,CWTBLK,A5 ( P RF(N) QUEU05 BLOCK SENDING RUNNING PQUEU06 EQU * =5
0x144b30…144cc4 Dummy {f00=0x008a, f01=0x0190, f02=»ER h P CF A15,OUTLIN SEND IT PQUEU05 LDR* A2,A15 RELOAD A2 ( 0 P CWR A6,A4 DEVICE ALREADY IN OUTPUT QUEUE ? L P RF(E) QUEU30 " P LDR A6,A4 GET LAST OUTPUT DWT & P RF(E) QUEU30 UNDEFINED INTERRUPT P CWK A6,1 SYNC ANSWER ? P R
0x144cc4…144e58 Dummy {f00=0x008a, f01=0x0190, f02=»WR A7,A5 TERMINAL 2 REMOTE ? P RB(E) QUEU01 NO $ & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE < P RB QUEU03 f PQUEU30 ADKL A15,4 x P RF EXITA P EJECT P* P* 0 P* RESTSY = SUBROUTINE TO START OR RESTART * P*
0x144e58…144fec Dummy {f00=0x008a, f01=0x0190, f02=»SY20 P LDR A1,A5 P LDK A4,CWTTP TIMER POINTER P ADR A4,A5 ADD CWT-ADDRESS B P CF A15,SETIMP SET TIMER d P DATA SYNCUT,TIME P RF RESY30 PRESY20 LDKL A4,-TIME " P ST* A4,CWTTP,A5 RESTART TIME PRESY30 LDR* A4,A15 REL
0x144fec…145180 Dummy {f00=0x008a, f01=0x0190, f02=» IF NOTHING HAPPENS ON A LINE IN 500 MS P* SYNC-CHARACTER IS SENT. 2 P* V PSYNCUT EQU * ` $ P CM CWTTP,A1 RESET TIMER POINTER t P LDR A5,A1 ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER ( P XRKL A2,/800 CHANGE TERMINAL NUMBER P S
0x145180…145314 (2, 246) Dummy {f00=0x008b, f01=0x0190, f02=»RESTSY RESTART SYNC TIMER =13 P RF EXITA U =13 & PSYNC04 EQU * U =13 > , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT X P* P IFT LOGING=1 P* * P CF A15,LOGG LOGG OF OUTPUT CHARACTER P XIF P* P LDR A3,A2 P
0x145314…1454a8 Dummy {f00=0x008b, f01=0x018e, f02=»OR j P LD A4,CWTRST,A1 LOOP MODE ? P LDR A3,A4 . P ANK A4,/80 @ P RF(E) EXITA NO T P ANK A3,/60 l P RF(E) SYNC20 THIRD SYNC P SUK A3,/20 P RF(NE) SYNC10 FIRST SYNC P LDK A3,/20 SECOND SYNC * PSYNC10 XRS A3,CWTR
0x1454a8…14563c Dummy {f00=0x008b, f01=0x0190, f02=» P* P* O U T P U T P* & < P* SEND ONE CHARACTER VIA 'OUTLIN' INDICATE INTERRUPTS 0 & P* ALLOWED AND SAVE A3-A5 IN DWT. p P* POUTPUT EQU * P ANK A2,/FF P LDR A1,A2 P SUK A1,/82 STX ? P RF(E) OUTP05
0x14563c…1457d0 Dummy {f00=0x008b, f01=0x0190, f02=»E10 NO < POUTP10 CF A15,OUTLIN SEND ONE CHARACTER VIA CHANNEL UNIT P EJECT N P* P* S T R E G f P* | : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT P* PSTREG EQU * P INH P LDKL A1,/100 0 P ORS
0x1457d0…145964 Dummy {f00=0x008b, f01=0x0190, f02=»WTA5,A6 A5 P RB EXITA P EJECT 2 P* @ P* L D R E G * J P* b > P* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN l & P* VIA A5. ELSE GO TO DISPATCHER. P* P* PLDREG EQU * P LD A3,D
0x145964…145af8 Dummy {f00=0x008b, f01=0x0190, f02=»* RESTORE S3-S5 FROM DWT AND RETURN TO USER VIA A5 PLDREGF EQU * < & P LD A5,DWTA5,A6 A5 P PLDREGE EQU * z & P LD A3,DWTA3,A6 RELOAD REGISTER A3 & P LD A4,DWTA4,A6 A4 $ PLDRE10 LD A7,DWTOR,A6 GET ORDER
0x145af8…145c8c Dummy {f00=0x008b, f01=0x0190, f02=» P* 8 P* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER P* J P* ON ENTRY: T P* j P* A3 = BUFFER INDEX t P* A8 = ECB-ADDRESS P* P* ON EXIT: P* P* A2 = CHARACTER * P* A1 = 0 IF LAS
0x145c8c…145e20 Dummy {f00=0x008b, f01=0x0190, f02=»GETCHR EQU * P LD A1,4,A8 REQUESTED LENGTH P SUR A1,A3 8 * P RF(NP) GCH010 LAST CHARACTER REACHED J " P LD A2,2,A8 GET BUFFER ADDRESS x P ADR A2,A3 P LCR A2,A2 CHAR. TO A2 P ANK A2,/FF $ P ADK A3,1 INCREMENT BUFFER INDEX
0x145e20…145fb4 (2, 247) Dummy {f00=0x008c, f01=0x0190, f02=» P LDR* P,A15 P EJECT P* * P* 4 6 P* OUTLIN = SUBROUTINE TO SEND ONE CHARACTER VIA > P* CHANNEL UNIT x P* P* B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. 8 P* RUNNING LRC-PRO
0x145fb4…146148 Dummy {f00=0x008c, f01=0x0190, f02=»OUTLIN EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK * P XIF T P* ` P IFT CPU852=0 j " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P ANK A2,/FF " P LDR* A7,A6 CHANNEL PARAMETER P ANK A7,/F P
0x146148…1462dc Dummy {f00=0x008c, f01=0x0190, f02=»T BYTE IN CHANNEL PARAMETER * P SRL A3,2 SECOND TERMINAL IN CHANNEL ? $ P ANK A3,/2 R P LDR A7,A5 GET CWT-ADDRESS d , P ADR A7,A3 TERMINAL ADJUSTED CWT-ADDRESS P EJECT POUL100 INH P* ( P* IF UNIT NOT FREE QUEUE OUTPUT.
0x1462dc…146470 Dummy {f00=0x008c, f01=0x018e, f02=» IF LRC-CONTROL ON v P* IT IS WANTED. P* ELSE SEND CHARACTER. 4 P* V $ P LDR* A3,A5 CHANNEL UNIT FREE ? ` P RF(NE) OUL800 NO P LDR A7,A7 REMOTE ? P RF(N) OUL500 P LDR A3,A2 P SUK A3,/82 STX ? P RF(NE)
0x146470…146604 Dummy {f00=0x008c, f01=0x0190, f02=» | P LDK A2,0 $ P ST A6,LRCDWT,A7 SET LRC-DEVICE , P CM LRCACK,A7 RESET LRC-ACKUMULATOR AND B P INDICATE FIRST OBC r , POUL150 LDR* A3,A6 GET CHANNEL PARAMETER , P ANKL A3,/E00 SET DEVICE NUMBER TO ZERO P RF OUL510 & POUL175
0x146604…146798 Dummy {f00=0x008c, f01=0x0190, f02=» NO P EJECT P* P* E T B $ P* 6 & P SC A2,LRCACK,A7 INDICATE LAST OBC @ * P LC A2,LRCACK+1,A7 GET LRC-ACKUMULATOR j P RB OUL150 P* P* OTHER OUTPUT P* 8 POUL300 CW A6,LRCDWT,A7 SAME DEVICE SENDING WITH
0x146798…14692c Dummy {f00=0x008c, f01=0x0190, f02=»NNING, QUEUE v P 0 POUL350 LDR* A3,A6 DEVICE WITH DATA REQUEST ? " P RF(NN) OUL500 DEVICE WITH DRD P P LD A3,CWTBLK,A5 v P RF(Z) OUL500 ( P ORKL A2,/8000 INDICATE BLOCKSENDING P LDK A3,/80 2 P SC A3,CWTBLK,A5 INDICATE BLOCKSENDI
0x14692c…146ac0 Dummy {f00=0x008c, f01=0x0190, f02=»ATED f 8 P* LAST OUTPUT DWT AND LAST OUTPUT CHARACTER 6 P* IS SAVED. IF OLRC-CHAR LRC-POINTERS FOR H . P* DWT AND ACKUMULATOR IS UPDATED. P POUL500 EQU * " P LDR* A3,A6 CHANNEL PARAMETER P ANKL A3,/7E00
0x146ac0…146c54 (2, 248) Dummy {f00=0x008c, f01=0x0190, f02=»,A5 OTR P U =13 P RF(A) OUL520 ACCEPTED P RF(U) OUL518 UNKNOWN =13 > P SUK A1,1 MORE TRIES ? =13 ` P RB(NZ) OUL515 YES =13 P RF OUL800 QUEUE =13 POUL518 EQU * U =13 P ADKL A15,20 RESET STACK P LDK A1,1 , P
0x146c54…146de8 Dummy {f00=0x008c, f01=0x0190, f02=»ING=1 P* 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* L P XIF V P* b P STR A6,A5 SET CHANNEL BUSY l , P ST A2,CWTLOW,A5 STORE LAST OUTPUT WORD P LDR A7,A7 REMOTE ? P RF(N) OUL600 " P LDR A3,A2 GET OUTPUT
0x146de8…146f7c Dummy {f00=0x008c, f01=0x018e, f02=»PARAMETERS =13 x 0 P RF(NN) OUL540 DEVICE WITH DATA REQUEST =13 0 P LD A3,CWTBLK,A5 TEST BLOCK TRANSMISSION =13 J 4 P RF(Z) OUL540 NO BLOCK TRANSMISSION ALLOWED =13 ~ . P LDK A3,/80 SET UP BLK TRANSM. RUNNING =13 P SC A3,CWTBLK,A5 U =13 POU
0x146f7c…147110 Dummy {f00=0x008c, f01=0x0190, f02=» d 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER POUL700 EQU * @ P IFT CPU852=1 T ( P ABL IHRET8 RESTORE A1-A8 AND RETURN j P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P INH U =9 P ADKL
0x147110…1472a4 Dummy {f00=0x008c, f01=0x0190, f02=»UT LAST IN OUTPUT QUEUE r P* POUL800 EQU * * P LDR A7,A7 REMOTE ? > P RF(NN) OUL805 YES Z P LDR A7,A5 CWT-ADDRESS t , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER P RF(E) OUL820 POUL810 CWR A6,A4 & P RB(E) OUL600 DWT ALREAD
0x1472a4…147438 Dummy {f00=0x008c, f01=0x0190, f02=»,A7 QUEUE DWT ~ P RF OUL840 $ POUL830 ST A6,DWTOTQ,A4 QUEUE DWT ( P LDK A4,0 P : POUL840 ST A4,DWTOTQ,A6 SET OR RESET OUTPUT QUEUE LINK b P RB OUL600 P EJECT P* P* P* C H L T O N P* > P* SUBROUTINE TO
0x147438…1475cc Dummy {f00=0x008c, f01=0x0190, f02=»* PCHLTON EQU * P LD A4,CHTAB " PCON010 SUK A4,2 ALL TREATED ? 2 P RF(NZ) CON020 NO TAKE NEXT X P ABL RTNA15 | PCON020 EQU * P INH $ P LD A5,CHTAB,A4 LOAD CWT-ADDRESS P RB(Z) CON010 P CWK A4,/A LOCAL ? P
0x1475cc…147760 Dummy {f00=0x008c, f01=0x0190, f02=»U) CON027 $ P LDK A3,0 INDICATE CHANNEL BUSY . P CF A15,RESTSY START OR RESTART SYNC-TIMER : PCON027 EQU * l 4 P ST A3,CWTRST,A5 INDICATE C.U. PRESENT OR NOT =6 P LD* A1,CWTITA,A5 P LDR A2,A4 P ANK A2,2 P SUR A1,A2 ( P
0x147760…1478f4 (2, 249) Dummy {f00=0x0097, f01=0x0190, f02=» 0 P RF(NZ) CON029 YES BLOCK SENDING NOT ALLOWED 4 PCON028 LDK A2,1 INDICATE BLOCK SENDING PERMITTED 8 PCONRET ST A2,CWTBLK,A5 p P RF CON035 PCON029 LDK A2,0 4 P RB CONRET INDICATE BLOCK SENDING NOT PREMITTED PCON030 EQU * $ P EX
0x1478f4…147a88 Dummy {f00=0x0097, f01=0x0190, f02=»B(E) CON010 P CMR A5 RESET LAST OUTPUT P LDK A2,/00 DUMMY 6 P CF A15,OUTLIN SEND IT P P RB CON010 n P EJECT P* P* P* L O G G P* 8 P* IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT AND $ P* OUTPUT C
0x147a88…147c1c Dummy {f00=0x0097, f01=0x0190, f02=»DK A1,2 & P CWK A1,BUFE BUFE IS MAX LOGG AREA P RF(NE) L1 : ( P LDKL A1,BUF SET FIRST LOGG ADDRESS L PL1 ST A1,POINT x & 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*
0x147c1c…147db0 Dummy {f00=0x0097, f01=0x0190, f02=»CT P* P* P* E C H O , E C H E N D P* @ < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, J . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P* 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, 2 P*
0x147db0…147f44 Dummy {f00=0x0097, f01=0x0190, f02=» MORE CHARACTERS v 2 P* CORRESPONDING TO ONE CHARACTER 4 P* TO BE STORED IN INPUT ECB-BUFFER N P* P* 4 P* PART ONE FOLLOWS AND PART TWO CAN BE FOUND 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO
0x147f44…1480d8 Dummy {f00=0x0097, f01=0x0190, f02=» r 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A P* JUMP TO 'ECHRTN'. B P* ` PECHEND EQU * j P* ~ P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE END I/O P XIF PECHO EQU * P IFT CECHO=1 & P ST A3,D
0x1480d8…14826c Dummy {f00=0x0097, f01=0x0190, f02=») RETUR NO ECHO REQUESTED 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE " 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE V 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE P LDKL A5,DWTSB2 & P ADR A5,A6 STACKBASE-ADDRESS IN A5 . P
0x14826c…148400 Dummy {f00=0x0097, f01=0x4100, f02=» P IFT CECHO=1 P LDR A7,A7 END? P RF(NN) ERETUR NO 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE J > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE v 4 PRETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 P END @ . P
0x148400…148594 (2, 250) Dummy {f00=0x0097, 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
0x148594…148728 Dummy {f00=0x0097, f01=0x000e, f02=» 8 @ h p x
0x148728…1488bc Dummy {f00=0x0097, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 9.2 80-01-03 870105040920 P : P =4,MMU BUFFER CONDITION B P REL 9.2 79-11-16 d P =3,RB - ABL P REL 9.1 79-05-23 P UPDATE PRR 9.1 - REL 9.1 P PRR 9.1 79-04-25 P REL 9.1 79-04-06
0x1488bc…148a50 Dummy {f00=0x0097, f01=0x0190, f02=» " P =1,ECHO OF LF AND CR, ABIS P REL 8.2 78-09-15 * P* F P* P 6 P************************************************** Z P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRGP01 = DRIVER GENERAL PRINTER P* P*
0x148a50…148be4 Dummy {f00=0x0097, f01=0x018e, f02=»DRIVER HANDLES GENERAL TERMINAL PRINTER < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. 0 P* p 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO z 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE 6 P* GENERAL PRINTER AS
0x148be4…148d78 Dummy {f00=0x0097, f01=0x0190, f02=» 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* 8 & P* A C G P ACTIVATION PART B P* l ( P* I H G P INTERRUPT HANDLER v P* ( P* R C G P RECOVERY ROUTINE P* & P* E C H O G P ECHO FUNCTIONS
0x148d78…148f0c Dummy {f00=0x0097, f01=0x0190, f02=» 05: BASIC WRITE " P* 06: STANDARD WRITE P* @ P* NORMAL REGISTER USAGE J P* l " P* REGISTER A1 = RETURN CODE v ( P* A2 = OUTPUT CHARACTER $ P* A3 = BUFFER INDEX $ P* A4 = WORK
0x148f0c…1490a0 Dummy {f00=0x0097, f01=0x018e, f02=» A8 = ECB-ADDRESS P* P* $ P* SYSTEM ADAPTATION . P* L : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR V ( P* (GPCLR) KEYS SHOULD BE DEFINED. P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS 0 P*
0x1490a0…149234 (2, 251) Opaque[0x194]
0x149234…1493c8 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07b8, f03=0x0000}
0x149234…1493c8 IdxSect {
0x149234…1493c8 f00 = 0x003d // 0x149234 @0x0
0x149234…1493c8 f01 = 0x000a // 0x149236 @0x2
0x149234…1493c8 gno = [ // 0x149238 @0x4
0x149234…1493c8 [0x00]: C0x003d.0x3.0
0x149234…1493c8 [0x01]: C0x003e.0x0.0
0x149234…1493c8 [0x02]: C0x003e.0x1.0
0x149234…1493c8 [0x03]: C0x003e.0x2.0
0x149234…1493c8 [0x04]: C0x0053.0x1.0
0x149234…1493c8 ]
0x149234…1493c8 }
0x1493c8…14955c Dummy {f00=0x003d, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 9.2 79-11-16 870105040920 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x14955c…1496f0 Dummy {f00=0x003d, f01=0x0190, f02=» P* B P* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S , P* PANEL CONNECTED TO CPU VIA CHCR-SOP X P* P* > P* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET : P* 'BUSY' UNTIL THE INPUT INTERRUPT IS TA
0x1496f0…149884 Dummy {f00=0x003d, f01=0x0190, f02=»ING READ REQUEST,POWER UP r > P* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH " P* -2 IN CONTROL WORD d P* P* > P* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET > P* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES N
0x149884…149a18 Dummy {f00=0x003d, f01=0x0190, f02=» ` P* ( P* S O P A S : READ SWITCHES ENTRY P* > * P* S O P A L : ACTIVATE LIGHTS ENTRY H P* v & P* I H S O P : INTERRUPT HANDLER P* " P* S O P R : RECOVERY ROUTINE P* P* P* * P* THE FOLLOWIN
0x149a18…149bac Dummy {f00=0x003d, f01=0x018e, f02=»IGHTS OFF z , P* 39 : WRITE FLASHING LIGHTS P* B P* NORMAL REGISTER USAGE: L P* n " P* REGISTER A1: INPUT/OUTPUT x " P* A2: WORK REGISTER " P* A3: WORK REGISTER " P* A4: WORK REGISTER
0x149bac…149d40 Dummy {f00=0x003d, f01=0x0190, f02=» r P* P* P EJECT P* * P************ 4 P* ENTRIES: * H P************ P* p P* z * P ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE ( P ENTRY SOPR S.O.P. RECOVERY ROUTINE 2 P ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALI
0x149d40…149ed4 (2, 252) Dummy {f00=0x003e, f01=0x0190, f02=»**** P* EXTERNALS: * P************** " P* 8 P* TOSS GLOBALS: B P* Z , P EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK d 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY & P EXTRN TDISP DISPATCHER LKM ENTRY . P EXTRN RETUR8 POP
0x149ed4…14a068 Dummy {f00=0x003e, f01=0x018e, f02=»I DATA SOP LIGHTS AND FD POWER P EJECT & P 4 P* < ( P************************************ F P* r P* DWT DISPLACEMENTS | P* ( P************************************ P* $ EXTRN DWTCHP CHANNEL PARAMETER EXTRN
0x14a068…14a1fc Dummy {f00=0x003e, f01=0x0190, f02=» EXTRN DWTTAB TTAB ADDRESS * % EXTRN DWTWAT WAIT/ACTIVATE INDICATOR & EXTRN DWTTQ TERMINAL QUEUE T . P EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT x ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB " P EXTRN ECBCW ECB CONTROL WORD PTIME EQU 5 F
0x14a1fc…14a390 Dummy {f00=0x003e, f01=0x0190, f02=» P PX:A EQU 0 PSOPX EQU 0 " P** 4 P** > 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS H P* BY SETTING CREDIT = 1 4 P* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS P* /37 AND /38 RESPECTIVLY B P* BY
0x14a390…14a524 Dummy {f00=0x003e, f01=0x0190, f02=»N ZERO IS STORED IN THE CONTROL WORD z P* OF THE ECB. , P** D P N PCREDIT EQU 1 V P** j P** t @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY ~ P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU 0
0x14a524…14a6b8 Dummy {f00=0x003e, 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* PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P*
0x14a6b8…14a84c Dummy {f00=0x003e, f01=0x018e, f02=» P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 4 P XIF N P* Z & PDWTTP EQU START+/00 TIMER POINTER d P* P EJECT P* P************************** P* S.O.P. DEVICE ADDRESS: * P********************
0x14a84c…14a9e0 Dummy {f00=0x003e, f01=0x0190, f02=» " P* * " P* S.O.P. CHANNEL UNIT TABLE * * " P* * P " P****************************** v P* P* 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: P* P DATA DVBLEN MMU BUFFER SI
0x14a9e0…14ab74 (2, 253) Dummy {f00=0x003e, f01=0x0190, f02=»TCHES ENTRY x " P DATA 0 ABORT ROUTINE ADDRESS P* : P DATA DVBLEN MMU BUFFER SIZE D P DATA DEVIND DEVICE INDEX h & PSOPADU EQU * ACTIVATE LIGHTS ENTRY P* & P DATA SOPAL ACTIVATE LIGHTS ENTRY " P DATA 0 ABORT ROUTINE ADDRESS
0x14ab74…14ad08 Dummy {f00=0x003e, f01=0x0190, f02=» " P* * " P* S.O.P. ACTIVATION ROUTINE: * * " P* * P " P****************************** v P* > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION P* IS CARRIED OUT. P*
0x14ad08…14ae9c Dummy {f00=0x003e, f01=0x0190, f02=» P* * P RF(NZ) SOPER ERROR IF NOT READ ORDER P* < P* INPUT SWITCH VALUE F P* d * PSOPIN LDR* A2,A6 POWER UP INDICATION ? n P IFT CREDIT=0 P RF(Z) EXIT NO $ P CMR A6 YES CLEAR FOR NEXT REQ. P XIF P IFT CREDIT=
0x14ae9c…14b030 Dummy {f00=0x003e, f01=0x0190, f02=»HANGES OF S.O.P. LIGHTS P* & PSOPAL EQU * ACTIVATE LIGHTS ENTRY * P* T P LD A3,10,A8 CHANGED LIGHTS ^ , P ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS P* P LDR A4,A7 COPY ORDER P IFT WRFLA=1 P CCK A4,/3939 P RF(
0x14b030…14b1c4 Dummy {f00=0x003e, f01=0x0190, f02=»/37 P XIF & P RF(Z) SOPON IF SO, TURN ON LIGHTS P* B & P SUK A4,1 SEE IF LIGHTS OFF ORDER L P RF(Z) SOPOFF v & PSOPER ABL(NZ) DISIOE ILLEGAL ORDER P IFT WRFLA=1 P EJECT P* P* P* FLASH LIGHTS P*
0x14b1c4…14b358 Dummy {f00=0x003e, f01=0x018e, f02=»A6 P LDR A1,A6 P CF A15,SETIMP P DATA FLTUT,TIME 2 P ST A4,DWTTP,A6 J P LDKL A1,/FFBF b P ANS A1,DWTST,A6 SET ON FLAG x PFL010 EQU * . P* A3 CONTAINS LIGHTS THAT SHOULD FLASH * P ORS A3,FLASH STORE NEW LAMPS TO FLASH
0x14b358…14b4ec Dummy {f00=0x003e, f01=0x0190, f02=» PFL020 EQU * P C1R A3,A3 P ANS A3,SPDLCI * P RF SOPONOF @ P* T P EJECT ^ P* l PFLTUT EQU * FLASH TIME OUT v P LDKL A6,DWSO01 P LD A3,FLASH 0 P RF(Z) FL030 NO MORE FLASHING FOR THIS TIME P LDKL A1,-TIME R
0x14b4ec…14b680 Dummy {f00=0x003e, f01=0x0190, f02=»EXIT END I/O P XIF P EJECT P* . PSOPOFF EQU * 8 , P C1R A3,A3 GET COMPLEMENTED CONTROL WORD L 4 P ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF | P IFT WRFLA=1 $ P ANS A3,FLASH STOP SOME FLASHING P XIF , P RF SOPONOF
0x14b680…14b814 (2, 254) Dummy {f00=0x003e, f01=0x0190, f02=» A3 CONTAINS CONTROL WORD . P ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON $ P IFT WRFLA=1 V P C1R A3,A3 j * P ANS A3,FLASH STOP SOME OTHER FLASHING | P XIF P* P* COMMON ON/OFF PATH: P* 0 PSOPONOFF LD A1,SPDLCI GET LIGHTS
0x14b814…14b9a8 Dummy {f00=0x003e, f01=0x0190, f02=»********************** P* * P* S.O.P. INTERRUPT HANDLER * B P* * f P**************************** P* P* @ P* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. P*
0x14b9a8…14bb3c Dummy {f00=0x003e, f01=0x018e, f02=» CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF * P* 6 P IFT CPU852=0 @ " P MSR 8,A15 SAVE A1-A8 ON STACK V P XIF | P* $ P ST P,INTSAV SAVE LAST INTERRUPT P INR A1,0,SOPDA GET SWITCH P SRN A1,A2 CALC INDEX P IFT CREDIT=0
0x14bb3c…14bcd0 Dummy {f00=0x003e, f01=0x0190, f02=» " P LDKL A6,DWSI02 ANY REQUEST ON P LD A4,DWTST,A6 STATUS WORD * P RF(N) IHSOP2 NO N $ P LD A8,DWTECB,A6 GET ECB-ADDRESS f P ST A2,ECBCW,A8 STORE INDEX ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDK A1,0 P CF A15,TENDIO END I/O
0x14bcd0…14be64 Dummy {f00=0x003e, f01=0x0190, f02=»WTECB,A6 GET ECB-ADDRESS P & PIHSOP3 ST A2,ECBCW,A8 STORE INDEX ( P R , PENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH Z P LDK A1,0 P CF A15,TENDIO END I/O P $ PEXIT ABL TDISP GO TO DISPATCHER P EJECT P* * P******
0x14be64…14bff8 Dummy {f00=0x003e, f01=0x0190, f02=» * * P************************************* * P* X P* b : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE l 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT IN THE POWER FAILUR
0x14bff8…14c18c Dummy {f00=0x003e, f01=0x018e, f02=»DWTCHP j P* P* PSOPR EQU * ENTRY POINT " P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVATE INPUT
0x14c18c…14c320 Dummy {f00=0x003e, f01=0x0190, f02=» " P LDKL A2,-2 POWER UP INDICATOR P XIF . P IFT CREDIT=1 : P LDK A2,0 P P XIF b P n P IFF SOPX=0 v " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND POWER U
0x14c320…14c4b4 (2, 255) Dummy {f00=0x0053, f01=0x0190, f02=» STR A2,A6 IND POWER UP P PSOPR2 RB IHSOP1 ( P EJECT @ P* N P* D W S I 0 1 : INPUT DWT X P* | PDWSI01 EQU * , P DATA 0 CHANNEL PARAMETER: POWER UP IND , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA 0 ECB AD
0x14c4b4…14c648 Dummy {f00=0x0053, f01=0x0190, f02=» & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECI MMU ECB ADDRESS . PDEVECI EQU * R P DATA 0,0,0,0,0,0 f P XIF P* P* D W S O 0 1 : OUTPUT DWT P* P* PDWSO01 EQU * " P DATA /0040 CHANNEL PARAMETER , P
0x14c648…14c7dc Dummy {f00=0x0053, f01=0x0190, f02=» j P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L IFT MMUPAG=1 j & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECO MMU ECB ADDRESS XIF P DATA 0 TIMER POINTER . PFLASH DATA 0 SAV
0x14c7dc…14c970 Dummy {f00=0x0053, f01=0x0190, f02=»* * P* D W S I 0 2 : EXTENDED INPUT DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " D
0x14c970…14cb04 Dummy {f00=0x0053, f01=0x402c, f02=» ! P* " P* " P END " @ " (DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " D
0x14cb04…14cc98 Dummy {f00=0x0053, f01=0x2008, f02=» # -ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE @ P* ^ P END h@ t P* z P* P* D W S O P U : OUTPUT DWT P* P* PDWSOPU EQU * P DATA 0 CHANNEL PARAMETER , P DATA /8000
0x14cc98…14ce2c Dummy {f00=0x0053, f01=0x0190, f02=»*-CWTRT1 # P DATA 0 TIMER POINTER $ PCWSYNC EQU *-CWTRT1 $ . P DATA /7055 SYNC CHARACTER $ J PLRCDWT EQU *-CWTRT1 $ l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ PLRCACK EQU *-CWTRT1 $
0x14ce2c…14cfc0 Dummy {f00=0x0053, f01=0x018e, f02=»US WORD (LOOP-TESTS) $ | 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR % ( P DATA 0 BIT 0: BLOCKSENDING RUNNING % P $ P BIT 15: BLOCKSENDING ALLOWED % | P EJECT % $ P******************************** % $ P* C W T R T 2 * % $ P******
0x14cfc0…14d154 (2, 256) Opaque[0x194]
0x14d154…14d2e8 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a18, f03=0x0000}
0x14d154…14d2e8 IdxSect {
0x14d154…14d2e8 f00 = 0x0050 // 0x14d154 @0x0
0x14d154…14d2e8 f01 = 0x002c // 0x14d156 @0x2
0x14d154…14d2e8 gno = [ // 0x14d158 @0x4
0x14d154…14d2e8 [0x00]: C0x0050.0x3.0
0x14d154…14d2e8 [0x01]: C0x005d.0x1.0
0x14d154…14d2e8 [0x02]: C0x005d.0x3.0
0x14d154…14d2e8 [0x03]: C0x005e.0x1.0
0x14d154…14d2e8 [0x04]: C0x005e.0x2.0
0x14d154…14d2e8 [0x05]: C0x005e.0x3.0
0x14d154…14d2e8 [0x06]: C0x0065.0x0.0
0x14d154…14d2e8 [0x07]: C0x0065.0x1.0
0x14d154…14d2e8 [0x08]: C0x0077.0x1.0
0x14d154…14d2e8 [0x09]: C0x0085.0x3.0
0x14d154…14d2e8 [0x0a]: C0x0087.0x1.0
0x14d154…14d2e8 [0x0b]: C0x0087.0x2.0
0x14d154…14d2e8 [0x0c]: C0x0089.0x1.0
0x14d154…14d2e8 [0x0d]: C0x008a.0x1.0
0x14d154…14d2e8 [0x0e]: C0x008a.0x2.0
0x14d154…14d2e8 [0x0f]: C0x008a.0x3.0
0x14d154…14d2e8 [0x10]: C0x008b.0x1.0
0x14d154…14d2e8 [0x11]: C0x008b.0x2.0
0x14d154…14d2e8 [0x12]: C0x0091.0x3.0
0x14d154…14d2e8 [0x13]: C0x0092.0x0.0
0x14d154…14d2e8 [0x14]: C0x0095.0x0.0
0x14d154…14d2e8 [0x15]: C0x0096.0x2.0
0x14d154…14d2e8 ]
0x14d154…14d2e8 }
0x14d2e8…14d47c Dummy {f00=0x0050, f01=0x0190, f02=» 0 P IDENT DRDC15 9.2DSB 83-07-27 870105040920 P 8 . P DK4, WAIT FOR CLUSTER ADDR. (POWER-ON) @ P 83-07-27 r P DK3, CLEAR SYNSW IN BRM P DK2, TBUFL P 80-03-11 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. P
0x14d47c…14d610 Dummy {f00=0x0050, f01=0x0190, f02=»AL MODE v P REL 9.1 79-07-19 * P =6, DCTASK BUFFER ADDRESS DESTROYED , P REL 9.1 79-05-23 Z $ P =5, INCOMPLETE POLL SEQUENCE v P REL 9.1 79-05-23 P =3, TRANSFER PARAMETER P PRR 9.1 79-04-06 P =4, ANY MESSA
0x14d610…14d7a4 Dummy {f00=0x0050, f01=0x0190, f02=»RR 9.1 78-11-14 P REL 8.2 78-11-14 P 4 P* < P* F 2 P********************************************* P P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIPOI
0x14d7a4…14d938 Dummy {f00=0x0050, f01=0x0190, f02=»**************************** x P $ P* . P* 8 P* ENTRY POINTS B P* X 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS b " P ENTRY IH1501 INPUT INTERRUPT " P ENTRY IH1502 OUTPUT INTERRUPT " P ENTRY DC15ON POWER ON ROUTINE "
0x14d938…14dacc Dummy {f00=0x0050, f01=0x0190, f02=»TRY v ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK $ P EXTRN TENDIO COMPLETE I/O EVENT 8 P EXTRN DISIOE REQUEST ERROR ` P EXTRN SETIME SET TIMER P EXTRN DWTST DWT STATUS P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN I
0x14dacc…14dc60 Dummy {f00=0x0050, f01=0x018e, f02=»BA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH H P EXTRN ECBRC ECB RETURN CODE r " P EXTRN ECBCW ECB CONTROL WORD * P EXTRN DC:MIN MOVE DATA TO USER BUFFER , P EXTRN DC:MOT MOVE DATA FROM U
0x14dc60…14ddf4 (2, 257) Dummy {f00=0x005d, f01=0x0190, f02=» P* P* P* 6 P* STANDARD INTERFACE PART FOR DATA COMMUNICATION & P* ` P* j P* t P* ~ P* DWT CONTENTS P* J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) P* P <
0x14ddf4…14df88 Dummy {f00=0x005d, f01=0x0190, f02=» EQU /5C STANDARD:/40, DK:/5C DK * PX:D EQU 0 BASE FOR RBUFL AND TBUFL DK ( " PX:X EQU 000 VALUE FOR BASE DK V & PX:A EQU 2000 RECEIVE BUFFER LENGTH | PRBUFL EQU 150+X:X DK PX:B EQU /60 DCTASK FILE CODE PDC15FC EQU /60 $ PX:C EQU 1
0x14df88…14e11c Dummy {f00=0x005d, f01=0x0190, f02=»G IF=1 p PSTAT EQU 0 ( PX:F EQU 1 READ COMMAND HANDLING IF=1 PRCOM EQU 0 L & PX:G EQU 254 TRANSMIT BLOCK LENGTH ^ PTBLEN EQU 150 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC PCODE EQU 0 * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING
0x14e11c…14e2b0 Dummy {f00=0x005d, f01=0x0190, f02=»K EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU 1 , . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) > PRBUFNR EQU 5 p . PX:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 PX:N EQU /02 P IFT P6805=0 , PLCUIN EQU 02 DEVICE AD
0x14e2b0…14e444 Dummy {f00=0x005d, f01=0x0190, f02=»IBMCHR EQU 0 IF 1 IBM CHARACTER HANDLING . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK 0 PMESPAS EQU 0 b 4 PX:Q EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 v PEM3270 EQU 0 PX:R EQU 1000 P DK2 * PBINTRM EQU 0 IF 1 BINARY TRANSMISS
0x14e444…14e5d8 Dummy {f00=0x005d, f01=0x0190, f02=»TH A MAIN-FRAME THAT t 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". P , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ
0x14e5d8…14e76c Dummy {f00=0x005d, f01=0x0190, f02=»* P P* P* . P***************************************** ( P* Z P* CONDITIONAL ASSEMBLY d P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED
0x14e76c…14e900 Dummy {f00=0x005d, f01=0x0190, f02=» XIF DK2 P* P IFT MMUPAG=1 DK2 * PTBUFL EQU 150+X:X MMU BUFFER LENGTH DK 6 P XIF DK2 d P DE v P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU8
0x14e900…14ea94 (2, 258) Dummy {f00=0x005d, f01=0x0190, f02=» P* P* DWT DISPLACEMENTS P* 0 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART : P* n P IFT MMUPAG=0 x PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* 4 PDWTTP
0x14ea94…14ec28 Dummy {f00=0x005d, f01=0x018e, f02=» & PDWTRQ EQU START+/06 RECEIVE QUEUE . PDWTBUF EQU START+/08 DEVICE BUFFER ADDRESS . ( PDWTCUR EQU START+/0A CURSOR ADDRESS ` , PDWTTIM EQU START+/0C REQUEST TIMER VALUE P* P P* P* REQUEST HANDLING P* P* P
0x14ec28…14edbc Dummy {f00=0x005d, f01=0x0190, f02=» $ P* /39: SET REQUEST TIMEOUT VALUE P* , P* 6 P* CONSTANTS AND WORK AREAS @ P* b P* l & PDCONOF DATA 0 ON- / OFFLINESWITCH v * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS $ PDCWRQ DATA 0 WRITE REQ
0x14edbc…14ef50 Dummy {f00=0x005d, f01=0x0190, f02=»INDICATES NO MMU BUFFER P DATA DEVIND DEVICE INDEX * PDC15DC DATA DCACTD ACTIVATION ADDRESS B & P DATA ABORT ABORT ROUTINE ADDRESS p $ P DATA DCRBUF REC. BUFFER ANCHOR P* P* DRIVER ADDRESS BLOCK P* P DATA BUFLEN MMU BUF
0x14ef50…14f0e4 Dummy {f00=0x005d, f01=0x018e, f02=»DRESS f $ P DATA DCRBUF REC. BUFFER ANCHOR P* 6 , P RES 15 SUBROUTINE STACK FOR INTERRUPTS @ PSTB RES 1 p " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 P P IFT SPEED=1 PLSPEED EQU /0200 P XIF P IFT SPEED=0
0x14f0e4…14f278 Dummy {f00=0x005d, f01=0x018e, f02=» P LDK A1,0 PRESET RETURN CODE P IFT EM3270=1 =4 ( P LDR A7,A7 =4 B & P RF(Z) ANYMSG ANY MESSAGE ORDER =4 X P XIF P SUK A7,/02 P RF(Z) DCRD READ SPECIFIC P SUK A7,/06-/02 P RF(Z) DCWR P SUK A7,/37-/06 $ P
0x14f278…14f40c Dummy {f00=0x005d, f01=0x0190, f02=» $ P ABL(Z) REQTIM SET REQUEST TIMER P XIF , P 8 P IFT STAT=0 @ P SUK A7,/39-/37 T $ P RF(Z) REQTIM SET REQUEST TIMER l P XIF P RF DCA100 P P* P* P* ACTIVATION FROM DCTASK P* P* PDCAC
0x14f40c…14f5a0 Dummy {f00=0x005d, f01=0x0190, f02=»=4 p P XIF P SUK A7,/02 P RF(E) DCRDDC READ * P SUK A7,/37-/02 D $ P RF(E) DCTP TRANSFER PARAMETERS P PDCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER P* P* P* READ FROM DCTASK P* P
0x14f5a0…14f734 (2, 259) Dummy {f00=0x005e, f01=0x0190, f02=»ON r P* PDCRDDC EQU * , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED ( PDCRTN EQU * X P ABL TDISP GO TO DISPATCHER l P IFT EM3270=1 =4 P . P***************************************** P* P* ANY MESSAGE ORDER
0x14f734…14f8c8 Dummy {f00=0x005e, f01=0x0190, f02=»4 | ( P RF ENDIO YES!! COMPLETE REQUEST =4 P XIF 6 P B P* L P* V P* TRANSFER PARAMETERS ` P* ~ P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSE
0x14f8c8…14fa5c Dummy {f00=0x005e, f01=0x0190, f02=»CBCW,A8 GET TCS IF ANY P ANK A2,/FF P RF(Z) DCTP10 2 ( P LC A2,TASCII,A2 TRANSLATE TO ASCII H P SLL A2,8 t PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV P ANK A3,/FF ( P LC A2,TASCII,A3 TRANSLATE TO ASCII P XIF
0x14fa5c…14fbf0 Dummy {f00=0x005e, f01=0x018e, f02=»F,A6 ( P LD A3,ECBRL,A8 CURSOR ADDRESS WORD P ST A3,DWTCUR,A6 8 P XIF P " P CWK A6,DW1500 DCTASK DWT ??? 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL
0x14fbf0…14fd84 Dummy {f00=0x005e, f01=0x0190, f02=» $ P AD* A4,DCTAB LAST TABLE POS. =3 * PDCTP22 SUK A4,2 ADDR. TO NEXT ENTRY =3 , * P CW A4,DCTAB ALL ENTRIES CHECKED?? =3 Z * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 " P RB DCTP22 CHECK N
0x14fd84…14ff18 Dummy {f00=0x005e, f01=0x018e, f02=»B IN POINTER v P * P ADS A1,DC:TAB INCREMENT DC:TAB LENGTH P IFT STAT=1 J P LDK A1,4 DEVICE END ^ P ORS A1,DWTST,A6 z ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF PDCTP30 EQU * P SUR A1,A1 RETURN CODE ::= 0 PENDIO
0x14ff18…1500ac Dummy {f00=0x005e, f01=0x0190, f02=» P* COMPLETE WHEN: P* SUCCESFUL TRANSMISSION P* TIME OUT > P* R P* PDCWR EQU * f P IFT MMUPAG=1 x $ P LD A1,ECBRL,A8 REQUESTED LENGTH " P CWK A1,BUFLEN ILLEGAL LENGTH? P RF(G) IL:LEN YES!! P XIF P CF
0x1500ac…150240 Dummy {f00=0x005e, f01=0x0190, f02=»* P* COMPLETE WHEN: P* MESSAGE RECEIVED " P* TIME OUT > P* R P* PDCRD EQU * f P LD A8,DWTECB,A6 GET ECB x . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE " P RF(Z) DCRD10 NOTHING IN QUEUE P P P ( P
0x150240…1503d4 (2, 260) Dummy {f00=0x005e, f01=0x0190, f02=»,A8 P P LDK A1,0 RESET RETURN CODE * P CF A15,DC:MIN MOV DATA TO USER BUFFER 8 P RB DCRTN f P x $ PDCRD10 CF A15,TIMERE START TIMER P RB DCRTN P P* P* P* SET STATUS P* P* P IFF STA
0x1503d4…150568 Dummy {f00=0x005e, f01=0x018e, f02=»DCSS10 EQU * P ST A1,DWTST,A6 P RB DCTP30 COMPLETE REQUEST , PDCSS20 EQU * P P LD A1,DWTST,A6 d P ANK A1,9 | ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT PDCSS30 EQU * , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE P LDK A1,4
0x150568…1506fc Dummy {f00=0x005e, f01=0x0190, f02=» PREQTIM EQU * " P LD A2,ECBCW,A8 TIMEOUT VALUE $ P ST A2,DWTTIM,A6 SAVE IT IN DWT > P RB DCTP30 TENDIO & DISPATCH f P P* ( P* ILLEGAL APPLICATION BUFFER SIZE P* P 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL L
0x1506fc…150890 Dummy {f00=0x005e, f01=0x0190, f02=» P* ! P* READ TIMER=TIMERR ! P* ! * PTIMERE EQU * ! 4 P LDR A1,A6 ! H . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE ! Z P RF(Z) TIME10 NO TIMING ! P ST A2,TIMERR ! P CF A15,SETIME ! P DATA TOUTRE ! PTIMERR DATA 0 ! ( P ST A4
0x150890…150a24 Dummy {f00=0x005e, f01=0x0190, f02=»RE EQU * ! P LDR A6,A1 FETCH DWT " P CM DWTTP,A6 " , PTOUTR1 EQU * " @ " P LDK A1,/40 INDICATE TIME OUT " T $ PTOUTR2 RB ENDIO COMPLETE REQUEST " z P* " P* WRITE TIMER=TIMWR " P* " PTIMEWR LDR A1,A6 " . P LD A2,DWTTIM,A6 GET REQUEST T
0x150a24…150bb8 Dummy {f00=0x005e, f01=0x0190, f02=»T A4,DWTTP,A6 " P RB TIME10 # P # ( P* # 2 P* TIMEOUT WRITE TIMER # < P* # Z PTOUTWR EQU * # d P LDR A6,A1 FETCH DWT # x P CM DWTTP,A6 # * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # P* # & P* THIS INSTRUCTION DOES NOT BELONG #
0x150bb8…150d4c Dummy {f00=0x005e, f01=0x018e, f02=»ICATE 'ACK NOT EXPECTED' # P CM FDWTUT $ P* $ 2 P* $ < P RB TOUTR1 $ F P $ X P* $ b P* $ l P* STOP REQUEST TIMING $ v P* $ & P* REMAINING TIME IS RETURNED IN A2 $ P* $ P* $ PCTIME EQU * $ & P LD A2,DWTTP,A6 GET TIME
0x150d4c…150ee0 Dummy {f00=0x005e, f01=0x0190, f02=» $ v P CM DWTTP,A6 % PCTIM10 EQU * % P RF GBUF10 % 0 P % B P* % L P* GET RECEIVE BUFFER % V P* % r $ P* CALLING SEQUENCE: CF A15,GRBUF % | P* A4=0 IF NO BUFFER IS FREE % & P* ELSE A4 CONTAINS BUFFER ADDRESS % P* A2 AND A3 ARE DESTRO
0x150ee0…151074 (2, 261) Dummy {f00=0x005e, f01=0x0190, f02=»FREE % x . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN & P STR A3,A2 & > * PGBUF10 ADKL A15,4 ADJUST STACK POINTER & P P ABR* A15 RETURN TO CALLER & ~ P & P* & P* & ( P* INSERT DWT IN WRITE REQUEST QUEUE & P* & P* A2,A3,A4 DESTROYED
0x151074…151208 Dummy {f00=0x005e, f01=0x0190, f02=»Z) INSWQ3 END OF QUEUE FOUND & P LDR A2,A3 ' $ P RB INSWQ2 ' 6 PINSWQ3 ADR A4,A6 ' H P STR A4,A2 INSERT IN QUEUE ' ` " P CMR A4 INDICATE END OF QUEUE ' P RB GBUF10 RETURN ' P* ' P* ' * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* '
0x151208…15139c Dummy {f00=0x005e, f01=0x0190, f02=»K TO BE REMOVED ' r PREM06 EQU * ( P ADR A4,A6 ( , PREM10 LDR* A3,A2 ( @ & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ( X P CWR A3,A4 ( P RF(E) REM15 ( P LDR A2,A3 GET NEXT ( P RB REM10 ( PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( P
0x15139c…151530 Dummy {f00=0x005e, f01=0x0190, f02=»TROYED ( P* A6=DWT ) P* ) ( PINSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR ) ( P LDK A4,DWTSQ ) T P RB INSWQ2 ) j P* ) | P* ) " P* REMOVE DWT FROM STATUS QUEUE ) P* ) P* A2,A3,A4 DESTROYED ) P* A6=DWT ) P* ) * PREMOVS LDKL A2,DCS
0x151530…1516c4 Dummy {f00=0x005e, f01=0x018e, f02=»BUFFER ) v P* * P* A4=BUFFER ADDR * P* A2,A3 DESTROYED * 0 P* * J PQRBUF EQU * * T P IFT MESPAS=1 * h ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * ~ P XIF * P IFT MESPAS=0 * $ P LDR A2,A6 QUEUE ON TERMINAL DWT * P XIF * , P ADK A2,
0x1516c4…151858 Dummy {f00=0x005e, f01=0x0190, f02=» P RB QR100 + & PQR200 STR A4,A2 INSERT INTO QUEUE + " P CMR A4 INDICATE END OF QUEUE + @ P RTN A5 + f P + v P* + P* + 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + P* + 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED +
0x151858…1519ec Dummy {f00=0x005e, f01=0x0190, f02=»A1,DWTOR,A6 + P RF(NE) CKM110 NO , $ P LD A8,DWTECB,A6 ECB ADDR TO A8 , . * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , V " P RF(Z) CKM200 NO READ IN QUEUE , P , P , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , . P ST A2,DWTRQ,A6 STORE THIS ADD
0x1519ec…151b80 Dummy {f00=0x005e, f01=0x0190, f02=»STORE NUMBERS OF CHARACTERS , P LD A4,-2,A3 - $ . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS - 8 P - j P LDK A1,0 RESET RETURN CODE - r & P LDR A4,A3 RECEIVE BUFFER ADDRESS - , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - * PCKM110 ADKL A15,4 ADJUST
0x151b80…151d14 (2, 262) Dummy {f00=0x0065, f01=0x0190, f02=»L TIME OUT - r P CW A1,DCSTOL . P ST A1,DCSTOL . ( & P RB(E) CKM110 NO CHANGE OF STATUS . > * P ORKL A1,/2000 INDICATE STATUS CHANGE . h 0 P CF A15,TENDIO COMPLETE READ GENERAL REQUEST . P RB CKM110 . P . P . @ P**************************
0x151d14…151ea8 Dummy {f00=0x0065, f01=0x0190, f02=» A1,DWTTP,A6 TIMER POINTER . " P RF(Z) AB:10 NO TIMER RUNNING / " P CM* DWTTP,A6 KILL TIMER / H P CM DWTTP,A6 / h P / | $ PAB:10 LD A1,DWTOR,A6 ORDER CODE / P SUK A1,2 / * P RF(Z) AB:RTN READ REQUEST. NO ACTION / P SUK A1,4 / . P RF(NZ) AB
0x151ea8…15203c Dummy {f00=0x0065, f01=0x018e, f02=» P CWR A2,A6 0 P RF(NE) AB:RTN NOT THIS DWT 0 P CM XACK RESET ACK EXPECTED 0 : P CM FDWTUT RESET WRITING DWT 0 ^ P 0 PAB:RTN EQU * 0 P IFT CPU852=1 0 P ADKL A15,4 0 $ P ABR* A15 RETURN IN INHIBIT MODE 0 P XIF 0 P IFF CPU852=
0x15203c…1521d0 Dummy {f00=0x0065, f01=0x0190, f02=» P* 1 P* RESTORE 1 $ P* CALLING SEQUENCE: CF A15,LDREG 1 P* 1 H P* 1 R PSTREG ST A3,LCA3 1 P ST A4,LCA4 1 t P ST A5,LCA5 1 P ST A6,LCA6 1 P ST A7,LCA7 1 P ST A8,LCA8 1 P RF RTNA15 RETURN 1 P 1 PLDREG LDKL A
0x1521d0…152364 Dummy {f00=0x0065, f01=0x0190, f02=»-2 1 P LDKL A7,0 2 PLCA7 EQU *-2 2 P LDKL A8,0 2 0 PLCA8 EQU *-2 2 B PRTNA15 EQU * 2 V P ADKL A15,4 2 j P ABR* A15 2 ~ P 2 P* 2 P* 2 P* TIMER VALUES 2 P* 2 P* 2 * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 2 " PTI
0x152364…1524f8 Dummy {f00=0x0065, f01=0x018e, f02=»SYN EQU /16 2 PSTX EQU /02 3 PETX EQU /03 3 ( PETB EQU /17 3 < PITB EQU /1F 3 P PSOH EQU /01 3 d PENQ EQU /05 3 x PDLE EQU /10 3 PEOT EQU /04 3 PNAK EQU /15 3 PESC EQU /1B 3 PSBA EQU /11 3 PGP EQU /22 3 PRDBCOM
0x1524f8…15268c Dummy {f00=0x0065, f01=0x0190, f02=» PDC1 EQU /11 4 P IFT MSV1=0 4 PWACK EQU /3B 4 , P XIF 4 @ P IFT CODE=0 4 L P IFT MSV1=1 4 ` 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE 4 t P XIF 4 P IFT CODE=1 4 PPAR EQU /00 4 PWACK EQU /2C 4 PRVI EQU XRVI DK 4 P
0x15268c…152820 Dummy {f00=0x0065, f01=0x0190, f02=» 4 P* 5 * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION 5 . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION 5 @ PXACK DATA 0 ACK EXPECTED 5 r PXSEL DATA 0 SELECTED 5 PXETX DATA 0 ETX SENT 5 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT 5 " PXRB DATA
0x152820…1529b4 (2, 263) Dummy {f00=0x0065, f01=0x0190, f02=» ECB 5 ~ ( PFECBBA RES 1 WRITING BUFFER ADDRESS 6 & PFECBRL RES 1 WRITING BUFFER LENGTH 6 8 PFBAX DATA 0 BUFFER INDEX 6 b 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK 6 $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR 6 . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING
0x1529b4…152b48 Dummy {f00=0x0065, f01=0x0190, f02=»TUS INFORMATION 6 P* 7 P* 7 " P IFF STAT=0 7 , . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE 7 @ P* 7 r P* 7 | P DATA /4248 7 P DATA /4242 7 P* 7 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED 7 , PIR EQU /26 S/S 1 : INTERVE
0x152b48…152cdc Dummy {f00=0x0065, f01=0x018e, f02=» & P* IS EXPECTED FROM THE MASTER SIDE 8 P* 8 . P* 8 8 P IFT P6805=1 SALCUZ 8 B , PBRMHLT CF A5,HALTIN HALT RECEIVER SALCUZ 8 ^ P XIF SALCUZ 8 PBRM EQU * 8 P LDKL A5,STB LOAD STACKBASE 8 P IFT P6805=0 SALCUZ 8 2 P CF A5,HALTIN HALT
0x152cdc…152e70 Dummy {f00=0x0065, f01=0x0190, f02=» P XIF SALCUZ 9 PBRM010 EQU * 9 P IFT CODE+P6805=0 SALCUZ 9 . 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN PATTERN 9 P P XIF SALCUZ 9 P IFT P6805=0 SALCUZ 9 P IFT CODE=1 9 4 P LDKL A2,/100+LSPEED+SYNEBC SPECIFY SYN PATTERN 9 P XIF
0x152e70…153004 Dummy {f00=0x0065, f01=0x0190, f02=» CODE=1 SALCUZ 9 P LDK A2,/0C SALCUZ : * P CIO A2,1,LCUIN START RECEIVER SALCUZ : 4 P LDK A2,SYN SALCUZ : b 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ : ~ P RB(NA) BRMHLT SALCUZ : P XIF SALCUZ : P IFT CODE+P6805=2 SALCUZ :
0x153004…153198 Dummy {f00=0x0065, f01=0x0190, f02=»RACTER SALCUZ : p P RB(NA) BRMHLT SALCUZ ; P XIF SALCUZ ; 4 PBRM100 EQU * ; J . P CM SYNSW IN CASE OF THRUP-ERR IN CRC DK3 ; ^ $ P CF A5,READP READ ONE CHARACTER ; P RF(NZ) BRM150 PARITY ERROR ; P LDR A1,A2 ; P SUK A1,STX ; P RF(Z)
0x153198…15332c Dummy {f00=0x0065, f01=0x018e, f02=»D ; v P SUK A1,DLE-ENQ < P ABL(Z) BRM600 DLE RECEIVED < " P SUK A1,NAK-DLE < F P ABL(Z) BRM500 NAK RECEIVED < ^ P IFT MSV1=0 < P LDR A8,A2 < $ P CF A5,READP READ ONE CHARACTER < P RF(NZ) BRM150 PARITY ERROR < P CWR A2,A8 < & P R
0x15332c…1534c0 Dummy {f00=0x0065, f01=0x0190, f02=» < P CC A2,DW1500 = P RF(NE) BRM150 NOT THIS TCU = PBRM110 EQU * = B P CF A5,READP READ 1:ST STA = V P RF(NZ) BRM150 PARITY ERROR = x P LDR A8,A2 = P IFT MSV1=0 = P CF A5,READP READ 2:ND STA = P RF(NZ) BRM150 PARITY ERROR = P
0x1534c0…153654 (2, 264) Dummy {f00=0x0077, f01=0x0190, f02=» = | P SUK A2,ENQ+PAR > P XIF SALCUZ > P IFT P6805=1 SALCUZ > 6 P SUK A2,ENQ SALCUZ > R P XIF SALCUZ > n P RF(NZ) BRM150 NOT ENQ > P IFT P6805=0 SALCUZ > $ P CF A5,READ READ LAST CHARACTER > P > " P* TRAILING PAD CAN BE CHEC
0x153654…1537e8 Dummy {f00=0x0077, f01=0x0190, f02=» > P XIF ? P XIF SALCUZ ? P IFT P6805=1 SALCUZ ? , $ P CF A5,HALTIN HALT INPUT SALCUZ ? H . P RB(NZ) BRM010 PARITY ERROR SALCUZ SALCUZ ? p P XIF SALCUZ ? P LDK A1,1 ? P ST A1,CACK LOAD ACK COUNTER ? P LDR A2,A8 ? P SUK A3,
0x1537e8…15397c Dummy {f00=0x0077, f01=0x0190, f02=» STA PRESENT (POLL ADDRESS) ? z P XIF @ $ P IFT MSV1=0 @ 0 & P CF A5,FINTER CHECK IF STA PRESENT @ D P XIF @ n P LDR A6,A3 LOAD DWT TO A6 @ z P ABL(NZ) SPOLL SPECIFIC POLL @ P RB BRM INVALID POLL @ PBRM120 EQU * @ & P CF A5,FINTER CHECK IF S
0x15397c…153b10 Dummy {f00=0x0077, f01=0x0190, f02=» @ P ABL SELECT A P IFT MSV1=1 A P ABL BRM INVALID ADDRESS A 2 P XIF A R P* A b , P* WAIT FOR MARK HOLD TO RESYNCHRONIZE A l P* A PBRM150 EQU * A P ANK A2,/7F A P SUK A2,/7F A P RB(Z) BRM RESYNCHRONIZE A & P CF A5
0x153b10…153ca4 Dummy {f00=0x0077, f01=0x0190, f02=»BRM200 EQU * A & P CF A5,HPTIM STOP PROCEDURE TIMER B P IFT RCOM=1 B > P CM XRB RESET READ BUFFER B R P XIF B t P LD A1,XACK B & P RF(Z) BRM220 ACK IS NOT EXPECTED B " P LD A6,FDWTUT GET WRITING DWT B P RF(Z) BRM210 NO ONE WRITING B P
0x153ca4…153e38 Dummy {f00=0x0077, f01=0x0190, f02=»QU * B P CM XSEL RESET 'SELECTED' C P RB BRM C . P C > P* C H P* C R P* STX HAS BEEN RECEIVED C P* C | P* C PBRM300 EQU * C P CF A5,HPTIM C P LD A1,XSEL C P RF(Z) BRM315 NOT SELECTED C P LD A1,DCRBUF C ( P****
0x153e38…153fcc Dummy {f00=0x0077, f01=0x0190, f02=»A5,RDMESS READ MESSAGE C P SUK A7,1 D P RF(NZ) BRM320 MESSAGE OK D 0 PBRM310 EQU * D R ( P CM XSTA INDICATE 'INVALID MESSAGE' D f PBRM312 EQU * D P CF A5,TRNAK SEND NAK D P ABL BRM D PBRM315 EQU * D P IFT RCOM=1 D P LD A1,XACK
0x153fcc…154160 Dummy {f00=0x0077, f01=0x0190, f02=»ING DWT D z 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE E P LDR* A2,A6 GET STA E D P XIF E ` P IFT RCOM=1 E l , P CF A5,PRREC PREPARE FOR TEXT RECEPTION E P LDK A1,0 SET RC=0 E ( P CF A5,CWRITE COMPLETE WRITE REQUEST E P CM CACK PRESET AC
0x154160…1542f4 (2, 265) Dummy {f00=0x0085, f01=0x0190, f02=»2,ENQ+PAR E P XIF =8 F P IFT P6805=1 =8 F $ P SUK A2,ENQ =8 F < P XIF =8 F T ( P RB(Z) BRM312 FORWARD ABORT SEQUENCE F f P RB BRM220 F PBRM320 EQU * F P IM XSTA INDICATE MESSAGE OK F $ P LD A4,DCRBUF GET BUFFER ADDRESS F P ADK
0x1542f4…154488 Dummy {f00=0x0085, f01=0x0190, f02=») BRM310 ESC NOT FOUND F P ADK A4,1 G P LCR A1,A4 GET COMMAND CODE G 0 P SUK A4,1 G T P SUK A1,RDBCOM G f ( P RF(Z) RDBUF READ MODIFIED RECEIVED G | P SUK A1,RDMCOM-RDBCOM G & P RF(Z) RDMOD READ BUFFER RECEIVED G P XIF G PBRM325 EQU *
0x154488…15461c Dummy {f00=0x0085, f01=0x0190, f02=»4,6 G P LD A6,FDWTIN GET INPUT DWT H P* H 0 " P* PREPARE FOR CHAINED COMMAND H : P* H ` P IFT RCOM=1 H j P LDR* A2,A6 H ~ P LC A2,TEBCDIC,A2 H P LD A1,DCRBUF H P RF(Z) BRM326 H P ST A2,+4,A1 H P XIF H PBRM326 EQU * H
0x15461c…1547b0 Dummy {f00=0x0085, f01=0x0190, f02=» P IFT EM3270=1 =4 I P LD A2,DWTOR,A6 ORDER =4 I & P RF(Z) BRM327 ANY MESSAGE ORDER =4 I > P XIF =4 I h P LDK A2,2 I z P CW A2,DWTOR,A6 I " P RF(NE) BRM330 NO READ REQUEST I PBRM327 EQU * I P LDK A1,0 SET RC=0 I $ P LD A8,DWTECB,A6
0x1547b0…154944 Dummy {f00=0x0085, f01=0x0190, f02=» I n ( P ST A2,ECBCW,A8 STORE REMAINING TIME J P J 4 P* J > P* J H 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC J R P* J P* J P IFT STAT=1 J P LC A2,+2,A4 GET WCC/CCC J P ANK A2,/FF J P LC A2,TEBCDI,A2 TRANSLATE J P ANK
0x154944…154ad8 Dummy {f00=0x0085, f01=0x0190, f02=» J P IFT EM3270=1 =4 K P LD A2,DWTOR,A6 ORDER =4 K " , P RF(NZ) BRM329 NOT ANY MESSAGE ORDER =4 K B & P SUK A4,6 ADJUST BUFFER ADDRESS =4 K r ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 K P RF BRM32A =4 K P XIF =4 K PBRM329 EQU * =4 K P K
0x154ad8…154c6c Dummy {f00=0x0085, f01=0x0190, f02=»F A15,TENDIO COMPLETE REQUEST K P RF BRM345 L & P L 8 PBRM330 EQU * L B P IFT EM3270=1 =4 L V P LD A1,DWTST,A6 STATUS =4 L p P RF(N) BRM335 NO REQUEST =4 L P LD A1,DWTOR,A6 ORDER =4 L , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 L & P C
0x154c6c…154e00 Dummy {f00=0x0085, f01=0x0190, f02=»UFFER FOR DCTASK L | . P CF A15,CKMESS COMPLETE DCTASK READ IF ANY M PBRM340 EQU * M J P CF A5,TRACK SEND ACK 0/1 M ^ P ABL BRM M PBRM345 EQU * M P IFT STAT=1 M P LD A1,DWTST,A6 M P ANK A1,8 M $ P RB(Z) BRM340 ACK SHOULD BE SENT M
0x154e00…154f94 (2, 266) Dummy {f00=0x0087, f01=0x018e, f02=» M , P* READ MODIFIED OR READ BUFFER RECEIVED N P* N 8 P* N B P IFF RCOM=0 N L $ PRDBUF EQU * READ BUFFER COMMAND N ` PRDMOD EQU * N " P CM XSEL RESET SELECT EXPECTED N 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL N $ P LD A4,DWTBUF,
0x154f94…155128 Dummy {f00=0x0087, f01=0x0190, f02=» N p P CM FDWTUT O P LDK A1,1 O & P XRS A1,CACK INCREMENT ACK COUNTER O , P DB O V * P LD A1,CRDBUF INCREMENT READ BUFFER DK O d P ADK A1,1 COUNTER DK O P ST A1,CRDBUF DK O P DE O P ABL POL127 O P XIF O P* O P* O
0x155128…1552bc Dummy {f00=0x0087, f01=0x0190, f02=» RF(NZ) BRM510 RETRANSMISSION OF MESSAGE O P OR A1,XSEL P 0 " P RF(Z) BRM410 IN CONTROL STATE P D . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE P j PBRM410 EQU * P P ABL BRM P P P P* P P* P P* NAK HAS BEEN RECEIVED P P* P P
0x1552bc…155450 Dummy {f00=0x0087, f01=0x018e, f02=»SEL P " P RB(Z) BRM410 IN CONTROL STATE Q P RF BRM636 Q 2 PBRM510 EQU * Q D P DB Q X P LDK A1,0 Q f P CIO A1,0,LCUIN DK Q x P SST A1,LCUIN DK Q P CF A15,STREG DK Q P CF A15,SETIME DK Q P DATA BRM520,TIMNAK DK Q P ABL T
0x155450…1555e4 Dummy {f00=0x0087, f01=0x0190, f02=» P LD A1,XSTA R 0 P ABL(NZ) POL050 STATUS HAS BEEN TRANSMITTED R P XIF R L 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK R X & P SU A1,FECBBA COMPUTE BUFFER INDEX R P ST A1,FBAX R P ABL POL130 R P* R P* R P* DLE HAS BEEN RECEIVE
0x1555e4…155778 Dummy {f00=0x0087, f01=0x0190, f02=»PECTED R x & P CF A5,READ READ SECOND CHARACTER S P IFF P6805=1 =8 S 8 P CWK A2,ACK0+PAR S P P XIF =8 S h P IFT P6805=1 =8 S z P CWK A2,ACK0 =8 S P XIF =8 S P RF(NE) BRM620 S P* S P* ACK , 0 RECEIVED S P* S P LD A1,C
0x155778…15590c Dummy {f00=0x0087, f01=0x0190, f02=»DURE TIMER S x P RB BRM410 T PBRM620 EQU * T $ P CWK A2,ACK1 T 8 P RF(NE) BRM650 T L P* T b P* ACK , 1 RECEIVED T l P* T P LD A1,CACK GET ACK COUNTER T $ P RB(Z) BRM610 ACK,1 NOT EXPECTED T PBRM630 EQU * T P LD A1,XETX T P RF(
0x15590c…155aa0 Dummy {f00=0x0087, f01=0x018e, f02=»M635 EQU * T P IFF STAT=0 U P LD A2,XSTA U & . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED U : P XIF U l ( P CF A5,CWRITE COMPLETE WRITE REQUEST U x PBRM636 EQU * U P CF A5,TREOT SEND EOT U P IFT RCOM=1 U P U P CM XRB RESET READ BUF
0x155aa0…155c34 (2, 267) Dummy {f00=0x0087, f01=0x0190, f02=» U PBRM650 EQU * V P IFF P6805=1 =8 V P CWK A2,RVI+PAR V 4 P XIF =8 V L P IFT P6805=1 =8 V ^ P CWK A2,RVI =8 V v P XIF =8 V ( P RB(NE) BRM610 INVALID DLE SEQUENCE V " P CM XACK RESET 'EXPECTING ACK' V P LD A1,XETX V $ P R
0x155c34…155dc8 Dummy {f00=0x0087, f01=0x0190, f02=»35 V P IFF STAT=0 W P W P* W ( P* W 2 " P* STATUS HAS BEEN TRANSMITTED W < P* W b P* W l PBRM670 EQU * W v " P LD A6,FDWTUT GET DWT ADDRESS W , P CF A15,REMOVS REMOVE FROM STATUS QUEUE W P CM XSTA CLEAR 'STATUS SENT' W " P CM
0x155dc8…155f5c Dummy {f00=0x0087, f01=0x018e, f02=» ANS A1,DWTST,A6 CLEAR STATUS W P RB BRM636 X & P XIF X 8 P X D P* X N P* X X P* SELECT HAS BEEN RECEIVED X b P* X P* X PSELECT EQU * X P LD A1,XACK =5 X * P RF(NZ) POL010 ERROR. ACK EXPECTED =5 X P IFF STAT=0 X P L
0x155f5c…1560f0 Dummy {f00=0x0087, f01=0x0190, f02=» P XIF Y P IFF STAT=1 Y P RF SEL110 Y $ P XIF Y 6 PSEL100 EQU * Y B P ABL BRM Y V PSEL110 EQU * Y f P IFT STAT+NOWACK=1 Y z P ANK A3,8 Y P RF(NZ) SEL115 BUSY Y P XIF Y P IFT STAT+NOWACK=2 Y P ANK A3,8 Y " P RF(Z) SEL111
0x1560f0…156284 Dummy {f00=0x0087, f01=0x0190, f02=») SEL120 BUFFER AVAILABLE Y PSEL115 EQU * Z " P IFF STAT+NOWACK=2 Z 6 P CF A5,TRWACK SEND WACK Z P P XIF Z p P RB SEL100 Z | PSEL120 EQU * Z , P CF A5,PRREC PREPARE FOR TEXT RECEPTION Z P CF A5,TRACK SEND ACK,0 Z P RB SEL100 Z P Z
0x156284…156418 Dummy {f00=0x0087, f01=0x018e, f02=»M FBAX RESET BUFFER INDEX Z P IFT CODE=1 [ " . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC [ 6 P XIF [ h $ P ST A2,+4,A1 SAVE STA IN BUFFER [ t P IM XSTA [ " P ST A6,FDWTIN STORE INPUT DWT [ P RTN A5 [ P [ P* [ P* [ $ P* GENERA
0x156418…1565ac Dummy {f00=0x0087, f01=0x0190, f02=» " PPOL010 CF A5,TRENQ SEND ENQ =5 * P CF A5,SPTIM START PROCEDURE TIMER =5 * " P ABL BRM WAIT FOR RESPONSE =5 X PPOL020 EQU * =5 ~ " P CF A5,CPTIM CHECK POLL TIMER P IFF STAT=0 P LD A6,DCSTQ & P RF(Z) POL110 NO STATUS TO BE SENT
0x1565ac…156740 Dummy {f00=0x0087, f01=0x018e, f02=» P IM XACK SET 'ACK EXPECTED' ] P XIF ] ( P IFF STAT=1 ] 4 P RF POL110 ] H P XIF ] Z PPOL100 EQU * ] f P ABL BRM ] z PPOL110 EQU * ] P LD A6,DCWRQ ] " P RF(NZ) POL120 WRITE ON QUEUE ] PPOL115 EQU * ] P CF A5,TREOT SEND EOT ]
0x156740…1568d4 (2, 268) Dummy {f00=0x0089, f01=0x0190, f02=» P RF(NZ) POL126 ^ P CF A15,REMOVW ^ P RB POL115 ^ 0 PPOL126 EQU * ^ B P ST A8,FECB SAVE ECB ADDRESS ^ V P ST A6,FDWTUT SAVE A6 ^ z P ^ P IFF MMUPAG=0 ^ $ P LDKL A4,MMUBUF MMU WORK BUFFER ^ P ST A4,ECBBA,A8 ^ . P CF A15,DC:MOT MOV
0x1568d4…156a68 Dummy {f00=0x0089, f01=0x0190, f02=» & P ST A4,FECBBA SAVE BUFFER ADDRESS _ P ST A3,FECBRL SAVE LENGTH _ . P CM FBAX RESET BUFFER INDEX _ P PPOL130 EQU * _ t P CM XETX RESET 'ETX SENT' _ P CM XSTA _ P CF A5,TRTEXT SEND ONE BLOCK _ & P CF A5,SPTIM START PROCEDURE TIMER _ P
0x156a68…156bfc Dummy {f00=0x0089, f01=0x0190, f02=»* _ PSPOLL EQU * ` P IFF STAT+SPECP=0 ` P LD A1,XACK =5 ` 8 " P RB(NZ) POL010 ACK EXPECTED =5 ` P P LDR A7,A6 SAVE A6 ` v P CF A5,CPTIM CHECK POLLTIMER ` P LDR A6,A7 RESTORE A6 ` P IFT STAT=1 ` P LD A1,DWTST,A6 GET STATUS ` P
0x156bfc…156d90 Dummy {f00=0x0089, f01=0x0190, f02=»EQUEST ` ~ P LD A1,DWTOR,A6 GET ORDER a P SUK A1,6 a 0 P RB(Z) POL125 WRITE REQUEST a B P SUK A1,2 a f " P RB(Z) POL125 EXCHANGE REQUEST a x P XIF a P RB POL115 SEND EOT a P a P* a P* a 8 P* CHECK IF THERE IS A WRITE REQUEST
0x156d90…156f24 Dummy {f00=0x0089, f01=0x0190, f02=»TE GOING ON a | P LD A2,DWTST,A6 b P RF(N) CWR900 NO REQUEST b , P LD A2,DWTOR,A6 GET ORDER b L P SUK A2,6 b n P RF(Z) CWR100 WRITE REQUEST b P SUK A2,2 b ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST b P LDR A1,A1 b 2 P RF(NZ) CWR100 TRANS
0x156f24…1570b8 Dummy {f00=0x0089, f01=0x0190, f02=»D A8,FECB GET ECB ADDRESS b P CF A15,CTIME STOP TIMING c " P LDR A8,A8 c D P RF(Z) CWR150 c V P ST A2,ECBCW,A8 c l $ P CF A15,TENDIO COMPLETE REQUEST c PCWR150 EQU * c * P CF A15,REMOVW REMOVE FROM WRITE QUEUE c PCWR200 EQU * c PCWR900
0x1570b8…15724c Dummy {f00=0x0089, f01=0x0190, f02=»K c | P* d P* ON EXIT A3 CONTAINS : d ( P* 0 : IF CORRECT ETX BLOCK RECEIVED d 4 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW d ` ( P* 2 : IF CORRECT ETB BLOCK RECEIVED d P* d PRDMESS EQU * d $ P LD A4,DCRBUF GET BUFFER ADDRESS d P
0x15724c…1573e0 Dummy {f00=0x0089, f01=0x0190, f02=»NDEX d v P SUR A1,A4 e P ST A1,FBAX e PRDM050 EQU * e 2 P AD A4,FBAX ADD BUFFER INDEX e F ( P ST A4,FBLST REMEMBER START OF BLOCK e j PRDM075 EQU * e P CM XSTA e P LDK A7,0 RESET LRC e P e P IFT IBMCHR=1 e P LD A1,FBAX e " P
0x1573e0…157574 (2, 269) Dummy {f00=0x008a, f01=0x0190, f02=» CF A5,READP SKIP NEXT TWO CHARACTERS e P CF A5,READP f . P XIF f B PRDM100 EQU * f N $ P CF A5,READP READ ONE CHARACTER f b P RF(NZ) RDM120 PARITY ERROR f PRDM110 EQU * f P CWK A2,ETX f P RF(E) RDM130 ETX RECEIVED f P CWK A2,ETB f
0x157574…157708 Dummy {f00=0x008a, f01=0x0190, f02=»Q EMBEDDED IN MESSAGE f x P CWK A2,/FF g $ P RF(E) RDM140 MARK HOLD RECEIVED g 2 P g Z P IFT CODE=0 g b P IFT BINTRM=1 g v P g P LDR A1,A2 g P SUK A1,DC1+3 g P RF(P) RDM115 NOT DC1-DC3 g P ADK A1,3 g P RF(N) RDM115 NOT DC1-DC
0x157708…15789c Dummy {f00=0x008a, f01=0x0190, f02=»/20 ASSEMBLE TO ONE CHARACTER g P ORR A2,A8 h & PRDM115 EQU * h 8 P XIF h L P h X P SCR A2,A4 STORE CHARACTER h ` P ADK A4,1 INCREMENT POINTER h $ P IM FBAX INCREMENT BUFFER INDEX h P LD A1,FBAX h P CWK A1,RBUFL+RBUFL h P RB(NG) RD
0x15789c…157a30 Dummy {f00=0x008a, f01=0x018e, f02=»CATE INVALID MESSAGE h P SUK A2,/7F i $ P RF(Z) RDM150 MARK HOLD RECEIVED i 0 P RB RDM100 i X P* i j P* ETX RECEIVED i t P* i PRDM130 EQU * i $ P LD A1,DCRBUF GET BUFFER ADDRESS i P LD A2,FBAX GET BUFFER INDEX i 2 P ST A2,+2,A1 STORE E
0x157a30…157bc4 Dummy {f00=0x008a, f01=0x018e, f02=» & P CF A5,RDCRC READ CRC AND CHECK IT j P RF(E) RDM150 CRC WAS OK j . P XIF j N PRDM140 EQU * j Z & P LDK A3,1 INDICATE INVALID MESSAGE j n PRDM150 EQU * j $ P LDR A7,A3 SAVE RESULT REGISTER j P CF A5,HALTIN HALT INPUT j P IFT P6805=1 j " P
0x157bc4…157d58 Dummy {f00=0x008a, f01=0x0190, f02=» P LDR A3,A3 k " P RB(NZ) RDM130 ALREADY INVALID k " P LDK A3,2 INDICATE CORRECT ETB k < P RB RDM130 k b P* k t P* ITB RECEIVED k ~ P* k PRDM170 EQU * k P IFF CODE=1 k P CF A5,RDLRC k " P RB(NZ) RDM120 LRC WAS NOT OK k P XIF k
0x157d58…157eec Dummy {f00=0x008a, f01=0x0190, f02=» k P* l P* TRANSMIT ACK 0 OR 1 l P* l 0 PTRACK LDK A2,1 l : P LDK A3,ACK1 PRELOAD ACK1 l P & P XRS A2,CACK INCREMENT ACK COUNTER l r P RF(NZ) TRDLE l P LDK A3,ACK0 LOAD ACK0 l P RF TRDLE l P* l P* TRANSMIT WACK l P* l
0x157eec…158080 Dummy {f00=0x008a, f01=0x0190, f02=»VI LOAD RVI l P XIF m P* m P* TRANSMIT DLE m * P* m @ PTRDLE LDK A2,DLE LOAD DLE m J " P SC A2,RESEND PUT INSAVE AREA m l P SC A3,RESEND+1 m P RF TRREP m P m P* m P* TRANSMIT NAK m P* m PTRNAK LDK A3,NAK LOAD NA
0x158080…158214 (2, 270) Dummy {f00=0x008a, f01=0x0190, f02=»ANSMIT ENQ m P* n PTRENQ LDK A3,ENQ LOAD ENQ n P* n > ( PTREN10 SC A3,RESEND PUT IN SAVE AREA n H P LDK A2,/FF n t P SC A2,RESEND+1 n $ PTRREP CF A5,TRSYNC START OUTPUT n & P LC A2,RESEND GET FIRST CHARACTER n P CF A5,WRITEP SEND IT
0x158214…1583a8 Dummy {f00=0x008a, f01=0x018e, f02=» LDK A2,/FF n P CF A5,WRIT05 o P LDK A2,0 SALCUZ o * $ P CIO A2,0,LCUUT STOP TRANSMITTER o D P IFT P6805=1 SALCUZ o l $ P CF A5,READ WAIT FOR END SALCUZ o P XIF SALCUZ o & P SST A2,LCUUT PERFORM SST AT ONCE o P IFF LOGG=0 o ( P CF
0x1583a8…15853c Dummy {f00=0x008a, f01=0x0190, f02=» o P* p PTRTEXT EQU * p P CF A5,TRSYNC START OUTPUT p & P IFT TSTREQ=1 p H P* p ^ P* p h P* TEST REQUEST HANDLING p r P* p P* p P LD A4,FBAX p ( P RF(NZ) TRT050 NOT START OF MESSAGE p P p 2 P LD A1,XRB READ BUFFER COM
0x15853c…1586d0 Dummy {f00=0x008a, f01=0x0190, f02=»0 p $ P RF(NZ) TRT050 NOT TEST REQUEST q P LDK A2,SOH q 2 P CF A5,WRITE SEND SOH q F P LDK A7,0 RESET BCC q d P LDK A2,'%' q P CF A5,WRITE SEND % q P LDK A2,'/' q P CF A5,WRITE SEND / q P LDK A2,STX q P CF A5,WRITE SEND ST
0x1586d0…158864 Dummy {f00=0x008a, f01=0x0190, f02=»2,3 q P ST A2,FBAX r P RF TRT100 r PTRT050 EQU * r 2 P* r F P* r P P* r Z P XIF r d P LDK A2,STX r p P CF A5,WRITE SEND STX r P LDK A7,0 RESET LRC r $ P LD A4,FECBBA GET BUFFER ADDRESS r P AD A4,FBAX ADD BUFFER INDEX r (
0x158864…1589f8 Dummy {f00=0x008a, f01=0x0190, f02=»00 NOT FIRST BLOCK r P LC A2,DW1500 GET TCA s P CF A5,WRITEP SEND TCA s 8 P LDR* A2,A6 GET STA s V P CF A5,WRITEP SEND STA s r P IFT IBMCHR=1 s P IFF RCOM=1 s " P LDK A2,/27 SEND ENTER AS AID s P CF A5,WRITEP s " P LDK A2,/20 AND CU
0x1589f8…158b8c Dummy {f00=0x008a, f01=0x0190, f02=»EAD BUFFER COMMAND ??? s P RF(Z) TRT070 NO!! t P t 8 P ******************** t @ " P LDK A2,X'2D' AID FOR DISPLAY t ` PTRT060 CF A5,WRITEP SEND AID t P t $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS t . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER t
0x158b8c…158d20 Dummy {f00=0x008a, f01=0x0190, f02=»CR A2,A4 GET ONE CHARACTER t P ADK A4,1 INCREMENT POINTER u " P ANK A2,/7F u F P IFT RCOM=1 u Z & P LD A1,XRB READ BUFFER COMMAND ??? u n P RF(Z) TRT105 NO!! u P u @ P************************************************************ u P* u , P
0x158d20…158eb4 (2, 271) Dummy {f00=0x008a, f01=0x0190, f02=»ATTRIBUTE CHARACTER u P RF(L) TRT101 YES!!! v P XIF v 8 P IFT DMRK=1 v D P CWK A2,/7E LINE FEED ? v X " P RF(NE) TRT102 NO,GO TO TRT102 v x P LDK A2,/0A v PTRT102 EQU * v P CWK A2,/7D END OF MESSAGE ? v " P RF(NE) TRT103 NO,GO TO TRT103
0x158eb4…159048 Dummy {f00=0x008a, f01=0x018e, f02=»COM=1 v P RF TRT105 w P w PTRT101 EQU * w ( P w < P LDK A2,SF w D " P CF A5,WRITEP SEND START FIELD w V P w | ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER w P ANK A2,X'7F' w ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE w P ANK A1,1 w P ANK
0x159048…1591dc Dummy {f00=0x008a, f01=0x0190, f02=» w ~ & P CWK A2,/18 CHECK SPECIAL ATTRIBUT x P RF(NE) TRT104 x 2 P LDK A2,/30 x H PTRT104 EQU * x P CF A5,WRITEP SEND ATTRIBUTE x p P ADK A3,1 x P RF TRT110 x P XIF x PTRT105 EQU * x P x P CF A5,WRITEP SEND CHARACTER x PTR
0x1591dc…159370 Dummy {f00=0x008a, f01=0x018e, f02=»ND OF MESSAGE x * P ADK A3,1 INCREMENT CHARACTER COUNTER y P CWK A3,TBLEN y D P RB(L) TRT100 NOT FULL BLOCK y Z P IFT RCOM=1 y ~ , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK y P CC A1,-2,A4 y P RF(E) TRT115 YES y P CC A1,-1,A4 y P RF(
0x159370…159504 Dummy {f00=0x008a, f01=0x018e, f02=» P IM FBAX INCREMENT INDEX z . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA z $ P CF A5,WRITEP SEND IT z V P IM FBAX INCREMENT INDEX z t P XIF z PTRT116 EQU * z P LDK A2,ETB LOAD ETB z PTRT120 EQU * z P CF A5,WRITEP SEND IT z P IFF C
0x159504…159698 Dummy {f00=0x008a, f01=0x0190, f02=» P LDR A2,A7 { P ANK A2,/FF { " P CF A5,WRIT05 SEND CRC BYTE 1 { * P ECR A2,A8 { P P ANK A2,/FF { b " P CF A5,WRIT05 SEND CRC BYTE 2 { v P XIF { P ABL TRRE10 HALT OUTPUT { PTRT130 EQU * { P IM XETX INDICATE 'ETX SENT' { PTRT140 E
0x159698…15982c Dummy {f00=0x008a, f01=0x0190, f02=» P* | P* | P IFF STAT=0 | PTRSTA EQU * | , $ P IM XSTA INDICATE 'STATUS SENT' | @ P ST A6,FDWTUT SAVE A6 | h P CF A5,TRSYNC START OUTPUT | P LDK A2,SOH | P CF A5,WRITE SEND SOH | P LDK A7,0 REST LRC | P LDK A2,'%' | P
0x15982c…1599c0 Dummy {f00=0x008a, f01=0x0190, f02=»,DW1500+1 | P CF A5,WRITEP SEND TCA } P LDR* A2,A6 } 0 P CF A5,WRITEP SEND STA } D P LD A1,DWTST,A6 GET STATUS } b P ANK A1,/06 MASK FOR S/S 0 } P SRL A1,1 } $ P LC A2,SSTAB,A1 GET STATUS BYTE } P CF A5,WRITEP SEND S/S 0 } P LDK A2,
0x1599c0…159b54 (2, 272) Dummy {f00=0x008b, f01=0x0190, f02=»ST10 NO IR IF DE } P LDK A2,IR ~ PTRST10 EQU * ~ * P CF A5,WRITEP SEND S/S 1 ~ > P RB TRT130 SEND ETX AND LRC ~ ^ P XIF ~ P ~ P* ~ P* ~ P* TRANSMIT SYNC SEQUENCE ~ P* ~ P* ~ PTRSYNC EQU * ~ P LDK A2,0 SALCUZ ~
0x159b54…159ce8 Dummy {f00=0x008b, f01=0x0190, f02=» CIO A2,1,LCUUT START TRANSMITTER ~ P RF(A) TRS050 OK, GO ON. * ( P SST A2,LCUUT OH OH, SAVE IT...... L P CF A5,LOGSST x P RB TRS020 TRY AGAIN.... DSB P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=1 SALCUZ P LDK A2,
0x159ce8…159e7c Dummy {f00=0x008b, f01=0x0190, f02=»005 SALCUZ P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ , PTRS010 EQU * SALCUZ R P LDK A2,SYNEBC SALCUZ n 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ
0x159e7c…15a010 Dummy {f00=0x008b, f01=0x0190, f02=»RS005 SALCUZ P ABL BRM SALCUZ " PTRS005 CIO A2,1,LCUUT SALCUZ . PTRS010 EQU * T P LDK A2,SYN SALCUZ h 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ P XIF SALCUZ PTRS050 EQU * DSB * P CF A5,READ WAIT FOR OUTPUT IN
0x15a010…15a1a4 Dummy {f00=0x008b, f01=0x0190, f02=» RTN A5 P P* P* $ P* RECEIVER INTERRUPT . P* L P* V PIH1501 EQU * ` P ST P,INTSAV t P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P
0x15a1a4…15a338 Dummy {f00=0x008b, f01=0x0190, f02=» P IFF LOGG=0 ( P CF A5,LOGIN LOG RECEIVED CHARACTER P XIF D P IFF CODE=1 P P C2 SYNSW d P RF(NZ) IHLCI2 v P CWK A2,SYN SKIP SYNS P RF(E) READ " PIHLCI2 XRR A7,A2 CALCULATE LRC P XIF P IFT CODE=1 P C2
0x15a338…15a4cc Dummy {f00=0x008b, f01=0x0190, f02=» * P CF A5,CRCCAL CALCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII . P XIF Z PIHIN10 RTN A5 f P IFT P6805=0 SALCUZ | PIHIN20 CF A5,SST PERFORM SST P ABL BRM P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF
0x15a4cc…15a660 Dummy {f00=0x008b, f01=0x0190, f02=»IH1502 EQU * P ST P,INTSAV P IFT CPU852=1 ( P CF A15,SAVE8 SAVE A1 - A8 > P XIF ` P l P IFF CPU852=1 t P MSR 8,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RB IHIN10 P P*
0x15a660…15a7f4 (2, 273) Dummy {f00=0x008b, f01=0x0190, f02=» ONLY) SALCUZ t , P* BIT 14=THROUGHPUT ERROR , P* BIT 15=MODEM NOT READY F P* v PSST SST A1,LCUIN P IFT P6805=1 SALCUZ 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ P XIF SALCUZ P LDR A2,
0x15a7f4…15a988 Dummy {f00=0x008b, f01=0x0190, f02=» SST100 P XIF SALCUZ P IFT P6805=1 SALCUZ & P ANK A2,6 SALCUZ B P RF(Z) SST100 SALCUZ P ANK A2,2 SALCUZ z & P RF(NZ) SST050 THROUGH PUT SALCUZ & P LDK A1,1 SET PARITY ERROR SALCUZ P RF SSTRET SALCUZ P XIF
0x15a988…15ab1c Dummy {f00=0x008b, f01=0x0190, f02=» PSST100 EQU * P ST A1,DCSTCU P IFT P6805=0 SALCUZ . * P CF A15,CKMESS CHECK IF STATUS CHANGE J P RTN A5 x P XIF SALCUZ P IFT P6805=1 SALCUZ P ANK A1,/21 SALCUZ P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE
0x15ab1c…15acb0 Dummy {f00=0x008b, f01=0x0190, f02=»SST200 LDK A1,0 SALCUZ PSSTRET ADK A5,4 SALCUZ P LDR A1,A1 SET CR SALCUZ @ P ABR* A5 RETURN SALCUZ ` P XIF SALCUZ ~ P* P* P* HALT INPUT P* P* PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P
0x15acb0…15ae44 Dummy {f00=0x008b, f01=0x0190, f02=»F READ WAIT FOR SST INTERRUPT SALCUZ P XIF SALCUZ , P B P* L P* V , P* WRITE FROM OR READ ONE CHARACTER TO A2 ` P* P* PWRITE EQU * P IFT CODE=1 P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRA
0x15ae44…15afd8 Dummy {f00=0x008b, f01=0x0190, f02=»CTER v P RF(A) WRIT10 P IM DCTHER DSB " P RF READ THROUGHPUT ERROR : P IFF CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC p P XIF P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CRC P XIF P IFF LOGG=0 & P CF A5
0x15afd8…15b16c Dummy {f00=0x008b, f01=0x0190, f02=»WRITEP P* P* WRITE A2 WITH PARITY P* 8 P* B P IFT CODE+P6805=0 SALCUZ L PWRITEP ANK A2,/FF n P ECR A1,A2 P ORK A2,/80 PWRI100 SLL A1,1 P RB(P) WRI100 P RB(Z) WRITE WRITE P XRK A2,/80
0x15b16c…15b300 Dummy {f00=0x008b, f01=0x0190, f02=»READP P* . P* READ CHARACTER TO A2 AND CHECK PARITY P* J P* T PREADP CF A5,READ ^ P IFT CODE+P6805=0 SALCUZ v P ECR A1,A2 PRE100 SLL A1,1 P RF(Z) RE110 P RB(NN) RE100 P XRK A2,/80 P RB RE100
0x15b300…15b494 (2, 274) Dummy {f00=0x0091, f01=0x0190, f02=»5,4 P ANK A1,/80 P XRK A1,/80 P ABR* A5 4 P D P* N < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 X P* $ P* CALLING SEQUENCE: CF A5,FINTER P* A2=SUBTERMINAL ADDRESS P* A4 DESTROYED " P* A3#0:
0x15b494…15b628 Dummy {f00=0x0091, f01=0x0190, f02=»LECT ADDRESS v , P* FINTEP - CHECK SPECIFIC POLL ADDRESS P* D . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE N P* P* PFINTEP EQU * P IFT MSV1=0 PFINTER EQU * P XIF P IFT MSV1=1 PFINTER EQU * P XIF
0x15b628…15b7bc Dummy {f00=0x0091, f01=0x0190, f02=»NT10 SUK A4,2 P LDK A3,0 DEFAULT VALUE P CW A4,DCTAB END OF TABLE 6 ( P RF(E) FINTNO SUBTERMINAL NOT FOUND X P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 $ P LDR A6,A3 SAVE DWT ADDRESS DK? $ P AD A3,RBYTE CHOOSE ADDRESS TYPE
0x15b7bc…15b950 Dummy {f00=0x0091, f01=0x0190, f02=»1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF > & P RB(NE) FINT10 TAKE NEXT TERMINAL J PFINT20 CM RBYTE t " P LDR A3,A6 GET DWT ADDRESS DK? P ANKL A3,/FFFE P RTN A5 PFINTNO EQU * DK $ P LDK A6,0 RETURN = NOT F
0x15b950…15bae4 Dummy {f00=0x0091, f01=0x0190, f02=»FT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF 4 P @ P IFF CPU852=1 H P MSR 8,A15 SAVE A1-A8 =1 ^ P XIF ~ P IFT STAT=1 P LDK A5,4 SET DEVICE END P LD A1,DCTAB . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC
0x15bae4…15bc78 Dummy {f00=0x0091, f01=0x0190, f02=»ICE END FOR DEVICE v ( P CF A15,INSSQ INSERT IN STATUS QUEUE P RB DRDC05 F PDRDC06 EQU * X P XIF l P LDK A2,/40 x P ORS A2,DCONOF P CF A15,CKMESS ( P LD A2,DCTPGP GET POLL TIMER POINTER " P RF(NZ) DRDC20 ALREADY STARTED *
0x15bc78…15be0c Dummy {f00=0x0091, f01=0x0190, f02=» DSB PDRDC25 EQU * * P LD A2,DW1500 CLUSTER ADDR. VALID DK4 $ 0 P RF(Z) DRDC30 NO, WAIT FOR TRANS. PARAM. DK4 R P ABL BRM PDRDC30 EQU * , P CF A15,SETIME WAIT AWHILE, (2 SECS) DK4 & P DATA DRDC25,20 T-O ADDR,TIME DK4 . P
0x15be0c…15bfa0 Dummy {f00=0x0091, f01=0x018e, f02=»BASE p P LDK A2,/40 ( P ST A2,DCONOF INDICATE POLL TIME OUT * P CF A15,CKMESS CHECK IF STATUS CHANGE L $ P CF A15,SPOTIM START POLL TIMER z P ABL TDISP P* 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED P* $ PCPTIM CM
0x15bfa0…15c134 (2, 275) Dummy {f00=0x0092, f01=0x0190, f02=» P RTN A5 P* P* START POLL TIMER P* 8 $ PSPOTIM CF A15,SETIME START TIMER B P DATA PTOUT,TIMPOL j & P ST A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 P ABR* A15 P P* P* START PROCEDURE TIMER P
0x15c134…15c2c8 Dummy {f00=0x0092, f01=0x0190, f02=»E TIMER POINTER P RTN A5 P* ( P* PROCEDURE TIMEOUT 2 P* N PPRTOUT CM DCTPP X P LDR A6,A1 RELOAD A6 p P LDKL A5,STB LOAD STACK BASE , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ P LD A1,XACK " P RF(Z) PRT10 ACK NOT
0x15c2c8…15c45c Dummy {f00=0x0092, f01=0x0190, f02=»OP PROCEDURE TIMER P* ( PHPTIM LD A1,DCTPP GET TIMER POINTER $ P RF(Z) HPT10 NOT RUNNING P P CM* DCTPP STOP TIMER p P CM DCTPP PHPT10 RTN A5 P P IFT CODE=1 P* P* P* CALCULATION OF CRC P*
0x15c45c…15c5f0 Dummy {f00=0x0092, f01=0x0190, f02=» P ST A3,CRCSAV+4 P LDK A1,8 PCRC100 LDR A3,A7 2 P SRL A7,1 J P XRR A3,A2 P SRL A2,1 n P ANK A3,1 P RF(Z) CRC110 P XRKL A7,/A001 PCRC110 SUK A1,1 P RB(NZ) CRC100 P LD A1,CRCSAV P LD A2
0x15c5f0…15c784 Dummy {f00=0x0092, f01=0x0190, f02=»ECK THEM t P* CR = (E) IF CRC WAS OK P* 0 P* : $ PRDCRC LDR A6,A7 SAVE CURRENT CRC D $ P IM SYNSW DO NOT SKIP SYNCS NOW l P CF A5,READ READ BYTE 1 P LD A8,CRCSAV+2 SAVE IT P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN
0x15c784…15c918 Dummy {f00=0x0092, f01=0x0190, f02=»D WITH COMPUTED v P ABR* A5 P XIF ( P IFT CODE=0 4 P* H & P* RDLRC READ LRC CHARACTER R " P* CR=0 IF LRC OK | P* PRDLRC IM SYNSW P CF A5,READP P ADK A5,4 P LDR A1,A1 P RF(NZ) LRCEND
0x15c918…15caac Dummy {f00=0x0092, f01=0x0190, f02=»VICE WORK TABLE FOR DCTASK P* " P* , PDW1500 EQU * TABLE ENTRY 6 P DATA 0 CU LINE ADDRESS V P DATA /8000 STATUS v P DATA 0 ECB ADDRESS P DATA 0 ORDER * P DATA DC15DC POINTER TO ADDRESS BLOCK P DATA 0 TTAB ADDRESS
0x15caac…15cc40 Dummy {f00=0x0092, f01=0x0190, f02=»ATA DC:ECB MMU ECB ADDRESS P XIF " P* . P DATA 0 TIMER POINTER 8 ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE V . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) " P DATA 0 RECEIVE MESSAGE QUEUE , P DATA 0 SIMULATED DEVICE BUFFER ADDRESS
0x15cc40…15cdd4 (2, 276) Dummy {f00=0x0095, f01=0x0190, f02=»0,0,0,0,0,0 P XIF P* P * P* 4 P* > P* DC RECEIVE BUFFER POOL H P* h PRLINK EQU RBUFL+RBUFL+8 r P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR P IFF RBUFNR=2 P DATA *+RLINK P RES RBU
0x15cdd4…15cf68 Dummy {f00=0x0095, f01=0x0190, f02=» P XIF P DATA *+RLINK P RES RBUFL+3 & P DATA 0 END OF CHAIN : P RES RBUFL+3 V P j P IFF MMUPAG=0 r & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF P P* P* P* INTERRUPT LOGGING ROUTINE P*
0x15cf68…15d0fc Dummy {f00=0x0095, f01=0x0190, f02=»00 P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOGE10 4 P ST A2,SAVE2 J PLOG10 ST A3,SAVE3 ^ P LD A3,LOGPNT x P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPN
0x15d0fc…15d290 Dummy {f00=0x0095, f01=0x0190, f02=»QU * P RES 1000 PLOGEND EQU *-4 PSAVE2 DATA 0 4 PSAVE3 DATA 0 H P XIF P* h P* r P* | P IFT RCOM=1 P < P******************************************************* P* P* L I N C O L P
0x15d290…15d424 Dummy {f00=0x0095, f01=0x0190, f02=»**** Z P PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS ( P SRL A2,6 N P ANK A2,X'3F' ` & P LC A2,LICO:T,A2 ASCII LINE NUMBER v " P CF A5,WRITEP SEND LINE NUMBER P P LDR A2,A3 P ANK A2,X'3F' ( P LC A2,LICO:T,A2 A
0x15d424…15d5b8 Dummy {f00=0x0095, f01=0x0190, f02=»* SCANDINAVIAN ALPHABET P DB $ PLICO:T EQU * 2 * P DATA /2041,/4243,/4445,/4647 /00-/07 F * P DATA /4849,/232E,/3C28,/2B21 /08-/0F t * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F * P DATA /2D2
0x15d5b8…15d74c Dummy {f00=0x0095, f01=0x413e, f02=»9,/3A5B,/5C27,/3D22 /38-3F P DE " P XIF 0 P < P F PDC:IN DATA DC:TAB+2 N PDCTAB DATA DC:TAB j " PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 PDC
0x15d74c…15d8e0 Dummy {f00=0x0095, f01=0x2008, f02=» H P X ` h p x
0x15d8e0…15da74 (2, 277) Dummy {f00=0x0096, f01=0x0190, f02=» : # / W # / # "N # / # # ' / )z C "N )z C )z &P C )z & C : # "R V I ' # ( T _& @&^X, @&` _6 )z V G 9h ' ' W #> "R # $J $ # P
0x15da74…15dc08 Dummy {f00=0x0096, f01=0x0190, f02=»)z P _B # B )z 'W # ( Wj )z # $ W # ^ ( 1W C C C ( ' Pb # I "%@P "% P& B C C 4 "5 # B P B P B 5 P C P B % P C + %| '
0x15dc08…15dd9c Dummy {f00=0x0096, f01=0x0190, f02=»# # % Y ( C )z & R V C )z : B T T T V : 2 ' W 2 6 2 @ L" T # ' ?D * W"' #? * ;D:B " : _ )z C : : # $ ( P C W $0 P C $r
0x15dd9c…15df30 Dummy {f00=0x0096, f01=0x0190, f02=» W Q W %8 %p 4 ! P T 0P(W$ 8 C S W C C 0 P C ;a 6 4 ZH T : 49d_Z B@5 @ 8 @N ' @ d P ( z= #0 T B 'W B B " P&N &^PP L&@
0x15df30…15e0c4 Dummy {f00=0x0096, f01=0x0190, f02=» T U :B@ ' d &^ & & & ' ( ' ( ,d6 6 +p.`/ / ( ( ( ( (R' ( ( 2 6 5 5N5l6 5(( ( ( ( W V 7 P P W & V X _ ' 9c D&b )z ( Q &pW +p :aW _B( 2 P V W8
0x15e0c4…15e258 Dummy {f00=0x0096, f01=0x0190, f02=» D& 2 ! 9B V T W V P D $ V 6 V % V E @ L' T 2 % 7_ 2 # L )z 2" &] Y $! 6P Q $ T 9B 'D _ _ 6 @ L" T 7 $ V P W _ &. ' +6 V & '4 H& 'W
0x15e258…15e3ec Dummy {f00=0x0096, f01=0x0190, f02=» T Z L L( D V, W # * L( E V $ W D V L( , Wn 6 2 * W " P " # * ;b WF " ;d# _ [ v [ : )z F Z Z : :B , (Vj ; [ [ )z z ;AV$ Z H #
0x15e3ec…15e580 Dummy {f00=0x0096, f01=0x0190, f02=»P [ 6 [ Z 7 ( Z 7 : ( :A ( @ L" P [ :;H 2 P ;h * : ) ; V Y : 2! : 6 2 * W& " # * ;b ; : ;f" #?_" P8" T * & : * & !`P :J +_ +
0x15e580…15e714 (2, 278) Opaque[0x194]
0x15e714…15e8a8 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b78, f03=0x0000}
0x15e714…15e8a8 IdxSect {
0x15e714…15e8a8 f00 = 0x005b // 0x15e714 @0x0
0x15e714…15e8a8 f01 = 0x0004 // 0x15e716 @0x2
0x15e714…15e8a8 gno = [ // 0x15e718 @0x4
0x15e714…15e8a8 [0x00]: C0x005b.0x3.0
0x15e714…15e8a8 [0x01]: C0x005c.0x0.0
0x15e714…15e8a8 ]
0x15e714…15e8a8 }
0x15e8a8…15ea3c Dummy {f00=0x005b, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 P 8 P* @ 4 P************************************************ J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x15ea3c…15ebd0 Dummy {f00=0x005b, 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 0 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU 0 P* : P* VERSION FOR SCAND. AL
0x15ebd0…15ed64 Dummy {f00=0x005b, f01=0x0190, f02=»7C 5C P* 00 7C P* 5A 24 P* 6A 40 . P EJECT > P* L P* V 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII ` P* P* PTASCII EQU * P IFT CODE=1 ( P DATA /7F01,/0203,/0009,/0000 00-07 ( P DATA /000
0x15ed64…15eef8 Dummy {f00=0x005b, f01=0x0190, f02=»000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F ( P DATA /0000,/1600,/0000,/0004 30-37 J ( P DATA /0000,/0000,/1415,/001A 38-3F v ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/232E,/3C28,/2B21 48-4F ( P DATA /264A,/4
0x15eef8…15f08c Dummy {f00=0x005b, f01=0x0190, f02=»/255F,/3E3F 68-6F ~ ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F F ( P DATA /2061,/6263,/6465,/6667 80-87 r ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,/5D24,
0x15f08c…15f220 Dummy {f00=0x005b, f01=0x0190, f02=»5,/3637 B0-B7 z ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 B ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF n ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /7F2F,/5354,/555
0x15f220…15f3b4 (2, 279) Dummy {f00=0x005c, f01=0x0190, f02=»DFF F8-FF v P XIF P EJECT P* , P* 6 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC @ P* v P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /0001,/0203,/372D,/0000 00-07 ( P DATA /0005,/1500,/0C00,/0000 08-0F
0x15f3b4…15f548 Dummy {f00=0x005c, f01=0x0190, f02=» ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 0 ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57
0x15f548…15f6dc Dummy {f00=0x005c, f01=0x40ac, f02=» DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F , 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 X P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-57
0x15f6dc…15f870 Dummy {f00=0x005c, f01=0x2008, f02=» 68-6F z ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F B 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 n P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,
0x15f870…15fa04 Dummy {f00=0x005c, f01=0x0190, f02=» CW A4,DCTAB ALL ENTRIES CHECKED?? =3 * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 . P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 ~ " P RB DCTP22 CHECK NEXT ENTRY =3 PDCTP25 EQU * =3 P $ P STR A6,A1 INSERT DWT IN DC:TAB
0x15fa04…15fb98 Dummy {f00=0x005c, f01=0x0190, f02=» P LDK A1,4 DEVICE END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE 8 P XIF d PDCTP30 EQU * p P SUR A1,A1 RETURN CODE ::= 0 PENDIO EQU * $ P CF A15,TENDIO COMPLETE REQUEST P RB DCRTN P EJECT P*
0x15fb98…15fd2c Dummy {f00=0x005c, f01=0x0190, f02=» P* PDCWR EQU * P IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH 6 " P CWK A1,BUFLEN ILLEGAL LENGTH? ^ P RF(G) IL:LEN YES!! P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P*
0x15fd2c…15fec0 Dummy {f00=0x005c, f01=0x0190, f02=» P* PDCRD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE @ " P RF(Z) DCRD10 NOTHING IN QUEUE r P P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A4,6 " P L
0x15fec0…160054 (2, 280) Opaque[0x194]
0x160054…1601e8 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b8, f03=0x0000}
0x160054…1601e8 IdxSect {
0x160054…1601e8 f00 = 0x0045 // 0x160054 @0x0
0x160054…1601e8 f01 = 0x0006 // 0x160056 @0x2
0x160054…1601e8 gno = [ // 0x160058 @0x4
0x160054…1601e8 [0x00]: C0x0045.0x3.0
0x160054…1601e8 [0x01]: C0x0046.0x0.0
0x160054…1601e8 [0x02]: C0x0046.0x1.0
0x160054…1601e8 ]
0x160054…1601e8 }
0x1601e8…16037c Dummy {f00=0x0045, f01=0x0190, f02=» 0 P IDENT TIMER REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x16037c…160510 Dummy {f00=0x0045, 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
0x160510…1606a4 Dummy {f00=0x0045, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P 6 P > P F P* N P* X P*********** b P* EXTRNALS * v P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXT
0x1606a4…160838 Dummy {f00=0x0045, f01=0x018e, f02=»ADDRESS x $ P EXTRN ACTOT ACTIVATE A TERMINAL * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK 8 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE f 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P********
0x160838…1609cc Dummy {f00=0x0045, f01=0x0190, f02=» d P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 0 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIMER LK
0x1609cc…160b60 Dummy {f00=0x0045, f01=0x018e, f02=»ELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS ( P* A8 = DELAY F P* P* f P* 2. TIMING AND ACTIVATION p P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB ADDRES
0x160b60…160cf4 (2, 281) Dummy {f00=0x0046, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR * P RF(NZ) TIM010 TIMING AND ACTIVATION? 0 P* ^ P EJECT TIMER h P* ~ P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 DAT
0x160cf4…160e88 Dummy {f00=0x0046, f01=0x0190, f02=» PTIM010 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR D " P ABL(Z) LKMRQE TTAB NOT FOUND? ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER .
0x160e88…16101c Dummy {f00=0x0046, f01=0x0190, f02=» PQUEDIS EQU * P ABL LKMQDI P* , P EJECT TIMER 6 P* L P* V P* RETURN AFTER TIME OUT ` P* P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISP
0x16101c…1611b0 Dummy {f00=0x0046, f01=0x0190, f02=»FREBLK AND SET IT FREE P LDR A5,A3 SET TTAB ADDRESS * P LDK A7,0 MONITOR ACTIVATION PARAMETER B ( P CF A15,ACTOT AND ACTIVATE TERMINAL p P RB TTDIS P* P EJECT TIMER P* P* " P* S E T I M E , S E T I M P P
0x1611b0…161344 Dummy {f00=0x0046, f01=0x0190, f02=»RS:- ~ P* P* A1 = PARAMETER . P* A4 = IF SETIMP: TIMER POINTER ADDRESS 0 , P* P1 = DISPATCH ADDRESS AFTER TIME OUT b P* P2 = DELAY P* : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. P* P* EXIT PARAM
0x161344…1614d8 Dummy {f00=0x0046, f01=0x018e, f02=» * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF J P* V P IFT CPU852=0 ` P INH v " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P EJECT TIMER P* P* * P LDR A6,A4 SAVE TIMER POINTER AD
0x1614d8…16166c Dummy {f00=0x0046, f01=0x0190, f02=» P LDR* A8,A5 TIME IN A8 P ADK A5,2 & ( P ST A5,20,A15 ADJUST PROGRAM COUNTER 8 $ P CF A15,GETBLK GET A FREE BLOCK d P LDR A2,A4 P C1R A1,A8 " P CF A15,GETBLK GET TIMER BLOCK P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEU
0x16166c…161800 Dummy {f00=0x0046, f01=0x417a, f02=»ETIME? , P STR A4,A6 -SETIMP. STORE TIMER POINTER P* > P EJECT TIMER H P* ^ P* h PSETEND EQU * r P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A
0x161800…161994 (2, 282) Dummy {f00=0x0046, 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
0x161994…161b28 Dummy {f00=0x0046, f01=0x0190, f02=»O START THE TASK ~ z P* P* -IF NORMAL I/O WITH WAIT:- " P* F * P* QTJOB IS CALLED TO QUEUE THE TASK P 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- ~ P* P* A5 = TTAB ADDRESS P* $ P* -IF NORMAL I/O WITH NO WAI
0x161b28…161cbc Dummy {f00=0x0046, f01=0x0190, f02=»ASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. P* F P EJECT TOSSIO P P* h P* r 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- | P* P* A1 = RETURN CODE P* P* A6 = DWT ADDRESS P* P*
0x161cbc…161e50 Dummy {f00=0x0046, f01=0x018e, f02=» j P* P EJECT TOSSIO P* * P* END I/O ENTRY 4 P* L PTENDIO EQU * V P IFT CPU852=1 j & 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 STACK P
0x161e50…161fe4 Dummy {f00=0x0046, f01=0x018e, f02=» , P LD A5,DWTTQ,A6 GET TERMINAL QUEUE LINK " P RF(Z) TEN110 NO TASK QUEUED? 4 P LD A2,TTB:ID,A5 GET TASK ID Z P ANKL A2,/FF44 ~ P CWK A2,'#D' CHECK TASK ID " P RF(E) TEN100 DM REQUEST NEXT? P LDKL A2,/800 ATTACH BIT P ANR* A2,A4
0x161fe4…162178 Dummy {f00=0x0046, f01=0x0190, f02=» j P* P EJECT TOSSIO P* * P* 4 PTEN100 EQU * > , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS R P ST A3,DWTTQ,A6 . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST P* P* UPDATE ECB AND DWT P* 4 PTEN110 LD A5
0x162178…16230c Dummy {f00=0x0046, f01=0x0190, f02=»WTTDM,A6 GET TTAB ADDRESS 4 P CF A15,REQEND RESET REQUEST BUSY FOR ALL FILES " P* Z PTEN120 LDKL A2,/8000 d , P ORRS A2,A4 INDICATE DEVICE READY IN DWT P LDKL A3,/DBFF ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 $ P LD A3,DWTECB,A6 GET E
0x16230c…1624a0 Dummy {f00=0x0046, f01=0x0190, f02=»RRS A2,A3 SET EVENT COMPLETED IN ECB , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB , P* P IFT MMUPAG=1 f P LD A4,TTB:PW,A5 GET PSW | & P ANK A4,1 GET SYSTEM/USER MODE BIT P RF(Z) TEN200 SYSTEM MODE? P* P* LOAD MMU REGISTERS
0x1624a0…162634 (2, 283) Opaque[0x194]
0x162634…1627c8 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0300, f03=0x0000}
0x162634…1627c8 IdxSect {
0x162634…1627c8 f00 = 0x0018 // 0x162634 @0x0
0x162634…1627c8 f01 = 0x0006 // 0x162636 @0x2
0x162634…1627c8 gno = [ // 0x162638 @0x4
0x162634…1627c8 [0x00]: C0x0018.0x0.0
0x162634…1627c8 [0x01]: C0x0018.0x2.0
0x162634…1627c8 [0x02]: C0x0043.0x0.0
0x162634…1627c8 ]
0x162634…1627c8 }
0x1627c8…16295c Dummy {f00=0x0018, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x16295c…162af0 Dummy {f00=0x0018, 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**
0x162af0…162c84 Dummy {f00=0x0018, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P < P D P L P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID , P EXTRN LKMQDI QUEUE TA
0x162c84…162e18 Dummy {f00=0x0018, f01=0x0190, f02=»AB ADDRESS ~ $ P EXTRN SCTNOS NUMBER OF SEGMENTS P EJECT TMMLKM : P* R P* P********** f P* TCHPAG * x P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR. P* B P* TCHPAG WILL CHANGE T
0x162e18…162fac Dummy {f00=0x0018, f01=0x0190, f02=»TERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: " P* L P* A5 = TTAB ADDRESS V ( P* A7 = PAGE TO BE CHANGED, 0 - 15 t * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT RETURNS TO CALLING TASK WITH A7 AND A8 UN
0x162fac…163140 Dummy {f00=0x0018, f01=0x0190, f02=»XING IN MMU TABLE v P ADR A7,A5 ADD TTAB ADDRESS P LDR A2,A8 NEW PAGE LOCATION > . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) b P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE P* 0 PT:DISP ABL LKMQDI QUEUE
0x163140…1632d4 (2, 284) Dummy {f00=0x0018, f01=0x018e, f02=»* P* 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. P* L D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK V 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P* * P* IT IS ENTERED FROM THE LKM HANDLER
0x1632d4…163468 Dummy {f00=0x0018, f01=0x0190, f02=» ` P* ( P* IT RETURNS TO CALLING TASK WITH P* THE FOLLOWING PARAMETER: > P* b 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE l & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU EQU * CHANGE MMU TABLE * P CF A15,FNDT
0x163468…1635fc Dummy {f00=0x0018, f01=0x0190, f02=»NTENTS h 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK * P RB T:DISP QUEUE TASK FOR DISPATCHING F P* t P EJECT TMMLKM ~ P* P* P********** P* TLUSEG * P********** P* P* 6 P* THIS IS THE LOCK
0x1635fc…163790 Dummy {f00=0x0018, f01=0x0190, f02=»OCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* 8 * P* IT IS ENTERED FROM THE LKM HANDLER B & P* WITH THE FOLLOWING PARAMETERS: p P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER & P* A8 = 0 IF LOCK SEGMENT REQUEST
0x163790…163924 Dummy {f00=0x0018, f01=0x0190, f02=» P* > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE & P* A7 = -1 IF REQUEST ERROR, ELSE P P* z P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0
0x163924…163ab8 Dummy {f00=0x0018, f01=0x0190, f02=»TLCERR EQU * , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR P* D PTLUS00 EQU * N , P SLL A1,3 ADJUST FOR INDEXING IN SEGTAB b $ P AD A1,SCTSEG ADD SEGTAB ADDRESS " P LCR A4,A1 GET SEGMENT STATUS P ANK A4,/8 " P RB(NZ) TLCERR CORE RE
0x163ab8…163c4c Dummy {f00=0x0018, f01=0x4164, f02=» P EJECT TMMLKM P* P* LOCK SEGMENT & P* < 4 P ORRS A4,A1 INDICATE SEGMENT TO BE CORE RESIDENT F P RB T:DISP ~ P* P* UNLOCK SEGMENT P* PTLUS10 EQU * P C1R A4,A4 A4 := /FDFF 2 P ANRS A4,A1 INDICATE SEGME
0x163c4c…163de0 Dummy {f00=0x0018, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x163de0…163f74 (2, 285) Dummy {f00=0x0043, f01=0x0190, f02=» n P LDK A3,0 P* P IFT MMUPAG=0 $ * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK : P XIF h P* t P IFT MMUPAG=1 ~ ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 P*
0x163f74…164108 Dummy {f00=0x0043, f01=0x0190, f02=»S v & P LDR* A2,A8 GET FIRST WORD OF ECB P XIF 4 P* @ P IFT MMUPAG=1 J P ELR A8,A7 GET ECB ADDRESS ` $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED? 8 P CF A15,FNDDWT NO, SEARCH DW
0x164108…16429c Dummy {f00=0x0043, f01=0x0190, f02=» " P LD A2,DWTST,A6 GET DWT STATUS P RF(N) TP:RQE NOT BUSY? * P CW A5,DWTTAB,A6 J 4 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK? b 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT? P ORK A6,1
0x16429c…164430 Dummy {f00=0x0043, f01=0x0190, f02=»AVE FIRST DWT ADDRESS P LDR A3,A6 P* 0 PTMW:20 EQU * : 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE N $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 ( P RB(P) TMW:10 MORE ECB:S IN ECBBLK? : P ST A3,DWTWAT,A9 NO, SET
0x164430…1645c4 Dummy {f00=0x0043, f01=0x0190, f02=» TTAB SAVE AREA p 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR & P RF(Z) TP:QDI FIRST ECB IN ECBBLK? N P* x : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x1645c4…164758 Dummy {f00=0x0043, f01=0x40aa, f02=»QU * " P ABL LKMRQE LKM REQUEST ERROR P* 2 PTP:QDI EQU * < ( P ABL LKMQDI QUEUE TASK AND DISPATCH P P* | P* P* P END @ VATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x164758…1648ec Dummy {f00=0x0043, 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
0x1648ec…164a80 Dummy {f00=0x0043, f01=0x0000, f02=»
0x164a80…164c14 (2, 286) Opaque[0x194]
0x164c14…164da8 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0268, f03=0x0000}
0x164c14…164da8 IdxSect {
0x164c14…164da8 f00 = 0x0013 // 0x164c14 @0x0
0x164c14…164da8 f01 = 0x0006 // 0x164c16 @0x2
0x164c14…164da8 gno = [ // 0x164c18 @0x4
0x164c14…164da8 [0x00]: C0x0013.0x1.0
0x164c14…164da8 [0x01]: C0x0013.0x2.0
0x164c14…164da8 [0x02]: C0x0013.0x3.0
0x164c14…164da8 ]
0x164c14…164da8 }
0x164da8…164f3c Dummy {f00=0x0013, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x164f3c…1650d0 Dummy {f00=0x0013, 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 TLDS15
0x1650d0…165264 Dummy {f00=0x0013, f01=0x0190, f02=»* EXTERNALS * P************* P* , P* 6 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM @ P EXTRN TDISP DISPATCHER t $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS P EXTRN PAG:PA PAGE ADDRESS & P
0x165264…1653f8 Dummy {f00=0x0013, f01=0x018e, f02=»A TTAB SAVE AREA P EXTRN TTB:MT MMU TABLE ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS 8 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK d P EXTRN SCTSEG SEGTAB ADDRESS $ P EXTRN SCTNOS NUMBER OF SEGMENTS & P EXTRN SCTMMP MMU TABLE PAGE ENTRY
0x1653f8…16558c Dummy {f00=0x0013, 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
0x16558c…165720 Dummy {f00=0x0013, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 0 P* 4 * > . ** A PROGRAM VERSION USING TOSS DISC PAGING H * &* IS OBTAINED BY SETTING DSKPAG EQU 1. z * PDSKPAG EQU 0 * P* 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER OVERL
0x165720…1658b4 (2, 287) Dummy {f00=0x0013, f01=0x0190, f02=» P********** P* TLDSEG * P********** ( P* : P* D 0 P* THIS IS THE LOAD SEGMENT LKM PROCESSOR. N P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* 4 P* A2 = DISPATCH ADDRESS
0x1658b4…165a48 Dummy {f00=0x0013, f01=0x0190, f02=»S) d P* ( P* IT RETURNS TO CALLING TASK WITH " P* THE FOLLOWING PARAMETERS: @ P* f > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE p & P* A7 = -1 IF REQUEST ERROR, ELSE ( P* A7 = -2 IF DISC I/O ERROR, ELSE $ P
0x165a48…165bdc Dummy {f00=0x0013, f01=0x018e, f02=»UGH THE DISPATCHER AFTER p > P* COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, < P* IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. b P* : P* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL : P* ACTIVATE LDTASK WHICH WILL
0x165bdc…165d70 Dummy {f00=0x0013, f01=0x018e, f02=» PTLDSEG EQU * LOAD SEGMENT * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 & P RF(N) TLDERR REQUEST ERROR? T 2 P CW A1,SCTNOS CHECK IF SEGMENT NUMBER TOO BIG x P RF(NG) TLDS00 OK? P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P ABL LKM030 BR
0x165d70…165f04 Dummy {f00=0x0013, f01=0x0190, f02=» P LDR A3,A5 GET TTAB ADDRESS , P SLL A1,3 ADJUST FOR INDEXING IN SEGTAB , $ P AD A1,SCTSEG ADD SEGTAB ADDRESS & P ADK A2,2 UPDATE DISPATCH ADDRESS P* P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET D
0x165f04…166098 Dummy {f00=0x0013, f01=0x0190, f02=»,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* P RF TLDS40
0x166098…16622c Dummy {f00=0x0013, f01=0x0190, f02=»ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOADED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO D
0x16622c…1663c0 Dummy {f00=0x0013, f01=0x0190, f02=»4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P* P ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE Z P* P XIF P* & PTLDS15 EQU * ENTRY USED BY LDTASK P IFT DSKPAG=1 & P LDR* A2,A1 GET QUEUE LINK FORWARD
0x1663c0…166554 (2, 288) Dummy {f00=0x0013, f01=0x0190, f02=»F REMOVED BLK n " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2 < P XIF T P* ` P EJECT TLDSEG j P* , P* GET PAGE ADDRESS OF REQUESTED SEGMENT P* & PTLDS20 EQU * ENTRY USED BY LDTASK & P LD A1,PAG:PA,A1 GET PAG
0x166554…1666e8 Dummy {f00=0x0013, f01=0x0190, f02=»MMU TABLE j P* 0 P AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY , P LD A4,SCTNPE GET NUMBER OF PAGE ENTRIES P P* P* UPDATE PAGE ENTRY/ENTRIES P* PTLDS25 EQU * P SCR A2,A3 UPDATE PAGE ENTRY P SUK A4,1 ( P RF(NP
0x1666e8…16687c Dummy {f00=0x0013, f01=0x0190, f02=»* P EJECT TLDSEG P* " P* , 4 PTLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE 6 P SLL A1,2 n P OR A1,SCTLAP $ P TL TTB:MT,A5 LOAD MMU REGISTERS P* PTLDS40 EQU * P IFT ASSOLY=0 2 P ES A1,T:ACSB,A13 UPDA
0x16687c…166a10 Dummy {f00=0x0013, f01=0x0190, f02=» BASE h P XIF P* P IFT CPU852=0 $ P LDR A6,A5 : $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 L $ P RTN A15 RETURN TO CALLING TASK t P XIF P* P IFT CPU852=1 $ P LD A1,TTB:SA+2,A5 RESTORE A1-A6 P LD A2,TTB:SA+4,A5
0x166a10…166ba4 Dummy {f00=0x0013, f01=0x4048, f02=» TASK v P XIF P* P* $ P* . END 8@ D $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 L $ P RTN A15 RETURN TO CALLING TASK t P XIF P* P IFT CPU852=1 $ P LD A1,TTB:SA+2,A5 RESTORE A1-A6 P LD A2,TTB:SA+4,A5
0x166ba4…166d38 Dummy {f00=0x0013, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x166d38…166ecc Dummy {f00=0x0013, f01=0x0190, f02=»D OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT? 2 P RF(Z) CLK30 TIME OUT? T P LDR* A3,A4 RELEASE TIMER r P STR A3,A6 P CF A15,FREBLK P LDR A4,A2 P CF A15,FREBLK P RB CLK20 P* P EJECT
0x166ecc…167060 Dummy {f00=0x0013, f01=0x018e, f02=» P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF H P* T P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK t P XIF P* $ P CF A15,SWL48 SWITCH TO LEVEL 48 P INH P LD A2,2,A4 LOAD DISP BLOCK P
0x167060…1671f4 (2, 289) Opaque[0x194]
0x1671f4…167388 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0870, f03=0x0000}
0x1671f4…167388 IdxSect {
0x1671f4…167388 f00 = 0x0043 // 0x1671f4 @0x0
0x1671f4…167388 f01 = 0x0004 // 0x1671f6 @0x2
0x1671f4…167388 gno = [ // 0x1671f8 @0x4
0x1671f4…167388 [0x00]: C0x0043.0x2.0
0x1671f4…167388 [0x01]: C0x0043.0x3.0
0x1671f4…167388 ]
0x1671f4…167388 }
0x167388…16751c Dummy {f00=0x0043, f01=0x0190, f02=» 2 P IDENT TABORT REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x16751c…1676b0 Dummy {f00=0x0043, 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 P P P* P*
0x1676b0…167844 Dummy {f00=0x0043, 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 DWTECH ECHO DEVICE DWT ( P EXTRN ABTADR ABORT ROUTINE ADDRESS P EXTRN TENDIO END I/
0x167844…1679d8 Dummy {f00=0x0043, f01=0x0190, f02=» TABORT P* P* . P***************************************** & P* X P* CONDITIONAL ASSEMBLY b P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY
0x1679d8…167b6c Dummy {f00=0x0043, f01=0x0190, f02=»BORT * P********** P* P* * 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. 4 P* l * P* IT IS ENTERED FROM THE LKM HANDLER v & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRE
0x167b6c…167d00 Dummy {f00=0x0043, f01=0x0190, f02=»AT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN P* NOT BE ABORTED. 8 P* T P* ^ PTABORT EQU * h P IFT MMUPAG=0 | & P LDR* A3,A8 GET FIRST WORD OF ECB P XIF P* P IFT MMUPAG=1 $ P ELR A3,A8 GET FIRST WORD OF ECB
0x167d00…167e94 (2, 290) Dummy {f00=0x0043, f01=0x0190, f02=» P RF(Z) TABOER DWT UNKNOWN? P* & P EJECT TABORT 0 P* H P* R P CW A5,DWTTAB,A6 P RF(NE) TABOER ILLEGAL TASK? t P LD A7,DWTST,A6 " P RF(N) TABOER DEVICE NOT BUSY? P SLC A7,2 $ P RF(NN) TABO20 NOT ECHO REQUEST?
0x167e94…168028 Dummy {f00=0x0043, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE? N & P CFR A15,A2 PERFORM ABORT ROUTINE ~ P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x168028…1681bc Dummy {f00=0x0043, f01=0x0190, f02=» n : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT F P* l PTABO30 EQU * v 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x1681bc…168350 Dummy {f00=0x0043, f01=0x40c8, f02=»CODE z P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER ( P* 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR f P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x168350…1684e4 Dummy {f00=0x0043, f01=0x2008, f02=»
0x1684e4…168678 Dummy {f00=0x0043, f01=0x0190, f02=»,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* P RF TLDS40
0x168678…16880c Dummy {f00=0x0043, f01=0x0190, f02=»ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOADED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO D
0x16880c…1689a0 Dummy {f00=0x0043, f01=0x0190, f02=»4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P* P ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE Z P* P XIF P* & PTLDS15 EQU * ENTRY USED BY LDTASK P IFT DSKPAG=1 & P LDR* A2,A1 GET QUEUE LINK FORWARD
0x1689a0…168b34 (2, 291) Opaque[0x194]
0x168b34…168cc8 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0880, f03=0x0000}
0x168b34…168cc8 IdxSect {
0x168b34…168cc8 f00 = 0x0044 // 0x168b34 @0x0
0x168b34…168cc8 f01 = 0x0006 // 0x168b36 @0x2
0x168b34…168cc8 gno = [ // 0x168b38 @0x4
0x168b34…168cc8 [0x00]: C0x0044.0x0.0
0x168b34…168cc8 [0x01]: C0x0044.0x1.0
0x168b34…168cc8 [0x02]: C0x0044.0x2.0
0x168b34…168cc8 ]
0x168b34…168cc8 }
0x168cc8…168e5c Dummy {f00=0x0044, f01=0x0190, f02=» 2 P IDENT MONTIM REL 9.2 79-11-16 870105040920 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P*
0x168e5c…168ff0 Dummy {f00=0x0044, f01=0x0190, f02=»* THIS MODULE CONTAINS TOSS MONITOR CLOCK PROCESSORS P* @ 0 P* -GETTIM GET TIME FROM MONITOR CLOCK J P* ~ . P* -SETTIM SET TIME IN MONITOR CLOCK P* P EJECT MONTIM P* P* P*********** P* EN
0x168ff0…169184 Dummy {f00=0x0044, f01=0x0190, f02=»TOR CLOCK r P P P " P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA
0x169184…169318 Dummy {f00=0x0044, f01=0x0190, f02=»* . P***************************************** P* < . P* A PROGRAM VERSION USING TOSS MMU PAGING F * P* IS OBTAINED BY SETTING MMUPAG EQU 1. x P* PMMUPAG EQU 1 P* P EJECT MONTIM P* P* P* G E T T I
0x169318…1694ac Dummy {f00=0x0044, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P INH
0x1694ac…169640 Dummy {f00=0x0044, f01=0x018e, f02=» v P SUK A7,2 P LDR* A6,A7 HOURS P ENB 4 P* @ * PGETT10 CF A15,BYTASC CONVERT TO ASCII J P IFT MMUPAG=0 x * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P*
0x169640…1697d4 (2, 292) Dummy {f00=0x0044, f01=0x0190, f02=» $ P RF(Z) GETT15 TCB ADDRESS EVEN? P LDR A1,A6 0 P EL A4,1,A8 B P ANK A4,/FF V P SLL A1,8 j P ORR A1,A4 | P ES A1,1,A8 P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8
0x1697d4…169968 Dummy {f00=0x0044, f01=0x0190, f02=»ET ACTUAL TIME FROM STACK P RB GETT10 " P* 4 P EJECT MONTIM > P* V P* ` PGETT20 SUK A7,2 j . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY
0x169968…169afc Dummy {f00=0x0044, f01=0x0190, f02=»S IS THE SET TIME LKM PROCESSOR. P* ( 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH 2 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK f 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P*
0x169afc…169c90 Dummy {f00=0x0044, f01=0x0190, f02=»QU * P IFT MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER " P ECR A6,A6 L ( P LC A6,1,A8 GET RIGHTHAND CHARACTER ^ P XIF P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL
0x169c90…169e24 Dummy {f00=0x0044, f01=0x0190, f02=»LL A6,8 P SRL A4,8 P ORR A6,A4 " P* 4 PSETT15 EQU * > P XIF R P* ^ P EJECT MONTIM h P* P* $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END ? P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15
0x169e24…169fb8 Dummy {f00=0x0044, 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 CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MON
0x169fb8…16a14c Dummy {f00=0x0044, f01=0x0190, f02=» RESULT IN A6. P* P* ( PBYTASC EQU * 2 P LDK A4,0 F P* X PBYTA10 SUK A6,/A b P RF(N) BYTA20 z P ADKL A4,/100 P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A
0x16a14c…16a2e0 Dummy {f00=0x0044, f01=0x415c, f02=» ASCII TO BINARY. ~ P* RESULT IN A6. P* > P* H PASCTBY EQU * R P LDR A4,A6 f P ANK A6,/F x 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
0x16a2e0…16a474 (2, 293) Dummy {f00=0x0044, 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
0x16a474…16a608 Dummy {f00=0x0044, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE? N & P CFR A15,A2 PERFORM ABORT ROUTINE ~ P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x16a608…16a79c Dummy {f00=0x0044, f01=0x0190, f02=» n : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT F P* l PTABO30 EQU * v 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x16a79c…16a930 Dummy {f00=0x0044, f01=0x40c8, f02=»CODE z P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER ( P* 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR f P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x16a930…16aac4 Dummy {f00=0x0044, f01=0x2008, f02=»
0x16aac4…16ac58 Dummy {f00=0x0044, f01=0x0190, f02=» EJECT TPROC P* P* P********** * P* TPAUSE * < P********** N P* ` P* j ( P* THIS IS THE PAUSE LKM PROCESSOR. t P* : P* THIS MODULE IS ENTERED FROM THE LKM HANDLER WHEN A : P* TASK WANTS TO (TEMPORARILY)
0x16ac58…16adec Dummy {f00=0x0044, f01=0x0190, f02=» P********** P* TMWAIT * P********** , P* > P* H 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. R P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS
0x16adec…16af80 Dummy {f00=0x0044, f01=0x018e, f02=»LLING TASK VIA TENDIO t & P* WITH THE FOLLOWING PARAMETERS: P* H , P* A8 = ECB ADDRESS OF COMPLETED EVENT R P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO). P* ( P* NOTICE THAT ALL EVENTS MUST HAVE ( P*
0x16af80…16b114 (2, 294) Opaque[0x194]
0x16b114…16b2a8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef8, f03=0x0000}
0x16b114…16b2a8 IdxSect {
0x16b114…16b2a8 f00 = 0x0077 // 0x16b114 @0x0
0x16b114…16b2a8 f01 = 0x0002 // 0x16b116 @0x2
0x16b114…16b2a8 gno = [ // 0x16b118 @0x4
0x16b114…16b2a8 [0x00]: C0x0077.0x3.0
0x16b114…16b2a8 ]
0x16b114…16b2a8 }
0x16b2a8…16b43c Dummy {f00=0x0077, f01=0x0190, f02=» * P IDENT CTAB01 820603 NJ DSB-PLADS 6271 ENTRY CTAB01 2 CTAB01 EQU * H DATA FUNC,FUNC,0,0,0,0 | FUNC EQU * P DATA /FFFF DATA /1011 P DATA /0C0D P DATA /0E09 P DATA /0A0B DATA /1314
0x16b43c…16b5d0 Dummy {f00=0x0077, f01=0x40f6, f02=»9 P DATA /BAFF P DATA /1AFF P DATA /181B 2 P DATA /0102 F P DATA /0304 Z P DATA /0506 n P DATA /0708 DATA /FFFF DATA /FFFF DATA /FFFF DATA /FFFF END @ DATA /1314
0x16b5d0…16b764 Dummy {f00=0x0077, f01=0x2008, f02=» DATA /BAFF DATA /FF18 DATA /313B 2 DATA /2203 F DATA /0405 Z DATA /0607 n DATA /30FF DATA /FFFF DATA /FFFF DATA /FFFF DATA /FFFF END @ DATA /1314
0x16b764…16b8f8 Dummy {f00=0x0077, f01=0x0190, f02=» PW8 BIN '8' PW9 BIN '9' PW10 BIN '10' , PW12 BIN '12' @ PW40 BIN '40' T PW80 BIN '80' h P | P P PCB2 BLK * PCTEST BIN '0' PCTIMOUT BIN '1450' PCBUFLEN BIN '300' B PCINX BINI (35),'
0x16b8f8…16ba8c Dummy {f00=0x0077, f01=0x0190, f02=»5','80', C n , P '81','84','85','86','87','88','90', C P '91','92','94','999' D " P* OBS: 'OE'R SKRIVES SOM '@'. b $ P* DISSE ERSTATTES I OPSTARTDELEN < PCTXT STRGI (35),30C'******************************', C P 30C'PLADSART/ANTAL? ',
0x16ba8c…16bc20 Dummy {f00=0x0077, f01=0x0190, f02=»E UFORENELIG ', C z , P 30C'DATAMATEN OPTAGET, PR@V IGEN ', C P 30C'DATO? ', C J P 30C'KLASSE? ', C d P 30C'RYGER? ', C P 30C'KUPE? ', C P 30C'PLACERING? ', C P 30C'FRI? ', C P 30C'TILSLUTNING? ', C
0x16bc20…16bdb4 (2, 295) Opaque[0x194]
0x16bdb4…16bf48 # DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0818, f03=0x0000}
0x16bdb4…16bf48 IdxSect {
0x16bdb4…16bf48 f00 = 0x0040 // 0x16bdb4 @0x0
0x16bdb4…16bf48 f01 = 0x0002 // 0x16bdb6 @0x2
0x16bdb4…16bf48 gno = [ // 0x16bdb8 @0x4
0x16bdb4…16bf48 [0x00]: C0x0040.0x3.0
0x16bdb4…16bf48 ]
0x16bdb4…16bf48 }
0x16bf48…16c0dc Dummy {f00=0x0040, f01=0x0190, f02=» & P IDENT CTAB02 80.05.12 EV KMD APPL P ENTRY CTAB02 . PCTAB02 EQU * D , P DATA FUNC,FUNCSH,UNSC,SHIFT,UNSC,SHIFT X FUNC EQU * : P DATA /7F80,/A78C,/A6A8,/A984,/8289,/ACB5,/AAAD,/AFA5 : P DATA /3031,/3233,/3435,/3637,/3839,/BA26,/AB70,
0x16c0dc…16c270 Dummy {f00=0x0040, f01=0x0190, f02=»5,/AAAD,/AFA5 h : P DATA /3031,/3233,/3435,/3637,/3839,/BA2A,/AB7F,/B2B4 : 5 DATA /7F7F,/B4B0,/B17F,/8BAE,/7F7F,/7F7F,/7F7F,/7F7F T UNSC EQU * : P DATA /207F,/7F7F,/7F7F,/7F0A,/7F7F,/7F2B,/2C2D,/2E7F : P DATA /3031,/3233,/3435,/3637,/3839,/0
0x16c270…16c404 Dummy {f00=0x0040, f01=0x4128, f02=»F7F ^ PSHIFT EQU * : P DATA /207F,/7F7F,/7F7F,/7F2A,/7F7F,/7F3F,/3B5F,/3A7F : P DATA /3D21,/2223,/2425,/262F,/2829,/ACA9,/ADA7,/A8A6 ^ : P DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5
0x16c404…16c598 Dummy {f00=0x0040, f01=0x2008, f02=» U/* 8 4 DATA 207F,/7F7F,/7F7F,/7F2A,/7F7F,/7F3F,/3B5F,/3A7F 8 4 DATA 3D21,/2223,/2425,/262F,/2829,/ACA9,/ADA7,/A8AB P : 5 DATA /4041,/4142,/4344,/4445,/4647,/4849,/4A4B,/4C4D @ ; DATA /4E4F,/5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7F7F
0x16c598…16c72c Dummy {f00=0x0040, f01=0x0190, f02=»
0x16c72c…16c8c0 Dummy {f00=0x0040, f01=0x0190, f02=» & , , $ * < | < , 0 Q Q jP!! Q0 P? 0 0 0 _ x" s' xsT@ R 0 R t H t 0 p!wrxsu!! t @^@[@] K^ H[ _ K]@ _F S
0x16c8c0…16ca54 (2, 296) Opaque[0x194]
0x16ca54…16cbe8 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0660, f03=0x0000}
0x16ca54…16cbe8 IdxSect {
0x16ca54…16cbe8 f00 = 0x0033 // 0x16ca54 @0x0
0x16ca54…16cbe8 f01 = 0x0002 // 0x16ca56 @0x2
0x16ca54…16cbe8 gno = [ // 0x16ca58 @0x4
0x16ca54…16cbe8 [0x00]: C0x0033.0x0.0
0x16ca54…16cbe8 ]
0x16ca54…16cbe8 }
0x16cbe8…16cd7c Dummy {f00=0x0033, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB00 TABLE ENTRY r P EXTRN CTAB01 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY00 PMMUPAG EQU 1 P*
0x16cd7c…16cf10 Dummy {f00=0x0033, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x16cf10…16d0a4 Dummy {f00=0x0033, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /BBBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x16d0a4…16d238 Dummy {f00=0x0033, f01=0x40d2, f02=»A 0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * . P DATA 0,0,0,0,0,0 B P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 z P XIF PDWTEND EQU * P* P END @ ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x16d238…16d3cc Dummy {f00=0x0033, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x16d3cc…16d560 Dummy {f00=0x0033, f01=0x0190, f02=»X r $ P* A4 = WORK REGISTER " P* A5 = STACK BASE 2 " P* A6 = DWT-ADDRESS X P* A7 = ORDER ~ " P* A8 = ECB-ADDRESS P* P EJECT P* P* P* SYSTEM ADAPTATION
0x16d560…16d6f4 (2, 297) Opaque[0x194]
0x16d6f4…16d888 # DirEnt {nam=»DVGP00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0670, f03=0x0000}
0x16d6f4…16d888 IdxSect {
0x16d6f4…16d888 f00 = 0x0033 // 0x16d6f4 @0x0
0x16d6f4…16d888 f01 = 0x0002 // 0x16d6f6 @0x2
0x16d6f4…16d888 gno = [ // 0x16d6f8 @0x4
0x16d6f4…16d888 [0x00]: C0x0033.0x2.0
0x16d6f4…16d888 ]
0x16d6f4…16d888 }
0x16d888…16da1c Dummy {f00=0x0033, f01=0x018e, f02=» 2 P IDENT DVGP00 REL 9.2 79-11-16 870105040920 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP00 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVGP00 EQU *
0x16da1c…16dbb0 Dummy {f00=0x0033, f01=0x0190, f02=» P DATA DWTEND-DVGP00 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA 'GP' TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x16dbb0…16dd44 Dummy {f00=0x0033, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x16dd44…16ded8 Dummy {f00=0x0033, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | 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
0x16ded8…16e06c Dummy {f00=0x0033, f01=0x018e, f02=»PE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER * 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT P PSTILL EQU /18 CURSOR STEADY $ PCTYCOD EQU /1B SET COUNTRY CODE P* P******************** P* RETURN CODE
0x16e06c…16e200 Dummy {f00=0x0033, f01=0x0190, f02=» P EJECT P* P* . P***************************************** * . P* CONDITIONAL ASSEMBLY * . P***************************************** P* P* H P* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MO
0x16e200…16e394 (2, 298) Opaque[0x194]
0x16e394…16e528 # DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0688, f03=0x0000}
0x16e394…16e528 IdxSect {
0x16e394…16e528 f00 = 0x0034 // 0x16e394 @0x0
0x16e394…16e528 f01 = 0x0002 // 0x16e396 @0x2
0x16e394…16e528 gno = [ // 0x16e398 @0x4
0x16e394…16e528 [0x00]: C0x0034.0x1.0
0x16e394…16e528 ]
0x16e394…16e528 }
0x16e528…16e6bc Dummy {f00=0x0034, f01=0x0190, f02=» 2 P IDENT DVDI00 REL 9.2 79-11-16 870105040920 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI00 DISPLAY INDICATOR 03 P* P*
0x16e6bc…16e850 Dummy {f00=0x0034, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI00 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x16e850…16e9e4 Dummy {f00=0x0034, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x16e9e4…16eb78 Dummy {f00=0x0034, 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
0x16eb78…16ed0c Dummy {f00=0x0034, f01=0x0190, f02=»FFER ADDRESS ~ & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF > PACDY25 EQU * R * P SUK A2,/2B POSITIONING BEFORE WRITE ? f P RF(E) ACDY90 P SUK A2,6 /31 ? P RF(E) ACDY65 P LDK A4,1 INDICATE LINE FEED " P ADK A2,1 DO
0x16ed0c…16eea0 Dummy {f00=0x0034, f01=0x0190, f02=»TURN t PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER $ 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS Z P* PACDY50 EQU * P CF A5,OUTPUT SEND CHARACTER PACDY52 SUK A4,1 & P RF(N) ACDY90 START SECT
0x16eea0…16f034 (2, 299) Opaque[0x194]
0x16f034…16f1c8 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06a0, f03=0x0000}
0x16f034…16f1c8 IdxSect {
0x16f034…16f1c8 f00 = 0x0035 // 0x16f034 @0x0
0x16f034…16f1c8 f01 = 0x0002 // 0x16f036 @0x2
0x16f034…16f1c8 gno = [ // 0x16f038 @0x4
0x16f034…16f1c8 [0x00]: C0x0035.0x0.0
0x16f034…16f1c8 ]
0x16f034…16f1c8 }
0x16f1c8…16f35c Dummy {f00=0x0035, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 9.2 79-11-16 870105040920 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
0x16f35c…16f4f0 Dummy {f00=0x0035, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x16f4f0…16f684 Dummy {f00=0x0035, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /0628 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x16f684…16f818 Dummy {f00=0x0035, 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
0x16f818…16f9ac Dummy {f00=0x0035, f01=0x0190, f02=» & P CF A5,ERA GET LENGTH TO ERASE =2 , P LDK A3,/20 , . P CF A5,FASTER FAST OUTPUT , B PADY165 LDK A2,ETB , d P CF A5,OUTPUT , ~ P ABL ADY410 END OF REQUEST , P IFT WHATDY=0 , PADY166 EQU * YES =2 , & P CF A5,ERA GET LENGTH TO ERASE =
0x16f9ac…16fb40 Dummy {f00=0x0035, f01=0x0190, f02=»ND IT , P RB ADY170 - PADY180 LD A4,10,A8 - & P CF A5,ERA GET LENGTH TO ERASE =2 - : P LDR A3,A3 OVER EDGE =2 - d P RF(NN) ADY186 NO =2 - P SUK A4,1 ADJUST LENGTH - PADY186 EQU * - P SUK A4,1 DECREMENT =2 - , P RB(N) ADY165 CURSOR I
0x16fb40…16fcd4 (2, 300) Opaque[0x194]
0x16fcd4…16fe68 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b00, f03=0x0000}
0x16fcd4…16fe68 IdxSect {
0x16fcd4…16fe68 f00 = 0x0058 // 0x16fcd4 @0x0
0x16fcd4…16fe68 f01 = 0x0002 // 0x16fcd6 @0x2
0x16fcd4…16fe68 gno = [ // 0x16fcd8 @0x4
0x16fcd4…16fe68 [0x00]: C0x0058.0x0.0
0x16fcd4…16fe68 ]
0x16fcd4…16fe68 }
0x16fe68…16fffc Dummy {f00=0x0058, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB01 TABLE ENTRY r P EXTRN CTAB02 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY01 PMMUPAG EQU 1 P*
0x16fffc…170190 Dummy {f00=0x0058, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x170190…170324 Dummy {f00=0x0058, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY01 DVDY01O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /FFFF EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLAC
0x170324…1704b8 Dummy {f00=0x0058, f01=0x40d2, f02=»A 0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * . P DATA 0,0,0,0,0,0 B P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 z P XIF PDWTEND EQU * P* P END @ ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLAC
0x1704b8…17064c Dummy {f00=0x0058, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x17064c…1707e0 Dummy {f00=0x0058, f01=0x0190, f02=» ! Y _D ~ , ( !@ X " X &" Y )U W ! , ( =" ! ! Y 4 B N , ( W U )X R ~ , ( w@ X X &" Y * X ) V , ( A Y ! X $ X & ! X *
0x1707e0…170974 (2, 301) Opaque[0x194]
0x170974…170b08 # DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b10, f03=0x0000}
0x170974…170b08 IdxSect {
0x170974…170b08 f00 = 0x0058 // 0x170974 @0x0
0x170974…170b08 f01 = 0x0002 // 0x170976 @0x2
0x170974…170b08 gno = [ // 0x170978 @0x4
0x170974…170b08 [0x00]: C0x0058.0x2.0
0x170974…170b08 ]
0x170974…170b08 }
0x170b08…170c9c Dummy {f00=0x0058, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 9.2 79-11-16 870105040920 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
0x170c9c…170e30 Dummy {f00=0x0058, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x170e30…170fc4 Dummy {f00=0x0058, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x170fc4…171158 Dummy {f00=0x0058, 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
0x171158…1712ec Dummy {f00=0x0058, f01=0x0190, f02=»FT RCOM=1 s P t & P LD A1,XRB READ BUFFER COMMAND ??? t P RF(Z) TRT070 NO!! t D P t ^ P ******************** t f " P LDK A2,X'2D' AID FOR DISPLAY t PTRT060 CF A5,WRITEP SEND AID t P t $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS t . P CF A5,L
0x1712ec…171480 Dummy {f00=0x0058, f01=0x0190, f02=»DK A3,2 t PTRT100 EQU * u P LCR A2,A4 GET ONE CHARACTER u $ P ADK A4,1 INCREMENT POINTER u H P ANK A2,/7F u l P IFT RCOM=1 u & P LD A1,XRB READ BUFFER COMMAND ??? u P RF(Z) TRT105 NO!! u P u @ P****************************************
0x171480…171614 (2, 302) Opaque[0x194]
0x171614…1717a8 # DirEnt {nam=»M:DSB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1198, f03=0x0000}
0x171614…1717a8 IdxSect {
0x171614…1717a8 f00 = 0x008c // 0x171614 @0x0
0x171614…1717a8 f01 = 0x0012 // 0x171616 @0x2
0x171614…1717a8 gno = [ // 0x171618 @0x4
0x171614…1717a8 [0x00]: C0x008c.0x3.0
0x171614…1717a8 [0x01]: C0x008d.0x0.0
0x171614…1717a8 [0x02]: C0x008d.0x1.0
0x171614…1717a8 [0x03]: C0x0092.0x1.0
0x171614…1717a8 [0x04]: C0x0092.0x2.0
0x171614…1717a8 [0x05]: C0x0092.0x3.0
0x171614…1717a8 [0x06]: C0x0093.0x1.0
0x171614…1717a8 [0x07]: C0x0093.0x2.0
0x171614…1717a8 [0x08]: C0x0093.0x3.0
0x171614…1717a8 ]
0x171614…1717a8 }
0x1717a8…17193c Dummy {f00=0x008c, f01=0x0190, f02=»?L Ff< h | " @ " , 6 c @ d Tg t z ^ b bLPL H b2 Z ` z
0x17193c…171ad0 Dummy {f00=0x008c, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d @ < R:R: ` J bf b% bfpL 0 <h ll d : | ` ^ D)hH P D >~ `" f >~ $ d p 4d @u { H
0x171ad0…171c64 Dummy {f00=0x008c, f01=0x0190, f02=» ^< 2 f_ A ( _ @( > > U # T @4. H ( ( P c P W: P, A( V ( U P" @;jV L;jW @;| U ($ A
0x171c64…171df8 Dummy {f00=0x008c, f01=0x0190, f02=» Z P 0 9 _ _, ? _ P H H #P A A< A Q ? @( ) A( _ A< A A( A< ? ? ? ? ? ^ A _ _ ^ ( $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x171df8…171f8c Dummy {f00=0x008c, f01=0x0190, f02=» 1 Q Q > > 0 @' 1 A' P P > ? * X " R" Y T ? X D ( T> ( W8 > _& @ 8 R" Y T ? X D ( T ( W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @; V ? ; > _ > ? _ > > ? ^ ! Y ^ _
0x171f8c…172120 Dummy {f00=0x008c, f01=0x0190, f02=»B B ' J#B#B ' J B B pU ' J BAB rU > P b t B " P Q :A H P P ( H !@T I ($ T ! 1 U ( A ? W A ? W A ? W A ? W U ($ R ; V
0x172120…1722b4 (2, 303) Dummy {f00=0x008d, f01=0x0190, f02=» P: P0 P, R 4T ] U R X "0Tn+ Y WH 8Z 4 U R ] U # $P4> R0> 8' T Y X ' T P X P " >W X 9BR W Y T # R Y R U T ] W 8V X $P y $W
0x1722b4…172448 Dummy {f00=0x008d, f01=0x0190, f02=» T U 5 U R " ] ($ ;h # <c$ P X X " Z "X 8# T& 8Z V2 X # T 8R X $P y $ Y $ X ' X (@ L ' T 4 <d$ _F $?:D" Y X P Y # P 4T U # P 4 4 P _t T _$ U
0x172448…1725dc Dummy {f00=0x008d, f01=0x0190, f02=»T ;, W u > > E D E E P S. W( % ;DV " U D $ P #`P T E ($ _ " P T 8! P6 Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b#
0x1725dc…172770 Dummy {f00=0x008d, f01=0x0190, f02=» WH X H 5 U R" T 8V T P U " ] Y > > V P X P P _ ] W Q Y _: @ T P X R4 @ U S U t " D P D T U W _ U 4XR XX 5 _b Y Y Y X 9BV$ X & Y "
0x172770…172904 Dummy {f00=0x008d, f01=0x0190, f02=» X R C C 9 ($ ?A @( A. X V 9 A< _@ @ d $ N J , r N J Y _8 X XB Y X X X X Pz Pb 1P P W P 5P ( ($ B 9 P. @' ' ( @'
0x172904…172a98 Dummy {f00=0x008d, f01=0x0190, f02=» ( X P A > ;* F Y Wb Y @_x X X A b ;* j Y _& Y @ 0 A A _: X P ( y Y W J (P 0 ) > 6 (P _ ) 1_ 6 (X( P _ 0 )_6 (P _ ) 1 4 X R2 X T* X P& , Y L C L C 92
0x172a98…172c2c Dummy {f00=0x008d, f01=0x0190, f02=» > X l ! B A ! T~ P P 8 P A P A TR ! TL ! TB ! A I ! ~ A P " , ! $ _ ! $ T " X ! _ ! @ P @ P ! A A _ ! @ P @
0x172c2c…172dc0 Dummy {f00=0x008d, f01=0x0190, f02=» 92W 9 W ! ! z _ ! @ T @ P ! ! @ T @ X Wj A I ~ ;* x ($ @ @ @ A ! @ XN ! T @ P ! ! _h 1T" @ X @ P ! ! _ A 8 A @ T _( _, @ T8W @ JT ! _ ! ! z_ A A E
0x172dc0…172f54 (2, 304) Dummy {f00=0x008d, f01=0x0190, f02=» ! ! A _ _T @ P6 X R0 X P T$ T Y W P C 9 A A 4 @ J @ T @ A @ A A ! T2 P4 PJ PL P P. 1 A @ ,]6W P _@ @ J @ E ! P ! 4 _$ ! 2_l 1 A T 0W W A A W
0x172f54…1730e8 Dummy {f00=0x008d, f01=0x0190, f02=» 0 " ~T }T T ! A @ @ U Z8 ! ! A _ B J B P J ! ~_ ! ! 4 A ? J T ! A T PT 4 ! A ? _ I ! ~" P A A< l A 4 4 A _,B P A< W ! ~ ($" * 9AY X$2 _ ! 9AP
0x1730e8…17327c Dummy {f00=0x008d, f01=0x0190, f02=» ;* v ($ l @ A 0 ($ A 0 j a 8 4 ;* A 8 > ;* Z A 4 A l ! @ P ! ! @ P a A 4 A ! T ' A 4 > > L P ! 4 _$ ! 2_l 1 A T 0W W A A W
0x17327c…173410 Dummy {f00=0x008d, f01=0x0190, f02=» 0 " ~T }T T ! A @ @ U Z8 ! ! A _ B J B P J ! _ ! ! 4 A ? J T ! A T P 4 ! A ? _ I ! " P A A l A 4 4 A _,B P A W ! ~ " * 9AY X$2 _ ! 9AP
0x173410…1735a4 Dummy {f00=0x008d, f01=0x0190, f02=» v l @ A 0 A 0 j a 8 4 A 8 Z A 4 A l ! @ P ! ! @ P a A 4 A ! T ' A 4 > L P ! 4 _$ ! 2_l 1 A T 0W W A A W
0x1735a4…173738 Dummy {f00=0x008d, f01=0x0190, f02=» " ~T }T T ! A @ @ U Z8 ! ! A _ B J B P J ! _ ! ! 4 A ? J T ! A T P 4 ! A ? _ I ! " P A A l A 4 4 A _,B P A W ! ~ " * 9AY X$2 _ ! 9AP
0x173738…1738cc Dummy {f00=0x008d, f01=0x0190, f02=» v l @ A 0 A 0 j a 8 4 A 8 Z A 4 A l ! @ P ! ! @ P a A 4 A ! T ' A 4 > L P ! 4 _$ ! 2_l 1 A T 0W W A A W
0x1738cc…173a60 Dummy {f00=0x008d, f01=0x0190, f02=» " ~T }T T ! A @ @ U Z8 ! ! A _ B J B P J ! _ ! ! 4 A ? J T ! A T P 4 ! A ? A' W A' W P& A' A' @ - ' R A @' @' 4 " * 9AY X$2 _ ! 9AP
0x173a60…173bf4 (2, 305) Dummy {f00=0x0092, f01=0x0190, f02=» v l @ A 0 A 0 j a 8 4 A 8 Z A 4 A l ! @ P ! ! @ P a A 4 A ! T ' A 4 > L P ! 4 _$ ! 2_l 1 A T 0W W A A W
0x173bf4…173d88 Dummy {f00=0x0092, f01=0x0190, f02=» " ~T }T T ! A @ @ U Z8 ! ! A _ B J B P J ! _ ! ! 4 A ? J T ! A T P 4 ! A ? A W A W P A A @ - R A @ @ 4 " * 9AY X$2 _ ! 9AP
0x173d88…173f1c Dummy {f00=0x0092, f01=0x0190, f02=» v l @ A 0 A 0 j a 8 4 A 8 Z A 4 A l ! @ P ! ! @ P a A 4 A ! T ' A 4 > L P ! 4 _$ ! 2_l 1 A T 0W W A A W
0x173f1c…1740b0 Dummy {f00=0x0092, f01=0x0190, f02=» " ~T }T T ! A @ @ U Z8 ! ! A _ B J B P J ! _ ! ! 4 A ? J T ! A T P 4 ! A ? A W A W P A A @ - R A @ @ 4 " * 9AY X$2 _ ! 9AP
0x1740b0…174244 Dummy {f00=0x0092, f01=0x0190, f02=» v l @ A 0 A 0 j a 8 4 A 8 Z A 4 A l ! @ P ! ! @ P a A 4 A ! T ' A 4 > L P ! 4 _$ ! 2_l 1 A T 0W W A A W
0x174244…1743d8 Dummy {f00=0x0092, f01=0x0190, f02=» ?L; ; ( + . . c > > @( A( W 9 ^ ! Z( ( (X0 @( P T M ]@ , ) A( P* P Y U ( ) 5 & > > [ [ ( Z Z Z ? Z > ( * Y
0x1743d8…17456c Dummy {f00=0x0092, f01=0x0190, f02=» C *r B *r T B % X . $ 4 T % *X X ,T ! LW + Y . V + ! B P X " _Z B P$ $$ R % C + * ! W Y +PH Y *P> Y (P Y )P + R _Q P OR R W " ! B ( Wr W 0 Z + ! B Z Z& X
0x17456c…174700 Dummy {f00=0x0092, f01=0x0190, f02=»;GV$ d * P8 X R2;GV. X " ( X , $4 P + X .T * W Y , - ($ ? X :a Z T T W P X :d Y > > |Vj ? 8 R @R6 V @% =cW2 RHP R P 9 W4 _ _ _ _ %0=c X 0P > 0 P > >_ P > _| B 1
0x174700…174894 (2, 306) Dummy {f00=0x0092, f01=0x0190, f02=» ! 6W ! 6 Y Y , U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P " $ P X & X ]r ! 6 Y Y Y _ " _ ! 6 ! 6 , 9 ($ X C _ X Y & Y > B B U$ $ ! T _ U D
0x174894…174a28 Dummy {f00=0x0092, f01=0x0190, f02=» H -_ ? _ X # ! 6 ^ Y _( ? X Z ! 6 P4 P , , X " + ! 6 ! 6 X & , , . . . B 8# T $ # ;D !99P 7Pj PZ ( Y X T ;,.h Y 9 X 8"@P Y W: Y W2 X P y @ 9_. Y WP Y Y W
0x174a28…174bbc Dummy {f00=0x0092, f01=0x0190, f02=»1 ! 6 8! P ! 6 P P 0 & 0 ( B P B H " +PV P. T Y ' ! 6 R: X ( Y &R Y & _ Y &_. 8$ T B 1 38 ! 6 1 1 X " E. P( 8'0P E. TJ ! T 9 _z ! T @_ ! B P 8' T( !3 B C
0x174bbc…174d50 Dummy {f00=0x0092, f01=0x0190, f02=»P X ' X ] ! 6 1 / B 8! T !3 !3 ! 6 1 !3 R ! 6_ B !3 V Z, ! 6_ 8! T B Y & !3 W B Y (U X ( X & R P ! 6 W Y &_ Y & B Y )U X ) T T W V X ' Y )U P"R ! 6_ R _ !
0x174d50…174ee4 Dummy {f00=0x0092, f01=0x0190, f02=» > X " X &" Y )Q Y > X Z2<BR J d ? Y 8" P ! 6 ! 6 T> 8" P d ! 6 Y ! 6 *0 ! 6 X ! 6 Y & Z 1 T _ ! 6 X $ P !3 / R V P P" ! 6 1 W 1 H X $ X !3 _ X $ X 8! P !3 _( X & !3 !
0x174ee4…175078 Dummy {f00=0x0092, f01=0x0190, f02=» * X ) V Y !3 X $ X & !3 X * / / `R Y ! 6 ! 6 ! 6 4 ! 6 V ! 6 V W :h ! 6 4 X )" X '# R 4 1 >7d7v7 7 7t8 7 8 7t8f8x7t8x8x7t7t7t8 $ ( , 0 4 8 < ( H T 4 0 ) $P
0x175078…17520c Dummy {f00=0x0092, f01=0x0190, f02=»P R I W 4 _" H P 4 4 I > Tz C T V Y ( T 4 WX X PT B RNP" A5d @4 A4 ;,4N W> @W& T" P X T ( T 4 W 4 C 8W T 8P Y ^ 5 ) P U ($ XH
0x17520c…1753a0 Dummy {f00=0x0092, f01=0x0190, f02=» X I Y T # C C W4 O " # X Y ) C C x '? Y ( T Y W Y T # P W Y P R R P 7 P 4 " 2 X $? P7$$ > >
0x1753a0…175534 (2, 307) Dummy {f00=0x0092, f01=0x0190, f02=» B P* 0$ T # R QL 8 > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X & 9 ( X B D C > X H UJ H B P PL $ # Q > P _0 # T p > P p
0x175534…1756c8 Dummy {f00=0x0092, f01=0x0190, f02=» X T % T ?C L Rl 9f_@(@ L U L Q0 M 8 9 X D ( ) 1 > _" X X T U 9f ( 9 D Y _| ?(@ X P* T #DP 0P X T 4 4 Y X ( X T X ( 1 1 X P - M T $
0x1756c8…17585c Dummy {f00=0x0092, f01=0x0190, f02=» 1 _ NW Y > > T : ;*; ($ v ; ;*; _ V_< ? ^ 4 _ @ 1 A _ P 9 > > &5 < < < < : = = = > >|> =d=x Z ; ; 0123456789
0x17585c…1759f0 Dummy {f00=0x0092, f01=0x0190, f02=» +,-. 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ] * ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ] P "R Y W ($ v Pl T Pb V_ <UR "R4 PB X R< X T6 X T0. T G Y6
0x1759f0…175b84 Dummy {f00=0x0092, f01=0x0190, f02=» %_B R @ U 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P 9 X P Y X H P 9 T < ? < ? <(@ ? $ P B $ 9H C ">h
0x175b84…175d18 Dummy {f00=0x0092, f01=0x0190, f02=» > & <h$ P > ($SWAP A A A A. H UU @ @ ! P$>B @H AH @H E D P _ $ % $P _ % A @ " Q A ?< : R W2 A E$ AG E$ P. D _ " :c* A E F W " :d2 * A En E & W F
0x175d18…175eac Dummy {f00=0x0092, f01=0x0190, f02=» F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q I BR I Y P @ T W - I P _ T <B :L A W A A W
0x175eac…176040 Dummy {f00=0x0092, f01=0x0190, f02=» < P W <9B @ V W Q I W @H @ A G0 @ G CRT @ P @ ! P W @ V P _ @ ! P G !RRP V @ P W _: G G G V @ PZ W @ @ ! T _ P
0x176040…1761d4 (2, 308) Dummy {f00=0x0093, f01=0x0190, f02=»;;P P V P$ _ P !;;T X$ W I _J I E$ T E E$W E D FN W W D V 0 !;;P P V Xb _ P !;;T X$ W I nP XZ_V S AF AF FN @ R @ ! T AF" AF6 V @ R
0x1761d4…176368 Dummy {f00=0x0093, f01=0x0190, f02=»E # " E E :A K : A T.I T P 1 I P < R P A _> I : E AG AD AFT AFj AE AE AE AE : 9e9C) A I " 9A ! 9B r @?<r A I ! ( : F AG AD AFT AFj AF"! T AF& AF" I ! : 9E
0x176368…1764fc Dummy {f00=0x0093, f01=0x0190, f02=» $ 1T: C !CCTt : 1P P$_ P =H P TB @ T X W n : YX d C !CCTZ B. D X B.9 H?> Q E _ En_ !SST& 0 U?D R X A X W : @ ' R xW V W$ V P P G W P V V T
0x1764fc…176690 Dummy {f00=0x0093, f01=0x0190, f02=» @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : : [ [ : Wr j AD A A A ! T A
0x176690…176824 Dummy {f00=0x0093, f01=0x0190, f02=»Q@ V V v x W V V v p R( W V W ^< _@ V _P V V : V J P J r L V U J _ V J Z K W W :K W r L Q R t L V I IF
0x176824…1769b8 Dummy {f00=0x0093, f01=0x0190, f02=» v : V $ V l $ I V M : W V R RR > R W > <B V x V |P v 1 v W V z ` J _f V : W R R L P J J W x K L _ V : " D Pd W V PL $;A^ D E D P.
0x1769b8…176b4c Dummy {f00=0x0093, f01=0x0190, f02=» R P( |P v v : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ I 0 H W : ? ?
0x176b4c…176ce0 Dummy {f00=0x0093, f01=0x0190, f02=» v b - I Y0 : @ ` V b pP ` $ $ W M( $ H MT ) P _ " = D 4 Q M _d M2 MT M LF = G $ K V W $ K V E J K _N V r V :B A V 9n A @ A A , @
0x176ce0…176e74 (2, 309) Dummy {f00=0x0093, f01=0x0190, f02=» T 9BW P P( P V W U " @ Q @ P A. @ P _b A 9n A :B A @ .V 3 S Y& P4 ' ' S P 3 _ ' 3 ' B A. @ D
0x176e74…177008 Dummy {f00=0x0093, f01=0x0190, f02=» V ]" . nT" J W v J W n V ~P Q$ W x K Q L K _v V d , V I P _ N L % V d V f v G G v U J v G v : L P J L V L : J J V ~P Q$ W x K _$ 8 V V x % V v % : V
0x177008…17719c Dummy {f00=0x0093, f01=0x0190, f02=» I v ) - V I W f v ) G v ` " W p W ~ pP0 P R L P P L _ W ~ R L X4 P L _ ` @ ` W W ~ pPn M( M V W % P R , L I " E R Q~ W ~ R Q~ R P SJ R Xv SJ_|
0x17719c…177330 Dummy {f00=0x0093, f01=0x0190, f02=» L E R T E D E @ v H v E K LF #_v W | ;b W W t V b v ( v W p V ` $ W ` IF ;h 0 :C # : .=H N TB L .=H N TB L N : d 8" R _ ZY QY :
0x177330…1774c4 Dummy {f00=0x0093, f01=0x0190, f02=» I N :H N TBT W W8 2 " T @ I N =H N TB @ ) T !TTXX !CCT T` !UUT d U Wh T 2 .:H N P V I _ R :h " T YV : v `?A @ W W
0x1774c4…177658 Dummy {f00=0x0093, f01=0x0190, f02=» pP. " 4X 1 R Z0 _ W l a w ` :A W V d 4 W P _ W ` W d V V W W V V >k 8 W W t V V : x A ?< d d"P W W r d" W W @ @
0x177658…1777ec Dummy {f00=0x0093, f01=0x0190, f02=» @ P @ P " P " P " P W W . !TTP I b @ T I Y T !TTX" A 9 A : @ @ P. @ " P #D X " P #E X " P #F X : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @
0x1777ec…177980 Dummy {f00=0x0093, f01=0x0190, f02=» W | ( @ % P W @ % P b P0 c r " U I _2 c P0 c " U I _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L
0x177980…177b14 (2, 310) Dummy {f00=0x0093, f01=0x0190, f02=» 3 @ c c S @ c PP c !RRP @ ! T 3 @ & P c 3 c 3 YL @ @ T I : ' ` @ P _ 3 S S V V W @ @ T I
0x177b14…177ca8 Dummy {f00=0x0093, f01=0x0190, f02=» _ c Ph W p c W V 8 8 4 D P$ I @ # P H I K T + Y@ V p _j V t Y T !TTX @ @ T I : ] @ R @ T I P / _ T @
0x177ca8…177e3c Dummy {f00=0x0093, f01=0x0190, f02=» W f _B V W V t Yr T !TTX @ @ T I : T !TTX !CCTr b P, c V r 4 U I $ $ _. c P, c V 4 U I $ $ _. @ @ @ ! P V 8 8 8 @ >B 3
0x177e3c…177fd0 Dummy {f00=0x0093, f01=0x0190, f02=» 8 8 8 4 D P$ I @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T I : W ab V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W ?L V
0x177fd0…178164 Dummy {f00=0x0093, f01=0x0190, f02=» I @ % PD H I H T P( H U V U W < + + P ` V : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W |
0x178164…1782f8 Dummy {f00=0x0093, f01=0x0190, f02=»U Y$ P W | V z 3 % W P _ V |P V v ]' W v P _ @ @ T I : N =H N TB : N =H N TB : &=H F TB : F =H F TB : F =H F TB : P N =H N T b T _ : 00=H 00 P
0x1782f8…17848c Dummy {f00=0x0093, f01=0x0190, f02=» "W ` @ E " d d dr 0d @e PeR !e 1f d*d4d: adD ` . HDC df @ z( KB d ; W # T eR d d
0x17848c…178620 Dummy {f00=0x0093, f01=0x0190, f02=» 8. DY e~ % ( z( KB e ; P f e e 8. DY f0 : P T b T _ : 00=H 00 P
0x178620…1787b4 (2, 311) Opaque[0x194]
0x1787b4…178948 # DirEnt {nam=»MONGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x06b0, f03=0x0000}
0x1787b4…178948 IdxSect {
0x1787b4…178948 f00 = 0x0035 // 0x1787b4 @0x0
0x1787b4…178948 f01 = 0x0002 // 0x1787b6 @0x2
0x1787b4…178948 gno = [ // 0x1787b8 @0x4
0x1787b4…178948 [0x00]: C0x0035.0x2.0
0x1787b4…178948 ]
0x1787b4…178948 }
0x178948…178adc Dummy {f00=0x0035, f01=0x0190, f02=» PSCR PASG 2,LP0F ( PMES ******* MONITORLINKNING ******* " PPRT MONGEN N PINC SYSBUG ` PINC DEBUGM r PINC LRPINT PINC MSUBS PINC TTMJOB PINC DRRT01 PINC DRSOP1 PINC DRDC15 PLKE M PKPF /L,B:D
0x178adc…178c70 Dummy {f00=0x0035, f01=0x004a, f02=»DC15 PLKE M PKPF /L,M:DSB PSCR . PASG /E0,TY10 : PPRT MONGEN N PINC SYSBUG ` PINC DEBUGM r PINC LRPINT PINC MSUBS PINC TTMJOB PINC DRRT01 PINC DRSOP1 PINC DRDC15 PLKE M PKPF /L,B:D
0x178c70…178e04 Dummy {f00=0x0035, f01=0x2008, f02=» PLKE M PKPF /L,M:DSB PSCR . PASG /E0,TY10 : PPRT MONGEN N PINC SYSBUG ` PINC DEBUGM r PINC LRPINT PINC MSUBS PINC TTMJOB PINC DRRT01 PINC DRSOP1 PINC DRDC15 PLKE M PKPF /L,B:D
0x178e04…178f98 Dummy {f00=0x0035, f01=0x0190, f02=» , ( a , ( q 4 HALTN d t SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA S
0x178f98…17912c Dummy {f00=0x0035, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLACL 0 SCTMMP D SCTLAP X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x17912c…1792c0 Dummy {f00=0x0035, f01=0x4062, f02=» [ _ ] ^ , ` L@ ^ X SCTNPE l SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCTDMT , (
0x1792c0…179454 (2, 312) Opaque[0x194]
0x179454…1795e8 # DirEnt {nam=»SYSBUG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x179454…1795e8 IdxSect {
0x179454…1795e8 f00 = 0x0006 // 0x179454 @0x0
0x179454…1795e8 f01 = 0x0006 // 0x179456 @0x2
0x179454…1795e8 gno = [ // 0x179458 @0x4
0x179454…1795e8 [0x00]: C0x0006.0x0.0
0x179454…1795e8 [0x01]: C0x000c.0x1.0
0x179454…1795e8 [0x02]: C0x000c.0x2.0
0x179454…1795e8 ]
0x179454…1795e8 }
0x1795e8…17977c Dummy {f00=0x0006, f01=0x0190, f02=» 2 P IDENT SYSBUG REL 9.2 79-11-16 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x17977c…179910 Dummy {f00=0x0006, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD P E
0x179910…179aa4 Dummy {f00=0x0006, f01=0x0190, f02=»MMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 0 P ENTRY SCTTCT,SCTCDT F P ENTRY SCTBUG b & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC x P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:
0x179aa4…179c38 Dummy {f00=0x0006, f01=0x0190, f02=»START n P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 0 P EXTRN IH1501 T P EXTRN IH1502 t ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P * P EXTRN CHRT1 REMOTE CHANNEL UNIT
0x179c38…179dcc Dummy {f00=0x0006, f01=0x018e, f02=»INT ILLEGAL INTERRUPT P EXTRN HALT HALT ROUTINE P EXTRN BUG DEBUGGER > PX:A EQU 0 MONITOR OPTION Z ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM z * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE & PX:D EQU 0 DM NUMBER OF LOCAL FILES ( PX:E EQU 0
0x179dcc…179f60 Dummy {f00=0x0006, f01=0x0190, f02=» P* PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS * " PSEG:EL EQU 4 EFFECTIVE LENGTH R $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS x P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPAG:QB EQU 2 QUEUE POINTER BACKWARD PPAG:PA E
0x179f60…17a0f4 (2, 313) Dummy {f00=0x000c, f01=0x0190, f02=»DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY $ PSWB:EL EQU 4 SWB LENGTH (BYTES) 2 & PSWB:NS EQU 6 SWB LENGTH (SECTORS) Z P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P SYSTAB P* P* INTERRUPT VECTORS P* P DATA IHPF
0x17a0f4…17a288 Dummy {f00=0x000c, f01=0x018e, f02=»ILLINT 5 P DATA ILLINT 6 P DATA ILLINT 2 P DATA ILLINT R P DATA IHSOP 9 r P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH1501 12 P DATA IH1502 13 P DATA CHLT
0x17a288…17a41c Dummy {f00=0x000c, f01=0x0190, f02=» v P DATA ILLINT P DATA ILLINT ( P DATA ILLINT H P DATA ILLINT 22 h P DATA ILLINT P DATA CHLT1 24 P DATA CHLT2 25 P DATA CHLT3 26 P DATA
0x17a41c…17a5b0 Dummy {f00=0x000c, f01=0x0190, f02=»A ILLINT 32 P DATA ILLINT 33 P DATA ILLINT 4 P DATA ILLINT T P DATA ILLINT 36 t P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT P
0x17a5b0…17a744 Dummy {f00=0x000c, f01=0x0190, f02=» | P DATA ILLINT 46 P DATA ILLINT 47 $ P DATA ILLINT 48 @ P DATA ILLINT 49 P DATA ILLINT 50 x P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DAT
0x17a744…17a8d8 Dummy {f00=0x000c, f01=0x0190, f02=» DATA ILLINT 60 P DATA ILLINT 61 P DATA ILLINT 62 8 P DATA TRAP TRAP ROUTINE T P SYSTAB t P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP
0x17a8d8…17aa6c Dummy {f00=0x000c, f01=0x0190, f02=» P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG , P ABR(NZ) A1 B P HLT V P b P SYSTAB j P ~ P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & P
0x17aa6c…17ac00 Dummy {f00=0x000c, f01=0x0190, f02=» F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS H PSCTPAG DATA 0 PAGTAB ADDRESS ~ PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DATA 0 NUMBER OF SEGMEN
0x17ac00…17ad94 (2, 314) Dummy {f00=0x000c, f01=0x0190, f02=»EX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY H P INDEX REL TTAB r * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM STACK BASE
0x17ad94…17af28 Dummy {f00=0x000c, f01=0x0190, f02=»ATA 0 CDTAB ADDRESS PSCTBUG DATA BUG DEBUGGER & PSCTDMT DATA X:B DMTASKS IN SYSTEM < P BIT 13:D2,14:D1,15:D0 f 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 00000 DM NO OF LOCAL FILES , PSCTDMC DATA 00000 DM NO OF COM
0x17af28…17b0bc Dummy {f00=0x000c, f01=0x40f8, f02=» P* SYSTEM STACK P* P RES 145 ( P DATA /FCC0 AND PSW 8 & PSTB DATA LOOP AND PC FOR IDLE LOOP T P ~ P P* P* IDLE LOOP P* P PLOOP RB * P P P P END @ 000 DM NO OF COM
0x17b0bc…17b250 Dummy {f00=0x000c, 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
0x17b250…17b3e4 Dummy {f00=0x000c, f01=0x0190, f02=» ( P RF(E) LKM060 LOAD SEGMENT REQUEST? P XIF 0 P* < P EJECT LRPINT F P* ^ P* h PLKM030 EQU * r ( P CM PRUN INDICATE IDLE LOOP RUNNING $ P CF A15,SWL48 SWITCH TO LEVEL 48 P LDK A4,0 " P LDR A3,A6 GET DATA DIRECTIV
0x17b3e4…17b578 Dummy {f00=0x000c, f01=0x0190, f02=»IRECTIVE POSITIVE z P* P IFT MMUPAG=0 $ P LDR* A4,A2 GET LABEL : P XIF X P* d P IFT MMUPAG=1 n P ELR A4,A2 GET LABEL P XIF P* P EJECT LRPINT P* . P* UPDATE TTB:SA AND GO TO LKM PROCESSOR
0x17b578…17b70c Dummy {f00=0x000c, f01=0x0190, f02=»MAL v * P RF(Z) LKMQDI PROGRAM SWITCH REQUEST? P CW A3,LKMAL : * P RF(NL) LKMRQE INVALID DATA DIRECTIVE? N P INH | P LD A3,LKMAL,A3 P* P IFF MMUPAG+DSKPAG=0 P RF LKM065 P* . PLKM060 EQU * LOAD SEGMENT REQUEST (DAT
0x17b70c…17b8a0 Dummy {f00=0x000c, f01=0x018e, f02=» P* P EJECT LRPINT P* & P* 0 P* L K M E R R : P* R P* > PLKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT f P* PLKM070 EQU * P CF A15,HALT HALT SYSTEM P* P* P* L K M R Q
0x17b8a0…17ba34 (2, 315) Opaque[0x194]
0x17ba34…17bbc8 # DirEnt {nam=»B:DSB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1280, f03=0x0000}
0x17ba34…17bbc8 IdxSect {
0x17ba34…17bbc8 f00 = 0x0094 // 0x17ba34 @0x0
0x17ba34…17bbc8 f01 = 0x0014 // 0x17ba36 @0x2
0x17ba34…17bbc8 gno = [ // 0x17ba38 @0x4
0x17ba34…17bbc8 [0x00]: C0x0094.0x0.0
0x17ba34…17bbc8 [0x01]: C0x0099.0x3.0
0x17ba34…17bbc8 [0x02]: C0x009a.0x0.0
0x17ba34…17bbc8 [0x03]: C0x009a.0x3.0
0x17ba34…17bbc8 [0x04]: C0x009b.0x0.0
0x17ba34…17bbc8 [0x05]: C0x009b.0x1.0
0x17ba34…17bbc8 [0x06]: C0x009d.0x0.0
0x17ba34…17bbc8 [0x07]: C0x00a1.0x0.0
0x17ba34…17bbc8 [0x08]: C0x00a1.0x1.0
0x17ba34…17bbc8 [0x09]: C0x00a1.0x2.0
0x17ba34…17bbc8 ]
0x17ba34…17bbc8 }
0x17bbc8…17bd5c Dummy {f00=0x0094, f01=0x0190, f02=»Jj NqZ ! ! @ ^ @ J T c @ Tg t z ^ b bLPL H b2 Z ` z
0x17bd5c…17bef0 Dummy {f00=0x0094, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A U A @ * A A , @ ~ A A ~ @ A A @ A A @ A A @ A
0x17bef0…17c084 Dummy {f00=0x0094, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ t S A _ Z r V @ & T :a R
0x17c084…17c218 Dummy {f00=0x0094, f01=0x0190, f02=» Q ( R " S T Y G P H L V I U . V h_v A B _ NO! A A A A A A A A z *T A _ P A A d . , , < + - ; t : X " H W X " H H A A A _T @ P A 1+X A
0x17c218…17c3ac Dummy {f00=0x0094, f01=0x0190, f02=» & .T @ W @ A @W dW 0 Z P & l_, W W PP @ & l 0 & T A P P p r :_b d P D r_J A B Z .T @ W @ T @ W @ @ >a Z P & P @ A B P P
0x17c3ac…17c540 Dummy {f00=0x0094, f01=0x0190, f02=» P 3P C @ P @ x @ P @ Q A . @ B A " T @ W @ A 2 A .P @ j_2 .T 4 0 P j pP _ @ j . d 0 @ @ @ P d 0 @ A B b 9 Y 4>a Y t c x
0x17c540…17c6d4 (2, 316) Dummy {f00=0x0099, f01=0x0190, f02=» A A P@ @ PB z z d . @ ! T A @ A # A . & RE RN ME MN W R, ( T ( W P T $ ; V ; W~&~ P &`P 6 P @ $ P $W $ TR PJ#~ > V . >A P Y X W ^ ? ?
0x17c6d4…17c868 Dummy {f00=0x0099, f01=0x0190, f02=» " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A ^ @ ? ? > > > > > > > @ > ? ? ? ? ? ? ? A > A >
0x17c868…17c9fc Dummy {f00=0x0099, f01=0x0190, f02=» 0:D A z_* A " A A b P & T A A " @ R _U . r " A >: D A > " A Z A ^ b$ T ! " A @ BT 0W 0W A @ BT 1W 1 @ " P& A UT @ W T @ W T @ W @ " " ? ?
0x17c9fc…17cb90 Dummy {f00=0x0099, f01=0x0190, f02=» ! R :W" r W r W W ?W /W : A W ! A A PL _ @ _ I T " T A P I T$! A A A A A A A A J A A @ A @ > @ _ . I d 0R> M A P6 T @
0x17cb90…17cd24 Dummy {f00=0x0099, f01=0x0190, f02=» H ( ( P c P W: P, A3$ V ( U P" @F V LF W @F U > 3B A A Q > ? @ AG A v b A tQ _8 A t < Q n P n Q n Z Y _ 8 3* Q Z P 0 9 _ _, ? _ P H
0x17cd24…17ceb8 Dummy {f00=0x0099, f01=0x0190, f02=» A < _ _ ^ 3" $P T I R $ 5 % > ? 2W ? W ? T T$ U U U U T U U > > > 4 T - 1_( U T P 0 U _t ? @2 T 0 A2 1 Q Q > > 0 @2 1 A2 P P > ? * X
0x17ceb8…17d04c Dummy {f00=0x0099, f01=0x0190, f02=» @ P $ H W W > > > > > > @F V ? F > _ > ? _ > > ? ^ ! Y ^ _ ? A. $ ( , 0 4 8 < #M 1 3 J B B 3 J B B 3 J#B#B 3 J B B pU
0x17d04c…17d1e0 Dummy {f00=0x0099, f01=0x0190, f02=» H !@T I 3B T ! 1 U 3> A ? W A ? W A ? W A ? W U 3B R ; V # T L p # PR T RR P 4 ] P $ P ] U x PB P: P0 P, R 4T ] U p X "0Tn
0x17d1e0…17d374 (2, 317) Dummy {f00=0x009a, f01=0x0190, f02=» 9BR W Y T # p Y R U T ] W 8V X $P y $W $ FJ P 8R 3B Y $ X Z ;BR 8% =A Y T Z& _, X ' X 8V ( 4XB XH U T T U 5 U R " ] 3B ;h # <c$
0x17d374…17d508 Dummy {f00=0x009a, f01=0x0190, f02=» <d$ _F $?:D" Y X P Y # P ( 4T U # P 4 4 P _t T _$ U _ 4 U 5 ? R PF "P2 R T T R X # X > P P P X XF _H Wr ? T T FJ W u > > E D E
0x17d508…17d69c Dummy {f00=0x009a, f01=0x0190, f02=»_8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< T W T ] _ P T V Wt 8V T P U 8 ~ U P S WH X H 5 U R" T 8V T P
0x17d69c…17d830 Dummy {f00=0x009a, f01=0x0190, f02=» U t " D P D T U W _ U 4XR XX 5 _b Y Y Y X 9BV$ X & Y " X D V D X T 8TV 9WD B 7P P 3: A3 W A3 @3 A.W ? A I.9 X R C C D 3B ?A @3 A. X V
0x17d830…17d9c4 Dummy {f00=0x009a, f01=0x0190, f02=»_8 X XB Y X X X X Pz Pb 1P P W P 5P 3: 3B B 9 #:P. @2 2 3: @2 `2 @2 P 0P _ % A2 A2 D _F B ,Q< n _Z X P 0 Y P C DP_| J_ B Y _N 3> X P A FH d Y Wb Y @_x X X A
0x17d9c4…17db58 Dummy {f00=0x009a, f01=0x0190, f02=» (X( P _ 0 )_6 (P _ ) 1 4 #: X R2 X T* X P& , Y L C L C DP > @ R @ N @ P A PX D _" X P y Y X P T @ T A A > A A A A A W > X
0x17db58…17dcec Dummy {f00=0x009a, f01=0x0190, f02=» P " J !"B _ !"B T #: " X !" _ !# @ P @ P ! A A _ !# @ P @#hX< ! T A ! !" X _4 A @#h @ T PP A @ #:P2 X R, X T$ P C C DPW D W ! ! _ !# @ T @ P !
0x17dcec…17de80 Dummy {f00=0x009a, f01=0x0190, f02=» @ X @ P ! ! _ A 8 A @ T _( _, @ T8W @#hT ! _ ! 4 ! _ A A E A A 4 @ P ! !" !" W @ TT ! _ T _ A )n C D( B B A A A A A ! !" A _ _T @ P6 X R0 X P T$ T Y
0x17de80…17e014 (2, 318) Dummy {f00=0x009a, f01=0x0190, f02=» 1 A @ ,]6W P _@ @#h @ E !#$P !! 4 _$ !#$ 2_l 1 A T 0W W A A W W W A A !!v @ !" @ !" !! !! B J !* 4 !!v !! @ @ A @ T @#: !" 8 !" 0 " ~T }T T !" A @ @ U
0x17e014…17e1a8 Dummy {f00=0x009a, f01=0x0190, f02=» ? _ I !* " P A AG A R 4 A _,B P AG W !* 3B" * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @2 `2 A"@ @2 P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT " AG @#:P FH" 3B @ A N " 3B A N j a V
0x17e1a8…17e33c Dummy {f00=0x009a, f01=0x0190, f02=» # #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A @ T @ ! 8 ! 0 " ~T }T T ! A @ @ U
0x17e33c…17e4d0 Dummy {f00=0x009a, f01=0x0190, f02=» ? _ I ! " P A A A R 4 A _,B P A W ! " * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @ ` A"@ @ P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT A @ P " @ A N A N j a V
0x17e4d0…17e664 Dummy {f00=0x009a, f01=0x0190, f02=» #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A @ T @ ! 8 ! (: " ~T }T T ! A @ @ U
0x17e664…17e7f8 Dummy {f00=0x009a, f01=0x0190, f02=» ? _ I ! " P A A A R 4 A _,B P A W ! " * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @ ` A"@ @ P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT A @ P " @ A N A N j a V
0x17e7f8…17e98c Dummy {f00=0x009a, f01=0x0190, f02=» #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A @ T @ ! 8 ! (: " ~T }T T ! A @ @ U
0x17e98c…17eb20 Dummy {f00=0x009a, f01=0x0190, f02=» ? A2 W A2 W P& A2 A2 @* - 2 R * A* @2 @2 4* " * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @ ` A"@ @ P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT A @ P " @ A N A N j a V
0x17eb20…17ecb4 (2, 319) Dummy {f00=0x009b, f01=0x0190, f02=» #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A @ T @ ! 8 ! (: " ~T }T T ! A @ @ U
0x17ecb4…17ee48 Dummy {f00=0x009b, f01=0x0190, f02=» ? A W A W P A A @ - R A @ @ 4 " * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @ ` A"@ @ P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT A @ P " @ A N A N j a V
0x17ee48…17efdc Dummy {f00=0x009b, f01=0x0190, f02=» #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A @ T @ ! 8 ! (: " ~T }T T ! A @ @ U
0x17efdc…17f170 Dummy {f00=0x009b, f01=0x0190, f02=» ? A W A W P A A @ - R A @ @ 4 " * 9AY X$2 _ !" 9AP ^ 2 _ " ! 1 4 @ ` A"@ @ P 0 @"@ ,# A"@ 4 _ ? @ A N @ VT A @ P " @ A N A N j a V
0x17f170…17f304 Dummy {f00=0x009b, f01=0x0190, f02=» #j$ P ! 4 _$ ! 2_l 1 A T 0W W A A W W W A A ! @ ! @ ! ! ! B J ! 4 ! ! @ @ A 2 2
0x17f304…17f498 Dummy {f00=0x009b, f01=0x0190, f02=» ) A3$ P* P Y U ( ) 5 & > > [ [ 3$ Z Z Z ? Z > 3 5 Y U R -P 5 X , ) Y . 5 X " PP:A: R Q W Y <D X ? ?: T p > 6 > Pb P C 5 B 5 T B % X . $ 4 T
0x17f498…17f62c Dummy {f00=0x009b, f01=0x0190, f02=»P> Y (P Y )P 6 R _Q P OR R W " ! : B 3 Wr W 0 Z 6 ! : B Z Z& X . 0T N W X ,P Y . 0 %_. % Y . W _p P 6 _ C ! 6 3>" 64 QPR X R(;GV$ 6 P8 X R2;GV. X " 3 X , $4 P
0x17f62c…17f7c0 Dummy {f00=0x009b, f01=0x0190, f02=»P R P 9 W4 _ _ _ _ %0=c X 0P > 0 P > >_ P > _| B 1 > NT 0 _ , 6 8H8 8j PB P8 3: B P B L # +P ! T ! T T ! T Y & ! TW ! T ! TW ! T Y Y 8 U P" T Y &
0x17f7c0…17f954 (2, 320) Dummy {f00=0x009b, f01=0x0190, f02=» Y _ " _ ! T ! T 7 D 3B X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P f " T X _~ R0 V0 ! P* P P P" R ?Q ! T Y R Q 7 f -_ ? _ X # ! T ^ Y _( ? X Z !
0x17f954…17fae8 Dummy {f00=0x009b, f01=0x0190, f02=» 3: Y X T FJ9 Y 9 X 8"@P Y W: Y W2 X P y @ 9_. Y WP Y Y W Y Y X Y 8# T W$ T( X $ P X P B V *@ Y 3B 3> ? X _F , : ?"=*=<= < ! T 8! P ! T P P < & ; 3: B
0x17fae8…17fc7c Dummy {f00=0x009b, f01=0x0190, f02=» < X " E: P( 8'0P E: TJ ! T 9 _z ! T @_ ! B P 8' T( !> B C < ^T PR RF ?] _ X X &" X )# C V C ! T Y B ! T Y _` C _ " $ P X ' X ] ! T = : B 8!
0x17fc7c…17fe10 Dummy {f00=0x009b, f01=0x0190, f02=» ! T W Y &_ Y & B Y )U X ) T T W V X ' Y )U P"R ! T_ R _ ! T Y ' : " ! T 8!0T 8 !@P ! T$ P ! T ! T = ! T T Y & T X & C D 3B X Y & Y > X " X &" Y )Q Y > X Z2<BR J ?
0x17fe10…17ffa4 Dummy {f00=0x009b, f01=0x0190, f02=» !> : R V P P" ! T = W = f X $ X !> _ X $ X 8! P !> _( X & !> !> Y _D X " X &" Y )U W ! T ! T ! T Y 4 B : U )X R@ X X &" Y * X ) V Y !> X $ X & !> X * :
0x17ffa4…180138 Dummy {f00=0x009b, f01=0x0190, f02=»B B B B B C B C B C C B C C B B B D $ ( , 0 4 8 < ( H T ? 0 ) $P $ ) U @ C @?L @ ? 0P P > ? ? ? ? ? P q 0 ) > > > >_* 3 Z8 0P R I W @ _" H P ? 4 I >
0x180138…1802cc Dummy {f00=0x009b, f01=0x0190, f02=»3 T ? W @ C 8W T 8P Y ^ 5 ) P U 3B $ XH ' X X #DP @ b P X l T _| Xv Y @ P< 3 T W0 X &P* T P H T _ X I Y T # C C W4 O
0x1802cc…180460 Dummy {f00=0x009b, f01=0x0190, f02=»B0P ?( " 2 X $? PBB$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ B P0 B P* 0$ T # R QL C4 >
0x180460…1805f4 (2, 321) Dummy {f00=0x009d, f01=0x0190, f02=» C > X H UJ H B P PL $ # Q > P _0 # T p > P p (_H _2 B U X C4 > ? _ X T (@ C ^ > > ? _ X T X X T % T ?C L Rl D _@(@ L U L Q0 M
0x1805f4…180788 Dummy {f00=0x009d, f01=0x0190, f02=» X P* T #DP 0P X T ? 4 Y > X 3 X T X 3 1 1 X P - M T $ PD _ T " # p X L R P B*P (@ ?: ^ X P8 P0 # P T P 0P 1 _ lW > Y > > T F FHF4 3B
0x180788…18091c Dummy {f00=0x009d, f01=0x0190, f02=»P 9 > > &@ G G H H E H"H H I> I I H H "x F F 0123456789 F G.G^G G^G 0123456789 & p 0123456789 * +,-. 0123456789 `ABCDEFGHI
0x18091c…180ab0 Dummy {f00=0x009d, f01=0x0190, f02=» Y W 3B Pl > T Pb t_ <UR "R4 $ PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U 9C @ _ T M D
0x180ab0…180c44 Dummy {f00=0x009d, f01=0x0190, f02=» X P Y X H P D r < ? < ? <(@ J2 $ P B $ 9H C ">h # P >_2 < U = r (@ " $ P B >H<h JH P ?_" = > = > = =_D R _ 00 > & <h$ P > ($SWAP A A A
0x180c44…180dd8 Dummy {f00=0x009d, f01=0x0190, f02=» A JZ : R W2 A PB AR PB P. O _ " :c* A P Q&W " :d2 * A P P & W F ` W F W F CRT F A @ @ ! P2 @ P T(;b=H F CR L F L W =J F CRTT F PN A @ $ P( @ R W 8 !RRT W
0x180dd8…180f6c Dummy {f00=0x009d, f01=0x0190, f02=» Y P @ T W - T&P _ T <B :L A W A A W T& T F W V T( = V W Y* P Z( = :L < P W <9B @ V W Q T( W
0x180f6c…181100 Dummy {f00=0x009d, f01=0x0190, f02=» P W _: S S R V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W PB PB P O PB TJ V 0 !;;P P V P$ _ P !;;T X$ W T8
0x181100…181294 (2, 322) Dummy {f00=0x00a1, f01=0x0190, f02=» !;;T X$ W T8 nP XZ_V S AQ AQ Ql @ R @ ! T AQ@ AQT V @ R V V I T8 W V $ ) H A I. : P: C. O X C.9h! P: P:# " P: P: :A K : A T.I T
0x181294…181428 Dummy {f00=0x00a1, f01=0x0190, f02=»9A ! 9B r @JZr A I ! ( : Q& AR AO" AQr AQ AQ@! T AQD AQ@ I ! : 9E @JZr s A I T ) A _ I N T : T( Qr Q 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P _` @ T
0x181428…1815bc Dummy {f00=0x00a1, f01=0x0190, f02=» X W : @ ' R xW V W$ V P P R W P V V T R V T W P V W @ $ P p W T8 T : AR^ R _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T
0x1815bc…181750 Dummy {f00=0x00a1, f01=0x0190, f02=» j AO" A A A ! T A W Z A. c @ V W U T( R $ )_ : W W W W W W Q@ V V v x W V V v p R( W V
0x181750…1818e4 Dummy {f00=0x00a1, f01=0x0190, f02=» _ V U Z K W W :K W r W Q R t W V T( Td v : V W V T( ) : V <B W |P v v : $ T V |P v w v : V $ V l $ T V M : W
0x1818e4…181a78 Dummy {f00=0x00a1, f01=0x0190, f02=» R R W P U U W x V4 X _ V : " D Pd W V PL $;A^ D E D P. V T(P T( P T T( E _J T E _T " D T E T E D E % : " R ;B T " R P( |P v v
0x181a78…181c0c Dummy {f00=0x00a1, f01=0x0190, f02=» : : , X G : J @ 0 V @ T( 0 H W : ? ? R 0 R P P B t _ 3& : V ) X* v : 4P: " D XP , H H $ M v b - I Y0 : @ ` V b
0x181c0c…181da0 Dummy {f00=0x00a1, f01=0x0190, f02=»Wd = G $ V V W $ V V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U
0x181da0…181f34 (2, 323) Dummy {f00=0x00a1, f01=0x0190, f02=» Y& P4 2 2 S P 3 _ 2 3 2 B A. @ D @ W x A : A 3B > l : W R U W n V pT : N V l W H V ]" . nT" V W v U W n V ~P
0x181f34…1820c8 Dummy {f00=0x00a1, f01=0x0190, f02=»U v G v : W P U W V X : V U V ~P B W x V4_$ 8 V V x % V v % : V V Td 9k! P % _ V V W W r X* W V T v ) W b G T v ) - V T W f v ) G v
0x1820c8…18225c Dummy {f00=0x00a1, f01=0x0190, f02=» V W % [ R , X T " E R W ~ R R P ^h R Xv ^h_|W W T : U V W x V4 X _ V P XP I X W z ` pPl XF H - V X* I V " R X E R T E D E @ v H v E
0x18225c…1823f0 Dummy {f00=0x00a1, f01=0x0190, f02=» : .=H N _` X .=H N _` X N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ W R T( - @ - N !TTP T( N :H N TBT W W8 2 " T @ T(
0x1823f0…182584 Dummy {f00=0x00a1, f01=0x0190, f02=»V T( _ R :h " _ YV : v `?A @ W W :b / W : W @ W D X V W W ` " W p @ pP. " 4X 1 R Z0
0x182584…182718 Dummy {f00=0x00a1, f01=0x0190, f02=» 8 W W t V V : x A JZ o o@P b W r o@ b W @ @ % n V , P@ , - 4 ] 4 W Y 5 X * _6 : @ 2 ] @ P @ P " P " P " P W W . !TT
0x182718…1828ac Dummy {f00=0x00a1, f01=0x0190, f02=» #F c : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T T( : @ :B W . !TTP T( n W t N =H N W l N =H N nP W p N =H N _` W | ( @ % P W @ % P
0x1828ac…182a40 Dummy {f00=0x00a1, f01=0x0190, f02=» _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P _z !TTT d S& @ @ T T( : @ ! P @ @ n CRT 3 @ n n S @
0x182a40…182bd4 (2, 324) Dummy {f00=0x00a1, f01=0x0190, f02=» : 2 ` @ P g:_ g: 3 S S V V W @ @ T T( : P S S _ : . !TTP T( V n W t * n P n0 r _ n" Ph W p n0 W V 8 8
0x182bd4…182d68 Dummy {f00=0x00a1, f01=0x0190, f02=»T( : hz @ R @ T T( P / _ T @ A V W n W t n PT W f ( n0 W d n@ n| G =h G V d V r < k2 V f P W f _B V W V t Yr _z !TTX @ @
0x182d68…182efc Dummy {f00=0x00a1, f01=0x0190, f02=» P, n0 V 4 U T( $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W n P0 W f n0 W d n@ V d V r < k2 V f _2 n" U^ n0 V 8 8 8 4 D P$ T8 @ # P H
0x182efc…183090 Dummy {f00=0x00a1, f01=0x0190, f02=» l V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W Jj V W R 9 W D T8 ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @ % PD H I H T P( H
0x183090…183224 Dummy {f00=0x00a1, f01=0x0190, f02=»WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P
0x183224…1833b8 Dummy {f00=0x00a1, f01=0x0190, f02=» _` : F =H F _` : F =H F _` : P N =H N T n _z_ : 00=H 00 P P _ _ : @ ! P (W ( : c* c d^ f f gT hT id m @ n CRT" @ ! P ` @ E "W ` @ E " o$o6 o 0p @
0x1833b8…18354c Dummy {f00=0x00a1, f01=0x0190, f02=» o F W # T pp o o 46 GP p2 *T P 29 DI pd ?O_o 8: DY p % (
0x18354c…1836e0 Dummy {f00=0x00a1, f01=0x0190, f02=» 8: DY qN : P T n _z_ : 00=H 00 P P _ _ : @ ! P (W ( : c* c d^ f f gT hT id m @ n CRT" @ ! P ` @ E "W ` @ E " o$o6 0 @
0x1836e0…183874 (2, 325) Opaque[0x194]
0x183874…183a08 # DirEnt {nam=»LISTS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x183874…183a08 IdxSect {
0x183874…183a08 f00 = 0x0002 // 0x183874 @0x0
0x183874…183a08 f01 = 0x0002 // 0x183876 @0x2
0x183874…183a08 gno = [ // 0x183878 @0x4
0x183874…183a08 [0x00]: C0x0002.0x3.0
0x183874…183a08 ]
0x183874…183a08 }
0x183a08…183b9c Dummy {f00=0x0002, f01=0x00b6, f02=» BEA DRDC15 SCR BEA MSUBS " SCR 4 BEA LRPINT @ SCR R BEA DRRT01 ^ SCR p BEA DRSOP1 | SCR ASG /E0,TY10 END * P END @ LEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x183b9c…183d30 Dummy {f00=0x0002, f01=0x2008, f02=» DRDC15 SCR BEA MSUBS " SCR 4 BEA LRPINT @ SCR R BEA DRRT01 ^ SCR p BEA DRSOP1 | SCR ASG /E0,TY10 END * P END @ LEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x183d30…183ec4 Dummy {f00=0x0002, f01=0x0190, f02=»SEGW T:MWAID , ( ( W , ( W ^ P , ( ( , ( 1W C C C ( T:IO1 T:IO2 T
0x183ec4…184058 Dummy {f00=0x0002, f01=0x0190, f02=»P B l , ( q 5 P C P B % P C I:RT1 < T:EDWR L I:EDW ` , ( + p T:EDWEC T:EDWF , ( C C B B P C T:EDWIN
0x184058…1841ec Dummy {f00=0x0002, f01=0x0190, f02=» I:EVA7 , ( : % Y , ( ) C & R V C F , ( G : B T v T:FDS0 x T:FDSP, T:GDSP , ( e T T V : 2 ' W
0x1841ec…184380 Dummy {f00=0x0002, f01=0x0190, f02=»;D:B " : v , ( _ C : I:EVA2 F , ( : P C X , ( W $0 P C : " , ( !@P ") # B C B % C C T:STCW < , ( ; :
0x184380…184514 (2, 326) Opaque[0x194]
0x184514…1846a8 # DirEnt {nam=»FILLER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03f8, f03=0x0000}
0x184514…1846a8 IdxSect {
0x184514…1846a8 f00 = 0x001f // 0x184514 @0x0
0x184514…1846a8 f01 = 0x0002 // 0x184516 @0x2
0x184514…1846a8 gno = [ // 0x184518 @0x4
0x184514…1846a8 [0x00]: C0x001f.0x3.0
0x184514…1846a8 ]
0x184514…1846a8 }
0x1846a8…18483c Dummy {f00=0x001f, f01=0x4044, f02=» P IDENT FILLER 82-11-26 RES 3100 " END 4@ @
0x18483c…1849d0 Dummy {f00=0x001f, f01=0x2008, f02=» NT FILLR 82-11-26 RES 3100 " END 4@ @
0x1849d0…184b64 Dummy {f00=0x001f, f01=0x0190, f02=» ( P B , . / 0 6 7 8 9 : ; < = > A B C D I J K P Q T U V W X Z [ ^ ******************************PLADSART/ANTAL? TOG?
0x184b64…184cf8 Dummy {f00=0x001f, f01=0x0190, f02=»V IGEN DATO? KLASSE? RYGER? KUPE? PLACERING? FRI? TILSLUTNING? SATELLIT? KONTROLNUMMER?
0x184cf8…184e8c Dummy {f00=0x001f, f01=0x0190, f02=» ACCEPTKODE? N@GLE? STANDARDMASKE? TEKNIK SKRIV MANUELT RYGER/ANTAL? KUPE/ANTAL? PLACERING/ANTAL? FO
0x184e8c…185020 Dummy {f00=0x001f, f01=0x0190, f02=» BNR? REFNR FEJLAGTIG UDFYLDT !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!++ ;" 0)(!%'&B K 12 SID ANT ST 123 - 456 TOG DATO KL 1 RY KUP PLAC N FRI T SAT
0x185020…1851b4 (2, 327) Opaque[0x194]
0x1851b4…185348 # DirEnt {nam=»SYSHIS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06a8, f03=0x0000}
0x1851b4…185348 IdxSect {
0x1851b4…185348 f00 = 0x0035 // 0x1851b4 @0x0
0x1851b4…185348 f01 = 0x0002 // 0x1851b6 @0x2
0x1851b4…185348 gno = [ // 0x1851b8 @0x4
0x1851b4…185348 [0x00]: C0x0035.0x1.0
0x1851b4…185348 ]
0x1851b4…185348 }
0x185348…1854dc Dummy {f00=0x0035, f01=0x0190, f02=» IDENT SYSHIS DSB 83-03-09 * & * SYSTEM HISTORY TABLE 0 * N , '* USED TO RECORD SYSTEM / DRIVER STATUS X " * OR EVENTS FOR ERROR TRACKING * ENTRY PWRON,PWROFF,PWRCPL ENTRY DCTHER,DCRTRY,DCMISC P ENTRY S
0x1854dc…185670 Dummy {f00=0x0035, f01=0x0190, f02=»* @ ;* POWER OFF COUNTER, INCREMENTED AT EACH POWER OFF SEQUENCE PWROFF EQU * N DATA 0 d * t * POWER COMPLETION FLAGS ~ * %* BIT 15 = DRDC15 POWER ON COMPLETION & !* BIT 14 = DRRT01 " " " & "* BIT 13 = DRSOP1
0x185670…185804 Dummy {f00=0x0035, f01=0x416a, f02=»DCTHER EQU * P DATA 0 * & " * DC RETRY COUNTER FOR DRDC15 0 * V DCRTRY EQU * ` DATA 0 v * & !* MISCILANEOUS DC ERROR REPORTING * DCMISC EQU * DATA 0 * P* & P* SAVE ARE
0x185804…185998 Dummy {f00=0x0035, f01=0x2008, f02=» * " * DC RETRY COUNTER FOR DRDC15 * > DCRTRY EQU * H DATA 0 ^ * n & !* MISCILANEOUS DC ERROR REPORTING x * DCMISC EQU * DATA 0 * END @ OP1 " " "
0x185998…185b2c Dummy {f00=0x0035, f01=0x0190, f02=» T # | , ( 9@ Y U T ] W 8V DWTTP L , ( W X P y W SETIMP , ( s P 8R R DWTOCH , ( Y X Z ;BR 8% =A
0x185b2c…185cc0 Dummy {f00=0x0035, f01=0x018e, f02=»R " ] ;h , ( # <c$ P X X " Z * & @ # "X 8# T 8Z V X P , ( A D # T 8R X P y Y ~ DWTECB INTADR , ( [ " X ' " X (@ L $ , ( q
0x185cc0…185e54 (2, 328) Opaque[0x194]
0x185e54…185fe8 # DirEnt {nam=»T:DSB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0da8, f03=0x0000}
0x185e54…185fe8 IdxSect {
0x185e54…185fe8 f00 = 0x006d // 0x185e54 @0x0
0x185e54…185fe8 f01 = 0x0014 // 0x185e56 @0x2
0x185e54…185fe8 gno = [ // 0x185e58 @0x4
0x185e54…185fe8 [0x00]: C0x006d.0x1.0
0x185e54…185fe8 [0x01]: C0x0071.0x1.0
0x185e54…185fe8 [0x02]: C0x0071.0x2.0
0x185e54…185fe8 [0x03]: C0x0071.0x3.0
0x185e54…185fe8 [0x04]: C0x0072.0x1.0
0x185e54…185fe8 [0x05]: C0x0073.0x1.0
0x185e54…185fe8 [0x06]: C0x0073.0x3.0
0x185e54…185fe8 [0x07]: C0x0074.0x0.0
0x185e54…185fe8 [0x08]: C0x0074.0x1.0
0x185e54…185fe8 [0x09]: C0x0074.0x2.0
0x185e54…185fe8 ]
0x185e54…185fe8 }
0x185fe8…18617c Dummy {f00=0x006d, f01=0x0190, f02=»J: Nq* ` ( ( 8 V 8 B L c @ Tg t z ^ b bLPL H b2 Z ` z
0x18617c…186310 Dummy {f00=0x006d, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A U A @ * A A , @ ~ A A ~ @ A A @ A A @ A A @ A
0x186310…1864a4 Dummy {f00=0x006d, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ t S A _ Z r V @ & T :a R
0x1864a4…186638 Dummy {f00=0x006d, f01=0x0190, f02=» Q ( R " S T Y G P H L V I U . V h_v A B _ NO! A A A A A A A A z *T A _ P A A d . , , < + - ; t : X " H W X " H H A A A _T @ P A 1+X A
0x186638…1867cc Dummy {f00=0x006d, f01=0x0190, f02=» & .T @ W @ A @W dW 0 Z P & l_, W W PP @ & l 0 & T A P P p r :_b d P D r_J A B Z .T @ W @ T @ W @ @ >a Z P & P @ A B P P
0x1867cc…186960 Dummy {f00=0x006d, f01=0x0190, f02=» P 3P C @ P @ x @ P @ Q A . @ B A " T @ W @ A 2 A .P @ j_2 .T 4 0 P j pP _ @ j . d 0 @ @ @ P d 0 @ A B b 9 Y 4>a Y t c x
0x186960…186af4 (2, 329) Dummy {f00=0x0071, f01=0x0190, f02=» A A P@ @ PB z z d . @ ! T A @ A # A . & RE RN ME MN W R, ( T ( W P T $ ; V ; W~&~ P &`P 6 P @ $ P $W $ TR PJ#~ > V . >A P Y X W ^ ? ?
0x186af4…186c88 Dummy {f00=0x0071, f01=0x0190, f02=» " ^ T @ 9J A T _ 1@ _ ^ 9 V >! D A A > > > > > > > > ^ _ ^ _ ? ? ? ? ? A ^ @ ? ? > > > > > > > @ > ? ? ? ? ? ? ? A > A >
0x186c88…186e1c Dummy {f00=0x0071, f01=0x0190, f02=» 0:D A z_* A " A A b P & T A A " @ R _U . r " A >: D A > " A Z A ^ b$ T ! " A @ BT 0W 0W A @ BT 1W 1 @ " P& A UT @ W T @ W T @ W @ " " ? ?
0x186e1c…186fb0 Dummy {f00=0x0071, f01=0x0190, f02=» ! R :W" r W r W W ?W /W : A W ! A A PL _ @ _ I T " T A P I T$! A A A A A A A A J A A @ A @ > @ _ . I d 0R> M A P6 T @
0x186fb0…187144 Dummy {f00=0x0071, f01=0x0190, f02=» H ( ( P c P W: P, A:4 V ( U P" @!8V L!8W @!J U 8 :R A A Q > ? @ A!r A v A tQ _8 A t < Q n P n Q n Z Y _ 8 :: Q Z P 0 9 _ _, ? P H H
0x187144…1872d8 Dummy {f00=0x0071, f01=0x0190, f02=» _ _ ^ :2 $P T I R $ 5 % > ? ,W ? W ? T T$ U U U U T U U 8 > > 4 T - 1_( U T P 0 U _t ? @: T 0 A: 1 Q Q > > 0 @: 1 A: P P > ? * X " R"
0x1872d8…18746c Dummy {f00=0x0071, f01=0x0190, f02=» $ H W W > > > > > > @!^V ? !^ > _ > ? _ > > ? ^ ! Y ^ _ ? A. $ ( , 0 4 8 < #M 1 : J B B : J B B : J#B#B : J B B pU
0x18746c…187600 Dummy {f00=0x0071, f01=0x0190, f02=»T I :R T ! 1 U :N A ? W A ? W A ? W A ? W U R ; V # T R p R # PJ P R RL P 4 ] P $ P ] U PD P< P0 P, R 4T ] U 4 X "0Tp+ Y WH 8Z
0x187600…187794 (2, 330) Dummy {f00=0x0071, f01=0x0190, f02=» U T ] W 8V X $P y $W $ P 8R R :R Y $ X Z ;BR 8% =A Y T Z& _, X ' X 4X< XB U T T U 5 U R " ] :R ;h # <c$ P X X " Z "X 8# T& 8Z V2 X
0x187794…187928 Dummy {f00=0x0071, f01=0x0190, f02=» U # P 4 4 P _r T _$ U _ ? 4 U 5 R PF "P2 R T T R X # X > P P P ~ X XF _H Wj ? T T W u > > E D E E S( % ;DV " U D $ P #`P T E :R _
0x187928…187abc Dummy {f00=0x0071, f01=0x0190, f02=» (@ > ?" 8' ?A R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P X H 5 U R " ] Y > > V P X P P _ ] W Q Y _: @ T A!j ~ P X
0x187abc…187c50 Dummy {f00=0x0071, f01=0x0190, f02=» " X D V X L ( 6 T 8TV 9WD B 7P P :J A:.W A:. @:.A.W ? A I.9 X R C C :R ?A @:.A. X V 9 A!j_@ @ $ 6 H h F h
0x187c50…187de4 Dummy {f00=0x0071, f01=0x0190, f02=» W 0P P > :0 Z 0P R I W _" H P 4 I 8 > T C T, V. Y :0T t Pn q 0 ) W` X P t T& B RNP" A 4 @ A 4 W> @W& T" P X T :0T W C 8W
0x187de4…187f78 Dummy {f00=0x0071, f01=0x0190, f02=»_| Xv Y @ P< :0T W0 X &P* T P H T _ X I Y T # C C W4 O " # X Y ) C C x '? Y :0T Y W Y T # P W 8 Y P R R P P (@ (@ " 2 X $? P $ >
0x187f78…18810c Dummy {f00=0x0071, f01=0x0190, f02=» C > F :c" H :b"? #" : C > B R Q~ R P0 B P* 0$ T # R QL > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X & :N X B D C > X H UJ H B P PL $
0x18810c…1882a0 Dummy {f00=0x0071, f01=0x0190, f02=» > ? _ X T (@ ^ > > ? _ X T X X T % T ?C L Rl 8_@(@ L U L Q0 M X X D ( ) 1 > _" X X T , U 8 :: ~ Y _| ?(@ X P& T D #DP 0P X T
0x1882a0…188434 (2, 331) Dummy {f00=0x0071, f01=0x0190, f02=» P (@ ^ X P8 P0 # P T P 0P 1 _ fW 8 Y > > T :R _ n_< ? ^ 4 _ @ 1 A _ P 9 > > & : : : : : GPG|G HBH
0x188434…1885c8 Dummy {f00=0x0071, f01=0x0190, f02=»W P 5P :J #4 :R B 9 *JP. @9 : :J @9 `9 @9 P 0P _ % A9 A9 _F B ,Q< " " _Z X P 0 Y P C _| "p_ B Y _N :N X P A" " Y Wb Y @_x X X A" " Y _& Y # @# 0 A# A# _: X P
0x1885c8…18875c Dummy {f00=0x0071, f01=0x0190, f02=» X T* X P& , Y L C L C > @!x @!t @!v A!vX _" X P y Y X P T # @# T A# A# > A# A# A# A# A# # W > @ ! !) B !)FT~ P P %x %
0x18875c…1888f0 Dummy {f00=0x0071, f01=0x0190, f02=»)._ !*$ @# P @# P !& A# A$ _ !*$ @$ P @*xX< !'( T A$ !' $ !). X _4 A$ @*x @$ T PP A$ " @# *JP2 X R, X T$ P C " C W W !#" #4 !' $ _ !*$ @# T @$ P !' $ !*$ @# T @$ X Wj A I # % :R # @#
0x1888f0…188a84 Dummy {f00=0x0071, f01=0x0190, f02=» _, @# T8W $ @*xT !' _ !&V !' _ A$ A$ E A$ A# 4 @# P !' !) $ !) W $ @!zT !' _ T # _ $ A# 0~ C B B A$ A$ A$ A$ A$ !( !) A# _ _T @# P6 X R0 X P T$ T Y W $ " P C # A# A# 4 @*x @$ T @
0x188a84…188c18 Dummy {f00=0x0071, f01=0x0190, f02=» 4 _$ !*4 2_l 1 A$ T 0W W A$ A$ W W W A$ A$ !( @$ !)6 @$ !)6 !) !) B J !1 4 !( !) @$ @$ A$ @$ T @*J !)6 8 !)6 0 " ~T }T T !)6 A$ @$ @$ U Z8 !)6 !)6 ( A$ _ B J B P J !1 _ !).
0x188c18…188dac Dummy {f00=0x0071, f01=0x0190, f02=»P A!lW !1 # :R" * 9AY X$2 _ !). 9AP ^ 2 _ " ! 1 4 @9 `9 A)b @9 P 0 @)b ,# A)b 4 _ ? @ A!t #4 @!|T ) A!j $ ! @ A!t #4 ) :R A!t j a!| #4 4 ) A!| > * Z A$ 4 A$ ! !) @# P !' !) $ @$
0x188dac…188f40 Dummy {f00=0x0071, f01=0x0190, f02=» 4 _$ ! 2_l 1 A$ T 0W W A$ A$ W W W A$ A$ ! @$ ! @$ ! ! ! B J ! 4 ! ! @$ @$ A$ @$ T @ ! 8 ! 0 " ~T }T T ! A$ @$ @$ U Z8 ! ! ( A$ _ B J B P J ! _ !
0x188f40…1890d4 (2, 332) Dummy {f00=0x0072, f01=0x0190, f02=»P A!lW ! # " * 9AY X$2 _ !). 9AP ^ 2 _ " ! 1 4 @ ` A)b @ P 0 @)b ,# A)b 4 _ ? @ A!t #4 @!|T A!j $ ! @ A!t #4 A!t j a!| #4 4 ) A!| . Z A$ 4 A$ ! !) @# P !' !) $ @$
0x1890d4…189268 Dummy {f00=0x0072, f01=0x0190, f02=» 4 _$ ! 2_l 1 A$ T 0W W A$ A$ W W W A$ A$ ! @$ ! @$ ! ! ! B J ! 4 ! ! @$ @$ A$ @$ /J @ ! 8 ! 0 " ~T }T T ! A$ @$ @$ U Z8 ! ! ( A$ _ B J B P J ! _ !
0x189268…1893fc Dummy {f00=0x0072, f01=0x0190, f02=»P A!lW ! # " * 9AY X$2 _ !). 9AP ^ 2 _ " ! 1 4 @ ` A)b @ P 0 @)b ,# A)b 4 _ ? @ A!t #4 @!|T A!j $ ! @ A!t #4 A!t j a!| #4 4 ) A!| . Z A$ 4 A$ ! !) @# P !' !) $ @$
0x1893fc…189590 Dummy {f00=0x0072, f01=0x0190, f02=» 4 _$ ! 2_l 1 A$ T 0W W A$ A$ W W W A$ A$ ! @$ ! @$ ! ! ! B J ! 4 ! ! @$ @$ A$ @$ /J @ ! 8 ! 0 " ~T }T T ! A$ @$ @$ U Z8 ! ! ( A$ _ B J B P J ! _ !
0x189590…189724 Dummy {f00=0x0072, f01=0x0190, f02=»P A!lW ! # " * 9AY X$2 _ !). 9AP ^ 2 _ " ! 1 4 @ ` A)b @ P 0 @)b ,# A)b 4 _ ? @ A!t #4 @!|T A!j $ ! @ A!t #4 A!t j a!| #4 4 ) A!| . Z A$ 4 A$ ! !) @# P !' !) $ @$
0x189724…1898b8 Dummy {f00=0x0072, f01=0x0190, f02=» 4 _$ ! 2_l 1 A$ T 0W W A$ A$ W W W A$ A$ ! @$ ! @$ ! ! ! B J ! 4 ! ! @$ @$ A$ @$ /J @ ! 8 ! 0 " ~T }T T ! A$ @$ @$ U Z8 ! ! ( A$ _ B J B P J ! _ !
0x1898b8…189a4c Dummy {f00=0x0072, f01=0x0190, f02=»P A!lW ! # " * 9AY X$2 _ !). 9AP ^ 2 _ " ! 1 4 @ ` A)b @ P 0 @)b ,# A)b 4 _ ? @ A!t #4 @!|T A!j $ ! @ A!t #4 A!t j a!| #4 4 ) A!| . Z A$ 4 A$ ! !) @# P !' !) $ @$
0x189a4c…189be0 Dummy {f00=0x0072, f01=0x0190, f02=» 4 _$ ! 2_l 1 A$ T 0W W A$ A$ W W W A$ A$ ! @$ ! @$ ! ! ! B J ! 4 ! ! @$ @$ A$ @$ /J @ ! 8 ! 0 " ~T }T T ! A$ @$ @$ U Z8 ! ! ( A$ _ B J B P J ! _ !
0x189be0…189d74 (2, 333) Dummy {f00=0x0073, f01=0x0190, f02=»P A!lW ! # " * 9AY X$2 _ !). 9AP ^ 2 _ " ! 1 4 @ ` A)b @ P 0 @)b ,# A)b 4 _ ? @ A!t #4 @!|T A!j $ ! @ A!t #4 A!t j a!| #4 4 ) A!| . Z A$ 4 A$ ! !) @# P !' !) $ @$
0x189d74…189f08 Dummy {f00=0x0073, f01=0x0190, f02=» 4 _$ ! 2_l 1 A$ T 0W W A$ A$ W W W A$ A$ ! @$ ! @$ ! ! ! B J ! 4 ! ! 9 9 J:I I>;`> A B c > > @:4 A:4W
0x189f08…18a09c Dummy {f00=0x0073, f01=0x0190, f02=» > P "R Y W :R Pl 8 T Pb n_ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ;h = Y U R -P =| X , ) Y . =h 8!@P$ X $P y $W $ = p Y $ X " PP
0x18a09c…18a230 Dummy {f00=0x0073, f01=0x0190, f02=» $ 4 T % =L X ,T ! & P =x > Y . V > ! B P X " _` B P$ $$ R % C > * ! W Y +PH Y *P> Y (P Y )P > R _Q P OR R W " ! B ; Wr W 0 Z > ! B Z Z& X . 0T N W X ,P Y . 0 %
0x18a230…18a3c4 Dummy {f00=0x0073, f01=0x0190, f02=» > P8 X R2;GV. X " ; X , $4 P > X .T * W Y , - :R @ Y $ X Z _X ? X :a Z T T W P X :d Y > > |Vj ? 8 R @R6 V @% =cW2 RHP R P 9 W4 _ _ _ _ %0=c X 0P > 0 P > >_ P > _| B
0x18a3c4…18a558 Dummy {f00=0x0073, f01=0x0190, f02=» ! ! W ! Y Y @ d U P" T Y &_. P4 R( Pj O]> V _F T Y Y & V Y _^ C _P d d" $ P X & X ]r ! Y Y Y _ " _ ! ! @ :R X C _ X Y & Y > B B U$ $ ! T _
0x18a558…18a6ec Dummy {f00=0x0073, f01=0x0190, f02=»Q @ -_ ? _ X # ! ^ Y _( ? X Z ! P4 P ? ? X " > ! ! X & ? ? A( A A B 8# T $ # ;D !99P 7Pj PZ :J Y X T A Y 9 X 8"@P Y W: Y W2 X P y @ 9_. Y WP Y
0x18a6ec…18a880 Dummy {f00=0x0073, f01=0x0190, f02=» D ! 8! P ! P P D & C :J B P B H " +PV P. T Y ' ! R: X ( Y &R Y & _ Y &_. 8$ T B 1 FX ! E d D X " EB P( 8'0P EB TJ ! T 9 _z ! T @_ ! d B P 8' T( !
0x18a880…18aa14 (2, 334) Dummy {f00=0x0073, f01=0x0190, f02=» d" $ P X ' X ] ! E B B 8! T !G !F ! D !G R ! _ B !G V Z, ! _ 8! T B Y & !F W B Y (U X ( X & R P ! W Y &_ Y & B Y )U X ) T T W V X ' Y )U P"R ! _ R
0x18aa14…18aba8 Dummy {f00=0x0073, f01=0x0190, f02=» Y & Y > X " X &" Y )Q Y > X Z2<BR J > ? Y 8" P ! ! T> 8" P d ! Y ! *0 ! X ! Y & Z D T _ ! X $ P !F" B R V P P" ! E W E X $ X !F"_ X $ X 8! P !F"_( X & !F
0x18aba8…18ad3c Dummy {f00=0x0073, f01=0x0190, f02=» &" Y * X ) V Y !F X $ X & !F X * B B `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 E >' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U
0x18ad3c…18aed0 Dummy {f00=0x0073, f01=0x0190, f02=» X R@? V X & X H P X P Y X H P r < ? < ? <(@ H $ P B $ 9H C ">h # P >_2 < U = r (@ " $ P B >H<h H P ?_" = > = > = =_D R _ 00 > & <h$ P
0x18aed0…18b064 Dummy {f00=0x0073, f01=0x0190, f02=» 0123456789 * +,-. 0123456789 `ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ] * ?;_: =!"#$%&/() @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ] ($SWAP A A A A. R UU @ @ ! P$>B @S AS @
0x18b064…18b1f8 Dummy {f00=0x0073, f01=0x0190, f02=» O _ " :c* A P P W " :d2 * A P P & W F ` W F W F CRT F A @ @ ! P2 @ P S ;b=H F CR L F L W =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W
0x18b1f8…18b38c Dummy {f00=0x0073, f01=0x0190, f02=» T <B :L A W A A W S T F W V S = V W Y* P Z( = :L < P W <9B @ V W Q S W @S @ A R @ R CRT
0x18b38c…18b520 Dummy {f00=0x0073, f01=0x0190, f02=»R V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W P P P O P TJ V 0 !;;P P V P$ _ P !;;T X$ W T _J S P T P P W P Ox Q<
0x18b520…18b6b4 (2, 335) Dummy {f00=0x0074, f01=0x0190, f02=»Qu AQ Q< @ R @ ! T AQ AQ$ V @ R V V I T W V $ ) H A I. : P C. O X C.9h! P P # " P P :A K : A T.I T P 1 I P < R P A _>
0x18b6b4…18b848 Dummy {f00=0x0074, f01=0x0190, f02=» AN AQB AQX AQ ! T AQ AQ I ! : 9E @J*r s A I T ) A _ I N T : S QB QX 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P _0 @ T X W n : YX d C !CCTZ B. O
0x18b848…18b9dc Dummy {f00=0x0074, f01=0x0190, f02=»V P P R W P V V T R V T W P V W @ $ P p W T T : AR. R _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z [ : : [ [
0x18b9dc…18bb70 Dummy {f00=0x0074, f01=0x0190, f02=» AN A A A ! T A W Z A. c @ V W U S R $ )_ : W W W W W W Q@ V V v x W V V v p R( W V W ^< _@ V _P V V
0x18bb70…18bd04 Dummy {f00=0x0074, f01=0x0190, f02=» W r W Q R t W V S T4 v : V W V S ) : V <B W |P v v : $ T V |P v w v : V $ V l $ T V M : W V R RR > R W >
0x18bd04…18be98 Dummy {f00=0x0074, f01=0x0190, f02=» Pd W V PL $;A^ D E D P. V S P S P T S E _J T E _T " D T E T E D E % : " R ;B T " R P( |P v v : V W 0 : V P 9a _ " ( ) 8 (
0x18be98…18c02c Dummy {f00=0x0074, f01=0x0190, f02=» @ 0 V @ S 0 H W : ? ? R 0 R P P B n _ :6 : V ) W v : 4P: " D X , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W X $ H XB
0x18c02c…18c1c0 Dummy {f00=0x0074, f01=0x0190, f02=» _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @ Q @ P A. @ P _b A
0x18c1c0…18c354 (2, 336) Dummy {f00=0x0074, f01=0x0190, f02=» 3 _ : 3 : B A. @ D @ W x A : A :R > l : W R U W n V pT : N V l W H V ]" . nT" U W v U W n V ~P W x V W V _v V d ,
0x18c354…18c4e8 Dummy {f00=0x0074, f01=0x0190, f02=» U V ~P W x V _$ 8 V V x % V v % : V V T4 9k! P % _ V V W W r W W V T v ) W b G T v ) - V T W f v ) G v ` " W p W ~ pP0 [| R W P [ W
0x18c4e8…18c67c Dummy {f00=0x0074, f01=0x0190, f02=» T " E R l W ~ R l R P ^8 R Xv ^8_|W W T : U U W x V W _ V P X I X W z ` pPl X H - V W I Vv " R W E R T E D E @ v H v E V W4 #_v W | ;b W W t V b
0x18c67c…18c810 Dummy {f00=0x0074, f01=0x0190, f02=» W N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ W R S - @ - N !TTP S N :H N TBT W W8 2 " T @ S N =H N _0 @ ) _J !TTXX !CC
0x18c810…18c9a4 Dummy {f00=0x0074, f01=0x0190, f02=» YV : v `?A @ W W :b / W : W @ W D W V W W ` " W p @ pP. " 4X 1 R Z0 _ W l a w ` :A W V d 4 W P
0x18c9a4…18cb38 Dummy {f00=0x0074, f01=0x0190, f02=» n o P b W r o b W @ @ % n V , P@ , - 4 ] 4 W Y 5 X * _6 : @ , ] @ P @ P " P " P " P W W . !TTP S m @ T S Y _J !TTX" A
0x18cb38…18cccc Dummy {f00=0x0074, f01=0x0190, f02=» S 1 S 9J S ( 3 ( 9B @ @ T S : @ :B W . !TTP S m W t N =H N W l N =H N n W p N =H N _0 W | ( @ % P W @ % P m P0 n r " U S
0x18cccc…18ce60 Dummy {f00=0x0074, f01=0x0190, f02=» " S V l S W l V p S W p W _L @ % P W @ % P _J !TTT dP R @ @ T S : @ ! P @ @ nv CRT 3 @ nv nv S @ nv PP nv !RRP @ ! T 3 @
0x18ce60…18cff4 (2, 337) Dummy {f00=0x0074, f01=0x0190, f02=» V V W @ @ T S : P S S _ : . !TTP S V m W t * m P n r _ m Ph W p n W V 8 8 4 D P$ T @ # P H I K
0x18cff4…18d188 Dummy {f00=0x0074, f01=0x0190, f02=» T S P / _ T @ A V W m W t m PT W f ( n W d n nL G =h G V d V r < k V f P W f _B V W V t Yr _J !TTX @ @ T S : _J !TTX !CCTr
0x18d188…18d31c Dummy {f00=0x0074, f01=0x0190, f02=» @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W m P0 W f n W d n V d V r < k V f _2 m U^ n V 8 8 8 4 D P$ T @ # P H I K T + Y@ _`R& @ @ @
0x18d31c…18d4b0 Dummy {f00=0x0074, f01=0x0190, f02=»q > R P >b W >b & 8P D P U & E W J: V W R 9 W D T ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @ % PD H I H T P( H U V U W < + +
0x18d4b0…18d644 Dummy {f00=0x0074, f01=0x0190, f02=»W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]: W v P _ @ @
0x18d644…18d7d8 Dummy {f00=0x0074, f01=0x0190, f02=» P N =H N T m _J_ : 00=H 00 P P _ _ : @ ! P (W ( : b cz d. e f g$ h$ i4 l @ nv CRT" @ ! P ` @ E "W ` @ E " n o o` 0o @p Pp@ !px 1p o o"o( ao2 `*J
0x18d7d8…18d96c Dummy {f00=0x0074, f01=0x0190, f02=» 4> GP p *T P 2A DI p4 ?O_o 8B DY pl % ( z;`KB p I> P p p p
0x18d96c…18db00 Dummy {f00=0x0074, f01=0x0190, f02=» P T m _J_ : 00=H 00 P P _ _ : @ ! P (W ( : b cz d. e f g$ h$ i4 l @ nv CRT" @ ! P ` @ E "W ` @ E " n o 0 @ P ! 1 o o"o( a `*J