|
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 L M O P R S T X p ½
Length: 4615296 (0x466c80)
Description: Bits:30009670 Philips computer tape "600126"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| SAG | «none» |
| SAG//OBJCT.OB | ⟦4cef94006⟧ pts_type |
| SAG/ASM.LM | ⟦6be3e01a8⟧ pts_type |
| SAG/BEA.LM | ⟦9b75a9601⟧ pts_type |
| SAG/CCI.LM | ⟦a3f506c79⟧ pts_type |
| SAG/CSEG1.LM | ⟦3ee5d13e8⟧ pts_type |
| SAG/CSEG2.LM | ⟦05b67c1a0⟧ pts_type |
| SAG/CSEG3.LM | ⟦f35aae4d3⟧ pts_type |
| SAG/CSEG4.LM | ⟦06be61e35⟧ pts_type |
| SAG/CSEG5.LM | ⟦a44d62c56⟧ pts_type |
| SAG/CSEG7.LM | ⟦226ec5670⟧ pts_type |
| SAG/CSEG8.LM | ⟦77d6ab6f3⟧ pts_type |
| SAG/CSEG9.LM | ⟦4ba546904⟧ pts_type |
| SAG/CSEGA.LM | ⟦8f8becaa2⟧ pts_type |
| SAG/CSEGB.LM | ⟦f7c78dfdc⟧ pts_type |
| SAG/CSEGC.LM | ⟦0593961db⟧ pts_type |
| SAG/CSEGD.LM | ⟦0327e3157⟧ pts_type |
| SAG/CSEGE.LM | ⟦7d4b11085⟧ pts_type |
| SAG/LED.LM | ⟦6e968930f⟧ pts_type |
| SAG/LKE.LM | ⟦bad337d59⟧ pts_type |
| SAG/M:PROC.UF | ⟦4eb17d6c2⟧ pts_type |
| SAG/OBDIR.UF | ⟦572bddc28⟧ pts_type |
| SAG/PMPTS.LM | ⟦543f9bb3d⟧ pts_type |
| SAG/RUM.LM | ⟦d166260c0⟧ pts_type |
| SAG/SUM.LM | ⟦c4fc249b5⟧ pts_type |
| SAG/SUP.LM | ⟦7d35adeda⟧ pts_type |
| SAG/SUP001.LM | ⟦4697c5a0b⟧ pts_type |
| SAG/SYSGEN.LM | ⟦8a14eaa5f⟧ pts_type |
| SAG/TOSSUT.LM | ⟦559189c52⟧ pts_type |
| TOSSWORK | «none» |
| TOSSWORK//OBJCT.OB | ⟦16fc28e6f⟧ pts_type |
| TOSSWORK/ADMTSK.SC | ⟦1e56a7e8b⟧ pts_type |
| TOSSWORK/ARITMS.SC | ⟦3a6145dc5⟧ pts_type |
| TOSSWORK/ASMUP.UF | ⟦8912078a0⟧ pts_type |
| TOSSWORK/CTABC0.SC | ⟦93454373d⟧ pts_type |
| TOSSWORK/DCADDR.SC | ⟦aac9b68fb⟧ pts_type |
| TOSSWORK/DCSTAT.SC | ⟦97cc1546a⟧ pts_type |
| TOSSWORK/DFTAB.SC | ⟦96673fe45⟧ pts_type |
| TOSSWORK/DRAS01.SC | ⟦4cae37efa⟧ pts_type |
| TOSSWORK/DRCD01.SC | ⟦179abc1a4⟧ pts_type |
| TOSSWORK/DRCR01.SC | ⟦728675a6f⟧ pts_type |
| TOSSWORK/DRDC07.SC | ⟦891a05526⟧ pts_type |
| TOSSWORK/DRDC13.SC | ⟦18ba98770⟧ pts_type |
| TOSSWORK/DRDC15.SC | ⟦759e2ace9⟧ pts_type |
| TOSSWORK/DRDC17.SC | ⟦dbdd6f317⟧ pts_type |
| TOSSWORK/DRDC22.SC | ⟦6b3761c5d⟧ pts_type |
| TOSSWORK/DRDC25.SC | ⟦8080caca5⟧ pts_type |
| TOSSWORK/DRDC81.SC | ⟦a1f2cb219⟧ pts_type |
| TOSSWORK/DRDC82.SC | ⟦29269e709⟧ pts_type |
| TOSSWORK/DRDI01.SC | ⟦e9b776fca⟧ pts_type |
| TOSSWORK/DRDN01.SC | ⟦ae95222c7⟧ pts_type |
| TOSSWORK/DRDU01.SC | ⟦1260d4efa⟧ pts_type |
| TOSSWORK/DRDY02.SC | ⟦143dc9172⟧ pts_type |
| TOSSWORK/DRFD01.SC | ⟦eda4fd6a0⟧ pts_type |
| TOSSWORK/DRFD02.SC | ⟦440f492b7⟧ pts_type |
| TOSSWORK/DRGP01.SC | ⟦ff05e8fa7⟧ pts_type |
| TOSSWORK/DRGP02.SC | ⟦7d12d6531⟧ pts_type |
| TOSSWORK/DRGP03.SC | ⟦e072854d0⟧ pts_type |
| TOSSWORK/DRGP04.SC | ⟦34ec0e6b1⟧ pts_type |
| TOSSWORK/DRIC01.SC | ⟦6e8a6e602⟧ pts_type |
| TOSSWORK/DRKB04.SC | ⟦330f7c3e1⟧ pts_type |
| TOSSWORK/DRLP01.SC | ⟦298fe428f⟧ pts_type |
| TOSSWORK/DRMD01.SC | ⟦250a46a8e⟧ pts_type |
| TOSSWORK/DRMS02.SC | ⟦3ab03c604⟧ pts_type |
| TOSSWORK/DRMT01.SC | ⟦2aac48b4a⟧ pts_type |
| TOSSWORK/DRND01.SC | ⟦65f9960f4⟧ pts_type |
| TOSSWORK/DRPL01.SC | ⟦64185a48b⟧ pts_type |
| TOSSWORK/DRSL01.SC | ⟦97341d2b3⟧ pts_type |
| TOSSWORK/DRSOP1.SC | ⟦cce684cfb⟧ pts_type |
| TOSSWORK/DRSU01.SC | ⟦eb3b6bd71⟧ pts_type |
| TOSSWORK/DRTC01.SC | ⟦6eafad5de⟧ pts_type |
| TOSSWORK/DRTN01.SC | ⟦84c52811d⟧ pts_type |
| TOSSWORK/DRTP02.SC | ⟦f131aadd9⟧ pts_type |
| TOSSWORK/DRTP03.SC | ⟦91bb41998⟧ pts_type |
| TOSSWORK/DRTP04.SC | ⟦2566ed914⟧ pts_type |
| TOSSWORK/DRTW01.SC | ⟦6dfc6c4b1⟧ pts_type |
| TOSSWORK/DRVU01.SC | ⟦33e39eeac⟧ pts_type |
| TOSSWORK/DSKSUB.SC | ⟦286488424⟧ pts_type |
| TOSSWORK/DTTP03.SC | ⟦5e34aae04⟧ pts_type |
| TOSSWORK/DVTDI.SC | ⟦5ef172779⟧ pts_type |
| TOSSWORK/DVTDN.SC | ⟦70e6ddc18⟧ pts_type |
| TOSSWORK/DVTDY.SC | ⟦c73e6c9c4⟧ pts_type |
| TOSSWORK/DVTG1.SC | ⟦b3aaa9d75⟧ pts_type |
| TOSSWORK/DVTG2.SC | ⟦fdce1b646⟧ pts_type |
| TOSSWORK/DVTG3.SC | ⟦db7be8ca7⟧ pts_type |
| TOSSWORK/DVTGP.SC | ⟦9e0f46cc8⟧ pts_type |
| TOSSWORK/DVTKB.SC | ⟦93055781c⟧ pts_type |
| TOSSWORK/DVTMS.SC | ⟦922d03ac2⟧ pts_type |
| TOSSWORK/DVTT1.SC | ⟦09d068d88⟧ pts_type |
| TOSSWORK/DVTT2.SC | ⟦a648d0531⟧ pts_type |
| TOSSWORK/DVTTN.SC | ⟦576e2abb7⟧ pts_type |
| TOSSWORK/DVTTP.SC | ⟦5dcd0d156⟧ pts_type |
| TOSSWORK/DVTVU.SC | ⟦67d639ea8⟧ pts_type |
| TOSSWORK/DW0701.SC | ⟦bac97c4ff⟧ pts_type |
| TOSSWORK/DW1301.SC | ⟦70bac5b44⟧ pts_type |
| TOSSWORK/DW1501.SC | ⟦4feebad2e⟧ pts_type |
| TOSSWORK/DW2201.SC | ⟦32bdd1f8c⟧ pts_type |
| TOSSWORK/DWII01.SC | ⟦fd04b397a⟧ pts_type |
| TOSSWORK/DWIO01.SC | ⟦48ec90388⟧ pts_type |
| TOSSWORK/DWL301.SC | ⟦26e0308ca⟧ pts_type |
| TOSSWORK/EBCDIC.SC | ⟦996b6795f⟧ pts_type |
| TOSSWORK/FMCDEF.SC | ⟦8e0630664⟧ pts_type |
| TOSSWORK/FMTASK.SC | ⟦6968936c9⟧ pts_type |
| TOSSWORK/LDTASK.SC | ⟦264365da4⟧ pts_type |
| TOSSWORK/LKMAL.SC | ⟦94b0d24f4⟧ pts_type |
| TOSSWORK/LRPINT.SC | ⟦c155c01c2⟧ pts_type |
| TOSSWORK/M:PROC.UF | ⟦4c4f48599⟧ pts_type |
| TOSSWORK/MONTAB.SC | ⟦c4631f5af⟧ pts_type |
| TOSSWORK/MONTIM.SC | ⟦0bbd6949a⟧ pts_type |
| TOSSWORK/MSUBS.SC | ⟦b9e3170e1⟧ pts_type |
| TOSSWORK/PFTAB.SC | ⟦255f7c80b⟧ pts_type |
| TOSSWORK/REFORM.UF | ⟦e87b51068⟧ pts_type |
| TOSSWORK/RELUP.UF | ⟦60b765af0⟧ pts_type |
| TOSSWORK/SCLASS.SC | ⟦535452465⟧ pts_type |
| TOSSWORK/SDMBUF.SC | ⟦5b1a0e528⟧ pts_type |
| TOSSWORK/SDMOCR.SC | ⟦923355c5d⟧ pts_type |
| TOSSWORK/SDMSUB.SC | ⟦31441c9f1⟧ pts_type |
| TOSSWORK/SDMTSK.SC | ⟦7427caccd⟧ pts_type |
| TOSSWORK/SOURCE.UF | ⟦8353f856c⟧ pts_type |
| TOSSWORK/ST8000.SC | ⟦f500c9bd7⟧ pts_type |
| TOSSWORK/SYSINI.SC | ⟦f966a6db7⟧ pts_type |
| TOSSWORK/SYSLCR.SC | ⟦51a5c546b⟧ pts_type |
| TOSSWORK/SYSLDM.SC | ⟦1d4e9c614⟧ pts_type |
| TOSSWORK/SYSLOD.SC | ⟦b803f9532⟧ pts_type |
| TOSSWORK/SYSTAB.SC | ⟦2881603f0⟧ pts_type |
| TOSSWORK/TABORT.SC | ⟦4b2b8d1eb⟧ pts_type |
| TOSSWORK/TCLASS.SC | ⟦78ae615a5⟧ pts_type |
| TOSSWORK/TDISP.SC | ⟦100bf11eb⟧ pts_type |
| TOSSWORK/TIMER.SC | ⟦845402dca⟧ pts_type |
| TOSSWORK/TIOADM.SC | ⟦325ecefee⟧ pts_type |
| TOSSWORK/TIODM.SC | ⟦cd6e801b2⟧ pts_type |
| TOSSWORK/TIOEDM.SC | ⟦1f696ee15⟧ pts_type |
| TOSSWORK/TIOFM.SC | ⟦7879b609c⟧ pts_type |
| TOSSWORK/TIOSDM.SC | ⟦d9423b627⟧ pts_type |
| TOSSWORK/TLDPGM.SC | ⟦c3c380a9f⟧ pts_type |
| TOSSWORK/TLDSEG.SC | ⟦247c9a76f⟧ pts_type |
| TOSSWORK/TMMLKM.SC | ⟦0fedd9ac0⟧ pts_type |
| TOSSWORK/TMOVE.SC | ⟦867403395⟧ pts_type |
| TOSSWORK/TOSSIO.SC | ⟦5bb0b3fde⟧ pts_type |
| TOSSWORK/TPAGAL.SC | ⟦9503ec18b⟧ pts_type |
| TOSSWORK/TPROC.SC | ⟦7d042a75f⟧ pts_type |
| TOSSWORK/TSWBLK.SC | ⟦355518da4⟧ pts_type |
| TOSSWORK/TTMJOB.SC | ⟦504bddae8⟧ pts_type |
| TOSSWORK/X25:L3.SC | ⟦86059ffe0⟧ pts_type |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»SAG «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP «, typ=»LM«, f00=0x019a, f01=0x0198, f02=0x0010, f03=0x0008}
0x000000…000ca0 DirEnt {nam=»CCI «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG1 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG2 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG3 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG4 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG5 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG7 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG8 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEG9 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGC «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0130, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGD «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0138, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»CSEGE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»LKE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»ASM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x01a8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»RUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»PMPTS «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01e0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SUP001«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0220, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0270, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»SYSGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0378, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0410, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»TOSSUT«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2548, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»BEA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0498, f03=0x0000}
0x000000…000ca0 }
0x000ca0…000e34 (0, 1) Opaque[0x194]
0x000e34…000fc8 # DirEnt {nam=»SUP «, typ=»LM«, f00=0x019a, f01=0x0198, f02=0x0010, f03=0x0008}
0x000e34…000fc8 IdxSect {
0x000e34…000fc8 f00 = 0x0000 // 0xe34 @0x0
0x000e34…000fc8 f01 = 0x0018 // 0xe36 @0x2
0x000e34…000fc8 gno = [ // 0xe38 @0x4
0x000e34…000fc8 [0x00]: C0x0000.0x2.0
0x000e34…000fc8 [0x01]: C0x0000.0x3.0
0x000e34…000fc8 [0x02]: C0x0001.0x0.0
0x000e34…000fc8 [0x03]: C0x0001.0x1.0
0x000e34…000fc8 [0x04]: C0x0001.0x2.0
0x000e34…000fc8 [0x05]: C0x0001.0x3.0
0x000e34…000fc8 [0x06]: C0x0002.0x0.0
0x000e34…000fc8 [0x07]: C0x0002.0x1.0
0x000e34…000fc8 [0x08]: C0x0002.0x2.0
0x000e34…000fc8 [0x09]: C0x0002.0x3.0
0x000e34…000fc8 [0x0a]: C0x0003.0x0.0
0x000e34…000fc8 [0x0b]: C0x0003.0x1.0
0x000e34…000fc8 ]
0x000e34…000fc8 }
0x000fc8…00115c Dummy {f00=0x0000, f01=0x0190, f02=»in Lo< # # #$ A~ X - _ H*f* + + ,0-T
0x00115c…0012f0 Dummy {f00=0x0000, f01=0x0190, f02=»
0x0012f0…001484 Dummy {f00=0x0000, f01=0x0190, f02=» in( "D r !f9 : G p O $ $ %Z&>F F % 9 K DMC<MCGTHDB&WMC RYD(RDD(ASEBABF PSF RSG. & TY J- LP / TK Kt
0x001484…001618 Dummy {f00=0x0000, f01=0x0190, f02=» $ DK W~ DK 8 W~ P DK W~ DK ( W~ DK _~ ^ DK _~ 8DK ) _~
0x001618…0017ac Dummy {f00=0x0000, f01=0x0190, f02=» ? ? ? ? ? ? ? N & ? ? ? ? ? ? ? f ? ? ? ? ? ? ? L 2b
0x0017ac…001940 Dummy {f00=0x0000, f01=0x0190, f02=» f l Z f Z f D Z
0x001940…001ad4 (0, 2) Dummy {f00=0x0000, f01=0x0190, f02=» Z V f R . Z | f ? ? ? ? ? ? ? ^> ? ? ? ? ? ? ?
0x001ad4…001c68 Dummy {f00=0x0000, f01=0x0190, f02=» ? ? ? b ? ? ? ? ? ? ? l b j & L r 0 V |
0x001c68…001dfc Dummy {f00=0x0000, f01=0x0190, f02=» 6 6 6 6 6
0x001dfc…001f90 Dummy {f00=0x0000, f01=0x0190, f02=» 6 6
0x001f90…002124 Dummy {f00=0x0000, f01=0x0190, f02=» :
0x002124…0022b8 Dummy {f00=0x0000, f01=0x0190, f02=»
[…0x2…]
0x0025e0…002774 (0, 3) Dummy {f00=0x0001, f01=0x0190, f02=»
[…0x1…]
0x002908…002a9c Dummy {f00=0x0001, f01=0x0190, f02=» P
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=»
[…0x1…]
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x0190, f02=» *
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=»
[…0x2…]
0x003414…0035a8 Dummy {f00=0x0001, f01=0x0190, f02=» @
0x0035a8…00373c Dummy {f00=0x0001, f01=0x0190, f02=» A A R$ A A R A A R A @#" > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P F4 _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A ( @ Q A ' A"T ( A A)F_ @ A
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x0190, f02=» @ ? ? > "D P P Q P ! P @ $ H @ P W ( < Jl @ 9a:a R0 "Z Q Q" ?A <P @"N %J & _ ( _ _ 0 % Jl T @ W @ R (P& P (_ =a:a =A:A Z P Z _" TR @
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x0190, f02=» @% L F4 0 Jl @ PR 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C ( _ 5 H A& A& A& A& A& A& A' A& ' ( D >a @ =a (@ D U@ x ',W U, @
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x0190, f02=» B :a Y B R A& _ @& ' W4 @& A& ,Xp _ < @ A' A( A( A( A( A( A( ( =a @ >a V _ @ >a Y A' A' 4 T ' ( "^ 5 U P" @' @( @( @( @( @( @( ( @' x @& 8
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x0190, f02=» @ !@ *V @ P @ X0 , *V A _< U` A)F @ , L ? ? , L L L L L L ? ? ? ? ? ? ? @" Px @ > > > > > > > ; [ [ [ [ [ [ > > [ [ A @" H" " ? A" >
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x0190, f02=»? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P S
0x003f20…0040b4 (0, 5) Dummy {f00=0x0001, f01=0x0190, f02=»R _ ;A [ [ : # P| ' PL , ; R <a V 9A:A ; V ; V V W V < V < V H T P R ;H [ [ : _ T P ; R4 < S , _ _ W < R $ <A Q" T" U" :$ _ < Z& - W _ < <A9 R :a
0x0040b4…004248 Dummy {f00=0x0001, f01=0x0190, f02=» R Q ;H [ [ : " _J ? ? ? ? ? ? ? Q _ ^ ( H R - W . W / X I I R P8 X O P O T Y Y W x Y Y $ 0T W W 6 X ? ? ? ? ? ? ? .^ 7 X #? P ? ? ? ? ? ? ? . 7 6 (@ 7P %
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=»7 (@_~ 52X R Y _ X D $! TR ? ? ? ? ? ? ? /F 7 8 M ? ? ? ? ? ? ? /l 7 % > > > > > > > > ? ? ? ? ? ? ? / 7 P X 7^ 7v / 4 8 TRT X 5P 4 $ <A 52 Pl 52 X X X M M
0x0043dc…004570 Dummy {f00=0x0001, f01=0x0190, f02=»_ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y / ? ? ? ? ? ? ? 1 7 Qv 1& 4 " PF X Q< X P P ? ? ? ? ? ? ? 1X 7 (@ Y Cn X X X R
0x004570…004704 Dummy {f00=0x0001, f01=0x0190, f02=»1 7 > > > > > > > > 52R X X Q Y ( O` ? ? ? ? ? ? ? 2D 7 ? ? ? ? ? ? ? 2 7 (@ 7P ? ? ? ? ? ? ? 2z 7 2 4 X M X ! 40" P2 O` X ? ? ? ? ? ? ? 2 7 (@ Cn X 4Q W 9AY T Q P
0x004704…004898 Dummy {f00=0x0001, f01=0x0190, f02=» Qz 9AY Tn9ATj @3 D4 @3 $W 1 Y $ D ! P 2 Y 0 P :ET OFP OST Y Y X 5Z X M _d3 4 4 ABCDEFGHI JKLMNOPQR /STUVWXYZ 4 4$4*[.<(+^!$*);] ,%_>?" P X 2 ' Q X 4 X X R ( 5
0x004898…004a2c Dummy {f00=0x0001, f01=0x0190, f02=» A , DKP L X X L ! X L P L @ _ C C # ( _R _ _ _ _ _ X T 5b 4 X ! TH X X X T" $ :ET D OFT W OST X P % Y X R X 4 ! X Y T T Y Y
0x004a2c…004bc0 Dummy {f00=0x0001, f01=0x0190, f02=» X R 8 TYX WH H6 Y _8 X X: X R X ( _$ _* $ XtRX P Y _ A6 X X Y X Y _ $ P4R P6 X Q Y Y <dW Y W $ P R , _ X X*Y$ X X X6 Y Z(P A6 ZrP Y _8 _< _@ ! 4 $ X
0x004bc0…004d54 (0, 6) Dummy {f00=0x0001, f01=0x0190, f02=» > > > > > 7 V <a W X ' ?A q A82 > > > > > > > 80 , 0W 0T _ l P$ X X ] X * A8aJ " * - X ( 7P = V X X Cn X 4 L ! L % T< L P4 M ^ L X 4 _ ? ? ? ?
0x004d54…004ee8 Dummy {f00=0x0001, f01=0x0190, f02=»9J: 9l9l: : 9~9~9~9~: 9b9t < W* = W" < W ?: L :AR| M W M M 4 L T M M L PH=GV L L 4 9 M 2 ;6 M L 9G L 4 L M L M M L 4 : W M " A< L P L 9JR@ P P T A, 5 U P T Q P P
0x004ee8…00507c Dummy {f00=0x0001, f01=0x0190, f02=» L ' 7P P p Y "(@ P P $ M : P ( M P Q P P P W P T Q (@ L " A<(@ H H T A, E $ I 4P _ 5 % E (@ L 2 ( P _ 4 ) % ] M (@ L 2 A$ T!fR Q @!f] A,>
0x00507c…005210 Dummy {f00=0x0001, f01=0x0190, f02=» T V P T"W L >F A$ L & A$ < M 4 ; M L M L " P M < : M L M A< L ! PT L M L M L & P L E E M < : M M L L % T D V L ! P L ! XfWn L M L M M =0 : L :c:A L D
0x005210…0053a4 Dummy {f00=0x0001, f01=0x0190, f02=» D Q = M 2 < L L $:BV W $:AV M " M A L L $ M 0 D L U M " V L R L M ( M * M , L X L U M W > M 2 < L D L L 0U L 0 L (U L ( L L R $ 9 _ R $ 9 M , L M M
0x0053a4…005538 Dummy {f00=0x0001, f01=0x0190, f02=» L L , U A< L A$ L U ?X M 2 < L M $ L M & L L I P0% P L X =h P W P L X T M . L 9 M L A$ L L . Q L L L R 0 % _ M M L . P M . ? M 2 < L U @, M 2 < L
0x005538…0056cc Dummy {f00=0x0001, f01=0x0190, f02=»P0W" M L A$ @ M ( L U @ M 2 < L L ( E L % E L E L E M A M 2 < L P$ A< M 2 ;r M "W F4 = JlW ( L 4 5 L L " C m M ^ U L ( L L ? ? ? ? ? ? ? A A H 4 R W 7
0x0056cc…005860 Dummy {f00=0x0001, f01=0x0190, f02=» d _ AB0 B AH 5 T6 @H P H BD BH BL BP BT @H AH AB0 ( 5 4 X _8 B P W M: B ( "^ B, B L 0 MESSAGE UNKNOWN B H Q L L L R 0 % _ M M L . P M . ? M 2 < L U 5 B J
0x005860…0059f4 (0, 7) Dummy {f00=0x0002, f01=0x0190, f02=» C D W8 C D X W* 8 AD T AD" D (@( 4 4 : 0 :R - Y 0 PU,DNXX,STAT,RY D 5 J ? B C 1P D Y _ @B RDP A P 8 FL B X X ! R V Y AD 8 TKP Y
0x0059f4…005b88 Dummy {f00=0x0002, f01=0x0190, f02=» Q 1 B. 4 X X ? ? ? ? ? ? ? E@ 7 _ 5 J B @ Q P P T Z B W P B $>H $ NOT W0 J @ ! $ T P Y B C C R ] B, L . P E ? M 0AB CD ADDR @ 9a:a;a
0x005b88…005d1c Dummy {f00=0x0002, f01=0x0190, f02=» = Jl 0 9U AE E i6 E ( "^ F = Jl @ A @ !? $> A"T H _* 5 @H B @ A B, 0 Jl AG$ AG& G" ( "^ @ A ( C 5 @ 4 B P J _ 5 B, 5 J AG J R: P J R( G ( "^
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x0190, f02=» i6 9 , PP , X QD i6 H~ Y , i6 H~ Z H @H P : Hh ` : B I i6 _* AHT HP ( "^ : ; ;<A ' R `R Q QB _ QB <a : : : - A ~(@ A" AH A A A A AH AH AH a I
0x005eb0…006044 Dummy {f00=0x0002, f01=0x0190, f02=» Qh Q P( @ @ @ @ Y Y Y Y " A "; V W # @ A AH @ ? ? > Q @ ? ? ? ? ? ? ? I F4 @ P <a:a B :A : P6 $ R, Z R R Q $ :D P $ R ^& : B P R( AJZ AJ AJ^
0x006044…0061d8 Dummy {f00=0x0002, f01=0x0190, f02=»Jf Jh ? ? ? ? ? ? ? Jj ( < Jl B @ 9a:a R @ @K @"N %J '~ %J :EOS:EOV AHT HP "$&1368 AKL KN!? QKdP ^ 52 AL X AO X AO Q R x % =A Y X Y4 Z8 AKD $ $ T D i Kb !N X "!
0x0061d8…00636c Dummy {f00=0x0002, f01=0x0190, f02=» W !N " P P !N _ !N2 Mb M L 4 P Pj P P P @O Y M D P X &Q Y W Y 4 X $;H D :ET $;H D OSP OVT W W !L X ! P X 1P W @ X U W W W !L X ! . @Wp !L X ! Tb AW^ X
0x00636c…006500 Dummy {f00=0x0002, f01=0x0190, f02=»KD Y , $ T D q 84 !N !N< L KP Y Y AO AO LH !N !N< L W W ANV X 9c T DKH EKH 4 X B X :c HKH % M !N _N !N !N6_X !N _^ !N Y " !N<_p KT_ X # ;dC Y AKF AKB 7P AO _ _ _( _, _0 _4
0x006500…006694 (0, 8) Dummy {f00=0x0002, f01=0x0190, f02=» "! PX @ Q P VF_ P RN;AR P P4 0 P P C C C LPT P P C # ( C _: DL P H C _ P X( DD _Z :EOS :EOF 52 5J 5 @ !? ?R _ P 4 ' !? 0X A "! X6 @ Q P ^L_ P XP P R :AV L D
0x006694…006828 Dummy {f00=0x0002, f01=0x0190, f02=» M # C C @ _ "ZN(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y Y Y # C B 58 B 58 $? R~ P R O P R R O P P| P Pv P $P &PN "P< /
0x006828…0069bc Dummy {f00=0x0002, f01=0x0190, f02=»DYPj X T Y $ WZ RZWX $ # T $ T Y B W0 %@ R b " Y Y Y Y Y $ X _0 8 TCX< TKXB MTXH DYXN ^ @ T <j =h QU P. ^ %x 8P F4 X % !X %`X P % X. R" X>W % P T %
0x0069bc…006b50 Dummy {f00=0x0002, f01=0x0190, f02=»U E E E E E E U > > aU @U E @U @U @U @U @U @U @U U Q (@ T W@ &_T@ H P P T ?f' W " H Wx " Wn & P >b& >AW >a& @T " X X T$W.
0x006b50…006ce4 Dummy {f00=0x0002, f01=0x0190, f02=» T" T" T" T" T" T" " " " " " " " T" >" HU AU T" T" T" T" T" T" " " " " " " " T" AU > ?f' _ 8 @ T <j =h 8P F4 X % !X %`X P % X. R X>W % P T %
0x006ce4…006e78 Dummy {f00=0x0002, f01=0x0190, f02=» E E E E E E > > a @ E @ @ @ @ @ @ @ Q (@ T W &_T H P P T ?f' W " H W " W & P >b& W X M M Y X Y Y B Y ! Y
0x006e78…00700c Dummy {f00=0x0002, f01=0x0190, f02=» !Yj L x P !Y M Q W ! P M L ZZ Y" B Y Xf AWz 8 4 B :e L Ph !Y M Q !Y6 B B $ !X !Yj L x P2 x X0 M L Q !Y@_@ !Y M Q Y" 4 ! 9A " ! M 4 P P L P P ! _ 4 B
0x00700c…0071a0 Dummy {f00=0x0002, f01=0x0190, f02=» M AU L 7P U M Y B AU U Y X P P P P P P8 Xf !^ AU B T B @U ) @U I @U I Xf 4 B AU ! T h AU M !Y6 L @U ! P AU !^ !YDW AWx !^ !YD" P !Y@ M L ZL M AU V !^ !^ Xf B P2
0x0071a0…007334 (0, 9) Dummy {f00=0x0002, f01=0x0190, f02=» AU ! P AU W& ! P AU R ! P W ! P AU P AU V ! P ! P _ P* AU AU R Ql ! P Wb ! P ! P WP ! P ! P W> B <e :e Q P AU AU ! P AU Z X Td @U ! P W @U P Q Y @U @U AU
0x007334…0074c8 Dummy {f00=0x0002, f01=0x0190, f02=»" T" L @U P<W !Yj" T L @WxP$ M L Q !Y@_Z M Q Xf T X $ P@ D R: P @U ! P !] T D $ !^( @U ! T L AWx !]xW !] T D R@ $ !^ @U ! T @U T " T AU W AU T P AU Y T U 4 !] @U ! P !YDW
0x0074c8…00765c Dummy {f00=0x0002, f01=0x0190, f02=» L " P $ M 4 @U U ( = Y 4 @U U < ) Y 4 X ! J $ <b! L !? P L ! _ @U L T !Y L 9AV$ !Y M Q A"R @ M Q 4 M Y" 4 !Y@ !Y M Q AU M !Yj 4 @V TOTD @V 1T: B AV( @
0x00765c…0077f0 Dummy {f00=0x0002, f01=0x0190, f02=» , ` X Y X a| B Y % a| L aN M B P 58 B V X P P P P 52 B P P 4 ^ :A H_bW W M B M B M _Z _bV 4 Y T T W _ 52 B < V < 58 L P :g: L :C ?
0x0077f0…007984 Dummy {f00=0x0002, f01=0x0190, f02=» WR A_> L " * Aa - Aa3 L " X ! Y M T(% T$ ! R L W L A T M A_< A_: X 7P B M aj h d M _* _R Y B A_H X P PD P@ P< P8 P4 b !dZ B T B @_T ) @_V I @_X I b B P,9 Q$ B < R :A R
0x007984…007b18 Dummy {f00=0x0002, f01=0x0190, f02=» P @ W M @_H M M !dH !b b L !? B M A_< A_: A_J X 7P A_@ ! T @_D A_@ @_F Y @_BU A_H b M X 4 X ! J Pj @_< @_: L $ L T L P: M I m M M W& L P M l A M M W A X
0x007b18…007cac Dummy {f00=0x0002, f01=0x0190, f02=» ? 4 an M A_> 8 4 M @_J 7P < $ <C ! 9 4 @_@9C @_D: 4 M _T M !b b 4 :EOS:EOV P P P Ad d !? Qg P ^ 52 V X 58 58 X Ad Adx Adz
0x007cac…007e40 Dummy {f00=0x0002, f01=0x0190, f02=» 9 R !f !f AdzXT_ d| Y Y _^ !e !f tW !e !e ] ! X W !e 9C^ W| !e _ !f Wn !f _ d Y Y _ X r s W4 X @ _ W$ AW @W $W %W W !W W X 9d)` Ad AdxA T 7P 9CV * 9AV 9AV X 1P * 9EV )@ X Q6{ X
0x007e40…007fd4 (0, 10) Dummy {f00=0x0002, f01=0x0190, f02=» X @d d 4e e e e e e eBeBeneRe e~e e e e e e &" 13468$$ @ _ X X X X $ Pg4g<gThDhb % P Y Y Y >% X P Y _" P" P& R| ^T Y _D _T X _ X _ X" X& T: X P4 0' P. 1R P _ 0$
0x007fd4…008168 Dummy {f00=0x0002, f01=0x0190, f02=» P Y $ W Y =D %_ X P V % P Y X XT Q _ g Q g 0DKER UNIT CYLD STAT h h 4 h h W2 h h X W$ h h W h ( X = 0 :R # Y ; ; ? 0 :R
0x008168…0082fc Dummy {f00=0x0002, f01=0x0190, f02=» T Y" P T _ X D D E E ] @ E @ j ? ? > ? ? ? ? ? ? ? m6 C ( "^ @m k^ U T " P " P @m W C "& # ( "^ A p @mV @mX @mZ @m <h @m % @m^ @m` mb md z [
0x0082fc…008490 Dummy {f00=0x0002, f01=0x0190, f02=» U > > > > > > >WZ A p ^ T " T0 ! P W SY SD AD _ ! P _, J _2 m6 # C ( "^ P mV mX mZ m CCT I T P Q _, Am@ _V LM mb A"X Am@ m6 L 9 !? A
0x008490…008624 Dummy {f00=0x0002, f01=0x0190, f02=» I H P _ A in A A A @ ~ m A ~ @m A ~ @ o0( "^ A~ A A H (@_0 $ ( , 0 4 8 < mB U T " P " P @ W C "& # ( "^ A p @ @ @ @ <h @ % @ @ z [
0x008624…0087b8 Dummy {f00=0x0002, f01=0x0190, f02=» U > > > > > > >W A p ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P DOS - PTS 6000 REL. 11.0 81-02-16 FOR 6879 (250 KB) FLEXIBLE DISK DRIVE
0x0087b8…00894c Dummy {f00=0x0002, f01=0x0190, f02=» A n bCPT * & g @ ~ A ~ @ A ~ @ I:ITCP J M:LDNX , ( ( "^ A A n , ( (@_0 $ $ ( , 0 4 8 < , ( o D
0x00894c…008ae0 Dummy {f00=0x0002, f01=0x412c, f02=»R CR MT UT cP gT " P P & W % H D ! ) - 1 7 = A E I P WZ T0 P W ;P Q kP B H D ! q u y } T T P Q 8 4 T, T P ' " )P 5R MP o w
0x008ae0…008c74 (0, 11) Dummy {f00=0x0003, f01=0x0190, f02=»@ M ^ U > > > > > > >W A p ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P CCT I T DOS - PTS 6000 REL. 10.0 sb
0x008c74…008e08 Dummy {f00=0x0003, f01=0x0012, f02=» # # 'x(p(x) ) )
0x008e08…008f9c Dummy {f00=0x0003, f01=0x0190, f02=» P IDENT INIMON < P* 781128 - B.VINK - PC1964 - SET BIT SY IN DCTHD $ L P* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * d P* . P* P860 DISK OPERATING SYSTEM P* P* B P*
0x008f9c…009130 Dummy {f00=0x0003, f01=0x0190, f02=»ING TO THE ^ P* 6 P* SYSTEM DISK ADDRESS P* X L P* SCANNING OF SYSTEM DIRECTORY , FIND CCI DISK ADDRESS b P* P* L P* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0x009130…0092c4 Dummy {f00=0x0003, f01=0x0190, f02=» P EXTRN M:LDNX P EXTRN CVTSTB $ P EXTRN CPT D P EXTRN CVTMSZ b P EXTRN CVTBKA P EXTRN PCT61 P EXTRN T:DCT P EXTRN CVTSBA P
0x0092c4…009458 Dummy {f00=0x0003, f01=0x0190, f02=»ST A2,0 n P* P* 8 P* SUPERVISOR COMMUNICATION VECTOR EQUIVALENCE $ P* ` P* j P* t P* ~ P* P* 8 PCVEADR EQU /82 ADDR OF SUPERVISOR CVT P* . PCVEMSZ EQU 0 MEMORY S
0x009458…0095ec Dummy {f00=0x0003, f01=0x0190, f02=»CVESBA+2 BIGGEST BUFFER ADDR ~ 2 PCVEBKA EQU CVEBBA+2 BACKGROUND ADDR ( : PCVEDSP EQU CVEBKA+2 START ADDR OF DISPATCHER ^ 8 PCVEPLS EQU CVEDSP+2 BASIC PULSE FOR RTC 2 PCVEFCT EQU CVEDSP+6 FILE CODE TABLE
0x0095ec…009780 Dummy {f00=0x0003, f01=0x018e, f02=»CVEDCT+2 JOB PARAMETER TABLE ~ . PCVEBPL EQU CVEJPT+2 BUFFER POOL ( @ PCVELFT EQU CVEBPL+2 LOGICAL FILE DESCRIPTION TABLE Z < PCVEYAR EQU CVELFT+2 CURRENT YEAR, 2 ASCIL CHAR < PCVEMON EQU CVEYAR+2 CURRENT MONT
0x009780…009914 (0, 12) Dummy {f00=0x0003, f01=0x0190, f02=» ` @H ` " B !( 9 ! +b L * b dX B ,i p$ A j z dH&g S xzx j `@ ` `0 H q@% H @R z@u ` `@ : @ `H ja @ `H @ z@U x @ [ ` x d @8 U ! ` ` @Z @ @ ` @ @P ` `p ( ( ` @ ` `X ` @ X @ `
0x009914…009aa8 Dummy {f00=0x0003, f01=0x0190, f02=» @l p JGz S 3 f ` w @ 3 H! S d j Z S Q @ S H! 3 d 6 | @Bh ' 4 _{ N4`w l ` `PZ 4 P0 2 t0 ` @ c@ % @ @ bH @ @ D@ F ( C0 @ @ ` ` B @ ` d `[ `h C 4 4 @ ` @ { W E @ `P` E ` `X @Q ` E
0x009aa8…009c3c Dummy {f00=0x0003, f01=0x018e, f02=»CIEVED 7 2 P********************************************* 8 PADI120 EQU * 8 D P LDK A1,0 NEGATIVE RESPONSE 8 X P ST A1,DWTA4,A7 8 | P ABL INIDLE 8 P EJECT 8 0 P******************************************* 8 P* TCA BUSY 8 0 P******
0x009c3c…009dd0 Dummy {f00=0x0003, f01=0x0190, f02=» 8 l PADI900 EQU * 9 P LDR A2,A6 SAVE A6 9 P LDR A6,A7 9 6 P CF A15,TENDIO 9 H P LDR A6,A2 RESTORE A6 9 ^ P ABL LDISP GO TO DISPATCHER 9 | P EJECT 9 > P********************************************************** 9 P* 9 , P* DELAY RO
0x009dd0…009f64 Dummy {f00=0x0003, f01=0x018e, f02=»=2 NEGATIVE RESPONSE 9 P* : > P********************************************************** : ( PDELAYL LD* A2,4,A5 : j " P CF A5,ILABEL SET INPUT LABEL : P LDK A2,2 : P ADS A2,4,A5 : PDELAY EQU * : P LDK A2,0 : * P ST A2,READY,A6 CL
0x009f64…00a0f8 Dummy {f00=0x0003, f01=0x0190, f02=» : p P LDK A2,SYN ; P CF A5,WRITE ; P RB DEL100 ; 0 PDEL110 EQU * ; B P LDR A4,A2 ; V PDEL120 ADK A5,4 SKIP STACK ; h P ADK A4,0 SET CR ; P ABR* A5 ; P EJECT ; P* ; P* ; P* HALT INPUT SYLCU ; P* ; P* ; PHALTIN
0x00a0f8…00a28c Dummy {f00=0x0003, f01=0x0190, f02=» ; n P RTN A5 < P* < P* < " PHIDLE CF A5,HALTIN < , PINIDLE CF A5,READ < F P RB INIDLE < ` P EJECT < r P* < P* < P* DISCONNECT MODEMS < P* < P* < ( PDISCON LDR* A2,A6 GET DEVICE ADDRESS < . P ADKL A2,CIOH COMPUTE CI
0x00a28c…00a420 Dummy {f00=0x0003, f01=0x0190, f02=» < r PDISC20 HLT HALT INPUT SYLCU = P RTN A5 = , P* = < P* = F P* START OUTPUT SYLCU = P P* = l P* = v PSTOUT EQU * = " P LDR* A2,A6 GET DEVICE ADDRESS = P ADKL A2,CIOST = P ST A2,STO100 = P LDK A2,/60 = P INH = " PST
0x00a420…00a5b4 (0, 13) Opaque[0x194]
0x00a5b4…00a748 # DirEnt {nam=»CCI «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x00a5b4…00a748 IdxSect {
0x00a5b4…00a748 f00 = 0x0003 // 0xa5b4 @0x0
0x00a5b4…00a748 f01 = 0x0008 // 0xa5b6 @0x2
0x00a5b4…00a748 gno = [ // 0xa5b8 @0x4
0x00a5b4…00a748 [0x00]: C0x0003.0x2.0
0x00a5b4…00a748 [0x01]: C0x0003.0x3.0
0x00a5b4…00a748 [0x02]: C0x0004.0x0.0
0x00a5b4…00a748 [0x03]: C0x0004.0x1.0
0x00a5b4…00a748 ]
0x00a5b4…00a748 }
0x00a748…00a8dc Dummy {f00=0x0003, f01=0x0190, f02=» 0 ' d l 8 t B f r X $ > P p & | ` DCU DLU LIC PRC RSU ` RDS RDO PRT LST RDA PRD LSD PCH POB PLD DUF INC
0x00a8dc…00aa70 Dummy {f00=0x0003, f01=0x0190, f02=» TCD p FCL p BCL p FRT p FOR p LKE p LED DEB p EDT SVD ` SVU REW ULD FFS FBS RFS RBS WEF WES WEV SDM HSF p JOB END MES PSE
0x00aa70…00ac04 Dummy {f00=0x0003, f01=0x0190, f02=»L P ( PRV LSV TRA p * TLK p , . XRF P 0 2 BUG p TLT p 4 . LKF p 6 CBL p 8 < CLK p : > N P 9B 9A R D P < N P N 9 V O O . N 9CV < N 9 R N 9AV < N 9 V
0x00ac04…00ad98 Dummy {f00=0x0003, f01=0x0190, f02=» $ V "X _t R W W W W O & < z O , P^ PZ P R T TYT O , P T O , P4 P0 T O T O : W 0 V T _^ @ D H ;DRR , PH I H P6 H P0 @ "
0x00ad98…00af2c Dummy {f00=0x0003, f01=0x0190, f02=» V C R W _ _ _ T 4 & C @ R WL_ _ _ B , ,9c z[ Y W YD R W _ _ _ W V V W V N C R W _ _ _ V W W V V *
0x00af2c…00b0c0 Dummy {f00=0x0003, f01=0x0190, f02=» L b 8 W < B # , P P| Q& P R 9AR Wl B V T C F # C P W W P W ( B R29 R<9 R49 R&9 R0' Q B H R&9AR 9AR W B < B W H_ _ _ _ B P R&? R ? R ? R ? R ? R B W
0x00b0c0…00b254 (0, 14) Dummy {f00=0x0003, f01=0x0190, f02=»W W B < U T U U _& W W W V C B , X PD P QL QN T 9 R29 RJ T C R W W W W @ K V V V V P R W W ( R _$W W W _4 NW W W ( V R S: NWxWv_ T TY *
0x00b254…00b3e8 Dummy {f00=0x0003, f01=0x0190, f02=» C _ V B , P P P R W W A W W W W ~ W2 W W V V 5 W _* V P W V | W | V P V /P 0R$ :RTW V & W ~ V W ~ V _" V V 8H V ! T 8 _ H WHW V
0x00b3e8…00b57c Dummy {f00=0x0003, f01=0x0190, f02=» GV V | V P v | W | P ,P :P V | $:H $ F0Z F9U FAZ& FFY, A v | !AAZ !ZZY v | W | ! P !,,P @ Q 5 A _( @ X ! P _$W W : _ W V | W | : 8D R 0
0x00b57c…00b710 Dummy {f00=0x0003, f01=0x0190, f02=» L T P*_ 0R" 9Q 0 P 9C L _( W 0 R _ 8H 0 dR _ 8H 0 d R _ 8H : : W j H # W | H W R WNW _*_, B B P B ) Y N 9 V" j ~ (XB > R *P
0x00b710…00b8a4 Dummy {f00=0x0003, f01=0x0190, f02=» 9 V O V ~ PH P8=A 1 * * 1 1 ZHW _4 N ! QPP: O V ~ P8 h H ^W*W W W W x W W W W W _ W W R W W W W V ~ : (
0x00b8a4…00ba38 Dummy {f00=0x0003, f01=0x0190, f02=» ABSENT FILE CODE DISK NOT OPERATIONAL ALREADY CATALOGED OVERFLOW I/O TOO MANY COMMAND ALLOWED DEVICE NAME MISSING 2ND ADDRESS UNKNOWN FCT LFT ASSIGNED EQU ASSIGN CORE INPUT OUTPUT /L EMPTY PROGRAM CLOSED DIRECTORY
0x00ba38…00bbcc Dummy {f00=0x0003, f01=0x0190, f02=» $@P $ P N % P P P0 2 U N ! T W h O h H Wz N % T U O 0 W i _0 ]$ 4 Z & W & < U 4 Z 2 & W R W W W W X~ X Q
0x00bbcc…00bd60 Dummy {f00=0x0003, f01=0x0190, f02=» 00 P _ V : DATE HX /HX /HX TIME HXH-HXM-HXS- A p $ )T P _ @ p W = W | < , P V 8 W W V | W R W W W W W R *P b R *T < , T W | < V 8 W R WLW WH
0x00bd60…00bef4 (0, 15) Dummy {f00=0x0004, f01=0x0190, f02=» T P G F T V _( P # Q V W V : , T _. F Z _j W W W F W d ) F W P W F 4 V # T R W _ _ _ W G W 6 W V F T W V P v
0x00bef4…00c088 Dummy {f00=0x0004, f01=0x0190, f02=» W V 4 W V W ]<_ V T8 V 4 W W V W W V D W V W V : V W _ V X _ W , P* 09AR R P F F G W W W V : L P< R R" T T T G
0x00c088…00c21c Dummy {f00=0x0004, f01=0x0190, f02=» @ U F L ?L D P X L =CR =AR =CRH WB =CR: W4 =l P* W$ ' ' ( J G G G G G G G G G L ' P< L # 4 C C C x R W:_ _ _ B R
0x00c21c…00c3b0 Dummy {f00=0x0004, f01=0x0190, f02=» < 6 G G G G G G G G G G G W Q Z P F G V : P G G "P P _ < # @ 2 P P _ : A B P @ B R _ : X _$
0x00c3b0…00c544 Dummy {f00=0x0004, f01=0x0190, f02=» @ x : ; W" ; W ; W Z " [ Z : ! @ Z 9c Z P L U _< :` % _H % _P XV _Z W j 2 V , , 0 5 V 9D9k D z " W( W W W W W W W W W 2 W V # T , 0V U V j
0x00c544…00c6d8 Dummy {f00=0x0004, f01=0x0190, f02=» L U ( ( @ U ( . 4 M - F G U W D V H F V # f = Z V R W W W W ' C R WdW W W V SCP" OBP LMP
0x00c6d8…00c86c Dummy {f00=0x0004, f01=0x0190, f02=» W T W V @ W @ _ V Q # T 8 : V V , T W W W V : 0 Q Q X*Q R U V_> B_D @ , H Q R W H T T BW H T I I Y2 X_ , P P , P P
0x00c86c…00ca00 Dummy {f00=0x0004, f01=0x0190, f02=» G _b F G F 4 T C R _ _ _ _ B , @ T * ,9cP z Y _ :` W O QH ?A R $T$ $P, W P ?a W ( W ;h P V : 8 V : OPTION NOT AVAILABLE CSEG1 LMCSEG2 LMCSEG3 LMCSEG4 LM
0x00ca00…00cb94 (0, 16) Dummy {f00=0x0004, f01=0x0190, f02=» ` T ** CORE OVERFLOW ** @ !J O N W P ( - Y j O P: 4 9 Y <=h R O & = Y N P N P : N P 9B 9A R H P # W z T P :
0x00cb94…00cd28 Dummy {f00=0x0004, f01=0x0190, f02=» $r ! R HW W W W j ! R JW W W W B PL ( XB " R _L YR U " V l8h Xf "8 R _p ;Yv < $ $ "f R HW W W W j "~ R JW W W W B P YD b P :h " R _`W @ X 8<h 8# LP 8P
0x00cd28…00cebc Dummy {f00=0x0004, f01=0x0190, f02=»_Z_ W2 V f 00 V #^ R _x V 0 V PW !NN O : ( $ 8 5 Y @ P N N V O U $:h U # U " N N V < O U N N V < O U N N V U ( $: R W W W W W 1
0x00cebc…00d050 Dummy {f00=0x0004, f01=0x0190, f02=»IME: 00H-00M-00S-000MS- W @ 4 4 " Y%l %l 8 QR F%V _& Q$ & 4 " 9 Z _P &` 8 & 8 V :% % % % % & & & & & PROG ABORTED AT OVERFLOW IN SIMULATION ROUTINE SAVE AREA NOT WIRED INSTRUCT
0x00d050…00d1e4 Dummy {f00=0x0004, f01=0x0190, f02=»A2 =HEXA A3 =HEXA A4 =HEXA A5 =HEXA A6 =HEXA A7 =HEXA A8 =HEXA A9 =HEXA A10=HEXA A11=HEXA A12=HEXA A13=HEXA A14=HEXA BUFFER ALLOCATION OVERFLOW DISK OVERFLOW DISK QUEUE OVERFLOW MEMORY OVERFLOW DURING LOADING PHASE R W W W W W 1
0x00d1e4…00d378 Dummy {f00=0x0004, f01=0x0190, f02=» RDO PRT | , ( LST RDA PRD , ( LSD PCH POB L , ( PLD DUF INC MO | , ( V SCR KPF p DEL , ( ) p ASG SEG RUN p
0x00d378…00d50c Dummy {f00=0x0004, f01=0x0190, f02=» LK l , ( E p LED DEB p EDT , ( SVD ` SVU REW < , ( ULD FFS FBS l , ( RFS RBS WEF , ( ) WES WEV SDM HS , ( I F p
0x00d50c…00d6a0 Dummy {f00=0x0004, f01=0x4160, f02=» LSF GOD P POD , ( OLE P " $ NOD MAC P & RT , , ( L P ( PRV LSV TRA , ( p * TLK p , . XRF P 0 2 BUG p , ( ) TLT p 4 . LKF p 6 CBL p 8 , ( I < CLK p : >
0x00d6a0…00d834 (0, 17) Opaque[0x194]
0x00d834…00d9c8 # DirEnt {nam=»CSEG1 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x00d834…00d9c8 IdxSect {
0x00d834…00d9c8 f00 = 0x0004 // 0xd834 @0x0
0x00d834…00d9c8 f01 = 0x0002 // 0xd836 @0x2
0x00d834…00d9c8 gno = [ // 0xd838 @0x4
0x00d834…00d9c8 [0x00]: C0x0004.0x2.0
0x00d834…00d9c8 ]
0x00d834…00d9c8 }
0x00d9c8…00db5c Dummy {f00=0x0004, f01=0x0190, f02=» : W N j , R W W W W W V ~ W W J R W W W W W V V P T T n r W R W W W W ' W V T V P V P 4 # R Wt_ _ _ B T V ,P6R 9 :AW H - 9a:K8G
0x00db5c…00dcf0 Dummy {f00=0x0004, f01=0x0190, f02=» V # V ' V R W _ _ _ V C R W _ _ _ V V < = V ] PD V R* G R W^_ _ _ C B P W = G 0 R W,_ _ _ V : W. W* W& W" W W W W W $W (W ,W 0 L 8
0x00dcf0…00de84 Dummy {f00=0x0004, f01=0x0190, f02=»V R W W W W W V A V P T T , A @ R W W W W , P P F ' 4 + ' R WtW W W V T Tj V N LMT` V HPZ PV K R WBW W W V 6;a 8 0 PT 0X W$ W W W W
0x00de84…00e018 Dummy {f00=0x0004, f01=0x0190, f02=» _fW W W$ | R _xW W W G K _. P 8 V : C ! % + TOO BIG N W R W^W WZWX W" | W R W W W W 8 V V P T T 6 R R W W W W W F P
0x00e018…00e1ac Dummy {f00=0x0004, f01=0x0190, f02=» Y P W R 4W6 C Y^W _" W* W& W" W W W W $W ~ (W ,W 0 P J 8 V : + IN CATALOG B C R _nW W W 8I9A:l:A H B V % R _ W W W V : N j R W(W&
0x00e1ac…00e340 Dummy {f00=0x0004, f01=0x0190, f02=» Z` T PD # 4 C C R W W W W B D K V _ DL = ON = F ! " / = _ DD = F D ! " = : F P F F = J K , R W W W W k : , P T 9CQ 9FR T ! T~
0x00e340…00e4d4 (0, 18) Opaque[0x194]
0x00e4d4…00e668 # DirEnt {nam=»CSEG2 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x00e4d4…00e668 IdxSect {
0x00e4d4…00e668 f00 = 0x0004 // 0xe4d4 @0x0
0x00e4d4…00e668 f01 = 0x0004 // 0xe4d6 @0x2
0x00e4d4…00e668 gno = [ // 0xe4d8 @0x4
0x00e4d4…00e668 [0x00]: C0x0004.0x3.0
0x00e4d4…00e668 [0x01]: C0x0005.0x0.0
0x00e4d4…00e668 ]
0x00e4d4…00e668 }
0x00e668…00e7fc Dummy {f00=0x0004, f01=0x0190, f02=» l d l f @ F $ R W*W(W&W P X 8 : V U R V W" _& _* W R W W W W W, V U Q W , P| Px R WrWpWnWl V Q R , P T 9IV OBW UFW SC V N 0 V P.
0x00e7fc…00e990 Dummy {f00=0x0004, f01=0x0190, f02=»WPW W P @P @T ` 2( _> F K V U 5 W R WrWpW Wl_v V R P V X V Q W R FWF V ] R W4 V P R W : V YPZ( V Y , R FW : W V W 2 P L 8 : EOV ON INPUT FILE,MOUNT NEW
0x00e990…00eb24 Dummy {f00=0x0004, f01=0x0190, f02=» 0 V P z 8 R @ : R W W W W W V R ' Q ' W B R WtWrWpW V W W V R^ ' QX V RR W r R WPWNWLWJWZ V | SC N N _ V | UF_ V U Q _ W W l W W W W 8 V , X X P Rb T W
0x00eb24…00ecb8 Dummy {f00=0x0004, f01=0x0190, f02=» p R _ W W W V V V W _6 V W F ; V F F );A F ( R ?U ) Y ) ( T Y W V K V QX @ P ! ! R W W W W W W V V V ' ] W _ V @_ WNWvWf V K b R W W W W C
0x00ecb8…00ee4c Dummy {f00=0x0004, f01=0x0190, f02=» C R W W W W O @ 6 % Y A J J Pv 8 RbQ !* T A TD ! T J PJ 8 ! X @ TV ! !' T I J P 8 !' ! T ! W I _| K K 4 P L P^ L P 4 J $ !* Pd ! P $ ! $ !
0x00ee4c…00efe0 Dummy {f00=0x0004, f01=0x0190, f02=» LINE NUMBER INPUT FILE CAN NOT BE ASSIGNED OUTPUT NOT ASSIGNED ) ) ( T Y W V K V Q @ P ! ! R W W W W W W V V V ' ] W _ V _ W W W V K R 0 P d
0x00efe0…00f174 (0, 19) Dummy {f00=0x0005, f01=0x0190, f02=» W 8 : 00 W + , T ] : X "8H 00T /8h W 8h / = = 8 RpQ T " T = " Z` T PD # 4 C C R W W W W B D K " V _ DL = ON = F ! "
0x00f174…00f308 Dummy {f00=0x0005, f01=0x0190, f02=» , P T 9CQ 9FV0 N " OB 0 V X4 | D5 T ! T~ N T # R W _ _ _ H ( T P@ W D V P L Q M V I R Wf_ _ _ V U j P 6 R W4W2W W. ( P
0x00f308…00f49c Dummy {f00=0x0005, f01=0x0190, f02=» 0 V P 2 4 # h P R W W W W W " d d d 8 $ A D A D A D W V V A j @ d d d d W W W W W $ OBJECT FILE DIRECTO
0x00f49c…00f630 Dummy {f00=0x0005, f01=0x0190, f02=» 4 V W # Z R W W W W W V P " V 6 V T @ =a V V 4 j @ d W (>a ( % P _ V % V % P _" ( % P _ P
0x00f630…00f7c4 Dummy {f00=0x0005, f01=0x0190, f02=»IT ACTL DATE W 4 V V V & A A ( W W @ @ & W W W W W W W W W P @ 8 : ( ' $ ' $! h P R W W W W W & V % P _ V & ( %
0x00f7c4…00f958 Dummy {f00=0x0005, f01=0x0190, f02=» W j b d V P _* TEXTRN A A CO MM N W A A EN TR Y @ @ ( W V W ($ < R < R W h 2 V % V % j @ TR R W A % @ VR S %
0x00f958…00faec Dummy {f00=0x0005, f01=0x0190, f02=»V A A A V % V % @ PB V % V % (P E E d A W R %_J d d T V P P _ * W 2 V R : 8 h R @ . R W W W W W & V % P _ V & ( %
0x00faec…00fc80 Dummy {f00=0x0005, f01=0x2a20, f02=» BUG - PTS DEBUGGER RDA 4 0 P LDK A2,/E1 DEFAULT OPTI* 5 $ P RF SC000 5 X P EJECT 5 x 6 P** BUGPRO EQU * DISK FILE CODE ERROR 5 PRDAR01 EQU * 5 P L MLK 2 A4,4 5 P
0x00fc80…00fe14 (0, 20) Opaque[0x194]
0x00fe14…00ffa8 # DirEnt {nam=»CSEG3 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00a8, f03=0x0000}
0x00fe14…00ffa8 IdxSect {
0x00fe14…00ffa8 f00 = 0x0005 // 0xfe14 @0x0
0x00fe14…00ffa8 f01 = 0x0004 // 0xfe16 @0x2
0x00fe14…00ffa8 gno = [ // 0xfe18 @0x4
0x00fe14…00ffa8 [0x00]: C0x0005.0x1.0
0x00fe14…00ffa8 [0x01]: C0x0005.0x2.0
0x00fe14…00ffa8 ]
0x00fe14…00ffa8 }
0x00ffa8…01013c Dummy {f00=0x0005, f01=0x0190, f02=» * . W & R W W WDW W ^ 8 : _ _ $ _ !_ _& h_0 IDENT V 8 V /O W /LP /S V W : SC W R _ W>_~_ 4 # R _ W _ ( V X W V Z
0x01013c…0102d0 Dummy {f00=0x0005, f01=0x0190, f02=» : UF W _D F R, F T V LW W W R 4W W X N ! 4 V # R _* V 4 4Pv Tp V 9$ TR V 6 W 6 V V PP W N ! V # W X R _ W U V 6 W 6 V 5 U
0x0102d0…010464 Dummy {f00=0x0005, f01=0x0190, f02=» # R W 6 0=a 08g9A:l @ 8 A 8;` $ 9(@ 4 N ! # p R W* V T U V T W 2 : X W V , P8 PB W T W T 9 VH9 V # R W& V V P W
0x010464…0105f8 Dummy {f00=0x0005, f01=0x0190, f02=» W j W - Z N " N /OBJCTOB W 0 V P < W 0 V < W W 4 V # V P W j W R W W W W" W V < NOT V > D T C _: ( B W V T" W B U V T W V
0x0105f8…01078c Dummy {f00=0x0005, f01=0x0190, f02=» R W W W W W C _( W ( W" C V J " R _4 W _ W _" B U W 6 L R WNW W V T$ C h R W2 W U _: U W _D C R W W W W W U _ T T Y T T W j_( C 5 Z V
0x01078c…010920 Dummy {f00=0x0005, f01=0x0190, f02=»_ _ V 6 8 V <A W 6 V 6 b 6 V Q Z 4 % Y # R W _ _ _ , T 4<A $ % 4 % Y j W 4P6 T V W jW4 V 5 Z B W V W P V W _R C , U V R _ V T@ V
0x010920…010ab4 (0, 21) Dummy {f00=0x0005, f01=0x0190, f02=»Y" V W j V T V R * V _& O 8 : 4_ MODULE O 8 V R @W : _H _P W V 4 V # V V # R W W _ W C _ V R _ _ W _ W V
0x010ab4…010c48 Dummy {f00=0x0005, f01=0x0190, f02=»OB N N 0 V P P W , W N UF 0 R @W~ W W 4 W W W W V D 9 W< '( 8 : ( 8 : 8 : $ 8 W 2 : W : R JWJWLWFW@ B W | B
0x010c48…010ddc Dummy {f00=0x0005, f01=0x0190, f02=»T~ V W W V W 8 W W V V W R V V W < ~ R W W W _f 8 . * 8 . R J_8WD_<_> " P P P 4 0 W " ?A W
0x010ddc…010f70 Dummy {f00=0x0005, f01=0x0190, f02=» 8 W P R T0 4 @ % V C z R W W W W W B 9 < V 9 V V 9 V 9 C R W(W&W$W" j j W | D W . 8W, B_ 8W _2 _: W 2 @
0x010f70…011104 Dummy {f00=0x0005, f01=0x0190, f02=» V C R W:W8W:W4 V P* W B 9 V P> W W _z V P$ " T W _ W _ W _ V $ Pl V PN C # ` R W4W2W0W. B $ $ - $ X R _ _ _ _ #_V B $ $ - $_r
0x011104…011298 Dummy {f00=0x0005, f01=0x4028, f02=»W0 YW. u z ` j a @ a $ 8 _ ~ H D ! D T~ * D . ' p 1 D E I M _ o w | ` : H D ! WD P P P D W W W W W 8 ` H D ! 8 ! , + * 7 B A D ET0 g l mW oW qW sW uW
0x011298…01142c Dummy {f00=0x0005, f01=0x2008, f02=»
0x01142c…0115c0 Dummy {f00=0x0005, f01=0x0190, f02=» F 4 T C R _ _ _ _ B , @ T * ,9cP f Y _ :` W O QH ?A R $T$ $P, W P ?a W ( W ;h P V : 8 V : OPTION NOT AVAILABLE CSEG1 LMCSEG2 LMCSEG3 LMCSEG4 LMCSEG5 LMLED LMCSEG
0x0115c0…011754 (0, 22) Opaque[0x194]
0x011754…0118e8 # DirEnt {nam=»CSEG4 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00b8, f03=0x0000}
0x011754…0118e8 IdxSect {
0x011754…0118e8 f00 = 0x0005 // 0x11754 @0x0
0x011754…0118e8 f01 = 0x0002 // 0x11756 @0x2
0x011754…0118e8 gno = [ // 0x11758 @0x4
0x011754…0118e8 [0x00]: C0x0005.0x3.0
0x011754…0118e8 ]
0x011754…0118e8 }
0x0118e8…011a7c Dummy {f00=0x0005, f01=0x0190, f02=» d $ j > R W W W W N 9 V r W F F $ $ I P6 ! P0 R$ Q $ W T D L ;FV 2 V R $V # _& YF N 4 # R WP_ _ _ @ H * ( B T 4 Q W 4 ) Y P ) Y :WP W W
0x011a7c…011c10 Dummy {f00=0x0005, f01=0x0190, f02=»A CAT. PROC. , P( P$ P R 9AQ O P F 9AV W 2 Y4 N P0 , P8 P4 F 9AV G . N jW W 2 @ D H ;AV I , H R ;H;h _ O : F ! # 4 C C C ( V P G : O x R WbW W^W
0x011c10…011da4 Dummy {f00=0x0005, f01=0x0190, f02=» N 9B 9 O : 8 : W @P O v |9H W | v | W | v |:H W | v | W |WV v |;H W | v | W | v |<H W | v | W | v |=H W | v | W | v |>H W | v | W | W p > : : b W W W v | W | !,,P V Q 5 W _" W _ *, , P
0x011da4…011f38 Dummy {f00=0x0005, f01=0x0190, f02=» P` 0R RV PP @ :PJ @ <PD V> W T0 T 9FR T D ! A :W W 0 O W 2 Yp N 9 Rh N 9DV. # . C C C R HW W W W # j C C C < R JW(W _0_2 N 9CV j $ / W
0x011f38…0120cc Dummy {f00=0x0005, f01=0x0190, f02=»_" ! _ W v |9H W | v | W | v |:H W | v | W | v |;H W | v | W | v |<H W | v | W t , W | p ,8h 00 ^ R WV RP QJ V R W T T n ' ' ' W & R *T N O O O W
0x0120cc…012260 Dummy {f00=0x0005, f01=0x0190, f02=»W W W W D j B &P< N ? O & O F O j D T _ 8 8 + 8 & A P ( O : L 11CCI (PTS VERSION 810216)
0x012260…0123f4 (0, 23) Opaque[0x194]
0x0123f4…012588 # DirEnt {nam=»CSEG5 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x0123f4…012588 IdxSect {
0x0123f4…012588 f00 = 0x0006 // 0x123f4 @0x0
0x0123f4…012588 f01 = 0x0008 // 0x123f6 @0x2
0x0123f4…012588 gno = [ // 0x123f8 @0x4
0x0123f4…012588 [0x00]: C0x0006.0x0.0
0x0123f4…012588 [0x01]: C0x0006.0x1.0
0x0123f4…012588 [0x02]: C0x0006.0x2.0
0x0123f4…012588 [0x03]: C0x0006.0x3.0
0x0123f4…012588 ]
0x0123f4…012588 }
0x012588…01271c Dummy {f00=0x0006, f01=0x0190, f02=» 4 # h h h ^ D ^ H " F r X z j P X . ( W( LKF O W LKE A N W W - Y ` O O R W W W W W V PVQ V CP P& P6 P8 Tv O W XD > W O W X^ p_ _0 _6 V
0x01271c…0128b0 Dummy {f00=0x0006, f01=0x0190, f02=» 8 : N 9AV~ N N 0 V P2 8 R @W W 2 W 2 Y : V P& z D N N 0 V P _Z N 9BVF D 0 V P _ V P z D 0 V P _ , T 8_ X
0x0128b0…012a44 Dummy {f00=0x0006, f01=0x0190, f02=» W L 2 8_8 N B N 9H _N COMMON VALUE REDUNDANT LIBRARY OPTION REDUNDANT DEBUG OPTION REDUNDANT MAP OPTION REDUNDANT XRF OPTION REDUNDANT SEGMENT SIZE REDUNDANT START ADDR. REDUNDANT USER LIB ASSIGN ERR : /OBJCTOB SYSTEM LIB
0x012a44…012bd8 Dummy {f00=0x0006, f01=0x0190, f02=»EDUNDANT OR NOT ALLOWED OBDIR UF USER OBDIR ASSIGN ERR : SYST OBDIR ASSIGN ERR : MESSAGE FILE ASSIGN ERROR OLE LM j 4 4 = Y < Y N & Q O 8 = Y F O ( W h R W W W W
0x012bd8…012d6c Dummy {f00=0x0006, f01=0x0190, f02=» 8W N P W 2W W 2W > 8 W 2W 8 : W > R W W W W W 8 : , P T 8 # R W R W W 8W N OB 0 R @W C:ERMSUF W D 0 R
0x012d6c…012f00 Dummy {f00=0x0006, f01=0x0190, f02=» W 2W 8 W 2W ( 8 : W W pW z W@ O _ _ R W W W f W O R W W W W W V | D N N SC 0 V P 8 L R @W : X R WrW WnWl
0x012f00…013094 (0, 24) Dummy {f00=0x0006, f01=0x0190, f02=» W Wd _ WZ WV WR _ V T L , P P T 9IV. N OB 0 V P : P 8 : , T ! T~ N T # ~ R _ _ _ _ H ( T P@ W D V X L Y M V I R _ _ _ _ V U
0x013094…013228 Dummy {f00=0x0006, f01=0x0190, f02=» W 2 2 W 2 N T N 9HR : W 2 : ( /S ASSIGN ERR : R OPTION ERR NL OPTION ERR D OPTION ERR /S EMPTY /O ASSIGN ERR : HSF ASSIGN ERR : R _ W _ _ _ LM 9 O
0x013228…0133bc Dummy {f00=0x0006, f01=0x0190, f02=» TCD LM HSF LMFX1 LMFX2 LMFX3 LMFX4 LMFX5 LMFX6 LMFX7 LMFX8 LMFX9 LMFXA LMFXB LMFXC LMFXD LMFXE LM L R W W W W , b X 4 ~ R WR R WH N OB 0 V P< 8 R @W : OUTPUT A
0x0133bc…013550 Dummy {f00=0x0006, f01=0x0190, f02=» 8 : MAC LM R ` 2 8 : RTL LM TLT W TLK A j z H 4 % Y GOD W j n W | W V j z H $ 5 Y j W | D W - Y ` O O O W*W W&WtW V T V MP8 P P P P< Wh
0x013550…0136e4 Dummy {f00=0x0006, f01=0x0190, f02=» 9AVt N N 0 V P. 8 R @W W 2 W Y : z D N N 0 V P _P N 9BV@ D 0 V P _x z D 0 V P _ , T 8_ X 4 R W W _6
0x0136e4…013878 Dummy {f00=0x0006, f01=0x0190, f02=» 8 4 R @W W 2_P N OB 0 V P$ > 8 t R @W W 2_N N OB 0 V P$ > 8 R @W W 2_N N OB 0 V P$ > 8 R @W W 2_N 2 8_* TLK LM OUTPUT
0x013878…013a0c Dummy {f00=0x0006, f01=0x0190, f02=» 9AV N N 0 V W W A , W W W W ~ JW: bW&W W V V 5 W _, A , V P W V | W | V P V /P 0R. :RrW& V . @ , P W ~ V @ , P W ~ V _6 V Qt V V 8H V
0x013a0c…013ba0 Dummy {f00=0x0006, f01=0x0190, f02=» V W ~ V 0R :R AR GV V | V P v | W | P ,P KP L T P6_ L .W$ @R 0 P 9D _( W L T P*_ 0R" 9Q 0 P 9C L
0x013ba0…013d34 (0, 25) Dummy {f00=0x0006, f01=0x0190, f02=» _0 IDENT V 8 V /O J W /LP /S V W : SC W R _ W>_~_ 4 # R _ W _ ( V X W V Z V W N N W^ W b : LM W t R W _RW W W ` l r W W V
0x013d34…013ec8 Dummy {f00=0x0006, f01=0x0190, f02=» # R _* V 4 4Pv Tp V 9$ TR V 6 W 6 V V PP W N ! V # W R _ W U V 6 W 6 V 5 U U U V U N ! 4 V # R _ V 4 # R W
0x013ec8…01405c Dummy {f00=0x0006, f01=0x0190, f02=» # R W* V T U V T W 2 : W V , P8 PB W T W T 9 VH9 V # R W& V V P W ! O 8 V _ W W ^ R W W W W W ` l V Y W W
0x01405c…0141f0 Dummy {f00=0x0006, f01=0x0190, f02=» W 4 V # V P W j W 6 R W W W W" @ W V < NOT V > D T C _: ( n W V T" W B U V T W V T C R _l W W U C V X B W W C U _4 V P V rT T 4 # W
0x0141f0…014384 Dummy {f00=0x0006, f01=0x0190, f02=» x R WNW W V T$ C R W2 W U _: U W _D C R W W W W W U _ @ T T Y T T W _( C 5 Z V j W (P. H U W V W W H W W W Y8 9c W 4 #
0x014384…014518 Dummy {f00=0x0006, f01=0x0190, f02=» 4<A $ % 4 % Y j W 4P6 T V W . W4 V 5 Z B W V W P V W _R @ C , U R _ V T@ V , T 9 V( OB W W : /OBJCT 6 : V W V j (P ( - )
0x014518…0146ac Dummy {f00=0x0006, f01=0x0190, f02=» MODULE O 8 R @W : _H _P W V 4 V # V V # R W W _ W C _ V R _ _ W _ W V C C _NW" V P GOD W j n W | W V : IDENT KPF /DD,OBDIR ^ R W W W W
0x0146ac…014840 Dummy {f00=0x0006, f01=0x0190, f02=» W W W W V D 9 W< '( 8 : ( 8 : 8 : $ 8 W 2 : W f R JWJWLWFW@ B W | B W R W W W W W R W W W W W !: " ". V V "r W
0x014840…0149d4 (0, 26) Dummy {f00=0x0006, f01=0x0190, f02=» "h "~ W W W _f !: " ". @ 8 "Z * 8 "Z R J_8WD_<_> " : P P P 4 0 W " ?A W ?a ! "~ "J V X^ ! R JW W W W W "r W V W T "R " "r W V W V W
0x0149d4…014b68 Dummy {f00=0x0006, f01=0x0190, f02=» 9 V V 9 V 9 C ! R W(W&W$W" H j j W | D W < "Z 8W, n_ H 8W _2 ! _: W 2 H @ : V D : W W V 9a:a R P W W " 9 V P T 4
0x014b68…014cfc Dummy {f00=0x0006, f01=0x0190, f02=»T W _ W _ W _ V $ Pl V PN C # # R W4W2W0W. B $ $ - $ X # R _ _ _ _ #_V " B $ $ - $_r ?a V X^ R JW W W W W W V W T W V W V W
0x014cfc…014e90 Dummy {f00=0x0006, f01=0x0190, f02=» A14,C:ASG,A12 ASSIGN THE FILE CODE TO OBDIR H , P LD A1,W:ASB7,A13 STATUS? I : $ P RF(0) LKE250 OK I j P LDK.L A3,USRDIR I 6 P RB LKE210 PRINT ERROR MESSAGE I P* I P* I , PLKE2
0x014e90…015024 Dummy {f00=0x0006, f01=0x0190, f02=» RF(6) LKE300 NO I : P ML 7,LKEOBJ LOAD FILE NAME AND TYPE J ( L P LDK.L A1,/44D7 FILE CODE = D7 , WRITE PROTELTED,ASG TYP=4 J f F P LDK A2,/CF SYSTEM DAD FILE CODE PC2205 J 0 P
0x015024…0151b8 Dummy {f00=0x0006, f01=0x0190, f02=» J d $ P CFI A14,C:ASG,A12 K 6 P* CHECK ASSIGN STATUS K 0 $ P LD A1,W:ASB7,A13 K j P RF(0) LKE260 K P* K 6 P* PRINT ERROR MESSAGE K P LDK.L
0x0151b8…01534c Dummy {f00=0x0006, f01=0x0190, f02=»13 K t 6 P RF(0) LKE300 LKE,DO NOT ASSIGN D9 L < P ML 7,OBDIR ASSIGN /D9 TO SYSTEM OBDIR L D P LDK.L A1,/44D9 L D P LDK A2,/CF SYSTEM DAD FILE CODE PC2205 L P LDK A3,8 L
0x01534c…0154e0 Dummy {f00=0x0006, f01=0x0190, f02=» RF(0) LKE300 OK L P LDK.L A3,SYSDIR M " P RB LKE210 M F P EJECT M f P* M | P* M P* M 8 PLKE300 EQU * CHECK IF /O IS PRESENT M P LDK A3,/D5 M $ P CFI
0x0154e0…015674 (0, 27) Opaque[0x194]
0x015674…015808 # DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x015674…015808 IdxSect {
0x015674…015808 f00 = 0x0007 // 0x15674 @0x0
0x015674…015808 f01 = 0x0006 // 0x15676 @0x2
0x015674…015808 gno = [ // 0x15678 @0x4
0x015674…015808 [0x00]: C0x0007.0x0.0
0x015674…015808 [0x01]: C0x0007.0x1.0
0x015674…015808 [0x02]: C0x0007.0x2.0
0x015674…015808 ]
0x015674…015808 }
0x015808…01599c Dummy {f00=0x0007, f01=0x0190, f02=» N W w W 2 R W W W W W V | D N N SC b R W W W W W$ V /SP W V R Q UF W 0 R @W R W W W W W W tW. V Uv Qr , Pl W t R WfW W W` !!W V TR V W v A V A V
0x01599c…015b30 Dummy {f00=0x0007, f01=0x0190, f02=» r W p W r W z W W A A r A W | V t L: A h W W _ _ A A A t v j $ V vP W: (P. R *P _, V n ! T n W | * . J N ; R _ _& X _ N T N 9HV V W 2 W 2 W 2 :
0x015b30…015cc4 Dummy {f00=0x0007, f01=0x0190, f02=» | V zQ + A A J l V | W ~ & R WZW0WVW W> V RL ' QF V | W ~ P R W0W W,W*W V T V LT A V | V ~ 0 0 6 R W~W|WzW Wv V Rp ' Qj V | W ~ W R WPW.WLW WL V RB ' Q< W R W(W W$W"W$ V T V
0x015cc4…015e58 Dummy {f00=0x0007, f01=0x0190, f02=» R W W W W W V | W ~ V | D N N W R WvWtWrW Wn V Rh ' Qb W W R WPW.WLW W V RB ' Q< W R W(W W$W"W$ V T V CT A W T A W 0 V V | V ~U @ P W ~ B 6 A L V | V W W | P W ~ p :W
0x015e58…015fec Dummy {f00=0x0007, f01=0x0190, f02=» | W R W W6W W W V R ' Q W V | W R WxW WtWrWp V W x V W | V V T V =a=A V V x V =a=A W | R W W W W W" V V CT A W A w W w V p r V % V E
0x015fec…016180 Dummy {f00=0x0007, f01=0x0190, f02=» W x V W | V V V =a=A V V V =a=A W V ~ V |P W ~ 6 W ~ V w V ) V p r % E E E E W p @ T & : V ~ W | A W p P R $ )_ A W B
0x016180…016314 (0, 28) Dummy {f00=0x0007, f01=0x0190, f02=» A J 0 A A A W V | W R W WDW W W V R ' Q W W * R W W W W W V R ' Q W Wd V W x V W | V V x A W | R WNW WJWHWJ V T> V FT A W T A R W W W W W V T V CT A W
0x016314…0164a8 Dummy {f00=0x0007, f01=0x0190, f02=» @ Q V | V R> V UB j F W V V @ P A tW W |_ _ W V | j @ j @ j @ tT W @ Q2_> V Q JW V A Z V | A b V J V ~ W | L ( C ( _ T n ~ ( . 0 2 T
0x0164a8…01663c Dummy {f00=0x0007, f01=0x0190, f02=»]],$$STRG1$$STRG2$$[,C/L] )!!RE LINE1,$$STRG1$$STRG2$$ )!!EN [D] )!!LS LINE1[,LINE2][,C] OR $$STRG1$$[,F/N][,C] )C= CONSOLE, L= LINE PRINTER, D= DIAGNOSTICS, F= FIND, N= NOT, $$= ARB. CHARACTERS )REL. 11.0 81-03-27 V | W W V | V P v | W | W V xP 9H_
0x01663c…0167d0 Dummy {f00=0x0007, f01=0x0190, f02=» | ^ _" W j W p V p W p V $V : , V |Q , V |R D _ W v W _> V |T A A V p M L W V $ V | P P , 9 9 Y V | 9a9A $ $ 9 W | X Y $ 9 V D W W
0x0167d0…016964 Dummy {f00=0x0007, f01=0x0190, f02=» A B @ R W W W W V ! T* V I J A @ j @ j @ W z j V pV2 L X M V | C J A > V j j @ W W | V | V ~ F , V l R FW F " ! T: V A J A V | A 4 J @
0x016964…016af8 Dummy {f00=0x0007, f01=0x0190, f02=» _ V t I: A h D WxW _ _ V j V v @ P V | W ~ n 6 V | I j @ j V j P R _|_~W W W z V |T A _ J N ; N _ X _ # , T TYT f C R HW W W W j W | P W P % Y P
0x016af8…016c8c Dummy {f00=0x0007, f01=0x0190, f02=» J A WH V t , P2 W 0 c C Z C @ t R R W W W , , V t , h ( 0 ) Z @ @ t R R W W W W ( & N < V O &V # 00 ) ~ R W W W W : V x A " t " R @
0x016c8c…016e20 Dummy {f00=0x0007, f01=0x0190, f02=» _ V t I: A W W _ _ V j V v @ P V | W ~ 6 V | I j @ DL IL EN AB JN :CH LS RE HL COMMAND UNKNOWN ,TRY AGAIN " I/O ERR ON LAST RECORD,TRY AGAIN $ SEQUENCE ERROR, CURRENT LINE:
0x016e20…016fb4 (0, 29) Dummy {f00=0x0007, f01=0x0190, f02=»SC,UPD TERMINATED * AUX. INPUT CAN NOT BE ASSIGNED,TRY AGAIN STRING NOT FOUND 0000 LINES = +0000 IN FILE IDENT STATEMENT UPDATED HIGHEST LINENO READ 0000 LINE PRINTER NOT ASSIGNED 0000 OF 0000 LINES IN FILE LINE NUMBER 1 > LINE NUMBER 2
0x016fb4…017148 Dummy {f00=0x0007, f01=0x0190, f02=»QU 0$$EDM EQU 1$$ !!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ !!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ !!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$ASSOLY EQU 0$$ASSOLY EQU 1$$ !!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!CH $$SWPBLK EQU 0$$SWPBLK EQU 1$$ ASM /S,NL @ PT FZ
0x017148…0172dc Dummy {f00=0x0007, f01=0x0190, f02=» SP ECP 1P AP :DC : F : ( SP MMT W ( Lj Ml :!!IL 48 @P !SS = S 5 <x @P G >4 @P 5 B T :h" P 0R U Q P <H9D_( : : Wf AP @l P Al @l P Al @l P Al @l P Al YF P
0x0172dc…017470 Dummy {f00=0x0007, f01=0x0190, f02=» _@ 7 @T T AT O(_^ @X8PV Ab @T P T AX< AX8 X: E AT 01 AT YB T O _ Ab 7 a CD Al Al| CG Al Alz : 4R P @X8! P X> XH 4 AXJ | Z"Pb 4 7 AJ (R> f AI.
0x017470…017604 Dummy {f00=0x0007, f01=0x0190, f02=» T 01 7 @X| , 7 4 W V T1P TNP G1P G2P T2P TPT, 1 0P 1T W AJ / AI @J W AI AT O( 4^ AX| @J : P @ $ !;;P6 ! P0 ! X !__T P Z0_. !^^T bv_B + _F Jb P P ~t
0x017604…017798 Dummy {f00=0x0007, f01=0x0190, f02=» P, LP !,,T2 U, LP LP 9H # Lj_4 # AX| : J @P 7 Lj : V DIT M ,0W8 @P P KB Xp V MTT 0P OH @ I 7 P& @P !,, J @P OH C C # : 7 : K @P T <h !NNP f J Dl ! J Q
0x017798…01792c Dummy {f00=0x0007, f01=0x0190, f02=» T :h" P 0R U Q P <H9D_( : J YZ @P V J V J J K, J @P Lj9H @P Lj A M8 J V KBT bqP brP b6T b6 bA K @$ 1 K 20 K V KBP DIP U P P _ U` (
0x01792c…017ac0 Dummy {f00=0x0007, f01=0x0190, f02=»P 0 0R Q ; W : # +0 !99U :d" *0 !99U :H : T TP Y T1 Y TN Y T2 Z G2 Y G1 Y D4 Y D5 Y MD Z CD Z TWP DUP FDT Y W Y W 7 V W 01 W W XP V AXj AXi V AXl AXk XZ
0x017ac0…017c54 (0, 30) Opaque[0x194]
0x017c54…017de8 # DirEnt {nam=»CSEG7 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x017c54…017de8 IdxSect {
0x017c54…017de8 f00 = 0x0007 // 0x17c54 @0x0
0x017c54…017de8 f01 = 0x0002 // 0x17c56 @0x2
0x017c54…017de8 gno = [ // 0x17c58 @0x4
0x017c54…017de8 [0x00]: C0x0007.0x3.0
0x017c54…017de8 ]
0x017c54…017de8 }
0x017de8…017f7c Dummy {f00=0x0007, f01=0x0190, f02=» W ( R V W W PW _ W _ , P P j P X R W d R W ( V V F K R JW W WpW P* F 0 NOT P D T R JW W~_D_ _ F C P R P R W`W _h_j_l @TT R RWH x 2( _
0x017f7c…018110 Dummy {f00=0x0007, f01=0x0190, f02=» R _J_L_NW W V W ( j P V ^| R W W W W B W | B W R W W W W W d R *T R W W W W W : R *Tx F K X P R P R W W8W W F K r R WvWtW W _>
0x018110…0182a4 Dummy {f00=0x0007, f01=0x0190, f02=» RW :W bW P 8_4( ! ( ( MODULE /O /O CLOSE ILLEGAL EOS IN IDENT OBJECT LIB EOV ON OUTPUT FILE,MOUNT NEW TAPE THEN RESTART W R W W W W h V l l , P p R W W W W W V
0x0182a4…018438 Dummy {f00=0x0007, f01=0x0190, f02=» K v R W0W _P_R_T @T R RW x 2( _pW W W W W W.W R FW V _ R W W 2 : V | D N N UF R W W W6W W V W 0 V P 8 R @ V /STD SC_: V /ST , P W& W" W W
0x018438…0185cc Dummy {f00=0x0007, f01=0x0190, f02=»CVEMIN+2 SECONDS ^ ~ 4 PCVEFIT EQU CVESEC+2 FIFTETHS OF SEC ^ & 2 PCVEBTB EQU CVEFIT+2 ALLOCATION TABLE ^ P* P* P* P* & P* FCT FILE CODE TABLE P* , PFCTFC EQU 0
0x0185cc…018760 Dummy {f00=0x0007, f01=0x0190, f02=»F LFI ASSIGNED TO THE FILE CODE l P* ( P* 2 ( P* DCT DISK CONTROL TABLE < . PDCTLG EQU -14 ENTRY LENGTH h F PDCTEB0 EQU DCTLG+2 EVENT BYTE / LOGICAL DISK FILE CODE : PDCTEB1 EQU DCTEB0+2 BUFFER
0x018760…0188f4 (0, 31) Opaque[0x194]
0x0188f4…018a88 # DirEnt {nam=»CSEG8 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x0188f4…018a88 IdxSect {
0x0188f4…018a88 f00 = 0x0008 // 0x188f4 @0x0
0x0188f4…018a88 f01 = 0x0004 // 0x188f6 @0x2
0x0188f4…018a88 gno = [ // 0x188f8 @0x4
0x0188f4…018a88 [0x00]: C0x0008.0x0.0
0x0188f4…018a88 [0x01]: C0x0008.0x1.0
0x0188f4…018a88 ]
0x0188f4…018a88 }
0x018a88…018c1c Dummy {f00=0x0008, f01=0x0190, f02=» @ 8 N FILE TYPE MISSING FILE TYPE ERROR D A 6 R W W W W W W l R W W W W@ W $W V /LT LM W W, /S ( SC W W Z@ YF UF W R W W W W D W N N W W V W R W W
0x018c1c…018db0 Dummy {f00=0x0008, f01=0x0190, f02=» B &P$ V W W D W 8W _ 0 V P 8WB R W W W W W _> N W 0 V P 8 R @Wx 4 ' ! + @ R WhW W W R R WVW W W G K _. B $ V UFT F > &
0x018db0…018f44 Dummy {f00=0x0008, f01=0x0190, f02=» RN V T. T T P: P4 P6 A R W W W W W8 W W W W + 8 V V < : @ 4 C 4 C 0 I D C C R C F ! C B
0x018f44…0190d8 Dummy {f00=0x0008, f01=0x0190, f02=» X v A X A 8 T ( B B A ^ A ` A b F A l F A x F A F A F A F . A C N C T W < A 0
0x0190d8…01926c Dummy {f00=0x0008, f01=0x0190, f02=»RACK SEC/GRAN INTERLACE P W A 4 W ( @ R W W W W,W 8 W 2 V : _" V P@ , P8 P R V P T T~ P P + _^ _h _r D N " N UF W 0
0x01926c…019400 Dummy {f00=0x0008, f01=0x0190, f02=» R W W W W WZ R T @ T W R _._0_2W WZ Z> R W W W W W@ R @ Q W 1 W ( R W W W W V W P Q W " R W W W WTW R D R W W W W ` W
0x019400…019594 (0, 32) Dummy {f00=0x0008, f01=0x0190, f02=» W _ _ SECTOR # W AGRANTBID 4 W 9 , PH , X Q: Y , Z H ]d V X 4 _ W , W ( R W W W W : W W
0x019594…019728 Dummy {f00=0x0008, f01=0x0190, f02=»,A12 v x PPRT375 EQU * w P RF PRER07 w ( P RF *+2 w H P RF *+2 w f P RF *+2 w PPRT376 EQU * w . P IM S:CUR,A13 NEXT LINE # w P LDKL A1,/20
0x019728…0198bc Dummy {f00=0x0008, f01=0x0190, f02=»PRT379 NOT NEGATIVE,THERE IS A LIMIT w ~ * P* NEGATIVE x 2 " P LD A1,S:CUR,A13 x ` P SUK.L A1,9999 x 0 P RB(5) PRT340 LESS OR EQUAL x B P LDK A1,0 GREATER THAN 9
0x0198bc…019a50 Dummy {f00=0x0008, f01=0x0190, f02=»QU * x " P CW A1,S:CUR,A13 y L P RF(2) PRTEND LIN2 LESS THAN CUR ,THEN END,OTHEWISE,NEXT y 8 & P RB PRT340 LINE y P* y PART390 RF PRT390 y PART600 RF PRT600 y PART400 RF
0x019a50…019be4 Dummy {f00=0x0008, f01=0x0190, f02=» A1,ECBRL,A10 y P LDR A8,A10 z P LDK.L A4,PRT382 z 8 B P ABI C:WREC,A12 WRITE THE 1ST PART OF THE RECORD z PPRT382 EQU * z P RF PRER07 z P RF *+2 z P RF
0x019be4…019d78 Dummy {f00=0x0008, f01=0x0190, f02=» SUK A1,8 MAXLG-8 z L P ADS A1,ECBBF,A8 BEGINNING OF 2ND PART = BEG OF REC -8+MXLG { & " P LD A1,S:LNG,A13 { v P ADK A1,8 { B P SUS A1,ECBRL,A8 REQUEST LENGTH OF THE 2ND PART = { B P*
0x019d78…019f0c Dummy {f00=0x0008, f01=0x0190, f02=» LDR A3,A2 BLANK OUT THE 1ST 8 CHARACTERS { P LDR A4,A2 | < P MS* 4,ECBBF,A8 | P* | P* | P LDK.L A4,PRT383 | P ABI C:WREC,A12 | PPRT383 EQU * | P RF
0x019f0c…01a0a0 Dummy {f00=0x0008, f01=0x0190, f02=»NEXT LINE | r P* } P* } P* } & P* } 0 P* } : P* } D P* } N P* } X P EJECT } b P* } x P* } PPRT390 EQU * } P ADK A7,0 } 2 PPRT395 ABL(0) PRT360 INCORRECT LENGTH } 8 P SUK
0x01a0a0…01a234 (0, 33) Opaque[0x194]
0x01a234…01a3c8 # DirEnt {nam=»CSEG9 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0110, f03=0x0000}
0x01a234…01a3c8 IdxSect {
0x01a234…01a3c8 f00 = 0x0008 // 0x1a234 @0x0
0x01a234…01a3c8 f01 = 0x0002 // 0x1a236 @0x2
0x01a234…01a3c8 gno = [ // 0x1a238 @0x4
0x01a234…01a3c8 [0x00]: C0x0008.0x2.0
0x01a234…01a3c8 ]
0x01a234…01a3c8 }
0x01a3c8…01a55c Dummy {f00=0x0008, f01=0x0190, f02=» Z W R W W W W 8 V : _ W N R _ _"W W D W N W N W LM W 0 V P T _t _~ W , 4 Q ') * _ W W W W` V W Z WH V /L W , Xb Xf W W
0x01a55c…01a6f0 Dummy {f00=0x0008, f01=0x0190, f02=» W R &_ _ W W V 8! B V 9oP V 8 A V : W V < A 9a 4 48D 5 Z H W _t_vW W W W 4 V * +9A P X _ V V Q Q P A Y W _ Z _$ 4 A Z A ?A
0x01a6f0…01a884 Dummy {f00=0x0008, f01=0x0190, f02=» W W R _ _ W W R FW * R W @ * W 2 * 8 & W LM W 0 V P T _t IDENT PRNAME SEGMENTED PROGRAM.PLD COMMAND CANNOT BE USED WARNING:IDENT HAS BEEN PUNCHED ON OUTP
0x01a884…01aa18 Dummy {f00=0x0008, f01=0x0190, f02=» 8 V : _ _$ _, _4 ( 8 R @W V : '( _& D5 LIBRARY R * | W V Yt R _ W _ _ N ! W N W W V W W W F R W W W W WH _ V V P T
0x01aa18…01abac Dummy {f00=0x0008, f01=0x0190, f02=» R W W W W W WF W 4 V # W V TV * R W W W$W W$ W _$ 8WP " 8WB W ` ( v R *T2 W W B W _ W 2 V : V P W _ W R _ _ _ _ _ W V 4 V
0x01abac…01ad40 Dummy {f00=0x0008, f01=0x0190, f02=»_$ V : _ _$ _, _4 ( 8 R @W V : '( _& D5 LIBRARY R * | W V Yt R _ W _ _ N ! W N W W V W W W R W W W W W _ V V P T
0x01ad40…01aed4 (0, 34) Opaque[0x194]
0x01aed4…01b068 # DirEnt {nam=»CSEGA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x01aed4…01b068 IdxSect {
0x01aed4…01b068 f00 = 0x0008 // 0x1aed4 @0x0
0x01aed4…01b068 f01 = 0x0002 // 0x1aed6 @0x2
0x01aed4…01b068 gno = [ // 0x1aed8 @0x4
0x01aed4…01b068 [0x00]: C0x0008.0x3.0
0x01aed4…01b068 ]
0x01aed4…01b068 }
0x01b068…01b1fc Dummy {f00=0x0008, f01=0x0190, f02=» W W N R %& 8 V : W W LW W W W W W W p R W W W W W _ W W W W W " R W W W W _ _ V T T( P + ( _ _ 4
0x01b1fc…01b390 Dummy {f00=0x0008, f01=0x0190, f02=»+ ( W F L A F A F A 2 0*********DD: ********* 0*****GENERAL CATALOGUE***** 0****USERIDNT****ADDRESS**** W W W W " R W W W W V PJ N ! 4 # X R W W W W 0 I V D x R W W W W
0x01b390…01b524 Dummy {f00=0x0008, f01=0x0190, f02=» V A $ _ '( _. < W W 0 R W W W W + b W % W R W W W W | W W _$W W W W 4 W *P W R W W W W V 6R 9BR PtQ ( V 8 V : R < W
0x01b524…01b6b8 Dummy {f00=0x0008, f01=0x0190, f02=»*****LIBRARY DIRECTORY********* 0****FILENAME****TYPE****ADDRESS**** 0****OBJECT MODULES****/OB 0 MODULE **USERIDNT****ADDRESS**** W W W W R W W W 0 A j A 4 W W N R W W W W R P* W _0
0x01b6b8…01b84c Dummy {f00=0x0008, f01=0x0190, f02=» j W W R W W W W A j A _ < Y Z < P2 Y < " Y Y W W R OB V 0 USERIDNT ADDR 0 FILENM TP ADDR V ! P : R W W W W O :11 W
0x01b84c…01b9e0 Dummy {f00=0x0008, f01=0x0190, f02=» TABLE Z < PCVEYAR EQU CVELFT+2 CURRENT YEAR, 2 ASCIL CHAR < PCVEMON EQU CVEYAR+2 CURRENT MONTH,2 ASCIL*CHAR N < PCVEDAY EQU CVEMON+2 CURRENT DAY, 2 ASCIL CHAR 4 PCVEHOR EQU CVEDAY+2 HOURS ] @ PCV
0x01b9e0…01bb74 (0, 35) Opaque[0x194]
0x01bb74…01bd08 # DirEnt {nam=»CSEGB «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x01bb74…01bd08 IdxSect {
0x01bb74…01bd08 f00 = 0x0009 // 0x1bb74 @0x0
0x01bb74…01bd08 f01 = 0x0004 // 0x1bb76 @0x2
0x01bb74…01bd08 gno = [ // 0x1bb78 @0x4
0x01bb74…01bd08 [0x00]: C0x0009.0x0.0
0x01bb74…01bd08 [0x01]: C0x0009.0x1.0
0x01bb74…01bd08 ]
0x01bb74…01bd08 }
0x01bd08…01be9c Dummy {f00=0x0009, f01=0x0190, f02=» 6 < W V TY 0 W W A B R W8W6W4W W2 V U. P* R R" V V W r R W W~W W W W W W V V P W W P P D P R W W W W V 0 V! R @ : : V R P0 T V
0x01be9c…01c030 Dummy {f00=0x0009, f01=0x0190, f02=» V W R W W W W N W _~ | R W W W W WZ V V P T T P P W A W W V R T R W W:W W D W D B V V Ph W A UF
0x01c030…01c1c4 Dummy {f00=0x0009, f01=0x0190, f02=» 8 V : + W W N R WnW W WtWz V /OTh V B T^ W x R WDWpWnWl N " N /O BJ CT OB V R4 V P$ W ~ 8 : _ _ _ _( _0 "
0x01c1c4…01c358 Dummy {f00=0x0009, f01=0x0190, f02=» V Z V X W 4 V - N ! V # R _ W W R 4_ V PJ OBDIR W UF W N " N V V P W W _ : W N " N /OBJCTOB W 0 V P4 v 8 r R
0x01c358…01c4ec Dummy {f00=0x0009, f01=0x0190, f02=» R *Pp C V P W _X R _D W C _ C _t W 6 . R _hW W V T C J R _ W _6 W _< : B V T C r R _* W C _ C R _DW W W C C _$ DEL /OB W j n W | W < : N N
0x01c4ec…01c680 Dummy {f00=0x0009, f01=0x0190, f02=» G SEGMENT NBR. ' J 8 : _2 _8 R W WVW W , P P N O T O N V R V O P ( - Y ( | N N LM N O F T" V | ' O F P, T R W$W"W W _
0x01c680…01c814 (0, 36) Dummy {f00=0x0009, f01=0x0190, f02=» " W ( N 9I^D N 9H^L O : R _D W C _ C _t W 6 R _hW W V T C R _ W _6 W _< : B V T C R _* W C _ C R _DW W W C C _$ DEL /OB W j n W | W < : N N
0x01c814…01c9a8 Dummy {f00=0x0009, f01=0x0190, f02=» V : t , ( , ( ! + W W D , ( A R W W W W W V /OT V t , ( a B T W R W W W W N " , ( N /O BJ CT OB , (
0x01c9a8…01cb3c Dummy {f00=0x0009, f01=0x0190, f02=» , ( V W R _ _^W _V UFW V , ( ! /O /ST SCW /L 4 , ( A LM W N " N d , ( a V Z V X W , ( 4 V - N ! V # , ( R _
0x01cb3c…01ccd0 Dummy {f00=0x0009, f01=0x0190, f02=» V P W W _ : W , ( ! N " N /OBJCTOB W $ , ( A 0 V P T , ( a 8 R 0W : OBJECT LIBRARY , ( W 4 # , ( R W W W W W C _ W
0x01ccd0…01ce64 Dummy {f00=0x0009, f01=0x0190, f02=»_t W 6 t , ( ! R _hW W V T C R , ( A _ W _6 W _< : B V T C D , ( a R _* W C _ C t , ( R _DW W W C C _$ , ( DEL /OB W j n W | W , (
0x01ce64…01cff8 Dummy {f00=0x0009, f01=0x0190, f02=» , ( ! 4 W 4P = W , ( A Y : G SEGM 4 , ( a ENT NBR. ' J 8 : _2 d , ( _8 R W W W W , ( , P P N O T O , ( N V R V
0x01cff8…01d18c Dummy {f00=0x0009, f01=0x0190, f02=» ' O F , ( A P R W W W W _ O _ $ , ( a O _ W W W P 8 :" T , ( ! " N P : ( , ( EXIT CODE = , ( N " W ( N 9I^D
0x01d18c…01d320 Dummy {f00=0x0009, f01=0x0190, f02=» kW mW~ oW qW sW uW wW yW } | P P | H D !0 P P W W W W R P0 T Px Wv 8 H D ! 5TF AV EV2 I N OW@ QW` SW< UW: s w { H D ! W W W W W W W W WZ
0x01d320…01d4b4 (0, 37) Opaque[0x194]
0x01d4b4…01d648 # DirEnt {nam=»CSEGC «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0130, f03=0x0000}
0x01d4b4…01d648 IdxSect {
0x01d4b4…01d648 f00 = 0x0009 // 0x1d4b4 @0x0
0x01d4b4…01d648 f01 = 0x0002 // 0x1d4b6 @0x2
0x01d4b4…01d648 gno = [ // 0x1d4b8 @0x4
0x01d4b4…01d648 [0x00]: C0x0009.0x2.0
0x01d4b4…01d648 ]
0x01d4b4…01d648 }
0x01d648…01d7dc Dummy {f00=0x0009, f01=0x0190, f02=» H V @ A A A A N R P 8 V V : N R W W W W ~ V V P T T P _` A F T 9C9nP 9aP F F " A R W W W W W V V P T T P P _ A ! P
0x01d7dc…01d970 Dummy {f00=0x0009, f01=0x0190, f02=» R , _ , _ , , _* _._ _ _ _ R _ W W W T R _4W W W T & * Q * & + Y P8R. @ A ( A . 8@ 8` K (@ + Y @ K @ @ R _ W W W > V 4 P C Y
0x01d970…01db04 Dummy {f00=0x0009, f01=0x0190, f02=» + FIRST SECOND TYPE BUG W DEB A Z R W W W W , P P T W( V | LM N N F P W R W~W|WzWx D DEB LM 0 V P PZ 8 L R @ N W 0
0x01db04…01dc98 Dummy {f00=0x0009, f01=0x0190, f02=»W # v R _:W W W C _r B " W 2 , N O O T V O O ( " ! " PROCESSOR SYSTEM USER Y P R @ A A 8@ 8` K (@ + Y @ K @ @ R _ W W W > V 4 P C Y
0x01dc98…01de2c Dummy {f00=0x0009, f01=0x0190, f02=» , ( V W R _ _^W _V UFW V , ( ! /O /ST SCW /L 4 , ( A LM W N " N d , ( a V Z V X W , ( 4 V - N ! V # , ( R _
0x01de2c…01dfc0 Dummy {f00=0x0009, f01=0x0190, f02=» N /OBJCTOB W 0 V , ( ! P 8 $ , ( A R 0W : OBJECT LIBRARY W T , ( a 4 # , ( R W W W W W C _ W W , ( ( R *
0x01dfc0…01e154 (0, 38) Opaque[0x194]
0x01e154…01e2e8 # DirEnt {nam=»CSEGD «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0138, f03=0x0000}
0x01e154…01e2e8 IdxSect {
0x01e154…01e2e8 f00 = 0x0009 // 0x1e154 @0x0
0x01e154…01e2e8 f01 = 0x0002 // 0x1e156 @0x2
0x01e154…01e2e8 gno = [ // 0x1e158 @0x4
0x01e154…01e2e8 [0x00]: C0x0009.0x3.0
0x01e154…01e2e8 ]
0x01e154…01e2e8 }
0x01e2e8…01e47c Dummy {f00=0x0009, f01=0x0190, f02=» " ~ z F L T X ` j t n W . R W W W|Wz W V W J R WhWfWdW Wx V V P T T PL PDWR W R W0W.W,W* F P W W0 W W W W W W W $ P 8 V : W V V # R
0x01e47c…01e610 Dummy {f00=0x0009, f01=0x0190, f02=» ' + R _ W W2W W. V OBT$ G F >P _2 B T V UFP Wn R W^W W W K _< W V R W W V P $ P 8 W 2 W 2 : ( 8 R @ ,_ 0_4 , U T W C b R _. C C R
0x01e610…01e7a4 Dummy {f00=0x0009, f01=0x0190, f02=» B V M R _ R 4_ V T. ON V W J R 4W 4 8 V C h R _R_ _ _ V * V K K K T R _ _ K V R$ R _ C B $ X _L =_R
0x01e7a4…01e938 Dummy {f00=0x0009, f01=0x0190, f02=»W W _ _ W W R W W W W W V W Q W Y , T W T : V P$ T MTP MLP TCP TKP TLP _F W R WBW W>W(WL W R4 W R* V ALT L T W _8 W R V _ W W W P j 8 : j P V V PlRv
0x01e938…01eacc Dummy {f00=0x0009, f01=0x0190, f02=» _4 : ( R _ W _ W> B C C c # $ R W W W W V # ( : NO LABEL W j j ` R : : : : : R W W W W < V W , T : V P ( ( ) Y
0x01eacc…01ec60 Dummy {f00=0x0009, f01=0x0190, f02=» ^ R _ h R _$W W _ ' R W ) Y R _DW W W R _ Y ( : V P T MTP MLP TCP TKP TLP _F W R W W W W W W R W R V ALT L T W _8 W R V _ W W W P 8 : j P V V P R
0x01ec60…01edf4 (0, 39) Opaque[0x194]
0x01edf4…01ef88 # DirEnt {nam=»CSEGE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x01edf4…01ef88 IdxSect {
0x01edf4…01ef88 f00 = 0x000a // 0x1edf4 @0x0
0x01edf4…01ef88 f01 = 0x000a // 0x1edf6 @0x2
0x01edf4…01ef88 gno = [ // 0x1edf8 @0x4
0x01edf4…01ef88 [0x00]: C0x000a.0x0.0
0x01edf4…01ef88 [0x01]: C0x000a.0x1.0
0x01edf4…01ef88 [0x02]: C0x000a.0x2.0
0x01edf4…01ef88 [0x03]: C0x000a.0x3.0
0x01edf4…01ef88 [0x04]: C0x000b.0x0.0
0x01edf4…01ef88 ]
0x01edf4…01ef88 }
0x01ef88…01f11c Dummy {f00=0x000a, f01=0x0190, f02=» #3` ' .z R W W W W W 8 t _ V V _$ , T _8 t A R W W W W _F _X V , X6 4 MT A R W W W W WD _ V CK V A R W W W W W 0 _ A @
0x01f11c…01f2b0 Dummy {f00=0x000a, f01=0x0190, f02=» * A2 H . A2 H 2 A2 F ! P8 "# # C C ( B @ A3Z VW( @3 t Q W A & A * A 6_< A 6 A . A A ( B ( B @ P( A ( ( ( B A
0x01f2b0…01f444 Dummy {f00=0x000a, f01=0x0190, f02=» T P A : P P + W W 0 N A A N C A A W T A L A _ W R _* W. @ T B @ L @ R X4 B L_@ T( &Q L M _ A A B @ C @
0x01f444…01f5d8 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W0 @ P< B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( f ( A p 6
0x01f5d8…01f76c Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01f76c…01f900 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x01f900…01fa94 (0, 40) Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01fa94…01fc28 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x01fc28…01fdbc Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x01fdbc…01ff50 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x01ff50…0200e4 Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x0200e4…020278 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x020278…02040c Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x02040c…0205a0 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x0205a0…020734 (0, 41) Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x020734…0208c8 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x0208c8…020a5c Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x020a5c…020bf0 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x020bf0…020d84 Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x020d84…020f18 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x020f18…0210ac Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x0210ac…021240 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x021240…0213d4 (0, 42) Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x0213d4…021568 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x021568…0216fc Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x0216fc…021890 Dummy {f00=0x000a, f01=0x0190, f02=» W A @ T @ C T W A W @ P B L L ^ W @ T @ P ( B :_< A A A A ( @ @ ( Y ( ( ( ( A 6
0x021890…021a24 Dummy {f00=0x000a, f01=0x0190, f02=» P : P $VTOC A W T A A _ W R _* W @ T B @ @ R X4 B _@ T &Q L M _ A A B @ C @
0x021a24…021bb8 Dummy {f00=0x000a, f01=0x0190, f02=» W A N " N M:PROCUF W 0 V T W 4 P ) Y : ( R @W j W | H W (" . _ 4 P ' (D R W W W WxW P W 4 4 P _ V ~T j ( R * ) ' ( R W W W W$W P W END 4
0x021bb8…021d4c Dummy {f00=0x000a, f01=0x0190, f02=»)` 8W W 2 W 2 O : 8_ )l 8_. PROCEDURE IN PROCEDURE DEFINITION z ) W r ) . W V ~R ) - W Wx ) * W| V x =Td ) . WZ V ~ QP ) * WT 5 V x ,X` T0WV V ~ P ~ V r ( P 5
0x021d4c…021ee0 Dummy {f00=0x000a, f01=0x0190, f02=» W v H % Y j P ) Y j # * R W W W WlW P W 4 H ( * R FWj_ )( )l ~ h J ( I +6 R W2_ _ _ ~ 8 *| + 8 )( END MISSING 8 )( + ~ H j 4 ( % Y _
0x021ee0…022074 (0, 43) Dummy {f00=0x000b, f01=0x0190, f02=» + , - W 4 4 ,0 . _ Y V x ,D R WJW6 =P _ ,X R W ,b R W,W ,n R W ,x R W W _ , . W + +x T" , . W + ! + _* W , R W , . W _ ( , R W _ _ _ *| +j V x =P - R W W8_ - R W - R
0x022074…022208 Dummy {f00=0x000b, f01=0x0190, f02=» 2 , U O O : W p z ~ 4 T V p $T - R *P - - _2 - V p 4 P : V t V vP % W t W p W ~ W .< R W$ .F R W&W$ =P W ~ V ~Z( 5 _. V ~Q V p W x V p , P P P V
0x022208…02239c Dummy {f00=0x000b, f01=0x0190, f02=» T W P HWr A A ! 9A A A @ ( t <W: & @ Q .X T @ x A P _ N ?a A A A N A N ! A " A @ P A @ @ Z O W O O T _ N T: @
0x02239c…022530 Dummy {f00=0x000b, f01=0x0190, f02=» @ 87P P D b 8 :EOVP ZLW$ $ A v A _r P W R W N t N T T @ NOT ( Jp T q r 9D 9B W 9E A A _r p <A B Y A
0x022530…0226c4 Dummy {f00=0x000b, f01=0x0190, f02=»ADDRESS : DISK I/O ERROR MAG TAPE I/O ERROR END OF RESTORING UNKNOWN ADDRESS COPIED DISK VOLUME LABEL : A P _ N ?a A A A N A N ! A " A @ DATE OF COPY : 01 01 78 WRITING THE VOLUME LABEL ? . CO
0x0226c4…022858 Dummy {f00=0x000b, f01=0x0190, f02=» IN A6 ** x L P LD A2,4,A8 NUMBER OF THE FIRST SECTOR ** 8 L P SUK A2,6 IN FIRST GRANULE THERE ARE ** L P* ONLY 6 S
0x022858…0229ec Dummy {f00=0x000b, f01=0x0190, f02=» THE GRANULE COUNTER IS SET ** x L P LDK A5,2 INCREMENT THE GRANULE COUNTER ** 8 L P AD.S A5,GRANCT ** L P SUK A2,8 DECREMEN
0x0229ec…022b80 Dummy {f00=0x000b, f01=0x0190, f02=» ** x L P LDK A5,0 DIFFERENCE BETWEEN THE ** 8 L P SUR A5,A2 SECTOR NUMBER OF THE GRANULE ** L P* AND THE
0x022b80…022d14 (0, 44) Opaque[0x194]
0x022d14…022ea8 # DirEnt {nam=»LKE «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x022d14…022ea8 IdxSect {
0x022d14…022ea8 f00 = 0x000b // 0x22d14 @0x0
0x022d14…022ea8 f01 = 0x0008 // 0x22d16 @0x2
0x022d14…022ea8 gno = [ // 0x22d18 @0x4
0x022d14…022ea8 [0x00]: C0x000b.0x1.0
0x022d14…022ea8 [0x01]: C0x000b.0x2.0
0x022d14…022ea8 [0x02]: C0x000b.0x3.0
0x022d14…022ea8 [0x03]: C0x000c.0x0.0
0x022d14…022ea8 ]
0x022d14…022ea8 }
0x022ea8…02303c Dummy {f00=0x000b, f01=0x0190, f02=» n !
0x02303c…0231d0 Dummy {f00=0x000b, f01=0x0190, f02=»
[…0x2…]
0x0234f8…02368c Dummy {f00=0x000b, f01=0x0190, f02=» R P
0x02368c…023820 Dummy {f00=0x000b, f01=0x0190, f02=» IDENT MXSTAB SCTMXS IO ERRORERR.MOD.BLK.DAT.ABS.ADD.DBL.DEF.INV.LGH.ABS.STR.TBL.OVL.INV.IDT.END.MIS.UNS.EXT.ERR.LKE.BLK.COM.NO STRT.PRG.OVL IDT.MIS.INV.STR.ERR.NOD.TAB. ERRINV. EXTINV. SEG 9 R : ) Y : @ Pt %T _ b $ 5T`
0x023820…0239b4 (0, 45) Dummy {f00=0x000b, f01=0x0190, f02=» T : (= ^ J = R ) @ ) H A W ( $ A A @ XB A 4 $ A < A _" @ R0 @ @ P& T J _ (;CZ A A : @ P. @ $" % A x 5 @ P _* : @ Pb @ < < V @ A < < V
0x0239b4…023b48 Dummy {f00=0x000b, f01=0x0190, f02=»_f A A A ^ A <_r @ PJ @ < < V @ A < V @ A < A A b @ b @ = @ B : @ P @ @ PR $" % (% P A (% P A $) ) ,! P @ 1 _X : @ Pn @ @ Pd $" * % (% T A H
0x023b48…023cdc Dummy {f00=0x000b, f01=0x0190, f02=» A @ $P @ $9a @ :a Z9A A @ A A ~ : _L R T @ ^ ( _ @ A T @ T ^ ( @ A @ A @ A : H % : A @ $ MXP AMP MSP ENP : R 1( A R A Z A b A
0x023cdc…023e70 Dummy {f00=0x000b, f01=0x0190, f02=»?A $=KR W6 T J 0 A <=A A A A z A ~ _X A : @ rRX @ @ PJ $ (;CR ;BV (# T _ A J @ 1 0 A _4 A r : W W W W W T W W A v Z Z WH Z B
0x023e70…024004 Dummy {f00=0x000b, f01=0x0190, f02=» @ A xP A @ A A x @ & A | b n b A T A t 4 @ P A | _ @ tP @ @ a @ A t_b @ T" @ b @ x A A x @ $Z j T @ b @ x @ $P( j @ @ $ j @ @ b @ A x :
0x024004…024198 Dummy {f00=0x000b, f01=0x0190, f02=» A < A @ A < @ A A A @ A x : | @ > @ < @ : W A t A v @ @ :a Q. @ v ^ @ @ :b Q $ A v @ t_8 @ t P @ A : @ A : @ @ 9a @ ":a Q2 A A @ @ 9b Q @ ^ $ A @
0x024198…02432c Dummy {f00=0x000b, f01=0x0190, f02=» A A R A R % 1 a PTSLKG (810126) A V A A I ^ 00 A : - Y : ` ! A A A A 9a?a A A A A A v A ~ A @ a @ @ T$ @ 1 = ( EXTENT @ x WhWf A $ @
0x02432c…0244c0 Dummy {f00=0x000b, f01=0x0190, f02=» j ` ! A A A A 9a?a A A A A A A A A v A ~ A p A $ $ ` @ A A S A | P n PVV A W b A t 4 @
0x0244c0…024654 (0, 46) Dummy {f00=0x000b, f01=0x0190, f02=» b @ b @ j :A H $ n A _4 @ TL ` R NP8 @ H A F_0 @ | f ` " :A @ A A 9A $_X : 8 p d @ |T , ` @ @ R: A @ D T( @ F P@ A A t VT @ A S _" @ $ A SX: @ F a @
0x024654…0247e8 Dummy {f00=0x000b, f01=0x0190, f02=» xT` @ @ D PV P M A lW` @ :B9C 9A 9A 9B Z A <a V :A A A j @ B a @ @ M <a L 9a Z<A A @ l $ @ xT@ @ @ NP6 $ P V ) _ ;E % 0 A @ P& @ A A @ @ 9a:a
0x0247e8…02497c Dummy {f00=0x000b, f01=0x0190, f02=» ^ & A @ vP : @ A < A A * ( @ @ T W P A _ : ` @ @ BP. @ F $ ) Y @ @ T L : B @ 1 @ P = *** SYMBOL TABLE @ xP EXTENT @ x 0 =
0x02497c…024b10 Dummy {f00=0x000b, f01=0x0190, f02=» @ T !AAP @ P& @ :a9a ^ 6 @ _ @ 0 = ** = ] ] @ 0 = START = = @ P @ T LENGTH = @ @ T REGION = @ U _ : , 1 P , 1 : J
0x024b10…024ca4 Dummy {f00=0x000b, f01=0x0190, f02=» r H A @ A < @ B A A @ A !| A A * @ A p . A @ @ ( M $ A xR > @ 0 M $P, b A xR > @ ( M $ Y$ @ A A : A p A . @ x : Z P @ $;e $ )
0x024ca4…024e38 Dummy {f00=0x000b, f01=0x0190, f02=»( : F @ A P @ A H I ( @ A A A : W f( : @ P @ $ A > ` NO b n T D A b H $ @ n A A p @ ` > n T L $ @ n @ T8 b b A >_ @ T
0x024e38…024fcc Dummy {f00=0x000b, f01=0x0190, f02=» b n T A t 4 @ P A | _ @ tP @ A | @ a @ A t_X $ t V @ B a @ @ B ` @P ^ & A @ T A W @ A < @ A A A @ T D A V@ @ b ` NOP @ p n b @
0x024fcc…025160 Dummy {f00=0x000b, f01=0x0190, f02=» : <A B 0 R ( ) : (_ @ <a @ =a @ 9b9A A , ) Z A : @ @ <a @ =a :b:A A , ) Y A : @ @ P >a @ 9a Vp9A A A ^< A A A
0x025160…0252f4 (0, 47) Dummy {f00=0x000c, f01=0x0190, f02=» :9C D v @ 5 A A : @ @ ;a<a V $:CR E P : _& ( ^ : @ p @ T : P * @ A p . :( B 0 A 0 : @ !| @ P @ @ xP @ A A @ @ P RB _ @ A @ ~R< @ @ @ < % @ 9a! :d x @
0x0252f4…025488 Dummy {f00=0x000c, f01=0x018e, f02=»,CURBAS " P LD A1,OPTSAV RESTORE OPTIONS P ST* A1,OPTION 6 P* L P* INITIALIZE LISTING OUTPUT V P* FOR EXTENTS AND SEGMENTS z P* P LD A1,SEGFLG P RF(NZ) INIT10 . P LD A7,PRBFBG A7=POINTER IN PRINTER BUFFER P LDK
0x025488…02561c Dummy {f00=0x000c, f01=0x0190, f02=» P DATA 'EXTENT' P MSR 3,A7 P* , P ADK A7,12 6 P LDR A2,A7 INSERT EXTENT NO H 2 P LD A1,EXTFLG IN PRINTER BUFFER (HEXADECIMAL) l P CF A14,BINHEX P RF INIT20 P* P* P RF INIT20 P* PINIT10 EQU *
0x02561c…0257b0 Dummy {f00=0x000c, f01=0x0190, f02=»A7 P ADK A7,40 P MLK 4 P DATA 'SEGMENT ' * P MSR 4,A7 B P ADK A7,9 T P LDR A2,A7 f $ P LD A1,SEGNUM INSERT SEGMENT NO x 2 P CF A14,BINHEX IN PRINTER BUFFER (HEXADECIMAL) P* P ADK A7,6 P MLK 2 P DATA 'T
0x0257b0…025944 Dummy {f00=0x000c, f01=0x4144, f02=»* P* P* INSERT 'SECTOR XXXX' IN P* PRINTER BUFFER 6 P* N P ADK A7,6 X P MLK 3 j P DATA 'SECTOR' x P MSR 3,A7 P ADK A7,9 P LDR A2,A7 P LD A1,SEGSEC P CF A14,BINHEX P* PINIT20 EQU *
0x025944…025ad8 Dummy {f00=0x000c, f01=0x2008, f02=»
0x025ad8…025c6c Dummy {f00=0x000c, f01=0x4016, f02=» PNOD AM @
0x025c6c…025e00 Dummy {f00=0x000c, f01=0x4060, f02=» F IDENT SEGTAB CR $ 8 r J@ ES 1 SEGMENT TYPE: 'C', 'D' OR 'R' ^ RES 1 SEGMENT DISC ADDRESS " RES 1 SEGMENT LENGTH IN BYTES * SGBLK2 EQU * RES 3 *
0x025e00…025f94 (0, 48) Opaque[0x194]
0x025f94…026128 # DirEnt {nam=»ASM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x025f94…026128 IdxSect {
0x025f94…026128 f00 = 0x000c // 0x25f94 @0x0
0x025f94…026128 f01 = 0x0008 // 0x25f96 @0x2
0x025f94…026128 gno = [ // 0x25f98 @0x4
0x025f94…026128 [0x00]: C0x000c.0x1.0
0x025f94…026128 [0x01]: C0x000c.0x2.0
0x025f94…026128 [0x02]: C0x000c.0x3.0
0x025f94…026128 [0x03]: C0x000d.0x0.0
0x025f94…026128 ]
0x025f94…026128 }
0x026128…0262bc Dummy {f00=0x000c, f01=0x0190, f02=» H % #N. q [::Z B Y%o=fr b Fr ? ^a T : 6 9 i %(TLw z~+ *S Nwm 3 C # 7 x zl L $=Tu Z<K m c mjv z L _^ z F$T$ %@$V$ %@% % 4` @ @ . Pn b~
0x0262bc…026450 Dummy {f00=0x000c, f01=0x0190, f02=» + @J <Z % !2Z "z y :s % H D 6 Y d ~ { & B P y:p W [~ 7]d +b% L M >) E: ( : @ < z R:R: ` B@ ^% g 0~ "<d# c ( B R Q : B | B p ( 0IO ERROR
0x026450…0265e4 Dummy {f00=0x000c, f01=0x0190, f02=» @ c A A ( & $( 4 :a;a : MW& XW" CW RW EW IW LW FW SW OW P @ A b * A a @ A @ A @ P a @ a x @ vP 8 ) A _ * I a ^ a A @ P A @ END A A E A A
0x0265e4…026778 Dummy {f00=0x000c, f01=0x0190, f02=» + @J <Z % !2Z "z y :s % H a f A f : A f a f ` f : $:f:A $# Q $# P W WL $$ X $$ <A $# P _ ; $$ X, ; A $ 4 & X <a<A : : @ W @ AZQ4 > 09Q& ::Q ..Y
0x026778…02690c Dummy {f00=0x000c, f01=0x0190, f02=» &<E P" "$ T" 4 %T W _> W W @ @ $<E % @ $$ Q ) A : A W 09U ( 9 S = S 0 S _ : 2 A 09Q AFR ( 9Q R V =D _( : 2 ` A ''Q Y
0x02690c…026aa0 Dummy {f00=0x000c, f01=0x0190, f02=» + A ++Q --Q W W V . **Qx ''Qb //Q XXU ''Q Wl AZQf 09Q< 4W W> A ''R W& 09Q AF 2 A : W '' 2 W Z @ @ Wx Z A 6 T 2 $ P P A # P"#
0x026aa0…026c34 (0, 49) Dummy {f00=0x000c, f01=0x0190, f02=» @ @ Q F 4 1 A : 2" P0 P, P( V P T * @ P . 60 FOR.O/R.1 SYMBOL TABLE0 UND.ENT.0 UND.LAB.0 ASS.ERR.1 ^ $ ) $ 0P P $ ) _ : d ' L R L _ 0 ) ^ : 9 R : ) Y : @
0x026c34…026dc8 Dummy {f00=0x000c, f01=0x0190, f02=» @ T @ @ A A Z 9! D A _ _ A A @ @ :a;a R R : T T _( O @ T& P 4 l ^ ~ ^ ( l ^ ^ : W W d Pj a d @ Q4 P.
0x026dc8…026f5c Dummy {f00=0x000c, f01=0x0190, f02=» @ @ Q @ 4 1 A : 2" P0 P, P( V P T * @ P D 60 FOR.O/R.1 SYMBOL TABLE0 UND.ENT.0 UND.LAB.0 ASS.ERR.1
0x026f5c…0270f0 Dummy {f00=0x000c, f01=0x0190, f02=» F @ 2P R A v H A A F 4 I >! A >!P H A I 0 @ tP ( A A _, A Q @ U ( D @ A $ U A : @ PH @ @ T 2 $" B $" P A t $ A A A ( A ) >C
0x0270f0…027284 Dummy {f00=0x000c, f01=0x0190, f02=» A ( @ A A A @ A A < h A f @ A @ A r I 0 ^ z A & . x A v **QX LRRQ 6 L J . T@ @$TP T P A . R A BW F *W _ ( @ P P @ I @ T~ Ut A
0x027284…027418 Dummy {f00=0x000c, f01=0x0190, f02=» V @ @ Q @ P 2 r 4 "( 4 ( 0FATAL ERROR HAS OCCURRED,NO OBJECT CODE PRODUCED W W 1 @ B L J 1P A A ^_ @ TZ ,W @ TN ( @ T LU> 6 B ,,Y R ,
0x027418…0275ac Dummy {f00=0x000c, f01=0x0190, f02=» % @ @ ) I ((R * ))R U > S S ,,Y` R a B J T ( % a A : $ B : W @ B T B L J 2 @ 0 A a P2 6 ,,RR F $" T @ = ," W A 2 = ] ]
0x0275ac…027740 Dummy {f00=0x000c, f01=0x0190, f02=»W. < Pz T W Tn @ W T * ] ] P 9A Y T2 < = T$ P &T F T W R ,,Y W ,,Y F @ 2 P R ^ ` " a Qx T //Q J Y 9a 09R, YV D 4" Y^ E 4 9 E T ,,Q - = _4 ZN
0x027740…0278d4 (0, 50) Dummy {f00=0x000c, f01=0x0190, f02=» @ , _2 @ A A A A $T @ A A A J @ B LPLQ @ @ P8 $T % _ 6 R $ R % ,,Y" J LU6 * @ T* R$ @ j 9a R S 9 @ J @ B L J
0x0278d4…027a68 Dummy {f00=0x000c, f01=0x0190, f02=» . @ T 6 ! : J L J ''Q2 8 Y 4 Y T @ T P X ,,RD Q Z4 R ''Q X A ( Y 4 A _ ''Y X* XB Y 4 _L Z A 0 A 2 J Y 9a 09R, YV D 4" Y^ E 4 9 E T ,,Q - = _4 ZN
0x027a68…027bfc Dummy {f00=0x000c, f01=0x0190, f02=»PN 8 I 4 ;a P _ ] ] T ] " 2 YP _T T 8 P "T x _ R T* " P" P F 4 P @ G 4 @ P n _> G 4 4 G T_ PX P 8 @V "P ,,Q R A
0x027bfc…027d90 Dummy {f00=0x000c, f01=0x0190, f02=»R P 9A G 4 Z_ T| @ @ J PX X @ O O O _ 2! Q : F A 2 : ,,Q R A : Z J R R @ R : P P * : 8 : 2 : 2' ?A 2&p : @ P @ P P P
0x027d90…027f24 Dummy {f00=0x000c, f01=0x0190, f02=» W @ B LUL * ==R@ * R4 P P A A B LV _ J 1 A @ T @ B LU A 6 @ %P % 6 A 6 A 6 R 4 F A D z E ^ ( A I ^ @ A @ A A F
0x027f24…0280b8 Dummy {f00=0x000c, f01=0x0190, f02=»,,R 6 + J @ @ P& T 2 j 4 A _, P ( @ @ A PT $ $# P $ ] T A A @ T A 0_Z ] A @ P W P @
0x0280b8…02824c Dummy {f00=0x000c, f01=0x0190, f02=»# Q A W R W ** A $# Q W ( W X ~ _ P J j P T j A ( 4 & ( 4 ^ j A P 4 0^ ( ASS.ERR.Q D @ "1 I T A I D
0x02824c…0283e0 Dummy {f00=0x000c, f01=0x0190, f02=» @ I W j @ I C ` @ I C V A Q M A a ! I 2 A i 1S A q BI @ " Q L @ " I S A I C A I U @ I V @ I A @ I S ~ @ I X t A I M j A I L @ I S A i AD L @ ADS B A i SU 6 @ SUS , A i MU
0x0283e0…028574 (0, 51) Dummy {f00=0x000d, f01=0x0190, f02=»"1 p TR ! 1 h DR DRS !h UR URS !h NR NRS !h RR RRS !h RR RRS !h FR h 1R h WR | h CR h CR z !h CR r p MR ! a h 2R ! 1RS !h TN p BR " H M 6 h NM . ` DK DKL 1 h DK DK
0x028574…028708 Dummy {f00=0x000d, f01=0x0190, f02=» t P B q BL ` IO@ @ h NR H h TR @ ` STH ? h ST H ` NB(@ h LT h NH h KM ( ` IT > p LR h SR !h CR !p UR a ! h VR h AR h SR ` LK i CK ! a UK i VK b AK j SK
0x028708…02889c Dummy {f00=0x000d, f01=0x0190, f02=» 8 h RC 8 p LN8 h RN 8 h ER p h ER x h GR h MR r !p XR a ! a XK ! h LR h SR ! ADR > ADRS 4 ! SUR * SURS ! MUR MURS ! DVR DVRS !h VF p h VB x VUS x VSU p STR ! LDR h LR h SR !h FL
0x02889c…028a30 Dummy {f00=0x000d, f01=0x0190, f02=»x FF tx FT px IF TAB ORM FORM x EN J8 8 8 X Z X P X N 8 8 8 X E X G X L 8 8 8 8 X A X R :P ZA1 ZA2 ZA3 ZA4 ZA5 ZA6 ZA7 ZA8 ZA9 zA10 zA11 zA12 zA13 zA14 zA15 b AK j SK
0x028a30…028bc4 Dummy {f00=0x000d, f01=0x0190, f02=» LABEL = FIXS3 DATE = 790404 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
[…0x3…]
0x029080…029214 (0, 52) Opaque[0x194]
0x029214…0293a8 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x01a8, f03=0x0000}
0x029214…0293a8 IdxSect {
0x029214…0293a8 f00 = 0x000d // 0x29214 @0x0
0x029214…0293a8 f01 = 0x0004 // 0x29216 @0x2
0x029214…0293a8 gno = [ // 0x29218 @0x4
0x029214…0293a8 [0x00]: C0x000d.0x1.0
0x029214…0293a8 [0x01]: C0x000d.0x2.0
0x029214…0293a8 ]
0x029214…0293a8 }
0x0293a8…02953c Dummy {f00=0x000d, f01=0x0190, f02=» P$PDISC PSCR /L @M= PMOV @M=,/L,@MU . PRUN PDISC,0 M=@M= D D POPT OUT=@MOUT=@M=,FC=@FC=F4,FT=M,SOP=@SOP=01,INP=@M=,DATE=@DATE ^ PSCR /L @A= PMOV @A=,/L,@AU PRUN PDISC,0 A=@A= D POPT OUT=@AOUT=@A=,FC=@
0x02953c…0296d0 Dummy {f00=0x000d, f01=0x0190, f02=»OUT=@C=,FC=@FC=F4,FT=C,SOP=@SOP=01,INP=@C=,DATE=@DATE PSCR /A @D= > PMOV @D=,/A,@DU Z PRUN PDISC,0 D=@D= p D POPT OUT=@DOUT=@D=,FC=@FC=F4,FT=D,SOP=@SOP=01,INP=@D=,DATE=@DATE P$PDISCE P=@M= P$PDISCE P=@A= P$PDISCE P=
0x0296d0…029864 Dummy {f00=0x000d, f01=0x0190, f02=»MU,M+MOUT,M+MU+MOUT FOR MONITOR FILE 8 PMES 2 A,A+AU,A+AOUT,A+AU+AOUT FOR APPLICATION FILE . : PMES 3 C,C+CU,C+COUT,C+CU+COUT FOR CONFIGURATION FILE j 2 PMES 4 D,D+DU,D+DOUT,D+DU+DOUT FOR DATA FILE 2 PMES 5 FC FILE CODE. DEFAULT VALUE IS
0x029864…0299f8 Dummy {f00=0x000d, f01=0x0190, f02=»NATIVE 1,2,3 AND 4 IS VALID, t 0 PMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN $ 8 PMES ALTERNATIVES 5,6 AND 7 MAY BE INCLUDED IF NEEDED X PEND P$PDISCE PMES END OF $PDISC PEND P$PCAS PASG 3,@DA=TK0E PREW 3
0x0299f8…029b8c Dummy {f00=0x000d, f01=0x018e, f02=» @A= PSCR /L @A= PMOV @A=,/L,@AU , PRUN PCAS,0 @A= B 2 P$PCASC M=@M=,A=@A=,C=@C=,CU=@CU=,D=@D=,DU=@DU= * P$PCASC M=@M=,A=@A=,C=@C=,CU=@CU=,D=@D= $ P$PCASC M=@M=,A=@A=,C=@C=,CU=@CU= * P$PCASC M=@M=,A=@A=,C=@C=,D=@D=,D
0x029b8c…029d20 Dummy {f00=0x000d, f01=0x018e, f02=» PEND P$PCASC PWEF 3 PASG @FC=43,@DK=DK,@C=,@CU , PPCH @FC=43 @C= N PMES @C= h PASG @FC=43,@DK=DK,@D=,@DU PPCH @FD=43 @D= PMES @D= P$PCASE PEND P$PCASF * PMES ILLE
0x029d20…029eb4 (0, 53) Dummy {f00=0x000d, f01=0x0190, f02=» PEND P$PCASE PWEF 3,2 PULD 3 . PMES END OF $PCAS < PEND X P$EDIT d P$EDITUF NAME=@UF= r P$EDITSC NAME=@SC= P$EDITSC NAME=@S= < PMES PARAMETERS 'S', 'SC' OR 'UF' REQUIRED !!!!!!!!!!! PEND
0x029eb4…02a048 Dummy {f00=0x000d, f01=0x40a8, f02=»S PREF /D4 @NAME= PASG 20,DK " PASG 21,DK 4 PASG 22,DK F PRDA 20,/D4 X PRUN EDIT,0 j PREF 21 | PRDS 21 PEND @ DITSC NAME=@S= < PMES PARAMETERS 'S', 'SC' OR 'UF' REQUIRED !!!!!!!!!!! PEND
0x02a048…02a1dc Dummy {f00=0x000d, f01=0x2008, f02=» PREF 21 PRDS 21 PEND &@ 2DITSC NAME=@S= 4 < PMES PARAMETERS 'S', 'SC' OR 'UF' REQUIRED !!!!!!!!!!! L PEND P$EDITUF PASG 20,DK,@NAME PASG 21,DK PASG 22,DK PRUN EDIT,0 PEND P$EDITS
0x02a1dc…02a370 Dummy {f00=0x000d, f01=0x0190, f02=» :01 d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < :R:R: ` ZPzh % h v 66 B r4i : 0 ` ^&W D/ H P = D# v>~ v `" f V>~ $#` d p 4d @z V
0x02a370…02a504 Dummy {f00=0x000d, f01=0x0190, f02=» 8z 4 P OPT OUT=FC= FT= INP=DATE= P $ 9 H4` 1Lb p V -8 T < , tB ph Tg t z ^ r h V H 2 Z f9 z
0x02a504…02a698 Dummy {f00=0x000d, f01=0x0190, f02=» :01 d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d F < VOLUME 2 I L VOLUME 365 2 B X : Z l
0x02a698…02a82c Dummy {f00=0x000d, f01=0x0190, f02=»MPATIBILITY TOSS-DISC / PDISC VERSION END PDISC PDISC: DISC NOT OPERABLE OUTPUT DISC I/O ERROR NO TOSS DISC FORMAT BADSPOT ON TRACK ZERO MORE THAN 5 BADSPOTS FLEXIBLE DISC WRITE PROTECTED ONE OR MORE VOLUMES UNKNOWN DISC OVERF
0x02a82c…02a9c0 Dummy {f00=0x000d, f01=0x0190, f02=» NO ENTRY AVAILABLE IN VTOC PARAMETER I/O ERROR 11PARAMETER ERROR $ FORMAT ERROR IN CONFIGURATION FILE INPUT DISC I/O ERROR TOO MANY SECTORS IN FILE OUTPUT FILE IS NOT A MONITOR : FILE NAME WITH ANOTHER FILE ORGANIZATION ALREADY EXISTS
0x02a9c0…02ab54 (0, 54) Opaque[0x194]
0x02ab54…02ace8 # DirEnt {nam=»SUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x02ab54…02ace8 IdxSect {
0x02ab54…02ace8 f00 = 0x000d // 0x2ab54 @0x0
0x02ab54…02ace8 f01 = 0x0004 // 0x2ab56 @0x2
0x02ab54…02ace8 gno = [ // 0x2ab58 @0x4
0x02ab54…02ace8 [0x00]: C0x000d.0x3.0
0x02ab54…02ace8 [0x01]: C0x000e.0x0.0
0x02ab54…02ace8 ]
0x02ab54…02ace8 }
0x02ace8…02ae7c Dummy {f00=0x000d, f01=0x0190, f02=»
0x02ae7c…02b010 Dummy {f00=0x000d, f01=0x0190, f02=»R * Z ` D L R L A 5 L W W ` $ F @ bV& L | ** - Z ` d h X 8 8 D 8Y, W W : ( SUM 11.0 (810216) *** SAV
0x02b010…02b1a4 Dummy {f00=0x000d, f01=0x0190, f02=»1 357 41100 0SAVE D I S C ONTO MAGTAPE 0SAVE U S E R ONTO MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF SAVED USERS: SAVED FILES: SAVED GRANULES: A t USERID: @ bV
0x02b1a4…02b338 Dummy {f00=0x000d, f01=0x0190, f02=» A v : A B @ bV T t 9! A | bV D @ bV(W @ bV " T F Z2 @ bV @ V D F t _ A z :
0x02b338…02b4cc Dummy {f00=0x000d, f01=0x0190, f02=» @ bV 6 T Z
0x02b4cc…02b660 Dummy {f00=0x000d, f01=0x0190, f02=» STATUS WORD: @ * P WRITE PROTECTED @ * P NOT OPERABLE @ * P END OF TAPE ( < $" = A A ( : A ^ A ` ( h A ^ A ` < ! X !XXT L( ( @ h! : A ^ A ` (
0x02b660…02b7f4 (0, 55) Dummy {f00=0x000e, f01=0x0190, f02=»_ 0Z2 U ]@ YF< Y< ZT L A 5 ` F R P ~ bZ : # ( # @ d bZ, : ?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ L A L A N A L : A NW @ n A N
0x02b7f4…02b988 Dummy {f00=0x000e, f01=0x0190, f02=» j A p @ N A N : ; [ [ [ Z Z Z : : < , = = . $ - Y : . - : . " :d H - " H - :0123456789ABCDEF . A 9h _@ . - Y : @ nY : @ U > : @ A R _ : . j
0x02b988…02bb1c Dummy {f00=0x000e, f01=0x0190, f02=» 1 PAGE: f Z
0x02bb1c…02bcb0 Dummy {f00=0x000e, f01=0x0190, f02=» W _" 4X X [ Z _ TV 4P P _ WJ U : R O T O O W O U W W F A BP @ : _ _ _ 1^ _ 1Y P J 0^& Q
0x02bcb0…02be44 Dummy {f00=0x000e, f01=0x0190, f02=» 0TOO MANY I/O ERRORS ON DISC ,P @ < * XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT , %Q R Y W W Z ' [ : ; [ [ [ [ [ R Q @ - WJ @ - A R( X R X
0x02be44…02bfd8 Dummy {f00=0x000e, f01=0x0190, f02=»IMITER PTS j z 6 P LD A1,S:CHR2,A13 STRING CONTROL CHARACTERS * PTS k 0 P ST A1,CHARMS+4 INITIATE ERROR MESSAGE * PTS k L $ P LDKL A7,CHARMS "$$ ERROR" * PTS k P ABL UPD185 * PTS k P k 2 PLINENO EQU * LINENUMBER 1 > LINENUMBER 2 PTS k : P LDKL A7
0x02bfd8…02c16c Dummy {f00=0x000e, f01=0x0190, f02=»ASB3,A13 FILE NAME * PTS k P MS 3,ASREF+4 * PTS l P LDKL A1,' ' * PTS l < & P LD A2,W:ASB6,A13 FILE TYPE * PTS l X P MS 2,ASREF+10 * PTS l 8 P LDKL A7,ASREF "<NAME><TYPE> CAN NOT BE ASG'D" * PTS l ( P ABL UPD185 GIVE ERROR MESSAGE * PTS l P
0x02c16c…02c300 Dummy {f00=0x000e, f01=0x0190, f02=» LED,978 l P!!JN LED,982,983 m P m ( P!!JN LED,987 m 0 0 P LD A3,S:NB,A13 SHOW CURRENT LINENUMBER PTS m D 4 P CFI A14,C:BIDE,A12 CONVERT LINENO TO ASCII PTS m x . P MS 2,SEQER+30 LINENO IN ERRORMESSAGE PTS m P!!JN LED,991,992 m P EJECT * PTS
0x02c300…02c494 (0, 56) Opaque[0x194]
0x02c494…02c628 # DirEnt {nam=»RUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x02c494…02c628 IdxSect {
0x02c494…02c628 f00 = 0x000e // 0x2c494 @0x0
0x02c494…02c628 f01 = 0x0006 // 0x2c496 @0x2
0x02c494…02c628 gno = [ // 0x2c498 @0x4
0x02c494…02c628 [0x00]: C0x000e.0x1.0
0x02c494…02c628 [0x01]: C0x000e.0x2.0
0x02c494…02c628 [0x02]: C0x000e.0x3.0
0x02c494…02c628 ]
0x02c494…02c628 }
0x02c628…02c7bc Dummy {f00=0x000e, f01=0x0190, f02=» 4
0x02c7bc…02c950 Dummy {f00=0x000e, f01=0x0190, f02=» V b @ D 4D;a<a * A A A R$S D L R( L A L 2 W 0MT AT EOF! W r 2 A R Sr @ ^ _& @ V& z ** - &Z b v 8
0x02c950…02cae4 Dummy {f00=0x000e, f01=0x0190, f02=» (810216) *** RESTORED FILES WITH GRANULE ADDRESSES ************** DATE OF RUN: YYMMDD 0RUM REL 11.0 DATE 81. 02. 16 12NC=8701 356 41100 0RESTORE D I S C FROM MAGTAPE 0RESTORE U S E R FROM MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF RESTOR
0x02cae4…02cc78 Dummy {f00=0x000e, f01=0x0190, f02=» P W D * A @ Q @ T T A W 8 v A V A K @ z K K @ :T W D < v @ v @ @ V P @ ~T @
0x02cc78…02ce0c Dummy {f00=0x000e, f01=0x0190, f02=» OVERFLOW W 0CATALOG OVERFLOW @ , z WHEN CREATING USER UUUUUUUU NEW USERID: N:O OF FILES RESTORED:, N:O OF GRANULES ALLOCATED:
0x02ce0c…02cfa0 Dummy {f00=0x000e, f01=0x0190, f02=» V T T RW A A A e V6 @ e @ v v J @ 9! A | V P0R* VP( 0DISK OVERFLOW WHEN RESTORINGW V8 9! W ! T T Z$
0x02cfa0…02d134 (0, 57) Dummy {f00=0x000e, f01=0x0190, f02=» A z : @ z @ ! z @ * z & FILE: FFFFFF TYPE: TT USER: UUUUUUUU A ~ @ ~ d J ] _ W S UNEXPECTED TAPE MARK A ~ RESTORED FILE NO GOOD _ < $" = ~ A A ( : A .
0x02d134…02d2c8 Dummy {f00=0x000e, f01=0x0190, f02=» j W n A . A 0 ( H ES O A : W ! T _ !//T ( _ 0Z2 U ]@ YF< Y< ZT A R ~ P N 2Z : , # ( # @ 4 T 2Z, : ?? DISC FILE CODE ? OK
0x02d2c8…02d45c Dummy {f00=0x000e, f01=0x0190, f02=» > *( @ @ A , A . z ( : U z W @ #U. A @ d A p @ ~ A : ; [ [ [ Z Z Z : : < , = = $ - Y : - : " :d H - " H - :0123456789ABCDEF
0x02d45c…02d5f0 Dummy {f00=0x000e, f01=0x0190, f02=» 1 PAGE: 6
0x02d5f0…02d784 Dummy {f00=0x000e, f01=0x0190, f02=»P WX [ WD ; T : : W H _" 4X X [ Z _ TV 4P P _ XWJ U z : X R O T O O W O U W W H
0x02d784…02d918 Dummy {f00=0x000e, f01=0x0190, f02=» A A ( @ T2 : W A ^ A p l Y : A ]B 0TOO MANY I/O ERRORS ON DISC P z @ * XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT A "( @ *P P,QT @
0x02d918…02daac Dummy {f00=0x000e, f01=0x0190, f02=»ERROR ON MT STATUS WORD: @ * P NOT OPERABLET& @ ( d LENGTH ERROR _ $ "( : , %Q R Y W W Z ' [ : V T(= @ M A _ @ V I _ P W H @ R
0x02daac…02dc40 Dummy {f00=0x000e, f01=0x0190, f02=»
0x02dc40…02ddd4 (0, 58) Dummy {f00=0x000e, f01=0x0190, f02=» - A R( X R X _ Q @ X A T - _. D - Z Z Z Z Z : :- 0123456789 d ' A B A F @ 4 R" 4X @ =C R 9 V W H b - 9W: b - 9W. ;c ` Q( $ ,` A { <` @ + @ : W
0x02ddd4…02df68 Dummy {f00=0x000e, f01=0x0044, f02=» H P ( 0 p 8 @ H P X ( 8 @ H h x
0x02df68…02e0fc Dummy {f00=0x000e, f01=0x018e, f02=» P IDENT LED GOKU/80-11-17 P* $ P* . P* 8 P* B P* L PSEG6 EQU * V P DATA UPDPRO r > P DATA UPDPST POST PROCESSING(IF ABORTED) P* P* P* P* P NLI
0x02e0fc…02e290 Dummy {f00=0x000e, f01=0x0190, f02=» P* P* P* 8 PCVEADR EQU /82 ADDR OF SUPERVISOR CVT & P* b . PCVEMSZ EQU 0 MEMORY SIZE l , PCVESTB EQU CVEMSZ+2 STACK BASE 6 PCVESBA EQU CVESTB+2 SMALLEST BUFFER ADDR 6 P
0x02e290…02e424 Dummy {f00=0x000e, f01=0x0190, f02=»+2 START ADDR OF DISPATCHER x 2 PCVEFCT EQU CVEDSP+6 FILE CODE TABLE & 4 PCVEDWT EQU CVEFCT+2 DEVICE WORK TABLE 4 PCVEDCT EQU CVEDWT+2 DISK CONTROL TABLE 6 PCVEJPT EQU CVEDCT+2 JOB PARAMETER TABLE . PCV
0x02e424…02e5b8 Dummy {f00=0x000e, f01=0x0190, f02=»ELFT+2 CURRENT YEAR, 2 ASCIL CHAR | < PCVEMON EQU CVEYAR+2 CURRENT MONTH,2 ASCIL*CHAR , < PCVEDAY EQU CVEMON+2 CURRENT DAY, 2 ASCIL CHAR l 4 PCVEHOR EQU CVEDAY+2 HOURS ^ @ PCVEMIN EQU CVEHOR+2 MINUTE
0x02e5b8…02e74c Dummy {f00=0x000e, f01=0x0190, f02=» ` 2 PCVEBTB EQU CVEFIT+2 ALLOCATION TABLE P* > P* H P* R P* & P* FCT FILE CODE TABLE f P* , PFCTFC EQU 0 FILE CODE H PFCTDWT EQU 2 ADDR OF DWT ASSIGNED TO THE FILE
0x02e74c…02e8e0 Dummy {f00=0x000e, f01=0x0190, f02=»TROL TABLE v . PDCTLG EQU -14 ENTRY LENGTH F PDCTEB0 EQU DCTLG+2 EVENT BYTE / LOGICAL DISK FILE CODE D : PDCTEB1 EQU DCTEB0+2 BUFFER (205 WORDS) ADDR B PDCTEB2 EQU DCTEB1+2 REQUESTED LENGTH,410 CHARACTER
0x02e8e0…02ea74 (0, 59) Opaque[0x194]
0x02ea74…02ec08 # DirEnt {nam=»PMPTS «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01e0, f03=0x0000}
0x02ea74…02ec08 IdxSect {
0x02ea74…02ec08 f00 = 0x000f // 0x2ea74 @0x0
0x02ea74…02ec08 f01 = 0x0010 // 0x2ea76 @0x2
0x02ea74…02ec08 gno = [ // 0x2ea78 @0x4
0x02ea74…02ec08 [0x00]: C0x000f.0x0.0
0x02ea74…02ec08 [0x01]: C0x000f.0x1.0
0x02ea74…02ec08 [0x02]: C0x000f.0x2.0
0x02ea74…02ec08 [0x03]: C0x000f.0x3.0
0x02ea74…02ec08 [0x04]: C0x0010.0x0.0
0x02ea74…02ec08 [0x05]: C0x0010.0x1.0
0x02ea74…02ec08 [0x06]: C0x0010.0x2.0
0x02ea74…02ec08 [0x07]: C0x0010.0x3.0
0x02ea74…02ec08 ]
0x02ea74…02ec08 }
0x02ec08…02ed9c Dummy {f00=0x000f, f01=0x0190, f02=» <W v x ` % d C * C ( #( # C C ( C % C ( @ ? T &p_B @ F1ZL F9YR U d 00 @ S _x &$ P T.W8 @ % % $ % 2 % ( 4 $ % W
0x02ed9c…02ef30 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z X ` U d &Z S * d C C ( C C ( @ j b ? T &p_> D b AB 88T B D 63 d A( 67T B D 91T LR 68 B D 75T U d 6875W 76T U d 6876 -H 79
0x02ef30…02f0c4 Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x02f0c4…02f258 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x02f258…02f3ec Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x02f3ec…02f580 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x02f580…02f714 (0, 60) Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x02f714…02f8a8 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x02f8a8…02fa3c Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x02fa3c…02fbd0 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x02fbd0…02fd64 Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x02fd64…02fef8 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x02fef8…03008c Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x03008c…030220 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x030220…0303b4 (0, 61) Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x0303b4…030548 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x030548…0306dc Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x0306dc…030870 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x030870…030a04 Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x030a04…030b98 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x030b98…030d2c Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x030d2c…030ec0 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x030ec0…031054 (0, 62) Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % ( W
0x031054…0311e8 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x0311e8…03137c Dummy {f00=0x000f, f01=0x0190, f02=»REMARK: DISC FILE CODE : XX NOT OPERABLE END OF PMPTS VOLUME LABEL MISSING OR UNREADABLE OK ? @ _B @ F1ZL F9YR 00 @ _x P T W @ % INVALID PA
0x03137c…031510 Dummy {f00=0x000f, f01=0x0190, f02=» B YE Z S * C C ( C C ( @ b ? T _> D b AB 88T B D 63 d 67T B D 91T 68 B D 75T 6875W 76T 6876 79
0x031510…0316a4 Dummy {f00=0x000f, f01=0x0190, f02=» C C C ( B : 0 &N "! #( B : & d C C ( & $ $ % & d C C ( : & & ' '$'> F1 - F9 N6875 - 2,5 MB; 6876 - 5,0 MB; 6879 - FLOPPY; 8863 - MFD; 6791 - 1 MB FLOPPY YY MM DD ANY NUMBER 0000 -
0x0316a4…031838 Dummy {f00=0x000f, f01=0x0190, f02=» =L=k ] n ] p 9BR :K T :A Y :a :i q r E x T 4 &: 4: V - P Y _( Y M : $ ] $ =IR E : $_ t , ) Y
0x031838…0319cc Dummy {f00=0x000f, f01=0x0190, f02=» x T T &: 4: V - P Y _( Yj Y =C ] J R ] NQ 5 Y ] L ] PY : R , ] F ] H =B ] J ] P T M T _> : TP ] T=B- ] J ] P :q q E A I I M
0x0319cc…031b60 Dummy {f00=0x000f, f01=0x0190, f02=» & ] f ] h A Z : X ] X W X ] X f X ] X f x T& P Z : T ] f_^ T &: 4: V - P Y _( Y 3P Q Q / ] f : 0 ] f : ] f : h P W ] Z :
0x031b60…031cf4 (0, 63) Dummy {f00=0x0010, f01=0x0190, f02=» , ) Y %? ] % ] =A ] ] ] ^ R @ ] :A H x T T &: 4: V - P Y _( Yz ] ] =B ] ] : P ] =B- ]
0x031cf4…031e88 Dummy {f00=0x0010, f01=0x0190, f02=» SUPERV Wp U (@ - # C C ( #( 5 U (@ - # C C ( #( (@ V8 4 < # X V / 8 C ( X 9DV` X C % P _ ( X 8 U X $ ? T X ! P 9b &p_p X
0x031e88…03201c Dummy {f00=0x0010, f01=0x0190, f02=» 8 U _ R R S R R S 4n LABEL = S < DATE = S h S l S p PACK NBR = S v 0 $ S f S h S j S l S n S . S S 5 R * $P 1 1 _ 5 " $P 1 1 _ 5 :A $P 1 1 _ R &N N 3z S
0x03201c…0321b0 Dummy {f00=0x0010, f01=0x0190, f02=» 3 W R R R T R T R P 0 W % R W R F P B5 f 1H R >A >D s S % S S R 4 3 1 3 W S R S S : 5, (@ - 56 _ 5X _ 5d _" R 1V R A5 A5 3 1l 3 R S R %
0x0321b0…032344 Dummy {f00=0x0010, f01=0x0190, f02=» R :a_ 9 _, ? S - Y < R R . % A2j 3 28 3 W ' R R 3 2T 3 W R % Z $CATALOG S R S R R 3N VTOC S B5 R R 9H R R R R 3N R S S S
0x032344…0324d8 Dummy {f00=0x0010, f01=0x0190, f02=» 3 3v 3 W : F N : >C F S . : :a :Av v >D >BF ::a :Av v >D >B _ N S4Y > R*> 5D 1&N S Y ?T > Z > R 1 1, 14 A4^ R R @4^ : R 8 YET [ W NOT - [ : : A4^ R 4X SR S S :
0x0324d8…03266c Dummy {f00=0x0010, f01=0x0190, f02=» RUN AGAIN : LABEL: DATE: PACK NBR: SYST. USERID: END OF PMPTS SEEK ERRORUNKNOWN DEVICEDEVICE NOT OPERABLE THRUPUT ERR BAD TRACK IN FIRST CYL. NBR OF DEF. TRACKS: S/ / 3 3 3~ 3 3 3| 3 3 3 3
0x03266c…032800 Dummy {f00=0x0010, f01=0x0190, f02=» USER POSSIBLE RUN AGAIN ? : END OF PMPTS LABEL = DATE = 6879 PACK NBR =
0x032800…032994 (0, 64) Dummy {f00=0x0010, f01=0x0190, f02=» CATALOG
0x032994…032b28 Dummy {f00=0x0010, f01=0x0190, f02=» ( 0 $ ,
0x032b28…032cbc Dummy {f00=0x0010, f01=0x0190, f02=» CATALOG
0x032cbc…032e50 Dummy {f00=0x0010, f01=0x0190, f02=»< U < U 6 U < U 6 U 6 $ ? T &p_( A6 A6 R * A6 A@B A@ A=` A=f A=l A@f A@p A@t A@ A@ A@ A@J A@^ A@z A@ < U 6 U 6 $ ? T &p_( @5 A6 6 U 6 U @6 ? T &p_& NOT 6 T 6
0x032e50…032fe4 Dummy {f00=0x0010, f01=0x0190, f02=» @: P 8A A; A: =t O6 : ; ; =t 6 A@X @; @: 9@ A= 9@ O6 @B 6 : ; N6 A; @6 @6 > @6 # TH @; 8A A; ! T: A: @: T : @; O6 ; N6 A; @6 A6 _P @z P @ A6 @6 ! v @: T @; O6 : ; > A
0x032fe4…033178 Dummy {f00=0x0010, f01=0x0190, f02=» P @ @8 A:. 6 ? 6 : " A8 6 A8 A6 A6 6 A@X @J P @ : 6 A6 8~ A@X @J P @ @:. A8 A8 6 A@X A@B A@f A@p A@t A@ A@ A@ A@J A@^ A@z A@ 6l U 6z U NO @6zP YE @6z ( <.A A@ 6z
0x033178…03330c Dummy {f00=0x0010, f01=0x0190, f02=»S6I Y : @6 P P 4 ^ :A H9 W W 9C : 6 $$ AV U @* A5 Z Sx A6D A6F @5 Sx A6J A6L 66 $$ AV U ( S S S S SUPERV AI AI AI AI W2 U (@ A # C C ( (@ ( I l
0x03330c…0334a0 Dummy {f00=0x0010, f01=0x0190, f02=» T 8 Y X ;EV B4 S _| W 00 BJ R _ X %_f F S S IR LABEL = S < DATE = S h S l S p PACK NBR = S v 8863 S r 0 f S . S S L R * $P 1 1 _ K " $P 1 1 _ L " :A $P 1 1 _
0x0334a0…033634 (0, 65) Dummy {f00=0x0010, f01=0x0190, f02=» BL@ " BL> < G C Hr AC G. R T R T R T R & BL@ 0 BL> F D CLW C <A PLD QLD QLD<a G S R BLBQ:>A R Q0 J (@ Aj J _ K _ K _ K* _& R Df R AKX AKZ KB _D K _L D SR AK D _ A
0x033634…0337c8 Dummy {f00=0x0010, f01=0x0190, f02=» R S R % R G R R R R V 9d9A S - ] " :A HL M ? S - Y < R R . % AE R P G Q *n BLP R G R % Z $CATALOG S R S R S R R G" QJ VTOC S
0x0337c8…03395c Dummy {f00=0x0010, f01=0x0190, f02=» AI (@ A KD D2 & G F Hr R R G. F H6WX S R 9H R R R R S R O R G" N G E$ Hr DP G : H AH =h Gj GH H6W @H Gj Gf H6W : :a :Av v >L >B F :
0x03395c…033af0 Dummy {f00=0x0010, f01=0x0190, f02=»>B _| >A >K >B _ N STY ?T > Z<> RB> RB> R2> _ N S,Y ?T > Zd> R > > R > R > _ D, D8 D@ DHN [ Y ? > Z > Z > Z(_ AH R DH @H :0 $(,1 !%)-2 "&*.3 #'+/ AH R H SR S Q VTOC : R
0x033af0…033c84 Dummy {f00=0x0010, f01=0x0190, f02=»_(888863 R T SYSTEM S :J 8 H J L J 0 J H J* * JH JT Jn J Ix RUN AGAIN ?: LABEL: DATE: PACK NBR: DISK UNIT PHYSICAL ADDRESS: DAD NAME: NBR. OF CYL OF DDDDDD : NBR. OF
0x033c84…033e18 Dummy {f00=0x0010, f01=0x0190, f02=» ERRORUNKNOWN DEVICEDEVICE NOT OPERABLE THRUPUT ERR PROGRAM ERROR BAD TRACK IN FIRST CYL. TOO MANY DEF. TRACKS: D8 DAD TOO BIG,BITAB OFLOW NBR. OF INT NOT COMPATIBLE WITH NBR. OF SECT/TRNBR. OF INT NOT LESS THAN NBR. OF SECT/TRXPCTD: S READ:VTOC : R
0x033e18…033fac Dummy {f00=0x0010, f01=0x0190, f02=» # X V W 8 C ( X 9DV X C ( X X2 0_: L C ( * ! T 8 Y X ;EV L S _j W 00 L R _ X %_f N LABEL = S < DATE = S h S l S p PACK NBR = S v 0 f S .
0x033fac…034140 Dummy {f00=0x0010, f01=0x0190, f02=» S _0 @R h @R S - @R M ? S @R D - Y < S $ S " OV O O @R P ( W , S $ OV O O % Z $CATALOG S R S S $ OV O O % Z R S S S OV
0x034140…0342d4 (0, 66) Dummy {f00=0x0010, f01=0x0190, f02=» AR : S T WT @R P( T W@ ^ 9A DQ DQ W$ ^ R @ S 9A DQ $ S : R P S O : R :B* W` R ":a R *! 9A r R $ R :B R * W0 R ":a R *! 9A r R $ R :B R R * B PN : R * N
0x0342d4…034468 Dummy {f00=0x0010, f01=0x0190, f02=»R Rv (@ U (@ P # C C ( (@ ( AQ4 R Q. SR S P ( W , : R 8 YEP( NOT$ # Qz C C ( V8 : END OF PMPTS R T SYSTEM S :Q 8 QDQ L Q 0 Q
0x034468…0345fc Dummy {f00=0x0010, f01=0x0190, f02=»RABLE THROUGHPUT ERRORWRITE PROTECTED SECTOR NOT FOUNDDATA FAULT: SECTOR NO. ^ AR R 0 1 Y S AS S 4 0R, ! Q& P 8 8 W Y( AS @S @S *! 9A r 8 ! P !00R* !::R !AAR !FFQ Y& 8 9 Y
0x0345fc…034790 Dummy {f00=0x0010, f01=0x0190, f02=»P P 9H _4 W; _< W; V; V; V; V; V; : W; W; W; W; W; ; L T PF_ L T& UdW4 @R 0 P 9D _( W; V; V; V; V; V; V; V; V; V; V; W; W; W; W; W; ; L T P*_ 0R" 9Q 0 P* 9C
0x034790…034924 Dummy {f00=0x0010, f01=0x0190, f02=»< 9H: " @< :H 0 d R _ A< 9H: " @< :H : : 0R :R AR GV AU AU @V (@ $$T U ( AV : AU AU (@ U ( (@ W AU AU U ( : Vx C CV P $ CV Y , CV Y Vx( :
0x034924…034ab8 Dummy {f00=0x0010, f01=0x0190, f02=»P P 9H _4 W; _< W; V; V; V; V; V; : W; W; W; W; W; ; L T P _ L
0x034ab8…034c4c Dummy {f00=0x0010, f01=0x0190, f02=» K l , ( N ? 0` @G :B @G * W O @G L , ( AN ? 0` O G ? 0` L < , ( H(N @G :B @G W L :B @G @G * W L l , ( N ? 0 X M AG X L , ( O / X -( L P M !K P M L $ 'O1 L
0x034c4c…034de0 Dummy {f00=0x0010, f01=0x0190, f02=» !K P M L Z L" 4 L , ( O X ? 0, <b X ! M $ , ( O P2 X M M Y X M T , ( H O R R B Y ! R L M , ( P Qv X P P P P - B M , ( P) - @O P M L
0x034de0…034f74 (0, 67) Opaque[0x194]
0x034f74…035108 # DirEnt {nam=»SUP001«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0220, f03=0x0000}
0x034f74…035108 IdxSect {
0x034f74…035108 f00 = 0x0011 // 0x34f74 @0x0
0x034f74…035108 f01 = 0x0014 // 0x34f76 @0x2
0x034f74…035108 gno = [ // 0x34f78 @0x4
0x034f74…035108 [0x00]: C0x0011.0x0.0
0x034f74…035108 [0x01]: C0x0011.0x1.0
0x034f74…035108 [0x02]: C0x0011.0x2.0
0x034f74…035108 [0x03]: C0x0011.0x3.0
0x034f74…035108 [0x04]: C0x0012.0x0.0
0x034f74…035108 [0x05]: C0x0012.0x1.0
0x034f74…035108 [0x06]: C0x0012.0x2.0
0x034f74…035108 [0x07]: C0x0012.0x3.0
0x034f74…035108 [0x08]: C0x0013.0x0.0
0x034f74…035108 [0x09]: C0x0013.0x1.0
0x034f74…035108 ]
0x034f74…035108 }
0x035108…03529c Dummy {f00=0x0011, f01=0x0190, f02=»in Lo< # # #$ A~ X - _ H*f* + + ,0-T
0x03529c…035430 Dummy {f00=0x0011, f01=0x0190, f02=»
0x035430…0355c4 Dummy {f00=0x0011, f01=0x0190, f02=» in( "D r !f9 : G p O $ $ %Z&>F F % 9 K DMC<MCGTHDB&WMC RYD(RDD(ASEBABF PSF RSG. & TY J- LP / TK Kt
0x0355c4…035758 Dummy {f00=0x0011, f01=0x0190, f02=» $ DK W~ DK 8 W~ P DK W~ DK ( W~ DK _~ ^ DK _~ 8DK ) _~
0x035758…0358ec Dummy {f00=0x0011, f01=0x0190, f02=» ? ? ? ? ? ? ? N & ? ? ? ? ? ? ? f ? ? ? ? ? ? ? L 2b
0x0358ec…035a80 Dummy {f00=0x0011, f01=0x0190, f02=» f l Z f Z f D Z
0x035a80…035c14 (0, 68) Dummy {f00=0x0011, f01=0x0190, f02=» Z V f R . Z | f ? ? ? ? ? ? ? ^> ? ? ? ? ? ? ?
0x035c14…035da8 Dummy {f00=0x0011, f01=0x0190, f02=» ? ? ? b ? ? ? ? ? ? ? l b j & L r 0 V |
0x035da8…035f3c Dummy {f00=0x0011, f01=0x0190, f02=» 6 6 6 6 6
0x035f3c…0360d0 Dummy {f00=0x0011, f01=0x0190, f02=» 6 6
0x0360d0…036264 Dummy {f00=0x0011, f01=0x0190, f02=» :
0x036264…0363f8 Dummy {f00=0x0011, f01=0x0190, f02=»
[…0x4…]
0x036a48…036bdc Dummy {f00=0x0011, f01=0x0190, f02=» P
0x036bdc…036d70 Dummy {f00=0x0011, f01=0x0190, f02=»
[…0x1…]
0x036f04…037098 Dummy {f00=0x0011, f01=0x0190, f02=» *
0x037098…03722c Dummy {f00=0x0011, f01=0x0190, f02=»
[…0x2…]
0x037554…0376e8 Dummy {f00=0x0011, f01=0x0190, f02=» @
0x0376e8…03787c Dummy {f00=0x0011, f01=0x0190, f02=» A A R$ A A R A A R A @#" > > > > > > > > ? ? ? ? ? ? ? U ^ ( H ( P F4 _ Q 4&? ?R _ 5 H _ ^ ;j >P @ * Q 9A D *P _ P A ( @ Q A ' A"T ( A A)F_ @ A
0x03787c…037a10 Dummy {f00=0x0011, f01=0x0190, f02=» @ ? ? > "D P P Q P ! P @ $ H @ P W ( < Jl @ 9a:a R0 "Z Q Q" ?A <P @"N %J & _ ( _ _ 0 % Jl T @ W @ R (P& P (_ =a:a =A:A Z P Z _" TR @
0x037a10…037ba4 Dummy {f00=0x0011, f01=0x0190, f02=» @% L F4 0 Jl @ PR 0=a @ ?a RX @ ?a VN=A 0 ( P>P< , T T 1W 1W T )W )W ( , _ C ( _ 5 H A& A& A& A& A& A& A' A& ' ( D >a @ =a (@ D U@ x ',W U, @
0x037ba4…037d38 Dummy {f00=0x0011, f01=0x0190, f02=» B :a Y B R A& _ @& ' W4 @& A& ,Xp _ < @ A' A( A( A( A( A( A( ( =a @ >a V _ @ >a Y A' A' 4 T ' ( "^ 5 U P" @' @( @( @( @( @( @( ( @' x @& 8
0x037d38…037ecc Dummy {f00=0x0011, f01=0x0190, f02=» @ !@ *V @ P @ X0 , *V A _< U` A)F @ , L ? ? , L L L L L L ? ? ? ? ? ? ? @" Px @ > > > > > > > ; [ [ [ [ [ [ > > [ [ A @" H" " ? A" >
0x037ecc…038060 Dummy {f00=0x0011, f01=0x0190, f02=»? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P S
0x038060…0381f4 (0, 71) Dummy {f00=0x0012, f01=0x0190, f02=»R _ ;A [ [ : # P| ' PL , ; R <a V 9A:A ; V ; V V W V < V < V H T P R ;H [ [ : _ T P ; R4 < S , _ _ W < R $ <A Q" T" U" :$ _ < Z& - W _ < <A9 R :a
0x0381f4…038388 Dummy {f00=0x0012, f01=0x0190, f02=» R Q ;H [ [ : " _J ? ? ? ? ? ? ? Q _ ^ ( H R - W . W / X I I R P8 X O P O T Y Y W x Y Y $ 0T W W 6 X ? ? ? ? ? ? ? .^ 7 X #? P ? ? ? ? ? ? ? . 7 6 (@ 7P %
0x038388…03851c Dummy {f00=0x0012, f01=0x0190, f02=»7 (@_~ 52X R Y _ X D $! TR ? ? ? ? ? ? ? /F 7 8 M ? ? ? ? ? ? ? /l 7 % > > > > > > > > ? ? ? ? ? ? ? / 7 P X 7^ 7v / 4 8 TRT X 5P 4 $ <A 52 Pl 52 X X X M M
0x03851c…0386b0 Dummy {f00=0x0012, f01=0x0190, f02=»_ X X X U 5 X E _ X 4 Y 5 X 4 Y ! 1P, 0P +P Q Q W W Q Q R P Q 5 Y / ? ? ? ? ? ? ? 1 7 Qv 1& 4 " PF X Q< X P P ? ? ? ? ? ? ? 1X 7 (@ Y Cn X X X R
0x0386b0…038844 Dummy {f00=0x0012, f01=0x0190, f02=»1 7 > > > > > > > > 52R X X Q Y ( O` ? ? ? ? ? ? ? 2D 7 ? ? ? ? ? ? ? 2 7 (@ 7P ? ? ? ? ? ? ? 2z 7 2 4 X M X ! 40" P2 O` X ? ? ? ? ? ? ? 2 7 (@ Cn X 4Q W 9AY T Q P
0x038844…0389d8 Dummy {f00=0x0012, f01=0x0190, f02=» Qz 9AY Tn9ATj @3 D4 @3 $W 1 Y $ D ! P 2 Y 0 P :ET OFP OST Y Y X 5Z X M _d3 4 4 ABCDEFGHI JKLMNOPQR /STUVWXYZ 4 4$4*[.<(+^!$*);] ,%_>?" P X 2 ' Q X 4 X X R ( 5
0x0389d8…038b6c Dummy {f00=0x0012, f01=0x0190, f02=» A , DKP L X X L ! X L P L @ _ C C # ( _R _ _ _ _ _ X T 5b 4 X ! TH X X X T" $ :ET D OFT W OST X P % Y X R X 4 ! X Y T T Y Y
0x038b6c…038d00 Dummy {f00=0x0012, f01=0x0190, f02=» X R 8 TYX WH H6 Y _8 X X: X R X ( _$ _* $ XtRX P Y _ A6 X X Y X Y _ $ P4R P6 X Q Y Y <dW Y W $ P R , _ X X*Y$ X X X6 Y Z(P A6 ZrP Y _8 _< _@ ! 4 $ X
0x038d00…038e94 (0, 72) Dummy {f00=0x0012, f01=0x0190, f02=» > > > > > 7 V <a W X ' ?A q A82 > > > > > > > 80 , 0W 0T _ l P$ X X ] X * A8aJ " * - X ( 7P = V X X Cn X 4 L ! L % T< L P4 M ^ L X 4 _ ? ? ? ?
0x038e94…039028 Dummy {f00=0x0012, f01=0x0190, f02=»9J: 9l9l: : 9~9~9~9~: 9b9t < W* = W" < W ?: L :AR| M W M M 4 L T M M L PH=GV L L 4 9 M 2 ;6 M L 9G L 4 L M L M M L 4 : W M " A< L P L 9JR@ P P T A, 5 U P T Q P P
0x039028…0391bc Dummy {f00=0x0012, f01=0x0190, f02=» L ' 7P P p Y "(@ P P $ M : P ( M P Q P P P W P T Q (@ L " A<(@ H H T A, E $ I 4P _ 5 % E (@ L 2 ( P _ 4 ) % ] M (@ L 2 A$ T!fR Q @!f] A,>
0x0391bc…039350 Dummy {f00=0x0012, f01=0x0190, f02=» T V P T"W L >F A$ L & A$ < M 4 ; M L M L " P M < : M L M A< L ! PT L M L M L & P L E E M < : M M L L % T D V L ! P L ! XfWn L M L M M =0 : L :c:A L D
0x039350…0394e4 Dummy {f00=0x0012, f01=0x0190, f02=» D Q = M 2 < L L $:BV W $:AV M " M A L L $ M 0 D L U M " V L R L M ( M * M , L X L U M W > M 2 < L D L L 0U L 0 L (U L ( L L R $ 9 _ R $ 9 M , L M M
0x0394e4…039678 Dummy {f00=0x0012, f01=0x0190, f02=» L L , U A< L A$ L U ?X M 2 < L M $ L M & L L I P0% P L X =h P W P L X T M . L 9 M L A$ L L . Q L L L R 0 % _ M M L . P M . ? M 2 < L U @, M 2 < L
0x039678…03980c Dummy {f00=0x0012, f01=0x0190, f02=»P0W" M L A$ @ M ( L U @ M 2 < L L ( E L % E L E L E M A M 2 < L P$ A< M 2 ;r M "W F4 = JlW ( L 4 5 L L " C m M ^ U L ( L L ? ? ? ? ? ? ? A A H 4 R W 7
0x03980c…0399a0 Dummy {f00=0x0012, f01=0x0190, f02=» d _ AB0 B AH 5 T6 @H P H BD BH BL BP BT @H AH AB0 ( 5 4 X _8 B P W M: B ( "^ B, B L 0 MESSAGE UNKNOWN B H Q L L L R 0 % _ M M L . P M . ? M 2 < L U 5 B J
0x0399a0…039b34 (0, 73) Dummy {f00=0x0012, f01=0x0190, f02=» C D W8 C D X W* 8 AD T AD" D (@( 4 4 : 0 :R - Y 0 PU,DNXX,STAT,RY D 5 J ? B C 1P D Y _ @B RDP A P 8 FL B X X ! R V Y AD 8 TKP Y
0x039b34…039cc8 Dummy {f00=0x0012, f01=0x0190, f02=» Q 1 B. 4 X X ? ? ? ? ? ? ? E@ 7 _ 5 J B @ Q P P T Z B W P B $>H $ NOT W0 J @ ! $ T P Y B C C R ] B, L . P E ? M 0AB CD ADDR @ 9a:a;a
0x039cc8…039e5c Dummy {f00=0x0012, f01=0x0190, f02=» = Jl 0 9U AE E i6 E ( "^ F = Jl @ A @ !? $> A"T H _* 5 @H B @ A B, 0 Jl AG$ AG& G" ( "^ @ A ( C 5 @ 4 B P J _ 5 B, 5 J AG J R: P J R( G ( "^
0x039e5c…039ff0 Dummy {f00=0x0012, f01=0x0190, f02=» i6 9 , PP , X QD i6 H~ Y , i6 H~ Z H @H P : Hh ` : B I i6 _* AHT HP ( "^ : ; ;<A ' R `R Q QB _ QB <a : : : - A ~(@ A" AH A A A A AH AH AH a I
0x039ff0…03a184 Dummy {f00=0x0012, f01=0x0190, f02=» Qh Q P( @ @ @ @ Y Y Y Y " A "; V W # @ A AH @ ? ? > Q @ ? ? ? ? ? ? ? I F4 @ P <a:a B :A : P6 $ R, Z R R Q $ :D P $ R ^& : B P R( AJZ AJ AJ^
0x03a184…03a318 Dummy {f00=0x0012, f01=0x0190, f02=»Jf Jh ? ? ? ? ? ? ? Jj ( < Jl B @ 9a:a R @ @K @"N %J '~ %J :EOS:EOV AHT HP "$&1368 AKL KN!? QKdP ^ 52 AL X AO X AO Q R x % =A Y X Y4 Z8 AKD $ $ T D i Kb !N X "!
0x03a318…03a4ac Dummy {f00=0x0012, f01=0x0190, f02=» W !N " P P !N _ !N2 Mb M L 4 P Pj P P P @O Y M D P X &Q Y W Y 4 X $;H D :ET $;H D OSP OVT W W !L X ! P X 1P W @ X U W W W !L X ! . @Wp !L X ! Tb AW^ X
0x03a4ac…03a640 Dummy {f00=0x0012, f01=0x0190, f02=»KD Y , $ T D q 84 !N !N< L KP Y Y AO AO LH !N !N< L W W ANV X 9c T DKH EKH 4 X B X :c HKH % M !N _N !N !N6_X !N _^ !N Y " !N<_p KT_ X # ;dC Y AKF AKB 7P AO _ _ _( _, _0 _4
0x03a640…03a7d4 (0, 74) Dummy {f00=0x0012, f01=0x0190, f02=» "! PX @ Q P VF_ P RN;AR P P4 0 P P C C C LPT P P C # ( C _: DL P H C _ P X( DD _Z :EOS :EOF 52 5J 5 @ !? ?R _ P 4 ' !? 0X A "! X6 @ Q P ^L_ P XP P R :AV L D
0x03a7d4…03a968 Dummy {f00=0x0012, f01=0x0190, f02=» M # C C @ _ "ZN(@(@ ^ :j >Z _ m (@ M M 8 DKT X X T X M W M W y Y Y Y # C B 58 B 58 $? R~ P R O P R R O P P| P Pv P $P &PN "P< /
0x03a968…03aafc Dummy {f00=0x0012, f01=0x0190, f02=»DYPj X T Y $ WZ RZWX $ # T $ T Y B W0 %@ R b " Y Y Y Y Y $ X _0 8 TCX< TKXB MTXH DYXN ^ @ T <j =h QU P. ^ %x 8P F4 X % !X %`X P % X. R" X>W % P T %
0x03aafc…03ac90 Dummy {f00=0x0012, f01=0x0190, f02=»U E E E E E E U > > aU @U E @U @U @U @U @U @U @U U Q (@ T W@ &_T@ H P P T ?f' W " H Wx " Wn & P >b& >AW >a& @T " X X T$W.
0x03ac90…03ae24 Dummy {f00=0x0012, f01=0x0190, f02=» T" T" T" T" T" T" " " " " " " " T" >" HU AU T" T" T" T" T" T" " " " " " " " T" AU > ?f' _ 8 @ T <j =h 8P F4 X % !X %`X P % X. R X>W % P T %
0x03ae24…03afb8 Dummy {f00=0x0012, f01=0x0190, f02=» E E E E E E > > a @ E @ @ @ @ @ @ @ Q (@ T W &_T H P P T ?f' W " H W " W & P >b& W X M M Y X Y Y B Y ! Y
0x03afb8…03b14c Dummy {f00=0x0012, f01=0x0190, f02=» !Yj L x P !Y M Q W ! P M L ZZ Y" B Y Xf AWz 8 4 B :e L Ph !Y M Q !Y6 B B $ !X !Yj L x P2 x X0 M L Q !Y@_@ !Y M Q Y" 4 ! 9A " ! M 4 P P L P P ! _ 4 B
0x03b14c…03b2e0 Dummy {f00=0x0012, f01=0x0190, f02=» M AU L 7P U M Y B AU U Y X P P P P P P8 Xf !^ AU B T B @U ) @U I @U I Xf 4 B AU ! T h AU M !Y6 L @U ! P AU !^ !YDW AWx !^ !YD" P !Y@ M L ZL M AU V !^ !^ Xf B P2
0x03b2e0…03b474 (0, 75) Dummy {f00=0x0013, f01=0x0190, f02=» AU ! P AU W& ! P AU R ! P W ! P AU P AU V ! P ! P _ P* AU AU R Ql ! P Wb ! P ! P WP ! P ! P W> B <e :e Q P AU AU ! P AU Z X Td @U ! P W @U P Q Y @U @U AU
0x03b474…03b608 Dummy {f00=0x0013, f01=0x0190, f02=»" T" L @U P<W !Yj" T L @WxP$ M L Q !Y@_Z M Q Xf T X $ P@ D R: P @U ! P !] T D $ !^( @U ! T L AWx !]xW !] T D R@ $ !^ @U ! T @U T " T AU W AU T P AU Y T U 4 !] @U ! P !YDW
0x03b608…03b79c Dummy {f00=0x0013, f01=0x0190, f02=» L " P $ M 4 @U U ( = Y 4 @U U < ) Y 4 X ! J $ <b! L !? P L ! _ @U L T !Y L 9AV$ !Y M Q A"R @ M Q 4 M Y" 4 !Y@ !Y M Q AU M !Yj 4 @V TOTD @V 1T: B AV( @
0x03b79c…03b930 Dummy {f00=0x0013, f01=0x0190, f02=» , ` X Y X a| B Y % a| L aN M B P 58 B V X P P P P 52 B P P 4 ^ :A H_bW W M B M B M _Z _bV 4 Y T T W _ 52 B < V < 58 L P :g: L :C ?
0x03b930…03bac4 Dummy {f00=0x0013, f01=0x0190, f02=» WR A_> L " * Aa - Aa3 L " X ! Y M T(% T$ ! R L W L A T M A_< A_: X 7P B M aj h d M _* _R Y B A_H X P PD P@ P< P8 P4 b !dZ B T B @_T ) @_V I @_X I b B P,9 Q$ B < R :A R
0x03bac4…03bc58 Dummy {f00=0x0013, f01=0x0190, f02=» P @ W M @_H M M !dH !b b L !? B M A_< A_: A_J X 7P A_@ ! T @_D A_@ @_F Y @_BU A_H b M X 4 X ! J Pj @_< @_: L $ L T L P: M I m M M W& L P M l A M M W A X
0x03bc58…03bdec Dummy {f00=0x0013, f01=0x0190, f02=» ? 4 an M A_> 8 4 M @_J 7P < $ <C ! 9 4 @_@9C @_D: 4 M _T M !b b 4 :EOS:EOV P P P Ad d !? Qg P ^ 52 V X 58 58 X Ad Adx Adz
0x03bdec…03bf80 Dummy {f00=0x0013, f01=0x0190, f02=» 9 R !f !f AdzXT_ d| Y Y _^ !e !f tW !e !e ] ! X W !e 9C^ W| !e _ !f Wn !f _ d Y Y _ X r s W4 X @ _ W$ AW @W $W %W W !W W X 9d)` Ad AdxA T 7P 9CV * 9AV 9AV X 1P * 9EV )@ X Q6{ X
0x03bf80…03c114 (0, 76) Dummy {f00=0x0013, f01=0x0190, f02=» X @d d 4e e e e e e eBeBeneRe e~e e e e e e &" 13468$$ @ _ X X X X $ Pg4g<gThDhb % P Y Y Y >% X P Y _" P" P& R| ^T Y _D _T X _ X _ X" X& T: X P4 0' P. 1R P _ 0$
0x03c114…03c2a8 Dummy {f00=0x0013, f01=0x0190, f02=» P Y $ W Y =D %_ X P V % P Y X XT Q _ g Q g 0DKER UNIT CYLD STAT h h 4 h h W2 h h X W$ h h W h ( X = 0 :R # Y ; ; ? 0 :R
0x03c2a8…03c43c Dummy {f00=0x0013, f01=0x0190, f02=» T Y" P T _ X D D E E ] @ E @ j ? ? > ? ? ? ? ? ? ? m6 C ( "^ @m k^ U T " P " P @m W C "& # ( "^ A p @mV @mX @mZ @m <h @m % @m^ @m` mb md z [
0x03c43c…03c5d0 Dummy {f00=0x0013, f01=0x0190, f02=» U > > > > > > >WZ A p ^ T " T0 ! P W SY SD AD _ ! P _, J _2 m6 # C ( "^ P mV mX mZ m CCT I T P Q _, Am@ _V LM mb A"X Am@ m6 L 9 !? A
0x03c5d0…03c764 Dummy {f00=0x0013, f01=0x0190, f02=» I H P _ A in A A A @ ~ m A ~ @m A ~ @ o0( "^ A~ A A H (@_0 $ ( , 0 4 8 < mB U T " P " P @ W C "& # ( "^ A p @ @ @ @ <h @ % @ @ z [
0x03c764…03c8f8 Dummy {f00=0x0013, f01=0x0190, f02=» U > > > > > > >W A p ^ T " T ! P W SY SD AD _ ! P _, J _2 # C ( "^ P DOS - PTS 6000 REL. 11.0 81-02-16 FOR 6879 (250 KB) FLEXIBLE DISK DRIVE
0x03c8f8…03ca8c Dummy {f00=0x0013, f01=0x0190, f02=» A n bCPT * & g @ ~ A ~ @ A ~ @ I:ITCP J M:LDNX , ( ( "^ A A n , ( (@_0 $ $ ( , 0 4 8 < , ( o D
0x03ca8c…03cc20 Dummy {f00=0x0013, f01=0x412c, f02=»R CR MT UT cP gT " P P & W % H D ! ) - 1 7 = A E I P WZ T0 P W ;P Q kP B H D ! q u y } T T P Q 8 4 T, T P ' " )P 5R MP o w
0x03cc20…03cdb4 (0, 77) Opaque[0x194]
0x03cdb4…03cf48 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0270, f03=0x0000}
0x03cdb4…03cf48 IdxSect {
0x03cdb4…03cf48 f00 = 0x0013 // 0x3cdb4 @0x0
0x03cdb4…03cf48 f01 = 0x004e // 0x3cdb6 @0x2
0x03cdb4…03cf48 gno = [ // 0x3cdb8 @0x4
0x03cdb4…03cf48 [0x00]: C0x0013.0x2.0
0x03cdb4…03cf48 [0x01]: C0x0013.0x3.0
0x03cdb4…03cf48 [0x02]: C0x0014.0x0.0
0x03cdb4…03cf48 [0x03]: C0x0014.0x1.0
0x03cdb4…03cf48 [0x04]: C0x0014.0x2.0
0x03cdb4…03cf48 [0x05]: C0x0014.0x3.0
0x03cdb4…03cf48 [0x06]: C0x0015.0x0.0
0x03cdb4…03cf48 [0x07]: C0x0015.0x1.0
0x03cdb4…03cf48 [0x08]: C0x0015.0x2.0
0x03cdb4…03cf48 [0x09]: C0x0015.0x3.0
0x03cdb4…03cf48 [0x0a]: C0x0016.0x0.0
0x03cdb4…03cf48 [0x0b]: C0x0016.0x1.0
0x03cdb4…03cf48 [0x0c]: C0x0016.0x2.0
0x03cdb4…03cf48 [0x0d]: C0x0016.0x3.0
0x03cdb4…03cf48 [0x0e]: C0x0017.0x0.0
0x03cdb4…03cf48 [0x0f]: C0x0017.0x1.0
0x03cdb4…03cf48 [0x10]: C0x0017.0x2.0
0x03cdb4…03cf48 [0x11]: C0x0017.0x3.0
0x03cdb4…03cf48 [0x12]: C0x0018.0x0.0
0x03cdb4…03cf48 [0x13]: C0x0018.0x1.0
0x03cdb4…03cf48 [0x14]: C0x0018.0x2.0
0x03cdb4…03cf48 [0x15]: C0x0018.0x3.0
0x03cdb4…03cf48 [0x16]: C0x0019.0x0.0
0x03cdb4…03cf48 [0x17]: C0x0019.0x1.0
0x03cdb4…03cf48 [0x18]: C0x0019.0x2.0
0x03cdb4…03cf48 [0x19]: C0x0019.0x3.0
0x03cdb4…03cf48 [0x1a]: C0x001a.0x0.0
0x03cdb4…03cf48 [0x1b]: C0x001a.0x1.0
0x03cdb4…03cf48 [0x1c]: C0x001a.0x2.0
0x03cdb4…03cf48 [0x1d]: C0x001a.0x3.0
0x03cdb4…03cf48 [0x1e]: C0x001b.0x0.0
0x03cdb4…03cf48 [0x1f]: C0x001b.0x1.0
0x03cdb4…03cf48 [0x20]: C0x001b.0x2.0
0x03cdb4…03cf48 [0x21]: C0x005d.0x2.0
0x03cdb4…03cf48 [0x22]: C0x005d.0x3.0
0x03cdb4…03cf48 [0x23]: C0x005e.0x1.0
0x03cdb4…03cf48 [0x24]: C0x0059.0x2.0
0x03cdb4…03cf48 [0x25]: C0x0059.0x3.0
0x03cdb4…03cf48 [0x26]: C0x005a.0x1.0
0x03cdb4…03cf48 ]
0x03cdb4…03cf48 }
0x03cf48…03d0dc Dummy {f00=0x0013, f01=0x4144, f02=» > @ IDENT FMOVE T,REL=11.0,810128,870137141100 FMOVE F FMOVE V I:EVA0 h I:ERR2 z I:EVA5 , ( D #0 & + I:ER18 I:RT1 * & $ P _
0x03d0dc…03d270 Dummy {f00=0x0013, f01=0x40f8, f02=» > @ IDENT TYPET T,REL=11.0,810128,870137141100 TYPET F TYPET V I:EVA0 h I:ERR2 z I:RT1 , ( B #03 ;d # + @ @
0x03d270…03d404 Dummy {f00=0x0013, f01=0x40fc, f02=» > @ IDENT ICLEAR T,REL=11.0,810128,870137141100 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x03d404…03d598 Dummy {f00=0x0013, f01=0x411c, f02=» > @ IDENT EMPTYT T,REL=11.0,810128,870137141100 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x03d598…03d72c Dummy {f00=0x0013, f01=0x0190, f02=» > @ IDENT T:STIN T,REL=11.0,810128,870137141100 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R ~ T:RNOK , ( W R P _ Y $ T:LOFS I:E
0x03d72c…03d8c0 Dummy {f00=0x0013, f01=0x0190, f02=» X " X $ z , ( s ! P " P X $ [ z [ }T I:ERR2 J , ( 0W 3R V : %W " P , ( X $ X " R W V R , ( W V % _ [ I:MOV , ( " D
0x03d8c0…03da54 (0, 78) Dummy {f00=0x0013, f01=0x4082, f02=» H D ! R !W %R 1P m wP, {P, T W RD V@ W> P R W V R W V P P 0 l@ ~
0x03da54…03dbe8 Dummy {f00=0x0013, f01=0x018e, f02=» > @ IDENT T:STOU T,REL=11.0,810128,870137141100 STROU1 F STROU1 X T:STEV l T:LOFS ~ * & @ X x & Y " I:EVA0 T:LOPS I:ER17 , (
0x03dbe8…03dd7c Dummy {f00=0x0013, f01=0x4158, f02=» f , ( s ?A W ?AW <! P , ( X " X R W V y 8 T:DUPX h T:GRFC z , ( & Y $ 8 " X X T:ROK T:RNOK x ( y $ < 8 9
0x03dd7c…03df10 Dummy {f00=0x0013, f01=0x414a, f02=» > @ IDENT T:STEV T,REL=11.0,810128,870137141100 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ * & H #0T Y Y , ( ! T # P & #0T ( I:ERR2 7
0x03df10…03e0a4 Dummy {f00=0x0013, f01=0x0190, f02=» > @ IDENT T:EDFL T,REL=11.0,810128,870137141100 T:EDFL F T:EDFL X T:PRKB l T:PRDY ~ T:PM1 T:PM2 T:CASP , ( I$ Y , ( ( x P Y *
0x03e0a4…03e238 Dummy {f00=0x0013, f01=0x0190, f02=» X 0 v , ( s P X T 5 ! Y * T:SCUW F T:CLRD X , ( y X V X X ( j , ( x C ( Y * , ( X Y , X X C & , ( C
0x03e238…03e3cc Dummy {f00=0x0013, f01=0x018e, f02=» X l , ( I *YrP y X " x Y X " T T:BELL < , ( i Y _ _ B U C Q N T:CLR1 ~ T:CLR2 , ( P C D X , ( X * $" ~_> @ Y X * _R X , (
0x03e3cc…03e560 Dummy {f00=0x0013, f01=0x0190, f02=» , ( ! @ " X # X * y _< X , ( ? # X * y X 1 1 4 , ( ] X !@T X $ " P y d T:CLIT T:EKEY , ( } @ _ x T X H , ( X X * , )$ P
0x03e560…03e6f4 (0, 79) Dummy {f00=0x0014, f01=0x405c, f02=»T {U Q < V P eT uP T P F@ X
0x03e6f4…03e888 Dummy {f00=0x0014, f01=0x0190, f02=» > @ IDENT T:DYKI T,REL=11.0,810128,870137141100 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL F T:DYKI T:PRKB T:PRDY I:EVA7 * & H ' Y
0x03e888…03ea1c Dummy {f00=0x0014, f01=0x0190, f02=» X l T:CASP * & y ! T _ y C Q " T T:CLRD L , ( X ! X ^ , ( X ! x Y~ Y _ X "@P B , ( R y C B P 9 V _F9 , ( V X ! T X !@X
0x03ea1c…03ebb0 Dummy {f00=0x0014, f01=0x0190, f02=» B y " y $ c C T:CLR1 X & T:CLR2 f : T:SCUW N , ( Q _$ _ y _6 ( x X@ X ` , ( qA X # C _. B , ( ]d P C Q X8_H x XD @ Y , ( c C y
0x03ebb0…03ed44 Dummy {f00=0x0014, f01=0x0190, f02=» T:IOWR , ( # B P B C : T:CLIT : F , ( ' + X Z T:LOFS I:EVA0 T:LOPS T:CLMI , ( A ( ( T:P
0x03ed44…03eed8 Dummy {f00=0x0014, f01=0x0190, f02=» h I:ERR5 , ( Y Y . X ! T:PM2 J , ( D : , ( @ " $ : ! P # P : H D ! ! n # aTf i mR s J }T Q T
0x03eed8…03f06c Dummy {f00=0x0014, f01=0x400e, f02=» @ RR5 , ( Y Y . X ! T:PM2 J , ( D : , ( @ " $ : ! P # P : H D ! ! n # aTf i mR s J }T Q T
0x03f06c…03f200 Dummy {f00=0x0014, f01=0x0190, f02=» > @ IDENT T:UPDF T,REL=11.0,810128,870137141100 T:UPDF F T:UPDF X T:GRFC l I:ER14 ~ , ( @ 2! Y " T:LOFS I:EVA0 T:LOPS , (
0x03f200…03f394 (0, 80) Dummy {f00=0x0014, f01=0x406a, f02=»R T:RCTS $ O X MT D ` T@ f
0x03f394…03f528 Dummy {f00=0x0014, f01=0x0190, f02=» > @ IDENT T:DUPL T,REL=11.0,810128,870137141100 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 I:ERR2 T:RNOK , ( HB !0 X T:ROK T:DUPX
0x03f528…03f6bc Dummy {f00=0x0014, f01=0x406c, f02=» I:MOV & " S V : KT WV > h V@ h ` T:GRFC t I:EVA0 I:ERR2 T:RNOK , ( HB !0 X T:ROK T:DUPX
0x03f6bc…03f850 Dummy {f00=0x0014, f01=0x4186, f02=» > @ IDENT T:GETC T,REL=11.0,810128,870137141100 T:GETC F T:GETC X T:GRFC l I:ER14 ~ I:EVA0 , ( @ 2' I:ERR2 I:RT1 , ( " P # P
0x03f850…03f9e4 Dummy {f00=0x0014, f01=0x415a, f02=» > @ IDENT T:GETA T,REL=11.0,810128,870137141100 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ I:ERR2 , ( H ! P # P X T:RNOK T:ROK T:RCR ( $
0x03f9e4…03fb78 Dummy {f00=0x0014, f01=0x413a, f02=» > @ IDENT T:TSTC T,REL=11.0,810128,870137141100 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ I:ER14 T:RTES , ( H @ ;
0x03fb78…03fd0c Dummy {f00=0x0014, f01=0x0190, f02=» > @ IDENT T:TFWD T,REL=11.0,810128,870137141100 D @ T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM F T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T
0x03fd0c…03fea0 Dummy {f00=0x0014, f01=0x4132, f02=» Y ( Y 09H Y * T:TABE * & = Y 4 Y 2 Y 69h Q X :h Y 0 2 T:SCR2 ` T:TABC r , ( [ W U X Q W Y 0 T:TABN w 8 4 W W W W W W !W MQ ]W
0x03fea0…040034 (0, 81) Dummy {f00=0x0014, f01=0x018e, f02=» > @ IDENT T:DISP T,REL=11.0,810128,870137141100 T:PRIN T:DISP T:ERAS F T:PRIN h T:GDSP | T:DS15 T:DSM T:EDWI T:GRFC , ( D T
0x040034…0401c8 Dummy {f00=0x0014, f01=0x0190, f02=» I:ER15 , ( 3H X 0T X 2Z X , ( M +" X *9h P R Y ?_ P R F I:ER14 v , ( m P R Y +W Y T:TABD , ( + W T R W * & Q
0x0401c8…04035c Dummy {f00=0x0014, f01=0x0190, f02=» j T:RNOK I:RT1 , ( P V L ! X 0 Y , T:CLDY , ( 8 P Y 0 X 0 X 2] X 8 n T:WRDY , ( ; Y 0 : X 0 :H* : X 2 T:EDIO , ( Y T Y 2 :
0x04035c…0404f0 Dummy {f00=0x0014, f01=0x4050, f02=»WJ Q W U Q Q P W W P ! D A D YT ~ ! :@ ! L 0 Y , T:CLDY , ( 8 P Y 0 X 0 X 2] X 8 n T:WRDY , ( ; Y 0 : X 0 :H* : X 2 T:EDIO , ( Y T Y 2 :
0x0404f0…040684 Dummy {f00=0x0014, f01=0x0190, f02=» > @ IDENT T:GETF T,REL=11.0,810128,870137141100 " T:GETF T:GTIT T:GTIP " F T:GETF " h T:PRDY " | I:ER14 " , ( @ X +! X +! " T:TABC " T:TABN " T:GTIT 4 "
0x040684…040818 Dummy {f00=0x0014, f01=0x40f2, f02=» Y + " n I:EVA2 # , ( U 4 0 6 # I:ER15 # P I:ERR2 # b , ( q 2 X 0 : ! P # T : # t # 4 U Y k P T # # @ # T:GTIT 4 "
0x040818…0409ac Dummy {f00=0x0014, f01=0x0190, f02=» > @ IDENT T:REWR T,REL=11.0,810128,870137141100 $ . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP $ F T:IOWR $ x T:SCUW $ , ( C ( C : $ T:CLRD * $ T:REWR 0 $ T:PRDY $ ,
0x0409ac…040b40 Dummy {f00=0x0014, f01=0x4160, f02=» _ X D D : K $ I:EVA3 % 0 I:EPIC % B , ( } $ + Q 2 P P % T T:LOPS % , ( ( B X # V % I:EVA0 % I:ECPY % I:EVI % , ( :
0x040b40…040cd4 (0, 82) Dummy {f00=0x0014, f01=0x8190, f02=» > @ IDENT T:DEDT T,REL=11.0,810128,870137141100 & . * T:TABC T:TABD T:TABE T:TABN T:SCR2 & F I:EVNO & x I:ESKI & I:EVA0 & I:EBRI & I:EBRB & I:EBR & , (
0x040cd4…040e68 Dummy {f00=0x0014, f01=0x8190, f02=» & z T:DSL ' I:RET ' * T:TABC * ' : T:TABD . ' N T:TABE 2 ' b , ( ! W W X ' v T:EDWI ' , ( 7 0Q Y ( Y *P ' I:EVT ' I:EDSK ' *
0x040e68…040ffc Dummy {f00=0x0014, f01=0x8190, f02=» X 0P V _` " P T " P ' T:LOPS ( , , ( B & (W " P Y 0 ( > , ( ] Y (_z P P T " ( n T:EDWF ( , ( X _@ " P * X *# P B ( I:ER16 ( , ( @ 1 *
0x040ffc…041190 Dummy {f00=0x0014, f01=0xc132, f02=»P ( x , ( _ . C W @ X (T W X y 6 ) T:TABN ) H T:RCR ) } Y ( : X (;n 0 ) l H D ! -W 1W 9Q = 0 A . MP Q P PR V PL T Ph Wp P P ) < 8 P T0 P" P W P ;P AP GT QP
0x041190…041324 Dummy {f00=0x0014, f01=0x8190, f02=» > @ IDENT T:ENLI T,REL=11.0,810128,870137141100 * T:DNL T:DSL * F I:EVNO * I:ECPY * n I:EPIC * I:ETXT * I:ETAB * I:EBRI * I:EBRB * I:EBR * * &
0x041324…0414b8 Dummy {f00=0x0014, f01=0x8190, f02=» * I:ESKI + . I:EXPY + @ I:RET + R T:DSL * + b T:GRFC + t , ( ! " $ & Y . Y , + T:DNL 8 + , ( 7 W & Y . X ( X ." P X 0R + T:WRDY + ,
0x0414b8…04164c Dummy {f00=0x0014, f01=0x818e, f02=»CTR + , ( @ X 2Q Y *T . : " P X , , ( 0U X *# P P T " , < I:ER16 , l T:ENIN , ~ , ( T : " 0 Y . 2 Y , , ( $ ( & Y *T " T ! , 1 W ! ) . :
0x04164c…0417e0 Dummy {f00=0x0014, f01=0xc008, f02=»@ - , ( @ X 2Q Y *T . : " P X , , ( 0U X *# P P T " , < I:ER16 , l T:ENIN , ~ , ( T : " 0 Y . 2 Y , , ( $ ( & Y *T " T ! , 1 W ! ) . :
0x0417e0…041974 (0, 83) Dummy {f00=0x0015, f01=0x0190, f02=» > @ IDENT T:EINP T,REL=11.0,810128,870137141100 . " T:PKI T:PINP T:TKI T:TINP . F T:PKI . l T:PINP . ~ T:GRFC . I:ETAB . I:EVIN . , ( I P & . , ( Y *T
0x041974…041b08 Dummy {f00=0x0015, f01=0x0190, f02=»Q X &P V D ! P . | T:TINP / T:TKI / 0 * & u $ ! P %_ : / B , ( V Y " X .9H $ / p , ( P & X ( " Q Y +Q R / I:ER16 / , ( " P W " U Y , " Q
0x041b08…041c9c Dummy {f00=0x0015, f01=0x018e, f02=» / r , ( G P W X ! X $" P Q X 0 , ( g (# P X # :! R W 0 B T:ENIN 0 r T:ENI 0 , ( "T @ Y (W Y , W 0 I:EXIT 0 , ( Y ( : X *:h X (! # P 0 , (
0x041c9c…041e30 Dummy {f00=0x0015, f01=0x0190, f02=» 0 f , ( ! ( P Y (_ P 1 T:WRDY 1 8 * & A P Y 8 & X 8 X $ 1 J , ( _ W _ " P X ( T X & V 1 x , ( } H "@T P V Y X 1 , ( (P X (P 1
0x041e30…041fc4 Dummy {f00=0x0015, f01=0x0190, f02=» H 8 V Y 8 : " 1 , ( P X & V ( P : : 2 , , ( 5 "0P $ T W %T : 2 , ( U : Y ( X $ Y X " Y X & Y 2 , ( u X < Y > : Y : X : 2 , ( X ( T X & V H
0x041fc4…042158 Dummy {f00=0x0015, f01=0x4152, f02=» Q Q R 2 X H D ! P W U Q R P" P PD W )Pt /Pn 5P ;P G KP< 3 H D ! O X QWZ aP< cQ kP2 yR$ {W X T$ W W P Tb W P@ 3 ` H D ! T, T X )P 9P* A 0 EP| aWh iP sT TF 0 P6 P 3 @ < A P P
0x042158…0422ec Dummy {f00=0x0015, f01=0x0190, f02=» > @ IDENT T:ENIN T,REL=11.0,810128,870137141100 4 T:ENIN T:ENI T:EVOU 4 F T:ENIN 4 f T:ENI 4 z , ( X Y " X Y $ X Y & X >W X 4 T:LOFS 4 , ( ! < Y = " 4 I:EGTB
0x0422ec…042480 Dummy {f00=0x0015, f01=0x0190, f02=» X (P 4 n T:WRDY 5 , ( W X & V D ! P @ W X 5 , ( W Y ( : X , Y X $ Y 5 P , ( X &T Y Y Y W V $ 5 , ( :H D Y D :H Y ! P V 5 I:EVA0 5 I:EVA1 5 , (
0x042480…042614 (0, 84) Dummy {f00=0x0015, f01=0x411a, f02=» 5 , ( Q : 2' " P T 6 I:EVA3 6 8 I:EPIC 6 J , ( mD W : N : 6 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 6 ( $ P W )P /W A X aP gT qW 6
0x042614…0427a8 Dummy {f00=0x0015, f01=0x415c, f02=» > @ IDENT T:SETC T,REL=11.0,810128,870137141100 7 T:SETC T:SCUR 7 F T:SETC 7 ` T:PRDY 7 t T:GRFC 7 T:EDWI 7 T:RCTS 7 , ( H C 7 T:SCUR 7 T:WRD
0x0427a8…04293c Dummy {f00=0x0015, f01=0x40e2, f02=» > @ IDENT T:CLMI T,REL=11.0,810128,870137141100 8 T:CLMI 8 F T:CLMI 8 X , ( "0P ' Q W ' 8 l ! Y : 8 P Q W 8 ( 8 @ 8 A2,0 PCLRM20 EQU * P SCR
0x04293c…042ad0 Dummy {f00=0x0015, f01=0x0190, f02=» > @ IDENT T:ATTF T,REL=11.0,810128,870137141100 9 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY 9 F T:CLDY T:PRKB T:PRDY 9 T:DETF 9 T:ATTF 9 I:EVA6 9 I:FFSN 9 , (
0x042ad0…042c64 Dummy {f00=0x0015, f01=0x0190, f02=» Y Y Y < V E B 9 T:RNOK < : . T:GRFC @ : B T:WRDY H : V T:EDIO : j * & ; X _ v : C C : | T:CLDY : T:PRKB l : , ( Y @ : C : @ : T:D
0x042c64…042df8 Dummy {f00=0x0015, f01=0x4060, f02=» Z : z : : ; @ W @ W ; 2 ; J@ ; H : V T:EDIO : j * & ; X _ v : C C : | T:CLDY : T:PRKB l : , ( Y @ : C : @ : T:D
0x042df8…042f8c Dummy {f00=0x0015, f01=0x0190, f02=» > @ IDENT T:LSEG T,REL=11.0,810128,870137141100 < & " T:LOFS T:LOPS T:LSEG T:CSEG < F T:LSEG < p T:CSEG < , ( ( R : V E V D ' < I:ER1C < , ( ! $ W P <
0x042f8c…043120 Dummy {f00=0x0015, f01=0x402c, f02=»R ;P OW YP < d = @ = (10128,870137141100 < & " T:LOFS T:LOPS T:LSEG T:CSEG < F T:LSEG < p T:CSEG < , ( ( R : V E V D ' < I:ER1C < , ( ! $ W P <
0x043120…0432b4 (0, 85) Dummy {f00=0x0015, f01=0x4146, f02=» > @ IDENT T:DC00 T,REL=11.0,810128,870137141100 > DCREAD DCWRTE DCEXCH > F T:FDS0 > h DCREAD > z T:DCR1 > DCWRTE > T:DCW1 > DCEXCH > T:DCE1 > , ( I$
0x0432b4…043448 Dummy {f00=0x0015, f01=0x40aa, f02=» > @ IDENT T:SWI0 T,REL=11.0,810128,870137141100 ? SWITCH ? F T:SWIT ? X SWITCH ? j @ ? ~ ? @ ? ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x043448…0435dc Dummy {f00=0x0015, f01=0x40da, f02=» > @ IDENT T:TEI0 T,REL=11.0,810128,870137141100 @ TESTIO ABORT @ F T:TEST @ ^ TESTIO @ p T:ABOR @ ABORT @ H @ @ @ @ . P*
0x0435dc…043770 Dummy {f00=0x0015, f01=0x40de, f02=» > @ IDENT T:CLO0 T,REL=11.0,810128,870137141100 A SETTIM GETTIM A F T:SETT A ` SETTIM A r T:GETT A GETTIM A H A A @ A . P*
0x043770…043904 Dummy {f00=0x0015, f01=0x40a6, f02=» > @ IDENT T:DEL0 T,REL=11.0,810128,870137141100 B DELAY B F T:DELA B V DELAY B h @ B z B @ B * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x043904…043a98 Dummy {f00=0x0015, f01=0x40aa, f02=» > @ IDENT T:GTI0 T,REL=11.0,810128,870137141100 C GETTID C F T:GETI C X GETTID C j @ C ~ C @ C ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x043a98…043c2c Dummy {f00=0x0015, f01=0x0190, f02=» > @ IDENT T:DC T,REL=11.0,810128,870137141100 D 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 D F T:DCRE D T:GDSP D T:DCR1 D T:DCWR D T:DCW1 D T:EDIO D , ( @@ /
0x043c2c…043dc0 Dummy {f00=0x0015, f01=0x416e, f02=» 6 D * & 5 / "!@P E I:EVA0 E 8 , ( O ' / #0T E J , ( i C #0T C E z , ( #0 T ' P &R &P C E * & #0 T & C : W E
0x043dc0…043f54 (0, 86) Dummy {f00=0x0015, f01=0x40b6, f02=» > @ IDENT T:SWI T,REL=11.0,810128,870137141100 F T:SWIT F F T:SWIT F X I:RT1 F l ( F | F @ F E LEVEL P* PT:SWIT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET
0x043f54…0440e8 Dummy {f00=0x0015, f01=0x018c, f02=» > @ IDENT T:TEI T,REL=11.0,810128,870137141100 G T:TEST T:ABOR G F T:TEST G ` T:GDSP G t T:DSR G I:RT1 G , ( @ "Q V I G T:ABOR G , (
0x0440e8…04427c Dummy {f00=0x0015, f01=0x4008, f02=»@ H IDENT T:TEI T,REL=11.0,810128,870137141100 G T:TEST T:ABOR G F T:TEST G ` T:GDSP G t T:DSR G I:RT1 G , ( @ "Q V I G T:ABOR G , (
0x04427c…044410 Dummy {f00=0x0015, f01=0x0190, f02=» > @ IDENT T:CLO T,REL=11.0,810128,870137141100 I & " T:SETT T:GETT T:SETD T:GETD I F T:SETT I p I:EVA0 I I:RT1 I T:GETT I , ( @ ( I T:SETD 6 I , ( @
0x044410…0445a4 Dummy {f00=0x0015, f01=0x4070, f02=»T : I I:ERR J e J " T # T ? T YR ]T J : j J Z@ J l T:SETT I p I:EVA0 I I:RT1 I T:GETT I , ( @ ( I T:SETD 6 I , ( @
0x0445a4…044738 Dummy {f00=0x0015, f01=0x410e, f02=» > @ IDENT T:DEL T,REL=11.0,810128,870137141100 K T:DELA K F T:DELA K X I:EVA0 K l I:ERR K ~ , ( @ #0 P ( K I:RT1 K K P K $ K @
0x044738…0448cc Dummy {f00=0x0015, f01=0x4124, f02=» > @ IDENT T:MSK0 T,REL=11.0,810128,870137141100 L MASK L F MASK L V I:EVA0 L h , ( @ #0 T #0 T V L z I:RT1 L L I:ERR L # L T T L
0x0448cc…044a60 Dummy {f00=0x0015, f01=0x0190, f02=» > @ IDENT T:SCD T,REL=11.0,810224,870137141100 T:ACTV T:PAUS T:RSTR F T:ACTV h , ( 2 ;BP P J | P:BAS I:ERR4 , ( ! T ( I:NTPB
0x044a60…044bf4 (0, 87) Dummy {f00=0x0016, f01=0x40ac, f02=» W & F : ( I:RT1 * ( $ w W V V I : , ( P P4 %T 1 ^ EW6 O ^ ]W {W V f @ P:BAS I:ERR4 , ( ! T ( I:NTPB
0x044bf4…044d88 Dummy {f00=0x0016, f01=0x0190, f02=» > @ IDENT T:USE T,REL=11.0,810224,870137141100 T:USE T:UERR T:UER F T:USE d I:ERR4 v , ( 2 & >A >A 2 I:EVA0 , ( $ & V D 9a 9 P:MTAB
0x044d88…044f1c Dummy {f00=0x0016, f01=0x0190, f02=»( l , ( _ X @ 9 X ( , ( R 9 8 ? < , ( X Q , V ( l , ( R - 4T V 5 , ( ( R W V P W U T:UERR X
0x044f1c…0450b0 Dummy {f00=0x0016, f01=0x4070, f02=»W MT S X [R _V gP }R R< V R Q" Rf T 'R< )W, /P& 3W$ MT B j Z@ l X Q , V ( l , ( R - 4T V 5 , ( ( R W V P W U T:UERR X
0x0450b0…045244 Dummy {f00=0x0016, f01=0x0190, f02=» > @ IDENT T:UNUS T,REL=11.0,810224,870137141100 T:UNUS F T:UNUS X I:ERR4 l , ( 2 ' >A >A 2 ~ P:MTAB * & $ V L ;a ; R @ , ( = ( 8 ?
0x045244…0453d8 Dummy {f00=0x0016, f01=0x4042, f02=» 9RF SQ0 ,@ > T:UNUS F T:UNUS X I:ERR4 l , ( 2 ' >A >A 2 ~ P:MTAB * & $ V L ;a ; R @ , ( = ( 8 ?
0x0453d8…04556c Dummy {f00=0x0016, f01=0x4096, f02=» > @ IDENT T:EXIT T,REL=11.0,810128,870137141100 T T:EXIT T F T:EXIT T X ( T l T @ T KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x04556c…045700 Dummy {f00=0x0016, f01=0x413a, f02=» > @ IDENT T:GTCW T,REL=11.0,810128,870137141100 U GETCW U F T:GDSP U V GETCW U h I:EVA0 U z T:BINB U * & H V 0V B B U T:GTCW U I:RT1 U W
0x045700…045894 (0, 88) Dummy {f00=0x0016, f01=0x4128, f02=» > @ IDENT T:GTID T,REL=11.0,810128,870137141100 V T:GETI V F T:GETI V X I:EVA0 V l , ( @ #0T R W T V G 9h V ~ I:RT1 V I:ERR V ' W V T R W T '
0x045894…045a28 Dummy {f00=0x0016, f01=0x0190, f02=» > @ IDENT T:DMR T,REL=11.0,810128,870137141100 & " T:DREA T:IREA T:XREA T:IXID F T:DREA p T:REAX T:OPCH T:SCW2 T:IO2 T:IREA * & $
0x045a28…045bbc Dummy {f00=0x0016, f01=0x4034, f02=»:K : ( 4 @ 0
0x045bbc…045d50 Dummy {f00=0x0016, f01=0x0190, f02=» > @ IDENT T:DMW T,REL=11.0,810128,870137141100 > : T:SWRI T:DWRI T:IWRI T:XWRI T:DREW T:CREW T:IREW F T:SWRI T:WRIX T:STCH T:IO1 T:XWRI T:DWRI , (
0x045d50…045ee4 Dummy {f00=0x0016, f01=0x4106, f02=» p T:IWRI < T:IXCH $ , ( 1 $ / _ / 6 T:CREW N f T:IREW z * & KB / c W( p @
0x045ee4…046078 Dummy {f00=0x0016, f01=0x0190, f02=» > @ IDENT T:DCC T,REL=11.0,810128,870137141100 _ F B T:COPE T:COP1 T:CCLO T:CCL1 T:CCL2 T:ACON T:ACO1 T:ACO2 _ F F B T:ACO3 T:PCON T:PCO1 T:PCO2 T:DISC T:DIS1 T:DIS2 T:DIS3 _ T:DIS4 T:OPT _ T:COPE _
0x046078…04620c Dummy {f00=0x0016, f01=0x018e, f02=» T:CCLO " _ T:CCL1 & ` T:CCL2 * ` & , ( W W /" C ` : T:ACON P ` j T:ACO1 T ` ~ , ( 7 C C P P _2 W ` T:ACO2 X ` T:ACO3 ` T:PCON f ` T:PCO1
0x04620c…0463a0 Dummy {f00=0x0016, f01=0x0190, f02=» T:DIS3 a T:DIS4 a , ( s /'W W W W W a , T:STCW a , ( // C C C P P a n * & C P P a T:OPT a I:EVA0 a &<H
0x0463a0…046534 (0, 89) Dummy {f00=0x0016, f01=0x400c, f02=» a @ b 3 a T:DIS4 a , ( s /'W W W W W a , T:STCW a , ( // C C C P P a n * & C P P a T:OPT a I:EVA0 a &<H
0x046534…0466c8 Dummy {f00=0x0016, f01=0x0190, f02=» > @ IDENT T:DCR T,REL=11.0,810128,870137141100 c & " T:RECE T:REC1 T:AREC T:ARE1 c F T:RECE c p T:REC1 c T:REAX c T:OPT c T:IO2 c , ( W C C P c T:AREC c
0x0466c8…04685c Dummy {f00=0x0016, f01=0x403a, f02=» c v W P #W 3P d D d $@ d 61100 c & " T:RECE T:REC1 T:AREC T:ARE1 c F T:RECE c p T:REC1 c T:REAX c T:OPT c T:IO2 c , ( W C C P c T:AREC c
0x04685c…0469f0 Dummy {f00=0x0016, f01=0x0190, f02=» > @ IDENT T:DCS T,REL=11.0,810128,870137141100 e & " T:SEND T:SEN1 T:ASEN T:ASE1 e F T:SEND e p T:SEN1 e T:WRIX e T:OPT e * & W / C C P e T:IO1 e T:ASEN " e
0x0469f0…046b84 Dummy {f00=0x0016, f01=0x403e, f02=» _* e t W P %W 7P f H f (@ f :
0x046b84…046d18 Dummy {f00=0x0016, f01=0x40f8, f02=» > @ IDENT T:LEN T,REL=11.0,810128,870137141100 t GETLEN t F GETLEN t X I:EVA0 t l I:ERR2 t ~ I:RT1 t * & B #03 1 t t t @ t TO RETURNITEM
0x046d18…046eac Dummy {f00=0x0016, f01=0x0190, f02=» > @ IDENT T:ADIT T,REL=11.0,810128,870137141100 u & " T:RREA T:RRE1 T:RWRI T:RWR1 u F T:RREA u p T:DSB u T:RRE1 u I:EVA0 u , ( A #0 T &R u T:STCW u T:IO2 u
0x046eac…047040 Dummy {f00=0x0016, f01=0x407e, f02=»#0T C u t I:ERR v Q : W v $ @ T@ R@ 5 @ GT WW v D ^ v h@ v z
0x047040…0471d4 (0, 90) Dummy {f00=0x0016, f01=0x0190, f02=» > @ IDENT T:KIA T,REL=11.0,810128,870137141100 w T:KIA T:NKIA w F T:KIA w ^ T:NKIA w p T:ABUF w , ( W P 6 V :a L w T:KIPR w , ( Q ' ( ( w
0x0471d4…047368 Dummy {f00=0x0016, f01=0x0190, f02=» 6 K w , ( u V K V V K V K x , ( V 6V ( - _ : J 7 x P , ( J V W J :A x * & V 6V $ - _ * + : x , ( D T E D :A D ;A x
0x047368…0474fc Dummy {f00=0x0016, f01=0x410a, f02=» I @P _ W *) + : x , ( g $: R P $ : D V D y 0 ( $ V ( < C C _, y ` H D !L W PZ !QJ % p 7 < ST WP c V V T> Q U 3 d AP y IP QW mR oP y y @ y
0x0474fc…047690 Dummy {f00=0x0016, f01=0x4098, f02=» > @ IDENT T:ABUF T,REL=11.0,810128,870137141100 z T:ABUF z F M z X T:ABUF z n z @ z IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x047690…047824 Dummy {f00=0x0016, f01=0x0190, f02=» > @ IDENT WRITEL T,REL=11.0,810128,870137141100 { WRITEL { F WRITEL { X T:FDS0 { l T:DS25 { ~ T:DSM { I:EVA0 { , ( I / #0T { , ( C #0 T &R
0x047824…0479b8 Dummy {f00=0x0016, f01=0x4026, f02=» ET SW { | Z | @ | "11.0,810128,870137141100 { WRITEL { F WRITEL { X T:FDS0 { l T:DS25 { ~ T:DSM { I:EVA0 { , ( I / #0T { , ( C #0 T &R
0x0479b8…047b4c Dummy {f00=0x0016, f01=0x018e, f02=» > @ IDENT I:EVA T,REL=11.0,810128,870137141100 J F " I:EVA0 I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:EVA6 I:EVA7 I:EVB I:EVI F I:FML I:EVTO P:MTAB , ( :l:d:h I:EVA2 I:E
0x047b4c…047ce0 Dummy {f00=0x0016, f01=0x0190, f02=» f , ( 9 # W @ $ E " T ; [ , ( W # :H 2 T Z L 8 , ( @ w L D V W # h , ( L D V $ W D V I:EVA0 , ( @ L , W 6 2 W "
0x047ce0…047e74 (0, 91) Dummy {f00=0x0017, f01=0x0190, f02=» Z Z , ( 3 : R ; 0 I:ERR9 ` , ( S 6 : F _v r , ( s :B , (V ; H [ [ , ( [ Z (;A I:E
0x047e74…048008 Dummy {f00=0x0017, f01=0x0190, f02=»# & t , ( @ & Z 4 , ( ' : Z 4 " 2@ D , ( G P : [ [ t I:ER22 * & g & @ $ ! P Z , ( [ 6 [ Z 7
0x048008…04819c Dummy {f00=0x0017, f01=0x0190, f02=» , ( ( @ & " P ! P [ :;H , ( 2 ;h R # # XR : ; V : I:EVI & j I:EVB 8 | , ( Y : 2! : 6 2 , ( @ = W " # ;b " ] ; : ;f"
0x04819c…048330 Dummy {f00=0x0017, f01=0x4032, f02=» GP P P R AW& ` r @ . , ( 2 ;h R # # XR : ; V : I:EVI & j I:EVB 8 | , ( Y : 2! : 6 2 , ( @ = W " # ;b " ] ; : ;f"
0x048330…0484c4 Dummy {f00=0x0017, f01=0x018e, f02=» > @ IDENT I:ADS T,REL=11.0,810128,870137141100 I:ADD I:SUB F I:ADD I:SUB n I:ERR2 I:ERR1 * & @ W # , ( " T & T + : * I:C
0x0484c4…048658 Dummy {f00=0x0017, f01=0x0190, f02=» , ( ! X # P 4 V W , ( Q P [ " X $ P T 4 , ( R R ` ; <( d , ( Q P # W " <! =# T W = Z , ( P _ V ^< `_@ , ( ) R Q <# =_
0x048658…0487ec Dummy {f00=0x0017, f01=0x4056, f02=» W T6 W P )R +Q 7P h AP GU KP QT $ l @@ R T 4 , ( R R ` ; <( d , ( Q P # W " <! =# T W = Z , ( P _ V ^< `_@ , ( ) R Q <# =_
0x0487ec…048980 Dummy {f00=0x0017, f01=0x4184, f02=» > @ IDENT I:CMP T,REL=11.0,810128,870137141100 I:CMP F I:CMP V I:ERR1 h , ( #0 P " T * & z , ( : * & !`P :J +_ +Q I:CPA , ( ? _0
0x048980…048b14 (0, 92) Dummy {f00=0x0017, f01=0x4172, f02=» > @ IDENT I:CPA T,REL=11.0,810128,870137141100 I:CPA F I:CPA V * & R W h , ( ( V W Q P W ! W V , ( ? P , V W Q P W $ W V * & _ P
0x048b14…048ca8 Dummy {f00=0x0017, f01=0x0190, f02=» > @ IDENT I:MOV T,REL=11.0,810209,870137141100 I:MOV I:MVC F I:MOV I:MVC n , ( $0#0;b P P P , ( ! 0 - P _ 4 , ( A V W Q P ) P ! P ! P
0x048ca8…048e3c Dummy {f00=0x0017, f01=0x0190, f02=» p , ( _ ' d V W V , ( 4! P < S S S X @ , ( 4 9d * & ! R + : p , ( ! V W R 4 0R Y , ( A 7 Y& P Z,;D 9_8 8 _< I:ERR
0x048e3c…048fd0 Dummy {f00=0x0017, f01=0x413c, f02=» " W r , ( Q V V 7 Y , ( P _& & Q 9d! )0 + P 7 Y B Z $ _ : r H D ! ~ P Pd P /PN IQ KP SP YP _P qP wT P Q @ < S S S R 1R 7R IP
0x048fd0…049164 Dummy {f00=0x0017, f01=0x4140, f02=» > @ IDENT I:MMOV T,REL=11.0,810128,870137141100 I:MMOV F I:MMOV X I:EVA2 l , ( 2' ~ I:EVA0 , ( [ [ Z I:MOV & " =
0x049164…0492f8 Dummy {f00=0x0017, f01=0x018e, f02=» > @ IDENT I:MUL T,REL=11.0,810128,870137141100 I:MUL I:SH1L F I:MUL ^ I:ERR2 p I:ERR1 , ( V ) 0 !0 , ( " T *V &V : V , ( = S W P
0x0492f8…04948c Dummy {f00=0x0017, f01=0x0190, f02=» f , ( [ [ $ [ [ I:MOV I:NTFA 8 * & P>h [ [ P I:SUB ~ , ( Z P , ( [ 9a Z $" T 9d! P P [ I:ADD , ( P
0x04948c…049620 Dummy {f00=0x0017, f01=0x40e6, f02=» I:SH1L z , ( g ! I Z ! : 4 P 9 , ( 59D_ " P P [ ! :d" B 5 : r D @ @ TV 9V GP WV cW PP P6 P( P 5 z AR IP P P P @ I:ADD , ( P
0x049620…0497b4 (0, 93) Dummy {f00=0x0017, f01=0x018e, f02=» > @ IDENT I:DIV T,REL=11.0,810128,870137141100 I:DIV I:SH1R F I:DIV ^ I:ERR2 p I:ERR1 , ( 0 !0 " T , ( *V &V P = , ( ; ;@
0x0497b4…049948 Dummy {f00=0x0017, f01=0x0190, f02=» , ( V & 6 , ( [ [ [ [ $ 8 I:MOV I:NTFA h , ( [ [ &! P I:SUB , ( , ( z " ! !
0x049948…049adc Dummy {f00=0x0017, f01=0x018e, f02=» r e P _ , ( i T { [ [ Q [ & I:ADD V , ( P { R [ _ f , ( Z ! Z $ * & P Z %_N [ Q * & R
0x049adc…049c70 Dummy {f00=0x0017, f01=0x40b2, f02=» f + X" ,9 -9d_ H D ! Tz V 'V 5PP KR QP UW aP iR qR yV T W P +P $ ( $ YQ eP y Q@ R Q* R W p 6 @ ! Z $ * & P Z %_N [ Q * & R
0x049c70…049e04 Dummy {f00=0x0017, f01=0x40da, f02=» > @ IDENT I:NTF T,REL=11.0,810128,870137141100 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x049e04…049f98 Dummy {f00=0x0017, f01=0x8190, f02=» > @ IDENT I:EDT T,REL=11.0,810128,870137141100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB I:FFSN I:EXPY I:RET , ( !!
0x049f98…04a12c Dummy {f00=0x0017, f01=0x8190, f02=» I:EVA5 I:EVB I:EGTB I:EVI 2 I:EVA3 B I:EVA0 T * & AUT f I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * & Q T
0x04a12c…04a2c0 Dummy {f00=0x0017, f01=0x818e, f02=» , ( { 6 K K I:EDT 4 I:ED1 F I:EDW X , ( K K V K : j I:EVA6 , ( @ R B " V , ( V Z P 2 " T W
0x04a2c0…04a454 (0, 94) Dummy {f00=0x0017, f01=0x818e, f02=» , ( 7 Z [ Z P I:ERR9 4 , ( W $ [ V F I:RET | v I:EXIT P:MTAB , ( u & 7_ W Z @ , ( " (! P $ Z 7 Z Z
0x04a454…04a5e8 Dummy {f00=0x0017, f01=0x8190, f02=» I:ETAB , ( * : R J P v I < : I:ECPY H , ( J Q : P I:ETXT 2 I:EXPY 2 I:ECTR D , ( ) 4 ! T _ P 4 W K I:ESL N
0x04a5e8…04a77c Dummy {f00=0x0017, f01=0x8190, f02=» I:ECWC , ( i W _& X ,W X & . J I:EFIL H I:SCB I:ERRD n , ( K : V : J T 0 1 H D ! U Y 2 [ e n g i x k 6 m X s u N y 2 { | >
0x04a77c…04a910 Dummy {f00=0x0017, f01=0xc028, f02=»W V T ^ @ $X ,W X & . J I:EFIL H I:SCB I:ERRD n , ( K : V : J T 0 1 H D ! U Y 2 [ e n g i x k 6 m X s u N y 2 { | >
0x04a910…04aaa4 Dummy {f00=0x0017, f01=0x0190, f02=» > @ IDENT I:EDTE T,REL=11.0,810128,870137141100 D @ I:EKIH I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNO F I:EGTD I:EGTB I:EKIH I:EINH I:ETAB I:EVIN , ( @
0x04aaa4…04ac38 Dummy {f00=0x0017, f01=0x018a, f02=»:ERR2 * & ; W : ! )P9H " I:EBR r < , ( W # T &W &" :I : N I:EBRB v ~ I:ESKI I:EVNO I:ER11 I:EGTD I:EGTB , ( u : P &
0x04ac38…04adcc Dummy {f00=0x0017, f01=0x4008, f02=»@ P @ @ X
0x04adcc…04af60 Dummy {f00=0x0017, f01=0x40ea, f02=» > @ IDENT I:EDS T,REL=11.0,810128,870137141100 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x04af60…04b0f4 (0, 95) Dummy {f00=0x0018, f01=0x0190, f02=» > @ IDENT I:STR T,REL=11.0,810128,870137141100 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 , ( @ $0T P 9 I:MCH " * & _ $0T [ , ( ;
0x04b0f4…04b288 Dummy {f00=0x0018, f01=0x0190, f02=» $ t , ( R W R # P W ) V E I:EVS2 D , ( $0T W W V I:ERR I:CPY I:XCP , ( W [ , ( : Z !0 ,
0x04b288…04b41c Dummy {f00=0x0018, f01=0x409c, f02=» : H D !@ T H Pb )T ?T UR$ ]P cT mTd oW TH R W R P W ( $ T Wr W W P4 R* R %W Z P @ PY I:XCP , ( W [ , ( : Z !0 ,
0x04b41c…04b5b0 Dummy {f00=0x0018, f01=0x0190, f02=» > @ IDENT I:EVS T,REL=11.0,810128,870137141100 I:EVS1 I:EVS2 F I:EVA0 ` , ( @ #03 T jP r , ( kT T : & 9! " : $ , ( = : T W V 9! , ( ]
0x04b5b0…04b744 Dummy {f00=0x0018, f01=0x408a, f02=»2 I:ERR _^ W !W 0 , T )T GT KW eQ< qQ4 }Q$ T W W @ t@ #03 T jP r , ( kT T : & 9! " : $ , ( = : T W V 9! , ( ]
0x04b744…04b8d8 Dummy {f00=0x0018, f01=0x0190, f02=» > @ IDENT STRIX T,REL=11.0,810128,870137141100 STRIX STROUX USRFMT F I:EVNO f I:ESKI x I:EVA0 I:EBRI I:EBRB I:EBR , ( I:ECW
0x04b8d8…04ba6c Dummy {f00=0x0018, f01=0x0190, f02=» STRIN2 USRFLD STROUX . , STRIX 2 @ USRFMT 6 R , ( # W W f T:GRFC T:STEV , ( 7! Y * & Y + , ( Q 8 & Y 0 4 y 4
0x04ba6c…04bc00 Dummy {f00=0x0018, f01=0x0190, f02=»VT I:EDSK * & " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x04bc00…04bd94 (0, 96) Dummy {f00=0x0018, f01=0x4022, f02=» R$ ` B @ " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x04bd94…04bf28 Dummy {f00=0x0018, f01=0x0190, f02=» > @ IDENT STRIN2 T,REL=11.0,810128,870137141100 STRIN2 F STRIN2 X , ( X x & Y " X R W l I:EXIT , ( ! V P _ y 6 : Y I:EVA0 I:ER17 T:C
0x04bf28…04c0bc Dummy {f00=0x0018, f01=0x0190, f02=» [ }T 0W 3R V : %W " P , ( @ X $ X " R W V & , ( R W V % _ [ V I:MOV , ( " D $ D Z P T:GRFC , ( Z % z " * { X $ X
0x04c0bc…04c250 Dummy {f00=0x0018, f01=0x4012, f02=» @ V : %W " P , ( @ X $ X " R W V & , ( R W V % _ [ V I:MOV , ( " D $ D Z P T:GRFC , ( Z % z " * { X $ X
0x04c250…04c3e4 Dummy {f00=0x0018, f01=0x018e, f02=» > @ IDENT STROU2 T,REL=11.0,810128,870137141100 STROU2 F STROU2 X I:EVA0 l I:ER17 ~ , ( X x & Y " I:ERR2 , ( @!0P ! P ! T <! T , ( ;
0x04c3e4…04c578 Dummy {f00=0x0018, f01=0x40e4, f02=» I:MOV T:GRFC , ( " P X x 8 y $ & I:EXIT V : y 6 : h @ < PF %P +T 9T$ ?T CW SP ]W eW oP R W V* P @ ! T <! T , ( ;
0x04c578…04c70c Dummy {f00=0x0018, f01=0x4094, f02=» > @ IDENT USRFLD T,REL=11.0,810128,870137141100 USRFLD F USRFLD X : l ~@ E P=IDIOT4 * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x04c70c…04c8a0 Dummy {f00=0x0018, f01=0x0190, f02=» > @ IDENT I:TRA T,REL=11.0,810128,870137141100 2 . I:NTR I:PRT I:TRA0 I:TRA I:TRB I:BUF I:ECB F I:ECB | I:BUF , ( *1 TID ADDR OP CR LVL MOD ( / IFIED OPERAND
0x04c8a0…04ca34 (0, 97) Dummy {f00=0x0018, f01=0x0190, f02=» ( z , ( ! @ ' $ * A T ( , ( A A ( J , ( p A ) Y V A V z I:HEX I:HEXB , ( V . 1 V v I:TRA0 8
0x04ca34…04cbc8 Dummy {f00=0x0018, f01=0x0190, f02=» I:EVA0 I:HEXW , ( e & ( @ |Q X I:TRB | , ( R A W # V D ! )0 1 , ( @ & # T 6 V ^ I:NTPR I:PRT
0x04cbc8…04cd5c Dummy {f00=0x0018, f01=0x4028, f02=»W> T n @ $ e & ( @ |Q X I:TRB | , ( R A W # V D ! )0 1 , ( @ & # T 6 V ^ I:NTPR I:PRT
0x04cd5c…04cef0 Dummy {f00=0x0018, f01=0x018e, f02=» > @ IDENT I:ERR T,REL=11.0,810128,870137141100 D @ I:ERR I:ERR0 I:ERR1 I:ERR2 I:ERR3 I:ERR4 I:ERR5 I:ERR6 F F B I:ERR7 I:ERR8 I:ERR9 I:ERRA I:ERRB I:ERRC I:ERRD I:ERRE F B I:ERRF I:ER10 I:ER11 I:ER12 I:ER13 I:ER1
0x04cef0…04d084 Dummy {f00=0x0018, f01=0x0190, f02=» l I:ERR0 I:ERR1 I:ERR2 0 I:ERR3 D I:ERR4 X I:ERR5 l I:ERR6 I:ERR7 , ( W W W W W W W W I:ERR8 I:ERR9 $ I:ERR
0x04d084…04d218 Dummy {f00=0x0018, f01=0x0190, f02=» W W W W x I:ER10 @ I:ER11 D , I:ER12 H @ I:ER13 L T I:ER14 P h I:ER15 T | I:ER16 X I:ER17 , ( A W W W W W W W W I:ER18 ` I:ER19 d
0x04d218…04d3ac Dummy {f00=0x0018, f01=0x0190, f02=» W W W W W W W W I:ER20 ( I:ER21 < I:ER22 P W !W "W d I:ERR T:DSR , ( V H P H Y I:NTR I:BUF * & ! ** A
0x04d3ac…04d540 Dummy {f00=0x0018, f01=0x0190, f02=» & r , ( U 4 1 _ P:MTAB B , ( "T @ $ % W T @ & % T , ( 3 1 X & I:PRT TC:ERR , ( Q H A @
0x04d540…04d6d4 (0, 98) Dummy {f00=0x0018, f01=0x0190, f02=» OPENED MISSIN x , ( G ENTRY ILLEGAL REQUESTED LENG , ( TH FILE OPENED AS INDEX FILE H , ( FILE OPENED AS STANDARD FILE AR x , ( % ITHM OVERFLOW STACK OVERFLOW E IX OVFL,ARRAY: , ( i ILL INDE
0x04d6d4…04d868 Dummy {f00=0x0018, f01=0x0190, f02=»LIZATION ILLEGAL INSTRUCTION , ( ADDRESS ILLEGAL FORMAT CODE & , ( NO FIX BUFFER ALLOCATED FIX BU V , ( ) FFER NOT ALLOWED ILLEGAL CONTRO , ( I L CODE ILLEGAL INDEX VALUE FO , ( i RMAT CONDITIONS CHANGED
0x04d868…04d9fc Dummy {f00=0x0018, f01=0x0190, f02=»/NKIA STACK LE v , ( VELS DISC ERROR; NO REENTER POI , ( NT DSCB NOT AVAILABLE FIXBUFFE F , ( ) R NOT AVAILABLE FILE ORGANIZAT v , ( I ION UNDEFINED SUBSTRINGLENGTH , ( i < 0 SUBSTRING NOT WITHIN MAINS $
0x04d9fc…04db90 Dummy {f00=0x0018, f01=0x413a, f02=» CWH GWD KW@ OW< SW8 WW4 [W0 _W, cW( gW$ kW oW sW wW {W W H D ! W W W P n R U T %W +T, o H H D ! ! 3 C & i y " ! 9 @ < O e
0x04db90…04dd24 Dummy {f00=0x0018, f01=0x4108, f02=» > @ IDENT I:HEX T,REL=11.0,810128,870137141100 I:HEXB I:HEXW I:HEX F I:HEXB f I:HEXW z I:HEX , ( W 9 " R 0 1 Y ! : W " @
0x04dd24…04deb8 Dummy {f00=0x0018, f01=0x413c, f02=» > @ IDENT I:CHK T,REL=11.0,810128,870137141100 I:CHK F I:CHK V P:BAS h P:END x , ( ;a V P V P W TC:CHK I:ERR , ( B <a R 9a V :
0x04deb8…04e04c Dummy {f00=0x0018, f01=0x0190, f02=» > @ IDENT TRACHK T,REL=11.0,810128,870137141100 & " TC:CHK TC:ABT TC:ERR TC:RDC F TC:CHK p , ( @ P ( TT:HLT TT:TRP , ( !" _ @ P @ P P V
0x04e04c…04e1e0 Dummy {f00=0x0018, f01=0x0190, f02=» P n TT:VER TT:VMM , ( s $ $P T , D 2 , ( @ E : @ P A H A b TT:TID TT:PRC TT:SNO , ( W TW V A V P:MTAB
0x04e1e0…04e374 (0, 99) Dummy {f00=0x0019, f01=0x0190, f02=» TB:ABT TC:RDC TB:RDC $ , ( D @ , ( : @ , ( 6 TC:ERR f TT:MSG z , ( D : A A E A , ( / V A @ " # P ( R , ( I @ , (
0x04e374…04e508 Dummy {f00=0x0019, f01=0x405e, f02=» qP$ u P T P ` ( $ W W P R ?P GR4 oP wR H@ Z 6 TC:ERR f TT:MSG z , ( D : A A E A , ( / V A @ " # P ( R , ( I @ , (
0x04e508…04e69c Dummy {f00=0x0019, f01=0x0190, f02=» > @ IDENT TRATAB T,REL=11.0,810128,870137141100 F B TT:TON TT:TRP TT:LOP TT:VON TT:VER TT:VMM TT:HLT TT:PRC F & " TT:TID TT:MSG TT:SNO TT:TRS TT:TON TT:TRP , (
0x04e69c…04e830 Dummy {f00=0x0019, f01=0x418a, f02=» j , ( a TT:VON : TT:VER N , ( b , ( TT:VMM @ TT:HLT
0x04e830…04e9c4 Dummy {f00=0x0019, f01=0x0190, f02=» > @ IDENT TRABUG T,REL=11.0,810128,870137141100 TB:ENT TB:ABT TB:RDC F h P:BAS z , ( , ( , (
0x04e9c4…04eb58 Dummy {f00=0x0019, f01=0x0190, f02=»( ( ( TT:PRC $ TT:SNO 6 , ( i D "! A * @ @ H , ( @ *P ( V x , ( R V W Z T , ( _" = T , (
0x04eb58…04ecec Dummy {f00=0x0019, f01=0x0190, f02=»B:RDC 8 , ( ! P @ A A , , ( ; A . "V # ( A , @ , ( @ [ P UW T A ,P p , ( { @ = W Q M / , ( S I J T Y G L P , (
0x04ecec…04ee80 Dummy {f00=0x0019, f01=0x0190, f02=» UU A A A A A A A A , ( B ; A P A A , 0 , ( [ + - ; : ( . ` , ( { X " , A L A L @ A , ( @ A _T X ,T X , ( ) A A
0x04ee80…04f014 (0, 100) Dummy {f00=0x0019, f01=0x0190, f02=» @ V " @ T , ( ( ; " @ @ P A A " @ , ( [ 8T @ 4 A @ : A @ @ A P , ( * { @ F A @ A @ A @ @ A , ( F @ A :P W @ T @ , ( @ Z @ A 4 W
0x04f014…04f1a8 Dummy {f00=0x0019, f01=0x0190, f02=» p , ( ; 0 P P P @ , ( [ R _ @ , ( { _T p , ( 8 4 T P W , ( T @R W , ( U
0x04f1a8…04f33c Dummy {f00=0x0019, f01=0x0190, f02=» ; D @ A 8P W @ T @ , ( [ Z A @ 8 0 , ( { @ A 2 ` , ( A 8 @ R V ;a , ( @ Q _ 1 8 @ A , ( 2_ 0 A
0x04f33c…04f4d0 Dummy {f00=0x0019, f01=0x0190, f02=» @ 6 A @ < A @ B A , ( EU [ @ A @ A < @ A B @ A 6 , ( { P W @ T @ V @ P , ( @ A 0 0 P , ( @ @ P @ 1 8 A , ( @ @ < A @ 6 A _
0x04f4d0…04f664 Dummy {f00=0x0019, f01=0x0190, f02=» 0 p , ( $ W ! T @ P @ " 1 , ( P w 8 P @ @ @ @ T @ , ( @ @ R A *9l! P p , ( &9d! ) W P &9d , ( & _ & , ( P
0x04f664…04f7f8 Dummy {f00=0x0019, f01=0x018e, f02=» S P R % < < ! , ( H s T @ P @ ! 0 , ( D 5 = 8 8P @ ` TT:TRP TT:TRS , ( W $ TT:TON * & @
0x04f7f8…04f98c Dummy {f00=0x0019, f01=0x0190, f02=» , ( @ ! @ @ T I _: TT:HLT 8 * & ( = P @ _ A , A J I:TRC x , ( Y @ A 8 @ ! A , ( s 8P @ @ P @ P , ( @ R @ T @
0x04f98c…04fb20 Dummy {f00=0x0019, f01=0x0190, f02=» R )W A | , ( 8 , A A :B A , ( @ Q (P _ H @ T @ L , ( @ H A " EQ GT | , ( = LT NE NG NL P @ * R , ( ] @ P Q (
0x04fb20…04fcb4 (0, 101) Dummy {f00=0x0019, f01=0x0190, f02=» A l , ( :B A (P _ @ , ( @ @ P @ < , ( V @ Q 1 @ Q Q l , ( +D A " ( R ( @ , ( G$ V @ H ) I " , ( a $
0x04fcb4…04fe48 Dummy {f00=0x0019, f01=0x0190, f02=» P ,T n P )T , ( @ A T @ R ?aP * , , ( :l" T & W T C B B , ( B B B " A A A , ( ? A A A A R Q , ( _ ! 9D# 9hP Q
0x04fe48…04ffdc Dummy {f00=0x0019, f01=0x0190, f02=»Q L % Q | , ( W , ( C L , ( " _* Q P Q V | , ( ? _ W " A < V , ( _ " F <P
0x04ffdc…050170 Dummy {f00=0x0019, f01=0x0190, f02=» A l , ( .T @ *P P " A " , ( X X " , , A A < , ( :B A Q (P _ # # H A " l , ( ; A A 4 4 @ , ( [ I T A A A T A , ( @ { T
0x050170…050304 Dummy {f00=0x0019, f01=0x0190, f02=» n , ( "( @ " :S :X , ( :Y :Z $P W A > , ( + A 0R 9Q 0 A :B n , ( K _" A " , ( k A 0R 9U AR FQ , (
0x050304…050498 Dummy {f00=0x0019, f01=0x0190, f02=» "! R _U .W A : , ( A " 9d ! R . , ( + :W W W W ? ^ , ( K W :W .W / a A T " , ( k @ T A ( , ( @ A "
0x050498…05062c Dummy {f00=0x0019, f01=0x0190, f02=» ! 1 ~ u 4 H D ! . K W e : y V } 6 P R V W V T 0 6 W P H D ! V $ P P 6 L #P ' 0 / ; t CV U : [P H D !o _W e V i 6 oP s w {
0x05062c…0507c0 Dummy {f00=0x0019, f01=0x0190, f02=» W . [ t _ c g k o s $ { d n T n j H D ! . 4 P 4 )V - 1 4 9T EP ] cT < H D ! P W T T W D W : 0 W H D ! 0 V 'PZ 9 T ? EP I L U
0x0507c0…050954 (0, 102) Dummy {f00=0x0019, f01=0x0190, f02=» # / ? : IP M QW WT c l H D ! k u t } 0 0 < 0 0 R Q : j ( H D ! D 6 0 P P P P -P 9T a {P W T t H D ! V 6 P P D 0 T P V T
0x050954…050ae8 Dummy {f00=0x0019, f01=0x0190, f02=» 9 =P` KT X H D ! Q S 4 WPF m T u $ y 6 T P P 0 W" b T W R % H D !1 3T =P A I 0 uPd PL P j j 0 R T V ` H D ! Rt W P RV W b * * * Q P T ' * MP2 UR* H D ! p Y j ] _
0x050ae8…050c7c Dummy {f00=0x0019, f01=0x0190, f02=» !A T 4 R: P T* W T 7 ; ? C G K O S j UR H D ! [Q kP oQ Pl ( P R PL W~ Pz R Tr Qj W" P` QV L H D !`C QL N N W /Q 3P 5Q 9V IW Q f wP W* P T j j H D ! j T P d P d :
0x050c7c…050e10 Dummy {f00=0x0019, f01=0x018a, f02=» j P WH # j + b 1 Z 7R =Q C b Q j | H D ! _ b g j o wR$ }U R Q j T j 0 8 H D !q T R U WV $ ! $ )R /W& 5 V 9W ? V H D ! CW GW KW OW SW Y ] cT g m oT s w
0x050e10…050fa4 Dummy {f00=0x0019, f01=0x4008, f02=»@ j P WH # j + b 1 Z 7R =Q C b Q j | H D ! _ b g j o wR$ }U R Q j T j 0 8 H D !q T R U WV $ ! $ )R /W& 5 V 9W ? V H D ! CW GW KW OW SW Y ] cT g m oT s w
0x050fa4…051138 Dummy {f00=0x0019, f01=0x0190, f02=» > @ IDENT T:DM T,REL=11.0,810209,870137141100 F B T:OPEN T:CLOS T:DCLO T:COMM T:PCOM T:ROLL T:RSTA T:OPCH F T:IXCH T:STCH T:OPEN T:DSB , ( @ 2 2 ! <e T:WRIO
0x051138…0512cc Dummy {f00=0x0019, f01=0x0190, f02=» T:DCLO Z T:COMM f I:EVA0 , , ( Y <H _ ( > I:RT1 n T:PCOM ~ T:GTBY * & u@ R ' T:GDSP , ( ,# ;
0x0512cc…051460 Dummy {f00=0x0019, f01=0x4120, f02=» T:OPCH , ( ! _` C / V I:ERR3 B T:STCH T I:ERR6 h T:IXCH z , ( ,! : V ,!@ : V I:ERR7 ,!@ : ;T {R R
0x051460…0515f4 (0, 103) Dummy {f00=0x001a, f01=0x0190, f02=» > @ IDENT T:DMDI T,REL=11.0,810128,870137141100 T:DDIS T:CDIS T:IDIS F T:DDIS h T:DSB | T:OPCH T:STCH T:SCW2 , ( $ C <H T:IO2 T:C
0x0515f4…051788 Dummy {f00=0x001a, f01=0x4032, f02=» 3$ < @ .870137141100 T:DDIS T:CDIS T:IDIS F T:DDIS h T:DSB | T:OPCH T:STCH T:SCW2 , ( $ C <H T:IO2 T:C
0x051788…05191c Dummy {f00=0x001a, f01=0x0190, f02=» > @ IDENT T:DMPO T,REL=11.0,810128,870137141100 T:DPOS T:IPOS F T:DPOS ` T:DSB t T:OPCH T:STCH T:SCW2 T:GTBY * & I C T:IO2
0x05191c…051ab0 Dummy {f00=0x001a, f01=0x402a, f02=» _" : @ &,810128,870137141100 T:DPOS T:IPOS F T:DPOS ` T:DSB t T:OPCH T:STCH T:SCW2 T:GTBY * & I C T:IO2
0x051ab0…051c44 Dummy {f00=0x001a, f01=0x018e, f02=» > @ IDENT T:IO T,REL=11.0,810713,870137141100 J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 D @ T:IO5 T:FDS0 T:FDSP T:GDSP T:KIPR
0x051c44…051dd8 Dummy {f00=0x001a, f01=0x0190, f02=» p T:KI T:NKI T:WRIT , T:WRIL @ T:LWRI T , ( W / h T:WRIX " T:WRIO & I:EVA0 , ( ! _ C P <H T:S
0x051dd8…051f6c Dummy {f00=0x001a, f01=0x0190, f02=» V C / <H : C T:DSC1 " , ( } C W C 9HR 6 T:DSC2 f , ( ' W 781"&$ 39#$;< '()*+,-! z T:XSTA , ( P _J T:WAIT T:M
0x051f6c…052100 Dummy {f00=0x001a, f01=0x0190, f02=» 1 , ( 5 ( ( T:IO1 f X T:IO2 j j T:IO3 n | I:ER19 * & U 0 W : 1W C C " T:IO5 T:IORE , ( s (
0x052100…052294 (0, 104) Dummy {f00=0x001a, f01=0x018e, f02=»N , ( I B T:EDWR < I:EDW P , ( P B P B 5 : ` T:EDWE T:EDWF , ( @ C C C B T:EDWI I:ERR
0x052294…052428 Dummy {f00=0x001a, f01=0x018e, f02=» , ( E ( ' P I : I:EVA7 4 , ( e % Y C F I:ERR5 v * & & C , ( : B T T:FDS0 T:GDSP
0x052428…0525bc Dummy {f00=0x001a, f01=0x0190, f02=» I:FML I:ER1A , ( #? ;B V D & , ( W ,"? :D;B D V V T:DS15 @ T:DS25 D I:ER1D , ( 1 : _B W "!@ I:ER12 I:E
0x0525bc…052750 Dummy {f00=0x001a, f01=0x0190, f02=» T:FDSP , ( T C B C : D : T:GTBY L , ( : C : ` T:SCW2 T:DSCX I:EVA2 , ( " : ,V $ : & I:ERR2 ,
0x052750…0528e4 Dummy {f00=0x001a, f01=0x4178, f02=» ! Q ) : H D !~ W n " f % - 1P G L K j O S _P eV u y H D !V W R W P W W eW P6 b H D ! } P& V W P P P @ P @ H D !8 !T OP S
0x0528e4…052a78 Dummy {f00=0x001a, f01=0x0190, f02=» > @ IDENT T:CW T,REL=11.0,810615,870137141100 F B T:GCW2 T:GTCW T:SCW2 T:STCW T:SCW0 T:BCDB T:BINB T:KIAA F T:KIAC T:STCW I:EVA2 T:SCW0 , ( @ #0 T & C C : C
0x052a78…052c0c Dummy {f00=0x001a, f01=0x0190, f02=» X R _ S W T:GTCW I:ERR2 4 * & 4 _T :#0 T B 'W F T:BINB t , ( B B " : , ( P P L , ( R R _ R
0x052c0c…052da0 Dummy {f00=0x001a, f01=0x0190, f02=» R T U x , ( [ :J a B@ ' d w5 1 T:KIAA H T:KIAC T:GCW2 p * & { , ( #0 T B ' : B T:SCW2 , ( B :
0x052da0…052f34 (0, 105) Dummy {f00=0x001a, f01=0x4088, f02=»P YP, aV mR wS yW T W r r @ < PR ^ R R Q %P -P =P MR T P T . r@ { , ( #0 T B ' : B T:SCW2 , ( B :
0x052f34…0530c8 Dummy {f00=0x001a, f01=0x0190, f02=» > @ IDENT I:EPIC T,REL=11.0,810625,870137141100 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ !FF A
0x0530c8…05325c Dummy {f00=0x001a, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:ERRD : , ( W :P # U J 1 p ! L I:SCB | , ( 00T ; _ 9P F " X> # ; W )0_B , ( J R Z R 4! P ;)0
0x05325c…0533f0 Dummy {f00=0x001a, f01=0x4156, f02=» , ( k ,_ 8 _ :P K _ p 8 8 , ( !++P !-- z ;$# + ^$ _* 4 $ |`. PT*AXYZ9 d H D ! ` %P +T /W 5T AP GT KW OR S P Wv W@ Wn H D ! T& W4 P T W F WH P" U T P
0x0533f0…053584 Dummy {f00=0x001a, f01=0x0190, f02=» > @ IDENT I:NTP T,REL=11.0,810630,870137141100 B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 F I:MOV I:ADD I:SUB I:CMP I:MUL * & T
0x053584…053718 Dummy {f00=0x001a, f01=0x0190, f02=»:DLT I:MCH I:XCP I:EDS , , ( / < A l I:TRC N I:RST P T:CSEG I:NTPA T I:NTPB T , ( O V T P T
0x053718…0538ac Dummy {f00=0x001a, f01=0x0190, f02=» @ " P W @ NR I:NTPR , I:CHK @ , ( $ & P I:EVA0 I:EVA2 , ( pV 9c D 9a1 P ( I:RT2 , ( @ * Q W
0x0538ac…053a40 Dummy {f00=0x001a, f01=0x0190, f02=» N]p l I:ERR , ( D 0 2 2 P , ( 5 V W _ 2 # ;B V L T:BAT | , ( U T 4W V P L , V , ( s 2P " 2 P V D ! R T , ( V P V " W
0x053a40…053bd4 (0, 106) Dummy {f00=0x001a, f01=0x0190, f02=» 6 V % V E W 2 % , ( ^ 6 E 7_ 2 , T:CAT , ( / # P L 8P ( 2# l , ( K &X 3Y $! 2P , ( @ k R P _ 9BP P _ W , ( @
0x053bd4…053d68 Dummy {f00=0x001a, f01=0x4166, f02=» N ' l W 'W '_8 H D ! " ( ! ( # < % ' ) + < - < = ( H D ! ? A C E G I K M ]P kP P P VV P t H D ! Q W W* P /P ;W< O UT [W wP }P R T P P V|
0x053d68…053efc Dummy {f00=0x001a, f01=0x8190, f02=» > @ IDENT T:ENLI T,REL=11.0,810615,870137141100 T:DNL T:DSL F I:EVNO I:ECPY n I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR * &
0x053efc…054090 Dummy {f00=0x001a, f01=0x8190, f02=» I:ESKI . I:EXPY @ I:RET R I:ATTR b T:DSL , t T:GRFC , ( ! H " $ & ( Y . T:DNL : , ( 5 Y ,W ( Y . X ( X ." P X
0x054090…054224 Dummy {f00=0x001a, f01=0x818e, f02=» . l I:ECTR , ( X . X 2Q Y *T 0 : " , ( P X 0U X *# P P T N I:ER16 ~ T:ENIN , ( " T : " 2 Y . 4 , ( Y ( ( Y *T "
0x054224…0543b8 Dummy {f00=0x001a, f01=0xc01e, f02=» r @ X . X 2Q Y *T 0 : " , ( P X 0U X *# P P T N I:ER16 ~ T:ENIN , ( " T : " 2 Y . 4 , ( Y ( ( Y *T "
0x0543b8…05454c Dummy {f00=0x001a, f01=0x8190, f02=» > @ IDENT T:DEDT T,REL=11.0,810615,870137141100 . * T:TABC T:TABD T:TABE T:TABN T:SCR2 F I:EVNO x I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR , (
0x05454c…0546e0 Dummy {f00=0x001a, f01=0x8190, f02=» z T:DSL I:RET * T:TABC , : T:TABD 0 N T:TABE 4 b , ( ! W W v , ( 5 X 0Q Y ( Y *P T:EDWI I:EVT I:EDSK ,
0x0546e0…054874 (0, 107) Dummy {f00=0x001b, f01=0x8190, f02=»V _` " P T " | T:ENIN T:LOPS . , ( ! P & (W " P Y @ , ( 0] Y (_z P P T p T:EDWF , ( " X _@ " P * X *# P B I:ER16 , ( 1
0x054874…054a08 Dummy {f00=0x001b, f01=0xc136, f02=» P z , ( _@ . C W @ X (T W X y 6 T:TABN J T:RCR ^ " } @ Y ( : X (;n 0 n H D ! /W 3W ;Q ? 2 C 0 OP Q P PR V PL T Ph Wp P P < 8 P T0 P" P W P =P CP IT
0x054a08…054b9c Dummy {f00=0x001b, f01=0x818e, f02=» > @ IDENT I:EDT T,REL=11.0,810615,870137141100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB $ I:FFSN I:EXPY I:RET I:ATTR , (
0x054b9c…054d30 Dummy {f00=0x001b, f01=0x8190, f02=» I:EVA5 I:EVB I:EGTB * I:EVI < I:EVA3 L I:EVA0 ^ * & AUT p I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * &
0x054d30…054ec4 Dummy {f00=0x001b, f01=0x8190, f02=»DSK ~ , ( { 6 K K I:EDT > I:ED1 P I:EDW b , ( K K V K : t I:EVA6 , ( R B " V , ( V Z P 2 "
0x054ec4…055058 Dummy {f00=0x001b, f01=0x8190, f02=»SEG , ( 7 _Z Z [ Z P I:ERR9 < , ( W@ $ [ V N I:RET ~ ~ I:EXIT P:MTAB , ( u@ & 7_ W Z , ( B @ " (! P $ Z 7
0x055058…0551ec Dummy {f00=0x001b, f01=0x8190, f02=» * j I:ETAB , ( @ * : R J P v I < : I:ECPY N , ( J Q : b I:ETXT 4 I:EXPY 4 I:ATTR F I:ECTR H , ( ) P 4 ! T _ P 4 W
0x0551ec…055380 Dummy {f00=0x001b, f01=0x8190, f02=»CW | T:EDWE * & i W _& X ,W X & I:ECWC L I:EFIL ` I:SCB t I:ERRD , ( . J K : V : J T @ 0 1 H D ! U Y 4 [ e r g i | k 8 m
0x055380…055514 (0, 108) Dummy {f00=0x001b, f01=0xc04a, f02=» EWV O QWJ U X WW _ r c n mW. {W V T | 4@ F
0x055514…0556a8 Dummy {f00=0x001b, f01=0x0190, f02=» > @ IDENT T:ENLI T,REL=11.0,810615,870137141100 T:DNL T:DSL F I:EVNO I:ECPY n I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR * &
0x0556a8…05583c Dummy {f00=0x001b, f01=0x0190, f02=» I:ESKI . I:EXPY @ I:RET R I:ATTR b T:DSL , t T:GRFC , ( ! H " $ & ( Y . T:DNL : , ( 5 Y ,W ( Y . X ( X ." P X
0x05583c…0559d0 Dummy {f00=0x001b, f01=0x018e, f02=» . l I:ECTR , ( X . X 2Q Y *T 0 : " , ( P X 0U X *# P P T N I:ER16 ~ T:ENIN , ( " T : " 2 Y . 4 , ( Y ( ( Y *T "
0x0559d0…055b64 Dummy {f00=0x001b, f01=0x401e, f02=» r @ X . X 2Q Y *T 0 : " , ( P X 0U X *# P P T N I:ER16 ~ T:ENIN , ( " T : " 2 Y . 4 , ( Y ( ( Y *T "
0x055b64…055cf8 Dummy {f00=0x001b, f01=0x0190, f02=» > @ IDENT T:DEDT T,REL=11.0,810615,870137141100 . * T:TABC T:TABD T:TABE T:TABN T:SCR2 F I:EVNO x I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR , (
0x055cf8…055e8c Dummy {f00=0x001b, f01=0x0190, f02=» z T:DSL I:RET * T:TABC , : T:TABD 0 N T:TABE 4 b , ( ! W W v , ( 5 X 0Q Y ( Y *P T:EDWI I:EVT I:EDSK ,
0x055e8c…056020 Dummy {f00=0x001b, f01=0x0190, f02=»V _` " P T " | T:ENIN T:LOPS . , ( ! P & (W " P Y @ , ( 0] Y (_z P P T p T:EDWF , ( " X _@ " P * X *# P B I:ER16 , ( 1
0x056020…0561b4 (0, 109) Dummy {f00=0x001b, f01=0x4136, f02=» P z , ( _@ . C W @ X (T W X y 6 T:TABN J T:RCR ^ " } @ Y ( : X (;n 0 n H D ! /W 3W ;Q ? 2 C 0 OP Q P PR V PL T Ph Wp P P < 8 P T0 P" P W P =P CP IT
0x0561b4…056348 Dummy {f00=0x001b, f01=0x018e, f02=» > @ IDENT I:EDT T,REL=11.0,810615,870137141100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB $ I:FFSN I:EXPY I:RET I:ATTR , (
0x056348…0564dc Dummy {f00=0x001b, f01=0x0190, f02=» I:EVA5 I:EVB I:EGTB * I:EVI < I:EVA3 L I:EVA0 ^ * & AUT p I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * &
0x0564dc…056670 Dummy {f00=0x001b, f01=0x0190, f02=»DSK ~ , ( { 6 K K I:EDT > I:ED1 P I:EDW b , ( K K V K : t I:EVA6 , ( R B " V , ( V Z P 2 "
0x056670…056804 Dummy {f00=0x001b, f01=0x0190, f02=»SEG , ( 7 _Z Z [ Z P I:ERR9 < , ( W@ $ [ V N I:RET ~ ~ I:EXIT P:MTAB , ( u@ & 7_ W Z , ( B @ " (! P $ Z 7
0x056804…056998 Dummy {f00=0x001b, f01=0x0190, f02=» * j I:ETAB , ( @ * : R J P v I < : I:ECPY N , ( J Q : b I:ETXT 4 I:EXPY 4 I:ATTR F I:ECTR H , ( ) P 4 ! T _ P 4 W
0x056998…056b2c Dummy {f00=0x001b, f01=0x0190, f02=»CW | T:EDWE * & i W _& X ,W X & I:ECWC L I:EFIL ` I:SCB t I:ERRD , ( . J K : V : J T @ 0 1 H D ! U Y 4 [ e r g i | k 8 m
0x056b2c…056cc0 Dummy {f00=0x001b, f01=0x404a, f02=» EWV O QWJ U X WW _ r c n mW. {W V T | 4@ F
0x056cc0…056e54 (0, 110) Dummy {f00=0x005d, f01=0x2008, f02=» L = KMD26 DATE = 81 09 23 1216PACK NBR = 0026
0x056e54…056fe8 Dummy {f00=0x005d, f01=0x018e, f02=» j 8 P RF(Z) POL150 REQ. DEV. NOT CONNECTED, SEND EOT =10 P CF A5,CPTIM CHECK POLLTIMER D P IFT STARVI=1 h P LD A1,DWTST,A6 GET STATUS ~ P ANK A1,7 " P RF(NZ) POL120 PENDING STATUS P XIF P IFF STARVI+SPECP=0 P LD A1,D
0x056fe8…05717c Dummy {f00=0x005d, f01=0x0190, f02=» P RF(Z) POL170 WRITE REQUEST P XIF , P RF POL150 SEND EOT 8 P EJECT T P* b P* l $ P* GENERAL POLL HAS BEEN RECEIVED v P* P* PGPOLL EQU * P LD A1,XACK " P RF(Z) POL110 ACK NOT EXPECTED P =11
0x05717c…057310 Dummy {f00=0x005d, f01=0x0190, f02=»ER p P ABL BRM WAIT FOR RESPONSE PPOL110 EQU * , " P CF A5,CPTIM CHECK POLL TIMER B P IFF STARVI=0 h P LD A6,DCSTQ ~ & P RF(Z) POL140 NO STATUS TO BE SENT " P SUK A6,DWTOPE GET DWT ADDRESS PPOL120 EQU * P CF A5,TRSTA SEN
0x057310…0574a4 Dummy {f00=0x005d, f01=0x0190, f02=»40 P XIF PPOL130 EQU * P ABL BRM * PPOL140 EQU * : P LD A6,DCWRQ N " P RF(NZ) POL160 WRITE ON QUEUE b PPOL150 EQU * P CF A5,TREOT SEND EOT P RB POL130 PPOL160 EQU * " P SUK A6,DWTOPN GET DWT ADDRESS PPO
0x0574a4…057638 Dummy {f00=0x005d, f01=0x0190, f02=» P ST A8,FECB SAVE ECB ADDRESS P ST A6,FDWTUT SAVE A6 ( P IFF MMUPAG=0 F $ P LDKL A4,MMUBUF MMU WORK BUFFER P ST A4,ECBBA,A8 . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER P XIF & P LD A4,ECBBA,A8 GET BUFFER ADDRESS P LD
0x057638…0577cc Dummy {f00=0x005d, f01=0x0190, f02=» ST A3,FECBRL SAVE LENGTH P CM FBAX RESET BUFFER INDEX " PPOL200 EQU * F P CM XETX RESET 'ETX SENT' Z P CM XSTA | P CF A5,TRTEXT SEND ONE BLOCK & P CF A5,SPTIM START PROCEDURE TIMER P IM XACK SET 'ACK EXPECTED' P RB POL130
0x0577cc…057960 Dummy {f00=0x005d, f01=0x0190, f02=»6,A3 GET DWT-ADDR P RF(NZ) SEL100 P IFT MESPAS=1 0 " P LD A6,DTEDDT,A7 GET DDT-ADDR F P RF(NZ) SEL100 l P XIF P LDKL A6,DTETAB DTETAB ADRR PSEL100 EQU * P LD A1,XACK & P RB(NZ) POL100 ERROR. ACK EXPECTED P IFF
0x057960…057af4 (0, 111) Dummy {f00=0x005d, f01=0x018e, f02=»RRVI SEND RVI P XIF P IFF STARVI=1 " P RF SEL120 8 P XIF J PSEL110 EQU * V P ABL BRM j PSEL120 EQU * z P =2 P IFT STARVI=1 =2 $ P ANK A3,/A WACK SENT OR DB ? =2 P RF(NZ) SEL140 YES =2 P XIF P
0x057af4…057c88 Dummy {f00=0x005d, f01=0x0190, f02=» j $ P CF A15,DCSUPS INCREMENT COUNTER P XIF 0 PSEL140 EQU * < P =2 P P IFF NOWACK=1 =2 ^ P CF A5,TRWACK SEND WACK x P XIF P RB SEL110 PSEL150 EQU * , P CF A5,PRREC PREPARE FOR TEXT RECEPTION P ADK A1,6
0x057c88…057e1c Dummy {f00=0x005d, f01=0x0190, f02=» P* P* PEOT100 EQU * & P CF A5,HPTIM STOP PROCEDURE TIMER , P IFT RCOM=1 V P CM XRB RESET READ BUFFER j P XIF P LD A1,XACK & P RF(Z) EOT120 ACK IS NOT EXPECTED " P LD A6,FDWTUT GET WRITING DWT P RF(Z) EOT11
0x057e1c…057fb0 Dummy {f00=0x005d, f01=0x0190, f02=»PECTED' z PEOT120 EQU * P CM XSEL RESET 'SELECTED' $ P ABL BRM F P EJECT V P* d P* n P* STX HAS BEEN RECEIVED x P* P* PSTX100 EQU * P CF A5,HPTIM P IFT TPMODE=1 P ABL BRM120 INVALID SEQENCE
0x057fb0…058144 Dummy {f00=0x005d, f01=0x0190, f02=» ABL(Z) BRM120 NO BUFFER AVAILABLE P XIF * P IFT STTSTS=1 6 P RF(NZ) STX120 L P* b P* NO BUFFER AVAILABLE l P* P LDK A1,CSSRBY $ P CF A15,DCSUPS INCREMENT COUNTER P ABL BRM120 P XIF PSTX120 EQU * P C
0x058144…0582d8 Dummy {f00=0x005d, f01=0x0190, f02=» P CF A15,DCSUPS P XIF P SUK A3,1 & P RF(NZ) STX170 MESSAGE OK 8 PSTX130 EQU * Z ( P CM XSTA INDICATE 'INVALID MESSAGE' n PSTX140 EQU * P CF A5,TRNAK SEND NAK P ABL BRM PSTX150 EQU * P IFT RCOM=1 P LD
0x0582d8…05846c Dummy {f00=0x005d, f01=0x0190, f02=»GET WRITING DWT 0 P ABL(Z) BRM120 NO ONE WRITING. RESYNCHRONIZE P LDR* A2,A6 GET STA L , P CF A5,PRREC PREPARE FOR TEXT RECEPTION h P LDK A1,0 SET RC=0 ( P CF A5,CWRITE COMPLETE WRITE REQUEST P CM CACK PRESET ACK-1 P RB STX120 R
0x05846c…058600 Dummy {f00=0x005d, f01=0x0190, f02=»ABORT SEQUENCE z P RB EOT120 PSTX170 EQU * ( P IM XSTA INDICATE MESSAGE OK < $ P LD A4,DCRBUF GET BUFFER ADDRESS ` P ADK A4,6 P CW A4,FBLST " P RF(NE) STX180 NOT FIRST BLOCK P IFF RCOM=0 P LDK A1,ESC P CCR A1,A4
0x058600…058794 (0, 112) Dummy {f00=0x005e, f01=0x0190, f02=» P* PENQ100 EQU * & P CF A5,HPTIM STOP PROCEDURE TIMER " P LD A1,XACK L , P RF(NZ) NAK110 RETRANSMISSION OF MESSAGE ` P OR A1,XSEL " P RF(Z) ENQ110 IN CONTROL STATE . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE PENQ110 EQU *
0x058794…058928 Dummy {f00=0x005e, f01=0x0190, f02=»,HPTIM STOP PROCEDURE TIMER P LD A1,XACK $ P RF(NZ) NAK110 ACK EXPECTED 8 P OR A1,XSEL " P RB(Z) ENQ110 IN CONTROL STATE p P RF DLE160 PNAK110 EQU * " P LD A6,FDWTUT GET WRITING DWT P IFF STARVI=0 P LD A1,XSTA
0x058928…058abc Dummy {f00=0x005e, f01=0x0190, f02=»MPUTE BUFFER INDEX P ST A1,FBAX P IFT STTSTS=1 . P* D P* N $ P* COUNT MESSAGES RETRANSMITTED X P* P LDK A1,CSSTRT P CF A15,DCSUPS P XIF P ABL POL200 P EJECT P* P* P* DLE HAS BEEN R
0x058abc…058c50 Dummy {f00=0x005e, f01=0x0190, f02=» P IFT TPMODE=1 P CF A5,READ P CWK A2,STX . * P ABL(Z) STX110 YES - TRANSPARENT TEXT B P XIF p P RB ENQ110 | PDLE110 EQU * & P CF A5,READ READ SECOND CHARACTER P CWK A2,ACKPAR IS IT ACK 0 ? P RF(NE) DLE130 P*
0x058c50…058de4 Dummy {f00=0x005e, f01=0x0190, f02=»F A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER P RB ENQ110 F PDLE130 EQU * X P CWK A2,ACK1 l P RF(NE) DLE180 P* P* ACK , 1 RECEIVED P* P LD A1,CACK GET ACK COUNTER $ P RB(Z) DLE120 ACK,1 NOT EXPECTED
0x058de4…058f78 Dummy {f00=0x005e, f01=0x0190, f02=»ETX BLOCK r P* P LDK A1,0 SET RC=0 PDLE150 EQU * 6 P IFF STARVI=0 J P LD A2,XSTA ` . P RF(NZ) DLE200 STATUS HAS BEEN TRANSMITTED t P XIF ( P CF A5,CWRITE COMPLETE WRITE REQUEST PDLE160 EQU * P CF A5,TREOT SEND EOT
0x058f78…05910c Dummy {f00=0x005e, f01=0x018e, f02=»1,CACK INCREMENT ACK COUNTER P ABL POL200 $ PDLE180 EQU * 8 P CWK A2,RVIPAR IS IT RVI ? L ( P RB(NE) DLE120 INVALID DLE SEQUENCE n " P CM XACK RESET 'EXPECTING ACK' P LD A1,XETX $ P RF(NZ) DLE190 ETX HAS BEEN SENT P LDK A1,2 SE
0x05910c…0592a0 Dummy {f00=0x005e, f01=0x0190, f02=» P* " P* STATUS HAS BEEN TRANSMITTED P* 8 P* B PDLE200 EQU * L " P LD A6,FDWTUT GET DWT ADDRESS ` , P CF A15,REMOVS REMOVE FROM STATUS QUEUE P CM XSTA CLEAR 'STATUS SENT' " P CM XACK CLEAR 'ACK EXPECTED' P LD A1,D
0x0592a0…059434 (0, 113) Dummy {f00=0x0059, f01=0x0190, f02=»ROR t " P EXTRN LENDIS END I/O-REQUEST P EXTRN STABLK START OF BLOCK 2 P EXTRN OUTPUT SEND V P EXTRN ENDBLK END OF BLOCK p 2 P EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER $ P EXTRN ECHRTN RETURN TO KEYBOARD P EXTRN TENDIO END OF I/O
0x059434…0595c8 Dummy {f00=0x0059, f01=0x018e, f02=» EXTRN DWTOR ORDER P EXTRN DWTSB2 STACK BASE P* : P* ECB DISPLACEMENTS D P* b P EXTRN ECBBA BUFFER ADDRESS l " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBRC RETURN CODE P EXTRN ECBCW
0x0595c8…05975c Dummy {f00=0x0059, f01=0x0190, f02=» @ P************************************************************ P* L P* DWT DISPLACEMENTS V P* t & PDWTAP EQU /2 HEAD POSITION POINTER ~ " PDWTBC EQU /1 POSITION COUNTER PDWTLIN EQU /4 LINES PDWTPOS EQU /5 POSITIONS &
0x05975c…0598f0 Dummy {f00=0x0059, f01=0x0190, f02=» NON-DESTRUCTIVE BACKSPACE PLF EQU /0A LINE FEED " PHOME EQU /0B CURSOR HOME > ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME ^ PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTOP EQU /13 U
0x0598f0…059a84 Dummy {f00=0x0059, f01=0x0190, f02=»OP EQU /1F LOW INTENSITY STOP PSPACE EQU /20 SPACE & P* B P* RETURN CODES L P* d " PCCERR EQU /4 CODE CHECK ERROR n P* P* OTHER P* PMINBLK EQU 6 BLOCK SIZE @ PFASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WIT
0x059a84…059c18 Dummy {f00=0x0059, f01=0x0190, f02=»* @ P************************************************************ P DATA DVBLEN BUFFER LENGTH N P DATA 2 DEVICE INDEX p PDYAD EQU * ( P DATA ACDY DRIVER ACTIVATION ADDRESS P DATA ABDY ABORT ROUTINE P DATA 0 NO INTERRUPT HANDLER
0x059c18…059dac Dummy {f00=0x0059, f01=0x018e, f02=»********** ^ P* P* CONDITIONAL ASSEMBLY P* < @ P************************************************************ F P* 4 P* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT < P* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR")
0x059dac…059f40 Dummy {f00=0x0059, f01=0x0190, f02=» P* P* H P* BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344 P* 6346, 6385 AND 6386. d P* PX:B EQU 0 PWHATDY EQU X:B P* P* 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR & P*
0x059f40…05a0d4 (0, 114) Dummy {f00=0x0059, f01=0x0190, f02=»Y IT IS POSSIBLE l 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 T P* PX:D EQU 0 PEORECH EQU X:D P* 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS T P* POSS
0x05a0d4…05a268 Dummy {f00=0x0059, f01=0x0190, f02=» 2 P* BY SETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKING. : P* Z PX:F EQU 1 d PSTEADY EQU X:F v P* 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- . P* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT , P* CHAR
0x05a268…05a3fc Dummy {f00=0x0059, f01=0x0190, f02=»E P* 4 I/CH P* 5 S/SF P* 6 DK/N * P* 7 P : P* 8 YU H P* 9 US V PX:G EQU 0 d PCOUNTRY EQU X:G v P* & P* MEMORY MANAGEMENT BUFFER SIZE P* PX:H EQU 82 PDVBLEN EQU X:H P* P* MAXIMU
0x05a3fc…05a590 Dummy {f00=0x0059, f01=0x0190, f02=»UDED IN SYSTEM =4 Z P* PX:I EQU 0 $ PPLASM EQU X:I 6 P* L 2 P* IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4 V P* CHARACTER SET =4 P* PX:K EQU 0 =4 PGREECE EQU X:K =4 P* 4 P* IF DISPLAY VD 87 IS US
0x05a590…05a724 Dummy {f00=0x0059, f01=0x0190, f02=»***************************** x P* & & P* A C T I V A T I O N P A R T 0 P* Z 4 P* THIS PART MAKES A START OF BLOCK, CHECKS THE d 8 P* REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE P* PART OF THE DRIVER. P* < P******
0x05a724…05a8b8 Dummy {f00=0x0059, f01=0x0190, f02=»DEV,A6 CLEAR CHARACTER COUNTER $ P LDKL A2,MAXBLK MAX. BLOCK SIZE & P CF A5,STABLK START OF BLOCK N P RF(NZ) DYER10 r P* P* TEST ORDER P* P LDR A7,A7 GET ORDER & P RF(Z) DY100 ORDER 00, TEST STATUS P* P SUK A
0x05a8b8…05aa4c Dummy {f00=0x0059, f01=0x0190, f02=» SUK A7,/5 0 P ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE P* F P SUK A7,/26 P " P ABL(Z) DY700 ORDER 31, ERASE d P IFT VD87=1 =7 P ADK A7,/A 0 P ABL(Z) ORD27 ORDER /27, TRANSFER PARAMETERS P XIF P* P* I/O-RE
0x05aa4c…05abe0 Dummy {f00=0x0059, f01=0x0190, f02=»CT P* @ P************************************************************ P* X P* ORDER 00, TEST STATUS. b 8 P* THIS PART SENDS A DUMMY CHARACTER TO THE DISPLAY : P* AND SETS BIT 15 IN THE RETURN CODE IF THE DISPLAY P* IS NOT
0x05abe0…05ad74 (0, 115) Dummy {f00=0x005a, f01=0x0190, f02=»* PDY300 EQU * P* P* TEST REQUESTED LENGTH ( P* J 6 P LD A2,ECBRL,A8 GET REQUESTED LENGTH. IS IT ZERO ? T P RF(Z) DY307 YES ! P* P* TEST CONTROL CHARACTER P* PDY305 EQU * & P LD A2,ECBBA,A8 GET BU
0x05ad74…05af08 Dummy {f00=0x005a, f01=0x0190, f02=» A2,/2B $ P RF(Z) DY335 NO MOVING OF CURSOR PDY307 EQU * 8 P* L 0 P LDK A4,1 FIRST POSITION AND ONE LINE FEED. V 8 P SC A4,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER P* P SUK A2,/5 TWO LINE FEED ? P RF(NZ) DY310 NO !
0x05af08…05b09c Dummy {f00=0x005a, f01=0x0190, f02=»RACTER MEANS ERASE r P* P LDK A2,CR CARRIAGE RETURN $ P* F PDY320 EQU * P P CF A5,OUTPUT SEND d PDYER10 RF(NZ) DYER15 ~ P* P SUK A4,1 READY ? 0 P RF(N) DY335 YES ! START WRITING ON DISPLAY P* < P LC A1,DWTLI
0x05b09c…05b230 Dummy {f00=0x005a, f01=0x0190, f02=» . P LDKL A2,/100 NO ! INCREMENT LINE COUNTER ! P ADS A2,DWTAP+DWTDEV,A6 ! : PDY325 EQU * ! Z " P LDK A2,LF LINE FEED CHARACTER ! n " P RB DY320 SEND NEXT LINE FEED ! P* ! PDY330 EQU * ! . P SC A4,DWTAP+DWTDEV,A6 RESET LINE COUNTER ! (
0x05b230…05b3c4 Dummy {f00=0x005a, f01=0x0190, f02=»* ! P* " 8 P* WRITING PART, ORDER 06 (ALSO USED BY ORDER 0B). " P* " P P* " Z PDY335 EQU * " d P IFT TRASPA=1 " x * P CF A15,TRASP SUPPRESS TRAILING SPACES " P XIF " PDY340 EQU * " 0 P CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER
0x05b3c4…05b558 Dummy {f00=0x005a, f01=0x018e, f02=» P XIF # P* # P LDR A4,A2 CHECK CODE LIMITS # P SUK A4,/20 # > * P RF(N) DY380 TEST IF SPECIAL CHARACTER # R P SUK A4,/5F # * P RF(P) DY380 TEST IF SPECIAL CHARACTER # P IFT FASTO=1 # P IFT WHATDY=1 # 6 P LDK A4,0 RESET A4 BEFORE EN
0x05b558…05b6ec Dummy {f00=0x005a, f01=0x0190, f02=» P IFT FASTO=1 $ P* $ P* $ " 2 P* FAST OUTPUT SHOULD BE USED IF A NUMBER OF $ , $ P* CHARACTERS ARE FOUND EQUAL. $ b P* $ P* $ & P LD A1,ECBBA,A8 GET BUFFER ADDRESS $ P ADR A1,A3 ADD BUFFER INDEX $ P* $ P* $ 4 P LC A4,D
0x05b6ec…05b880 Dummy {f00=0x005a, f01=0x0190, f02=»1 INCREMENT CHARACTER COUNTER $ 6 P CCR A2,A1 NEXT CHAR. IN BUFFER EQUAL TO CURRENT ? % & P RF(NE) FAST40 NO ! % ` P* % | , P CC A4,DWTPOS+DWTDEV,A6 MAX. POSITIONS ? % P RF(NL) FAST40 YES ! % P* % & P CW A3,ECBRL,A8 REQUESTED LENGTH ? % P R
0x05b880…05ba14 (0, 116) Opaque[0x194]
0x05ba14…05bba8 # DirEnt {nam=»SYSGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0378, f03=0x0000}
0x05ba14…05bba8 IdxSect {
0x05ba14…05bba8 f00 = 0x001b // 0x5ba14 @0x0
0x05ba14…05bba8 f01 = 0x0026 // 0x5ba16 @0x2
0x05ba14…05bba8 gno = [ // 0x5ba18 @0x4
0x05ba14…05bba8 [0x00]: C0x001b.0x3.0
0x05ba14…05bba8 [0x01]: C0x001c.0x0.0
0x05ba14…05bba8 [0x02]: C0x001c.0x1.0
0x05ba14…05bba8 [0x03]: C0x001c.0x2.0
0x05ba14…05bba8 [0x04]: C0x001c.0x3.0
0x05ba14…05bba8 [0x05]: C0x001d.0x0.0
0x05ba14…05bba8 [0x06]: C0x001d.0x1.0
0x05ba14…05bba8 [0x07]: C0x001d.0x2.0
0x05ba14…05bba8 [0x08]: C0x001d.0x3.0
0x05ba14…05bba8 [0x09]: C0x001e.0x0.0
0x05ba14…05bba8 [0x0a]: C0x001e.0x1.0
0x05ba14…05bba8 [0x0b]: C0x001e.0x2.0
0x05ba14…05bba8 [0x0c]: C0x001e.0x3.0
0x05ba14…05bba8 [0x0d]: C0x001f.0x0.0
0x05ba14…05bba8 [0x0e]: C0x001f.0x1.0
0x05ba14…05bba8 [0x0f]: C0x001f.0x2.0
0x05ba14…05bba8 [0x10]: C0x001f.0x3.0
0x05ba14…05bba8 [0x11]: C0x0020.0x0.0
0x05ba14…05bba8 [0x12]: C0x0020.0x1.0
0x05ba14…05bba8 ]
0x05ba14…05bba8 }
0x05bba8…05bd3c Dummy {f00=0x001b, f01=0x0190, f02=»y _ ~ _ ~ f ~ n 4 ~ o ~ v , ~ z v ~ } l ~ J ~ ~ f ~ :C H A M d H R M d PB " P :C_ @ 9C E ^ d V V ( T # Y$ @ h ( W A (
0x05bd3c…05bed0 Dummy {f00=0x001b, f01=0x0190, f02=» A , A * @ . ) @ 0 I L l % (Z W 2 A @ ~ A A ~(@ ( @ A A @ A A @ A A @ A V A : 2 (
0x05bed0…05c064 Dummy {f00=0x001b, f01=0x0190, f02=» 2 _ :C H A M H R M " P :C_" @ 9C E ^ V
0x05c064…05c1f8 Dummy {f00=0x001b, f01=0x0190, f02=» T ^ c T A V >c U T U U UT& U T V =A T P N U =a ^: ^V @ , @ N pDISC ERROR & ( $ ( " $ ( $ x ( * S N A _ 6 @ P T p:a R
0x05c1f8…05c38c Dummy {f00=0x001b, f01=0x0190, f02=» @ b 4 = / M ~ Q T R N S T x Y R G P . H L V I U Z X Z $ (_~ R A A ,_ NO! A ^ A ` A f A h A b A d A X A V A Z > *T A V_ P A Z A ` . , + - ; . : D f X " H PW&
0x05c38c…05c520 Dummy {f00=0x001b, f01=0x0190, f02=» 4 > " 4" @ > @ h >P A jP A j @ j >W A j A h A h_D @ V @ ZT 4 " ( ^ @ XP A d A b " 4 @ hP @ j ^ > @ d T @ J @ LW @ d @ j @ hT @ ^ > A J A L 8W $W 0 ,_8 PW pW
0x05c520…05c6b4 (0, 117) Dummy {f00=0x001c, f01=0x0190, f02=»P @ X 0 4 P @ * 4 @ 4 h @ $ ` " 0V U _( LOADED SEGMENTS NO: T @ L @ J W" @ ^T @ dW @ ` @ d @ j @ hT @ ^ > >a @ f A
0x05c6b4…05c848 Dummy {f00=0x001c, f01=0x0190, f02=» l P 3P 4 C @ bP8 @ d @ P* @ j @ hT @ ^T Q @P @ f Q A @ A f " T @ PW @ d @ hP @ j ^T A , A > A ,P * A ( (@ A , @ ( * B A A A P @ P A A h * A @ P A
0x05c848…05c9dc Dummy {f00=0x001c, f01=0x0190, f02=» U P ^ @ W$ T p:a R U T p9a Z _ = 6:A , 6 9a @ P 4 A @] _ A B D EMPTY TABLE T 0 0 P * P _ @ d A * A 4 @ d @ ` @ ^P R( <a @ hP @ jW @
0x05c9dc…05cb70 Dummy {f00=0x001c, f01=0x0190, f02=» <a A t @ P" @ hP @ jW @ Q UP 4_8 P TR P 4 A ) " A > | H : A > @ P 4 @ <a Q UP 4_ @ d @ bT A A ~ TPB @ ^PD > > F 4 @ ` ! T $ P A @ d A # A
0x05cb70…05cd04 Dummy {f00=0x001c, f01=0x0190, f02=» A > W R: ( T D V $ W ( W P T $ ; V ; Wp&~ P &`P 6 P @ t$ P $ TH P@#~ > V . >A P Y P X PW ^ ? ? @ t ' P Y Y @ t" P A A A A W ^ P 6_ " ^
0x05cd04…05ce98 Dummy {f00=0x001c, f01=0x0190, f02=» ? ? ? ? ? A @ ^ @ t ? ? t P > > > > > > > > n l ? ? ? ? ? ? ? n > A t > A P A P n ^ " , , A A :B W " , A :b A A A Q (P _ # # H A " > A 0R$
0x05ce98…05d02c Dummy {f00=0x001c, f01=0x0190, f02=» A A " R _U . 6 " A W A :H: A " , " 0 " 1 " ! R :W& 6 W 6 W W ?W /W :W A W ! A A h A hA Pf _ ? @ hT A I > > > @ _ I T A h " T
0x05d02c…05d1c0 Dummy {f00=0x001c, f01=0x0190, f02=» > | 2 I R^ A J <a P TV RD_ M A P6 T @ ~T. @ P A W ` @ @ P @ T A zP A x< V A x TT <a P T;A;a A A : (@ ( : 4R P ( Z T 5 _$ : 4P^R` 7 < % ) ! P #
0x05d1c0…05d354 (0, 118) Dummy {f00=0x001c, f01=0x0190, f02=»_ : 4R T k $X R _$ : A 0 ) A W W W W W L C C ( " # C C ( B Rp : . _: N A @ N " T ; A N ( A N @ N$ A N !YYP$ !NNP !$$T !## ~ W :
0x05d354…05d4e8 Dummy {f00=0x001c, f01=0x0190, f02=» :ASM /S * ********************* P lR D r ! P ) _ _ : | A L_, DTOSS TOSSWORK A A A A A A A A A t : A t
0x05d4e8…05d67c Dummy {f00=0x001c, f01=0x0190, f02=»
0x05d67c…05d810 Dummy {f00=0x001c, f01=0x0190, f02=»MOV ,/S,TOSSWORKINC ,TOSSWORK KPF /S,0 ASG /E0,TY10!!EN DATA 00!!DL LED KPF /O I/O ERROR SCR 9 r 8R T 5 _ T A r^_" @{^ 00 A; A" A# A;p A$ A.f A-N A/
0x05d810…05d9a4 Dummy {f00=0x001c, f01=0x0190, f02=» A& A( A) A* A8 A9 A: A:r A: A.h A-P A/ A0h A14 A1 A2 A3 A<J A3 A5j A4$ A7 A6 A56 A8r A; A$ A:. @s P < A!( 02 A < @s P 02 A H @ P DR A @ @ A A A A A @r P DR A @r P DR A !P = L D> @rj A
0x05d9a4…05db38 Dummy {f00=0x001c, f01=0x0190, f02=» WB @$h AS8 @$j AS: Q W" P ! T R G Y : I $ I I2 @ P @' SP NUT 1 A' @ P @(` SP NUT 1 A(` 0 A( @$ SP 1P ATJ AI& 1 @+ SP NUT A+ @( @$ SP 1P AT4 I @=X ST 00 A=XW NU
0x05db38…05dccc Dummy {f00=0x001c, f01=0x0190, f02=» A A AF ~ A WP ~01 01 01 01 01 01 01 01 01 00 0000 00 00 LED DRND01 J X . ~ !P = : @ @ @ @ @ @ @r P 01W 00 A @s P 01W 00 A @ P 01W 00 A
0x05dccc…05de60 Dummy {f00=0x001c, f01=0x0190, f02=» LOADING FROM MINIFIX DISC : LOADING FROM 80 MB CDC DISC : LOADING FROM 16 MB CDC DISC : CONFIGURATION FILE CHECK : SYSLOD ADAPTION LED SYSLODLED SYSLDMSYSLOD DRKB04DRTP02DRGP01DRDN01DRDI01DRDY02DRLT01DRSU01DRCG01DRCD01DRMS02DROD01DRTP03DRGP02DR
0x05de60…05dff4 (0, 119) Dummy {f00=0x001c, f01=0x0190, f02=»DRCR01DRIC01000000DRDC07DRDC15DRDC17DRDC81DRDC82DRDCXXDRDCYYDRDC22DRDC13DRDC23DRDC25X25:L3DRCC01 ******************** D R I V E R S ********************* $ " %Z& & ) & (8 : 9 : ; < =~=65J6,7 8.4 ' +n 4 )d+ 8 9 <^< :H; -l+ . / 0 1P1 2*3:3 5~= = = = =
0x05dff4…05e188 Dummy {f00=0x001c, f01=0x0190, f02=»: CUT/PERFORATE JOURNAL TAPE : SPECIAL CHARACTER /13 : SPECIAL CHARACTER /14 : COMPLETION OF REQUEST IF PRINT OBJECT IS REMOVED : END OF REQUEST WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : ROOMLESS POINT CODES : MMU BUFFER SIZE (BYTES) : WR
0x05e188…05e31c Dummy {f00=0x001c, f01=0x0190, f02=»ON OF REQUEST IF PRINT OBJECT IS REMOVED : INDICATION OF RECOVERY IN RETURN CODE (/80) : END OF REQUEST WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : ROOMLESS POINT CODES : MMU BUFFER SIZE (BYTES) : KEYBOARD TIMEOUT : ECHO FUNCTION : COMPLETION O
0x05e31c…05e4b0 Dummy {f00=0x001c, f01=0x0190, f02=»KEYBOARD LOCK IF NO KEYLOCK ON : MMU BUFFER SIZE (BYTES) : MMU KEY TABLE SIZE : KB 6236/71/72 IN SYSTEM : OTHER THAN KB 6236/71/72 IN SYSTEM : 00 ROOMLESS POINT CODES : SPECIAL CHARACTER /13 : SPECIAL CHARACTER /14 : ECHO FUNCTION : ECHOIN
0x05e4b0…05e644 Dummy {f00=0x001c, f01=0x0190, f02=»WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : MMU BUFFER SIZE (BYTES) : ORDER,WRITE NUMERIC DISPLAY : MMU BUFFER SIZE (BYTES) : ORDER,WRITE PROGRAM DISPLAY : FLASH FUNCTION : LOGG FUNCTION FOR INPUT/OUTPUT CHRS : NUMBER OF LOCAL CHANNEL UNITS
0x05e644…05e7d8 Dummy {f00=0x001c, f01=0x0190, f02=»DATA REQUESTS FROM PRINTERS : 01 NUMBER OF CASSETTE DRIVES : ORDERS LOCK,ERASE AND REVERSE ONE BLOCK : MMU BUFFER SIZE (WORDS) : LOGG FUNCTION FOR INPUT/OUTPUT CHRS : NUMBER OF LOCAL CHANNEL UNITS : ACKUMULATORS FOR NAK,RETRANSMISSION FAULT AND
0x05e7d8…05e96c Dummy {f00=0x001c, f01=0x0190, f02=»CAL PRINTER : KEYBOARD LAMPS CONNECTED DIRECTLY TO VDU : 01 KEYBOARD TIMEOUT : COMPLETION OF READ REQUEST AT POWER ON : MMU BUFFER SIZE (WORDS) : FAST OUTPUT USED FOR CONSECUTIVE EQUAL CHARACTERS : OTHER DISPLAYS THAN 6344/46/47/85/86 IN SYSTEM
0x05e96c…05eb00 Dummy {f00=0x001c, f01=0x0190, f02=» (ELSE TWINKLING) : COUNTRY CODE ON 6385 (0-9) : MMU BUFFER SIZE (BYTES) : DY 6385/86 IN SYSTEM : READ AFTER WRITE : NUMBER OF DISC UNITS : UNPACKED DISC FORMAT : PACKED DISC FORMAT : 00 EXTRA SOP INPUT DWT : FLASH FUNCTION : RECEIV
0x05eb00…05ec94 (0, 120) Dummy {f00=0x001c, f01=0x0190, f02=»ING : TRANSMIT BLOCK LENGTH : EBCDIC CODE ( ELSE ASCII ) : SPECIFIC POLL HANDLING : LINE SPEED HIGH : SIEMENS MSV1 PROCEDURE : NUMBER OF RECEIVE BUFFERS : 00 PHYSICAL LINE NUMBER : IBM CHARACTER HANDLING : MESSAGE PASSING : IBM-3270 PACKA
0x05ec94…05ee28 Dummy {f00=0x001c, f01=0x0190, f02=»-14) : RECEIVE BUFFER LENGTH : IO-PROCESSOR (ELSE PC) : WIRE 2/4 : SUBTERMINAL ADRESSING : REJ FRAME SUPPORT : MESSAGE PASSING : STATISTIC COUNTERS : INTERRUPT LOGGING : 00 PHYSICAL LINE NUMBER : MMU BUFFER SIZE (WORDS) : NUMBER OF LI
0x05ee28…05efbc Dummy {f00=0x001c, f01=0x0190, f02=»SSION/DECOMPRESSION : IDLE LINE ACTIVITY TIME-OUT : STATISTIC COUNTERS : LOGG AREA LENGTH PER LINE : 00 PHYSICAL LINE NUMBER : 34 04 05 MMU BUFFER SIZE (WORDS) : NUMBER OF LINES : POLL LIST LENGTH : MAX BLOCK LENGTH : LOGAREA LENGTH :
0x05efbc…05f150 Dummy {f00=0x001c, f01=0x0190, f02=»ORDS) : TRANSPARENT MODE : NUMBER OF LINES : POLL LIST LENGTH : INTERRUPT LOGGING : RETRY LIMIT : PHYSICAL LINE NUMBER : 34 04 05 06 07 32 33 35 36 37 38 MMU BUFFER SIZE (WORDS) : RECEIVE BUFFER LENGTH : DC-TASK DATCOM FILE CO
0x05f150…05f2e4 Dummy {f00=0x001c, f01=0x0190, f02=»DE : PHYSICAL LINE NUMBER : MMU DEVICE BUFFER : RECEIVE BUFFER LENGTH : NUMBER OF RECEIVE BUFFER (3-14) : INTERRUPT LOGGING : POLL TIMEOUT VALUE : SUPPRESS NULL CHARS. : 00 PHYSICAL LINE NUMBER : AUXILIARY DEVICE HANDLING : UNISCOPE EMU
0x05f2e4…05f478 Dummy {f00=0x001c, f01=0x0190, f02=»CODE : INTERRUPT LOGGING : NUMBER OF RECEIVE BUFFERS (2-4) : POLL TIME-OUT VALUE : PHYSICAL LINE NUMBER : MMU BUFFER SIZE : NUMBER OF LINES : RECEIVE BUFFER LENGTH : MMU BUFFER SIZE : LOGG FACILITY : RETRY LIMIT : TIMERS T1,T2 : MAX OU
0x05f478…05f60c Dummy {f00=0x001c, f01=0x0190, f02=»01 ORDER DISPENSE AND DELIVER SPLIT INTO ORDERS DISPENSE,DELIVER,DUMP (Y/N) : MMU BUFFER SIZE : ORDER TEST OUTPUT BUFFER : MMU BUFFER SIZE : NUMBER OF LINES : 01 PHYSICAL LINE NUMBER : 34 04 05 LINE ACCESS PROCEDURE ABM (ELSE ARM) : IO
0x05f60c…05f7a0 Dummy {f00=0x001c, f01=0x0190, f02=» ON IOP (ELSE PROGRAMMED CHANNEL) : SCREEN CHARACTER GENERATOR - TYPE : SCREEN CHARACTER SET : ECHO OF EOR KEY : SUPRESSION OF TRAILING BLANKS : MMU BUFFER SIZE : NATIONAL CHARACTER VARIATION (1-15) : FRICTION FEED : FRONT FEED : PAGE LEN
0x05f7a0…05f934 (0, 121) Dummy {f00=0x001d, f01=0x0190, f02=»(PITCH) : 00 END OF REQUEST WHEN PRINTER IS INACTIVE : ORDER SET FORM PARAMETER : NATIONAL CHARACTER VARIATION : RECEIPT STATION IN PRINTER : MMU BUFFER SIZE : END OF REQUEST WHEN SELECTOR UNIT OR PRINTER IS INACTIVE : LP ON PROGRAMMED CHA
0x05f934…05fac8 Dummy {f00=0x001d, f01=0x0190, f02=»T (DM & PAGING) : IBM LABELLED DISC HANDLING : ORDERS FOR MOTOR START/STOP (6805 ONLY) : MMU BUFFER SIZE (WORDS) : COMPLETION OF READ REQUEST AT POWER ON : CIRCULAR INPUT BUFFER SIZE : MMU BUFFER SIZE (BYTES) : MMU KEY TABLE SIZE : CR ON PR
0x05fac8…05fc5c Dummy {f00=0x001d, f01=0x0190, f02=»ER VARIATION (1-11) : CHARACTER FONT (0-3) : CHARACTER PITCH DOCUMENT (2-0) : JOURNAL STATION IN PRINTER : CHARACTER PITCH JOURNAL (2-0) : PARAMETER ORDERS : MMU BUFFER SIZE (BYTES) : END OF REQUEST WHEN PRINTER IS INACTIVE : MMU BUFFER SIZ
0x05fc5c…05fdf0 Dummy {f00=0x001d, f01=0x0190, f02=»MENT LENGTH : MMU BUFFER SIZE : READ AFTER WRITE : READ AFTER WRITE : NUMBER OF DISC UNITS : READ AFTER WRITE : TOSS HANDLING : IBM HANDLING : LOGG FUNCTION FOR INPUT/OUTPUT CHRS : NUMBER OF LOCAL CHANNEL UNITS : 01 NUMBER OF
0x05fdf0…05ff84 Dummy {f00=0x001d, f01=0x0190, f02=»LOCAL CHANNEL UNITS : 01 AB JW &P . = & >h A> 8R P &P~ G MH @S8 P 0 X DCX: !SSP B X 5:T Wh > D( & * A AF AF AF A W @y P D(W @y T C W( C W" @{^ @{f @ @ @{h
0x05ff84…060118 Dummy {f00=0x001d, f01=0x0190, f02=» Z6T 5W _B : @b @ R P @S8 5 P @S: U P @S; U @?8 D P P P P P @ T D > > P D > :h H? P :? ? @8 @L@ @ @* 4 0P 0 A) : 4 0T 15 A( : 4 0P 1 A< : 4 0Q 0 A% A% 4 0P 0 A) : 15 A( : 4 0T
0x060118…0602ac Dummy {f00=0x001d, f01=0x0190, f02=» J T # R dR W ! C< C> C<P( R S8 S8_ 00 S8 ^ C< @S8:HV. !YYT 1;BV 8W !NNT 0;BV : AE _ PS8 !00Z !99Y @S8 QD @?8 T6 R dR W Q A,$ @?8 Yr @S8 @?8 D
0x0602ac…060440 Dummy {f00=0x001d, f01=0x0190, f02=» # R dR W ! P P AG T AG F W AF F W AF F AF AF AF _ P AB G E : ! P@ A, @S8 !SSP& A, !NN A, @?8 I H @ Y AS8_ HS8 !,,T A, W. !00 A, !FF A, !99U !AA A,
0x060440…0605d4 (0, 122) Dummy {f00=0x001d, f01=0x0190, f02=»A A, @{jP HN # @{^P Hr # @ P H # @ P H # @{fP H # @{hP I # @|@P H0 P : I( : A t : F @r P @9 0T^ F @s P0 @+ 0T F @,2 0T& A AF F W
0x0605d4…060768 Dummy {f00=0x001d, f01=0x0190, f02=»A, AE @E P @E AE A, X 23P 17P 81P 82T @E A,W @E _ @E _ <C F" X Q 0 aE @?8 AE X 17T @E AE W 9B AE @E T AE _ ?4 @F" 5_ 9 P 0R Q < 9h " : _ @$* 0T 00 A
0x060768…0608fc Dummy {f00=0x001d, f01=0x0190, f02=» 394647 EBCDIC LED EBCDIC!!DL 34,65!!DL 75,91!!CH $$EQU X:B$$EQU 0$$ !!CH $$ X:A$$ $$ !!CH $$ X:A$$ $$!!CH $$ X:A$$ $$ LED DVTKB : !!CH $$/2122,/2426,/3B3C,/3E40,/5E5F$$/ ,/ ,/ ,/ ,/ $$ DATA 0,0,0,0,0,0,0,0 !!DL 45 G|
0x0608fc…060a90 Dummy {f00=0x001d, f01=0x0190, f02=» !!CH $$EDM EQU 0$$EDM EQU 1$$ !!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ !!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ !!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$ASSOLY EQU 0$$ASSOLY EQU 1$$ !!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$
0x060a90…060c24 Dummy {f00=0x001d, f01=0x0190, f02=» P I :. I :LED DVTOD @r T I :DRIC0X @$* SP ECP 1P AT$ :DC : J : ( SP MMT W ( O P :!!IL 48 @S8 !SS @ S 5 ?4 @S8 JF A, @S8 5 E T :h" P 0R U Q P <H9D_(
0x060c24…060db8 Dummy {f00=0x001d, f01=0x0190, f02=» T~ Y Y| Z PF 01 7 MF r^ S AMB K T _@ 7 @Y Y AY R _^ @] PV Ag @Y P Y A] A] ] E AY} 01 AY~ ^ T S _ Ag 7 a & CD Arp Ar CG Arn Ar : 4R P @] ! P ]
0x060db8…060f4c Dummy {f00=0x001d, f01=0x0190, f02=» _D W W X Q^ R R _ ]T 4P 1 AL @Y 7 Y 01 7 @]T , 7 4 W V T1P TNP G1P G2P T2P TPT, 1 0P 1T W AMD / AL @MD W AL AY R 4^ A]T @MB : S8 ( @ N$ !;;P6 ! P0 ! X
0x060f4c…0610e0 Dummy {f00=0x001d, f01=0x0190, f02=»S8 MFR *Pr_ 7 O P^ "T @+n 1T V SIT TF P, LS: !,,T2 U, LS8 LS99H # O _4 # A]T : M @S8 7 O : V DIT Q ,0W8 @S8 P KB ]H V MTT 0P R| @ & I 7 P& @S9 !,, M @S: R| C
0x0610e0…061274 (0, 123) Dummy {f00=0x001d, f01=0x0190, f02=» @Y P EOh @S8 _D T :h" P 0R U Q P <H9D_( : M ^2 @S8 V M V M M N` M @S8 O 9H @S: O A Pl M V KBT bqP brP b6T b6 bA
0x061274…061408 Dummy {f00=0x001d, f01=0x0190, f02=» W : ^2 M V W M Q M Q< W : S8 0 0R Q ; W : # +0 !99U :d" *0 !99U :H : T TP ^b T1 ^ TN ^ T2 ^ G2 ^ G1 ^ D4 ^ D5 ^ MD ^ CD ^ TWP DUP FDT ] W ] W
0x061408…06159c Dummy {f00=0x001d, f01=0x0190, f02=» : AQ A : @Y~ ag !99R ?0W AY~ : 1R Q : M ]H "P. @ & (P , 7 B W A]H : T SIT* @+n 1T" 7 @]TP @]V W 02 W A]T : DEFINE TERMINAL DEVICE CLASSES DEFINE ECHO DEVICE CLASSES
0x06159c…061730 Dummy {f00=0x001d, f01=0x0190, f02=»Z Z Z Z [ [ Z Z [ [ Z Z [ > FILE CODE : DEVICE ADDRESS : PTS NUMBER : ECHO DEVICE : KEYBOARD TIME-OUT : CODE CONVERSION : M NlO O O O O N P P VP P T1
0x061730…0618c4 Dummy {f00=0x001d, f01=0x0190, f02=»
[…0x2…]
0x061bec…061d80 Dummy {f00=0x001d, f01=0x0190, f02=» b2c1e1b3b1cBb4b6bqbr q r tba bAbBb2c1b3b4b6bqbr q r t cBcQcRcDc c cF A 20203000003010909090909090 00000040004040404040404000 8080800010100000 FILE CODE : DEVICE ADDRESS :
0x061d80…061f14 (0, 124) Dummy {f00=0x001d, f01=0x0190, f02=» DEVICE ADDRESS : PTS NUMBER : NUMBER OF LINES : NUMBER OF CHARACTERS/LINE : KEYBOARD FILE CODE : PIN CHARACTER : DISPLAY FILE CODE : FILE CODE JOURNAL : DEVICE ADRESS : FILE
0x061f14…0620a8 Dummy {f00=0x001d, f01=0x0190, f02=»ODE TALLY ROLL : FILE CODE LEFT TELLER : DEVICE ADRESS : FILE CODE RIGHT TELLER : LEVEL: ********* : LED DRTW01!!CH $$ X:F$$ / $$
0x0620a8…06223c Dummy {f00=0x001d, f01=0x0190, f02=» W W 1_ 1 W W : : Lr^R T _ : P& P P W @S8 AS9 0 AS8 @S8 : : 7 W V W 0 W V W 2 W V W V W 1 W RZ 7 V W 0 W V W 1 W RZ 7 V W V ! 9A 00 W W : V W : 7 W V
0x06223c…0623d0 Dummy {f00=0x001d, f01=0x0190, f02=»`V R O X *0 T1PR TNPL T2PF G2P@ G1P: MDP4 CDP. D4P( D5P" DUP FDP TPP D3T X W X X / O @`"Q `j a _ / Af _ / P Q$ A`" d _ r& A`^ A`" t d _ @ AC : 8R Fq P _ : AbP Ab Ab Y 9a
0x0623d0…062564 Dummy {f00=0x001d, f01=0x0190, f02=»T fV f^ : ET Ab b 0 Ab Ab X 00 FbT X 40T fz W X Af X Af f X X W 1 Ab W 1 Ab 40 a : 1 Ab a : @f Af P Ab 1 Ab a a ` T !99U Ab :h Ab @ P g : @ & 0TX P P " 9U
0x062564…0626f8 Dummy {f00=0x001d, f01=0x0190, f02=»apaxapa a afa a a !!CH $$COD$$CTAB $$!!CH $$ DATA COD$$ DATA 0$$ !!CH $$DVT $$DV $$!!CH $$ECH$$DW $$!!CH $$/1111$$/ 000$$ !!CH $$BCA$$ $$ !!CH $$ED0$$ $$!!CH $$/2222$$/0000$$ !!CH $$/3333$$/0000$$
0x0626f8…06288c Dummy {f00=0x001d, f01=0x0190, f02=»
0x06288c…062a20 Dummy {f00=0x001d, f01=0x0190, f02=» !!DL 07 !!
0x062a20…062bb4 (0, 125) Dummy {f00=0x001e, f01=0x0190, f02=»TABXX$$ !!CH $$/ABC$$/ $$ : 8 KBT @b ! P @b " :A*0 !99U AcLW @b ! ! U 0 Ac6 c$ @b ! 9M9l X P 90T )0 !99U AcI c: 0 AcL : 32 @ P" @(`P hj Ag 16 @( P h Ag W @ P @' P hj Ag :
0x062bb4…062d48 Dummy {f00=0x001e, f01=0x0190, f02=» 4T : 3T 24 : 2T 16 : 1T 08 : 00 : 4T : 3T 12 : 2T 08 : 1T 04 : 00 : q t2 Z P ln l4 0R _ q W Ai Ai MH X, S8 ( H <H%
0x062d48…062edc Dummy {f00=0x001e, f01=0x0190, f02=»_ t r^ $ r P: @rlT4 @ P @r| @r T$ AS ArzW @r~ @rz @r| @r T SU Arl @ @ @{f @{h @ @ @ P2 @r @r @r @r T @ @ @t P FD Ar W DU Ar 1 Aq jd @s P @r P j @ At0 @r P$ 2 Aq j @ A Ay Ay Ay Ay @t0Ph A Ay A
0x062edc…063070 Dummy {f00=0x001e, f01=0x0190, f02=» @r T As @ As s }" @r P s Z As @r P s Z As s r^ r $R T ) _ @r T Ar @r T Ar @r T Ar @r T Ar @r T Ar @r T Ar @r T Ar @r T Ar @rvT Ar r @ J As A J r @s A J r }" A t @ P 01 A+h : 09HR
0x063070…063204 Dummy {f00=0x001e, f01=0x0190, f02=»TER DN NUMERIC DISPLAY DI INDICATOR DISPLAY/KEYBOARD LAMPS DY VIDEO/PLASMA DISPLAY SU LOCAL AND REMOTE TERMINALS MS MAGNETIC STRIPE UNIT OD OPTICAL DOCUMENT READER T1 TELLER TERMINAL PRINTER (TP71) G1 GENERAL PRINTER (LP100)
0x063204…063398 Dummy {f00=0x001e, f01=0x0190, f02=»ONTROL G3 GENERAL PRINTER (HP75) VU VIDEO G2 GENERAL PRINTER (GP74) T2 TELLER TERMINAL PRINTER (FT80) TN TELLER NOTE DISPENSER TC TAPE CASSETTE SI SOP INPUT SO SOP OUTPUT MT MAGNETIC TAPE UNIT TW TYPEWRITER
0x063398…06352c Dummy {f00=0x001e, f01=0x0190, f02=»R 80MB) CR CARD READER II INTERTASK COMMUNICATION INPUT IO INTERTASK COMMUNICATION OUTPUT D1 DATA COM DRIVER DRDC07 D2 DATA COM DRIVER DRDC15 D3 DATA COM DRIVER DRDC17 D4 DATA COM DRIVER DRDC81 D5 DATA COM DRIVE
0x06352c…0636c0 Dummy {f00=0x001e, f01=0x0190, f02=»DC22 D9 DATA COM DRIVER DRDC13 DA DATA COM DRIVER DRDC23 DB DATA COM DRIVER DRDC25 L3 X25 LEVEL 3 DRIVER X25:L3 DEVICE ABBREVIATIONS DEFINE DEVICES : DC-DRIVER1 NAME,USERID : KBTPGPDNDIDY SU MSODT1G1ASSLPLG3VUG2
0x0636c0…063854 (0, 126) Dummy {f00=0x001e, f01=0x0190, f02=» DWII01DWIO01DW0701DW1501DW2201DW1301DW2301DWL301DTTP03 DVTKB DVTTP DVTGP DVTDN DVTDI DVTDY DVTMS DVTOD DVTT1 DVTG1 DVTG3 DVTVU DVTG2 DVTT2 DVTTN
0x063854…0639e8 Dummy {f00=0x001e, f01=0x0190, f02=»2 A4 : r $ r P DC As : DEVICE LIST (Y/N) : 01010001
0x0639e8…063b7c Dummy {f00=0x001e, f01=0x0190, f02=»
[…0x2…]
0x063ea4…064038 Dummy {f00=0x001e, f01=0x0190, f02=» d A Z T v MH X Y HS8 I 3 I 3 A N A A P A J MH X @S8 UKT 99 AS8 Q H Z8 P _ H At A W< A W A W0 A A A{jW A _ A _ Z P A{^ M
0x064038…0641cc Dummy {f00=0x001e, f01=0x0190, f02=» " > MH X S8 (;H H P{ Z. P _ P| A|& SY A|" A W2 A|, SY A|( A W A| SY A| Ay ! A 02 A PV ( !,, _tCOBACRAS { { { { SYSLODSYSLDM SL SL SL SYSINI NOD AM b Z P6 Z A A
0x0641cc…064360 Dummy {f00=0x001e, f01=0x0190, f02=» @ P @ @ @ P B A C }" W @{^ @ @{f @ @y @{h @|@P0 }v 4R(P 9 T Y T Y }r C _0 :LED A D P @ _ A @ ( @r P j @r P v J
0x064360…0644f4 (0, 127) Dummy {f00=0x001e, f01=0x0190, f02=» 9h! A , l4 @y A L( ( X( ( Z P g A MH P S8 ( 1 PV !,, A S8 @ X& T$ DW @S8T A DC @S:T A @S< A / 1 S Q Q
0x0644f4…064688 Dummy {f00=0x001e, f01=0x0190, f02=» !YYP NP :SYSTAB IMON IMOD TDISPLRPINT TPROC MSUBSTTMJOB OINT TASKTOSSIOLDTASKST8000DRND01DCADDR TMOVEDCSTAT PFTAB LKMAL TCLASSSCLASSMONTAB DC:TABIN:L
0x064688…06481c Dummy {f00=0x001e, f01=0x0190, f02=» SUPPORTING TOSS RELEASE #11.0 ASSEMBLY LIST : ASG /02,NOSYSGEN ENDEDEXTRA MONITOR MODULES : MOV LED DWDC00 DEBUGGER : INC DEBUG,TOSSWORK INC DEBUGM,TOSSWORK KPF /O L( X( t( ( f(
0x06481c…0649b0 Dummy {f00=0x001e, f01=0x0190, f02=» L( X( : ASG /E0,TY10 INC SYSTABINC DEBUG LKE M ASG /02,LP0FSCR PROGRAM LANGUAGE (AS=ASSEMBLER,BA=BASIC,CO=COBOL,CR=CREDIT) : DATA MANAGEMENT : FILE MANAGEMENT : EXTENDED DATA MANAGEMENT : ABRIDGED DATA MANAGEME
0x0649b0…064b44 Dummy {f00=0x001e, f01=0x0190, f02=»/L, LED MONTAB081082083084085086087088089090091092093094095096097098099100101102103104105016107108109110111112MEMORY MANAGEMENT UNIT : !!DL 20 !!DL 51 : : Tf # P P b A h A g _* : Z
0x064b44…064cd8 Dummy {f00=0x001e, f01=0x0190, f02=»KSUB ASG /E0,DK,LINKVX ****!!IL 25 :TIODMX & z z z z z z z z z z z z COMPUTER TYPE : SWAPPABLE WORK BLOCK HANDLING : DISK PAGING : L h :0102030405060708091011121314151617181920 @{^ @ @{f @ @y @{h A J :
0x064cd8…064e6c Dummy {f00=0x001e, f01=0x0190, f02=» A 9h A A W2 @Y~ @ & I W @ W Z T @ & I A " H P A & : @Y~ A 9 A 9 @ & I @ : @ & I :LED CTABX 8-BIT SETTING : !!CH $$CTABXX$$CTABNN$$ CTABXX C0C1C2C3C4 (
0x064e6c…065000 Dummy {f00=0x001e, f01=0x0190, f02=» : @ P :PARTITION LENGTH IN BYTES ( HEXA ) : NUMBER OF PARTITIONS : !!CH $$ X:A$$ / $$ !!CH $$ X:B$$ $$ S8 0 !00R !FFQ !99U !AAR - $ : S8 0 !00R !99Q - : S:W S; S8 $ ) ^ 0 P ) _
0x065000…065194 (0, 128) Dummy {f00=0x001e, f01=0x0190, f02=»_p A h _| A h _ A h _ A h _ A h _ A h _ A h _ A h _ A h _
0x065194…065328 Dummy {f00=0x001e, f01=0x0190, f02=» @ A @ A @ T DW A @s P @ 4 b F 8R X A KBT @ 6T A 6 CGT @ 8T| A 8 G2T @ Tl A T2T @ T A G1T @ TL A TNT @ T< A TPT @ 2T, A 2 T1T @ 4T A 4 d T T _ X P* A 6 A
0x065328…0654bc Dummy {f00=0x001e, f01=0x0190, f02=»W l X @ 00 A l A p A n @ @ L / A 0 T T1P< TNP6 G2P0 T2P* G1P$ MDP CDP DUP FDP TPP MTT T CGT @ :TH A : 0 A A T DV A T A @ A @ d T 4^ A : T
0x0654bc…065650 Dummy {f00=0x001e, f01=0x0190, f02=»d P E A J d A 00 A l A p A A d P A A S A J W A A d A @ @{f @{h @ @ Xl $ p F P 00 A l A p A A X n X d _ :
0x065650…0657e4 Dummy {f00=0x001e, f01=0x0190, f02=» 0715178182 2213 2325 ASM DC:TABLED TCLASS!!IL 11 DATA TC00TC00 DATA TC00E-* TC00E EQU * DATA +1cV00 EXTRN DV 00!!IL 6!!IL 12 $ !99R %
0x0657e4…065978 Dummy {f00=0x001e, f01=0x0190, f02=»0 W 01 A A r& AlR Al lN RJ R _ MDP& CDP FDP MTP DUT W X ! P H ^T I ^ W : A A : 00 A @r P 0 @r P 6 @r P B @ P * : 07W 15W @ W @ W 22W 13W A : @r P @r P @
0x065978…065b0c Dummy {f00=0x001e, f01=0x0190, f02=»: 15W @1j @ W @1 @ W A /0 A A DW A @ A 00 A : @ @{f @{h @ P@ @r A P @r A P @r A P @+ 0P @r A P : A : 01_ @ @{f @{h @ @r P> 01 MD A A 0 F4 1 F5 2 F6
0x065b0c…065ca0 Dummy {f00=0x001e, f01=0x0190, f02=» 0P4 P 2 F2 3 F3 01 0 F0 1 F1 @r 01 FD A A 0 F8 1 F9 2 FA 3 FB : A /0 A : : DATA DWDU01 A A : EXTRN DWREMU DATA /015 DATA DWREMU
0x065ca0…065e34 (0, 129) Dummy {f00=0x001f, f01=0x0190, f02=» JWB @ @ @ W( H A X H A j H A v H A : 2 @ 2 . ~ > H J I @ AS8 A A n @ AS8 @ AS: ;h;G B A n < C X
0x065e34…065fc8 Dummy {f00=0x001f, f01=0x0190, f02=» : > @ P @ P W @ X A A n C A NWL @ @ " 3 @ V9A A A W : j : @ n! A A n @ ! B A n C @ n! A A n @ ! B A n C A > d @ @ @ P
0x065fc8…06615c Dummy {f00=0x001f, f01=0x0190, f02=»|B! F A n C : L R _ L ,0 ) $ ) I : :d P 9C :' d !!CH $$ X:A$$ $$ MAX BLOCK SIZE IN BYTES : MAX NUMBER OF DISC BLOCK BUFFERS : MAX NUMBER OF CURRENCY BUFFERS : MAX NUMBER OF PROTECTED RECORDS : INDEXED
0x06615c…0662f0 Dummy {f00=0x001f, f01=0x0190, f02=» CLOSE DISCARD : LED SDMBUFLED DFTAB !!CH $$F0F1,/F2F3$$F0F1$$ !!DL 22 DATA MANAGEMENT PARAMETERS LED SDMFDBLED SDMTSK!!DL 20 @ n! T A @ & AS8 @ ( AS: C A n @ AS8 @ AS: D A n : D A @ V9A n A A : : @ n!
0x0662f0…066484 Dummy {f00=0x001f, f01=0x0190, f02=» A A H R P _ D " B A n @{` C A n C A 2 :LED TIOSDM 4 0T 00 A A A A : : A A @ n 1R @ @ " 9a A V @ @ : S8 0 0R Q ; W : TIODMSDMTSKSDMOCRSDMBUF DFTABARITMSTIOSDMSDMSUB @
0x066484…066618 Dummy {f00=0x001f, f01=0x0190, f02=» > @ AS8 @ AS: A{d @ . AS8 @ 0 AS: A{b @ V9A A A @ X! A A n @ P ! B A n @ P ! C A n @ ! D A n @ v! E A n @ ! F A n C }" @ v! A A n C @ j! A A n
0x066618…0667ac Dummy {f00=0x001f, f01=0x0190, f02=» TASK : CREATE/DELETE : EXTEND : ATTACH/DETACH : MULTIPLE EXTENT I/O : 1 1 1 1 1 1 1AT 1 1 1 1 LED SDMOCRLED FMTASKFMTASK DFTABFMCDEFARITMS TIOFM LED SDMSUBLED ARITMSLED TIODM LED FMCDEFLED TIOFM J d @r P @+ 1P
0x0667ac…066940 Dummy {f00=0x001f, f01=0x0190, f02=» : P U P U Q U R U S P * U U U U :0000000002020202040404040606060601010101030303030505050507070707 DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000 /0000 DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000
0x066940…066ad4 (0, 130) Dummy {f00=0x001f, f01=0x0190, f02=» P A 6 G| : x A h _
0x066ad4…066c68 Dummy {f00=0x001f, f01=0x0190, f02=» @ A v @ A x @ @{f @{h @ @ @ P" @tP Ar @tR Ar @tN Ar @tL Ar W @ T Z . h x H R 01 I _ A d F @ T @ P : @r P = @r P = @r
0x066c68…066dfc Dummy {f00=0x001f, f01=0x0190, f02=» @r P = @ P @( ! R = @ P @( ! R = @ P @( ! R = @ P @=X! R = @ P @( ! R = @ P @=X! R = @ P @=X! R = @r P @ P @=X! R = @r P
0x066dfc…066f90 Dummy {f00=0x001f, f01=0x0190, f02=» 2 @ P @' ! R $ = @ P = 8 > @r P = D J @r P * = @r P 0 = P V b @r P 6 = h n @r P B = t z @r P H =
0x066f90…067124 Dummy {f00=0x001f, f01=0x0190, f02=» :!!DL 115,177 8 P&P $ A T D A V D A X N _. : DATA F T RJT _ L lP _ L ] L M ] L M ] ] IH = ] _H :IHPFAR IHLKM IHRTCILLINT IHTW IHTC IHSOP IHFD CHRT1
0x067124…0672b8 Dummy {f00=0x001f, f01=0x0190, f02=»U1IHPVU1IHSVU2IHPVU2IHSVU3IHPVU3IHSVU4IHPVU4IHSVU5IHPVU5IHSVU6IHPVU6 ISLCI ISLCOIHPL01IHPL02IHPL03IHPL04IHPR01IHPR02IHPR03IHPR04IASCUZ
0x0672b8…06744c Dummy {f00=0x001f, f01=0x0190, f02=» Y . : : !99T :!!IL 55 010101010101010101010101010101010101010101 EXTRN IH0000 F T R X L lP _ F_ : 0715178182 2213 2325 @ P @0 @{hP @ P @{fP @{^P @ P @y P :
0x06744c…0675e0 Dummy {f00=0x001f, f01=0x0190, f02=»P @r P D B A W C A @{` : E A @{b_ D A @{d_ @s @ P G A _2 : F A @ _@ L R _ L ,0 ) $ ) I :' d !!CH $$ X:A$$ $$ ? ?
0x0675e0…067774 (0, 131) Dummy {f00=0x001f, f01=0x0190, f02=» 9 5W @ ~ A?2 A?V @ A?4 > Z P2 @ P B A @ A?2 A?V @ A?4 @y P" TA A . @{^ @{fP TM A X A ^ A " MO A : T A @ P TL A ( @{^ @ @{f @{hP TL A (
0x067774…067908 Dummy {f00=0x001f, f01=0x0190, f02=» @ @ P T A L MO A 4 A " A @ A AF 0 @ :P 1 AF F B AF 0 @ 4P 1 AF F @ P A AF 1 AF F A t : L K M
0x067908…067a9c Dummy {f00=0x001f, f01=0x0190, f02=»LK MOVETINEDM DPGM AGAL 057058059060061062063064065066067068069070071072073074075076077078079080081082083084LED TMOVE LED LKMAL DELAY/DELAY AND ACTIVATION : ABORT FUNCTION : GET/SET DATE : GET/SET TIME :
0x067a9c…067c30 Dummy {f00=0x001f, f01=0x0190, f02=»SSIO!!CH $$ X:A$$ 1$$ @ A ^ @ A d @ " A j @ ( A p @ . A v @ : A | @ L A @ d A @ A @ A @ v A @ p A : IMER PROC MLKM DSEG BORT NTIM IOFM DPGM AGAL OEDM MOVE WBLK
0x067c30…067dc4 Dummy {f00=0x001f, f01=0x0190, f02=» J A . ~ > @ ! A @ AS8 @ AS: ^ A @ AS8 @ AS: ^ A 4 MH T MH A l MH A ( MH A @ ! 9C L L P _ A
0x067dc4…067f58 Dummy {f00=0x001f, f01=0x0190, f02=» S8 b @ E A Y2X* : 4 : L R _ L ,0 ) $ ) I : S8 0 0R Q ; W :' d !!CH $$ X:A$$ $$ X NUMBER OF LINES : REQUEST TI
0x067f58…0680ec Dummy {f00=0x001f, f01=0x0190, f02=»ER DATA LENGTH : NUMBER OF PERMANENT VIRTUAL CIRCUITS : LOCAL DTE-ADRESS IN CALL PACKET : STATISTIC COUNTER : LED X25:L3
0x0680ec…068280 Dummy {f00=0x001f, f01=0x0190, f02=» * J @ l }" * . ~ * > & MH n @S8 A @S: A @S< A % MH n @S8 A @S: A @S< A & ( MH P@ A JS7 K P 9 MH n
0x068280…068414 (0, 132) Dummy {f00=0x001f, f01=0x0190, f02=» + A A A A 0 A A @ + A # @ MX A ST A AB A E0 A 03 A VX A @ + A $ h @r P @r P @r P @r P <A A r @ r D A C @ + A } t @ B A
0x068414…0685a8 Dummy {f00=0x001f, f01=0x0190, f02=»Q D A @ AS8 @ AS: Q ;A A ~ @ AS8 Q @ ~ E A @ ` AS8 @ b AS: Q @ AS8 @ AS: Q Z @ B AS8 Q @ b AS: @ ` AS8 Q @ AS8 @ AS: Q > @ AS8 Q
0x0685a8…06873c Dummy {f00=0x001f, f01=0x0190, f02=» @ G A @ H A C @ + A @ X H A @ I A @ M A @ P2 N A @ O A @ P A @ P0 AS8 @ AS: @ AS< @ AS> Q Q A @ P( AS8 @ AS: @ AS<
0x06873c…0688d0 Dummy {f00=0x001f, f01=0x0190, f02=» C A C : S8 IS7 R Y W 0 Y : : L R _ L ,0 ) $ ) I : T W P _ :' d !!CH $$ X:A$$ $$ : A &:h A % :!!CH $$ X:G$$ 'XX'$$EDM VERSION NUMBER : MAX NUMBER OF USER TASKS : MAX NU
0x0688d0…068a64 Dummy {f00=0x001f, f01=0x0190, f02=»SIZE OF RECORD BUFFER AREA IN BYTES : SIZE OF BLOCK BUFFER AREA IN BYTES : VOLUME NAME FOR TRANSACTION LOG FILE : SIZE OF TRANSACTION LOGG FILE IN SECTORS PER USER TASK : VOLUME NAME FOR FUNCTION LOG FILE : SIZE OF FUNCTIONLOGG FILE IN SECTORS : E
0x068a64…068bf8 Dummy {f00=0x001f, f01=0x0190, f02=»SK!!CH $$XXXXXX$$ $$ LED MXSTAB LED E003V LED E315V TIOEDM
0x068bf8…068d8c Dummy {f00=0x001f, f01=0x0190, f02=» ln LlnR Mln _ @r Aln @r Alt @r @r Alz @ @ Al @r Al Al Al @r Al @r Al @r Al @r Al @r Al @r Al @ Al @ Al @ Al @r Al @ Al @r Al @r Al Al N A V D A AT A A A $
0x068d8c…068f20 Dummy {f00=0x001f, f01=0x0190, f02=»ln lr 0R 5 _ 5 F" T P R$ F"<c Q P > ln 1 Q _, : " . F R ^ p !!IL 12 !!IL 41 !!IL 55 010101010101010101010101010101010101010101 EXTRN IH0000!!CH $$ILLINT XX$$IHAABB XX$$ DC A ON A L T M A :
0x068f20…0690b4 (0, 133) Dummy {f00=0x0020, f01=0x0190, f02=» 2325042043044045046047048049050051052053054055056057058059060061062063064065LED PFTAB
0x0690b4…069248 Dummy {f00=0x0020, f01=0x0190, f02=» @ A @ A @ @{f @{h @ P @tP Ar @tR Ar @tN Ar @tL Ar T @ T : $R P =W _ $R P =W _ @r T = @ T = @r @r T = @ T = @ T = @ T = @r T = @ T = @r
0x069248…0693dc Dummy {f00=0x0020, f01=0x0190, f02=» = @ P @(`! T =W p @r T @ P = @ P =W p @r T @ P =W @ P =W p @r T @ P =W p @r T @ P =W p @ T @r P x =W @ P =W p @ T @r P l =W @ P =W p @ T, @ P @' !
0x0693dc…069570 Dummy {f00=0x0020, f01=0x0190, f02=» =W p @r T p @r P @6,! R W p @r P @6,! R W p @r P p @r P p @r P p @r P p @r T p : 8 P&P $ A N D A P D A R H _. : DATA F T RJT _ L P
0x069570…069704 Dummy {f00=0x0020, f01=0x0190, f02=»T1 CHRT2 CHRT3 CHRT4 IHCC1 IHCC2 IHCC3 CHLT1 CHLT2 CHLT3 CHLT4 IHLP IHCR IHDU1 IHDU2 IHMT IHCD IHMD IHPLIHSVU1IHPVU1IHSVU2IHPVU2IHSVU3IHPVU3IHSVU4IHPVU4IHSVU5IHPVU5IHSVU6IHPVU6 ISLCI ISLCOIHPL01IHPL02IHPL03IHPL04IHPR01IHPR02IHPR03IHPR04IASCUZ
0x069704…069898 Dummy {f00=0x0020, f01=0x0190, f02=» H ~ r f Z 0 < $ B !!DL 115,1770715178182 2213 2325010101010101010101010101010101010101010101 !99
0x069898…069a2c Dummy {f00=0x0020, f01=0x0190, f02=» j J @ P~ % j . ~ j > @ j! A|B A A ^ C @ j! A A ^ C : b T : L JR _ L J,0 ) $ ) I :' d !!CH $$ X:A$$ $$ SUPPORT OF OUTPUT/EXTEND AND
0x069a2c…069bc0 Dummy {f00=0x0020, f01=0x0190, f02=» A] AY S AY} 01 AY~ r AK AK t AKD AL : AKP f P t t W2 01 A J t t J 7 : , j @ x x DEFINE SPECIAL DEVICE-CLASSES FILE CODE FIXED DISC : UN
0x069bc0…069d54 (0, 134) Dummy {f00=0x0020, f01=0x0190, f02=» FILE CODE : INPUT FILE CODE : OUTPUT FILE CODE : BACKSPACE KEY : CANCEL KEY : END OF RECORD KEY : INPUT FILE CODE : OUTPUT FILE CODE : FILE CODE LEFT DISC : DISC
0x069d54…069ee8 Dummy {f00=0x0020, f01=0x0190, f02=» INPUT FILE CODE : LINE NUMBER : OUTPUT FILE CODE : FILE CODE : UNIT NUMBER : @ @{f @{h @ PR @r P AtN Ar @r P AtL Ar @r AtP Ar @r AtR Ar @ @ @ P DM Ar : Lr P
0x069ee8…06a07c Dummy {f00=0x0020, f01=0x0190, f02=» / KPF /O 0 KPF /S 0 SCR 0 $ LED MONTAB 0 0 !!IL 25 0 B **** 0 R !!IL 50 0 ^ **** 0 n !!DL 081 0 z !!DL 082 0 !!DL 083 0 !!DL 084 0 !!DL 085 0 !!DL 086 0 !!DL 087 0 !!DL 089 0 !!DL 090 0
0x06a07c…06a210 Dummy {f00=0x0020, f01=0x0190, f02=»00 0 !!DL 101 1 !!DL 102 1 !!EN 1 * ASM /S 1 6 KPF /O 1 D KPF /S 1 R SCR 1 ` LED SYSLDM 1 l !!CH $$ X:A$$ 01$$ 1 ~ !!CH $$ X:B$$ 01$$ 1 !!CH $$ X:C$$ 00$$ 1 !!CH $$ X:D$$ 00$$ 1 !!CH $$ X:E$$ 00$$ 1 !!CH $$
0x06a210…06a3a4 Dummy {f00=0x0020, f01=0x0190, f02=»008$$ 1 !!CH $$ X:L$$ 01$$ 2 !!CH $$ X:M$$ 00$$ 2 ( ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 2 B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 2 !!EN 2 ASM /S 2
0x06a3a4…06a538 Dummy {f00=0x0020, f01=0x005a, f02=» 2 INC SYSLCO 3 INC SYSINI 3 LKE M 3 , KPF /L,Y 3 : ASG /E0,TY10 3 J857 EQU 1$$ 2 B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 2 !!EN 2 ASM /S 2
0x06a538…06a6cc Dummy {f00=0x0020, f01=0x2008, f02=» 4 INC SYSLCO 3 INC SYSINI 3 LKE M 3 , KPF /L,Y 3 : ASG /E0,TY10 3 J857 EQU 1$$ 2 B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 2 !!EN 2 ASM /S 2
0x06a6cc…06a860 Dummy {f00=0x0020, f01=0x0000, f02=»
0x06a860…06a9f4 (0, 135) Opaque[0x194]
0x06a9f4…06ab88 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0410, f03=0x0000}
0x06a9f4…06ab88 IdxSect {
0x06a9f4…06ab88 f00 = 0x0020 // 0x6a9f4 @0x0
0x06a9f4…06ab88 f01 = 0x000a // 0x6a9f6 @0x2
0x06a9f4…06ab88 gno = [ // 0x6a9f8 @0x4
0x06a9f4…06ab88 [0x00]: C0x0020.0x2.0
0x06a9f4…06ab88 [0x01]: C0x0020.0x3.0
0x06a9f4…06ab88 [0x02]: C0x0021.0x0.0
0x06a9f4…06ab88 [0x03]: C0x0021.0x1.0
0x06a9f4…06ab88 [0x04]: C0x0021.0x2.0
0x06a9f4…06ab88 ]
0x06a9f4…06ab88 }
0x06ab88…06ad1c Dummy {f00=0x0020, f01=0x000c, f02=» ! Y T:IO2 T:IPOS $ T:WRIX T:IXCH T:IXID : L T:RSTA T:SCW2 T:IO3 T:OPCH I:ERR3 T:STCH I:ERR6 T:IXCH I:ERR7 T:DMDI T:DDIS T:DSB T:OPCH T:STCH T:SCW2 T
0x06ad1c…06aeb0 Dummy {f00=0x0020, f01=0x0190, f02=» ZFMOVE FMOVE I:EVA0 I:ERR2 I:EVA5 I:ER18 I:RT1 4 FTYPET TYPET I:EVA0 I:ERR2 I:RT1 >ICLEAR ICLEAR I:EVA0 I:RT1 $ >EMPTYT EMPTYT
0x06aeb0…06b044 Dummy {f00=0x0020, f01=0x0190, f02=» I:ERR2 I:MOV T:GRFC T:ROK 0 T:STOU STROU1 T:STEV T:LOFS I:EVA0 T:LOPS I:ER17 I:ERR2 T:DUPX T:GRFC T:ROK T:RNOK JT:STEV T:STEV T:GRFC I:EVA0 I:ERR2 <
0x06b044…06b1d8 Dummy {f00=0x0020, f01=0x0190, f02=»:BELL T:CLR1 T:CLR2 T:CLIT T:EKEY T:DYKI T:DYKI T:PRKB T:PRDY I:EVA7 T:CASP T:CLRD T:EKEY T:RCR T:IOER J T:CLR1 X T:CLR2 f T:SCUW T:BELL T:IOWR T:CLIT : T:LOFS I:EVA0
0x06b1d8…06b36c Dummy {f00=0x0020, f01=0x0190, f02=» T:LOFS I:EVA0 T:LOPS I:ERR2 I:MOV T:RCR T:REWR T:RCTS ` T:DUPL T:DUPL T:GRFC I:EVA0 I:ERR2 T:RNOK T:ROK T:DUPX T:LOFS T:LOPS I:MOV h T:GETC T:GETC T:GRFC
0x06b36c…06b500 Dummy {f00=0x0020, f01=0x0190, f02=»:RCR 0 JT:TSTC T:TSTC T:GRFC I:ER14 T:RTES < T:TFWD T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM " T:PRDY T:GRFC T:TABE T:SCR2 T:TABC T:T
0x06b500…06b694 (0, 136) Dummy {f00=0x0020, f01=0x0190, f02=»:GTIT T:PRDY I:ER15 I:ER14 T:TABD T:TABC T:RNOK I:RT1 T:CLDY T:WRDY T:EDIO ~ T:GETF " T:GETF T:PRDY I:ER14 T:TABC T:TABN T:GTIT 4 T:GRFC T:GTIP D I:EVA0 I:EVA2 I:ER15 I:ERR2
0x06b694…06b828 Dummy {f00=0x0020, f01=0x0190, f02=» T:LOPS I:EVA0 I:ECPY I:EVI >T:DEDT & I:EVNO I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR I:ECWC I:EXIT I:EFLA T:DNL T:TINP T:TKI T:DSL I:RET T:TABC * T:TABD . T:TABE 2 T:EDWI I:EVT I:EDSK
0x06b828…06b9bc Dummy {f00=0x0020, f01=0x0190, f02=» I:ECPY I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR I:EOR I:EXIT I:ECW I:EFLA T:PINP T:PKI I:EFIL I:ESKI I:EXPY I:RET T:DSL * T:GRFC T:DNL 8 T:WRDY I:ENL I:ESL I:ECTR I:ER16 T:ENIN T:EINP
0x06b9bc…06bb50 Dummy {f00=0x0020, f01=0x0190, f02=»NI I:EXIT T:WRDY T:CLMI I:EVA0 T:CLDY T:ENIN 4 T:ENIN T:ENI T:LOFS I:EGTB T:WRDY I:EVA0 I:EVA1 I:ECPY T:EVOU X I:EVI I:EVA3 I:EPIC jT:SETC 7 T:SETC T:PRDY
0x06bb50…06bce4 Dummy {f00=0x0020, f01=0x0190, f02=»:DETF T:ATTF I:EVA6 I:FFSN T:ROK ( T:RCR * I:RT1 T:RCTS 6 T:RTES : T:RNOK < T:GRFC @ T:WRDY H T:EDIO T:CLDY T:PRKB l T:DS25 T:PRDY T:DS15 T:DSM bT:LSEG < T:LSEG T:CSEG I
0x06bce4…06be78 Dummy {f00=0x0020, f01=0x0190, f02=» T:DCE1 6T:SWI0 ? T:SWIT SWITCH JT:TEI0 @ T:TEST TESTIO T:ABOR ABORT LT:CLO0 A T:SETT SETTIM T:GETT GETTIM 4T:DEL0 B T:DEL
0x06be78…06c00c Dummy {f00=0x0020, f01=0x0190, f02=» T:DCWR T:DCW1 T:EDIO I:ERR T:IO2 T:DCEX 2 T:DCE1 6 I:EVA0 4T:SWI F T:SWIT I:RT1 fT:TEI G T:TEST T:GDSP T:DSR I:RT1 T:ABOR T:KIAA T:KIAC N tT:CLO I
0x06c00c…06c1a0 Dummy {f00=0x0020, f01=0x0190, f02=»ELA I:EVA0 I:ERR I:RT1 $ DT:MSK0 L MASK I:EVA0 I:RT1 I:ERR ( zT:SCD M T:ACTV P:BAS I:ERR4 I:NTPB T:BAT T:RSTR L I:EVA0 T:PAUS l I:RT1 ~ T:USE O T
0x06c1a0…06c334 (0, 137) Dummy {f00=0x0021, f01=0x0190, f02=»ERR ,T:EXIT T T:EXIT ZT:GTCW U T:GDSP GETCW I:EVA0 T:BINB T:GTCW I:RT1 & FT:GTID V T:GETI I:EVA0 I:RT1 I:ERR . T:DMR W T:DREA T
0x06c334…06c4c8 Dummy {f00=0x0021, f01=0x0190, f02=» T:WRIX T:STCH T:IO1 T:XWRI T:DWRI T:OPCH T:SCW2 T:IO2 T:DREW 0 T:IWRI < T:IXCH T:CREW N T:IREW p .T:DCC [ T:COPE T:COP1 T:DSB T:SCW2 T:WRIO T:IO1 T:CCLO " T:CCL1 & T:CCL
0x06c4c8…06c65c Dummy {f00=0x0021, f01=0x0190, f02=» T:DIS4 T:STCW T:OPT I:EVA0 ~T:DCR _ T:RECE T:REC1 T:REAX T:OPT T:IO2 T:AREC T:ARE1 $ T:STCW T:SCW2 D ~T:DCS a T:SEND T:SEN1 T:WRIX T:OPT T:IO1 T:ASEN
0x06c65c…06c7f0 Dummy {f00=0x0021, f01=0x0190, f02=» T:WRIO & I:EVA0 T:SREA B T:READ B T:REAX J T:DSC0 p T:DSC1 T:DSC2 T:XSTA T:WAIT T:MWAI T:IO1 , T:IO2 0 T:IO3 4 I:ER19 T:IO5 F T:IORE J T:GCW2 T:GTCW I:RT1 T:IOEN T:EDWR I:EDW T:EDWE
0x06c7f0…06c984 Dummy {f00=0x0021, f01=0x0190, f02=»A T:DS15 T:DS25 I:ER1D I:ER12 I:ER1E T:DSM F T:DSB ` T:FDSP n T:GTBY T:SCW2 T:DSCX I:EVA2 I:ERR2 T:SCW0 T:DSR T:CW l T:STCW I:EVA2 T:SCW0 T:BCDB $ T:GTCW I:ERR2
0x06c984…06cb18 Dummy {f00=0x0021, f01=0x0190, f02=» T:ADIT q T:RREA T:DSB T:RRE1 I:EVA0 T:STCW T:IO2 T:RWRI . T:RWR1 2 T:IO1 I:ERR ^ T:KIA s T:KIA T:NKIA T:ABUF T:KIPR T:LSEG T:IORE I:ERR9 I:ER1B T:KIAA T:K
0x06cb18…06ccac Dummy {f00=0x0021, f01=0x0190, f02=» T:IO2 I:ERR Z vI:NTP y I:MOV I:ADD I:SUB I:CMP I:MUL I:DIV I:MMOV I:EDT I:CPY I:INS I:DLT I:MCH I:XCP I:EDS I:TRC N I:RST P T:CSEG I:NTPA T I:NTPB T P:MTAB T:LSEG I:NTP I:PRT I:NTPR
0x06ccac…06ce40 Dummy {f00=0x0021, f01=0x0190, f02=» I:EVA P:MTAB I:EVA2 I:EVA1 I:EVA3 $ I:EVA6 ( I:EVA5 . I:EVA7 2 I:EVA0 T:LOFS T:LOPS I:ERR9 I:ERRA I:ER22 I:FML I:EVTO I:EVI & I:EVB 8 r PI:ADS I:ADD I:SUB
0x06ce40…06cfd4 (0, 138) Dummy {f00=0x0021, f01=0x0190, f02=» | >I:MOV I:MOV I:MVC I:ERR8 HI:MMOV I:MMOV I:EVA2 I:EVA0 I:MOV T tI:MUL I:MUL I:ERR2 I:ERR1 I:ERR9 I:MOV I:NTFA I:SUB I:ADD I:SH1L z
0x06cfd4…06d168 Dummy {f00=0x0021, f01=0x0190, f02=» ,I:NTF I:NTFA 8 I:EDT I:EVT B I:EGTD I:EVA2 I:EVA5 I:EVB I:EGTB I:EVI I:EVA3 I:EVA0 I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR I:EINH I:EKIH I:EDSK | I:EDT I:ED1
0x06d168…06d2fc Dummy {f00=0x0021, f01=0x0190, f02=»TXT 2 I:EXPY 2 I:ECTR D I:ESL N I:ENL X I:EOR n T:EDWF I:ECW x T:EDWE I:ECWC I:EFIL I:SCB I:ERRD RI:EPIC I:EPIC I:EVA0 I:ERRD I:SCB I:ERRE I:EDTE I:EKIH
0x06d2fc…06d490 Dummy {f00=0x0021, f01=0x0190, f02=»:EGTD I:EGTB <I:EDS I:EDS I:EVS2 I:ED1 & vI:STR I:DLT I:EVS1 I:MCH " I:INS ~ I:EVS2 I:ERR I:CPY I:XCP I:MVC P TI:EVS I:EVA0 I:EVS1 I:E
0x06d490…06d624 Dummy {f00=0x0021, f01=0x0190, f02=» I:EFLA T:DNL T:DSL STROU2 STRIN2 USRFLD STROUX . STRIX 2 USRFMT 6 T:GRFC T:STEV T:EDWI I:EVT I:EDSK I:RT1 I:EVIN T:EVOU B pSTRIN2 STRIN2 I:EXIT I:EVA0 I:ER17 T:CLMI I:ERR2
0x06d624…06d7b8 Dummy {f00=0x0021, f01=0x0190, f02=»LD USRFLD I:TRA I:ECB I:BUF I:NTR I:HEX I:HEXB I:TRA0 8 I:TRA > P:MTAB I:EVA0 I:HEXW I:TRB I:NTPR I:PRT I:ERR I:ERR0 I:ERR1 I:ERR2
0x06d7b8…06d94c Dummy {f00=0x0021, f01=0x0190, f02=»:ERRE 8 I:ERRF < I:ER10 @ I:ER11 D I:ER12 H I:ER13 L I:ER14 P I:ER15 T I:ER16 X I:ER17 I:ER18 ` I:ER19 d I:ER1A h I:ER1B l I:ER1C p I:ER1D t I:ER1E x I:ER1F | I:ER20 I:ER21 I:ER22 I:ERR T:D
0x06d94c…06dae0 Dummy {f00=0x0021, f01=0x0190, f02=»:HEX " LI:CHK I:CHK P:BAS P:END TC:CHK I:ERR 8 TRACHK TC:CHK TT:HLT TT:TRP TT:TRS TT:LOP TT:VON TT:VER TT:VMM TT:TID TT:PRC TT:SNO P:MTAB TB:ENT TC:ABT
0x06dae0…06dc74 (0, 139) Dummy {f00=0x0021, f01=0x0190, f02=» TT:VON TT:VER TT:VMM @ TT:HLT TT:PRC TT:TID TT:SNO TT:MSG TRABUG P:BAS TB:ABT H TB:ENT T P:MTAB TT:PRC TT:SNO TT:TID TT:MSG TB:RDC 8 TT:TRP TT:TRS TT:TON TT:LOP
0x06dc74…06de08 Dummy {f00=0x0021, f01=0x0190, f02=»CLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY T:GDSP T:ROLL T:RSTA T:SCW2 T:IO3 T:OPCH I:ERR3 T:STCH I:ERR6 T:IXCH I:ERR7 T:DMDI T:DDIS T:DSB T:OPCH T:STCH T:SCW2 T
0x06de08…06df9c Dummy {f00=0x0021, f01=0x404c, f02=»CW2 T:GTBY T:IO2 T:IPOS $ T:WRIX T:IXCH T:IXID : L T:RSTA T:SCW2 T:IO3 T:OPCH I:ERR3 T:STCH I:ERR6 T:IXCH I:ERR7 T:DMDI T:DDIS T:DSB T:OPCH T:STCH T:SCW2 T
0x06df9c…06e130 Dummy {f00=0x0021, f01=0x0190, f02=» P* BUFFERS * P*********** P* 0 P* : " PBUF1 DATA /020D,/1D00 CR1,APH D P IFT CUTPER=0 j PBUF2 DATA /0209 CR2 P XIF P IFT CUTPER=1 PBUF2 DATA /0309 P XIF P DATA /1D20 APH,SPACE " PBUF3 DAT
0x06e130…06e2c4 Dummy {f00=0x0021, f01=0x0190, f02=»********** P* P* P DATA DVBLEN MMU BUFFER SIZE & P DATA 2 DEVICE INDEX J PTPAD EQU * ADDRESS BLOCK f P DATA ACTP ACTIVATIONDRIVER " P DATA 1 ABORT ROUTINE ADDRESS P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY
0x06e2c4…06e458 Dummy {f00=0x0021, f01=0x018e, f02=» P* ( P* TABLE TO GET ACTUAL LF-CHARACTER P* : P* D PLFTAB EQU * N , P DATA /1819 LINE FEED JOURNAL/TALLY ROLL b P IFT CUTPER=1 : PCPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE P XIF PTPTAB EQU * ORDER TABL
0x06e458…06e5ec Dummy {f00=0x0021, f01=0x018e, f02=» | P EJECT P* P* P* A C T P * P* > 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER H > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR ~ P* P* P* PACTP EQU * ACTIVATION ENTRY P*
0x06e5ec…06e780 Dummy {f00=0x0021, f01=0x0190, f02=» & P ADR A7,A1 ADD DWT INDEX TO ORDER , P SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT . P LDK A4,0 ACTIVATION ^ PACT005 LDK A3,TPLEN-1 z 2 PACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER P RF(E) ACT020 VALID ORDER P SUK A3,1 P RB(NN
0x06e780…06e914 (0, 140) Opaque[0x194]
0x06e914…06eaa8 # DirEnt {nam=»TOSSUT«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2548, f03=0x0000}
0x06e914…06eaa8 IdxSect {
0x06e914…06eaa8 f00 = 0x012a // 0x6e914 @0x0
0x06e914…06eaa8 f01 = 0x0018 // 0x6e916 @0x2
0x06e914…06eaa8 gno = [ // 0x6e918 @0x4
0x06e914…06eaa8 [0x00]: C0x012a.0x1.0
0x06e914…06eaa8 [0x01]: C0x012a.0x2.0
0x06e914…06eaa8 [0x02]: C0x012a.0x3.0
0x06e914…06eaa8 [0x03]: C0x012b.0x0.0
0x06e914…06eaa8 [0x04]: C0x012b.0x1.0
0x06e914…06eaa8 [0x05]: C0x012b.0x2.0
0x06e914…06eaa8 [0x06]: C0x012b.0x3.0
0x06e914…06eaa8 [0x07]: C0x012c.0x0.0
0x06e914…06eaa8 [0x08]: C0x012c.0x1.0
0x06e914…06eaa8 [0x09]: C0x012c.0x2.0
0x06e914…06eaa8 [0x0a]: C0x012c.0x3.0
0x06e914…06eaa8 [0x0b]: C0x012d.0x0.0
0x06e914…06eaa8 ]
0x06e914…06eaa8 }
0x06eaa8…06ec3c Dummy {f00=0x012a, f01=0x0190, f02=» . ] h : j 0 ,* # +, + RC:
0x06ec3c…06edd0 Dummy {f00=0x012a, f01=0x0190, f02=» "END OF ; PROGRAM ABORTED BY
0x06edd0…06ef64 Dummy {f00=0x012a, f01=0x0190, f02=» B B $ A T C A T C B ZVT @ lT J B R [ B : B ; [ H * % A J B A B L ( B Tj @ B! F A F a FP4 @ J T @ H A H R _F P a H A H_T W a H B
0x06ef64…06f0f8 Dummy {f00=0x012a, f01=0x0190, f02=»P I , =Z I , * _: 8 ,>A P 8 Z : ; L , [ A " j , 9 : Z : [ * J / L Z : R < !LLP !XXP : T D @ L 4T 4 6T A j : T @ h A j : @ L 6T T W T @ j A hW
0x06f0f8…06f28c Dummy {f00=0x012a, f01=0x0190, f02=»Sd S _4 SN _ SD _: A R Z T T @ RT W" >P T Z Z Z Z : [ _* [ [ Q. , 0R" 9U AR FQ 0 P =D _, [ Z Z : = ! U 9 - Y : [ [ [ [ [ [ [
0x06f28c…06f420 Dummy {f00=0x012a, f01=0x0190, f02=» J T7v ^ Xv V _T W6 [ Z Z Z Z Z Z Z : T1$>EV U2(ZN T T T W T. C @ L 4T 3 6T @ d ) A d TD @ j @ f:B @ f E A f 7v D & @ L 6T
0x06f420…06f5b4 (0, 141) Dummy {f00=0x012a, f01=0x0190, f02=» @ P r>AV 54W W | r T A fW T A d @ P @ L 4T T T @ T >BV -Wt>AV -Wl>AVh B j R _ TJ B V@ R6 _ @ T M @ R - B RL M M WB T69 A T B f R& T1$> R > @ L T
0x06f5b4…06f748 Dummy {f00=0x012a, f01=0x0190, f02=» A ' A * J / L A f A d P _ @/ @ j EXT ( H/ P X$_ @ l I/ :a A L A N ;a L1 # A A P A TH #( W0 @ P #( : > M ^ / R 0 ;a;A _ @ L
0x06f748…06f8dc Dummy {f00=0x012a, f01=0x0190, f02=» R A _. @ L <R A L T @ T S 7< P^Q0 T$ W2FUNCTION NOT IN THIS PACKAGE ; nW ;A @ L H8z , & P J @ L:A H/ A ` H/ A b X & ( J LLPOP SLX TK1 TK2 MT1 MT2 pqCSH FLOGFI
0x06f8dc…06fa70 Dummy {f00=0x012a, f01=0x0190, f02=» P II S R : t @ j AP IP QP : : @ j !NNP !YYP t A P : R l @ @ S : @ L .P 0P T S : S : S : S ( ! T ) : R !IIP !EEP : @ j! P P t A P : @6H" ( " R @ P
0x06fa70…06fc04 Dummy {f00=0x012a, f01=0x0190, f02=» t A P : NW t @ j CDP" FDP MDP DUT : S : W A : @ j $P WZ 9a D A P : @ j I P ^ : : R I j W$ : @ j! YT A P @ L &T : X : @ j NEX$ EQX,_ @ P @Y$ : A W* A A A A W$ A A
0x06fc04…06fd98 Dummy {f00=0x012a, f01=0x0190, f02=» P P _ @ T A A W @ P A _ A _ ( ] ' ( = ( ' ( = P P P P _* _0 ( ] @ @ A ( B A A ( @ L 2Pv @( !LLPD !XXP> A A !DDT A
0x06fd98…06ff2c Dummy {f00=0x012a, f01=0x0190, f02=» TYPE; P P j 8 D: 8 @ @ P ]( ^ @ ( ] ' ( = ( ' ( = P P P P P _, _2 @ L *T @ L *T ( B C W @ P @ T ( B C @
0x06ff2c…0700c0 Dummy {f00=0x012a, f01=0x0190, f02=» P W ( @ b Q 9A D: T T 8FATAL DM OPEN ERROR ; FATAL FM OPEN ERROR ; DISC I/O ERROR; ' T @ T *] : @ j DKTj A : @ j DKP WX A : @ j DKX. W6 S DK A H H P
0x0700c0…070254 (0, 142) Dummy {f00=0x012a, f01=0x0190, f02=» P : @ j @ l "P ^ W C ;b : @ j! YT A P : P Wb _ 0 W 0 W WH : @ j R< I : @ L P$ @ P W @ j! P !P T A P : [ : VW A 2W _ A W< @ P # ( B # TlW IBM LABEL;TOSS LABEL;
0x070254…0703e8 Dummy {f00=0x012a, f01=0x0190, f02=» & _ j N Z rQ@ , 0P @ X N : %U : : ,! 9D ," : , 0 & N 0_. A R l @ P A ` V m j^ i 00 jR _ a V j ] @ Y : : : R_ _ S : W @ A P
0x0703e8…07057c Dummy {f00=0x012a, f01=0x0190, f02=» C C ( B P A j :
0x07057c…070710 Dummy {f00=0x012a, f01=0x0190, f02=»
[…0x4…]
0x070d60…070ef4 (0, 143) Dummy {f00=0x012b, f01=0x0190, f02=»
[…0x9…]
0x071d28…071ebc Dummy {f00=0x012b, f01=0x0190, f02=» CC: TRY AGAIN!! CRV CRF DLF PVC XEYf ,eh ik g g g 8
0x071ebc…072050 Dummy {f00=0x012b, f01=0x0190, f02=» j#g kqpc[ ]^_d`ah tuvscr[ ]^_d`ah w{xh )*+h h 9:h Zc[ ]^_d`abh Z c[ ]^_d`abh NP B AI k wx yz | A A V! VAW!T T"V"$, B A A A A A A AVAVA T A A A A V!VAVA A A
0x072050…0721e4 Dummy {f00=0x012b, f01=0x0190, f02=» T QT A A A A " A
0x0721e4…072378 Dummy {f00=0x012b, f01=0x0190, f02=» c N @ d
0x072378…07250c Dummy {f00=0x012b, f01=0x0190, f02=» | N B B B ( , N B R 2 8 R R R V B R z B R B B r B B R R
0x07250c…0726a0 Dummy {f00=0x012b, f01=0x0190, f02=» 6 4 5 " ( . 5 : 8 * H < 8 ( ( . 2 e K WF]l B
0x0726a0…072834 (0, 145) Dummy {f00=0x012b, f01=0x0190, f02=»; =d=t= ;N= = = ; =d<0 = = >l= = > <6>4>B>T>l>r>z> ; > > ; > ? >l? ? ? <n; ?4; ?F?T?h?z? ? ? ? ? ? ? @ @* @B?T;&@z@ @ @ @ @ @ @ @ ; ;*?T;*A ; A A,< 8 9 9 9.9:9D9N9`9p9p9 9 9 9 9 9 9 9 9 9 : : :B:P:^:n:x:.: Z8 8 b8 x8 {8 8 k8 8 8
0x072834…0729c8 Dummy {f00=0x012b, f01=0x0190, f02=»D EXE C,C BbBbA H8HPA F A@A B B B E HhG C C,C@CbCtC C C C C C B E B A@A A E F G G A@A D`A@A DzB BvA@A B B B D D A@A B B B D D.D A@A D D D EDA@A A D C,C B D E E B B B C,C B GxE E B B B E0E C,C EnB B B A@C,C B D E E B B E C F F I>F IX A D DJ BJ
0x0729c8…072b5c Dummy {f00=0x012b, f01=0x0190, f02=» Fh A@PRINT DEVICE:;SOURCE RESP. DESTINATION DISC:;VOLUME NAME:; VOLUME NAMES:;OLD FILE NAME:; NUMBER OF VTOC ENTRIES:;CREATION DATE:; RETENTION PERIOD:;BLOCKING FACTOR:; EFFECTIVE RECORD LENGTH:; MAXIMUM NUMBER OF RECORDS:; SECTOR NUMBER:;
0x072b5c…072cf0 Dummy {f00=0x012b, f01=0x0190, f02=»TPUT DEVICE:; LABELLED TAPE:; SEQ. NUMBER INPUT TAPE:;SEQ. NUMBER OUTPUT TAPE:; BLOCK FACTOR INPUT TAPE:; BLOCK FACTOR OUTPUT TAPE:;TAPE VOLUME ID:;RECORD LIMITS:; PRINT FORMAT:;RECORD KEYS IN LISTING:;CHARACTER CODE:;PROGRAM LENGTH:;MONITOR NUMBER:;START SWITCH O
0x072cf0…072e84 Dummy {f00=0x012b, f01=0x0190, f02=»ION:; DATASET NUMBER:;NUMBER OF INDEX FILES:; KEY ADDRESS WITHIN DATA RECORD:;KEY LENGTH IN DATA RECORD:; RECORD LENGTH INPUT TAPE:;LOAD FACTOR:; INDEX FILE NAME:; MASTER INDEX FILE NAME:;INPUT DEVICE:;PTS 6876 DISC :;MAX NO OF RECORDS ON OUTPUT INDEX FILE:;SUB-KE
0x072e84…073018 Dummy {f00=0x012b, f01=0x0190, f02=»DING ORDER:;REORGANIZE DISC:; DISC VERSION:;INDEX VOLUME NAME:; DUPL. ALLOWED: ; COND. INDEX: ; EXP. TYPE:; COND ITEM DISPL.:; COND ITEM VALUE:; ITEM DISPL.:; ITEM LENGTH:; INDEX FILE LENGTH:; *** INDEX DESCRIPTION ***;*** KEY DESCRIPTION ***;TESTIN
0x073018…0731ac Dummy {f00=0x012b, f01=0x0190, f02=»EVICE :; EXTENSION SIZE :; FUNCTION :; USAGE :;USAGE :;VOLUME NAME OF WORKFILE:; ALL INDICES:; LOG FILE VOLUME NAME:;LOWER RECORD LIMIT:;UPPER RECORD LIMIT:;DISC NOT OPERABLE;BADSPOT ON SYSTEM AREA. DISC NOT USEABLE; MORE THAN 18 BADSPOTS.DISC NOT USABLE;DISC I
0x0731ac…073340 Dummy {f00=0x012b, f01=0x0190, f02=»NGTH; VTOC OVERFLOW;NO FREE SPACE ENTRY AVAILABLE;FILE NAME ALREADY USED; NO TOSS DISC FORMAT;TAPE UNIT NOT OPERABLE; OUTPUT DISC NOT EMPTY;FAULTY RECORD LENGTH; OUTPUT FILE NOT LARGE ENOUGH; OUTPUT FILE NOT EMPTY;TAPE UNIT NOT LOCKED/LOADED;INCORRECT TNR;OUTPUT I
0x073340…0734d4 (0, 146) Dummy {f00=0x012b, f01=0x0190, f02=»L RECORD; LABEL RECORD MISSING; UNEXPECTED TAPE MARK; LABEL RECORD ERROR; ILLEGAL BLOCK LENGTH ON INPUT;EOF INSIDE SPLITTED RECORD; INPUT VOLUME NAME UNKNOWN;OUTPUT VOLUME NAME UNKNOWN; OLD FILE NAME UNKNOWN;FLEX. DISC ALREADY LOCKED;FLEX. DISC NOT LOCKED;FLEX. DI
0x0734d4…073668 Dummy {f00=0x012b, f01=0x0190, f02=»; KEY DEF. ERROR; LOAD FACTOR TOO SMALL;KEY SEQUENCE ERROR; DATA SET DEF. ERROR;ILLEGAL SECTOR NUMBER;CARD READER NOT OPERABLE; FILE ORG. ERROR;CORE AREA TOO SMALL;RECORD NOT IN FILE-END OF MEDIUM; ILLEGAL POSITION NUMBER;NOT ALLOWED TO MIX DISCSIZES; NOT ENOUGH C
0x073668…0737fc Dummy {f00=0x012b, f01=0x0190, f02=»; TOTAL KEY LENGTH TOO LONG;FM I/O-ERROR: ; DESCRIPTOR BLOCK TOO LONG;OPERATOR ABORTED; FILE ATTACHED;ONLY D-PART DELETED;DATA ERROR ON ONE OR MORE DISC SECTORS;TAPE WRITE PROTECTED; FATAL TAPE ERROR; TAPE NOT CREATED BY CDT;COPY NOT SUCCESSFULL; DUPLICATE KEYS I
0x0737fc…073990 Dummy {f00=0x012b, f01=0x0190, f02=»ATION ERROR;KEY ALREADY EXISTS; NOT EXISTING KEY; NO INDEX LEFT;SOURCE DISC DATA ERROR:;DEST. DISC DATA ERROR:; NO INDICES; USER INFORMATION CONFLICTS WITH LOG INFORMATIOM ;CREATE BUFFER FILE NOT SUCCESSFUL ;ERROR ON FUNKTION LOG FILE ;BUFFER FILE NOT BIG ENOUGH
0x073990…073b24 Dummy {f00=0x012b, f01=0x0190, f02=»ECT MMU-BUFFER LENGTH ; ( 8 ) 9 DUFDMD [ ; @I HI -P Z : : HI M :B L # ;A HI @ P 0!? T P $ _@ P ZH P ! _ DU2 DU1 DU4 DU3 MD1 MD2 MD3 MD4 FD1 FD2 FD3 FD4 CD1 CD2 CD3 CD4 TOSS UTILITIES
0x073b24…073cb8 Dummy {f00=0x012b, f01=0x0190, f02=» AJ AJ AJ AJ AJ AJ AK AK R % KZ P AJ @J P Wp @J : R !LLPB !XXPh R 1 R 2 Y AK AK AK Y AK AK @K W S 1 AK S 2 AK AJ K N : S 1 AK S 2 AK _.
0x073cb8…073e4c Dummy {f00=0x012b, f01=0x0190, f02=» Q* ( , X "' P [& I _ "' AJ @J M R 0 $' R T W $ T AJ R !LLP @J T AJ AJ R 1 R 6 AJ R 4! AJ PJ AJ AJ @J @J w AJ AJ S$ @J @J w Y4 @J AJ @J AJ W : AJ AJ @J @J @K w
0x073e4c…073fe0 Dummy {f00=0x012b, f01=0x0190, f02=» @J @J w AJ AJ AJ R AJ AJ AJ . AK 9H AK AK AJ AJ AJ @J P AJ AJ B AK ( B P @J C C C ( C B / P : @K :c AK AJ AJ AJ AJ @J AJ @J AJ AJ @J @J w AJ AJ @J AK C C
0x073fe0…074174 (0, 147) Dummy {f00=0x012c, f01=0x0190, f02=»J 0 AJ @J T @J X @J @J R&Q @J @J R @K AK @J AJ @J AJ @J @J Z Q @J @J Z @J @J RBQ @J @J U6 @J @J Y R @J @J Y AJ @K AK @J AJ @J AJ _ @J AJ @J AJ @J AJ @J AJ @K AK Q* U Tr Q 1 Q Q T AW@ AJ J R AJ @K A
0x074174…074308 Dummy {f00=0x012c, f01=0x0190, f02=»( B / P @W@ : @W@ P R @J AJ @J AJ !LLPZ @J T @J @K V @K AK R P P AJ P AJ @J @J @J @J w AJ AJ Rv P$W8 @J @J @J @J w AJ AJ SH @J P P AJ P AJ @J @J P P w Q Q @J Q @J 1 U P P> P
0x074308…07449c Dummy {f00=0x012c, f01=0x0190, f02=» w Q Q P AJ 0 AJ @J @J @J w AJ AJ T Q Q @J Q @J 1 @J @J @J @J w AJ AJ AJ AJ @J P @J @J @J @J w AJ AJ U P P> P AJ AJ @J ? N : AK P> ( P6 . P. @J P @J AJ @J AJ @J AK T K N :
0x07449c…074630 Dummy {f00=0x012c, f01=0x0190, f02=» _ J X`_2 AJ : @J T SL @J P Q : J SL @J Z` @J K @J K @J K @J K @J K @J K K K R 2 K R 1:H R K R !LLT R 4:H R 5 K K $ K & AJ ( Z` . " Z` R !LLP R : K % R 8 K & K ( K ) (
0x074630…0747c4 Dummy {f00=0x012c, f01=0x0190, f02=»J SJ AJ V 2 AJ @K % @J R 2 R 1 % Y @J AJ @J AJ @J @J AJ AJ w AJ AJ J @K C @J AJ @J AK ( C @J @J @K @J P @J w AJ AJ @J @J YXR @J @J Yd @J AJ @J AJ @K C @J AJ @J AK ( C @J
0x0747c4…074958 Dummy {f00=0x012c, f01=0x0190, f02=» Z Z` AZr ( Z 9 AZ ( Z Z` @J 0 AZ @J @J Z wn @J @J [ wn J [ @J T [ Z` Z A AZ ( J @J : AJ AK AK R % Wl T @J T : AJ AJ K AJ T@W AK P> SL @J P& T ( P .
0x074958…074aec Dummy {f00=0x012c, f01=0x0190, f02=»K 9c AK @K R C @J C AK AK R AJ P Z. R R4 B C AK AW@ C ( B / P R @W@ 0 AWB 0 AWD @WBT @WD Z P @J T @K AK P @J W AJ AJ AW@ @WB @WD P P w AWB AWD @J @J @W@ @J @WBT @J @WDT P AJ
0x074aec…074c80 Dummy {f00=0x012c, f01=0x0190, f02=» P> K K P ] = ] ] W AJ AJ AW@ P P @J @J w AWB AWD @J @J @W@ @J @WB XT @J @WD XT @J Q @J Q AK P>_ @K AK XT W R P @J I @J ) @J I @J I W ( - : Zz FILE Z 9 VOLUME N
0x074c80…074e14 (0, 148) Dummy {f00=0x012c, f01=0x0190, f02=» DELETEDDU1 DU2 DU3 DU4 MD1 MD2 FD1 FD2 1 0 0VOLUME NAME: DISC: 0FREE SPACE TABLE 0EXT BASE EXT LENGTH OF ENTRIES USED 0VOLUME TABLE OF CONTENTS 0FILE
0x074e14…074fa8 Dummy {f00=0x012c, f01=0x0190, f02=» EXT BASE EXT LEN ORG LENGTH FACT REC NO SEC NO EXT NO DATE PER FILES ADDRESS NO NO/SOP 0NUMBER OF FREE ENTRIES IN VTOC = ( - : ]( C ( B bD b8 : ]4 2 A] A[ A] R A]) R A]
0x074fa8…07513c Dummy {f00=0x012c, f01=0x0190, f02=» C ( B & B & b< B b2 2 R A]6 ]6 [b , 9 TO 4 bH 4 I[z Y [J ]F [R $ ]F [x ]F , A[ , A[ , A[ " , A[ @[ >c A[ A] ] C ( B . b2 B & b< A] [N ]F [ ]F [
0x07513c…0752d0 Dummy {f00=0x012c, f01=0x0190, f02=»[ wn [ ]F Y W Y @[ [ vh @[ [ vh [ ]F [N ]F [ ]F n ]F n ]F [ [ [ [ [ b ] ( B . b2 B & b< [ [ ]B *% a R p [ R ]8 J U !
0x0752d0…075464 Dummy {f00=0x012c, f01=0x0190, f02=» - U T U Z J 8 vh J ? vh J J wn J J wn - J J wn J " ( vh E ]8 " N ]8 J !LLP6 J " vh J !SST J % T vh J & X vh [ R p $ ! R !__Q Y . % Y p ]F W A
0x075464…0755f8 Dummy {f00=0x012c, f01=0x0190, f02=» b 0NUMBER O
0x0755f8…07578c Dummy {f00=0x012c, f01=0x0190, f02=»SS REL 11.0 NUMBER OF CATALOGED BADSPOTS = Z $ Ad D Ad D Ad D Ad D Ad" [ : Z $ Ad D Ad D Ad D Ad D Ad [ : Z $ Ad$ D Ad& D Ad( D Ad, [ : cR C
0x07578c…075920 Dummy {f00=0x012c, f01=0x0190, f02=»e8 e8 e8 : cD 2 C C ( B & m B .P " T m : 0 Ac Ad. UU Ad6 Ad8 Ad< @ AcH Ac: d R ' P gB P P0 PV P| P d } ~ dT M g d dT [g [h 4 d [4 4 g
0x075920…075ab4 (0, 149) Dummy {f00=0x012c, f01=0x0190, f02=» g R P P W< dT &? &@ d h h h g d y z { dT g d z { | dT &? &@ g R P P W< d h h h dT L L g d y z { dT 1g 1h g d z { | dT L L g 2 AcF Ac8 $ AcS $ Ac7 AcE R ! R
0x075ab4…075c48 Dummy {f00=0x012c, f01=0x0190, f02=»9 R ! T : m m cD C C C B % E E AdR ( B ! : m C x AcF AcF m cD R R C & V8 c d cD P T R IT C W C ( C ( B R % R E R E B Nc % Z R
0x075c48…075ddc Dummy {f00=0x012c, f01=0x0190, f02=» IP @dRP t m AdB 2 AcF d6 Ac c d cD @dBP W AcH 2 d e( d @dBT e( d ( AdB B & m B m P2 T m dN dP B >( r m dN dP e( @d @d U Y
0x075ddc…075f70 Dummy {f00=0x012c, f01=0x0190, f02=»( dBP e8 e8W eV c6 B & m B P Wt @c: Y 2 d2 d4 d: @d< Ad: @d: $T d: @d< Ad: @d: $P d2 d4W( @d6 $ Y P e(_R d2 d4W. T m dN dP @c:>( r m dN dP @dBP eH e( e( AdB Ac:W eH eH @d T* @d
0x075f70…076104 Dummy {f00=0x012c, f01=0x0190, f02=» , d2 d4 d: @d< Ad: @d: $T d: @d< Ad: @d: $P d2 d4Wn @d6 $ Y P e(_R d2 d4 eH eH @d Tl @d Q @dDP c6( k< QL AcH Q> AcHW4 T RF dN dP @cH>( r m dN dP eH eH c6( k( dDT( cD( l W W
0x076104…076298 Dummy {f00=0x012c, f01=0x0190, f02=» c $ d W cf $ d c4 b 4 Pr @bR 4 T T T w 4 T w 1 Q 4 PB 4 T w 1 Q T T 4 T w 4 P _8 @bR W @d @d w Q 1 Q AbR AcH bP b 2 P T 0PV 0 % % (
0x076298…07642c Dummy {f00=0x012c, f01=0x0190, f02=»d@ Y @d@ Ad* 2 T T 4 R _ T 4 w U 5 cb ed @d* 2 % P ed _ AcH 2 AcF pD Acd @d* Q U( _ 2 % 2 * % Y : b pD 2 * , P Pv * BA % DS % PO %
0x07642c…0765c0 Dummy {f00=0x012c, f01=0x0190, f02=»ed Y Ad2 R " T `d$ Ad2 9A Dd$ 2 @d2R V 2 U Ad2 ed ]D 2 2 @cd % % cb ) % % Z @d % @d % @d" % c ( % Y 2 % @d* O . R O 1 R O 0 B W E d E ~
0x0765c0…076754 (0, 150) Dummy {f00=0x012c, f01=0x0190, f02=»r~ r Ar Ar b Ar| @rzT tV t. t r r~ t@ s r~ r t sp t t @r| r t t. @r| 0 4 @r| @r| 8 < w 1 5 @r| @r| @b <! $ ) Y @b % % % % @b Ab @rz Arz t. @b b t2 @r| Ar| `r| r
0x076754…0768e8 Dummy {f00=0x012c, f01=0x0190, f02=»t2 @b @b @r| $ ) Y tV W rz : $ ) : Y : @r~ @r| ) @r ) @r ) @r ) Arz @b Ab : ( ( $ ( w T T W : @r| 0 4 @r @r w 1 5 : @r| , , , , w w Ar Ar : cD C C C 2 C
0x0768e8…076a7c Dummy {f00=0x012c, f01=0x0190, f02=» C R C ( B u rt rp rp]L *% P0 @rt 8 BT rv @rt 0 0 r rv rt_J W : R _ P 0 - : ; [ V - - ' v v d v v v Z : : ; vb v : V *W
0x076a7c…076c10 Dummy {f00=0x012c, f01=0x0190, f02=» B@ v v ' v v d v v v Z Z Z Z : : ; wf v : V *W R - _ 1 T R Pwf - _ : [ S Q"R S P W S _ R Q _ ;A [ : [
0x076c10…076da4 Dummy {f00=0x012c, f01=0x0190, f02=»? 0OUTPUT VOLUME NAME: x C C ( : : B x $ ) Y xr x xl x AxZ xP( xl x `xR! YP 4 : %? v S : S f S 6 S b% =A S ^ S ` x UU x 3 2P _ , ) p
0x076da4…076f38 Dummy {f00=0x012c, f01=0x0190, f02=» T G.G K. A ;A; G. x ] S z . N 0 N S W P X _ R z R 6"? R ~ | z P LLT #P " 0 B. T P ' " P : P S | P S
0x076f38…0770cc Dummy {f00=0x012c, f01=0x0190, f02=» %? v S @ S l S < S h% =A S d S f V UU > 3 2P _ , ) 0 R _ <d?d U ?e R P S ?C/ G O % R ' P % =B S t w E M % t
0x0770cc…077260 Dummy {f00=0x012c, f01=0x0190, f02=» . N 0 R N S 4 W P X _ R R <"? R }H P LLT #P " 0 B. T P ' " P : P S P S P " h_"W W W W W + # @ # P s v
0x077260…0773f4 (0, 151) Dummy {f00=0x012d, f01=0x0190, f02=» S DW ` S D S t S p S $ S $ M % T S ( p jW L p . N 0 S # T S r p N S W p P X _ T R t S $ M R R R $" R D P * W8W p
0x0773f4…077588 Dummy {f00=0x012d, f01=0x0190, f02=» " ~_6 XW W W W @ R T V ?AW =E R _ <e R P =A $ < ?B =A- R P S S $ M W W =D @ t w E M T 1 E _ M = R = @ T P W S ( W S H R p : V 6 "? UU j 3 2P _ 4 , 5
0x077588…07771c Dummy {f00=0x012d, f01=0x0190, f02=» . N 0 S & N S W P X _ R R "? R R h:B* S R P S B J 4R 4 :B 4 R : V V 49B R 4R @ t w A I ! j : P LLT #P
0x07771c…0778b0 Dummy {f00=0x012d, f01=0x0190, f02=» T G.G K. A ;A; G. S S ( S S $ S ] S S ] ] S . N 0 S W h S S S ? S S R ^ 9B % s S
0x0778b0…077a44 Dummy {f00=0x012d, f01=0x0190, f02=» S _> ? S R ! T S _X! P S _f @ @ N S W j P X"_ R R "? R R S j P LLT #P " Y4 B. T P ! " P S P S : P S P
0x077a44…077bd8 Dummy {f00=0x012d, f01=0x0190, f02=»A ;A; G. S S S S h ] x S S $ S f ] ] x ~ W " S t S z S ? S p S r R ^ P P t % R $ S p ; V 9E S p; R P S
0x077bd8…077d6c Dummy {f00=0x012d, f01=0x0190, f02=» S r_f @ @ S f . N 0 S ! T s S f N S W f P X"_ R R "? R $9B R R S f P LLT #P " Y4 B. T P ! " P S
0x077d6c…077f00 Dummy {f00=0x012d, f01=0x018e, f02=» | 8 P LDKL A2,LIBRLE SET RECORD LENGTH FOR LIB. FILES =1 P ST A2,RECLEN,A12 D P LDK A2,1 =20 ^ P ST A2,BLKSLE =20 t P* PCRF020 CM HEAD < P CALL GETVOL GET RIGHT VOLUME AND READ FREE BLOCK SECTOR P ADK A1,0 4 P ABL(Z)
0x077f00…078094 (0, 152) Opaque[0x194]
0x078094…078228 # DirEnt {nam=»BEA «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0498, f03=0x0000}
0x078094…078228 IdxSect {
0x078094…078228 f00 = 0x0024 // 0x78094 @0x0
0x078094…078228 f01 = 0x000a // 0x78096 @0x2
0x078094…078228 gno = [ // 0x78098 @0x4
0x078094…078228 [0x00]: C0x0024.0x3.0
0x078094…078228 [0x01]: C0x0025.0x0.0
0x078094…078228 [0x02]: C0x0025.0x1.0
0x078094…078228 [0x03]: C0x0025.0x2.0
0x078094…078228 [0x04]: C0x0025.0x3.0
0x078094…078228 ]
0x078094…078228 }
0x078228…0783bc Dummy {f00=0x0024, f01=0x0190, f02=» l #2B x , , * 0 1 1 0 1 1 2B 2B 2B @ @ < P
0x0783bc…078550 Dummy {f00=0x0024, f01=0x0190, f02=» ( B R Q : B B ~ X ( 0
0x078550…0786e4 Dummy {f00=0x0024, f01=0x0190, f02=» _4 ( H T @ A 8 B B T = C : < T _" 8 *X( 8 T$ < P <P B _R 8W R Rt Wp X$ , < P <P < 9 _H 8 R W: X , < P 'T
0x0786e4…078878 Dummy {f00=0x0024, f01=0x0190, f02=» B :a;a : MW2 XW. CW* RW& EW" IW LW U A W FW SW OW P @ $ A * A @ P @ Q W$ @ A @ A @ P a @ a x @ vP 8 R ) A _ @ 0Q p I 0 ^ A 0W j I 6 ^ @ T W * I ^ a A @ P A @
0x078878…078a0c Dummy {f00=0x0024, f01=0x0190, f02=» : : : Q ^ a A : A a ` : $:f:A $# Q $# P W WL $$ X $$ <A $# P _ ; $$ X, ; A 4 & X <a<A : : @ W 4 @
0x078a0c…078ba0 Dummy {f00=0x0024, f01=0x0190, f02=» @ %W @ % : 4 &<E , P. * T P / T 0 W , W T , P" "$ T" 4 %T W @ R _v W W @ @ $<E % @ $$ Q ) A : A ^ W 09U ( 9 S = S 0 S _
0x078ba0…078d34 (0, 153) Dummy {f00=0x0025, f01=0x0190, f02=» A ++Q --U A 09Q ..Q EEQ> ''Q (& P 8 S S Q Q _< P _ ^N_ X< ++Q --U A 09]R (& @ 8 S S A 09Y ''Q _x A _ X @ :
0x078d34…078ec8 Dummy {f00=0x0025, f01=0x0190, f02=» 4 ` A ''Q Y @ @ $# Q (Q, a v A v @ A )W $# X ( H + R_0 : W W W W 4 3 + f A ++Q --Q W W V **Q ''Qr //Q0 XXU ''Q.W BBU ''QbW| AZ
0x078ec8…07905c Dummy {f00=0x0025, f01=0x0190, f02=» @ W Z A XT @ h @ hT $# T @ 0 * A U A R $ P P A # P&# ;c ( Wf T( Q t WZ P T V& @ hP * A X A A A V 5 5W V + 3 PB P W6 @
0x07905c…0791f0 Dummy {f00=0x0025, f01=0x0190, f02=»SYMBOL TABLE0 UND.ENT.0 UND.LAB.0 ASS.ERR.1 $ ) $ 0P P $ ) _ : d L R L _ 0 ) ^ : 9 R : ) Y :P ff33 A A A @ T : d D L T
0x0791f0…079384 Dummy {f00=0x0025, f01=0x0190, f02=»8! S _6 <P 8 : P~ @ Pr @ P*R A A A W @ " @ S@ SB @ S@ SB @ S@ T W6 F < -Q [ : : @ : _F _F _F _F ~ " [ : W P < A A : P P
0x079384…079518 Dummy {f00=0x0025, f01=0x0190, f02=» 8! 8! _ 8 T Q V" 8 T . 8 P 8 4 @ @ P P0 $" P R ( $! 9# P _4 RT QP Q VF T< @ T @ @ A A
0x079518…0796ac Dummy {f00=0x0025, f01=0x0190, f02=» O @ !* P @ h * @ * * 4 @ h A , @ 4 LPT @ : TYT 6 @ R 1 A P @ 6 TYP DYP n nU n A B A @ T@ 4 z ^ T ^ j @ 0R ) ) A 0 A : 1 A @ 4 TYT J B
0x0796ac…079840 Dummy {f00=0x0025, f01=0x0190, f02=» l ^ J l ^ : l ^ : ( : 1 PAGE DATE - - TIME H- M- S Z W W Pp a @ Q: @ hP4 P. B ` ' ?A A ^
0x079840…0799d4 (0, 154) Dummy {f00=0x0025, f01=0x0190, f02=» D 02-PASS ASSEMBLER - NAT LAB - VERSION 7.2 16/11/78 x 8P _ @
0x0799d4…079b68 Dummy {f00=0x0025, f01=0x0190, f02=» R A ) H A A X F 4 I b>! A Z>!P H A ` I d A )T @ 0P A $P @ vT 0 @ R W @ vT : @ tP f 4 A A _, A R Q @ U D @ A $ U A : @ Pf @ @ XT
0x079b68…079cfc Dummy {f00=0x0025, f01=0x0190, f02=»! A 2( @ 6 nT @ 4 TYT LP A 4 < A : @ A A W @ d 9 ! A @ A ` A A A A A A . @ hP A A A A A @ A @ A A r I 0 ^ , A . x A v **Q~ $$
0x079cfc…079e90 Dummy {f00=0x0025, f01=0x0190, f02=» R |W _ R ( A @ P % P @ $ I @ T~ nUt A nUb A nUT A @ PJ A @ R $ T& - $ - A H M @ > % nV @ @ Q @ P 2 X @ hQ B "( B ( @
0x079e90…07a024 Dummy {f00=0x0025, f01=0x0190, f02=» A T @ P A _ + * /*W( + * 0 W + * / W , * 0 A A A @ @ T W @ T @ TL Uz f XP8 @ hT0 U $# Q $# Q L9a @ U A W A A * A W @ hX ,,YV R
0x07a024…07a1b8 Dummy {f00=0x0025, f01=0x0190, f02=» R @ ) I ((R ))R0 U,> S( S$ ,,YX R a @ h @ A XT % a A : @ hQ :a @ U A _0 $ : W @ HT LP @ hTj @ @ h @ f 0 A a PR ,,Rr L $"
0x07a1b8…07a34c Dummy {f00=0x0025, f01=0x0190, f02=» P ;A_ ;a Y ==Q$ ::QZ P P Q TWH P T W4 W. Pz T W Tn @ W T ] ] P 9A Y T2 < = T$ P &T F T W R ,,Y W ,,Y @ 2 P R ^ ` " a Qx T
0x07a34c…07a4e0 Dummy {f00=0x0025, f01=0x0190, f02=» _ A A0 @ V @ T~ @ Tt P, @ [! T A ^ & ] b A Z @ X , _2 @ A A A A 0 @ A A A @ PLQ @ @ P8 $T % R _ X $ % ,,Y"
0x07a4e0…07a674 (0, 155) Dummy {f00=0x0025, f01=0x0190, f02=» P @ P @ P @ R ) $ * % ] @ P @ A W @ Q R, @ W @ T ! A ,, ''Qd DDU ''U QN f Y 4 W. FFU ''Qn A Y 4 Y T @ T P
0x07a674…07a808 Dummy {f00=0x0025, f01=0x0190, f02=» A 2 ~ R $% P ( R P $" : A 0 @ 0PN 8 I 4 ;a P _ ! ]" ]! T ]"0 2
0x07a808…07a99c Dummy {f00=0x0025, f01=0x0190, f02=» @ P $| _> G 4 4 R t G T_ $ PX P %F $ @V "0P ,,Q R A W$ $ P $ <c! 9A $ $ $h_P ((RL 07Q 4 | R ( ))R W 4_ $ W **R " P 9A G 4 $h_ T| 4 @ @ PX
0x07a99c…07ab30 Dummy {f00=0x0025, f01=0x0190, f02=» : ! P P : : : 2' ?A 2&p ! ! : @ P @ P P P " P 9 ! G T 4 G 4 ! P $| : X Q : $" | R 4 A 0 ~ W @ UL ==R@ R4 P P A A
0x07ab30…07acc4 Dummy {f00=0x0025, f01=0x0190, f02=» B E ^ IDENT H* ! P I Z " D T E ^ @ A ( A I ^ , A * A 0 A @ A @ A A A @ @ P R $ )_ ASM 7.2 A v 4 A R6 ,,Q
0x07acc4…07ae58 Dummy {f00=0x0025, f01=0x0190, f02=» @ @ A ^ PT R $ $# P $ ] b T A A Z @ XT A ^ 0_Z ] b A Z @ P W P @ R % 6 d @ hQ @ ) ) @ hQ @ T ) )
0x07ae58…07afec Dummy {f00=0x0025, f01=0x0190, f02=» @) P ) ) @)&W, P R $Y $# Y $# P: P $# P $# Q A W R W ** A $# Q W ( W X ( ( P D d P N d A B &
0x07afec…07b180 Dummy {f00=0x0025, f01=0x0190, f02=»T PASS0 I X A I M A Q D @ "1 I T A I D @ i DS A I U @ i US A I N @ i NS A I R @ i RS A I R @ i RS A i FI ~ A I 1 t @ I W j @ I C ` @ I C V A Q M A a ! I 2 A i 1S A q BI @
0x07b180…07b314 (0, 156) Dummy {f00=0x0025, f01=0x0190, f02=» @ i ST V A I L L @ I S B A i AD 8 @ ADS . A i SU " @ SUS A i MU @ MUS A i DV @ DVS A h XR h MR !h GR H h ER p h ER x i XK ! P F W P B _ p DR "1 p TR ! 1 h DR DRS !h UR URS !h NR
0x07b314…07b4a8 Dummy {f00=0x0025, f01=0x0190, f02=» ! 1RS !h TN p BR " H M 6 h NM . ` DK DKL 1 h DK DKL h UK UKL h NK NKL h RK ( RKL h RK 0 RKL I F ! i WK ~ i CK t P B q BL ` IO@ @ h NR H h TR
0x07b4a8…07b63c Dummy {f00=0x0025, f01=0x0190, f02=»LC 8 h RC 8 p LN8 h RN 8 h CR !p LR h SR !p UR a ! h VR h AR h SR ` LK a UK i VK b AK j SK ` LA8 h RA 8 h LL 8@h RL 8`h LC 8 h RC 8 p LN8 h RN 8 h MD ( h VF p h VB zx h
0x07b63c…07b7d0 Dummy {f00=0x0025, f01=0x0190, f02=»DVR DVRS ! VUS x VSU p h FL h FX ` ILH h CA H@h IM @ h MP @@h M2 @ DENT% NTRY XTRN 852 855 856 857 ATA ORG ORG IST P LIST T JECT Xx QU (x ES x ND' OMN x FF% x FT%~x IF% TAB ORM
0x07b7d0…07b964 Dummy {f00=0x0025, f01=0x0190, f02=»2 ZA3 ZA4 ZA5 ZA6 ZA7 ZA8 ZA9 zA10 zA11 zA12 zA13 zA14 zA15 h AR h SR ` LK a UK i VK b AK j SK ` LA8 h RA 8 h LL 8@h RL 8`h LC 8 h RC 8 p LN8 h RN 8 h MD ( h VF p h VB zx h
0x07b964…07baf8 Dummy {f00=0x0025, f01=0x0190, f02=» L @ L ` R r , ( T @ L @ P S , ( T @ @ L @ R S B `ESC S r * & P @ A S ADDSET S * & H @ A S * & H @ A @
0x07baf8…07bc8c Dummy {f00=0x0025, f01=0x0190, f02=» A @ A S z , ( @ c N ` @ T * & { V U @ V T H * & H @ T v , ( ` @ P P @ T * & H @ A @ A T , (
0x07bc8c…07be20 Dummy {f00=0x0025, f01=0x0190, f02=» A * T r , ( ( @ P Q U DODASH U B , ( ; $ @ A * @ A , @ U T * & S H A . @ A 0 @ A U , ( g 2 ( @ V U * & H $ @
0x07be20…07cac0 (1, 0) DirGranule ((1, 0)) {
0x07be20…07cac0 DirEnt {nam=»TOSSWO«, typ=»RK«, f00=0x0000, f01=0x0000, f02=0x2c28, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04c0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»REFORM«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04d0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»RELUP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04e0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SOURCE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»ASMUP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0500, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0510, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»ADMTSK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0838, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»ARITMS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0888, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»CTABC0«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DCADDR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08d8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRAS01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08e0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRCD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0940, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRCR01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09a0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDC07«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDC13«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ac0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14b0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDC17«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c20, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDC22«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d70, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDC81«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e68, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDC82«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f68, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1040, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDN01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1060, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2398, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»X25:L3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1118, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ba8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRFD02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13f8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22f0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14c0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1518, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRGP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1588, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15b0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15d8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1630, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRMD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1650, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRMS02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRMT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16d0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRND01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1720, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRPL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2be0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRSL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1910, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1960, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRSU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10d0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a38, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRTN01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a80, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1080, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b30, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRTP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b90, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRTW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bd0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRVU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c08, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d40, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DTTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d68, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d80, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTDN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d88, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d90, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTG1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d98, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTG2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1da8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTG3 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1db8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1dc0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1dc8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTMS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1dd0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1de0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTT2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1de8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTTN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1df0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e00, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DVTVU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e08, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DW0701«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e10, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DW1301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e20, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e28, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DW2201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e30, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e40, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e48, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DWL301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e50, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e60, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»FMCDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e70, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ee0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f80, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fc8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1480, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2008, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2010, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2028, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2060, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2068, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SDMBUF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2070, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SDMOCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2098, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SDMSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20f8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SDMTSK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2160, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21d8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SYSINI«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21e8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2448, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17d8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b28, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26a8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26c8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26d8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26e0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2700, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TIOADM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2718, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2738, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TIOEDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2790, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TIOFM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27b8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TIOSDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27e8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TLDPGM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2828, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2848, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2868, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TMOVE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2880, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28b8, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TPAGAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2948, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2978, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TSWBLK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2990, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29a0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DCSTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29b0, f03=0x0000}
0x07be20…07cac0 DirEnt {nam=»DRDC25«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29e8, f03=0x0000}
0x07be20…07cac0 }
0x07cac0…07cc54 (1, 1) Opaque[0x194]
0x07cc54…07cde8 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04c0, f03=0x0000}
0x07cc54…07cde8 IdxSect {
0x07cc54…07cde8 f00 = 0x0026 // 0x7cc54 @0x0
0x07cc54…07cde8 f01 = 0x0004 // 0x7cc56 @0x2
0x07cc54…07cde8 gno = [ // 0x7cc58 @0x4
0x07cc54…07cde8 [0x00]: C0x0026.0x0.0
0x07cc54…07cde8 [0x01]: C0x0026.0x1.0
0x07cc54…07cde8 ]
0x07cc54…07cde8 }
0x07cde8…07cf7c Dummy {f00=0x0026, f01=0x018e, f02=» P$REL PLED @P,/S,/EE,## P##DL 0,1 ( 0 P IDENT @P REL 11.0 81-01-26 870105041100 8 P l P##EN t PKPF /S PASM /S,NL PKPF /O PSCR /S PSCR /O PEND P$MOVSC PMES @P PMOV @P,/S,TOSSWORK,/F1
0x07cf7c…07d110 Dummy {f00=0x0026, f01=0x0190, f02=» PSCR /A PEND $BX PMES @P * PASG 2,LP0F 8 BEA @P J KPF /O X XRF @P f PSKF 3 t PASG 2,NO END P$BSX PMES @P PASG 2,LP0F PBEA /S KPF /O PSKF 3 PASG 2,NO END
0x07d110…07d2a4 Dummy {f00=0x0026, f01=0x0190, f02=»$ n ##EN PASG 2,LP0F BEA /S ( PSKF 3 6 PASG 2,NO D END T P$MMUDSK ` PMES @P p PLED @P,/S,/EE,## ~ ( ###CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( ###CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( P##CH $$DSKPAG EQU 0$$DSKPA
0x07d2a4…07d438 Dummy {f00=0x0026, f01=0x018e, f02=»,/S,/EE,## ( P##CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ##EN > PASG 2,LP0F J BEA /S PSKF 3 j PASG 2,NO x END P$C57DSK PMES @P PLED @P,/S,/EE,## ( ###CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( P##CH $$DSKPAG EQU
0x07d438…07d5cc Dummy {f00=0x0026, f01=0x0190, f02=» PLED @P,/S,/EE,## ( ###CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ##EN H PASG 2,LP0F T BEA /S f PSKF 3 t PASG 2,NO END P$ALL PMES @P PLED @P,/S,/EE,## ( ###CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( ###CH $$CPU85
0x07d5cc…07d760 Dummy {f00=0x0026, f01=0x0130, f02=»$$X:A EQU 1$$ " P##CH $$X:B EQU 0$$X:B EQU 1$$ " P##CH $$X:C EQU 0$$X:C EQU 1$$ < P##EN b PASG 2,LP0F n BEA /S PSKF 3 PASG 2,NO END P$REF PMES @P PASG /10,DK PMOV @P,/S PRUN REFORM,0
0x07d760…07d8f4 (1, 2) Dummy {f00=0x0026, f01=0x2008, f02=»
0x07d8f4…07da88 Dummy {f00=0x0026, f01=0x0004, f02=»
0x07da88…07dc1c Dummy {f00=0x0026, f01=0x0190, f02=» P$PCAS PASG 3,@DA=TK0E PREW 3 ( PWEF 3 M=@M= 6 PRUN CPLGEN @M= J PMOV @M=,/L,@MU ` PRUN PCAS @M= v PWEF 3 @A= PMOV @A=,/L,@AU PRUN PCAS @A= 2 P$PCASC M=@M=,A=@A=,C=@C=,CU=@CU=,D=@D=,DU=@DU= * P$PCASC M=@M=
0x07dc1c…07ddb0 Dummy {f00=0x0026, f01=0x0190, f02=»A=,C=@C=,D=@D= P$PCASC M=@M=,A=@A=,C=@C= P$PCASF C=@C= 6 P$PCASF D=@D= J P$PCASF CU=@CU= ^ P$PCASF DU=@DU= t P$PCASE M=@M=,A=@A= P$PCASE M=@M= P$PCASE A=@A= PMES PARAMETER ?? PEND P$PCASC PWEF 3
0x07ddb0…07df44 Dummy {f00=0x0026, f01=0x0190, f02=»MES @D= P$PCASE PEND P$PCASF * * PMES ILLEGAL PARAMETER COMBINATION!!!! 8 2 PMES M,M+A,A,M+A+C,M+A+C+D IS OK SO TRY AGAIN! f * PMES AND DON'T DO ANY MORE MISTAKES!!!! P$PCASE PEND P$PCASE PWEF 3,2 PULD /3
0x07df44…07e0d8 Dummy {f00=0x0026, f01=0x0190, f02=»@M=,FC=@FC=F4,FT=M,INP=@M= PSCR /A A=@A= " PSCR /L A=@A= 6 PMOV @A=,/L,@AU J PRUN PDISC,0 A=@A= ` , POPT OUT=@AOUT=@A,FC=@FC=F4,FT=A,INP=@A= z PSCR /A C=@C= PSCR /L C=@C= PMOV @C=,/A,@CU PRUN PDISC,0 C=@C= , POPT OU
0x07e0d8…07e26c Dummy {f00=0x0026, f01=0x0190, f02=»ATION !!! t * PMES FOLLOWING COMBINATIONS ARE VALID: " PMES 1 A,A+AU,A+AOUT,A+AU+AOUT @ " PMES 2 C,C+CU,C+COUT,C+CU+COUT f " PMES 3 M,M+MU,M+MOUT,M+MU+MOUT PMES 4 FC : PMES ANY COMBINATION OF ALTERNATIVE 1,2 AND 3 IS VALID, 0 PMES AND
0x07e26c…07e400 Dummy {f00=0x0026, f01=0x0190, f02=»$ASM PASG 2,NO . PMES MMUPAG=1 @MM= . PMES CPU852=0 @C2= N . PMES CPU857=1 @C7= . PMES DSKPAG=1 @DP= . PMES SWPBLK=1
0x07e400…07e594 (1, 3) Opaque[0x194]
0x07e594…07e728 # DirEnt {nam=»REFORM«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04d0, f03=0x0000}
0x07e594…07e728 IdxSect {
0x07e594…07e728 f00 = 0x0026 // 0x7e594 @0x0
0x07e594…07e728 f01 = 0x0004 // 0x7e596 @0x2
0x07e594…07e728 gno = [ // 0x7e598 @0x4
0x07e594…07e728 [0x00]: C0x0026.0x2.0
0x07e594…07e728 [0x01]: C0x0026.0x3.0
0x07e594…07e728 ]
0x07e594…07e728 }
0x07e728…07e8bc Dummy {f00=0x0026, f01=0x0190, f02=» P$REF P=ADMTSK P$REF P=ARITMS P$REF P=CTABC0 0 P$REF P=DCADDR F P$REF P=DFTAB P$REF P=DRAS01 p P$REF P=DRCD01 P$REF P=DRCR01 PSCR P$REF P=DRDC07 PSCR P$REF P=DRDC13 PSCR P$REF P
0x07e8bc…07ea50 Dummy {f00=0x0026, f01=0x0190, f02=»=DRDC82 PSCR P$REF P=DRDI01 P$REF P=DRDN01 2 PSCR H P$REF P=DRDU01 T PSCR j P$REF P=DRDY01 v P$REF P=DRDY02 PSCR P$REF P=DRFD01 PSCR P$REF P=DRFD02 PSCR P$REF P=DRGP01 P
0x07ea50…07ebe4 Dummy {f00=0x0026, f01=0x0190, f02=» PSCR P$REF P=DRMD01 P$REF P=DRMS02 * P$REF P=DRMT01 @ PSCR V P$REF P=DRND01 b PSCR x P$REF P=DROD01 PSCR P$REF P=DRPL01 PSCR P$REF P=DRSL01 P$REF P=DRSOP1 PSCR P$REF P=D
0x07ebe4…07ed78 Dummy {f00=0x0026, f01=0x0190, f02=»P04 P$REF P=DRTW01 P$REF P=DRVU01 " P$REF P=DSKSUB 8 PSCR N P$REF P=DTTP03 Z P$REF P=DVTDI p P$REF P=DVTDN P$REF P=DVTDY P$REF P=DVTG1 P$REF P=DVTG2 P$REF P=DVTG3 P$REF P=DVTGP PSCR P
0x07ed78…07ef0c Dummy {f00=0x0026, f01=0x0190, f02=» P$REF P=DVTVU P$REF P=DW0701 P$REF P=DW1301 . P$REF P=DW1501 D PSCR Z P$REF P=DW2201 f P$REF P=DWII01 | P$REF P=DWIO01 P$REF P=DWL301 P$REF P=EBCDIC P$REF P=FMCDEF P$REF P=FMTASK PSCR
0x07ef0c…07f0a0 Dummy {f00=0x0026, f01=0x0190, f02=» P$REF P=PFTAB P$REF P=SCLASS PSCR 2 P$REF P=SDMBUF > P$REF P=SDMOCR T P$REF P=SDMSUB j P$REF P=SDMTSK PSCR P$REF P=ST8000 PSCR P$REF P=SYSINI PSCR P$REF P=SYSLBA PSCR P
0x07f0a0…07f234 (1, 4) Dummy {f00=0x0026, f01=0x0190, f02=»$REF P=SYSTAB P$REF P=TABORT P$REF P=TCLASS , P$REF P=TDISP B PSCR V P$REF P=TIMER b P$REF P=TIOADM v P$REF P=TIODM PSCR P$REF P=TIOEDM P$REF P=TIOFM P$REF P=TIOSDM P$REF P=TLDPGM PSCR
0x07f234…07f3c8 Dummy {f00=0x0026, f01=0x0052, f02=»OC P$REF P=TSWBLK P$REF P=TTMJOB PSCR 6 PASG /E0,TY10 B PSCR V P$REF P=TIMER b P$REF P=TIOADM v P$REF P=TIODM PSCR P$REF P=TIOEDM P$REF P=TIOFM P$REF P=TIOSDM P$REF P=TLDPGM PSCR
0x07f3c8…07f55c Dummy {f00=0x0026, f01=0x2008, f02=» P$REF P=TSWBLK P$REF P=TTMJOB PSCR 6 PASG /E0,TY10 B PSCR V P$REF P=TIMER b P$REF P=TIOADM v P$REF P=TIODM PSCR P$REF P=TIOEDM P$REF P=TIOFM P$REF P=TIOSDM P$REF P=TLDPGM PSCR
0x07f55c…07f6f0 Dummy {f00=0x0026, f01=0x0000, f02=»
[…0x4…]
0x07fd40…07fed4 (1, 5) Opaque[0x194]
0x07fed4…080068 # DirEnt {nam=»RELUP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04e0, f03=0x0000}
0x07fed4…080068 IdxSect {
0x07fed4…080068 f00 = 0x0027 // 0x7fed4 @0x0
0x07fed4…080068 f01 = 0x0004 // 0x7fed6 @0x2
0x07fed4…080068 gno = [ // 0x7fed8 @0x4
0x07fed4…080068 [0x00]: C0x0027.0x0.0
0x07fed4…080068 [0x01]: C0x0027.0x1.0
0x07fed4…080068 ]
0x07fed4…080068 }
0x080068…0801fc Dummy {f00=0x0027, f01=0x0190, f02=» P$REL P=ADMTSK P$REL P=ARITMS P$REL P=CTABC0 0 P$REL P=DCADDR F P$REL P=DFTAB P$REL P=DRAS01 p P$REL P=DRCD01 P$REL P=DRCR01 PSCR P$REL P=DRDC07 PSCR P$REL P=DRDC13 PSCR P$REL P
0x0801fc…080390 Dummy {f00=0x0027, f01=0x0190, f02=»=DRDC82 PSCR P$REL P=DRDI01 P$REL P=DRDN01 2 PSCR H P$REL P=DRDU01 T PSCR j P$REL P=DRDY01 v P$REL P=DRDY02 PSCR P$REL P=DRFD01 PSCR P$REL P=DRFD02 PSCR P$REL P=DRGP01 P
0x080390…080524 Dummy {f00=0x0027, f01=0x0190, f02=» PSCR P$REL P=DRMD01 P$REL P=DRMS02 * P$REL P=DRMT01 @ PSCR V P$REL P=DRND01 b PSCR x P$REL P=DROD01 PSCR P$REL P=DRPL01 PSCR P$REL P=DRSL01 P$REL P=DRSOP1 PSCR P$REL P=D
0x080524…0806b8 Dummy {f00=0x0027, f01=0x0190, f02=»P04 P$REL P=DRTW01 P$REL P=DRVU01 " P$REL P=DSKSUB 8 PSCR N P$REL P=DTTP03 Z P$REL P=DVTDI p P$REL P=DVTDN P$REL P=DVTDY P$REL P=DVTG1 P$REL P=DVTG2 P$REL P=DVTG3 P$REL P=DVTGP PSCR P
0x0806b8…08084c Dummy {f00=0x0027, f01=0x0190, f02=» P$REL P=DVTVU P$REL P=DW0701 P$REL P=DW1301 . P$REL P=DW1501 D PSCR Z P$REL P=DW2201 f P$REL P=DWII01 | P$REL P=DWIO01 P$REL P=DWL301 P$REL P=EBCDIC P$REL P=FMCDEF P$REL P=FMTASK PSCR
0x08084c…0809e0 Dummy {f00=0x0027, f01=0x0190, f02=» P$REL P=PFTAB P$REL P=SCLASS PSCR 2 P$REL P=SDMBUF > P$REL P=SDMOCR T P$REL P=SDMSUB j P$REL P=SDMTSK PSCR P$REL P=ST8000 PSCR P$REL P=SYSINI PSCR P$REL P=SYSLBA PSCR P
0x0809e0…080b74 (1, 6) Dummy {f00=0x0027, f01=0x0190, f02=»$REL P=SYSTAB P$REL P=TABORT P$REL P=TCLASS , P$REL P=TDISP B PSCR V P$REL P=TIMER b P$REL P=TIOADM v P$REL P=TIODM PSCR P$REL P=TIOEDM P$REL P=TIOFM P$REL P=TIOSDM P$REL P=TLDPGM PSCR
0x080b74…080d08 Dummy {f00=0x0027, f01=0x0052, f02=»OC P$REL P=TSWBLK P$REL P=TTMJOB PSCR 6 PASG /E0,TY10 B PSCR V P$REL P=TIMER b P$REL P=TIOADM v P$REL P=TIODM PSCR P$REL P=TIOEDM P$REL P=TIOFM P$REL P=TIOSDM P$REL P=TLDPGM PSCR
0x080d08…080e9c Dummy {f00=0x0027, f01=0x2008, f02=» P$REL P=TSWBLK P$REL P=TTMJOB PSCR 6 PASG /E0,TY10 B PSCR V P$REL P=TIMER b P$REL P=TIOADM v P$REL P=TIODM PSCR P$REL P=TIOEDM P$REL P=TIOFM P$REL P=TIOSDM P$REL P=TLDPGM PSCR
0x080e9c…081030 Dummy {f00=0x0027, f01=0x0190, f02=»ET TO LOW v PSPEED EQU X:J * PX:K EQU 0 IF 1 SIEMENS MSV1 PROCEDURE ( PMSV1 EQU X:K V . PX:L EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) j PRBUFNR EQU X:L . PX:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU X:M PX:N EQU /02
0x081030…0811c4 Dummy {f00=0x0027, f01=0x018e, f02=»F RECEIVER r P XIF PX:O EQU 1 . PIBMCHR EQU X:O IF 1 IBM CHARACTER HANDLING 0 . PX:P EQU 0 IF 1 MESSAGE PASSING TO DC TASK b PMESPAS EQU X:P 4 PX:Q EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU X:Q PX:R EQU 1000
0x0811c4…081358 Dummy {f00=0x0027, f01=0x0190, f02=» , PDMRK EQU 0 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT 4 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT l 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". , P ONLY WORKING IF STAT IS SET TO "ONE". P IFT
0x081358…0814ec Dummy {f00=0x0027, f01=0x0190, f02=»EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ : ( PTPMODE EQU 0 TRANSPARENT MODE IF = 1 P P* | P EJECT P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P*
0x0814ec…081680 Dummy {f00=0x0027, 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* 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICAT
0x081680…081814 (1, 7) Opaque[0x194]
0x081814…0819a8 # DirEnt {nam=»SOURCE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x081814…0819a8 IdxSect {
0x081814…0819a8 f00 = 0x0027 // 0x81814 @0x0
0x081814…0819a8 f01 = 0x0004 // 0x81816 @0x2
0x081814…0819a8 gno = [ // 0x81818 @0x4
0x081814…0819a8 [0x00]: C0x0027.0x2.0
0x081814…0819a8 [0x01]: C0x0027.0x3.0
0x081814…0819a8 ]
0x081814…0819a8 }
0x0819a8…081b3c Dummy {f00=0x0027, f01=0x0190, f02=» P$MOVSC P=ADMTSK P$MOVSC P=ARITMS P$MOVSC P=CTABC0 4 P$MOVSC P=DCADDR L P$MOVSC P=DFTAB d P$MOVSC P=DRAS01 z P$MOVSC P=DRCD01 P$MOVSC P=DRCR01 PSCR P$MOVSC P=DRDC07 PSCR P$MOVSC P=DRDC13
0x081b3c…081cd0 Dummy {f00=0x0027, f01=0x0190, f02=»1 PSCR P$MOVSC P=DRDC82 PSCR . P$MOVSC P=DRDI01 : P$MOVSC P=DRDN01 R PSCR j P$MOVSC P=DRDU01 v PSCR P$MOVSC P=DRDY01 P$MOVSC P=DRDY02 PSCR P$MOVSC P=DRFD01 PSCR P$MOVSC P=DRFD0
0x081cd0…081e64 Dummy {f00=0x0027, f01=0x0190, f02=» P=DRIC01 P$MOVSC P=DRKB04 P$MOVSC P=DRLP01 * PSCR B P$MOVSC P=DRMD01 N P$MOVSC P=DRMS02 f P$MOVSC P=DRMT01 ~ PSCR P$MOVSC P=DRND01 PSCR P$MOVSC P=DROD01 PSCR P$MOVSC P=DRPL01 PSCR
0x081e64…081ff8 Dummy {f00=0x0027, f01=0x0190, f02=»RTN01 P$MOVSC P=DRTP02 P$MOVSC P=DRTP03 & PSCR > P$MOVSC P=DRTP04 J P$MOVSC P=DRTW01 b P$MOVSC P=DRVU01 z P$MOVSC P=DSKSUB PSCR P$MOVSC P=DTTP03 P$MOVSC P=DVTDI P$MOVSC P=DVTDN P$MOVSC P=DVTDY
0x081ff8…08218c Dummy {f00=0x0027, f01=0x0190, f02=» P=DVTMS P$MOVSC P=DVTOD P$MOVSC P=DVTT1 & P$MOVSC P=DVTT2 < P$MOVSC P=DVTTN R P$MOVSC P=DVTTP h P$MOVSC P=DVTVU ~ P$MOVSC P=DW0701 P$MOVSC P=DW1301 P$MOVSC P=DW1501 PSCR P$MOVSC P=DW2201 P$MOVSC P
0x08218c…082320 Dummy {f00=0x0027, f01=0x018e, f02=»SCR P$MOVSC P=LDTASK PSCR $ P$MOVSC P=LKMAL 0 P$MOVSC P=LRPINT F P$MOVSC P=MONTAB ^ P$MOVSC P=MONTIM v P$MOVSC P=MSUBS P$MOVSC P=PFTAB P$MOVSC P=SCLASS PSCR P$MOVSC P=SDMBUF P$MOVSC P=SDMOCR
0x082320…0824b4 (1, 8) Dummy {f00=0x0027, f01=0x0190, f02=» P$MOVSC P=SYSLBA PSCR P$MOVSC P=SYSLCO ( PSCR @ P$MOVSC P=SYSLCR L PSCR d P$MOVSC P=SYSLDM p PSCR P$MOVSC P=SYSLOD PSCR P$MOVSC P=SYSTAB P$MOVSC P=TABORT P$MOVSC P=TCLASS P$MOVSC P
0x0824b4…082648 Dummy {f00=0x0027, f01=0x0130, f02=» P=TIOFM P$MOVSC P=TIOSDM P$MOVSC P=TLDPGM ( PSCR @ P$MOVSC P=TLDSEG L P$MOVSC P=TMMLKM d P$MOVSC P=TMOVE | PSCR P$MOVSC P=TOSSIO P$MOVSC P=TPAGAL P$MOVSC P=TPROC P$MOVSC P=TSWBLK P$MOVSC P=TTM
0x082648…0827dc Dummy {f00=0x0027, f01=0x2008, f02=» P$MOVSC P=TIOSDM P$MOVSC P=TLDPGM ( PSCR @ P$MOVSC P=TLDSEG L P$MOVSC P=TMMLKM d P$MOVSC P=TMOVE | PSCR P$MOVSC P=TOSSIO P$MOVSC P=TPAGAL P$MOVSC P=TPROC P$MOVSC P=TSWBLK P$MOVSC P=TTM
0x0827dc…082970 Dummy {f00=0x0027, f01=0x0190, f02=» _8 P ,R P A ) " A ` T H A ` @ ( @ X <a Q -P _ @ < @ :T A Z A V ,PB @ 6PD @ 8 ! T $ ( A j @ < A f# A l h RE RN ME MN P A ` @ <
0x082970…082b04 Dummy {f00=0x0027, f01=0x0190, f02=» W ( W P T $ ; V ; Wp&~ P &`P 6 P @ L$ P $ TH P@#~ > V . >A P Y ( X (W ^ ? ? @ L ' P Y Y @ L" P A p A h A j A l hW x ^ P _ " ^ xT @ N9J A PT _ N1@ _ ^ 9 V
0x082b04…082c98 Dummy {f00=0x0027, f01=0x0190, f02=» L ( > > > > > > > > F D ? ? ? ? ? ? ? F > A L > A ( A ( F ^ " , , A A :B W " , A :b A A A Q (P _ # # H A " A 4 0R$ 9U AR FQ 0:D A 4 _* A
0x082c98…082e2c Dummy {f00=0x0027, f01=0x0190, f02=» " A W A :H: A " , " 0 " 1 " ! R :W& W W W ?W /W :W A W ! A z A @ A @A Pf _ ? @ @T A I > > > @ _ I T A @ " T A P I T$! A A p A P A T A X A A ` A
0x082e2c…082fc0 Dummy {f00=0x0027, f01=0x0190, f02=» RD_ M A `P6 T @ VT. @ ZP A ZW ` j @ h @ fP @ l T A RP A P< V A P TT <a P ,;A;a A X A d (@ ( 4R P Z T 5 _$ : 4P^R` < % ) ! P # j T( h
0x082fc0…083154 (1, 9) Opaque[0x194]
0x083154…0832e8 # DirEnt {nam=»ASMUP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0500, f03=0x0000}
0x083154…0832e8 IdxSect {
0x083154…0832e8 f00 = 0x0028 // 0x83154 @0x0
0x083154…0832e8 f01 = 0x0004 // 0x83156 @0x2
0x083154…0832e8 gno = [ // 0x83158 @0x4
0x083154…0832e8 [0x00]: C0x0028.0x0.0
0x083154…0832e8 [0x01]: C0x0028.0x1.0
0x083154…0832e8 ]
0x083154…0832e8 }
0x0832e8…08347c Dummy {f00=0x0028, f01=0x0190, f02=» P$ASM P=ADMTSK P$ASM P=ARITMS P$ASM P=CTABC0 0 P$ASM P=DCADDR F P$ASM P=DFTAB P$ASM P=DRAS01 p P$ASM P=DRCD01 P$ASM P=DRCR01 P$ASM P=DRDC07 P$ASM P=DRDC13 P$ASM P=DRDC15 P$ASM P=DRDC17
0x08347c…083610 Dummy {f00=0x0028, f01=0x0190, f02=»SM P=DRDY01 P$ASM P=DRDY02 P$ASM P=DRFD01 * P$ASM P=DRFD02 @ P$ASM P=DRGP01 V P$ASM P=DRGP02 l P$ASM P=DRGP03 P$ASM P=DRGP04 P$ASM P=DRIC01 P$ASM P=DRKB04 P$ASM P=DRLP01 P$ASM P=DRMD01 P$A
0x083610…0837a4 Dummy {f00=0x0028, f01=0x0190, f02=»=DRSOP1 P$ASM P=DRSU01 P$ASM P=DRTC01 & P$ASM P=DRTN01 < P$ASM P=DRTP02 R P$ASM P=DRTP03 h P$ASM P=DRTP04 ~ P$ASM P=DRTW01 P$ASM P=DRVU01 P$ASM P=DSKSUB P$ASM P=DTTP03 P$ASM P=DVTDI P$ASM P=D
0x0837a4…083938 Dummy {f00=0x0028, f01=0x0190, f02=» P=DVTMS P$ASM P=DVTOD P$ASM P=DVTT1 $ P$ASM P=DVTT2 8 P$ASM P=DVTTN L P$ASM P=DVTTP ` P$ASM P=DVTVU t P$ASM P=DW0701 P$ASM P=DW1301 P$ASM P=DW1501 P$ASM P=DW2201 P$ASM P=DWII01 P$ASM P=DWIO01
0x083938…083acc Dummy {f00=0x0028, f01=0x0190, f02=»SM P=LRPINT P$ASM P=MONTAB P$ASM P=MONTIM * P$ASM P=MSUBS @ P$ASM P=PFTAB T P$ASM P=SCLASS h P$ASM P=SDMBUF ~ P$ASM P=SDMOCR P$ASM P=SDMSUB P$ASM P=SDMTSK P$ASM P=ST8000 P$ASM P=SYSINI P$ASM P
0x083acc…083c60 Dummy {f00=0x0028, f01=0x0190, f02=»ORT P$ASM P=TCLASS P$ASM P=TDISP " P$ASM P=TIMER 6 P$ASM P=TIOADM J P$ASM P=TIODM ` P$ASM P=TIOEDM t P$ASM P=TIOFM P$ASM P=TIOSDM P$ASM P=TLDPGM P$ASM P=TLDSEG P$ASM P=TMMLKM P$ASM P=TMOVE
0x083c60…083df4 (1, 10) Dummy {f00=0x0028, f01=0x0010, f02=»ASG /E0,TY10
0x083df4…083f88 Dummy {f00=0x0028, f01=0x2008, f02=» TY10
0x083f88…08411c Dummy {f00=0x0028, f01=0x0190, f02=» h , ( > > > > > > ^ _ ^ _ ? ? , ( ? ? ? A ^ @ ? ? 8 , ( # > > > > > > > h , ( ( C @ > , ( c ? ? ? ? ? ? ? A , ( > A
0x08411c…0842b0 Dummy {f00=0x0028, f01=0x0190, f02=» 0R 9U AR FQ 0:D , ( A _* A " A A ( , ( # T A A " X , ( C R _U . " , ( c A : A " A A , ( $ T !
0x0842b0…084444 Dummy {f00=0x0028, f01=0x0190, f02=» @ W @ " x , ( @ D H L P T X ` d h l p t x | , ( ? D , ( _ t , ( ! R :W W , ( W W ?W /W : A W ! A A , (
0x084444…0845d8 Dummy {f00=0x0028, f01=0x0190, f02=» , ( A A A A @ , ( B ? A @ > @ _ * 4 , ( " _ T I ,R M A P T @ T d , ( D @ P A W ` @ @ P @ , ( T | A P A < V A @ H D
0x0845d8…08476c Dummy {f00=0x0028, f01=0x0190, f02=» ;W A T H D ! E I M O V S Y ] a $ e i b m q N u y } H D ! R h ~ D T P H D ! 0 @ t t # ' + X / ^ 3 ?W* C WW [ ]W a H D ! w }P
0x08476c…084900 Dummy {f00=0x0028, f01=0x0190, f02=» P t ~ T L W T W H D ! b ~ ! + D / B ? I QW c i b m t H H D ! l w ~ yW ~ b P P P P ~ T W H D ! n P D D T )P -
0x084900…084a94 (1, 11) Opaque[0x194]
0x084a94…084c28 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0510, f03=0x0000}
0x084a94…084c28 IdxSect {
0x084a94…084c28 f00 = 0x0028 // 0x84a94 @0x0
0x084a94…084c28 f01 = 0x00e4 // 0x84a96 @0x2
0x084a94…084c28 gno = [ // 0x84a98 @0x4
0x084a94…084c28 [0x00]: C0x0028.0x2.0
0x084a94…084c28 [0x01]: C0x0028.0x3.0
0x084a94…084c28 [0x02]: C0x0029.0x0.0
0x084a94…084c28 [0x03]: C0x0029.0x1.0
0x084a94…084c28 [0x04]: C0x0029.0x2.0
0x084a94…084c28 [0x05]: C0x0029.0x3.0
0x084a94…084c28 [0x06]: C0x002a.0x0.0
0x084a94…084c28 [0x07]: C0x002a.0x1.0
0x084a94…084c28 [0x08]: C0x002a.0x2.0
0x084a94…084c28 [0x09]: C0x002a.0x3.0
0x084a94…084c28 [0x0a]: C0x002b.0x0.0
0x084a94…084c28 [0x0b]: C0x002b.0x1.0
0x084a94…084c28 [0x0c]: C0x002b.0x2.0
0x084a94…084c28 [0x0d]: C0x002b.0x3.0
0x084a94…084c28 [0x0e]: C0x002c.0x0.0
0x084a94…084c28 [0x0f]: C0x002c.0x1.0
0x084a94…084c28 [0x10]: C0x002c.0x2.0
0x084a94…084c28 [0x11]: C0x002c.0x3.0
0x084a94…084c28 [0x12]: C0x002d.0x0.0
0x084a94…084c28 [0x13]: C0x002d.0x1.0
0x084a94…084c28 [0x14]: C0x002d.0x2.0
0x084a94…084c28 [0x15]: C0x002d.0x3.0
0x084a94…084c28 [0x16]: C0x002e.0x0.0
0x084a94…084c28 [0x17]: C0x002e.0x1.0
0x084a94…084c28 [0x18]: C0x002e.0x2.0
0x084a94…084c28 [0x19]: C0x002e.0x3.0
0x084a94…084c28 [0x1a]: C0x002f.0x0.0
0x084a94…084c28 [0x1b]: C0x002f.0x1.0
0x084a94…084c28 [0x1c]: C0x002f.0x2.0
0x084a94…084c28 [0x1d]: C0x002f.0x3.0
0x084a94…084c28 [0x1e]: C0x0030.0x0.0
0x084a94…084c28 [0x1f]: C0x0030.0x1.0
0x084a94…084c28 [0x20]: C0x0030.0x2.0
0x084a94…084c28 [0x21]: C0x0030.0x3.0
0x084a94…084c28 [0x22]: C0x0031.0x0.0
0x084a94…084c28 [0x23]: C0x0031.0x1.0
0x084a94…084c28 [0x24]: C0x0031.0x2.0
0x084a94…084c28 [0x25]: C0x0031.0x3.0
0x084a94…084c28 [0x26]: C0x0032.0x0.0
0x084a94…084c28 [0x27]: C0x0032.0x1.0
0x084a94…084c28 [0x28]: C0x0032.0x2.0
0x084a94…084c28 [0x29]: C0x0032.0x3.0
0x084a94…084c28 [0x2a]: C0x0033.0x0.0
0x084a94…084c28 [0x2b]: C0x0033.0x1.0
0x084a94…084c28 [0x2c]: C0x0033.0x2.0
0x084a94…084c28 [0x2d]: C0x0033.0x3.0
0x084a94…084c28 [0x2e]: C0x0034.0x0.0
0x084a94…084c28 [0x2f]: C0x0034.0x1.0
0x084a94…084c28 [0x30]: C0x0034.0x2.0
0x084a94…084c28 [0x31]: C0x0034.0x3.0
0x084a94…084c28 [0x32]: C0x0035.0x0.0
0x084a94…084c28 [0x33]: C0x0035.0x1.0
0x084a94…084c28 [0x34]: C0x0035.0x2.0
0x084a94…084c28 [0x35]: C0x0035.0x3.0
0x084a94…084c28 [0x36]: C0x0036.0x0.0
0x084a94…084c28 [0x37]: C0x0036.0x1.0
0x084a94…084c28 [0x38]: C0x0036.0x2.0
0x084a94…084c28 [0x39]: C0x0036.0x3.0
0x084a94…084c28 [0x3a]: C0x0037.0x0.0
0x084a94…084c28 [0x3b]: C0x0037.0x1.0
0x084a94…084c28 [0x3c]: C0x0037.0x2.0
0x084a94…084c28 [0x3d]: C0x0037.0x3.0
0x084a94…084c28 [0x3e]: C0x0038.0x0.0
0x084a94…084c28 [0x3f]: C0x0038.0x1.0
0x084a94…084c28 [0x40]: C0x0038.0x2.0
0x084a94…084c28 [0x41]: C0x0038.0x3.0
0x084a94…084c28 [0x42]: C0x0039.0x0.0
0x084a94…084c28 [0x43]: C0x0039.0x1.0
0x084a94…084c28 [0x44]: C0x0039.0x2.0
0x084a94…084c28 [0x45]: C0x0039.0x3.0
0x084a94…084c28 [0x46]: C0x003a.0x0.0
0x084a94…084c28 [0x47]: C0x003a.0x1.0
0x084a94…084c28 [0x48]: C0x003a.0x2.0
0x084a94…084c28 [0x49]: C0x003a.0x3.0
0x084a94…084c28 [0x4a]: C0x003b.0x0.0
0x084a94…084c28 [0x4b]: C0x003b.0x1.0
0x084a94…084c28 [0x4c]: C0x003b.0x2.0
0x084a94…084c28 [0x4d]: C0x003b.0x3.0
0x084a94…084c28 [0x4e]: C0x003c.0x0.0
0x084a94…084c28 [0x4f]: C0x003c.0x1.0
0x084a94…084c28 [0x50]: C0x003c.0x2.0
0x084a94…084c28 [0x51]: C0x003c.0x3.0
0x084a94…084c28 [0x52]: C0x003d.0x0.0
0x084a94…084c28 [0x53]: C0x003d.0x1.0
0x084a94…084c28 [0x54]: C0x003d.0x2.0
0x084a94…084c28 [0x55]: C0x003d.0x3.0
0x084a94…084c28 [0x56]: C0x003e.0x0.0
0x084a94…084c28 [0x57]: C0x003e.0x1.0
0x084a94…084c28 [0x58]: C0x003e.0x2.0
0x084a94…084c28 [0x59]: C0x003e.0x3.0
0x084a94…084c28 [0x5a]: C0x003f.0x0.0
0x084a94…084c28 [0x5b]: C0x003f.0x1.0
0x084a94…084c28 [0x5c]: C0x003f.0x2.0
0x084a94…084c28 [0x5d]: C0x003f.0x3.0
0x084a94…084c28 [0x5e]: C0x0040.0x0.0
0x084a94…084c28 [0x5f]: C0x0040.0x1.0
0x084a94…084c28 [0x60]: C0x0040.0x2.0
0x084a94…084c28 [0x61]: C0x0040.0x3.0
0x084a94…084c28 [0x62]: C0x0041.0x0.0
0x084a94…084c28 [0x63]: C0x0041.0x1.0
0x084a94…084c28 [0x64]: C0x0041.0x2.0
0x084a94…084c28 [0x65]: C0x00bc.0x3.0
0x084a94…084c28 [0x66]: C0x00bd.0x0.0
0x084a94…084c28 [0x67]: C0x00bd.0x1.0
0x084a94…084c28 [0x68]: C0x00bd.0x2.0
0x084a94…084c28 [0x69]: C0x00bd.0x3.0
0x084a94…084c28 [0x6a]: C0x00be.0x0.0
0x084a94…084c28 [0x6b]: C0x00be.0x1.0
0x084a94…084c28 [0x6c]: C0x00be.0x2.0
0x084a94…084c28 [0x6d]: C0x011d.0x2.0
0x084a94…084c28 [0x6e]: C0x011d.0x3.0
0x084a94…084c28 [0x6f]: C0x011e.0x0.0
0x084a94…084c28 [0x70]: C0x0170.0x2.0
0x084a94…084c28 [0x71]: C0x0170.0x3.0
0x084a94…084c28 ]
0x084a94…084c28 }
0x084c28…084dbc Dummy {f00=0x0028, f01=0x0190, f02=» > @ IDENT ADMTSK REL 11.0 81-02-12 870105041100 ADMTSK F , ( X ! S LX ADMTSK x PRUN DMTTSB DWTECB FDBECB FWTFNR
0x084dbc…084f50 Dummy {f00=0x0028, f01=0x0190, f02=» l ECBCW1 ECBCW2 , ( $ F F Q 7 0 DWTOR ` , ( W <h W Q W 7 ( J p FDBOMD ECBBA , ( " # L T J R F ECBEL , (
0x084f50…0850e4 Dummy {f00=0x0028, f01=0x0190, f02=» G t , ( G$ T F K F K W , ( _ W W Q 7 W B NP D TENDIO t , ( } P 9 X 1 W B , ( (@( T _B N FPB:FR , ( " S
0x0850e4…085278 Dummy {f00=0x0028, f01=0x0190, f02=» $ &" & : z MOV:US FPB:FO , , ( H$ J $ F P ( R * L > FPB:RP n * & $ S *# T P ) Y 00 S FPB:SH FPB:RL , ( 7 , S , S . R 0 <h T * & O
0x085278…08540c Dummy {f00=0x0028, f01=0x0190, f02=» , ( $ 9H S 4 S 6 N S 0 FPB:S1 4 DIVMOD F , ( <h 8 6P : 7 V X , ( : W $ B F MOV:SU , ( J $ < : N <h , ( DD N
0x08540c…0855a0 Dummy {f00=0x0028, f01=0x018e, f02=» > l FWTPAR FDBEXC , ( 7 " T N @!? P N BT N 0 MPYMOD ` , ( Q " K P @W 6P D T 7 r RTNA14 * & m V P D 6S W 7 SETCRO FDBENL , (
0x0855a0…085734 (1, 12) Dummy {f00=0x0028, f01=0x0190, f02=» f , ( "$ C W J R F B , ( ] F C ( B 8 SCTFWT h , ( _| "! L Y z _N H D ! Z ` Z Q Q H
0x085734…0858c8 Dummy {f00=0x0028, f01=0x4090, f02=»P W V H D ! Tz P #P )T 1TT 9TL EPH KT WP. [W* aP iT uP S V T W R ^ " z@ L Y z _N H D ! Z ` Z Q Q H
0x0858c8…085a5c Dummy {f00=0x0028, f01=0x0190, f02=» > @ IDENT ARITMS REL 11.0 81-01-26 870105041100 & " ADDMOD DSUMOD MPYMOD DIVMOD F ADDMOD p , ( S Q R S P W , ( ! S _ R Q _ ?A [ DSUMOD F , ( A [ :
0x085a5c…085bf0 Dummy {f00=0x0028, f01=0x0190, f02=»+ l , ( P V ? V ! P :a9 ^ , ( _ Z S :a V S R < DIVMOD l , ( : [ :A V T , ( U P V S Q T V R , ( ! R * ! P 9A V ) :A_
0x085bf0…085d84 Dummy {f00=0x0028, f01=0x40a2, f02=» _S wS PR V H D ! PB V V P S V S R V T U PX V S* QJ T $ VD R !R -P 3V EV MR d l @ T , ( U P V S Q T V R , ( ! R * ! P 9A V ) :A_
0x085d84…085f18 Dummy {f00=0x0028, f01=0x4128, f02=» > @ IDENT CTABC0 REL 11.0 81-01-26 870105041100 , ( F , ( ! !"#$%&'()*+,-. PQRSTUVW v , ( A XYZ /^_@abcdefghijklmnopqrstuvw a xyz{|}~ ( 8 # H %
0x085f18…0860ac Dummy {f00=0x0028, f01=0x0190, f02=» > @ IDENT DCADDR REL 11.0 81-01-26 870105041100 F B FNDDNA FNDDNT GETDNA GETDNT GETDSA GETDST GETSNA GETSNT F GETSSA GETSST GETDSA SAVE8 GETDST SCTDCT , ( B W
0x0860ac…086240 Dummy {f00=0x0028, f01=0x0190, f02=»! P B _V B P _ _ RETUR8 $ IHRET8 6 FNDDNT H FNDDNA , ( { ^ !@ W p GETDNT GETDNA , ( @ W W _ B , ( B
0x086240…0863d4 (1, 13) Dummy {f00=0x0029, f01=0x4100, f02=» 8 T 0 9X Y GETSNT GETSNA 4 , ( " _ W _." /] Z H ' 8_ x H D ! W P P )T ER& UT YR cP sP W W W V* T W T$ W , @ B
0x0863d4…086568 Dummy {f00=0x0029, f01=0x410e, f02=» > @ IDENT DFTAB REL 11.0 81-01-26 870105041100 , ( DFTAB DFTABE DMTIDP DMTIDS DFTABL F DFTAB v DFTABE DMTIDP DMTIDS DFTABL @
0x086568…0866fc Dummy {f00=0x0029, f01=0x0190, f02=» > @ IDENT DRAS01 REL 11.0 81-01-26 870105041100 F B IASCUZ ASCUON ASCHAN ASCHRI ASSTBL ASCHRO ASENBL ASDISP F ASCHAN INTAS1 , ( J B A A J J , ( B A A J J B A
0x0866fc…086890 Dummy {f00=0x0029, f01=0x0190, f02=»CUZ INTSAV , ( y U U U (@ _2 A , ( ? @ P W V R U T =g P , ( % R !0 0T P " DWTST , ( P X !@T Y ! T _* TDISP , (
0x086890…086a24 Dummy {f00=0x0029, f01=0x0190, f02=» DWTSB2 DWTCP2 , ( ) 4 T " X '? P ( DWTOCH X , ( E P " U T P Y :H U j NDREPO , ( c @ T $ T X U U _ , ( U U X(_ U =g%
0x086a24…086bb8 Dummy {f00=0x0029, f01=0x018e, f02=» ? U X. ~ , ( <P > R > X !@P ! P P R , ( T 9AR @ U U X !? N NDREDW ~ , ( 7 P X ! T R_ " PFPOST , ( S T R 4P P Y W @ , ( q
0x086bb8…086d4c Dummy {f00=0x0029, f01=0x0190, f02=» * & P P P _ U W Q Y , ( > ? @ T A 2 % > > b , ( " ?G ?g >" 8$ < X < ~ , ( @ X > P B R W ASCHRI P NDSAV8 * &
0x086d4c…086ee0 Dummy {f00=0x0029, f01=0x416e, f02=» ( $ Y W N H D !B Q e H W VJ T Th * P P T T P 0 H D !3 AP EP8 Q U YP oT R2 T T P N * PH RD | H D ! @ P, P R 7P ?T S [R _P cP( g mW$ sT T T V
0x086ee0…087074 (1, 14) Dummy {f00=0x0029, f01=0x0190, f02=» > @ IDENT DRCD01 REL 11.0 81-01-26 870105041100 CDADR CDON IHCD DWCD01 F CDADR j | NVLCHK ECBRC , ( X Y T C Y DWTECB VOLNAM ,
0x087074…087208 Dummy {f00=0x0029, f01=0x0190, f02=» W ! | ECBCW1 , ( B P ! 9h)" Q Y . , ( Z Y ! Y X 6 L ^ ECBRL , ( 5 Y _h B S ^~ B ECBBA , ( X ! Y B S Y B
0x087208…08739c Dummy {f00=0x0029, f01=0x0190, f02=» X P Y ! ! ! ~ , ( Q X P ! X > Y ! ! , ( q X ^ P ! _^ ! ! Y N , ( X P ^ ! ! ! ! ~ , ( Y Y ! ! P Y Y , ( X " T Y _$" P Y _2
0x08739c…087530 Dummy {f00=0x0029, f01=0x0190, f02=» W n DWTA4 PFPOST DWTA5 0 TDISP @ , ( Q$ Y @ T Y Y P , ( @ k Y X ; Y , ( P ;AV X T @ X 1 , ( _( @ 1_6 Y Y
0x087530…0876c4 Dummy {f00=0x0029, f01=0x018e, f02=» P ! F p , ( ) ! X W 4 X # X X , ( G X 9 V 9A X Y :H @ ECBEL p , ( g Y C X Y 4 X , ( R P P R ;a;a Y 4 Y TENDIO , ( X X P Y
0x0876c4…087858 Dummy {f00=0x0029, f01=0x0190, f02=» , ( Y @ $T ! F! T Y DWTORD 8 * & ! Y Y XP X & Y J , ( '? C @ P a W x SETIMP , ( + 0P -_z ( _ A IHCD ^ INTSAV
0x087858…0879ec Dummy {f00=0x0029, f01=0x018e, f02=» 4 ! n , ( F! T A ! Y , ( ! T X X > VOLGET n VOLCLR , ( R , W . DWCD01 , ( @ Y 4 , (
0x0879ec…087b80 Dummy {f00=0x0029, f01=0x0190, f02=» H D ! p & ( T # ' +T 9 ;W ?T CP GP| KPz OPt SP H D ! _ g < k F mW q B } T P N @ T P J < < d P H D ! 2 0 4 6 ~ Pf 8 #P> ' + 8 /T = 4 ?P C G K H D ! 8 O 0 S 2 UPR Y | ] 8 g 8 k
0x087b80…087d14 (1, 15) Dummy {f00=0x0029, f01=0x0190, f02=» P V # l + T 1 N 5P 9 ( C < EW G > IW K @ H D ! MW O T [T _ : c s w T 8 P. V T 0 ` V < H D ! 4 T V T d P( d < P ( #P -Wp 5 8 E 4 I H D ! M 8 SV ] 2 c 2 i 0 u 4 y 4 2 R P P R
0x087d14…087ea8 Dummy {f00=0x0029, f01=0x4052, f02=» T TJ T T* R l W d ( t <@ N s w T 8 P. V T 0 ` V < H D ! 4 T V T d P( d < P ( #P -Wp 5 8 E 4 I H D ! M 8 SV ] 2 c 2 i 0 u 4 y 4 2 R P P R
0x087ea8…08803c Dummy {f00=0x0029, f01=0x0190, f02=» > @ IDENT DRCR01 REL 11.0 81-01-26 870105041100 & " CRADR ACCR CRON IHCR DWCR01 F CRADR p P ACCR DISIOE , ( B PU W Y A ! TENDIO TDISP
0x08803c…0881d0 Dummy {f00=0x0029, f01=0x0190, f02=» n PFPOST ! CRON ! SAVE8 ! 2 , ( Pt t @ *C X. _6 ! B DWTST ! r IHCR ( ! INTSAV ! , ( X Z@ A _L A ! DWTECB ! , ( @ 1 X (@ 4
0x0881d0…088364 Dummy {f00=0x0029, f01=0x0190, f02=» /W A f ;AY A ! x , ( h Q @ f V D @ h R " , ( $W ABCDEFGHI JKLMNOPQR " H , ( /STUVWXYZ P Q @ h T D " x , ( @ W :#@'=" @ f Q @ h R Q " , ( + ;AY T ;AT @ f L @ h , " , (
0x088364…0884f8 Dummy {f00=0x0029, f01=0x0190, f02=» " h RETUR8 # DWCR01 # , ( H Y B # . # ^ # ~ H D ! U W P % 3 GW UR WQ a l e z # H D ! N uU { T W W W Q` V8
0x0884f8…08868c Dummy {f00=0x0029, f01=0x4020, f02=» # v $ @ $ R01 # , ( H Y B # . # ^ # ~ H D ! U W P % 3 GW UR WQ a l e z # H D ! N uU { T W W W Q` V8
0x08868c…088820 Dummy {f00=0x0029, f01=0x0190, f02=» > @ IDENT DRDC13 REL 11.0 81-01-26 870105041100 3 . * DC13AD IH1301 IH1302 DC13ON DW1300 3 F 3 x 3 DISIOE 3 , ( ? P P 1P W P 5P 3 DC13AD r 3 , ( _@
0x088820…0889b4 (1, 16) Dummy {f00=0x0029, f01=0x0190, f02=» @ P 0P _ % A 3 | TENDIO 4 , ( A _F Y Y 4 . DWTECB 4 ^ ECBEL 4 p * & _X X P 0 Y P C 4 DC:MIN 4 * & _z _ _ B 4 SETIME 4 , (
0x0889b4…088b48 Dummy {f00=0x0029, f01=0x0190, f02=» c ( y Y (@ 4 (P 0 ) 4 DWTST 5 0 , ( > (P _ ) 1 4 X 5 @ DWTOR 5 p ECBBA 5 , ( R X T X P , Y 5 , ( B C L C L C 5 * & _Z @ @ @
0x088b48…088cdc Dummy {f00=0x0029, f01=0x0190, f02=» - W > 5 , ( @ M < ! ! P ! ! 6 0 , ( @ m @ X& ! @ _* < ! _ 6 ` , ( ! X2 A " ! X2 A 6 , ( H @ A ! ' H# P A ! _x 6 , ( ! X f
0x088cdc…088e70 Dummy {f00=0x0029, f01=0x0190, f02=» _ Y Y X 6 ~ , ( E T W ! T ! T ! 7 , ( c T @ T W @ W ! T 7 N , ( P ZY Z Q % _( ! 7 ~ * & T ' T A r X R X 7 , ( @ T @ C Y ! Z 7
0x088e70…089004 Dummy {f00=0x0029, f01=0x0190, f02=» Y 7 l , ( 7 W P X T ! Z Y Y @ 8 , ( W@ ! ! W A ! X 8 < ECBRL 8 l , ( u H P H 0 " 8 | , ( R ! ! Y Y W ! Z 8 , ( Y ! ! ! 8
0x089004…089198 Dummy {f00=0x0029, f01=0x0190, f02=» ! 8 l PFPOST 9 , ( - ! 4 ! ! 4 @ 9 , ( M T ! A B 4B A J ! 9 N SAVE8 9 ~ IH1301 ~ 9 , ( k 4 @ T B 4B J 4 . 9 , ( J T ! A A 4 ! L 9 IH1
0x089198…08932c Dummy {f00=0x0029, f01=0x0190, f02=» . " P 9 v , ( 1 P A 4 * 9AY P 2 _ B : , ( @ ! T ! ! & X 9AP : F , ( ? ^ 2 _ " ! 1 4 @ ` : v DC13ON n : , ( _ @ P 0 , 4 < ! A : , ( } L @ ` P
0x08932c…0894c0 Dummy {f00=0x0029, f01=0x0190, f02=» @ - A > < @ A : , ( A W A W ; , , ( P A A @ - R ; 5 A @ @ 4 ; 0 ; ; ; DW1300 ; , (
0x0894c0…089654 (1, 17) Dummy {f00=0x002a, f01=0x0190, f02=» i k u w } P. , R ; p H D ! [ . . . P P , 0 8 P P " ! * )WV C J I R < , H D !H aP u {P P R6 T. P& P P T 0 4 8 # < ' @ < x H D ! + D -W S J W & [P0 c & k ` u y & J . T P .
0x089654…0897e8 Dummy {f00=0x002a, f01=0x0190, f02=» W W PR P* < H D !1 P P ) - < 7W =P GT ] & c eWT q {P. R < W = H D ! x . T . T . T . & = d H D ! # ) n - & 5 A G OT S ` k sT T T = H D ! RB P.
0x0897e8…08997c Dummy {f00=0x002a, f01=0x405a, f02=» < 8 { P& ! % B - /R 3 D 7 B ; ? C D - 2 / 0 > R > D@ > V
0x08997c…089b10 Dummy {f00=0x002a, f01=0x0190, f02=» > @ IDENT DRDC22 REL 11.0 81-01-26 870105041100 & " DC22AD IH2201 IH2202 DC22ON F DC22AD p DWTECB , ( - " , ( K ! " ' / 8 9 -
0x089b10…089ca4 Dummy {f00=0x002a, f01=0x0190, f02=» P ] B ] GETDNA " , ( V ] ] ] 4 , ( B P P T d , ( T P X , ( ' ] X ] Y > TENDIO , (
0x089ca4…089e38 Dummy {f00=0x002a, f01=0x0190, f02=» 0 Y B Y x DWTCHP , ( @ V Y Y Y * , ( Y > X > Y > Z , ( X >:D :D :D C , ( B Y X > , ( X V
0x089e38…089fcc Dummy {f00=0x002a, f01=0x0190, f02=» j , ( s P W A 4 X > , ( X &T W 0 Y : * & &T @ A X j , ( R X " T ! C , ( P C X :h T P C DC:MIN ,
0x089fcc…08a160 Dummy {f00=0x002a, f01=0x0190, f02=» j SETIME , ( a X R P A , ( { Y W Y > > X J , ( Z X A Y _0 Y X z , ( 6 X @ T A A H , ( > X P ( y Y 4 X ( ,
0x08a160…08a2f4 (1, 18) Dummy {f00=0x002a, f01=0x0190, f02=» j , ( S X &P 0 : Y &_4 $ (P , ( s _ ) 1_J $ (XV P _ : , ( 0 )_d (P _ ) 1 4 $ , j , ( Q , W $ L H I , ( Y Y > H T W , ( X I
0x08a2f4…08a488 Dummy {f00=0x002a, f01=0x0190, f02=» ] a 4 D , ( o X A > * ! ! P * , ( ! ! P Z , ( ! A ! P A , ( PP ! A p , ( A A !
0x08a488…08a61c Dummy {f00=0x002a, f01=0x018e, f02=» @ @ T X z , ( m ! T ! T P T , ( _ X Q % _, ! T H , ( T A Q p @ P X * Q @ x , ( Q ! & A W * ! ! , ( @ T ! z_ _ _ _ _ _ @ , (
0x08a61c…08a7b0 Dummy {f00=0x002a, f01=0x0190, f02=» h , ( g ! T _( ! _P A @ P ! , ( B & A ! F ! X @ PP @ X 8 , ( Z8 X ! B A h , ( B A B P A A ! A , ( & B A ! & @ , ( p $ 8 A
0x08a7b0…08a944 Dummy {f00=0x002a, f01=0x0190, f02=» A A z A h A W ! , ( } ! ! @ ! @ ( , ( ! W A A W @ X , ( A @ P _` @ P _h ! , ( W A A W A , ( A W @ T ! 0 " P
0x08a944…08aad8 Dummy {f00=0x002a, f01=0x0190, f02=» @ A @ Xn D x , ( } H XxW ! M ! , ( M ! @ M ! @ H , ( M ! @ P A M ! x , ( 1 M ! W @ P A M , ( ! ? M ! A 4 @ ! , (
0x08aad8…08ac6c Dummy {f00=0x002a, f01=0x0190, f02=» B 4 @ z IH2201 INTSAV . , ( w T B 4B A J 4B J 4 A @ , ( ? &J T A A ] p IH2202 , ( 4 ! z A ? &_ J "#T , ( @ P R B W ] " P @
0x08ac6c…08ae00 Dummy {f00=0x002a, f01=0x018e, f02=» 9AP ^ 2 _ t DC22ON X , ( ! M " ! 1 4 ? P @ T h ( p m z r z X { p , ( , ( . , (
0x08ae00…08af94 (1, 19) Dummy {f00=0x002a, f01=0x0190, f02=» f , ( 3 1 , ( S 1 1 v * * 8 , ( s 0 > ; = h H D ! , j p 3 = ? f A , E I M Q U l Y ] a e H D ! i oP
0x08af94…08b128 Dummy {f00=0x002a, f01=0x0190, f02=» H D ! k w , D D V , N , , H D ! c D ! V ) P /V 5P = A h I KP: O S UP0 [R& eT i q P H D !o sP w { }W ~ D V P T f W T H D ! @ D RN TD T P W
0x08b128…08b2bc Dummy {f00=0x002a, f01=0x0190, f02=» P ) p /P = p CP WP k qP P P Q W H D ! T W P ( , 0 4 8 # < %W K S h e s Z $ < H D !{ P $ < P < * P P < H D ! , " < PP P < #
0x08b2bc…08b450 Dummy {f00=0x002a, f01=0x0190, f02=» | W* Z $ T | l H D ! ^ * p !P % z - ; * ?T C EP* M * S , W ] cR ( H D !w{ mT s y } P z * PZ $ & P ( . t H D ! s * , P> 8 * % 'P4 1P* 5 . 9 .
0x08b450…08b5e4 Dummy {f00=0x002a, f01=0x0190, f02=» z : W. X H D ! @ W @ W 0 T0 P , , % , - H D ! 5 ; 0 ? 4 C 2 I 4 M : Q 4 U _ 4 c , i 3 o 2 s 4 w W : ` H D ! 4 4 , * 4 , , 4 , P 4 , 4 H D ! , W"
0x08b5e4…08b778 Dummy {f00=0x002a, f01=0x4062, f02=» !! WF P P8 W P P P !W EP ] e gT L@ ^ 5 ; 0 ? 4 C 2 I 4 M : Q 4 U _ 4 c , i 3 o 2 s 4 w W : ` H D ! 4 4 , * 4 , , 4 , P 4 , 4 H D ! , W"
0x08b778…08b90c Dummy {f00=0x002a, f01=0x0190, f02=» > @ IDENT DRDC81 REL 11.0 81-01-26 870105041100 t F B DC81ON IH8101 IH8103 IH8105 IH8107 IH8109 IH8111 IH8113 t F F B IH8115 IH8117 IH8119 IH8121 IH8123 IH8102 IH8104 IH8106 t F B IH8108 IH8110 IH8112 IH8114 IH8116 IH8
0x08b90c…08baa0 Dummy {f00=0x002a, f01=0x0190, f02=» DW8124 DW8101 DW8103 DW8105 t n F B DW8107 DW8109 DW8111 DW8113 DW8115 DW8117 DW8119 DW8121 u ( DW8123 u r DW8102 u , ( 2 u ! u - u DW8
0x08baa0…08bc34 (1, 20) Dummy {f00=0x002a, f01=0x0190, f02=» IH8124 v DW8121 v DW8122 v , IH8121 v @ IH8122 v T DW8119 v h DW8120 v | IH8119 v IH8120 v DW8117 v DW8118 v IH8117 v IH8118 v
0x08bc34…08bdc8 Dummy {f00=0x002a, f01=0x0190, f02=» IH8114 w DW8111 w DW8112 w , IH8111 w @ IH8112 w T DW8109 w h DW8110 w | IH8109 w IH8110 w DW8107 w DW8108 w IH8107 w IH8108 w
0x08bdc8…08bf5c Dummy {f00=0x002a, f01=0x0190, f02=» IH8104 x INTSAV x ILLINT x * , ( } V A x < DISIOE x l DWTST x ~ TENDIO x TDISP x , ( P X ! T x , ( @ 8!@X " X ! @ @ Y
0x08bf5c…08c0f0 Dummy {f00=0x002a, f01=0x0190, f02=» ( X x p , ( + ! X 8 E 8 Y 4 Y 6 X y SETIME y @ , ( K ( ! ! Y ! y y R , ( i W Y X ( ! ! T X y SETIMP y , ( ! T Y ] y DWTECB y , (
0x08c0f0…08c284 Dummy {f00=0x002a, f01=0x0190, f02=» X ! X ( y ECBCW z ( , ( @ ! T B AR z 8 ECBBA z h , ( @$ _< _B b X ! z x DWTOR z , ( @ % " Q R Y Y z , ( ?@ X ! 8X
0x08c284…08c418 Dummy {f00=0x002a, f01=0x0190, f02=»CBEL z , ( B X( _.$ X2 { , ( 8 X ! " B X ( ! { < , ( @ Y _^ > X ( Y { l , ( @ L ? @ ? j y X { , ( V ! ! _" ! { , ( #@
0x08c418…08c5ac Dummy {f00=0x002a, f01=0x0190, f02=»@ B -! Y .) ! { , ( ! R ! ^ ! ! B # X | * , ( " 8 ) X 4T Y 4W ! Y . | Z , ( ZD X 6T X " 8 Y 6 W ] | , ( & | , ( ! ! X ] _ !
0x08c5ac…08c740 Dummy {f00=0x002a, f01=0x0190, f02=» * * C C | x , ( u X 4P $X V 8 Y 4 X } , ( 6 X 6P $^ T 8 _ $R } H , ( @ Y 6 Y 6 ] W Y 4 } x , ( @ ] Y . c " ! ! } , ( V ! ! Y .Z ! } , (
0x08c740…08c8d4 (1, 21) Dummy {f00=0x002b, f01=0x0190, f02=» } h , ( c 4T X 6 Y 4 _J Y . Y 2 ~ , ( Y 0 ! T Y 0 c T ! R T ~ 8 , ( X Y 0 P B - ~ h ECBRL ~ , ( B ]0 ! R Y 0 P ! R ~ , ( P ! ! Y .V ! ~ , (
0x08c8d4…08ca68 Dummy {f00=0x002b, f01=0x0190, f02=» ~ h , ( Y ^^ ^ Y Y 0_ ! C B , ( w Q C ! X 0 Y 0 8 , ( ! ! Y . ! X h , ( ! Y 2 Y .^V ! _& ! X 0 , ( ! ! C ! ! R , ( T Y 2
0x08ca68…08cbfc Dummy {f00=0x002b, f01=0x0190, f02=» ! ! V ! ! Y .Z* ! , ( gD C b # X " ( , ( 8 ) X 6 Y 6 @ ! X * & ! P ; T X , ( 2 Y X ( Y , ( A Y Y
0x08cbfc…08cd90 Dummy {f00=0x002b, f01=0x0190, f02=» C " t , ( I P P Y 0 ! _2 C , ( g _ W Y 0 ! X 0 ! ! D , ( Y 2 ! ! V ! C Y t , ( . b ! _" T ! ! ;P , ( X 2P 1 : B B ! , (
0x08cd90…08cf24 Dummy {f00=0x002b, f01=0x018e, f02=» , ( 7 ! ! ! ! ! ! , ( W ! ! ! ! ! 4 4 , ( w ! ] ! ] 4 ! v d , ( ! ! ! ! 4 ! v ! , ( _ ! v ! _* ! v ! Y 2 X PFPOST , (
0x08cf24…08d0b8 Dummy {f00=0x002b, f01=0x0190, f02=» f , ( + X P y Y X P y Y , ( K P } ] 4 ] , < B @ 8 , ( k , ] , 4 8 B 8 J 4" h , ( H 8 B T Y Y " Y $W , ( 8 I ! ] ] " , (
0x08d0b8…08d24c Dummy {f00=0x002b, f01=0x0190, f02=» " I R 4 _ ] ] " ] $ > , ( E > > > > > > > _ ? ? ? ? ? ^ ( IH8101 l X , ( e _ A R VJ" l , ( " $ & * 4 & < J , ( T < B @! T , ( ! P
0x08d24c…08d3e0 Dummy {f00=0x002b, f01=0x0190, f02=»102 , ( A R X X " X $ X ( , ( 3 * 4 X 8 8 , P ! P > , ( S Y > , > n , ( s # %& )* , / 1 , ( 2 4 78 ; => @ C EF IJ L O Q , ( R
0x08d3e0…08d574 (1, 22) Dummy {f00=0x002b, f01=0x0190, f02=» 4 y W Y X ( * ! V! , ( / T ] ] $ C ! ! v . , ( M " ! P ! _ ! ^ , ( m _ ! 4 R X " P , ( V C :AP Z P ! 4 ! R , ( _* ! V Y
0x08d574…08d708 Dummy {f00=0x002b, f01=0x0190, f02=» P % T A ~ , ( % > D P A A _2 ( $ E D P A A _H N z H D ! = V / V _ b P T 4 V b P* H D ! P, T ! O V S [ l e 4
0x08d708…08d89c Dummy {f00=0x002b, f01=0x0190, f02=» EP IP WW _ 8 aQ cW i 8 kP qW p H D ! 2 R, V T> W8 V T W /P2 3 v ; F E @ , H D ! aW {P VH P T R W 2 VH V T =P6 CP G x H D ! d M V eT TJ T@ RP T8 P 4 R P R P
0x08d89c…08da30 Dummy {f00=0x002b, f01=0x0190, f02=» /T I 2 M QVD H D ! a U V e 4 V PN @ P # v ) 5P6 ;P, MP SP [ H D !} kW u } v V V T: 4 V P` P V d H D ! T" 5 v ; A E z K Q W ] c i o s v y H D !
0x08da30…08dbc4 Dummy {f00=0x002b, f01=0x40d2, f02=» H D ! ( P P( P P KP QP W /T 3 r _P c uRb P V H D !)- P P R. P W ^ P" P2 T ` # ^ 3P 7 P A IP M Z W Z _ ` @ ] c i o s v y H D !
0x08dbc4…08dd58 Dummy {f00=0x002b, f01=0x0190, f02=» > @ IDENT DRDC82 REL 11.0 81-01-26 870105041100 F B DC82ON IH8201 IH8203 IH8205 IH8207 IH8209 IH8211 IH8213 F F B IH8215 IH8217 IH8219 IH8221 IH8223 IH8202 IH8204 IH8206 F B IH8208 IH8210 IH8212 IH8214 IH8216 IH8
0x08dd58…08deec Dummy {f00=0x002b, f01=0x0190, f02=» DW8224 DW8201 DW8203 DW8205 n F B DW8207 DW8209 DW8211 DW8213 DW8215 DW8217 DW8219 DW8221 ( DW8223 r , ( DW8202 2 , ( ! 2 A
0x08deec…08e080 Dummy {f00=0x002b, f01=0x018e, f02=» DW8204 , ( 2 " R ( $ ( n DW8203 @ , ( = ] DW8206 r , (
0x08e080…08e214 (1, 23) Dummy {f00=0x002b, f01=0x0190, f02=» , ( 4 DW8208 H , ( r ' ( $ 9 ( DW8207 , ( }
0x08e214…08e3a8 Dummy {f00=0x002b, f01=0x0190, f02=» h ( $ ( DW8209 4 , ( H x DW8212 0 , ( % 0 E ( $ W 0
0x08e3a8…08e53c Dummy {f00=0x002b, f01=0x0190, f02=» 0 | 1 0 ( $ ( L DW8213 x , ( ! 9 DW8216 N , ( C 3
0x08e53c…08e6d0 Dummy {f00=0x002b, f01=0x0190, f02=» p DW8218 $ , ( N 4 8 h ( $ ( DW8217 , ( Y $ y
0x08e6d0…08e864 Dummy {f00=0x002b, f01=0x0190, f02=» DW8219 , ( % H DW8222 . , ( # 6 p C ( $ U . ( DW8221 , (
0x08e864…08e9f8 Dummy {f00=0x002b, f01=0x018e, f02=» ( $ ( DW8223 < < , ( 9 ' P Y DISIOE * & c < P DWTST TENDIO TDISP , (
0x08e9f8…08eb8c Dummy {f00=0x002b, f01=0x0190, f02=» f , ( ! N X ! Z X @ E @ , ( Y , Y . X ( ! ! ! 8 , ( V Y ] X T h SETIMP , ( / 0 d X ( X , ( M y Y X @ I @ ,
0x08eb8c…08ed20 Dummy {f00=0x002b, f01=0x0190, f02=»ISEND , ( I C X ! X ECBCW > * & @ ( ! B AR N ECBBA | , ( @ _6 b X ! " DWTOR , ( Q R Y > Y > X ! 8X , ( !
0x08ed20…08eeb4 (1, 24) Dummy {f00=0x002b, f01=0x0190, f02=» p ECBEL , ( [ B X( _.$ X2 8 X * & u ! " B X ( 0P } N , ( _^ > X ( ] | SETIME , ( " X V , ( @ X ( X X,
0x08eeb4…08f048 Dummy {f00=0x002b, f01=0x0190, f02=» ! )S ! ! ! ~ , ( A B Q W P W Y * & _ < B - ) Y : B N , ( { ! ) ! ! R ! sP | , ( W B # X <" @ ) X ,T Y , , ( W Y :ZF X .T X <" @ Y . W
0x08f048…08f1dc Dummy {f00=0x002b, f01=0x0190, f02=» l , ( ) @ * * C , ( C C ! P W X ,P $X < , ( _ V @ Y , X . X .P $ l , ( ^ T @ _ $R Y . Y . , ( @ Y < ] W Y , @ Y < , ( @ ]
0x08f1dc…08f370 Dummy {f00=0x002b, f01=0x0190, f02=» . & ! P ! , ( 3 P ! P ! P ! j X <# , , ( S @W ] ! P , ( o X <# @ 1 ,! ) ! ! , ( Z W T X <# @ , ( -W X <# @
0x08f370…08f504 Dummy {f00=0x002b, f01=0x0190, f02=»P _B Z@ X | , ( # > Y <" > ( P , ( A @ ! Y : R ! T ] L , ( _ ! * ! V | , ( y Y :P b ! _* ! P , ( ! P ! P P _8 !
0x08f504…08f698 Dummy {f00=0x002b, f01=0x0190, f02=» ) l , ( @ ] _FW ! ! R , ( + _ Y :P b ! _ C < , ( G$ b # X <" @ ) l , ( c X .T X , Y . ! Y :X< X < , ( # @ - b # + ! ! , (
0x08f698…08f82c Dummy {f00=0x002b, f01=0x0190, f02=» 8T ] Y 8 Y 8W ] , ( 9e! X 4 X 2P X 4T Y 2 , , ( =" ] ! 4 Y 6 Y , ( Y 4 X 2T ! X n X ! * & P u n Y : B P ] , ( ! 4 X 6 ]
0x08f82c…08f9c0 Dummy {f00=0x002b, f01=0x0190, f02=» 0 0 W P W z ECBRL , ( ! B - - B W ! * , ( ) @ B - - B W ! X 6 Z , ( E 9A X 89E 4 ! FW ! 4 , ( e ! F X 6 ! Y 6 Y 4 ! 4 ! , ( F X 6 ! Y 6 Y 4
0x08f9c0…08fb54 (1, 25) Dummy {f00=0x002c, f01=0x0190, f02=» ] 0 ] " z , ( ] "W ] , ( ! " $ & * ! F 4 J , ( !9 ! [N FR 4 0 Y 0P z PFPOST , ( !Y $ 4 0 ! T C 4 @ , , ( !s Y 0 8 B A " P
0x08fb54…08fce8 Dummy {f00=0x002c, f01=0x0190, f02=» ! ! R @ B 8 , ( ! A Y Y " Y $ > > > > > > 0 IH8204 " ` , ( " > > ? ? ? ? ? ? ? X X " t IH8206 "H , ( "/ X $ X ( * ,:H L B ! ? ? ? , ( "O ? ? ? ? r X X " X
0x08fce8…08fe7c Dummy {f00=0x002c, f01=0x0190, f02=»H8210 " , ( " B ! ? ? ? ? ? ? ? X X IH8212 " @ , ( " " X $ X ( * ,:H L B ! ? ? T , ( " ? ? ? ? ? 0 X X " X $ X ( IH8214 # , ( # * ,:H L B0 ! ? ? ? ? ? ? ? , ( #/ X
0x08fe7c…090010 Dummy {f00=0x002c, f01=0x0190, f02=» X ( * ,:H L B3 ! ? , ( # ? ? ? ? ? ? X X " X $ X IH8220 # P , ( @# ( * ,:H L B4 ! ? ? ? ? ? ? d , ( # ? X X " X $ X ( * ,:H IH8222 # , ( # L B5 ! ? ? ? ? ? ? ? . X
0x090010…0901a4 Dummy {f00=0x002c, f01=0x0190, f02=» L B7 ! J 8 A | , ( $o P ! " T ! 4 ! P , ( @$ _ ! P ! ! ! @ L IH8201 $ | , ( $ < B A W ? ? ? ? ? ? ? , ( $ " $ & *J" ! , ( $ 19h Q
0x0901a4…090338 Dummy {f00=0x002c, f01=0x0190, f02=»J _ ? ? ? ? ? ? x , ( %K ? " $ & *J IH8207 %l H , ( %k $ ? ? ? ? ? ? ? " IH8209 % , ( % $ & *J $ ? ? ? ? ? ? ? IH8211 % , ( @ % " $ & *J
0x090338…0904cc Dummy {f00=0x002c, f01=0x0190, f02=»5 &$ , ( & " $ & *J! $ ? ? ? , ( &+ ? ? ? ? " $ & < IH8217 &R l , ( &K *J# $ ? ? ? ? ? ? ? IH8219 & , ( &k " $ & *J$ $ ? ? ? ? ? , ( & ? ?
0x0904cc…090660 Dummy {f00=0x002c, f01=0x0190, f02=»J& $ ? ? ? ? ? ? ? | , ( & < " $ & *J' $ , ( ' P % ] J < A P ! L , ( '+ T P W ! P W | , ( 'K H! T W ! 4 @ B , ( 'g < A % T U 4
0x090660…0907f4 (1, 26) Dummy {f00=0x002c, f01=0x0190, f02=» @ l ' @ 4 , $ H D ! 2 2 @ r 0 | N 8 H D ! ! # % ' ) + . - / 1 < ; [ r @ I r { H D ! r ; r r 9 Y | r
0x0907f4…090988 Dummy {f00=0x002c, f01=0x0190, f02=» ' 'Z $ h H D ! $ V0 %T 7 = D C Q Z w'Z $ P P R ' Q R )P $ H D ! =PZ MP QT* P V* 4 P P P8 5 9 ='Z p H D ! I' KQ MW S' UP [W R* P W T8 W2 T W 'Z H D
0x090988…090b1c Dummy {f00=0x002c, f01=0x0190, f02=» P x T H D !&B P 7P C'Z UR YT c o sV }P P Pt P( Pp P H D ! W P P W T W W ! % )R 1P ? gT s'Z H D ! T( T W /Ph 5T K _T* c WL P W < #W@ H D ! X ) < ;WF U!h [W
0x090b1c…090cb0 Dummy {f00=0x002c, f01=0x40ba, f02=»$ 'Z$ $ $ WJ$ ' $ ' $ R ' P ' ' '#P ')' '1T '7P '=W 'CP 'GW 'MT H D !a 'QW 'W'r'k'l' P ' P ' W ' W ' , ' , ' ' ' , ' R ' ' ' ' ' , ' , H ' ' , @ W /Ph 5T K _T* c WL P W < #W@ H D ! X ) < ;WF U!h [W
0x090cb0…090e44 Dummy {f00=0x002c, f01=0x0190, f02=» > @ IDENT DRDI01 REL 11.0 81-01-26 870105041100 DIAD F DIAD V ECBCW h DWTDEV x , ( B X R $ # LENDER * & ;D 7P P Y W Y STABLK
0x090e44…090fd8 Dummy {f00=0x002c, f01=0x416e, f02=» e P B V *@; V * ; V * Y ! ENDBLK . LENDIS @ , ( T X R $ P _B ! T R LDISP DWTST , ( 9 R 9 W 9 _ Y " ! X _~ H D !` R
0x090fd8…09116c Dummy {f00=0x002c, f01=0x0190, f02=» > @ IDENT DRDN01 REL 11.0 81-01-26 870105041100 DNAD F DNAD V LENDER h STABLK z , ( P P ! OUTPUT GETCHR , ( T @ ! T W P ! T
0x09116c…091300 Dummy {f00=0x002c, f01=0x417e, f02=» _& ! Y DWTECB $ , ( o D ! T @ ! T ! T 6 , ( @ X0_ R P T @ ! f ECHRTN * & H T ! T ! ! _l H D ! h
0x091300…091494 (1, 27) Dummy {f00=0x002c, f01=0x0190, f02=» > @ IDENT DRDU01 REL 11.0 81-05-18 870105041100 , ( DUADR DUON IHDU1 IHDU IHDU2 DWDU01 F DUADR v DWTOR NVLCHK , ( Y Y X Q ECBRC DWT
0x091494…091628 Dummy {f00=0x002c, f01=0x0190, f02=» h DISIOE , ( P P P P P ECBCW1 J , ( @@ B ! T , ( " T Y 9 Y , ( ; ! 9EV X y ! + X , ( [ @ ! ! T Y 2 B
0x091628…0917bc Dummy {f00=0x002c, f01=0x0190, f02=» H Y B Y H ~ , ( P B ;b :b , ( ^ 9 R P 9 ! W ! H N , ( R T ! W ! @W ! U ~ , ( ! ! _ P Q R ! W ! , ( 1 ! @W ! ! !
0x0917bc…091950 Dummy {f00=0x002c, f01=0x0190, f02=» n , ( Y W t 9BV ! , ( ! ! T @ X D X ;E Y > , ( ! Y ! X ! ! P Y n , ( @ t X @ X $ P t R , ( / :A P Y ! t $ <A" :E ! , ( O
0x091950…091ae4 Dummy {f00=0x002c, f01=0x0190, f02=» ECBEL * & W Y Y ! 9 t " :A C , ( U 4 ! X " P < , ( X ! ! P Y *W 8 l , ( T " T 9_Z ! ! ! , ( ) ! P Y ! 4 X , ( G ;F
0x091ae4…091c78 Dummy {f00=0x002c, f01=0x0190, f02=» W X Y $ ) Y 4 B , ( ;e :e Q , , ( P 9 4 8 X " P # , ( ;B 4 8 X P T X :F , ( # Y 4 X P X y Y 4 X , ( C ;C+ W W W
0x091c78…091e0c Dummy {f00=0x002c, f01=0x0190, f02=» DWTA2 TDISP DUON SAVE8 0 , ( } $ Q Y Y " $ @ DWTST p INIFLG , ( B & Y ( Y @ * , ( @T Y ! H! T Y ! ! P Y VOLCLR , (
0x091e0c…091fa0 Dummy {f00=0x002c, f01=0x0190, f02=» -_ . v , ( _ A Y ( Y IHDU : F IHDU1 : X IHDU2 : j INTSAV | , ( 9$ _~ A 0 & I F 9AZV9a , ( U P D ) X V # T X , ( s X X " 4
0x091fa0…092134 (1, 28) Dummy {f00=0x002c, f01=0x0190, f02=» VOLGET , ( X P 4 @ ( TOT , ( B @ 0 1T @ 8 # " Q B , ( P R P Q X X r DWDU01 8 , ( ! X Y ! W 4 , ( ;
0x092134…0922c8 Dummy {f00=0x002c, f01=0x0190, f02=» 6 P P P P h H D !BS P T %T 1 8 7 > = > AV0 E > O U 8 ] l aT e > q u H $ H D !@R yR @ @ D P R0 P f W" f R T f WJ p H D ! [ f WB f U f f P #Q %R" ) f -W 1 f 7 f ;W ? f E f H D
0x0922c8…09245c Dummy {f00=0x002c, f01=0x0190, f02=» 8 T H D ! L P > 'Pd -R4 5P 9 8 = @ O S > [ 8 _ H D ! aW^ i m q u y > } 8 * W4 R 8 @ W H D !2 8 @ P l P W6 T T ! % R + -P H D !g 1 9 * = O
0x09245c…0925f0 Dummy {f00=0x002c, f01=0x412e, f02=» ' - /P 3 7 ; A > GW( KW$ QW [ 8 ]T a gW yT : H D ! * ~ 8 R 6 T TJ P 6 P 6 P( 6 W 6 P H H D ! # 8 ' 6 3 6 5 R E 8 YP g 6 iV oT( W P T > 8 4 0 Tr 6 P T2 T( D P R P
0x0925f0…092784 Dummy {f00=0x002c, f01=0x0190, f02=» > @ IDENT DRDY01 REL 11.0 81-01-26 870105041100 DYAD ECHODY F DYAD ^ STABLK p , ( @ P ! , ( P P 1 ENDBLK LENDER , (
0x092784…092918 Dummy {f00=0x002c, f01=0x0190, f02=» R X Y R Y _ , ( Y _. B 1 ! * GETCHR Z , ( X " E P l * & 5 8'0P 4 E T ! T Y * & _| ! T @_ ! DWTOR , (
0x092918…092aac Dummy {f00=0x002c, f01=0x0190, f02=» h * & ] X X ! , ( w B ! ! 6 , ( B Y ! W X f , ( T X !@P ! $ P ! , ( ! T X C TENDIO
0x092aac…092c40 Dummy {f00=0x002c, f01=0x0190, f02=» " Y Q Y > X Z2<B , ( / DR B Y P ! ( , ( IH ! X ! Y X , ( a Zp T _ X $ P ! ECHODY , ( R V P P ! * & @
0x092c40…092dd4 (1, 29) Dummy {f00=0x002d, f01=0x0190, f02=» X l , ( ! ! Y ! , ( _L X " X " Y U W < , ( " ! ! ! Y l , ( 7 4 B U ) , ( U X R X X " Y X , ( o
0x092dd4…092f68 Dummy {f00=0x002d, f01=0x0190, f02=» " ! ! 4 ! , ( V ! V W :h ! , , ( " 4 X " X # R 4 > H D ! & 8 # )P /P 7 ? MP ]PP aP. gT yR4 R H D ! c : P. P
0x092f68…0930fc Dummy {f00=0x002d, f01=0x4072, f02=» P& P< W U W OU [RF uV R V V W R D @ n # R 4 > H D ! & 8 # )P /P 7 ? MP ]PP aP. gT yR4 R H D ! c : P. P
0x0930fc…093290 Dummy {f00=0x002d, f01=0x0190, f02=» > @ IDENT DRDY02 REL 11.0 81-05-25 870105041100 DYAD F DYAD V DWTDEV h STABLK z , ( B Y ! ENDBLK LENDER , ( T P P P & !
0x093290…093424 Dummy {f00=0x002d, f01=0x0190, f02=» Y t * & mD X Y ! T ! T Y , ( _6 Y Y Y B ECBRL r ECBBA , ( W B P B H " +P , ( Y T P ! T R * & H X Y U
0x093424…0935b8 Dummy {f00=0x002d, f01=0x0190, f02=» ' P P P P P P C _P , ( EH B U ! B W . 0 , ( _ _X ! T " $ ` , ( y @P X X , ( @ @ ! T ! T ECBEL , ( A$
0x0935b8…09374c Dummy {f00=0x002d, f01=0x0190, f02=» X ! r , ( " T :h Y U X ! TENDIO B * & @ T 4 B ! V T , ( / X P W V X P , ( I R Y ! T ! T , ( c P P Y ! T P
0x09374c…0938e0 Dummy {f00=0x002d, f01=0x0190, f02=» R Y, ! T ! * & T _P ! T ! T X * & # Xh X ! ! Y N , ( _ Y R X ! T | DWTST , ( " ! T ! T 4 X ? DWTOR , ( +A
0x0938e0…093a74 (1, 30) Dummy {f00=0x002d, f01=0x0190, f02=» ' n * & @ } X " Y Y > X , ( X " Y Q Y > < , ( B Y ! X P @ l , ( ! Y ! $ *0 ! * & . ! 6 Y Y
0x093a74…093c08 Dummy {f00=0x002d, f01=0x4166, f02=» T< R U Z R Q h H D ! ! PB # j 'P +P0 /P0 3P, 7P( ;P$ OU U [WJ eTF yP T $ H D !(( TN TF T0 T U Tt U T^ 'V + 5PP 7WD ?VF p H D ! GP MR WT _T ePf iP sTf w {P TX TB T: R T T T D @
0x093c08…093d9c Dummy {f00=0x002d, f01=0xc0e0, f02=»$ QU ]Tf i h qV wP WN VF P R T T P P T H D ! P Tr R( TB U T0 T( %T -T 5T =T GT2 a h mR {T T J 0 , T Rv P P P R V P Q /P" t @ Un R Q U H D ! #Pl )
0x093d9c…093f30 Dummy {f00=0x002d, f01=0x0190, f02=» > @ IDENT DRFD01 REL 11.0 81-02-25 870105041100 FDADR IHFD FDON DWFD01 F FDADR j , ( ! ! T 9 | NVLCHK VOLCLR , ( ! T $ I ^ $ ECBCW
0x093f30…0940c4 Dummy {f00=0x002d, f01=0x0190, f02=» , ( {H@ X Y 9 X L Y ! DISIOE 4 DISEND F , ( X X| R X ECBRL ECBCW2 , ( B X ; Z Y B Z$ ECBBA , ( ^* Y* Y Y B
0x0940c4…094258 Dummy {f00=0x002d, f01=0x0190, f02=» 9W ! ! x , ( G P P 4 ! # T X Y , ( g ! # X Y _ W Y H PFPOST x , ( Y Y Y @ T B S W Y ECBEL , ( 8! T X Y X C X U Y TENDIO
0x094258…0943ec Dummy {f00=0x002d, f01=0x0190, f02=» Y Y " X P SETIMP . DWTSB2 @ , ( y _0 $ _@ Y R , ( D & Y X P Y : ! * & 1 ! X # P Y :A , Y DWTECB , ( O $ " (
0x0943ec…094580 Dummy {f00=0x002d, f01=0x0190, f02=» X K P @ t , ( T X T $C Y B , ( K & % Y B K ( X D , ( :AZj X P Y ! P + 7P t , ( $ P + < <A , ( $ <C ! 9 9 4 X 9C X D
0x094580…094714 (1, 31) Dummy {f00=0x002d, f01=0x0190, f02=» x H D ! z | T ! )T / T ? T ET M t U v WW [ | _ T m V u | y H D !P D R F 6 4 0 V 8 2 6 P* P P" P ) * ^ H D ! - | 3P 9W = * A E IP MP W [T _ c ( g m u y ( H D ! W . *
0x094714…0948a8 Dummy {f00=0x002d, f01=0x4070, f02=» * , P0 T . T " $ P $ P P6 P - 4 3 8 = 0 A 2 J Z@ l
0x0948a8…094a3c Dummy {f00=0x002d, f01=0x0190, f02=» J F IDENT DRFD02 REL 11.0 81-02-18 870105041100 FDADR IHFDY FDONY DWFD01 R FDADR v NVLCHK , ( Y Y ! ! ! VOLNAM , ( ! Y Y ! Y ! T
0x094a3c…094bd0 Dummy {f00=0x002d, f01=0x0190, f02=» P n DISIOE , ( w P P DISEND P * & @ ! b ECBRL ECBCW2 , ( r X B X( B Z2 , ( ^8 Y ;g< R :A W V :A
0x094bd0…094d64 Dummy {f00=0x002d, f01=0x018e, f02=» X <a R r , ( K Y Y ! T X T ! ECBEL B * & i T ! X Y X :D:c C R , ( Y Y p W T ! VOLCLR , ( $ I ^ TO SS ECBCW1 , (
0x094d64…094ef8 Dummy {f00=0x002d, f01=0x0190, f02=» , ( Y _ ! Y , ( _& ! T Y ! ! T _< Y ! 8 FDONY D h SAVE8 z , ( 9 T Y Y SETIMP , ( U X P y W " DWTSB2
0x094ef8…09508c Dummy {f00=0x002d, f01=0x0190, f02=» n DWTECBL , ( $$^8 Y & X Y C IHFDY P , ( '? H I P A I b , ( &:AZ ! :CV : V @:C INXDWTA , ( V Y :b" P Y ( X , (
0x09508c…095220 Dummy {f00=0x002d, f01=0x0190, f02=»9 Y X v , ( * & @ ! 9c! 1 Y 9 4 , ( X ' P X ' T ?G 4 X " D , ( :G 4 Y W Y Y t , ( 4 W W X ;i X P Y , ( ;B+ W W ! ! T ! 9a X , (
0x095220…0953b4 (1, 32) Dummy {f00=0x002d, f01=0x0190, f02=» ,T ( Q v Y 4 DWFD01 : , ( N , ( ? ~ , ( _ C C C C H D ! J H Z
0x0953b4…095548 Dummy {f00=0x002d, f01=0x0190, f02=»V W R Z # Z ' Z 3P 7 V ;V C ^ IR S W [ P ]T eT H D ! 8 i J kT o s Z { Z ` ^ W TT V P Z F H D ! I V Z T V T % V ) h -T 3 7 H D ! 9T ? V K W B YP a B cW e B o v {
0x095548…0956dc Dummy {f00=0x002d, f01=0x40fc, f02=» uT6 { @ }T. V L @ V Z v H D ! P V T V ` W b W W Z X P X Wj 2 H D ! W !Tz / 3 7 b 9T, = ` ?W& C IW0 OW WTD ] a ` e b i Z ~ s Z T D @ W e B o v {
0x0956dc…095870 Dummy {f00=0x002d, f01=0x0190, f02=» > @ IDENT DRGP01 REL 11.0 81-05-25 870105041100 GPAD ECHOGP F GPAD ^ STABLK p , ( !"$&;<>@^_ x P ! ENDBLK LENDER , ( ! T P P ! B P
0x095870…095a04 Dummy {f00=0x002d, f01=0x0190, f02=»A ! T W ! T ! T * & B ! T W ! T Y Y * GETCHR X * & U P T Y j , ( _. P R P O]> V _F , ( $ T Y Y V Y _^ C , ( _R
0x095a04…095b98 Dummy {f00=0x002d, f01=0x0190, f02=» ! T ! T ! T ! TENDIO & LDISP 8 DWTA3 H , ( _ T Y X , ( wA" X C _ X Y Y ECHOGP , ( > ! T T _0" T _2 R V , (
0x095b98…095d2c Dummy {f00=0x002d, f01=0x0190, f02=»# n , ( ! ? _8 ! ( ^ , ( $ Y ! _: n ! > , ( 9" ! ! P P n , ( ( U n r X " ! , ( q ! X v
0x095d2c…095ec0 Dummy {f00=0x002d, f01=0x40a2, f02=» Pl V T P %Tj ` H D ! KTD ST< [T4 aT. e T T T R> VB P< P P P4 R( Q$ T T R> Q( KP8 QP h @ U n r X " ! , ( q ! X v
0x095ec0…096054 (1, 33) Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT DRGP02 REL 11.0 81-01-26 870105041100 GPAD8 F , ( [000b [000e [00t [00q 8 V GPAD8 < , ( ! [00w [00v c [5n DWTOR DWTDEV , ( A %99 $$ X "
0x096054…0961e8 Dummy {f00=0x002e, f01=0x0190, f02=»ENDIS , ( ! ! X T P STABLK > * & C P ! P GETCHR ~ , ( X T 1 X , ( Y ! X Y ENDBLK , (
0x0961e8…09637c Dummy {f00=0x002e, f01=0x0190, f02=» M " P ! Y Y <h Y OUTPUT . , ( e ! X ! @ , ( ! X ! p , ( W X ! ! Y , ( B@ ! X Y W ! +Xl , ( @
0x09637c…096510 Dummy {f00=0x002e, f01=0x0190, f02=» % B ! Y P , ( A $P W X P ! Y Y 0 , ( [B ! X P ! ` * & u @ ! W ! ! , ( W ! W ! +XR , ( B X $ T _ Y $
0x096510…0966a4 Dummy {f00=0x002e, f01=0x0190, f02=» Y _T Y _Z Y $ ~ , ( @ ! ! T ! , ( @ 3 ! ! B $ P N , ( O@ X ! Q ! Y X ~ , ( k T ! ! * & @ ! ! * X Y
0x0966a4…096838 Dummy {f00=0x002e, f01=0x0190, f02=» P l , ( @ Y _ ! B <hP YP P , ( " Y ! & ! < , ( + ! B $ P Y P l , ( IA Y ! ! ! , ( e ! ! " ( Y DWTST
0x096838…0969cc Dummy {f00=0x002e, f01=0x0190, f02=» Y 0 ! Y ~ * & @ & ! $ ! Y ! DWTECB L , ( $ Y Y X ^ * & $@ f Y ! ! , ( [ ! 5 ! SETIMP , ( 3! n
0x0969cc…096b60 Dummy {f00=0x002e, f01=0x0190, f02=» X n , ( P y Y 4 dR d , ( R _ 00,0: " < , ( @ 4 X P Y 4! l * & DH Y _ Y Y X , ( ," :HR 0 P :h ! Y , ( B _"
0x096b60…096cf4 (1, 34) Dummy {f00=0x002e, f01=0x0190, f02=» 040506070809101111131415 * H D ! = N C mP { | } P P N H D ! T P P T( #T 'P" 7 APP G IWT H D ! u OP U o w
0x096cf4…096e88 Dummy {f00=0x002e, f01=0x417c, f02=»W6 W W T Q P ~ H D ! W6 R P T ! 'Tx 1 = E MPn U & YQb c mT6 : H D ! w P : P Z P. : + H D ! 3 ;P G Z Y ] e m q P8
0x096e88…09701c Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT DRGP03 REL 11.0 81-06-01 870105041100 GPAD3 F , ( [000b [00w [00v c [5n V , ( ! [0;0x [000` [0g H [00d , ( A [00{ [20h [20l [4m [0m GPAD3 b DWTOR
0x09701c…0971b0 Dummy {f00=0x002e, f01=0x0190, f02=» Y P Y z LENDER , ( @ M jP ^ L , , ( ! LENDIS STABLK GETCHR * & ! B ! T , ( X ! T +
0x0971b0…097344 Dummy {f00=0x002e, f01=0x018e, f02=» W@ ! W ! T ! T , ( q" ! T Y W ! T 0 ENDBLK ` , ( +T _L X T _ T ! T r , ( " ! T Q X $ P , ( D ! T Y ! T ! W , (
0x097344…0974d8 Dummy {f00=0x002e, f01=0x0190, f02=» , ( 5 ]U W X $ P Y W X , ( Q $ T Y ! T W 4 , ( k D C _ . " ! T Y _ d , ( ! Y , ( D ! T P ! T P _ , ( B ! T _& !
0x0974d8…09766c Dummy {f00=0x002e, f01=0x0190, f02=» ! ! ! T X , ( )H Y Y ! $ , ( C@ B X " P $ L W T , ( _ $ L 9d P _$ ! , ( ! P Y _6 , ( Q ,0 Y _D P Y
0x09766c…097800 Dummy {f00=0x002e, f01=0x0190, f02=»" P t , ( P ! B 9d! , ( ' P Y D Y $ @ $ ! D , ( C @ 9h! P T h Y ' FW R t , ( a! l Y ' L & ! W , ( { Xp ! T $ P P , (
0x097800…097994 (1, 35) Dummy {f00=0x002e, f01=0x0190, f02=» * & ! T : ! ! * & T ! T ! Y Y 2 , ( Y ! ` DWTST DWTSB2 , ( 5$D Y X P Y , ( M ! Y Y 0 ! Y
0x097994…097b28 Dummy {f00=0x002e, f01=0x0190, f02=» Y X Y * & ! T ," :HR :h ! $ SETIMP R * & T _ ! T d INPUT , ( ! " ! P T , ( ! ;T Y . X . T ! " ! , (
0x097b28…097cbc Dummy {f00=0x002e, f01=0x0190, f02=» o R _ 00,0: " , ( @ 4 X P Y 4 Y 0 LDISP ` , ( W ! 2 Y p * & H Y X ," :HR 0 P :h ! , ( 2 Y _ X , ! F , ( A Y
0x097cbc…097e50 Dummy {f00=0x002e, f01=0x0190, f02=» ( I ! ! " , ( @ c ! ! j ," :HR :h ! | . , ( _ 4 :h 0 :C ! 41518 ^ , ( 24253033353648505160667072010203 , ( 040506070809101111131415 , ( ?
0x097e50…097fe4 Dummy {f00=0x002e, f01=0x0190, f02=» F 2 T Tj P P@ #TD 'WB /Tt 5P ; b H D ! IPN QTR ] _W8 gT< oT4 wT, }W T T T T T T Q P J H D ! @ T T W VH P T W T n P TV Tb #TZ )U /PD H D ! ` 3R8 7U 9W2 AP4 MW UT eT iW
0x097fe4…098178 Dummy {f00=0x002e, f01=0x4174, f02=»P w { 2 QV Q< Q" z H D ! ! Q P Pf 'P 3 C KP& OT [W q sW` TP P6 P@ b 6 H D ! ; T: T T T ) 2 - EPL Q b a b H D ! m b T R T T PL T" T T2 #
0x098178…09830c Dummy {f00=0x002e, f01=0xc00e, f02=» @ I B M eP k mW s {P B QV Q< H D !E Q" Q P Pf + 7P C S [P& _T kW W` TP P6 X H D !~N P@ r T: T T T # 9 B = UPL H D ! a a r q r } r
0x09830c…0984a0 Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT DRGP04 REL 11.0 81-01-26 870105041100 GPAD04 F GPAD04 X STABLK l DWTDEV ~ , ( " ! T Y ENDBLK LENDER * & P R P Q R Q !
0x0984a0…098634 (1, 36) Dummy {f00=0x002e, f01=0x0190, f02=»U Q T t , ( oH Y Y X Q ! T OUTPUT D , ( D Y ! T ! T _@ V , ( R _Q Y _ /T _ V Q ECBRC , ( "Q P P C _r , ( " $ P
0x098634…0987c8 Dummy {f00=0x002e, f01=0x0190, f02=» h INPUT , ( + Y X : 1 ! DWTOR H ECBCW X , ( CH y X ' $T B P Y h LENDIS ABORT , ( ] H W Y Y , ( u _8_ Y
0x0987c8…09895c Dummy {f00=0x002e, f01=0x408c, f02=»Q T T T R Q T V Q Q P P P Tr R 0 , T` TR TL P %V@ - p OT YP _W P B v@ P Y h LENDIS ABORT , ( ] H W Y Y , ( u _8_ Y
0x09895c…098af0 Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT DRIC01 REL 11.0 81-01-26 870105041100 ITAD IT:BUF F ITAD ^ IT:BUF p ECBCW , ( d B P P 3T DISIOE FNDTID TTB:TD , ( Y W
0x098af0…098c84 Dummy {f00=0x002e, f01=0x018e, f02=» W R H P ' P T ' P ECBRL . , ( uD B ]` F U > ECBEL n ECBBA ~ * & D F ]n C G (@ B F DWTTAB TTB:ID * & H 0 = Y H L C
0x098c84…098e18 Dummy {f00=0x002e, f01=0x018e, f02=» SETIMP TTB:ST , ( $ A Y X T ( TDISP X * & @P (P H U ^ 9 1 h , ( # " X T @ P ( A _ ( Y , ( " A _ _l X T @ P ( A , ( a _
0x098e18…098fac Dummy {f00=0x002e, f01=0x40e2, f02=» e % $ H D ! P P T #W - L 1P YR aP ePr kTt o sP U R $ H D ! x x P P )T /P 9 QT WP a P P W p P @ P ( A , ( a _
0x098fac…099140 Dummy {f00=0x002e, f01=0x0190, f02=» > @ IDENT DRKB04 REL 11.0 81-05-25 870105041100 KBAD4 F KBAD4 V LENDER h , ( (@ U R -P z DWTDEV , ( !D X X P X , ( 9 P $$ P V
0x099140…0992d4 (1, 37) Dummy {f00=0x002f, f01=0x0190, f02=» X l , ( $ 4 T %(@ X P , ( ! Y X P Y (@W : INPUT j * & D Y _ ! (@" ! 9 Y X z , ( P X` V R P , ( "P 9 _ X Y W X , (
0x0992d4…099468 Dummy {f00=0x002f, f01=0x018e, f02=» Y ! T x , ( m $ P " Y W X P X * & $P <c $P $ $ Y H , ( V ! B W B v , ( P $$ R % C , ( * ! W ? X T 9 P _ , (
0x099468…0995fc Dummy {f00=0x002f, f01=0x0190, f02=» f ECBEL ECHEND LENDIS * , ( W C ! " < , ( q ! P * X $4 P X T l , ( 1 X P pR p Y X , ( X P 1 W X , ( @ X
0x0995fc…099790 Dummy {f00=0x002f, f01=0x0190, f02=» l ECHO , ( " X Y 9 ! 4 B , ( 1 D % > T L , ( K > T > P | , ( E g . ! _ W , ( ! X L X P Y 0 %_
0x099790…099924 Dummy {f00=0x002f, f01=0x0190, f02=» X < X DWTADR ABTADR 0 DWTSB2 B * & P L "X $ T H D ! = l U RV P /P( ;P CP GV K : ] i : y T H D !@ P" : P W P VP R P P W ! . 'R /R =
0x099924…099ab8 Dummy {f00=0x002f, f01=0x40ac, f02=»W8 /T = ~ C ^ I v O z Y . f H D !"! sP P : T~ Pv Rr : P WL P L P< T W W, L " $ @ P . CT ST aP }W P n @
0x099ab8…099c4c Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT DRLP01 REL 11.0 81-01-26 870105041100 & " LPADR ACLP IHLP LPON DWLP01 F LPADR p ACLP DWTBC , ( T 1 W B DISIOE , ( B P P V
0x099c4c…099de0 Dummy {f00=0x002f, f01=0x0190, f02=» DWTA5 , ( } Q 1 Y PFPOST H LPON Z SAVE8 l , ( @ r t @ B X _" | DWTST IHLP INTSAV DWTOR , ( X Z.W A
0x099de0…099f74 (1, 38) Dummy {f00=0x002f, f01=0x407e, f02=» v H D ! T WP %PD )P 3V I OT UW _P eP m qT uV W X h@ z
0x099f74…09a108 Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT DRMD01 REL 11.0 81-01-26 870105041100 MDADR MDON IHMD DWMD01 F MDADR j , ( $(,0 !%) | DWTOR * & ! -1 "&*.2 #'+/3 X DWTORD INXDWT
0x09a108…09a29c Dummy {f00=0x002f, f01=0x0190, f02=» VOLNAM , ( w$ C @ Y , ( Y ! ! T X ! ! T Y X B , ( Y ]( ^B _ Y r ECBRL ECBCW2 , ( @ Y B P ! T B R ECBBA , (
0x09a29c…09a430 Dummy {f00=0x002f, f01=0x018e, f02=» , ( M X P ! P C , ( k W Y ! P C W 4 ECBEL d , ( Y C Y P Y Y t , ( X X hZ Y _ X W X DWTA4 PFPOST * & s X s
0x09a430…09a5c4 Dummy {f00=0x002f, f01=0x0190, f02=» VOLCLR * & $ Y _ Y VOLADR H * & " Y ! ! T Y Z , ( / $ Y Y ! X Q MDON R SAVE8 INIFLG * & K Y 4 &
0x09a5c4…09a758 Dummy {f00=0x002f, f01=0x0190, f02=» ! X n DWTECB * & ] Y .X X IHMD N , ( Y '? P ? I ` , ( : V :c X V DWMD01 , ( I X X X '? . 4 , (
0x09a758…09a8ec Dummy {f00=0x002f, f01=0x0190, f02=» ! 2 < K V O H S F [P _Pv cPj gPn kPb oP w H L T( H D !B H T H L L F B P T R L S U L H D ! D H !P % J ) H 1R ?V CV M F Q J SP W [P kW o J H D ! s wP Wn F L PT D
0x09a8ec…09aa80 Dummy {f00=0x002f, f01=0x4036, f02=» V V | d @ 2 H L T( H D !B H T H L L F B P T R L S U L H D ! D H !P % J ) H 1R ?V CV M F Q J SP W [P kW o J H D ! s wP Wn F L PT D
0x09aa80…09ac14 (1, 39) Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT DRMS02 REL 11.0 81-01-26 870105041100 MSAD F MSAD V , ( l 7&! 1 h LENDER ECBRL , ( ! Q P ^ P B ECBBA DWTDEV
0x09ac14…09ada8 Dummy {f00=0x002f, f01=0x0190, f02=» W Y B V B P $$ ECBEL * , ( H R % C C : , ( W T _ _d W X ) j , ( B Y (@W B T Y W STABLK , ( Y W W Y P
0x09ada8…09af3c Dummy {f00=0x002f, f01=0x0190, f02=» P P Y , ( /H X " T h ! T " , ( D ID X R B 2 2 ! R , ( e T ! T ! N ^>_T , ( D ! T ! T ! Xl Y , ( ! X| P W X X
0x09af3c…09b0d0 Dummy {f00=0x002f, f01=0x0190, f02=» Y B r * & X R hY ;W -Y = P ! GETCHR @ , ( ' D T Y ! T R * & ? P X _ ? Y ! T X , ( Y B *0 ! T X R ! , ( q" T ! T ! X ^
0x09b0d0…09b264 Dummy {f00=0x002f, f01=0x0190, f02=»T * W Y 1_& 7P P , ( P Y _ Y , ( @ X ZN _ ! _ B = P , ( > T > 0R ECBRC , ( 3 R X V >P W :P P C Q W > H
0x09b264…09b3f8 Dummy {f00=0x002f, f01=0x4134, f02=»W< W P0 V H D ! T T Tz P P #P ;T ETD MR0 gT" mT q T T H D ! P W P P V * W W P R W )T 7T ?P C * ^ H D ! UT aT iR qT wT V4 P T T W P P P !T /R $ 3R 9V ?P A
0x09b3f8…09b58c Dummy {f00=0x002f, f01=0x0190, f02=» > @ IDENT DRMT01 REL 11.0 81-01-26 870105041100 IHMT DWMT01 MTDRON F DISIOE f DWTOR x , ( Q P A X ECBRL , ( " :B V B H R ECBBA , (
0x09b58c…09b720 Dummy {f00=0x002f, f01=0x0190, f02=» h , ( 5T 5P ) H R ( C , ( C ! P Q ! ! R ! A 8 , ( _ ! Q ; V )W ! ! R h ECBCW , ( ! A _$ B 9 I ! ) ! W , ( ) ! T ! W ! Q ) , (
0x09b720…09b8b4 (1, 40) Dummy {f00=0x002f, f01=0x0190, f02=» A P x , ( P )@ P :b P ) :b DISEND H , ( P X ' R Q )@ A Z SETIMP TDISP , ( A @ , ( @ A _r A ! 9 R 9 4
0x09b8b4…09ba48 Dummy {f00=0x002f, f01=0x018e, f02=» @W l PFPOST HALT , ( e @ _4 ` 9 @ T A P S . , ( I B B 4 A ^ IHMT INTSAV SAVE8 , ( $ A A A A I DWTECB * &
0x09ba48…09bbdc Dummy {f00=0x002f, f01=0x0190, f02=» MTDRON DWTST , ( @ 4 Y 9 @ P 1 ( , ( ' A @ T 1 X , ( E A H 9 , ( a R ! @ , ( ?b ! n H R ! T (
0x09bbdc…09bd70 Dummy {f00=0x002f, f01=0x0190, f02=» ` @ ( x , ( "13478? j & : DWMT01 " H , ( D , ( ? _ H D !^? P 2 ) V - /V 9R MP Q n U T
0x09bd70…09bf04 Dummy {f00=0x002f, f01=0x0190, f02=» T T WX P TV ` %WL l H D ! 0 ) X +Q@ 7V4 = ?Q, CW( G z IW8 QW qRV } T 2 P: P P P ( H D ! P R Q 8 4 P 8 4 P J P R J 6 P t H D ! $ ) 4 - 6 1 8 5 P ?W4 KW( OW$ SW WW [W _W cW k R yT" }P
0x09bf04…09c098 Dummy {f00=0x002f, f01=0x406e, f02=» k f q 2 V X @ < ( R` V R T8 R T Q R R T V R R + F f X@ j ( H D ! P R Q 8 4 P 8 4 P J P R J 6 P t H D ! $ ) 4 - 6 1 8 5 P ?W4 KW( OW$ SW WW [W _W cW k R yT" }P
0x09c098…09c22c Dummy {f00=0x002f, f01=0x8190, f02=» > @ IDENT DRND01 REL 11.0 81-01-26 870105041100 H D ! INPUT STABLK OUTPUT ENDBLK ECHRTN ECHO ECHEND GETCHR ABORT F H D ! LENDER LENDIS LDISP NDREPO NDRETO NDREP NDRET NDSAV8 NDGET8 & " NDREWS NDREDW NDGEDN NDGEDW , (
0x09c22c…09c3c0 Dummy {f00=0x002f, f01=0x8190, f02=»CHP , ( A STABLK b < , ( Q@ X ! 9 D W X ! 9 P OUTPUT t ENDBLK * & m D W X ! 9 D W X ECHEND ECHO , (
0x09c3c0…09c554 (1, 41) Dummy {f00=0x0030, f01=0x8190, f02=» Y r DWTADR ECHADR " ECHRTN 4 GETCHR H ECBRL * & " X L X W B l ECBBA ECBEL , ( U B (" W C ABORT LENDER
0x09c554…09c6e8 Dummy {f00=0x0030, f01=0x8190, f02=»ETO " , ( @ ! 9 D @ W NDREP ( > NDRET , P NDSAV8 : b DWTA3 v DWTA4 * & % W (@ 4 > Y Y DWTA5 DWTA7 DWTA8 NDGET8 P , (
0x09c6e8…09c87c Dummy {f00=0x0030, f01=0x8190, f02=» m R X X NDREDW , , ( P X( _. @ DWTOR p DWTECB * & $(@ X &'? ( X RECADR DISEND , ( D * X T
0x09c87c…09ca10 Dummy {f00=0x0030, f01=0xc170, f02=» 8P l X V 8W ?a_ ! H D ! ! . H D ! ! # % ' ) + - / 1 3 5 7 9 ; = ? ! z H D ! aW sW W W : W : Pv WV U W W6 W ! P 'W +
0x09ca10…09cba4 Dummy {f00=0x0030, f01=0x0190, f02=» > @ IDENT DROD01 REL 11.0 81-01-26 870105041100 " ODAD " F ODAD " V DWTDEV " h DWTST " z , ( P Y X " SETIME " , ( "DR X P y Y Y " , ( 5B
0x09cba4…09cd38 Dummy {f00=0x0030, f01=0x0190, f02=» " l LENDER # , ( Y -P -R # , ( X ) Y X # N , ( BP Y C X V P X # ~ ECBRL # , ( HP W , Y B P # ECBBA # , ( T
0x09cd38…09cecc Dummy {f00=0x0030, f01=0x0190, f02=»V _ R @ P C # ~ ECBRC $ , ( ? W ?T C !T W $ . ECBCW $ ^ , ( ] @T W B V B P $$ $ n , ( y R % Y _ Y R $ , ( _ "? X " P W W $ TENDIO
0x09cecc…09d060 Dummy {f00=0x0030, f01=0x0190, f02=»* W Y $ p DWTA3 % , ( - X R X P % , ( @" y @ P Y _* y % N , ( / " F X Z< @ Y _d B % ~ , ( I 1 " > dT _ % i V *@_" % H D !
0x09d060…09d1f4 (1, 42) Dummy {f00=0x0030, f01=0x4096, f02=» ! H ST WWZ ]T cWN iV> oP {R h R D P W h W P R % 0 , P P V T W R P !P _T mV & L r & @ &
0x09d1f4…09d388 Dummy {f00=0x0030, f01=0x8190, f02=» > @ IDENT DRPL01 REL 11.0 81-01-26 870105041100 ' F B PLCHRI PLSTBL PLCHRO PLENBL PLDISP PLTEST CWTPLC GETDWT ' F , ( IHPL01 IHPL02 IHPL03 IHPL04 PLON ' CWTPLC ' " ' INTPL1 '
0x09d388…09d51c Dummy {f00=0x0030, f01=0x8190, f02=» @ A ' PLCHRI ( * , ( o ( > DWTLD1 ( n DWTST ( NDSAV8 ( , ( ? X P R >W > Y ( NDGET8 ( , ( @ Y Y
0x09d51c…09d6b0 Dummy {f00=0x0030, f01=0x8190, f02=» ( j * & P X ! T R Y Y ) , ( X Y T Q ) 8 DWTOTQ ) h , ( - P T W Q Z T ) z , ( M@ T Q Y ) NDREP ) PLCHRO r ) , ( i
0x09d6b0…09d844 Dummy {f00=0x0030, f01=0x8190, f02=» X T ) , ( ! Y T (@ X U * " , ( > U < A X T @" P * R , ( W Q U 7 U 1 U 8 P * * & U : T T T X * , ( / $ P W P # P Y
0x09d844…09d9d8 Dummy {f00=0x0030, f01=0x8190, f02=»L02 t * IHPL03 t + IHPL04 t + " INTSAV + 6 , ( @ e W A T + H TDISP + x , ( } . @P P P U + , ( T U T D U T @ + , ( &? U z P
0x09d9d8…09db6c Dummy {f00=0x0030, f01=0x8190, f02=» U T + x DWTCP2 , , ( 7 T X "? T G' , * , ( U T N U U Y , Z FREBLK , , ( s & , NDREDW , , ( B Y T ,
0x09db6c…09dd00 Dummy {f00=0x0030, f01=0x8190, f02=» , n , ( ( # N XT U Q T J - , ( ' Q Q U X| U - > GETBLK - n , ( GH Y X " Y (@ - , ( a@ " U > U < @ U - , ( 1 Q U 7 U 8 U : X "
0x09dd00…09de94 (1, 43) Dummy {f00=0x0030, f01=0x8190, f02=» H @ T A - MEXIT . 0 * & @ $ > A R D X _ . @ , ( & (@ U U U U . n * & - <P _ <P . , ( I _ P @ Z . , ( g
0x09de94…09e028 Dummy {f00=0x0030, f01=0x8190, f02=»_"_B T . n SETIME / * & P 1W * d U / , ( U U U U 0 U < / N , ( T U T U 0 / ~ , ( T U > U < U : U T / , ( 5 T U ! R t ( Z /
0x09e028…09e1bc Dummy {f00=0x0030, f01=0x8190, f02=» , ( (@ T P P 0 DWTADR 0 4 INTADR 0 F , ( @ R X # X . D 0 0 X , ( " X T Y U 0 PFPOST 0 , ( (@ @ 2 @ T T 0 , ( P T
0x09e1bc…09e350 Dummy {f00=0x0030, f01=0x8190, f02=»@ ; n t ( , 0 , ( y R X Y X Y 1 * , ( " P # N X 1 Z , ( X_R U 1 , ( ; n - , - ! T t 1 , ( @ , "
0x09e350…09e4e4 Dummy {f00=0x0030, f01=0x8190, f02=» U < U > X U 1 z , ( k : U 0 T T T T 2 , ( U > > > " P - 2 J , ( 2 z , ( > > @ 2 @ T 2 , ( T U U ? T T 2
0x09e4e4…09e678 Dummy {f00=0x0030, f01=0x8190, f02=» > X 2 r , ( = :i9eW X :a9 " > ? P 3 * & [ ! X " >W P ! ! Y 3 B * & w > X :d" ! W X 3 p , ( :d" ! ! Y > 3 , ( W Q X "? U 0 X "? Q 3 , (
0x09e678…09e80c Dummy {f00=0x0030, f01=0x8190, f02=» % n > ! > > > _ Q 3 , ( E Q " Q > ? P > 4 . , ( e > P P R Q (" W 4 ^ , ( P P V Q % W 4 , ( > T JQ T N L $ T L $ 4 , ( T " P W # T
0x09e80c…09e9a0 Dummy {f00=0x0030, f01=0x8190, f02=» % 1W <P < % 4 ~ , ( C > P ? 0 ] > > 5 , ( c ? 1 ] > > ? W ? 5 N , ( ? ? ? Q ) 5 ~ _ ) > > > > > 5 H D ! 9 < ? F C V Q W $ ] , c @ i @ o s u w
0x09e9a0…09eb34 (1, 44) Dummy {f00=0x0030, f01=0x8190, f02=»TH +Q 1 0 3T( 7W =Q, C 0 ET 5 j H D ! S & W [T {P T T $ T | T T P W 6 & H D ! T6 !T4 % +T" 5P 9W ?P CP M ] T sW P 6 r H D !7 PV P P R P # + 4 6 H
0x09eb34…09ecc8 Dummy {f00=0x0030, f01=0x8190, f02=» y P4 6 V H D ! T. T, P 2 T R /P 3 2 AP 7 H D ! f E 2 Y x g x u x {R> R P W T T z - /Tb 7 ^ H D ! 3 7TZ ARL Q z w yT } T $ P< h R T T 6 7 H D ! + ` P
0x09ecc8…09ee5c Dummy {f00=0x0030, f01=0xc0f4, f02=» @ M 2 [ z u T T P & 2 T T AW iW W W P& 7 H D ! T T T W 7 H G KQ _ b wR$ W V W Q< T( T P 8 J D @ W T W P W P 2 T 2 %W 1W 7P OP }W Q 8 8 @ 8 D ! + ` P
0x09ee5c…09eff0 Dummy {f00=0x0030, f01=0x0190, f02=» > @ IDENT DRSL01 REL 11.0 81-01-26 870105041100 9 H D ! ISLCI ISLCO SLCUON CHAN SLCHRI SLSTBL SLCHRO SLENBL SLDISP 9 F CHAN 9 INTSL1 9 SLCUON 9 , ( @ J B A A J A J 9 , ( B @
0x09eff0…09f184 Dummy {f00=0x0030, f01=0x0190, f02=» ] W P U T t 9 NDGEDW : 0 DWTST : B , ( } R X X #@T : R , ( _ <H W " X ' : NDREP : DWTADR : INTADR : , ( $P Y X D
0x09f184…09f318 Dummy {f00=0x0030, f01=0x0190, f02=»W U _ A ? : | , ( @ @ W V U 4 P ; , ( ' ?H T R 4 5" T T T ; L DWTOTQ ; | DWTOCH ; , ( G ;AR T P X U X ; TDISP ; , ( c P $ T X
0x09f318…09f4ac Dummy {f00=0x0030, f01=0x0190, f02=»P P P P _ U W Q ; PFPOST < " , ( Y W @ T U T T < 4 DWTCP2 < d * & P u W X < v , ( '? P U P T 5W T ;A < , ( / R _t U 5 P P Y < , (
0x09f4ac…09f640 Dummy {f00=0x0030, f01=0x0190, f02=» < x NDSAV8 = SLSTBL = * SLENBL = > NDRETO = R SLCHRO = d SLDISP = x , ( H Y "W $ " = , ( 8# X $ <C ;I > ? @ = ( $ T A % >
0x09f640…09f7d4 (1, 45) Dummy {f00=0x0031, f01=0x40f6, f02=» %P - 3RZ AT4 IR< OP _ c eP iT y = | H D ! P2 P$ P P P W Wj Th T` P W PB P ! #T > 8 H D !,[ 'W( /R = ?P C G KP oP T W T > > > @ >
0x09f7d4…09f968 Dummy {f00=0x0031, f01=0x018e, f02=» > @ IDENT DRSOP1 REL 11.0 81-01-26 870105041100 ? 0 , SOPCT SOPR IHSOP DWSI01 DWSI02 DWSO01 ? F SOPCT ? z , ( T 8T 9W B ? DISIOE ? SPDLCI ? , ( ! D 7P P A W
0x09f968…09fafc Dummy {f00=0x0031, f01=0x0190, f02=» ? ECBCW @ ECBEL @ , ( U X R C C @ ( TENDIO @ X TDISP @ j SOPR v @ z , ( m$ A @ A. @ DWSI01 @ DWSO01 @ , ( X V 9_<
0x09fafc…09fc90 Dummy {f00=0x0031, f01=0x4012, f02=» @ @ A ECBEL @ , ( U X R C C @ ( TENDIO @ X TDISP @ j SOPR v @ z , ( m$ A @ A. @ DWSI01 @ DWSO01 @ , ( X V 9_<
0x09fc90…09fe24 Dummy {f00=0x0031, f01=0x0190, f02=» > @ IDENT DRSU01 REL 11.0 81-05-25 870105041100 D @ CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 CHLTON CHTAB F D @ DWREMU LOCHAN RECHAN REMFC SUMLOG LTCHRI LTSTBL LTCHRO > : LTENBL LTDISP RTCHRI RTSTBL RTCHRO RTENBL
0x09fe24…09ffb8 Dummy {f00=0x0031, f01=0x0190, f02=» v DWREMU $ CHLT1 $ * INTSAV < SAVE8 N CHLT2 0 ^ CHLT3 0 p CHLT4 0 CHRT1 0 CHRT2 0 CHRT3 0 CHRT4 0 , ( A W U
0x09ffb8…0a014c Dummy {f00=0x0031, f01=0x018e, f02=» 4 U | , ( $P > R > Y X '@T X NDREDW L , ( ' T P 2W ^ , ( @ Y Y X DWTLD1 , ( # P _ X P y W SETIM
0x0a014c…0a02e0 Dummy {f00=0x0031, f01=0x0190, f02=» , ( 7 4X. U U T l T , ( W U ;h # <c$ 4 , ( u Xb B ^h Xn B ]v " d DWTDEV * & X " X #` @P Q X # Y NDREP DWTADR * & H W
0x0a02e0…0a0474 (1, 46) Dummy {f00=0x0031, f01=0x0190, f02=» "P X # X > LTCHRI * RTCHRI > NDSAV8 R LTCHRO d RTCHRO x , ( $P P W Y W LTDISP RTDISP RTSTBL $ RTENBL $
0x0a0474…0a0608 Dummy {f00=0x0031, f01=0x0190, f02=» > ? X P v , ( OH@ y Y >_ " 4 DWTCP2 F , ( i 4T $ X $ # ; < X , ( T U P Q IHRET8 , ( @ 5 U T Y & P , ( X P
0x0a0608…0a079c Dummy {f00=0x0031, f01=0x0190, f02=» _ @ n , ( @ T (@ > P X U 4X 5 , ( / Z_& ? @ T A % > SUMLOG V n O > > H D !3$ /W ; 6 G d MP QP W > ] d aT gW` o sPV TJ P( R$ H D ! . T T P WJ
0x0a079c…0a0930 Dummy {f00=0x0031, f01=0x4052, f02=» 6 T P P W P T ; V A CT G X K V W V <@ N T A % > SUMLOG V n O > > H D !3$ /W ; 6 G d MP QP W > ] d aT gW` o sPV TJ P( R$ H D ! . T T P WJ
0x0a0930…0a0ac4 Dummy {f00=0x0031, f01=0x0190, f02=» > @ IDENT DRTC01 REL 11.0 81-01-26 870105041100 J $ IHTC DWTC01 DWTC02 TCDRON J F J n DISIOE J , ( 1"78 Q P ^ A J ECBRL J , ( / B X T " T A 7 J
0x0a0ac4…0a0c58 Dummy {f00=0x0031, f01=0x0190, f02=» H J TCDRON K ( SAVE8 K < INIFLG K L TDISP K ^ , ( $ @ K n , ( P X XN# Y ) W K , ( " P P _ :CV + W K , (
0x0a0c58…0a0dec Dummy {f00=0x0031, f01=0x0190, f02=» = Y A P P )@ K DWTOR L . * & Y :b P ) :a P :a P X L > DISEND L l , ( w H '? R Q )@ L ~ , ( A X T " P A L , ( X P W Y @ T L
0x0a0dec…0a0f80 Dummy {f00=0x0031, f01=0x018e, f02=» L n PFPOST M , ( / _ Y @ T C P M , ( @ K B A _ A A A M P IHTC M INTSAV M * & k _0 _ _8 _< _@ _D _H A M , ( ?M P A P Q ? A @ M , (
0x0a0f80…0a1114 (1, 47) Dummy {f00=0x0031, f01=0x0190, f02=» , ( * ;I C X "A _@ A A A A N , ( # 4# X& vT X T N 4 , ( @ A z:EV W X T Y :D N d , ( _ V X Q z:EV W " N , ( N P Y W X $ Q N , ( R N_
0x0a1114…0a12a8 Dummy {f00=0x0031, f01=0x0190, f02=» " " N | O H D ! A !P / 7 9T AT I f MT W _ ^ cP gT s uT y } O 6 H D ! 4 B , Pz O H D !H Wh V P P V W, T T T % 'P -
0x0a12a8…0a143c Dummy {f00=0x0031, f01=0x40fc, f02=» z + ~ CT GP S c k O f H D !H PP Pz Q@ T T T W 9T = P " H D ! ?T GV IW M OT _V c gQx oVp uW P WD QB R P P n ( $ U V P W P P P P @ P T % 'P -
0x0a143c…0a15d0 Dummy {f00=0x0031, f01=0x8190, f02=» J F IDENT DRTN01 REL 11.0 81-01-28 870105041100 TNADY R PC:DIXN b TNADY t , ( @ ( !"+*-, , ( #$*+ %&,- LENDER , ( ? V qs
0x0a15d0…0a1764 Dummy {f00=0x0031, f01=0x8190, f02=» DWTOR , ( yD Y Y X , ( ' _D X 8 ! ! T 5 ! ! > , ( @ Q Y Y 0 ! ! n , ( 0 0 Y ! ! P Q ! _ X * & @ " P Y 0 Y Y ECBEL
0x0a1764…0a18f8 Dummy {f00=0x0031, f01=0x8190, f02=» Z 7 ! ! ~ , ( K Y Y _N X STABLK N , ( g " P ! ! 1 Y ` OUTPUT , ( HD Y ! X 0 Y ! ECBBA , ( B 1 ! ! $
0x0a18f8…0a1a8c Dummy {f00=0x0031, f01=0x8190, f02=» Y 0 r , ( H ! x ! Y Y P , ( ^ _0 Y 9 B , ( 7 ! ! V ! _ _ ( r , ( U # P ! Z _> Y LDISP * & sD Y * X X
0x0a1a8c…0a1c20 Dummy {f00=0x0031, f01=0x8190, f02=» ,P Y Y 4 , ( 3P 0P X ! T Y W Y " , ( 0R !Q P R : R H > R , ( :dW " H >" 9 ^ Y 4 * & -D X T Y Y _ _ Y * & E R ! Y X
0x0a1c20…0a1db4 (1, 48) Dummy {f00=0x0031, f01=0x8190, f02=» V Y ! b 4 Y ~ , ( Y ! t 0 Y ECBRL N , ( @ ! ^ X B B ^ INPUT , ( H 4 X T ! Y ! , ( I$ ! Y ! Y ! , ( !
0x0a1db4…0a1f48 Dummy {f00=0x0031, f01=0x8190, f02=» W!$ v Y X P , ( o @ X =P X ^ ! W X . , ( !T ' T X Y U ^ , ( D Y 0 ! Y Y 4 B V , ( @" B = 4 Y _ B , ( @ B ! Y R 4
0x0a1f48…0a20dc Dummy {f00=0x0031, f01=0xc168, f02=»T J Q h h J P Qr h P #P /P ? E J H D ! I c kPp o y @ @ @ p P h P0 h h F H D !u P 3 9 J ? AV E h WP [ T P PP PL T W RF QB H D ! P R R W 1T _T eW T P G
0x0a20dc…0a2270 Dummy {f00=0x0031, f01=0x0190, f02=» > @ IDENT DRTP03 REL 11.0 81-01-26 870105041100 ` TPAD3 ` F TPAD3 ` V , ( ~ ` h DWTOR ` , ( ! 8 7 F X ` DWTDEV ` , ( ? H" :F X Y
0x0a2270…0a2404 Dummy {f00=0x0031, f01=0x0190, f02=» W X # T !"P ! & W !@P ` LENDIS a , , ( $ X ! T B R b " a > , ( +P P T ! ! a n * & @ ! " T Y Y B X a GETCHR a , ( Y P ! ! a
0x0a2404…0a2598 Dummy {f00=0x0031, f01=0x0190, f02=» _B ! !'P ! T " a * & T X Y W b , ( X $ B R b " X b N * & +P P T Y Q Y b ~ , ( Y P B ! ! b , ( P Z P T b
0x0a2598…0a272c Dummy {f00=0x0031, f01=0x0190, f02=» b j , ( [H$ Y Y # C X # c , ( s D C B P Y Q Y c : , ( ! ! ! !EP ! T " T X c j , ( $ !xX8 Y Y c TLTP03 c * & B <C Q X c
0x0a272c…0a28c0 Dummy {f00=0x0031, f01=0x0190, f02=» ! ! ! c | STABLK d , ( 1$ T Y Y ! T ! d . ENDBLK d ^ INPUT d p * & I T W ! T ! T ! d , ( a P -P ! X Y 4" d LDISP d , ( } U ! T 4
0x0a28c0…0a2a54 (1, 49) Dummy {f00=0x0032, f01=0x018e, f02=» X R @ 8 Y d , ( P - ^ ! > ! P e " , ( ! > X ! x ! x X ! e R , ( x X "? ! x "@ ! x X ! e * & x , ! x ! P X e ; P e H D ! :
0x0a2a54…0a2be8 Dummy {f00=0x0032, f01=0x4172, f02=» e J H D !0 T Pj > % x 3P: ;P$ ?T EW IR OR SP _W k q P wP {T f H D ! T W R P P T Q P > x P: P$ T W R R f T H D !08 P !W - 3 P 9P =T* AT* QW PB Q< > x P P T T f H D ! QB P P0 > x P
0x0a2be8…0a2d7c Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT DRTP04 REL 11.0 81-01-26 870105041100 g TPAD4 g F TPAD4 g V , ( _ $ g h , ( ! $ " & g DWTOR g DWTDEV g , ( A $ X " :F X
0x0a2d7c…0a2f10 Dummy {f00=0x0032, f01=0x018e, f02=»! P g l , ( ! ! C W X # h LENDIS h < ECBRL h N , ( T ! P W # T !@P W h ^ ECBBA h , ( B B R b " +P P h GETCHR h , ( @ B ! ! P
0x0a2f10…0a30a4 Dummy {f00=0x0032, f01=0x0190, f02=» * & C !%P ! T " T i , ( _ B R B ! ! i 2 , ( y P Z oR X /P i b , ( D C _ ! _* ! !EP ! i , ( T " T _Z B R b i , ( " +P
0x0a30a4…0a3238 Dummy {f00=0x0032, f01=0x0190, f02=» ! T ! ! ! i , ( C ! P ! P ! j " , ( _ @ ! ! ! ! j R , ( } " ! ! ! B V Y j , ( ! X ! X ! ! j STABLK j , ( ! !
0x0a3238…0a33cc Dummy {f00=0x0032, f01=0x0190, f02=»" U ! T 4! P j LDISP k ( DWTECB k 8 , ( W X T k J DWTST k z , ( @ $ Y " X R @ H Y ! k , ( 5 ! ! X ! ! k * & @ S ! X C
0x0a33cc…0a3560 Dummy {f00=0x0032, f01=0x417a, f02=» W T P W R P k d H D !cp P P" R P % + /T 9 ? C KP OT ST gRV l H D ! s y P" R P P T T R P P P P l l H D ! P" R P % + /T 9 ? C KP OP _ e i y l H D !
0x0a3560…0a36f4 (1, 50) Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT DRTW01 REL 11.0 81-01-26 870105041100 m TWAD IHTW TWON DWTW01 m F TWAD m j , ( x B U P R m | DISIOE m , ( ! U ! ! W ! Q ! B m , ( ? Z P C !
0x0a36f4…0a3888 Dummy {f00=0x0032, f01=0x0190, f02=» ! _f Y $P Y % m ~ , ( _ ^ _ ! P B L n , ( # +P Y ( ! U _ X n N DWTST n ~ , ( @ T _ W ! Y ! X n , ( X ! X P R ?]* U C n , ( = _. _: ! !
0x0a3888…0a3a1c Dummy {f00=0x0032, f01=0x0190, f02=» y! h Y _p X R X n DWTOR o 0 DWTECB o @ DWTSB2 o R , ( X ' & o d DISEND o IHTW o INTSAV o , ( P ! X ( _X o , ( H@ A
0x0a3a1c…0a3bb0 Dummy {f00=0x0032, f01=0x0190, f02=» J P 8 B W B W B W o PFPOST p * DWTA4 p < , ( ; B @ T 8 T Y Y p L DWTA5 p | TDISP p , ( UI Y Y Y * ! 2 X *_B p , ( o $ B 1 4 X X X X p , (
0x0a3bb0…0a3d44 Dummy {f00=0x0032, f01=0x4146, f02=» p H D ! U P R !U + , -W 1 H 5Q 9 n CP M 2 Q WP cR q H D ! R s n P. P( P R Q W R U n P , P: P 8 U q H D !1 T W 8 +P /R 7U G M SP m 8 R P , q 8 4 R> P Q W~
0x0a3d44…0a3ed8 Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT DRVU01 REL 11.0 81-01-26 870105041100 r D @ VUAD IHSVU1 IHSVU2 IHSVU3 IHSVU4 IHSVU5 IHSVU6 IHSVU7 r F F B IHSVU8 VUCHRI VUSTBL VUCHRO VUENBL VUDISP IHPVU1 IHPVU2 r < 8 IHPVU3 IHPVU4 IHPVU5 IHPVU6 IHPVU7 IHPVU
0x0a3ed8…0a406c Dummy {f00=0x0032, f01=0x018e, f02=»???? r ~ SWL48 s , ( ? B B B B B B J J P s . DISIOE s ^ , ( [ 1 s p ECBRL s ECBBA s , ( {D B R B H " s DWTDEV s , (
0x0a406c…0a4200 Dummy {f00=0x0032, f01=0x0190, f02=» , ( U $ ! T _ U D ! t GETCHR t 4 , ( T _ $$ X" X& X* C t F , ( %@ U " R ! _ t v ECBRC t , ( C P P P P P P C t , ( a _> Y _H Y
0x0a4200…0a4394 (1, 51) Dummy {f00=0x0032, f01=0x0190, f02=» t v ECBEL u , ( H B C P ! ! u & ECBCW u V , ( W ! 1P C u f , ( B X $@P C ! Y u DISEND u , ( ) Y B u , (
0x0a4394…0a4528 Dummy {f00=0x0032, f01=0x0190, f02=» u h DWTST v , ( $ ! T > Y ! v , ( @T Y Y _ v H , ( R V V P P T ! v x , ( W T Y @ Y W ! v TENDIO v ECHRTN v , ( X
0x0a4528…0a46bc Dummy {f00=0x0032, f01=0x0190, f02=» ] $ < X X "@P XN ! v , ( y T ! T ! T _ 2 w , , ( @@ X "@P ! X ! ! w NDRET w , ( ( X ! > w , ( ! F ! L X ! P w , ( $ Y
0x0a46bc…0a4850 Dummy {f00=0x0032, f01=0x0190, f02=» ?$ X $@T X !PPT @ w , ( YD@ Y W Y > X $@ Y x , , ( s " <a Y X Y > X x , ( $ @ Y <A Y X Y x NDSAV8 x DWTLD1 x , ( @ > " Y $ T
0x0a4850…0a49e4 Dummy {f00=0x0032, f01=0x0190, f02=» & " Y x DWTLD2 y , ( " Y ( y 2 , ( -B Y $ Y T U y b , ( I BW " Y $ Y y PFPOST y , ( c B T U @ * X $ y N
0x0a49e4…0a4b78 Dummy {f00=0x0032, f01=0x0190, f02=» IHSVU7 y IHSVU8 z INTSAV z & * & U T & U , A z 8 , ( . ? 0 T U T X z f * & Y U U XH X z , ( P l D X z , ( @
0x0a4b78…0a4d0c Dummy {f00=0x0032, f01=0x018e, f02=» , ( A Y 0 @ _$ _* { , ( ] _0 U U & _: " { 4 DWTCP2 { d , ( { ;b ;b > X 2 ;C > 8% { v , ( T , > X P W { DWTOTQ { , ( <P P P 4P _ =
0x0a4d0c…0a4ea0 Dummy {f00=0x0032, f01=0x0190, f02=» { * & @ X 4 U > Y "W | VUDISP | 6 VUCHRO | J , ( 6 & " 8! 9A D ,X | ^ , ( ! T T X 2 # R P ; | DWTOCH | , ( ? " @ *T U T Y 8 , | SETIM
0x0a4ea0…0a5034 (1, 52) Dummy {f00=0x0032, f01=0x0190, f02=» | IHPVU3 } IHPVU4 } IHPVU5 } 0 IHPVU6 } D IHPVU7 } X IHPVU8 } l , ( 8_ A . ? 0 U >h } NDGEDW } , ( ?j t < " } , ( P U X
0x0a5034…0a51c8 Dummy {f00=0x0032, f01=0x0190, f02=» B T T U X 4 U } VUON 2 ~ ( , ( @P u W U X 8 & ? ~ : , ( 9 ? > @ , T @ _ > D ,X U ~ j , ( @ Y T T P Y _ ~ NDREWS ~ , ( w U U U t XD D ~
0x0a51c8…0a535c Dummy {f00=0x0032, f01=0x0190, f02=»T U T +U 3R 7 A EP> IP ~ n H D ! / MP QPx UP" YP$ P V W U d P * H D !s W d P P EV KW QU k o T v H D ! T d J T d RH VJ V( PD Pn T W T,
0x0a535c…0a54f0 Dummy {f00=0x0032, f01=0x414c, f02=»P< W + 3 Z H D ! = KT UT ]W p P W R L p H D ! + ; IW( U e y j * ^ T8 X R P P W b H D ! P P P W P W P W %TJ 1R, 5P( IT OT ]T k oW 8 4 sP yP
0x0a54f0…0a5684 Dummy {f00=0x0032, f01=0x0190, f02=» > @ IDENT DSKSUB REL 11.0 81-01-26 870105041100 F B VOLCLR VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWT NVLTAB F NVLEND NVLBIT VOLCLR VOLNAM ECBRL ECBEL , ( @ % Y
0x0a5684…0a5818 Dummy {f00=0x0032, f01=0x0190, f02=» h NVLCHK H DWTORD , ( 9 $ $ ^ W X Y :g . DWTNVL ^ DWTTAB p , ( S! H I ? P X * & m P ,P 9A _ H P I IHRTN VOLGET , (
0x0a5818…0a59ac Dummy {f00=0x0032, f01=0x40da, f02=» $ Q X " _F X $ NVLTAB , NVLEND @ NVLBIT T _R h D @ 2 W| Tt 2 1WZ GWD eP& o s uP yP P P | @ IHRTN VOLGET , (
0x0a59ac…0a5b40 Dummy {f00=0x0032, f01=0x40c4, f02=» J F IDENT DTTP03 REL 11.0 81-01-26 870105041100 DTTP03K TLTP03 R DTTP03K l TLTP03 D : @ 11 P IFF DN=12 P IFF DN=13 P IFF DN=14 P*
0x0a5b40…0a5cd4 (1, 53) Dummy {f00=0x0033, f01=0x40ee, f02=» > @ IDENT DVTDI REL 11.0 81-01-26 870105041100 DVTDI F DVTDI V DIAD h & " DI x " ! "" 33 ?O_o 6 6 @ P* DOCUMENT TABLE 15
0x0a5cd4…0a5e68 Dummy {f00=0x0033, f01=0x40e4, f02=» > @ IDENT DVTDN REL 11.0 81-01-26 870105041100 DVTDN F DVTDN V DNAD h & " N x ! "" 33 , , @ P DATA /3333 DEVICE STATUS
0x0a5e68…0a5ffc Dummy {f00=0x0033, f01=0x40ea, f02=» > @ IDENT DVTDY REL 11.0 81-01-26 870105041100 DVTDY F DVTDY V DYAD h & " Y x ! "" 33 2 2 @ FT MMUPAG=1 PDEVECB DAT
0x0a5ffc…0a6190 Dummy {f00=0x0033, f01=0x4120, f02=» > @ IDENT DVTG1 REL 11.0 81-01-26 870105041100 DVTG1 F DVTG1 V GPAD8 h , ( GP x , ( "" 33 ? P
0x0a6190…0a6324 Dummy {f00=0x0033, f01=0x412a, f02=» > @ IDENT DVTG2 REL 11.0 81-01-26 870105041100 DVTG2 F DVTG2 V GPAD3 h , ( GP x , ( "" 33 ( $ ? 3
0x0a6324…0a64b8 Dummy {f00=0x0033, f01=0x40ec, f02=» > @ IDENT DVTG3 REL 11.0 81-01-26 870105041100 DVTG3 F DVTG3 V GPAD04 h & " P z ! "" 2 2 @ 0,0 P XIF PDWTE
0x0a64b8…0a664c Dummy {f00=0x0033, f01=0x40e8, f02=» > @ IDENT DVTGP REL 11.0 81-01-26 870105041100 DVTGP F DVTGP V GPAD h & " P x ! "" 33 0 0 @ TATUS " P DATA 0 HEAD POSIT
0x0a664c…0a67e0 Dummy {f00=0x0033, f01=0x411c, f02=» > @ IDENT DVTKB REL 11.0 81-01-26 870105041100 DVTKB F DVTKB V KBAD4 h & " @ KB x bECH bCOD , ( ! "" 33 ` < 7 : 9 :
0x0a67e0…0a6974 (1, 54) Dummy {f00=0x0033, f01=0x4114, f02=» > @ IDENT DVTMS REL 11.0 81-01-26 870105041100 DVTMS F DVTMS V MSAD h & " MS x , ( ! "" 33 A ` D 7 : 9 : D
0x0a6974…0a6b08 Dummy {f00=0x0033, f01=0x40fe, f02=» > @ IDENT DVTOD REL 11.0 81-01-26 870105041100 DVTOD F DVTOD V ODAD h & " @ OD x * & ! "" 33 ` > 9 < ; < > @ PDEVECB
0x0a6b08…0a6c9c Dummy {f00=0x0033, f01=0x40fe, f02=» > @ IDENT DVTT1 REL 11.0 81-01-26 870105041100 DVTT1 F DVTT1 V TPAD3 h , ( TP x , ( "" 33 > > @ END @
0x0a6c9c…0a6e30 Dummy {f00=0x0033, f01=0x40ee, f02=» > @ IDENT DVTT2 REL 11.0 81-01-26 870105041100 DVTT2 F DVTT2 V TPAD4 h , ( TP x "" 33 . . @ DATA 0 PRINTER PARAMETERS
0x0a6e30…0a6fc4 Dummy {f00=0x0033, f01=0x4110, f02=» > @ IDENT DVTTN REL 11.0 81-01-26 870105041100 DVTTN F DVTTN V TNAD h & " TN x , ( ! "" A h C $ h
0x0a6fc4…0a7158 Dummy {f00=0x0033, f01=0x40f2, f02=» > @ IDENT DVTTP REL 11.0 81-01-26 870105041100 DVTTP F DVTTP V TPAD h , ( TP x "" 33 2 2 @ CE BUSY 6 P DATA
0x0a7158…0a72ec Dummy {f00=0x0033, f01=0x40e8, f02=» > @ IDENT DVTVU REL 11.0 81-01-26 870105041100 DVTVU F DVTVU V VUAD h & " U x ! "" 0 0 @ DATA 0 TIMER POINTER ( P D
0x0a72ec…0a7480 Dummy {f00=0x0033, f01=0x40f4, f02=» > @ IDENT DW0701 REL 11.0 81-01-26 870105041100 DW0701 F DW0701 X DC07AD l , ( DC ~ * * * @
0x0a7480…0a7614 (1, 55) Dummy {f00=0x0033, f01=0x40d4, f02=» > @ IDENT DW1301 REL 11.0 81-01-26 870105041100 DW1301 F DW1301 X DC13AD l , ( DC ~ @ PDWTEND EQU * P END @ ATA 0 USER E
0x0a7614…0a77a8 Dummy {f00=0x0033, f01=0x40f6, f02=» > @ IDENT DW1501 REL 11.0 81-01-26 870105041100 DW1501 F DW1501 X DC15AD l , ( DC ~ 0 0 @
0x0a77a8…0a793c Dummy {f00=0x0033, f01=0x411a, f02=» > @ IDENT DW2201 REL 11.0 81-01-26 870105041100 DW2201 F DW2201 X DC22AD l , ( DC ~ , ( ? @ @
0x0a793c…0a7ad0 Dummy {f00=0x0033, f01=0x40d0, f02=» > @ IDENT DWII01 REL 11.0 81-01-26 870105041100 DWII01 F DWII01 X ITAD l * & | @ MUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,
0x0a7ad0…0a7c64 Dummy {f00=0x0033, f01=0x40d0, f02=» > @ IDENT DWIO01 REL 11.0 81-01-26 870105041100 DWIO01 F DWIO01 X ITAD l * & | @ P END @ U ECB ADDRESS P XIF
0x0a7c64…0a7df8 Dummy {f00=0x0033, f01=0x40f4, f02=» > @ IDENT DWL301 REL 11.0 81-01-26 870105041100 DWL301 F DWL301 X DRX25 l , ( VC | REQTIM @ , @ S P XIF
0x0a7df8…0a7f8c Dummy {f00=0x0033, f01=0x0190, f02=» > @ IDENT EBCDIC REL 11.0 81-01-26 870105041100 TASCII TEBCDI F TASCII ` , ( t , ( ! , ( A ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ , (
0x0a7f8c…0a8120 Dummy {f00=0x0033, f01=0x4162, f02=» , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI 4 , ( -/STUVWXYZ|,%_>?0123456789:#@'= H , ( 7- <=2&p ?' x , ( ! @O {[lP}M] Nk`Ka z^L~no , ( A | J Z_m , (
0x0a8120…0a82b4 (1, 56) Dummy {f00=0x0033, f01=0x0190, f02=» > @ IDENT FMCDEF REL 11.0 81-05-13 870105041100 . * CREATE DELETE EXTEND SEXTNO DV3RST F SEXTNO x , ( , ( ! CREATE B FILCO
0x0a82b4…0a8448 Dummy {f00=0x0033, f01=0x0190, f02=»:BF , ( _ * G J FPB:CD < VTC:CD N FM:MOV ` , ( wDD G r FM:ECB FPB:IF , ( ,P 00T ( J FPB:KA
0x0a8448…0a85dc Dummy {f00=0x0033, f01=0x0190, f02=» G : T ] @ OPEN VTC:FS 0 DELETE B , ( @ 4' "W P G $ W V FWTPAR DLCLO2 * & T X & "? P @ (W A FWTEW1 EWTVOL , (
0x0a85dc…0a8770 Dummy {f00=0x0033, f01=0x0190, f02=» @ G . F : A 0 X FM:RQE . FM:INE @ EXTEND p R * & a 2_ 4_ 6_ f EWTSEX FPB:EL , ( y * t H 8 A J :X. FNDVTC , ( G 8
0x0a8770…0a8904 Dummy {f00=0x0033, f01=0x0190, f02=» VTC:EN VTC:LR , ( $ B "? G D G F G $ , ( F=f ] @ =f T T OPEXT , ( A ? A H_ , ( T F 6 F 8 G 6 G 8 G , ( 9 * G ,
0x0a8904…0a8a98 Dummy {f00=0x0033, f01=0x0190, f02=» B NP R T J N , ( V W W P J NU * , ( J R F Z , ( 0Zd F JT F J T , ( % T F J F J P J FM:MV4 , (
0x0a8a98…0a8c2c Dummy {f00=0x0033, f01=0x0190, f02=»EAD VTOCBF * & K D A 0 R T VTC:ST L VTC:FN ^ CMPSTR p , ( a L V V$ P X Z , ( y T V DT F . G < B Y. G . FPB:MN FPB:SN , (
0x0a8c2c…0a8dc0 Dummy {f00=0x0033, f01=0x0190, f02=» P F @ v , ( LP F D ? X W F $ , ( Y T ! X 6 * F , ( F <T F . 2 F : > v VTC:NE FEXTNO , ( 9$ T F D W b < A d FNDVT2
0x0a8dc0…0a8f54 (1, 57) Dummy {f00=0x0034, f01=0x0190, f02=»T V l * & b A d J J VTC:EB : , ( J h ^ L , ( h% 6 L P 6 | , ( h NT h , ( L PW L J
0x0a8f54…0a90e8 Dummy {f00=0x0034, f01=0x0190, f02=» h l , ( y J T A d DV3RST < , ( P Z v9A ! :b P Y W P FPB:S1 , ( 9B 9A j D $W L , ADDMOD , ( L X 8 lW J , L D
0x0a90e8…0a927c Dummy {f00=0x0034, f01=0x0190, f02=» , ( ! L U L U L : r(@ < M , ( 9 ^ G : G VW 8 ECBFC h * & W " T " F 4 R : C x VOL:EB VOL:EL , ( s t R L H v G 4 H VOL:FS
0x0a927c…0a9410 Dummy {f00=0x0034, f01=0x0190, f02=» U WT _ d P T T T Wd P J Wh , H D ! T P W: +Q 3P C J s , T T 1 5 < A K @ H D ! O QP U p WT g R iT yP {R T@ V2 W W P U R T H D ! Z T T P W T #
0x0a9410…0a95a4 Dummy {f00=0x0034, f01=0x408a, f02=» R T W 'T 1 5 9 K R p D @ Y [P kW& { T Pf W^ W4 W T WN QW YT P , t@ D ! O QP U p WT g R iT yP {R T@ V2 W W P U R T H D ! Z T T P W T #
0x0a95a4…0a9738 Dummy {f00=0x0034, f01=0x0190, f02=» > @ IDENT FMTASK REL 11.0 81-05-13 870105041100 H D ! OPEN OPEXT DLCLO1 DLCLO2 FMTASK FMINIT FMREAD FM:PWR FM:IO F F B FM:ECB FMEXIT FM:INE FM:RQE FNDNAM FNDVTC FNDVT2 RDVTO2 F B FM:MOV FM:MV4 FM:MV8 CMPSTR CMPDWD F
0x0a9738…0a98cc Dummy {f00=0x0034, f01=0x0190, f02=»E FWTSEX FPB:RL FPB:BF FPB:FO p F B FPB:DT FPB:BO FPB:NO FPB:FN FPB:EL FPB:V1 FPB:S1 FPB:V2 * F B FPB:S2 FPB:V3 FPB:S3 FPB:V4 FPB:S4 FPB:FR FPB:US FPB:SH t F B FPB:MN FPB:SN FPB:IF FPB:KA FPB:CD FPB:RP EWTEXL EWTEXB F B
0x0a98cc…0a9a60 Dummy {f00=0x0034, f01=0x0190, f02=»:EB R F B VTC:LR VTC:RL VTC:BF VTC:FO VTC:CD VTC:RP VTC:IF VTC:KA VTC:NE VTC:ST V VOL:VN p VOL:EL VOL:EB VOL:RL VOL:FS . VTOCRL * VTOCBF VTC:FN
0x0a9a60…0a9bf4 (1, 58) Dummy {f00=0x0034, f01=0x0190, f02=»R VTC:RL VTC:BF VTC:FO 4 VTC:CD H VTC:RP " VTC:IF % p VTC:KA & VTC:NE ( VTC:ST ) FWTVTC FWTPAR FWTFNR FWTTAB
0x0a9bf4…0a9d88 Dummy {f00=0x0034, f01=0x0190, f02=»X EWTEXL EWTVOL EWTEXB 4 FPB:RL H FPB:BF FPB:FO p FPB:DT FPB:BO FPB:NO FPB:FN FPB:EL FPB:V1 FPB:S1
0x0a9d88…0a9f1c Dummy {f00=0x0034, f01=0x0190, f02=»R : FPB:US > FPB:SH @ FPB:MN A 4 FPB:SN B H FPB:IF C FPB:KA D p FPB:CD F FPB:RP L TTABFM , ( #A 1 FM:ECB , , (
0x0a9f1c…0aa0b0 Dummy {f00=0x0034, f01=0x0190, f02=» , ( A > A FM:BUF 8 a Z L SCTFWT ^ SCTNOF p SCTFWL , ( cH @ @ @ DWTST , ( } @R P % % @ I I N
0x0aa0b0…0aa244 Dummy {f00=0x0034, f01=0x0190, f02=» x FMTASK ECBCW1 $ ECBBA 6 ECBRL F * & ]@ C A V C C V TTB:SA , ( w A T L ! P DFTAB * & P (P P D
0x0aa244…0aa3d8 Dummy {f00=0x0034, f01=0x0190, f02=»E FM:RQE OPEN , ( A T W A X P W 2 , ( P T _ b , ( ' Y & J @! P X P @ VT @ V Y , ( G X !? ? W W @ A OPEXT ~ , (
0x0aa3d8…0aa56c Dummy {f00=0x0034, f01=0x0190, f02=»P W V v , ( ($ A N X Y Y " V , ( V X T Y Y A NP F , ( _| (@ - $T 1 %_$ v , ( # Y (_ A X @ X TP <" _ , ( C X J @" P Y 9 @ J !
0x0aa56c…0aa700 Dummy {f00=0x0034, f01=0x0190, f02=» X "? K > v DLCLO1 FREBLK * , ( Q 9 X P $(@ Y Y < DLCLO2 l DET:FM , ( W ! Y & , ( T K % Y % E , ( Y V + V
0x0aa700…0aa894 (1, 59) Dummy {f00=0x0034, f01=0x0190, f02=» F " G , ( N 9 ! ^ R N " , ( ! N P N & N T R FMEXIT ECBRC * & S _ _& - M Z @ T G QMEXIT FCHEC2 , ( " ( @ V
0x0aa894…0aaa28 Dummy {f00=0x0034, f01=0x0190, f02=» . V C 0 C x ECBEL , ( A T B 2 P C P & , ( [ V ! T V U V ! V V FM:PWR FMREAD FM:IO , ( { _N A T 2_ W C . FNDNAM F
0x0aaa28…0aabbc Dummy {f00=0x0034, f01=0x0190, f02=»2 , ( ! 6 : ,(@T X # X FNDVTC < , ( T V P _ A T : C 0 P FNDVT2 , ( $ T @ f @ b T , ( + V )! T B . * Y & CMPSTR ^ , (
0x0aabbc…0aad50 Dummy {f00=0x0034, f01=0x0190, f02=» : Y : _ W $ - Y : ( H D ! , }R" P P v P, P& P4 ^ T Wp < H D ! P Wb P` T # X 3P 9P ?T" U [W aW k { v T P H D ! P P W T P, 4 T 9P QP cT uWz
0x0aad50…0aaee4 Dummy {f00=0x0034, f01=0x405e, f02=» iU W T T T P 4 l T4 %T 3T O X yW ( H@ Z v P, P& P4 ^ T Wp < H D ! P Wb P` T # X 3P 9P ?T" U [W aW k { v T P H D ! P P W T P, 4 T 9P QP cT uWz
0x0aaee4…0ab078 Dummy {f00=0x0034, f01=0x0190, f02=» > @ IDENT LDTASK REL 11.0 81-01-26 870105041100 F B LT:DSK LT:SWB TTABLD QLTDSK QLTSWB QLTASK LD:ECB LD:BUF F LD:BUE PQEMTY LD:STB LD:ECB LD:BUF LD:BUE
0x0ab078…0ab20c Dummy {f00=0x0034, f01=0x018e, f02=»T:DSK J TLSEG1 , ( 7 $V " QMEXIT R PAGQUE d , ( W A ( @ v PAG:QB PAG:SB , ( o X H A ( 1 ) H P SEG:PB
0x0ab20c…0ab3a0 Dummy {f00=0x0034, f01=0x018e, f02=» SEG:DS TTB:CB , ( " D $ u , ECBEL ECBCW1 l , ( ! <a >a C C ~ ECBCW2 ECBBA , ( C C " V ECBRL
0x0ab3a0…0ab534 (1, 60) Dummy {f00=0x0034, f01=0x0190, f02=» RELPA2 TTB:AP , ( ) $ ( F * t , U ( ( , ( ? _8 C " # C $ X , ( [ C S Y : QLTSWB LKMERR QLTDSK QLTASK
0x0ab534…0ab6c8 Dummy {f00=0x0034, f01=0x400e, f02=» @ X ` h p x ( 0 8 @ H P X ` h p x
0x0ab6c8…0ab85c Dummy {f00=0x0034, f01=0x018e, f02=» > @ IDENT LKMAL REL 11.0 81-01-26 870105041100 LKMAL F LKMAL V bTIO h TWAIT v TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEG * & UT
0x0ab85c…0ab9f0 Dummy {f00=0x0034, f01=0x4120, f02=» * & TCHPAG 6 TCHMMU H TSWBLK Z TMOVE l TENEDM | TLDPGM , ( ! " $ $ & ( TPAGAL 3 * , 6
0x0ab9f0…0abb84 Dummy {f00=0x0034, f01=0x0190, f02=» > @ IDENT LRPINT REL 11.0 81-01-26 870105041100 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI LKMSRC IHRTC TIMQUE MONCLO F IHPFAR INIFLG PFPOST IHLKM INTSAV PRUN TTB:SA , ( A A
0x0abb84…0abd18 Dummy {f00=0x0034, f01=0x0190, f02=» H ( ( P c P W SWL48 " , ( WH A V ( U 2 LKMAL b LKMERR r HALT LKMRQE LKMSRC , ( q! P @ V L LKMQDI QTJ
0x0abd18…0abeac Dummy {f00=0x0034, f01=0x0190, f02=» SAVE8 , ( @ A A Q DISQUE > , ( @ P , ( XX ) A A _d A A PFINIT IHRTC , ( $@ A _v A A Q > Q
0x0abeac…0ac040 Dummy {f00=0x0034, f01=0x417e, f02=» , ( Q R Y _ A _0 MEXIT 8 FREBLK H , ( q 8 Q Z P 0 9 Z , ( _ _, _ TIMQUE P H H H D ! ] 4 IP OP SW. cV
0x0ac040…0ac1d4 (1, 61) Dummy {f00=0x0035, f01=0x0190, f02=» > @ IDENT MONTAB REL 11.0 81-05-27 870105041100 & " MONTAB SPDLCI FREQUE PAGQUE F MONTAB p FREQUE PAGQUE SPDLCI KBAD4 TPAD GPAD DNAD DIAD
0x0ac1d4…0ac368 Dummy {f00=0x0035, f01=0x40ac, f02=» GPAD04 VUAD GPAD3 " TPAD4 2 TNAD B , ( R % & @ SPDLCI KBAD4 TPAD GPAD DNAD DIAD
0x0ac368…0ac4fc Dummy {f00=0x0035, f01=0x818e, f02=» DYAD MSAD ODAD ( TPAD3 8 GPAD8 H GPAD04 X , ( j VUAD GPAD3 TPAD4 TNAD INTAS1 6 INTAS2 8 INT
0x0ac4fc…0ac690 Dummy {f00=0x0035, f01=0x8190, f02=» INTAS8 D INTSL1 F INTSL2 H 0 INTSL3 J D INTSL4 L X INTSL5 N l INTSL6 P INTSL7 R INTSL8 T INTPL1 V INTPL2 X INTPL3 Z INTPL4
0x0ac690…0ac824 Dummy {f00=0x0035, f01=0xc07e, f02=»NTVU5 f INTVU6 h INTVU7 j $ INTVU8 l 8 c L n h@ z INTSL6 P INTSL7 R INTSL8 T INTPL1 V INTPL2 X INTPL3 Z INTPL4
0x0ac824…0ac9b8 Dummy {f00=0x0035, f01=0x018e, f02=» > @ IDENT MONTIM REL 11.0 81-01-26 870105041100 GETTIM SETTIM TDATE F GETTIM f MONCLO z , ( @ < ? < ? <(@ C TTB:SA LKMQDI * & # P >_ < U =
0x0ac9b8…0acb4c Dummy {f00=0x0035, f01=0x4090, f02=» , ( u Xv_< R _ 00 > & <h$ P > 4 | %P O SP R P V z@ @ < ? < ? <(@ C TTB:SA LKMQDI * & # P >_ < U =
0x0acb4c…0acce0 Dummy {f00=0x0035, f01=0x0190, f02=» > @ IDENT MSUBS REL 11.0 81-01-26 870105041100 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXIT GETBLK FREBLK FNDDWT F H D ! FNDDWD FNDTID PFINIT SWL48 SWLXY ILLINT INTSAV HALT RELPAG , ( RELPA2 IHRET8 IHRET2 IHRET1 IHRTN
0x0acce0…0ace74 (1, 62) Dummy {f00=0x0035, f01=0x0190, f02=» ? ? ? $P T I QMJOB N " TTMJOB 4 ACTOTP X F , ( = R $ 5 % W Z ACTOT ` TTB:SA * & D Y W T T U U TTB:ID , ( s H U U T
0x0ace74…0ad008 Dummy {f00=0x0035, f01=0x0190, f02=» 0 U r GETBLK FREQUE & , ( _n ? @ T 8 FREBLK h , ( 0 A 1 Q Q >W 0 @ | FNDDWT TTB:TD , ( 1 A P P W " ? X FND
0x0ad008…0ad19c Dummy {f00=0x0035, f01=0x0190, f02=» W 8 X W ? ` @ ~ IHRET8 j , ( S @ @ P $ H W W 2 IHRET2 v b IHRET1 x v IHRTN z PFINIT PFTAB , ( m > > > > > > > > @ V SWL48 SWL
0x0ad19c…0ad330 Dummy {f00=0x0035, f01=0x4128, f02=»Y ^ _ ~ RELPAG RELPA2 2 LKMERR F * & @@ A. X H D ! $ 5P ?R M t WW _W kT W T P T < 8 W Wp R !P 3R 9P AW6 IW. [P eW iW V
0x0ad330…0ad4c4 Dummy {f00=0x0035, f01=0x018e, f02=» > @ IDENT PFTAB REL 11.0 81-01-26 870105041100 PFTAB F PFTAB V TWON h TCDRON x SOPR CHLTON FDON LPON CRON DUON * & UT
0x0ad4c4…0ad658 Dummy {f00=0x0035, f01=0x4094, f02=» VUON , ( X25:ON D ! " V $ n $ ~@ CHLTON FDON LPON CRON DUON * & UT
0x0ad658…0ad7ec Dummy {f00=0x0035, f01=0x40a4, f02=» > @ IDENT SCLASS REL 11.0 81-01-26 870105041100 SCLASS F SCLASS X l ~ @ A CDON CDC DISC P DATA PLON LINE CONTROLLER P DATA VUON VIDEO P DATA X25:ON X25 L
0x0ad7ec…0ad980 Dummy {f00=0x0035, f01=0x0190, f02=» > @ IDENT SDMBUF REL 11.0 81-01-26 870105041100 D @ CURBUF BUFLNK BUFDMI BUFSNR BUFOR BUFSTA SDMGBU SDMRBU F D @ BLKMXL CLRBUF SDMINI SDMRLB CRNQUE CRBUFL CRNEND MXIND BLKMXL CRBUFL SDMGBU
0x0ad980…0adb14 (1, 63) Dummy {f00=0x0035, f01=0x0190, f02=» P A @ r HALT * & a Z @ P % P % T W " , ( Q Q Q Q A 1 : P SDMRLB ECBBA SDMRBU CLRBUF , ( (@ : B 1 : @ , CURBUF
0x0adb14…0adca8 Dummy {f00=0x0035, f01=0x0190, f02=» BUFSTA & @ Z t CRNQUE $ % CRN
0x0adca8…0ade3c Dummy {f00=0x0035, f01=0x0190, f02=» & A $ z , ( @ , - M M M M @ , ( > =a 9a Q - _ - J ; > z H D ! T" P # ' )T - /T 7 9W = ?T E GT H D ! K O S UQ Y ] a g mP qP wT
0x0ade3c…0adfd0 Dummy {f00=0x0035, f01=0x4012, f02=» @ z , ( @ , - M M M M @ , ( > =a 9a Q - _ - J ; > z H D ! T" P # ' )T - /T 7 9W = ?T E GT H D ! K O S UQ Y ] a g mP qP wT
0x0adfd0…0ae164 Dummy {f00=0x0035, f01=0x0190, f02=» > @ IDENT SDMOCR REL 11.0 81-05-12 870105041100 & " SDMOPN SDMCLO SDMRFP OPEFPB F , ( I1M1I2M2I3M3I4M4 p , ( ! , ( A a
0x0ae164…0ae2f8 Dummy {f00=0x0035, f01=0x0190, f02=» P P p SDMOPN DWTECB $ * & @ L <a Q _ I ^ N 6 ECBBA d MOVFW t FPB:BO , ( H D u R % =N FPB:SH , ( @ 1 A ^ R % S S
0x0ae2f8…0ae48c Dummy {f00=0x0035, f01=0x0190, f02=» _ N ~ FPB:EL FMIORF . ECBRC @ , ( R R # S N P FPB:FO , ( @ I T S S FPB:US FDBEXC FDBOMD , ( H T R
0x0ae48c…0ae620 Dummy {f00=0x0035, f01=0x0190, f02=» h CRNGET CRNSTA , ( W W * I , W , FDBMEC FDBECB n , ( G . 0 FPB:RL FDBRLE , ( @ 5 R ] 0_ @ ^ O ( R 2 F
0x0ae620…0ae7b4 (1, 64) Dummy {f00=0x0035, f01=0x0190, f02=» e H : O < R : O < O > O FDBMIA , FPB:KA > FDBKA P * & { @ > V , O @P R B V J O ` FWTVOL DFTAB , ( D R ;H O ( N F Y DMTIDP FDBDMI C
0x0ae7b4…0ae948 Dummy {f00=0x0035, f01=0x0190, f02=» J O & :FV | * & H@ J T O $ " N " P S * & S @ S N (:n S J COSZEN x ECBRL * & H V : 2 J P ECBEL , ( D X U Q Z P
0x0ae948…0aeadc Dummy {f00=0x0035, f01=0x0190, f02=»FDB , ( m _ j " A J T ` FDBCRL < , ( * b N CRNQUE ~ , ( , , % @ d ) A d(@ : N , ( # J X X B U B SDMERX SDM
0x0aeadc…0aec70 Dummy {f00=0x0035, f01=0x0190, f02=»T j SDMRLB CRNCDF , ( I O j l * I , I n . ECBFC ^ , ( H I n F p R n , ( 7D P P L @ L < < , ( QJ M U , U " <a Q Q <B 6 8_H ORDFLP
0x0aec70…0aee04 Dummy {f00=0x0035, f01=0x0190, f02=» Q ?A "P FWTPAR " FDBEAL 4 TASHLT F , ( $ t(@ N v%? T N x z X * & b 4 5W P 0 @ d 1 A , ( B d(@_ ?B 6 S : 8 S : CLRBUF FMIOCL *
0x0aee04…0aef98 Dummy {f00=0x0035, f01=0x40b8, f02=»TN T. R P. ^ H D ! R R W W W W W + p 7R P V P #U STd YR U 8 4 V T 'RD ;P V P P P@ T* W P P f 2 @ B d(@_ ?B 6 S : 8 S : CLRBUF FMIOCL *
0x0aef98…0af12c Dummy {f00=0x0035, f01=0x8190, f02=» B x(@_ ?B 6 S D 8 S D CLRBUF * * & @ F ' P C N < FMIOCL j FMIODL | * & H ~' T W N I ( > H D ! @ RB P QTH [R. T W T P R 6 T`
0x0af12c…0af2c0 Dummy {f00=0x0035, f01=0xc058, f02=»RD P CV QP _P sP@ T* W P n P( T W * B@ T N < FMIOCL j FMIODL | * & H ~' T W N I ( > H D ! @ RB P QTH [R. T W T P R 6 T`
0x0af2c0…0af454 (1, 65) Dummy {f00=0x0036, f01=0x0190, f02=» > @ IDENT SDMSUB REL 11.0 81-05-22 870105041100 D @ RELPRO MOVBW EATEST EASETB EARELB CRNGET CALSNO GTBKBU F D @ CARRBL CRRBL FMIOOP FMIOCL FMIORD FMIORF FMIOWR FMIODL F B FMIOCR FMIOEX FRMFIL FORMAT FORMER RLBLKB
0x0af454…0af5e8 Dummy {f00=0x0036, f01=0x0190, f02=» .! P (@ MOVBW & ( EATEST : : FDBEAL N * & : : : ; Z $ )_ N ` FDBTNR , ( = W ,P M L L O EASETB j GETBLK , ( Y P W
0x0af5e8…0af77c Dummy {f00=0x0036, f01=0x0190, f02=»T j FREQUE , ( @" N Q , 0 5 @ 1 A CRNGET L FDBCRL ` CRNTID r , ( ZB : (P N I CRNQUE HALT CRBUFL , ( D W @ T (
0x0af77c…0af910 Dummy {f00=0x0036, f01=0x0190, f02=» (@ : [ N ~ FDBBLZ , ( - @ S P W N U N . MPYMOD ^ FDBSNR p * & I S W O O FDBRLE EOMERR FDBRRO , ( a P N _
0x0af910…0afaa4 Dummy {f00=0x0036, f01=0x0190, f02=»W W W W z FMIOCR FMIORF . FMIORD B ECBCW V , ( W W W ( N C & f DWTECB ECBRC RETRIE , ( I N C & N ( B *P T ECBBA
0x0afaa4…0afc38 Dummy {f00=0x0036, f01=0x018e, f02=» ECBRL * & 2 4 N 6# # N =H C SDMGBU B * & H 8 N N : C & C T , ( & 0 C . T N $ FRMFIL & FORMAT & FORMER & RLBLKB & CAS
0x0afc38…0afdcc Dummy {f00=0x0036, f01=0x0190, f02=» , ( ? :h# P ;G < : CHKKEY l 4 RDNXTR l H FNDKEY l CRNUPD l p GTLGRN l CRNCIF l RECECB l " ] 0 N % : : H D !@ P ?W CP YP _W P<
0x0afdcc…0aff60 Dummy {f00=0x0036, f01=0x4020, f02=»P ~ n @ < : CHKKEY l 4 RDNXTR l H FNDKEY l CRNUPD l p GTLGRN l CRNCIF l RECECB l " ] 0 N % : : H D !@ P ?W CP YP _W P<
0x0aff60…0b00f4 (1, 66) Dummy {f00=0x0036, f01=0xc072, f02=» W` W W W W W W W P p , ( T W T 3 x QT gV V P P , ( @ n CHKKEY & p RDNXTR & FNDKEY & CRNUPD & GTLGRN & CRNCIF & RECECB & $ H
0x0b00f4…0b0288 Dummy {f00=0x0036, f01=0x0190, f02=» > @ IDENT SDMTSK REL 11.0 81-02-26 870105041100 SDMTSK SDMERX ORDFLP F SDMOPN h SDMCLO z ORDFLP SDMRFP , ( ( SDMTSK & PRUN
0x0b0288…0b041c Dummy {f00=0x0036, f01=0x0190, f02=» 5 N % R FDBRRO , FDBADF > FDBKA P , ( M DP 2=b T O N R N Q ` , ( g P N '? P T FDBENL SDMOEX SDMRLB , ( $ :BV N
0x0b041c…0b05b0 Dummy {f00=0x0036, f01=0x018e, f02=» " T T N $# ECBRL , FDBRLE < ECBEL N , ( T W P F & N ( U G * ^ ECBBA MOVFW ECBCW , ( D N F , . Q EATEST , ( I$
0x0b05b0…0b0744 Dummy {f00=0x0036, f01=0x018e, f02=» , ( 7 $ , " C , P C & 8 N FPB:EL 8 FMIOEX J FRMFIL , ( M D M : < C , > n FDBOMD SDMOOS , ( c D O h N @! BP * & } P P
0x0b0744…0b08d8 Dummy {f00=0x0036, f01=0x0190, f02=» PROERR * & D N H# J LW N * & ( N F , . + N H FMIOWR v CRNGET , ( " 6V O 6W NT P , ( $ F 0 F 0 N '? P P CRNCDF
0x0b08d8…0b0a6c Dummy {f00=0x0036, f01=0x0190, f02=» SDMIOP EASETB , ( GDD N @$ VP XT 2T $ SDMERX p T TENDIO h , ( _D$ Z N 6$ T N z , ( wA (@( N '? T F 0 F EOFERR , ( 0 O TR Q N T
0x0b0a6c…0b0c00 Dummy {f00=0x0036, f01=0x0190, f02=» d C 0 P d C 0 ~ SDMRBU FMIORD 0 , ( DD NT f_b hT B ,W B , ( O 6 W : r * & D ( F 0 F 0 + : H D ! l l l l 4 GRl MP _RL k mP>
0x0b0c00…0b0d94 (1, 67) Dummy {f00=0x0036, f01=0x40ba, f02=» P R P6 W W W W h H D ! V W Tp P8 P, P0 T #V 3W =W QP WT ]T kT T R $ 0 , Q U WV R, P8 T( T T W W p " @ 0 + : H D ! l l l l 4 GRl MP _RL k mP>
0x0b0d94…0b0f28 Dummy {f00=0x0036, f01=0x0190, f02=» > @ IDENT ST8000 REL 11.0 81-01-26 870105041100 ST8000 F ST8000 X IHPFAR l IHLKM ~ IHRTC ILLINT IHTW IASCUZ , ( IHS
0x0b0f28…0b10bc Dummy {f00=0x0036, f01=0x4144, f02=» r , ( ! , ( 1 B , ( A r , ( Q , ( a ( $ q
0x0b10bc…0b1250 Dummy {f00=0x0036, f01=0x0190, f02=» > @ IDENT SYSINI REL 11.0 81-01-26 870105041100 F B SYSINI INILEN INIEND dREL MOVE ERROR CMPADR NXTBLK NXTCOM F H D ! CONVRT GETNUM MULT XMOVE MOVING MOVMMT MMRST GETTAB GETTTB H D ! MMENT PUSH dPOB GETAPP SETTAB INBIMA Q
0x0b1250…0b13e4 Dummy {f00=0x0036, f01=0x018e, f02=» n " tPSW @ " , ( K @ ; Z [ : : 2 [ [ 2 MMDDIV l b MMTAB l v TABBE v MMEND v LSTPAG MMBEG ERROR ~ , ( i" 2 : A
0x0b13e4…0b1578 Dummy {f00=0x0036, f01=0x0190, f02=» f MOVE MOVING , ( > > > : R $ )_ : . , ( @ @ V " ^ , ( V ~ Z A XMOVE " SETTAB " CMPADR " MULT 2 ,
0x0b1578…0b170c Dummy {f00=0x0036, f01=0x0190, f02=» L t SCTTCT , ( S 2 @ V @ ~ 0 H $ INBIMA | T MMRST ~ h GETAPP ~ z , ( o A 2 : : @ , ( ` U W L P _ @ P , ( _"
0x0b170c…0b18a0 Dummy {f00=0x0036, f01=0x0190, f02=» ;h 0 :C # : .=H N , ( " 2 .=H N * GETNUM 4 Z , ( ! 2 N : d 8" n QUEJOB R SAVE8 , ( A R _ ZY QY : ? ? , ( a@ R
0x0b18a0…0b1a34 (1, 68) Dummy {f00=0x0036, f01=0x018e, f02=» _ : @ ~ , ( < | @ 4 W AST * & ? ? > | L , ( ] ] YF z SCTBUG SCTSTB , ( A. @ @ PFINIT
0x0b1a34…0b1bc8 Dummy {f00=0x0036, f01=0x0190, f02=» SCTOPT , ( C $ ) _ > @ , ( ] P P " " " F , ( {@ P 8 P X Z v , ( = _ " Q Q 6 X Q , ( 4_H NW
0x0b1bc8…0b1d5c Dummy {f00=0x0036, f01=0x40a4, f02=»V " %V )W aV U b H D ! WB P P P CR U yR T" & J ; N ? aP i j kPz l P6 P W$ j @ ( = _ " Q Q 6 X Q , ( 4_H NW
0x0b1d5c…0b1ef0 Dummy {f00=0x0036, f01=0x018e, f02=» > @ IDENT SYSLBA REL 11.0 81-01-26 870105041100 STKCOM F GETAPP X ACBLAC j , ( BA A T @ | ACBIOE STKEND , ( A" J ( H K K A SCTSF
0x0b1ef0…0b2084 Dummy {f00=0x0036, f01=0x0190, f02=» , ( a @ BASIC MOVING 8 , ( }DH @ d @ A J TTB:CB z TTB:SA , ( 1 U T U @ , ( ;! Q Q @ Q 1 Q , ( Q
0x0b2084…0b2218 Dummy {f00=0x0036, f01=0x0190, f02=» SAVE8 ACTOT RETUR8 , ( #"$ ? @ : 0 bREL ` , ( ;BH @ @ @ n MOVE , ( S " @ J ACBMMC ACBNPE , ( i
0x0b2218…0b23ac Dummy {f00=0x0036, f01=0x4048, f02=» r $ n T 9 r e m r 8 A N 2@ D : 0 bREL ` , ( ;BH @ @ @ n MOVE , ( S " @ J ACBMMC ACBNPE , ( i
0x0b23ac…0b2540 Dummy {f00=0x0036, f01=0x0190, f02=» > @ IDENT SYSLCO REL 11.0 81-01-26 870105041100 SYSLCO F STKCOM X STKEND j * & @ 8T E 4 @ | , ( J 5 :A @ , ( ; J P $ X <A R < ,
0x0b2540…0b26d4 (1, 69) Dummy {f00=0x0037, f01=0x0190, f02=» _ 5 ( : J @ $ , ( P $ L _ , - L , , ( P ] ] <T <A , ( 0 ,<h `X8 Y0 R , ( _ J L <A K J K : CMPADR , ( 1
0x0b26d4…0b2868 Dummy {f00=0x0037, f01=0x0190, f02=» NXTBLK SYSLCO SCTSTB $ SCTBUG 6 , ( <h P !TTXB : H bREL x , ( H @ @ STKMOV , ( $ % P _ A SCTSFA
0x0b2868…0b29fc Dummy {f00=0x0037, f01=0x0190, f02=» D K d L z , ( # E , A N N !TTT , ( A $ P A L P A F J J , ( [ R z * & w J a J , ( H x N !TTP @ N N , (
0x0b29fc…0b2b90 Dummy {f00=0x0037, f01=0x0190, f02=» h , ( P N ;H N !TTX~ @ , ( ! F 9A = K T A R @ J 8 , ( ; " K A J @ @ h * & U@@ A T @ A INILEN * & o H A @ A V A , (
0x0b2b90…0b2d24 Dummy {f00=0x0037, f01=0x0190, f02=» @ X J v , ( $ $ R $ , M M " , , ( Z ,X -_ J $ $ R $ M F , ( M _ J $ $ R %_ J % j v , ( 5 J P %_ _ @ H A * & S @ @ @ V @ , (
0x0b2d24…0b2eb8 Dummy {f00=0x0037, f01=0x0190, f02=» , ( V $ !aaT # % D ;A , ( ^0 .9h `R Q 4 , ( 1 _ : ` | $ V $ d , ( L : J @ A SCTEFA , ( + p W J @ p A p T @ , (
0x0b2eb8…0b304c Dummy {f00=0x0037, f01=0x0190, f02=» * & " A " . P W , ( $ ) ^ 2 , ( U ~ b , ( @ @ | J J J @ J , ( K A Z J 0 0 , ( , ] L ]
0x0b304c…0b31e0 Dummy {f00=0x0037, f01=0x018e, f02=» 0 Yl @ | A " SCTTCT " , ( @ @ J @ 0 V 4 TTB:SA d , ( @ 0 H I A J I v , ( " > I " : @ ? SAVE8 ACTOT , ( ! ? $
0x0b31e0…0b3374 (1, 70) Dummy {f00=0x0037, f01=0x018e, f02=» h , ( ' h I @ ^ @ ^ , ( P A X @ h ^ 8 , ( [$ I " @ j @ l : J j h * & u ( V @ ( H A , ( h : L T ] , ( ] L
0x0b3374…0b3508 Dummy {f00=0x0037, f01=0x0190, f02=» f bPOB , ( * A n " < V , @ * & n : X ` n @ F , ( 5 =_2 ,9h `P W L t , ( S $ T , : L =A * & s ] I I (T , (
0x0b3508…0b369c Dummy {f00=0x0037, f01=0x0190, f02=» MOVING * & K . : J X , ( B ~ ` ~ ` @ , ( P ~ X ^ p , ( -D I " 4 X ]6 _ @ r T , ( GI @ A @ P A . @ , ( _
0x0b369c…0b3830 Dummy {f00=0x0037, f01=0x4184, f02=»R& ;V IR iP Z H D !# mP P P T T P =T OPJ oR P V P P W H D ! P 1T a ~ P R" R %R ?P e q ~ V: T R Q b H D ! V -W& AT M b {T P W U +PR [ i m w V H D ! j
0x0b3830…0b39c4 Dummy {f00=0x0037, f01=0x818e, f02=» > @ IDENT SYSLCR REL 11.0 81-05-19 870105041100 SYSLCR F SYSLCR X STKEND l STKMOV ~ SCTSFA , ( H ) @ A x STKCOM GETAPP , ( I A |
0x0b39c4…0b3b58 Dummy {f00=0x0037, f01=0x8190, f02=» ERROR , ( i x | R , ( @ - @ x - J N !TTP H , ( N :H N TBT K W x , ( 2 " T @ X 2 N CONVRT NXTBLK , ( =H
0x0b3b58…0b3cec Dummy {f00=0x0037, f01=0x8190, f02=» $ @ n GETNUM , ( + 2 .:H , ( G @ N R P V _ N N , ( e S S YB : ~ * & @@ @ x @ A INILEN , ( d A x A j
0x0b3cec…0b3e80 Dummy {f00=0x0037, f01=0x8190, f02=» MULT , ( @ F * E H K @ , ( L " A N J @ , ( N P " 4X 1 p , ( = R Z0 % _ k k , ( ] :A K J 4 P 5 _ K * & }
0x0b3e80…0b4014 (1, 71) Dummy {f00=0x0037, f01=0x8190, f02=» A A SCTEFA , * & CR T @ A @ > , ( A b D J @ l , ( L A " A R @ T A , ( ' R K J @ L A f , ( AD .
0x0b4014…0b41a8 Dummy {f00=0x0037, f01=0x8190, f02=» K ) G J ) , ( K G ) G " * , ( H@ A N A t N P R Z , ( @ P _ A t R X4 , ( _ A t N P , ( # R ,
0x0b41a8…0b433c Dummy {f00=0x0037, f01=0x8190, f02=» p _ J z GETTTB TTB:PP , TTB:ID > * & $ P I " B $ @ P TTB:CB ~ * & b D E , D ) @ ! P C TTB:SB TTB:SA , ( & C ( C * A r
0x0b433c…0b44d0 Dummy {f00=0x0037, f01=0x818e, f02=» H E p , ( ? #_h A P @ L A " MOVE @ , ( Y J ( A N J $ K , P , ( u J J | | GETTAB * & N P | . 1 I * @ , ( ! P I
0x0b44d0…0b4664 Dummy {f00=0x0037, f01=0x8190, f02=» , ( _B 0 0 0P & , ( @ &X ' * @ b H H 4 QUEJOB d , ( 1 2_0 A r A P @ R v , ( I$"T @ A @ @ R MOVING , ( a HP J V @ A A
0x0b4664…0b47f8 Dummy {f00=0x0037, f01=0x8190, f02=» $ @ v v * & M : Z A V @ , ( H R R Y R D , ( $ <B @ p " 1 A v @ r : t , ( A" Z _D @ V Z : A T , ( 3 R P A p , (
0x0b47f8…0b498c Dummy {f00=0x0037, f01=0x818e, f02=» , ( E _: Q , ( V 4 , ( E _z " D T E d , ( E D E % : Z , ( " R ;B D D " P P , ( 9 R P
0x0b498c…0b4b20 Dummy {f00=0x0037, f01=0x8190, f02=» , ( _ 6 : A H W A H ?AP , ( ^ 6 : 4P " D 4 , ( H H * M j - I " d , ( Y& : f : R , ( H@ X A h @ N T : N , ( HD @ f A
0x0b4b20…0b4cb4 (1, 72) Dummy {f00=0x0037, f01=0x8190, f02=» T T _v , ( J , V P _ N $ , ( L % J J G G U T , ( R G : P V , ( (! : @ t P A p * & _$ 8 @ z @ p % @ n %
0x0b4cb4…0b4e48 Dummy {f00=0x0037, f01=0xc18c, f02=» P0 ^ H D ! P !PV % G U a gP k z u z yW H D ! , } T P> P P^ . T C X G Pl P f H D !l Q P . X P& IT aP iV R0 9 ;P O cP {Pr H D ! P
0x0b4e48…0b4fdc Dummy {f00=0x0037, f01=0x0190, f02=» > @ IDENT SYSLDM REL 11.0 81-02-16 870105041100 SYSLDM F SYSLDM X bREL l STKCOM z SYSLOD TCLASS SCLASS * & $H @ STKEND , (
0x0b4fdc…0b5170 Dummy {f00=0x0037, f01=0x0190, f02=» , ( OA Y 5 X SCTSFA 8 , ( i * _6 : @ J SCTTCT z , ( $ % @ * & $ @ R ERROR , (
0x0b5170…0b5304 Dummy {f00=0x0037, f01=0x0190, f02=» ` @ @ :a | MULT SCTNOF , SCTFWL > , ( I$ @ @ A @ " P SCTFWT * & H ;a P A @ A $ A , ( / A @ T ) FREQUE * & G
0x0b5304…0b5498 Dummy {f00=0x0037, f01=0x0190, f02=» S S @ r , ( V A , ( @ : P T B , ( S S _* : r * & H A A * 4 A , ( , A N =H N A @ * &
0x0b5498…0b562c Dummy {f00=0x0037, f01=0x0190, f02=» , ( IA" @ %!5!T . .W @ TTB:MT 4 TTB:CB F * & a = V 0 0W = V 2 X , ( y 2 P , ( " U , ( _2 P
0x0b562c…0b57c0 Dummy {f00=0x0037, f01=0x0190, f02=» V v * & H . 0 S , @ TTB:ST D TTB:PW V , ( 5 B S 4=J @ " S 6 h TTB:ID TTB:AP , ( MH @ S 8 A @ S : TTB:PP , ( c D T
0x0b57c0…0b5954 (1, 73) Dummy {f00=0x0038, f01=0x0190, f02=» D$ a : A A < H , ( A , . , ( P ^ , ( _ P A 6 @ , ( 8 8 4 D P , ( =@ @ # P H
0x0b5954…0b5ae8 Dummy {f00=0x0038, f01=0x0190, f02=» @ : A @ $ ~ , ( $ T @ A A H , ( ! A A P A 8 N * & H , A $ @ ~ , ( $ @ < F !AAT DWTTAB , ( @ T B
0x0b5ae8…0b5c7c Dummy {f00=0x0038, f01=0x018e, f02=» !TTX Y ~ , ( : !TTX !CCT , ( P @ 4 N , ( U $ $ _. ~ , ( @ P @ 4 U , ( $ $ _. Y
0x0b5c7c…0b5e10 Dummy {f00=0x0038, f01=0x0190, f02=» SCTCDT , ( I"$ 3 D * U , ( a @ * D . !TTT F , ( { _ !CCP R Y W v * & @ P A A @ , ( @ < @ , (
0x0b5e10…0b5fa4 Dummy {f00=0x0038, f01=0x018e, f02=» , ( % T K YB _b @ B , ( CD @ @ @ % P @ 4 4 , ( ] @ 4 4 _r : A " d , ( y @ " F !SST W !AAT , ( W !VVT W !PPT W !LL * & T W !RR
0x0b5fa4…0b6138 Dummy {f00=0x0038, f01=0x0190, f02=» DWTST , ( . #? H H& D H# * H , ( > D > > @ D DWTOR t , ( ; D J @ 0 DWTADR , ( UD @ . ) I F D #@P D L L DWTECH , (
0x0b6138…0b62cc Dummy {f00=0x0038, f01=0x0190, f02=» P I P D R# P * & @W W D >V ` < T @ ( , ( < 1 Q a < : @ % P H V , ( I H L T P , ( @ H U @ , ( %$ U A < +
0x0b62cc…0b6460 Dummy {f00=0x0038, f01=0x018e, f02=» , a t , ( < : Q R D F%? ;D , ( : Q R D F%? B , ( # ;H ;D& >b : Q r , ( R D F%? # ;H ;D& >b , ( : Q R D F%? # , ( '
0x0b6460…0b65f4 (1, 74) Dummy {f00=0x0038, f01=0x0190, f02=» , ( ;D & >b : , ( H A 0 A * A , A . 4 INTLT1 d , ( $ @ , @ . P A . @ 2 E v , ( @ T A , * Q , ( $_8 A 0 A * A , A , (
0x0b65f4…0b6788 Dummy {f00=0x0038, f01=0x0190, f02=» B A 0 A x , ( Q * A , A . @ , @ INTPL1 F , ( i " . P A . @ 2 E X A , X , ( * Q _8 , ( I A 0 A * A , A . INTVU1 , ( H @ ,
0x0b6788…0b691c Dummy {f00=0x0038, f01=0x018e, f02=» @ , @ . P A . @ INTSL1 ( , ( 2 E A , * : , ( / Q _4 A 0 A * A , j * & I@ A . @ , @ . P A INTAS1 * & a . @ 2 E ^ A , * &
0x0b691c…0b6ab0 Dummy {f00=0x0038, f01=0x0190, f02=» f GETNUM , ( ` > > : 4 P , ( N =H N T _ : J , ( @ @ ! P (W ( : @ 0 P z , ( ! 0 _ @ Q @ P P , ( = @_ @ P A P _ ,
0x0b6ab0…0b6c44 Dummy {f00=0x0038, f01=0x0190, f02=» h , ( :d Y @ * Z A . T , ( _4 @ 0 2T 8 , ( @ P _ / : .P h , ( W P A .X , ( @ @ * T :D * , ( ; J T
0x0b6c44…0b6dd8 Dummy {f00=0x0038, f01=0x0190, f02=» 9 A P _d @ 8P , ( 0P _ 1 _ @ 8P 9 _ ( , ( (T P _ 3 _ X , ( : @ @ T , ( : dR d R * & ! _ 00)0= % : @
0x0b6dd8…0b6f6c Dummy {f00=0x0038, f01=0x0190, f02=» b : . ! T ! , ( . : R $ MOVE T , ( "D Y d d , ( U : V @ H D !d P 0 ) 0 /WL 9P@ R6 P P4 9T
0x0b6f6c…0b7100 Dummy {f00=0x0038, f01=0x0190, f02=» P 6 P Pd p H D !Wc 3P$ ; CP L T 6 P~ T T 'P / A j , H D !uV IP W R w L 6 Tr P, U P, U L 6 3P x H D ! _U wT P R L W P0 j R P$
0x0b7100…0b7294 (1, 75) Dummy {f00=0x0038, f01=0x0190, f02=» T P6 W( H D ! W" V T PD P( %U CP WP: oP wW Q R Q R Q H D ! R Q Rz AQP GRJ iQ( oR" r P Q r P ;Q ] r d H D ! a kP Q r P Q r P /Q O r S ]P Q P H D ! @ T P
0x0b7294…0b7428 Dummy {f00=0x0038, f01=0x4042, f02=» $ T R R WP [ t {T R ,@ >P wW Q R Q R Q H D ! R Q Rz AQP GRJ iQ( oR" r P Q r P ;Q ] r d H D ! a kP Q r P Q r P /Q O r S ]P Q P H D ! @ T P
0x0b7428…0b75bc Dummy {f00=0x0038, f01=0x0190, f02=» > @ IDENT SYSLOD REL 11.0 81-05-22 870105041100 F B SYSLOD SYSBAS NUMSEG PRGLG1 APLADA APLLAC APLLAP APLLDA F F B APLMMC APLMMP APLNPE APLREL APLSTA APLTYP APLIOE APLSEG APLSWB APLADA APLRE
0x0b75bc…0b7750 Dummy {f00=0x0038, f01=0x0190, f02=»PLSEG APLNPE APLSWB $ APLSTA 8 APLTYP L NUMSEG ` PRGLG1 t SYSLOD STKEND SCTIPL SCTANO , ( I$ A 0 A A " A A STK
0x0b7750…0b78e4 Dummy {f00=0x0038, f01=0x0190, f02=» A. z bREL , ( O UU @ $ % $P ( SCTMSZ X SCTEFA j SCTOPT | , ( m D _ % A >b>J A A @ , ( A 4 A @ , ( @ A
0x0b78e4…0b7a78 Dummy {f00=0x0038, f01=0x0190, f02=» E E E A & | , ( E @ F CRP <A COP , ( % <A BAP AS<A E ASP @ 4 T L ERROR | SCTPSZ , ( C" A ASP F @ , ( ] U A ASP F P :B A , ( {
0x0b7a78…0b7c0c Dummy {f00=0x0038, f01=0x0190, f02=»MPADR , ( H A ?B Q * & AST > * & @ A l , ( @ A @ D AS , ( 9$$ @ A @ L , ( Q
0x0b7c0c…0b7da0 Dummy {f00=0x0038, f01=0x0190, f02=» S W Y* , ( $ @ @ * , ( A @ L _ @ Z , ( A A A , ( @ A A E @ < V @ , ( / R
0x0b7da0…0b7f34 (1, 76) Dummy {f00=0x0038, f01=0x0190, f02=» ;a=a?j V , ( Y R W ?J E =A;A , PUSH , ( E : l bPOB , ( H " : @ * & < 9B A : " A @ , (
0x0b7f34…0b80c8 Dummy {f00=0x0038, f01=0x0190, f02=» h , ( _ P W T , ( W @ P 8 * & @ , . A @ A h , ( A , ( , (
0x0b80c8…0b825c Dummy {f00=0x0038, f01=0x0190, f02=» _ 0 !TTX , ( m A f !CCT CC A _ 0 & , ( !;; !AAP !DDT @ @ V , ( @ A 6 0_ ; # @ @ * & @ I A , ( P T TT A
0x0b825c…0b83f0 Dummy {f00=0x0038, f01=0x018e, f02=»! T @ " r , ( K A @ @ @ I MOVE B , ( eA$ A $ A @ R SCTMXS , ( } H A @ &P @ SYSLDM , ( @ A & @ ( $ ) , (
0x0b83f0…0b8584 Dummy {f00=0x0038, f01=0x0190, f02=» f , ( T : r : , ( # : 0 !TT 0 8 , ( A !;; : 0 !LLP ! h , ( a RRP !AAP !SSP !PPP !VVP !QQ , ( P W W P W A , ( 0 !;;T
0x0b8584…0b8718 Dummy {f00=0x0038, f01=0x0190, f02=» : 0 )T : !00T , ( @ A : 0 !99Q !00R P ( , ( = P =H_ :TID=TCL=LEV=TDC=T0LC=0SD X , ( ] C=S0 A I. : A , ( { @ A " Q :d @ 1 # R P , ( R W @ E E
0x0b8718…0b88ac Dummy {f00=0x0038, f01=0x018e, f02=» Z4X X2_H v , ( C. h X C.9h! , ( + # " :A K F , ( K : A T I T P 1 v , ( k I P < R P A , ( _> : A A , (
0x0b88ac…0b8a40 Dummy {f00=0x0038, f01=0x0190, f02=» f , ( A A A : 9e , ( ) :e Q P 9e @ P A 8 , ( I 9C) A I " @ ! P h , ( i " :B A t q B J " T , ( : 0 R _ <d?d , ( A
0x0b8a40…0b8bd4 (1, 77) Dummy {f00=0x0039, f01=0x0190, f02=» @ ( = @ Q @ "| , ( ) _@ _$ : ! A A ( , ( G A A ! T A X , ( g A A A A F , ( 0 A 2 : > A A : , ( @ @ 2 ! P V :A
0x0b8bd4…0b8d68 Dummy {f00=0x0039, f01=0x0190, f02=» @ r s @ x , ( ! A I T - A _ I N T , ( A P A $ A > @ V H , ( a S : 9 x , ( P S Y T $ 1T C !CCT : 1 CONVRT , ( P P _ P =H P
0x0b8d68…0b8efc Dummy {f00=0x0039, f01=0x018e, f02=» _ !SST 0 U z , ( J X X A A * & 3 X X S W A A J , ( O A 0 : V W x , ( k Q T W @ T * & R P @ , (
0x0b8efc…0b9090 Dummy {f00=0x0039, f01=0x0190, f02=» f , ( X 9A_ : @ ! P (W ( : n * & H , . @ 8 , ( 3 0 A;T f * & Q P T _* @ * & k @ " p @ ` P A * & :
0x0b9090…0b9224 Dummy {f00=0x0039, f01=0x0190, f02=» Y : 8 , ( 0 ! P P Y , ( A `_0 L Q ` P Y P Y P , ( 9 A V : , %T 8 , ( W P , ! P : SYSBAS , ( w . :
0x0b9224…0b93b8 Dummy {f00=0x0039, f01=0x0190, f02=» ! gP mP q T R U R> P R0 Q T % ` ) V 9 E [P H D !Y iP0 m {P S W +V4 3R, CU G L H D ! o QT _Pf oV wT {P T V R W -Vb 1 5 = E H D ! [ L _ L gPZ k o qWP u L yT
0x0b93b8…0b954c Dummy {f00=0x0039, f01=0x0190, f02=» # ' + / 3 J 7 = A KP | H D ! O S W [ _ wT 6 2 ` P T P T ( 8 H D ! 6 P p n #P +T / 7R = N ET M P P P H D ! PP T T ( L + ; ` G ` O $ U ` ]P& cP iP
0x0b954c…0b96e0 Dummy {f00=0x0039, f01=0x0190, f02=» w Q R@ P6 RN W$ h H D ! L L P( > W D + D 1 D ; D A D ]T. $ H D ! aT eP wP {R P N R z ~ d P: p H D ! - 1Q 7P C EP I a eP o H D
0x0b96e0…0b9874 (1, 78) Dummy {f00=0x0039, f01=0x418e, f02=» 4 P T H D ! 0 V W R T P Td W 'T =T( AP EW H D !L MW U [V cS q d u PN TD T> Tp P P( T Tr TF H D ! ?S AW Y eV iW, mQ( sT {W& T R P T R U H D !B T V P
0x0b9874…0b9a08 Dummy {f00=0x0039, f01=0x0190, f02=» > @ IDENT SYSTAB REL 11.0 81-02-23 870105041100 F B SCTMSZ SCTSFA SCTEFA SCTIPL SCTANO SCTTCT SCTCDT SCTPAG F F B SCTNOP SCTPSZ SCTSTB SCTOPT SCTBUG SCTDMT SCTDMI SCTFWT F B SCTNOF SCTNFT SCTFWL SCTBLK SCTDCT SCT
0x0b9a08…0b9b9c Dummy {f00=0x0039, f01=0x0190, f02=» SWB:EL SWB:NS STKEND STKCOM n F B STKMOV ACBIOE ACBSWB ACBSEG ACBNPE ACBMMP ACBMMC ACBLAP ( & " ACBLAC ACBSTA ACBREL ACBADA r SEG:FC SEG:NS SEG:ST SEG:DS SEG:EL SEG:P
0x0b9b9c…0b9d30 Dummy {f00=0x0039, f01=0x0190, f02=»WB:EL SWB:NS ACBIOE $ ACBSWB 8 ACBSEG L ACBNPE ` ACBMMP t ACBMMC ACBLAP ACBLAC ACBSTA ACBREL ACBADA IHPFA
0x0b9d30…0b9ec4 Dummy {f00=0x0039, f01=0x0190, f02=» IHSOP CHLT1 IHFD $ CHRT1 4 , ( D CHRT2 t CHRT3 CHRT4 IHCC1 IHCC2 IHCC3 , ( ! C
0x0b9ec4…0ba058 Dummy {f00=0x0039, f01=0x0190, f02=» , ( A ( * IHDU2 8 IHMT H IHCD X , ( Q , . 0 h , ( a 2 , ( q HALT
0x0ba058…0ba1ec Dummy {f00=0x0039, f01=0x0190, f02=» SCTCDT , ( @ SCTPAG L SCTNOP ` SCTPSZ t SCTSTB SCTOPT bBUG SCTBUG SCTDMT SCTDMI SCTFWT
0x0ba1ec…0ba380 Dummy {f00=0x0039, f01=0x4108, f02=» 6 SCTMXS & SCTMOX : STKEND N b STKMOV Z v STKCOM h [ $ ) _ _ @
0x0ba380…0ba514 (1, 79) Dummy {f00=0x0039, f01=0x0190, f02=» > @ IDENT TABORT REL 11.0 81-01-26 870105041100 U TABORT U F TABORT U X FNDDWT U l DWTTAB U ~ DWTADR U ABTADR U * & "R P X T X U DWTST U DWTECH U * &
0x0ba514…0ba6a8 Dummy {f00=0x0039, f01=0x40fa, f02=» U h DWTECB V ECBRC V DWTSB2 V * * & IH Y 9 C V < DISEND V j LKMRQE V | " _ @ V , ( Rf P^ TX PJ %RD )V 7T ?P* GP V n V @ V
0x0ba6a8…0ba83c Dummy {f00=0x0039, f01=0x40a4, f02=» > @ IDENT TCLASS REL 11.0 81-01-26 870105041100 W TCLASS W F TCLASS W X W l W ~ W @ W IO AND TDISP P* 0 PTABRQE ABL LKMRQE GO AND INDICATE LKM ERROR P* P*
0x0ba83c…0ba9d0 Dummy {f00=0x0039, f01=0x0190, f02=» > @ IDENT TDISP REL 11.0 81-01-26 870105041100 X H D ! TDISP TPAUSE TEXIT MEXIT QMEXIT ACTDIS DISIOE DISEND DISQUE X F PRUN RETUR8 X DISQUE X PRUN X RETUR8 X QTJOB X QMEXIT X
0x0ba9d0…0bab64 Dummy {f00=0x0039, f01=0x0190, f02=» DISIOE 0 X TENDIO Y DISEND 4 Y & TPAUSE 8 Y : , ( A W W Y N TDISP 8 Y ~ TTB:ST Y , ( 9 ^ ! Z@ (XH @ P T Y , ( W@ M ]X , ) A P P Y U Y TTB
0x0bab64…0bacf8 Dummy {f00=0x0039, f01=0x413a, f02=» [ [ Y t TTB:PW Z , ( [ [ > > [ [ Z & , ( @ Z Z ? ? Z Z Z V , ( I$ Z Z Z Z Z Z * & H Z > Z )W
0x0bacf8…0bae8c Dummy {f00=0x0039, f01=0x0190, f02=» > @ IDENT TIMER REL 11.0 81-01-26 870105041100 [ TIMER SETIME SETIMP [ F TIMER [ f TDISP [ x FNDTID [ LKMRQE [ , ( $ T [ GETBLK [ LKMQDI [ , ( B
0x0bae8c…0bb020 Dummy {f00=0x0039, f01=0x4106, f02=» 9 " _ [ , ( Q ^ 4 _ , TIMQUE IHRET8 n , ( o @ 1 A _ P 9 ( $ ~ T J : - 4 1 J 3 > P @ B
0x0bb020…0bb1b4 (1, 80) Dummy {f00=0x0039, f01=0x0190, f02=» J F IDENT TIOADM REL 11.0 81-02-10 870105041100 TIOADMK R TIOADMK d DWTTAB x , ( ! ! !9!:! " FNDFDB DWTOR , ( !A X "" 1 X
0x0bb1b4…0bb348 Dummy {f00=0x0039, f01=0x018e, f02=»P X T P P P B ECBRL $ FDBRLE 4 FDBOMD F , ( qA" B U T B X T X X ADMTSK, DMACTI ECBBA , ( $# ;a L P T FPB:BO FPB:FO
0x0bb348…0bb4dc Dummy {f00=0x0039, f01=0x40a2, f02=» DMACTD0 $ H D ! =R MRN SPr YP _Tf cPf gPj kP uUP yT TB P2 T$ Q Q P 0 P | @ I ECBBA , ( $# ;a L P T FPB:BO FPB:FO
0x0bb4dc…0bb670 Dummy {f00=0x0039, f01=0x0190, f02=» > @ IDENT TIODM REL 11.0 81-02-23 870105041100 D @ TIODM DMTEND DMTTSB FDBOMD FDBENL FDBEXC FDBECB FDBSNR F F B FDBRRO FDBRLE FDBBLF FDBTNR FDBLRN FDBNIF FDBEAL FDBCRL D @ FDBKA FDBMIA FDBADF FDBAI1 CRNTID CRNCDF
0x0bb670…0bb804 Dummy {f00=0x0039, f01=0x0190, f02=»S EOFRC NODERR PROT KEYERR j D @ PROERR REQERR LGTERR EOFERR EDMERR TTABD TTABLN TABEND & F B DMXACD DMACTI DMACTD DWTPAB MOV:SU MOV:US FINDTT FNDFDB n F B ENLFAC TOTSIZ RTNA14 SETCRO CONENL COSZEN SIZDIF SDMSTS & " SDM
0x0bb804…0bb998 Dummy {f00=0x0039, f01=0x0190, f02=» PROERR REQERR REQER2 & LGTERR : EDMERR N EOFERR b RETRIE v NOKEY NXTKYS EOFRC SIZDIF TTABD TTABLN TABEND
0x0bb998…0bbb2c Dummy {f00=0x0039, f01=0x0190, f02=»1 DWTPAB , ( FDBMEC P FDBECB , d FDBOMD : x FDBLRN ; FDBRLE > FDBENL @ FDBEXC B FDBSNR D FDBRRO H F
0x0bbb2c…0bbcc0 Dummy {f00=0x0039, f01=0x0190, f02=» FDBMIA T FDBADF V FDBAI1 X & FDBDBR ` : FDBDMI a N FDBMRO b b FDBKEY d v CRNTID CRNSTA CRNCDF TIODM . DMACTI 0 TASHLT 0 HALT
0x0bbcc0…0bbe54 (1, 81) Dummy {f00=0x003a, f01=0x412e, f02=»SP DMACTD D FNDFDB D MOV:US D 2 MOV:SU D F FINDTT D Z RTNA14 D n SETCRO D COSZEN D ENLFAC D CONENL D TOTSIZ D =H _
0x0bbe54…0bbfe8 Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT TIOEDM REL 11.0 81-02-19 870105041100 H D ! TIOEDM TIOECR TENEDM PABORD PABFC PABBA PABRL PABCW1 PABCW2 F PABORD PABFC PABBA PABRL PABCW1 PABCW2 T
0x0bbfe8…0bc17c Dummy {f00=0x003a, f01=0x0190, f02=» TTB:SA , ( ! P X " 5 X U " U ECBBA B ECBRL R ECBCW1 b ECBCW2 t , ( 3! B U B U B U , ( M@ B U $D P % ! DFTABL FWTVOL
0x0bc17c…0bc310 Dummy {f00=0x003a, f01=0x0190, f02=» P H P L D , ( W X < , T M TIOECR P TASHLT d DISIOE v LKMRQE , ( ! T % E " SCTMOX , ( $ @ & 0 X" 0 P $
0x0bc310…0bc4a4 Dummy {f00=0x003a, f01=0x0190, f02=» , ( B" T ? V ,W . * & H Xb P U X Y Y 4 LKMQDI b SCTNOF t SCTFWT , ( 7 0? T ZvP @ 2Y~ , ( O 4 8 Y V DWTECB *
0x0bc4a4…0bc638 Dummy {f00=0x003a, f01=0x0190, f02=» h MOVUU ECBEL , ( I$ T 8 6 T C : T ( ECBRC X * & H C < T C T C h DISEND , ( H ? V , > 6 "" SCTCDT , ( H P 0 P
0x0bc638…0bc7cc Dummy {f00=0x003a, f01=0x405a, f02=» < 8 W %P EP6 _V g V W V V P P P %P , D@ V ECBRC X * & H C < T C T C h DISEND , ( H ? V , > 6 "" SCTCDT , ( H P 0 P
0x0bc7cc…0bc960 Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT TIOFM REL 11.0 81-05-13 870105041100 $ TIOFM DET:FM FCHECK FCHEC2 F TIOFM n , ( " 2 P P P P P P , ( ! P P T T T W FWTTAB TIOERR F
0x0bc960…0bcaf4 (1, 82) Dummy {f00=0x003a, f01=0x0190, f02=» [H P @ & ECBCW2 . ECBCW1 @ , ( uI B B T P & T R FWTEW1 EWTEXL , ( ! L L R Q EWTEXB , ( U V , , " _ ,
0x0bcaf4…0bcc88 Dummy {f00=0x003a, f01=0x0190, f02=»Q R R P | DWTST QUEDEV , TIO:FM > * & $H X " P * & $ _L _< _< ~ GETBLK FCHECK D FCHEC2 F , ( / & _
0x0bcc88…0bce1c Dummy {f00=0x003a, f01=0x4186, f02=» g ,P X .R :AV ' X > T DET:FM . QTJOB B , ( > > P X P 4 R & " B 0 Y Y > H D ! R PX PD PP PL PH P2 !P, %P )T - D /T 3 7T =W A D CT$ H D ! e D gP T
0x0bce1c…0bcfb0 Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT TIOSDM REL 11.0 81-02-26 870105041100 F B TIOSDM SDMOIE SDMIOP SDMOEE SDMOOS SDMOOR SDMLIM SDMOEX F SDMOIP SDMOEX DISIOE , ( , ( I$
0x0bcfb0…0bd144 Dummy {f00=0x003a, f01=0x0190, f02=» SDMOEE SDMOOS SDMOOR , SDMLIM @ , ( I > ? ? ! ! !9!:!R! !2! " " T TIOSDM , ( i @ DWTOR , ( ~ N R ;A 09kP
0x0bd144…0bd2d8 Dummy {f00=0x003a, f01=0x018e, f02=»WTTAB FDBSTA FDBEXC , ( N R XH N P 2 SCTTCT b FDBTNR t , ( R @ $ :a P $ O W TTABD TTABLN TABEND CRNGET , ( !
0x0bd2d8…0bd46c Dummy {f00=0x003a, f01=0x0190, f02=» ECBCW , ( @ G J N " N W W B LGTERR D ECBRL V , ( c B " B " $ B &U W f EDMERR FPB:FR , ( y"$P ( Q W $ * B FDBRRO , ( &
0x0bd46c…0bd600 Dummy {f00=0x003a, f01=0x0190, f02=» Q N N T ~ , ( T W B " B " <X C " FDBADF N EATEST ` , ( I C " B " B " 2 4 r CALSNO SDMTSK DMACTD DMACTI , ( B R 6T 8
0x0bd600…0bd794 (1, 83) Dummy {f00=0x003a, f01=0x0190, f02=»_ :a *P ^ : FDBAI1 DWTECB 2 * & Y Q : N ?j DP N D * & s @ F ] F N ] : r H D ! t t t t t t t t J ! % ) H D ! " - 1 Z 5 ` 9 = A
0x0bd794…0bd928 Dummy {f00=0x003a, f01=0x4032, f02=» R T KP YQ oP @ .
0x0bd928…0bdabc Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT TLDPGM REL 11.0 81-01-26 870105041100 TLDPGM F TLDPGM X TTB:SP l TTB:SB ~ SCTTCT , ( $ T T P U U @ ( SEG:NS LKMQDI , ( P ( P
0x0bdabc…0bdc50 Dummy {f00=0x003a, f01=0x0190, f02=» A l TTB:SA SCTFWT SCTFWL 0 , ( M B @ P @ B LD:BUF r FWTEXB * & c$ _ A A H , ( { & T T FWTVOL
0x0bdc50…0bdde4 Dummy {f00=0x003a, f01=0x0190, f02=» $ % % % E QMEXIT * LD:BUE < , ( _( $ U _ &T N * & H ( : ~ , ( ( @ P ' _> , ( 9 V XN : @ P < D
0x0bdde4…0bdf78 Dummy {f00=0x003a, f01=0x40e8, f02=» SEG:EL , ( * D P D ,P _ U : @ H D ! T. P$ P )W 5 D ]P w T D T PX PJ QD R$ R 0 , T +P 9V OP, {W P P @ XN : @ P < D
0x0bdf78…0be10c Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT TLDSEG REL 11.0 81-01-26 870105041100 TLDSEG TLSEG1 TLSEG2 F TLDSEG h TTB:SP | SEG:NS LKM030 , ( B T R L U 9C TTB:SB SEG:DS
0x0be10c…0be2a0 Dummy {f00=0x003a, f01=0x409a, f02=» TTB:SA , ( 5I$ D u T T T T K T T > F R U %T /W h V @ LKM030 , ( B T R L U 9C TTB:SB SEG:DS
0x0be2a0…0be434 (1, 84) Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT TMMLKM REL 11.0 81-01-26 870105041100 TCHPAG TCHMMU TLUSEG F TCHPAG h TTB:MT | LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLUSEG &
0x0be434…0be5c8 Dummy {f00=0x003a, f01=0x406e, f02=»T -_> p RELPAG Q - _H " P -U 3U IT < X X@ j
0x0be5c8…0be75c Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT TMOVE REL 11.0 81-05-21 870105041100 * & TMOVE MOVSS MOVSU MOVUS MOVUU MOVFW F TMOVE t LKMQDI MOVFW , ( (@ U ; [ MOVUS 8 MOVSU 8 MOVUU 8
0x0be75c…0be8f0 Dummy {f00=0x003a, f01=0x4098, f02=» _ P $ ) W X $ ) $ Y W Zb > > > > " 4 0 8 U )W ;UX IP, MP, YU. ]R kP uW W J @ MOVFW , ( (@ U ; [ MOVUS 8 MOVSU 8 MOVUU 8
0x0be8f0…0bea84 Dummy {f00=0x003a, f01=0x0190, f02=» > @ IDENT TOSSIO REL 11.0 81-02-25 870105041100 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN DC:MOT TIOMXI F H D ! MONMMU ECBFC ECBFN ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1 ECBCW2 F B DC:DIX DM:DIX PC:DIX MX:DIX KB:DI
0x0bea84…0bec18 Dummy {f00=0x003a, f01=0x0190, f02=»T DWTOR DWTOCH DWTADR DWTTAB DWTWAT t D @ DWTTQ DWTOTQ DWTUEC DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 0 F B DWTSB2 DWTTP DWTECH DWTSQ DWTORD DWTNVL DWTVOL DWTA7 DWTA8 x > : DWTCP2 DWTLD1 DWTLD2 DWTDEV DWTTBU DWTTLN DWTTCW D
0x0bec18…0bedac Dummy {f00=0x003a, f01=0x0190, f02=»ADR DWTTAB DWTWAT " DWTTQ 6 DWTUEC H DWTMEC DWTOTQ p DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 DWTSB2 DWTTP
0x0bedac…0bef40 Dummy {f00=0x003a, f01=0x0190, f02=» DWTDEV * DWTTBU * DWTVOL * & DWTECH , : DWTTLN , N DWTTCW . b DWTSQ : v BUFLEN ACTADR ABTADR INTADR POLADR HDRLEN RECAD
0x0bef40…0bf0d4 (1, 85) Dummy {f00=0x003b, f01=0x0190, f02=»T:DIX DK:DIX ECBFC $ ECBFN 6 ECBBA H ECBRL Z ECBEL l ECBRC ~ ECBCW ECBCW1 ECBCW2 MONMMU TIOERR LKMQDI Q
0x0bf0d4…0bf268 Dummy {f00=0x003b, f01=0x0190, f02=» FNDDWT , ( ^ 5 ) P U |TIO 6 B TIO:FM : R , ( 7@ XH XF f , ( U Y @ P R T X ,P Xh , ( u I Y # C C # P GETBLK , (
0x0bf268…0bf3fc Dummy {f00=0x003b, f01=0x0190, f02=»C:MIN SAVE8 , ( > (@ X L U L Q L , ( # T R < 5 ^ R < 5 P , ( Y X L P ( L IHRET8 DC:MOT < IHRTN TENDIO @ , ( / H ) 1
0x0bf3fc…0bf590 Dummy {f00=0x003b, f01=0x40fa, f02=» # P 0 1 Y FREBLK * ACTOTP < " $ _ N H D ! P +P = ]P eT kP P T P W U0 QL T R R @ t #P QP qP2 }P" P P @ / H ) 1
0x0bf590…0bf724 Dummy {f00=0x003b, f01=0x0190, f02=» > @ IDENT TPAGAL REL 11.0 81-01-26 870105041100 TPAGAL F TPAGAL X PAGQUE l TTB:ID ~ PAG:QB * & @ @ P T PAG:SB , ( @ % D P 1
0x0bf724…0bf8b8 Dummy {f00=0x003b, f01=0x4144, f02=»RQE SCTNOP , ( ID @ 9c U Z , ( aBH @ Y 9C @ D ] d N , ( y Y$ P T $X2_V T $T % ~ RELPA2 , ( $ E D U T (@ R $
0x0bf8b8…0bfa4c Dummy {f00=0x003b, f01=0x0190, f02=» > @ IDENT TPROC REL 11.0 81-01-26 870105041100 TWAIT TMWAIT TACTOT F FNDDWT f TWAIT x DWTWAT TDISP TACTOT FNDTID , ( @ P "R Y QTJ
0x0bfa4c…0bfbe0 Dummy {f00=0x003b, f01=0x4136, f02=»TAB * & 3 U "R P X R X , ( M T X T . T G : , ( g Y6 G _` P ,P j LKMRQE LKMQDI - _ < 8 P~ R~ Pj )P` 3UR ;R4 CPB IR< OT6
0x0bfbe0…0bfd74 (1, 86) Dummy {f00=0x003b, f01=0x4140, f02=» > @ IDENT TSWBLK REL 11.0 81-01-26 870105041100 TSWBLK F TSWBLK X TTB:AP l ACBSWB ~ LKMRQE , ( H T D T $ $Y QLTSWB TDISP " @ $ %Y
0x0bfd74…0bff08 Dummy {f00=0x003b, f01=0x018e, f02=» > @ IDENT TTMJOB REL 11.0 81-01-26 870105041100 F B TTB:AM TTB:MT TTB:CB TTB:SP TTB:SB TTB:AP TTMJOB TTB:QL F 6 2 TTB:ID TTB:ST TTB:PP TTB:PW TTB:SA TTB:TD TTB:AM TTB:MT TTB:CB
0x0bff08…0c009c Dummy {f00=0x003b, f01=0x40ba, f02=» TTB:PP TTB:PW TTB:SA , , ( #M 1 @ TTB:TD ( p ! 0 @ TTB:TD TTB:AM TTB:MT TTB:CB
0x0c009c…0c0230 Dummy {f00=0x003b, f01=0x0190, f02=» J F IDENT DEBUG REL 11.0 81-01-26 870105041100 dBUG R |BUG ` , ( A @ ~ A p , ( ! A ~ @ A A @ A , ( A A @ A A @ A a
0x0c0230…0c03c4 Dummy {f00=0x003b, f01=0x0190, f02=» , ( $ ( , 0 4 , , ( 8 < , ( - , ( M , ( m 2
0x0c03c4…0c0558 Dummy {f00=0x003b, f01=0x0190, f02=» T <a Z _ = | , ( :A , >a @ t , ( " A P UW B L , ( - @ = / M Q | , ( M R S T Y G P H L , ( m V I U _v A
0x0c0558…0c06ec Dummy {f00=0x003b, f01=0x0190, f02=» l , ( . , + - ; # , ( $ X " H W X " H < TTB:AP l ACBREL ~ * & - H A W W L H , ( $ I A A _l @ P A 1+X , ( B g A _ @ A
0x0c06ec…0c0880 Dummy {f00=0x003b, f01=0x0190, f02=» ( ^ @ P A A " z @ , ( @ T @ W @ A 0 , ( W W 0 _, ` , ( I % W W P @ & , ( E 0 T A _R , ( e
0x0c0880…0c0a14 (1, 87) Dummy {f00=0x003b, f01=0x0190, f02=» , ( A ;a ]@ 1 _L , ( @ W @ $ t 0 P , ( % W A W @ A , ( E P 3P z C @ , ( e P @ @ P @ Q A
0x0c0a14…0c0ba8 Dummy {f00=0x003b, f01=0x0190, f02=» P p , ( ! PP _ @ , ( U z @ @ @ P @ , ( T % @ A 9 Y p , ( E >a Y T c A ~ A " , ( e z A <a P T A , (
0x0c0ba8…0c0d3c Dummy {f00=0x003b, f01=0x0190, f02=» z @ ! T A @ , ( T A # A 0 , ( U % RE RN ME MN W R ( T ` , ( E ( W P T $ ; V ; , ( e W &~ P &`P 6 P @ t$ P $ , ( T
0x0c0d3c…0c0ed0 Dummy {f00=0x003b, f01=0x0190, f02=» W ^ , ( P _ " ^ T @ v9J , ( @ % A xT _ 1@ _ ^ 9 V P , ( E >! D A A > , ( e > > > > > > > ^ _ , ( ^ _ ? ? ? ? ? A ^
0x0c0ed0…0c1064 Dummy {f00=0x003b, f01=0x0190, f02=» ? ? ? p , ( > A t > A A ^ , ( % " , , A A :B A Q ( @ , ( E P _ # # H A " A p , ( e 0R 9U AR FQ 0 , ( :D A _* A " A , (
0x0c1064…0c11f8 Dummy {f00=0x003b, f01=0x0190, f02=» , " 0 " 1 " ! R :W , ( % W W W ?W /W : A 0 , ( E W ! A A P _ @ _ ` , ( e I T , ( " T A P I T ! A A A , ( d A h A l A p A
0x0c11f8…0c138c Dummy {f00=0x003b, f01=0x0190, f02=» ~T @ P A W ` @ , ( * % @ P @ T 4 A zP E E A x< V A x P H D ! ! - 1 = A M Q ] a X i ( @ p H D ! $ R @ @ ( P W % @ ) $ - 1 & H D
0x0c138c…0c1520 Dummy {f00=0x003b, f01=0x0190, f02=» T H D ! [ T T l 8 > Z W* # Z 7W ; =W A W ]P o H D ! k H H H T P T W 2 W 2 W ( H D ! ! : )W /W 7P@ I : O UT Y ] , e 2 i o u @ ( H D ! T W
0x0c1520…0c16b4 (1, 88) Dummy {f00=0x003b, f01=0x0190, f02=» s uP T W P T P P H D ! & P % & 3 9 Q _ & i y h & T P@ H H D !x PB H H & T =R, CT GW QT YV iWp qP uP yP P H D ! TH P@ V P W P P
0x0c16b4…0c1848 Dummy {f00=0x003b, f01=0x40f6, f02=» H T x H D ! P R U @ R W" # @ 'W - @ 1W 5W 9W =W 4 H D ! @ C GW M QPL U T T P T$ R> P6 T. P W 5T CP KV T @
0x0c1848…0c19dc Dummy {f00=0x003b, f01=0x8190, f02=» J F IDENT DEBUGM REL 11.0 81-07-26 870105041100 dBUG R |BUG ` , ( A :U A A p , ( ! @ ~ A A ~ @ A A , ( A @ A A @ A A " a
0x0c19dc…0c1b70 Dummy {f00=0x003b, f01=0x8190, f02=» h , ( , ( $ ( , 0 4 8 , ( 8 < h , ( 9 , ( Y , ( y
0x0c1b70…0c1d04 Dummy {f00=0x003b, f01=0x8190, f02=» T :a R T <a Z _ = , ( :A , >a @ ( , ( " A P UW B X , ( 9 @ = / M Q , ( Y R S T Y G P H L , ( y V I U _v
0x0c1d04…0c1e98 Dummy {f00=0x003b, f01=0x8190, f02=» P A A x , ( . , + - ; # , ( $ : X " H W X " H TTB:AP x ACBRELA , ( * 9 H H A W W L , ( W@ H A A _p @ P A 1+ , ( !T u X A
0x0c1e98…0c202c Dummy {f00=0x003b, f01=0x8190, f02=»NDTID , ( ! ? > " @ , ( D @ T " ( ^ @ P > , ( R A A " @ T @ n , ( 3 W @ A W W 0 , ( $ S _, W W , ( s
0x0c202c…0c21c0 Dummy {f00=0x003b, f01=0x8190, f02=» _` A , ( @ T @ W @ T @ W @ @ . , ( >a @ A ^ , ( 3 A , ( S ;a ]@ 1 _L W @ , ( s $ 0
0x0c21c0…0c2354 (1, 89) Dummy {f00=0x003c, f01=0x8190, f02=» @ Q A @ ~ , ( BT A " T @ W @ A , ( ! A P @ _2 N , ( 3 T 0 P P ~ , ( S _ @ @ , ( P s @ @ P
0x0c2354…0c24e8 Dummy {f00=0x003c, f01=0x8190, f02=» ) " A n , ( U H A @ , ( * @ @ T A A > , ( 3 P @ P n , ( @ S @ ! T A @ A # , ( E s A ~ RE XRN Y , ( P ME
0x0c24e8…0c267c Dummy {f00=0x003c, f01=0x8190, f02=» T P #~ > V . >A , ( P Y X W ^ ? ? . , ( @ 3 @ ' P Y Y W Y Y @ ^ PRUNN ACBLACA , ( S @" P @ = ] , ( m ] ] W A A A W
0x0c267c…0c2810 Dummy {f00=0x003c, f01=0x8190, f02=» A p , ( A > > > > , ( > > > > ^ _ ^ _ ? ? ? ? @ , ( @ - ? A ^ @ ? ? p , ( @ M > > > > > > > , ( D m @ > , ( (
0x0c2810…0c29a4 Dummy {f00=0x003c, f01=0x8190, f02=» # H A " A 0 , ( R 9U AR FQ 0:D A 0 , ( - _* A " A A ` , ( M T A A " , ( m R _U . " , ( A : A
0x0c29a4…0c2b38 Dummy {f00=0x003c, f01=0x8190, f02=» " A A P R :UT , ( @ @ W 9D) 9 I 9 ^ @ W TTB:MT P $ - ? H > " b , ( ! R :W W , ( W W ?W /W : A W ! A A , ( P _ @ _
0x0c2b38…0c2ccc Dummy {f00=0x003c, f01=0x8190, f02=» A A @ z , ( B A A @ > @ _ , ( " a z | I R M A P T @ T J , ( D @ P A W ` @ @ P @ z , ( T A P A < V A @ H D ! )
0x0c2ccc…0c2e60 Dummy {f00=0x003c, f01=0x8190, f02=» ? F C I M Q , U Y j ] d a l e . i : m q u H D ! y } 4 p p j T P B H D ! 0 d d | H N # /W* 3 GW K MW Q g H D !j| mP P W P W
0x0c2e60…0c2ff4 (1, 90) Dummy {f00=0x003c, f01=0x8190, f02=»V W r H D ! > T j W T W # ' + 3 7 > ; . H D ! ? I j M h ] g oW W P z H D !6n P P P T W < P # b + 5 b ;
0x0c2ff4…0c3188 Dummy {f00=0x003c, f01=0x818e, f02=»W T V W~ P ^ H D ! P P P W TR PJ V P %W ;P EW UP$ yW } H D ! W P T T V 3 : K r f H D ! Q P < R$ U R Q + < / 9 < E f I h H D ! M Q
0x0c3188…0c331c Dummy {f00=0x003c, f01=0xc0c6, f02=» J H D ! R T W( @ ) @ +W R W" W W W W W H D !P W PL T T P T$ 5 < oR> wP6 T. P W T P T V @ < R$ U R Q + < / 9 < E f I h H D ! M Q
0x0c331c…0c34b0 Dummy {f00=0x003c, f01=0x0190, f02=» J F IDENT DRTP02 REL 11.0 81-02-16 870105041100 TPADY R TPADY b , ( !"$&;<>@ t DWTOR , ( ! ^_ 9: X ! Y LENDER DWTDEV , (
0x0c34b0…0c3644 Dummy {f00=0x003c, f01=0x0190, f02=»CBCW ECBBA , ( u T ! T W B W B L , ( # 9Q T W Q X L ECBRL | * & @ V T Y W B ! , ( @ T X ! T B R Q B , ( D ! V W ! !
0x0c3644…0c37d8 Dummy {f00=0x003c, f01=0x0190, f02=»BLK , ( 3 " T W Q X " T ! LENDIS < , ( O T Y ! N , ( kB Y _ ! T ! X " ~ , ( V ! T Y P Q W , ( "@ ! T Y X " _( !
0x0c37d8…0c396c Dummy {f00=0x003c, f01=0x0190, f02=» P l , ( D W C V B P ! T * & )B ! T ! T ! T ! < , ( A T ! T Y 4 j * & [ @R Q X " P ! T ^ X , ( u " P R M T ! T , ( " L ,!
0x0c396c…0c3b00 Dummy {f00=0x003c, f01=0x0190, f02=» h , ( B ! T X ' _ X , ( Y P Y # P W 8 NDREP h * & P # P Y Y x DWTST DWTSB2 DWTECB` , ( 7 Y ! T *
0x0c3b00…0c3c94 (1, 91) Dummy {f00=0x003c, f01=0x0190, f02=» X ' : x , ( " R _ 4 ! T ! , ( H T X $ P X ! T 4 F , ( X ' T ! " v , ( B" ! Y ! . X , ( $ X> ! > ! D ! L , (
0x0c3c94…0c3e28 Dummy {f00=0x003c, f01=0x0190, f02=» x H D ! , 0 AP U V W f Y f [ ] ^ _ a c e mTZ uTR }TJ H D ! W W& Q T W Q p V T W T T" R Q V W T H D ! 2 T TD V T4 )T$ -T 5T 7W ;Q CT OTl a wTD { H D ! P V T, P" Q W T
0x0c3e28…0c3fbc Dummy {f00=0x003c, f01=0x409a, f02=» T W. T R U W TZ P P~ W !Pr 'Pl MT| SP @ < [Tn iT` oT wTR }TL T@ R T T PJ T T +T / F @ X @ T H D ! 2 T TD V T4 )T$ -T 5T 7W ;Q CT OTl a wTD { H D ! P V T, P" Q W T
0x0c3fbc…0c4150 Dummy {f00=0x003c, f01=0x0190, f02=» > @ IDENT DCSTAT REL 11.0 81-01-26 870105041100 F B DCSRST DCSRLL DCSUPR DCSUPS DCSUPD DCSRED CSMAXL DWTCHD F DWTCHN DWTCHD DWTCHN CSMAXL DCSRST DCSRLL , (
0x0c4150…0c42e4 Dummy {f00=0x003c, f01=0x0190, f02=» ? ? W ? r , ( A ? ? ? ~ _ X P ^ DCSRED n B , ( a _ > > > >W ? ? ? ? ? ? P B V DWTTAB , ( P B P X X P X W X , ( P X P D P ;A %W MOVSU , (
0x0c42e4…0c4478 Dummy {f00=0x003c, f01=0x415a, f02=» h , ( X P %? R L V 9HR , ( = ,R S -W - X M W 8 ] W > >W > h H D ! W T 'W 1W =W U [P mW }P PV PP P W P H D ! P P W R P W W P P WR
0x0c4478…0c460c Dummy {f00=0x003c, f01=0x0190, f02=» > @ IDENT DRDC07 REL 11.0 81-01-26 870105041100 & " DC07AD IH0701 IH0702 DC07ON F DC07AD p , ( ! c ( $
0x0c460c…0c47a0 Dummy {f00=0x003c, f01=0x0190, f02=» X @ T TENDIO & TDISP 8 , ( @ 9 A @ @ nP B H GETDNA x , ( @@ U @ B , ( s V B A ! P R A n , ( A t
0x0c47a0…0c4934 (1, 92) Dummy {f00=0x003c, f01=0x0190, f02=» @ Y & X R X "P , ( $ _> @ T A W ( * , ( + P (_ ) > @ A @ P A Z , ( R K ! A t A n A p @ P a A , ( k @ B P @ rT GETSNA , (
0x0c4934…0c4ac8 Dummy {f00=0x003c, f01=0x0190, f02=» A X & Y & Y , ( @ A A ! @ t , , ( B! % A r @ p" :C @ n# ;I @ r , ( C # X P C B P DWTTAB MOVSU , ( c$ X B
0x0c4ac8…0c4c5c Dummy {f00=0x003c, f01=0x0190, f02=» n , ( $ A D C @ T A * & W (P (_ ) 1 B B X > , ( X P y Y @ P l , ( 5 > , _ SETIME , ( Q X R P A Y W Y
0x0c4c5c…0c4df0 Dummy {f00=0x003c, f01=0x0190, f02=» X H p X , ( P ( y Y > > $ (P , ( _ ) 1_ $ (X( P _ P , ( 0 )_6 X R X T , ( @ % C 4 A , ( A t A p s @ t s
0x0c4df0…0c4f84 Dummy {f00=0x003c, f01=0x0190, f02=» @ ! p , ( @ @ @ t A p @ P , ( E A " A A @ , ( AP @ S Z : @ ! p , ( ! ! @ ! @ , ( = t @ T W ! ! @ ! @ t , ( ]
0x0c4f84…0c5118 Dummy {f00=0x003c, f01=0x0190, f02=» @ P C B X , ( ! A @ t 8 D 0 , ( ,P ,_ - 0 1 ( ,P (_ ) @ ` , ( P t A R p @ ! T 4 A , ( 1 @ d9D @ f ! h , ( Q 1 @ 1 1
0x0c5118…0c52ac Dummy {f00=0x003c, f01=0x0190, f02=» W @ ! W @ f:E , ( _ _ ! W @ T _$ @ , ( X, $ B B A A P , ( @ f:E @ d:A 1 ! @ d , ( ( / ! A d A b @ A @ ( , ( M T A x A A
0x0c52ac…0c5440 Dummy {f00=0x003c, f01=0x0190, f02=»" T :a p , ( )" " A h @ fT A f A fW A , ( :e" @ b @ lP A j @ @ bT A l @ , ( $ ! 4 @ lT A d 4 A 4 @ d p , ( + 4 A A A A A , ( K > _ A , ( k
0x0c5440…0c55d4 (1, 93) Dummy {f00=0x003d, f01=0x018e, f02=» H A W n H I Y n Y , ( > n H T W X 0 , ( I @ P > Q ` PFPOST , ( + ! 4 @ 1 @ T ! P , ( I A T ! A T f 4 A @ , ( g
0x0c55d4…0c5768 Dummy {f00=0x003d, f01=0x0190, f02=» , ( ! . L_ ! R X * & _( A r _2 . 4 DC07ON b SAVE8 v , ( ( L ^ @ n , ( I" X X ! , ( P / @ | P X R X
0x0c5768…0c58fc Dummy {f00=0x003d, f01=0x0190, f02=» > . v , ( B f . , ( I L A T ! T A r @ r 4 A r F , ( ! 4 @ rP A T ! A T ! v IH0701 , ( A A r 4 LJ T @ T A A , ( @ Q 1
0x0c58fc…0c5a90 Dummy {f00=0x003d, f01=0x0190, f02=» @ { P 4 0:H P B T , ( B @ P A Q A f . , ( BJ T P ! P f ^ R A 4 H D ! u 6 &
0x0c5a90…0c5c24 Dummy {f00=0x003d, f01=0x0190, f02=» , < T < R Pf < PP P R P H D ! !T 'W +P AP M Q 6 cP q < {P < T < W < B H D !o P < T ` $ KP [P q < { < < T < H D !u P < T < T N T W
0x0c5c24…0c5db8 Dummy {f00=0x003d, f01=0x0190, f02=» ` p ` P h r H D ! x ` ( ` # , ' J + J / 3 $ ET* . H D !oP IW& M Q $ _W g H s p d T $ P p P> R6 T. P z H D !? P +T C H M s p
0x0c5db8…0c5f4c Dummy {f00=0x003d, f01=0x417c, f02=»W P. T T 1 N ^ H D ! 5 R 9 V = Z A ^ E b i m q u y } Q W V W T H D !1 W P # - 0 ;T AP KT O UT iT oW }T T` P W f H D ! P PL W T" T R 6 9P ?R Q a n sP H D ! T
0x0c5f4c…0c60e0 Dummy {f00=0x003d, f01=0x0190, f02=» > @ IDENT DRDC15 REL 11.0 81-05-21 870105041100 . * DC15AD IH1501 IH1502 DC15ON DW1500 F DC15AD x DWTOR , ( - X P % Y X " T @ , ( K T A A
0x0c60e0…0c6274 (1, 94) Dummy {f00=0x003d, f01=0x0190, f02=»DNA , ( P ] ] V * & ] ] X < , ( B P j , ( ] P R X ] Y DWTST TENDIO DWTECB * & ! .
0x0c6274…0c6408 Dummy {f00=0x003d, f01=0x0190, f02=» ] l , ( u B ECBBA < , ( X . B P Y B Y L GETSNA | DWTCHP , ( V Y Y Y , ( T ] W H I Y Y , (
0x0c6408…0c659c Dummy {f00=0x003d, f01=0x0190, f02=» ECBCW1 , ( K X .:D :D :D C , ( i B Y X . B DWTOPT r , ( @ X " P , ( X . ECBEL * & X &T
0x0c659c…0c6730 Dummy {f00=0x003d, f01=0x0190, f02=» W @ W v DISEND , ( @W W W W W > > ( , ( 5 , L Q , L X R P X SETIME , ( U A " Y W Y , ( s W X Z X A " Y , ( _. Y
0x0c6730…0c68c4 Dummy {f00=0x003d, f01=0x0190, f02=» 0 % _ $ (P _ ) 1_@ , ( $ (XL P _ 0 )_Z & * , ( 1 (P _ ) 1 4 A A A A A Z , ( Q W , ( q > * ] , ( @ ] a 4 "
0x0c68c4…0c6a58 Dummy {f00=0x003d, f01=0x0190, f02=» * ! ! z , ( ] * ! ! ] " , ( % P ] * A A H , ( C ! ! T 0 x , ( c A * ! ! @ T , ( " ! _V ! ] P , (
0x0c6a58…0c6bec Dummy {f00=0x003d, f01=0x0190, f02=» h * & _ $ T _ A B ECBRL 6 , ( B $ A A A A A F , ( ; ! ! A _R ! T @ z v , ( [ W 8 @ T ! _ ! A ! , ( { _ ! @ P @ P ! A A , (
0x0c6bec…0c6d80 Dummy {f00=0x003d, f01=0x0190, f02=» * & R X T P C , ( X P C X 2 , ( + V ! *W X T X &P b , ( G W ! * ! 8 ! @ , ( @ e T @ P ! 8 ! @ T @ X , ( ( W @ @ @
0x0c6d80…0c6f14 (1, 95) Dummy {f00=0x003d, f01=0x0190, f02=» 8 A @ T _( _, , ( P -P L _ 4 A A " * & % E A A 4 @ P X R X R , ( A " T X &P , ( ] A A 4 @ @ T , ( { @ A @ A A ! T
0x0c6f14…0c70a8 Dummy {f00=0x003d, f01=0x0190, f02=» _" p , ( ! 0_p 1 A T 0W ;W A , ( A W W W A A ! @ @ , ( ; ! @ ! ! ! ! 4 p , ( [ ! ! @ @ A @ , ( { T < ! @ ( ! 0 " R , (
0x0c70a8…0c723c Dummy {f00=0x003d, f01=0x0190, f02=» A r , ( B 4B A J P 4 @ &T B 4B IH1501 B INTSAV V SAVE8 h , ( @ J 4 A ( * XJ T A T x , ( 3 P A A ] 4 ! IH1502 V , ( @@ S 8 A ( * X
0x0c723c…0c73d0 Dummy {f00=0x003d, f01=0x0190, f02=»1 P A 4B P z , ( > B X _ " * 9AY X 2 _ ! DC15ON J , ( 9AP ^ 2 _ " ! 1 4 * ^ , ( A @ T * & # 8 A ! T A 4 > DW1500
0x0c73d0…0c7564 Dummy {f00=0x003d, f01=0x0190, f02=» H D ! Z , < 1P AT E I ` MT Q ` U b Y a g 0 i k o H D ! s | w { | J h p l P& ` H D !{ V * & P * P( R^ 'P =P K O H D ! K ] _P c
0x0c7564…0c76f8 Dummy {f00=0x003d, f01=0x0190, f02=» ! v & T " J W, P W W W W !W %W )W H D ! ?Q QR SP W ^ ] n g p mW> uW6 ` T b ` P L H D ! p < P p < P P P 3P A Z E ^ I b M f Q j H D ! U n WW ~
0x0c76f8…0c788c Dummy {f00=0x003d, f01=0x0190, f02=» g k t o h w { T P | H D ! U l Pz P W& b P ( W T $ T r 8 H D ! ` ' t - v 1 x 5 f 9 h = Z E b K OT S W b [W c < eT i H D ! o u z y b P ` P 2 b d d P <
0x0c788c…0c7a20 Dummy {f00=0x003d, f01=0x0190, f02=» d WR ` z t x b h H D !U T T l P ( T" l f P 2 $ l b f T $ H D !> P P d # x + h / ^ 5 ` 7P* =R$ GT MP e b i ` o < w h yT p H D ! } z x x z h T8 P: PN PP P P4 x x P < H D
0x0c7a20…0c7bb4 (1, 96) Dummy {f00=0x003d, f01=0x412a, f02=» {T T H D ! ` R x v x U f T H D ! t P T )T$ - n /T 5P A E Q d kT o qP6 sR" H D !!' {W, P P W P P P P P P P T ' n 1T 9 n
0x0c7bb4…0c7d48 Dummy {f00=0x003d, f01=0x8190, f02=» > @ IDENT DRDC17 REL 11.0 81-01-26 870105041100 F B DC17ON IH1701 IH1702 IH1703 IH1704 IH1705 IH1706 IH1707 F . * IH1708 DW1701 DW1702 DW1703 DW1704 , ( B J B B J B J B V DWTST * & !
0x0c7d48…0c7edc Dummy {f00=0x003d, f01=0x8190, f02=» X r , ( { Y W W W W @W DISEND B ECBCW1 T * & W W W W B f , ( Y _ 4 B Y _ X , ( P X " T P 1 X P :H , ( C _J_R
0x0c7edc…0c8070 Dummy {f00=0x003d, f01=0x8190, f02=» , ( G $ 7 ! Y X R , ( cH Y ! Y Y 4 TDISP d , ( Y l A ! T X t , ( R ! ! X P W ! , ( P X " X Y ! Z , ( R
0x0c8070…0c8204 Dummy {f00=0x003d, f01=0x8190, f02=» , ( 3 ! ! ! _@ X P T X P , ( S ! Z W Y 4 , ( s Y ( Y * X X T d , ( ! ! Y X , ( P Y _ _$ ! ! T , ( pT !
0x0c8204…0c8398 Dummy {f00=0x003d, f01=0x8190, f02=» Y ! T Y ( , ( M X _ ! T ! _ X _ _" $ , ( m ! X Y Y T , ( Y ! Y ( ! DWTOR , ( " T ! Y X R X , ( !
0x0c8398…0c852c Dummy {f00=0x003d, f01=0x8190, f02=»_ ! X: Y R , ( 9B X X ! " " , ( U ! Z X P _ Y R , ( u X T W X P , ( X Y ! A ! "@ , ( X ! V Y 0 Y
0x0c852c…0c86c0 Dummy {f00=0x003d, f01=0x8190, f02=» r , ( -@ Y ! T ! Y X * & K R X ! W B * & e @ " X Y p , ( X , ( T Y , (
0x0c86c0…0c8854 (1, 97) Dummy {f00=0x003e, f01=0x8190, f02=» @ Y # P Y * & ' P P X P . , ( E X ! P P | X , ( _ .T _J | Y . ! W Y . , ( ! Y X P Y , ( ! W Y W
0x0c8854…0c89e8 Dummy {f00=0x003e, f01=0x8190, f02=»P Y R | , ( ! Z _ , ( @ ; ! P X X Y W Y L DWTECB | ECBBA , ( [ B _ @ X P , ( w Y Y X ! , (
0x0c89e8…0c8b7c Dummy {f00=0x003e, f01=0x8190, f02=» P H 1 _L ! ECBEL , ( @ ! T ! C Y 0 , ( 0 Y X T &T ` , ( + Y j ! , ( K &P P -P 7P P _" ! , ( k " ! ! 0 !
0x0c8b7c…0c8d10 Dummy {f00=0x003e, f01=0x8190, f02=»! T " Z ! _ ~ , ( ! Z _. , ( P r X 2P Y 2 Y 2 X N , ( ! 2X Y 2_v X 2 Y 2 X 2X. ~ , ( A Y 2 X 2X< Y 2 ! ! ! , ( a 2X ! ! !
0x0c8d10…0c8ea4 Dummy {f00=0x003e, f01=0x8190, f02=»! P Y n , ( Y , Y ( Y * l A , ( Y ,U Y ! X P ! > , ( H ! B B R n , ( 3 0 " X P T ! W " , ( S Q V V T ! ! TEBCDI
0x0c8ea4…0c9038 Dummy {f00=0x003e, f01=0x8190, f02=» p , ( Y ( Y * Y . Y Y , ( Y ! X P ! @ , ( @ ! l A " ! T p , ( - Y ! ! T ! , ( M pT X 0T W aT _ | , ( m
0x0c9038…0c91cc Dummy {f00=0x003e, f01=0x8190, f02=» .T X ( Y . Y (U Y^ ! , ( ! T l A 0 , ( @ R l A " X ` SETIME , ( + ! Z _V A ? , ( I Y > > V Y X , ( i
0x0c91cc…0c9360 Dummy {f00=0x003e, f01=0x8190, f02=» Y " > > V Y " , ( X V X "P y " Y " 0 , ( > X &P y & Y & > ! ` , ( $ # P W 4 ! : , ( C Y Y 0 Y 4 ! ! ! , ( a 4 ! !
0x0c9360…0c94f4 (1, 98) Dummy {f00=0x003e, f01=0x8190, f02=» ! _B k_ |_ V ! , ( ! V W ! =Q , ( D ! X # $ P 0 X 6 X P DC17ON $ SAVE8 , ( ! 8 $ @ P P X ! , ( = F X P ! ! _( X X. ! P
0x0c94f4…0c9688 Dummy {f00=0x003e, f01=0x8190, f02=» A A A v , ( Y 4 @ 2 8 A A * & P W Y A 4 @ F , ( 8 A A P W Y A t , ( * 4 ! f ! 8 A A A 4 , ( P ) ! f ! V Y 4 ! f ? , (
0x0c9688…0c981c Dummy {f00=0x003e, f01=0x8190, f02=» , ( R A A T A X P _2 A A A , ( T A X P ! _P A A 4 , ( A A ?a :a# P d @ @ @ 4 IH1701 " INTSAV , ( H $ ! ! 4 A " , (
0x0c981c…0c99b0 Dummy {f00=0x003e, f01=0x818e, f02=» h IH1702 , ( $ V A A " , ( 4 X 6 X 8 X : X < > L IH1707 | IH1708 IH1705 IH1706 IH1703 IH1704 ILLINT , (
0x0c99b0…0c9b44 Dummy {f00=0x003e, f01=0x8190, f02=» f , ( K # 0 , ( C : > h j 8 , ( c ` ` ` ` P > ` ` n r h , ( j f f f f f 4 f f j , ( V 6 6 6 : 6 6 6 8 @ < , (
0x0c9b44…0c9cd8 Dummy {f00=0x003e, f01=0x8190, f02=»1 4 , ( # 8 $ , ( C < c l DW1704 DW1703 DW1702 H D ! l 'P - 1P 5P 9Pz CT> I O U [ B
0x0c9cd8…0c9e6c Dummy {f00=0x003e, f01=0x8190, f02=» O aR m u f y T$ R l H D ! 0 P W P ( P T P 5 d ; ? ( H D ! GP KT QP U z Y ( a cW T : P t H D !;v T T* f f : T f # %T: ) f 3 0 A CT G f S UT
0x0c9e6c…0ca000 Dummy {f00=0x003e, f01=0x8190, f02=» z X H D ! W ( : T Pn Tf T` TV f f H D !Z !R 7 9T, = f A f MR Y F [WJ a : i T f T W T T ` H D ! . P0 T" P P 'P -P 9P = z MP* QP U aT e q f u wW H D ! f :
0x0ca000…0ca194 (1, 99) Dummy {f00=0x003e, f01=0x8190, f02=» !m uP W W" P f H D ! T f : !T )T G MP SP YP _P cP i m q L H D ! w f { f Q R T P T f ( H D ! : P G U Y a k
0x0ca194…0ca328 Dummy {f00=0x003e, f01=0x8190, f02=» P P : P | H D ! ` # ' )T - f ; A CT G f K f QT YTn ]WB cT mT 8 H D ! qW. wTb Ub : T U : T R f % f H D ! + / ( 7 = H G V e kP } P
0x0ca328…0ca4bc Dummy {f00=0x003e, f01=0xc146, f02=» / 1P0 5 GP K f h H D ! O [ _ P W P W 3V M ^ T P$ T P $ H D ! P - 4 1 =T GPP MP eT. oP( P P 4 p H D ! 4 " . 4 : @ ! # x % ~ ' ) + - / $
0x0ca4bc…0ca650 Dummy {f00=0x003e, f01=0x0190, f02=» > @ IDENT DRND01 REL 11.0 81-05-27 870105041100 H D ! INPUT STABLK OUTPUT ENDBLK ECHRTN ECHO ECHEND GETCHR ABORT F H D ! LENDER LENDIS LDISP NDREPO NDRETO NDREP NDRET NDSAV8 NDGET8 F B NDREWS NDREDW NDGEDN NDGEDW INTLT1
0x0ca650…0ca7e4 Dummy {f00=0x003e, f01=0x0190, f02=»SL8 INTAS1 INTAS2 INTAS3 INTAS4 r F B INTAS5 INTAS6 INTAS7 INTAS8 INTPL1 INTPL2 INTPL3 INTPL4 , F B INTPR1 INTPR2 INTPR3 INTPR4 INTVU1 INTVU2 INTVU3 INTVU4 v & " INTVU5 INTVU6 INTVU7 INTVU8 INTLT1 INTLT2
0x0ca7e4…0ca978 Dummy {f00=0x003e, f01=0x0190, f02=»SL1 INTSL2 INTSL3 " INTSL4 6 INTSL5 J INTSL6 ^ INTSL7 r INTSL8 INTAS1 INTAS2 INTAS3 INTAS4 INTAS5 INTAS6
0x0ca978…0cab0c Dummy {f00=0x003e, f01=0x018e, f02=»PR1 INTPR2 INTPR3 " INTPR4 6 INTVU1 J INTVU2 ^ INTVU3 r INTVU4 INTVU5 INTVU6 INTVU7 INTVU8 INPUT LTCHRI
0x0cab0c…0caca0 Dummy {f00=0x003e, f01=0x0190, f02=» , ( H X ! LTENBL 4 RTENBL F ECHEND $ X ECHO . l , ( D X ! W ~ DWTST DWTECH DWTWAT DWTSB2 , ( 1 $ X
0x0caca0…0cae34 (1, 100) Dummy {f00=0x003e, f01=0x0190, f02=» X L X W B ECBBA ECBEL . , ( a U B (" W C > ABORT n LENDER LENDIS TENDIO LDISP TDISP * & { (@ > Y W "
0x0cae34…0cafc8 Dummy {f00=0x003e, f01=0x0190, f02=» DWTA3 DWTA4 DWTA5 * DWTA7 : DWTA8 J * & H > Y & Y ( Y * Y , Z NDGET8 , ( $ ._ X & X ( X * X , NDREWS NDREDW SAVE8 D
0x0cafc8…0cb15c Dummy {f00=0x003e, f01=0x40b4, f02=» 6 X T z NDGEDN NDGEDW . H 8 $ B < 8 P ' -W 1 =Pf ]WF eU sW W& W W T ^ @ ( X * X , NDREWS NDREDW SAVE8 D
0x0cb15c…0cb2f0 Dummy {f00=0x003e, f01=0x0190, f02=» > @ IDENT DRPL01 REL 11.0 81-05-27 870105041100 F B PLCHRI PLSTBL PLCHRO PLENBL PLDISP PRCHRI PRSTBL PRCHRO F F B PRENBL PRDISP PLTEST CWTPLC GETDWT IHPL01 IHPL02 IHPL03 4 0 IHPL04 IHPR01 IHPR02 IHPR03 IHPR04 PLO
0x0cb2f0…0cb484 Dummy {f00=0x003e, f01=0x0190, f02=» ~ G C K P Z j * & { SO LO GR 0 B , ( c @ A p PLCHRI PRCHRI , ( DWTLD1
0x0cb484…0cb618 Dummy {f00=0x003e, f01=0x0190, f02=» n PLSTBL PRSTBL " , ( P W Y (@ 4(@ X 6 NDREPO f , ( T X T x * & P X ! T R Y Y , ( ' X Y T Q
0x0cb618…0cb7ac Dummy {f00=0x003e, f01=0x0190, f02=»O PRCHRO , ( } (@ ? X P NDRET P PLENBL ` PRENBL t , ( BT >(@ 4 Y > , ( (@ X T , ( ! Y T (@
0x0cb7ac…0cb940 Dummy {f00=0x003e, f01=0x0190, f02=»T T X x , ( C $ P W P # P Y DWTLD2 F , ( _ U X Y Y X PLTEST ~ IHPL01 ~ SAVE8 IHPL02 IHPL03 IHPL04 IHPR01
0x0cb940…0cbad4 (1, 101) Dummy {f00=0x003f, f01=0x0190, f02=» TDISP , ( 2 @P P P U , ( " T U T H U T D > , ( &? U " z P " n , ( T H U T L T E $ , ( R M c L f P L d U " , ( +
0x0cbad4…0cbc68 Dummy {f00=0x003f, f01=0x018e, f02=» Y p FREBLK , ( : " NDREDW R , ( B Y T d , ( T R T D&? P '? L U " , ( X P " W X$ , ( U " X
0x0cbc68…0cbdfc Dummy {f00=0x003f, f01=0x0190, f02=» , ( [H Y X " Y (@ , ( u@ " U B U @ @ U 8 , ( 5 Q U ; U < U > X " h * & @P T T X " P Y , ( # b , l U PLON
0x0cbdfc…0cbf90 Dummy {f00=0x003f, f01=0x018e, f02=» & (@ U U U U * & A <P _ <P & , ( ] _ T ^ T , ( { h ! R : r ) NDGEDN , ( ) t ( R X Y , ( Y
0x0cbf90…0cc124 Dummy {f00=0x003f, f01=0x018e, f02=» f , ( T U T U , ( ) T U 6:A U T T ( U B U 8 , ( I 4 U @ U > U T T T h , ( i U U T V U U ! R , ( t ( Z ; M r U 4 , ( U < U
0x0cc124…0cc2b8 Dummy {f00=0x003f, f01=0x0190, f02=» , ( @ (@ T P P R X DWTADR 4 INTADR F * & # X . D 0 X T Y X PFPOST , ( U (@ @ 2 @ , ( 3 $ T T P T T U , ( Q T
0x0cc2b8…0cc44c Dummy {f00=0x003f, f01=0x0190, f02=» r t ( , R X , ( H Y X Y " P # ( , ( b , X X , ( l_R U ; r , ( # - , - ! T t , , ( A "(@
0x0cc44c…0cc5e0 Dummy {f00=0x003f, f01=0x0190, f02=» U > U 4 x , ( @ T T T T U > , ( > > " P - H , ( > > x , ( B @ 2 @ $ T T U GETDWT R , ( 5 U ? T T
0x0cc5e0…0cc774 (1, 102) Dummy {f00=0x003f, f01=0x0190, f02=»W X p , ( :a9 " > ? P ! X " * & @ >W P ! ! Y > X @ , ( @ :d" ! W X :d" ! n * & ! Y > W Q X , ( "? U 4 X "? Q > ? , ( P ?
0x0cc774…0cc908 Dummy {f00=0x003f, f01=0x0190, f02=» w > > _ Q Q " Q , ( > ? P > > P P , , ( R Q (" W P P V , ( Q % W > T NQ T , ( R L $ T L $ T " P W , ( # T W $ P W
0x0cc908…0cca9c Dummy {f00=0x003f, f01=0x0190, f02=» < % > | , ( P ? 0 ] > > ? 1 ] , ( > > ? W ? ? ? ? L , ( Q ) _ ) > > > | > > H D ! & e 0 k 8 q @ w T } T $
0x0cca9c…0ccc30 Dummy {f00=0x003f, f01=0x0190, f02=» GT( KW QQ, W v H D !e YT g l k oT P T j J T T T P H D !u W - J /T6 3 5T4 9 ?T" IP MW SP WP a q W d H D ! P PV P > P > R P > + > / 7 H D ! ? b GT
0x0ccc30…0ccdc4 Dummy {f00=0x003f, f01=0x0190, f02=» H D !S P4 Z T. T, P 8 x T R & CP G x H D !y3 UP Y x m { R> R R P W T T ' [ P H D !F ]Tz a eTr mU RL T T j P< R T H D ! # | ) @ ? EP KT S
0x0ccdc4…0ccf58 Dummy {f00=0x003f, f01=0x40fa, f02=» T T P l x )T 3 > ET W W W H D ! @ W P& %T 7T WT YW } Q R$ W V W Q< T( < H D ! T P W T W %P )W /P I x MT W x kW wW }P P W Q @ EP KT S
0x0ccf58…0cd0ec Dummy {f00=0x003f, f01=0x0190, f02=» > @ IDENT DRDC17 REL 11.0 81-05-22 870105041100 F B DC17ON IH1701 IH1702 IH1703 IH1704 IH1705 IH1706 IH1707 F . * IH1708 DW1701 DW1702 DW1703 DW1704 , ( B J B B J B J B V DWTST * & !
0x0cd0ec…0cd280 Dummy {f00=0x003f, f01=0x018e, f02=» X r , ( { Y W W W W @W DISEND B ECBCW1 T * & W W W W B f , ( Y _ 4 B Y _ X , ( P X " T P 1 X P :H , ( C _J_R
0x0cd280…0cd414 (1, 103) Dummy {f00=0x003f, f01=0x0190, f02=» f , ( I X P ! 7 ! Y , ( gD X R Y ! Y 8 TDISP h , ( ( Y Y l A x , ( ! T X R ! ! X , ( P W ! P X " X Y , (
0x0cd414…0cd5a8 Dummy {f00=0x003f, f01=0x0190, f02=» h , ( @ 3 Y X ! ( A ! ! ! , ( Q _> X ! X P T X P 8 , ( o ! Z W Y h , ( Y ( Y * X X T , ( ! ! Y X , ( P Y _
0x0cd5a8…0cd73c Dummy {f00=0x003f, f01=0x0190, f02=»Yr_ X X~ 7 ^ ! T X , ( K ! Y ! T Y ( ( , ( i Y _ ! T ! _ X _ _" X , ( Y Y ( ! , ( ! T ! Y X DWTOR , ( R X
0x0cd73c…0cd8d0 Dummy {f00=0x003f, f01=0x0190, f02=» 2 Y X T , ( = W X P X ( , ( [ Y ! A ! "@X ! X * & D { ` Y : Y ! X , ( ! T Y X P ! , ( 7T ! T ! T
0x0cd8d0…0cda64 Dummy {f00=0x003f, f01=0x0190, f02=» W v * & ) X R X ! , ( C @ ! / W Y ! B , ( _ T Y ! r , ( } T X ! T Y A ! * & @ ! T X ! , (
0x0cda64…0cdbf8 Dummy {f00=0x003f, f01=0x018e, f02=» P X P ! , ( '@ X ! P P | X .T " 0 , ( C _J | Y . ! W Y . ! " ` , ( c Y X P Y ! " , ( W Y Y Y " , ( X Y
0x0cdbf8…0cdd8c Dummy {f00=0x003f, f01=0x0190, f02=» ECBBA # , ( X Y W Y # , ( @ B _t @ X P Y # D , ( ; Y X ! W 6 # t , ( W W ! ! . ! 2X # ECBRL # , ( w @ ! _0 ! B YR X
0x0cdd8c…0cdf20 Dummy {f00=0x003f, f01=0x0190, f02=» , ( X T &T Y $ , ( ( $ Y 6 ! $ 4 , ( &P P -P 7P P _$ ! $ d , ( - ! ! 2 7 ! -T W $ , ( M D Y ! = Y . X R X $ , ( @ i dW X
0x0cdf20…0ce0b4 (1, 104) Dummy {f00=0x003f, f01=0x0190, f02=» Y 2 X 2X Y 2 _ X $ , ( " 2 Y 2 : X 2X2 Y 2 X 2 % $ , ( X@ Y 2 ! ! : ! 2X ! % T , ( ! : ! ! : X 2X| Y % , ( * A 2 $ 6 % , ( _ P T X ! P Y
0x0ce0b4…0ce248 Dummy {f00=0x003f, f01=0x0190, f02=» ! % t , ( B B R 0 " X P & , ( T ! W " Q V & D , ( V T ! ! U 0 " *@ ! & t TEBCDI & , ( 3 ! _X H ! ! _f X P & , ( Q ! & X ! P ! !
0x0ce248…0ce3dc Dummy {f00=0x003f, f01=0x018e, f02=» ! Y ( & v , ( T l A Y ! T ' , ( Y ! ! T ! ' F , ( pT X 0T W aT _ ' v , ( - |T W kT Y . Y *U Y ' , ( ( M l A ! Y ' , (
0x0ce3dc…0ce570 Dummy {f00=0x003f, f01=0x0190, f02=» ' f SETIME ( , ( A ? Y > > ( , ( V Y X P y Y ( J , ( > A ? Y > ( z , ( ' > V Y X P y Y ( , ( G > A W A A ? ( ,
0x0ce570…0ce704 Dummy {f00=0x003f, f01=0x0190, f02=» ! ( j , ( P W 4 ! 8 ) , ( Y Y 0 Y 4 ! ) : , ( ! ! 4 ! ! V 2 ) j , ( # L ! 2 ! 2 ! 2 ! 4 ! 7 ) , ( C ! ! ! ! 4 ! - ) , ( c _" !
0x0ce704…0ce898 Dummy {f00=0x003f, f01=0x0190, f02=»7ON ) SAVE8 * , ( 0 X 6 X 8 $ @ * , ( P P X ! F ! X P ! * N , ( 8 A A A _6 X X< ! ! * ~ PFPOST * , ( ! _J @ 8 A A * * & 9 A A A P
0x0ce898…0cea2c Dummy {f00=0x003f, f01=0x0190, f02=» W Y A 4 @ * ~ , ( 8 A A P W Y + , ( E A 4 ! ( ! T 8 A A + L , ( J A 4 ! ( ! ~ ! ( ? + | , ( Y & > Y > X > Y & ! (" + , ( % T Y W Y 4 +
0x0cea2c…0cebc0 Dummy {f00=0x003f, f01=0x0190, f02=» + j , ( Z X P P , , ( ( Y X ! 4 , : , ( Y 6 Y 8 Y : Y < > 8 A , j , ( A T A X P _2 A A A , , ( ! T A X P ! _P A A , , ( 5 A A
0x0cebc0…0ced54 (1, 105) Dummy {f00=0x0040, f01=0x0190, f02=» , l , ( 8 A A T A X P 4 A - , ( A A T A X P V Y - < , ( J X P ! P ` A - l IH1702 - , ( A " X - IH1707 - IH1708 -
0x0ced54…0ceee8 Dummy {f00=0x0040, f01=0x0190, f02=» - , ( " $ . , ( 7 . 8 , ( W . h , ( - w : ~ j . , ( D H | . , ( | | | l
0x0ceee8…0cf07c Dummy {f00=0x0040, f01=0x0190, f02=» T J N F 8 8 . , ( 7 ( $ / ( , ( W / X DW1701 / , ( w / , ( /
0x0cf07c…0cf210 Dummy {f00=0x0040, f01=0x0190, f02=» [ ^ a 0 g X w / ` H D ! W* W& W" W W W W W W P T P P R W 0 H D ! 7 9W = A CW G MP~ Q Y kR w 8 T$ R 0 h H D ! b < P W P R T 8 P T T> #P 0 H D !q 1T"
0x0cf210…0cf3a4 Dummy {f00=0x0040, f01=0x0190, f02=» 0 L H D !o _T c o qT u ( y > TB ( R$ 1 H D ! ~ z < N ' > 5T ?W KP O a i q T 1 T H D ! r Px Tp Tj T` 8 ( R P T, 1 H D ! ( R & Wl %
0x0cf3a4…0cf538 Dummy {f00=0x0040, f01=0x0190, f02=» WW _ c l q wP ~ W > 8 T6 ( 1 H D ! T l T d > P W ' 8 /P KW S W 2 @ H D ! w [ L ]W" a 0 e f k y } 0 0 P 0 f T ( 8 2 H D !0| T T > P P P !P %P + /
0x0cf538…0cf6cc Dummy {f00=0x0040, f01=0x0190, f02=» U P Rb P TF 2 p H D ! W> Q V V T 0 # 'U 3 0 7 A 0 E MP S ]P c 0 3 , H D ! g q { B P ` > T 3 x H D !` T ( T Tn WB %T /T 3W. 9Tb CUb ] < m T U
0x0cf6cc…0cf860 Dummy {f00=0x0040, f01=0x0190, f02=» P W ( 3 H D ! ` ( V ' - 3 9 E K Q U T sP 4 H D ! ( ~ V Q & d " PB " P ~ ~ ( 4 d H D ! ! GP P W P W %T 1W IR T P P& P T 4 H D ! P$ T
0x0cf860…0cf9f4 (1, 106) Dummy {f00=0x0040, f01=0x4052, f02=» 4 0 y { " } > D J f g 5 5 <@ 5 N T sP 4 H D ! ( ~ V Q & d " PB " P ~ ~ ( 4 d H D ! ! GP P W P W %T 1W IR T P P& P T 4 H D ! P$ T
0x0cf9f4…0cfb88 Dummy {f00=0x0040, f01=0x0190, f02=» > @ IDENT X25:L3 REL 11.0 81-05-18 870105041100 REQTIM X25:ON DRX25 F REQTIM X f * & z / 2 O ` , ( @ 2 #X 2
0x0cfb88…0cfd1c Dummy {f00=0x0040, f01=0x0190, f02=» , ( @ N $ Q P P DWTST 8 , ( Y Y Y X Y Q H , ( ( 2 A % Z % > Y x DWTECB ECBCW1 , ( T X L Y C TENDIO
0x0cfd1c…0cfeb0 Dummy {f00=0x0040, f01=0x0190, f02=» m P P , ( X , , ( 9H$ C " ( ' , ( P )!$ ! P )' P ECBEL ECBBA , ( D ) $ C ( c
0x0cfeb0…0d0044 Dummy {f00=0x0040, f01=0x0190, f02=» Y l , ( g " X $? P V R , ( L Y W < , ( P Y Y W V " l , ( W ! T Y P P ! " , ( X ( T ) * Y "W H DWTOPT
0x0d0044…0d01d8 Dummy {f00=0x0040, f01=0x0190, f02=» n , ( a XV Y _f ! T R ECBCW2 > , ( @# P _ P _f B Y P , ( _ W {Y ! X2$ P T , ( X " # P ! P B Y B Y , ( Y Y ( Y " Y Y " _
0x0d01d8…0d036c Dummy {f00=0x0040, f01=0x0190, f02=» Y X p , ( D [ B T P j , ( y Y | _< B Y _P @ FNDDNT p , ( @ B ; LP (@ V , ( N R : : ; (P _ ) , ( : : W (P X ) Y
0x0d036c…0d0500 Dummy {f00=0x0040, f01=0x018e, f02=» X R r , ( Q X P T P W " , ( q .P W T X T . B , ( P <T / ( / W M r , ( P _ L , ( W , (
0x0d0500…0d0694 (1, 107) Dummy {f00=0x0040, f01=0x0190, f02=» , ( Q X X W _ , ( q R P X R Y P X _ 4 GETDST d * & 4 <%V $ LP v , ( (@ Z* X P : Y X I , ( B Y W " P # 4!? , (
0x0d0694…0d0828 Dummy {f00=0x0040, f01=0x0190, f02=» , ( C _( Y _: T " B , ( c _ > Y &W 4 , ( Y " Y $ 0 P Y " d , ( % R P Y " # P , ( " T " P V , ( W , B
0x0d0828…0d09bc Dummy {f00=0x0040, f01=0x018e, f02=» ' I I % , ( ( c = R T A A $ * & X R X P Y T * & (@ @ @ : ; X L DWTTAB MOVSU , ( M X (@ : : , ( UU
0x0d09bc…0d0b50 Dummy {f00=0x0040, f01=0x0190, f02=» , ( P 1 A $ : , ( Q _$ R 0 R $ W 4 , ( q W W W W W W W W d , ( W W " ^: R # ECBFC * & S S S S @ M " M , (
0x0d0b50…0d0ce4 Dummy {f00=0x0040, f01=0x0190, f02=» S W r , ( % P X. JR _8 S , ( E ( R C " C R B , ( a C ( Y, r , ( I I I I , ( S X S , (
0x0d0ce4…0d0e78 Dummy {f00=0x0040, f01=0x0190, f02=» S W X T X P , ( 5 Y X R P X W 0 , ( S XV |_ X " ( : ` , ( s L ) S B 0 0 , ( @ Y B P | X ! , ( T X RS
0x0d0e78…0d100c Dummy {f00=0x0040, f01=0x0190, f02=» Y * Y "_4 , ( + W 6_@ V ! P W _L W , ( K T _V X W _r P , ( k W tW W W W W , ( V W * & % @ L P _ C
0x0d100c…0d11a0 Dummy {f00=0x0040, f01=0x018e, f02=» @ V , ( ! T V V $ W V X ! , ( A I V 9A# V W ;E V P , ( a % W I F F C MOVUS , ( } X ( ( S W , ( @ C @
0x0d11a0…0d1334 (1, 108) Dummy {f00=0x0040, f01=0x0190, f02=» * & ((@ P W ) ) B * & C B f 2 , ( ! I I W W f ` , ( = I # I C W V , ( [ @ W ;E I _" C I T , ( @ y W H _: A 0
0x0d1334…0d14c8 Dummy {f00=0x0040, f01=0x0190, f02=»$ V P X R H , ( # P X ! T T W T P W , ( T T W |_^ X " ! P FREBLK , ( @ 1 X Y "_ A 0 L ,(@ , ( O " T S R P , ( o W W V P
0x0d14c8…0d165c Dummy {f00=0x0040, f01=0x0190, f02=» R # P S S , ( $ B B " , ( @ T S R ( _$ C R , ( % ( R $ H P $ , ( C P P _ $ , ( c H U P ^
0x0d165c…0d17f0 Dummy {f00=0x0040, f01=0x018e, f02=» W V r , ( I I I I I , ( (P I I B , ( # I I X H r , ( C ! P V P _ V ! W H , ( c 9e! W P W W I , (
0x0d17f0…0d1984 Dummy {f00=0x0040, f01=0x0190, f02=» , ( V T V V ! W R (P , ( @ V W 9E) I I 4 , ( # W V d , ( C !@P W W W @ , ( c W H 9e! W P W W , ( W
0x0d1984…0d1b18 Dummy {f00=0x0040, f01=0x0190, f02=» W I , ( W P V P Y W $ , ( # I W (P T , ( @ C : I I W , ( c V W W W P , ( W P _ W _4 W P W
0x0d1b18…0d1cac Dummy {f00=0x0040, f01=0x0190, f02=» W W t , ( R T , ( # (P ( I I D , ( C W R S R t , ( c P S W P W t_~ , ( V ! I % T _8 , (
0x0d1cac…0d1e40 Dummy {f00=0x0040, f01=0x0190, f02=» , ( (P I I I , ( # I X R 4 , ( C $ W V P Y V d , ( c W W V I , ( I @ I I ^ GETBLK
0x0d1e40…0d1fd4 (1, 109) Dummy {f00=0x0041, f01=0x0190, f02=» d^ W : x , ( : A $ R W W R W W , ( (! 9d (# 9a (!?P ( H , ( = P U _ (# ;AP L W V x , ( ] W W V W (# ;cP L W , ( } V W W V W @ $ : , (
0x0d1fd4…0d2168 Dummy {f00=0x0041, f01=0x0190, f02=» h , ( $ ! ; V ! :V W : W , ( : A A A $ P 8 , ( ; D E W % I @ @ @ : h , ( [ A A I $$ % $P I % , ( { % @ @ : A $ H % I # , ( @ :
0x0d2168…0d22fc Dummy {f00=0x0041, f01=0x0190, f02=» A P (P ) H L Q " @ ,(@ @ @ @ : ( , ( - @ @ L N P N , ( M P S R P W ~ , ( m R V $T $P , ( P P $ $P P P
0x0d22fc…0d2490 Dummy {f00=0x0041, f01=0x0190, f02=» _ n , ( : W W W W W W W , ( - W : N : : : > , ( M W W : ; @ P ( A : : n m ; @ ) A : : H D ! 1 O P S H P T$ - c kP: oP sP y t
0x0d2490…0d2624 Dummy {f00=0x0041, f01=0x018e, f02=»P` u ^ {R Z H D ! ! P W W@ T< ( P< P8 T W ( H D ! , R P %R )P2 ;P KP g ; m w {T P P | W b H D ! P TL PB P> PF PD P& 'T$ 1P 5 9 n E kT H D ! @ oP V
0x0d2624…0d27b8 Dummy {f00=0x0041, f01=0x0190, f02=» H D ! ` j r l n | n W Z , P P$ T& %P )P H D ! - 1P 7 $ =T A | OP ] 8 e | o X uP {R P V P PT P P H D ! D T W T Z / | =T C n U n [T g W R P | P T8 H D ! 9 P T P TN % - |
0x0d27b8…0d294c Dummy {f00=0x0041, f01=0x0190, f02=» X P. P !W )P 1 =R Y X q $ : n H D ! z T P P P W -T 3P( =R AP I 8 k p y 2 n P , T. < H D !N R8 8 P W ! ;P ? MT Y D c qW, W Z P H D ! j , 2 P T 8
0x0d294c…0d2ae0 Dummy {f00=0x0041, f01=0x0190, f02=» P2 T T" W" T P W T l H D ! T [T gPB m 8 oW: {P. T W , 2 P6 P0 n P ( H D ! 8 , R 8 ! X =P EP KP O n Y c 4 k V m u wP n t H D ! N b n T& T Rl
0x0d2ae0…0d2c74 (1, 110) Dummy {f00=0x0041, f01=0x0190, f02=» UW Y sP X H D ! > n , P n TN , W" P n , PR H D ![ P + -W 1 n 9 AP I ] a , e n m P P Pj P8 Tb ` H D ! P , T n , n T0 ! n ' 8 /P H D ! 7 K $ MW
0x0d2c74…0d2e08 Dummy {f00=0x0041, f01=0x018a, f02=» ! G ?P EUH QP [V gV sP }V V P T P T n , n H D !c T n , V W W ! $ ' * + ( / & 7P EW O * S ( W & ] * L H D ! a ( sP * ( * * * ( & * ( & * ( H D ! & P P * ( # & 3 7
0x0d2e08…0d2f9c Dummy {f00=0x0041, f01=0x4008, f02=»@ ! EUH QP [V gV sP }V V P T P T n , n H D !c T n , V W W ! $ ' * + ( / & 7P EW O * S ( W & ] * L H D ! a ( sP * ( * * * ( & * ( & * ( H D ! & P P * ( # & 3 7
0x0d2f9c…0d3130 Dummy {f00=0x0041, f01=0x0190, f02=» J F IDENT DRTN01 REL 11.0 81-03-18 870105041100 TNADY R PC:DIXN b TNADY t , ( @ ( !"+*-,18 , ( #$*+ , ( ? %&,-V qs " !
0x0d3130…0d32c4 Dummy {f00=0x0041, f01=0x0190, f02=» y H W Y Y DWTOR * , ( X ' _D X 8 ! ! : , ( BT 5 ! ! Q Y & Y j , ( @ 0 ! ! 0 0 Y ! ! P , ( Q ! _ X " P Y 6 Y * &
0x0d32c4…0d3458 Dummy {f00=0x0041, f01=0x0190, f02=» P 1 Y x , ( E Z 7 ! ! Y , ( a@ Y _N X " P ! H STABLK x OUTPUT * & } H ! 1 2 Y Y ! ECBBA , ( H X 0 Y ! ,
0x0d3458…0d35ec Dummy {f00=0x0041, f01=0x0190, f02=»W j , ( T Y Y _ _ 0 Y , ( " Y P x ! Y Y : , ( 1 $ 0 ! x ! Y Y P j , ( K ^ _0 Y , ( g 9 ! ! V ! _ _ , ( (# P
0x0d35ec…0d3780 Dummy {f00=0x0041, f01=0x0190, f02=»SP , ( ( * & d X SETIME : , ( T n Y 1 > Y L , ( D X ! Y Y Y Y | , ( )A Y ,P Y Y 4 3 , ( C "P 0P X ! T Y W Y
0x0d3780…0d3914 (1, 111) Dummy {f00=0x0041, f01=0x0190, f02=» j , ( @ $ ^ ! Y X T , ( D Y W Y ! 0 X # : * & :d# 0 0 ! F ! N ! j ENDBLK , ( V Y ! b 4 Y Y , ( ! t 0 Y !
0x0d3914…0d3aa8 Dummy {f00=0x0041, f01=0x0190, f02=»I Y ! Y ! ! P , ( wH X Y ;h Y Y 4 * , ( @ X " 0;h 0;D X Y Z * & @ X P X. _4 , ( | Y X P , ( A X =P X ^ !
0x0d3aa8…0d3c3c Dummy {f00=0x0041, f01=0x0190, f02=» _ B B v , ( G ! Y R 4 <" 0R Q e ^ 4 F H D ! T F h ` | ! # % 5 W _P {W d H D ! H T H Q H P Qx P /P ;P H D ! K Q
0x0d3c3c…0d3dd0 Dummy {f00=0x0041, f01=0x40ca, f02=» H D ! H W T 1P CPP IPL QT WW _RF cQB kP mR sR {W H D ! T T W MT uP P P P $ W, T$ T U $ )V K T P QR _R cQ p @ Q H P Qx P /P ;P H D ! K Q
0x0d3dd0…0d3f64 Dummy {f00=0x0041, f01=0x0190, f02=» J F IDENT DEBUGM REL 11.0 81-07-26 870105041100 dBUG R |BUG ` , ( A :U A A p , ( ! @ ~ A A ~ @ A A , ( A @ A A @ A A " a
0x0d3f64…0d40f8 Dummy {f00=0x0041, f01=0x0190, f02=» h , ( , ( $ ( , 0 4 8 , ( 8 < h , ( 9 , ( Y , ( y
0x0d40f8…0d428c Dummy {f00=0x0041, f01=0x0190, f02=» T :a R T <a Z _ = , ( :A , >a @ ( , ( " A P UW B X , ( 9 @ = / M Q , ( Y R S T Y G P H L , ( y V I U _v
0x0d428c…0d4420 Dummy {f00=0x0041, f01=0x0190, f02=» P A A x , ( . , + - ; # , ( $ : X " H W X " H TTB:AP x ACBRELA , ( * 9 H H A W W L , ( W@ H A A _p @ P A 1+ , ( !T u X A
0x0d4420…0d45b4 (1, 112) Dummy {f00=0x00bc, f01=0x0190, f02=»NDTID , ( ! ? > " @ , ( D @ T " ( ^ @ P > , ( R A A " @ T @ n , ( 3 W @ A W W 0 , ( $ S _, W W , ( s
0x0d45b4…0d4748 Dummy {f00=0x00bc, f01=0x0190, f02=» _` A , ( @ T @ W @ T @ W @ @ . , ( >a @ A ^ , ( 3 A , ( S ;a ]@ 1 _L W @ , ( s $ 0
0x0d4748…0d48dc Dummy {f00=0x00bc, f01=0x0190, f02=» @ Q A @ ~ , ( BT A " T @ W @ A , ( ! A P @ _2 N , ( 3 T 0 P P ~ , ( S _ @ @ , ( P s @ @ P
0x0d48dc…0d4a70 Dummy {f00=0x00bc, f01=0x0190, f02=» ) " A n , ( U H A @ , ( * @ @ T A A > , ( 3 P @ P n , ( @ S @ ! T A @ A # , ( E s A ~ RE XRN Y , ( P ME
0x0d4a70…0d4c04 Dummy {f00=0x00bc, f01=0x0190, f02=» T P #~ > V . >A , ( P Y X W ^ ? ? . , ( @ 3 @ ' P Y Y W Y Y @ ^ PRUNN ACBLACA , ( S @" P @ = ] , ( m ] ] W A A A W
0x0d4c04…0d4d98 Dummy {f00=0x00bc, f01=0x0190, f02=» A p , ( A > > > > , ( > > > > ^ _ ^ _ ? ? ? ? @ , ( @ - ? A ^ @ ? ? p , ( @ M > > > > > > > , ( D m @ > , ( (
0x0d4d98…0d4f2c Dummy {f00=0x00bc, f01=0x0190, f02=» # H A " A 0 , ( R 9U AR FQ 0:D A 0 , ( - _* A " A A ` , ( M T A A " , ( m R _U . " , ( A : A
0x0d4f2c…0d50c0 Dummy {f00=0x00bc, f01=0x0190, f02=» " A A P R :UT , ( @ @ W 9D) 9 I 9 ^ @ W TTB:MT P $ - ? H > " b , ( ! R :W W , ( W W ?W /W : A W ! A A , ( P _ @ _
0x0d50c0…0d5254 (1, 113) Dummy {f00=0x00bd, f01=0x0190, f02=» A A @ z , ( B A A @ > @ _ , ( " a z | I R M A P T @ T J , ( D @ P A W ` @ @ P @ z , ( T A P A < V A @ H D ! )
0x0d5254…0d53e8 Dummy {f00=0x00bd, f01=0x0190, f02=» ? F C I M Q , U Y j ] d a l e . i : m q u H D ! y } 4 p p j T P B H D ! 0 d d | H N # /W* 3 GW K MW Q g H D !j| mP P W P W
0x0d53e8…0d557c Dummy {f00=0x00bd, f01=0x0190, f02=»V W r H D ! > T j W T W # ' + 3 7 > ; . H D ! ? I j M h ] g oW W P z H D !6n P P P T W < P # b + 5 b ;
0x0d557c…0d5710 Dummy {f00=0x00bd, f01=0x018e, f02=»W T V W~ P ^ H D ! P P P W TR PJ V P %W ;P EW UP$ yW } H D ! W P T T V 3 : K r f H D ! Q P < R$ U R Q + < / 9 < E f I h H D ! M Q
0x0d5710…0d58a4 Dummy {f00=0x00bd, f01=0x40c6, f02=» J H D ! R T W( @ ) @ +W R W" W W W W W H D !P W PL T T P T$ 5 < oR> wP6 T. P W T P T V @ < R$ U R Q + < / 9 < E f I h H D ! M Q
0x0d58a4…0d5a38 Dummy {f00=0x00bd, f01=0x018e, f02=» > @ IDENT SYSLCR REL 11.0 81-10-06 870105041100 SYSLCR F SYSLCR X STKEND l STKMOV ~ SCTSFA , ( H ) @ A x STKCOM GETAPP , ( I A |
0x0d5a38…0d5bcc Dummy {f00=0x00bd, f01=0x0190, f02=» ERROR , ( i x | R , ( @ - @ x - J N !TTP H , ( N :H N TBT K W x , ( 2 " T @ X 2 N CONVRT NXTBLK , ( =H
0x0d5bcc…0d5d60 Dummy {f00=0x00bd, f01=0x0190, f02=» $ @ n GETNUM , ( + 2 .:H , ( G @ N R P V _ N N , ( e S S YB : ~ * & @@ @ x @ A INILEN , ( d A x A j
0x0d5d60…0d5ef4 (1, 114) Dummy {f00=0x00bd, f01=0x0190, f02=» MULT , ( @ F * E H K @ , ( L " A N J @ , ( N P " 4X 1 p , ( = R Z0 % _ k k , ( ] :A K J 4 P 5 _ K * & }
0x0d5ef4…0d6088 Dummy {f00=0x00bd, f01=0x0190, f02=» A A SCTEFA , * & CR T @ A @ > , ( A b D J @ l , ( L A " A R @ T A , ( ' R K J @ L A f , ( AD .
0x0d6088…0d621c Dummy {f00=0x00bd, f01=0x0190, f02=» K ) G J ) , ( K G ) G " * , ( H@ A N A t N P R Z , ( @ P _ A t R X4 GETTTB TTB:PP , ( _ J P I
0x0d621c…0d63b0 Dummy {f00=0x00bd, f01=0x0190, f02=» ! P & I ( * , ( W! A t N P R & , ( s , " E V , ( R A t R R P , ( R X^ _dW T : , ( @@ A p _ A r
0x0d63b0…0d6544 Dummy {f00=0x00bd, f01=0x0190, f02=» H E v , ( E #_h A P @ L A " J ( MOVE F , ( _ A N J $ K , J V , ( { J | | N P GETTAB , ( DH | . 1 I * @ ! P , ( I
0x0d6544…0d66d8 Dummy {f00=0x00bd, f01=0x0190, f02=» h , ( H@ 0 0 0P & & QUEJOB 8 * & X ' * @ b H H J , ( 5 H 2_0 A r A P @ R T @ x , ( M A @ @ R P J MOVING * & e V @ A A R
0x0d66d8…0d686c Dummy {f00=0x00bd, f01=0x0190, f02=» $ @ v v , ( " M : Z A V @ H , ( R R Y R F * & <B @ p " 1 A v @ r : v , ( D Z _D @ V Z : A T R , ( 5 @ P A p _ , (
0x0d686c…0d6a00 Dummy {f00=0x00bd, f01=0x018e, f02=» , ( @ E _: Q , ( V 4 , ( E _z " D T E d , ( @ E D E % : Z " , ( @ R ;B D D " P P R , ( ; P P
0x0d6a00…0d6b94 (1, 115) Dummy {f00=0x00bd, f01=0x0190, f02=» , ( " 6 : A H W A H ?AP ^ , ( @ 6 : 4P " D H 4 , ( H * M j - I " d , ( Y& : f : R , ( X A h @ N T : N @ , ( f A H
0x0d6b94…0d6d28 Dummy {f00=0x00bd, f01=0x0190, f02=» T T _v , ( J , V P _ N " , ( L % J J G G U R , ( R G : P V , ( (! : @ t P A p * & _$ 8 @ z @ p % @ n % :
0x0d6d28…0d6ebc Dummy {f00=0x00bd, f01=0x418a, f02=» P0 H D ! P P> CP ePV i P H D ! W T P^ . T C X G Pl P d H D !l Q P . X P& IT aP iV R0 9 ;P O cP {Pr H D ! P T
0x0d6ebc…0d7050 Dummy {f00=0x00bd, f01=0x2008, f02=» A L = KMD26 DATE = 81 09 23 1216PACK NBR = 0026
0x0d7050…0d71e4 Dummy {f00=0x00bd, f01=0x0190, f02=» > @ IDENT DSKSUB REL 11.0 81-01-26 870105041100 F B VOLCLR VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWT NVLTAB F NVLEND NVLBIT VOLCLR VOLNAM ECBRL ECBEL , ( @ % Y
0x0d71e4…0d7378 Dummy {f00=0x00bd, f01=0x0190, f02=» h NVLCHK H DWTORD , ( 9 $ $ ^ W X Y :g . DWTNVL ^ DWTTAB p , ( S! H I ? P X * & m P ,P 9A _ H P I IHRTN VOLGET , (
0x0d7378…0d750c Dummy {f00=0x00bd, f01=0x40da, f02=» $ Q X " _F X $ NVLTAB , NVLEND @ NVLBIT T _R h D @ 2 W| Tt 2 1WZ GWD eP& o s uP yP P P | @ IHRTN VOLGET , (
0x0d750c…0d76a0 Dummy {f00=0x00bd, f01=0x40c4, f02=» J F IDENT DTTP03 REL 11.0 81-01-26 870105041100 DTTP03K TLTP03 R DTTP03K l TLTP03 D : @ 11 P IFF DN=12 P IFF DN=13 P IFF DN=14 P*
0x0d76a0…0d7834 (1, 116) Dummy {f00=0x00bd, f01=0x40ee, f02=» > @ IDENT DVTDI REL 11.0 81-01-26 870105041100 DVTDI F DVTDI V DIAD h & " DI x " ! "" 33 ?O_o 6 6 @ P* DOCUMENT TABLE 15
0x0d7834…0d79c8 Dummy {f00=0x00bd, f01=0x40e4, f02=» > @ IDENT DVTDN REL 11.0 81-01-26 870105041100 DVTDN F DVTDN V DNAD h & " N x ! "" 33 , , @ P DATA /3333 DEVICE STATUS
0x0d79c8…0d7b5c Dummy {f00=0x00bd, f01=0x40ea, f02=» > @ IDENT DVTDY REL 11.0 81-01-26 870105041100 DVTDY F DVTDY V DYAD h & " Y x ! "" 33 2 2 @ FT MMUPAG=1 PDEVECB DAT
0x0d7b5c…0d7cf0 Dummy {f00=0x00bd, f01=0x4120, f02=» > @ IDENT DVTG1 REL 11.0 81-01-26 870105041100 DVTG1 F DVTG1 V GPAD8 h , ( GP x , ( "" 33 ? P
0x0d7cf0…0d7e84 Dummy {f00=0x00bd, f01=0x412a, f02=» > @ IDENT DVTG2 REL 11.0 81-01-26 870105041100 DVTG2 F DVTG2 V GPAD3 h , ( GP x , ( "" 33 ( $ ? 3
0x0d7e84…0d8018 Dummy {f00=0x00bd, f01=0x40ec, f02=» > @ IDENT DVTG3 REL 11.0 81-01-26 870105041100 DVTG3 F DVTG3 V GPAD04 h & " P z ! "" 2 2 @ 0,0 P XIF PDWTE
0x0d8018…0d81ac Dummy {f00=0x00bd, f01=0x40e8, f02=» > @ IDENT DVTGP REL 11.0 81-01-26 870105041100 DVTGP F DVTGP V GPAD h & " P x ! "" 33 0 0 @ TATUS " P DATA 0 HEAD POSIT
0x0d81ac…0d8340 Dummy {f00=0x00bd, f01=0x411c, f02=» > @ IDENT DVTKB REL 11.0 81-01-26 870105041100 DVTKB F DVTKB V KBAD4 h & " @ KB x bECH bCOD , ( ! "" 33 ` < 7 : 9 :
0x0d8340…0d84d4 (1, 117) Dummy {f00=0x00be, f01=0x4114, f02=» > @ IDENT DVTMS REL 11.0 81-01-26 870105041100 DVTMS F DVTMS V MSAD h & " MS x , ( ! "" 33 A ` D 7 : 9 : D
0x0d84d4…0d8668 Dummy {f00=0x00be, f01=0x40fe, f02=» > @ IDENT DVTOD REL 11.0 81-01-26 870105041100 DVTOD F DVTOD V ODAD h & " @ OD x * & ! "" 33 ` > 9 < ; < > @ PDEVECB
0x0d8668…0d87fc Dummy {f00=0x00be, f01=0x40fe, f02=» > @ IDENT DVTT1 REL 11.0 81-01-26 870105041100 DVTT1 F DVTT1 V TPAD3 h , ( TP x , ( "" 33 > > @ END @
0x0d87fc…0d8990 Dummy {f00=0x00be, f01=0x40ee, f02=» > @ IDENT DVTT2 REL 11.0 81-01-26 870105041100 DVTT2 F DVTT2 V TPAD4 h , ( TP x "" 33 . . @ DATA 0 PRINTER PARAMETERS
0x0d8990…0d8b24 Dummy {f00=0x00be, f01=0x4110, f02=» > @ IDENT DVTTN REL 11.0 81-01-26 870105041100 DVTTN F DVTTN V TNAD h & " TN x , ( ! "" A h C $ h
0x0d8b24…0d8cb8 Dummy {f00=0x00be, f01=0x40f2, f02=» > @ IDENT DVTTP REL 11.0 81-01-26 870105041100 DVTTP F DVTTP V TPAD h , ( TP x "" 33 2 2 @ CE BUSY 6 P DATA
0x0d8cb8…0d8e4c Dummy {f00=0x00be, f01=0x40e8, f02=» > @ IDENT DVTVU REL 11.0 81-01-26 870105041100 DVTVU F DVTVU V VUAD h & " U x ! "" 0 0 @ DATA 0 TIMER POINTER ( P D
0x0d8e4c…0d8fe0 Dummy {f00=0x00be, f01=0x40f4, f02=» > @ IDENT DW0701 REL 11.0 81-01-26 870105041100 DW0701 F DW0701 X DC07AD l , ( DC ~ * * * @
0x0d8fe0…0d9174 (1, 118) Dummy {f00=0x00be, f01=0x0190, f02=»********************************** m P* n * P* n 4 PGETMON EQU * n > ( P LD A1,SCTANO GET APPLICATION NUMBER n R P ST A1,MONNO+STKEND SAVE n ~ 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC n 0 P LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER n 2 P
0x0d9174…0d9308 Dummy {f00=0x00be, f01=0x0190, f02=»R) n b P* o PGTMON2 EQU * o 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) o ( ( P CW A1,8,A4 IS IT THE RIGHT MONITOR? o P RF(E) GTMON4 YES! o P* o 8 P CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC o P RB GTMON2 o P* o PGTMO
0x0d9308…0d949c Dummy {f00=0x00be, f01=0x0190, f02=»MXSTAB o x 6 P LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) p " P ST A2,4,A1 AND SAVE IN MXSTAB p H P RTN A14 RETURN p n P EJECT p PGETNBR EQU * p $ P CF A14,GETVLB READ VOLUME LABEL p PGTNBR0 EQU * p P CF A14,RDSEC READ SECTOR p ( P L
0x0d949c…0d9630 Dummy {f00=0x00be, f01=0x0190, f02=» * p . P LCR A2,A4 GET 1ST CHARACTER IN FILE NAME q P CCK A2,/2020 UNUSED? q < P RF(E) GTNBR4 YES! q Z P* q t ( P CC A1,9,A4 SAME APPLICATION NUMBER? q ~ P RF(E) GTNBR6 YES, RETURN q P* q PGTNBR4 EQU * q P ADR A4,A8 GET NEXT RECORD q
0x0d9630…0d97c4 Dummy {f00=0x00be, f01=0x0190, f02=»R0 NO, READ NEXT SECTOR q P* r PGTNBR6 EQU * r * P RTN A14 r > P XIF r N P EJECT r Z > P********************************************************** r h > P* * r > P* LOAD CONFIGURATI
0x0d97c4…0d9958 Dummy {f00=0x00be, f01=0x0190, f02=» * r p > P* ENTRY: A9 - BUFFER ADDRESS * s " > P* * s d > P* EXIT: * s > P*
0x0d9958…0d9aec Dummy {f00=0x00be, f01=0x0190, f02=» * s l > P********************************************************** t PCONLOD EQU * t ` & P LD A1,SCTEFA GET END OF FREE AREA t t P LDR A2,A1 SAVE t " P ANKL A1,/3C00 ISOLATE BIT 2-5 t P SLL A1,2 ROTATE TO BIT 0-3 t 2 P ORS A1,
0x0d9aec…0d9c80 Dummy {f00=0x00be, f01=0x0190, f02=»SAVE t ~ 8 P LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK u 0 P ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK u H , P ST A1,SCTSFA UPDATE START OF FREE AREA u | 8 P LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE u , P ADK A1,2 ADVANCE TO FIRST CONTR
0x0d9c80…0d9e14 (1, 119) Dummy {f00=0x00be, f01=0x0190, f02=»STKEND CONTROL BLOCK u * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE v " P SUK A1,/F0 CHECK DEVICE TYPE v J P RF(NN) CONRAD NOT CASSETTE v p P IFT CFTEST+CASS=2 v P* v & P* PROGRAM LOAD DEVICE = CASSETTE v P* v PCON:30 EQU * v P LDKL A1
0x0d9e14…0d9fa8 Dummy {f00=0x00be, f01=0x0190, f02=»:38 MODIFY v P LDR A1,A9 START OF BUFFER w " P ADKL A1,BUFLEN END OF BUFFER w 4 , P ST A1,PLDADR+STKEND SAVE END OF BUFFER w Z P ST A1,EINPBF+STKEND SAVE w , P ST A1,CONSTA+STKCOM START OF CONF. DATA w P CF A14,RDBLK READ ONE BLOCK w " P CF A14,
0x0d9fa8…0da13c Dummy {f00=0x00be, f01=0x0190, f02=» . P CF A14,CASSIN INIT CONFIGURATION CASSETTE x P CALL CON:40 x 6 P RF TST:10 x J PCONEX EQU * x P* x p > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE x z P* x " P CF A14,RDBLK READ NEXT BLOCK x P LDR A1,A1 APPLICATION DATA?
0x0da13c…0da2d0 Dummy {f00=0x00be, f01=0x0190, f02=» RF CON:90 x PCON:80 EQU * y P LDK A1,/F y & " P CF A14,CHCRIO UNLOAD CASSETTE y 8 PCON:90 EQU * y ^ P ABL CONMOV y r P XIF y P IFT CFTEST=1 y P EJECT y PCONRAD EQU * y P* y 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC y
0x0da2d0…0da464 Dummy {f00=0x00be, f01=0x0190, f02=»A14,CONFLD INITIATE CONF. DATA LOAD DEV. y PCONRA0 EQU * z 0 * P LD A11,CONDAD+STKEND GET START SECTOR z D 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART z r " P LDR A1,A9 GET START OF BUFFER z $ P ADKL A1,BUFLEN-6 END OF BUFFER z , P ST A1,PLDADR+STKE
0x0da464…0da5f8 Dummy {f00=0x00be, f01=0x0190, f02=»=2 z v , P ST A1,CONSTA+STKCOM START OF CONF. DATA { $ P LDKL A10,0 RESET RECORD COUNTER { : P* { b 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE { l P* { P CALL READC READ SECTOR { P* { 0 P* TEST THE SYNTAX OF THE CONFIGURATION FILE { P
0x0da5f8…0da78c Dummy {f00=0x00be, f01=0x0190, f02=» P CALL CONRD | P CALL TCL | P CALL TEST | * P CALL AA | < P CALL CONRD | L P CALL LEV | ` P CALL TEST | r P CALL NN1 | PTST:20 CALL CONRD | P CALL NN1 | P CALL CONRD | B PTST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL
0x0da78c…0da920 Dummy {f00=0x00be, f01=0x0190, f02=»NN | P CALL CONRD } P CALL LC } P CALL TEST } . P CALL NNL } @ P CALL CONRD } R P RB TST:30 } f PTST:40 EQU * } x P CALL NN1 } P CALL CONRD } PTST:50 EQU * } < P LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES } P C
0x0da920…0daab4 (1, 120) Dummy {f00=0x011d, f01=0x0190, f02=»SWB:S t P EJECT P* 0 P* DISPLACEMENT IN APPLICATION CONTROL TABLE & P* Z 0 PAPLREL EQU 18 APPLICATION RELOCATION BASE =6 d , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS * PAPLLAC EQU 14 APPLICATION LOAD ADDRESS & PAPLLAP EQU 12 LOGI
0x0daab4…0dac48 Dummy {f00=0x011d, f01=0x0190, f02=» START MMU ENTRY | . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU J " PAPLSWB EQU 2 SWB TABLE ADDRESS | , PAPLSTA EQU 16 APPL PROGRAM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE 8 PAPLADA EQU 22 AP
0x0dac48…0daddc Dummy {f00=0x011d, f01=0x0190, f02=»STANTS P* * PS:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS PSWBLEN EQU 4 LENGTH OF SWB F ( PSWBSEC EQU 6 DISPL. TO SECTOR LENGTH h 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME $ PWBLEN EQU -4 LENGTH OF WORKB
0x0daddc…0daf70 Dummy {f00=0x011d, f01=0x0190, f02=»*************** P P* TASK DEFINITION BLOCK: $ PTDBBT EQU 0 1A BLOCK TYPE D ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS f , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A T
0x0daf70…0db104 Dummy {f00=0x011d, f01=0x0190, f02=»EQU 7 TERMINAL DEVICE CLASS PTLC EQU 7 LINE CONNECTION $ ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH F P* r * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD | P* P* COMMON DEVICE DEF. BLOCK: P* PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBN
0x0db104…0db298 Dummy {f00=0x011d, f01=0x0190, f02=»TYPE DEF. BLOCK ~ P* PUDBBT EQU 0 1A BLOCK TYPE " , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES D P* t ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD ~ PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL
0x0db298…0db42c Dummy {f00=0x011d, f01=0x0190, f02=»FS EQU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. & " PNAOFS EQU 3 START OF NA NUMBER V $ PNSAOFS EQU 4 START OF NSA RECORD | & PDTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P**************** P* SOP-HANDLING *
0x0db42c…0db5c0 Dummy {f00=0x011d, f01=0x0190, f02=»ED | " PLMP3 EQU /100 MEMORY OVERFLOW , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA 0 PLMP5 EQU /40 NOT USED ` PLMP6 EQU /20 NOT USED ~ PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED PLMP10 EQU 2 NOT USED
0x0db5c0…0db754 (1, 121) Dummy {f00=0x011d, f01=0x018e, f02=»PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * : F P* * F P**********************************************************
0x0db754…0db8e8 Dummy {f00=0x011d, f01=0x0190, f02=» P* $ PMXSBL EQU 6 SEGMENT BLOCK LENGTH " PMXNOX EQU 6 NUMBER OF EXTENTS 6 * PMX:NOS EQU 8 NUMBER OF SEGMENT TABLES , PMX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH ( PMX:LEV EQU /0031 MONITOR TASK LEVEL & PMX:LEN EQU 4 MONITOR EXTENT LENGTH
0x0db8e8…0dba7c Dummy {f00=0x011d, f01=0x0190, f02=»2+2 NUMBER OF MONITOR EXTENTS , PMX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH & . PMX:STA EQU 2 MONITOR EXTENT START ADDRESS V P EJECT P* " P* *********** " P* * PAGTAB * " P* *********
0x0dba7c…0dbc10 Dummy {f00=0x011d, f01=0x0190, f02=»PAGSB EQU 6 SEGMENT BLOCK ADDRESS P EJECT ! * P* ! 8 & P* ************* ! B & P* * SEGTAB * ! l & P* ************* ! P* ! PSEGPB EQU 6 SEGMENT POINTER ! " PSEGSB EQU 6 PAGE BLOCK ADD
0x0dbc10…0dbda4 Dummy {f00=0x011d, f01=0x0190, f02=»* ******************* ! P* " . PBUFLEN EQU -4 " 8 PDEVIND EQU -2 " N PDWTLEN EQU 6 " d PTDCDD1 EQU 5 " x PTDCDD2 EQU 6 " ( PTDCLCN EQU 10 DISP. TO LINE CON. NBR " $ PSLL0 EQU /3940 SLL A1,0 CONSTANT " 8 PNBRDPS EQU 12 NUMBER
0x0dbda4…0dbf38 Dummy {f00=0x011d, f01=0x0190, f02=» * " | : P* * # * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * # h : P* * # : P* IT IS ENTERED FROM SYSLOD WITH T
0x0dbf38…0dc0cc Dummy {f00=0x011d, f01=0x0190, f02=» * # ` : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDX * $ : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * $ L : P* * $ : P* * $ : P**
0x0dc0cc…0dc260 Dummy {f00=0x011d, f01=0x0190, f02=»ATION ROUTINE ENTRY $ | ( P AD A1,STKCOM+M:REL RELOCATE ADDRESS % P CFR A8,A1 % H $ P LDKL A11,SYSLOD START OF SYSLOD % Z * P LDKL A2,TCLASS GET ADDRESS TO TCLASS % . P CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? % $ P RF(E) NO:TCL YES:DUMMY TCLASS! % ,
0x0dc260…0dc3f4 (1, 122) Dummy {f00=0x011e, f01=0x0190, f02=»ADDRESS TO SCLASS % v , P CALL CHPTRS RELOCATE POINTERS IN SCLASS & 0 P ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS & J P RF CLEAR & ~ P EJECT & 4 /*********************************************** & 4 /* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * &
0x0dc3f4…0dc588 Dummy {f00=0x011e, f01=0x0190, f02=»SYSLOD START ADDRESS & ( #* A12 - RELOCATION CONSTANT ' * ' H 2 .* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS ' R * ' * WORK REGISTER:A1-A7 ' * ' * SUBROUTINES: ' * ' PCHPTRS EQU * ' P ADR A2,A12 RELOCATE POI
0x0dc588…0dc71c Dummy {f00=0x011e, f01=0x0190, f02=»UK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? ' RF(Z) CHPT30 NO! ( 0 ADK A3,2 NEXT ENTRY ( J $ ! LDR* A5,A3 GET POINTER TO CLASS ( f ADR A5,A12 RELOCATE ( STR A5,A3 STORE ( $ LDR* A6,A5 GET LENGTH OF CLASS ( CHPT20 EQU * ( * & SUK A6,4
0x0dc71c…0dc8b0 Dummy {f00=0x011e, f01=0x0190, f02=»A7 GET DWT-ADDRESS ( " P CALL CMPADR COMPARE ADDRESSES ) P RB(G) CHPT20 DWT IN DRIVER! ) @ ADR A7,A12 RELOCATE ) d * % STR A7,A5 STORE RELOCATED DW-ADDRESS ) " P LD A8,SCTOPT GET OPTION WORD ) P ANKL A8,1 MMU IN SYSTEM? ) P RB(Z) CHPT20 NO!
0x0dc8b0…0dca44 Dummy {f00=0x011e, f01=0x0190, f02=» ) j P RB(NZ) CHPT20 YES! * P ADR A8,A12 RELOCATE * $ . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED * @ , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS * r RB CHPT20 * CHPT30 EQU * * P RTN A14 * P EJECT * PCLEAR EQU * * P* * & P* C
0x0dca44…0dcbd8 Dummy {f00=0x011e, f01=0x018e, f02=»2 * P CMR A1 + P CWR A1,A2 + P RB(NE) CLRSYS + , P LDKL A1,CONMON + B P AD A1,STKCOM+M:REL + Z P ABR A1 + v P EJECT + 6 2************************************************** + 6 2* B:TCT - BUILD TASK CONTROL TABLE * + 6 2
0x0dcbd8…0dcd6c Dummy {f00=0x011e, f01=0x0190, f02=» P* , P* EXIT: , P* , & P* WORK REGISTERS: A1-A7,A11,A12 , ( * , R * SUBROUTINES: , * , t . )* TASK CONTROL TABLE LAYOUT , ~ . )* _________________________ , . ** I LENGTH
0x0dcd6c…0dcf00 Dummy {f00=0x011e, f01=0x0190, f02=»_________________ , x . ** I USER TASKS I - . )* __________________________ - L * - ~ EJECT - PB:TCT EQU * - * P LD A12,SCTSFA GET START OF FREE AREA - * P ST A12,SCTTCT STORE ADDRESS TO TCTAB - ( P A
0x0dcf00…0dd094 (1, 123) Dummy {f00=0x0170, f01=0x0000, f02=»
[…0xf…]
0x0de840…0de9d4 (1, 125) Opaque[0x194]
0x0de9d4…0deb68 # DirEnt {nam=»ADMTSK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0838, f03=0x0000}
0x0de9d4…0deb68 IdxSect {
0x0de9d4…0deb68 f00 = 0x0041 // 0xde9d4 @0x0
0x0de9d4…0deb68 f01 = 0x0014 // 0xde9d6 @0x2
0x0de9d4…0deb68 gno = [ // 0xde9d8 @0x4
0x0de9d4…0deb68 [0x00]: C0x0041.0x3.0
0x0de9d4…0deb68 [0x01]: C0x0042.0x0.0
0x0de9d4…0deb68 [0x02]: C0x0042.0x1.0
0x0de9d4…0deb68 [0x03]: C0x0042.0x2.0
0x0de9d4…0deb68 [0x04]: C0x0042.0x3.0
0x0de9d4…0deb68 [0x05]: C0x0043.0x0.0
0x0de9d4…0deb68 [0x06]: C0x0043.0x1.0
0x0de9d4…0deb68 [0x07]: C0x0043.0x2.0
0x0de9d4…0deb68 [0x08]: C0x0043.0x3.0
0x0de9d4…0deb68 [0x09]: C0x0044.0x0.0
0x0de9d4…0deb68 ]
0x0de9d4…0deb68 }
0x0deb68…0decfc Dummy {f00=0x0041, f01=0x0190, f02=» 2 P IDENT ADMTSK REL 11.0 81-02-12 870105041100 P : , P =2, WRONG STATUS INFORMATION RETURNED B P REL 11.0 81-02-06 r ( P =1, LOCAL FILE CODES NOT WORKING P REL 11.0 81-01-26 * * 0 ,******************************
0x0decfc…0dee90 Dummy {f00=0x0041, f01=0x0190, f02=»** f * P* * ENTRY ADMTSK ( * > P EJECT ADMTSK H P* ^ P******************* h P* * P* EXTERNALS * P* * P******************* P* P* P
0x0dee90…0df024 Dummy {f00=0x0041, f01=0x0190, f02=» OPTION z P EXTRN FWTFNR FILE NUMBER " P EXTRN FWTPAR NUMBER OF USERS 2 " P EXTRN ECBRL REQUESTED LENGTH X P EXTRN ECBBA BUFFER ADDRESS ~ $ P EXTRN ECBCW1 1ST CONTROLL WORD $ P EXTRN ECBCW2 2ND CONTROLL WORD P EXTRN MOV:US MOVE ROU
0x0df024…0df1b8 Dummy {f00=0x0041, f01=0x0190, f02=»R t P EXTRN FPB:EL ENLARGE $ P EXTRN FPB:FO FILE ORGANISATION ( P EXTRN FPB:S1 SIZE P " P EXTRN FPB:RP RETENTION PERIOD j P EXTRN ECBRC RETURN CODE " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN FPB:RL RECORD LENGTH $ P EXTRN FPB:FR
0x0df1b8…0df34c Dummy {f00=0x0041, f01=0x018e, f02=» n P* P EJECT ADMTSK P* ( P* 2 , P EXTRN DMXACD EXIT TASK AND ACTIVATE #D < 2 P EXTRN DMACTD ACTIVATE ADMINISTRATION ADM TASK l " P EXTRN DV3RST REST AFTER DIV 3 P EXTRN TENDIO * P EXTRN DMTTSB STACK BASE DISPLACEMENT
0x0df34c…0df4e0 Dummy {f00=0x0041, f01=0x0190, f02=» r P EXTRN FDBENL ENLARGE , P EXTRN FDBEXC EXCLUSIVE ACCESS INDICATOR & P EXTRN FPB:NO FILE NUMBER V P EXTRN FPB:DT DEVICE TYPE x P EXTRN TTB:MT USER MMU TABLE P EXTRN FPB:SH SHAREABILITY $ P EXTRN MONMMU MONITOR MMU TABLE 2 P
0x0df4e0…0df674 (1, 126) Dummy {f00=0x0042, f01=0x0190, f02=»R r , P EXTRN SETCRO RETURN AND SET CR OVERFLOW P* : P* D P* N P* X P********** b P* FORM * t P********** P* P* PBYTE FORM 8,8 P* P* P EJECT ADMTSK P* P* * P********
0x0df674…0df808 Dummy {f00=0x0042, f01=0x018e, f02=» * * P************************************** ( P* V P* ` * P* A VERSION LEAVING OUT OPEN MODES: j 2 P* OPEN OUTPUT,OPEN EXTEND AND CLOSE DISCARD ( P* IS OBTAINED BY SETTING X:A EQU 0 P* P*
0x0df808…0df99c Dummy {f00=0x0042, f01=0x0190, f02=» P******************** P* * P* CONSTANTS * < P* * X P******************** t P* P* P******************** P* * P* RETURN STATUS * P*
0x0df99c…0dfb30 Dummy {f00=0x0042, f01=0x0190, f02=» EQU 3 OVERFLOW $ PRSTWFP EQU 4 WRONG FD PARAMETER P* @ ( PRC:NOD EQU /800 RETURN CODE NO DATA J & PFPBLLE EQU 88 LENGTH OF FPB L-FILE v & PFPBSLE EQU 66 LENGTH OF FPB S-FILE ( PLFILEN EQU 256 L-FILE RECORD LENGTH P* P EJECT
0x0dfb30…0dfcc4 Dummy {f00=0x0042, f01=0x0190, f02=»* ~ P******************* P* & P* 0 P* : P EJECT ADMTSK D P* Z P* d P* n P********** x P* EXEORD * P********** P* P* TABLE FOR ORDER LABELS P* P* PEXEORD EQU * P DATA
0x0dfcc4…0dfe58 Dummy {f00=0x0042, f01=0x0190, f02=»-EXEORD OPEN OUTPUT RANDOM P DATA OPENOR OUTPUT RANDOM " P DATA OPENEX EXTEND D " P DATA OPENOS OUTPUT SEQUENTIAL ` P DATA CLODIS P XIF P DATA CLOLCK P DATA REFIPA P DATA SEQWRI P DATA REWRIT P DATA DELETE
0x0dfe58…0dffec Dummy {f00=0x0042, f01=0x0190, f02=» P XIF P* P EJECT ADMTSK P* 0 P********** : P* STAMAP * L P********** ^ P* p P* STATUS BYTES z 8 P* CHANGE SOME FM ERROR BITS TO STATUS INFORMATION P* BIT: P* P* PSTAMAP EQU * P B
0x0dffec…0e0180 Dummy {f00=0x0042, f01=0x0190, f02=»E RSTOFL,0 11,12 P* P EJECT ADMTSK " P* 8 P* B P********** L P* FILORG * ^ P********** p P* . P* TABLE OVER ALLOWED FILE ORGANIZATIONS P* 8 PBUFFNU EQU *-/100 BUFFER INDICATING RECORD NOT USED PFILO
0x0e0180…0e0314 (1, 127) Dummy {f00=0x0042, f01=0x0190, f02=» 0 , RETURN CODE @ P* A4 = NUMBER OF SECTORS PER RECORD (NOT OPEN ORDER) " P* SET A8 = ADM ECB ADDRESS $ P* A9 = USER ECB ADDRESS * P* A10= FILE DESCRIPTOR ADDRESS < P* A12= ADDRESS TO FILE PARAMETER BLOCK (
0x0e0314…0e04a8 Dummy {f00=0x0042, f01=0x0190, f02=»SB STACK BASE P LDR A10,A1 FDB ADDRESS & P LD A9,DWTECB,A10 USER ECB ADDRESS 6 P LDR A8,A10 ` $ P ADKL A8,FDBECB ADM ECB ADDRESS t P LC A1,FWTFNR,A1 FILE NUMBER P ANK A1,/FF P STR A1,A8 FILL ADM ECB & P LD A4,FDBRLE,A10 RE
0x0e04a8…0e063c Dummy {f00=0x0042, f01=0x0190, f02=»ET RETURN CODE $ P LDR A13,A8 GET ADDRESS TO ECBCW P ADKL A13,ECBCW1 > P* V P EJECT ADMTSK ` P* v P* & P LD A1,ECBCW1,A9 GET RECORD NUMBER P LD A2,ECBCW2,A9 & P RF(P) ADMT10 DOUBLE SUBTRACT ONE P LDKL A2,/8000 CAR
0x0e063c…0e07d0 Dummy {f00=0x0042, f01=0x0190, f02=» FDB ADDRESS * P SRL A4,8 NUMBER OF SECTORS PER RECORD , P CF A14,DBLMUL CONVERT TO SECTOR ADDRESS B P IM 2,A13 DOUBLE ADD ONE r P RF(P) ADMT20 NO CARRY P CM 2,A13 P IMR A13 PADMT20 EQU * ( P LDKL A12,ADMBUF ADM BUFFER ADDRES
0x0e07d0…0e0964 Dummy {f00=0x0042, f01=0x0190, f02=» P EJECT ADMTSK P* P* ( P********** 2 P* DIREAD * D P********** V P* h P* READ RECORD DIRECT r P* P* PDIREAD EQU * P LDK A7,/91 PHYSICAL READ " P CF A14,ADM:BA TO USER BUFFER P RF(NZ)
0x0e0964…0e0af8 Dummy {f00=0x0042, f01=0x0190, f02=»D OF BUFFER ~ P IFT MMUPAG=0 P LC A1,-1,A2 * P XIF > P IFT MMUPAG=1 J ( P LD A1,DWTTAB,A10 USER TTAB ADDRESS ` P TL TTB:MT,A1 USER MMU TABLE P EL A1,-2,A2 STATUS P ANK A1,/FF P TL MONMMU MONITOR MMU TABLE P XIF
0x0e0af8…0e0c8c Dummy {f00=0x0042, f01=0x0190, f02=» EQU * $ P LD A1,FDBRLE,A10 RECORD LENGTH P ST A1,ECBEL,A9 6 P RF ADMEXI END IO N P* h P IFT CRDEEX=1 r P EJECT ADMTSK P* P* P********** P* EXTEND * P********** P* 2 P* EXTEND FILE AND CO
0x0e0c8c…0e0e20 Dummy {f00=0x0042, f01=0x0190, f02=»T ENLARGE FACTOR | & P ST A1,FPB:EL,A12 FILL IN ENLARGE P LDKL A7,/1A1 EXTEND B P CF A14,ADM:AF EXTEND ^ P RF(NZ) ADMEXI ERROR | P LD A3,FDBOMD,A11 OPEN MODE P ANK A3,/7F P SUK A3,EXEOOR , P RF(NZ) SEQWRI NOT OPENED OUTPUT R
0x0e0e20…0e0fb4 (1, 128) Dummy {f00=0x0042, f01=0x0190, f02=» P********** P* SEQWRI * P********** ( P* : P* SEQUENTIAL WRITE D 2 P* INPUT : A4 = NUMBER OF SECTORS PER RECORD ` P* P* PSEQWRI EQU * * P CF A14,GETLRN GET LAST RECORD NUMBER * P IM ECBCW2,A8 DOUBLE ADD ONE
0x0e0fb4…0e1148 Dummy {f00=0x0042, f01=0x0190, f02=»LRN,A10 GET LRN P ANK A1,/FF P LD A2,FDBLRN+1,A10 , P ADK A2,1 LRN+1 H P RF(P) SEQW06 NOT OVERFLOW ` P LDK A2,0 P ADK A1,1 PSEQW06 EQU * $ P ST A1,ECBCW1,A9 LRN TO USER ECB P ST A2,ECBCW2,A9 P* P EJE
0x0e1148…0e12dc Dummy {f00=0x0042, f01=0x0190, f02=»EEX=1 P RF(Z) SEQW10 WRITE OK P SLL A1,2 , " P RF(NN) ADMEXI NOT END OF FILE > $ P LD A2,FDBENL,A10 ENLARGE FACTOR d , P RF(Z) ADMEXI NO ENLARGE FACTOR DECLARED P LDK A1,EXEEXT EXTEND FILE P SC A1,DWTOR+1,A10 $ P LDKL A8,ADMTSK
0x0e12dc…0e1470 Dummy {f00=0x0042, f01=0x0190, f02=» " P LC A1,ECBCW1+1,A9 UPDATE LRN P SC A1,FDBLRN,A10 * P LD A2,ECBCW2,A9 D P ST A2,FDBLRN+1,A10 P RF ADMEXI x P* P EJECT ADMTSK P* P* P********** P* REWRIT * P* RANWRI * P********** P*
0x0e1470…0e1604 Dummy {f00=0x0042, f01=0x018e, f02=»TE ~ P RF ADMEXI END IO P* $ P EJECT ADMTSK . P* D P* N P********** X P* DELETE * j P********** | P* P* DELETE RECORD P* P* PDELETE EQU * ( P SUK A4,1 GET LAST SECTOR IN RECORD P A
0x0e1604…0e1798 Dummy {f00=0x0042, f01=0x0190, f02=» P CF A14,ADMWFO WRITE P EJECT ADMTSK P* 6 P* @ P********** J P* ADMEXI * P********** n P* P* P* EXIT ADM TASK P* P* PADMEXI EQU * P LD A1,ECBRC,A8 RETURN CODE " P ANKL A1,/4E50
0x0e1798…0e192c Dummy {f00=0x0042, f01=0x018e, f02=»TFDB FILE CODE ENTRY =1 P SCR A6,A4 SAVE STATUS 4 P LDKL A1,/8080 REQUEST ERROR MORE INFORMATION =2 > P RF ADMEX3 v PADMEX2 EQU * P OR A1,ECBRC,A8 GET TOTAL RC PADMEX3 EQU * & P LDR A6,A10 FDB ADDRESS FOR TENDIO P INH "
0x0e192c…0e1ac0 Dummy {f00=0x0042, f01=0x0190, f02=» P* P********** P* OPENOR * $ P********** 6 P* H P* OPEN OUTPUT RANDOM R P* p POPENOR EQU * z P CF A14,CREFIL CREATE FILE P RF(NZ) CLODIS DELETE FILE P CF A14,FORFIL FORMAT FILE P RF(NZ) CLODIS DELET
0x0e1ac0…0e1c54 (1, 129) Dummy {f00=0x0042, f01=0x0190, f02=»**** P* P* P* OPEN EXTEND P* 8 P* B POPENEX EQU * L P CF A14,OPFILE ` " P RF(NZ) CLO450 CLOSE IF OPENED v P CF A14,ENLFAC P RF(O) CLO450 CLOSE P ST A3,FDBENL,A11 ENLARGE P RF EXIOPE EXIT P
0x0e1c54…0e1de8 Dummy {f00=0x0042, f01=0x0190, f02=» EXISTING FILE P* P* POPENFI EQU * * P CF A14,OPFILE OPEN FILE > $ P RF(NZ) CLO450 ERROR:CLOSE FILE ^ PEXIOPE EQU * & P CF A14,CONPAR CONVERT PARAMETERS & P CF A14,GETFDB FILE CODE ENTRY =1 * P ST A11,2,A4 CONNECT FILE
0x0e1de8…0e1f7c Dummy {f00=0x0042, f01=0x0190, f02=»OS * P********** P* P* OPEN OUTPUT SEQUENTIAL ( P* J P* T POPENOS EQU * ^ P CF A14,CREFIL CREATE FILE r P RB(Z) EXIOPE NO ERROR P* P XIF P EJECT ADMTSK P* P* P********** P* CL
0x0e1f7c…0e2110 Dummy {f00=0x0042, f01=0x0190, f02=»EEX=1 PCLODIS EQU * ! P LDKL A7,/2A2 DELETE FILE ! " P RF CLO500 ! D P* ! V P* ! ` P XIF ! j PCLOLCK EQU * ! v P IFT CRDEEX=1 ! P LC A3,FDBOMD,A11 OPEN MODE ! P ANK A3,/7F ! P SUK A3,EXEOOR ! . P RF(NP) CLO400 OPENED OUTP
0x0e2110…0e22a4 Dummy {f00=0x0042, f01=0x0190, f02=» EQU * CLOSE FILE ! 0 P LC A2,FDBLRN,A11 LAST RECORD NUMBER TO FPB " P ANK A2,/FF " N P ST A2,FPB:FR,A12 " b P LD A2,FDBLRN+1,A11 " | P ST A2,FPB:FR+2,A12 " * PCLO450 EQU * CLOSE WITHOUT SETTING LRN " P LDK A7,/A2 CLOSE FILE " PCLO500 E
0x0e22a4…0e2438 Dummy {f00=0x0042, f01=0x0190, f02=» ( P ORS A3,ECBRC,A8 UPDATE RETURN CODE # P RB ADMEXI # 0 P* # B P EJECT ADMTSK # L P* # b P* # l P********** # v P* REFIPA * # P********** # P* # P* READ FILE PARAMETERS # P* # PREFIPA EQU * # ( P CF A14,ADMRFP READ
0x0e2438…0e25cc Dummy {f00=0x0042, f01=0x0190, f02=» # z P CM ECBCW2,A9 $ P RB ADMEXI EXIT $ P* $ 6 P EJECT $ @ P* $ N P* $ X P******************* $ b P* * $ ~ P* SUBROUTINES * $ P* * $ P******************* $ P* $ P********** $
0x0e25cc…0e2760 Dummy {f00=0x0042, f01=0x0190, f02=»A1,DWTTAB,A10 TTAB ADDRESS OF USER =1 $ P LDR* A2,A9 FILE CODE =1 % . P ANK A2,/FF =1 % N $ P LDK A5,0 SEARCH BOTH TABLES =1 % f P CF A14,FNDFDB =1 % P RTN A14 =1 % P* % P EJECT ADMTSK % P* % P********** % P* GETFPB * %
0x0e2760…0e28f4 (1, 130) Dummy {f00=0x0043, f01=0x0190, f02=» A10= FDB ADDRESS % P* A12= FPB ADDRESS & * P* OUTPUT: A5=TTAB ADDRESS USER TASK & D 2 P* A4=NUMBER OF SECTORS PER RECORD & r " P* A1,A2,A3 ARE USED & P* & PGETFPB EQU * & , P LD A4,DWTTAB,A10 GET USER T
0x0e28f4…0e2a88 Dummy {f00=0x0043, f01=0x0190, f02=» A1,8 NOT FIRST PART & 0 P CF A14,MOV:US FILE DESCRIPTOR TO WORK AREA ' 8 P LC A3,FPB:FO,A12 CONVERT FILE ORGANISATION TO ASCII ' P P LC A1,FILORG,A3 ' P SC A1,FPB:FO,A12 ASCII ' P* ' P EJECT ADMTSK ' P* ' P* ' P ANK A3,/FF '
0x0e2a88…0e2c1c Dummy {f00=0x0043, f01=0x0190, f02=»AR REST OF FPB ' P SUK A2,2 ADDRESS ( P CMR A2 ( 0 P SUK A1,2 ( @ P RB(P) GETF10 NEXT WORD ( R * P LDKL A2,'00' ZEROIZE RETENTION PERIOD ( r P ST A2,FPB:RP,A12 ( P SC A2,FPB:RP+2,A12 ( PGETF20 EQU * ( P LDK A4,0 SHAREABILITY = 0 (
0x0e2c1c…0e2db0 Dummy {f00=0x0043, f01=0x0190, f02=»R RECORD ( r P SUK A3,2 FILE ORGANIZATION ) P RF(NZ) GETF30 NOT L-FILE ) 4 P CM FPB:RL,A12 RL=0 ) V PGETF30 EQU * ) r P RTN A14 ) P* ) P EJECT ADMTSK ) P* ) P* ) P********** ) P* CONPAR * ) P********** ) P* )
0x0e2db0…0e2f44 Dummy {f00=0x0043, f01=0x0190, f02=»ADDRESS ) z , P* A11=FDB ADDRESS OPENED FILE * P* OUTPUT: A5 = FPB LENGTH * @ P* A4 IS USED * d . P* A1,A2,A3,A6,A7,A13 ARE USED * P* * PCONPAR EQU * * ( P LDK A2,FPBSLE FPB LENGTH OF S-FILE * ( P LC A1,F
0x0e2f44…0e30d8 Dummy {f00=0x0043, f01=0x0190, f02=» * h P LDK A1,2 L-FILE + P RF(L) CON100 + P LDK A1,3 X-FILE + 6 PCON100 EQU * + N P* + b P EJECT ADMTSK + l P* + P* + P ST A2,ECBRL,A8 SAVE LENGTH + . P SC A1,FPB:FO,A12 FILE ORGANIZATION NUMBER + P ANK A1,2 L OR X FILE +
0x0e30d8…0e326c Dummy {f00=0x0043, f01=0x0190, f02=»A11 FILE NUMBER + P SLL A1,8 , 2 P ST A1,FPB:NO,A12 DATA FILE,INDEX FILE NUMBER , * P IFT CRDEEX=1 , ` ( P CF A14,CONENL ENLARGE IN PERCENTAGE , v P XIF , P IFT CRDEEX=0 , P CM FPB:EL,A12 , P XIF , $ P LD A4,FDBRLE,A11 RECORD LENGTH ,
0x0e326c…0e3400 Dummy {f00=0x0043, f01=0x0190, f02=»ADMTSK , P* - P* - P LDR A13,A12 - " $ P ADKL A13,FPB:S1 ADDRESS TO SIZE - 6 P LDK A5,4 COUNTER - ^ PCON500 EQU * - x P LDK A1,0 - P LDR* A2,A13 - P RF(Z) CON600 - " P LDR A6,A4 SECTORS PER RECORD - P CF A14,DIVMOD - P STR
0x0e3400…0e3594 (1, 131) Dummy {f00=0x0043, f01=0x018e, f02=»DIVMOD - P ST A2,2,A13 . P ADKL A13,10 NEXT SIZE . " P SUK A5,1 . @ ( P RB(NZ) CON500 MORE SIZES TO CONVERT . R P LD A3,ECBRL,A8 FPB LENGTH . ~ P LDR A5,A3 SAVE LENGTH . " P LDR A1,A12 ADM BUFFER ADDRESS . P LD A2,ECBBA,A9 . P ADK A2,8 NO
0x0e3594…0e3728 Dummy {f00=0x0043, f01=0x0190, f02=» P* / P EJECT ADMTSK / P* / $ P* / . P********** / 8 P* GETLRN * / J P********** / P* / n " P* CONVERT LAST RECORD NUMBER / x P* / P* INPUT : A8=ECB ADDRESS / P* A11=FDB ADDRESS / P* / 0 P* OUTPUT: A
0x0e3728…0e38bc Dummy {f00=0x0043, f01=0x0190, f02=» @ P* ECBCW1,ECBCW2=LRN CONVERTED TO SECTOR NUMBER-1 0 P* A6,A7 ARE USED 0 H P* 0 l PGETLRN EQU * 0 v $ P LD A4,FDBRLE,A11 RECORD LENGTH 0 P ADK A4,1 0 P SRL A4,8 NUMBER OF SECTORS 0 P LC A1,FDBLRN,A11 0 P ANK A
0x0e38bc…0e3a50 Dummy {f00=0x0043, f01=0x0190, f02=»NUMBER 0 x P ST A2,ECBCW2,A8 1 , P CF A14,DBLMUL CONVERT TO SECTOR ADDRESS 1 & P RF RETA14 1 V P* 1 h P EJECT ADMTSK 1 r P* 1 P* 1 P********** 1 P* OPFILE * 1 P********** 1 P* 1 0 P* OPEN EXISTING FILE AND CHECH SHAREBILITY
0x0e3a50…0e3be4 Dummy {f00=0x0043, f01=0x0190, f02=»ECTORS PER RECORD 1 t * P* A1,A2,A3,A5,A7 ARE USED 2 P* 2 H P* 2 R POPFILE EQU * 2 P CF A14,GETFPB 2 p P LDK A7,/A1 OPEN FILE 2 P CF A14,ADMOPE OPEN 2 P RF(NZ) RETA14 ERROR 2 $ P LDKL A1,/8000 RC: REQUEST ERROR 2 P LDK
0x0e3be4…0e3d78 Dummy {f00=0x0043, f01=0x0190, f02=»3,'LL' 2 P RF(E) OPE100 L-FILE 3 P CCK A3,'XX' 3 * & P RF(NE) RETA14 NOT L-,S- OR X-FILE 3 > P* 3 h P EJECT ADMTSK 3 r P* 3 P* 3 POPE100 EQU * 3 $ P AD A2,FPB:RL,A12 RECORD LENGTH 3 P ANK A2,/FF 3 ( P RF(NZ) RETA14 ILLEGAL RECOR
0x0e3d78…0e3f0c Dummy {f00=0x0043, f01=0x0190, f02=»RGE FACTOR 3 * P LC A1,FWTPAR,A11 GET NUMBER OF USERS 4 P ANK A1,/3F 6 BITS 4 @ P SUK A1,1 4 Z P RF(Z) SETFDB 1ST OPEN 4 l P LD A1,FDBEXC,A11 4 ( P RF(NZ) OPE900 FILE OPENED EXCLUSIVE 4 P LC A2,FDBOMD,A11 OPEN MODE 4 P ANK A2,/7F NOT FILE
0x0e3f0c…0e40a0 Dummy {f00=0x0043, f01=0x0190, f02=» VIOLATION OF SHAREBILITY ROULES 4 | P RF RETA14 5 ( P* 5 : P EJECT ADMTSK 5 D P* 5 Z P* 5 d P********** 5 n P* DBLMUL * 5 P********** 5 P* 5 P* DOUBLE MULTIPLY 5 P* 5 P* INPUT : A4 = ARG1 5 ( P* A13=
0x0e40a0…0e4234 (1, 132) Dummy {f00=0x0043, f01=0x0190, f02=»SULT 5 z P* 6 PDBLMUL EQU * 6 P LDR A6,A4 ARG1 6 * " P LDR* A7,A13 1ST PART OF ARG2 6 B P RF(Z) DBLM10 6 h P CF A14,MPYMOD 6 ~ P ADK A1,0 6 P RF(NZ) SETOVE OVERFLOW 6 P STR A2,A13 6 PDBLM10 EQU * 6 P LDK A1,0 6 P LDK A2,
0x0e4234…0e43c8 Dummy {f00=0x0043, f01=0x0190, f02=»E OVERFLOW 6 P* 7 P EJECT ADMTSK 7 P* 7 2 P* 7 < PDBLM30 EQU * 7 F P ST A2,2,A13 7 Z P STR A1,A13 SAVE RESULT 7 n PRETA14 EQU * 7 P ABL RTNA14 RTN A14 7 PSETOVE EQU * 7 & P ABL SETCRO RTN A14 (SET OVERFLOW) 7 P* 7 P I
0x0e43c8…0e455c Dummy {f00=0x0043, f01=0x018e, f02=»* CREATE FILE FORE OPEN OUTPUT 7 P* 8 ( P* INPUT : A8=ECB ADDRESS 8 2 8 P* OUTPUT: A1=RC FROM OPEN CR SET ACCORDING TO A1 8 V 2 P* A4=NUMBER OF SECTORS PER RECORD 8 6 P* A2,A3,A4,A5,A6,A7,A13,A12 ARE USED 8 0 P*
0x0e455c…0e46f0 Dummy {f00=0x0043, f01=0x0190, f02=» 8 r P LDR A13,A12 FDB ADDRESS 9 $ P ADKL A13,FPB:S1 ADDRESS TO SIZE 9 ( PCREF10 EQU * 9 P & P CF A14,DBLMUL NUMBER OF SECTTORS 9 d P RB(N) SETOVE OVERBLOW 9 PCREF15 EQU * 9 P LDR A6,A1 NUMBER OF SECTORS 9 P LDR A7,A2 9 $ P CF A14,DV3RST RES
0x0e46f0…0e4884 Dummy {f00=0x0043, f01=0x0190, f02=»OVE OVERBLOW 9 P STR A1,A13 INTO FPB : P ST A2,2,A13 : 0 & P RB CREF15 CHECK IF MULTIPLE OF 3 : D P* : n P EJECT ADMTSK : x P* : P* : PCREF18 EQU * : P ADKL A13,10 : P SUK A5,1 : P RB(P) CREF10 NEXT SIZE : P CF A14,ENLF
0x0e4884…0e4a18 Dummy {f00=0x0043, f01=0x0190, f02=»OR : ~ P LDR* A2,A8 DATA FILE NUMBER ; P SC A2,FPB:NO,A12 ; . P XIF ; H P* ; T P EJECT ADMTSK ; ^ P* ; t P* ; ~ P********** ; P* SETFDB * ; P********** ; P* ; B P* SET FDB PARAMETERS FDBENL,FDBOMD,FDBEXC,FDBLRN AND FDBRLE ;
0x0e4a18…0e4bac Dummy {f00=0x0043, f01=0x0190, f02=»DB EQU * ; P ST A3,FDBENL,A11 ENLARGE < * P LD A2,DWTOR,A10 OPEN MODE AND OPTION < 2 ( P SC A2,FDBOMD,A11 INDICATE OPEN MODE < ` $ P SLL A2,6 EXCLUSIVE ACCES WANTED < P RF(NN) SETF25 NO < P LD A1,DWTTAB,A10 < PSETF25 EQU * < 0 P ST A1,FDBEX
0x0e4bac…0e4d40 Dummy {f00=0x0043, f01=0x0190, f02=»DBLRN+1,A11 < ( P LD A2,FPB:RL,A12 GET RECORD LENGTH = P RF(NZ) SETF30 NOT L-FILE = @ ( P LDKL A2,LFILEN L-FILE RECORD LENGTH = b PSETF30 EQU * = P ST A2,FDBRLE,A11 = P LDK A1,0 = PRETUR EQU * = P RB RETA14 = P* = P IFT CRDEE
0x0e4d40…0e4ed4 (1, 133) Dummy {f00=0x0043, f01=0x0190, f02=»AT FILE = P* > " P* INPUT : A8 = ECB ADDRESS > " P* A11= FDB ADDRESS > @ P* > f P* OUTPUT: > p 0 P* A1,A2,A4,A5,A6,A7,A13 ARE USED > P* > PFORFIL EQU * > * P CF A14,GETLRN GET LAST RECORD NUMBER > P LDR
0x0e4ed4…0e5068 Dummy {f00=0x0043, f01=0x0190, f02=»F A4</FF > P ADK A5,1 ? PFORF20 EQU * ? " P STR A5,A13 TO ECBCW ? 6 P ST A6,2,A13 ? R P CF A14,ADMWFO ? f P RB(Z) FORF10 FILE NOT READY ? | & P ANKL A1,/1FF NOT END OF FILE BITS ? P ST A1,ECBRC,A8 ? P RF ADMI10 ? P* ? P XIF ?
0x0e5068…0e51fc Dummy {f00=0x0043, f01=0x018e, f02=»TINES ? P* @ 8 P* OUTPUT: CR SET ACCORDING TO RC EXCEPT RETRY BIT @ P* @ T " P* INPUT : A8= ECB ADDRESS @ ^ $ P* (A10 = FDB ADDRESS) @ " P* A1,A2,A7 ARE USED @ P* @ PADMWFO EQU * FORMAT FILE @ P LDK A7,/95
0x0e51fc…0e5390 Dummy {f00=0x0043, f01=0x0190, f02=» @ P IFT MMUPAG=1 A ( P LDK A1,0 BIT 0,1 OF 18 BIT ADDRESS A P XIF A J P RF ADM:IO A V P* A h PADMWRI EQU * A r P LD A7,FDBOMD,A10 FILE TYPE A P RF(N) ADMW10 L OR X FILE A " P LD A7,ECBBA,A9 BUFFER ADDRESS A " P AD A7,ECBRL,A8 END OF
0x0e5390…0e5524 Dummy {f00=0x0043, f01=0x0190, f02=»RD USED A v P XIF B P IFT MMUPAG=1 B ( P LD A2,DWTTAB,A10 USER TTAB ADDRESS B 2 P TL TTB:MT,A2 USER MMU TABLE B ^ ( P EL A2,-2,A7 GET LAST WORD OF BUFFER B P ORK A2,/FF SET RECORD BUSY B P ES A2,-2,A7 B P TL MONMMU MONITOR MMU TABLE B
0x0e5524…0e56b8 Dummy {f00=0x0043, f01=0x018e, f02=»BA * B P********** C P* C & P* INPUT : A8 = ADM ECB ADDRESS C ( ( P* A9 = USER ECB ADDRESS C R " P* A10 = FDB ADDRESS C ~ P* C . P* OUTPUT: A1 = RC CR SET ACCORDING T A1 C P* A2,A7 ARE USED C P* C
0x0e56b8…0e584c Dummy {f00=0x0043, f01=0x0190, f02=» * P LD A1,ECBBA,A9 16 BIT BUFFER ADDRESS D P DRL 12 D 2 P SLL A1,1 PAGE ADDRESS D B P AD A1,DWTTAB,A10 D ` * P LD A1,TTB:MT,A1 MOST SIGNIFICANT BITS D z P SRL A1,10 D P DRL 4 D P SLL A1,4 D P* D P EJECT ADMTSK D P* D P****
0x0e584c…0e59e0 Dummy {f00=0x0043, f01=0x018e, f02=» ( P* A8 = ADM ECB ADDRESS E P* E 0 P XIF E : PADM:IO EQU * E F P ST A2,ECBBA,A8 ADM ECB E Z P IFT MMUPAG=1 E z P SCR A1,A8 BIT 0,1 E P XIF E P LKM E P DATA 15 E PADMI10 EQU * E P LD A1,ECBRC,A8 RETURN CODE E
0x0e59e0…0e5b74 (1, 134) Dummy {f00=0x0044, f01=0x0190, f02=» E P* F P EJECT ADMTSK F P* F ( P********** F 2 P* ADMOPE * F D P* ADMRFP * F V P* ADM:AF * F h P********** F z P* F * P* OPEN FILE AND READ FILE PARAMETERS F P* F 6 P* OUTPUT: A1= ERROR CODE CR SET ACCORDING TO A1 F P
0x0e5b74…0e5d08 Dummy {f00=0x0044, f01=0x0190, f02=»ADMOPE EQU * F & P SUR A11,A11 INDICATE NO OPEN DONE G P CF A14,ADM:AF G > P IFT CRDEEX=1 G T P RB(NZ) RETUR ERROR G j P XIF G P IFT CRDEEX=0 G P RB(NZ) RETA14 G P XIF G P LDR* A1,A8 FILE NUMBER G P ANK A1,/FF G " P LDKL A11,
0x0e5d08…0e5e9c Dummy {f00=0x0044, f01=0x4120, f02=»XT FWT G 2 P ANKL A11,/FFFE BIT 15 USED BY FILE MANAGEMENT H 0 PADMRFP EQU * READ FILE PARAMETERS TO ADMBUF H D P LDK A7,/83 H x PADM:AF EQU * H & P LDR A2,A12 ADM BUFFER ADDRESS + 8 H P RB ADMI00 H P* H P EJECT ADMTSK H P* H P*
0x0e5e9c…0e6030 Dummy {f00=0x0044, f01=0x2008, f02=» I RROR END @
0x0e6030…0e61c4 Dummy {f00=0x0044, f01=0x0190, f02=»2,A11 I & P CF A14,FRMFIL FORMAT REST OF FILE J $ P ORS A1,ECBRC,A9 SET RETURN CODE J 8 P RF SDMC30 J ` PSDMC20 EQU * J r ( P CF A14,SDMRLB RELEASE BLOCK BUFFER J PSDMC30 EQU * J P* J P* CLEAR CURRENCY J P* J & P CF A14,CRNGET GET C
0x0e61c4…0e6358 Dummy {f00=0x0044, f01=0x0190, f02=» P CM CRNCIF,A2 K P CM CRNCIF+2,A2 K P XIF K 2 P EJECT K > P* K L P* BUILD CLOSE TABLES K V P* K t P LC A7,ECBFC,A9 FILE CODE K ~ P LDK A5,10 2 * FILES K PSDMC40 EQU * K P SUK A5,2 K P RF(N) SDMC60 ALL FILES K P LDR A
0x0e6358…0e64ec Dummy {f00=0x0044, f01=0x0190, f02=»F,A4 FDB ADDR K P RF(Z) SDMC50 NO FILE L & P LD A6,FDBMIA,A3 MASTER INDEX ADDR L 4 P LC A2,FWTFNR,A3 FILE NR L ^ P LC A9,FDBLRN,A3 LAST REC NR L ~ P LD A10,FDBLRN+1,A3 L PSDMC50 EQU * L P ST A6,OPEMXI,A5 L P ST A3,OPEFWT,A5 L P LDR A
0x0e64ec…0e6680 Dummy {f00=0x0044, f01=0x018e, f02=»REC NR L z P ST A10,OPELRN+2,A4 M P RB SDMC40 NEXT FILE M * P EJECT M F PSDMC60 EQU * M T P SC A7,OPEFCD FILE CODE M h P* M P* A11=MAIN FDB ADDRESS M P* M $ POPEER1 EQU * RECOVERY AT ERRORS M * P LC A2,DWTOR+1,A11 ORDER CODE INTERNAL
0x0e6680…0e6814 (1, 135) Opaque[0x194]
0x0e6814…0e69a8 # DirEnt {nam=»ARITMS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0888, f03=0x0000}
0x0e6814…0e69a8 IdxSect {
0x0e6814…0e69a8 f00 = 0x0044 // 0xe6814 @0x0
0x0e6814…0e69a8 f01 = 0x0008 // 0xe6816 @0x2
0x0e6814…0e69a8 gno = [ // 0xe6818 @0x4
0x0e6814…0e69a8 [0x00]: C0x0044.0x1.0
0x0e6814…0e69a8 [0x01]: C0x0044.0x2.0
0x0e6814…0e69a8 [0x02]: C0x0044.0x3.0
0x0e6814…0e69a8 [0x03]: C0x0045.0x0.0
0x0e6814…0e69a8 ]
0x0e6814…0e69a8 }
0x0e69a8…0e6b3c Dummy {f00=0x0044, f01=0x018e, f02=» 2 P IDENT ARITMS REL 11.0 81-04-02 870105041100 P : . P =1,MPYMOD DESTROYED A3 WHEN MULT WITH 0 B P =1,REL 11.0 81-01-26 t P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x0e6b3c…0e6cd0 Dummy {f00=0x0044, f01=0x0190, f02=» P* P* 8 P**************************************************** < P* THIS MODULE EXECUTES THE DOUBLE ADDITION INSTRUCTION X P* P* CALLING SEQUENCE: P* CF A14,ADDMOD P* P* INPUT: A1,A2 = ARG1 P*
0x0e6cd0…0e6e64 Dummy {f00=0x0044, f01=0x0190, f02=» 8 P**************************************************** P* @ @ P* THIS ROUTINE EXECUTES THE DOUBLE SUBTRACTION INSTRUCTION J P* P* CALLING SEQUENCE: P* CF A14,DSUMOD P* P* INPUT: A1,A2 = ARG1 P* A
0x0e6e64…0e6ff8 Dummy {f00=0x0044, f01=0x0190, f02=»************************************ P* , 6 P* THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION 6 P* CALLING SEQUENCE: p P* CF A14,MPYMOD P* P* INPUT: A6 = ARG1 P* A7 = ARG2 P* P* OUTPUT: A1,A2
0x0e6ff8…0e718c Dummy {f00=0x0044, f01=0x0190, f02=»E DIVIDE INSTRUCTION v P* P* CALLING SEQUENCE & P* CF A14,DIVMOD @ P* X " P* INPUT: A1,A2 = DIVIDENT b P* A6 = DIVISOR P* " P* OUTPUT: A1 = REMAINER " P* A2 = QUOTIENT P*
0x0e718c…0e7320 Dummy {f00=0x0044, f01=0x0190, f02=» P* P* . P***************************************** P* N P* CONDITIONAL ASSEMBLY X P* v . P***************************************** P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED
0x0e7320…0e74b4 (1, 136) Dummy {f00=0x0044, f01=0x018e, f02=» z P* PX:A EQU 0 PMPYDIV EQU X:A $ P* : P* D 6 PSETCR EQU /1200 ADK A2,0 ;SET CR WITHOUT OVERFLOW N : PSETCRO EQU /9A09 NGR A2,A2 ;SET CR INCLUDING OVERFLOW P* P EJECT P* P* P IFT CPU852=0 P
0x0e74b4…0e7648 Dummy {f00=0x0044, f01=0x0190, f02=» P* PDSUMOD EQU * P ADKL A14,4 STACK POINTER " P DSR A6 D ( P ABR* A14 RETURN WITH CONDITIONS SET T P XIF P IFT CPU852=1 PADDMOD EQU * P ANKL A7,/7FFF P ANKL A2,/7FFF P ADR
0x0e7648…0e77dc Dummy {f00=0x0044, f01=0x0190, f02=» END1 P RF(N) END2 P RF(O) END3 , PANOVR1 ADK A2,0 J P RF(Z) END0 h P RF END1 PAOVER1 ANKL A2,/7FFF P ADK A1,1 P RF(O) AOVER3 P RB ANOVER P
0x0e77dc…0e7970 Dummy {f00=0x0044, f01=0x018e, f02=» P* P EJECT ADDMOD P* $ P* . PEND3 EQU * OVERFLOW 8 P LDK A7,/80 T PEND2 EQU * NEGATIVE h P ADK A7,/80 PEND1 EQU * POSITIVE P ADK A7,/80 PEND0 EQU * ZERO P SLL A7,1 P LDKL A6,/FCFF * P
0x0e7970…0e7b04 Dummy {f00=0x0044, f01=0x0190, f02=» P* P* PDSUMOD EQU * P C1R A6,A6 0 P C1R A7,A7 P P ANKL A7,/7FFF p P ANKL A2,/7FFF P ADK A7,1 P RF(P) DNOVR1 P ADK A6,1
0x0e7b04…0e7c98 Dummy {f00=0x0044, f01=0x0190, f02=» A1,A6 PDNOVR2 EQU * P LDK A7,0 & P RB(P) END1 8 P RB(N) END2 L P RB(O) END3 j P ADK A2,0 P RB(Z) END0 P RB END1 PDOVER1 ANKL A2,/7FFF P ADK
0x0e7c98…0e7e2c Dummy {f00=0x0044, f01=0x0190, f02=» A1,0 P RB DNOVR2 P* $ P XIF . P IFT MPYDIV=0 : P IFT CPU852=1 P P EJECT f PMPYMOD EQU * t P ST A3,2,A14 SAVE A3 $ P ADKL A14,4 UPDATE STACK POINTER P LDK A1,0 CLEAR RESULT P LDK A2,0 P
0x0e7e2c…0e7fc0 Dummy {f00=0x0044, f01=0x018e, f02=» GET SIGN P ANKL A3,/8000 SIGN BIT P ORK A3,16 BIT COUNTER 2 P ADK A7,0 P P RF(Z) END000 RESULT=0 =1 b P RF(NN) ARG2PS ARG2 POSITIVE P NGR A7,A7 PARG2PS SRC A7,1 P RF(NN) MNOVR1 BIT NOT SET P ADR
0x0e7fc0…0e8154 (1, 137) Dummy {f00=0x0044, f01=0x0190, f02=» P SRC A1,1 P RB(NN) ARG2PS " P ORKL A2,/8000 8 P ANKL A1,/7FFF Z P RB ARG2PS | P* P EJECT MPYMOD P* P* PEND000 EQU * =1 P LDK A3,0 SET SIGN =1 PMNOVR2 EQU *
0x0e8154…0e82e8 Dummy {f00=0x0044, f01=0x0190, f02=»1,A1 RESET A1 P SRL A2,1 A2 IN POSITION P ADK A6,0 6 P RF(NN) END POSITIVE H ( P NGR A2,A2 CHANGE RESULT TO NEGATIVE d P RF(O) MNOVR4 P RF(N) MNOVR4 P SUK A1,1 PMNOVR4 EQU * P ANKL A2,/7FFF P C1R A1,A1
0x0e82e8…0e847c Dummy {f00=0x0044, f01=0x0190, f02=»2,1 4 P ADK A1,0 *SIGN OF DIVIDEND P RF(NN) DIVENP D . P ORKL A3,/A000 INDICATE NEGATIVE DIVIDENT f P C1R A1,A1 P C1R A2,A2 P ADK A2,1 P RF(NZ) DIVENP
0x0e847c…0e8610 Dummy {f00=0x0044, f01=0x0190, f02=» P RF(Z) ENDOVE OVERFLOW P RF(NN) DIVORP " . P XRKL A3,/C000 NEG DIVISOR,SIGN OF RESULT D P NGR A6,A6 v P RF(O) DV8000 A6=/8000 P* P EJECT DIVMOD P* P* PDIVORP EQU * P CWR A1,A6 P RF(G) E
0x0e8610…0e87a4 Dummy {f00=0x0044, f01=0x0190, f02=» ADK A1,0 P RF(N) DVR100 NEGATIVE P CWR A1,A6 0 P RF(L) DVR200 TOO SMALL B PDVR100 EQU * b P SUR A1,A6 DIVIDE v P ORK A2,1 RESULT PDVR200 EQU * P SUK A3,1 BIT COUNTER P CCK A3,0 P RF(Z) END:00 ALL BITS DONE
0x0e87a4…0e8938 Dummy {f00=0x0044, f01=0x0190, f02=» P RB DVR000 NEXT P* P EJECT DIVMOD & P* < P* F 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS P P* PDV8000 EQU * P XRR A1,A2 P XRR A2,A1 P XRR A1,A2 P SRL A1,1 PEND:00 EQU * SET SIGN
0x0e8938…0e8acc Dummy {f00=0x0044, f01=0x0190, f02=»TIVE v PEND:05 EQU * P NGR A1,A1 DIVIDENT NEGATIVE PEND:10 EQU * D P NGR A2,A2 X P LD A3,2,A14 RESTORE A3 j $ P ADKL A14,4 UPDATE STACK POINTER P EXR A6 SET CR P ABR* A14 PENDOVE EQU * $ P LDKL A2,/8000 INDICATE OV
0x0e8acc…0e8c60 Dummy {f00=0x0044, f01=0x0190, f02=»POSITIVE x P RB END:05 P XIF " P IFT MPYDIV=0 . P IFT CPU852=0 D P EJECT Z PMPYMOD EQU * h $ P ADKL A14,4 UPDATE STACK POINTER | P LDR A2,A7 P MUR A6 P ABR* A14 P EJECT PDIVMOD EQU * $ P ADKL A14,4 UP
0x0e8c60…0e8df4 (1, 138) Dummy {f00=0x0045, f01=0x4062, f02=»QU * P LDK A1,/11 P CF A15,HALT P XIF 4 P* @ P END J@ ^
0x0e8df4…0e8f88 Dummy {f00=0x0045, f01=0x2008, f02=» ANK.L A3,/0300 P LDK.L A4,/FCFF * P AN.S A4,2,A14 L B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM n P RTN A14 P END @ D1 P RB(7) NO
0x0e8f88…0e911c Dummy {f00=0x0045, f01=0x2008, f02=» 8
0x0e911c…0e92b0 Dummy {f00=0x0045, f01=0x0190, f02=» @ T > A P A < V A ? ? ? ? ? ^ A _ _ ^ ? ? ? Bp $P T I R $ 5 % ^ JW ^ W ^ T T U U U U T U W , , 4 T - 1_& U T P 0 U P P _n ? @B T & 0 A
0x0e92b0…0e9444 Dummy {f00=0x0045, f01=0x0190, f02=» @ P $ H W W > > > > > > > > @ rV ? r > _ > ? _ > > ? ^ ! Y ^ _ & ^ A. . #M 1 $$ 0~ B J B B A ^ W U
0x0e9444…0e95d8 Dummy {f00=0x0045, f01=0x0190, f02=» X '@T Y X ' T P - 2WJ Y @ N d Y X # P _ X &P y &W & - B Y & X Z ;BR Y X U @ 4X. U U T T U 5 U B ;h # <c$ Xh B ^n Xt B ]| "X " X #` @P"
0x0e95d8…0e976c Dummy {f00=0x0045, f01=0x0190, f02=» W Y , W , B X " T , 8% =A T W ? X &P y & Y & > > ^ " 4TN $ X $ # ; < TX U P S W , 5 U T Y P X P P _ ] W Q Y _. X Y $ h D P XJ Y E Y Y
0x0e976c…0e9900 Dummy {f00=0x0045, f01=0x0190, f02=»
0x0e9900…0e9a94 (1, 139) Opaque[0x194]
0x0e9a94…0e9c28 # DirEnt {nam=»CTABC0«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a8, f03=0x0000}
0x0e9a94…0e9c28 IdxSect {
0x0e9a94…0e9c28 f00 = 0x0045 // 0xe9a94 @0x0
0x0e9a94…0e9c28 f01 = 0x0002 // 0xe9a96 @0x2
0x0e9a94…0e9c28 gno = [ // 0xe9a98 @0x4
0x0e9a94…0e9c28 [0x00]: C0x0045.0x1.0
0x0e9a94…0e9c28 ]
0x0e9a94…0e9c28 }
0x0e9c28…0e9dbc Dummy {f00=0x0045, f01=0x018e, f02=» 2 P IDENT CTABC0 REL 11.0 81-01-26 870105041100 P : * B > 9********************************************************* L * * , (* STANDARD CONVERSION TABLE FOR CREBUG * * > 9**********************************
0x0e9dbc…0e9f50 Dummy {f00=0x0045, f01=0x4140, f02=» SHIFT DATA 0,0,0,0,S4,S5,0 * & < 7U2 DATA /2021,/2223,/2425,/2627,/2829,/2A2B,/2C2D,/2E0D 0 < 7U5 DATA /5051,/5253,/5455,/5657,/5859,/5A0A,/5C2F,/5E5F p < 7S4 DATA /4061,/6263,/6465,/6667,/6869,/6A6B,/6C6D,/6E6F < 7S5 DATA /7071,/7273,/747
0x0e9f50…0ea0e4 Dummy {f00=0x0045, f01=0x2008, f02=» S5,0 * < 7U2 DATA /2021,/2223,/2425,/2627,/2829,/2A2B,/2C2D,/2E0D < 7U5 DATA /5051,/5253,/5455,/5657,/5859,/5A0A,/5C2F,/5E5F ^ < 7S4 DATA /4061,/6263,/6465,/6667,/6869,/6A6B,/6C6D,/6E6F < 7S5 DATA /7071,/7273,/7475,/7677,/7879,/7A7
0x0ea0e4…0ea278 Dummy {f00=0x0045, f01=0x2008, f02=»
0x0ea278…0ea40c Dummy {f00=0x0045, f01=0x0190, f02=»IOPCO' IS USED FOR MOVING THE DATA. k P* l , P* INPUT: A6 = DWT ADDRESS l 6 P* l X & P* OUTPUT: A1-A4, A8 ARE DESTROYED l b P* l 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT l $ P LD A8,DWTECB,A6 DWT ECB ADDRESS l $ P LD A3,ECBEL,A8 EFFECT
0x0ea40c…0ea5a0 Dummy {f00=0x0045, f01=0x0190, f02=» l PTEIO10 RTN A15 m P* m P EJECT TOSSIO m ( P* m @ P* D C : M O T m J P* m ` < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER m j < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO m < P* THE DRIVER BUFFER. THE MOVE
0x0ea5a0…0ea734 (1, 140) Opaque[0x194]
0x0ea734…0ea8c8 # DirEnt {nam=»DCADDR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x0ea734…0ea8c8 IdxSect {
0x0ea734…0ea8c8 f00 = 0x0045 // 0xea734 @0x0
0x0ea734…0ea8c8 f01 = 0x000a // 0xea736 @0x2
0x0ea734…0ea8c8 gno = [ // 0xea738 @0x4
0x0ea734…0ea8c8 [0x00]: C0x0045.0x2.0
0x0ea734…0ea8c8 [0x01]: C0x0045.0x3.0
0x0ea734…0ea8c8 [0x02]: C0x0046.0x0.0
0x0ea734…0ea8c8 [0x03]: C0x0046.0x1.0
0x0ea734…0ea8c8 [0x04]: C0x0046.0x2.0
0x0ea734…0ea8c8 ]
0x0ea734…0ea8c8 }
0x0ea8c8…0eaa5c Dummy {f00=0x0045, f01=0x0190, f02=» 0 P IDENT DCADDR REL 11.0 81-01-26 870105041100 * 8 4 /*********************************************** B * z " * PHILIPS TERMINAL SYSTEM PTS * 0 P* DC:ADR : ADDRESS TRANSLATION ROUTINES FOR * &* DATA COMMUNICATION SO
0x0eaa5c…0eabf0 Dummy {f00=0x0045, f01=0x0190, f02=»************************* z * " * PROGRAM DESCRIPTION , * J : 5* FOLLOWING SUBROUTINES CAN BE FOUND IN THIS MODULE : T * 2 -* FNDDNA : FINDS A DTE NETWORK ADDRESS FROM A $ P* SYMBOLIC DTE ADDRESS * 2 -* FN
0x0eabf0…0ead84 Dummy {f00=0x0045, f01=0x0190, f02=»LATES A SYMBOLIC DTE ADDRESS INTO A " * DTE NETWORK ADDRESS , * R 6 P* GETDNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A 8 4* SPECIFIED TYPE INTO A DTE NETWORK ADDRESS * 6 2* GETDSA : TRANSLATES A DTE NETWORK ADDRESS
0x0ead84…0eaf18 Dummy {f00=0x0045, f01=0x0190, f02=» SPECIFIED ` 0 P* TYPE INTO A SYMBOLIC DTE ADDRESS * F 6 P* GETSNA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A P > :* SYMBOLIC SUB-ADDRESS INTO A NETWORK SUB-ADDRESS * 6 P* GETSNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A
0x0eaf18…0eb0ac Dummy {f00=0x0045, f01=0x0190, f02=»RANSLATES A SYMBOLIC DTE ADDRESS AND A > :* NETWORK SUB-ADDRESS INTO A SYMBOLIC SUB-ADDRESS . * p @ ;* GETSST : TRANSLATES A SYMBOLIC DTE ADDRESS OF A SPECIFIED z > 9* TYPE AND A NETWORK SUB-ADDRESS INTO A SYMBOLIC *
0x0eb0ac…0eb240 Dummy {f00=0x0045, f01=0x018e, f02=»TRIES * ENTRY FNDDNA ENTRY FNDDNT . ENTRY GETDNA D ENTRY GETDNT Z ENTRY GETDSA p ENTRY GETDST ENTRY GETSNA ENTRY GETSNT ENTRY GETSSA ENTRY GETSST * P*
0x0eb240…0eb3d4 (1, 141) Dummy {f00=0x0045, f01=0x0190, f02=» b * P EXTRN RETUR8 RELOAD A1-A8 AND RETURN 2 P EXTRN IHRET8 RELOAD A1-A8 AND RETURN INHIBIT 6 P* l P EJECT v * & !* CONDITIONAL ASSEMBLY PARAMETERS * ( $X:A EQU 1 SUB-ADDRESSING SUPPORTED ? SUBADR EQU X:A 0=NO 1=YES
0x0eb3d4…0eb568 Dummy {f00=0x0045, f01=0x0190, f02=»NTRY INDICATORS DN EQU 1 SS EQU 2 ( SN EQU 3 8 * H EJECT R * ` * j 4 /* ROUTINES TO GET A SYMBOLIC DTE ADDRESS FROM A t $ * DTE NETWORK ADDRESS (AND TYPE) * 6 1******************************************
0x0eb568…0eb6fc Dummy {f00=0x0045, f01=0x0190, f02=»ING DTE NETWORK ADDRESS z ( $* A3 = TYPE (ONLY FOR GETDST ENTRY) * L * CALLING SEQUENCES : V * CF A15,GETDSA t * CF A15,GETDST * * OUTPUT PARAMETERS : B P* A1 = SYMBOLIC DTE ADDRESS(OR -1 IF INVALID ADDRESS OR TYP
0x0eb6fc…0eb890 Dummy {f00=0x0045, f01=0x0190, f02=»15 SAVE REG. A1-A8 P XIF P IFT CPU852=1 & " CF A15,SAVE8 SAVE REG. A1-A8 < P XIF b $ SUR A3,A3 CLEAR TYPE INDICATOR n RF GET090 GETDST EQU * P IFT CPU852=0 P MSR 8,A15 P XIF P IFT CPU852=1 C
0x0eb890…0eba24 Dummy {f00=0x0045, f01=0x0190, f02=»A5,-1 RESET TYPE COUNTER 6 P LDKL A8,SCTDCT POINTER TO DC ADDRESS TABLE ENTRY GET110 EQU * Z LDR* A8,A8 MORE ENTRIES ? n RF(Z) GET330 NO ADK A3,0 TYPE SPECIFIED ? RF(Z) GET120 NO CW A3,4,A8 TYPE FOUND ? RB(NE
0x0eba24…0ebbb8 Dummy {f00=0x0045, f01=0x0190, f02=»A/GETDST ENTRY ? P RF(NZ) GET220 NO P* 2 P* TEST ON ADDRESS LENGTH < P* P CC A1,6,A8 SAME ? f P RB(NE) GET110 NO,TAKE NEXT P* P EJECT * P* GET ADDRESS PARAMETERS P* P ADK A1,1 CONVERT..
0x0ebbb8…0ebd4c Dummy {f00=0x0045, f01=0x0190, f02=»6,7 ..FIND LAST OCTET OF.. P ADR A6,A1 ..NETWORK ADDRESS " . P ADR A2,A1 POINTER TO LAST OCTET IN BUFFER F P LDR A7,A1 SAVE LENGTH x P* " * COMPARE DTE NETWORK ADDRESS * GET130 EQU * P SUK A1,1 LAST ONE ? P RF(N) G
0x0ebd4c…0ebee0 Dummy {f00=0x0045, f01=0x018e, f02=» CCR A4,A2 COMPARE WITH DRIVER BUFFER P RB(E) GET130 EQUAL . P* J P EJECT T * b * COMPARED OCTETS NOT EQUAL l * PGET140 EQU * P SUR A7,A1 FIRST ONE ? P SUK A7,1 . P RF(NZ) GET150 NO $ P ADK A4,0 SEMI
0x0ebee0…0ec074 (1, 142) Dummy {f00=0x0046, f01=0x0190, f02=» " P ANK A1,/F0 MAKE IT SEMI-OCTET P CWR A4,A1 EQUAL ? * P RF(E) GET160 YES D PGET150 EQU * ^ P LC A1,6,A8 RELOAD LENGTH r & ! LDK A4,DS RELOAD ENTRY INDICATOR RB GET110 TRY NEXT * * COMMON EXIT ROUTINE *
0x0ec074…0ec208 Dummy {f00=0x0046, f01=0x0190, f02=» * % ST A5,12,A15 SAVE TYPE COUNTER IN A3 PGET180 EQU * 6 ST A1,16,A15 SAVE A1 J P IFT CPU852=0 h P ABL RETUR8 RETURN TO CALLER ~ P XIF P IFT CPU852=1 P LD A1,18,A15 GET PSW P ANK A1,/40 ENABLE MODE ? P ABL
0x0ec208…0ec39c Dummy {f00=0x0046, f01=0x0190, f02=»O FIND OR GET A DTE NETWORK ADDRESS FROM A * %* SYMBOLIC NETWORK ADDRESS (AND TYPE) 2 * ` : 6****************************************************** j * * INPUT PARAMETERS : * A1 = SYMBOLIC DTE ADDRESS * %* A2 = BUFFER (ONLY I
0x0ec39c…0ec530 Dummy {f00=0x0046, f01=0x0190, f02=»F A15,FNDDNT * CF A15,GETDNA * CF A15,GETDNT , * D * OUTPUT PARAMETERS : N 8 4* A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS l < P* (OR -1 IF ILLEGAL SYMBOLIC DTE ADDRESS OR TYPE) : P* A2 = NEXT FREE ADDRESS IN BUF
0x0ec530…0ec6c4 Dummy {f00=0x0046, f01=0x0190, f02=»NOT CHANGED) b * FNDDNT EQU * P IFT CPU852=0 2 P MSR 8,A15 SAVE REG. A1-A8 H P XIF j P IFT CPU852=1 v " CF A15,SAVE8 SAVE REG. A1-A8 P XIF $ SUR A2,A2 CLEAR BUFFER ADDRESS RF GET210 P* P EJECT
0x0ec6c4…0ec858 Dummy {f00=0x0046, f01=0x018e, f02=»IF $ P SUR A2,A2 CLEAR BUFFER ADDRESS RF GET200 2 GETDNT EQU * D P IFT CPU852=0 X P MSR 8,A15 n P XIF P IFT CPU852=1 CF A15,SAVE8 P XIF RF GET210 GETDNA EQU * P IFT CPU852=0 P MSR 8,A
0x0ec858…0ec9ec Dummy {f00=0x0046, f01=0x0190, f02=» GET210 EQU * " LDK A4,DN SET ENTRY INDICATOR RB GET100 RUN > P* T P EJECT ^ P* l * TEST ON SYMBOLIC ADDRESS v * GET220 EQU * CW A1,2,A8 FOUND ? RB(NE) GET110 NO P* P* GET ADDRESS PARA
0x0ec9ec…0ecb80 Dummy {f00=0x0046, f01=0x0190, f02=»ERT LENGTH.. P SRC A7,1 ..INTO.. P ANK A7,/7F ..OCTETS . * P LDR A6,A8 GET ADDRESS WHERE TO FIND.. J P ADK A6,7 ..NETWORK ADDRESS x P IFT SUBADR=1 * * TEST ON ENTRY * $ P SUK A4,SS ...DNA/...DNT ENTRY ? R
0x0ecb80…0ecd14 (1, 143) Dummy {f00=0x0046, f01=0x0190, f02=»JECT P* P* SAVE PARAMETERS P* 0 PGET230 EQU * : $ P ST A2,14,A15 SAVE NEXT ADDRESS N P RB GET170 EXIT v P* * GET NETWORK ADDRESS * PGET240 EQU * P SUK A7,1 READY ? P RB(N) GET230 YES P
0x0ecd14…0ecea8 Dummy {f00=0x0046, f01=0x0190, f02=»UBADR=1 EJECT * * ( 4 /* ROUTINES TO GET A SYMBOLIC SUB-ADDRESS FROM A 2 6 2* SYMBOLIC DTE ADDRESS (OF A SPECIFIED TYPE) AND A j * NETWORK SUB-ADDRESS * 8 4****************************************************
0x0ecea8…0ed03c Dummy {f00=0x0046, f01=0x0190, f02=»ST ENTRY) v * * CALLING SEQUENCE : * CF A15,GETSSA 8 * CF A15,GETSST P * h * OUTPUT PARAMETERS : r : P* A1 = SYMBOLIC SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC 4 P* DTE ADDRESS,TYPE OR NETWORK SUB-ADDRESS) D ?*
0x0ed03c…0ed1d0 Dummy {f00=0x0046, f01=0x0190, f02=» P XIF P IFT SUBADR=1 P IFT CPU852=1 & " CF A15,SAVE8 SAVE REG. A1-A8 < P XIF b P IFT SUBADR=1 n RF GET300 P* P EJECT P* GETSSA EQU * P IFT CPU852=0 P MSR 8,A15 P XIF P IFT SUB
0x0ed1d0…0ed364 Dummy {f00=0x0046, f01=0x0190, f02=»00 EQU * " LDK A4,SS SET ENTRY INDICATOR PGET305 EQU * 6 RB GET100 RUN J * ` * TEST ON ENTRY j * GET310 EQU * " P ADR A6,A7 GET # OF ENTRIES IN " P LCR A7,A6 ..SUB-ADDRESS TABLE P LDR A4,A4 * P RF(NZ) GE
0x0ed364…0ed4f8 Dummy {f00=0x0046, f01=0x0190, f02=»OR b GET320 EQU * ADK A6,1 NEXT ENTRY , ( CCR A2,A6 COMPARE NETWORK SUB-ADDRESSES : P RB(E) GET170 EXIT ! j ( # ADK A1,1 STEP SYMBOLIC SUB-ADDRESS P SUK A7,1 MORE ENTRIES ? RB(P) GET320 YES P XIF P* P EJECT
0x0ed4f8…0ed68c Dummy {f00=0x0046, f01=0x018e, f02=»TSSA EQU * PGETSST EQU * P XIF & GET330 EQU * 2 LDKL A1,-1 ERROR INDICATION F P RB GET180 EXIT j * P IFT SUBADR=1 EJECT * * 2 .* ROUTINES TO GET A NETWORK SUB-ADDRESS FROM A 4 0* SYMBOLIC DTE
0x0ed68c…0ed820 Dummy {f00=0x0046, f01=0x0190, f02=» Z * * INPUT PARAMETERS : * A1 = SYMBOLIC DTE ADDRESS . * A2 = SYMBOLIC SUB-ADDRESS R ( #* A3 = TYPE (ONLY IF GETSNT ENTRY) v * * CALLING SEQUENCES : * CF A15,GETSNA * CF A15,GETSNT * * OU
0x0ed820…0ed9b4 (1, 144) Dummy {f00=0x0046, f01=0x0190, f02=») ` D ?* A3 = TYPE INDEX (ONLY IF GETSNT ENTRY,OTHERWISE NOT CHANGED) * R GETSNT EQU * P IFT CPU852=0 p P MSR 8,A15 SAVE REG. A1-A8 P XIF P IFT SUBADR=1 P IFT CPU852=1 " CF A15,SAVE8 SAVE REG. A1-A8 P X
0x0ed9b4…0edb48 Dummy {f00=0x0046, f01=0x0190, f02=» P XIF P IFT SUBADR=1 P IFT CPU852=1 * P CF A15,SAVE8 @ P XIF V P IFT SUBADR=1 b $ SUR A3,A3 CLEAR TYPE INDICATOR x GET400 EQU * " LDK A4,SN SET ENTRY INDICATOR P RB GET305 RUN * * GET NETWORK
0x0edb48…0edcdc Dummy {f00=0x0046, f01=0x4116, f02=»ID SYMBOLIC SUB-ADDRESS | 2 P SUR A7,A2 SYMBOLIC SUB-ADDRESS WITHIN TABLE ? RB(N) GET330 NO V 2 P ADR A6,A2 SET POINTER(INDEX STARTS WITH /30) n & P LCR A1,A6 GET NETWORK SUB-ADDRESS P RB GET170 EXIT * P XIF * E
0x0edcdc…0ede70 Dummy {f00=0x0046, f01=0x2008, f02=» ! TO SAVE REGISTERS A1-A8 * ( SAVE8 EQU * 2 * F * &* SUBROUTINE TO RELOAD REGISTERS A1-A8 P * ~ RELOA8 EQU * * END @ & ! LDR A6,A8 GET ADDRESS WHERE TO.. " ADK A6,7 FIND LAST OCTET OF..
0x0ede70…0ee004 Dummy {f00=0x0046, f01=0x018e, f02=»****************************************** Y P Z 2 & P CF A5,PTIME START PROCEDURE TIMER Z : P CF A5,RECINI START RECEIVER Z d P CF A5,READ READ RESPONSE Z & P CF A5,SPTIME STOP PROCEDURE TIMER Z P CWK A2,NAKP (N) RECEIVED ? Z P RF(NE) POL220 N
0x0ee004…0ee198 Dummy {f00=0x0046, f01=0x018e, f02=» Z 0 P******************************************* [ P [ < P CF A5,HALTIN HALT INPUT [ D P [ d P IFT STAT=1 [ l ( P CF A5,IN:ERR INCREMENT ERROR COUNT [ $ P LD A8,DWTECB,A6 ANY REQUEST ??? [ P RF(Z) POL215 NO!!! [ P LDK A1,LRC:ER LRC ERROR
0x0ee198…0ee32c Dummy {f00=0x0046, f01=0x0190, f02=» [ p & P RB POL210 RETRANSMIT WITHOUT (D) PPOL220 EQU * 2 P CWK A2,EOTP (C) RECEIVED ? F P RF(NE) POL250 NO j P EJECT P 0 P******************************************* P* P* (C) RECEIVED P* 0 P****************
0x0ee32c…0ee4c0 Dummy {f00=0x0046, f01=0x0190, f02=» h PPOL240 EQU * ] " P CF A5,COMREQ COMPLETE REQUEST ] P ABL BRM ] B PPOL250 EQU * ] R P CWK A2,ACKP (Y) RECEIVED ? ] f P RF(NE) POL260 NO ] P EJECT ] P ] 2 P********************************************** ] P* ] P* (Y) RECEIVED
0x0ee4c0…0ee654 (1, 145) Opaque[0x194]
0x0ee654…0ee7e8 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08d8, f03=0x0000}
0x0ee654…0ee7e8 IdxSect {
0x0ee654…0ee7e8 f00 = 0x0046 // 0xee654 @0x0
0x0ee654…0ee7e8 f01 = 0x0002 // 0xee656 @0x2
0x0ee654…0ee7e8 gno = [ // 0xee658 @0x4
0x0ee654…0ee7e8 [0x00]: C0x0046.0x3.0
0x0ee654…0ee7e8 ]
0x0ee654…0ee7e8 }
0x0ee7e8…0ee97c Dummy {f00=0x0046, f01=0x0190, f02=» 0 P IDENT DFTAB REL 11.0 81-01-26 870105041100 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x0ee97c…0eeb10 Dummy {f00=0x0046, f01=0x4164, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P ENTRY DFTABL @ P* V PDFTAB EQU * ` P DATA /F0F1 t P DATA /F2F3 P DATA /F4F5,/F6F7 P DATA /F8F9,/FAFB P DATA /FCFC P DATA /FDFD PDFTABE EQU *
0x0eeb10…0eeca4 Dummy {f00=0x0046, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P*
0x0eeca4…0eee38 Dummy {f00=0x0046, f01=0x2008, f02=»
0x0eee38…0eefcc Dummy {f00=0x0046, f01=0x0190, f02=»IN FREE QUEUE IS REMOVED. t P* " 8 P* IF THERE IS NO FREE PAGES, PAGE ERROR , > P* IS INDICATED AND THE REQUEST IS TERMINATED. h P* P XIF P IFF MMUPAG=1 P* . P* THE LAST PAGE IS REMOVED FROM FREE QUE
0x0eefcc…0ef160 Dummy {f00=0x0046, f01=0x0190, f02=» THE LOGICAL ADDRESS TO PAGE IS STORED IN , P* SECOND WORD IN PAGE BLOCK < < P* IF A SEGMENT IS ATTACHED TO THE PAGE,BIT 0 l < P* (SEGMENT LOADED IN CORE) IN STATUS WORD IN , P* SEGMENT BLOCK
0x0ef160…0ef2f4 (1, 146) Opaque[0x194]
0x0ef2f4…0ef488 # DirEnt {nam=»DRAS01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08e0, f03=0x0000}
0x0ef2f4…0ef488 IdxSect {
0x0ef2f4…0ef488 f00 = 0x0047 // 0xef2f4 @0x0
0x0ef2f4…0ef488 f01 = 0x0018 // 0xef2f6 @0x2
0x0ef2f4…0ef488 gno = [ // 0xef2f8 @0x4
0x0ef2f4…0ef488 [0x00]: C0x0047.0x0.0
0x0ef2f4…0ef488 [0x01]: C0x0047.0x1.0
0x0ef2f4…0ef488 [0x02]: C0x0047.0x2.0
0x0ef2f4…0ef488 [0x03]: C0x0047.0x3.0
0x0ef2f4…0ef488 [0x04]: C0x0048.0x0.0
0x0ef2f4…0ef488 [0x05]: C0x0048.0x1.0
0x0ef2f4…0ef488 [0x06]: C0x0048.0x2.0
0x0ef2f4…0ef488 [0x07]: C0x0048.0x3.0
0x0ef2f4…0ef488 [0x08]: C0x0049.0x0.0
0x0ef2f4…0ef488 [0x09]: C0x0049.0x1.0
0x0ef2f4…0ef488 [0x0a]: C0x0049.0x2.0
0x0ef2f4…0ef488 [0x0b]: C0x0049.0x3.0
0x0ef2f4…0ef488 ]
0x0ef2f4…0ef488 }
0x0ef488…0ef61c Dummy {f00=0x0047, f01=0x0190, f02=» 2 P IDENT DRAS01 REL 11.0 81-01-26 870105041100 P : P =6, ETX-CHECK REMOVED B P PRR 11.0 80-03-06 b , P =5, CORR. OF FLASHING LIGHTS PROBLEM ~ $ P DEV ADDR. CHAN. UNIT 5 AND 6 P PRR 11.0 80-02-05 " P NEW DEVICE DRIVER I
0x0ef61c…0ef7b0 Dummy {f00=0x0047, f01=0x0190, f02=» PENDING z P PRR 10.1 79-10-04 2 P =2, CORR. OF RECOV.;ST. INP. IF THRP. ERR. , P PRR 10.1 79-10-03 b P =1, CHANGE TO EVEN PARITY ~ P PRR 10.1 79-09-18 * * J E**********************
0x0ef7b0…0ef944 Dummy {f00=0x0047, f01=0x0190, f02=»CHANNEL UNIT | * P* ASCU4Z * : * D * N * X * b J F********************************************************************** l * 4 /* THIS IS A CHANNEL UNIT DRIVER FOR TERMINALS $ P* CONNECTE
0x0ef944…0efad8 Dummy {f00=0x0047, f01=0x0190, f02=»RRUPT HANDLER FOR ACTUAL p * DEVICE. * 4 0 P* AFTER AN OUTPUT IS ENDED AN INTERRUPT IS > > P* GENERATED FROM ASCU4Z. THE DRIVER CHECKS THE INTERRUPT r 2 .* AND A BRANCH IS MADE TO INTERRUPT HANDLER. P* P* P EJECT
0x0efad8…0efc6c Dummy {f00=0x0047, f01=0x0190, f02=»LINE AT POWER ON ` * $ P* -OUTASC SEND ONE CHARACTER " P* J 6 2* CONTROL WORK TABLES ARE INCLUDED IN THE DRIVER T * , (* NORMAL REGISTER USAGE IN THE DRIVER: * * A1 = RETURN CODE * A2 = INPUT CHARACTER
0x0efc6c…0efe00 Dummy {f00=0x0047, f01=0x018e, f02=»RDER * A8 = ECB ADDRESS * ( * 2 * < EJECT F * T *********** ^ * ENTRIES * r *********** * * ( P ENTRY IASCUZ INTERRUPT FROM ASCU4Z $ P ENTRY ASCUON START AT POWER ON * P ENTRY
0x0efe00…0eff94 (1, 147) Dummy {f00=0x0047, f01=0x0190, f02=» " P ENTRY ASCHRO CHARACTER OUTPUT , P ENTRY ASENBL DEFINE END OF OUTPUT BLOCK * " P ENTRY ASDISP LOCAL DISPATCHER Z P* EJECT * * $ ******************************** $ * EXTERNAL TOSS MODULE ENTRIES * $ ************
0x0eff94…0f0128 Dummy {f00=0x0047, f01=0x0190, f02=»ST PROCESSING FLAG =3 | P* , P EXTRN INTAS1 WS TABLE ADDRESS ASCU4Z 1 ( , P EXTRN INTAS2 WS TABLE ADDRESS ASCU4Z 2 X , P EXTRN INTAS3 WS TABLE ADDRESS ASCU4Z 3 , P EXTRN INTAS4 WS TABLE ADDRESS ASCU4Z 4 , P EXTRN INTAS5 WS TABLE ADDRESS A
0x0f0128…0f02bc Dummy {f00=0x0047, f01=0x0190, f02=»DDRESS ASCU4Z 8 x P* * P EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT " , P EXTRN NDGET8 GET A3-A5, A7-A8 FROM DWT P * P EXTRN NDREDW CALL RECOVERY FOR DEVICE , P EXTRN NDRETO OK & RETURN TO DEV. DRIVER , P EXTRN NDREP POP & RETURN TO DEV. DRIVER
0x0f02bc…0f0450 Dummy {f00=0x0047, f01=0x0190, f02=» * ****************** * $ * . EXTRN DWTST STATUS 8 EXTRN DWTOR ORDER T ( P EXTRN DWTOCH LAST OUTPUT CHARACTER n EXTRN DWTECB ECB-ADDRESS * % EXTRN DWTADR ADDRESS TO ADDRESSBLOCK $ P EXTRN DWTOTQ OUTPUT QUEUE LIN
0x0f0450…0f05e4 Dummy {f00=0x0047, f01=0x0190, f02=»MENT h 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT * @ EJECT J * X * b ************* l * CONSTANTS * ************* * * ( PKB EQU 1 DEVICE ADDRESS FOR KEYBOARD . PDI EQU 2 DEVICE ADDRESS FO
0x0f05e4…0f0778 Dummy {f00=0x0047, f01=0x018e, f02=»********** P* < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER B P* AND STATUS MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 P* PX:A EQU 1 PLOGING EQU X:A P* , P* THIS DRIVER HANDLES ONE OR UP TO SIX
0x0f0778…0f090c Dummy {f00=0x0047, f01=0x0190, f02=» , (**************************************** , (* CONTROL WORK TABLES FOR ASCU4Z 1 * 8 , (**************************************** h * * * L I N E 1 * PDWA11 EQU /1C DEVICE ADDRESS * * CWTA
0x0f090c…0f0aa0 Dummy {f00=0x0047, f01=0x0190, f02=»CH./ NEXT OUTPUT CH. | PCWTITA EQU *-CWTA11 " P DATA INTAS1 WS TABLE ADDRESS 8 CWTINR EQU *-CWTA11 ^ INR A2,0,DWA11 INR z CWTOTR EQU *-CWTA11 OTR A2,0,DWA11 OTR CWTCIS EQU *-CWTA11 CIO A1,1,DWA11 CIO START
0x0f0aa0…0f0c34 (1, 148) Dummy {f00=0x0047, f01=0x0190, f02=» SST A2,DWA11 SEND STATUS CWTST EQU *-CWTA11 & DATA 0 CHANNEL STATUS @ * ^ * h EJECT r * * * L I N E 2 * $ DWA12 EQU DWA11+1 DEVICE ADDRESS * * CWTA12 EQU * TABLE ENTRY
0x0f0c34…0f0dc8 Dummy {f00=0x0047, f01=0x0190, f02=»DWA12 INR OTR A2,0,DWA12 OTR CIO A1,1,DWA12 CIO START . DATA 0 QUEUE P CIO A1,0,DWA12 CIO HALT f SST A2,DWA12 SEND STATUS DATA 0 CHANNEL STATUS * * EJECT * * * L I N E
0x0f0dc8…0f0f5c Dummy {f00=0x0047, f01=0x0190, f02=» x , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS1 WS TABLE ADDRESS 8 INR A2,0,DWA13 INR ^ OTR A2,0,DWA13 OTR z CIO A1,1,DWA13 CIO START DATA 0 QUEUE CIO A1,0,DWA13 CIO HALT SST A2,DWA13 SEND STATUS
0x0f0f5c…0f10f0 Dummy {f00=0x0047, f01=0x018e, f02=»A11+3 DEVICE ADDRESS * * & CWTA14 EQU * TABLE ENTRY 0 DATA 0 LAST OUTPUT DWT P , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. p " P DATA INTAS1 WS TABLE ADDRESS INR A2,0,DWA14 INR OTR A2,0,DWA14 OTR CIO A1,1,
0x0f10f0…0f1284 Dummy {f00=0x0047, f01=0x0190, f02=» x * * EJECT * * , (**************************************** 4 , (* CONTROL WORK TABLES FOR ASCU4Z 2 * d , (**************************************** * P IFF ASCHAN=1 * * L I N E 1 *
0x0f1284…0f1418 Dummy {f00=0x0047, f01=0x0190, f02=»ST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS2 WS TABLE ADDRESS & INR A2,0,DWA21 INR L OTR A2,0,DWA21 OTR h CIO A1,1,DWA21 CIO START DATA 0 QUEUE CIO A1,0,DWA21 CIO HALT P SST A2,DWA21 SEND STATUS DATA 0 CH
0x0f1418…0f15ac Dummy {f00=0x0047, f01=0x0190, f02=»SS r * * PCWTA22 EQU * TABLE ENTRY DATA 0 LAST OUTPUT DWT > , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. ^ " P DATA INTAS2 WS TABLE ADDRESS P INR A2,0,DWA22 INR P OTR A2,0,DWA22 OTR P CIO A1,1,DWA22 CIO START
0x0f15ac…0f1740 Dummy {f00=0x0047, f01=0x0190, f02=» EJECT * * * L I N E 3 * * @ $ PDWA23 EQU DWA21+2 DEVICE ADDRESS J * r * | PCWTA23 EQU * TABLE ENTRY DATA 0 LAST OUTPUT DWT , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS2 WS TA
0x0f1740…0f18d4 (1, 149) Dummy {f00=0x0047, f01=0x0190, f02=» A1,0,DWA23 CIO HALT P SST A2,DWA23 SEND STATUS DATA 0 CHANNEL STATUS > * * f EJECT p * ~ * * L I N E 4 * $ PDWA24 EQU DWA21+3 DEVICE ADDRESS * * PCWTA24 EQU * TABLE ENTRY
0x0f18d4…0f1a68 Dummy {f00=0x0047, f01=0x018e, f02=»A24 INR P OTR A2,0,DWA24 OTR P CIO A1,1,DWA24 CIO START , DATA 0 QUEUE N P CIO A1,0,DWA24 CIO HALT d P SST A2,DWA24 SEND STATUS DATA 0 CHANNEL STATUS * * P XIF EJECT * , (************
0x0f1a68…0f1bfc Dummy {f00=0x0047, f01=0x0190, f02=» P IFF ASCHAN=1 P IFF ASCHAN=2 * 4 * L I N E 1 > * T PDWA31 EQU /20 DEVICE ADDRESS ^ P* P* PCWTA31 EQU * TABLE ENTRY DATA 0 LAST OUTPUT DWT , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P D
0x0f1bfc…0f1d90 Dummy {f00=0x0047, f01=0x0190, f02=»EUE P CIO A1,0,DWA31 CIO HALT P SST A2,DWA31 SEND STATUS , DATA 0 CHANNEL STATUS N * l * v EJECT * * * L I N E 2 * $ PDWA32 EQU DWA31+1 DEVICE ADDRESS * * PCWTA32 EQU
0x0f1d90…0f1f24 Dummy {f00=0x0047, f01=0x0190, f02=» P INR A2,0,DWA32 INR P OTR A2,0,DWA32 OTR P CIO A1,1,DWA32 CIO START < DATA 0 QUEUE ^ P CIO A1,0,DWA32 CIO HALT t P SST A2,DWA32 SEND STATUS DATA 0 CHANNEL STATUS * * EJECT * *
0x0f1f24…0f20b8 Dummy {f00=0x0047, f01=0x018e, f02=»ST OUTPUT DWT , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS3 WS TABLE ADDRESS F P INR A2,0,DWA33 INR l P OTR A2,0,DWA33 OTR P CIO A1,1,DWA33 CIO START DATA 0 QUEUE P CIO A1,0,DWA33 CIO HALT P SST A2,DWA3
0x0f20b8…0f224c Dummy {f00=0x0047, f01=0x0190, f02=» $ PDWA34 EQU DWA31+3 DEVICE ADDRESS * , * 6 PCWTA34 EQU * TABLE ENTRY @ DATA 0 LAST OUTPUT DWT ` , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS3 WS TABLE ADDRESS P INR A2,0,DWA34 INR P OTR A2,0,DWA34 OTR
0x0f224c…0f23e0 Dummy {f00=0x0047, f01=0x0190, f02=»CHANNEL STATUS * * P XIF * EJECT 6 * D , (**************************************** N , P* CONTROL WORK TABLES FOR ASCU4Z 4 * ~ , (**************************************** * P IFF ASCHAN=1 P IFF ASCHA
0x0f23e0…0f2574 (1, 150) Dummy {f00=0x0048, f01=0x0190, f02=»41 EQU * TABLE ENTRY DATA 0 LAST OUTPUT DWT , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. < " P DATA INTAS4 WS TABLE ADDRESS l P INR A2,0,DWA41 INR P OTR A2,0,DWA41 OTR P CIO A1,1,DWA41 CIO START DATA 0 QUEUE P CIO A
0x0f2574…0f2708 Dummy {f00=0x0048, f01=0x0190, f02=» * L I N E 2 * $ PDWA42 EQU DWA41+1 DEVICE ADDRESS ( * P * Z PCWTA42 EQU * TABLE ENTRY d DATA 0 LAST OUTPUT DWT , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. " P DATA INTAS4 WS TABLE ADDRESS P INR A2,0,DWA4
0x0f2708…0f289c Dummy {f00=0x0048, f01=0x0190, f02=»2,DWA42 SEND STATUS DATA 0 CHANNEL STATUS * : * D EJECT N * * f * L I N E 3 p * $ PDWA43 EQU DWA41+2 DEVICE ADDRESS * * PCWTA43 EQU * TABLE ENTRY DATA 0 LAST OUTPUT DWT
0x0f289c…0f2a30 Dummy {f00=0x0048, f01=0x0190, f02=»R ~ P CIO A1,1,DWA43 CIO START ! DATA 0 QUEUE ! , P CIO A1,0,DWA43 CIO HALT ! B P SST A2,DWA43 SEND STATUS ! b DATA 0 CHANNEL STATUS ! * ! * ! EJECT ! * ! * ! * L I N E 4 ! * ! $ PDWA44 EQU DWA41+
0x0f2a30…0f2bc4 Dummy {f00=0x0048, f01=0x0190, f02=»T OUTPUT CH. ! t " P DATA INTAS4 WS TABLE ADDRESS " P INR A2,0,DWA44 INR " : P OTR A2,0,DWA44 OTR " V P CIO A1,1,DWA44 CIO START " r DATA 0 QUEUE " P CIO A1,0,DWA44 CIO HALT " P SST A2,DWA44 SEND STATUS " DATA 0 CHANNEL STATUS "
0x0f2bc4…0f2d58 Dummy {f00=0x0048, f01=0x0190, f02=»CU4Z 5 * " r , (**************************************** # * # B P IFF ASCHAN=1 # L P IFF ASCHAN=2 # b P IFF ASCHAN=3 # x P IFF ASCHAN=4 # * # * L I N E 1 # * # $ PDWA51 EQU /0C DEVICE ADDRESS =5 # P* # P* #
0x0f2d58…0f2eec Dummy {f00=0x0048, f01=0x018e, f02=»ADDRESS # z P INR A2,0,DWA51 INR $ P OTR A2,0,DWA51 OTR $ , P CIO A1,1,DWA51 CIO START $ H DATA 0 QUEUE $ j P CIO A1,0,DWA51 CIO HALT $ P SST A2,DWA51 SEND STATUS $ DATA 0 CHANNEL STATUS $ * $ * $ EJECT $ * $
0x0f2eec…0f3080 Dummy {f00=0x0048, f01=0x018e, f02=» DATA 0 LAST OUTPUT DWT % , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. % $ " P DATA INTAS5 WS TABLE ADDRESS % T P INR A2,0,DWA52 INR % z P OTR A2,0,DWA52 OTR % P CIO A1,1,DWA52 CIO START % DATA 0 QUEUE % P CIO A1,0,DWA52 CIO HALT %
0x0f3080…0f3214 (1, 151) Dummy {f00=0x0048, f01=0x018e, f02=» % * & $ PDWA53 EQU DWA51+2 DEVICE ADDRESS & * & : * & D PCWTA53 EQU * TABLE ENTRY & N DATA 0 LAST OUTPUT DWT & n , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. & " P DATA INTAS5 WS TABLE ADDRESS & P INR A2,0,DWA53 INR & P OTR A2,
0x0f3214…0f33a8 Dummy {f00=0x0048, f01=0x0190, f02=» & t DATA 0 CHANNEL STATUS ' * ' & * ' 0 EJECT ' : * ' H * ' R * L I N E 4 ' * ' r $ PDWA54 EQU DWA51+3 DEVICE ADDRESS ' | * ' * ' PCWTA54 EQU * TABLE ENTRY ' DATA 0 LAST OUTPUT DWT ' , P DATA 0 LAST OUT
0x0f33a8…0f353c Dummy {f00=0x0048, f01=0x0190, f02=»DWA54 CIO START ' DATA 0 QUEUE ( P CIO A1,0,DWA54 CIO HALT ( . P SST A2,DWA54 SEND STATUS ( N DATA 0 CHANNEL STATUS ( p * ( * ( P XIF ( EJECT ( * ( , (**************************************** ( , P* CONTROL WORK T
0x0f353c…0f36d0 Dummy {f00=0x0048, f01=0x0190, f02=» ASCHAN=3 ( P IFF ASCHAN=4 ) P IFF ASCHAN=5 ) ( * ) > * L I N E 1 ) H * ) ^ $ PDWA61 EQU /00 DEVICE ADDRESS =5 ) h P* ) P* ) PCWTA61 EQU * TABLE ENTRY ) DATA 0 LAST OUTPUT DWT ) , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT
0x0f36d0…0f3864 Dummy {f00=0x0048, f01=0x0190, f02=» DATA 0 QUEUE * P CIO A1,0,DWA61 CIO HALT * P SST A2,DWA61 SEND STATUS * : DATA 0 CHANNEL STATUS * * * z * * EJECT * * * * * * L I N E 2 * * * $ PDWA62 EQU DWA61+1 DEVICE ADDRESS * * * * *
0x0f3864…0f39f8 Dummy {f00=0x0048, f01=0x0190, f02=»E ADDRESS * | P INR A2,0,DWA62 INR + P OTR A2,0,DWA62 OTR + . P CIO A1,1,DWA62 CIO START + J DATA 0 QUEUE + l P CIO A1,0,DWA62 CIO HALT + P SST A2,DWA62 SEND STATUS + DATA 0 CHANNEL STATUS + * + * + EJECT + * +
0x0f39f8…0f3b8c Dummy {f00=0x0048, f01=0x018e, f02=» DATA 0 LAST OUTPUT DWT , , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. , $ " P DATA INTAS6 WS TABLE ADDRESS , T P INR A2,0,DWA63 INR , z P OTR A2,0,DWA63 OTR , P CIO A1,1,DWA63 CIO START , DATA 0 QUEUE , P CIO A1,0,DWA63 CIO HALT ,
0x0f3b8c…0f3d20 Dummy {f00=0x0048, f01=0x018e, f02=» , * - $ PDWA64 EQU DWA61+3 DEVICE ADDRESS - * - : * - D PCWTA64 EQU * TABLE ENTRY - N DATA 0 LAST OUTPUT DWT - n , P DATA 0 LAST OUTPUT CH./ NEXT OUTPUT CH. - " P DATA INTAS6 WS TABLE ADDRESS - P INR A2,0,DWA64 INR - P OTR A2,
0x0f3d20…0f3eb4 (1, 152) Dummy {f00=0x0048, f01=0x018e, f02=» - t DATA 0 CHANNEL STATUS . * . & * . 0 P XIF . : EJECT . F * . T * . ^ ***************** . h * C H T A B * . ***************** . * . 2 .* THIS TABLE HOLDS ADDRESSES OF CONTROL WORK . $ * TABLES CWT TO
0x0f3eb4…0f4048 Dummy {f00=0x0048, f01=0x0190, f02=» DATA CWTA13 / DATA CWTA14 / P IFF ASCHAN=1 / , DATA CWTA21 / B DATA CWTA22 / V DATA CWTA23 / j DATA CWTA24 / ~ XIF / P IFF ASCHAN=1 / P IFF ASCHAN=2 / DATA CWTA31 / DATA CWTA32 / DATA CWTA33 / D
0x0f4048…0f41dc Dummy {f00=0x0048, f01=0x018e, f02=» DATA CWTA43 / DATA CWTA44 0 XIF 0 ( P IFF ASCHAN=1 0 4 P IFF ASCHAN=2 0 J P IFF ASCHAN=3 0 ` P IFF ASCHAN=4 0 v P DATA CWTA51 0 P DATA CWTA52 0 P DATA CWTA53 0 P DATA CWTA54 0 XIF 0 P IFF ASCHAN=1 0 P IFF ASCHA
0x0f41dc…0f4370 Dummy {f00=0x0048, f01=0x0190, f02=» P DATA CWTA64 1 XIF 1 CHTABE EQU * END OF TABLE 1 $ * 1 F * 1 P EJECT 1 Z * 1 h * 1 r P* A S C U O N 1 | * 1 6 1* SUBROUTINE TO RESET CWT AND PERFORM CIO START 1 4 P* OF EVERY ASCU4Z INPUT CHANNEL AT SYSTEM LOAD
0x0f4370…0f4504 Dummy {f00=0x0048, f01=0x0190, f02=» ABL(Z) RTNA15 YES 1 PAON020 EQU * 2 & P LD A5,CHTAB+2,A3 LOAD CWT-ADDRESS 2 . P RB(Z) AON010 2 X P LDKL A1,/8000 2 n ( P ORS A1,CWTST,A5 SET INITIATION BIT 2 P CMR A5 RESET LAST OUTPUT =2 2 & P CM CWTLON,A5 CLEAR LOC AND NOC =2 2 & P CM CWTEQ,
0x0f4504…0f4698 Dummy {f00=0x0048, f01=0x0190, f02=»X CWTCIH,A5 CIO STOP OUTPUT 2 P ENB 3 $ P ADK A3,2 3 0 P RB AON010 3 B EJECT 3 T * 3 b * 3 l 0 ,******************************************** 3 v 0 P* INTERRUPT ENTRY FROM ASCU4Z * 3 0 ,******************************************
0x0f4698…0f482c Dummy {f00=0x0048, f01=0x018e, f02=»TSAV SAVE LAST INTERRUPT 3 " P MSR 8,A15 SAVE A1-A8 ON STACK 4 " P LDK A7,0 RESET ASCU4Z-COUNTER 4 F P LD A3,CHTAB 4 l P SUK A3,2 NUMBER OF LINES 4 P RF IAS007 4 * 4 EJECT 4 * 4 0 ,* GET CWT-ADDRESS FOR LINE 1. EXECUTE INR. 4
0x0f482c…0f49c0 Dummy {f00=0x0048, f01=0x0190, f02=» 4 l 0 P LD A5,CHTAB+2,A7 GET CWT-ADDRESS FOR LINE 1 5 EX CWTINR,A5 INR 5 < RF(NA) IAS080 5 V * 5 l 8 3* CORRECT CWT-ADDRESS WITH RESPECT TO LINE NUMBER 5 v * 5 IAS010 EQU * 5 P LDR A5,A2 INPUT WORD 5 P SRL A5,7 5 ANK A5,
0x0f49c0…0f4b54 (1, 153) Dummy {f00=0x0048, f01=0x0190, f02=»TED COMMAND IS INPUT 5 ~ * 6 IAS015 EQU * 6 & P ECR A1,A2 6 : P ANK A1,/30 6 L P SUK A1,/30 EXPECTED COMMAND 6 ` P RF(NZ) IAS040 NOT INPUT 6 * 6 EJECT 6 * 6 * GET DWT-ADDRESS 6 * 6 IAS020 EQU * 6 P LDK A4,
0x0f4b54…0f4ce8 Dummy {f00=0x0048, f01=0x0190, f02=»8,A8 ADDRESS POINTER 6 P RF(Z) IAS032 NOT DEFINED 7 PIAS025 EQU * 7 > P LDR* A6,A8 GET DWT-ADDRESS 7 R P RF(Z) IAS030 NOT DEFINED 7 v " P LD A1,DWTST,A6 DEVICE STATUS 7 P ANK A1,/40 INPUT DEVICE? 7 P RF(NZ) IAS035 YES 7 PIAS030 EQU * 7
0x0f4ce8…0f4e7c Dummy {f00=0x0048, f01=0x0190, f02=» ANK A1,2 HIGH LINE NR ? 7 & P RF(NZ) EXITL YES, SKIP INTERRUPT 8 P ADK A3,2 INCREMENT LINE NR 8 J P RB IAS020 8 n P* 8 PEXITL EQU * 8 P IFT LOGING=1 8 ( P CF A15,INFLG1 GET LINE INFORMATION 8 P CF A15,LOGG **LOGG INPUT** 8 P XIF
0x0f4e7c…0f5010 Dummy {f00=0x0048, f01=0x0190, f02=» 8 P LDK A1,0 RESET RETURN CODE 9 P* 9 , P IFT LOGING=1 9 6 ( P CF A15,INFLG2 GET LINE INFORMATION 9 L * P CF A15,LOGG **LOGG INPUT CHARACTER** 9 x P XIF 9 P* 9 PIAS038 EQU * 9 P ANK A2,/FF CLEAN CHARACTER 9 " P LD A7,DWTST,A6 DEVI
0x0f5010…0f51a4 Dummy {f00=0x0048, f01=0x0190, f02=»EQUESTED' 9 l & P ABL NDREP RETURN TO DEVICE DRIVER : P* : < P EJECT : F P* : T 0 P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER : ^ P* : PIAS039 EQU * : " P LD A1,DWTADR,A6 ADDRESS BLOCK : . P LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? : " P
0x0f51a4…0f5338 Dummy {f00=0x0048, f01=0x0190, f02=»TRY : n P* ; P EJECT ; P* ; $ & P* CHECK IF ANY CHARACTER TO SEND ; . P* ; X PIAS040 EQU * ; b P LDR* A6,A5 LAST OUTPUT DWT ; v P LC A2,CWTLON+1,A5 ; P ANK A2,/FF ; * P LD A7,DWTCP2,A6 CHANNEL PARAMETERS 2 ; P ANK A7,/3F DEVICE
0x0f5338…0f54cc Dummy {f00=0x0048, f01=0x0190, f02=»DR A2,A2 SAVED CHARACTER ; $ P RF(Z) IAS060 NO CHARACTER SAVED < P* < H P EJECT < R P* < ` : P* OUTPUT SAVED CHARACTER AND RETURN TO DEVICE DRIVER < j P* < PIAS050 EQU * < " P ANK A2,/7F CLEAN CHARACTER =5 < P EX CWTOTR,A5 OTR < P R
0x0f54cc…0f5660 Dummy {f00=0x0048, f01=0x0190, f02=» < f P XIF = P* = ( P LDR A7,A7 OUTPUT TO KEYBOARD LAMPS? = P RF(Z) IAS055 YES = J P* = d 2 P SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT = n P SLL A2,8 = ( P ST A2,CWTLON,A5 UPDATE LOC AND NOC = PIAS052 EQU * = & P ABL NDREPO RETURN
0x0f5660…0f57f4 (1, 154) Dummy {f00=0x0049, f01=0x0190, f02=» * = P LC A4,CWTLON,A5 > * P ANK A4,/FF LAST OUTPUT CHARACTER = 0? > " $ P RF(NE) IAS060 NO, CODE /1C SENT > P P* > x & P LC A4,DWTOCH,A6 DATA TO KEYBOARD > * P SC A4,CWTLON+1,A5 STORE FOR NEXT OTR > * P SC A2,CWTLON,A5 STORE CODE /1C IN LOC > P
0x0f57f4…0f5988 Dummy {f00=0x0049, f01=0x0190, f02=»CIO HALT OUTPUT > P =5 ? $ P CM CWTLON,A5 CLEAR LOC AND NOC ? & P =5 ? N * P LDR A7,A7 OUTPUT TO KEYBOARD LAMPS ? ? . P RB(Z) IAS052 YES, RETURN TO DEVICE DRIVER ? P* ? P U =6 ? P RB EXIT GO TO DISPATCHER ? * ? EJECT
0x0f5988…0f5b1c Dummy {f00=0x0049, f01=0x0190, f02=» 8 3* CORRECT CWT-ADDRESS WITH RESPECT TO LINE NUMBER @ * @ @ IAS085 EQU * @ J P LDR A5,A2 INPUT WORD @ ^ P SRL A5,7 @ | ANK A5,/6 LINE NUMBER * 2 @ P LDR A3,A5 @ ADR A7,A5 @ * P LD A5,CHTAB+2,A7 CORRECT CWT-ADDRESS @ P* @
0x0f5b1c…0f5cb0 Dummy {f00=0x0049, f01=0x0190, f02=»WTST,A5 CHANNEL STATUS @ ( P RF(N) IAS130 INITIATION ON CHANNEL A * A J P LDR* A6,A5 LAST OUTPUT DWT A T P RF(NZ) IAS087 * =2 A x " P ANK A2,2 THROUGPUT ERROR? =2 A P RB(Z) EXIT NO =2 A P LDK A1,/5 EVEN PARITY =2 A $ P EX CWTCIS,A5 CIO
0x0f5cb0…0f5e44 Dummy {f00=0x0049, f01=0x0190, f02=» CHECK IF CHARACTER SAVED A P* B " PIAS090 EQU * B , P LC A2,CWTLON+1,A5 B @ P ANK A2,/FF SAVED CHARACTER? B Z P RF(NZ) IAS105 YES B ~ P* B P* CHECK IF QUEUE EMPTY B P* B PIAS100 EQU * B P LD A6,CWTEQ,A5 OUTPUT QUEUE B P RF(
0x0f5e44…0f5fd8 Dummy {f00=0x0049, f01=0x0190, f02=»CTER B v P* C , P* SEND CHARACTER AND GO TO DISPATCHER C P* C F PIAS105 EQU * C P " P CF A15,OUTASC SEND CHARACTER C d PIAS110 EQU * C P RB EXIT GO TO DISPATCHER C P EJECT C P* C 6 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVI
0x0f5fd8…0f616c Dummy {f00=0x0049, f01=0x0190, f02=»ON THIS LINE' =2 C p * P ANS A1,CWTST,A5 RESET INITIATION BIT D P LDK A4,0 D F P CF A15,GETADR D X " P LDR A4,A7 CHTAB DISPLACEMENT D n P LDR A3,A6 DEVICE COUNTER D P LDR A7,A8 ADDRESS POINTER D & P RB(Z) IAS100 EXIT IF NOT DEFINED D PIAS140
0x0f616c…0f6300 Dummy {f00=0x0049, f01=0x0190, f02=» LD A1,DWTST,A6 DEVICE STATUS D P ANK A1,/40 INPUT DEVICE ? E & P RF(Z) IAS148 NO E H P EJECT E ` P* E n F P* INPUT DEVICE. START INPUT. SET MARKBIT FOR INPUT ON THIS LINE. E x P* E PIAS143 EQU * E " P LDR A1,A4 CHTAB DISPLACEMENT E P A
0x0f6300…0f6494 (1, 155) Dummy {f00=0x0049, f01=0x0190, f02=»GET CWT-ADDRESS E ~ " P LD A1,CWTST,A5 CHANNEL STATUS F P SLL A1,1 F > 0 P RF(N) IAS150 INPUT ON THIS LINE ALREADY SET F P P LDKL A1,/4000 F 2 P ORS A1,CWTST,A5 SET BIT 'INPUT ON THIS LINE' F P LDK A1,/5 EVEN PARITY =1 F " P EX CWTCIS,A5 CIO STAR
0x0f6494…0f6628 Dummy {f00=0x0049, f01=0x0190, f02=»150 YES F P EJECT G P* G P* G ( * P* OUTPUT DEVICE. CHECK IF ECHO MODE. G 2 P* G ` PIAS148 EQU * G j P =5 G ~ P LC A1,DWTST,A6 G P ANK A1,/20 ECHO MODE ? G P RF(NE) IAS160 YES G P* G P* GO TO RECOVERY ROUTINE G
0x0f6628…0f67bc Dummy {f00=0x0049, f01=0x0190, f02=»2 G " P SUK A3,2 ALL DEVICES TREATED? H P RB(NE) IAS140 NO TAKE NEXT H 0 0 P RB IAS100 CHECK QUEUE AND GO TO DISPATCHER H T EJECT H * H P* O U T A S C H * H 2 P* SUBROUTINE TO SEND A CHARACTER VIA ASCU4Z H * ON ENTRY: H
0x0f67bc…0f6950 Dummy {f00=0x0049, f01=0x0190, f02=»/FF H " P CF A15,GETCWT GET CWT-ADDRESS I P* I 2 8 P* CHECK IF LINE FREE OR OCCUPIED WITH SAME DEVICE I < P* I x POUA010 EQU * I P INH =5 I " P LD A1,CWTST,A5 CHANNEL STATUS I ( P RF(N) OUA020 INITIATION ON CHANNEL I P* I P LDR
0x0f6950…0f6ae4 Dummy {f00=0x0049, f01=0x0190, f02=» EQU * I P CF A15,QUEUE J 2 P SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT J $ P RF OUA050 J Z P* J l P EJECT J v P* J P* START OUTPUT ON LINE J P* J POUA030 EQU * J . P LD A1,PFPOST PWF POST PROCESSING FLAG =3 J $ P RF(NZ) OU
0x0f6ae4…0f6c78 Dummy {f00=0x0049, f01=0x0190, f02=» STR A6,A5 STORE LAST DWT IN CWT J P* K ( " P* SAVE CHARACTER FOR OUTPUT K 2 P* K X POUA040 EQU * K b * P LD A1,DWTCP2,A6 CHANNEL PARAMETERS 2 K v P ANK A1,/3F DEVICE ADDRESS K * P SUK A1,DI OUTPUT TO KEYBOARD LAMPS ? K P RF(NZ) OUA045 NO K
0x0f6c78…0f6e0c Dummy {f00=0x0049, f01=0x0190, f02=»QU * K 0 P ORK A2,/80 INDICATE SOMETHING FOR OUTPUT =5 L P SC A2,CWTLON+1,A5 L @ POUA050 EQU * L Z P * =4 L n P INH * =4 L ~ ( P ADKL A15,2 ADJUST STACK POINTER =4 L P LDR* P,A15 RETURN =4 L P EJECT L P* L P* G E T C W T L
0x0f6e0c…0f6fa0 Dummy {f00=0x0049, f01=0x0190, f02=»DRESS L ~ P* M P* ON EXIT: M P* M , P* A5 = CWT-ADDRESS M 6 P* A1,A4 ARE DESTROYED M V P* M x PGETCWT EQU * M $ P LDR* A1,A6 CHANNEL PARAMETERS 1 M " P ANK A1,/7 CHANNEL UNIT INDEX M P SLL A1,2 M , P LC A5,DWTCP2,A6 L
0x0f6fa0…0f7134 (1, 156) Dummy {f00=0x0049, f01=0x0190, f02=» CHTAB M x & P LD A5,CHTAB+2,A1 GET CWT-ADDRESS N P LDR A4,A1 LINE NUMBER * 2 N 8 P ANK A4,2 N Z $ P RF(NZ) GTC010 HIGH LINE NUMBER N l " P LD A4,CWTST,A5 CHANNEL STATUS N P SLL A4,1 N ( P RF(NN) GTC010 NO INPUT ON THIS LINE N 2 P LD A5,CHTAB+4,A
0x0f7134…0f72c8 Dummy {f00=0x0049, f01=0x0190, f02=» P* O * P* SUBROUTINE TO QUEUE AN OUTPUT DWT O P* O < P* ON ENTRY: O F P* A5 = CWT ADDRESS O P* A6 = DWT ADDRESS O | P* O * O PQUEUE EQU * O LD A4,CWTEQ,A5 OUTPUT QUEUE O P RF(E) QUE020 O PQUE010 EQU
0x0f72c8…0f745c Dummy {f00=0x0049, f01=0x0190, f02=» O n LDR A4,A3 FOLLOW THE THREAD P P RB QUE010 P , PQUE020 EQU * P > ST A6,CWTEQ,A5 QUEUE DWT P R P RF QUE040 P t PQUE030 EQU * P ST A6,DWTOTQ,A4 QUEUE DWT P * PQUE040 CM DWTOTQ,A6 SET END OF THREAD P PQUE050 EQU * P P ADKL A15,
0x0f745c…0f75f0 Dummy {f00=0x0049, f01=0x0190, f02=»EVERY INPUT AND P l $ P* OUTPUT CHARACTER ARE LOGGED Q P* Q @ P* Q J P* Q T P IFT LOGING=1 Q ^ P* Q t PLOGG STR A1,A15 Q ~ P LD A1,POINT Q P ADK A1,2 Q & P CWK A1,BUFE BUFE IS MAX LOGG AREA Q P RF(NE) L1 Q ( P LDKL A1,BUF SET
0x0f75f0…0f7784 Dummy {f00=0x0049, f01=0x018e, f02=» P LDR* P,A15 RETURN R P* R P* R ( PPOINT DATA BUF LOGG POINTER R 2 P* R V PBUF RES 250 LOGG AREA R ` PBUFE EQU * R ~ P* R P XIF R P EJECT R P* R P* I N F L G 1 R P* R B P* SUBROUTINE TO GET INFORMATION ABOUT
0x0f7784…0f7918 Dummy {f00=0x0049, f01=0x018e, f02=» R , P* CH. UNIT INDEX IS STORED IN BITS 3-5 S , P* WORK ST. ADDR. IS STORED IN BITS 6-7 S 8 P* BITS 0-2 ARE SET TO ZERO S h P* S P* ON ENTRY: S P* S P* A2 = INPUT CHARACTER S P* A7 = LINE NR * 2 S P* S P*
0x0f7918…0f7aac Dummy {f00=0x0049, f01=0x0190, f02=» S P ANK A2,/FF T P SLL A7,7 T & P ORR A2,A7 COMBINE WITH CHARACTER T . P SRL A7,7 T X P RTN A15 T j P* T z P XIF T P EJECT T P* T P* I N F L G 2 T P* T @ P* SUBROUTINE TO GET INFORMATION ABOUT CHANNEL UNIT INDEX, T
0x0f7aac…0f7c40 Dummy {f00=0x0049, f01=0x0190, f02=» T R P* TO REGISTER A2. U , P* DEVICE ADDRESS IS STORED IN BITS 0-2 U $ , P* CH. UNIT INDEX IS STORED IN BITS 3-5 U T , P* WORK ST. ADDR. IS STORED IN BITS 6-7 U P* U P* ON ENTRY: U P* U P* A2 = INPUT CHARACTER U P*
0x0f7c40…0f7dd4 (1, 157) Dummy {f00=0x0049, f01=0x0190, f02=»OYED U ~ P* V P IFT LOGING=1 V PINFLG2 EQU * V , P ANK A2,/FF CLEAN V @ ( P LDR* A4,A6 GET CHANNEL PARAMETERS 1 V Z " P ANK A4,/7 CHANNEL UNIT INDEX V P SRC A4,3 V 0 P LC A4,DWTCP2+1,A6 RIGHT BYTE OF CH. PAR. 2 V P SRC A4,3 V . P ANK
0x0f7dd4…0f7f68 Dummy {f00=0x0049, f01=0x0190, f02=»NKL A4,/300 WORK STATION ADDRESS V & P ORR A2,A4 COMBINE WITH CHARACTER W ( P RTN A15 W R P XIF W b EJECT W n P* W | P* G E T A D R W P* W 4 P* SUBROUTINE TO GET ADDRESS IN INTERRUPT TABLE W , P* FOR A GIVEN LINE- AND DEVICE NUMBER
0x0f7f68…0f80fc Dummy {f00=0x0049, f01=0x0190, f02=»CWT-ADDRESS W P* X P* ON EXIT: X P* X 2 : P* A6 = TOTAL NUMBER OF DEVICES * 2 ON ACTUAL LINE X < 2 P* A8 = ADDRESS WHERE DWT-ADDRESS IS FOUND X z P* X PGETADR EQU * X 4 P LD* A8,CWTITA,A5 ADDRESS OF WORK STATION TABLE X P R
0x0f80fc…0f8290 Dummy {f00=0x0049, f01=0x018e, f02=»F GET010 X PGET005 EQU * Y P ADR A8,A3 POSITION IN TABLE Y $ ( P LDR* A8,A8 POINTER TO DEVICE TABLE Y H P RF(Z) GET010 NOT DEFINED Y t " P LD A6,-2,A8 GET TABLE LENGTH Y & P ADR A8,A4 ADDRESS TO DWT-ADDRESS Y PGET010 EQU * Y P* Y * Y
0x0f8290…0f8424 Dummy {f00=0x0049, f01=0x0190, f02=» Y P* Z P* CHARACTER INPUT Z P* Z . PASCHRI EQU * Z 8 P LDK A2,/20 Z L 0 P ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT Z ` , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT Z P RF ASDISP LOCAL DISPATCHER Z P* Z P* START OF A BLOCK Z
0x0f8424…0f85b8 Dummy {f00=0x0049, f01=0x411c, f02=»R Z n P* [ P* CHARACTER OUTPUT [ P* [ 0 PASCHRO EQU * [ : , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT [ N " P CF A15,OUTASC SEND CHARACTER [ ~ P* [ P* LOCAL DISPATCHER [ P* [ PASDISP EQU * [ P ABL TDISP GO TO DISPATCHER [
0x0f85b8…0f874c Dummy {f00=0x0049, f01=0x2008, f02=» * RETURN AND ENABLE $ * $ & RTNA15 EQU * $ 0 ADKL A15,2 $ D ENB $ X LDR* P,A15 $ d * $ x END $ @ $ # z * ON EXIT: # 2 -* A8 =ADDRESS WHERE DWT-ADDRESS IS FOUND # * # GETADR EQU * # 0 + LD A8
0x0f874c…0f88e0 Dummy {f00=0x0049, f01=0x0190, f02=» $ I N % E , a , ( < : Q R D F%? ;D , ( : Q R D F%? N , ( # ;H ;D& >b : Q ~ , ( R D F%? # ;H ;D& >b , ( : Q R D F%? #
0x0f88e0…0f8a74 (1, 158) Opaque[0x194]
0x0f8a74…0f8c08 # DirEnt {nam=»DRCD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0940, f03=0x0000}
0x0f8a74…0f8c08 IdxSect {
0x0f8a74…0f8c08 f00 = 0x004a // 0xf8a74 @0x0
0x0f8a74…0f8c08 f01 = 0x0018 // 0xf8a76 @0x2
0x0f8a74…0f8c08 gno = [ // 0xf8a78 @0x4
0x0f8a74…0f8c08 [0x00]: C0x004a.0x0.0
0x0f8a74…0f8c08 [0x01]: C0x004a.0x1.0
0x0f8a74…0f8c08 [0x02]: C0x004a.0x2.0
0x0f8a74…0f8c08 [0x03]: C0x004a.0x3.0
0x0f8a74…0f8c08 [0x04]: C0x004b.0x0.0
0x0f8a74…0f8c08 [0x05]: C0x004b.0x1.0
0x0f8a74…0f8c08 [0x06]: C0x004b.0x2.0
0x0f8a74…0f8c08 [0x07]: C0x004b.0x3.0
0x0f8a74…0f8c08 [0x08]: C0x004c.0x0.0
0x0f8a74…0f8c08 [0x09]: C0x004c.0x1.0
0x0f8a74…0f8c08 [0x0a]: C0x004c.0x2.0
0x0f8a74…0f8c08 [0x0b]: C0x004c.0x3.0
0x0f8a74…0f8c08 ]
0x0f8a74…0f8c08 }
0x0f8c08…0f8d9c Dummy {f00=0x004a, f01=0x0190, f02=» 2 P IDENT DRCD01 REL 11.0 81-01-26 870105041100 P : < P =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY B P* P* 2 P********************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P
0x0f8d9c…0f8f30 Dummy {f00=0x004a, f01=0x018e, f02=»******************************************** P* 4 P* > 0 P* THIS DISC DRIVER HANDLES UP TO TWO DISC H , P* DRIVES PTS 6877 CONNECTED TO CPU VIA | P* BUILT IN DMA CHANNEL P* P* * P* THE FOLLOWING ORDERS ARE TREATED :
0x0f8f30…0f90c4 Dummy {f00=0x004a, f01=0x0190, f02=» P* /15 PHYSICAL WRITE P* /1F FORMAT VOLUME & P* F P EJECT DRCD01 P P* f P* p P********************* z P* * P* ENTRIES * P* * P*********************
0x0f90c4…0f9258 Dummy {f00=0x004a, f01=0x0190, f02=»NTRY DWCD01 DWT ADDRESS P* P EJECT DRCD01 * P* @ P* J P************* T P* EXTERNALS * j P************* P* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE REGS. A1-A8 ON
0x0f9258…0f93ec Dummy {f00=0x004a, f01=0x0190, f02=»ME NAME FROM DWT TO USER BUFFER ~ , P EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT ( . P EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS X P EXTRN DISIOE REQUEST ERROR & P EXTRN INIFLG INITIALIZATION FLAG * P EXTRN PFPOST PWF POST PROCESSING FLAG * P E
0x0f93ec…0f9580 Dummy {f00=0x004a, f01=0x0190, f02=»ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTA4 SAVE AREA A4 < EXTRN DWTA5 SAVE AREA A5 ^ & P EXTRN DWTORD SAVE AREA FOR ORDER $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL
0x0f9580…0f9714 (1, 159) Dummy {f00=0x004a, f01=0x018e, f02=»TROL WORD v P* P EJECT DRCD01 P* 2 P* < P************************** F P* * h P* CONDITIONAL ASSEMBLY * P* * P************************** P* P* 6 P*
0x0f9714…0f98a8 Dummy {f00=0x004a, f01=0x0190, f02=» P* . P* THIS DRIVER CAN HANDLE TWO DISC UNITS P* IF X:A := 2 D P* PX:A EQU 1 f PNUNITS EQU X:A x P* P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P*
0x0f98a8…0f9a3c Dummy {f00=0x004a, f01=0x0190, f02=» * P* CONSTANTS * P* * > P************************* ` P* & PCUADR EQU /17 CONTROL UNIT ADDRESS " PCUAD1 EQU CUADR ADDRESS UNIT 1 & PCUAD2 EQU CUADR+/20 ADDRESS UNIT 2 PDE
0x0f9a3c…0f9bd0 Dummy {f00=0x004a, f01=0x0190, f02=»LENGTH r , PSEZCOM EQU /E800 SEEK ZERO COMMAND CODE & PSEEKCO EQU /A800 SEEK COMMAND CODE > & PREDCOM EQU /0800 READ COMMAND CODE h ( PVERCOM EQU /3800 VERIFY COMMAND CODE ( PWRICOM EQU /1800 WRITE COMMAND CODE 4 PWHACOM EQU /22C0 WRITE SECTOR
0x0f9bd0…0f9d64 Dummy {f00=0x004a, f01=0x0190, f02=»NUMBER p PMAXSE1 EQU 8 MAXIMAL NUMBER PMAXSE2 EQU /53C6 OF SECTORS 2 $ PINLACE EQU 5 INTERLACING FACTOR V P* ~ P EJECT DRCD01 P* P* P* DRIVER ADDRESS BLOCK P* P* $ P DATA 0 INDICATES NO MMU BUFFER
0x0f9d64…0f9ef8 Dummy {f00=0x004a, f01=0x0190, f02=» P* P* DRIVER BUFFER P* , P* 6 PBUFFER EQU * @ P RES 256 T P* d P EJECT DRCD01 n P* P* P**************************** P* * P* ACTIVATION * P*
0x0f9ef8…0fa08c Dummy {f00=0x004a, f01=0x0190, f02=»CK BASE ~ 0 P LD A4,DWTRE1,A6 GET GRAND TOTAL OF RETRIES 0 P ST A4,DWTRE2,A6 PRESENT TOTAL RETRY COUNTER D . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED x P* SAVE INDEX AND ORDER P ADK A7,0 SET CR ( P RF(NZ) CDA:00 NOT TEST STATUS ORDER
0x0fa08c…0fa220 Dummy {f00=0x004a, f01=0x0190, f02=» * ~ P* * P********************* * P* H P* R P ORS A1,ECBRC,A8 NVL BIT & P IM DWTSAV,A6 INDICATE TEST STATUS | " P CF A5,VO:NAM READ VOLUME NAME P ANK A1,1 P RF(NZ) TESEND NOT OPERABLE P LD A8
0x0fa220…0fa3b4 (1, 160) Dummy {f00=0x004a, f01=0x0190, f02=» " P CM DWTSAV,A6 TEST STATUS DONE P RF DENDIO PERFORM ENDIO . P* N P EJECT DRCD01 X P* p , P*************************************** z , P* * , P* NEW VOLUME LOADED CHECK * ,
0x0fa3b4…0fa548 Dummy {f00=0x004a, f01=0x0190, f02=»* j P* . P* INPUT: A1=NVL RETURN CODE FROM NVLCHK P* A7=ORDER CODE F P* f P* p PCDA:00 EQU * z ( P ADK A1,0 CHECK IF NEW VOLUME LOADED P RF(NZ) DENDIO PERFORM ENDIO P SUK A7,1 P RF(Z) CD:010 BASIC READ
0x0fa548…0fa6dc Dummy {f00=0x004a, f01=0x0190, f02=»F(Z) CD:000 PHYSICAL WRITE P SUK A7,10 " P RF(Z) FORMAT FORMAT VOLUME 4 P* X " PDUERR ABL DISIOE REQUEST ERROR b P* ( PINCLEN EQU * REQUESTED LENGTH ERROR P LDKL A1,/8008 PDENDIO EQU * P ABL END:IO P* P*
0x0fa6dc…0fa870 Dummy {f00=0x004a, f01=0x0190, f02=» FORMAT VOLUME * & P* * ( & P********************************* R P* | P* PFORMAT EQU * ( P LDKL A1,SEEKCO SEEK OPERATION CODE , P ST A1,DWTSEK,A6 TO SEEK OPERATION AREA P CF A5,S
0x0fa870…0faa04 Dummy {f00=0x004a, f01=0x0190, f02=» DATA LOSECL P DATA NOTRAN+LOSECL $ P MS 3,DWTCOP,A6 PREPARE FOR READ 0 P LDR A4,A6 WHA POINTER X P* v P EJECT DRCD01 P* P* PFOR:60 EQU * P LD A1,ECBCW1,A8 * P RF(Z) FOR:70 NO BAD TRACK FLAG CHECK " P CF
0x0faa04…0fab98 Dummy {f00=0x004a, f01=0x0190, f02=»WTWHA,A4 P IM DWTCOP,A6 NEXT HEAD P ADK A4,4 0 P LDR A1,A4 B P SUR A1,A6 T P SUK A1,DWTCOP-DWTWHA f P RB(L) FOR:60 NEXT HEAD P LDKL A1,/800 INTERUPT BIT P ORS A1,DWTWHA+16,A6 $ P CF A5,HOMEAD WRITE SECTOR MARKS
0x0fab98…0fad2c Dummy {f00=0x004a, f01=0x0190, f02=») FOR:10 NEXT CYLINDER P LDKL A2,MAXCYL-1 821 P IFT NUNITS=1 < $ P ST A2,DWTCYL,A6 CYLINDER NUMBER R P XIF z P IFT NUNITS=2 P CF A15,INXDWT $ P ST A2,DWTCYL,A4 CYLINDER NUMBER P XIF P RB DENDIO PERFORM ENDIO P*
0x0fad2c…0faec0 Dummy {f00=0x004a, f01=0x0190, f02=» * n 0 ,* INPUT ECB-PARAMETER CHECK * 0 ,* * F 0 ,******************************************** z * * PCD:000 EQU * P LDK A7,5 INDICATE WRITE PCD:010 EQU * &
0x0faec0…0fb054 (1, 161) Dummy {f00=0x004a, f01=0x0190, f02=» ( $ LD A1,ECBRL,A8 GET REQUESTED LENGTH $ P RB(Z) INCLEN INCORRECT REQUEST 0 ECR A2,A1 DIVIDE BY 256 X $ ANK A1,/FF REST AFTER DIVISION x $ P RB(NZ) INCLEN INCORRECT REQUEST 4 / ST A2,DWTLOS,A6 SAVE NUMBER OF LOGICAL SECTORS ( # DA ECBC
0x0fb054…0fb1e8 Dummy {f00=0x004a, f01=0x0190, f02=»DRCD01 * * " * GET PHYSICAL SECTOR NUMBER " P* GET BUFFER ADDRESS H P* PREPARE SECTOR MASK f * * P IFT MMUPAG=0 . P LD A2,ECBBA,A8 GET 16 BIT BUFFER ADDRESS P ST A2,DWTBA,A6 P XIF P I
0x0fb1e8…0fb37c Dummy {f00=0x004a, f01=0x0190, f02=» P MS 2,DWTBA,A6 P XIF . ) ML 2,ECBCW1,A8 GET LOGICAL SECTOR NUMBER & ( P LDK A3,0 DIVIDE MOST SIGN PART BY 3 X PCD:100 EQU * P ADK A3,1 P SUK A1,3 P RB(NN) CD:100 P ADK A1,3 P SUK A3,1 , P ST A3,DWTSEC,A6 P
0x0fb37c…0fb510 Dummy {f00=0x004a, f01=0x0190, f02=» r P ANK A7,4 ORDER CHECK P RF(Z) REA:00 READ ORDER & EJECT DRCD01 F * * f $ P******************************** p $ P* * $ P* WRITE SECTORS * $ P* *
0x0fb510…0fb6a4 Dummy {f00=0x004a, f01=0x0190, f02=»TOTAL PHYSICAL SECTOR PWRI:10 EQU * < P ML 3,DWTBSE,A6 GET IDENTITY OF SECTORS IN DRIVER BUFFER 2 $ P OR A3,DWTMAS,A6 GET SECTOR MASK r P SUK A3,7 0 P RF(NZ) WRI:20 NOT COMPLETE PHYSICAL SECTOR $ P LD A3,DWTOR,A6 GET UNIT NUMBER P
0x0fb6a4…0fb838 Dummy {f00=0x004a, f01=0x018e, f02=» P EJECT DRCD01 P* P* $ PWRI:20 EQU * . & P IM DWTTRA,A6 INDICATE NO TRANSFER B . P CF A5,READ READ SECTORS TO DRIVER BUFFER l P* PWRI:30 EQU * * P CF A5,WRITE WRITE ONE PHYSICAL SECTOR P IFT RAW=1 P LD A1,DWTOR
0x0fb838…0fb9cc Dummy {f00=0x004a, f01=0x0190, f02=» P XIF P CF A5,UPDATE 2 P LD A1,DWTLOS,A6 GET NUMBER OF LOGICAL SECTORS * " P RF(Z) REA:50 LAST SECTOR DONE ` & P CF A5,MASK00 PREPARE SECTOR MASK P LD A1,DWTMAS,A6 GET MASK P SUK A1,7 ( P RB(NZ) WRI:10 LESS THAN 3 SECTOR IO
0x0fb9cc…0fbb60 Dummy {f00=0x004a, f01=0x0190, f02=»D AFTER WRITE j P MS 4,DWTRAW,A6 P IFT MMUPAG=1 . P LD A1,DWTSEC+2,A6 D P ST A1,DWTRAW+8,A6 ^ P XIF x P LDK A3,7 P ST A3,DWTMAS,A6 SECTOR MASK PWRI:55 EQU * P CF A5,WRITE P IFT RAW=1 8 P IM DWTTRA,A6 INDICA
0x0fbb60…0fbcf4 (1, 162) Dummy {f00=0x004b, f01=0x0190, f02=»S,A6 NUMBER OF LOGICAL SECTORS P SUK A1,3 & ( P RB(NN) WRI:55 NEXT PHYSICAL SECTOR 8 P IFT RAW=1 d P* v P EJECT DRCD01 P* P* P LD A2,DWTOR,A6 P ANK A2,/10 P RF(Z) WRI:70 BASIV WRITE 2 P ML 4,DWTRAW,A6
0x0fbcf4…0fbe88 Dummy {f00=0x004b, f01=0x0190, f02=»IF P IFT RAW=1 PWRI:60 EQU * P CF A5,CIOLOD 0 P CF A5,VERIFY F P CF A5,UPDAT . P LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS p P SUK A1,3 ( P RB(NN) WRI:60 NEXT PHYSICAL SECTOR P XIF PWRI:70 EQU * P ADK A1,
0x0fbe88…0fc01c Dummy {f00=0x004b, f01=0x0190, f02=»CT DRCD01 P* P* $ P******************************** & $ P* * N $ P* READ SECTORS * v $ P* * $ P******************************** P* P* PREA:00
0x0fc01c…0fc1b0 Dummy {f00=0x004b, f01=0x0190, f02=»A6 NUMBER OF LOGICAL SECTORS P RF(Z) REA:50 IO READY ! $ P SUK A1,3 ! B 0 P RB(NN) REA:00 AT LEAST ONE PHYSICAL SECTOR ! T P CF A5,MASK00 ! P CF A5,READ ! P CF A5,UPDATE ! P LDK A1,0 RESET RETURN CODE ! PREA:50 EQU * ! P ABL END
0x0fc1b0…0fc344 Dummy {f00=0x004b, f01=0x0190, f02=»AD SECTOR N * ! * * " ********************* " 6 * " T * " ^ PREAD EQU * " h P CF A5,CIOLOD " z 6 P CM DWTBSE+4,A6 CLEAR BUFFER IND. IN CASE OF ERROR " * % LDKL A3,REDCOM GET READ COMMAND CODE " , P ORS A3,DWTCOP,A
0x0fc344…0fc4d8 Dummy {f00=0x004b, f01=0x0190, f02=» RF(Z) RET34 OK. NO RETURN CODE " * # ( * IO ERROR IN READING # 2 * # P P IM DWTRE2,A6 # Z $ SUK A4,1 DECREMENT RETRYCOUNTER # p 4 P RB(P) READ10 3:RD RETRY IN THIS STATE NOT DONE # $ LDK A4,RY3 REINIT RETRYCOUNTER # P* # P EJECT
0x0fc4d8…0fc66c Dummy {f00=0x004b, f01=0x0190, f02=»H EARLY- OR LATE- # v RF(NZ) RET31 DATA STROBE ? $ 0 , LDKL A3,/8000 PREPARE FOR EARLY DATA STROBE $ > ORS A3,DWTCOP,A6 $ r 4 / RB READ10 RETRY 3 TIMES WITH EARLY DATA STROBE $ RET31 EQU * $ ANK A2,/80 $ 4 / RF(Z) RET32 LAST RETRIES WE
0x0fc66c…0fc800 Dummy {f00=0x004b, f01=0x0190, f02=»ES WITH LATE DATA STROBE $ z RET32 EQU * % LDKL A3,/3FFF % 4 , ( ANS A3,DWTCOP,A6 RESET LATE DATA STROBE % J LC A2,DWTCOP+2,A6 % z 2 - ANK A2,/C0 LAST RETRY CARRIAGE+ OR CARRIAGE- % RF(NZ) RET33 % ( $ LDKL A3,/8000 PREPARE FOR CARRIAGE+ %
0x0fc800…0fc994 (1, 163) Dummy {f00=0x004b, f01=0x0190, f02=»3 EQU * % ANK A2,/80 & , P RF(Z) RET35 LAST RETRY WAS A CARRIAGE- & $ LDKL A3,/C000 & T : 5 XRS A3,DWTCOP+2,A6 CHANGE FROM CARRIAGE+TO CARRIAGE- & j , ' RB READ10 RETRY 3 TIMES WITH CARRIAGE- & PRET35 EQU * & P LD A2,DWTSAV,A6 & $ P RB(
0x0fc994…0fcb28 Dummy {f00=0x004b, f01=0x0190, f02=» P************************** ' P* * ' & P* WRITE SECTOR N * ' H P* * ' j P************************** ' P* ' PWRITE EQU * ' P CF A5,CIOLOD ' $ P LDKL A3,WRICOM WRITE ORDER CODE '
0x0fcb28…0fccbc Dummy {f00=0x004b, f01=0x0190, f02=»RIT50 WRITE OK ' " P IM DWTRE2,A6 RETRY PERFORMED ( P SUK A4,1 ( < P RB(NZ) WRIT20 RETRY ( N P RB REA:50 NO MORE RETRIES ( j PWRIT50 EQU * ( P RTN A5 ( P* ( P IFT RAW=1 ( P EJECT DRCD01 ( P* ( P* ( P******************
0x0fccbc…0fce50 Dummy {f00=0x004b, f01=0x0190, f02=»****************** ( P* ) PVERIFY EQU * ) $ * P LDKL A3,VERCOM ORDER CODE FOR VERIFY ) 8 P ORS A3,DWTCOP,A6 ) f P RB READ00 ) P* ) P XIF ) P EJECT DRCD01 ) P* ) P* ) . P* SEEK,SEEKZ,WRITE HOME ADDRESS AND CIO ) P* )
0x0fce50…0fcfe4 Dummy {f00=0x004b, f01=0x0190, f02=»U * ) 6 P LDK A2,DWTSEZ GET EFFECTIVE ADDRESS TO SEEK 0 OP. * P RF EXCIO * F P* * X P* * b PHOMEAD EQU * * l . P LDK A2,DWTWHA GET WRITE HOME ADDRESS OP. * P RF EXCIO * P* * P* * PCIO EQU * * 4 P LDK A2,DWTCOP GET EFFECTIVE A
0x0fcfe4…0fd178 Dummy {f00=0x004b, f01=0x0190, f02=»D A3,PFPOST * ( P RF(NZ) CIOAB PWF POST PROCESSING ON + P IFT NUNITS=2 + @ 0 P CF A15,INXDWT GET INDEXED DWT DISPLACEMENT + V P EX DWTCIO,A4 + P XIF + P IFT NUNITS=1 + P EX DWTCIO,A6 + P XIF + P ABL(3) END:30 + PCIOAB EQU * +
0x0fd178…0fd30c Dummy {f00=0x004b, f01=0x0190, f02=»*********************************** + . )* * , , . )* SUBROUTINE CIOLOD * , ^ . )* PREPARE CIO WORK AREA * , . )* * , . )********************
0x0fd30c…0fd4a0 Dummy {f00=0x004b, f01=0x0190, f02=»A3 = MASK , " P* A4 = CIO WORK AREA POINTER - P* A7 = USER BUFFER POINTER - 8 " P* A8 = DRIVER BUFFER POINTER - * - $ P* DWTTRA = TRANSFER INDICATOR - < P* DWTMAS = MASK INDICATING SECTORS TO/FROM USER BUFFER - P* DWTBA = BUFFER
0x0fd4a0…0fd634 (1, 164) Dummy {f00=0x004b, f01=0x0190, f02=» A4,DWTCOP CIO WORK AREA ADDRESS - * P LDKL A8,BUFFER DRIVER BUFFFER ADDRESS . ( $ P LD A3,DWTMAS,A6 GET BUFFER MASK . V P SRC A3,4 MASK IN POSITION . ~ " P LDK A7,0 USER BUFFER POINTER . P* . P EJECT DRCD01 . P* . P* . PCIOL10 EQU * .
0x0fd634…0fd7c8 Dummy {f00=0x004b, f01=0x0190, f02=»L A1,/C000+LOSECL NO TRANSFER ORDER . ( P LD A2,DWTTRA,A6 TRANSFER INDICATOR / , P RF(NZ) CIOL55 NO TRANSFER / X P* / z P IFT MMUPAG=0 / P LDKL A1,/4080 / & P LDR A2,A7 BUFFER ADDRESS POINTER / " P AD A2,DWTBA,A6 BUFFER ADDRESS / P MSR 2,A
0x0fd7c8…0fd95c Dummy {f00=0x004b, f01=0x0190, f02=»TED / ~ ( P DA DWTBA,A6 GET USER BUFFER ADDRESS 0 P SLL A2,1 IN POSITION 0 8 P SRC A1,4 IN POSITION 0 V P MSR 2,A4 TO CIO WORK AREA 0 t . P ADK A7,LOSECL UPDATE USER BUFFER POINTER 0 P XIF 0 P RB CIOL10 0 P* 0 P EJECT DRCD01 0 P*
0x0fd95c…0fdaf0 Dummy {f00=0x004b, f01=0x0190, f02=»INTER 0 l PCIOL55 EQU * 1 P MSR 2,A4 TO CIO WORK AREA 1 " P RB CIOL10 1 D PCIOL60 EQU * 1 V P LDKL A1,/B000+LOSECL 1 j " P ANS A1,DWTCOP+12,A6 CLEAR BIT 1 P LDKL A1,PHSECL 1 P ST A1,DWTCOP+2,A6 1 ( P CM DWTTRA,A6 CLEAR NO TRANSFER FLAG 1
0x0fdaf0…0fdc84 Dummy {f00=0x004b, f01=0x018e, f02=» * 1 r . )* PUT SECTOR NUMBER * 2 . )* AND HEAD NUMBER IN POS. * 2 F . )* * 2 x . )***************************************** 2 * 2 & "* INPUT: PHYSICAL SECTOR NUMBER
0x0fdc84…0fde18 Dummy {f00=0x004b, f01=0x0190, f02=» 2 * P ML 2,DWTSEC,A6 PHYSICAL SECTOR NUMBER 3 P DVK 115 3 6 0 P* A1 = REST = HEAD NUMBER * SECTOR NUMBER 3 F ( P* A2 = QUOTIENT = CYLINDER NUMBER 3 z $ P LDR A3,A2 SAVE CYLINDER NUMBER 3 P LDR A2,A1 3 P LDK A1,0 3 P DVK 23 3 P* A1
0x0fde18…0fdfac Dummy {f00=0x004b, f01=0x0190, f02=»ECTOR NUMBER 3 P MUK INLACE INTERLACING 4 P SLC A3,1 4 4 & P RF(NN) CIOP10 EVEN CYLINDER NUMBE 4 F P ADK A2,12 SKEW FACTOR 4 p P* 4 P EJECT DRCD01 4 P* 4 P* 4 PCIOP10 EQU * 4 4 P DVK 23 GET INTERLACED AND SKEWED SECTOR NUMBER 4
0x0fdfac…0fe140 Dummy {f00=0x004b, f01=0x018e, f02=»UNITS=2 4 P CF A15,INXDWT 5 P CW A3,DWTCYL,A4 5 & P RF(E) CIOP50 SAME CYLINDER 5 > * P ST A3,DWTCYL,A4 SAVE CYLINDER NUMBER 5 b P XIF 5 P IFT NUNITS=1 5 P CW A3,DWTCYL,A6 5 P RF(E) CIOP50 SAME CYLINDER 5 * P ST A3,DWTCYL,A6 SAVE CYLI
0x0fe140…0fe2d4 (1, 165) Dummy {f00=0x004b, f01=0x0190, f02=» P* 6 P* SEEK CYLINDER 6 P* 6 ( P* 6 2 P LDK A4,RY3 RETRIES 6 < PSE:010 EQU * 6 X P CF A5,SEEK SEEK CYLINDER N 6 l P ANK A1,2 6 $ P RF(Z) CIOP50 OK. SEEK COMPLETED 6 P IM DWTRE2,A6 6 & P SUK A4,1 DECREMENT RETRY-COUNTER 6
0x0fe2d4…0fe468 Dummy {f00=0x004b, f01=0x0190, f02=» * 7 PSE:020 EQU * 7 P RF END:SE SEEK ERROR END IO 7 " PCIOP50 EQU * 7 F P RTN A5 7 Z P* 7 j P EJECT DRCD01 7 t P* 7 P* 7 * P************************************* 7 * P* * 7 * P* SUBROUTINE
0x0fe468…0fe5fc Dummy {f00=0x004b, f01=0x0190, f02=» UPDATES : DWTBSE PRESENT SECTORS IN DRIVER BUFFER 7 @ P* DWTLOS NUMBER OF LOGICAL SECTORS LEFT IN IO 8 > . P* DWTBA USER BUFFER POINTER 8 2 P* DWTSEC PHYSICAL SECTOR POINTER 8 , P* ECBEL EFFECTI
0x0fe5fc…0fe790 Dummy {f00=0x004b, f01=0x0190, f02=» ANK A3,7 3 BITS 8 P LD A1,DWTOR,A6 GET INDEX 9 P ANKL A1,/100 UNIT NUMBER 9 : P DA DWTSEC,A6 SECTOR NUMBER 9 P MS 3,DWTBSE,A6 SAVE 9 PUPDAT EQU * 9 $ P LD A1,DWTMAS,A6 GET SECTOR MASK 9 P LDK A2,0 9 P SRC A1,3 9 PUPDA00 EQU *
0x0fe790…0fe924 Dummy {f00=0x004b, f01=0x0190, f02=» P RB(NZ) UPDA00 MORE SECTORS : P* : ( P EJECT DRCD01 : 2 P* : H P* : R " P LD A3,DWTLOS,A6 UPDATE DWTLOS : P SUR A3,A2 : P ST A3,DWTLOS,A6 : P* : P IFT MMUPAG=1 : P SLL A2,7 UPDATE DWTBA : P LDR A3,A2 SAVE LENGTH : P
0x0fe924…0feab8 Dummy {f00=0x004b, f01=0x0190, f02=»BUFFER POINTER : x P XIF ; P* ; " P IFT RAW=1 ; , P LD A1,DWTTRA,A6 ; > * P RF(Z) UPDA50 UPDATE EFFECTIVE LENGTH ; V P LD A7,DWTOR,A6 GET ORDER ; P ANK A7,/10 ; P RF(NZ) UPDA60 ; P XIF ; P* ; P EJECT DRCD01 ; P* ; P*
0x0feab8…0fec4c Dummy {f00=0x004b, f01=0x0190, f02=»CTIVE LENGTH ; t P XIF < PUPDA60 EQU * < P* < 4 P LDK A1,0 < > P LDK A2,1 < P P DA DWTSEC,A6 < b P MS 2,DWTSEC,A6 < x P* < P RTN A5 < P EJECT DRCD01 < P* < P* < 0 P******************************************* < 0 P
0x0fec4c…0fede0 Dummy {f00=0x004b, f01=0x0190, f02=»CAL * < p 0 P* SECTORS IN PHYSICAL * = 0 P* * = H 0 P******************************************* = | P* = P* A1 = POSITION IN SECTOR = " P* DWTLOS = NUMBER OF SECTORS = P* =
0x0fede0…0fef74 (1, 166) Dummy {f00=0x004c, f01=0x018e, f02=»DK A3,4 1 0 0 = & P RF(N) MASK10 1 SECTOR LEFT IN IO > P LDK A3,6 1 1 0 > B & P RF(Z) MASK10 2 SECTORS LEFT IN IO > P LDK A3,7 1 1 1 > PMASK10 EQU * > P SUK A1,1 > P RF(Z) MASK20 0 1 0 > P RF(N) MASK30 1 0 0 > P SRL A
0x0fef74…0ff108 Dummy {f00=0x004c, f01=0x0190, f02=» P EJECT DRCD01 ? P* ? P* ? $ P************************* ? . P* * ? P P* PERFORM END IO * ? r P* * ? P************************* ? P* ? PEND:SE EQU * SEEK ERROR ? P IFT N
0x0ff108…0ff29c Dummy {f00=0x004c, f01=0x018e, f02=» P LDKL A3,/FFFF @ * P ST A3,DWTCYL,A4 DUMMY CYLINDER NUMBER @ P XIF @ H PEND:00 EQU * @ T P LD A2,DWTRE2,A6 @ h P CW A2,DWTRE1,A6 @ P RF(E) END:IO @ , P ST A2,DWTRE1,A6 GRAND TOTAL OF RETRIES @ $ P ORKL A1,/100 RETRIES PERFORMED @ P*
0x0ff29c…0ff430 Dummy {f00=0x004c, f01=0x018e, f02=» @ . P ORS A1,DWTST,A6 INDICATE RECOVERY DONE =1 A P RB END:IO A : P* A L P EJECT DRCD01 A V P* A l P* A v P********************** A P* * A P* RECOVERY ROUTINE * A P* * A P****************
0x0ff430…0ff5c4 Dummy {f00=0x004c, f01=0x0190, f02=» P IFT CPU852=0 B " P MSR 8,A15 SAVE A1-A8 ON STACK B P XIF B @ P* B L P LDKL A6,DWCD01 B V " P LDK A5,DWTSB3 GET STACK BASE B n P ADR A5,A6 B P LDKL A1,-1 B & P ST A1,DWTSAV,A6 INDICATE RECOVERY B 4 P LDKL A1,/7FFE SET UNIT BUSY AND REC
0x0ff5c4…0ff758 Dummy {f00=0x004c, f01=0x0190, f02=» EJECT DRCD01 B P* C P* C P IFT NUNITS=2 C * P CM DWTOR,A6 1ST UNIT C @ " P CF A5,SEEKZ TEST IF OPERABLE C ^ P ANK A1,1 C P RF(NZ) CDON26 NOT OPERABLE C P LDK A1,1 C P SC A1,DWTOR,A6 2ND UNIT C P XIF C " P CF A5,SEEKZ TES
0x0ff758…0ff8ec Dummy {f00=0x004c, f01=0x0190, f02=» EQU * C P CM DWTOR,A6 1ST UNIT D P CF A5,VO:NAM D , P IFT NUNITS=2 D B P LDK A1,1 2ND UNIT D X P SC A1,DWTOR,A6 D r P CF A5,VO:NAM D P XIF D , P IM DWTST,A6 INDICATE VOLUME NAMES READ D P CM DWTSAV,A6 RECOVERY DONE D P* D $
0x0ff8ec…0ffa80 Dummy {f00=0x004c, f01=0x0190, f02=»WTOR,A6 RESTORE INDEX AND ORDER D P ANK A7,/3F E ( P* E < ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH E F P ABL CDAD REPEAT REQUEST E r P* E P EJECT DRCD01 E P* E P* READY INTERRUPT E P* E PCDREDY LD A1,TIMER E " P RF(Z) CDO
0x0ffa80…0ffc14 (1, 167) Dummy {f00=0x004c, f01=0x0190, f02=»UNITS=2 E P RB T:DISP TIMER ACTIVE F P XIF F 0 P* F < P EJECT DRCD01 F F P* F ^ P* F h PCDON26 EQU * F r ( P LDKL A4,TIMER TIMER POINTER ADDRESS F P LDR* A3,A4 F " P RF(Z) CDON30 NO TIMER ACTIVE F P LDKL A1,-TIME F P STR A
0x0ffc14…0ffda8 Dummy {f00=0x004c, f01=0x0190, f02=»SS, TIME F p P RB T:DISP G P* G " P* TIME OUT G , P* G @ PCDON40 LDKL A6,DWCD01 G J P CM TIMER G h PCDON50 EQU * G z 4 P LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON =1 G P ANS A1,DWTST,A6 =1 G P LDKL A1,-1 G & P ST A1,DWTSAV,A6 I
0x0ffda8…0fff3c Dummy {f00=0x004c, f01=0x0190, f02=» P* H P*********************** H P* * H . P* INTERRUPT HANDLER * H N P* * H n P*********************** H P* H P* H B P* OUTPUT BIT 1 12 13 14 15 H P
0x0fff3c…1000d0 Dummy {f00=0x004c, f01=0x0190, f02=» RECORD NOT FOUND X H > P* 6 SEEK ERROR X I 6 P* 9 DRIVE NUMBER I x 8 P* 12 INCORRECT LENGTH X I < P* 13 PARITY ERROR
0x1000d0…100264 Dummy {f00=0x004c, f01=0x0190, f02=» X I X P* J PIHCD EQU * J $ P ST P,INTSAV SAVE LAST INTERRUPT J * & P MSR 8,A15 SAVE REGISTERS ON STACK J R P LDKL A6,DWCD01 DWT ADDRESS J | P SST A1,CUADR GET STATUS J P LDR A2,A1 J P ANK A1,/F KEEP BITS J P SLL A2,1 J " P RB(N) C
0x100264…1003f8 Dummy {f00=0x004c, f01=0x018e, f02=»* J P EJECT DRCD01 K P* K P* K * PIHCD40 EQU * K 4 P ANKL A2,/2800 K H P RF(Z) IHCD50 K ^ P ORK A1,2 K t PIHCD50 EQU * K $ P LD A8,DWTECB,A6 GET ECB ADDRESS K P LDR A3,A1 RETURN CODE K P LD A2,DWTSAV,A6 K " P RF(NZ) IHCD70 V
0x1003f8…10058c Dummy {f00=0x004c, f01=0x0190, f02=» & P LD A4,DWTA4,A6 GET RETRY COUNTER L P RTN A5 L . P* L > P EJECT DRCD01 L H P* L ^ P********** L h P* VO:NAM * L z P********** L P* L P* L PVO:NAM EQU * L P CF A5,SEEKZ L P ANK A1,3 L P RF(NZ) VO:NA7 ERROR L " P
0x10058c…100720 Dummy {f00=0x004c, f01=0x018e, f02=»5,DWTCOP,A6 L $ P LDR A5,A7 RESTORE STACK POINTER M 0 P CF A5,READ00 READ SECTOR 0 TO DRIVER BUFFER M < * P CM DWTBSE+4,A6 CLEAR IN CASE OF ERROR M p P ANK A1,/F M P RF(NZ) VO:NA7 ERROR M P LD A1,DWTOR,A6 M P ANKL A1,/100 UNIT NUMBER M P L
0x100720…1008b4 (1, 168) Dummy {f00=0x004c, f01=0x018e, f02=» M x P LD A1,DWTSAV,A6 N P RF(N) VO:NA5 N ( P LDKL A3,/80FC INDICATE TEST STATUS N 6 PVO:NA5 EQU * N b & P CF A15,VOLGET VOLUME NAME TO DWT N v P* N P EJECT DRCD01 N P* N P* N P LDK A1,0 RESET RETURN CODE N P LDK A3,0 CYLIND
0x1008b4…100a48 Dummy {f00=0x004c, f01=0x0190, f02=» N x ( P LDKL A3,/FFFF DUMMY CYLINDER NUMBER O PVO:NA8 EQU * O 4 P IFT NUNITS=1 O H " P ST A3,DWTCYL,A6 HEAD POSITION O ^ P XIF O P IFT NUNITS=2 O P CF A15,INXDWT O P ST A3,DWTCYL,A4 O P XIF O P RTN A5 O P* O P* O P*
0x100a48…100bdc Dummy {f00=0x004c, f01=0x0190, f02=»***** O p * P* * P * P* DEVICE WORK TABLE * P < * P* * P j * P************************************* P P* P P* P PDWCD01 EQU * P P DATA 0 P P DATA /800
0x100bdc…100d70 Dummy {f00=0x004c, f01=0x018e, f02=» DATA 0 WAIT/ACTIVATE INDICATOR P P DATA 0 TERMINAL QUEUE Q ( P* Q F P IFT MMUPAG=1 Q P & " DATA 0 SAVE AREA USER ECB ADDRESS Q f P DATA ECBCD1 MMU ECB ADDRESS Q XIF Q P* Q PDWTTRA EQU *-DWCD01 Q P DATA 0 Q ( P DATA 0,0,0 SAVE A
0x100d70…100f04 Dummy {f00=0x004c, f01=0x0190, f02=» Q P* R P EJECT DRCD01 R P* R ( P* R 2 P DATA 0 R < 2 P DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 1 R L 2 P DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 2 R 2 PDWTRE1 EQU *-DWCD01 GRAND TOTAL RETRY COUNTER R P DATA 0 R , PDWTRE2 EQU
0x100f04…101098 Dummy {f00=0x004c, f01=0x0190, f02=»F,/FFFF,/FFFF VOLUME NAME UNIT 2 R P XIF S ( * PDWTBA EQU *-DWCD01 USER BUFFER POINTER S 4 P DATA 0 S b P IFT MMUPAG=1 S r P DATA 0 S P XIF S . PDWTLOS EQU *-DWCD01 LOGICAL SECTOR COUNTER S P DATA 0 S . PDWTSEC EQU *-DWCD01 PHYSICAL SECTO
0x101098…10122c Dummy {f00=0x004c, f01=0x0190, f02=» P* CIO WORK AREAS T P* T , PDWTCIO EQU *-DWCD01 CIO INTRUCTIONS AREA T ( $ P CIO A2,1,CUAD1 CIO ON 1ST UNIT T X P IFT NUNITS=2 T $ P CIO A2,1,CUAD2 CIO ON 2ND UNIT T P XIF T , PDWTSEK EQU *-DWCD01 SEEK OPERATION AREA T P DATA SEEKCO T
0x10122c…1013c0 Dummy {f00=0x004c, f01=0x0190, f02=» T Z P DATA WHACOM U P DATA PHSECL U P DATA WHACOM+1 U 0 P DATA PHSECL U F P DATA WHACOM+2 U Z P DATA PHSECL U p P DATA WHACOM+3 U P DATA PHSECL U ( P DATA WHACOM+/804 INTERRUPT BIT SET U P DATA PHSECL U & PDWTCOP EQU *-DWCD01 CIO WO
0x1013c0…101554 (1, 169) Dummy {f00=0x004c, f01=0x0190, f02=»ENT CYLINDER NUMBER U x P DATA /FFFF UNIT 1 V P IFT NUNITS=2 V 6 P DATA /FFFF UNIT 2 V L P XIF V f P DATA 0,0 V r P DATA 0,0 V P DATA 0,0 V PDWTSB3 EQU *-DWCD01-2 STACK V P IFT RAW=1 V 2 PDWTRAW EQU *-DWCD01 READ AFTER WRITE SAVE
0x101554…1016e8 Dummy {f00=0x004c, f01=0x4038, f02=»0,0,0,0,0 V P XIF W P* W END W (@ W 4FT NUNITS=2 V 6 P DATA /FFFF UNIT 2 V L P XIF V f P DATA 0,0 V r P DATA 0,0 V P DATA 0,0 V PDWTSB3 EQU *-DWCD01-2 STACK V P IFT RAW=1 V 2 PDWTRAW EQU *-DWCD01 READ AFTER WRITE SAVE
0x1016e8…10187c Dummy {f00=0x004c, f01=0x2008, f02=» X ************* | * & "* INPUT: PHYSICAL SECTOR NUMBER ( 8 4* OUTPUT: INTERLACED SECTOR NUMBER AND HEAD NUMBER R $ * IN POSITION FOR CIO * PERFORM SEEK * CIOPRE EQU * * END @
0x10187c…101a10 Dummy {f00=0x004c, f01=0x0190, f02=»4,/F P RF(Z) TAB020 PTAB010 ADK A2,/A " P SUK A4,1 : P RB(NZ) TAB010 L P* b PTAB020 SU A2,DWTHP,A6 l 4 P LC A4,DWTBC,A6 GET NUMBER OF OUTPUT CHARACTERS * P SUR A2,A4 NUMBER OF SPACES TO BE SENT , P RB(NP) WRT050 NO SPACES
0x101a10…101ba4 Dummy {f00=0x004c, f01=0x0190, f02=»REMENT BYTE COUNTER P SUK A4,1 & P RB(NZ) TAB030 SEND ANOTHER SPACE . P LDR A3,A3 X P RB(NZ) WRT050 NOT RECOVERY j & P SC A4,DWTBC,A6 RESET BYTE COUNTER " P LDK A3,2 PRESET BUFFER INDEX " P RB WRT050 GET NEXT CHARACTER P EJE
0x101ba4…101d38 Dummy {f00=0x004c, f01=0x0190, f02=»SAVE8 SAVE A1-A8 ON STACK P XIF " P* . P IFT CPU852=0 8 " P MSR 8,A15 SAVE A1-A8 ON STACK N P XIF t P* $ P LDKL A6,DWTW01 GET DWT-ADDRESS P IFT POWUP=1 P LDKL A1,/200 & P ORS A1,DWTST,A6 INDICATE POWER UP P X
0x101d38…101ecc Dummy {f00=0x004c, f01=0x0190, f02=»NK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS P LDKL A5,DWTSB2 6 P ADR A5,A6 GET STACK BASE N P SUK A7,4 p " P ABL(N) TWA010 ORDERS 01,02,03 P SUK A7,1 P RF(Z) TWON20 ORDER 05 P INH P LDK A2,0 $ P CF A5,STRTIO EXEC
0x101ecc…102060 Dummy {f00=0x004c, f01=0x0190, f02=» P* PTWON20 LDK A1,TPERR ORDER 05 P ABL DISEND 2 P* F P* P P EJECT Z P* h P* r P* I H T W | P* 0 P* INTERRUPT HANDLER: PROCESS OF INTERRUPT P* P* PIHTW EQU * $ P ST P,INTSAV SAVE LA
0x102060…1021f4 (1, 170) Opaque[0x194]
0x1021f4…102388 # DirEnt {nam=»DRCR01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09a0, f03=0x0000}
0x1021f4…102388 IdxSect {
0x1021f4…102388 f00 = 0x004d // 0x1021f4 @0x0
0x1021f4…102388 f01 = 0x000c // 0x1021f6 @0x2
0x1021f4…102388 gno = [ // 0x1021f8 @0x4
0x1021f4…102388 [0x00]: C0x004d.0x0.0
0x1021f4…102388 [0x01]: C0x004d.0x1.0
0x1021f4…102388 [0x02]: C0x004d.0x2.0
0x1021f4…102388 [0x03]: C0x004d.0x3.0
0x1021f4…102388 [0x04]: C0x004e.0x0.0
0x1021f4…102388 [0x05]: C0x004e.0x1.0
0x1021f4…102388 ]
0x1021f4…102388 }
0x102388…10251c Dummy {f00=0x004d, f01=0x0190, f02=» 2 P IDENT DRCR01 REL 11.0 81-01-26 870105041100 P : P B P* J P* T @ P************************************************************ ^ P* " P* PHILIPS TERMINAL SYSTEM PTS P* " P* DRCR01 = DRIVER CARD READER P*
0x10251c…1026b0 Dummy {f00=0x004d, f01=0x0190, f02=» THIS DRIVER HANDLES ONE CARD READER PTS 6885 CONNECTED < P* TO CPU VIA CHCD ON PROGRAMMED OR MULTIPLEX CHANNEL @ P* P* @ P************************************************************ P EJECT DRCR01 P*****************
0x1026b0…102844 Dummy {f00=0x004d, f01=0x0190, f02=»RECOVERY ROUTINE " P ENTRY IHCR INTERRUPT HANDLER & P ENTRY DWCR01 DWT FOR CARD READER > P h * P************************************** r * P* EXTERNAL TOSS MODULE ENTRIES * * P************************************** P EXTRN TDISP
0x102844…1029d8 Dummy {f00=0x004d, f01=0x018e, f02=»O END I/O P EXTRN DISIOE REQUEST ERROR , P EXTRN INTSAV SAVE AREA, LAST INTERRUPT 6 * P EXTRN PFPOST PWF POST PROCESSING FLAG f P EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS EXTRN DWTA2 SAVE AREA A2 EXTRN DWT
0x1029d8…102b6c Dummy {f00=0x004d, f01=0x018e, f02=» z PDEVICE EQU /0D PMUX EQU DEVICE+DEVICE PREQLEN EQU 4 < PBUFFER EQU 2 P PEFFLEN EQU 6 d P EJECT DRCR01 x P* P************************** P* CONDITIONAL ASSEMBLY * P************************** . P* PROGR
0x102b6c…102d00 Dummy {f00=0x004d, f01=0x0190, f02=» P* P* P* MMU BUFFER SIZE P* 4 PX:B EQU 40 > PDVBLEN EQU X:B P P* f P* p P* MMU DEVICE INDEX z P* * PDEVIND EQU 2 CARD READER DEVICE INDEX P* P* . P* A PROGRAM VERSION USING TOSS MMU PAG
0x102d00…102e94 (1, 171) Dummy {f00=0x004d, f01=0x0190, f02=»E EXTENDED INSTRUCTION t . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* P PCPU852 EQU 1 Z P* n P EJECT DRCR01 DRCR01 x P STATUS P ******************** P -HARDWARE: . P BIT 10: INPUT HOPPER EMPTY OR OUTP
0x102e94…103028 Dummy {f00=0x004d, f01=0x0190, f02=»: REQUEST ERROR P 3: :EOF DETECTED " P 12: INCORRECT LENGTH < P 13: DATA FAULT b : P 2: HW BIT 10 IS SHIFTED TO BIT 2 IN ECB RETURN CODE P P P ORDER P ******************** P
0x103028…1031bc Dummy {f00=0x004d, f01=0x0190, f02=»DE ON 8 BITS, AND STORED r , P UNTIL REQUESTED LENGTH IS REACHED P EJECT DRCR01 P P *********************** h P *NORMAL REGISTER USAGE* P *********************** P A1=RETURN CODE P A2=WORK REGISTER P A3=WOR
0x1031bc…103350 Dummy {f00=0x004d, f01=0x0190, f02=» : P***************************************************** : P* NOTE! IN COMMENTS, THE FOLLOWING NOTATION IS USED * H : P* CARD COLUMNES: 1,2,3,4.......80 * : P* CARD ROWS : 12,11,0,1,2,3.....9 * : P******
0x103350…1034e4 Dummy {f00=0x004d, f01=0x018e, f02=»************* P * P DATA DVBLEN+DVBLEN MMU BUFFER LENGTH " P DATA DEVIND MMU DEVICE INDEX N PCRADR DATA ACCR t " P DATA 0 ABORT ROUTINE ADDRESS P IFT CHAN=0 P* P********** P* BUFFER * P********** PMU
0x1034e4…103678 Dummy {f00=0x004d, f01=0x0190, f02=» P* ACTIVATION PART * P* * & P************************* H P j PACCR EQU * t P SUK A7,2 ORDER 2? " P ABL(NZ) DISIOE REQUEST ERROR PORDER2 LD A3,REQLEN,A8 P CWK A3,80 P RF(NG) AC.1 &
0x103678…10380c Dummy {f00=0x004d, f01=0x0190, f02=»FLAG RESET RECOVERY INDICATOR P CF A5,READ READ ONE CARD & 2 P ANKL A1,/FFF7 RESET "INCORRECT LENGTH" BIT 12 H P OR A1,STATUS,A6 ~ P LDR A2,A1 RETURN CODE P ANK A2,/20 P RF(Z) ENDIO BIT 10 NOT SET P XRR A1,A2 RESET BIT 10
0x10380c…1039a0 Dummy {f00=0x004d, f01=0x0190, f02=» " P****************************** " P* SUBROUTIN TO READ ONE CARD * . " P****************************** T PREAD EQU * z P ST A5,DWTA5,A6 SAVE A5 P LD A4,BUFFER,A8 P SUK A4,1 , P ST A4,DWTA4,A6 SAVE BUFFER ADDRESS - 1 P L
0x1039a0…103b34 (1, 172) Dummy {f00=0x004d, f01=0x0190, f02=»MUX * P LDKL A4,MUXBUF DEFINE BUFFER ADDRESS P WER A4,MUX+1 : P XIF P P LD A1,PFPOST P RB(NZ) EXIT PFINIT PENDING r P CIO A3,1,DEVICE CIO START P RB(Z) EXIT ACCEPTED P LDK A1,1 ERROR P RB ENDIO P P
0x103b34…103cc8 Dummy {f00=0x004d, f01=0x018e, f02=»8 SAVE A1-A8 ON STACK P XIF P* * P IFT CPU852=0 4 " P MSR 8,A15 SAVE A1-A8 ON STACK J P XIF p P* | P LDKL A6,DWCR01 DWT ADDRESS P LD A3,DWTST,A6 REQUEST ON? P RB(N) EXIT NO! , P LDK A1,2 SET "THROUGHPUT ERROR" B
0x103cc8…103e5c Dummy {f00=0x004d, f01=0x0190, f02=» P P********************* P* INTERRUPT HANDLER * 0 P********************* N PIHCR EQU * l & P ST P,INTSAVE SAVE LAST INTERRUPT ~ P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU85
0x103e5c…103ff0 Dummy {f00=0x004d, f01=0x0190, f02=» t P LD A8,DWTECB,A6 ECB ADDRESS P IFT CHAN=1 , : P INR A3,0,DEVICE LD A3 WITH CHARACTER FROM CARD READER @ P RF(A) CONV ~ P XIF P IFT CHAN=0 : P LDKL A5,MUXBUF GET BUFFERADDRESS AND START CONVERSION P ENB PIHCR10 EQU *
0x103ff0…104184 Dummy {f00=0x004d, f01=0x0190, f02=» P SST A1,DEVICE NOT ACCEPTED P LD A5,DWTA5,A6 , P RTN A5 D P EJECT DRCR01 T P l P******************* v P* CODE CONVERSION * P******************* P . P A3=RECIEVED CHARACTER IN HOLERITH-CODE P
0x104184…104318 Dummy {f00=0x004d, f01=0x0190, f02=»IGNIFICANT BITS ~ P RF(N) FIRST P RF(P) SCAN1 , $ P LDK A3,/20 CHARACTER IS A SPACE @ $ P CW A2,REQLEN,A8 BUFFER FILLED? h P ABL(NG) PUTCHA NO! P ABL TEST P* PHOLE1 DATA 0 PHOLE2 DATA 0 P EJECT DRCR01 L P
0x104318…1044ac Dummy {f00=0x004d, f01=0x0190, f02=»NE HOLE X * PSCAN1 ADK A1,1 SCAN FOR THE FIRST HOLE P SLL A3,1 > P RB(P) SCAN1 P ( PFIRST CW A2,REQLEN,A8 BUFFER FILLED? d P RF(NG) IH.1 NO! 0 P LDK A3,8 YES! SET "INCORRECT LENGTH" BIT 12 P ORS A3,STATUS,A6 P ABL READY . P
0x1044ac…104640 Dummy {f00=0x004d, f01=0x0190, f02=»S! " P CONVERSION IS MADE DIRECTLY " P *************************** 0 P RF(P) *+12 V P RF(Z) *+6 j P LDK A3,/26 & (ROW 12) | P RF PUTCHA P LDK A3,/2D - (ROW 11) P RF PUTCHA P LDR A3,A1 ( P ADK A3,/2F DIGIT 0 - 9 (R
0x104640…1047d4 (1, 173) Dummy {f00=0x004d, f01=0x0190, f02=»============== V D P TWO HOLES P EJECT DRCR01 ^ . PSCAN2 ST A1,HOLE1 SAVE FIRST HOLE POSITION v " P ADK A1,1 SCAN FOR SECOND HOLE P SLL A3,1 P RB(P) *-4 0 P ST A1,HOLE2 2:ND HOLE
0x1047d4…104968 Dummy {f00=0x004d, f01=0x0190, f02=»3 $ P RF(NL) SPEC SPECIAL CHARACTER? P ADR A1,A1 NO! LETTER OR / 2 " P LD A1,TABLE1,A1 CHOOSE TABLE T P LD A3,HOLE2 z P SUK A3,3 P RF(N) FAULT DATA FAULT? P ADR A1,A3 NO! & P LCR A3,A1 CHOOSE LETTER IN TABLE P RF PUTC
0x104968…104afc Dummy {f00=0x004d, f01=0x0190, f02=»************************* x PTABLE1 DATA TAB.1 " P DATA TAB.2 < P DATA TAB.3 P P ROWS ON CARD d P ------------ | ( PTAB.1 DATA 'ABCDEFGHI ' 12,1 - 12,9 ( PTAB.2 DATA 'JKLMNOPQR ' 11,1 - 11,9 & PTAB.3 DATA '/STUVWXYZ ' 0,1
0x104afc…104c90 Dummy {f00=0x004d, f01=0x018e, f02=»A FAULT? | , P -THE FIRST HOLE MUST NOT BE IN ROW 1! P SUK A1,4 NO! @ P CWK A1,5 A1=FIRST HOLE V P RF(G) FAULT DATA FAULT? v , P -THE FIRST HOLE MUST NOT BE IN ROW 8! P LD A3,HOLE2 P SUK A3,10 P RF(NZ) FAULT DATA FAULT?
0x104c90…104e24 Dummy {f00=0x004d, f01=0x0190, f02=» " P CONVERSION TABLE 2 , P ************************************* . P ROWS ON CARD ^ P ------------ v PTABLE2 DATA ':#' 2,8 3,8 P DATA /4027 4,8 5,8 P DATA '="' 6,8 7,8 , P *****************************
0x104e24…104fb8 Dummy {f00=0x004d, f01=0x0190, f02=»======================== ` F P THREE HOLES P EJECT DRCR01 j P* PSCAN3 LD A1,HOLE1 P SUK A1,2 P RF(P) FAULT DATA FAULT? 0 P -THE FIRST HOLE MUST BE WITHIN THE FIRST
0x104fb8…10514c Dummy {f00=0x004d, f01=0x0190, f02=»LT 0 P -THE 2:ND HOLE MUST BE WITHIN ROW 2 TO 7! P ADK A1,9 > $ P ADK A1,1 SCAN FOR THE 3:RD HOLE P P SLL A3,1 x P RB(P) *-4 P SUK A1,10 3:RD HOLE FOUND! P RF(NZ) FAULT DATA FAULT? & P -THE 3:RD HOLE MUST BE IN ROW 8
0x10514c…1052e0 Dummy {f00=0x004d, f01=0x0190, f02=»ABLE3,A3 CHOOSE TABLE P AD A3,HOLE2 P SUK A3,4 2 P LCR A1,A3 D P LDR A3,A1 V P RF PUTCHA h P EJECT DRCR01 z P* P* " P CONVERSION TABLE 3 , P ************************************* PTABLE3 DATA
0x1052e0…105474 (1, 174) Dummy {f00=0x004e, f01=0x0190, f02=» ------------------- t " PTAB.4 DATA '[.' 12,2,8 12,3,8 P DATA '<(' 12,4,8 12,5,8 F P DATA /2B5E 12,6,8 12,7,8 h " PTAB.5 DATA '!$' 11,2,8 11,3,8 P DATA '*)' 11,4,8 11,5,8 P DATA ';]' 11,6,8 11,7,8 " PTAB.6 DATA /5C2C 0,2
0x105474…105608 Dummy {f00=0x004e, f01=0x0190, f02=» THREE HOLES L P*======================================================================= F P EJECT DRCR01 P P SET DATA FAULT P ************** PFAULT EQU * . P LDK
0x105608…10579c Dummy {f00=0x004e, f01=0x0190, f02=» PUT CHARACTER (ASCII) IN USER BUFFER . P ************************************ 0 PPUTCHA EQU * b P IFT CHAN=0 v P LD A4,FLAG 0 P RF(NZ) NEXT10 RECOVERY HAS BEEN PERFORMED! P XIF , P LD A4,DWTA4,A6 A2=COLUMN TO BE EXAMINED
0x10579c…105930 Dummy {f00=0x004e, f01=0x0190, f02=» NEXT NO! P IFT CHAN=1 ! " PREADY CIO A3,0,DEVICE CIO HALT ! & P XIF ! L P IFT CHAN=0 ! X PREADY EQU * ! l P XIF ! P LDK A2,4 CHECK IF :EOF ! P CW A2,EFFLEN,A8 ! P RF(NE) NEXT00 EFF.LENGTH #4 ! & P LD A4,DWTA4,A6 GET BUFFER-ADDRE
0x105930…105ac4 Dummy {f00=0x004e, f01=0x0190, f02=»,A4 YES, GET NEXT WORD ! P CWK A2,'OF' A2 = OF ? " P RF(NE) NEXT00 NO! " < & P LDKL A2,/1000 YES! :EOF DETECTED " V ( P ORS A2,STATUS,A6 SET BIT 3 IN R.C. " P EJECT DRCR01 " PNEXT00 EQU * " P IFT CHAN=1 " PNEXT ADK A2,1 " P ST A2
0x105ac4…105c58 Dummy {f00=0x004e, f01=0x0190, f02=» " $ P ABL IHCR10 TAKE NEXT CHARACTER # PNEXT10 EQU * # 0 P XIF # D , P ABL RETUR8 LOAD A1 - A8 AND RETURN A15 # P P EJECT DRCR01 # P # * P************************************* # * P* DEVICE WORK TABLE FOR CARD READER * # * P**********
0x105c58…105dec Dummy {f00=0x004e, f01=0x0190, f02=»B ADDRESS # P DATA 0 LAST OUTPUT, ORDER $ ( P DATA CRADR POINTER TO DEVICE DRIVER $ 4 P DATA 0 POINTER TO TTAB $ ` $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE $ IFT MMUPAG=1 $ & " DATA 0 SAVE AREA USER ECB ADDRESS $ D
0x105dec…105f80 Dummy {f00=0x004e, f01=0x415a, f02=» $ x P DATA 0 SAVEAREA FOR A5 % P RES 4 DWT STACK % ( PSTATUS EQU *-DWCR01 % @ $ P DATA 0 SOFTWARE STATUS SAVEAREA % " PFLAG DATA 0 RECOVERY INDICATOR % P* % P IFT MMUPAG=1 % PDEVECB EQU * % P DATA 0 % P DATA CR:BUF % P DATA
0x105f80…106114 (1, 175) Dummy {f00=0x004e, f01=0x2008, f02=» & FOR A2 DATA 0 SAVEAREA FOR A4 DATA 0 SAVEAREA FOR A5 8 DATA 0 DATA FAULT SAVEAREA X RES 4 DWT STACK | END @ DRESS DATA 0 LAST OUTPUT, ORDER ( $ DATA CRADR POINTER TO DEVICE DRIVER DATA 0
0x106114…1062a8 Dummy {f00=0x004e, f01=0x0190, f02=»1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES . P RF(N) BTCT20 NO MORE! / 4 ( P LDR* A4,A1 GET NUMBER OF TASK ID:S / R PBTCT08 ADK A1,2 NEXT TASK ID / ~ , P SUK A4,1 DECREMENT NUMBER OF TASK ID:S / P RB(N) BTCT06 NO MORE / P LDR* A2,A1 GET TASK ID
0x1062a8…10643c Dummy {f00=0x004e, f01=0x0190, f02=»ER TASKS / n * 0 PBTCT20 EQU * 0 6 P ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY 0 . , P LD A7,SYSLOD GET NUMBER OF APPLICATIONS 0 h 6 P LDKL A4,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK 0 & PBTCT30 SUK A7,1 MORE APPLICATIONS? 0 P RF(N) BTCT7
0x10643c…1065d0 Dummy {f00=0x004e, f01=0x0190, f02=»STORE FIRST USER TASK ENTRY 0 ~ LCR A2,A11 GET BLOCK TYPE 1 $ ( # CCK A2,'TT' TASK DEFINITION BLOCK? 1 F RF(E) BTCT35 YES 1 r P LDKL A1,LMP4 FORMAT ERROR 1 CALL ERROR HALT 1 P EJECT 1 PBTCT35 EQU * 1 * 1 0 ,* COMPUTE NUMBER OF T
0x1065d0…106764 Dummy {f00=0x004e, f01=0x0190, f02=»RV ANOTHER ENTRY IN TC:TAB 1 ( $ SUK A1,1 MOORE TASKS IN THIS CLASS? 2 " RB(P) BTCT50 YES 2 N $ CALL NXTBLK SKIP TO NEXT BLOCK 2 h ( # CCK A2,'TT' TASK DEFINITION BLOCK? 2 RB(E) BTCT40 YES 2 PBTCT60 EQU * 2 , P ADK A4,ACBLEN NEXT APPL. CONT
0x106764…1068f8 Dummy {f00=0x004e, f01=0x0190, f02=»ATE END OF FREE AREA 2 x " P SU A12,SCTTCT COMPUTE LENGTH 3 P ST* A12,SCTTCT STORE 3 B RTN A14 3 ` P IFF EDM=0 3 p P EJECT 3 : P***************************************************** 3 : P* * 3
0x1068f8…106a8c Dummy {f00=0x004e, f01=0x0190, f02=» * 3 : P* REFERENCED IN: B:TCT * 4 6 : P* * 4 t : P* ENTRY: A2 - CURRENT TASK ID * 4 : P* A12 - NEXT FRE
0x106a8c…106c20 Dummy {f00=0x004e, f01=0x0190, f02=»CTAB * 4 l : P* * 5 : P* WORK REGISTERS: A3 * 5 X : P* * 5 : P* SUBROUTINES:
0x106c20…106db4 (1, 176) Opaque[0x194]
0x106db4…106f48 # DirEnt {nam=»DRDC07«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d0, f03=0x0000}
0x106db4…106f48 IdxSect {
0x106db4…106f48 f00 = 0x004e // 0x106db4 @0x0
0x106db4…106f48 f01 = 0x003c // 0x106db6 @0x2
0x106db4…106f48 gno = [ // 0x106db8 @0x4
0x106db4…106f48 [0x00]: C0x004e.0x2.0
0x106db4…106f48 [0x01]: C0x004e.0x3.0
0x106db4…106f48 [0x02]: C0x004f.0x0.0
0x106db4…106f48 [0x03]: C0x004f.0x1.0
0x106db4…106f48 [0x04]: C0x004f.0x2.0
0x106db4…106f48 [0x05]: C0x004f.0x3.0
0x106db4…106f48 [0x06]: C0x0050.0x0.0
0x106db4…106f48 [0x07]: C0x0050.0x1.0
0x106db4…106f48 [0x08]: C0x0050.0x2.0
0x106db4…106f48 [0x09]: C0x0050.0x3.0
0x106db4…106f48 [0x0a]: C0x0051.0x0.0
0x106db4…106f48 [0x0b]: C0x0051.0x1.0
0x106db4…106f48 [0x0c]: C0x0051.0x2.0
0x106db4…106f48 [0x0d]: C0x0051.0x3.0
0x106db4…106f48 [0x0e]: C0x0052.0x0.0
0x106db4…106f48 [0x0f]: C0x0052.0x1.0
0x106db4…106f48 [0x10]: C0x0052.0x2.0
0x106db4…106f48 [0x11]: C0x0052.0x3.0
0x106db4…106f48 [0x12]: C0x0053.0x0.0
0x106db4…106f48 [0x13]: C0x0053.0x1.0
0x106db4…106f48 [0x14]: C0x0053.0x2.0
0x106db4…106f48 [0x15]: C0x0053.0x3.0
0x106db4…106f48 [0x16]: C0x0054.0x0.0
0x106db4…106f48 [0x17]: C0x0054.0x1.0
0x106db4…106f48 [0x18]: C0x0054.0x2.0
0x106db4…106f48 [0x19]: C0x0054.0x3.0
0x106db4…106f48 [0x1a]: C0x0055.0x0.0
0x106db4…106f48 [0x1b]: C0x0055.0x1.0
0x106db4…106f48 [0x1c]: C0x0055.0x2.0
0x106db4…106f48 [0x1d]: C0x0055.0x3.0
0x106db4…106f48 ]
0x106db4…106f48 }
0x106f48…1070dc Dummy {f00=0x004e, f01=0x0190, f02=» 0 P IDENT DRDC07 REL 11.0 81-06-02 870105041100 P 8 P =1,RETURN CODE @ P REL 11.0 81-01-26 Z P =2,MESPAS v P REL 11.0 81-04-14 P 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTE
0x1070dc…107270 Dummy {f00=0x004e, f01=0x0190, f02=» REJ X 0 P* (FOR SECONDARY STATION) P* @ P* REFERENCES: J . P* ECMA STANDARD-40 HDLC FRAME STRUCTURE ` 4 P* ECMA STANDARD-49 HDLC ELEMENTS OF PROCEDURE > P* ECMA STANDARD-60 HDLC UNBALANCED CLASS OF PROCEDURES
0x107270…107404 Dummy {f00=0x004e, f01=0x0190, f02=» 2 P ENTRY DC07AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH0701 INPUT INTERRUPT > " P ENTRY IH0702 OUTPUT INTERRUPT d " P ENTRY DC07ON POWER ON ROUTINE P* P* P* EXTERNAL REFERENCES P* P* " P EXTRN TDISP DISPA
0x107404…107598 Dummy {f00=0x004e, f01=0x018e, f02=» EXTRN DWTCHP TERMINAL ADDRESS P EXTRN DWTST DWT STATUS & P EXTRN DWTOR DWT ORDER F P EXTRN DWTECB DWT ECB d P EXTRN DWTTAB TTAB ADDRESS & P EXTRN DWTDTE SYMBOLIC DTE ADDRESS * P EXTRN PFPOST WAIT FOR POWER UP IF SET . P EXTRN MOVUS
0x107598…10772c Dummy {f00=0x004e, f01=0x018e, f02=» : P EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT : P EXTRN DCSUPR UPDATE STATISTICS ENTRY POINT IN DCSTAT B * P EXTRN GETDNA CONVERT DTE SYMB TO PHYS * P EXTRN GETSNA CONVERT STA SYMB TO PHYS * P EXTRN GETSSA CONVERT STA PHYS TO SYMB
0x10772c…1078c0 Dummy {f00=0x004e, f01=0x0190, f02=» P* A1 WORK (RETURN CODE) P* A2 WORK ( P* A3 WORK (BUFFER LENGTH) : P* A4 WORK (BUFFER POINTER) P* A5 DRIVER STACK POINTER ~ P* A6 DWT ADDRESS P* A7 WORK, ORDER CODE P* A8 ECB ADDRESS P* L P****************
0x1078c0…107a54 (1, 177) Dummy {f00=0x004e, f01=0x0190, f02=»*************** V P* P* CONDITIONAL ASSEMBLY " P* @ N P************************************************************************* J P* P* INTERNAL: P* P* , P* A PROGRAM VERSION USING TOSS PAGING IS & P* OBTAINED
0x107a54…107be8 Dummy {f00=0x004e, f01=0x0190, f02=»IS OBTAINED BY SETTING CPU852 EQU 0 P* , PCPU852 EQU 1 6 P* J 4 PCUTIME EQU 5 CONTROL UNIT READY TIMEOUT = 500MS T P* P* EXTERNAL: P* P* PX:A EQU 3 , PRBUFNR EQU X:A NIMBER OF RECEIVE BUFFERS P P
0x107be8…107d7c Dummy {f00=0x004e, f01=0x018e, f02=» PX:D EQU 4 2 PWIRES EQU X:D 4-WIRE IF ::= 4. 2-WIRE IF ::=2 P L PX:E EQU 0 T 0 PSUB EQU X:E SUBTERMINAL ADDRESSING IF ::= 1 f P PX:F EQU 0 , PUNR2 EQU X:F REJ-FRAME SUPPORT IF ::= 1 P PX:G EQU 0 , PMESPAS EQU
0x107d7c…107f10 Dummy {f00=0x004e, f01=0x0190, f02=» ( PLOGG EQU X:I LOGG FUNCTION IF ::= 1 P 0 PX:J EQU 0 8 ( PP6805 EQU X:J 6805 COMPUTER IF ::= 1 J P v PX:K EQU 2 ~ P IFF P6805=1 ( PCHLCIN EQU X:K INPUT DEVICE ADDRESS P XIF P IFT P6805=1 * PCHLCIN EQU X'0A' INPUT D
0x107f10…1080a4 Dummy {f00=0x004e, f01=0x0190, f02=»****************************************************** P* > P* GENERATED PARAMETERS H P* f J P********************************************************************** p P IFT MUX=1 . PCHLCUT EQU CHLCIN+/1 OUTPUT DEVICE ADDRESS P XIF
0x1080a4…108238 Dummy {f00=0x004e, f01=0x018e, f02=» IFT P6805=1 PCHLCUT EQU CHLCIN+1 P XIF 0 P* < P* BUFFER HEADER EQUATES F P* f 6 PRCVHDR EQU 6 RECEIVE BUFFER HEADER LENGTH IN BYTES p PRCHDRW EQU 3 RCVHDR IN WORDS * PRCVEL EQU 2 EL POS. IN RCV BFR HEADER & PRCVTCA EQU 4
0x108238…1083cc Dummy {f00=0x004e, f01=0x0190, f02=» h * 2 -* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES * H * &************************************** R J P********************************************************************** P* P* ECB P* J P************************
0x1083cc…108560 Dummy {f00=0x004e, f01=0x0190, f02=»L EQU 4 REQUESTED LENGTH IN BYTES * PECBEL EQU 6 EFFECTIVE LENGTH IN BYTES * PECBRC EQU 8 RETURN CODE X PECBCW EQU 10 CONTROL WORD x $ ECBCW1 EQU ECBCW CONTROL WORD 1 ECBCW2 EQU 12 CONTROL WORD 2 P EJECT J P********************
0x108560…1086f4 (1, 178) Dummy {f00=0x004f, f01=0x0190, f02=»******************************** j P* ( P* ................... 2 P* 0 . DWTCHP . T P* ................... v P* 2 . DWTST . P* ................... P* 4 . DWTECB . P* ....
0x1086f4…108888 Dummy {f00=0x004f, f01=0x0190, f02=»............... P* 10 . DWTTAB . P* ................... : P* 12 . DWTWAT . P* ................... ~ P* 14 . DWTTQ . P* ................... . P* (16). DWTUEC . IF MMU
0x108888…108a1c Dummy {f00=0x004f, f01=0x0190, f02=»TDRD +2 . DWTSTB . $ P* ................... $ P* +4 . DWTCHD . L P* ................... n P* +6 . DWTCHN . P* ................... P* +8 . DWTLAD . P* ............
0x108a1c…108bb0 Dummy {f00=0x004f, f01=0x0190, f02=»....... ~ P* +14 . DWTRCL . P* ................... 2 P* +16 . DWTRTV . T P* ................... v P* +18 . DWTRTP . P* ................... P* +20 . DWTOPE . P* ....
0x108bb0…108d44 Dummy {f00=0x004f, f01=0x0190, f02=»............... P* +26 . DWTIPT . P* ................... : P* +28 . . P* / DRIVER DEPEND / ~ P* / / P* / / P* ................... 8 P*
0x108d44…108ed8 Dummy {f00=0x004f, f01=0x0190, f02=»DWTTQ EQU 14 PDWTUEC EQU DWTTQ+2 PDWTMEC EQU DWTUEC+2 . P J P IFT MMUPAG=0 R 2 PDWTDRD EQU DWTTQ+2 START OF DC DEPENDENT AREA h P XIF P IFT MMUPAG=1 2 PDWTDRD EQU DWTMEC+2 START OF DC DEPENDENT AREA P XIF D PDWTSTB
0x108ed8…10906c Dummy {f00=0x004f, f01=0x0190, f02=»D+4 CONFIG CHAIN LINK NEXT DWT 2 PDWTLAD EQU DWTDRD+6 LOCAL SYMBOLIC DTE ADDRESS & 4 PDWTRAD EQU DWTDRD+8 REMOTE SYMBOLIC DTE ADDRESS * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS . PDWTRCL EQU DWTDRD+12 REQ
0x10906c…109200 Dummy {f00=0x004f, f01=0x0190, f02=»WTDRD+18 O/P DATA Q EXPEDITED/STATUS LINK NXT DWT 8 PDWTOPN EQU DWTDRD+20 O/P DATA Q NORMAL LINK NXT DWT : 2 PDWTIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER v 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER P EJECT J P**********************
0x109200…109394 (1, 179) Dummy {f00=0x004f, f01=0x0190, f02=»************************************ n P* , P* TRANSMIT BUFFERS 6 P* R P* 1. APPLICATION P* t & P* *******/ /********************* ~ & P* * / / * & P* * T E / / X T * & P* * / /
0x109394…109528 Dummy {f00=0x004f, f01=0x0190, f02=»2. MMU AND/OR IOP INTERNAL DRIVER BUFFER P* 0 4 P* ********************************************** : 4 P* * * * * / / * r 4 P* * A * C * STA * / / T E X T * 4 P* * * * * / /
0x109528…1096bc Dummy {f00=0x004f, f01=0x0190, f02=»ICATION CHARACTER p 2 P* A = TCA (A FIELD), STARTS ON WORD BOUNDARY P* C = CONTROL FIELD P : P* STA = SUBTERMINAL ADDRESS (FROM DWT) IF GENERATED n P EJECT P* P* RECEIVE BUFFERS P* P* PROGRAMMED CHANNEL: D P
0x1096bc…109850 Dummy {f00=0x004f, f01=0x0190, f02=» P D P* * RCVHDR * / / * D P* * * / / * P D P* ****************************************************/ /****** D P* * * * *
0x109850…1099e4 Dummy {f00=0x004f, f01=0x0190, f02=»* / / * p D P* ****************************************************/ /****** ( B P* <--- ECBEL ---> p & P* / . P* '-- ECB
0x1099e4…109b78 Dummy {f00=0x004f, f01=0x0190, f02=» * / / * r B P* * RCVHDR * / / * ( B P* * * / / * n B P* **************************************************/ /****** B P* * *
0x109b78…109d0c Dummy {f00=0x004f, f01=0x0190, f02=» * * * / / * B P* **************************************************/ /****** < B P* <--- ECBEL ---> & P* / 0 P*
0x109d0c…109ea0 Dummy {f00=0x004f, f01=0x0190, f02=»C = ADDRESS + CONTROL FIELDS OF FRAME (1+1 BYTE) (IF IOP) N P* STA = FIRST DATA BYTE FROM LINE, ASSUMED = SUBTERMINAL ADDRESS (1 BYTE) B P* IF GENERATED < P* TCA = TERMINAL ADDRESS FROM A-FIELD OF FRAME (1 BYTE) L P************************
0x109ea0…10a034 (1, 180) Dummy {f00=0x004f, f01=0x0190, f02=»**** N P* ( P* TOSS INTERFACE AREAS AND CONSTANTS P* B J P********************************************************************** L P* 0 PDEVIND EQU 0 DEVICE INDEX DATA COMMUNICATION P* P* DRIVER ADDRESS BLOCK P*
0x10a034…10a1c8 Dummy {f00=0x004f, f01=0x0190, f02=»E ADDRESS x P* P* REGISTER USAGE: P* 6 P* ENTRY: A6 = DWT ADDRESS @ P* A7 = ORDER CODE b P* A8 = ECB ADDRESS | P* EXIT: A1 = RETURN CODE P EJECT P* P* P* REQUEST HANDLING P* P* P
0x10a1c8…10a35c Dummy {f00=0x004f, f01=0x0190, f02=»U /2F DISCONNECT PREADO EQU 2 READ PWRITEO EQU 6 WRITE 0 PRSTAT EQU /00 READ STATUS J ( PSTATIS EQU /2D READ/RESET STATISTICS l $ PSTIMOT EQU /39 SET TIMEOUT VALUE P* P* OPTIONS: P* . PTYPRR EQU /43 RESET STATISTICS AFT
0x10a35c…10a4f0 Dummy {f00=0x004f, f01=0x0190, f02=»RTED t 2 PRCDATA EQU /0100 DATA UNIT QUEUED & AVAILABLE ! 2 PRCSTAT EQU /0080 STATUS INFORMATION AVAILABLE ! B PRCTIME EQU /0040 TIMEOUT ! x " PRCSEQ EQU /0010 SEQUENCE ERROR ! $ PRCLGTH EQU /0008 ILLEGAL LENGTH ! . PRCLOGC EQU /0002 LOGICAL CONNECTIO
0x10a4f0…10a684 Dummy {f00=0x004f, f01=0x0190, f02=»************** ! X P* " . P* HARDWARE INTERFACE CONSTANTS AND EQUATES " P* " R J P********************************************************************** " P* " P* CIO START-IN COMMANDS " P* " PCICMO EQU /2 CONNECT MODEM " " PCIDI
0x10a684…10a818 Dummy {f00=0x004f, f01=0x0190, f02=»E ON PROG.CHANNEL (2-WIRE) " | ( PCIREMX EQU /B RECEIVE ON MUX CHANNEL # " ( PCIR4MX EQU /D RECEIVE ON 4-WIRE MUX # N P IFT WIRES=2 # z " PCIRPC EQU CIAREP RECEIVE P.C. # PCIRMX EQU CIREMX RECEIVE IOP # P XIF # P IFT WIRES=4 # " PCIRPC EQU CIREPC
0x10a818…10a9ac Dummy {f00=0x004f, f01=0x0190, f02=» P* CIO START-OUT COMMANDS $ P* $ ( $ PCINRTS EQU 1 NO REQUEST TO SEND $ 2 $ PCIT4WP EQU 2 4-WIRE PROG.CHANNEL $ Z $ PCIT2WP EQU 3 2-WIRE PROG.CHANNEL $ $ PCIT4WM EQU /A 4-WIRE MUX.CHANNEL $ $ PCIT2WM EQU /B 2-WIRE MUX.CHANNEL $ P IFT WIRES=2 $
0x10a9ac…10ab40 Dummy {f00=0x004f, f01=0x0190, f02=»NSMIT P.C. $ | " PCIXMX EQU CIT4WM TRANSMIT IOP % P XIF % 8 PCIIDLE EQU 4 TRANSMIT IDLE 1 % D P* % h P* MUX DEVICE ADDRESSES ETC. % t P* % 0 PIOPIN EQU CHLCIN+CHLCIN INPUT DEVICE ADDRESS % 2 PIOPOUT EQU CHLCUT+CHLCUT OUTPUT DEVICE ADDRESS %
0x10ab40…10acd4 (1, 181) Dummy {f00=0x004f, f01=0x0190, f02=»T:C EQU 1 CONNECTED =1 % P EJECT & J P********************************************************************** & , P* & z , P* PROTOCOL CONSTANTS/WORK AREAS/EQUATES & P* & J P********************************************************************** &
0x10acd4…10ae68 Dummy {f00=0x004f, f01=0x0190, f02=»ATA 0 SAVE BUFFER ADDRESS & ( PSAVPAM DATA 0 SAVE ACTION PARAMETER ' " PSAHDLC DATA 0 SAVE STATUS ' N $ PDCTPGP DATA 0 SAVE TIMER POINTER ' p PTIMPOL EQU 500 POLL TIME OUT ' . PSTATUS DATA 0 (=1):N(S)FAIL,(=2):N(R) FAIL ' , PBUFNUL DATA 0 BUFFER OVERF
0x10ae68…10affc Dummy {f00=0x004f, f01=0x0190, f02=»CT DATA 0 OUTPUT ACTIVE FLAG ' P IFF MMUPAG+MUX=0 ( $ 6 PSWMMU DATA 0 FLAG TO INDIC.USER BUFFER MVD/NOT MVD ( @ P XIF ( z $ PTESTCF DATA 0 INPUT BUFFER FLAG ( . PFIELD1 DATA 0 ADDRESS + C-FIELD RECEPTION ( PWRDWT DATA 0 WRITING DWT ( $ P RES 15
0x10affc…10b190 Dummy {f00=0x004f, f01=0x0190, f02=» POINTER ( x P* ) P* ) P* PROCEDURE COUNTERS ) $ P* ) D P* ) N PCPCNT DATA 0 CHECK POINT ) X $ PVSCNT DATA 0 SEND STATE VARIABLE ) x ( PVRCNT DATA 0 RECEIVE STATE VARIABLE ) PNSCNT DATA 0 SEND COUNTER ) PNRCNT DATA 0 RECEIVE COUNT
0x10b190…10b324 Dummy {f00=0x004f, f01=0x0190, f02=» COMMANDS ) P* * , PSNRM EQU /93 SET NORMAL RESPONSE DCMODE * & PDISC EQU /53 SET DISCONNECT DCMODE * L P* * v P* MASKS ON RECEIVED FRAMES * P* * PRRMSK EQU 1 RECEIVE READY * " PRNRMSK EQU 5 RECEIVE NOT READY * PREJMSK EQU 9 REJEC
0x10b324…10b4b8 Dummy {f00=0x004f, f01=0x0190, f02=»QU /1F DISCONNECT DCMODE * PRR EQU /11 READY TO RECEIVE + PFRMR EQU /97 FRAME REJECT + D PREJ EQU /19 FRAME REJECTION + f P EJECT + P* + P* HDLC FRAME FORMAT: + P* + P* + B P* *************************//*************************
0x10b4b8…10b64c Dummy {f00=0x004f, f01=0x0190, f02=»FCS-2 * F * + ^ B P* * * * * * * * * , B P* *************************//********************************* , Z P* , . P* F = OPENING AND CLOSING FLAGS (01111110) , P* , 6 P* A = ADDRESS FIELD, 8 BITS, APPLI
0x10b64c…10b7e0 Dummy {f00=0x004f, f01=0x0190, f02=» I I I I I I , z 2 P* I-FRAME I 0 I N(S) I P/F I N(R) I - 2 P* S-FRAME I 1 I 0 I S I S I P/F I N(R) I - V 2 P* U-FRAME I 1 I 1 I M I M I P/F I M I M I M I - P* - " P* I-FRAME = INFORMATION FRAME - P* - P* I = INFOR
0x10b7e0…10b974 (1, 182) Dummy {f00=0x0050, f01=0x0190, f02=»IVE SEQUENCE NUMBER - P* P/F = POLL/FINAL BIT . P* . < P* S = SUPERVISORY BITS: . F P* BIT 3 4 . f & P* 0 0 = RR = RECEIVE READY . | P* 0 1 = REJ = REJECT . , P* 1 0 = RNR = RECEIVE NOT READY . P* . 8 P* M
0x10b974…10bb08 Dummy {f00=0x0050, f01=0x0190, f02=» DCMODE (C) . ^ 6 P* 1 1 0 0 0 = DM = DISCONNECT DCMODE (R) / 2 P* 0 0 0 1 0 = DISC = DISCONNECT (C) / N < P* 0 0 1 1 0 = UA = UNNUMBERED ACKNOWLEDGE (R) / 6 P* 1 0 0 0 1 = FRMR = FRAME REJECT (R) ) / P* / D P
0x10bb08…10bc9c Dummy {f00=0x0050, f01=0x0190, f02=» / P EJECT 0 J P********************************************************************** 0 P* 0 d P* DTE CONTROL TABLE - DCT 0 n 4 P* SUBSTITUTES DRIVER DWT FOR SINGLE-LINE DRIVER 0 P* 0 J P******************************************************
0x10bc9c…10be30 Dummy {f00=0x0050, f01=0x0190, f02=»0 REQUEST STATE: 0 P* 0 = INACTIVE (CLOSED) 1 P* 1 = ACTIVE (OPEN) 1 < P* 2 = CONNECTED 1 ( PDCHDLS DATA 0 HDLC PROCEDURE STATE: 1 x P* 0 = OFF 1 P* 1 = NDM 1 P* 2 = NRM 1 $ PDCCUS DATA 0 CONTROL UNIT STATE: 1
0x10be30…10bfc4 Dummy {f00=0x0050, f01=0x0190, f02=»G DTESTB REQUIRED POSITION; MAKE DAMN SURE 1 P* THERE'S NO OVERLAY!!! 2 2 > PDCSTB DATA STWSID-DTE RELATIVE OFFSET TO STATISTICS BUFFER 2 T 2 PDCDWH DATA 0 DUMMY BACKWARD LINK TO HEAD 'DWT' 2 " PDCDWA DATA 0 DWT CHAIN ANCHOR 2 & PDCDTE DATA 0 SYMBOLIC
0x10bfc4…10c158 Dummy {f00=0x0050, f01=0x018e, f02=»TA RBUFP RCV BFR QUEUE ANCHOR 2 @ PDCIPC DATA 0 QUEUED RECEIVED I-FRAMES WHEN NO SUBADDRESSING 3 & PDCTCA DATA 0 LINE ADDRESS 3 j , PDCSTA DATA 0 ACTIVE SUBTERMINAL ADDRESS 3 PDCLCNT DATA 0 LOOP COUNTER 3 P* 3 P* STATISTICS BUFFER 3 P* 3
0x10c158…10c2ec Dummy {f00=0x0050, f01=0x018e, f02=» PSTWCTA RES /20 BUFFER 4 P EJECT 4 " P* 4 0 , P* COUNTER INDECES - PARAMETER-1 EQUATES 4 : P* 4 j P* REQUEST LEVEL COUNTERS: 4 t : P* 01 TO /0D ARE NOT USED IN RELEASE 11 4 P* 4 * PCSRCON EQU /01 CONNECTIONS ESTABLISHED 4
0x10c2ec…10c480 Dummy {f00=0x0050, f01=0x0190, f02=» 4 l ( PCSRMST EQU /06 MESSAGES TRANSMITTED 5 * PCSRCHT EQU /C8 CHARACTERS TRANSMITTED 5 4 PCSRTOP EQU /09 TIMEOUT 5 b PCSRABT EQU /0A ABORTED 5 PCSRERR EQU /0B ERROR 5 & PCSRTRE EQU /0C TRANSMISSION ERROR 5 & PCSRXC1 EQU /0D PROTOCOL DEPENDENT 5
0x10c480…10c614 (1, 183) Dummy {f00=0x0050, f01=0x0190, f02=»CTED BUFFER BUSY 5 n : PCSBRBO EQU /12 " I-FRAMES REJECTED BUFFER OVERFLOW 6 2 PCSBRAB EQU /13 " I-FRAMES REJECTED ABORTED 6 V 4 PCSBRPE EQU /14 " I-FRAMES REJECTED FCS ERROR 6 . PCSBTIF EQU /15 " I-FRAMES TRANSMITTED 6 0 PCSBTRT EQU /16 "
0x10c614…10c7a8 Dummy {f00=0x0050, f01=0x0190, f02=»QU /19 " DM RECEIVED 6 & PCSBRFR EQU /1A " FRMR RECEIVED 7 $ PCSBRUA EQU /1B " UA RECEIVED 7 J & PCSBRRJ EQU /1C " REJ RECEIVED 7 r & PCSBRNR EQU /1D " RNR RECEIVED 7 4 PCSBTSM EQU /1E " SNRM/SARM/SABM TRANSMITTED 7 * PCSBTDI EQU
0x10c7a8…10c93c Dummy {f00=0x0050, f01=0x0190, f02=» /22 " UA TRANSMITTED 7 ( PCSBTRJ EQU /07 " REJ TRANSMITTED 8 " ( PCSBTNR EQU /24 " RNR TRANSMITTED 8 N , PCSBXC1 EQU /25 " PROTOCOL DEPENDENT 8 z ( PCSBXC2 EQU /26 " " " 8 ( PCSBXC3 EQU /27 " " " 8 P 8
0x10c93c…10cad0 Dummy {f00=0x0050, f01=0x0190, f02=» ( PCSCDOT EQU /2A O/P THROUGHPUT ERROR 9 $ PCSCDCE EQU /2B DCE NOT OPERABLE 9 0 * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT 9 X PCSCXC2 EQU /2D " 9 PCSCXC3 EQU /2E " 9 P* 9 P* EXTENDED STATUS BUFFER 9 P* 9 PDCXSTB RES 0 9 : PDC
0x10cad0…10cc64 Dummy {f00=0x0050, f01=0x0190, f02=»******** 9 R J P********************************************************************** : P* : ^ P* : h , P* REQUEST HANDLER/APPLICATION INTERFACE : r P* : P* : J P********************************************************************** : J P****
0x10cc64…10cdf8 Dummy {f00=0x0050, f01=0x0190, f02=»ACT EQU * : $ P LDKL A5,STBIN INPUT STACK BASE ; & P LDR A2,A7 ORDER CODE AS PARAMETER ; : & P ANK A2,/FF STRIP OFF OPTION BITS ; d : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK ; 0 P DATA TREQX,RQERR LAST ENTRY; ERROR ADDRESS ; " P DATA RE
0x10cdf8…10cf8c Dummy {f00=0x0050, f01=0x0190, f02=»UEST ; t . P DATA CONPAS,RQCON CONNECT PASSIVE REQUEST < ( P DATA DISCO,RQDIS DISCONNECT REQUEST < > * P DATA RSTAT,RQRSTS READ STATUS REQUEST < j , P DATA STIMOT,RQTIME SET REQUEST TIMEOUT < : PTREQX DATA STATIS,RQSTAT READ/RESET STATISTICS REQUEST < P E
0x10cf8c…10d120 Dummy {f00=0x0050, f01=0x0190, f02=»********************** < P = ( PABORT LD A1,DWTRTP,A6 TIMER POINTER = & " P RF(Z) AB:10 NO TIMER RUNNING = R P CM* DWTRTP,A6 KILL TIMER = x P CM DWTRTP,A6 = P = $ PAB:10 LD A2,DWTOR,A6 ORDER CODE = . P CF A15,LOOKUP BRANCH ON ACTIVE ORDER CO
0x10d120…10d2b4 (1, 184) Dummy {f00=0x0050, f01=0x0190, f02=»DWT FROM WRITE QUEUE = z $ P LD A2,WRDWT WRITING DWT ADDRESS > P CWR A2,A6 > D P RF(NE) AB:RTN NOT THIS DWT > V P CM WRDWT RESET WRITING DWT > z P > P EJECT > PAB:RTN EQU * > $ P LDKL A1,RCABRT LOAD RETURN CODE > P CF A15,TENDIO > P A
0x10d2b4…10d448 Dummy {f00=0x0050, f01=0x018e, f02=»S (ECBCW2, LEFT BYTE, ASCII) > z P* ? $ P* FUNCTIONS: ? . 8 P* 1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS ? B & P* 2. CONVERT & VERIFY DTE ADDRESS ? ~ P* 3. CONNECT MODEM ? & P* 4. CHANGE PROTOCOL TO NDM STATE ? P* ? P* COMPLETION PAR
0x10d448…10d5dc Dummy {f00=0x0050, f01=0x0190, f02=» ? n P RF(Z) RQOP20 DTE INACTIVE @ PRQOP10 EQU * @ * . P LD A2,ECBCW2,A8 GET SYMBOLIC DTE-ADDRESS @ > . P CW A2,DCDTE SAME AS THE ONE WHO OPENED ? @ p P ABL(E) RQRTN5 YES OK @ & P LDKL A1,RCSEQ RC: SEQUENCE ERROR @ P ABL RQRTN5 COMPLETE @ P*
0x10d5dc…10d770 Dummy {f00=0x0050, f01=0x018e, f02=» GET LINK ADDRESS @ & P LDR A1,A1 SET CONDITION REGISTER A P RF(NN) RQOP21 OK A D $ P LDKL A1,RCREQ RC:REQUEST ERROR A ^ P ABL RQRTN5 EXIT A PRQOP21 EQU * A " P LD A1,ECBCW2,A8 GET SYMB ADDR A P ST A1,DCDTE SAVE IT A " P ST A6,WRDWT SAVE OP
0x10d770…10d904 Dummy {f00=0x0050, f01=0x0190, f02=» A x P EJECT B P* B PRQOP80 EQU * B P LDK A1,1 B 4 $ P ORS A1,DCREQS SET ACTIVE STATE B F 0 P LDKL A2,TONDMX INITIATE NDM W/O SENDING UA B n P ST A2,DCMODE * B P LDK A1,0 B $ P CF A15,CKMES PENDING MESSAGES ? B $ P CF A15,TENDIO COMPL
0x10d904…10da98 Dummy {f00=0x0050, f01=0x0190, f02=»HYSICAL CONNECTION ERROR B | P ABL RQRTN5 C P EJECT C 4 P* C B P* CLOSE REQUEST C L P* C d P* ACTIVATION PARAMETERS: C n 4 P* OPTION (LEFT BYTE OF A7) /80 = UNCONDITIONAL C 8 P* /00 = CONDITIONAL CLOSE C P* FUNC
0x10da98…10dc2c Dummy {f00=0x0050, f01=0x0190, f02=»EM C | & P* 3. CHANGE PROTOCOL TO OFF STATE D P* D 4 P* COMPLETION PARAMETERS: D > P* RETURN CODE (A1) D ^ P* D z PRQCLOS EQU * D P LDK A1,0 PRESET RC D P LD A2,ECBCW2,A8 GET DTE D . P CW A2,DCDTE SAME AS THE ONE WHO OPENED ? D P R
0x10dc2c…10ddc0 Dummy {f00=0x0050, f01=0x0190, f02=» CHECK OPTION D , P RF(N) RQCL30 SKIP OVER IF UNCONDITIONAL E < P LD A2,DCDWA CONDITIONAL - GET ANCHOR OF CONNECTED DWT'S E F 4 P RF(NZ) RQCL20 IMPOSSIBLE,DWT'S STILL ACTIVE =2 E P IFT MESPAS=1 E , P LD A2,DTEDDT DISCARD DWT CONNECTED ? =2 E P XIF
0x10ddc0…10df54 (1, 185) Dummy {f00=0x0050, f01=0x018e, f02=» E | P* F PRQCL30 EQU * F P ST A6,DCDTE SAVE THAT DWT F & PDEB EQU * F H " P LD A6,DCDWA GET QUEUE ANCHOR F Z " P RF(NZ) DEB1 .SOME IN QUEUE =2 F P IFT MESPAS=1 F " P LD A6,DTEDDT DISCARD DWT / =2 F P RF(Z) RQCL50 NO =2 F P CM DTEDDT
0x10df54…10e0e8 Dummy {f00=0x0050, f01=0x0190, f02=» & P RF(Z) OKSLUT NO BUFFERS IN QUEUE G " P CF A15,RELBFX RELEASE BUFFERS G . & P CM DWTIPC,A6 CLEAR BUFFER'S QUEUE G T & POKSLUT LDK A1,0 PRESET RETURN CODE G ~ " P LD A2,DWTST,A6 GET DWT STATUS G P RF(N) OKSL1 NO ORDERS G P LD A2,DWTOR,A6 GET ORDER G
0x10e0e8…10e27c Dummy {f00=0x0050, f01=0x0190, f02=»F A15,CTIME RESET TIMER G * P CF A15,REMOVW REMOVE FROM WRITE QUEUE H 2 POKSL1 CF A15,DCREMV RELEASE FROM CONNECT QUEUE H N P RB DEB OTHERS DWT H PRELBFX EQU * H " P LD A2,DCIPA GET QUEUE ANCHOR H & P RF(NZ) RELBXX NOT FIRST IN QUEUE H ( P ST A1
0x10e27c…10e410 Dummy {f00=0x0050, f01=0x0190, f02=» LDR* A2,A2 NOT LAST,GO ON H P RB RELBXX I " $ PRELBYY STR A1,A2 ATTACH IN CHAIN I 4 PRELBZZ RTN A15 RETURN I P EJECT I z PRQCL50 EQU * I P LD A6,DCDTE I PRQCL51 EQU * I P CM DCDTE CLEAR ACTIVE DTE I & P LD A1,DCIPC GET DTE QUEUE ANCHOR
0x10e410…10e5a4 Dummy {f00=0x0050, f01=0x0190, f02=»RDWT SAVE CLOSE DWT =2 I " P CF A5,CUCLOS DISCONNECT MODEM J P CM WRDWT RESTORE =2 J D 2 P LDKL A2,OFF * CHANGE PROCEDURE STATE TO OFF J ` P ST A2,DCMODE * J P* J . P CM DCREQS REQUEST STATE = INACTIVE/CLOSED J P CM DCHDLS HDLC STATE = OFF J
0x10e5a4…10e738 Dummy {f00=0x0050, f01=0x0190, f02=»ER J t PRQCL53 EQU * K P LDK A1,0 PRESET RETURN CODE K P ABL RQRTN5 COMPLETE K B P EJECT K ^ P* K l P* CONNECT PASSIVE REQUEST K v P* K P* ACTIVATION PARAMETERS: K : P* - SYMBOLIC SUBADDRESS (LEFTMOST BYTE IN ECBBA-BFR) K " P* - LEN
0x10e738…10e8cc Dummy {f00=0x0050, f01=0x018e, f02=» 0 P* 2. VERIFY DTE-ADDRESS AS PER OPEN REQUEST L . P* 3. VERIFY & CONVERT SUBTERMINAL ADDRESS L 8 $ P* 4. LINK CALLING DWT TO QUEUE L j 2 P* 5. CHANGE HDLC STATE TO NDM & WAIT FOR NRM L P* L P* COMPLETION PARAMETERS: L P* RETURN CODE (A1) L
0x10e8cc…10ea60 Dummy {f00=0x0050, f01=0x0190, f02=» P RF(E) RQCN20 YES M P* M PRQCN15 EQU * M ( $ P LDKL A1,RCREQ RC: REQUEST ERROR M < P ABL RQRTN5 COMPLETE M d P EJECT M PRQCN20 EQU * M ( P LD A2,DCCUS GET CONTROL UNIT STATE M P RF(NZ) RQCN30 OK M 2 P LDKL A1,RCPHYC RC: PHYSICAL CON
0x10ea60…10ebf4 (1, 186) Dummy {f00=0x0051, f01=0x0190, f02=»F RQCN31 SKIP ADDRESSING M P XIF N P IFT MESPAS=1 N , P LD A2,DWTOR,A6 . =2 N B $ P ANKL A2,/FF00 ISOLATE OPTION =2 N ^ " P CWK A2,/4000 DISCARD DWT ? =2 N P RF(NZ) RQCNXX NO =2 N P ST A6,DTEDDT YES,SAVE IT =2 N P RF RQCNYY . =2 N PRQCN
0x10ebf4…10ed88 Dummy {f00=0x0051, f01=0x018e, f02=» & P LDK A3,2 NUMBER OF CHARS. TO MOVE O . P LD A5,DWTTAB,A6 TTAB ADDRESS OF USER TASK O . 2 P CF A15,MOVUS GET FIRST 2 BYTES OF USER BUFFER O ` P SUR A1,A1 RE-CLEAR O > P LD A2,DCSTA GET SUBTERMINAL ADDRESS FROM SYSTEM 'BUFFER' O P XIF O P IFT MMU
0x10ed88…10ef1c Dummy {f00=0x0051, f01=0x0190, f02=» O r P XIF P & P LD A1,DCDTE RESTORE SYMBOLIC DTE P ( P CF A15,GETSNA GET PHYS SUB ADDRESS P > P LDR A1,A1 SET RETURN CODE P j . P RB(N) RQCN15 INVALID SUBTERMINAL ADDRESS P PRQCN31 EQU * P & P ST A2,DWTSUB,A6 SAVE SYMB ADDRESS P ( P CF A15,DCLI
0x10ef1c…10f0b0 Dummy {f00=0x0051, f01=0x0190, f02=». =1 P * P ORS A1,DWTST,A6 SET CONNECTED DWT =1 Q P LDK A1,0 PRESET RETURN CODE Q : P ABL RQRTN5 Q ^ P EJECT Q r P* Q P* DISCONNECT REQUEST Q P* Q P* ACTIVATION PARAMETERS: Q P* DWT-ADDRESS (A6) Q P* Q P* FUNCTIONS: Q &
0x10f0b0…10f244 Dummy {f00=0x0051, f01=0x0190, f02=»N CHAIN Q h 6 P* 4. SET REQUEST STATE TO ACTIVE (NOT CONNECTED) R $ P* IF NO DWTS LEFT IN CHAIN. R J * P* 5. CHECK PHYSICAL CONNECTION STATE R r P* R P* COMPLETION PARAMETERS: R P* RETURN CODE (A1) R P* R PRQDIS EQU * R $ P LD
0x10f244…10f3d8 Dummy {f00=0x0051, f01=0x0190, f02=»,RCSEQ RC: SEQUENCE ERROR R P ABL RQRTN5 COMPLETE S " PRQDS20 EQU * S > & P LD A2,DWTST,A6 GET DWT STATUS =1 S R P ANK A2,DWT:C CONNECTED ? =1 S | P RB(Z) RQDS10 NO =1 S P LDK A2,DWT:C . =1 S & P XRS A2,DWTST,A6 RESET CONNECT =1 S P IFT MES
0x10f3d8…10f56c Dummy {f00=0x0051, f01=0x0190, f02=» S | " P CM DTEDDT YES,DISCARD ROOT =2 T $ P LD A2,DCDWA MORE IN QUEUE ? =2 T . P RF(NZ) RQDS30 YES =2 T V " P RF RQDS22 NO,INIT DM MODE =2 T t PRQDS21 EQU * . =2 T P XIF T 8 P CF A15,DCREMV REMOVE ACTIVE DWT FROM CONFIG. CHAIN T , P RB(N) RQDS1
0x10f56c…10f700 Dummy {f00=0x0051, f01=0x0190, f02=»F(NZ) RQDS30 YES CHAIN NOT EMPTY =2 T P XIF U , PRQDS22 EQU * U 8 4 P LDK A2,1 * CHANGE REQUEST STATE TO ACTIVE/OPEN, U L ( P ST A2,DCREQS * I.E. NONE CONNECTED. U P LDKL A1,TONDMX U P ST A1,DCMODE INIT DM U $ P CM FRMRMD RESET FRMR INDICATOR U
0x10f700…10f894 (1, 187) Dummy {f00=0x0051, f01=0x0190, f02=»QUEUE U p & P LD A1,DWTIPC,A6 GET BUFFER QUEUE V P CF A15,RELBFX RELEASE IT V 8 $ P CM DWTIPC,A6 CLEAR QUEUE ANCHOR V Z $ P CM DWTSUB,A6 SAVE SYMB ADDRESS V P LDK A1,0 PRESET RETURN CODE V . P CF A15,TENDIO COMPLETE DISCONNECT REQUEST V * P LD A1,A
0x10f894…10fa28 Dummy {f00=0x0051, f01=0x018e, f02=»BL(NA) RQDS40 HW PROBLEMS V P CF A5,READ GET INTERRUPT W " ( P ABI DCMODE NO,ENTER DISCONNECT MODE W D PRQDS40 EQU * W p P CM DCCUS HW OUT OF SERVICE W P ABL TDISP W P EJECT W P* W P* READ STATUS REQUEST W P* W P* W P* AC
0x10fa28…10fbbc Dummy {f00=0x0051, f01=0x0190, f02=» P* FUNCTIONS: X < P* 1. TRANSFER LOGICAL CONNECTION STATUS TO APPLICATION X 2 P* 2. TRANSFER EXTENDED STATUS IF IMPLEMENTED X X P* X P* COMPLETION PARAMETERS: X * P* LOGICAL CONNECTION STATUS (ECBCW1) X 2 P* LENGTH OF EXTENDED STATUS RETUR
0x10fbbc…10fd50 Dummy {f00=0x0051, f01=0x0190, f02=» ST . CU . X t . P* . STATE . STATE . . STATE . Y . P* . 00XX . 00XX . 000X . 000X . Y H . P* ................................... Y z P* Y PRQRSTS EQU * Y P LD A2,DCHDLS HDLC STATE Y P ANK A2,2 PICK OUT NRM Y ( P
0x10fd50…10fee4 Dummy {f00=0x0051, f01=0x0190, f02=»WHEN DTE OPEN Y t " P ORR A2,A3 MERGE W/ HDLC STATE Z ( P LD A3,DCCUS GET CONTROL UNIT STATE Z < * P ANK A3,1 VALID BIT 15,X=1 WHEN HW OK Z h P ORR A2,A3 MERGE W/ THE REST Z " P LD A1,DWTST,A6 GET STATUS =2 Z $ P ANK A1,DWT:C DWT CONNECTED ? =2 Z P
0x10fee4…110078 Dummy {f00=0x0051, f01=0x018e, f02=» Z P ST A2,ECBCW1,A8 TO ECB [ 6 P LD A2,ECBBA,A8 GET EXTENDED STATUS BUFFER ADDRESS [ ( ( P RF(Z) RQRS80 NO BUFFER = NO STATUS [ b ( P LDKL A1,DCXSTB DRIVER STATUS BUFFER [ " P LDKL A3,DCXSTL BUFFER LENGTH [ P LD A4,DWTTAB,A6 TTAB [ $ P CF A15,MO
0x110078…11020c Dummy {f00=0x0051, f01=0x0190, f02=» $ P* READ/RESET STATISTICS REQUEST P* , P* ACTIVATION PARAMETERS: 6 P* TYPE = BITS 0-7 OF ECBCW1 V P* ECB-ADDRESS (A8) z ( P* DWT-ADDRESS OF LOW-LEVEL DWT (A6) P* P* FUNCTIONS: & P* 1. READ STATISTICS TO USER AREA &
0x11020c…1103a0 Dummy {f00=0x0051, f01=0x0190, f02=»ETURN CODE (A1) P* ] PRQSTAT EQU * ] " P IFT STAT=0 ] 6 P LDK A1,0 RESET R.C ] J < P ORKL A1,RCREQ RC: REQUEST ERROR, NO STATISTICS INCLUDED ] f P ABL RQRTN5 COMPLETE ] P XIF ] P IFF STAT=0 ] P LD A1,ECBCW1,A8 GET TYPE ] & P SRL
0x1103a0…110534 (1, 188) Dummy {f00=0x0051, f01=0x0190, f02=» P LDR A1,A1 OK? ^ P RF(Z) RQST30 YES ^ P* ^ 4 PRQST20 EQU * ^ > $ P LDKL A1,RCREQ RC: REQUEST ERROR ^ R P ABL RQRTN5 COMPLETE ^ z P* ^ PRQST30 EQU * ^ 0 P CF A15,DCSRLL RESET ALL STATISTICS BUFFERS ^ P LDR A1,A1 LUCKY AGAIN? ^ P
0x110534…1106c8 Dummy {f00=0x0051, f01=0x0190, f02=»VATION PARAMETERS: ^ , P* ECBCW1 >= 0 : ACTIVATE TIMING CONTROL _ : P* TIMEOUT VALUE IN MULTIPLES OF 100 MS; _ J , P* 0 = IMMEDIATE TIMEOUT. _ 0 P* < 0: DE-ACTIVATE TIMING CONTROL _ P* _ P* FUNCTIONS: _ ,
0x1106c8…11085c Dummy {f00=0x0051, f01=0x0190, f02=» RETURN CODE (A1) _ P* ` PRQTIME EQU * ` $ 0 P LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM ECB ` 8 " P ST A2,DWTRTV,A6 STORE IN DWT ` l P LDK A1,0 PRESET RETURN CODE ` 2 P ABL RQRTN5 COMPLETE - NEED A REST AFTER THIS ` P EJECT ` P* ` P* WR
0x11085c…1109f0 Dummy {f00=0x0051, f01=0x0190, f02=»RMINAL ADDRESS (DWT) ` P* a P* FUNCTIONS: a & < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. a : 0 P* 2. VERIFY BUFFER SIZE IF MMU AND/OR IOP. a z 2 P* 3. QUEUE REQUESTING DWT FOR HDLC PROCEDURE. a * P* 4. COMPLETE WHEN ACK'D OR TIMEOUT
0x1109f0…110b84 Dummy {f00=0x0051, f01=0x0190, f02=»D A2,ECBRL,A8 REQUESTED LENGTH a . P CWK A2,BUFLEN WILL IT FIT IN MMU-BUFFER? b & P RF(NG) RQWR10 YES - OK b X & P LDKL A1,RCLGTH RC: ILLEGAL LENGTH b x P ABL RQRTN COMPLETE b P* b PRQWR10 EQU * b P XIF b $ P LD A1,DCCUS CONTROL UNIT STATE
0x110b84…110d18 Dummy {f00=0x0051, f01=0x018e, f02=» 0 P LD A2,DCREQS IN REQUEST STATE = CONNECTED? c P CWK A2,3 * c 8 P RF(E) RQWR30 YES - OK c L PRQWR21 EQU * c j 0 P LDKL A1,RCLOGC RC: LOGICAL CONNECTION ERROR c ~ P ABL RQRTN COMPLETE c P* c PRQWR30 EQU * c & P LD A2,DWTST,A6 GET DWT STAT
0x110d18…110eac Dummy {f00=0x0051, f01=0x0190, f02=» * P RB(E) RQWR21 YES NO WRITE ALLOWED =2 d P XIF d 2 P IFT SUB=1 d > & P LD A2,DWTSUB,A6 GET SYMB ADDRESS d P P ABL(Z) RQDS10 NOT PRESENT d z P XIF d P CF A15,TIMEWR SET TIMER d P CF A15,INSWQ QUEUE REQUEST d P ABL TDISP WAIT d P EJE
0x110eac…111040 Dummy {f00=0x0051, f01=0x0190, f02=»R LENGTH IN CHARS. (ECBRL) d ~ P* SUBTERMINAL ADDRESS (DWT) e " P* e F P* FUNCTIONS: e P < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. e d F P* 2. TRANSFER TO THE APPLICATION ANY MESSAGE QUEUED FOR THE DWT, e $ P* INCLUDING THE MASTER
0x111040…1111d4 (1, 189) Dummy {f00=0x0051, f01=0x0190, f02=»LETION PARAMETERS: e 0 P* ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL) f P* RETURN CODE (A1) f N P* f j PRQRD EQU * f t $ P LD A1,DCCUS CONTROL UNIT STATE f P RF(NZ) RQRD10 CONNECTED f 2 P LDKL A1,RCPHYC RC: PHYSICAL CONNECTION ERROR f P ABL
0x1111d4…111368 Dummy {f00=0x0051, f01=0x018e, f02=» f " P LD A1,DCIPC GET BUFFER QUEUE g P XIF g . P RF(NZ) RQRD20 NOT EMPTY g : P LD A1,DCREQS CONNECTED ? g Z P CWK A1,3 g | P ABL(NE) RQWR21 NO g & P LD A1,DWTST,A6 GET DWT STATUS =1 g P ANK A1,DWT:C CONNECTED ? =1 g P RB(Z) RQWR21 NO g
0x111368…1114fc Dummy {f00=0x0051, f01=0x0190, f02=» & P LD A2,DWTSUB,A6 GET SYMB ADDRESS h P ABL(Z) RQDS10 NOT PRESENT h . P XIF h P PRQRD11 EQU * h P CF A15,TIMERE START TIMER h p P ABL TDISP WAIT h P* h P* BUFFER WAITING IN QUEUE h P* h PRQRD20 EQU * h P LDR* A2,A1 GET NEXT
0x1114fc…111690 Dummy {f00=0x0051, f01=0x018e, f02=»IN QUEUE h t P XIF i " P LDR A4,A1 SAVE BUFFER ADDRESS i P LD A2,RCVEL,A1 GET LENGTH i B P IFT SUB=1 i d $ P SUK A2,1 UPDATE LENGTH FOR STA i v P XIF i P ST A2,ECBEL,A8 STORE IN ECB i P IFT SUB=0 i " P ADK A1,RCVHDR ADJUST ADDRESS i P X
0x111690…111824 Dummy {f00=0x0051, f01=0x0190, f02=» & P RF(NZ) RQRD30 STILL BUFFERS FREE j " P ST A4,DCIPA THIS IS THE FIRST j . P RF RQRD40 HOP OVER j T P EJECT j p PRQRD30 EQU * j ~ P LDR* A3,A2 GET NEXT BUFFER j P RF(Z) RQRD35 END OF CHAIN j P LDR* A2,A2 GET NEXT j P RB RQRD30 TEST IF E
0x111824…1119b8 Dummy {f00=0x0051, f01=0x0190, f02=»CBBA,A8 USER BUFFER ADDRESS j P LD A3,ECBEL,A8 LENGTH k $ " P LD A4,DWTTAB,A6 TTAB ADDRESS k B & P CF A15,MOVSU MOVE BUFFER TO USER k h $ P LD A1,DWTRTP,A6 TIMER RUNNING? k P RF(Z) RQRD41 EQU * NO k $ P CM* DWTRTP,A6 * STOP THE TIMER k P CM DWTR
0x1119b8…111b4c Dummy {f00=0x0051, f01=0x0190, f02=»FT SUB=1 k : P LD A2,DWTIPC,A6 CHECK RECEIVE BFR CHAIN FOR THIS DWT l P XIF l N P IFT SUB=0 l Z * P LD A2,DCIPC GET RECEIVE BUFFER CHAIN l l P XIF l $ P RF(Z) CKMES1 NO BUFFERS WAITING l & P ORKL A1,RCDATA RC: DATA AVAILABLE l PCKMES1 EQU * l
0x111b4c…111ce0 Dummy {f00=0x0051, f01=0x0190, f02=»OMPLETE REQUEST l P ABL TDISP GOTO DISPATCHER m P* m : " PRQERR EQU * REQUEST ERROR m D $ P LDKL A1,RCREQ RC: REQUEST ERROR m j P RB RQRTN COMPLETE m P EJECT m P* m " P* REQUEST TIMER HANDLING PART m P* m P* READ REQUEST TIMER
0x111ce0…111e74 (1, 190) Dummy {f00=0x0052, f01=0x0190, f02=» TOUTXX TIMER = 0 => IMMEDIATE TIMEOUT m P ST A2,TIMERR n . P CF A15,SETIME n D P DATA TOUTRE n Z PTIMERR DATA 0 n n ( P ST A4,DWTRTP,A6 STORE TIMER POINTER n P RF TIME10 n P* n P* TIMEOUT READ TIMER n P* n PTOUTRE EQU * n P L
0x111e74…112008 Dummy {f00=0x0052, f01=0x0190, f02=») HWOK YES n P ORK A1,1 INDICATE HW FAIL o PHWOK EQU * o 4 P LD A2,DCHDLS LINK OK ? o F P ANK A2,2 o f P RF(NZ) SWOK YES o x 0 P ORK A1,2 INDICATE SW FAIL UNDER LINK LEVEL o PSWOK EQU * o < P ABL RQRTN INVESTIGATE FURTHER INFORMATION BEFORE
0x112008…11219c Dummy {f00=0x0052, f01=0x0190, f02=» o z P* p PTIMEWR LDR A1,A6 p & P LD A2,DWTRTV,A6 GET TIMEOUT VALUE p * P RF(N) TIME10 NO TIMING p T : P RB(Z) TOUTXX TIMER VALUE VALUE=0=>IMMEDIATE TIME OUT p t P ST A2,TIMWR p P CF A15,SETIME p P DATA TOUTWR p PTIMWR DATA 0 p P ST
0x11219c…112330 Dummy {f00=0x0052, f01=0x0190, f02=»TN A15 p P XIF q P EJECT q P* q ( P* TIMEOUT WRITE TIMER q 2 P* q P PTOUTWR EQU * q Z P LDR A6,A1 FETCH DWT q n P CM DWTRTP,A6 q P LD A2,DWTECB,A6 q P LD A4,ECBBA,A2 FETCH BUFFER q * P CF A15,REMOVW REMOVE FROM WRITE QUEUE q
0x112330…1124c4 Dummy {f00=0x0052, f01=0x0190, f02=»ME IS RETURNED IN A2 q P* r P* r & PCTIME EQU * r 0 & P LD A2,DWTRTP,A6 GET TIMER POINTER r D P RF(Z) CTIM10 NOT RUNNING r n P LDR* A2,A2 r " P NGR A2,A2 GET REMAINING TIME r P CM* DWTRTP,A6 STOP TIMER r P CM DWTRTP,A6 r PCTIM10
0x1124c4…112658 Dummy {f00=0x0052, f01=0x0190, f02=» IFT CPU852=0 r P RTN A15 s P XIF s & P* s 2 P EJECT s < P* s J P* s T ( P* INSERT DWT IN WRITE REQUEST QUEUE s ^ P* s P* A2,A3,A4 DESTROYED s P* A6=DWT s P* s ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR s P LDK A4,DWTOPN s
0x112658…1127ec Dummy {f00=0x0052, f01=0x0190, f02=»4,A2 INSERT IN QUEUE s " P CMR A4 INDICATE END OF QUEUE t P RB RETURN RETURN t B P* t P* t f * P* REMOVE DWT FROM WRITE REQUEST QUEUE t p P* t P* A2,A3,A4 DESTROYED t P* A6=DWT t P* t * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR t
0x1127ec…112980 Dummy {f00=0x0052, f01=0x018e, f02=» CWR A3,A4 t P RF(E) REM15 u P LDR A2,A3 GET NEXT u & P RB REM10 u B PREM15 LDR* A3,A4 REMOVE u T P STR A3,A2 u t P RB RETURN RETURN u P EJECT u P* u P* u 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED u P* u P
0x112980…112b14 (1, 191) Dummy {f00=0x0052, f01=0x0190, f02=» P RF(N) CWR200 NO REQUEST v P LD A2,DWTOR,A6 GET ORDER v $ P CWK A2,WRITEO WRITE ORDER? v F P RF(NE) CWR200 NO v j & P CF A15,CTIME STOP REQUEST TIMING v 0 P CM ECBCW,A8 CLEAR ????????????????????????? v $ P CF A15,TENDIO COMPLETE REQUEST v
0x112b14…112ca8 Dummy {f00=0x0052, f01=0x0190, f02=»******************************** v j J P********************************************************************** w ( P* w v P* w P* HDLC PROTOCOL PROCESSOR w P* w P* w J P********************************************************************** w
0x112ca8…112e3c Dummy {f00=0x0052, f01=0x0190, f02=»* w P* ACCEPT NO LINE ACTIVITY x : P* WAIT FOR OPEN REQUEST TO INITIATE DISCONNECTED MODE x , P* ('TODISC' --> DCMODE) x j P* x J P********************************************************************** x P* x POFF EQU * x P ABL T
0x112e3c…112fd0 Dummy {f00=0x0052, f01=0x0190, f02=»ODES x P* y J P********************************************************************** y P* y d P* y n , P* CHANGE TO NORMAL RESPONSE DCMODE (NRM) y x P* y PTONRM EQU * y P IFT STAT=1 y P LDR A2,A6 SAVE THAT DWT y P LDKL A6,DTE G
0x112fd0…113164 Dummy {f00=0x0052, f01=0x0190, f02=» * y 0 P ST A1,DCMODE * BRANCH ADDRESS FOR NRM STATE z P LDK A1,2 * STATE = NRM z > P ST A1,DCHDLS * z ^ , P CF A15,RESCON RESET PROCEDURE COUNTERS z v ( P CF A15,RSRSPQ RESET RESPONSE QUEUE z " P LDK A1,UA * SEND UA RESPONSE z P CF A15,QMTRM *
0x113164…1132f8 Dummy {f00=0x0052, f01=0x0190, f02=» LDK A1,UA * SEND UA RESPONSE z P CF A15,QMTRM * { & P* { > ( PTONDMX EQU * ENTRY W/O SENDING UA { H * P CF A15,RESCON REST PROCEDURE CUNTERS { t ( P CF A15,RSRSPQ RESET RESPONSE QUEUE { P LDKL A1,NDM * { ( P ST A1,DCMODE SET DM BRANCH ADDRESS
0x1132f8…11348c Dummy {f00=0x0052, f01=0x0190, f02=»******************************************** { v P* | 4 $ P* NORMAL DISCONNECTED MODE (NDM) | > P* | f 6 P* ENTERED FROM OFF MODE WITH OPEN REQUEST OR FROM | p P* NRM WITH DISC COMMAND | P* | P* COMMANDS ACCEPTED: SNRM | P* | J P****
0x11348c…113620 Dummy {f00=0x0052, f01=0x018e, f02=»INPUT | n P CF A5,RDFRAM GET A FRAME } P ABL(N) TDISP INVALID DTE } 0 P ABI(NZ) DCMODE NO GOOD } R P LDK A2,1 RESTORE DISC MODE } r P ST A2,DCHDLS } ( P LDR A2,A1 COMMAND FIELD = PARAMETER } " P CF A15,LOOKUP BRANCH ON TABLE } 2 P DATA DMEN
0x113620…1137b4 (1, 192) Dummy {f00=0x0052, f01=0x0190, f02=» } v ( P CF A15,QMTRM QUEUE FOR TRANSMISSION ~ " P ABI DCMODE UNACCEPTED COMMAND ~ 4 P* ~ Z " P* SNRM-COMMAND TO BE ACCEPTED? ~ d P* ~ PCMDNRM EQU * ~ , P LD A2,DCREQS GET CURRENT REQUEST STATE ~ P CWK A2,3 CONNECTED ALREADY? ~ " P ABL(E) TONR
0x1137b4…113948 Dummy {f00=0x0052, f01=0x0190, f02=»************ ~ V P* P* NORMAL RESPONSE MODE - NRM P* B J P********************************************************************** L P* PNRM EQU * , P LDKL A5,STBIN RESET STACK BASE - INPUT P CF A5,RDFRAM READ A FRAME P
0x113948…113adc Dummy {f00=0x0052, f01=0x0190, f02=»FRMR MODE ? P RF(Z) NRM01 NO NRM MODE $ P LDR A2,A1 YES,ONLY ACCEPT SNRM 4 P CWK A2,SNRM ( P ABL(NE) NRM160 NO SNRM,RESEND FRMR p , P CM FRMRMD SNRM DETECTED,CLEAR FRMR MODE , PNRM01 EQU * NRM,ACCEPT CONVENIENT FRAME P LDR A2,A1 G
0x113adc…113c70 Dummy {f00=0x0052, f01=0x0190, f02=» n ( P CF A15,LOOKUP BRANCH ON FRAME TYPE P DATA NRMEND,IFRM I-FRAME 4 P DATA 1,SFRM S-FRAME V PNRMEND DATA 3,UFRM U-FRAME r P EJECT P* P* U-FRAME RECEIVED P* $ P* COMMANDS ACCEPTED: DISC, SNRM P* P*
0x113c70…113e04 Dummy {f00=0x0052, f01=0x0190, f02=»,TONDM DISC PUFRMTE DATA SNRM,TONRM SNRM P EJECT 8 P* F P* P P* S-FRAME RECEIVED, DECODE Z P* | @ P* ACCEPTED COMMANDS: RR, RNR, REJ(IF UN2 OPTION INCLUDED) P* PSFRM EQU * $ P LD A1,SAVPAM RESTORE PARAMETER
0x113e04…113f98 Dummy {f00=0x0052, f01=0x0190, f02=»NVALID (SREJ) | P DATA RNRMSK,SFRNR RNR P DATA RRMSK,SFRR RR 4 PSFREND DATA REJMSK,SFREJ REJ P P* t P* RNR RECEIVED ~ P* P* PSFRNR EQU * P IFT STAT=1 P LDR A2,A6 SAVE THAT DWT P LDKL A6,DTE GET DTE
0x113f98…11412c Dummy {f00=0x0052, f01=0x0190, f02=»OUNTERS AND CHECK OUTPUT QUEUE z P CF A5,TSTNR CMDR ? & P LC A1,FIELD1+1 GET C-FIELD B P ANK A1,/10 CHECK POLL-BIT f P ABI(Z) DCMODE P-BIT OFF P LDK A1,RR LOAD 'RR' P LD A2,DCIPA & P RF(NZ) NRMTRA OK READY TO RECEIVE P LDK A
0x11412c…1142c0 Dummy {f00=0x0052, f01=0x0190, f02=» 8 P CF A5,UPDCON UPDATE COUNTERS AND CHECK OUTPUT QUEUE P CF A5,TSTNR FRMR ? @ PNRM145 EQU * P LC A1,FIELD1+1 GET C-FIELD p P ANK A1,/10 CHECK POLL-BIT P ABI(Z) DCMODE P-BIT OFF ( P LDK A1,0 INDICATE POLL-BIT RECEIVED P RF NR
0x1142c0…114454 (1, 193) Dummy {f00=0x0052, f01=0x0190, f02=»ERS z 0 P LDK A3,/80 FAIL CODE (FRMR DCMODE SETTING) P CF A5,PRFRMR INIT FRMR @ P IFT STAT=1 ` P LDR A2,A6 SAVE THAT DWT t P LDKL A6,DTE GET DTE " P LDKL A1,CSBTFR LOAD STATISTIC P CF A15,DCSUPR UPDATE P LDR A6,A2 RESTORE D
0x114454…1145e8 Dummy {f00=0x0052, f01=0x0190, f02=» P P* P* QUEUE FOR TRANSMISSION P* : PNRMTRA EQU * D ( P CF A15,QMTRM QUEUE FOR TRANSMISSION X P ABI DCMODE P EJECT P* P* P* I-FRAME RECEIVED P* P* PIFRM EQU * ( P LD A4,BUFADD
0x1145e8…11477c Dummy {f00=0x0052, f01=0x0190, f02=»K UNEXPECTED N(S) ~ P ANK A1,1 N(S) OK? P RF(NZ) NRM400 NO 4 & P CF A5,TSTNR CHECK UNEXPECTED N(R) N P IFT STAT=1 x P LDR A2,A6 SAVE THAT DWT P LDKL A6,DTE GET DTE " P LDKL A1,CSBRIF LOAD STATISTIC P CF A15,DCSUPR UPDATE
0x11477c…114910 Dummy {f00=0x0052, f01=0x0190, f02=» LDK A1,0 INDICATE POLL-BIT W/ I-FRAME ( P CF A15,QMTRM QUEUE FOR TRANSMISSION . P EJECT Z P* h P* I - FRAME O.K. r 8 P* LINK TO PROPER DWT IF PRESENT, ELSE DROP BUFFER P* A4 = A(BUFFER) P* PNRM180 EQU * P IFT SUB
0x114910…114aa4 Dummy {f00=0x0052, f01=0x0190, f02=» GET STA $ P ANK A2,/FF SIGNIFICANT PORTION $ P LD A1,DCDTE GET SYMB DTE ADRESS 8 ( P CF A15,GETSSA GET SYMB STA ADDRESS ` P LDR A1,A1 SET RETURN CODE $ P ABI(N) DCMODE INCORRECT ADDRESS P* PNRM185 EQU * , P CW A1,DWTSUB,A3 STA
0x114aa4…114c38 Dummy {f00=0x0052, f01=0x0190, f02=»FT z P XIF PTSMSP EQU * . =2 P IFT MESPAS=1 . " P LD A3,DTEDDT DISCARD DWT ? =2 D P ABI(Z) DCMODE NO =2 j & P ABL NRM190 OK,DISCARD PRESENT =2 P XIF P ABI DCMODE PNRM186 EQU * P LD A3,DCDWA DWT QUEUE P RF(Z)
0x114c38…114dcc Dummy {f00=0x0052, f01=0x018e, f02=»STATUS | P RF(N) NRM191 NO ORDERS P LD A1,DWTOR,A6 GET ORDER . P SUK A1,2 READ ? P P RF(NZ) NRM191 NO h P LD A8,DWTECB,A6 GET ECB P LD A3,+2,A4 LENGTH P SUK A3,1 ADJUST P ST A3,ECBEL,A8 SAVE IT P LDR A1,A4 $ P
0x114dcc…114f60 Dummy {f00=0x0052, f01=0x0190, f02=» P LD A4,DWTTAB,A6 " P CF A15,MOVSU MOVE USER BUFFER " P CF A15,CTIME RESET READ TIMER B P LDK A1,0 h P CF A15,TENDIO COMPLETE z P ABI DCMODE JUMP RECEIVER P* P* LINK BUFFER TO DWT OR DTE P* PNRM191 EQU * P
0x114f60…1150f4 (1, 194) Dummy {f00=0x0053, f01=0x0190, f02=» LDR* A3,A6 GET DWT ON NEXT POSITION & P RB(NZ) NRM190 YES ONE STILL THERE , P LDKL A3,DCIPC CHAIN ANCHOR V P XIF z P* PNRM195 EQU * " P LDR* A2,A3 GET BUFFER POINTER P RF(Z) NRM198 LAST IN CHAIN P LDR* A3,A3 GET NEXT
0x1150f4…115288 Dummy {f00=0x0053, f01=0x0190, f02=»4 SAVE LINK TO NEXT FREE BUFFER $ P CMR A4 END OF CHAIN FOR THE DWT ( P* P $ P* REMOVE BUFFER FROM FREE CHAIN Z P* P LDKL A2,DCIPA CHAIN ANCHOR P* PNRM210 EQU * " P LDR* A4,A2 GET NEXT IN CHAIN 6 P CWR* A4,A3 SAME AS
0x115288…11541c Dummy {f00=0x0053, f01=0x0190, f02=»M220 EQU * , P STR A1,A2 REPLACE W/ THE NEXT FREE BFR P ABI DCMODE GET NEXT FRAME B P* d P* EXEPTION STATE:WRONG N(S) n 0 P* REJECT ENABLED= SEND REJ W/O TESTING P-BIT " P* NOT ENABLED: WAIT FOR P-BIT P* PNRM400 EQU *
0x11541c…1155b0 Dummy {f00=0x0053, f01=0x018e, f02=»AVE THAT DWT P LDKL A6,DTE GET DTE " P LDKL A1,CSBTRJ LOAD STATISTIC 0 P CF A15,DCSUPR UPDATE V P LDR A6,A2 RESTORE DWT t P XIF ( P LDK A1,REJ INDICATE REJ TO BE SEND P ABL NRMTRA P EJECT P* " P* HERE TO TEST N
0x1155b0…115744 Dummy {f00=0x0053, f01=0x0190, f02=» P RTN A5 0 P********** INIT FRMR PARAMETERS *********** PTSTNRX EQU * H P CM STATUS RESTORE STATUS P LD A1,VSCNT ~ P SLL A1,4 P LD A2,VRCNT & P ORR A2,A1 PRESENT COUNTERS IN A2 P LDK A3,/10 FAIL CODE IN A3 P C
0x115744…1158d8 Dummy {f00=0x0053, f01=0x0190, f02=»FRMR EQU * " P LDK A1,FRMR LOAD 'FRMR'+F-BIT & P LDKL A4,DLOBUF GET BUFFER ADDRESS 8 P ADK A4,1 b P SCR A1,A4 STORE C-FIELD t . P LC A1,FIELD1+1 GET WRONG RECEIVED C-FIELD P ADK A4,1 P SCR A1,A4 STORE IT P ADK A4,1 $ P S
0x1158d8…115a6c Dummy {f00=0x0053, f01=0x0190, f02=» STAT=1 P LDR A2,A6 SAVE THAT DWT P LDKL A6,DTE GET DTE 0 $ P LDKL A1,CSBRBY LOAD STATISTICS L P CF A15,DCSUPR UPDATE t P LDR A6,A2 RESTORE DWT P XIF P LC A1,FIELD1+1 GET C-FIELD P ANK A1,/10 POLL-BIT SET ? P ABI(Z
0x115a6c…115c00 Dummy {f00=0x0053, f01=0x0190, f02=»PUT PROCESS P* P* QUEUED FROM INPUT PROCESS P* B $ P* TRANSMIT FRAME IF ANY ON QUEUE L 2 P* PRIORITY 1: COMMANDS/RESPONSES (UA,CMDR,DM) t 0 P* PRIORITY 2: RR-FRAMES WHEN NOTHING PENDING P* P* PTRM EQU * P INH
0x115c00…115d94 (1, 195) Dummy {f00=0x0053, f01=0x0190, f02=» CURRENT STATUS ~ " P CF A15,CPTIM START POLL TIMER P LDR* A1,A15 RESTOR A1 > " P IM TRMACT OUTPUT IN PROGRESS ( P LDR A2,A1 COMMAND FIELD = PARAMETER P ST A1,SAVPAM SAVE PARAMETER , P CF A15,LOOKUP BRANCH ON COMMAND TO SEND ( P DATA
0x115d94…115f28 Dummy {f00=0x0053, f01=0x0190, f02=»0 RCV READY " P DATA FRMR,TRM140 FRAME REJECT " P DATA RNR,TRM180 RCV NOT READY : * PRSPTBE DATA 0,TRM150 MAY SEND I-FRAME ` PTRM107 EQU * P IFT STAT=1 P LDR A2,A6 SAVE DWT P LDKL A6,DTE INIT DTE " P LDKL A1,CSBTUA LOAD STA
0x115f28…1160bc Dummy {f00=0x0053, f01=0x018e, f02=»1 P LDR A2,A6 SAVE DWT P LDKL A6,DTE INIT DTE & " P LDKL A1,CSBTDM LOAD STATISTIC D P CF A15,DCSUPR UPDATE j P LDR A6,A2 RESTORE DWT P XIF PTRM109 EQU * $ P LD A1,SAVPAM RESTORE PARAMETER PTRM110 EQU * " P CF A5
0x1160bc…116250 Dummy {f00=0x0053, f01=0x0190, f02=» P LDK A1,RR LOAD 'RR'+F PTRM135 EQU * & 0 P LD A2,VRCNT GET NEXT EXPECTED SEND COUNTER : P SLL A2,5 ADJUST IT n P ORR A1,A2 INSERT IN RR P RB TRM110 PTRM136 EQU * P LDK A1,REJ P RB TRM135 P* P*
0x116250…1163e4 Dummy {f00=0x0053, f01=0x018e, f02=» TO A3 z P CF A5,WRFRAM SEND THE FRAME P RF TRMEND 2 P EJECT D P* R ( P* CHECK APPLICATION QUEUE AND SEND P* I-FRAME OR RR-FRAME P* P* PTRM150 EQU * P LD A6,DCIPA " P RF(NZ) TRM190 OK CHECK QUEUE P
0x1163e4…116578 Dummy {f00=0x0053, f01=0x0190, f02=» P RB TRM135 P* P* CHECK APPLICATION QUEUE P* B PTRM190 EQU * L ( P LD A6,DCWRQ CHECK APPLICATION QUEUE ` " P RB(Z) TRM130 NOTHING IN QUEUE P EJECT P* , P* DEFINE AND TRANSMIT INFORMATION FRAME P* 0 P SUK
0x116578…11670c Dummy {f00=0x0053, f01=0x0190, f02=» BUFFER ADDRESS v $ P LD A3,ECBRL,A8 REQUESTED LENGTH P ADK A3,2 INCLUDE HEADER @ , P LD A7,ECBBA,A8 GET BUFFER START ADDRESS ` P IFT SUB=1 2 P LD A2,DWTSUB,A6 SYMBOLIC SUBTERMINAL ADDRESS P LD A1,DCDTE GET SYMB DTE P CF A15,GETSNA
0x11670c…1168a0 Dummy {f00=0x0053, f01=0x0190, f02=» & P ADK A3,1 INCREMENT LENGTH FOR STA . P ADK A7,1 INCREMENT FOR 1ST DATA CHARACTER . P XIF ` P IFT MMUPAG+MUX=0 l , P ST A7,SWITCH SAVE FOR BUFFER SWITCHING P XIF P IFF MMUPAG+MUX=0 P IFT SUB=1 6 P LD A2,DWTSUB,A6 GT SYMBOL
0x1168a0…116a34 (1, 196) Dummy {f00=0x0053, f01=0x0190, f02=» , P LDKL A2,MMUBUF+3 SYSTEM BUFFER ADDRESS P XIF 4 P IFF MMUPAG+MUX=0 @ P IFT SUB=0 Z , P LDKL A2,MMUBUF+2 SYSTEM BUFFER ADDRESS l P XIF P IFF MMUPAG+MUX=0 ( P LD A1,ECBBA,A8 USER BUFFER ADDRESS , P LD A3,ECBRL,A8 NUMBER OF
0x116a34…116bc8 Dummy {f00=0x0053, f01=0x018e, f02=» DATA TO SYSTEM BUFFER r " P LDR* A5,A15 RESTORE A5 STACK 2 P LDKL A4,MMUBUF TRANSMIT BUFFER START ADDRESS D 2 P SUKL A2,MMUBUF END ADDRESS - START ADDRESS = z P LDR A3,A2 = TOTAL LENGTH P XIF " P ST A6,WRDWT SAVE WRITING DWT P L
0x116bc8…116d5c Dummy {f00=0x0053, f01=0x0190, f02=» P SLL A2,1 P ORR A1,A2 & P STR A1,A4 STORE C-FIELD IN BUFFER ( P CF A5,WRFRAM R P IFT STAT=1 h P LDR A2,A6 SAVE THAT DWT | P LDKL A6,DTE GET DTE P LDKL A1,CSBTIF $ P CF A15,DCSUPR UPDATE STATISTICS P LDR A6,A2 RESTO
0x116d5c…116ef0 Dummy {f00=0x0053, f01=0x018e, f02=»PDATE CHECKPINT P* P* DISPATCH " P* 4 PTRMEND EQU * > P LD A2,QOUT R P CM TRMACT RESET OUTPUT FLAG f P CW A2,QIN " P ABL(E) TDISP NOTHING ON QUEUE P LDR* A1,A2 GET COMMAND P CWK A2,COMQE $ P RF(NE) TRME10 N
0x116ef0…117084 Dummy {f00=0x0053, f01=0x0190, f02=» P EJECT J P********************************************************************** J P********************************************************************** d P* P* SERVICE ROUTINES P* J P****************************************
0x117084…117218 Dummy {f00=0x0053, f01=0x0190, f02=»- RESET RESPONSE QUEUE P* PRSRSPQ EQU * * P LDKL A2,COMQ BASE > P ST A2,QIN APPEND POINTER X P ST A2,QOUT EXTRACT POINTER z P ADKL A15,4 * P ABR* A15 * RETURN P EJECT , P* QUEUEING FACILITY FOR HDLC TRANSMITTER
0x117218…1173ac Dummy {f00=0x0053, f01=0x0190, f02=»IVE v P* P* ACTIVATE TRANSMITTER P* 4 P STR A4,A15 SAVE A4 ON STACK > P CF A15,SETIME b P DATA TRM,1 AFTER 100 MS x P LDR* A4,A15 RESTORE A4 P RF QMRTN P* P* PUT COMMAND ON QUEUE P* PQMTRM10 EQU
0x1173ac…117540 Dummy {f00=0x0053, f01=0x018e, f02=»M20 EQU * P ADK A2,2 P STR A1,A2 $ P ST A2,QIN 6 P* H P* RETURN R P* b PQMRTN EQU * l P IFT CPU852=1 P ADKL A15,4 P ABR* A15 P XIF P IFT CPU852=0 P RTN A15 P XIF P EJECT P
0x117540…1176d4 (1, 197) Dummy {f00=0x0053, f01=0x0190, f02=» P ST A1,NSCNT P CM NRCNT P CM LNRCNT * P CM CPCNT < P RTN A15 N P EJECT ^ P* l P* v P* UPDATE PROCEDURE COUNTERS P* AND CHECK OUTPUT QUEUE P* * P* ON ENTRY A1 CONTAINS CURRENT C-FIELD P* P*
0x1176d4…117868 Dummy {f00=0x0053, f01=0x0190, f02=»RAME, NO N(S) z P LDR A2,A1 P SRL A2,1 ( P ANK A2,7 MASK N(S) : P ST A2,NSCNT STORE IT V P CW A2,VRCNT CHECK IT t P RF(NE) UPD080 INVALID P IM VRCNT INCREMENT VARIABLE P LDK A2,7 P ANS A2,VRCNT MODULO 7 P RF
0x117868…1179fc Dummy {f00=0x0053, f01=0x0190, f02=» z P SRL A2,5 ADJUST IT P ANK A2,7 $ P LD A3,CPCNT GET CHECKPOINT 6 P CW A3,LNRCNT Z & P RF(E) UPD210 NO TRANSMISSION DONE p P ST A2,NRCNT STORE N(R) P LD A6,WRDWT GET WRITING DWT , P CW A2,CPCNT TRANSMISSION ACKNOWLEDGED ?
0x1179fc…117b90 Dummy {f00=0x0053, f01=0x018e, f02=»* P IFF MMUPAG+MUX=0 P CM SWMMU RESET FLAG & P XIF B P* N P LDK A1,0 RC=0 X ( P CF A5,CWRITE CHECK COMPLETE REQUEST n P RTN A5 P* ( P* LAST TRANSMISSION NOT ACKNOWLEDGED P* PUPD130 EQU * ( P****** TES
0x117b90…117d24 Dummy {f00=0x0053, f01=0x0190, f02=» P RTN A5 P* P* INDICATE WRONG N(R) P* < PUPD205 EQU * F P LDK A1,2 Z P ORS A1,STATUS l P RTN A5 P* * P* HERE ,NO TRANSMISSION HAS BEEN DONE . P* SO,JUST CHECK SYNCHRONOUS N(R) SEQUENCE PUPD210 EQU *
0x117d24…117eb8 Dummy {f00=0x0053, f01=0x018e, f02=»PUT REGISTER A3-A8 P* P* $ PSTREGI ST A3,LCI3 . P ST A4,LCI4 H P ST A5,LCI5 P ST A6,LCI6 p P ST A7,LCI7 P ST A8,LCI8 PRTNA15 EQU * P* P IFT CPU852=1 P ADKL A15,4 P ABR* A15 P X
0x117eb8…11804c Dummy {f00=0x0053, f01=0x0190, f02=» P* PLDREGI LDKL A3,0 PLCI3 EQU *-2 * P LDKL A4,0 > PLCI4 EQU *-2 P P LDKL A5,0 d PLCI5 EQU *-2 v P LDKL A6,0 PLCI6 EQU *-2 P LDKL A7,0 PLCI7 EQU *-2 P LDKL A8,0 PLCI8 EQU *-2 P RB RTNA15
0x11804c…1181e0 Dummy {f00=0x0053, f01=0x0190, f02=» P ST A5,LCO5 P ST A6,LCO6 P ST A7,LCO7 0 P ST A8,LCO8 D P RB RTNA15 X P EJECT j P* x P* $ P* RESTORE OUTPUT REGISTER A3-A8 P* P* PLDREGO LDKL A3,0 PLCO3 EQU *-2 P LDKL A4,0 PLC
0x1181e0…118374 (1, 198) Dummy {f00=0x0054, f01=0x0190, f02=»L A8,0 PLCO8 EQU *-2 P RB RTNA15 " D P EJECT TRABUG TRABUG TRABUG TRABUG TRABUG TRABUG 4 P* | 8 P* LOOKUP - LOOK UP KEY IN TABLE & BRANCH ON ADDRESS P* P* CALL: 8 P* CF A15,LOOKUP TABLE ADDRESS
0x118374…118508 Dummy {f00=0x0054, f01=0x0190, f02=»CH X P* " " " P* LAST DATA KEYN,ADDRN $ P* D P* ENTRY: A2 = KEY VALUE N P* EXIT: A3 & A4 DESTROYED n P* PLOOKUP EQU * P LDR A1,A15 USE A1 REGISTER 0 P ADK A1,4 POINT TO NEXT INSTRUCTION ADDRESS * P L
0x118508…11869c Dummy {f00=0x0054, f01=0x0190, f02=»4 GET NEXT TABLE ENTRY ADDRESS P CWR A3,A4 PAST THE END? & " P RF(G) LOOK90 YES = NOT FOUND F & P CWR* A2,A3 KEY = VALUE IN TABLE? l ( P RB(NE) LOOK50 NO - CHECK NEXT ENTRY & P RF LOOK95 BRANCH TO TABLE ADDRESS P* KEY NOT FOUND PLOOK
0x11869c…118830 Dummy {f00=0x0054, f01=0x0190, f02=»CT J P********************************************************************** P* X 8 P* DCLINK - LINK DWT ADDRESS TO CONFIGURATION CHAIN b P* P* ENTRY: A6 = DWT-ADDRESS P* * P* EXIT: DCDWA = A(FIRST DWT IN CHAIN) P*
0x118830…1189c4 Dummy {f00=0x0054, f01=0x0190, f02=»**** N P* PDCLINK EQU * P LDR A2,A7 GET OPTION+ORDER * P SLL A2,1 BIT /40 SET? N ( P RF(NN) DCLK10 NO - NOT A MASTER DWT l 4 P CM DWTSUB,A6 SUBTERMINAL ADDRESS = 0 FOR MASTER " P LD A2,DCDWA GET ANCHOR VALUE 4 P ST A2,DWTCHN,A6 P
0x1189c4…118b58 Dummy {f00=0x0054, f01=0x0190, f02=» @ P LDKL A3,DCDWA-DWTCHN GET ANCHOR ADDRESS COMPATIBLE W/ DWT'S PDCLK20 EQU * H P LDR A2,A3 PREVIOUS POINTER 2 P LD A3,DWTCHN,A2 GET POINTER TO NEXT IN CHAIN 6 P RB(NZ) DCLK20 KEEP ON UNTIL LAST IN CURRENT CHAIN * P ST A6,DWTCHN,A2 ADD NEW
0x118b58…118cec Dummy {f00=0x0054, f01=0x0190, f02=»ACKWARD LINK TO ANCHOR | P ADKL A15,4 P ABR* A15 RETURN 4 P EJECT L J P********************************************************************** Z P* < P* DCREMV - REMOVE DWT-ADDRESS FROM CONFIGURATION CHAIN P* , P* ENTRY: A6
0x118cec…118e80 Dummy {f00=0x0054, f01=0x0190, f02=»EMOVED n > P* NEG = DWT NOT FOUND OR CHAIN EMPTY ON ENTRY P* A2 & A3 DESTROYED P P* t J P********************************************************************** ~ P* PDCREMV EQU * 4 P LDKL A3,DCDWA-DWTCHN MAKE ANC
0x118e80…119014 (1, 199) Dummy {f00=0x0054, f01=0x0190, f02=» CHAIN ^ P RF(NZ) DCRM30 NOT AT END 8 P SUK A3,1 AT END & NOT FOUND; SET FOR CC = NEGATIVE 0 P RF DCRM80 RETURN l P* PDCRM30 EQU * P CWR A3,A6 IS THIS OUR DWT? $ P RB(NE) DCRM20 NO - LOOK AT NEXT : P LD A3,DWTCHN,A6 GET LIN
0x119014…1191a8 Dummy {f00=0x0054, f01=0x0190, f02=»ET ANCHOR & P RF(Z) DCRM80 LAST DWT NOW REMOVED P ADK A3,1 SET CC = POS. < P* PDCRM80 EQU * f P ADKL A15,4 UPDATE STACK z P LDR A3,A3 SET PROPER CC P ABR* A15 RETURN P EJECT J P****************************************
0x1191a8…11933c Dummy {f00=0x0054, f01=0x0190, f02=»******************************** j P* ( P* 2 * P* TRANSMIT SHORT FRAME WITHOUT I-FIELD < , P* ON ENTRY A1 CONTAINS COMMAND/RESPONSE j P* P* PTRSFR EQU * & P LDKL A4,DLOBUF GET BUFFER ADDRESS P SC A1,+1,A4 STORE C-FIELD
0x11933c…1194d0 Dummy {f00=0x0054, f01=0x0190, f02=»ME ~ , P* ON ENTRY : A3 = FRAME LENGTH IN BYTES $ P* A4 = BUFFER ADDRESS : P* b PWRFRAM EQU * l P LC A1,DCTCA GET DTE ADDRESS $ P SCR A1,A4 STORE FIRST IN BUFFER P IFT MUX=1 P LDR A2,A3 LENGTH IN BYTES P ADK A
0x1194d0…119664 Dummy {f00=0x0054, f01=0x0190, f02=»GTH TO IOP REG. 0 ~ , P WER A4,IOPOUT+/1 ADDRESS TO IOP REG. 1 P XIF J P LD A1,PFPOST Z $ P RF(NZ) WRF105 WAIT FOR POWER UP p P LDR A1,A3 GET LENGTH P ANK A1,1 ODD? P RF(Z) WRF100 NO 4 P LDKL A1,/800 YES - 8 SIGNIF. BITS I
0x119664…1197f8 Dummy {f00=0x0054, f01=0x0190, f02=» & P ADK A1,CIXMX TRANSMIT IOP COMMAND P XIF 2 , P CIO A1,1,CHLCUT START CHLC TRANSMITTER B P RF(NA) WRT115 FORCE RETURN r PWRF105 EQU * P CF A5,WRITE SEND THE FRAME P LDK A1,CINRTS ( P CIO A1,1,CHLCUT NO REQUEST TO SEND
0x1197f8…11998c Dummy {f00=0x0054, f01=0x0190, f02=» EJECT P* P* . P* READ ONE FRAME INTO RECEIVE POOL BUFFER " , P* ON EXIT CR = (Z) IF THE FRAME IS VALID T P* WITH CORRECT ADDRESS. $ P* A1 CONTAINS THE CONTROL FIELD $ P* AND A4 CONTAINS BUFFER ADDRESS P* P*
0x11998c…119b20 Dummy {f00=0x0054, f01=0x0190, f02=»LES l , P IM BUFNUL SET BUFFER OVERFLOW INDICATOR P IFT MUX=1 < " P LDKL A4,FIELD1 SHORT BUFFER- P $ P LDKL A3,2+WDXFER+1 1 WORD LONG v P XIF P RF RDF002 PRDF001 EQU * P CM BUFNUL RESET INDICATOR P IFT MMUPAG+MUX=0
0x119b20…119cb4 (1, 200) Dummy {f00=0x0054, f01=0x0190, f02=»DATA BYTE t P XIF P IFT MUX=1 & P ADK A4,RCVHDR-2 POINT AT A-FIELD 4 6 P LDKL A3,WDXFER+RBUFL+1 BFR LENGTH IN WDS INCL A+C ^ P XIF PRDF002 EQU * P IFT MUX=0 . & P LDK A3,0 RESET CHARACTER COUNTER P XIF .
0x119cb4…119e48 Dummy {f00=0x0054, f01=0x018e, f02=»A1,PFPOST $ P RF(NZ) RDF010 WAIT FOR POWER UP P IFT MUX=0 : P LDK A1,CIRPC RECEIVE ON PC N P XIF r P IFT MUX=1 P LDK A1,CIRMX RECEIVE ON IOP P XIF $ P CIO A1,1,CHLCIN START RECEIVER ( P RF(NA) RDF140 COMMAND
0x119e48…119fdc Dummy {f00=0x0054, f01=0x0190, f02=» x P XIF P RF(Z) RDF110 VALID FRAME PRDF020 EQU * 6 P LDK A3,1 FLAG INVALID J P RF RDF120 h PRDF110 EQU * z P LD A4,DCIPA P RF(Z) RDF115 , P ST A3,RCVEL,A4 LENGTH TO RECEIVE BUFFER P IFT MUX=1 P LD A3,RCVTC
0x119fdc…11a170 Dummy {f00=0x0054, f01=0x0190, f02=» LDR A1,A1 * & P RF(Z) RDF150 SKIP CONTENTION SST P CC A1,DCTCA OUR ADDRESS? > $ P RB(NE) RDF020 NO - SET INVALID ` P LDK A3,0 FLAG VALID FRAME . P LC A1,FIELD1+1 GET COMMAND FIELD OF FRAME , P RF RDF125 NO STATUS CHECK WHEN DATA OK
0x11a170…11a304 Dummy {f00=0x0054, f01=0x0190, f02=»H BAD HW STATUS x P RF(NZ) RDF126 HW INCORRECT PRDF125 EQU * < P ADK A5,4 P P LDR A3,A3 SET PROPER CC b P ABR* A5 PRDF126 EQU * " P CF A15,STREGI SAVE REGISTERS P CF A15,SETIME P DATA RDF127,CUTIME P ABL TDI
0x11a304…11a498 Dummy {f00=0x0054, f01=0x0190, f02=» P EJECT P* P* RESTORE LINE WHEN REQUIRED P* @ * PRDF130 EQU * DISCONNECT,CONNECT MODEM J & P CF A5,CUOPEN TRY TO CONNECT MODEM x P RF(N) RDF140 INVALID DTE P RB(Z) RDF130 NO SUCCESS PRDF131 EQU * P LDK A3,1 FLAG I
0x11a498…11a62c Dummy {f00=0x0054, f01=0x018e, f02=»F125 PRDF150 EQU * " P CF A15,STREGI SAVE REGISTERS P CF A15,SETIME START TIMER F P DATA RDF160,CUTIME h P ABL TDISP PRDF160 EQU * $ P CF A15,LDREGI RESTORE REGISTERS P ABL RDF020 SKIP CONTENTION P EJECT P*
0x11a62c…11a7c0 Dummy {f00=0x0054, f01=0x0190, f02=» P XIF P IFT CPU852=0 P MSR 8,A15 SAVE REGISTERS & P XIF H ( P CF A15,RSRSPQ RESET RESPONSE QUEUE T P LD A2,DCREQS CURRENT STATE P ABL(NZ) PWERXX DTE ACTIVE " P LD A6,WRDWT DWT PRESENT ? =2 P ABL(Z) TDISP NO $ P LD
0x11a7c0…11a954 (1, 201) Dummy {f00=0x0054, f01=0x0190, f02=» ~ P LDKL A5,STBIN YES,COMPLETE P ABL RQOP21 , PPWERXX EQU * @ " P LD A6,WRDWT DWT PRESENT ? =2 T P RF(Z) PWERX1 NO z $ P LD A1,DWTST,A6 ORDER PRESENT ? P RF(N) PWERX1 NO P LD A1,DWTOR,A6 GET ORDER P SUK A1,/22 CLOSE ?
0x11a954…11aae8 Dummy {f00=0x0054, f01=0x0190, f02=» ABL(N) TDISP HW OUT OF SERVICE " P RB(Z) PWERX1 NOT OK,TRY AGAIN ( P ABI DCMODE RESTART RECEIVER N P EJECT r P* P* TIMER FUNCTIONS P* PSPTIM EQU * P CF A15,SETIME P DATA PTOUT,TIMPOL P ST A4,DCTPGP SAVE POI
0x11aae8…11ac7c Dummy {f00=0x0054, f01=0x0190, f02=»UT1 ALREADY TIMED OUT P ST A1,SAHDLC P CM DCHDLS CLEAR IT 4 PPTOUT1 EQU * P P CF A15,SPTIM RESTART TIMER d P ABL TDISP PCPTIM EQU * P LD A1,SAHDLC P ST A1,DCHDLS RESTORE STATUS P LDKL A2,-TIMPOL P ST* A2,
0x11ac7c…11ae10 Dummy {f00=0x0054, f01=0x0190, f02=» P* PREAD EQU * " P CF A15,STREGI SAVE REGISTERS $ P ABL TDISP J P* P* f P* WRITE ON THE LINE p P* P* PWRITE EQU * " P CF A15,STREGO SAVE REGISTERS P ABL TDISP P EJECT J P**************
0x11ae10…11afa4 Dummy {f00=0x0054, f01=0x0190, f02=»DEM FUNCTION IF CONTROL UNIT STATE = 0 ~ & P* CHANGE STATE TO 1 IF SUCCESSFUL . P* X J P********************************************************************** b P* PCUOPEN EQU * " P CF A15,STREGI SAVE REGISTERS P CF A15,SETIME START
0x11afa4…11b138 Dummy {f00=0x0054, f01=0x018e, f02=»A15,LDREGI RESTORE REGISTERS P LDK A1,CICMO CONNECT MODEM $ $ P CIO A1,1,CHLCIN ISSUE FUNCTION H ( P RF(NA) CUOP91 COMMAND NOT ACCEPTED p . P CF A5,READ WAIT FOR INTERRUPT OR TIMEOUT P IFT MUX=1 P LDR A7,A7 SET CND REG P XIF
0x11b138…11b2cc Dummy {f00=0x0054, f01=0x0190, f02=» x P LD A1,DCCUS SET CC P ABR* A5 RETURN $ PCUOP91 EQU * < P CM DCCUS HW OUT OF SERVICE P P ADK A5,4 UPDATE STACK t P LDKL A1,-1 SET CC NEGATIVE P ABR* A5 RETURN P EJECT J P********************************************
0x11b2cc…11b460 Dummy {f00=0x0054, f01=0x0190, f02=» P* CONTROL UNIT STATE TO 0 P* ( J P********************************************************************** 2 P* PCUCLOS EQU * 0 P LD A1,DCCUS GET CURRENT CONTROL UNIT STATE & P RF(Z) CUCL90 ALREADY DISCONNECTED $ P CIO A1,0,CH
0x11b460…11b5f4 (1, 202) Dummy {f00=0x0055, f01=0x018e, f02=»LCIN ISSUE FUNCTIOON P RF(NA) CUCL90 HW PROBLEMS " P CF A5,READ WAIT FOR INTERRUPT > P* d PCUCL90 EQU * n P CM DCCUS HW DOWN P RTN A5 P EJECT P* P* P* INPUT INTERRUPT HANDLER P* P* PIH07
0x11b5f4…11b788 Dummy {f00=0x0055, f01=0x0190, f02=» P XIF P* P CF A15,LDREGI P IFT MUX=1 0 P ABL SSTIN MUST BE STATUSL D P XIF f P IFT MUX=0 v " P INR A2,0,CHLCIN READ 16 BITS P RF(NA) IHLC10 NOT ACCEPTED P* P IFT MUX=0 P IFF LOGG=0 P C
0x11b788…11b91c Dummy {f00=0x0055, f01=0x0190, f02=»,TESTCF FIRST WORD ? P RF(NZ) NFIRST NO & P IM TESTCF YES,SET FIRST WORD FLAG 6 . P ST A2,FIELD1 AND STORE ADDRESS + C-FIELD ` P ABL READ PNFIRST EQU * P LD A1,BUFNUL . P ABL(NZ) READ BUSY DO NOT ACCEPT ANY DATA P SC A2,1
0x11b91c…11bab0 Dummy {f00=0x0055, f01=0x0190, f02=»UFL BUFFER OVERFLOW ? P ABL(L) READ NO P* 6 P* BUFFER OVERFLOW @ P* Z P SUK A4,2 DECREMENT POINTER d P ABL READ P* P* INR NOT ACCEPTED P* PIHLC10 EQU * & P CM TESTCF RESET FIRST WSORD TEST P C
0x11bab0…11bc44 Dummy {f00=0x0055, f01=0x0190, f02=»RFORM SST ON INPUT CHANNEL P* " P* , PSSTIN EQU * 6 P SST A2,CHLCIN PERFORM SST J P RF(NA) SSTI20 NOT ACCEPTED l P IFF LOGG=0 P CF A5,LOGSST P XIF P LDR A1,A2 P ANK A1,1 MODEM NOT OP P RF(Z) SSTI30 NOT
0x11bc44…11bdd8 Dummy {f00=0x0055, f01=0x0190, f02=»A15,DCSUPR UPDATE P LDR A6,A2 RESTORE THAT DWT P XIF > ( P LDK A2,1 RESTORE MODEM NOT OPERABLE J P CM DCCUS CLEAR MODEM UP v P EJECT P* P* MODEM OK: " P* COULD BE OK OR RETRY INPUT P* PSSTI20 EQU * $ P L
0x11bdd8…11bf6c Dummy {f00=0x0055, f01=0x0190, f02=» P LDR A2,A1 GET SST P ANK A2,8 OVRFLOW ? ( P RF(NZ) SSTI31 YES ACCEPT IT ANYWAY : P XIF f P LDR A1,A2 r " P ANKL A1,/302E INVALID FRAME ? : P RB(NZ) SSTI20 YES,CARRIER DOWN,THROUGPUT,CRC...ETC... P IFT MUX=0 ( P CWK A3,RBUFL+
0x11bf6c…11c100 Dummy {f00=0x0055, f01=0x0190, f02=»D A4,BUFNUL SHORT BUFFER USED? P RF(NZ) SSTI40 YES & . P RER A4,IOPIN GET RESIDUAL LENGTH IN WORDS @ 0 P LDKL A3,RBUFL ORIG. LENGTH, DON`'T INCL A+C r $ P SUR A3,A4 MINUS RESIDUAL LENGTH " P SLL A3,1 LENGTH RCVD IN CHARS P XIF P ANK
0x11c100…11c294 (1, 203) Dummy {f00=0x0055, f01=0x0190, f02=»CT P* P* P* OUTPUT INTERRUPT HANDLER P* @ P* J PIH0702 EQU * T P* h P IFT CPU852=0 r P MSR 8,A15 SAVE REGISTERS P XIF P IFT CPU852=1 P CF A15,SAVE8 P XIF P* P CF A15,LDREGO
0x11c294…11c428 Dummy {f00=0x0055, f01=0x0190, f02=»IT OUTPUT REGISTER P OTR A2,0,CHLCUT SEND THEM P RF(NA) IHLCU1 NOT ACCEPTED < P* ` P IFT MUX=0 j P IFF LOGG=0 ~ P CF A5,LOGOUT P XIF P IFT MMUPAG+MUX=0 P* 2 P* HERE TO BROADCAST DIRECT FROM USER BUFFER
0x11c428…11c5bc Dummy {f00=0x0055, f01=0x0190, f02=»SENT? x P RF(E) IHLCUX YES - SEND 2ND P XIF 2 P IFT MMUPAG+MUX=0 > " P LDR A4,A7 INIT FIRST PASSAGE X P SUK A4,2 PREPARE POINTER ~ P XIF P IFT MUX=0 P CM SWITCH CLEAR INDICATOR PIHLCUX EQU * P ADK A4,2 INCR
0x11c5bc…11c750 Dummy {f00=0x0055, f01=0x0190, f02=»* & P CIO A1,0,CHLCUT HALT TRANSMISSION PIHWAIT EQU * 4 " P CF A15,STREGO SAVE REGISTERS H P ABL TDISP n P XIF P EJECT P* P* CHECK SST P* PIHLCU1 EQU * P SST A2,CHLCUT PERFORM SST P RF(NA) IHLC
0x11c750…11c8e4 Dummy {f00=0x0055, f01=0x0190, f02=» | P ANK A1,1 " P RF(Z) IHLCU3 THROUGHPUT ERROR P* @ P* MODEM NOT OPERABLE J P* f P IFT STAT=1 p P LDR A2,A6 SAVE THAT DWT P LDKL A6,DTE GET DTE " P LDKL A1,CSCDCE LOAD STATISTIC P CF A15,DCSUPR UPDATE P LDR
0x11c8e4…11ca78 Dummy {f00=0x0055, f01=0x018e, f02=»BL TDISP DISPATCH P* P* TIMEOUT $ P* 6 PIHLCU5 EQU * @ P CF A15,LDREGO V P* n P* THROUGHPUT ERROR x P* PIHLCU3 EQU * " P CM TRMACT RESET OUTPUT ACTIVE P LDK A7,1 PIHLCU2 EQU * P RTN A5
0x11ca78…11cc0c Dummy {f00=0x0055, f01=0x0190, f02=» J P********************************************************************** P* R P* P* DC RECEIVE BUFFER POOL f P* P* $ P* BYPASS ASSEMBLER CONSTRAINTS: 6 PRBUFLB EQU RBUFL+RBUFL BUFFER DATA PORTION - BYTES P* . F P
0x11cc0c…11cda0 Dummy {f00=0x0055, f01=0x018e, f02=» RBUFNR=14 P DATA *+RLINK P RES RBUFL+RCHDRW ( P DATA *+RLINK B P RES RBUFL+RCHDRW X P DATA *+RLINK r P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA
0x11cda0…11cf34 (1, 204) Dummy {f00=0x0055, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK 4 P RES RBUFL+RCHDRW J P DATA *+RLINK d P RES RBUFL+RCHDRW z P DATA *+RLINK P RES RBUFL+RCHDRW P XIF P IFT RBUFNR=13 P DATA *+RLINK P RES RBUFL+R
0x11cf34…11d0c8 Dummy {f00=0x0055, f01=0x0190, f02=» RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW , P DATA *+RLINK F P RES RBUFL+RCHDRW P DATA *+RLINK v P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P D
0x11d0c8…11d25c Dummy {f00=0x0055, f01=0x0190, f02=»RLINK P RES RBUFL+RCHDRW P DATA *+RLINK ( P RES RBUFL+RCHDRW > P DATA *+RLINK X P RES RBUFL+RCHDRW n P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL
0x11d25c…11d3f0 Dummy {f00=0x0055, f01=0x0190, f02=»ES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW . P XIF H P IFT RBUFNR=11 T P DATA *+RLINK j P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK
0x11d3f0…11d584 Dummy {f00=0x0055, f01=0x0190, f02=»*+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK * P RES RBUFL+RCHDRW @ P DATA *+RLINK Z P RES RBUFL+RCHDRW p P XIF P IFT RBUFNR=10 P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW
0x11d584…11d718 Dummy {f00=0x0055, f01=0x0190, f02=»DRW P DATA *+RLINK P RES RBUFL+RCHDRW " P DATA *+RLINK < P RES RBUFL+RCHDRW R P DATA *+RLINK l P RES RBUFL+RCHDRW P XIF P IFT RBUFNR=9 P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES
0x11d718…11d8ac Dummy {f00=0x0055, f01=0x0190, f02=» P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW 4 P DATA *+RLINK N P RES RBUFL+RCHDRW d P XIF ~ P IFT RBUFNR=8 P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+
0x11d8ac…11da40 Dummy {f00=0x0055, f01=0x0190, f02=» DATA *+RLINK P RES RBUFL+RCHDRW P XIF 0 P IFT RBUFNR=7 < P DATA *+RLINK R P RES RBUFL+RCHDRW h P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+RCHDR
0x11da40…11dbd4 (1, 205) Dummy {f00=0x0055, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK 4 P RES RBUFL+RCHDRW J P DATA *+RLINK d P RES RBUFL+RCHDRW z P XIF P IFT RBUFNR=5 P DATA *+RLINK P RES RBUFL+RCHDRW P DATA *+RLINK P RES RBUFL+R
0x11dbd4…11dd68 Dummy {f00=0x0055, f01=0x0190, f02=» ~ P DATA *+RLINK P RES RBUFL+RCHDRW P XIF 8 P IFT RBUFNR=3 D P DATA *+RLINK Z P RES RBUFL+RCHDRW p P XIF P DATA *+RLINK P RES RBUFL+RCHDRW P DATA 0 P RES RBUFL+RCHDRW P* P IFF MMUPAG+MU
0x11dd68…11defc Dummy {f00=0x0055, f01=0x0190, f02=»OUTPUT BUFFER | P* HEADER IF I-FRAME P* 6 P* @ PDLOBUF EQU * J P RES 6 OUTPUT BUFFER ^ P* z P* " P* HDLC CIRCULAR COMMAND QUEUE P* P* PQIN DATA COMQ INPUT POINTER " PQOUT DATA COMQ OUTPUT POINTE
0x11defc…11e090 Dummy {f00=0x0055, f01=0x018e, f02=» P* P* P EJECT J P********************************************************************** & P* t P* ~ P* INTERRUPT LOGGING ROUTINE P* J P********************************************************************** P*
0x11e090…11e224 Dummy {f00=0x0055, f01=0x0190, f02=» PLOGIN EQU * P LDKL A1,/1111 PLOG10 ST A3,SAVE3 2 P ST A2,SAVE2 L P LD A3,LOGPNT ` P STR A1,A3 v P ADK A3,2 P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI
0x11e224…11e3b8 Dummy {f00=0x0055, f01=0x40a0, f02=» PLOGSTA EQU * P RES 400 PLOGEND EQU *-6 ( PSAVE2 DATA 0 > PSAVE3 DATA 0 R P XIF f P* r P* | P* P END @ 2,A3 P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI
0x11e3b8…11e54c Dummy {f00=0x0055, f01=0x2008, f02=» PLOGEND EQU *-4 J PSAVE2 DATA 0 J $ PSAVE3 DATA 0 J 8 P XIF J L P* J X P* J b P* J l P END J v@ J I | P ADK A3,2 I P CWK A3,LOGEND I P RF(L) LOGEXI I P LDKL A3,LOGSTA I PLOGEXI ST A3,LOGPNT I P LD A2,S
0x11e54c…11e6e0 Dummy {f00=0x0055, f01=0x0190, f02=» p" T ) p , ( @ z _ X R X A DWTECB @ , ( Y > Y X H R , ( @ X P ( y Y > > , ( ! $ (P _ ) 1_ $ (X( * & A P _ 0 )_6 X R X
0x11e6e0…11e874 (1, 206) Opaque[0x194]
0x11e874…11ea08 # DirEnt {nam=»DRDC13«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ac0, f03=0x0000}
0x11e874…11ea08 IdxSect {
0x11e874…11ea08 f00 = 0x0056 // 0x11e874 @0x0
0x11e874…11ea08 f01 = 0x001a // 0x11e876 @0x2
0x11e874…11ea08 gno = [ // 0x11e878 @0x4
0x11e874…11ea08 [0x00]: C0x0056.0x0.0
0x11e874…11ea08 [0x01]: C0x0056.0x1.0
0x11e874…11ea08 [0x02]: C0x0056.0x2.0
0x11e874…11ea08 [0x03]: C0x0056.0x3.0
0x11e874…11ea08 [0x04]: C0x0057.0x0.0
0x11e874…11ea08 [0x05]: C0x0057.0x1.0
0x11e874…11ea08 [0x06]: C0x0057.0x2.0
0x11e874…11ea08 [0x07]: C0x0057.0x3.0
0x11e874…11ea08 [0x08]: C0x0058.0x0.0
0x11e874…11ea08 [0x09]: C0x0058.0x1.0
0x11e874…11ea08 [0x0a]: C0x0058.0x2.0
0x11e874…11ea08 [0x0b]: C0x0058.0x3.0
0x11e874…11ea08 [0x0c]: C0x0059.0x0.0
0x11e874…11ea08 ]
0x11e874…11ea08 }
0x11ea08…11eb9c Dummy {f00=0x0056, f01=0x0190, f02=» 2 P IDENT DRDC13 REL 11.0 81-01-26 870105041100 P : & P =3, ABORT ROUTINE FOR REL 11.0 B P PRR 10.0 80-02-15 l P =2, DC:MIN HEADER LENGTH P REL 10.1 79-12-07 P =1, OLLES POWER UP P REL 10.1 79-10-26 P*
0x11eb9c…11ed30 Dummy {f00=0x0056, f01=0x0190, f02=»13 : VIP7700 FOR BPPOAA P* $ 6 P* PROC : SYNCHRONOUS,HALF-DUPLEX,8-BIT ASCII . @ P** SIMULATION OF SINGLE ADDRESS TRIBUTARY STATION h : P* TT ADDRESS ALWAYS 60 HERE (NOT SIGNIFI.) 4 P* SERVICE FRAME U
0x11ed30…11eec4 Dummy {f00=0x0056, f01=0x0190, f02=» P* P* P* ENTRY POINTS P* 2 P* < 2 P ENTRY DC13AD ADDRESS BLOCK TERMINAL REQUESTS F " P ENTRY IH1301 INPUT INTERRUPT | " P ENTRY IH1302 OUTPUT INTERRUPT " P ENTRY DC13ON POWER ON ROUTINE P ENTRY DW1300 DWT FOR DCTA
0x11eec4…11f058 Dummy {f00=0x0056, f01=0x0190, f02=»A1-A8 ON A15 STACK ~ $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR B P EXTRN SETIME SET TIMER f P EXTRN DWTST DWT STATUS P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT
0x11f058…11f1ec Dummy {f00=0x0056, f01=0x0190, f02=»XTRN ECBCW ECB CONTROL WORD P EXTRN ECBRC ECB RETURN CODE $ * P EXTRN DC:MIN MOVE DATA TO USER BUFFER H , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER v 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH P EXTRN SETTIM START TIMER * P EXTRN PFPOS
0x11f1ec…11f380 Dummy {f00=0x0056, f01=0x0190, f02=»ON ` P* P* P* P* ( P* DWT CONTENTS 2 P* H J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) R $ P* DWTST BIT #00: NO REQUEST ( P* DWTTP TIMERPOINTER, ORDER PROCESS " P* DWTWQ WRITE/GET BU
0x11f380…11f514 (1, 207) Dummy {f00=0x0056, f01=0x0190, f02=»******************** P* P & PX:A EQU 270 0 ( PRBUFL EQU 270 RECEIVE BUFFER LENGTH D PX:B EQU /60 p " PDCFC EQU /60 DC TASK FILE CODE PX:C EQU 1 PLOGG EQU 1 INTERRUPT LOGGING PX:D EQU 2 0 PRBUFNR EQU 3 NUMBER OF
0x11f514…11f6a8 Dummy {f00=0x0056, f01=0x0190, f02=»U /02 P IFT P6805=0 PCHLCIN EQU 02 " P XIF 8 P IFT P6805=1 D . PCHLCIN EQU /0A DEVICE ADDRESS OF RECEIVER X P XIF PX:H EQU 500 $ PTBUFL EQU 300 MMU BUFFER LENGTH P* P IFT P6805=0 8 PCHLCUT EQU CHLCIN+/10 DE
0x11f6a8…11f83c Dummy {f00=0x0056, f01=0x0190, f02=» P EJECT P******************** P* . P* CONDITIONAL ASSEMBLY 8 P* X P******************** b & PMMUPAG EQU 0 0=NO TOSS MMU-PAGING ~ P* P* , PCPU852 EQU 1 0=EXTENDED INSTRUCTION SET P* P* 2 PDEVIND E
0x11f83c…11f9d0 Dummy {f00=0x0056, f01=0x0190, f02=»********************************** P* * & P* USE OF STATUS WORD BIT PATTERN 4 P* WITHIN DRDC13 ^ P* v 0 P******************************************** " PSWBT00 EQU /8000 REQUEST ERROR * PSWBT02 EQU /2000 STATUS CHANGE DC-TASK * P
0x11f9d0…11fb64 Dummy {f00=0x0056, f01=0x0190, f02=»8008 REQUEST ERROR & ILLEGAL LENGTH 8 PSWBT2:09 EQU /2040 TIMEOUT ON READ OR WRITE REQUEST , P EJECT h 0 P******************************************** v P* * P* DWTREQ IS AN INTERNAL VARIABLE USED ( P* AS A REQUEST VECTOR AND MAY HAVE
0x11fb64…11fcf8 Dummy {f00=0x0056, f01=0x018e, f02=»ACK ON A PREVIOUS MESSAGE l 0 P* DWTREQ = /0100 " AN OUTSTANDING WRITE " , P* DWTREQ = /0003 " A BSY TO BE SENT V , P* DWTREQ = /0002 " A NAK TO BE SENT . P* DWTREQ = /0001 " AN ACK TO BE SENT 0 P********************************
0x11fcf8…11fe8c Dummy {f00=0x0056, f01=0x0190, f02=» PDWTDRD EQU /10 P* P* $ P IFT MMUPAG=0 . PSTART EQU DWTDRD D P XIF P IFT MMUPAG=1 h PSTART EQU DWTDRD+4 ~ P XIF 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE
0x11fe8c…120020 Dummy {f00=0x0056, f01=0x0190, f02=»DWTREQ EQU START+/0A REQUEST VECTOR & PDWTTRY EQU START+/0C RETRY-COUNTER , P* V P* ` P* REQUEST HANDLING j P* P* P* P* PARAMETERS P* P* A7=ORDER P* P* /02: READ P* /06: WRITE P* /3
0x120020…1201b4 (1, 208) Dummy {f00=0x0056, f01=0x0190, f02=» SPECIAL PROC. VIP700 P* PSOH EQU /01 * PSYN EQU /16 H PSTX EQU /02 f PETX EQU /03 PEOT EQU /04 PSP EQU /20 PKC EQU /43 PKNUL EQU
0x1201b4…120348 Dummy {f00=0x0056, f01=0x018e, f02=»K+SPACE ~ PNAKSP EQU /1520 NAK PBSYSP EQU /6F20 BUSY , PNULSP EQU /8020 NUL H P EJECT d P* r P* | & P****** PROC. AREAS AND CONSTANTS P* P* PTERID RES 1 TERMINAL ID 6 PHEADER DATA 0 CODE-F
0x120348…1204dc Dummy {f00=0x0056, f01=0x018e, f02=» PDCSTCU DATA 0 CURRENT STATUS , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL ( & PDCLCI DATA 0 DC UNIT INPUT STATUS X PCURDWT RES 1 CURRENT DWT & PSVRDL RES 1 SAVE READ LENGTH AREA * PWPOLL DATA 0 OH !! MY POLL !! , P RES
0x1204dc…120670 Dummy {f00=0x0056, f01=0x0190, f02=» h P* P IFT P6805=0 PCBCARR EQU /100+SYN & P XIF B P IFT P6805=1 SALCUZ N PCBSTOP EQU /00 j PCBPARI EQU /0C P XIF P* P* ( P* LINE CONTROL UNIT SST STATUS BITS P* PSBNOOP EQU /01 PSBTHRU
0x120670…120804 Dummy {f00=0x0056, f01=0x0190, f02=» PSBPARI EQU /04 . PSBERR EQU /27 SBNOOP+SBTHRU+SBCARR+SBPARI P XIF L P EJECT X P* f P* p $ P* ACTIVATION FROM TERMINAL TASKS z P* PDCACT EQU * P LDK A1,0 PRESET RETURN CODE P SUK A7,/02 P RF(Z) DCRD READ
0x120804…120998 Dummy {f00=0x0056, f01=0x0190, f02=»9-/37 $ P ABL(Z) REQTIM SET REQUEST TIMER P RF DCA100 6 P* H P********** R P* d P* ACTIVATION FROM DCTASK n P* P********** P* PDCACTD EQU * " P SUR A1,A1 PRESET RETURN CODE P SUK A7,/02 P RF(
0x120998…120b2c Dummy {f00=0x0056, f01=0x0190, f02=» P********** P* P* DC TASK ADDRESS BLOCK P* @ P********** J P* $ P DATA 0 INDICATES NO MMU BUFFER f P DATA DEVIND DEVICE INDEX * PDC13DC DATA DCACTD ACTIVATION ADDRESS & P DATA ABORT ABORT ROUTINE ADDRESS & P
0x120b2c…120cc0 Dummy {f00=0x0056, f01=0x018e, f02=»ESS BLOCK P* P********** P* . P DATA BUFLEN MMU BUFFER SIZE 8 P DATA DEVIND DEVICE INDEX ( PDC13AD DATA DCACT ACTIVATION ADDRESS ~ P DATA ABORT ABORT ROUTINE & P DATA DCRBUF RECEIVE BUFFER ANCHOR P DATA 6 HEADER LEN
0x120cc0…120e54 (1, 209) Dummy {f00=0x0056, f01=0x0190, f02=» | & P* -STATUS CHANGE ON DC EQUIPMENT & P* -SPONTANEOUS MESSAGE RECEPTION 2 P* P********** f P* x PDCRDDC EQU * , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED P* P* P* PDCRTN EQU * P ABL TDISP TO DI
0x120e54…120fe8 Dummy {f00=0x0056, f01=0x0190, f02=»ERMINAL ADDRESSES l P* P* $ & PDCTP LD A2,ECBCW,A8 GET PARAMETER . ( P STR A2,A6 SAVE IN FIRST WORD OF DWT X P CWK A6,DW1300 DCTASK DWT ? , P RF(E) DCTP40 YES!SHOULD'NT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT POINTER ( P C
0x120fe8…12117c Dummy {f00=0x0056, f01=0x0190, f02=»B LAST TABLE ENTRY * PDCTP20 SUK A4,2 ADDRESS TO NEXT ENTRY ( P CW A4,DCTAB ALL ENTRIES CHECKED ?? H ( P RF(E) DCTP30 YES!! DWT NOT IN TABLE t P CWR* A6,A4 IN TABLE ? P RF(E) DCTP40 YES !! P RB DCTP20 CHECK NEXT ENTRY PDCTP30 EQU
0x12117c…121310 Dummy {f00=0x0056, f01=0x0190, f02=»NT DC:TAB LENGTH z PDCTP40 EQU * P LDK A1,0 , PENDIO EQU * > $ P CF A15,TENDIO COMPLETE REQUEST R P RB DCRTN z P EJECT P* P* P* WRITE P* P* P* COMPLETE WHEN: P* SUCCESFUL TRANSMISSION
0x121310…1214a4 Dummy {f00=0x0056, f01=0x0190, f02=»EN ILLEGAL LENGTH P RF(G) IL:LEN YES!! P XIF 6 P CF A15,TIMEWR SET TIMER B P LDKL A2,/0100 b 8 P ORS A2,DWTREQ,A6 INDICATE WRITE REQUEST OUTSTANDING x & P CM DWTTRY,A6 CLEAR RETRY-COUNTER P RB DCRTN P EJECT P* P
0x1214a4…121638 Dummy {f00=0x0056, f01=0x0190, f02=»DCRD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE 2 " P RF(Z) DCRD20 NOTHING IN QUEUE d ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P LDK A1,0 RESET RETURN CODE P ADK A4,6 " P LD
0x121638…1217cc Dummy {f00=0x0056, f01=0x018e, f02=» P LDK A1,0 P CF A15,TENDIO P RB DCRTN 0 $ PDCRD20 CF A15,TIMERE START TIMER B P RB DCRTN j P EJECT | P******************** P* P* SET REQUEST TIMEOUT VALUE P* P******************** P* PREQT
0x1217cc…121960 Dummy {f00=0x0056, f01=0x0190, f02=» P* P IFT MMUPAG=1 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH ( P ABL DISEND COMPLETE REQUEST d P XIF P* P* P EJECT P******************** P* P* TIMER HANDLING PART P* P****
0x121960…121af4 (1, 210) Dummy {f00=0x0057, f01=0x018e, f02=» A1,A6 , P LD A2,DWTTIM,A6 GET REQUEST TIME VALUE P RF(Z) TIME10 NO TIMING > P ST A2,TIMERR ^ P CF A15,SETIME t P DATA TOUTRE PTIMERR DATA 0 ( P ST A4,DWTTP,A6 STORE TIMER POINTER PTIME10 EQU * P RF GBUF10 RETURN TO
0x121af4…121c88 Dummy {f00=0x0057, f01=0x0190, f02=» PTOUTRE EQU * P LDR A6,A1 FETCH DWT $ P CM DWTTP,A6 CLEAR TIMER POINTER 8 PTOUTR1 EQU * ` & P LDK A1,/40 INDICATE TIMEOUT ERROR t & P CM DWTREQ,A6 CLEAR REQUEST VECTOR $ PTOUTR2 RB ENDIO COMPLETE REQUEST P EJECT P* P
0x121c88…121e1c Dummy {f00=0x0057, f01=0x018e, f02=» . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE P RB(Z) TIME10 NO TIMING 6 P ST A2,TIMWR V P CF A15,SETIME j P DATA TOUTWR PTIMWR DATA 0 P ST A4,DWTTP,A6 P RB TIME10 P* P******************** P* P* TIM
0x121e1c…121fb0 Dummy {f00=0x0057, f01=0x0190, f02=» P RB TOUTR1 ! P EJECT ! P* ! $ P* ! . P* STOP REQUEST TIMING ! 8 P* ! V & P* REMAINING TIME IS RETURNED IN A2 ! ` P* ! P* ! PCTIME EQU * ! P INH ! & P LD A2,DWTTP,A6 GET TIMER POINTER ! P RF(Z) CTIM10 NOT RUNNING ! "
0x121fb0…122144 Dummy {f00=0x0057, f01=0x0190, f02=» A5 ! P EJECT " P******************** " P* " 6 P* GET RECEIVE BUFFER " @ P* " ^ & P* CALLING SEQUENCE: CF A15,GRBUF " h P* " $ P* A4 = 0 IF NO AVAILABLE BUFFER " & P* ELSE A4 CONTAINS BUFFER ADDRESS " P* A2 AND A3 ARE DESTROYED
0x122144…1222d8 Dummy {f00=0x0057, f01=0x018e, f02=»2 " P RF(Z) GBUF10 NO FREE BUFFER # . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN # . P STR A3,A2 # ` * PGBUF10 ADKL A15,4 ADJUST STACK POINTER # r P ABR* A15 RETURN TO CALLER # P EJECT # P******************** # P* # & P* QUEUE ALLOCATED
0x1222d8…12246c Dummy {f00=0x0057, f01=0x0190, f02=» # PQRBUF EQU * $ $ P LDR A2,A6 QUEUE ON TERMINAL DWT $ , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE $ D PQR100 EQU * $ t P LDR* A3,A2 $ $ P RF(Z) QR200 END OF QUEUE FOUND $ P LDR A2,A3 $ P RB QR100 $ & PQR200 STR A4,A2 INSERT INTO QUEU
0x12246c…122600 Dummy {f00=0x0057, f01=0x0190, f02=»ESSAGE OR STATUS REQUEST CHANGE $ x , P* REGISTERS A1 - A4,A6,A8 ARE DESTROYED % ( P* % X P******************** % b P* % ~ PCKMESS LDKL A6,DW1300 % P LD A1,DWTST,A6 % P RF(N) CKM110 NO REQUEST % P LDK A1,2 READ REQUEST ? % P CW A1,DWT
0x122600…122794 (1, 211) Dummy {f00=0x0057, f01=0x0190, f02=»Z) CKM200 NO READ IN QUEUE % 0 P LDR* A2,A3 A2 = ADDRESS TO NEXT READ BUFFER & " 0 P ST A2,DWTRQ,A6 STORE THIS ADDRESS ON QUEUE & V " P ADK A3,6 MOVE POINTER TO TEXT & , P ST A3,ECBBA,A8 SAVE THIS ADDRESS IN ECB & P LD A4,-4,A3 & . P ST A4,ECBEL,A8 STOR
0x122794…122928 Dummy {f00=0x0057, f01=0x0190, f02=»TURN CODE & ~ , P CF A15,DC:MIN MOVE DATA TO USER BUFFER ' PCKM110 RB GBUF10 RETURN ' B 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS ' b , P OR A1,DCONOF TAKE CARE OF POLL TIMEOUT ' P CW A1,DCSTOL ' P ST A1,DCSTOL ' & P RB(E) CKM110
0x122928…122abc Dummy {f00=0x0057, f01=0x0190, f02=» EJECT ' P******************** ( P* ( * P* ABORT ROUTINE ( 4 P* ( L P******************** ( V P* ( r * PABORT LD A2,DWTTP,A6 TIMER POINTER =3 ( | " P RF(Z) AB:10 NO TIMER RUNNING ( P CM* DWTTP,A6 KILL TIMER ( P CM DWTTP,A6 ( & PAB:1
0x122abc…122c50 Dummy {f00=0x0057, f01=0x0190, f02=»AB:RTN NO ACTION IF NOT READ/WRITE ( PAB:RTN EQU * ) * $ P ABL DISEND COMPLETE REQUEST =3 ) > P EJECT ) f P* ) t P* ) ~ P* STORE REGISTER A3-A8 ) $ P* CALLING SEQUENSE: CF A15,STREG ) P* ) P* RESTORE ) $ P* CALLING SEQUENCE: CF A15,LDR
0x122c50…122de4 Dummy {f00=0x0057, f01=0x0190, f02=»T A8,LCA8 ) P RF RTNA15 RETURN * P* * , P* * 6 P* * @ PLDREG EQU * * J P LDKL A3,0 * ^ PLCA3 EQU *-2 * p P LDKL A4,0 * PLCA4 EQU *-2 * P LDKL A5,0 * PLCA5 EQU *-2 * P LDKL A6,0 * PLCA6 EQU *-2 * P LDKL A7,0 * P
0x122de4…122f78 Dummy {f00=0x0057, f01=0x0190, f02=» P* + P* BASIC RECEIVE MODE + P* + , PBRM EQU * + 6 & P LDKL A5,STB LOAD STACKBASE TO A5 + H , P CF A5,CSYNCI START INPUT WITH SYN.DEF. + r P* + P* + , P* LOOK FOR SOH OR TWO CONSECUTIVE PAD:S + P* + PBRM100 EQU * + P CF
0x122f78…12310c Dummy {f00=0x0057, f01=0x0190, f02=» A2,PADP-SOH IS IT A PAD ? + P RB(NE) BRM100 NO , " P CF A5,READ READ A CHARACTER , < ( P SUK A2,PADP IS IT THE SECOND PAD ? , ` P RB(NE) BRM100 NO , P EJECT , P* , P* , * P* HALT INPUT CHECK IF THERE IS A POLL , P* , PBRM150 E
0x12310c…1232a0 Dummy {f00=0x0057, f01=0x0190, f02=» P* - P* - * P* CHECK STATUS FROM THE CONTROL UNIT - P* - F PBRM160 EQU * - P P CF A5,READ READ A CHARACTER - d " P LD A1,DCSTCU CHECK OLD STATUS - , P RB(NZ) BRM150 STATUS CHANGED HALT INPUT - P RB BRM110 - P* - P* - P* T
0x1232a0…123434 (1, 212) Dummy {f00=0x0057, f01=0x0190, f02=» RB BRM160 CHECK STATUS - P EJECT . P* . . P* . 8 P* SOH RECEIVED . B P* . Z PBRM200 EQU * . d P LDK A7,0 CLEAR BCC . x " P CF A5,READP READ A CHARACTER . P RB(NZ) BRM160 PARITY ERROR . $ P CWK A2,EOT A QUIESCENT FRAME ? . P R
0x123434…1235c8 Dummy {f00=0x0057, f01=0x0190, f02=»RE CURRENT ID . . P ANK A2,/1F MASK THE POLL AND SELECT BITS / P CF A5,FINTER FIND DWT / H P LDR A3,A3 IS THERE A DWT ? / f P RB(Z) BRM160 NO / $ P ST A3,CURDWT STORE CURRENT DWT / P LD A3,TERID LOAD ID / P LDK A2,/1F / 0 P ANS A2,TERID
0x1235c8…12375c Dummy {f00=0x0057, f01=0x0190, f02=» $ P ANK A3,/20 A POLL OR A SELECT ? 0 P RF(Z) SELECT A SELECT 0 , P EJECT 0 J P* 0 X P* 0 b P* POLL RECEIVED 0 l P* 0 P IM WPOLL INDICATE POLL 0 " P CF A5,CPTIM RESTART POLLTIMER 0 P RB BRM100 LOOK FOR TWO PADS 0 P* 0 P* 0
0x12375c…1238f0 Dummy {f00=0x0057, f01=0x0190, f02=» RB(E) SELECT SKIP IT 0 P CWK A2,SOH AN SOH ? 1 P RB(NE) BRM160 NO 1 : P LDK A7,0 RESET BCC-COUNTER 1 T " P LD A6,CURDWT GET WORKING DWT 1 x $ P CF A5,READP IGNORE THE ADDRESS 1 P RB(NZ) BRM160 PARITY ERROR 1 ( P SUK A2,EOT A SELECT MESSAGE O
0x1238f0…123a84 Dummy {f00=0x0057, f01=0x0190, f02=» 1 h P* 2 " P CF A5,READP READ A CHARACTER 2 P CWK A2,KNUL A TEXT ? 2 8 P RF(E) SELTXT YES 2 V P CWK A2,ACK AN ACK ? 2 p ( P RB(NE) BRM160 NO THE SAME FOR NAK 2 P* 2 P* 2 P* ACK OR ACK WITH TEXT 2 P* 2 " P CF A5,READP READ
0x123a84…123c18 Dummy {f00=0x0057, f01=0x0190, f02=»TER 2 v P CWK A2,ETX AN ETX ? 3 ( P RF(NE) SELACT NO AN ACK WITH TEXT 3 ( P EJECT 3 T P* 3 b P* 3 l P* AN ACK 3 v P* 3 P CF A5,READP GET BCC 3 P ANK A7,PAD MASK BCC 3 P RB(NZ) BRM160 BCC ERROR 3 ( P LD A2,DWTREQ,A6 GET REQUEST V
0x123c18…123dac Dummy {f00=0x0057, f01=0x0190, f02=» 3 j " P LD A2,DWTOR,A6 GET THE ORDER 4 P SUK A2,/06 A WRITE ORDER ? 4 . P RB(NE) BRM160 NO 4 R P LDK A1,0 RETURN CODE 4 l $ P CF A15,TENDIO COMPLETE REQUEST 4 P RB BRM160 4 P* 4 P* 4 P* AN ACK WITH TEXT 4 P* 4 PSELACT EQU
0x123dac…123f40 Dummy {f00=0x0057, f01=0x018e, f02=» SUK A2,/06 A WRITE ORDER ? 4 P RF(NZ) SELT10 NO 5 $ P LDK A1,0 RETURN CODE 5 > $ P CF A15,TENDIO COMPLETE REQUEST 5 P RF SELT10 5 P EJECT 5 P* 5 P* 5 P* A TEXT 5 P* 5 PSELTXT EQU * 5 * P CF A5,READP DON`'T TAKE ANY NOT
0x123f40…1240d4 (1, 213) Dummy {f00=0x0057, f01=0x0190, f02=» " P CF A5,READP READ A CHARACTER 6 P SUK A2,STX AN STX ? 6 * P RF(NE) SELT90 NO 6 F P* 6 ` P* 6 j P* GET BUFFER 6 t P* 6 PSELT10 EQU * 6 * P LD A4,DCRBUF GET BUFFER CHAIN POINTER 6 P RF(NZ) SELT20 YES 6 , P LDK A3,3 NO BUFFER AVAI
0x1240d4…124268 Dummy {f00=0x0057, f01=0x018e, f02=»UFFER POINTER 6 ~ , P LD A2,TERID TERMINAL ID FIRST IN BUFFER 7 * P LDK A3,0 INITIATE LENGTH ACCUMULATOR 7 F P RF SELT35 STORE ID 7 t P EJECT 7 P* 7 P* 7 4 P* READ, CHECK AND STORE THE RECEIVED CHARACTERS 7 P* 7 PSELT30 EQU * 7 " P
0x124268…1243fc Dummy {f00=0x0057, f01=0x0190, f02=» 7 t $ P CWK A2,/5A ILLEGAL CHARACTER ? 8 P RB(G) SELT30 SKIP IT 8 0 P CWK A2,/20 SPACE ? 8 N P RB(L) SELT30 SKIP IT 8 j " P CWK A3,/10E BUFFER OVERFLOW ? 8 P RF(G) SELT50 SEND NAK 8 PSELT35 EQU * 8 P LDR A1,A4 GET BUFFER 8 * P ADR A1,A3
0x1243fc…124590 Dummy {f00=0x0057, f01=0x0190, f02=»CHARACTER 8 | P EJECT 9 P* 9 P* 9 * 2 P* READ AND CHECK BCC MOVE DATA TO USER BUFFER 9 4 P* 9 j PSELT40 EQU * 9 t P CF A5,READP READ BCC 9 ( P RF(NZ) SELT50 PARITY ERROR SEND NAK 9 P ANK A7,PAD MASK BCC 9 P RF(NZ) SELT50 BCC ERROR 9
0x124590…124724 Dummy {f00=0x0057, f01=0x0190, f02=»T STATUS 9 ~ P RF(N) SELT70 NEGATIVE ORDER : P LDK A2,/02 LOAD READ ORDER : 4 " P CW A2,DWTOR,A6 A READ ORDER ? : X P RF(NE) SELT70 NO : ~ $ P LD A8,DWTECB,A6 GET ECB ADDRESS : P LD A3,SVRDL GET READ LENGTH : * P ST A3,ECBEL,A8 STORE EFFECTIVE LENG
0x124724…1248b8 Dummy {f00=0x0057, f01=0x0190, f02=»REST RETURN CODE : , P CF A15,DC:MIN MOVE DATA TO USER BUFFER ; P RF SELT90 ; H P EJECT ; Z P* ; h P* ; r P* NAK OR BUSY TO BE SENT ; | P* ; PSELT50 EQU * ; P LDK A3,2 NAK TO BE SENT ; PSELT60 EQU * ; 0 P ST A3,DWTREQ,A6 RESTORE
0x1248b8…124a4c Dummy {f00=0x0057, f01=0x0190, f02=»A3,SVRDL GET READ LENGTH ; " P ST A3,-4,A4 STORE READ LENGTH < P SUK A4,6 GET BUFFER BASE < F * P CF A5,QRBUF QUEUE BUFFER FOR DC-TASK < h PSELT90 EQU * < P ABL BRM160 HALT IMPUT < P EJECT < P* < P* < P* WHAT'S TO BE SENT ? < P
0x124a4c…124be0 Dummy {f00=0x0057, f01=0x0190, f02=»ST VECTOR < r " P RF(Z) TRNOTC SEND NO TRAFFIC = P LDR A4,A3 = 8 * P ANK A4,/07 ANY OF ACK, NAK OR BUSY ? = J , P RF(Z) TRTEXT NO BUT IT COULD BE A TEXT = x " P LDKL A2,ACKSP LOAD ACK+SPACE = P SUK A4,1 = P RF(Z) TRTSTA YES SEND ACK = " P LDKL
0x124be0…124d74 (1, 214) Dummy {f00=0x0058, f01=0x018e, f02=»* = P* > P* SEND ACK, NAK OR BUSY > P* > 4 PTRTSTA EQU * > > P ST A2,HEADER STORE THE CODE > R P CF A5,TRHEAD SEND HEADER > v P CF A5,TRETX SEND ETX + BCC > P LDKL A3,/FF00 > P ANS A3,DWTREQ,A6 > & P RF TREOT SEND EOT AND HALT
0x124d74…124f08 Dummy {f00=0x0058, f01=0x0190, f02=» > j & P RF(Z) TRNOTC NO SEND NO TRAFFIC ? * P LD A2,DWTTRY,A6 GET THE RETRY-COUNTER ? 2 P CWK A2,4 IS IT 4 ? ? ` P RF(NE) TRT100 NO SEND TEXT ? | $ P CF A5,CTIME STOP REQUEST TIMING ? * P CM DWTREQ,A6 CLEAR THE REQUEST VECTOR ? * P CM DWTTRY,A6 CLEA
0x124f08…12509c Dummy {f00=0x0058, f01=0x0190, f02=»FFIC ? P* @ PTRNOTC EQU * @ $ P CF A5,TRSYNC START TRANSMITTER @ * P LDK A2,SOH LOAD AN SOH @ R P CF A5,WRITE SEND IT @ r & P RF TREOT SEND EOT AND HALT OUTPUT @ P EJECT @ P* @ P* @ P* SEND TEXT @ P* @ PTRT100 EQU * @
0x12509c…125230 Dummy {f00=0x0058, f01=0x0190, f02=» GET ECB @ P LD A3,ECBRL,A2 GET LENGTH A $ P RF(Z) TRT900 NUL LENGTH ERROR A 2 P IFF MMUPAG=0 A Z $ P LDKL A4,MMUBUF MMU WORK BUFFER A p P ST A4,ECBBA,A2 A . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER A P XIF A & P LD A4,ECBBA,A2 GET BUFFER
0x125230…1253c4 Dummy {f00=0x0058, f01=0x0190, f02=» P ADK A4,1 INCREMENT POINTER B " P ANK A2,PAD MASK THE CHARACTER B ( P CWK A2,/07 ILLEGAL CODE ? B N P RF(L) TRT300 YES SKIP IT B p $ P CF A5,WRITEP SEND THE CHARACTER B PTRT300 EQU * B P SUK A3,1 MORE TO SEND ? B P RB(NZ) TRT200 YES B & P
0x1253c4…125558 Dummy {f00=0x0058, f01=0x0190, f02=»CREMENT RETRY-COUNTER B & P RF TREOT SEND EOT AND HALT OUTPUT C P EJECT C H P* C V P* C ` P* REQUEST ERROR C j P* C PTRT900 EQU * C . P CF A5,CTIME CLEAR TIMEOUT REQUEST IF ANY C * P CM DWTREQ,A6 CLEAR THE REQUEST VECTOR C & P LDKL A1
0x125558…1256ec Dummy {f00=0x0058, f01=0x0190, f02=» PTREOT EQU * D P LDK A2,EOT LOAD EOT D P CF A5,WRITE SEND IT D 4 P LDK A2,PAD LOAD PAD D P P CF A5,WRITE SEND IT D l P LDK A2,PAD LOAD PAD D P CF A5,WRITE SEND IT D P CF A5,CHALTO HALT OUTPUT D P ABL BRM D P EJECT D P* D
0x1256ec…125880 Dummy {f00=0x0058, f01=0x0190, f02=»VERHAD EQU * D " P CF A5,READP READ A CHARACTER E $ P XRK A2,KNUL THE NUL CHARACTER ? E : P RF(NZ) VERH10 NO E b " P CF A5,READP READ A CHARACTER E | $ P XRK A2,STX THE STX CHARACTER ? E P RF(NZ) VERH10 NO E " P CF A5,READP READ A CHARACTER E $
0x125880…125a14 (1, 215) Dummy {f00=0x0058, f01=0x0190, f02=»JECT E P* F P* F 0 P* TRHEAD * START OUTPUT AND TRANSMIT HEADER F P* F T PTRHEAD EQU * F ^ P CF A5,TRSYNC START OUTPUT F r P LDK A2,SOH LOAD THE SOH F P CF A5,WRITE SEND IT F P LDK A7,0 RESET BCC COUNTER F P LDK A2,/60 LOAD ADR
0x125a14…125ba8 Dummy {f00=0x0058, f01=0x0190, f02=» A2,0 RESET A2 F P LC A2,HEADER+1 LOAD FC1 G P CF A5,WRITEP SEND IT G 6 P LDK A2,SP LOAD SPACE G T P CF A5,WRITEP SEND IT G r P LDK A2,STX LOAD THE STX G P CF A5,WRITEP SEND IT G P RTN A5 RETURN G P EJECT G P* G P* G 0 P*
0x125ba8…125d3c Dummy {f00=0x0058, f01=0x0190, f02=» FOR INTERRUPT G P LDK A3,4 H PTRS100 EQU * H ( P LDK A2,SYN LOAD A SYN H < P CF A5,WRITE SEND IT H Z P SUK A3,1 H v P RB(NZ) TRS100 H P RTN A5 RETURN H P* H P* H P* TRETX * SEND ETX AND BCC H P* H PTRETX EQU * H
0x125d3c…125ed0 Dummy {f00=0x0058, f01=0x0190, f02=»TURN H P EJECT I P* I P* I $ 6 P* CSYNCI * STOP INPUT SEND SYN-PATTERN FOR INPUT I . P* I h PCSYNCI EQU * I r P LD A2,PFPOST I $ P RF(NZ) CSYN:I WAIT FOR POWER UP I P CF A5,CHALTI HALT INPUT I & P ST A5,DCLCI SET INPUT ACRIVE FLAG I
0x125ed0…126064 Dummy {f00=0x0058, f01=0x0190, f02=»AD SYN I & P OTR A2,1,CHLCIN SEND SYN-PATTERN J P XIF J 8 P IFT P6805=0 J D $ P LDKL A2,CBCARR LOAD SYN-PATTERN J X 4 P CIO A2,1,CHLCIN START RECEIVER WITH SYN-PATTERN J P XIF J PCSYN:I EQU * J P RTN A5 RETURN J P* J P* J P* CHA
0x126064…1261f8 Dummy {f00=0x0058, f01=0x018e, f02=» " P CIO A2,0,CHLCIN HALT RECEIVER K & P CM DCLCI CLEAR INPUT ACTIVE FLAG K * P SST A2,CHLCIN READ STATUS K T P IFF LOGG=0 K v " P CF A5,LOGSST LOG INPUT STATUS K P XIF K P RTN A5 RETURN K P EJECT K P* K P* K " P* CSYNCO * START TR
0x1261f8…12638c Dummy {f00=0x0058, f01=0x0190, f02=» , P LDK A2,CBPARI LOAD PARITY CHECK FOR CU L P XIF L 4 & P CIO A2,1,CHLCUT START TRANSMITTER L @ P IFT P6805=1 SALCUZ L j P RF(A) CSYNC1 ACCEPTED L P SST A2,CHLCUT READ STATUS L " P ABL BRM NOT ACCEPTED TIMEOUT L PCSYNC1 EQU * L P LDK A2,
0x12638c…126520 Dummy {f00=0x0058, f01=0x0190, f02=» CHALTO * HALT OUTPUT L P* M PCHALTO EQU * M ( P IFT P6805=1 SALCUZ M < & P LDK A2,CBSTOP LOAD STOP FUNCTION M X P XIF M " P CIO A2,0,CHLCUT HALT RECEIVER M P IFT P6805=1 SALCUZ M " P CF A5,READ WAIT FOR INTERRUPT M P XIF M P SST A
0x126520…1266b4 (1, 216) Dummy {f00=0x0058, f01=0x018e, f02=»1301 CF A15,SAVE8 SAVE A1 - A8 M * P CF A15,LDREG RESTORE DC REGS A3 - A8 N & P INR A2,0,CHLCIN READ CHAR N T , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS N v P IFF LOGG=0 N ( P CF A5,LOGIN LOG RECEIVED CHARACTER N P XIF N P LDR A1,A2 N * P ORK
0x1266b4…126848 Dummy {f00=0x0058, f01=0x0190, f02=» N PIHIN20 CF A5,SST PERFORM SST O P ABL BRM O , P* O < P* O F P* TRANSMITTER INTERRUPT O P P* O r P* O | $ PIH1302 CF A15,SAVE8 SAVE A1 - A8 O * P CF A15,LDREG RESTORE DC REGS A3 - A8 O P RB IHIN10 O P EJECT O P* O P*
0x126848…1269dc Dummy {f00=0x0058, f01=0x0190, f02=»G=1 O & P CF A5,LOGSST LOG SST INFORMATION P P XIF P 6 & P ANK A2,SBERR ANY ERROR BIT SET ? P B P RF(NZ) SST050 YES THERE IS P l P IFT P6805=1 SALCUZ P P RF SST225 P P XIF P P IFT P6805=0 P " P LD A2,DCLCI LOAD INPUT STATUS P ( P RF(
0x1269dc…126b70 Dummy {f00=0x0058, f01=0x0190, f02=»TART INPUT AGAIN P ~ P RF SST125 TO DISPATCHER Q P XIF Q 8 P EJECT Q D PSST050 EQU * Q R P ANK A2,SBCARR CARRIER OFF ? Q f P RF(Z) SST075 NO Q " P LD A2,DCLCI LOAD INPUT STATUS Q 0 P RF(Z) SST125 NOT ACTIVE IGNORE CARRIER OFF Q P RF SST100 Q
0x126b70…126d04 Dummy {f00=0x0058, f01=0x0190, f02=»DR A2,A1 Q P ANK A2,SBNOOP NOT OPERABLE R P RF(Z) SST200 NO R 4 P CF A15,STREG SAVE REGISTERS R L P CF A15,SETIME DELAY 1SEC R p P DATA SST150,10 R PSST125 EQU * R P ABL TDISP TO DISPATCHER R PSST150 EQU * R P CF A15,LDREG LOAD REG
0x126d04…126e98 Dummy {f00=0x0058, f01=0x018e, f02=»FF R x P RF(Z) SST250 YES S PSST225 EQU * S $ & P ST A1,DCSTCU STORE CURRENT STATUS S 8 " P CF A15,CKMESS STATUS CHANGE ? S b PSST250 EQU * S P RTN A5 RETURN S P EJECT S P* S P* S ( P* WRITEP * CALCULATE PARITY FOR A2 S P* S
0x126e98…12702c Dummy {f00=0x0058, f01=0x018e, f02=» S P XRK A2,/80 T P RB WRIT10 T PWRIT20 EQU * T . P XRR A7,A2 ACCUMULATE BCC T B P* T d P* T n P* WRITE * WRITE A2 T x P* T PWRITE EQU * T . P OTR A2,0,CHLCUT SEND THE CHARACTER IN A2 T P RF(NA) READ NOT ACCEPTED T P I
0x12702c…1271c0 Dummy {f00=0x0058, f01=0x0190, f02=» PREAD EQU * U $ P CF A15,STREG SAVE THE REGISTERS U P ABL TDISP TO DISPATCHER U > P EJECT U ^ P* U l P* U v P* U P*** READP U P* U . P* READ CHARACTER TO A2 AND CHECK PARITY U P* U P* U PREADP CF A5,READ U P CWK
0x1271c0…127354 (1, 217) Dummy {f00=0x0058, f01=0x018e, f02=» RB(NN) RE100 U P XRK A2,/80 V P RB RE100 V * PRE110 LDR A1,A2 V < P ANK A2,/7F V T P XIF V h P IFT P6805=1 SALCUZ V t P LDK A1,/80 V P XIF V P ADKL A5,4 V P ANK A1,/80 V P XRR A7,A2 ACCUMULATE BCC V P XRK A1,/80 V
0x127354…1274e8 Dummy {f00=0x0058, f01=0x0190, f02=» $ P* CALLING SEQUENCE: CF A5,FINTER W P* A2=SUBTERMINAL ADDRESS W , P* A4 DESTROYED W L " P* A3#0: DWT TO FOUND TERMINAL W b P* W PFINTER EQU * W P LD A4,DCTAB W * P AD* A4,DCTAB ADDRESS TO END OF DCTAB W PFINT10 SUK A4,2 W P LDK A3,
0x1274e8…12767c Dummy {f00=0x0058, f01=0x0190, f02=» , P CWR* A2,A3 COMPARE SUBTERMINAL ADDRESS X & P RB(NE) FINT10 TAKE NEXT TERMINAL X 4 PFINT20 RTN A5 X ^ P EJECT X t P* X P* X P* POWER ON FUNCTIONS X P* X P* X $ PDC13ON CF A15,SAVE8 SAVE A1 - A8 X P LDKL A5,STB INIT STACK X
0x12767c…127810 Dummy {f00=0x0058, f01=0x0190, f02=»*** CLREQ : CLEAR PENDING REQUEST AT X : P* POWER ON,BY KILLING REQ. VECTOR Y 4 P* Y r P Y | PCLREQ EQU * Y P LD A4,DCTAB Y P AD* A4,DCTAB END OF TABLE Y * PCLRQ10 SUK A4,2 MAKE POINTER FOR DWTAD Y P CWK A4,DCTA
0x127810…1279a4 Dummy {f00=0x0058, f01=0x0190, f02=» Y P LDKL A1,/2040 Z P CF A15,TENDIO Z P RB CLRQ10 Z 4 P LD A2,DCTPGP Z F P RF(NZ) CLRQ20 Z $ P CF A15,SPOTIM START POLL TIMER Z r PCLRQ20 RTN A5 Z P EJECT Z P********** Z P* Z 4 P* RESART POLL TIMER WHEN POLL HAS BEEN RECEIV
0x1279a4…127b38 Dummy {f00=0x0058, f01=0x0190, f02=»IM1 NO Z , P AN A1,DCSTOL OLD STATUS POLL TIMEOUT ? [ P RF(Z) CPTIM2 NO [ > PCPTIM1 EQU * [ V P CM DCONOF INDICATE POLL [ j PCPTIM2 EQU * [ P LDKL A2,-TIMPOL [ P ST* A2,DCTPGP RESTART TIMER [ * P CF A15,CKMESS CHECK IF STATUS CHANGE [ P
0x127b38…127ccc Dummy {f00=0x0058, f01=0x0190, f02=»TTIM START TIMER [ P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER 2 P ADKL A15,4 P ABR* A15 p P EJECT P* P********** P* P* POLL TIMEOUT P* P********** P* ( PPTOUT LDKL A5,STB LO
0x127ccc…127e60 Dummy {f00=0x0058, f01=0x0190, f02=»F A15,SPOTIM START POLL TIMER P ABL TDISP ] & P EJECT ] 8 P* ] F P* ] P P* INTERRUPT LOGGING ROUTINE ] Z P* ] ~ P* ] P IFF LOGG=0 ] PLOGSST ST A2,SAVE2 ] P ORKL A2,/F000 ] P RF LOG10 ] PLOGOUT ST A2,SAVE2 ] P ORKL
0x127e60…127ff4 (1, 218) Dummy {f00=0x0059, f01=0x018e, f02=»PNT ] P STR A2,A3 ^ P ADK A3,2 ^ P CWK A3,LOGEND ^ 0 P RF(L) LOGEXI ^ F P LDKL A3,LOGSTA ^ PLOGEXI ST A3,LOGPNT ^ t P LD A2,SAVE2 ^ P LD A3,SAVE3 ^ PLOGE10 RTN A5 ^ P EJECT ^ P* ^ P* ^ PLOGPNT DATA LOGSTA ^
0x127ff4…128188 Dummy {f00=0x0059, f01=0x0190, f02=» ^ P******************** _ P* _ $ P* DC BUFFER POOL _ . P* _ H P******************** _ R P* _ n PRLINK EQU RBUFL+RBUFL+8 _ x P* _ PDCRBUF EQU * _ P DATA *+2 FREE BUFFER ANCHOR _ P IFF RBUFNR=2 _ P DATA *+RLINK _ P R
0x128188…12831c Dummy {f00=0x0059, f01=0x0190, f02=» DATA 0 END OF CHAIN _ P RES RBUFL+3 ` P IFF MMUPAG=0 ` 0 P* ` F $ PMMUBUF RES TBUFL+1 MMU WORK AREA ` P P XIF ` x P EJECT ` P* ` P********** ` P* ` P* DEVICE WORK TASK ` P* FOR DC-TASK ` P* ` P********** ` P*
0x12831c…1284b0 Dummy {f00=0x0059, f01=0x0190, f02=»DER ` * P DATA DC13DC POINTER TO ADDRESS BLOCK a P DATA 0 TTAB ADDRESS a : $ P DATA 0 WAIT/ACTIVATE INDICATOR a V P DATA 0 TASK QUEUE a ~ P IFT MMUPAG=1 a P DATA 0 USER ECB ADDRESS a P DATA DC:ECB MMU ECB ADDRESS a P XIF a P DATA 0 TI
0x1284b0…128644 Dummy {f00=0x0059, f01=0x018e, f02=»ATA 0 REQUEST TIMEOUT VALUE a P DATA 0 REQUEST VECTOR b $ P DATA 0 RETRY COUNTER b B P IFT MMUPAG=1 b ` PDC:ECB EQU * MMU ECB b v P DATA 0,0,0,0,0,0 b P XIF b P EJECT b P* b P* b PDC:IN DATA DC:TAB+2 b P* b PDCTAB DA
0x128644…1287d8 Dummy {f00=0x0059, f01=0x402c, f02=» b P* c P* c P END c @ c (REQUEST VECTOR b $ P DATA 0 RETRY COUNTER b B P IFT MMUPAG=1 b ` PDC:ECB EQU * MMU ECB b v P DATA 0,0,0,0,0,0 b P XIF b P EJECT b P* b P* b PDC:IN DATA DC:TAB+2 b P* b PDCTAB DA
0x1287d8…12896c Dummy {f00=0x0059, f01=0x2008, f02=» d R P DATA 0 RETRY COUNTER S P IFT MMUPAG=1 S . PDC:ECB EQU * MMU ECB S D P DATA 0,0,0,0,0,0 S ` P XIF S z P EJECT S P* S P* S PDC:IN DATA DC:TAB+2 S P* S PDCTAB DATA DC:TAB S P* S " PDC:TAB DATA 2 LENGTH O
0x12896c…128b00 Dummy {f00=0x0059, f01=0x018e, f02=»Z) IHLCU3 THROUGHPUT ERROR d P* e " P* MODEM NOT OPERABLE e , P* e H , P CF A15,STREGO SAVE REGISTERS 79-03-27 e R , P CF A15,SETIME START TIMER 79-03-27 e , P DATA IHLCU5,10 79-03-27 e ( P ABL TDISP DISPATCH 79-03-27 e
0x128b00…128c94 (1, 219) Opaque[0x194]
0x128c94…128e28 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14b0, f03=0x0000}
0x128c94…128e28 IdxSect {
0x128c94…128e28 f00 = 0x00a5 // 0x128c94 @0x0
0x128c94…128e28 f01 = 0x003e // 0x128c96 @0x2
0x128c94…128e28 gno = [ // 0x128c98 @0x4
0x128c94…128e28 [0x00]: C0x00a5.0x2.0
0x128c94…128e28 [0x01]: C0x00a5.0x3.0
0x128c94…128e28 [0x02]: C0x00cc.0x1.0
0x128c94…128e28 [0x03]: C0x00cc.0x2.0
0x128c94…128e28 [0x04]: C0x00cc.0x3.0
0x128c94…128e28 [0x05]: C0x00cd.0x0.0
0x128c94…128e28 [0x06]: C0x00cd.0x1.0
0x128c94…128e28 [0x07]: C0x00cd.0x2.0
0x128c94…128e28 [0x08]: C0x00cd.0x3.0
0x128c94…128e28 [0x09]: C0x00ce.0x0.0
0x128c94…128e28 [0x0a]: C0x00ce.0x1.0
0x128c94…128e28 [0x0b]: C0x00ce.0x2.0
0x128c94…128e28 [0x0c]: C0x00ce.0x3.0
0x128c94…128e28 [0x0d]: C0x00cf.0x0.0
0x128c94…128e28 [0x0e]: C0x00cf.0x1.0
0x128c94…128e28 [0x0f]: C0x00cf.0x2.0
0x128c94…128e28 [0x10]: C0x00cf.0x3.0
0x128c94…128e28 [0x11]: C0x00d0.0x0.0
0x128c94…128e28 [0x12]: C0x00d0.0x1.0
0x128c94…128e28 [0x13]: C0x00d0.0x2.0
0x128c94…128e28 [0x14]: C0x00d0.0x3.0
0x128c94…128e28 [0x15]: C0x00d1.0x0.0
0x128c94…128e28 [0x16]: C0x00d1.0x1.0
0x128c94…128e28 [0x17]: C0x00d1.0x2.0
0x128c94…128e28 [0x18]: C0x00d7.0x0.0
0x128c94…128e28 [0x19]: C0x00d7.0x1.0
0x128c94…128e28 [0x1a]: C0x00d7.0x2.0
0x128c94…128e28 [0x1b]: C0x00d7.0x3.0
0x128c94…128e28 [0x1c]: C0x00d8.0x0.0
0x128c94…128e28 [0x1d]: C0x00d8.0x1.0
0x128c94…128e28 [0x1e]: C0x00d8.0x2.0
0x128c94…128e28 ]
0x128c94…128e28 }
0x128e28…128fbc Dummy {f00=0x00a5, f01=0x0190, f02=» 0 P IDENT DRDC15 REL 11.0 81-09-09 870105041100 P 8 " P =17, RETURN CODE AT CONNECT @ ( P =16, DLOBUF DESTROYED AT CONNECT f . P =15, NO NEED TO RES 1 WORD BEFORE DATA * P =14, LOSS OF DRIVER RECEIVE BUFFER P REL 11.0 81-05-21
0x128fbc…129150 Dummy {f00=0x00a5, f01=0x0190, f02=»11, PROCEDURE TIMER PROBLEM P =10, EOT ON SPECIFIC POLL $ $ P =9, REMAINING TIME IN ECBCW1 H P REL 11.0 81-04-12 p " P =8, ODD USER BUFFER ADDRESS P =7, BINARY STORE PROBLEM P REL 11.0 81-04-07 ( P =6, ERROR IN POLL T
0x129150…1292e4 Dummy {f00=0x00a5, f01=0x0190, f02=»INSTRUCTIONS NOT USED $ P =2, CHANGES IN STATUS HANLING ( P =1, ERROR IN OPEN/CLOSE REQUESTS F P REL 11.0 81-01-26 r P* P* 2 P********************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x1292e4…129478 Dummy {f00=0x00a5, f01=0x0190, f02=» t P* P* P* P* & P* 0 8 P**************************************************** : P EJECT v P* P* P* ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERR
0x129478…12960c Dummy {f00=0x00a5, f01=0x0190, f02=» P* P* P* EXTERNAL REFERENCES P* : " P EXTRN TDISP DISPATCHER ENTRY D ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK j $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN SETIME SET TIMER P EXTRN DWTCHP DWT ADDRESS P EXTRN D
0x12960c…1297a0 Dummy {f00=0x00a5, f01=0x0190, f02=» ECB IF MMU ~ P EXTRN DWTMEC MMU ECB P EXTRN ECBFC FILE CODE 2 P EXTRN ECBBA BUFFER ADDRESS P " P EXTRN ECBRL REQUESTED LENGTH t " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 P
0x1297a0…129934 (1, 220) Dummy {f00=0x00a5, f01=0x0190, f02=»ASCII TABLE x . P EXTRN DCSRED READ STATISTICS ENTRY POINT : P EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT F : P EXTRN DCSUPS UPDATE STATISTICS ENTRY POINT IN DCSTAT 8 P EXTRN GETDNA VALIDATE AND CONVERT SYMBOLIC DTE ADDR 8 P EXTRN GET
0x129934…129ac8 Dummy {f00=0x00a5, f01=0x0190, f02=» h 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH * P EXTRN PFPOST WAIT FOR POWER UP IF SET < P EJECT j J P********************************************************************** z P* P* REGISTER USAGE: P* P* A1 WORK (RETURN
0x129ac8…129c5c Dummy {f00=0x00a5, f01=0x0190, f02=»A6 DWT ADDRESS $ P* A7 ORDER CODE, DTETAB ADDRESS P* A8 ECB ADDRESS > P* V L P************************************************************************ ` P EJECT < P******************************************************* P* * P
0x129c5c…129df0 Dummy {f00=0x00a5, f01=0x0190, f02=»U 0 IF 1 INTERRUPT LOGGING PLOGG EQU X:B " " PX:C EQU 600 POLL TIMEOUT VALUE 6 PTIMPOL EQU X:C * PX:D EQU 0 STATUS AND RVI HANDLING IF=1 r PSTARVI EQU X:D ( PX:E EQU 0 READ COMMAND HANDLING IF=1 PRCOM EQU X:E & PX:F EQU 254 TRANSM
0x129df0…129f84 Dummy {f00=0x00a5, f01=0x018e, f02=»LL HANDLING v PSPECP EQU X:H , PX:I EQU 0 IF = 1 LINE SPEED SET TO HIGH * ( P IF = 0 LINE SPEED IS SET TO LOW Z PSPEED EQU X:I * PX:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU X:J . PX:K EQU 2 NUMBER OF RECEIVE BUFFERS (2-5)
0x129f84…12a118 Dummy {f00=0x00a5, f01=0x0190, f02=» , PLCUIN EQU X:M DEVICE ADDRESS OF RECEIVER P XIF 8 P IFT P6805=1 D , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER X P XIF P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ P I
0x12a118…12a2ac Dummy {f00=0x00a5, f01=0x0190, f02=» IF 1 IBM CHARACTER HANDLING . PX:O EQU 0 IF 1 MESSAGE PASSING TO DC TASK $ PMESPAS EQU X:O V 4 PX:P EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 l PEM3270 EQU X:P PX:Q EQU 0 * PTPMODE EQU X:Q IF = 1 TRANSPARANT MODE PX:R EQU 0
0x12a2ac…12a440 Dummy {f00=0x00a5, f01=0x0190, f02=»RY TRANSMISSION z , PDMRK EQU 0 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT H 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". P =2 P PREMTIM EQU
0x12a440…12a5d4 (1, 221) Dummy {f00=0x00cc, f01=0x0190, f02=»ECEIVE REQUESTS =9 P* P IFT SPEED=1 $ PLSPEED EQU /0200 8 P XIF P P IFT SPEED=0 PLSPEED EQU 0 p P XIF P EJECT P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x12a5d4…12a768 Dummy {f00=0x00cc, f01=0x0190, f02=»D BY SETTING MMUPAG EQU 1. P* " PMMUPAG EQU 0 , P* @ P* J 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION T . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* 0 PDEVIND EQU 0 DEVICE INDEX DATA C
0x12a768…12a8fc Dummy {f00=0x00cc, f01=0x018e, f02=»** l * 2 -* DCDEFS COMMON DEFS FOR DC DRIVERS/PACKAGES * J * &************************************** T , '*************************************** * * TABLE AND PACKET LAYOUTS * , '**********************
0x12a8fc…12aa90 Dummy {f00=0x00cc, f01=0x0190, f02=» * * DWT, DEVICE WORK TABLE * . L P************************************************************************ 8 * P* ................... P* 0 . DWTCHP . P* ................... P* 2 . DWTST
0x12aa90…12ac24 Dummy {f00=0x00cc, f01=0x018e, f02=» DWTOR . P* ................... P* 8 . DWTADR . 4 P* ................... V P* 10 . DWTTAB . x P* ................... P* 12 . DWTWAT . P* ................... P* 14 .
0x12ac24…12adb8 Dummy {f00=0x00cc, f01=0x0190, f02=» t , P* (18). DWTMEC . IF MMUPAG P* ................... 8 $ P* DWTDRD +2 . DWTSTB . Z $ P* ................... P* +4 . DWTCHD . P* ................... P* +6 . DWTCHN .
0x12adb8…12af4c Dummy {f00=0x00cc, f01=0x0190, f02=» v P* ................... P* +12 . DWTDR1/SUB . * P* ................... L P* +14 . DWTRCL . n P* ................... P* +16 . DWTRTV . P* ................... P* +18 . DWTRTP
0x12af4c…12b0e0 Dummy {f00=0x00cc, f01=0x0190, f02=» . ~ P* ................... P* +24 . DWTIPC . 2 P* ................... T P* +26 . DWTIPT . v P* ................... P* +28 . . P* / DRIVER DEPEND / P* /
0x12b0e0…12b274 (1, 222) Dummy {f00=0x00cc, f01=0x0190, f02=»TSTB /=0 d P* / BUFFER / P* ................... 2 P* T P EJECT ^ P* l > P********************************************************* v P* & P* D W T D I S P L A C E M E N T S P* > P******************
0x12b274…12b408 Dummy {f00=0x00cc, f01=0x0190, f02=»TART OF DRIVER DEPENDENT AREA | P XIF & P IFT MMUPAG=1 2 6 PDWTDRD EQU DWTTQ+6 START OF DRIVER DEPENDENT AREA H P XIF D PDWTSTB EQU DWTDRD OFFSET REL START DWT TO STATISTIC BUFF IF ANY 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT
0x12b408…12b59c Dummy {f00=0x00cc, f01=0x018e, f02=»TE SYMBOLIC DTE ADDRESS x * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS N . PDWTRCL EQU DWTDRD+12 REQUEST CONTROL WORD | , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER
0x12b59c…12b730 Dummy {f00=0x00cc, f01=0x0190, f02=» 2 PDWTIPC EQU DWTDRD+22 I/P DATA Q LINK TO BUFFER 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER : ( PDWTCUR EQU DWTDRD+26 CURSOR ADDRESS n . PDWTBUF EQU DWTDRD+28 DEVICE BUFFER ADDRESS $ PDWTSTA EQU DWTDRD+30 DWT STATUS EJECT J P******
0x12b730…12b8c4 Dummy {f00=0x00cc, f01=0x0190, f02=»************************************************************ * D P* ................... N P* 0 . DTECHP . p P* ................... P* 2 . DTEST . P* ................... P* 4 . DTEECB
0x12b8c4…12ba58 Dummy {f00=0x00cc, f01=0x0190, f02=» . P* ................... P* 10 . DTETAB . 4 P* ................... V P* 12 . DTEWAT . x P* ................... P* 14 . DTETQ . P* ................... , P* (16).
0x12ba58…12bbec Dummy {f00=0x00cc, f01=0x018e, f02=»........... $ P* DTEDRD +2 . DTESTB . $ P* ................... < P* +4 . DTECHD . d P* ................... P* +6 . DTECHN . P* ................... P* +8 . DTELAD .
0x12bbec…12bd80 Dummy {f00=0x00cc, f01=0x018e, f02=» t P* / / P* ................... * 8 P* . STATISTIC . IF STAT AND DTESTB /=0 L P* / BUFFER / P* ................... P* PDTETQ EQU 14 PDTEUEC EQU DTETQ+2 PDTEM
0x12bd80…12bf14 (1, 223) Dummy {f00=0x00cc, f01=0x0190, f02=» 2 PDTEDRD EQU DTEMEC+2 START OF DC DEPENDENT AREA P XIF > D PDTESTB EQU DTEDRD OFFSET REL START DTE TO STATISTIC BUFF IF ANY J 2 PDTECHD EQU DTEDRD+2 CONFIG CHAIN LINK HEAD DTE 2 PDTECHN EQU DTEDRD+4 CONFIG CHAIN LINK NEXT DTE 2 PDTELAD EQU
0x12bf14…12c0a8 Dummy {f00=0x00cc, f01=0x0190, f02=»10 DATA LINK STATUS ~ $ PDTESTA EQU DTEDRD+12 DTE STATUS ( PDTEDWT EQU DTEDRD+14 CHAIN LINK DWT D 0 PDTEDDT EQU DTEDRD+16 CHAIN LINK DISCARD DWT p P* STATITICS BUFFER 2 PSTWSID EQU DTEDRD+18 RESERVED FOR SYMBOLIC ID . PSTWCST EQU DTEDRD+20
0x12c0a8…12c23c Dummy {f00=0x00cc, f01=0x018e, f02=»************************************************************** P* F , P* COUNTER INDECES - PARAMETER-1 EQUATES P P* P* REQUEST LEVEL COUNTERS: P* D P*************************************************************** P* * P
0x12c23c…12c3d0 Dummy {f00=0x00cc, f01=0x0190, f02=» n & PCSRCHR EQU /C5 CHARACTERS RECEIVED ! ( PCSRMST EQU /06 MESSAGES TRANSMITTED ! 2 * PCSRCHT EQU /C8 CHARACTERS TRANSMITTED ! ^ PCSRTOP EQU /09 TIMEOUT ! PCSRABT EQU /0A ABORTED ! PCSRERR EQU /0B ERROR ! & PCSRTRE EQU /0C TRANSMISSION ERROR !
0x12c3d0…12c564 Dummy {f00=0x00cc, f01=0x0190, f02=»VED ! j : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY " > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW " J 6 PCSSRAB EQU /13 " DATA BLOCKS REJECTED ABORTED " : PCSSRPE EQU /14 " DATA BLOCKS REJECTED PARITY ERROR " 0 PCSST
0x12c564…12c6f8 Dummy {f00=0x00cc, f01=0x0190, f02=»BORTED " n 4 PCSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED # & PCSSXC2 EQU /19 PROCEDURE TIME OUTS # F 8 PCSSXC3 EQU /1A NBR OF TIMES POLL TIMEOUT HAS OCCURED # p P # P # P EJECT # P* DTE/DCE LEVEL COUNTERS # P # $ PCSCDTE EQU /28 D
0x12c6f8…12c88c Dummy {f00=0x00cc, f01=0x0190, f02=»PERABLE # x * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT $ PCSCXC2 EQU /2D " $ > PCSCXC3 EQU /2E " $ Z P EJECT $ v P* $ P* $ P* REQUEST HANDLING $ P* $ P* $ P* ORDER CODE (A7) $ P* $ POPEN EQU /21 OPEN $ PCLOS
0x12c88c…12ca20 Dummy {f00=0x00cc, f01=0x0190, f02=»06 SEND $ PRSTAT EQU /00 READ STATUS % PSSTAT EQU /38 SET STATUS % 2 ( PSTATIS EQU /2D READ/RESET STATISTICS % R $ PSTIMOT EQU /39 SET TIMEOUT VALUE % ~ P* % P* OPTIONS: % P* % 2 PTYPRR EQU /4343 RESET STATISTICS AFTER READ =5 % P EJECT
0x12ca20…12cbb4 (1, 224) Dummy {f00=0x00cd, f01=0x0190, f02=» % f P* & > P********************************************************** & P* & T L P*---------------------------------------------------------------------- & ^ " PR:REQ EQU /8000 REQUEST ERROR & $ PR:ABRT EQU /4000 REQUEST ABORTED & PR:2 EQU /200
0x12cbb4…12cd48 Dummy {f00=0x00cd, f01=0x0190, f02=»EQU /0400 & PR:6 EQU /0200 ' , PR:DATA EQU /0100 DATA AVAILABLE (QUEUED) ' ( J P*--------------------------------------------------------------------- ' X PR:8 EQU /0080 ' PR:TIME EQU /0040 TIME OUT ' PR:10 EQU /0020 ' " PR:SEQ EQU /0010 SEQU
0x12cd48…12cedc Dummy {f00=0x00cd, f01=0x0190, f02=»R:13 EQU /0004 ' . PR:LOGC EQU /0002 LOGICAL CONNECTION ERROR ( . PR:PHYC EQU /0001 PHYSICAL CONNECTION ERROR ( H L P*---------------------------------------------------------------------- ( z P* ( P EJECT ( P* ( < P****************************
0x12cedc…12d070 Dummy {f00=0x00cd, f01=0x0190, f02=»***************************= ( r P* ) $ L P*---------------------------------------------------------------------- ) . PH:0 EQU /8000 ) ~ PH:1 EQU /4000 ) PH:2 EQU /2000 ) PH:3 EQU /1000 ) L P*-------------------------------------------------
0x12d070…12d204 Dummy {f00=0x00cd, f01=0x0190, f02=»----------------------------------------------------- ) ~ PH:8 EQU /0080 * > PH:9 EQU /0040 * T PH:CARR EQU /0020 CARRIER OFF * j PH:11 EQU /0010 * J P*-------------------------------------------------------------------- * PH:12 EQU /0008 * " P
0x12d204…12d398 Dummy {f00=0x00cd, f01=0x0190, f02=»----------------------------------------------------- * ~ P EJECT + > > P********************************************************** + P P* + P* LINE CONTROL CHAR EQU:S + P* + > P**********************************************************
0x12d398…12d52c Dummy {f00=0x00cd, f01=0x0190, f02=» PITB EQU /1F , PSOH EQU /01 , PENQ EQU /05 , , PDLE EQU /10 , @ PEOT EQU /04 , T PNAK EQU /15 , h PESC EQU /1B , | PSBA EQU /11 , PGP EQU /22 , PRDBCOM EQU /32 , PRDMCOM EQU /36 , P EJECT , P IFT CODE=0 , PPAR
0x12d52c…12d6c0 Dummy {f00=0x00cd, f01=0x0190, f02=» XIF , P IFT CODE=0 - P IFT MSV1=1 - 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE - 4 P XIF - h P IFT CODE=1 - t PPAR EQU /00 - PWACK EQU /2C - PRVI EQU /40 - PACK0 EQU /18 - PACK1 EQU /2F - PSYNEBC EQU /32 - PENQEBC
0x12d6c0…12d854 (1, 225) Dummy {f00=0x00cd, f01=0x0190, f02=»0+PAR - P XIF . P IFT P6805=1 . PENQPAR EQU ENQ . . PRVIPAR EQU RVI . D PACKPAR EQU ACK0 . Z P XIF . r P EJECT . ~ P* . P* . $ P* 3270 SENSE/STATUS INFORMATION . P* . P* . P IFF STARVI=0 . . PSSTAB EQU * S/S 0 : NO
0x12d854…12d9e8 Dummy {f00=0x00cd, f01=0x0190, f02=»EQUIRED . j , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED / P XIF / @ P* / L P* / V P* TIMER VALUES / ` P* / v P* / ( PTIMPRO EQU 30 PROCEDURE TIMER 3 SEC / P* / P* / P EJECT / B P************************************************
0x12d9e8…12db7c Dummy {f00=0x00cd, f01=0x0190, f02=»***************** / d P* 0 P IFT CODE=0 0 $ PSYNC EQU /16 0 8 P XIF 0 L P IFT CODE=1 0 X PSYNC EQU /32 0 l P XIF 0 P IFT P6805=0 0 PCBCARR EQU /100+LSPEED 0 P XIF 0 P IFT P6805=1 0 PCBSTOP EQU /00 0 P IFT CODE=0 0 P
0x12db7c…12dd10 Dummy {f00=0x00cd, f01=0x0190, f02=»************************************* 0 P* 1 . ( P* LINE CONTROL UNIT SST STATUS BITS 1 8 P* 1 d 8 P*************************************************** 1 n P* 1 P IFT P6805=0 1 & PH:ERR EQU /23 H:NOOP+H:THRU+H:CARR 1 P XIF 1 P IFT P6805
0x12dd10…12dea4 Dummy {f00=0x00cd, f01=0x0190, f02=»****************** 1 b P* 2 P* DRIVER ADDRESS BLOCK 2 $ P* 2 B D P*************************************************************** 2 L P* 2 P DATA BUFLEN MMU BUFFER SIZE 2 P DATA DEVIND DEVICE INDEX 2 ( PDC15AD DATA DCACT ACTIVATION ADDRESS
0x12dea4…12e038 Dummy {f00=0x00cd, f01=0x018e, f02=»TINE STACK FOR INTERRUPTS 2 PSTB RES 1 3 " P EJECT 3 4 P 3 B @ P************************************************************ 3 J P* 3 P* ABORT ROUTINE 3 P* 3 P************************ 3 P 3 ( PABORT LD A1,DWTRTP,A6 TIMER POINTER
0x12e038…12e1cc Dummy {f00=0x00cd, f01=0x0190, f02=» 3 n P ANK A2,/7F 4 P SUK A2,6 4 P RF(NE) AB:RTN 4 . . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 4 D & P LD A2,FDWTUT WRITING DWT ADDRESS 4 v P CWR A2,A6 4 P RF(NE) AB:RTN NOT THIS DWT 4 P CM FDWTUT REST SENDING DWT 4 P CM XACK RESET
0x12e1cc…12e360 Dummy {f00=0x00cd, f01=0x0190, f02=»****************** 4 J P********************************************************************** 5 P* 5 h P* 5 r , P* REQUEST HANDLER/APPLICATION INTERFACE 5 | P* 5 P* 5 J P********************************************************************** 5
0x12e360…12e4f4 (1, 226) Dummy {f00=0x00cd, f01=0x0190, f02=» 5 PDCACT EQU * 6 P LDK A1,0 PRESET RETURN CODE 6 & P LDR A2,A7 ORDER CODE AS PARAMETER 6 @ P LDKL A7,DTETAB DTE TAB ADDR 6 j & P ANK A2,/FF STRIP OFF OPTION BITS 6 : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK 6 0 P DATA TREQX,RTREQ
0x12e4f4…12e688 Dummy {f00=0x00cd, f01=0x0190, f02=»EN REQUEST 6 | $ P DATA CLOSE,RQCLOS CLOSE REQUEST 7 . P DATA CONPAS,RQCON CONNECT PASSIVE REQUEST 7 : ( P DATA DISCO,RQDIS DISCONNECT REQUEST 7 l * P DATA RSTAT,RQRSTS READ STATUS REQUEST 7 ( P DATA SSTAT,RQSST SET STATUS REQUEST 7 , P DATA STIMOT,RQTIME SE
0x12e688…12e81c Dummy {f00=0x00cd, f01=0x0190, f02=» 7 P* 8 P* ACTIVATION PARAMETERS: 8 $ P* SYMBOLIC DTE-ADDRESS (ECBCW2) 8 2 P* 8 Z P* FUNCTIONS: 8 d 8 P* 1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS 8 x & P* 2. CONVERT & VERIFY DTE ADDRESS 8 P* 8 PRQOPEN EQU * 8 . P LD A1,ECBCW
0x12e81c…12e9b0 Dummy {f00=0x00cd, f01=0x0190, f02=» BRANCH ON INDEX IN TABLE 8 & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 9 " " P DATA RQOP15 OPEN IN PROGRESS 9 L P DATA RQOP10 OPEN 9 r " P DATA RQOP15 CLOSE IN PROGRESS 9 PRQOP10 EQU * 9 2 P CW A1,DTELAD,A7 SAME AS THE ONE WHO OPENED ? 9 P RF(E) RQOP9
0x12e9b0…12eb44 Dummy {f00=0x00cd, f01=0x0190, f02=»PROGRESS 9 v . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS : 2 P LDR A2,A7 ADDR TO SELECT AND POLL IN DTE TAB : B 0 P CF A15,GETDNA CONVERT AND VALIDATE DTE ADDR : x P LDR A1,A1 : P RF(NN) RQOP80 OK : P CM DTELAD,A7 CLEAR DTE ADDR : " P CM DTESTA,A
0x12eb44…12ecd8 Dummy {f00=0x00cd, f01=0x0190, f02=»ESS IN EBCDIC : | P LDR A1,A2 ; P ANK A2,/FF ; ( P RF(Z) RQOP30 ONLY ONE BYTE ; < ( P LC A2,TASCII,A2 CONVERT INTO ASCII ; ` P SLL A2,8 ; PRQOP30 EQU * ; P ECR A1,A1 ; P ANK A1,/FF ; P LC A2,TASCII,A1 ; * P STR A2,A7 SAVE ASCII VA
0x12ecd8…12ee6c Dummy {f00=0x00cd, f01=0x0190, f02=»ON ? ; n P ABL(NZ) RTOK YES RETURN OK < * P ABL RTPHYC RETURN PHYSICAL CONNECTION < 0 P EJECT < ^ P* < l P* CLOSE REQUEST < v P* < P* ACTIVATION PARAMETERS: < " P* OPTION /00 = UNCONDITIONAL < P* /80 = CONDITIONAL < P* FUNCTIONS:
0x12ee6c…12f000 Dummy {f00=0x00cd, f01=0x0190, f02=»SCONNECT ALL DWT:S < v P* = PRQCLOS EQU * = $ ( P LD A5,DWTOR,A6 GET OPTION AND ORDER = 8 , P LD A2,ECBCW2,A8 GET SYMBOLIC DTE - ADDR = d P RF(Z) RQCL20 = " P CW A2,DTELAD,A7 CORRECT DTE ? = ( P ABL(NE) RTREQ RETURN: REQUEST ERROR = PRQCL20 EQU *
0x12f000…12f194 (1, 227) Dummy {f00=0x00cd, f01=0x018e, f02=»UENCE ERROR = v $ P IM DTESTA,A7 CLOSE IN PROGRESS > ( P LDR A8,A6 SAVE REQUESTING DWT-ADDR > < P* > h PRQCL40 EQU * > r P IFT MESPAS=1 > * P LD A6,DTEDDT,A7 GET DISCARD DWT ADDR > P RF(Z) RQCL50 > " P LDR A5,A5 CONDITIONAL CLOSE ? > P R
0x12f194…12f328 Dummy {f00=0x00cd, f01=0x0190, f02=» > PRQCL50 EQU * ? P XIF ? " P LD A6,DTEDWT,A7 GET DWT ADDR ? ( " P RF(Z) RQCL90 NO DWT IN QUEUE ? N " P LDR A5,A5 CONDITIONAL CLOSE ? ? t P RF(N) RQCL95 YES ! ? 6 P LD A2,DWTCHN,A6 GET POINTER TO NEXT DWT IN CHAIN ? 0 P ST A2,DTEDWT,A7 DWT FIR
0x12f328…12f4bc Dummy {f00=0x00cd, f01=0x0190, f02=»M DWTSTA,A6 CLEAR DWT-STATUS ? P LDK A1,0 PRESET RETURN CODE @ $ P CWR A8,A6 REQUESTING DWT ? @ H & P RF(E) RQCL80 YES-COMPLETE REQUEST @ l ( P LD A2,DWTST,A6 A PENDING REQUEST ? @ " P RB(N) RQCL40 NO TAKE NEXT DWT @ 6 P LDK A1,R:SEQ COMPLETE REQUEST W
0x12f4bc…12f650 Dummy {f00=0x00cd, f01=0x018e, f02=»QU * @ P =1 A & P LDR A6,A8 GET REQUESTING DWT ADDR A ( P LD A8,DWTECB,A6 RESTORE ECB ADDRESS A D P =1 A p . P RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1 A ~ P LDK A1,0 RC=0 =1 A , P CF A15,TENDIO COMPLETE CLOSE REQUEST =1 A PRQCL92 EQU *
0x12f650…12f7e4 Dummy {f00=0x00cd, f01=0x0190, f02=» P LDK A2,0 =1 B ( P CIO A2,1,LCUIN DISCONNECT MODEM =1 B P XIF =1 B F P IFT P6805=1 =1 B X " P LDK A2,1 DISCONNECT ORDER =1 B p ( P CIO A2,0,LCUIN DISCONNECT MODEM =1 B P XIF =1 B & P CMR A7 REMOVE NETWORK ADDRESS =1 B " P CM DTESTA
0x12f7e4…12f978 Dummy {f00=0x00cd, f01=0x0190, f02=» CM DCTPGP CLEAR POINTER =6 B PRQCL94 EQU * =6 C $ , P CM DTEDLS,A7 INDICATE DATA LINK DOWN =6 C < P ABL TDISP =1 C l PRQCL95 EQU * C P LDK A2,2 C ( P ST A2,DTESTA,A7 SET DTE OPEN AGAIN C " P LDR A6,A8 RESTORE DWT ADDRESS C P ABL RTSEQ SEQ
0x12f978…12fb0c Dummy {f00=0x00cd, f01=0x0190, f02=»BADDRESS (RIGHTMOST BYTE IN ECBBA-BFR) C & P* - DEVICE ADDRESSES IN ECBBA-BFR D . " P* - LENGTH OF BUFFER (ECBRL) D X & P* - SYMBOLIC DTE-ADDRESS (ECBCW2) D ~ P* D P* FUNCTIONS: D 0 P* 1. VERIFY DTE-ADDRESS AS PER OPEN REQUEST D . P* 2. VERIFY &
0x12fb0c…12fca0 Dummy {f00=0x00cd, f01=0x018e, f02=»CON EQU * D & P LD A2,DTELAD,A7 SYMBOLIC DTE-ADDR E " P CW A2,ECBCW2,A8 CORRECT DTE ? E < , P ABL(NE) RTREQ NO, RETURN: REQUEST ERROR E b $ P LD A2,DTESTA,A7 GET DTE STATUS E P SUK A2,2 OPEN ? E . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR E $ P LD
0x12fca0…12fe34 (1, 228) Dummy {f00=0x00ce, f01=0x0190, f02=» E | P LDK A2,/40 OPTION CODE =13 F & P CC A2,DWTOPT,A6 DISCARD DWT ? =13 F , P RF(NE) RQCN10 NO =13 F V * P CM DWTCHP,A6 INDICATE DISCARD DWT =13 F t 0 P LD A1,DTEDDT,A7 POINTER TO DISCARD DWT =13 F 0 P RF(NZ) RQCN50 MORE THAN ONE DISC. DWT ? =13 F 8
0x12fe34…12ffc8 Dummy {f00=0x00ce, f01=0x0190, f02=»MUPAG=0 F * P LDKL A4,SUBBUF MMU BUFFER ADDRESS =16 G P ST A4,ECBBA,A8 TO ECB G > * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER G P XIF G * P LD A4,ECBBA,A8 GET ECB-BUFFER ADDRESS G P IFT MSV1=1 G P LDK A2,0 RESET A2 G & P LCR A2,A4 GET SELECT
0x12ffc8…13015c Dummy {f00=0x00ce, f01=0x0190, f02=»E AND TRANSLATE THE SUB-ADDR G z P LDR A1,A1 IS IT OK ? H $ P RF(NN) RQCN20 YES H B $ P CM DWTSUB,A7 CLEAR SUB-ADDRESS H $ P ABL RTREQ RETURN REQUEST ERROR H PRQCN20 EQU * H P IFT CODE=1 H 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII H
0x13015c…1302f0 Dummy {f00=0x00ce, f01=0x0190, f02=» SC A2,DWTSUB+1,A6 SAVE IT IN THE DWT H . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE ADDRESS I . ( P ST A1,DWTLAD,A6 SAVE IT IN THE DWT I ` : P CF A15,GETSNA VALIDATE AND TRANSLATE THE SUB-ADDRESS I P LDR A1,A1 IS IT OK ? I P RF(NN) RQCN30 YES I $ P CM DW
0x1302f0…130484 Dummy {f00=0x00ce, f01=0x0190, f02=»FT CODE=1 I 2 P LC A1,TASCII,A1 CONVERT FROM EBCDIC TO ASCII J P XIF J H , P SC A1,DWTCHP+1,A6 SAVE NETWORK ADDRESS J T P IFT EM3270=1 J P ST A1,ECBCW2,A8 J P XIF J P* J P* J & P* LINK DWT TO CONFIGURATION CHAIN J P* J P
0x130484…130618 Dummy {f00=0x00ce, f01=0x0190, f02=»TER TO DWT QUEUE J v P RF RQCN60 K PRQCN50 EQU * K * P LDR A2,A1 MOV ADDR TO A2 K > ( P LD A1,DWTCHN,A2 POINTER TO NEXT DWT K ` . P RB(NZ) RQCN50 KEEP ON UNTIL LAST IN CHAIN K * P ST A6,DWTCHN,A2 ADD NEW DWT TO CHAIN K PRQCN60 EQU * K & P CM DWTC
0x130618…1307ac Dummy {f00=0x00ce, f01=0x0190, f02=»ED K l P LDKL A2,/8000 L $ P ST A2,DWTRTV,A6 STORE NO TIMING L P =13 L H P IFT STARVI=1 L X & P LD A1,DWTCHP,A6 DISCARD DWT ? =13 L n * P RF(Z) RQCN65 YES, DO NOT SEND DE =13 L P LDK A1,4 STORE DEVICE L $ P ORS A1,DWTST,A6 END IN THE DWT L
0x1307ac…130940 Dummy {f00=0x00ce, f01=0x018e, f02=» LD A2,DCTPGP POLL TIMER POINTER L , P RF(NZ) RQCN70 TIMER ALREADY STARTED =6 M ( P CF A15,SPOTIM M X PRQCN70 EQU * M n P ABL RQOP90 M P EJECT M P* M P* DISCONNECT REQUEST M P* M P* ACTIVATION PARAMETERS: M P* DWT-ADDRESS (A6)
0x130940…130ad4 (1, 229) Dummy {f00=0x00ce, f01=0x0190, f02=» & P* 3. SET DWT STATUS DISCONNECTED N P* N . P* COMPLETION PARAMETERS: N 8 P* RETURN CODE (A1) N X P* N t PRQDIS EQU * N ~ 0 P LD A2,DWTSTA,A6 DWT STATUS = DISCONNECTED ? N P ABL(Z) RTOK YES, RETURN: OK N * P LD A3,DTEDWT,A7 FIRST DWT ADD
0x130ad4…130c68 Dummy {f00=0x00ce, f01=0x0190, f02=»FFERS N p 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT O P CM DWTSTA,A6 SET DWT FREE O D . P ST A3,DTEDWT,A7 STORE DWT-ADDR IN DTETAB O f P RB RQCN70 O PRQDI10 EQU * O . P LDR A5,A3 A5 CONTAINES PREVIOUS DWT-ADDR O < P LD A3,DWTCHN,A5 A3 CONT
0x130c68…130dfc Dummy {f00=0x00ce, f01=0x0190, f02=»IN O n * P CF A15,RELBUF RELEASE QUEUED BUFFERS P 2 P LD A3,DWTCHN,A6 YES-TAKE POINTER TO NEXT DWT P 8 2 P ST A3,DWTCHN,A5 AND STORE IT IN PREVIOUS DWT P n P CM DWTSTA,A6 SET DWT FREE P P RB RQCN70 P PRQDI20 EQU * P P IFT MESPAS=1 P . P LD A3
0x130dfc…130f90 Dummy {f00=0x00ce, f01=0x0190, f02=»FERS QUEUED P v P CM DTEDDT,A7 Q P CM DWTSTA,A6 SET DWT FREE Q * P RB RQCN70 Q L PRQDI30 EQU * Q ^ P XIF Q r P ABL RTSEQ SEQUENCE ERROR Q ~ P EJECT Q P* Q P* Q P* READ STATUS REQUEST Q P* Q P* ACTIVATION PARAMETERS: Q
0x130f90…131124 Dummy {f00=0x00ce, f01=0x0190, f02=»* COMPLETION PARAMETERS: Q * P* LOGICAL CONNECTION STATUS (ECBCW1) R P* R N . P* 0 3 4 7 8 11 12 15 R X . P* ........................................ R . P* . DWT . DTE . DATA . PHYS . R . P* . STATE . STATE . LI
0x131124…1312b8 Dummy {f00=0x00ce, f01=0x0190, f02=»RSTS EQU * R P IFT EM3270=1 S $ P LD A2,ECBCW1,A8 GET OPTION CODE S ( & P RF(NZ) RQRS10 TEST IF ANY MESSAGE S P P XIF S z P LD A2,DWTSTA,A6 DWT STATUS S P SLL A2,4 BITS 0-3 S P AD A2,DTESTA,A7 DTE STATUS S P SLL A2,4 BITS 4-7 S & P AD A2
0x1312b8…13144c Dummy {f00=0x00ce, f01=0x018e, f02=»1,A8 STATUS TO ECB CONTROL WORD 1 S P ABL RTOK RETURN: OK T * P IFT EM3270=1 T F P* T P* T f . P* ANY MESSAGE ORDER (ONLY IF EM3270 = 1) T p P* T PRQRS10 EQU * T $ P LD A2,DTESTA,A7 GET DTE STATUS T P SUK A2,2 OPEN ? T $ P ABL(NZ)
0x13144c…1315e0 Dummy {f00=0x00ce, f01=0x0190, f02=» T n 6 P LD A4,DWTIPC,A6 ANY QUEUED MESSAGE ON THIS DWT ? U * P ABL(NZ) RTOK YES COMPLETE THE REQUEST U B P ABL TDISP TO DISPATCHER U p P XIF U P EJECT U P* U P* SET STATUS REQUEST U P* U P* U P* ACTIVATION PARAMETERS U P* D
0x1315e0…131774 (1, 230) Dummy {f00=0x00ce, f01=0x018e, f02=»00' U z P* V ( P* IR INTERVENTION REQUIRED : X'01' V P* V B P* DB DEVICE BUSY :X'10' V L P* V l P* COMPLETION PARAMETERS: V v P* RETURN CODE (A1) V P* V PRQSST EQU * V P IFT STARVI=0 V & P ABL RTREQ SET STATUS NOT INCLUDED
0x131774…131908 Dummy {f00=0x00ce, f01=0x0190, f02=» V x & P LD A1,DWTST,A6 GET DEVICE STATUS W ( P ANK A1,/B WACK SENT, DB OR IR ? =2 W 2 P RF(Z) RQST90 NO =2 W ^ , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE W z P LDK A1,4 SET DE W PRQST90 EQU * W P ST A1,DWTST,A6 SAVE STATUS W P ABL RTOK RETY
0x131908…131a9c Dummy {f00=0x00ce, f01=0x0190, f02=» TYPE = BITS 0-7 OF ECBCW1 W P* ECB-ADDRESS (A8) X " ( P* DWT-ADDRESS OF LOW-LEVEL DWT (A6) X > P* X j P* FUNCTIONS: X t & P* 1. READ STATISTICS TO USER AREA X & P* 2. RESET ALL STATISTICS BUFFERS X P* X P* COMPLETION PARAMETERS: X * P*
0x131a9c…131c30 Dummy {f00=0x00ce, f01=0x0190, f02=»C : REQUEST ERROR NO STATISTICS INCLUDED X P XIF Y 0 P IFF STTSTS=0 Y < " P CF A15,DCSRED READ STATISTICS Y R P LDR A1,A1 OK? Y x , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Y P LD A1,ECBCW1,A8 GET TYPE Y & P SRL A1,8 TYPE FIELD TO LEFT BYTE Y
0x131c30…131dc4 Dummy {f00=0x00ce, f01=0x0190, f02=» Y x , P ABL(NZ) RTREQ NO, RETURN: REQUEST ERROR Z PRQST40 EQU * Z 8 P ABL RTOK RETURN: OK Z L P XIF Z h P EJECT Z t P* Z P* SET TIMEOUT VALUE Z P* Z P* ACTIVATION PARAMETERS: Z , P* ECBCW1 >= 0 : ACTIVATE TIMING CONTROL Z : P*
0x131dc4…131f58 Dummy {f00=0x00ce, f01=0x0190, f02=»ING CONTROL Z p P* [ P* FUNCTIONS: [ , P* STORE VALUE DIRECTLY IN CALLER'S DWT [ 2 P* [ b P* COMPLETION PARAMETERS: [ l & P* DWTRTV = TIMEOUT VALUE = ECBCW1 [ P* [ PRQTIME EQU * [ 0 P LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM ECB [ " P
0x131f58…1320ec Dummy {f00=0x00ce, f01=0x0190, f02=»ARAMETERS: [ P* BUFFER ADDRESS (ECBBA) P* BUFFER LENGTH (ECBRL) 4 P* SUBTERMINAL ADDRESS (DWT) T P* ECB CONTROL WORD 1 x P* P* FUNCTIONS: < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. $ P* 2. VERIFY BUFFER
0x1320ec…132280 Dummy {f00=0x00ce, f01=0x0190, f02=»,DWTSTA,A6 GET DWT STATUS P SUK A2,2 CONNECTED ? ] " . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR ] @ 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTICE ? ] r 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR ] 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION
0x132280…132414 (1, 231) Dummy {f00=0x00ce, f01=0x0190, f02=»Z) RQSE10 THERE IS NO OPTION ] P SUK A2,/20 WHICH OPTION ? ^ $ . P ABL(NZ) RTREQ WRONG OPTION :REQUEST ERROR ^ F * P CF A15,RELBUF RELEASE BUFFERS QUEUED ^ x PRQSE10 EQU * ^ P IFT MMUPAG=1 ^ $ P LD A2,ECBRL,A8 REQUESTED LENGTH ^ $ P CWK A2,BUFLEN I
0x132414…1325a8 Dummy {f00=0x00ce, f01=0x0190, f02=»INSWQ QUEUE SEND REQUEST ^ P ABL TDISP _ P* _ 2 P EJECT _ < P* _ J P* RECEIVE REQUEST _ T P* _ n P* ACTIVATION PARAMETERS: _ x P* BUFFER ADDRESS (ECBBA) _ 0 P* REQUESTED BUFFER LENGTH IN CHARS. (ECBRL) _ P* SUBTERMINAL ADDRESS (DW
0x1325a8…13273c Dummy {f00=0x00ce, f01=0x0190, f02=»N ANY MESSAGE QUEUED FOR THE DWT, _ p @ P* 3. COMPLETE WHEN MESSAGE RECEIVED OR NO MESSAGE RECEIVED ` * P* WITHIN TIMEOUT PERIOD. ` n P* ` P* COMPLETION PARAMETERS: ` 0 P* ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL) ` P* RETURN CODE (A1) `
0x13273c…1328d0 Dummy {f00=0x00ce, f01=0x018e, f02=»NCE ERROR ` p 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTIVE ? a 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNECTION ERROR a H * P LD A4,DWTIPC,A6 ANY BUFFER ON QUEUE ? a P RF(NZ) RQRE10 YES a 0 P LD A2,DTEDLS,A7 LOGICAL CONNECTION ACTIVE ? a 8 P ABL(Z)
0x1328d0…132a64 Dummy {f00=0x00ce, f01=0x0190, f02=» a P LD A3,2,A4 EFFECTIVE LENGTH b P ST A3,ECBEL,A8 b , * P LD A1,DWTLAD,A6 SYMBOLIC DTE-ADDRESS b D $ P LD A2,4,A4 NETWORK SUB-ADDRESS b r , P CF A15,GETSSA GET SYMBOLIC SUB-ADDRESS b ( P ST A1,ECBCW2,A8 AND SAVE IT IN ECB b P IFT REMTIM=1 =9
0x132a64…132bf8 Dummy {f00=0x00ce, f01=0x018e, f02=»DK A1,0 RC : ACCEPTED AND COMPLETED b ( P LDR* A2,A4 GET NEXT BUFFER IN QUEUE c , * P RF(Z) RQRE20 NO MORE BUFFERS IN QUEUE c X 0 P ORKL A1,R:DATA RC: AND MORE DATA AVAILABLE c PRQRE20 EQU * c . P ST A2,DWTIPC,A6 STORE AS FIRST IN QUEUE c P ADK A4,
0x132bf8…132d8c Dummy {f00=0x00ce, f01=0x0190, f02=» P* d $ P* COMPLETE APPLICATION REQUEST d P* d 6 PRTREQ EQU * d @ & P LDKL A1,R:REQ RC = REQUEST ERROR d T P RF RQRTN d ~ PRTABRT EQU * d P LDKL A1,R:ABRT RC = ABORTED d P RF RQRTN d PRTTIME EQU * d P LDK A1,R:TIME RC = TIME O
0x132d8c…132f20 Dummy {f00=0x00ce, f01=0x0190, f02=»R:LGTH RC = ILLEGAL LENGTH d P RF RQRTN e " PRTLOGC EQU * e 4 0 P LDK A1,R:LOGC RC = LOGICAL CONNECTION ERROR e H P RF RQRTN e | PRTPHYC EQU * e 2 P LDK A1,R:PHYC RC = PHYSICAL CONNECTION ERROR e P RF RQRTN e PRTOK EQU * e P LDK A1,0 RC
0x132f20…1330b4 (1, 232) Dummy {f00=0x00cf, f01=0x0190, f02=»EY IN TABLE & BRANCH ON ADDRESS e | P* f ( P* CALL: f 2 8 P* CF A15,LOOKUP TABLE ADDRESS TO STACK f B < P* DATA LAST,ADDRE LAST ENTRY; ERROR ADDRESS f ~ > P* DATA KEY1,ADDR1 KEY (A2); ADDRESS FOR BRANCH f P* "
0x1330b4…133248 Dummy {f00=0x00cf, f01=0x0190, f02=»LOOKUP EQU * f < P LDR* A3,A15 POINT TO NEXT INSTRUCTION ADDRESS IN STACK g . P LDR* A3,A15 GET CONTENTS = TABLE ADDRESS g T & P LDR* A4,A3 GET LAST LEGAL ADDRESS g P LD A1,2,A3 ERROR ADDRESS g P* g PLOOK50 EQU * LOOP ENTRY g * P ADK A3,4 GE
0x133248…1333dc Dummy {f00=0x00cf, f01=0x0190, f02=»? g p ( P RB(NE) LOOK50 NO - CHECK NEXT ENTRY h & P ABI 2,A3 BRANCH TO TABLE ADDRESS h 6 P* KEY NOT FOUND h ` PLOOK90 EQU * h x " P LDR P,A1 GO TO ERROR ADDRESS h P EJECT h P* h P* h P* h " P* REQUEST TIMER HANDLING PART h P* h
0x1333dc…133570 Dummy {f00=0x00cf, f01=0x0190, f02=»UE h p P RF(N) TIMRTN NO TIMING i . P RF(Z) ITOUTR TIMER=0 => IMMEDIATE TIMEOUT i * P ST A2,TIMERR i P CF A15,SETIME i r P DATA TOUTRE i PTIMERR DATA 0 i ( P ST A4,DWTRTP,A6 STORE TIMER POINTER i PTIMRTN EQU * i P ABL RTNA15 i P*
0x133570…133704 Dummy {f00=0x00cf, f01=0x018e, f02=»ETCH DWT i P CM DWTRTP,A6 j * P RF TIMOUT COMPLETE REQUEST RC=TIMEOUT j & P* j T P* j ^ " P* RETURN FROM TIMER HANDLING j h P* j P EJECT j P* j P* SEND TIMER=TIMWR j P* j PTIMEWR LDR A1,A6 j & P LD A2,DWTRTV,A6 GET TIMEOUT
0x133704…133898 Dummy {f00=0x00cf, f01=0x0190, f02=» P DATA TOUTWR k PTIMWR DATA 0 k P ST A4,DWTRTP,A6 k , P RB TIMRTN k D P* k V P* TIMEOUT WRITE TIMER k ` P* k ~ PTOUTWR EQU * k P LDR A6,A1 FETCH DWT k P CM DWTRTP,A6 k * P CF A15,REMOVW REMOVE FROM WRITE QUEUE k P* k P*
0x133898…133a2c Dummy {f00=0x00cf, f01=0x0190, f02=»MOUT THIS DWT IS NOT WRITING k ( P CM XACK INDICATE 'ACK NOT EXPECTED' l $ P CM FDWTUT l P PTIMOUT EQU * l b , P ABL RTTIME COMPLETE REQUEST RC=TIMEOUT l v P EJECT l P* l P* l P* STOP REQUEST TIMING l P* l & P* REMAINING TIME IS RETU
0x133a2c…133bc0 Dummy {f00=0x00cf, f01=0x0190, f02=»FT REMTIM=1 =9 l P LDR* A2,A2 =9 m $ P NGR A2,A2 GET REMAINING TIME =9 m 0 P XIF =9 m X P CM* DWTRTP,A6 KILL TIMER =9 m j P CM DWTRTP,A6 m P =3 m PCTIM10 EQU * m P ABL RTNA15 m P EJECT m P* m P* GET RECEIVE BUFFER m
0x133bc0…133d54 (1, 233) Dummy {f00=0x00cf, f01=0x0190, f02=»A2 AND A3 ARE DESTROYED m P* n P* n * ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS n 4 P INH n ` P LDR* A4,A2 n l P RF(Z) GBUF10 NO BUFFER FREE n . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN n P STR A3,A2 n PGBUF10 EQU * n P ABL RTNA15
0x133d54…133ee8 Dummy {f00=0x00cf, f01=0x0190, f02=»CE: CF A15,RRBUF n P* A2 AND A3 ARE DESTROYED o P* o : P* o D ( PRRBUF LDKL A2,DCRBUF RECEIVE BUFFERS o N P INH o z PRBUF10 EQU * o P LDR* A3,A2 o P RF(Z) RBUF20 o P LDR A2,A3 o P RB RBUF10 o PRBUF20 EQU * o P STR A4,A2 o
0x133ee8…13407c Dummy {f00=0x00cf, f01=0x0190, f02=»* o P* A6 - DWT ADDR p P* A1 AND A4 ARE DESTROYED p " ( P* CALLING SEQUENCE: CF A15,RELBUF p D P* p p P* p z PRELBUF EQU * p * P LDK A1,DWTIPC SET BUFFER QUEUE DISP. p P ADR A1,A6 p PRLBU10 EQU * p $ P LDR* A4,A1 NEXT IN BUFFER Q
0x13407c…134210 Dummy {f00=0x00cf, f01=0x0190, f02=»10 p P EJECT q P* q P* q " & P* INSERT DWT IN SEND REQUEST QUEUE q , P* q V P* A2,A3,A4 DESTROYED q ` P* A6=DWT q | P* q ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR q P LDK A4,DWTOPN q PINSWQ2 LDR* A3,A2 q $ P RF(Z) INSWQ3 END OF Q
0x134210…1343a4 Dummy {f00=0x00cf, f01=0x018e, f02=»QUEUE q x P RB GBUF10 RETURN r P EJECT r ( P* r 6 P* r @ ( P* REMOVE DWT FROM SEND REQUEST QUEUE r J P* r v P* A2,A3,A4 DESTROYED r P* A6=DWT r P* r * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR r . P LDK A4,DWTOPN GET DWT-LINK TO BE RE
0x1343a4…134538 Dummy {f00=0x00cf, f01=0x018e, f02=» P RF(E) REM15 s P LDR A2,A3 GET NEXT s P RB REM10 s 4 PREM15 LDR* A3,A4 REMOVE s F P STR A3,A2 s f P RB GBUF10 RETURN s x P EJECT s P* s P* s P* INSERT DWT IN STATUS QUEUE s P* s P IFF STARVI=0 s P* A2,A3,A4 DESTR
0x134538…1346cc Dummy {f00=0x00cf, f01=0x0190, f02=» s " P* REMOVE DWT FROM STATUS QUEUE t P* t . P* A2,A3,A4 DESTROYED t 8 P* A6=DWT t T P* t d * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR t n P LDK A4,DWTOPE t P RB REM06 t P XIF t P EJECT t P* t P* t $ P* QUEUE ALLOCATED RECE
0x1346cc…134860 Dummy {f00=0x00cf, f01=0x0190, f02=»TIPC SET BUFFER QUEUE DISP. t P ADR A2,A6 u $ PQR100 EQU * u 6 P LDR* A3,A2 u J $ P RF(Z) QR200 END OF QUEUE FOUND u ^ P LDR A2,A3 u P RB QR100 u & PQR200 STR A4,A2 INSERT INTO QUEUE u " P CMR A4 INDICATE END OF QUEUE u P RTN A5 u
0x134860…1349f4 (1, 234) Dummy {f00=0x00cf, f01=0x0190, f02=» P ST A4,LCA4 v P ST A5,LCA5 v P ST A6,LCA6 v , P ST A7,LCA7 v @ P ST A8,LCA8 v T P RF RTNA15 RETURN v h P* v P* v P* RESTORE v $ P* CALLING SEQUENCE: CF A15,LDREG v P* v PLDREG LDKL A3,0 v PLCA3 EQU *-2 v P L
0x1349f4…134b88 Dummy {f00=0x00cf, f01=0x018e, f02=»QU *-2 v P LDKL A8,0 w PLCA8 EQU *-2 w P* w 4 P* w > P* RETURN VIA REGISTER 15 w H P* w j PRTNA15 EQU * w t P ADKL A15,4 w P ABR* A15 w P EJECT w P* w P* POLL TIME OUT w P* w ( PPTOUT LDKL A5,STB LOAD A5 STACK
0x134b88…134d1c Dummy {f00=0x00cf, f01=0x0190, f02=» P* COUNT POLL TIME OUT x P* x " P LDK A1,CSSXC3 x , P CF A15,DCSUPS x B P XIF x X $ P CF A15,SPOTIM START POLL TIMER x d P ABL TDISP x P* x 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED x P* x PCPTIM EQU * x P LDK A2,1
0x134d1c…134eb0 Dummy {f00=0x00cf, f01=0x0190, f02=» P* START POLL TIMER y P* y PSPOTIM EQU * y ( , P LDR A1,A6 LOAD DWT ADDRESS AS PARAMETER y < P CF A15,SETIME START TIMER y l P DATA PTOUT,TIMPOL y & P ST A4,DCTPGP STORE TIMER POINTER y P RB RTNA15 RETURN y P EJECT y P* y P* ST
0x134eb0…135044 Dummy {f00=0x00cf, f01=0x0190, f02=»PRO y $ P ST A4,DCTPP SAVE TIMER POINTER z P RTN A5 z 4 P* z D P* PROCEDURE TIMEOUT z N P* z j PPRTOUT CM DCTPP z t P LDR A6,A1 RELOAD A6 z P LDKL A5,STB LOAD STACK BASE z P LDKL A7,DTETAB z P IFT STTSTS=1 z P* z P* z
0x135044…1351d8 Dummy {f00=0x00cf, f01=0x0190, f02=»OPEN SALCUZ z t P LD A1,XACK { " P RF(Z) PRT10 ACK NOT EXPECTED { ( P CF A5,TRENQ SEND ENQ { N & P CF A5,SPTIM START PROCEDURE TIMER { l PPRT10 ABL BRM { P EJECT { P* { P* STOP PROCEDURE TIMER { P* { ( PHPTIM LD A1,DCTPP GET TIMER
0x1351d8…13536c Dummy {f00=0x00cf, f01=0x0190, f02=» ( P* WAIT 1 SEC. FOR MODEM CONNECTION | P* | 0 P | : PDTE:ON LDR A1,A6 DWT ADDRESS | B P CF A15,SETIME WAIT 1 SEC. | f P DATA DTE:10,10 | P =1 | P LDKL A5,STB =1 | " P CF A5,CSYNCI CONNECT MODEM =1 | * P CF A5,CHALTI NO INTERRUPTS
0x13536c…135500 Dummy {f00=0x00cf, f01=0x018e, f02=»DR A6,A1 DWT ADDRESS | P LDKL A7,DTETAB } $ P IM DTESTA,A7 SET OPEN STATUS =1 } 4 P LDKL A5,STB =1 } * P CF A5,CSYNCI PUT CU IN ACTIVE MODE =1 } t 8 P CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1 } 0 P IM DTEPLS,A7 PRESET PHYSICAL STATUS = OK
0x135500…135694 (1, 235) Dummy {f00=0x00cf, f01=0x0190, f02=» } ~ " P LDR A1,A2 SET RETURN CODE =1 ~ * P CF A15,TENDIO COMPLETE THE REQUEST =1 ~ . & P CF A15,SPOTIM START POLL TIMER =6 ~ P ABL BRM START I/P =1 ~ P EJECT ~ P IFT MESPAS=1 ~ P* ~ P* ~ P* GET DWT ADDRESS ~ P* ~ PMESDWT E
0x135694…135828 Dummy {f00=0x00cf, f01=0x0190, f02=» DDT-ADDR ~ P RF(E) MES200 YES " P LD A2,DWTST,A6 ANY REQUEST ? , P RF(N) MESD50 NO R ( P LD A2,DWTOR,A6 ANY MESSAGE ORDER ? j P ANK A2,/FF P RF(Z) MES200 YES & P SUK A2,RECEIVE A RECEIVE ORDER ? P RF(Z) MES200 YES P
0x135828…1359bc Dummy {f00=0x00cf, f01=0x0190, f02=»00 PMES100 EQU * P LDR A6,A7 GET DTETAB-ADDR PMES200 EQU * @ P ABL RTNA15 RETURN VIA A15 T P XIF v P EJECT P* P* P* BASIC RECEIVE MODE P* " P* ENTERED EVERY TIME A MESSAGE & P* IS EXPECTED FROM THE M
0x1359bc…135b50 Dummy {f00=0x00cf, f01=0x0190, f02=»EAR TRANSPARENT TEXT , P CF A5,CSYNCI START INPUT WITH SYNC DEF P* L P* V P* ` P CF A5,READP READ CHARACTER j P RF(NZ) BRM120 PARITY ERROR P* P* * P* CHECK IF IT IS A CONTROL CHARACTER P* P LDR A1,A2
0x135b50…135ce4 Dummy {f00=0x00cf, f01=0x0190, f02=»A STX,STX100 STX RECEIVED " P DATA EOT,EOT100 EOT RECEIVED " " P DATA ENQ,ENQ100 ENQ RECEIVED H " P DATA DLE,DLE100 DLE RECEIVED n ( PBRM100 DATA NAK,NAK100 NAK RECEIVED P EJECT P* P* P* THROUGHPUT ERROR P* P
0x135ce4…135e78 Dummy {f00=0x00cf, f01=0x0190, f02=» SYNC DEF r P* P* $ P* WAIT FOR MARK HOLD TO RESYNC. & P* N PBRM120 EQU * X P CF A5,READ READ CHARACTER l 0 P LD A1,DCSTCU ANY STATUS FROM CONTROL UNIT ? P RF(NZ) BRM130 YES P ANK A2,/7F P SUK A2,/7F P RB(
0x135e78…13600c Dummy {f00=0x00cf, f01=0x0190, f02=»IT IS A POLL OR A SELECT SEQUENCE P* * PBRM200 EQU * 4 P IFT MSV1=0 H P LDR A4,A2 P CF A5,READP READ CHARACTER n P CWR A2,A4 $ P RB(NE) BRM120 INVALID SEQUENCE P XIF P LDK A3,0 P CC A2,1,A7 IS IT A POLL ?
0x13600c…1361a0 Dummy {f00=0x00cf, f01=0x018e, f02=»QU * P CF A5,READP READ 1:ST STA P RB(NZ) BRM PARITY ERROR . P LDR A4,A2 N P IFT MSV1=0 ` P CF A5,READP READ 2:ND STA t P CWR A2,A4 $ P RB(NE) BRM120 INVALID SEQUENCE P XIF P CF A5,READP READ ENQ P SUK A2,ENQ
0x1361a0…136334 (1, 236) Dummy {f00=0x00d0, f01=0x018e, f02=» P EJECT P* P* 0 P* CHECK IF IT IS A SELECT OR A POLL ADDRESS & P* Z P LDK A1,1 d P ST A1,CACK LOAD ACK-COUNTER v P LDR A2,A4 P SUK A3,2 P RF(Z) SELECT SELECTING P* P* P* POLLING P*
0x136334…1364c8 Dummy {f00=0x00d0, f01=0x0190, f02=» P EJECT P* P* & P* SPECIFIC POLL HAS BEEN RECEIVED * P* T P* ^ P IFF STARVI+SPECP=0 h P LD A1,XACK P RF(NZ) POL100 ACK EXPECTED * P LDR A6,A3 LOAD DWT ADDRESS IN A6 =10 8 P RF(Z) POL150 REQ. DEV. NOT CO
0x1364c8…13665c Dummy {f00=0x00d0, f01=0x018e, f02=» " P RF(NZ) POL120 PENDING STATUS P XIF * P IFF STARVI+SPECP=0 6 P LD A1,DWTST,A6 R P RF(N) POL150 NO REQUEST j P LD A1,DWTOR,A6 GET ORDER & P ANK A1,/FF MASK AWAY OPTION PART P SUK A1,6 P RF(Z) POL170 WRITE REQUEST
0x13665c…1367f0 Dummy {f00=0x00d0, f01=0x0190, f02=» PGPOLL EQU * P LD A1,XACK " P RF(Z) POL110 ACK NOT EXPECTED , P =11 R PPOL100 EQU * b * P CF A5,HPTIM KILL PROCEDURE TIMER =11 v P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER P ABL BRM WAIT FOR RESPONSE
0x1367f0…136984 Dummy {f00=0x00d0, f01=0x0190, f02=» BE SENT v " P SUK A6,DWTOPE GET DWT ADDRESS PPOL120 EQU * 6 P CF A5,TRSTA SEND STATUS J & P CF A5,SPTIM START PROCEDURE TIMER j P IM XACK SET 'ACK EXPECTED' P XIF P IFF STARVI=1 P RF POL140 P XIF PPOL130 EQU *
0x136984…136b18 Dummy {f00=0x00d0, f01=0x0190, f02=»EOT ~ P RB POL130 PPOL160 EQU * " P SUK A6,DWTOPN GET DWT ADDRESS 2 PPOL170 EQU * X $ P LD A8,DWTECB,A6 GET ECB ADDRESS l P RF(NZ) POL180 P CF A15,REMOVW P RB POL150 PPOL180 EQU * P ST A8,FECB SAVE ECB ADDRESS
0x136b18…136cac Dummy {f00=0x00d0, f01=0x0190, f02=»E DATA FROM USER BUFFER ~ P XIF & P LD A4,ECBBA,A8 GET BUFFER ADDRESS , P LD A3,ECBRL,A8 GET LENGTH V PPOL190 EQU * x & P ST A4,FECBBA SAVE BUFFER ADDRESS P . =15 P ST A3,FECBRL SAVE LENGTH P CM FBAX RESET BUFFER INDEX
0x136cac…136e40 Dummy {f00=0x00d0, f01=0x0190, f02=»RE TIMER v P IM XACK SET 'ACK EXPECTED' P RB POL130 4 P EJECT F P* T P* ^ P* SELECT HAS BEEN RECEIVED h P* PSELECT EQU * P CF A5,FINTES P LDR A6,A3 GET DWT-ADDR P RF(NZ) SEL100 P IFT MESPAS=1
0x136e40…136fd4 (1, 237) Dummy {f00=0x00d0, f01=0x0190, f02=»A1,XACK & P RB(NZ) POL100 ERROR. ACK EXPECTED P IFF STARVI=0 : P LD A1,DWTST,A6 GET STATUS P P LDR A3,A1 r P ANK A1,1 $ P RF(Z) SEL120 NO PENDING STATUS P CF A5,TRRVI SEND RVI P XIF P IFF STARVI=1 P RF SEL120
0x136fd4…137168 Dummy {f00=0x00d0, f01=0x0190, f02=» OR DB ? =2 | P RF(NZ) SEL140 YES =2 P XIF 2 P =2 > P LD A1,DCRBUF L $ P RF(NZ) SEL150 BUFFER AVAILABLE b P IFT STTSTS=1 ( P LDK A1,CSSRBY BUFFER NOT AVAILABLE $ P CF A15,DCSUPS INCREMENT COUNTER P XIF PSEL140 E
0x137168…1372fc Dummy {f00=0x00d0, f01=0x0190, f02=»F A5,PRREC PREPARE FOR TEXT RECEPTION P ADK A1,6 . P ST A1,FBLST @ P CF A5,TRACK SEND ACK,0 T P RB SEL110 t P EJECT P* P* P* EOT HAS BEEN RECEIVED P* P* PEOT100 EQU * & P CF A5,HPTIM STOP PROCED
0x1372fc…137490 Dummy {f00=0x00d0, f01=0x0190, f02=»D p " P LD A6,FDWTUT GET WRITING DWT P RF(Z) EOT110 NO ONE WRITING 0 P LDK A1,2 SET RC=2 T ( P CF A5,CWRITE COMPLETE WRITE REQUEST n PEOT110 EQU * " P CM XACK RESET 'ACK EXPECTED' PEOT120 EQU * P CM XSEL RESET 'SELECTED'
0x137490…137624 Dummy {f00=0x00d0, f01=0x018e, f02=» P IFT TPMODE=1 P ABL BRM120 INVALID SEQENCE PSTX110 EQU * B P XIF V P LD A1,XSEL b P RF(Z) STX150 NOT SELECTED v P LD A1,DCRBUF P IFF STTSTS=1 & P ABL(Z) BRM120 NO BUFFER AVAILABLE P XIF P IFT STTSTS=1
0x137624…1377b8 Dummy {f00=0x00d0, f01=0x018e, f02=» n P ABL BRM120 P XIF PSTX120 EQU * ( P CF A5,RDMESS READ MESSAGE < P IFT STTSTS=1 ^ P* t P* ~ P* COUNT MESSAGES RECEIVED P* P LDK A1,CSSRBL P CF A15,DCSUPS P XIF P SUK A3,1 P RF(NZ) ST
0x1377b8…13794c Dummy {f00=0x00d0, f01=0x0190, f02=» P ABL BRM PSTX150 EQU * P IFT RCOM=1 ( P LD A1,XACK < & P RF(Z) STX160 ACK IS NOT EXPECTED P P LD A1,DCRBUF z & P RF(Z) STX160 NO BUFFER AVAILABLE " P LD A6,FDWTUT GET WRITING DWT 0 P ABL(Z) BRM120 NO ONE WRITING. RESYNCHRO
0x13794c…137ae0 Dummy {f00=0x00d0, f01=0x0190, f02=» WRITE REQUEST z P CM CACK PRESET ACK-1 P RB STX120 READ THE MESSAGE 4 P XIF X ( PSTX160 CF A5,READ READ ONE CHARACTER d P CWK A2,ENQPAR IS IT ENQ ? ( P RB(Z) STX140 FORWARD ABORT SEQUENCE P RB EOT120 PSTX170 EQU * P IM
0x137ae0…137c74 (1, 238) Dummy {f00=0x00d0, f01=0x0190, f02=»LOCK v P IFF RCOM=0 P LDK A1,ESC P CCR A1,A4 4 P RB(NE) STX130 ESC NOT FOUND F P LC A1,1,A4 GET COMMAND CODE j P SUK A1,RDBCOM ( P RF(Z) RDBUF READ MODIFIED RECEIVED P SUK A1,RDMCOM-RDBCOM & P RF(Z) RDMOD READ BUFFER R
0x137c74…137e08 Dummy {f00=0x00d0, f01=0x0190, f02=» MESPAS=1 P CF A15,MESDWT P XIF ( P CWR A7,A6 IS IT DTETAB ? 4 P RF(E) STX280 SEND ACK V P LD A2,DWTSTA,A6 . =14 t , P RF(Z) STX280 TERMINAL DISCONNECTED =14 P CM FBAX * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER P ADK A4,
0x137e08…137f9c Dummy {f00=0x00d0, f01=0x0190, f02=»UFFER v P RF(Z) STX200 NO P ST A2,+4,A1 STORE THE ADDR & PSTX200 EQU * J P XIF ^ " P LD A2,DWTST,A6 ANY REQUEST ? j P RF(N) STX220 NO P LD A2,DWTOR,A6 GET ORDER P IFT EM3270=1 & P RF(Z) STX210 ANY MESSAGE ORDER ?
0x137f9c…138130 Dummy {f00=0x00d0, f01=0x0190, f02=» ADDRESS x P LD A3,-4,A4 GET LENGTH * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH 0 . P LD A1,DWTLAD,A6 SYMBOLIC DTE ADDRESS =12 ^ ( P LD A2,-2,A4 NETWORK SUB-ADDRESS =12 0 P CF A15,GETSSA GET SYMBOLIC SUB ADDRESS =12 , P ST A1,ECBCW2,A8 AND SAV
0x138130…1382c4 Dummy {f00=0x00d0, f01=0x0190, f02=»A2,ECBCW1,A8 STORE REMAINING TIME P XIF =9 * PSTX220 EQU * < P IFT STARVI=1 P P LC A2,+2,A4 GET WCC/CCC f P ANK A2,/FF P LC A2,TEBCDIC,A2 P ANK A2,8 P RF(Z) STX230 P LD A2,DWTST,A6 P ORK A2,/A P S
0x1382c4…138458 Dummy {f00=0x00d0, f01=0x0190, f02=» BUFFER ~ P RF STX270 PSTX240 EQU * " P LD A2,DWTOR,A6 GET ORDER 6 $ P CWK A2,RECEIVE RECEIVE ORDER ? X P RF(NE) STX260 NO P =12 P LDK A1,0 RESET RETURN CODE * P LD A2,DWTIPC,A6 ANY QUEUED MESSAGES ? P RF(Z) STX25
0x138458…1385ec Dummy {f00=0x00d0, f01=0x0190, f02=» P CF A5,QRBUF QUEUE BUFFER P IFT EM3270=1 & P LD A2,DWTOR,A6 GET ORDER < ( P RF(NZ) STX270 NOT ANY MESSAGE ORDER ^ $ P CF A15,TENDIO COMPLETE REQUEST P XIF PSTX270 EQU * P IFT STARVI=1 P LD A1,DWTST,A6 GET STATUS
0x1385ec…138780 Dummy {f00=0x00d0, f01=0x0190, f02=»,TRACK SEND ACK PSTX290 EQU * P ABL BRM , P EJECT < P* J P* T , P* READ MODIFIED OR READ BUFFER RECEIVED ^ P* P* P IFF RCOM=0 $ PRDBUF EQU * READ BUFFER COMMAND PRDMOD EQU * " P CM XSEL RESET SELECT
0x138780…138914 (1, 239) Dummy {f00=0x00d0, f01=0x0190, f02=»ADDRESS x " P LDKL A3,1922 REQUESTED LENGTH " P IM XRB SET READ BUFFER SWITCH 6 P CM FDWTUT P LDK A1,1 n & P XRS A1,CACK INCREMENT ACK COUNTER P ABL POL190 P XIF P EJECT P* P* P* ENQ HAS BEEN RECEIVED
0x138914…138aa8 Dummy {f00=0x00d0, f01=0x0190, f02=»OF MESSAGE r P OR A1,XSEL " P RF(Z) ENQ110 IN CONTROL STATE & . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE L PENQ110 EQU * ~ P ABL BRM P EJECT P* P* P* NAK HAS BEEN RECEIVED P* P* PNAK100 EQU *
0x138aa8…138c3c Dummy {f00=0x00d0, f01=0x018e, f02=»IN CONTROL STATE P RF DLE160 PNAK110 EQU * * " P LD A6,FDWTUT GET WRITING DWT > P IFF STARVI=0 d P LD A1,XSTA z 0 P ABL(NZ) POL120 STATUS HAS BEEN TRANSMITTED P XIF 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK & P SU A1
0x138c3c…138dd0 Dummy {f00=0x00d0, f01=0x0190, f02=» P* P LDK A1,CSSTRT P CF A15,DCSUPS $ P XIF : P ABL POL200 F P EJECT Z P* h P* r P* DLE HAS BEEN RECEIVED | P* P* PDLE100 EQU * & P CF A5,HPTIM STOP PROCEDURE TIMER P LD A1,XACK P RF(NZ
0x138dd0…138f64 Dummy {f00=0x00d0, f01=0x0190, f02=» RB ENQ110 PDLE110 EQU * & P CF A5,READ READ SECOND CHARACTER & P CWK A2,ACKPAR IS IT ACK 0 ? P P RF(NE) DLE130 t P* P* ACK , 0 RECEIVED P* P LD A1,CACK GET ACKCOUNTER P RF(Z) DLE140 ACK,0 EXPECTED PDLE120 EQU
0x138f64…1390f8 Dummy {f00=0x00d0, f01=0x0190, f02=» P RF(NE) DLE180 P* P* ACK , 1 RECEIVED $ P* > P LD A1,CACK GET ACK COUNTER H $ P RB(Z) DLE120 ACK,1 NOT EXPECTED l PDLE140 EQU * P LD A1,XETX P RF(Z) DLE170 ETX NOT SENT P EJECT P* , P* ACK HAS BEEN REC
0x1390f8…13928c Dummy {f00=0x00d0, f01=0x0190, f02=»DLE200 STATUS HAS BEEN TRANSMITTED P XIF * ( P CF A5,CWRITE COMPLETE WRITE REQUEST 6 PDLE160 EQU * b P CF A5,TREOT SEND EOT v P IFT RCOM=1 P CM XRB RESET READ BUFFER P XIF P RB ENQ110 PDLE170 EQU * P LDK A1,1
0x13928c…139420 Dummy {f00=0x00d0, f01=0x0190, f02=» INVALID DLE SEQUENCE " P CM XACK RESET 'EXPECTING ACK' P LD A1,XETX D $ P RF(NZ) DLE190 ETX HAS BEEN SENT X P LDK A1,2 SET RC=2 P RB DLE150 PDLE190 EQU * P LDK A1,0 SET RC=0 P RB DLE150 P EJECT P IFF STARVI=0
0x139420…1395b4 (1, 240) Dummy {f00=0x00d1, f01=0x0190, f02=» r , P CF A15,REMOVS REMOVE FROM STATUS QUEUE P CM XSTA CLEAR 'STATUS SENT' 8 " P CM XACK CLEAR 'ACK EXPECTED' P LD A1,DWTST,A6 GET STATUS P ANK A1,4 P RB(Z) DLE160 NOT DE P LDKL A1,/8000 " P ANS A1,DWTST,A6 CLEAR STATUS
0x1395b4…139748 Dummy {f00=0x00d1, f01=0x0190, f02=»CALLING SEQUENCE: CF A5,FINTER(S) P* A2=SUBTERMINAL ADDRESS * P* A4 DESTROYED J " P* A3#0: DWT TO FOUND TERMINAL ` P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES * P* ENTRY: FINTES - CHECK SELECT ADDRESS , P* F
0x139748…1398dc Dummy {f00=0x00d1, f01=0x0190, f02=»FINT05 P XIF PFINTEP EQU * P LDK A4,1 RIGTH BYTE . PFINT05 EQU * J " P LD A3,DTEDWT,A7 GET FIRST DWT ^ PFINT10 EQU * P RF(Z) FINT20 END QUEUE P ADR A3,A4 " P CCR A2,A3 THIS SUB-ADDRESS ? P RF(E) FINT20 YES
0x1398dc…139a70 Dummy {f00=0x00d1, f01=0x018e, f02=»JECT P* P* P* PREPARE FOR TEXT RECEPTION P* D P* N PPRREC EQU * X P IM XSEL SET 'SELECTED' l P CM FBAX RESET BUFFER INDEX P IFT CODE=1 . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC P XIF $ P ST A2
0x139a70…139c04 Dummy {f00=0x00d1, f01=0x0190, f02=» 6 P* CHECK IF THERE IS A SEND REQUEST TO BE COMPLETED P* > P* A1 CONTAINS RETURN CODE H P* j P* t PCWRITE LD A6,FDWTUT ~ $ P RF(Z) CWR900 NO WRITE GOING ON P LD A2,DWTST,A6 P RF(N) CWR900 NO REQUEST P LD A2,DWTOR,A
0x139c04…139d98 Dummy {f00=0x00d1, f01=0x0190, f02=» ANY RECEIVED BUFFERS ON QUEU ? P RF(Z) CWR110 NO ( 0 P ORKL A1,R:DATA ACCEPTED AND DATA AVAILABLE @ PCWR110 EQU * t P LD A8,DWTECB,A6 P CF A15,CTIME STOP TIMER P IFT REMTIM=1 =9 P ST A2,ECBCW1,A8 P XIF =9 $ P CF
0x139d98…139f2c Dummy {f00=0x00d1, f01=0x0190, f02=» 'ACK EXPECTED' P CM FDWTUT P RTN A5 * P EJECT : P* H P* R P* READ ONE TEXT BLOCK P* z P* ON EXIT A3 CONTAINS : ( P* 0 : IF CORRECT ETX BLOCK RECEIVED 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW ( P*
0x139f2c…13a0c0 Dummy {f00=0x00d1, f01=0x0190, f02=» x P LDK A3,0 P LD A1,XSTA $ P RF(NZ) RDM050 LAST INPUT WAS OK . " P LD A1,FBLST COMPUTE NEW INDEX V P SUR A1,A4 | P ST A1,FBAX PRDM050 EQU * P AD A4,FBAX ADD BUFFER INDEX ( P ST A4,FBLST REMEMBER START OF BLOCK P C
0x13a0c0…13a254 (1, 241) Dummy {f00=0x00d1, f01=0x018e, f02=»ST BLOCK z P CF A5,READP P RF(NZ) RDM120 PARITY ERROR $ P CWK A2,ESC H P RF(NE) RDM110 * P CF A5,READP SKIP NEXT TWO CHARACTERS r P CF A5,READP P XIF P IFF TPMODE=1 PRDM100 EQU * $ P CF A5,READP READ ONE CHARACTE
0x13a254…13a3e8 Dummy {f00=0x00d1, f01=0x0190, f02=» l PRDM100 CF A5,READ P CWK A2,DLE CHECK IF DLE " P RF(NE) RDM112 NO B 0 P CF A5,READ SKIP DLE AND READ NEXT CHARACTER P CWK A2,SYNEBC CHECK IF SYN P RB(E) RDM100 SKIP SYN P CF A5,CRCCAL CALCULATE CRC " P CWK A2,DLE CHECK
0x13a3e8…13a57c Dummy {f00=0x00d1, f01=0x0190, f02=»BC CHECK IF ETB P RF(E) RDM160 YES P CWK A2,ITB CHECK IF ITB 2 P RF(E) RDM175 YES R P CWK A2,ENQEBC CHECK IF ENQ l P RF(E) RDM140 YES SEND NAK P* P* P* GET END OF BLOCK P* PRDM105 EQU * P CF A5,REA
0x13a57c…13a710 Dummy {f00=0x00d1, f01=0x0190, f02=» A2,ETBEBC $ P RB(NE) RDM105 NOT END OF BLOCK PRDM110 EQU * : $ P CM TPM OUT OF TRANSPARENT TEXT N P CF A5,RDCRC v ( P RF RDM140 INDICATE INVALID MESSAGE & PRDM112 CF A5,CRCCAL CALCULATE CRC P XIF P IFF TPMODE=1 P CWK A
0x13a710…13a8a4 Dummy {f00=0x00d1, f01=0x0190, f02=»ITB RECEIVED P CWK A2,ENQ 2 P RF(E) RDM120 SKIP IF ENQ EMBEDDED IN MESSAGE ( P CWK A2,/FF ^ $ P RF(E) RDM140 MARK HOLD RECEIVED r P IFT CODE=0 P IFT BINTRM=1 P LDR A1,A2 P SUK A1,DC1+3 P RF(P) RDM115 NOT DC1-DC3
0x13a8a4…13aa38 Dummy {f00=0x00d1, f01=0x0190, f02=» j P RF(NZ) RDM120 PARITY ERROR P LCR A1,A4 =7 , * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER B P ORR A2,A1 =7 p P XIF PRDM115 EQU * & P ADK A3,0 ERROR DETECTED EARLIER ? P RB(NZ) RDM100 YES !!! P SCR A2,A4 STORE CHARACTER
0x13aa38…13abcc Dummy {f00=0x00d1, f01=0x018e, f02=»NG) RDM100 NOT OVERFLOW P* P* BUFFER OVERFLOW * P* D & P LDK A3,1 INDICATE BUFFER OVERFLOW N P IFT STTSTS=1 x " P LDK A1,CSSRBO BUFFER OVERFLOW $ P CF A15,DCSUPS INCREMENT COUNTER P XIF P RB RDM100 P* P* PA
0x13abcc…13ad60 Dummy {f00=0x00d1, f01=0x0190, f02=» n P XIF & P LDK A3,1 INDICATE INVALID MESSAGE P SUK A2,/7F > $ P RF(Z) RDM150 MARK HOLD RECEIVED R P RB RDM100 z P* P* ETX RECEIVED P* PRDM130 EQU * $ P LD A1,DCRBUF GET BUFFER ADDRESS P LD A2,FBAX GET BUFFER
0x13ad60…13aef4 (1, 242) Dummy {f00=0x00d1, f01=0x0190, f02=» P XIF P IFT CODE=1 & P CF A5,RDCRC READ CRC AND CHECK IT $ P RF(E) RDM150 CRC WAS OK N P XIF n PRDM140 EQU * z & P LDK A3,1 INDICATE INVALID MESSAGE PRDM150 EQU * P CF A5,CHALTI HALT INPUT P IFT P6805=1 P IFT COD
0x13aef4…13b088 Dummy {f00=0x00d1, f01=0x0190, f02=» & P CWK A3,1 ERROR DETECTED EARLIER ? P RF(NE) RDM158 NO . $ P CM TPM OUT OF TRANSPARENT TEXT H PRDM158 EQU * p P XIF P RTN A5 P* P* ETB RECEIVED P* PRDM160 EQU * P LDR A3,A3 " P RB(NZ) RDM130 ALREADY I
0x13b088…13b21c Dummy {f00=0x00d1, f01=0x0190, f02=» CODE=1 P CF A5,RDLRC " P RB(NZ) RDM120 LRC WAS NOT OK $ P XIF J P IFT CODE=1 V & P CF A5,RDCRC READ CRC AND CHECK IT j " P RB(NE) RDM120 CRC WAS NOT OK P IFT TPMODE=1 * PRDM175 CM TPM OUT OF TRANSPARENT TEXT $ P CF A5,RDC
0x13b21c…13b3b0 Dummy {f00=0x00d1, f01=0x0190, f02=»E) RDM180 SKIP SYN P CWK A2,DLE $ P RB(NE) RDM105 ILLEGAL CHARACTER . P CF A5,READ V P CWK A2,STX j $ P RB(NE) RDM105 ILLEGAL CHARACTER ~ P XIF P RB RDM100 P EJECT P* P* TRANSMIT ACK 0 OR 1 P* PTRAC
0x13b3b0…13b544 Dummy {f00=0x00d1, f01=0x018e, f02=»K0 | P RF TRDLE P* P* TRANSMIT WACK & P* > PTRWACK LDK A3,WACK LOAD WACK H P RF TRDLE l P* ~ P* TRANSMIT RVI P* P IFF STARVI=0 PTRRVI LDK A3,RVI LOAD RVI P XIF P* P* TRANSMIT DLE
0x13b544…13b6d8 Dummy {f00=0x00d1, f01=0x0190, f02=» P* P* TRANSMIT NAK P* ( PTRNAK LDK A3,NAK LOAD NAK 2 P RF TREN10 T P* f P* TRANSMIT EOT p P* PTREOT LDK A3,EOT LOAD EOT P RF TREN10 P* P* TRANSMIT ENQ P* PTRENQ LDK A3,ENQ LOAD ENQ
0x13b6d8…13b86c Dummy {f00=0x00d1, f01=0x018e, f02=»T r & P LC A2,RESEND GET FIRST CHARACTER P CF A5,WRITEP SEND IT 4 & P LC A2,RESEND+1 GET NEXT CHARACTER R P CF A5,WRITEP SEND IT | PTRRE10 LDK A2,/FF P CF A5,WRIT05 SEND PAD P LDK A2,/FF P CF A5,WRIT05 P CF A5,CHALT
0x13b86c…13ba00 Dummy {f00=0x00d1, f01=0x0190, f02=» P* P* TRANSMIT ONE TEXT BLOCK P* 0 P* : PTRTEXT EQU * D P CF A5,TRSYNC START OUTPUT X P IFF TPMODE=0 z P LDK A2,DLE P CF A5,WRIDLE SEND DLE P XIF P LDK A2,STX P CF A5,WRITE SEND STX P SUR A8,
0x13ba00…13bb94 (1, 243) Dummy {f00=0x00d7, f01=0x0190, f02=» P . =15 & P LDK A3,0 RESET CHARACTER COUNTER P LD A1,FBAX GET BUFFER INDEX > " P RF(NZ) TRT100 NOT FIRST BLOCK b " P LDR* A2,A7 NETWORK POLL ADDR P CF A5,WRITEP SEND TCA " P LD A2,FDWTUT GET DWT-ADDRESS ( P LDR* A2,A2 GET NETWOR
0x13bb94…13bd28 Dummy {f00=0x00d7, f01=0x0190, f02=»A5,WRITEP " P LDK A2,/20 AND CURSOR ADDRESS P CF A5,WRITEP 8 P LDK A2,/20 N P CF A5,WRITEP b P XIF x P IFT RCOM=1 P & P LD A1,XRB READ BUFFER COMMAND ??? P RF(Z) TRT070 NO!! P P ********************
0x13bd28…13bebc Dummy {f00=0x00d7, f01=0x0190, f02=»ND LINE AND COLUMN NUMBER P LDK A3,5 SET BLOCK COUNT " P RF TRT100 D PTRT070 EQU * V P XIF j P v P LDK A3,2 ~ PTRT100 EQU * P IFT TPMODE=1 P IM TPM TRANSPARENT TEXT P XIF P LCR A2,A4 GET ONE CHARACTER
0x13bebc…13c050 Dummy {f00=0x00d7, f01=0x0190, f02=»!! P @ P************************************************************ P* V , P* CHECK IF ATTRIBUTE CHARACTER OR NULL ` P* 4 P*********************************************** P & P CWK A2,X'20' ATTRIBUTE CHARACTER P RF(
0x13c050…13c1e4 Dummy {f00=0x00d7, f01=0x0190, f02=»A PTRT102 EQU * P CWK A2,/7D END OF MESSAGE ? " P RF(NE) TRT103 NO,GO TO TRT103 B P LDK A2,/19 h PTRT103 EQU * | P CWK A2,X'7F' NULL ?? P RF(NE) TRT105 P SUK A2,1 P XIF P IFT RCOM=1 P RF TRT105 P
0x13c1e4…13c378 Dummy {f00=0x00d7, f01=0x0190, f02=» l P ANK A2,X'7F' ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE P ANK A1,1 J P ANK A2,/1E MASK P SLL A2,1 t & P ORR A2,A1 IBM ATTRIBUTE COMPOSED " P ORK A2,/40 BIT ALWAYS SET ONE P LC A2,TASCII,A2 & P CWK A2,/18 CHECK SPECIAL
0x13c378…13c50c Dummy {f00=0x00d7, f01=0x0190, f02=»TRT110 PTRT105 EQU * P XIF " P EJECT . P IFF TPMODE=1 < P CWK A2,/07 R ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT f P XIF P CF A5,WRITEP SEND CHARACTER PTRT110 EQU * $ P IM FBAX INCREMENT BUFFER INDEX & P LD A1,FEC
0x13c50c…13c6a0 Dummy {f00=0x00d7, f01=0x0190, f02=» CWK A3,TBLEN P IFT TPMODE=1 P RB(L) TRT105 NOT FULL BLOCK , P XIF P P RB(L) TRT100 NOT FULL BLOCK P IFT RCOM=1 , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK P CC A1,-2,A4 P RF(E) TRT115 YES P CC A1,-1,A4 P R
0x13c6a0…13c834 (1, 244) Dummy {f00=0x00d7, f01=0x018e, f02=» P IM FBAX INCREMENT INDEX . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA $ P CF A5,WRITEP SEND IT V P IM FBAX INCREMENT INDEX t P XIF PTRT116 EQU * P IFT TPMODE=1 P LDK A2,DLE $ P CF A5,WRIDLE SEND AN EXTRA DLE P X
0x13c834…13c9c8 Dummy {f00=0x00d7, f01=0x0190, f02=» P IFF CODE=1 P LDR A2,A8 GET LRC P CF A5,WRITEP SEND LRC 2 P XIF P P IFT CODE=1 P LDR A2,A6 p P ANK A2,/FF " P CF A5,WRIT05 SEND CRC BYTE 1 P ECR A2,A6 P ANK A2,/FF " P CF A5,WRIT05 SEND CRC BYTE 2 P
0x13c9c8…13cb5c Dummy {f00=0x00d7, f01=0x0190, f02=»PS P XIF P ABL TRRE10 HALT OUTPUT PTRT130 EQU * 6 P IM XETX INDICATE 'ETX SENT' J P IFT TPMODE=1 n P LDK A2,DLE $ P CF A5,WRIDLE SEND AN EXTRA DLE P XIF P LDK A2,ETX LOAD ETX P RB TRT120 SEND ETX AND LRC
0x13cb5c…13ccf0 Dummy {f00=0x00d7, f01=0x0190, f02=»M XSTA INDICATE 'STATUS SENT' P ST A6,FDWTUT SAVE A6 & P CF A5,TRSYNC START OUTPUT D P LDK A2,SOH f P CF A5,WRITE SEND SOH z P SUR A8,A8 RESET LRC P LDK A2,'%' P CF A5,WRITEP SEND '%' P LDK A2,'R' P CF A5,WRITEP
0x13ccf0…13ce84 Dummy {f00=0x00d7, f01=0x0190, f02=»T-ADDRESS | ( P LDR* A2,A4 GET NETWORK SUB-ADDRESS P CF A5,WRITEP SEND STA > P LD A1,DWTST,A4 GET STATUS 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,NOIR P
0x13ce84…13d018 Dummy {f00=0x00d7, f01=0x0190, f02=»O IR IF DE P LDK A2,IR PTRST10 EQU * $ P CF A5,WRITEP SEND S/S 1 8 P RB TRT130 SEND ETX AND LRC X P XIF | P EJECT P* P* & P* TRSYNC : TRANSMIT SYNC SEQUENCE P* PTRSYNC EQU * ( P CF A5,CHALTI HALT INP
0x13d018…13d1ac Dummy {f00=0x00d7, f01=0x0190, f02=»* SEND 4 SYN-CHARACTERS P* P LDK A3,4 * PTRS100 EQU * < P LDK A2,SYN P P CF A5,WRITE SEND CHARACTER d P SUK A3,1 P RB(NZ) TRS100 P RTN A5 RETURN TO CALLER P EJECT P* P* 0 P* CSYNCI :SEND SYNC-P
0x13d1ac…13d340 Dummy {f00=0x00d7, f01=0x0190, f02=»STOP INPUT & P ST A5,DCLCI SET INPUT ACTIVE FLAG P IFT P6805=1 < . P LDK A2,PARITY CHAR PARITY FUNCTION FOR LC P P CIO A2,1,LCUIN START I/O P LDK A2,SYNC SYNC PATTERN 2 P OTR A2,1,LCUIN SEND INPUT SYNC-PATTERN TO LC P XIF P
0x13d340…13d4d4 (1, 245) Dummy {f00=0x00d7, f01=0x0190, f02=»IF PCSYN:I EQU * P RTN A5 RETURN TO CALLER P* > P* H " P* CHALTI : HALT INPUT CHANNEL R P* x PCHALTI EQU * P IFT P6805=1 $ P LDK A2,CBSTOP STOP FUNCTION BIT P XIF P CIO A2,0,LCUIN HALT INPUT & P CM DCLC
0x13d4d4…13d668 Dummy {f00=0x00d7, f01=0x0190, f02=»PTED, SET MODEM ERR. =1 r PCHALTR EQU * =1 P IFF LOGG=0 8 $ P CF A5,LOGSST LOGG INPUT STATUS L P XIF t P RTN A5 RETURN TO CALLER P EJECT P* P* 0 P* CSYNCO : START TRANSMITTER WITH SYNC DEF P* PCSYNCO E
0x13d668…13d7fc Dummy {f00=0x00d7, f01=0x018e, f02=» P CIO A2,1,LCUUT CIO START P RF(A) CSYNC1 ACCEPTED & $ P SST A2,LCUUT TRY TO READ STATUS D * P ABL BRM NOT ACCEPTED TIMEOUT REQUEST l PCSYNC1 EQU * " P LDK A2,SYNC DEF SYNC PATTERN & P OTR A2,1,LCUUT SEND SYNC PATTERN P XIF
0x13d7fc…13d990 Dummy {f00=0x00d7, f01=0x0190, f02=» P* $ P* CHALTO : HALT OUTPUT CHANNEL P* 6 PCHALTO EQU * @ P IFT P6805=1 T P LDK A2,CBSTOP STOP FUNCTION h P XIF P CIO A2,0,LCUUT HALT OUTPUT P IFT P6805=1 , P LDK A2,1 PRESET STATUS = MODEM ERROR =1 . P RF(NA)
0x13d990…13db24 Dummy {f00=0x00d7, f01=0x0190, f02=» P IFT STTSTS=1 P ANK A2,H:NOOP+H:THRU P RF(Z) CHLTO2 < $ P LDK A1,CSCDCE DCE NOT OPERABLE R P ANK A2,H:NOOP z P RF(NZ) CHLTO1 YES * P LDK A1,CSCDOT OUTPUT THROUGHPUT ERROR PCHLTO1 EQU * $ P CF A15,DCSUPS INCREMENT COU
0x13db24…13dcb8 Dummy {f00=0x00d7, f01=0x018e, f02=» P* P* PIH1501 EQU * P ST P,INTSAV , P IFT CPU852=1 @ P CF A15,SAVE8 SAVE A1-A8 V P XIF v P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P INR A2,0,LCUIN
0x13dcb8…13de4c Dummy {f00=0x00d7, f01=0x0190, f02=» P IFT TPMODE=1 P C2 TPM 8 P RF(NZ) IHLC10 DO NOT SKIP SYNC IN TRANSPARENT TEXT . P XIF j P C2 SYNSW v 0 P RF(NZ) IHLC05 DO NOT SKIP SYNS IN BCC FRAME P CWK A2,SYNC P RF(E) READ PIHLC05 EQU * P IFT CODE=0
0x13de4c…13dfe0 Dummy {f00=0x00d7, f01=0x0190, f02=»CII p P XIF PIHLC10 EQU * P LDR A1,A2 , * P ORKL A1,/FF00 SET FLAG FOR CARRIER ON > & P ST A1,DCLCI SET INPUT ACTIV FLAG l P CM DCSTCU CLEAR SST SAVE P LDK A1,1 P ST A1,DTEPLS,A7 CU OPERABLE P RTN A5 RETURN TO CALLER
0x13dfe0…13e174 (1, 246) Dummy {f00=0x00d7, f01=0x0190, f02=» P* P* PIH1502 EQU * P ST P,INTSAV , P IFT CPU852=1 @ P CF A15,SAVE8 SAVE A1 - A8 V P XIF x P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RTN A5
0x13e174…13e308 Dummy {f00=0x00d7, f01=0x0190, f02=»IT 13=PARITY ERROR (6805 ONLY) SALCUZ , P* BIT 14=THROUGHPUT ERROR . , P* BIT 15=MODEM NOT READY ^ P* PSST EQU * P SST A2,LCUIN GET STATUS P LDR A1,A2 P IFT LOGG=1 & P CF A5,LOGSST LOGG SST I
0x13e308…13e49c Dummy {f00=0x00d7, f01=0x0190, f02=»S x * P RF(Z) SST125 INPUT NOT ACTIVE IGNORE ( P RF(N) SST100 INPUT ACTIVE WITH DATA 8 * P LDKL A2,CBCARR+SYNC DEF SYNC PATTERN d & P CIO A2,1,LCUIN START INPUT AGAIN $ P RF SST125 RETURN TO DISPATCHER P XIF P IFT P6805=1 P RF
0x13e49c…13e630 Dummy {f00=0x00d7, f01=0x018e, f02=»075 NO P LD A2,DCLCI INPUT STATUS 0 P RF(Z) SST125 NOT ACTIVE IGNORE CARRIER OFF 0 P RF SST100 ACTIVE d PSST075 EQU * ~ P LDR A2,A1 $ P ANK A2,H:THRU THROUGHPUT ERROR P RF(Z) SST100 NO P IFT STTSTS=1 P* P*
0x13e630…13e7c4 Dummy {f00=0x00d7, f01=0x0190, f02=» PSST100 EQU * P LDR A2,A1 P ANK A2,H:NOOP NOT OPERABLE . P RF(Z) SST200 R P IFT STTSTS=1 h P* ~ P* P* COUNT DCE NOT OPERABLE P* P LDK A1,CSCDCE P CF A15,DCSUPS P XIF P CF A15,STREG SAVE
0x13e7c4…13e958 Dummy {f00=0x00d7, f01=0x0190, f02=»* PSST150 EQU * P CF A15,LDREG LOAD REGISTERS PSST200 EQU * B P LDR A2,A1 V . P ANK A2,H:CARR CHECK STATUS IF CARRIER OFF h P RF(Z) SST225 NO 4 P XRK A1,H:CARR CHECK STATUS IF ONLY CARRIER OFF P RF(Z) SST250 YES PSST2
0x13e958…13eaec Dummy {f00=0x00d7, f01=0x0190, f02=» P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* B P* L PWRITE EQU * V P IFT CODE=1 j P C2 TPM ~ & P RF(Z) WRIT02 NOT TRANSPARENT MODE P CWK A2,DLE CHECK IF DLE P RF(NZ) WRIT05 NO P CF A5,WRIDLE SEND EXT
0x13eaec…13ec80 Dummy {f00=0x00d7, f01=0x018e, f02=»TION OF TRAILING PAD x * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF J PWRIT05 EQU * V " P OTR A2,0,LCUUT SEND CHARACTER j P RF(A) WRIT10 P IFF CODE=1 $ PWRIT10 XRR A8,A2 ACCUMULATE BCC P XIF P IFT CODE=1 & PWRIT10
0x13ec80…13ee14 (1, 247) Dummy {f00=0x00d8, f01=0x0190, f02=» P* PREAD CF A15,STREG P ABL TDISP , P* > P* H < P* THESE INSTRUCTIONS ARE ONLY USED TO SEND AN EXTRA DLE R * P* WHEN TRANSPARENT MODE IS CONFIGURED P* PWRIDLE EQU * " P OTR A2,0,LCUUT SEND CHARACTER P RB(
0x13ee14…13efa8 Dummy {f00=0x00d8, f01=0x0190, f02=»E A2 WITH PARITY P* P* " P IFT CODE+P6805=0 SALCUZ , PWRITEP ANK A2,/FF N P ECR A1,A2 h P ORK A2,/80 z PWRI100 SLL A1,1 P RB(P) WRI100 P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P
0x13efa8…13f13c Dummy {f00=0x00d8, f01=0x0190, f02=» CHARACTER TO A2 AND CHECK PARITY P* * P* 4 PREADP CF A5,READ > P IFT CODE+P6805=0 SALCUZ V P ECR A1,A2 x PRE100 SLL A1,1 P RF(Z) RE110 P RB(NN) RE100 P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P
0x13f13c…13f2d0 Dummy {f00=0x00d8, f01=0x0190, f02=» XRK A1,/80 P ABR* A5 P* $ P* . P EJECT 8 P* F P* P P* POWER ON FUNCTIONS Z P* v P* PDC15ON EQU * P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 P XIF P P IFF CPU852=1 P MSR 8,A15
0x13f2d0…13f464 Dummy {f00=0x00d8, f01=0x0190, f02=»T,A7 GET FIRST DWT ADDR PDC1510 EQU * P RF(Z) DC1520 END OF CHAIN 4 & P ORS A5,DWTST,A6 STORE DEVICE END V , P CF A15,INSSQ INSERT DWT IN STAUS QUEUE * P LD A6,DWTCHN,A6 GET NEXT DWT IN CHAIN P RB DC1510 PDC1520 EQU * P
0x13f464…13f5f8 Dummy {f00=0x00d8, f01=0x0190, f02=»DCLCI INIT LINE CONTROL UNIT INFO ( P LD A2,DCTPGP GET POLL TIMER POINTER * " P RF(NZ) DC1540 ALREADY STARTED V $ P CF A15,SPOTIM START POLL TIMER | PDC1540 EQU * P ABL BRM P EJECT P IFT CODE=1 P* P* P* CALCULAT
0x13f5f8…13f78c Dummy {f00=0x00d8, f01=0x0190, f02=»2 P ST A2,CRCSAV+6 P ST A3,CRCSAV+10 " P ST A4,CRCSAV+14 : P LDK A1,8 R P LDR A4,A8 GET OLD CRC d PCRC100 LDR A3,A4 P SRL A4,1 P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRKL A4,/A001
0x13f78c…13f920 Dummy {f00=0x00d8, f01=0x0190, f02=» P LDKL A3,0 P LDKL A4,0 P RTN A5 ( P EJECT 8 P* F P* P ( P* READ CRC CHARACTERS AND CHECK THEM Z P* CR = (E) IF CRC WAS OK P* P* PRDCRC EQU * P STR A8,A5 SAVE CURRENT CRC " P SUK A5,2 ADJUST STACK
0x13f920…13fab4 (1, 248) Dummy {f00=0x00d8, f01=0x0190, f02=» BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+6 SAVE IT < P SLL A2,8 P XRR A2,A4 n P ADK A5,6 P CW A2,-4,A5 P ABR* A5 P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER "
0x13fab4…13fc48 Dummy {f00=0x00d8, f01=0x0190, f02=»LRCEND P ANKL A8,/007F PLRCEND EQU * $ P CM SYNSW 8 P ABR* A5 J P Z P XIF b P EJECT n , P**************************************** | P* P* DRIVER WORK AREAS P* , P****************************************
0x13fc48…13fddc Dummy {f00=0x00d8, f01=0x0190, f02=»2 FREE BUFFER ANCHOR P IFF RBUFNR=2 P DATA *+RLINK 2 P RES RBUFL+3 H P IFF RBUFNR=3 P DATA *+RLINK r P RES RBUFL+3 P IFF RBUFNR=4 P DATA *+RLINK P RES RBUFL+3 P XIF P DATA *+RLINK P RES RBUFL
0x13fddc…13ff70 Dummy {f00=0x00d8, f01=0x0190, f02=» RES 3 MMU BUFFER FOR CONNECT REQUEST =16 P XIF 2 P EJECT > P* L P* V P* INTERRUPT LOGGING ROUTINE ` P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF LOG10 PLOGOUT ST A2,SAVE2 P
0x13ff70…140104 Dummy {f00=0x00d8, f01=0x018e, f02=»A3,LOGPNT P STR A2,A3 P ADK A3,2 $ P CWK A3,LOGEND 6 P RF(L) LOGEXI L P LDKL A3,LOGSTA b PLOGEXI ST A3,LOGPNT z P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT P* P* PLOGPNT DATA LOGSTA
0x140104…140298 Dummy {f00=0x00d8, f01=0x018e, f02=» P* P IFT RCOM=1 P EJECT " < P******************************************************* 0 P* p P* L I N C O L z P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* > P**********************************
0x140298…14042c Dummy {f00=0x00d8, f01=0x0190, f02=» & P LC A2,LICO:T,A2 ASCII LINE NUMBER " P CF A5,WRITEP SEND LINE NUMBER . P T P LDR A2,A3 P ANK A2,X'3F' n ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN P* P* P*
0x14042c…1405c0 Dummy {f00=0x00d8, f01=0x0190, f02=»F l * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/5D24,/2A29,/3B5E /18-/1F 8 * P DATA /2D2F,/5354,/5556,/5758 /20-/27 f * P DATA /595A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37 ( P DATA /3839,/3A23,/4027,/3
0x1405c0…140754 (1, 249) Dummy {f00=0x00d8, f01=0x0190, f02=» DATA 0,0 P DATA 0,0,0,0,0,0 P IFT MMUPAG=1 , P DATA 0,0 B P XIF T P* DRIVER DEPENDENT PART ` 2 P DATA DTESBU-DTETAB START OF STATISTIC BUFFER P DATA 0,0,0,0,0,0 P DATA 0,0,0,0,0,0 * PDTESBU EQU * P DATA 0
0x140754…1408e8 Dummy {f00=0x00d8, f01=0x0190, f02=» P* P* P* PROCEDURE WORK AREAS P* : P* D * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION N . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION | PXACK DATA 0 ACK EXPECTED PXSEL DATA 0 SELECTED PXETX DATA 0 ETX SENT 2 PXS
0x1408e8…140a7c Dummy {f00=0x00d8, f01=0x0190, f02=»=SKIP SYNS, 1=DON'T SKIP & PTPM DATA 0 IF =1 TRANSPARENT TEXT P* J PFECB RES 1 WRITING ECB T ( PFECBBA RES 1 WRITING BUFFER ADDRESS r & PFECBRL RES 1 WRITING BUFFER LENGTH PFBAX DATA 0 BUFFER INDEX 0 PFBLST DATA 0 START OF LAST TRANS
0x140a7c…140c10 Dummy {f00=0x00d8, f01=0x412e, f02=» QUEUE v , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA P* > P EJECT H P* V P* ` P* CONSTANTS AND WORK AREAS j P* P* PDCSTCU DATA 0 CURRENT STATUS , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL & PDCLCI DATA 0 DC UNIT
0x140c10…140da4 Dummy {f00=0x00d8, f01=0x2008, f02=» H P X ` h p x
0x140da4…140f38 Dummy {f00=0x00d8, f01=0x0190, f02=» ECBCW1 , ( K X .:D :D :D C , ( i B Y X . B DWTOPT r , ( @ X " P , ( X . ECBEL * & X &T
0x140f38…1410cc Dummy {f00=0x00d8, f01=0x0190, f02=» W @ W v DISEND , ( @W W W W W > > ( , ( 5 , L Q , L X R P X SETIME , ( U A " Y W Y , ( s W X Z X A " Y , ( _. Y
0x1410cc…141260 Dummy {f00=0x00d8, f01=0x0190, f02=» 0 % _ $ (P _ ) 1_@ , ( $ (XL P _ 0 )_Z & * , ( 1 (P _ ) 1 4 A A A A A Z , ( Q W , ( q > * ] , ( @ ] a 4 "
0x141260…1413f4 (1, 250) Opaque[0x194]
0x1413f4…141588 # DirEnt {nam=»DRDC17«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c20, f03=0x0000}
0x1413f4…141588 IdxSect {
0x1413f4…141588 f00 = 0x0061 // 0x1413f4 @0x0
0x1413f4…141588 f01 = 0x0054 // 0x1413f6 @0x2
0x1413f4…141588 gno = [ // 0x1413f8 @0x4
0x1413f4…141588 [0x00]: C0x0061.0x0.0
0x1413f4…141588 [0x01]: C0x0061.0x1.0
0x1413f4…141588 [0x02]: C0x0061.0x2.0
0x1413f4…141588 [0x03]: C0x0061.0x3.0
0x1413f4…141588 [0x04]: C0x0062.0x0.0
0x1413f4…141588 [0x05]: C0x0062.0x1.0
0x1413f4…141588 [0x06]: C0x0062.0x2.0
0x1413f4…141588 [0x07]: C0x0062.0x3.0
0x1413f4…141588 [0x08]: C0x0063.0x0.0
0x1413f4…141588 [0x09]: C0x0063.0x1.0
0x1413f4…141588 [0x0a]: C0x0063.0x2.0
0x1413f4…141588 [0x0b]: C0x0063.0x3.0
0x1413f4…141588 [0x0c]: C0x0064.0x0.0
0x1413f4…141588 [0x0d]: C0x0064.0x1.0
0x1413f4…141588 [0x0e]: C0x0064.0x2.0
0x1413f4…141588 [0x0f]: C0x0064.0x3.0
0x1413f4…141588 [0x10]: C0x0065.0x0.0
0x1413f4…141588 [0x11]: C0x0065.0x1.0
0x1413f4…141588 [0x12]: C0x0065.0x2.0
0x1413f4…141588 [0x13]: C0x0065.0x3.0
0x1413f4…141588 [0x14]: C0x0066.0x0.0
0x1413f4…141588 [0x15]: C0x0066.0x1.0
0x1413f4…141588 [0x16]: C0x0066.0x2.0
0x1413f4…141588 [0x17]: C0x0066.0x3.0
0x1413f4…141588 [0x18]: C0x0067.0x0.0
0x1413f4…141588 [0x19]: C0x0067.0x1.0
0x1413f4…141588 [0x1a]: C0x0067.0x2.0
0x1413f4…141588 [0x1b]: C0x0067.0x3.0
0x1413f4…141588 [0x1c]: C0x0068.0x0.0
0x1413f4…141588 [0x1d]: C0x0068.0x1.0
0x1413f4…141588 [0x1e]: C0x0068.0x2.0
0x1413f4…141588 [0x1f]: C0x0068.0x3.0
0x1413f4…141588 [0x20]: C0x0069.0x0.0
0x1413f4…141588 [0x21]: C0x0069.0x1.0
0x1413f4…141588 [0x22]: C0x0069.0x2.0
0x1413f4…141588 [0x23]: C0x0069.0x3.0
0x1413f4…141588 [0x24]: C0x006a.0x0.0
0x1413f4…141588 [0x25]: C0x006a.0x1.0
0x1413f4…141588 [0x26]: C0x006a.0x2.0
0x1413f4…141588 [0x27]: C0x006a.0x3.0
0x1413f4…141588 [0x28]: C0x006b.0x0.0
0x1413f4…141588 [0x29]: C0x006b.0x1.0
0x1413f4…141588 ]
0x1413f4…141588 }
0x141588…14171c Dummy {f00=0x0061, f01=0x0190, f02=» 0 P IDENT DRDC17 REL 11.0 81-07-07 870105041100 P 8 $ P =11, ASS ERR WHEN USING MSV2 @ & P =10, ITB TRANSMISSION INCLUDED h ( P =9, ABORT ROUTINE NOT RE-ENTRANT P REL 11.0 81-05-22 $ P =8, CLEARING OF TIMER POINTER . P =7,
0x14171c…1418b0 Dummy {f00=0x0061, f01=0x0190, f02=»DE IS USED t & P =4, CONTROL IF O/P INT ALLOWED P =3, TIMER HANDLING ERROR < $ P =2, INCOMPLETE LOGG FUNCTION ` " P =1, HALT O/P ERROR (SALCUZ) P REL 11.0 81-03-30 P < P******************************************************
0x1418b0…141a44 Dummy {f00=0x0061, f01=0x0190, f02=»S 6800 l P* 4 P* LINE PROCEDURE: BSC CONTENTION/SIEMENS MSV2 P* P P* Z P* d P* n P* x < P******************************************************* P* $ P* STANDARD USE OF REGISTERS : P* P* A1 WO
0x141a44…141bd8 Dummy {f00=0x0061, f01=0x0190, f02=»TER ~ P* A6 DWT ADDRESS P* A7 BCC ACCUMULATOR ( P* A8 ECB ADDRESS H P* d < P******************************************************* n P EJECT P* < P******************************************************* P*
0x141bd8…141d6c Dummy {f00=0x0061, f01=0x0190, f02=» AT POWER ON z P* P* INTERRUPT HANDLERS P* : P ENTRY IH1701 LINE 01 INPUT D P ENTRY IH1702 OUTPUT h P ENTRY IH1703 LINE 02 INPUT P ENTRY IH1704 OUTPUT P ENTRY IH1705 LINE 03 INPUT P ENTRY IH1706
0x141d6c…141f00 Dummy {f00=0x0061, f01=0x0190, f02=» P ENTRY DW1701 LINE 01 DWT P ENTRY DW1702 LINE 02 DWT & P ENTRY DW1703 LINE 03 DWT H P ENTRY DW1704 LINE 04 DWT j P EJECT P* < P******************************************************* P* P* EXTERNAL REFERENCES
0x141f00…142094 (1, 251) Dummy {f00=0x0061, f01=0x0190, f02=»DIO REQUEST COMPLETION 0 P EXTRN DISEND REQUEST COMPLETION+DISPATCHING P EXTRN DISIOE REQUEST ERROR R ( P EXTRN SETIME SET TIMER CALL ADDRESS v P EXTRN DWTST DWT STATUS " P EXTRN DWTECB DWT ECB ADDRESS P EXTRN DWTOR DWT ORDER $ P E
0x142094…142228 Dummy {f00=0x0061, f01=0x0190, f02=»CB RETURN CODE $ P EXTRN ECBCW1 ECB CONTROL-WORD 1 $ P EXTRN ECBCW2 ECB CONTROL-WORD 2 > 0 P EXTRN TASCII CODE CONV. TABLE EBCDIC-ASCII f 0 P EXTRN TEBCDIC CODE CONV. TABLE ASCII-EBCDIC * P EXTRN INTSAV SAVE AREA FOR INTERRUPTS $ P EXTRN ILLIN
0x142228…1423bc Dummy {f00=0x0061, f01=0x018e, f02=» DCSRST RESET STATISTIC AREA 2 P EXTRN DCSUPR UPDATE COUNTER IN STATISTIC AREA $ & P EXTRN DCSRED READ STATISTIC AREA Z ( P EXTRN LKMRQE ABORT NOT PERMITTED =9 , P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR =9 P EJECT P* P* P* FORM
0x1423bc…142550 Dummy {f00=0x0061, f01=0x0190, f02=» P* P* PX:A EQU 1 <=4 0 PNLINE EQU X:A NUMBER OF COMMUNICATION LINES . P b PX:B EQU 1 j . PBSC EQU X:B IF = 0. SIEMENS MSV2 PROCEDURE | P IF = 1. BSC PROCEDURE PX:C EQU 1 $ PCODE EQU X:C IF = 0. ASCII CODE P
0x142550…1426e4 Dummy {f00=0x0061, f01=0x0190, f02=»:E IF =1, SPACE COMPR./DECOMPR. PERFORMED P 2 PX:F EQU 0 : 8 PIDLELN EQU X:F IF =1, IDLE LINE ACTIVITY INCLUDED TO L " P HOLD A 2-WIRE SWITCHED LINE , P IN CASE OF NO COMMUNICATION ACTIVITY P PX:G EQU 0 6 PSTAT EQU X:G IF
0x1426e4…142878 Dummy {f00=0x0061, f01=0x0190, f02=»G AREA LENGTH PER LINE P PX:I EQU 0 & 0 PSALCUZ EQU X:I IF =0 DC CONTROL UNIT 6834 : ( P IF =1 DC CONTROL UNIT 6857/SALCUZ n P IFT SALCUZ=1 PX:J EQU /0A , PDAMI01 EQU X:J INPUT DEVICE ADDR LINE 01 P PX:K EQU /0B
0x142878…142a0c Dummy {f00=0x0061, f01=0x018e, f02=» PX:M EQU /0D , PDAMI04 EQU X:M INPUT DEVICE ADDR LINE 04 P XIF H P IFF SALCUZ=1 T PX:J EQU /02 j , PDAMI01 EQU X:J INPUT DEVICE ADDR LINE 01 ~ P PX:K EQU /22 , PDAMI02 EQU X:K INPUT DEVICE ADDR LINE 02 P PX:L EQ
0x142a0c…142ba0 Dummy {f00=0x0061, f01=0x018e, f02=» P XIF P PX:N EQU 0 * PTBUFL EQU X:N MMU BUFFER SIZE IN WORDS * P* X P* b . P* A PROGRAM VERSION USING TOSS MMU PAGING l * P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* PMMUPAG EQU 0 P* 6 P* A PROGRAM VERSION
0x142ba0…142d34 (1, 252) Dummy {f00=0x0061, f01=0x0190, f02=» P EJECT P* < P******************************************************* P* P* SYSTEM PARAMETERS f P* < P******************************************************* P* PDEVIND EQU 2 DEVICE INDEX P * PBUFLEN E
0x142d34…142ec8 Dummy {f00=0x0061, f01=0x0190, f02=»T DEVICE ADDRESS z P XIF P IFF SALCUZ=1 $ , PBIAS EQU /10 OUTPUT-INPUT DEVICE ADDRESS : P XIF j P v * PSPEED EQU 1 IF =1, HIGH SPEED (CT111) ~ P* * PITBUSE EQU 0 IF =1, ITB TO USER BUFFER P* < PITBTRM EQU 0 IF =1, ITB IS
0x142ec8…14305c Dummy {f00=0x0061, f01=0x0190, f02=»ER =10 f 4 P IF PRESENT IN SEND BUFFER, ALL ACCORDING =10 * P TO THE IBM 2780 PROTOCOL. SPAC =10 F 2 P COMP/DECOMP IS NOT ALLOWED IF ITBTRM=1 =10 t P* P* P* RETRY LIMITS P* ( PL:ENQ EQU 3 COUNT OUT AFTER 3 ENQ:S ,
0x14305c…1431f0 Dummy {f00=0x0061, f01=0x0190, f02=»E TIMEOUT VALUES P* . PT:BID EQU TBID BID TIMER, STANDARD IS 1 S " , PT:TTD EQU 20 TEMPORARY TEXT DELAY TIMER T ( PT:WACK EQU 20 TIMER FOR SENDING WACK 0 PT:ENQ EQU 30 TIMER FOR SENDING ENQ, IN CASE " P OF NO ANSWER FROM THE SLAVE 8
0x1431f0…143384 Dummy {f00=0x0061, f01=0x0190, f02=»RING O/P l > PT:MERR EQU T:MACT MODEM ERROR SUPERV. TIMER IN MASTER MODE D P*T:SERR EQU 3*(L:ENQ+1) MODEM ERROR SUPERV. TIMER IN SLAVE MODE R 0 PT:IDLE EQU 150 IDLE TIMER FOR SWITCHED LINES P* P* OPTION CODE EQUATES P* * PO:TRP EQ
0x143384…143518 Dummy {f00=0x0061, f01=0x0190, f02=» P* P IFT SPEED=1 . PLSPEED EQU /0200 HIGH SPEED SELECTION 6834 " P XIF T P IFT SPEED=0 ` * PLSPEED EQU 0 LOW SPEED SELECTION 6834 t P XIF P IFT COMPRS=1 P* P* SPACE COMPRESION CONSTANTS P* . PSP:MAX E
0x143518…1436ac Dummy {f00=0x0061, f01=0x0190, f02=» =4800 BPS P =63 <4800 BPS " PSP:MIN EQU 2 MIN NO OF SPACES 8 0 PSP:CHB EQU /40 SPACE COUNT CHAR SPECIAL BIT ^ * PSP:CHM EQU /3F SPACE COUNT CHAR MASK 0 PSP:ASC EQU /20 ASCII SPACE CHAR FOR DECOMPR P* P XIF
0x1436ac…143840 Dummy {f00=0x0061, f01=0x0190, f02=» ORDERS AND RETURN CODES x P* 6 P************************************************** * P* d P* ORDERS: n P* P* /21 - OPEN P* P* /22 - CLOSE P* P* /24 - CONNECT ACTIVE P* P* /27 - CONNECT PASSIVE
0x143840…1439d4 (1, 253) Dummy {f00=0x0061, f01=0x0190, f02=»S ~ P* P* /38 - SET STATUS P* . " P* /2D - READ/RESET STATISTICS 8 P* ^ P* /39 - SET TIMEOUT h P* P EJECT P* RETURN CODES: P* 6 P* STATUS WORD = 0 REQUEST COMPLETED NORMALLY P* B P*
0x1439d4…143b68 Dummy {f00=0x0061, f01=0x0190, f02=» R P* PBIT0 EQU /8000 REQUEST ERROR " PBIT1 EQU /4000 REQUEST ABORTED 6 2 PBIT2 EQU /2000 DATA INTERRUPT E.I. RVI OR ENQ . PBIT3 EQU /1000 END OF DATA UNITS E.I. EOT 0 PBIT4 EQU /0800 DATA SEGMENT E.I ETB RECEIVED : PBIT5 EQU /0400 Q
0x143b68…143cfc Dummy {f00=0x0061, f01=0x0190, f02=» PBIT8 EQU /80 NOT USED PBIT9 EQU /40 TIMEOUT " 6 PBIT10 EQU /20 DATA CANCELLED (EOT ON MESS. BLOCK) > PBIT11 EQU /10 SEQUENCE ERROR x ( PBIT12 EQU /08 INCORR. BUFFER LENGTH PBIT13 EQU /04 NOT USED * PBIT14 EQU /02 LOGICAL CONNECTION E
0x143cfc…143e90 Dummy {f00=0x0061, f01=0x0190, f02=»EQUEST COMPLETED NORMALY P " PR:RERR EQU BIT0 REQUEST ERROR ( P N 4 PR:INT EQU BIT2 ENQ ON 'BID' OR RVI ON MESS BLOCK V P 6 PR:EOT EQU BIT3 EOT RECEIVED TO COMPLETE A MESSAGE ( P RECEPTION, OR MAX NBR'S OF WACKS & P RECEIVED
0x143e90…144024 Dummy {f00=0x0061, f01=0x0190, f02=»RECEIVED p P 0 PR:NCON EQU BIT6 DLE EOT RECEIVED, INDICATING * P DISCONN. OF THE PHYSICAL CONNECTION L " P (SWITCHED CONNECTIONS ONLY) z P PR:TERR EQU BIT9 TIMEOUT P 2 PR:CANC EQU BIT10 EOT RECEIVED ON A MESS BLOCK P
0x144024…1441b8 Dummy {f00=0x0061, f01=0x0190, f02=»ONNECTION ERROR v & P E.G. NO ANSWER OR WRONG ANSWER P B PR:MNOP EQU BIT15 MODEM ERROR J P IFT STAT=1 n P EJECT B =************************************************************* * P* STATISTIC EQU:S * P* USED IN CALL
0x1441b8…14434c Dummy {f00=0x0061, f01=0x0190, f02=»Z WHERE X=1IF PARAMETER-2 USED AS INCREMENT 8 P* ELSE INCREMENT WITH +1 4 8 P* Y=1 IF DOUBLE WORD COUNTER p B P* ZZZZZZ= COUNTER INDEX AS LISTED BELOW * B =************
0x14434c…1444e0 Dummy {f00=0x0061, f01=0x0190, f02=»CH DATA BLOCKS RECEIVED ~ : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY " P (NBR OF TRANSMITTED WACK'S) ^ > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW 6 PCSSRAB EQU /13 " DATA BLOCKS REJECTED ABORTED $ P (EOT
0x1444e0…144674 (1, 254) Dummy {f00=0x0062, f01=0x0190, f02=» OR DUE TO A BCC ERROR 0 PCSSTBL EQU /15 " DATA BLOCKS TRANSMITTED 2 PCSSTRT EQU /16 " DATA BLOCKS RETRANSMITTED R , PCSSTAB EQU /17 " DATA BLOCKS ABORTED $ P (EOT RECEIVED AS RESPONSE TO P A DATA BLOCK) P P* DTE/
0x144674…144808 Dummy {f00=0x0062, f01=0x0190, f02=» /29 I/P THROUGHPUT ERROR ( PCSCDOT EQU /2A O/P THROUGHPUT ERROR " $ PCSCDCE EQU /2B DCE NOT OPERABLE N P XIF v P EJECT 6 P************************************************* P* P* DEVICE WORK AREAS P* 2 P**************
0x144808…14499c Dummy {f00=0x0062, f01=0x0190, f02=» 1 = DEVICE NOT BUSY P* * , PS:BID EQU BIT10 BID SEQUENCE IN PROGRESS 4 * PS:EOT EQU BIT11 EOT HAS BEEN RECEIVED d 2 PS:BACK EQU BIT12 BLOCK ACKNOWLEDGED WITH WACK 2 PS:NCON EQU BIT13 NO PHYSICAL CONNECTION EXISTS $ PS:CERR EQU
0x14499c…144b30 Dummy {f00=0x0062, f01=0x0190, f02=»******* ` P* ! $ P* LINE CONTROL CHARACTER EQUATES ! P* ! B < P******************************************************* ! L P* ! ( PA:SPAC EQU /20 ASCII SPACE CHARACTER ! ( PA:SYN EQU /16 ASCII SYNCHRONOUS IDLE ! & PA:ETB EQU /17 ASCII ETB CH
0x144b30…144cc4 Dummy {f00=0x0062, f01=0x018e, f02=»DATA LINK ESCAPE ! $ PC:SOH EQU /01 START OF HEADING " PC:STX EQU /02 START OF TEXT " @ PC:ETX EQU /03 END OF TEXT " d , PC:EM EQU /19 END OF MEDIA CHARACTER =10 " P IFT CODE=0 " " PC:SYN EQU /16 SYNCHRONOUS IDLE " & PC:EOT EQU /04 END OF TRA
0x144cc4…144e58 Dummy {f00=0x0062, f01=0x018e, f02=» " h * PC:RVI EQU /3C SEC CHAR IN RVI SEQUENCE # . PC:ACK0 EQU /30 SEC CHAR IN ACK 0 SEQUENCE # 6 . PC:ACK1 EQU /31 SEC CHAR IN ACK 1 SEQUENCE # h PGS EQU /1D GROUP SEPARATOR # " PC:SPAC EQU /20 SPACE CHARACTER # " PC:ITB EQU /1F UNIT SEPARATOR # "
0x144e58…144fec Dummy {f00=0x0062, f01=0x0190, f02=» P XIF $ P IFT CODE=0 $ P IFT BSC=0 $ $ , PC:WACK EQU /BF SEC CHAR IN WABT SEQUENCE $ 6 P SIEMENS MSV2 PROCEDURE $ f P XIF $ * P IFT CODE=1 EBCDIC CHARACTER EQUATES $ " PC:SYN EQU /32 SYNCHRONOUS IDLE $ & PC:EOT EQU /37 END OF TRANSMISSIO
0x144fec…145180 Dummy {f00=0x0062, f01=0x0190, f02=»FT BSC=1 $ , PC:WACK EQU /6B SEC CHAR IN WACK SEQUENCE % P XIF % @ P IFT CODE=1 % L P IFT BSC=0 % ` * PC:WACK EQU /7F WABT CODE FOR MSV2 =11 % r P XIF % P IFT CODE=1 % * PC:RVI EQU /7C SEC CHAR IN RVI SEQUENCE % . PC:ACK0 EQU /70 SEC CHAR IN
0x145180…145314 (1, 255) Dummy {f00=0x0062, f01=0x0190, f02=» $ PC:SPACE EQU /40 SPACE CHARACTER & PIUS EQU /1F UNIT SEPARATOR & , PC:ITB EQU IUS RENAME ITB & P * PC:PAR EQU /00 NO PARITY BIT IN EBCDIC & p P XIF & P EJECT & B P************************************************************* & P* & . P
0x145314…1454a8 Dummy {f00=0x0062, f01=0x0190, f02=» P IFF SALCUZ=1 ' PC:CARR EQU /100 CARRIER ON ' : PC:CRSP EQU C:CARR+LSPEED CARRIER ON + SPEED SELECTION ' B P XIF ' P* ' P* ' P EJECT ' 8 P*************************************************** ' P* ' ( P* LINE CONTROL U
0x1454a8…14563c Dummy {f00=0x0062, f01=0x0190, f02=»ROUGHPUT ERROR ' t P IFT SALCUZ=1 ( 0 PS:PARE EQU /04 CHAR PARITY ERROR ( 2 P XIF ( f * PS:CARR EQU /20 CARRIER OFF ( v , PS:CALL EQU /40 INCOMING CALL ( P* ( P IFT SALCUZ=1 ( . PS:ERR EQU /27 S:
0x14563c…1457d0 Dummy {f00=0x0062, f01=0x0190, f02=» ( : P****************************************************** ) P* ) F $ P* LINE CONTROL UNIT INSTRUCTIONS ) P P* ) x : P****************************************************** ) P* ) * PHLTI:P CIO A2,0,0 HALT INPUT CU DEVICE ) P* ) . PSSTI:P
0x1457d0…145964 Dummy {f00=0x0062, f01=0x0190, f02=»UTPUT CU DEVICE ) x P* * 0 PSSTO:P SST A2,0 GET OUTPUT CU DEVICE STATUS * " P* * V , PSTAO:P CIO A2,1,0 START OUTPUT CU DEVICE * ` P* * 2 PINR:A2 INR A2,0,0 GET CHARACTE FROM CU DEVICE * P* * 4 POTR:A2 OTR A2,0,0 OUTPUT CHARACTER TO CU DEVIC
0x145964…145af8 Dummy {f00=0x0062, f01=0x0190, f02=» * n P XIF + P IFF SALCUZ=1 + & PCIODIS EQU STAI:P DISCONNECT MODEM + * P XIF + T P* + ` P EJECT + j P* + x P* DLS MODE EQUATES + P* + P* MAIN MODES + P* + PCNTRL EQU /0000 CONTROL MODE + " PRECEIV EQU /0200 RECEIVE MODE +
0x145af8…145c8c Dummy {f00=0x0062, f01=0x0190, f02=»ALL + z , PNOLCON EQU 4 NO LOGICAL CONNECTION MODE , $ PWACK0 EQU 6 WAIT FOR ACK 0 MODE , < PWACKD EQU 2 WACK DELAY , d PWSTX EQU 4 WAIT FOR STX , . PNONTRP EQU 6 NON-TRANSPARENT RECEIVE MODE , * PTRANSP EQU 8 TRANSPARENT RECEIVE MODE , $ PLRECOV
0x145c8c…145e20 Dummy {f00=0x0062, f01=0x0190, f02=»******************************************************************* , P* - L D P* INDEX FOR ALL BY THE DRIVER USED CHARACTERS, FOR THE DIFFERENT - V D P* TIMEOUTS, AND FOR SST INTERRUPTS. THE INDEX ARE USED TOGETHER - > P* WITH THE DLS MODE TO MAKE A BRAN
0x145e20…145fb4 (1, 256) Dummy {f00=0x0062, f01=0x0190, f02=» P* . 0 PI:RQT EQU 0 REQUEST TIMEOUT AND ABORT INDEX . ( PI:PRT EQU 2 PROCEDURE TIMEOUT INDEX . B $ PI:SST EQU 4 SST INTERRUPT INDEX . n , PI:SYN EQU 6 INDEX FOR THE SYN CHARACTER . ( PI:STX EQU 8 '' STX '' . ( PI:ITB EQU /A ''
0x145fb4…146148 Dummy {f00=0x0062, f01=0x018e, f02=»EOT '' . v ( PI:DLE EQU /12 '' DLE '' / ( PI:NAK EQU /14 '' NAK '' / > ( PI:ENQ EQU /16 '' ENQ '' / j ( PI:GS EQU /18 '' GS '' / , PI:CHR EQU /1A INDEX FOR A DATA CHARACTER / P EJECT / * P********
0x146148…1462dc Dummy {f00=0x0062, f01=0x0190, f02=» / P IFT STAT=0 0 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART 0 P XIF 0 P P IFT STAT=1 0 PDWTDRD EQU /1A 0 p P XIF 0 P* 0 P IFT MMUPAG=0 0 PSTART EQU DWTDRD 0 P XIF 0 P* 0 P IFT MMUPAG=1 0 PSTART EQU DWTDRD+4
0x1462dc…146470 Dummy {f00=0x0062, f01=0x0190, f02=»WT DC REL LINK TO HEAD DWT 0 | 2 PDWTCHN EQU START-6 DWT DC REL LINK TO NEXT DWT 1 " , PDWTLAD EQU START-4 DWT LOCAL DTE ADDRESS 1 X , PDWTSUB EQU START-2 POSSIBLE SUB ADDRESS 1 P XIF 1 . PDWTTIM EQU START APPLICATION TIMEOUT VALUE 1 . PDWTMOD EQU START+2
0x146470…146604 Dummy {f00=0x0062, f01=0x0190, f02=»RT+8 ABORT INDICATOR 1 ( PDWTINP EQU START+/0A INUT INDICATOR 2 0 PDWTOUT EQU START+/0C OUTPUT ACTIVE INDICATOR 2 H 0 PDWTPTP EQU START+/0E PROCEDURE TIMER POINTER 2 | . PDWTRTP EQU START+/10 REQUEST TIMER POINTER 2 8 PDWTMTP EQU START+/12 MODEM SUPERVISORY
0x146604…146798 Dummy {f00=0x0062, f01=0x0190, f02=» EQU START+/18 ENQ COUNTER 2 & PDWTWTR EQU START+/1A WACK COUNTER 3 " 0 PDWTRTR EQU START+/1C RETRANSMISSION COUNTER 3 L & PDWTLRS EQU START+/1E LAST RESPONSE 3 $ PDWTCNT EQU START+/20 ACK COUNTER 3 & PDWTDLE EQU START+/22 DLE INDICATOR 3 4 PDWTCMP EQU S
0x146798…14692c Dummy {f00=0x0062, f01=0x0190, f02=»TART+/4C STACK BASE (6 LEVEL STACK) 3 P XIF 4 , P IFT CPU852=1 4 8 < PDWTSAV EQU START+/26 SAVE AREA FOR REGISTERS A3-A5,A7,A8 4 N 4 PDWTSTB EQU START+/46 STACK BASE (6 LEVELS STACK) 4 P XIF 4 P IFT ITBTRM=1 =10 4 6 PDWTITB EQU START+/48 CHARACT
0x14692c…146ac0 Dummy {f00=0x0062, f01=0x0190, f02=»******************************************************* 4 P* 5 @ P* 5 J & P* D R I V E R A C T I V A T I O N 5 T P* 5 ~ P* 5 < P******************************************************* 5 < P******************************************************
0x146ac0…146c54 (1, 257) Dummy {f00=0x0062, f01=0x0190, f02=»ABORT ROUTINE ADDRESS 5 P DATA 0,0 DC:MIN HEADER 6 P* 6 > P* 6 H PDRMACT EQU * 6 R ( P LDK A5,DWTSTB SET UP A5 STACK BASE 6 f $ P ADR A5,A6 IN CASE OF I/O START 6 6 P LD A1,DWTMOD,A6 GET DATA LINK STATION (DLS) MODE 6 P SUK A7,0 6 P R
0x146c54…146de8 Dummy {f00=0x0062, f01=0x0190, f02=»TAT READ/RESET STATISTICS 6 P 7 " P SUK A7,/38-/2D 7 * P RF(Z) SETST SET STATUS 7 B P 7 b P SUK A7,/39-/38 7 j P RF(Z) SETTIM SET TIMEOUT 7 P 7 , P ADK A7,/39 LOAD A7 WITH ORIGINAL ORDER 7 $ P LD A2,DWTST,A6 GET LINE STATUS 7 P ANK
0x146de8…146f7c Dummy {f00=0x0062, f01=0x0190, f02=»7,/06-/02 7 , P ABL(Z) SEND00 TRANSMIT A MESSAGE BLOCK 8 P SUK A7,/21-/06 8 B P ABL(Z) OPEN CONNECT MODEM 8 Z P SUK A7,/24-/21 8 | ( P ABL(Z) CONACT TRY TO BECOME MASTER 8 P SUK A7,/27-/24 8 . P ABL(Z) CONPAS LOOK FOR A DATA LINK 'BID' 8
0x146f7c…147110 Dummy {f00=0x0062, f01=0x0190, f02=»*********************************** 8 P* 9 , P* MAIN ABORT ENTRY 9 6 P* 9 P . P***************************************** 9 Z P* 9 PABORT EQU * . 9 ( P LD A1,DWTABT,A6 ABORT ALLOWED ? =9 9 P RF(NN) ABOR10 YES =9 9 & P CM DWTWAT,A6 INDI
0x147110…1472a4 Dummy {f00=0x0062, f01=0x0190, f02=»S =9 9 f $ P LDK A5,DWTSTB SET A5 STACK BASE : & P ADR A5,A6 IN CASE IT WILL BE USED : 4 P =9 : ^ 4 P LDK A1,I:RQT INDEX FOR ABORT (=REQUEST TIMEOUT) : l ( P IM DWTABT,A6 INDICATE ABORT ISSUED : . P ABL JUMP BRANCH TO CORRECT ABORT HANDLER : P EJECT
0x1472a4…147438 Dummy {f00=0x0062, f01=0x0190, f02=»***************************** : ~ P ; & P* MODEM OR CU ERROR ; . P* ; J PDCEERR EQU * ; T P LDK A1,R:MNOP ; h P RF CMPLT ; ~ P* ; P* LOGICAL CONNECTION ERROR ; P* ; PCONERR EQU * ; P LDK A1,R:CERR ; P RF CMPLT ; P* ;
0x147438…1475cc Dummy {f00=0x0062, f01=0x0190, f02=» ; P* < PSEQERR EQU * < P LDK A1,R:SERR < & P RF CMPLT < < P* < N " P* REQUESTED TIMER HAS EXPIRED < X P* < ~ PTIMERR EQU * < P LDK A1,R:TERR < P RF CMPLT < P EJECT < P* < $ P* BLOCK ENDED WITH ETB RECEIVED < P* <
0x1475cc…147760 Dummy {f00=0x0062, f01=0x0190, f02=»,R:EOT < P RF CMPLT = P* = 6 P* ENQ ON 'BID' OR RVI ON A MESSAGE BLOCK RECEIVED = * P* = d PINTRTN EQU * = n P LDKL A1,R:INT = P RF CMPLT = P* = P* REQUEST ERROR = P* = PREQERR EQU * = P LDKL A1,R:RERR = P RF CM
0x147760…1478f4 (1, 258) Dummy {f00=0x0063, f01=0x0190, f02=» DISEND TENDIO+DISPATCH = P EJECT > F P****************************************************************** > . P* > x 2 P* REQUEST HANDLER FOR THE SET TIMEOUT REQUEST > P* > F P****************************************************************** >
0x1478f4…147a88 Dummy {f00=0x0063, f01=0x0190, f02=»REQUEST > x P EJECT ? @ P************************************************************ ? P* ? b 0 P* REQUEST HANDLER FOR THE SET STATUS REQUEST ? l P* ? @ P************************************************************ ? P* ? PSETST EQU * ?
0x147a88…147c1c Dummy {f00=0x0063, f01=0x0190, f02=»SED) ? ^ P ST A1,DWTCON,A6 SAVE IN DWT @ $ P RB RTN:OK COMPLETE THE REQUEST @ 0 P EJECT @ X F P****************************************************************** @ f P* @ 2 P* REQUEST HANDLER FOR THE READ STATUS REQUEST @ P* @ F P**************
0x147c1c…147db0 Dummy {f00=0x0063, f01=0x0190, f02=»A6 GET OPERATIONAL MODE @ & P RF(Z) READ20 INITIAL CONTROL MODE A 0 P LDK A1,/2 INDICATE DTE-DCE INTERFACE ACTIVE A J P LD A2,DWTST,A6 A ~ P ANK A2,1 MODEM OK ? A P RF(NZ) READ20 NO A P ADK A1,/1 INDICATE MODEM OK A PREAD10 EQU * A ( P CWK
0x147db0…147f44 Dummy {f00=0x0063, f01=0x0190, f02=»CON,A6 GET TYPE OF CONNECTION A $ P RF(Z) READ30 LEASED CONNECTION B & ( P SLL A2,8 PUT BIT IN RIGHT POSITION B N , P XRR A1,A2 INDICATE SWITCHED CONNECTION B z PREAD30 EQU * B 4 P ST A1,ECBCW1,A8 STORE STATUS IN CONTROL-WORD 1 B $ P RB RTN:OK COMPLET
0x147f44…1480d8 Dummy {f00=0x0063, f01=0x0190, f02=»LER FOR THE READ/RESET STATISTICS REQUEST B P* C 2 H P******************************************************************** C < P* C PRRSTAT EQU * C P IFF STAT=1 C , P RB REQERR STATISTIC OPTION NOT INCLUDED C P XIF C P IFT STAT=1 C :
0x1480d8…14826c Dummy {f00=0x0063, f01=0x0190, f02=»HING WAS WRONG C x P LC A1,ECBCW1,A8 D " P ANK A1,/FF GET REQUEST OPTION D . & P SUK A1,/43 RESET STATISTIC AREA ? D T ( P RB(NZ) RTN:OK NO, COMPLETE REQUEST D ~ ( P CF A15,DCSRST RESET STATISTIC AREA D P RB RTN:OK COMPLETE REQUEST D P XIF D P E
0x14826c…148400 Dummy {f00=0x0063, f01=0x018e, f02=»EST D l * E J P********************************************************************* E P* E d OPEN EQU * E n $ LDR A1,A1 GET OPERATIONAL MODE E $ P RB(NZ) RTN:OK LINE ALREADY OPEN E * P LD A1,DWTCON,A6 SWITCHED CONNECTION ? E 0 P RB(NZ) RT
0x148400…148594 (1, 259) Dummy {f00=0x0063, f01=0x0190, f02=» E r LDR A1,A1 MODEM OK ? F P RF(N) OPEN10 NO F & P LDK A1,R:OK RC=0 F > P RF OPEN20 F X POPEN10 EQU * F j ( P LDK A1,R:MNOP RC=MODEM NOT OPERABLE F ~ POPEN20 EQU * F ( P CF A15,TENDIO COMPLETE THE REQUEST F POPEN30 EQU * F P LDKL A1,C
0x148594…148728 Dummy {f00=0x0063, f01=0x0190, f02=»ORT ALLOWED =9 F | P LD A1,DWTST,A6 G P ANK A1,S:MNOP MODEM OK ? G . . P ABL(NZ) MODR30 NO, TRY TO RECONNECT MODEM G P P WITHOUT TIME SUPERVISION G " P RF NCON65 MODEM OK, START I/P G P EJECT G P* G 6 P* TIMEOUT AND ABORT ENTRY IN INITIAL
0x148728…1488bc Dummy {f00=0x0063, f01=0x0190, f02=»T MODEM G z P RF NCON85 H P EJECT H " P* H 0 > P* INPUT CHARACTER HANDLERS IN 'NO LOGICAL CONNECTION' MODE H : P* H | P* H P* SYN CHARACTER RECEIVED H P* H PNCON EQU * H & P ABL BRM010 READ ANOTHER CHARACTER H P* H P* DLE RE
0x1488bc…148a50 Dummy {f00=0x0063, f01=0x018e, f02=»EAD READ A CHARACTER H " P SUK A2,C:EOT EOT CHARACTER ? I * P RB(NZ) NCON NO, TAKE AS TERMINAL 'ID' I B $ P CF A5,CHKPAD CHECK TRAILING PAD I p PNCON20 EQU * I ( P RB(NZ) NCON NOT A PAD, TAKE AS 'ID' I P* I : P* (SYN),DLE,EOT,PAD RECEIVED ON A SWIT
0x148a50…148be4 Dummy {f00=0x0063, f01=0x0190, f02=» P LDK A3,S:NCON J < P ORS A3,DWTST,A6 INDICATE CONNECTION BROKEN, IF NO REQ. J " P LD A2,DWTST,A6 ANY REQUEST ? J Z P RF(N) NCON35 NO J ( P CF A15,TENDIO COMPLETE THE REQUEST J 0 P XRS A3,DWTST,A6 RESET CONNECTION BROKEN BIT J PNCON35 EQU * J
0x148be4…148d78 Dummy {f00=0x0063, f01=0x0190, f02=»A15,CRQTIM CLEAR REQUST TIMER J 0 P CM DWTABT,A6 INDICATE ABORT RECOV COMPLETED K & P LDKL A1,/8000+S:NCON K Z & P ANS A1,DWTST,A6 CLEAR LINE STATUS K x P =9 K P ABL TDISP K P* K P* ENQ RECEIVED K P* K PNCON40 EQU * K $ P CF A5,C
0x148d78…148f0c Dummy {f00=0x0063, f01=0x0190, f02=»INT PREPARE TO ANSWER THE 'BID' K $ P ABL RTN:OK COMPLETE THE REQUEST L ( PNCON45 EQU * L P P CF A5,TREOT SEND EOT L d " P LD A1,DWTMOD,A6 GET DLS MODE L 8 P CWK A1,CNTRL+WACK0 CONNECT ACTIVE REQUEST ISSUED ? L P RF(E) CON040 YES, SEND ENQ L P
0x148f0c…1490a0 Dummy {f00=0x0063, f01=0x0190, f02=»F(Z) NCON65 PAD OK,RESTART I/P L P* M & $ P* NOT ALLOWED CHARACTER RECEIVED M 0 P* M X PNCON60 EQU * M b * P LD A1,DWTCON,A6 SWITCHED CONNECTION ? M v * P RB(NZ) NCON YES, TAKE AS TERMINAL'ID' M PNCON65 EQU * M P ABL BRM RESTART INPUT M P* M
0x1490a0…149234 (1, 260) Dummy {f00=0x0063, f01=0x0190, f02=»RS A2,DWTST,A6 INDICATE MODEM ERROR M " P LD A1,DWTST,A6 ANY REQUEST ? N , P RF(N) NCON80 NO N R , P LD A1,DWTRTP,A6 REQUEST TIMER RUNNING ? N j ( P RF(NZ) NCON80 YES, WAIT FOR TIMEOUT N " P LDK A1,R:MNOP RC=MODEM NOT OP N $ P CF A15,TENDIO COMPLETE REQU
0x149234…1493c8 Dummy {f00=0x0063, f01=0x0190, f02=»TIMEOUT AND ABORT ENTRY IN 'NO CONNECTION' MODE N P* O 8 PNCON85 EQU * O B & P CF A15,CRQTIM KILL REQUEST TIMER O V $ P LD A1,DWTABT,A6 ABORT ISSUED ? O P RF(Z) NCON95 NO O PNCON90 EQU * O 0 P CM DWTABT,A6 INDICATE ABORT RECOV COMPLETED O $ P
0x1493c8…14955c Dummy {f00=0x0063, f01=0x0190, f02=»********************************************** O * P 6 , P* REQUEST HANDLER FOR THE CLOSE REQUEST P @ * P p < 8******************************************************** P z * P CLOSE EQU * P $ LDR A1,A1 GET OPERATIONAL MODE P & P ABL(Z)
0x14955c…1496f0 Dummy {f00=0x0063, f01=0x0190, f02=»AL CONNECTION' MODE ? P r P RF(NE) CLOS30 Q PCLOS00 EQU * Q 4 < P CF A15,CMCTIM KILL MODEM CONNECTION TIMER (IF RUNNING) Q H P LDK A1,R:OK RC=0 Q $ P RB NCON30 COMPLETE THE REQUEST Q PCLOS10 EQU * Q ( P CWK A1,CNTRL+NOLCON DATA LINK UP ? Q
0x1496f0…149884 Dummy {f00=0x0063, f01=0x0190, f02=»+INIT INITIAL SEND MODE ? Q P RF(NE) CLOS30 R " PCLOS20 EQU * R 8 , P CM DWTMOD,A6 SET 'INITIAL CONTROL' MODE R L $ P LD A1,DWTST,A6 GET LINE STATUS R | P ANK A1,S:MNOP MODEM OK ? R 4 P RB(NZ) CLOS00 NO, SKIP TRANSMISSION OF DLE EOT R P =9 R
0x149884…149a18 Dummy {f00=0x0063, f01=0x0190, f02=» R P CF A5,WRITE SEND DLE S , P CF A5,TREOT5 SEND EOT PAD AND HALT O/P S & 4 P RB CLOS00 DISCONNECT MODEM AND COMLETE REQUEST S V PCLOS30 EQU * S P LD A1,DWTST,A6 GET STATUS S P ANK A1,S:MNOP MODEM OK ? S P* S , P* MODEM RECOVERY IN PROG
0x149a18…149bac Dummy {f00=0x0063, f01=0x0190, f02=»******************************** S j * T ( 6 P* REQUEST HANDLER FOR THE CONNECT ACTIVE REQUEST T 2 * T l F A***************************************************************** T v * T CONACT EQU * T ( P LD A2,DWTCON,A6 LEASED CONNECTION ? T
0x149bac…149d40 Dummy {f00=0x0063, f01=0x0190, f02=»? T j P RF(Z) CON010 NO U < P CF A15,SRQTIM START TIME SUPERVISION OF PHYS CON PHASE U " PCON010 EQU * U b & P CF A5,ACTDCE TRY TO CONNECT MODEM U v & P LDR A1,A1 CONNECTION SUCCESSFUL ? U P RB(N) CON010 NO, TRY AGAIN U : P CF A15,CRQTIM NO TIME SUP
0x149d40…149ed4 (1, 261) Dummy {f00=0x0063, f01=0x0190, f02=»BL(NE) SEQERR NO, REQUEST ISSUED IN WRONG MODE U PCON030 EQU * V 6 LDK A1,WACK0 V J . ) SC A1,DWTMOD+1,A6 SET WAIT FOR ACK0 MODE V ` P* PREPARE RETRY COUNTERS V P* V P LDKL A1,-L:ENQ+1 V . P ST A1,DWTETR,A6 MAX NBRS OF T-O OR NAK'S V P
0x149ed4…14a068 Dummy {f00=0x0063, f01=0x0190, f02=»Z) TDISP YES WAIT UNTIL O/P COMPLETED V PCON040 EQU * W . $ P LD A1,DWTABT,A6 ABORT ISSUED ? W B P RF(NZ) CON060 YES, SEND EOT W j P CF A5,TRENQ NO, SEND ENQ W P LDK A1,T:BID W ( P CF A15,SPRTIM START PROCEDURE TIMER W PCON050 EQU * W A
0x14a068…14a1fc Dummy {f00=0x0063, f01=0x018e, f02=»REOT SEND EOT W PCON070 EQU * X & P LDK A1,R:CERR PRESET RETURN CODE X * PCON080 EQU * X T P LDKL A2,CNTRL+NOLCON X h 6 P ST A2,DWTMOD,A6 SET 'NO LOGICAL CONNECTION' MODE X $ P LD A2,DWTABT,A6 ABORT ISSUED ? X P RF(Z) CON090 NO X 0 P CM DWTA
0x14a1fc…14a390 Dummy {f00=0x0063, f01=0x0190, f02=» P RB CON050 START INPUT Y EJECT Y " * Y 0 4 0* INPUT CHARACTER HANDLERS IN WAIT FOR ACK0 MODE Y : * Y r Y | P* Y P* SYN RECEIVED Y P* Y PCON100 EQU * Y & P ABL BRM010 READ ANOTHER CHARACTER Y * Y * DLE RECEIVED Y
0x14a390…14a524 Dummy {f00=0x0063, f01=0x0190, f02=»CON210 NOT A PAD Y . P LDR A2,A4 RESTORE LAST RECEIVED CHARACTER Z ( P CWK A2,C:ACK0+C:PAR ACK0 RECEIVED ? Z J P RF(NE) CON130 NO Z v CF A5,HLTINP HALT INPUT Z ( P CF A15,CPRTIM KILL PROCEDURE TIMER Z $ P LD A1,DWTABT,A6 ABORT ISSUED ? Z P RB(
0x14a524…14a6b8 Dummy {f00=0x0063, f01=0x0190, f02=»ENT MODE Z n P LDK A1,1 [ ( P ST A1,DWTCNT,A6 UPDATE ACK COUNTER [ " LDKL A1,SEND+INIT [ N . P ST A1,DWTMOD,A6 SET INITIAL TRANSMIT MODE [ h P LDK A1,T:TTD [ 8 P CF A15,SPRTIM START PROCEDURE TIMER FOR TEXT DELAY [ . ) ABL RTN:OK COMPLETE REQUEST
0x14a6b8…14a84c Dummy {f00=0x0063, f01=0x0190, f02=»TIMER [ r , P IM DWTWTR,A6 MAX NBR OF WACK RECEIVED ? P RB(P) CON060 YES, SEND EOT > $ P RB CON040 NO, SEND ANOTHER ENQ b PCON140 EQU * ( P LD A1,DWTCON,A6 LEAST CONNECTION ? 0 P RB(Z) CON050 YES, WRONG SEQ. RESTART INPUT P SUK A2,C:
0x14a84c…14a9e0 Dummy {f00=0x0063, f01=0x018e, f02=»ONNECTION j P* ] PCON150 EQU * ] P ABL NCON25 ] 0 P EJECT ] D * ] R * ENQ RECEIVED ON ENQ ] * ] z PCON160 EQU * ] $ P CF A5,CHKPAD CHECK TRAILING PAD ] P RF(NZ) CON210 NOT A PAD ] P CF A15,CPRTIM KILL TIMER ] $ P LD A1
0x14a9e0…14ab74 (1, 262) Dummy {f00=0x0064, f01=0x0190, f02=» ] 8 P ORS A1,DWTST,A6 DISCONNECT ALLOWED DESPITE OF WACK ^ , P ABL INTRTN NOTIFY APPLICATION ABOUT ENQ ^ D * ^ t P* NAK RECEIVED ^ ~ * ^ PCON170 EQU * ^ $ P CF A5,CHKPAD CHECK TRAILING PAD ^ P RF(NZ) CON210 NOT A PAD ^ ( P CF A15,CPRTIM
0x14ab74…14ad08 Dummy {f00=0x0064, f01=0x0190, f02=» RB CON040 NO, SEND ENQ ^ P EJECT _ * _ . * EOT RECEIVED _ 8 * _ N PCON190 EQU * _ X $ P CF A5,CHKPAD CHECK TRAILING PAD _ l P RF(NZ) CON210 NOT A PAD _ PCON200 EQU * _ CF A5,HLTINP _ P CF A15,CPRTIM _ 0 P RB CON070 EOT RECEI
0x14ad08…14ae9c Dummy {f00=0x0064, f01=0x0190, f02=»CON,A6 SWITCHED LINES ? _ $ P RB(NZ) CON100 YES, TAKE AS 'ID' ` P RB CON050 N0, RESTART INPUT ` H P* ` l P* PROCEDURE TIMEOUT ` v P* ` PCON220 EQU * ` P RB CON180 ` * ` * SST INTERRUPT ` * ` PCON230 EQU * ` , P ABL M
0x14ae9c…14b030 Dummy {f00=0x0064, f01=0x0190, f02=»:OK COMLETE ABORT, BUT DON'T CLEAR FLAG ` EJECT a 0 F A***************************************************************** a > * a D ?* TIMEUOT ENTRY FOR SENDING TEMPORARY TEXT DELAY (TTD) SEQUENCE a * a F A************************************
0x14b030…14b1c4 Dummy {f00=0x0064, f01=0x0190, f02=» * a P LDKL A1,-L:ENQ b . P ST A1,DWTETR,A6 LIMIT BEFORE SENDING EOT b " PTTD015 EQU * b T " CF A5,TRTTD SEND TTD SEQUENCE b h PTTD020 EQU * b P LDK A1,T:ENQ b ( P CF A15,SPRTIM START PROCEDURE TIMER b P ABL BRM START INPUT b EJECT b
0x14b1c4…14b358 Dummy {f00=0x0064, f01=0x0190, f02=»30 EQU * b & P ABL BRM010 READ ANOTHER CHARACTER c * c : * NAK RECEIVED c D * c Z PTTD040 EQU * c d $ P CF A5,CHKPAD CHECK TRAILING PAD c x PTTD050 EQU * c P RF(NZ) TTD090 NOT A PAD c CF A5,HLTINP HALT INPUT c P CF A15,CPRTIM KILL
0x14b358…14b4ec Dummy {f00=0x0064, f01=0x0190, f02=»0 NO c LD A1,DWTOR,A6 GET ORDER d ANK A1,/FF d . P SUK A1,/06 WRITE ORDER ? d B $ P ABL(Z) SEN035 YES, START OUTPUT d d " P SUK A1,/22-/06 CLOSE ORDER ? d P ABL(Z) CLOS20 YES d P EJECT d P* d P* DISCONNECT REQUEST PRESENT d P
0x14b4ec…14b680 Dummy {f00=0x0064, f01=0x0190, f02=» d ~ ( P CF A15,TENDIO COMPLETE THE REQUEST e P ABL NCON45 SEND EOT e 4 PTTD080 EQU * e P P LDK A1,T:TTD e d $ P CF A15,SPRTIM RESTART TTD TIMER e z * & ABL TDISP WAIT FOR REQUEST OR TIMEOUT e * e $ P* NOT ALLOWED CHARACTER RECEIVED e * e
0x14b680…14b814 (1, 263) Dummy {f00=0x0064, f01=0x0190, f02=»RETRY LIMIT REACHED ? e . P RB(NP) TTD015 NO, RETRANSMIT TTD SEQUENCE f PTTD105 EQU * f P P CF A5,TREOT YES, SEND EOT f d " P LD A1,DWTST,A6 ANY REQUEST ? f P ABL(N) WACK90 NO f P LD A1,DWTOR,A6 f P ANK A1,/FF GET ORDER f P SUK A1,/06
0x14b814…14b9a8 Dummy {f00=0x0064, f01=0x018e, f02=»> RC=0 f j P ABL OPEN20 g * g " * SST INTERRUPT g , * g D PTTD120 EQU * g N , P ABL MODREC BRANCH TO COMMON SST HANDLER g b P* g & P* ABORT ENTRY IN WAIT FOR NAK MODE g P* g PTTD150 EQU * g * P CM DWTABT,A6 ABORT RECOVERY COMPLET
0x14b9a8…14bb3c Dummy {f00=0x0064, f01=0x0190, f02=» 6 P* REQUEST HANDLER FOR THE CONNECT PASSIVE REQUEST h P* h > B P************************************************************** h H P* h CONPAS EQU * h * P LD A2,DWTCON,A6 SWITCHED CONNECTION ? h P RF(NZ) CONP10 YES h PCONP00 EQU * h P
0x14bb3c…14bcd0 Dummy {f00=0x0064, f01=0x0190, f02=» PHYSICAL CONNECTION ESTABLISHED ? h ~ P RB(NE) CONP00 YES i * PCONP15 EQU * i D & " LD A1,DWTTIM,A6 GET TIMEOUT VALUE i X , P RF(Z) CONP20 NO TIME SUPERVISION WANTED i & P CF A15,SRQTIM START REQUEST TIMER i PCONP20 EQU * i : P LD A1,DWTMOD,A6 ANY PHY
0x14bcd0…14be64 Dummy {f00=0x0064, f01=0x0190, f02=»IVE ON SWITCHED LINES i r 0 P* WHEN NO PHYSICAL CONNECTION IS ESTABLISHED j * j R P* j PCONP30 EQU * j f LDK A1,WCALL j z . P SC A1,DWTMOD,A6 SET 'WAIT FOR CALL' MODE j PCONP40 EQU * j * P CF A5,DISCM PUT 'CU' IN EXECUTE MODE j & P IM
0x14be64…14bff8 Dummy {f00=0x0064, f01=0x0190, f02=»* j PCONP50 EQU * k P ANK A2,S:CALL k & P RB(Z) CONP40 NOT A INCOMMING CALL k 4 P* k ^ P* AN INCOMMING CALL RECEIVED k h P* k P* k CF A5,ACTDCE CONNECT MODEM k P LDR A2,A1 MODEM OPERABLE ? k P ABL(Z) OPEN30 YES k " P LDK A
0x14bff8…14c18c Dummy {f00=0x0064, f01=0x018e, f02=» k PCONP60 EQU * l , P CM DWTMOD,A6 SET 'INITIAL CONTROL' MODE l P ABL OPEN40 l L P EJECT l ` > P********************************************************* l n * l $ * TIMEOUT ENTRY FOR SENDING WACK l * l > P****************************
0x14c18c…14c320 Dummy {f00=0x0064, f01=0x0190, f02=» CF A5,TRWACK SEND WACK m P IFT STAT=1 m $ P LDK A1,CSSRBY m 8 0 P CF A15,DCSUPR INCREMENT BUFFER BUSY COUNTER m N P XIF m PWACK05 EQU * m P LDK A1,T:MACT m . P CF A15,SPRTIM START MASTER ACTIVITY TIMER m P LD A1,DWTST,A6 m 6 P ANK A
0x14c320…14c4b4 (1, 264) Dummy {f00=0x0064, f01=0x0190, f02=»T NOT ALLOWED m l PWACK0A EQU * n ABL BRM START INPUT n * P EJECT n F * n T 4 P* INPUT CHARACTER HANDLERS IN 'WACK DELAY' MODE n ^ * n P* n * SYN CHARACTER RECEIVED n P* n PWACK10 EQU * n & " ABL BRM010 READ ANOTHER CHARACT
0x14c4b4…14c648 Dummy {f00=0x0064, f01=0x0190, f02=»OT ALLOWED CHARACTER n | & P CF A5,READ READ ANOTHER CHARACTER o PWACK20 EQU * o F P SUK A2,C:EOT EOT RECEIVED ? o Z P RF(NZ) WACK60 NO o ~ $ P CF A5,CHKPAD CHECK TRAILING PAD o P RF(NZ) WACK60 NOT A PAD o P ABL NCON25 o P* o * EOT RECE
0x14c648…14c7dc Dummy {f00=0x0064, f01=0x0190, f02=»F A15,CPRTIM KILL MASTER ACTIVITY TIMER o 2 P CF A15,CRQTIM CLEAR REQUEST TIMER IF RUNNING p 0 P CF A5,HLTINP HALT I/P p f * P LD A1,DWTST,A6 ANY PRESENT REQUEST ? p P RF(N) WACK40 NO p " P LDKL A1,R:EOT RC=EOT RECEIVED p P LD A2,DWTOR,A6 GET ORDE
0x14c7dc…14c970 Dummy {f00=0x0064, f01=0x0190, f02=» ABL OPEN20 p PWACK40 EQU * q P LDK A1,S:EOT q ( 4 P ORS A1,DWTST,A6 REMEMBER EOT FOR FUTURE REQUEST q > P ABL OPEN30 q v P* q * ENQ RECEIVED q P* q PWACK45 EQU * q $ P CF A5,CHKPAD CHECK TRAILING PAD q P RF(NZ) WACK60 NOT A PAD
0x14c970…14cb04 Dummy {f00=0x0064, f01=0x0190, f02=»TIAL RECEIVE MODE q v " LD A1,DWTST,A6 ANY REQUEST ? r P RF(N) WACK50 NO r @ P LD A1,DWTOR,A6 r X P ANK A1,/FF GET ORDER r p P SUK A1,/02 RECEIVE ORDER ? r P ABL(Z) REC070 YES r $ P RF DISC30 NO, DISCONNECT ORDER r PWACK50 EQU * r P
0x14cb04…14cc98 Dummy {f00=0x0064, f01=0x0190, f02=» r PWACK60 EQU * s ABL BRM RESTART INPUT s P* s : ( P* SST INTERRUPT IN 'WACK DELAY' MODE s D P* s p PWACK70 EQU * s z , P ABL MODREC BRANCH TO COMMON SST HANDLER s P* s & P* ABORT AND REQUEST TIMEOUT ENTRY s P* s PWACK80 EQU *
0x14cc98…14ce2c Dummy {f00=0x0064, f01=0x0190, f02=» A PREDEFINED TIME. s l P* t PWACK85 EQU * t & 0 P CF A15,CRQTIM KILL REQUEST TIMER IF RUNNING t : $ P LD A1,DWTST,A6 GET LINE STATUS t n $ P RF(N) WACK90 NO REQUEST PRESENT t P LD A1,DWTOR,A6 GET ORDER t P ANK A1,/FF t P SUK A1,/2F DISCONNE
0x14ce2c…14cfc0 Dummy {f00=0x0064, f01=0x0190, f02=» t j P ABL OPEN30 u P EJECT u T P******************************************************************************** u * P* u 2 P* REQUEST HANDLER FOR THE DISCONNECT REQUEST u P* u T P************************************************************
0x14cfc0…14d154 (1, 265) Dummy {f00=0x0064, f01=0x0190, f02=» u ~ 0 P CWK A1,SEND+WNAK WAITING FOR NAK AFTER TTD v ( P ABL(E) TDISP YES, QUEUE THE REQUEST v < , P CWK A1,SEND+INIT 'INITIAL SEND' MODE ? v h P RF(NE) DISC20 NO v PDISC10 EQU * v * P CF A15,CPRTIM KILL TTD OR WACK TIMER v P LDKL A1,SEND+WNAK v
0x14d154…14d2e8 Dummy {f00=0x0064, f01=0x018e, f02=»E+INIT INITIAL RECEIVE MODE ? v P RF(NE) DISC50 NO w & $ P LD A1,DWTST,A6 GET LINE STATUS w @ 4 P ANK A1,S:BACK BLOCK ALREADY ACK'ED WITH WACK ? w h P RF(NZ) DISC60 YES w PDISC30 EQU * w P LDK A1,WACKD w , P SC A1,DWTMOD+1,A6 SET 'WACK DELAY'
0x14d2e8…14d47c Dummy {f00=0x0064, f01=0x0190, f02=» w h P CF A5,TREOT SEND EOT x P IFT STAT=1 x & P LDK A1,CSSRAB x : 8 P CF A15,DCSUPR INCREMENT INPUT MESS. ABORTED COUNTER x P P XIF x PDISC40 EQU * x P LDK A1,R:OK RC=0 x P ABL OPEN20 x PDISC50 EQU * x 0 P CWK A1,RECEIV+LRECOV 'LIN
0x14d47c…14d610 Dummy {f00=0x0064, f01=0x0190, f02=» x ~ $ P LD A1,DWTST,A6 GET LINE STATUS y 2 P ANK A1,S:BACK DISCONNECT OF 'BID' SEQUENCE ? y 0 * P ABL(Z) TDISP YES, WAIT FOR TREATMENT y f PDISC60 EQU * y , P ABL SEQERR REQUEST ISSUED IN WRONG MODE y P EJECT y B P**********************************
0x14d610…14d7a4 Dummy {f00=0x0064, f01=0x0190, f02=»******************************* y r P* z ( PREC000 EQU * z 2 & P LDR A2,A1 INITIAL CONTROL MODE ? z F P RF(NZ) REC010 NO z p $ P LD A1,DWTST,A6 GET LINE STATUS z & P ANK A1,S:NCON DLE EOT RECEIVED ? z $ P RF(Z) REC020 NO, SEQUENCE ERROR z 0 P XRS
0x14d7a4…14d938 Dummy {f00=0x0064, f01=0x0190, f02=» z v PREC010 EQU * { P CWK A1,CNTRL+NOLCON { RF(NE) REC030 { 8 P* { N > :* CHECK IF EOT WAS RECEIVED BEFORE RECEIVE REQ. WAS ISSUED { X * { LD A1,DWTST,A6 { P LDR A3,A1 SAVE STATUS { P ANK A1,S:EOT EOT RECEIVED ? { P RF(Z) REC
0x14d938…14dacc Dummy {f00=0x0064, f01=0x0190, f02=»STER ON WACK { v P* | PREC015 EQU * | , P ANK A3,S:CERR CONNECTION ERROR ON WACK | 2 $ P RF(Z) REC020 NO, SEQUENCE ERROR | b 0 P XRS A3,DWTST,A6 RESET CONNECTION ERROR BIT | , P ABL CONERR RC=LOGICAL CONNECTION ERROR | PREC020 EQU * | P ABL S
0x14dacc…14dc60 Dummy {f00=0x0064, f01=0x0190, f02=»? | P RF(E) REC040 YES } * P CWK A1,RECEIV+LRECOV RECOVERY MODE ? } $ 6 P RB(NE) REC020 NO, WRONG MODE FOR RECEIVE REQUEST } R REC040 EQU * } $ LD A1,DWTTIM,A6 GET TIME VALUE } , ( RF(Z) REC050 NO TIME SUPERVISION WANTED } & P CF A15,SRQTIM S
0x14dc60…14ddf4 (1, 266) Dummy {f00=0x0065, f01=0x0190, f02=» TIMEOUT } h REC070 EQU * ~ $ LC A1,DWTOR,A6 GET OPTION CODE ~ $ ANK A1,/FF ~ L " P RF(Z) REC085 OPTION=SEND ACK ~ ` $ P SUK A1,O:RVI OPTION=SEND RVI ? ~ P RF(Z) REC075 YES ~ ( P CF A15,CRQTIM KILL REQUESTED TIMER ~ 2 P ABL DISIOE REQUEST
0x14ddf4…14df88 Dummy {f00=0x0065, f01=0x0190, f02=»O ~ ( P CF A15,CRQTIM KILL REQUESTED TIMER . P RB REC020 SEQUENCE ERROR (TO CONSEC RVI) 6 PREC080 EQU * h P LDK A1,C:RVI | , P ST A1,DWTLRS,A6 INDICATE RESPONSE = RVI " P CF A15,CPRTIM KILL WACK TIMER CF A5,TRRVI SEND RVI R
0x14df88…14e11c Dummy {f00=0x0065, f01=0x018e, f02=»END CORRECT ACK REC090 EQU * P LDKL A1,/8000 , & P ANS A1,DWTST,A6 RESET LINE STATUS B P LDK A1,T:MACT l . P CF A15,SPRTIM START MASTER ACTIVITY TIMER 0 P LD A1,DWTABT,A6 ABORT ISSUED , OR TIMEOUT ? P RF(Z) REC093 NO $ P CM DWTA
0x14e11c…14e2b0 Dummy {f00=0x0065, f01=0x0190, f02=» P RF REC185 PREC093 EQU * LDK A1,WSTX . . P SC A1,DWTMOD+1,A6 SET 'WAIT FOR STX' MODE B ABL BRM START INPUT t P EJECT P* B P* MODEM ERROR ON TRANSMISSION OF RESPONSE IF ABORT NOT ISSUED ( P* OR REQUEST TIMER HAS NOT
0x14e2b0…14e444 Dummy {f00=0x0065, f01=0x0190, f02=»E REMOTE DLS HAS h 2 P* NOT GET AN ACKNOWLEDGMENT TO THE SAME BLOCK. P* N PREC095 EQU * X P LDK A1,WACKD l , P SC A1,DWTMOD+1,A6 SET 'WACK DELAY' MODE , P ABL MODREC BRANCH TO COMMON SST HANDLER P* 0 P* ABORT OR TIMEOUT IN 'INITI
0x14e444…14e5d8 Dummy {f00=0x0065, f01=0x018e, f02=»A6 SET 'LINK RECOVERY' MODE $ P LD A1,DWTABT,A6 ABORT ISSUED ? $ P ABL(NZ) RTN:OK YES L * P IM DWTABT,A6 SAME TREATMENT AS ABORT h $ P ABL TIMERR COMPLETE, RC=TIMEOUT P EJECT * 6 P* INPUT CHARACTER HANDLERS IN 'WAIT FOR STX' MODE
0x14e5d8…14e76c Dummy {f00=0x0065, f01=0x0190, f02=» * ENQ RECEIVED P* PREC110 EQU * ( $ P CF A5,CHKPAD CHECK TRAILING PAD < PREC115 EQU * d P RF(NZ) REC150 NOT A PAD x CF A5,HLTINP HALT INPUT . P CF A15,CPRTIM KILL MASTER ACTIVITY TIMER P LDK A1,INIT 2 P SC A1,DWT
0x14e76c…14e900 Dummy {f00=0x0065, f01=0x0190, f02=»RANSMIT LAST ACK P RB REC090 PREC120 EQU * * P LDK A1,C:RVI > ( P CW A1,DWTLRS,A6 RVI LAST RESPONSE ? T P RF(NE) REC125 NO P CF A5,TRRVI RETRANSMIT RVI P RB REC090 PREC125 EQU * P CF A5,TRNAK RETRANSMIT NAK P
0x14e900…14ea94 (1, 267) Dummy {f00=0x0065, f01=0x018e, f02=»OR STX' MODE v P* PREC140 EQU * , P ABL MODREC BRANCH TO COMMON SST HANDLER 2 P* b , (* ENTRY POINT FOR NOT ALLOWED CHARACTERS l P* PREC150 EQU * ABL BRM RESYNCHRONIZE P* * DLE RECEIVED P* PREC155
0x14ea94…14ec28 Dummy {f00=0x0065, f01=0x018e, f02=» ( P LD A1,DWTCON,A6 LEASED CONNECTION ? . P RB(Z) REC150 YES, WRONG SEQ. RESTART I/P 0 P ABL WACK20 CHECK IF EOT b PREC157 EQU * LDK A1,TRANSP , ' SC A1,DWTMOD+1,A6 SET TRANSPARENT MODE * P RF REC170 PREPARE FOR TEXT RECEPTION
0x14ec28…14edbc Dummy {f00=0x0065, f01=0x0190, f02=» P* PREC160 EQU * LDK A1,NONTRP & 0 + SC A1,DWTMOD+1,A6 SET NON-TRANSPARENT MODE < PREC170 EQU * p $ LDK A7,0 RESET BCC ACCUMULATOR & ! LDK A3,0 RESET CHARACTER COUNTER $ LD A8,DWTECB,A6 GET ECB ADDRESS . * LD A4,ECB
0x14edbc…14ef50 Dummy {f00=0x0065, f01=0x0190, f02=»MODE d P* PREC175 EQU * ( P CF A15,CRQTIM CLEAR REQUESTED TIMER * $ P LDK A1,R:TERR PRESET RC=TIMEOUT V $ P LD A2,DWTABT,A6 ABORT ISSUED ? ~ P RF(Z) REC180 NO, TIMEOUT ( P CM DWTABT,A6 CLEAR ABORT INDICATOR P LDK A1,R:OK RC=OK
0x14ef50…14f0e4 Dummy {f00=0x0065, f01=0x0190, f02=»LINK RECOVERY'MODE x $ P LD A1,DWTST,A6 GET LINE STATUS P ANK A1,S:MNOP MODEM OK ? B P ABL(NZ) TDISP NO d P RF NAKERR ~ P* P* MASTER ACTIVITY TIMOUT ( P* MASTER SEEMS TO BE 'DEAD' .ATTAIN " P* 'NO LOGICAL CONNECTION' MODE
0x14f0e4…14f278 Dummy {f00=0x0065, f01=0x0190, f02=»LERS IN NON-TRANSPARENT z * TEXT RECEPTION MODE * > * SYN CHARACTER RECEIVED H P* h PREC195 EQU * r & " ABL BRM010 READ ANOTHER CHARACTER P* P* STX,...,ENQ RECEIVED P* PREC200 EQU * . P CF A15,CPRTIM KIL
0x14f278…14f40c Dummy {f00=0x0065, f01=0x0190, f02=» COMPRS=0 P RF REC250 TREAT AS DATA P XIF 2 P IFT COMPRS=1 > P CF A5,ACBPAR ACCUMULATE BCC T PREC212 EQU * x CF A5,READ READ A CHARACTER P CWK A2,C:SYN SYN CHARACTER . P RB(E) REC212 YES, READ ANOTHER CHARACTER $ P L
0x14f40c…14f5a0 Dummy {f00=0x0065, f01=0x0190, f02=»T LENGTH ~ & P CW A3,ECBRL,A8 BUFFER OVERFLOW ? P RB(G) REC185 YES, SEND NAK : " P LDK A1,A:GS GET GS CHARACTER ^ P SCR A1,A4 SAVE IN BUFFER & P ADK A4,1 INCREMENT BUFFER POINTER 8 P RF REC250 SAVE ERRONEOUS COUNT CHARACTER IN BUFFER
0x14f5a0…14f734 (1, 268) Dummy {f00=0x0065, f01=0x018e, f02=» 0 P ABL(Z) BRM010 SPACE DECOMPRESSION FINISHED ADK A3,1 < & ! CW A3,ECBRL,A8 BUFFER OVERFLOW ? N P RB(G) REC185 YES,SEND NAK x $ P SCR A1,A4 STORE SPACE IN BUFFER & " ADK A4,1 INCREMENT BUFFER POINTER & P SUK A2,1 DECREMENT SPACE CO
0x14f734…14f8c8 Dummy {f00=0x0065, f01=0x0190, f02=» r P IFT ITBUSE=1 P ADK A3,1 INCREMENT LENGTH & P CW A3,ECBRL,A8 BUFFER OVERFLOW ? @ P RB(G) REC185 YES j P IFT CODE=1 & P LC A2,TASCII,A2 CONVERT TO ASCII P XIF P IFT ITBUSE=1 " P SCR A2,A4 STORE ITB CHARACTER &
0x14f8c8…14fa5c Dummy {f00=0x0065, f01=0x0190, f02=» h PREC240 EQU * CF A5,READ READ A CHARACTER " P CWK A2,C:SYN SYN CHARACTER ? @ P RB(E) REC240 YES f P CWK A2,C:STX STX RECEIVED ? 6 1 ABL(NE) BRM015 NO, BRANCH TO RIGHT CHAR. HANDLER P CF A5,ACBPAR ACCUMULATE BCC P RB RE
0x14fa5c…14fbf0 Dummy {f00=0x0065, f01=0x0190, f02=»CC v ADK A3,1 & ! CW A3,ECBRL,A8 BUFFER OVERFLOW ? * P RB(G) REC185 WAIT FOR PAD TO SEND NAK F P IFT CODE=1 t & ! LD A1,DWTMOD,A6 GET RECEIVE MODE ANK A1,/FF . P SUK A1,TRANSP TRANSPARENT RECEIVE MODE ? 2 P RF(Z) REC260 YE
0x14fbf0…14fd84 Dummy {f00=0x0065, f01=0x0190, f02=»ER IN BUFFER x & " ADK A4,1 INCREMENT BUFFER POINTER & P RB REC195 READ ANOTHER CHARACTER > P* h * ETB OR ETX RECEIVED r P* PREC270 EQU * ( P CF A15,CPRTIM STOP PROCEDURE TIMER P CF A5,ACBPAR ACCUMULATE BCC ( P LDR A4,A2
0x14fd84…14ff18 Dummy {f00=0x0065, f01=0x018e, f02=»NPUT | ( P CF A15,CRQTIM STOP REQUESTED TIMER * % ST A3,ECBEL,A8 SAVE EFFECTIVE LENGTH 8 P LDK A1,T:WACK f $ P CF A15,SPRTIM START WACK TIMER | LDK A1,1 ( P XRS A1,DWTCNT,A6 CHANGE ACK COUNTER P LDKL A1,/8000 0 P ANS A1,DWTST,A6
0x14ff18…1500ac Dummy {f00=0x0065, f01=0x018e, f02=» V P XIF $ P LDK A1,0 PRESET RETURN CODE = 0 P LD A3,DWTMOD,A6 < 6 P CWK A3,RECEIV+TRANSP 'TRANSPARENT RECEIVE' MODE ? T P RF(NE) REC275 NO 6 P LDKL A1,R:TRP INDICATE TRANSPARENT DATA RECEIVED PREC275 EQU * P SUK A4,C:ETB ETB
0x1500ac…150240 Dummy {f00=0x0065, f01=0x018e, f02=» 2 P SC A2,DWTMOD+1,A6 SET 'INITIAL RECEIVE' MODE P ABL CMPLT TENDIO+TDISP > P EJECT ^ P* l 8 4* REQUEST TIMEOUT AND ABORT ENTRY IN NON-TRANSPARENT v " * AND TRANSPARENT RECEIVE MODE P* P* PREC280 EQU * P ABL REC
0x150240…1503d4 (1, 269) Dummy {f00=0x0065, f01=0x0190, f02=» P LDK A1,WSTX . P SC A1,DWTMOD+1,A6 SET 'WAIT FOR STX' MODE , P ABL MODREC BRANCH TO COMMON SST HANDLER J P* z 4 P* PROCEDURE TIMEOUT ENTRY IN TRANSP./NON-TRANSP. . P* RECEIVE MODE (MASTER ACTIVITY TIMEOUT). PREC300 EQU * " P ABL W
0x1503d4…150568 Dummy {f00=0x0065, f01=0x0190, f02=»TRANSPARENT AND NON-TRANSPARENT MODE P* , P* 6 NAKERR EQU * @ " CF A5,READ GET ONE CHARACTER T NAK010 EQU * z P LDR A4,A2 SAVE CHARACTER P CWK A2,C:ETB ETB RECEIVED ? P RF(E) NAK015 YES P CWK A2,C:ETX ETX RECEIVED
0x150568…1506fc Dummy {f00=0x0065, f01=0x0190, f02=» NAK025 YES P SUK A2,C:PAD PAD ? P RF(E) NAK025 YES 0 P RB NAKERR NO J PNAK015 EQU * ` P* t P* READ BCC ~ P* P CF A5,READ P IFT CODE=1 & P CF A5,READ READ SEC BCC CHARACTER P XIF PNAK025 EQU *
0x1506fc…150890 Dummy {f00=0x0065, f01=0x0190, f02=»LETE A POSSIBLE REQUEST x $ P CF A5,HLTINP HALT INPUT DEVICE PNAK030 EQU * H . P CF A15,CPRTIM KILL MASTER ACTIVITY TIMER 2 P SUK A4,C:ENQ STX...ENQ OR SYN,ENQ RECEIVED ? P RF(NZ) NAK055 NO P RF NAK050 YES, SEND NAK PNAK040 EQU
0x150890…150a24 Dummy {f00=0x0065, f01=0x0190, f02=» P LDK A1,LRECOV 0 P SC A1,DWTMOD+1,A6 SET 'LINK RECOVERY' MODE P CF A5,TRNAK SEND NAK R P LDK A1,C:NAK p 0 P ST A1,DWTLRS,A6 INDICATE NAK LAST RESPONSE " P LD A1,DWTST,A6 ANY REQUEST ? " P RF(N) NAK065 NO, RESTART I/P P L
0x150a24…150bb8 Dummy {f00=0x0065, f01=0x0190, f02=»K065 DISCONNECT REQUEST PRESENT. THE REQUEST P CAN NOT BE SERVED YET 4 PNAK055 EQU * T " P LD A1,DWTST,A6 ANY REQUEST ? h P RB(N) NAK050 NO, SEND NAK P LD A1,DWTOR,A6 GET ORDER " P SUK A1,/02 RECEIVE REQUEST ? 4 P ABL(NZ) DISC30
0x150bb8…150d4c Dummy {f00=0x0065, f01=0x0190, f02=»CON ~ 6 P ST A1,DWTMOD,A6 SET 'NO LOGICAL CONNECTION' MODE P IFT STAT=1 F P LDK A1,CSSRBO Z 4 P CF A15,DCSUPR INCREMENT BUFFER OVERFLOW COUNTER p P XIF 4 P LDK A1,R:LERR PRESET RC=INCORRECT BUFFER LENGTH $ P CF A15,TENDIO COMPLETE REQU
0x150d4c…150ee0 Dummy {f00=0x0065, f01=0x018e, f02=»NK A1,S:MNOP MODEM OK ? 0 P ABL(NZ) MODREC BRANCH TO COMMON SST HANDLER " P ANK A2,S:CARR CARRIER DOWN ? T P RB(NZ) NAK030 YES z P RF NAK070 PNAK065 EQU * P LDK A1,T:MACT . P CF A15,SPRTIM START MASTER ACTIVITY TIMER PNAK070
0x150ee0…151074 (1, 270) Dummy {f00=0x0066, f01=0x0190, f02=» P* & P* REQUEST TIMEOUT AND ABORT ENTRY P* 8 PNAK090 EQU * B P ABL NCON85 V P* j F P* MASTER ACTIVITY TIMEOUT (TIMER NOT RUNNING WHEN MODEM IS NOT OP) t P* PNAK100 EQU * ( P ABL WACK85 MASTER DLS SEEMS 'DEAD' P
0x151074…151208 Dummy {f00=0x0066, f01=0x0190, f02=» P* REC400 EQU * 2 P LD A1,DWTDLE,A6 DLE LAST RECEIVED CHARACTER ? " P RF(Z) REC415 NO X $ P CM DWTDLE,A6 RESET DLE RECEIVED p PREC410 EQU * P ABL REC250 TREAT AS DATA PREC415 EQU * ( P IM DWTDLE,A6 INDICATE DLE RECEIVED
0x151208…15139c Dummy {f00=0x0066, f01=0x0190, f02=»RECEIVED CHARACTER ? v $ P RB(Z) REC410 NO, TREAT AS DATA $ P CM DWTDLE,A6 RESET DLE RECEIVED D . P CF A15,CPRTIM KILL MASTER ACTIVITY TIMER l 4 P RB NAK050 DLE STX....DLE ENQ RECEIVED, SEND NAK P* P* DATA CHARACTER RECEIVED P*
0x15139c…151530 Dummy {f00=0x0066, f01=0x0190, f02=»T DLE FLAG ~ ( P ABL REC185 WRONG SEQUENCE, SEND NAK P EJECT > P* L * SYN RECEIVED V P* l REC430 EQU * v 2 P LD A1,DWTDLE,A6 DLE LAST RECEIVED CHARACTER ? . P RB(Z) REC410 NO, TREAT AS DATA CHARACTER $ P CM DWTDLE,A6 RESET DL
0x151530…1516c4 Dummy {f00=0x0066, f01=0x0190, f02=»CEIVED CHARACTER ? t $ P RB(Z) REC410 NO, TREAT AS DATA $ P CM DWTDLE,A6 RESET DLE RECEIVED B P CF A5,ACBPAR ACCUMULATE BCC j P IFT ITBUSE=1 P ADK A3,1 INCREMENT LENGTH & P CW A3,ECBRL,A8 BUFFER OVERFLOW ? P ABL(G) REC185 YES "
0x1516c4…151858 Dummy {f00=0x0066, f01=0x0190, f02=» AND CHECK BCC ~ & P ABL(NZ) REC185 WRONG BCC SEND NAK REC460 EQU * @ CF A5,READ T P CWK A2,C:SYN j RB(E) REC460 SYN RECEIVED P CF A5,ACBPAR ACCUMULATE BCC P SUK A2,C:DLE " P ABL(NZ) REC185 WRONG SEQUENCE CF A5
0x151858…1519ec Dummy {f00=0x0066, f01=0x018e, f02=» OF MODE AFTER ITB ~ * ETB OR ETX RECEIVED P* 8 REC470 EQU * B 2 P LD A1,DWTDLE,A6 DLE LAST RECEIVED CHARACTER ? V . P RB(Z) REC410 NO, TREAT AS DATA CHARACTER $ P CM DWTDLE,A6 RESET DLE RECEIVED P ABL REC270 P EJECT P
0x1519ec…151b80 Dummy {f00=0x0066, f01=0x0190, f02=» P* 'TRANSPARENT RECEIVE' MODE P* ( PREC490 EQU * 2 P ABL REC175 F P* Z P* MASTER ACTIVITY TIMEOUT d P* PREC500 EQU * P ABL WACK85 P XIF P EJECT L P******************************************************
0x151b80…151d14 (1, 271) Dummy {f00=0x0066, f01=0x0190, f02=»********************************* j P* * PSEND00 EQU * 4 : P CWK A1,SEND+WNAK WAITING FOR NAK AFTER TTD SEQUENCE ? H P ABL(E) TDISP YES * P CWK A1,SEND+INIT INITIAL SEND MODE ? P RF(E) SEN035 YES 8 P CWK A1,CNTRL+NOLCON 'NO LOGICAL
0x151d14…151ea8 Dummy {f00=0x0066, f01=0x0190, f02=»RR LOGICAL CONNECTION ERROR DURING TTD ? $ P RF(Z) SEN010 NO, SEQUENCE ERROR 0 8 P XRS A1,DWTST,A6 RESET LOGICAL CONNECTION ERROR BIT X , P ABL CONERR RC=LOGICAL CONNECTION ERROR PSEN010 EQU * " P ABL SEQERR RC=SEQUENCE ERROR PSEN035 EQU
0x151ea8…15203c Dummy {f00=0x0066, f01=0x018e, f02=»WTOR,A6 GET OPTION CODE ( P ANK A1,O:TRP NON TRANSPARENT MODE ? P RF(Z) SEN040 YES L & P IM DWTTRM,A6 NO, TRANSPARENT MODE f PSEN040 EQU * P XIF P IFT CODE=0 $ P LC A1,DWTOR,A6 GET OPTION CODE $ P ANK A1,O:TRP TRANSPARENT MO
0x15203c…1521d0 Dummy {f00=0x0066, f01=0x0190, f02=» PSEN050 EQU * P LDKL A1,-L:RTR * P ST A1,DWTRTR,A6 RETRANSMISSION LIMIT 0 P LDKL A1,-L:ENQ ^ & P ST A1,DWTETR,A6 MAX NBRS OF ENQ'S v P LDKL A1,-L:WACK 2 P ST A1,DWTWTR,A6 MAX NUMBER OF ACCEPTED WACK'S P EJECT P* P*
0x1521d0…152364 Dummy {f00=0x0066, f01=0x0190, f02=»ORT PERMITTED =9 | ( P IM DWTRTR,A6 COUNT RETRANSMISSIONS 4 P RF(NP) TRT000 RETRANSMISSION LIMIT NOT REACHED D P LDK A1,WNAK | , P SC A1,DWTMOD+1,A6 SET WAIT FOR NAK MODE P ABL TTD105 SEND EOT PTRT000 EQU * 0 P CF A5,TRSYN START TRANS
0x152364…1524f8 Dummy {f00=0x0066, f01=0x0190, f02=» n P LDK A2,C:DLE P CF A5,WRITE SEND ONE DLE PTRT010 EQU * @ P XIF T P LDK A2,C:STX ` P CF A5,WRITE SEND STX v P LDK A7,0 RESET BCC $ P LD A8,DWTECB,A6 GET ECB ADDRESS ( P LD A4,ECBBA,A8 LOAD BUFFER ADDRESS ( P LD
0x1524f8…15268c Dummy {f00=0x0066, f01=0x0190, f02=»FT ITBTRM=0 =10 P IFT COMPRS=1 . P CM DWTCMP,A6 CLEAR SPACE COMPRESS CTNL 2 P XIF d PTRT100 EQU * t P SUK A3,1 DECREMENT LENGTH " P RF(N) TRT180 ALL TRANSMITTED P IFT ITBTRM=1 =10 * P IM DWTITB,A6 INCREM CHAR COUN
0x15268c…152820 Dummy {f00=0x0066, f01=0x0190, f02=» =10 . P ST A1,DWTITB,A6 RESET COUNTER TO ONE =10 P IFT CODE=1 =10 > , P LD A1,DWTTRM,A6 TRANSPARENT MODE ? =10 V P RF(Z) TRT105 NO =10 P LDK A2,C:DLE =10 " P CF A5,WRITE TRANSMIT DLE =10 PTRT105 EQU * =10 P XIF =10
0x152820…1529b4 (1, 272) Dummy {f00=0x0066, f01=0x0190, f02=» CODE=1 =10 P LDR A2,A7 =10 * P ANK A2,/FF GET FIRST BYTE OF CRC =10 , P CF A5,WRITE SEND IT =10 Z $ P ECR A7,A7 PREPERE NEXT BYTE =10 z P XIF =10 P IFT ITBTRM=1 =10 P LDR A2,A7 =10 P ANK A2,/FF =10 P CF A5,WRI
0x1529b4…152b48 Dummy {f00=0x0066, f01=0x0190, f02=» RF(Z) TRT108 NO =10 P LDK A2,C:SYN =10 , P CF A5,WRITE SEND ONE SYN CHARACTER =10 6 P LDK A2,C:SYN =10 f " P CF A5,WRITE AND ONE MORE =10 P LDK A2,C:DLE =10 $ P CF A5,ACBPAR ACCUMULATE BCC =10 P CF A5,WRITE SEND DLE =10
0x152b48…152cdc Dummy {f00=0x0066, f01=0x0190, f02=»0 $ P LCR A2,A4 GET CHAR FROM BUFFER P ADK A4,1 INCR POINTER 2 " P ANK A2,/FF MASK TO 8 BITS!! P P IFT CODE=1 v , P LD A1,DWTTRM,A6 NON TRANSPARENT MODE ? P RF(Z) TRT110 YES P CWK A2,C:DLE DLE SHAPE ? P RF(NE) TRT160 NO
0x152cdc…152e70 Dummy {f00=0x0066, f01=0x0190, f02=» ANK A2,/7F REMOVE P-BIT P CWK A2,A:ETB " " P RF(G) TRT130 NOT ETB IN TEXT 8 P CWK A2,A:SYN ^ ( P RF(NL) TRT120 REPLACE SYN BY SPACE t P CWK A2,/07 CHECK CODE , P RF(NL) TRT130 CODE /07 OR GREATER IS OK PTRT120 EQU * 0 P LDK A
0x152e70…153004 Dummy {f00=0x0066, f01=0x0190, f02=»ARATOR | P RF(NE) TRT150 NO P* * . P* GROUP SEPARATOR, TRANSMIT SPACE COUNT 4 P* f PTRT135 EQU * p P CF A5,ACBPAR ACCUMULATE BCC P CF A5,WRITEP TRANSMIT GS P SUK A3,1 DECREMENT LENGTH " P RF(NP) TRT180 END OF BUFF
0x153004…153198 Dummy {f00=0x0066, f01=0x0190, f02=» p P CF A5,ACBPAR ACCUMULATE BCC ( P CF A5,WRITEP TRANSMIT SPACE COUNT , * P RB TRT100 GET NEXT CHAR TO TRANSMIT X P XIF P IFT ITBTRM=0 =10 P IFT COMPRS=1 P CWK A2,A:SPAC ASCII SPACE P RF(NE) TRT140 NO
0x153198…15332c Dummy {f00=0x0066, f01=0x0190, f02=»T NEXT CHAR x . P CF A5,TRCOMP TRANSMIT COMPRESSED SPACES & P RB TRT100 COMPRESSED MODE ENDED F PTRT140 EQU * CHAR /= SPACE p & P LD A1,DWTCMP,A6 COMPRESS MODE ? P RF(Z) TRT150 NO . P CF A5,TRCOMP TRANSMIT COMPRESSED SPACES
0x15332c…1534c0 Dummy {f00=0x0066, f01=0x0190, f02=»1 =10 . P CWK A2,C:EM END OF MEDIA CHARACTER ? =10 P RF(NE) TRT160 NO =10 @ * P LDK A1,80 PREPERE FOR ITB TO BE - =10 ^ 4 P ST A1,DWTITB,A6 NEXT TRANSMITTED CHARACTER =10 P XIF =10 PTRT160 EQU * P CF A5,ACBPAR ACCUMULATE BCC
0x1534c0…153654 (1, 273) Dummy {f00=0x0066, f01=0x0190, f02=»NOT ALLOWED =9 x P IFT ITBTRM=0 =10 P IFT COMPRS=1 0 P =9 J * P LD A1,DWTTRM,A6 GET TRANSMISSION MODE X 0 P RF(NZ) TRT185 SPACE COMPRESSION NOT ALLOWED * P LD A1,DWTCMP,A6 COMPRESS MODE STILL? P RF(Z) TRT185 NO . P CF A5
0x153654…1537e8 Dummy {f00=0x0066, f01=0x0190, f02=»MODE n P RF(Z) TRT190 NON TRANSP P LDK A2,C:DLE , 4 P CF A5,WRITE SEND CHARACTER. NO CRC CALCULATION B PTRT190 EQU * z P XIF P LDK A2,C:ETB $ P LC A1,DWTOR,A6 GET OPTION CODE P ANK A1,O:ETX ETX BLOCK ? P RF(Z) TRT200
0x1537e8…15397c Dummy {f00=0x0066, f01=0x0190, f02=» P LDR A3,A7 SAVE CRC P LDR A2,A7 $ P ANK A2,/FF 6 ( P CF A5,WRITE SEND 1ST CRC CHARACTER J 0 P ECR A7,A3 PREPARE FOR SENDING 2ND CRC CHAR v P XIF P LDR A2,A7 P ANK A2,/FF " P CF A5,OUTEND TERMINATE OUTPUT P IFT S
0x15397c…153b10 Dummy {f00=0x0066, f01=0x018e, f02=»TR+1 RETRANSMISSION ? P RF(E) TRT202 NO 8 P LDK A1,CSSTRT YES, INDEX TO RETRANSMISSION COUNTER 6 PTRT202 EQU * r 0 P CF A15,DCSUPR INCREMENT THE ACTUAL COUNTER P XIF PTRT205 EQU * P LDK A1,T:ENQ ( P CF A15,SPRTIM START PRO
0x153b10…153ca4 Dummy {f00=0x0066, f01=0x0190, f02=» 0 P CM DWTLRS,A6 INDICATE WAITING FOR RESPONSE P LDK A1,WACK 8 , P SC A1,DWTMOD+1,A6 SET WAIT FOR ACK MODE L P ABL BRM START INPUT | P* ( P* ABORT ENTRY IN 'INITIAL SEND' MODE P* PTRT210 EQU * * P CM DWTABT,A6 INDICATE ABORT
0x153ca4…153e38 Dummy {f00=0x0066, f01=0x0190, f02=»AK' MODE n " P CF A5,READ WAIT FOR INTERRUPT , P LD A1,DWTTRM,A6 TRANSPARENT TEXT MODE ? 6 P RF(Z) TRT215 NO f P LDK A2,C:DLE ~ ( P CF A5,WRITE SEND ONE DLE CHARACTER PTRT215 EQU * , P CF A5,TRENQ5 SEND ENQ TO ABORT MESSAGE * P LDK
0x153e38…153fcc Dummy {f00=0x0066, f01=0x0190, f02=»NG TRANSMISSION OF A MESSAGE ~ P* $ PTRT220 EQU * . P =9 B P LDK A1,/FF =9 P & P ANS A1,DWTABT,A6 ABORT ALLOWED =9 h P LDK A1,WNAK . P SC A1,DWTMOD+1,A6 SET 'WAIT FOR NAK' MODE , P ABL MODREC BRANCH TO COMMON SST HANDLER P
0x153fcc…154160 Dummy {f00=0x0066, f01=0x018e, f02=»25 EQU * & P ABL BRM010 READ ANOTHER CHARACTER P* : P* NAK RECEIVED D P* Z PTRT230 EQU * d $ P CF A5,CHKPAD CHECK TRAILING PAD x & P RF(NZ) TRT330 NOT A PAD CHARACTER P CF A15,CPRTIM KILL TIMER PTRT235 EQU * P LDK A1,
0x154160…1542f4 (1, 274) Dummy {f00=0x0067, f01=0x0190, f02=» P* PTRT240 EQU * P CF A5,READ READ A CHARACTER " P LDR A4,A2 SAVE IT F $ P CF A5,CHKPAD CHECK TRAILING PAD ` * P RF(NZ) TRT330 NOT A PAD, RESTART I/P ( P CF A15,CPRTIM KILL PROCEDURE TIMER $ P CF A5,HLTINP HALT INPUT DEVICE (
0x1542f4…154488 Dummy {f00=0x0067, f01=0x0190, f02=»A1,DWTCNT,A6 CORRECT ACK RECEIVED ? P RF(NE) TRT280 NO , , P LDK A4,0 INDICATE CORRECT ACK RECEIVED F P RF TRT270 v PTRT250 EQU * " P CWK A4,C:ACK1 ACK1 RECEIVED ? P RF(NE) TRT255 NO $ P LDK A1,1 INDICATE ACK1 RECEIVED P RB
0x154488…15461c Dummy {f00=0x0067, f01=0x0190, f02=» RF TRT270 PTRT260 EQU * " P CWK A4,C:WACK WACK RECEIVED ? & . P RF(NE) TRT290 NO, WRONG SEQUENCE RECEIVED L 4 P IM DWTLRS,A6 INDICATE RESPONSE RECEIVED (WACK) ~ & P IM DWTWTR,A6 WACK LIMIT REACHED ? P RF(NP) TRT295 NO 8 P LDKL A1,R:EOT
0x15461c…1547b0 Dummy {f00=0x0067, f01=0x0190, f02=» =9 P LDK A1,/FF =9 ( P ANS A1,DWTABT,A6 ABORT PERMITTED =9 & $ P CF A15,TENDIO COMPLETE REQUEST R P CF A5,TREOT SEND EOT z P ABL OPEN30 PTRT270 EQU * P LDK A1,INIT 0 P SC A1,DWTMOD+1,A6 SET INITIAL TRANSMIT MODE P
0x1547b0…154944 Dummy {f00=0x0067, f01=0x0190, f02=»RS A1,DWTCNT,A6 UPDATE ACK COUNTER P =9 * P LDK A1,/FF =9 8 & P ANS A1,DWTABT,A6 ABORT ALLOWED =9 P P LDR A4,A4 ACK RECEIVED ? z P ABL(Z) RTN:OK YES P ABL INTRTN NO, RVI RECEIVED P EJECT P* @ P* WRONG ACK RECEIVED,
0x154944…154ad8 Dummy {f00=0x0067, f01=0x0190, f02=»NZ) TRT290 YES, SEND ENQ < P LD A1,DWTETR,A6 NO RESPONSE RECEIVED. ENQ TRANSMITTED ? P ADK A1,L:ENQ ` 0 P RB(NZ) TRT235 YES, RETRANSMIT LAST MESSAGE v : P IM DWTLRS,A6 INDICATE RESPONSE RECEIVED, AND SEND ENQ P* P* PROCEDURE TIMEOUT
0x154ad8…154c6c Dummy {f00=0x0067, f01=0x018e, f02=»ECTION ERROR p P RB(P) TRT265 PTRT295 EQU * * P CF A5,TRENQ SEND ENQ > P LDK A1,T:ENQ ( P CF A15,SPRTIM START PROCEDURE TIMER r P ABL BRM START INPUT P* P* EOT RECEIVED P* PTRT310 EQU * $ P CF A5,CHKPAD CH
0x154c6c…154e00 Dummy {f00=0x0067, f01=0x0190, f02=» P LDK A1,CSSTAB : P CF A15,DCSUPR INCREMENT TRANSMISSION ABORTED COUNTER P XIF X . P LDK A1,R:CANC RC=MESSAGE BLOCK CANCELLED d P ABL OPEN20 P* P* WRONG CHARACTER RECEIVED P* PTRT330 EQU * P ABL BRM RESTART INP
0x154e00…154f94 (1, 275) Dummy {f00=0x0067, f01=0x0190, f02=»************************************************************ * D * TIMER HANDLING ROUTINES N * p @ <************************************************************ z * . )* ROUTINE USED TO START A PROCEDURE TIMER * PSPRT
0x154f94…155128 Dummy {f00=0x0067, f01=0x0190, f02=»5,SETIME START TIMER DATA TOUTPR TIMEOUT ENTRY SPRT10 DATA 0 TIMEOUT VALUE > ( # ST A4,DWTPTP,A6 SAVE TIMER POINTER b LDR* A4,A15 RESTORE A4 PSPRRTN EQU * P IFT CPU852=0 P RTN A15 RETURN P XIF P IFT CPU852=
0x155128…1552bc Dummy {f00=0x0067, f01=0x0190, f02=» x * TOUTPR EQU * & ! LDR A6,A1 GET ACTUAL DWT ADDRESS & LDK A5,DWTSTB P " ADR A5,A6 LOAD A5 STACK BASE f & P CM DWTPTP,A6 CLEAR TIMER POINTER * P LDK A1,I:PRT PROCEDURE TIMEOUT INDEX . ) ABL JUMP BRANCH TO RIGHT TIMEOUT RO
0x1552bc…155450 Dummy {f00=0x0067, f01=0x0190, f02=»NING ? r RF(Z) CPRT10 NO CM* DWTPTP,A6 KILL TIMER & CM DWTPTP,A6 CLEAR POINTER H CPRT10 EQU * l P IFT CPU852=0 P RTN A15 RETURN P XIF P IFT CPU852=1 " P ADKL A15,4 SET STACK POINTER P ABR* A15 AND RETU
0x155450…1555e4 Dummy {f00=0x0067, f01=0x0190, f02=»ORE TIMEOUT VALUE ( # LDR A1,A6 DWT ADDRESS AS PARAMETER STR A4,A15 SAVE A4 F CF A15,SETIME START TIMER b DATA TOUTRQ TIMEOUT ENTRY * %SRQT10 DATA 0 REQUESTED TIMEOUT VALUE " ST A4,DWTRTP,A6 SAVE POINTER LDR* A4,A15 R
0x1555e4…155778 Dummy {f00=0x0067, f01=0x018e, f02=»R t P ABR* A15 AND RETURN P XIF & * 2 ( #* TIMEOUT ENTRY FOR REQUESTED TIMER < * h TOUTRQ EQU * r & ! LDR A6,A1 GET ACTUAL DWT ADDRESS 2 P LDK A5,DWTSTB LET A5 POINT TO THE SECOND LAST P ADR A5,A6 ENTRY IN A5 STACK .
0x155778…15590c Dummy {f00=0x0067, f01=0x018e, f02=» d * ( #* ROUTINE TO KILL A REQUESTED TIMER * > CRQTIM EQU * H ( $ LD A1,DWTRTP,A6 ANY RUNNING TIMER ? P RF(Z) CRQT10 NO CM* DWTRTP,A6 KILL TIMER CM DWTRTP,A6 CLEAR POINTER PCRQT10 EQU * P IFT CPU852=0
0x15590c…155aa0 Dummy {f00=0x0067, f01=0x0190, f02=» z P XIF P IFT IDLELN=1 P EJECT * P* 8 P* START IDLE TIMER B P* PSIDTIM EQU * f ( P LD A1,DWTCON,A6 LEASED CONNECTION ? z 0 P RF(Z) CIDT10 YES, NO IDLE TIME SUPERVISION P LDR A1,A6 P STR A4,A15 SAVE A4 " P
0x155aa0…155c34 (1, 276) Dummy {f00=0x0067, f01=0x0190, f02=» A4 | P IFT CPU852=0 P RTN A15 " P XIF 2 P IFT IDLELN=1 > P IFT CPU852=1 T " P ADKL A15,4 SET STACK POINTER j P ABR* A15 AND RETURN P XIF P IFT IDLELN=1 P* P* IDLE TIMEOUT P* PTOUTID EQU *
0x155c34…155dc8 Dummy {f00=0x0067, f01=0x018e, f02=»M DWTITP,A6 CLEAR POINTER ( P CF A5,STAOUT RISE 'REQUEST TO SEND' " P CF A5,HLTOUT JUST A MOMENT N & P CF A15,SIDTIM RESTART IDLE TIMER r P ABL TDISP P* CLEAR IDLE TIMER P* PCIDTIM EQU * , P LD A1,DWTITP,A6 GET TIMER BLOCK P
0x155dc8…155f5c Dummy {f00=0x0067, f01=0x018e, f02=» P IFT CPU852=0 P RTN A15 RETURN P XIF 2 P IFT IDLELN=1 > P IFT CPU852=1 T " P ADKL A15,4 SET STACK POINTER j P ABR* A15 AND RETURN P XIF P EJECT P* D P* ROUTINE TO START A MODEM SUPERVISORY TIMER DURING TRAN
0x155f5c…1560f0 Dummy {f00=0x0067, f01=0x0190, f02=» $ P ST A1,SMET30 STORE TIMER VALUE " P LDKL A1,TOUTMT TIMEOUT ENTRY , P RF SMET10 R PSMETIM EQU * d & P ST A1,SMET30 STORE TIMEOUT VALUE x " P LDKL A1,TOUTME TIMEOUT ENTRY PSMET10 EQU * & P ST A1,SMET20 STORE TIMEOUT ENTRY ( P L
0x1560f0…156284 Dummy {f00=0x0067, f01=0x0190, f02=»TCH ENTRY p PSMET30 DATA 0 TIMEOUT VALUE ( P ST A4,DWTMTP,A6 SAVE TIMER POINTER 6 P LDR* A4,A15 RESTORE A4 b P IFT CPU852=0 P RTN A15 RETURN TO CALLER P XIF P IFT CPU852=1 " P ADKL A15,4 SET STACK POINTER P ABR*
0x156284…156418 Dummy {f00=0x0067, f01=0x0190, f02=»ESS v P* =7 P LDK A5,DWTSTB P ADR A5,A6 SET UP A5 STACK 2 $ P CF A5,HLTOUT HALT O/P IF ACTIVE T 2 P LDKL A2,/FF01 INDICATE MODEM ERROR STATUS =7 | P RF TOUT10 PTOUTME EQU * " P LDR A6,A1 RELOAD DWT ADDRESS 2 P LDK A2,1
0x156418…1565ac Dummy {f00=0x0067, f01=0x0190, f02=»EAR POINTER =8 & P ABL GETC17 TREAT THE INFORMATION P* @ > P* ROUTINE TO KILL A RUNNING MODEM ERROR SUPERVISION TIMER J * P* OR A TIMER CHECKING MODEM DURING O/P PCMTTIM EQU * P* PCMETIM EQU * $ P LD A1,DWTMTP,A6 TIMER RUNNI
0x1565ac…156740 Dummy {f00=0x0067, f01=0x0190, f02=»2=0 P RTN A15 RETURN TO CALLER P XIF . P IFT CPU852=1 : " P ADKL A15,4 SET STACK POINTER P P ABR* A15 AND RETURN v P XIF P EJECT P* 6 P* ROUTINE TO KILL A RUNNING MODEM CONNECTION TIMER P* PCMCTIM EQU *
0x156740…1568d4 (1, 277) Dummy {f00=0x0067, f01=0x018e, f02=» PCMCRTN EQU * P IFT CPU852=0 P RTN A15 RETURN TO CALLER . P XIF P P IFT CPU852=1 " P ADKL A15,4 SET STACK POINTER r P ABR* A15 AND RETURN P XIF P EJECT P* 2 P* ROUTINE FOR CHECKING TRAILING PAD CHARACTER
0x1568d4…156a68 Dummy {f00=0x0067, f01=0x018e, f02=» P LDK A1,1 INDICATE NOT PAD P RF CHK030 & PCHK020 EQU * 8 P LDK A1,0 INDICATE PAD L PCHK030 EQU * j P LDR A1,A1 SET CR ~ P ABR* A5 RETURN P EJECT PENQINT EQU * P CF A5,HLTINP HALT INPUT 0 P CF A15,CRQTIM STOP RE
0x156a68…156bfc Dummy {f00=0x0067, f01=0x0190, f02=» 0 P CF A15,SPRTIM START TIMER FOR SENDING WACK LDKL A1,RECEIV+INIT < . P ST A1,DWTMOD,A6 SET INITIAL RECEIVE MODE X $ P CM DWTCNT,A6 CLEAR ACK COUNTER LDKL A1,/8000 " ANS A1,DWTST,A6 CLEAR STATUS P RTN A5 P IFT ITBTR
0x156bfc…156d90 Dummy {f00=0x0067, f01=0x018e, f02=»NO OF C:SPACES P* PTRCOMP EQU * & 0 P LD A1,DWTCMP,A6 GET NO OF SPACES IN STRING < , P SC A2,DWTCMP,A6 SAVE NEXT CHAR IF ANY p . P CWK A1,SP:MIN NO OF SPACES LESS THAN MIN P RF(NL) TRCO20 NO PTRCO10 EQU * , P LDK A
0x156d90…156f24 Dummy {f00=0x0067, f01=0x0190, f02=» ( P LC A1,DWTCMP+1,A6 DECR SPACE COUNT P SUK A1,1 ALL SPACES SENT 0 P RF(Z) TRCRTN YES EXIT R " P SC A1,DWTCMP+1,A6 SAVE COUNT r P RB TRCO10 SEND NEXT SPACE 0 PTRCO20 EQU * NO OF SPACES >MIN SEND: GS SC P LDK A2,GS P CF
0x156f24…1570b8 Dummy {f00=0x0067, f01=0x0190, f02=»RK A2,SP:CHB FORM SPACE COUNT CHAR P CF A5,ACBPAR ACCUMULATE BCC , P CF A5,WRITEP SEND IT P PTRCRTN EQU * n P LDK A2,0 CLEAN FIRST ( P LC A2,DWTCMP,A6 RELOAD SAVED CHAR ( P CM DWTCMP,A6 CLEAR COMPRESSED MODE P RTN A5 RETURN
0x1570b8…15724c Dummy {f00=0x0067, f01=0x0190, f02=»A5,TRSYN START TRANSMITTER AND SEND SYN P LDK A2,C:STX 0 P CF A5,WRITE SEND STX F P CF A5,TRENQ5 SEND ENQ d P RTN A5 RETURN TO CALLER P EJECT P* P* . P* WRSYN : START TRANSMITTER IF 2-WIRE LINE P* AND SEND
0x15724c…1573e0 Dummy {f00=0x0067, f01=0x018e, f02=» INSTRUCTION ACCEPTED ? P RF(NN) TRSY10 YES " P LDK A2,1 INDICATE MODEM ERROR : ( P ABL GETC12 TREAT THE ERROR PROPERLY ` PTRSY10 EQU * P LDK A1,T:WRT 6 P CF A15,SMTTIM START MODEM SUPERV TIMER DURING O/P $ P CF A5,READ WAIT FOR IN
0x1573e0…157574 (1, 278) Dummy {f00=0x0068, f01=0x0190, f02=» P CF A5,WRITE SEND SYN P RTN A5 & P EJECT 6 P* D P* N P* TREOT : SEND SINGLE EOT X P* z P* PTREOT EQU * * P CF A5,TRSYN START OUTPUT AND SEND SYN PTREOT5 EQU * P LDK A2,C:EOT POUTEND EQU *
0x157574…157708 Dummy {f00=0x0068, f01=0x0190, f02=» CF A5,HLTOUT HALT OUTPUT 0 P CF A15,CMTTIM KILL MODEM SUPERVISORY TIMER " P RTN A5 V P* f P EJECT p P* ~ P* TRENQ : SEND SINGLE ENQ P* P* PTRENQ EQU * * P CF A5,TRSYN START OUTPUT AND SEND SYN PTRENQ5 E
0x157708…15789c Dummy {f00=0x0068, f01=0x0190, f02=»* * P CF A5,TRSYN START OUTPUT AND SEND SYN P LDK A2,C:NAK 8 P RB OUTEND N P* ` P EJECT j P* x " P* TRACK : SEND ACK-0 OR ACK-1 P* P* PTRACK EQU * P LDK A3,C:ACK0 & P LD A2,DWTCNT,A6 ACK0 TO BE SENT ?
0x15789c…157a30 Dummy {f00=0x0068, f01=0x0190, f02=» P CF A5,WRITE SEND DLE P LDR A2,A3 & P RB OUTEND 8 P* J P* T P* TRWACK : SEND WACK ^ P* z P* PTRWACK EQU * P LDK A3,C:WACK P RB TRA100 P* P* P* TRRVI : SEND RVI P* P*
0x157a30…157bc4 Dummy {f00=0x0068, f01=0x0190, f02=»* & P* INPUT CHARACTER DISPATCH HANDLER : P* THE ACTUAL CHARACTER IS ANALYSED, AND WITH REFERENCE 4 8 4* TO THE ACTUAL MODE OF THE DLS, A BRANCH IS MADE TO r P* THE CORRECT EVENT HANDLER. * D ?********************************************
0x157bc4…157d58 Dummy {f00=0x0068, f01=0x0190, f02=»NPUT | CF A5,STAINP RESTART INPUT $ LDR A1,A1 CIO ORDER ACCEPTED ? 0 P RF(NN) BRM005 YES X 0 P LDK A2,1 STATUS MODEM NOT OP (CU ERROR ???) r P ABL GETC15 PBRM005 EQU * P IFT IDLELN=1 $ P CF A15,SIDTIM START IDLE TIMER
0x157d58…157eec Dummy {f00=0x0068, f01=0x0190, f02=»X FOR DATA CHARACTER ~ P IFT CODE=0 P CWK A1,/1F DATA CHARACTER ? 0 P XIF T P IFT CODE=1 ` P CWK A2,/3D DATA CHARACTER ? t P XIF P RF(G) JUMP YES P LDR A1,A2 SAVE CHARACTER 4 P LC A1,INDEX,A1 GET INDEX FOR RECEIVED CHA
0x157eec…158080 Dummy {f00=0x0068, f01=0x0190, f02=» | ANK A4,/FF MAIN MODE : P LD A4,MAIN,A4 ADDR OF THIS MAIN MODES SUB MODE TABLES & 4 P ADR A4,A3 ADDRESS OF THE ACTUAL SUB MODE TABLE d . P LDR* A3,A4 ADDRESS OF ACTUAL BRANCH TABLE 0 P ADR A1,A3 ADDRESS OF CORRECT EVENT HANDLER P IFT C
0x158080…158214 (1, 279) Dummy {f00=0x0068, f01=0x0190, f02=»SAV,A6 RELOAD A3 P LD A4,DWTSAV+2,A6 AND A4 P XIF : * P ABR* A1 BRANCH TO RIGHT EVENT HANDLER F P EJECT t P* < P******************************************************* < P*******************************************************
0x158214…1583a8 Dummy {f00=0x0068, f01=0x0190, f02=»********* b < P******************************************************* P* R PDC17ON EQU * P IFT CPU852=0 p $ P MSR 8,A15 SAVE REGISTERS A15-A8 P XIF P IFT CPU852=1 & P CF A15,SAVE8 SAVE REGISTERS A1-A8 P XIF P L
0x1583a8…15853c Dummy {f00=0x0068, f01=0x0190, f02=» n $ P LD A6,DCTAB,A4 GET DWT ADDRESS $ P LD A1,DWTST,A6 GET LINE STATUS 0 P ANK A1,S:MNOP MODEM ERROR ? X , P RB(NZ) DRM100 YES, RECOVERY IN PROGRESS | 6 P LDK A5,DWTSTB-/10 LET A5 POINT TO THE SECOND LAST P ADR A5,A6 LEVEL IN A5 STACK &
0x15853c…1586d0 Dummy {f00=0x0068, f01=0x0190, f02=»P TRY TO CONNECT MODEM =6 P LDR* A1,A6 =6 " P ORS A1,HLTI:P =6 : 4 P EX HLTI:P HALT I/P TO GENERATE SST INTERRUPT =6 T P XRS A1,HLTI:P =6 P RB DRM100 TAKE NEXT LINE PDRM110 EQU * $ P LD A1,DWTOUT,A6 OUTPUT ACTIVE ? $ P RB(
0x1586d0…158864 Dummy {f00=0x0068, f01=0x0190, f02=»D =6 j ( P CF A5,STAOUT REACTIVATE O/P DEVICE P RB DRM100 TAKE NEXT LINE 8 PDRM150 EQU * Z " P ABL TDISP RECOVERY COMPLETED n EJECT B >************************************************************** * " * HARDWARE INTERFACE R
0x158864…1589f8 Dummy {f00=0x0068, f01=0x0190, f02=» HLTINP EQU * ( P LD A1,PFPOST POWER UP IN PROGRESS ? P ABL(NZ) TDISP YES H " LDR* A1,A6 GET DEVICE ADDRESS b . P ORS A1,HLTI:P CREATE CIO HALT INSTRUCTION P EX HLTI:P EXECUTE IT . P XRS A1,HLTI:P CLEAR DEVICE ADDRESS FIELD (
0x1589f8…158b8c Dummy {f00=0x0068, f01=0x0190, f02=»E WITH MODEM NOT OP p PHLT010 EQU * & P XRS A1,SSTI:P CLEAR ADDRESS FIELD 0 P IFF LOGG=0 =2 Z " CF A5,LOGSST LOGG STATUS INFO r P XIF $ P CM DWTINP,A6 INPUT NOT ALLOWED P IFT IDLELN=1 " P CF A15,CIDTIM KILL IDLE TIMER P
0x158b8c…158d20 Dummy {f00=0x0068, f01=0x0190, f02=» LD A1,PFPOST POWER UP IN PROGRESS ? P ABL(NZ) TDISP YES , P IFT SALCUZ=1 F $ P LD A1,DWTOUT,A6 OUTPUT ACTIVE ? P RB(Z) HLTRTN NO, RETURN P XIF $ LDR* A1,A6 INPUT DEVICE ADDRESS & " ADK A1,BIAS OUTPUT DEVICE ADDRESS & P ORS A
0x158d20…158eb4 (1, 280) Dummy {f00=0x0068, f01=0x0190, f02=»T ACCEPTED P* & P XRS A1,HLTO:P CLEAR ADDRESS FIELD " P CM DWTOUT,A6 SET O/P INACTIVE F P RB HLTRTN RETURN l PHLT020 EQU * P XIF & P XRS A1,HLTO:P CLEAR ADDRESS FIELD P* =1 P IFT SALCUZ=1 =1 * P CF A5,READ WA
0x158eb4…159048 Dummy {f00=0x0068, f01=0x018e, f02=» * P ORS A1,SSTO:P SST OUTPUT INSTRUCTION P EX SSTO:P EXECUTE IT 2 & P XRS A1,SSTO:P CLEAR ADDRESS FIELD P P* =1 z P IFF LOGG=0 =2 " P CF A5,LOGSUT LOGG STATUS INFO P* =1 P XIF 0 P CM DWTOUT,A6 OUTPUT INTERRUPTS NOT
0x159048…1591dc Dummy {f00=0x0068, f01=0x0190, f02=» STAINP EQU * ( $ LD A1,PFPOST POWER UP IN PROGRESS ? ABL(NZ) TDISP YES H P IFT SALCUZ=0 b & P LDKL A2,C:CRSP+C:SYN SYNC PATTERN x P XIF P IFT SALCUZ=1 P LDK A2,0 P XIF $ P LDR* A1,A6 INPUT DEVICE ADDRESS &
0x1591dc…159370 Dummy {f00=0x0068, f01=0x0190, f02=»NSTRUCTION NOT ACCEPTED P RF STAI20 STAI10 EQU * 2 $ P IM DWTINP,A6 SET INPUT ALLOWED F P IFT SALCUZ=1 n P LDK A2,C:SYN P ORS A1,OTR:SY $ P EX OTR:SY SPECIFY SYNC-PATTERN & P XRS A1,OTR:SY CLEAR ADDRESS FIELD P XIF
0x159370…159504 Dummy {f00=0x0068, f01=0x0190, f02=» INSTRUCTION ACCEPTED ? P RF(NN) STAI30 YES P LDK A1,CSCDTE : . P CF A15,DCSUPR INCREMENT DTE ERROR COUNTER P PSTAI30 EQU * P XIF P LDR A1,A2 RETURN CODE IN A1 P RTN A5 RETURN TO CALLER P EJECT * START OUTPUT DEVIC
0x159504…159698 Dummy {f00=0x0068, f01=0x0190, f02=»CE ADDRESS v * P ADK A1,BIAS GET OUTPUT DEVICE ADDRESS & P ORS A1,STAO:P CREATE INSTRUCTION @ P EX STAO:P EXECUTE IT j P RF(A) STAO10 . P LDKL A2,/8000 INDICATE OPEN NOT ACCEPTED P RF STAO20 PSTAO10 EQU * , P IM DWTOUT,A6 OUTP
0x159698…15982c Dummy {f00=0x0068, f01=0x0190, f02=»TTERN TO 'SALCUZ' v & P XRS A1,OTR:SY CLEAR ADDRESS FIELD P XIF D P LDK A2,0 RC=OK P PSTAO20 EQU * h & P XRS A1,STAO:P CLEAR ADDRESS FIELD | P IFT STAT=1 & P LDR A1,A2 INSTRUCTION ACCEPTED ? P RF(NN) STAO30 YES P LDK A1,CS
0x15982c…1599c0 Dummy {f00=0x0068, f01=0x0190, f02=»5 RETURN TO CALLER P EJECT * ( * %* ROUTINE FOR DISCONNECTING THE MODEM 2 * ` DISCM EQU * j P IFF SALCUZ=1 ~ $ CF A5,HLTINP HALT INPUT DEVICE $ CF A5,HLTOUT HALT OUTPUT DEVICE P XIF =6 PDISCM5 EQU * =6
0x1599c0…159b54 (1, 281) Dummy {f00=0x0068, f01=0x0190, f02=»GET INPUT DEVICE ADDRESS & ! ORS A1,CIODIS CREATE INSTRUCTION EX CIODIS EXECUTE IT J & " XRS A1,CIODIS CLEAR ADDRESS FIELD h P RTN A5 RETURN TO CALLER EJECT * 0 P* SUBROUTIN FOR ACTIVATING DTE-DCE INTERFACE *
0x159b54…159ce8 Dummy {f00=0x0068, f01=0x0190, f02=»EVICE (NO INTERRUPTS ALLOWED) v P STR A4,A15 SAVE A4 & ( P LDR A1,A6 DWT ADDRESS AS PARAMETER B P CF A15,SETIME START TIMER n P DATA ACTTIM TIMEOUT ENTRY P DATA T:MOD TIMEOUT VALUE ( P ST A4,DWTCTP,A6 SAVE TIMER POINTER P LDR* A4
0x159ce8…159e7c Dummy {f00=0x0068, f01=0x0190, f02=» * ACTTIM EQU * $ P LDR A6,A1 GET DWT ADDRESS TO A6 " * P LD A5,DWTSAV+8,A6 RELOAD STACKPOINTER J & P CM DWTCTP,A6 CLEAR TIMER POINTER x P IFT SALCUZ=1 P CF A5,STAINP ACTIVATE CU P XIF . P CF A5,HLTINP HALT INPUT TO GET CU
0x159e7c…15a010 Dummy {f00=0x0068, f01=0x018e, f02=»OT OP BIT r & ! LDK A1,0 INDICATE MODEM OPERABLE P RF ACTRTN < PACT010 EQU * N P LDK A1,S:MNOP b * % ORS A1,DWTST,A6 SET MODEM NOT OP BIT x " LDKL A1,/8000 INDICATE ERROR ACTRTN EQU * P RTN A5 RETURN TO CALLER P EJECT
0x15a010…15a1a4 Dummy {f00=0x0068, f01=0x0190, f02=» 2 P* THE ROUTINE WILL TRY TO RECONNECT THE MODEM : P* DURING A PREDEFINED TIME (DIFFERENT TIME VALUES FOR : 4 P* A DLS IN SLAVE MODE AND A DLS IN MASTER MODE). x 8 P* IF THE ERROR PERSISTS AFTER TIMEOUT, THE DLS WILL > P* ATTAIN 'NO LOGICAL CONNECT
0x15a1a4…15a338 Dummy {f00=0x0068, f01=0x0190, f02=», THE b 6 P* TIMER IS KILLED, AND A BRANCH WILL BE DONE TO A 2 P* PREDEFINED ENTRY DEPENDING ON THE DLS MODE. H 4 P* IF MODEM IS OK WHEN ENTERING THIS ROUTINE, THE ~ P* INPUT IS RESTARTED. P* @ P******************************************
0x15a338…15a4cc Dummy {f00=0x0068, f01=0x0190, f02=»RESTART I/P $ P LDR A2,A2 MODEM ERROR TIMEOUT ? P RF(N) MODR10 NO < . P CF A15,CMCTIM KILL MODEM CONNECTION TIMER T 4 P CM DWTABT,A6 INDICATE ABORT RECOVERY COMPLETED " P LD A1,DWTST,A6 ANY REQUEST ? P ABL(N) OPEN30 NO P LD A1,DWT
0x15a4cc…15a660 Dummy {f00=0x0068, f01=0x0190, f02=»N10 NO, COMPLETE WITH RC=MODEM NOT OP PMODR10 EQU * . * P ORS A1,DWTST,A6 SET MODEM NOT OP BIT B ( P CF A15,CPRTIM KILL PROCEDURE TIMER p 6 P LDK A1,T:MERR PRESET ERROR TIMER FOR MASTER MODE P LD A2,DWTMOD,A6 P ANKL A2,/FF00 GET MAIN MO
0x15a660…15a7f4 (1, 282) Dummy {f00=0x0069, f01=0x0190, f02=» LDK A2,L:ENQ GET ENQ LIMIT P SUK A2,3 3 RETRIES ? $ P RF(Z) MODR20 YES B 6 P SLL A1,2 NO, 15 RETRIES => MULT. WITH 16 IN TOTAL PMODR20 EQU * 6 P CF A15,SMETIM START MODEM ERROR SUPERVISORY TIMER PMODR30 EQU * ( P CF A5,ACTDCE TR
0x15a7f4…15a988 Dummy {f00=0x0069, f01=0x0190, f02=»WTMOD,A6 GET OPERATING MODE 8 P CWK A1,CNTRL+NOLCON 'NO LOGICAL CONNECTION' MODE ? $ " P RF(E) MODR50 YES, RESTART I/P ` P ANKL A1,/FF00 GET MAIN MODE 4 P SUKL A1,RECEIV RECEIVE MAIN MODE (SLAVE MODE) ? P RF(Z) MODR40 YES . P LDK A1,I:PR
0x15a988…15ab1c Dummy {f00=0x0069, f01=0x0190, f02=»AG t , P LD A1,DWTMOD,A6 GET DLS OPERATING MODE 0 P CWK A1,RECEIV+LRECOV 'LINK RECOVERY' MODE ? : P ABL(E) NAK065 YES n P LDK A1,T:MACT . P CF A15,SPRTIM START MASTER ACTIVITY TIMER PMODR50 EQU * P ABL BRM RESTART I/P EJECT
0x15ab1c…15acb0 Dummy {f00=0x0069, f01=0x0190, f02=»TER v P IFT CODE=0 * P CWK A2,C:PAD TRAILING PAD RECEIVED ? ( $ RF(E) RETURN YES, SKIP PARITY CHECK N P* z * CHECK PARITY P* ECR A1,A2 RE100 EQU * SLL A1,1 RF(Z) RE110 RB(NN) RE100 X
0x15acb0…15ae44 Dummy {f00=0x0069, f01=0x0190, f02=»F(NZ) PARERR PARITY ERROR RETURN EQU * " P XIF 6 P RTN A5 RETURN B P IFT CODE=0 X EJECT l * z * PARITY ERROR ENTRY * PARERR EQU * LC A1,DWTMOD,A6 ANK A1,/FF GET MAIN MODE P RF(Z) PAR010
0x15ae44…15afd8 Dummy {f00=0x0069, f01=0x0190, f02=»IVE MODE ? f P RF(E) PAR005 YES 4 P CWK A1,RECEIV+TRANSP TRANSPARENT RECEIVE MODE ? , P RF(NE) PAR010 NO d PPAR005 EQU * ~ 6 P ABL REC185 PARITY ERROR DURING MESSAGE RECEPTION PPAR010 EQU * P ABL BRM RESTART INPUT P XIF
0x15afd8…15b16c Dummy {f00=0x0069, f01=0x0190, f02=»A6 * P ADK A1,DWTSAV GET ADDRESS OF SAVEAREA P MSR 8,A1 SAVE A1-A8 8 P XIF T P IFT CPU852=1 ` & P ST A3,DWTSAV,A6 SAVE REGISTER A3, v P ST A4,DWTSAV+2,A6 A4 P ST A5,DWTSAV+4,A6 A5 P ST A7,DWTSAV+6,A6 A7 P ST A8,DWTSAV+
0x15b16c…15b300 Dummy {f00=0x0069, f01=0x0190, f02=»END CHARACTER p P* P* PWRITEP EQU * * P IFT CODE=0 > P ECR A1,A2 R P ORK A2,/80 d PWRP100 EQU * x P SLL A1,1 P RB(P) WRP100 P RF(Z) WRP110 P XRK A2,/80 P RB WRP100 PWRP110 EQU * P XIF
0x15b300…15b494 (1, 283) Dummy {f00=0x0069, f01=0x0190, f02=» ADDRESS t . P ADK A1,BIAS CREATE OUTPUT DEVICE ADDRESS , P ORS A1,OTR:A2 CREATE OTR A2 INSTRUCTION B P EX OTR:A2 EXECUTE IT r P RF(NA) WRIT10 NOT ACCEPTED & P XRS A1,OTR:A2 CLEAR ADDRESS FIELD 0 P LD A1,DWTOUT,A6 OUTPUT INTRRUPTS ALLOWED
0x15b494…15b628 Dummy {f00=0x0069, f01=0x0190, f02=»RRUPT r PWRIT10 EQU * & P XRS A1,OTR:A2 CLEAR ADDRESS FIELD " . P ORS A1,SSTO:P CREATE SST O/P INSTRUCTION L P EX SSTO:P EXECUTE IT ~ 2 P RF(NA) WRIT20 INSTRUCTION NOT ACCEPTED ????? & P XRS A1,SSTO:P CLEAR ADDRESS FIELD 0 P LD A1,DWTOU
0x15b628…15b7bc Dummy {f00=0x0069, f01=0x0190, f02=» SALCUZ=0 P* P* THROUGHPUT P* 0 P* =2 : P IFT STAT=1 J P LDK A1,CSCDOT ^ 4 P CF A15,DCSUPR INCREMENT O/P THROUGHPUT COUNTER t P XIF P IFT SALCUZ=0 $ P CF A5,STAOUT RESTART O/P DEVICE ( P RB READ WAIT FOR
0x15b7bc…15b950 Dummy {f00=0x0069, f01=0x0190, f02=»TUS ~ " P ANK A1,1 MODEM NOT OPERABLE ? P RF(NZ) WRIT15 YES 2 P RTN A5 SST OK, RETURN L P* j P* MODEM ERROR t P* PWRIT15 EQU * P IFT STAT=1 P LDK A1,CSCDCE 0 P CF A15,DCSUPR INCREMENT MODEM ERROR COUNTER P X
0x15b950…15bae4 Dummy {f00=0x0069, f01=0x0190, f02=»RANCH TO SST HANDLER OR DISC. MODEM P XIF , PWRIT20 EQU * 8 & P XRS A1,SSTO:P CLEAR ADDRESS FIELD L PWRIT30 EQU * v 0 P ABL TDISP UNKNOWN OR NOT ALLOWED INTERRUPT P IFT CODE=0 P EJECT P* P* P* CALCUL
0x15bae4…15bc78 Dummy {f00=0x0069, f01=0x0190, f02=» A5 P* P* P* READ AND CHECK BCC * P* H PRDBPAR EQU * V P CF A5,READP READP CHAR l ( P ADK A5,4 INCR RETURN STACK POINTER P XRR A7,A2 P ANK A7,/7F P ABR* A5 RETURN TO CALLER P XIF
0x15bc78…15be0c Dummy {f00=0x0069, f01=0x0190, f02=»CCUMULATED CRC P* P* PACBPAR EQU * * P ST A1,CRCSAV @ P ST A2,CRCSAV+2 V P ST A3,CRCSAV+4 n P LDK A1,8 PCRC100 LDR A3,A7 P SRL A7,1 P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110
0x15be0c…15bfa0 Dummy {f00=0x0069, f01=0x0190, f02=» P RTN A5 PCRCSAV RES 3 P EJECT , P* : P* D P* READ AND CHECK CRC N P* j " P* ON RETURN CR=0 IF CRC IS OK t P* P* PRDBPAR EQU * " P CF A5,READ READ 1ST CRC CHAR & P XRR A7,A2 CHECK WITH ACCUMULA
0x15bfa0…15c134 (1, 284) Dummy {f00=0x0069, f01=0x0190, f02=»ETURN P XIF EJECT * ( " * INPUT INTERRUPT PRE HANDLERS 2 * X * b * PHYSICAL LINE ONE l * IH1701 EQU * $ ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=0 $ P MSR 8,A15 SAVE REGISTERS A1-A8
0x15c134…15c2c8 Dummy {f00=0x0069, f01=0x018e, f02=»S d P IFF NLINE=1 0 , RF GETCHR GET THE CHARACTER FROM INPUT UNIT * R * PHYSICAL LINE TWO * x IH1703 EQU * ST P,INTSAV P MSR 8,A15 P LDKL A6,DW1702 P IFF NLINE=2 RF GETCHR * * PH
0x15c2c8…15c45c Dummy {f00=0x0069, f01=0x0190, f02=» RF GETCHR * * PHYSICAL LINE FOUR * < IH1707 EQU * F ST P,INTSAV Z P MSR 8,A15 n P LDKL A6,DW1704 P XIF * > :* ROUTIN TO GET THE CHARACTER FROM CHANNEL UNIT, OR IF NOT * %* ACCEPTED TO GET CHANNE
0x15c45c…15c5f0 Dummy {f00=0x0069, f01=0x0190, f02=» $ P MLR 8,A1 RELOAD REGISTERS A1-A8 P XIF , P IFT CPU852=1 8 . P CF A15,LDREG RELOAD REGISTERS A3-A5,A7,A8 N P XIF ( $ LDR* A1,A6 GET INPUT DEVICE ADDRESS * P ORS A1,INR:A2 CREATE INR INSTRUCTION . P EX INR:A2 TRY TO GET CHARACTER TO
0x15c5f0…15c784 Dummy {f00=0x0069, f01=0x0190, f02=» ? r P RF(Z) GETC30 NO P IFF LOGG=0 =2 " P CF A5,LOGIN =2 : P XIF =2 R P IFT IDLELN=1 d * P LD A1,DWTITP,A6 IDLE TIMER RUNNING ? z P RF(Z) GETC05 NO P LDKL A1,-T:IDLE $ P ST* A1,DWTITP,A6 RESTART TIMER P XIF
0x15c784…15c918 Dummy {f00=0x0069, f01=0x0190, f02=»1,SSTI:P SST INPUT INSTR P EX SSTI:P EXECUTE IT 0 P RF(NA) GETC25 INSTRUCTION NOT ACCEPTED ??? > ( P XRS A1,SSTI:P CLEAR ADDRESS FIELD r $ P LD A1,DWTINP,A6 INPUT ALLOWED ? P RF(Z) GETC30 NO PGETC12 EQU * P LDK A5,DWTSTB $ P
0x15c918…15caac Dummy {f00=0x0069, f01=0x0190, f02=»IF =2 P IFT IDLELN=1 " P CF A15,CIDTIM KILL IDLE TIMER & P XIF L PGETC15 EQU * X * P ORKL A2,/FF00 INDICATE SST INTERRUPT l PGETC17 EQU * ( P LD A1,DWTCON,A6 LEASED CONNECTION ? P RF(Z) GETC20 YES P LDR A1,A2 SAVE STAT
0x15caac…15cc40 Dummy {f00=0x0069, f01=0x0190, f02=» MODEM ERROR COUNTER x P XIF , P LDK A1,R:MNOP NO, RC=MODEM NOT OPERABLE ( : P ABL NCON30 DISCONNECT MODEM (CLEAR PHYS. CONNECTION) X PGETC20 EQU * P IFT STAT=1 P LDR A1,A2 SAVE STATUS P ANK A1,1 MODEM ERROR ? P RF(Z) GETC2
0x15cc40…15cdd4 (1, 285) Dummy {f00=0x0069, f01=0x0190, f02=» ANK A1,2 THROUGHPUT STATUS ? P RF(Z) GETC24 NO & 2 P LDK A1,CSCDIT INDEX TO I/P THROUGHPUT COUNTER > PGETC23 EQU * t , P CF A15,DCSUPR INCREMENT ACTUAL COUNTER PGETC24 EQU * P XIF * P LDK A1,I:SST INDEX FOR SST INTERRUPTS , P A
0x15cdd4…15cf68 Dummy {f00=0x0069, f01=0x0190, f02=»SP UNSOLICITED OR UNKNOWN INTERRUPT P EJECT , < P******************************************************* : P* z * P* INTERRUPT HANDLER , CHLC TRANSMITTER P* < P******************************************************* P* P*
0x15cf68…15d0fc Dummy {f00=0x0069, f01=0x018e, f02=» P XIF P IFT CPU852=1 & P CF A15,SAVE8 SAVE REGISTERS A1-A8 & P XIF P $ P LDKL A6,DW1701 LOAD DWT ADDRESS P IFF NLINE=1 P RF OUTCHR P* P* P* PIH1704 EQU * P ST P,INTSAV P MSR 8,A15 $ P LDKL
0x15d0fc…15d290 Dummy {f00=0x0069, f01=0x0190, f02=» P MSR 8,A15 $ P LDKL A6,DW1703 LOAD DWT ADDRESS P IFF NLINE=3 B P RF OUTCHR V P* h P* r P* | PIH1708 EQU * P ST P,INTSAV P MSR 8,A15 $ P LDKL A6,DW1704 LOAD DWT ADDRESS P XIF POUTCHR EQU * P
0x15d290…15d424 Dummy {f00=0x0069, f01=0x0190, f02=» P IFT CPU852=1 . P CF A15,LDREG RELOAD REGISTERS A3-A5,A7,A8 P XIF L * P LD A1,DWTOUT,A6 OUTPUT ACTIVATED ? =4 X 4 P ABL(Z) WRITE NO, BUT TRY TO SERVE INTERRUPT =4 P RTN A5 P IFT CPU852=1 P EJECT PLDREG EQU * P L
0x15d424…15d5b8 Dummy {f00=0x0069, f01=0x0190, f02=»WTSAV+8,A6 A8 " P ADKL A15,4 SET STACK POINTER P ABR* A15 AND RETURN < P XIF X P EJECT d P* r P* ILLEGAL INTERRUPTS | P* P IFF NLINE=4 PIH1707 EQU * PIH1708 EQU * P IFF NLINE=3 PIH1705 EQU * PIH
0x15d5b8…15d74c Dummy {f00=0x0069, f01=0x0190, f02=»L INTERRUPT v * P ABL ILLINT ILLEGAL INTERRUPT ROUTINE P EJECT B P* P P* Z & P* DCTAB: LINE CONFIGURATION TABLE d P* P* PDCTAB EQU * $ P DATA DCTABE-DCTAB TABLE LENGTH P DATA DW1701 P IFF NLINE=1 P D
0x15d74c…15d8e0 Dummy {f00=0x0069, f01=0x0190, f02=» P* : P* TABLE HOLDING INDEX FOR INPUT CHARACTERS, WHICH ARE < P* LESS THAN /1F FOR ASCII AND 3D FOR EBCDIC. THE INEX IS P > P* USED TO MAKE A BRANCH TO THE CORRECT CHARACTER HANDLER. P* PINDEX EQU * P BYTE I:CHR,I:STX
0x15d8e0…15da74 (1, 286) Dummy {f00=0x006a, f01=0x0190, f02=» P BYTE I:CHR,I:CHR P BYTE I:CHR,I:CHR " P BYTE I:CHR,I:CHR < P BYTE I:CHR,I:CHR V P BYTE I:CHR,I:CHR p P BYTE I:DLE,I:CHR P BYTE I:CHR,I:CHR P IFT CODE=0 P BYTE I:CHR,I:NAK P BYTE I:SYN,I:ETB P X
0x15da74…15dc08 Dummy {f00=0x006a, f01=0x0190, f02=»R P BYTE I:CHR,I:GS P BYTE I:CHR,I:ITB " P IFT CODE=1 < P BYTE I:CHR,I:CHR P P BYTE I:CHR,I:CHR j P BYTE I:CHR,I:CHR P BYTE I:ETB,I:CHR P BYTE I:CHR,I:CHR P BYTE I:CHR,I:CHR P BYTE I:CHR,I:ENQ P B
0x15dc08…15dd9c Dummy {f00=0x006a, f01=0x0190, f02=»CHR,I:CHR P BYTE I:CHR,I:CHR P BYTE I:CHR,I:NAK , P XIF F P EJECT T P* b " P* ADDRESSES OF SUB MODE TABLES l P* PMAIN EQU * 2 P DATA CNTSUB MAINS CONTROL MODE SUB MODE TABLE 2 P DATA RECSUB MAINS RECEIVE MODE SUB
0x15dd9c…15df30 Dummy {f00=0x006a, f01=0x018e, f02=» PCNTSUB EQU * ! P DATA CNTINI CNTRL+INIT ! P DATA CNTWCA CNTRL+WCALL ! 8 P DATA CNTNOL CNTRL+NOLCON ! X P DATA CNTWAC CNTRL+WACK0 ! z P* ! * P* SUB MODE TABLE FOR RECEIVE MAIN MODE ! P* ! PRECSUB EQU * ! P DATA RECINI RECEIV+INIT
0x15df30…15e0c4 Dummy {f00=0x006a, f01=0x0190, f02=» ! t P DATA RECREC RECEIV+LRECOV " P* " * ( P* SUB MODE TABLE FOR SEND MAIN MODE " 4 P* " ` PTRMSUB EQU * " j P DATA TRMINI SEND+INIT " ~ P DATA TRMTTD SEND+WACKD " P DATA TRMWAC SEND+WACK " P EJECT " < P********************************
0x15e0c4…15e258 Dummy {f00=0x006a, f01=0x0190, f02=»************************* " r P* INITIAL CONTROL MODE # " P* # @ PCNTINI EQU * # J . P DATA OPEN40 REQUEST TIMEOUT & ABORT ENTRY # ^ & P DATA HLT NOT ALLOWED IN THIS MODE # & P DATA HLT NOT ALLOWED IN THIS MODE # P* # " P* CONTROL + WAIT FOR CALL
0x15e258…15e3ec Dummy {f00=0x006a, f01=0x018e, f02=»NTERRUPT # ~ P* $ * P* CONTROL + NO LOGICAL CONNECTION MODE $ P* $ H PCNTNOL EQU * $ R ( P DATA NCON85 REQUEST TIMEOUT & ABORT $ f P DATA HLT ILLEGAL BRANCH $ P DATA NCON70 SST INTERRUPT $ P DATA NCON SYN $ P DATA NCON60 STX $ P DATA
0x15e3ec…15e580 Dummy {f00=0x006a, f01=0x0190, f02=» P DATA NCON40 ENQ % P DATA NCON60 GS % P DATA NCON60 DATA CHARACTER % 4 P EJECT % X P* % f P* CONTROL + WAIT FOR ACK 0 % p P* % PCNTWAC EQU * % P DATA CON240 ABORT % " P DATA CON220 PROCEDURE TIMEOUT % P DATA CON230 SST INTERRU
0x15e580…15e714 (1, 287) Dummy {f00=0x006a, f01=0x018e, f02=»CON190 EOT % P DATA CON110 DLE & P DATA CON170 NAK & * P DATA CON160 ENQ & B P DATA CON210 GS & Z P DATA CON210 DATA CHARACTER & r P EJECT & < P******************************************************* & P* & 2 P* BRANCH TABLES FOR A DLS
0x15e714…15e8a8 Dummy {f00=0x006a, f01=0x0190, f02=» & x P* ' PRECINI EQU * ' ( P DATA REC100 REQUEST TIMEOUT & ABORT ' & * P DATA WACK00 PROCEDURE TIMEOUT (WACK) ' R P DATA REC095 SST INTERRUPT ' P* ' P* RECEIVE + WACK DELAY MODE ' P* ' PRECWAC EQU * ' ( P DATA WACK80 REQUEST TIMEO
0x15e8a8…15ea3c Dummy {f00=0x006a, f01=0x0190, f02=»TX ' P DATA WACK60 ITB ( P DATA WACK60 ETB ( " P DATA WACK60 ETX ( : P DATA WACK25 EOT ( R P DATA WACK15 DLE ( j P DATA WACK60 NAK ( P DATA WACK45 ENQ ( P DATA WACK60 GS ( P DATA WACK60 DATA CHARACTER ( P EJECT ( P* ( P*
0x15ea3c…15ebd0 Dummy {f00=0x006a, f01=0x018e, f02=»MSV2) ( p P DATA REC140 SST INTERRUPT ) P DATA REC105 SYN ) 0 P DATA REC160 STX ) H P DATA REC150 ITB ) ` P DATA REC150 ETB ) x P DATA REC150 ETX ) P DATA REC130 EOT ) P DATA REC155 DLE ) P DATA REC150 NAK ) P DATA REC110 ENQ ) P
0x15ebd0…15ed64 Dummy {f00=0x006a, f01=0x0190, f02=» ( P DATA REC280 REQUEST TIMEOUT & ABORT * * P DATA REC300 PROCEDURE TIMEOUT (MSV2) * 0 P DATA REC290 SST INTERRUPT * ^ P DATA REC195 SYN * P DATA REC250 STX * P DATA REC230 ITB * P DATA REC270 ETB * P DATA REC270 ETX * P DATA REC250 EOT
0x15ed64…15eef8 Dummy {f00=0x006a, f01=0x0190, f02=» P EJECT + P* =5 + P* + " P* TRANSPARENT RECEIVE MODE + , P* + N PRECTRP EQU * + X P IFT CODE=1 =5 + l ( P DATA REC490 REQUEST TIMEOUT & ABORT + * P DATA REC500 PROCEDURE TIMEOUT (MSV2) + P DATA REC480 SST INTERRUPT + P DATA RE
0x15eef8…15f08c Dummy {f00=0x006a, f01=0x0190, f02=» DATA REC400 DLE + P DATA REC425 NAK , P DATA REC420 ENQ , 0 P DATA REC425 GS , H P DATA REC425 DATA CHARACTER , ` P XIF , P* , " P* RECEIVE + LINK RECOVERY MODE , P* , PRECREC EQU * , ( P DATA NAK090 REQUEST TIMEOUT & ABORT , *
0x15f08c…15f220 Dummy {f00=0x006a, f01=0x0190, f02=»*************** , h P* - 0 P* BRANCH TABLES FOR A DLS IN SEND MAIN MODE - " P* - V < P******************************************************* - ` P* - P* INITIAL SEND MODE - P* - PTRMINI EQU * - P DATA TRT210 ABORT - ( P DATA TTDD
0x15f220…15f3b4 (1, 288) Dummy {f00=0x006a, f01=0x018e, f02=» EQU * - P DATA TTD150 ABORT . " P DATA TTD100 PROCEDURE TIMEOUT . ( P DATA TTD120 SST INTERRUPT . N P DATA TTD030 SYN . p P DATA TTD090 STX . P DATA TTD090 ITB . P DATA TTD090 ETB . P DATA TTD090 ETX . P DATA TTD090 EOT . P DATA TT
0x15f3b4…15f548 Dummy {f00=0x006a, f01=0x0190, f02=» P* / ( P* SEND + WAITING FOR ACKNOWLEDGMENT / P* / : PTRMWAC EQU * / D P DATA HLT ILLEGAL BRANCH / X " P DATA TRT290 PROCEDURE TIMEOUT / x P DATA TRT340 SST INTERRUPT / P DATA TRT225 SYN / P DATA TRT330 STX / P DATA TRT330 ITB / P
0x15f548…15f6dc Dummy {f00=0x006a, f01=0x0190, f02=» / P DATA TRT330 GS 0 P DATA TRT330 DATA CHARACTER 0 PHLT EQU * 0 D P HLT 0 V P EJECT 0 b P* 0 p P* 0 z $ P* DEVICE WORK TABLE FOR LINE 01 0 P* 0 P* 0 PDW1701 EQU * 0 P DATA DAMI01 DEVICE ADDRESS 0 2 P DATA /8000 STAT
0x15f6dc…15f870 Dummy {f00=0x006a, f01=0x0190, f02=»A 0 TTAB ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR 1 & P DATA 0 TASK QUEUE FOR THIS DEVICE 1 @ P IFT MMUPAG=1 1 j P DATA 0 USER ECB 1 P DATA ECBDC1 MMU ECB 1 P XIF 1 P IFT STAT=1 1 P DATA BUFF1-DW1701 1 P DATA 0 1 P DATA 0 1
0x15f870…15fa04 Dummy {f00=0x006a, f01=0x0190, f02=»0 TYPE OF CONNECTION (SWITCHED/LEASED) 1 2 P DATA 0 TRANSMISSION MODE (TRANSP/NON TRANSP) 2 . P DATA 0 ABORT INDICATOR 2 d " P DATA 0 INPUT ACTIVE INDICATOR 2 $ P DATA 0 OUTPUT ACTIVE INDICATOR 2 $ P DATA 0 PROCEDURE TIMER POINTER 2 " P DATA 0 REQUES
0x15fa04…15fb98 Dummy {f00=0x006a, f01=0x018e, f02=»ER POINTER 2 t P DATA 0 ENQ COUNTER 3 P DATA 0 WACK COUNTER 3 . " P DATA 0 RETRANSMISSION COUNTER 3 J P DATA 0 LAST RESPONSE 3 p P DATA 0 ACK COUNTER 3 P DATA 0 DLE INDICATOR 3 ( P DATA 0 SPACE COMPRESSION WORK AREA 3 P IFT CPU852=0 3 (
0x15fb98…15fd2c Dummy {f00=0x006a, f01=0x0190, f02=» 3 P RES 12 A5 STACK 4 P IFT ITBTRM=1 =10 4 * P DATA 0 CHARACTER COUNTER FOR ITB =10 4 : P XIF =10 4 h P IFT MMUPAG=1 4 z PECBDC1 EQU * 4 P DATA 0 4 P DATA DCBUF1 4 P DATA 0,0,0,0,0 4 PDCBUF1 RES TBUFL+1 4 P XIF 4 P**
0x15fd2c…15fec0 Dummy {f00=0x006a, f01=0x0190, f02=»G 4 PLOGEND EQU *-DW1701-4 5 PSAVE2 EQU *-DW1701 5 ( P DATA 0 5 B PSAVE3 EQU *-DW1701 5 R P DATA 0 5 l P XIF 5 | P IFT STAT=1 5 & PBUFF1 DATA 0 RESERVED FOR ADDRESS 5 P DATA 0 COUNTER STATUS 5 P DATA /1C NBR OF COUNTERS 5 P R
0x15fec0…160054 (1, 289) Dummy {f00=0x006a, f01=0x0190, f02=» 5 p P* 6 P* 6 PDW1702 EQU * 6 P DATA DAMI02 DEVICE ADDRESS 6 0 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY 6 T P DATA 0 ECB ADDRESS 6 P DATA 0 ORDER 6 ( P DATA DRMAD POINTER TO ADDRESS BLOCK 6 P DATA 0 TTAB ADDRESS 6 $ P DAT
0x160054…1601e8 Dummy {f00=0x006a, f01=0x0190, f02=» MMU ECB 6 P XIF 7 P IFF NLINE=1 7 P IFT STAT=0 7 4 P DATA BUFF2-DW1702 7 H P DATA 0 7 b P DATA 0 7 r P DATA /4C32 7 P DATA 0 7 P XIF 7 P IFF NLINE=1 7 & P DATA 0 APPLICATION TIMEOUT VALUE 7 P DATA 0 DLS OPERATING MO
0x1601e8…16037c Dummy {f00=0x006a, f01=0x0190, f02=»TOR 7 | " P DATA 0 INPUT ACTIVE INDICATOR 8 $ P DATA 0 OUTPUT ACTIVE INDICATOR 8 2 $ P DATA 0 PROCEDURE TIMER POINTER 8 Z " P DATA 0 REQUEST TIMER POINTER 8 ( P DATA 0 MODEM TRANSMIT TIMER POINTER 8 $ P DATA 0 IDLE ACT. TIMER POINTER 8 * P DATA 0 MODE
0x16037c…160510 Dummy {f00=0x006a, f01=0x0190, f02=»LAST RESPONSE 8 P DATA 0 ACK COUNTER 9 P DATA 0 DLE INDICATOR 9 2 ( P DATA 0 SPACE COMPRESSION WORK AREA 9 P P IFT CPU852=0 9 | ( P RES 8 SAVE AREA FOR REGISTERS A1-A8 9 P XIF 9 P IFF NLINE=1 9 P IFT CPU852=1 9 . P RES 5 SAVE AREA FOR
0x160510…1606a4 Dummy {f00=0x006a, f01=0x018e, f02=»R FOR ITB =10 9 x P XIF =10 : P IFF NLINE=1 =10 : ( P IFT MMUPAG=1 : B PECBDC2 EQU * : X P DATA 0 : l P DATA DCBUF2 : | P DATA 0,0,0,0,0 : PDCBUF2 RES TBUFL+1 : P XIF : P IFF NLINE=1 : P**LOGG : P IFF LOGG=0 : P
0x1606a4…160838 Dummy {f00=0x006a, f01=0x0190, f02=» : & PBUFF2 DATA 0 RESERVED FOR ADDRESS ; P DATA 0 COUNTER STATUS ; 2 P DATA /1C NBR OF COUNTERS ; P P RES /1C COUNTER AREA ; r P XIF ; P* ; P IFF NLINE=1 ; P IFF NLINE=2 ; P EJECT ; P* ; P* ; $ P* DEVICE WORK TABLE FOR
0x160838…1609cc Dummy {f00=0x006a, f01=0x0190, f02=»Y ; d P DATA 0 ECB ADDRESS < P DATA 0 ORDER < & ( P DATA DRMAD POINTER TO ADDRESS BLOCK < < P DATA 0 TTAB ADDRESS < h $ P DATA 0 WAIT/ACTIVATE INDICATOR < & P DATA 0 TASK QUEUE FOR THIS DEVICE < P IFT MMUPAG=1 < P DATA 0 USER ECB < P DAT
0x1609cc…160b60 Dummy {f00=0x006a, f01=0x018e, f02=»0 < P DATA 0 = P DATA /4C33 = P DATA 0 = . P XIF = > P IFF NLINE=1 = J P IFF NLINE=2 = ^ & P DATA 0 APPLICATION TIMEOUT VALUE = r P DATA 0 DLS OPERATING MODE = 0 P DATA 0 TYPE OF CONNECTION (SWITCHED/LEASED) = 2 P DATA 0 TRANSMISSION M
0x160b60…160cf4 (1, 290) Dummy {f00=0x006b, f01=0x0190, f02=» = n $ P DATA 0 PROCEDURE TIMER POINTER > " P DATA 0 REQUEST TIMER POINTER > 0 ( P DATA 0 MODEM TRANSMIT TIMER POINTER > V $ P DATA 0 IDLE ACT. TIMER POINTER > * P DATA 0 MODEM CONNECTION TIMER POINTER > P DATA 0 ENQ COUNTER > P DATA 0 WACK COUNTER
0x160cf4…160e88 Dummy {f00=0x006b, f01=0x0190, f02=»ATA 0 SPACE COMPRESSION WORK AREA > P IFT CPU852=0 ? * ( P RES 8 SAVE AREA FOR REGISTERS A1-A8 ? @ P XIF ? l P IFF NLINE=1 ? x P IFF NLINE=2 ? P IFT CPU852=1 ? . P RES 5 SAVE AREA FOR REGISTERS A3-A5,A7,A8 ? P XIF ? P IFF NLINE=1 ? P
0x160e88…16101c Dummy {f00=0x006b, f01=0x0190, f02=»0,0 ? PDCBUF3 RES TBUFL+1 @ P XIF @ & P IFF NLINE=1 @ 2 P IFF NLINE=2 @ J P**LOGG @ b P IFF LOGG=0 @ p P DATA LGST03 @ PLGST03 EQU * @ P RES LOGG @ P DATA 0 @ P DATA 0 @ P XIF @ P IFF NLINE=1 @ P IFF NLINE
0x16101c…1611b0 Dummy {f00=0x006b, f01=0x0190, f02=» RES /1C COUNTER AREA @ P XIF A P* A * P IFF NLINE=1 A 4 P IFF NLINE=2 A H P IFF NLINE=3 A P EJECT A p P* A ~ P IFT ITBTRM=1 =10 A * P DATA 0 CHARACTER COUNTER FOR ITB =10 A P XIF =10 A P IFF NLINE=1 =10 A P IFF NLINE=2
0x1611b0…161344 Dummy {f00=0x006b, f01=0x0190, f02=» 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY B P DATA 0 ECB ADDRESS B : P DATA 0 ORDER B V ( P DATA DRMAD POINTER TO ADDRESS BLOCK B l P DATA 0 TTAB ADDRESS B $ P DATA 0 WAIT/ACTIVATE INDICATOR B & P DATA 0 TASK QUEUE FOR THIS DEVICE B P I
0x161344…1614d8 Dummy {f00=0x006b, f01=0x0190, f02=» B P IFT STAT=1 C P DATA BUFF4-DW1704 C P DATA 0 C : P DATA 0 C J P DATA /4C34 C Z P DATA 0 C n P XIF C ~ P IFF NLINE=1 C P IFF NLINE=2 C P IFF NLINE=3 C & P DATA 0 APPLICATION TIMEOUT VALUE C P DATA 0 DLS OPERATING MO
0x1614d8…16166c Dummy {f00=0x006b, f01=0x0190, f02=»TOR C | " P DATA 0 INPUT ACTIVE INDICATOR D $ P DATA 0 OUTPUT ACTIVE INDICATOR D 2 $ P DATA 0 PROCEDURE TIMER POINTER D Z " P DATA 0 REQUEST TIMER POINTER D ( P DATA 0 MODEM TRANSMIT TIMER POINTER D $ P DATA 0 IDLE ACT. TIMER POINTER D * P DATA 0 MODE
0x16166c…161800 Dummy {f00=0x006b, f01=0x018e, f02=»LAST RESPONSE D P DATA 0 ACK COUNTER E P DATA 0 DLE INDICATOR E 2 ( P DATA 0 SPACE COMPRESSION WORK AREA E P P IFT CPU852=0 E | ( P RES 8 SAVE AREA FOR REGISTERS A1-A8 E P XIF E P IFF NLINE=1 E P IFF NLINE=2 E P IFF NLINE=3 E P I
0x161800…161994 (1, 291) Dummy {f00=0x006b, f01=0x0190, f02=» E P RES 12 A5 STACK F P IFT ITBTRM=1 =10 F * P DATA 0 CHARACTER COUNTER FOR ITB =10 F : P XIF =10 F h P IFF NLINE=1 =10 F z P IFF NLINE=2 =10 F P IFF NLINE=3 =10 F P IFT MMUPAG=1 F PECBDC4 EQU * F P DATA 0 F P DATA
0x161994…161b28 Dummy {f00=0x006b, f01=0x0190, f02=» F P**LOGG G P IFF LOGG=0 G P DATA LGST04 G . PLGST04 EQU * G B P RES LOGG G V P DATA 0 G h P DATA 0 G x P XIF G P IFF NLINE=1 G P IFF NLINE=2 G P IFF NLINE=3 G P IFT STAT=1 G & PBUFF4 DATA 0 RESERVED FOR ADDRESS G
0x161b28…161cbc Dummy {f00=0x006b, f01=0x0190, f02=»* G P* H P* DUMMY DWT H P* H ( P* H 2 P IFF NLINE=4 H < PDW1704 EQU * H P P IFF NLINE=3 H d PDW1703 EQU * H x P IFF NLINE=2 H PDW1702 EQU * H P XIF H P DATA 0 DUMMY DWT H P DATA 0 STATUS BUSY H P EJECT H P* H
0x161cbc…161e50 Dummy {f00=0x006b, f01=0x018e, f02=»UT CHARACTER MARKED /00 H P* INPUT STATUS MARKED /1F I " P* OUTPUT STATUS MARKED /0F - I D P* I j P IFF LOGG=0 I t PLOGSUT EQU * I P ST A2,SAVE2,A6 I P ORKL A2,/0F00 I P RF LOG10 I PLOGSST ST A2,SAVE2,A6 I P ORKL A2,/1F00
0x161e50…161fe4 Dummy {f00=0x006b, f01=0x0190, f02=» I P ST A2,SAVE2,A6 J P ORKL A2,/1100 J PLOG10 ST A3,SAVE3,A6 J 6 P LD A3,LOGPNT,A6 J R P STR A2,A3 J j P ADK A3,2 J | P SUR A3,A6 J P CWK A3,LOGEND J P RF(L) LOGEXI J P LDKL A3,LOGSTA J PLOGEXI EQU * J P ADR A3,A6 J
0x161fe4…162178 Dummy {f00=0x006b, f01=0x4008, f02=»@ K ST A2,SAVE2,A6 J P ORKL A2,/1100 J PLOG10 ST A3,SAVE3,A6 J 6 P LD A3,LOGPNT,A6 J R P STR A2,A3 J j P ADK A3,2 J | P SUR A3,A6 J P CWK A3,LOGEND J P RF(L) LOGEXI J P LDKL A3,LOGSTA J PLOGEXI EQU * J P ADR A3,A6 J
0x162178…16230c Dummy {f00=0x006b, f01=0x2008, f02=» L 0 8 @ x @
0x16230c…1624a0 Dummy {f00=0x006b, f01=0x0190, f02=» P ST A1,CRCSAV P ST A2,CRCSAV+2 P ST A3,CRCSAV+4 2 P LDK A1,8 J PCRC100 LDR A3,A7 P SRL A7,1 t P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRKL A7,/A001 PCRC110 SUK A1,1 P RB(NZ)
0x1624a0…162634 (1, 292) Opaque[0x194]
0x162634…1627c8 # DirEnt {nam=»DRDC22«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d70, f03=0x0000}
0x162634…1627c8 IdxSect {
0x162634…1627c8 f00 = 0x006b // 0x162634 @0x0
0x162634…1627c8 f01 = 0x003e // 0x162636 @0x2
0x162634…1627c8 gno = [ // 0x162638 @0x4
0x162634…1627c8 [0x00]: C0x006b.0x2.0
0x162634…1627c8 [0x01]: C0x006b.0x3.0
0x162634…1627c8 [0x02]: C0x006c.0x0.0
0x162634…1627c8 [0x03]: C0x006c.0x1.0
0x162634…1627c8 [0x04]: C0x006c.0x2.0
0x162634…1627c8 [0x05]: C0x006c.0x3.0
0x162634…1627c8 [0x06]: C0x006d.0x0.0
0x162634…1627c8 [0x07]: C0x006d.0x1.0
0x162634…1627c8 [0x08]: C0x006d.0x2.0
0x162634…1627c8 [0x09]: C0x006d.0x3.0
0x162634…1627c8 [0x0a]: C0x006e.0x0.0
0x162634…1627c8 [0x0b]: C0x006e.0x1.0
0x162634…1627c8 [0x0c]: C0x006e.0x2.0
0x162634…1627c8 [0x0d]: C0x006e.0x3.0
0x162634…1627c8 [0x0e]: C0x006f.0x0.0
0x162634…1627c8 [0x0f]: C0x006f.0x1.0
0x162634…1627c8 [0x10]: C0x006f.0x2.0
0x162634…1627c8 [0x11]: C0x006f.0x3.0
0x162634…1627c8 [0x12]: C0x0070.0x0.0
0x162634…1627c8 [0x13]: C0x0070.0x1.0
0x162634…1627c8 [0x14]: C0x0070.0x2.0
0x162634…1627c8 [0x15]: C0x0070.0x3.0
0x162634…1627c8 [0x16]: C0x0071.0x0.0
0x162634…1627c8 [0x17]: C0x0071.0x1.0
0x162634…1627c8 [0x18]: C0x0071.0x2.0
0x162634…1627c8 [0x19]: C0x0071.0x3.0
0x162634…1627c8 [0x1a]: C0x0072.0x0.0
0x162634…1627c8 [0x1b]: C0x0072.0x1.0
0x162634…1627c8 [0x1c]: C0x0072.0x2.0
0x162634…1627c8 [0x1d]: C0x0072.0x3.0
0x162634…1627c8 [0x1e]: C0x0073.0x0.0
0x162634…1627c8 ]
0x162634…1627c8 }
0x1627c8…16295c Dummy {f00=0x006b, f01=0x018e, f02=» 0 P IDENT DRDC22 REL 11.0 81-01-26 870105041100 P 8 2 P********************************************* @ P* v $ P* PHILIPS TERMINAL SYSTEM PTS P* P* 2 P* DRDC22 : UNISCOPE 100 SYNCHRONOUS PROTOCOL P* ON PT
0x16295c…162af0 Dummy {f00=0x006b, f01=0x0190, f02=» P* ENTRY POINTS P* P* ( 2 P ENTRY DC22AD ADDRESS BLOCK TERMINAL REQUESTS 2 " P ENTRY IH2201 INPUT INTERRUPT h " P ENTRY IH2202 OUTPUT INTERRUPT " P ENTRY DC22ON POWER ON ROUTINE P* P* P* EXTERNAL REFERENCES
0x162af0…162c84 Dummy {f00=0x006b, f01=0x0190, f02=»NT r P EXTRN SETIME SET TIMER " P EXTRN DWTCHP TERMINAL ADDRESS * P EXTRN DWTST DWT STATUS P P EXTRN DWTOR DWT ORDER p P EXTRN DWTECB DWT ECB * P EXTRN DC:MIN MOVE DATA TO USER BUFFER , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0
0x162c84…162e18 Dummy {f00=0x006b, f01=0x018e, f02=» j . P EXTRN DCSRED READ STATISTICS ENTRY POINT : P EXTRN DCSRLL RESET ALL STATISTICS BUFFERS ENTRY POINT : : P EXTRN DCSUPS UPDATE STATISTICS ENTRY POINT IN DCSTAT x 8 P EXTRN GETDNA VALIDATE AND CONVERT SYMBOLIC DTE ADDR 8 P EXTRN GETSNA VALIDATE
0x162e18…162fac Dummy {f00=0x006b, f01=0x0190, f02=» P* REGISTER USAGE: P* " P* A1 WORK (RETURN CODE) , P* A2 WORK L P* A3 WORK (BUFFER LENGTH) ^ P* A4 WORK (BUFFER POINTER) P* A5 DRIVER STACK POINTER P* A6 DWT ADDRESS $ P* A7 ORDER CODE, DTETAB ADDRESS P* A8
0x162fac…163140 Dummy {f00=0x006b, f01=0x0190, f02=»**************************************************** P* < P* CONDITIONAL ASSEMBLY F P* d D P*************************************************************** n P* * P* A PROGRAM VERSION USING TOSS PAGING * P* IS OBTAINED BY SETTI
0x163140…1632d4 (1, 293) Dummy {f00=0x006b, f01=0x0190, f02=»NED BY SETTING CPU852 EQU 0 P* $ PCPU852 EQU 0 . P* B P* L P* RECEIVE BUFFER LENGTH V P* v & PX:A EQU 128 RECEIVE BUFFER LENGTH PRBUFL EQU X:A P* P* P* NUMBER OF RECEIVE BUFFERS P* PX:B EQ
0x1632d4…163468 Dummy {f00=0x006b, f01=0x0190, f02=» P* PX:C EQU 0 PLOGG EQU X:C P* 4 ( P* POLL TIMEOUT VALUE IN NO OF 100 MS > P* j PX:D EQU 600 t PTIMPOL EQU X:D POLL TIME-OUT P* P* SUPPRESS NULL CHARACTERS P* 0 = NO SUPPRESS P* 1 = SUPPRESS P
0x163468…1635fc Dummy {f00=0x006b, f01=0x0190, f02=»E 6857/SALCUZ P* PX:F EQU 0 PSALCUZ EQU X:F 4 P* J P* INPUT DEVICE ADDRESS T P* r P IFT SALCUZ=0 | PX:G EQU /02 INPUT DEV ADDR PDCDEVI EQU X:G INPUT ADDR & PDCDEVO EQU DCDEVI+/10 OUTPUT ADDR P XIF
0x1635fc…163790 Dummy {f00=0x006b, f01=0x018e, f02=» p P XIF P* AUXILIARY DEVICE HANDLING P* 0 = NO AUXILIARY < P* 1 = AUXILIARY V P* n PX:H EQU 0 x * PAUX EQU X:H AUXILIARY DEVICE HANDLING P* P* UNISCOPE 100/200 EMULATION P* 0 = NO EMULATION P* 1 = EM
0x163790…163924 Dummy {f00=0x006b, f01=0x0190, f02=» P* PX:J EQU 0 STATISTICS PSTAT EQU X:J * P* > P* MMU BUFFER LENGTH H P* d PX:K EQU 1000 n $ PTBUFL EQU X:K MMU BUFFER LENGTH P* P EJECT P* P* BUFFER SUPERVISION TIMER P* PBUFTIM EQU 0
0x163924…163ab8 Dummy {f00=0x006b, f01=0x0190, f02=»ON f PBUFLEN EQU TBUFL+TBUFL P* ( P* 2 * P* INTERNAL SPECIAL CONDITIONAL PARAMS < P* j & PBFBUSY EQU 0 BUFFER BUSY HANDLING t P =0 STANDARD =1 AUX-TYPE $ PSBS EQU 0 SPARBANKEN STOCKHOLM " P =0 NO SBS CODE =1 SBS CODE
0x163ab8…163c4c Dummy {f00=0x006b, f01=0x0190, f02=»WHEN SBS = 1 ~ P* . P* - ONLY SID 50 AND 51 ACCEPTED $ P* V P* - RECEIVE TEXT: d @ P* THE 7TH CHAR AFTER STX ID USED AS TERMINAL ID P* " P* - TRANSMIT TEXT: " P*
0x163c4c…163de0 Dummy {f00=0x006b, f01=0x0190, f02=»ITUATIONS t P* @ P*********************************************************** " P XIF f P EJECT v N P************************************************************************** N P**************************************************
0x163de0…163f74 (1, 294) Dummy {f00=0x006c, f01=0x0190, f02=» P** ** P** ** P** ** ( P** ** 8 P** ** H P** ** X P** ** h P** ** x F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R I V E R ** P** ** P** ** : P** D A T A D E F I N
0x163f74…164108 Dummy {f00=0x006c, f01=0x0190, f02=»** ** P** ** P** ** P** ** 0 P** ** @ P** ** P P** ** ` N P************************************************************************** p N P**********************************************************************
0x164108…16429c Dummy {f00=0x006c, f01=0x0190, f02=»S d * * &************************************** B , '*************************************** L * | * TABLE AND PACKET LAYOUTS * , '*************************************** * * ECB, E
0x16429c…164430 Dummy {f00=0x006c, f01=0x0190, f02=»BYTES p * PECBEL EQU 6 EFFECTIVE LENGTH IN BYTES PECBRC EQU 8 RETURN CODE < PECBCW EQU 10 CONTROL WORD $ ECBCW1 EQU ECBCW CONTROL WORD 1 ~ ECBCW2 EQU 12 CONTROL WORD 2 * * EJECT *
0x164430…1645c4 Dummy {f00=0x006c, f01=0x0190, f02=»........... P* 2 . DWTST . P* ................... 6 P* 4 . DWTECB . X P* ................... z P* 6 . DWTOPT . DWTOR . P* ................... P* 8 . DWTADR . P*
0x1645c4…164758 Dummy {f00=0x006c, f01=0x0190, f02=»................... P* 14 . DWTTQ . P* ................... > , P* (16). DWTUEC . IF MMUPAG ` P* ................... , P* (18). DWTMEC . IF MMUPAG P* ................... $ P* DW
0x164758…1648ec Dummy {f00=0x006c, f01=0x0190, f02=» v P* +6 . DWTCHN . P* ................... * P* +8 . DWTLAD . L P* ................... n P* +10 . DWTRAD . P* ................... P* +12 . DWTDR1/SUB . P* ............
0x1648ec…164a80 Dummy {f00=0x006c, f01=0x0190, f02=»....... ~ P* +18 . DWTRTP . P* ................... 2 P* +20 . DWTOPE . T P* ................... v P* +22 . DWTOPN . P* ................... P* +24 . DWTIPC . P* ....
0x164a80…164c14 (1, 295) Dummy {f00=0x006c, f01=0x0190, f02=»RIVER DEPEND / P* / / P* / / : P* ................... 8 P* . STATISTIC . IF STAT AND DWTSTB /=0 ~ P* / BUFFER / P* ................... P* P
0x164c14…164da8 Dummy {f00=0x006c, f01=0x0190, f02=»EPENDENT AREA p P XIF P IFT MMUPAG=1 " 2 PDWTDRD EQU DWTMEC+2 START OF DC DEPENDENT AREA 8 P XIF n D PDWTSTB EQU DWTDRD OFFSET REL START DWT TO STATISTIC BUFF IF ANY z 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT 2 PDWTCHN EQU DWTDR
0x164da8…164f3c Dummy {f00=0x006c, f01=0x0190, f02=»ESS d * PDWTDR1 EQU DWTDRD+10 DRIVER DEP WORD 1 * PDWTSUB EQU DWTDR1 SYMBOLIC SUBADDRESS : . PDWTRCL EQU DWTDRD+12 REQUEST CONTROL WORD h , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER B PDWTOPE EQU D
0x164f3c…1650d0 Dummy {f00=0x006c, f01=0x0190, f02=»22 I/P DATA Q LINK TO BUFFER ~ 0 PDWTIPT EQU DWTDRD+24 I/P DATA TIMER POINTER $ : PDWTDID EQU DWTDRD+26 LAST AI DEVICE FOR THIS TERMINAL X . PDWTPRT EQU DWTDRD+28 PRINT MODE INDICATOR ( PDWTLST EQU DWTDRD+30 DEVICE LIST (8) $ PDWTSTA EQU DWTDRD+46
0x1650d0…165264 Dummy {f00=0x006c, f01=0x018e, f02=». DTECHP . P* ................... P* 2 . DTEST . > P* ................... ` P* 4 . DTEECB . P* ................... P* 6 . DTEOPT . DTEOR . P* ...................
0x165264…1653f8 Dummy {f00=0x006c, f01=0x0190, f02=» P* 12 . DTEWAT . P* ................... & P* 14 . DTETQ . H P* ................... j , P* (16). DTEUEC . IF MMUPAG P* ................... , P* (18). DTEMEC . IF MMUPAG
0x1653f8…16558c Dummy {f00=0x006c, f01=0x0190, f02=» . P* ................... P* +6 . DTECHN . 4 P* ................... V P* +8 . DTELAD . x P* ................... P* +10 . . P* / DRIVER DEPEND / P* /
0x16558c…165720 Dummy {f00=0x006c, f01=0x0190, f02=»DTESTB /=0 f P* / BUFFER / P* ................... 4 P* V PDTECHP EQU 0 DTE ADDRESS ` PDTETQ EQU 14 PDTEUEC EQU DTETQ+2 PDTEMEC EQU DTEUEC+2 P P IFT MMUPAG=0 2 PDTEDRD EQU DTETQ+2 START OF DC D
0x165720…1658b4 (1, 296) Dummy {f00=0x006c, f01=0x0190, f02=»DRD OFFSET REL START DTE TO STATISTIC BUFF IF ANY 2 PDTECHD EQU DTEDRD+2 CONFIG CHAIN LINK HEAD DTE : 2 PDTECHN EQU DTEDRD+4 CONFIG CHAIN LINK NEXT DTE p 2 PDTELAD EQU DTEDRD+6 LOCAL SYMBOLIC DTE ADDRESS P* DRIVER DEPENDENT , PDTEPLS EQU DTEDRD+
0x1658b4…165a48 Dummy {f00=0x006c, f01=0x0190, f02=» WRITE REQUEST QUEUE | P* STATITICS BUFFER 2 PSTWSID EQU DTEDRD+18 RESERVED FOR SYMBOLIC ID 6 . PSTWCST EQU DTEDRD+20 COUNTER STATUS INDEX l * PSTWMIX EQU DTEDRD+26 MAX COUNTER INDEX " PSTWCTA EQU DTEDRD+28 COUNTERS P EJECT P* ,
0x165a48…165bdc Dummy {f00=0x006c, f01=0x0190, f02=»LISHED p 4 PCSRCBY EQU /02 CONNECTION NOT ESTABLISHED - BUSY $ PCSRMSR EQU /03 MESSAGES RECEIVED F & PCSRCHR EQU /C5 CHARACTERS RECEIVED n ( PCSRMST EQU /06 MESSAGES TRANSMITTED * PCSRCHT EQU /C8 CHARACTERS TRANSMITTED PCSRTOP EQU /09 TIMEOUT
0x165bdc…165d70 Dummy {f00=0x006c, f01=0x0190, f02=»NDENT t P* ! P* LINK LEVEL COUNTERS ! P ! 6 . PCSSRBL EQU /10 SYNCH DATA BLOCKS RECEIVED ! @ : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY ! r > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW ! 6 PCSSRAB EQU /13 " D
0x165d70…165f04 Dummy {f00=0x006c, f01=0x0190, f02=»MITTED ! j 2 PCSSTRT EQU /16 " DATA BLOCKS RETRANSMITTED " , PCSSTAB EQU /17 " DATA BLOCKS ABORTED " D 4 PCSSXC1 EQU /18 NBR OF REPLY REQUESTS TRANSMITTED " t < PCSSXC2 EQU /19 NBR OF DATA BLOCKS WITH INCORRECT HEADER " 8 PCSSXC3 EQU /1A NBR OF TIMES
0x165f04…166098 Dummy {f00=0x006c, f01=0x0190, f02=»CDIT EQU /29 I/P THROUGHPUT ERROR " ( PCSCDOT EQU /2A O/P THROUGHPUT ERROR # * $ PCSCDCE EQU /2B DCE NOT OPERABLE # V * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT # ~ PCSCXC2 EQU /2D " # PCSCXC3 EQU /2E " # P EJECT # P* # P* # P*
0x166098…16622c Dummy {f00=0x006c, f01=0x0190, f02=»NPAS EQU /27 CONNECT PASSIVE # PDISCO EQU /2F DISCONNECT $ $ PRECEIVE EQU /02 RECEIVE $ D PSEND EQU /06 SEND $ d PRSTAT EQU /00 READ STATUS $ ~ PSSTAT EQU /38 SET STATUS $ ( PSTATIS EQU /2D READ/RESET STATISTICS $ $ PSTIMOT EQU /39 SET TIMEOUT V
0x16622c…1663c0 Dummy {f00=0x006c, f01=0x0190, f02=» $ v P* % " PRCREQ EQU /8000 REQUEST ERROR % $ PRCABRT EQU /4000 REQUEST ABORTED % 8 " PRCBELL EQU /0400 BELL MESSAGE % ` PRCTIME EQU /0040 TIMEOUT % " PRCSEQ EQU /0010 SEQUENCE ERROR % $ PRCLGTH EQU /0008 ILLEGAL LENGTH % . PRCLOGC EQU /0002 LOG
0x1663c0…166554 (1, 297) Dummy {f00=0x006c, f01=0x0190, f02=»************************************************** % P* & : P* LINE CONTROL CHAR EQU:S & D P* & h > P********************************************************** & v P* & PSYN EQU /16 & PSOH EQU /01 & PSTX EQU /02 & PETX EQU /0
0x166554…1666e8 Dummy {f00=0x006c, f01=0x0190, f02=»U /12 & PCHDSL EQU /72 ' P IFT SALCUZ=0 ' $ PPAD EQU /FF PAD CHAR ' < P XIF ' Z P IFT SALCUZ=1 ' j PPAD EQU /7F ' P XIF ' P* ' PBIT0 EQU /8000 STATUS AI ' PNBIT0 EQU /7FFF STATUS AI ' P EJECT ' B P********
0x1666e8…16687c Dummy {f00=0x006c, f01=0x0190, f02=»********************************************************* ' P* ( B P IFT SALCUZ=1 ( L $ PCBBREK EQU /80 CIO START BREAK ( b " PCBECHO EQU /10 ECHO ( , PCBNPAR EQU /0 NO CHAR PARITY ( . PCBEPAR EQU /4 EVEN CHAR PARITY
0x16687c…166a10 Dummy {f00=0x006c, f01=0x0190, f02=»CIO DISCONNECT MODEM FROM LINE ( P XIF ) ( P IFF SALCUZ=1 ) 8 PCBCARR EQU /100 CARRIER ON ) N P XIF ) r P* ) P* ) P IFT SALCUZ=1 ) , PPARITY EQU CBOPAR ODD PARITY FOR ASCII ) P XIF ) P EJECT ) 8 P**************
0x166a10…166ba4 Dummy {f00=0x006c, f01=0x0190, f02=»************************* ) v P* * " 0 PSBNOOP EQU /1 SST STATUS MODEM NOT OPERABLE * , 0 PSBTHRU EQU /02 THROUGHPUT ERROR * ` P IFT SALCUZ=1 * 0 PSBPARI EQU /04 CHAR PARITY ERROR * P XIF * * PSBCARR EQU /20
0x166ba4…166d38 Dummy {f00=0x006c, f01=0x0190, f02=»BCARR * l P XIF + P IFF SALCUZ=1 + ( PSBERR EQU /23 SBNOOP,SBTHRU,SBCARR + 4 P XIF + ` P EJECT + l N P************************************************************************** + z N P************************************************************
0x166d38…166ecc Dummy {f00=0x006c, f01=0x0190, f02=» ** + P** ** , P** ** , P** ** , . P** ** , > P** ** , N P** ** , ^ P** ** , n F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R I V E R ** , ~ P** ** , P** ** , B P** A P P L I C A T I O N R E Q
0x166ecc…167060 Dummy {f00=0x006c, f01=0x0190, f02=» ** , P** ** - P** ** - P** ** - . P** ** - > P** ** - N P** ** - ^ N P************************************************************************** - n N P************************************************************************
0x167060…1671f4 (1, 298) Dummy {f00=0x006d, f01=0x0190, f02=» - v $ PDC22AD DATA DCACT ADDRESS BLOCK . & P DATA ABORT ABORT ROUTINE ADDRESS . 0 & P DATA DCRBUF RECEIVE BUFFER ANCHOR . Z P DATA 6 HEADER LENGTH . P* . , P RES 15 SUBROUTINE STACK FOR INTERRUPTS . PSTB RES 1 . P EJECT . J P************
0x1671f4…167388 Dummy {f00=0x006d, f01=0x0190, f02=» . J P* / P* / , P* REQUEST HANDLER/APPLICATION INTERFACE / P* / L P* / V J P********************************************************************** / ` J P********************************************************************** / P* / $ P*
0x167388…16751c Dummy {f00=0x006d, f01=0x0190, f02=»ER / p P LDKL A7,DTETAB DTE TAB ADDR 0 P LD A8,DWTECB,A6 ECB ADDRESS 0 . & P ANK A2,/FF STRIP OFF OPTION BITS 0 R : P CF A15,LOOKUP BRANCH ON CODES, TABLE ADDRESS TO STACK 0 | 0 P DATA TREQX,RTREQ LAST ENTRY; ERROR ADDRESS 0 ( P DATA RECEIVE,RQRECE RECEI
0x16751c…1676b0 Dummy {f00=0x006d, f01=0x0190, f02=»ATA CONPAS,RQCON CONNECT PASSIVE REQUEST 0 ( P DATA DISCO,RQDIS DISCONNECT REQUEST 1 0 * P DATA RSTAT,RQRSTS READ STATUS REQUEST 1 ( P DATA SSTAT,RQSST SET STATUS REQUEST 1 , P DATA STIMOT,RQTIME SET REQUEST TIMEOUT 1 : PTREQX DATA STATIS,RQSTAT READ/RESE
0x1676b0…167844 Dummy {f00=0x006d, f01=0x0190, f02=»RT ROUTINE 1 P* 2 P************************ 2 P 2 < ( PABORT LD A1,DWTRTP,A6 TIMER POINTER 2 D " P RF(Z) AB:10 NO TIMER RUNNING 2 p P CM* DWTRTP,A6 KILL TIMER 2 P CM DWTRTP,A6 2 P 2 $ PAB:10 LD A2,DWTOR,A6 ORDER CODE 2 P ANK A2,/7
0x167844…1679d8 Dummy {f00=0x006d, f01=0x0190, f02=»E DWT FROM WRITE QUEUE 2 | & P LD A2,FDWTUT WRITING DWT ADDRESS 3 P CWR A2,A6 3 H P RF(NE) AB:RTN NOT THIS DWT 3 Z P CM FDWTUT RESET SENDING DWT 3 ~ P CM XACK RESET ACK EXPECTED 3 P 3 PAB:RTN EQU * 3 * P ABL RTABRT COMPLETE WITH RC = ABORTED
0x1679d8…167b6c Dummy {f00=0x006d, f01=0x018e, f02=»2) 3 r P* 4 P* FUNCTIONS: 4 8 P* 1. CHECK IF ALREADY OPEN & IF SO SAME DTE-ADDRESS 4 ( & P* 2. CONVERT & VERIFY DTE ADDRESS 4 d P* 3. CONNECT MODEM 4 P* 4 P* COMPLETION PARAMETERS: 4 P* RETURN CODE (A1) 4 P* 4 PRQOPEN EQU * 4
0x167b6c…167d00 Dummy {f00=0x006d, f01=0x0190, f02=» & PRQOPTB DATA RQOP20 CLOSED/INACTIVE 5 " P DATA RQOP15 OPEN IN PROGRESS 5 . P DATA RQOP10 OPEN 5 T " P DATA RQOP15 CLOSE IN PROGRESS 5 n PRQOP10 EQU * 5 . P LD A2,ECBCW2,A8 GET SYMBOLIC DTE-ADDRESS 5 2 P CW A2,DTELAD,A7 SAME AS THE ONE WHO OPENED ?
0x167d00…167e94 (1, 299) Dummy {f00=0x006d, f01=0x0190, f02=»ESTA,A7 SET OPEN IN PROGRESS 5 . P LD A1,ECBCW2,A8 GET SYMBOLIC DTE ADDRESS 6 $ . P ST A1,DTELAD,A7 SAVE SYMBOLIC DTE ADDRESS 6 V . P LDKL A2,DTECHP+1 POINTER TO CHP IN DTETAB 6 & P ADR A2,A7 ADDR TO RID IN DTE TAB 6 0 P CF A15,GETDNA CONVERT AND VALIDATE
0x167e94…168028 Dummy {f00=0x006d, f01=0x0190, f02=»7 SET STATUS CLOSET 6 $ P ABL RTREQ RETURN: REQUEST ERROR 7 P* 7 D PRQOP80 EQU * 7 N " P IM DTESTA,A7 SET OPEN STATUS 7 b PRQOP85 EQU * 7 0 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ERROR ? 7 P ABL(NZ) RTOK NO 7 2 P ABL RTPHYC RETURN: PHYSICAL CON
0x168028…1681bc Dummy {f00=0x006d, f01=0x0190, f02=»IONAL 7 x P* /80 = CONDITIONAL 8 P* FUNCTIONS: 8 , L P* 1. IF CONDITIONAL, CHECK IF ANY LOGICAL CONNECTIONS (DWTS) ARE ACTIVE 8 @ P* ACTIVE. 8 0 P* 2. IF UNCONDITIONAL, DISCONNECT ALL DWT:S 8 P* 3. DISCONNECT MODEM 8 P* 8 P* COMP
0x1681bc…168350 Dummy {f00=0x006d, f01=0x018e, f02=»Z) RQCL20 ZERO, UNCONDITIONAL CLOSE 8 " P CW A2,DTELAD,A7 CORRECT DTE ? 9 , P RF(E) RQCL30 YES 9 R $ P ABL RTREQ RETURN: REQUEST ERROR 9 l PRQCL20 EQU * 9 ( P LD A2,DTECHN,A7 ANY DWT CONNECTED ? 9 P RF(NZ) RQCL30 YES 9 & P ABL RTSEQ RETURN: SEQUENC
0x168350…1684e4 Dummy {f00=0x006d, f01=0x0190, f02=» PRQCL50 EQU * : P CWK A2,2 DTE OPENED ? : * P ABL(NE) RTSEQ RETURN: SEQUENCE ERROR : 6 * P LDR A8,A6 A8 =DWT ADDR REQUESTING DWT : d & P LD A6,DTECHN,A7 ANY DWT CONNECTED : P RF(Z) RQCL90 NO : * P LD A2,DWTOR,A6 UNCONDITIONAL CLOSE ? : ( P ABL(N
0x1684e4…168678 Dummy {f00=0x006d, f01=0x0190, f02=»A2,DWTCHN,A6 GET NEXT DWT IN CHAIN : 4 P ST A2,DTECHN,A7 REMOVE DWT FROM CONNECTED CHAIN ; * 4 P CF A15,RELBUF RELEASE ALL BUFFERS QUEUED ON DWT ; b 0 P CM DWTSTA,A6 SET DWT STATUS = DISCONNECTED ; P CWR A8,A6 REQUESTING DWT ? ; P RF(E) RQCL80 YES ;
0x168678…16880c Dummy {f00=0x006d, f01=0x0190, f02=»TO DISCONNECT ; r P RB(NZ) RQCL60 YES < PRQCL90 EQU * < 0 P LDK A2,3 < D 4 P ST A2,DTESTA,A7 DTE STATUS = CLOSE IN PROGRESS < V & P CM DTESTA,A7 DTE STATUS = CLOSED < $ P CM DTECHP,A7 CLEAR NETWORK ADDR < P LDR A6,A8 REQUESTING DWT < & P LD A8
0x16880c…1689a0 Dummy {f00=0x006d, f01=0x0190, f02=»TIVATION PARAMETERS: < : P* - SYMBOLIC SUBADDRESS (LEFTMOST BYTE IN ECBBA-BFR) = & P* - DEVICE ADDRESSES IN ECBBA-BFR = Z " P* - LENGTH OF BUFFER (ECBRL) = & P* - SYMBOLIC DTE-ADDRESS (ECBCW2) = P* = P* FUNCTIONS: = 0 P* 1. VERIFY DTE-ADDRE
0x1689a0…168b34 (1, 300) Dummy {f00=0x006d, f01=0x0190, f02=»NK CALLING DWT TO QUEUE = P* > P* COMPLETION PARAMETERS: > * P* RETURN CODE (A1) > J P* > f PRQCON EQU * > p & P LD A2,DTELAD,A7 SYMBOLIC DTE-ADDR > " P CW A2,ECBCW2,A8 CORRECT DTE ? > , P ABL(NE) RTREQ NO, RETURN: REQUEST ERROR > $ P LD
0x168b34…168cc8 Dummy {f00=0x006d, f01=0x0190, f02=»TATUS > v " P SUK A2,2 ALREADY CONNECTED ? ? . P ABL(Z) RTSEQ YES, RETURN: SEQUENCE ERROR ? 4 P IFF MMUPAG=0 ? f & P LDKL A4,MMUBUF MMU BUFFER ADDRESS ? | P ST A4,ECBBA,A8 TO ECB ? * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER ? P XIF ? $ P LD A4,ECB
0x168cc8…168e5c Dummy {f00=0x006d, f01=0x0190, f02=»CBCW2,A8 GET SYMBOLIC DTE ADDR ? . P ST A1,DWTLAD,A6 SAVE SYMBOLIC DTE ADDRESS @ & 0 P CF A15,GETSNA VALIDATE AND CONVERT SUB ADDR @ X & P LDR A1,A1 SET CONDITION REGISTER @ P RF(NN) RQCN20 SUB ADDR OK @ $ P CM DWTLAD,A6 CLEAR SYM DTE ADDR @ P CM DWTS
0x168e5c…168ff0 Dummy {f00=0x006d, f01=0x0190, f02=» IFT AUX=1 @ " P LD A3,ECBRL,A8 BUFFER LENGTH A & P CWK A3,9 MORE THAN 9 ADDRESSES ? A 8 , P ABL(G) RTREQ YES, RETURN: REQUEST ERROR A b P SUK A3,1 ONLY SUB-ADDRESS A P RF(Z) RQCN80 YES, NO DID:S A ( P LDKL A1,DWTLST DEVICE LIST POINTER A P ADR
0x168ff0…169184 Dummy {f00=0x006d, f01=0x0190, f02=»R A n $ P CWK A2,/73 LESS THAN FIRST DID B P RF(L) RQCN40 YES B 2 & P CWK A2,/7A GREATER THAN LAST DID B L P RF(NG) RQCN50 NO B v PRQCN40 EQU * B $ P ABL RTREQ RETURN: REQUEST ERROR B PRQCN50 EQU * B ( P STR A2,A1 STORE DID IN DEVICE LIST B
0x169184…169318 Dummy {f00=0x006d, f01=0x0190, f02=»EXT DID B P XIF C PRQCN80 EQU * C $ P CF A15,DCLINK LINK DWT TO CHAIN C 0 P LDK A2,2 C X * P ST A2,DWTSTA,A6 SET STATUS: CONNECTED C j P ABL RTOK RETURN: OK C P EJECT C P* C P* DISCONNECT REQUEST C P* C P* ACTIVATION PARAMETER
0x169318…1694ac Dummy {f00=0x006d, f01=0x018e, f02=»M CONFIGURATION CHAIN C v P* 3. RELEASE BUFFERS QUEUED D & P* 4. SET DWT STATUS DISCONNECTED D B P* D l P* COMPLETION PARAMETERS: D v P* RETURN CODE (A1) D P* D PRQDIS EQU * D 0 P LD A2,DWTSTA,A6 DWT STATUS = DISCONNECTED ? D P ABL
0x1694ac…169640 Dummy {f00=0x006d, f01=0x018e, f02=» 0 P CM DWTSTA,A6 SET DWT STATUS = DISCONNECTED E P ABL RTOK RETURN: OK E 8 P EJECT E T P* E b P* READ STATUS REQUEST E l P* E P* E P* ACTIVATION PARAMETERS: E P* DWT - ADDRESS (A6) E P* E P* FUNCTIONS: E < P* 1. TRANSFER
0x169640…1697d4 (1, 301) Dummy {f00=0x006d, f01=0x0190, f02=» P* RETURN CODE (A1) F P* F . P* 0 3 4 7 8 11 12 15 F * . P* ........................................ F . P* . DWT . DTE . DATA . PHYS . F . P* . STATE . STATE . LINK . LINK . F . P* . . .
0x1697d4…169968 Dummy {f00=0x006d, f01=0x0190, f02=» F t P SLL A2,4 BITS 0-3 G P AD A2,DTESTA,A7 DTE STATUS G " P SLL A2,4 BITS 4-7 G F & P AD A2,DTEDLS,A7 DATA LINK STATUS G ` P SLL A2,4 BITS 8-11 G 8 P AD A2,DTEPLS,A7 PHYSICAL LINK STATUS (BITS 12 - 15) G 2 P ST A2,ECBCW1,A8 STATUS TO ECB CONTROL
0x169968…169afc Dummy {f00=0x006d, f01=0x0190, f02=»ERS G | P* DWT ADDRESS (A6) H P* H ( P* FUNCTIONS: H 2 8 P* SET A DEVEICE (DID) NOT OPERABLE (ONLY IF AUX=1) H F P* H P* COMPLETION PARAMETERS: H P* RETURN CODE (A1) H PRQSST EQU * H P IFT AUX=1 H 2 P LDKL A3,DWTLST POINTER TO
0x169afc…169c90 Dummy {f00=0x006d, f01=0x0190, f02=»D FROM DEVICE LIST H ~ 2 P ABL(Z) RTREQ NOT FOUND, RETURN: REQUEST ERROR I P CW A2,ECBCW1,A8 COMPARE DID I P P RF(E) RQSS20 FOUND I t " P SUK A4,1 END OF DEVICE LIST ? I , P ABL(Z) RTREQ YES, RETURN: REQUEST ERROR I P ADK A3,2 DEVICE LIST ADDR I P
0x169c90…169e24 Dummy {f00=0x006d, f01=0x0190, f02=» ABL RTOK RETURN: OK I P XIF J P IFF AUX=1 J ( & P ABL RTREQ REQUEST: REQUEST ERROR J : P XIF J d P EJECT J p P* J ~ $ P* READ/RESET STATISTICS REQUEST J P* J P* ACTIVATION PARAMETERS: J P* TYPE = BITS 0-7 OF ECBCW1 J P* ECB-ADD
0x169e24…169fb8 Dummy {f00=0x006d, f01=0x0190, f02=» 2. RESET ALL STATISTICS BUFFERS J P* K ( P* COMPLETION PARAMETERS: K 2 * P* NUMBER OF BYTES TRANSFERRED (ECBEL) K R P* RETURN CODE (A1) K P* K PRQSTAT EQU * K P IFT STAT=0 K 0 P ABL RTREQ COMPLETE REQUEST RC=REQUEST ERROR K P XIF K
0x169fb8…16a14c Dummy {f00=0x006d, f01=0x0190, f02=» K PRQST30 EQU * L P LD A1,ECBCW1,A8 GET TYPE L & P SRL A1,8 TYPE FIELD TO LEFT BYTE L > P CWK A1,TYPRR CORRECT TYPE? L h P RF(NE) RQST40 L 0 P CF A15,DCSRLL RESET ALL STATISTICS BUFFERS L P LDR A1,A1 LUCKY AGAIN? L , P ABL(NZ) RTREQ NO,
0x16a14c…16a2e0 Dummy {f00=0x006d, f01=0x0190, f02=» L z P* M P* ACTIVATION PARAMETERS: M , P* ECBCW1 >= 0 : ACTIVATE TIMING CONTROL M 2 : P* TIMEOUT VALUE IN MULTIPLES OF 100 MS; M b , P* 0 = IMMEDIATE TIMEOUT. M 0 P* < 0: DE-ACTIVATE TIMING CONTROL M P* M
0x16a2e0…16a474 (1, 302) Dummy {f00=0x006e, f01=0x0190, f02=»VALUE = ECBCW1 M | P* RETURN CODE (A1) N P* N 2 PRQTIME EQU * N < 0 P LD A2,ECBCW1,A8 GET TIMEOUT VALUE FROM ECB N P " P ST A2,DWTRTV,A6 STORE IN DWT N P ABL RTOK RETURN: OK N P EJECT N P* N P* SEND REQUEST N P* N P* ACTIVATI
0x16a474…16a608 Dummy {f00=0x006e, f01=0x0190, f02=»S: N " P* /80 = PROGRAM FUNCTION KEY O P* /81 = THRU O 0 P* O F P* FUNCTIONS: O P < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. O d $ P* 2. VERIFY BUFFER SIZE IF MMU O P* 3. HANDLING OF PF KEYS O P* 4. HANDLING OF THRU O
0x16a608…16a79c Dummy {f00=0x006e, f01=0x0190, f02=»CODE (A1) O P* P PRQSEND EQU * P $ P LD A2,DWTSTA,A6 GET DWT STATUS P 0 P SUK A2,2 CONNECTED ? P X . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR P v 2 P LD A2,DTEPLS,A7 PHYSICAL CONNECTION ACTICE ? P 8 P ABL(Z) RTPHYC NO, RETURN: PHYSICAL CONNEC
0x16a79c…16a930 Dummy {f00=0x006e, f01=0x0190, f02=»,DWTOR,A6 GET ORDER CODE P * P RF(NN) RQSE30 NO OPTION, NORMAL SEND Q $ P SRL A2,8 RIGHT JUSTIFIE OPTION Q N " P SUK A2,/80 PROGRAM FUNCTION ? Q v P RF(Z) RQSE20 YES Q P IFT AUX=1 Q P SUK A2,/81-/80 THRU ? Q , P ABL(NZ) RTREQ NO, RETURN: REQUEST
0x16a930…16aac4 Dummy {f00=0x006e, f01=0x018e, f02=» Q & P ANS A1,DWTST,A6 SET DEVICE READY R ( P LDKL A2,DCSTQ GET THRU QUEUE ANCHOR R 2 , P CF A15,INSWQ1 INSERT DWT IN THRU QUEUE R ^ ( P CM ECBRL,A8 CLEAR REQUESTED LENGTH R P RF RQSE40 R P XIF R PRQSE20 EQU * R ( P CM ECBRL,A8 CLEAR REQUESTED
0x16aac4…16ac58 Dummy {f00=0x006e, f01=0x0190, f02=» 6 P ABL(G) RTLGTH YES, RETURN: ILLEGAL BUFFER LENGTH S P XIF S > P CF A15,TIMEWR START TIMER S J $ P CF A15,INSWQ QUEUE SEND REQUEST S l PRQSE40 EQU * S P ABL TDISP S P* S P EJECT S P* S P* S P* COMPLETION OF SEND REQUEST S
0x16ac58…16adec Dummy {f00=0x006e, f01=0x0190, f02=»0 NO S P CM XACK NO ACK EXPECTED T & P LD A6,FDWTUT ANY SEND GOING ON ? T , P RF(Z) RQSE90 NO T V . P LD A2,DWTST,A6 ANY REQUEST FOR THIS DWT ? T n P RF(N) RQSE80 NO T " P LD A2,DWTOR,A6 GET ORDER CODE T P ANK A2,/FF REMOVE OPTIONS T & P SUK A2,
0x16adec…16af80 Dummy {f00=0x006e, f01=0x0190, f02=»A2,DCSTQ THRU IN QUEUE T P RF(Z) RQSE60 NO U & P LDKL A2,DCSTQ ADDR TO THRU ANCHOR U 6 , P CF A15,REM05 REMOVE DWT FROM THRU QUEUE U ` P RF RQSE80 U PRQSE60 EQU * U . P CF A15,REMOVW REMOVE DWT FROM SEND QUEUE U PRQSE80 EQU * U * P CM FDWTUT I
0x16af80…16b114 (1, 303) Dummy {f00=0x006e, f01=0x018e, f02=»T U P* V P* ACTIVATION PARAMETERS: V P* BUFFER ADDRESS (ECBBA) V 4 P* V V P* FUNCTIONS: V ` < P* 1. VERIFY THAT LOGICAL & PHYSICAL CONNECTIONS EXIST. V t F P* 2. TRANSFER TO THE APPLICATION ANY MESSAGE QUEUED FOR THE DWT, V B P* 3. COMP
0x16b114…16b2a8 Dummy {f00=0x006e, f01=0x0190, f02=» 0 P* ACTUAL LENGTH OF RECEIVED MESSAGE (ECBEL) W P* RETURN CODE (A1) W 8 P* W T PRQRECE EQU * W ^ $ P LD A2,DWTSTA,A6 GET DWT STATUS W r P SUK A2,2 CONNECTED ? W . P ABL(NZ) RTSEQ NO, RETURN: SEQUENCE ERROR W 2 P LD A2,DTEPLS,A7 PHYSICAL CONN
0x16b2a8…16b43c Dummy {f00=0x006e, f01=0x0190, f02=» ABL(Z) RTLOGC NO, RETURN: LOGICAL CONNECTION ERROR W * P LD A4,DWTIPC,A6 ANY BUFFER ON QUEUE ? X < P RF(NZ) RQRE10 YES X j P CF A15,TIMERE START TIMER X P RF RQRE40 GO TO DISPATCHER X PRQRE10 EQU * X P IFT EMU100=1 X " P LD A2,DWTOR,A6 GET
0x16b43c…16b5d0 Dummy {f00=0x006e, f01=0x0190, f02=»FFER LENGTH X ~ P ST A2,ECBEL,A8 TO ECB Y P ABL RTOK RETURN: OK Y 2 P XIF Y N PRQRE20 EQU * Y Z ( P LDR* A2,A4 GET NEXT BUFFER IN QUEUE Y n . P ST A2,DWTIPC,A6 STORE AS FIRST IN QUEUE Y ( P RF(NZ) RQRE30 MORE BUFFERS IN QUEUE Y 0 P CF A15,SBTIME S
0x16b5d0…16b764 Dummy {f00=0x006e, f01=0x0190, f02=» Y h PRQRE40 EQU * Z P ABL TDISP GO TO DISPATCHER Z P EJECT Z @ P* Z N $ P* COMPLETION OF RECEIVE REQUEST Z X P* Z PRQRE50 EQU * Z P LD A6,FDWTIN GET INPUT DWT Z P ST A6,DWTTXT SAVE IT Z " P LD A2,DWTST,A6 ANY REQUEST ON Z " P R
0x16b764…16b8f8 Dummy {f00=0x006e, f01=0x0190, f02=»R ? Z t $ P RF(NZ) RQRE80 NO, QUEUE BUFFER [ P LD A8,DWTECB,A6 ECB ADDR [ 4 P CF A5,CTIME STOP TIMER [ V ( P ST A2,ECBCW,A8 STORE REMANING TIME [ v PRQRE60 EQU * [ ( P LDK A1,0 COMPLETE REQUEST WITH RC=0 [ " P LD A3,-4,A4 GET BUFFER LENGTH [ , P
0x16b8f8…16ba8c Dummy {f00=0x006e, f01=0x0190, f02=» & P CWK A2,/81 ANY MESSAGE REQUEST ? P RF(NE) RQRE65 NO . $ P CF A15,TENDIO COMPLETE REQUEST H P RF RQRE80 QUEUE BUFFER p P XIF PRQRE65 EQU * $ P CWK A2,/80 RECEIVE ADDRESSED ? P RF(NE) RQRE70 NO P LD A2,-2,A4 GET SID+D
0x16ba8c…16bc20 Dummy {f00=0x006e, f01=0x0190, f02=»AGE t > P CF A15,DC:MIN MOVE DATA TO USER BUFFER, COMPLETE REQUEST ] P RF RQRE90 ] N PRQRE75 EQU * ] ` P SUK A4,6 ADJUST ADDR ] t ( P CF A15,RRBUF RELEASE RECEIVE BUFFER ] ( P LDKL A1,RCBELL BELL IN RETURN CODE ] $ P CF A15,TENDIO COMPLETE REQUES
0x16bc20…16bdb4 (1, 304) Dummy {f00=0x006e, f01=0x0190, f02=» OF BUFFER ] 2 P LDK A2,DWTIPC POINTER TO BUFFER QUEUE ANCHOR ^ * P ADR A2,A6 ADDR TO BUFFER QUEUE ANCHOR ^ H P CF A5,QR100 QUEUE BUFFER ^ v P IFT BUFTIM=1 ^ ( P LD A1,DWTIPC,A6 BUFFER QUEUE ANCHOR ^ " P LDR* A2,A1 GET FIRST IN QUEUE ^ ( P RF(NZ)
0x16bdb4…16bf48 Dummy {f00=0x006e, f01=0x018e, f02=» ^ | " P ST A4,DWTIPT,A6 TIMER POINTER _ P XIF _ . PRQRE90 EQU * _ : P RTN A15 RETURN TO CALLER _ N P IFT BUFTIM=1 _ p P* _ P* BUFFER TIMEOUT _ P* _ PRQRETO EQU * _ P LDR A6,A1 DWT ADDR _ 0 P CF A15,RELBUF RELEASE BUFFERS QUEUE O
0x16bf48…16c0dc Dummy {f00=0x006e, f01=0x0190, f02=» PRTREQ EQU * ` & P LDKL A1,RCREQ RC = REQUEST ERROR ` P RF RQRTN ` B PRTABRT EQU * ` T P LDKL A1,RCABRT RC = ABORTED ` h P RF RQRTN ` PRTBELL EQU * ` & P LDKL A1,RCBELL RC = BELL MESSAGE ` P RF RQRTN ` PRTTIME EQU * ` " P LDKL
0x16c0dc…16c270 Dummy {f00=0x006e, f01=0x0190, f02=» EQU * ` ( P LDKL A1,RCLGTH RC = ILLEGAL LENGTH a P RF RQRTN a : PRTLOGC EQU * a L 2 P LDKL A1,RCLOGC RC = LOGICAL CONNECTION ERROR a ` P RF RQRTN a PRTPHYC EQU * a 2 P LDKL A1,RCPHYC RC = PHYSICAL CONNECTION ERROR a P RF RQRTN a PRTOK
0x16c270…16c404 Dummy {f00=0x006e, f01=0x018e, f02=» EJECT a N P************************************************************************** b N P************************************************************************** b ` P** ** b P** ** b P** ** b P** ** b P** ** b P**
0x16c404…16c598 Dummy {f00=0x006e, f01=0x0190, f02=» P** ** c F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R I V E R ** c P** ** c ^ P** ** c n P** S U B R O U T I N E S ** c ~ P** ** c P** ** c P** ** c P** ** c P** ** c P** ** c P**
0x16c598…16c72c Dummy {f00=0x006e, f01=0x0190, f02=»******************************************** c r N P************************************************************************** d 4 P EJECT d P* d P* d P* d P* TIMER HANDLING PART d P* d P* d P* d P* RECEICE TIMER=TIMERR d
0x16c72c…16c8c0 Dummy {f00=0x006e, f01=0x018e, f02=»TR2 TIMER=0 => IMMEDIATE TIMEOUT d P ST A2,TIMERR e ( P CF A15,SETIME e > P DATA TOUTRE e T PTIMERR DATA 0 e h ( P ST A4,DWTRTP,A6 STORE TIMER POINTER e ~ PTIME10 EQU * e P RF GBUF10 RETURN e P* e P* TIMEOUT READ TIMER e P* e P
0x16c8c0…16ca54 (1, 305) Dummy {f00=0x006e, f01=0x0190, f02=» PTOUTR2 EQU * f $ P ADKL A15,4 RESET STACK POINTER f P ABL RTTIME RETURN: TIMEOUT f @ P EJECT f d P* f r P* SEND TIMER=TIMWR f | P* f PTIMEWR LDR A1,A6 f & P LD A2,DWTRTV,A6 GET TIMEOUT VALUE f P RB(N) TIME10 NO TIMING f . P RB(Z)
0x16ca54…16cbe8 Dummy {f00=0x006e, f01=0x0190, f02=»RTP,A6 f P RB TIME10 g P* g P* TIMEOUT WRITE TIMER g * P* g H PTOUTWR EQU * g R P LDR A6,A1 FETCH DWT g f P CM DWTRTP,A6 g P LD A1,DWTOR,A6 GET ORDER g P SUK A1,SEND g P RB(NZ) TOUTR1 NOT SEND g P LD A2,DWTECB,A6 GET DWT g
0x16cbe8…16cd7c Dummy {f00=0x006e, f01=0x0190, f02=»OCESSING g d P CM FDWTUT NO WRITE GOING ON h PTOUTW1 EQU * h 4 P LD A4,ECBBA,A2 GET ECB h H * P CF A15,REMOVW REMOVE FROM WRITE QUEUE h h , P ABL RTTIME COMPLETE REQUEST RC=TIMEOUT h P EJECT h P* h P* h P* STOP REQUEST TIMING h P*
0x16cd7c…16cf10 Dummy {f00=0x006e, f01=0x0190, f02=»Z) CTIM10 NOT RUNNING h P LDR* A2,A2 i " P NGR A2,A2 GET REMAINING TIME i 2 P CM* DWTRTP,A6 STOP TIMER i X P CM DWTRTP,A6 i z PCTIM10 EQU * i P RTN A5 i P EJECT i P* i $ P* STOP BUFFER SUPERVISIOR TIMER i P* i P* A6 = DWT
0x16cf10…16d0a4 Dummy {f00=0x006e, f01=0x018e, f02=»M* DWTIPT,A6 STOP TIMER i P CM DWTIPT,A6 j PSBTI10 EQU * j 6 P RTN A15 j J P EJECT j Z P* j h < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 j r P* j $ P* CALLING SEQUENCE: CF A5,FINTER j P* A2=SUBTERMINAL ADDRESS j P* A4
0x16d0a4…16d238 Dummy {f00=0x006e, f01=0x0190, f02=» P* k PFINTER EQU * k P* k " P* SEARCH IF GENERAL SID k , P* k L P LDR A1,A2 k V P SUK A1,SID k h P RF(NZ) FINT05 SPECIFIC k | P LDKL A3,-1 INIT GENERAL SID k P RTN A5 k P* k PFINT05 EQU * k & P LDK A3,0 DEFAULT VALUE, N
0x16d238…16d3cc Dummy {f00=0x006e, f01=0x0190, f02=»HECK CHP k ~ 2 P RF(E) FINT15 DWT WITH CORRESPONDING SID FOUND l P LD A4,DWTCHN,A4 NEXT DWT l F * P RF(Z) FINT20 END OF CHAIN, NOT FOUND l h P RB FINT10 TRY NEXT l PFINT15 EQU * l P LDR A3,A4 DWT ADDR l PFINT20 RTN A5 l P EJECT l P*
0x16d3cc…16d560 Dummy {f00=0x006e, f01=0x0190, f02=»AINS BUFFER ADDRESS l P* A2 AND A3 ARE DESTROYED m P* m > P* m H ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS m R PGBUF INH m ~ P LDR* A4,A2 m P RF(Z) GBUF10 NO BUFFER FREE m . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN m P STR A3,A2 m *
0x16d560…16d6f4 (1, 306) Dummy {f00=0x006f, f01=0x0190, f02=»FFER m | P* n P* A4 CONTAINS BUFFER ADDRESS n $ P* CALLING SEQUENCE: CF A15,RRBUF n : P* A2 AND A3 ARE DESTROYED n b P* n P* n ( PRRBUF LDKL A2,DCRBUF RECEIVE BUFFERS n PRBUF INH n PRBUF10 EQU * n P LDR* A3,A2 n P RF(Z) RBUF2
0x16d6f4…16d888 Dummy {f00=0x006f, f01=0x018e, f02=» EJECT n P* o . P* RELEASE ALL RECEIVE BUFFERS QUEUE ON DWT o P* o J P* A6 - DWT ADDR o T P* A1 AND A4 ARE DESTROYED o l ( P* CALLING SEQUENCE: CF A15,RELBUF o P* o P* o PRELBUF EQU * o $ P CF A15,SBTIME STOP BUFFER TIMER o *
0x16d888…16da1c Dummy {f00=0x006f, f01=0x018e, f02=» o n P CF A15,RRBUF RELEASE BUFFER p " P LDR A4,A1 ANY MORE TO RELEASE p , P RB(NZ) RLBU10 YES p R PRLBU20 EQU * p l & P CM DWTIPC,A6 RESET BUFFER POINTER p P RB GBUF10 p P EJECT p P* p P* p ( P* INSERT DWT IN WRITE REQUEST QUEUE p
0x16da1c…16dbb0 Dummy {f00=0x006f, f01=0x0190, f02=» PINSWQ2 LDR* A3,A2 q $ P RF(Z) INSWQ3 END OF QUEUE FOUND q P LDR A2,A3 q F P RB INSWQ2 q X PINSWQ3 ADR A4,A6 q j P STR A4,A2 INSERT IN QUEUE q " P CMR A4 INDICATE END OF QUEUE q P RB GBUF10 RETURN q P* q P* q * P* REMOVE DWT FRO
0x16dbb0…16dd44 Dummy {f00=0x006f, f01=0x0190, f02=» 2 PREM05 LDK A4,DWTOPN GET DWT-LINK TO BE REMOVED r P ADR A4,A6 r : PREM10 LDR* A3,A2 r N & P RB(Z) GBUF10 NOT ON QUEUE: RETURN r f P CWR A3,A4 r P RF(E) REM15 r P LDR A2,A3 GET NEXT r P RB REM10 r PREM15 LDR* A3,A4 REMOVE r P STR
0x16dd44…16ded8 Dummy {f00=0x006f, f01=0x0190, f02=»ADDR r P* A2,A3 DESTROYED s P* s & PQR100 EQU * s 0 P LDR* A3,A2 s D $ P RF(Z) QR200 END OF QUEUE FOUND s X P LDR A2,A3 s P RB QR100 s & PQR200 STR A4,A2 INSERT INTO QUEUE s " P CMR A4 INDICATE END OF QUEUE s P RTN A5 s P EJE
0x16ded8…16e06c Dummy {f00=0x006f, f01=0x0190, f02=»TABLE ADDRESS TO STACK s r < P* DATA LAST,ADDRE LAST ENTRY; ERROR ADDRESS t > P* DATA KEY1,ADDR1 KEY (A2); ADDRESS FOR BRANCH t ^ P* " " " t P* LAST DATA KEYN,ADDRN t P* t P* ENTRY: A2 = KEY VALUE t P* EX
0x16e06c…16e200 Dummy {f00=0x006f, f01=0x018e, f02=»T CONTENTS = TABLE ADDRESS t & P LDR* A4,A3 GET LAST LEGAL ADDRESS u " P* u L PLOOK50 EQU * LOOP ENTRY u V * P ADK A3,4 GET NEXT TABLE ENTRY ADDRESS u v P CWR A3,A4 PAST THE END? u " P RF(G) LOOK90 YES = NOT FOUND u & P CWR* A2,A3 KEY = VALUE IN TAB
0x16e200…16e394 (1, 307) Dummy {f00=0x006f, f01=0x0190, f02=» u ( P LDR* A3,A1 GET TABLE ADDRESS AGAIN v PLOOK95 EQU * v 4 P ADKL A15,4 RESET STACK v H & P ABI 2,A3 BRANCH TO TABLE ADDRESS v h P EJECT v J P********************************************************************** v P* v 8 P* DCLINK - LIN
0x16e394…16e528 Dummy {f00=0x006f, f01=0x0190, f02=» v j P* DWTCHD = A(DTE) w P* A2, A3 DESTROYED w ( P* w J J P********************************************************************** w T P* w PDCLINK EQU * w P LDR A3,A7 DTE TAB ADDR w PDCLK20 EQU * w P LDR A2,A3 PREVIOUS
0x16e528…16e6bc Dummy {f00=0x006f, f01=0x0190, f02=»WTCHN,A2 ADD NEW DWT TO CHAIN w & P CM DWTCHN,A6 END OF CHAIN MARKER x & P* x P PDCLK50 EQU * x Z 0 P ST A7,DWTCHD,A6 * BACKWARD LINK TO ANCHOR x n P ADKL A15,4 x P ABR* A15 RETURN x P EJECT x J P********************************************
0x16e6bc…16e850 Dummy {f00=0x006f, f01=0x0190, f02=»-ADDRESS TO BE REMOVED x ~ P* y 4 P* EXIT: CC = 0 = CHAIN NOW EMPTY; ANCHOR = 0 y ( , P* POS = DWT FOUND & REMOVED y ` > P* NEG = DWT NOT FOUND OR CHAIN EMPTY ON ENTRY y P* A2 & A3 DESTROYED y P* y J P********
0x16e850…16e9e4 Dummy {f00=0x006f, f01=0x0190, f02=»20 EQU * y $ P LDR A2,A3 PREVIOUS DWT-POINTER z < P LD A3,DWTCHN,A2 GET DWT OF NEXT (OR 1ST) ENTRY IN CHAIN z 8 P RF(NZ) DCRM30 NOT AT END z x 8 P SUK A3,1 AT END & NOT FOUND; SET FOR CC = NEGATIVE z P RF DCRM80 RETURN z P* z PDCRM30 EQU * z
0x16e9e4…16eb78 Dummy {f00=0x006f, f01=0x0190, f02=» z Z 0 P ST A3,DWTCHN,A2 MOVE IT TO THE PREVIOUS ONE { P LDK A3,0 SET FOR CC = 0 { < P LD A2,DTECHN,A7 GET ANCHOR { & P RF(Z) DCRM80 LAST DWT NOW REMOVED { P ADK A3,1 SET CC = POS. { P* { PDCRM80 EQU * { P ADKL A15,4 UPDATE STACK { P
0x16eb78…16ed0c Dummy {f00=0x006f, f01=0x0190, f02=»SE: CF A15,STREG { P* | P* RESTORE | " $ P* CALLING SEQUENCE: CF A15,LDREG | 4 P* | P* | f PSTREG ST A3,LCA3 | p P ST A4,LCA4 | P ST A5,LCA5 | P ST A6,LCA6 | P ST A7,LCA7 | P ST A8,LCA8 | P RF RTNA15 RETURN | P E
0x16ed0c…16eea0 Dummy {f00=0x006f, f01=0x0190, f02=»L A6,0 | PLCA6 EQU *-2 } P LDKL A7,0 } " PLCA7 EQU *-2 } 4 P LDKL A8,0 } H PLCA8 EQU *-2 } Z PRTNA15 EQU * } n P ADKL A15,4 } P ABR* A15 } P EJECT } P* } P* POLL TIME OUT } P* } ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE }
0x16eea0…16f034 (1, 308) Dummy {f00=0x006f, f01=0x0190, f02=»F A15,DCSUPS UPDATE STATISTICS } P XIF ~ & P CF A15,SPOTIM ~ 2 P ABL TDISP ~ H P* ~ Z 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED ~ d P* ~ PCPTIM EQU * ~ P LDK A2,1 ~ " P ST A2,DTEDLS,A7 DATA LINK UP ~ P LDKL A2,-TIMPOL ~
0x16f034…16f1c8 Dummy {f00=0x006f, f01=0x0190, f02=» ~ P DATA PTOUT,TIMPOL P ST A4,DCTPGP " P ADKL A15,4 8 P ABR* A15 L P EJECT ^ N P************************************************************************** l N P**************************************************************************
0x16f1c8…16f35c Dummy {f00=0x006f, f01=0x0190, f02=»** ** P** ** P** ** P** ** 0 P** ** @ P** ** P P** ** ` F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R I V E R ** p P** ** P** ** , P** P R O T O C O L H A N D L I N G **
0x16f35c…16f4f0 Dummy {f00=0x006f, f01=0x0190, f02=»** P** ** P** ** P** ** * P** ** : N P************************************************************************** J N P************************************************************************** P EJECT P* P*
0x16f4f0…16f684 Dummy {f00=0x006f, f01=0x0190, f02=»,CSYNCI START I/P WITH SYNC DEF $ PBRM100 CF A5,READ READ CHARACTER ( P SUK A2,SOH P P RF(E) BRM200 SOH d P SUK A2,PAD-SOH PAD ? ~ P RB(NE) BRM100 NOT /FF P CF A5,READ READ CHARACTER P CWK A2,PAD PAD ? " P RB(NE) BRM100 NOT
0x16f684…16f818 Dummy {f00=0x006f, f01=0x0190, f02=» v P CF A5,READP READ RID=TC P ABL(NZ) BRM920 PARITY ERROR ( & P CW A2,DTECHP,A7 CHECK IF THIS CHP L P RF(E) BRM201 v P CWK A2,GRID GENERAL RID ? . P ABL(NE) BRM900 NOT THIS TC: RESYNCHRONIZE PBRM201 EQU * . P CF A5,READP READ SI
0x16f818…16f9ac Dummy {f00=0x006f, f01=0x0190, f02=»SID GENERAL SID ? P RF(E) BRM210 YES, OK P CWK A2,/51 SID 51 ? 8 P RF(E) BRM210 YES, OK V P ABL BRM900 INVALID SID t P XIF * P CF A5,FINTER FIND SUBTERMINAL ADDRESS P CWK A3,-1 GENERAL SID ? * P RF(E) BRM205 YES,DONT
0x16f9ac…16fb40 Dummy {f00=0x006f, f01=0x0190, f02=» A3,A3 P ABL(Z) BRM900 SID UNKNOWN PBRM210 EQU * 0 P CF A5,READP D P ABL(NZ) BRM920 PARITY ERROR X P ST A2,FDID SAVE DID | P IFT AUX=0 P CWK A2,DID GENERAL DID ? & P ABL(NE) BRM900 NO, NOT ACCEPTED P XIF $ P
0x16fb40…16fcd4 (1, 309) Dummy {f00=0x006f, f01=0x0190, f02=» n P ABL(NZ) BRM920 PARITY ERROR P CWK A2,STX , " P RF(E) BRM300 STX: TEXT FRAME @ P CWK A2,ETX f & P RF(E) BRM250 ETX: ANALYZE HEADER z P CWK A3,4 $ P ABL(G) BRM930 HEADER OVEABLLOW $ P SC A2,HEADER,A3 STORE CHARACTER P A
0x16fcd4…16fe68 Dummy {f00=0x006f, f01=0x0190, f02=» MASK BCC PARITY BIT P ABL(NZ) BRM910 BCC ERROR P CF A5,CHALTI HALT INPUT > P EJECT ^ P* l P* v P* ANALYZE CONTROL SEQUENCE P* P* P LD A1,HEADER GET HEADER P LD A2,HEADER+2 P LDK A3,0 FIND HEADER TYPE
0x16fe68…16fffc Dummy {f00=0x006f, f01=0x0190, f02=»TO HANDLER l PBRM270 ADK A3,2 & P ADK A4,4 INCREMENT STRING POINTER * P CWK A4,STRINE T P RB(NE) BRM260 TRY NEXT j P IFT STAT=1 $ P LDK A1,CSSXC2 INCORRECT HEADER $ P CF A15,DCSUPS UPDATE STATISTICS P XIF P RB BRM INVALI
0x16fffc…170190 Dummy {f00=0x006f, f01=0x0190, f02=»SBSTID RESET INDEX FOR TERMINAL ID P RF(Z) BRM305 , P XIF D P LD A6,FDWTIN GET DWT ADDR T . P RF(Z) BRM900 INVALID SUBTERMINAL ADDRESS x PBRM305 EQU * P LD A4,DCRBUF & P ABL(Z) BRM940 NO BUFFER AVAILABLE P LD A1,W
0x170190…170324 Dummy {f00=0x006f, f01=0x0190, f02=» h & P ADK A4,6 RESERVE 3 WORDS AT BEGIN P LDK A3,0 RESET BUFFER INDEX 2 & PBRM310 CF A5,READP READ CHARACTER V P RF(NZ) BRM920 PARITY ERROR P IFT AUX=1 P CWK A2,DC2 PRINT COMMAND ? P RF(E) BRM315 YES P XIF P CWK
0x170324…1704b8 Dummy {f00=0x006f, f01=0x0190, f02=»T BCC P RB BRM310 P EJECT P IFT AUX=1 . P* @ P* PRINT COMMAND DETECTED J P* l PBRM315 EQU * v 2 P IM SPRINT INIT PRINT FLAG FOR FOLLOWING POLL P LDK A1,BUSYFL ( P ORS A1,DWTST,A6 SET BUSY SUB-TRMNL P*
0x1704b8…17064c Dummy {f00=0x006f, f01=0x0190, f02=»T A1,DWTDID,A6 INIT AI DEVICE PBRM318 EQU * & P XIF : P* J * P* STORE INCOMMING CHARACTER IN BUFFER T P* PBRM320 EQU * P IFT NULTST=1 P CWK A2,0 NULL ? " P RB(E) BRM310 YES,SUPPRESS IT P XIF P CWK A3,
0x17064c…1707e0 Dummy {f00=0x006f, f01=0x0190, f02=» CWK A1,SBSSTA ON POSITION 7 ? P RF(NE) BRM330 NO ( P ST A3,SBSA3 SAVE A3 B P ST A4,SBSA4 SAVE A4 ` , P CF A5,FINT05 FIND SUBTERMINAL ADDRESS ~ P LDR A3,A3 IS A3 ZERO * P RF(Z) BRM900 YES, TERMINAL NOT FOUND P ST A3,FDWTIN
0x1707e0…170974 (1, 310) Dummy {f00=0x0070, f01=0x0190, f02=» P XIF P LDR A1,A4 & P ADR A1,A3 COMPUTE BUFFER ADDRESS , P SCR A2,A1 STORE CHARACTER V P ADK A3,1 INCREMENT INDEX x P RB BRM310 P EJECT P* P* ETX DETECTED P* PBRM350 EQU * P CF A5,READP RE
0x170974…170b08 Dummy {f00=0x0070, f01=0x0190, f02=») BRM960 BCC ERROR P IFT SALCUZ=1 . P CF A5,CHALTI STOP I/P TO CHECK CHAR PAR 0 ( P ANK A2,SBPARI CHAR PARITY ERROR ? b P RF(NZ) BRM970 YES P XIF P IFT STAT=1 ( P LDK A1,CSSRBL DATA BLOCKS RECEIVED $ P CF A15,DCSUPS
0x170b08…170c9c Dummy {f00=0x0070, f01=0x0190, f02=» $ P LD A3,SPRINT PRIN ASKED (DC2) ? P RF(Z) BRM358 NO , * P LD A2,DWTDID,A6 YES, GET SELECTED DID D PBRM358 EQU * r $ P SC A2,-1,A4 STORE DID IN BUFFER P LD A2,FSID SID $ P SC A2,-2,A4 STORE SID IN BUFFER P CF A5,CHALTI HALT INPUT
0x170c9c…170e30 Dummy {f00=0x0070, f01=0x018e, f02=» P IM TACK ACK TO BE SENT PBRM360 EQU * $ $ P ADK A4,6 ADJUST BUFFER POINTER 8 P RF TEXT PROCESS TEXT ` P IFT AUX=1 ~ P* * P* PRINT COMMAND, SET TRANSMIT WABT P* PBRM370 EQU * P IM TWABT P RB BRM360
0x170e30…170fc4 Dummy {f00=0x0070, f01=0x018e, f02=» P LDKL A5,STB * P CF A5,CSYNCI START I/P WITH SYNC DEF PBRM900 CF A5,READ F 0 P LD A1,DCSTCU ANY STATUS FROM CONTROL UNIT ? ` & P RF(NZ) BRM910 YES HALT AND RESYNC P SUK A2,PAD PAD ? P RB(NZ) BRM900 NOT /FF 4 PBRM910 CF A5,CHALT
0x170fc4…171158 Dummy {f00=0x0070, f01=0x0190, f02=» P IFT STAT=1 P LDK A1,CSSRPE PARITY ERROR $ P CF A15,DCSUPS UPDATE STATISTICS < P XIF d P RB BRM900 p P* P* INCORRECT HEADER P* PBRM930 EQU * P IFT STAT=1 $ P LDK A1,CSSXC2 INCORRECT HEADER $ P CF A15,
0x171158…1712ec Dummy {f00=0x0070, f01=0x0190, f02=» P LDK A1,CSSRBY BUFFER BUSY $ P CF A15,DCSUPS UPDATE STATISTICS * P XIF R P RB BRM900 ^ P* p P* BUFFER OVERFLOW z P* PBRM950 EQU * P IFT STAT=1 " P LDK A1,CSSRBO BUFFER OVERFLOW $ P CF A15,DCSUPS UPDATE STATIS
0x1712ec…171480 Dummy {f00=0x0070, f01=0x018e, f02=» PARITY ERROR $ P CF A15,DCSUPS UPDATE STATISTICS P XIF > P RB BRM910 J P* P* CHAR PARITY ERROR f P* PBRM970 EQU * P IFT STAT=1 P LDK A1,CSSRPE PARITY ERROR $ P CF A15,DCSUPS UPDATE STATISTICS P XIF
0x171480…171614 (1, 311) Dummy {f00=0x0070, f01=0x0190, f02=» P ST A2,DCSTRX SAVE SID TEXT , P CF A15,RQRE50 COMPLETE RECEIVE REQUEST ( PTEX205 EQU * X P IFT AUX=1 l P LD A1,FDID ~ P SUK A1,DID P RF(Z) TEX206 P* P* FORCE SELECT ANSWER P* IF DC2,FORCE WABT P*
0x171614…1717a8 Dummy {f00=0x0070, f01=0x0190, f02=» ST A1,DIDREA PTEX206 EQU * P XIF * P ABL BRM : P EJECT J P* X P* b ( P* STATUS POLL: GENERAL AND SPECIFIC l P* P* PSP EQU * " P CM WPOLL CLEAR WAIT FOR POLL ( P LD A2,XACK STATUS POLL WITHOUT ACK
0x1717a8…17193c Dummy {f00=0x0070, f01=0x0190, f02=» r " P CM WPOLL CLEAR WAIT FOR POLL P LDK A1,0 RETURN CODE = 0 . < P CF A5,RQSE50 CHECK IF WRITE REQUEST IS TO BE COMPLETED P PSPA200 EQU * " P CF A5,CPTIM RESET POLL TIMER P IFF AUX+BFBUSY=0 P LD A2,DCRBUF CHECK IF BUSY * P
0x17193c…171ad0 Dummy {f00=0x0070, f01=0x0190, f02=»SPA300 EQU * P IFT SBS=0 P LD A2,FSID GET SID ( P SUK A2,SID GENERAL SID ? D ( P RF(NZ) SPA350 NO,SPECIFIC CHECK IT f P XIF P EJECT P* 6 P* SEND TRAFFIC ON GENERAL STATUS POLL IF REQUIRED P* P IFT AUX=1
0x171ad0…171c64 Dummy {f00=0x0070, f01=0x0190, f02=»PRINT P RF(Z) SPA302 P CF A5,FRWABT PRINT MODE $ PSPA302 EQU * D P LD A6,DCSTQ X P ABL(NZ) TPA305 SEND THRU l P XIF PSPA305 EQU * " P LD A6,DCWRQ GET QUEUE ANCHOR P RF(Z) SPA500 NO TRAFFIC " P SUK A6,DWTOPN G
0x171c64…171df8 Dummy {f00=0x0070, f01=0x018e, f02=»DID RESTORE DID P CF A5,TRTRAF SEND TRAFFIC P RB SP100 : P* L P EJECT V P* SPECIFIC STATUS POLL d P* PSPA350 EQU * P LD A6,FDWTIN RESTORE DWT P IFT AUX=1 P LD A1,SREADY P RF(NZ) SPA700 SELECT DEVICE
0x171df8…171f8c Dummy {f00=0x0070, f01=0x0190, f02=» PSPA360 EQU * P LD A1,FDID * P SUK A1,DID SELECTION OR DESELECTION ? , P ABL(NZ) TPA400 YES Z P XIF v P LD A1,DWTST,A6 GET STATUS P RF(N) SPA500 NO ORDER ON P LD A1,DWTOR,A6 GET ORDER P ANK A1,/FF REMOVE OPTIONS
0x171f8c…172120 Dummy {f00=0x0070, f01=0x0190, f02=»O TRAFFIC v P RB SP100 P IFT AUX=1 $ PSPA600 EQU * 6 P LD A1,DWTTXT J P CW A1,FDWTIN ` . P ABL(NE) BRM MUST BE FOR THE SAME TERMINAL v P CF A5,FRWABT SET WABT P RB SPA360 P* PSPA700 EQU * P LD A1,DWTTXT
0x172120…1722b4 (1, 312) Dummy {f00=0x0070, f01=0x0190, f02=» P* 0 P* RECEIVE BUFFER NOT AVAIABLE, SEND BUSY PSPA800 EQU * N P CM TACK NO ACK TO BE SENT d $ P LD A2,XBUSY WAS PREVIOUS BUSY P RF(Z) SPA810 NO P LD A2,FSID GET SID & P CWK A2,SID IS IT A GENERAL POLL
0x1722b4…172448 Dummy {f00=0x0070, f01=0x0190, f02=» . P CF A5,TRNOTR TRANSMIT WABT OR NO TRAFFIC P CM TWABT 6 & P IM XBUSY INDICATE PREVIOUS BUSY J P ABL SP100 RETURN t P* & P* NOT BUSY ANY MORE, SEND THRU P* PSPA850 EQU * P CM XBUSY INDICATE NOT BUSY
0x172448…1725dc Dummy {f00=0x0070, f01=0x0190, f02=»* P* & PTP EQU * TRAFFIC POLL WITHOUT ACK P IFT SBS=1 > * P CM TPAX CLEAR TR.POLL+ACK INDICATOR P P XIF ~ " P CM WPOLL CLEAR WAIT FOR POLL P LD A2,XACK " P RF(Z) TPA200 NO ACK EXPECTED $ P CF A5,TRRPRQ SEND REPLY R
0x1725dc…172770 Dummy {f00=0x0070, f01=0x0190, f02=» v 4 P CF A5,RQSE50 CHECK IF WRITE IS TO BE COMPLETED P IFT SBS=1 @ ( P IM TPAX SET TR.POLL+ACK INDICATOR R P XIF ~ PTPA200 EQU * " P CF A5,CPTIM RESET POLL TIMER P IFF AUX+BFBUSY=0 P LD A2,DCRBUF CHECK IF BUSY P R
0x172770…172904 Dummy {f00=0x0070, f01=0x0190, f02=»* ( P* CHECK IF SPECIFIC OR GENERAL SID P* 6 P LD A2,FSID GET SID @ P SUK A2,SID GENERAL SID ? P RF(Z) TPA300 YES ~ P XIF P IFT SBS=1 & P RF TPA300 TREAT AS GENERAL POLL P XIF P* P* HERE ON
0x172904…172a98 Dummy {f00=0x0070, f01=0x0190, f02=» | P SUK A1,DID GENERAL DID ? ( P ABL(NZ) TPA400 NO,SELECT AI DEVICE * P EJECT V P* d P* SPECIFIC TRAFFIC POLL n " P* TEST IF PRINT MODE P* P LD A1,SREADY P RF(NZ) TPA207 SELECT DEVICE P LD A1,SPRINT
0x172a98…172c2c Dummy {f00=0x0070, f01=0x0190, f02=»D,A6 & P ST A1,FDID INIT AI DEVICE ADDRESS P LD A1,DWTST,A6 6 P ANK A1,BUSYFL N P RF(Z) TPA306 NOT BUSY d P IM TWABT P CF A5,TRNOTR * P ABL SP100 RETURN AFTER TRANSMIT BUSY PTPA203 EQU * P XIF P LD A1,DWTST
0x172c2c…172dc0 Dummy {f00=0x0070, f01=0x0190, f02=»WRITE ORDER ? . P RB(NZ) SPA500 NOTHING TO SEND,NO TRAFFIC P EJECT H P* V * P* SEND TEXT ON SPECIFIC TRAFFIC POLL ` P* PTPA205 EQU * P IFT SBS=1 P LDK A2,/51 SBS SID P ST A2,FSID P XIF P ST A6,F
0x172dc0…172f54 (1, 313) Dummy {f00=0x0070, f01=0x0190, f02=»DDRESS t P ST A4,ECBBA,A8 . P CF A15,DC:MOT MOVE DATA TO OUTPUT BUFFER & P XIF X P IFT STAT=1 d * P LDK A1,CSSTBL DATA BLOCKS TRANSMITTED x $ P CF A15,DCSUPS UPDATE STATISTICS P XIF & P LD A2,ECBBA,A8 GET BUFFER ADDRESS P ADK
0x172f54…1730e8 Dummy {f00=0x0070, f01=0x0190, f02=»STORE CORRECT LENGTH P ST A2,FECBRL P CM NAKCNT CLEAR NAK COUNTER 2 P CF A5,TRTEXT TRANSMIT TEXT V P IM XACK ACK EXPECTED z P ABL SP100 P IFT AUX=1 PTPA206 EQU * P LD A1,DWTTXT P CW A1,FDWTIN . P ABL(NE) BRM
0x1730e8…17327c Dummy {f00=0x0070, f01=0x0190, f02=»DWTIN P ABL(NE) BRM P CF A5,SETREA " P RF TPA400 8 P XIF J PTPA210 EQU * Z & P LD A1,ECBCW,A8 GET FUNCTION CODE n P ANKL A1,/FF & P SC A1,DCSTR9 INIT TRANSFER FIELD ( P CF A5,TRSFCN TRANSFER FUNCTION KEY P ABL S
0x17327c…173410 Dummy {f00=0x0070, f01=0x0190, f02=»TEST IF PRINT SEQUENCE INITIATED P* ( P LD A1,SREADY 2 P RF(Z) TPA301 H P CF A5,SETREA ^ P ABL TPA400 t PTPA301 EQU * P LD A1,SPRINT P RF(Z) TPA302 P CF A5,FRWABT INIT WABT PTPA302 EQU * P LD A6,DCSTQ
0x173410…1735a4 Dummy {f00=0x0070, f01=0x0190, f02=» P LDR* A1,A6 P ST A1,FSID PTPA306 EQU * , " P ST A6,FDWTUT INIT OUTPUT DWT @ P CF A5,TRTHRU SEND THRU f P CM DWTPRT,A6 P ABL SP100 PTPA315 EQU * P XIF P IFT SBS=1 . P LD A6,TPAX WAS PREVIOUS TR.POLL + A
0x1735a4…173738 Dummy {f00=0x0070, f01=0x0190, f02=»FIC z " P SUK A6,DWTOPN GET DWT ADDRESS P LDR* A2,A6 INIT SID 2 P ST A2,FSID N P LDK A2,DID b $ P ST A2,FDID RESTORE GENERAL DID v ( P RB TPA205 SEND FIRST TEXT IN QUEUE P IFT AUX=1 P EJECT P* , P* FORCE WABT ANSWER
0x173738…1738cc Dummy {f00=0x0070, f01=0x0190, f02=»WT t " P CM SPRINT RESTORE PRINT FLAG & P LD A1,DWTDID,A6 GET SPECIFIC DID 0 $ P ST A1,FDID STORE IT TO BE SEND Z * P IM DWTPRT,A6 INIT WABT-THRU INDICATOR P RTN A5 P* P* INIT DEVICE (SID,DID) P* PSETREA EQU * P
0x1738cc…173a60 Dummy {f00=0x0070, f01=0x0190, f02=» DEVICE P* PTPA400 EQU * P* . P* TEST IF DID IS VALID 8 P* V . P CF A5,DESEL EXAMINE EVENTUAL DESELECTION ` " P CM SREADY CLEAR READY TO SEND P LD A6,FDWTIN GET DWT $ P LD A1,DWTST,A6 TERMINAL BUSY ? P ANKL A1,B
0x173a60…173bf4 (1, 314) Dummy {f00=0x0071, f01=0x0190, f02=» ADR A3,A6 PTPA403 EQU * P LDR* A2,A3 GET DID IN LIST & P ABL(Z) BRM END OF LIST J P ANKL A2,NBIT0 IGNORE STATUS j P CWR A1,A2 OK ? $ P RF(E) TPA405 YES,DID RECOGNIZED P ADK A3,2 P RB TPA403 P EJECT P* ,
0x173bf4…173d88 Dummy {f00=0x0071, f01=0x0190, f02=»AI STATUS P ANKL A2,BIT0 AI OPERABLE ? P RF(NZ) TPA500 NO 6 P* P P* DEVICE READY Z P* r P CF A5,TREADY | P ABL SP100 P* P* DEVICE NOT OPERABLE P* PTPA500 EQU * P CF A5,TRNOP P ABL SP100
0x173d88…173f1c Dummy {f00=0x0071, f01=0x0190, f02=» STATUS BUSY n P* PDESEL EQU * P LD A1,FDID 2 P CWK A1,CHDSL DESELECTION ? F P RF(E) DESEL1 j P RTN A5 NO . PDESEL1 EQU * DESELECTION,RESTORE TERMINAL , P CM DWTPRT,A6 RESET WABT-THRU INDICATOR P LDK A1,/FE ( P
0x173f1c…1740b0 Dummy {f00=0x0071, f01=0x0190, f02=»* P* RETRANSMIT REQUEST P* & P* 0 PRT EQU * : P LD A1,XACK J 0 P RF(Z) RT110 SEND NO TRAFFIC IF ACK NOT EXP ^ P LD A1,ZRECOV+4 P CW A1,FSID P ABL(NE) BRM NOT PROPER SID P LD A6,FDWTUT & P RF(Z) RT150 NO
0x1740b0…174244 Dummy {f00=0x0071, f01=0x0190, f02=»KCNT COUNT NAK:S P LD A2,NAKCNT P SUK A2,4 . " P RF(Z) RT100 4 NAK:S RECEIVED @ P IM TSTENQ f " P CF A5,TRTEXT RETRANSMIT TEXT x P IFT STAT=1 , P LDK A1,CSSTRT DATA BLOCKS RETRANSMITTED $ P CF A15,DCSUPS UPDATE STATISTICS
0x174244…1743d8 Dummy {f00=0x0071, f01=0x0190, f02=» SP100 PRT110 EQU * " P CF A5,TRNOTR SEND NO TRAFFIC $ P ABL SP100 J P EJECT ^ P* l $ P* HERE RECOVERY ON LAST MESSAGE v P* TEXT EXCLUDED P* PRT150 EQU * P IM TSTENQ ( P CFI A5,LSEND RETURN TO LAST
0x1743d8…17456c Dummy {f00=0x0071, f01=0x0190, f02=» ABL BRM P EJECT P* P* ( " P* TRANSMIT PROCEDURE RESPONSES 2 P* X P* b PTRACK EQU * l ( P LDKL A4,DCSTR1 NO TRAFFIC WITH ACK P IM XACK P LDKL A1,TRACK P ST A1,LSEND P RF TRCTRL P* P* ACK
0x17456c…174700 Dummy {f00=0x0071, f01=0x0190, f02=»5,DCSUPS UPDATE STATISTICS P XIF " P CF A5,TRSYNC . P LDK A2,SOH D P CF A5,WRITE X P LDKL A8,0 BCC l P LD A2,DTECHP,A7 CHP P CF A5,WRITEP P LD A2,ZRECOV+4 P CF A5,WRITEP LAST SID P LD A2,ZRECOV+6 LAST DID
0x174700…174894 (1, 315) Dummy {f00=0x0071, f01=0x0190, f02=» IM XACK P LDKL A1,TRTRAF P ST A1,LSEND ( P RF TRCTRL < P EJECT N P* P* SEND NO TRAFFIC f ( P* IF ACK OR WABT HAVE TO BE INCLUDED P* TAKE CARE ABOUT SID,DID P* P* PTRNOTR EQU * 0 P LD A1,DCSTRX REST
0x174894…174a28 Dummy {f00=0x0071, f01=0x0190, f02=»NOT1 EQU * P LD A1,TWABT TRANSMIT WABT ? P RF(Z) TRNOT2 NO 6 P RB TRACK YES N PTRNOT2 EQU * d P LDKL A4,DCSTR5 x P CF A5,TRSYNC P LDKL A8,0 BCC P RF TRC100 P EJECT P* P* P* DEVICE HANDLING
0x174a28…174bbc Dummy {f00=0x0071, f01=0x0190, f02=» RF TRCTRL P XIF PTRTHRU EQU * " P LDKL A4,DCSTR7 6 P IM XACK N P LDKL A1,TRTHRU ^ P ST A1,LSEND v P RF TRCTRL P IFT AUX=1 PTRNOP EQU * P LDKL A4,DCSTR8 P IM XACK P LDKL A1,TRNOP P ST A1,L
0x174bbc…174d50 Dummy {f00=0x0071, f01=0x0190, f02=»,LSEND P RF TRCTRL P EJECT P* . PTRCTRL EQU * 8 P* L 2 P* HERE TO TEST ON RETRANSMISSION CASE OR NOT V * P* IF YES RESTORE PREVIOUS HEADER P* P LD A1,TSTENQ " P RF(NZ) RETRAX RETRANSMISSION P CF A5,T
0x174d50…174ee4 Dummy {f00=0x0071, f01=0x0190, f02=» t " P CF A5,WRITEP WRITE CHARACTER P RB TRC100 . PTRC200 LDK A2,ETX @ P CF A5,WRITEP SEND ETX Z P LDR A2,A8 x P CF A5,WRITEP SEND BCC P LDK A3,3 PTRC210 EQU * P LDK A2,PAD PAD CHAR P CF A5,WRITE SEND PAD
0x174ee4…175078 Dummy {f00=0x0071, f01=0x0190, f02=»* RID SID DID (DLE 1 OR DLE ?) P* * PRETRAX EQU * 4 P CM TSTENQ H P LC A3,ZRECOV Z & P ST A3,COUNT INIT PARAMETERS COUNT p P LDK A3,/FF 2 P ANS A3,ZRECOV DESTROY FIRST CHARACTER COUNTER P CF A5,TRSYNC P LD A2,ZRECOV
0x175078…17520c Dummy {f00=0x0071, f01=0x0190, f02=» P CF A5,WRITEP SEND CHARACTER " P ADK A3,2 COUNTER IN PROGRESS ( & P CC A3,COUNT+1 END OF SAVE AREA ? N " P RB(NE) LOOP NO,GO ON WRITING x P LD A1,COUNT " P SC A1,ZRECOV RESTORE COUNTER " P LD A1,FDWTUT RECOGNIZE RETURN P RB(Z) TRC
0x17520c…1753a0 Dummy {f00=0x0071, f01=0x018e, f02=» TEXT RECOVERY P EJECT P* $ P* . P* TRANSMIT HEADER : 8 & P* SOH RID SID DID T : P* DLE 1 (ACK),DLE ? (WABT=ACK+BUSY) IF REQUIRED ~ $ P* SAVE IT FOR RECOVERY PURPOSES P* P* PTRHEAD EQU *
0x1753a0…175534 (1, 316) Dummy {f00=0x0071, f01=0x0190, f02=» x P ADK A3,2 P LDKL A8,0 BCC P LD A2,DTECHP,A7 CHP 0 P ST A2,ZRECOV,A3 L P CF A5,WRITEP SEND RID d P ADK A3,2 P LD A2,FSID P ST A2,ZRECOV,A3 P CF A5,WRITEP SEND SID P ADK A3,2 P LD A2,FDID P ST
0x175534…1756c8 Dummy {f00=0x0071, f01=0x018e, f02=»DER X P* P LD A1,TACK TRANSMIT ACK ? ( P RF(Z) HEAD10 NO,TEST TRANSMIT WABT 8 P CM TACK d P LDK A2,DLE t P ST A2,ZRECOV,A3 P CF A5,WRITEP SEND DLE P ADK A3,2 P LDK A2,ACK1 P ST A2,ZRECOV,A3 P CF A5,WRITE
0x1756c8…17585c Dummy {f00=0x0071, f01=0x0190, f02=» P* & P CM TWABT NO REJECT TRANSMIT WABT P LDK A2,DLE 8 P ST A2,ZRECOV,A3 L P CF A5,WRITEP SEND DLE d P ADK A3,2 P LDK A2,WABT P ST A2,ZRECOV,A3 P CF A5,WRITEP SEND WABT P ADK A3,2 PHEAD20 EQU * < P S
0x17585c…1759f0 Dummy {f00=0x0071, f01=0x0190, f02=»ETRANSMIT TEXT x 6 P* INCLUDE PENDING ACK,PENDING WABT EVENTUALLY P* P PTRTEXT EQU * Z P LD A1,TSTENQ n " P RB(NZ) RETRAX RETRANSMISSION P EJECT P* P* TRANSMIT TEXT P* P* P CF A5,TRHEAD PTRT0
0x1759f0…175b84 Dummy {f00=0x0071, f01=0x018e, f02=»RESS t " PTRT100 LCR A2,A4 GET CHARACTER P ADK A4,1 INCREMENT POINTER 2 P CF A5,WRITEP SEND CHARACTER V PTRT120 EQU * z P SUK A3,1 " P RB(NZ) TRT100 NEXT CHARACTER 2 P ABL TRC200 ALL TRANSMITTED. SEND ETX AND BCC P EJECT
0x175b84…175d18 Dummy {f00=0x0071, f01=0x0190, f02=» h * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS 6 PTRS100 LDK A2,SYN N P CF A5,WRITE SEND SYN h P SUK A3,1 P RB(NZ) TRS100 P RTN A5 P EJECT N P************************************************************
0x175d18…175eac Dummy {f00=0x0071, f01=0x0190, f02=»** ** P** ** P** ** P** ** 0 P** ** @ P** ** P P** ** ` P** ** p P** ** P** ** P** ** P** ** P** ** F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R
0x175eac…176040 Dummy {f00=0x0071, f01=0x0190, f02=» ** P** ** P** ** P** ** . P** ** > P** ** N P** ** ^ P** ** n P** ** ~ P** ** P** ** P** ** N P**************************************************************************
0x176040…1761d4 (1, 317) Dummy {f00=0x0071, f01=0x0190, f02=»* CINIT : INITIALIZE LINE CONTROL UNIT INFO P* 4 PCINIT EQU * B $ P CM DCLCI CLEAR I/P ACTIVE IND X ( P ADKL A15,4 INCREMENT STACK POINTER P ABR* A15 RETURN TO CALLER P EJECT P* 0 P* CSYNCI : SEND SYNC PATTERN FOR
0x1761d4…176368 Dummy {f00=0x0071, f01=0x0190, f02=»I STOP I/P & P ST A5,DCLCI SET I/P ACTIVE FLAG ( P ADK A5,4 ADD RETURN OFFSET FOR ABR < P IFT SALCUZ=1 h 0 P LDK A2,PARITY CHAR PARITY FUNCTION FOR LC ~ P CIO A2,1,DCDEVI STARTY I/O P LDK A2,SYN SYNC PATTERN 2 P OTR A2,1,DCDEVI
0x176368…1764fc Dummy {f00=0x0071, f01=0x0190, f02=»END I/P SYNC PATTERN TO LC ~ P XIF $ PCSYN:I EQU * 2 * P ABR* A5 RETURN TO CALLER WITH CR SET F P* t P* 0 P* CSYNCO : START TRANSMITTER WITH SYNC DEF P* PCSYNCO EQU * P LD A2,PFPOST $ P RF(NZ) CS
0x1764fc…176690 Dummy {f00=0x0071, f01=0x0190, f02=» P RF(A) CSYNC2 ACCEPTED -> , P SST A2,DCDEVO TRY TO READ STATUS THEN & P RF(A) CSYNC1 ACCEPTED -> V * P ABL BRM NOT ACCEPTED TIMEOUT REQUEST x PCSYNC1 EQU * P LDK A2,PARITY RETRY CIO P CIO A2,1,DCDEVO DO IT PCSYNC2 EQU
0x176690…176824 Dummy {f00=0x0071, f01=0x0190, f02=»VO START TRANSMITTER P XIF PCSYN:O EQU * . P RTN A5 B P EJECT T P* f $ P* CHALTI : HALT INPUT CHANNEL t P* P* PCHALTI EQU * P IFT SALCUZ=1 & P LDK A2,CBSTOP STOP FUNCTION BIT
0x176824…1769b8 Dummy {f00=0x0071, f01=0x0190, f02=» LOGG=0 P CF A5,LOGSST LOGG I/P SST P XIF 6 P ADK A5,4 INCR STACK POINTE F P ABR* A5 RETURN TO CALLER j P* P* " P* CHALTO : HALT O/P CHANNNEL P* PCHALTO EQU * P IFT SALCUZ=1 " P
0x1769b8…176b4c Dummy {f00=0x0071, f01=0x0190, f02=»CUZ=1 P CIO A2,0,DCDEVO HALT CU P XIF 0 & P ADK A5,4 INCREMENT STACK POINTER @ P SST A2,DCDEVO GET STATUS j P ABR* A5 RETURN TO CALLER P EJECT P* P* P* RECEIVER INTERRUPT P* P* PIH2201
0x176b4c…176ce0 Dummy {f00=0x0071, f01=0x018e, f02=» P MSR 8,A15 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 & P INR A2,0,DCDEVI READ CHAR T , P RF(NA) IHIN20 NOT ACCEPTED,CHECK STATUS x P IFF LOGG=0 ( P CF A5,LOGIN LOG RECEIVED CHARACTER P XIF P XRR A8,A2 CALCULATE
0x176ce0…176e74 (1, 318) Dummy {f00=0x0072, f01=0x0190, f02=» n P CM DCSTCU CLEAR SST SAVE P LDK A1,1 * P ST A1,DTEPLS,A7 CU OPERABLE < PIHIN10 RTN A5 ` PIHIN20 CF A5,SST PERFORM SST v P ABL BRM P* P* P* TRANSMITTER INTERRUPT P* P* PIH2202 EQU * 0 P
0x176e74…177008 Dummy {f00=0x0072, f01=0x0190, f02=»,A15 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P RB IHIN10 F P EJECT X P* f P* p & P* SST INSTRUCTION AND STATUS CHECK z P* ( P* CHLC STATUS : BIT 10=CARRIER OFF , P* BIT 14=THROUGHPUT ERROR ,
0x177008…17719c Dummy {f00=0x0072, f01=0x0190, f02=»US | P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION P XIF J " P ANK A2,SBERR ERROR BIT SET ? V P RF(NZ) SST050 YES | P IFT SALCUZ=0 P LD A2,DCLCI I/P STATUS ? * P RF(Z) EXDISP I/P NOT ACTIVE IGNORE ( P RF(N) S
0x17719c…177330 Dummy {f00=0x0072, f01=0x0190, f02=»ETURN TO DISP P XIF P IFT SALCUZ=1 & P RF SST100 < P XIF R PSST050 EQU * b " P CM DTEPLS,A7 CU NOT OPERABLE x P ANK A2,SBCARR CARRIER OFF P RF(Z) SST052 NO P LD A2,DCLCI I/P STATUS 0 P RF(Z) EXDIS
0x177330…1774c4 Dummy {f00=0x0072, f01=0x018e, f02=»HROUGHPUT ERROR ? P RF(Z) SST100 NO P IFT STAT=1 4 $ P LDK A1,CSCDIT THROUGHPUT ERROR H $ P CF A15,DCSUPS UPDATE STATISTICS p P XIF P ABL BRM800 THROUGHPUT ERROR PSST100 EQU * P LDR A2,A3 P ANK A2,1 NOT OPERABLE ?
0x1774c4…177658 Dummy {f00=0x0072, f01=0x0190, f02=» P CF A15,STREG SAVE REGISTERS P CF A15,SETIME DELAY 1 SEC ( P DATA SST150,10 J P ABL TDISP DISPATCH b PSST150 EQU * ~ P CF A15,LDREG LOAD REGISTERS PSST200 EQU * P ST A1,DCSTCU P RTN A5 P EJECT P* P
0x177658…1777ec Dummy {f00=0x0072, f01=0x0190, f02=»F(A) WRIT10 P RF READ THROUGPUT ERROR $ PWRIT10 XRR A8,A2 ACCUMULATE BCC 4 P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER p P XIF P* PREAD CF A15,STREG PEXDISP EQU * P ABL TDISP P EJECT P*
0x1777ec…177980 Dummy {f00=0x0072, f01=0x0190, f02=» ANK A2,/FF P ECR A1,A2 P ORK A2,/80 & PWRI100 SLL A1,1 : P RB(P) WRI100 R P RB(Z) WRITE WRITE h P XRK A2,/80 P RB WRI100 P XIF P IFT SALCUZ=1 P RB WRITE WRITE CHAR P XIF P* P*
0x177980…177b14 (1, 319) Dummy {f00=0x0072, f01=0x0190, f02=» P IFT SALCUZ=0 P ECR A1,A2 PRE100 SLL A1,1 . P RF(Z) RE110 D P RB(NN) RE100 X P XRK A2,/80 n P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFT SALCUZ=1 P LDK A1,/80 P XIF
0x177b14…177ca8 Dummy {f00=0x0072, f01=0x018e, f02=»WER ON FUNCTIONS P* P* " PDC22ON EQU * , P IFT CPU852=1 @ P CF A15,SAVE8 V P XIF l P IFF CPU852=1 x P MSR 8,A15 P XIF $ P LDKL A7,DTETAB DTE TAB ADDRESS . P CF A15,CINIT INIT LINE CONTROL UNIT INFO ( P L
0x177ca8…177e3c Dummy {f00=0x0072, f01=0x0190, f02=» P EJECT N P************************************************************************** N P************************************************************************** h P** ** P** ** P** ** P** ** P** **
0x177e3c…177fd0 Dummy {f00=0x0072, f01=0x0190, f02=»** P** ** F P** D R D C 2 2 - U N I S C O P E 1 0 0 / 2 0 0 D R I V E R ** P** ** d P** ** t P** W O R K A R E A S ** P** ** P** ** P** ** P** ** P** ** P** ** P**
0x177fd0…178164 Dummy {f00=0x0072, f01=0x0190, f02=»************************************************ v N P************************************************************************** 8 P* P* P* DC RECEIVE BUFFER POOL P* P* PRLINK EQU RBUFL+RBUFL+8 . PDCRBUF EQU * POINTER T
0x178164…1782f8 Dummy {f00=0x0072, f01=0x0190, f02=» RBUFL+3 P DATA *+RLINK P RES RBUFL+3 & P DATA *+RLINK : P RES RBUFL+3 P P DATA *+RLINK d P RES RBUFL+3 z P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3
0x1782f8…17848c Dummy {f00=0x0072, f01=0x018e, f02=»*+RLINK P RES RBUFL+3 P XIF $ P IFT RBUFNR=13 0 P DATA *+RLINK F P RES RBUFL+3 P DATA *+RLINK p P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES
0x17848c…178620 Dummy {f00=0x0072, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK 2 P RES RBUFL+3 H P DATA *+RLINK P RES RBUFL+3 r P XIF P IFT RBUFNR=12 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLIN
0x178620…1787b4 (1, 320) Dummy {f00=0x0072, f01=0x0190, f02=» RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 * P DATA *+RLINK > P RES RBUFL+3 T P DATA *+RLINK h P RES RBUFL+3 ~ P DATA *+RLINK P RES RBUFL+3 P XIF P IFT RBUFNR=11 P DATA *+RLINK P RES RBUFL+3 P
0x1787b4…178948 Dummy {f00=0x0072, f01=0x018e, f02=»INK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 6 P DATA *+RLINK J P RES RBUFL+3 ` P DATA *+RLINK t P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P XIF P IFT RBUFNR=10 P DATA *+RLINK P RES RBU
0x178948…178adc Dummy {f00=0x0072, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK . P RES RBUFL+3 D P DATA *+RLINK X P RES RBUFL+3 n P DATA *+RLINK P RES RBUFL+3 P XIF P IFT RBUFNR=9 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK
0x178adc…178c70 Dummy {f00=0x0072, f01=0x0190, f02=» RBUFL+3 P DATA *+RLINK P RES RBUFL+3 & P DATA *+RLINK : P RES RBUFL+3 P P XIF d P IFT RBUFNR=8 p P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P DAT
0x178c70…178e04 Dummy {f00=0x0072, f01=0x0190, f02=»FT RBUFNR=7 P DATA *+RLINK P RES RBUFL+3 * P DATA *+RLINK > P RES RBUFL+3 T P DATA *+RLINK h P RES RBUFL+3 ~ P DATA *+RLINK P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P XIF P IFT RBUFNR=6 P
0x178e04…178f98 Dummy {f00=0x0072, f01=0x0190, f02=»INK P RES RBUFL+3 P XIF P IFT RBUFNR=5 , P DATA *+RLINK B P RES RBUFL+3 X P DATA *+RLINK l P RES RBUFL+3 P DATA *+RLINK P RES RBUFL+3 P XIF P IFT RBUFNR=4 P DATA *+RLINK P RES RBUFL+3
0x178f98…17912c Dummy {f00=0x0072, f01=0x0190, f02=»ATA *+RLINK P RES RBUFL+3 P DATA 0 ( P RES RBUFL+3 8 P EJECT L P* Z P* MMU WORK BUFFER d P* P IFF MMUPAG=0 & PMMUBUF RES TBUFL+1 MMU WORK BUFFER P XIF P EJECT P* P* P* INTERRUPT LOGG
0x17912c…1792c0 Dummy {f00=0x0072, f01=0x0190, f02=»A2,SAVE2 P ORKL A2,/0F00 P RF LOG10 & PLOGIN CWK A2,/FF 8 P RF(E) LOGE10 P P ST A2,SAVE2 f PLOG10 ST A3,SAVE3 z P LD A3,LOGPNT P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI P LDKL A3,LOGST
0x1792c0…179454 (1, 321) Dummy {f00=0x0072, f01=0x0190, f02=»GPNT DATA LOGSTA PLOGSTA EQU * P RES 1000 , PLOGEND EQU *-4 > PSAVE2 DATA 0 T PSAVE3 DATA 0 h P XIF | P* P* P* P EJECT P* P* DTETAB P* P* FIXED PART PDTETAB EQU * P DATA 0,
0x179454…1795e8 Dummy {f00=0x0072, f01=0x0190, f02=»* DRIVER DEPENDENT PART P DATA 0,0,0,0 P* STATISTICAL BUFFER 6 PDTSTAT EQU * R P DATA 0 SYMBOLIC ID f P DATA 0 COUNTER STATUS INDEX " P DATA CSCXC3 MAX COUNTER INDEX P DATA 0,0 COUNTERS P DATA 0,0,0,0,0,0 P DATA 0,
0x1795e8…17977c Dummy {f00=0x0072, f01=0x018e, f02=»0,0,0 * P DATA 0,0,0,0,0,0 * P DATA 0 * , P* > P EJECT H P* V P* ` P* PROCEDURE WORK AREAS j P* P* , PFDWTIN DATA 0 CURRENT DWT FOR RECECEION . PFDWTUT DATA 0 CURRENT DWT FOR TRANSMISSION PXACK DATA
0x17977c…179910 Dummy {f00=0x0072, f01=0x0190, f02=» j . PXBUSY DATA 0 BUSY ANSWER ON PREVIOUS POLL ( PHEADER DATA 0,0 HEADER STORAGE AREA : P* f PFECB DATA 0 WRITING ECB p ( PFECBBA DATA 0 WRITING BUFFER ADDRESS ( PFECBRL DATA 0 WRITING BUFFER LENGTH PFSID DATA 0 RESPONDING SID
0x179910…179aa4 Dummy {f00=0x0072, f01=0x018e, f02=»ERS TO BE SAVED | P* 0 PZRECOV DATA 0,0,0,0,0,0 SAVE TRANSMIT HEADER " & PLSEND DATA 0 LAST TRANSMIT ADDRESS V P* * PBUSYFL EQU 1 BUSY FLAG (BIT 15 IN DWT) P* " PSPRINT DATA 0 PRINT STATEMENT $ PDWTTXT DATA 0 LAST DWT FOR TEXT
0x179aa4…179c38 Dummy {f00=0x0072, f01=0x0190, f02=» h . PSBSTID DATA 0 INDEX TO FOUND TERMINAL ID PSBSA3 DATA 0 SAVE AREA A3 : PSBSA4 DATA 0 SAVE AREA A4 * PTPAX DATA 0 1 IF TR.POLL+ACK RECEIVED ~ P XIF P* P EJECT P* P* PSTRING EQU * FRAME STRINGS &
0x179c38…179dcc Dummy {f00=0x0072, f01=0x0190, f02=»ATA /1031,/0500 STATUS POLL WITH ACK , P DATA /0510,/3100 STATUS POLL WITH ACK , $ P DATA /1015,0 RETRANSMIT REQUEST PSTRINE EQU * END OF STRINGS P* P* ( PFRAME EQU * BRANCH TABLE FOR FRAMES & P DATA TP TRAFFIC POLL WITHOUT AC
0x179dcc…179f60 Dummy {f00=0x0072, f01=0x0190, f02=»A STATUS POLL WITH ACK P DATA RT RETRANSMIT REQUEST P EJECT D P* R P* OUTPUT SOFTWARE MESSAGES P* ~ P* . PDCSTR1 DATA 0 WORK AREA FOR NO TRAFFIC+ACK $ PDCSTRX DATA 0 SAVE LAST SID TEXT PDCSTR3 DATA /1030,0 TRAFFIC
0x179f60…17a0f4 (1, 322) Dummy {f00=0x0073, f01=0x0190, f02=»ATA /103B,0 THRU , PDCSTR8 DATA /103D,0 DEVICE NOT OPERABLE , PDCSTR9 DATA 0 REQUEST PROCESSOR MESSAGE H P EJECT x P* P* P* CONSTANTS AND WORK AREAS P* P* & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0
0x17a0f4…17a288 Dummy {f00=0x0073, f01=0x4074, f02=»EUE t , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL $ PDCLCI DATA 0 DC UNIT I/P STATUS < P END d@ p P EJECT x P* P* P* CONSTANTS AND WORK AREAS P* P* & PDCONOF DATA 0 ON- / OFFLINESWITCH * PDCSTOL DATA 0
0x17a288…17a41c Dummy {f00=0x0073, f01=0x2008, f02=» ENTRY POINT { * PDC:TAB DATA 2 DC TAB'S VARIABLE LENGTH | * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 | J PDC:END EQU * END OF TABLE | x P END | @ | PLOGEND EQU *-4 { PSAVE2 DATA 0 { PSAVE3 DATA 0 { P XIF { P* { P* {
0x17a41c…17a5b0 Dummy {f00=0x0073, f01=0x0190, f02=»WTDRD EQU /1A ( P XIF ) P* ) " P IFT MMUPAG=0 ) , PSTART EQU DWTDRD ) B P XIF ) Z P* ) f P IFT MMUPAG=1 ) p PSTART EQU DWTDRD+4 ) P XIF ) P* ) P IFT STAT=1 ) > PDWTSBU EQU START-/A DWT DC REL OFFSET TO STATISTIC BUFFER )
0x17a5b0…17a744 Dummy {f00=0x0073, f01=0x0190, f02=»OCAL DTE ADDRESS ) x , PDWTSUB EQU START-2 POSSIBLE SUB ADDRESS * P XIF * H . PDWTTIM EQU START APPLICATION TIMEOUT VALUE * T . PDWTMOD EQU START+2 ACTUAL MODE OF THE DLS * * PDWTCON EQU START+4 TYPE OF CONNECTION * ( PDWTTRM EQU START+6 TRANSMISSION MO
0x17a744…17a8d8 Dummy {f00=0x0073, f01=0x0190, f02=»ATOR * h 0 PDWTPTP EQU START+/0E PROCEDURE TIMER POINTER + . PDWTRTP EQU START+/10 REQUEST TIMER POINTER + @ 8 PDWTMTP EQU START+/12 MODEM SUPERVISORY TIMER POINTER + r , PDWTITP EQU START+/14 IDLE TIMER POINTER + 8 PDWTCTP EQU START+/16 MODEM CONNECTION TIME
0x17a8d8…17aa6c Dummy {f00=0x0073, f01=0x0190, f02=»COUNTER + l & PDWTLRS EQU START+/1E LAST RESPONSE , $ PDWTCNT EQU START+/20 ACK COUNTER , : & PDWTDLE EQU START+/22 DLE INDICATOR , b 4 PDWTCMP EQU START+/24 SPACE COMPRESSION WORK AREA , P IFT CPU852=0 , 6 PDWTSAV EQU START+/26 SAVE AREA FOR REGISTERS A
0x17aa6c…17ac00 Dummy {f00=0x0073, f01=0x0190, f02=» REGISTERS A3-A5,A7,A8 , n 4 PDWTSTB EQU START+/46 STACK BASE (6 LEVELS STACK) - P XIF - V P EJECT - b P* - p < P******************************************************* - z < P******************************************************* - P* - P* -
0x17ac00…17ad94 (1, 323) Opaque[0x194]
0x17ad94…17af28 # DirEnt {nam=»DRDC81«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e68, f03=0x0000}
0x17ad94…17af28 IdxSect {
0x17ad94…17af28 f00 = 0x0073 // 0x17ad94 @0x0
0x17ad94…17af28 f01 = 0x0040 // 0x17ad96 @0x2
0x17ad94…17af28 gno = [ // 0x17ad98 @0x4
0x17ad94…17af28 [0x00]: C0x0073.0x1.0
0x17ad94…17af28 [0x01]: C0x0073.0x2.0
0x17ad94…17af28 [0x02]: C0x0073.0x3.0
0x17ad94…17af28 [0x03]: C0x0074.0x0.0
0x17ad94…17af28 [0x04]: C0x0074.0x1.0
0x17ad94…17af28 [0x05]: C0x0074.0x2.0
0x17ad94…17af28 [0x06]: C0x0074.0x3.0
0x17ad94…17af28 [0x07]: C0x0075.0x0.0
0x17ad94…17af28 [0x08]: C0x0075.0x1.0
0x17ad94…17af28 [0x09]: C0x0075.0x2.0
0x17ad94…17af28 [0x0a]: C0x0075.0x3.0
0x17ad94…17af28 [0x0b]: C0x0076.0x0.0
0x17ad94…17af28 [0x0c]: C0x0076.0x1.0
0x17ad94…17af28 [0x0d]: C0x0076.0x2.0
0x17ad94…17af28 [0x0e]: C0x0076.0x3.0
0x17ad94…17af28 [0x0f]: C0x0077.0x0.0
0x17ad94…17af28 [0x10]: C0x0077.0x1.0
0x17ad94…17af28 [0x11]: C0x0077.0x2.0
0x17ad94…17af28 [0x12]: C0x0077.0x3.0
0x17ad94…17af28 [0x13]: C0x0078.0x0.0
0x17ad94…17af28 [0x14]: C0x0078.0x1.0
0x17ad94…17af28 [0x15]: C0x0078.0x2.0
0x17ad94…17af28 [0x16]: C0x0078.0x3.0
0x17ad94…17af28 [0x17]: C0x0079.0x0.0
0x17ad94…17af28 [0x18]: C0x0079.0x1.0
0x17ad94…17af28 [0x19]: C0x0079.0x2.0
0x17ad94…17af28 [0x1a]: C0x0079.0x3.0
0x17ad94…17af28 [0x1b]: C0x007a.0x0.0
0x17ad94…17af28 [0x1c]: C0x007a.0x1.0
0x17ad94…17af28 [0x1d]: C0x007a.0x2.0
0x17ad94…17af28 [0x1e]: C0x007a.0x3.0
0x17ad94…17af28 [0x1f]: C0x007b.0x0.0
0x17ad94…17af28 ]
0x17ad94…17af28 }
0x17af28…17b0bc Dummy {f00=0x0073, f01=0x0190, f02=» 2 P IDENT DRDC81 REL 11.0 81-01-26 870105041100 P : " P =4, ERROR IN ABORT ROUTINE B P PRR 10.0 80-02-15 h & P =3, ABORT ROUTINE FOR REL 11.0 P PRR 10.0 80-02-15 P =2, DC:MIN HEADER P REL 10.1 80-01-08 P =1,
0x17b0bc…17b250 Dummy {f00=0x0073, f01=0x0190, f02=»6800 CONCENTRATOR v P* . P* DRDC81 = BSC MASTER DATA COMMUNICATION $ P* V P* ` P* j P* t P* ~ P* P* < P******************************************************* P* 0 P* THIS DRIVER PERFORMS DATA COMM
0x17b250…17b3e4 Dummy {f00=0x0073, f01=0x0190, f02=»* LINE PROCEDURE: BSC MASTER FOR MULTIPOINT DATA LINK P* @ < P******************************************************* J P* $ P* STANDARD USE OF REGISTERS : P* P* A1 WORK REGISTER " P* A2 I/O AND WORK REGISTER
0x17b3e4…17b578 Dummy {f00=0x0073, f01=0x0190, f02=»PUT DWT ADDRESS P* A8 ECB ADDRESS P* 4 < P******************************************************* > P EJECT ~ P* < P******************************************************* P* P* ENTRY POINTS P* < P********
0x17b578…17b70c Dummy {f00=0x0073, f01=0x0190, f02=»LERS , INPUT AND OUTPUT t P ENTRY IH8103 P P ENTRY IH8105,IH8107,IH8109,IH8111,IH8113,IH8115,IH8117,IH8119,IH8121,IH8123 6 P ENTRY IH8123 P ENTRY IH8102,IH8104 P P ENTRY IH8106,IH8108,IH8110,IH8112,IH8114,IH8116,IH8118,IH8120,IH8122,IH8124
0x17b70c…17b8a0 Dummy {f00=0x0073, f01=0x0190, f02=»114,DW8116,DW8118 P ENTRY DW8120,DW8122,DW8124 , P ENTRY DW8101,DW8103,DW8105 INPUT DWT:S > P ENTRY DW8107,DW8109,DW8111 n P ENTRY DW8113,DW8115,DW8117 P ENTRY DW8119,DW8121,DW8123 P EJECT P* < P**********************
0x17b8a0…17ba34 (1, 324) Dummy {f00=0x0073, f01=0x0190, f02=»*********** d P* " P EXTRN TDISP DISPATCHER ENTRY $ P EXTRN TENDIO REQUEST COMPLETION D , P EXTRN DISEND THE ENTIES ABOVE TOGETHER l P EXTRN DISIOE REQUEST ERROR ( P EXTRN SETIME SET TIMER CALL ADDRESS P EXTRN SETIMP P EXTRN
0x17ba34…17bbc8 Dummy {f00=0x0073, f01=0x0190, f02=»XTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH ( P EXTRN ECBRC ECB RETURN CODE R " P EXTRN ECBCW ECB CONTROL WORD v P EXTRN ILLINT P EXTRN INTSAV . P EXTRN PFPOST WAIT FOR POWER UP IF SET =1 P EJECT P
0x17bbc8…17bd5c Dummy {f00=0x0073, f01=0x0190, f02=» * P************************** P* 6 P* @ P* J P* T " P* CONDITIONAL ASSEMBLYy ^ " P***************************** P* P* P* P* PX:A EQU 1 . P* X:A = NUMBER OF LINES HANDLED BY D
0x17bd5c…17bef0 Dummy {f00=0x0073, f01=0x0190, f02=» $ PPLTLEN EQU X:B POLL LIST LENGTH P* , P* 6 PX:C EQU 350 @ P* X:C = MAX BLOCKLENGTH T 4 PMAXTBL EQU X:C MAX LENGTH OF TRANSMISSION BLOCK t P* P* PX:D EQU 400 PLOGG EQU X:D @ P* IF X:D IS UNEQUAL TO ZERO, THE
0x17bef0…17c084 Dummy {f00=0x0073, f01=0x0190, f02=»RY r 6 PRTYSYS EQU X:E RETRY LIMIT FOR RECOVERY ( SYSGEN ) P* D PX:F EQU 0 N P* ` 0 PSALCUZ EQU X:F IF =X:F DC CONTROL UNIT 6834 j " P =1 DC CONTROL UNIT 6857 P* P IFF SALCUZ=1 P* P* P* PX:G EQ
0x17c084…17c218 Dummy {f00=0x0073, f01=0x0190, f02=»E 02 l P* P* PX:I EQU /5 , P* X:I = INPUT DEVICE ADDRESS FOR LINE 03 2 P* b P* l PX:J EQU /6 v , P* X:J = INPUT DEVICE ADDRESS FOR LINE 04 P* P* PX:K EQU /7 , P* X:K = INPUT DEVICE ADDRESS FOR LINE 05
0x17c218…17c3ac Dummy {f00=0x0073, f01=0x0190, f02=»X:M = INPUT DEVICE ADDRESS FOR LINE 07 P* . P* 8 PX:N EQU /23 B , P* X:N = INPUT DEVICE ADDRESS FOR LINE 08 V P* P* PX:O EQU /24 , P* X:O = INPUT DEVICE ADDRESS FOR LINE 09 P* P* PX:P EQU /25 , P*
0x17c3ac…17c540 Dummy {f00=0x0073, f01=0x0190, f02=» P* PX:R EQU /27 , P* X:R = INPUT DEVICE ADDRESS FOR LINE 12 & P* V P* ` P* j P XIF t P IFT SALCUZ=1 P* P* P* PX:G EQU /0A , P* X:G = INPUT DEVICE ADDRESS FOR LINE 01 P* P*
0x17c540…17c6d4 (1, 325) Dummy {f00=0x0073, f01=0x0190, f02=» P* P* PX:S EQU 1000 MMU-BUFFER SIZE P* X:S = BUFFER SIZE IN WORDS @ PTBUFL EQU X:S d P* z P* PMMUPAG EQU 0 , P* IF MMUPAG = 1 MMU-PAGING IS INCLUDED P* PCPU852 EQU 1 * P IF CPU852=1 NO MULT
0x17c6d4…17c868 Dummy {f00=0x0073, f01=0x0190, f02=»+TBUFL MMU BUFFER SIZE P EJECT P* , < P******************************************************* 6 P* v P* SYSTEM PARAMETERS P* < P******************************************************* P* PLINE01 EQU PLTLEN
0x17c868…17c9fc Dummy {f00=0x0073, f01=0x0190, f02=»07 EQU PLTLEN PLINE08 EQU PLTLEN PLINE09 EQU PLTLEN 0 PLINE10 EQU PLTLEN J PLINE11 EQU PLTLEN d PLINE12 EQU PLTLEN ~ 0 PTIMRE4 EQU 2 RECEIVE TIMEOUT 4-WIRE (200MS) & PTIMMRY EQU 5 MODEM READY TIME OUT " PTIMACT EQU 150 ACT
0x17c9fc…17cb90 Dummy {f00=0x0073, f01=0x0190, f02=» AT STATUS POLL HALTED v & PBSYTIM EQU 50 TIME OUT FOR TC BUSY " PTIMENQ EQU 40 TIME OUT FOR ENQ H PBDA EQU 0 n B P* IF BDA = 1, TC ADDRESSES ARE ADAPTED FOR THE BANKDATA CASE: " P* INPUT = /41 -/4F (A - O) L P* OUTPUT = ADDRESSES ACCO
0x17cb90…17cd24 Dummy {f00=0x0073, f01=0x0190, f02=»DED, SAVING h H P* LINE NUMBER, ORDER, RETURN CODE AND TID FOR THE 100 LAST REQUESTS. P EJECT ` P* n P* x P* CONSTANTS P* P* PBIT0 EQU /8000 PBIT1 EQU /4000 PBIT2 EQU /2000 PBIT3 EQU /1000 PBIT4 E
0x17cd24…17ceb8 Dummy {f00=0x0073, f01=0x0190, f02=» PBIT11 EQU /10 PBIT12 EQU 8 PBIT13 EQU 4 2 PBIT14 EQU 2 F PBIT15 EQU 1 Z P EJECT n > P********************************************************* | P* 4 P* APPLICATION INTERFACE : ORDERS AND RETURNCODES P* >
0x17ceb8…17d04c Dummy {f00=0x0073, f01=0x0190, f02=»- READ P* /06 - WRITE P* /22 - OPEN LINE $ P* /24 - CLOSE LINE > P* /26 - HALT POLLING X P* /27 - START POLLING t P* /37 - OPEN TC P* /38 - CLOSE TC P EJECT P* P* RETURN CODES: P* 4 P* STATUS WOR
0x17d04c…17d1e0 Dummy {f00=0x0073, f01=0x0190, f02=»=0 | P* 4 PMODNOP EQU BIT15 MODEM NOT OPERABLE, ALL ORDERS , PNORESP EQU BIT14 NO RESPONSE, ORDER /00 L < PTCINPL EQU BIT14 TC ALLREADY IN POLLING LIST, ORDER /37 | : PPOLPER EQU BIT14 POLLING ALLREADY PERMITTED, ORDER /27 0 PCODERR EQU BIT
0x17d1e0…17d374 (1, 326) Dummy {f00=0x0074, f01=0x0190, f02=»/37 b ( PTCBUSY EQU BIT10 TC BUS , ORDER /06 2 PRETRAN EQU BIT7 RETRANSMISSION, ORDER /02, /06 8 0 PCALIND EQU BIT6 CALLING INDICATOR, NOT USED n 6 PLINSTE EQU BIT4+BIT0 LINE OPEN/CLOSED, ALL ORDERS 2 PPOLHLT EQU BIT4+BIT0 POLLING HALTED, ORDER/0
0x17d374…17d508 Dummy {f00=0x0074, f01=0x0190, f02=» LIST, ORDER /06, /38 r 0 PINVTCA EQU BIT0 INVALID TCA, ORDER /02, /37 P EJECT R P* ` < P******************************************************* j P* P* DEVICE WORK AREA EQUATES P* < P****************************************
0x17d508…17d69c Dummy {f00=0x0074, f01=0x018e, f02=» IFF MMUPAG=0 6 PDWTDRD EQU /14 START OF DRIVER DEFINED PART OF DWT P XIF P P* * PDWTTP EQU DWTDRD+/00 DWT TIMER POINTER f 0 PDWTATP EQU DWTDRD+/02 ACTIVITY TIMER POINTER " PSTB EQU DWTDRD+/0E STACK BASE ( PDWTSAV EQU DWTDRD+/10 DWT
0x17d69c…17d830 Dummy {f00=0x0074, f01=0x0190, f02=» , PDWTST1 EQU DWTDRD+/1C CU 6857 STATUS IND & P O/P : =0 O/P NOT ACT >0 O/P ACT 4 & P I/P : =0 I/P NOT ACT >0 I/P ACT ^ , PDWTRTY EQU DWTDRD+/1E DWT RETRY COUNTER * PDWTBCC EQU DWTDRD+/20 DWT BCC COUNTER * PDWTACK EQU DWTDRD+/22 DWT ACK COUN
0x17d830…17d9c4 Dummy {f00=0x0074, f01=0x018e, f02=» POLLIST ADDRESS IN OUTPUT DWT | $ PTPCONT EQU /14 TP ERROR COUNTER & . PSYNCON EQU DWTATP SYN COUNTER (DWTATP,A7) N P EJECT P* P* P* & P* CONDITIONAL ASSEMBLY PARAMETERS P* P IFF LINE01=0 PMLIN01 EQU 1 AT LE
0x17d9c4…17db58 Dummy {f00=0x0074, f01=0x0190, f02=» P IFF HILINO=3 " PMLIN04 EQU 1 AT LEAST 4 LINES P IFF HILINO=4 @ PMLIN05 EQU 1 AT LEAST 5LINES V P IFF HILINO=5 z " PMLIN06 EQU 1 AT LEAST 6 LINES P IFF HILINO=6 " PMLIN07 EQU 1 AT LEAST 7 LINES P IFF HILINO=7 " P
0x17db58…17dcec Dummy {f00=0x0074, f01=0x0190, f02=»LEAST 10 LINES P IFF HILINO=10 " PMLIN11 EQU 1 AT LEAST 11 LINES , P IFF HILINO=11 R PMLIN12 EQU 1 12 LINES h P XIF P IFF HILINO=12 PMLIN12 EQU 0 LESS THAN 12 P IFF HILINO=11 PMLIN11 EQU 0 LESS THAN 11 P IFF H
0x17dcec…17de80 Dummy {f00=0x0074, f01=0x018e, f02=»QU 0 LESS THAN 8 P IFF HILINO=7 PMLIN07 EQU 9 LESS THAN 7 . P IFF HILINO=6 N PMLIN06 EQU 0 LESS THAN 6 d P IFF HILINO=5 PMLIN05 EQU 0 LESS THAN 5 P IFF HILINO=4 PMLIN04 EQU 0 LESS THAN 4 P IFF HILINO=3 PML
0x17de80…17e014 (1, 327) Dummy {f00=0x0074, f01=0x018e, f02=» P XIF P EJECT P* < P******************************************************* ( P* h P* DWT STATUS WORD CONTENTS r P* < P******************************************************* P* ( P* DWTST BIT #00 : 0 = DEVICE B
0x17e014…17e1a8 Dummy {f00=0x0074, f01=0x0190, f02=» d 2 P* 1 = HALT POLLING INITIATED ( P* BIT #15 : 0 = LINE CLOSED > & P* 1 = LINE OPEN j P* < P******************************************************* P* $ P* CHLC RECEIVER STATUS CONTENTS
0x17e1a8…17e33c Dummy {f00=0x0074, f01=0x0190, f02=»TED d $ P* : /01 = MODEM NOT READY & P* : /02 = THROUGHPUT ERROR 4 * P* : /20 = CARRIER NOT DETECTED ^ & P* : /40 = CALLING INDICATOR P* < P******************************************************* P EJECT
0x17e33c…17e4d0 Dummy {f00=0x0074, f01=0x0190, f02=» < P******************************************************* ! P* ! D PSYN EQU /16 ! N PPAD EQU /7F TRAILING PAD ! b PDLE EQU /10 DATA LINK ESCAPE ! $ PEOT EQU /04 END OF TRANSMISSION ! PENQ EQU /85 ENQUIRY ! PSTX EQU /02 START OF TEXT !
0x17e4d0…17e664 Dummy {f00=0x0074, f01=0x0190, f02=»ITH PARITY ! ~ ( PNAK EQU /15 NEGATIVE ACKNOWLEDGEMENT " PGP EQU /22 GENERAL POLL " > $ PPAR:0 EQU /B0 ZERO (ODD PARITY) " ^ 6 PSEMIKO EQU /3B SECOND CHARACTER IN WACK, AFTER DLE " P EJECT " P* " F P************************************************
0x17e664…17e7f8 Dummy {f00=0x0074, f01=0x0190, f02=»********************************************* " | P* # 6 P IFT SALCUZ=1 # @ PCBNPAR EQU /0 NO PARITY # V " PCBEPAR EQU /4 EVEN CHAR PARITY # v " PCBOPAR EQU /C ODD CHAR PARITY # * PPARITY EQU CBNPAR ODD PARITY FOR ASCII # P XIF # P IFF SALCU
0x17e7f8…17e98c Dummy {f00=0x0074, f01=0x0190, f02=» /1 CIO DISCONNECT MODEM FROM LINE # PCBSTOP EQU /0 CIO STOP CU $ * P XIF $ L P* $ Z P* $ d P* $ n P* $ x . PSBNOOP EQU /1 SST STAUS MODEM NOT OPERABEL $ $ PSBTHRU EQU /02 THROUGHPUT ERROR $ " PSBPARI EQU /04 CHAR PAR ERROR $ PSBCARR
0x17e98c…17eb20 Dummy {f00=0x0074, f01=0x018e, f02=»R,SBCALL $ | P EJECT % P* % < P******************************************************* % ( P* % h " P* CHLC DEVICE ADDRESS EQUATES % r P* % < P******************************************************* % P* % PDAMI01 EQU X:G INPUT CHLC 1
0x17eb20…17ecb4 (1, 328) Dummy {f00=0x0074, f01=0x0190, f02=» PDAMI06 EQU X:L & PDAMI07 EQU X:M & PDAMI08 EQU X:N & 0 PDAMI09 EQU X:O & F PDAMI10 EQU X:P & PDAMI11 EQU X:Q & r PDAMI12 EQU X:R & ( PDAMU01 EQU DAMI01+/10 OUTPUT CHLC 1 & PDAMU02 EQU DAMI02+/10 & PDAMU03 EQU DAMI03+/10 & PDA
0x17ecb4…17ee48 Dummy {f00=0x0074, f01=0x018e, f02=»/10 & ~ PDAMU09 EQU DAMI09+/10 ' PDAMU10 EQU DAMI10+/10 ' * PDAMU11 EQU DAMI11+/10 ' H PDAMU12 EQU DAMI12+/10 ' f P* ' P XIF ' P* ' P* ' P* ' P IFT SALCUZ=1 ' P* ' & PDAMU01 EQU DAMI01+1 OUTPUT CHLC 1 ' PDAMU02
0x17ee48…17efdc Dummy {f00=0x0074, f01=0x0190, f02=» $ PDWMTAB DATA DWMTE-* TABLE LENGTH ( ( P DATA DW8101 DWT FOR INPUT ON LINE 1 ( , 6 P DATA DW8102 DWT FOR OUTPUT AND CONTROL ON LINE 1 ( X P IFF HILINO=1 ( P DATA DW8104,DW8103 ( P IFF HILINO=2 ( P DATA DW8106,DW8105 ( P IFF HILINO=3 (
0x17efdc…17f170 Dummy {f00=0x0074, f01=0x0190, f02=» HILINO=6 ( P DATA DW8114,DW8113 ) P IFF HILINO=7 ) . P DATA DW8116,DW8115 ) D P IFF HILINO=8 ) ` P DATA DW8118,DW8117 ) v P IFF HILINO=9 ) P DATA DW8120,DW8119 ) P IFF HILINO=10 ) P DATA DW8122,DW8121 ) P IFF HILINO=11 )
0x17f170…17f304 Dummy {f00=0x0074, f01=0x0190, f02=»*********** ) ~ " P* * * P* DEVICE WORK TABLES * * : " P* * * X " P***************************** * ~ P* * P IFF LINE01=0 * P* * P* * 8 P* DEVICE WORK TABLE FOR LINE 01, OUTPUT AND CONT
0x17f304…17f498 Dummy {f00=0x0074, f01=0x0190, f02=»ICE READY * l P DATA 0 ECB ADDRESS + P DATA 0 ORDER + . * P DATA DRMUAD POINTER TO ADDRESS BLOCK + D P DATA 0 TTAB ADDRESS + r $ P DATA 0 WAIT/ACTIVATE INDICATOR + & P DATA 0 TASK QUEUE FOR THIS DEVICE + P IFT MMUPAG=1 + P DATA 0 ADDRESS OF
0x17f498…17f62c Dummy {f00=0x0074, f01=0x0190, f02=»VITY TIMER POINTER + & P DATA 0,0,0,0,0,0 SUBROUTINE STACK , P RES 3 SAVE AREA FOR A3-A5 , D $ P DATA DW8102 OUTPUT DWT ADDRESS , f " P DATA DW8101 INPUT DWT ADDRESS , P DATA 0 SAVE AREA FOR A8 , P DATA 0 CU 6857 I/O IND , P DATA 0 RETRY COUNTE
0x17f62c…17f7c0 Dummy {f00=0x0074, f01=0x018e, f02=»INE01 LENGTH OF POLLIST , P RES LINE01 POLLIST - P DATA /FFFF - < P* - P P IFT MMUPAG=1 - Z , PMECB02 DATA 0,DCBF02,0,0,0,0 DRIVER ECB - p ( PDCBF02 RES TBUFL+1 OUTPUT MMU-BUFFER - P XIF - P IFT MLIN01=1 - P EJECT - P* - P*
0x17f7c0…17f954 (1, 329) Dummy {f00=0x0074, f01=0x0190, f02=» - r 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY . P DATA 0 ECB ADDRESS . > P DATA 0 ORDER . Z * P DATA DRMIAD POINTER TO ADDRESS BLOCK . p P DATA 0 TTAB ADDRESS . $ P DATA 0 WAIT/ACTIVATE INDICATOR . & P DATA 0 TASK QUEUE FOR THIS DEVICE .
0x17f954…17fae8 Dummy {f00=0x0074, f01=0x018e, f02=»TIMER POINTER . " P DATA 0 ACTIVITY TIMER POINTER / & P DATA 0,0,0,0,0,0 SUBROUTINE STACK / < P RES 3 SAVE AREA FOR A3-A5 / f $ P DATA DW8102 OUTPUT DWT ADDRESS / " P DATA DW8101 INPUT DWT ADDRESS / P DATA 0 SAVE AREA FOR A8 / P DATA 0 CU 6857 I/
0x17fae8…17fc7c Dummy {f00=0x0074, f01=0x0190, f02=» / P IFT MLIN02=1 0 P EJECT 0 P* 0 , P* 0 6 8 P* DEVICE WORK TABLE FOR LINE 02, OUTPUT AND CONTROL 0 @ P* 0 | P* 0 PDW8104 EQU * TABLE ENTRY 0 P DATA DAMU02 DEVICE ADDRESS 0 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY 0
0x17fc7c…17fe10 Dummy {f00=0x0074, f01=0x0190, f02=»IT/ACTIVATE INDICATOR 0 & P DATA 0 TASK QUEUE FOR THIS DEVICE 1 P IFT MMUPAG=1 1 H P DATA 0 ADDRESS OF USER ECB 1 ^ P DATA MECB04 DRIVER ECB 1 P XIF 1 P IFT MLIN02=1 1 P DATA 0 TIMER POINTER 1 " P DATA 0 ACTIVITY TIMER POINTER 1 & P
0x17fe10…17ffa4 Dummy {f00=0x0074, f01=0x0190, f02=»WT ADDRESS 1 | P DATA 0 SAVE AREA FOR A8 2 P DATA 0 CU 6857 I/O IND 2 2 P DATA 0 RETRY COUNTER 2 R P DATA 0 BCC COUNTER 2 p P DATA 0 ACK COUNTER 2 P DATA 0 PACT 2 P DATA 0 PINACT 2 P DATA LINE02+LINE02 2 P RES LINE02 2 P DATA
0x17ffa4…180138 Dummy {f00=0x0074, f01=0x0190, f02=» P IFT MLIN02=1 3 P* 3 P EJECT 3 $ P* 3 2 P* 3 < * P* DEVICE WORK TABLE FOR LINE 02, INPUT 3 F P* 3 t P* 3 ~ PDW8103 EQU * TABLE ENTRY 3 P DATA DAMI02 DEVICE ADDRESS 3 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY 3 P DATA
0x180138…1802cc Dummy {f00=0x0074, f01=0x0190, f02=»ATE INDICATOR 3 ~ & P DATA 0 TASK QUEUE FOR THIS DEVICE 4 P IFT MMUPAG=1 4 @ P DATA 0 ADDRESS OF USER ECB 4 V P DATA MECB03 DRIVER ECB 4 z P XIF 4 P IFT MLIN02=1 4 P DATA 0 TIMER POINTER 4 " P DATA 0 ACTIVITY TIMER POINTER 4 & P DATA 0,
0x1802cc…180460 Dummy {f00=0x0074, f01=0x018e, f02=»SS 4 t P DATA 0 SAVE AREA FOR A8 5 P DATA 0 CU 6857 I/O IND 5 * P IFT MMUPAG=1 5 J , PMECB03 DATA 0,DCBF03,0,0,0,0 DRIVER ECB 5 ` & PDCBF03 RES TBUFL+1 INPUT MMUBUFFER 5 P XIF 5 P IFT MLIN03=1 5 P EJECT 5 P* 5 P* 5 8 P* DEVICE W
0x180460…1805f4 (1, 330) Dummy {f00=0x0075, f01=0x0190, f02=» 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY 6 P DATA 0 ECB ADDRESS 6 : P DATA 0 ORDER 6 V * P DATA DRMUAD POINTER TO ADDRESS BLOCK 6 l P DATA 0 TTAB ADDRESS 6 $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 & P DATA 0 TASK QUEUE FOR THIS DEVICE 6 P
0x1805f4…180788 Dummy {f00=0x0075, f01=0x018e, f02=»0 ACTIVITY TIMER POINTER 6 & P DATA 0,0,0,0,0,0 SUBROUTINE STACK 7 P RES 3 SAVE AREA FOR A3-A5 7 J $ P DATA DW8106 OUTPUT DWT ADDRESS 7 l " P DATA DW8105 INPUT DWT ADDRESS 7 P DATA 0 SAVE AREA FOR A8 7 P DATA 0 CU 6857 I/O IND 7 P DATA 0 RETRY
0x180788…18091c Dummy {f00=0x0075, f01=0x0190, f02=» 7 z P RES LINE03 8 P DATA /FFFF 8 P IFT MMUPAG=1 8 0 , PMECB06 DATA 0,DCBF06,0,0,0,0 DRIVER ECB 8 F ( PDCBF06 RES TBUFL+1 OUTPUT MMU BUFFER 8 v P XIF 8 P IFT MLIN03=1 8 P* 8 P EJECT 8 P* 8 P* 8 * P* DEVICE WORK TABLE FOR
0x18091c…180ab0 Dummy {f00=0x0075, f01=0x0190, f02=» MEANS DEVICE READY 8 v P DATA 0 ECB ADDRESS 9 P DATA 0 ORDER 9 8 * P DATA DRMIAD POINTER TO ADDRESS BLOCK 9 N P DATA 0 TTAB ADDRESS 9 | $ P DATA 0 WAIT/ACTIVATE INDICATOR 9 & P DATA 0 TASK QUEUE FOR THIS DEVICE 9 P IFT MMUPAG=1 9 P DATA 0
0x180ab0…180c44 Dummy {f00=0x0075, f01=0x0190, f02=»OINTER 9 x & P DATA 0,0,0,0,0,0 SUBROUTINE STACK : P RES 3 SAVE AREA FOR A3-A5 : 8 $ P DATA DW8106 OUTPUT DWT ADDRESS : Z " P DATA DW8105 INPUT DWT ADDRESS : P DATA 0 SAVE AREA FOR A8 : P DATA 0 CU 6857 I/O IND : P IFT MMUPAG=1 : , PMECB05 DAT
0x180c44…180dd8 Dummy {f00=0x0075, f01=0x0190, f02=»VICE WORK TABLE FOR LINE 04, OUTPUT AND CONTROL : P* ; 8 P* ; B PDW8108 EQU * TABLE ENTRY ; L P DATA DAMU04 DEVICE ADDRESS ; l 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY ; P DATA 0 ECB ADDRESS ; P DATA 0 ORDER ; * P DATA DRMUAD POI
0x180dd8…180f6c Dummy {f00=0x0075, f01=0x0190, f02=» P IFT MMUPAG=1 < P DATA 0 ADDRESS OF USER ECB < P DATA MECB08 DRIVER ECB < > P XIF < ^ P IFT MLIN04=1 < j P DATA 0 TIMER POINTER < " P DATA 0 ACTIVITY TIMER POINTER < & P DATA 0,0,0,0,0,0 SUBROUTINE STACK < P RES 3 SAVE AREA FOR A3-A5
0x180f6c…181100 Dummy {f00=0x0075, f01=0x018e, f02=»O IND < ~ P DATA 0 RETRY COUNTER = P DATA 0 BCC COUNTER = , P DATA 0 ACK COUNTER = H P DATA 0 PACT = d P DATA 0 PINACT = x P DATA LINE04+LINE04 = P RES LINE04 = P DATA /FFFF = P IFT MMUPAG=1 = , PMECB08 DATA 0,DCBF08,0,0,0,0 DRI
0x181100…181294 (1, 331) Dummy {f00=0x0075, f01=0x0190, f02=» * P* DEVICE WORK TABLE FOR LINE 04, INPUT > P* > 2 P* > < PDW8107 EQU * TABLE ENTRY > F P DATA DAMI04 DEVICE ADDRESS > f 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY > P DATA 0 ECB ADDRESS > P DATA 0 ORDER > * P DATA DRMIAD POINTER T
0x181294…181428 Dummy {f00=0x0075, f01=0x0190, f02=»FT MMUPAG=1 > P DATA 0 USER BUFFER ? P DATA MECB07 DRIVER ECB ? 0 P XIF ? P P IFT MLIN04=1 ? P DATA 0 TIMER POINTER ? r " P DATA 0 ACTIVITY TIMER POINTER ? & P DATA 0,0,0,0,0,0 SUBROUTINE STACK ? P RES 3 SAVE AREA FOR A3-A5 ? $ P DATA
0x181428…1815bc Dummy {f00=0x0075, f01=0x0190, f02=»MECB07 DATA 0,DCBF07,0,0,0,0 DRIVER ECB ? ( PDCBF07 RES TBUFL+1 MMU BUFFER INPUT @ 0 P XIF @ P IFT MLIN05=1 @ h P EJECT @ ~ P* @ P* @ 8 P* DEVICE WORK TABLE FOR LINE 05, OUTPUT AND CONTROL @ P* @ P* @ PDW8110 EQU * TABLE ENTRY
0x1815bc…181750 Dummy {f00=0x0075, f01=0x0190, f02=»DER @ * P DATA DRMUAD POINTER TO ADDRESS BLOCK A P DATA 0 TTAB ADDRESS A : $ P DATA 0 WAIT/ACTIVATE INDICATOR A V & P DATA 0 TASK QUEUE FOR THIS DEVICE A ~ P IFT MMUPAG=1 A P DATA 0 USER ECB A P DATA MECB10 DRIVER ECB A P XIF A P IFT M
0x181750…1818e4 Dummy {f00=0x0075, f01=0x0190, f02=»E AREA FOR A3-A5 A $ P DATA DW8110 OUTPUT DWT ADDRESS B " P DATA DW8109 INPUT DWT ADDRESS B @ P DATA 0 SAVE AREA FOR A8 B f P DATA 0 CU 6857 I/O IND B P DATA 0 RETRY COUNTER B P DATA 0 BCC COUNTER B P DATA 0 ACK COUNTER B P DATA 0 PACT
0x1818e4…181a78 Dummy {f00=0x0075, f01=0x0190, f02=»BF10,0,0,0,0 DRIVER ECB B ( PDCBF10 RES TBUFL+1 MMUBUFFER OUTPUT C P XIF C L P IFT MLIN05=1 C X P* C n P EJECT C x P* C P* C * P* DEVICE WORK TABLE FOR LINE 05, INPUT C P* C P* C PDW8109 EQU * TABLE ENTRY C P DATA DAMI05
0x181a78…181c0c Dummy {f00=0x0075, f01=0x0190, f02=»MIAD POINTER TO ADDRESS BLOCK C P DATA 0 TTAB ADDRESS D & $ P DATA 0 WAIT/ACTIVATE INDICATOR D B & P DATA 0 TASK QUEUE FOR THIS DEVICE D j P IFT MMUPAG=1 D P DATA 0 USER ECB D P DATA MECB09 DRIVER ECB D P XIF D P IFT MLIN05=1 D P DAT
0x181c0c…181da0 Dummy {f00=0x0075, f01=0x0190, f02=» $ P DATA DW8110 OUTPUT DWT ADDRESS E " P DATA DW8109 INPUT DWT ADDRESS E , P DATA 0 SAVE AREA FOR A8 E R P DATA 0 CU 6857 I/O IND E r P IFT MMUPAG=1 E , PMECB09 DATA 0,DCBF09,0,0,0,0 DRIVER ECB E ( PDCBF09 RES TBUFL+1 MMU BUFFER INPUT E P XIF
0x181da0…181f34 (1, 332) Dummy {f00=0x0075, f01=0x0190, f02=» E PDW8112 EQU * TABLE ENTRY F P DATA DAMU06 DEVICE ADDRESS F ( 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY F L P DATA 0 ECB ADDRESS F P DATA 0 ORDER F * P DATA DRMUAD POINTER TO ADDRESS BLOCK F P DATA 0 TTAB ADDRESS F $ P DATA 0 WA
0x181f34…1820c8 Dummy {f00=0x0075, f01=0x0190, f02=»R ECB F ~ P XIF G P IFT MLIN06=1 G P DATA 0 TIMER POINTER G 0 " P DATA 0 ACTIVITY TIMER POINTER G N & P DATA 0,0,0,0,0,0 SUBROUTINE STACK G t P RES 3 SAVE AREA FOR A3-A5 G $ P DATA DW8112 OUTPUT DWT ADDRESS G " P DATA DW8111 INPUT DWT ADDRESS G
0x1820c8…18225c Dummy {f00=0x0075, f01=0x0190, f02=»ACK COUNTER G P DATA 0 PACT H P DATA 0 PINACT H ( P DATA LINE06+LINE06 H > P RES LINE06 H Z P DATA /FFFF H n , PMECB12 DATA 00,DCBF12,0,0,0,0 DRIVER ECB H PDCBF12 RES TBUFL+1 H P XIF H P IFT MLIN06=1 H P* H P EJECT H P*
0x18225c…1823f0 Dummy {f00=0x0075, f01=0x0190, f02=»ADDRESS H | 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY I P DATA 0 ECB ADDRESS I F P DATA 0 ORDER I b * P DATA DRMIAD POINTER TO ADDRESS BLOCK I x P DATA 0 TTAB ADDRESS I $ P DATA 0 WAIT/ACTIVATE INDICATOR I & P DATA 0 TASK QUEUE FOR THIS DE
0x1823f0…182584 Dummy {f00=0x0075, f01=0x0190, f02=»R POINTER I " P DATA 0 ACTIVITY TIMER POINTER J & P DATA 0,0,0,0,0,0 SUBROUTINE STACK J 8 P RES 3 SAVE AREA FOR A3-A5 J b $ P DATA DW8112 OUTPUT DWT ADDRESS J " P DATA DW8111 INPUT DWT ADDRESS J P DATA 0 SAVE AREA FOR A8 J P DATA 0 CU 6857 I/O IN
0x182584…182718 Dummy {f00=0x0075, f01=0x0190, f02=» IFT MLIN07=1 J P EJECT K P* K $ P* K . 8 P* DEVICE WORK TABLE FOR LINE 07, OUTPUT AND CONTROL K 8 P* K t P* K ~ PDW8114 EQU * TABLE ENTRY K P DATA DAMU07 DEVICE ADDRESS K 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY K P DATA
0x182718…1828ac Dummy {f00=0x0075, f01=0x0190, f02=»ATE INDICATOR K ~ & P DATA 0 TASK QUEUE FOR THIS DEVICE L P IFT MMUPAG=1 L @ P DATA 0 USERECB L V P DATA MECB14 DRIVER ECB L n P XIF L P IFT MLIN07=1 L P DATA 0 TIMER POINTER L " P DATA 0 ACTIVITY TIMER POINTER L & P DATA 0,0,0,0,0,0
0x1828ac…182a40 Dummy {f00=0x0075, f01=0x0190, f02=» DATA 0 SAVE AREA FOR A8 L P DATA 0 CU 6857 I/O IND M P DATA 0 RETRY COUNTER M @ P DATA 0 BCC COUNTER M ^ P DATA 0 ACK COUNTER M z P DATA 0 PACT M P DATA 0 PINACT M P DATA LINE07+LINE07 M P RES LINE07 M P DATA /FFFF M P IFT
0x182a40…182bd4 (1, 333) Dummy {f00=0x0075, f01=0x0190, f02=» EJECT M P* N P* N * P* DEVICE WORK TABLE FOR LINE 07, INPUT N " P* N P P* N Z PDW8113 EQU * TABLE ENTRY N d P DATA DAMI07 DEVICE ADDRESS N 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY N P DATA 0 ECB ADDRESS N P DATA 0 ORDER
0x182bd4…182d68 Dummy {f00=0x0075, f01=0x0190, f02=»UEUE FOR THIS DEVICE N P IFT MMUPAG=1 O P DATA 0 USER ECB O 2 P DATA MECB13 DRIVER ECB O J P XIF O j P IFT MLIN07=1 O v P DATA 0 TIMER POINTER O " P DATA 0 ACTIVITY TIMER POINTER O & P DATA 0,0,0,0,0,0 SUBROUTINE STACK O P RES 3 SAVE AR
0x182d68…182efc Dummy {f00=0x0075, f01=0x0190, f02=»0 CU 6857 I/O IND O P IFT MMUPAG=1 P , PMECB13 DATA 0,DCBF13,0,0,0,0 DRIVER ECB P 0 ( PDCBF13 RES TBUFL+1 MMU BUFFER INPUT P ` P XIF P P IFT MLIN08=1 P P EJECT P P* P P* P 8 P* DEVICE WORK TABLE FOR LINE 08, OUTPUT AND CONTROL P
0x182efc…183090 Dummy {f00=0x0075, f01=0x0190, f02=»Y P d P DATA 0 ECB ADDRESS Q P DATA 0 ORDER Q & * P DATA DRMUAD POINTER TO ADDRESS BLOCK Q < P DATA 0 TTAB ADDRESS Q j $ P DATA 0 WAIT/ACTIVATE INDICATOR Q & P DATA 0 TASK QUEUE FOR THIS DEVICE Q P IFT MMUPAG=1 Q P DATA 0 USER ECB Q P D
0x183090…183224 Dummy {f00=0x0075, f01=0x0190, f02=»A 0,0,0,0,0,0 SUBROUTINE STACK Q P RES 3 SAVE AREA FOR A3-A5 R & $ P DATA DW8116 OUTPUT DWT ADDRESS R H " P DATA DW8115 INPUT DWT ADDRESS R p P DATA 0 SAVE AREA FOR A8 R P DATA 0 CU 6857 I/O IND R P DATA 0 RETRY COUNTER R P DATA 0 BCC COUNTER
0x183224…1833b8 Dummy {f00=0x0075, f01=0x0190, f02=»F R P IFT MMUPAG=1 S , PMECB16 DATA 0,DCBF16,0,0,0,0 DRIVER ECB S ( PDCBF16 RES TBUFL+1 MMU OUTPUT BUFFER S P P XIF S | P IFT MLIN08=1 S P* S P EJECT S P* S P* S * P* DEVICE WORK TABLE FOR LINE 08, INPUT S P* S P* S
0x1833b8…18354c Dummy {f00=0x0075, f01=0x0190, f02=»B ADDRESS S P DATA 0 ORDER T * P DATA DRMIAD POINTER TO ADDRESS BLOCK T ( P DATA 0 TTAB ADDRESS T V $ P DATA 0 WAIT/ACTIVATE INDICATOR T r & P DATA 0 TASK QUEUE FOR THIS DEVICE T P IFT MMUPAG=1 T P DATA 0 USER ECB T P DATA MECB15 DRIVER EC
0x18354c…1836e0 Dummy {f00=0x0075, f01=0x0190, f02=»TINE STACK T x P RES 3 SAVE AREA FOR A3-A5 U $ P DATA DW8116 OUTPUT DWT ADDRESS U 4 " P DATA DW8115 INPUT DWT ADDRESS U P DATA 0 SAVE AREA FOR A8 U P DATA 0 CU 6857 I/O IND U P IFT MMUPAG=1 U , PMECB15 DATA 0,DCBF15,0,0,0,0 DRIVER ECB U ( P
0x1836e0…183874 (1, 334) Dummy {f00=0x0076, f01=0x018e, f02=»LINE 09, OUTPUT AND CONTROL U x P* V $ P* V . PDW8118 EQU * TABLE ENTRY V 8 P DATA DAMU09 DEVICE ADDRESS V X 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY V | P DATA 0 ECB ADDRESS V P DATA 0 ORDER V * P DATA DRMUAD POINTER TO ADDRESS BLOC
0x183874…183a08 Dummy {f00=0x0076, f01=0x0190, f02=» V P DATA 0 USER ECB W P DATA MECB18 DRIVER ECB W P XIF W @ P IFT MLIN09=1 W L P DATA 0 TIMER POINTER W b " P DATA 0 ACTIVITY TIMER POINTER W & P DATA 0,0,0,0,0,0 SUBROUTINE STACK W P RES 3 SAVE AREA FOR A3-A5 W $ P DATA DW8118 OUTPUT DW
0x183a08…183b9c Dummy {f00=0x0076, f01=0x0190, f02=»UNTER W P DATA 0 BCC COUNTER X P DATA 0 ACK COUNTER X * P DATA 0 PACT X F P DATA 0 PINACT X Z P DATA LINE09+LINE09 X p P RES LINE09 X P DATA /FFFF X P IFT MMUPAG=1 X , PMECB18 DATA 0,DCBF18,0,0,0,0 DRIVER ECB X ( PDCBF18 RES TBU
0x183b9c…183d30 Dummy {f00=0x0076, f01=0x0190, f02=» 09, INPUT X t P* Y P* Y PDW8117 EQU * TABLE ENTRY Y & P DATA DAMI09 DEVICE ADDRESS Y F 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY Y j P DATA 0 ECB ADDRESS Y P DATA 0 ORDER Y * P DATA DRMIAD POINTER TO ADDRESS BLOCK Y P DATA 0
0x183d30…183ec4 Dummy {f00=0x0076, f01=0x0190, f02=» ECB Y P DATA MECB17 DRIVER ECB Z P XIF Z , P IFT MLIN09=1 Z 8 P DATA 0 TIMER POINTER Z N " P DATA 0 ACTIVITY TIMER POINTER Z l & P DATA 0,0,0,0,0,0 SUBROUTINE STACK Z P RES 3 SAVE AREA FOR A3-A5 Z $ P DATA DW8118 OUTPUT DWT ADDRESS Z " P D
0x183ec4…184058 Dummy {f00=0x0076, f01=0x0190, f02=»DCBF17,0,0,0,0 DRIVER ECB Z ( PDCBF17 RES TBUFL+1 MMU BUFFER INPUT [ " P XIF [ N P IFT MLIN10=1 [ Z P EJECT [ p P* [ ~ P* [ 8 P* DEVICE WORK TABLE FOR LINE 10, OUTPUT AND CONTROL [ P* [ P* [ PDW8120 EQU * TABLE ENTRY [ P DATA
0x184058…1841ec Dummy {f00=0x0076, f01=0x0190, f02=»ATA DRMUAD POINTER TO ADDRESS BLOCK [ P DATA 0 TTAB ADDRESS , $ P DATA 0 WAIT/ACTIVATE INDICATOR H & P DATA 0 TASK QUEUE FOR THIS DEVICE p P IFT MMUPAG=1 P DATA 0 USER ECB P DATA MECB20 DRIVER ECB P XIF P IFT MLIN10=1
0x1841ec…184380 Dummy {f00=0x0076, f01=0x0190, f02=»A5 x $ P DATA DW8120 OUTPUT DWT ADDRESS ] " P DATA DW8119 INPUT DWT ADDRESS ] 2 P DATA 0 SAVE AREA FOR A8 ] X P DATA 0 CU 6857 I/O IND ] x P DATA 0 RETRY COUNTER ] P DATA 0 BCC COUNTER ] P DATA 0 ACK COUNTER ] P DATA 0 PACT ] P DATA
0x184380…184514 (1, 335) Dummy {f00=0x0076, f01=0x0190, f02=»RIVER ECB ] r ( PDCBF20 RES TBUFL+1 MMUBUFFER OUTPUT ^ P XIF ^ > P IFT MLIN10=1 ^ J P* ^ ` P EJECT ^ j P* ^ x P* ^ * P* DEVICE WORK TABLE FOR LINE 10, INPUT ^ P* ^ P* ^ PDW8119 EQU * TABLE ENTRY ^ P DATA DAMI10 DEVICE ADDRES
0x184514…1846a8 Dummy {f00=0x0076, f01=0x0190, f02=»O ADDRESS BLOCK ^ z P DATA 0 TTAB ADDRESS _ $ P DATA 0 WAIT/ACTIVATE INDICATOR _ 4 & P DATA 0 TASK QUEUE FOR THIS DEVICE _ P IFT MMUPAG=1 _ P DATA 0 USER ECB _ P DATA MECB19 DRIVER ECB _ P XIF _ P IFT MLIN10=1 _ P DATA 0 TIMER POIN
0x1846a8…18483c Dummy {f00=0x0076, f01=0x0190, f02=»20 OUTPUT DWT ADDRESS _ " P DATA DW8119 INPUT DWT ADDRESS ` P DATA 0 SAVE AREA FOR A8 ` D P DATA 0 CU 6857 I/O IND ` d P IFT MMUPAG=1 ` , PMECB19 DATA 0,DCBF19,0,0,0,0 DRIVER ECB ` ( PDCBF19 RES TBUFL+1 MMU BUFFER INPUT ` P XIF ` P IFT M
0x18483c…1849d0 Dummy {f00=0x0076, f01=0x0190, f02=» EQU * TABLE ENTRY ` P DATA DAMU11 DEVICE ADDRESS a 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY a > P DATA 0 ECB ADDRESS a t P DATA 0 ORDER a * P DATA DRMUAD POINTER TO ADDRESS BLOCK a P DATA 0 TTAB ADDRESS a $ P DATA 0 WAIT/ACTIVATE IN
0x1849d0…184b64 Dummy {f00=0x0076, f01=0x018e, f02=» XIF a P IFT MLIN11=1 b P DATA 0 TIMER POINTER b " " P DATA 0 ACTIVITY TIMER POINTER b @ & P DATA 0,0,0,0,0,0 SUBROUTINE STACK b f P RES 3 SAVE AREA FOR A3-A5 b $ P DATA DW8122 OUTPUT DWT ADDRESS b " P DATA DW8121 INPUT DWT ADDRESS b P DATA 0
0x184b64…184cf8 Dummy {f00=0x0076, f01=0x0190, f02=» b z P DATA 0 PACT c P DATA 0 PINACT c P DATA LINE11+LINE11 c 2 P RES LINE11 c N P DATA /FFFF c b P IFT MMUPAG=1 c v , PMECB22 DATA 0,DCBF22,0,0,0,0 DRIVER ECB c ( PDCBF22 RES TBUFL+1 MMUBUFFER OUTPUT c P XIF c P IFT MLIN11=1 c
0x184cf8…184e8c Dummy {f00=0x0076, f01=0x0190, f02=» c x P DATA DAMI11 DEVICE ADDRESS d 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY d , P DATA 0 ECB ADDRESS d b P DATA 0 ORDER d ~ * P DATA DRMIAD POINTER TO ADDRESS BLOCK d P DATA 0 TTAB ADDRESS d $ P DATA 0 WAIT/ACTIVATE INDICATOR d & P D
0x184e8c…185020 Dummy {f00=0x0076, f01=0x0190, f02=»LIN11=1 d P DATA 0 TIMER POINTER e " P DATA 0 ACTIVITY TIMER POINTER e . & P DATA 0,0,0,0,0,0 SUBROUTINE STACK e T P RES 3 SAVE AREA FOR A3-A5 e ~ $ P DATA DW8122 OUTPUT DWT ADDRESS e " P DATA DW8121 INPUT DWT ADDRESS e P DATA 0 SAVE AREA FOR A8 e
0x185020…1851b4 (1, 336) Dummy {f00=0x0076, f01=0x0190, f02=»R INPUT e t P XIF f P IFT MLIN12=1 f P EJECT f 2 P* f @ P* f J 8 P* DEVICE WORK TABLE FOR LINE !2, OUTPUT AND CONTROL f T P* f P* f PDW8124 EQU * TABLE ENTRY f P DATA DAMU12 DEVICE ADDRESS f 2 P DATA /8000 STATUS , /8000 MEANS
0x1851b4…185348 Dummy {f00=0x0076, f01=0x0190, f02=»SS f ~ $ P DATA 0 WAIT/ACTIVATE INDICATOR g & P DATA 0 TASK QUEUE FOR THIS DEVICE g 2 P IFT MMUPAG=1 g P DATA 0 USER ECB g r P DATA MECB24 DRIVER ECB g P XIF g P IFT MLIN12=1 g P DATA 0 TIMER POINTER g " P DATA 0 ACTIVITY TIMER POINTER
0x185348…1854dc Dummy {f00=0x0076, f01=0x0190, f02=» INPUT DWT ADDRESS g P DATA 0 SAVE AREA FOR A8 h P DATA 0 CU 6857 I/O IND h : P DATA 0 RETRY COUNTER h Z P DATA 0 BCC COUNTER h x P DATA 0 ACK COUNTER h P DATA 0 PACT h P DATA 0 PINACT h P DATA LINE12+LINE12 h P RES LINE12 h
0x1854dc…185670 Dummy {f00=0x0076, f01=0x0190, f02=» XIF h P IFT MLIN12=1 i P* i " P EJECT i , P* i : P* i D * P* DEVICE WORK TABLE FOR LINE 12, INPUT i N P* i | P* i PDW8123 EQU * TABLE ENTRY i P DATA DAMI12 DEVICE ADDRESS i 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY i
0x185670…185804 Dummy {f00=0x0076, f01=0x018e, f02=»IT/ACTIVATE INDICATOR i & P DATA 0 TASK QUEUE FOR THIS DEVICE j P IFT MMUPAG=1 j H P DATA 0 USER ECB j ^ P DATA MECB23 DRIVER ECB j v P XIF j P IFT MLIN12=1 j P DATA 0 TIMER POINTER j " P DATA 0 ACTIVITY TIMER POINTER j & P DATA 0,0,0,
0x185804…185998 Dummy {f00=0x0076, f01=0x0190, f02=» j p P DATA 0 SAVE AREA FOR A8 k P DATA 0 CU 6857 I/O IND k ( P IFT MMUPAG=1 k H , PMECB23 DATA 0,DCBF23,0,0,0,0 DRIVER ECB k ^ ( PDCBF23 RES TBUFL+1 MMU BUFFER INPUT k P XIF k P XIF k P IFF HILINO=12 k P EJECT k P* k P* k
0x185998…185b2c Dummy {f00=0x0076, f01=0x0190, f02=» IFF HILINO=11 k PDW8121 EQU * l PDW8122 EQU * l * PIH8121 EQU * l > PIH8122 EQU * l R P IFF HILINO=10 l f PDW8119 EQU * l | PDW8120 EQU * l PIH8119 EQU * l PIH8120 EQU * l P IFF HILINO=9 l PDW8117 EQU * l PDW8118 EQU * l
0x185b2c…185cc0 Dummy {f00=0x0076, f01=0x0190, f02=» l P IFF HILINO=7 m PDW8113 EQU * m PDW8114 EQU * m 2 PIH8113 EQU * m F PIH8114 EQU * m Z P IFF HILINO=6 m n PDW8111 EQU * m PDW8112 EQU * m PIH8111 EQU * m PIH8112 EQU * m P IFF HILINO=5 m PDW8109 EQU * m PDW8110 EQU
0x185cc0…185e54 (1, 337) Dummy {f00=0x0076, f01=0x0190, f02=»08 EQU * m P IFF HILINO=3 n PDW8105 EQU * n & PDW8106 EQU * n : PIH8105 EQU * n N PIH8106 EQU * n b P IFF HILINO=2 n v PDW8103 EQU * n PDW8104 EQU * n PIH8103 EQU * n PIH8104 EQU * n P ST P,INTSAV n P ABL ILLINT n P XIF
0x185e54…185fe8 Dummy {f00=0x0076, f01=0x0190, f02=» n P* o < P******************************************************* o P* o R P* o & P* D R I V E R A C T I V A T I O N o f P* o P* o < P******************************************************* o < P************************************
0x185fe8…18617c Dummy {f00=0x0076, f01=0x0190, f02=»*********** o d P* p P* INPUT REQUESTS p P* p 6 < P******************************************************* p @ P* p P* p P* p P* ACTIVATION BLOCK p P* p P DATA BUFLEN p P DATA DEVIND p $ PDRMIAD DATA MIACT DWT REFERENC
0x18617c…186310 Dummy {f00=0x0076, f01=0x0190, f02=»2 p P RF(Z) RD ORDER 01: READ q $ PMIA100 ABL DISIOE ILLEGAL ORDER q * P* q R P* q P* ORDER 02 : READ q f P* q P* q PRD EQU * q P IFT MMUPAG=1 q $ P LD A2,ECBRL,A8 REQUESTED LENGTH q P CWK A2,BUFLEN SIZE OK? q " P ABL(G
0x186310…1864a4 Dummy {f00=0x0076, f01=0x0190, f02=»N q z PRD100 EQU * r * P LDKL A1,LINSTE RC: WRONG LINE STATUS r PRD200 EQU * r L P IFT RQLOGG=1 r ` P CF A15,REQLOG r v P XIF r $ P CF A15,TENDIO COMPLETE REQUEST r PRD300 EQU * r P ABL TDISP GO TO DISPATCHER r PRD400 EQU * r
0x1864a4…186638 Dummy {f00=0x0076, f01=0x0190, f02=»EAD WAIT FOR CALL r P CW A2,/8040 s P RB(NE) RD450 s . P LDKL A1,/200 s D $ P XRS A2,DWTST,A6 RESET WAIT BIT s Z P CF A5,HALTIN s * P LDKL A1,CALIND RC: CALLING INDICATOR s P RB RD200 s P EJECT s < P**********************************
0x186638…1867cc Dummy {f00=0x0076, f01=0x0190, f02=»******* s ` P* t P* t P* t $ P* ACTIVATION BLOCK t . P* t H P DATA BUFLEN t R P DATA DEVIND t f $ PDRMUAD DATA MUACT DWT REFERENCE t z P DATA ABORT ABORT ROUTINE t P DATA 0,0 DC:MIN HEADER =2 t P* t P* t PMUACT EQU * t
0x1867cc…186960 Dummy {f00=0x0076, f01=0x018e, f02=» $ P RF(Z) OLIN ORDER 22, OPEN LINE u P SUK A7,2 u , & P ABL(Z) CLIN ORDER 24, CLOSE LINE u > P SUK A7,2 u h & P ABL(Z) CLIN ORDER 26,HALT POLLING u z P SUK A7,1 u ( P ABL(Z) CLIN ORDER 27, START POLLING u P SUK A7,/37-/27 u " P ABL(Z) OTC OR
0x186960…186af4 (1, 338) Dummy {f00=0x0077, f01=0x018e, f02=» P* v P* ORDER 00 TEST LINE v P* v 2 PTEST EQU * v < P LD A1,DWTST,A6 GET STATUS v N P ANK A1,1 v p " P RB(NZ) RD100 LINE NOT CLOSED v P ABL TST000 v P EJECT v P* v P* v P* CW = 0 : OPEN LINE v P* v P* v
0x186af4…186c88 Dummy {f00=0x0077, f01=0x0190, f02=» v l * P LD A1,PLIST,A6 GET LENGTH OF POLLIST w P LDR A2,A1 w 6 P ADR A1,A6 w H POLI100 EQU * w Z P CM PLIST,A1 DELETE POLLIST w n P SUK A1,2 w P SUK A2,2 w " P RB(NZ) OLI100 NOT END OF LIST w P CM PACT,A6 w P CM PINACT,A6 w P L
0x186c88…186e1c Dummy {f00=0x0077, f01=0x0190, f02=» P DATA OLI110,TIMMRY x P ST A4,DWTTP,A6 x P CF A5,READ x 8 P CM* DWTTP,A6 x L P RF OLI115 x b ( POLI110 EQU * STATUS INT. OR TIME OUT x t P LDR A6,A1 x POLI115 EQU * x P CM DWTTP,A6 x P LDK A5,STB IF TIME OUT x P LD A7,DWTA7,A
0x186e1c…186fb0 Dummy {f00=0x0077, f01=0x0190, f02=»NK A1,1 x ( P RF(NZ) OLI130 RECOVERY AT POWER ON y P LDK A1,1 y < ( P ORS A1,DWTST,A6 INDICATE LINE OPEN y N P ORS A1,DWTST,A7 y z P LDK A1,0 y P IFT RQLOGG=1 y P CF A15,REQLOG y P XIF y $ P CF A15,TENDIO COMPLETE REQUEST y POLI1
0x186fb0…187144 Dummy {f00=0x0077, f01=0x0190, f02=» y | $ P ABL BMM ENTER BASIC MASTER MODE z P* z 0 P* z : P* ACTVITY TIME OUT z D P* z f POLI150 EQU * z p P INH z P LDR A6,A1 z P LD A7,DWTA7,A6 z P LDK A5,STB z P ADR A5,A6 z POLI160 EQU * z P CF A5,DISCON z "
0x187144…1872d8 Dummy {f00=0x0077, f01=0x0190, f02=»REQLOG z P XIF { P CF A15,TENDIO { POLI165 EQU * { 0 P LDR A6,A7 { D P LD A8,DWTECB,A6 { V P RF(Z) OLI170 { n P CM ECBRC,A8 { POLI170 EQU * { P IFT RQLOGG=1 { P CF A15,REQLOG { P XIF { P ABL DISEND { P* { P* {
0x1872d8…18746c Dummy {f00=0x0077, f01=0x0190, f02=» ABL(Z) RD100 LINE ALREADY CLOSED { P | * P ABL TDISP | 2 P EJECT | D P* | R P* | P* ORDER 37 : OPEN TC | f P* | P* | POTC EQU * | P LD A7,DWTA7,A6 | P LD A1,DWTST,A7 GET STATUS | P LDR A2,A1 | P ANK A1,1 | P A
0x18746c…187600 Dummy {f00=0x0077, f01=0x0190, f02=» | $ P RF(N) OTC100 INVALID TC ADDRESS } P SUK A2,/5A-/41 } 0 P ABL(NP) TDISP } H POTC100 EQU * } ^ ( P LDKL A1,INVTCA RC : INVALID ADDRESS } r P RB OLI170 } POTC110 EQU * } * P LDKL A1,CALIND RC: CALLING INDICATOR } P RB OLI170 } P EJE
0x187600…187794 (1, 339) Dummy {f00=0x0077, f01=0x0190, f02=»ESTED LENGTH? } | 2 P CWK A2,BUFLEN GREATER THAN MMU BUFFER LENGTH ~ P RF(G) IL:LEN ILLEGAL LENGTH ~ L P XIF ~ p P LC* A2,ECBBA,A8 TCA ~ | PWRT105 EQU * ~ P LD A1,DWTST,A6 ~ P ANK A1,1 ~ P ABL(Z) RD100 SEQ ERROR ~ P ANK A2,/7F ~ 0
0x187794…187928 Dummy {f00=0x0077, f01=0x0190, f02=»OR,A6 SAVE INDEX IN POLLIST ~ PWRT107 EQU * $ P ABL TDISP 8 PWRT110 EQU * J * P SC A4,DWTOR,A6 SAVE INDEX IN POLLIST ^ P LD A1,DWTOR,A6 P ANK A1,/FF P SUK A1,/38 P RB(Z) WRT107 " P LDK A1,TCINAC RC: TC INACTIVE P
0x187928…187abc Dummy {f00=0x0077, f01=0x0190, f02=»TC NOT IN POLLIST | P RB WRT120 P* , P* 6 P* ORDER 38: CLOSE TC @ P* d PWRT150 EQU * n P LD A2,ECBCW,A8 TCA P RB WRT105 N P************************************************************************** P*
0x187abc…187c50 Dummy {f00=0x0077, f01=0x0190, f02=» " P LDKL A1,INCLEN ILLEGAL LENGTH P ABL DISEND DISPATCHER * P EJECT H N P************************************************************************* V P* P* ABORT ROUTINE P* L P****************************************************
0x187c50…187de4 Dummy {f00=0x0077, f01=0x0190, f02=»,A6 CLEAR TIMER $ P CM DWTTP,A6 CLEAR TIMER POINTER PAB:10 EQU * @ PAB:RTN EQU * T P . =3 h $ P ABL DISEND COMPLETE REQUEST =3 x P EJECT P* < P******************************************************* < P****************
0x187de4…187f78 Dummy {f00=0x0077, f01=0x0190, f02=»***************************************************** < P******************************************************* > P* ~ PDC81ON EQU * P INH P LD A3,DWMTAB TABLE LENGTH PDRM000 EQU * P SUK A3,2 P RF(Z) DRM300 END ODF TA
0x187f78…18810c Dummy {f00=0x0077, f01=0x0190, f02=»,A6 P LDR A2,A1 P LDR* A4,A6 P ANK A2,1 2 P RF(Z) DRM200 LINE CLOSED D P ANK A4,/10 f P RF(NZ) DRM250 OUTPUT DWT z PDRM100 EQU * INPUT DWT P ANKL A1,/8000 P RB(NZ) DRM000 NO REQUEST P LD A8,DWTECB,A6
0x18810c…1882a0 Dummy {f00=0x0077, f01=0x0190, f02=»A15,TENDIO COMPLETE RQUEST , RC = 0 P RB DRM000 , PDRM200 EQU * > P ANK A4,/10 R P RB(Z) DRM000 INPUT DWT f P ANKL A1,/8000 P RB(NZ) DRM000 NO RQUEST P LD A1,DWTOR,A6 GET ORDER P ANK A1,/FF P SUK A1,/22 P R
0x1882a0…188434 (1, 340) Dummy {f00=0x0077, f01=0x0190, f02=»MER n P LDR A1,A6 P CF A15,SETIME P DATA DRM400 4 P DATA TIMMRY H P ST A4,DWTTP,A6 P RB DRM000 t PDRM300 RTN A15 P* P* REOPEN LINE P* PDRM400 EQU * P LDR A6,A1 P LD A7,DWTA7,A6 P CM
0x188434…1885c8 Dummy {f00=0x0077, f01=0x018e, f02=»***************************** v < P******************************************************* & P* f P* p 0 P* P R O C E D U R E C O N T R O L P A R T z P* P* < P******************************************************* < P******
0x1885c8…18875c Dummy {f00=0x0077, f01=0x0190, f02=» P* BMM : BASIC MASTER MODE P* * < P******************************************************* 4 $ PBMM000 EQU * ENTRY AFTER TENDIO t P LDKL A1,TDISP P STR A1,A15 P LDKL A1,/C040 P STR A1,A15 P SUKL A15,16 ( PBMM0
0x18875c…1888f0 Dummy {f00=0x0077, f01=0x0190, f02=»A1,DWTST,A6 GET OUTPUT STATUS , P RF(NN) OUTPUT OUTPUT OR CONTROL REQUEST & PBMM100 EQU * V $ P LD A1,DWTST,A7 GET INPUT STATUS j P ABL(NN) POLL READ REQUEST 2 PBMM200 EQU * ENTRY AFTER ACTIVITY WITHOUT I/O P CF A5,STOUT P LDK A2,PA
0x1888f0…188a84 Dummy {f00=0x0077, f01=0x0190, f02=» P* POUTPUT EQU * P CF A5,HALTUT & $ P LD A8,DWTECB,A6 GET ECB ADDRESS < . P ST A8,DWTA8,A6 LOAD A8 INTERUPT REGISTERS d P ST A8,DWTA8,A7 P LD A1,DWTOR,A6 GET ORDER P ANK A1,/FF P SUK A1,6 $ P ABL(Z) SELECT ORD
0x188a84…188c18 Dummy {f00=0x0077, f01=0x0190, f02=»POLLING r P SUK A1,1 * P RF(Z) OUT350 ORDER 27: START POLLING " P SUK A1,/10 P $ P RF(Z) OUT100 ORDER 37 : OPEN TC d P* P* P* ORDER 38 : CLOSE TC P* P* ( P LC A3,DWTOR,A6 GET INDEX IN POLLIST P ANK A3,/F
0x188c18…188dac Dummy {f00=0x0077, f01=0x0190, f02=»R 37 : OPEN TC P* P* POUT100 EQU * * P LD A2,ECBCW,A8 GET TCA > . P CF A15,FINDTC CHECK IF IT'S ALREADY THERE ^ P RF(P) OUT105 TCA NOT FOUND " P RF OUT300 TC ALLREADY IN LIST POUT105 EQU * P LDK A2,0 4 P CF A15,
0x188dac…188f40 Dummy {f00=0x0077, f01=0x0190, f02=»OUT310 COMPLETE REQUEST POUT110 EQU * * P SC A4,DWTOR,A6 SAVE INDEX IN POLLIST 4 P LD A1,ECBCW,A8 GET TCA b " P ORKL A1,/8000 SET TC INACTIVE ( P STR A1,A3 INSERT TCA IN POLLINGLIST P ANK A1,/7F P LDKL A2,RTYLIM ( P ST A2,D
0x188f40…1890d4 (1, 341) Dummy {f00=0x0077, f01=0x0190, f02=»=1 P CF A5,SELADR P XIF POUT120 EQU * , P LDK A4,/20 STA @ & P CF A5,SEPOSE SEND SELECT SEQUENCE X 6 P CF A5,READTO WAIT FOR REPLY WITH TIME SUPERVISION P LDR A2,A2 P RF(N) OUT130 POUT125 EQU * P CF A5,READP
0x1890d4…189268 Dummy {f00=0x0077, f01=0x0190, f02=»D A3,ECBCW,A8 P ANK A3,/7F ( P LC A2,DWTOR,A6 GET INDEX IN POLLIST * P ANK A2,/FF V P ADR A2,A6 j P ADK A2,PLIST | P STR A3,A2 SET TC ACTIVE P LD A1,PACT,A6 $ P RF(NZ) OUT300 NOT FIRST IN LIST P ST A2,PACT,A6 P R
0x189268…1893fc Dummy {f00=0x0077, f01=0x0190, f02=»YET REACHED, TRY AGAIN x P LD A1,PINACT,A6 $ P RF(NZ) OUT150 NOT FIRST IN LIST 6 ( P LC A2,DWTOR,A6 GET INDEX IN POLLIST ^ P ANK A2,/FF P ADR A2,A6 P ADK A2,PLIST P ST A2,PINACT,A6 POUT150 EQU * 0 P LDK A1,TCINAC SET RET
0x1893fc…189590 Dummy {f00=0x0077, f01=0x0190, f02=» POUT200 EQU * P LDK A1,2 P ORS A1,DWTST,A7 NO POLLING . " P LDKL A1,POLHLT RC:POLL HALTED R P LDR A6,A7 x P IFT RQLOGG=1 P CF A15,REQLOG P XIF " P LDK A1,COMPLT RC = COMPLETED P CF A15,TENDIO P LD A6,DWT
0x189590…189724 Dummy {f00=0x0077, f01=0x0190, f02=» P XIF $ P CF A15,TENDIO COMPLETE REQUEST P ABL BMM000 < P* P P* Z POUT350 EQU * START POLLING d P LD A1,DWTST,A7 P ANK A1,2 , P RB(Z) OUT300 POLLING ALLREADY PERMITTED P XRS A1,DWTST,A7 P RB OUT300
0x189724…1898b8 Dummy {f00=0x0077, f01=0x0190, f02=»NECT MODEM | " P LDK A1,COMPLT STATUS COMPLETE P IFT RQLOGG=1 8 P CF A15,REQLOG N P XIF d P CF A15,TENDIO p P LDKL A1,LINSTE P LDR A6,A7 P IFT RQLOGG=1 P CF A15,REQLOG P XIF P ABL DISEND P EJECT
0x1898b8…189a4c Dummy {f00=0x0077, f01=0x0190, f02=»************************* r P* " P* , 2 P* P R O C E D U R E T R A N S F E R P A R T 6 P* l P* v < P******************************************************* < P******************************************************* P*
0x189a4c…189be0 Dummy {f00=0x0077, f01=0x0190, f02=» HALTED P CF A5,HALTUT P LDR A1,A7 & P CF A15,SETIME 8 P DATA POLL10,DELAY N P ST A4,DWTTP,A7 h P ABL READ10 . PPOLL10 EQU * COMPLETE READREQ AFTER DELAY P LDR A7,A1 RELOAD A7 P LD A6,DWTA6,A7 RELOAD A6 P CM
0x189be0…189d74 (1, 342) Dummy {f00=0x0078, f01=0x0190, f02=» P RF POL225 PPOL100 EQU * P LD A8,DWTECB,A7 * P ST A8,DWTA8,A6 B P ST A8,DWTA8,A7 Z P CM ECBRC,A8 r P CM ECBEL,A8 P LD A1,PACT,A6 ( P RF(Z) POL130 NO ACTIVE TCA PRESENT PPOL110 EQU * P ADK A1,2 P LDR*
0x189d74…189f08 Dummy {f00=0x0078, f01=0x0190, f02=»IVE TCA | P LDK A1,PLIST END OF POLLIST P ADR A1,A6 4 P ST A1,PACT,A6 UPDATE 'PACT' F PPOL130 EQU * j P LD A1,PINACT,A6 ~ * P ABL(Z) BMM200 NO INACTIVE TC PRESENT PPOL132 EQU * P ADK A1,2 NEXT POS IN LIST P CW A1,PINACT,
0x189f08…18a09c Dummy {f00=0x0078, f01=0x0190, f02=»NACTIVE TC FOUND & P LDK A1,PLIST END OF LIST REACHED P ADR A1,A6 B P RB POL132 T PPOL134 EQU * f P LDR* A3,A1 z $ P RF(N) POL140 INACTIVE TC FOUND ( P CM PINACT,A6 NO INACTIVE TC IN LIST P ABL BMM200 PPOL138 EQU *
0x18a09c…18a230 Dummy {f00=0x0078, f01=0x0190, f02=» l ( P LDKL A2,-1 NO RECOVERY BY REOPENING P RF POL200 4 PPOL150 EQU * F P ST A1,PACT,A6 UPPDATE PACT Z P LDK A1,0 ~ & P SC A1,DWTOR,A7 INDICATE ACTIVE TC P LDKL A2,RTYLIM " PPOL200 EQU * INITIATE POLLING ( P ST A2,DWTRTY,A6
0x18a230…18a3c4 Dummy {f00=0x0078, f01=0x0190, f02=»C A3,POLTAB,A3 P XIF P LDK A4,GP LOAD GP " PPOL210 EQU * < $ P CF A5,SEPOSE SEND POLL SEQUENCE P PPOL212 EQU * x P CF A5,READTO WAIT FOR REPLY P LDR A2,A2 P RF(NN) POL230 PPOL215 EQU * P CF A5,HALTIN P ANK A
0x18a3c4…18a558 Dummy {f00=0x0078, f01=0x0190, f02=»QU * P CF A5,WREOT P LD A1,DWTOR,A7 ( P ABL(N) BMM010 TC ALLREADY INACTIVE 8 P LC* A3,ECBBA,A8 d P ANK A3,/7F | " P ORKL A3,/8000 SET TC INACTIVE P ST* A3,PACT,A6 P LD A2,PINACT,A6 P RF(NZ) POL224 P LD A1,PACT,
0x18a558…18a6ec Dummy {f00=0x0078, f01=0x0190, f02=» P IFT RQLOGG=1 P CF A15,REQLOG P XIF 4 P CF A15,TENDIO END READ REQ @ P LD A6,DWTA6,A7 RESTORE A6 d P ABL BMM000 PPOL230 EQU * P CWK A2,STX P RF(E) MIP STX RECEIVED P CWK A2,EOT P RF(E) POL240
0x18a6ec…18a880 Dummy {f00=0x0078, f01=0x0190, f02=»,DWTOR,A7 $ P ABL(NN) BMM010 TC NOT INACTIVE PPOL245 EQU * : P LC* A3,ECBBA,A8 N P ANK A3,/7F MASK TCA f $ P ST* A3,PINACT,A6 SET TC ACTIVE P LD A3,PACT,A6 P RF(NZ) POL250 P LD A1,PINACT,A6 P ST A1,PACT,A6 PPOL2
0x18a880…18aa14 (1, 343) Dummy {f00=0x0078, f01=0x0190, f02=» P* PMIP EQU * P LDKL A1,RTYLIM $ ( P ST A1,DWTRTY,A6 RESET RETRY COUNTER < PMIP050 EQU * h P LDK A4,2 BUFFER POINTER | $ P CM DWTACK,A6 RESET ACK COUNTER $ P CM DWTBCC,A6 RESET BCC COUNTER P CF A5,READP READ TCA $
0x18aa14…18aba8 Dummy {f00=0x0078, f01=0x0190, f02=» PMIP100 EQU * $ P CF A5,READP READ NEXT CHARACTER P RF(N) MIP130 SST D P RF(NZ) MIP110 PARITY ERROR ^ P CWK A2,SYN P RB(E) MIP100 SKIP SYN $ P XRS A2,DWTBCC,A6 CALCULATE BCC P CWK A2,ETB P RF(E) MIP210 ETB RECEIV
0x18aba8…18ad3c Dummy {f00=0x0078, f01=0x018e, f02=» PMIP105 EQU * P CW A4,ECBRL,A8 P RB(NG) MIP100 4 P CF A5,READ J P RF(N) MIP130 ^ P XRS A2,DWTBCC,A6 t P CWK A2,ETX P RF(E) MIP220 . PMIP110 EQU * PARITY ERROR, BUFFER OVERFLOW 4 P CF A5,READP WAIT FOR END OF T
0x18ad3c…18aed0 Dummy {f00=0x0078, f01=0x0190, f02=» $ P RB(NE) MIP110 NOT END OF BLOCK PMIP120 EQU * , P CF A5,READ READ BCC @ PMIP130 EQU * & P LDK A3,0 INDICATE BLOCK RECOVERY p PMIP135 EQU * P CF A5,HALTIN P IM DWTRTY,A6 ( P RF(NL) MIP200 RETRY LIMIT OVERFLOW P C
0x18aed0…18b064 Dummy {f00=0x0078, f01=0x0190, f02=»S WAIT FOR REPLY P CWK A2,STX P RF(E) MIP160 , P CWK A2,ENQ B P RB(E) MIP135 V PMIP145 EQU * l P CWK A2,EOT P ABL(E) POL240 EOT RECEIVED P LDR A2,A2 P RF(N) MIP155 TIME OUT PMIP150 EQU * P CF A5,READP
0x18b064…18b1f8 Dummy {f00=0x0078, f01=0x0190, f02=»ALTIN P ANK A1,1 P ABL(NZ) OLI160 P IM DWTRTY,A6 8 ( P RF(NL) MIP200 RETRY LIMIT OVERFLOW N P CF A5,WRENQ SEND ENQ z P RB MIP140 PMIP160 EQU * P LDR A3,A3 & P RB(NZ) MIP105 RECEIVE NEXT BLOCK P SUKL A4,MAXTB
0x18b1f8…18b38c Dummy {f00=0x0078, f01=0x0190, f02=»1,1 P SUKL A4,MAXTBL P RB(NN) MIP165 $ P LDK A4,1 : PMIP170 EQU * L P ADKL A4,MAXTBL ` P SUK A1,1 x P RB(P) MIP170 P CM DWTBCC,A6 P RB MIP100 PMIP200 EQU * P CF A5,WREOT SEND EOT P CM ECBRC,A8
0x18b38c…18b520 Dummy {f00=0x0078, f01=0x0190, f02=»EADP READ BCC P RB(NZ) MIP130 PARITY ERROR P CW A2,DWTBCC,A6 : P RB(NE) MIP130 BCC ERROR R P CM DWTBCC,A6 r P CF A5,HALTIN HALT INPUT P CF A5,WRACK SEND ACK 0/1 P LDKL A1,RTYLIM ( P ST A1,DWTRTY,A6 RESET RETRY COUNTER
0x18b520…18b6b4 (1, 344) Dummy {f00=0x0078, f01=0x0190, f02=»A5,HALTIN P LDK A1,1 P XRS A1,DWTACK,A6 $ P IM DWTRTY,A6 > P RB(NL) MIP200 T P CF A5,WRACK j P RB MIP215 ~ PMIP220 EQU * P CF A5,READP READ BCC P RB(NZ) MIP130 PARITY ERROR P CW A2,DWTBCC,A6 P RB(NE) MI
0x18b6b4…18b848 Dummy {f00=0x0078, f01=0x0190, f02=»A5,REDLTS WAIT FOR EOT OR ENQ P CF A5,HALTIN & P LDR A2,A2 < & P RF(N) MIP230 TIMEOUT HAS OCCURRED N P CWK A2,ENQ x P RF(NE) MIP240 $ P LDK A1,1 ENQ HAS BEEN RECEIVED * P XRS A1,DWTACK,A6 INCREASE ACK COUNTER P LDKL A2,RETRAN
0x18b848…18b9dc Dummy {f00=0x0078, f01=0x0190, f02=» REPEAT LAST ACK PMIP230 EQU * P CF A5,HALTIN , P CF A5,WREOT SEND EOT B PMIP240 EQU * ` P LDK A1,0 t P LD A2,DWTOR,A7 $ P ABL(NN) POL225 TC NOT INACTIVE P ABL POL245 SET TC ACTIVE PMIP260 EQU * BUFFER OVERFLOw
0x18b9dc…18bb70 Dummy {f00=0x0078, f01=0x0190, f02=»NSFER MESSAGE TO TC P* P* & PSELECT EQU * 0 P LD A1,DWTST,A6 D P ANK A1,4 P RF(NZ) SEL160 TC BUSY n P LDKL A1,RTYLIM ( P ST A1,DWTRTY,A6 RESET RETRY COUNTER PSEL100 EQU * & P LD A4,ECBBA,A8 GET BUFFER ADDRESS
0x18bb70…18bd04 Dummy {f00=0x0078, f01=0x0190, f02=» P LC A4,2,A4 GET STA P ANK A4,/FF $ & P CF A5,SEPOSE SEND SELECTSEQUENCE 8 P CF A5,READTO WAIT FOR REPLY b P LDR A2,A2 P RF(NN) SEL120 P CF A5,HALTIN P ANK A1,1 P ABL(NZ) OLI160 MOD NOT OP PSEL110 EQU *
0x18bd04…18be98 Dummy {f00=0x0078, f01=0x0190, f02=»M ECBRC,A8 " P LDK A1,TCINAC RC: TV INACTIVE P IFT RQLOGG=1 8 P CF A15,REQLOG N P XIF d * P CF A15,TENDIO COMPLETE WRITE REQUEST p P LC* A3,ECBBA,A8 P ANK A3,/7F ( P LC A2,DWTOR,A6 GET INDEX IN POLLIST P ANK A2,/FF
0x18be98…18c02c Dummy {f00=0x0078, f01=0x0190, f02=»0 NOT 1:ST INACTIVE TC P ST A2,PINACT,A6 P ABL BMM000 6 PSEL120 EQU * J P CWK A2,DLE ^ P RB(NE) SEL110 INVALID REPLY r " P CF A5,READ GET NEXT CHARACTER P CF A5,HALTIN P CWK A2,PAR:0 P RF(E) MUT ACK 0 RECEIVED
0x18c02c…18c1c0 Dummy {f00=0x0078, f01=0x0190, f02=» ALLREADY STARTED p P LDR A1,A6 P CF A15,SETIME , P DATA SEL150,BSYTIM B P ST A4,DWTTP,A6 ^ P ABL BMM100 v " PSEL150 EQU * TC BUSY TIME OUT P LDR A6,A1 P LDK A5,STB P ADR A5,A6 P LD A7,DWTA7,A6 $ P CM DWTT
0x18c1c0…18c354 (1, 345) Dummy {f00=0x0078, f01=0x0190, f02=»ETE REQUEST, TC BUSY ~ P LDK A1,4 " P XRS A1,DWTST,A6 RESET STATUS . P LDKL A1,TCBUSY RC: TC BUSY T P IFT RQLOGG=1 x P CF A15,REQLOG P XIF * P CF A15,TENDIO COMPLETE WRITE REQUEST P CF A5,WREOT SEND EOT P ABL BMM000
0x18c354…18c4e8 Dummy {f00=0x0078, f01=0x0190, f02=»F(Z) MUT000 P CM* DWTTP,A6 P CM DWTTP,A6 * PMUT000 EQU * > $ P CM DWTACK,A6 RESET ACK COUNTER R P LDK A3,3 BUFFER INDEX z P ST A3,ECBEL,A8 P AD A3,ECBBA,A8 PMUT100 EQU * P LDKL A1,RTYLIM ( P ST A1,DWTRTY,A6 RES
0x18c4e8…18c67c Dummy {f00=0x0078, f01=0x0190, f02=» LDK A2,STX P CF A5,WRITE SEND STX & P LDK A4,0 RESET CHARACTER COUNTER 2 PMUT120 EQU * P LD A1,ECBEL,A8 p P CW A1,ECBRL,A8 ( P RF(E) MUT150 END OF MESSAGE REACHED P CWK A4,MAXTBL 4 P RF(E) MUT140 END OF TRANSMISSION BLOC
0x18c67c…18c810 Dummy {f00=0x0078, f01=0x0190, f02=»WK A2,ETX P RF(E) MUT135 P CWK A2,ETB ( P RF(E) MUT135 < PMUT130 EQU * R ( P XRS A2,DWTBCC,A6 UPDATE BCC COUNTER f $ P CF A5,WRITEP SEND ONE CHARACTER P RB MUT120 PMUT135 EQU * ( P LDK A1,CODERR RC: CODE CHECK ERROR
0x18c810…18c9a4 Dummy {f00=0x0078, f01=0x0190, f02=»MUT160 PMUT150 EQU * P LDK A2,ETXP " PMUT160 EQU * 6 P XRS A2,DWTBCC,A6 UPDATE BCC J P CF A5,WRITE SEND ETB / ETX n P LD A2,DWTBCC,A6 P CF A5,WRITEP SEND BCC P LDK A2,PAD P CF A5,WRITE SEND PAD P LDK A1,1
0x18c9a4…18cb38 Dummy {f00=0x0078, f01=0x0190, f02=» t P LDR A2,A2 P RF(NN) MUT190 * PMUT180 EQU * TIME OUT, UNDEFINED REPLY 0 P CF A5,HALTIN ^ P LDKL A1,RETRAN t 0 P ORS A1,ECBRC,A8 PRELOAD RC: RETRANSMISSION P IM DWTRTY,A6 ( P ABL(NL) SEL115 RETRY LIMIT OVERFLOW P CF A5
0x18cb38…18cccc Dummy {f00=0x0078, f01=0x0190, f02=» CF A5,HALTIN HALT INPUT P CWK A2,SEMIKO P RF(E) MUT250 WACK 6 P LD A1,DWTACK,A6 P P RF(Z) MUT210 h P CWK A2,'1' ~ P RB(NE) MUT180 & PMUT200 EQU * CORRECT ACKK RECEIVED P LD A1,ECBEL,A8 P CW A1,ECBRL,A8 & P RB(NE
0x18cccc…18ce60 Dummy {f00=0x0078, f01=0x0190, f02=» P CF A15,REQLOG P XIF * P CF A15,TENDIO COMPLETE WRITE REQUEST * P ABL BMM000 X PMUT210 EQU * l P CWK A2,PAR:0 P RB(E) MUT200 ACK 0 RECEIVED P RB MUT180 PMUT220 EQU * P CF A5,HALTIN P CWK A2,NAK
0x18ce60…18cff4 (1, 346) Dummy {f00=0x0079, f01=0x0190, f02=»1,1 P XRS A1,DWTACK,A6 P NGR A4,A4 & P ADR A3,A4 8 P ADS A4,ECBEL,A8 J P LDKL A1,RETRAN b P ORS A1,ECBRC,A8 z P ABL MUT110 PMUT230 EQU * P CWK A2,ENQ P RB(E) MUT225 ENQ RECEIVED P RB MUT180 PMUT250
0x18cff4…18d188 Dummy {f00=0x0079, f01=0x0190, f02=»TC BUSY P EJECT P* P* ( , P* SEPOSE : SEND POLL OR SELECT SEQUENCE 2 P* b $ P* ON ENTRY A3 CONTAINS TCA (S/P) l $ P* A4 CONTAINS STA / GP P* P* 0 PSEPOSE CF A5,WRSYN START OUTPUT AND SEND SYN P LDK
0x18d188…18d31c Dummy {f00=0x0079, f01=0x0190, f02=» P CF A5,WRITEP SEND TCA (P/S) P LDR A2,A3 , P CF A5,WRITEP > P LDR A2,A4 T P CF A5,WRITEP SEND STA / GP f P LDR A2,A4 P CF A5,WRITEP P LDK A2,ENQ P CF A5,WRITE SEND ENQ P LDK A2,PAD P CF A5,WRITE
0x18d31c…18d4b0 Dummy {f00=0x0079, f01=0x0190, f02=» P* P* 0 P* CINIT : INITIALIZE LINE CONTROL UNIT INFO P* P PCINIT EQU * Z ( P CM DWTST1,A6 CLEAR I/O ACTIVE IND. n ( P ADKL A15,4 INCREMENT STACK POINTER P ABR* A15 RETURN TO CALLER P XIF P EJECT P*
0x18d4b0…18d644 Dummy {f00=0x0079, f01=0x0190, f02=»SY10 EQU * . P LDKL A2,NUMSYN NUMBER OF SYNC CHARACTERS P ST A2,SYNCON,A7 D PWRSY20 EQU * P LDK A2,SYN p P CF A5,WRITE P IM SYNCON,A7 P RB(NZ) WRSY20 P RTN A5 P EJECT P* P* P* WREOT : SEND SIN
0x18d644…18d7d8 Dummy {f00=0x0079, f01=0x018e, f02=»END EOT PWRE10 EQU * P LDK A2,PAD $ P CF A5,WRITE SEND PAD 8 P LDK A2,PAD V P CF A5,WRITE j " P CF A5,HALTUT TERMINATE OUTPUT ~ P RTN A5 P* P* P* WRENQ : SEND SINGLE ENQ P* P* PWRENQ EQU
0x18d7d8…18d96c Dummy {f00=0x0079, f01=0x018e, f02=» P* P* P* WRNAK : SEND SINGLE NAK P* : P* D PWRNAK EQU * N * P CF A5,WRSYN START OUTPUT AND SEND SYN b P LDK A2,NAK P CF A5,WRITE SEND NAK P RB WRE10 P* P* " P* WRACK : SEND ACK-0 OR ACK-1
0x18d96c…18db00 Dummy {f00=0x0079, f01=0x0190, f02=» x P LDK A2,1 * P XRS A2,DWTACK,A6 INCREASE ACK COUNTER P LD A2,DWTACK,A6 H P RF(NZ) WRA10 ` P LDK A2,PAR:0 v P RF WRA20 PWRA10 EQU * P LDK A2,'1' PWRA20 EQU * P CF A5,WRITE SEND '0' OR '1' P RB WRE10
0x18db00…18dc94 (1, 347) Dummy {f00=0x0079, f01=0x0190, f02=»FPOST =1 ( P ABL(NZ) TDISP WAIT FOR POWER UP =1 P IFF SALCUZ=1 > P LDR* A1,A7 T P ADR* A1,P h P CIO A2,1,0 z P LDKL A2,/100+SYN P EXR A1 . P ABL(NA) SST055 HW NOT PRESENT OR ERRONEUS P RTN A5 P XIF P I
0x18dc94…18de28 Dummy {f00=0x0079, f01=0x0190, f02=»EXECUTE START COM. * P ABL(NA) SST055 HW NOT PRESENT OR ERR. P LDK A2,SYN H P LDR* A1,A7 GET OTR INST. P ADR* A1,P ~ P OTR A2,1,0 P EXR A1 * P ABL(NA) SST055 HW NOT PRESENT OR ERE. $ P ST A1,DWTST1,A7 SET I/P ACTIVE
0x18de28…18dfbc Dummy {f00=0x0079, f01=0x0190, f02=»OST =1 ( P ABL(NZ) TDISP WAIT FOR POWER UP =1 P IFF SALCUZ=1 < P LDR* A1,A6 R P ADR* A1,P f P CIO A2,1,0 x P EXR A1 P RF(NA) STOU10 P RF WRI200 PSTOU10 EQU * P RTN A5 P XIF P IFT SALCUZ=1 *
0x18dfbc…18e150 Dummy {f00=0x0079, f01=0x0190, f02=» ADR* A1,P P CIO A2,1,0 " P EXR A1 CIO START WITH PARITY & P RF(A) STOUT2 ACCEPTED L P LDR* A1,A6 NOT ACC. j P ADR* A1,P P SST A2,0 P EXR A1 CHECK SST P RF(A) STOUT1 P HLT PSTOUT1 EQU * P LDK A2,PARITY
0x18e150…18e2e4 Dummy {f00=0x0079, f01=0x0190, f02=»N SYN PATTERN P LDR* A1,A6 P ADR* A1,P * P OTR A2,1,0 OTR SYN < P EXR A1 X P RF(NA) STOUT3 NOT ACCEPTED h $ P ST A1,DWTST1,A6 SET O/P ACTIVE $ P RF WRI200 ACCEPTED WAIT FOR INT PSTOUT3 EQU * P RTN A5 P XIF
0x18e2e4…18e478 Dummy {f00=0x0079, f01=0x018e, f02=»C A1,DWTST+1,A6 P SC A1,DWTST+1,A7 P LDR* A1,A7 2 P ADR* A1,P F P IFF SALCUZ=1 X P CIO A2,1,0 n P XIF P IFT SALCUZ=1 P CIO A2,0,0 P XIF P LDK A2,CBDISC DISCONNECT P EXR A1 PDISC05 EQU *
0x18e478…18e60c Dummy {f00=0x0079, f01=0x0190, f02=» ~ P RF(Z) DISC20 P CM* DWTTP,A6 P CM DWTTP,A6 4 PDISC20 EQU * H P LD A1,DWTTP,A7 P RF(Z) DISC30 t P CM* DWTTP,A7 P CM DWTTP,A7 PDISC30 EQU * P RTN A5 P* P* P* HALTIN : HALT LINE INPUT
0x18e60c…18e7a0 Dummy {f00=0x0079, f01=0x0190, f02=»A1,P P CIO A2,0,0 P EXR A1 P ORKL A1,/840 A1:= SST INSTR 0 P EXR A1 T P LDR A1,A2 d P LD A2,DWTST1,A7 RELOAD A2 x $ P CM DWTST1,A7 CLEAAR I/P ACTIVE P RTN A5 P* P* P* HALTUT : HALT LINE OUTPUT
0x18e7a0…18e934 (1, 348) Dummy {f00=0x0079, f01=0x0190, f02=»A1,P P CIO A2,0,0 P EXR A1 " P IFT SALCUZ=1 2 " P LD A1,DWTST1,A6 O/P ACTIVE ? H & P RF(Z) HALTU1 NO NO INTERRUPT THEN n $ P CF A5,WRI200 WAIT FOR INTERRUPT PHALTU1 EQU * P XIF P LDR* A1,A6 P ADR* A1,P
0x18e934…18eac8 Dummy {f00=0x0079, f01=0x018e, f02=»CT P* P* 2 P* WRITEP : GENERATE PARITY AND SEND CHARACTER P* T P* ^ PWRITEP EQU * h P ANK A2,/7F | P LC A2,PARTAB,A2 P* P* $ P* WRITE : TRANSMIT ONE CHARACTER P* P* PWRITE EQU *
0x18eac8…18ec5c Dummy {f00=0x0079, f01=0x0190, f02=» P CF A15,LOGOUT P XIF PWRI200 EQU * & P ST A3,DWTSAV,A6 : P ST A4,DWTSAV+2,A6 R P ST A5,DWTSAV+4,A6 l P RF READ10 PWRI300 EQU * P LDR* A1,A6 P ADR* A1,P P SST A1,0 P EXR A1 P IFT SALCUZ=1 (
0x18ec5c…18edf0 Dummy {f00=0x0079, f01=0x0190, f02=» BMM LOOP p " P IM TPCONT,A7 COUNT TP-ERRORS P LDK A5,STB 8 P ADR A5,A6 L P ABL BMM RESTART REQUEST ^ P EJECT ~ P* P* * P* READTO : READ WITH TIME SUPERVISION " P* FOR 2-/4-WIRE LINE P* P* P
0x18edf0…18ef84 Dummy {f00=0x0079, f01=0x0190, f02=»E4 PREADT0 EQU * ( P ST A4,DWTTP,A7 STORE TIMER POINTER P LD A4,DWTSAV+2,A7 J PRESYNC EQU * RESYNCRONIZE d P IFT SALCUZ=1 " P CF A5,HALTIN STOP I/P BEFORE P XIF P CF A5,STINP PRES20 EQU * P CF A5,READ WAIT
0x18ef84…18f118 Dummy {f00=0x0079, f01=0x018e, f02=» $ P CM* DWTTP,A7 HALT RECEIVE TIMER P CM DWTTP,A7 , P RTN A5 @ P EJECT P PRET040 EQU * TIME OUT ENTRY ^ P LDR A7,A1 P CM DWTTP,A7 P LDK A5,4 P ADS A5,DWTA5,A7 P LDKL A2,/8000 PRETO50 EQU * P ABL IHI200
0x18f118…18f2ac Dummy {f00=0x0079, f01=0x0190, f02=» | P LDR A1,A7 P CF A15,SETIME P DATA RET040,TIMENQ 0 P RB READT0 L P EJECT ^ P* l P* v . P* READP : READ CHARACTER AND CHECK PARITY * P* ON PARITY ERROR CR POSITIVE P* P* PREADP EQU * P
0x18f2ac…18f440 Dummy {f00=0x0079, f01=0x0190, f02=»F P CC A1,PARTAB,A2 P RF(N) READP1 " PREDRET ABR* A5 8 PREADP1 ADK A1,1 N P RB REDRET f P EJECT x P* P* READ : SAVE REGISTER A3-A5 2 P* RELOAD REGISTER A1-A8 FROM A15 STACK * P* RETURN TO INTERRUPTED
0x18f440…18f5d4 (1, 349) Dummy {f00=0x0079, f01=0x0190, f02=» PREAD10 EQU * P IFT CPU852=1 P LDR* A8,A15 . P LDR* A7,A15 B P LDR* A6,A15 V P LDR* A5,A15 j P LDR* A4,A15 ~ P LDR* A3,A15 P LDR* A2,A15 P LDR* A1,A15 P XIF P IFF CPU852=1 P MLR 8,A15 P XIF
0x18f5d4…18f768 Dummy {f00=0x0079, f01=0x0190, f02=»,2,A15 P STR A3,A15 P STR A4,A15 " P STR A5,A15 6 P STR A6,A15 J P STR A7,A15 ^ P STR A8,A15 r P LD A2,16,A15 P ST A1,16,A15 P ABR A2 P XIF P IFF CPU852=1 P ST A8,-10,A15 P LD A8,4,A15
0x18f768…18f8fc Dummy {f00=0x0079, f01=0x0190, f02=»*************************** t P* $ ( P* INTERRUPT HANDLER , CHLC RECEIVER . P* Z < P******************************************************* d P* P* P* PIH8101 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A7
0x18f8fc…18fa90 Dummy {f00=0x0079, f01=0x018e, f02=»GIN P XIF PIHI200 EQU * P LD A3,DWTSAV,A7 , P LD A4,DWTSAV+2,A7 D P LD A5,DWTSAV+4,A7 ^ P LD A6,DWTA6,A7 x P LD A8,DWTA8,A7 P RTN A5 P IFF HILINO=1 P EJECT P* P* P* PIH8103 EQU *
0x18fa90…18fc24 Dummy {f00=0x0079, f01=0x0190, f02=» P ABL SSTIN P IFF HILINO=2 P EJECT 0 P* > P* H P* R PIH8105 EQU * P ST P,INTSAV p P CF A15,SAVER P LDKL A7,DW8105 , P INR A2,0,DAMI03 GET CHARACTER FROM LINE P RB(A) IHI100 P ABL SSTIN
0x18fc24…18fdb8 Dummy {f00=0x0079, f01=0x018e, f02=»A7,DW8107 , P INR A2,0,DAMI04 GET CHARACTER FROM LINE P RB(A) IHI100 B P RF SSTIN X P IFF HILINO=4 j P EJECT P* P* P* PIH8109 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A7,DW8109 , P INR A
0x18fdb8…18ff4c Dummy {f00=0x0079, f01=0x0190, f02=» P* PIH8111 EQU * P ST P,INTSAV " P CF A15,SAVER 6 P LDKL A7,DW8111 L , P INR A2,0,DAMI06 GET CHARACTER FROM LINE d P RB(A) IHI100 P RF SSTIN P IFF HILINO=6 P EJECT P* P* P* PIH8113 EQU
0x18ff4c…1900e0 Dummy {f00=0x0079, f01=0x0190, f02=»0 P RF SSTIN P IFF HILINO=7 P EJECT 2 P* @ P* J P* T PIH8115 EQU * ^ P ST P,INTSAV r P CF A15,SAVER P LDKL A7,DW8115 , P INR A2,0,DAMI08 GET CHARACTER FROM LINE P RB(A) IHI100 P RF SSTIN
0x1900e0…190274 (1, 350) Dummy {f00=0x007a, f01=0x0190, f02=»L A7,DW8117 , P INR A2,0,DAMI09 GET CHARACTER FROM LINE P ABL(A) IHI100 D P RF SSTIN Z P IFF HILINO=9 l P EJECT P* P* P* PIH8119 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A7,DW8119 , P INR
0x190274…190408 Dummy {f00=0x007a, f01=0x0190, f02=» P* PIH8121 EQU * P ST P,INTSAV " P CF A15,SAVER 6 P LDKL A7,DW8121 L , P INR A2,0,DAMI11 GET CHARACTER FROM LINE d P ABL(A) IHI100 P RF SSTIN P IFF HILINO=11 P EJECT P* P* P* PIH8123 EQU
0x190408…19059c Dummy {f00=0x007a, f01=0x0190, f02=»00 P RF SSTIN P XIF P EJECT ( < P******************************************************* 6 P* v . P* STATUS INTERRUPT HANDLER , CHLC RECEIVER P* < P******************************************************* P* P*
0x19059c…190730 Dummy {f00=0x007a, f01=0x0190, f02=»FF LOGG=0 P CF A15,LOGSST P XIF ( P LDR A1,A2 4 P RF(NZ) SST030 F P IFF SALCUZ=1 P LDR* A1,A7 r P ADR* A1,P P CIO A2,1,0 P LDKL A2,/116 P EXR A1 START INPUT P XIF P ABL READ10 PSST030 EQU
0x190730…1908c4 Dummy {f00=0x007a, f01=0x0190, f02=»050 P IFT SALCUZ=1 P CM DWTST1,A7 CLEAR I/O IND. " P XIF F " P IM TPCONT,A7 COUNT TP ERRORS T P LD A1,DWTTP,A7 z P RF(Z) SST040 P CM* DWTTP,A7 P CM DWTTP,A7 PSST040 EQU * P LDK A5,STB P ADR A5,A6
0x1908c4…190a58 Dummy {f00=0x007a, f01=0x018e, f02=» LINE ~ P LDK A5,STB P ADR A5,A6 " P CF A5,DISCON 4 PSST65 EQU * J P IFT SALCUZ=1 ^ ( P CM DWTST1,A7 CLEAR I/P ACTIVE FLAG t P XIF * P LDK A1,MODNOP RC: MODEM NOT OPERABLE P LD A8,DWTECB,A6 P RF(Z) SST067
0x190a58…190bec Dummy {f00=0x007a, f01=0x018e, f02=» P LD A8,DWTECB,A6 P RF(Z) SST069 P CM ECBRC,A8 2 P IFT RQLOGG=1 F P CF A15,REQLOG P XIF r PSST069 EQU * ~ P ABL DISEND PSST69A EQU * P IFT SALCUZ=1 " P LD A1,DWTST1,A7 GET I/O IND. " P ABL(Z) TDISP INAC
0x190bec…190d80 Dummy {f00=0x007a, f01=0x0190, f02=» < P******************************************************* P* H * P* INTERRUPT HANDLER , CHLC TRANSMITTER R P* < P******************************************************* P* P* P* PIH8102 EQU * P ST P,INTSAV
0x190d80…190f14 (1, 351) Dummy {f00=0x007a, f01=0x0190, f02=»V+4,A6 P LD A7,DWTA7,A6 P LD A8,DWTA8,A6 & P RTN A5 > P IFF HILINO=1 N P EJECT d P* r P* | P* PIH8104 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A6,DW8104 P RB IHU100 P IFF HILINO=2
0x190f14…1910a8 Dummy {f00=0x007a, f01=0x0190, f02=» RB IHU100 P IFF HILINO=3 P EJECT ( P* 6 P* @ P* J PIH8108 EQU * T P ST P,INTSAV h P CF A15,SAVER | P LDKL A6,DW8108 P RB IHU100 P IFF HILINO=4 P EJECT P* P* P* PIH8110 EQU
0x1910a8…19123c Dummy {f00=0x007a, f01=0x0190, f02=» P* P* PIH8112 EQU * P ST P,INTSAV , P CF A15,SAVER @ P LDKL A6,DW8112 V P RB IHU100 n P IFF HILINO=6 P EJECT P* P* P* PIH8114 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A6
0x19123c…1913d0 Dummy {f00=0x007a, f01=0x0190, f02=» P CF A15,SAVER P LDKL A6,DW8116 P RB IHU100 2 P IFF HILINO=8 D P EJECT Z P* h P* r P* | PIH8118 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A6,DW8118 P RB IHU100 P IFF HILINO=9 P EJE
0x1913d0…191564 Dummy {f00=0x007a, f01=0x0190, f02=»0 P IFF HILINO=10 P EJECT P* . P* 8 P* B PIH8122 EQU * L P ST P,INTSAV ` P CF A15,SAVER t P LDKL A6,DW8122 P ABL IHU100 P IFF HILINO=11 P EJECT P* P* P* PIH8124 EQU *
0x191564…1916f8 Dummy {f00=0x007a, f01=0x0190, f02=»* FINDTC P* P* SEARCH TCA IN POLLINGLIST P* > P* A2 CONTAINS TCA AT ENTRY H P* j . P* A3 CONTAINS ADDRESS TO FOUND TC AT EXIT t , P* A4 CONTAINS INDEX IN LIST TO FOUND TC P* P* A1 A3 A4 ARE DESTROYED " P* CR = (
0x1916f8…19188c Dummy {f00=0x007a, f01=0x018e, f02=» P ADKL A15,4 . P LD A4,PLIST,A6 GET LENGTH OF POLLINGLIST P LDR A3,A6 N P ADK A3,PLIST ` P ADR A3,A4 v PFIND10 EQU * P LDR* A1,A3 GET TCA P CWR A1,A2 " P RF(E) FIND40 ACTIVE TC FOUND P ANK A1,/FF P CWR
0x19188c…191a20 Dummy {f00=0x007a, f01=0x0190, f02=» P ABR* A15 RETURN PFIND30 EQU * P LDR* A1,A3 4 PFIND40 EQU * H P ABR* A15 P* n P* x PPARTAB EQU * P* P NLIST @ P DATA /8001,/0283,/0485,/8607,/0889,/8A0B,/8C0D,/0E8F,/1091 @ P DATA /9213,/9415,/169
0x191a20…191bb4 (1, 352) Dummy {f00=0x007a, f01=0x0190, f02=»B,/BC3D @ P DATA /3EBF,/40C1,/C243,/C445,/46C7,/C849,/4ACB,/4CCD,/CE4F @ P DATA /D051,/52D3,/54D5,/D657,/58D9,/DA5B,/DC5D,/5EDF,/E061 T @ P DATA /62E3,/64E5,/E667,/68E9,/EA6B,/EC6D,/6EEF,/70F1,/F273 . P DATA /F475,/76F7,/F879,/7AFB,/7CFD,/FE7F
0x191bb4…191d48 Dummy {f00=0x007a, f01=0x0190, f02=» P ST A8,DWTA8,A6 P* P* START REQUEST TIMER & P* D P LDR A1,A6 N P CF A15,SETIME ` P DATA TLTO,TIMACT v P ST A4,DWTATP,A6 P* P* CONNECT MODEM P* P LD A7,DWTA7,A6 P ST A8,DWTA8,A7 P CF
0x191d48…191edc Dummy {f00=0x007a, f01=0x0190, f02=»TP,A6 P RF TES030 PTES020 EQU * P LDR A6,A1 4 PTES030 EQU * F P CM DWTTP,A6 Z P LD A7,DWTA7,A6 n P LD A8,DWTA8,A7 P LDK A5,STB P ADR A5,A6 P CF A5,HALTIN P ANK A1,1 & P RF(NZ) TES330 MODEM NOT OPE
0x191edc…192070 Dummy {f00=0x007a, f01=0x0190, f02=» P ADR A1,A7 P ST A1,DWTA5,A7 ( P CM ECBCW,A8 RESET BIT ERROR COUNTER 2 P CF A5,STINP ^ P CF A5,WRSYN r P* P* TRANSMITT TEST PATTERN P* PTES100 EQU * ( P LDK A4,0 BIT AND CHARACTER COUNTER " P LDKL A3,/1FF
0x192070…192204 Dummy {f00=0x007a, f01=0x018e, f02=» P CF A5,PATGEN P RB TES110 P* 0 " P* COMPLETE PATTERN TRAMSMITTED : P* ` PTES150 EQU * j P LDK A2,PAD ~ P CF A5,WRITE P RB TES150 P EJECT P* P* P* SYNCRONIZE INPUT P* PREC000 EQU
0x192204…192398 Dummy {f00=0x007a, f01=0x0190, f02=» 0 P* COMPARE RECEIVED PATTERN WITH TRANSMITTED P* < ( P LDK A4,0 BIT AND CHARACTER COUNTER F " P LDKL A3,/1FF 1:ST SHIFT STATE r PTES200 EQU * P XRR A2,A3 P ANK A2,/FF P RF(Z) TES240 NO BIT ERRORS P ECR A2,A2 P
0x192398…19252c Dummy {f00=0x007a, f01=0x0190, f02=» P RB(N) TES210 PTES240 EQU * P CWK A4,/1F8 . P RF(E) TES300 B P CF A5,READ X P CF A5,PATGEN l P LDR A2,A2 P RF(N) TES400 P RB TES200 P* P* COMPLETE PATTERN RECEIVED P* PTES300 EQU * P
0x19252c…1926c0 Dummy {f00=0x007a, f01=0x018e, f02=» PTES340 EQU * P IFT RQLOGG=1 P CF A15,REQLOG 2 P XIF H P CF A15,TENDIO T P CF A5,DISCON j P ABL TDISP P EJECT P* P* TIME OUT P* PTLTO EQU * P LDR A6,A1 P LD A7,DWTA7,A6 P LD A5
0x1926c0…192854 (1, 353) Dummy {f00=0x007a, f01=0x0190, f02=» P RB TES330 P EJECT P* ( P* 2 P* PATTERN GENERATOR < P* X P* A3:= CURRENT SHIFT STATE b $ P* A4:= BIT AND CHARACTER COUNTER P* PPATGEN EQU * P LDR A1,A3 P SLL A1,4 P XRR A1,A3 P ANK A1,
0x192854…1929e8 Dummy {f00=0x007a, f01=0x0190, f02=» A3,1 P ADK A4,1 P LDR A1,A4 P ANK A1,/7 2 P RB(NZ) PATGEN D P RTN A5 Z P IFT BDA=1 j P EJECT | P* P* < P* POLL AND SELECT ADDRESS CONVERTING ROUTINES AND TABLES P* PSELADR EQU * P ANK A3,/7F
0x1929e8…192b7c Dummy {f00=0x007a, f01=0x0190, f02=» * P DATA /2041 P DATA /4243 P DATA /4445 2 P DATA /4647 F P DATA /4849 Z P DATA /5B2E n P DATA /3C28 P DATA /2BFF P* P* SELECT ADDRESSES P* PSELTAB EQU * P DATA /2D2F P DATA /5
0x192b7c…192d10 Dummy {f00=0x007a, f01=0x0190, f02=» P IFT RQLOGG=1 P EJECT P* , P* REQUEST LOGG 6 ( P* 1:ST WORD=DEVICE ADDRESS, ORDER L P* 2:ND WORD = RETURN CODE x P* 3:RD WORD = TID P* PREQLOG EQU * P STR A2,A15 P STR A3,A15 P LD A3,REQ
0x192d10…192ea4 Dummy {f00=0x007a, f01=0x0190, f02=»+1,A6 P SCR A2,A3 P ADK A3,1 P LD A2,DWTECB,A6 2 P OR A1,ECBRC,A2 J P STR A1,A3 RETURN CODE b P ADK A3,2 P LD A2,10,A6 TTAB ADDRESS P ADK A2,4 P LDR* A2,A2 TID P STR A2,A3 P ADK A3,2 P CWK A
0x192ea4…193038 Dummy {f00=0x007a, f01=0x0190, f02=» P ADKL A15,4 P ABR* A15 P EJECT . P* < P* REQUEST LOGG AREA F P* b ( P* 1:ST WORD=DEVICE ADDRESS, ORDER l P* 2:ND WORD = RETURN CODE P* 3:RD WORD = TID P* P* PREQPEK DATA REQBUF PRE
0x193038…1931cc Dummy {f00=0x007a, f01=0x0190, f02=»INTERRUPT LOGGING ROUTINE P* " PLOGOUT EQU * , P ORKL A2,/C000 @ P RF LOG V PLOGSST EQU * f P ORKL A2,/8000 z PLOGIN EQU * PLOG EQU * P LD A1,LOGPNT P CWK A2,/C000+PAD P RF(E) PADLOG PAD OUTPUT P C
0x1931cc…193360 Dummy {f00=0x007a, f01=0x0190, f02=» OF LOGBUF z " P LDKL A1,LOGBUF RESET POINTER PLOGRTN EQU * 8 P ST A1,LOGPNT L P ANKL A2,/FF b P ADKL A15,4 v P ABR* A15 P* PPADLOG EQU * P* P CW A2,-2,A1 P RF(E) PAD10 P CM PADOUT P ADK A1,2
0x193360…1934f4 (1, 354) Dummy {f00=0x007b, f01=0x018e, f02=»YN10 P CM SYNIN P ADK A1,2 PSYN10 ADKL A1,-2 0 P IM SYNIN H P RB LOG010 Z P EJECT l P* z P* PSYNIN DATA 0 PPADOUT DATA 0 P* P* P* LOGG AREA P* * P* /C0XX XX = OUT
0x1934f4…193688 Dummy {f00=0x007b, f01=0x403e, f02=» PLOGEND DATA /FFFF P XIF " P END .@ :-2 0 P IM SYNIN H P RB LOG010 Z P EJECT l P* z P* PSYNIN DATA 0 PPADOUT DATA 0 P* P* P* LOGG AREA P* * P* /C0XX XX = OUT
0x193688…19381c Dummy {f00=0x007b, f01=0x2008, f02=» ********************* v * & * 0 DRBMON EQU * : END N@ Z
0x19381c…1939b0 Dummy {f00=0x007b, f01=0x0190, f02=» B P ] B ] GETDNA . , ( V ] ] ] @ , ( B P P T p , ( T P X , ( ' ] X ] Y B TENDI
0x1939b0…193b44 Dummy {f00=0x007b, f01=0x0190, f02=» B C B GETSNA, $ , ( 0 Y B Y V Y Y 6 DWTCHPC f , ( Y Y B X B x , ( Y B X B:D :D , ( :D C B Y " * &
0x193b44…193cd8 Dummy {f00=0x007b, f01=0x0190, f02=» @ P A @ P X , ( s R X " T ! @ P & , ( W A 4 X B V , ( X *T W 0 Y *T , ( @ A X R , ( A X " T ! C
0x193cd8…193e6c Dummy {f00=0x007b, f01=0x0190, f02=» > W @ W W @W * & a W W W W ( SETIME V , ( } X "R P A Y $ h , ( @ W Y $ V V X "Z X A , ( Y $_0 Y $ X , ( 6 X
0x193e6c…194000 Dummy {f00=0x007b, f01=0x0190, f02=»P P P _ 4 (P 0 ) , ( Q > (P _ ) 1_ X *P ( , ( q 0 R Y *_4 ( (P _ X , ( ) 1_J ( (XV P _ 0 )_d , ( (P _ ) 1 4 $ , Q , , ( W $ L H I
0x194000…194194 (1, 355) Opaque[0x194]
0x194194…194328 # DirEnt {nam=»DRDC82«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f68, f03=0x0000}
0x194194…194328 IdxSect {
0x194194…194328 f00 = 0x007b // 0x194194 @0x0
0x194194…194328 f01 = 0x0036 // 0x194196 @0x2
0x194194…194328 gno = [ // 0x194198 @0x4
0x194194…194328 [0x00]: C0x007b.0x1.0
0x194194…194328 [0x01]: C0x007b.0x2.0
0x194194…194328 [0x02]: C0x007b.0x3.0
0x194194…194328 [0x03]: C0x007c.0x0.0
0x194194…194328 [0x04]: C0x007c.0x1.0
0x194194…194328 [0x05]: C0x007c.0x2.0
0x194194…194328 [0x06]: C0x007c.0x3.0
0x194194…194328 [0x07]: C0x007d.0x0.0
0x194194…194328 [0x08]: C0x007d.0x1.0
0x194194…194328 [0x09]: C0x007d.0x2.0
0x194194…194328 [0x0a]: C0x007d.0x3.0
0x194194…194328 [0x0b]: C0x007e.0x0.0
0x194194…194328 [0x0c]: C0x007e.0x1.0
0x194194…194328 [0x0d]: C0x007e.0x2.0
0x194194…194328 [0x0e]: C0x007e.0x3.0
0x194194…194328 [0x0f]: C0x007f.0x0.0
0x194194…194328 [0x10]: C0x007f.0x1.0
0x194194…194328 [0x11]: C0x007f.0x2.0
0x194194…194328 [0x12]: C0x007f.0x3.0
0x194194…194328 [0x13]: C0x0080.0x0.0
0x194194…194328 [0x14]: C0x0080.0x1.0
0x194194…194328 [0x15]: C0x0080.0x2.0
0x194194…194328 [0x16]: C0x0080.0x3.0
0x194194…194328 [0x17]: C0x0081.0x0.0
0x194194…194328 [0x18]: C0x0081.0x1.0
0x194194…194328 [0x19]: C0x0081.0x2.0
0x194194…194328 [0x1a]: C0x0081.0x3.0
0x194194…194328 ]
0x194194…194328 }
0x194328…1944bc Dummy {f00=0x007b, f01=0x0190, f02=» 2 P IDENT DRDC82 REL 11.0 81-01-26 870105041100 P : " P =8, ERROR IN ABORT ROUTINE B P REL 10.0 80-06-24 h & P =7, ABORT ROUTINE FOR REL 11.0 P REL 10.0 80-06-24 P =6,WRITE TIMEOUT POINTER P REL 10.0 80-03-20
0x1944bc…194650 Dummy {f00=0x007b, f01=0x0190, f02=»0-01-08 P =2,WRONG LABEL P 79-11-01 * , P =1,STACK OVERFLOW,BAD INDEX,LOGG AREA > P PRR 10.1 MMU ADAPTATIONS n P REL 8.3 79-08-09 P* * P* SOFTWARE FOR PTS 6810 CONCENTRATOR , P* DRDC82 HDLC MASTER DATA COM D
0x194650…1947e4 Dummy {f00=0x007b, f01=0x0190, f02=»OR d . P* VIA LEASED 4-WIRE ON PROGRAM CHANNEL P* < 6 P* PROTOCOL : HDLC MASTER FOR MULTIPOINT DATA LINK F P* P******* " P* STANDARD USE OF REGISTERS P******* P* A1:WORK REGISTER $ P* A2:I/O AND WORK R
0x1947e4…194978 Dummy {f00=0x007b, f01=0x0190, f02=»RESS x P* A7:INPUT DWT ADDRESS P* A8:ECB ADDRESS 0 P* N P********** X P EJECT j P********** x P* ENTRY POINTS P* $ P ENTRY DC82ON RECOVERY POWER ON P* P* INPUT VECTORS P* P ENT
0x194978…194b0c Dummy {f00=0x007b, f01=0x0190, f02=»OUTPUT VECTORS P* P ENTRY IH8202,IH8204 . P ENTRY IH8206,IH8208,IH8210,IH8212,IH8214 < . P ENTRY IH8216,IH8218,IH8220,IH8222,IH8224 n P* P* & P ENTRY DW8202,DW8204 OUTPUT DWT'S . P ENTRY DW8206,DW8208,DW8210,DW8212,DW8214
0x194b0c…194ca0 Dummy {f00=0x007b, f01=0x0190, f02=»07,DW8209,DW8211,DW8213 ~ . P ENTRY DW8215,DW8217,DW8219,DW8221,DW8223 P EJECT R P* ` P*********** j P* EXTERNAL REFERENCES ~ P* " P EXTRN TDISP DISPATCHER ENTRY $ P EXTRN TENDIO REQUEST COMPLETION P EXTRN DISEND
0x194ca0…194e34 (1, 356) Dummy {f00=0x007b, f01=0x0190, f02=»XTRN DWTECB DWT ECB ADDRESS P EXTRN DWTOR DWT ORDER $ $ P EXTRN ECBBA ECB BUFFER ADDRESS B & P EXTRN ECBRL ECB REQUESTED LENGTHH j & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD P
0x194e34…194fc8 Dummy {f00=0x007b, f01=0x018e, f02=»EMBLY ~ P* PX:A EQU 12 LINE NUMBER P* 6 PX:B EQU 10 POLL LIST LENGTH @ PPLT EQU X:B d P* x PX:C EQU 1 LOGGING INTERRUPT PLOGG EQU X:C P* PX:D EQU -6 RETRY LIMIT P* P* PX:E EQU /22 INPUT
0x194fc8…19515c Dummy {f00=0x007b, f01=0x0190, f02=» v P* PX:I EQU /7 INPUT LINE 5 P* 2 PX:J EQU /20 INPUT LINE 6 < P* PX:K EQU /21 INPUT LINE 7 f P* PX:L EQU /23 INPUT LINE 8 P* PX:M EQU /24 INPUT LINE 9 P* PX:N EQU /25 INPUT LINE 10 P*
0x19515c…1952f0 Dummy {f00=0x007b, f01=0x0190, f02=»CT P* P* SYSTEM PARAMETERS P* 0 0 PHILINO EQU X:A HIGHEST LINE NUMBER IN SYSTEM : & PPLTLEN EQU PLT+PLT POLLIST LENGTH n PLINE01 EQU PLTLEN PLINE02 EQU PLTLEN PLINE03 EQU PLTLEN PLINE04 EQU PLTLEN PLINE05 E
0x1952f0…195484 Dummy {f00=0x007b, f01=0x0190, f02=»LEN PLINE11 EQU PLTLEN PLINE12 EQU PLTLEN & P* @ PTBUFL EQU X:Q J PMMUPAG EQU 0 ` , P* IF MMUPAG = 1 MMU-PAGING IS INCLUDED t P* * PCPU852 EQU 1 =0, EXTENDED INSTRUKTIONS P* PDEVIND EQU 2 0 PBUFLEN EQU TBU
0x195484…195618 Dummy {f00=0x007b, f01=0x0190, f02=»E TIME-OUT (2 SECONDS) | PTIMMRY EQU 5 MODEM READY T-O " PTIMACT EQU 100 ACTIVITY TIMER B PRTYLIM EQU X:D RETRY LIMIT h PRTYLID EQU -3 P* P* CONSTANTS P* PBIT0 EQU /8000 PBIT1 EQU /4000 PBIT2 EQU /2000
0x195618…1957ac Dummy {f00=0x007b, f01=0x0190, f02=» EQU /40 PBIT10 EQU /20 PBIT11 EQU /10 & PBIT12 EQU /8 < PBIT13 EQU /4 P PBIT14 EQU /2 d PBIT15 EQU /1 x PNBIT11 EQU /FFEF PNBIT12 EQU /FFF7 PNBIT13 EQU /FFFB P EJECT : P**************************************
0x1957ac…195940 Dummy {f00=0x007b, f01=0x0190, f02=»****************** l P* P* ORDERS: $ P* 6 P* /00 - TEST @ P* /02 - READ T P* /06 - WRITE h P* /22 - OPEN LINE ~ P* /24 - CLOSE LINE P* /26 - HALT POLLING P* /27 - START POLLING P* /37 - OPEN TC P* /3
0x195940…195ad4 (1, 357) Dummy {f00=0x007b, f01=0x0190, f02=»* & P* STATUS WORD =/ 0 SEE BITS BELOW P* 4 P* > PCOMPLT EQU 0 STATUS WORD = 0 H P* l ( PMODNOP EQU BIT15 MODEM NOT OPERABLE v PNORESP EQU BIT14 NO RESPONSE ( PTCINPL EQU BIT14 ALREADY IN POLLIST . PPOLPER EQU BIT14 POLLI
0x195ad4…195c68 Dummy {f00=0x007b, f01=0x0190, f02=»TE EQU BIT4+BIT0 LINE OPEN/CLOSE ( PPOLHLT EQU BIT4+BIT0 POLLING HALTED ( PTCACT EQU BIT2 TC ACTIVE T PINVTCA EQU BIT0 INVALID TCA t $ PLSTOVF EQU BIT0 POLLIST OVERFLOW & PTCNLST EQU BIT0 TC NOT IN POLLIST P EJECT P* " P*
0x195c68…195dfc Dummy {f00=0x007b, f01=0x0190, f02=» P IFF MMUPAG=0 6 PDWTDRD EQU /14 START OF DRIVER DEFINED PART OF DWT P XIF X P* d PDWTTP EQU DWTDRD+/00 n PDWTATP EQU DWTDRD+/02 PSTB EQU DWTDRD+/0E PDWTSAV EQU DWTDRD+/10 PUSBUF EQU DWTDRD+/1C PDCBUCU EQU D
0x195dfc…195f90 Dummy {f00=0x007b, f01=0x0190, f02=»EQU DWTDRD+/24 PVSS EQU DWTDRD+/26 PVRS EQU DWTDRD+/28 0 PDWTRTY EQU DWTDRD+/2A J PDWTORI EQU DWTRTY+2 h PDWTORO EQU DWTORI+2 PPLIST EQU DWTORO+2 P EJECT P* P* INSTRUCTIONS EQUALS P* PCIOST EQU /4
0x195f90…196124 Dummy {f00=0x007b, f01=0x018e, f02=»MODEM x PSSTTHR EQU 2 THROUGPUT & PSSTMSK EQU /F09F SIGNIFICANT BITS , P* V P* CIO START IN COMMAND ` P* ~ PCICMO EQU 2 CONNECT MODEM " PCIDISC EQU /1 DISCONNECT MODEM , PCIREPC EQU 5 RECEIVE ON PROGRAM CHANNEL PCIIDLE E
0x196124…1962b8 Dummy {f00=0x007b, f01=0x018e, f02=» " P* CHLC DEVICE ADDRESS EQUATES P* . PDAMI01 EQU X:E INPUT 8 PDAMI02 EQU X:F T PDAMI03 EQU X:G j PDAMI04 EQU X:H PDAMI05 EQU X:I PDAMI06 EQU X:J PDAMI07 EQU X:K PDAMI08 EQU X:L PDAMI09 EQU X:M PDAMI
0x1962b8…19644c Dummy {f00=0x007b, f01=0x018e, f02=» PDAMU03 EQU DAMI03+/10 PDAMU04 EQU DAMI04+/10 " PDAMU05 EQU DAMI05+/10 @ PDAMU06 EQU DAMI06+/10 ^ PDAMU07 EQU DAMI07+/10 | PDAMU08 EQU DAMI08+/10 PDAMU09 EQU DAMI09+/10 PDAMU10 EQU DAMI10+/10 PDAMU11 EQU DAMI11+/1
0x19644c…1965e0 Dummy {f00=0x007b, f01=0x0190, f02=» PMLIN01 EQU 1 AT LEAST 1 LINE P IFF HILINO=1 ( " PMLIN02 EQU 1 AT LEAST 2 LINES > P IFF HILINO=2 d " PMLIN03 EQU 1 AT LEAST 3 LINES z P IFF HILINO=3 " PMLIN04 EQU 1 AT LEAST 4 LINES P IFF HILINO=4 PMLIN05 EQU 1 AT LEAST
0x1965e0…196774 (1, 358) Dummy {f00=0x007c, f01=0x0190, f02=»FF HILINO=7 " PMLIN08 EQU 1 AT LEAST 8 LINES P IFF HILINO=8 : " PMLIN09 EQU 1 AT LEAST 9 LINES P P IFF HILINO=9 v " PMLIN10 EQU 1 AT LEAST 10 LINES P IFF HILINO=10 " PMLIN11 EQU 1 AT LEAST 11 LINES P IFF HILINO=11 PMLIN
0x196774…196908 Dummy {f00=0x007c, f01=0x0190, f02=»AN 11 | P IFF HILINO=10 PMLIN10 EQU 0 LESS THAN 10 $ P IFF HILINO=9 F PMLIN09 EQU 0 LESS THAN 09 P IFF HILINO=8 ~ PMLIN08 EQU 0 LESS THAN 8 P IFF HILINO=7 PMLIN07 EQU 9 LESS THAN 7 P IFF HILINO=6 PMLIN06 E
0x196908…196a9c Dummy {f00=0x007c, f01=0x018e, f02=» HILINO=3 PMLIN03 EQU 0 LESS THAN 3 P IFF HILINO=2 2 PMLIN02 EQU 0 LESS THAN 2 H P XIF h P IFT LINE01=0 t PMLIN01 EQU 0 P XIF P EJECT P* & P* HDLC MASTER CONFIGURATION TABLE P* $ PDWMTAB DATA DWMTE-
0x196a9c…196c30 Dummy {f00=0x007c, f01=0x0190, f02=» P DATA DW8204,DW8203 P IFF HILINO=2 $ P DATA DW8206,DW8205 : P IFF HILINO=3 V P DATA DW8208,DW8207 l P IFF HILINO=4 P DATA DW8210,DW8209 P IFF HILINO=5 P DATA DW8212,DW8211 P IFF HILINO=6 P DATA
0x196c30…196dc4 Dummy {f00=0x007c, f01=0x0190, f02=» P DATA DW8220,DW8219 P IFF HILINO=10 $ P DATA DW8222,DW8221 : P IFF HILINO=11 V P DATA DW8224,DW8223 l P XIF PDWMTE EQU * P EJECT P* , P* LINE CONTROL INPUT CONTROL FIELD MASK P* PREMI EQU 1 I-F
0x196dc4…196f58 Dummy {f00=0x007c, f01=0x018e, f02=»S MASK PRECMDR EQU /97 CMDR FRAME PREUA EQU /73 UA FRAME 0 P* N . P* LINE CONTROL OUTPUT CONTROL FIELD MASK X P* PTRRP EQU /11 RR+POLL PTSNRM EQU /93 SNRM FRAME PTDISC EQU /53 DISC FRAME PTRNRP EQU /15 RNR+POLL
0x196f58…1970ec Dummy {f00=0x007c, f01=0x0190, f02=» P* P* DWTST : " P* BIT 11 =1 WRONG N(S) " P* BIT 12 =1 WRONG N(R) F $ P* BIT 13 =1 RNR RECEIVED l ( P* BIT 14 =0 POLLING PERMITTED . P* BIT 14 =1 HALT POLLING INITIATED " P* BIT 15 =0 LIN
0x1970ec…197280 Dummy {f00=0x007c, f01=0x0190, f02=»** P* 0 P* STATUS :/00 MODEM READY,CARRIER DETECTED $ P* :/01 MODEM NOT READY H $ P* :/02 THROUGPUT ERROR p ( P* :/20 CARRIER NOT DETECTED . P* :/3000 IDLE ONE,ABORT DETECTED P* P********
0x197280…197414 (1, 359) Dummy {f00=0x007c, f01=0x0190, f02=»NE 01,OUTPUT AND CONTROL P* PDW8202 EQU * TABLE ENTRY * P DATA DAMU01 DEVICE ADDRESS J $ P DATA /8000 STATUS,DEVICE READY n P DATA 0 ECB ADDRESS P DATA 0 ORDER * P DATA DRMUAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB ADDRE
0x197414…1975a8 Dummy {f00=0x007c, f01=0x0190, f02=» ADDRESS OF DRIVER ECB P XIF P IFT MLIN01=1 * P DATA 0 TIMER POINTER @ P DATA 0 ACTIVITY TIMER ^ P DATA 0,0,0,0,0,0 STACK BASE | P RES 3 SAVE REGISTER 3-5 P DATA DW8202 OUTPUT DWT P DATA DW8201 INPUT DWT P DATA 0 A8
0x1975a8…19773c Dummy {f00=0x007c, f01=0x0190, f02=»A 0 VRS P DATA 0 RETRY P DATA 0 INPUT INDEX =5 & P DATA 0 OUTPUT INDEX =5 D P* d P* POLLIST n P* P DATA LINE01+LINE01 LENGTH P RES LINE01 $ P DATA /FFFF,/FFFF END OF POLLIST P IFT MMUPAG=1 , PMECB02 DAT
0x19773c…1978d0 Dummy {f00=0x007c, f01=0x018e, f02=» P* DEVICE WORK TABLE ! P* DWT FOR LINE 01 INPUT ! P* ! @ PDW8201 EQU * TABLE ENTRY ! J P DATA DAMI01 DEVICE ADDRESS ! j P DATA /8000 STATUS ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! * P DATA DRMIAD POINTER TO ADDRESS BLOCK ! P
0x1978d0…197a64 Dummy {f00=0x007c, f01=0x0190, f02=» ! r P DATA MECB01 DRIVER ECB " P XIF " ( P IFF LINE01=0 " 4 P DATA 0 TIMER " J P DATA 0 ACTIVITY TIMER " ` P DATA 0,0,0,0,0,0 STACK BASE " ~ P RES 3 SAVE REGISTER 3-5 " $ P DATA DW8202 OUTPUT DWT ADDRESS " P DATA DW8201 INPUT DWT " P
0x197a64…197bf8 Dummy {f00=0x007c, f01=0x0190, f02=»,0 DRIVER ECB " v ( PDCBF01 RES TBUFL+1 INPUT MMU BUFFER # P XIF # B P IFT MLIN02=1 # P P EJECT # f P* # t P* DEVICE WORK TABLE # ~ ( P* DWT FOR LINE 02,OUTPUT AND CONTROL # P* # PDW8204 EQU * TABLE ENTRY # P DATA DAMU02 DEVICE ADDR
0x197bf8…197d8c Dummy {f00=0x007c, f01=0x0190, f02=»AB # P DATA 0 W/A $ P DATA 0 TASK QUEUE $ P IFT MMUPAG=1 $ 8 P DATA 0 ADDRESS OF USER ECB $ N P DATA MECB04 DRIVER ECB $ r P XIF $ P IFT MLIN02=1 $ P DATA 0 TIMER POINTER $ P DATA 0 ACT TIMER $ P DATA 0,0,0,0,0,0 STACK BASE
0x197d8c…197f20 Dummy {f00=0x007c, f01=0x0190, f02=» DATA 0 PINACT $ P DATA 0 SENDF % P DATA 0 LNR % , P DATA 0 CPS % @ P DATA 0 VSS % T P DATA 0 VRS % h P DATA 0 RETRY % | P DATA 0 INPUT INDEX =5 % P DATA 0 OUTPUT INDEX =5 % P* % P* POLLIST % P* % P DATA LINE02+L
0x197f20…1980b4 (1, 360) Dummy {f00=0x007c, f01=0x0190, f02=»R ECB % n ( PDCBF04 RES TBUFL+1 OUTPUT MMU BUFFER & P XIF & : P IFT MLIN02=1 & F P EJECT & P* & j P* DEVICE WORK TABLE & t P* & P* DWT FOR LINE 02 INPUT & P* & PDW8203 EQU * TABLE ENTRY & P DATA DAMI02 & P DATA /8000 ST
0x1980b4…198248 Dummy {f00=0x007c, f01=0x0190, f02=» DATA 0 TASK QUEUE & P IFT MMUPAG=1 ' P DATA 0 ADDRESS OF USER ECB ' 0 P DATA MECB03 DRIVER ECB ' T P XIF ' t P IFT MLIN02=1 ' P DATA 0 TIMER POINTER ' P DATA 0 ACT TIMER ' P DATA 0,0,0,0,0,0 STACK BASE ' P RES 3 SAVE REGISTERS
0x198248…1983dc Dummy {f00=0x007c, f01=0x018e, f02=»0 ATTEMPTED LENGTH ' P IFT MMUPAG=1 ( , PMECB03 DATA 0,DCBF03,0,0,0,0 DRIVER ECB ( 0 & PDCBF03 RES TBUFL+1 INPUT MMUBUFFER ( ` P XIF ( P IFT MLIN03=1 ( P EJECT ( P* ( ( P* DWT FOR LINE 03 OUTPUT AND CONTROL ( P* ( PDW8206 EQU * (
0x1983dc…198570 Dummy {f00=0x007c, f01=0x0190, f02=» P DATA 0 TASK QUEUE ) P IFT MMUPAG=1 ) P DATA 0 USER ECB ) 4 P DATA MECB06 ) L P XIF ) ` P IFT MLIN03=1 ) l P DATA 0 TIMER POINTER ) P DATA 0 ACT TIMER ) P DATA 0,0,0,0,0,0 ) P RES 3 ) P DATA DW8206 ) P DATA DW8205 )
0x198570…198704 Dummy {f00=0x007c, f01=0x0190, f02=» P IFT MMUPAG=1 * , PMECB06 DATA 0,DCBF06,0,0,0,0 DRIVER ECB * ( PDCBF06 RES TBUFL+1 OUTPUT MMU BUFFER * J P XIF * v P IFT MLIN03=1 * P EJECT * P* * P* DWT FOR LINE 03 INPUT * P* * PDW8205 EQU * * P DATA DAMI03 * P DATA
0x198704…198898 Dummy {f00=0x007c, f01=0x0190, f02=» P DATA 0 USER ECB + P DATA MECB05 DRIVER ECB + P XIF + < P IFT MLIN03=1 + H P DATA 0 TIMER POINTER + ^ P DATA 0 ACT TIMER + | P DATA 0,0,0,0,0,0 + P RES 3 + P DATA DW8206 + P DATA DW8205 + P DATA 0,0,0,0 + P EJECT +
0x198898…198a2c Dummy {f00=0x007c, f01=0x0190, f02=»CT + P* , ( P* DWT FOR LINE 04,OUTPUT AND CONTROL , P* , @ PDW8208 EQU * , J " P DATA DAMU04,/8000,0,0,DRMUAD , ^ P DATA 0 TTAB , P DATA 0 W/A , P DATA 0 TASK QUEUE , P IFT MMUPAG=1 , P DATA 0 ADDRESS OF USER ECB , P DATA ME
0x198a2c…198bc0 Dummy {f00=0x007c, f01=0x0190, f02=» P RES 3 - P DATA DW8208,DW8207 - P DATA 0,0,0,0 - . P DATA 0,0,0,0,0 - D P DATA 0,0 - P DATA LINE04+LINE04 - n P RES LINE04 - P DATA /FFFF,/FFFF - P IFT MMUPAG=1 - , PMECB08 DATA 0,DCBF08,0,0,0,0 DRIVER ECB - ( PDCBF08 RES
0x198bc0…198d54 (1, 361) Dummy {f00=0x007c, f01=0x0190, f02=»8207 EQU * - " P DATA DAMI04,/8000,0,0,DRMIAD . P DATA 0 TTAB . 8 P DATA 0 W/A . L P DATA 0 TASK QUEUE . ` P IFT MMUPAG=1 . z P DATA 0 USER BUFFER . P DATA MECB07 DRIVER ECB . P XIF . P IFT MLIN04=1 . P DATA 0 TIMER POINTER .
0x198d54…198ee8 Dummy {f00=0x007c, f01=0x018e, f02=»BF07,0,0,0,0 DRIVER ECB . ( PDCBF07 RES TBUFL+1 MMU BUFFER INPUT / P XIF / L P IFT MLIN05=1 / X P EJECT / n P* / | ( P* DWT FOR LINE 05,OUTPUT AND CONTROL / P* / PDW8210 EQU * / " P DATA DAMU05,/8000,0,0,DRMUAD / P DATA 0 TTAB /
0x198ee8…19907c Dummy {f00=0x007c, f01=0x018e, f02=» P IFT MLIN05=1 0 P DATA 0 TIMER POINTER 0 P DATA 0 ACT TIMER 0 8 P DATA 0,0,0,0,0,0 0 R P RES 3 0 l P DATA DW8210,DW8209 0 z P DATA 0,0,0,0 0 P DATA 0,0,0,0,0 0 P DATA 0,0 0 P DATA LINE05+LINE05 0 P RES LINE05 0 P D
0x19907c…199210 Dummy {f00=0x007c, f01=0x0190, f02=» P XIF 1 P IFT MLIN05=1 1 P EJECT 1 & P* 1 4 P* DWT FOR LINE 05,INPUT 1 > P* 1 ^ PDW8209 EQU * 1 h " P DATA DAMI05,/8000,0,0,DRMIAD 1 | P DATA 0 TTAB 1 P DATA 0 W/A 1 P DATA 0 TASK QUEUE 1 P IFT MMUPAG=1 1 P DATA 0 USER E
0x199210…1993a4 Dummy {f00=0x007c, f01=0x0190, f02=»A 0,0,0,0,0,0 1 P RES 3 2 P DATA DW8210,DW8209 2 $ P DATA 0,0,0,0 2 @ P IFT MMUPAG=1 2 V , PMECB09 DATA 0,DCBF09,0,0,0,0 DRIVER ECB 2 l ( PDCBF09 RES TBUFL+1 MMU BUFFER INPUT 2 P XIF 2 P IFT MLIN06=1 2 P EJECT 2 P* 2 ( P* DWT
0x1993a4…199538 Dummy {f00=0x007c, f01=0x0190, f02=»A 2 P DATA 0 TASK QUEUE 3 P IFT MMUPAG=1 3 $ P DATA 0 USER ECB 3 : P DATA MECB12 DRIVER ECB 3 R P XIF 3 r P IFT MLIN06=1 3 ~ P DATA 0 TIMER POINTER 3 P DATA 0 ACT TIMER 3 P DATA 0,0,0,0,0,0 3 P RES 3 3 P DATA DW8212,DW8211
0x199538…1996cc Dummy {f00=0x007c, f01=0x0190, f02=»F 3 , PMECB12 DATA 00,DCBF12,0,0,0,0 DRIVER ECB 4 PDCBF12 RES TBUFL+1 4 : P XIF 4 T P IFT MLIN06=1 4 ` P EJECT 4 v P* 4 P* DWT FOR LINE06,INPUT 4 P* 4 PDW8211 EQU * 4 " P DATA DAMI06,/8000,0,0,DRMIAD 4 P DATA 0 TTAB 4 P DAT
0x1996cc…199860 Dummy {f00=0x007c, f01=0x0190, f02=» MLIN06=1 4 P DATA 0 TIMER POINTER 5 P DATA 0 ACT TIMER 5 0 P DATA 0,0,0,0,0,0 5 J P RES 3 5 d P DATA DW8212,DW8211 5 r P DATA 0,0,0,0 5 P IFT MMUPAG=1 5 , PMECB11 DATA 0,DCBF11,0,0,0,0 DRIVER ECB 5 ( PDCBF11 RES TBUFL+1 MMU BUFFER
0x199860…1999f4 (1, 362) Dummy {f00=0x007d, f01=0x0190, f02=» * 5 " P DATA DAMU07,/8000,0,0,DRMUAD 6 P DATA 0 TTAB 6 0 P DATA 0 W/A 6 D P DATA 0 TASK QUEUE 6 X P IFT MMUPAG=1 6 r P DATA 0 USERECB 6 P DATA MECB14 DRIVER ECB 6 P XIF 6 P IFT MLIN07=1 6 P DATA 0 TIMER POINTER 6 P DATA
0x1999f4…199b88 Dummy {f00=0x007d, f01=0x0190, f02=»ATA 0,0 6 P DATA LINE07+LINE07 7 P RES LINE07 7 , P DATA /FFFF,/FFFF 7 @ P IFT MMUPAG=1 7 Z , PMECB14 DATA 0,DCBF14,0,0,0,0 DRIVER ECB 7 p PDCBF14 RES TBUFL+1 7 P XIF 7 P IFT MLIN07=1 7 P EJECT 7 P* 7 P* DWT FOR LINE 07,IN
0x199b88…199d1c Dummy {f00=0x007d, f01=0x0190, f02=»UE 7 P IFT MMUPAG=1 8 P DATA 0 USER ECB 8 P DATA MECB13 DRIVER ECB 8 8 P XIF 8 X P IFT MLIN07=1 8 d P DATA 0 TIMER POINTER 8 z P DATA 0 ACT TIMER 8 P DATA 0,0,0,0,0,0 8 P RES 3 8 P DATA DW8214,DW8213 8 P DATA 0,0,0,0 8
0x199d1c…199eb0 Dummy {f00=0x007d, f01=0x0190, f02=»LIN08=1 8 P EJECT 9 P* 9 ( P* DWT FOR LINE 08,OUTPUT AND CONTROL 9 ( P* 9 T PDW8216 EQU * 9 ^ " P DATA DAMU08,/8000,0,0,DRMUAD 9 r P DATA 0 TTAB 9 P DATA 0 W/A 9 P DATA 0 TASK QUEUE 9 P IFT MMUPAG=1 9 P DATA 0 USER ECB 9 P
0x199eb0…19a044 Dummy {f00=0x007d, f01=0x018e, f02=»0,0 9 P RES 3 : P DATA DW8216,DW8215 : P DATA 0,0,0,0 : 6 P DATA 0,0,0,0,0 : L P DATA 0,0 : d P DATA LINE08+LINE08 : v P RES LINE08 : P DATA /FFFF,/FFFF : P IFT MMUPAG=1 : , PMECB16 DATA 0,DCBF16,0,0,0,0 DRIVER ECB : ( PDC
0x19a044…19a1d8 Dummy {f00=0x007d, f01=0x0190, f02=» : PDW8215 EQU * ; " P DATA DAMI08,/8000,0,0,DRMIAD ; P DATA 0 TTAB ; B P DATA 0 W/A ; V P DATA 0 TASK QUEUE ; j P IFT MMUPAG=1 ; P DATA 0 USER ECB ; P DATA MECB15 DRIVER ECB ; P XIF ; P IFT MLIN08=1 ; P DATA 0 TIMER POINTE
0x19a1d8…19a36c Dummy {f00=0x007d, f01=0x0190, f02=»G=1 ; , PMECB15 DATA 0,DCBF15,0,0,0,0 DRIVER ECB < ( PDCBF15 RES TBUFL+1 MMU BUFFER INPUT < < P XIF < h P IFT MLIN09=1 < t P EJECT < P* < ( P* DWT FOR LINE 09,OUTPUT AND CONTROL < P* < PDW8218 EQU * < " P DATA DAMU09,/8000,0,0,DRMUA
0x19a36c…19a500 Dummy {f00=0x007d, f01=0x0190, f02=»RIVER ECB < P XIF = P IFT MLIN09=1 = P DATA 0 TIMER POINTER = 4 P DATA 0 ACT TIMER = R P DATA 0,0,0,0,0,0 = l P RES 3 = P DATA DW8218,DW8217 = P DATA 0,0,0,0 = P DATA 0,0,0,0,0 = P DATA 0,0 = P DATA LINE09+LINE09 =
0x19a500…19a694 (1, 363) Dummy {f00=0x007d, f01=0x0190, f02=»+1 MMUBUFFER OUTPUT = P XIF > P IFT MLIN09=1 > ( P EJECT > > P* > L P* DWT FOR LINE09,INPUT > V P* > t PDW8217 EQU * > ~ " P DATA DAMI09,/8000,0,0,DRMIAD > P DATA 0 TTAB > P DATA 0 W/A > P DATA 0 TASK QUEUE > P IFT MMUPAG=1
0x19a694…19a828 Dummy {f00=0x007d, f01=0x0190, f02=»ACT TIMER > P DATA 0,0,0,0,0,0 ? P RES 3 ? , P DATA DW8218,DW8217 ? : P DATA 0,0,0,0 ? V P IFT MMUPAG=1 ? l , PMECB17 DATA 0,DCBF17,0,0,0,0 DRIVER ECB ? ( PDCBF17 RES TBUFL+1 MMU BUFFER INPUT ? P XIF ? P IFT MLIN10=1 ? P EJECT ?
0x19a828…19a9bc Dummy {f00=0x007d, f01=0x018e, f02=»TTAB ? P DATA 0 W/A @ P DATA 0 TASK QUEUE @ P IFT MMUPAG=1 @ : P DATA 0 USER ECB @ P P DATA MECB20 DRIVER ECB @ h P XIF @ P IFT MLIN10=1 @ P DATA 0 TIMER POINTER @ P DATA 0 ACT TIMER @ P DATA 0,0,0,0,0,0 @ P RES 3 @
0x19a9bc…19ab50 Dummy {f00=0x007d, f01=0x0190, f02=» @ P DATA /FFFF,/FFFF A P IFT MMUPAG=1 A " , PMECB20 DATA 0,DCBF20,0,0,0,0 DRIVER ECB A 8 ( PDCBF20 RES TBUFL+1 MMUBUFFER OUTPUT A h P XIF A P IFT MLIN10=1 A P EJECT A P* A P* DWT FOR LINE 10,INPUT A P* A PDW8219 EQU * A
0x19ab50…19ace4 Dummy {f00=0x007d, f01=0x018e, f02=»0 USER ECB A P DATA MECB19 DRIVER ECB B P XIF B 2 P IFT MLIN10=1 B > P DATA 0 TIMER POINTER B T P DATA 0 ACT TIMER B r P DATA 0,0,0,0,0,0 B P RES 3 B P DATA DW8220,DW8219 B P DATA 0,0,0,0 B P IFT MMUPAG=1 B , PMECB19 DATA
0x19ace4…19ae78 Dummy {f00=0x007d, f01=0x0190, f02=» ( P* DWT FOR LINE 11,OUTPUT AND CONTROL C P* C 0 PDW8222 EQU * C : " P DATA DAMU11,/8000,0,0,DRMUAD C N P DATA 0 TTAB C t P DATA 0 W/A C P DATA 0 TASK QUEUE C P IFT MMUPAG=1 C P DATA 0 USER ECB C P DATA MECB22 DRIVER ECB C P XIF
0x19ae78…19b00c Dummy {f00=0x007d, f01=0x0190, f02=»22,DW8221 C P DATA 0,0,0,0 D P DATA 0,0,0,0,0 D ( P DATA 0,0 D @ P DATA LINE11+LINE11 D R P RES LINE11 D n P DATA /FFFF,/FFFF D P IFT MMUPAG=1 D , PMECB22 DATA 0,DCBF22,0,0,0,0 DRIVER ECB D ( PDCBF22 RES TBUFL+1 MMUBUFFER OUTPUT D
0x19b00c…19b1a0 Dummy {f00=0x007d, f01=0x0190, f02=»11,/8000,0,0,DRMIAD D P DATA 0 TTAB E P DATA 0 W/A E 0 P DATA 0 TASK QUEUE E D P IFT MMUPAG=1 E ^ P DATA 0 USER ECB E t P DATA MECB21 DRIVER ECB E P XIF E P IFT MLIN11=1 E P DATA 0 TIMER POINTER E P DATA 0 ACT TIMER E P D
0x19b1a0…19b334 (1, 364) Dummy {f00=0x007d, f01=0x0190, f02=»,0 DRIVER ECB E v ( PDCBF21 RES TBUFL+1 MMU BUFFER INPUT F P XIF F B P IFT MLIN12=1 F N P EJECT F d P* F r ( P* DWT FOR LINE 12,OUTPUT AND CONTROL F | P* F PDW8224 EQU * F " P DATA DAMU12,/8000,0,0,DRMUAD F P DATA 0 TTAB F P DATA 0
0x19b334…19b4c8 Dummy {f00=0x007d, f01=0x018e, f02=»N12=1 F P DATA 0 TIMER POINTER G P DATA 0 ACT TIMER G , P DATA 0,0,0,0,0,0 G F P RES 3 G ` P DATA DW8224,DW8223 G n P DATA 0,0,0,0 G P DATA 0,0,0,0,0 G P DATA 0,0 G P DATA LINE12+LINE12 G P RES LINE12 G P DATA /FFFF,/F
0x19b4c8…19b65c Dummy {f00=0x007d, f01=0x0190, f02=» P IFT MLIN12=1 H P EJECT H P* H ( P* DWT FOR LINE 12,INPUT H 2 P* H R PDW8223 EQU * H " P DATA DAMI12,/8000,0,0,DRMIAD H p P DATA 0 TTAB H P DATA 0 W/A H P DATA 0 TASK QUEUE H P IFT MMUPAG=1 H P DATA 0 USER ECB H P D
0x19b65c…19b7f0 Dummy {f00=0x007d, f01=0x0190, f02=»0 H P RES 3 I P DATA DW8224,DW8223 I P DATA 0,0,0,0 I 4 P IFT MMUPAG=1 I J , PMECB23 DATA 0,DCBF23,0,0,0,0 DRIVER ECB I ` ( PDCBF23 RES TBUFL+1 MMU BUFFER INPUT I P XIF I P XIF I P IFF HILINO=12 I P EJECT I P* I P* DUMM
0x19b7f0…19b984 Dummy {f00=0x007d, f01=0x018e, f02=» EQU * I PDW8222 EQU * J PIH8221 EQU * J " PIH8222 EQU * J 6 P IFF HILINO=10 J J PDW8219 EQU * J ` PDW8220 EQU * J t PIH8219 EQU * J PIH8220 EQU * J P IFF HILINO=9 J PDW8217 EQU * J PDW8218 EQU * J PIH8217 EQU * J PIH8218
0x19b984…19bb18 Dummy {f00=0x007d, f01=0x0190, f02=» PDW8213 EQU * K PDW8214 EQU * K PIH8213 EQU * K , PIH8214 EQU * K @ P IFF HILINO=6 K T PDW8211 EQU * K j PDW8212 EQU * K ~ PIH8211 EQU * K PIH8212 EQU * K P IFF HILINO=5 K PDW8209 EQU * K PDW8210 EQU * K PIH8209 EQU * K
0x19bb18…19bcac Dummy {f00=0x007d, f01=0x0190, f02=»O=3 K PDW8205 EQU * L PDW8206 EQU * L PIH8205 EQU * L 4 PIH8206 EQU * L H P IFF HILINO=2 L PDW8203 EQU * L r PDW8204 EQU * L PIH8203 EQU * L PIH8204 EQU * L P ST P,INTSAV L P ABL ILLINT L P XIF L P EJECT L P* L
0x19bcac…19be40 Dummy {f00=0x007d, f01=0x0190, f02=» DATA DEVIND L $ PDRMIAD DATA MIACT DWT REFERENCE M P* M < ( P DATA ABORT ADDRESS OF ABORT ROUTINE M F P DATA 0,0 DC:MIN HEADER =4 M r PMIACT EQU * M P SUK A7,2 M P RF(Z) RD ORDER 01:READ M $ PMIA100 ABL DISIOE ILLEGAL ORDER M P* M
0x19be40…19bfd4 (1, 365) Dummy {f00=0x007d, f01=0x0190, f02=»OK? M | " P ABL(G) IL:LEN ILLEGAL LENGTH N P XIF N 2 P LD A1,DWTST,A6 GET STATUS N > P LDR A2,A1 N ` P ANK A1,1 N r P RF(NZ) RD300 LINE OPENED N PRD100 EQU * N ( P LDKL A1,LINSTE RC:WRONG STATUS LINE N ( PRD200 CF A15,TENDIO COMPLETE REQUE
0x19bfd4…19c168 Dummy {f00=0x007d, f01=0x0190, f02=»ROL REQUESTS N ~ P* O P* O P* ACTIVATION BLOCK O ( P* O B P DATA BUFLEN O L P DATA DEVIND O ` $ PDRMUAD DATA MUACT DWT REFERENCE O t P DATA ABORT ABORT ROUTINE O P DATA 0,0 DC:MIN HEADER =4 O P* O PMUACT EQU * O P LDR A7,A7
0x19c168…19c2fc Dummy {f00=0x007d, f01=0x018e, f02=»DER 22,OPEN LINE O P SUK A7,2 P $ P ABL(Z) CLIN ORDER 24,CLOSE LINE P * P SUK A7,2 P R & P ABL(Z) CLIN ORDER 26 HALT POLLING P d P SUK A7,1 P ( P ABL(Z) CLIN ORDER 27,START POLLING P P SUK A7,/37-/27 P P ABL(Z) OTC ORDER 37,OPEN TC P P
0x19c2fc…19c490 Dummy {f00=0x007d, f01=0x0190, f02=» P z P* Q PTEST EQU * Q P LD A1,DWTST,A6 GET STATUS Q $ P ANK A1,1 Q F " P RB(NZ) RD100 LINE NOT CLOSED Q X P ABL TST000 Q ~ P EJECT Q P* Q P* OPEN LINE Q P* Q POLIN EQU * Q P LD A1,DWTST,A6 GET STATUS Q P ANK A1,1 Q
0x19c490…19c624 Dummy {f00=0x007d, f01=0x0190, f02=» EQU * Q P CM PLIST,A1 DELETE POLLIST R P SUK A1,2 R 2 P SUK A2,2 R D & P RB(NZ) OLI100 NOT END OF POLLIST R V P CM PACT,A6 R P CM PINACT,A6 R P LD A7,DWTSAV+8,A6 R POLI105 EQU * R P CF A5,HALTIN R P LDK A2,CIDISC R " P CF
0x19c624…19c7b8 Dummy {f00=0x007d, f01=0x0190, f02=»DK A1,1 R * P ORS A1,DWTST,A6 INDICATE LINE OPENED S P ORS A1,DWTST,A7 S > P LD A1,DWTATP,A6 S V $ P RF(NZ) OLI120 RECOVERY POWER ON S n P LDK A1,0 S $ P CF A15,TENDIO COMPLETE REQUEST S POLI120 EQU * S P LDR A1,A6 S P LDR A4,A6 S P
0x19c7b8…19c94c Dummy {f00=0x007d, f01=0x018e, f02=»IMACT S & P ABL BMM ENTER BASIS RECEIVE MODE T P* T 8 P* ACTIVITY TIME-OUT T B P* T ^ POLI159 EQU * =1 T h P LDR A6,A1 T & POLI160 EQU * MODEM FAULT ENTRY =2 T P LD A7,DWTSAV+8,A6 T P LD A2,DWTATP,A6 T P ABL(Z) OLI161 T P CM*
0x19c94c…19cae0 Dummy {f00=0x007d, f01=0x0190, f02=» POLI161 EQU * U P LD A4,PLIST,A6 U P LDKL A3,/8000 U 0 P LDR A2,A6 U F P ADR A2,A4 U X POLI162 EQU * U j P ORS A3,PLIST,A2 U ~ P SUK A2,4 U P SUK A4,4 U P RB(P) OLI162 U P LDK A5,STB U P ADR A5,A6 RELOAD STACK BAS U P
0x19cae0…19cc74 (1, 366) Dummy {f00=0x007e, f01=0x0190, f02=» CF A5,STHCIN DISCONNECT MODEM U , P LDK A1,MODNOP RC:MODEM NOT OPERATIONAL V & P LD A8,DWTECB,A6 V V P RF(Z) OLI165 V n P CM ECBRC,A8 V P CF A15,TENDIO V POLI165 EQU * V P LDR A6,A7 V P LD A8,DWTECB,A6 V P RF(Z) OLI170 V P CM EC
0x19cc74…19ce08 Dummy {f00=0x007e, f01=0x0190, f02=» EQU * V P LD A1,DWTST,A6 GET STATUS W P ANK A1,1 W 0 & P ABL(Z) RD100 LINE ALREADY CLOSED W B P ABL TDISP W l P EJECT W ~ P* W P* ORDER 37:OPEN TC W P* W POTC EQU * W P LD A7,DWTSAV+8,A6 W P LD A1,DWTST,A7 W P LDR A2,
0x19ce08…19cf9c Dummy {f00=0x007e, f01=0x0190, f02=» ADDRESS W x P SUK A2,/5A-/41 X P ABL(NP) TDISP X ( POTC100 EQU * X > & P LDKL A1,INVTCA RC:INVALID ADDRESS X R P RB OLI170 X | P EJECT X P* X P* ORDER 06 WRITE X P* X PWRT EQU * X P IFT MMUPAG=1 X & P LD A2,ECBRL,A8 REQUES
0x19cf9c…19d130 Dummy {f00=0x007e, f01=0x018e, f02=»A8 TCA X PWRT105 EQU * Y P LD A1,DWTST,A6 STATUS Y " P ANK A1,1 Y @ P ABL(Z) RD100 SEQ ERROR Y R P ANK A2,/7F Y r ( P CF A15,FINDTC SEARCH TCA IN POLLIST Y $ P RF(P) WRT130 TC NOT IN POLLIST Y P RF(N) WRT110 TCA INACTIVE Y * P SC A4,DWTOR
0x19d130…19d2c4 Dummy {f00=0x007e, f01=0x0190, f02=» P LD A1,DWTOR,A6 Z P ANK A1,/FF Z P SUK A1,/38 CLOSE TC? Z 0 P RB(Z) WRT107 YES Z N " P LDK A1,TCINAC RC:TC INACTIVE Z h P ABL DISEND Z PWRT130 EQU * Z P LDKL A1,TCNLST Z P ABL DISEND Z P* Z P* ORDER 38:CLOSE TC Z P
0x19d2c4…19d458 Dummy {f00=0x007e, f01=0x0190, f02=»**************************** Z b P* [ $ P* ILLEGAL LENGTH [ . P* [ F N P************************************************************************* [ P PIL:LEN EQU * [ P LDKL A1,INCLEN INC. LENGTH [ P ABL DISEND DISPATCHER [ P EJECT [ N P**
0x19d458…19d5ec Dummy {f00=0x007e, f01=0x0190, f02=»************************************************************ [ PABORT EQU * D $ P LD A2,DWTTP,A6 TIMER POINTER =8 X " P RF(Z) AB:10 NO TIMER RUNNING P CM* DWTTP,A6 CLEAR TIMER $ P CM DWTTP,A6 CLEAR TIMER POINTER PAB:10 EQU * PAB:R
0x19d5ec…19d780 Dummy {f00=0x007e, f01=0x0190, f02=»DC82ON EQU * $ P LD A3,DWMTAB DWT'S TABLE LENGTH ] PDRM000 EQU * ] < P SUK A3,2 ] P P RF(Z) DRM300 END OF TABLE ] b P LD A6,DWMTAB,A3 DWT ADDRESS ] P LD A1,DWTST,A6 ] P LDR A2,A1 ] P LDR* A4,A6 DEVICE ADDRESS ] P ANK A2,1 STATUS ]
0x19d780…19d914 (1, 367) Dummy {f00=0x007e, f01=0x0190, f02=» ] P RB(NZ) DRM000 NO REQUEST ^ P LD A8,DWTECB,A6 ^ * P LD A2,ECBEL,A8 ^ B P RB(Z) DRM000 NO MESSAGE ^ Z $ P CF A15,TENDIO COMPLETE REQUEST ^ z P RB DRM000 ^ PDRM200 EQU * ^ P ANK A4,/10 ^ P RB(Z) DRM000 INPUT DWT ^ P ANKL A1,/80
0x19d914…19daa8 Dummy {f00=0x007e, f01=0x018e, f02=»DRM000 NO ^ PDRM250 EQU * _ P LD A7,DWTSAV+8,A6 _ & P LDK A4,DWTTP _ @ P ADR A4,A7 _ V P LDR* A1,A4 _ h P RF(Z) DRM275 _ | P CM* DWTTP,A7 _ PDRM275 EQU * _ P LDR A1,A6 _ P CF A15,SETIMP _ P DATA DRM400,TIMMRY _ P RB DRM0
0x19daa8…19dc3c Dummy {f00=0x007e, f01=0x0190, f02=» P CM DWTTP,A7 ` P LDK A5,STB RELOAD STACK =1 ` P ADR A5,A6 ` < P ABL OLI105 OPEN LINE ` N P EJECT ` l P* ` z P* ` P* PROCEDURE CONTROL PART ` P* ` P* BMM:BASIS RECEIVE MODE ` P* ` PBMM EQU * ` P LDK A5,STB `
0x19dc3c…19ddd0 Dummy {f00=0x007e, f01=0x0190, f02=»STATUS ` v P ABL(NN) POLL READ REQUEST a PBMM10 EQU * a 0 P* a D P* DISPATCHING LOOP=TIMER a N P* a n P LDR A1,A6 a x P CF A15,SETIME a P DATA BMM15,1 a P ABL TDISP a PBMM15 EQU * a P LDR A6,A1 a P LD A7,DWTSAV+8,A6 a P
0x19ddd0…19df64 Dummy {f00=0x007e, f01=0x0190, f02=»CT a P* b . P* OUTPUT: PRFORM OUPUT OR CONTROL REQUEST b P* b F POUTPUT EQU * b P $ P LD A8,DWTECB,A6 GET ECB ADDRESS b d P ST A8,DWTSAV+10,A6 b 2 P ST A8,DWTSAV+10,A7 LOAD A8,INTERRUPT REGISTER b P LD A1,DWTOR,A6 GET ORDER b P ANK A1,
0x19df64…19e0f8 Dummy {f00=0x007e, f01=0x0190, f02=»1,2 b ( P RF(Z) OUT200 ORDER 26:HALT POLLING c P SUK A1,1 c 8 ( P RF(Z) OUT350 ORDER 27:START POLLING c J P SUK A1,/10 c v " P RF(Z) OUT100 ORDER 37:OPEN TC c P EJECT c P* c P* ORDER 38:CLOSE TC c P* c * P LC A3,DWTORO,A6 GET INDEX
0x19e0f8…19e28c Dummy {f00=0x007e, f01=0x018e, f02=»A3 c P LDR A1,A3 d P SUK A1,2 d P CM PLIST,A1 d . P LDK A1,0 d B $ P CF A15,TENDIO COMPLETE REQUEST d T P* d | * P* DISCONNECT TC AFTER COMPLETE REQUEST d P* d P LDR A1,A2 d P ANK A1,/7F d P ECR A1,A1 d P ORK A1,TDISC d
0x19e28c…19e420 Dummy {f00=0x007e, f01=0x0190, f02=» P* e POUT100 EQU * e P LD A2,ECBCW,A8 GET TCA e " " P CF A15,FINDTC ALREADY PRESENT e B P RF(P) OUT105 NO e h " P RF OUT300 TC ALREADY IN LIST e POUT105 EQU * e P LDK A2,0 e & P CF A15,FINDTC SEARCH EMPTY PLACE e P RF(Z) OUT110 e
0x19e420…19e5b4 (1, 368) Dummy {f00=0x007e, f01=0x0190, f02=»ST e l P LD A1,ECBCW,A8 GET TCA f $ P ORKL A1,/8000 SET TCA INACTIVE f * & P STR A1,A3 INSERTR TCA IN POLLIST f R " P LDR A2,A3 CLEAR COUNTERS AREA f | P SUK A2,2 f P CMR A2 f P LDKL A2,RTYLIM f P ST A2,DWTRTY,A6 f P* f 4 P* SEND SN
0x19e5b4…19e748 Dummy {f00=0x007e, f01=0x018e, f02=»CR A1,A1 f $ P ORK A1,TSNRM MERGE WITH C-FIELD g POUT111 EQU * g 8 P CF A5,TRUF g L POUT112 EQU * g ` P CF A5,RDUSTI WAIT FOR REPLY g t P LDR A2,A2 TIME-OUT? g P RF(N) OUT130 YES g P* g , P* REPLY RECEIVED,TEST IF UA AS EXPECTED g P
0x19e748…19e8dc Dummy {f00=0x007e, f01=0x018e, f02=» g P LD A3,ECBCW,A8 h P ANK A3,/7F h * P LC A2,DWTORI,A6 GET INDEX IN POLLIST h 4 P ANK A2,/FF h b P ADR A2,A6 h v P ADK A2,PLIST h P STR A3,A2 SET TC ACTIVE h P LD A1,PACT,A6 h $ P RF(NZ) OUT300 NOT FIRST IN LIST h P ST A2,PACT,
0x19e8dc…19ea70 Dummy {f00=0x007e, f01=0x018e, f02=» h j P LD A1,PINACT,A6 i $ P RF(NZ) OUT150 NOT FIRST IN LIST i P LC A2,DWTORI,A6 GET INDEX i H P ANK A2,/FF i j P ADR A2,A6 i ~ P ADK A2,PLIST i & P ST A2,PINACT,A6 INDICATE INACTIVE i POUT150 EQU * i " P LDK A1,TCINAC RC:TC INACTIVE i
0x19ea70…19ec04 Dummy {f00=0x007e, f01=0x0190, f02=» i P ORS A1,DWTST,A7 NO POLLING j & P LDKL A1,POLHLT RC: POLLING HALTED j , P LDR A6,A7 j V ( P CF A15,TENDIO COMPLETE READ REQUEST j h P LD A6,DWTSAV+6,A7 RELOAD A6 j POUT300 EQU * j P LDK A1,0 j 0 POUT310 CF A15,TENDIO COMPLETE OUTPUT RQUES
0x19ec04…19ed98 Dummy {f00=0x007e, f01=0x0190, f02=»2 j , P RB(Z) OUT300 POLLING ALREADY PERMITTED k P XRS A1,DWTST,A7 k : P RB OUT300 k R P EJECT k d P* k r P* ORDER /24 CLOSE LINE k | P* k POUT400 EQU * k P CF A5,HALTIN k P LDK A2,CIDISC k P CF A5,STHCIN k P LD A1,DWTATP,
0x19ed98…19ef2c Dummy {f00=0x007e, f01=0x0190, f02=» SC A1,DWTST+1,A6 k P SC A1,DWTST+1,A7 l * P CF A15,TENDIO COMPLETE OUTPUT REQUEST l 4 P LDKL A1,LINSTE l b P LDR A6,A7 l z P ABL DISEND COMPLETE INPUT l P EJECT l P* l P* l P* PROCEDURE TRANSFER PART l P* POLL: l * P*
0x19ef2c…19f0c0 Dummy {f00=0x007e, f01=0x018e, f02=»A8,DWTSAV+10,A7 l P CM ECBRC,A8 m P CM ECBEL,A8 m , P ANK A1,2 m @ P RF(Z) POL100 m R " P LDKL A1,POLHLT RC:POLL HALTED m h P RF POL225 m PPOL100 EQU * m P LD A1,PACT,A6 m ( P RF(Z) POL130 NO ACTIVE TCA PRESENT m PPOL110 EQU * m
0x19f0c0…19f254 (1, 369) Dummy {f00=0x007e, f01=0x0190, f02=» m P RB(NZ) POL110 INACTIVE TCA n P LDK A1,PLIST END OF POLLIST n , P ADR A1,A6 n P PPOL120 EQU * n b P ST A1,PACT,A6 UPDATE PACT n v PPOL130 EQU * n P LD A1,PINACT,A6 n ( P ABL(Z) BMM10 NO ACTIVE TC PRESENTS n PPOL132 EQU * n & P ADK
0x19f254…19f3e8 Dummy {f00=0x007e, f01=0x0190, f02=»NACTIVE TC n | P ADK A3,1 o $ P RF(NZ) POL138 INACTIVE TC FOUND o $ & P LDK A1,PLIST END OF LIST REACHED o L P ADR A1,A6 o v P RB POL132 o PPOL134 EQU * o P LDR* A3,A1 o $ P RF(N) POL140 INACTIVE TC FOUND o ( P CM PINACT,A6 NO INACTIVE IN P
0x19f3e8…19f57c Dummy {f00=0x007e, f01=0x018e, f02=»A6 o P SUK A1,PLIST p P SC A1,DWTORI,A6 p P LDK A1,/FF p 8 ( P SC A1,DWTOR,A7 INDICATE INACTIVE TC p L P LDKL A2,-1 NO RECOVERY p x P RF POL200 p PPOL150 EQU * p P ST A1,PACT,A6 UPDATE PACT p P SUR A1,A6 p P SUK A1,PLIST p * P
0x19f57c…19f710 Dummy {f00=0x007e, f01=0x018e, f02=» p ( P ST A2,DWTRTY,A6 RESET RETRY COUNTER q & P SC* A3,ECBBA,A8 STORE TC ADDRESS q 4 PPOL210 EQU * q ^ P LDR A1,A3 GET TCA q r P ANK A1,/FF q P ECR A1,A1 TCA IN LEFT BYTE q P ORK A1,TRRP q P* q P* SEND POLL q P* q P CF A5,T
0x19f710…19f8a4 Dummy {f00=0x007e, f01=0x0190, f02=» P* TIME OUT r P* r PPOL211 EQU * r P IM DWTRTY,A6 r 4 P RF(NN) TINACT r J 0 P LC A3,SENDF,A6 LIMIT NOT REACHED TRY AGAIN r ` P RB POL210 r P EJECT r P* r P* UPDATE POLL LIST r P* r PTINACT EQU * r P LD A1,DWTOR,A7 r
0x19f8a4…19fa38 Dummy {f00=0x007e, f01=0x0190, f02=» r r P ST* A3,PACT,A6 s ( P SC* A3,ECBBA,A8 STORE TC ADDRESS =1 s P LD A2,PINACT,A6 s L P RF(NZ) POL224 s d P LD A1,PACT,A6 s z P ST A1,PINACT,A6 s PPOL224 EQU * s " P LDK A1,TCINAC RC:TC INACTIVE s PPOL225 EQU * s P LDR A6,A7 s $ P
0x19fa38…19fbcc Dummy {f00=0x007e, f01=0x0190, f02=» P* t & P* POLL OK,ANSWER RECEIVED COULD BE t 6 P* ** I-FRAME :INFORMATION+FINAL BIT t 8 , P* ** RR :NO TRAFFIC t r & P* ** RNR :BUSY t 0 P* ** ROL :REQUEST ON LINE t 0 P*
0x19fbcc…19fd60 Dummy {f00=0x007e, f01=0x0190, f02=» " P RF(Z) POL280 I-FRAME-DETECTED u P* u * P LDR A1,A2 u 4 P ANK A1,REMRR u F P SUK A1,MRR u P RF(Z) POL270 RR DETECTED u p P* u P LDR A1,A2 u P ANK A1,REMRR u P SUK A1,MRNR u P RF(Z) POL260 RNR DETECTED u P* u P LDR
0x19fd60…19fef4 (1, 370) Dummy {f00=0x007f, f01=0x0190, f02=» P SUK A1,RECMDR v 0 P RB(NZ) POL211 DISCONNECT IF INVALID ANSWER v P LC A3,DWTORI,A6 v N P ANK A3,/FF v f P ADR A3,A6 v z * P ADK A3,PLIST INIT INDEX IN POLL LIST v P RF SOFTDI v P EJECT v P* v P* RNR RECEIVED v P* v PPO
0x19fef4…1a0088 Dummy {f00=0x007f, f01=0x0190, f02=» LD A1,DWTST,A7 WRONG N(R)? v P ANKL A1,BIT12 w $ P RF(Z) POL264 NO w : PSOFTDI EQU * w R P LC A3,DWTORI,A6 =1 w f P ANK A3,/FF w P ADR A3,A6 w ( P ADK A3,PLIST RESTORE P-LIST POINTER w P LDR A4,A3 w P SUK A4,2 w P LDK A1,0 w
0x1a0088…1a021c Dummy {f00=0x007f, f01=0x018e, f02=»ANSMIT SNRM w PSOFTD1 CF A5,RDUSTI x P LDR A2,A2 TIME-OUT x 0 P RB(N) TINACT NO x L PPOL262 EQU * x d P RF TACT OK,ACTIVE TENDANCE x x PPOL264 EQU * x P LD A1,DWTST,A7 x P ANKL A1,BIT13 x P RF(NZ) POL265 RNR x " P LC A3,DWTORI,A6
0x1a021c…1a03b0 Dummy {f00=0x007f, f01=0x018e, f02=» P RF TACT RR y PPOL265 EQU * y P LC A3,DWTORI,A6 SET INDEX y , P ANK A3,/FF y N P ADR A3,A6 y b P ADK A3,PLIST y t P LDR A1,A3 INDEX y P SUK A1,2 y P LDKL A2,BIT0 y P ORRS A2,A1 SET BUSY =5 y P RF TACT y P EJECT y P
0x1a03b0…1a0544 Dummy {f00=0x007f, f01=0x0190, f02=» y P* z , P* HERE TO COMPLETE I/O AND UPDATE PLIST z P* ACTIVE TENDENCE z B P* z ` PTACT EQU * z j P LD A1,DWTOR,A7 z | " P ABL(NN) BMM10 TC NOT INACTIVE z PTACT1 EQU * z P LDK A3,/FF =1 z P ANS* A3,PINACT,A6 TC ACTIVE z
0x1a0544…1a06d8 Dummy {f00=0x007f, f01=0x0190, f02=»IVE z x P ABL POL225 { P* { P EJECT { * P* { 8 P* I-FRAME DETECTED { B P* { ^ PPOL280 EQU * { h P CF A5,UPDCON { | P LD A1,DWTST,A7 GET STATUS { P ANKL A1,BIT12 WRONG N(R) ? { P RF(Z) POL281 NO { P* { 8 P* HERE EXEPTIO
0x1a06d8…1a086c Dummy {f00=0x007f, f01=0x0190, f02=»A1,BIT11 WRONG N(S) ? { P RF(Z) POL282 NO | " P RB TACT INDICATE ACTIVE ONLY | 6 P* | ( P* N(S) AND N(R) OK,COMPLETE REQUEST | f P* | PPOL282 EQU * | P LD A1,DWTOR,A7 | P RB(N) TACT1 TC INACTIVE | P LDK A1,0 | P ABL POL225 |
0x1a086c…1a0a00 Dummy {f00=0x007f, f01=0x0190, f02=» IF TC BUSY | z P* } * P LC A2,DWTORO,A6 GET INDEX IN POLLIST } P SC A2,DWTORI,A6 } L P ANK A2,/FF } d P ADR A2,A6 } x P SUK A2,2 } P ADK A2,PLIST-2 =1 } P LDR* A2,A2 GET STATUS TC } P ANKL A2,BIT0 BUSY ? } P RF(Z) WRITE1 NO }
0x1a0a00…1a0b94 (1, 371) Dummy {f00=0x007f, f01=0x018e, f02=» ABL BMM10 } P* ~ PWRITE1 EQU * ~ P LDKL A1,RTYLIM ~ 0 ( P ST A1,DWTRTY,A6 RESET RETRY COUNTER ~ H PWRT100 EQU * ~ t P LD A1,DWTST,A7 ~ " P RF(N) WRT200 NO READ REQUEST ~ P ANK A1,2 HALT POLLING ? ~ P RF(NZ) WRT200 YES ~ P* ~ (
0x1a0b94…1a0d28 Dummy {f00=0x007f, f01=0x0190, f02=» " P* READ WITH BUFFER FOR I-FRAME P* * PWRT020 EQU * 4 " P LD A8,DWTECB,A7 INPUT ECB =5 H P ST A8,DWTSAV+10,A7 n P CF A5,RDITI P LDR A2,A2 TIME-OUT P RF(NN) WRT050 NO PWRT021 EQU * ( P LD A8,DWTECB,A6 LOAD OUTPUT ECB
0x1a0d28…1a0ebc Dummy {f00=0x007f, f01=0x018e, f02=»3,ECBBA,A8 P ECR A3,A3 P ORR A1,A3 $ P CF A5,TRSF 6 P RB WRT020 WAIT FOR REPLY J P* l P* NO TIME-OUT v P* PWRT050 EQU * PWRT055 EQU * P LDR A1,A2 P ANK A1,REMI I-FRAME ? P RF(Z) WRT060 P EJE
0x1a0ebc…1a1050 Dummy {f00=0x007f, f01=0x018e, f02=» P RF(Z) WRT080 RR P* P LDR A1,A2 & P ANK A1,REMRR 8 P SUK A1,MRNR N P RF(Z) WRT070 RNR b P* | P LDR A1,A2 P SUK A1,RECMDR P RF(Z) WRT090 CMDR P* * P* HERE INVALID FRAME HAS BEEN RECEIVED P*
0x1a1050…1a11e4 Dummy {f00=0x007f, f01=0x018e, f02=» P LD A1,DWTST,A7 GET STATUS P ANKL A1,BIT12 & P RF(Z) WRT061 NO WRONG N(R) < P RF INPDIS RESTART ` P* z PWRT061 EQU * P LD A1,DWTST,A7 P ANKL A1,BIT11 WRONG N(S) ? P RF(Z) WRT062 NO ( P ABL POL226 INDICATE WITH NE
0x1a11e4…1a1378 Dummy {f00=0x007f, f01=0x0190, f02=» PWRT070 EQU * P LDKL A1,BIT13 P ORS A1,DWTST,A7 RNR . PWRT071 EQU * J P CF A5,UPDCON ^ P LD A1,DWTST,A7 t P ANKL A1,BIT12 WRONG N(R) ? P RF(Z) WRT072 P RF INPDIS YES P* PWRT072 EQU * * P LC A2,DWTORI,
0x1a1378…1a150c Dummy {f00=0x007f, f01=0x018e, f02=» v P ANKL A1,BIT13 P RF(NZ) WRT073 P RF WRT074 GO ON,RR 4 P* P PWRT073 EQU * Z P LDKL A1,BIT0 n P ORRS A1,A2 P ABL POL226 PWRT074 EQU * P LDKL A1,/7FFF P ANRS A1,A2 P ABL POL226 P* P
0x1a150c…1a16a0 Dummy {f00=0x007f, f01=0x0190, f02=» P EJECT P* P* NO READ REQUEST PRESENT $ P* SEND I-FRAME + RNR + POLL-BIT > P* f PWRT200 EQU * p P LDK A1,1 P CF A5,TRI PWRT201 EQU * P CF A5,RDUSTI P LDR A2,A2 $ P RF(N) WRT300 TIME-OUT DETECTED
0x1a16a0…1a1834 (1, 372) Dummy {f00=0x007f, f01=0x0190, f02=» P LC* A3,ECBBA,A8 P ECR A3,A3 P ORR A1,A3 2 P CF A5,TRSF D P RB WRT201 X P* j 0 P* HERE ON RETRY EXPIRATION.COMPLETE RTEQUEST t P* SET TC INACTIVE P* PWRT400 EQU * P CM ECBRC,A8 " P LDK A1,TCINAC RC:
0x1a1834…1a19c8 Dummy {f00=0x007f, f01=0x0190, f02=»IST r P ANK A2,/FF P ADR A2,A6 P ADK A2,PLIST 2 " P ORKL A3,/8000 SET TC INACTIVE H P STR A3,A2 n P LD A1,PINACT,A6 P RF(NZ) WRT402 =1 P LD A2,PACT,A6 P ST A2,PINACT,A6 PWRT402 EQU * =1 P CF A5,HALTIN
0x1a19c8…1a1b5c Dummy {f00=0x007f, f01=0x0190, f02=»RT400 INACTIVE TC * P LC A3,DWTORI,A6 GET INDEX IN POLLIST P ANK A3,/FF H P ADR A3,A6 P ADK A3,PLIST n P SUK A3,2 P LDK A1,0 P STR A1,A3 RESET COUNTERS P LC* A3,ECBBA,A8 P ANK A3,/7F P ECR A3,A3 P
0x1a1b5c…1a1cf0 Dummy {f00=0x007f, f01=0x0190, f02=»=1 ~ P ANK A2,/FF P CWK A2,REUA P RB(NE) INPDIS 2 P ABL BMM10 H P EJECT Z P* h P* INTERNAL SUBROUTINES r P* P* P* RESTITUTE COUNTERS P* PLOADCO EQU * * P LC A3,DWTORI,A6 GET INDEX IN POLLIST
0x1a1cf0…1a1e84 Dummy {f00=0x007f, f01=0x0190, f02=» ISOLATE VR P ST A1,VRS,A6 P LDR* A1,A3 * P SRL A1,3 > P ANKL A1,7 ISOLATE VS P P ST A1,VSS,A6 n P LDR* A1,A3 P SRL A1,6 ISOLATE LNR P ANKL A1,7 P ST A1,LNR,A6 P LDR* A1,A3 P SRL A1,9 $ P ANK
0x1a1e84…1a2018 Dummy {f00=0x007f, f01=0x0190, f02=»DATE j P* PUPDCON EQU * P CF A5,LOADCO * P LDR A1,A2 @ P ANK A1,1 R & P RF(NZ) UPD100 NOT I-FRAME NO N(S) d P LDR A1,A2 P SRL A1,1 P ANK A1,7 P CW A1,VRS,A6 CHECK N(S) P RF(NE) UPD080 NOT OK P LDKL
0x1a2018…1a21ac Dummy {f00=0x007f, f01=0x0190, f02=»ULO 7 ~ P RF UPD100 P* PUPD080 EQU * * " P LDKL A1,BIT11 SET WRONG N(S) > P ORS A1,DWTST,A7 d PUPD100 EQU * | P LDR A1,A2 P SRL A1,5 PICK OUT N(R) P ANK A1,7 " P LD A3,CPS,A6 GET CHECK-POINT P CW A3,LNR,A6
0x1a21ac…1a2340 Dummy {f00=0x007f, f01=0x0190, f02=»S SAVE LAST ACKED N(R) P* 2 P* HERE TRANSMISSION OK,COMPLETE WRITE REQUEST ( P* ^ P LDKL A1,NBIT12 h " P ANS A1,DWTST,A7 RESTORE N(R) P LDK A1,0 P CF A15,TENDIO , P CF A5,STORCO RESTORE POLLIST'S COUNTERS P RTN A5
0x1a2340…1a24d4 (1, 373) Dummy {f00=0x007f, f01=0x0190, f02=» v P ADS A4,CPS,A6 RESTORE CP P CW A1,LNR,A6 VALID N(R) ? * P RF(NE) UPD205 NO L P CF A5,STORCO f P ADK A5,4 UPDATE STACK =1 | " P LD A1,DWTST,A6 GET STATUS =5 P ABL(N) SOFTDI NO ORDER =5 P LD A1,DWTOR,A6 P ANK A1,/F
0x1a24d4…1a2668 Dummy {f00=0x007f, f01=0x0190, f02=»BL(Z) WRT400 INACTIVE TC P ABL WRT100 RESEND FRAME P* @ P* INDICATE WRONG N(R) J P* h PUPD205 EQU * r P LDKL A1,BIT12 P ORS A1,DWTST,A7 P CF A5,STORCO P RTN A5 P* * P* HERE NO TRANSMISSION HAS BEEN DON
0x1a2668…1a27fc Dummy {f00=0x007f, f01=0x0190, f02=» ANS A1,DWTST,A7 RESTORE N(R) STATUS P CF A5,STORCO , P RTN A5 B P* R P EJECT P* j 0 P* BEFORE RETURN,RESTORE COUNTERS IN POLLIST t P* PSTORCO EQU * P LC A2,DWTORI,A6 P ANK A2,/FF P ADR A2,A6 P ADK
0x1a27fc…1a2990 Dummy {f00=0x007f, f01=0x0190, f02=»D A1,VRS,A6 P ORRS A1,A2 P LD A1,VSS,A6 ( P SLL A1,3 > P ORRS A1,A2 P P LD A1,LNR,A6 d P SLL A1,6 z P ORRS A1,A2 P LD A1,CPS,A6 P SLL A1,9 P ORRS A1,A2 " P ORRS A3,A2 RESTORE BUSY FLAG P RTN A
0x1a2990…1a2b24 Dummy {f00=0x007f, f01=0x018e, f02=» j . P* TRUF :UNNUMBERED FRAME (16 BITS) 0 P* TRI :I-FRAME WITH POLL-BIT OR NOT : P* n , P* A1 CONTAINS ADDRESS+C-FIELD x P* PTRSF EQU * P* < P* HERE TO INSERT CURRENT N(R) VARIABLE BEFORE TRANSMIT
0x1a2b24…1a2cb8 Dummy {f00=0x007f, f01=0x0190, f02=» P ANKL A3,7 P SLL A3,5 & P ORR A1,A3 STORE VR IN SENT FRAME ( P* R PTRUF EQU * & P ST A1,SENDF,A6 INIT OUTPUT FIELD n P LDKL A3,SENDF P ADR A3,A6 P LDK A4,2 P RF SENDX0 P EJECT P* P* SEND I-FRA
0x1a2cb8…1a2e4c Dummy {f00=0x007f, f01=0x0190, f02=» P LDK A2,/10 P CF A5,PRCFI INIT C-FIELD & P LD A3,ECBBA,A8 GET BUFFER ADDRESS > P LDKL A1,/FF00 h " P ANRS A1,A3 SAVE ADDRESS FIELD ~ " P ORRS A2,A3 MERGE WITH C-FIELD P LD A4,ECBRL,A8 P RF SENDY0 P* PTRISGL EQU
0x1a2e4c…1a2fe0 Dummy {f00=0x007f, f01=0x018e, f02=»,A3 P LD A4,ECBRL,A8 P RF SENDZ0 $ P EJECT 6 P* D < P* SUBROUTINE USED TO UPDATE C-FIELD WHEN SENDIND I-FRAME N P* PPRCFI EQU * P CF A5,LOADCO LOAD COUNTERS P LD A1,VSS,A6 P SLL A1,1 P ORR A2,A1 INIT
0x1a2fe0…1a3174 (1, 374) Dummy {f00=0x0080, f01=0x0190, f02=» P* PSENDX0 EQU * P* & . P* START TRANSMITTER AND SEND SHORT FRAME 0 P* b P CF A5,STHCUT CIO START l & P ABL(NN) OLI160 MODEM NOT OPERABLE P RF SENDXX P LDK A2,1 P CF A5,STHID1 PSENDXX EQU * P RTN
0x1a3174…1a3308 Dummy {f00=0x0080, f01=0x018e, f02=» ABL(NN) OLI160 MODEM NOT OPERABLE P LD A1,VSS,A6 * P ADK A1,1 @ P ANK A1,7 MODULO 7 R P ST A1,VSS,A6 N(S) l P ST A1,CPS,A6 CHECK POINT " P CF A5,STORCO RESTORE COUNTERS P RTN A5 P* , P* HERE TO SEND I-FRAME + RNR +
0x1a3308…1a349c Dummy {f00=0x0080, f01=0x0190, f02=» P ADK A1,1 P ANK A1,7 P ST A1,VSS,A6 , P ST A1,CPS,A6 B P CF A5,STORCO X P* n P* SEND POLL-BIT IN RNR x P* P LDKL A1,TRNRP P LD A2,VRS,A6 GET N(R) P SLL A2,5 P ORR A1,A2 P LDK A4,2 INIT
0x1a349c…1a3630 Dummy {f00=0x0080, f01=0x0190, f02=» P CF A5,STHCUT CIO START P ABL(NN) OLI160 $ P RTN A5 < P EJECT L P* Z P* d 2 P* COMMON SUBROUTINES TO READ A COMPLETE FRAME n 0 P* RDUSTI : READ WITHOUT BUFFER USER 0 P* RDITI : READ AND USE USER BUFFER
0x1a3630…1a37c4 Dummy {f00=0x0080, f01=0x0190, f02=»ECEIVE BUFFER P* P LDKL A4,USBUF P ADR A4,A7 BUFFER ADDRESS 6 P LDK A3,0 INIT LENGTH X P RF RDUT10 v P* PRDITI EQU * $ P LD A8,DWTECB,A7 GET ECB POINTER P LDK A1,0 P ST A1,ECBEL,A8 P LD A4,ECBBA,A8
0x1a37c4…1a3958 Dummy {f00=0x0080, f01=0x0190, f02=»TART TIMER P* " P ST A4,DWTSAV+2,A7 SAVE A4 =1 P CF A15,SETIME B P DATA RDUT20,TIMRE4 X ( P ST A4,DWTTP,A7 STORE TIMER POINTER t " P LD A4,DWTSAV+2,A7 RESTORE A4 P RF RDUT40 P* P* TIME-OUT ENTRY P* PRDUT
0x1a3958…1a3aec Dummy {f00=0x0080, f01=0x0190, f02=»2,A7 P LD A5,DWTSAV+4,A7 P LD A6,DWTSAV+6,A7 & P LD A8,DWTSAV+10,A7 @ P ADK A5,4 STACK =1 P CF A5,HALTIN x " P ABL(Z) OLI160 MODEM NOT READY P* PRDUT30 EQU * P ORKL A2,/8000 TIME-OUT P RTN A5 P*
0x1a3aec…1a3c80 Dummy {f00=0x0080, f01=0x0190, f02=» RDUT10 RETRY CIO START P* P* READ FRAME OK? * P* ON RETURN A3 = LENGTH B P* b P ABL(Z) OLI160 l P RF(N) READOK P* & P* ERRORS WITHIN FRAME,POLL AGAIN P* P LDKL A2,/8000 THROUGPUT P RTN A5 P*
0x1a3c80…1a3e14 (1, 375) Dummy {f00=0x0080, f01=0x0190, f02=»POLLED ? p P RF(E) RDOK1 YES P LDKL A2,/8000 ( P RTN A5 > PRDOK1 EQU * N P LDR* A2,A4 b P LDR A1,A2 v P ANK A1,REMI READ FRAME ? P RF(NZ) READUT NO , P ST A3,ECBEL,A8 INIT LENGTH FOR I-FRAME PREADUT RTN A5
0x1a3e14…1a3fa8 Dummy {f00=0x0080, f01=0x0190, f02=» ACCEPT OUTPUT INTERRUPTS x P* " PSTHCUT EQU * , P LD A1,PFPOST =3 @ ( P ABL(NZ) TDISP WAIT FOR POWER UP =3 Z P LCR A1,A3 =1 P SC A1,SENDF,A6 " P LDR* A1,A6 GET DEVICE ADDRESS $ P ADKL A1,CIOST CREATE INSTUCTION P ST A1
0x1a3fa8…1a413c Dummy {f00=0x0080, f01=0x0190, f02=» ADK A2,CIT4WP TRANSMIT 4-WIRES P.C $ P ADR A4,A3 END OF BUFFER ADDRESS , PSTHCUX EQU * T P HLT h * P RF IHU400 *** SHOULD BE ACCEPTED *** t P* P* IDLE ONE ON LINE P* PSTHID1 EQU * " P LDR* A1,A6 GET DEVICE ADDRESS &
0x1a413c…1a42d0 Dummy {f00=0x0080, f01=0x0190, f02=» P* , P* INTERRUPT HANDLER,CHLC TRANSMITTER 1 P* > P* H PIH8202 EQU * R $ P STR A1,A15 SAVE A1,A8 ON STACK f P STR A2,A15 P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P S
0x1a42d0…1a4464 Dummy {f00=0x0080, f01=0x0190, f02=»,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6 P LD A8,DWTSAV+10,A6 . " P LCR A2,A3 ODD OR EVEN ADDRESS J P SLL A2,8 p P LC A2,+1,A3 PIHU200 EQU * P OTR A2,0,DAMU01 OUTPUT WORD P* PIHUXX EQU * P ABL(NA) SSTU00 P IFF
0x1a4464…1a45f8 Dummy {f00=0x0080, f01=0x0190, f02=»400 P* ( P* TRANSMISSION DONE,HALT TRANSMITTER P* B P LD A1,PFPOST =3 L ( P ABL(NZ) TDISP WAIT FOR POWER UP =3 f . P LDKL A1,CIOH CREATE CIO HALT INSTRUCTION P ADR* A1,A6 P ST A1,IHU310 PIHU310 EQU * P HLT
0x1a45f8…1a478c Dummy {f00=0x0080, f01=0x0190, f02=» PROGRAMM x P* PRETURN EQU * P LDR* A8,A15 0 P LDR* A7,A15 D P LDR* A6,A15 X P LDR* A5,A15 l P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15 P LDR* A1,A15 P RTN A15 P IFF HILINO=1 P EJECT P*
0x1a478c…1a4920 Dummy {f00=0x0080, f01=0x018e, f02=»5 P STR A5,A15 P STR A6,A15 P STR A7,A15 2 P STR A8,A15 F P* Z & P LDKL A6,DW8204 RESTORE OUTPUT DWT d P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 P LD A5,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6 P LD A8,DWTSAV+10,A6
0x1a4920…1a4ab4 (1, 376) Dummy {f00=0x0080, f01=0x0190, f02=» P EJECT P* P* CHLC TRANSMITTER 3 P* 8 PIH8206 EQU * B P STR A1,A15 V P STR A2,A15 j P STR A3,A15 ~ P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15 P* P LDKL A6
0x1a4ab4…1a4c48 Dummy {f00=0x0080, f01=0x0190, f02=»6 ~ P* P LCR A2,A3 P SLL A2,8 & P LC A2,+1,A3 8 P OTR A2,0,DAMU03 L P ABL IHUXX d P IFF HILINO=3 v P EJECT P* P* CHLC TRANSMITTER 4 P* PIH8208 EQU * P STR A1,A15 P STR A2,A15 P S
0x1a4c48…1a4ddc Dummy {f00=0x0080, f01=0x0190, f02=»,DW8208 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 ( P LD A5,DWTSAV+4,A6 B P LD A7,DWTSAV+8,A6 P LD A8,DWTSAV+10,A6 v P* P LCR A2,A3 P SLL A2,8 P LC A2,+1,A3 P OTR A2,0,DAMU04 P ABL IHUXX P IFF HILIN
0x1a4ddc…1a4f70 Dummy {f00=0x0080, f01=0x0190, f02=»TR A3,A15 P STR A4,A15 P STR A5,A15 & P STR A6,A15 : P STR A7,A15 N P STR A8,A15 b P* v P LDKL A6,DW8210 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 P LD A5,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6 P LD A8,DWT
0x1a4f70…1a5104 Dummy {f00=0x0080, f01=0x0190, f02=»O=5 P EJECT P* P* CHLC TRANSMITTER 6 $ P* @ PIH8212 EQU * J P STR A1,A15 ^ P STR A2,A15 r P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15 P* P
0x1a5104…1a5298 Dummy {f00=0x0080, f01=0x0190, f02=»SAV+10,A6 P* P LCR A2,A3 P SLL A2,8 . P LC A2,+1,A3 @ P OTR A2,0,DAMU06 T P ABL IHUXX l P IFF HILINO=6 ~ P EJECT P* P* TRANSMITTER 7 P* PIH8214 EQU * P STR A1,A15 P STR A2,A15
0x1a5298…1a542c Dummy {f00=0x0080, f01=0x018e, f02=»L A6,DW8214 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 , P LD A5,DWTSAV+4,A6 F P LD A7,DWTSAV+8,A6 ` P LD A8,DWTSAV+10,A6 z P* P LCR A2,A3 P SLL A2,8 P LC A2,+1,A3 P OTR A2,0,DAMU07 P ABL IHUXX P IFF H
0x1a542c…1a55c0 Dummy {f00=0x0080, f01=0x0190, f02=» P STR A3,A15 P STR A4,A15 P STR A5,A15 , P STR A6,A15 @ P STR A7,A15 T P STR A8,A15 h P* | P LDKL A6,DW8216 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 P LD A5,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6 P LD
0x1a55c0…1a5754 (1, 377) Dummy {f00=0x0080, f01=0x0190, f02=» HILINO=8 P EJECT P* P* CHLC TRANSMITTER 9 * P* F PIH8218 EQU * P P STR A1,A15 d P STR A2,A15 x P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15 P*
0x1a5754…1a58e8 Dummy {f00=0x0080, f01=0x0190, f02=»A8,DWTSAV+10,A6 P* P LCR A2,A3 " P SLL A2,8 4 P LC A2,+1,A3 F P OTR A2,0,DAMU09 Z P ABL IHUXX r P IFF HILINO=9 P EJECT P* P* CHLC TRANSMITTER 10 P* PIH8220 EQU * P STR A1,A15 P STR A
0x1a58e8…1a5a7c Dummy {f00=0x0080, f01=0x0190, f02=» P LDKL A6,DW8220 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 8 P LD A5,DWTSAV+4,A6 R P LD A7,DWTSAV+8,A6 l P LD A8,DWTSAV+10,A6 P* P LCR A2,A3 P SLL A2,8 P LC A2,+1,A3 P OTR A2,0,DAMU10 P ABL IHUXX
0x1a5a7c…1a5c10 Dummy {f00=0x0080, f01=0x0190, f02=» A2,A15 P STR A3,A15 P STR A4,A15 $ P STR A5,A15 8 P STR A6,A15 L P STR A7,A15 ` P STR A8,A15 t P* P LDKL A6,DW8222 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 P LD A5,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6
0x1a5c10…1a5da4 Dummy {f00=0x0080, f01=0x0190, f02=» P IFF HILINO=11 P EJECT P* , P* CHLC TRANSMITTER 12 6 P* T PIH8224 EQU * ^ P STR A1,A15 r P STR A2,A15 P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A1
0x1a5da4…1a5f38 Dummy {f00=0x0080, f01=0x018e, f02=»A6 P LD A8,DWTSAV+10,A6 P* & P LCR A2,A3 0 P SLL A2,8 B P LC A2,+1,A3 T P OTR A2,0,DAMU12 h P ABL IHUXX P XIF P EJECT P* . P* SST INTERRUPT HANDLER,CHLC TRANSMITTER P* PSSTU00 EQU * P L
0x1a5f38…1a60cc Dummy {f00=0x0080, f01=0x0190, f02=» PSSTU20 EQU * P IFF LOGG=0 =1 P CF A5,LOGSST 0 P XIF F " P ANK A2,3 GET ONLY BITS 14.15 R P LDR A1,A2 GET STATUS x P RF(NZ) SSTU40 SST NOT OK P LDK A2,2 PSSTU30 EQU * ( P CF A5,A5CND SET CONDITION REGISTER
0x1a60cc…1a6260 Dummy {f00=0x0080, f01=0x018e, f02=»U50 MODEM OK P LDK A2,0 " P RB SSTU30 MODEM NOT OPERABLE & P* L PSSTU50 EQU * V P LDR A1,A2 j P ANK A1,2 | P RF(Z) SSTU60 ERRORS P ABL IHU400 THROUGPUT PSSTU60 EQU * P CF A5,HALTIN P ABL IHU400 P*
0x1a6260…1a63f4 (1, 378) Dummy {f00=0x0081, f01=0x0190, f02=» , P* A2 COUNTAINS CIO PARAMETER P* 4 PSTHCIN EQU * > P LD A1,PFPOST =3 R ( P ABL(NZ) TDISP WAIT FOR POWER UP =3 l " P LDR* A1,A7 GET DEVICE ADDRESS , P ADKL A1,CIOST CREATE START INSTRUCTION P ST A1,STHCI0 PSTHC
0x1a63f4…1a6588 Dummy {f00=0x0081, f01=0x0190, f02=»01 EQU * $ P STR A1,A15 SAVE A1,A8 ON STACK P STR A2,A15 8 P STR A3,A15 L P STR A4,A15 ` P STR A5,A15 t P STR A6,A15 P STR A7,A15 P STR A8,A15 P* " P LDKL A7,DW8201 GET INPUT DWT P LD A3,DWTSAV,A7
0x1a6588…1a671c Dummy {f00=0x0081, f01=0x0190, f02=» GET WORD FROM LINE PIHI200 EQU * P ABL(NA) SSTIN0 0 P IFF LOGG=0 =1 H P CF A5,LOGIN ` P XIF t P* P* INPUT INTERRUPT ACCEPTED P* P ADR A4,A3 GET BUFFER ADDESS " P ECR A1,A2 ODD OR EVEN ADDRESS P SCR A
0x1a671c…1a68b0 Dummy {f00=0x0081, f01=0x0190, f02=»F(L) IHI300 NO BUFFER OVERFLOW , P SUK A3,2 YES,MAINTAIN DATA IN LAST WORD & P* V PIHI300 EQU * ` P ST A3,DWTSAV,A7 t P ST A4,DWTSAV+2,A7 P ST A5,DWTSAV+4,A7 P ABL RETURN P IFF HILINO=1 P EJECT P* P* CH
0x1a68b0…1a6a44 Dummy {f00=0x0081, f01=0x0190, f02=» A5,A15 P STR A6,A15 P STR A7,A15 $ P STR A8,A15 8 P* L P LDKL A7,DW8203 V P LD A3,DWTSAV,A7 n P LD A4,DWTSAV+2,A7 P LD A5,DWTSAV+4,A7 P LD A6,DWTSAV+6,A7 P LD A8,DWTSAV+10,A7 P* ( P INR A2,0,DAMI
0x1a6a44…1a6bd8 Dummy {f00=0x0081, f01=0x018e, f02=» P* PIH8205 EQU * P STR A1,A15 " P STR A2,A15 6 P STR A3,A15 J P STR A4,A15 ^ P STR A5,A15 r P STR A6,A15 P STR A7,A15 P STR A8,A15 P LDKL A7,DW8205 P LD A3,DWTSAV,A7 P LD A4,DWTSAV+2,A7
0x1a6bd8…1a6d6c Dummy {f00=0x0081, f01=0x018e, f02=» P IFF HILINO=3 P EJECT P* ( P* CHLC RECEIVER 4 2 P* L PIH8207 EQU * V P STR A1,A15 j P STR A2,A15 ~ P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15
0x1a6d6c…1a6f00 Dummy {f00=0x0081, f01=0x018e, f02=» P LD A8,DWTSAV+10,A7 P* P INR A2,0,DAMI04 * P ABL IHI200 B P IFF HILINO=4 V P EJECT l P* z P* CHLC RECEIVER 5 P* PIH8209 EQU * P STR A1,A15 P STR A2,A15 P STR A3,A15 P STR A4,A15
0x1a6f00…1a7094 (1, 379) Dummy {f00=0x0081, f01=0x0190, f02=» ~ P LD A4,DWTSAV+2,A7 P LD A5,DWTSAV+4,A7 " P LD A6,DWTSAV+6,A7 < P LD A8,DWTSAV+10,A7 V P* r P INR A2,0,DAMI05 | P ABL IHI200 P IFF HILINO=5 P EJECT P* P* CHLC RECEIVER 6 P* PIH8211 EQU *
0x1a7094…1a7228 Dummy {f00=0x0081, f01=0x0190, f02=»5 P STR A8,A15 P* P LDKL A7,DW8211 ( P LD A3,DWTSAV,A7 @ P LD A4,DWTSAV+2,A7 X P LD A5,DWTSAV+4,A7 r P LD A6,DWTSAV+6,A7 P LD A8,DWTSAV+10,A7 P* P INR A2,0,DAMI06 P ABL IHI200 P IFF HILINO=6
0x1a7228…1a73bc Dummy {f00=0x0081, f01=0x0190, f02=»5 P STR A4,A15 P STR A5,A15 P STR A6,A15 2 P STR A7,A15 F P STR A8,A15 Z P* n P LDKL A7,DW8213 x P LD A3,DWTSAV,A7 P LD A4,DWTSAV+2,A7 P LD A5,DWTSAV+4,A7 P LD A6,DWTSAV+6,A7 P LD A8,DWTSAV+10,A
0x1a73bc…1a7550 Dummy {f00=0x0081, f01=0x0190, f02=»* PIH8215 EQU * P STR A1,A15 P STR A2,A15 2 P STR A3,A15 F P STR A4,A15 Z P STR A5,A15 n P STR A6,A15 P STR A7,A15 P STR A8,A15 P* P LDKL A7,DW8215 P LD A3,DWTSAV,A7 P LD A4,DWTSAV+2,
0x1a7550…1a76e4 Dummy {f00=0x0081, f01=0x018e, f02=» P IFF HILINO=8 P EJECT P* , P* CHLC RECEIVER 9 6 P* P PIH8217 EQU * Z P STR A1,A15 n P STR A2,A15 P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,A15
0x1a76e4…1a7878 Dummy {f00=0x0081, f01=0x0190, f02=» | P LD A8,DWTSAV+10,A7 P* $ P INR A2,0,DAMI09 . P ABL IHI200 F P IFF HILINO=9 Z P EJECT p P* ~ P* CHLC RECEIVER 10 P* PIH8219 EQU * P STR A1,A15 P STR A2,A15 P STR A3,A15 P STR A4,A15
0x1a7878…1a7a0c Dummy {f00=0x0081, f01=0x0190, f02=»A7 P LD A4,DWTSAV+2,A7 P LD A5,DWTSAV+4,A7 $ P LD A6,DWTSAV+6,A7 > P LD A8,DWTSAV+10,A7 X P* t P INR A2,0,DAMI10 ~ P ABL IHI200 P IFF HILINO=10 P EJECT P* P* CHLC RECEIVER 11 P* PIH8221 EQU *
0x1a7a0c…1a7ba0 Dummy {f00=0x0081, f01=0x0190, f02=»A15 P STR A8,A15 P* P LDKL A7,DW8221 * P LD A3,DWTSAV,A7 B P LD A4,DWTSAV+2,A7 Z P LD A5,DWTSAV+4,A7 t P LD A6,DWTSAV+6,A7 P LD A8,DWTSAV+10,A7 P* P INR A2,0,DAMI11 P ABL IHI200 P IFF HILINO=11
0x1a7ba0…1a7d34 (1, 380) Dummy {f00=0x0081, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 P* p P LDKL A7,DW8223 z P LD A3,DWTSAV,A7 P LD A4,DWTSAV+2,A7 P LD A5,DWTSAV+4,A7 P LD A6,DWTSAV+6,A7 P LD A8,DWTSAV+10
0x1a7d34…1a7ec8 Dummy {f00=0x0081, f01=0x0190, f02=»ECEIVER n P* , P* A2 INPUT REGISTER FOR STATUS INFO P* J PSSTIN0 EQU * T & P LD A1,DWTTP,A7 GET TIMER POINTER h P RF(Z) SSTI03 NO TIMER P CMR A1 P CM DWTTP,A7 CLEAR TIMER PSSTI03 EQU * P LDR* A1,P P S
0x1a7ec8…1a805c Dummy {f00=0x0081, f01=0x0190, f02=» HLT PSSTI06 EQU * P IFF LOGG=0 =1 P CF A5,LOGSST 8 P XIF N $ P LDR A1,A2 SAVE STATUS IN REG A1 Z , P ANKL A1,SSTMSK ISOLATE SIGNIFICANT BITS P RF(NZ) SST10 STATUS PRESENT P* ( P* STATUS OK,UPDATE LENGTH AND RETURN
0x1a805c…1a81f0 Dummy {f00=0x0081, f01=0x018e, f02=»F SST22 P* $ P* HERE TO HANDLE RECEIVER STATUS P* B PSST10 EQU * L P LDR A1,A2 ` ( P ANK A1,MSKMOD MODEM AND CARRIER OFF r P RF(Z) SST20 P* P* MODEM NOT OPERABLE P* P LDK A2,0 P RF SST22 YES,INDICA
0x1a81f0…1a8384 Dummy {f00=0x0081, f01=0x0190, f02=» r P* P LDK A2,3 ALL TYPE ERRORS P RF SST22 4 P* F P* THROUGPUT ERROR P P* j PSST21 LDK A2,1 t PSST22 CF A5,A5CND P RTN A5 P EJECT P* P* HALT LINE INPUT P* PHALTIN EQU * P LD
0x1a8384…1a8518 Dummy {f00=0x0081, f01=0x0190, f02=» EQU * P HLT $ P ABL IHI300 RETURN TO DISPATCHER P EJECT B P* P P* SET CND AT A5 STACK Z P* x PA5CND EQU * P LD A1,6,A5 GET CND WORD P ANKL A1,/FCFF P ECR A2,A2 CND WORD FROM PRG P ORR A1,A2 CND WRD CHANG
0x1a8518…1a86ac Dummy {f00=0x0081, f01=0x0190, f02=»=ADDRESS TO FIND TCA FOR EXIT P* A4=INDEX IN POLLIST & P* A2=TCA IN ENTRY D P* CR=Z ACTIVE TCA FOUND ^ P* CR=N INACTIVE TCA FOUND P* CR=P TCA NOT FOUND P* PFINDTC EQU * P ADKL A15,4 * P LD A4,PLIST,A6 GET
0x1a86ac…1a8840 Dummy {f00=0x0081, f01=0x0190, f02=» A1,A2 " P RF(E) FIND40 ACTIVE TC FOUND P ANK A1,/FF 4 P CWR A1,A2 H $ P RF(E) FIND30 INACTIVE TC FOUND Z P SUK A3,4 P SUK A4,4 P RB(P) FIND10 GET NEXT TCA P ADK A4,1 P ABR* A15 PFIND30 EQU * P LDR* A1
0x1a8840…1a89d4 (1, 381) Dummy {f00=0x0081, f01=0x018e, f02=»BL DISIOE ILLEGAL ORDER P EJECT P* . P* INTERRUPT LOGGING ROUTINE 8 P* P IFF LOGG=0 =1 f PLOGSST EQU * ~ P LDKL A1,/5555 P RF LOG10 PLOGOUT EQU * P LDK A1,0 P RF LOG10 PLOGIN EQU * P L
0x1a89d4…1a8b68 Dummy {f00=0x0081, f01=0x0190, f02=» P ADK A3,2 P CWK A3,LOGEND P RF(L) LOGEXI 0 P LDKL A3,LOGSTA F PLOGEXI ST A3,LOGPNT ^ P LD A2,SAVE2 z P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT P* P* WORK AREAS FOR LOGGING P* PLOGPNT DATA LO
0x1a8b68…1a8cfc Dummy {f00=0x0081, f01=0x400c, f02=» @ A3,2 P CWK A3,LOGEND P RF(L) LOGEXI 0 P LDKL A3,LOGSTA F PLOGEXI ST A3,LOGPNT ^ P LD A2,SAVE2 z P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT P* P* WORK AREAS FOR LOGGING P* PLOGPNT DATA LO
0x1a8cfc…1a8e90 Dummy {f00=0x0081, f01=0x2008, f02=» CF A5,RDUSTI ' CF A5,HALTIN ' ABL BMM10 ' 4 END ' F@ ' RF & L ADR A3,A6 & ` LDR* A2,A3 & r CM PLIST,A3 & . ) CM PLIST,+2,A3 DELETE 2 WORDS IN POLLIST & LDK A1,0 & $ CF A15,TENDIO COMPLETE REQUEST & *
0x1a8e90…1a9024 Dummy {f00=0x0081, f01=0x0190, f02=» P ABL SSTIN P IFF HILINO=2 P EJECT 0 P* > P* H P* R PIH8105 EQU * P ST P,INTSAV p P CF A15,SAVER P LDKL A7,DW8105 , P INR A2,0,DAMI03 GET CHARACTER FROM LINE P RB(A) IHI100 P ABL SSTIN
0x1a9024…1a91b8 Dummy {f00=0x0081, f01=0x018e, f02=»A7,DW8107 , P INR A2,0,DAMI04 GET CHARACTER FROM LINE P RB(A) IHI100 B P RF SSTIN X P IFF HILINO=4 j P EJECT P* P* P* PIH8109 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A7,DW8109 , P INR A
0x1a91b8…1a934c Dummy {f00=0x0081, f01=0x0190, f02=» P* PIH8111 EQU * P ST P,INTSAV " P CF A15,SAVER 6 P LDKL A7,DW8111 L , P INR A2,0,DAMI06 GET CHARACTER FROM LINE d P RB(A) IHI100 P RF SSTIN P IFF HILINO=6 P EJECT P* P* P* PIH8113 EQU
0x1a934c…1a94e0 Dummy {f00=0x0081, f01=0x0190, f02=»0 P RF SSTIN P IFF HILINO=7 P EJECT 2 P* @ P* J P* T PIH8115 EQU * ^ P ST P,INTSAV r P CF A15,SAVER P LDKL A7,DW8115 , P INR A2,0,DAMI08 GET CHARACTER FROM LINE P RB(A) IHI100 P RF SSTIN
0x1a94e0…1a9674 (1, 382) Opaque[0x194]
0x1a9674…1a9808 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1040, f03=0x0000}
0x1a9674…1a9808 IdxSect {
0x1a9674…1a9808 f00 = 0x0082 // 0x1a9674 @0x0
0x1a9674…1a9808 f01 = 0x0008 // 0x1a9676 @0x2
0x1a9674…1a9808 gno = [ // 0x1a9678 @0x4
0x1a9674…1a9808 [0x00]: C0x0082.0x0.0
0x1a9674…1a9808 [0x01]: C0x0082.0x1.0
0x1a9674…1a9808 [0x02]: C0x0082.0x2.0
0x1a9674…1a9808 [0x03]: C0x0082.0x3.0
0x1a9674…1a9808 ]
0x1a9674…1a9808 }
0x1a9808…1a999c Dummy {f00=0x0082, f01=0x0190, f02=» 2 P IDENT DRDI01 REL 11.0 81-01-26 870105041100 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY P*
0x1a999c…1a9b30 Dummy {f00=0x0082, f01=0x0190, f02=»* THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241 > P* AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232 B " P* 6233, 6236 AND 633, 62361. * P* IT IS ALSO POSSIBLE TO OPEN CASH- P* BOXES ON FT80. P* 4 P* THE DRIV
0x1a9b30…1a9cc4 Dummy {f00=0x0082, f01=0x0190, f02=» P* * P* THE FOLLOWING ORDERS ARE TREATED: P* < " P* ORDER 37: WRITE LIGHTS ON F " P* 38: WRITE LIGHTS OFF l ( P* 06: WRITE PROGRAM DISPLAY , P* 39: WRITE FLASHING LIGHTS P EJECT P* P*
0x1a9cc4…1a9e58 Dummy {f00=0x0082, f01=0x0190, f02=» WORK REGISTER " P* A4: WORK REGISTER " P* A5: WORK REGISTER < P* A6: DWT-ADDRESS b P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* SYSTEM ADAPTATION P* . P*
0x1a9e58…1a9fec Dummy {f00=0x0082, f01=0x0190, f02=»1,6242,6233 t P* : P* ORDER 06, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY P* CONDITIONAL ASSEMBLY P* | P EJECT P* P* P*************** P* ENTRIES * P*************** P* ( P ENTRY DIAD AD
0x1a9fec…1aa180 Dummy {f00=0x0082, f01=0x0190, f02=»XTRN LENDIS PERFORM END I/O AND DISPATCH * P EXTRN LDISP DISPATCHER ORDINARY INT. 0 P EXTRN OUTPUT SEND ONE CHAR. ^ P EXTRN GETCHR GET CHARACTER $ P EXTRN LENDER I/O REQUEST ERROR P EXTRN DWTST STATUS WORD P EXTRN DWTDEV STATUS
0x1aa180…1aa314 (1, 383) Dummy {f00=0x0082, f01=0x0190, f02=»XTRN ENDBLK END BLOCK $ P EXTRN ECBCW CONTROL WORD OF ECB P* F P* P P EJECT Z P* h P* r P*************** | P* TABLES * P*************** P* P* " P DATA DVBLEN BUFFER SIZE (MMU) P DATA 2 DEVI
0x1aa314…1aa4a8 Dummy {f00=0x0082, f01=0x0190, f02=»A 0 NO INTERRUPT HANDLER P DATA RCDI RECOVERY ROUTINE P* D " PCCERR EQU /4 CODE CHECK ERROR N P* t P EJECT ~ P* P* P************************* P* CONDITIONAL ASSEMBLY * P************************* P*
0x1aa4a8…1aa63c Dummy {f00=0x0082, f01=0x0190, f02=»D6 EQU X:A P* P* 8 P* ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED & ( P* IN THIS DRIVER BY SETTING X:B=1 b P* PX:B EQU 0 PFLASH EQU X:B P* P* P EJECT P* P* P* MMU BUFFER SIZ
0x1aa63c…1aa7d0 Dummy {f00=0x0082, f01=0x0190, f02=» P********************* P* " PDWTDIB EQU /02 SAVE AREA , , PDWTFLA EQU /08 SAVE AREA FOR FLASH IMAGE L PDWTTP EQU /0A TIMER POINTER | PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P* ACTIVA
0x1aa7d0…1aa964 Dummy {f00=0x0082, f01=0x0190, f02=» P CCK A7,/0606 P RF(E) ADI050 ORDER /06 P XIF : & P LD A4,ECBCW,A8 CONTROL WORD TO A4 F 8 P LD A3,DWTDEV,A6 TEST IF ONE OR TWO CHARACTER DEVICE p & P RF(N) ADI005 ONE CHARACTER DEVICE " P LDR A3,A4 CONTROL WORD tO A3 P ANK A4,/F
0x1aa964…1aaaf8 Dummy {f00=0x0082, f01=0x0190, f02=» P RF(E) FLA05 P XIF P SUK A7,/37 $ P RF(E) ADI010 ORDER 37 8 P SUK A7,1 V P RF(E) ADI007 ORDER 38 h " P ABL(NE) LENDER REQUEST ERROR P EJECT P IFT FLASH=1 P* P* FLASH ORDER /39 P* P*
0x1aaaf8…1aac8c Dummy {f00=0x0082, f01=0x0190, f02=»ALREADY STARTED | P LDR A1,A6 P CF A15,SETIME * P DATA FLTUT,TIME @ P ST A4,DWTTP+DWTDEV,A6 X . P LD A4,DWTFLA+DWTDEV,A6 RELOAD FLASH IMAGE v P* PFLA10 EQU * P LDKL A3,/200 ( P XRS A3,DWTDEV,A6 SWITCH 0N-OFF FLAG P
0x1aac8c…1aae20 Dummy {f00=0x0082, f01=0x0190, f02=»H n P RF ADI020 TURN ON LAMPS P* * PFLA20 C1R A4,A4 4 & P ANS A4,DWTDIB+DWTDEV,A6 ON-FLASH L P RF ADI020 TURN OFF LAMPS v P EJECT P* P* P* FLASH TIME OUT ROUTINE P* P* PFLTUT EQU * $ P LDR
0x1aae20…1aafb4 (1, 384) Dummy {f00=0x0082, f01=0x018e, f02=»E BUSY x P ANS A4,DWTST,A6 P* & P LD A4,DWTFLA+DWTDEV,A6 0 * P RF(Z) FLA30 NO MORE LAMPS TO FLASHER P P* ~ * P LDR A5,A6 INITIATE DWT-STACK POINTER P ADKL A5,DWTSB2 P LDKL A1,-TIME RESTART TIMER P ST* A1,DWTTP+DWTDEV,A
0x1aafb4…1ab148 Dummy {f00=0x0082, f01=0x0190, f02=» P LDKL A1,-TIME RESTART TIMER P ST* A1,DWTTP+DWTDEV,A6 , P ABL LDISP L P XIF ^ P EJECT j P IFT ORD6=1 x P* P* ( P* ORDER 06: WRITE PROGRAM DISPLAY P* PADI050 LDK A3,0 & PADI060 CF A15,GETCHR GET C
0x1ab148…1ab2dc Dummy {f00=0x0082, f01=0x0190, f02=»ARACTER ? z P RF(L) ADI100 YES P CWK A4,3 UNDEFINED ? , P RF(G) ADI100 YES J P ADKL A4,DWTDIB+2 d P ADR A4,A6 ~ , P SCR A2,A4 STORE CHARACTER IN DWT-BUFFER " P RB ADI060 GET NEXT CHARACTER < PADI070 SC A1,DWTDEV+1,A6 SET STA
0x1ab2dc…1ab470 Dummy {f00=0x0082, f01=0x018e, f02=»SSEQ00 SEND CHARACTERS P* P* ( P* CODE CHECK ERROR 2 P* P ( PADI100 LDK A1,CCERR SET RETURN CODE Z P ORS A1,8,A8 IN ECB " P RB ADI060 GET NEXT CHARACTER P XIF P* P EJECT P* P* $ P* ORD
0x1ab470…1ab604 Dummy {f00=0x0082, f01=0x018e, f02=» P IFT FLASH=1 6 P ANS A4,DWTFLA+DWTDEV,A6 RESET BITS IN FLASH IMAGE P XIF R P RF ADI020 ^ P* p P* z P* P* P* ORDER 37: TURN ON LAMPS P* P* P* : PADI010 ORS A4,DWTDIB+DWTDEV,A6 SET BITS IN DWT
0x1ab604…1ab798 Dummy {f00=0x0082, f01=0x0190, f02=» P* P* SENDING SEQUENCE P* * " PADI020 LDK A2,/2 BLOCK LENGTH 4 P CF A5,STABLK START OF BLOCK Z P RF(NZ) DIER10 NOT OK ! ~ 0 P LC A2,DWTDIB+DWTDEV,A6 GET FIRST CHARACTER PADI035 LDK A1,1 6 P SC A1,DWTDEV+1,A6 SET START V
0x1ab798…1ab92c Dummy {f00=0x0082, f01=0x0190, f02=» n P ADR A2,A6 P LD A4,DWTDEV,A6 P ANK A4,/FF 4 P ADR A2,A4 H P LCR A2,A2 GET CHARACTER Z P LD A8,DWTECB,A6 z < P RF(Z) SSEQ10 IF POWER FAIL NO BELL OR CASH-BOX OPENING P LD A3,ECBCW,A8 BELL? P RF(NN) SSEQ05 NO $
0x1ab92c…1abac0 Dummy {f00=0x0082, f01=0x0190, f02=»NING OF BOX 2 r PSSEQ07 SLC A3,1 OPEN BOX 1 ? P RF(NN) SSEQ10 NO ! : 0 P ORK A2,/10 YES ! INDICATE OPENING OF BOX 1 V P EJECT P* . PSSEQ10 IM DWTDEV,A6 INCREMENT BYTE COUNTER P* " PSSEQ20 CF A5,OUTPUT SEND CHAR. P RF(
0x1abac0…1abc54 (1, 385) Dummy {f00=0x0082, f01=0x0190, f02=»GET BYTE COUNTER $ P SUK A4,2 TWO CHARACTERS SENT ? P EJECT @ P IFT ORD6=1 N P RF(NZ) SSEQ25 NO ! b P LDR A7,A7 GET ORDER ~ P IFT ORD6=1 0 P CWK A7,06 ORDER 06, WRITE PROGRAM DISPLAY ? P RF(NE) SSEQ30 NO ! $ PSSEQ25 SUK
0x1abc54…1abde8 Dummy {f00=0x0082, f01=0x0190, f02=»B SSEQ00 NO ! GET NEXT CHARACTER P XIF ( P* 4 $ PSSEQ30 CF A5,ENDBLK END OF BLOCK > P RF(NZ) DIER10 f P* | PENDIO EQU * , P ABL LENDIS PERFORM END I/O AND DISPATCH P EJECT P* P* P* ERROR ROUTINE P*
0x1abde8…1abf7c Dummy {f00=0x0082, f01=0x0190, f02=» ABL(N) LDISP YES, GO TO DISPATCHER P* , P RF RCDI PERFORM RECOVERY 6 P* X PDIER20 EQU * b $ P SLC A1,1 SET "NOT OPERABLE" BIT v P RB ENDIO END I/O P EJECT P* P* R C D I P* > P* RECOVERY ROUTINE: AT P
0x1abf7c…1ac110 Dummy {f00=0x0082, f01=0x4184, f02=»ALSO RESTORED v P* P* PRCDI EQU * * " P LDKL A2,/7FFF SET DEVICE BUSY < P ANS A2,DWTST,A6 b P* z P LDK A2,/4 BLOCK LENGTH P CF A5,STABLK START OF BLOCK P RB(NZ) DIER10 P* 0 P LC A2,DWTDIB+DWTDEV,A6 GET FIRS
0x1ac110…1ac2a4 Dummy {f00=0x0082, 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
0x1ac2a4…1ac438 Dummy {f00=0x0082, f01=0x0190, f02=» R A @ x ' @ 4 , 0 H D ! 2 2 @ r 0 | N D H D ! ! # % ' ) + . - / 1 < ; [ r @ I r { H D ! r ; r r 9
0x1ac438…1ac5cc Dummy {f00=0x0082, f01=0x0190, f02=» P, ' 'Z $ t H D ! $ V0 %T 7 = D C Q Z w'Z $ P P R ' Q R )P 0 H D ! =PZ MP QT* P V* 4 P P P8 5 9 ='Z | H D ! I' KQ MW S' UP [W R* P W T8 W2 T W
0x1ac5cc…1ac760 Dummy {f00=0x0082, f01=0x0190, f02=» W T P x ` H D !&B P 7P C'Z UR YT c o sV }P P Pt P( Pp P H D ! W P P W T W W ! % )R 1P ? gT s'Z h H D ! T( T W /Ph 5T K _T* c WL P W < #W@ H D ! X ) <
0x1ac760…1ac8f4 (1, 386) Opaque[0x194]
0x1ac8f4…1aca88 # DirEnt {nam=»DRDN01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1060, f03=0x0000}
0x1ac8f4…1aca88 IdxSect {
0x1ac8f4…1aca88 f00 = 0x0083 // 0x1ac8f4 @0x0
0x1ac8f4…1aca88 f01 = 0x0008 // 0x1ac8f6 @0x2
0x1ac8f4…1aca88 gno = [ // 0x1ac8f8 @0x4
0x1ac8f4…1aca88 [0x00]: C0x0083.0x0.0
0x1ac8f4…1aca88 [0x01]: C0x0083.0x1.0
0x1ac8f4…1aca88 [0x02]: C0x0083.0x2.0
0x1ac8f4…1aca88 [0x03]: C0x0083.0x3.0
0x1ac8f4…1aca88 ]
0x1ac8f4…1aca88 }
0x1aca88…1acc1c Dummy {f00=0x0083, f01=0x0190, f02=» 2 P IDENT DRDN01 REL 11.0 81-03-27 870105041100 P : P =2,ASM-ORDER 05 REMOVED B P REL 11.0 81-01-26 d ( P =1 ADAPTED TO NEW INTERFACE (PLC) P REL 10.0 79-12-07 P* P* 8 P********************************************
0x1acc1c…1acdb0 Dummy {f00=0x0083, f01=0x0190, f02=» P* P* P* P* " 8 P*************************************************** , P* h P* r 0 P* THIS DRIVER HANDLES THE NUMERIC DISPLAY | 0 P* ON INDICATOR UNIT PTS 6241 CONNECTED TO & P* THE SYSTEM VIA CHLT OR CHRT.
0x1acdb0…1acf44 Dummy {f00=0x0083, f01=0x0190, f02=»ED FROM THE USER PROGRAM. IT . P* MAY ALSO BE USED AS AN ECHO-DEVICE TO $ 2 P* ANY KEYBOARD THAT WORKS UNDER THE GENERAL V P* KEYBOARD DRIVER DRKB04. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* & P* A C D N
0x1acf44…1ad0d8 Dummy {f00=0x0083, f01=0x0190, f02=» & P* E C H O D N ECHO FUNCTIONS P EJECT DRDN01 2 P* J P* T , P* THE FOLLOWING ORDERS ARE THREATED: ^ P* ( P* ORDER 31: ERASE NUMERIC DISPLAY ( P* 06: WRITE NUMERIC DISPLAY P* P* P*
0x1ad0d8…1ad26c Dummy {f00=0x0083, f01=0x0190, f02=» A3 = BUFFER INDEX & P* A4 = WORK REGISTER " P* A5 = STACK BASE H $ P* A6 = DWT-ADDRESS n P* A7 = ORDER $ P* A8 = ECB-ADDRESS P* P* P* SYSTEM ADAPTATI
0x1ad26c…1ad400 Dummy {f00=0x0083, f01=0x0190, f02=» USED IN SYSTEMS WHERE THE DISPLAY ( P* FIGURES ONLY AS AN ECHO-DEVICE. * P* V P* ` P EJECT DRDN01 j P* P* P*********** P* ENTRIES * P*********** P* P* ( P ENTRY DNAD ADDRESS TO ADDRESS-BLO
0x1ad400…1ad594 (1, 387) Dummy {f00=0x0083, f01=0x0190, f02=»****************************************** P* 2 P* < & P EXTRN LENDER I/O REQUEST ERROR =1 F $ P EXTRN OUTPUT SEND CHARACTER =1 p P EXTRN LDISP DISPATCHER =1 0 P EXTRN NDGET8 RELOAD REGISTERS AND RETURN =1 P EXTRN TENDIO END I/O =1
0x1ad594…1ad728 Dummy {f00=0x0083, f01=0x0190, f02=» BLOCK =1 z " P EXTRN ENDBLK END OF BLOCK =1 P* 8 P* B P**************************** L P* DWT PARAMETERS * p P**************************** P* P* P EXTRN DWTST STATUS " P EXTRN DWTDEV DEVICE STATUS =1
0x1ad728…1ad8bc Dummy {f00=0x0083, f01=0x018e, f02=» =1 t P EJECT DRDN01 P* $ P* . P************************** 8 P* CONDITIONAL ASSEMBLY * Z P************************** | P* 0 P* BY SETTING X:A = 0 THIS DRIVER HANDLES , P* ONLY ORDER 05 ERASE NUMERIC DISPLAY
0x1ad8bc…1ada50 Dummy {f00=0x0083, f01=0x0190, f02=» PDVBLEN EQU X:B P* P***************** ( P* CONSTANTS * B P***************** P* v " PCCERR EQU /4 CODE CHECK ERROR P* P EJECT DRDN01 P* P* P************** P* TABLES * P
0x1ada50…1adbe4 Dummy {f00=0x0083, f01=0x0190, f02=» P DATA ACDN ACTIVATION PART " P DATA 0 ABORT ROUTINE ADDRESS & P DATA 0 INTERRUPT HANDLER L P DATA RCDN RECOVERY ROUTINE n 2 P DATA ECHODN DEVICE-DEPENDENT ECHO-SUBROUTINE P* P EJECT DRDN01 P* P* A C D N P
0x1adbe4…1add78 Dummy {f00=0x0083, f01=0x018e, f02=» ORDER 31: ERASE NUMERIC DISPLAY , P* ORDER 06: WRITE ON NUMERIC DISPLAY ( P* X < P* IF ORDER 31 ERASE CHARACTER /40 IS SENT TO DISPLAY. b @ P* IF ORDER 6 CHARACTERS IN ECB-BUFFER ARE SENT TO DISPLAY P* PACDN EQU * P =2
0x1add78…1adf0c Dummy {f00=0x0083, f01=0x018e, f02=» P RF(E) ADN015 P* P XIF $ P* 0 $ P ABL LENDER I/O REQUEST ERROR =1 : P* b P EJECT DRDN01 l P* P* ORDER 31 P* PADN010 EQU * P LDK A2,1 BLOCK SIZE =! $ P CF A5,STABLK START OF BLOCK =1
0x1adf0c…1ae0a0 Dummy {f00=0x0083, f01=0x0190, f02=» p P RF ENDIO P* P* ORDER 06 $ P* : P IFT DNWRIT=1 D P* Z PADN015 EQU * d P LDK A3,0 RESET BUFFER INDEX x $ P LDK A2,BLKSI MAX BLOCK SIZE =1 $ P CF A5,STABLK START OF BLOCK =1 " P RF(NZ) DNERR ERROR END I/O
0x1ae0a0…1ae234 (1, 388) Dummy {f00=0x0083, f01=0x0190, f02=»1 P* P* CHECK CHARACTER P* 0 P LDR A4,A2 : P SUK A4,/3F BLANK? L P RF(E) ADN025 f P ADK A4,6 KEY > /39? | P RF(P) ADN030 P ADK A4,9 KEY < /30 P RF(N) ADN030 PADN025 EQU * P CF A5,OUTPUT SEND C
0x1ae234…1ae3c8 Dummy {f00=0x0083, f01=0x0190, f02=»A8 RETURN CODE P RB ADN020 P* ( P XIF 2 P* > PENDIO EQU * END REQUEST =1 H " P CF A5,ENDBLK END OF BLOCK =1 j P & P CF A15,TENDIO END I/O REQUEST =1 PEXIT EQU * DISPATCH P ABL LDISP DISPATCH =1 P* P E
0x1ae3c8…1ae55c Dummy {f00=0x0083, f01=0x0190, f02=» ANS A2,DWTST,A6 SET DEVICE BUSY P LDK A2,1 BLOCK SIZE =1 ( $ P CF A5,STABLK START OF BLOCK =1 H " P RF(NZ) DNERR ERROR END I/O =1 p P LDK A2,/40 ERASE CHARACTER P CF A5,OUTPUT SEND ERASE " P RF(NZ) DNERR ERROR END I/O =! " P CF A5,E
0x1ae55c…1ae6f0 Dummy {f00=0x0083, f01=0x0190, f02=»ATINO PARTONI x P* P EJECT DRDN01 P* 8 P* E C H O D N B P* Z P* ECHO-ROUTINE d P* ~ PECHODN EQU * P LDR A7,A7 EOR? P RF(N) ECH060 P LDR A3,A2 P LDR A4,A2 SAVE CHARACTER =1 P SUK A3,
0x1ae6f0…1ae884 Dummy {f00=0x0083, f01=0x018e, f02=»40 EQU * P LDK A2,1 BLOCK SIZE =1 $ P CF A5,STABLK START OF BLOCK =1 0 " P RF(NZ) ECH050 ERROR END ECHO X P LDR A2,A4 GET CHARACTER =1 ~ $ P CF A5,OUTPUT SEND CHARACTER =1 " P RF(NZ) ECH050 ERROR END ECHO " P CF A5,ENDBLK END OF BLO
0x1ae884…1aea18 Dummy {f00=0x0083, f01=0x0190, f02=» * P ABL ECHRTN RETURN TO KEYBOARD DRIVER P* 2 P* < P EJECT DRDN01 F P* ^ P* h 8 P**************************************************** r P* P* D N E R R P* P* ERROR ROUTINE P* 8 P**************
0x1aea18…1aebac Dummy {f00=0x0083, f01=0x408e, f02=»DN YES DO RECOVERY =1 0 P LDK A1,1 SET NOT OPERABEL IN RETURN CODE =1 P RB ENDIO END I/O REQUEST =1 R P END v P @ ************************ r P* P* D N E R R P* P* ERROR ROUTINE P* 8 P**************
0x1aebac…1aed40 Dummy {f00=0x0083, f01=0x2008, f02=» KSPACE? P RF(E) ECH050 P SUK A3,/10 CLEAR? . P RF(NE) ECH040 NO H P LDK A2,/40 ERASE DISPLAY b & PECH040 CF A5,OUTPUT SEND CHARACTER 0 PECH050 ABL ECHRTN RETURN TO KEYBOARD DRIVER P END P @ O D N P
0x1aed40…1aeed4 (1, 389) Dummy {f00=0x0083, f01=0x0000, f02=»
[…0x7…]
0x1af9e0…1afb74 (1, 390) Opaque[0x194]
0x1afb74…1afd08 # DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2398, f03=0x0000}
0x1afb74…1afd08 IdxSect {
0x1afb74…1afd08 f00 = 0x011c // 0x1afb74 @0x0
0x1afb74…1afd08 f01 = 0x0026 // 0x1afb76 @0x2
0x1afb74…1afd08 gno = [ // 0x1afb78 @0x4
0x1afb74…1afd08 [0x00]: C0x011c.0x3.0
0x1afb74…1afd08 [0x01]: C0x011d.0x0.0
0x1afb74…1afd08 [0x02]: C0x011d.0x1.0
0x1afb74…1afd08 [0x03]: C0x011e.0x1.0
0x1afb74…1afd08 [0x04]: C0x011e.0x2.0
0x1afb74…1afd08 [0x05]: C0x011e.0x3.0
0x1afb74…1afd08 [0x06]: C0x011f.0x0.0
0x1afb74…1afd08 [0x07]: C0x011f.0x1.0
0x1afb74…1afd08 [0x08]: C0x011f.0x2.0
0x1afb74…1afd08 [0x09]: C0x011f.0x3.0
0x1afb74…1afd08 [0x0a]: C0x0120.0x0.0
0x1afb74…1afd08 [0x0b]: C0x0120.0x1.0
0x1afb74…1afd08 [0x0c]: C0x0120.0x2.0
0x1afb74…1afd08 [0x0d]: C0x0120.0x3.0
0x1afb74…1afd08 [0x0e]: C0x0121.0x0.0
0x1afb74…1afd08 [0x0f]: C0x0121.0x1.0
0x1afb74…1afd08 [0x10]: C0x0121.0x2.0
0x1afb74…1afd08 [0x11]: C0x0121.0x3.0
0x1afb74…1afd08 [0x12]: C0x0122.0x0.0
0x1afb74…1afd08 ]
0x1afb74…1afd08 }
0x1afd08…1afe9c Dummy {f00=0x011c, f01=0x0190, f02=» 2 P IDENT DRDU01 REL 11.0 81-08-12 870105041100 P : 0 P =4, ERROR WHEN A3 AND PASSING LIMIT /FFFE B P =4, REL 11.0 81-05-18 v ( P =3, CONDITION FOR CPU857 CHANGED P =3, REL 11.0 81-04-02 * P =2, A2 AND A3 DISCS IN SAME SYSTEM
0x1afe9c…1b0030 Dummy {f00=0x011c, f01=0x0190, f02=» 6 P************************************************** P* > $ P* PHILIPS TERMINAL SYSTEM PTS H P* p . P* DRDU01 = DRIVER FOR ONE/TWO DISC UNITS z P* 0 P* PTS 6875 (X1215) AND/OR PTS 6876 (X1216) P* P* P* P
0x1b0030…1b01c4 Dummy {f00=0x011c, f01=0x0190, f02=» DISC j 4 P* DRIVES X1215,X1216 CONNECTED TO CPU VIA IOP P* ON MULTIPLEX CHANNEL F P* f P* p * P* THE FOLLOWING ORDERS ARE TREATED : z P* P* /00 TEST STATUS P* /01 BASIC READ P* /05 BASIC WRITE
0x1b01c4…1b0358 Dummy {f00=0x011c, f01=0x0190, f02=» x P* P* P*********** P* ENTRIES * 0 P*********** D P* X P* b $ P ENTRY DUADR ACTIVATION ADDRESS l P ENTRY DUON RECOVERY ROUTINE 2 P ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1 2 P ENTRY IHDU INTERRUPT HAND
0x1b0358…1b04ec Dummy {f00=0x011c, f01=0x0190, f02=»CT DRDU01 P* P* P************* ( P* EXTERNALS * > P************* T P* j P* t P EXTRN TDISP DISPATCHER ~ P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK , P EXTRN NVLCHK CHECK IF NEW
0x1b04ec…1b0680 Dummy {f00=0x011c, f01=0x0190, f02=»RN VOLCLR CLEAR VOLUME NAMES IN DWT . P EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS , P EXTRN DISIOE REQUEST ERROR ^ & P EXTRN INIFLG INITIALIZATION FLAG * P EXTRN PFPOST PWF POST PROCESSING FLAG * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P
0x1b0680…1b0814 (1, 391) Dummy {f00=0x011d, f01=0x0190, f02=»ND ORDER x P EXTRN DWTA2 SAVE AREA A2 P EXTRN DWTA4 SAVE AREA A4 2 P EXTRN DWTA5 SAVE AREA A5 T & P EXTRN DWTSB1 STACK BASE 1 IN DWT v & P EXTRN DWTSB2 STACK BASE 2 IN DWT " P EXTRN DWTUEC USER ECB ADDRESS & P EXTRN DWTORD SAVE AREA
0x1b0814…1b09a8 Dummy {f00=0x011d, f01=0x0190, f02=» EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH ( & P EXTRN ECBEL ECB EFFECTIVE LENGTH R P EXTRN ECBRC ECB RETURN CODE | ( P EXTRN ECBCW1 ECB 1:ST CONTROL WORD ( P EXTRN ECBCW2 ECB 2:ND CONTROL WORD P EXTRN DK:DIX DE
0x1b09a8…1b0b3c Dummy {f00=0x011d, f01=0x0190, f02=»DITIONAL ASSEMBLY * P* * P* > P* H 6 P* READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 R P* BY SETTING X:A = 0 P* PX:A EQU 0 PRAW EQU X:A P* P* . P* THIS DRIVER CAN HANDLE
0x1b0b3c…1b0cd0 Dummy {f00=0x011d, f01=0x0190, f02=»N USING TOSS MMU PAGING ~ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* N PMMUPAG EQU 0 X P* l P* v 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1
0x1b0cd0…1b0e64 Dummy {f00=0x011d, f01=0x0190, f02=»ETTING CPU857 EQU 1 v P* PCPU857 EQU 0 =3 & P* > P* H P* PROGRAM VERSION FOR FORMAT R , P* A2 IS OBTAINED BY SETTING VERSA2 EQU 1 v , P* A3 IS OBTAINED BY SETTING VERSA3 EQU 1 P* PX:C EQU 1 PVERSA2 EQU X:C P
0x1b0e64…1b0ff8 Dummy {f00=0x011d, f01=0x0190, f02=» P* CONSTANTS * P************* P* 4 P* > 0 PDAF1 EQU /28 DEVICE ADDRESS FIXED DISC NO. 1 H 4 PDAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1 | 0 PDAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2 4 PDAC2 EQU /18 DEVICE ADDRESS CART
0x1b0ff8…1b118c Dummy {f00=0x011d, f01=0x0190, f02=»NO OF SECTORS ON UNPACKED PTS 6875 | , PSECLEN EQU 256 SECTOR LENGTH, CHARACTERS * * PPHSECL EQU 384 PHYSICAL SECTOR LENGTH Z PQRETRY EQU 4 NO OF RETRIES PTIME EQU 1000 1 MIN 40 SEC P* P* P EJECT DRDU01 DRDU01 P*
0x1b118c…1b1320 Dummy {f00=0x011d, f01=0x0190, f02=»ABORT ROUTINE ADDRESS P* P IFT VERSA3=1 ( PBUFFER RES 193 > P XIF T P* ` P IFT VERSA3=0 j PBUFFER RES 25 P* P IFT RAW=1 P RES 103 P XIF P IFT VERSA2=1 =2 ( PCYLBUF RES 2 CYL ID CHECK BUFFER
0x1b1320…1b14b4 (1, 392) Dummy {f00=0x011d, f01=0x018e, f02=» ~ P* ACTIVATION * P* * " P***************** < P* V P* ` PDUAD EQU * j " P CM DWTRTY,A6 RETRY INDICATOR | 0 P CM DWTFBU,A6 RESET DRIVER BUFFER INDICATOR P LDK A1,0 P LC A1,DWTOR,A6 GET INDEX
0x1b14b4…1b1648 Dummy {f00=0x011d, f01=0x0190, f02=» r P* PDUA:00 EQU * P* & P LDK A5,DWTSB3 0 P ADR A5,A6 LOAD STACK BASE F P IFT MMUPAG=1 h ( P MLR 2,A8 GET 18 BIT BUFFER ADDRESS ~ P SLC A1,4 MOST SIGN. BITS P ANK A1,3 P SRL A2,1 WORD ADDDRESS & P CF A5,MMU
0x1b1648…1b17dc Dummy {f00=0x011d, f01=0x0190, f02=» ADK A7,0 SET CR ( P RF(NZ) DUA:05 NOT TEST STATUS ORDER P* D P EJECT DRDU01 N P* d P* n P********************* x P* * P* TEST STATUS * P* * P*********************
0x1b17dc…1b1970 Dummy {f00=0x011d, f01=0x0190, f02=» LDK A2,1 * P ST A2,DWTSAV,A6 INDICATE TEST STATUS " P CF A5,VO:NAM READ VOLUME NAME @ P ADK A1,0 f P RF(NZ) TESEND NOT OPERABLE x , P LD A2,DWTORD,A6 RESTORE INDEX AND ORDER P ST A2,DWTOR,A6 P LD A8,DWTECB,A6 ECB ADDRESS 6 P
0x1b1970…1b1b04 Dummy {f00=0x011d, f01=0x0190, f02=»T A2,DWTSAV,A6 INDICATE TEST STATUS DONE P ABL END:IO PERFORM ENDIO 0 P* R P EJECT DRDU01 P* t , P*************************************** ~ , P* * , P* NEW VOLUME LOADED CHECK *
0x1b1b04…1b1c98 Dummy {f00=0x011d, f01=0x0190, f02=»***** n P* . P* INPUT: A1=NVL RETURN CODE FROM NVLCHK P* A7=ORDER CODE J P* j P* t PDUA:05 EQU * ~ ( P ADK A1,0 CHECK IF NEW VOLUME LOADED " P ABL(NZ) END:IO PERFORM TENDIO P SUK A7,1 P RF(Z) DUA:10 BASI
0x1b1c98…1b1e2c Dummy {f00=0x011d, f01=0x0190, f02=» P RF(Z) DUA:10 PHYSICAL WRITE P SUK A7,10 ( P RF(Z) FORMAT FORMAT VOLUME : P* ^ " PDUERR ABL DISIOE REQUEST ERROR h P* ( PINCLEN EQU * REQUESTED LENGTH ERROR P LDKL A1,/8008 P ABL END:20 P EJECT DRDU01 P*
0x1b1e2c…1b1fc0 Dummy {f00=0x011d, f01=0x0190, f02=» * P************************** P* 4 P* > PFORMAT EQU * H 0 P LDK A7,204 NUMBER OF CYLINDERS ON PTS 6875 " P LD A1,ECBCW1,A8 GET DISC TYPE P IFT VERSA2+VERSA3=2 P ECR A2,A1 P XIF P ANK A1,1 P RF(NZ
0x1b1fc0…1b2154 (1, 393) Dummy {f00=0x011e, f01=0x0190, f02=» LDKL A1,/C001 WRITE ONE WORD P ANK A2,3 & P SUK A2,3 8 P RF(NZ) FORM05 A1 OR A2 J " P LDKL A1,/C0C1 WRITE 386 BYTES j P ADKL A3,PHSECL PFORM05 EQU * " P ST A1,DWTFBU,A6 SAVE 1ST WER P XIF P* P IFT VERSA2=1
0x1b2154…1b22e8 Dummy {f00=0x011e, f01=0x0190, f02=»SECL POSITION FOR CYL ID ~ P XIF P* , $ P STR A3,A6 DRIVER BUFFER POINTER 6 P IFT NUNITS=2 ^ P CF A5,INXUNI t P CM DWTCYL,A2 CYLINDER ZERO P XIF P IFT NUNITS=1 P CM DWTCYL,A6 CYLINDER ZERO P XIF P*
0x1b22e8…1b247c Dummy {f00=0x011e, f01=0x0190, f02=»NXUNI GET UNIT INDEX P XIF P CF A5,SEEK SEEK CYLINDER ( P SLL A1,5 STATUS J P RF(NN) FORM40 SEEK ERROR b P IFT NUNITS=2 P CF A5,INXUNI P LD A1,DWTCYL,A2 P XIF P IFT NUNITS=1 P LD A1,DWTCYL,A6 P XIF
0x1b247c…1b2610 Dummy {f00=0x011e, f01=0x0190, f02=»WRITE SECTOR 8 ON ODD CYLINDERS P ORK A3,1 ORDER CODE: WRITE ( P* L P IFT VERSA2+VERSA3=2 V P LD A1,DWTFBU,A6 GET 1ST WER r P XIF P* P IFT VERSA2=1 P IFT VERSA3=0 P LDKL A1,/C002 P XIF P* P IFT
0x1b2610…1b27a4 Dummy {f00=0x011e, f01=0x0190, f02=»A5,CIO:50 CIO:50 SECTOR P ANK A1,/1F P RF(NZ) FORM40 WRITE ERROR 4 P IFT NUNITS=2 V P CF A5,INXUNI l P IM DWTCYL,A2 P XIF P IFT NUNITS=1 P IM DWTCYL,A6 P XIF ( P SUK A7,1 DECREMENT CYLINDER COUNTER P
0x1b27a4…1b2938 Dummy {f00=0x011e, f01=0x0190, f02=» P CF A5,SEEKZ SEEK CYLINDER 0 P SLL A1,6 ( P RF(N) FORM50 SEEK ERROR : P SUK A4,1 RETRY COUNTER Z P RB(NZ) FORM30 RETRY z PFORM50 EQU * $ P LDK A1,2 SEEK ERROR RETURN CODE P ABL END:IO PERFORM END IO P EJECT DRDU01 DR
0x1b2938…1b2acc Dummy {f00=0x011e, f01=0x0190, f02=» * b 6 P* CHECK IF ALLOWED SECTOR LENGTH, BUFFER SIZE * 6 P* AND SECTOR NUMBER * F 6 P* SAVE BUFFER ADDRESS AND SET SECTOR COUNTER * 6 P* * 6 P********************
0x1b2acc…1b2c60 Dummy {f00=0x011e, f01=0x018e, f02=»ER POINTER t P* P* PDUA:10 EQU * & $ P LD A3,ECBRL,A8 REQUESTED LENGTH : P RB(Z) INCLEN b 6 P ECR A7,A3 DIVIDE BY 256 TO GET NUMBER OF SECTORS x & P ANK A3,/FF SET CONDITION REGISTER 4 P RB(NZ) INCLEN NOT AN INTEGER NUMBER OF SECT
0x1b2c60…1b2df4 (1, 394) Dummy {f00=0x011e, f01=0x0190, f02=» ~ * P RB(NL) DUERR INCORRECT SECTOR NUMBER P ADR A3,A7 6 P CW A3,DWTSMX,A2 H ( P RB(G) INCLEN SECTOR NUMBER OVERFLOW ` P* P IFT MMUPAG=0 P LD A1,ECBBA,A8 ( P ST A1,DWTUBU,A6 USER BUFFER POINTER P XIF P* P E
0x1b2df4…1b2f88 Dummy {f00=0x011e, f01=0x0190, f02=» * | " P* DISC VERSION SEPARATION * " P* * 8 " P***************************** ^ P* P* P LD A2,DWTFOR,A2 P SUK A2,2 P RF(Z) RW:800 VERSION A2 P XIF P* P EJECT DRDU01
0x1b2f88…1b311c Dummy {f00=0x011e, f01=0x0190, f02=» * P* * * P* GET PHYSICAL SECTOR NUMBER BY * 2 * P* DIVIDE BY 3 * ` * P* * * P************************************* P* P IFT CPU852=0 "
0x1b311c…1b32b0 Dummy {f00=0x011e, f01=0x018e, f02=»OSITION p 2 P* A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC ! P XIF ! F P* ! R P IFT VERSA3=1 ! P IFT CPU852=1 ! r P LD A1,ECBCW2,A8 ! P LDR A3,A1 SECTOR NUMBER ! P LDK A2,0 ! PDVK:00 EQU * ! P ADR A2,A3 I:= I+I/4 ! P SRL A
0x1b32b0…1b3444 Dummy {f00=0x011e, f01=0x0190, f02=» P SUK A2,1 " PDVK:10 EQU * " P ADK A2,1 " * P SUK A1,3 DIVIDE BY 3 " < P RB(NN) DVK:10 " Z P ADK A1,3 REST " p , P* A1=REMAINER=LOGICAL SECTOR POSITION " 2 P* A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC " P* " P EJECT DRDU01 "
0x1b3444…1b35d8 Dummy {f00=0x011e, f01=0x018e, f02=» * " p * P* SAVE PHYSICAL SECTOR NUMBER * # * P* AND SECTOR POSITION * # < * P* BRANCH ACCORDING TO SECTOR * # j * P* POSITION * # * P* * # * P********************
0x1b35d8…1b376c Dummy {f00=0x011e, f01=0x018e, f02=» # P* $ P ADR A2,A2 $ * P STR A2,A6 SAVE PHYSICAL SECTOR NUMBER $ $ P SUK A1,1 $ R P IFT RAW=1 $ d * P ST A1,DWTSEP,A6 SAVE SECTOR POSITION $ v 2 P ST A2,DWTSEI,A6 SAVE 1ST PHYS. SECTOR NUMBER $ P XIF $ P* $ P IFT VERSA3=1 $ P*
0x1b376c…1b3900 Dummy {f00=0x011e, f01=0x0190, f02=» P* % P EJECT DRDU01 % P* % $ * P************************************* % . * P* * % * P* READ/WRITE FROM SECTOR IN * % * P* POSITION , , xxxx, * % * P*
0x1b3900…1b3a94 (1, 395) Dummy {f00=0x011e, f01=0x0190, f02=»TSEI,A6 SAVE FOR READ AFTER WRITE % P XIF & * P* & 6 P IFT VERSA3=1 & @ P CF A5,IOROUT & V P DATA /0084 & l P SUK A7,1 & P RF RW:300 & P* & P EJECT DRDU01 & P* & * P************************************* & * P*
0x1b3a94…1b3c28 Dummy {f00=0x011e, f01=0x0190, f02=» * & * P************************************* ' $ P* ' R P* ' PRW:200 EQU * ' f P CF A5,IOROUT ' z P DATA /0048 ' P SUK A7,2 NUMBER OF SECTORS ' P RF(N) RW:230 1 SECTOR IN IO ' $ P RF(NZ) RW:260 >2 SECTORS IN
0x1b3c28…1b3dbc Dummy {f00=0x011e, f01=0x0190, f02=» CF A5,IOROUT ' P DATA /0040 ( P RF RW:600 ( * PRW:260 EQU * , XX,XXXXXX, ( < P CF A5,IOROUT ( ` P DATA /80C0 ( v P* ( P EJECT DRDU01 ( P* ( ( P************************************ ( ( P* * (
0x1b3dbc…1b3f50 Dummy {f00=0x011e, f01=0x0190, f02=»************************************ ( P* ) , P* ) 6 PRW:300 EQU * ) @ P SUK A7,3 SECTOR COUNTER ) T 0 P RF(NG) RW:500 LESS THAN FOUR SECTORS IN IO ) t P CF A5,IOROUT ) P DATA /80C0 ) P CF A5,IOROUT ) P DATA /80C0 ) P RB RW:300 )
0x1b3f50…1b40e4 Dummy {f00=0x011e, f01=0x0190, f02=»* READ/WRITE ON THE LAST SECTORS * ) ( P* IN IO * * , ( P* * * X ( P************************************ * P* * P* * PRW:500 EQU * * P RF(Z) RW:580 3 SECTORS * P ADK A7,2 *
0x1b40e4…1b4278 Dummy {f00=0x011e, f01=0x0190, f02=» * P RF RW:600 + PRW:560 EQU * ,XXXXXX,XX , + P CF A5,IOROUT + > P DATA /80C0 + T P CF A5,IOROUT + h P DATA /0040 + ~ P RF RW:600 + PRW:580 EQU * ,XXXXXX,XXXXXX, + P CF A5,IOROUT + P DATA /80C0 + P CF A5,IOROUT + P
0x1b4278…1b440c Dummy {f00=0x011e, f01=0x0190, f02=»******** + P* * , P* READ AFTER WRITE * , 0 P* * , P P************************ , p P* , 0 P* DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO , 8 P* 1ST POS IN DWT=LAST PHYSICAL SECTOR NUMBER IN IO ,
0x1b440c…1b45a0 Dummy {f00=0x011e, f01=0x0190, f02=»HYSICAL WRITE , | P LDKL A2,-/100 - , P LD A1,DWTSEP,A6 GET 1ST SECTOR POSITION - , P RF(Z) RW:645 , XX, - P RF(P) RW:640 , XXXX, - z P ADK A2,/80 - PRW:640 EQU * - P ADK A2,/80 - PRW:645 EQU * - , P ST A2,ECBEL,A8 PREPARE EFFECTIV
0x1b45a0…1b4734 (1, 396) Dummy {f00=0x011f, f01=0x0190, f02=»CTORS - l P STR A1,A6 . P* . P EJECT DRDU01 . * P* . @ P* . J PRW:650 EQU * . T P CF A5,IOROUT . h P DATA /40C0 . ~ P IMR A6 NEXT PHYSICAL SECTOR . P LDKL A1,PHSECL . " P ADS A1,ECBEL,A8 UPDATE ECBEL . P SUK A7,1 . P R
0x1b4734…1b48c8 Dummy {f00=0x011f, f01=0x018e, f02=»RW:700 EQU * . P LDK A1,0 RETURN CODE / P ABL END:20 ENDIO / 2 P* / L P XIF / V P* / b P EJECT DRDU01 / l P* / P IFT VERSA2=1 / P* / P* / & P********************************* / & P* * / &
0x1b48c8…1b4a5c Dummy {f00=0x011f, f01=0x0190, f02=» P* 0 PRW:800 EQU * 0 P CF A5,DIV31 0 " P IFT RAW=1 0 6 @ P ST A7,DWTSEI,A6 SAVE NUMBER OF SECTORS FOR READ AFTER WRITE 0 H P XIF 0 P* 0 P IFT VERSA2=1 0 PRW:850 EQU * 0 P CF A5,IOROUT 0 " P DATA /A080 INDICATE FORMAT A2 0 P
0x1b4a5c…1b4bf0 Dummy {f00=0x011f, f01=0x0190, f02=» 0 P EJECT DRDU01 1 P* 1 P* 1 ( P IFT RAW=1 1 2 P LD A7,DWTOR,A6 GET ORDER 1 D P ANK A7,/FF 1 f P SUK A7,/15 1 z P* 1 P IFT VERSA3=1 1 & P RB(NZ) RW:700 NOT PHYSICAL WRITE 1 P XIF 1 P* 1 P IFT VERSA3=0 1 P IFT
0x1b4bf0…1b4d84 Dummy {f00=0x011f, f01=0x018e, f02=»PARE FOR READ AFTER WRITE 1 P LD A7,DWTSEI,A6 2 " P CF A5,DIV31 2 : P* 2 N P EJECT DRDU01 2 X P* 2 n P* 2 x PRW:900 EQU * 2 P CF A5,IOROUT 2 P DATA /E080 READ AFTER WRITE 2 P SUK A7,1 2 P RB(NZ) RW:900 2 P XIF 2 P* 2
0x1b4d84…1b4f18 Dummy {f00=0x011f, f01=0x0190, f02=» P LDK A1,0 RESET RETURN CODE 3 P ABL END:20 3 ( P XIF 3 < P* 3 H P EJECT DRDU01 3 R P* 3 h 4 P*********************************************** 3 r 4 P* * 3 4 P* IOROUT PERFORM READ OR WRITE AND S
0x1b4f18…1b50ac Dummy {f00=0x011f, f01=0x0190, f02=»***************************************** 3 P* 4 2 & P* INPUT : ONE DATA WORD AFTER CF 4 < * P* BIT 0 :INDICATES DIRECT IO 4 f 0 P* BIT 1 :INDICATES READ AFTER WRITE 4 * P* BIT 2 :INDICATES FORMAT A2 4 * P* BIT 8-1
0x1b50ac…1b5240 Dummy {f00=0x011f, f01=0x0190, f02=»AD 4 Z @ P* DWTBSE CONTAINS THE PRESENT SECTOR IN THE DRIVER BUFFER 5 & P* DWTRTY INDICATES RETRIES DONE 5 N H P* DWTSWD SAVED WORD FROM USER BUFFER WHEN IO NOT VIA DRIVER BUFFER 5 x P* 5 PIOROUT EQU * 5 * P LDR* A3,A6 GET PHYSICAL SECTOR NUMBER
0x1b5240…1b53d4 (1, 397) Dummy {f00=0x011f, f01=0x0190, f02=» RF(NN) SEE:05 FORMAT A3 5 P ADK A3,0 6 P XIF 6 2 P* 6 > P EJECT DRDU01 6 H P* 6 ^ P* 6 h P IFT VERSA2=1 6 r " P RF(NZ) SEE:05 NOT CYLINDER 0 6 P CF A5,SEEKZ 6 P SLL A1,6 6 P RF(N) SEE:20 ERROR 6 P IFT NUNITS=2 6 P C
0x1b53d4…1b5568 Dummy {f00=0x011f, f01=0x0190, f02=»TCYL,A6 6 P RF VA2BR 7 P XIF 7 " P* 7 . P EJECT DRDU01 7 8 P* 7 N P* 7 X PSEE:05 EQU * 7 b P IFT NUNITS=2 7 v P CF A5,INXUNI 7 * P CW A3,DWTCYL,A2 COMPARE WITH PRESENT 7 P XIF 7 P IFT NUNITS=1 7 P CW A3,DWTCYL,A6 7
0x1b5568…1b56fc Dummy {f00=0x011f, f01=0x0190, f02=»FT VERSA3=1 7 " P RF(E) SEE:90 HEAD IN POSITION 8 P XIF 8 : P* 8 F P IFT VERSA2+VERSA3=2 8 P $ P RF(NE) SEE:07 NOT SAME CYLINDER 8 l P ADK A4,0 8 P RF(N) VA2BR FORMAT A2 8 P RF SEE:90 8 P* 8 P EJECT DRDU01 8 P* 8 P* 8
0x1b56fc…1b5890 Dummy {f00=0x011f, f01=0x0190, f02=» NUNITS=2 8 " P ST A3,DWTCYL,A2 NEW CYLINDER 9 P XIF 9 8 $ P LDK A4,QRETRY NUMBER OF RETRIES 9 D PSEE:10 EQU * 9 l P IFT NUNITS=2 9 $ P CF A5,INXUNI DOUBLED UNIT INDEX 9 P XIF 9 P CF A5,SEEK 9 P SLC A1,5 RETURN CODE 9 P RF(N) SEE:3
0x1b5890…1b5a24 Dummy {f00=0x011f, f01=0x0190, f02=»ODE 9 ~ P RF(N) SEE:20 ERROR : P IM DWTRTY,A6 INDICATE RETRY : ( P SUK A4,1 RETRY COUNTER : L P RB(NZ) SEE:10 TRY AGAIN : l PSEE:20 EQU * : P LDKL A3,/FFFF : P IFT NUNITS=2 : P CF A5,INXUNI : * P ST A3,DWTCYL,A2 DUMMY CYLINDER NUMBER
0x1b5a24…1b5bb8 Dummy {f00=0x011f, f01=0x0190, f02=»SEE:35 END IO : P* ; P EJECT DRDU01 ; P* ; 6 P* ; @ PSEE:30 EQU * ; J P IFT NUNITS=2 ; ^ P CF A5,INXUNI ; t P XIF ; P IFT VERSA2+VERSA3=2 ; P LD* A1,4,A5 GET DATA WORD ; P SLL A1,2 ; P RF(NN) SEE:31 FORMAT A3 ; P X
0x1b5bb8…1b5d4c Dummy {f00=0x011f, f01=0x0190, f02=»F A5,SKEW ; P LDKL A1,/8002 READ 2 WORDS < 4 P LDKL A2,CYLBUF READ TO CYLINDER CHECK BUFFER =2 < 6 P CF A5,CIO:50 < n P ANK A1,/1F ERROR CHECK < P RF(NZ) SEE:32 < $ P LD A3,CYLBUF GET CYLINDER ID =2 < P IFT NUNITS=2 < P CF A5,INXUNI <
0x1b5d4c…1b5ee0 Dummy {f00=0x011f, f01=0x0190, f02=»SAME CYLINDER < v P XIF = P IFT VERSA2=1 = " " P RB(NE) SEE:15 NOT SAME CYL ID = 8 PVA2BR EQU * = ^ P ABL VA2:00 = r P XIF = P* = P IFT VERSA3=1 = P EJECT DRDU01 = P* = P* = P* FORMAT A3 = P* = PSEE:31 EQU *
0x1b5ee0…1b6074 (1, 398) Dummy {f00=0x011f, f01=0x018e, f02=»IF = P* > P IFT VERSA3=1 > P SLL A3,5 GET SECTOR NUMBER > * $ P ST A3,DWTBSE,A6 SAVE FOR BSELOD > N P LDK A3,0 > v . P CF A5,SKEW TO READ SECTOR 0 OR 8 ON DISC > 0 P IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER > P CF A5,READ > 2 P LD A3
0x1b6074…1b6208 Dummy {f00=0x011f, f01=0x0190, f02=» > P* ? PSEE:32 EQU * ? P IM DWTRTY,A6 INDICATE RETRY ? & P SUK A4,1 RETRY COUNTER ? J P RB(NZ) SEE:15 RETRY ? j PSEE:35 EQU * ? P ABL END:10 ? P* ? P IFT VERSA3=1 ? P* ? P EJECT DRDU01 ? P* ? P* ? PSEE:40
0x1b6208…1b639c Dummy {f00=0x011f, f01=0x0190, f02=» IFT NUNITS=1 ? ( P LD A3,DWTCYL,A6 GET CYLINDER NUMBER @ P XIF @ B P IFT VERSA3=1 @ N , P CW A3,BUFFER+PHSECL COMPARE WITH CYL ID @ d P RB(NE) SEE:15 RETRY @ P* @ P EJECT DRDU01 @ P* @ P************************* @ P*
0x1b639c…1b6530 Dummy {f00=0x011f, f01=0x0190, f02=»************* @ P* A PSEE:90 EQU * A P LD A4,DWTOR,A6 GET ORDER A 4 P ANK A4,4 A V P RF(Z) READ00 READ ORDER A h P LD* A2,4,A5 A 0 P RF(N) WRIT20 WRITE DIRECT FROM USER BUFFER A P SLL A2,1 A P IFT RAW=1 A " P RF(N) READWR READ A
0x1b6530…1b66c4 Dummy {f00=0x011f, f01=0x0190, f02=»DWTFBU,A6 INDICATE READ TO DRIVER BUFFER A $ P CF A5,REA:00 READ BEFORE WRITE B 0 P* B X P EJECT DRDU01 B b P* B x P* B PWRIT10 EQU * B P LD* A2,4,A5 GET DATA WORD B P LDR A4,A2 B , P ANK A4,/C0 GET NUMBER OF WORDS TO MOVE B P SLL
0x1b66c4…1b6858 Dummy {f00=0x011f, f01=0x0190, f02=»ITS=2 B P CF A5,INXUNI C ( P LD A2,DWTCYL,A2 GET CYLINDER NUMBER C $ P XIF C P P IFT VERSA3=1 C P IFT NUNITS=1 C r ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER C P XIF C P IFT VERSA3=1 C . P ST A2,BUFFER+PHSECL PUT IN DRIVER BUFFER C 4 P
0x1b6858…1b69ec Dummy {f00=0x011f, f01=0x0190, f02=» DRDU01 C P* D P* D PWRIT20 EQU * D $ P IFT MMUPAG=0 D 8 * P LDKL A2,PHSECL PHYSICAL SECTOR LENGTH D N 0 P ADS A2,DWTUBU,A6 UPDATE USER BUFFER POINTER D | . P LD* A4,DWTUBU,A6 GET WORD IN USER BUFFER D P ST A4,DWTSWD,A6 SAVE WORD D & P IM
0x1b69ec…1b6b80 Dummy {f00=0x011f, f01=0x0190, f02=»TUBU,A6 PUT IN USER BUFFER D P XIF E " P IFT VERSA3=1 E . P IFT MMUPAG=0 E D P IFT NUNITS=1 E Z P LD A2,DWTCYL,A6 E p ( P ST* A2,DWTUBU,A6 PUT IN USER BUFFER E P XIF E P* E P IFT VERSA3=1 E P IFT MMUPAG=1 E P IFT NUNITS=2 E
0x1b6b80…1b6d14 (1, 399) Dummy {f00=0x011f, f01=0x0190, f02=»S=1 E ( P LD A4,DWTCYL,A6 GET CYLINDER NUMBER F P XIF F 8 P IFT VERSA3=1 F D P IFT MMUPAG=1 F Z ( P TS -30,A15 SAVE REGISTERS ON STACK F p ( P TL DWTPAG,A6 LOAD PAGE WITH CYL ID F 0 P LD A2,DWTUBU,A6 GET LOGICAL BUFFER POINTER F & P EL A3,PHSEC
0x1b6d14…1b6ea8 Dummy {f00=0x011f, f01=0x0190, f02=»RD F x & P IM DWTFSW,A6 INDICATE SAVED WORD G P XIF G 4 P* G @ P IFT VERSA3=1 G J 2 P CM DWTFBU,A6 INDICATE WRITE FROM USER BUFFER G ` 0 P CF A5,WRI:00 WRITE SECTOR FROM USER BUFFER G . P CF A5,REWORD RESTORE WORD TO USER BUFFER G P RF SEE:95 G
0x1b6ea8…1b703c Dummy {f00=0x011f, f01=0x0190, f02=»F SEE:97 G P XIF H P* H P IFT VERSA3=1 H & PREAD00 EQU * H < P LD* A2,4,A5 GET DATA WORD H P P RF(N) READ20 DIRECT READ H r 0 P IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER H ( P CF A5,REA:00 READ TO DRIVER BUFFER H P LD* A1,4,A5 GET DAT
0x1b703c…1b71d0 Dummy {f00=0x011f, f01=0x0190, f02=» SLL A1,4 H P CF A5,MOVRED I P RF SEE:95 I ( PREAD20 EQU * I : P IFT MMUPAG=0 I N P LDKL A3,PHSECL I d 0 P ADS A3,DWTUBU,A6 UPDATE USER BUFFER POINTER I | P XIF I P* I P IFT VERSA3=1 I . P CM DWTFBU,A6 INDICATE READ TO USER BUFFER I
0x1b71d0…1b7364 Dummy {f00=0x011f, f01=0x0190, f02=» EJECT DRDU01 I P* J P* J PSEE:96 EQU * J * P LD* A2,4,A5 GET DATA WORD J > P ANK A2,/C0 LENGTH J ` P SLL A2,1 J z " P ADS A2,ECBEL,A8 UPDATE ECBEL J P* J P IFT MMUPAG=1 J P LDK A1,0 J P SRL A2,1 WORD MODE J 0 P DA DWTB
0x1b7364…1b74f8 Dummy {f00=0x011f, f01=0x0190, f02=»2 UPDATE RETURN J P ADS A1,4,A5 K P RTN A5 K , P* K < P EJECT DRDU01 K F P* K P IFT VERSA2=1 K f P* K | P* K $ P******************************** K $ P* * K $ P* DISC FORMAT A2 * K $ P
0x1b74f8…1b768c Dummy {f00=0x011f, f01=0x0190, f02=»ETRIES K PVA2:10 EQU * L P IFT NUNITS=2 L " P CF A5,INXUNI L 8 P XIF L N P IFT VERSA2=1 L Z $ P CF A5,INLACE INTERLACE AND SKEW L p P* L P IFT MMUPAG=0 L P LDKL A1,/8080 1ST WER L P IFT RAW=1 L P LD* A2,4,A5 L P SLL A2,1 L
0x1b768c…1b7820 Dummy {f00=0x011f, f01=0x0190, f02=»FT VERSA2=1 L P IFT MMUPAG=1 M " P LDKL A1,/0808 1ST WER SHIFTED M * P XIF M P P* M P IFT VERSA2=1 M f P IFT RAW=1 M | P IFT MMUPAG=1 M P LD* A2,4,A5 M P SLL A2,1 M ( P RF(NN) VA2:20 NOT READ AFTER WRITE M P LDKL A1,/8080 M
0x1b7820…1b79b4 (1, 400) Dummy {f00=0x0120, f01=0x0190, f02=» M v P ANK A2,4 N P RF(Z) VA2:30 READ N P* N 4 P IFT MMUPAG=0 N > P LDKL A1,/C080 N T P XIF N j P* N v P IFT VERSA2=1 N P IFT MMUPAG=1 N " P LDKL A1,/080C 1ST WER SHIFTED N P XIF N P* N P IFT VERSA2=1 N " P ADK A3,1
0x1b79b4…1b7b48 Dummy {f00=0x0120, f01=0x0190, f02=»A2,DWTUBU,A6 2ND WER N P XIF O P* O ( P IFT VERSA2=1 O 2 P IFT MMUPAG=1 O H P LDK A2,0 O ^ P DA DWTBA1,A6 O p " P SRC A1,4 1ST WER IN POSITION O " P SLL A2,1 2ND WER IN POSITION O P XIF O P* O P IFT VERSA2=1 O PVA2:35 EQU
0x1b7b48…1b7cdc Dummy {f00=0x0120, f01=0x0190, f02=» RETRY O P RF WRI:50 ERROR P P* P & P EJECT DRDU01 P 0 P* P F P* P P PVA2:40 EQU * P Z * P LDR* A3,A6 GET PHYSICAL SECTOR NUMBER P n P ADK A3,1 NEXT SECTOR P P LDR A2,A3 P P CWK A2,31 P " P RF(NE) VA2:50 NOT CYLINDER 0 P & P ADK
0x1b7cdc…1b7e70 Dummy {f00=0x0120, f01=0x0190, f02=» P z PVA2:60 EQU * Q & P STR A3,A6 PHYSICAL SECTOR NUMBER Q P RB SEE:96 Q F P XIF Q X P* Q d P IFT VERSA3=1 Q n P EJECT DRDU01 Q P* Q P**************************** Q P* * Q P* SUBROUTINES FOR WRITE *
0x1b7e70…1b8004 Dummy {f00=0x0120, f01=0x0190, f02=»******** Q | P* R PWRI:00 EQU * R P LDK A4,QRETRY RETRIES R . PWRI:20 EQU * R L P IFT NUNITS=2 R ` P CF A5,INXUNI R v P XIF R P IFT VERSA3=1 R * P CF A5,INLACE INTERLACE SECTOR NUMBER R P CF A5,WRITE CIO R P ANK A1,/1F RETURN C
0x1b8004…1b8198 Dummy {f00=0x0120, f01=0x0190, f02=»UNTER R t P RB(NZ) WRI:20 S , P CF A5,REWORD RESTORE WORD IF NECESSARY S $ P XIF S T P* S ` PWRI:50 EQU * S j P ABL END:10 ERROR END IO S ~ P* S P IFT VERSA3=1 S P* S PWRI:80 EQU * S P RTN A5 S P* S P EJECT DRDU01 S
0x1b8198…1b832c Dummy {f00=0x0120, f01=0x0190, f02=» & P* USER BUFFER : * T & P* DRIVER BUFFER : * T . & P* * T X & P********************************* T P* T PREA:00 EQU * T P LD A3,DWTOR,A6 GET INDEX T P ANKL A3,/300 T P SLL A
0x1b832c…1b84c0 Dummy {f00=0x0120, f01=0x0190, f02=» T P LDK A4,QRETRY U PREA:20 EQU * U P IFT NUNITS=2 U 2 P CF A5,INXUNI U H P XIF U ^ P IFT VERSA3=1 U j * P CF A5,INLACE INTERLACE SECTOR NUMBER U P CF A5,READ READ SECTOR U P ANK A1,/F U 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDIC
0x1b84c0…1b8654 (1, 401) Dummy {f00=0x0120, f01=0x0190, f02=»R U p P RB(NZ) REA:20 RETRY V P ABL END:20 V & P* V : P EJECT DRDU01 V D P* V Z P* V d PREA:30 EQU * V n & P LD A3,BUFFER+PHSECL GET CYL ID =4 V P LD A2,DWTFBU,A6 V , P RF(NZ) REA:50 READ TO DRIVER BUFFER =4 V P IFT MMUPAG=0 V 6
0x1b8654…1b87e8 Dummy {f00=0x0120, f01=0x018e, f02=»5 SAVE REGISTERS V P TL DWTPAG,A6 LOAD MMUPAGE W 0 P LD A3,DWTUBU,A6 GET LOGICAL BUFFER POINTER W : P EL A3,PHSECL,A3 GET CYL ID W n P TL -30,A15 RESET REGISTERS W P XIF W P* W P IFT VERSA3=1 W PREA:50 EQU * W P IFT NUNITS=2 W
0x1b87e8…1b897c Dummy {f00=0x0120, f01=0x0190, f02=» W P IFT VERSA3=1 X $ P RF(E) REA:90 RIGHT CYLINDER ID X P LDK A1,2 SEEK ERROR X F P* X b P EJECT DRDU01 X l P* X P* X P RB REA:25 X PREA:85 EQU * X P LD A1,DWTFBU,A6 X ( P RF(NZ) REA:90 READ TO DRIVER BUFFER X $ P LDKL A4
0x1b897c…1b8b10 Dummy {f00=0x0120, f01=0x0190, f02=» P XIF Y P IFT VERSA3=1 Y & P CF A5,MOVRED MOVE TO USER BUFFER Y & PREA:90 EQU * Y P P RTN A5 Y d P* Y t P EJECT DRDU01 Y ~ P* Y P* Y * P************************************* Y * P* * Y * P*
0x1b8b10…1b8ca4 Dummy {f00=0x0120, f01=0x0190, f02=»IVER BUFFER TO USER BUFFER * Y * P* MOVRED * Z ( * P* * Z V * P************************************* Z P* Z P* A1 BUFFER ADDRESS IN Z P* A2 BUFFER ADDRESS OUT Z P* A4
0x1b8ca4…1b8e38 Dummy {f00=0x0120, f01=0x0190, f02=»WTUBU,A6 PRESENT POINT IN USER BUFFER Z P XIF [ . P* [ : P IFT VERSA3=1 [ D P IFT CPU852+MMUPAG=0 [ Z P IFT CPU857=1 [ v , P LD A2,DWTUBU,A6 GET USER BUFFER POINTER [ 0 P ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER [ P MVB A4 [ P XIF [
0x1b8e38…1b8fcc Dummy {f00=0x0120, f01=0x018e, f02=» A2,1 BYTE MODE [ P TS -30,A15 SAVE REGISTERS P TL DWTPAG,A6 : ( P LD A2,DWTUBU,A6 GET LOGICAL ADDRESS P P MVSU A4 | P XIF P* P IFT VERSA3=1 P RF MOV:00 P* P EJECT DRDU01 P* P* PMOVWRI EQU
0x1b8fcc…1b9160 Dummy {f00=0x0120, f01=0x0190, f02=» P XIF ] P* ] P IFT VERSA3=1 ] P IFT CPU852+MMUPAG=0 ] 0 P IFT CPU857=1 ] L , P LD A1,DWTUBU,A6 GET USER BUFFER POINTER ] b 0 P ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER ] P MVB A4 ] P XIF ] P* ] P IFT VERSA3=1 ] P IFT C
0x1b9160…1b92f4 (1, 402) Dummy {f00=0x0120, f01=0x0190, f02=»EGISTERS ] ~ P TL DWTPAG,A6 ^ ( P LD A1,DWTUBU,A6 GET LOGICAL ADDRESS ^ & P MVUS A4 ^ R P XIF ^ b P* ^ n P IFT VERSA3=1 ^ x PMOV:00 EQU * ^ P IFT MMUPAG+CPU857=0 ^ 0 P ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER ^ P XIF ^ P* ^ P
0x1b92f4…1b9488 Dummy {f00=0x0120, f01=0x0190, f02=»CPU857=0 ^ P IFT CPU852=1 _ P* _ & P EJECT DRDU01 _ 0 P* _ F P* _ P PMOV:10 EQU * _ Z P LDR* A3,A1 _ n P STR A3,A2 _ P ADK A1,2 _ P ADK A2,2 _ P SUK A4,2 _ P RB(P) MOV:10 _ P XIF _ P* _ P IFT VERSA3=1 _
0x1b9488…1b961c Dummy {f00=0x0120, f01=0x0190, f02=»DR A10,A2 OUTPUT ADDRESS _ P LDR A9,A1 INPUT ADDRESS ` $ P LDKL A12,16 BYTES IN EACH LOOP ` @ PMOV:15 EQU * ` h P MLR 8,A9 ` | P MSR 8,A10 ` P ADR A10,A12 ` P ADR A9,A12 ` P SUR A11,A12 ` P RB(P) MOV:15 ` , P MLR 12,A15 RESTORE RE
0x1b961c…1b97b0 Dummy {f00=0x0120, f01=0x0190, f02=» P EJECT DRDU01 a P* a P* a $ P*************************** a . P* * a R P* DIV31 * a v P* * a P*************************** a P* a , P* INPUT: ECBCW2=LOGICAL SE
0x1b97b0…1b9944 Dummy {f00=0x0120, f01=0x0190, f02=»D A1,ECBCW2,A8 GET LOGICAL SECTOR NUMBER a P LDR A3,A1 b 0 P LDK A2,0 b B PDIV:20 EQU * b T P ADR A2,A3 I0:=I0+I1 b h P SRL A3,5 I1:=I1/32 b P RB(NZ) DIV:20 b P LDR A3,A2 b P ANKL A3,/FFE0 32* b P SRL A2,5 TRUNCATE b P SUR A3,A2 b
0x1b9944…1b9ad8 Dummy {f00=0x0120, f01=0x0190, f02=»F(Z) DIV:50 CYLINDER 0 b P ADR A1,A2 c P ADK A1,1 c 0 P* c B P EJECT DRDU01 c L P* c b P* c l PDIV:50 EQU * c v 0 P STR A1,A6 PUT PHYSICAL SECTOR NUMBER IN DWT c P RTN A5 c P* c P XIF c P* c P IFT VERSA2=1 c P IFT
0x1b9ad8…1b9c6c Dummy {f00=0x0120, f01=0x0190, f02=» ADK A2,0 c P RF(Z) DIV:10 CYLINDER 0 d P ADK A2,1 d 2 PDIV:10 EQU * d D & P ADRS A2,A6 PHYSICAL SECTOR NUMBER d X P RTN A5 d P XIF d P* d P EJECT DRDU01 d P* d & P********************************* d & P*
0x1b9c6c…1b9e00 Dummy {f00=0x0120, f01=0x0190, f02=»* d p & P* * e & P********************************* e 4 P* e ^ B P* OUTPUT : A3 CONTAINING INTERLACED AND SKEWED SECTOR NUMBER e h P* e PINLACE EQU * e * P LDR* A3,A6 GET PHYSICAL SECTOR NUMBER e P LDR A1,A3 e
0x1b9e00…1b9f94 (1, 403) Dummy {f00=0x0120, f01=0x018e, f02=»ER e n P XIF f P IFT NUNITS=1 f ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER f , P XIF f X P ANK A2,1 f d P RF(Z) INLAC5 EVEN CYLINDER f v " P ADK A3,8 SKEW FACTOR 180 DEG. f PINLAC5 EQU * f P ANK A3,/1F f P SLL A3,2 IN POSITION f P R
0x1b9f94…1ba128 Dummy {f00=0x0120, f01=0x0190, f02=» f P* g 4 P* OUTPUT A2=DOUBLED UNIT INDEX + DWT ADDRESS g P* g J PINXUNI EQU * g T P LC A2,DWTOR,A6 g h P ANK A2,2 g P ADR A2,A6 g P RTN A5 g P XIF g P* g P IFT MMUPAG=1 g P EJECT DRDU01 g P* g P* g .
0x1ba128…1ba2bc Dummy {f00=0x0120, f01=0x018e, f02=»ND * g n . P* PAGE * h . P* * h B . P****************************************** h t P* h P* h PMMULOG EQU * h . P MS 2,DWTBA1,A6 SAVE PHYSICAL WORD ADDRESS h P DLA 4 h
0x1ba2bc…1ba450 Dummy {f00=0x0120, f01=0x0190, f02=» h j P SRL A2,3 i $ P ST A2,DWTUBU,A6 LOGICAL ADDRESS i P RTN A5 i B P* i R P XIF i P* i h P EJECT DRDU01 i r P* i P IFT VERSA3=1 i P* i P* i " P****************************** i P* i & P* UPDATE DRIVER BUFFER IN
0x1ba450…1ba5e4 Dummy {f00=0x0120, f01=0x0190, f02=»BSE=DRIVER BUFFER INDICATOR i P* j $ PBSELOD EQU * j . & P LDR* A3,A6 GET READ SECTOR NUMBER j B " PBSEL00 EQU * FROM SEEK VERIFY j l P LD A2,DWTFBU,A6 j , P RF(Z) BSEL50 READ/WRITE TO USER BUFFER j P LDKL A2,/FFFF DUMMY j P ADK A1,0 j P
0x1ba5e4…1ba778 Dummy {f00=0x0120, f01=0x0190, f02=» * j 4 P ST A2,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR k PBSEL50 EQU * k B P RTN A5 k V P* k f P EJECT DRDU01 k p P* k P* k , P*************************************** k , P* * k , P* RESTORE WO
0x1ba778…1ba90c Dummy {f00=0x0120, f01=0x0190, f02=»********************************* k P* l * * P* INPUT: DWTFSW=SAVED WORD INDICATOR l 4 P* DWTSWD=SAVED WORD l b , P* DWTUBU=POINTER TO USER BUFFER l P* l PREWORD EQU * l P LD A3,DWTFSW,A6 l P RF(Z) REWO50 NO SAVED WORD
0x1ba90c…1baaa0 Dummy {f00=0x0120, f01=0x0190, f02=»WTUBU,A6 GET LOGICAL BUFFER ADDRESS l ( P ES A3,PHSECL,A2 RESTORE SAVED WORD m , P TL -30,A15 RESET REGISTERS m X P XIF m | P* m P IFT VERSA3=1 m P IFT MMUPAG=0 m ( P ST* A3,DWTUBU,A6 RESTORE SAVED WORD m P XIF m P* m P IFT VER
0x1baaa0…1bac34 (1, 404) Dummy {f00=0x0121, f01=0x0190, f02=»RDU01 DRDU01 m P* n P* n P******************* n * P* * n F P* SEEK CYLINDER * n b P* * n ~ P******************* n P* n P* n PSEEK EQU * n P IFT NUNITS=2 n $ P LD A3,DWTCYL,A2 CYLIN
0x1bac34…1badc8 Dummy {f00=0x0121, f01=0x0190, f02=»UTE CIO-START n P* o PSEEKZ EQU * o P LDK A3,3 o 4 P RF CIO EXECUTE CIO-START o F P* o h P EJECT DRDU01 o r P* o P* o & P********************************** o & P* * o & P* CIO: READ AND WRITE
0x1badc8…1baf5c Dummy {f00=0x0121, f01=0x0190, f02=»CTOR NUMBER SHIFTED o x P* p P IFT VERSA3=1 p & P IFT MMUPAG=0 p < PREAD EQU * p R P LDKL A1,/80C1 1ST WER p d P RF CIO:20 p PWRITE EQU * p P LDKL A1,/C0C1 1ST WER p P ADK A3,1 ORDER CODE p PCIO:20 EQU * p P LD A2,DWTFBU,A6 p
0x1baf5c…1bb0f0 Dummy {f00=0x0121, f01=0x0190, f02=» PCIO:30 EQU * q * P LDKL A2,BUFFER DRIVER BUFFER ADDRESS q P XIF q F P* q R P IFT VERSA3=1 q P IFT MMUPAG=1 q r PREAD EQU * q " P LDKL A1,/0C18 1ST WER SHIFTED q P RF CIO:20 q PWRITE EQU * q " P LDKL A1,/0C1C 1ST WER SHIFTED q
0x1bb0f0…1bb284 Dummy {f00=0x0121, f01=0x0190, f02=»6 GET USER BUFFER ADDRESS q P SLL A2,1 BYTE MODE ADDRESS r " P RF CIO:40 r F PCIO:30 EQU * r X * P LDKL A2,BUFFER DRIVER BUFFER ADDRESS r l PCIO:40 EQU * r " P SRC A1,4 1ST WER IN POSITION r P XIF r P* r PCIO:50 EQU * r P WER A1,WE
0x1bb284…1bb418 Dummy {f00=0x0121, f01=0x0190, f02=» r x P LD A2,PFPOST s ( P RF(NZ) CIOAB PWF POST PROCESSING ON s * P CF A15,INXDWT GET INDEXED DWT ADDRESS s J $ P EX DWTCIO,A4 EXECUTE CIO-START s x & P ABL(3) END:30 CU ADDRESS UNKNOWN s PCIOAB EQU * s " P ST A5,DWTA5,A6 A5 s ( P ST
0x1bb418…1bb5ac Dummy {f00=0x0121, f01=0x0190, f02=» s P* t P********************** t P* * t 0 P* RECOVERY ROUTINE * t N P* * t l P********************** t P* t P* t PDUON EQU * t P* t P IFT CPU852=1 t & P CF A15,SAVE8 SAVE A1-A8 O
0x1bb5ac…1bb740 Dummy {f00=0x0121, f01=0x0190, f02=» t " P LDK A5,DWTSB3 GET STACK BASE u P ADR A5,A6 u . 0 P LDKL A1,/7FFE UNIT BUSY AND RECOVERY ON =1 u @ P ANS A1,DWTST,A6 =1 u t $ P CM DWTSAV,A6 INDICATE RECOVERY u & P LD A1,INIFLG INITIALIZATION FLAG u P RF(NZ) DUON05 NOT POWER UP u P*
0x1bb740…1bb8d4 (1, 405) Dummy {f00=0x0121, f01=0x0190, f02=» RF(NZ) DUON26 NOT OPERABLE u P IFT NUNITS=2 v $ P LDK A1,2 v : P SC A1,DWTOR,A6 NEXT UNIT v L P CF A5,SEEKZ v n P ANK A1,1 v P RF(NZ) DUON26 NOT OPERABLE v P XIF v P* v P EJECT DRDU01 v P* v P* v PDUON05 EQU * v
0x1bb8d4…1bba68 Dummy {f00=0x0121, f01=0x0190, f02=» VOLCLR v x P LDK A1,12 w P CF A15,VOLCLR w " PDUON07 EQU * w 8 P IFT NUNITS=2 w L P LDK A1,2 OTHER DISC UNIT w b P SC A1,DWTOR,A6 w P CF A5,VO:NAM w P ANK A1,1 w P RF(Z) DUON08 NO ERROR w P LDK A1,2 OTHER DISC UNIT w P SC
0x1bba68…1bbbfc Dummy {f00=0x0121, f01=0x0190, f02=» P LDKL A1,-1 x " P ST A1,DWTSAV,A6 RECOVERY DONE x P* x > P EJECT DRDU01 x H P* x ^ P* x h $ P LD A8,DWTECB,A6 GET ECB ADDRESS x r P RF(Z) END:IO NO REQUEST ON? x P* x $ PDUON10 LD A7,DWTORD,A6 GET ORDER x , P ST A7,DWTOR,A6 RESTORE
0x1bbbfc…1bbd90 Dummy {f00=0x0121, f01=0x018e, f02=»* x ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH y P ABL DUA:00 REPEAT REQUEST y 6 P* y X P EJECT DRDU01 y b P* y z P* READY INTERRUPT y P* y PDUREDY LD A1,TIMER y " P RF(Z) DUON50 NO TIMER ACTIVE y P* y P IFT NUNITS=1 y
0x1bbd90…1bbf24 Dummy {f00=0x0121, f01=0x0190, f02=» P* z P EJECT DRDU01 z P* z & P* z 0 PDUON26 EQU * z : ( P LDKL A4,TIMER TIMER POINTER ADDRESS z N P LDR* A3,A4 z z " P RF(Z) DUON30 NO TIMER ACTIVE z P LDKL A1,-TIME z P STR A1,A3 RESTART TIMER z P RB T:DISP z P* z P*
0x1bbf24…1bc0b8 Dummy {f00=0x0121, f01=0x0190, f02=» z P* { PDUON40 LDKL A6,DWDU01 { P CM TIMER { 0 PDUON50 EQU * { B 4 P LDKL A5,/7FFE SET UNIT BUSY AND RECOVERY ON =1 { V P ANS A5,DWTST,A6 =1 { $ P CM DWTSAV,A6 INDICATE RECOVERY { " P LDK A5,DWTSB3 GET STACK BASE { P ADR A5,A6 {
0x1bc0b8…1bc24c Dummy {f00=0x0121, f01=0x018e, f02=»* { z P* INTERRUPT HANDLER * | P* * | * P*********************** | J P* | j P* | t PIHDU EQU * | ~ PIHDU1 EQU * | PIHDU2 EQU * | $ P ST P,INTSAV SAVE LAST INTERRUPT | P* | P IFT CPU852=1 | & P CF A15,
0x1bc24c…1bc3e0 Dummy {f00=0x0121, f01=0x0190, f02=» $ P LDKL A6,DWDU01 DISC UNIT NO. 1 } P* } , P EJECT DRDU01 } 6 P* } N P* } X " PIHDU10 SST A1,CUADR GET STATUS } b * PIHDU20 ANKL A1,/460F MASK RETURN CODE } P SLL A1,1 } " P RB(N) DUREDY READY INTERRUPT } P SRL A1,1 } P LDR A2,
0x1bc3e0…1bc574 (1, 406) Dummy {f00=0x0121, f01=0x0190, f02=» * } P LD A8,DWTECB,A6 ECB ADDRESS ~ P LD A2,DWTSAV,A6 ~ . P RF(NN) GET ~ F P LDR A3,A1 ~ Z P ANK A3,1 ~ l * P RF(NZ) END:IO DISC UNIT NOT OPERABLE ~ ~ P* ~ * PGET LD A5,DWTA5,A6 RELOAD REGISTERS A5 ~ ( P LD A4,DWTA4,A6 A4
0x1bc574…1bc708 Dummy {f00=0x0121, f01=0x018e, f02=»*********** ~ P* * P* PERFORM ENDIO * 0 P* * L P******************* h P* P* $ PEND:30 EQU * CU ADDRESS UNKNOWN P LDK A1,1 NOT OPERABLE . P ORS A1,DWTST,A6 INDICATE RECOVERY DONE =1
0x1bc708…1bc89c Dummy {f00=0x0121, f01=0x0190, f02=» " P RF(N) END:20 READ AFTER WRITE P LD A7,DWTORD,A6 . P ANK A7,/FF GET ORDER F P SUK A7,/15 d ( P RF(NZ) END:20 NOT READ AFTER WRITE x $ P CM ECBEL,A8 RESET SECTORS DONE P XIF P* PEND:20 EQU * P LDKL A2,/FF00
0x1bc89c…1bca30 Dummy {f00=0x0121, f01=0x0190, f02=» RETURN CODE v P EJECT DRDU01 P* * P* 4 PEND:IO EQU * > P CF A15,TENDIO PERFORM ENDIO R P ABL TDISP GO TO DISPATCHER v P* P EJECT DRDU01 P* P* PVO:NAM EQU * P CF A5,SEEKZ SEEK SECTOR 0 P
0x1bca30…1bcbc4 Dummy {f00=0x0121, f01=0x0190, f02=» P CM DWTCYL,A2 CYLINDER 0 P XIF ( P IFT NUNITS=1 4 P CM DWTCYL,A6 J P XIF ` P LDK A3,0 SECTOR 0 l P* P IFT VERSA3=1 ( P IM DWTFBU,A6 READ TO DRIVER BUFFER P CF A5,READ P ANK A1,3 0 P CF A5,BSELOD UP
0x1bcbc4…1bcd58 Dummy {f00=0x0121, f01=0x0190, f02=»TO DRIVER BUFFER P CF A5,CIO:50 P ANK A1,3 ERROR ? . P XIF H P* T 0 P RF(NZ) VO:NA8 THROUGHPUT ERROR,NOT OPERABLE ^ P LDKL A2,BUFFER P LDK A3,/F0 FILE CODE P LD A1,DWTSAV,A6 P RF(Z) VO:NA6 ( P LDKL A3,/80F0 IND
0x1bcd58…1bceec Dummy {f00=0x0121, f01=0x0190, f02=» PDUNA40 EQU * P LDK A1,1 6 P LDK A7,1 TO INDICATE NOT TRANSFER PARAMETER ORDER . ( P LD A2,BUFFER+32 CHECK IF TOSS DISC h P CWK A2,'TO' P RF(NE) DUNA70 NO TOSS 4 P LD A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER P CWK A2,/2
0x1bceec…1bd080 Dummy {f00=0x0121, f01=0x0190, f02=» TRANSFER PARAMETER ORDER z * P CF A15,INXDWT GET INDEXED DWT ADDRESS " & P ECR A3,A2 SEPARATE THE PARAMETERS P P ANK A3,/3 z P ANK A2,/3 * P ST A3,DWTFOR,A4 SAVE FORMAT PARAMETER ( P LDKL A1,6324 SECTORS ON VERSION A2 P SUK A3,2 FORMAT
0x1bd080…1bd214 (1, 407) Dummy {f00=0x0121, f01=0x0190, f02=»8-6324 PDUNA60 EQU * P SUK A2,1 " P RF(Z) DUNA70 PTS 6875 4 , P ADR A1,A1 PTS 6876 2*MAXSEC ON PTS 6875 R PDUNA70 EQU * * P ST A1,DWTSMX,A4 MAX SECTOR NO IN DWT 4 P LDK A1,0 RESET RETURN CODE FOR TRANSFER PARAM. * P ADK A7,0 CH
0x1bd214…1bd3a8 Dummy {f00=0x0121, f01=0x0190, f02=»Y COUNTER t P LC A1,DWTOR,A6 P ADK A1,1 * P SC A1,DWTOR,A6 < P ANK A1,1 T P RB(NZ) VO:NAM f P RF VO:NA9 | PVO:NA8 EQU * P LDK A1,1 ERROR CODE PVO:NA9 EQU * P RTN A5 P* P* TIMER POINTER P*
0x1bd3a8…1bd53c Dummy {f00=0x0121, f01=0x0190, f02=»***** p * P* * * P* DEVICE WORK TABLE * < * P* * j * P************************************* P* P* PDWDU01 EQU * " P DATA 0 PHYSICAL SECTOR NU
0x1bd53c…1bd6d0 Dummy {f00=0x0121, f01=0x0190, f02=»0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE > P* P IFT MMUPAG=1 f & P DATA 0 SAVE AREA USER ECB ADDRESS | P DATA ECBDU1 MMU ECB ADDRESS P XIF P* PDWTFSW EQU *-DWDU01 P DATA 0
0x1bd6d0…1bd864 Dummy {f00=0x0121, f01=0x0190, f02=» P DATA 0 PDWTSWD EQU *-DWDU01 P DATA 0 0 P* @ P EJECT DRDU01 J P* ` P* j PDWTRTY EQU *-DWDU01 t P DATA 0 P DATA 0 P DATA /C000 FIXED 4 P DATA /8000 NEW VOLUME LOADED INDICATOR CARTR. 1 P DATA
0x1bd864…1bd9f8 Dummy {f00=0x0121, f01=0x0190, f02=»F,/FFFF,/FFFF VOLUME NAME 1ST CARTRIDGE P* 0 P IFT NUNITS=2 : 2 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND FIXED P 6 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND CARTRIDGE P XIF P* P EJECT DRDU01 P* P* PDWTSAV E
0x1bd9f8…1bdb8c Dummy {f00=0x0121, f01=0x0190, f02=»START x P CIO A3,1,DAF1 P CIO A3,1,DAC1 $ P* : P IFT NUNITS=2 D P CIO A3,1,DAF2 Z P CIO A3,1,DAC2 p P XIF P* PDWTCYL EQU *-DWDU01 P DATA /FFFF CYLINDER NUMBER P* P IFT NUNITS=2 P DATA /FFFF
0x1bdb8c…1bdd20 Dummy {f00=0x0121, f01=0x0190, f02=»IDGE t P* P IFT NUNITS=2 P DATA 1 2ND UNIT , P DATA 1 2ND UNIT D P XIF P* h PDWTFOR EQU *-DWDU01 r P DATA 0 DISC FORMAT ON FIXED " P DATA 0 DISC FORMAT CARTRIDGE P* P IFT NUNITS=2 P DATA 0 P
0x1bdd20…1bdeb4 (1, 408) Dummy {f00=0x0122, f01=0x0190, f02=» P IFT RAW=1 PDWTSEP EQU *-DWDU01 P DATA 0 6 PDWTSEI EQU *-DWDU01 F P DATA 0 b P XIF r P* ~ P IFT MMUPAG=1 PECBDU1 EQU * P DATA 0,0,0,0,0,0,0 PDWTBA1 EQU *-DWDU01 P DATA 0 PDWTBA2 EQU *-D
0x1bdeb4…1be048 Dummy {f00=0x0122, f01=0x4014, f02=» P END @ PDWTSEP EQU *-DWDU01 P DATA 0 6 PDWTSEI EQU *-DWDU01 F P DATA 0 b P XIF r P* ~ P IFT MMUPAG=1 PECBDU1 EQU * P DATA 0,0,0,0,0,0,0 PDWTBA1 EQU *-DWDU01 P DATA 0 PDWTBA2 EQU *-D
0x1be048…1be1dc Dummy {f00=0x0122, f01=0x2008, f02=» -DWDU01 2:ND WER INSTRUCTION - P WER A3,WER1+1 . , PDWTNAM EQU *-DWDU01 . B PDWTVOL EQU *-DWDU01 . ^ & P DATA 0,0,0 VOLUME NAME FIXED DISC . z * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC . PDWTSAV EQU *-DWDU01 . P DATA -1 . P END . @
0x1be1dc…1be370 Dummy {f00=0x0122, f01=0x0190, f02=»PLSEG APLNPE APLSWB $ APLSTA 8 APLTYP L NUMSEG ` PRGLG1 t SYSLOD STKEND SCTIPL SCTANO , ( I$ A 0 A A " A A STK
0x1be370…1be504 Dummy {f00=0x0122, f01=0x0190, f02=» A. z bREL TABBE ( , ( O UU @>B @ A 8 , ( k @ D E D E P h MMDDIV , ( $_( W V W V P ERROR SCTMSZ SCTEFA
0x1be504…1be698 Dummy {f00=0x0122, f01=0x018e, f02=» @ @ A , ( ! P A @ , ( ! @ $ A A @ P , ( H @ @ E E E E E , ( 9A A & E @ F CRP , ( U <A COP <A BAP AS<A E ASP
0x1be698…1be82c Dummy {f00=0x0122, f01=0x0190, f02=» , ( F ;j , ( Y P F P 4 , ( @ P - P _ d , ( :L E A W , ( F D AST =l R , ( ? W R Q
0x1be82c…1be9c0 Dummy {f00=0x0122, f01=0x0190, f02=» :L AST , ( A A E E A A " , ( 8 P W 89B @ V R , ( $ W Zb A @ @ , ( A A @ D , ( # B AS @ A
0x1be9c0…1beb54 (1, 409) Opaque[0x194]
0x1beb54…1bece8 # DirEnt {nam=»X25:L3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1118, f03=0x0000}
0x1beb54…1bece8 IdxSect {
0x1beb54…1bece8 f00 = 0x0088 // 0x1beb54 @0x0
0x1beb54…1bece8 f01 = 0x0078 // 0x1beb56 @0x2
0x1beb54…1bece8 gno = [ // 0x1beb58 @0x4
0x1beb54…1bece8 [0x00]: C0x0088.0x3.0
0x1beb54…1bece8 [0x01]: C0x0089.0x0.0
0x1beb54…1bece8 [0x02]: C0x0089.0x1.0
0x1beb54…1bece8 [0x03]: C0x0089.0x2.0
0x1beb54…1bece8 [0x04]: C0x0089.0x3.0
0x1beb54…1bece8 [0x05]: C0x008a.0x0.0
0x1beb54…1bece8 [0x06]: C0x008a.0x1.0
0x1beb54…1bece8 [0x07]: C0x008a.0x2.0
0x1beb54…1bece8 [0x08]: C0x008a.0x3.0
0x1beb54…1bece8 [0x09]: C0x008b.0x0.0
0x1beb54…1bece8 [0x0a]: C0x008b.0x1.0
0x1beb54…1bece8 [0x0b]: C0x008b.0x2.0
0x1beb54…1bece8 [0x0c]: C0x008b.0x3.0
0x1beb54…1bece8 [0x0d]: C0x008c.0x0.0
0x1beb54…1bece8 [0x0e]: C0x008c.0x1.0
0x1beb54…1bece8 [0x0f]: C0x008c.0x2.0
0x1beb54…1bece8 [0x10]: C0x008c.0x3.0
0x1beb54…1bece8 [0x11]: C0x008d.0x0.0
0x1beb54…1bece8 [0x12]: C0x008d.0x1.0
0x1beb54…1bece8 [0x13]: C0x008d.0x2.0
0x1beb54…1bece8 [0x14]: C0x008d.0x3.0
0x1beb54…1bece8 [0x15]: C0x008e.0x0.0
0x1beb54…1bece8 [0x16]: C0x008e.0x1.0
0x1beb54…1bece8 [0x17]: C0x008e.0x2.0
0x1beb54…1bece8 [0x18]: C0x008e.0x3.0
0x1beb54…1bece8 [0x19]: C0x008f.0x0.0
0x1beb54…1bece8 [0x1a]: C0x008f.0x1.0
0x1beb54…1bece8 [0x1b]: C0x008f.0x2.0
0x1beb54…1bece8 [0x1c]: C0x008f.0x3.0
0x1beb54…1bece8 [0x1d]: C0x0090.0x0.0
0x1beb54…1bece8 [0x1e]: C0x0090.0x1.0
0x1beb54…1bece8 [0x1f]: C0x0090.0x2.0
0x1beb54…1bece8 [0x20]: C0x0090.0x3.0
0x1beb54…1bece8 [0x21]: C0x0091.0x0.0
0x1beb54…1bece8 [0x22]: C0x0091.0x1.0
0x1beb54…1bece8 [0x23]: C0x0091.0x2.0
0x1beb54…1bece8 [0x24]: C0x0091.0x3.0
0x1beb54…1bece8 [0x25]: C0x0092.0x0.0
0x1beb54…1bece8 [0x26]: C0x0092.0x1.0
0x1beb54…1bece8 [0x27]: C0x0092.0x2.0
0x1beb54…1bece8 [0x28]: C0x0092.0x3.0
0x1beb54…1bece8 [0x29]: C0x0093.0x0.0
0x1beb54…1bece8 [0x2a]: C0x0093.0x1.0
0x1beb54…1bece8 [0x2b]: C0x0093.0x2.0
0x1beb54…1bece8 [0x2c]: C0x0093.0x3.0
0x1beb54…1bece8 [0x2d]: C0x0094.0x0.0
0x1beb54…1bece8 [0x2e]: C0x0094.0x1.0
0x1beb54…1bece8 [0x2f]: C0x0094.0x2.0
0x1beb54…1bece8 [0x30]: C0x0094.0x3.0
0x1beb54…1bece8 [0x31]: C0x0095.0x0.0
0x1beb54…1bece8 [0x32]: C0x0095.0x1.0
0x1beb54…1bece8 [0x33]: C0x0095.0x2.0
0x1beb54…1bece8 [0x34]: C0x0095.0x3.0
0x1beb54…1bece8 [0x35]: C0x0096.0x0.0
0x1beb54…1bece8 [0x36]: C0x0096.0x1.0
0x1beb54…1bece8 [0x37]: C0x0096.0x2.0
0x1beb54…1bece8 [0x38]: C0x0096.0x3.0
0x1beb54…1bece8 [0x39]: C0x0097.0x0.0
0x1beb54…1bece8 [0x3a]: C0x0097.0x1.0
0x1beb54…1bece8 [0x3b]: C0x0097.0x2.0
0x1beb54…1bece8 ]
0x1beb54…1bece8 }
0x1bece8…1bee7c Dummy {f00=0x0088, f01=0x0190, f02=» 0 P IDENT X25:L3 REL 11.0 81-07-06 870105041100 P =1, CF A15 IN INHIBIT 8 P =2, MISSING RET. CODE X P* z 0 P******************************************** P* " P* PHILIPS TERMINAL SYSTEM PTS P* , P* X25-L3: DRIVER FOR D
0x1bee7c…1bf010 Dummy {f00=0x0088, f01=0x0190, f02=»************************** ~ P* " P* , P* 6 P EJECT @ P* N @ P************************************************************ X P* P* P* ORDERS : P* P* /00 READ STATUS P* P* /02 READ P*
0x1bf010…1bf1a4 Dummy {f00=0x0088, f01=0x0190, f02=»* /27 CONNECT PASSIVE P* P* /2F DISCONNECT ( P* B P* /2D GET STATISTICS L P* j P* /38 SET STATUS t P* P* /39 SET TIMER P* P* @ P************************************************************ P
0x1bf1a4…1bf338 Dummy {f00=0x0088, f01=0x018e, f02=»************************************** P* . ( P ENTRY REQTIM REQUEST TIME OUT VALUE 8 " P ENTRY X25:ON POWER ON ROUTINE d P ENTRY DRX25 ACTIVATION P* P EJECT P* 0 P******************************************** P*
0x1bf338…1bf4cc Dummy {f00=0x0088, f01=0x0190, f02=» P EXTRN ECBFC FILE CODE P EXTRN ECBBA BUFFER ADDRESS & " P EXTRN ECBRL REQUESTED LENGTH J " P EXTRN ECBEL EFFECTIVE LENGTH p P EXTRN ECBRC RETURN CODE P EXTRN ECBCW1 P EXTRN ECBCW2 P* & P* DWT - DISPLACEMENTS: FIXED
0x1bf4cc…1bf660 Dummy {f00=0x0088, f01=0x0190, f02=»OPT OPTION P EXTRN DWTOR ORDER P EXTRN DWTTAB TTAB-ADDRESS , P* N P EJECT X P* f P* MONITOR ROUTINES p P* $ P EXTRN FNDTID FIND TTAB-ADDRESS P EXTRN SETIME TIMER ROUTINE ( P EXTRN ACTOT TASK ACTIVATION ROUTINE
0x1bf660…1bf7f4 (1, 410) Dummy {f00=0x0089, f01=0x018e, f02=» & P EXTRN TENDIO TOSS END I/O ROUTINE & P EXTRN GETBLK GET A MONITOR BLOCK . * P EXTRN FREBLK RELEASE A MONITOR BLOCK X P EXTRN FNDDNT FIND LOCAL DTE * P EXTRN GETDST GET SYMBOLIC DTE ADDRESS * P EXTRN GETDNA GET DTE NETWORK ADDRESS 6 P E
0x1bf7f4…1bf988 Dummy {f00=0x0089, f01=0x0190, f02=» * P EXTRN TRTASK TTAB ADDRESS FOR #T-TASK P* 2 P* TTAB DISPLACEMENTS < P* X P EXTRN TTB:ST b P EXTRN TTB:PW PSW : P EXTRN TTB:SA REGISTER SAVE AREA P* P EJECT P P**********************
0x1bf988…1bfb1c Dummy {f00=0x0089, f01=0x0190, f02=»TING MMUPAG TO 1 P* PMMUPAG EQU 0 " P* 6 P P**************************************************************************** @ P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION , P* SET IS OBTAINED BY SETTING CPU852 TO 0 P
0x1bfb1c…1bfcb0 Dummy {f00=0x0089, f01=0x0190, f02=»JECT P* PX:A EQU 1 , PSYNRLN EQU X:A NUMBER OF PHYSICAL LINES ( P* X PX:B EQU 600 b 4 PREQTIM EQU X:B REQUEST TIME OUT VALUE(IN 100MS) v P* PX:C EQU 128 4 PSYMXDL EQU X:C OVER ALL MAXIMUM USER DATA LENGTH P*
0x1bfcb0…1bfe44 Dummy {f00=0x0089, f01=0x0190, f02=»T LEVEL,LINE 1 p P* PX:L EQU 128 2 PSYMDL1 EQU X:L MAXIMUM USER DATA LENGTH,LINE 1 4 P* j PX:P EQU 0 t 8 PSYNRP1 EQU X:P # OF PERMANENT VIRTUAL CIRCUITS,LINE1 P* PX:T EQU 0 6 PCALDTE EQU X:T LOCAL DTE-ADDRESS IN CALL P
0x1bfe44…1bffd8 Dummy {f00=0x0089, f01=0x0190, f02=» IFF SYNRLN=1 P* PX:E EQU 3 0 PSYNRL2 EQU X:E # OF LOGICAL CHANNELS LINE 2 2 P* f PX:I EQU 2 p 2 PSYMXW2 EQU X:I WINDOW SIZE,PACKET LEVEL,LINE 2 P* PX:M EQU 128 2 PSYMDL2 EQU X:M MAXIMUM USER DATA LENGTH,LINE 2
0x1bffd8…1c016c Dummy {f00=0x0089, f01=0x0190, f02=»X:F EQU 3 0 PSYNRL3 EQU X:F # OF LOGICAL CHANNELS,LINE 3 P* F PX:J EQU 2 P 2 PSYMXW3 EQU X:J WINDOW SIZE,PACKET LEVEL,LINE 3 b P* PX:N EQU 128 2 PSYMDL3 EQU X:N MAXIMUM USER DATA LENGTH,LINE 3 P* PX:R EQU 0 : P
0x1c016c…1c0300 Dummy {f00=0x0089, f01=0x0190, f02=» # OF LOGICAL CHANNELS,LINE 4 P* & PX:K EQU 2 0 2 PSYMXW4 EQU X:K WINDOW SIZE,PACKET LEVEL,LINE 4 B P* x PX:O EQU 128 2 PSYMDL4 EQU X:O MAXIMUM USER DATA LENGTH,LINE 4 P* PX:S EQU 0 : PSYNRP4 EQU X:S # OF PERMANENT VI
0x1c0300…1c0494 (1, 411) Dummy {f00=0x0089, f01=0x018e, f02=»F WRITE REQUESTS FOR HDLC P* " , PSYUBNR EQU 2 # OF INPUT BUFFERS FOR HDLC , P* 0 PSYCLTM EQU 600 CLEAR TIME OUT VALUE IN 100MS f P* 0 PSYRETM EQU 600 RESET TIME OUT VALUE IN 100MS P 2 PSYRSTM EQU 600 RESTART TIME OUT VALUE IN
0x1c0494…1c0628 Dummy {f00=0x0089, f01=0x0190, f02=» $ PTRACE EQU 0 TRACE TASK IN SYSTEM PBYTE FORM 8,8 , P* B P EJECT L P* Z P IFT SYNRLN=1 d PPERMVC EQU SYNRP1 z PSWITVC EQU SYNRL1-SYNRP1 P XIF P IFT SYNRLN=2 PPERMVC EQU SYNRP1+SYNRP2 PSWDUM1 EQU SYNRL1+
0x1c0628…1c07bc Dummy {f00=0x0089, f01=0x0190, f02=» x PSWDUM1 EQU SYNRL1+SYNRL2 PSWDUM2 EQU SWDUM1+SYNRL3 ( PSWITVC EQU SWDUM2-PERMVC H P XIF h P IFT SYNRLN=4 t PPEDUM1 EQU SYNRP1+SYNRP2 PPEDUM2 EQU SYNRP3+SYNRP4 PPERMVC EQU PEDUM1+PEDUM2 PSWDUM1 EQU SYNRL1+SYNRL2
0x1c07bc…1c0950 Dummy {f00=0x0089, f01=0x0190, f02=»BLE FROM THROUGHPUT CLASS & P* TO WINDOW SIZE AND PACKET LENGTH " P* L > PCLAS1 BYTE 1,128 CLASS 1,LAYOUT: WINDOW SIZE/PACKET LENGTH V P BYTE 1,128 CLASS 2 P BYTE 1,128 CLASS 3 P BYTE 1,128 CLASS 4 P BYTE 1,128 CLASS 5 P
0x1c0950…1c0ae4 Dummy {f00=0x0089, f01=0x0190, f02=» P BYTE 3,128 CLASS 11 P BYTE 3,128 CLASS 12 P BYTE 3,128 CLASS 13 < P BYTE 3,128 CLASS 14 X P BYTE 3,128 CLASS 15 t P* P EJECT DWT P* P* DWT DISPLACEMENTS P* P IFT MMUPAG=0 PDWTDRD EQU /10 DWTTQ
0x1c0ae4…1c0c78 Dummy {f00=0x0089, f01=0x0190, f02=»TIC BUFFER ` 2 PDWTCHD EQU DWTDRD+2 CONFIG CHAIN LINK HEAD DWT 2 PDWTCHN EQU DWTDRD+4 CONFIG CHAIN LINK NEXT DWT H 2 PDWTLAD EQU DWTDRD+6 LOCAL SYMBOLIC DTE ADDRESS ~ 4 PDWTRAD EQU DWTDRD+8 REMOTE SYMBOLIC DTE ADDRESS & PDWTWRO EQU DWTDRD+10 WRITE O
0x1c0c78…1c0e0c Dummy {f00=0x0089, f01=0x0190, f02=»TE t , PDWTRTV EQU DWTDRD+14 REQUEST TIMER VALUE . PDWTRTP EQU DWTDRD+16 REQUEST TIMER POINTER : 0 PDWTRCI EQU DWTDRD+18 RETURN CODE INFORMATION l < PDWTRES EQU DWTDRD+20 CAUSE AND DIAGNOSTIC CODE FOR RESET < PDWTCLE EQU DWTDRD+22 CAUSE AND DIAGNOSTI
0x1c0e0c…1c0fa0 Dummy {f00=0x0089, f01=0x018e, f02=»TCHP b P* $ PDWTTYP EQU 'VC' VIRTUAL CIRCUIT P* > P EJECT DWT H P* . P* INTERNAL FUNCTION CODES; USED IN DWTFNC f P* POPESYS EQU /00 OPEN REQUEST PCLOSYS EQU /02 CLOSE REQUEST * PCONACT EQU /04 CONNECT ACTIVE
0x1c0fa0…1c1134 (1, 412) Dummy {f00=0x0089, f01=0x0190, f02=» PACCDAT EQU /0C ACCEPT DATA & PREFDAT EQU /0E REFUSE DATA REQUEST & PWRIDAT EQU /10 WRITE REQUEST P " PWRIINT EQU /12 WRITE INTERRUPT t PREADAT EQU /14 READ REQUEST & PREASTA EQU /16 READ STATUS REQUEST & PSTATIS EQU /18 STATISTICAL REQUE
0x1c1134…1c12c8 Dummy {f00=0x0089, f01=0x0190, f02=»D: ACCEPT DATA z ( PCONRD EQU /02 CONNECTED: REFUSE DATA 8 PINCALR EQU /03 INC.CALL RECEIVED(WITH ACC/REF CALL) B 6 PINCALL EQU /04 INC.CALL REC.(WITHOUT ACC/REF CALL) ~ PVCREL EQU /05 VC IS RELEASED P* . P* OPTION CODES; USED IN DWTOPT AND
0x1c12c8…1c145c Dummy {f00=0x0089, f01=0x0190, f02=»NTERRUPT PACKET PQOPT EQU /80 Q-BIT P* 2 P EJECT USER < P* P $ P* RETURN CODES OF A USER REQUEST Z P* PACPT.RC EQU /0000 ACCEPTED $ PRQUE.RC EQU /8000 REQUEST ERROR & PABOT.RC EQU /4000 REQUEST ABORTED 0 PINTR.RC
0x1c145c…1c15f0 Dummy {f00=0x0089, f01=0x018e, f02=»EQU /0400 Q-BIT SET IN PACKET 4 PNOLC.RC EQU /0200 LOGICAL CHANNEL NOT AVAILABLE & . PDATA.RC EQU /0100 DATA RECEIVED AND QUEUED ^ & PMORE.RC EQU /0080 MORE INFORMATION PTIMO.RC EQU /0040 TIME OUT . PRSET.RC EQU /0020 VC RESET,LOCAL OR REMOTE
0x1c15f0…1c1784 Dummy {f00=0x0089, f01=0x0190, f02=» $ PLOGE.RC EQU /0002 LOGICAL ERROR $ PPHYE.RC EQU /0001 PHYSICAL ERROR , > PTOLD.RC EQU /0001 RETURN INFO.TOLD TO USER(INTERNAL PAR.) T P* 2 P* RETURN CODES FROM LEVEL 3 TO REQUEST HANDLER P* " PRTNOK EQU /00 RETURN CODE = OK & PCL
0x1c1784…1c1918 Dummy {f00=0x0089, f01=0x0190, f02=»O MAX. PACKET LENGTH WHEN M=1 0 PINVSTA EQU /0C NO CORRECT LOG. CHANNEL STATE & 4 PMAXLNG EQU /0E MAX. LENGTH EXCEEDED FOR TRANSM. Z 0 PNOLCAV EQU /10 NO LOGICAL CHANNEL AVAILABLE $ PTMEOUT EQU /12 TIME OUT DETECTED 0 PNOREMO EQU /14 REMOTE ADDR
0x1c1918…1c1aac Dummy {f00=0x0089, f01=0x0190, f02=» LOCAL PROCEDURE ERROR PNOUSER EQU /02 NO USER KNOWN & PNOTINT EQU /03 NO INTERESTED USER B ( PRESLCH EQU /04 LOCAL SEQUENCE ERROR l P* * P* DIAGNOSTIC CODES FOR THE LOCAL USER P* & PLOCCLE EQU /80 VC IS CLEARED LOCAL * PRSTR
0x1c1aac…1c1c40 Dummy {f00=0x0089, f01=0x0190, f02=»BFCHPT EQU -2 QUEUE CHAIN POINTER PHDLC EQU /00 HDLC HEADER * , PGNFRM EQU /02 GENERAL FORMAT IDENTIFIER J 0 PQBIT EQU /02 CHARACTER DISPLACEMENT OF Q-BIT z * PLCIDNT EQU /03 LOGICAL CHANNEL NUMBER PIDENT EQU /04 PACKET TYPE 0 PMBIT EQU /
0x1c1c40…1c1dd4 (1, 413) Dummy {f00=0x0089, f01=0x0190, f02=»E b " PDGNCOD EQU /06 DIAGNOSTIC CODE PQPOS EQU /80 MASK FOR Q-BIT 0 PMPOS EQU /10 MASK FOR M-BIT T P* x $ P* EQUATE VALUES FOR PACKET TYPES P* PCAL.P EQU /0B CALL PACKET , PCAL.CP EQU /0F CALL CONFIRMATION PACKET PCL
0x1c1dd4…1c1f68 Dummy {f00=0x0089, f01=0x0190, f02=»T PACKET z 0 PINT.CP EQU /27 INTERRUPT CONFIRMATION PACKET PRR.P EQU /01 RR-PACKET D PRNR.P EQU /05 RNR-PACKET b PRSET.P EQU /1B RESET PACKET . PRSET.CP EQU /1F RESET CONFIRMATION PACKET " PRSTR.P EQU /FB RESTART PACKET 0 PRSTR.CP EQ
0x1c1f68…1c20fc Dummy {f00=0x0089, f01=0x0190, f02=» /05 CALL CONFIRMATION PCLE.L EQU /07 CLEAR PACKET , PCLE.CL EQU /05 CLEAR CONFIRMATION PACKET @ " PINT.L EQU /06 INTERRUPT PACKET p 0 PINT.CL EQU /05 INTERRUPT CONFIRMATION PACKET PRR.L EQU /05 RR-PACKET PRSET.L EQU /07 RESET PACKET
0x1c20fc…1c2290 Dummy {f00=0x0089, f01=0x018e, f02=» d P* ! P* SYSTEM VARIABLES ! P* ! , PNEG EQU /8000 ! 6 . PLOCAL EQU 'LP' LOCAL PACKET SWITCHING DTE ! L . PSVCTYP EQU 'RS' REMOTE DTE REACHED VIA SVC ! ~ . PPVCTYP EQU 'RP' REMOTE DTE REACHED VIA PVC ! 0 PTSKID EQU '#X' TASK IDENTIFICATION X25
0x1c2290…1c2424 Dummy {f00=0x0089, f01=0x018e, f02=» ! f P DATA 0,0 EXTEND DC-STACK " P RES 12 CALL FUNCTION STACK " * PDCSTAK EQU *-2 STACK POINTER " N P* " r P* " | P EJECT LC " P* " ( P* LOGICAL CHANNEL TABLE DISPLACEMENT " P* " PLCSTAT EQU 0 STATUS " " PLCSBST EQU LCSTAT+1
0x1c2424…1c25b8 Dummy {f00=0x0089, f01=0x0190, f02=» " p & PLCTHRE EQU LCDWT+2 THRESHOLD VALUE # . PNRNUBF EQU LCTHRE+1 # OF NOT USED BUFFERS # 2 * PQUEINP EQU NRNUBF+1 INPUT QUEUE ANCHOR # d , PQUEOUT EQU QUEINP+2 OUTPUT QUEUE ANCHOR # ( PLCTRWN EQU QUEOUT+2 TRANSMIT WINDOW # & PLCREWN EQU LCTRWN+1 RECEIV
0x1c25b8…1c274c Dummy {f00=0x0089, f01=0x0190, f02=»PS TO BE RECIEVED # ~ . PSLWE EQU RPS+1 SEND LWE = LAST RECEIVED PR $ : PRLWE EQU SLWE+1 LAST TRANSMITTED PR $ L PNOUSE EQU RLWE+1 NOT USED $ ( PREMADR EQU NOUSE+1 REMOTE DTE IF PVC $ 2 PREBFSZ EQU REMADR+2 MAX.RECEIVE PACKET LENGTH $
0x1c274c…1c28e0 Dummy {f00=0x0089, f01=0x0190, f02=»UF EQU TIMADR+4 SYSTEM OUTPUT BUFFER $ $ PLCALNG EQU SYSBUF+8 TABLE LENGTH % , P* % T P EJECT LC % ^ P* % p . P* EQUATE VALUES FOR LOGICAL CHANNEL STATUS % z P* % PREAD.ST EQU /00 READY STATE % $ PLCAL.ST EQU /01 LOCAL CALL STATE % & PRCAL.S
0x1c28e0…1c2a74 (1, 414) Dummy {f00=0x008a, f01=0x0190, f02=» CONTROL READY SUB-STATE % | $ PRSET.ST EQU /01 RESET SUB-STATE & P* & H $ P* EQUATE VALUES FOR CIRCUIT TYPE & R P* & z * PPVC EQU /01 PERMANENT VIRTUAL CIRCUIT & ( PSVC EQU /00 SWITCHED VIRTUAL CIRCUIT & P* & P EJECT LINE & P* & . P*
0x1c2a74…1c2c08 Dummy {f00=0x008a, f01=0x0190, f02=» TABLE ADDRESS & t . PPACKLN EQU LC:TAB+2 MAXIMUM PACKET LENGTH ' , PWNDSIZ EQU PACKLN+2 MAXIMUM WINDOW SIZE ' H , PNRLC EQU WNDSIZ+2 # OF LOGICAL CHANNELS ' x 4 PNRPVC EQU NRLC+1 # OF PERMANENT VIRTUAL CIRCUITS ' 0 PCHAIN EQU NRPVC+1 ANCHOR FOR CONNECTED D
0x1c2c08…1c2d9c Dummy {f00=0x008a, f01=0x0190, f02=»2 RESTART CONF. TIMER ADDRESS ' ~ ( PHRDSTA EQU RTMADR+2 HARDWARE STATUS ( & $ PCMNFLG EQU HRDSTA+2 COMMON FLAGS ( R , PLOCECB EQU CMNFLG+2 LINE OPEN/CLOSE ECB ( z 6 PUBNUM EQU LOCECB+12 BLOCK FOR (DIS)CONNECT REQUEST ( P IFF MMUPAG+STATI=2 ( PD1 EQU U
0x1c2d9c…1c2f30 Dummy {f00=0x008a, f01=0x0190, f02=»NR LINE INPUT ECB'S ( ~ P XIF ) P IFT MMUPAG+STATI=2 ) ( PD1 EQU UBNUM+SYUBNR+2 ) D 6 PINTSTB EQU D1+SYUBNR INTERMEDIATESTATISTIC BUFFER ) b , PECBINL EQU 12 LENGTH INPUT/OUTPUT ECB'S ) , PSYSBFL EQU SYMXDL+BEGDAT+1 BUFFER LENGTH ) * PECBIN1 EQU I
0x1c2f30…1c30c4 Dummy {f00=0x008a, f01=0x0190, f02=»IN2+ECBINL ) P IFF SYNRRC=3 * PECBIN4 EQU ECBIN3+ECBINL * ( P XIF * H P* * T P EJECT LINE * ^ P* * r P IFT SYNRRC=1 * | PECBOU1 EQU ECBIN1+ECBINL * P XIF * P IFT SYNRRC=2 * PECBOU1 EQU ECBIN2+ECBINL * P XIF * P IFT SYN
0x1c30c4…1c3258 Dummy {f00=0x008a, f01=0x0190, f02=»CBOU1+ECBINL * P IFF SYNRTR=1 + PECBOU2 EQU SYSOU1+SYSBFL + * PSYSOU2 EQU ECBOU2+ECBINL + J P IFF SYNRTR=2 + j PECBOU3 EQU SYSOU2+SYSBFL + PSYSOU3 EQU ECBOU3+ECBINL + P IFF SYNRTR=3 + PECBOU4 EQU SYSOU3+SYSBFL + PSYSOU4 EQU ECBOU4+
0x1c3258…1c33ec Dummy {f00=0x008a, f01=0x018e, f02=»FL + z P XIF , P IFT SYNRTR=3 , PLNBLNG EQU SYSOU3+SYSBFL , , P XIF , L P IFT SYNRTR=4 , X PLNBLNG EQU SYSOU4+SYSBFL , n P XIF , P* , P EJECT LINE , P* , , P* ORDER CODES FOR HDLC PROTOCOL HANDLER , P* , PCONN EQU /21
0x1c33ec…1c3580 Dummy {f00=0x008a, f01=0x0190, f02=» $ PSTATR EQU /2D STATISTIC REQUEST - P* - , , P* RETURN CODES FOR HDLC PROTOCOL HANDLER - 6 P* - f $ PHRDWER EQU /8000 HARDWARE ERROR - p ( PREMDIS EQU /000D REMOTE DISCONNECTED - & PDEFTIM EQU /000E DEFINITE TIME-OUT - P* - & P* EQUATE VALUES
0x1c3580…1c3714 (1, 415) Dummy {f00=0x008a, f01=0x018e, f02=» /40 REMOTE BUSY - 0 PNPRFLG EQU /01 NO PROCESSING FLAG FOR QUEUES . P* . L ( P* EQUATE VALUES FOR THE COMMON FLAGS . V P* . PRSTFLG EQU /01 RESTART BUSY . & PSTRTFL EQU /80 LINE CONNECTED FLAG . . PSTATFL EQU /04 STATISTIC REQUEST BUSY FLAG .
0x1c3714…1c38a8 Dummy {f00=0x008a, f01=0x0190, f02=» P EJECT / P* / 8 P* BLOCK WITH ADDRESSES OF LINE ADMINISTRATION BLOCKS / P* / X 2 PLINTAB DATA LINBL1 ADDRESS 1ST LINE ADM. BLOCK / b P IFF SYNRLN=1 / , P DATA LINBL2 ADDRESS 2ND LINE ADM. BLOCK / P IFF SYNRLN=2 / , P DATA LINBL3 ADDRESS
0x1c38a8…1c3a3c Dummy {f00=0x008a, f01=0x0190, f02=»INISTRATION BLOCK / P* 0 PLINBL1 EQU * 0 $ P DATA /60 FILE CODE 0 8 * P DATA LCADM1 LOG. CHANNEL ADM. POINTER 0 T $ P DATA SYMDL1 MAX. PACKET LENGTH 0 " P DATA SYMXW1 MAX. WINDOW SIZE 0 4 P BYTE SYNRL1,SYNRP1 # OF LOG.CH. AND # OF PVC'S 0 P
0x1c3a3c…1c3bd0 Dummy {f00=0x008a, f01=0x018e, f02=» P IFF SYNRL1=1 1 P DATA LCAD1.2 1 P IFF SYNRL1=2 1 0 P DATA LCAD1.3 1 F P IFF SYNRL1=3 1 P DATA LCAD1.4 1 r P IFF SYNRL1=4 1 P DATA LCAD1.5 1 P IFF SYNRL1=5 1 P DATA LCAD1.6 1 P IFF SYNRL1=6 1 P DATA LCAD1.7 1
0x1c3bd0…1c3d64 Dummy {f00=0x008a, f01=0x0190, f02=» 1 PLCAD1.1 EQU * 2 P RORG LCAD1.1+LCALNG 2 P IFF SYNRL1=1 2 : PLCAD1.2 EQU * 2 P P RORG LCAD1.2+LCALNG 2 f P IFF SYNRL1=2 2 PLCAD1.3 EQU * 2 P RORG LCAD1.3+LCALNG 2 P IFF SYNRL1=3 2 PLCAD1.4 EQU * 2 P RORG LCAD1.4+LCAL
0x1c3d64…1c3ef8 Dummy {f00=0x008a, f01=0x018e, f02=»1.6+LCALNG 2 P IFF SYNRL1=6 3 PLCAD1.7 EQU * 3 ( P RORG LCAD1.7+LCALNG 3 > P IFF SYNRL1=7 3 Z PLCAD1.8 EQU * 3 p P RORG LCAD1.8+LCALNG 3 P XIF 3 P IFF SYNRLN=1 3 P EJECT 3 P* 3 & P* SECOND LINE ADMINISTRATION BLOCK 3 P*
0x1c3ef8…1c408c Dummy {f00=0x008a, f01=0x0190, f02=» 3 n " P DATA SYMXW2 MAX. WINDOW SIZE 4 4 P BYTE SYNRL2,SYNRP2 # OF LOG.CH. AND # OF PVC'S 4 . P RORG LINBL2+LNBLNG 4 f P* 4 . P* BLOCK WITH LOGICAL CHANNEL ADM. POINTERS 4 P* 4 PLCADM2 EQU * 4 P DATA LCAD2.1 4 P IFF SYNRL2=1 4 P
0x1c408c…1c4220 Dummy {f00=0x008a, f01=0x0190, f02=»A LCAD2.5 4 P IFF SYNRL2=5 5 P DATA LCAD2.6 5 ( P IFF SYNRL2=6 5 > P DATA LCAD2.7 5 T P IFF SYNRL2=7 5 j P DATA LCAD2.8 5 P XIF 5 P EJECT 5 P IFF SYNRLN=1 5 P* 5 , P* LOGICAL CHANNEL ADMINISTRATION BLOCKS 5 P* 5
0x1c4220…1c43b4 (1, 416) Dummy {f00=0x008a, f01=0x0190, f02=»2 5 PLCAD2.3 EQU * 6 P RORG LCAD2.3+LCALNG 6 P IFF SYNRL2=3 6 < PLCAD2.4 EQU * 6 R P RORG LCAD2.4+LCALNG 6 h P IFF SYNRL2=4 6 PLCAD2.5 EQU * 6 P RORG LCAD2.5+LCALNG 6 P IFF SYNRL2=5 6 PLCAD2.6 EQU * 6 P RORG LCAD2.6+LC
0x1c43b4…1c4548 Dummy {f00=0x008a, f01=0x018e, f02=»AD2.8+LCALNG 6 P XIF 7 P IFF SYNRLN=1 7 P IFF SYNRLN=2 7 6 P EJECT 7 L P* 7 Z & P* THIRTH LINE ADMINISTRATION BLOCK 7 d P* 7 PLINBL3 EQU * 7 P DATA /62 FILE CODE 7 * P DATA LCADM3 LOG. CHANNEL ADM. POINTER 7 $ P DATA SYMDL3 MAX.
0x1c4548…1c46dc Dummy {f00=0x008a, f01=0x018e, f02=» 7 z P* 8 . P* BLOCK WITH LOGICAL CHANNEL ADM. POINTERS 8 P* 8 D PLCADM3 EQU * 8 N P DATA LCAD3.1 8 b P IFF SYNRL3=1 8 x P DATA LCAD3.2 8 P IFF SYNRL3=2 8 P DATA LCAD3.3 8 P IFF SYNRL3=3 8 P DATA LCAD3.4 8 P IFF SYNRL3=
0x1c46dc…1c4870 Dummy {f00=0x008a, f01=0x018e, f02=» 8 P DATA LCAD3.8 9 P XIF 9 P EJECT 9 * P IFF SYNRLN=1 9 8 P IFF SYNRLN=2 9 N P* 9 d , P* LOGICAL CHANNEL ADMINISTRATION BLOCKS 9 n P* 9 PLCAD3.1 EQU * 9 P RORG LCAD3.1+LCALNG 9 P IFF SYNRL3=1 9 PLCAD3.2 EQU * 9 P R
0x1c4870…1c4a04 Dummy {f00=0x008a, f01=0x018e, f02=» 9 P RORG LCAD3.4+LCALNG : P IFF SYNRL3=4 : $ PLCAD3.5 EQU * : : P RORG LCAD3.5+LCALNG : P P IFF SYNRL3=5 : l PLCAD3.6 EQU * : P RORG LCAD3.6+LCALNG : P IFF SYNRL3=6 : PLCAD3.7 EQU * : P RORG LCAD3.7+LCALNG : P IFF SYNRL3=
0x1c4a04…1c4b98 Dummy {f00=0x008a, f01=0x018e, f02=» P EJECT ; P* ; & P* FOURTH LINE ADMINISTRATION BLOCK ; P* ; F PLINBL4 EQU * ; P P DATA /63 FILE CODE ; d * P DATA LCADM4 LOG. CHANNEL ADM. POINTER ; $ P DATA SYMDL4 MAX. PACKET LENGTH ; " P DATA SYMXW4 MAX. WINDOW SIZE ; 4 P BYTE SYNRL4
0x1c4b98…1c4d2c Dummy {f00=0x008a, f01=0x018e, f02=» ; PLCADM4 EQU * < P DATA LCAD4.1 < P IFF SYNRL4=1 < 2 P DATA LCAD4.2 < H P IFF SYNRL4=2 < ^ P DATA LCAD4.3 < t P IFF SYNRL4=3 < P DATA LCAD4.4 < P IFF SYNRL4=4 < P DATA LCAD4.5 < P IFF SYNRL4=5 < P DATA LCAD4.6 <
0x1c4d2c…1c4ec0 Dummy {f00=0x008a, f01=0x0190, f02=» < P IFF SYNRLN=2 = P IFF SYNRLN=3 = P* = 4 , P* LOGICAL CHANNEL ADMINISTRATION BLOCKS = > P* = n PLCAD4.1 EQU * = x P RORG LCAD4.1+LCALNG = P IFF SYNRL4=1 = PLCAD4.2 EQU * = P RORG LCAD4.2+LCALNG = P IFF SYNRL4=2 = P
0x1c4ec0…1c5054 (1, 417) Dummy {f00=0x008a, f01=0x0190, f02=» = PLCAD4.5 EQU * > P RORG LCAD4.5+LCALNG > P IFF SYNRL4=5 > : PLCAD4.6 EQU * > P P RORG LCAD4.6+LCALNG > f P IFF SYNRL4=6 > PLCAD4.7 EQU * > P RORG LCAD4.7+LCALNG > P IFF SYNRL4=7 > PLCAD4.8 EQU * > P RORG LCAD4.8+LCAL
0x1c5054…1c51e8 Dummy {f00=0x008a, f01=0x018e, f02=»CAN BE OBTAINED IN THE FOLLOWING WAY > j J P* NUMBER OF BUFFERS NEEDED PER LOGICAL CHANNEL = WINDOW SIZE ? , L P* PER LINE SYNRRC BUFFERS FOR INPUT REQUEST AND SYUBNR BUFFERS ? z " P* TO BE USED BY HDLC ? P P* THE TOTAL NUM
0x1c51e8…1c537c Dummy {f00=0x008a, f01=0x0190, f02=» P* @ R P* THE BUFFER LENGTH IS OBTAINED BY SYMXDL+BEGDAT+1. THIS IS THE LENGTH @ J P* IN CHARACTERS. THIS LENGTH HAS TO BE EVEN (CHAIN POINTER FOR @ d P* QUEUEING EXCLUDED) @ P* @ PBUFLEN EQU SYMXDL+BEGDAT+1 @ P* @
0x1c537c…1c5510 Dummy {f00=0x008a, f01=0x0190, f02=»R POOL @ r PBUFPOL EQU * A P RES POOLEN POOL AREA A " P DATA 0 END OF QUEUE A @ PBPEND EQU * A P* A p P* BUFFER POOL CHAIN ANCHOR A z P* A PBUFANC DATA BUFPOL A P* A P EJECT A P* A & P* TTAB FOR #X-TASK IN X25 PACKAGE A
0x1c5510…1c56a4 Dummy {f00=0x008a, f01=0x0190, f02=» A t " P DATA 0 SEGMENT TABLE POINTER B " P DATA 0 SEGMENT BLOCK POINTER B . P XIF B T . P DATA 0 APPLICATION CONTROL BLOCK POINTER B ` PTTBX25 EQU * B " P DATA 0 DISPATCHER QUEUE LINK B " P DATA '#X' TASK IDENTIFICATION B P DATA 50 PRIORITY LEVE
0x1c56a4…1c5838 Dummy {f00=0x008a, f01=0x0190, f02=»0,0 REGISTER SAVE AREA,A1-A14 B ~ P DATA 0,0,0,0,0,0,0 . C & P* C D P EJECT C N P* C P* C f 2 P* MODULE CALLED BY TOSSIO FOR AN USER REQUEST C p P* C 0 P******************************************** C P* C P* INPUT PARAMETER: C P
0x1c5838…1c59cc Dummy {f00=0x008a, f01=0x0190, f02=» P DATA SYMXDL BUFFER LENGTH D P DATA 0 DEVICE INDEX D & PDRX25 EQU * D B $ P DATA DRX250 ACTIVATION ADDRESS D V & P DATA ABTREQ ABORT ROUTINE ADDRESS D ~ $ P******************************** D PDRX250 EQU * D P LDR A1,A6 PARAMETER D $ P LDKL A5
0x1c59cc…1c5b60 Dummy {f00=0x008a, f01=0x0190, f02=»SP D P EJECT E P* E P* E " 6 P* THIS MODULE IS CALLED AT MONITOR INITIATION TIME E , P* E f 0 P******************************************** E p P* E P* INPUT PARAMETERS: E P* NONE E P* E P* CALLING SEQUENCE: E P* CF
0x1c5b60…1c5cf4 (1, 418) Dummy {f00=0x008b, f01=0x0190, f02=»SYNRLN NUMBER OF LINES E P XIF F P* F * P* INITIATE LINE BLOCK F 4 P* F R PX25ON1 EQU * F " P LDR* A4,A1 LINE BLOCK ADDRESS F p P CM CMNFLG,A4 CLEAR FLAG F & P LD A6,CHAIN,A4 ANY DWT IN CHAIN ? F P RF(Z) X25ON3 NO F P* F P* INIT
0x1c5cf4…1c5e88 Dummy {f00=0x008b, f01=0x0190, f02=»D STATE F l 0 P CM DWTRTP,A6 CLEAR RUNNING TIMER INDICATION G 0 P LD A3,DWTCHN,A6 MORE DWT'S FOR THIS LINE ? G D P* G x P EJECT G P CM DWTCHN,A6 . G P LDR A6,A3 . G P RB(NZ) X25ON2 YES G P CM CHAIN,A4 RESET CHAIN G PX25ON3 EQU * G
0x1c5e88…1c601c Dummy {f00=0x008b, f01=0x0190, f02=»R POOL G P* H 0 P LDKL A2,BUFPOL START ADDRESS OF BUFFER POOL H $ P ST A2,BUFANC BUFFER POOL ANCHOR H L PX25ON4 EQU * H t " P LDR A1,A2 SAVE BUFFER ADDRESS H P ADK A2,BUFLEN+2 H P STR A2,A1 CREATE CHAIN H P LDR A3,A2 H 0 P SUKL A3,BPEND E
0x1c601c…1c61b0 Dummy {f00=0x008b, f01=0x0190, f02=»ASK H ~ P* I $ P LDKL A2,TRAC ACTIVATION ADDRESS I P LDKL A5,TRTASK TTAB ADDRESS I > " P CF A15,ACTOT ACTIVATE #T-TASK I b P XIF I P RTN A15 READY I P EJECT I P* I P* ABORT REQUEST HANDLER I P* I 0 P****************************
0x1c61b0…1c6344 Dummy {f00=0x008b, f01=0x0190, f02=»15,ABTREQ I P* J P* OUTPUT PARAMETERS: J P* NONE J 8 : P* WHEN IT IS A ILLEGAL REQUEST THE ROUTINE WILL HALT J H P* J PABTREQ EQU * J * P LDK A1,READAT WAS IT A READ REQUEST ? J P CC A1,DWTFNC,A6 . J P RF(NE) ABT000 NO J " P
0x1c6344…1c64d8 Dummy {f00=0x008b, f01=0x0190, f02=» CANCEL TIMER J p P LDR A14,A8 K P CM DWTRTP,A6 K < " P LD A8,DWTECB,A6 K ` " P ST A1,ECBCW1,A8 K * P LDKL A1,ABOT.RC RETURN CODE = ABORTED K $ P CF A15,TENDIO COMPLETE REQUEST K PABT000
0x1c64d8…1c666c Dummy {f00=0x008b, f01=0x0190, f02=» K " P* REQUEST HANDLER OUTPUT PART L P* L . @ P************************************************************ L 8 P* L | PRHOP EQU * L P LDK A2,2 L > P ST A2,DCLEVL SET PROCESS INDICATION L P LDR A6,A1 COPY
0x1c666c…1c6800 Dummy {f00=0x008b, f01=0x0190, f02=»A11,TRANSP ROUTINE TO CALL TRANSPORT HANDLER L ( P LDKL A14,DCSTAK SUBR.STACK POINTER M 4 P ANK A7,/3F MASK ORDER CODE M ` P RF(Z) RSTS00 READ STATUS M P SUK A7,2 M P RF(Z) READ00 READ M P SUK A7,/06-/02 M P RF(Z) WRIT00 WRITE M P S
0x1c6800…1c6994 (1, 419) Dummy {f00=0x008b, f01=0x0190, f02=»NA00 CONNECT ACTIVE M P* N P EJECT N & P* N 4 P SUK A7,/27-/24 N > " P ABL(Z) CONP00 CONNECT PASSIVE N V P SUK A7,/2F-/27 N | P ABL(Z) DISC00 DISCONNECT N P SUK A7,/38-/2F N P ABL(Z) STAT00 SET STATUS N P SUK A7,/39-/38 N P
0x1c6994…1c6b28 Dummy {f00=0x008b, f01=0x0190, f02=» PERRREQ EQU * O " P LDKL A1,RQUE.RC REQUEST ERROR O P ABL RHEXIT COMPLETE REQUEST O > P* O b P EJECT O l P* O z J P********************************************************************* O P* O P* READ STATUS REQUEST O P* O J P****
0x1c6b28…1c6cbc Dummy {f00=0x008b, f01=0x018e, f02=»DDRESS O p " P CF A14,FNDLIN GET LINE FLAGS P P SLL A1,8 P 4 P ANK A4,/FF GET DWT STATE P F P ORR A4,A1 PUT IT TOGETHER P h P ST A4,ECBCW1,A8 P P LDK A2,DWTRCI P P ADR A2,A6 P & P LDR* A1,A2 GET RETURN CODE INFO. P P LDR A7,A1 P " P A
0x1c6cbc…1c6e50 Dummy {f00=0x008b, f01=0x018e, f02=» P RF(Z) RSTS10 NO USER BUFFER Q $ P ABL(N) ERRLEN INCORRECT LENGTH Q ( P SUK A5,1 Q P $ P ABL(NP) ERRLEN BUFFER TO SHORT Q b P* Q P EJECT Q P* Q P* MORE INFORMATION FOUND Q P* Q PRSTS10 EQU * Q $ P XRRS A7,A2 RESET MORE INFO BI
0x1c6e50…1c6fe4 Dummy {f00=0x008b, f01=0x018e, f02=» P XRRS A1,A2 RESET RESET-BIT R P* R ( P* TEST IF RESET AND CLEAR R 2 P* R T P ANK A7,CLEA.RC R ^ P RF(Z) RSTS15 NO R v & P LDK A7,MORE.RC SET MORE INFO-BIT R P XRRS A7,A2 . R PRSTS15 EQU * R P XIF R P LDK A7,RSET.RC RESET R
0x1c6fe4…1c7178 Dummy {f00=0x008b, f01=0x0190, f02=» " P* MOVE RESET/CLEAR INFORMATION S P* S * PRSTS20 EQU * S 4 P ADR A2,A6 S H P LDK A3,2 LENGTH S Z P ST A3,ECBEL,A8 S r P IFT MMUPAG=1 S P LDR A1,A2 S P LD A2,ECBBA,A8 USER BUFFER S P LD A4,DWTTAB,A6 S P INH . =1 S 0 P CF A15,
0x1c7178…1c730c Dummy {f00=0x008b, f01=0x0190, f02=»ECBBA,A8 ...TO USER BUFFER S P XIF T " P LDR A1,A7 T . P RF RHEXIT T @ P IFF SWITVC=0 T R PRSTS30 EQU * T h P LDR A1,A7 T | P ANK A1,CLEA.RC CLEAR ? T " P RF(Z) RHEXIT COMPLETE REQUEST T 2 P LDK A3,TOLD.RC SET 'TOLD TO USER'-INDICATION T
0x1c730c…1c74a0 Dummy {f00=0x008b, f01=0x018e, f02=»ETE REQUEST T P XIF U P* U P EJECT U * P* U 8 @ P************************************************************ U B P* U ( P* READ,WRITE AND SET STATUS REQUEST U P* U @ P************************************************************ U
0x1c74a0…1c7634 (1, 420) Dummy {f00=0x008b, f01=0x0190, f02=» U h " P ANK A1,STRTFL MASK START FLAG V * P ABL(Z) ERRSYS INCORRECT SYSTEM STATE V . P ANK A4,/FF V P LDR A3,A4 DWTSTE V p & P RF(Z) ERRSTE INCORRECT DWT STATE V P* V P* GET LC-ADM ADDRESS V P* V P LC A4,DWTLCN,A6 V P CF
0x1c7634…1c77c8 Dummy {f00=0x008b, f01=0x0190, f02=» V P ANK A2,MORE.RC MORE INFO ? W P RF(Z) READ20 NO W , P LDR A2,A1 W D . P ANK A2,TOLD.RC RETURN INFO TOLD TO USER ? W V P IFF SWITVC=0 W P RF(NZ) READ10 YES W P XIF W P IFT SWITVC=0 W P RF(NZ) READ15 YES W P XIF W P EJECT W
0x1c77c8…1c795c Dummy {f00=0x008b, f01=0x0190, f02=»C=0 W P* X P* TEST IF RESET/CLEAR X P* X 4 PREAD10 EQU * X > P XRR A1,A2 X R P ANK A1,CLEA.RC CLEAR ? X d P RF(Z) READ15 NO X P LDR A1,A2 X P ANK A2,RSET.RC RESET ? X P RF(Z) RHEXIT NO X P* X P* RESET AND CLEAR X
0x1c795c…1c7af0 Dummy {f00=0x008b, f01=0x0190, f02=» EQU * X P LDK A1,RSET.RC+MORE.RC+1 Y ( P XRS A1,DWTRCI,A6 RESET RETURN INFO Y 0 P* Y P* SEPARATE THE REQUESTS Y f P* Y PREAD20 EQU * Y P LD A4,DWTOR,A6 Y P ANK A4,/3F Y P SUK A4,6 Y P RF(Z) WRIT05 WRITE REQUEST Y & P A
0x1c7af0…1c7c84 Dummy {f00=0x008b, f01=0x0190, f02=» SIZE Y p " P RF(L) ERRLEN INCORRECT LENGTH Z P* Z 4 P* BRANCH ON DWT STATE Z > P* Z b P LDK A2,READAT FUNCTION CODE Z l 6 P LDR A4,A3 SAVE DWT STATE Z P ADR A3,A3 Z ( P SUK A3,ENDRST+2 TEST+2 UPPER BOUND Z , P
0x1c7c84…1c7e18 Dummy {f00=0x008b, f01=0x0190, f02=»ONNECTED ACCEPT DATA Z & P DATA RCONRD CONNECTED REFUSE DATA [ P IFF SWITVC=0 [ F 6 P DATA RINCAR INCOMING CALL RECEIVED(WITH ACC/REF ) [ P P DATA RINCAR INCOMING CALL RECEIVED(WITHOUT ACC/REF ) [ * P DATA RVCREL VIRTUAL CIRCUIT R
0x1c7e18…1c7fac Dummy {f00=0x008b, f01=0x0190, f02=»RCONRD EQU * [ P LDK A2,ACCDAT " P CFR A14,A11 TRANSPORT HANDLER * ( P LDK A1,CONAD CONNECTED ACCEPT DATA P P SC A1,DWTSTE,A6 | P LDK A2,READAT FUNCTION CODE P EJECT P* P* READ " P* CONNECTED ACCEPT DATA
0x1c7fac…1c8140 Dummy {f00=0x008b, f01=0x018e, f02=»1,QUEINP,A13 P IFF SWITVC=0 ] 6 P SUK A4,INCALR CHECK DWT STATE ] * P RF(Z) READ30 ] d P* ] P* READ ] > P* INCOMING CALL RECEIVED,WITHOUT ACCEPT/REFUSE CALL ] P* ] < P LDK A1,CON
0x1c8140…1c82d4 (1, 421) Dummy {f00=0x008b, f01=0x0190, f02=» ] ~ P RF WRIT50 ACTIVATE TIMER ^ P* ^ * P EJECT ^ 4 P* ^ B P IFF SWITVC=0 ^ L P* ^ b P* READ ^ l $ P* INCOMING CALL RECEIVED ^ P* ^ PRINCAR EQU * ^ P LD A1,QUEINP,A13 ^ P ANKL A1,-2 ^ P RB(NZ) RCONAD ^
0x1c82d4…1c8468 Dummy {f00=0x008b, f01=0x018e, f02=»ERROR ^ v P RF RHEXIT COMPLETE REQUEST _ P IFF SWITVC=0 _ 2 P* _ H P* READ _ R $ P* VIRTUAL CIRCUIT CLEARED _ h P* _ PRVCREL EQU * _ ( P ANK A1,CLEA.RC CONNECTION CLEARED ? _ ( P RF(NZ) RHEXIT YES,COMPLETE REQUEST _ P*
0x1c8468…1c85fc Dummy {f00=0x008b, f01=0x0190, f02=» P* ` @ P************************************************************ ` P* ` R P* WRITE REQUEST ` P* ` z @ P************************************************************ ` P* ` PWRIT05 EQU * ` P* ` P* BRANCH ON DWT S
0x1c85fc…1c8790 Dummy {f00=0x008b, f01=0x0190, f02=»TED REFUSE DATA ` | P IFT SWITVC=0 a " P RB ERRSTE INCORRECT DWT STATE a . P XIF a T P IFF SWITVC=0 a ` P SUK A3,VCREL-CONRD a v & P RB(NZ) ERRSTE INCORRECT DWT STATE a P* a P EJECT a P* a & P* VIRTUAL CIRCUIT RELEASED a P
0x1c8790…1c8924 Dummy {f00=0x008b, f01=0x0190, f02=» A1,CLEA.RC VC CLEARED a P LD A2,DWTIPQ,A6 b ( $ P ANKL A2,-2 ANYTHING IN QUEUE ? b @ P RF(NZ) WRIT15 YES b h P ORK A1,MORE.RC MORE INFO b P LDR A2,A1 b , P ORK A2,TOLD.RC RETURN CODE TOLD TO USER b P ST A2,DWTRCI,A6 b P RF RHEXIT
0x1c8924…1c8ab8 Dummy {f00=0x008b, f01=0x0190, f02=» P XIF c P EJECT c P* c H P******************************************************************* c ( P* c t P* COMPLETE REQUEST c ~ P* c F P****************************************************************** c P* c PRHEXIT EQU
0x1c8ab8…1c8c4c Dummy {f00=0x008b, f01=0x0190, f02=» c p P* d P* CONNECTED d P* d , PWRIT20 EQU * d 6 P ADK A5,0 REQUESTED LENGTH d J " P RF(N) ERRLEN INCORRECT LENGTH d l ( P LC A3,DWTOPT,A6 GET NEW OPTION CODE d P LDR A4,A3 d P ANK A4,INTOPT INTERRUPT ? d P RF(Z) WRIT30 NO d
0x1c8c4c…1c8de0 Dummy {f00=0x008b, f01=0x0190, f02=»5 d PERRLEN EQU * e & P LDKL A1,INVL.RC INCORRECT LENGTH e P RB RHEXIT e H P* e Z P EJECT e d P* e r P* WRITE DATA e | P* e PWRIT30 EQU * e < P CW A5,TRBFSZ,A13 TRANSMIT BUFFER SIZE e " P RB(G) ERRLEN INCORRECT LE
0x1c8de0…1c8f74 (1, 422) Dummy {f00=0x008c, f01=0x0190, f02=»IT35 EQU * e ( P LC A1,DWTWRO,A6 GET OLD OPTION CODE f P LDR A2,A1 f > P ANK A1,MOPT MORE DATA ? f P P RF(Z) WRIT40 NO f p P ANK A2,QOPT OLD Q-BIT f P LDR A4,A3 f P ANK A4,QOPT NEW Q-BIT f P SUR A2,A4 SAME ? f $ P RB(NZ) ERRSTE NO,SEQUEN
0x1c8f74…1c9108 Dummy {f00=0x008c, f01=0x0190, f02=»14,A11 TRANSPORT HANDLER f P* g P EJECT g * P* g 8 P* g B P* ACTIVATE TIMER g L P* g l PWRIT50 EQU * g v ( P LD A8,DWTRTV,A6 REQUEST TIMER VALUE g 0 P RB(Z) RHSCHE NO TIMER,CONTROL TO SCHEDULER g 8 P LDKL A4,TIMOUT+1
0x1c9108…1c929c Dummy {f00=0x008c, f01=0x0190, f02=»LER g t P* h P EJECT h P* h $ P* h . @ P************************************************************ h 8 P* h | P* OPEN REQUEST h P* h @ P************************************************************ h P* h POPEN00 EQU *
0x1c929c…1c9430 Dummy {f00=0x008c, f01=0x0190, f02=»* LINE CLOSED h * P* CHECK IF OPEN SYSTEM ALREADY PENDING i P* i J $ P LD A3,CMNFLG,A12 i T P ANK A3,OPEFLG i | P RF(Z) OPEN10 NO i PERRSYS EQU * i , P LDKL A1,LOGE.RC INCORRECT SYSTEM STATE i P RB RHEXIT C
0x1c9430…1c95c4 Dummy {f00=0x008c, f01=0x0190, f02=»F(Z) OPEN15 NO ADDRESS TABLE i P* j $ , P* ADDR. TABLE NOT SUPPORTED IN PRR 11.0 j . P* j ^ P RB ERRLEN LENGTH ERROR j h POPEN15 EQU * j 4 P LD A3,ECBCW2,A8 GET LOCAL SYMBOLIC DTE ADDRESS j P ST A3,DWTLAD,A6 j P LDK A2,OPESYS OPEN SYSTEM j
0x1c95c4…1c9758 Dummy {f00=0x008c, f01=0x0190, f02=»* j & P LDKL A1,PVCTYP PVC IDENTIFICATION k 0 P LDKL A2,SCTDCT POINTER TO DC ADDRESS TABLE k 4 P LDKL A3,LINTAB-2 k h P IFF SYNRLN=1 k " P LDK A4,SYNRLN NUMBER OF LINES k P XIF k P IFF PERMVC=0 k POPEN40 EQU * k 4 P ADK A3,2 POINTER TO
0x1c9758…1c98ec Dummy {f00=0x008c, f01=0x0190, f02=»'S k | ( P LD A5,LC:TAB,A5 LC-ADM BLOCK TABLE l P* l 6 P EJECT l @ P* l N & P* GET NEXT ENTRY IN DC ADDR. TABLE l X P* l POPEN60 EQU * l P LDR* A2,A2 END OF TABLE ? l P RF(Z) OPEN90 YES l P* l P* TEST IF PVC l P* l P C
0x1c98ec…1c9a80 Dummy {f00=0x008c, f01=0x0190, f02=» ST A9,REMADR,A8 SAVE IT IN LC-ADM l P ADK A5,2 ADDRESS NEXT LC m * P SUK A7,1 MORE PVC'S ? m L P RB(NZ) OPEN60 YES m j POPEN80 EQU * m P IFF SYNRLN=1 m P SUK A4,1 MORE LINES ? m P RB(NZ) OPEN40 YES m P XIF m POPEN90 EQU * m P L
0x1c9a80…1c9c14 (1, 423) Dummy {f00=0x008c, f01=0x0190, f02=» m H P******************************************************************** n P* n T P* CONNECT PASSIVE REQUEST n ^ P* n H P******************************************************************** n P* n PCONP00 EQU * n P IFT SWITVC=0 n
0x1c9c14…1c9da8 Dummy {f00=0x008c, f01=0x0190, f02=»* n P EJECT o P* o H P******************************************************************** o " P* o n P* CONNECT ACTIVE REQUEST o x P* o H P******************************************************************** o P* o PCONA00 EQU * o
0x1c9da8…1c9f3c Dummy {f00=0x008c, f01=0x0190, f02=» P XIF p P IFF SWITVC=0 p " P RB(P) ERRLEN INCORRECT LENGTH p & P XIF p L P LDK A2,CONACT FUNCTION CODE p X PCONA05 EQU * p | , P CF A14,FNDLOC CONFIRM LOCAL DTE ADDRESS p " P ANK A1,STRTFL MASK START FLAG p ( P RB(Z) ERRSYS INCORRECT SYSTEM STA
0x1c9f3c…1ca0d0 Dummy {f00=0x008c, f01=0x0190, f02=» P EJECT q P* q P RF(Z) CONA10 q P SUK A4,VCREL q 2 " P RF(NZ) CLOS10 SEQUENCE ERROR q H P LD A1,DWTRCI,A6 RETURN INFO q n P LDR A3,A1 q $ P ANK A3,CLEA.RC CLEAR DETECTED ? q ( P RF(Z) CLOS10 NO,CONNECT NOT ALLOWED q " P ANK A1,TOLD.RC
0x1ca0d0…1ca264 Dummy {f00=0x008c, f01=0x0190, f02=» P* r 0 P LD A3,ECBCW2,A8 LOCAL SYMBOLIC DTE ADDRESS r P ST A3,DWTLAD,A6 r B 0 P LD A3,ECBCW1,A8 REMOTE SYMBOLIC DTE ADDRESS r Z P ST A3,DWTRAD,A6 r & P CM DWTRTP,A6 CLEAR TIMER ADDRESS r $ P CM DWTIPQ,A6 CLEAR INPUT QUEUE r $ P CM DWTRCI,A6 CL
0x1ca264…1ca3f8 Dummy {f00=0x008c, f01=0x0190, f02=»CLEAR RETURN INFO r $ P CF A14,PUTDWT PUT DWT IN CHAIN s P IFF SWITVC=0 s B P IFF PERMVC=0 s X " P SUK A2,CONACT CONNECT ACTIVE s n P RF(NZ) CONA40 NO! s P LC A2,DWTOPT,A6 PVC-OPTION? s P SUK A2,1 s P RF(NZ) CONA40 NO s P XIF s
0x1ca3f8…1ca58c Dummy {f00=0x008c, f01=0x018e, f02=» P XIF t P IFF SWITVC=0 t PCONA40 EQU * t & P RB WRIT50 ACTIVATE TIMER t : P XIF t P* t h P EJECT t r P* t @ P************************************************************ t P* t P* CLOSE REQUEST t P* t @ P********
0x1ca58c…1ca720 Dummy {f00=0x008c, f01=0x0190, f02=» " P ANK A1,STRTFL MASK START FLAG u $ P RF(Z) DISC40 CLOSE ALREADY DONE u * P* u R P* LINE OPEN u ( P* CHECK IF CLOSE ALREADY IN PROGRESS u p P* u P LDK A2,CLOSYS u $ P LD A3,CMNFLG,A12 u P ANK A3,CLOFLG u P
0x1ca720…1ca8b4 (1, 424) Dummy {f00=0x008c, f01=0x0190, f02=»******************************************* u x P* v 4 P* DISCONNECT REQUEST v > P* v Z H P******************************************************************* v d P* v PDISC00 EQU * v 4 P LD A1,DWTLAD,A6 GET LOCAL SYMBOLIC DTE ADDRESS v * P C
0x1ca8b4…1caa48 Dummy {f00=0x008c, f01=0x0190, f02=»/FF v * P RF(Z) DISC40 DISCONNECT ALREADY DONE w $ P CM DWTRCI,A6 CLEAR RETURN INFO w : P IFT SWITVC=0 w b P RF DISC50 w x P XIF w P IFF SWITVC=0 w * P SUK A4,VCREL VIRTUAL CIRCUIT RELEASED w P RF(NZ) DISC50 NO w P* w P* CLEAR IN
0x1caa48…1cabdc Dummy {f00=0x008c, f01=0x018e, f02=» LD A2,DWTIPQ,A6 QUEUE EMPTY ? w * P RF(Z) DISC20 YES x 0 6 P CF A14,DEQUE DEQUEUE ELEMENT x ^ 6 P CF A14,RLBUF RELEASE BUFFER x P RB DISC10 TAKE NEXT x PDISC20 EQU * x 4
0x1cabdc…1cad70 Dummy {f00=0x008c, f01=0x0190, f02=» x P* REMOVE DWT FROM CHAIN y P* y ( PDISC25 EQU * y 2 * P CF A14,RELDWT RELEASE DWT FROM CHAIN y F PDISC40 EQU * y t P LDK A1,ACPT.RC ACCEPTED y P ABL RHEXIT COMPLETE REQUEST y PDISC50 EQU * y P LDK A2,DISCAL y PDISC55 EQU * y
0x1cad70…1caf04 Dummy {f00=0x008c, f01=0x0190, f02=»TVC=0 y P* z ( P* TEST IF PERMANENT VIRTUAL CIRCUIT z P* z D P LC A1,VCTYP,A13 z N P ANK A1,PVC z f P RF(Z) DISC70 NO z z P XIF z P IFF SWITVC=0 z P SUK A2,DISCAL DISCONNECT ? z P RB(Z) DISC25 YES z PDISC70 EQU * z $ P A
0x1caf04…1cb098 Dummy {f00=0x008c, f01=0x0190, f02=»*********************************************************** z P* { D P* SET STATUS REQUEST { N P* { r @ P*********************************************************** { | P* { PSTAT05 EQU * { P IFF SWITVC=0 { P LDR A1,A3 { * P S
0x1cb098…1cb22c Dummy {f00=0x008c, f01=0x0190, f02=» { h P IFT SWITVC=0 | " P ABL(NZ) ERRREQ REQUEST ERROR | P XIF | D P IFF SWITVC=0 | P & P RF(NZ) STAT20 ACCEPT CALL REQUEST | f P XIF | ( P SUK A3,CONAD CONNECTED ACCEPT DATA | P RF(Z) STAT10 YES | . P SUK A3,CONRD-CONAD CONNECTED REFUSE D
0x1cb22c…1cb3c0 Dummy {f00=0x008c, f01=0x0190, f02=»EFUSE DATA | P LDK A1,CONRD } P SC A1,DWTSTE,A6 } ( " P CFR A14,A11 TRANSPORT HANDLER } @ $ P ABL RHSCHE CONTROL TO SCHEDULER } f P IFF SWITVC=0 } P* } P EJECT } P* } P* ACCEPT CALL REQUEST } P* } PSTAT20 EQU * } * P SUK A
0x1cb3c0…1cb554 (1, 425) Dummy {f00=0x008c, f01=0x0190, f02=»ACCEPT DATA } x P RB DISC60 TRANSPORT HANDLER ~ P XIF ~ 8 P EJECT ~ D P* ~ R H P******************************************************************** ~ P* ~ P* SET TIMEOUT REQUEST ~ P* ~ H P**********************************************
0x1cb554…1cb6e8 Dummy {f00=0x008c, f01=0x0190, f02=»OMPLETE REQUEST ~ P* P IFT STATI=1 " P EJECT 6 P* D P* N @ P*********************************************************** X P* P* STATISTIC REQUEST P* @ P***********************************************************
0x1cb6e8…1cb87c Dummy {f00=0x008c, f01=0x0190, f02=»RRREQ STATISTIC REQUEST BUSY P LD A2,ECBRL,A8 $ P ABL(NP) ERRLEN LENGTH ERROR < 6 P ORS A1,CMNFLG,A12 SET STATISTIC REQUEST BUSY FLAG ` P LDK A1,STATIS ( P SC A1,DWTFNC,A6 SAVE FUNCTION CODE P* : P* SAVE THREE WORDS OF THE USER ECB
0x1cb87c…1cba10 Dummy {f00=0x008c, f01=0x0190, f02=»GETBLK GET A BLOCK AND SAVE REGISTERS P ENB . . P ST A4,DWTRTP,A6 SAVE BLOCK ADDRESS IN DWT : , P ST A6,ECBCW2,A8 SAVE DWT-ADDRESS IN ECB l P* P EJECT P* 2 P* PREPARE ECB FOR STATISTIC REQUEST TO LEVEL 2 P* P LD A1,FIL
0x1cba10…1cbba4 Dummy {f00=0x008c, f01=0x0190, f02=»SS INTERMEDIATE STATISTIC BUFFER | P ST A1,ECBBA,A8 TO ECB ( P XIF F P IFT STATI=1 R ( P LDR A1,A8 ECB-ADDRESS AS PARAMETER f P* ( P* ISSUE STATISTIC REQUEST TO LEVEL 2 P* P LDK A7,STATR FUNCTION CODE P LKM P DATA
0x1cbba4…1cbd38 Dummy {f00=0x008c, f01=0x0190, f02=»M LEVEL 2 P* PSTAEND EQU * P LDR A8,A1 ECB-ADDRESS 0 $ P LD A6,ECBCW2,A8 GET DWT-ADDRESS N , P LD A4,DWTRTP,A6 GET ADDRESS SAVE BLOCK v P CM DWTRTP,A6 P INH . =1 P CF A15,FREBLK RELEASE BLOCK P ENB & P ST A1,ECB
0x1cbd38…1cbecc Dummy {f00=0x008c, f01=0x0190, f02=»T. BUFFER ADDRESS l . P ST A2,ECBBA,A8 RESTORE OLD BUFFER ADDRESS P LD A4,ECBEL,A8 L " P LDKL A14,DCSTAK STACK POINTER d 0 P CF A14,COPTUB COPY STAT.INFO.TO USER BUFFER P XIF P IFT STATI=1 P LD A1,ECBRC,A8 RETURN CODE P INH
0x1cbecc…1cc060 Dummy {f00=0x008c, f01=0x0190, f02=» LDK A1,STATFL P C1R A1,A1 , P ANS A1,CMNFLG,A12 RESET STAT. BUSY FLAG ( * P ABL EXITDC CONTROL BACK TO SCHEDULER X P XIF P EJECT P* . P* ROUTINE TO GET LINE INDEX AND/OR P* LINE BLOCK ADDRESS P* @
0x1cc060…1cc1f4 (1, 426) Dummy {f00=0x008d, f01=0x0190, f02=»C LOCAL DTE ADDRESS z P* P* CALLING SEQUENCE : & P* CF A14,FNDLIN J 0 P* CF A14,FNDLOC (A1 LOADED IN THE ROUTINE) j P* P* OUTPUT PARAMETERS : P* A1 = COMMON FLAGS & P* A12= LINE BLO
0x1cc1f4…1cc388 Dummy {f00=0x008d, f01=0x0190, f02=»CW2,A8 GET LOCAL DTE ADDRESS PFNDLIN EQU * $ P STR A2,A14 SAVE A2 8 P LDKL A3,LOCAL SET TYPE T P INH . =1 t " P CF A15,FNDDNT FIND LOCAL DTE P ENB . =1 P LDR A1,A1 FOUND ? P RF(NN) FNDL10 YES $ P ADKL A14,4 ADJUST STA
0x1cc388…1cc51c Dummy {f00=0x008d, f01=0x0190, f02=»AB,A3 LINE ADM. TABLE & P LD A1,CMNFLG,A12 GET COMMON FLAGS P LDR* A2,A14 RELOAD A2 H P RTN A14 f P EJECT v P* P* P* PUT DWT IN CHAIN P* H P******************************************************************** P
0x1cc51c…1cc6b0 Dummy {f00=0x008d, f01=0x0190, f02=» P* P* CALLING SEQUENCE: P* CF A14,PUTDWT * P* B P* OUTPUT PARAMETERS: L P* A1 IS CHANGED h P* PPUTDWT EQU * P STR A2,A14 SAVE A2 P LDR A2,A12 P ADK A2,CHAIN PPUTD10 EQU * P LDR* A1,A2 GET
0x1cc6b0…1cc844 Dummy {f00=0x008d, f01=0x0190, f02=»6,A2 PUT IN CHAIN P LDR* A2,A14 RESTORE A2 P RTN A14 : P* J P EJECT T P* b P* l P* RELEASE DWT FROM CHAIN v P* J P********************************************************************* P* P* INPUT PARAMETE
0x1cc844…1cc9d8 Dummy {f00=0x008d, f01=0x0190, f02=»QUENCE: P* CF A14,RELDWT P* ( P* OUTPUT PARAMETERS: 2 P* A1 AND A2 ARE CHANGED N P* n PRELDWT EQU * x P LDR A2,A12 P ADK A2,CHAIN P RF RELD20 FIRST IN CHAIN ? PRELD10 EQU * P LDR A2,A1 P ADK A2,
0x1cc9d8…1ccb6c Dummy {f00=0x008d, f01=0x0190, f02=»LD10 NO P LD A1,DWTCHN,A6 P STR A1,A2 REMOVE FROM CHAIN ( P CM DWTCHN,A6 L PRELD30 EQU * b P RTN A14 v P* P EJECT P* " P* TRANSPORT HANDLER INTERFACE P* PTRANSP EQU * ( P SC A2,DWTFNC,A6 SAVE FUNCTI
0x1ccb6c…1ccd00 Dummy {f00=0x008d, f01=0x018e, f02=» P* RETURN CODE TRANSLATION P* & P LD A1,RTNCTR,A4 0 P LDKL A4,RHEXIT H & P ST A4,4,A14 ADJUST RETURN ADDRESS ` PTRANSR EQU * P RTN A14 P* PRTNCTR EQU * P DATA ACPT.RC P DATA ACPT.RC ACCEPT * P DATA CLEA
0x1ccd00…1cce94 (1, 427) Dummy {f00=0x008d, f01=0x0190, f02=» r P DATA SEQE.RC INVALID STATE P DATA INVL.RC INVALID LENGTH , . P DATA NOLC.RC NO LOGICAL CHANNEL AVAILABLE P $ P DATA TIMO.RC TIME OUT DETECTED P DATA RQUE.RC REQUEST ERROR P* P EJECT P* H P************************
0x1cce94…1cd028 Dummy {f00=0x008d, f01=0x0190, f02=»**************************************** t P* 0 $ P* ENTRY USED BY THE DC-SCHEDULER : P* b P* INPUT PARAMETERS: l " P* A1 = QUEUE ANCHOR ADDRESS 2 P* A12 = ADDRESS OF LINE ADMINISTRATION BLOCK 2 P* A13 = ADDRESS OF LOGICAL CHANNEL
0x1cd028…1cd1bc Dummy {f00=0x008d, f01=0x0190, f02=»IP-ENTRY-POINT X P RF RHIP10 P* 6 4 P* ENTRY USED BY THE REQUEST HANDLER OUTPUT PART @ P* x P* INPUT PARAMETERS: P* A6 = DWT ADDRESS P* A14 = CF STACK POINTER P* PRHIPRO EQU * P* " P* SE
0x1cd1bc…1cd350 Dummy {f00=0x008d, f01=0x0190, f02=» A7:=INDICATION FOR RHIPRO-ENTRY-POINT x > P ST A7,DCLEVL SET DC-LEVEL-INDICATION 8 P* z P EJECT P* P* DEQUEUE ELEMENT P* PRHIP10 EQU * P LDR A11,A1 A11=QUEUE ANCHOR P CF A14,DEQUE
0x1cd350…1cd4e4 Dummy {f00=0x008d, f01=0x018e, f02=»PACKET TYPE | 6 P LDK A3,0 A3:=PACKET TYPE INDEX FOR PROCESS-TABLE P* N " P* TEST IF ENTRY POINT WAS RHIP X P* ~ P LDR A7,A7 * P RF(NZ) RHIP20 NO! P* ( P* GET DWT ADDRESS FROM LC-ADM
0x1cd4e4…1cd678 Dummy {f00=0x008d, f01=0x018e, f02=» P LD A5,DWTST,A6 $ P RF(N) RHIP30 NO REQUEST PENDING P* H P* GET PENDING REQUEST R P* v P LDK A5,0 P LC A5,DWTFNC,A6 P* P EJECT P* * P* TEST IF READ REQUEST PENDING P* P SUK
0x1cd678…1cd80c Dummy {f00=0x008d, f01=0x0190, f02=» P LDR A6,A6 ( P RF(NZ) RHIP40 DWT ADDRESS AVAILABLE P IFF SWITVC=0 B P* X P* NO DWT ADDRESS b 2 P* TEST IF PACKET TYPE IS "CALL PACKET" P* * P LDK A3,6 A3:=INDEX FOR PROCESS-TABLE P SUK A2,CAL.P & P R
0x1cd80c…1cd9a0 Dummy {f00=0x008d, f01=0x018e, f02=» SEND CLEAR/RESET PACKET | P* & P LDK A1,NOUSER A1:=DIAGNOSTIC CODE * P RF RHI100 T P* f PRHIP40 EQU * p P LDK A1,DWTRCI P ADR A1,A6 P LDKL A9,DATA.RC P* P EJECT P*
0x1cd9a0…1cdb34 (1, 428) Dummy {f00=0x008d, f01=0x0190, f02=» . P ORRS A9,A1 SET INDICATION 'DATA RECEIVED' P RF RHIP60 6 PRHIP50 EQU * V P C1R A9,A9 r 0 P ANRS A9,A1 RESET INDICATION 'DATA RECEIVED' PRHIP60 EQU * P IFF SWITVC=0 P* P* DWT
0x1cdb34…1cdcc8 Dummy {f00=0x008d, f01=0x0190, f02=» NO! r P* P* TEST IF VC RELEASED P* 8 P LDK A4,VCREL B P LDR A10,A4 d " P LC A4,DWTSTE,A6 x P SUR A10,A4 * P RF(NZ) RHIP70 NO! P* P EJECT P*
0x1cdcc8…1cde5c Dummy {f00=0x008d, f01=0x0190, f02=»NCHOR b P RF(Z) RHIP65 $ P LDR* A4,A7 MORE DATA IN QUEUE ? $ P RF(NZ) RHIP65 YES L . P XRRS A9,A1 RESET MORE DATA BIT IN DWTRCI f PRHIP65 EQU * D P CMR A11 CLEAR QUEUE ANCHOR IN LC.ADM P LDKL A1
0x1cde5c…1cdff0 Dummy {f00=0x008d, f01=0x0190, f02=»UEUE ANCHOR IN DWT f 6 P CM LCDWT,A13 CLEAR RELATION WITH LOGICAL CHANNEL P XIF T P* ` 2 P* TEST IF PACKET TYPE IS "DATA PACKET" j P* PRHIP70 EQU * P LDK A4,DATA.P P TM A4,A2 & P ABL(Z) DATPAC PROCESS DATA PACKET
0x1cdff0…1ce184 Dummy {f00=0x008d, f01=0x0190, f02=» ADK A3,1 $ P RB RHIP80 TRY NEXT PACKET TYPE P* : PRHIP90 EQU * D * P ADR A3,A3 A3:=INDEX FOR PROCESS-TABLE X " P ABI PACPRO,A3 PROCESS PACKET P* P EJECT P* : P* TABLE OF MATCHING PACKET PROCESSING ROUTINES
0x1ce184…1ce318 Dummy {f00=0x008d, f01=0x0190, f02=»C=0 * P DATA CLEPAC,HALT CLEAR(-CONF.)PACKET * P DATA CALPAC,CALCON CALL(-CONF.)PACKET : P XIF h 0 P DATA INTPAC,INTCON INTERRUPT(-CONF.)PACKET t P* ( P* UNEXPECTED PACKET RECEIVED P* PHALT EQU * P HLT P*
0x1ce318…1ce4ac Dummy {f00=0x008d, f01=0x0190, f02=»2,A8 P CF A14,RLBUF RELEASE BUFFER PRHI110 EQU * 0 P ABL CLVC EXIT OF RHIP D P* b P EJECT l P* z 8 P* COMPLETE REQUEST WITH RETURNCODE "ACCEPTED" P* PRHI120 EQU * P LDK A3,ACPT.RC P* : P*
0x1ce4ac…1ce640 Dummy {f00=0x008d, f01=0x0190, f02=»FER AND EXIT | P* PRHI140 EQU * P LDR A2,A8 2 P CF A14,RLBUF D P RF RIPEXI Z P* l 0 P* REQUEUE BUFFER,BLOCK QUEUE AND EXIT v P* PRHI150 EQU * , P LDR A1,A11 A1:=ADDRESS OF QUEUE ANCHOR " P LDR A2,A8 A2:=B
0x1ce640…1ce7d4 (1, 429) Dummy {f00=0x008d, f01=0x0190, f02=»A1,A11 P* P* EXIT OF RHIP P* . PRIPEXI EQU * 8 P ABL EXITDC T P EJECT h P* v P* ( P* TIMEOUT ROUTINE OF REQUEST HANDLER P* H P********************************************************************
0x1ce7d4…1ce968 Dummy {f00=0x008d, f01=0x0190, f02=»* PTIMEXP EQU * 0 P LDK A3,TIMO.RC PRE-SET RETURNCODE"TIMEOUT" & P* Z P* GET ADDRESS OF DWT d P* P LDR A6,A12 P* ( P* TEST IF REQUEST ALREADY COMPLETED P* " P LD A5,DWTRTP,A6 , P
0x1ce968…1ceafc Dummy {f00=0x008d, f01=0x0190, f02=» P* P EJECT P* P* SCAN ON PENDING REQUEST & P* H P LDK A5,0 R " P LC A5,DWTFNC,A6 p " P LDR A7,A5 SAVE FUNCTION CODE & P SUK A5,WRIDAT WRITE DATA REQUEST P RF(Z) TIME00 YES & P SUK A5,
0x1ceafc…1cec90 Dummy {f00=0x008d, f01=0x0190, f02=» P* P* TIMEOUT ON WRITE REQUEST , P* TEST IF REQUEST STILL IN OUTPUT QUEUE 0 P* ` PTIME00 EQU * j P LDR A1,A13 ~ J P ADK A1,QUEOUT A1:=ADDRESS OF OUTPUT QUEUE ANCHOR P* P* TEST IF QUEUE IS
0x1cec90…1cee24 Dummy {f00=0x008d, f01=0x0190, f02=»ET j P* PTIME10 EQU * P SUK A2,1 ( , P RF(Z) TIME20 YES! F 6 P CF A14,DEQUE DEQUEUE ELEMENT v P* P EJECT P* . P* TEST IF IT IS THE ONE WE ARE LOOKING FOR P*
0x1cee24…1cefb8 Dummy {f00=0x008d, f01=0x0190, f02=»E QUEUE h P* P LDR* A4,A1 8 P CF A14,QUEUE RE-QUEUE ELEMENT : D P RB(NZ) TIME10 GET SECOND ELEMENT FROM QUEUE v P* P* ELEMENT NOT IN QUEUE , P* IF NOT WRITE INTERRUPT,IGNORE TI
0x1cefb8…1cf14c Dummy {f00=0x008d, f01=0x0190, f02=»T RETURNCODE r P* PCOMPLE EQU * P CF A14,CMPREQ 2 P IFT SWITVC=0 H PTIME30 EQU * ^ P XIF r PCOMEXI EQU * ~ P RB RIPEXI P IFF SWITVC=0 P* P EJECT P* P* RELEASE DWT FROM CHAIN P* PTI
0x1cf14c…1cf2e0 Dummy {f00=0x008d, f01=0x018e, f02=»DRESS p P CF A14,RELDWT P LDK A3,TIMO.RC TIME OUT $ P XIF D P IFF SWITVC=0 P P IFT SYNRLN=1 f & P LD A12,LINTAB LINE BLOCK ADDRESS | * P CF A14,RELDWT RELEASE DWT FROM CHAIN P XIF P IFF SWITVC=0 , P SUK A7,CONACT CON
0x1cf2e0…1cf474 (1, 430) Dummy {f00=0x008e, f01=0x0190, f02=» P* P* (AUTOMATIC)ACCEPT REQUEST P* 2 PTIME40 EQU * < P* P " P* CLEAR DWT TO LC-ADM RELATION Z P* P LDK A4,0 P LC A4,DWTLCN,A6 LC NUMBER & P CF A14,GTLCAD GET LC-ADM ADDRESS $ P CM LCDWT,A13 CLEAR DWT-ADDRESS
0x1cf474…1cf608 Dummy {f00=0x008e, f01=0x018e, f02=»* P* P* CALL PACKET P* * H P******************************************************************** 4 P* P* INPUT PARAMETERS: " P* A5 = REQUEST PENDING IND. P* A6 = DWT ADDRESS OR ZERO P* A8 = BUFFER ADDRESS
0x1cf608…1cf79c Dummy {f00=0x008e, f01=0x018e, f02=» P* PCALPAC EQU * P* " : P* TEST IF ONLY USER DATA HAS TO BE PASSED TO THE USER , P* j P LDR A6,A6 t P ABL(NZ) CAL180 YES! P* " P* GET DWT FOR LOGICAL CHANNEL P* * P LD A6,CHAIN,A12 GET DWT CHAIN ANCHOR 2
0x1cf79c…1cf930 Dummy {f00=0x008e, f01=0x0190, f02=» b P* PCALP10 EQU * P LD A4,DWTST,A6 & $ P RF(N) CALP20 NO REQUEST PENDING > P LDK A4,CONPAS f & P CC A4,DWTFNC,A6 CONNECT PASSIVE ? | P RF(E) CALP40 YES PCALP20 EQU * " P LD A6,DWTCHN,A6 GET NEXT DWT P RB(NZ) CALP10
0x1cf930…1cfac4 Dummy {f00=0x008e, f01=0x018e, f02=»CALP30 EQU * & P LDK A1,NOTINT A1:=DIAGNOSTIC CODE P RB RHI100 > P* P 2 P* TEST IF CALLING DTE-ADDRESS KNOWN BY SYSTEM Z P* PCALP40 EQU * P LDK A5,BEGDAT P ADR A5,A8 P* @ P* GET ADDRESS WHERE CALLING LENGTH IN PA
0x1cfac4…1cfc58 Dummy {f00=0x008e, f01=0x0190, f02=» P* 0 P* TEST IF CALLED DTE-ADDRESS ALSO IN PACKET P* B P LDR A4,A1 L P ANK A4,/0F ^ P RF(Z) CALP80 NO r P* 4 P* MOVE CALLING DTE-ADDRESS TO CALLED DTE-ADDRESS P* P LDR A7,A2 , P SRL A4,1 LENGTH OF CALLED DTE I
0x1cfc58…1cfdec Dummy {f00=0x008e, f01=0x0190, f02=» P* P LDR A3,A1 L P SRL A1,4 A1:=LENGTH OF CALLING DTE IN SEMI-OCT . 4 P LDR A4,A1 LENGTH OF CALLING DTE IN SEMI-OCTADS ~ P ANK A3,1 P RF(Z) CALP60 YES P* P EJECT P*
0x1cfdec…1cff80 Dummy {f00=0x008e, f01=0x0190, f02=» A3:=HIGH ORDER DIGIT x L P ADK A5,1 UPDATE ADDRESS OF CALLING DTE IN PAC & P LCR A3,A5 v : P SRL A3,4 A3:=LOW ORDER DIGIT F P SCR A3,A7 STORE DIGITS AT B
0x1cff80…1d0114 (1, 431) Dummy {f00=0x008e, f01=0x0190, f02=»O DIGITS v P RF(NZ) CALP85 P ADK A5,1 & P RF CALP85 8 P* J * P* DTE-ADDRESS STARTS ON OCTAD BOUNDARY T P* PCALP60 EQU * P LCR A3,A1 P SCR A3,A7 P ADK A7,1 P A
0x1d0114…1d02a8 Dummy {f00=0x008e, f01=0x0190, f02=» P LDR A4,A1 P SRA A4,5 P RF(NN) CALP82 , P ADK A4,1 B PCALP82 EQU * T P ANK A4,/0F LENGTH IN OCTETS h P ADR A5,A4 PCALP85 EQU * P* P EJECT P* P* GET DTE-ADDRESS P* P LDKL A3,LOCAL S
0x1d02a8…1d043c Dummy {f00=0x008e, f01=0x018e, f02=»RESS FOUND v P* P LDR A1,A1 P RB(N) CALP30 NO . P* F & P* TEST IF REMOTE ADDRESS ACCEPTED P P* z P LD A2,DWTRAD,A6 & P RF(Z) CALP90 ALL REMOTE ACCEPTED P CWR A1,A2 ( P RB(NE) CALP20 NOT ACCEPTED,TRY NEXT P*
0x1d043c…1d05d0 Dummy {f00=0x008e, f01=0x0190, f02=» P ST A1,ECBCW1,A2 P* P EJECT & P* 4 * P* STORE LOG CHAN NUMBER IN DWT > P* l " P LC A1,LCIDNT,A8 GET LC NUMBER v $ P SC A1,DWTLCN,A6 STORE IT IN DWT P* ( P* STORE DWT ADDRESS IN LC-ADM P* P ST
0x1d05d0…1d0764 Dummy {f00=0x008e, f01=0x018e, f02=» END ADDRESS OF PACKET P SUK A3,2 2 P CWR A5,A3 FACILITIES OR USER DATA IN PACKET ? 0 P RF(E) CAL150 NO f 0 P STR A5,A8 STORE BEGIN ADDR.IN HDLC-HEADDER ~ P* P EJECT P* P* TEST IF FACILITIES ONLY P* P LCR A1,
0x1d0764…1d08f8 Dummy {f00=0x008e, f01=0x0190, f02=» V P ADR A1,A5 P CWR A1,A3 ( @ P RF(NE) CAL100 FACILITIES AND USER DATA H P* P* ONLY FACILITIES P* @ P ADK A1,1 ADD FACILITY-LENGTH OCTAD P S
0x1d08f8…1d0a8c Dummy {f00=0x008e, f01=0x0190, f02=» z < P SUR A3,A5 A3:=LENGTH IN OCTADS PCAL110 EQU * H J P SC A3,LCIDNT,A8 STORE LENGTH IN LOGICAL CHAN.NUMBER d P LDKL A3,DATA.RC P* 4 P* TEST IF OPTION SET IN CONNECT PASSIVE REQUEST
0x1d0a8c…1d0c20 Dummy {f00=0x008e, f01=0x0190, f02=» CONFIRMATION ~ P* P ST A3,DWTRCI,A6 P* 8 P EJECT B P* P $ P* REQUEUE BUFFER AND BLOCK QUEUE Z P* P LDR A2,A8 P LDR A1,A11 6 P CF A14,QUEUEF REQUEUE BUFFER P
0x1d0c20…1d0db4 (1, 432) Dummy {f00=0x008e, f01=0x0190, f02=»2,ACCCAL P LDKL A11,TRANSP P ABL DISC60 ACCEPT CALL ( PCAL130 EQU * H P SC A2,DWTSTE,A6 P CF A14,CMPREQ t P* 0 P* REQUEUE BUFFER,BLOCK QUEUE AND EXIT P* PCAL140 EQU * P ABL RHI150 P* P EJE
0x1d0db4…1d0f48 Dummy {f00=0x008e, f01=0x0190, f02=» * P LDK A5,CONAD " P LC A3,DWTOPT,A6 P ANK A3,CALOPT F P RF(NZ) CAL155 YES j P LDR A2,A8 6 P CF A14,RLBUF RELEASE BUFFER P RB CAL120 P* PCAL155 EQU *
0x1d0f48…1d10dc Dummy {f00=0x008e, f01=0x0190, f02=»ODE "ACCEPTED" j $ P* RELEASE BUFFER AND EXIT P* > PCAL160 EQU * H P ABL RHI120 PCAL170 EQU * p P LDR A2,A8 6 P CF A14,RLBUF RELEASE BUFFER P RB CAL120 P E
0x1d10dc…1d1270 Dummy {f00=0x008e, f01=0x0190, f02=»* TEST IF READ REQUEST PENDING P* . P LDR A5,A5 8 P RF(NZ) CAL190 NO J P* d " P* READ REQUEST PENDING n P* L P LDR* A1,A8 A1:=ADDRESS OF FACILITY LENGTH IN PAC P* D P* GET NUM
0x1d1270…1d1404 Dummy {f00=0x008e, f01=0x0190, f02=» CF A14,COPTUB H P RB CAL160 COMPLETE REQUEST WITH RETURN CODE " H P 'ACCEPTED',RELEASE BUFFER AND EXIT n P* P* TEST IF VC RELEASED P* PCAL190 EQU * P L
0x1d1404…1d1598 Dummy {f00=0x008e, f01=0x018e, f02=»JECT P* P* P* CALL CONFIRMATION PACKET P* B H P******************************************************************** L P* P* INPUT PARAMETERS: P* A6 = DWT ADDRESS P* A8 = BUFFER ADDRESS P* A14 = CF ST
0x1d1598…1d172c Dummy {f00=0x008e, f01=0x0190, f02=» 8 P* COMPLETE REQUEST WITH RETURNCODE "ACCEPTED" $ P* RELEASE BUFFER AND EXIT D P* l P ABL RHI120 v P* P EJECT P* P* P* CLEAR PACKET P* J P**************************************************
0x1d172c…1d18c0 Dummy {f00=0x008e, f01=0x0190, f02=»: NO REQUEST PENDING v 4 P* =0: READ REQUEST PENDING 6 P* >0: OTHER REQUEST PENDING T ( P* A6 = DWT ADDRESS P* A8 = BUFFER ADDRESS * P* A11 = ADDRESS OF INPUT-QUEUE ANCHOR , P
0x1d18c0…1d1a54 (1, 433) Dummy {f00=0x008e, f01=0x0190, f02=»DWTCLE DISP FOR CLEAR INFO P RF CLERES " P XIF 4 P EJECT @ P* N P* X P* RESET PACKET b P* x H P******************************************************************** P* P* INPUT PARAMETERS: ( P* A5 = REQUEST PEN
0x1d1a54…1d1be8 Dummy {f00=0x008e, f01=0x0190, f02=»DING r P* A6 = DWT ADDRESS P* A8 = BUFFER ADDRESS ( P* A14 = CF STACK POINTER H P* j PRESPAC EQU * t $ P CM DWTRCI,A6 CLEAR RETURN INFO P LDK A4,0 P SC A4,DWTWRO,A6 . P LDK A3,RSET.RC+MORE.RC RESET + MORE INFO
0x1d1be8…1d1d7c Dummy {f00=0x008e, f01=0x018e, f02=» A4:=STARTADDR.OF CAUSE-FIELD IN PACKET P* 0 6 P* GET CAUSE AND DIAGNOSTIC CODE FROM PACKET : P* t P LCR A7,A4 ~ P ECR A7,A7 P LC A7,1,A4 P EJECT P* 4 P* STORE R
0x1d1d7c…1d1f10 Dummy {f00=0x008e, f01=0x0190, f02=» P* P LDR A5,A5 P RF(N) RESP30 NO! P* : , P* TEST IF CLOSE SYSTEM REQUEST PENDING D P* t P SUK A5,CLOSYS ~ P IFT STATI=1 P RF(Z) RESP40 YES ! P* * P* TEST IF STATISTIC REQUEST PENDING P* P S
0x1d1f10…1d20a4 Dummy {f00=0x008e, f01=0x0190, f02=» $ P CF A14,CMPREQ COMPLETE REQUEST PRESP30 EQU * , P IFF SWITVC=0 @ " P ANK A3,CLEA.RC CLEAR PACKET ? V P RF(Z) RESP40 NO | * P CF A14,RELDWT RELEASE DWT FROM CHAIN P XIF P* P* RELEASE BUFFER AND EXIT P* PRESP
0x1d20a4…1d2238 Dummy {f00=0x008e, f01=0x0190, f02=»********************************* n P* * P* INPUT PARAMETERS: 4 ( P* A5 = REQUEST PENDING INDICATION P $ P* <0: NO REQUEST PENDING | & P* =0: READ REQUEST PENDING & P* >0: OTHER REQUEST PENDING P* A6 = DWT ADD
0x1d2238…1d23cc Dummy {f00=0x008e, f01=0x0190, f02=»11 = ADDRESS OF QUEUE ANCHOR P* A13 = LC-ADM ADDRESS $ P* A14 = CF STACK POINTER D P* f PDATPAC EQU * p P LDKL A9,DATA.RC P LDR A3,A6 P ADK A3,DWTRCI P* * P* TEST IF READ REQUEST PENDING P* P L
0x1d23cc…1d2560 Dummy {f00=0x008e, f01=0x0190, f02=»ER BUFFER v P* 4 P LDK A1,BEGDAT A1:=DISPL.IN PACKET FOR USER DATA 4 P ADR A1,A8 A1:=STARTADDR.OF USER DATA IN PACKET T 0 P LDR* A4,A8 A4:=TOTAL LENGTH OF DATA PACKET * P SUK A4,BEGDAT A4:=LENGTH OF USER DATA P CF A14,COPTUB P IFF
0x1d2560…1d26f4 (1, 434) Dummy {f00=0x008f, f01=0x0190, f02=» DAT005 YES! P XIF " P LC A2,NRNUBF,A13 . P ADK A2,1 H 4 P SC A2,NRNUBF,A13 INCREMENT NR.OF UNUSED BUFFERS Z PDAT005 EQU * P* P* PREPARE RETURNCODE P* P LDR* A3,A3 P* . P*
0x1d26f4…1d2888 Dummy {f00=0x008f, f01=0x0190, f02=» DATA INDICATION NOT SET P* ADJUST RETURN CODE P* < P ORKL A3,LAST.RC F P* ^ P EJECT h P* v & P* TEST IF QUALIFIER-BIT SET P* PDAT010 EQU * P LC A1,QBIT,A8 P ANK A1,QPOS P RF(Z) DAT020 P
0x1d2888…1d2a1c Dummy {f00=0x008f, f01=0x018e, f02=»TH RETURNCODE IN A3 t $ P* RELEASE BUFFER AND EXIT P* D PDAT020 EQU * N P ABL RHI130 b P* v $ P* NO READ REQUEST PENDING P* PDAT030 EQU * * P ORRS A9,A3 SET DATA AVAILABLE IN DWT P* 0 P* R
0x1d2a1c…1d2bb0 Dummy {f00=0x008f, f01=0x0190, f02=» H P******************************************************************* P* T P* INPUT PARAMETERS: ^ ( P* A5 = REQUEST PENDING INDICATION z $ P* <0: NO REQUEST PENDING & P* =0: READ REQUEST PENDING & P* >0: OTH
0x1d2bb0…1d2d44 Dummy {f00=0x008f, f01=0x0190, f02=» VC RELEASED,ELSE NOT RELEASED $ P* A11 = ADDRESS OF QUEUE ANCHOR & P* A13 = LC-ADM ADDRESS N P* A14 = CF STACK POINTER n P* PINTPAC EQU * P LDK A7,DWTRCI P ADR A7,A6 P LDKL A3,I
0x1d2d44…1d2ed8 Dummy {f00=0x008f, f01=0x0190, f02=»* " P* READ REQUEST PENDING ( P* COPY PACKET TO USER BUFFER 0 8 P* RESET INTERRUPT RECEIVED INDICATION IN DWT P* P C1R A3,A3 P ANRS A3,A7 6 P LDK A1,BEGDAT A1:=DISPL.IN PACKET FOR
0x1d2ed8…1d306c Dummy {f00=0x008f, f01=0x0190, f02=» CF A14,COPTUB L P C1R A3,A3 A3:=RETURNCODE:INTERRUPT PACKET REC. P ORR* A3,A7 f $ P CF A14,CMPREQ COMPLETE REQUEST z P LDR A2,A8 P CF A14,RLBUF RELEASE BUFFER P* & P* TEST IF DWT STATE IS VC RELEASED
0x1d306c…1d3200 Dummy {f00=0x008f, f01=0x018e, f02=»ON PACKET r P* PINT002 EQU * $ P LDR A2,A13 GET AN OUTPUT BUFFER 0 P ADK A2,SYSBUF X P* n P* TEST IF BUFFER IS FREE x P* P LDR* A1,A2 P RF(Z) INT004 YES , P LDKL A1,INT002 A1:=REACTIVATION ADDRESS $ P ABL BUF
0x1d3200…1d3394 (1, 435) Dummy {f00=0x008f, f01=0x0190, f02=» 6 P SC A1,IDENT,A2 SET INTERRUPT CONF.TYPE IN BUFFER 4 P LDK A1,INT.CL PACKET LENGTH OF INTERRUPT CONF. B * P ST A1,HDLC,A2 STORE LENGTH IN BUFFER z P LDR A1,A13 6 P ADK A1,QUEOUT A1:=ADDRESS OF OUTPUT QUEUE ANCHOR P CF A14,QUEUEF
0x1d3394…1d3528 Dummy {f00=0x008f, f01=0x0190, f02=»NG FLAG v PINT008 EQU * P ABL EXITDC EXIT , P* D P* NO READ REQUEST PENDING N . P* SET INTERRUPT RECEIVED INDICATION IN DWT p P* PINT010 EQU * P ORRS A3,A7 P* * P* REQUEUE BUFFER,BLOCK QUEUE AND EXIT
0x1d3528…1d36bc Dummy {f00=0x008f, f01=0x0190, f02=»*************************************************** ~ P* < P* INPUT PARAMETERS: F & P* A5 = REQUEST PENDING INDICATOR b 2 P* <0: NO REQUEST PENDING 4 P* =0: READ REQUEST PENDING 6 P*
0x1d36bc…1d3850 Dummy {f00=0x008f, f01=0x0190, f02=»K POINTER P* PINTCON EQU * P* 0 " P* TEST IF ANY REQUEST PENDING : P* ` P LDR A5,A5 j P RF(N) INC020 P* . P* TEST IF WRITE INTERRUPT REQUEST PENDING P* P SUK A5,WRIINT $
0x1d3850…1d39e4 Dummy {f00=0x008f, f01=0x0190, f02=»AND EXIT x P* P ABL RHI120 P* . P* RELEASE BUFFER AND EXIT 8 P* Z PINC020 EQU * d P ABL RHI140 x P EJECT P* P* P* COMPLETE USER REQUEST P* H P************************************************
0x1d39e4…1d3b78 Dummy {f00=0x008f, f01=0x018e, f02=»ACK POINTER P* P* CALLING SEQUENCE: P* CF A14,CMPREQ : P* R P* OUTPUT PARAMETERS: P* NO REGISTERS ARE CHANGED x P* PCMPREQ EQU * P IFT CPU852=1 P ST A1,CMPSAV SAVE A1 P ST A2,CMPSAV+2 SAVE A2
0x1d3b78…1d3d0c Dummy {f00=0x008f, f01=0x0190, f02=» " P LD A1,DWTST,A6 * P RF(N) CMP020 NO! . P* P EJECT f P* t & P* TEST IF REQUEST TIMER IS RUNNING ~ P* P LD A1,DWTRTP,A6 " P RF(Z) CMP010 NO TIMER RUNNING P* P* CANCEL RUNNI
0x1d3d0c…1d3ea0 Dummy {f00=0x008f, f01=0x0190, f02=»ARE INTERFACE FOR TENDIO P* P LDR A1,A3 A1:= RETURN CODE * P INH . =1 N $ P CF A15,TENDIO COMPLETE REQUEST ` P ENB PCMP020 EQU * P IFT CPU852=1 P LD A1,CMPSAV RELOAD A1 P LD A2,CMPSAV+2 RELOAD A2 P
0x1d3ea0…1d4034 (1, 436) Dummy {f00=0x008f, f01=0x0190, f02=»REA FOR A1,A2 P* PCMPSAV EQU * P DATA 0,0 4 P EJECT F P* T P* ^ 0 P* COPY INFORMATION FROM SYSTEM TO USER AREA h P* H P******************************************************************** P* P* INPUT PARA
0x1d4034…1d41c8 Dummy {f00=0x008f, f01=0x0190, f02=»INTER | P* P* CALLING SEQUENCE: P* CF A14,COPTUB 4 P* L P* OUTPUT PARAMETERS: V P* NONE r P* PCOPTUB EQU * P STR A3,A14 SAVE A3 $ P LD A3,DWTECB,A6 GET ECB ADDRESS , P LD A2,ECBBA,A3 GET USER BUFFER ADDR
0x1d41c8…1d435c Dummy {f00=0x008f, f01=0x018e, f02=». =1 0 P CF A15,MOVSU MOVE DATA FROM SYSTEM TO USER P ENB . =1 @ P LDR* A3,A14 RESTORE A3 R P RTN A14 r P* P EJECT P* P* * P* SAVE REGISTERS A1-A8 IN DC SAVE AREA P* H P**********************************
0x1d435c…1d44f0 Dummy {f00=0x008f, f01=0x0190, f02=» z P* NO REGISTERS ARE CHANGED P* , PSAVE8 EQU * 6 P IFT CPU852=1 J P ST A1,SAVE ` P ST A2,SAVE+2 t P ST A3,SAVE+4 P ST A4,SAVE+6 P ST A5,SAVE+8 P ST A6,SAVE+10 P ST A7,SAVE+12 P ST A8,SAVE+14
0x1d44f0…1d4684 Dummy {f00=0x008f, f01=0x0190, f02=»RS A1-A8 FROM DC SAVE AREA P* " H P******************************************************************* , P* x P* CALLING SEQUENCE: P* CF A14,RELOA8 P* P* OUTPUT PARAMETERS: $ P* REGISTERS A1-A8 ARE RELOADED P*
0x1d4684…1d4818 Dummy {f00=0x008f, f01=0x0190, f02=»D A5,SAVE+8 P LD A6,SAVE+10 P LD A7,SAVE+12 * P LD A8,SAVE+14 @ P XIF V P IFT CPU852=0 b P ML 8,SAVE x P XIF P RTN A14 RETURN TO CALLER P EJECT P* P* < P* THIS MODULE SELECTS FROM THE DWT THE TRANSPO
0x1d4818…1d49ac Dummy {f00=0x008f, f01=0x018e, f02=»INPUT PARAMETERS: 8 P* A6 = DWT-ADDRESS (NOT FOR START & STOP REQUEST) P* A12 = LINE BLOCK ADDRESS V ( P* A14 = CALL FUNCTION STACK POINTER z P* P* CALLING SEQUENCE: P* CF A14,TRANSH P* P* OUTPUT PARAMETERS:
0x1d49ac…1d4b40 Dummy {f00=0x008f, f01=0x0190, f02=» : P CF A14,SAVE8 SAVE REGISTERS & P LC A1,DWTFNC,A6 GET FUNCTION CODE B P ANK A1,/FF . l ( P LC A4,DWTLCN,A6 GET LC-ADM ADDRESS P ANK A4,/FF . P SLL A4,1 . P AD A4,LC:TAB,A12 . P LDR* A13,A4 . L
0x1d4b40…1d4cd4 (1, 437) Dummy {f00=0x008f, f01=0x0190, f02=»T | P* PREADY EQU * < P ST A4,SAVE+6 SAVE RETURN CODE ( P CF A14,RELOA8 h ( P RTN A14 BACK TO THE REQUEST HANDLER P* 2 P* BRANCH TABLE FOR TRANSPORT HANDLER FUNCTIONS P* PTABTH
0x1d4cd4…1d4e68 Dummy {f00=0x008f, f01=0x0190, f02=» ( P DATA CALL30 CONNECT PASSIVE REQUEST " P DATA CLEAR DISCONNECT REQUEST 4 P DATA CALLCR ACCEPT CALL Z P XIF z P IFT SWITVC=0 & P DATA HLT CONNECT PASSIVE REQUEST " P DATA CLEAR DISCONNECT REQUEST P DATA HLT ACCEPT CALL
0x1d4e68…1d4ffc Dummy {f00=0x008f, f01=0x0190, f02=» INTERRUPT REQUEST P* PSTPINT EQU * $ P CF A14,STOP 8 P RB READY L P* ^ P EJECT h P* v P* , P* PROCESSING OF THE OPEN SYSTEM REQUEST P* 0 P******************************************** P* P* INPU
0x1d4ffc…1d5190 Dummy {f00=0x008f, f01=0x0190, f02=» P* ABL START , P* A RETURN IS MADE TO THE LABEL "READY" P* L P* OUTPUT PARAMETERS: V P* A4 = RETURN CODE r P* PSTART EQU * & P LDK A4,HRDERR PRESET RETURN CODE & P LDK A1,CLOFLG CLOSE STILL BUSY ? P AN A1,C
0x1d5190…1d5324 Dummy {f00=0x008f, f01=0x0190, f02=»# OF LOGICAL CHANNELS | P ANK A4,/FF . P SUK A4,1 . 4 P IFF PERMVC=0 H $ P LC A7,NRPVC,A12 GET # OF PVC'S ^ P ANK A7,/FF . P SUK A7,1 . P XIF P* P EJECT PSTRT00 EQU * & P CF A14,GTLCAD GET LC-ADM ADDRES
0x1d5324…1d54b8 Dummy {f00=0x008f, f01=0x0190, f02=»BLES r P SC A2,VCTYP,A13 VC-TYPE ( P SC A2,NRNUBF,A13 FREE INPUT BUFFERS , ( P ST A2,LCDWT,A13 LC TO DWT RELATION X $ P ST A2,QUEINP,A13 RH-INPUT QUEUE & P ST A2,QUEOUT,A13 TH-OUTPUT QUEUE * P ST A2,TIMADR,A13 TIMER BLOCK ADDRESS ( P ST
0x1d54b8…1d564c Dummy {f00=0x008f, f01=0x0190, f02=»,A13 z P IFF SWITVC=0 P IFF PERMVC=0 " P CWR A7,A4 IS THIS A PVC ? 8 P RF(NE) STRT02 NO Z P XIF t P IFF PERMVC=0 P LDKL A8,PVC SET PVC TYPE P SC A8,VCTYP,A13 . , P LDKL A8,DATA.ST SET DATA TRANSFER STATE P SC A8
0x1d564c…1d57e0 Dummy {f00=0x008f, f01=0x0190, f02=»2 SET PACKET LENGTH P ST A1,TRBFSZ,A13 . P ST A1,REBFSZ,A13 . 8 0 P CF A14,TRTHR TRANSLATE THRESHOLD PERCENTAGE T & P CF A14,CLLCAD CLEAR LC-ADM FIELDS P SUK A7,1 . PSTRT02 EQU * P XIF P SUK A4,1 NEXT LC-ADM ? P R
0x1d57e0…1d5974 (1, 438) Dummy {f00=0x0090, f01=0x0190, f02=»DR A8,A12 LINE ECB-ADDRESS P ADKL A8,LOCECB . " P STR A1,A8 SAVE FILE CODE < 4 P CM NRPNDT,A12 NUMBER OF PENDING OUTPUT REQUESTS ^ " P CM HRDSTA,A12 HARDWARE STATUS ( P CM RTMADR,A12 RESTART TIMER ADDRESS . P CM RSTQUE,A12 CLEAR RESTART QUE
0x1d5974…1d5b08 Dummy {f00=0x0090, f01=0x018e, f02=»B ADDRESS x P ADK A3,ECBOU1 . PSTRT05 EQU * * " P ST A1,ECBFC,A3 SAVE FILE CODE > & P CM ECBBA,A3 CLEAR BUFFER ADDRESS d & P ADK A3,ECBINL+SYSBFL P SUK A2,1 P RB(P) STRT05 NEXT ECB P* P* PREPARE OPEN REQUEST
0x1d5b08…1d5c9c Dummy {f00=0x0090, f01=0x0190, f02=» ~ P ST A4,ECBBA,A8 TO ECB * P LD A5,PACKLN,A12 RECEIVE BUFFER SIZE & P ADK A5,BEGDAT . T P ST A5,ECBRL,A8 . l P* P EJECT P* P* SET OPEN BUSY INDICATION P* P LDK A3,OPEFLG P ORS A3,CMNFLG,A12 P*
0x1d5c9c…1d5e30 Dummy {f00=0x0090, f01=0x0190, f02=» EQU * " P ADK A4,2 UPDATE STORE POINTER P CF A14,GTBUF GET A BUFFER 4 " P STR A2,A4 SAVE BUFFER ADDRESS V $ P SUK A3,1 MORE BUFFERS NEEDED ? | P RB(P) STRT10 YES P LDK A7,CONN+/80 ORDER CODE $ P LD A2,DWTRTV,A6 GET TIMER VALUE
0x1d5e30…1d5fc4 Dummy {f00=0x0090, f01=0x0190, f02=» P LD A1,ECBRC,A8 P RF(Z) STRT40 NO ERRORS & P LDKL A3,HRDWER HARDWARE ERRORS ? < P ANR A3,A1 . f P RF(Z) STRT30 NO z " P ST A1,HRDSTA,A12 SAVE STATUS P LDK A4,HRDERR RETURN CODE P RF RETUR2 P* P EJECT P*
0x1d5fc4…1d6158 Dummy {f00=0x0090, f01=0x0190, f02=»DISC. ? t P RF(E) RETUR2 YES P CWK A1,DEFTIM TIME-OUT ? * P ABL(NE) HLT ERROR L P LDR A2,A2 TIME OUT ? f P RB(Z) STRT20 NO & P LDK A4,TMEOUT PRESET RETURN CODE P SUKL A2,330 TIME OUT ? & P RF(N) RETUR2 YES,COMPLETE REQUEST
0x1d6158…1d62ec Dummy {f00=0x0090, f01=0x018e, f02=» * P LDK A1,STRTFL SET SYSTEM STARTED FLAG P ORS A1,CMNFLG,A12 . 6 , P LDK A4,SYNRRC NUMBER OF INPUT REQUESTS R ( P LDR A8,A12 ADDRESS FIRST INPUT ECB P ADKL A8,ECBIN1 . PSTRT50 EQU * & P LD A1,FILCOD,A12 FILE CODE TO ECB P S
0x1d62ec…1d6480 Dummy {f00=0x0090, f01=0x0190, f02=» P ADK A1,BEGDAT . P ST A1,ECBRL,A8 . * P LDR A1,A8 PARAMETER AFTER COMPLETION 6 P LDK A7,RECEIV ORDER CODE d P LKM ISSUE INPUT REQUEST P DATA -1 " P DATA ENDIN ACTIVATION ADDRESS ( P ADKL A8,ECBINL GET NEXT ECB-ADDRESS
0x1d6480…1d6614 (1, 439) Dummy {f00=0x0090, f01=0x0190, f02=»UT b P* $ P LDR A2,A13 GET AN OUTPUT BUFFER P ADK A2,SYSBUF . < & P LDK A1,RSTR.P RESTART PACKET TYPE T P SC A1,IDENT,A2 . ~ P LDK A1,0 " P SC A1,CAUSE,A2 RESTART CAUSE $ P SC A1,DGNCOD,A2 DIAGNOSTIC CODE P LDK A1,RSTR.L P
0x1d6614…1d67a8 Dummy {f00=0x0090, f01=0x0190, f02=»ELEMENT | ( P LDK A1,RSTFLG SET RESTART BUSY FLAG P ORS A1,CMNFLG,A12 . < P* X P* START TIMER b P* x " P LDR A2,A13 SAVE REGISTER A13 P SUR A13,A13 CLEAR IT & P LDKL A4,TIMOUT ACTIVATION ADDRESS " P LDKL A8,SYRSTM TIME-OUT
0x1d67a8…1d693c Dummy {f00=0x0090, f01=0x0190, f02=»4,RTNOK RETURN CODE := OK P* " P EJECT , P* : P* READY D P* T PRETURN EQU * ^ P* r ( P* RESET OPEN SYSTEM BUSY INDICATION | P* P LDK A1,OPEFLG P C1R A1,A1 $ P ANS A1,CMNFLG,A12
0x1d693c…1d6ad0 Dummy {f00=0x0090, f01=0x0190, f02=»UBNR , P LD A1,ECBBA,A8 PARAMETER BLOCK ADDRESS PRETUR4 EQU * < P ADK A1,2 P , P LDR* A2,A1 A2 := BUFFER TO BE RELEASED b P CF A14,RLBUF P SUK A3,1 & P RB(P) RETUR4 RELEASE NEXT BUFFER P RB RETURN P EJECT P*
0x1d6ad0…1d6c64 Dummy {f00=0x0090, f01=0x0190, f02=»* INPUT PARAMETERS: 0 P* A6 = DWT ADDRESS OR ZERO (INTERNAL CALL) P* A12 = LINE BLOCK ADDRESS P P* A14 = CALL FUNCTION STACK t P* P* CALLING SEQUENCE: P* CF A14,STOP P* P* OUTPUT PARAMETERS: P* A4 = R
0x1d6c64…1d6df8 Dummy {f00=0x0090, f01=0x0190, f02=»ION z P* P LDK A1,CLOFLG 2 P AN A1,CMNFLG,A12 CLOSE BUSY? : * P RF(NZ) CLOS40 YES p P LDK A1,CLOFLG 6 P ORS A1,CMNFLG,A12 SET CLOSE BUSY P* P E
0x1d6df8…1d6f8c Dummy {f00=0x0090, f01=0x0190, f02=»1,A12 ADDRESS USER BLOCK P ADK A1,UBNUM . P ST A1,ECBBA,A8 . 8 & P ST A6,ECBCW1,A8 SAVE DWT ADDRESS R * P LDK A4,SYUBNR NUMBER OF USER BUFFERS | P STR A4,A1 . P* . P* TEST IF THERE IS ANY PENDING REQUESTS TO * P* COMPLETE FOR
0x1d6f8c…1d7120 Dummy {f00=0x0090, f01=0x0190, f02=»S30 NO CONNECTION ACTIVE PCLOS05 EQU * P* 4 $ P* TEST IF DISCONNECTION ALLOWED > P* f P ADK A5,0 INTERNAL CALL ? p P RF(Z) CLOS15 YES " P LDK A3,SEQE.RC SEQUENCE ERROR P LC A1,DWTOPT,A5 " P ANK A1,CLOOPT CLOSE ALLOWED ?
0x1d7120…1d72b4 (1, 440) Dummy {f00=0x0090, f01=0x0190, f02=»CLOS55 COMPLETE REQUEST P* P EJECT * P* 8 PCLOS15 EQU * B " P LDK A3,LOGE.RC LOGICAL ERROR V P LDK A2,DISCON | P LDK A7,0 & P LC A7,DWTFNC,A6 GET FUNCTION CODE P LDR A1,A7 P IFT STATI=1 & P SUK A7,STATIS STATI
0x1d72b4…1d7448 Dummy {f00=0x0090, f01=0x018e, f02=»O PCLOS16 EQU * ( P CW A2,DWTSTE,A6 DWT DISCONNECTED ? P RF(E) CLOS25 YES J PCLOS18 EQU * d P SC A2,DWTSTE,A6 x & P LD A2,DWTST,A6 REQUEST PENDING ? P RF(N) CLOS19 NO $ P SUK A7,CONPAS CONNECT PASSIVE ? P RF(Z) CLOS20
0x1d7448…1d75dc Dummy {f00=0x0090, f01=0x0190, f02=» j PCLOS20 EQU * * P CF A14,RELDWT RELEASE DWT FROM CHAIN P ADK A1,0 CLOSE SYSTEM ? J P RB(Z) CLOS01 YES j $ P CF A14,CMPREQ COMPLETE REQUEST P RB CLOS01 TAKE NEXT P* P EJECT P* " P* TEST IF MORE DWT'S IN CHAIN
0x1d75dc…1d7770 Dummy {f00=0x0090, f01=0x0190, f02=»ST ~ P* ( P LDK A7,DISCN ORDER CODE,CLOSE LINE , P LDR A1,A8 PARAMETER FOR ACTIVATION PART @ P LKM p P DATA -1 | " P DATA CLOEND ACTIVATION LABEL PCLOS40 EQU * " P LDK A4,RTNOK SET RETURN CODE P RTN A14 BACK TO CALLER
0x1d7770…1d7904 Dummy {f00=0x0090, f01=0x0190, f02=»ALL FUNCTION STACK POINTER z P LDR A8,A1 SAVE ECB-ADDRESS " ( P CF A14,GTLBA GET LINE BLOCK ADDRESS F & P LDK A1,STRTFL+CLOFLG RESET FLAGS r P ORK A1,RSTFLG P C1R A1,A1 . P ANS A1,CMNFLG,A12 . & P LD A4,ECBBA,A8 ADDRESS
0x1d7904…1d7a98 Dummy {f00=0x0090, f01=0x0190, f02=»A14,RLBUF RELEASE INPUT BUFFER P SUK A3,1 NEXT ONE ? & P RB(P) CLOS50 YES B $ P LD A6,ECBCW1,A8 GET DWT ADDRESS P* " P* TEST IF DWT ADDRESS IS VALID P* P RF(Z) CLOS60 P LDK A3,0 PCLOS55 EQU * $ P CF
0x1d7a98…1d7c2c Dummy {f00=0x0090, f01=0x0190, f02=»A CONNECT ACTIVE REQUEST P* 0 P******************************************** * P* ^ P* INPUT PARAMETERS: h P* A6 = DWT-ADDRESS ( P* A12 = LINE CONTROL BLOCK ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALL
0x1d7c2c…1d7dc0 Dummy {f00=0x0090, f01=0x0190, f02=»= RETURN CODE P* A13 = LC-ADM ADDRESS P* 6 PCALLR EQU * @ P IFF SWITVC=0 T 6 P LC A1,DWTOPT,A6 PVC REQUESTED ? j P ANK A1,PVC * P RF(NZ) CALLPV YES P* & P* TEST IF RE
0x1d7dc0…1d7f54 (1, 441) Dummy {f00=0x0090, f01=0x0190, f02=» CF A15,FNDDNT FIND DTE P ENB . =1 P LDR A1,A1 FOUND ? 2 P RF(N) CALL40 NO L P* d P EJECT n P* | ( P* SEARCH FOR A READY LOGICAL CHANNEL P* . P LC A4,NRLC,A12 GET # OF LOGICAL CHANNELS P ANK A4,/FF . P SUK
0x1d7f54…1d80e8 Dummy {f00=0x0090, f01=0x0190, f02=»F(Z) CALL10 READY P SUK A4,1 TRY NEXT ENTRY P RB(NN) CALL00 YES : P EJECT T P IFT PERMVC=0 b PCALLPV EQU * P XIF P IFF SWITVC=0 : P LDK A4,NOLCAV RETURN CODE := NO LOG. CHAN. AVAILABLE P
0x1d80e8…1d827c Dummy {f00=0x0090, f01=0x0190, f02=» * P LDK A1,LCAL.ST LC-STAT := LOCAL-CALL P SC A1,LCSTAT,A13 . 6 ( P LDK A1,0 ALL INPUT BUFFERS ARE USED R P SC A1,NRNUBF,A13 . ~ & P ST A6,LCDWT,A13 SAVE DWT-ADDRESS P XIF P IFT SWITVC=0 P RF CALLPV P* P EJECT
0x1d827c…1d8410 Dummy {f00=0x0090, f01=0x0190, f02=» CF A14,QUEO QUEUE ELEMENT P* " P* READY , P* < PCALL30 EQU * F $ P LDK A4,RTNOK RETURN CODE := OK Z PCALL40 EQU * P ABL READY P IFF PERMVC=0 P EJECT P* 8 P* A CONNECT REQUEST FOR A PERMANENT VIRTUAL CIRCUI
0x1d8410…1d85a4 Dummy {f00=0x0090, f01=0x0190, f02=». CHANNELS t P ANK A4,/FF . P SUK A4,1 . ( 0 P LDK A1,NOREMO REMOTE ADDRESS NOT SUPPORTED < PCALL60 EQU * p & P CF A14,GTLCAD GET LC-ADM ADDRESS P LDK A3,PVC IS IT A PVC ? P CC A3,VCTYP,A13 . P RF(NE) CALL70 NO B P
0x1d85a4…1d8738 Dummy {f00=0x0090, f01=0x0190, f02=» A1,NOLCAV NO LOGICAL CHANNEL AVAILABLE ( P LD A3,LCDWT,A13 LC ALREADY IN USE ? 0 P RF(Z) CALL80 NO PCALL70 EQU * t P SUK A4,1 TRY NEXT ENTRY P RB(NN) CALL60 . P LDR A4,A1 GET RETURN CODE P RB CALL40 BACK TO CALLER P*
0x1d8738…1d88cc Dummy {f00=0x0090, f01=0x0190, f02=» RB CALL30 BACK TO CALLER P XIF : P IFF SWITVC=0 F P EJECT P* j P* t * P* PROCESSING OF AN ACCEPT CALL REQUEST ~ P* 0 P******************************************** P* P* INPUT PARAMETERS:
0x1d88cc…1d8a60 Dummy {f00=0x0090, f01=0x0190, f02=»ENCE: P* ABL CALLCR * P* A RETURN IS MADE TO THE LABEL READY & P* T P* OUTPUT PARAMETERS: ^ P* A4 = RETURN CODE z P* PCALLCR EQU * 4 P LDK A4,INVSTA PRESET RETURN CODE := ILL. STATUS . P LDK A1,RCAL.ST LC-STATUS =
0x1d8a60…1d8bf4 (1, 442) Dummy {f00=0x0091, f01=0x0190, f02=»TA.ST LC-STATUS := DATA TRANSFER P ECR A1,A1 . ( 6 P ST A1,LCSTAT,A13 LC-SUBSTAT := FLOW CONTROL READY < * P CF A14,CLLCAD CLEAR FIELDS IN LC-ADM v P* P EJECT P* 8 P* IF ACCEPT REQUEST FROM USER THEN EMPTY INPUT QUEUE P*
0x1d8bf4…1d8d88 Dummy {f00=0x0091, f01=0x0190, f02=»RESET DATA AVAILABLE INDICATION P* ( P CM DWTRCI,A6 2 P* H P* QUEUE PACKET AND RETURN R P* t P RB CALL20 ~ P* P XIF P EJECT P* P* 0 P* PROCESSING OF A DATA TRANSMISSION REQUEST P* 0 P**
0x1d8d88…1d8f1c Dummy {f00=0x0091, f01=0x018e, f02=»ESS | ( P* A14 = CALL FUNCTION STACK POINTER P* 8 P* CALLING SEQUENCE: B P* ABL DATA ^ * P* A RETURN IS MADE TO THE LABEL READY t P* P* OUTPUT PARAMETERS: P* A4 = RETURN CODE P* PDATA EQU * & P LDK A4,
0x1d8f1c…1d90b0 Dummy {f00=0x0091, f01=0x0190, f02=» v P* P* QUEUE REQUEST AND RETURN P* 4 PDATA10 EQU * > P RB CALL20 R P EJECT d P* r P* | ( P* PROCESSING OF A DISCONNECT REQUEST P* 0 P******************************************** P* P* INPUT PARAME
0x1d90b0…1d9244 Dummy {f00=0x0091, f01=0x0190, f02=»G SEQUENCE: P* ABL CLEAR * P* A RETURN IS MADE TO THE LABEL READY , P* Z P* OUTPUT PARAMETERS: d P* A4 = RETURN CODE P* PCLEAR EQU * P IFF SWITVC=0 8 P LC A1,VCTYP,A13 PVC CONCERNING ?
0x1d9244…1d93d8 Dummy {f00=0x0091, f01=0x0190, f02=»RELATION WITH DWT z P RB CALL30 P* , P IFF SWITVC=0 6 PCLEA00 EQU * L ( P LDK A1,CLEA.ST LC-STATUS = CLEAR ? ` P CC A1,LCSTAT,A13 . 0 P RF(NE) CLEA10 NO P* P EJECT P* P* REFUSE R
0x1d93d8…1d956c Dummy {f00=0x0091, f01=0x0190, f02=» * " P LDKL A8,SYCLTM TIME-OUT VALUE P CF A14,STTIM START TIMER 4 P* V P* UPDATE LC-ADM ` P* x ( P LDK A1,CLEA.ST NEW STATUS := CLEAR P SC A1,LCSTAT,A13 . P* P* EMPTY INPUT QUEUE P* P CF
0x1d956c…1d9700 Dummy {f00=0x0091, f01=0x0190, f02=» P* , P* PROCESSING OF THE ACCEPT DATA REQUEST P* > 0 P******************************************** H P* | P* INPUT PARAMETERS: P* A6 = DWT-ADDRESS P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER
0x1d9700…1d9894 (1, 443) Dummy {f00=0x0091, f01=0x018e, f02=»S: ~ P* A4 = RETURN CODE P* & PRRR EQU * 0 & P LDK A4,INVSTA PRESET RETURN CODE B P LDK A1,DATA.ST l 2 P CC A1,LCSTAT,A13 LC-STATUS = DATA TRANSFER ? P RB(NE) CALL40 NO, ERROR P* . P* QUEUE ELEMENT AS FIRST FOR TRANSMI
0x1d9894…1d9a28 Dummy {f00=0x0091, f01=0x0190, f02=» P* 0 P******************************************** P* B P* INPUT PARAMETERS: L P* A6 = DWT-ADDRESS h P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALLING SEQUENCE: P* ABL RNRR
0x1d9a28…1d9bbc Dummy {f00=0x0091, f01=0x0190, f02=» & P LDK A4,INVSTA PRESET RETURN CODE P LDK A1,DATA.ST 2 2 P CC A1,LCSTAT,A13 LC-STATUS = DATA TRANSFER ? J P RB(NE) CALL40 NO, ERROR P* P* BLOCK INPUT QUEUE P* P LDK A1,NPRFLG P ORS A1,QUEINP,A13 P* $
0x1d9bbc…1d9d50 Dummy {f00=0x0091, f01=0x0190, f02=»E WRITE INTERRUPT REQUEST ~ P* " 0 P******************************************** , P* ` P* INPUT PARAMETERS: j P* A6 = DWT-ADDRESS P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALLING SEQUEN
0x1d9d50…1d9ee4 Dummy {f00=0x0091, f01=0x0190, f02=»INVSTA PRESET RETURN CODE P LDK A1,DATA.ST " 2 P CC A1,LCSTAT,A13 LC-STATUS = DATA TRANSFER ? : P RB(NE) CALL40 NO, ERROR p " P LDK A4,SEQE.RC SEQUENCE ERROR & P LDK A1,INTPNG INTERRUPT PENDING ? P AN A1,FLAGS,A13 . P RB(NZ) CALL40
0x1d9ee4…1da078 Dummy {f00=0x0091, f01=0x0190, f02=» EJECT P* $ P* QUEUE ELEMENT FOR TRANSMISSION P* @ PINTR00 EQU * J P LDR A2,A6 ELEMENT ADDRESS f $ P LDR A1,A13 QUEUE ANCHOR ADDRESS P ADK A1,QUEOUT . * P CF A14,QUEUEF QUEUE AS FIRST ELEMENT , P LDK A2,NPRFLG RES
0x1da078…1da20c Dummy {f00=0x0091, f01=0x0190, f02=» 2 P* THIS MODULE GETS CONTROL FROM THE SCHEDULER $ P* IN ORDER TO TRANSMIT A PACKET : P* b 0 P******************************************** l P* P* INPUT PARAMETERS: " P* A1 = QUEUE ANCHOR ADDRESS P* A12 = LINE BLOCK ADDRESS
0x1da20c…1da3a0 Dummy {f00=0x0091, f01=0x0190, f02=»CK P* POUTPCK EQU * P* ( P* GET AN OUTPUT ECB 2 P* N P LDR A3,A12 FIRST OUTPUT ECB X P ADK A3,ECBOU1 . | POUTP00 EQU * " P LD A2,ECBBA,A3 IS ECB BUSY ? P RF(Z) OUTP10 NO * P ADK A3,ECBINL+SYSBFL NEXT OUTPUT
0x1da3a0…1da534 (1, 444) Dummy {f00=0x0091, f01=0x0190, f02=» OUTPUT BUFFER z " P CM HDLC,A3 CLEAR HDLC-HEADER P LDK A4,/10 < . P SC A4,GNFRM,A3 GENERAL FORMAT IDENTIFIER P P* P EJECT P* P* DEQUEUE AND CHECK ELEMENT P* P CF A14,DEQUE GET ELEMENT * P ST A1,SAVE SAVE QUE
0x1da534…1da6c8 Dummy {f00=0x0091, f01=0x018e, f02=»ADDRESS | $ P LD A9,DWTECB,A6 GET ECB-ADDRESS , P ABL(Z) EXITDC ELEMENT ALREADY COMPLETED 8 P LC A4,DWTLCN,A6 h , P SC A4,LCIDNT,A3 LOGICAL CHANNEL NUMBER P* P* SELECTION ON REQUEST TYPE P* " P LDR A2,A3 SAVE BUFFER ADDRESS
0x1da6c8…1da85c Dummy {f00=0x0091, f01=0x018e, f02=» P* P* REQUEST OUTPUT TABLE P* , POUTTAB EQU * 6 P IFF SWITVC=0 J ( P DATA OUT100 CONNECT ACTIVE REQUEST ` & P DATA HLT CONNECT PASSIVE REQUEST $ P DATA OUT200 DISCONNECT REQUEST P DATA OUT210 ACCEPT CALL P XIF
0x1da85c…1da9f0 Dummy {f00=0x0091, f01=0x0190, f02=» r P DATA HLT ACCEPT CALL P XIF & P DATA OUT300 ACCEPT DATA 2 $ P DATA OUT310 REFUSE DATA REQUEST R P DATA OUT000 WRITE REQUEST z ( P DATA OUT220 WRITE INTERRUPT REQUEST " P DATA OUT300 READ(ACCEPT DATA) P* PHLT HLT ILLEGAL
0x1da9f0…1dab84 Dummy {f00=0x0091, f01=0x018e, f02=» . P AN A1,FLAGS,A13 IS REMOTE STATION BUSY ? P RF(NZ) OUT050 YES 6 P* P P* IS WINDOW FULL ? Z P* t P LDK A4,0 ~ P LDK A5,0 & P LC A4,PS,A13 PS TO BE TRANSMITTED * P LC A5,SLWE,A13 SEND LOWER WINDOW EDGE P SUR A4,A5 PS
0x1dab84…1dad18 Dummy {f00=0x0091, f01=0x0190, f02=» P* PREPARE DATA PACKET HEADER P* , " P LC A1,DWTWRO,A6 WRITE OPTION 6 P LDR A3,A1 SAVE IT P ANK A1,QPOS v P ECR A1,A1 " P ORS A1,GNFRM,A2 INCLUDE Q-BIT P LC A1,PS,A13 PS * P SLL A1,1 PUT IT ON THE RIGHT POSITION P
0x1dad18…1daeac Dummy {f00=0x0091, f01=0x0190, f02=»ED PR T * P SLL A3,5 PUT IT ON THE RIGHT POSITION P ORR A1,A3 ALL TOGETHER < P* P EJECT f P* t $ P* INCREMENT SEND SEQUENCE NUMBER ~ P* 2 P LC A5,PS,A13 GET OLD PS 0 P ADK A5,1
0x1daeac…1db040 Dummy {f00=0x0091, f01=0x018e, f02=»,A2 SAVE PS & PR IN OUTPUT BUFFER P* * & P* COPY USER DATA TO OUTPUT BUFFER 4 P* ^ ( P LD A1,ECBBA,A9 USER BUFFER ADDRESS h P ADK A2,BEGDAT WHERE TO MOVE P LD A3,ECBRL,A9 P LDR A4,A3 P ADK A4,BEGDAT " P ST A4,ECBRL,A8
0x1db040…1db1d4 (1, 445) Dummy {f00=0x0091, f01=0x0190, f02=» POUT040 EQU * P LDR A1,A8 PARAMETER ADDRESS P LDK A7,TRANSM ORDER CODE @ P* b P LKM l P DATA -1 x 2 P DATA ENDOUT ACTIVATION LABEL AFTER COMPLETION J P IM NRPNDT,A12 INCREMENT NUMBER OF PENDING OUTPUT
0x1db1d4…1db368 Dummy {f00=0x0091, f01=0x0190, f02=» POUT050 EQU * P CM ECBBA,A8 $ P LD A1,SAVE QUEUE ANCHOR ADDRESS : P LDR A2,A6 ELEMENT ADDRESS b ( P CF A14,QUEUEF ELEMENT BACK TO QUEUE , P LDK A2,NPRFLG SET "NO PROCESSING" FLAG P ORRS A2,A1 . POUT060 EQU * *
0x1db368…1db4fc Dummy {f00=0x0091, f01=0x0190, f02=»ET p P* POUT100 EQU * P LDK A1,CAL.P ( P SC A1,IDENT,A2 PACKET TYPE > P* b P* GET REMOTE DTE-ADDRESS l P* P ADK A2,BEGDAT+1 P LDR A4,A2 P LD A1,DWTRAD,A6 P LDKL A3,SVCTYP SET TYPE P INH . =1 (
0x1db4fc…1db690 Dummy {f00=0x0091, f01=0x018e, f02=»L DTE-ADDRESS P* ! P LDR A7,A2 SAVE ADDRESS ! P LD A1,DWTLAD,A6 ! @ P INH . =1 ! X * P CF A15,GETDNA GET DTE NETWORK ADDRESS ! j P ENB . =1 ! & P SLL A1,4 PUT IT IN RIGTH POSITION ! . P ORR A3,A1 CALLING AND CALLED DTE-ADDRESS ! P*
0x1db690…1db824 Dummy {f00=0x0091, f01=0x0190, f02=» ! f , P ANK A5,/01 GIVES SEMI-OCTET BOUNDARY ? " P RF(Z) OUT145 NO " 8 P* " P P* MOVE LOCAL DTE-ADDRESS " Z P* " z ( P SRL A1,4 A1:=LENGTH IN SEMI-OCTETS " " P LDR A5,A7 A7:=WHERE TO GET IT " $ P SUK A5,/01 A5:=WHERE TO PUT IT " POUT130 EQU
0x1db824…1db9b8 Dummy {f00=0x0091, f01=0x0190, f02=» P SCR A2,A5 AND STORE THEM # $ P ADK A5,1 INCREMENT 'TO'-POINTER # & P SUK A1,1 DECRESE LENGTH # N P RF(Z) OUT140 READY # n ( P LCR A2,A7 GET NEXT TWO SEMI-OCTETS # P SLL A2,4 # & P SCR A2,A5 STORE SECOND SEMI-OCTET # & P ADK A7,1 INCREMENT 'F
0x1db9b8…1dbb4c Dummy {f00=0x0091, f01=0x0190, f02=» # t POUT145 EQU * $ P XIF $ P* $ ( P EJECT $ 2 P* $ @ P IFF SWITVC=0 $ J P IFT LOOP=1 $ ` P* $ t ( P* EXCHANGE CALLING AND CALLED LENGTH $ ~ P* $ P ECR A3,A3 $ P SRL A3,8 $ P XIF $ P IFF SWITVC=0 $ P SUK A4,1 $
0x1dbb4c…1dbce0 Dummy {f00=0x0091, f01=0x0190, f02=» RF(Z) OUT180 NO DATA SPECIFIED $ P LD A5,DWTTAB,A6 % ( P* % @ P* TEST IF FACILITIES ONLY % J P* % l P LD A1,ECBBA,A9 % v P LCR A7,A1 % P ANK A7,/FF FACILITY LENGTH % < P RF(Z) OUT150 NO FACILITIES AT ALL % P
0x1dbce0…1dbe74 (1, 446) Dummy {f00=0x0092, f01=0x0190, f02=»,0 A7:=INDICATION NOT ONLY FACILITIES % | P RF OUT150 & : P* & Z POUT148 EQU * & d F P LDK A7,/C0 A7:=INDICATION FACILITIES ONLY & POUT150 EQU * & P INH . =1 & * P CF A15,MOVUS MOVE FROM
0x1dbe74…1dc008 Dummy {f00=0x0092, f01=0x0190, f02=»A7,A7 & ~ * P RF(Z) OUT190 NO ' P RF OUT188 ' < P* ' P* NO USER DATA SPECIFIED ' f P* ' POUT180 EQU * ' P LDK A1,0 ' & P SCR A1,A2 FACILITY LENGTH = ZERO ' P ADK A2,1 UPDATE POINTER ' POUT188
0x1dc008…1dc19c Dummy {f00=0x0092, f01=0x018e, f02=»LENGTH OF CALL PACKET ' P* ( POUT190 EQU * ( ( P SU A2,ECBBA,A8 ( < " P ST A2,ECBRL,A8 LENGTH TO ECB ( T P* ( z P* COMPLETE LC-ADM ( P* ( ( P LD A2,ECBBA,A8 ADDRESS CALL PACKET ( 2 P CF A14,GTWNDS GET WINDOW SIZE & PACKET LENGTH ( 0
0x1dc19c…1dc330 Dummy {f00=0x0092, f01=0x0190, f02=» " P* TRANSMISSION OF CLEAR PACKET ) P* ) * POUT200 EQU * ) 4 P IFT MMUPAG=1 ) H P LD A1,ECBBA,A9 USER BUFFER ) ^ 0 P ADK A2,DGNCOD DIAGNOSTIC CODE DISPLACEMENT ) P LDK A3,1 LENGTH ) P LD A5,DWTTAB,A6 ) P INH . =1 ) * P CF A15,MOVUS MO
0x1dc330…1dc4c4 Dummy {f00=0x0092, f01=0x0190, f02=» IFT MMUPAG=0 ) $ P LC* A1,ECBBA,A9 DIAGNOSTIC CODE * P SC A1,DGNCOD,A2 * > P LDK A3,0 * V P XIF * h P IFF SWITVC=0 * t & P SC A3,CAUSE,A2 RESET CAUSE FIELD * $ P LDK A1,CLE.P CLEAR PACKET TYPE * P LDK A4,CLE.L PACKET LENGTH * P RF OUT2
0x1dc4c4…1dc658 Dummy {f00=0x0092, f01=0x0190, f02=»KET TYPE * l P LDK A4,CAL.CL PACKET LENGTH + P RF OUT260 + 4 P* + F P XIF + P P* + P EJECT + f P* + t & P* TRANSMISSION OF INTERRUPT PACKET + ~ P* + POUT220 EQU * + P IFT MMUPAG=1 + P LD A1,ECBBA,A9 USER BUFFER + . P ADK A2,
0x1dc658…1dc7ec Dummy {f00=0x0092, f01=0x0190, f02=» TO SYSTEM + t P ENB . =1 , 2 P SUK A2,CAUSE+1 RESTORE SYSTEM BUFFER ADDRESS , $ P XIF , Z P IFT MMUPAG=0 , f $ P LC* A1,ECBBA,A9 INTERRUPT DATA , | P SC A1,CAUSE,A2 , P XIF , ( P LDK A1,INT.P INTERRUPT PACKET TYPE , P LDK A4,INT.L PACKET
0x1dc7ec…1dc980 Dummy {f00=0x0092, f01=0x0190, f02=»0 ISSUE OUTPUT REQUEST , P EJECT - P* - , ( P* TRANSMISSION OF RR- OR RNR PACKET - 6 P* - b POUT300 EQU * - l P LDK A1,RR.P RR-PACKET TYPE - P RF OUT320 - P* - POUT310 EQU * - " P LDK A1,RNR.P RNR-PACKET TYPE - POUT320 EQU * -
0x1dc980…1dcb14 (1, 447) Dummy {f00=0x0092, f01=0x0190, f02=»BINE WITH PACKET TYPE - $ P SC A3,IDENT,A2 TO OUTPUT BUFFER . P LDK A4,RR.L PACKET LENGTH . F $ P RB OUT270 ISSUE OUTPUT REQUEST . h P* . P* TRANSMISSION OF A PACKET . P* . POUT400 EQU * . * P ST A2,ECBBA,A8 BUFFER ADDRESS TO ECB . P
0x1dcb14…1dcca8 Dummy {f00=0x0092, f01=0x0190, f02=» ORS A1,QUEOUT,A13 . . POUT410 EQU * / P LD A4,HDLC,A2 BUFFER LENGTH / 0 $ P RB OUT270 ISSUE OUTPUT REQUEST / T P EJECT / | P* / P* / 6 P* THIS ROUTINE HANDLES A COMPLETED OUTPUT REQUEST / P* / 0 P**************************************
0x1dcca8…1dce3c Dummy {f00=0x0092, f01=0x0190, f02=»ABEL ENDOUT / ~ P* 0 PENDOUT EQU * 0 $ P LDK A3,1 SET PROCESS INDICATION 0 2 P ST A3,DCLEVL . 0 Z & P LDKL A14,DCSTAK SET STACK POINTER 0 r P LDR A8,A1 SAVE ECB-ADDRESS 0 ( P CF A14,GTLBA GET LINE BLOCK ADDRESS 0 " P LD A2,ECBBA,A8 BUFFER ADDRE
0x1dce3c…1dcfd0 Dummy {f00=0x0092, f01=0x0190, f02=»T COMPLETED 0 | " P CWK A5,18 TRANSMITTER RESET ? 1 P RF(E) ENDO30 YES 1 : P* 1 T P EJECT 1 ^ P* 1 l J P* THE OUTPUT REQUEST IS NOT CORRECT COMPLETED. WHEN THIS IS THE FIRST 1 v H P* TIME A DISCONNECT REQUEST FOR THE DC-CONNECTION WILL BE GIVEN AND
0x1dcfd0…1dd164 Dummy {f00=0x0092, f01=0x0190, f02=»MNFLG,A12 IS SUBSYS STARTED ? 1 P ANK A3,STRTFL . 2 & P RF(Z) ENDO20 ALREADY DOWN 2 > $ P LDK A1,STRTFL RESET START FLAG 2 ` P C1R A1,A1 . 2 P ANS A1,CMNFLG,A12 . 2 & P ST A5,HRDSTA,A12 SAVE RETURN CODE 2 < P LDK A6,0
0x1dd164…1dd2f8 Dummy {f00=0x0092, f01=0x0190, f02=»CLAVCS CLEAR ALL VC'S LOCAL 2 PENDO20 EQU * 3 $ P LDKL A1,-1 3 8 < P ADS A1,NRPNDT,A12 DECREASE # OF PENDING TRANSM. REQUE. 3 L * P ABL EXITDC CONTROL BACK TO SCHEDULER 3 P* 3 & P* CORRECT COMPLETED OUTPUT REQUEST 3 P* 3 PENDO30 EQU * 3
0x1dd2f8…1dd48c Dummy {f00=0x0092, f01=0x0190, f02=» DWT-ADDRESS 3 | P RF(Z) ENDO56 NO DWT 4 P LD A1,DWTST,A6 DWT-STATUS 4 0 P RF(N) ENDO56 4 R P* 4 h P EJECT 4 r P* 4 P* TEST IF DATA PACKET 4 P* 4 P LC A3,IDENT,A2 4 P LDR A1,A3 4 P ANK A3,DATA.P 4 P RF(Z) E
0x1dd48c…1dd620 Dummy {f00=0x0092, f01=0x0190, f02=» SUK A1,RNR.P 4 P IFF SWITVC=0 5 P RF(NZ) ENDO46 NO 5 , P XIF 5 F P IFT SWITVC=0 5 R P RF(NZ) ENDO56 NO 5 h P XIF 5 < P SUK A4,REFDAT REFUSE DATA REQUEST? 5 P RF(NZ) ENDO56 NO 5 P RF ENDO58 YES 5 P IFF SWITV
0x1dd620…1dd7b4 (1, 448) Dummy {f00=0x0092, f01=0x0190, f02=») ENDO48 NO 5 ( P SUK A4,ACCCAL ACCEPT CALL REQUEST ? 6 P RF(Z) ENDO58 YES 6 @ P RF ENDO56 NO 6 Z P* 6 p P EJECT 6 z P* 6 P* TEST IF CLEAR PACKET 6 P* 6 PENDO48 EQU * 6 P SUK A1,CLE.P-CAL.CP 6 P RF(NZ) ENDO56 NO 6
0x1dd7b4…1dd948 Dummy {f00=0x0092, f01=0x0190, f02=» 0 P CM LCDWT,A13 RELEASE RELATION WITH THE DWT 7 PENDO52 EQU * 7 8 P LDK A3,ACPT.RC RETURN CODE 7 L P XIF 7 p PENDO54 EQU * 7 | $ P CF A14,CMPREQ COMPLETE REQUEST 7 PENDO56 EQU * 7 P RB ENDO20 7 PENDO58 EQU * 7 P LD A3,DWTRCI,A6 7
0x1dd948…1ddadc Dummy {f00=0x0092, f01=0x0190, f02=»LD TO USER 7 z P RB ENDO54 COMPLETE REQUEST 8 P EJECT 8 6 P* 8 D < P* THIS MODULE IS ACTIVATED WHEN A CONFIRMATION TIMER OF 8 N P* THE DC-TASK EXPIRES. 8 P* 8 2 P********************************************* 8 P* 8 P* INPUT PARAMETERS
0x1ddadc…1ddc70 Dummy {f00=0x0092, f01=0x0190, f02=»TIMOUT EQU * 8 $ P LDK A3,5 SET PROCESS INDICATOR 9 P ST A3,DCLEVL . 9 < & P LDKL A14,DCSTAK SET STACK POINTER 9 T & P LDR A4,A1 ADDRESS PARAMETER BLOCK 9 ~ P INH . =1 9 " P CF A15,FREBLK GET PARAMETERS 9 P ENB 9 " P LDR A12,A3 LINE BLOCK ADDRE
0x1ddc70…1dde04 Dummy {f00=0x0092, f01=0x018e, f02=»F(NZ) TIM10 NO RESTART CONF. TIMER 9 P* : * @ P* A RESTART CONFIRMATION TIMER IS EXPIRED, SO CLEAR ALL NOT : 4 P* READY VC'S LOCAL. : x P* : & P CM RTMADR,A12 CLEAR TIMER ADDRESS : 2 P LDK A1,RSTFLG IS A RESTART PROCEDURE ACTIVE ? : P AN A1,CMN
0x1dde04…1ddf98 Dummy {f00=0x0092, f01=0x0190, f02=» P EJECT ; P* ; 6 P* THE TIMER OF A RESET OR CLEAR PACKET IS EXPIRED ; P* ; V PTIM10 EQU * ; ` & P CM TIMADR,A13 CLEAR TIMER ADDRESS ; t 2 P LDK A1,CONTIM IS CONFIRMATION TIMER STARTED ? ; P AN A1,FLAGS,A13 . ; P RF(Z) TIM40 NO ; & P X
0x1ddf98…1de12c Dummy {f00=0x0092, f01=0x018e, f02=» RF(NE) TIM30 NO, SO IT MUST BE A CLEAR ; P XIF < 0 P* < < 6 P* A RESET TIMER IS EXPIRED, SO CLEAR CONCERNING VC < F P* < P SUR A1,A1 RESET SUB-STATUS < P SC A1,LCSBST,A13 . < , P LDK A1,NPRFLG RESET NO PROCESSING FLAG < P C1R A1,A1 . <
0x1de12c…1de2c0 Dummy {f00=0x0092, f01=0x018e, f02=» P RF(E) TIM20 YES = P XIF = P IFF SWITVC=0 = ( P LDK A1,LOCPER DIAGN. CODE = > . P ABL CLVC CLEAR VC AND RETURN TO SCHEDULER = ` P XIF = P* = P EJECT = P* = & P* COMPLETE EVENTS IN OUTPUT QUEUE = P* = PTIM20 EQU * = P
0x1de2c0…1de454 (1, 449) Dummy {f00=0x0092, f01=0x0190, f02=» = t P* > PTIM30 EQU * > * P CM LCSTAT,A13 NEW LC-STATUS := READY > & P XIF > T PTIM40 EQU * > ` * P ABL EXITDC CONTROL BACK TO SCHEDULER > t P EJECT > P* > P* > . P* PROCESSING OF A COMPLETED INPUT REQUEST > P* > 0 P********
0x1de454…1de5e8 Dummy {f00=0x0092, f01=0x0190, f02=»CE: > P* ACTIVATION ON LABEL ? P* ? * PENDIN EQU * ? 4 $ P LDK A3,3 SET PROCESS INDICATOR ? H P ST A3,DCLEVL . ? p . P LDKL A14,DCSTAK SET RETURN STACK POINTER ? P LDR A8,A1 SAVE ECB-ADDRESS ? ( P CF A14,GTLBA GET LINE BLOCK ADDRESS ? $
0x1de5e8…1de77c Dummy {f00=0x0092, f01=0x0190, f02=» P EJECT @ P* @ H P* THE INPUT REQUEST IS NOT CORRECT COMPLETED. WHEN THIS IS THE FIRST @ H P* TIME A DISCONNECT REQUEST FOR THE DC-CONNECTION WILL BE GIVEN AND @ h B P* ALL NOT READY SVC'S WILL BE CLEARED LOCAL AND ALL RELATIONS @ $ P* DWT <--> PVC
0x1de77c…1de910 Dummy {f00=0x0092, f01=0x0190, f02=»TO POOL @ p * P LD A3,CMNFLG,A12 IS SUBSYS STARTED ? A P ANK A3,STRTFL . A > P RF(Z) END10 ALREADY DOWN A V $ P LDK A1,STRTFL RESET START FLAG A x P C1R A1,A1 . A P ANS A1,CMNFLG,A12 . A 6 P ST A5,HRDSTA,A12 SAVE RETURN CODE IN HARDWARE STA A <
0x1de910…1deaa4 Dummy {f00=0x0092, f01=0x018e, f02=». CODE = LOST CONNECTION A | ( P CF A14,CLAVCS CLEAR ALL VC'S LOCAL B PEND10 EQU * B L * P ABL EXITDC CONTROL BACK TO SCHEDULER B ` P* B , P* THE INPUT REQUEST IS CORRECT COMPLETED B P* B PEND20 EQU * B " P LD A5,ECBBA,A8 BUFFER ADDRESS B
0x1deaa4…1dec38 Dummy {f00=0x0092, f01=0x0190, f02=» P* C P EJECT C P* C P* ONLY FOR LOOP TEST C & P* C B P LC A6,NRLC,A12 C L P ANK A6,/FF C d P SUK A6,1 C x P IFF PERMVC=0 C P LC A2,NRPVC,A12 C P ANK A2,/FF C P CWR A2,A4 C P RF(NG) LOOP1 SVC C P LDR
0x1dec38…1dedcc Dummy {f00=0x0092, f01=0x0190, f02=» C P SUR A6,A4 D P LDR A4,A6 D P SC A4,LCIDNT,A5 D , P* END OF ONLY LOOP-TEST!!!! D D P XIF D h , P CC A4,NRLC,A12 LC-NUMBER WITHIN LIMITS? D t P RF(L) END30 YES D P EJECT D P* D : P* IGNORE RECEIVED BUFFER AND ISSUE A NEW INPUT REQUE
0x1dedcc…1def60 Dummy {f00=0x0092, f01=0x018e, f02=»N ACTIVATION ADDRESS D ( P RB END10 CONTROL BACK TO SCHEDULER E P* E H P* LC-NUMBER IS CORRECT E R P* E p PEND30 EQU * E z & P CF A14,GTLCAD GET LC-ADM ADDRESS E & P CF A14,GTBUF GET AN INPUT BUFFER E P ST A2,ECBBA,A8 TO ECB E ( P LDR A1,
0x1def60…1df0f4 (1, 450) Dummy {f00=0x0093, f01=0x0190, f02=» E " P DATA ENDIN ACTIVATION ADDRESS F P* F . , P* TEST IF A RESTART PROCEDURE IS ACTIVE F 8 P* F h P LDR A2,A5 BUFFER ADDRESS F r , P LD A4,CMNFLG,A12 IS RESTART FLAG SET ? F P ANK A4,RSTFLG . F 6 P LC A4,IDENT,A2 GET PACKE
0x1df0f4…1df288 Dummy {f00=0x0093, f01=0x0190, f02=» END40 YES F 0 P CWK A4,RSTR.CP IS IT A RESTART CONF. PACKET G P RF(E) END40 YES G F & P CF A14,RLBUF RELEASE INPUT BUFFER G ^ ( P RB END10 CONTROL BACK TO SCHEDULER G P EJECT G P* G & P* SEARCH PACKET DEPENDENT ROUTINE G P* G PEND40 EQ
0x1df288…1df41c Dummy {f00=0x0093, f01=0x0190, f02=» " P CWR A4,A5 IS IT A RR-PACKET ? H P ABL(E) RRIN YES H * P LDK A5,RNR.P H B $ P CWR A4,A5 IS IT AN RNR-PACKET ? H X P ABL(E) RNRIN YES H P LDK A5,TABLNG H PEND50 EQU * H " P LC A4,IDENT,A2 H * P CC A4,TABLE,A5 SEARCH IDENT I
0x1df41c…1df5b0 Dummy {f00=0x0093, f01=0x0190, f02=» H PEND60 EQU * I & P CF A14,RLBUF RELEASE INPUT BUFFER I 4 P LDK A1,LOCPER DIAGNOSTIC CODE = PROCEDURE ERRO I F , P ABL CLVC CLEAR VC AND RETURN TO SCHED. I ~ P* I P EJECT I P* I 6 P* PACKET TYPE FOUND, BRANCH TO CONCERNING ROUTINE I
0x1df5b0…1df744 Dummy {f00=0x0093, f01=0x0190, f02=»BLE I P* J PTABLE EQU * J 0 P BYTE RSTR.P,RSTR.CP RESTART(-CONF.) PACKET J * . P BYTE RSET.P,RSET.CP RESET(-CONF.) PACKET J ^ P IFF SWITVC=0 J , P BYTE CLE.P,CLE.CP CLEAR(-CONF.) PACKET J * P BYTE CAL.P,CAL.CP CALL(-CONF.) PACKET J P XIF
0x1df744…1df8d8 Dummy {f00=0x0093, f01=0x018e, f02=» J PBRATAB EQU * K P DATA RSTIN RESTART K & P DATA RSTCIN RESTART CONFIRMATION K 8 P DATA RESIN RESET K b $ P DATA RESCIN RESET CONFIRMATION K | P IFF SWITVC=0 K P DATA CLRIN CLEAR K $ P DATA CLRCIN CLEAR CONFIRMATION K P DATA CALLIN
0x1df8d8…1dfa6c Dummy {f00=0x0093, f01=0x018e, f02=» P EJECT L P* L ( P* PROCESSING OF RECEIVED DATA PACKET L P* L H 0 P******************************************** L R P* L P* INPUT PARAMETERS: L P* A2 = BUFFER ADDRESS L P* A3 = BUFFER LENGTH L P* A13 = LC-ADM ADDRESS L (
0x1dfa6c…1dfc00 Dummy {f00=0x0093, f01=0x0190, f02=» . P CF A14,TDARR TEST PART OF PACKET CONTENTS M P LDR A1,A1 O.K. ? M 6 P RF(NZ) DAT00 NO M P $ P LC A1,IDENT,A2 GET RECEIVED PS M h P SRL A1,1 . M P ANK A1,/07 . M 0 P CC A1,RPS,A13 DOES IT MATCH WITH THE LC-ADM M P RF(NE) DAT00 NO M P*
0x1dfc00…1dfd94 (1, 451) Dummy {f00=0x0093, f01=0x018e, f02=» OF PACKETS IN WIND. M v P SUR A1,A5 . N P ANK A1,/07 . N 0 P ADK A1,1 . N F . P CC A1,LCREWN,A13 COMPARE WITH WINDOW SIZE N Z $ P RF(L) DAT20 WINDOW IS NOT FULL N ( P RF(G) DAT00 OUT OF WINDOW, RESET LC N $ P LDK A7,1 SET WINDOW FULL INDIC. N P
0x1dfd94…1dff28 Dummy {f00=0x0093, f01=0x0190, f02=» * P LDK A1,RSET.ST LC-SUBSTATUS := RESET O P SC A1,LCSBST,A13 . O 2 P* O N , P* PREPARE AND QUEUE RESET PACKET FOR RH O X P* O , P LC A1,LCNUM,A13 LOGICAL CHANNEL NUMBER O P SC A1,LCIDNT,A2 . O 4 P LDK A1,RSET.P PACKET TYPE FOR RESET INDICAT
0x1dff28…1e00bc Dummy {f00=0x0093, f01=0x0190, f02=»0 O & P SC A1,CAUSE,A2 CLEAR RESET CAUSE P P LDK A1,RESLCH P 4 ( P SC A1,DGNCOD,A2 SET DIAGNOSTIC CODE P J P CF A14,RSETVC P v , P CF A14,QUEI PUT ELEMENT IN INPUT QUEUE P P* P 2 P* PREPARE RESET PACKET AND QUEUE IT FOR OUTPUT P
0x1e00bc…1e0250 Dummy {f00=0x0093, f01=0x0190, f02=»AT10 YES P P* Q * P* WAIT FOR RELEASING OF OUTPUT BUFFER Q P* Q H ( P LDKL A1,DAT05 REACTIVATION ADDRESS Q R P ABL BUFWAT Q ~ P* Q P EJECT Q P* Q PDAT10 EQU * Q P LDK A1,RSET.P Q P SC A1,IDENT,A2 PACKET TYPE Q P LDK A
0x1e0250…1e03e4 Dummy {f00=0x0093, f01=0x018e, f02=» PACKET LENGTH TO HDLC HEADER Q | P ST A1,HDLC,A2 . R & , P CF A14,QUEO PUT ELEMENT IN OUTPUT QUEUE R > , P LDKL A8,SYRETM RESET CONFIRMATION TIMER R n P CF A14,STTIM START TIMER R * P ABL EXITDC CONTROL BACK TO SCHEDULER R P* R P* TEST CURRENT M
0x1e03e4…1e0578 Dummy {f00=0x0093, f01=0x0190, f02=» P* S 4 P* M-BIT IS SET, SO DATA LENGTH HAS TO BE MAXIMUM S P* S F 4 P LD A1,TRBFSZ,A13 MAX.DATA LENGTH IN DATA PACKET S P P ADK A1,BEGDAT ADD HEADERS S P CWR A1,A3 S $ P RF(E) DAT30 OK, THEY ARE EQUAL S P* S * P* DATA LENGTH NOT MAXIMUM,
0x1e0578…1e070c Dummy {f00=0x0093, f01=0x018e, f02=»IVED NEXT S z P* T PDAT30 EQU * T P LC A1,RPS,A13 GET RPS T 0 P ADK A1,1 INCREMENT T N P ANK A1,/07 MODULO 8 T j P SC A1,RPS,A13 . T P* T P* GET RECEIVED PR T P* T 0 P LC A1,IDENT,A2 GET PR FROM RECEIVED PACKET T P SRL A1,
0x1e070c…1e08a0 Dummy {f00=0x0093, f01=0x0190, f02=» P* U 4 P CC A1,SLWE,A13 COMPARE WITH SEND LOWER WINDOW E U P RF(E) DAT50 NO UPDATING U F " P SC A1,SLWE,A13 SAVE NEW VALUE U f . P LDK A1,NPRFLG RESET "NO PROCESSING" FLAG U P C1R A1,A1 U P ANS A1,QUEOUT,A13 . U P* U & P* QU
0x1e08a0…1e0a34 (1, 452) Dummy {f00=0x0093, f01=0x0190, f02=» PUT ELEMENT IN INPUT QUEUE U P* V $ P EJECT V . P* V < $ P* CAN RECEIVE WINDOW BE UPDATED V F P* V n PDAT60 EQU * V x , P LDK A3,0 PRESET INDIC.: NO PR UPDATING V 6 P LC A1,NRNUBF,A13 ARE ALL RESERVED BUFFERS USED ? V P ANK A1,/FF . V
0x1e0a34…1e0bc8 Dummy {f00=0x0093, f01=0x0190, f02=»E SENT NEXT V t . P ADR A4,A1 ADD NUMBER OF NOT USED BUFFERS W P ANK A4,/07 MODULO 8 W F P SC A4,PR,A13 . W b , P SUR A1,A1 ALL RES. BUFFERS ARE NOW USED W z P SC A1,NRNUBF,A13 . W P* W D P* DID THE RECEIVED PS PASSES THE THRESHOLD OF THE RECEIV
0x1e0bc8…1e0d5c Dummy {f00=0x0093, f01=0x0190, f02=»EDGE W j P SUR A1,A2 RPS - RLWE X P ANK A1,/07 MODULO 8 X * 4 P CC A1,LCTHRE,A13 DID IT PASSED THE THRESHOLD ? X F P RF(NG) DAT130 NO X ~ P* X P EJECT X P* X 4 P* IF RECEIVE WINDOW IS NOT UPDATED, WAIT FOR IT X P* X P LDR A3,A3 X
0x1e0d5c…1e0ef0 Dummy {f00=0x0093, f01=0x0190, f02=»RAMETER FOR DELAY AND ACTIVATION X P LD A7,TSKID Y ( P LDKL A8,BUFDEL DELAY TIME Y < P LKM Y ^ P DATA -6 Y j " P DATA DAT80 ACTIVATION ADDRESS Y z ( P RF DAT130 CONTROL BACK TO SCHEDULER Y P* Y PDAT80 EQU * Y & P LDR A13,A1 RESTORE LC-ADM ADD
0x1e0ef0…1e1084 Dummy {f00=0x0093, f01=0x0190, f02=» Y P* Z J P* THE RECEIVE WINDOW IS UPDATED, CAN NEW PR BE SENT IN A DATA PACKET ? Z P* Z ` PDAT90 EQU * Z j . P LD A1,QUEOUT,A13 IS OUTPUT QUEUE EMPTY ? Z ~ P RF(Z) DAT100 YES Z P* Z * P* TEST IF ONLY NO-PROCESSING FLAG SET Z P* Z
0x1e1084…1e1218 Dummy {f00=0x0093, f01=0x0190, f02=» ? Z z P* [ P LDK A3,REMBUS [ P AN A3,FLAGS,A13 [ * P RF(NZ) DAT100 [ B P* [ X P* IS SEND WINDOW FULL ? [ b P* [ P LC A1,PS,A13 [ P LC A2,SLWE,A13 [ P SUR A1,A2 [ P ANK A1,/7 [ P CC A1,LCTRWN,A13 [ P RF(L) DAT130 NO
0x1e1218…1e13ac Dummy {f00=0x0093, f01=0x0190, f02=» . [ P LDR* A1,A2 IS IT FREE ? P RF(Z) DAT120 YES * P* D * P* WAIT FOR RELEASING OF OUTPUT BUFFER N P* | ( P LDKL A1,DAT100 REACTIVATION ADDRESS P ABL BUFWAT P* P EJECT P* PDAT120 EQU * * P LC
0x1e13ac…1e1540 Dummy {f00=0x0093, f01=0x0190, f02=»R IN PACKET l P ORK A1,RR.P . ] P SC A1,IDENT,A2 . ] * . P LDK A1,RR.L PACKET LENGTH TO HDLC-HEADER ] D P ST A1,HDLC,A2 . ] v P* ] 0 P* RESET NO PROCESSING FLAG AND QUEUE PACKET ] P* ] . P LDK A1,NPRFLG RESET "NO PROCESSING" FLAG ] P
0x1e1540…1e16d4 (1, 453) Dummy {f00=0x0093, f01=0x0190, f02=»EUEF . ] PDAT130 EQU * ^ * P ABL EXITDC CONTROL BACK TO SCHEDULER ^ " P EJECT ^ P P* ^ ^ P* ^ h & P* PROCESSING OF RECEIVED RR-PACKET ^ r P* ^ 0 P******************************************** ^ P* ^ P* INPUT PARAMETER: ^ P* A2 = B
0x1e16d4…1e1868 Dummy {f00=0x0093, f01=0x0190, f02=»* ABL RRIN ^ P* _ PRRIN EQU * _ P CF A14,TDARR TEST RR-PACKET _ 0 $ P LDR A1,A1 PR OUT OF SEQUENCE ? _ T . P ABL(NZ) DAT00 YES RESET LC (MODULE DATIN) _ | P* _ " P* TEST IF REMOTE BUSY FLAG SET _ P* _ " P LD A1,FLAGS,A13 _
0x1e1868…1e19fc Dummy {f00=0x0093, f01=0x0190, f02=» A1,FLAGS,A13 RESET REMOTE BUSY FLAG _ P LDK A1,NPRFLG ` 2 P C1R A1,A1 ` V @ P ANS A1,QUEOUT,A13 RESET NO PROCESSING FLAG ` v P RF RNRI00 ` P EJECT ` P* ` ( P* PROCESSING OF RECEIV
0x1e19fc…1e1b90 Dummy {f00=0x0093, f01=0x0190, f02=»ADDRESS ` P* A13 = LC-ADM ADDRESS a ( P* A14 = CALL FUNCTION STACK POINTER a 0 P* a P* CALLING SEQUENCE: a f P* ABL RNRIN a P* a PRNRIN EQU * a P CF A14,TDARR TEST RR-PACKET a $ P LDR A1,A1 PR OUT OF SEQUENCE ? a . P ABL(NZ)
0x1e1b90…1e1d24 Dummy {f00=0x0093, f01=0x0190, f02=»ED PR a P* b PRNRI00 EQU * b 0 P LC A1,IDENT,A2 GET PR FROM RECEIVED PACKET b , P SRL A1,5 . b ` P ANK A1,/07 . b t P* b P EJECT b P* b D P* IF IT IS A SEND WINDOW UPDATING, RESET "NO PROCESSING" FLAG OF b P* OUTPUT QUEUE b
0x1e1d24…1e1eb8 Dummy {f00=0x0093, f01=0x0190, f02=» . P LDK A1,NPRFLG RESET "NO PROCESSING" FLAG c P C1R A1,A1 c 6 P ANS A1,QUEOUT,A13 . c V PRNRI10 EQU * c r & P CF A14,RLBUF BUFFER BACK TO POOL c * P ABL EXITDC CONTROL BACK TO SCHEDULER c P IFF SWITVC=0 c P EJECT c P* c
0x1e1eb8…1e204c Dummy {f00=0x0093, f01=0x0190, f02=»T PARAMETERS: c P* A2 = BUFFER ADDRESS d P* A3 = BUFFER LENGTH d 6 P* A13 = LC-ADM ADDRESS d T ( P* A14 = CALL FUNCTION STACK POINTER d t P* d P* CALLING SEQUENCE: d P* ABL CALLIN d P* d PCALLIN EQU * d * P LDK A1,READ
0x1e204c…1e21e0 Dummy {f00=0x0093, f01=0x0190, f02=»1,LCAL.ST IS LC-STATUS: LOCAL-CALL ? d P CC A1,LCSTAT,A13 . e , " P RF(NE) CALC00 NO, SO CLEAR VC e H P* e n 8 P* A CALL COLLISION IS OCCURED, IGNORE RECEIVED CALL e x P* e * P ABL EXITDC CONTROL BACK TO SCHEDULER e P* e @ P* THE LC-STATUS IS
0x1e21e0…1e2374 (1, 454) Dummy {f00=0x0094, f01=0x0190, f02=» A1,RCAL.ST LC-STAT := REMOTE CALL e P SC A1,LCSTAT,A13 . f * , P LDK A1,0 ALL RESERVED BUFFERS ARE USED f F P SC A1,NRNUBF,A13 . f v P EJECT f P* f ( P* GET WINDOW SIZES AND PACKET LENGTH f P* f P CF A14,GTWNDS f P* f . P* CHANGE
0x1e2374…1e2508 Dummy {f00=0x0094, f01=0x018e, f02=»A13 f P ECR A1,A1 g P SC A1,LCREWN,A13 g P* g 8 0 P* CHANGE TRANSMIT AND RECEIVE PACKET LENGTH g B P* g v P LD A1,TRBFSZ,A13 g P LD A3,REBFSZ,A13 g P ST A3,TRBFSZ,A13 g P ST A1,REBFSZ,A13 g P* g > P* TRANSLATE THRESHOLD
0x1e2508…1e269c Dummy {f00=0x0094, f01=0x0190, f02=» g P RF CALC20 h P EJECT h P* h ( P* h 2 6 P* PROCESSING OF RECEIVED CALL CONFIRMATION PACKET h < P* h v 0 P******************************************** h P* h P* INPUT PARAMETERS: h P* A2 = BUFFER ADDRESS h P* A3 = BUFFE
0x1e269c…1e2830 Dummy {f00=0x0094, f01=0x018e, f02=» CALCIN h P* i PCALCIN EQU * i 2 P LDK A1,LCAL.ST IS LC-STATUS: LOCAL-CALL STATE i 0 P CC A1,LCSTAT,A13 . i f P RF(E) CALC10 YES i P* i P* ILLEGAL STATE, SO CLEAR VC i P* i & P CF A14,RLBUF BUFFER BACK TO POOL i PCALC00 EQU
0x1e2830…1e29c4 Dummy {f00=0x0094, f01=0x0190, f02=» P* j 2 P* STATUS WILL BE DATA TRANSFER, UPDATE LC-ADM j P* j D PCALC10 EQU * j N . P LDK A1,DATA.ST LC-STATUS := DATA TRANSFER j b P ECR A1,A1 . j 6 P ST A1,LCSTAT,A13 SUBSTATUS := FLOW CONTROL READY j & P CF A14,CLLCAD CLEAR LC-ADM FIELDS j
0x1e29c4…1e2b58 Dummy {f00=0x0094, f01=0x0190, f02=»PACKET AND RETURN j P* k PCALC20 EQU * k $ , P CF A14,QUEI PUT ELEMENT IN INPUT QUEUE k 8 * P ABL EXITDC CONTROL BACK TO SCHEDULER k h P EJECT k P* k P* k * P* PROCESSING OF RECEIVED CLEAR PACKET k P* k 0 P************************
0x1e2b58…1e2cec Dummy {f00=0x0094, f01=0x0190, f02=»C-ADM ADDRESS k ( P* A14 = CALL FUNCTION STACK POINTER l P* l B P* CALLING SEQUENCE: l L P* ABL CLRIN l h P* l PCLRIN EQU * l P IFF PERMVC=0 l 0 P LC A1,VCTYP,A13 GET TYPE OF LOGICAL CHANNEL l P ANK A1,/FF . l 0 P CWK A1,SV
0x1e2cec…1e2e80 Dummy {f00=0x0094, f01=0x0190, f02=»C l ~ P* m PCLR00 EQU * m P XIF m ( P IFF SWITVC=0 m 4 * P LDK A1,CLEA.ST IS LC-STATUS = CLEAR ? m J P CC A1,LCSTAT,A13 . m x * P RF(E) CLRCIN YES, CO CLEAR COLLISION m P* m P EJECT m P* m . P* HAS THE REQUEST HANDLER TO BE NOTI
0x1e2e80…1e3014 (1, 455) Dummy {f00=0x0094, f01=0x0190, f02=» SC A1,DWTSTE,A6 m & P LDK A1,NPRFLG UNBLOCK INPUT QUEUE n $ P C1R A1,A1 . n N P ANS A1,QUEINP,A13 . n b 0 P ST A3,HDLC,A2 PACKET LENGTH TO HDLC-HEADER n ~ , P CF A14,QUEI PUT ELEMENT IN INPUT QUEUE n P RF CLR15 n P* n PCLR10 EQU
0x1e3014…1e31a8 Dummy {f00=0x0094, f01=0x0190, f02=»ATION TO REMOTE STATIO n ^ P* o PCLR15 EQU * o ( P* o < P* EMPTY OUTPUT QUEUE o F P* o b * P LDKL A3,CLEA.RC RETURN CODE FOR USER o l P CF A14,CMEVNT o PCLR20 EQU * o $ P LDR A2,A13 GET AN OUTPUT BUFFER o P ADK A2,SYSBUF . o P LDR
0x1e31a8…1e333c Dummy {f00=0x0094, f01=0x0190, f02=»CTIVATION ADDRESS o ~ P ABL BUFWAT p P* p . PCLR30 EQU * p 8 ( P LDK A1,CLE.CP PACKET IDENTIFICATION p L P SC A1,IDENT,A2 . p x 0 P LDK A1,CLE.CL PACKET LENGTH TO HDLC-HEADER p P ST A1,HDLC,A2 . p 8 P CM LCSTAT,A13 NEW STA
0x1e333c…1e34d0 Dummy {f00=0x0094, f01=0x0190, f02=»U * p * P ABL EXITDC CONTROL BACK TO SCHEDULER q P EJECT q : P* q H P* q R 6 P* PROCESSING OF RECEIVED CLEAR CONFIRMATION PACKET q P* q 0 P******************************************** q P* q P* INPUT PARAMETERS: q P* A2 = BUFFE
0x1e34d0…1e3664 Dummy {f00=0x0094, f01=0x0190, f02=»F BUFFER BACK TO POOL q P* r ( P* RESET CONFIRMATION TIMER AND FLAG r ( P* r T . P LD A1,TIMADR,A13 GET ADDRESS TIMER BLOCK r ^ P CF A14,CANTIM CANCEL TIMER r & P CM TIMADR,A13 CLEAR TIMER ADDRESS r , P LDK A1,CONTIM RESET TIMER STARTED FLAG r
0x1e3664…1e37f8 Dummy {f00=0x0094, f01=0x018e, f02=»LRC00 YES r * P LDK A1,READ.ST IS LC-STATUS = READY ? s P CC A1,LCSTAT,A13 . s @ P RF(E) CLRC10 YES s P* s v P EJECT s P* s 6 P* STATUS IS NOT READY OR CLEAR, SO PROCEDURE ERROR s P* s P RB CALC00 CLEAR VC s P* s PCLRC00
0x1e37f8…1e398c Dummy {f00=0x0094, f01=0x0190, f02=» s P* t P EJECT t P* t P* t * * P* PROCESSING OF RECEIVED RESET PACKET t 4 P* t b 0 P******************************************** t l P* t P* INPUT PARAMETERS: t P* A2 = BUFFER ADDRESS t P* A3 = BUFFER LENGTH t P* A
0x1e398c…1e3b20 Dummy {f00=0x0094, f01=0x0190, f02=» t PRESIN EQU * u * P LDK A1,CLEA.ST IF LC-STATUS = CLEAR ? u P CC A1,LCSTAT,A13 . u J $ P RF(E) RESC00 YES, IGNORE PACKET u f P* u , P* TEST IF A RESET COLLISION HAS OCCURED u P* u * P LDK A1,RSET.ST IS LC-STATUS = RESET ? u P CC A1,L
0x1e3b20…1e3cb4 (1, 456) Dummy {f00=0x0094, f01=0x0190, f02=»TA.ST IS LC-STATUS = DATA TRANSFER ? u P CC A1,LCSTAT,A13 . v , * P RF(NE) RESC10 NO, SO PROCEDURE ERROR v H P* v v P EJECT v P* v 2 P* LC-STATUS IS DATA TRANSFER, SO RESET LC-ADM v P* v 0 P ST A3,HDLC,A2 PACKET LENGTH TO HDLC-HEADER v
0x1e3cb4…1e3e48 Dummy {f00=0x0094, f01=0x0190, f02=»ONFIRMATION PACKET v r P* w PRES40 EQU * w $ $ P LDR A2,A13 GET AN OUTPUT BUFFER w 8 P ADK A2,SYSBUF . w ` P LDR* A1,A2 IS IT FREE ? w x P RF(Z) RES60 YES w P* w * P* WAIT FOR RELEASING OF OUTPUT BUFFER w P* w ( P LDKL A1,RES40 REACTIV
0x1e3e48…1e3fdc Dummy {f00=0x0094, f01=0x0190, f02=». w 0 P LDK A1,RSET.CL PACKET LENGTH TO HDLC-HEADER x P ST A1,HDLC,A2 . x > P* x V P* QUEUE ELEMENT x ` P* x x P CF A14,QUEO x * P ABL EXITDC CONTROL BACK TO SCHEDULER x P EJECT x P* x P* x 8 P* PROCESSING OF A RECEIVED RESET C
0x1e3fdc…1e4170 Dummy {f00=0x0094, f01=0x0190, f02=»UFFER ADDRESS x P* A13 = LC-ADM ADDRESS y ( P* A14 = CALL FUNCTION STACK POINTER y 6 P* y b P* CALLING SEQUENCE: y l P* ABL RESCIN y P* y PRESCIN EQU * y * P LD A1,TIMADR,A13 TIMER BLOCK ADDRESS y P CF A14,CANTIM CANCEL TIMER
0x1e4170…1e4304 Dummy {f00=0x0094, f01=0x0190, f02=»ANSF/RESET y j P CC A1,LCSBST,A13 . z P RF(NE) RESC10 NO z . 2 P LDK A1,FLCN.ST SUB-STATUS := FLOW CNTRL READY z H P SC A1,LCSBST,A13 . z ~ , P LDK A1,NPRFLG RESET NO PROCESSING FLAG z P C1R A1,A1 . z P ANS A1,QUEOUT,A13 . z PRESC00 EQU * z
0x1e4304…1e4498 Dummy {f00=0x0094, f01=0x0190, f02=»L STATE, SO CLEAR VC z P* { PRESC10 EQU * { & & P CF A14,RLBUF BUFFER BACK TO POOL { : 0 P LDK A1,LOCPER DIAGN. CODE = PROCEDURE ERROR { d , P ABL CLVC CLEAR VC AND RETURN TO SCHED. { P EJECT { P* { P* { . P* PROCESSING OF A RECEIVED RES
0x1e4498…1e462c Dummy {f00=0x0094, f01=0x0190, f02=»ADDRESS { P* A12=LINE BLOCK ADDRESS | ( P* A14 = CALL FUNCTION STACK POINTER | 2 P* | ^ P* CALLING SEQUENCE: | h P* ABL RSTIN | P* | PRSTIN EQU * | * P LDK A1,RSTFLG ALREADY RESTART BUSY ? | P AN A1,CMNFLG,A12 . | * P RF(
0x1e462c…1e47c0 Dummy {f00=0x0094, f01=0x0190, f02=» | 2 P LDK A1,RSTRED DIAGN. CODE = RESTART RECEIVED } ( P CF A14,CLAVCS CLEAR ALL VC'S LOCAL } > P* } j 6 P* PREPARE AND TRANSMIT RESTART CONFIRMATION PACKET } t P* } PRST00 EQU * } $ P LDR A2,A13 GET AN OUTPUT BUFFER } P ADK A2,SYSBUF . }
0x1e47c0…1e4954 (1, 457) Dummy {f00=0x0094, f01=0x018e, f02=» P* ~ ( P LDKL A1,RST00 REACTIVATION ADDRESS ~ P ABL BUFWAT ~ : P* ~ N PRST20 EQU * ~ X . P LDK A1,RSTR.CP RESTART CONF. PACKET TYPE ~ l P SC A1,IDENT,A2 . ~ " P LDK A1,RSTR.CL PACKET LENGTH ~ P ST A1,HDLC,A2 . ~ P* ~ $ P* STORE
0x1e4954…1e4ae8 Dummy {f00=0x0094, f01=0x0190, f02=» ~ r ( P RF RSTC20 CONTROL BACK TO SCHEDULER P EJECT 4 P* B P* L : P* PROCESSING OF A RECEIVED RESTART CONFIRMATION PACKET V P* 0 P******************************************** P* P* INPUT PARAMETERS: P* A2 = BUFFER
0x1e4ae8…1e4c7c Dummy {f00=0x0094, f01=0x018e, f02=» ABL RSTCIN P* PRSTCIN EQU * P* 4 P* RESET TIMER > P* T & P CF A14,RLBUF BUFFER BACK TO POOL ^ $ P LD A1,RTMADR,A12 TIMER ACTIVE ? P CF A14,CANTIM CANCEL TIMER P CM RTMADR,A12 , P LDK A1,RSTFLG RESTART PROCEDU
0x1e4c7c…1e4e10 Dummy {f00=0x0094, f01=0x0190, f02=» ^ PRSTC20 EQU * P ABL EXITDC P EJECT 0 P* > P* H . P* PROCESSING OF RECEIVED INTERRUPT PACKET R P* 0 P******************************************** P* P* INPUT PARAMETERS: P* A2 = BUFFER ADDRESS P
0x1e4e10…1e4fa4 Dummy {f00=0x0094, f01=0x0190, f02=» | P* ABL INTIN P* PINTIN EQU * * 2 P LDK A4,0 INDICATE ENTRY FOR INTERRUPT PACKET > P* t > P* THE NEXT PART OF CODING IS COMMON FOR THE PROCESSING OF ~ : P* AN INTERRUPT- AND AN INTERRUPT CONFIRMATION PACKET. P* P
0x1e4fa4…1e5138 Dummy {f00=0x0094, f01=0x0190, f02=»* LC-STATUS IS NOT DATA TRANSFER, IF CLEAR: IGNORE PACKET, ELSE P* PROCEDURE ERROR. H P* b * P LDK A1,CLEA.ST IS LC-STATUS = CLEAR ? l P CC A1,LCSTAT,A13 . * P RB(NE) RESC10 NO, SO PROCEDURE ERROR P RB RESC00 IGNORE PACKET P*
0x1e5138…1e52cc Dummy {f00=0x0094, f01=0x0190, f02=»CSBST,A13 IS LC-SUBSTATUS = RESET P ANK A1,RSET.STA . * P RB(NZ) RESC00 IGNORE PACKET D P* h & P* QUEUE PACKET FOR REQUEST HANDLER r P* PINT30 EQU * 0 P ST A3,HDLC,A2 SAVE PACKET LENGTH IN BUFFER F P LDR A1,A13
0x1e52cc…1e5460 Dummy {f00=0x0094, f01=0x0190, f02=»T AS FIRST D P LDK A2,NPRFLG RESET NO PROCESSING FLAG P C1R A2,A2 Z P ANRS A2,A1 z P LDR A4,A4 4 P RF(NZ) INTC10 CONTINUE WITH SPECIFIC PROCESSING P OF INTERRUPT CONF. PACKET . P
0x1e5460…1e55f4 (1, 458) Dummy {f00=0x0095, f01=0x0190, f02=»ET P* 0 P******************************************** P* H P* INPUT PARAMETERS: R P* A2 = BUFFER ADDRESS n P* A3 = BUFFER LENGTH P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALL
0x1e55f4…1e5788 Dummy {f00=0x0095, f01=0x018e, f02=»* STATUS CKECKING ETC. IS DONE IN COMMON PART OF CODING WITH , P* THE PROCESSING OF A INTERRUPT PACKET. D P* t P RB INT00 ~ P* " P* RESET INTERRUPT PENDING FLAG P* PINTC10 EQU * 0 P LDK A1,INTPNG RESET INTERRUPT PENDING FLA
0x1e5788…1e591c Dummy {f00=0x0095, f01=0x0190, f02=» 2 P* THIS MODULE PERFORMS THE CLEARING RESP. THE $ P* RESETTING OF A SVC RESP. PVC. > P* f 0 P******************************************** p P* P* INPUT PARAMETERS: P* A1 = DIAGNOSTIC CODE P* A13 = LC-ADM ADDRESS (
0x1e591c…1e5ab0 Dummy {f00=0x0095, f01=0x0190, f02=»DR A5,A1 SAVE DIAGNOSTIC CODE P IFF SWITVC=0 & P IFF PERMVC=0 < P* R P* SELECT ON VC-TYPE P* x P LDK A1,PVC GET VC-TYPE P CC A1,VCTYP,A13 . $ P RF(E) CLV100 TYPE IS PERMANENT P* P* SWITCHED VIRTUAL CIRCUIT
0x1e5ab0…1e5c44 Dummy {f00=0x0095, f01=0x0190, f02=»C60 YES, NO ACTION 8 P SC A1,LCSTAT,A13 LC-STATUS:=CLEAR P* V P EJECT ` P* n P* EMPTY INPUT QUEUE x P* P CF A14,CLINPQ P* & P* COMPLETE EVENTS IN OUTPUT QUEUE P* P LDKL A3
0x1e5c44…1e5dd8 Dummy {f00=0x0095, f01=0x0190, f02=»NOWS THIS LC ? r P RF(Z) CLVC20 NO P LDK A1,VCREL . " P SC A1,DWTSTE,A6 P & P CF A14,GTBUF GET AN INPUT BUFFER v , P LC A1,LCNUM,A13 LOGICAL CHANNEL NUMBER P SC A1,LCIDNT,A2 . & P LDK A1,CLE.P INTERNAL PACKET
0x1e5dd8…1e5f6c Dummy {f00=0x0095, f01=0x0190, f02=» PUT ELEMENT IN INPUT QUEUE . P LD A1,TIMADR,A13 GET TIMER BLOCK ADDRESS $ P CF A14,CANTIM CANCEL TIMER V P CM TIMADR,A13 z P* P EJECT P* @ P* PREPARE CLEAR PACKET AND TRANSMIT IT TO THE REMOTE STATION P*
0x1e5f6c…1e6100 Dummy {f00=0x0095, f01=0x018e, f02=»YES P* * P* WAIT FOR RELEASING OF OUTPUT BUFFER P* D ( P LDKL A1,CLVC20 REACTIVATION ADDRESS N P ABL BUFWAT z P* PCLVC40 EQU * $ P LDK A1,CLE.P CLEAR PACKET TYPE P SC A1,IDENT,A2 . $ P SC A5,DGNCOD,A2 DIAGNOSTI
0x1e6100…1e6294 (1, 459) Dummy {f00=0x0095, f01=0x0190, f02=» ~ , P CF A14,QUEO PUT ELEMENT IN OUTPUT QUEUE P* 8 P* START CONFIRMATION TIMER B P* d , P LDKL A8,SYCLTM CLEAR CONFIRMATION TIMER n P CF A14,STTIM START TIMER PCLVC60 EQU * * P ABL EXITDC CONTROL BACK TO SCHEDULER P XIF
0x1e6294…1e6428 Dummy {f00=0x0095, f01=0x0190, f02=» SUB-STATUS = RESET ? ~ P CC A1,LCSBST,A13 . P RF(E) CLV160 YES, NO ACTION : ( P SC A1,LCSBST,A13 SUBSTATUS := RESET ^ P* P* RESET VIRTUAL CIRCUIT P* P CF A14,RSETVC P* , P* SEND NOTIFICATION TO RH, IF APPLICABLE
0x1e6428…1e65bc Dummy {f00=0x0095, f01=0x0190, f02=»C A1,LCNUM,A13 LOGICAL CHANNEL NUMBER P SC A1,LCIDNT,A2 . . P LDK A1,RSET.P PACKET TYPE H P SC A1,IDENT,A2 . j P SC A5,DGNCOD,A2 . P LDK A1,RSET.L PACKET LENGTH P ST A1,HDLC,A2 . , P CF A14,QUEI PUT ELEMENT IN INPUT QUEUE .
0x1e65bc…1e6750 Dummy {f00=0x0095, f01=0x0190, f02=» @ P* PREPARE RESET PACKET AND TRANSMIT IT TO THE REMOTE STATION P* L PCLV130 EQU * V $ P LDR A2,A13 GET AN OUTPUT BUFFER j P ADK A2,SYSBUF . P LDR* A1,A2 IS IT FREE ? P RF(Z) CLV150 YES P* * P* WAIT FOR RELEASING OF OU
0x1e6750…1e68e4 Dummy {f00=0x0095, f01=0x0190, f02=».P RESET PACKET TYPE P SC A1,IDENT,A2 . $ P SC A5,DGNCOD,A2 DIAGNOSTIC CODE 6 P LDK A1,0 ^ & P SC A1,CAUSE,A2 CLEAR RESET CAUSE p & P LDK A1,RSET.L RESET PACKET LENGTH P ST A1,HDLC,A2 . , P CF A14,QUEO PUT ELEMENT IN OUTPUT QUEUE
0x1e68e4…1e6a78 Dummy {f00=0x0095, f01=0x0190, f02=» PCLV160 EQU * P ABL EXITDC P XIF , P EJECT 8 P* F P* P 2 P* THIS MODULE RELEASE ALL RELATION BETWEEN THE Z 4 P* DWT AND THE LOGICAL CHANNELS. THE LC IS PLACED P* IN THE INITIAL STATE. P* 0 P**********************
0x1e6a78…1e6c0c Dummy {f00=0x0095, f01=0x0190, f02=»ESS x ( P* A14 = CALL FUNCTION STACK POINTER P* 8 P* CALLING SEQUENCE: B P* CF A14,CLAVCS ^ P* z P* OUTPUT PARAMETERS: P* NO REGISTERS ARE CHANGED P* PCLAVCS EQU * : P CF A14,SAVE8
0x1e6c0c…1e6da0 Dummy {f00=0x0095, f01=0x0190, f02=»OGICAL CHANNELS v P ANK A4,/FF . P SUK A4,1 . . PCLAV00 EQU * B & P CF A14,GTLCAD GET LC-ADM ADDRESS V P* P EJECT P* $ P CF A14,CLINPQ CLEAR INPUT QUEUE P IFF SWITVC=0 P LDK A2,0 P IFF PERMVC=0 P
0x1e6da0…1e6f34 (1, 460) Dummy {f00=0x0095, f01=0x0190, f02=»DK A2,DATA.ST PRESET LC-STATUS P ECR A2,A2 . & P XIF : PCLAV10 EQU * F 2 P ST A2,LCSTAT,A13 SET STATUS TO INITIALE VALUE Z 2 P LD A6,LCDWT,A13 IS THERE RELATION WITH A DWT P RF(Z) CLAV30 NO P IFF SWITVC=0 P IFF PERMVC=0
0x1e6f34…1e70c8 Dummy {f00=0x0095, f01=0x0190, f02=» A1,DWTSTE,A6 PCLAV15 EQU * P XIF * P* 6 P* RESET TIMER FLAGS @ P* CANCEL TIMER P* r P LD A1,TIMADR,A13 | P CF A14,CANTIM P CM TIMADR,A13 P LDK A1,CONTIM MASK VALUE P C1R A1,A1 . P ANS A1,FLAGS,A1
0x1e70c8…1e725c Dummy {f00=0x0095, f01=0x018e, f02=» P* P EJECT P* 0 P* PREPARE CLEAR OR RESET NOTIFICATION FOR RH * P* ^ & P CF A14,GTBUF GET AN INPUT BUFFER h , P LC A1,LCNUM,A13 LOGICAL CHANNEL NUMBER P SC A1,LCIDNT,A2 . P IFF SWITVC=0 P LDK A3,CLEA.RC RETURN
0x1e725c…1e73f0 Dummy {f00=0x0095, f01=0x0190, f02=» * P RF(Z) CLAV20 SWITCHED VIRTUAL CIRCUIT P XIF 2 P IFF PERMVC=0 > P LDK A3,RSET.RC RETURN CODE T & P LDK A1,RSET.P PACKET TYPE = RESET x PCLAV20 EQU * P XIF $ P SC A1,IDENT,A2 SAVE PACKET TYPE $ P LD A1,SAVE GET INPUT PARAMETE
0x1e73f0…1e7584 Dummy {f00=0x0095, f01=0x0190, f02=»N INPUT QUEUE v PCLAV30 EQU * " P SUK A4,1 NEXT ENTRY IN LC:TAB * P RB(NN) CLAV00 . P P* h P* READY r P* 8 P LDR A13,A7 RELOAD SAVED A13 P CF A14,RELOA8 P RTN A14 BACK TO CALLER
0x1e7584…1e7718 Dummy {f00=0x0095, f01=0x0190, f02=»** f P* P* INPUT PARAMETERS: P* A1 = RESTART ADDRESS 0 . P* A12 = LINE BLOCK ADDRESS P P* A13 = LC-ADM ADDRESS P* P* CALLING SEQUENCE: P* ABL BUFWAT P* P* OUTPUT PARAMETERS: 4 P*
0x1e7718…1e78ac Dummy {f00=0x0095, f01=0x0190, f02=»BUFWAT EQU * P LDR A2,A13 SAVE REGISTERS P LDR A3,A12 . 6 P INH . =1 L & P CF A15,GETBLK GET A MONITOR BLOCK ^ * P LDR A1,A4 BLOCK ADDRESS AS PARAMETER P CF A15,SETIME SET TIMER $ P DATA BUFW00 ACTIVATION ADDRESS P DATA BUFD
0x1e78ac…1e7a40 Dummy {f00=0x0095, f01=0x018e, f02=» PBUFW00 EQU * ( P LDR A4,A1 GET MONITOR BLOCK ADDRESS P INH . =1 H P CF A15,FREBLK RELEASE BLOCK Z P ENB ~ " P LDR A12,A3 RESTORE REGISTERS P LDR A13,A2 . < P LDKL A14,DCSTAK A14:=CF STACK POINTER P A
0x1e7a40…1e7bd4 (1, 461) Dummy {f00=0x0095, f01=0x0190, f02=» 0 P******************************************** P* 8 P* INPUT PARAMETERS: B P* A13 = LC-ADM ADDRESS ^ ( P* A14 = CALL FUNCTION STACK POINTER ~ P* P* CALLING SEQUENCE: P* CF A14,TRTHR P* P* OUTPUT PARAMETERS:
0x1e7bd4…1e7d68 Dummy {f00=0x0095, f01=0x0190, f02=» REGISTER P LDK A1,0 . P LC A1,LCREWN,A13 RECEIVE WINDOW SIZE = W $ P SUK A1,1 V P LDK A4,0 h PTRTHR1 EQU * P AD A4,THRESH P SUK A1,1 GET P*W P RB(NN) TRTHR1 P LDKL A1,-1 PTRTHR2 EQU * P
0x1e7d68…1e7efc Dummy {f00=0x0095, f01=0x0190, f02=»TORE REGISTER P RTN A14 P EJECT & P IFF SWITVC=0 4 P* J P* T 8 P* CALCULATION OF THE WINDOW SIZES AND PACKET LENGTH ^ P* 0 P******************************************** P* P* INPUT PARAMETERS: P* A2 = B
0x1e7efc…1e8090 Dummy {f00=0x0095, f01=0x0190, f02=» P* CALLING SEQUENCE: P* CF A14,GTWNDS $ P* @ P* OUTPUT PARAMETERS: J & P* REGISTERS A1 AND A3 ARE CHANGED f P* PGTWNDS EQU * P ST A2,SAVE+6 SAVE REGISTER . P LD A1,WNDSIZ,A12 PRESET ON MAXIMUM VALUES P SC
0x1e8090…1e8224 Dummy {f00=0x0095, f01=0x0190, f02=» ADK A2,BEGDAT POINTER P LCR A1,A2 GET LENGTH VALUE " P ANK A1,/F0 LENGTH CALLING DTE B P SRL A1,4 . h P LCR A3,A2 LENGTH CALLED DTE | P ANK A3,/0F P ADR A1,A3 ADD BOTH LENGTH P* P EJECT P* P ADK A1,1 ROUNDE
0x1e8224…1e83b8 Dummy {f00=0x0095, f01=0x0190, f02=»ITY SPECIFIED ? P ANK A1,/3F P RF(Z) GTWND6 NO , & P ADK A2,1 POINTS TO FIRST FACILITY D PGTWND1 EQU * n P LCR A3,A2 GET FACILITY CODE P CWK A3,/02 FLOW CONTROL ? P RF(E) GTWND2 YES P ADK A2,2 TRY NEXT ONE P SUK A1,
0x1e83b8…1e854c Dummy {f00=0x0095, f01=0x018e, f02=»IFIED f P* PGTWND2 EQU * P* , P* GET TRANSMITTER DATA 6 P* T * P ADK A2,1 POINTS TO FACILITY PARAMETER ^ P LCR A3,A2 GET PARAMETER & P ANK A3,/0F TRANSMITTER PARAMETERS " P SLL A3,1 PREPARE FOR INDEXING P RF(Z) GTWND
0x1e854c…1e86e0 Dummy {f00=0x0095, f01=0x0190, f02=» 4 P SC A3,TRBFSZ+1,A13 SAVE TRANSMITTER BUFFER SIZE P* < P EJECT F P* T PGTWND3 EQU * ^ P ECR A3,A3 r . P CC A3,LCTRWN,A13 WINDOW SIZE TOO LARGE ? P RF(NL) GTWND4 YES & P SC A3,LCTRWN,A13 SAVE WINDOW SIZE P* P* GE
0x1e86e0…1e8874 (1, 462) Dummy {f00=0x0096, f01=0x0190, f02=»3,3 PREPARE FOR INDEXING P RF(Z) GTWND6 NOT SPECIFIED P LD A3,CLAS1-2,A3 GET VALUES D 0 P CC A3,REBFSZ+1,A13 PACKET SIZE TOO LARGE ? h P RF(NL) GTWND5 YES 2 P SC A3,REBFSZ+1,A13 SAVE RECEIVER BUFFER SIZE PGTWND5 EQU * P ECR A3,
0x1e8874…1e8a08 Dummy {f00=0x0096, f01=0x0190, f02=»QU * " P LD A2,SAVE+6 RELOAD SAVED A2 P RTN A14 2 P EJECT B P XIF P P* P* f : P* COMPLETE AN OUTPUT EVENT, DUE TO AN ERROR SITUATION p P* 0 P******************************************** P* P* INPUT PARAMETERS
0x1e8a08…1e8b9c Dummy {f00=0x0096, f01=0x0190, f02=»QUENCE: P* CF A14,CMEVNT P* , P* OUTPUT PARAMETERS: 6 P* A1 ,A2 AND A6 ARE CHANGED R P* v PCMEVNT EQU * $ P LDR A1,A13 QUEUE ANCHOR ADDRESS P ADK A1,QUEOUT . " P LDK A2,NPRFLG SET MASK VALUE P C1R A2,A2 .
0x1e8b9c…1e8d30 Dummy {f00=0x0096, f01=0x0190, f02=» CW A1,DWTCHP,A2 IS IT A DWT ? P RF(NE) CMEV10 NO & P LDR A6,A2 A6 = DWT-ADDRESS @ $ P CF A14,CMPREQ COMPLETE REQUEST d P RB CMEVNT P* P EJECT P* $ P* THE ELEMENT IS A SYSTEM BUFFER P* PCMEV10 EQU * " P C
0x1e8d30…1e8ec4 Dummy {f00=0x0096, f01=0x0190, f02=»THIS MODULE PERFORMS SOME TESTS ON A RECIEIVED P* DATA-, RR- OR RNR PACKET. 6 P* Z 0 P******************************************** d P* P* INPUT PARAMETERS: P* A2 = BUFFER ADDRESS P* A13 = LC-ADM ADDRESS ( P* A14 = C
0x1e8ec4…1e9058 Dummy {f00=0x0096, f01=0x0190, f02=»* A1 = 0 NO ERRORS FOUND P* 1 P(R) ERROR FOUND " B P* WHEN A PROCEDURE ERROR IS DETECTED, THE VC WILL BE CLEARED D 8 P* OR RESET AND THE MODULE RETURNS TO THE SCHEDULER. P* PTDARR EQU * 2 P LDK A1,DATA.ST IS LC-STATUS = DATA
0x1e9058…1e91ec Dummy {f00=0x0096, f01=0x0190, f02=»T, ELSE X P* PROCEDURE ERROR P* * * P LDK A1,CLEA.ST IS LC-STATUS = CLEAR ? 4 P CC A1,LCSTAT,A13 . b P RF(NE) TDA00 YES ~ P CF A14,RLBUF IGNORE PACKET * P ABL EXITDC CONTROL BACK TO SCHEDULER P* P EJECT P*
0x1e91ec…1e9380 Dummy {f00=0x0096, f01=0x0190, f02=»IAG. CODE = PROCEDURE ERROR . P ABL CLVC CLEAR VC AND RETURN TO SCHEDULER $ P* V @ P* STATE = DATA TRANSFER, IF SUB-STATE = RESET: IGNORE PACKET ` P* PTDA10 EQU * ( P LDK A1,RSET.ST IS LC-STATUS = RESET P CC A1,LCSBST,A13 .
0x1e9380…1e9514 (1, 463) Dummy {f00=0x0096, f01=0x0190, f02=»CEIVED P(R) IS IN WINDOW: SLWE <= P(R) <= PS " P* OR P(R) - SLWE <= PS - SLWE 4 P* Z PTDA20 EQU * d & P LC A1,IDENT,A2 GET RECEIVED P(R) x P SRL A1,5 . P ANK A1,/07 . ( P LC A4,SLWE,A13 SEND LWE = OLD P(R) P ANK A4,/FF .
0x1e9514…1e96a8 Dummy {f00=0x0096, f01=0x0190, f02=» A1,A4 . P ANK A1,/07 MODULO 8 P CWR* A1,A14 >= , P RF(NL) TDA30 YES D P EJECT ^ P* l . P* P(R) IS NOT IN WINDOW, RETURN CODE := 1 v P* P LDK A1,1 SET RETURN CODE P RF TDA40 P* P* PACKET CORRECT P
0x1e96a8…1e983c Dummy {f00=0x0096, f01=0x0190, f02=»CALCULATE QUEUE ANCHOR ADDRESS AND QUEUE ELEMENT P* 8 0 P******************************************** B P* v P* INPUT PARAMETERS: P* A2 = ELEMENT ADDRESS P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P
0x1e983c…1e99d0 Dummy {f00=0x0096, f01=0x0190, f02=»ED P* PQUEI EQU * P LDK A1,QUEINP & P RF QUEO00 < P* N PQUEO EQU * X P LDK A1,QUEOUT j PQUEO00 EQU * ( P ADR A1,A13 GET QUEUE ANCHOR ADDRESS P CF A14,QUEUE QUEUE ELEMENT P RTN A14 P EJECT P*
0x1e99d0…1e9b64 Dummy {f00=0x0096, f01=0x018e, f02=» | " P* A1 = ADDRESS QUEUE ANCHOR P* A2 = ELEMENT ADDRESS . ( P* A14 = CALL FUNCTION STACK POINTER N P* z P* CALLING SEQUENCE: P* CF A14,QUEUE P* P* OUTPUT PARAMETERS: P* NO REGISTERS ARE CHANGED P*
0x1e9b64…1e9cf8 Dummy {f00=0x0096, f01=0x018e, f02=» P XIF P IFT CPU852=0 & P MS 3,QUESAV-4 SAVE REGISTERSA1-A3 & P XIF P P LDR* A3,A1 P ANKL A3,/FFFE QUEUE FILLED? p P RF(Z) QUE10 NO P* P EJECT P* PQUE05 EQU * P LDR A1,A3 GET NEXT ELEMENT " P L
0x1e9cf8…1e9e8c Dummy {f00=0x0096, f01=0x018e, f02=» ( P ORRS A2,A1 STORE ELEMENT IN ANCHOR PQUE15 EQU * 4 * P CM BFCHPT,A2 SET ZERO IN CHAINPOINTER H P IFT CPU852=1 v * P LD A1,QUESAV RESTORE REGISTERS A1-A3 P LD A2,QUESAV-2 P LD A3,QUESAV-4 P XIF P IFT CPU852=0
0x1e9e8c…1ea020 Dummy {f00=0x0096, f01=0x0190, f02=» x P* 0 P******************************************** P* F P* INPUT PARAMETERS: P " P* A1 = ADDRESS QUEUE ANCHOR l P* A2 = ELEMENT ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* P* CALLING SEQUENCE: P* C
0x1ea020…1ea1b4 (1, 464) Dummy {f00=0x0096, f01=0x0190, f02=»UESAV SAVE REGISTERS A3,A4 P ST A4,QUESAV-2 " P CM BFCHPT,A2 : . P LDR* A4,A1 GET ADDRESS FROM QUEUE ANCHOR ^ P ANK A4,/01 SAVE BIT 15 P LDKL A3,/FFFE & P ANRS A3,A1 CLEAR BIT 15 OF ANCHOR * P LDR* A3,A1 ADDRESS FROM
0x1ea1b4…1ea348 Dummy {f00=0x0096, f01=0x018e, f02=»RE NEW ELEMENT IN ANCHOR * P ORRS A4,A1 STORE OLD BIT 15 IN ANCHOR * P LD A3,QUESAV RESTORE REGISTERS A3,A4 N P LD A4,QUESAV-2 | P RTN A14 P EJECT P* P* P* DEQUEUE ROUTINE P* 0 P******************************
0x1ea348…1ea4dc Dummy {f00=0x0096, f01=0x0190, f02=» j P* P* CALLING SEQUENCE: P* CF A14,DEQUE . P* H P* OUTPUT PARAMETERS: R P* A2 = ELEMENT ADDRESS n P* NO REGISTERS ARE CHANGED P* PDEQUE EQU * " P ST A3,QUESAV SAVE REGISTER A3 ( P LDR* A2,A1 GET EL
0x1ea4dc…1ea670 Dummy {f00=0x0096, f01=0x0190, f02=»NPOINTER v P LDR A3,A2 P ANK A3,1 . " , P XRR A2,A3 RESET BIT 15 IN ELEMENT ADDR. 6 & P LD A3,QUESAV RESTORE REGISTER A3 f P RTN A14 P EJECT P* P* P* START TIMER ROUTINE P* 0 P******************************
0x1ea670…1ea804 Dummy {f00=0x0096, f01=0x0190, f02=» 1TH PARAMETER P* A13 = 2ND PARAMETER ( P* A14 = CALL FUNCTION STACK POINTER 4 P* ` P* CALLING SEQUENCE: j P* CF A14,STRTIM P* P* OUTPUT PARAMETERS: P* A4 = ADDRESS TIMER & P* NO OTHER REGISTERS ARE CHANGED
0x1ea804…1ea998 Dummy {f00=0x0096, f01=0x0190, f02=» P XIF P IFT CPU852=0 " P MS 3,TIMSAV-4 SAVE REGISTERS * P XIF P P ST A8,STRPAR+2 SET TIME P LDR A1,A13 LC-ADM ADDRESS | P LDR A2,A4 DISPATCH ADDRESS P LDR A3,A12 1TH PARAMETER P* P EJECT P* P I
0x1ea998…1eab2c Dummy {f00=0x0096, f01=0x0190, f02=»CT TIMER ENTRY AFTER TIME OUT " P DATA 0 TIMER VALUE IN 0,1 SEC & P ENB L P IFT CPU852=1 X $ P LD A1,TIMSAV RESTORE REGISTERS n P LD A2,TIMSAV-2 P LD A3,TIMSAV-4 P XIF P IFT CPU852=0 $ P ML 3,TIMSAV-4 RESTORE REGISTERS
0x1eab2c…1eacc0 Dummy {f00=0x0096, f01=0x018e, f02=»DDRESS z $ P LD A2,2,A1 GET DISPATCH ADDRESS P LDK A3,0 6 P CF A15,ACTOT ACTIVATE TASK H P ABL TDISP l P EJECT ~ P* P* P* CANCEL TIMER ROUTINE P* 0 P******************************************** P* P*
0x1eacc0…1eae54 (1, 465) Dummy {f00=0x0096, f01=0x0190, f02=» P* CF A14,CANTIM P* P* OUTPUT PARAMETERS: * P* A1 = REMAINING TIME F & P* NO OTHER REGISTERS ARE CHANGED d P* PCANTIM EQU * P ST A2,TIMSAV SAVE REGISTERS P ST A3,TIMSAV-2 P ST A4,TIMSAV-4 " P LDR A2,
0x1eae54…1eafe8 Dummy {f00=0x0096, f01=0x0190, f02=»TEN TIMER = 0 " P C1R A1,A1 GET REMAINING TIME 8 P CMR A2 SET TIMER VALUE 0 < $ P LD A3,-2,A2 ADDRESS TIMOUTBLOCK x ( P LD A4,4,A3 ADDRESS ACTIVATIONBLOCK P ST A1,4,A4 SAVE A1 P INH . =1 * P CF A15,FREBLK
0x1eafe8…1eb17c Dummy {f00=0x0096, f01=0x0190, f02=»S r P LD A3,TIMSAV-2 P LD A4,TIMSAV-4 " P RTN A14 : P* J P RES 3 SAVE AREA T PTIMSAV EQU *-2 l PQUESAV EQU *-2 P EJECT P* P* 4 P* MODULE TO CONTROL THE PROCESSES IN THE DC-TASK P* 0 P****
0x1eb17c…1eb310 Dummy {f00=0x0096, f01=0x018e, f02=» P* ABL EXITDC P* P* OUTPUT PARAMETERS: & ( P* AT ENTRY OF AN ACTIVATED PROCESS: B " P* A1 = QUEUE ANCHOR ADDRESS n P* A12 = LINE BLOCK ADDRESS P* A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P*
0x1eb310…1eb4a4 Dummy {f00=0x0096, f01=0x0190, f02=» P* ( P LD A4,SCHEDC LOGICAL CHANNEL INDEX P LD A7,SCHEDL LINE INDEX : & P LDKL A14,DCSTAK SET STACK POINTER Z " P LDKL A10,-2 SCAN LOOP-COUNTER P* P EJECT P* PEXIT00 EQU * , P LDKL A12,LINTAB GET LINE BLOCK ADDRESS
0x1eb4a4…1eb638 Dummy {f00=0x0096, f01=0x0190, f02=»ONNECTED P* $ P LD A13,CMNFLG,A12 6 P RF(Z) EXIT04 NO! CONTINUE WITH NEXT LINE (IF ANY) B P* | ( P* TEST IF ONLY STATISTIC FLAG IS SET P* P SUKL A13,STATFL P RF(Z) EXIT04 YES ( P ADK A4,1 TAKE NEXT LOGICA
0x1eb638…1eb7cc Dummy {f00=0x0096, f01=0x0190, f02=» LG.CH. OF NEXT LINE v P IFF SYNRLN=1 P ADK A7,1 UPDATE LINE INDEX 2 * P CWK A7,SYNRLN IS THERE A NEXT LINE ? V . P RF(L) EXIT30 YES * P LDK A7,0 START AGAIN WITH FIRST LINE P XIF P ADKL A10,1 " P RF(
0x1eb7cc…1eb960 Dummy {f00=0x0096, f01=0x0190, f02=» CF A14,GTLCAD GET LC-ADM ADDRESS . P LDKL A8,OUTPCK PRESET ACTIVATION ADDRESS * ( P LDKL A9,1 PRESET PROCESS INDICATION 2 P LD A3,NRPNDT,A12 CHECK NR. OF OUTPUT REQUESTS P CWK A3,SYNRTR . ( P RF(NL) EXIT20 MAXIMUM, SO NO OUTPUT * P LDR A
0x1eb960…1ebaf4 (1, 466) Dummy {f00=0x0097, f01=0x0190, f02=»OUTPUT QUEUE ~ P ADK A1,QUEOUT . P LDR* A2,A1 . , P RF(Z) EXIT20 QUEUE IS EMPTY B P TM A2,A6 f 0 P RF(Z) EXIT20 ONLY NO PROCESSING FLAG IS SET x & P TM A2,A5 TEST IF QUEUE IS BLOCKED , P RF(Z) EXIT40 NO, SO PROCESS THIS QUEUE PEX
0x1ebaf4…1ebc88 Dummy {f00=0x0097, f01=0x0190, f02=»EUE v P ADK A1,QUEINP . P LDR* A2,A1 . $ P RF(Z) EXIT30 QUEUE IS EMPTY : P TM A2,A6 ^ 0 P RF(Z) EXIT30 ONLY NO PROCESSING FLAG IS SET p & P TM A2,A5 TEST IF QUEUE IS BLOCKED , P RF(Z) EXIT40 NO, SO PROCESS THIS QUEUE P* P
0x1ebc88…1ebe1c Dummy {f00=0x0097, f01=0x018e, f02=»IT00 CONTINUE WITH SCANNING P CW A7,SCHEDL $ * P RB(NE) EXIT00 CONTINUE WITH SCANNING H & P CM DCLEVL SET PROCESS INDICATION v PEXIT32 EQU * P LKM EXIT DC-TASK P DATA 3 P* B P* A NOT EMPTY QUEUE IS F
0x1ebe1c…1ebfb0 Dummy {f00=0x0097, f01=0x0190, f02=» PEXIT40 EQU * & P ST A4,SCHEDC SAVE SCAN PARAMETERS P ST A7,SCHEDL . B ( P ST A9,DCLEVL SET PROCESS INDICATION Z " P ABR A8 BRANCH TO THE ROUTINE P* B PSCHEDC DATA 0 LOGICAL CHANNEL INDEX PSCHEDL DATA
0x1ebfb0…1ec144 Dummy {f00=0x0097, f01=0x0190, f02=»**************** t P* P* INPUT PARAMETERS: " P* A13 = LC-ADM ADDRESS > ( P* A14 = CALL FUNCTION STACK POINTER ^ P* P* CALLING SEQUENCE: P* CF A14,RSETVC P* P* OUTPUT PARAMETERS: P* NONE P*
0x1ec144…1ec2d8 Dummy {f00=0x0097, f01=0x0190, f02=» P* P CF A14,CLINPQ P* 2 & P* COMPLETE EVENTS IN OUTPUT QUEUE < P* f 6 P LD A1,LCDWT,A13 IS THERE A RELATION WITH AN USER p P RF(Z) RSET20 NO P LDKL A3,RSET.RC RETURN CODE P CF A14,CMEVNT PRSET20 EQU *
0x1ec2d8…1ec46c Dummy {f00=0x0097, f01=0x0190, f02=»UE p P* 8 P**************************************************** P* P P* INPUT PARAMETERS: Z P* A13 = LC-ADM ADDRESS v P* A14 = CF STACK POINTER P* P* OUTPUT PARAMETERS: P* NONE P* PCLINPQ EQU
0x1ec46c…1ec600 Dummy {f00=0x0097, f01=0x018e, f02=»NRS A2,A1 IS QUEUE EMPTY ? * P RF(Z) CLINP1 YES " ( P CF A14,DEQUE GET ELEMENT FROM QUEUE P P CF A14,RLBUF RELEASE BUFFER | P RB CLINPQ P* PCLINP1 EQU * P RTN A14 P EJE
0x1ec600…1ec794 (1, 467) Dummy {f00=0x0097, f01=0x0190, f02=» P* INPUT PARAMETERS: P* A13 = LC-ADM FIELDS $ ( P* A14 = CALL FUNCTION STACK POINTER B P* n P* CALLING SEQUENCE: x P* CF A14,CLLCAD P* P* OUTPUT PARAMETERS: P* NONE P* A1 IS CHANGED P* P
0x1ec794…1ec928 Dummy {f00=0x0097, f01=0x018e, f02=»S,A13 . P SC A1,PR,A13 . P SC A1,RPS,A13 . ( P SC A1,SLWE,A13 . @ " P SC A1,RLWE,A13 Z P SC A1,NRNUBF,A13 P RTN A14 P EJECT P* P* 8 P* THIS ROUTINE CALCULATES FROM THE FILE CODE OF THE & P
0x1ec928…1ecabc Dummy {f00=0x0097, f01=0x0190, f02=» z P* A8 = LINE ECB ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER * P* V P* CALLING SEQUENCE: ` P* CF A14,GTLBA | P* P* OUTPUT PARAMETERS: P* A12 = LINE BLOCK ADDRESS P* PGTLBA EQU * P IFT SYNRL
0x1ecabc…1ecc50 Dummy {f00=0x0097, f01=0x0190, f02=»B TABLE WITH LINE BLOCK ADDRESS PGTLB00 EQU * ( $ P LDR* A12,A1 LINE BLOCK ADDRESS < & P LD A2,FILCOD,A12 CHECK FILE CODE d P CC A2,ECBFC,A8 . P RF(E) GTLB10 CORRECT ONE P ADK A1,2 " P RB GTLB00 TRY NEXT LINE BLOCK P*
0x1ecc50…1ecde4 Dummy {f00=0x0097, f01=0x018e, f02=»UTINE TO GET LC-ADM ADDRESS P* $ 0 P******************************************** . P* b P* INPUT PARAMETERS: l $ P* A4 = LOGICAL CHANNEL NUMBER P* A12 = LINE BLOCK ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P*
0x1ecde4…1ecf78 Dummy {f00=0x0097, f01=0x0190, f02=» PGTLCAD EQU * $ P LDR A13,A4 PREPARE FOR INDEXING P ADR A13,A13 . @ & P AD A13,LC:TAB,A12 LC-ADM ADDRESS V $ P LDR* A13,A13 GET LC-ADM ADDRESS P RTN A14 P EJECT P* P* . P* MODULE TO ACTIVATE A CONFIRMATION TIMER
0x1ecf78…1ed10c Dummy {f00=0x0097, f01=0x0190, f02=» A13 = LC-ADM ADDRESS ( P* A14 = CALL FUNCTION STACK POINTER P* J P* CALLING SEQUENCE: T P* CF A14,STTIM p P* P* OUTPUT PARAMETERS: ( P* A1 AND A4 CHANGED P* PSTTIM EQU * $ P LDKL A4,TIMOU
0x1ed10c…1ed2a0 Dummy {f00=0x0097, f01=0x0190, f02=» FLAG p P ORS A1,FLAGS,A13 . P RTN A14 * P EJECT : P* H P* R P* P* GET BUFFER ROUTINE f P* 8 P**************************************************** P* P* INPUT PARAMETERS: P* A14 = CF STACK POINTER
0x1ed2a0…1ed434 (1, 468) Dummy {f00=0x0097, f01=0x0190, f02=»EQU * P STR A1,A14 SAVE A1 & P LD A2,BUFANC BUFFER CHAIN ANCHOR * & P RF(Z) GTBU10 NO BUFFER AVAILABLE T & P LDR* A1,A2 GET BUFFER FROM CHAIN ~ P ST A1,BUFANC . P ADK A2,2 START OF BUFFER P LDR* A1,A14 RELOAD A1 P RTN A14
0x1ed434…1ed5c8 Dummy {f00=0x0097, f01=0x018e, f02=»*************************************************** P* < P* INPUT PARAMETERS: F P* A2 = BUFFER ADDRESS b P* A14 = CF STACK POINTER P* P* OUTPUT PARAMETERS: P* NONE P* PRLBUF EQU * P STR A1,A14 SAVE
0x1ed5c8…1ed75c Dummy {f00=0x0097, f01=0x404c, f02=» P LDR* A1,A14 RELOAD A1 P RTN A14 " P* 2 P END <@ HT PARAMETERS: F P* A2 = BUFFER ADDRESS b P* A14 = CF STACK POINTER P* P* OUTPUT PARAMETERS: P* NONE P* PRLBUF EQU * P STR A1,A14 SAVE
0x1ed75c…1ed8f0 Dummy {f00=0x0097, f01=0x2008, f02=» A14 LD A4,-6,A14 XIF * IFT CPU852=NO 6 ML 4,-6,A14 L XIF ` *# RETURN l RTN A14 END @ ELSE3 EQU * *# END-IF END.IF3 EQU * *# SET BUFFER STATE = FREE LDK
0x1ed8f0…1eda84 Dummy {f00=0x0097, f01=0x0190, f02=» P PERF DEVIDX P MOVE WB2,CWROW P MOVE CCROW,WB2 0 " P CBE CCPDEV,=C'GTP',PRT10 GTP H P n P EDWRT LP,FDEVTB(INDEX) LP v P B PRT20 P PPRT10 $ P EDWRT SPDSPRT,FDEVTB(INDEX) GTP PPRT20 P RET P PEND
0x1eda84…1edc18 Dummy {f00=0x0097, f01=0x0190, f02=»MT9,FRMT9,FRMT8,FRMT8, C ( P FRMT4,FRMT3,FRMT1,FRMT1,FRMT1, C " ( P FRMT3,FRMT8,FRMT1,FRMT4,FRMT2, C N ( P FRMT3,FRMT4,FRMT1,FRMT1,FRMT3, C z $ P FRMT4,FRMT3,FRMT1,FRMT3,FRMT1 P EJECT PFRMT1 FRMT P FLINK F1 P FBT CBP
0x1edc18…1eddac Dummy {f00=0x0097, f01=0x0190, f02=»JECT PFRMT2 FRMT P FLINK F1 P FLINK FBUF 0 P FLINK FCW D P FBT CBPRT,FRM210 V P FNL 6 p P FLINK FSELCT ~ P FB FRM220 PFRM210 P FLINK FFNL4 PFRM220 P FMEND P EJECT PFRMT3 FRMT P FLI
0x1eddac…1edf40 Dummy {f00=0x0097, f01=0x0190, f02=»L4 PFRM320 P FMEND P EJECT & PFRMT4 FRMT 4 P FLINK F1 F P FLINK FCWD X P FBT CBPRT,FRM410 l P FNL 6 P FLINK FSELCT P FB FRM420 PFRM410 P FLINK FFNL4 PFRM420 P FMEND P EJECT P
0x1edf40…1ee0d4 (1, 469) Opaque[0x194]
0x1ee0d4…1ee268 # DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ba8, f03=0x0000}
0x1ee0d4…1ee268 IdxSect {
0x1ee0d4…1ee268 f00 = 0x005d // 0x1ee0d4 @0x0
0x1ee0d4…1ee268 f01 = 0x0020 // 0x1ee0d6 @0x2
0x1ee0d4…1ee268 gno = [ // 0x1ee0d8 @0x4
0x1ee0d4…1ee268 [0x00]: C0x005d.0x1.0
0x1ee0d4…1ee268 [0x01]: C0x005e.0x0.0
0x1ee0d4…1ee268 [0x02]: C0x005e.0x2.0
0x1ee0d4…1ee268 [0x03]: C0x005e.0x3.0
0x1ee0d4…1ee268 [0x04]: C0x005f.0x0.0
0x1ee0d4…1ee268 [0x05]: C0x005f.0x1.0
0x1ee0d4…1ee268 [0x06]: C0x005f.0x2.0
0x1ee0d4…1ee268 [0x07]: C0x005f.0x3.0
0x1ee0d4…1ee268 [0x08]: C0x0060.0x0.0
0x1ee0d4…1ee268 [0x09]: C0x0060.0x1.0
0x1ee0d4…1ee268 [0x0a]: C0x0060.0x2.0
0x1ee0d4…1ee268 [0x0b]: C0x0060.0x3.0
0x1ee0d4…1ee268 [0x0c]: C0x0097.0x3.0
0x1ee0d4…1ee268 [0x0d]: C0x0098.0x0.0
0x1ee0d4…1ee268 [0x0e]: C0x0098.0x1.0
0x1ee0d4…1ee268 [0x0f]: C0x0098.0x2.0
0x1ee0d4…1ee268 ]
0x1ee0d4…1ee268 }
0x1ee268…1ee3fc Dummy {f00=0x005d, f01=0x0190, f02=» 2 P IDENT DRDY02 REL 11.0 81-09-30 870105041100 P : 6 P =9 ERR. FOR 6342/51 AND EMPTY BLOCK IN ORD. /05 B : P CHAR. CHECK AT FAST OUTPUT. ULINE&LOWINT ON 6387 | P REL 11.0 81-09-17 2 P = 8 ERROR FOR 6342 & 6351 IN ORDER 0B & 31
0x1ee3fc…1ee590 Dummy {f00=0x005d, f01=0x0190, f02=»G BLANKS" REMOVED FROM BASIC WRITE r P REL 11.0 81-06-24 * . P = 5 SUPPRESSION OF TABULATION CORRECTED F P REL 11.0 81-05-24 x 8 P = 4 GREEK CHARACTER SET HANDLING & NEW CONDITIONS P REL 11.0 81-04-06 8 P = 3 ASS. ERROR IF FAST0=1
0x1ee590…1ee724 Dummy {f00=0x005d, f01=0x0190, f02=» | 0 P = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE P REL 11.0 81-02-03 < P* X @ P************************************************************ b P* P* P* & P* PHILIPS TERMINAL SYSTEM P T S & P* DRDY02 = DRIVER VIDEO
0x1ee724…1ee8b8 Dummy {f00=0x005d, f01=0x0190, f02=»VER HANDLES OUTPUT TO THE VIDEO 0 P* DISPLAYS PTS 6342, 6344, 6346 AND TO THE ( * P* DISPLAYS PTS 6351, 6385 AND 6386. 2 P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO- 0 P* FUNCTIONS WHICH MAKES IT POSSIBLE TO USE 2 P* THE DISPLAY AS A
0x1ee8b8…1eea4c Dummy {f00=0x005d, f01=0x0190, f02=»R 00 TEST STATUS P* 05 BASIC WRITE " P* 06 STANDARD WRITE @ ( P* 0B SET CURSOR AND WRITE f P* 31 ERASE P* P* P* NORMAL REGISTER USAGE : P* $ P* REGISTER A1 = R
0x1eea4c…1eebe0 Dummy {f00=0x005d, f01=0x0190, f02=»EGISTER r $ P* A5 = STACK BASE $ P* A6 = DWT-ADDRESS 8 P* A7 = ORDER ` $ P* A8 = ECB-ADDRESS P* P* P* ENTRIES P* P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOC
0x1eebe0…1eed74 (1, 470) Dummy {f00=0x005e, f01=0x0190, f02=»ROR t " P EXTRN LENDIS END I/O-REQUEST P EXTRN STABLK START OF BLOCK 2 P EXTRN OUTPUT SEND V P EXTRN ENDBLK END OF BLOCK p 2 P EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER $ P EXTRN ECHRTN RETURN TO KEYBOARD P EXTRN TENDIO END OF I/O
0x1eed74…1eef08 Dummy {f00=0x005e, f01=0x018e, f02=» EXTRN DWTOR ORDER P EXTRN DWTSB2 STACK BASE P* : P* ECB DISPLACEMENTS D P* b P EXTRN ECBBA BUFFER ADDRESS l " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBRC RETURN CODE P EXTRN ECBCW
0x1eef08…1ef09c Dummy {f00=0x005e, f01=0x0190, f02=» @ P************************************************************ P* L P* DWT DISPLACEMENTS V P* t & PDWTAP EQU /2 HEAD POSITION POINTER ~ " PDWTBC EQU /1 POSITION COUNTER PDWTLIN EQU /4 LINES PDWTPOS EQU /5 POSITIONS &
0x1ef09c…1ef230 Dummy {f00=0x005e, f01=0x0190, f02=» NON-DESTRUCTIVE BACKSPACE PLF EQU /0A LINE FEED " PHOME EQU /0B CURSOR HOME > ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME ^ PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTOP EQU /13 U
0x1ef230…1ef3c4 Dummy {f00=0x005e, f01=0x0190, f02=»OP EQU /1F LOW INTENSITY STOP PSPACE EQU /20 SPACE & P* B P* RETURN CODES L P* d " PCCERR EQU /4 CODE CHECK ERROR n P* P* OTHER P* PMINBLK EQU 6 BLOCK SIZE @ PFASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WIT
0x1ef3c4…1ef558 Dummy {f00=0x005e, f01=0x0190, f02=»* @ P************************************************************ P DATA DVBLEN BUFFER LENGTH N P DATA 2 DEVICE INDEX p PDYAD EQU * ( P DATA ACDY DRIVER ACTIVATION ADDRESS P DATA ABDY ABORT ROUTINE P DATA 0 NO INTERRUPT HANDLER
0x1ef558…1ef6ec Dummy {f00=0x005e, f01=0x018e, f02=»********** ^ P* P* CONDITIONAL ASSEMBLY P* < @ P************************************************************ F P* 4 P* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT < P* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR")
0x1ef6ec…1ef880 Dummy {f00=0x005e, f01=0x0190, f02=» P* P* H P* BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344 P* 6346, 6385 AND 6386. d P* PX:B EQU 0 PWHATDY EQU X:B P* P* 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR & P*
0x1ef880…1efa14 (1, 471) Dummy {f00=0x005e, f01=0x0190, f02=»Y IT IS POSSIBLE l 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 T P* PX:D EQU 0 PEORECH EQU X:D P* 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS T P* POSS
0x1efa14…1efba8 Dummy {f00=0x005e, f01=0x0190, f02=» 2 P* BY SETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKING. : P* Z PX:F EQU 1 d PSTEADY EQU X:F v P* 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- . P* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT , P* CHAR
0x1efba8…1efd3c Dummy {f00=0x005e, f01=0x0190, f02=»E P* 4 I/CH P* 5 S/SF P* 6 DK/N * P* 7 P : P* 8 YU H P* 9 US V PX:G EQU 0 d PCOUNTRY EQU X:G v P* & P* MEMORY MANAGEMENT BUFFER SIZE P* PX:H EQU 82 PDVBLEN EQU X:H P* P* MAXIMU
0x1efd3c…1efed0 Dummy {f00=0x005e, f01=0x0190, f02=»UDED IN SYSTEM =4 Z P* PX:I EQU 0 $ PPLASM EQU X:I 6 P* L 2 P* IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4 V P* CHARACTER SET =4 P* PX:K EQU 0 =4 PGREECE EQU X:K =4 P* 4 P* IF DISPLAY VD 87 IS US
0x1efed0…1f0064 Dummy {f00=0x005e, f01=0x0190, f02=»***************************** x P* & & P* A C T I V A T I O N P A R T 0 P* Z 4 P* THIS PART MAKES A START OF BLOCK, CHECKS THE d 8 P* REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE P* PART OF THE DRIVER. P* < P******
0x1f0064…1f01f8 Dummy {f00=0x005e, f01=0x0190, f02=»DEV,A6 CLEAR CHARACTER COUNTER $ P LDKL A2,MAXBLK MAX. BLOCK SIZE & P CF A5,STABLK START OF BLOCK N P RF(NZ) DYER10 r P* P* TEST ORDER P* P LDR A7,A7 GET ORDER & P RF(Z) DY100 ORDER 00, TEST STATUS P* P SUK A
0x1f01f8…1f038c Dummy {f00=0x005e, f01=0x0190, f02=» SUK A7,/5 0 P ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE P* F P SUK A7,/26 P " P ABL(Z) DY700 ORDER 31, ERASE d P IFT VD87=1 =7 P ADK A7,/A 0 P ABL(Z) ORD27 ORDER /27, TRANSFER PARAMETERS P XIF P* P* I/O-RE
0x1f038c…1f0520 Dummy {f00=0x005e, f01=0x0190, f02=»CT P* @ P************************************************************ P* X P* ORDER 00, TEST STATUS. b 8 P* THIS PART SENDS A DUMMY CHARACTER TO THE DISPLAY : P* AND SETS BIT 15 IN THE RETURN CODE IF THE DISPLAY P* IS NOT
0x1f0520…1f06b4 (1, 472) Dummy {f00=0x005e, f01=0x0190, f02=» P* THE RIGHT. P* @ P************************************************************ $ P* h PDY100 EQU * r P LDK A2,DUMMY P CF A5,OUTPUT SEND DUMMY P RF(NZ) DYER10 P* . P LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION
0x1f06b4…1f0848 Dummy {f00=0x005e, f01=0x0190, f02=»********************************** v P* * P* ORDER 05, BASIC WRITE. 4 0 P* THIS ORDER SENDS THE REQUESTED NUMBER OF V . P* CHARACTERS TO THE DISPLAY AND SETS THE 0 P* INTERNAL CURSOR POSITION COUNTER TO HOME P* POSITION. (/0101)
0x1f0848…1f09dc Dummy {f00=0x005e, f01=0x0190, f02=»HARACTER FROM ECB-BUFFER z 0 P LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? P RF(NP) DY210 NO T P IFT GREECE=1 =4 l P CF A15,GRCHAR =4 P XIF P* & P CF A5,OUTPUT YES ! SEND CHARACTER P RF(NZ) DYER05 P* * P CF A15,
0x1f09dc…1f0b70 Dummy {f00=0x005e, f01=0x0190, f02=»* 4 P IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER " P LDKL A2,MAXBLK GET BLOCKSIZE B * P CW A2,DWTBLC+DWTDEV,A6 BLOCK FILLED ? h P* $ P RB(G) DY200 NO ! NEXT CHARACTER P* $ P CF A15,GETCHR MORE TO SEND ? =9 P LDR A1,A1 =9
0x1f0b70…1f0d04 Dummy {f00=0x005e, f01=0x0190, f02=»ER05 " P LDKL A2,MAXBLK GET BLOCKSIZE " P CF A5,STABLK START NEW BLOCK 2 P RF(NZ) DYER05 X 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER n P RB DY200 NEXT CHARACTER P* PDY210 EQU * * P CF A15,UPDAPP RESET POSITION COUNTER
0x1f0d04…1f0e98 Dummy {f00=0x005e, f01=0x0190, f02=»V,A6 RESET CHARACTERS-IN-BLOCK COUNTER P* . P ABL DY493 END REQUEST 8 P* V PDYER05 EQU * ` B P CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER BEFORE t ( P RF DYER10 ERROR ROUTINE IS ENTERED P EJECT P* @ P**********
0x1f0e98…1f102c Dummy {f00=0x005e, f01=0x0190, f02=»QUESTED LENGTH IS ZERO. r > P* IF IT IS, CARRIAGE RETURN AND LINE FEED ARE SENT, AND " P* THE REQUEST IS COMPLETED. b F P* ELSE THIS PART LOOKS FOR A CONTROL CHARACTER IN THE FIRST WORD @ P* IN THE ECB-BUFFER AND CARRIES OUT THE DESIRED FUNC
0x1f102c…1f11c0 Dummy {f00=0x005e, f01=0x0190, f02=» L P* CHARACTER ( /07, /11, /12, /13, /14, /1E, /1F, /AE ) IS RECOGNIZED. B P* IF A SPECIAL CHARACTER IS FOUND, THE APPROPRIATE FUNCTION T 6 P* IS CARRIED OUT BEFORE NEXT CHARACTER IS SENT. < P* WHEN ALL CHARACTERS ARE SENT, THE CURSOR POSITIO
0x1f11c0…1f1354 (1, 473) Dummy {f00=0x005f, f01=0x0190, f02=»* PDY300 EQU * P* P* TEST REQUESTED LENGTH ( P* J 6 P LD A2,ECBRL,A8 GET REQUESTED LENGTH. IS IT ZERO ? T P RF(Z) DY307 YES ! P* P* TEST CONTROL CHARACTER P* PDY305 EQU * & P LD A2,ECBBA,A8 GET BU
0x1f1354…1f14e8 Dummy {f00=0x005f, f01=0x0190, f02=» A2,/2B $ P RF(Z) DY335 NO MOVING OF CURSOR PDY307 EQU * 8 P* L 0 P LDK A4,1 FIRST POSITION AND ONE LINE FEED. V 8 P SC A4,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER P* P SUK A2,/5 TWO LINE FEED ? P RF(NZ) DY310 NO !
0x1f14e8…1f167c Dummy {f00=0x005f, f01=0x0190, f02=»RACTER MEANS ERASE r P* P LDK A2,CR CARRIAGE RETURN $ P* F PDY320 EQU * P P CF A5,OUTPUT SEND d PDYER10 RF(NZ) DYER15 ~ P* P SUK A4,1 READY ? 0 P RF(N) DY335 YES ! START WRITING ON DISPLAY P* < P LC A1,DWTLI
0x1f167c…1f1810 Dummy {f00=0x005f, f01=0x0190, f02=» . P LDKL A2,/100 NO ! INCREMENT LINE COUNTER ! P ADS A2,DWTAP+DWTDEV,A6 ! : PDY325 EQU * ! Z " P LDK A2,LF LINE FEED CHARACTER ! n " P RB DY320 SEND NEXT LINE FEED ! P* ! PDY330 EQU * ! . P SC A4,DWTAP+DWTDEV,A6 RESET LINE COUNTER ! (
0x1f1810…1f19a4 Dummy {f00=0x005f, f01=0x0190, f02=»* ! P* " 8 P* WRITING PART, ORDER 06 (ALSO USED BY ORDER 0B). " P* " P P* " Z PDY335 EQU * " d P IFT TRASPA=1 " x * P CF A15,TRASP SUPPRESS TRAILING SPACES " P XIF " PDY340 EQU * " 0 P CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER
0x1f19a4…1f1b38 Dummy {f00=0x005f, f01=0x018e, f02=» P XIF # P* # P LDR A4,A2 CHECK CODE LIMITS # P SUK A4,/20 # > * P RF(N) DY380 TEST IF SPECIAL CHARACTER # R P SUK A4,/5F # * P RF(P) DY380 TEST IF SPECIAL CHARACTER # P IFT FASTO=1 # P IFT WHATDY=1 # 6 P LDK A4,0 RESET A4 BEFORE EN
0x1f1b38…1f1ccc Dummy {f00=0x005f, f01=0x0190, f02=» P IFT FASTO=1 $ P* $ P* $ " 2 P* FAST OUTPUT SHOULD BE USED IF A NUMBER OF $ , $ P* CHARACTERS ARE FOUND EQUAL. $ b P* $ P* $ & P LD A1,ECBBA,A8 GET BUFFER ADDRESS $ P ADR A1,A3 ADD BUFFER INDEX $ P* $ P* $ 4 P LC A4,D
0x1f1ccc…1f1e60 Dummy {f00=0x005f, f01=0x0190, f02=»1 INCREMENT CHARACTER COUNTER $ 6 P CCR A2,A1 NEXT CHAR. IN BUFFER EQUAL TO CURRENT ? % & P RF(NE) FAST40 NO ! % ` P* % | , P CC A4,DWTPOS+DWTDEV,A6 MAX. POSITIONS ? % P RF(NL) FAST40 YES ! % P* % & P CW A3,ECBRL,A8 REQUESTED LENGTH ? % P R
0x1f1e60…1f1ff4 (1, 474) Dummy {f00=0x005f, f01=0x0190, f02=» PFAST40 EQU * & : P LD A1,DWTAP+DWTDEV,A6 GET NUMBER OF EQUAL CHARACTERS & P AD A1,DWTBC+DWTDEV,A6 & V P ANK A1,/FF & t P SUR A4,A1 & P* & 6 P CWK A4,FASTNR COND. FOR FAST OUTPUT FULLFILLED ? & P RF(L) FAST80 NO ! & P* & . P* YE
0x1f1ff4…1f2188 Dummy {f00=0x005f, f01=0x018e, f02=»UFFER POINTER & P ADR A4,A3 ' P* ' ( P IFT LOWCHA=0 ' 2 P LDR A3,A2 ' H P SUK A3,/5F ' Z P RF(NP) FAST30 ' n P SUK A2,/20 ' PFAST30 EQU * ' P XIF ' P IFT FASTO=1 ' $ P LDR A3,A2 PUT CHARACTER INTO A3 ' P* ' P CF A5,FAS
0x1f2188…1f231c Dummy {f00=0x005f, f01=0x0190, f02=» ' d P ANK A4,/FF ( P AD A4,DWTAP+DWTDEV,A6 ( P* ( : P CF A5,CURPOS SET CURSOR ( D P RB DY340 NEXT CHARACTER ( d PFAST80 EQU * ( P XIF ( P* ( $ P IFT LOWCHA=0 LOWER CASE IS USED ( P LDR A1,A2 ( P SUK A1,/5F ( P RF(NP) DY36
0x1f231c…1f24b0 Dummy {f00=0x005f, f01=0x0190, f02=»R20 ( ~ * P CF A15,POSUPD POSITION COUNTER UPDATE ) P IFT FASTO=1 ) : P IFT WHATDY=1 ) N * P LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? ) d P ANKL A1,/1000 ) P RF(NZ) FAST90 NO ! ) P XIF ) P IFT FASTO=1 ) * P SUK A4,1 DECREMENT CHARACTER COUNTE
0x1f24b0…1f2644 Dummy {f00=0x005f, f01=0x0190, f02=»C A2,-1,A2 ) P ANK A2,/7F MASK CHARACTER * P RB FAST80 * 4 PFAST90 EQU * * F P XIF * Z P RB DY340 NEXT CHARACTER * f P* * " P* TEST IF SPECIAL CHARACTER * P* * PDY380 EQU * * P LDK A4,0 RESET A4 * P LDR A1,A2 CHARACTER *
0x1f2644…1f27d8 Dummy {f00=0x005f, f01=0x0190, f02=»ADY140 YES ! GO TO TABULATION ROUTINE * P* + . $ P SUK A1,/3 FAST OUTPUT ( /14 ) ? + 8 * P RF(Z) DY390 YES ! GO TO THAT ROUTINE + ` P* + P SUK A1,/9A POINT ( /AE ) ? + $ P RF(Z) DY410 YES ! LOAD AND SEND + P IFF WHATDY+PLASM=0 =4 + 0 P LD
0x1f27d8…1f296c Dummy {f00=0x005f, f01=0x0190, f02=» ! + l PDY382 EQU * =9 , P XIF , " P* , . * P ADK A1,/9C UNDERLINE START ( /12 ) ? , 8 P RF(Z) DY467 YES ! , f P* , ( P SUK A1,/1 UNDERLINE STOP ( /13 ) ? , P RF(Z) DY467 YES ! , P* , , P SUK A1,/B LOW INTENSITY START ( /1E) ? ,
0x1f296c…1f2b00 Dummy {f00=0x005f, f01=0x018e, f02=»ARACTER , P* - PDY385 EQU * - " P LDK A1,CCERR CODE CHECK ERROR - . , P ORS A1,ECBRC,A8 SET RETURN CODE OF ECB - T P RB DY340 NEXT CHARACTER - P EJECT - P* - P* ROUTINE FOR FAST OUTPUT - P* - PDY390 EQU * - P IFT TRASP
0x1f2b00…1f2c94 (1, 475) Dummy {f00=0x005f, f01=0x0190, f02=» P* . $ P LD A4,ECBRL,A8 REQUESTED LENGTH . 0 P SUR A4,A3 GET NUMBER OF CHARACTERS TO SEND . 6 P RF(NP) DY400 NONE ! . j P IFT GREECE=1 =4 . P CF A15,GRCHAR =4 . P XIF . P* . $ P LDR A3,A2 LOAD CHARACTER IN A3 . P SUK A2,/20 IS C
0x1f2c94…1f2e28 Dummy {f00=0x005f, f01=0x0190, f02=»ST OUTPUT . v P* / PDY400 EQU * / 6 P LD A3,ECBRL,A8 GET REQ. LEN. TO STORE IN EFF. LEN / 0 P* / j $ PDY405 RF DY470 GO TO COMMON END / t P* / P* SEND A POINT / P* / PDY410 EQU * / " P LDK A2,/2E GET CODE FOR POINT / P RB DY
0x1f2e28…1f2fbc Dummy {f00=0x005f, f01=0x0190, f02=»40 NEXT CHARACTER ! / P EJECT 0 @ P************************************************************ 0 * P* 0 n P* TABULATION 0 x P* 0 @ P************************************************************ 0 PADY140 EQU * 0 , P CF A15,GETCHR GET FIR
0x1f2fbc…1f3150 Dummy {f00=0x005f, f01=0x0190, f02=» ADY144 0 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL 1 P SUK A4,1 1 D P RB(NE) ADY143 1 V " PADY144 LC A4,DWTAP+DWTDEV+1,A6 1 l . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER 1 P LC A4,DWTBC+DWTDEV,A6 1 , P SUR A2,A4 AND REQUESTS POSITION COUNT
0x1f3150…1f32e4 Dummy {f00=0x005f, f01=0x018e, f02=»RIGHT 1 t P CF A5,OUTPUT 2 P RF(NZ) DYER20 2 $ , P CF A15,POSUPD POSITION COUNTER UPDATING 2 : P SUK A4,1 READY ? 2 j P RB(NE) ADY145 NO 2 P ABL DY340 NEXT CHARACTER 2 P EJECT 2 B P**********************************************************
0x1f32e4…1f3478 Dummy {f00=0x005f, f01=0x0190, f02=» P* 3 B P************************************************************* 3 P* 3 T PDY470 EQU * 3 ^ " P LDK A2,ULSTOP UNDERLINE STOP 3 r P CF A5,OUTPUT SEND 3 PDYER20 RF(NZ) DYER30 3 P* 3 & P LDK A2,LISTOP LOW INTENSITY STOP 3 P CF A5
0x1f3478…1f360c Dummy {f00=0x005f, f01=0x0190, f02=»FT TRASPA=1 3 P LD A2,ECBCW,A8 4 0 P ST A2,ECBRL,A8 RESTORE OLD REQUESTED LENGTH 4 , P XIF 4 ` , P ST A3,ECBEL,A8 STORE EFF. LENGTH IN ECB 4 l 4 P LD A2,DWTAP+DWTDEV,A6 SET HEAD POSITION POINTER 4 * P ST A2,ECBCW,A8 IN CONTROL WORD OF ECB 4 PENDIO
0x1f360c…1f37a0 Dummy {f00=0x005f, f01=0x0190, f02=»************************************ 4 x P* 5 , ( P* ORDER 0B, SET CURSOR AND WRITE. 5 6 8 P* THIS ORDER SETS CURSOR TO THE POSITION GIVEN IN 5 b 8 P* THE CONTROL WORD OF ECB AND SENDS THE CHARACTERS 5 : P* TO THE DISPLAY, CHECKING THE SAME SPECIAL
0x1f37a0…1f3934 (1, 476) Dummy {f00=0x005f, f01=0x0190, f02=»600 EQU * 5 P IFT WHATDY=1 6 0 P LD A4,DWTDEV,A6 6344, 6346, 6385 OR 6386 ? 6 ( P ANKL A4,/1000 6 P RF(Z) DY610 YES ! 6 r P* GET LINE 6 P LDK A4,0 =8 6 & P LC A4,ECBCW,A8 GET REQUESTED LINE 6 , P CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN
0x1f3934…1f3ac8 Dummy {f00=0x005f, f01=0x018e, f02=»V,A6 GET ACTUAL LINE 6 ~ PADY210 CWR A4,A3 7 . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL 7 4 P RF(E) ADY300 SAME LINE 7 f P LDK A2,LF LINE FEED 7 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 7 PADY230 CF A5,OUTPUT SEND 7 P RF(NZ) DYER30 7 P L
0x1f3ac8…1f3c5c Dummy {f00=0x005f, f01=0x0190, f02=» & P LDK A3,1 RESET ACTUAL LINE NUMBER 8 * P ST A3,DWTAP+DWTDEV,A6 RESET POSITION 8 . P RB ADY230 8 P* 8 n P* 8 x P* GET POSITION 8 P* 8 : PADY300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER 8 , P LC A4,ECBCW+1,A8 GET REQUESTED POSI
0x1f3c5c…1f3df0 Dummy {f00=0x005f, f01=0x0190, f02=»03 EQU * 8 P CWK A4,1 FIRST POSITION ? 9 P RF(NE) ADY305 NO 9 2 P CWR A4,A3 FIRST LINE ? 9 L P RF(NE) ADY305 NO 9 l P LDK A2,HOME CURSOR GO HOME 9 P RF ADY330 9 * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO 9 P LDK A4,1 9 6 PADY307 LC A3
0x1f3df0…1f3f84 Dummy {f00=0x005f, f01=0x0190, f02=» CWR A4,A3 FORWARDS OR BACKWARDS 9 P RF(E) ADY370 POSITION FOUND : ( P RF(N) ADY340 BACK : L P LDK A2,CURRIG CURSOR RIGHT : f & P ADK A3,1 UPDATE POSITION COUNTER : PADY330 CF A5,OUTPUT SEND : P RF(NZ) DYER30 : P RB ADY310 : . PADY340 SUR A
0x1f3f84…1f4118 Dummy {f00=0x005f, f01=0x0190, f02=»RIAGE RETURN : & P LDK A3,1 INDICATE FIRST POSITION ; P RB ADY330 ; > " PADY345 LDK A2,BACKSP BACKSPACE ; P P CF A5,OUTPUT SEND ; v P RF(NZ) DYER30 ; P SUK A3,1 LAST BACKSPACE ? ; P RB(NE) ADY345 ; @ PADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD
0x1f4118…1f42ac Dummy {f00=0x005f, f01=0x0190, f02=»,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION COUNTER ; ( P CF A5,CURPOS SET CURSOR ON DISPLAY < 6 P* < b PDY620 EQU * < l P LDK A3,2 START BUFFER INDEX < 2 P ABL DY335 SEND CHARACTERS WITH STANDARD WRITE < P EJECT < @ P********************************
0x1f42ac…1f4440 Dummy {f00=0x005f, f01=0x018e, f02=»TION AND LINE) < d P* = @ P************************************************************ = PCURPOS EQU * = d $ P LDK A2,SCADD SET CURSOR ADDRESS = x P CF A5,OUTPUT SEND = P RF(NZ) DYER30 = P* = P LDR A2,A4 GET POSITIONS = 6 P CC A4,DWTPOS+
0x1f4440…1f45d4 (1, 477) Dummy {f00=0x0060, f01=0x0190, f02=» PCURR10 ADK A2,/1F CONVERT > P CF A5,OUTPUT SEND > & PDYER30 RF(NZ) DYER32 > @ P* > P LDR A2,A4 > f P SRL A2,8 GET LINES > x 2 P CC A2,DWTLIN+DWTDEV,A6 MORE THAN MAX. LINES ? > P RF(NG) CURR20 NO ! > 0 P LC A2,DWTLIN+DWTDEV,A6 YES ! SET
0x1f45d4…1f4768 Dummy {f00=0x0060, f01=0x0190, f02=» A5 > P EJECT ? P IFT VD87=1 =7 ? < P******************************************************** ? 2 P* ? r ( P* ORDER /27. TRANSFER PARAMETERS. ? | ( P* THIS ORDER MAKES IT POSSIBLE TO ? , P* CHANGE BACKGROUND COLOUR, CHARACTER ? , P*
0x1f4768…1f48fc Dummy {f00=0x0060, f01=0x0190, f02=» ? > P********************************************************* @ P* @ J PORD27 EQU * @ T $ P LD A3,ECBCW,A8 GET CONTROL WORD @ h & P SLC A3,1 ADJUST CW FOR SUBROUTINE @ $ P CF A15,TSTBIT CHECK BITS IN CW @ P LDR A2,A2 @ & P RF(Z) TEST10 NO CHA
0x1f48fc…1f4a90 Dummy {f00=0x0060, f01=0x0190, f02=» @ P* A ( P LCK A4,/3000 GET CONTROL CHARACTER A P CF A5,PSEND1 AND SEND IT A > P* A ` PTEST10 EQU * A j $ P CF A15,TSTBIT CHECK BITS IN CW A ~ P LDR A2,A2 A $ P RF(Z) TEST20 NO CHANGE IN WITDH A P* A P SLC A4,5 CHANGE WIDTH A P
0x1f4a90…1f4c24 Dummy {f00=0x0060, f01=0x0190, f02=»,/0101 CURSOR IS SET TO HOME POS. A 0 P ST A4,DWTAP+DWTDEV,A6 WHEN WIDTH IS CHANGED B * P* B ^ PTEST20 EQU * B h P CF A15,TSTBIT CHECK CW B | P LDR A2,A2 B ( P RF(Z) TEST30 NO CHANGE IN INTENSITY B P* B P SLC A4,6 CHANGE INTENSITY B P C
0x1f4c24…1f4db8 Dummy {f00=0x0060, f01=0x018e, f02=» * B P CF A15,TSTBIT CHECK CW C P LDR A2,A2 C * & P RF(Z) TEST40 NO CHANGE OF CURSOR C < P* C f P SLC A4,7 CHANGE CURSOR MODE C p P CF A15,SETBIT C P SRC A2,7 C P ST A2,DWTDEV,A6 C P LCK A4,/1500 C P CF A5,PSEND2 C P* C
0x1f4db8…1f4f4c Dummy {f00=0x0060, f01=0x0190, f02=» C R P* D P* ORDER 31, ERASE. D < P* SENDS THE NUMBER OF SPACES THAT IS GIVEN IN CONTROL D . . P* WORD OF ECB. THE CURSOR IS NOT MOVED. D n P* D @ P************************************************************ D P* D PDY700 EQU * D
0x1f4f4c…1f50e0 Dummy {f00=0x0060, f01=0x0190, f02=»L A1,/1000 D P RF(Z) DY750 YES ! E P* E , , P LD A2,DWTPOS+DWTDEV,A6 MAX. CHARACTERS E 6 P ANK A2,/FF E f . P LC A3,DWTAP+DWTDEV+1,A6 CURRENT POSITION E z P ANK A3,/FF E , P SUR A2,A3 NR OF CHARS. TO END OF SCREEN E P LDK A3,0 ADJUST =8 E
0x1f50e0…1f5274 (1, 478) Dummy {f00=0x0060, f01=0x018e, f02=» SUK A3,1 =8 E PDY710 EQU * F " P ADR A3,A4 CHARACTERS TO ERASE F * PDY720 EQU * =8 F P P LDK A2,/20 SPACE F h , P SUK A4,1 DECREMENT NUMBER OF CHARACTERS F P RF(N) DY730 ERASE READY F P* F P CF A5,OUTPUT SEND F P RF(NZ) DYER40 F
0x1f5274…1f5408 Dummy {f00=0x0060, f01=0x0190, f02=» F t $ P CF A5,STABLK START OF NEW BLOCK G P RF(NZ) DYER40 G 0 P LDR A4,A3 RESET COUNTER G F PDY740 EQU * =8 G f " P LDK A2,BACKSP CURSOR LEFT =8 G ~ , P SUK A4,1 CURSOR IN ORIGINAL POSITION ? G P ABL(N) ENDIO YES ! G . P CF A5,OUTPUT NO ! SEND
0x1f5408…1f559c Dummy {f00=0x0060, f01=0x0190, f02=»R SEND WITH FAST OUTPUT G P ABL ENDIO H P EJECT H 2 @ P************************************************************ H @ P* H . P* ECHODY, DEVICE-DEPENDENT ECHO-ROUTINE H 0 P* THIS ROUTINE CHECKS IF THE ECHO-CHARCTER H . P* IS A BACKSPACE,
0x1f559c…1f5730 Dummy {f00=0x0060, f01=0x0190, f02=»SENT TO THE DISPLAY. H P* I @ P************************************************************ I & P* I j PECHODY EQU * I t P LDR A7,A7 END OF ECHOING ? I P RF(NN) EDY110 NO ! I P* I P* I 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER
0x1f5730…1f58c4 Dummy {f00=0x0060, f01=0x0190, f02=»Y120 I P* J PEDY110 EQU * J 0 P LDR A4,A1 SAVE "MORE CHARACTERS" INDICATION J * P IFT GREECE=1 =4 J ^ P CF A15,GRCHAR =4 =4 J x P XIF =4 J P LDR A3,A2 SAVE CHARACTER J P* J P IFT EORECH=0 J P SUK A3,/80 J $ P RF(NN) ED
0x1f58c4…1f5a58 Dummy {f00=0x0060, f01=0x0190, f02=» CWK A1,MINBLK YES ! IS IT FULL ? J P RF(L) EDY118 NO ! K * 6 P CM DWTBLC+DWTDEV,A6 YES ! CLEAR CHARACTER COUNTER K D P CF A5,ENDBLK FINISH BLOCK K ~ PDYER35 RF(NZ) DYER40 K PEDY116 EQU * K P LDK A2,MINBLK K P CF A5,STABLK DECLARE BLOCK K
0x1f5a58…1f5bec Dummy {f00=0x0060, f01=0x0190, f02=» K ~ P ADK A3,/10 BACKSPACE ? L P RF(Z) DY800 YES ! L ( P* L B P* L L & P* SEND CHARACTER TO ECHO-DEVICE L V P* L * P IM DWTBLC+DWTDEV,A6 INCREMENT COUNTER L P CF A5,OUTPUT SEND L PDYER40 RF(NZ) DYER45 L , P CF A15,POSUPD POSITION CO
0x1f5bec…1f5d80 Dummy {f00=0x0060, f01=0x0190, f02=» BLOCK L | P RF(NZ) DYER45 M & P CM DWTBLC+DWTDEV,A6 RESET COUNTER M $ ( PEDY130 ABL ECHRTN RETURN TO KEYBOARD M N P EJECT M z @ P************************************************************ M P* M P* BACKSPACE M 6 P* CHECKS CURSOR POSITION,
0x1f5d80…1f5f14 (1, 479) Dummy {f00=0x0060, f01=0x018e, f02=»******************************************************** M P* N @ PDY800 EQU * N J 0 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER N ^ P ANK A3,/FF N P RB(Z) EDY120 FIRST POSITION N P* N " P CF A5,ENDBLK FINISH OLD BLOCK N P RF(NZ) DYER45
0x1f5f14…1f60a8 Dummy {f00=0x0060, f01=0x0190, f02=» N n $ P SUK A3,1 INDICATE ONE BACKSTEP O 0 P SC A3,DWTBC+DWTDEV,A6 SET POSITION COUNTER O 0 " P ADK A3,1 GET POSITION ON LINE O d P AD A3,DWTAP+DWTDEV,A6 O 4 P CC A3,DWTPOS+DWTDEV,A6 LAST POSITION ON LINE ? O P RF(L) DY810 NO ! O P RB(G) DY800 N
0x1f60a8…1f623c Dummy {f00=0x0060, f01=0x0190, f02=»45 O P* P PDY810 EQU * P , P LDK A2,BACKSP NON-DESTRUCTIVE BACKSPACE P ( P CF A5,OUTPUT SEND P X P RF(NZ) DYER45 P r P* P P SUK A4,1 SEND AGAIN ? P P RB(NZ) DY805 YES ! P P* NO, BACKSPACE FINISHED P P RB EDY120 P P EJECT P
0x1f623c…1f63d0 Dummy {f00=0x0060, f01=0x018e, f02=»R WHERE LAST P j 4 P* REQUEST ENDED AND SENDS SPACES TO ERASE THE Q 2 P* CHARACTERS WRITTEN DURING CURRENT REQUEST. Q L P* Q @ P************************************************************ Q P* Q PDY850 EQU * Q " P CF A5,ENDBLK FINISH OLD B
0x1f63d0…1f6564 Dummy {f00=0x0060, f01=0x0190, f02=» 0 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER R P ANK A3,/FF R 8 P RB(Z) EDY120 FIRST POSITION R L P* R p P IFT WHATDY=1 R z . P LD A1,DWTDEV,A6 PTS 6344, 6385 OR 6386 ? R P ANKL A1,/1000 R P RF(Z) DY860 YES ! R ( P CF A5,BACCAN ERASE CU
0x1f6564…1f66f8 Dummy {f00=0x0060, f01=0x0190, f02=»URPOS SET CURSOR R P* S $ P LDR A4,A3 GET POSITION COUNTER S " & P ADK A4,1 UPDATE POSITION COUNTER S J $ P LDK A3,SPACE GET SPACE TO SEND S t ( P CF A5,FASTER SEND WITH FAST OUTPUT S P* S 2 P SC A1,DWTBC+DWTDEV,A6 RESET POSITION COUNTER S P
0x1f66f8…1f688c Dummy {f00=0x0060, f01=0x0190, f02=» BACCAN = SUBROUTINE TO POSITION CURSOR S 0 P* AT THE PLACE BEFORE REQUEST IF T 0 P* CLEAR. T d P* T @ P************************************************************ T PBACCAN EQU * T 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER C
0x1f688c…1f6a20 Dummy {f00=0x0060, f01=0x0190, f02=»POSITION COUNTER T p P ANK A2,/FF U * P CC A2,DWTPOS+DWTDEV,A6 LAST POSITION U , P RF(NP) BACA10 NO U Z $ P LDK A2,SPACE DESTRUCTIVE SPACE U t P RF BACA20 U PBACA10 EQU * U 4 P IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER U ( P LDKL A2,MAXBL
0x1f6a20…1f6bb4 (1, 480) Dummy {f00=0x0060, f01=0x0190, f02=»NDBLK YES ! END OLD BLOCK U P RF(NZ) DYER50 V " P LDKL A2,MAXBLK BLOCK SIZE V 8 $ P CF A5,STABLK START A NEW BLOCK V Z P RF(NZ) DYER50 V 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER V PBACA30 EQU * V P LDK A2,BACKSP BACKSPACE V P CF A5,O
0x1f6bb4…1f6d48 Dummy {f00=0x0060, f01=0x0190, f02=»BACKSP BACKSPACE V PBACA20 CF A5,OUTPUT SEND W P RF(NZ) DYER50 W 8 P SUK A4,1 W N P RB(NE) BACA10 W ` P NGR A3,A3 NEGATE REGISTER W v 4 P ADS A3,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER W P RTN A5 W P XIF W P EJECT W @ P**************
0x1f6d48…1f6edc Dummy {f00=0x0060, f01=0x018e, f02=»4 = NUMBER OF CHARACTERS W x 2 P* A3 = CHARACTER TO SEND X P* X V @ P************************************************************ X ` PFASTER EQU * X P IFT WHATDY=1 X P LD A2,DWTDEV,A6 PTS X " P ANKL A2,/1000 6342 OR 6351 ?
0x1f6edc…1f7070 Dummy {f00=0x0060, f01=0x0190, f02=» X x ( P AD A2,DWTAP+DWTDEV,A6 GET POSITION Y P ANK A2,/FF Y 4 ( P ADR A2,A4 ADD NUMBER OF CHARACTERS Y H P* Y t . P LD A1,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS Y ~ P ANK A1,/FF Y P SUR A1,A2 COMPARE Y P RF(NN) FAS002 LENGTH OK Y P ADR A4,A1
0x1f7070…1f7204 Dummy {f00=0x0060, f01=0x0190, f02=»OF CHARACTERS Y x P RF FAS007 =9 Z P* Z , PFAS002 EQU * Z 6 P* Z J & P LDR A2,A4 PUT TWO COUNTERS IN A4 Z T PFAS007 EQU * =9 Z ~ P SLL A2,8 Z P ORR A4,A2 Z P* Z PFAS004 EQU * Z $ P LDR A2,A3 GET CHARACTER TO SEND Z P CF A5,O
0x1f7204…1f7398 Dummy {f00=0x0060, f01=0x0190, f02=»RACTER Z z P* [ & P CF A5,ENDBLK START A NEW BLOCK TO [ $ P RF(NZ) DYER50 AVOID OVERFLOW IN [ B P LDKL A2,MAXBLK THE OLD ONE [ j P CF A5,STABLK [ P RF(NZ) DYER50 [ P* [ P SRL A4,8 GET LENGTH COUNTER [ * P RF(Z) FAS008 NO BACKSPACE TO SE
0x1f7398…1f752c Dummy {f00=0x0060, f01=0x0190, f02=»UNTER [ z P RB(P) FAS003 NEXT PFAS008 EQU * =9 ( P RTN A5 @ PFAS005 EQU * P P XIF d 6 P CC A4,DWTPOS+DWTDEV,A6 TEST NUMBER OF CHARACTERS p . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG : P LC A4,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS O
0x1f752c…1f76c0 Dummy {f00=0x0060, f01=0x0190, f02=» RF(NZ) DYER50 P LDR A2,A4 NO OF CHAR ] P ANK A2,/FF ] 4 P CF A5,OUTPUT SEND ] H P RF(NZ) DYER50 ] b P LDR A2,A3 ] x P CF A5,OUTPUT SEND ] P RF(NZ) DYER50 ] P RTN A5 ] P EJECT ] 8 P************************************************
0x1f76c0…1f7854 (1, 481) Dummy {f00=0x0097, f01=0x018e, f02=»**************************************************** ] PDYER50 EQU * ^ < P LD A7,DWTST,A6 ^ P P SLC A7,2 ECHO ? ^ h * P ABL(N) ECHRTN YES ! RETURN FROM ECHO ^ P* ^ " P SRC A1,5 OUTPUT ERROR (HER) ? ^ & P ABL(N) RCDY YES ! GO TO RECOVERY ^ P
0x1f7854…1f79e8 Dummy {f00=0x0097, f01=0x0190, f02=» P SUK A7,5 ORDER 5 ? _ P RF(Z) DYER52 YES ! _ P SUK A7,/2B ORDER 31 ? _ < P RF(Z) DYER52 YES ! _ Z P* _ v P SRC A1,2 LRC-ERROR ? _ P RF(N) DYER70 YES ! _ P SLC A1,2 _ PDYER52 SRC A1,3 LINK ERROR ? _ P RF(NN) DYER55 NO ! _
0x1f79e8…1f7b7c Dummy {f00=0x0097, f01=0x0190, f02=»Z) DYER60 NO ECB-ADDRESS (SYSTEM START) =1 _ 2 P CM ECBCW,A8 CLEAR INSIGNIFICANT CONTROL WORD ` 2 PDYER60 EQU * =1 ` h P ABL LENDIS COMPLETE REQUEST ` P* ` P* LRC-ERROR ` P* ` PDYER70 EQU * ` ( P LDKL A5,DWTSB2 INITIALIZE A5 STACK
0x1f7b7c…1f7d10 Dummy {f00=0x0097, f01=0x0190, f02=» ( P LD A4,DWTDEV,A6 6344,6385 OR 6386 ? a P ANKL A4,/1000 a 0 P RF(Z) DYER90 YES ! a F 6 P LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POS. TO BACK a b P ANK A4,/FF a P RF(Z) DYER80 a . P CF A5,BACCAN SEND BACKSPACES AND RUB OUT a P LDK A3,2 SET BU
0x1f7d10…1f7ea4 Dummy {f00=0x0097, f01=0x018e, f02=»NTER a h ( P CF A5,CURPOS SET CURSOR ON DISPLAY b P LDK A3,0 RESET BUFFER INDEX b 8 P LD A7,DWTOR,A6 GET ORDER b P ANK A7,/FF b ~ P ABL ACDY b P EJECT b @ P************************************************************ b P* b , P* UPD
0x1f7ea4…1f8038 Dummy {f00=0x0097, f01=0x0190, f02=» b @ P************************************************************ c PUPDAPP EQU * c L 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER c ` P ANK A2,/FF c 8 P ADS A2,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER c P LDK A2,0 c 2 P SC A2,DWTBC+DWTDE
0x1f8038…1f81cc Dummy {f00=0x0097, f01=0x018e, f02=»OSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION c 0 P* COUNTER WHEN REQUEST RUNNING. d 4 D P* A CHECK THAT POINTER NOT EXCEEDS THE LIMIT IS DONE d h P* d @ P************************************************************ d PPOSUPD EQU
0x1f81cc…1f8360 Dummy {f00=0x0097, f01=0x0190, f02=» d ( P CC A2,DWTPOS+DWTDEV,A6 END OF ROW ? e P RF(G) POSU10 e 4 ( P IM DWTBC+DWTDEV,A6 POSITION COUNTER e J PPOSU10 RTN A15 e v P IFT GREECE=1 =4 e P EJECT =4 e : P*************************************************** =4 e P* e : P* GR
0x1f8360…1f84f4 (1, 482) Dummy {f00=0x0098, f01=0x0190, f02=»***************************************** =4 e PGRCHAR EQU * = f 4 , P LDR A1,A2 IS IT A GREEK CHARACTER ? =4 f L P SUK A1,/B9 =4 f | P RF(P) GRCH10 NO =4 f P ADK A1,9 =4 f P RF(N) GRCH10 NO =4 f P* =4 f 0 P ADKL A1,GRTAB GET THE
0x1f84f4…1f8688 Dummy {f00=0x0098, f01=0x0190, f02=» =4 f PGRTAB EQU * =4 g , P DATA /265B,/5C23,/5D22,/4021,/5E5F =4 g $ P XIF =4 g T P IFT TRASPA=1 g f P EJECT g | 6 P************************************************** g P* g 4 P* TRASP = SUBROUTINE THAT ELIMINATES TRAILING g 4 P*
0x1f8688…1f881c Dummy {f00=0x0098, f01=0x0190, f02=»D TABULATIONS. g r P* h 6 P************************************************** h P* h Z PTRASP EQU * h d , P LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) h x , P LD A2,ECBRL,A8 GET REQUESTED LENGTH(RL) h P ADR A1,A2 GET END OF BUFFER h PSKIP05 CWK A
0x1f881c…1f89b0 Dummy {f00=0x0098, f01=0x0190, f02=» h | P RF(Z) SKIP07 YES i P ADK A4,1 LOW INT. STOP ? i " P RF(Z) SKIP07 YES ! i D P ADK A4,1 LOW INT. START ? i ` P RF(Z) SKIP07 YES ! i P CWK A2,4 i " P RF(NG) SKIP30 REQ, LENGTH < 5 i P LC A4,-2,A1 GET CHARACTER i & P SUK A4,/11 TABU
0x1f89b0…1f8b44 Dummy {f00=0x0098, f01=0x0190, f02=»IP05 GET NEXT i PSKIP30 EQU * j P LD A4,ECBRL,A8 j * ( P ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH j B P* j n P ST A2,ECBRL,A8 STORE NEW RL j x P* j P RTN A15 j P XIF j P IFT VD87=1 =7 j P EJECT j P* j D P**********************
0x1f8b44…1f8cd8 Dummy {f00=0x0098, f01=0x0190, f02=», RIGHT BYTE: CONTROL CHAR. FOR FIRST TYPE j J P* A4, LEFT BYTE: BIT 0 = 0 FOR FIRST TYPE, 1 = SECOND TYPE k 2 < P* PSEND1 SENDS CHARACTER /1B BEFORE CONTROL CHARACTER k P* k D P**************************************************************
0x1f8cd8…1f8e6c Dummy {f00=0x0098, f01=0x0190, f02=» k PPSEND2 EQU * l P LDR A2,A4 FIRST TYPE ? l P RF(NN) PS10 YES ! l < * P ADK A2,1 NO, CHANGE CONTROL CHARACTER l V PPS10 EQU * l ( P CF A5,OUTPUT SEND CONTROL CHARACTER l P RF(NZ) RCER NOT OK ! l P RTN A5 RETURN l P* l P EJECT l
0x1f8e6c…1f9000 Dummy {f00=0x0098, f01=0x0190, f02=» l F P***************************************************************** m P* m R PTSTBIT EQU * m P LD A4,DWTDEV,A6 m p P SRC A3,2 m P LDR A2,A3 m P ANKL A2,/8001 m P RTN A15 m P* m F P********************************************
0x1f9000…1f9194 (1, 483) Dummy {f00=0x0098, f01=0x0190, f02=» IS ACTUAL INDICATION BIT m b . P* A2=INDICATION BIT IN BIT 15 n " @ P* ON EXIT: A2 AND A4=DWTDEV WITH NEW IND. BIT IN BIT ZERO n T P* n F P***************************************************************** n P* n PSETBIT EQU * n
0x1f9194…1f9328 Dummy {f00=0x0098, f01=0x0190, f02=»O BIT ZERO n p P LDR A4,A2 o P RTN A15 o $ P XIF o 4 P EJECT o @ @ P************************************************************ o N P* o P* RCDY = RECOVERY ROUTINE o 6 P* CLEARS DISPLAY AND SETS CURSOR & HEAD POSITION o , P* COUNTER TO
0x1f9328…1f94bc Dummy {f00=0x0098, f01=0x018e, f02=» P LDKL A2,/7FFF p " P ANS A2,DWTST,A6 INDICATE BUSY p P* p @ $ P LDKL A2,MAXBLK MAX. BLOCK SIZE p J P CF A5,STABLK START OF BLOCK p r PRCER ABL(NZ) DYER50 p P IFT VD87=1 =7 p P* p 2 P* THIS PART IS ONLY USED BY THE VD87 DISPLAY p
0x1f94bc…1f9650 Dummy {f00=0x0098, f01=0x0190, f02=» p j 2 P LCK A4,/3000 CONTR. CHAR. FOR BACKGR. COLOUR q " P CF A5,PSEND1 SEND PARAMETERS q > P* q d P SLL A4,1 q n ( P LCK A4,/3200 CONTR. CHAR. FOR WIDTH q P CF A5,PSEND1 q P* q P SLL A4,1 q 4 P LCK A4,/3600 CONTR. CHAR. FOR SCREEN INTE
0x1f9650…1f97e4 Dummy {f00=0x0098, f01=0x0190, f02=»05 EQU * q P XIF r P IFF STEADY+VD87=0 r & P LD A2,DWTDEV,A6 GET DEVICE STATUS r 6 & P ANKL A2,/2000 PTS 6385 OR 6386 ? r ` P RF(Z) RCDY20 NO ! r ( P LDK A3,/40 SET UP TRANSFER COUNTER r P* r 0 PRCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKING r
0x1f97e4…1f9978 Dummy {f00=0x0098, f01=0x0190, f02=»T TRANSFER COUNTER r ~ & P RB(P) RCDY10 NOT ENOUGH TRANSFERS s P XIF s D P IFF COUNTRY=0 s P * P LDK A2,CTYCOD SEND "SET COUNTRY CODE" s f P CF A5,OUTPUT s P RB(NZ) RCER s P IFT VD87=1 =7 s P* s D P* SEND AN EXTRA CONTROL CHARACTER TO V
0x1f9978…1f9b0c Dummy {f00=0x0098, f01=0x0190, f02=»ND C.C. s P RB(NZ) RCER NOT OK ! t PNOT87 EQU * t . P XIF t B P IFF COUNTRY=0 t N ( P LDK A2,COUNTRY SEND "COUNTRY CODE" t d P ORK A2,/30 MAKE ASCII DIGIT t P CF A5,OUTPUT t P RB(NZ) RCER t P XIF t PRCDY20 EQU * t P* t ( P
0x1f9b0c…1f9ca0 Dummy {f00=0x0098, f01=0x0190, f02=» ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER t P LDK A2,0 u 8 : P SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER u J P* u P ABL ENDIO u P* u , P**************************************** u P* u P* ABORT ROUTINE u P* u
0x1f9ca0…1f9e34 (1, 484) Dummy {f00=0x0098, f01=0x4024, f02=»DIS END I/O u P END v @ v
0x1f9e34…1f9fc8 Dummy {f00=0x0098, f01=0x2008, f02=» w E & | CF A5,STABLK START OF BLOCK ' * ' 6 ( $ LDK A2,CLEHOM CLEAR AND CURSOR HOME ' @ CF A5,OUTPUT SEND ' l * ' LDKL A2,/0101 HOME POSITION ' 4 0 ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER ' * ' ABL ENDIO '
0x1f9fc8…1fa15c Dummy {f00=0x0098, f01=0x0190, f02=» WRITE TO THE APPLICATION; P$FRAME; " P 2 P : * P LD A14,TC:STK,A13 RESET STACK POINTER B P LDR A8,A13 A8 -> WSM-TCA p P ADKL A8,TC:IC A8 -> ITC-ECB ( P LD A1,W:ICFC LOAD OUTPUT FILE CODE $ P SC A1,ECB:FC+1,A8 STORE IN ECB .
0x1fa15c…1fa2f0 Dummy {f00=0x0098, f01=0x018e, f02=»UESTED LENGTH x . P LDK A7,WRITE SET ORDER = WRITE WITH WAIT P H PSTR500 EQU * P P LKM d P DATA 1 p P & P LD A1,ECB:RC,A8 LOAD RETURN-CODE P ANK A1,/40 TIME OUT ? $ P RB(NZ) STR500 -YES, TRY AGAIN ! P 4 P LC A1,P
0x1fa2f0…1fa484 Dummy {f00=0x0098, f01=0x403e, f02=» & P RB STR020 -NO, GO TO ADDR READ ! P END .@ :T P H PSTR500 EQU * P P LKM d P DATA 1 p P & P LD A1,ECB:RC,A8 LOAD RETURN-CODE P ANK A1,/40 TIME OUT ? $ P RB(NZ) STR500 -YES, TRY AGAIN ! P 4 P LC A1,P
0x1fa484…1fa618 Dummy {f00=0x0098, f01=0x2008, f02=» STR020 -NO, GO TO ADDR READ ! P END .@ :T P H PSTR500 EQU * P P LKM d P DATA 1 p P & P LD A1,ECB:RC,A8 LOAD RETURN-CODE P ANK A1,/40 TIME OUT ? $ P RB(NZ) STR500 -YES, TRY AGAIN ! P 4 P LC A1,P
0x1fa618…1fa7ac Dummy {f00=0x0098, f01=0x018e, f02=» PDOTEND EQU * P EJECT P & P$FRAME; . P$C PREPARE INPUT BUFFER ; > P$FRAME; ` P p $ P LD A4,TC:CFD,A13 A4 -> DF DATA x 2 P ADK A4,1 A4 -> DF DATA AFTER DECORATION BYTE P LCR A3,A4 2 P CF A14,W:PIB MOVE COMPRESSED TO
0x1fa7ac…1fa940 Dummy {f00=0x0098, f01=0x018e, f02=» n 0 P CF A14,W:TSTP CHECK IF INPUT SHOULD BE MADE P RF(Z) DIN050 - YES ! < P RF(P) DIN025 - NO ! Z * P LDK A1,K1:DUPL - NO, BUT AUTO DUPL ! v P RF DIN200 PDIN025 EQU * 4 P LD A1,PB:KID,A13 - SKIP INPUT, SEE IF VAL. ETC P RF
0x1fa940…1faad4 (1, 485) Opaque[0x194]
0x1faad4…1fac68 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x1faad4…1fac68 IdxSect {
0x1faad4…1fac68 f00 = 0x009b // 0x1faad4 @0x0
0x1faad4…1fac68 f01 = 0x0024 // 0x1faad6 @0x2
0x1faad4…1fac68 gno = [ // 0x1faad8 @0x4
0x1faad4…1fac68 [0x00]: C0x009b.0x1.0
0x1faad4…1fac68 [0x01]: C0x009b.0x2.0
0x1faad4…1fac68 [0x02]: C0x009b.0x3.0
0x1faad4…1fac68 [0x03]: C0x009c.0x0.0
0x1faad4…1fac68 [0x04]: C0x009c.0x1.0
0x1faad4…1fac68 [0x05]: C0x009c.0x2.0
0x1faad4…1fac68 [0x06]: C0x009c.0x3.0
0x1faad4…1fac68 [0x07]: C0x009d.0x0.0
0x1faad4…1fac68 [0x08]: C0x009d.0x1.0
0x1faad4…1fac68 [0x09]: C0x009d.0x2.0
0x1faad4…1fac68 [0x0a]: C0x009d.0x3.0
0x1faad4…1fac68 [0x0b]: C0x009e.0x0.0
0x1faad4…1fac68 [0x0c]: C0x009e.0x1.0
0x1faad4…1fac68 [0x0d]: C0x009e.0x2.0
0x1faad4…1fac68 [0x0e]: C0x009e.0x3.0
0x1faad4…1fac68 [0x0f]: C0x009f.0x0.0
0x1faad4…1fac68 [0x10]: C0x009f.0x1.0
0x1faad4…1fac68 [0x11]: C0x009f.0x2.0
0x1faad4…1fac68 ]
0x1faad4…1fac68 }
0x1fac68…1fadfc Dummy {f00=0x009b, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 11.0 81-04-14 870105041100 P : P =8, REL 11.0 81-02-27 B < P =8, IBM ,MMU AND IO TO SYSTEM AREA NO CODE CONVERSION b P =7, REL 11.0 81-02-23 8 P =7, CRN UPDATED EVEN IF ERROR FOR SEQUENTIAL READ P =6, REL
0x1fadfc…1faf90 Dummy {f00=0x009b, f01=0x0190, f02=»CHANGED CORRRECT z P =4, REL 11.0 81-02-18 * P =4, IBM VOLUME NAME NOT READ TO DWT 8 P =3, REL 11.0 81-01-27 f 8 P =3, IBM,LOAD ORDER, DATA SET SECTOR NBR IN ECBCW1 P =2, REL 11.0 81-01-26 . P =2, NOT OP. GIVEN IF WRONGLY STRAPT
0x1faf90…1fb124 Dummy {f00=0x009b, f01=0x0190, f02=» P* " P* PHILIPS TERMINAL SYSTEM PTS P* 4 ( P* DRFD01 = DRIVER FOR FLEXIBLE DISK > P* j P* t P* ~ P* P* P* 2 P********************************************* P* P* 0 P* THIS DISK DRIVER HAND
0x1fb124…1fb2b8 Dummy {f00=0x009b, f01=0x0190, f02=»TIPLEX OR PROGRAMMED CHANNEL P* $ P* . P EJECT DRFD01 8 P* P P* ORDERS: Z P* l P* /00 TEST STATUS v P* /01 PHYSICAL READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- P* /05 BASIC WRI
0x1fb2b8…1fb44c Dummy {f00=0x009b, f01=0x018e, f02=» x P* /21 OPEN P* /22 CLOSE P* /24 WRITE DELETED DATA 0 P* /26 LOCK T D P* /31 REWIND -IBM DISC ONLY- j P* /37 LOAD P* /38 UNLOAD P* P* ENTRY PARAMETERS: P*
0x1fb44c…1fb5e0 Dummy {f00=0x009b, f01=0x0190, f02=» P* P*********** P* * " P* ENTRIES * 6 P* * J P*********** ^ P* r $ P ENTRY FDADR ACTIVATION ADDRESS | " P ENTRY IHFD INTERRUPT HANDLER P ENTRY FDON RECOVERY ROUTINE P ENTRY DWFD01 DWT-ADDRESS
0x1fb5e0…1fb774 (1, 486) Dummy {f00=0x009b, f01=0x0190, f02=»******* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO : P EXTRN DISIOE REQUEST ERROR V * P EXTRN DISEND PERFORM TENDIO AND TDISP z $ P EXTRN VOLCLR CLEAR VOLUME NAME & P EXTRN VOLNAM VOLUME NAME ADDRESS 0 P EXTRN VOLGET
0x1fb774…1fb908 Dummy {f00=0x009b, f01=0x0190, f02=»DRESS | " P EXTRN DWTUEC USER ECB ADDRESS $ P EXTRN DWTOR DWT INDEX AND ORDER 4 ( P EXTRN DWTORD ORDER/INDEX SAVE AREA P EXTRN DWTTAB TTAB ADDRESS P EXTRN DWTA2 SAVE AREA A2 & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN TTB:MT MMU
0x1fb908…1fba9c Dummy {f00=0x009b, f01=0x0190, f02=»FPOST PWF POST PROC. FLAG & P EXTRN TASCII EBCDIC TO ASCII TAB " & P EXTRN TEBCDIC ASCII TO EBCDIC TAB L 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE v $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL
0x1fba9c…1fbc30 Dummy {f00=0x009b, f01=0x0190, f02=» P************************ P* * ( P* CONDITIONAL ASSEMBLY * H P* * h P************************ P* . P* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED P* CHANNEL BY SETTING X:A = 0 P
0x1fbc30…1fbdc4 Dummy {f00=0x009b, f01=0x0190, f02=» TOSS EQU 1. x P* PX:B EQU 0 PTOSS EQU X:B 0 P* D 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT N ( P* IS OBTAINED BY SETTING IBM EQU 1. P* PX:C EQU 0 PIBM EQU X:C P* . P* A PROGRAM VERSION USING TOSS
0x1fbdc4…1fbf58 Dummy {f00=0x009b, f01=0x018e, f02=»USING THE EXTENDED INSTRUCTION | . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. & P* X PCPU852 EQU 1 b P* v P EJECT DRFD01 P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE U
0x1fbf58…1fc0ec Dummy {f00=0x009b, f01=0x0190, f02=» P* P* MMU BUFFER SIZE P* . P* 8 P IFT MMUPAG=0 B PDVBLEN EQU 256 X P XIF n P* z P IFT MMUPAG=1 PX:E EQU 256 PDVBLEN EQU X:E P XIF P* P* P* MMU DEVICE INDEX P*
0x1fc0ec…1fc280 Dummy {f00=0x009b, f01=0x0190, f02=»S * P* * P************* " P* 8 & PCUADR EQU 09 CONTROL UNIT ADDRESS B & PMUXADR EQU CUADR+CUADR MUX-ADDRESS l ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS PSECLEN EQU 128 SECTOR LENGTH & PMAXSEC EQU 2002 MAX SECTOR NUMBER
0x1fc280…1fc414 (1, 487) Dummy {f00=0x009b, f01=0x0190, f02=» n $ PEOD EQU 74 END OF DATA POSITION PTIME EQU 20 DELAY - POWER ON 0 & POPENTI EQU 10 DELAY AT OPEN ORDERS T P* ~ $ PDIXTAB EQU * DOUBLE INDEX TABLE P DATA /0102 P DATA /0408 P* P EJECT DRFD01 P* P****
0x1fc414…1fc5a8 Dummy {f00=0x009b, f01=0x018e, f02=»LEN MMU BUFFER SIZE P XIF P* ( P IFT CHAN=0 2 P IFT IBM=0 F " P DATA 0 INDICATE NO MMU BUFFER X P XIF ~ P* P DATA DEVIND DEVICE INDEX & PFDADR DATA FDAD ACTIVATION ADDRESS " P DATA 0 ABORT ROUTINE ADDRESS P*
0x1fc5a8…1fc73c Dummy {f00=0x009b, f01=0x0190, f02=» P*************** P* PTESTST EQU * & P IFF IBM+TOSS=0 : P CF A15,NVLCHK R " P STR A1,A6 SAVE NVL INDICATOR h P XIF P* P LDKL A2,/FFF9 BIO DUMMY P CF A5,FD:WRI P ANK A1,1 $ P RF(NZ) DIS:EN DISC NOT OPER
0x1fc73c…1fc8d0 Dummy {f00=0x009b, f01=0x0190, f02=» NAME x , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 > P CF A15,VOLNAM V P RF FORM70 END:IO l P XIF P* P IFT TOSS+IBM=0 P ABL END:RC P XIF P* P EJECT DRFD01 P* P**********
0x1fc8d0…1fca64 Dummy {f00=0x009b, f01=0x0190, f02=» P* PFORMAT EQU * P CF A15,NVLCHK " P ADK A1,0 8 , P RF(NZ) DIS:EN ERROR: NEW VOLUME LOADED J P LDK A2,36 CLEAR VOLUME NAME z PFORM10 EQU * P CM BUF,A2 P SUK A2,2 P RB(NN) FORM10 . P CF A15,VOLCLR CLEAR VOLUME
0x1fca64…1fcbf8 Dummy {f00=0x009b, f01=0x018e, f02=» RF(NZ) FORM50 IBM DISC , P LDKL A1,'TO' WRITE TOSS IN VOLUME LABEL P ST A1,BUF+32 P P LDKL A1,'SS' f P ST A1,BUF+34 | P IFT IBM=1 " P C1 A1,DWTA3,A6 INDICATE TOSS P ANS A1,DWTLAB,A6 P XIF P RF FORM60 P*
0x1fcbf8…1fcd8c Dummy {f00=0x009b, f01=0x0190, f02=» P LDKL A1,/E5D6 VO IN EBCDIC P STR A1,A4 ( P LDKL A1,/D3F1 L1 IN EBCDIC : P ST A1,BUF+2 ^ P IFT IBM=1 r P LD A1,DWTA3,A6 INDICATE IBM P ORS A1,DWTLAB,A6 P XIF P LDK A2,/31 BIO P LDK A3,36 LENGTH PFORM60 E
0x1fcd8c…1fcf20 Dummy {f00=0x009b, f01=0x0190, f02=» P* * P* ACTIVATION * P* * 0 P************** F P* PFDAD EQU * ACTIVATION ENTRY f P IFT MMUPAG=1 P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P
0x1fcf20…1fd0b4 (1, 488) Dummy {f00=0x009c, f01=0x0190, f02=»DEX z P* P IFT OPCLOS=1 P* , & P* CHECK IF OPEN OR CLOSE ORDER 6 P* ` P LDR A1,A7 ORDER j P SUK A1,/21 P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P
0x1fd0b4…1fd248 Dummy {f00=0x009c, f01=0x0190, f02=» ONE TO BIT l 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* J " P LDKL A1,/8000 MASK FOR BIT 0 T & P ORS A1,SPDLCI SET OPEN/CLOSE BIT z P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P
0x1fd248…1fd3dc Dummy {f00=0x009c, f01=0x0190, f02=»EGISTER. j P* POPEN EQU * " P LD A1,DWTTP2,A6 TIMER POINTER , P RF(NZ) OPEN20 TIMER ACTIVE R " P LDKL A1,/7FFF MASK FOR BIT 0 v ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT P* POPEN10 EQU * 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/
0x1fd3dc…1fd570 Dummy {f00=0x009c, f01=0x0190, f02=» TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER POINTER ADDRESS P LDR A1,A6 SAVE DWT-ADDR J P CF A15,SETIMP WAIT j . P DATA OPENRE,OPENTI START ADDR, WAIT TIME POPEN20 EQU * P ABL TDISP EXIT P* POPENRE EQU * P LDR A
0x1fd570…1fd704 Dummy {f00=0x009c, f01=0x0190, f02=»ISP p P XIF P* P EJECT " P* 0 & P* PUT DRIVE NO IN CIO-INSTRUCTION : P* d PFD:ORD EQU * n P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK P* P IFT IBM+TOSS=2 P AN A2,DWTLAB,A6 ( P SC
0x1fd704…1fd898 Dummy {f00=0x009c, f01=0x018e, f02=» P* P LDR A3,A7 P RB(Z) TESTST TEST STATUS P* B P IFT IBM=0 L P SUK A3,31 ^ P RB(Z) FORMAT FORMAT VOLUME p P SUK A3,7 " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 P ABL(NP) LOAD LOAD/UNLOAD P XIF
0x1fd898…1fda2c Dummy {f00=0x009c, f01=0x0190, f02=» P SUK A3,3 P RF(Z) INTEST BASIC WRITE P SUK A3,1 8 " P RF(Z) IBMCHK SEQUENTIAL WRITE J P SUK A3,25 p P RB(Z) FORMAT FORMAT VOLUME P SUK A3,7 & P RF(N) INTEST PHYSICAL READ/WRITE P SUK A3,11 P RF(Z) IBMCHK REWIND
0x1fda2c…1fdbc0 Dummy {f00=0x009c, f01=0x0190, f02=»FIB,A6 & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF 8 P* D P IFT TOSS=0 N P IFT IBM=1 b " P ABL IBMDSK IBM DISC HANDLING t P XIF P* P EJECT DRFD01 P* P* $ PREQERR ABL DISIOE REQUEST ERROR P*
0x1fdbc0…1fdd54 (1, 489) Dummy {f00=0x009c, f01=0x0190, f02=»ORM TENDIO AND GO TO TDISP P* " P EJECT DRFD01 , P* B P* INPUT PARAMETER CHECK L P* l PINTEST EQU * v P IFF TOSS+IBM=0 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED P ADK A1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED
0x1fdd54…1fdee8 Dummy {f00=0x009c, f01=0x0190, f02=»L A2,DVBLEN+DVBLEN CHECK MMU BUFFER SIZE P CWK A2,512 0 P RF(NL) INTES3 SUFFICIENT D P CWR A3,A2 f & P RB(G) INCLEN MMU BUFFER TOO SMALL x PINTES3 EQU * P XIF ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT IN
0x1fdee8…1fe07c Dummy {f00=0x009c, f01=0x018e, f02=»ER p P* P IFT IBM+TOSS=2 P LD A4,DWTFIB,A6 , P RF(NZ) INTES5 IBM-DISC D P XIF d P* p P IFT TOSS=1 z P LDR A4,A3 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL
0x1fe07c…1fe210 Dummy {f00=0x009c, f01=0x0190, f02=» P XIF ! * P LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER ! P RB(N) REQERR REQUEST ERROR ! > P SUKL A4,MAXSEC ! b P RB(NN) REQERR REQUEST ERROR ! z P ADR A4,A3 ! " P RB(P) INCLEN INCORRECT LENGTH ! , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS ! 2 P S
0x1fe210…1fe3a4 Dummy {f00=0x009c, f01=0x0190, f02=» ! P IFT MMUPAG=1 " P LCR A2,A8 " P ANK A2,/30 " 0 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS " D P XIF " | P* " P EJECT DRFD01 " P* " P* MULTIPLE SECTOR IO ENTRY " P* " PFD:000 EQU * " P IFT MMUPAG=1 "
0x1fe3a4…1fe538 Dummy {f00=0x009c, f01=0x0190, f02=»3 " P SUK A3,4 # & P RF(NN) FD:005 FOUR PHYS. SEC. IO # P* # F PFD:003 SUK A2,128 # P P SUK A4,1 # j P ADK A3,1 # | P RB(NZ) FD:003 # P* # PFD:005 EQU * # . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC # ( P ST A2,DWTRL,A6 UPDA
0x1fe538…1fe6cc Dummy {f00=0x009c, f01=0x0190, f02=»PAG=1 # P IFF CHAN+IBM=0 $ " P LD A2,DWTBA,A6 BUFFER ADDRESS $ & P LD A1,DWT:BF,A6 $ L , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA $ d P LDR A3,A2 $ P RF(NN) FD:009 $ 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED $ P RF(N) FD:009 NO $
0x1fe6cc…1fe860 Dummy {f00=0x009c, f01=0x0190, f02=»LL A1,2 $ P ORR A1,A3 % 2 P SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS % " ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY % X P SC A1,DWT:PA+2,A6 % P ANKL A2,/FFF % P LDR A1,A2 % ( P ORK A1,1 INDICATE ADDRESS NOT ZERO % P* % 8 PFD:009 ST A1
0x1fe860…1fe9f4 (1, 490) Dummy {f00=0x009c, f01=0x0190, f02=»/3F ORDER % P SUK A1,1 & P RF(Z) FD:060 BASIC READ & $ P SUK A1,4 & D P RF(Z) FD:015 BASIC WRITE & V P SUK A1,12 & x P RF(Z) FD:060 PHYSICAL READ & P SUK A1,4 & P RF(Z) FD:013 PHYSICAL WRITE & * P SUK A1,15 CHECK IF WRITE DELETED DA
0x1fe9f4…1feb88 Dummy {f00=0x009c, f01=0x0190, f02=»AL AND BASIC WRITE ORDERS & r P* ' " & P LDK A4,1 WRITE DELETED DATA ORDER ' , & PFD:013 EQU * PHYSICAL WRITE ORDER ' V P ADK A4,4 ' " PFD:015 EQU * BASIC WRITE ORDER ' P ADK A4,1 ' " P CF A5,BIO PREPARATION FOR CIO ' P* ' P IFT MMUPAG=1
0x1feb88…1fed1c Dummy {f00=0x009c, f01=0x0190, f02=»PAG=1 ' P IFF CHAN+IBM=0 ( 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( & ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA ( ^ P LDR A7,A3 REQUESTED LENGTH ( P LDR A8,A2 SAVE A2 ( & P LDKL A4,BUF DRIVER BUFFER ADDRESS ( P LDR A2,A4 ( & P TS
0x1fed1c…1feeb0 Dummy {f00=0x009c, f01=0x0190, f02=» TL -30,A15 RESTORE MMU FROM STACK ( P LDR A2,A8 RESTORE A2 ) * 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA ) H PFD:019 EQU * ) | P XIF ) P* ) P IFT TOSS+IBM=2 ) P LD A1,DWTFIB,A6 ) P RF(Z) FD:018 NOT IBM ) P XIF ) P* )
0x1feeb0…1ff044 Dummy {f00=0x009c, f01=0x0190, f02=»CT DRFD01 ) P* * P* * " P CF A5,FD:WRITE PERFORME WRITE * ( * P ANKL A3,/200 CHECK IF WRITE PROTECTED * N P RF(Z) FD:020 * | P LDK A3,/40 INDICATE ERROR * , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE * PFD:020 EQU * * P RF FD:100 GOTO
0x1ff044…1ff1d8 Dummy {f00=0x009c, f01=0x0190, f02=»* * * P***************** + P* + 4 PFD:060 CF A5,BIO + > P* + V P IFT MMUPAG=1 + ` P IFT CHAN=0 + v P IFT TOSS+IBM=2 + P LD A1,DWTFIB,A6 + P RF(Z) FD:070 TOSS DISC + & P LDKL A4,BUF DRIVER BUFFER ADDRESS + 0 P CM
0x1ff1d8…1ff36c Dummy {f00=0x009c, f01=0x0190, f02=»A1,DWT:LA,A6 + ( P RF(Z) FD:080 BUFFER IN SYSTEM AREA , & P LDKL A4,BUF DRIVER BUFFER ADDRESS , @ 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA , j P XIF , P* , P IFT MMUPAG=1 , P IFT IBM=1 , P IFT TOSS+CHAN=0 , & P LDKL A4,BUF DRIVER
0x1ff36c…1ff500 Dummy {f00=0x009c, f01=0x0190, f02=»M READ , | P* - P IFT TOSS+IBM=2 - P LD A1,DWTFIB,A6 - 0 P RF(Z) FD:090 NOT IBM - H P XIF - f P* - r P IFT IBM=1 - | P IFT MMUPAG=0 - ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS - P XIF - P* - P IFT IBM=1 - P LD A7,DWTRL,A6
0x1ff500…1ff694 (1, 491) Dummy {f00=0x009c, f01=0x0190, f02=»WTBA,A6 BUFFER ADDRESS =8 - * P CF A5,ASC:00 CONVERT EBCDIC-ASCII =8 . " P RF FD:090 =8 . P PFD:085 EQU * =8 . f P XIF =8 . ~ P IFT IBM=1 =8 . P CF A5,ASCII =8 . PFD:090 EQU * . P XIF . P* . P EJECT DRFD01 . P* .
0x1ff694…1ff828 Dummy {f00=0x009c, f01=0x0190, f02=»IF . P* / P IFT MMUPAG=1 / P IFF CHAN+IBM=0 / * 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS / B ( P RF(Z) FD:100 BUFFER IN SYSTEM AREA / z $ P LD A7,DWTRL,A6 REQUESTED LENGTH / ( P LDKL A1,BUF GET DWT BUFFER ADDRESS / & P TS -30,A15 SA
0x1ff828…1ff9bc Dummy {f00=0x009c, f01=0x0190, f02=»5 RESTORE MMU FROM STACK / P XIF 0 PFD:100 EQU * 0 , P ABL FDMSIO 0 @ P* 0 T P EJECT DRFD01 0 ^ P* 0 v P******** 0 P* * 0 P* LOAD * 0 P* * 0 P******** 0 P* 0 PLOAD EQU * 0 P ADK A3,0 CHECK ORDER CODE 0
0x1ff9bc…1ffb50 Dummy {f00=0x009c, f01=0x0190, f02=»LOCK 0 t P* 1 PLOAD00 EQU * 1 P LDK A2,/14 LOCK 1 * P CF A5,FD:REA 1 B P ANK A3,1 1 X & P RF(NZ) LOA:80 ENDIO NOT OPERABLE 1 j P* 1 P IFT TOSS+IBM=2 1 P LD A1,DWTFIB,A6 1 P RF(Z) LOA:70 TOSS DISC 1 P XIF 1 P* 1 P IFT
0x1ffb50…1ffce4 Dummy {f00=0x009c, f01=0x0190, f02=» CHECK RETURN CODE 1 P EJECT DRFD01 2 P* 2 2 P* READ DATA SET LABEL 2 < P* 2 Z & P LD A2,ECBCW1,A8 SECTOR NUMBER =3 2 d P SUK A2,7 2 P RF(N) LOA:85 REQUEST ERROR 2 P SUK A2,18 2 P RF(P) LOA:85 REQUEST ERROR 2 P ADK A2,25 2
0x1ffce4…1ffe78 Dummy {f00=0x009c, f01=0x018e, f02=») LOA:60 NOT NO DATA 2 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL 3 PLOA:60 EQU * 3 P P CF A5,LD:RC 3 d P ENB 3 x . P LD A3,ECBCW1,A8 DATA SET LABEL SECTOR =3 3 P LDK A1,DWTDSS 3 P CF A5,STDWT SAVE IN DWT 3 P ADK A4,BOE BOE ADDRESS 3
0x1ffe78…20000c Dummy {f00=0x009c, f01=0x0190, f02=» P LDK A1,DWTCRN 4 P CF A5,STDWT 4 P ADK A4,EOE-BOE EOE ADDRESS 4 . P CF A5,LOGSEC 4 R P LDK A1,DWTEOE 4 h $ P CF A5,STDWT STORE EOE NO IN DWT 4 ~ P ADK A4,EOD-EOE EOD ADDRESS 4 P CF A5,LOGSEC 4 F P INH INHIBIT INTERRUPTS
0x20000c…2001a0 Dummy {f00=0x009c, f01=0x0190, f02=»400 4 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE 5 P* 5 < PLOA:70 EQU * 5 F P XIF 5 Z P LD A2,DWTA3,A6 5 f " P ORS A2,DWTLC,A6 INDICATE LOCK 5 ~ PLOA:80 EQU * 5 P ABL END:RC 5 P* 5 P IFT IBM=1 5 PLOA:85 EQU * 5 P LDK A1,/80
0x2001a0…200334 (1, 492) Dummy {f00=0x009d, f01=0x018e, f02=» IFF TOSS+IBM=0 5 P* 6 P* ERROR , UNLOCK 6 " P* 6 < PLOA:90 EQU * 6 F P LDR A5,A6 6 Z P ADKL A5,DWTSB2 STACK BASE 6 l P LDK A2,/C UNLOCK 6 P CF A5,FD:REA 6 P RB LOA:80 6 P* 6 P* LD:RC SUBROUTINE 6 P* 6 PLD:RC
0x200334…2004c8 Dummy {f00=0x009d, f01=0x0190, f02=» P* 7 P EJECT DRFD01 7 P* 7 & P********** 7 0 P* * 7 B P* UNLOAD * 7 T P* * 7 f P********** 7 x P* 7 PUNLOAD EQU * 7 P IFT IBM=1 7 P* 7 P* DATA SET OPEN 7 P* 7 P CF A5,DSOPCH A1,AFFECTED 7
0x2004c8…20065c Dummy {f00=0x009d, f01=0x0190, f02=» READ DATA SET LABEL TO DRIVER BUFFER 7 P* 8 . P CF A5,DSLIO PREPARE FOR I/O 8 8 & P CF A5,FD:REA READ DATA SET LABEL 8 $ P CF A5,UNL:RC RETURN CODE CHECK 8 P ENB 8 P* 8 < P* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) 8 P* 8
0x20065c…2007f0 Dummy {f00=0x009d, f01=0x0190, f02=» UNL:20 8 P ADK A1,1 9 P RB UNL:10 9 " P* 9 4 P EJECT DRFD01 9 > P* 9 V P* 9 ` PUNL:20 ADK A7,27 9 j P* 9 P* A1 = BINARY TRACK NO 9 * P* A7 = SECTOR NO WITHIN TRACK (0-25) 9 P* 9 ( P CF A5,BINDEC TRANSFORM SEC.NO TO A3
0x2007f0…200984 Dummy {f00=0x009d, f01=0x0190, f02=»BUFFER 9 | P LDR A7,A1 TRACK : ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 : & P SUK A4,3 : R P STR A3,A4 TRACK INTO BUF : d F P INH INHIBIT INTERRUPTS INHIBIT : P* : P* WRITE DATA SET LABEL : P* : P CF
0x200984…200b18 Dummy {f00=0x009d, f01=0x0190, f02=»ODE : t P CF A5,DSOPCH ; P CMR A2 INDICATE NOT OPEN ; " P* ; D P EJECT DRFD01 ; N P* ; f P* UNLOCK ; p P* ; P XIF ; PUNL:70 EQU * ; P LDK A2,/C UNLOCK ; P CF A5,FD:REA ; P ANK A3,1 ; P RB(NZ) LOA:80 NOT OPERA
0x200b18…200cac Dummy {f00=0x009d, f01=0x018e, f02=»BM=1 ; P* < P* UNLOAD RETURN CODE CHECK < P* < : PUNL:RC EQU * < D P ANKL A3,/207 < X P RF(Z) RTN:A5 NO RETURN CODE < n P ANKL A3,/200 < & P RF(Z) RTN:A5 NOT WRITE PROTECTED < P CF A5,DSOPCH < P ADK A7,0 SET CR (CHECK EOD) <
0x200cac…200e40 Dummy {f00=0x009d, f01=0x0190, f02=» P* = P EJECT DRFD01 = P* = & P* = 0 ( PIBMDSK EQU * IBM DISK HANDLING ENTRY = : P IFT IBM=1 = f . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED = x P ADK A1,0 = & P ABL(NZ) END:IO NEW VOLUME LOADED = P CF A5,DSOPCH GET EOD = P ADK
0x200e40…200fd4 (1, 493) Dummy {f00=0x009d, f01=0x0190, f02=»D REWIND FILE = * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH > P IFT MMUPAG+CHAN=2 > D P CWK A3,DVBLEN+DVBLEN > ^ ( P ABL(G) INCLEN MMU BUFFER TOO SMALL > | P XIF > P IFT IBM=1 > P SUK A3,SECLEN > $ P ABL(NZ) INCLEN INCORRECT LENGTH > P ADK
0x200fd4…201168 Dummy {f00=0x009d, f01=0x0190, f02=»JECT DRFD01 > P* ? P******************* ? P* SEQUENTIAL READ * ? < P******************* ? X P* ? t . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN ? ~ P LDR* A3,A2 CRN ? P ADK A3,1 CRN+1 ? ( P ST A3,ECBCW2,A8 STORE CRN+1 IN ECB ?
0x201168…2012fc Dummy {f00=0x009d, f01=0x0190, f02=» P CF A5,BIOSQ @ 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 @ P* @ N P IFT MMUPAG=0 @ X ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS @ n P XIF @ P* @ P IFT IBM=1 @ P LDK A7,SECLEN @ $ P CF A5,ASCII TRANSFORM TO ASCII @ P* @
0x2012fc…201490 Dummy {f00=0x009d, f01=0x0190, f02=»DRESS @ x P TL TTB:MT,A7 LOAD MMU TABLE A & P LDKL A1,BUF DRIVER BUFFER ADDRESS A 2 & P LD A2,DWTUEC,A6 USER ECB ADDRESS A ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS A P LDK A7,SECLEN LENGTH A ( P MVSU A7 MOVE SECTOR TO USER BUFFER A , P TL -30,A15
0x201490…201624 Dummy {f00=0x009d, f01=0x0190, f02=»ABLE =7 A ~ P RF SQW:10 UPDATE CRN B P* B . P* END OF DATA B 8 P* B P $ PSQR:10 LDKL A1,/1000 RETURN CODE B Z P RF END:IO B P* B P EJECT DRFD01 B P* B P******************* B P* SEQUENTIAL WRITE * B P****************
0x201624…2017b8 Dummy {f00=0x009d, f01=0x0190, f02=»O ADDRESS TO A2 B ~ , P ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. C P CWK A7,MAXIBM C H P RF(P) FD:DIS REQUEST ERROR C ^ P CWR* A7,A2 C P RF(G) ENDEOE END OF EXTENT C P* C P IFT MMUPAG=1 C ( P TS -30,A15 SAVE RUNNING TASK'S MMU C " P L
0x2017b8…20194c Dummy {f00=0x009d, f01=0x0190, f02=»UFFER ADDRESS C z & P LDKL A2,BUF DRIVER BUFFER ADDRESS D P LDK A7,SECLEN LENGTH D @ * P MVUS A7 MOVE SECTOR TO DRIVER BUFFER D ^ , P TL -30,A15 RESTORE MMU TABLE FROM STACK D P XIF D P* D P IFT IBM=1 D P LDK A4,5 BIO WRITE D P CF A5,B
0x20194c…201ae0 Dummy {f00=0x009d, f01=0x0190, f02=»F A5,FD:WRI D " P SRL A1,3 IF BIT 6 SET THEN =7 E P ANK A1,/40 SET BIT 9 =7 E : 0 P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE =7 E Z P CF A5,DSOPCH E PSQW:10 EQU * E 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE E P RF(NZ) END:RC E * P IMR
0x201ae0…201c74 (1, 494) Dummy {f00=0x009d, f01=0x0190, f02=» PFD:DIS EQU * F P ABL DISIOE REQUEST ERROR F P* F : P EJECT DRFD01 F D P* F P********** F f P* REWIND * F x P********** F P* F PREWIND EQU * F P LDR A3,A2 SAVE EOD ADDRESS F P LDK A1,DWTBOE F P CF A5,DSPAD F P
0x201c74…201e08 Dummy {f00=0x009d, f01=0x018e, f02=» BOE -1 F P LDK A1,0 RETURN CODE G P RF END:IO G . P XIF G @ P* G L P EJECT DRFD01 G V P* G n P***************** G x P* * G P* PERFORM ORDER * G P* * G P***************** G P* G P* G
0x201e08…201f9c Dummy {f00=0x009d, f01=0x0190, f02=» G PFD:WRI EQU * H P IFT CHAN=0 H P LDKL A1,/C000 WORDS,WRITE H 0 P XIF H R P IFT CHAN=1 H ^ " P LDK A1,0 INDICATOR WRITE MODE H r P XIF H P RF FD:800 H P* H PFD:REA EQU * H P IFT CHAN=1 H P LDK A1,1 READ MODE H P XIF
0x201f9c…202130 Dummy {f00=0x009d, f01=0x0190, f02=»O WORDS H z P* I P EJECT DRFD01 I P* I 2 P* I < P IFT MMUPAG=1 I F 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO I ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA I 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS I P ECR A7,A7 I P ORR
0x202130…2022c4 Dummy {f00=0x009d, f01=0x0190, f02=»ER A4,MUXADR+1 SECOND WER I P XIF J " P IFT CHAN=1 J . P* J B P EJECT DRFD01 J L P* J d . P* PUT BUFFER START AND END ADDRESS IN DWT J n P* J " P ST A1,DWTRW,A6 INDICATE MODE J P ST A4,DWTUB,A6 J P ADR A3,A4 J " P ST A3,DWTUBE,
0x2022c4…202458 Dummy {f00=0x009d, f01=0x0190, f02=»SET J l 0 PFD:CIO EQU * LABEL USED FOR CHANGE OF CUADR K P CIO A2,1,CUADR CIO START K @ ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN K b P RF T:DISP K P* K P EJECT DRFD01 K P* K * P************************************* K P* K < P* F
0x202458…2025ec Dummy {f00=0x009d, f01=0x018e, f02=»******* K r P* L PFDMSIO EQU * L & P IM DWTCW2,A6 UPDATE SECTOR NUMBER L . P LDR* A1,A6 RETURN CODE L X & P ANK A1,/7F GET ERROR RETURN CODE L x P RF(NZ) END:RC L 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE L $ P ADS A2,DWTCW2,A6 UPDATE DWT
0x2025ec…202780 Dummy {f00=0x009d, f01=0x0190, f02=» P IFT MMUPAG=1 M & P LD A4,DWTBA,A6 GET BUFFER POINTER M $ P ADR A2,A4 UPDATE BUFFER POINTER M D P ST A2,DWTBA,A6 M l & P RF(N) FDMSI1 NOT PASSED 64K LIMIT M P ADK A4,0 M ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT M P LDK A2,/10 M & P ADS A2,
0x202780…202914 (1, 495) Dummy {f00=0x009d, f01=0x018e, f02=» M j P XIF N 2 P ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO N P* N J P EJECT DRFD01 N T P* N l P********** N v P* * N P* END:IO * N P* * N P********** N P* N P IFT IBM=1 N $ PENDEOE EQU * END OF EXTENT E
0x202914…202aa8 Dummy {f00=0x009d, f01=0x0190, f02=» PEND:IO EQU * O P CF A15,TENDIO O PT:DISP ABL TDISP O . P* O F $ PEND:30 EQU * CU ADDRESS UNKNOWN O P P LDK A1,1 NOT OPERABLE O x & P ORS A1,DWTST,A6 RECOVERY DONE =1 O P RB END:IO O P EJECT DRFD01 O P* O P********************
0x202aa8…202c3c Dummy {f00=0x009d, f01=0x0190, f02=»QU * O P IFT CPU852=1 P & P CF A15,SAVE8 SAVE A1-A8 ON STACK P " P XIF P L P* P X P IFT CPU852=0 P b " P MSR 8,A15 SAVE A1-A8 ON STACK P x P XIF P P* P P LDKL A6,DWFD01 DWT ADDRESS P 4 P LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1
0x202c3c…202dd0 Dummy {f00=0x009d, f01=0x0190, f02=» LD A4,DWTTP,A6 P P RF(Z) FDON10 NO TIMER SET Q P LDKL A4,-TIME Q : " P ST* A4,DWTTP,A6 RESTART TIMER Q P P RB T:DISP Q v PFDON10 LDK A4,DWTTP Q P ADR A4,A6 Q P LDR A1,A6 SAVE A6 Q P CF A15,SETIMP Q P DATA FDON20,TIME Q P* Q
0x202dd0…202f64 Dummy {f00=0x009d, f01=0x0190, f02=»L A5,DWTSB2 Q P ADR A5,A6 GET STACK BASE R P* R 6 6 PFDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE R @ P IFT MMUPAG=1 R z P IFT CHAN=0 R $ P CM BUFFLG,A6 RESET BUFFER FLAG R P XIF R P* R P IFF TOSS+IBM=0 R 4 P IM DWTST2,A6
0x202f64…2030f8 Dummy {f00=0x009d, f01=0x0190, f02=» NAME R P* S PFDONLD EQU * S $ P SC A3,DWTOR,A6 GET VOLUME NAME S , & P LC A4,DIXTAB,A3 DRIVE INDEX MASK S T P SC A4,DWTA3+1,A6 SAVE IT S ~ P CF A5,SETCIO S P LDK A2,/14 S P CF A5,FD:REA LOCK S P ANK A3,1 S P RF(Z) FDON19 OPER
0x2030f8…20328c Dummy {f00=0x009d, f01=0x0190, f02=»ON19 EQU * S P CF A5,VO:NAM T & P LDKL A2,/FBFF RESET IBM IND. BIT T ( , P ANRS A2,A6 UPDATE TEMPORARY RETURN CODE T R PFDON21 EQU * T P LDK A2,/C T P CF A5,FD:REA UNLOCK T P LDK A3,0 T , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. T P S
0x20328c…203420 Dummy {f00=0x009d, f01=0x018e, f02=»A6 INDICATE VOLUME NAMES READ T P* U & P IFT OPCLOS=1 U 0 P* U F P EJECT U P P* U ^ : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING U h P* U " P LD A4,DWTTP2,A6 TIMER POINTER U P RF(Z) FDON09 NOT RUNNING U P CMR A4 STOP TIM
0x203420…2035b4 (1, 496) Dummy {f00=0x009e, f01=0x0190, f02=» P* V 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS V & P LDKL A2,/8000 OPEN/CLOSE BIT MASK V D $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG V n P ORS A2,DWTOCF,A6 SAVE V ( P XRRS A2,A4 SET STATUS WORD TO OPEN V P LDR* A2,A4 V & P OTR A2,0,SOPDA SET
0x2035b4…203748 Dummy {f00=0x009e, f01=0x018e, f02=»2,1 V PFDON25 EQU * W " P LD A1,DWTLC,A6 LOCK INDICATOR W P ANR A1,A2 W F P RF(Z) FDON30 NOT LOCKED W X P ST A2,DWTA3,A6 SAVE W x P* W P EJECT W P* W P* PUT DRIVE NO IN CIO INSTR W P* W P SRN A2,A3 DRIVE NO IN A3 W * P C
0x203748…2038dc Dummy {f00=0x009e, f01=0x0190, f02=» W P RF(Z) FDON30 OK X $ P XRS A2,DWTLC,A6 INDICATE UNLOCK X PFDON30 EQU * X H P SLL A2,1 X P CWK A2,/0010 X n P RB(NE) FDON25 X P* X P IFT OPCLOS=1 X P* X D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF X
0x2038dc…203a70 Dummy {f00=0x009e, f01=0x0190, f02=»I OPEN/CLOSE STATUS X 0 P OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED Y P XIF Y P P* Y P EJECT Y f P* Y t P* ANY REQUEST Y ~ P* Y P CM DWTA2,A6 RESET FDON FLAG Y PFDON60 EQU * Y P LD A8,DWTECB,A6 Y 0 P ABL(Z) END:IO NO REQUEST,
0x203a70…203c04 Dummy {f00=0x009e, f01=0x0190, f02=»,DWTOR,A6 RESTORE INDEX AND ORDER Y ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH Z * P ANK A7,/3F ORDER Z V P ABL FDAD REACTIVATE Z p P* Z P EJECT DRFD01 Z P* Z P******************** Z P* * Z P* READY INTERRUPT * Z
0x203c04…203d98 Dummy {f00=0x009e, f01=0x0190, f02=»ROUTINE ACTIVE Z x P LDKL A5,DWTSB2 [ P ADR A5,A6 STACK BASE [ . P* [ L P IFT TOSS+IBM=0 [ V P RB FDON60 [ n P XIF [ P* [ P IFF TOSS+IBM=0 [ 4 P LDKL A3,/7FFE SET UNIT BUSY AND RECOVERY ON =1 [ P ANS A3,DWTST,A6 =6 [ P RB FD
0x203d98…203f2c Dummy {f00=0x009e, f01=0x0190, f02=»* [ | P* INTERRUPT HANDLER * P* * ( P********************* F P* d PIHFD EQU * n $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 * P CF A15,SAVE8 SAVE REGISTERS ON STACK P XIF P* P IFT C
0x203f2c…2040c0 Dummy {f00=0x009e, f01=0x0190, f02=» & P LD A1,DWTUB,A6 GET BUFFER POINTER ] " P LD A2,DWTUBE,A6 END OF BUFFER ] 2 P SUR A2,A1 LENGTH ] X PIH005 EQU * ] r P SST A3,CUADR GET STATUS ] " P RF(A) IH:000 READY INTERRUPT ] P LD A3,PFPOST ] , P RF(NZ) IHDISP POST PROCESSING FLAG SE
0x2040c0…204254 (1, 497) Dummy {f00=0x009e, f01=0x0190, f02=»0 EQU * ] $ P LDR* A3,A1 ONE WORD FROM BUFFER ^ P OTR A3,0,CUADR WRITE ^ 8 P RB(NA) IH005 ^ V $ P ADK A1,2 UPDATE BUFFER POINTER ^ l P SUK A2,2 ^ P RB(P) IH010 ^ P CIO A2,0,CUADR CIO HALT ^ PIHDISP EQU * ^ P ABL TDISP GOTO DISPATCHER
0x204254…2043e8 Dummy {f00=0x009e, f01=0x0190, f02=»UPDATE BUFFER POINTER ^ P SUK A2,2 _ P RB(P) IH050 _ 0 P CIO A2,0,CUADR CIO HALT _ D P SST A3,CUADR STATUS _ d P RB(NA) *-2 _ PIH:000 EQU * _ P INH _ P XIF _ P* _ P EJECT DRFD01 _ P* _ P* _ P IFT CHAN=0 _
0x2043e8…20457c Dummy {f00=0x009e, f01=0x0190, f02=» A3,1 NOT OPERABLE =2 _ PIH:00 EQU * =2 ` P XIF ` 6 P LD A8,DWTECB,A6 ECB ADDRESS ` B " P LD A5,DWTA5,A6 STACK POINTER ` f P LDR A2,A3 STATUS ` P SLL A2,1 ` P RB(N) FDRE READY INTERRUPT ` P LD A2,DWTRTY,A6 RETRY ` P RF(Z) IH:10 N
0x20457c…204710 Dummy {f00=0x009e, f01=0x0190, f02=» ` t P ORK A3,4 a PIH:10 EQU * a P* a . P EJECT DRFD01 a 8 P* a P & P* TRANSFORM RETURN CODE, CU - ECB a Z P* a P ANKL A3,/FF37 a P RF(Z) IH:80 a P LDR A1,A3 a " P ANKL A3,/0A05 UNCHANGED BITS a P ECR A4,A3 a P ANK A
0x204710…2048a4 Dummy {f00=0x009e, f01=0x0190, f02=»L A4,/0400 BIT 5 a P SLC A4,7 TO BIT 14 b P ORR A3,A4 b 4 P* b F P IFT TOSS+IBM=0 b P P LDR A4,A1 b h P ANKL A4,/2000 BIT 2 b z P SLL A4,1 TO BIT 1 b P ORR A3,A4 b P XIF b P* b P LDR A4,A1 b P ANK A4,/20 BIT 10 b P SLL
0x2048a4…204a38 Dummy {f00=0x009e, f01=0x018e, f02=»RY RETURN CODE b v P ANKL A3,/F7FF c PIH:80 EQU * c , P LDR A1,A3 c @ P RTN A5 c R P* c b P EJECT DRFD01 c l P* c 0 P******************************************* c 0 P* * c 0 P* S U B R O U T
0x204a38…204bcc Dummy {f00=0x009e, f01=0x0190, f02=» P* d P******* d P* * d P* BIO * d . P* * d > P******* d N P* d ^ P* INPUT: A8 ECB ADDRESS d h P* A4 ORDER d P* d > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START d 0 P* A3 NO OF
0x204bcc…204d60 Dummy {f00=0x009e, f01=0x0190, f02=» ( P SLL A1,3 PUT IN RIGHT BIO POSITION e 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO e 0 P SRC A2,2 e j P ORR A2,A1 COMPLETE BIO e | & P ADR A2,A4 COMPLETE BIO WITH ORDER e " P LD A4,DWTBA,A6 BUFFER ADDRESS e $ P LD A3,DWTRL,A6 GET REQ. LEN
0x204d60…204ef4 (1, 498) Dummy {f00=0x009e, f01=0x0190, f02=»BIOSQ * e P* * f P***************** f 0 P* f J P* INPUT: A8 ECB ADDRESS f T P* A4 ORDER f v P* f > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START f 0 P* A3 NO OF BYTES TO BE TRANSFE
0x204ef4…205088 Dummy {f00=0x009e, f01=0x0190, f02=» ( P SLL A2,3 PUT IN RIGHT BIO POSITION g & P ADR A2,A4 COMPLETE BIO WITH ORDER g 0 P* g Z P IFT MMUPAG=0 g d & P LD A4,ECBBA,A8 GET BUFFER ADDRESS g z P XIF g P* g P IFT IBM=1 g P IFT MMUPAG=1 g & P LDKL A4,BUF DRIVER BUFFER ADDRESS g
0x205088…20521c Dummy {f00=0x009e, f01=0x0190, f02=» g P* h P****************** h P* VO:NAM * h , P****************** h F P* h ` P* h j PVO:NAM EQU * h t P IFT TOSS+IBM=2 h P LDK A3,36 LENGTH h P XIF h P* h P IFT TOSS=1 h P IFT IBM=0 h P LDK A3,6 VOLUME N
0x20521c…2053b0 Dummy {f00=0x009e, f01=0x018e, f02=» P ANK A3,/17 FATAL ERROR i P RF(NZ) VOL:40 i $ P IFT IBM=1 i : P LD A2,BUF+32 i L P CWK A2,'TO' i b P RF(NE) VOL:10 IBM DISC i v P LD A2,BUF+34 GET NEXT WORD i P CWK A2,'SS' i P RF(NZ) VOL:10 IBM DISC i PVOL:05 EQU * i " P C1 A1
0x2053b0…205544 Dummy {f00=0x009e, f01=0x0190, f02=» i P IFT TOSS=1 j P LDKL A2,BUF j P IFT IBM=1 j 0 P RF VOL:20 j B P XIF j T P* j ` P IFT IBM=1 j j PVOL:10 EQU * j | P LDK A3,10 LENGTH j P LDK A2,/30 BIO j & P LDKL A4,BUF+10 READ TO BUF+10FER j P CF A5,FD:REA j P ANK A
0x205544…2056d8 Dummy {f00=0x009e, f01=0x0190, f02=» P RB(NE) VOL:05 NOT IBM k P LD A2,BUF+12 k " P CWK A2,/D3F1 L1 k 8 P RB(NE) VOL:05 NOT IBM DISC k P P XIF k t P IFT IBM=1 k P* =4 k & P LD A1,DWTA3,A6 DRIVE NO BIT MASK k " P ORS A1,DWTLAB,A6 INDICATE IBM k P LDKL A1,/400 k , P
0x2056d8…20586c Dummy {f00=0x009e, f01=0x0190, f02=»A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII k P LDKL A2,BUF+14 =5 l 2 P XIF l N P* l Z P EJECT DRFD01 l d P* l | P* l PVOL:20 EQU * l P IFF TOSS+IBM=0 l P LDK A3,/F8 FILE CODE l P LD A1,DWTST2,A6 l " P RF(NZ) VOL:30 NOT TES
0x20586c…205a00 Dummy {f00=0x009e, f01=0x0190, f02=»A8,DWTECB,A6 l P LDK A3,0 m PVOL:40 EQU * m & P RTN A5 m : P XIF m J P* m V P IFT IBM=1 m ` P EJECT DRFD01 m r P* m P********* m P* ASCII * m P********* m P* m : P* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC
0x205a00…205b94 (1, 499) Dummy {f00=0x009e, f01=0x0190, f02=» A4 = BUFFER ADDRESS m P* OUTPUT: A1 CHANGED n P* A4 = BUFFER ADDRESS n B P* A7 CHANGED n d P* n PASCII EQU * n P IFT MMUPAG=1 n & P LDKL A4,BUF DRIVER BUFFER ADDRESS n P XIF n P* n P IFT IBM=1 n
0x205b94…205d28 Dummy {f00=0x009e, f01=0x0190, f02=» A1,/FF n ( P LC A1,TASCII,A1 TRANSFORM TO ASCII o 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER o < P SUK A7,1 o p P RB(P) ASC:10 o P RF EBC:90 o P* o P EJECT DRFD01 o P* o P********** o P* EBCDIC * o P********** o
0x205d28…205ebc Dummy {f00=0x009e, f01=0x0190, f02=»ING IS PUT IN DRIVER BUFFER o x P* p $ & P* INPUT: A7 NO OF CHARACTERS p . P* A4 = BUFFER ADDRESS p X P* p z P* OUTPUT: A1 CHANGED p P* A4 = BUFFER ADDRESS p P* A7 CHANGED p PEBCDIC EQU * p P ENB p
0x205ebc…206050 Dummy {f00=0x009e, f01=0x0190, f02=» p P SUK A4,1 q P LCR A1,A4 GET ASCII CHAR. q P ANK A1,/FF q < P LC A1,TEBCDIC,A1 q P P SC A1,BUF-1,A7 q j P SUK A7,1 q P RB(P) EBC:10 q & P LDKL A4,BUF DRIVER BUFFER ADDRESS q PEBC:90 EQU * q P INH INHIBIT INTERRUPTS q P
0x206050…2061e4 Dummy {f00=0x009e, f01=0x0190, f02=» LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD q , P* LOGICAL SECTOR (BINARY). r 8 < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) r h * P* TT = TRACK, SS=SECTOR r P* r , P* INPUT: A4 ADDRESS TO PHYS. SECTOR
0x2061e4…206378 Dummy {f00=0x009e, f01=0x0190, f02=» P CF A5,DECBIN s P LDR A3,A1 SAVE s P ADK A4,2 s 2 P* s D P* MULTIPLY BY 26 s N P* s h P SLL A3,5 *32 s r P LDR A2,A1 s P SLL A2,2 s P SUR A3,A2 *28 s P SLL A1,1 s P SUR A3,A1 *26 s P CF A5,DECBIN s P SUK A1,
0x206378…20650c Dummy {f00=0x009e, f01=0x0190, f02=» s P RF(NP) LOG:10 t P CWK A4,BUF+EOD+4 EOD t P RF(E) LOG:02 YES! t < P SUKL A1,1898 t V P RF LOG:04 t l P* t ~ " P* CHECK EOD LESS/EQUAL 74001 t P* t PLOG:02 SUKL A1,1899 t PLOG:04 EQU * t " P RF(P) LOG:10 NOT ACC SEC. NO t
0x20650c…2066a0 Dummy {f00=0x009e, f01=0x0190, f02=»ER t n " PLOG:10 LDK A1,/10 RETURN CODE u , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE u 0 P INH INHIBIT INTERRUPTS u ` P ABL LOA:90 ERROR ROUTINE u P* u P EJECT DRFD01 u P* u P********** u P* DECBIN* u P********** u P* u
0x2066a0…206834 (1, 500) Dummy {f00=0x009f, f01=0x0190, f02=» u P , P* INPUT: A4 ADDRESS TO FIRST DIGIT v P* OUTPUT: A1 BINARY v 8 P* WORKING REG: A2,A7 v V P* v v PDECBIN LDK A1,0 v P LDK A7,2 v PDEC:10 LCR A2,A4 DIGIT v P ANK A2,/FF v P SUK A2,/F0 v P RB(N) LOG:05 v P S
0x206834…2069c8 Dummy {f00=0x009f, f01=0x0190, f02=»GIT v r PDEC:20 SUK A2,1 w P RB(N) DEC:10 NEXT DIGIT w $ P ADK A1,/A MULTIPLY BY 10 w D P RB DEC:20 w f PDEC:30 ADR A1,A2 w x P RTN A5 w P XIF w P* w P EJECT DRFD01 w P* w P********** w P* SETCIO * w P********** w
0x2069c8…206b5c Dummy {f00=0x009f, f01=0x0190, f02=» P* x P* OUTPUT: A3 CHANGED x P* A4 CHANGED x , P* x J PSETCIO LDKL A4,/FFCF x T P ANS A4,FD:CIO x p P SLL A3,4 x P ORS A3,FD:CIO x P RTN A5 x P IFT IBM=1 x P* x P EJECT DRFD01 x P* x P********** x
0x206b5c…206cf0 Dummy {f00=0x009f, f01=0x018e, f02=»ODED DIGITS (DECIMAL) x z P* y P* INPUT: A7 BINARY NUMBER y ( P* y L . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS y V P* A7 CHANGED y P* y PBINDEC LDK A3,0 y PBIN:10 SUK A7,10 y P RF(N) BIN:20 y P ADK A3,1 y P
0x206cf0…206e84 Dummy {f00=0x009f, f01=0x0190, f02=» y r P RTN A5 z P* z P EJECT DRFD01 z " P********* z : P* DSLIO * z L P********* z ^ P* z p 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL z z P* z P* INPUT: A6 DWT ADDRESS z P* z : P* OUTPUT: A2 BITS 0-12 SECTOR
0x206e84…207018 Dummy {f00=0x009f, f01=0x018e, f02=»* A1 IS CHANGED z P* { " PDSLIO LDK A1,DWTDSS { , P CF A5,DSPAD { H P LDR* A2,A2 { P SLL A2,3 { p P LDK A3,128 { P LDKL A4,BUF { P RTN A5 { P* { P EJECT DRFD01 { P* { P********** { P* DSOPCH * {
0x207018…2071ac Dummy {f00=0x009f, f01=0x0190, f02=» { P* OUTPUT: A2 EOD ADDRESS | , P* A7 EOD-NO (0=NOT OPEN) | * P* A1 CHANGED | Z PDSOPCH LDK A1,DWTEOD | x P CF A5,DSPAD | P LDR* A7,A2 EOD-NO | P RTN A5 | P* | P EJECT DRFD01 | P* | P*********
0x2071ac…207340 Dummy {f00=0x009f, f01=0x018e, f02=»R CORRESPONDING DRIVE | t P* } P* INPUT: A1 DWT OFFSET } ( P* A6 DWT ADDRESS } J P* } l " P* OUTPUT: A2 ADDRESS TO DATA } v P* A6 DWT ADDRESS } P* } " PDSPAD LC A2,DWTOR,A6 DRIVE NO } P ANK A2,/3 } P ADR A2,
0x207340…2074d4 (1, 501) Dummy {f00=0x009f, f01=0x0190, f02=» } P********* ~ P* ~ : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF ~ $ P* DRIVE NO ~ b P* ~ ( P* INPUT: A1 OFFSET TO DWT AREA ~ . P* A3 WORD TO BE STORED IN DWT ~ P* A6 DWT ADDRESS ~
0x2074d4…207668 Dummy {f00=0x009f, f01=0x0190, f02=» A6 UNCHANGED ~ P* PSTDWT EQU * * P CF A5,DSPAD > P STR A3,A2 R P RTN A5 d P XIF t P* P EJECT DRFD01 P* " P* D R I V E R B U F F E R P* PBUF EQU * P IFT IBM=1 P RES DVB
0x207668…2077fc Dummy {f00=0x009f, f01=0x0190, f02=» RES DVBLEN-3 MMU BUFFER P XIF P* , P IFT TOSS+IBM=0 6 P IFT MMUPAG+CHAN=2 N P RES DVBLEN MMU BUFFER h P XIF P* P EJECT DRFD01 P* P********************* P* * P* DEVICE WORK
0x2077fc…207990 Dummy {f00=0x009f, f01=0x0190, f02=»N CODE r P DATA 0 P DATA /8000 DWT STATUS P DATA 0 ECB ADDRESS < P DATA 0 ORDER X " P DATA FDADR ACTIVATION ADDRESS n P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMU
0x207990…207b24 Dummy {f00=0x009f, f01=0x0190, f02=» P DATA 0 P DATA 0 SAVE AREA P DATA 0 . P DATA 0 > " P DATA 0,0,0,0 STACK (3 LEVELS) N P DATA 0 ORDER SAVE AREA t P* P EJECT DRFD01 P* P* P IFF TOSS+IBM=0 P DATA /8000 NVL INDICATOR 0 P D
0x207b24…207cb8 Dummy {f00=0x009f, f01=0x0190, f02=»E NO 0 r P DATA /FFFF,/FFFF,/FFFF ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 . P DATA /FFFF,/FFFF,/FFFF Z ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 z P DATA /FFFF,/FFFF,/FFFF ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 P DATA /FFFF,/FFFF,/FFF
0x207cb8…207e4c Dummy {f00=0x009f, f01=0x0190, f02=»-DWFD01 RETRY REQUEST FLAG P DATA 0 " $ PDWTTP EQU *-DWFD01 TIMER POINTER 2 P DATA 0 Z P* j P EJECT DRFD01 t P* P* P IFT IBM=1 , PDWTLAB EQU *-DWFD01 DISC LABEL INDICATOR P DATA 0 P XIF P* , P
0x207e4c…207fe0 Dummy {f00=0x009f, f01=0x0190, f02=»EN h P DATA 0 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON P DATA 0 R P XIF b P* n P EJECT DRFD01 x P* P* P IFT CHAN=1 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER P DATA 0 , PDWTUBE
0x207fe0…208174 (1, 502) Dummy {f00=0x009f, f01=0x0190, f02=» P IFT IBM=1 , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT P DATA 0,0,0,0 J $ PDWTEOD EQU *-DWFD01 END OF DATA ` P DATA 0,0,0,0 & PDWTEOE EQU *-DWFD01 END OF EXTENT P DATA 0,0,0,0 * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO
0x208174…208308 Dummy {f00=0x009f, f01=0x0190, f02=» P* P* & PDWTBA EQU *-DWFD01 BUFFER POINTER P DATA 0 F ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO V P DATA 0 & PDWTCW2 EQU *-DWFD01 SECTOR NUMBER P DATA 0 . PDWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER P DATA 0
0x208308…20849c Dummy {f00=0x009f, f01=0x0190, f02=»INDICATOR x P DATA 0 P XIF " P* . P EJECT DRFD01 8 P* P P* Z P IFT MMUPAG=1 d PDWT:BF EQU *-DWFD01 z $ P DATA 0 SAVE AREA BUFFER ADDRESS PBUFFLG EQU *-DWFD01 P DATA 0 P* P IFF CHAN+IBM=0
0x20849c…208630 Dummy {f00=0x009f, f01=0x40d0, f02=»D01 * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS P XIF : P* F P IFT MMUPAG=1 P PDEVECB EQU * f P DATA 0,0,0,0,0,0,0 z P XIF P* P* P* P END @ 1 P DATA 0 P* P IFF CHAN+IBM=0
0x208630…2087c4 Dummy {f00=0x009f, f01=0x2008, f02=» END @
0x2087c4…208958 Dummy {f00=0x009f, f01=0x0190, f02=» A14 b P EJECT c < P******************************************************** c < P* * c Z < P* HEXCNV CONVERTS A HEXADECIMAL DIGIT IN ASCII CODE * c < P* TO CORRESPONDING HEXADECIMAL VALUE
0x208958…208aec Dummy {f00=0x009f, f01=0x0190, f02=» * c Z < P* ON ENTRY: A1 CHARACTER TO CONVERT * d < P* * d J < P* ON EXIT: A1 CONVERTED CARACTER * d < P* * d <
0x208aec…208c80 Dummy {f00=0x009f, f01=0x0190, f02=»TER d v P CWK A1,/29 e P RF(L) TYPERR ERRANEOUS TYPE e P* e D " P CWK A1,/40 DIGIT BETWEEN 0-9? e N P RF(L) HXCN00 YES! e t & P RF(E) TYPERR NO NEXADECIMAL DIGIT e P* e " P CWK A1,/46 DIGIT BETWEEN A-F? e P RF(G) TYPERR NO e P* e
0x208c80…208e14 (1, 503) Opaque[0x194]
0x208e14…208fa8 # DirEnt {nam=»DRFD02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13f8, f03=0x0000}
0x208e14…208fa8 IdxSect {
0x208e14…208fa8 f00 = 0x009f // 0x208e14 @0x0
0x208e14…208fa8 f01 = 0x0022 // 0x208e16 @0x2
0x208e14…208fa8 gno = [ // 0x208e18 @0x4
0x208e14…208fa8 [0x00]: C0x009f.0x3.0
0x208e14…208fa8 [0x01]: C0x00a0.0x0.0
0x208e14…208fa8 [0x02]: C0x00a0.0x1.0
0x208e14…208fa8 [0x03]: C0x00a0.0x2.0
0x208e14…208fa8 [0x04]: C0x00a0.0x3.0
0x208e14…208fa8 [0x05]: C0x00a1.0x0.0
0x208e14…208fa8 [0x06]: C0x00a1.0x1.0
0x208e14…208fa8 [0x07]: C0x00a1.0x2.0
0x208e14…208fa8 [0x08]: C0x00a1.0x3.0
0x208e14…208fa8 [0x09]: C0x00a2.0x0.0
0x208e14…208fa8 [0x0a]: C0x00a2.0x1.0
0x208e14…208fa8 [0x0b]: C0x00a2.0x2.0
0x208e14…208fa8 [0x0c]: C0x00a2.0x3.0
0x208e14…208fa8 [0x0d]: C0x00a3.0x0.0
0x208e14…208fa8 [0x0e]: C0x00a3.0x1.0
0x208e14…208fa8 [0x0f]: C0x00a3.0x2.0
0x208e14…208fa8 [0x10]: C0x00a3.0x3.0
0x208e14…208fa8 ]
0x208e14…208fa8 }
0x208fa8…20913c Dummy {f00=0x009f, f01=0x0190, f02=» 2 P IDENT DRFD02 REL 11.0 81-02-27 870105041100 P : P =4, REL 11.0 81-02-18 B , P =4, CRN UPDATED FOR SEQ READ IF ERROR b P =3, REL 11.0 81-01-27 " P =3, DATA SET NBR IN ECBCW1 P =2, REL 11.0 81-01-26 $ P =2, NOT OP. I
0x20913c…2092d0 Dummy {f00=0x009f, f01=0x018e, f02=»********************************************** P* 6 " P* PHILIPS TERMINAL SYSTEM PTS @ P* f ( P* DRFD02 = DRIVER FOR FLEXIBLE DISK p P* P* P* P* P* P* 2 P*********************************************
0x2092d0…209464 Dummy {f00=0x009f, f01=0x0190, f02=» 4 P* CONNECTED TO CPU VIA CHANNEL UNIT F1MZ/B ON P* MULTIPLEX CHANNEL < P* X P* b P EJECT DRFD02 l P* P* ORDERS: P* P* /00 TEST STATUS P* /01 PHYSICAL READ B P* /02 SEQUENTIAL READ
0x209464…2095f8 Dummy {f00=0x009f, f01=0x0190, f02=» /11 PHYSICAL READ P* /15 PHYSICAL WRITE P* /1F FORMAT VOLUME < P* /24 WRITE DELETED DATA X P* /26 LOCK | D P* /31 REWIND -IBM DISC ONLY- P* /37 LOAD P* /38 UNLOAD P
0x2095f8…20978c Dummy {f00=0x009f, f01=0x0190, f02=»CB-ADDRESS P EJECT DRFD02 P* * P*********** 4 P* * H P* ENTRIES * P* * p P*********** P* $ P ENTRY FDADR ACTIVATION ADDRESS " P ENTRY IHFD INTERRUPT HANDLER P ENTRY FDON RECOVERY ROU
0x20978c…209920 Dummy {f00=0x009f, f01=0x0190, f02=»* P* * P************* P* 6 . P EXTRN INXDWT INDEXED DISPLACEMENT IN DWT @ P EXTRN TDISP DISPATCHER r P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR * P EXTRN DISEND PERFORM TENDIO AND TDISP $ P EXTRN V
0x209920…209ab4 (1, 504) Dummy {f00=0x00a0, f01=0x0190, f02=»CHK CHECK FOR NEW VOLUME LOADED EXTRN DWTST STATUS ( EXTRN DWTECB ECB ADDRESS D $ EXTRN DWTOR DWT INDEX AND ORDER f ( P EXTRN DWTORD ORDER/INDEX SAVE AREA & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK
0x209ab4…209c48 Dummy {f00=0x00a0, f01=0x0190, f02=»SCII TO EBCDIC TAB $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH B & P EXTRN ECBEL ECB EFFECTIVE LENGTH l $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EJECT DRFD02 P* P
0x209c48…209ddc Dummy {f00=0x00a0, f01=0x0190, f02=»**************** P* P* " 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT , ( P* IS OBTAINED BY SETTING TOSS EQU 1. b P* PX:A EQU 1 PTOSS EQU X:A P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAI
0x209ddc…209f70 Dummy {f00=0x00a0, f01=0x0190, f02=»ODE CONVERSION d > P* ASCII-EBCDIC IS OBTAINED BY SETTING ASCEBC EQU 0 P* X PX:C EQU 1 b PASCEBC EQU X:C t P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU
0x209f70…20a104 Dummy {f00=0x00a0, f01=0x0190, f02=»IS OBTAINED BY SETTING CPU852 EQU 0. P* , PCPU852 EQU 1 6 P* J P* T ( P* ANTI ASCEBC CONDITIONAL ASSEMBLY ^ P* P IFT ASCEBC=1 PEBCASC EQU 0 P XIF P IFT ASCEBC=0 PEBCASC EQU 1 P XIF P*
0x20a104…20a298 Dummy {f00=0x00a0, f01=0x0190, f02=»* P* PDEVIND EQU 10 DEVICE INDEX & PCUADR EQU 09 CONTROL UNIT ADDRESS 6 & PMUXADR EQU CUADR+CUADR MUX-ADDRESS ` ( PBOE EQU 28 BEGIN OF EXTENT POSITION & PEOE EQU 34 END OF EXTENT POSITION $ PEOD EQU 74 END OF DATA POSITION P
0x20a298…20a42c Dummy {f00=0x00a0, f01=0x0190, f02=» READ | " POR:SER EQU /02 SEQUENTIAL READ POR:BAW EQU /05 BASIC WRITE 4 $ POR:SEW EQU /06 SEQUENTIAL WRITE V POR:PHR EQU /11 PHYSICAL READ ~ " POR:PHW EQU /15 PHYSICAL WRITE POR:FOV EQU /1F FORMAT VOLUME & POR:DDW EQU /24 WRITE DELETED
0x20a42c…20a5c0 Dummy {f00=0x00a0, f01=0x0190, f02=» P EJECT DRFD02 P* P* $ P* RETURN CODES . P* F P* P & PRC:RET EQU /100 RETRIES PERFORMED Z PRC:NOD EQU /804 NO DATA PRC:NOP EQU 1 NOT OPERABLE $ PRC:ILE EQU /8008 ILLEGAL LENGTH " PRC:REQ EQU /8000 REQUEST E
0x20a5c0…20a754 (1, 505) Dummy {f00=0x00a0, f01=0x0190, f02=»ITE PROTECTED ~ PRC:FOR EQU /800 FORMAT * PRC:IDS EQU /10 ILLEGAL DATA SET LABEL 4 4 PMS:128 EQU 2002 MAX SECTOR NUMBER FORMAT (128-1) b 6 PMS:256 EQU 4004 MAX SECTOR NUMBER FORMAT (256-2D) ( PIN:WE1 EQU /8080 1ST WER INSTRUCTION $ PIN:LCK E
0x20a754…20a8e8 Dummy {f00=0x00a0, f01=0x0190, f02=»R t $ PEBC:VO EQU /E5D6 EBCDIC FOR 'VO' $ PEBC:L1 EQU /D3F1 EBCDIC FOR 'L1' 2 P EJECT DRFD02 Z P* r P********** | P* * P* TABLES * P* * P********** P* P DATA 0 P DATA DEVIND DEVICE INDE
0x20a8e8…20aa7c Dummy {f00=0x00a0, f01=0x0190, f02=»******** P* TESTST * P********** " P* 4 P* TEST STATUS ORDER > P* P* f PTESTST EQU * p P CF A15,NVLCHK " P ORS A1,DWTRC,A6 NVL INDICATOR P CM DWTSEC,A6 READ SECTOR 0 , P CF A5,REAPRB PREPARE FOR READ TO BU
0x20aa7c…20ac10 Dummy {f00=0x00a0, f01=0x0190, f02=» A1,DWTRC,A6 WRITE PROTECTED $ P LDK A1,/80 INDICATE TEST STATUS $ P SC A1,DWT:FC,A6 L , P CF A5,VO:NAM GET VOLUME NAME AND STATUS d " P ORS A1,DWTRC,A6 FORMAT TO RC P ANK A1,/7 P RF(NZ) TEST50 ERROR 6 P CF A15,VOLNAM VOLUME NAME TO BU
0x20ac10…20ada4 Dummy {f00=0x00a0, f01=0x0190, f02=»D02 P* P************** P* * , P* ACTIVATION * B P* * X P************** n P* PFDAD EQU * ACTIVATION ENTRY & P CM DWTRC,A6 CLEAR RC ACCUMELATOR 2 P CF A5,GETPAR GET DEVICE DEPENDENT PARAMETER
0x20ada4…20af38 Dummy {f00=0x00a0, f01=0x0190, f02=»TBA,A6 18 BIT BUFFER ADDRESS P XIF $ P IFT MMUPAG=0 0 " P LD A1,ECBBA,A8 BUFFER ADDRESS F P ST A1,DWTBA,A6 l P XIF ( P LD A2,DWTOR,A6 SAVE INDEX AND ORDER P ST A2,DWTORD,A6 , P LDKL A1,IN:WE1-/80 1ST WER INSTRUCTION P*
0x20af38…20b0cc Dummy {f00=0x00a0, f01=0x0190, f02=» P SUK A3,OR:BAR-OR:TES P RF(Z) READ BASIC READ & P SUK A3,OR:BAW-OR:BAR D P RF(Z) WRITE BASIC WRITE b P SUK A3,OR:PHR-OR:BAW P RF(Z) READ PHYSICAL READ P SUK A3,OR:PHW-OR:PHR P RF(Z) WRITE PHYSICAL WRITE P SUK
0x20b0cc…20b260 Dummy {f00=0x00a0, f01=0x0190, f02=» A3,OR:LCK-OR:DDW P ABL(Z) LOCKDO LOCK P SUK A3,OR:LOD-OR:LCK 6 P ABL(Z) LOAD LOAD T P SUK A3,OR:ULD-OR:LOD n P ABL(Z) UNLOAD UNLOCK P XIF P* P IFT IBM=1 P SUK A3,OR:BAR-OR:TES P RF(Z) READ BASIC READ
0x20b260…20b3f4 (1, 506) Dummy {f00=0x00a0, f01=0x0190, f02=» SUK A3,OR:SEW-OR:BAW $ P ABL(Z) SQWRIT SEQUENTIAL WRITE P SUK A3,OR:PHR-OR:SEW F P RF(Z) READ PHYSICAL READ d P SUK A3,OR:PHW-OR:PHR P RF(Z) WRITE PHYSICAL WRITE P SUK A3,OR:FOV-OR:PHW P ABL(Z) FORMAT FORMAT VOLUME
0x20b3f4…20b588 Dummy {f00=0x00a0, f01=0x0190, f02=» A3,OR:REW-OR:LCK P ABL(Z) REWIND REWIND P SUK A3,OR:LOD-OR:REW 8 P ABL(Z) LOAD LOAD V P SUK A3,OR:ULD-OR:LOD p P ABL(Z) UNLOAD UNLOAD P XIF P* P EJECT DRFD02 P* P* PREQERR EQU * P ABL DIS
0x20b588…20b71c Dummy {f00=0x00a0, f01=0x0190, f02=» P********** P* DDWRIT * P* WRITE * , P* READ * > P********** P P* b * P* WRITE DELETED DATA , WRITE AND READ l P* P* PDDWRIT EQU * P LDKL A3,/800 CIO REGISTER PWRITE EQU * P ADK A3,/1 CIO R
0x20b71c…20b8b0 Dummy {f00=0x00a0, f01=0x0190, f02=»NEW VOLUME LOADED x P ADK A1,0 . P RB(NZ) TEST50 NEW VOLUME LOADED : END IO , P* ^ P EJECT DRFD02 h P* ~ P* P LD A4,DWTFOR,A6 FORMAT $ P LD A1,ECBRL,A8 REQUESTED LENGTH P RB(Z) ER:ILE ILLEGAL LENGTH " P LD A2,ECB
0x20b8b0…20ba44 Dummy {f00=0x00a0, f01=0x0190, f02=»LLEGAL SECTOR NUMBER P ST A1,DWTRL,A6 SAVE LENGTH P LDR A3,A1 @ $ P SRL A3,7 NUMBER OF 128 SECTORS R P SRC A4,2 FORMAT z P RF(N) TRA500 FORM: (256-2D) P IFT TOSS+IBM=2 P SLC A4,1 P RF(N) TRA300 IBM FORMATED P XIF
0x20ba44…20bbd8 Dummy {f00=0x00a0, f01=0x018e, f02=»NL) REQERR ILLEGAL SECTOR NUMBER P RF TRA400 ( PTRA300 EQU * : P XIF N P IFT IBM=1 Z P SLL A1,1 l " P ADK A3,78 SPARE TRACK SECTORS ~ , P CWK A2,MS:128-78 MAX IBM SECTOR NUMBER ( P RB(NL) REQERR ILLEGAL SECTOR NUMBER PTRA400 E
0x20bbd8…20bd6c Dummy {f00=0x00a0, f01=0x0190, f02=» P* P* PTRA500 EQU * P IFT TOSS+IBM=2 , P SLC A4,1 D P RF(N) TRA525 IBM FORMATTED V P XIF z P IFT TOSS=1 P CWK A2,13 " P RF(NL) TRA550 NOT TRACK ZERO $ P SLL A2,1 PHYSICAL SECTOR NUMBER P RF TRA600
0x20bd6c…20bf00 Dummy {f00=0x00a0, f01=0x0190, f02=»ER n P CWK A2,26 P RF(NL) TRA530 P SLL A1,1 2 $ P ADR A3,A2 END OF BUFFER SECTOR D P SUK A3,26 l P RF(N) TRA600 TRACK ZERO ~ P ANK A3,1 ODD OR EVEN " P RB(NZ) ER:ILE ILLEGAL LENGTH PTRA530 EQU * $ P SRL A3,1 NUMBER O
0x20bf00…20c094 (1, 507) Dummy {f00=0x00a0, f01=0x0190, f02=» P SRL A3,1 P XIF P* & P EJECT DRFD02 0 P* F P* P PTRA590 EQU * Z " P ADR A3,A2 LAST SECTOR NUMBER n $ P CWK A3,MS:256 MAX SECTOR NUMBER " P RB(G) ER:ILE INCORRECT LENGTH PTRA600 EQU * P ANK A1,/FF "
0x20c094…20c228 Dummy {f00=0x00a0, f01=0x0190, f02=» P LDR A1,A2 P LDK A2,0 P LDKL A3,/D00 26 SHIFTED ( PDVK26A EQU * H P SLL A2,1 P SUR A1,A3 n P RF(NN) DVK26B P ADR A1,A3 P RF DVK26C PDVK26B EQU * P ADK A2,1 PDVK26C EQU * P SRC A3,1 P C
0x20c228…20c3bc Dummy {f00=0x00a0, f01=0x0190, f02=»DK A4,0 P XIF P RF(N) IOR100 (256-2D) P SLL A2,1 : P* L P EJECT DRFD02 V P* l P* v PIOR100 EQU * . P ST A1,DWTSEC,A6 SECTOR NUMBER ON CYLINDER $ P SC A2,DWTSEC,A6 CYLINDER NUMBER PIOR200 EQU * P IFT T
0x20c3bc…20c550 Dummy {f00=0x00a0, f01=0x018e, f02=»FT IBM+ASCEBC=2 " P LD A3,DWTIOR,A6 GET IO ORDER ! P RF(NZ) IOR220 WRITE ORDER ! > P CF A5,CIOI00 PERFORM READ ! ` P LDR A3,A1 SAVE RETURN CODE ! , P CF A5,ASCMOV TRANSFORM AND MOVE TO USER ! P LDR A1,A3 GET RETURN CODE ! P RF(NZ) ENDIOR R
0x20c550…20c6e4 Dummy {f00=0x00a0, f01=0x0190, f02=» ! d P CF A5,CIOI00 WRITE ON DISC " P RF(NZ) ENDIOR ERROR " , P LC A1,DWTOR+1,A6 GET ORDER " H P SUK A1,/15 " l ( P RF(NE) IOR230 NOT READ AFTER WRITE " P CF A5,CIOIVF VERIFY " P RF(NZ) END:IO ERROR " PIOR230 EQU * " " P CF A5,GETLEN GE
0x20c6e4…20c878 Dummy {f00=0x00a0, f01=0x0190, f02=»=1 " P XIF # P IFF TOSS+EBCASC=0 # P* # 0 P EJECT DRFD02 # : P* # P P* # Z PIOR250 EQU * TOSS DISC # d ( P LD A3,DWTSEC,A6 START SECTOR NUMBER # P ECR A2,A3 # P ANK A3,/FF SECTOR NUMBER # P NGR A3,A3 26-A3 # P ADK A3,26 #
0x20c878…20ca0c Dummy {f00=0x00a0, f01=0x0190, f02=») IOR260 (128-1) # " P SLL A3,1 LENGTH LEFT ON TRACK $ PIOR260 EQU * $ > P SLL A3,6 WORD MODE $ R P LD A4,DWTRL,A6 REST OF IO $ n P SRL A4,1 WORD MODE $ P CWR A3,A4 $ P RF(L) IOR275 $ & P LDR A3,A4 REST OF TRACK IN ONE IO $ PIOR275 EQU
0x20ca0c…20cba0 Dummy {f00=0x00a0, f01=0x0190, f02=»:WR PERFORM READ/WRITE $ $ P RF(NZ) END:IO READ/WRITE ERROR % P LC A1,DWTOR+1,A6 GET ORDER % F P SUK A1,/15 % j ( P RF(NE) IOR300 NOT READ AFTER WRITE % ~ P CF A5,CIO:VF PERFORM VERIFY % P RF(NZ) END:IO VERIFY ERROR % P* % P EJECT DRFD
0x20cba0…20cd34 (1, 508) Dummy {f00=0x00a1, f01=0x0190, f02=»TOR 0 % ~ P ST A2,DWTSEC,A6 SECTOR ID & 0 P LD A2,DWTWE1,A6 GET LENGTH OF PERFORMED IO & 0 P SLL A2,4 & d P SRL A2,3 CHARACTERS & v PIOR400 EQU * & P XIF & P & " P ADS A2,ECBEL,A8 UPDATE ECBEL & P NGR A3,A2 & P IFT MMUPAG=1 & P
0x20cd34…20cec8 Dummy {f00=0x00a1, f01=0x018e, f02=»2,DWTBA,A6 & P XIF ' P ADS A3,DWTRL,A6 ' $ P RB(NZ) IOR200 NEXT TRACK/SECTOR ' 6 P LDK A1,0 RESET RETURN CODE ' ^ PENDIOR EQU * ' P RF END:IO REQUEST READY ' P* ' P EJECT DRFD02 ' P* ' P********** ' P* FORMAT * ' P****
0x20cec8…20d05c Dummy {f00=0x00a1, f01=0x0190, f02=» ' f $ P CF A5,WRIPRE PREPARE FOR WRITE ( P LDK A2,36 ( 0 PFORM10 EQU * ( B P CM FD:BUF,A2 CLEAR BUFFER ( V P SUK A2,2 ( x P RB(NN) FORM10 ( , P CF A15,VOLCLR CLEAR VOLUME NAME IN DWT ( P LDKL A1,'TO' ( P LDKL A2,'SS' ( . P LDKL A4,FD:
0x20d05c…20d1f0 Dummy {f00=0x00a1, f01=0x0190, f02=»CATOR ( r P RF(Z) FORM40 TOSS ) P CM DWTSEC,A6 WRITE SECTOR 0 ) ( P CF A5,CIOI00 ) L $ P LDK A3,IN:IBM INDICATE IBM DISC ) b P ORS A3,DWTFOR,A6 ) P LDKL A1,EBC:VO 'VO' ) P LDKL A2,EBC:L1 'L1' ) P LDK A3,6 WRITE SECTOR 6 ) * P LDKL A4,FD:
0x20d1f0…20d384 Dummy {f00=0x00a1, f01=0x0190, f02=»F A5,CIOI00 WRITE SECTOR ) P* * P EJECT DRFD02 * * P* * @ P* * J P********** * T P* END:IO * * f P********** * x P* * P* * P* * PEND:IO EQU * * 0 P CF A5,SETPAR SET DISC DEPENDENT PARAMETERS * $ P OR A1,DWTRC,A6 GET COLL
0x20d384…20d518 Dummy {f00=0x00a1, f01=0x0190, f02=»TST,A6 RECOVERY DONE =1 * P RB END:IO + P* + 2 P EJECT DRFD02 + < P* + R P********** + P* LOCKDO * + n P********** + P* + P* LOCK ORDER + P* + PLOCKDO EQU * + P CF A5,LOCK LOCK DOOR + P RB(NZ) END:IO NOT OPERABL
0x20d518…20d6ac Dummy {f00=0x00a1, f01=0x0190, f02=»1 + P SRC A1,6 INDICATE TOSS/IBM , P XIF , . P RB END:IO , : P* , L P EJECT DRFD02 , V P* , n P********** , x P* LOAD * , P********** , P* , P* LOAD ORDER , P* , ( P* INPUT : A4 = DOUBLED INDEX + A6 , PLOAD
0x20d6ac…20d840 Dummy {f00=0x00a1, f01=0x018e, f02=» " P CF A5,VO:NAM GET VOLUME NAME - P ANK A1,/F - * $ P RF(NZ) END:UL ERROR UNLOCK DOOR - < P IFT TOSS+IBM=2 - d P LD A2,DWTFOR,A6 - | P SRC A2,1 - P RB(NN) END:IO TOSS DISC - P XIF - P IFT IBM=0 - P RB END:IO - P XIF - P IFT I
0x20d840…20d9d4 (1, 509) Dummy {f00=0x00a1, f01=0x0190, f02=» P SUK A4,7 . * P RF(N) LOA:85 ILLEGAL DATA SET NUMBER . P IFT TOSS=1 . D P SRC A2,1 . X P XIF . j P IFT TOSS=0 . v P LD A2,DWTFOR,A6 GET FORMAT . P SRC A2,2 . P XIF . P IFT IBM=1 . P RF(NN) LOA:10 (128-1) . P SUK A4,77-2
0x20d9d4…20db68 Dummy {f00=0x00a1, f01=0x0190, f02=» BYTE . p P ORKL A3,/100 HEAD 1 / PLOA:10 EQU * / * P SUK A4,25-7 / > * P RF(P) LOA:85 ILLEGAL DATA SET NUMBER / R P CF A15,INXDWT / * P ST A3,DWTDSS,A4 SAVE DATA SET NUMBER / ( P CF A5,REAPDS PREPARE READ DATA SET / P CF A5,CIOI00 READ /
0x20db68…20dcfc Dummy {f00=0x00a1, f01=0x0190, f02=» P* 0 P* 0 & P LDKL A7,FD:BUF+BOE ADDRESS TO BOE 0 ( P LD A4,DWTDSS,A4 GET DATA SET NUMBER 0 B * P RF(NN) LOA:20 1ST DATA SET IN BUFFER 0 n & P ADK A7,/80 2ND DATA SET IN BUFFER 0 PLOA:20 EQU * 0 & P CF A5,IBMTRA TRANSFORM TO BINARY 0 . P ST
0x20dcfc…20de90 Dummy {f00=0x00a1, f01=0x018e, f02=» CF A5,IBMTRA 0 " P ST A3,DWTEOE,A4 END OF EXTENT 1 $ P ADK A7,EOD-EOE-5 ADDRESS TO EOD 1 < P CF A5,IBMTRA 1 d P ST A3,DWTEOD,A4 END OF DATA 1 z & P LDKL A1,RC:IBM INDICATE IBM DISC 1 P RB END:IO END REQUEST 1 PLOA:85 EQU * 1 " P LDKL A1,RC:RE
0x20de90…20e024 Dummy {f00=0x00a1, f01=0x0190, f02=» 1 P********** 2 P* 2 P* UNLOAD ORDER 2 $ P* 2 < P IFT IBM=1 2 F PUNLOAD EQU * 2 X P IFT TOSS+IBM=2 2 l P LD A1,DWTFOR,A6 GET FORMAT 2 P SRC A1,1 2 P RF(NN) UNL:50 TOSS DISC 2 P XIF 2 P IFT IBM=1 2 P LD A3,DWTEOD,A4
0x20e024…20e1b8 Dummy {f00=0x00a1, f01=0x0190, f02=»WTDSS,A4 DATA SET SECTOR ID 2 ( P CF A5,REAPDS PREPARE READ DATA SET 3 $ P CF A5,CIOI00 READ 3 P P RF(NZ) END:UL READ ERROR 3 j $ P LDKL A1,FD:BUF+EOD EOD ADDRESS 3 $ P LD A3,DWTDSS,A4 DATA SET NUMBER 3 * P RF(NN) UNL:20 1ST DATA SET IN SECTOR 3 &
0x20e1b8…20e34c Dummy {f00=0x00a1, f01=0x0190, f02=» OF DATA 3 | P LDR A2,A7 SAVE END OF DATA 4 P ANK A2,1 4 4 P ORK A2,/F0 HEAD NUMBER 4 F & P SC A2,2,A1 HEAD NUMBER TO BUFFER 4 f P SRL A7,1 4 P CF A5,BINDEC EBCDIC CODE 4 & P STR A3,A1 TRACK NUMBER TO BUFFER 4 & P LD A7,DWTEOD,A4 GET SECTO
0x20e34c…20e4e0 Dummy {f00=0x00a1, f01=0x0190, f02=» 4 l P ECR A3,A3 5 P SC A3,3,A1 5 $ P CF A5,WRIPRE PREPARE FOR WRITE 5 . P CF A5,CIOI00 5 V P RF(NZ) END:UL WRITE ERROR 5 l & P CM DWTEOD,A4 INDICATE NOT OPENED 5 P XIF 5 PEND:UL EQU * 5 & P ORS A1,DWTRC,A6 SAVE RETURN CODE 5 P IFT I
0x20e4e0…20e674 (1, 510) Dummy {f00=0x00a1, f01=0x018e, f02=»NDICATE UNLOCKED DRIVE 5 $ P ANS A2,DWTFOR,A6 UNLOCKED DOOR 6 PENDIO EQU * 6 F P ABL END:IO 6 Z P* 6 n P IFT IBM=1 6 x P EJECT DRFD02 6 P* 6 P********** 6 P* SQREAD * 6 P********** 6 P* 6 P* SEQUENTIAL READ 6 P
0x20e674…20e808 Dummy {f00=0x00a1, f01=0x0190, f02=» 6 v P CF A5,INCSE0 CRN+1 7 P ECR A3,A3 LEFT BYTE 7 $ P CC A3,DWTEOD,A4 END OF DATA 7 @ P ECR A3,A3 RIGHT BYTE 7 d ( P RF(NE) SQR:10 LEFT BYTES NOT EQUAL 7 P CC A3,DWTEOD+1,A4 EOD 7 PSQR:10 EQU * 7 & P RF(NL) ENDEOD ERROR : END OF DATA 7 &
0x20e808…20e99c Dummy {f00=0x00a1, f01=0x0190, f02=» ANK A1,1 JUST NOT OPERABLE =4 7 P RB(NZ) ENDIO READ ERROR 8 & $ P CF A5,ASCMOV TRANSFORM AND MOVE 8 F P LD A3,DWTSEC,A6 GET CRN+1 8 n P ADK A4,DWTCRN CRN ADDRESS 8 P RF SQW:90 END REQUEST 8 P XIF 8 P IFT IBM=1 8 P IFT ASCEBC=0 8 P CF
0x20e99c…20eb30 Dummy {f00=0x00a1, f01=0x0190, f02=»DK A4,DWTCRN ADDRESS 8 P RF SQW:90 9 P XIF 9 . P IFT IBM=1 9 : P* 9 L P EJECT DRFD02 9 V P* 9 l P* 9 v PENDEOD EQU * 9 P LDKL A1,RC:EOD END OF DATA 9 P RB ENDIO 9 P* 9 P EJECT DRFD02 9 P* 9 P********** 9 P
0x20eb30…20ecc4 Dummy {f00=0x00a1, f01=0x0190, f02=» 9 p & P CF A5,IBMCHK CHECK IBM PARAMETERS : P LD A3,DWTEOD,A4 EOD : 2 P ECR A3,A3 LEFT BYTE : N $ P CC A3,DWTEOE,A4 LEFT CHARACTERS : j P ECR A3,A3 : P RF(NE) SQW:10 : ( P CC A3,DWTEOE+1,A4 RIGTH CHARACTERS : PSQW:10 EQU * : & P RF(G) ENDEOE
0x20ecc4…20ee58 Dummy {f00=0x00a1, f01=0x0190, f02=» P IFT ASCEBC=1 ; P CF A5,EBCDIC ; P CF A5,CIOI00 WRITE SECTOR ; 0 P RB(NZ) ENDIO ERROR ; R P XIF ; n P IFT ASCEBC=0 ; z P IFT IBM=1 ; P CF A5,CIO:WR PERFORM IO ; P RB(NZ) ENDIO ERROR ; P XIF ; P IFT IBM=1 ; P CF A5,INCSE
0x20ee58…20efec Dummy {f00=0x00a1, f01=0x0190, f02=»A4 UPDATED POINTER ; $ P LD A3,ECBRL,A8 REQUESTED LENGTH < $ P ST A3,ECBEL,A8 EFFECTIVE LENGTH < B P RB ENDIO < j PENDEOE EQU * < | " P LDKL A1,RC:EOE END OF EXTENT < P RB ENDIO < P* < P EJECT DRFD02 < P* < P********** < P*
0x20efec…20f180 Dummy {f00=0x00a1, f01=0x0190, f02=»WTEOD,A4 EOD=BOE < P CF A5,DECBOE GET CRN = P RB ENDIO = 6 P* = H P XIF = R P EJECT DRFD02 = ^ P* = v P******************** = P* * = P* RECOVERY ROUTINE * = P* * = P******************** =
0x20f180…20f314 (1, 511) Dummy {f00=0x00a1, f01=0x018e, f02=»SY AND RECOVERY ON =1 = v P ANS A4,DWTST,A6 =1 > P* > : P EJECT DRFD02 > D P* > Z P* DELAY 2 SEC > d P* > z P LD A4,DWTTP,A6 > P RF(Z) FDON10 NO TIMER SET > P LDKL A4,-TIME > " P ST* A4,DWTTP,A6 RESTART TIMER > P RF F:DISP >
0x20f314…20f4a8 Dummy {f00=0x00a1, f01=0x0190, f02=» P* ? PF:DISP EQU * ? P ABL T:DISP ? " P* ? 6 P* TIME OUT ROUTINE ? @ P* ? PFDON20 EQU * ? f P LDR A6,A1 ? z P CM DWTTP,A6 ? PFDRE00 EQU * ? 4 P LDKL A5,/7FFE SET UNIT BUSY AND RECOVERY ON =1 ? P ANS A5,DWTST,A6 =1 ? P
0x20f4a8…20f63c Dummy {f00=0x00a1, f01=0x0190, f02=» P* @ P EJECT DRFD01 @ P* @ $ P* @ . P* READ VOLUME NAME @ 8 P* @ T PFDONLD EQU * @ ^ $ P SC A3,DWTOR,A6 GET VOLUME NAME @ r P CF A5,LOCK LOCK DOOR @ P RF(NZ) FDON19 OPERABLE @ 2 P CF A5,GETPAR GET DEVICE DEPENDENT PARAMETERS @
0x20f63c…20f7d0 Dummy {f00=0x00a1, f01=0x0190, f02=» EQU * @ P LDK A1,6 NOT OPERABLE A $ P CF A15,VOLCLR CLEAR VOLUME NAME A , P RF FDON24 A T PFDON21 EQU * A f * P LD A4,DWTFOR,A6 GET FORMAT PARAMETERS A z P ANK A4,IN:LCK A P RF(NZ) FDON25 A PFDON24 EQU * A P CF A5,UNLOCK A PFDON25 EQU
0x20f7d0…20f964 Dummy {f00=0x00a1, f01=0x0190, f02=» DRFD02 A P* B P* RESTART IO B P* B 0 ( P IM DWTST,A6 INDICATE RECOVERY OVER B : P LD A8,DWTECB,A6 ECB ADDRESS B f P ABL(Z) END:IO NO REQUEST ON B ( P LD A7,DWTORD,A6 GET INDEX AND ORDER B P ST A7,DWTOR,A6 B ( P CM ECBEL,A8 RESET EFF
0x20f964…20faf8 Dummy {f00=0x00a1, f01=0x0190, f02=» P* * C P* INTERRUPT HANDLER * C " P* * C @ P********************* C ^ P* C | P* INPUT FROM CU : C ( P* BIT 1 : READY INTERRUPT C 2 P* BIT 4 : DELETED DATA ADDRESS MARK C ( P*
0x20faf8…20fc8c Dummy {f00=0x00a1, f01=0x0190, f02=»,9: DRIVE NUMBER C P* BIT 10: RETRY D & P* BIT 11: PROGRAM ERROR D : , P* BIT 12: FULL TRACK PROCESSED D d " P* BIT 13: DATA FAULT D ( P* BIT 14: THROUGHPUT ERROR D $ P* BIT 15: NOT OPERABLE D
0x20fc8c…20fe20 Dummy {f00=0x00a1, f01=0x0190, f02=» BIT 7 : RETRIES PERFPRMED (IN DWTRC) D P* BIT 11: FORMAT E 0 " P* BIT 13: CRC ERROR E R 6 P* BIT 14: SEEK ERROR / THROUGHPUT ERROR E x $ P* BIT 15: NOT OPERABLE E P* E " P* A5 = STACK POINTER E
0x20fe20…20ffb4 (1, 512) Dummy {f00=0x00a2, f01=0x0190, f02=» E * P CF A15,SAVE8 SAVE REGISTERS ON STACK F P SST A1,CUADR GET STATUS F 6 & P RF(A) IHFD00 CORRECT CH. UNIT =2 F V P CIO A1,0,CUADR =2 F P SST A1,CUADR =2 F P RB(NA) *-2 =2 F P LDK A1,1 SET RETURN CODE =2 F PIHFD00 EQU * =2 F
0x20ffb4…210148 Dummy {f00=0x00a2, f01=0x018e, f02=»UPT F v P ANK A1,/17 G P SLL A2,3 BIT4 G P RF(NN) IHFD10 NOT SET G 6 P ORKL A1,RC:NOD NO DATA G T PIHFD10 EQU * G t P SLC A2,3 BIT7 G P RF(NN) IHFD20 NOT SET G $ P ORKL A1,RC:WRP WRITE PROTECTED G PIHFD20 EQU * G P SLL A2,3 BIT10
0x210148…2102dc Dummy {f00=0x00a2, f01=0x0190, f02=» G P EJECT DRFD02 H P* H P* H ( P SRL A2,2 BIT5 , BIT6 H 2 * P ANK A2,/6 SECTOR NOT FOUND,SEEK ERROR H P P RF(Z) IHFD50 NO SEEK ERROR H ~ P ORR A1,A2 H & P LDK A2,/FF DUMMY CYLINDER NUMBER H P ST A2,DWTCYN,A6 H PIHFD50 EQU * H
0x2102dc…210470 Dummy {f00=0x00a2, f01=0x0190, f02=» H r P ADK A1,0 SET CR I P ABR* A5 RETURN I P* I 8 P EJECT DRFD02 I B P* I Z 0 P******************************************* I d 0 P* * I 0 P* S U B R O U T I N E S * I 0 P*
0x210470…210604 Dummy {f00=0x00a2, f01=0x0190, f02=»GETPAR * I P********** J P* J " ( P* GET DEVICE DEPENDENT PARAMETERS J , P* J X " P* INPUT : A6 = DWT ADDRESS J b P* J P* OUTPUT* J P* A4 = DOUBLED INDEX + A6 J P* J PGETPAR EQU * J P CF A15,INXDWT J 4 P LD A1,DWT
0x210604…210798 Dummy {f00=0x00a2, f01=0x0190, f02=»YLINDER NUMBER J t P RTN A5 K P* K & P EJECT DRFD02 K 0 P* K F P* K P P********** K Z P* SETPAR * K l P********** K ~ P* K ( P* SET DEVICE DEPENDENT PARAMETERS K P* K PSETPAR EQU * K * P LD A2,DWTCYN,A6 PRESENT HEAD POSITI
0x210798…21092c Dummy {f00=0x00a2, f01=0x0190, f02=»ENT PARAMETERS K n P RTN A5 L P* L & P EJECT DRFD02 L 0 P* L F P********** L P P* VO:NAM * L b P********** L t P* L P* L PVO:NAM EQU * L 6 P LDK A3,IN:LCK RESET ALL BUT LOCK/UNLOCK INDICATOR L P ANS A3,DWTFOR,A6 L P LDK A
0x21092c…210ac0 Dummy {f00=0x00a2, f01=0x0190, f02=»VOL L P RF(NZ) VOL900 ERROR M P IFT CPU852+IBM=2 M ( P LD A2,FD:BUF+32 M B P CWK A2,'TO' M Z P RF(NE) VOL200 NO TOSS DISC M n P LD A2,FD:BUF+34 M P CWK A2,'SS' M P RF(NE) VOL200 M P XIF M P IFT TOSS+IBM=2 M P IFT CPU852=0 M
0x210ac0…210c54 (1, 513) Dummy {f00=0x00a2, f01=0x0190, f02=»S FORMATED M * P LDKL A2,FD:BUF ADDRESS TO VOLUME NAME N P IFT IBM=1 N @ P LDK A1,0 INDICATE TOSS N R P RF VOL500 N r P XIF N P IFT IBM=1 N P* N P EJECT DRFD02 N P* N P* N " PVOL200 EQU * CHECK IF IBM DISC N 0 P LDKL A2,FD:
0x210c54…210de8 Dummy {f00=0x00a2, f01=0x0190, f02=» N P LD A2,FD:BUF+40 O " P CWK A2,EBC:VO EBCDIC FOR 'VO' O P RB(NE) VOL100 TOSS DISC O F P LD A2,FD:BUF+42 O f " P CWK A2,EBC:L1 EBCDIC FOR 'L1' O ~ P RB(NE) VOL100 TOSS DISC O P XIF O P IFT IBM=1 O * P LDKL A2,FD:BUF+44 VOLUME NAME ADDRESS
0x210de8…210f7c Dummy {f00=0x00a2, f01=0x0190, f02=» LDK A1,IN:IBM INDICATE IBM DISC O P* P ( P XIF P 2 P EJECT DRFD02 P > P* P T P* P ^ PVOL500 EQU * P h ( P ORS A1,DWTFOR,A6 INDICATE TOSS/IBM P | P SRC A1,6 RC: TOSS/IBM P P ORS A1,DWTRC,A6 P 8 P LD A3,DWT:FC,A6 FILE CODE AND TEST STATUS
0x210f7c…211110 Dummy {f00=0x00a2, f01=0x0190, f02=»1 P n P CF A5,CIOVOL Q P SRL A1,3 Q ( P ANK A1,2 FORMAT (256-2D) OR (128-1) Q 2 P XRK A1,2 Q ^ & P ORS A1,DWTFOR,A6 INDICATE FORMAT Q p P SRC A1,6 RC:FORMAT Q PVOL900 EQU * Q P RTN A5 Q P* Q P EJECT DRFD02 Q P* Q P****
0x211110…2112a4 Dummy {f00=0x00a2, f01=0x018e, f02=» EQU * Q P LC A7,DWTSEC,A6 SECTOR ID R $ P ANK A7,/7F CYLINDER AND HEAD NO R 0 P RF(Z) GETL05 TRACK 0 R X PGETLE0 EQU * R v P LD A7,DWTFOR,A6 FORMAT R P ANK A7,2 R P RF(NZ) GETL10 (256-2D) R PGETL05 EQU * R P LDK A7,1 R PGETL10
0x2112a4…211438 Dummy {f00=0x00a2, f01=0x0190, f02=» P* GETPAG * S P********** S P* S ( P* GET PAGE ID S 2 P* S J PGETPAG EQU * S T " P ML 2,DWTBA,A6 BUFFER ADDRESS S h P RB(Z) RTN:CR SET CR S P DLA 4 GET PAGE S P SRC A1,6 S P ST A1,DWTPAG,A6 S P ADKL A1,/400 NEXT PAGE S
0x211438…2115cc Dummy {f00=0x00a2, f01=0x0190, f02=» DRFD02 S P* T P********** T P* ASCII * T , P********** T > P* T P & P* TRANSFORM EBCDIC TO ASCII CODE T Z P* T $ P* INPUT : A4 =BUFFER ADDRESS T P* A7 =LENGTH T P* T " P* OUTPUT: A1,A4,A7 CHANGED T P*
0x2115cc…211760 Dummy {f00=0x00a2, f01=0x0190, f02=» A1,/FF T ( P LC A1,TASCII,A1 TRANSFORM TO ASCII U 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER U < P SUK A7,1 U p P RB(P) ASC:10 U P INH U P RTN A5 U P* U P EJECT DRFD02 U P* U P********** U P* ASCMOV * U P****
0x211760…2118f4 (1, 514) Dummy {f00=0x00a2, f01=0x0190, f02=»SER BUFFER U Z . P* INPUT STRING ADDRESS IS BUF V P* OUTPUT: A1,A2, CHANGED V D , P* A4 = INDEXED DWT ADDRESS V h P* A7 CHANGED V P* V PASCMOV EQU * V P CF A5,GETLEN V P IFT MMUPAG=0 V " P LD
0x2118f4…211a88 Dummy {f00=0x00a2, f01=0x0190, f02=» BUFFER ADDRESS V z P ENB W P CF A5,ASCII W $ P CF A5,GETLEN W 8 $ P CF A5,GETPAG GET PAGE IDENTITY W N ( P TS -30,A15 SAVE RUNNING TASK'S MMU W v P TL DWTPAG,A6 LOAD MMUTABLE W $ P LDR A1,A4 DRIVER BUFFER ADDRESS W ( P MVSU A7 MOVE SECTOR TO US
0x211a88…211c1c Dummy {f00=0x00a2, f01=0x0190, f02=»MT60 W P* X P EJECT DRFD02 X P* X . P********** X 8 P* EBCDIC * X J P********** X P* X n < P* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO X x P* EBCDIC CODE X 8 P* OUTPUT STRING IS PUT IN DRIVER B
0x211c1c…211db0 Dummy {f00=0x00a2, f01=0x0190, f02=» * X P IFT IBM+MMUPAG=2 Y P IFT ASCEBC=1 Y $ " P LDKL A4,FD:BUF BUFFER ADDRESS Y : P CF A5,GETLEN Y ` P CF A5,GETPAG Y v P RF(Z) EBC:05 SYSTEM AREA Y & P LDR A1,A2 LOGICAL ADDRESS SOURCE Y ( P TS -30,A15 SAVE RUNNING TASK'S MMU Y P TL
0x211db0…211f44 Dummy {f00=0x00a2, f01=0x0190, f02=»MMU TABLE FROM STACK Y | P RF EBC:07 Z PEBC:05 EQU * Z . P LDR A4,A2 BUFFER ADDRESS Z B P SLL A4,1 Z d PEBC:07 EQU * Z v P* Z P EJECT DRFD02 Z P* Z P* Z P XIF Z P IFT ASCEBC+IBM=2 Z P ENB Z P IFT MMUPAG=0 Z P I
0x211f44…2120d8 Dummy {f00=0x00a2, f01=0x0190, f02=» PEBC:10 EQU * [ P SUK A4,1 [ P LCR A1,A4 GET ASCII CHAR. [ * P ANK A1,/FF [ L P LC A1,TEBCDIC,A1 [ ` P SC A1,FD:BUF-1,A7 [ z P SUK A7,1 [ P RB(P) EBC:10 [ P INH INHIBIT INTERRUPTS [ P RTN A5 [ P XIF [ P IFT IBM=1 [
0x2120d8…21226c Dummy {f00=0x00a2, f01=0x0190, f02=»FORMS A BINARY NUMBER TO TWO [ v 0 P* EBCDIC-CODED DIGITS (DECIMAL) $ P* X P* INPUT: A7 BINARY NUMBER b P* . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS P* A7 CHANGED P* PBINDEC EQU * $ P LDKL A3,/
0x21226c…212400 Dummy {f00=0x00a2, f01=0x0190, f02=»N:10 P ADK A7,10 NUMBER 0-9 ] P ORR A3,A7 ] * P RTN A5 ] < P* ] L P EJECT DRFD02 ] V P* ] l P********** ] v P* IBMTRA * ] P********** ] P* ] 4 P* TRANSFORM SECTOR IDENTIFIER FROM EBCDIC CODE ] P* TO BINARY CODE ] P
0x212400…212594 (1, 515) Dummy {f00=0x00a2, f01=0x0190, f02=»TTHSS ] r P* ^ < P* OUTPUT : A3 = TTH IN LEFT BYTE AND SS IN RIGHT BYTE ^ , P* A7 = ADDRESS TO TTHSS + 5 ^ X $ P* = A6+DOUBLE INDEX ^ P* ^ PIBMTRA EQU * ^ ( P CF A5,EBCBI2 TRANSFER EBCDIC - BIN ^ P LDR A3,A1 SAV
0x212594…212728 Dummy {f00=0x00a2, f01=0x0190, f02=» HEAD NUMBER IN POSITION ^ P LD A2,DWTFOR,A6 GET FORMAT _ P SRC A2,2 _ D P RF(NN) IBMT05 (128-1) _ V P SUK A1,1 HEAD NUMBER _ t PIBMT05 EQU * _ P SUK A1,1 _ ( P RF(NN) IBMT70 HEAD NUMBER TOO HIGH _ P CF A5,EBCBI2 EBCDIC-BINARY _ . P
0x212728…2128bc Dummy {f00=0x00a2, f01=0x0190, f02=»* _ P EJECT DRFD02 ` P* ` P* ` * P ECR A4,A3 ` 4 " P ANK A4,/FF CYL NO AND HEAD NO ` F P SUK A4,1 ` l " P RF(NP) IBMT70 TRACK 0: ERROR ` ~ P LD A2,DWTFOR,A6 GET FORMAT ` P SRC A2,2 ` P RF(NN) IBMT10 (128-1) ` P SUK A4,2 DECREM
0x2128bc…212a50 Dummy {f00=0x00a2, f01=0x0190, f02=»20 BOE OR EOE ` PIBMT15 EQU * a P SUK A4,147 2*74-1 a * ( P RF(G) IBMT70 INCORRECT TRACK NUMBER a D " P RF(L) IBMT40 TRACK OK RETURN a p 0 P SUK A1,0 CHECK SECTOR NUMBER IF LAST TRACK a P RF IBMT50 a PIBMT20 EQU * EOD a P ADK A2,0 FORMAT a
0x212a50…212be4 Dummy {f00=0x00a2, f01=0x018e, f02=» PIBMT40 EQU * b P SUK A1,25 b $ PIBMT50 EQU * CHECK SECTOR NUMBER b , * P RF(G) IBMT70 INCORRECT SECTOR NUMBER b T PIBMT60 EQU * b P CF A15,INXDWT b P RTN A5 b P* b P EJECT DRFD02 b P* b P* b PIBMT70 EQU * ERROR b
0x212be4…212d78 Dummy {f00=0x00a2, f01=0x0190, f02=» b P********** c P* c 0 P* CONVERT SECTOR IDENTIFIER TO BINARY CODE c $ P* c X P* c b PSECBIN EQU * c l P LDR A1,A3 c P LD A2,DWTFOR,A6 FORMAT c P ANK A2,/2 c P RF(NZ) SECB05 (256-2D) c P SRL A3,1 c PSECB05 EQU * c
0x212d78…212f0c Dummy {f00=0x00a2, f01=0x0190, f02=» SUR A3,A2 *26 c P ANK A1,/FF d $ P ADR A3,A1 LOGICAL SECTOR NUMBER d * P RTN A5 d R P* d b P EJECT DRFD01 d l P* d P********** d P* EBCBIN * d P********** d P* d 0 P* EBCBIN TRANSFORM EBCDIC CODED DIGITS TO d D P*
0x212f0c…2130a0 Dummy {f00=0x00a2, f01=0x0190, f02=»MBER OF DIGITS d z P* OUTPUT: A1 BINARY e P* A4 = A4 + A7 e 4 P* WORKING REG: A2,A7 e T P* e t PEBCBI2 EQU * e ~ P LDK A4,2 TWO DIGITS e PEBCBIN EQU * e P LDK A1,0 e PDEC:10 LCR A2,A7 DIGIT e P ANK A2,/FF e P S
0x2130a0…213234 (1, 516) Dummy {f00=0x00a3, f01=0x0190, f02=»GIT e t P SUK A4,1 f P RF(Z) DEC:30 f PDEC:20 SUK A2,1 f 4 P RB(N) DEC:10 NEXT DIGIT f L P ADK A1,/A MULTIPLY BY 10 f l P RB DEC:20 f PDEC:30 ADR A1,A2 f P RTN A5 f P* f P EJECT DRFD02 f P* f P* f P********** f
0x213234…2133c8 Dummy {f00=0x00a3, f01=0x0190, f02=»EXED DWT ADDRESS f | P* OUTPUT : A4 UNCHANGED g P* g : PIBMCHK EQU * g D P LD A1,DWTFOR,A6 GET FORMAT g X $ P LD A2,ECBRL,A8 REQUESTED LENGTH g | P SRC A1,2 g P RF(NN) IBMC10 (128-1) g P SUK A2,128 g PIBMC10 EQU * g P SUK A2,128
0x2133c8…21355c Dummy {f00=0x00a3, f01=0x018e, f02=» g n P IFT ASCEBC=0 h P CF A5,GETLE0 GET LENGTH h P SRL A7,1 h > P ORS A7,DWTWE1,A6 h P P XIF h j P IFT IBM=1 h v P CF A15,NVLCHK h P ADK A1,0 h & P ABL(NZ) END:IO NEW VOLUME LOADED h P IFT TOSS=1 h P LD A2,DWTFOR,A6 GET FORMA
0x21355c…2136f0 Dummy {f00=0x00a3, f01=0x0190, f02=» PREQERO EQU * REQUEST ERROR i P ABL DISIOE i & P* i : P EJECT DRFD02 i D P* i Z P********** i d P* INCSEC * i v P********** i P* i $ P* INCREMENT SECTOR IDENTIFIER i P* i P* OUTPUT: A3 = SECTOR ID i P* i PINCS
0x2136f0…213884 Dummy {f00=0x00a3, f01=0x018e, f02=»ME TRACK i P CF A5,INCCYL NEXT TRACK j P ADR A3,A2 j 0 P SUK A3,26 SECTOR 0 j B PINCS10 EQU * j ^ * P ST A3,DWTSEC,A6 INCREMENTED SECTOR ID j r P RTN A5 j P* j P EJECT DRFD02 j P* j P********** j P* DECBOE * j P**********
0x213884…213a18 Dummy {f00=0x00a3, f01=0x0190, f02=» j v P SUR A3,A2 k P ORK A3,26 k PDECS10 EQU * k , P SUK A3,1 k @ * P ST A3,DWTCRN,A4 CURRENT RECORD NUMBER k R P RTN A5 k P* k P XIF k P EJECT DRFD02 k P* k P* k P********** k P* INCCYL * k P********** k P*
0x213a18…213bac Dummy {f00=0x00a3, f01=0x0190, f02=»(128-1)/(256-2D) INDICATOR k P ADK A2,2 NEXT TRACK l " P SLL A2,7 IN POSITION l > P RTN A5 l P* l l P EJECT DRFD02 l v P* l P********** l P* REAPRE * l P* WRIPRB * l P* WRIPRE * l P* CIOPRE * l P********** l P* l
0x213bac…213d40 Dummy {f00=0x00a3, f01=0x0190, f02=»TIFIER l t P XIF m PREAPRB EQU * m P IFT MMUPAG=0 m . " P LDKL A1,FD:BUF BUFFER ADDRESS m D , P ST A1,DWTBA,A6 BUFFER ADDRESS SAVE AREA m j P XIF m P* m PREAPRE EQU * READ m P LDKL A1,IN:WE1-/80 1ST WER m P LDK A3,0 CIO REGISTER m
0x213d40…213ed4 (1, 517) Dummy {f00=0x00a3, f01=0x018e, f02=»ERAL m P ST A1,DWTWE1,A6 n P ST A3,DWTIOR,A6 n $ P RTN A5 n < P* n L P EJECT DRFD02 n V P* n l P* n v P********** n P* LOCK * n P* UNLOCK * n P* SEEK * n P* CIO:WR * n P* CIO:VF * n P********** n P* n P
0x213ed4…214068 Dummy {f00=0x00a3, f01=0x0190, f02=» PSEEK EQU * o ( P LD A3,DWTSEC,A6 GET CYLINDER NUMBER o P SRL A3,9 o B , P CW A3,DWTCYN,A6 PRESENT CYLINDER NUMBER o T & P RF(E) CIORTN RETURN WITHOUT SEEK o PSEEKA3 EQU * o P ST A3,DWTCYN,A6 o P SLL A3,2 IN POSITION o P ORK A3,3 ORDER
0x214068…2141fc Dummy {f00=0x00a3, f01=0x0190, f02=»OI03 o PCIOI00 EQU * IBM IO ROUTINE p P CF A5,SEEK p 0 P ANK A1,/F p D P RF(NZ) CIOERR SEEK ERROR p V P LDK A3,0 WRITE/READ p x PCIOI03 EQU * p P CF A5,GETLEN GET LENGTH p P LDR A1,A7 p P SRL A1,1 p P OR A1,DWTWE1,A6 1ST WER p
0x2141fc…214390 Dummy {f00=0x00a3, f01=0x0190, f02=» ADDRESS p z P XIF q P RF CIOWE2 q P* q . PCIOVOL EQU * q 8 P LDKL A2,FD:BUF q L PCIOVO1 EQU * q d P LDKL A1,/8020 q x P RF PERCIO q P* q P IFF TOSS+EBCASC=0 q P EJECT DRFD02 q P* q P* q PCIO:VF EQU * q P LDKL
0x214390…214524 Dummy {f00=0x00a3, f01=0x0190, f02=» A3,0 READ/WRITE q PCIOWER EQU * r P IFT MMUPAG=0 r , P LD A1,DWTWE1,A6 r B P LD A2,DWTBA,A6 2ND WER r Z P OR A3,DWTIOR,A6 IO REGISTER r z P XIF r P IFF TOSS+EBCASC=0 r P IFT MMUPAG=1 r , P ML 2,DWTBA,A6 GET 18 BIT BUFFER ADDRESS r
0x214524…2146b8 Dummy {f00=0x00a3, f01=0x0190, f02=» * r " P LD A4,DWTSEC,A6 SECTOR NUMBER s P ANK A4,/FF s 0 P SLL A4,2 IN POSITION s D P ORR A3,A4 IN ORDER WORD s b " P LC A4,DWTSEC,A6 TRACK NUMBER s P ANK A4,1 HEAD NUMBER s P SRC A4,2 IN POSITION s P ORR A3,A4 IN ORDER WORD s P* s
0x2146b8…21484c Dummy {f00=0x00a3, f01=0x0190, f02=»D A2,PFPOST s 4 P RF(NZ) CIO:AB POWER FAILURE POST PROCESSING ON t P CF A15,INXDWT t L P EX DWTCIO,A4 EXECUTE CIO t b P LDK A1,RC:NOP t & P ABL(3) END:30 CU ADDRESS UNKNOWN t PCIO:AB EQU * t & P ST A5,DWTA5,A6 SAVE STACK POINTER t P ABL T
0x21484c…2149e0 Dummy {f00=0x00a3, f01=0x018e, f02=»* t P* u P********** u P* FD:BUF * u & P********** u 8 P* u J P* FLEXIBLE DISK BUFFER u T P* u t PFD:BUF EQU * u ~ P RES 64 u P IFT IBM=1 u P RES 64 u P XIF u P* u P EJECT DRFD02 u P* u P************
0x2149e0…214b74 (1, 518) Dummy {f00=0x00a3, f01=0x0190, f02=» P* v PDWFD01 EQU * v P DATA 0 v " P DATA /8000 DWT STATUS v 2 P DATA 0 ECB ADDRESS v P P DATA 0 ORDER v l " P DATA FDADR ACTIVATION ADDRESS v P DATA 0 TTAB-ADDRESS v $ P DATA 0 WAIT/ACTIVATE INDICATOR v P DATA 0 TERMINAL QUEUE v
0x214b74…214d08 Dummy {f00=0x00a3, f01=0x0190, f02=»TA5 EQU *-DWFD01 v P DATA 0 w , PDWTRC EQU *-DWFD01 RETURN CODE SAVE AREA w ( P DATA 0 w X P DATA 0 w h P DATA 0 w x " P DATA 0,0,0,0 STACK (3 LEVELS) w P DATA 0 ORDER SAVE AREA w P* w P EJECT DRFD02 w P* w P* w P DAT
0x214d08…214e9c Dummy {f00=0x00a3, f01=0x018e, f02=» ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 x P DATA /FFFF,/FFFF,/FFFF x 0 ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 x P P DATA /FFFF,/FFFF,/FFFF x | ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 x P DATA /FFFF,/FFFF,/FFFF x ( PDWTVO3 EQU *-DWFD01 VOLUME NAME
0x214e9c…215030 Dummy {f00=0x00a3, f01=0x0190, f02=» P CIO A3,1,CUADR UNIT 0 y P CIO A3,1,CUADR+/10 UNIT 1 y " P CIO A3,1,CUADR+/20 UNIT 2 y D P CIO A3,1,CUADR+/30 UNIT 3 y f P* y P EJECT DRFD02 y P* y P* y P IFT IBM=1 y , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT y P DATA 0,
0x215030…2151c4 Dummy {f00=0x00a3, f01=0x0190, f02=» * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO z P DATA 0,0,0,0 z 2 . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR z H P DATA 0,0,0,0 z z P* z P IFT IBM+MMUPAG=2 z 4 PDWTPAG EQU *-DWFD01 PAGE ADDRESS TO USER BUFFER z P DATA 0,0 z P XIF z
0x2151c4…215358 Dummy {f00=0x00a3, f01=0x018e, f02=»NT PARAMETERS z n F P DATA /FF00,/FF00,/FF00,/FF00 HEAD POS,LOCK/UNLOCK,2D/1S,TOSS/IBM { 0 PDWTFOR EQU *-DWFD01 PRESENT FORMAT PARAMETER { ` P DATA 0 { 0 PDWTCYN EQU *-DWFD01 PRESENT CYLINDER NUMBER { P DATA /FFFF { 2 PDWTSEC EQU *-DWFD01 SECTOR N
0x215358…2154ec Dummy {f00=0x00a3, f01=0x416a, f02=» { n P DATA 0 | & PDWTBA EQU *-DWFD01 BUFFER ADDRESS | P IFT MMUPAG=1 | B P DATA 0,0 | X P XIF | j P IFT MMUPAG=0 | v P DATA 0 | P XIF | $ PDWTIOR EQU *-DWFD01 CIO REGISTER | P DATA 0 | P* | P IFT MMUPAG=1 | PDEVECB E
0x2154ec…215680 Dummy {f00=0x00a3, f01=0x2008, f02=» } END @
0x215680…215814 (1, 519) Dummy {f00=0x00a3, f01=0x0190, f02=»5 } P XIF ~ P* ~ P EJECT DRFD01 ~ P* ~ 8 " P* D R I V E R B U F F E R ~ B P* ~ h PBUF EQU * ~ r P IFT IBM=1 ~ P RES DVBLEN ~ P XIF ~ P* ~ P IFT TOSS=1 ~ P IFT IBM=0 ~ " P DATA 0,0,0 VOLUME NAME BUFFER ~
0x215814…2159a8 Dummy {f00=0x00a3, f01=0x0190, f02=»ES DVBLEN MMU BUFFER ~ P XIF P* ( P EJECT DRFD01 2 P* J P********************* T P* * r P* DEVICE WORK TABLE * P* * P********************* P* PDWFD01 EQU * ( P
0x2159a8…215b3c Dummy {f00=0x00a3, f01=0x0190, f02=» " P DATA FDADR ACTIVATION ADDRESS P DATA 0 TTAB-ADDRESS * $ P DATA 0 WAIT/ACTIVATE INDICATOR F P DATA 0 TERMINAL QUEUE n P* IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRESS XIF P*
0x215b3c…215cd0 Dummy {f00=0x00a3, f01=0x0190, f02=»S) t P DATA 0 ORDER SAVE AREA P* * P EJECT DRFD01 4 P* L P* V P IFF TOSS+IBM=0 ` P DATA /8000 NVL INDICATOR 0 x P DATA /8000 NVL INDICATOR 1 P DATA /8000 NVL INDICATOR 2 P DATA /8000 NVL INDICATOR 3 ( P
0x215cd0…215e64 Dummy {f00=0x00a3, f01=0x0190, f02=»F,/FFFF ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 P DATA /FFFF,/FFFF,/FFFF < ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 P DATA /FFFF,/FFFF,/FFFF ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD P DATA 0 P XIF PDWTA5 EQU *-DWFD01
0x215e64…215ff8 Dummy {f00=0x00a3, f01=0x0190, f02=»* P EJECT DRFD01 P* " P* , P IFT IBM=1 6 , PDWTLAB EQU *-DWFD01 DISC LABEL INDICATOR H P DATA 0 x P XIF P* , PDWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR P DATA 0 P* P IFT OPCLOS=1 . PDWTTP2 EQU
0x215ff8…21618c Dummy {f00=0x00a3, f01=0x0190, f02=» P* P EJECT DRFD01 P* & P* 0 P IFT CHAN=1 : 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER N P DATA 0 , PDWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 P DATA 0 , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR P
0x21618c…216320 Dummy {f00=0x00a3, f01=0x0190, f02=» *-DWFD01 END OF DATA P DATA 0,0,0,0 & PDWTEOE EQU *-DWFD01 END OF EXTENT 4 P DATA 0,0,0,0 ^ * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO t P DATA 0,0,0,0 . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR P DATA 0,0,0,0 P XIF
0x216320…2164b4 (1, 520) Opaque[0x194]
0x2164b4…216648 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22f0, f03=0x0000}
0x2164b4…216648 IdxSect {
0x2164b4…216648 f00 = 0x0117 // 0x2164b4 @0x0
0x2164b4…216648 f01 = 0x0010 // 0x2164b6 @0x2
0x2164b4…216648 gno = [ // 0x2164b8 @0x4
0x2164b4…216648 [0x00]: C0x0117.0x2.0
0x2164b4…216648 [0x01]: C0x0117.0x3.0
0x2164b4…216648 [0x02]: C0x0118.0x0.0
0x2164b4…216648 [0x03]: C0x0118.0x1.0
0x2164b4…216648 [0x04]: C0x0118.0x2.0
0x2164b4…216648 [0x05]: C0x0118.0x3.0
0x2164b4…216648 [0x06]: C0x0119.0x0.0
0x2164b4…216648 [0x07]: C0x0119.0x1.0
0x2164b4…216648 ]
0x2164b4…216648 }
0x216648…2167dc Dummy {f00=0x0117, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 11.0 81-08-31 870105041100 P : & P =13,CHARACTER BLOCKING CHANGED B P REL 11.0 81-05-25 l P =12,COND. ASS. FOR ECHO P REL 11.0 81-01-26 P =11,BRANCH ADDR. OVERFLOW P PRR 11.0 80-11-19 " P
0x2167dc…216970 Dummy {f00=0x0117, f01=0x0190, f02=»ABORT ROUTINE IMPLEMENTED P PRR 11.0 80-07-28 " P =7,BRANCH ADDR. OVERFL. > P PRR 11.0 80-04-29 ` $ P =6,IMPROV. OF ERROR HANDLING | P PRR 11.0 80-03-18 P =5,TENDIO AT ECHO END P PRR 11.0 80-03-13 * P =4,CORREC
0x216970…216b04 Dummy {f00=0x0117, f01=0x0190, f02=»GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-03-16 " P =2,IMPROV. OF TEST ORDER > P REL 8.2 78-11-19 b " P =1,ECHO OF LF AND CR, ABIS ~ P REL 8.2 78-09-15 P* P* 6 P**************************************************
0x216b04…216c98 Dummy {f00=0x0117, f01=0x0190, f02=» P* P* P* 6 P************************************************* " P* P* f 6 P* THIS DRIVER HANDLES GENERAL TERMINAL PRINTER p < P* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. P* 8 P* THE DRIVER ALSO
0x216c98…216e2c Dummy {f00=0x0117, f01=0x0190, f02=» TO ANY KEY- j 4 P* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD P* DRIVER DRKB04. L P* h P* r 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: | P* & P* A C G P ACTIVATION PART P* $ P* A B G P ABORT R
0x216e2c…216fc0 Dummy {f00=0x0117, f01=0x0190, f02=» P* * P* THE FOLLOWING ORDERS ARE TREATED: P* @ P* ORDER 00: TEST STATUS J P* 05: BASIC WRITE l " P* 06: STANDARD WRITE P* P* NORMAL REGISTER USAGE P* " P* REGISTER A1 = RETURN CODE
0x216fc0…217154 (1, 521) Dummy {f00=0x0117, f01=0x0190, f02=» A5 = STACK BASE " P* A6 = DWT-ADDRESS " P* A7 = ORDER H " P* A8 = ECB-ADDRESS h P* P* P* SYSTEM ADAPTATION P* : P* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR ( P
0x217154…2172e8 Dummy {f00=0x0117, f01=0x0190, f02=» FOLLOWING FUNCTIONS. z P* --ROOMLESS POINT : P* --ACCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH < P* z D P* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER 6 P* --SUPPRESS ECHOING OF END OF RECORD CHARACTER * P**
0x2172e8…21747c Dummy {f00=0x0117, f01=0x0190, f02=»CTER CODES FOR ROOMLESS POINT DIGITS F P* IS DEFINED IN A SPECIAL TABLE. STANDARD IS SHB CHARACTER SET , P EJECT v P* P* P* P* P*********** P* ENTRIES * P*********** P* P* P* ( P E
0x21747c…217610 Dummy {f00=0x0117, f01=0x0190, f02=»*************************************** . P* EXTERNAL TOSS MODULE ENTRIES * 0 . P***************************************** b P* P* & P EXTRN LENDER I/O REQUEST ERROR =3 . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER P EXT
0x217610…2177a4 Dummy {f00=0x0117, f01=0x0190, f02=»TER FROM ECB-BUFFER x $ P EXTRN STABLK START OF BLOCK =3 " P EXTRN ENDBLK END OF BLOCK =3 D P EJECT j P* x P* P************************ P* DWT PARAMETERS * P************************ P* P* P EXTRN D
0x2177a4…217938 Dummy {f00=0x0117, f01=0x0190, f02=» P EJECT P* P* P************* * P* CONSTANTS * @ P************* V P* l P* v : PSOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY PSTX EQU /82 START OF MESSAGE PETB EQU /97 END OF MESSAGE PETX
0x217938…217acc Dummy {f00=0x0117, f01=0x0190, f02=»E ~ 0 PPROUT EQU /04 PAPER OUT OR READY SWITCH OFF P* > & PBLKMAX EQU 140 MAX BLOCK LENGTH =3 H P EJECT r P* P* * P************************************** * P* CONDITIONAL ASSEMBLY * * P************************
0x217acc…217c60 Dummy {f00=0x0117, f01=0x0190, f02=»X:A EQU 1 PCROOM EQU X:A P* ( 4 P* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 2 0 P* INCLUDED IN THE DRIVER BY SETTING X:B=1 j P* PX:B EQU 0 PTRETON EQU X:B P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN B
0x217c60…217df4 (1, 522) Dummy {f00=0x0118, f01=0x0190, f02=»LING IS INCLUDED IF ECHO = 1 P* $ PX:D EQU 1 U =12 . PECHO EQU X:D U =12 F P* ` . P* IT IS POSSIBLE TO EXCLUDE ECHOING OF j , P* AN EXTRA SPACE AFTER EACH CHARACTER P* BY SETTING X:E=0 P* PX:E EQU 0 PCOSP
0x217df4…217f88 Dummy {f00=0x0118, f01=0x0190, f02=» OF END OF RECORD CHARACTER. x 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:F=0. $ P* ` PX:F EQU 0 j PEORECH EQU X:F | P* 4 P* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE P* BY SETTING X:G=1 P* PX:G EQU 0
0x217f88…21811c Dummy {f00=0x0118, f01=0x0190, f02=»NACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 ( PX:H EQU 0 J PRECEND EQU X:H P* r P* | 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1
0x21811c…2182b0 Dummy {f00=0x0118, f01=0x0190, f02=»ITION FOR ABIS PRINTER =1 PABIS EQU 0 =1 " P EJECT 8 P* F P* P $ P******************************** Z $ P* DWT-DISPLACEMENT * $ P******************************** P* P* P =3 ( PDWTAP EQU /2 HEAD PO
0x2182b0…218444 Dummy {f00=0x0118, f01=0x0190, f02=»************ v , P* SPECIAL KEYS FOR ECHO FUNCTION * * P************************************** D P* r PGPBSP EQU /2D BACK SPACE | PGPCLR EQU /3F CLEAR P* P******************** P* RETURN CODES * P**************
0x218444…2185d8 Dummy {f00=0x0118, f01=0x0190, f02=»T ERROR z ( POPERR EQU /1 NOT OPERABLE, POWER OFF P* < P EJECT F P* T P* ^ P********** h P* TABLES * z P********** P* P* P IFT CROOM=1 P* PROMTAB EQU * * P TABLE FOR ROOMLESS POINT CHARACTE
0x2185d8…21876c Dummy {f00=0x0118, f01=0x0190, f02=» r P DATA 2 DEVICE INDEX PGPAD EQU * ADDRESS BLOCK $ P DATA ACGP ACTIVATION DRIVER D ( P DATA ABGP ABORT ROUTINE ADDRESS =8 h P DATA 0 INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE
0x21876c…218900 Dummy {f00=0x0118, f01=0x0190, f02=» TEST 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 ~ P* CHANNEL UNIT. P* > P* ORDER 05: B
0x218900…218a94 (1, 523) Dummy {f00=0x0118, f01=0x0190, f02=»ERS ARE SENT TO PRINTER FROM j < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. $ P* d PACGP EQU * n P =3 P LDR A3,A7 =1 P RF(Z) ACGP10 ORDER 0 =2 " P LDK A2,BLKMAX BLOCK LENGTH =3 $ P CF A5,STABLK START OF BLOCK =
0x218a94…218c28 Dummy {f00=0x0118, f01=0x0190, f02=»F(E) ACGP00 ORDER 6 =3 " P CF A5,ENDBLK END OF BLOCK =3 $ P ABL LENDER I/O REQUEST ERROR =3 D PACGP00 EQU * =3 l * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 P RF(Z) ACGP01 =1 & P LD A3,2,A8 GET BUFFER ADDRESS =1 ( P LC A3,1,A3 GET CO
0x218c28…218dbc Dummy {f00=0x0118, f01=0x0190, f02=» $ P LDK A3,2 START BUFFER INDEX =3 P RF ACGP19 =3 , PACGP02 EQU * =3 B P LDK A2,CR =1 Z P CF A5,OUTPUT =1 p P RF(NZ) ERGP1 ERROR =3 P IFT ABIS=1 =1 P LDK A2,FFED =1 P CWK A3,/31-/2B =1 $ P RF(E) ACGP03 CONTRO
0x218dbc…218f50 Dummy {f00=0x0118, f01=0x0190, f02=»F A5,OUTPUT =1 P RF(NZ) ERGP1 ERROR =3 P LDK A2,LF =1 6 , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 L " P ST A1,DWTAP+DWTDEV,A6 =3(=1) | * PACGP06 LDK A3,2 START BUFFER INDEX =1 PACGP09 CF A5,OUTPUT =1 PERGP1 RF(NZ) ERGP2 ERROR
0x218f50…2190e4 Dummy {f00=0x0118, f01=0x0190, f02=»19 =1 P EJECT =2 P* =2 " P* ORDER 00: TEST =2 2 N P* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =2 P P* =2 PACGP10 EQU * " P LDK A2,2 BLOCK LENGTH =10(=3) $ P CF A5,STABLK START OF BLOCK
0x2190e4…219278 Dummy {f00=0x0118, f01=0x0190, f02=» A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 * P RF(NZ) ERGP2 ERROR =3 D P RF AGP400 =10(=2) b P EJECT ~ P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) P* PACGP17 CF A5,OUTPUT P
0x219278…21940c Dummy {f00=0x0118, f01=0x018e, f02=» LINE FEED DONE z P ORS A4,DWTDEV,A6 =3 P IFT SUPSPA=1 6 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER L P XIF P LDK A4,0 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER P LDR A1,A1 LAST CHARACTER? P RF(NP) AG
0x21940c…2195a0 Dummy {f00=0x0118, f01=0x018e, f02=» P RF(NE) ACGP22 : P ST A4,DWTAP+DWTDEV,A6 RESET HEAD POSITION POINTER =3 P RB ACGP17 X * PACGP22 SUK A1,8 TABULATION CHARACTER ? j P RF(E) ACGP40 P IFT ABIS=1 =1 P CWK A2,/07 BELL ? =1 P RB(E) ACGP09 =1 P XIF =1
0x2195a0…219734 (1, 524) Dummy {f00=0x0118, f01=0x0190, f02=» P IFT TRETON=0 P IFT FJOTON=1 P* 0 P SUK A1,3 /14? : P RB(E) ACGP17 P P SUK A1,/C LESS THAN /20 ? f P* P XIF P* P* P IFT TRETON=1 P IFT FJOTON=0 P* P SUK A1,2 /13 ? P RB(E) A
0x219734…2198c8 Dummy {f00=0x0118, f01=0x0190, f02=»UK A1,2 /13? P RB(E) ACGP17 P SUK A1,1 /14? * P RB(E) ACGP17 @ P SUK A1,/C LESS THAN /20 ? V P* x P XIF P* & P RF(N) ACGP30 YES,CODE CHECK ERROR & P SUK A1,/8E ROOMLESS POINT? (AE) P RF(E) AGP100 P ADK A
0x2198c8…219a5c Dummy {f00=0x0118, f01=0x0190, f02=»N /60 TO /7F j & P TO CHARACTER BETWEEN /40 TO /5F P RB ACGP17 > PACGP24 EQU * P P SUK A1,/D d P RF(NZ) ACGP26 NOT CR v 2 P CM DWTPOC+DWTDEV,A6 RESET POSITION COUNTER =3 2 P CM DWTAP+DWTDEV,A6 RESET HEAD POS.POINTER =3 PACGP26 A
0x219a5c…219bf0 Dummy {f00=0x0118, f01=0x0190, f02=»17 P EJECT ! P* ! P* CODE CHECK ERROR ! " P* ! @ PACGP30 EQU * ! J P LDK A1,CCERR ! ^ P ORS A1,8,A8 RETURN CODE ! t P RB ACGP20 ! P EJECT ! P* ! P* TABULATION ! P* ! PACGP40 EQU * ! , P CF A15,GETCHR GET F
0x219bf0…219d84 Dummy {f00=0x0118, f01=0x018e, f02=»E) ACGP44 ! 0 PACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL " P SUK A4,1 " F P RB(NE) ACGP43 " X B PACGP44 SU A2,DWTAP+DWTDEV,A6 SUBTRACT HEAD POSITION POINTER =3 " n P LC A4,DWTBC+DWTDEV,A6 =3 " , P SUR A2,A4 AND REQUESTS POSITION COUNTER " & P
0x219d84…219f18 Dummy {f00=0x0118, f01=0x0190, f02=» " X PACGP46 CF A5,OUTPUT # PERGP2 RF(NZ) ERGP ERROR =3 # $ 2 P IM DWTPOC+DWTDEV,A6 INCREMENT BUFFER INDEX =3 # F P SUK A4,1 # | P RB(P) ACGP45 # P LDR A3,A3 RECOVERY? # P RB(NE) ACGP20 NO # 4 P SC A4,DWTBC+DWTDEV,A6 RESET POSITION POINTER
0x219f18…21a0ac Dummy {f00=0x0118, f01=0x018e, f02=» * # P* $ P IFT CROOM=1 $ P* $ ( ( P CF A15,GETCHR GET CHARACTER TO SEND $ 2 P ANK A2,/F $ ^ P LC A2,ROMTAB,A2 TRANSFORM $ p P* $ P XIF $ P* $ P* $ P IFF CROOM=1 $ P* $ P ANK A2,/7F $ P* $ P XIF $ P* $
0x21a0ac…21a240 Dummy {f00=0x0118, f01=0x0190, f02=» P* % PAGP400 EQU * % P =3 % " P =13(=10) % 0 PAGP410 LDK A2,ETX LAST DUMMY % D P CF A5,OUTPUT SEND % h P RF(NZ) ERGP ERROR =6 % " P CF A5,ENDBLK END OF BLOCK =6 % P RF(NZ) ERGP ERROR =6 % PAGP415 EQU * =1 % P IFT ABIS=1
0x21a240…21a3d4 (1, 525) Dummy {f00=0x0118, f01=0x0190, f02=» EQU * % 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER & P LDKL A4,/FBFF =3 & B 2 P ANS A4,DWTDEV,A6 RESET 'LINE FEED CONTROL' =3 & PENDIO EQU * & P =6(=3) & P CF A15,TENDIO END I/O & & PEXIT ABL LDISP GO TO DISPATCHER =3 & PAGP430 E
0x21a3d4…21a568 Dummy {f00=0x0118, f01=0x018e, f02=»= SUBROUTINE TO UPDATE HEAD & , P* POSITION POINTER WHEN END ' $ ( P* OF REQUEST IS REACHED ' T PUPDAPP EQU * ' 2 P LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER =3 ' < P ADS A3,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER =3 '
0x21a568…21a6fc Dummy {f00=0x0118, f01=0x0190, f02=» P* ( * P* SKIPSP = SUBROTINE TO SKIP SPACES ( ( P* IN END OF ECB-BUFFER. ( < 6 P* REQUESTED LENGTH IN ECB IS UPDATED. ( h & P* A1,A2,A4 - WORK REG ( P* ( PSKIPSP EQU * ( ( P LD A1,2,A8 GET BUFFER ADDRESS
0x21a6fc…21a890 Dummy {f00=0x0118, f01=0x0190, f02=» RL < 3 ( P SUK A1,1 DECR. BA ) P LCR A4,A1 GET CHAR ) * P CCK A4,/2020 SPACE ? ) F P RF(NE) SKIP20 NO ) d PSKIP07 SUK A2,1 DECR RL ) ~ P RB SKIP05 GET NEXT ) PSKIP20 CWK A2,4 ) P RF(NG) SKIP30 RL < 5 ) P LC A4,-2,A1 GET CHAR )
0x21a890…21aa24 Dummy {f00=0x0118, f01=0x018e, f02=»ET NEXT ) P* * " PSKIP30 ST A2,4,A8 STORE NEW RL * P RTN A15 * @ P XIF * P P EJECT * P* * j P* E R G P * t P* * P* ERROR ROUTINE * P* * P* * PERGP EQU * =3 * $ P LDR A2,A1 SAVE RETURN CODE =10 * 4 P ANK A1,/1
0x21aa24…21abb8 Dummy {f00=0x0118, f01=0x0190, f02=» * P RF(NZ) ERGP10 NO =6 + 2 P LDK A1,OPERR SET RETURN CODE NOT OPERABLE =6 + $ P RB ENDIO END I/O =6 + Z P* + v PERGP10 EQU * =6 + ( P ANK A2,/08 SOFTWARE TIME-OUT ? =10 + * P RF(NZ) RCGP YES,EXECUTE RECOVERY =10 + P =9(=6) + P
0x21abb8…21ad4c Dummy {f00=0x0118, f01=0x0190, f02=»T OPERABLE =6 + p P RB AGP430 =3 , P XIF =3 , , P EJECT , > P* , L P* E C H O G P , V P* , n 0 P* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE , x P* , PECHOGP EQU * , P IFT ECHO=1 U =12 , P LDK A4,COSPAC , P LDR A7,A7 END
0x21ad4c…21aee0 Dummy {f00=0x0118, f01=0x018e, f02=»ES , P ADK A2,/80 - P* - P XIF - ( P IFT ECHO=1 U =12 - 4 P* - N P LDR A1,A2 - X P ANK A1,/7F - j P SUK A1,/8 - ~ P RF(E) ECGP40 BACKSPACE - P SUK A1,/2 LINE FEED =1 - P RF(E) ECGP05 YES =3(=1) - P SUK A1,/3 CR =1 - P
0x21aee0…21b074 (1, 526) Dummy {f00=0x0119, f01=0x0190, f02=» - Z P RF(N) ECGP20 . P SUK A1,/5F-/20 . P RF(P) ECGP20 . 6 PECGP05 EQU * =3 . L P LDR A3,A2 SAVE CHARACTER =3 . d $ P LDK A2,COSPAC+1 BLOCK LENGTH =3 . $ P CF A5,STABLK START OF BLOCK =3 . P RF(NZ) ECGP20 ERROR =6 . P LDR A2,A3 GET C
0x21b074…21b208 Dummy {f00=0x0119, f01=0x0190, f02=»ER =3 . f P SUK A4,1 READY ? / P RF(N) ECGP80 YES =3 / ( * P RF(P) ECGP60 NO, GO TO CLEAR SECTION / D P* / r P IFT COSPAC=1 / | P* / P LDK A2,SPACE NO SEND SPACE / P RB ECGP10 / P* / P XIF / P* / P IFT ECHO=1 U =12 /
0x21b208…21b39c Dummy {f00=0x0119, f01=0x0190, f02=»CHRTN RETURN TO KEYBOARD / P IFT ECHO=1 U =12 0 P EJECT 0 : P* 0 H P* BACKSPACE 0 R P* 0 h PECGP40 EQU * 0 r & P LDK A2,GPBSP BACKSPACE CHARACTER 0 P RB ECGP05 =3 0 P* 0 P* CANCEL 0 P* 0 PECGP50 EQU * 0 * P LC A3
0x21b39c…21b530 Dummy {f00=0x0119, f01=0x0190, f02=»PACE CHARACTERS =3 0 v $ P ADK A2,2 ADD TO BLOCK LENGTH =3 1 $ P CF A5,STABLK START OF BLOCK =3 1 B P RB(NZ) ECGP20 ERROR =6 1 j " P LDK A2,GPCLR CLEAR CHARACTER 1 P LDK A4,3 1 P RB ECGP10 1 PECGP60 LDK A2,LF LINE FEED 1 P =3 1 " PECGP
0x21b530…21b6c4 Dummy {f00=0x0119, f01=0x0190, f02=» LDK A3,0 1 4 P SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER =3 2 PECGP80 EQU * =3 2 J " P CF A5,ENDBLK END OF BLOCK =3 2 b P RB ECGP20 2 P XIF U =12 2 P EJECT 2 P* 2 P* R C G P 2 P* 2 0 P* RCGP = RECOVERY ROUTINE GENERAL
0x21b6c4…21b858 Dummy {f00=0x0119, f01=0x0190, f02=» 2 P* 3 P* A6 = DWT-ADDRESS 3 P* A7 = ORDER 3 0 P* A8 = ECB-ADDRESS 3 H PRCGP EQU * 3 f P =3 3 x P =6 3 P LDR A8,A8 BUSY ? =6 3 P ABL(Z) ENDIO NO =11(=6) 3 " P LDK A2,1 BLOCK LENGTH =10(=3) 3 $ P CF A5,STABLK STAR
0x21b858…21b9ec Dummy {f00=0x0119, f01=0x0190, f02=»GP ERROR =3 3 " P CF A5,ENDBLK END OF BLOCK =10 4 P RB(NZ) ERGP ERROR =10 4 : P CWK A7,5 4 X P RF(E) RCGP10 4 j P CWK A7,6 ORDER 6? 4 P RF(E) RCGP05 YES 4 P =10(=6) 4 P =10(=6) 4 P CWK A7,0 ORDER 0? 4 P ABL(E) ENDIO U =7
0x21b9ec…21bb80 Dummy {f00=0x0119, f01=0x0190, f02=»INE FEED DONE ? 4 P ABL(E) ACGP NO =3(=10) 5 $ P LDK A2,BLKMAX BLOCK LENGTH =10 5 8 $ P CF A5,STABLK START OF BLOCK =10 5 ` P RB(NZ) ERGP ERROR =10 5 P LDK A2,SPACE 5 P CF A5,OUTPUT SEND SPACE 5 P RB(NZ) ERGP ERROR =3 5 P =3 5 P
0x21bb80…21bd14 (1, 527) Dummy {f00=0x0119, f01=0x4170, f02=» =6 5 PRCGP10 EQU * =6 6 P =10(=6) 6 $ P =10(=6) 6 8 $ P LDK A1,TPERR SET RETURN CODE =6 6 L P ABL AGP430 6 t P* 6 P* 6 P* A B G P 6 P* 6 P* ABORT ROUTINE 6 P* 6 PABGP EQU * U =8 6 2 P CF A15,UPDAPP UPD
0x21bd14…21bea8 Dummy {f00=0x0119, f01=0x2008, f02=» 7 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 & (
0x21bea8…21c03c Dummy {f00=0x0119, f01=0x0190, f02=»G+OVL=2 * P RF(Z) OVL020 NO D/R OVERLAYS PRESENT POVL015 EQU * > " P ADKL A3,/FFE CALCULATE NO OF R P SRL A3,12 4K BLOCKS NEEDED x P NGR A3,A3 2 P AD A3,MMUENT+STKEND MMU ENTRY WHERE TO BEGIN 0 P ABL(N) TABOVF LOGICAL MEMORY OVERFL
0x21c03c…21c1d0 Dummy {f00=0x0119, f01=0x0190, f02=» | P ST A3,APLREL,A1 SAVE IN ACB P LD A2,OVLTLN+STKEND , & P ADK A2,4 CALCULATE START OF THIS H * P AD A2,ACBEND+STKEND OVERLAY TABLE AND r ( P ST A2,APLOVL,A1 SAVE IN CURRENT ACB * P LD A2,SCTSFA SET START OF THIS TABLE P ST A2,CURTAB+
0x21c1d0…21c364 Dummy {f00=0x0119, f01=0x0190, f02=»8 DON'T COPY FIRST FOUR WORDS P LDR A10,A3 SAVE LENGTH & 2 P ADS A3,OVLTLN+STKEND ADD LENGTH TO TABLE AREA F P LD A7,SCTSFA | & P ADS A3,SCTSFA RESERVE AREA NEEDED P LDR A8,A7 P IFT MMUPAG+OVL=2 . P ANKL A8,/FFF ISOLATE LOGICAL LO
0x21c364…21c4f8 Dummy {f00=0x0119, f01=0x0190, f02=»E ( P SRL A3,12 AND NO OF ENTRIES TO EDIT ( P CF A14,MMUEDT UPDATE MMU REGISTERS 6 P XIF b P IFT OVL=1 n P ST A8,LLDADR+STKEND SAVE , P LD A8,APLREL,A1 GET RELOCATION CONSTANT 6 P CM FSTSEC+STKEND SKIP FOUR FIRST WORDS IN SECTOR
0x21c4f8…21c68c Dummy {f00=0x0119, f01=0x0190, f02=»L+STKEND RESTORE CURRENT ACB ADDRESS ( P LD A2,CURTAB+STKEND GET TABLE START , P LD A3,SCTIPL X & P STR A3,A2 FILE CODE FOR OVERLAYS n " P LD A3,2,A2 AND NO OF OVERLAYS , P ADK A2,4 ADVANCE TO CURRENT LOAD BLOCK 4 P LD A4,WINDOW+STKEND ONLY
0x21c68c…21c820 Dummy {f00=0x0119, f01=0x0190, f02=» LC A3,OVLTYP,A2 GET TYPE OF OVERLAY P CCK A3,'OO' NORMAL OVERLAY? , P RF(NE) OVL070 P P* f P LD A4,SCTOPT p P SRC A4,2 DISC PAGING? , P RF(NN) OVL100 NO ILLEGAL MONITOR OPTION P* P LDK A3,/FF & P ANS A3,OVLTYP,A2 INIT
0x21c820…21c9b4 (1, 528) Opaque[0x194]
0x21c9b4…21cb48 # DirEnt {nam=»DRGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14c0, f03=0x0000}
0x21c9b4…21cb48 IdxSect {
0x21c9b4…21cb48 f00 = 0x00a6 // 0x21c9b4 @0x0
0x21c9b4…21cb48 f01 = 0x0016 // 0x21c9b6 @0x2
0x21c9b4…21cb48 gno = [ // 0x21c9b8 @0x4
0x21c9b4…21cb48 [0x00]: C0x00a6.0x0.0
0x21c9b4…21cb48 [0x01]: C0x00a6.0x1.0
0x21c9b4…21cb48 [0x02]: C0x00a6.0x2.0
0x21c9b4…21cb48 [0x03]: C0x00a6.0x3.0
0x21c9b4…21cb48 [0x04]: C0x00a7.0x0.0
0x21c9b4…21cb48 [0x05]: C0x00a7.0x1.0
0x21c9b4…21cb48 [0x06]: C0x00a7.0x2.0
0x21c9b4…21cb48 [0x07]: C0x00a7.0x3.0
0x21c9b4…21cb48 [0x08]: C0x00a8.0x0.0
0x21c9b4…21cb48 [0x09]: C0x00a8.0x1.0
0x21c9b4…21cb48 [0x0a]: C0x00a8.0x2.0
0x21c9b4…21cb48 ]
0x21c9b4…21cb48 }
0x21cb48…21ccdc Dummy {f00=0x00a6, f01=0x0190, f02=» 2 P IDENT DRGP02 REL 11.0 81-01-26 870105041100 P : ( P =1,TIME OUT IF INACTIVE, 25 SEC. B P PRR 11.0 80-11-19 n P* < P******************************************************* < P*
0x21ccdc…21ce70 Dummy {f00=0x00a6, f01=0x0190, f02=» 4 P* DRGP02 = DRIVER GENERAL PRINTER * < P* * < < P* * | < P* * < P************
0x21ce70…21d004 Dummy {f00=0x00a6, f01=0x0190, f02=»DRIVER CONSISTS OF THE FOLLOWING PARTS : P* 0 $ P* A C T P : ACTIVATION PART : P* b $ P* R C T P : RECOVERY ROUTINE l P* P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* $ P* ORDER 00 :
0x21d004…21d198 Dummy {f00=0x00a6, f01=0x0190, f02=»PARAMETERS p ( P* ORDER 38 : RELEASE DOCUMENT P* > , P* THE FOLLOWING RETURN CODES ARE USED: H P* x & P* BIT 0 : REQUEST ERROR : P* BIT 2 : END OF JOURNAL TAPE, DOCUMENT OUT ( P* BIT 13 : CODE CHECK
0x21d198…21d32c Dummy {f00=0x00a6, f01=0x0190, f02=»ORK REGISTER ~ " P* A2: INPUT/OUTPUT $ P* A3: BUFFER POINTER : " P* A4: WORK REGISTER b " P* A5: STACK POINTER P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-ADD
0x21d32c…21d4c0 Dummy {f00=0x00a6, f01=0x0190, f02=»S P* 0 P******************************************* P* H P* R P ENTRY GPAD8 ADDRESS BLOCK P* ~ P* P* 0 P******************************************* P* P* EXTERNALS P* 0 P****************
0x21d4c0…21d654 (1, 529) Dummy {f00=0x00a6, f01=0x0190, f02=» p & P EXTRN LENDIS END I/O AND DISPATCH & P EXTRN OUTPUT OUTPUT ONE CHARACTER 2 0 P EXTRN GETCHR GET CHARACTER FROM ECB BUFFER P EXTRN SETIMP SET TIMER =1 ( P EXTRN DWTST DWT STATUS DISPLACEMENT & P EXTRN DWTECB DWT ECB DISPLACEMENT ( P
0x21d654…21d7e8 Dummy {f00=0x00a6, f01=0x0190, f02=» STABLK DEF START OF BLOCK " P EXTRN ENDBLK DEF END OF BLOCK " P EXTRN DWTDEV DEVICE STATUS H P EJECT l P* ~ P* . P****************************************** P* P* CONSTANTS P* . P****************************
0x21d7e8…21d97c Dummy {f00=0x00a6, f01=0x018e, f02=»CR EQU /0D CARRIAGE RETURN PSO EQU /0E SHIFT OUT " PSI EQU /0F SHIFT IN > PESC EQU /1B ESCAPE Z , PCSI EQU /5B CONTROL SEQUENCE INTRODUCER t PREP EQU /62 REPEAT * PVPR EQU /65 VERTICAL POSITION RELATIVE " PINFF EQU /74 INPUT FRONT FEE
0x21d97c…21db10 Dummy {f00=0x00a6, f01=0x0190, f02=» j $ PSLPL EQU /76 SELECT PAGE LENGTH & PRIS EQU /63 RESET TO INITIAL STATE 0 $ PDSR EQU /6E DEVICE STATUS REPORT Z & PDCS EQU /50 DEVICE CONTROL STRING PST EQU /5C STRING TERMINATOR PDEL EQU /7F DELETE PZERO EQU /30 ZERO PNEG
0x21db10…21dca4 Dummy {f00=0x00a6, f01=0x0190, f02=»*********** b P* P* CONTROL SEQUENCES P* : > P********************************************************* D P* P* PBYTE FORM 8,8 P* P* PCSREP EQU * REPEAT P BYTE ESC,CSI P BYTE ZERO,ZERO
0x21dca4…21de38 Dummy {f00=0x00a6, f01=0x0190, f02=» P BYTE ZERO,VPR P BYTE NEG,NEG " PCSINFF EQU * INPUT FRONT FEED 0 P BYTE ESC,CSI V P BYTE ZERO,ZERO l P BYTE INFF,NEG . PCSVPFF EQU * VERTICAL POSITION FRONT FEED P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE VPFF,NEG
0x21de38…21dfcc Dummy {f00=0x00a6, f01=0x0190, f02=»TIONAL VERSION P BYTE ESC,CSI P BYTE ZERO,ZERO , P BYTE SNV,NEG D " PCSSLPL EQU * SELECT PAGELENGTH Z P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE SLPL,NEG * P BYTE NEG,NEG & PCSRIS EQU * RESET TO INITIAL STATE P
0x21dfcc…21e160 Dummy {f00=0x00a6, f01=0x0190, f02=»G,NEG P EJECT P* P* & < P******************************************************* 0 P* p P* CONDITIONAL ASSEMBLY z P* < P******************************************************* P* P* P* 4 P* THE ST
0x21e160…21e2f4 (1, 530) Dummy {f00=0x00a6, f01=0x018e, f02=» GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND F P =2 GREAT BRITAIN,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA 0 0 P =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG z , P =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA P =5 ITALY,SWITZERLAND P =6 SWE
0x21e2f4…21e488 Dummy {f00=0x00a6, f01=0x0190, f02=» r $ P =11 SWEDEN (SPECIAL VERSION) P =13 GREEK 0 $ P =14 JAPAN (KATAKANA VERSION) F $ P =15 ISRAEL (HEBREW VERSION) n P* P* ( PX:A EQU 02 GREAT BRITAIN AS STANDARD PSTDNCV EQU X:A P EJECT P* P*
0x21e488…21e61c Dummy {f00=0x00a6, f01=0x0190, f02=»ONT FEED DEVICE P* P* " P* , ( P* THE STANDARD PAGELENGTH IS DEFINED 6 & P* BY SETTING X:C = NUMBER OF LINES b P* P* PX:C EQU 48 PPAGLEN EQU X:C P* P* . P* THE STANDARD NUMBER OF LINES IS DEFINED
0x21e61c…21e7b0 Dummy {f00=0x00a6, f01=0x0190, f02=»* P* P* MMU BUFFER SIZE P* . P* 8 PX:E EQU 132 B PDVBLEN EQU X:E V P* l P* v P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* P* PMMUPAG EQU
0x21e7b0…21e944 Dummy {f00=0x00a6, f01=0x0190, f02=»U 0 j P* P* PCPU852 EQU 1 P EJECT 4 P* B P* L 0 P******************************************* V P* P* DWT - DISPLACEMENTS P* 0 P******************************************* P* P* P*
0x21e944…21ead8 Dummy {f00=0x00a6, f01=0x0190, f02=» IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF 0 P* < " PDWTTP EQU /2 TIMER POINTER =1 F ( PDWTDCS EQU /4 DOCUMENT CHARACTER SET l ( PDWTPCS EQU /6 PRINTER CHARACTER SET & PDWTPL EQU /8 PRINTER PAPER LENGTH & PDWTDL EQU /A DOCUMENT PAPE
0x21ead8…21ec6c Dummy {f00=0x00a6, f01=0x018e, f02=»(ACKUMULATED) v * PDWTSTR EQU /12 CONTROL SEQUENCE ADRESS > PDWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. D * PDWTACD EQU /16 ACTUAL COLUMN DOCUMENT & PDWTACP EQU /19 ACTUAL COLUMN PAPER $ PDWTCO1 EQU /1C COLUMN COUNTER 1 $ PDW
0x21ec6c…21ee00 Dummy {f00=0x00a6, f01=0x0190, f02=» P* P* 0 P******************************************* P* P P* ECB - DISPLACEMENTS Z P* x 0 P******************************************* P* & PECBBA EQU 2 BUFFER ADDRESS IN ECB ( PECBRL EQU 4 REQUESTED LENGTH I
0x21ee00…21ef94 (1, 531) Dummy {f00=0x00a6, f01=0x0190, f02=» EJECT P* 0 P******************************************* P* L P* TABLES V P* f 0 P******************************************* p P* P* P DATA DVBLEN MMU BUFFER SIZE P DATA 2 DEVICE INDEX PGPAD8 EQU * ADDR
0x21ef94…21f128 Dummy {f00=0x00a6, f01=0x0190, f02=» RECOVERY ROUTINE PTPTAB EQU * P IFT FFDEV=1 . P DATA /0107,/0C25,/3939 B P XIF b P DATA /0006,/2424 n PTPLEN EQU *-TPTAB P P P EJECT P* P* P* A C T P P* 2 P* THIS IS THE ACTIVA
0x21f128…21f2bc Dummy {f00=0x00a6, f01=0x0190, f02=» * ACTIVATION ENTRY P* P* & : P* GET DWT INDEX: 0=CONTINUOUS STATIONARY, 1=DOCUMENT 0 P* n " P LC A2,DWTOR,A6 GET DWT INDEX x P ANK A2,1 MASK , P LC A3,DWTDEV+1,A6 GET OLD DEVICE VALUE P ANK A3,/FE P ORR A3,A2 "
0x21f2bc…21f450 Dummy {f00=0x00a6, f01=0x0190, f02=»DK A3,TPLEN-1 . PACT010 CC A7,TPTAB,A3 CHECK IF LEGAL ORDER P RF(E) ACT020 VALID ORDER H P SUK A3,1 j P RB(NN) ACT010 TRY NEXT | P* P ABL LENDER ILLEGAL ORDER P* P* PACT020 EQU * P ADR A3,A3 GET INDEX
0x21f450…21f5e4 Dummy {f00=0x00a6, f01=0x0190, f02=»ELDOC f P XIF & P DATA TSTSTA,WRTCON,CSTPAR,CSTPAR P EJECT D P* R P* P* ORDER 00 : TEST STATUS f P* P* PTSTSTA EQU * TEST STATUS P CF A5,RESREC * P CF A5,GTSTAT GET STATUS FROM PRINTER P ABL LEN
0x21f5e4…21f778 Dummy {f00=0x00a6, f01=0x0190, f02=»TDOC EQU * P CF A5,GTSTAT " P LD A4,DWTDEV,A6 DEVICE STATUS ( ( P ANKL A4,/20 HAS POWER OFF OCCURED? N P RF(NZ) WRDO05 YES. z P LDKL A3,/2000 * P TM A1,A3 DOCUMENT OUT? P RF(Z) WRDO06 NO 0 P LDKL A3,/8000 YES.SET BIT 0 (RE
0x21f778…21f90c Dummy {f00=0x00a6, f01=0x0190, f02=» A3,1 P TM A1,A3 NOT OPERABLE? P RF(Z) WRDO10 NO . P ABL LENDIS END REQUEST F $ PWRDO10 LDK A2,20 MAX BLOCK SIZE f P CF A5,STABLK START OF BLOCK P ABL(NZ) ERROUT JMP IF ERROR , P LD A3,DWTDEV+DWTALN,A6 GET ACTUAL LINE P R
0x21f90c…21faa0 Dummy {f00=0x00a6, f01=0x0190, f02=»? v , P ABL(NE) POSERR NO, DOC. NOT POSITIONED P LD A3,DWTDEV+DWTDL,A6 * : 0 P ST A3,DWTDEV+DWTRLN,A6 FIRST LINE ON DOC. , PWRDO12 LDKL A2,CSINFF INPUT FRONT FEED : P LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NO DISPLACEMENT & P CF A5,SEN
0x21faa0…21fc34 (1, 532) Dummy {f00=0x00a7, f01=0x0190, f02=»DKL A2,CSSNV SELECT NATIONAL VERSION > P LDKL A3,DWTDEV+DWTDCS DOCUMENT CHARACTER SET DISPLACEMENT , , P CF A5,SEND SEND SELECT NATIONAL VERSION n P CF A5,ENDBLK END OF BLOCK P ABL(NZ) ERROUT JMP IF ERROR P* " P* EXAMINE CONTROL CHARA
0x21fc34…21fdc8 Dummy {f00=0x00a7, f01=0x0190, f02=»ATUS r ( P ANKL A1,/20 HAS POWER OFF OCCURED ? P RF(NZ) REP1 YES 8 P* P * P SUK A2,/2B PRINT WITHOUT LINE FEED ? Z P RF(Z) WRT03 YES , PWRT04 LDR A4,A2 SAVE CONTROL CHAR. IN A4 P LD A2,ECBRL,A8 P ADK A2,/8 MAX BLOCK SIZE
0x21fdc8…21ff5c Dummy {f00=0x00a7, f01=0x0190, f02=»A6 CLEAR DOCUMENT COLUMN COUNTER ~ * P SUK A2,5 PRINT AFTER TWO LINE FEED ? ( P RF(Z) TWOLF1 YES V P* p & P SUK A2,1 PRINT AFTER FORM FEED ? z & P ABL(Z) WRT14 YES, ALLREADY DONE ! P* * P RF ONELF1 PRINT AFTER ONE LINE FEED ! P*
0x21ff5c…2200f0 Dummy {f00=0x00a7, f01=0x0190, f02=»4,1 FOR CORRECT NO OF SPACES . PWRT05 CF A5,KONVER CONVERT BINARY TO ASCII ! $ @ P SC A2,DWTDEV+DWTACD,A6 STORE THE VALUE IN ACTUAL COL. DOC. ! V B P SC A4,DWTDEV+DWTACD+2,A6 STORE THE VALUE IN ACTUAL COL. DOC. ! P SRL A4,8 ! 6 P SC A4,DWTDEV+DWTACD+1
0x2200f0…220284 Dummy {f00=0x00a7, f01=0x0190, f02=»P IF ERROR ! ~ P LD A4,DWTDEV+DWTCO2,A6 " . P ABL(Z) WRT15 JMP IF NO PRECEIDING SPACES " 2 P LDK A2,/20 SEND SPACE " d P CF A5,OUTPUT " P ABL(NZ) ERROUT JMP IF ERROR " P LDKL A2,CSREP REPEAT " > P LDKL A3,DWTDEV+DWTACD ACTUAL COLUMN DOCUMENT
0x220284…220418 Dummy {f00=0x00a7, f01=0x0190, f02=»F A5,BINARY CONV ASCII TO BINARY " P SUK A3,1 INCR REQ LINE NO # ( P RF TWO TWO LINE FEED # J 2 PONELF1 LD A1,DWTDEV+DWTRLN,A6 GET REQ LINE NO # h P CF A5,BINARY # " PTWO SUK A3,1 INCR REQ LINE NO # P LDR A4,A3 # & P CF A5,KONVER CONV BINARY TO
0x220418…2205ac Dummy {f00=0x00a7, f01=0x0190, f02=»LN REQUESTED LINE NUMBER DISPLACEMENT # | P CF A5,SEND $ . P LD A4,DWTDEV+DWTRLN,A6 $ B 8 P ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQUESTED LINE $ b P RF WRT14 $ P* $ 2 P* REPEAT WRITE REQUEST AT DOCUMENT STATION $ P* $ PREP1 CF A5,RES
0x2205ac…220740 Dummy {f00=0x00a7, f01=0x0190, f02=»WRT15 JMP IF LF/FF DONE $ P RB WRT04 % P* % 2 P XIF % < P EJECT % H P* % V P* % ` , P* ORDER 06: WRITE CONTINOUS STATIONARY % j P* % P* % PWRTCON EQU * % $ P CF A5,GTSTAT GET DEVICE STATUS % P LDKL A3,/2000 * % P TM
0x220740…2208d4 (1, 533) Dummy {f00=0x00a7, f01=0x0190, f02=» P RF(Z) WRCO10 NO & P ABL ENDIO END REQUEST & P & : PWRCO10 LDK A2,/E BLOCK SIZE & B P CF A5,STABLK START OF BLOCK & f P ABL(NZ) ERROUT JMP IF ERROR & * P LDKL A2,CSSNV SELECT NATIONAL VERSION & : P LDKL A3,DWTDEV+DWTPCS PRINTER CHAR. SET DIS
0x2208d4…220a68 Dummy {f00=0x00a7, f01=0x0190, f02=»* & . P* EXAMINE CONTROL CHARACTER, CONTINOUS ' P* ' < ( P LDK A3,1 SET UP ECB BUFFER POINTER ' F ( P CF A15,GETCHR GET CONTROL CHARACTER ' r & P LD A1,DWTDEV,A6 GET DEVICE STATUS ' ( P ANKL A1,/20 HAS POWER OFF OCCURED ? ' P RF(NZ) REP2 YES '
0x220a68…220bfc Dummy {f00=0x00a7, f01=0x0190, f02=»A2,ECBRL,A8 ' P ADK A2,/8 BLOCK LENGTH ( P CF A5,STABLK START OF BLOCK ( 4 P ABL(NZ) ERROUT JMP IF ERROR ( X ( P LDR A2,A4 RESTORE CONT. CHAR. IN A2 ( | 2 P CM DWTDEV+DWTCO1,A6 CLEAR PAPER COL. COUNTER ( * P SUK A2,5 PRINT AFTER TWO LINE FEED ? (
0x220bfc…220d90 Dummy {f00=0x00a7, f01=0x0190, f02=»ER ONE LINE FEED ! ( | P* ) . P* EXECUTE CONTROL CHARACTER, CONTINOUS ) $ P* ) V 2 PWRC03 LD A4,DWTDEV+DWTCO1,A6 GET ACTUAL COLUMN ) ` * P RF(Z) WRC05 FOR CORRECT NO OF SPACES ) P SUK A4,1 ) . PWRC05 CF A5,KONVER CONVERT BINARY TO ASCII ) D P
0x220d90…220f24 Dummy {f00=0x00a7, f01=0x0190, f02=» P* * " PWRC07 LDK A2,/8C BLOCK LENGTH * P CF A5,STABLK START OF BLOCK * 4 P ABL(NZ) ERROUT JMP IF ERROR * X P LD A4,DWTDEV+DWTCO1,A6 * | , P RF(Z) WRT15 JMP IF NO PRECEIDING SPACES * P LDK A2,/20 SEND SPACE * P CF A5,OUTPUT * P ABL(NZ)
0x220f24…2210b8 Dummy {f00=0x00a7, f01=0x0190, f02=»ND REPEAT * P RF WRT15 + P* + $ $ PTWOLF2 LDK A2,LF SEND LINE FEED + . P CF A5,OUTPUT + V P ABL(NZ) ERROUT JMP IF ERROR + l $ PONELF2 LDK A2,LF SEND LINE FEED + P CF A5,OUTPUT + P ABL(NZ) ERROUT JMP IF ERROR + P RF WRT14 + P* +
0x2210b8…22124c Dummy {f00=0x00a7, f01=0x0190, f02=»EPEAT WRITE REQUEST AT CONTINOUS STATION + P* , 0 PREP2 CF A5,RESREC , : * P SUK A2,/2B PRINT WITHOUT LINE FEED ? , T P RB(Z) WRC07 YES , * P LD A1,DWTDEV+DWTLFD,A6 GET INDICATOR , $ P RF(NZ) WRT15 JMP IF LF/FF DONE , P RB WRC04 , P EJECT
0x22124c…2213e0 Dummy {f00=0x00a7, f01=0x0190, f02=»4 IM DWTDEV+DWTLFD,A6 SET LF/FF INDICATOR , P* - 2 * PWRT15 LDK A3,2 SET ECB BUFFER POINTER - < & PWRT16 CF A15,GETCHR GET CHARACTER - j P LDR A4,A1 BUFFER FINISHED ? - P RF(P) WRT20 NO - . PWRT17 SUK A3,/02 ECB BUFFER POINTER = /02 - P RF(Z)
0x2213e0…221574 (1, 534) Dummy {f00=0x00a7, f01=0x018e, f02=»DBLK END OF BLOCK - P ABL(NZ) ERROUT JMP IF ERROR . P CF A5,GTSTAT GET STATUS . > P RF ENDIO END REQUEST . ^ P* . | PWRT20 EQU * . P LDR A4,A2 . P* . @ P* EXAMINE CHARACTER AND SEND DEPENDING ON TYPE OF CHARACTER . P* . P .
0x221574…221708 Dummy {f00=0x00a7, f01=0x0190, f02=» P SUK A4,/2F NO. CHAR = /AE? / ( P RF(Z) WRT30 YES. CONVERT /AE TO /2E / ( 4 P LDK A4,/04 ILLEGAL CHARACTER SET BIT 13 IN R.C. / T P ORS A4,ECBRC,A8 / P RB WRT16 / PWRT30 LDK A2,/2E / PWRT25 LDR A4,A1 / P CF A5,OUTPUT SEND CHARACTER /
0x221708…22189c Dummy {f00=0x00a7, f01=0x0190, f02=»DWTDEV+DWTCO1,A6 INC.COLUMN COUNTER 1 / P RB WRT16 0 . 2 PWRT40 IM DWTDEV+DWTCO2,A6 INC.COLUMN COUNTER 2 0 @ P RB WRT16 0 v PENDIO EQU * 0 . P CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR 0 P ABL LENDIS END REQUEST 0 P EJECT 0 P IFT FFDEV=1
0x22189c…221a30 Dummy {f00=0x00a7, f01=0x0190, f02=» " PPOSDOC EQU * POSITION DOCUMENT 1 P CF A5,RESREC 1 * $ P CF A5,GTSTAT GET DEVICE STATUS 1 @ P LDK A3,1 NOT OPERABLE 1 h P TM A1,A3 * 1 P RF(NZ) POS020 YES 1 P LDK A2,/E BLOCK LENGTH 1 P CF A5,STABLK START OF BLOCK 1 P ABL(NZ) ERR
0x221a30…221bc4 Dummy {f00=0x00a7, f01=0x018e, f02=»NV 1 ~ P CF A5,ENDBLK END OF BLOCK 2 P ABL(NZ) ERROUT JMP IF ERROR 2 , & P LD A4,ECBCW,A8 GET REQUESTED LINE 2 P P ANK A4,/FF 2 z & P RF(Z) POSERR ILLEGAL LINE NUMBER 2 $ P LD A1,DWTDEV+DWTDL,A6 MAX. LINE 2 * P CF A5,BINARY CONVERT ASCII TO BINARY 2
0x221bc4…221d58 Dummy {f00=0x00a7, f01=0x018e, f02=» ( P NGR A4,A4 GET PRINTER REQ. LINE NO. 3 * P CF A5,KONVER CONVERT BINARY TO ASCII 3 0 . P ST A4,DWTDEV+DWTRLN,A6 SET REQUESTED LINE 3 ^ , P LD A4,DWTDEV+DWTALN,A6 GET ACTUAL LINE 3 . P RF(NZ) POS030 DOCUMENT ALREADY POSITIONED 3 PPOS005 EQU * 3 P L
0x221d58…221eec Dummy {f00=0x00a7, f01=0x0190, f02=» 3 n > P LDKL A3,DWTDEV+DWTRLN REQUESTED LINE NUMBER DISPLACEMENT 4 & P CF A5,SEND SEND INPUT FRONT FEED 4 J PPOS010 EQU * 4 t P CF A5,ENDBLK END OF BLOCK 4 P ABL(NZ) ERROUT JMP IF ERROR 4 P CF A5,GTSTAT GET STATUS 4 P LDR A2,A1 GET RETURN CODE
0x221eec…222080 Dummy {f00=0x00a7, f01=0x018e, f02=»GET REQUESTED LINE 4 x 2 P ST A4,DWTDEV+DWTALN,A6 ACTUAL LINE = REQ LINE 5 PPOS020 ABL LENDIS 5 P PPOS030 EQU * 5 j P LDK A2,/6 BLOCK LENGTH 5 ~ P CF A5,STABLK START OF BLOCK 5 P ABL(NZ) ERROUT JMP IF ERROR 5 0 P LDKL A2,CSVPFF VERTICAL POSITION
0x222080…222214 (1, 535) Dummy {f00=0x00a7, f01=0x0190, f02=» P RB POS010 6 P XIF 6 PPOSERR EQU * 6 " ( P ABL LENDER REQ. ERROR, END REQUEST 6 6 P EJECT 6 b P IFT FFDEV=1 6 p P* 6 P* 6 ( P* ORDER 24 : SET DOCUMENT PARAMETERS 6 P* 6 P* 6 $ PDOCPAR EQU * DOCUMENT PARAMETERS 6 P LDK A1,
0x222214…2223a8 Dummy {f00=0x00a7, f01=0x0190, f02=»E OF LINES 6 z P CWK A4,/10 INDEX TO BIG 7 P RB(G) POSERR YES 7 2 * P ADR A4,A4 ADJUST INDEX TO LINE TABLE 7 L 0 P LD A4,LINNUM,A4 GET LINE ACCORDING TO INDEX 7 z 8 P ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH FOR DOCUMENT 7 PDOC010 EQU * 7 4 P LD A4,ECB
0x2223a8…22253c Dummy {f00=0x00a7, f01=0x0190, f02=»NDEX TO BIG 7 P RB(G) POSERR YES 8 " P ADR A4,A4 ADJUST TABLE INDEX 8 . 6 P LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX 8 T : P ST A4,DWTDEV+DWTDCS,A6 SET CHARACTER SET FOR DOCUMENT 8 PDOC020 EQU * 8 P RB ENDIO END REQUEST 8 P XIF 8
0x22253c…2226d0 Dummy {f00=0x00a7, f01=0x0190, f02=»ETERS CONTINUOUS STATIONARY 8 z P LDK A1,0 CLEAR A1 9 $ P CF A5,RESREC 9 @ , P LD A4,ECBCW,A8 GET NUMBER OF LINES CST. 9 V P SRL A4,8 GET LINES 9 $ P RF(Z) CST010 NO CHANGE OF LINES 9 P CWK A4,/10 INDEX TO BIG 9 P RB(G) POSERR YES 9 * P ADR
0x2226d0…222864 Dummy {f00=0x00a7, f01=0x0190, f02=»OR CONT.STAT. 9 h P LDK A2,/A BLOCK LENGTH : P CF A5,STABLK START OF BLOCK : 6 P ABL(NZ) ERROUT JMP IF ERROR : Z & P LDKL A2,CSSLPL SELECT PAGELENGTH : ~ 6 P LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. : & P CF A5,SEND SEND SLECT PAGELENGTH :
0x222864…2229f8 Dummy {f00=0x00a7, f01=0x018e, f02=»IATION : f P ANK A4,/FF ; . P RF(Z) CST020 NO CHANGE OF NAT. CHAR. SET ; " P CWK A4,/F INDEX TO BIG ; T P RB(G) POSERR YES ; t 0 P ADR A4,A4 ADJUST INDEX TO NAT. CHAR. TABLE ; 6 P LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. TO INDEX ; > P ST A4,DWTDE
0x2229f8…222b8c Dummy {f00=0x00a7, f01=0x0190, f02=» P* < P* < " P* ORDER 38 : RELEASE DOCUMENT < P* < > P* < H PRELDOC EQU * < R P LDK A2,/4 BLOCK LENGTH < f P CF A5,STABLK START OF BLOCK < P ABL(NZ) ERROUT JMP IF ERROR < P CF A5,RESREC < 2 P LDKL A2,CSEJFF CONTROL SEQ. EJECT F
0x222b8c…222d20 Dummy {f00=0x00a7, f01=0x0190, f02=»GET STATUS FROM PRINTER < P LDR A2,A1 GET RETURN CODE = " P ANK A2,/20 DOCUMENT RELEASED = B " P RB(NZ) RELDOC NO , TRY AGAIN = h P ANKL A1,/8000 REQUEST ERROR = * P CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE = . P CM DWTDEV+DWTRLN,A6 RESET REQUESTED LIN
0x222d20…222eb4 (1, 536) Dummy {f00=0x00a8, f01=0x0190, f02=»EATS RUNNING REQUEST AT POWER ON = z P* > ( P* > 2 PRCTP EQU * > < * PRCTP07 LDKL A1,/7FFF SET DEVICE BUSY > N P ANS A1,DWTST,A6 BUSY > | P LDKL A5,DWTSB2 STACK BASE > P ADR A5,A6 > P LDK A2,/F BLOCK LENGTH > P CF A5,STABLK START OF BLO
0x222eb4…223048 Dummy {f00=0x00a8, f01=0x0190, f02=» 8 P LD A1,DWTDEV+DWTSYST,A6 INTERN. SYSTEM START IND. ? " P RF(Z) RCTP10 NO SYSTEM START ? @ P * ? f 6 P CM DWTDEV+DWTSYST,A6 SET SYSTEM START INDICATOR ? t P * ? 0 P LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET ? * P CF A5,KONVER CONVERT BI
0x223048…2231dc Dummy {f00=0x00a8, f01=0x0190, f02=»L A4,PAGLEN STANDARD PAGE LENGTH ? * P CF A5,KONVER CONVERT BINARY TO ASCII @ ( 6 P ST A4,DWTDEV+DWTPL,A6 SET PAGE LENGTH CONT.STAT. @ V & P LDKL A2,CSSLPL SELECT PAGELENGTH @ 6 P LDKL A3,DWTDEV+DWTPL PRINTER PAPER LENGTH DISPL. @ & P CF A5,SEND SEND SEL
0x2231dc…223370 Dummy {f00=0x00a8, f01=0x018e, f02=»DEV+DWTDL,A6 SET PAGE LENGTH DOCUMENT @ PRCTP10 EQU * A . P CF A5,ENDBLK END OF BLOCK A B P ABL(NZ) ERROUT JMP IF ERROR A d * P CM DWTDEV+DWTALN,A6 RESET ACTUAL LINE A , P LDKL A1,/20 INDICATE POWER OFF OCCURED A P ORS A1,DWTDEV,A6 A $ P LD A1,D
0x223370…223504 Dummy {f00=0x00a8, f01=0x0190, f02=» A P* GTSTAT B P* B P* B " > P* THIS ROUTINE SENDS 'DEVICE STATUS REPORT TO THE PRINTER B , P* B n : P* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER B x P* B P* AT EXIT A1 = RETURN CODE B P* B P* B PGTSTAT EQU * B *
0x223504…223698 Dummy {f00=0x00a8, f01=0x0190, f02=»IF ERROR B | P LDK A2,ESC ESCAPE C P CF A5,OUTPUT SEND ESC C , P ABL(NZ) ERROUT JMP IF ERROR C J , P LDK A2,CSI CONTROL SEQUENCE INTRODUCER C n P CF A5,OUTPUT SEND CSI C P ABL(NZ) ERROUT JMP IF ERROR C P LDK A2,/35 C P CF A5,OUTPUT SEND /
0x223698…22382c Dummy {f00=0x00a8, f01=0x018e, f02=»IF ERROR C | P CF A5,ENDBLK END OF BLOCK D P ABL(NZ) ERROUT JMP IF ERROR D 2 " P LDR A1,A6 SAVE DWT ADDRESS =1 D V P LDKL A4,DWTDEV+DWTTP =1 D | P ADR A4,A6 =1 D P CF A15,SETIMP SET TIMER =1 D . P DATA ERGP00,TIME RETURN ADDR., TIMEOUT =1 D (
0x22382c…2239c0 Dummy {f00=0x00a8, f01=0x0190, f02=» D h P ANK A2,/FF GET CHARACTER E $ P CCK A2,/5C5C STRING TERMINATOR E * P RF(E) GTSEND YES E R $ P LCR A3,A4 GET MASK RETURN CODE E l P ANR A2,A3 E * P LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 E P LC A3,1,A4 A3 TIMES E $ P EXR A3 EXECUT SHIFT INS
0x2239c0…223b54 (1, 537) Dummy {f00=0x00a8, f01=0x018e, f02=» CHARACTER E v PGTSEND EQU * F * P LD A1,DWTDEV+DWTRC,A6 GET RETURN CODE F & P LD A2,DWTDEV+DWTTP,A6 =1 F T , P RF(Z) GTST20 CHECK IF ALLREADY ZERO =1 F x ( P CM* DWTDEV+DWTTP,A6 RESET TIMER =1 F 4 PGTST20 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 F
0x223b54…223ce8 Dummy {f00=0x00a8, f01=0x0190, f02=» P* A1= WORK REGISTER G P* A4= BINARY INPUT G " P* A2,A4= ASCII OUTPUT G > P* G ^ P* G h PKONVER EQU * G r P* BINARY TO DEC. G P LDK A2,0 CLEAR A2 G P CWK A4,100 VALUE > 100 ? G P RF(L) KONV05 NO G P SUKL A4,100 G & P L
0x223ce8…223e7c Dummy {f00=0x00a8, f01=0x0190, f02=»/1 NUMBER OF TENS IN RIGHT B. OF A2=Y G P RB KONV05 NEXT H . " PKONV04 ORKL A2,/3030 XY IN A2 H F P ORK A4,/30 Z IN A4 H l P SRC A2,8 YX IN A2 H P LDR A1,A2 H P ANKL A1,/FF00 KEEP Y IN A1 H . P ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII H
0x223e7c…224010 Dummy {f00=0x00a8, f01=0x0190, f02=»A4,DWTDEV,A6 DEVICE STATUS H P ANKL A4,/20 RECOVERY? I " P RF(E) RESRTN NO. I @ . P XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT I Z PRESRTN RTN A5 RETURN I P* I P* I P* I P* I : P* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK AND TIMER I
0x224010…2241a4 Dummy {f00=0x00a8, f01=0x0190, f02=»(NZ) RCTP RECOVERY I PERGP10 LDK A1,1 IND. NOT OP. J P ABL LENDIS J > P* J R PERGP00 EQU * =1 J $ P LDR A6,A1 RESTORE DWTADDRESS =1 J t . P CM DWTDEV+DWTTP,A6 RESET TIMER POINTER =1 J P RB ERGP10 J P EJECT J P* J P* J P* S E
0x2241a4…224338 Dummy {f00=0x00a8, f01=0x0190, f02=»A2 = CONTROL SEQUENCE ADRESS J 4 P* A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC K $ P* K P* K f P* AT EXIT : K p P* A1,A2,A3 IS DESTROYED K P* K P* K P* K $ PSEND EQU * SEND CONTROL SEQUENCE K 2 P ST A3,DWTDEV+DWTDISP,A6 SAVE
0x224338…2244cc Dummy {f00=0x00a8, f01=0x0190, f02=»SEQUENCE ADRESS K l P LCR A2,A3 GET CHARACTER L P ANK A2,/FF MAKE CHARACTER L 8 & P SLL A2,8 END OF CONTROL SEQUENCE L Z P RF(N) SENDEND YES,RETURN L & P CWK A2,/3000 LINE NO,CHAR.SET,ETC L P RF(E) SEND30 YES L ( P SRL A2,8 PREPARE TO SEND CHAR
0x2244cc…224660 Dummy {f00=0x00a8, f01=0x018e, f02=»ROLSEQUENCE ADRESS L r P RB SEND10 GET NEXT M PSEND30 EQU * M 6 2 P LD A3,DWTDEV+DWTDISP,A6 GET DWT-DISPLACEMENT M J P ADR A3,A6 GET PROPER VALUE M P LCR A2,A3 GET CHARACTER M P CF A5,OUTPUT SEND CHARACTER M P ABL(NZ) ERROUT JMP IF ERROR M
0x224660…2247f4 (1, 538) Dummy {f00=0x00a8, f01=0x0190, f02=» P* N P* N P* BINARY N P* N ( 8 P* THIS ROUTINE CONVERTS ASCII CODE TO A BINARY VALUE N 2 P* N n P* REGISTERS: N x P* A1= ASCII INPUT N P* A2= WORK REGISTER N P* A3= BINARY OUTPUT N P* N P* N P* N PBINARY SUR A
0x2247f4…224988 Dummy {f00=0x00a8, f01=0x018e, f02=»2,3 N P ADR A3,A2 O P ANK A1,/F O P ADR A3,A1 MAX. LINE BINARY O 0 P RTN A5 O T P EJECT O d " PLINNUM EQU *-2 NUMBER OF LINES O r " P DATA /3132,/3135,/3138,/3234 O " P DATA /3235,/3330,/3333,/3335 O " P DATA /3336,/3438,/3530,/3531 O "
0x224988…224b1c Dummy {f00=0x00a8, f01=0x415a, f02=» " P DATA /3031,/3032,/3033,/3034 P " P DATA /3035,/3036,/3037,/3038 P * " P DATA /3039,/3130,/3131,/3131 P P P DATA /3133,/3134,/3135 P v 8 PTAB EQU * MASK TABLE FOR STATUS REPORT FROM PRINTER P P DATA /C0,/C0,/C0,/2CC * P P DATA /2CF,/4CB,/C0,
0x224b1c…224cb0 Dummy {f00=0x00a8, f01=0x4008, f02=»@ Q @
0x224cb0…224e44 Dummy {f00=0x00a8, f01=0x2008, f02=» R * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x224e44…224fd8 Dummy {f00=0x00a8, f01=0x0190, f02=»,IN:WE1-/80 1ST WER INSTRUCTION P* ( P EJECT DRFD02 2 P* H P* R P LDR A3,A7 ORDER P RB(Z) TESTST TEST STATUS t P IFT TOSS=1 P IFT IBM=0 P SUK A3,OR:BAR-OR:TES P RF(Z) READ BASIC READ P SUK A3,OR:BAW-O
0x224fd8…22516c Dummy {f00=0x00a8, f01=0x0190, f02=» P RF(Z) WRITE PHYSICAL WRITE P SUK A3,OR:FOV-OR:PHW ( P ABL(Z) FORMAT FORMAT VOLUME F P SUK A3,OR:DDW-OR:FOV j $ P RF(Z) DDWRIT WRITE DELETED DATA P SUK A3,OR:LCK-OR:DDW P ABL(Z) LOCKDO LOCK P SUK A3,OR:LOD-OR:LCK P
0x22516c…225300 Dummy {f00=0x00a8, f01=0x0190, f02=»:BAR-OR:TES P RF(Z) READ BASIC READ P SUK A3,OR:SER-OR:BAR 2 " P ABL(Z) SQREAD SEQUENTIAL READ P P SUK A3,OR:BAW-OR:SER v P RF(Z) WRITE BASIC WRITE P SUK A3,OR:SEW-OR:BAW $ P ABL(Z) SQWRIT SEQUENTIAL WRITE P SUK A3,OR:PHR
0x225300…225494 (1, 539) Opaque[0x194]
0x225494…225628 # DirEnt {nam=»DRGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1518, f03=0x0000}
0x225494…225628 IdxSect {
0x225494…225628 f00 = 0x00a8 // 0x225494 @0x0
0x225494…225628 f01 = 0x001c // 0x225496 @0x2
0x225494…225628 gno = [ // 0x225498 @0x4
0x225494…225628 [0x00]: C0x00a8.0x3.0
0x225494…225628 [0x01]: C0x00a9.0x0.0
0x225494…225628 [0x02]: C0x00a9.0x1.0
0x225494…225628 [0x03]: C0x00a9.0x2.0
0x225494…225628 [0x04]: C0x00a9.0x3.0
0x225494…225628 [0x05]: C0x00aa.0x0.0
0x225494…225628 [0x06]: C0x00aa.0x1.0
0x225494…225628 [0x07]: C0x00aa.0x2.0
0x225494…225628 [0x08]: C0x00aa.0x3.0
0x225494…225628 [0x09]: C0x00ab.0x0.0
0x225494…225628 [0x0a]: C0x00ab.0x1.0
0x225494…225628 [0x0b]: C0x00ab.0x2.0
0x225494…225628 [0x0c]: C0x00ab.0x3.0
0x225494…225628 [0x0d]: C0x00ac.0x0.0
0x225494…225628 ]
0x225494…225628 }
0x225628…2257bc Dummy {f00=0x00a8, f01=0x0190, f02=» 2 P IDENT DRGP03 REL 11.0 81-06-01 870105041100 P : P =1,STATUS DEL. B P REL 11.0 81-01-26 P* x < P******************************************************* < P* * < P* PH
0x2257bc…225950 Dummy {f00=0x00a8, f01=0x0190, f02=»RIVER GENERAL PRINTER * < P* * * < P* * j < P* * < P******************************
0x225950…225ae4 Dummy {f00=0x00a8, f01=0x0190, f02=»THE DRIVER CONSISTS OF THE FOLLOWING PARTS : P* 4 $ P* A C T P : ACTIVATION PART > P* f $ P* R C T P : RECOVERY ROUTINE p P* P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* $ P* ORDER 00
0x225ae4…225c78 Dummy {f00=0x00a8, f01=0x0190, f02=»ON DOCUMENT v . P* ORDER 24 : SET PRINTER PARAMETERS , P* ORDER 27 : SET FORM PARAMETERS F ( P* ORDER 38 : RELEASE DOCUMENT v P* , P* THE FOLLOWING RETURN CODES ARE USED: P* & P* BIT 0 : REQUEST ERROR
0x225c78…225e0c Dummy {f00=0x00a8, f01=0x0190, f02=»RROR p $ P* BIT 15 : NOT OPERABLE P* 4 P* > P* NORMAL REGISTER USAGE: H P* j " P* REGISTER A1: WORK REGISTER t " P* A2: INPUT/OUTPUT $ P* A3: BUFFER POINTER " P* A4: WORK REGISTER
0x225e0c…225fa0 Dummy {f00=0x00a8, f01=0x0190, f02=»SS v P* P* P EJECT P* , P* 6 0 P******************************************* @ P* t P* ENTRIES ~ P* 0 P******************************************* P* P* P ENTRY GPAD3 ADDRESS BLOCK P*
0x225fa0…226134 (1, 540) Dummy {f00=0x00a9, f01=0x0190, f02=»************************* ~ P* " P* , , P EXTRN LDISP DISPATCHING FROM INTERRUPT 6 $ P EXTRN LENDER DISPATCH I/O ERROR f & P EXTRN LENDIS END I/O AND DISPATCH & P EXTRN OUTPUT OUTPUT ONE CHARACTER 0 P EXTRN GETCHR GET CHARACTER FROM ECB B
0x226134…2262c8 Dummy {f00=0x00a9, f01=0x0190, f02=»RN DWTOR DWT ORDER DISPLACEMENT P EXTRN DWTSB2 STACK BASE ( 2 P EXTRN INPUT STORE REG = GET STATUS INPUT CHAR H $ P EXTRN STABLK DEF START OF BLOCK ~ " P EXTRN ENDBLK DEF END OF BLOCK P EXTRN DWTDEV DEVICE STATUS P EJECT P*
0x2262c8…22645c Dummy {f00=0x00a9, f01=0x0190, f02=» f P* P* " PSPEC EQU /2E SPECIAL CHARACTER PLF EQU /0A LINE FEED B " PRLF EQU /40 REVERSE LINE FEED ^ PFF EQU /0C FORM FEED PCR EQU /0D CARRIAGE RETURN PSO EQU /0E SHIFT OUT PSI EQU /0F SHIFT IN PESC EQU /1B ES
0x22645c…2265f0 Dummy {f00=0x00a9, f01=0x0190, f02=»EQU /64 VERTICAL POSITION ABSOLUTE ( PSNV EQU /77 SELECT NATIONAL VERSION * $ PSLPL EQU /76 SELECT PAGE LENGTH V & PRIS EQU /63 RESET TO INITIAL STATE ~ $ PDSR EQU /6E DEVICE STATUS REPORT PDS EQU /35 DEVICE STATUS & PDCS EQU /50 DEVICE CONTR
0x2265f0…226784 Dummy {f00=0x00a9, f01=0x0190, f02=»8 CHARACTER PITCH LOAD 0 PHPA EQU /60 HORIZONTAL POSITIONING ABSOLUTE * PHTS EQU /48 HORIZONTAL TABULATION SET R , PTBC EQU /67 HORIZONTAL TABULATION CLEAR PLSL EQU /7B LINE SPACE LOAD PSM EQU /68 SET MODE PRM EQU /6C RESET MODE
0x226784…226918 Dummy {f00=0x00a9, f01=0x0190, f02=» 25 SEC. TIMER P EJECT P* ( P* 2 > P********************************************************* < P* ~ P* CONTROL SEQUENCES P* > P********************************************************* P* P* PBYTE
0x226918…226aac Dummy {f00=0x00a9, f01=0x0190, f02=»E NEG,NEG PCSSNV EQU * P SELECT NATIONAL VERSION & P BYTE ESC,CSI H P BYTE ZERO,ZERO ^ P BYTE SNV,NEG v " PCSSLPL EQU * SELECT PAGELENGTH P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE SLPL,NEG P BYTE NEG,NEG
0x226aac…226c40 Dummy {f00=0x00a9, f01=0x018e, f02=»YTE ESC,CSI P BYTE DS,DSR P BYTE NEG,NEG ( $ PCSCPL EQU * CHARACTER PITCH LOAD > P BYTE ESC,CSI f P BYTE ZERO,SEP | P BYTE ZERO,CPL P BYTE NEG,NEG 0 PCSHPA EQU * HORIZONTAL POSITIONING ABSOLUTE P BYTE ESC,CSI P
0x226c40…226dd4 (1, 541) Dummy {f00=0x00a9, f01=0x0190, f02=» P BYTE ZERO,TBC P BYTE NEG,NEG * PCSHTS EQU * HORIZONTAL TABULATION SET 0 P BYTE ESC,HTS ^ P BYTE NEG,NEG t . PCSVPA EQU * VERTICAL POSITIONING ABSOLUTE P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE VPA,NEG PCSLSL EQ
0x226dd4…226f68 Dummy {f00=0x00a9, f01=0x0190, f02=»I P BYTE FR,ZERO P BYTE SM,NEG PCSRM EQU * RESET MODE 4 P BYTE ESC,CSI R P BYTE FR,ZERO h P BYTE RM,NEG ~ PCSSUL EQU * START UNDERLINE P BYTE ESC,CSI P BYTE UL,SGR P BYTE NEG,NEG PCSEUL EQU * STOP U
0x226f68…2270fc Dummy {f00=0x00a9, f01=0x0190, f02=»*********************************** | P* , P* CONDITIONAL ASSEMBLY 6 P* T < P******************************************************* ^ P* P* P* 4 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN 8 P* BY SETTING X:A TO
0x2270fc…227290 Dummy {f00=0x00a9, f01=0x0190, f02=»,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA | 0 P =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG 6 , P =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA j P =5 ITALY,SWITZERLAND P =6 SWEDEN,FINLAND P =7 DENMARK,NORWAY P =8 PORTUGAL,BR
0x227290…227424 Dummy {f00=0x00a9, f01=0x018e, f02=» =14 JAPAN (KATAKANA VERSION) $ P =15 ISRAEL (HEBREW VERSION) ( P* P P* Z ( PX:A EQU 02 GREAT BRITAIN AS STANDARD d PSTDNCV EQU X:A P EJECT P* P* & P* FRICTION FEED CAN BE SELECTED BY P* SETTING X:B=1
0x227424…2275b8 Dummy {f00=0x00a9, f01=0x0190, f02=» P* P* PX:C EQU 1 $ PFFDEV EQU X:C FRONT FEED DEVICE * P* R P* P* f ( P* THE STANDARD PAGELENGTH IS DEFINED p & P* BY SETTING X:D = NUMBER OF LINES P* P* PX:D EQU 48 PPAGLEN EQU X:D P*
0x2275b8…22774c Dummy {f00=0x00a9, f01=0x0190, f02=» PDOCLEN EQU X:E P* " P* , P* 6 P* MMU BUFFER SIZE @ P* Z P* d PX:F EQU 132 n PDVBLEN EQU X:F P* P EJECT P* P* 0 P* THE STANDARD MATRIX IS SELECTED BY SETTING P* X:G=MATRIX NUM
0x22774c…2278e0 Dummy {f00=0x00a9, f01=0x0190, f02=»H) IS SELECTED BY j @ P* SETTING X:H=(1-4). 1=10 CH/INCH,2=12 CH/INCH,3=15 CH/INCH P* 4= PROPORTIONAL PITCH ^ P* ~ P* PX:H EQU 1 PDENSIT EQU X:H P* P* < P* HIGH SPEED PRINTING CAN BE PERFORMED BY SETTING X:I=1
0x2278e0…227a74 (1, 542) Dummy {f00=0x00a9, f01=0x018e, f02=»INK- ^ ( P* ERROR OR SOFTW. TIME OUT IF X:J=1 P* 8 P* B PX:J EQU 0 L PREQEND EQU X:J ^ P* t P* ~ 8 P* ORDER /27, SET FORM PARAMETERS CAN BE EXCLUDED BY P* SETTING X:K=0 P* P* PX:K EQU 1 PFORMPA
0x227a74…227c08 Dummy {f00=0x00a9, f01=0x0190, f02=» P* PMMUPAG EQU 0 P* & P* 0 P* : 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION D . P* SET IS OBTAINED BY SETTING CPU852 EQU 0 ~ P* P* PCPU852 EQU 1 P EJECT P* P* 0 P**************
0x227c08…227d9c Dummy {f00=0x00a9, f01=0x0190, f02=» P* PDWTTP EQU /2 TIMER POINTER ( PDWTDCS EQU /4 DOCUMENT CHARACTER SET 0 ( PDWTPCS EQU /6 PRINTER CHARACTER SET & PDWTPL EQU /8 PRINTER PAPER LENGTH & PDWTDL EQU /A DOCUMENT PAPER LENGTH * PDWTALN EQU /C ACTUAL LINE ON DOCUMENT ,
0x227d9c…227f30 Dummy {f00=0x00a9, f01=0x0190, f02=» j > PDWTDISP EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. & PDWTACP EQU /16 ACTUAL COLUMN PAPER J $ PDWTCO1 EQU /1A COLUMN COUNTER 1 t & PDWTSYST EQU /1C SYSTEM START IND. , PDWTLFD EQU /1E LINE/FORM FEED INDICATOR 4 PDWTCMF EQU /20 CHA
0x227f30…2280c4 Dummy {f00=0x00a9, f01=0x0190, f02=»QU /26 HIGH SPEED PDWTHOP EQU /28 HOPPER 1 OR 2 $ PDWTTAB EQU /2A LAST TAB POS SET > . PDWTSER EQU /2E CONTR. SEQ. SEPARATOR IND. f P EJECT P* P* 0 P******************************************* P* P* ECB - DISPLACE
0x2280c4…228258 Dummy {f00=0x00a9, f01=0x018e, f02=»U 4 REQUESTED LENGTH IN ECB ( PECBEL EQU 6 EFFECTIVE LENGTH IN ECB $ " PECBRC EQU 8 RETURN CODE IN ECB P $ PECBCW EQU 10 CONTROL WORD IN ECB v P EJECT P* 0 P******************************************* P* P* TABLES P*
0x228258…2283ec Dummy {f00=0x00a9, f01=0x0190, f02=» z PGPAD3 EQU * ADDRESS BLOCK P DATA ACTP ACTIVATION DRIVER * " P DATA 0 ABORT ROUTINE ADDRESS N P DATA 0 INTERRUPT HANDLER t P DATA RCTP RECOVERY ROUTINE PTPTAB EQU * P IFT SINHAN+FFDEV=1 P DATA /0107,/0C25,/2839
0x2283ec…228580 Dummy {f00=0x00a9, f01=0x0190, f02=»************************** n P* " P* A C T P , P* @ 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER J > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR P* @ P************************************************************
0x228580…228714 (1, 543) Dummy {f00=0x00a9, f01=0x0190, f02=» R P* " P LC A2,DWTOR,A6 GET DWT INDEX P ANK A2,1 MASK 8 , P SC A2,DWTDEV,A6 STORE NEW DEVICE INDEX N P CWK A7,/24 ~ P RF(E) ACT010 , P LC A3,DWTDEV+1,A6 GET OLD DEVICE INDEX P ANK A3,1 P CWR A2,A3 P RF(E) ACT01
0x228714…2288a8 Dummy {f00=0x00a9, f01=0x0190, f02=» n P LC A2,DWTDEV,A6 P ANK A2,1 PACT010 LC A3,DWTDEV+1,A6 2 P ANK A3,/FE R P ORR A3,A2 f " P SC A3,DWTDEV+1,A6 STORE INDEX x P CWK A7,/05 ORDER /05 ? P RF(E) ACT015 YES & P ADR A7,A2 ADD DWT INDEX TO ORDER 0 PACT015
0x2288a8…228a3c Dummy {f00=0x00a9, f01=0x0190, f02=»040 VALID ORDER P SUK A3,1 P RB(NN) ACT030 TRY NEXT * P* J P ABL LENDER ILLEGAL ORDER T P* v P* PACT040 EQU * P ADR A3,A3 GET INDEX P ABI TPFUC,A3 EXECUTE ORDER PTPFUC EQU * P IFT SINHAN+FFDEV=1
0x228a3c…228bd0 Dummy {f00=0x00a9, f01=0x018e, f02=» " P****************************** ! P* ! . P* ORDER 00 : TEST STATUS ! 8 P* ! Z " P****************************** ! d PTSTSTA EQU * TEST STATUS ! * P CF A5,GTSTAT GET STATUS FROM PRINTER ! $ PTSTEND LDR A2,A1 GET RETURN CODE ! " P ANKL A2
0x228bd0…228d64 Dummy {f00=0x00a9, f01=0x0190, f02=» ! P************************* " P* " * P* ORDER 06: WRITE " 4 P* " P P************************* " Z PWRTCON EQU * " | P* * =1 " P* * =1 " P* * =1 " $ P LD A2,ECBRL,A8 GET REQ. LENGTH " P ADK A2,/8 BLOCK LENGTH " P
0x228d64…228ef8 Dummy {f00=0x00a9, f01=0x0190, f02=»3,1 SET UP ECB BUFFER POINTER " ( P CF A15,GETCHR GET CONTROL CHARACTER # & & P LD A1,DWTDEV,A6 GET DEVICE STATUS # R ( P ANK A1,/20 HAS POWER OFF OCCURED ? # | P RF(NZ) REP2 YES # ( P SUK A2,/2B PRINT ON SAME LINE =/2B? # P RF(Z) WRC20 YES # 2 PWRC0
0x228ef8…22908c Dummy {f00=0x00a9, f01=0x0190, f02=»PRINT AFTER FORM FEED =/31 ? # P RF(NZ) ONELF NO,ONE LF $ $ P* $ D P LDK A2,FF $ N P RF FORMF FORM FEED $ ` P* $ | " P* EXECUTE CONTROL CHARACTER $ P* $ PWRC20 EQU * $ P LDK A2,CR CARRIDGE RETURN $ P CF A5,OUTPUT $ P RF(NZ
0x22908c…229220 Dummy {f00=0x00a9, f01=0x018e, f02=»C05 CF A5,KONVER CONVERT BINARY TO ASCII $ : P ST A2,DWTDEV+DWTACP,A6 STORE THE VALUE IN ACTUAL COL. % 0 : P ST A4,DWTDEV+DWTACP+2,A6 STORE THE VALUE IN ACT. COL. % n P* % 2 PWRC07 LD A4,DWTDEV+DWTCO1,A6 GET ACTUAL COLUMN % , P RF(Z) WRT15 JMP IF NO PRECE
0x229220…2293b4 (1, 544) Dummy {f00=0x00aa, f01=0x0190, f02=» > P LDKL A3,DWTDEV+DWTACP+1 ACTUAL COLUMN PAPER DISPLACEMENT & P CF A5,SEND SEND REPEAT & F P RF WRT15 & f P* & x PTWOLF LDK A2,LF LINE FEED & P CF A5,OUTPUT & P RF(NZ) ERGP01 JMP IF ERROR & PONELF LDK A2,LF LINE FEED & PFORMF CF
0x2293b4…229548 Dummy {f00=0x00aa, f01=0x0190, f02=»R & v , P IM DWTDEV+DWTLFD,A6 SET LF/FF INDICATOR ' P RF WRT15 ' : P* ' L P* REPEAT WRITE REQUEST ' V P* ' x PREP2 EQU * ' " P LDR A3,A2 SAVE CONTROL CHAR. ' $ P LDK A2,CR SEND CARRIDGE RETURN ' P CF A5,OUTPUT ' P RF(NZ) ERGP01 J
0x229548…2296dc Dummy {f00=0x00aa, f01=0x0190, f02=»,DWTDEV+DWTLFD,A6 GET INDICATOR ' $ P RF(NZ) WRT15 JMP IF LF/FF DONE ( ( P RB WRC04 ( P P EJECT ( b P* ( p 2 P* ORDER 06 : THIS PART SENDS THE CHARACTERS ( z . P* TO DOCUMENT OR CONTINUOUS STATIONARY. ( P* ( P* ( * PWRT15 LDK A3,2 SET
0x2296dc…229870 Dummy {f00=0x00aa, f01=0x018e, f02=») ERGP04 JMP IF ERROR ( P LDK A2,/90 NEW BLOCK LENGTH ) P CF A5,STABLK START OF BLOCK ) B P RF(NZ) ERGP04 JMP IF ERROR ) f & PWRT030 CF A15,GETCHR GET CHARACTER ) P LDR A4,A1 BUFFER FINISHED ? ) P RF(P) WRT050 NO ) & P LD A4,DWTDEV,A6 GET DEV
0x229870…229a04 Dummy {f00=0x00aa, f01=0x0190, f02=» P RF(NZ) ERGP04 JMP IF ERROR * ( P XRS A4,DWTDEV,A6 RESET SHIFT INDIC. * ( $ PWRT040 CF A5,ENDBLK END OF BLOCK * T P RF(NZ) ERGP04 JMP IF ERROR * | P CF A5,GTSTAT GET STATUS * P RF ENDIO END REQUEST * P* * PWRT050 EQU * * P LDR A4,A2 *
0x229a04…229b98 Dummy {f00=0x00aa, f01=0x0190, f02=»F(NL) WRT100 NO * " P* CHECK IF SPECIAL CHARACTER + P SUK A4,/9 TABULATION ? + > P RF(Z) WRT170 YES + ^ P SUK A4,/9 START UNDERLINE ? + x P RF(NZ) WRT060 NO + & P LDR A4,A3 SAVE ECB BUFFER POINTER + ( P LDKL A3,CSSUL SEND START UNDERLINE +
0x229b98…229d2c Dummy {f00=0x00aa, f01=0x0190, f02=»A3,CSEUL SEND STOP UNDERLINE + PWRT070 CF A5,SEN40 GO & SEND , $ * P LDR A3,A4 RESTORE ECB BUFFER POINTER , H " P RB WRT020 GET NEXT CHARACTER , v 0 PWRT080 SUK A4,/8 /1B, PARTIAL LINE UP DOWN ? , * P RB(NZ) WRT020 NO, GET NEXT CHARACTER , , P CF A15,GE
0x229d2c…229ec0 Dummy {f00=0x00aa, f01=0x0190, f02=»OWN ? , v P RF(Z) WRT090 YES - P SUK A2,1 PARTIAL LINE UP ? - ( 0 P RF(NZ) WRT140 NO, INDICATE CODE CHECK ERROR - L 0 PWRT090 LDK A2,ESC SEND PARTIAL LINE UP/DOWN - P CF A5,OUTPUT - P RF(NZ) ERGP04 JMP IF ERROR - P LDR A2,A4 RESTORE CHAR. -
0x229ec0…22a054 (1, 545) Dummy {f00=0x00aa, f01=0x0190, f02=»</7E ? - x ( P RF(NP) WRT110 YES, LEGAL CHARACTER . P CWK A2,/AE ROOMLESS POINT ? . : P RF(E) WRT160 YES . ^ P SUK A4,/23 CHAR >=/A1 ? . x 0 P RF(N) WRT150 NO,INDICATE CODE CHECK ERROR ! . P SUK A4,/5D CHAR =</FE ? . ( P RF(NP) WRT120 YES, LEGAL CH
0x22a054…22a1e8 Dummy {f00=0x00aa, f01=0x0190, f02=»WTDEV,A6 7-BIT CODE /20-/7E . . P ANK A4,/80 SHIFT OUT PERFORMED EARLIER ? / $ $ P RF(Z) WRT170 NO, SEND CHARACTER / V P LDK A4,/80 / ~ , P XRS A4,DWTDEV,A6 RESET SHIFT INDICATOR / P LDR A4,A2 STORE CHAR. / P LDK A2,SI SEND SHIFT IN / P RF WRT1
0x22a1e8…22a37c Dummy {f00=0x00aa, f01=0x0190, f02=»ES, SEND CHARACTER / P LDK A4,/80 0 ( P ORS A4,DWTDEV,A6 INDICATE SHIFT OUT 0 . P LDR A4,A2 STORE CHAR. 0 Z P LDK A2,SO SEND SHIFT OUT 0 x * PWRT130 CF A5,OUTPUT SEND SHIFT CONTROL 0 P RF(NZ) ERGP04 JMP IF ERROR 0 P LDR A2,A4 RESTORE CHAR. 0
0x22a37c…22a510 Dummy {f00=0x00aa, f01=0x0190, f02=» IN R.C. 0 b P ORS A4,ECBRC,A8 1 P RB WRT020 1 ( PWRT160 LDK A2,/2E 1 : PWRT170 LDR A4,A1 1 T & P ANK A2,/7F MASK,JUST 7 BIT CHAR. 1 l P CF A5,OUTPUT SEND CHARACTER 1 & PERGP04 RF(NZ) ERGP06 JMP IF ERROR 1 . P IM DWTDEV+DWTCO1,A6 INC COLUMN COUN
0x22a510…22a6a4 Dummy {f00=0x00aa, f01=0x0190, f02=»P YES 1 $ P CF A5,RESREC RESET RECOVERY BIT 2 . P CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR 2 6 P ABL LENDIS END REQUEST 2 h P EJECT 2 " P****************************** 2 P* 2 P* ORDER 05 : BASIC WRITE 2 P* 2 " P**********************
0x22a6a4…22a838 Dummy {f00=0x00aa, f01=0x0190, f02=» 2 n & P LDR A2,A4 BLOCK LENGTH IN A2=144 3 P CF A5,STABLK START OF BLOCK 3 2 P RF(NZ) ERGP06 JMP IF ERROR 3 V & PBAS15 CF A15,GETCHR GET CHARACTER 3 z P LDR A1,A1 BUFFER FINISHED ? 3 P RF(Z) BAS25 YES 3 P CF A5,OUTPUT 3 P RF(NZ) ERGP06 JMP
0x22a838…22a9cc Dummy {f00=0x00aa, f01=0x0190, f02=»BLOCK 3 v P RF(NZ) ERGP06 JMP IF ERROR 4 P RB BAS10 START NEXT BLOCK 4 2 $ PBAS25 CF A5,ENDBLK END OF BLOCK 4 T & PERGP06 ABL(NZ) ERGP15 JMP IF ERROR 4 | ( P ABL TSTSTA CHECK STATUS & END REQ. 4 P EJECT 4 P IFT SINHAN+FFDEV=1 4 2 P************
0x22a9cc…22ab60 Dummy {f00=0x00aa, f01=0x018e, f02=» 4 d P* 5 2 P********************************************* 5 " PPOSDOC EQU * POSITION DOCUMENT 5 H $ P CF A5,GTSTAT GET DEVICE STATUS 5 n P LDR A1,A1 ERROR ? 5 $ P RF(NZ) POS040 ERROR INDICATION 5 & P LD A4,ECBCW,A8 GET REQUESTED LINE 5 P ANK A
0x22ab60…22acf4 (1, 546) Dummy {f00=0x00aa, f01=0x0190, f02=» 5 h " P CWR A4,A3 REQ. LINE>MAX. LINE 6 P RF(G) POSERR YES 6 . * P CF A5,KONVER CONVERT BINARY TO ASCII 6 H . P ST A4,DWTDEV+DWTRLN,A6 SET REQUESTED LINE 6 v PPOS005 EQU * 6 P LDK A2,/15 BLOCK LENGTH 6 P CF A5,STABLK START OF BLOCK 6 P RF(NZ)
0x22acf4…22ae88 Dummy {f00=0x00aa, f01=0x0190, f02=» JMP IF ERROR 6 PPOS020 LDKL A2,CSVPA 7 P LDKL A3,DWTDEV+DWTRLN 7 2 P CF A5,SEND 7 P $ PPOS030 CF A5,ENDBLK END OF BLOCK 7 d & PERGP08 ABL(NZ) ERGP15 JMP IF ERROR 7 P CF A5,GTSTAT GET STATUS 7 P RF(NZ) POS040 ERROR ? 7 . P LD A2,DWTDEV+DWTRLN
0x22ae88…22b01c Dummy {f00=0x00aa, f01=0x0190, f02=»POS040 EQU * 7 P LDR A2,A1 GET RETURN CODE 8 " P ANKL A2,/100 PRINTER RESET ? 8 6 P ABL(NZ) RCTP YES 8 $ P CF A5,RESREC RESET RECOVERY BIT 8 v P ABL LENDIS END REQUEST 8 PPOSERR ABL LENDER 8 P XIF 8 P EJECT 8 0 P**********************
0x22b01c…22b1b0 Dummy {f00=0x00aa, f01=0x0190, f02=»** 8 f PPRIPAR EQU * 9 * PPRI07 LDK A3,/6 SET UP BRANCH POINTER 9 $ P LD A1,ECBCW,A8 GET CONTROL WORD 9 N PPRI10 LDR A4,A1 9 v P IFT SINHAN+FFDEV=1 9 $ P LC A2,DWTOR+1,A6 GET DWT INDEX 9 P ANK A2,1 9 P RF(Z) PRI14 9 0 P ANK A4,/F CHECK
0x22b1b0…22b344 Dummy {f00=0x00aa, f01=0x018e, f02=»AM. VALUE WANTED 9 p , P ABI(NZ) PRITAB,A3 FRICTION/TRACTOR FEED : & PPRI15 SRL A1,4 GET NEXT PARAMETER : H 4 PPRI16 CWK A3,0 FRI/TRA, ANY MORE PARAM. TO CHECK : r P RF(E) PRI17 NO, GO AND SEND : & PPRI18 SUK A3,2 TEST NEXT PARAMETER : P RB PRI10 : &
0x22b344…22b4d8 Dummy {f00=0x00aa, f01=0x0190, f02=» P CF A5,GTSTAT GET STATUS ; P LDR A2,A1 GET RETURN CODE ; $ " P ANKL A2,/100 PRINTER RESET ? ; F P ABL(NZ) RCTP YES ; l $ P CF A5,RESREC RESET RECOVERY BIT ; P ABL LENDIS END REQUEST ; & P* STORE PARAMETERS, TRACTOR FEED ; 2 PPRI20 EQU * NCV=
0x22b4d8…22b66c Dummy {f00=0x00aa, f01=0x0190, f02=»A4,DWTDEV+DWTPCS,A6 STORE IN DWT ; P RB PRI15 < ( , PPRI30 EQU * SCM= SELECT CHARACTER MATRIX < : P CWK A4,/9 < j P RF(G) PRI60 INDEX TOO HIGH < | P ORK A4,/30 ASCII < ( P SC A4,DWTDEV+DWTCMF,A6 STORE IN DWT < P RB PRI15 < PPRI40 EQU * PL=
0x22b66c…22b800 Dummy {f00=0x00aa, f01=0x0190, f02=»DWT < p P RB PRI15 = $ PPRI50 EQU * CD= CHARACTER PITCH = P CWK A4,/4 = F P RF(G) PRI60 INDEX TOO HIGH = X P ORK A4,/30 ASCII = | * P SC A4,DWTDEV+DWTCMF+1,A6 STORE IN DWT = P RB PRI17 = 2 P* STORE PARAMETERS, FRONT FEED/FRICTION FEED =
0x22b800…22b994 (1, 547) Dummy {f00=0x00aa, f01=0x0190, f02=»ET NAT. CHAR. VAR. ACCORDING TO INDEX = ~ ( P ST A4,DWTDEV+DWTDCS,A6 STORE IN DWT > . P RB PRI15 > Z , PFRO30 EQU * SCM=SELECT CHARACTER MATRIX > l P CWK A4,/9 > P RF(G) PRI60 INDEX TOO HIGH > P ORK A4,/30 ASCII > ( P SC A4,DWTDEV+DWTCMT,A6 STOR
0x22b994…22bb28 Dummy {f00=0x00aa, f01=0x0190, f02=»G TO INDEX > n ( P ST A4,DWTDEV+DWTDL,A6 STORE IN DWT ? P RB PRI15 ? > $ PFRO50 EQU * CD= CHARACTER PITCH ? P P CWK A4,/4 ? x P RF(G) PRI60 INDEX TOO HIGH ? P ORK A4,/30 ASCII ? * P SC A4,DWTDEV+DWTCMT+1,A6 STORE IN DWT ? P RB PRI17 ? P
0x22bb28…22bcbc Dummy {f00=0x00aa, f01=0x0190, f02=»7 : SET FORM PARAMETERS ? P* @ 0 P******************************************** @ * PFORPAR EQU * @ ^ P IFT FORMPA=1 @ r , P LD A2,ECBCW,A8 GET CONTROL WORD, INDEX @ P ANK A2,/F MASK @ P SUK A2,1 @ 8 P RF(Z) FOR020 HOPPER,HIGH SPEED OR LIN
0x22bcbc…22be50 Dummy {f00=0x00aa, f01=0x0190, f02=» XIF @ 0 PFOR010 ABL LENDER REQUEST ERROR,END OF REQ. A P IFT FORMPA=1 A @ 2 P* HOPPER, HIGH SPEED & LINE SPACE PARAMETERS A V P* A " PFOR020 LDK A2,/E BLOCK LENGTH A P CF A5,STABLK START OF BLOCK A P ABL(NZ) ERGP15 JMP IF ERROR A $ P LD
0x22be50…22bfe4 Dummy {f00=0x00aa, f01=0x0190, f02=» FOR030 NO CHANGE WANTED A P CWK A1,/8 B . P RB(G) FOR010 REQUEST ERROR, INDEX TOO BIG B 2 P ADR A1,A1 ADJUST TABLE B d 6 P LD A1,LINTAB,A1 GET LINE SPACE ACCORDING TO TABLE B ( P ST A1,DWTDEV+DWTLS,A6 STORE IN DWT B P LDKL A2,CSLSL B P LDKL A3
0x22bfe4…22c178 Dummy {f00=0x00aa, f01=0x0190, f02=»K HIGH SPEED PARAMETER B " P RF(Z) FOR060 NO CHANGE WANTED C P SUK A1,1 C D P RF(NZ) FOR040 C V " P LDK A2,SM HIGH SPEED SELECTED C l * P SC A2,DWTDEV+DWTHSP+1,A6 STORE IN DWT C P LDKL A2,CSSM C * P RF FOR050 SEND SELECT HIGH SPEED MODE C PFOR0
0x22c178…22c30c Dummy {f00=0x00aa, f01=0x018e, f02=»ND SELECT NORMAL SPEED C PFOR050 LDKL A3,DWTDEV+DWTHSP D P CF A5,SEND D B PFOR060 EQU * D V P IFT SINHAN=1 D j P LDR A1,A4 GET CONTROL WORD D P SRL A1,/C D $ P ANK A1,/F MASK HOPPER PARAMETER D " P RF(Z) FOR120 NO CHANGE WANTED D P SUK
0x22c30c…22c4a0 Dummy {f00=0x00aa, f01=0x0190, f02=» " P LDKL A2,/3268 SELECT HOPPER 2 E . PFOR075 ST A2,DWTDEV+DWTHOP,A6 STORE IN DWT E * P LDKL A2,CSSM E P RF FOR110 E r PFOR080 SUK A1,1 E P RF(NZ) FOR090 E $ P LDKL A2,/316C DESELECT HOPPER 1 E P RF FOR095 E PFOR090 SUK A1,1 E P RB(
0x22c4a0…22c634 (1, 548) Dummy {f00=0x00ab, f01=0x0190, f02=» E PFOR110 LDKL A3,DWTDEV+DWTHOP F P CF A5,SEND SEND HOPPER MODE F , P XIF F P P IFT FORMPA=1 F P RF FOR120 END OF REQ. F r P* F P* TABULATION PART F P* F PTAB010 EQU * F $ P LDK A3,0 SET UP BUFFER POINTER F & PTAB020 CF A1
0x22c634…22c7c8 Dummy {f00=0x00ab, f01=0x0190, f02=» LDK A2,/80 BLOCK LENGTH F P CF A5,STABLK START OF BLOCK G P RF(NZ) ERGP10 JMP IF ERROR G D " P ANK A4,1 SET OR CLEAR TABS. ? G h ( P RF(Z) TAB050 CLEAR ALL TABULATIONS G 0 PTAB030 CF A15,GETCHR GET TABULATION POSITION G P LDR A1,A1 G P RF(Z) F
0x22c7c8…22c95c Dummy {f00=0x00ab, f01=0x018e, f02=»A4,DWTDEV+DWTTAB+2,A6 STORE TAB POS IN DWT G P SRL A4,8 SHIFT RIGHT H 2 2 P SC A4,DWTDEV+DWTTAB+1,A6 STORE TAB POS IN DWT H P " P LDR A4,A3 KEEP COUNTER IN A4 H P LDKL A2,CSHPA H P LDKL A3,DWTDEV+DWTTAB H ( P CF A5,SEND SEND HORIZONTAL POS ABS. H
0x22c95c…22caf0 Dummy {f00=0x00ab, f01=0x018e, f02=» PTAB050 EQU * I P LDK A3,/33 CLEAR ALL TABS I ( P SC A3,DWTDEV+DWTTAB,A6 STORE IN DWT I : P LDKL A2,CSTBC I f P LDKL A3,DWTDEV+DWTTAB I | * P CF A5,SEND CLEAR ALL TABULATION POS. I $ PFOR120 CF A5,ENDBLK END OF BLOCK I & PERGP10 ABL(NZ) ERGP15 JM
0x22caf0…22cc84 Dummy {f00=0x00ab, f01=0x0190, f02=» P* J " P* ORDER 38 : RELEASE DOCUMENT J P* J 4 . P***************************************** J > P IFT SINHAN+FFDEV=1 J p PRELDOC EQU * J P CF A5,GTSTAT GET STATUS J P LDR A2,A1 J P RF(NZ) REL20 ERROR ? J P LDK A2,/F BLOCK LENGTH
0x22cc84…22ce18 Dummy {f00=0x00ab, f01=0x0190, f02=»ND OF PAGE J n P CF A5,SEND K ( P LDK A3,/F SET UP LINE FEED COUNTER K & PREL10 LDK A2,LF LINE FEED K R P CF A5,OUTPUT K t P RF(NZ) ERGP14 JMP IF ERROR K * P SUK A3,1 DECREMENT LINE FEED COUNTER K P RB(NZ) REL10 ANY MORE LF ? K P CF A5,E
0x22ce18…22cfac Dummy {f00=0x00ab, f01=0x0190, f02=»CTUAL LINE K t . P CM DWTDEV+DWTRLN,A6 RESET REQUESTED LINE L . P CM DWTDEV+DWTCO1,A6 CLEAR COLUMN COUNTER L D P LDR A2,A1 GET RETURN CODE L v & PREL20 ANKL A2,/100 PRINTER RESET ? L P ABL(NZ) RCTP YES L $ P CF A5,RESREC RESET RECOVERY BIT L P ABL
0x22cfac…22d140 Dummy {f00=0x00ab, f01=0x0190, f02=» C T P L P* M : P* RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON M P* M V @ P************************************************************ M ` PRCTP EQU * M * PRCTP07 LDKL A1,/7FFF SET DEVICE BUSY M P ANS A1,DWTST,A6 BUSY M P LDKL
0x22d140…22d2d4 (1, 549) Dummy {f00=0x00ab, f01=0x0190, f02=» M r P * N 6 P CM DWTDEV+DWTSYST,A6 SET SYSTEM START INDICATOR N 0 P LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET N P * P CF A5,KONVER CONVERT BIANARY TO ASCII N 2 P ST A4,DWTDEV+DWTDCS,A6 SET CHAR. SET DOCUMENT N 4 P ST A4,DWTDEV+DWTPCS,A6 SET CHAR
0x22d2d4…22d468 Dummy {f00=0x00ab, f01=0x0190, f02=» SET PAGE LENGTH CONT.STAT. N z 6 P LDKL A4,DOCLEN GET STANDARD PAGE LENGTH DOCUMENT O $ * P CF A5,KONVER CONVERT BINARY TO ASCII O ^ 4 P ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH DOCUMENT O 2 P LDKL A4,MATRIX GET STANDARD CHAR MATRIX FONT O P ORK A4,ZERO M
0x22d468…22d5fc Dummy {f00=0x00ab, f01=0x0190, f02=»,DENSIT GET STANDARD CHAR DENSITY/PITCH O P ORK A4,ZERO MAKE ASCII P 0 4 P SC A4,DWTDEV+DWTCMT+1,A6 STORE IN DWT (TRACTOR) P P 6 P SC A4,DWTDEV+DWTCMF+1,A6 STORE IN DWT (FRONT/FRI) P , P CF A5,GTSTAT DUMMY ST., CLEAR RESET BIT P PRCTP10 EQU * P " P L
0x22d5fc…22d790 Dummy {f00=0x00ab, f01=0x0190, f02=» ACTUAL LINE (FRONT/FRI) P v , P LDKL A1,/20 INDICATE POWER OFF OCCURED Q P ORS A1,DWTDEV,A6 Q P $ P LD A1,DWTECB,A6 RUNNING REQUEST Q j , P ABL(NZ) ACT020 YES , REPEAT THE REQUEST Q PRCTP20 ABL LENDIS DISPATCH Q P EJECT Q @ P**********************
0x22d790…22d924 Dummy {f00=0x00ab, f01=0x0190, f02=»O THE PRINTER Q d P* R : P* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER R P* R ^ P* AT EXIT A1 = RETURN CODE R h P* R @ P************************************************************ R PGTSTAT EQU * R * P CM DWTDEV+DWTRC,A6 RESET RE
0x22d924…22dab8 Dummy {f00=0x00ab, f01=0x018e, f02=» DEVICE STATUS REPORT R " PGTST02 LCR A2,A3 GET CHARACTER S P ANK A2,/FF MASK S D P SLL A2,8 SHIFT LEFT S * P RF(N) GTST04 END OF CONTROL SEQUENSE S x P SRL A2,8 SHIFT RIGHT S P CF A5,OUTPUT S P RF(NZ) ERGP14 JMP IF ERROR S P ADK A3,1
0x22dab8…22dc4c Dummy {f00=0x00ab, f01=0x0190, f02=» S l P LDR A1,A6 SAVE DWTADDRESS T P LDKL A4,DWTDEV+DWTTP T * P ADR A4,A6 TIMER T H & P CF A15,SETIMP SET TIMER, 10 SEC. T ` * P DATA ERGP00,TIME RETURN ADDRESS,TIME T ( PGTST05 LDKL A4,TAB GET TABLE ADDRESS T PGTST10 EQU * T P LDK A3,0 RESET
0x22dc4c…22dde0 Dummy {f00=0x00ab, f01=0x018e, f02=»F(E) GTSEND YES T P LDR A7,A7 ORDER /00 ? U P RF(NZ) GTST15 NO U 6 " P CCK A2,/3B STRING SEPARATOR ? U P P RF(NE) GTST15 NO U v * P IM DWTDEV+DWTSER,A6 IND. STRING SEP. U P LD A2,DWTDEV+DWTSER,A6 U ( P SUK A2,2 TWO SEPARATORS RECEIVED ? U &
0x22dde0…22df74 (1, 550) Dummy {f00=0x00ab, f01=0x0190, f02=» $ P RB(NL) GTST10 NO SERVICE STATUS V . P LDKL A4,TAB+20 INCR. ADDR. TO SERV. STAT. V , * PGTST15 LCR A3,A4 GET MASK RETURN CODE V ^ P ANR A2,A3 V * P LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 V P LC A3,1,A4 A3 TIMES V $ P EXR A3 EXECUT SHIFT INSTRUCTION
0x22df74…22e108 Dummy {f00=0x00ab, f01=0x0190, f02=»BCW,A8 SERVICE STAT. IN CONTR. WORD V P RF GTST30 W , > PGTST20 ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY W > $ PGTST30 ADK A4,2 INCREMENT ADRESS W ( P RB GTST10 GET NEXT STATUS CHARACTER W PGTSEND EQU * W * P LD A1,DWTDEV+DWTRC,A6 GET RETUR
0x22e108…22e29c Dummy {f00=0x00ab, f01=0x0190, f02=» $ P CM* DWTDEV+DWTTP,A6 RESET TIMER X 2 PGTST40 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER X , PGTST50 EQU * X b P RTN A5 X v P EJECT X @ P************************************************************ X P* X : P* THIS ROUTINE CONVERTS A BINARY VAL
0x22e29c…22e430 Dummy {f00=0x00ab, f01=0x0190, f02=»T X z P* Y P* Y PKONVER EQU * Y P* BINARY TO DEC. Y 2 P LDK A2,0 CLEAR A2 Y J P CWK A4,100 VALUE > 100 ? Y d P RF(L) KONV05 NO Y P SUKL A4,100 Y & P LDKL A2,/100 LEFT BYTE OF A2=X=1 Y * PKONV05 CWK A4,10 ARE THERE ANY TENS ? Y
0x22e430…22e5c4 Dummy {f00=0x00ab, f01=0x0190, f02=»,/3030 XY IN A2 Y P ORK A4,/30 Z IN A4 Z P SRC A2,8 YX IN A2 Z 4 P LDR A1,A2 Z N P ANKL A1,/FF00 KEEP Y IN A1 Z ` . P ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII Z P ORR A4,A1 YZ IN A1. ASCII Z P RTN A5 Z P EJECT Z P******************
0x22e5c4…22e758 Dummy {f00=0x00ab, f01=0x0190, f02=» P RF(E) RESRTN NO. [ . P XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT [ 2 P ORKL A1,/100 INDIC. RECOV. IN RET. CODE BIT7 [ P PRESRTN RTN A5 RETURN [ P* [ P* [ 6 P************************************************** [ P* [ . P* ERROR ROUTIN
0x22e758…22e8ec Dummy {f00=0x00ab, f01=0x018e, f02=»WTTP,A6 RESET TIMER POINTER [ P RF ERGP20 $ PERGP15 EQU * 6 0 P ANK A1,/1A OUTP. ERR, SOFTW. T-OUT,LRC-ERR J P ABL(NZ) RCTP YES, RECOVERY ~ PERGP17 EQU * P IFF REQEND=1 P ABL LDISP DISPATCH P XIF $ PERGP20 LDK A1,1 SET
0x22e8ec…22ea80 Dummy {f00=0x00ab, f01=0x0190, f02=» P* ] P* S E N D ] P* ] , P* THIS ROUTINE SENDS AN CONTROL SEQUENCE ] * P* TO THE PRINTER ] Z P* ] r P* ] | P* AT ENTRY : ] " P* A2 = CONTROL SEQUENCE ADRESS ] 4 P* A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC ] P* ] P* ]
0x22ea80…22ec14 (1, 551) Dummy {f00=0x00ab, f01=0x0190, f02=»DEV+DWTDISP,A6 SAVE DWT-DISPLACEMENT ] 4 P ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS ^ , PSEND10 EQU * ^ d 8 P LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS ^ x P LCR A2,A3 GET CHARACTER ^ P ANK A2,/FF MAKE CHARACTER ^ & P SLL A2,8 END OF C
0x22ec14…22eda8 Dummy {f00=0x00ab, f01=0x0190, f02=»PREPARE TO SEND CHARACTER ^ P CF A5,OUTPUT SEND CHARACTER _ " P RB(NZ) ERGP15 JMP IF ERROR _ F PSEND20 EQU * _ j 4 P IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS _ ~ P RB SEND10 GET NEXT _ PSEND30 EQU * _ 2 P LD A3,DWTDEV+DWTDISP,A6 GET DWT-D
0x22eda8…22ef3c Dummy {f00=0x00ab, f01=0x0190, f02=»15 JMP IF ERROR _ 2 P IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS ` P RB SEND20 GET NEXT ` N PSENDEND EQU * ` j P RTN A5 ` P EJECT ` @ P************************************************************ ` P* ` P* SENPAR ` P* ` B P*
0x22ef3c…22f0d0 Dummy {f00=0x00ab, f01=0x0190, f02=» & PERGP16 RB(NZ) ERGP15 JMP IF ERROR a P IFT SPEEDY=1 a . P LDKL A2,CSSM a D P LDKL A3,DWTDEV+DWTHSP a Z & P CF A5,SEND SEND SELECT HIGH SPEED a x P XIF a P IFT SINHAN+FFDEV=1 a " P LC A2,DWTDEV,A6 GET DWTINDEX a P ANK A2,1 a P RF(NZ
0x22f0d0…22f264 Dummy {f00=0x00ab, f01=0x0190, f02=» * P CF A5,SEND SEND SELECTED PAGE LENGTH b P LDKL A2,CSSNV b 2 P LDKL A3,DWTDEV+DWTPCS b H , P CF A5,SEND SEND NATIONAL CHAR VARIATION b f P LDKL A2,CSCPL b P LDKL A3,DWTDEV+DWTCMF b * P CF A5,SEND SEND CHAR. MATRIX & PITCH b P RF SEN20 b
0x22f264…22f3f8 Dummy {f00=0x00ab, f01=0x0190, f02=» b P XIF c P IFT SINHAN+FFDEV=1 c P LDKL A2,CSSLPL c 0 P LDKL A3,DWTDEV+DWTDL c H * P CF A5,SEND SEND SELECTED PAGE LENGTH c f P LDKL A2,CSSNV c P LDKL A3,DWTDEV+DWTDCS c , P CF A5,SEND SEND NATIONAL CHAR VARIATION c P LDKL A2,CSCPL c
0x22f3f8…22f58c Dummy {f00=0x00ab, f01=0x0190, f02=»B(NZ) ERGP16 JMP IF ERROR c P ABR A4 RETURN d " P* d 8 P EJECT d B 2 P********************************************** d P P* d > P* THIS ROUTINE SENDS A CONTR. SEQ. WITHOUT DWT REFERENCE d , P* AT ENTRY : A3= CONTROL SEQ, ADDRESS d P* d
0x22f58c…22f720 Dummy {f00=0x00ab, f01=0x0190, f02=»T d | P CF A5,OUTPUT e P RB(NZ) ERGP16 JMP IF ERROR e P ADK A3,1 INCR. ADDRESS e D P RB SEN40 GET NEXT CHAR. e d * PSEN50 RTN A5 RETURN & SEND PARAMETERS e P EJECT e @ P************************************************************ e P* e
0x22f720…22f8b4 (1, 552) Dummy {f00=0x00ac, f01=0x0190, f02=»PUT e P* A2= WORK REGISTER f P* A3= BINARY OUTPUT f ( P* f D P* f N P* f X PBINARY SUR A3,A3 CLEAR A3 f b P LDR A2,A1 MAX. LINE ASCII f P SRL A2,8 f P SUK A2,/30 f P ADR A3,A2 f P ADR A3,A2 f P SLL A2,3 f P ADR A
0x22f8b4…22fa48 Dummy {f00=0x00ac, f01=0x0190, f02=»ATA /3135,/3138,/3234 f " P DATA /3235,/3330,/3333,/3335 g " P DATA /3336,/3438,/3530,/3531 g D " P DATA /3630,/3636,/3730,/3732 g j P* g P* g P* g P* g 6 PNCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE g " P DATA /3031,/3032,/303
0x22fa48…22fbdc Dummy {f00=0x00ac, f01=0x0190, f02=»SK TABLE FOR STATUS REPORT FROM PRINTER g P DATA /C0,/C0,/C0,/2CC * h 0 P DATA /2CF,/1C8,/C0,/C0 * h R P DATA /C0,/C0,/FC8,/FC0 h t P DATA /C0,/C0 h , PPRITAB EQU * BRANCH ADDRESSES ORDER /24 h P DATA PRI50 h P DATA PRI40 h P DATA
0x22fbdc…22fd70 Dummy {f00=0x00ac, f01=0x40c6, f02=»FRO40 h P DATA FRO30 i P DATA FRO20 i " P XIF i 6 $ PLINTAB EQU *-2 LINE SPACE TABLE i B ( P DATA /3033,/3034,/3036,/3038,/3132 i j P DATA /3136,/3234,/3438 i P END i @ i S ORDER /24 h P DATA PRI50 h P DATA PRI40 h P DATA
0x22fd70…22ff04 Dummy {f00=0x00ac, f01=0x4008, f02=»@ j @
0x22ff04…230098 Dummy {f00=0x00ac, f01=0x2008, f02=» k * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x230098…23022c Dummy {f00=0x00ac, f01=0x0190, f02=»ONAL VERSION P BYTE ESC,CSI P BYTE ZERO,ZERO * P BYTE SNV,NEG B " PCSSLPL EQU * SELECT PAGELENGTH X P BYTE ESC,CSI ~ P BYTE ZERO,ZERO P BYTE SLPL,NEG P BYTE NEG,NEG & PCSRIS EQU * RESET TO INITIAL STATE P B
0x23022c…2303c0 Dummy {f00=0x00ac, f01=0x0190, f02=»G $ PCSCPL EQU * CHARACTER PITCH LOAD P BYTE ESC,CSI 2 P BYTE ZERO,SEP H P BYTE ZERO,CPL ^ P BYTE NEG,NEG t 0 PCSHPA EQU * HORIZONTAL POSITIONING ABSOLUTE P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE ZERO,HPA P BYTE
0x2303c0…230554 (1, 553) Opaque[0x194]
0x230554…2306e8 # DirEnt {nam=»DRGP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1588, f03=0x0000}
0x230554…2306e8 IdxSect {
0x230554…2306e8 f00 = 0x00ac // 0x230554 @0x0
0x230554…2306e8 f01 = 0x000a // 0x230556 @0x2
0x230554…2306e8 gno = [ // 0x230558 @0x4
0x230554…2306e8 [0x00]: C0x00ac.0x1.0
0x230554…2306e8 [0x01]: C0x00ac.0x2.0
0x230554…2306e8 [0x02]: C0x00ac.0x3.0
0x230554…2306e8 [0x03]: C0x00ad.0x0.0
0x230554…2306e8 [0x04]: C0x00ad.0x1.0
0x230554…2306e8 ]
0x230554…2306e8 }
0x2306e8…23087c Dummy {f00=0x00ac, f01=0x018e, f02=» 2 P IDENT DRGP04 REL 11.0 81-03-13 870105041100 P : . P = 1 ARRANGEMENTS FOR THE FIRST VERSION B P OF COPY80 ARE DELETED t P REL 11.0 81-01-26 * , (**************************************** P* P* *
0x23087c…230a10 Dummy {f00=0x00ac, f01=0x0190, f02=» , (**************************************** * 4 * &* THIS DRIVER HANDLES THE HARD COPY > " * PRINTER HP 75 ( COPY 80 ). l * * &* THE FOLLOWING ORDERS ARE TREATED : * * ORDER /00: TEST STATUS * ORDER /05:
0x230a10…230ba4 Dummy {f00=0x00ac, f01=0x0190, f02=»* NORMAL REGISTER USAGE : * $ * A1 = RETURN CODE . * A2 = OUTPUT CHARACTER J * A3 = BUFFER INDEX l * A4 = WORK REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRE
0x230ba4…230d38 Dummy {f00=0x00ac, f01=0x0190, f02=» EXCLUDED BY MEANS OF CONDI- | 4 0* TIONAL ASSEMBLY. THEN THE WRITE REQUESTS ARE $ 4 0* FINISHED WITHOUT WAITING FOR THE OUTPUT BUF- * FER TO BE EMPTY. EJECT * . ******************************************* * *
0x230d38…230ecc Dummy {f00=0x00ac, f01=0x0190, f02=» , (**************************************** * 4 $ * EXTERNAL TOSS MODULE ENTRIES > * f , (**************************************** p * EXTRN STABLK START OF BLOCK * % EXTRN OUTPUT OUTPUT OF ONE CHARACTER EXTRN ENDBL
0x230ecc…231060 Dummy {f00=0x00ac, f01=0x0190, f02=» INPUT REQUEST ~ EXTRN SETIME SETS TIMER ( # EXTRN LENDIS END I/O WITH DISPATCH 6 2 - EXTRN LENDER END I/O WITH ERROR AND DISPATCH b * * ECB DISPLACEMENTS * EXTRN ECBBA BUFFER ADDRESS " EXTRN ECBRL REQUESTED LEN
0x231060…2311f4 (1, 554) Dummy {f00=0x00ac, f01=0x0190, f02=»WTOR ORDER . ) EXTRN DWTDEV TERMINAL DEVICE STATUS WORD * D , (DWTBLC EQU 2 CHARACTERS IN BLOCK COUNTER N " DWTLFC EQU 4 LINE FEED COUNTER ~ DWTTP EQU 6 TIMER POINTER * . ******************************************* *
0x2311f4…231388 Dummy {f00=0x00ac, f01=0x018e, f02=»TX ( /03 ) " CCERR EQU /4 CODE CHECK ERROR TIME EQU /1 100 MILLISECONDS 8 * , (**************************************** f * * ADDRESS BLOCK * , (**************************************** * P DATA DVBL
0x231388…23151c Dummy {f00=0x00ac, f01=0x0190, f02=» t DATA 0 NO INTERRUPT HANDLER " DATA RCGP04 RECOVERY ROUTINE , DATA 0 NO ECHO ROUTINE R * r , (**************************************** | * * CONDITIONAL ASSEMBLY * , (****************************************
0x23151c…2316b0 Dummy {f00=0x00ac, f01=0x018e, f02=» & P* MEMORY MANAGEMENT BUFFER SIZE P* 2 PX:B EQU 80 < PDVBLEN EQU X:B N P* d P* MAXIMUM BLOCK SIZE n P* PX:C EQU /80 PMAXBLK EQU X:C P* P* EJECT * . )****************************
0x2316b0…231844 Dummy {f00=0x00ac, f01=0x0190, f02=» . ** TO THE APPROPRIATE PART OF THE DRIVER. * 6 . )***************************************** @ * r ACGP04 EQU * | LDK A3,0 RESET BUFFER INDEX " LDK A2,MAXBLK GET BLOCK SIZE CF A5,STABLK START BLOCK RF(NZ) GPER
0x231844…2319d8 Dummy {f00=0x00ac, f01=0x0190, f02=»ET ORDER ( # RF(Z) GP400 ORDER /00, TEST STATUS SUK A7,5 < " RF(N) REQERR REQUEST ERROR ! N SUK A7,/1F t IFT ORD24=1 > 9 RF(Z) GP400 ORDER /24, TEST OUTPUT BUFFER AND SET PARAM. XIF IFT ORD24=0 * % RF(Z) REQ
0x2319d8…231b6c Dummy {f00=0x00ac, f01=0x0190, f02=»WRITE ! r ADK A7,1 , P RF(P) GP100 ORDER/06, STANDARD WRITE ! " * R * REQUEST ERROR * v REQERR EQU * CF A5,ENDBLK END OF BLOCK , ' ABL LENDER SET RETURN CODE AND END I/O EJECT * , (**********
0x231b6c…231d00 Dummy {f00=0x00ac, f01=0x018e, f02=»ITE. Z > :* THE REQUESTED LENGTH IS CHECKED, THE CONTROL CHARACTER : 6* IS TREATED AND THE REST OF THE CHARACTERS ARE SENT N $ * AFTER INDIVIDUAL CODE CHECK. * . )***************************************** * GP100 EQU *
0x231d00…231e94 (1, 555) Dummy {f00=0x00ac, f01=0x0190, f02=» RF(NN) GP110 NO ! $ RB REQERR YES ! REQUEST ERROR ! * F * TEST CONTROL CHARACTER P * r GP110 EQU * | & " LD A2,ECBBA,A8 GET BUFFER ADDRESS & ! LC A2,1,A2 GET CONTROL CHARACTER ANK A2,/FF $ ADK A3,2 INCREM
0x231e94…232028 Dummy {f00=0x00ac, f01=0x0190, f02=» C1S DWTBLC+DWTDEV,A6 SET POS COUNTER TO -1 RF GP210 SEND IT ! 4 P EJECT P * ^ , (**************************************** h * < 7* THIS IS THE ENTRY POINT FOR ORDER /05, BASIC WRITE. 6 P* THE REQUESTED NUMBER OF CHARACTERS
0x232028…2321bc Dummy {f00=0x00ac, f01=0x0190, f02=»U * 2 . CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER 0 + LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? B RF(NP) GP350 NO ! v * LDR A7,A7 YES ! ORDER /06 ? , ' RF(P) GP300 YES ! CHECK CHARACTER CODE * CWK A2,LF LINE
0x2321bc…232350 Dummy {f00=0x00ac, f01=0x0190, f02=»0 EQU * : 6 IM DWTBLC+DWTDEV,A6 INCR. CHARACTERS IN BLOCK COUNTER * N & ! LDK A1,MAXBLK GET MAX BLOCK SIZE X ( $ CW A1,DWTBLC+DWTDEV,A6 BLOCK FULL ? P RF(G) GP240 NO ! * $ P LDR A4,A2 YES ! SAVE CHARACTER CF A5,ENDBLK
0x232350…2324e4 Dummy {f00=0x00ac, f01=0x0190, f02=»TABLK RF(NZ) GPER10 P LDR A2,A4 RESTORE CHARACTER $ * H GP240 EQU * R CF A5,OUTPUT SEND CHARACTER f PGPER10 RF(NZ) GPER20 RB GP200 NEXT CHARACTER EJECT * , (****************************************
0x2324e4…232678 Dummy {f00=0x00ac, f01=0x0190, f02=»**** l * GP300 EQU * P LDR A4,A2 * P SUK A4,/20 WITHIN LIMITS ? < RF(N) GP310 NO ! ` * z P SUK A4,/5F " P RF(P) GP305 NO, TEST SP. CHAR , P IM DWTBLC+DWTDEV,A6 INCR. POS. POINTER " P RB GP240 OK ! SEND CHARAC
0x232678…23280c Dummy {f00=0x00ac, f01=0x0190, f02=»GP320 NO ! 8 3 SUK A2,/80 YES ! CONVERT TO /2E ( ORDINARY POINT ) P RB GP300 AND SEND N GP310 EQU * h P ADK A4,/2 /1E OR /1F ? | RF(NN) GP340 YES ! P ADK A4,/A /15 - /1D ? RF(P) GP320 YES ! P ADK A4,/3 /12 - /14 ?
0x23280c…2329a0 Dummy {f00=0x00ac, f01=0x0190, f02=» CODE CHECK ERROR * GP320 EQU * $ ( $ LDK A1,CCERR ILLEGAL CHAR. = BIT 13 8 , ' ORS A1,ECBRC,A8 SET BIT IN RETURN CODE d GP340 EQU * RB GP200 GET NEXT CHARACTER P* P* TABULATION HANDLING P* PGP345 EQ
0x2329a0…232b34 (1, 556) Dummy {f00=0x00ad, f01=0x0190, f02=» P RF(Z) GP347 PGP346 ADK A2,/A P SUK A4,1 4 P RB(NZ) GP346 F 2 PGP347 LD A4,DWTBLC+DWTDEV,A6 GET POS. POINTER P SUR A2,A4 ( P RB(NP) GP200 NO TABULATION POSSIBLE ( P LDR A4,A2 NUMBER OF SPACES TO SEND PGP348 LDK A2
0x232b34…232cc8 Dummy {f00=0x00ad, f01=0x0190, f02=»B GP200 NO TAKE NEXT CHARACTER EJECT & * 4 , (**************************************** > * n : 5* THIS IS THE COMPLETION PART OF THE WRITE REQUESTS x * , (**************************************** * GP350 EQU *
0x232cc8…232e5c Dummy {f00=0x00ad, f01=0x0190, f02=»* . ** THIS IS THE ENTRY POINT FOR ORDER /00, . ** TEST STATUS AND ORDER /24, TEST OUTPUT < * %* BUFFER AND SET PRINTER PARAMETER. n * . )***************************************** * GP400 EQU * LDK A2,LF LINE FE
0x232e5c…232ff0 Dummy {f00=0x00ad, f01=0x0190, f02=» P* =1 LDK A2,ETX ETX ( /03 ) CF A5,OUTPUT SEND 8 P RF(NZ) GPER20 NOT OK ! R * r P CF A5,ENDBLK END OF BLOCK | P RF(NZ) GPER20 NOT OK ! P* * % LDR A7,A7 TEST STATUS OR ORDER /24 ? & " RF(Z) GP440 YES !
0x232ff0…233184 Dummy {f00=0x00ad, f01=0x0190, f02=» CHECKING THE OUTPUT BUFFER t XIF 0 IFT ORD24=1 < $ LD A1,DWTDEV,A6 GET STATUS WORD P 0 P RF(NN) GP480 WRITE REQUESTS MAY BE FINISHED x L J* BEFORE THE OUTPUT BUFFER IS EMP XIF
0x233184…233318 Dummy {f00=0x00ad, f01=0x018e, f02=» SENT h * LDR A1,A6 DWT-ADDRESS IN A1 CF A15,SETIME < DATA GPTUT,TIME R . * ST A4,DWTTP+DWTDEV,A6 STORE TIMER POINTER j 0 P LD A2,DWTLFC+DWTDEV,A6 NUMBER OF LINE FEEDS P SLC A2,3 COMPUTE TIME P C1R A2,A2 P STR A2,
0x233318…2334ac Dummy {f00=0x00ad, f01=0x018e, f02=» * ( P CM* DWTTP+DWTDEV,A6 TURN OFF TIMER LD A7,DWTOR,A6 GET ORDER : P ANK A7,/FF AND MASK SUK A7,/24 ORDER /24 ? x RF(NZ) GP480 NO ! END I/O * P LDKL A2,/8000 0 P LD A1,ECBCW,A8 YES ! SET PRINTER PARAMETER.
0x2334ac…233640 Dummy {f00=0x00ad, f01=0x0190, f02=» x " P ANS A2,DWTDEV,A6 CLEAR BIT 0 * . * END OF REQUEST 8 * R GP480 EQU * " LDK A1,0 SET RETURN CODE = 0 p ENDIO EQU * PGPER20 EQU * 0 P CM DWTLFC+DWTDEV,A6 RESET LINE FEED COUNTER & ! ABL LENDIS END I/O WI
0x233640…2337d4 (1, 557) Dummy {f00=0x00ad, f01=0x018e, f02=» , (**************************************** * 4 GPTUT EQU * > $ P LDR A6,A1 GET DWT-ADDRESS IN A6 R , ' CF A15,ABORT RESET INPUT REQUESTED BIT z . * LDK A1,1 SET RETURN CODE ( NOT OPERABLE ) P* =1 RB ENDIO * , (
0x2337d4…233968 Dummy {f00=0x00ad, f01=0x0190, f02=» f * ABGP04 EQU * , ' CF A15,ABORT RESET INPUT REQUESTED BIT & $ CM DWTTP+DWTDEV,A6 RESET TIMER V RB ENDIO ~ P EJECT * . ******************************************* * * RECOVERY ROUTINE * .
0x233968…233afc Dummy {f00=0x00ad, f01=0x40cc, f02=» , ( CF A15,ABORT RESET INPUT REQUESTED FLAG $ CM DWTTP+DWTDEV,A6 RESET TIMER 8 2 . LDK A1,2 SET RETURN CODE ( THROUGHPUT ERROR ) ` RCGP10 EQU * RB ENDIO END @ ****** * * RECOVERY ROUTINE * .
0x233afc…233c90 Dummy {f00=0x00ad, f01=0x2008, f02=» ! H
0x233c90…233e24 Dummy {f00=0x00ad, f01=0x0190, f02=»A LOAD DEVICE n , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE P* F P LDR A2,A1 P P ANK A2,/F b P SUK A2,9 t $ P RF(NZ) COR:58 NOT FLEXIBLE DISC P* P XIF P IFT CFTEST+FLDISC=2 ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC
0x233e24…233fb8 Dummy {f00=0x00ad, f01=0x0190, f02=»F(N) COR:60 NOT FLEXIBLE DISC P* & P XIF 0 " P SUK A1,/FC-/F8 FLEXIBLE DISC? < P ABL(NN) COR:60 NO! b P* ~ P IFT CFTEST+FLDISC=2 " P LD A2,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? $ P RF(NZ) COR:60 YES! DON'T UNLOCK
0x233fb8…23414c Dummy {f00=0x00ad, f01=0x0190, f02=» P EJECT PCONMOV EQU * P* * 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA 4 P* l & P CIO A1,0,SOP INHIBIT SOP SWITCHES v 0 P LD A1,CONSTA+STKCOM GET START OF CONF. DATA < PCMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION
0x23414c…2342e0 Dummy {f00=0x00ad, f01=0x0190, f02=»'00' v , P SUR A3,A1 LENGTH OF CONFIGURATION DATA 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA < P r P SUR A2,A3 TO-ADDRESS z P* $ P ANKL A2,/FFFE MAKE EVEN ADDRESS P CALL MOVE : P ST A2,CONSTA+STKCOM SAVE START OF CONFIGURA
0x2342e0…234474 (1, 558) Opaque[0x194]
0x234474…234608 # DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15b0, f03=0x0000}
0x234474…234608 IdxSect {
0x234474…234608 f00 = 0x00ad // 0x234474 @0x0
0x234474…234608 f01 = 0x000a // 0x234476 @0x2
0x234474…234608 gno = [ // 0x234478 @0x4
0x234474…234608 [0x00]: C0x00ad.0x2.0
0x234474…234608 [0x01]: C0x00ad.0x3.0
0x234474…234608 [0x02]: C0x00ae.0x0.0
0x234474…234608 [0x03]: C0x00ae.0x1.0
0x234474…234608 [0x04]: C0x00ae.0x2.0
0x234474…234608 ]
0x234474…234608 }
0x234608…23479c Dummy {f00=0x00ad, f01=0x018e, f02=» 2 P IDENT DRIC01 REL 11.0 81-04-02 870105041100 P : & P =1, ADDR.WR.REQ.IN WRONG QUEUE B P =1, REL 11.0 81-01-26 l P* P* 2 P********************************************** P* 2 P* PHILIPS TERMINAL SYSTEM PTS
0x23479c…234930 Dummy {f00=0x00ad, f01=0x0190, f02=» 2 P********************************************** P* : 8 P* THIS MODULE HANDLES THE INTERTASK COMMUNICATION D P* P EJECT DRIC01 P* P* P*********** P* ENTRIES * P*********** P* P* P E
0x234930…234ac4 Dummy {f00=0x00ad, f01=0x0190, f02=»***** P* EXTERNALS * P************* $ P* : P* D P EXTRN TDISP DISPATCHER N P EXTRN TENDIO ENDIO n P EXTRN DISIOE REQUEST ERROR & P EXTRN DISEND TENDIO AND DISPATCH P EXTRN DWTST DWT STATUS P EXTRN DWTECB EC
0x234ac4…234c58 Dummy {f00=0x00ad, f01=0x0190, f02=» P EXTRN SETIMP TIMER , P EXTRN FNDTID FIND TTAB ADDRESS FROM TID & P EXTRN TTB:ID TASK IDENTIFICATION P P EXTRN TTB:ST TASK STATUS z " P EXTRN TTB:TD TERMINAL DEVICES 4 P EXTRN IHRTN RTN A15 WITHOUT ENABLING INTERRUPTS $ P EXTRN ECBBA E
0x234c58…234dec Dummy {f00=0x00ad, f01=0x0190, f02=»ORD v P EJECT DRIC01 TOSSIO P* , P* 6 . P***************************************** @ P* r P* CONDITIONAL ASSEMBLY | P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGIN
0x234dec…234f80 Dummy {f00=0x00ad, f01=0x0190, f02=»EXTENDED INSTRUCTION r . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* N PCPU852 EQU 1 X P* l P* MMU BUFFER SIZE v P* PX:A EQU 50 PDVBLEN EQU X:A P* P* INTERTASK DEVICE INDEX P* PDEVIND EQU 8
0x234f80…235114 (1, 559) Dummy {f00=0x00ad, f01=0x0190, f02=»* | P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* R P IFT MMUPAG=0 PSTART EQU DWTDRD r P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* & PDWTTP EQU START+/00 TIMER POINTER
0x235114…2352a8 Dummy {f00=0x00ad, f01=0x0190, f02=»DRESS l P* P EJECT DRIC01 P* 0 P* : P***************** D P* ADDRESS BLOCK * ^ P***************** x P* P* ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE ( P DATA DEVIND INTERTASK DEVICE INDEX & PITAD DATA
0x2352a8…23543c Dummy {f00=0x00ad, f01=0x0190, f02=» ^ 8 PWR:QUE DATA 0 QUEUE ANCHOR NOT-ADDRESSED WRITE REQ. P* D $ P* INTERTASK DRIVER BUFFER (MMU) N P* v PIT:BUF EQU * P IFT MMUPAG=1 P RES DVBLEN+1 MMU BUFFER P XIF P* P EJECT DRIC01 P* P* A
0x23543c…2355d0 Dummy {f00=0x00ad, f01=0x0190, f02=» P* ENTRY PARAMETERS: P* P* A5 = STACK BASE 2 IN DWT * P* A6 = DWT ADDRESS L P* A7 = ORDER CODE f P* A8 = ECB ADDRESS * P* A12= ADDRESS TO DRIVER ADDRESS BLOCK P* PICAD EQU * P LDR A1,A7 ORDER CODE * P LD A7
0x2355d0…235764 Dummy {f00=0x00ad, f01=0x0190, f02=»EQUEST | P SUK A1,/39-/06 P RF(NZ) DIS:OE REQUEST ERROR & P* J P EJECT DRIC01 T P* l P* S E T T I M E O U T v P* P ST A7,DWTIME,A6 P RF END:IO P* P* REQUEST ERROR EXIT P* $ PDIS:OE ABL D
0x235764…2358f8 Dummy {f00=0x00ad, f01=0x0190, f02=»SED REQUEST OR NOT v P ADK A7,0 CHECK ADDRESS MODE . P ABL(Z) RD:NAD NOT-ADDRESSED READ REQUEST > P* p P* WRITE REQUEST ENTRY z P* 8 PWRITE EQU * CHECK IF ADDRESSED WRITE REQUEST OR NOT P ADK A7,0 CHECK ADDRESS MODE . P RF(Z)
0x2358f8…235a8c Dummy {f00=0x00ad, f01=0x0190, f02=»W R I T E, A D D R E S S E D P* $ $ P* FIND TTAB OF ADDRESSED TASK . P* V & P CF A15,FNDTID TTAB ADDRESS TO A2 ` P ADK A2,0 SET CR P RB(Z) DIS:OE NOT FOUND 4 P ADKL A2,TTB:TD ADDRESS TO TERMINAL DEVICE TABLE P LDR* A1,A2 TA
0x235a8c…235c20 Dummy {f00=0x00ad, f01=0x0190, f02=»RIC01 P* $ P* FIND DWT OF ADDRESSED TASK P* @ 0 PITC:05 ADK A2,4 ADDRESS TO NEXT DWT ADDRESS J P SUK A1,4 ~ P RB(N) DIS:OE NOT FOUND P* P LDR* A4,A2 DWT ADDRESS " P CW A7,DWTADR,A4 SEARCHED DWT P RB(NE)
0x235c20…235db4 (1, 560) Dummy {f00=0x00ae, f01=0x0190, f02=»QUE,A2 QUEUE ANCHOR ADDRESS " P CWR A1,A6 CHECK QUEUE ANCHOR $ . P RF(E) ITC:10 REQUEST ISSUED FOR THIS TASK J P* | P ANK A7,1 P RF(Z) ITC:45 READ P CWK A1,RD:QUE 4 P RF(NE) ITC:50 NO READ REQUEST IN READ QUEUE =1 P*
0x235db4…235f48 Dummy {f00=0x00ae, f01=0x0190, f02=»D:N05 READ P* P EJECT DRIC01 P* 4 P* MOVE BUFFER > P* V PITC:15 EQU * ` P LD A8,DWTECB,A6 SENDING ECB t P LDK A1,0 " P LD A9,DWTECB,A2 RECEIVING ECB , P LD A3,ECBRL,A8 SENDING REQUESTED LENGTH P RB(NP)
0x235f48…2360dc Dummy {f00=0x00ae, f01=0x0190, f02=»NP) DIS:OE P* PITC:20 EQU * P IFT MMUPAG=1 0 2 P LDKL A4,ITAD ADDRESS TO DRIVER ADDRESS BLOCK F * P CW A3,BUFLEN,A4 CHECK MMU BUFFER SIZE | * P RF(NG) ITC:25 MMU BUFFER LARGE ENOUGH & P LDKL A1,/8008 NO, INDICATE ERROR 0 P RF EN
0x2360dc…236270 Dummy {f00=0x00ae, f01=0x0190, f02=»TH r $ P ST A3,ECBEL,A9 EFFECTIVE LENGTH P* 2 P IFT MMUPAG=0 < P ENB R * P LD A4,ECBBA,A8 SENDING BUFFER ADDRESS ^ , P LD A7,ECBBA,A9 RECEIVING BUFFER ADDRESS P* ( PITC:30 LCR A5,A4 MOVE ONE CHARACTER P SCR A5,A7 P ADK
0x236270…236404 Dummy {f00=0x00ae, f01=0x0190, f02=»ER SENDING TASK ID TO RECEIVING ECB AND VICE VERSA P* : ( P LD A3,DWTTAB,A2 TTAB RECEIVING TASK D P LD A3,TTB:ID,A3 TASK ID p 2 P ST A3,ECBCW,A8 RETURN TASK ID TO SENDING TASK & P LD A3,DWTTAB,A6 TTAB SENDING TASK P LD A3,TTB:ID,A3 TASK ID
0x236404…236598 Dummy {f00=0x00ae, f01=0x0190, f02=»1 8 P LD A3,ECBBA,A8 DRIVER BUFFER ADDRESS (EVEN/UNEVEN) $ P ST A3,ECBBA,A9 SET IN OTHER DWT F P XIF n P* z PEND:IO EQU * 0 P ABL DISEND END REQUEST VIA TENDIO AND TDISP P* PITC:35 EQU * P CMR A6 RESET QUEUE LINK
0x236598…23672c Dummy {f00=0x00ae, f01=0x0190, f02=»ITC:45 EQU * P CWK A1,WR:QUE ( P RB(E) ITC:10 COMPLEMENTARY REQUEST * P* V . PITC:50 LDK A7,0 INDICATE ADDRESSED REQUEST ` P* 2 P* CHECK TIMER VALUE AND SET TIMER IF REQUESTED P* PITC:60 EQU * P LD A3,DWTIME,A6 TIME
0x23672c…2368c0 Dummy {f00=0x00ae, f01=0x0190, f02=» b P LDK A4,DWTTP P ADR A4,A6 TIMER POINTER P ST A3,TIME > P CF A15,SETIMP SET TIMER R P DATA TIMOUT TIMEOUT ADDRESS r PTIME DATA 0 P* P EJECT DRIC01 P* ( P* INSERT IN QUEUE WITHIN PRIORITY P*
0x2368c0…236a54 (1, 561) Dummy {f00=0x00ae, f01=0x0190, f02=» x P SUK A7,1 ( P RF(Z) ITC:80 NOT-ADDRESSED REQUEST : P ADK A2,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE F P* PITC:80 LDR A4,A2 SAVE P LDR* A2,A2 NEXT IN QUEUE P RF(Z) ITC:90 END FOUND " P LD A5,DWTTAB,A2 TTAB ADDR
0x236a54…236be8 Dummy {f00=0x00ae, f01=0x0190, f02=» P ABL TDISP GO TO DISPATCHER P* , P EJECT DRIC01 6 P* N * P* W R I T E, N O T A D D R E S S E D X P* & PWR:NAD EQU * WRITE, NOT-ADDRESSED < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED READ REQUESTS $ P RF(NZ) WR:N10
0x236be8…236d7c Dummy {f00=0x00ae, f01=0x0190, f02=»REMOVE FROM QUEUE & P ST A3,RD:QUE UPDATE QUEUE ANCHOR P* D , PWR:N05 CF A15,ABTIM2 ABORT TIMER IF ANY N P RB ITC:15 ~ P* ( PWR:N10 LDR* A3,A2 REMOVE FROM QUEUE ( P ST A3,DWTANC,A6 UPDATE QUEUE ANCHOR P RB WR:N05 P*
0x236d7c…236f10 Dummy {f00=0x00ae, f01=0x018e, f02=»60 INSERT IN QUEUE P* P EJECT DRIC01 $ P* < ( P* R E A D, N O T A D D R E S S E D F P* r $ PRD:NAD EQU * READ, NOT-ADDRESSED | < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED WRITE REQUESTS $ P RF(NZ) RD:N10 ANYTHING IN QUEUE
0x236f10…2370a4 Dummy {f00=0x00ae, f01=0x0190, f02=» l & P ST A3,WR:QUE UPDATE QUEUE ANCHOR P* 2 PRD:N00 EQU * < & P CF A15,ABTIM2 ABORT TIMER IF ANY P P* z PRD:N05 EQU * " P XRR A2,A6 EXCHANGE A2 AND A6 P XRR A6,A2 P XRR A2,A6 P RB ITC:15 P* ( PRD:N10 LDR
0x2370a4…237238 Dummy {f00=0x00ae, f01=0x0190, f02=»DDRESS r P RB WR:N30 INSERT IN QUEUE P* 0 P EJECT DRIC01 : P* R P* T I M E O U T P* t 0 P* THIS ENTRY IS CALLED AT TIMEOUT. IT WILL ~ 4 P* RESET TIMER POINTER AND REMOVE DWT FROM QUEUE 2 P* BEFORE TERMINATING THE REQU
0x237238…2373cc Dummy {f00=0x00ae, f01=0x0190, f02=» EQU * " P CM* 0,A2 RESET TIMER POINTER P LDR A2,A1 4 ( P CF A15,ABR:10 REMOVE DWT FROM QUEUE F P LDR A6,A2 DWT ADDRESS r 0 P RB ITC:40 END REQUEST VIA TENDIO AND TDISP P* P EJECT DRIC01 P* P* I T A B R T P*
0x2373cc…237560 Dummy {f00=0x00ae, f01=0x0190, f02=» REQUEST VIA TENDIO. | P* P* INPUT: A6 = DWT ADDRESS & P* A8 = ECB ADDRESS J P* f PITABRT EQU * p P LDR A2,A6 8 P CF A15,ABREQ ABORT TIMER AND REMOVE DWT FROM QUEUE P LDK A1,0 RETURN CODE 0 P RB END:IO END REQUEST V
0x237560…2376f4 (1, 562) Dummy {f00=0x00ae, f01=0x0190, f02=» QUEUE. n P* P* INPUT: A2 = DWT ADDRESS P* > $ P* OUTPUT: A1, A3 ARE DESTROYED H P* p PABREQ EQU * z P CF A15,ABTIM ABORT TIMER P* P* REMOVE DWT FROM QUEUE P* PABR:10 EQU * " P LD A1,DWTQUE,A2
0x2376f4…237888 Dummy {f00=0x00ae, f01=0x0190, f02=»ESSED WRITE REQUEST z : P ADK A1,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE P* Z PABR:20 LDR A3,A1 SAVE d P LDR* A1,A1 NEXT IN QUEUE P CWR A1,A2 SEARCHED DWT P RB(NE) ABR:20 NO " P LDR* A1,A1 REMOVE FROM QUEUE " P STR
0x237888…237a1c Dummy {f00=0x00ae, f01=0x0190, f02=»* A B T I M P* . P* SUBROUTINE FOR ABORTING TIMER (IF ANY). P* P P* INPUT: A2 = DWT ADDRESS Z P* ~ $ P* OUTPUT: A1, A3 ARE DESTROYED P* PABTIM2 EQU * P CMR A2 RESET QUEUE LINK P* PABTIM LDK A1,DWT
0x237a1c…237bb0 Dummy {f00=0x00ae, f01=0x40d0, f02=»DICATE NO TIMER SET P* ! P IFT CPU852=1 ! & PIH:RTN ABL IHRTN ! < P XIF ! T P* ! ` P IFT CPU852=0 ! j PIH:RTN RTN A15 ! P XIF ! P* ! P* ! P* ! P END ! @ ! MR A2 RESET QUEUE LINK P* PABTIM LDK A1,DWT
0x237bb0…237d44 Dummy {f00=0x00ae, f01=0x2008, f02=» " A5 END @ ODE LD A3,4,A1 0 D MOV:10 EQU * L & " LD A4,2,A8 SENDING BUFFER ADDRESS ` " LD A7,2,A2 REC. BUFFER ADDR. ADR A3,A4 END OF BUFFER CWR A4,A3 " RF(E) MOV:20 ALL CHAR. MOVED
0x237d44…237ed8 Dummy {f00=0x00ae, f01=0x0190, f02=» P* C P LD* A2,DWTECB,A10 FILE CODE C P ANK A2,/FF C 2 P SC A2,OPEFCD SAVE C F P LDK A5,0 TTAB AND CDTAB C ` $ P LD A1,DWTTAB,A10 USER TTAB ADDR C 0 P CF A14,FNDFDB A4=TTAB/SCTCDT ENTRY ADDRESS C P ST A11,2,A4 FWT ADDR C P EJECT C P
0x237ed8…23806c Dummy {f00=0x00ae, f01=0x018e, f02=» A2 C z P XRR A10,A11 D P XRR A11,A10 D P XRR A10,A11 D 4 P LDR A3,A10 D H P ADKL A3,FDBCRL ROOT D P INH D x POPE120 EQU * D P LDR A1,A3 D P LDR* A3,A3 NEXT BUFFER D P CWR A3,A2 D P RB(NE) OPE120 NEXT BUFFER D P LDR* A4,A
0x23806c…238200 Dummy {f00=0x00ae, f01=0x0190, f02=» D P* E 2 P* CHECK USER SIZE AND UPDATE PARAMETER BLOCK E P* E H P LDK A1,FPB:IV E R " P LC A3,FDBNIF,A11 NR OF INDEX E h P ANK A3,/F E P IFT INDXAC=1 E P RF(Z) OPE150 E P LDR A4,A3 E P SLL A3,3 E P SLL A4,2 E P ADR A
0x238200…238394 (1, 563) Opaque[0x194]
0x238394…238528 # DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15d8, f03=0x0000}
0x238394…238528 IdxSect {
0x238394…238528 f00 = 0x00ae // 0x238394 @0x0
0x238394…238528 f01 = 0x0016 // 0x238396 @0x2
0x238394…238528 gno = [ // 0x238398 @0x4
0x238394…238528 [0x00]: C0x00ae.0x3.0
0x238394…238528 [0x01]: C0x00af.0x0.0
0x238394…238528 [0x02]: C0x00af.0x1.0
0x238394…238528 [0x03]: C0x00af.0x2.0
0x238394…238528 [0x04]: C0x00af.0x3.0
0x238394…238528 [0x05]: C0x00b0.0x0.0
0x238394…238528 [0x06]: C0x00b0.0x1.0
0x238394…238528 [0x07]: C0x00b0.0x2.0
0x238394…238528 [0x08]: C0x00b0.0x3.0
0x238394…238528 [0x09]: C0x00b1.0x0.0
0x238394…238528 [0x0a]: C0x00b1.0x1.0
0x238394…238528 ]
0x238394…238528 }
0x238528…2386bc Dummy {f00=0x00ae, f01=0x0190, f02=» 2 P IDENT DRKB04 REL 11.0 81-05-25 870105041100 P : 0 P =2 GREEK CHARACTER SET & NEW CONDITIONS B P REL 11.0 81-03-27 v 4 P = 1 /00 SKIPPED IF IT CAME FROM SECOND DEVICE , P ADDRESS VIA CIRCULAR INPUT BUFFER P REL 11.0
0x2386bc…238850 Dummy {f00=0x00ae, f01=0x0190, f02=»S T E M P T S h * * DRKB04 = DRIVER KEYBOARD * D . ******************************************* N * 4 P* THIS DRIVER HANDLES INPUT FROM THE KEYBOARDS & P* PTS 6231, -32, -33, -34, -36, 2 .* -71, -72, 6331, 6342 AND
0x238850…2389e4 Dummy {f00=0x00ae, f01=0x0190, f02=» ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. * 6 0 +* AN ECHO DEVICE CAN BE ATTACHED TO EVERY @ 0 +* KEYBOARD, WHERE RECEIVED CHARACTERS ARE t * ECHOED. * 0 +* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* R C K B =
0x2389e4…238b78 Dummy {f00=0x00ae, f01=0x0190, f02=» * %* THE FOLLOWING ORDERS ARE TREATED: * ORDER 01: BASIC READ 6 " * 02: STANDARD READ Z " * 03: NUMERIC READ ( #* 31: RESET INPUT BUFFER * P EJECT * NORMAL REGISTER USAGE:
0x238b78…238d0c Dummy {f00=0x00ae, f01=0x0190, f02=» A4: WORK REGISTER " * A5: STACK BASE " $ * A6: DWT-ADDRESS H * A7: ORDER p $ * A8: ECB-ADDRESS * * SYSTEM ADAPTION * 2 -* DWT-ADDRESS OF ECHO-OUTPUT
0x238d0c…238ea0 Dummy {f00=0x00ae, f01=0x018e, f02=»O ZERO. STANDARD VALUE FOR TIME- | 6 2* OUT IS 30 SECONDS SINCE LAST DEPRESSED KEY. IF ( 8 3* ANOTHER VALUE IS WANTED FOR A SYSTEM, INDICATOR b " * IN DRIVER MUST BE CHANGED. * P* < P* BIT 1 IN DWTDEV IS SET TO ZERO IF CHARACTERS
0x238ea0…239034 (1, 564) Dummy {f00=0x00af, f01=0x0190, f02=» P* > P* BIT 2 IN DWTDEV IS SET TO ZERO IF /20-/5F ARE ACCEPTED < P* FOR STANDARD READ. IF IT IS SET TO ONE, /20-/7F ARE P P* ACCEPTED. * 8 4* KEYBOARD TYPE MUST ALSO BE DEFINED IN DWT. BIT 3 8 4* IN DWTDEV MUST BE SET IF
0x239034…2391c8 Dummy {f00=0x00af, f01=0x0190, f02=»ECHOED. r P* @ P* SPACE FOR THE CIRCULAR INPUT BUFFER IS RESERVED IN DWT. * ^ 8 3* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE h ( #* TO EXCLUDE FOLLOWING FUNCTIONS: * ---- ECHO FUNCTION * ---- TIME OUT FUNCTION
0x2391c8…23935c Dummy {f00=0x00af, f01=0x0190, f02=»NUMERIC PART OF 6272 USED AS NORMAL KEY z * 0 P EJECT : * ENTRIES H * P ENTRY KBAD4 ADDRESSBLOCK f * $ * EXTERNAL TOSS MODULE ENTRIES * * & EXTRN LENDER END REQUEST AND DISPATCH " EXTRN INPUT READ A CH
0x23935c…2394f0 Dummy {f00=0x00af, f01=0x0190, f02=» EXTRN LENDIS END I/O AND DISPATCH P EXTRN ABORT ABORT REQUESTS * P EXTRN ABTADR ABORT-ADDRESS N P EXTRN TENDIO r P EXTRN TDISP * * DWT PARAMETERS * EXTRN DWTDEV P EXTRN DWTST P EXTRN DWTA3 P
0x2394f0…239684 Dummy {f00=0x00af, f01=0x0190, f02=» ~ P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH 6 " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBCW CONTROL WORD * * CONSTANTS * * &OVMASK EQU /2 OVERFLOW IN INPUT BUFFER " PTIME EQU 300
0x239684…239818 Dummy {f00=0x00af, f01=0x0190, f02=»* ( $************************************ * 6 < P* TIME OUT FUNCTION MAY BE INCLUDED BY SETTING X:A = 1 @ * PX:A EQU 0 PCTIMUT EQU X:A * 8 4* ECHO FUNCTION MAY BE EXCLUDED BY SETTING X:B = 0 * X:B EQ
0x239818…2399ac Dummy {f00=0x00af, f01=0x018e, f02=» P* PX:C EQU 0 PRECOV EQU X:C P* 6 : P* THE LENGTH OF THE CIRCULAR INPUT BUFFER IS DEFINED @ 0 P* IN X:D, NUMBER OF BYTES IN DECIMAL FORM. ~ P* PX:D EQU 8 PDWTLNG EQU X:D P* P* CODE CONVERSION DUMMY
0x2399ac…239b40 Dummy {f00=0x00af, f01=0x0190, f02=» ( P* /00 INSTEAD OF BEING A SHIFT KEY P* 0 PX:F EQU 1 : PNSHIFT EQU X:F L P* b & P* BY SETTING X:G = 1 KEYBOARD IS l P* LOCKED IF NO KEYLOCK ON P* PX:G EQU 0 PKBLOCK EQU X:G * * MMU BUFFER SIZ
0x239b40…239cd4 (1, 565) Dummy {f00=0x00af, f01=0x0190, f02=»QU X:I P* 6 P* X:J SHOULD BE SET TO 1 IF KB 6236, 71 OR 72 =2 " P* IS INCLUDED IN SYSTEM =2 R P* x PX:J EQU 1 PNEWKB EQU X:J P* 8 P* X:K SHOULD BE SET TO 1 IF OTHER KB THAN 6236 =2 * P* 71 OR 72 IS INCLUDED
0x239cd4…239e68 Dummy {f00=0x00af, f01=0x0190, f02=»* PX:L EQU 1 PPLC EQU X:L P* 0 , P* IF X:M = 1 IT IS POSSIBLE TO USE =2 : P* GREEK CHARACTER SET =2 j P* PX:M EQU 0 PGREECE EQU X:M 2 /* A PROGRAM VERSION USING TOSS MMU-PAGING IS * %* OBTAINED BY SE
0x239e68…239ffc Dummy {f00=0x00af, f01=0x0190, f02=» EQU /04 KEYLOCK MEMORY $ PDWTCS EQU /06 CRTL-SHIFT MEMORY . PDWTCTB EQU /08 CONVERSION POINTERS ADDRESS H PDWTTP EQU /0A TIMER POINTER z * * CIRCULAR INPUT BUFFER * * PDWTINQ EQU /0C POINTER TO FIRST PLACE ( PDWTUTQ
0x239ffc…23a190 Dummy {f00=0x00af, f01=0x0190, f02=»DRESS BLOCK * P DATA DVBKTB MMU KEY TABLE P DATA DVBLEN MMU BUFFER SIZE @ P DATA 6 DEVICE INDEX d PKBAD4 EQU * DATA ACKB ACTIVATION PART P DATA ABKB ABORT ROUTINE DATA IHKB INTERRUPT HANDLER P IFF RECOV=1
0x23a190…23a324 Dummy {f00=0x00af, f01=0x0190, f02=»************************ P* P* RECOVERY ROUTINE * P* F * P************************************* P PRCKB LDR A8,A8 BUSY ? ~ P RF(NZ) RC10 YES ! P LDKL A1,/400 NO ! ( P ORS A1,DWTDEV,A6 INDICATE POWER OFF P ABL LENDIS
0x23a324…23a4b8 Dummy {f00=0x00af, f01=0x0190, f02=»ESTED FLAG r , P LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH & PRC15 CM ECBCW,A8 COMPLETE REQUEST B & P ABL MKB335 AND SET RETURN CODE =0 l P XIF EJECT ( $************************************ P* * * A C K B *
0x23a4b8…23a64c Dummy {f00=0x00af, f01=0x0190, f02=»0 RESET REGISTERS LDK A3,0 * , * CHECK ORDER 6 * N LDR A4,A7 X RF(NG) AKB100 ILLEGAL ORDER j SUK A4,4 " RF(N) AKB200 ORDER 1, 2 OR 3 SUK A4,/2D RF(Z) AKB110 ORDER 31 * *
0x23a64c…23a7e0 Dummy {f00=0x00af, f01=0x0190, f02=»T BUFFER. x * AKB110 EQU * P INH 0 $ P LD A1,DWTDEV+DWTUTQ,A6 BUF END < * P CW A1,DWTDEV+DWTINQ,A6 BUFFER EMPTY ? d P RF(E) AKB119 YES ! P* P LDR A2,A1 P IFT NEWKB+OLDKB=2 =2 P LD A4,DWTDEV,A6 ( P ANKL A4
0x23a7e0…23a974 (1, 566) Dummy {f00=0x00af, f01=0x0190, f02=»CHARACTERS ARE NOT REMOVED t . P* FROM BUFFER WHEN KB 6236/71/72 IS USED " P* T " PAKB112 LCR A4,A1 GET CHARACTER ^ P ANK A4,/FF P IFT NSHIFT=0 & P CCK A4,/7C00 NUMSHIFT DEPRESSED ? & P RF(E) AKB113 YES ! SKIP CHARACTER P XIF
0x23a974…23ab08 Dummy {f00=0x00af, f01=0x0190, f02=» RF(NN) AKB120 YES ! P* * PAKB113 CF A15,EOQUEU GET NEXT POINTER & ( P CW A1,DWTDEV+DWTINQ,A6 END OF BUF ? T " P RB(NE) AKB112 NO ! CHECK NEXT P* P XIF PAKB118 SCR A3,A1 P ST A2,DWTDEV+DWTINQ,A6 YES! PAKB119 ENB .
0x23ab08…23ac9c Dummy {f00=0x00af, f01=0x0190, f02=» STORE IN BUF. " P LDR A3,A1 EXCHANGE REGISTERS P LDR A1,A2 < $ P CF A15,EOQUEU GET NEXT POINTER N P LDR A2,A1 v P LDR A1,A3 P LDK A3,0 P RB AKB113 * P XIF AKB200 EQU * P IFT RECOV=1 P* P*
0x23ac9c…23ae30 Dummy {f00=0x00af, f01=0x0190, f02=»RESET POWER OFF BIT ~ P CWK A7,1 BASIC READ ? ( P RB(NE) RC15 NO ! COMPLETE REQUEST ! : P XIF f PAKB205 EQU * r IFT CTIMUT=1 P EJECT * * INITIATE TIMING ROUTINE * P LD A1,DWTDEV,A6 TIMING ? RF(
0x23ae30…23afc4 Dummy {f00=0x00af, f01=0x0190, f02=» CF A15,RESTRT YES ! RESTART TIMER RF AKB210 * * < AKBTIM EQU * F LDR A1,A6 DWT-ADDRESS IN A1 Z * ~ P CF A15,SETIME SET TIME , P DATA AKBTUT,TIME TIMEOUT ROUTINE & TIME * 6 P ST A4,DWTTP+DWTDEV,A6 STORE TIMER ADD
0x23afc4…23b158 Dummy {f00=0x00af, f01=0x0190, f02=»TH IN ECB = 0 ? l , ' ABL(E) MKBEND YES ! COMPLETE REQUEST ! * H * CLEAR ECB-BUFFER R * n " P LD A1,ECBBA,A8 BUFFER ADDRESS x SUK A1,1 $ ADR A1,A2 ADD REQUESTED LENGTH * 8 4AKB230 SCR A3,A1 CLEAR BUFFER UNTIL RE
0x23b158…23b2ec Dummy {f00=0x00af, f01=0x0190, f02=»******************** * * & * M K B 0 $ * MAIN PART OF KEYBOARD DRIVER B * j * t * &************************************** ~ * 4 /* CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS 2 .* CHARACTERS AND NO OVER
0x23b2ec…23b480 Dummy {f00=0x00af, f01=0x0190, f02=»TCH A CHARACTER FROM v " LCR A2,A1 CIRCULAR BUFFER END * B P LDR A4,A2 L XRK A4,/FF OVERFLOW ? ^ P RF(NE) MKB130 NO ! | * P SCR A4,A1 YES ! P ENB $ LDK A1,OVMASK SET OVERFLOW BIT ABL MKBEND COMPLETE REQUE
0x23b480…23b614 (1, 567) Dummy {f00=0x00af, f01=0x0190, f02=»R p . P ST A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER P =1 < P IFT PLC=1 =2 J P* ` @ P* TEST IF THERE ARE MORE CHARACTERS IN CIRC. INPUT BUFFER j P* 4 P LDKL A4,/0800 "MORE CHARACTERS" INDICATION BIT , P CW A1,DWTDEV+DWTINQ,A6
0x23b614…23b7a8 Dummy {f00=0x00af, f01=0x0190, f02=»FT PLC=1 =2 PMKB135 C1R A4,A4 8 P ANS A4,DWTDEV,A6 CLEAR "MORE CHARACTERS" INDICATION , P RB MKB133 h P XIF z P EJECT * & "* READ A CHARACTER FROM KEYBOARD * PMKB140 EQU * CF A5,INPUT READ CHARACTER
0x23b7a8…23b93c Dummy {f00=0x00af, f01=0x0190, f02=»IT IF THERE j P* ARE MORE CHARACTERS P* 4 ( P ANK A1,/1 MASK NOT SIGNIFICANT BITS > P SRC A1,5 j P ORS A1,DWTDEV,A6 | P* P XIF IFT CTIMUT=1 ( P CF A15,RESTRT RESTART TIMEOUT TIMER XIF * PMKB1
0x23b93c…23bad0 Dummy {f00=0x00af, f01=0x0190, f02=»D WITH x ( P ANKL A4,/1000 SPECIAL CONVERSION ? ! P RF(Z) MKB290 PERHAPS ! ! : P XIF ! Z P IFT NEWKB=1 =2 ! f * ! ~ P* KB 6236/71/72 IS USED ! * CHECK INCOMING CHARACTER ! * ! LDR A4,A2 ! , P SUK A4,/80 SKIP CHAR. FROM CI
0x23bad0…23bc64 Dummy {f00=0x00af, f01=0x0190, f02=»ORMAL CHARACTER ? ! P RF(N) MKB300 YES ! " P EJECT " 6 * " D > P* KEYLOCK IS TURNED. SET/CLEAR CORRESPONDING BIT IN DWT. " N : P* IF THE KEYLOCK ISN'T CHANGED, WHICH MEANS THAT THE " < P* CHARACTER IS COMING BECAUSE OF POWER UP, THE CHARAC- "
0x23bc64…23bdf8 Dummy {f00=0x00af, f01=0x0190, f02=»KEYLOCK ON ! " | P SUK A4,1 # P RF(Z) MKB180 KEYLOCK OFF ! # & $ SLC A1,1 SHIFT "FLAG BIT" LEFT # J SUK A4,1 # r & P RB MKB160 NEXT KEYLOCK, PERHAPS ? # * # PMKB170 EQU * # 6 P LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK IS CHANGED # P T
0x23bdf8…23bf8c Dummy {f00=0x00af, f01=0x0190, f02=»80 EQU * # 4 P LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK CHANGED $ P TM A4,A1 $ H P RB(Z) MKB100 NO CHANGE $ Z * P C1R A1,A1 COMPLEMENT FOR AND-FUNCTION $ z . P ANS A1,DWTDEV+DWTKEY,A6 CLEAR "FLAG BIT" $ PMKB190 EQU * $ 0 P CF A15,STORE STORE KEYLOC
0x23bf8c…23c120 Dummy {f00=0x00af, f01=0x0190, f02=» KEYLOCK IS TURNED ! MAKE A NEGATIVE CODE $ 6 P* TO THE CONTROLWORD IN ECB AND COMPLETE REQUEST % 2 * % l PMKB200 EQU * % v P LDR A4,A2 LOAD CHARACTER % P SUK A4,/70 % & ! SRC A4,1 SHIFT TO GET KEY NUMBER % P RF(N) MKB210 ON OR OFF ? %
0x23c120…23c2b4 (1, 568) Dummy {f00=0x00b0, f01=0x0190, f02=» % h & P ST A4,ECBCW,A8 STORE CODE IN ECB & , P RF MKB335 SET RC=0 AND COMPLETE REQUEST & 2 * & b 4 0* CTRL OR (NUM.) SHIFT IS DEPRESSED (RELEASED) & l * & PMKB220 EQU * & P IFT KBLOCK=1 & * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? & , P R
0x23c2b4…23c448 Dummy {f00=0x00b0, f01=0x018e, f02=» IF NUMERIC SHIFT KEY IS & z 2 P* DEPRESSED, AND SKIP THE INCOMING CHARACTER ' P* IF IT IS RELEASED. ' V P* ' t P CCK A2,/7C00 DEPRESSED ? ' ~ P RF(NE) MKB230 NO ! ' $ P LDK A2,/00 YES ! LOAD CHARACTER ' P RF MKB300 ' P* ' " PMKB230 C
0x23c448…23c5dc Dummy {f00=0x00b0, f01=0x0190, f02=» ' t P LDR A4,A4 SHIFT ON ? ( P RF(Z) MKB260 YES ! ( & P SUK A4,1 SHIFT OFF ? ( B P RF(Z) MKB270 YES ! ( ` P LDK A1,/4 CONTROL BIT ( | P SUK A4,1 CONTROL ON ? ( P RF(Z) MKB260 YES ! ( P SUK A4,1 CONTROL OFF ? ( P RF(Z) MKB270 YES !
0x23c5dc…23c770 Dummy {f00=0x00b0, f01=0x0190, f02=»MKB270 C1R A1,A1 COMPLEMENT ( " P ANS A1,DWTDEV+DWTCS,A6 CLEAR ) $ * ) J $ PMKB280 ABL MKB100 NEXT CHARACTER ) T P XIF ) | P IFT OLDKB=1 =2 ) P EJECT ) * ) . P* SPECIAL CONVERSION OF CHARACTERS FROM ) P* NUMERIC PART OF 6234. )
0x23c770…23c904 Dummy {f00=0x00b0, f01=0x0190, f02=» BE USED ) ( P LDR A4,A2 IF BIT 8 IN CHARACTER IS * 0 P ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED * < ( P RF(Z) MKB310 NO SPECIAL CONVERSION * p P ANK A2,/7F MASK AWAY BIT 8 * * * & P* INDICATE SPECIAL CONVERSION ! * * * 2 PMKB295 ANK
0x23c904…23ca98 Dummy {f00=0x00b0, f01=0x018e, f02=» P EJECT + * + * NORMAL CONVERSION + * + : PMKB300 EQU * + D * + X IFT KBLOCK=1 + b * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? + x . P ABL(Z) MKB100 YES ! READ A NEW CHARACTER + XIF + * + PMKB310 EQU * + , P LD A1
0x23ca98…23cc2c Dummy {f00=0x00b0, f01=0x0190, f02=» P LDR* A1,A1 , & P RF(E) MKB320 NO CONVERSION TABLE , LDR A4,A2 , B SRL A4,3 LINE INDEX , T P ADR A1,A4 , p $ P LDR* A1,A1 COLUMN TABLE ADDRESS , P RF(E) MKB320 NO COLUMN , LDR A4,A2 , ANK A4,/F , P ADR A1,A4 ADD ROW INDEX ,
0x23cc2c…23cdc0 Dummy {f00=0x00b0, f01=0x0190, f02=»4,DWTDEV+DWTCS,A6 , P XIF - P EJECT - & * - 4 , '* CHECK IF BASIC READ OR ORDER 2 OR 3 - > * - n P LDR A4,A7 LOAD ORDER CODE - x SUK A4,2 - " P RF(NN) MKB330 ORDER 2 OR 3 ! - * - * ORDER 1, BASIC READ - * - , P C
0x23cdc0…23cf54 (1, 569) Dummy {f00=0x00b0, f01=0x0190, f02=» IF ECHO WANTED - * . 2 PMKB325 EQU * . < 0 P CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? . P . P ABL(NE) MKB100 NO ! READ A NEW CHARACTER . * . ( P RF MKB335 YES ! SET RETURN CODE = 0 . P EJECT . * . . **
0x23cf54…23d0e8 Dummy {f00=0x00b0, f01=0x0190, f02=» . & P LD A1,ECBCW,A8 KEY-TABLE ADDRESS / P RF(Z) MKB360 NO KEYTABLE ! / 2 " LCR A4,A1 TABLE LENGTH IN A4 / V ANK A4,/FF / | 0 , ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE / ADK A1,1 / PMKB340 SUK A4,1 / , P RF(N) MKB360 KEY NOT FOUN
0x23d0e8…23d27c Dummy {f00=0x00b0, f01=0x0190, f02=» / ( # ADK A4,1 YES ! MAKE KEYTABLE INDEX 0 PMKB350 EQU * 0 4 0 P ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD 0 H * 0 | 0 P CF A15,STORE STORE CHARACTER IN ECB BUFFER 0 P IFT CECHO=1 0 & P ORK A2,/80 INDICATE EOR CHARACTER 0 P CF A5,EORECH EC
0x23d27c…23d410 Dummy {f00=0x00b0, f01=0x0190, f02=» P* 1 P EJECT 1 P* 1 P* 1 & P* CHARACTER CHECK 1 0 P* 1 L PMKB360 EQU * 1 V ( P STR A2,A15 SAVE CHARACTER ON STACK 1 j P LD A1,DWTDEV,A6 1 P CWK A7,2 STANDARD READ ? 1 P RF(NE) MKB380 NO ! 1 P LDK A4,/20 LOWER LIMIT 1
0x23d410…23d5a4 Dummy {f00=0x00b0, f01=0x018e, f02=»1,/7F UPPER LIMIT 1 P RF MKB400 2 P* 2 , ( PMKB380 SLC A1,1 /30-/39 & /70-/79 ? 2 6 P RF(NZ) MKB390 NO ! 2 b P* 2 ~ P ANK A2,/3F RESET BIT 9 2 " PMKB390 LDK A1,/39 UPPER LIMIT 2 P LDK A4,/30 LOWER LIMIT 2 P* 2 PMKB400 SUR A1,A2
0x23d5a4…23d738 Dummy {f00=0x00b0, f01=0x0190, f02=» P EJECT 3 * 3 $ * IT IS A "NORMAL" CHARACTER ! 3 * 3 D PMKB405 EQU * 3 N * P CF A5,STOECH STORE AND ECHO CHARACTER 3 b * 3 & P CW A3,ECBRL,A8 LENGTH OVERFLOW ? 3 , P ABL(L) MKB100 NO ! TAKE NEXT CHARACTER 3 * 3 ( PMKB410 LDK
0x23d738…23d8cc Dummy {f00=0x00b0, f01=0x0190, f02=»OR, SKIP OR UNKNOWN CHARACTER 3 * 4 & ( PMKB420 LDR* A2,A15 RELOAD CHARACTER 4 0 P LDR A1,A2 4 P ANK A1,/FF 4 n P LD A4,ECBCW,A8 4 * P RF(NZ) MKB440 STANDARD EOR NOT USED ! 4 6 P LDK A4,1 INDEX TO STORE IN ECBCW IF STANDARD EOR 4 P CCK A
0x23d8cc…23da60 Dummy {f00=0x00b0, f01=0x0190, f02=» 4 ~ * 5 " P ADK A1,/13 BACKSPACE ? (/08) 5 P ABL(E) BACKSP YES ! 5 8 * 5 T P SUK A1,/10 CLEAR ? (/18) 5 ^ P ABL(E) CLEAR YES ! 5 * 5 " P SUK A1,/2 DOUBLE ZERO ? (/1A) 5 P ABL(E) MZ20 YES ! 5 * 5 $ P SUK A1,/E5 SKIP CHARACT
0x23da60…23dbf4 (1, 570) Dummy {f00=0x00b0, f01=0x018e, f02=»FOR THE 5 v & P RF(N) MKB460 GREEK CHARACTER SET 6 P SUK A1,/9 6 : P RB(NP) MKB405 YES IT IS OK 6 L PMKB460 EQU * 6 p P XIF 6 * 6 , (* SET ERROR CODE FOR UNKNOWN CHARACTER 6 * 6 0 P CF A15,STORE STORE CHARACTER IN ECB-BUFFER 6 P
0x23dbf4…23dd88 Dummy {f00=0x00b0, f01=0x0190, f02=» 6 * 7 * %************************************* 7 MKBEND EQU * 7 @ * 7 T IFT CTIMUT=1 7 ^ P LD A4,DWTTP+DWTDEV,A6 7 t RF(E) MKBE10 NO TIMING ! 7 & P CM* DWTTP+DWTDEV,A6 SCRATCH TIMER 7 P CM DWTTP+DWTDEV,A6 7 XIF 7 *
0x23dd88…23df1c Dummy {f00=0x00b0, f01=0x0190, f02=»,ECHEND END OF ECHOING 7 P LDR A1,A4 8 XIF 8 0 * 8 < , P ABL LENDIS PERFORM END I/O AND DIPATCH 8 F EJECT 8 v * &************************************** 8 * 8 * 8 * INTERRUPT HANDLER 8 * 8 * 8 * &****************
0x23df1c…23e0b0 Dummy {f00=0x00b0, f01=0x0190, f02=»IMEOUT TIMER 8 x XIF 9 * 9 4 /* STORE INCOMING CHARACTER IN CIRCULAR BUFFER 9 * * 9 b P IFT OLDKB=1 =2 9 l $ P LDR A1,A6 SPECIAL CONVERSION ? 9 P ANK A1,1 9 P RF(Z) IHKB02 NO ! 9 . P ORK A2,/80 YES INDICATE BY SETTING BIT 8 9
0x23e0b0…23e244 Dummy {f00=0x00b0, f01=0x0190, f02=»* 9 P LDR A4,A1 : 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS : * : T & P CW A1,DWTDEV+DWTUTQ,A6 OVERFLOW ? : ^ RF(NE) IHKB20 NO ! : $ P LDK A1,/FF OVERFLOW INDICATION : ( P SCR A1,A4 SET OVFL. IND. IN BUFFER : P* : PIHKB05
0x23e244…23e3d8 Dummy {f00=0x00b0, f01=0x0190, f02=» P XIF ; P IFT NEWKB=1 =2 ; & P SUK A2,/70 KEYLOCK, SHIFT, CTRL ? ; ( P RF(N) EXIT NO ! ; R P ADK A2,/70 YES ! ; j P* ; P LDK A1,0 ; P SC A1,DWTDEV+1,A6 ; P LD A1,DWTDEV+DWTINQ,A6 ; P LDR A4,A1 ; P CF A15,EOQUEU ; , P CW A1
0x23e3d8…23e56c Dummy {f00=0x00b0, f01=0x0190, f02=»DICATION ; t P LDR A4,A1 FORWARD IN BUFFER < P RF IHKB20 < 4 P* < F P* CHECK BUFFER < P P* < h > PIHKB07 LD A1,DWTDEV+DWTINQ,A6 POINTER TO LAST POS IN BUF. < r PIHKB10 EQU * < * P CW A1,DWTDEV+DWTUTQ,A6 END OF QUEUE ? < P RF(E) IHKB19 YES
0x23e56c…23e700 Dummy {f00=0x00b0, f01=0x018e, f02=» RF(Z) EXIT EQUAL CHARACTER ! < P SUK A4,1 INVERTED CHAR. ? = & P RF(NZ) IHKB17 NO ! = H 2 P LDK A2,/80 YES ! LOAD SKIP CHAR FOR CIRC BUF = d P RF IHKB18 = P* = PIHKB17 EQU * = & P SUK A4,/F CTRL, SHIFT, KEYLOCK ? = P RB(N) IHKB10 YES !
0x23e700…23e894 (1, 571) Dummy {f00=0x00b0, f01=0x0190, f02=» " P* EQUAL AND INV. CHARACTERS > P* > * : PIHKB19 LC A4,DWTDEV+1,A6 SORT OUT EQUAL AND INV. CHAR > 4 P ANK A4,/FF > r P LD A1,DWTDEV+DWTINQ,A6 > PIHKB21 CF A15,SOQUEU > P SUK A4,1 > P RB(NN) IHKB21 > P IM DWTDEV,A6 > ( P LCR A4,
0x23e894…23ea28 Dummy {f00=0x00b0, f01=0x0190, f02=» LDR A2,A4 PUT CHAR IN A2 > P ANK A2,/7F ? " P RB IHKB07 ? 6 P XIF ? H * ? T 8 PIHKB20 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER ? ^ 4 PIHKB30 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER ? * ? EXIT ABL LDISP DISPATCH ! ? P EJECT ?
0x23ea28…23ebbc Dummy {f00=0x00b0, f01=0x0190, f02=» STOECH EQU * @ , ' CF A15,STORE STORE CHAR. IN ECB-BUFFER @ * @ H IFT CECHO=1 @ R P IFT GREECE=1 =2 @ f P RF EORECH DO NOT MASK @ P XIF @ P IFT CECHO=1 @ , PECHSUB ANK A2,/7F MASK TO GET CHARACTER @ PEORECH EQU * @ P IFT P
0x23ebbc…23ed50 Dummy {f00=0x00b0, f01=0x0190, f02=»IT @ l P SLC A1,5 A P XIF A P IFT CECHO=1 A ( CF A5,ECHO ECHO CHARACTER A < XIF A ^ * A j P RTN A5 A t * A P EJECT A IFT CTIMUT=1 A * A $ * THIS IS THE TIMEOUT ROUTINE A * A AKBTUT EQU * A P LDR A
0x23ed50…23eee4 Dummy {f00=0x00b0, f01=0x0190, f02=» , P CF A15,ABORT RESET INPUT REQUESTED FLAG B * P LDR A5,A6 INITIATE DWT-STACK POINTER B 4 P ADKL A5,DWTSB2 B b 4 P LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH FROM DWT B z ( P LD A8,DWTECB,A6 RELOAD ECB-ADDRESS B P LDK A1,/40 SET RETURN CODE B ABL M
0x23eee4…23f078 Dummy {f00=0x00b0, f01=0x0190, f02=»F(E) NOTIME NO TIMING B LDKL A4,-TIME RESTART TIMER C P ST* A4,DWTTP+DWTDEV,A6 C B PNOTIME RTN A15 C b XIF C x P EJECT C * C 0 P* STORE = SUBROUTINE TO STORE A CHARACTER C 0 ,* IN ECB-BUFFER AND INCREMENT BUFFER INDEX C * C
0x23f078…23f20c Dummy {f00=0x00b0, f01=0x0190, f02=»BA,A8 BUFFER ADDRESS C P ADR A1,A3 ADD BUFFER INDEX D ( P SCR A2,A1 STORE CHARACTER IN BUFFER D @ $ ADK A3,1 INCREMENT BUFFER INDEX D l RTN A15 D * D 6 1* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER D * D ( #* ON ENTRY: A1 =
0x23f20c…23f3a0 Dummy {f00=0x00b0, f01=0x0190, f02=»1,DWTDEV+DWTEQ END OF QUEUE ? D RF(NE) EOQU10 E & 2 P LDKL A1,DWTDEV+DWTSQ SET QUEUE START ADDRESS E < EOQU10 ADR A1,A6 E r P RTN A15 E P* E : P* SOQUEUE = SUBROUTINE TO GET PREVIOUS QUEUE POINTER E P* E ( P* ON ENTRY: A1 = QUEUE
0x23f3a0…23f534 (1, 572) Dummy {f00=0x00b1, f01=0x0190, f02=» IN QUEUE ? E r P RF(NE) SOQ10 NO ! F 0 P LDKL A1,DWTDEV+DWTEQ GET LAST POS IN QUEUE F . PSOQ10 ADR A1,A6 F b ( P SUK A1,1 GET PREVIOUS POINTER POS. F z P RTN A15 F P EJECT F * F P* BACKSPACE F * F PBACKSP EQU * F LDR A
0x23f534…23f6c8 Dummy {f00=0x00b1, f01=0x0190, f02=»BLANK INSTEAD OF LAST CHAR F z " SUK A3,1 STEP BACKWARDS AGAIN G " * G H KBBSPA EQU * G R IFT CECHO=1 G f & " LDK A2,/8 BACKSPACE TO ECHODEVICE G z P XIF G PKBBSP2 EQU * G P IFT CECHO=1 G " P CF A5,ECHSUB ECHSUB CHARACTER G XIF G
0x23f6c8…23f85c Dummy {f00=0x00b1, f01=0x018e, f02=»P2 NEXT CHARACTER G P EJECT H * H ( * MULTIPLE ZERO H 2 * H L MZ20 EQU * DOUBLE ZERO H V P LDK A4,2 H t P RF MZ50 H * H MZ30 EQU * TRIPLE ZERO H P LDK A4,3 H * H MZ50 EQU * H SUK A4,1 ANY MORE ZEROES ?
0x23f85c…23f9f0 Dummy {f00=0x00b1, f01=0x0190, f02=» ( P CF A15,SOQUEU GET PREVIOUS POINTER I * I 0 , P CW A1,DWTDEV+DWTINQ,A6 ANY SPACE LEFT ? I : P RF(E) MZ90 NO ! I j PMZ75 EQU * I 6 P ST A1,DWTDEV+DWTUTQ,A6 STORE NEW OUTQUEUE POINTER I , ( LDK A2,/30 STORE ZERO IN CIRCULAR BUFF. I SCR A2,A1
0x23f9f0…23fb84 Dummy {f00=0x00b1, f01=0x0190, f02=»6 UPPDATE POINTER I z 2 . LDK A1,/A SET RETURN CODE FOR BOTH LENGTH AND J ENB THROUGHPUT ERRORS J P * J p P ABL MKBEND J z P* J PMZ90 EQU * J P LDR A4,A4 ALL ZEROES ? J P RB(E) MZ80 YES J & P LDKL A2,/FFFF NO, MOVE IN-POINTER J
0x23fb84…23fd18 Dummy {f00=0x00b1, f01=0x0190, f02=» ABORT ROUTINE J P* K , P**************************************** K " P* K R PABKB EQU * K & P CF A15,ABORT ABORT INPUT REQUEST K n P IFT CTIMUT=1 K P LD A4,DWTTP+DWTDEV,A6 K P RF(Z) ABKB05 NO TIMER ! K P CM* DWTTP+DWTDEV,A6 K $ P
0x23fd18…23feac Dummy {f00=0x00b1, f01=0x0190, f02=» END I/O ON KEYBOARD K * P SLC A4,2 GET ECHO-MODE INDICATION BIT L PABKB10 EQU * L J & P ABL(NN) LDISP NOT AN ECHO REQUEST L ^ P* L 4 P LD A4,DWTECH,A6 GET DWT-ADDRESS OF ECHO DEVICE L & P LD A3,DWTADR,A4 GET ADDRESS BLOCK L 6 P LD A3,ABTADR,A3 GET
0x23feac…240040 Dummy {f00=0x00b1, f01=0x40b2, f02=» DEVICE L j . P LDKL A5,DWTSB2 STACK BASE 2 DISPLACEMENT M P ADR A5,A6 ADD DWT-ADDRESS M B P* M d 0 P ABR A3 JUMP TO ABORT ROUTINE OF ECHO DEVICE M n P END M @ M OF ECHO DEVICE L & P LD A3,DWTADR,A4 GET ADDRESS BLOCK L 6 P LD A3,ABTADR,A3 GET
0x240040…2401d4 (1, 573) Dummy {f00=0x00b1, f01=0x2008, f02=» N #e DRKB04SC &8 & EGE LM ! 9 q 1 y q A ) Y ) ) YQ. !CTOR INPUT TAPE:; BLOCK f:; <m !! KB04SC q m 10 z
0x2401d4…240368 Dummy {f00=0x00b1, f01=0x0012, f02=» ( 0 8 ( 8 @ H
0x240368…2404fc Dummy {f00=0x00b1, f01=0x0190, f02=»9 Ed t Z : : @
0x2404fc…240690 Dummy {f00=0x00b1, f01=0x0190, f02=» _ A :U A @ D D A A 4 @ ~ A r A ~ @ A F A @ A V A @ A b A @
0x240690…240824 Dummy {f00=0x00b1, f01=0x0190, f02=» $ ( , 0 4 8 < 2 _ | S A _ @ T
0x240824…2409b8 Dummy {f00=0x00b1, f01=0x0190, f02=» 8 / H M Q R S T J Y V G P : H L " V P I U _v A ~_ NO! A A A A A A A A *T A _ P A A . < , L + - ; # d $ j : X " H W* X " H H A W W L
0x2409b8…240b4c Dummy {f00=0x00b1, f01=0x0190, f02=» " ? F > " @ @ T " ( ^ @ P A A " @ 6T @ W @ A W W 0 _, W W Pf @ & 0 T* A P P V W _x
0x240b4c…240ce0 Dummy {f00=0x00b1, f01=0x0190, f02=» ~ A | 6 ;a ]@ 1 6 _L W @ $ 0 W 6 A W @ A P 3P C @ P @ @ P @ Q A 6 @ A " T @ W @ A P A 6P ~ @ _2 ~ 6T < 0
0x240ce0…240e74 (1, 574) Opaque[0x194]
0x240e74…241008 # DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1630, f03=0x0000}
0x240e74…241008 IdxSect {
0x240e74…241008 f00 = 0x00b1 // 0x240e74 @0x0
0x240e74…241008 f01 = 0x0008 // 0x240e76 @0x2
0x240e74…241008 gno = [ // 0x240e78 @0x4
0x240e74…241008 [0x00]: C0x00b1.0x2.0
0x240e74…241008 [0x01]: C0x00b1.0x3.0
0x240e74…241008 [0x02]: C0x00b2.0x0.0
0x240e74…241008 [0x03]: C0x00b2.0x1.0
0x240e74…241008 ]
0x240e74…241008 }
0x241008…24119c Dummy {f00=0x00b1, f01=0x0190, f02=» 2 P IDENT DRLP01 REL 11.0 81-01-26 870105041100 P : 8 P =1,WHEN CHAN=1 DRIVER WILL SERVE BOTH MUX AND PC B P REL 10.0 80-03-14 ~ P* P* > P********************************************************** P* $ P* PHILIPS TE
0x24119c…241330 Dummy {f00=0x00b1, f01=0x0190, f02=»********************************************************** P* B P* L @ P* THIS DRIVER HANDLES ONE LINE PRINTER PTS 6881 CONNECTED V < P* TO CPU VIA CHLP ON MULTIPLEX CHANNEL OR PROGRAMMED P* CHANNEL P* P EJECT DRLP01
0x241330…2414c4 Dummy {f00=0x00b1, f01=0x0190, f02=» P ENTRY LPADR ADDRESS BLOCK " P ENTRY ACLP ACTIVATION DRIVER * " P ENTRY IHLP INTERRUPT HANDLER P P ENTRY LPON RECOVERY ROUTINE v & P ENTRY DWLP01 DWT FOR LINE PRINTER P P P P* P* , P************************
0x2414c4…241658 Dummy {f00=0x00b1, f01=0x0190, f02=» P EXTRN TDISP DISPATCHER P EXTRN TENDIO END I/O $ & P EXTRN SAVE8 SAVE 8 REGS ON STACK B P EXTRN DISIOE REQUEST ERROR l EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX A
0x241658…2417ec Dummy {f00=0x00b1, f01=0x018e, f02=»K BASE 2 IN DWT ~ * P EXTRN INTSAV SAVE AREA LAST INTERRUPT * P EXTRN PFPOST PWF POST PROCESSING FLAG F P EJECT DRLP01 t P* P* " P***************************** " P* CONSTANTS * " P****************************
0x2417ec…241980 Dummy {f00=0x00b1, f01=0x0190, f02=» P* . P***************************************** P* @ P* CONDITIONAL ASSEMBLY J P* h . P***************************************** r P* 0 P* IF X:A=0 THE DRIVER WILL ONLY SERVE MUX =1 8 P* IF X:A=1 THE DRIVER WILL SERVE BOTH
0x241980…241b14 (1, 575) Dummy {f00=0x00b1, f01=0x0190, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 0 2 P* F P* P 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION Z . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P* MMU BUFFER SIZE
0x241b14…241ca8 Dummy {f00=0x00b1, f01=0x0190, f02=»E PRINTER DEVICE INDEX ~ P* P EJECT DRLP01 ( P* @ P* J P*********************** T P* ORDERS * t P*********************** P* P* ORDER /00: TEST STATUS. 8 P* A TST INSTRUCTION IS E
0x241ca8…241e3c Dummy {f00=0x00b1, f01=0x018e, f02=» THE REQUESTED NUMBER OF CHARACTERS ARE @ P* SENT TO THE LINE PRINTER WITHOUT ANY CHECK. 8 P* | $ P* ORDER /06: STANDARD WRITE. @ P* FIRST WORD IN ECB BUFFER CONTAINS A CONTROL P* CHARAC
0x241e3c…241fd0 Dummy {f00=0x00b1, f01=0x0190, f02=» < P* /31: SKIP TO TOP OF FORM BEFORE PRINTING > P* OTHER CHARACTERS GIVES A LINE FEED BEFORE D P* PRINTING. P* P* > P* CHARACTERS IN BUFFER SHOULD BE WITHIN THE > P*
0x241fd0…242164 Dummy {f00=0x00b1, f01=0x0190, f02=» MUST BE RESERVED FOR THE DRIVER TO STORE A $ P* PRINT CHARACTER. 8 P* ` P EJECT DRLP01 j P* P* ( P************************************ ( P* NORMAL REGISTER USAGE * ( P**************************
0x242164…2422f8 Dummy {f00=0x00b1, f01=0x0190, f02=» A4 = BUFFER ADDRESS P* A5 = STACK BASE P* A6 = DWT ADDRESS 8 P* A7 = ORDER V P* A8 = ECB ADDRESS n P* P* $ P******************************** $ P* TABLES * $ P************************
0x2422f8…24248c Dummy {f00=0x00b1, f01=0x018e, f02=»VATION DRIVER | " P DATA 0 ABORT ROUTINE ADDRESS P* < P EJECT DRLP01 F P* ^ P* h P* A C T I V A T I O N r P* P* PACLP EQU * P LDK A1,/0D CARRIAGE RETURN P LDR A7,A7 ORDER 0 ? P RF(NE) ACLP05 N
0x24248c…242620 Dummy {f00=0x00b1, f01=0x0190, f02=» P RF ACLP30 P* $ PACLP05 LD A4,2,A8 BUFFER ADDRESS P LD A2,4,A8 REQ. LENGTH H P SUK A7,5 ORDER 5 ? h P RF(E) ACLP30 P SUK A7,1 ORDER 6 ? P RF(E) ACLP10 P* PACERR ABL DISIOE P* P EJECT DRLP01
0x242620…2427b4 (1, 576) Dummy {f00=0x00b2, f01=0x0190, f02=»NS AS FOR REQ. LENGTH=2 v P* PACLP12 EQU * * P LDR A3,A4 BUFFER ADDRESS > & P ADR A3,A2 ADDED WITH REQ. LENGTH ` $ P SCR A1,A3 STORE PRINT CHARACTER P ADK A2,1 P LCR A3,A4 P ECR A3,A3 & P LC A3,1,A4 GET CONTROL CHARACTE
0x2427b4…242948 Dummy {f00=0x00b2, f01=0x0190, f02=»T REQ. LENGTH ~ & P ADK A4,2 INCREMENT BUFFER ADDRESS P RF ACLP30 @ P* R PACLP15 LDK A1,/0A LINE FEED * P SC A1,1,A4 SECOND CHARACTER IN BUFFER P SUK A3,5 TWO LINE FEEDS ? P RF(E) ACLP20 YES P LDK A1,/0C TOP OF FORM
0x242948…242adc Dummy {f00=0x00b2, f01=0x0190, f02=» 4 PACLP20 SCR A1,A4 STORE FIRST CHARACTER IN BUFFER $ PACLP30 CF A5,CIOSTA SEND BUFFER @ P SUK A7,6 ORDER 6 ? h P RF(NE) ENDIO P LDR A2,A2 P RF(NN) ACLP35 4 P IM 6,A8 ADD FOR EXTRA CHAR. AT BUFFER END (/0D) P* PACLP
0x242adc…242c70 Dummy {f00=0x00b2, f01=0x0190, f02=» b P ECR A3,A3 $ P SCR A3,A4 ALSO RESET FIRST BYTE P* B $ PENDIO CF A15,TENDIO END REQUEST L PEXIT ABL TDISP t P* P EJECT DRLP01 P* P* P* CIOSTA " P* SUBROUTINE TO SEND BUFFER P* P*
0x242c70…242e04 Dummy {f00=0x00b2, f01=0x0190, f02=»,A6 END OF BUFFER INDICATOR =1 & P ST A4,DWTA4,A6 BUFFER POINTER =1 & P XIF =1 P 6 P ORKL A2,/4000 INDICATE CHARACTER MODE, OUTPUT AND b P IN RIGHT BYTE NUMBER OF P CHARACTERS TO SEND 0 P WER A2,MUXLP FIRST WRITE EXTERNAL REGISTER
0x242e04…242f98 Dummy {f00=0x00b2, f01=0x0190, f02=»2,1,DWALP CIO START P RB(Z) EXIT P LDK A1,1 ERROR 0 P RB ENDIO H P* Z P EJECT DRLP01 d P* | P* P* RECOVERY ROUTINE P* P* PLPON EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON ST
0x242f98…24312c Dummy {f00=0x00b2, f01=0x0190, f02=»LE | P LDKL A6,DWLP01 DWT ADDRESS P LD A2,DWTST,A6 DWT STATUS . P RB(N) EXIT LP FREE P P RF IHLP30 l P* ~ P EJECT DRLP01 P* P* P* I N T E R R U P T P* P* PIHLP EQU * $ P ST P,INTSAV SAV
0x24312c…2432c0 Dummy {f00=0x00b2, f01=0x018e, f02=» A2,DWTA4,A1 NEXT BYTE TO PRINT =1 " P OTR A2,0,DWALP WRITE ONE BYTE * P RF(NA) IHLP20 NOT ACCEPTED P , P IM DWTA4,A1 INCREMENT BUFFER POINTER =1 t 6 P IM DWTA3,A1 INCREMENT END OF BUFFER INDICATOR =1 " P RF(N) IHLP10 NOT LAST BYTE =1 P CIO
0x2432c0…243454 (1, 577) Dummy {f00=0x00b2, f01=0x0190, f02=» P* PIHLP20 EQU * =1 P LDR* A2,A15 =1 & P LDR* A1,A15 =1 > P XIF V P* b P IFT CPU852=1 =1 l ( P CF A15,SAVE8 SAVE A1-A8 ON STACK =1 P XIF =1 P* P IFT CPU852=0 =1 & P MSR 8,A15 SAVE A1-A8 ON STACK =
0x243454…2435e8 Dummy {f00=0x00b2, f01=0x0190, f02=» LD A7,DWTOR,A6 ORDER P ANK A7,/FF P LD A8,DWTECB,A6 ECB ADDRESS 2 P* V P LD A2,4,A8 =1 ` " P ST A2,6,A8 STORE EFF. LENGTH x $ P LD A5,DWTA5,A6 GET STACK VALUE P RTN A5 P* P EJECT DRLP01 P* P* D
0x2435e8…24377c Dummy {f00=0x00b2, f01=0x0190, f02=» P DATA /8000 STATUS P DATA 0 ECB ADDRESS P DATA 0 ORDER : ( P DATA LPADR ADDRESS TO ADDRESS BLOCK P P DATA 0 TTAB ADDRESS | $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA US
0x24377c…243910 Dummy {f00=0x00b2, f01=0x4108, f02=» DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT STACK @ P* X P IFT MMUPAG=1 b PDEVECB EQU * x P DATA 0 P DATA LP:BUF P DATA 0,0,0,0 PLP:BUF RES DVBLEN+1 P XIF P* P END @
0x243910…243aa4 Dummy {f00=0x00b2, f01=0x2008, f02=» P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR ( P DATA 0 TERMINAL QUEUE P P DATA 0 OUTPUT QUEUE LINK n 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-STACK P
0x243aa4…243c38 Dummy {f00=0x00b2, f01=0x0190, f02=»WTWHA,A4 P IM DWTCOP,A6 NEXT HEAD P ADK A4,4 0 P LDR A1,A4 B P SUR A1,A6 T P SUK A1,DWTCOP-DWTWHA f P RB(L) FOR:60 NEXT HEAD P LDKL A1,/800 INTERUPT BIT P ORS A1,DWTWHA+16,A6 $ P CF A5,HOMEAD WRITE SECTOR MARKS
0x243c38…243dcc Dummy {f00=0x00b2, f01=0x0190, f02=») FOR:10 NEXT CYLINDER P LDKL A2,MAXCYL-1 821 P IFT NUNITS=1 < $ P ST A2,DWTCYL,A6 CYLINDER NUMBER R P XIF z P IFT NUNITS=2 P CF A15,INXDWT $ P ST A2,DWTCYL,A4 CYLINDER NUMBER P XIF P RB DENDIO PERFORM ENDIO P*
0x243dcc…243f60 Dummy {f00=0x00b2, f01=0x0190, f02=» * n 0 ,* INPUT ECB-PARAMETER CHECK * 0 ,* * F 0 ,******************************************** z * * PCD:000 EQU * P LDK A7,5 INDICATE WRITE PCD:010 EQU * &
0x243f60…2440f4 (1, 578) Opaque[0x194]
0x2440f4…244288 # DirEnt {nam=»DRMD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1650, f03=0x0000}
0x2440f4…244288 IdxSect {
0x2440f4…244288 f00 = 0x00b2 // 0x2440f4 @0x0
0x2440f4…244288 f01 = 0x000e // 0x2440f6 @0x2
0x2440f4…244288 gno = [ // 0x2440f8 @0x4
0x2440f4…244288 [0x00]: C0x00b2.0x2.0
0x2440f4…244288 [0x01]: C0x00b2.0x3.0
0x2440f4…244288 [0x02]: C0x00b3.0x0.0
0x2440f4…244288 [0x03]: C0x00b3.0x1.0
0x2440f4…244288 [0x04]: C0x00b3.0x2.0
0x2440f4…244288 [0x05]: C0x00b3.0x3.0
0x2440f4…244288 [0x06]: C0x00b4.0x0.0
0x2440f4…244288 ]
0x2440f4…244288 }
0x244288…24441c Dummy {f00=0x00b2, f01=0x0190, f02=» 2 P IDENT DRMD01 REL 11.0 81-01-26 870105041100 P : < P =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY B P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P*
0x24441c…2445b0 Dummy {f00=0x00b2, f01=0x0190, f02=»* 6 P************************************************** P* D P* N 0 P* THIS DISC DRIVER HANDLES UP TO FOUR DISC X . P* DRIVES X1250 CONNECTED TO CPU VIA IOP P* ON MULTIPLEX CHANNEL P* P* * P* THE FOLLOWING ORDE
0x2445b0…244744 Dummy {f00=0x00b2, f01=0x0190, f02=»HYSICAL READ P* /15 PHYSICAL WRITE P* /1F FORMAT VOLUME 6 P* V P EJECT DRMD01 DRMD01 ` P* P* P*********** P* ENTRIES * P*********** P* P* $ P ENTRY MDADR ACTIVATION ADDRESS
0x244744…2448d8 Dummy {f00=0x00b2, f01=0x0190, f02=»* P* P************* P* EXTERNALS * * P************* @ P* V P* ` P EXTRN TDISP DISPATCHER j P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK P EXTRN DISIOE REQUEST ERROR P EXTRN VOL
0x2448d8…244a6c Dummy {f00=0x00b2, f01=0x0190, f02=»NIFLG INITIALIZATION FLAG & P EXTRN PFPOST PWF POST PROC. FLAG " . P EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS L P EXTRN SETIMP TIMER ~ EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER EXTRN D
0x244a6c…244c00 Dummy {f00=0x00b2, f01=0x018e, f02=» EXTRN DWTSB2 STACK BASE 2 IN DWT " P EXTRN DWTORD ORDER SAVE AREA * $ P EXTRN DWTVOL VOLUME NAME AREAS P $ P EXTRN ECBBA ECB BUFFER ADDRESS x & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RET
0x244c00…244d94 (1, 579) Dummy {f00=0x00b2, f01=0x0190, f02=» P* P************************** P* * 0 P* CONDITIONAL ASSEMBLY * R P* * t P************************** P* P* 6 P* READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 P*
0x244d94…244f28 Dummy {f00=0x00b2, f01=0x0190, f02=»ING h , P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* < PMMUPAG EQU 0 F P* Z PCPU852 EQU 1 d P EJECT DRMD01 DRMD01 x P* P* P************* P* CONSTANTS * P************* P* P* & PCUADR
0x244f28…2450bc Dummy {f00=0x00b2, f01=0x0190, f02=»DAMD3 EQU CUADR+/20 DEVICE ADDRESS UNIT 3 . PDAMD4 EQU CUADR+/30 DEVICE ADDRESS UNIT 4 2 & PWERAD EQU CUADR+CUADR MUX ADDRESS d P* & PMAXSEC EQU 23400 MAX NO OF SECTORS , PSECLEN EQU 256 SECTOR LENGTH, CHARACTERS PQRETRY EQU 4 NO OF RET
0x2450bc…245250 Dummy {f00=0x00b2, f01=0x0190, f02=» $ P DATA 0 INDICATES NO MMU BUFFER " P DATA DEVIND DISC DEVICE INDEX , & PMDADR DATA MDAD ACTIVATION ADDRESS R " P DATA 0 ABORT ROUTINE ADDRESS | P* P EJECT DRMD01 P* P* P*********************** P*
0x245250…2453e4 Dummy {f00=0x00b2, f01=0x0190, f02=» EQU * ( P DATA /0004,/080C,/1014,/181C,/2024 ( P DATA /282C,/3001,/0509,/0D11,/1519 : ( P DATA /1D21,/2529,/2D31,/0206,/0A0E f ( P DATA /1216,/1A1E,/2226,/2A2E,/3203 ( P DATA /070B,/0F13,/171B,/1F23,/272B P DATA /2F33 * P
0x2453e4…245578 Dummy {f00=0x00b2, f01=0x0190, f02=»******** * P* PMDAD EQU * $ 6 P LD A1,DWTOR,A6 SAVE INDEX AND ORDER FOR RECOVERY 6 P ST A1,DWTORD,A6 p P CF A15,INXDWT & P LD A1,DWTCYL,A4 ACTUALL CYLINDER P ST A1,DWTSEK,A6 PMDAD:0 EQU * $ P CM DWTIOR,A6 PREPAR
0x245578…24570c Dummy {f00=0x00b2, f01=0x0190, f02=»WER INSTR. p P XIF P IFT MMUPAG=0 . P LDKL A3,/8080 PREPARE FOR 1:ST WER INSTR. 4 P XIF f LDR A1,A7 GET ORDER r RF(Z) TESTST TEST STATUS SUK A1,/01 P RF(Z) INI:01 BASIC READ SUK A1,/04 P RF(Z) INI:00 BA
0x24570c…2458a0 Dummy {f00=0x00b2, f01=0x0190, f02=»1,/0A P RF(Z) FORVOL FORMAT VOLUME ABL DISIOE INCORRECT ORDER 2 * V P EJECT DRMD01 ` * v * * ***************** * * * TEST STATUS * * * ************
0x2458a0…245a34 (1, 580) Dummy {f00=0x00b3, f01=0x0190, f02=» P LDK A1,0 RESET RETURN CODE P ABL END:20 ( * < P EJECT DRMD01 F P* " P***************************** f " P* * " P* FORMAT VOLUME * " P* * " P**********
0x245a34…245bc8 Dummy {f00=0x00b3, f01=0x018e, f02=»E l P ST A3,DWTSEK,A6 P LDK A3,2 ORDER CODE " P ST A3,DWTSEN,A6 > PFORV20 EQU * V P CF A5,CIO:00 j P ANK A1,2 P RF(NZ) FORV50 SEEK ERROR P LD A3,DWTSEK,A6 HEAD 1 P CF A5,CIO:00 P ANK A1,2 P RF(NZ) FORV
0x245bc8…245d5c Dummy {f00=0x00b3, f01=0x0190, f02=» ~ P CWK A3,920 4*230 P RB(NG) FORV20 " 0 P LDKL A2,923 CYLINDER NUMBER AND SEEK ORDER 8 PFORV40 EQU * l P ABL END:15 PFORV50 EQU * P SUK A4,1 P RB(NN) FORV10 RETRY 2 P LDK A2,0 DUMMY CYLINDER NUMBER AND ORDER CODE
0x245d5c…245ef0 Dummy {f00=0x00b3, f01=0x0190, f02=»* t " * TEST OF INPUT PARAMETERS * " * ECBRL,ECBCW1 AND ECBCW2 * 0 " * * V " ***************************** | * * PINI:00 EQU * P IM DWTIOR,A6 WRITE ORDER " P ADKL A3,/4000 WER INSTRUCTI
0x245ef0…246084 Dummy {f00=0x00b3, f01=0x0190, f02=»NCLEN ERROR $ ECR A3,A1 GET NUMBER OF SECTORS ANK A1,/FF < . P RF(NZ) INCLEN INCORRECT REQUESTED LENGTH P & " LD A2,ECBCW2,A8 GET SECTOR NUMBER P RF(N) INCLEN * P NGR A1,A3 NEGATE FOR SECTOR COUNTING , P ST A1,DWTSEN,A6 NUMBER
0x246084…246218 Dummy {f00=0x00b3, f01=0x0190, f02=» SUKL A3,MAXSEC P RF(NP) INI:20 * %INCLEN LDKL A1,/8008 INCORRECT LENGTH 2 P ABL END:15 ` * t P EJECT DRMD01 ~ * * ( #*********************************** * ( #* TRANSFER LOGICAL SECTOR NUMBER * (
0x246218…2463ac Dummy {f00=0x00b3, f01=0x018e, f02=»********************************* * * * 4 PINI:20 EQU * > & P LD A1,ECBBA,A8 GET BUFFER ADDRESS R 8 P ST A1,DWTWE2,A6 PREPARE FOR SECOND WER INSTRUCTION | P LDK A1,0 PINI:22 EQU * P LDK A4,QRETRY DVK 104 0 +* A
0x2463ac…246540 Dummy {f00=0x00b3, f01=0x0190, f02=» P EJECT DRMD01 P* P* ( * P SLL A2,2 CYLINDER NUMBER IN POSITION 2 P ADK A2,3 SEEK ORDER CODE ` * P CW A2,DWTSEK,A6 TEST IF SAME CYLINDER P RF(E) INI:35 PINI:30 EQU * * P IM DWTSFL,A6 INDICATE SEEK TO BE DONE 4 P
0x246540…2466d4 (1, 581) Dummy {f00=0x00b3, f01=0x0190, f02=» P* PINI:35 EQU * P LDK A3,0 HEAD NO 0 " , P CWK A1,52 SECTOR ON 1:ST OR 2:ND TRACK > P RF(L) INI:40 n P SUK A1,52 P LDKL A3,/4000 HEAD NO 1 P* P* 8 P* GET PHYSICAL SECTOR NUMBER AND PREPARE DWTIOR,A6 P*
0x2466d4…246868 Dummy {f00=0x00b3, f01=0x018e, f02=» l ( P SUK A1,26 SKEW FACTOR = 26 SECTORS P RF(NN) INI:42 4 P ADK A1,52 J PINI:42 EQU * $ P SLL A1,2 SECTOR NO IN POSITION p P ADR A1,A3 HEAD NUMBER 4 P ORS A1,DWTIOR,A6 SAVE IN CIO REGISTER SAVE AREA & P LD A1,DWTSFL,A6 SEEK TO B
0x246868…2469fc Dummy {f00=0x00b3, f01=0x0190, f02=» v P ADK A1,0 P RF(Z) INI:44 NO RETURN CODE $ P LDKL A2,/100 RETRIES PERFORMED > P ORS A2,ECBRC,A8 f P SUK A4,1 ~ P RB(NZ) INI:43 RETRY * P LDK A2,0 DUMMY CYL NO AND ORDER CODE P RF END:15 NO MORE RETRIES PINI:44 EQU *
0x2469fc…246b90 Dummy {f00=0x00b3, f01=0x0190, f02=»ERFORM IO P ADK A1,0 CHECK RETURN CODE P RF(Z) INI:50 OK 6 P LDKL A2,/100 RETRIES DONE N P ORS A2,ECBRC,A8 p P SUK A4,1 RETRY COUNTER P RB(NZ) INI:45 RETRY P RF END:15 P* P EJECT DRMD01 P* P*
0x246b90…246d24 Dummy {f00=0x00b3, f01=0x0190, f02=»SAVE ORDER TYPE ~ P IFT RAW=1 P SUK A7,/15 * & P RF(NZ) INI:52 NOT PHYSICAL WRITE > * P LD A2,DWTIOR,A6 CHECK IF READ IS DONE h P RF(NZ) INI:54 4 P LDK A4,0 SAME BUFFER FOR READ AFTER WRITE TEST PINI:52 EQU * P XIF , P ADS
0x246d24…246eb8 Dummy {f00=0x00b3, f01=0x0190, f02=»NE t P* P IFT MMUPAG=0 , P ADS A4,DWTWE2,A6 UPDATE BUFFER ADDRESS * P XIF Z P* f P IFT MMUPAG=1 p P ADK A4,0 & P RF(Z) INI:60 READ AFTER WRITE ON & P ML 2,DWTWE1,A6 GET WER REGISTERS 4 P SLC A1,4 BIT 0,1 OF BUFFER
0x246eb8…24704c Dummy {f00=0x00b3, f01=0x0190, f02=» DRMD01 P* P* P ANK A1,3 BIT 0,1 $ P ANKL A3,/FFFC > P ORR A1,A3 1ST WER T P SRC A1,4 IN POSITION n P SLL A2,1 P MS 2,DWTWE1,A6 PINI:60 EQU * P XIF P* P LDK A4,QRETRY RETRIES 2 P IM DWTSEC
0x24704c…2471e0 Dummy {f00=0x00b3, f01=0x0190, f02=» CWK A1,104 NEXT CYLINDER ? P RB(L) INI:35 SAME CYLINDER $ P CM DWTSEC,A6 NEW CYLINDER H P LDK A1,0 SECTOR 0 j P ADK A2,4 NEXT CYLINDER , P RB INI:30 IO ON SEC. 0 ON NEXT CYLINDER P EJECT DRMD01 * * *
0x2471e0…247374 (1, 582) Dummy {f00=0x00b3, f01=0x0190, f02=» | ******************** * $ PSEEK EQU * . P LD A3,DWTSEK,A6 @ P RF CIO:00 X * j CIO EQU * t , P LD A3,DWTWE1,A6 GET 1ST WER INST. REG. P WER A3,WERAD , P LD A3,DWTWE2,A6 GET 2ND WER INST. REG. P WER A3,WERA
0x247374…247508 Dummy {f00=0x00b3, f01=0x0190, f02=») CIOAB PWF POST PROCESSING ON P CF A15,INXDWT & P EX DWTCIO,A4 < LDK A1,1 R $ P RF(3) END:30 CU ADDRESS UNKNOWN d PCIOAB EQU * ST A5,DWTA5,A6 P RF T:DISP P* P EJECT DRMD01 P* P* PEND:00 EQU
0x247508…24769c Dummy {f00=0x00b3, f01=0x0190, f02=»2,1 ( P RF(Z) END:10 READ AFTER WRITE DONE P LDKL A1,/8001 8 0 P ST A1,DWTWE1,A6 READ ONE WORD TO CHECK CRC N $ P LDKL A1,BUFF DRIVER WORK BUFFER 0 P ST A1,DWTWE2,A6 BUFFER ADDRESS TO 2:ND WER P CM DWTIOR,A6 , P LD A1,BUFF GET NUMB
0x24769c…247830 Dummy {f00=0x00b3, f01=0x0190, f02=»NI:22 P XIF ! PEND:10 EQU * ! . P LD A2,DWTSEK,A6 GET CYL NO AND ORDER CODE ! . PEND:15 EQU * ! ` P CF A15,INXDWT ! t P ST A2,DWTCYL,A4 ! PEND:20 EQU * ! P CF A15,TENDIO PERFORM ENDIO ! PT:DISP ABL TDISP ! P* ! ( PEND:30 EQU *
0x247830…2479c4 Dummy {f00=0x00b3, f01=0x0190, f02=»* ! P* " PVO:NAM EQU * " . P CM DWTSAV,A6 INDICATE VOLUME NAME READING " ( P LDK A1,6 " Z P CF A15,VOLCLR " l P LDK A1,3 " , P ST A1,DWTSEK,A6 SEEK PREPARATION CYL 0 " P CF A5,SEEK " P LDK A2,0 " P ANK A1,/3 RETURN CODE " P
0x2479c4…247b58 Dummy {f00=0x00b3, f01=0x0190, f02=»DDRESS TO DWT VOLUME NAME " | P ST A1,DWTWE2,A6 READ TO DWT # " P CM DWTIOR,A6 READ SECTOR 0 # F P CF A5,CIO # j P LD A2,DWTSEK,A6 # | PVO:NA8 EQU * # P CF A15,INXDWT # P ST A2,DWTCYL,A4 # P LDKL A2,-1 # $ P ST A2,DWTSAV,A6 INDICATE READ
0x247b58…247cec Dummy {f00=0x00b3, f01=0x0190, f02=»ERY ROUTINE * # P* * $ P********************** $ 4 P* $ R PMDON EQU * $ P IFT CPU852=0 $ n " P MSR 8,A15 SAVE A1-A8 ON STACK $ P XIF $ P IFT CPU852=1 $ P CF A15,SAVE8 $ P XIF $ P LDKL A6,DWMD01 $ 4 P L
0x247cec…247e80 Dummy {f00=0x00b3, f01=0x0190, f02=»* $ ( P LDKL A4,TIMER TIMER POINTER ADDRESS % P LDR* A3,A4 % 6 " P RF(Z) MDON10 NO TIMER ACTIVE % J P LDKL A1,-TIME % p P STR A1,A3 RESTART TIMER % P RB T:DISP % P* % $ PMDON10 CF A15,SETIMP START TIMER % , P DATA MDON20,TIME TIME OUT ADD
0x247e80…248014 (1, 583) Dummy {f00=0x00b3, f01=0x0190, f02=»JECT DRMD01 % P* & P* & PMDON25 EQU * & * P LDKL A5,DWTSB2 STACK BASE & > P ADR A5,A6 & ` P LDK A1,0 UNIT 0 & r PMDON30 ST A1,DWTOR,A6 & " P CF A5,VO:NAM GET VOLUME NAME & P LD A1,DWTOR,A6 & P ADKL A1,/100 NEXT UNIT & P C
0x248014…2481a8 Dummy {f00=0x00b3, f01=0x0190, f02=»ND:15 NOREQUEST ON & P* ' P LD A7,DWTORD,A6 GET ORDER ' $ , P ST A7,DWTOR,A6 RESTORE INDEX AND ORDER ' F P ANK A7,/3F ' v P ABL MDAD:0 ' P* ' P* ' P EJECT DRMD01 DRMD01 ' P* ' P* ' P*********************** ' P*
0x2481a8…24833c Dummy {f00=0x00b3, f01=0x018e, f02=»* ' PIHMD EQU * ( " P MSR 8,A15 SAVE A1-A8 ON STACK ( P LDKL A6,DWMD01 DWT ADDRESS ( B P* ( f P SST A1,CUADR GET STATUS ( p " P ANKL A1,/617 MASK RETURN CODE ( P LDR A2,A1 ( P ANKL A2,/610 MOVE BITS ( P SRC A2,5 PROGRAM ERROR BIT (
0x24833c…2484d0 Dummy {f00=0x00b3, f01=0x018e, f02=» ( $ P ANKL A1,/8007 MASK RETURN CODE ) P LD A2,DWTSAV,A6 ) 0 P RF(NN) GET ) H P LDR A3,A1 ) P ANKL A3,/8001 ) n : P RB(NZ) END:15 DISC UNIT NOT OPERABLE OR REQUEST ERROR ) P* ) * PGET LD A5,DWTA5,A6 RELOAD REGISTERS A5 ) ( P LD A4,DWTA4,A
0x2484d0…248664 Dummy {f00=0x00b3, f01=0x0190, f02=» ) P* * P* TIMER POINTER * PTIMER DATA 0 TIMER POINTER * * P IFT RAW=1 * L P* BUFFER * ^ PBUFF DATA 0 * p P XIF * P* * P EJECT DRMD01 DRMD01 * P* * P* * * P* DEVICE WORK TABLE DISC UNIT NO. 1 * P* * P*
0x248664…2487f8 Dummy {f00=0x00b3, f01=0x0190, f02=»0 ORDER * " P DATA MDADR ACTIVATION ADDRESS + P DATA 0 TTAB ADDRESS + 6 $ P DATA 0 WAIT/ACTIVATE INDICATOR + R P DATA 0 TERMINAL QUEUE + z IFT MMUPAG=1 + & " DATA 0 SAVE AREA USER ECB ADDRESS + P DATA ECBMD1 MMU ECB ADDRESS + XIF + P
0x2487f8…24898c Dummy {f00=0x00b3, f01=0x0190, f02=» + P DATA 0 ORDER SAVE AREA , P DATA /C000 , ( P DATA /C000 , < P DATA /C000 , P P DATA /C000 , d . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1 , x . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 2 , . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 3 ,
0x24898c…248b20 Dummy {f00=0x00b3, f01=0x0190, f02=» *-DWMD01 , & P DATA 0 2:ND WER INSTRUCTION REG. - PDWTIOR EQU *-DWMD01 - < , P DATA 0 CIO REG: HEAD, DWTSEC,A6, ORDER - X PDWTSEK EQU *-DWMD01 - & P DATA 0 SEEK REG: CYL NO AND ORDER - PDWTSFL EQU *-DWMD01 - P DATA 0 SEEK FLAG - PDWTS
0x248b20…248cb4 (1, 584) Dummy {f00=0x00b4, f01=0x412e, f02=»2 UNIT 2 - P CIO A3,1,DAMD3 UNIT 3 . P CIO A3,1,DAMD4 UNIT 4 . . PDWTCYL EQU *-DWMD01 . L 0 P DATA 0 CYLINDER NUMBER AND SEEK ORDER CODE . h P DATA 0 . P DATA 0 . P DATA 0 . P IFT MMUPAG=1 . PECBMD1 EQU * . P DATA 0,0,0,0,0,0,
0x248cb4…248e48 Dummy {f00=0x00b4, f01=0x2008, f02=» / TORS DONE | *SUBTRRACT A3 FROM NOSEC RTN A5 : END J@ V ADK A2,1 NEXT HALFTRACK Z ADKL A3,/4034 z ANKL A3,/7FFF UPSEC7 EQU * & " ST A3,CIOREG CIO REGISTER UPDATED ( # LD A3,WER2ND GET 2:ND WER REGISTER
0x248e48…248fdc Dummy {f00=0x00b4, f01=0x018e, f02=» $ P* INTERTASK DRIVER BUFFER (MMU) P* 0 PIT:BUF EQU * : P IFT MMUPAG=1 N P RES DVBLEN+1 MMU BUFFER d P XIF P* P EJECT DRIC01 P* P* A C T I V A T I O N P* P* ORDERS: P* P* /02
0x248fdc…249170 Dummy {f00=0x00b4, f01=0x018e, f02=» t P* A6 = DWT ADDRESS P* A7 = ORDER CODE " P* A8 = ECB ADDRESS < * P* A12= ADDRESS TO DRIVER ADDRESS BLOCK V P* PICAD EQU * P LDR A1,A7 ORDER CODE * P LD A7,ECBCW,A8 TASK ID OR TIME VALUE P SUK A1,/02 P RF(Z) R
0x249170…249304 Dummy {f00=0x00b4, f01=0x0190, f02=» r P* P EJECT DRIC01 P* * P* S E T T I M E O U T 4 P* V P ST A7,DWTIME,A6 ` P RF END:IO x P* P* REQUEST ERROR EXIT P* $ PDIS:OE ABL DISIOE REQUEST ERROR P* P EJECT DRIC01 P*
0x249304…249498 Dummy {f00=0x00b4, f01=0x0190, f02=»(Z) RD:NAD NOT-ADDRESSED READ REQUEST P* . P* WRITE REQUEST ENTRY 8 P* V 8 PWRITE EQU * CHECK IF ADDRESSED WRITE REQUEST OR NOT ` P ADK A7,0 CHECK ADDRESS MODE . P RF(Z) WR:NAD NOT-ADDRESSED WRITE REQUEST P* P EJECT DRI
0x249498…24962c Dummy {f00=0x00b4, f01=0x0190, f02=»DRESSED TASK | P* & P CF A15,FNDTID TTAB ADDRESS TO A2 P ADK A2,0 SET CR H P RB(Z) DIS:OE NOT FOUND ` 4 P ADKL A2,TTB:TD ADDRESS TO TERMINAL DEVICE TABLE P LDR* A1,A2 TABLE LENGTH $ P LDR A7,A12 DRIVER ADDRESS BLOCK 6 P XRK A7,
0x24962c…2497c0 Dummy {f00=0x00b4, f01=0x0190, f02=» 0 PITC:05 ADK A2,4 ADDRESS TO NEXT DWT ADDRESS P SUK A1,4 < P RB(N) DIS:OE NOT FOUND N P* n P LDR* A4,A2 DWT ADDRESS x " P CW A7,DWTADR,A4 SEARCHED DWT P RB(NE) ITC:05 NO, TRY NEXT P* P LDR A2,A4 P LD A1,DWT
0x2497c0…249954 (1, 585) Opaque[0x194]
0x249954…249ae8 # DirEnt {nam=»DRMS02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x249954…249ae8 IdxSect {
0x249954…249ae8 f00 = 0x00b4 // 0x249954 @0x0
0x249954…249ae8 f01 = 0x0012 // 0x249956 @0x2
0x249954…249ae8 gno = [ // 0x249958 @0x4
0x249954…249ae8 [0x00]: C0x00b4.0x1.0
0x249954…249ae8 [0x01]: C0x00b4.0x2.0
0x249954…249ae8 [0x02]: C0x00b4.0x3.0
0x249954…249ae8 [0x03]: C0x00b5.0x0.0
0x249954…249ae8 [0x04]: C0x00b5.0x1.0
0x249954…249ae8 [0x05]: C0x00b5.0x2.0
0x249954…249ae8 [0x06]: C0x00b5.0x3.0
0x249954…249ae8 [0x07]: C0x00b6.0x0.0
0x249954…249ae8 [0x08]: C0x00b6.0x1.0
0x249954…249ae8 ]
0x249954…249ae8 }
0x249ae8…249c7c Dummy {f00=0x00b4, f01=0x0190, f02=» 2 P IDENT DRMS02 REL 11.0 81-01-26 870105041100 P : P B P* J 6 P************************************************* T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRMS02 = DRIVER MAGNETIC STRIPE P* P*
0x249c7c…249e10 Dummy {f00=0x00b4, f01=0x0190, f02=»IS DRIVER HANDLES INPUT/OUTPUT ON THE D P* M A G N E T I C S T R I P E U N I T (M S U) PTS 6266. . > P* THE MSU MUST BE CONNECTED TO THE CPU VIA CHLT OR CHRT. v P* @ P* TRACK 2 AND 3 ON STRIPES CAN BE READ AND TRACK 3 CAN BE P*
0x249e10…249fa4 Dummy {f00=0x00b4, f01=0x0190, f02=»IS VERSION OF DRIVER h P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: & P* Z $ P* A C M S : ACTIVATION PART d $ P* ORDER PROCESSOR & P* I H M S : INTERRUPT HANDLER & P* O N M S : RECOVERY ROUTINE P
0x249fa4…24a138 Dummy {f00=0x00b4, f01=0x0190, f02=»READ P* /06 WRITE CARD WRITE $ P* /0A READ CARD RANDOM READ . P* /21 OPEN - V * P* /26 END OF OPERATION DSC0 CC=4 p $ P* /31 RESET CIRCULAR BUFFER $ P* /37 INSERT CARD DSC0 CC=0 P* P* * P* TH
0x24a138…24a2cc Dummy {f00=0x00b4, f01=0x0190, f02=»WRITE WARNING ~ " P* 12 INCORRECT LENGTH * P* 13 NEGATIVE ACKNOWLEDGEMENT < " P* 14 THROUGHPUT ERROR j P* 15 NOT OPERABLE P* P* P* NORMAL USE OF REGISTERS: P* " P* REGISTER A1 R
0x24a2cc…24a460 Dummy {f00=0x00b4, f01=0x0190, f02=»NTER t * P* A5 STACK BASE POINTER " P* A6 DWT ADDRESS : P* A7 ORDER ` " P* A8 ECB ADDRESS P* P EJECT DRMS02 P* P*********** P* ENTRIES * P***********
0x24a460…24a5f4 (1, 586) Dummy {f00=0x00b4, f01=0x0190, f02=»* EXTERNAL ROUTINES & P EXTRN LENDER I/O REQUEST ERROR =1 $ P EXTRN OUTPUT SEND CHARACTER =1 H P EXTRN LDISP DISPATCHER =1 p 0 P EXTRN NDGET8 RELOAD REGISTERS AND RETURN =1 P EXTRN TENDIO END I/O =1 2 P EXTRN GETCHR HET CHARACTER FROM E
0x24a5f4…24a788 Dummy {f00=0x00b4, f01=0x0190, f02=» EXTRN INPUT READ CHARCTER =1 P* & P* DWT DISPLACEMENTS 0 $ P EXTRN DWTST DWT SOFTWARE STATUS N P EXTRN DWTECB ECB-ADDRESS v P EXTRN DWTOR ORDER P EXTRN DWTSB2 STACK BASE P* P* ECB DISPLACEMENTS P EXTRN ECBBA B
0x24a788…24a91c Dummy {f00=0x00b4, f01=0x0190, f02=» ECBCW CONTROL WORD P* P EJECT DRMS02 & P* > P************************ H P* CONDITIONAL ASSEMBLY * h P************************ P* P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING M
0x24a91c…24aab0 Dummy {f00=0x00b4, f01=0x0190, f02=» OBTAINED BY SETTING CPU852 EQU 0. P* * PCPU852 EQU 1 4 P* H P* R P* MMU BUFFER SIZE (BYTES) P* PX:A EQU 108 PDVBLEN EQU X:A P* P* . PX:B EQU 10 LENGTH OF CIRCULAR INPUT BUFFER 2 PDWTLNG EQU X:B
0x24aab0…24ac44 Dummy {f00=0x00b4, f01=0x0190, f02=» P* $ P* MAGNETIC STRIPE CHARACTERS ( PCRWSTX EQU /3B CARD START CHARACTER 6 0 PCRDSTX EQU /3D START CHAR, GERMAN BOOK (DIN) b PCRWETX EQU /3F END CHARACTER P* " P* STATUS MESSAGES FROM MSU $ PDOCINS EQU /C DOCUMENT INSERTE
0x24ac44…24add8 Dummy {f00=0x00b4, f01=0x0190, f02=» x PWROK EQU /B WRITE OKAY P* & P* COMMANDS TO MSU 0 PRESET EQU 2 GENERAL RESET L ( PSELTRA EQU 6 SELECT TRACK 2 FOR READ n PENCTRA EQU 5 ENCODE TRACK 3 0 PREATRD EQU 8 READ TRACK 3 GERMAN BOOK (DIN) 2 PENCTRD EQU 9 ENCODE TR
0x24add8…24af6c Dummy {f00=0x00b4, f01=0x0190, f02=»N r P* P* MISCELLANEOUS " PRTRIES EQU 2 NUMBER OF RETRIES . P* T P EJECT DRMS02 ^ P* v P* RETURN CODES " PREQERR EQU /8000 REQUEST ERROR & PWARNRW EQU /20 READ/WRITE WARNING " PCARMIS EQU /2000 CARD MISSING
0x24af6c…24b100 Dummy {f00=0x00b4, f01=0x0190, f02=» EQU 1 NOT OPERABLE P* P EJECT DRMS02 & P* > P******************** H P* DWT-DISPLACEMENT * d P******************** P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTD
0x24b100…24b294 (1, 587) Dummy {f00=0x00b4, f01=0x018e, f02=»TER =1 x PDWTSEC EQU /4 @ PDWTFRT EQU /6 BIT 0 CREDIT CARD / GERMAN BANK BOOK FLAG =1 $ P BIT 1-7 NOT USED =1 h * P BIT 8-15 RETRY COUNTER SAVE AREA =1 & PDWTLRC EQU /8 LRC - ACKUMULATOR =1 * * CIRCULAR INPUT BUFFER
0x24b294…24b428 Dummy {f00=0x00b4, f01=0x018e, f02=» p ( PDWTEQ EQU DWTSQ+DWTLNG END OF BUFFER * 4 P EJECT DRMS02 > P* V P********** ` P* TABLES * r P********** P* P DATA DVBLEN MMU BUFFER SIZE P DATA 2 MMU DEVICE INDEX PMSAD EQU * P DATA ACMS ACTIVAT
0x24b428…24b5bc Dummy {f00=0x00b4, f01=0x0190, f02=» P* P* PTAB EQU * ORDER TABLE " P DATA /060A,/3726,/2102,/3100 6 & PTABL EQU *-TAB-1 NUMBER OF ENTRIES P* ( PMSFUN EQU * MAGNETIC STRIPE FUNCTION P DATA WRITE,READ,INSERT P DATA ENDOP,OPEN 6 P DATA RDPIN,RST READ
0x24b5bc…24b750 Dummy {f00=0x00b4, f01=0x0190, f02=»CKS VALIDITY OF ORDERS x 0 P* AND STARTS PROCESSING. P* R P* PACMS EQU * f " P LDK A1,0 RESET RETURN CODE =2 x P LDK A3,0 RESET BUFFER INDEX P LDK A4,TABL-1 0 PACMS10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER
0x24b750…24b8e4 Dummy {f00=0x00b4, f01=0x0190, f02=» =1 t P ABL LENDER REQUEST ERROR =1 P* 0 PACMS20 EQU * : P ADR A4,A4 GET INDEX N 2 P ABI MSFUN,A4 BRANCH TO VALID FUNCTION MODULE j P* P EJECT DRMS02 P* $ P******************************** P* P* R E A D
0x24b8e4…24ba78 Dummy {f00=0x00b4, f01=0x0190, f02=» = 0 p P RF(E) OPEN20 YES END I/O P LDR A3,A3 FIRST TIME . P RF(NE) RDP020 NO L " P LD A1,ECBBA,A8 BUFFER ADRESS f " P SUK A1,1 ADJUST BUFFER ADRESS P ADR A1,A2 END OF BUFFER PRDP010 EQU * P SCR A3,A1 CLEAR ECB BUFFER
0x24ba78…24bc0c Dummy {f00=0x00b4, f01=0x0190, f02=»ACTER ;CHECK IF OVERFLOW p P LCR A2,A1 GET CHARACTER P LDR A4,A2 @ P XRK A4,/FF OVERFLOW T P RF(NE) RDP030 NO p P SCR A4,A1 YES * P LDK A1,2 SET OVERFLOW IN RETURN CODE P RF ENDIO END I/O REQUEST PRDP030 EQU * . P CW
0x24bc0c…24bda0 Dummy {f00=0x00b4, f01=0x0190, f02=»P040 EQU * * P CF A15,EOQUEU SET NEW BUFFER POINTER * P ST A1,DWTDEV+DWTUTQ,A6 SET NEW BUFFER @ PRDP047 EQU * n & P CW A3,ECBRL,A8 REQ.LEN = EFF.LEN P RF(NL) RDP080 YES ; ERROR $ P LD A1,ECBCW,A8 KEY TABLE ADRESS P RF(Z) RDP060 NO
0x24bda0…24bf34 (1, 588) Dummy {f00=0x00b5, f01=0x0190, f02=» * P SUK A4,1 , P RF(N) RDP060 KEY NOT FOUND IN KEY TABLE P SUK A1,1 NEXT KEY L P CCR A2,A1 FOUND f P RB(NE) RDP050 NO ~ . P ADK A4,1 KEY FOUND ; MAKE KEY TABLE INDEX PRDP055 EQU * 0 P ST A4,ECBCW,A8 STORE INDEX IN CONTROL WOR
0x24bf34…24c0c8 Dummy {f00=0x00b5, f01=0x0190, f02=»RDP060 EQU * < P CWK A2,/0D NO KEY TABLE CHECK IF STANDARD END OF RECORD P RF(NE) RDP070 NOT EOR - KEY T ( P LDK A4,1 SET INDEX TO STANDARD EOR x P RB RDP055 END I/O PRDP070 EQU * 0 P CF A15,STORE STORE CHARACTER IN ECB BUFFER " P R
0x24c0c8…24c25c Dummy {f00=0x00b5, f01=0x0190, f02=»2 P* " P***************************** P* : " P* R S T CIRCULAR INPUT BUFFER D P* j & P********************************* t P* P* PRST EQU * P INH 2 P LD A2,DWTDEV+DWTINQ,A6 POINTER TO FIRST PLACE S
0x24c25c…24c3f0 Dummy {f00=0x00b5, f01=0x018e, f02=»JECT DRMS02 P* 6 P************************************************** P* Z P* OPEN /21 d P* x 2 P* THE DRIVER IS SET TO HANDLE EITHER CREDIT 6 P* CARDS/AMERICAN PASSBOOKS OR GERMAN PASSBOOKS. P* P* REGISTER I
0x24c3f0…24c584 Dummy {f00=0x00b5, f01=0x0190, f02=» P* POPEN EQU * P LD A2,ECBCW,A8 FORMAT CODE $ 2 P RF(NZ) OPEN10 NOT CREDIT CARD / AMERICAN BOOK H " P LDKL A2,/7FFF MASK FOR BIT 0 ~ : P ANS A2,DWTFRT+DWTDEV,A6 CLEAR FORMAT FLAG, INDICATING $ P* CREDIT CARD / AMERICAN BOOK
0x24c584…24c718 Dummy {f00=0x00b5, f01=0x0190, f02=» " P LDKL A2,/8000 MASK FOR BIT 0 . P ORS A2,DWTFRT+DWTDEV,A6 SET FORMAT FLAG, * P* INDICATING GERMAN BOOK P* ~ POPEN20 EQU * P LDK A1,0 RETURN CODE P RF ENDIO EXIT P* P EJECT DRMS02 P* 6 P************
0x24c718…24c8ac Dummy {f00=0x00b5, f01=0x0190, f02=»************************************ P* , PENDOP EQU * =2 6 P LDK A4,DOCESC =2 N P RF COMMON =2 h PINSERT EQU * =2 ~ P LDK A4,DOCINS =2 P CC A4,DWTDEV+1,A6 =2 . P RF(E) ENDIO DOCUMENT ALREADY INSERTED =2 PCOMMON E
0x24c8ac…24ca40 Dummy {f00=0x00b5, f01=0x0190, f02=»RESET GENERAL RESET P CF A5,OUTPUT SEND IT $ P RF(NZ) ERRMS1 ERROR END I/O =1 : P CF A5,ENDBLK END BLOCK =1 b $ P RF(NZ) ERRMS1 ERROR END I/O =1 P CC A4,DWTDEV+1,A6 =2 , P RF(E) ENDIO DOCUMENT ALREADY ESCAPED =2 * P CF A5,INPUT W
0x24ca40…24cbd4 (1, 589) Dummy {f00=0x00b5, f01=0x0190, f02=»-DOCINS =2 & P RF(E) COM100 DOCUMENT ESCAPED =2 & P LDK A1,THRERR THROUGHPUT ERROR =2 > PCOM100 EQU * =2 h 0 P SC A3,DWTDEV+1,A6 UPDATE DOCUMENT STATUS =2 P EJECT DRMS02 P* $ P* END OF INPUT/OUTPUT REQUEST P* P
0x24cbd4…24cd68 Dummy {f00=0x00b5, f01=0x0190, f02=»******************************** ~ P* ( P* READ CARD /0A 2 P* N 6 P************************************************** X P* PREAD EQU * " P LC A2,DWTDEV+1,A6 GET STATUS P ANK A2,/FF & P SUK A2,DOCINS DOCUMENT INSERTED
0x24cd68…24cefc Dummy {f00=0x00b5, f01=0x0190, f02=»K SIZE =1 | P CF A5,STABLK START BLOCK =1 $ P RF(NZ) ERRMS1 ERROR END I/O =1 6 P LDK A3,0 RESET BUFFER INDEX ^ ( P LD A2,DWTFRT+DWTDEV,A6 FORMAT CODE P RF(N) READ20 GERMAN BOOK P* P EJECT DRMS02 P* . P* READ CR
0x24cefc…24d090 Dummy {f00=0x00b5, f01=0x0190, f02=»1 P ABL(G) MSERR TRACK > 3 ! * P ADK A2,SELTRA COMPUTE TRACK TO SELECT ! * P* ! X 6 P CF A5,OUTPUT SEND READ TRACK COMMAND (/06 OR /07) ! b $ P RF(NZ) ERRMS1 ERROR END I/O =1 ! " P CF A5,ENDBLK END OF BLOCK =1 ! $ P RF(NZ) ERRMS1 ERROR END I/O =
0x24d090…24d224 Dummy {f00=0x00b5, f01=0x0190, f02=»RRECT LENGTH. EXIT ! t P* " P SUK A4,1 MORE RETRIES? " $ & P RB(NN) READ10 YES, PERFORM RETRY " D P RB ENDIO NO, EXIT " n P* " P EJECT DRMS02 " P* " PREAD20 EQU * " P* READ GERMAN PASSBOOK " P LDK A2,REATRD " 2 P CF A5,O
0x24d224…24d3b8 Dummy {f00=0x00b5, f01=0x018e, f02=»RMS1 EQU * ERROR END I/O =1 " $ P RF(NZ) ERRMS2 ERROR END I/O =1 # $ " P CF A5,REABLK READ FIRST BLOCK # L $ P CWK A1,INCLEN BUFFER OVERFLOW? # r P RB(E) ENDIO YES, EXIT # P* # 0 P SC A4,DWTFRT+DWTDEV+1,A6 SAVE RETRY COUNTER # P LDR A4,A1 SAVE RE
0x24d3b8…24d54c Dummy {f00=0x00b5, f01=0x018e, f02=» P CWR A1,A4 $ . P RF(E) READ30 BOTH BLOCKS OK OR BOTH WRONG $ P* $ H , P* ONE BLOCK WAS OK, ONE WAS ERRONEOUS $ R 4 P LDK A1,WARNRW RETURN CODE "READ/WRITE WARNING" $ * P RF READ40 CHECK IF MORE RETRIES LEFT $ P* $ PREAD30 EQU * $ 4 P*
0x24d54c…24d6e0 Dummy {f00=0x00b5, f01=0x0190, f02=» $ . P* CHECK IF MORE RETRIES SHOULD BE MADE % 0 P LC A4,DWTFRT+DWTDEV+1,A6 GET RETRY COUNTER % : P ANK A4,/FF CLEAN % n P SUK A4,1 MORE RETRIES? % & P RB(NN) READ10 YES, PERFORM RETRY % P RB ENDIO NO, EXIT % P* % P EJECT DRMS02 %
0x24d6e0…24d874 (1, 590) Dummy {f00=0x00b5, f01=0x0190, f02=»CK IS READ FROM THE MSU. READING % 0 P* IS TERMINATED WHEN READ ERROR MESSAGE IS & ( 0 P* RECIEVED, END CHARACTER IS READ OR INPUT & P* BUFFER IS FULL. & P* & P* REGISTER INPUT: & P* A3 = BYTE INDEX & " P* A5 = LOCAL STACK POINTE
0x24d874…24da08 Dummy {f00=0x00b5, f01=0x0190, f02=» & ~ P* A1 = RETURN CODE ' P* A3 = UPDATED BYTE INDEX ' & P* ' J 6 P************************************************** ' T P* ' PREABLK EQU * ' P CF A5,INPUT FETCH DATA ' P CWK A2,RDERR READ ERROR? ' P RF(E) RB100 YES, EXIT '
0x24da08…24db9c Dummy {f00=0x00b5, f01=0x0190, f02=»120 YES, EXIT ' P* ( P EJECT DRMS02 ( P* ( 8 & P CF A15,CDCHK CHECK IF LEGAL CHAR ( B $ P CF A15,STORE PUT CHAR IN BUFFER ( l P RB REABLK READ NEXT CHAR ( P* ( P* ( > P* BLOCK TREATED. SET RETURN CODE AND EFFECTIVE LENGTH. (
0x24db9c…24dd30 Dummy {f00=0x00b5, f01=0x0190, f02=» PRB110 EQU * ) P LDK A1,0 NORMAL ENDING ) P RF RB130 EXIT ) 8 P* ) N PRB120 EQU * ) X " P LDK A1,INCLEN BUFFER OVERFLOW ) l P* ) PRB130 EQU * ) , P ST A3,ECBEL,A8 EFFECTIVE LENGTH TO ECB ) P* ) PRB140 EQU * ) P RTN A5 )
0x24dd30…24dec4 Dummy {f00=0x00b5, f01=0x0190, f02=»06 ) ~ P* * 6 P************************************************** * P* * N PWRITE EQU * * X $ P LDK A4,RTRIES SET NO OF RTRIES * l " P LC A2,DWTDEV+1,A6 GET STATUS * P ANK A2,/FF * & P SUK A2,DOCINS DOCUMENT INSERTED? * P RF(E) WRIT05 YE
0x24dec4…24e058 Dummy {f00=0x00b5, f01=0x0190, f02=» CLEAR LRC-ACKUMULATOR * | P* + 8 P* TEST REQUESTED LENGTH AND GET START CHARACTER. + ( P* + d . P LDK A1,INCLEN SET ERROR CODE JUST IN CASE + n $ P LD A2,ECBRL,A8 REQUESTED LENGTH + , P LD A3,DWTFRT+DWTDEV,A6 FORMAT CODE FLAG + P RF(N) WRIT07 GE
0x24e058…24e1ec Dummy {f00=0x00b5, f01=0x0190, f02=»IO ERROR IF LENGTH > MAX + : P LDK A3,CRWSTX START CHAR CREDIT CARD / AMERICAN BOOK , P RF WRIT09 CONTINUE , ^ P* , z PWRIT07 EQU * , P* GERMAN PASSBOOK , P SUK A2,45 , & P RB(P) ENDIO ERROR IF LENGTH > MAX , * P LDK A3,CRDSTX START CHA
0x24e1ec…24e380 Dummy {f00=0x00b5, f01=0x018e, f02=» ERROR END I/O =1 , $ P RF(NZ) ERRMS EERROR END I/O =1 - P LDR A2,A3 =2 - B P LDK A3,0 RESET BUFFER INDEX - X P* - | PWRIT10 EQU * - 4 P XRS A2,DWTLRC+DWTDEV,A6 UPDATE LRC-ACKUMULATOR - P CF A5,OUTPUT SEND CHARACTER - " P RF(NZ) ERRMS ERRO
0x24e380…24e514 (1, 591) Dummy {f00=0x00b5, f01=0x018e, f02=» - ~ P CF A15,CDCHK VALID CODE? . P LDR A1,A1 . * P RB(Z) WRIT10 YES . < P RB WRIT15 . V P* . h P EJECT DRMS02 . r P* . PWRIT20 EQU * . & P LDK A2,CRWETX CARD END CHARACTER . ( P XRS A2,DWTLRC+DWTDEV,A6 UPDATE LRC . P CF A5,OUT
0x24e514…24e6a8 Dummy {f00=0x00b5, f01=0x0190, f02=» $ P CF A5,OUTPUT SEND LRC-CHARACTER / " P RF(NZ) ERRMS ERROR END I/O =1 / , P* / R " P* SEND WRITE TRACK COMMAND / * P LDK A2,ENCTRD ASSUME GERMAN PASSBOOK / . P LD A1,DWTFRT+DWTDEV,A6 IS IT GERMAN BOOK? / P RF(N) WRIT30 YES, CONTINUE / 6 P L
0x24e6a8…24e83c Dummy {f00=0x00b5, f01=0x0190, f02=»NZ) ERRMS ERROR END I/O =1 / P CF A5,ENDBLK END BLOCK =1 0 " " P RF(NZ) ERRMS ERROR END I/O =1 0 D ( P CF A5,INPUT WAIT FOR STATUS MESSAGE 0 j P LDK A1,0 RETURN CODE OK 0 P CWK A2,WROK WAS IT OK? 0 P RB(E) ENDIO2 YES, EXIT 0 P* 0 P SUK A4,
0x24e83c…24e9d0 Dummy {f00=0x00b5, f01=0x018e, f02=»R WAS IT WRITE ERROR? 0 P RB(E) ENDIO2 YES, EXIT 1 P* 1 > 2 P LDK A1,WARNRW RETURN CODE READ/WRITE WARNING 1 H ( P CWK A2,WRWARN WAS IT WRITE WARNING? 1 ~ P RB(E) ENDIO2 YES, EXIT 1 P* 1 : P LDK A1,THRERR ILLEGAL STATUS FROM MSU. THROUGHPUT E
0x24e9d0…24eb64 Dummy {f00=0x00b5, f01=0x0190, f02=» 1 P* 2 PIHMS EQU * 2 P ANK A2,/FF 2 $ $ P LD A3,DWTST,A6 GET STATUS WORD 2 8 P RF(NN) IHM100 BUSY 2 ` P LDR A3,A2 SAVE CHAR 2 | $ P SUK A3,DOCINS DOCUMENT INSERTED 2 P RF(E) IHMS10 2 P SUK A3,DOCESC-DOCINS =2 2 . P RF(NE) IHMS20 N
0x24eb64…24ecf8 Dummy {f00=0x00b5, f01=0x0190, f02=»* 2 PIHMS20 EQU * 3 * 3 4 /* STORE INCOMING CHARACTER IN CIRCULAR BUFFER 3 ( * 3 ` P LD A1,DWTDEV+DWTINQ,A6 3 j LCR A4,A1 3 " XRK A4,/FF ALREADY OVERFLOW ? 3 P RB(E) EXIT YES ! 3 * 3 P LDR A4,A1 3 4 P CF A15,EOQUEU G
0x24ecf8…24ee8c Dummy {f00=0x00b5, f01=0x0190, f02=»OVERFLOW BIT IN BUFFER 3 P RF IHMS40 4 * 4 0 8 PIHMS30 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER 4 : 4 PIHMS40 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER 4 v * 4 P RB EXIT DISPATCH 4 P EJECT DRMS02 4 P* 4 P* DEVICE BUSY 4
0x24ee8c…24f020 Dummy {f00=0x00b5, f01=0x0190, f02=»F(E) IHRET END OF OPERATION ORDER CODE 4 P LDR A4,A2 5 . P SUK A4,DOCESC 5 @ " P RF(E) IHM140 DOCUMENT ESCAPED 5 V PIHRET EQU * 5 | P ABL LENDER 5 P* 5 PIHM140 EQU * =2 5 , P SC A2,DWTST+1,A6 UPDATE STATUS WORD =2 5 P LDKL A1,CARMIS CA
0x24f020…24f1b4 (1, 592) Dummy {f00=0x00b6, f01=0x0190, f02=» 5 | P* 6 P* 6 PRCMS EQU * 6 P LDK A2,DOCESC 6 . ( P SC A2,DWTDEV+1,A6 RESET STATUS WORD 6 D P LD A7,DWTST,A6 BUSY? 6 p P RB(N) EXIT NO 6 $ P LDK A1,THRERR THROUGHPUT ERROR 6 P RB ENDIO4 6 P EJECT DRMS02 6 P** 6 P* 6 "
0x24f1b4…24f348 Dummy {f00=0x00b6, f01=0x0190, f02=»**************************** 6 P* 7 $ P* 7 . PERRMS EQU * ERROR ROUTINE =1 7 8 , P ANK A1,/12 OUTPUT ERROR OR LRC - ERROR 7 $ P RB(NZ) RCMS YES DO RECOVERY =1 7 . P LDK A1,NOTOPE RETURN CODE NOT OPERABLE =1 7 " P RB ENDIO4 END I/O REQUEST =1 7
0x24f348…24f4dc Dummy {f00=0x00b6, f01=0x0190, f02=»NDEX. 7 ` P* 8 PSTORE EQU * 8 " P LD A7,ECBBA,A8 BUFFER ADDRESS 8 , P ADR A7,A3 ADD BUFFER INDEX 8 R P SCR A2,A7 STORE CHAR 8 v P ADK A3,1 INCR. INDEX 8 P RTN A15 8 P* 8 P EJECT DROD01 8 P* 8 P* 8 6 P* EOQUEU = SUBR
0x24f4dc…24f670 Dummy {f00=0x00b6, f01=0x0190, f02=» 8 z P* 9 P* ON EXIT: 9 P* 9 ( P* A1 = NEW QUEUE POINTER 9 2 PEOQUEU EQU * 9 V P ADK A1,1 9 j P SUR A1,A6 9 | & P CWK A1,DWTEQ+DWTDEV END OF QUEUE? 9 P RF(NE) EOQU10 9 0 P LDKL A1,DWTSQ+DWTDEV SET QUEUE START ADRESS 9 PEOQU10
0x24f670…24f804 Dummy {f00=0x00b6, f01=0x0190, f02=»CTER 9 z $ P* AT EXIT: A1=RERURN CODE 0,2 : P* : 4 PCDCHK EQU * : > P LDR A1,A2 : R P SUK A1,/30 VALID CODE? : d P RF(N) CDC20 NO : P SUK A1,10 DIGIT? : P RF(N) CDC30 YES, OK : P* : . P* THE CHARACTER IS A CONTROL CHARACTER :
0x24f804…24f998 Dummy {f00=0x00b6, f01=0x0190, f02=»RATOR? : z P RF(E) CDC30 YES, OK ; P RF CDC20 NO, ERROR ; * P* ; F PCDC10 EQU * ; P ( P* CREDIT CARD / AMERICAN PASSBOOK ; d P LDR A1,A2 CHARACTER ; " P SUK A1,/3A ACCOUNT SEPARATOR? ; P RF(Z) CDC30 YES, OK ; P SUK A1,3 FIELD SEPARATOR?
0x24f998…24fb2c Dummy {f00=0x00b6, f01=0x40e2, f02=»R ; h " P ORS A1,ECBRC,A8 INSERT IN ECB < P RF CDC40 EXIT < 0 P* < F PCDC30 EQU * < P P* VALID CHARACTER < d P LDK A1,0 RETURN CODE := OK < PCDC40 EQU * < P RTN A15 < P* < P END < @ < , OK ; P SUK A1,3 FIELD SEPARATOR?
0x24fb2c…24fcc0 Dummy {f00=0x00b6, f01=0x2008, f02=» = ER INDEX. l P* PSTORE EQU * $ " P LD A7,ECBBA,A8 BUFFER ADDRESS 8 P ADR A7,A3 ADD BUFFER INDEX ^ P SCR A2,A7 STORE CHAR P ADK A3,1 INCR. INDEX P RTN A15 P* P END @ A1,2 THROUGPUT ERROR P R
0x24fcc0…24fe54 (1, 593) Dummy {f00=0x00b6, f01=0x0190, f02=»70 C1R A1,A1 COMPLEMENT % " P ANS A1,DWTDEV+DWTCS,A6 CLEAR & * & F $ PMKB280 ABL MKB100 NEXT CHARACTER & P P EJECT & x * & . P* SPECIAL CONVERSION OF CHARACTERS FROM & P* NUMERIC PART OF 6234. & * & PMKB290 EQU * & $ LDR A
0x24fe54…24ffe8 Dummy {f00=0x00b6, f01=0x018e, f02=»HARACTER IS & x 0 P ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED ' ( P RF(Z) MKB310 NO SPECIAL CONVERSION ' H P ANK A2,/7F MASK AWAY BIT 8 ' t * ' & P* INDICATE SPECIAL CONVERSION ! ' * ' 2 PMKB295 ANKL A6,/FFFE MAKE THE DWT-ADDRESS EVEN '
0x24ffe8…25017c Dummy {f00=0x00b6, f01=0x0190, f02=» ' x * ( PMKB300 EQU * ( * ( & IFT KBLOCK=1 ( 0 * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? ( F . P ABL(Z) MKB100 YES ! READ A NEW CHARACTER ( t XIF ( * ( PMKB310 EQU * ( , P LD A1,DWTDEV+DWTCTB,A6 GET CTAB ADDRESS ( P RF(E) M
0x25017c…250310 Dummy {f00=0x00b6, f01=0x0190, f02=»TABLE ( t LDR A4,A2 ) ANK A4,/FF ) SRL A4,3 LINE INDEX ) 4 P ADR A1,A4 ) P $ P LDR* A1,A1 COLUMN TABLE ADDRESS ) b P RF(E) MKB320 NO COLUMN ) LDR A4,A2 ) ANK A4,/F ) P ADR A1,A4 ADD ROW INDEX ) P LCR A2,A1 LOAD CHARACTER
0x250310…2504a4 Dummy {f00=0x00b6, f01=0x0190, f02=»ECK IF BASIC READ OR ORDER 2 OR 3 ) * * * LDR A4,A7 LOAD ORDER CODE * 4 SUK A4,2 * V " P RF(NN) MKB330 ORDER 2 OR 3 ! * h * * * ORDER 1, BASIC READ * * * , P CF A5,STOECH STORE CHAR. IN ECB-BUFFER * H C*
0x2504a4…250638 Dummy {f00=0x00b6, f01=0x0190, f02=»QU * * 0 P CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? + . P ABL(NE) MKB100 NO ! READ A NEW CHARACTER + @ * + r ( P RF MKB335 YES ! SET RETURN CODE = 0 + | P* AND COMPLETE REQUEST + P EJECT + * + . ** ORDER 2 OR 3, STANDARD OR NUMERIC
0x250638…2507cc Dummy {f00=0x00b6, f01=0x0190, f02=»ADDRESS + v P RF(Z) MKB360 NO KEYTABLE ! , " LCR A4,A1 TABLE LENGTH IN A4 , 4 ANK A4,/FF , Z 0 , ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE , n ADK A1,1 , PMKB340 SUK A4,1 , , P RF(N) MKB360 KEY NOT FOUND IN KEYTABLE , SUK A1,1 NE
0x2507cc…250960 Dummy {f00=0x00b6, f01=0x0190, f02=»BLE INDEX , v PMKB350 EQU * - 0 P ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD - & * - Z 0 P CF A15,STORE STORE CHARACTER IN ECB BUFFER - d P IFT CECHO=1 - & P ORK A2,/80 INDICATE EOR CHARACTER - P CF A5,EORECH ECHO CHARACTER - P XIF - *
0x250960…250af4 (1, 594) Opaque[0x194]
0x250af4…250c88 # DirEnt {nam=»DRMT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16d0, f03=0x0000}
0x250af4…250c88 IdxSect {
0x250af4…250c88 f00 = 0x00b6 // 0x250af4 @0x0
0x250af4…250c88 f01 = 0x0014 // 0x250af6 @0x2
0x250af4…250c88 gno = [ // 0x250af8 @0x4
0x250af4…250c88 [0x00]: C0x00b6.0x2.0
0x250af4…250c88 [0x01]: C0x00b6.0x3.0
0x250af4…250c88 [0x02]: C0x00b7.0x0.0
0x250af4…250c88 [0x03]: C0x00b7.0x1.0
0x250af4…250c88 [0x04]: C0x00b7.0x2.0
0x250af4…250c88 [0x05]: C0x00b7.0x3.0
0x250af4…250c88 [0x06]: C0x00b8.0x0.0
0x250af4…250c88 [0x07]: C0x00b8.0x1.0
0x250af4…250c88 [0x08]: C0x00b8.0x2.0
0x250af4…250c88 [0x09]: C0x00b8.0x3.0
0x250af4…250c88 ]
0x250af4…250c88 }
0x250c88…250e1c Dummy {f00=0x00b6, f01=0x018e, f02=» 2 P IDENT DRMT01 REL 11.0 81-01-26 870105041100 P : P* B P* L : P***************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 4 P* DRMT01 = DRIVER 1/2 " MAGNETIC TAPE RECORDER P
0x250e1c…250fb0 Dummy {f00=0x00b6, f01=0x0190, f02=» P* < P* THIS DRIVER HANDLES FOUR 1/2 " MAGNETIC TAPE RECORDERS @ P* CONNECTED TO CPU VIA IOP AND CHMT ON MULTIPLEXED CHANNEL. R P* P* : P* ONLY ONE RECORDER CAN BE WORKING AT A TIME EXCEPT AT P* UNLOAD. P* P*
0x250fb0…251144 Dummy {f00=0x00b6, f01=0x0190, f02=»* A BLOCK SEQUENCE NUMBER. P* " P EJECT DRMT01 , P* D 2 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: N P* " P* M T D A ACTIVATION ROUTINE P* $ P* O R D E R P R O C E S S O R S P* $ P* C O M M A N D H A N D
0x251144…2512d8 Dummy {f00=0x00b6, f01=0x0190, f02=»M T 0 1 DEVICE WORK TABLE P* " P* ORDERS TREATED: , P* F & P* /00 TEST STATUS /33 STEP REVERSE P P* /02 READ /34 STEP FORWARD z P* /05 WRITE /37 LOAD P* /06 WRITE /38 UNLOAD & P* /22 WRITE TAPE MARK /3F RECOVER P* /31
0x2512d8…25146c Dummy {f00=0x00b6, f01=0x0190, f02=» BOT/EOT 10: & P* 3: TAPE MARK 11: SEQUENCE ERROR P* @ & P* 4: 12: INCORRECT LENGTH J P* 5: 13: DATA ERROR t . P* 6: WRITE PROTECTED 14: THROUGPUT ERROR P* 7: 15: NOT OPERABLE P* P EJECT DRMT01 P
0x25146c…251600 Dummy {f00=0x00b6, f01=0x0190, f02=» $ P ENTRY MTDRON POWER ON RECOVERY P , P 4 P < P* D P* EXTERNALS N P* b P EXTRN TDISP DISPATCHER l $ P EXTRN DISEND DISPATCER END I/O * P EXTRN DISIOE DISPATCHER I/O REQ ERROR $ P EXTRN SAVE8 SAVE A1-A8 AND INH
0x251600…251794 (1, 595) Dummy {f00=0x00b6, f01=0x0190, f02=»S t P EXTRN DWTTAB TTAB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS , P EXTRN TTB:MT MMU TABLE R $ P EXTRN ECBBA ECB BUFFER ADDRESS r & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH " P EXTRN ECBCW ECB CONTROL W
0x251794…251928 Dummy {f00=0x00b6, f01=0x0190, f02=» j P EJECT DRMT01 P P* ( P* CONSTANTS 2 P* F P P 0 PMTRTRY EQU 3 MAX NO OF RETRIES AT READ/WRITE X 0 PMTRTOT EQU 90 REWIND TIME OUT IN 2 SEC STEPS 0 PMTPTOT EQU 10 POWER FAIL TIME OUT IN 100 MS 6 PMTRBLK EQU 40 NO OF
0x251928…251abc Dummy {f00=0x00b6, f01=0x0190, f02=»NDITIONAL ASSEMBLY P* . P***************************************** $ P* V . P* A PROGRAM VERSION USING TOSS MMU PAGING ` * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION US
0x251abc…251c50 Dummy {f00=0x00b6, f01=0x018e, f02=»* MMU BUFFER SIZE P* P* & PDVBLEN EQU 0 0 P* D P* N P* MMU DEVICE INDEX X P* t P* ~ PDEVIND EQU 4 P* P* 4 P* IF THERE IS EURO-CARD IN THE COMPUTER 2 P* THE CONSTANT P831 SHOU
0x251c50…251de4 Dummy {f00=0x00b6, f01=0x0190, f02=» l PMASK EQU /7 PREADBL EQU /02 PWRITBL EQU /00 2 PWRITMK EQU /04 H PERASE4 EQU /0C ^ PSLOADP EQU /41 t PONLINE EQU /51 PSKIPRE EQU /21 PSKIPFO EQU /20 POFLINE EQU /40 PILLSD EQU /2847 P XIF P I
0x251de4…251f78 Dummy {f00=0x00b6, f01=0x0190, f02=»11 PERASE4 EQU /19 PSLOADP EQU /24 PONLINE EQU /2C 6 PSKIPRE EQU /04 L PSKIPFO EQU /00 b PILLSD EQU /2807 x P XIF 8 PMTIOPL EQU CHMT+CHMT IOP CTRL WORD 1 : BLOCK LENGTH < PMTIOPA EQU CHMT+CHMT+1 IOP CTRL WORD 2 : BUFFER
0x251f78…25210c Dummy {f00=0x00b6, f01=0x018e, f02=»HE ORDER IS CHECKED AND A | . P* BRANCH TO THE ORDER PROCESSOR IS MADE. " P* T P* ENTRY: ^ P* n P* A5: DWTSB2 x P* A6: DWT ADDRESS P* A7: ORDER P* A8: ECB ADDRESS P* P* EXIT: TO ORDER PROCESSOR P*
0x25210c…2522a0 Dummy {f00=0x00b6, f01=0x0190, f02=» x P* A5: STACK POINTER P* A6: DWT ADDRESS $ P* A7: MAX NO OF RETRIES > P* A8: ECB ADDRESS ^ P* x P PMTDA INH & P LDK A4,MTLEN CHECK IF LEGAL ORDER P PMTDA10 CC A7,MTTAB-1,A4 P RF(E) MTDA30 FOUND P
0x2522a0…252434 (1, 596) Dummy {f00=0x00b7, f01=0x018e, f02=»A4,MTORD-2 , P ST A4,MTREQ SAVE ADDRESS TO ORDER PNTR P B , PMTDA40 LC A2,DWTOR,A6 GET CHANNEL NUMBER J " P ANK A2,MASK MASK JUST IN CASE z $ P LDR A7,A2 SAVE CHANNEL FOR SELC P IFT P831=1 P SLC A7,4 P XIF P SLL A2,2
0x252434…2525c8 Dummy {f00=0x00b7, f01=0x0190, f02=» ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH $ P LD A4,2,A2 CHECK IF SEQ NUMBERS 4 P RF(N) MTDA50 NO P ADK A3,2 YES ADJUST LENGTH t & PMTDA50 LDR A4,A3 CHECK REQ LENGTH P SRL A4,1 ( P RB(Z) MTDA20 LESS THAN 2 CHARACTERS P SRL A4,
0x2525c8…25275c Dummy {f00=0x00b7, f01=0x0190, f02=»ECK IF CH ALREADY SELECTED P RF(E) MTDA70 YES " P CF A5,SELC SELECT CHANNEL < ( PMTDA70 CM MTEOT CLEAR EOT INDICATOR ^ ( P LDK A7,MTRTRY GET MAX NO OF RERIES & P ABI* MTREQ GO TO ORDER PROCESSOR P EJECT DRMT01 P P*
0x25275c…2528f0 Dummy {f00=0x00b7, f01=0x0190, f02=» P* A4: BUFFER ADDRESS P* A5: STACK POINTER " P* A6: DWT ADDRESS > P* A7: MAX NO OF RETRIES X P* A8: ECB ADDRESS x P* P* EXIT: ABL DISEND P* P* A1: STATUS P* A6: DWT ADDRESS P* 8 P* EFFECTIVE
0x2528f0…252a84 Dummy {f00=0x00b7, f01=0x018e, f02=»FT P831=0 , PTEST LC A7,DWTOR,A6 SELECT TO GET STATUS P ANK A7,MASK B P CF A5,SELC V P ABL ENDIO8 j P XIF ~ P IFT P831=1 . PTEST CF A5,SKPR DUMMY INSTR TO GET STATUS P LDR A3,A1 P SLC A3,5 BOT ? P RF(N) TEST10
0x252a84…252c18 Dummy {f00=0x00b7, f01=0x0190, f02=» P EJECT DRMT01 P P* $ P* READ /02 . P* B P L PREAD CF A5,RBLK READ BLOCK T P RF(0) READ10 STATUS DATA OK v P ABL(1) ENDIO2 ILL STATUS P SUK A7,1 " P ABL(N) ENDIO4 NO MORE RETRIES P CF A5,SKPR SKIP REV
0x252c18…252dac Dummy {f00=0x00b7, f01=0x0190, f02=» $ PREAD20 LD A5,2,A2 CHECK SEQ MODE " P ABL(N) ENDIO1 NO SEQ NUMBERS , P* R P IFT MMUPAG=0 , P RER A5,MTIOPA GET ADDRESS TO SEQ NUMBER r P SUK A5,1 P LDR* A3,A2 GET SEQ COUNTER P CCR A3,A5 * P RF(NE) READ30 NOT CORRECT SEQ
0x252dac…252f40 Dummy {f00=0x00b7, f01=0x018e, f02=» P EJECT DRMT01 P* P* & P IFT MMUPAG=1 0 & P LD A5,DWTTAB,A6 GET TTAB ADDRESS F $ P SUKL A15,32 ADJUST STACKPOINTER p * P TS 2,A15 SAVE MMU REGISTERS ON STACK . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB P RER A5,MTIOPL
0x252f40…2530d4 (1, 597) Dummy {f00=0x00b7, f01=0x0190, f02=» & P EL A5,ECBBA,A5 GET BUFFER ADDRESS P ADR A5,A3 . P LDR A3,A5 @ P ANK A3,1 R " P RF(NZ) READ40 ADDRESS UNEVEN? d * P ELR A5,A5 GET ACTUAL SEQUENCE NUMBER P* PREAD25 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P
0x2530d4…253268 Dummy {f00=0x00b7, f01=0x018e, f02=» P EJECT DRMT01 P* P* & PREAD30 EQU * 0 $ P ORK A1,/0010 INDICATE SEQ ERROR D P ABL ENDIO1 l P* P IFT MMUPAG=1 PREAD40 ELR A3,A5 P ANK A3,/FF P EL A5,1,A5 P ANKL A5,/FF00 P ORR A5,A3 P
0x253268…2533fc Dummy {f00=0x00b7, f01=0x0190, f02=» P " PWRIT LD A1,2,A2 CHECK SEQ MODE P RF(N) WRIT10 NO SEQ NUMBERS 6 P LDR* A1,A2 GET SEQ COUNTER Z P* ~ P IFT MMUPAG=0 & P LDR A8,A4 CALC ADDR TO SEQ NUMBER P ADR A8,A3 " P SC A1,-1,A8 STORE SEQ NUMBER P ECR A1,
0x2533fc…253590 Dummy {f00=0x00b7, f01=0x0190, f02=»STACKPOINTER | * P TS 2,A15 SAVE MMU REGISTERS ON STACK $ P TL TTB:MT,A7 LOAD MMU REGISTERS B * P LD A4,DWTUEC,A6 GET USER ECB ADDRESS j , P EL A4,ECBBA,A4 GET USER BUFFER ADDRESS . P ADR A4,A3 GET ADDRESS TO SEQUENCE NUMBER P SRC A4,1
0x253590…253724 Dummy {f00=0x00b7, f01=0x0190, f02=»,A8 RESET BUFFER ADDRESS ~ . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL A15,32 ADJUST STACKPOINTER R P LDK A7,MTRTRY z P XIF P* " PWRIT10 CF A5,WBLK WRITE BLOCK P RF(0) ENDIO1 STATUS,DATA OK P RF(1) ENDIO2 ILL STATUS
0x253724…2538b8 Dummy {f00=0x00b7, f01=0x0190, f02=»SAVE EOT P ORS A1,MTEOT P RB WRIT10 TRY AGAIN & P* B P IFT MMUPAG=1 L 4 PWRIT20 EQU * SEQUENCE NUMBER ADDRESS WAS UNEVEN b P SLC A4,1 P ECR A6,A1 P ELR A7,A4 P ANK A7,/FF P SLL A1,8 P ORR A1,A7 P
0x2538b8…253a4c Dummy {f00=0x00b7, f01=0x018e, f02=» XIF P* P EJECT DRMT01 P* . P* WRITE TAPE MARK /22 8 PWRTM CF A5,WTMK V P RF(1) ENDIO4 ILL STATUS n P IFT P831=1 P CF A5,SKPR P XIF P LDR A3,A1 $ P SLC A3,3 CHECK IF TAPE MARK OK P RF(NN) WRTM
0x253a4c…253be0 Dummy {f00=0x00b7, f01=0x0190, f02=» P PWRTM10 EQU * P IFT P831=0 P CF A5,SKPR SKIP REVERSE 4 P XIF T P CF A5,ERA4 ERASE 4" ` P SUK A7,1 | " P RF(N) ENDIO4 NO MORE RETRIES P ANK A1,/20 SAVE EOT P ORS A1,MTEOT P RB WRTM TRY AGAIN P*
0x253be0…253d74 (1, 598) Dummy {f00=0x00b7, f01=0x018e, f02=»-LINE ~ P IFT P831=1 P LDR A1,A1 " P RF(NZ) ENDIO6 4 P XIF J P EJECT DRMT01 V P n P* v P* REWIND /31 P* P P " PRWND CMR A2 CLEAR SEQ COUNTER $ P CF A5,SBOW SEARCH BOT AND WAIT P RF ENDIO6
0x253d74…253f08 Dummy {f00=0x00b7, f01=0x0190, f02=» x P RF(NZ) ENDIO7 NOT OPERABLE P CF A5,OFLI SET OFF-LINE , P ANKL A1,/FFFE SKIP BIT 15 L P RF ENDIO7 n P P P* P* STEP REVERSE /33 P* P PSTPR CF A5,SKPR SKIP REVERSE " PSTPR10 RF(1) ENDIO6 ILL STAT
0x253f08…25409c Dummy {f00=0x00b7, f01=0x0190, f02=» z P RB RWND BOT P* P* STEP FORWARD /34 & P* B P L PSTPF CF A5,SKPF SKIP FORWARD T P RF(1) ENDIO6 ILL STATUS x " PSTPF10 IMR A2 INCR SEQ COUNTER PSTPF20 RF ENDIO6 P P P P* P* RECOVER /3F
0x25409c…254230 Dummy {f00=0x00b7, f01=0x018e, f02=»ER PROCESSORS t P* ! , PENDIO0 IMR A2 INCREMENT SEQUENCE COUNTER ! 4 P ANKL A1,/FFF7 MASK INCORR LENGTH (ONLY ON P831) ! P P RF ENDIO4 ! P* ! " PENDIO1 IMR A2 INCR SEQ COUNTER ! P ! P IFT MMUPAG=0 ! 0 PENDIO2 RER A3,MTIOPA GET NEXT BU
0x254230…2543c4 Dummy {f00=0x00b7, f01=0x0190, f02=» P XIF " P SUR A3,A4 " P IFT MMUPAG=0 " " * PENDIO3 LD A4,2,A2 CHECK IF SEQ NUMBERS " 8 P RF(N) *+4 NO " f P SUK A3,2 YES ADJUST LENGTH " | P XIF " * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH " PENDIO4 LDK A4,MTRTRY " P SUR A4,A7 GET NO
0x2543c4…254558 Dummy {f00=0x00b7, f01=0x018e, f02=» OPERABLE CHECK IF POWER FAIL " * PENDIO7 LDKL A4,/8000 SAVE SEQ MODE BIT # & P ANS A4,2,A2 # T & P OR A1,MTEOT PUT IN EOT INDICATOR # h P ORS A1,2,A2 SAVE STATUS # . PENDIO8 CM MTREQ INDICATE NO RUNNING ORDER # P* # P EJECT DRMT01 # P*
0x254558…2546ec Dummy {f00=0x00b7, f01=0x0190, f02=» # P RF(Z) ENDIO9 $ P XRR A1,A2 RESET BIT 2 $ " P ORK A1,/40 SET BIT 9 INSTEAD $ < P* $ b PENDIO9 EQU * $ l P LDKL A3,/420 $ P TM A1,A3 $ P RF(Z) ENDIOA $ P ORR A1,A2 SET BIT 2 $ & P ANKL A1,/FBDF RESET BIT 5 AND 10 $ P* $
0x2546ec…254880 Dummy {f00=0x00b7, f01=0x0190, f02=»NSTEAD $ z P* % P EJECT DRMT01 % P* % 0 P* % : PENDIOB EQU * % D P SRL A2,2 % X P TM A1,A2 % j & P RF(Z) ENDIOC NOT WRITE PROTECTED % | P LD A7,DWTOR,A6 ORDER CODE % P ANK A7,/FF % P SUK A7,/05 % P RF(N) ENDIOC NO WRITE O
0x254880…254a14 (1, 599) Dummy {f00=0x00b7, f01=0x0190, f02=» DISEND PERFORM TENDIO AND GO TO DISPATCHER % P* & 4 P EJECT DRMT01 & > P & V P* & ^ 2 P* THE THING WAS NOT OPERABLE, CHECK IF A POWER & h P* FAIL IS COMING ALONG. & P* & P & PCKPWF LDK A7,1 & P ST A7,MTSA7 SAVE REGISTERS &
0x254a14…254ba8 Dummy {f00=0x00b7, f01=0x0190, f02=» TDISP & P ' & PCKPWF1 LDR A6,A1 RESTORE REGISTERS ' P LD A1,MTSA7 ' @ P LD A2,MTSA2 ' T P CM MTTIM INDICATE NO TIMER ' h P RB ENDIO8 ' P EJECT DRMT01 ' P ' P* ' * P* SBOW SEARCH BOT AND WAIT FOR REWIND ' P* ' P* ENTRY:
0x254ba8…254d3c Dummy {f00=0x00b7, f01=0x018e, f02=» P* A6: DWT ADDRESS ( P* A7: RESTORED ( P* A8: ECB ADDRESS ( 6 P* ( P P ( Z * PSBOW LDKL A1,-MTRTOT-1 SET UP TIME OUT ( b P ST A1,MTCTR ( P ( PSBOW10 CF A5,SBOT SEARCH BOT ( P SLC A1,2 CHECK IF READY ( " P RF(N) SBOW30 STILL REWI
0x254d3c…254ed0 Dummy {f00=0x00b7, f01=0x018e, f02=» P RTN A5 RETURN ) P ) & PSBOW30 IM MTCTR CHECK IF TIME OUT ) " & P RB(Z) SBOW20 DON'T WAIT ANY MORE ) L P ST A5,MTSA5 SAVE REGISTER ) v P LDR A1,A6 ) P LDKL A4,MTTIM ) " P CF A15,SETIMP WAIT 2 SECONDS ) P DATA SBOW40,20 ) P ABL TDISP
0x254ed0…255064 Dummy {f00=0x00b7, f01=0x018e, f02=» ) P CM MTTIM INDICATE NO TIMER * $ P RB SBOW10 GO BACK AND TRY AGAIN * , P EJECT DRMT01 * T P * l P* * t P* COMMAND HANDLERS * ~ P* * P* ENTRY: CF A5,<COM> * P* * * P* A2: IF SELC: ACTIVE CHANNEL ADDRESS * ( P* A3: IF RBLK
0x255064…2551f8 Dummy {f00=0x00b7, f01=0x0190, f02=» * n P* + P* EXIT: RTN A5 + P* + * P* A1: STATUS AFTER COMMAND + 4 P* A2: RESTORED + X " P* A3: REQUESTED LENGTH IN ECB + p P* A4: BUFFER ADDRESS IN ECB + P* A6: DWT ADDRESS + P* A7: RESTORED + P* A8: ECB ADDRESS + P*
0x2551f8…25538c Dummy {f00=0x00b7, f01=0x0190, f02=»ATUS, ILL DATA: NO DATA,DATA ERR,THRUPUT ERR + z P* , 4 P , > P , F " PRBLK LDK A1,READBL READ BLOCK , N PRBLK10 EQU * , t P IFT MMUPAG=1 , & P LDR* A6,A8 GET FIRST WORD OF ECB , 4 P ANKL A6,/3000 GET BITS 16-17 IN BUFFER ADDRESS , P ORR A3,
0x25538c…255520 Dummy {f00=0x00b7, f01=0x0190, f02=» , h P RF COMM - P - " PWBLK LDK A1,WRITBL WRITE BLOCK - . PWBLK10 ORKL A3,/4000 INDICATE WRITE TO IOP - F P RB RBLK10 - x P - & PWTMK LDK A1,WRITMK WRITE TAPE MARK - P RF COMM - PERA4 LDK A1,ERASE4 ERASE 4" - P RF COMM - P - " P
0x255520…2556b4 (1, 600) Dummy {f00=0x00b8, f01=0x0190, f02=» LDK A1,SKIPRE SKIP REVERSE - P RF COMM . $ P . 4 $ PSKPF LDK A1,SKIPFO SKIP FORWARD . < P IFT P831=0 . d P RF COMM . x $ POFLI LDK A1,OFLINE SET OFF-LINE . P RF COMM . P . ( PRSQN LDK A1,/03 READ SEQUENCE NUMBER . & P LDK A3,2 SET UP BUF
0x2556b4…255848 Dummy {f00=0x00b8, f01=0x018e, f02=» SAVE ACTIVE CHANNEL . P / P XIF / $ PCOMM LD A3,PFPOST / 0 " P RF(NZ) COMM15 PFINIT PENDING / J PCIOMT CIO A1,1,CHMT / p P RF(A) COMM10 / P RF(U) COMM05 NO INTERFACE / P LDK A1,9 PARAMETER / P CF A15,HALT STOP EXECUTION / PCOMM
0x255848…2559dc Dummy {f00=0x00b8, f01=0x0190, f02=» P ABR* A5 0 P 0 P 0 $ PCOMM10 CM MTINT IND INT ALLOWED 0 $ & PCOMM15 ST A2,MTSA2 SAVE REGISTERS 0 L P ST A5,MTSA5 0 v P ST A7,MTSA7 0 P ABL TDISP GO TO DISPATCHER 0 P EJECT DRMT01 0 P 0 P* 0 " P* IHMT INTERRUPT HANDLER CHM
0x2559dc…255b70 Dummy {f00=0x00b8, f01=0x0190, f02=»STACK 0 t P XIF 1 P* 1 P IFT CPU852=0 1 $ " P MSR 8,A15 SAVE A1-A8 ON STACK 1 : P XIF 1 ` P* 1 l PSSTMT SST A1,CHMT 1 v P RF(A) IHMT10 1 P LDK A1,9 PARAMETER 1 P CF A15,HALT SST NOT ACC. 1 PIHMT10 C1S MTINT 1 P RF(NZ) IHMT
0x255b70…255d04 Dummy {f00=0x00b8, f01=0x0190, f02=» 1 r P XIF 2 * P LDK A1,5 ILLEGAL INTERRUPT PARAMETER 2 P CF A15,HALT 2 B P 2 V * PIHMT20 LDKL A6,DWMT01 GET DWT ADDRESS 2 ^ $ P LD A8,DWTECB,A6 GET ECB ADDRESS 2 & P LD A5,MTSA5 RESTORE STACK POINTER 2 P IFT P831=1 2 6 P ANKL A1,/BFFF MASK AW
0x255d04…255e98 Dummy {f00=0x00b8, f01=0x018e, f02=»F(Z) IHMT30 STATUS,DATA OK 2 P LDK A2,/40 3 " P SUKL A3,/806 3 6 P TM A1,A3 3 L P RF(NZ) IHMT30 ILL STATUS 3 ^ P LDK A2,/80 ILL DATA 3 P 3 PIHMT30 SLC A2,2 3 P ST A2,2,A5 UPDATE CR 3 " P LD A2,MTSA2 RESTORE REGISTERS 3 P LD A3,E
0x255e98…25602c Dummy {f00=0x00b8, f01=0x0190, f02=» P LD A7,MTSA7 4 P RTN A5 4 P EJECT DRMT01 4 ( P 4 @ P* 4 H ( P* MTDRON ENTRY AT POWER ON RECOVERY 4 R P* 4 ~ P 4 PMTDRON EQU * 4 P IFT CPU852=1 4 & P CF A15,SAVE8 SAVE A1-A8 ON STACK 4 P XIF 4 P* 4 P IFT CPU852=0
0x25602c…2561c0 Dummy {f00=0x00b8, f01=0x0190, f02=»DWTST,A6 4 " P CMR A6 IND NO ACTIVE CHANNEL 5 " P LD A4,MTTIM CHECK IF TIMER ON 5 6 P RF(Z) MTON05 NO 5 P CMR A4 RESET TIMER 5 t P CM MTTIM INDICATE NO TIMER 5 P 5 , PMTON05 LD A4,MTPWF CHECK IF PWF TIMER ON 5 P RF(NZ) MTON10 YES 5 P L
0x2561c0…256354 (1, 601) Dummy {f00=0x00b8, f01=0x0190, f02=» P STR A3,A4 6 P ABL TDISP 6 P 6 ( $ PMTON20 CM MTPWF IND NO PWF TIMER 6 0 $ P LDKL A6,DWMT01 LOAD DWT ADDRESS 6 X & P LD A8,DWTECB,A6 LOAD ECB ADDRESS 6 " P LDKL A5,MTSTB LOAD STACK BASE 6 0 P LDKL A2,MTCHS GET ADDRESS TO CHANNEL STATUS 6 P 6
0x256354…2564e8 Dummy {f00=0x00b8, f01=0x0190, f02=»MTON40 ADK A2,4 6 ( P CWK A2,MTCHSE ARE ALL CHANNELS DONE 7 P RB(NE) MTON30 NO TRY NEXT 7 D P 7 f ( P LD A4,MTREQ CHECK IF ACTIVE REQUEST 7 n P ABL(Z) DISEND NO RETURN 7 & P ABL MTDA40 REPEAT ACTIVE REQUEST 7 P EJECT DRMT01 7 P 7 P* 7
0x2564e8…25667c Dummy {f00=0x00b8, f01=0x0190, f02=»UL DUE TO INCORRECT SEQUNCE NUMBERS 7 $ P* THE RECORDER IS PUT OFF-LINE. 8 , P* 8 T P* ENTRY: 8 ^ P* 8 n $ P* A2: ADDRESS TO CHANNEL STATUS 8 x P* A6: DWT ADDRESS 8 P* 8 P* EXIT: 8 P* 8 P* A1: STATUS AFTER RECOVERY 8 $ P* A2:
0x25667c…256810 Dummy {f00=0x00b8, f01=0x0190, f02=»MBER 8 r P SUKL A7,MTCHS 9 P SRL A7,2 9 " P CF A5,SELC SELECT CHANNEL 9 4 P LD A1,2,A2 CHECK SEQ MODE 9 V P RF(N) MTRC70 NO SEQ NUMBERS 9 x P CF A5,ONLI 9 P LDR* A3,A2 GET SEQ COUNTER 9 & P ABL(Z) SBOW TAPE SHOULD BE AT BOT 9 8 P LDK A7,MT
0x256810…2569a4 Dummy {f00=0x00b8, f01=0x0190, f02=»,RSQN READ SEQUENCE NUMBER 9 P SLC A1,3 CHECK IF TAPE MARK : " & P RB(N) MTRC10 TAPE MARK, TRY AGAIN : F P SLC A1,2 CHECK IF BOT : p P RF(NN) MTRC20 NOT BOT : P CM MTBUF CLEAR SEQ NUMBER : P : > PMTRC20 ANK A1,/E4 CHECK IF REW, DATA ERR, THRU ERR
0x2569a4…256b38 Dummy {f00=0x00b8, f01=0x0190, f02=» ( P SUR* A7,A2 CALC NO OF BLOCKS TO GO ; P CCR A3,A2 ; 0 P RF(NE) MTRC25 ; B P LDR A7,A7 ; X " PMTRC25 RF(G) MTRC50 GO REVERSE ; j P ; PMTRC30 NGR A7,A7 TRY FORWARD ; PMTRC40 SUK A7,1 ; P RF(N) MTRC60 ; P CF A5,SKPF ; P RB MTRC40
0x256b38…256ccc Dummy {f00=0x00b8, f01=0x0190, f02=»N READ SEQ NUMBER ; " P RF(4) MTRC70 ILL STATUS,DATA < P SLC A1,3 CHECK IF TAPE MARK < @ P RF(NN) MTRC80 NOT TAPE MARK < d & P LD A3,2,A2 GET STATUS OF CHANNEL < P SLC A3,3 < & P RF(N) MTRC90 SHOULD BE TAPE MARK < P < $ PMTRC70 ABL OFLI RE
0x256ccc…256e60 Dummy {f00=0x00b8, f01=0x0190, f02=») MTRC70 NOT EQUAL < P = $ PMTRC90 ABL SKPF OK RECOVERY DONE = " P XIF = J P IFT P831=1 = V & PMTRC LDR A7,A2 CALC CHANNEL NUMBER = j P SUKL A7,MTCHS = P SRL A7,2 = P CF A5,SELC SELECT CHANNEL = P LD A1,2,A2 CHECK SEQ MODE = P RF(N) M
0x256e60…256ff4 (1, 602) Dummy {f00=0x00b8, f01=0x0190, f02=»T SEQ COUNTER = & P ABL(Z) SBOW TAPE SHOULD BE AT BOT > ( PMTRC05 CF A5,SKPR REWIND TAPE TO BOT > @ P SLC A1,5 CHECK IF BOT > l P RB(NN) MTRC05 > P > P > PMTRC40 SUK A7,1 > P RF(N) MTRC60 > P CF A5,SKPF > P SLC A1,4 NO DATA ? >
0x256ff4…257188 Dummy {f00=0x00b8, f01=0x0190, f02=»RK > v P SRC A1,3 ? & P LD A3,2,A2 GET STATUS OF CHANNEL ? P SLC A3,3 ? F & P RF(N) MTRC90 SHOULD BE TAPE MARK ? X P ? " PMTRC70 RF OFLI RECOVERY FAILED ? P ? PMTRC80 EQU * ? " PMTRC90 RTN A5 OK RECOVERY DONE ? P* ? P* SELECT D
0x257188…25731c Dummy {f00=0x00b8, f01=0x0190, f02=»VICE IN CIO-INSTR. ? x P ANS A1,SSTMT SST-INSTR. @ P ORS A7,SSTMT @ : $ P ANS A1,CIOM2 ANOTHER CIO-INSTR. @ P P ORS A7,CIOM2 @ x P RTN A5 @ P* @ P* OFF LINE @ P* @ POFLI EQU * @ 0 P CF A5,SKPR DUMMY INSTRUCTIONS TO GET STATUS @
0x25731c…2574b0 Dummy {f00=0x00b8, f01=0x0190, f02=») OFLI10 @ POFLI05 LDK A1,1 NOT OPERABLE A P RTN A5 A 4 " POFLI10 LDK A1,/20 SET OFF LINE A D PCIOM2 CIO A1,1,CHMT A j P RB OFLI05 A P XIF A P EJECT DRMT01 A P A P* A P* LEGAL ORDER TAB A P* A P A PMTTAB DATA /02
0x2574b0…257644 Dummy {f00=0x00b8, f01=0x0190, f02=»ND A j " P DATA STPR,STPF,LOAD,UNLD,RECV B PMTNOL EQU *-8-8 B 0 P EJECT DRMT01 B H P* B ` * P* DWMT01 DEVICE WORK TABLE FOR DRMT01 B j P* B P B 0 PDWMT01 DATA 0 DWTCHP PNTR TO ACTIVE CHANNEL B " P DATA /8000 DWTST BIT0=READY B P DAT
0x257644…2577d8 Dummy {f00=0x00b8, f01=0x0190, f02=»AT B P DATA 0 DWTTQ C IFT MMUPAG=1 C & " DATA 0 SAVE AREA USER ECB ADDRESS C 6 DATA DEVECB MMU ECB ADDRESS C ` XIF C ( PMTREQ DATA 0 REQUESTED ORDER POINTER C ( PMTSA2 DATA 0 SAVE AREA FOR REGISTERS C PMTSA5 DATA 0 C PMTSA7 DATA 0
0x2577d8…25796c Dummy {f00=0x00b8, f01=0x0190, f02=»0,0,0 C P XIF D P* D $ P DATA 0 INDICATES NO MMU BUFFER D $ P DATA 4 DEVICE INDEX D L PMTADR DATA MTDA D h " P DATA 0 ABORT ROUTINE ADDRESS D " PMTCTR DATA 0 TIME OUT COUNTER D * PMTINT DATA /FFFF /0: INTERRUPT ALLOWED D " PMTPWF DATA 0 P
0x25796c…257b00 Dummy {f00=0x00b8, f01=0x0190, f02=» D P EJECT DRMT01 E P E P* E ( P* CHANNEL STATUS WORDS E 2 P* E P & P* FIRST WORD: SEQUENCE COUNTER E Z > P* SECOND WORD: BIT0: NO SEQ NO:S, BIT1-15: LAST STATUS E P* E P E P E & PMTCHS DATA 0,1 CH0: SEQ NO, STATUS E
0x257b00…257c94 (1, 603) Dummy {f00=0x00b8, f01=0x4018, f02=» E P END F @ F
0x257c94…257e28 Dummy {f00=0x00b8, f01=0x2008, f02=» G , STATUS . ~ P DATA 0,1 CH1: " / P DATA 0,1 CH2: " / 4 P DATA 0,1 CH3: " / P P DATA 0,1 CH4: " / l P DATA 0,1 CH5: " / P DATA 0,1 CH6: " / P DATA 0,1 CH7: " / P / PMTCHSE EQU * / P / P END /
0x257e28…257fbc Dummy {f00=0x00b8, f01=0x0190, f02=»CT DRCD01 P* P* $ P******************************** & $ P* * N $ P* READ SECTORS * v $ P* * $ P******************************** P* P* PREA:00
0x257fbc…258150 Dummy {f00=0x00b8, f01=0x0190, f02=»A6 NUMBER OF LOGICAL SECTORS P RF(Z) REA:50 IO READY ! $ P SUK A1,3 ! B 0 P RB(NN) REA:00 AT LEAST ONE PHYSICAL SECTOR ! T P CF A5,MASK00 ! P CF A5,READ ! P CF A5,UPDATE ! P LDK A1,0 RESET RETURN CODE ! PREA:50 EQU * ! P ABL END
0x258150…2582e4 Dummy {f00=0x00b8, f01=0x0190, f02=»AD SECTOR N * ! * * " ********************* " 6 * " T * " ^ PREAD EQU * " h P CF A5,CIOLOD " z 6 P CM DWTBSE+4,A6 CLEAR BUFFER IND. IN CASE OF ERROR " * % LDKL A3,REDCOM GET READ COMMAND CODE " , P ORS A3,DWTCOP,A
0x2582e4…258478 Dummy {f00=0x00b8, f01=0x0190, f02=» RF(Z) RET34 OK. NO RETURN CODE " * # ( * IO ERROR IN READING # 2 * # P P IM DWTRE2,A6 # Z $ SUK A4,1 DECREMENT RETRYCOUNTER # p 4 P RB(P) READ10 3:RD RETRY IN THIS STATE NOT DONE # $ LDK A4,RY3 REINIT RETRYCOUNTER # P* # P EJECT
0x258478…25860c Dummy {f00=0x00b8, f01=0x0190, f02=»H EARLY- OR LATE- # v RF(NZ) RET31 DATA STROBE ? $ 0 , LDKL A3,/8000 PREPARE FOR EARLY DATA STROBE $ > ORS A3,DWTCOP,A6 $ r 4 / RB READ10 RETRY 3 TIMES WITH EARLY DATA STROBE $ RET31 EQU * $ ANK A2,/80 $ 4 / RF(Z) RET32 LAST RETRIES WE
0x25860c…2587a0 Dummy {f00=0x00b8, f01=0x0190, f02=»ES WITH LATE DATA STROBE $ z RET32 EQU * % LDKL A3,/3FFF % 4 , ( ANS A3,DWTCOP,A6 RESET LATE DATA STROBE % J LC A2,DWTCOP+2,A6 % z 2 - ANK A2,/C0 LAST RETRY CARRIAGE+ OR CARRIAGE- % RF(NZ) RET33 % ( $ LDKL A3,/8000 PREPARE FOR CARRIAGE+ %
0x2587a0…258934 (1, 604) Opaque[0x194]
0x258934…258ac8 # DirEnt {nam=»DRND01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1720, f03=0x0000}
0x258934…258ac8 IdxSect {
0x258934…258ac8 f00 = 0x00b9 // 0x258934 @0x0
0x258934…258ac8 f01 = 0x001e // 0x258936 @0x2
0x258934…258ac8 gno = [ // 0x258938 @0x4
0x258934…258ac8 [0x00]: C0x00b9.0x0.0
0x258934…258ac8 [0x01]: C0x00b9.0x1.0
0x258934…258ac8 [0x02]: C0x00b9.0x2.0
0x258934…258ac8 [0x03]: C0x00b9.0x3.0
0x258934…258ac8 [0x04]: C0x00ba.0x0.0
0x258934…258ac8 [0x05]: C0x00ba.0x1.0
0x258934…258ac8 [0x06]: C0x00ba.0x2.0
0x258934…258ac8 [0x07]: C0x00ba.0x3.0
0x258934…258ac8 [0x08]: C0x00bb.0x0.0
0x258934…258ac8 [0x09]: C0x00bb.0x1.0
0x258934…258ac8 [0x0a]: C0x00bb.0x2.0
0x258934…258ac8 [0x0b]: C0x00bb.0x3.0
0x258934…258ac8 [0x0c]: C0x00bc.0x0.0
0x258934…258ac8 [0x0d]: C0x00bc.0x1.0
0x258934…258ac8 [0x0e]: C0x00bc.0x2.0
0x258934…258ac8 ]
0x258934…258ac8 }
0x258ac8…258c5c Dummy {f00=0x00b9, f01=0x0190, f02=» 2 P IDENT DRND01 REL 11.0 81-05-27 870105041100 P : $ P =2, INTERRUPT TABLES INCLUDED B P REL 11.0 81-05-25 j ( P =1, COND. ASS. FOR ONLY SUM-CONN. P REL 11.0 81-01-26 P* P* P* @ P****************************
0x258c5c…258df0 Dummy {f00=0x00b9, f01=0x0190, f02=»RIBUTOR l P* P* P* $ @ P************************************************************ . P* r P* | 6 P* THIS PROGRAM CONTAINS INPUT AND OUTPUT ENTRIES 6 P* CALLED BY TERMINAL DEVICE DRIVERS. AT CALL, IT 6 P* CHECKS CHA
0x258df0…258f84 Dummy {f00=0x00b9, f01=0x0190, f02=»UCTION MAKES IT p 8 P* POSSIBLE TO HAVE ONLY ONE TERMINAL DEVICE DRIVER 2 P* FOR EACH TERMINAL DEVICE, IRRESPECTIVE OF T 4 P* CONNECTION TYPE. IT IS ALSO POSSIBLE TO USE 6 P* SEVERAL TERMINAL DEVICE CHANNEL UNITS TOGETHER P* IN THE S
0x258f84…259118 Dummy {f00=0x00b9, f01=0x0190, f02=»IVERS ` P* AND LINE DRIVERS. P* , P EJECT 6 P* D : P* THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. N 4 P* SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED 2 P* INTO ROUTINES. THE ROUTINES ARE LISTED AT 4 P* BEGINNING
0x259118…2592ac Dummy {f00=0x00b9, f01=0x0190, f02=»ENTRIES DECLARE ENTRY POINTS . P* EXTERNALS DECLARE EXTERNAL REFERENCES ( 6 P* CONDITION SET CONDITIONAL ASSEMBLY PARAMETERS Z & P* CONSTANTS SET CONSTANT VALUES P* DATA DATA AREAS P* 4 P* DEVICE DR ROUTINES CALLED BY DEV
0x2592ac…259440 Dummy {f00=0x00b9, f01=0x0190, f02=»* P*********** P* ( P* TERMINAL DEVICE DRIVER REQUESTS ( P* T ( P ENTRY INPUT INPUT OF ONE CHARACTER ^ ( P ENTRY STABLK DEFINE START OF BLOCK * P ENTRY OUTPUT OUTPUT OF ONE CHARACTER & P ENTRY ENDBLK DEFINE END OF BLOCK
0x259440…2595d4 (1, 605) Dummy {f00=0x00b9, f01=0x0190, f02=»ACTER FROM ECB-BUFFER v $ P ENTRY ABORT ABORT INPUT REQUEST P* F P* P . P* TERMINAL DEVICE DRIVER EXIT ROUTINES Z P* 2 P ENTRY LENDER REQUEST ERR, END I/O & DISPATCH $ P ENTRY LENDIS END I/O & DISPATCH P ENTRY LDISP DISPATC
0x2595d4…259768 Dummy {f00=0x00b9, f01=0x0190, f02=»ETURN | P ENTRY NDREP POP & RETURN P ENTRY NDRET RETURN 0 P* L P EJECT V P* d & P* LINE DRIVER SERVICE ROUTINES n P* * P ENTRY NDSAV8 SAVE A3-A5, A7-A8 IN DWT , P ENTRY NDGET8 GET A3-A5, A7-A8 FROM DWT 0 P ENTRY N
0x259768…2598fc Dummy {f00=0x00b9, f01=0x0190, f02=» ( P ENTRY NDGEDW CALCULATE DWT ADDRESS P* 0 P EJECT : P* H " P* INTERRUPT TABLE FOR CHLT R P* x & P ENTRY INTLT1,INTLT2,INTLT3,INTLT4 P* " P* INTERRUPT TABLE FOR CHRT P* & P ENTRY INTRT1,INTRT2,INTRT3,INTRT4
0x2598fc…259a90 Dummy {f00=0x00b9, f01=0x0190, f02=»7,INTSL8 v P* $ P* INTERRUPT TABLE FOR ASCU4Z P* B & P ENTRY INTAS1,INTAS2,INTAS3,INTAS4 L & P ENTRY INTAS5,INTAS6,INTAS7,INTAS8 v P* ( P* INTERRUPT TABLE FOR PLC - LOCAL P* & P ENTRY INTPL1,INTPL2,INTPL3,INTPL4
0x259a90…259c24 Dummy {f00=0x00b9, f01=0x0190, f02=»ABLE FOR VIDEO P* & P ENTRY INTVU1,INTVU2,INTVU3,INTVU4 & P ENTRY INTVU5,INTVU6,INTVU7,INTVU8 J P* t P EJECT ~ P* P************* P* EXTERNALS * P************* P* P* TOSS ROUTINES P* ( P E
0x259c24…259db8 Dummy {f00=0x00b9, f01=0x0190, f02=»I/O REQUEST ~ P* P* * P* REQUEST ROUTINES IN LINE DRIVERS ( P* V P* CHLT ` P* t " P EXTRN LTCHRI CHARACTER INPUT ~ P EXTRN LTSTBL START OF BLOCK " P EXTRN LTCHRO CHARACTER OUTPUT P EXTRN LTENBL END OF BLOCK
0x259db8…259f4c Dummy {f00=0x00b9, f01=0x018e, f02=»OF BLOCK | " P EXTRN RTCHRO CHARACTER OUTPUT P EXTRN RTENBL END OF BLOCK 6 P EXTRN RTDISP DISPATCH X P* v P EJECT P* P* SALCUZ P* " P EXTRN SLCHRI CHARACTER INPUT P EXTRN SLSTBL START OF BLOCK " P EXTRN
0x259f4c…25a0e0 Dummy {f00=0x00b9, f01=0x018e, f02=» " P EXTRN ASCHRI CHARACTER INPUT P EXTRN ASSTBL START OF BLOCK * " P EXTRN ASCHRO CHARACTER OUTPUT N P EXTRN ASENBL END OF BLOCK t P EXTRN ASDISP DISPATCH P* P* FT80 P* " P EXTRN FTCHRI CHARACTER INPUT P EXTRN
0x25a0e0…25a274 (1, 606) Dummy {f00=0x00b9, f01=0x0190, f02=» P* PLC - LOCAL P* " " P EXTRN PLCHRI CHARACTER INPUT , P EXTRN PLSTBL START OF BLOCK R " P EXTRN PLCHRO CHARACTER OUTPUT v P EXTRN PLENBL END OF BLOCK P EXTRN PLDISP DISPATCH P* P EJECT P* P* PLC
0x25a274…25a408 Dummy {f00=0x00b9, f01=0x0190, f02=» P EXTRN PRENBL END OF BLOCK P EXTRN PRDISP DISPATCH & P* D P* VIDEO N P* b " P EXTRN VUCHRI CHARACTER INPUT l P EXTRN VUSTBL START OF BLOCK " P EXTRN VUCHRO CHARACTER OUTPUT P EXTRN VUENBL END OF BLOCK P EXTRN VUD
0x25a408…25a59c Dummy {f00=0x00b9, f01=0x0190, f02=»XTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS P EXTRN DWTOR INDEX AND ORDER < . P EXTRN DWTADR DRIVER ADDRESS BLOCK ADDRESS ` * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR " P EXTRN DWTA3 SAVE AREA FOR A3 " P EXTRN DWTA4 SAVE AREA FOR A4
0x25a59c…25a730 Dummy {f00=0x00b9, f01=0x0190, f02=»OR A8 x 4 P EXTRN DWTECH DWT ADDRESS OF ECHO OUTPUT DEVICE P* F P* P P* ECB DISPLACEMENTS Z P* x P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH P* P* P*
0x25a730…25a8c4 Dummy {f00=0x00b9, f01=0x0190, f02=»LOCK b P* P EJECT P* $ P************************ . P* CONDITIONAL ASSEMBLY * N P************************ n P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x25a8c4…25aa58 Dummy {f00=0x00b9, f01=0x0190, f02=»ARE USED IN THE SYSTEM. t ( P* 0 MEANS CHANNEL UNIT IS NOT USED. $ P* 1 MEANS CHANNEL UNIT IS USED. L P* t PX:A EQU 0 ~ PLT EQU X:A CHLT P* PX:B EQU 0 PRT EQU X:B CHRT P* PX:C EQU 0 PSL EQU X:C SALCU
0x25aa58…25abec Dummy {f00=0x00b9, f01=0x0190, f02=» PPL EQU X:F PLC - LOCAL P* & P EJECT 0 P* > PX:G EQU 0 H PPR EQU X:G PLC - REMOTE Z P* z PX:H EQU 0 PVU EQU X:H VIDEO P* P* * P* ECHO FUNCTION IS INCLUDED IF CECHO=1 P* PX:I EQU 1
0x25abec…25ad80 Dummy {f00=0x00b9, f01=0x0190, f02=»M-CONNECTION v P* PS1 EQU SL+AS U =1 PS2 EQU S1+FT U =1 8 PS3 EQU S2+PL U =1 R PS4 EQU S3+PR U =1 l PS5 EQU S4+VU U =1 P* PNTONSU EQU S5 U =1 P* P EJECT P* P************* P* CONSTANTS
0x25ad80…25af14 (1, 607) Dummy {f00=0x00b9, f01=0x0190, f02=» /2000 ECHO MODE $ PDWFINP EQU /0020 INPUT REQUESTED P* @ P* J P* MISCELLANEOUS T P* n 0 PNOTOPR EQU /0001 RETURN CODE "NOT OPERABLE" x 6 PCONFER EQU /0001 RETURN CODE "CONFIGURATION ERROR" 0 PREQERR EQU /8000 RETURN CODE "REQU
0x25af14…25b0a8 Dummy {f00=0x00b9, f01=0x0190, f02=» AREAS * P************** P* & P IFF NTONSU=0 U =1 0 P* J P* DISPATCH TABLES T P* p P* CHARACTER INPUT z PINPTAB EQU * P IFT LT=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT LT=1
0x25b0a8…25b23c Dummy {f00=0x00b9, f01=0x0190, f02=»=1 P IFT RT=1 P DATA RTCHRI P XIF 0 P IFF NTONSU=0 U =1 < P* V P IFT SL=0 ` P DATA NDRETE r P XIF P IFF NTONSU=0 U =1 P IFT SL=1 P DATA SLCHRI P XIF P IFF NTONSU=0 U =1 P* P IFT A
0x25b23c…25b3d0 Dummy {f00=0x00b9, f01=0x0190, f02=»=1 P* P IFT FT=0 P DATA NDRETE & P XIF : P IFF NTONSU=0 U =1 F P IFT FT=1 ` P DATA FTCHRI r P XIF P IFF NTONSU=0 U =1 P* P IFT PL=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT P
0x25b3d0…25b564 Dummy {f00=0x00b9, f01=0x018e, f02=»TONSU=0 U =1 P IFT PR=1 P DATA PRCHRI & P XIF : P IFF NTONSU=0 U =1 F P* ` P IFT VU=0 j P DATA NDRETE | P XIF P IFF NTONSU=0 U =1 P IFT VU=1 P DATA VUCHRI P XIF P IFF NTONSU=0 U =1 PDTABLN
0x25b564…25b6f8 Dummy {f00=0x00b9, f01=0x0190, f02=» P IFF NTONSU=0 U =1 P IFT LT=1 " P DATA LTSTBL 4 P XIF H P IFF NTONSU=0 U =1 T P* n P IFT RT=0 x P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT RT=1 P DATA RTSTBL P XIF P IFF NTONSU=0 U =1
0x25b6f8…25b88c Dummy {f00=0x00b9, f01=0x018e, f02=» P IFF NTONSU=0 U =1 P* " P IFT AS=0 , P DATA NDRETE > P XIF R P IFF NTONSU=0 U =1 ^ P IFT AS=1 x P DATA ASSTBL P XIF P IFF NTONSU=0 U =1 P* P IFT FT=0 P DATA NDRETE P XIF P IFF NTO
0x25b88c…25ba20 Dummy {f00=0x00b9, f01=0x0190, f02=» P XIF P IFF NTONSU=0 U =1 P IFT PL=1 . P DATA PLSTBL @ P XIF T P IFF NTONSU=0 U =1 ` P* z P IFT PR=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PR=1 P DATA PRSTBL P XIF P IFF N
0x25ba20…25bbb4 (1, 608) Dummy {f00=0x00ba, f01=0x018e, f02=» P XIF P IFF NTONSU=0 U =1 P* . P* 8 P* CHARACTER OUTPUT B POUPTAB EQU * b P IFT LT=0 v P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT LT=1 P DATA LTCHRO P XIF P IFF NTONSU=0 U =1
0x25bbb4…25bd48 Dummy {f00=0x00ba, f01=0x018e, f02=» P IFF NTONSU=0 U =1 P* " P IFT SL=0 , P DATA NDRETE > P XIF R P IFF NTONSU=0 U =1 ^ P IFT SL=1 x P DATA SLCHRO P XIF P IFF NTONSU=0 U =1 P* P IFT AS=0 P DATA NDRETE P XIF P IFF NTO
0x25bd48…25bedc Dummy {f00=0x00ba, f01=0x0190, f02=» P XIF P IFF NTONSU=0 U =1 P IFT FT=1 . P DATA FTCHRO @ P XIF T P IFF NTONSU=0 U =1 ` P* z P IFT PL=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PL=1 P DATA PLCHRO P XIF P IFF N
0x25bedc…25c070 Dummy {f00=0x00ba, f01=0x018e, f02=» P XIF ! P IFF NTONSU=0 U =1 ! P* ! . P IFT VU=0 ! 8 P DATA NDRETE ! J P XIF ! ^ P IFF NTONSU=0 U =1 ! j P IFT VU=1 ! P DATA VUCHRO ! P XIF ! P IFF NTONSU=0 U =1 ! P* ! P* ! P* END OF BLOCK ! PENBTAB E
0x25c070…25c204 Dummy {f00=0x00ba, f01=0x018e, f02=» P IFF NTONSU=0 U =1 " P* " P IFT RT=0 " ( P DATA NDRETE " : P XIF " N P IFF NTONSU=0 U =1 " Z P IFT RT=1 " t P DATA RTENBL " P XIF " P IFF NTONSU=0 U =1 " P* " P IFT SL=0 " P DATA NDRETE " P XIF " P IFF NTONSU=
0x25c204…25c398 Dummy {f00=0x00ba, f01=0x0190, f02=» P XIF # P IFF NTONSU=0 U =1 # P IFT AS=1 # * P DATA ASENBL # < P XIF # P P IFF NTONSU=0 U =1 # P* # v P IFT FT=0 # P DATA NDRETE # P XIF # P IFF NTONSU=0 U =1 # P IFT FT=1 # P DATA FTENBL # P XIF # P IFF NTONS
0x25c398…25c52c Dummy {f00=0x00ba, f01=0x0190, f02=» P XIF $ P IFF NTONSU=0 U =1 $ P* $ * P IFT PR=0 $ 4 P DATA NDRETE $ F P XIF $ Z P IFF NTONSU=0 U =1 $ f P IFT PR=1 $ P DATA PRENBL $ P XIF $ P IFF NTONSU=0 U =1 $ P* $ P IFT VU=0 $ P DATA NDRETE $ P XIF $ P
0x25c52c…25c6c0 Dummy {f00=0x00ba, f01=0x0190, f02=»REQUEST $ PENRTAB EQU * % P IFT LT=0 % $ P DATA TDISP % 6 P XIF % J P IFF NTONSU=0 U =1 % V P IFT LT=1 % p P DATA LTDISP % P XIF % P IFF NTONSU=0 U =1 % P* % P IFT RT=0 % P DATA TDISP % P XIF % P IFF NTONSU=0 U
0x25c6c0…25c854 (1, 609) Dummy {f00=0x00ba, f01=0x0190, f02=»IF % P IFF NTONSU=0 U =1 & P IFT SL=1 & $ P DATA SLDISP & 6 P XIF & J P IFF NTONSU=0 U =1 & V P* & p P IFT AS=0 & z P DATA TDISP & P XIF & P IFF NTONSU=0 U =1 & P IFT AS=1 & P DATA ASDISP & P XIF & P IFF NTONSU=0 U
0x25c854…25c9e8 Dummy {f00=0x00ba, f01=0x0190, f02=»IF & P IFF NTONSU=0 U =1 ' P* ' $ P IFT PL=0 ' . P DATA TDISP ' @ P XIF ' T P IFF NTONSU=0 U =1 ' ` P IFT PL=1 ' z P DATA PLDISP ' P XIF ' P IFF NTONSU=0 U =1 ' P* ' P IFT PR=0 ' P DATA TDISP ' P XIF ' P IFF N
0x25c9e8…25cb7c Dummy {f00=0x00ba, f01=0x0190, f02=» ' P XIF ( P IFF NTONSU=0 U =1 ( P IFT VU=1 ( . P DATA VUDISP ( @ P XIF ( T P* ( ` P EJECT ( j P* ( x P* INTERRUPT TABLES ( P* ( P IFT LT=0 U =2 ( P* DUMMY ENTRIES CHLT ( PINTLT1 EQU * U =2 ( PINTLT2 EQU * U
0x25cb7c…25cd10 Dummy {f00=0x00ba, f01=0x0190, f02=» DATA 0 U =2 ( PINTLT2 DATA 0 U =2 ) PINTLT3 DATA 0 U =2 ) . PINTLT4 DATA 0 U =2 ) H P XIF U =2 ) b P* ) t P IFT RT=0 U =2 ) ~ P* DUMMY ENTRIES CHRT ) PINTRT1 EQU * U =2 ) PINTRT2 EQU * U =2 ) PINTRT3 EQU * U =2 ) PINTRT4
0x25cd10…25cea4 Dummy {f00=0x00ba, f01=0x0190, f02=» PINTRT3 DATA 0 U =2 * PINTRT4 DATA 0 U =2 * P XIF U =2 * 8 P* * J P IFT SL=0 U =2 * T P* DUMMY ENTRIES SALCUZ * j PINTSL1 EQU * * PINTSL2 EQU * U =2 * PINTSL3 EQU * U =2 * PINTSL4 EQU * U =2 * PINTSL5 EQU * U =2 * PIN
0x25cea4…25d038 Dummy {f00=0x00ba, f01=0x0190, f02=»Z * PINTSL1 DATA 0 U =2 + PINTSL2 DATA 0 U =2 + $ PINTSL3 DATA 0 U =2 + > PINTSL4 DATA 0 U =2 + X PINTSL5 DATA 0 U =2 + r PINTSL6 DATA 0 U =2 + PINTSL7 DATA 0 U =2 + PINTSL8 DATA 0 U =2 + P XIF U =2 + P* + P IFT AS=0 U =2 +
0x25d038…25d1cc Dummy {f00=0x00ba, f01=0x0190, f02=» PINTAS5 EQU * U =2 , PINTAS6 EQU * U =2 , PINTAS7 EQU * U =2 , 8 PINTAS8 EQU * U =2 , R P XIF U =2 , l P* , ~ P IFT AS=1 U =2 , P* ASCU4Z , PINTAS1 DATA 0 U =2 , PINTAS2 DATA 0 U =2 , PINTAS3 DATA 0 U =2 , PINTAS4 D
0x25d1cc…25d360 Dummy {f00=0x00ba, f01=0x018e, f02=» P* - P IFT PL=0 U =2 - " P* DUMMY ENTRIES PLC - LOCAL - $ PINTPL1 EQU * U =2 - J PINTPL2 EQU * U =2 - d PINTPL3 EQU * U =2 - ~ PINTPL4 EQU * U =2 - P XIF U =2 - P* - P IFT PL=1 U =2 - P* PLC - LOCAL - PINTPL1 DATA
0x25d360…25d4f4 (1, 610) Dummy {f00=0x00ba, f01=0x0190, f02=» - $ P* DUMMY ENTRIES PLC - REMOTE . PINTPR1 EQU * U =2 . 0 PINTPR2 EQU * U =2 . J PINTPR3 EQU * U =2 . d PINTPR4 EQU * U =2 . ~ P XIF U =2 . P* . P IFT PR=1 U =2 . P* PLC - REMOTE . PINTPR1 DATA 0 U =2 . PINTPR2 DAT
0x25d4f4…25d688 Dummy {f00=0x00ba, f01=0x0190, f02=» VIDEO . ~ PINTVU1 EQU * U =2 / PINTVU2 EQU * U =2 / ( PINTVU3 EQU * U =2 / B PINTVU4 EQU * U =2 / PINTVU5 EQU * U =2 / v PINTVU6 EQU * U =2 / PINTVU7 EQU * U =2 / PINTVU8 EQU * U =2 / P XIF U =2 / P* / P IFT VU=1 U =2
0x25d688…25d81c Dummy {f00=0x00ba, f01=0x0190, f02=» DATA 0 U =2 / PINTVU6 DATA 0 U =2 0 PINTVU7 DATA 0 U =2 0 . PINTVU8 DATA 0 U =2 0 H P XIF U =2 0 b P* 0 t P EJECT 0 ~ P* 0 P************************** 0 P* DEVICE DRIVER ROUTINES * 0 P************************** 0 P* 0 B P*
0x25d81c…25d9b0 Dummy {f00=0x00ba, f01=0x0190, f02=» D P* ACTION ITSELF, OR SWITCH CONTROL TO THE LINE DRIVER TO WHICH 1 D P* THE DEVICE IS CONNECTED. WHEN THE LINE DRIVER HAS PERFORMED 1 L D P* THE REQUESTED ACTIONS, IT WILL RETURN TO THE DEVICE DRIVER, 1 D P* EITHER DIRECTLY OR THROUGH THE TERMINAL
0x25d9b0…25db44 Dummy {f00=0x00ba, f01=0x0190, f02=». IT WILL OF COURSE NOT RETURN TO THE DEVICE 1 ~ P* DRIVER. 2 4 P* 2 H P* 2 R 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: 2 P* 2 P* NAME FUNCTION 2 P* 2 2 P* INPUT FETCH ONE CHARACTER FROM INPUT DEVICE 2 * P* STABLK DEFINE START
0x25db44…25dcd8 Dummy {f00=0x00ba, f01=0x0190, f02=»NTROL AT CHARACTER ECHO 2 $ P* ECHRTN RETURN FROM ECHO OUTPUT 3 * P* GETCHR GET CHARACTER FROM ECB BUFFER 3 H * P* ABORT SET INPUT NO LONGER REQUESTED 3 v . P* LDISP DISPATCH AT I/O REQUEST COMPLETED 3 P* 3 P EJECT 3 P* 3 @ P****************
0x25dcd8…25de6c Dummy {f00=0x00ba, f01=0x0190, f02=»IS ROUTINE HANDLES INPUT OF ONE CHARACTER 3 0 P* FROM A DEVICE TO A TERMINAL DEVICE DRIVER. 4 2 P* 4 f P* CALL: 4 p P* CF A5,INPUT 4 P* 4 P* INPUT: 4 P* A5 = LOCAL STACK POINTER 4 P* A6 = DWT ADDRESS 4 P* 4 P* OUTPUT: 4
0x25de6c…25e000 Dummy {f00=0x00ba, f01=0x0190, f02=»S 8-15 CHARACTER 4 P* 5 @ P************************************************************ 5 $ P* 5 h PINPUT EQU * 5 r P IFF NTONSU=0 U =1 5 & P LC A1,DWTCHP,A6 CHANNEL PARAMETER 5 ( P ANK A1,MASKCT CLEAN CONNECTION TYPE 5 P SLA A1,1 MAKE IND
0x25e000…25e194 (1, 611) Dummy {f00=0x00ba, f01=0x0190, f02=» 5 P IFT NTONSU=0 U =1 6 & P ABL LTCHRI ACTIVATE SUM-DRIVER =1 6 " P XIF U =1 6 L P* 6 ^ P EJECT 6 h P* 6 v @ P************************************************************ 6 P* 6 P* ROUTINE NAME: 6 P* STABLK 6 P* 6 P* FUNCTI
0x25e194…25e328 Dummy {f00=0x00ba, f01=0x0190, f02=»S TAKEN AT START OF BLOCK VARIES FOR 6 P* DIFFERENT LINE DRIVERS. 7 , P* 7 N P* CALL: 7 X P* CF A5,STABLK 7 h P* 7 ~ P* INPUT: 7 . P* A2 = MAXIMAL NR OF CHARACTERS IN BLOCK 7 P* A5 = LOCAL STACK POINTER 7 P* A6 = DWT ADDRESS 7
0x25e328…25e4bc Dummy {f00=0x00ba, f01=0x0190, f02=», IE A1=0) 7 n P* CR = CONTENTS OF A1 8 P* 8 0 @ P************************************************************ 8 : P* 8 ~ PSTABLK EQU * 8 & P LC A1,DWTCHP,A6 CHANNEL PARAMETER 8 P IFF NTONSU=0 U =1 8 ( P ANK A1,MASKCT CLEAN CONNECTION TYPE 8
0x25e4bc…25e650 Dummy {f00=0x00ba, f01=0x0190, f02=»RROR 8 P XIF U =1 9 P IFT NTONSU=0 U =1 9 " P ANK A1,1 LOCAL OR REMOTE ? =1 9 8 P ABL(Z) LTSTBL LOCAL =1 9 ^ P ABL RTSTBL REMOTE =1 9 ~ P XIF U =1 9 P EJECT 9 P* 9 @ P************************************************************ 9
0x25e650…25e7e4 Dummy {f00=0x00ba, f01=0x0190, f02=»* FROM A TERMINAL DEVICE DRIVER TO A DEVICE. 9 P* : 4 P* CALL: : > P* CF A5,OUTPUT : N P* : d P* INPUT: : n P* A2 = BITS 0-7 IRRELEVANT : ~ P* BITS 8-15 CHARACTER : P* A5 = LOCAL STACK POINTER : P* A6 = DWT ADDRESS : P* :
0x25e7e4…25e978 Dummy {f00=0x00ba, f01=0x0190, f02=»0) : f P* CR = CONTENTS OF A1 ; P* ; ( @ P************************************************************ ; 2 P* ; v POUTPUT EQU * ; P IFF NTONSU=0 U =1 ; & P LC A1,DWTCHP,A6 CHANNEL PARAMETER ; ( P ANK A1,MASKCT CLEAN CONNECTION TYPE ; P SLA
0x25e978…25eb0c Dummy {f00=0x00ba, f01=0x0190, f02=» P XIF U =1 < P IFT NTONSU=0 U =1 < & P ABL LTCHRO ACTIVATE SUM-DRIVER =1 < 0 P XIF U =1 < Z P* < l P EJECT < v P* < @ P************************************************************ < P* < P* ROUTINE NAME: < P* ENDBLK < P* <
0x25eb0c…25eca0 Dummy {f00=0x00ba, f01=0x0190, f02=»* THE ACTIONS TAKEN AT END OF BLOCK VARIES FOR < P* DIFFERENT LINE DRIVERS. = 6 P* = X P* CALL: = b P* CF A5,ENDBLK = r P* = P* INPUT: = P* A5 = LOCAL STACK POINTER = P* A6 = DWT ADDRESS = P* = P* OUTPUT: = P* A1 = RE
0x25eca0…25ee34 (1, 612) Dummy {f00=0x00bb, f01=0x0190, f02=» = z P* > @ P************************************************************ > P* > V PENDBLK EQU * > ` & P LC A1,DWTCHP,A6 CHANNEL PARAMETER > t P IFF NTONSU=0 U =1 > ( P ANK A1,MASKCT CLEAN CONNECTION TYPE > P SLA A1,1 MAKE INDEX > P CWK A1,
0x25ee34…25efc8 Dummy {f00=0x00bb, f01=0x0190, f02=»U=0 U =1 > " P ANK A1,1 LOCAL OR REMOTE ? =1 ? P ABL(Z) LTENBL LOCAL =1 ? 6 P ABL RTENBL REMOTE =1 ? V P XIF U =1 ? t P* ? P EJECT ? P* ? @ P************************************************************ ? P* ? P* ROUTINE NAME: ?
0x25efc8…25f15c Dummy {f00=0x00bb, f01=0x0190, f02=»NE DEVICE-DEPENDENT ? z 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, @ 2 P* LOAD STACKBASE AND FIND ADDRESS @ T 4 P* TO DEVICE-DEPENDENT ECHO-ROUTINE @ . P* PART TWO: ECHO ONE OR MORE CHARACTERS @ 2 P* CORRE
0x25f15c…25f2f0 Dummy {f00=0x00bb, f01=0x0190, f02=»D @ b 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO A P* OUTPUT DEVICE A B P* A 4 P* ECHO IS USED WHEN A CHARACTER SHOULD BE ECHOED A f , P* ECHEND IS USED AT END OF INPUT REQUEST A 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A A P
0x25f2f0…25f484 Dummy {f00=0x00bb, f01=0x0190, f02=» = BITS 0-14 NOT SIGNIFICANT A 4 P* BIT 15 1 IF MORE CHARACTERS B ( & P* A2 = BITS 0-7 NOT SIGNIFICANT B ` & P* BITS 8-17 CHARACTER (IF ECHO) B P* A5 = LOCAL STACK POINTER B P* A6 = DWT ADDRESS B P* B P EJECT B
0x25f484…25f618 Dummy {f00=0x00bb, f01=0x018e, f02=» BIT 15 1 IF MORE CHARACTERS B $ P* A2 = BITS 0-7 ZERO (IF ECHO) C 4 & P* BITS 8-15 CHARACTER (IF ECHO) C P* A5 = LOCAL STACK POINTER C ( P* A6 = ADDRESS OF OUTPUT DEVICE DWT C * P* A7 = BIT 0 0 IF ECHO, 1 IF ECHEND C " P*
0x25f618…25f7ac Dummy {f00=0x00bb, f01=0x0190, f02=» C ~ P* D @ P************************************************************ D P* D V PECHEND EQU * D ` P* D t P IFT CECHO=1 D ~ , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT D ( P LDKL A7,/8000 INDICATE END OF ECHO D P RF ECHO10 D P* D
0x25f7ac…25f940 Dummy {f00=0x00bb, f01=0x0190, f02=»DK A7,0 INDICATE NOT END OF ECHO D P* E ( P* E 2 PECHO10 EQU * E < P LD A3,DWTST,A6 STATUS E P $ P ANKL A3,DWFECH ECHO REQUESTED? E n P RF(Z) NDREP NO, RETURN E P* E 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE E 2 P LD A6,DWTECH,A6 DWT
0x25f940…25fad4 (1, 613) Dummy {f00=0x00bb, f01=0x0190, f02=»-ADDRESS IN A5 E | P ANK A2,/FF CLEAN CHARACTER F . P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK F : 6 P ABI ECHADR,A3 GO TO ECHO-ROUTINE DEVICE-DEPENDENT F l P XIF F P* F P EJECT F P* F @ P****************************************************
0x25fad4…25fc68 Dummy {f00=0x00bb, f01=0x0190, f02=»E ECHO ROUTINE F h 8 P* IS READY WITH ECHOING ACTIONS, AND WANTS TO LEAVE G * P* CONTROL BACK TO INPUT DEVICE DRIVER. G R P* G P* CALL: G P* ABL ECHRTN G P* G P* INPUT: G ( P* A6 = DWT ADDRESS OF OUTPUT DEVICE G P* G P* OUTPUT:
0x25fc68…25fdfc Dummy {f00=0x00bb, f01=0x0190, f02=»******** G P* H PECHRTN EQU * H P IFT CECHO=1 H . 0 P LD A6,DWTWAT,A6 DWT-ADDRESS OF INPUT DEVICE H B , P RF NDREP RELOAD A3-A5, A7-A8 AND RETURN H v P XIF H P* H P EJECT H P* H @ P****************************************************
0x25fdfc…25ff90 Dummy {f00=0x00bb, f01=0x0190, f02=»FROM THE H h 0 P* ECB BUFFER AND INCREMENT THE BUFFER INDEX. I 2 P* IF NO CHARACTER IS LEFT, INDEX IS STORED IN I D P* ECB REQUESTED LENGTH. I z P* I P* CALL: I P* CF A15,GETCHR I P* I P* INPUT: I P* A3 = BUFFER INDEX I P* A8
0x25ff90…260124 Dummy {f00=0x00bb, f01=0x0190, f02=»-7 ZERO (IF A1>0) I & P* BITS 8-15 CHARACTER (IF A1>0) J ( P* A3 = UPDATED BYTE INDEX (IF A1>0) J D P* CR = CHANGED J p P* INTERR. ENABLED J P* J @ P************************************************************ J P* J PGETCHR EQU * J
0x260124…2602b8 Dummy {f00=0x00bb, f01=0x0190, f02=» J & P LD A2,ECBBA,A8 GET BUFFER ADDRESS K P ADR A2,A3 K 2 P LCR A2,A2 CHAR. TO A2 K D P ANK A2,/FF K b $ P ADK A3,1 INCREMENT BUFFER INDEX K v P RF GCH020 K P* K P* K PGCH010 EQU * K * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH K PGC
0x2602b8…26044c Dummy {f00=0x00bb, f01=0x0190, f02=»********************************************** K P* L 6 P* ROUTINE NAME: L @ P* ABORT L X P* L h P* FUNCTION: L r : P* THIS ROUTINE RESETS THE INPUT REQUESTED FLAG IN DWT. L : P* IT IS USED AT ABORT REQUESTS, WHEN A REQUESTED INPUT L P* IS N
0x26044c…2605e0 Dummy {f00=0x00bb, f01=0x0190, f02=»* OUTPUT: L P* A1 = CHANGED M P* CR = CHANGED M * P* M B @ P************************************************************ M L P* M PABORT EQU * M 2 P LDKL A1,/FFFF-DWFINP MASK FOR INPUT REQUESTED M P ANS A1,DWTST,A6 RESET FLAG M P
0x2605e0…260774 (1, 614) Dummy {f00=0x00bb, f01=0x0190, f02=» M @ P************************************************************ N P* N L P* ROUTINE NAME: N V P* LDISP N n P* N ~ P* FUNCTION: N 8 P* THIS ROUTINE PERFORMS DISPATCHING FOR THE TERMINAL N 8 P* DEVICE DRIVERS. IT ALSO PROVIDES QUICK EXITS F
0x260774…260908 Dummy {f00=0x00bb, f01=0x0190, f02=»LDISP N P* O P* INPUT: O $ P* A1 = RETURN CODE (IF LENDIS) O ( P* A6 = DWT ADDRESS O P P* O l P* OUTPUT: O v 2 P* AT ENTRY TO LINE DRIVER DISPATCH ENTRY: O P* A6 = DWT ADDRESS O P* O @ P************************************
0x260908…260a9c Dummy {f00=0x00bb, f01=0x0190, f02=»5,TENDIO END I/O REQUEST O P* P P EJECT P * P* P 8 PLDISP EQU * P B P IFF NTONSU=0 U =1 P V & P LC A1,DWTCHP,A6 CHANNEL PARAMETER P p ( P ANK A1,MASKCT CLEAN CONNECTION TYPE P P SLA A1,1 MAKE INDEX P P CWK A1,DTABLN INSIDE LIMIT? P 0 P A
0x260a9c…260c30 Dummy {f00=0x00bb, f01=0x0190, f02=»****************** P P* LINE DRIVER ROUTINES * Q P************************ Q : P* Q Z F P* THIS SECTION CONTAINS AN EXIT ROUTINE THAT CAN BE USED BY THE Q d : P* LINE DRIVERS WHEN RETURNING TO THE DEVICE DRIVER. Q > P* IT ALSO CONTAINES A NUMB
0x260c30…260dc4 Dummy {f00=0x00bb, f01=0x018e, f02=»NCE IN CODE: Q p P* R P* NAME FUNCTION R P* R 6 $ P* NDRET RETURN TO DEVICE DRIVER R @ & P* NDSAV8 SAVE A3-A5, A7-A8 IN DWT R h & P* NDGET8 GET A3-A5, A7-A8 FROM DWT R 8 P* NDREWS CALL RECOVERY FOR ALL DWT:S ON WORK STATION R * P* NDREDW CALL RE
0x260dc4…260f58 Dummy {f00=0x00bb, f01=0x018e, f02=» R P* S @ P************************************************************ S P* S V P* ROUTINE NAME: S ` P* NDRET S x P* S P* FUNCTION: S 4 P* THIS ROUTINE CONTAINS A NUMBER OF ENTRIES FOR S 0 P* RETURNING TO THE TERMINAL DEVICE DRIVERS
0x260f58…2610ec Dummy {f00=0x00bb, f01=0x0190, f02=» 0 P* FOR CPU 852 IT ALSO CONTAINS A "RTN A15" T . P* SIMULATION THAT DOESN'T PERFORM ENABLE. T 8 P* T j P* CALL: T t P* RF "NAME" T P* RB "NAME" T P* ABL "NAME" T P* T P* INPUT: T , P* A5 = LOCAL STACK POINTER (IF NDRETX) T $
0x2610ec…261280 Dummy {f00=0x00bb, f01=0x0190, f02=»OF CALLED REQUEST HANDLING ROUTINE T P* U * @ P************************************************************ U 4 P* U x PNDRETE EQU * U & P LDK A1,CONFER CONFIGURATION ERROR U P RF NDRET RETURN U P* U P EJECT U P* U PNDREPO EQU * U
0x261280…261414 (1, 615) Dummy {f00=0x00bb, f01=0x018e, f02=» P RF NDRET RETURN V P* V PNDREP EQU * V & , P CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT V : PNDRET EQU * V j P ENB V ~ & P ADK A5,4 ADJUST STACK FOR RETURN V P LDR A1,A1 SET CR V $ P ABR* A5 RETURN TO DEVICE DRIVER V P* V P* V
0x261414…2615a8 Dummy {f00=0x00bb, f01=0x018e, f02=» @ P************************************************************ W P* W H P* ROUTINE NAME: W R P* NDSAV8 W j P* W z P* FUNCTION: W 6 P* THIS ROUTINE SAVES REGISTERS A3, A4, A5, A7 AND W P* A8 IN A SAVE AREA IN DWT. W P* W P* CALL:
0x2615a8…26173c Dummy {f00=0x00bb, f01=0x0190, f02=» P* X @ P************************************************************ X P* X R PNDSAV8 EQU * X " P* SAVE A3-A5, A7-A8 IN DWT X p P ST A3,DWTA3,A6 X P ST A4,DWTA4,A6 X P ST A5,DWTA5,A6 X P ST A7,DWTA7,A6 X P ST A8,DWTA8,A6 X
0x26173c…2618d0 Dummy {f00=0x00bb, f01=0x018e, f02=» EJECT X P* Y @ P************************************************************ Y P* Y P* ROUTINE NAME: Y f P* NDGET8 Y ~ P* Y P* FUNCTION: Y 8 P* THIS ROUTINE FETCHES REGISTERS A3, A4, A5, A7 AND Y " P* A8 FROM A SAVE AREA IN DWT. Y
0x2618d0…261a64 Dummy {f00=0x00bb, f01=0x018e, f02=» P* CR = CHANGED Z P* Z @ P************************************************************ Z & P* Z j PNDGET8 EQU * Z t " P* GET A3-A5, A7-A8 FROM DWT Z P LD A3,DWTA3,A6 Z P LD A4,DWTA4,A6 Z P LD A5,DWTA5,A6 Z P LD A7,DWTA7,A6 Z
0x261a64…261bf8 Dummy {f00=0x00bb, f01=0x0190, f02=» P XIF [ P* [ P EJECT [ P* [ ( @ P************************************************************ [ 2 P* [ v P* ROUTINE NAME: [ P* NDREWS [ P* [ P* FUNCTION: [ 8 P* THIS ROUTINE CALLS RECOVERY ROUTINES FOR ALL DWT:S [ : P* ON A
0x261bf8…261d8c Dummy {f00=0x00bb, f01=0x0190, f02=» P* INPUT: & P* A3 = WORK STATION TABLE ADDRESS P* A4 = RECOVERY CAUSE > P* A6 = WORK STATION NUMBER P* P* OUTPUT: ( P* AT ENTRY TO RECOVERY ROUTINE: P* SEE NDREDW P* AT SUBROUTINE RETURN: P* CR =
0x261d8c…261f20 Dummy {f00=0x00bb, f01=0x0190, f02=» EQU * P IFF NTONSU=0 U =1 ] P IFT CPU852=1 ] ( P CF A15,SAVE8 PUSH A1-A8 ] > P XIF ] ^ P IFF NTONSU=0 U =1 ] j P IFF CPU852=1 ] P MSR 8,A15 PUSH A1-A8 ] P XIF ] P IFF NTONSU=0 U =1 ] P* ] P EJECT ] P* ] P LDR A8,
0x261f20…2620b4 (1, 616) Dummy {f00=0x00bc, f01=0x0190, f02=»R SUK ] | P* ^ PRW100 EQU * ^ P SUK A7,1 NEXT DWT ^ , " P RF(N) RW120 EXIT IF ALL DONE ^ F " P LDR A6,A8 WORK STATION NUMBER ^ l * P LDR A1,A3 WORK STATION TABLE ADDRESS ^ $ P CF A15,NDGEDW A6 := DWT ADDRESS ^ P* ^ P LDR A6,A6 DWT DEFINED
0x2620b4…262248 Dummy {f00=0x00bc, f01=0x018e, f02=»CALL / DWT ^ t P* _ & P* CHECK IF OUTPUT ECHO DEVICE _ P LD A1,DWTST,A6 DWT STATUS _ F P LDR A2,A1 SAVE _ h P ANKL A1,DWFECH ECHO MODE? _ P RF(Z) RW110 NO, CONTINUE _ " P ANKL A2,DWFINP INPUT DEVICE? _ , P RB(Z) RW100 NO, ECHO OUTPUT.
0x262248…2623dc Dummy {f00=0x00bc, f01=0x018e, f02=» PRW120 EQU * ` P* ALL DWT:S HANDLED ` P ABL TDISP RETURN ` 6 P XIF U =1 ` P P* ` b P EJECT ` l P* ` z @ P************************************************************ ` P* ` P* ROUTINE NAME: ` P* NDREDW ` P* ` P* FU
0x2623dc…262570 Dummy {f00=0x00bc, f01=0x0190, f02=» < P* IF NO RECOVERY IS DEFINED, DWT IS BUSY BUT NO REQUEST a : P* IS ON, TENDIO IS CALLED TO ACTIVATE TERMINAL QUEUE. a D P* a P* CALL: a P* CF A15,NDREDW a P* a P* INPUT: a P* A4 = RECOVERY CAUSE a P* A6 = DWT ADDRESS a P
0x262570…262704 Dummy {f00=0x00bc, f01=0x018e, f02=» = DWT ADDRESS a P* A7 = BITS 0-9 ZERO b ( P* BITS 10-15 ORDER (IF REQUEST ON) b 6 & P* A8 = ECB ADDRESS IF REQUEST ON, b b P* ELSE ZERO b P* INTERR. ENABLED b P* AT SUBROUTINE RETURN: b P* CR = CHANGED b P* INTERR. CHANGE
0x262704…262898 Dummy {f00=0x00bc, f01=0x018e, f02=» b P IFT CPU852=1 c P CF A15,SAVE8 PUSH A1-A8 c P XIF c > P IFF CPU852=1 c J P MSR 8,A15 PUSH A1-A8 c ` P XIF c ~ P ENB c P* c P LDR A5,A6 DWT ADDRESS c P ADKL A5,DWTSB2 STACK BASE c P LC A7,DWTOR+1,A6 ORDER c P ANK A7,
0x262898…262a2c Dummy {f00=0x00bc, f01=0x0190, f02=» c n ( P ABR(NZ) A1 CALL RECOVERY IF DEFINED d P* d 4 P* d > : P* NO RECOVERY. CALL TENDIO IF BUSY BUT NO REQUEST d H P LD A2,DWTST,A6 DWT STATUS d P ANKL A2,DWFBSY BUSY? d P RF(NZ) RD100 NO, EXIT d P LDR A8,A8 REQUEST ON? d & P ABL(Z
0x262a2c…262bc0 Dummy {f00=0x00bc, f01=0x018e, f02=»**************************************** d | P* e 0 P* ROUTINE NAME: e : P* NDGEDN e R P* e b P* FUNCTION: e l 4 P* THIS ROUTINE CALCULATES THE HIGEST DWT NUMBER e 8 P* (POSITION NUMBER IN DWT TABLE) FOR A WORK STATION. e P* e P* CALL: e
0x262bc0…262d54 (1, 617) Dummy {f00=0x00bc, f01=0x0190, f02=» P* f P* OUTPUT: f $ P* A7 = HIGEST DWT NUMBER (0-7) f P* -1 IF NO DWT:S FOUND f H P* CR = CHANGED f h P* f @ P************************************************************ f P* f PNDGEDN EQU * f P IFF NTONSU=0 U =1 f P S
0x262d54…262ee8 Dummy {f00=0x00bc, f01=0x0190, f02=»A1 INDEX TOO HIGH? f P RF(NL) GN100 YES, EXIT g P* g : P EJECT g D P* g R P ADR A6,A1 g " P LDR* A6,A6 DWT ADDRESS TABLE g n " P RF(Z) GN100 NOT DEFINED, EXIT g P LD A7,-2,A6 TABLE LENGTH g P SUK A7,2 OFFSET TO LAST DWT g P SRA A7,
0x262ee8…26307c Dummy {f00=0x00bc, f01=0x018e, f02=» LDR* A6,A15 POP WS NUMBER g P IFT CPU852=1 h " P RB RTNP15 RETURN h 8 P XIF h R P IFF NTONSU=0 U =1 h ^ P IFF CPU852=1 h x P RTN A15 h P XIF h P* h P EJECT h P* h @ P************************************************************
0x26307c…263210 Dummy {f00=0x00bc, f01=0x0190, f02=» h ` P* A DEVICE. i P* i P* CALL: i & P* CF A15,NDGEDW i 6 P* i N P* INPUT: i X 2 P* A1 = ADDRESS OF WORK STATION TABLE (INTXXN) i h P* A6 = WORK STATION NUMBER i P* A7 = DEVICE ADDRESS i P* i P* OUTPUT: i P* A6 = DWT
0x263210…2633a4 Dummy {f00=0x00bc, f01=0x0190, f02=» i T P* j PNDGEDW EQU * j P IFF NTONSU=0 U =1 j & * P SLL A7,1 MAKE INDEX OF DEVICE ADDRESS j @ P LDR A1,A1 WS TABLE DEFINED? j n P RF(Z) GD100 NO, EXIT j * P SLL A6,1 INDEX IN WORK STATION TABLE j P CW A6,-2,A1 INSIDE TABLE? j P RF(NL)
0x2633a4…263538 Dummy {f00=0x00bc, f01=0x0190, f02=»FINED, EXIT j z P CW A7,-2,A6 INDEX TOO HIGH? k P RF(NL) GD100 YES, EXIT k 8 P ADR A6,A7 k X P LDR* A6,A6 DWT ADDRESS OR 0 k j P RF GD110 EXIT k P* k PGD100 EQU * k P LDK A6,0 DWT NOT FOUND k PGD110 EQU * k $ P SRL A7,1 RESTORE
0x263538…2636cc Dummy {f00=0x00bc, f01=0x4044, f02=»15 k P XIF l P* l P* l P* l * P END l 4@ l @0 YES, EXIT k 8 P ADR A6,A7 k X P LDR* A6,A6 DWT ADDRESS OR 0 k j P RF GD110 EXIT k P* k PGD100 EQU * k P LDK A6,0 DWT NOT FOUND k PGD110 EQU * k $ P SRL A7,1 RESTORE
0x2636cc…263860 Dummy {f00=0x00bc, f01=0x2008, f02=» m " " " " "("0"8"@
0x263860…2639f4 (1, 618) Dummy {f00=0x00bc, f01=0x0000, f02=»
[…0x7…]
0x264500…264694 (1, 619) Opaque[0x194]
0x264694…264828 # DirEnt {nam=»DRPL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2be0, f03=0x0000}
0x264694…264828 IdxSect {
0x264694…264828 f00 = 0x015f // 0x264694 @0x0
0x264694…264828 f01 = 0x005e // 0x264696 @0x2
0x264694…264828 gno = [ // 0x264698 @0x4
0x264694…264828 [0x00]: C0x015f.0x0.0
0x264694…264828 [0x01]: C0x015f.0x1.0
0x264694…264828 [0x02]: C0x015f.0x2.0
0x264694…264828 [0x03]: C0x015f.0x3.0
0x264694…264828 [0x04]: C0x0160.0x0.0
0x264694…264828 [0x05]: C0x0160.0x1.0
0x264694…264828 [0x06]: C0x0160.0x2.0
0x264694…264828 [0x07]: C0x0160.0x3.0
0x264694…264828 [0x08]: C0x0161.0x0.0
0x264694…264828 [0x09]: C0x0161.0x2.0
0x264694…264828 [0x0a]: C0x0161.0x3.0
0x264694…264828 [0x0b]: C0x0162.0x0.0
0x264694…264828 [0x0c]: C0x0162.0x1.0
0x264694…264828 [0x0d]: C0x0162.0x2.0
0x264694…264828 [0x0e]: C0x0162.0x3.0
0x264694…264828 [0x0f]: C0x0163.0x0.0
0x264694…264828 [0x10]: C0x0163.0x1.0
0x264694…264828 [0x11]: C0x0163.0x2.0
0x264694…264828 [0x12]: C0x0163.0x3.0
0x264694…264828 [0x13]: C0x0164.0x0.0
0x264694…264828 [0x14]: C0x0164.0x1.0
0x264694…264828 [0x15]: C0x0164.0x2.0
0x264694…264828 [0x16]: C0x0164.0x3.0
0x264694…264828 [0x17]: C0x0165.0x0.0
0x264694…264828 [0x18]: C0x0165.0x1.0
0x264694…264828 [0x19]: C0x0165.0x2.0
0x264694…264828 [0x1a]: C0x0165.0x3.0
0x264694…264828 [0x1b]: C0x0166.0x0.0
0x264694…264828 [0x1c]: C0x0166.0x1.0
0x264694…264828 [0x1d]: C0x0166.0x2.0
0x264694…264828 [0x1e]: C0x0166.0x3.0
0x264694…264828 [0x1f]: C0x0167.0x0.0
0x264694…264828 [0x20]: C0x0167.0x1.0
0x264694…264828 [0x21]: C0x0167.0x2.0
0x264694…264828 [0x22]: C0x0167.0x3.0
0x264694…264828 [0x23]: C0x0168.0x0.0
0x264694…264828 [0x24]: C0x0168.0x1.0
0x264694…264828 [0x25]: C0x0168.0x2.0
0x264694…264828 [0x26]: C0x0168.0x3.0
0x264694…264828 [0x27]: C0x0169.0x0.0
0x264694…264828 [0x28]: C0x0169.0x1.0
0x264694…264828 [0x29]: C0x0169.0x2.0
0x264694…264828 [0x2a]: C0x0169.0x3.0
0x264694…264828 [0x2b]: C0x016a.0x0.0
0x264694…264828 [0x2c]: C0x016a.0x1.0
0x264694…264828 [0x2d]: C0x016a.0x2.0
0x264694…264828 [0x2e]: C0x016a.0x3.0
0x264694…264828 ]
0x264694…264828 }
0x264828…2649bc Dummy {f00=0x015f, f01=0x0190, f02=» 2 P IDENT DRPL01 REL 11.0 81-05-27 870105041100 P : P =5,CORR. OF RWSI-CWT:S , B $ P OPEN LINE PROC. & COND. ASS. f P REL 11.0 81-05-22 P =4,CORR. OF CWT-DISPL. P REL 11.0 81-05-20 P =3,CORR. OF TIMER NAME
0x2649bc…264b50 Dummy {f00=0x015f, f01=0x0190, f02=» REL 11.0 81-01-26 ( P =1,OPEN LINE PARAM. AREA EXPANDED P PRR 11.0 80-11-19 F P* b P* l P* v P* @ P************************************************************ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 6
0x264b50…264ce4 Dummy {f00=0x015f, f01=0x0190, f02=» @ P************************************************************ P* H P* R 2 P* THIS PROGRAM HANDLES I/O OPERATIONS ON THE 0 P* PROCESSOR FOR LINE CONTROL (PLC). IT IS 0 P* CALLED FROM THE TERMINAL DEVICE DRIVERS. P* 2 P*
0x264ce4…264e78 Dummy {f00=0x015f, f01=0x018e, f02=»OCKING OF CHARACTERS t 4 P* IN DATA PACKETS ARE HANDLED BY THIS DRIVER. P* T P EJECT ^ P* l : P* THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. v 4 P* SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED 2 P* INTO ROUTINES. THE ROUTI
0x264e78…26500c Dummy {f00=0x015f, f01=0x0190, f02=» P* NAME FUNCTION P* & P* ENTRIES DECLARE ENTRY POINTS ( . P* EXTERNALS DECLARE EXTERNAL REFERENCES R 6 P* CONDITION SET CONDITIONAL ASSEMBLY PARAMETERS & P* CONSTANTS SET CONSTANT VALUES P* DATA DATA AREAS P*
0x26500c…2651a0 Dummy {f00=0x015f, f01=0x0190, f02=» AND RECOVERY j & P* DISPATCH LOCAL PLC DISPATCHER ( P* ROUTINE COMMON SERVICE ROUTINES @ , P* SUBROUTIN COMMON SERVICE SUBROUTINES l * P* TBUFF BUFFER HANDLING SUBROUTINES P* P EJECT P* P*********** P* ENTRIE
0x2651a0…265334 (1, 620) Dummy {f00=0x015f, f01=0x0190, f02=» START OF OUTPUT BLOCK | " P ENTRY PLCHRO CHARACTER OUTPUT , P ENTRY PLENBL DEFINE END OF OUTPUT BLOCK D " P ENTRY PLDISP LOCAL DISPATCHER t " P ENTRY PRCHRI CHR INP REMOTE , P ENTRY PRSTBL START OUTP BLOCK, REMOTE $ P ENTRY PRCHRO CHR OUTP.
0x265334…2654c8 Dummy {f00=0x015f, f01=0x018e, f02=» P ENTRY CWTPLC CWT TABLE $ P ENTRY GETDWT GET DWT SUBROUTINE $ P* L P* V P* INTERRUPTS ` P* x P ENTRY IHPL01 PLC NUMBER 0 P ENTRY IHPL02 PLC NUMBER 1 P ENTRY IHPL03 PLC NUMBER 2 P ENTRY IHPL04 PLC NUMBER 3
0x2654c8…26565c Dummy {f00=0x015f, f01=0x0190, f02=» & P ENTRY IHPR04 8,REMOTE P* . P* RECOVERY AT TC POWER UP 8 P* * P ENTRY PLON RECOVER ALL DEFINED PLC:S f P* P EJECT P* P************* P* EXTERNALS * P************* P* P* T
0x26565c…2657f0 Dummy {f00=0x015f, f01=0x0190, f02=»EXIT EXIT FROM MONITOR JOB $ P EXTRN GETBLK GET MONITOR BLOCK " & P EXTRN FREBLK RETURN MONITOR BLOCK J ( P EXTRN SAVE8 PUSH A1-A8 ON A15 STACK t P EXTRN SETIME SET TIMER P* DATA WORDS " P EXTRN PFPOST POWER FAIL FLAG , P EXTRN I
0x2657f0…265984 Dummy {f00=0x015f, f01=0x0190, f02=»8 IN DWT r , P EXTRN NDGET8 GET A3-A5, A7-A8 FROM DWT 2 P EXTRN NDREWS CALL RECOVERY FOR ALL DEV ON WS @ ( P EXTRN NDREDW CALL RECOVERY FOR DWT v . P EXTRN NDGEDN GET HIGEST DWT NUMBER ON WS " P EXTRN NDGEDW GET DWT ADDRESS P* P EJE
0x265984…265b18 Dummy {f00=0x015f, f01=0x0190, f02=»O OK & RETURN P EXTRN NDREP POP & RETURN P EXTRN NDRET RETURN 8 P* T P* ^ P* DWT DISPLACEMENTS h P* $ P EXTRN DWTCHP CHANNEL PARAMETERS P EXTRN DWTST STATUS FLAGS $ P EXTRN DWTOR ORDER (RIGHT BYTE) . P EXTRN
0x265b18…265cac Dummy {f00=0x015f, f01=0x0190, f02=»WTLD1 PLC INPUT/OUTPUT BUFFER ADDR , P EXTRN DWTLD2 PLC FLOW CONTROL COUNTERS * 0 P EXTRN DWTTBU PLC TEST COMMANDS BUFFER ADDR Z 2 P EXTRN DWTTLN PLC TEST COMMANDS BUFFER LENGTH 2 P EXTRN DWTTCW PLC TEST COMMANDS SPECIAL PARAM P* P EJE
0x265cac…265e40 Dummy {f00=0x015f, f01=0x0190, f02=»3 ~ P EXTRN INTPL4 PLC 4 P* & P EXTRN INTPR1 REMOTE 0 P EXTRN INTPR2 REMOTE L P EXTRN INTPR3 REMOTE h P EXTRN INTPR4 REMOTE P* P* MISCELLANEOUS P* 6 P EXTRN INTADR INTERRUPT ADDR IN DRIVER ADDR BLOCK P
0x265e40…265fd4 (1, 621) Dummy {f00=0x015f, f01=0x0190, f02=» P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. H P* z PCPU852 EQU 1 P* P* D P* PLCNRL DEFINES NUMBER OF LOCAL PLC:S ACTUALLY CONNECTED (0-4) P* PX:A EQU 1
0x265fd4…266168 Dummy {f00=0x015f, f01=0x0190, f02=» PPLCNRR EQU X:B P* P* $ P EJECT . P* < P************* F P* CONSTANTS * P************* r P* $ P* SYSTEM PARAMETER DEFINITION P* , P* LEVEL 3 FLOW CONTROL WINDOW SIZE (1-7) PWINDOW EQU 2 P
0x266168…2662fc Dummy {f00=0x015f, f01=0x0190, f02=»START. (IN 100 MS) h PSTADLY EQU 100 10 SECONDS P* < B P* LENGTH OF USER PART OF SHORT OUTPUT BUFFER IN WORDS (1-128) F PSOBUFU EQU 3 P* B P* LENGTH OF USER PART OF GENERAL READ BUFFER IN WORDS (1-128) PGRBUFU EQU 70 P*
0x2662fc…266490 Dummy {f00=0x015f, f01=0x0190, f02=»ED Z P* BY THIS DRIVER. P* $ PPLCTST EQU 0 . P* B P* L D P* A TEST VERSION OF THE DRIVER IS OBTAINED BY SETTING UTTEST><0 V @ P* IF UTTEST=1 THE TEST CODE IS INCLUDUD BUT TRAP IS NOT USED < P* IF UTTEST=2 THE TEST CODE IS INCLUDE
0x266490…266624 Dummy {f00=0x015f, f01=0x0190, f02=»FOR EACH PLC (1-6) P* PLOBUFN EQU 3 $ P* 8 P* B 6 P* LOBUFU IS THE LENGTH OF THE USER PART OF A LONG L $ P* OUTPUT BUFFER IN WORDS (1-128) P* PLOBUFU EQU 70 P* P EJECT P* " P* HARDWARE INTERRUPT
0x266624…2667b8 Dummy {f00=0x015f, f01=0x0190, f02=»INTLV1 EQU 27 PLC NUMBER 2 PINTLV2 EQU 24 PLC NUMBER 3 " PINTLV3 EQU 25 PLC NUMBER 4 D & PINTRV0 EQU 18 PLC NUMBER 5, REMOTE f & PINTRV1 EQU 19 6, REMOTE & PINTRV2 EQU 20 7, REMOTE & PINTRV3 EQU 21 8, REMOTE
0x2667b8…26694c Dummy {f00=0x015f, f01=0x0190, f02=»26 PLC 3 PPLCDA3 EQU /27 PLC 4 PPLCDA4 EQU /3A PLC 5 , PPLCDA5 EQU /3B PLC 6 H PPLCDA6 EQU /2A PLC 7 d PPLCDA7 EQU /2B PLC 8 P* P EJECT P* * P* BUFFER AREA PARAMETER DEFINITION P* . PHEADLW EQU 4 BUFFE
0x26694c…266ae0 Dummy {f00=0x015f, f01=0x0190, f02=» P* P* LONG OUTPUT BUFFERS : PLOBUF1 EQU SYSTLW+LOBUFU LENGTH OF ONE BUFFER (WORDS) 0 & PLOBUF2 EQU LOBUF1+LOBUF1 2 BUFFERS n PLOBUF3 EQU LOBUF2+LOBUF1 PLOBUF4 EQU LOBUF3+LOBUF1 PLOBUF5 EQU LOBUF4+LOBUF1 PLOBUF6 EQU LOBUF
0x266ae0…266c74 (1, 622) Dummy {f00=0x015f, f01=0x0190, f02=»QU LOBUF2 LENGTH OF BUFFER AREA (WORDS) P XIF 0 P IFT LOBUFN=3 < 4 PLOBUFS EQU LOBUF3 LENGTH OF BUFFER AREA (WORDS) R P XIF P IFT LOBUFN=4 4 PLOBUFS EQU LOBUF4 LENGTH OF BUFFER AREA (WORDS) P XIF P IFT LOBUFN=5 4 PLO
0x266c74…266e08 Dummy {f00=0x015f, f01=0x0190, f02=» ` P XIF P* P EJECT P* , P* SHORT OUTPUT BUFFERS 6 : PSOBUF1 EQU SYSTLW+SOBUFU LENGTH OF ONE BUFFER (WORDS) Z & PSOBUF2 EQU SOBUF1+SOBUF1 2 BUFFERS PSOBUF4 EQU SOBUF2+SOBUF2 PSOBUF8 EQU SOBUF4+SOBUF4 4 PSOBUFS
0x266e08…266f9c Dummy {f00=0x015f, f01=0x0190, f02=»UFFER (WORDS) h PGRBUF2 EQU GRBUF1+GRBUF1 4 PGRBUFS EQU GRBUF2 LENGTH OF BUFFER AREA (WORDS) 6 P* n 2 P* LENGTHS OF USER PART OF BUFFERS (BYTES) x 2 PSOBUFL EQU SOBUFU+SOBUFU SHORT OUTPUT BUFFERS 0 PLOBUFL EQU LOBUFU+LOBUFU LONG OUTPUT
0x266f9c…267130 Dummy {f00=0x015f, f01=0x0190, f02=»CCR) LAYOUT p P* ( PCCRDLS EQU 0 DATA LINK STATION INDEX PCCRCMD EQU 1 COMMAND CODE J " PCCRSU1 EQU 2 SUBCOMMAND BYTE 1 l " PCCRSU2 EQU 3 SUBCOMMAND BYTE 2 PCCRSUB EQU 2 SUBCOMMAND WORD PCCRSTA EQU 4 STATUS WORD & PCCRIDB EQU 7
0x267130…2672c4 Dummy {f00=0x015f, f01=0x0190, f02=»HAINING CTRL & MSB BUFFER ADDR | PCCRBUF EQU 14 BUFFER ADDRESS & P* J P* T P* BUFFER LAYOUT ^ P* x P* HEADER LENGTH , PBUFHLN EQU HEADLW+HEADLW LENGTH (BYTES) P* HEADER LAYOUT PBUFLNK EQU -8 FREE LIST LINK
0x2672c4…267458 Dummy {f00=0x015f, f01=0x0190, f02=» FIELD LAYOUT ~ . PX25LGN EQU 0 LOGICAL CHANNEL GROUP NUMBER ( PX25LCN EQU 1 LOGICAL CHANNEL NUMBER H * PX25FLW EQU 2 FLOW CONTROL INFORMATION t $ PX25DAT EQU 3 START OF USER DATA P* P EJECT P* P* PLC COMMAND CODES
0x267458…2675ec Dummy {f00=0x015f, f01=0x018e, f02=» STATISTICS z $ PCMDDS EQU /83 GET DLS STATISTICS $ PCMDRM EQU /87 READ LOCAL MEMORY < PCMDSW EQU /40 STANDARD WRITE d PCMDFW EQU /41 FAST WRITE PCMDGR EQU /20 GENERAL READ P* P* ( P* APPLICATION TEST COMMAND CODES
0x2675ec…267780 Dummy {f00=0x015f, f01=0x0190, f02=» P* P* MESSAGE TYPES P* ( & PTYERR EQU 0 ILLEGAL TYPE OR ERROR 2 2 PTYNFLO EQU 2 DATA PACKET WITH NO FLOW CONTROL & PTYSTAT EQU 4 DEVICE STATUS MESSAGE $ PTYDATA EQU 6 NORMAL DATA PACKET $ PTYRR EQU 8 RECIEVE READY PACKET
0x267780…267914 (1, 623) Dummy {f00=0x0160, f01=0x018e, f02=»FLAGS (DWTST) P* $ PDWFBSY EQU /8000 DEVICE NOT BUSY PDWFECH EQU /2000 ECHO MODE H $ PDWFINP EQU /0020 INPUT REQUESTED j * PDWFRES EQU /0008 RESET SEQUENCE ACTIVE , PDWFAK3 EQU /0004 WAITING FOR LEVEL 3 ACK & PDWFPLC EQU DWFRES+DWFAK3
0x267914…267aa8 Dummy {f00=0x0160, f01=0x0190, f02=» " P* PLC STATUS FLAGS (CCRSTA) P* * " PSTANOC EQU /0001 NO CONNECTION 4 PSTALIR EQU /0004 LINK RESET Z & PSTADNO EQU /1000 DCE NOT OPERABLE ~ " PSTAE1 EQU STANOC+STALIR DUMMY 2 PSTAERR EQU STAE1+STADNO ERROR IN COMMUNICATION P*
0x267aa8…267c3c Dummy {f00=0x0160, f01=0x0190, f02=»QU /0080 COMMUNICATION REESTABLISHED $ PSTASEQ EQU /0010 SEQUENCE ERROR , $ PSTAILL EQU /0008 ILLEGAL LENGTH T PSTALER EQU /0002 LINK ERROR | P* P EJECT P* " P* WORK STATION STATUS FLAGS P* & PWSFERR EQU /01 COMMUNI
0x267c3c…267dd0 Dummy {f00=0x0160, f01=0x0190, f02=»MASKWS EQU /3F WORK STATION NUMBER (1-32 USED) . PMASKLC EQU /3F LOGICAL CHANNEL (0-7 USED) ! 6 P* ! h P* ! r P* RETURN CODES ! | P* ! P* AT REQUEST RETURN ! " PNOTOPR EQU /0001 NOT OPERABLE ! PLINERR EQU /0004 LINK ERROR ! $
0x267dd0…267f64 Dummy {f00=0x0160, f01=0x018e, f02=» POWER UP ! v PRELINE EQU /0004 LINK ERROR " P* " 6 P* " @ P* MISCELLANEOUS " J P* " d * PPLCERR EQU /F1 SOP ERROR CODE AT TRAP " n 0 PCIDINT EQU 8 OFFSET TO INTERRUPT DESCRIPTOR " 2 PMAXFR EQU 4 MAX OUTSTANDING FRAMES ON LEVEL 2 " P*
0x267f64…2680f8 Dummy {f00=0x0160, f01=0x0190, f02=» P* # PCWTPLC EQU * # PTABCWT EQU * # " P IFF PLCNRL=0 # 6 " P DATA PL0CWT CWT FOR PLC NR 1 # L P IFF PLCNRL=1 # r " P DATA PL1CWT CWT FOR PLC NR 2 # P IFF PLCNRL=2 # " P DATA PL2CWT CWT FOR PLC NR 3 # P IFF PLCNRL=3 # " P DATA PL
0x2680f8…26828c Dummy {f00=0x0160, f01=0x018e, f02=»ATA 0 PLC NR 3 NOT CONNECTED # P IFF PLCNRL=2 $ $ " P DATA 0 PLC NR 2 NOT CONNECTED $ : P IFF PLCNRL=1 =5 $ ` & P DATA 0 PLC NR 1 NOT CONNECTED =5 $ z P XIF $ P* $ P IFF PLCNRR=0 $ ( P DATA PR1CWT CWT FOR PLC NR. 5, REM. $ P IFF PLCNRR=
0x26828c…268420 Dummy {f00=0x0160, f01=0x0190, f02=» $ ( P DATA PR4CWT CWT FOR PLC NR. 8, REM. % P XIF % 4 P* % @ P IFF PLCNRR=4 % J " P DATA 0 PLC NR 8 NOT CONNECTED % ` P IFF PLCNRR=3 % " P DATA 0 PLC NR 7 NOT CONNECTED % P IFF PLCNRR=2 % " P DATA 0 PLC NR 6 NOT CONNECTED % P IFF PLCNR
0x268420…2685b4 (1, 624) Dummy {f00=0x0160, f01=0x0190, f02=»R=0 U =5 % P DATA OPNR10 LINE 0 & P DATA OPNR11 LINE 1 & , P DATA OPNR12 LINE 2 & H P DATA OPNR13 LINE 3 & d P XIF & POPARR2 EQU * & P IFF PLCNRR=0 U =5 & P IFF PLCNRR=1 U =5 & P DATA OPNR20 LINE 0 & P DATA OPNR21 LINE 1 &
0x2685b4…268748 Dummy {f00=0x0160, f01=0x018e, f02=» & ~ P IFF PLCNRR=2 U =5 ' P DATA OPNR30 LINE 0 ' " P DATA OPNR31 LINE 1 ' > P DATA OPNR32 LINE 2 ' Z P DATA OPNR33 LINE 3 ' v P XIF ' POPARR4 EQU * ' P IFF PLCNRR=0 U =5 ' P IFF PLCNRR=1 U =5 ' P IFF PLCNRR=2 U =5 ' P IFF PLC
0x268748…2688dc Dummy {f00=0x0160, f01=0x0190, f02=» ' P* ( POPARL1 EQU * U =5 ( P DATA OPNL10 LOCAL PLC 1 =5 ( , POPARL2 EQU * U =5 ( P P DATA OPNL20 LOCAL PLC 2 =5 ( j POPARL3 EQU * U =5 ( P DATA OPNL30 LOCAL PLC 3 =5 ( POPARL4 EQU * U =5 ( P DATA OPNL40 LOCAL PLC 4 =5 (
0x2688dc…268a70 Dummy {f00=0x0160, f01=0x0190, f02=»LL DUPLEX ( P* 96000 BITS/SEC ) P* NO NRZI ENCODING ) * P* 5 RETRANSMISSIONS ) D P* 5 MIN. TIME OUT ) ` P* ) z P* ) $ POPNL40 EQU * LOCAL PLC 4, LINE 0 ) P IFF PLCNRL=0 ) P IFF PLCNRL=1 ) P IFF PLCNRL=2 ) P IFF PLCNRL=3 )
0x268a70…268c04 Dummy {f00=0x0160, f01=0x0190, f02=» ) P IFF PLCNRL=2 * , P DATA /0101,/A000,/0D05,TIMACT,0,0 U =3 * P XIF * N $ POPNL20 EQU * LOCAL PLC 2, LINE 0 * Z P IFF PLCNRL=0 * P IFF PLCNRL=1 * & P DATA /0101,/A000,/0D05,TIMACT,0,0 * P XIF * $ POPNL10 EQU * LOCAL PLC 1, LINE 0 *
0x268c04…268d98 Dummy {f00=0x0160, f01=0x018e, f02=» * P EJECT + P* + ( P* OPEN LINE PARAMETER AREAS, REMOTE + P* + L P* STANDARD AREAS : + V P* PRIMARY STATION + r P* FULL DUPLEX + P* 2400 BITS/SEC + P* NO NRZI ENCODING + P* POLLING 13HZ + P* 5 RETRANSMISSIONS + P*
0x268d98…268f2c Dummy {f00=0x0160, f01=0x0190, f02=» P IFF PLCNRR=2 , P IFF PLCNRR=3 , * P DATA /0103,/0400,/0D05,TIMACT,/0108,0 , 0 P XIF , ^ POPNR41 EQU * LINE 1 , j P IFF PLCNRR=0 , P IFF PLCNRR=1 , P IFF PLCNRR=2 , P IFF PLCNRR=3 , * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 ,
0x268f2c…2690c0 Dummy {f00=0x0160, f01=0x018e, f02=»A /0103,/0400,/0D05,TIMACT,/0B08,0 , P XIF - * POPNR43 EQU * LINE 3 - 6 P IFF PLCNRR=0 - R P IFF PLCNRR=1 - h P IFF PLCNRR=2 - ~ P IFF PLCNRR=3 - * P DATA /0103,/0400,/0D05,TIMACT,/1308,0 - P XIF - P* REMOTE PLC 3 - POPNR30 EQU * L
0x2690c0…269254 (1, 625) Dummy {f00=0x0160, f01=0x018e, f02=» POPNR31 EQU * LINE 1 . P IFF PLCNRR=0 . P IFF PLCNRR=1 . 6 P IFF PLCNRR=2 . L * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 . b P XIF . POPNR32 EQU * LINE 2 . P IFF PLCNRR=0 . P IFF PLCNRR=1 . P IFF PLCNRR=2 . * P DATA /0103,/0
0x269254…2693e8 Dummy {f00=0x0160, f01=0x0190, f02=» * P DATA /0103,/0400,/0D05,TIMACT,/1308,0 / P XIF / 2 P* / > P* REMOTE PLC 2 / H POPNR20 EQU * LINE 0 / ^ P IFF PLCNRR=0 / z P IFF PLCNRR=1 / * P DATA /0103,/0400,/0D05,TIMACT,/0108,0 / P XIF / POPNR21 EQU * LINE 1 / P IFF PLCNRR=
0x2693e8…26957c Dummy {f00=0x0160, f01=0x0190, f02=» P IFF PLCNRR=1 0 * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 0 P XIF 0 H POPNR23 EQU * LINE 3 0 T P IFF PLCNRR=0 0 p P IFF PLCNRR=1 0 * P DATA /0103,/0400,/0D05,TIMACT,/1308,0 0 P XIF 0 P* 0 P* REMOTE PLC 1 0 POPNR10 EQU * LINE
0x26957c…269710 Dummy {f00=0x0160, f01=0x0190, f02=» * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 1 P XIF 1 2 POPNR12 EQU * LINE 2 1 > P IFF PLCNRR=0 1 Z * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 1 p P XIF 1 POPNR13 EQU * LINE 3 1 P IFF PLCNRR=0 1 * P DATA /0103,/0400,/0D05,TIMACT,/1308,0 1
0x269710…2698a4 Dummy {f00=0x0160, f01=0x0190, f02=» IFF UTTEST=0 TEST VERSION OF DRIVER 1 P* 2 , P EJECT 2 6 P* 2 D ( PUTTST DATA UTTEST 1 = TRAP NOT USED 2 N P* 2 z P* 2 " P* QUEUE STATISTICS COUNTERS 2 & P* EACH COUNTER HAS ONE WORD / PLC 2 P* 2 PSTATAR EQU * 2 PWIQSTA RES 8
0x2698a4…269a38 Dummy {f00=0x0160, f01=0x0190, f02=»LN EQU *-STATAR TABLE LENGTH 2 P* 3 $ P XIF 3 . P EJECT 3 : P* 3 H P* 3 R P* CWT DISPLACEMENTS 3 P* 3 z PCWTOPR EQU /00 CU OPERABLE 3 PCWTCCB EQU /02 CCA BUSY 3 ( PCWTGR EQU /04 GENERAL READ ALLOWED 3 " PCWTPNR EQU /06 CU NUMB
0x269a38…269bcc Dummy {f00=0x0160, f01=0x0190, f02=»TPAR EQU /0E INDEX TO PARAMETER AREA 3 6 PCWTOPP EQU /10 OPEN LINE PARAMETER AREA ADDRESS =2 4 . $ PCWTINT EQU /12 WS TABLE ADDRESS 4 h ( PCWTBUF EQU /14 INP. BUFFER ADDRESS 4 2 PCWTSBQ EQU /16 QUEUE FOR SHORT OUTP. BUFFERS 4 0 PCWTLBQ EQU /18 QUEUE F
0x269bcc…269d60 Dummy {f00=0x0160, f01=0x0190, f02=» /1E TIMER POINTER 4 $ PCWTCIO EQU /20 CIO START INSTR. 5 PCWTST3 EQU /22 SST INSTR. 5 D . PCWTCSD EQU /24 CTRL UNIT START DESCRIPTOR 5 f , PCWTCID EQU /2A CTRL UNIT INTERF. DESCR. 5 & PCWTCCA EQU /34 COMMAND CTRL AREA 5 & PCWTRCA EQU /44 RESPONS
0x269d60…269ef4 (1, 626) Dummy {f00=0x0160, f01=0x018e, f02=»68 POOLBL. GENERAL READ BUFFERS 5 PCWTWSS EQU /72 WS STATUS 6 ( 4 PCWTSOB EQU MAXWS+MAXWS+/74 SH. OUTP. BUFFERS =4 6 J 0 PCWTLOB EQU CWTSOB+SOBUFS LONG OUTP. BUFFERS 6 . PCWTGRB EQU CWTLOB+LOBUFS GEN. READ BUFFERS 6 P EJECT 6 P* 6 P IFF PLC
0x269ef4…26a088 Dummy {f00=0x0160, f01=0x0190, f02=» 6 v " P DATA 0 CCA BUSY FLAG (0=FREE) 7 , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) 7 . P* 7 ^ P* DATA WORDS 7 h P DATA 0 PLC NUMBER (0-3) 7 . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) 7 " P DATA 0 LATEST PLC RCA STATUS 7 P DATA 0 LINE N
0x26a088…26a21c Dummy {f00=0x0160, f01=0x0190, f02=»ER AREA ADDR 7 r , P DATA INTPL1 WORK STATION TABLE ADDRESS 8 P DATA 0 INPUT BUFFER ADDRESS 8 D * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER 8 h ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER 8 P DATA 0 QUEUE FOR CCA FREE 8 . P DATA 0 QUEUE OF ALLOCATED MONITOR B
0x26a21c…26a3b0 Dummy {f00=0x0160, f01=0x0190, f02=» 8 l 2 P SST A3,PLCDA0 RELEASE RCA AND RESET INTERRUPT 9 P* 9 > P* PLC CONTROL AREAS 9 H . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) 9 h P DATA 0 DUMMY & MSB ADDRESS 9 $ P DATA PL0CWT+CWTCID CID ADDRESS 9 P DATA INTLV0 INTERRUPT LEVEL 9 2
0x26a3b0…26a544 Dummy {f00=0x0160, f01=0x0190, f02=»A 0 DUMMY & MSB ADDRESS 9 $ P DATA PL0CWT+CWTRCA RCA ADDRESS : $ P DATA 0 INTERRUPT SPECIFICATION : H P RES 8 COMMAND CONTROL AREA : p P RES 8 RESPONSE CONTROL AREA : P* : P* POOLBLOCKS : P DATA 'SO',0 ID & FLAGS : 4 P DATA 0,SOBU
0x26a544…26a6d8 Dummy {f00=0x0160, f01=0x0190, f02=»ATA LOBUFS+LOBUFS : P DATA 'GR',0 ; P DATA 0,GRBUF1+GRBUF1 ; . P DATA GRBUFS+GRBUFS ; L P* ; h 2 P* WORK STATION STATUS WORDS. 1 WORD / WS ; r 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. ; P* ; P* BUFFER AREAS ; $ P RES
0x26a6d8…26a86c Dummy {f00=0x0160, f01=0x0190, f02=» XIF ; P IFF PLCNRL=1 < P* < " P EJECT < , P* < : P* CWT FOR PLC NUMBER 2 < D P* < f PPL1CWT EQU * < p P* < P* FLAGS < P RES 1 PLC OPERABLE FLAG < " P DATA 0 CCA BUSY FLAG (0=FREE) < , P DATA 1 GENERAL READ ALLOWED (0=
0x26a86c…26aa00 Dummy {f00=0x0160, f01=0x0190, f02=»ATA 0 LATEST PLC RCA STATUS < P DATA 0 LINE NO INDICATOR = $ $ P DATA 0 INDEX TO PARAMETER AREA = F P* = n $ P* POINTERS AND QUEUE HEADS = x . P DATA OPARL2 OPEN LINE PARAMETER AREA ADDR = , P DATA INTPL2 WORK STATION TABLE ADDRESS = P DATA
0x26aa00…26ab94 (1, 627) Dummy {f00=0x0161, f01=0x0190, f02=»R CCA FREE = . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS > , P DATA 0 TIMER POINTER FOR RESTART DELAY > D P* > t P* INSTRUCTIONS > ~ ( P CIO A3,1,PLCDA1 START I/O OPERATION > 2 P SST A3,PLCDA1 RELEASE RCA AND RESET INTERRUPT > P* > P*
0x26ab94…26ad28 Dummy {f00=0x0161, f01=0x0190, f02=»CID ADDRESS > | P DATA INTLV1 INTERRUPT LEVEL ? 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) ? 8 P DATA 0 DUMMY & MSB ADDRESS ? n $ P DATA PL1CWT+CWTCCA CCA ADDRESS ? P DATA 0 DUMMY & MSB ADDRESS ? $ P DATA PL1CWT+CWTRCA RCA ADDRESS ? $ P D
0x26ad28…26aebc Dummy {f00=0x0161, f01=0x0190, f02=»S (5 WORDS / BLOCK) ? , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS @ 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH @ L $ P DATA SOBUFS+SOBUFS AREA LENGTH @ $ P DATA 'LO',0 ID = "LONG OUTPUT" @ P DATA 0,LOBUF1+LOBUF1 @ P DATA LOBUFS+LOBUFS @
0x26aebc…26b050 Dummy {f00=0x0161, f01=0x0190, f02=»ATUS WORDS. 1 WORD / WS @ z 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. A P* A V P* BUFFER AREAS A ` $ P RES SOBUFS SHORT OUTPUT BUFFERS A | $ P RES LOBUFS LONG OUTPUT BUFFERS A $ P RES GRBUFS GENERAL READ BUFFERS A P* A P* A P
0x26b050…26b1e4 Dummy {f00=0x0161, f01=0x0190, f02=» FLAGS A P RES 1 PLC OPERABLE FLAG B " P DATA 0 CCA BUSY FLAG (0=FREE) B . , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) B T P* B P* DATA WORDS B P DATA 2 PLC NUMBER (0-3) B . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) B " P DATA 0 LATEST
0x26b1e4…26b378 Dummy {f00=0x0161, f01=0x018e, f02=»ADS B t . P DATA OPARL3 OPEN LINE PARAMETER AREA ADDR C , P DATA INTPL3 WORK STATION TABLE ADDRESS C > P DATA 0 INPUT BUFFER ADDRESS C n * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER C ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER C P DATA 0 QUEUE FOR CCA FREE C
0x26b378…26b50c Dummy {f00=0x0161, f01=0x0190, f02=» C z ( P CIO A3,1,PLCDA2 START I/O OPERATION D 2 P SST A3,PLCDA2 RELEASE RCA AND RESET INTERRUPT D 4 P* D j P* PLC CONTROL AREAS D t . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) D P DATA 0 DUMMY & MSB ADDRESS D $ P DATA PL2CWT+CWTCID CID ADDRES
0x26b50c…26b6a0 Dummy {f00=0x0161, f01=0x0190, f02=» DATA PL2CWT+CWTCCA CCA ADDRESS D P DATA 0 DUMMY & MSB ADDRESS E ( $ P DATA PL2CWT+CWTRCA RCA ADDRESS E L $ P DATA 0 INTERRUPT SPECIFICATION E t P RES 8 COMMAND CONTROL AREA E P RES 8 RESPONSE CONTROL AREA E P* E ( P* POOLBLOCKS (5 WORDS
0x26b6a0…26b834 (1, 628) Dummy {f00=0x0161, f01=0x0190, f02=»OBUFS AREA LENGTH E $ P DATA 'LO',0 ID = "LONG OUTPUT" F P DATA 0,LOBUF1+LOBUF1 F B P DATA LOBUFS+LOBUFS F ` $ P DATA 'GR',0 ID = "GENERAL READ" F | P DATA 0,GRBUF1+GRBUF1 F P DATA GRBUFS+GRBUFS F P* F 2 P* WORK STATION STATUS WORDS
0x26b834…26b9c8 Dummy {f00=0x0161, f01=0x0190, f02=»UT BUFFERS F z $ P RES LOBUFS LONG OUTPUT BUFFERS G $ P RES GRBUFS GENERAL READ BUFFERS G : P* G b P* G l P IFF PLCNRL=3 G v P* G P EJECT G P* G P* CWT FOR PLC NUMBER 4 G P* G PPL3CWT EQU * G P* G P* FLAGS G
0x26b9c8…26bb5c Dummy {f00=0x0161, f01=0x0190, f02=» DATA WORDS G P DATA 3 PLC NUMBER (0-3) H . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) H 6 " P DATA 0 LATEST PLC RCA STATUS H h P DATA 0 LINE NO INDICATOR H $ P DATA 0 INDEX TO PARAMETER AREA H P* H $ P* POINTERS AND QUEUE HEADS H .
0x26bb5c…26bcf0 Dummy {f00=0x0161, f01=0x0190, f02=» DATA 0 QUEUE FOR SHORT OUTPUT BUFFER H ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER I . P DATA 0 QUEUE FOR CCA FREE I Z . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS I | , P DATA 0 TIMER POINTER FOR RESTART DELAY I P* I P* INSTRUCTIONS I ( P CIO
0x26bcf0…26be84 Dummy {f00=0x0161, f01=0x0190, f02=»* CONTROL UNIT START DESCRIPTOR (3 WORDS) I P DATA 0 DUMMY & MSB ADDRESS J 2 $ P DATA PL3CWT+CWTCID CID ADDRESS J V P DATA INTLV3 INTERRUPT LEVEL J ~ 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) J P DATA 0 DUMMY & MSB ADDRESS J $ P DATA PL3CWT
0x26be84…26c018 Dummy {f00=0x0161, f01=0x0190, f02=» J p P RES 8 COMMAND CONTROL AREA K P RES 8 RESPONSE CONTROL AREA K , P* K P ( P* POOLBLOCKS (5 WORDS / BLOCK) K Z , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS K 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH K $ P DATA SOBUFS+SOBUFS AREA L
0x26c018…26c1ac Dummy {f00=0x0161, f01=0x0190, f02=»AL READ" K x P DATA 0,GRBUF1+GRBUF1 L P DATA GRBUFS+GRBUFS L . P* L J 2 P* WORK STATION STATUS WORDS. 1 WORD / WS L T 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. L P* L P* BUFFER AREAS L $ P RES SOBUFS SHORT OUTPUT BUFFERS L
0x26c1ac…26c340 Dummy {f00=0x0161, f01=0x0190, f02=» L P* M $ P* CWT FOR PLC NUMBER 5 REMOTE M P* M : PPR1CWT EQU * M D P* M X P* FLAGS M b P RES 1 PLC OPERABLE FLAG M v " P DATA 0 CCA BUSY FLAG (0=FREE) M , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) M P* M P* DATA WORDS
0x26c340…26c4d4 (1, 629) Dummy {f00=0x0161, f01=0x0190, f02=»A 0 LINE NO INDICATOR M $ P DATA 0 INDEX TO PARAMETER AREAS N P* N F $ P* POINTERS AND QUEUE HEADS N P 4 P DATA OPARR1 OPEN LINE PARAMETER AREA ADDRESSES N x , P DATA INTPR1 WORK STATION TABLE ADDRESS N P DATA 0 INPUT BUFFER ADDRESS N * P DAT
0x26c4d4…26c668 Dummy {f00=0x0161, f01=0x0190, f02=» ALLOCATED MONITOR BLOCKS N , P DATA 0 TIMER POINTER FOR RESTART DELAY O " P* O R P* INSTRUCTIONS O ( P CIO A3,1,PLCDA4 START I/O OPERATION O x 2 P SST A3,PLCDA4 RELEASE RCA AND RESET INTERRUPT O P* O P* PLC CONTROL AREAS O . P* CO
0x26c668…26c7fc Dummy {f00=0x0161, f01=0x0190, f02=»NTERRUPT LEVEL O 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) P P DATA 0 DUMMY & MSB ADDRESS P L $ P DATA PR1CWT+CWTCCA CCA ADDRESS P p P DATA 0 DUMMY & MSB ADDRESS P $ P DATA PR1CWT+CWTRCA RCA ADDRESS P $ P DATA 0 INTERRUPT SPECIFICATION P
0x26c7fc…26c990 Dummy {f00=0x0161, f01=0x0190, f02=»'SO',0 ID = "SHORT OUTPUT" & FLAGS P 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH Q * $ P DATA SOBUFS+SOBUFS AREA LENGTH Q b $ P DATA 'LO',0 ID = "LONG OUTPUT" Q P DATA 0,LOBUF1+LOBUF1 Q P DATA LOBUFS+LOBUFS Q $ P DATA 'GR',0 ID = "GENERAL R
0x26c990…26cb24 Dummy {f00=0x0161, f01=0x0190, f02=»ES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. Q P* R 4 P* BUFFER AREAS R > $ P RES SOBUFS SHORT OUTPUT BUFFERS R Z $ P RES LOBUFS LONG OUTPUT BUFFERS R $ P RES GRBUFS GENERAL READ BUFFERS R P* R P* R P EJECT R P IFF PLCNRR=1 R
0x26cb24…26ccb8 Dummy {f00=0x0161, f01=0x0190, f02=» R x " P DATA 0 CCA BUSY FLAG (0=FREE) S , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) S . P* S ^ P* DATA WORDS S h P DATA 5 PLC NUMBER (4-7) =5 S . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) S " P DATA 0 LATEST PLC RCA STATUS S P DATA 0 LI
0x26ccb8…26ce4c Dummy {f00=0x0161, f01=0x0190, f02=»N LINE PARAMETER AREA ADDRESSES S , P DATA INTPR2 WORK STATION TABLE ADDRESS T ( P DATA 0 INPUT BUFFER ADDRESS T X * P DATA 0 QUEUE FOR SHORT OUTPUT BUFFER T | ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER T P DATA 0 QUEUE FOR CCA FREE T . P DATA 0 QUEUE OF
0x26ce4c…26cfe0 Dummy {f00=0x0161, f01=0x0190, f02=» START I/O OPERATION T 2 P SST A3,PLCDA5 RELEASE RCA AND RESET INTERRUPT U P* U R P* PLC CONTROL AREAS U . P* CONTROL UNIT START DESCRIPTOR (3 WORDS) U | P DATA 0 DUMMY & MSB ADDRESS U $ P DATA PR2CWT+CWTCID CID ADDRESS U P DATA INTRV1 I
0x26cfe0…26d174 (1, 630) Dummy {f00=0x0162, f01=0x018e, f02=»ADDRESS U x P DATA 0 DUMMY & MSB ADDRESS V $ P DATA PR2CWT+CWTRCA RCA ADDRESS V 4 $ P DATA 0 INTERRUPT SPECIFICATION V P RES 8 COMMAND CONTROL AREA V P RES 8 RESPONSE CONTROL AREA V P* V ( P* POOLBLOCKS (5 WORDS / BLOCK) V , P DATA
0x26d174…26d308 Dummy {f00=0x0162, f01=0x0190, f02=» $ P DATA 'LO',0 ID = "LONG OUTPUT" W P DATA 0,LOBUF1+LOBUF1 W , P DATA LOBUFS+LOBUFS W J $ P DATA 'GR',0 ID = "GENERAL READ" W f P DATA 0,GRBUF1+GRBUF1 W P DATA GRBUFS+GRBUFS W P* W 2 P* WORK STATION STATUS WORDS. 1 WORD / WS W 2 P
0x26d308…26d49c Dummy {f00=0x0162, f01=0x0190, f02=» LOBUFS LONG OUTPUT BUFFERS W $ P RES GRBUFS GENERAL READ BUFFERS X $ P* X L P* X V P EJECT X ` P IFF PLCNRR=2 X n P* X $ P* CWT FOR PLC NUMBER 7 REMOTE X P* X PPR3CWT EQU * X P* X P* FLAGS X P RES 1 PLC OPERABLE FL
0x26d49c…26d630 Dummy {f00=0x0162, f01=0x0190, f02=»A 6 PLC NUMBER (4-7) =5 X . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) Y " P DATA 0 LATEST PLC RCA STATUS Y R P DATA 0 LINE NO INDICATOR Y x $ P DATA 0 INDEX TO PARAMETER AREAS Y P* Y $ P* POINTERS AND QUEUE HEADS Y 4 P DATA OPARR3 OPEN LI
0x26d630…26d7c4 Dummy {f00=0x0162, f01=0x0190, f02=»R SHORT OUTPUT BUFFER Y ( P DATA 0 QUEUE FOR LONG OUTPUT BUFFER Z P DATA 0 QUEUE FOR CCA FREE Z J . P DATA 0 QUEUE OF ALLOCATED MONITOR BLOCKS Z l , P DATA 0 TIMER POINTER FOR RESTART DELAY Z P* Z P* INSTRUCTIONS Z ( P CIO A3,1,PLCDA6 STA
0x26d7c4…26d958 Dummy {f00=0x0162, f01=0x0190, f02=»TART DESCRIPTOR (3 WORDS) Z P DATA 0 DUMMY & MSB ADDRESS [ " $ P DATA PR3CWT+CWTCID CID ADDRESS [ F P DATA INTRV2 INTERRUPT LEVEL [ n 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) [ P DATA 0 DUMMY & MSB ADDRESS [ $ P DATA PR3CWT+CWTCCA CCA ADDR
0x26d958…26daec Dummy {f00=0x0162, f01=0x0190, f02=»OMMAND CONTROL AREA [ P RES 8 RESPONSE CONTROL AREA P* @ ( P* POOLBLOCKS (5 WORDS / BLOCK) J , P DATA 'SO',0 ID = "SHORT OUTPUT" & FLAGS v 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH $ P DATA SOBUFS+SOBUFS AREA LENGTH $ P D
0x26daec…26dc80 Dummy {f00=0x0162, f01=0x0190, f02=» DATA 0,GRBUF1+GRBUF1 P DATA GRBUFS+GRBUFS ] P* ] : 2 P* WORK STATION STATUS WORDS. 1 WORD / WS ] D 2 P RES MAXWS+1 L BYTE = STATUS. R BYTE = FLAGS. ] z P* ] P* BUFFER AREAS ] $ P RES SOBUFS SHORT OUTPUT BUFFERS ] $ P RES LOBUF
0x26dc80…26de14 (1, 631) Dummy {f00=0x0162, f01=0x0190, f02=»* CWT FOR PLC NUMBER 8 REMOTE ] P* ^ ( PPR4CWT EQU * ^ 2 P* ^ F P* FLAGS ^ P P RES 1 PLC OPERABLE FLAG ^ d " P DATA 0 CCA BUSY FLAG (0=FREE) ^ , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) ^ P* ^ P* DATA WORDS ^ P DATA 7 PL
0x26de14…26dfa8 Dummy {f00=0x0162, f01=0x0190, f02=»TOR ^ z $ P DATA 0 INDEX TO PARAMETER AREAS _ P* _ 4 $ P* POINTERS AND QUEUE HEADS _ > 4 P DATA OPARR4 OPEN LINE PARAMETER AREA ADDRESSES _ f , P DATA INTPR4 WORK STATION TABLE ADDRESS _ P DATA 0 INPUT BUFFER ADDRESS _ * P DATA 0 QUEUE FOR SHOR
0x26dfa8…26e13c Dummy {f00=0x0162, f01=0x0190, f02=» BLOCKS _ n , P DATA 0 TIMER POINTER FOR RESTART DELAY ` P* ` @ P* INSTRUCTIONS ` J ( P CIO A3,1,PLCDA7 START I/O OPERATION ` f 2 P SST A3,PLCDA7 RELEASE RCA AND RESET INTERRUPT ` P* ` P* PLC CONTROL AREAS ` . P* CONTROL UNIT START D
0x26e13c…26e2d0 Dummy {f00=0x0162, f01=0x0190, f02=» 2 P* CONTROL UNIT INTERFACE DESCRIPTOR (5 WORDS) a P DATA 0 DUMMY & MSB ADDRESS a : $ P DATA PR4CWT+CWTCCA CCA ADDRESS a ^ P DATA 0 DUMMY & MSB ADDRESS a $ P DATA PR4CWT+CWTRCA RCA ADDRESS a $ P DATA 0 INTERRUPT SPECIFICATION a P RES 8 COMMAND
0x26e2d0…26e464 Dummy {f00=0x0162, f01=0x0190, f02=» OUTPUT" & FLAGS a x 4 P DATA 0,SOBUF1+SOBUF1 QUEUE HEAD & BUFFER LENGTH b $ P DATA SOBUFS+SOBUFS AREA LENGTH b P $ P DATA 'LO',0 ID = "LONG OUTPUT" b x P DATA 0,LOBUF1+LOBUF1 b P DATA LOBUFS+LOBUFS b $ P DATA 'GR',0 ID = "GENERAL READ" b P DATA
0x26e464…26e5f8 Dummy {f00=0x0162, f01=0x018e, f02=»= STATUS. R BYTE = FLAGS. b | P* c " P* BUFFER AREAS c , $ P RES SOBUFS SHORT OUTPUT BUFFERS c H $ P RES LOBUFS LONG OUTPUT BUFFERS c p $ P RES GRBUFS GENERAL READ BUFFERS c P* c P* c P XIF c P EJECT c P* c & P* I/O COMPLET
0x26e5f8…26e78c Dummy {f00=0x0162, f01=0x0190, f02=» c b P* FROM THE END. d P* d PCMDTAB EQU * d * 0 P DATA CMDTC COMMAND CODE "TEST CHANNEL UNIT" d > 6 P DATA COMPTC START OF "TEST CU" COMPLETION ROUTINE d r 0 P DATA 0 ALLOWED STATUS FOR "TEST CU" COMMAND d , PCMDTB1 EQU *-CMDTAB LENGTH OF ONE ENTRY
0x26e78c…26e920 Dummy {f00=0x0162, f01=0x018e, f02=»TANOC d P IFT PLCTST=1 e $ P DATA CMDPS GET LINE STATISTICS e $ P DATA COMPPS e L " PSTAE2 EQU STAREQ+STAILL DUMMY e ` " PSTAE3 EQU STASEQ+STANOB DUMMY e P DATA STAE2+STAE3 e " P DATA CMDDS GET DLS STATISTICS e P DATA COMPDS e P DATA ST
0x26e920…26eab4 (1, 632) Dummy {f00=0x0162, f01=0x018e, f02=» e P DATA CMDSW STANDARD WRITE f P DATA COMPSW f * P DATA STAERR f > P DATA CMDFW FAST WRITE f R P DATA COMPFW f p P DATA STAERR f P DATA CMDGR GENERAL READ f P DATA COMPGR f P DATA 0 f $ PCMDTBL EQU *-CMDTAB TABLE LENGTH f P* f
0x26eab4…26ec48 Dummy {f00=0x0162, f01=0x0190, f02=» P* CONSTANTS DEFINED ABOVE. g PREAROU EQU * g & P DATA GRERR1 ERROR ROUTINE g : 6 P DATA GRERR1 DATA PACKET NO FLOW C. (NOT IMPLEM.) g * P DATA GRSTAT DEVICE STATUS DATA PACKET g $ P DATA GRDATA NORMAL DATA PACKET g $ P DATA GRRR RECIEVE READY PAC
0x26ec48…26eddc Dummy {f00=0x0162, f01=0x0190, f02=»ETION DISPATCH TABLE g P* h 2 P* THIS TABLE IS INDEXED BY THE "MESSAGE TYPE" h & P* CONSTANTS DEFINED ABOVE. h PWRIROU EQU * h ~ P DATA WRERR ERROR ROUTINE h 2 P DATA WRNFLO DATA PACKET WITHOUT FLOW CONTROL h 2 P DATA WRERR DEVICE STATUS DATA
0x26eddc…26ef70 Dummy {f00=0x0162, f01=0x0190, f02=»PLEMENTED) h p * P DATA WRRESC RESET CONFIRMATION PACKET i P* i @ P EJECT i J P* i X P******************** i b P* REQUEST ROUTINES * i ~ P******************** i P* i 8 P* THIS SECTION CONTAINS REQUEST HANDLING ROUTINES. i 6 P* THE REQU
0x26ef70…26f104 Dummy {f00=0x0162, f01=0x0190, f02=»UTOR DRIVER (DRND01). i p 2 P* THE DISTRIBUTOR DRIVER WILL SWITCH CALL TO j 6 P* CONNECTED LINE DRIVER. RETURN IS MADE DIRECTLY j T 4 P* FROM THIS DRIVER TO TERMINAL DEVICE DRIVER. j 6 P* A CALL WILL NORMALLY RESULT IN A WAIT FOR SOME j 8 P* I/O
0x26f104…26f298 Dummy {f00=0x0162, f01=0x0190, f02=»K. j x P* k 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: k P* k H P* NAME FUNCTION k R P* k j $ P* PLCHRI INPUT OF ONE CHARACTER k t * P* PLSTBL DEFINE START OF OUTPUT BLOCK k $ P* PLCHRO OUTPUT OF ONE CHARACTER k ( P* PLENBL DEFINE END OF
0x26f298…26f42c Dummy {f00=0x0162, f01=0x0190, f02=»********************** k j P* l P* ROUTINE NAME: l ( P* PLCHRI l @ P* l P P* FUNCTION: l Z 2 P* THIS ROUTINE FETCHES ONE CHARACTER FROM THE l n 4 P* INPUT BUFFER. IF NO BUFFER HAS ARRIVED, "INPUT l 0 P* REQUESTED" FLAG IN DWT IS SET, AND CALLING
0x26f42c…26f5c0 Dummy {f00=0x0162, f01=0x0190, f02=» l P* INPUT: m P* A6 = DWT ADDRESS m P* m 4 P* OUTPUT: m > P* AT RETURN TO DEVICE DRIVER m P P* A1 = BITS 0-14 CHANGED m t ( P* BIT 15 1 IF MORE CHAR IN BUFFER m P* A2 = BITS 0-7 ZERO m P* BITS 8-15 CHARACTER m P* INTERR
0x26f5c0…26f754 (1, 633) Dummy {f00=0x0162, f01=0x0190, f02=» * m P STR A4,A15 PUSH A4 n ( P LD A4,DWTLD1,A6 INPUT TEXT WAITING? n & " P RF(Z) CI100 NO, WAIT FOR TEXT n R P* n x P EJECT n P* n , P CF A15,PLGECH GET CHARACTER FROM BUFFER n " P LDR A1,A1 CHECK RETURN STATUS n , P RF(N) CI100 BUFFER EMPT
0x26f754…26f8e8 Dummy {f00=0x0162, f01=0x018e, f02=»DR* A4,A15 POP A4 n * P LDK A2,DWFINP FLAG "INPUT REQUESTED" o 0 P ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT o H , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT o | P ABL PLDISP LOCAL DISPATCHER o P* o P* o : P* ENTRY IS MADE HERE WHEN A NEW B
0x26f8e8…26fa7c Dummy {f00=0x0162, f01=0x018e, f02=» P* BITS 8-15 CHARACTER p P* A4 = BUFFER ADDRESS p $ P* A6 = DWT ADDRESS p B P* p ^ PINPRST EQU * p h 2 P LDKL A3,/FFFF-DWFINP MASK FOR INPUT REQUESTED p | P ANS A3,DWTST,A6 RESET FLAG p ( P ST A4,DWTLD1,A6 LINK BUFFER TO DWT p P* p
0x26fa7c…26fc10 Dummy {f00=0x0162, f01=0x0190, f02=» p r ( P LDR A1,A1 ANY CHAR LEFT IN BUFFER? q P RF(Z) CI120 NO, CONTINUE q 4 & P LDK A1,1 INDICATE MORE CHARACTERS q V P RF CI130 q P* q PCI120 EQU * q P CM DWTLD1,A6 UNLINK BUFFER q PCI130 EQU * q P ENB q P RTN A5 q P* q
0x26fc10…26fda4 Dummy {f00=0x0162, f01=0x0190, f02=»STBL q P* r P* FUNCTION: r 4 P* THIS ROUTINE DEFINES START OF AN OUTPUT BLOCK. r * 2 P* IT ALLOCATES AN OUTPUT BUFFER, AND LINKS IT r b P* TO THE DWT. r P* r P* CALL: r P* ABI STBTAB,A1 r P* CF A5,PLSTBL r P* r P* INPUT:
0x26fda4…26ff38 Dummy {f00=0x0162, f01=0x0190, f02=»EVICE DRIVER r P* A1 = RETURN CODE s P* 0 IF OK s 0 P* NOT 0 IF ERROR s B 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) s P* CR = CONTENTS OF A1 s P* INTERR. ENABLED s P* s @ P******************************************************
0x26ff38…2700cc Dummy {f00=0x0162, f01=0x0190, f02=»WT A5 := CWT ADDRESS s P* t P EJECT t & P* t 4 . P LD A1,DWTLD1,A6 BUFFER ALREADY ALLOCATED? t > ( P ABL(NZ) NDREPO YES, SET OK & RETURN t p & P CF A15,GETLCS A1 := STATUS & INH t P RF(NZ) SBERR2 ERROR, RETURN t P* t P* CHECK LEVEL 3 W
0x2700cc…270260 Dummy {f00=0x0162, f01=0x0190, f02=» * P RF(NZ) SB090 YES, DON'T CHECK WINDOW u 2 P CF A15,GETOFR A2 := NR OF OUTSTANDING FRAMES u 2 & P LDR A2,A2 ANY FRAMES OUTSTANDING? u h P RF(Z) SB090 NO, CONTINUE u P LD A1,DWTST,A6 DWT STATUS u 0 P ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? u 2
0x270260…2703f4 (1, 634) Dummy {f00=0x0163, f01=0x0190, f02=» HAVE TO WAIT UNTIL WINDOW IS OPEN u 2 P ST A3,DWTLD1,A6 SAVE REQUESTED BUFFER LENGTH v * 2 P LDK A1,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" v ` , P ORS A1,DWTST,A6 SET FLAG IN DWT STATUS v " P IFF UTTEST=0 QUEUE STATISTICS v P LD A1,CWTPNR,A5 PLC NUMBER
0x2703f4…270588 Dummy {f00=0x0163, f01=0x0190, f02=» P* w P* w 6 P* ENTRY IS MADE HERE WHEN WINDOW IS OPEN AGAIN w P* (AFTER A LEVEL 3 ACK) w R & P* REGISTER CONTENTS ON ENTRY: w v P* A1 = RETURN CODE w P* A5 = CWT ADDRESS w P* A6 = DWT ADDRESS w P* w PWINRST EQU
0x270588…27071c Dummy {f00=0x0163, f01=0x0190, f02=»OR, RETURN TO DEVICE DRIVER w ~ P* x $ P* x . PSB090 EQU * x 8 P LDR A7,A5 x L ( P CWK A3,SOBUFL SHORT BUFFER ENOUGH? x ^ & P RF(G) SB100 NO, TAKE LONG BUFFER x P* x & P* ALLOCATE SHORT OUTPUT BUFFER x . P ADK A7,CWTPBS POOLBLOCK FOR SHO
0x27071c…2708b0 Dummy {f00=0x0163, f01=0x0190, f02=»ET QUEUE HEAD x p " P IFF UTTEST=0 QUEUE STATISTICS y P LD A1,CWTPNR,A5 PLC NUMBER y < P SLA A1,1 MAKE INDEX y ` 4 P IM SBQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER y | P XIF y ( P RF SB110 COMMON PART FOR NO BUFFER y P* y PSB100 EQU * y &
0x2708b0…270a44 Dummy {f00=0x0163, f01=0x0190, f02=»CK FOR LONG BUFFERS y z " P CF A15,PLGTBU ALLOCATE BUFFER z , P RF(NZ) SB120 COMMON PART FOR SHORT/LONG z B 2 P LDK A7,CWTLBQ NO BUFFER LEFT. SET QUEUE HEAD z r " P IFF UTTEST=0 QUEUE STATISTICS z P LD A1,CWTPNR,A5 PLC NUMBER z P SLA A1,1 MAKE INDEX z
0x270a44…270bd8 Dummy {f00=0x0163, f01=0x0190, f02=»T REQUEST IN QUEUE. z p ( P ADR A7,A5 A7 := QUEUE HEAD ADDRESS { P LDR A4,A6 DWT ADDRESS { H & P ADKL A4,DWTOTQ QUEUE LINK ADDRESS { f $ P CF A15,LNKLST PUT LAST IN QUEUE { P ABL PLDSP2 LOCAL DISPATCHER { P* { P* { 2 P* ENTRY IS MADE HERE
0x270bd8…270d6c Dummy {f00=0x0163, f01=0x0190, f02=»= CWT ADDRESS { P* A6 = DWT ADDRESS | P* | 2 PBUFRST EQU * | < P LDR A1,A1 RETURN CODE | P " P RF(NZ) SBERR2 RETURN IF ERROR | n PSB120 EQU * | ( P LDK A2,X25DAT LENGTH OF X25 HEADER | 0 P ST A2,BUFBIX,A4 BYTE INDEX := START OF DATA | 0 P
0x270d6c…270f00 Dummy {f00=0x0163, f01=0x0190, f02=»* | P* } PSBERR EQU * } ( P LDK A1,PLSERR RET CODE := SW ERROR } ( PSBERR2 EQU * } T " P LDK A2,0 RESET DEVICE STATUS } h & P ABL NDREP RETURN TO DEVICE DRIVER } P* } P EJECT } P* } @ P**********************************************
0x270f00…271094 (1, 635) Dummy {f00=0x0163, f01=0x0190, f02=»R TO OUTPUT BUFFER. } n P* ~ P* CALL: ~ & P* ABI OUPTAB,A1 ~ 6 P* CF A5,PLCHRO ~ N P* ~ d P* INPUT: ~ n P* A2 = BITS 0-7 IRRELEVANT ~ ~ P* BITS 8-15 CHARACTER ~ P* A6 = DWT ADDRESS ~ P* ~ P* OUTPUT: ~ P* AT RETURN TO
0x271094…271228 Dummy {f00=0x0163, f01=0x0190, f02=»0) ~ f P* CR = CONTENTS OF A1 P* INTERR. ENABLED ( P* B @ P************************************************************ L P* PPLCHRO EQU * PPRCHRO EQU * P ENB P* P EJECT P* P STR A4,A15 PUSH A4
0x271228…2713bc Dummy {f00=0x0163, f01=0x0190, f02=»1,A1 CHECK RETURN CODE ( P RF(NZ) COERR1 ERROR IF BUFFER FULL P* J P LDR* A4,A15 POP A4 T 6 P* RETURN DIRECTLY INSTEAD OF THROUGH NDRETO TO GET p P* FASTER PROCESSING. P ENB P ADK A5,4 ADJUST STACK . P LDR A2,A1 DEVICE STATUS
0x2713bc…271550 Dummy {f00=0x0163, f01=0x0190, f02=» r $ P CM DWTLD1,A6 INDICATE NO BUFFER PCOERR2 EQU * 0 P LDR* A4,A15 POP A4 D ( P LDK A1,PLSERR RET CODE := SW ERROR ` & P ABL NDRET RETURN TO DEVICE DRIVER P* P EJECT P* @ P************************************************
0x271550…2716e4 Dummy {f00=0x0163, f01=0x018e, f02=» BLOCK. l . P* IT SENDS THE BLOCK TO PLC AND WAITS FOR P* ACKNOWLEDGE. B P* X P* CALL: b P* ABI ENBTAB,A1 r P* CF A5,PLENBL P* P* INPUT: P* A6 = DWT ADDRESS P* P* OUTPUT: P* AT RETURN TO DEVICE
0x2716e4…271878 Dummy {f00=0x0163, f01=0x0190, f02=» P* CR = CONTENTS OF A1 P* INTERR. ENABLED " P* < @ P************************************************************ F P* PPLENBL EQU * PPRENBL EQU * P ENB , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT $ P CF A15,GETCWT A
0x271878…271a0c Dummy {f00=0x0163, f01=0x0190, f02=»S r , P ABL(Z) NDREP ERROR IF NO BUFFER. RETURN & P CF A15,GETLCS A1 := STATUS & INH : " P RF(NZ) EBERR1 RETURN IF ERROR d P* P LDR A3,A6 DWT ADDRESS " P ADKL A3,DWTOTQ QUEUE POINTER P CF A15,PLCCCS RESERVE CCA . P CM DWTOTQ,A6
0x271a0c…271ba0 Dummy {f00=0x0163, f01=0x0190, f02=»IN CCA AND X25 HEADER z P ENB $ P LD A4,DWTLD1,A6 BUFFER ADDRESS * " P ST A4,CWTCCA+CCRBUF,A5 TO CCA R : P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR x $ P LDK A3,CMDFW ASSUME FAST WRITE " P LD A2,DWTST,A6 DEVICE STATUS P LDR
0x271ba0…271d34 (1, 636) Dummy {f00=0x0163, f01=0x0190, f02=» f ( P ANK A2,DWFTY1 ONLY TYPE 1 ALLOWED? P RF(Z) EB100 NO, USE TYPE 2 4 P* X P EJECT b P* p PEB090 EQU * z P* NO FLOW CONTROL 0 P CF A15,WRADR1 WRITE LINE ADDRESS. NO FLOW C 2 P LDK A2,TYNFLO MESSAGE TYPE := NO FLOW C
0x271d34…271ec8 Dummy {f00=0x0163, f01=0x0190, f02=»W CTRL j 0 P CF A15,FWOPSR FETCH AND UPDATE FLOW CONTROL * P SC A2,X25FLW,A4 P(R) & P(S) TO PACKET B . P LDK A2,TYDATA MESSAGE TYPE := NORMAL DATA p P* PEB110 EQU * 0 P SC A2,CWTCCA+CCRIDB,A5 MESSAGE TYPE TO CCA * P SC A3,CWTCCA+CCRCMD
0x271ec8…27205c Dummy {f00=0x0163, f01=0x0190, f02=»BUFFER LENGTH TO CCA x P* & P CF A15,GETLCS A1 := STATUS & INH & " P RF(NZ) EBERR2 RETURN IF ERROR P $ P CF A15,PLCCIO EXECUTE CIO START v P RF(NZ) EBERR1 HANDLE ERROR P ABL PLDSP2 LOCAL DISPATCHER P* P EJECT P* 4 P
0x27205c…2721f0 Dummy {f00=0x0163, f01=0x0190, f02=»RN CODE P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS , P* A7 = MESSAGE TYPE H P* d PACKRST EQU * n " P LDK A2,0 RESET DEVICE STATUS P LDR A1,A1 ANY ERROR? P RF(NZ) EB130 YES, RETURN P* P LD A3,DWTST,A6 DWT ST
0x2721f0…272384 Dummy {f00=0x0163, f01=0x0190, f02=» RESET l P RF EB130 RETURN P* & PEB120 EQU * 0 0 P CWK A7,TYNFLO PACKET WITH NO FLOW CONTROL? D P RF(E) EB130 YES, RETURN x ( P ANK A3,DWFSAC WAIT FOR LEVEL 3 ACK? P RF(Z) EB130 NO, RETURN P* 2 P LDK A3,DWFAK3 FLAG "WAITI
0x272384…272518 Dummy {f00=0x0163, f01=0x0190, f02=»* B P* ENTRY IS MADE HERE WHEN ACK ON LEVEL 3 HAVE BEEN RECIEVED & P* REGISTER CONTENTS ON ENTRY: P P* A1 = RETURN CODE z 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P*
0x272518…2726ac Dummy {f00=0x0163, f01=0x0190, f02=»EBERR2 EQU * P CM CWTCCB,A5 SET CCA FREE PEBERR1 EQU * 6 * P LD A4,DWTLD1,A6 OUTPUT BUFFER ADDRESS J " P CF A15,PLRLBU RELEASE BUFFER x $ P CM DWTLD1,A6 INDICATE NO BUFFER $ P CM DWTLD2,A6 RESET FLOW CONTROL & P ABL NDREP RETURN TO DEVIC
0x2726ac…272840 Dummy {f00=0x0163, f01=0x0190, f02=»E NAME: P* PLTEST P* P* FUNCTION: * 2 P* THIS ROUTINE HANDLES TEST COMMANDS FOR PLC. > 0 P* THE TEST COMMANDS ARE GENERATED BY A TEST t 4 P* COMMAND "DRIVER" WITH AN INTERFACE SIMILAR TO 2 P* THAT OF THE NORMAL TERMINAL DEVICE DRI
0x272840…2729d4 (1, 637) Dummy {f00=0x0163, f01=0x0190, f02=»NCTION IS NOT AVAILABLE FOR OTHER P* LINE DRIVERS. * P* B P* CALL: L P* CF A5,PLTEST P* r P* INPUT: | P* A6 = DWT ADDRESS P* P* OUTPUT: P* AT RETURN TO DEVICE DRIVER P* A1 = RETURN CODE P* 0
0x2729d4…272b68 Dummy {f00=0x0163, f01=0x0190, f02=»****************************************************** P* > P EJECT H P* V PPLTEST EQU * ` P IFT PLCTST=1 t , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT $ P CF A15,GETCWT A5 := CWT ADDRESS P CF A15,PLCCCA RESERVE CCA P*
0x272b68…272cfc Dummy {f00=0x0163, f01=0x0190, f02=»A4,DWTTBU,A6 USER REQUEST BUFFER ADDRESS " P ST A4,CWTCCA+CCRBUF,A5 TO CCA 0 0 P LD A2,DWTTLN,A6 USER REQUEST BUFFER LENGTH V * P ST A2,CWTCCA+CCRLEN,A5 LENGTH TO CCA . P LD A3,DWTTCW,A6 USER REQUEST CONTROL WORD P* & P* DETERMINE TYPE
0x272cfc…272e90 Dummy {f00=0x0163, f01=0x0190, f02=» P RF(E) TE100 YES, HANDLE & P CWK A1,ORDDS GET DLS STATISTICS? $ P RF(E) TE110 YES, HANDLE N $ P CWK A1,ORDRM READ LOCAL MEMORY? n 2 P RF(NE) TEERR2 NO, COMMAND NOT DEFINED. ERROR P* P* READ LOCAL MEMORY 6 P ST A3,CWTCCA+CCRSUB
0x272e90…273024 Dummy {f00=0x0163, f01=0x0190, f02=»0 EQU * P* GET LINE STATISTICS 2 P LDK A3,CMDPS PLC COMMAND GET LINE STATISTICS 0 P RF TE120 TO COMMON PART f P* PTE110 EQU * P* GET DLS STATISTICS & P LC A3,DWTCP2,A6 CHANNEL PARAMETER " P ANK A3,MASKWS CLEAN WS NU
0x273024…2731b8 Dummy {f00=0x0163, f01=0x0190, f02=»A+CCRDLS,A5 DLS INDEX & COMMAND TO CCA P* . $ P CF A15,PLCCIO EXECUTE CIO START 8 P RF(NZ) TEERR1 ERROR. HANDLE ` & P ABL PLDSP2 LOCAL DISPATCER. WAIT P* P* < P* ENTRY IS MADE TO TSTRST WHEN COMMAND IS COMPLETED. & P*
0x2731b8…27334c Dummy {f00=0x0163, f01=0x0190, f02=» EQU * & P ABL NDREP RETURN TO DEVICE DRIVER P* 8 P* B PTEERR2 EQU * L $ P CM CWTCCB,A5 INDICATE CCA FREE ` ( P LDK A1,PLSERR RET CODE := SW ERROR PTEERR1 EQU * & P ABL NDREP RETURN TO DEVICE DRIVER P XIF P* P
0x27334c…2734e0 Dummy {f00=0x0163, f01=0x0190, f02=»TION CONTAINS INTERRUPT HANDLING ROUTINES. 0 P* IT IS ENTERED IMMEDIATELY AT A RELEASE, 2 . P* ATTENTION OR I/O COMPLETION INTERRUPT. f " P* ALL ROUTINES ARE EXECUTED 8 P* ON INTERRUPT PRIORITY. AFTER PROCESSING, EXIT IS > P* MADE EITHE
0x2734e0…273674 (1, 638) Dummy {f00=0x0164, f01=0x0190, f02=» CONTAINS INTERRUPT RETURN AND z P* A1-A8. & P* 8 P* B 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: L P* P* NAME FUNCTION P* P* IHPL INTERRUPT ENTRY $ P* PLIHR HANDLE RELEASE INTERRUPT & P* PLIHA HANDLE ATTENTI
0x273674…273808 Dummy {f00=0x0164, f01=0x0190, f02=»OPEN LINE, OPEN DLS) 2 P* COMPTEST HANDLE COMPLETION OF TEST COMMANDS 6 P* (PLC STATISTICS, DLS STAT., READ LOCAL MEMORY) R 2 P* COMPWRI HANDLE COMPLETION OF WRITE COMMANDS 8 P* COMPGR HANDLE COMPLETION OF GENERAL READ COMMANDS * P* GRERR HA
0x273808…27399c Dummy {f00=0x0164, f01=0x0190, f02=» 0 P* GRRES HANDLE RESET MESSAGE FROM SECONDARY P* 8 P EJECT B P* P @ P************************************************************ Z P* P* ROUTINE NAME: P* IHPL P* P* FUNCTION: 2 P* THIS ROUTINE CONTAINS INTE
0x27399c…273b30 Dummy {f00=0x0164, f01=0x018e, f02=»* INTERRUPT HANDLER. P* P* CALL: & P* HARDWARE INTERRUPT 6 P* R P* INPUT: P* A15 = SYSTEM STACK POINTER l P* INTERR. INHIBITED P* MODE SYSTEM P* P* OUTPUT: P* A5 = CWT ADDRESS P* @ P****
0x273b30…273cc4 Dummy {f00=0x0164, f01=0x0190, f02=» P CF A15,SAVE8 PUSH A1-A8 P XIF ( P IFF PLCNRL=0 U =5 4 P IFF CPU852=1 N P MSR 8,A15 PUSH A1-A8 d P XIF P* P IFF PLCNRL=0 U =5 & P LDKL A5,PL0CWT CWT ADDRESS, PLC 0 $ P RF IHPL COMMON PART, ALL PLC:S P XIF
0x273cc4…273e58 Dummy {f00=0x0164, f01=0x0190, f02=»A15,SAVE8 PUSH A1-A8 P XIF P* ( P IFF PLCNRL=0 U =5 2 P IFF PLCNRL=1 L P IFF CPU852=1 b P MSR 8,A15 PUSH A1-A8 x P XIF P* P IFF PLCNRL=0 U =5 P IFF PLCNRL=1 & P LDKL A5,PL1CWT CWT ADDRESS, PLC 1 $ P R
0x273e58…273fec Dummy {f00=0x0164, f01=0x0190, f02=»NRL=2 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 $ P XIF D P* P P IFF PLCNRL=0 U =5 Z P IFF PLCNRL=1 t P IFF PLCNRL=2 P IFF CPU852=1 P MSR 8,A15 PUSH A1-A8 P XIF P* P IFF PLCNRL=0 U =5 P IFF
0x273fec…274180 Dummy {f00=0x0164, f01=0x0190, f02=» PIHPL04 EQU * P IFF PLCNRL=0 U =5 P IFF PLCNRL=1 6 P IFF PLCNRL=2 L P IFF PLCNRL=3 b P IFT CPU852=1 x P CF A15,SAVE8 PUSH A1-A8 P XIF P* P IFF PLCNRL=0 U =5 P IFF PLCNRL=1 P IFF PLCNRL=2
0x274180…274314 (1, 639) Dummy {f00=0x0164, f01=0x0190, f02=»1 P IFF PLCNRL=2 P IFF PLCNRL=3 & P LDKL A5,PL3CWT CWT ADDRESS, PLC 3 6 $ P RF IHPL COMMON PART, ALL PLC:S ` P XIF P* PIHPR01 EQU * P IFF PLCNRR=0 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 P XIF
0x274314…2744a8 Dummy {f00=0x0164, f01=0x018e, f02=» PLC 1 REMOTE v " P RF IHPL COMMON PART ALL CWT:S P XIF < PIHPR02 EQU * H P IFF PLCNRR=0 P IFF PLCNRR=1 r P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 P IFF CPU852=1
0x2744a8…27463c Dummy {f00=0x0164, f01=0x018e, f02=» " P RF IHPL COMMON PART ALL CWT:S P XIF * PIHPR03 EQU * 6 P IFF PLCNRR=0 J P IFF PLCNRR=1 ` P IFF PLCNRR=2 v P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 P IFF PLCNRR=2
0x27463c…2747d0 Dummy {f00=0x0164, f01=0x0190, f02=» , P LDKL A5,PR3CWT CWTADDRESS PLC 3 REMOTE " P RF IHPL COMMON PART ALL PLC:S 4 P XIF Z PIHPR04 EQU * f P IFF PLCNRR=0 z P IFF PLCNRR=1 P IFF PLCNRR=2 P IFF PLCNRR=3 P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 P
0x2747d0…274964 Dummy {f00=0x0164, f01=0x0190, f02=»H A1-A8 P XIF P IFF PLCNRR=0 P IFF PLCNRR=1 2 P IFF PLCNRL=2 H P IFF PLCNRL=3 ^ , P LDKL A5,PR4CWT CWTADDRESS PLC 4 REMOTE t " P RF IHPL COMMON PART ALL CWT:S P XIF P EJECT P* PIHPL EQU * & P ST P,IN
0x274964…274af8 Dummy {f00=0x0164, f01=0x0190, f02=» | P RF(E) PLIHR YES, HANDLE P CWK A1,/20 I/O COMPLETION? ( P RF(E) PLIHC YES, HANDLE L P CWK A1,/80 ATTENTION? l P RF(E) PLIHA YES, HANDLE P* 2 P CF A15,PLCNOP ILLEGAL CODE, SET NOT OPERABLE P ABL TDISP EXIT P*
0x274af8…274c8c Dummy {f00=0x0164, f01=0x0190, f02=»R P* P* FUNCTION: . P* THIS ROUTINE HANDLES RELEASE INTERRUPTS. ( . P* IT RESETS THE INTERRUPT, AND IF ANOTHER Z , P* PROCESS IS WAITING FOR THE CCA, RETURN ( P* IS MADE TO CCA ALLOCATION ROUTINE. P* P* CALL: P* RF P
0x274c8c…274e20 Dummy {f00=0x0164, f01=0x0190, f02=»ADDRESS OF WAITING PROCESS P* A5 = CWT ADDRESS " P* > @ P************************************************************ H P* PPLIHR EQU * " P EX CWTST3,A5 RESET INTERRUPT . P LD A4,CWTCCQ,A5 PROCESS WAITING FOR CCA? * P ABL(N
0x274e20…274fb4 (1, 640) Dummy {f00=0x0164, f01=0x0190, f02=»************************************************************ P* D P* ROUTINE NAME: N P* PLIHA f P* v P* FUNCTION: 4 P* THIS ROUTINE HANDLES ATTENTION INTERRUPTS. IF 4 P* ERROR, IT SETS AN ERROR CODE AND STARTS ABORT 4 P* OF
0x274fb4…275148 Dummy {f00=0x0164, f01=0x0190, f02=»* INPUT: P* A5 = CWT ADDRESS P* , P* OUTPUT: 6 P* A5 = CWT ADDRESS H P* A6 = WS NUMBER d P* ~ @ P************************************************************ P* PPLIHA EQU * & P LD A1,CWTRCA+CCRSTA,A5 PLC ST
0x275148…2752dc Dummy {f00=0x0164, f01=0x0190, f02=»LS,A5 WS NUMBER ~ P ANK A6,MASKWS CLEAN P EX CWTST3,A5 RELEASE RCA 4 P* V P EJECT ` P* n P LDKL A2,/FFFF-STACOM-STAERR x P* MASK FOR ALLOWED ERRORS P ANR A2,A1 FATAL ERROR? P RF(Z) IA100 NO, CONTINUE ( P CF A1
0x2752dc…275470 Dummy {f00=0x0164, f01=0x0190, f02=»MUNICATION REESTABLISHED? ~ . P ABL(NZ) PLREWS YES, START RECOVERY OF WS " P* T P LDR A2,A6 WS NUMBER ^ & P CF A15,STAHAN HANDLE ERROR STATUS z P ABL PLDSP2 LOCAL DISPATCHER P* P EJECT P* @ P******************************
0x275470…275604 Dummy {f00=0x0164, f01=0x0190, f02=»DLES I/O COMPLETION INTERRUPTS. ~ 6 P* IT CHECKS WHICH COMMAND THAT HAS BEEN COMPLETED, ( 2 P* AND EXITS TO CORRESPONDING COMMAND HANDLER. b P* P* CALL: P* RF PLIHC P* P* INPUT: P* A5 = CWT ADDRESS P* P* OU
0x275604…275798 Dummy {f00=0x0164, f01=0x0190, f02=» @ P************************************************************ P* H PPLIHC EQU * R & P LD A1,CWTRCA+CCRSTA,A5 PLC STATUS f & P ST A1,CWTPLS,A5 SAVE FOR TESTING P IFF UTTEST=0 P CF A15,LOGIOC LOG CCR P XIF P ANKL A1,/FFFF
0x275798…27592c Dummy {f00=0x0164, f01=0x0190, f02=»WTRCA+CCRCMD,A5 COMMAND P* P EJECT * P* 8 ( P LDK A3,CMDTBL COMMAND TABLE LENGTH B PIC100 EQU * n , P* SCAN TABLE TO FIND MATCHING COMMAND " P SUK A3,CMDTB1 DECREMENT INDEX $ P RF(N) IC120 END OF TABLE. ERROR & P CC A2,C
0x27592c…275ac0 Dummy {f00=0x0164, f01=0x0190, f02=»A1 FATAL ERROR? P RF(Z) IC110 NO, CONTINUE ( P CF A15,PLCNOP SET PLC NOT OPERABLE : PIC110 EQU * f 2 P ABI CMDTAB+2,A3 CALL COMMAND HANDLING ROUTINE z P* PIC120 EQU * P EX CWTST3,A5 RELEASE RCA ( P CF A15,PLCNOP SET PLC N
0x275ac0…275c54 (1, 641) Dummy {f00=0x0164, f01=0x0190, f02=»************** b P* P* ROUTINE NAME: P* COMPSTA 8 P* J P* FUNCTION: T 2 P* THESE ROUTINES HANDLE COMPLETION OF TEST CU, h & P* OPEN LINE AND OPEN DLS COMMANDS. 0 P* THEY CHECK THE RETURN CODE AND EXIT TO THE & P* ROUTINE TH
0x275c54…275de8 Dummy {f00=0x0164, f01=0x0190, f02=» = FATAL PLC STATUS P* A5 = CWT ADDRESS $ P* A6 = PARAMETER (IF RELEVANT) 8 P* ` P* OUTPUT: j P* A1 = PLC STATUS | P* A2 = FATAL PLC STATUS P* A5 = CWT ADDRESS * P* A6 = DLS INDEX (IF EXIT TO ODLRST) P* @
0x275de8…275f7c Dummy {f00=0x0164, f01=0x0190, f02=»BL TCURST RETURN TO ROUTINE MAKING I/O CALL P* 4 P EJECT > P* L P* V P* OPEN LINE, COMPLETION ` P* PCOMPOP EQU * P EX CWTST3,A5 RELEASE RCA 2 P ABL OPLRST RETURN TO ROUTINE MAKING I/O CALL P* P*
0x275f7c…276110 Dummy {f00=0x0164, f01=0x0190, f02=»F(NZ) CD100 YES, SKIP STATUS CHECK P* * P LDR A2,A6 WS NUMBER 4 $ P CF A15,STAHAN HANDLE PLC STATUS P & P LDK A2,0 CLEAR FATAL STATUS FLAGS x P* PCD100 EQU * 2 P ABL ODLRST RETURN TO ROUTINE MAKING I/O CALL P* P EJECT
0x276110…2762a4 Dummy {f00=0x0164, f01=0x0190, f02=»* P* FUNCTION: 2 P* THIS ROUTINE HANDLES COMPLETION OF GET LINE 4 P* STATISTICS, GET DLS STATISTICS AND READ LOCAL T P* MEMORY COMMANDS. . P* IT CHECKS THE PLC STATUS, SETS EFFECTIVE 2 P* LENGTH IN DWT AND EXITS TO THE ROUTINE THAT
0x2762a4…276438 Dummy {f00=0x0164, f01=0x018e, f02=»* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P* 8 P* OUTPUT: B P* A1 = RETURN CODE T P* A5 = CWT ADDRESS p P* A6 = DWT ADDRESS P* @ P************************************************************ P* P IFT PLC
0x276438…2765cc Dummy {f00=0x0164, f01=0x018e, f02=» P RF(NZ) TS100 ERROR. HANDLE P* ( , P LD A2,CWTRCA+CCRLEN,A5 EFFECTIVE LENGTH 2 P ST A2,DWTTLN,A6 TO DWT b P RF TS110 EXIT. A1 = 0 P* PTS100 EQU * . P LDK A1,NOTOPR RETURN CODE := NOT OPERABLE ( P CM DWTTLN,A6 EFFECTIVE
0x2765cc…276760 Dummy {f00=0x0164, f01=0x0190, f02=» P XIF P* P EJECT P* ( @ P************************************************************ 2 P* v P* ROUTINE NAME: P* COMPWRI P* P* FUNCTION: 2 P* THIS ROUTINE HANDLES COMPLETION OF STANDARD P* WRITE AN
0x276760…2768f4 (1, 642) Dummy {f00=0x0165, f01=0x0190, f02=»OPERATION IS FINISHED, IT THEN EXITS TO THE & P* ROUTINE THAT MADE THE I/O CALL. 4 P* ^ P* CALL: h P* ABI CMDROU,A3 x P* P* INPUT: P* A1 = PLC STATUS P* A2 = FATAL PLC STATUS P* A5 = CWT ADDRESS P* A6 =
0x2768f4…276a88 Dummy {f00=0x0165, f01=0x0190, f02=»BITS 0-7 ZERO P* BITS 8-15 DEVICE STATUS P* A5 = CWT ADDRESS 8 P* A6 = DWT ADDRESS T P* p @ P************************************************************ z P* P EJECT P* PCOMPSW EQU * PCOMPFW EQU * P
0x276a88…276c1c Dummy {f00=0x0165, f01=0x0190, f02=» CLEAN WS NUMBER $ P CF A15,STAHAN HANDLE PLC STATUS 2 P LC A7,CWTRCA+CCRIDB,A5 TYPE OF WRITE COMMAND @ P ANK A7,/FF CLEAN v * P LD A4,CWTRCA+CCRBUF,A5 BUFFER ADDRESS P EX CWTST3,A5 RELEASE RCA . P ABI WRIROU,A7 CALL CORRESPONDING ROUTIN
0x276c1c…276db0 Dummy {f00=0x0165, f01=0x0190, f02=»* P ABL PLDSP2 EXIT P* " P* , * P* COMPLETION OF DATA MESSAGE OUTPUT 6 P* d PWRNFLO EQU * n PWRDATA EQU * ( P CF A15,PLRLBU RELEASE OUTPUT BUFFER $ P CM DWTLD1,A6 INDICATE NO BUFFER * P ABL ACKRST RETURN TO REQUEST
0x276db0…276f44 Dummy {f00=0x0165, f01=0x0190, f02=»OF MONITOR BLOCK P LDR A7,A5 CWT ADDRESS , P ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD 6 $ P CF A15,LNKOUT REMOVE FROM QUEUE f P CF A15,FREBLK RETURN BLOCK P* P ABL PLDSP2 EXIT P* P* 8 P* COMPLETION OF RESET CONFIRM
0x276f44…2770d8 Dummy {f00=0x0165, f01=0x0190, f02=»CWTMBQ MONITOR BLOCK QUEUE HEAD $ P CF A15,LNKOUT REMOVE FROM QUEUE ( P CF A15,FREBLK RETURN BLOCK P P* t . P LDKL A2,/FFFF-DWFRES MASK FOR RESET FLAG ~ ( P ANS A2,DWTST,A6 CLEAR "RESET" FLAG 0 P LDK A4,RELINE RECOVERY CAUSE := LINK RESET
0x2770d8…27726c Dummy {f00=0x0165, f01=0x0190, f02=»********************************************** P* 6 P* ROUTINE NAME: @ P* COMPGR X P* h P* FUNCTION: r 0 P* THIS ROUTINE HANDLES COMPLETION OF GENERAL P* READ COMMANDS. * P* IT CHECKS TYPE OF MESSAGE AND CALLS P* CORRES
0x27726c…277400 Dummy {f00=0x0165, f01=0x0190, f02=»TAL PLC STATUS P* A5 = CWT ADDRESS P* 2 P* OUTPUT: < P* A1 = PLC STATUS N P* A4 = BUFFER ADDRESS h P* A5 = CWT ADDRESS P* A6 = DLS INDEX ( P* A7 = DEVICE ADDRESS (IF RELEVANT) P* @ P**********************
0x277400…277594 (1, 643) Dummy {f00=0x0165, f01=0x0190, f02=» P* P EJECT P* ( P CF A15,INTYPE A3 := TYPE OF MESSAGE & * P LD A4,CWTRCA+CCRBUF,A5 BUFFER ADDRESS R & P LC A6,CWTRCA+CCRDLS,A5 DLS INDEX P ANK A6,MASKWS CLEAN $ P LC A7,X25LCN,A4 DEVICE ADDRESS P ANK A7,MASKLC CLEAN
0x277594…277728 Dummy {f00=0x0165, f01=0x0190, f02=»********************** j P* P* ROUTINE NAME: ( P* GRERR @ P* P P* FUNCTION: Z 2 P* THIS ROUTINE HANDLES ILLEGAL INPUT MESSAGES. n P* GRERR1 RETURNS BUFFER P* P* CALL: P* ABI REAROU,A3 P* RB GRERR1
0x277728…2778bc Dummy {f00=0x0165, f01=0x0190, f02=»: P* - P* @ P************************************************************ P* d PGRERR1 EQU * n . P CF A15,PLRLBU RELEASE GENERAL READ BUFFER P* PGRERR2 EQU * P EX CWTST3,A5 RELEASE RCA P* P ABL PLDSP
0x2778bc…277a50 Dummy {f00=0x0165, f01=0x0190, f02=»NAME: P* GRSACK P* P* FUNCTION: ( 4 P* THIS ROUTINE HANDLES STATUS AND RECIEVE READY < P* MESSAGES FROM A DEVICE. t 4 P* IT RELEASES THE BUFFER AND RETURNS TO ROUTINE P* MAKING I/O CALL. P* P* CALL: P* ABI
0x277a50…277be4 Dummy {f00=0x0165, f01=0x0190, f02=»DEVICE ADDRESS P* P* OUTPUT: P* A1 = RETURN CODE 2 P* =0 IF OK N P* ><0 IF ERROR b P* A2 = BITS 0-7 ZERO z P* BITS 8-15 DEVICE STATUS P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P* @ P**********
0x277be4…277d78 Dummy {f00=0x0165, f01=0x0190, f02=» ADDRESS x P RB(Z) GRERR1 NO DWT DEFINED 0 P CF A15,FWIPSR UPDATE FLOW CONTROL COUNTERS 4 ( P LC A2,X25DAT,A4 DEVICE STATUS BYTE h P ANK A2,/FF CLEAN P RF SR100 COMMON PART P* P* PGRRR EQU * $ P CF A15,GETDWT A6 := D
0x277d78…277f0c Dummy {f00=0x0165, f01=0x0190, f02=»TE p P* P* PSR100 EQU * B P* COMMON PART FOR DEVICE STATUS AND RECIEVE READY MESSAGES 2 P EX CWTST3,A5 RELEASE RCA x . P CF A15,PLRLBU RELEASE GENERAL READ BUFFER P LD A3,DWTST,A6 DWT STATUS P LDR A4,A3 4 P ANK A4,
0x277f0c…2780a0 Dummy {f00=0x0165, f01=0x0190, f02=»DK A1,0 RETURN CODE := OK 0 P ANK A3,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? " * P ABL(NZ) AK3RST YES, RETURN WITH ACK 3 V * P ABL WINRST NO, RETURN TO WINDOW QUEUE P* P EJECT P* @ P****************************************************
0x2780a0…278234 (1, 644) Dummy {f00=0x0165, f01=0x0190, f02=»ES. h & P* IT LINKS THE BUFFER TO THE CWT. P* 6 P* CALL: @ P* ABI REAROU,A3 P P* h P* INPUT: r P* A4 = BUFFER ADDRESS P* A5 = CWT ADDRESS P* A6 = DLS INDEX P* A7 = DEVICE ADDRESS P* P* OUTPUT:
0x278234…2783c8 Dummy {f00=0x0165, f01=0x018e, f02=»GETDWT A6 := DWT ADDRESS P RB(Z) GRERR1 NO DWT DEFINED P* D 0 P CF A15,FWIPSR UPDATE FLOW CONTROL COUNTERS N 4 P ST A4,CWTBUF,A5 SAVE INPUT DATA BUFFER ADDRESS 0 P ST A6,BUFDWT,A4 SAVE DWT ADDRESS IN BUFFER , P LD A2,CWTRCA+CCRLEN,A5 EF
0x2783c8…27855c Dummy {f00=0x0165, f01=0x0190, f02=» p P* P EJECT P* P EX CWTST3,A5 RELEASE RCA * P ABL PLDSP2 EXIT L P* d P EJECT n P* | @ P************************************************************ P* P* ROUTINE NAME: P* GRRES P* P*
0x27855c…2786f0 Dummy {f00=0x0165, f01=0x0190, f02=» DWT, d 6 P* AND SETS A RESET PACKET FLAG IN THE DWT. THEN A 0 P* RESET CONFIRMATION MESSAGE IS SENT. IF THE H 8 P* PROCESS IS WAITING FOR LEVEL 3 ACK OR IN A BUFFER | P* QUEUE IT IS ABORTED. P* P* CALL: P* ABI REAROU,A3 P
0x2786f0…278884 Dummy {f00=0x0165, f01=0x018e, f02=» P* P* OUTPUT: P* - P* , @ P************************************************************ 6 P* z PGRRES EQU * $ P CF A15,GETDWT A6 := DWT ADDRESS P RB(Z) GRERR1 NO DWT DEFINED P* P EJECT P* P E
0x278884…278a18 Dummy {f00=0x0165, f01=0x0190, f02=» P LD A2,DWTST,A6 DWT STATUS * P ANK A2,DWFRES RESET ALREADY RECIEVED? * P ABL(NZ) PLDSP2 YES, EXIT X P LDK A2,DWFRES z , P ORS A2,DWTST,A6 INDICATE RESET RECIEVED P* " P CF A15,PLCCCA RESERVE PLC CCA P ENB P* $ P C
0x278a18…278bac Dummy {f00=0x0165, f01=0x0190, f02=»LOCK IN QUEUE (FOR RECOVERY) | P ADK A4,2 SKIP QUEUE LINK $ . P ST A4,CWTCCA+CCRBUF,A5 BUFFER ADDR TO CCA F : P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & MSB OF ADDR x 0 P CF A15,WRADR2 WRITE ADDRESS IN CCA (TYPE 2) 0 P LDK A2,CMDSW COMMAND CODE "ST
0x278bac…278d40 Dummy {f00=0x0165, f01=0x0190, f02=» , P LDK A2,TYRESC TYPE "RESET CONFIRMATION" . P SC A2,CWTCCA+CCRIDB,A5 TO CCA, COMMAND ID 4 : P ST A6,CWTCCA+CCRIDW,A5 DWT ADDRESS TO CCA, COMMAND ID f ( P LDK A2,X25DAT LENGTH OF SYSTEM PART * P ST A2,CWTCCA+CCRLEN,A5 TO CCA LENGTH P* P
0x278d40…278ed4 (1, 645) Dummy {f00=0x0165, f01=0x0190, f02=»5,GETWSS A1 := STATUS & INH P RF(NZ) REERR1 EXIT IF ERROR $ $ P CF A15,PLCCIO EXECUTE CIO START H P RF(NZ) REERR2 EXIT IF ERROR p P* * P LDK A1,LINERR RET CODE := LINK ERROR P LD A2,DWTST,A6 DWT STATUS P LDR A3,A2 , P ANK A2,
0x278ed4…279068 Dummy {f00=0x0165, f01=0x018e, f02=»WAIT FOR LEVEL 3 ACK? z * P ABL(NZ) AK3RST YES, RETURN WITH ACK 3 * P ABL WINRST NO, RETURN TO WINDOW QUEUE L P* z PRE100 EQU * 0 P CF A15,OUTBUQ REMOVE DWT FROM BUFFER QUEUE P LDR A2,A2 FOUND? 0 P ABL(NZ) BUFRST YES, RETURN WITH E
0x279068…2791fc Dummy {f00=0x0165, f01=0x0190, f02=» PREERR2 EQU * 2 P* ERROR. RETURN MONITOR BLOCK IMMEDIATELY , P SUK A4,2 START ADDRESS OF MONITOR BLOCK N 4 P CF A15,LNKOUT REMOVE FROM QUEUE. A7 ALREADY SET ~ ( P CF A15,FREBLK RETURN MONITOR BLOCK P ABL PLDSP2 LOCAL DISPATCHER P*
0x2791fc…279390 Dummy {f00=0x0165, f01=0x0190, f02=»THESE ROUTINES ARE USED AT SYSTEM START OR TC POWER > P* UP. IN CASE OF POWER UP, THEY FIRST REMOVE ALL RUNNING < : P* OUTPUT OPERATIONS. AFTER THAT, THE PLC IS STARTED, ~ 8 P* AND LAST RECOVERY ROUTINES IN DEVICE DRIVERS ARE P* CALLED FOR A
0x279390…279524 Dummy {f00=0x0165, f01=0x0190, f02=» IN ORDER OF APPEARANCE IN CODE: P* ( P* NAME FUNCTION 2 P* J 8 P* PLON CALL RECOVERY ONCE FOR EACH PLC CHANNEL UNIT T 0 P* PLSTRT START PLC AND CALL DEVICE RECOVERY P* P EJECT P* @ P**********************************
0x279524…2796b8 Dummy {f00=0x0165, f01=0x0190, f02=»VATE A MONITOR JOB x 2 P* FOR THE PLC RECOVERY, IF THE JOB NOT ALREADY P* IS PENDING. P : P* THE MONITOR JOB WILL CALL THE RECOVERY ROUTINE ONCE f P* FOR EACH PLC DEFINED. P* P* CALL: P* CF A15,PLON P* P* INPUT:
0x2796b8…27984c Dummy {f00=0x0165, f01=0x0190, f02=»****************************************** ~ P* 2 PPLON EQU * < $ P LD A1,PLCPFP POWER UP PENDING? N P RF(NZ) PO100 YES, EXIT v ( P IM PLCPFP INDICATE POWER UP STARTED P* P LDKL A2,PO110 START ADDRESS & P CF A15,QMJOB ACTIVATE M
0x27984c…2799e0 Dummy {f00=0x0165, f01=0x0190, f02=»ER PENDING ~ P* P* " P IFF UTTEST=0 QUEUE STATISTICS & ( P* RESET QUEUE STATISTICS COUNTERS L P LDK A1,STATLN TABLE LENGTH x PPO113 EQU * P SUK A1,2 NEXT WORD $ P RF(N) PO116 READY WHEN ALL DONE P CM STATAR,A1 RESET
0x2799e0…279b74 (1, 646) Dummy {f00=0x0166, f01=0x0190, f02=»EQU * 0 P* THIS LOOP IS EXECUTED ONCE FOR EACH PLC P SUK A1,2 NEXT PLC B " P RF(N) PO130 EXIT IF ALL DONE P LD A5,TABCWT,A1 CWT ADDRESS * P RB(Z) PO120 TAKE NEXT IF NOT DEFINED P CF A15,PLSTRT START ONE PLC P RB PO120 NEXT P
0x279b74…279d08 Dummy {f00=0x0166, f01=0x0190, f02=»********************************** v P* * P* ROUTINE NAME: 4 P* PLSTRT L P* P* FUNCTION: f 2 P* THIS ROUTINE FIRST CLEARS ALL WORK AREAS AND z 4 P* DWT:S, AND SETS THE DWT:S BUSY. IT THEN STARTS 2 P* THE PLC, AND CALLS RECOVERY RO
0x279d08…279e9c Dummy {f00=0x0166, f01=0x0190, f02=»ADDRESS P* P* OUTPUT: P* - , P* 8 @ P************************************************************ B P* PPLSTRT EQU * P IFT CPU852=1 P CF A15,SAVE8 PUSH A1-A8 P XIF P IFF CPU852=1 P MSR 8,A15 P
0x279e9c…27a030 Dummy {f00=0x0166, f01=0x0190, f02=» r * P CM CWTSBQ,A5 RESET SHORT BUFFER QUEUE * P CM CWTLBQ,A5 RESET LONG BUFFER QUEUE 6 P* d P EJECT n P* | PST100 EQU * . P* RETURN MONITOR BLOCKS USED AS BUFFERS P LDR A7,A5 , P ADK A7,CWTMBQ MONITOR BLOCK QUEUE HEAD
0x27a030…27a1c4 Dummy {f00=0x0166, f01=0x0190, f02=»URN BLOCK ~ P RB ST100 TAKE NEXT PST105 EQU * . . P* RETURN MONITOR BLOCKS FROM CCA QUEUE B P LDR A7,A5 t " P ADK A7,CWTCCQ CCA QUEUE HEAD P LDR* A4,A7 FIRST BLOCK $ P RF(Z) ST110 CONTINUE IF NO LEFT $ P CF A15,LNKOUT REMOV
0x27a1c4…27a358 Dummy {f00=0x0166, f01=0x0190, f02=»REAS z P LDR A4,A5 CWT ADDRESS 2 P ADKL A4,CWTSOB AREA FOR SHORT OUTPUT BUFFERS * P LDR A7,A5 ` 2 P ADK A7,CWTPBS POOLBLOCK, SHORT OUTPUT BUFFERS r ( P CF A15,INIBUF INITIATE BUFFER AREA P LDR A4,A5 CWT ADDRESS 0 P ADKL A4,CWTLOB AREA F
0x27a358…27a4ec Dummy {f00=0x0166, f01=0x0190, f02=»A n P LDR A4,A5 CWT ADDRESS 2 P ADKL A4,CWTGRB AREA FOR GENERAL READ BUFFERS ( P LDR A7,A5 ^ 2 P ADK A7,CWTPBG POOLBLOCK, GENERAL READ BUFFERS p ( P CF A15,INIBUF INITIATE BUFFER AREA P* 0 P* RESET ALL DWT:S AND WORK STATION STATUS
0x27a4ec…27a680 Dummy {f00=0x0166, f01=0x0190, f02=»NO MORE LEFT | " P LDR A2,A3 WORK STATION NUMBER P SLA A2,1 MAKE INDEX : P ADR A2,A5 ADD CWT ADDRESS V , P ADK A2,CWTWSS WORK STATION STATUS WORD x P CMR A2 CLEAR STATUS P LDK A1,NOTOPR " P SCR A1,A2 WS := NOT OPERABLE 0 P LD* A1,
0x27a680…27a814 (1, 647) Dummy {f00=0x0166, f01=0x018e, f02=»DK A7,1 PST130 EQU * P SUK A7,1 NEXT DWT $ ( P RF(N) ST140 NEXT WS IF NO DWT LEFT > P LDR A6,A3 WS NUMBER j $ P CF A15,GETDWT A6 := DWT ADDRESS P RB(Z) ST130 NOT DEFINED $ P CM DWTLD2,A6 RESET FLOW CONTROL P LDKL A2,/FFFF-DWF
0x27a814…27a9a8 Dummy {f00=0x0166, f01=0x018e, f02=» 0 P CM DWTOTQ,A6 REMOVE DWT FROM QUEUE, IF ANY P RB ST130 NEXT DWT 8 PST140 EQU * R P RB ST120 NEXT WORK STATION f P* PST150 EQU * , P* DELAY UNTIL PLC IS READY FOR START , P LD A4,CWTTPR,A5 TIMER ALREADY STARTED? P
0x27a9a8…27ab3c Dummy {f00=0x0166, f01=0x0190, f02=» PST152 EQU * P LDR A1,A5 SAVE CWT ADDRESS P CF A15,SETIME START TIMER < 4 P DATA ST156,STADLY RESTART ADDRESS & DELAY TIME ^ ( P ST A4,CWTTPR,A5 SAVE TIMER POINTER PST154 EQU * ( P ABL TDISP WAIT UNTIL TIMER EXPIRES P*
0x27ab3c…27acd0 Dummy {f00=0x0166, f01=0x0190, f02=» CHANNEL UNIT" OPERATION P IM CWTCCB,A5 SET CCA BUSY " P CM CWTOPR,A5 SET PLC OPERABLE B & P LDK A2,CMDTC COMMAND CODE TEST CU h 8 P ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA , P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING P LDR A3,A5
0x27acd0…27ae64 Dummy {f00=0x0166, f01=0x0190, f02=» EXIT IF ERROR 6 P IM CWTOPR,A5 SET NOT OPERABLE UNTIL TEST CU READY " P ABL TDISP WAIT FOR COMPLETION P P* v P* 6 P* ENTRY IS MADE HERE WHEN TEST CU IS COMPLETED. & P* REGISTER CONTENTS ON ENTRY: P* A1 = PLC STATUS P
0x27ae64…27aff8 Dummy {f00=0x0166, f01=0x018e, f02=» PERFORM "OPEN LINE" OPERATION P U =5 & $ P LDK A2,0 INITIATE LINE COUNTER 6 P ST A2,CWTLNO,A5 ^ PST157 EQU * v P CF A15,PLCCCA RESERVE CCA P* P LD A2,CWTLNO,A5 GET LINE NO 2 P SC A2,CWTCCA+CCRSU1,A5 SET UP LINE IN CCA =5
0x27aff8…27b18c Dummy {f00=0x0166, f01=0x0190, f02=» n . P AD A2,CWTPAR,A5 OPEN LINE PARAMETER AREA P LDR* A2,A2 U =5 : * P ST A2,CWTCCA+CCRBUF,A5 SET UP IN CCA R $ P LDK A2,CMDOP COMMAND OPEN LINE 8 P ST A2,CWTCCA+CCRDLS,A5 COMMAND AND DLS INDEX TO CCA : P CM CWTCCA+CCRC1B,A5 RESET DATA CHAI
0x27b18c…27b320 Dummy {f00=0x0166, f01=0x0190, f02=»PLC OPERABLE ~ P CF A15,PLCCIO CIO START P RF(NZ) STERR2 EXIT IF ERROR 4 P ABL PLDSP2 LOCAL DISPATCHER X P* | P* 8 P* ENTRY TO OPLRST WILL BE MADE WHEN THE OPEN LINE P* OPERATION IS COMPLETED. & P* REGISTER CONTENTS
0x27b320…27b4b4 (1, 648) Dummy {f00=0x0166, f01=0x0190, f02=»F(NZ) STERR2 NO, EXIT P* P LD A2,CWTPNR,A5 GET PLC NR ( P SUK A2,3 CHECK IF LOCAL L P RF(NP) ST159 YES l ( P IM CWTLNO,A5 INCREMENT LINE NUMBER P LD A2,CWTLNO,A5 GET LINE NO P SUK A2,4 ALL LINES OPENED ? P RB(NZ) ST157
0x27b4b4…27b648 Dummy {f00=0x0166, f01=0x0190, f02=» PERFORM OPEN DATA LINK FOR ALL CONNECTED SECONDARIES P* @ ( P LDK A6,MAXWS+1 (MAX NR OF DLS) + 1 J PST160 EQU * v & P SUK A6,1 NEXT WORK STATION (DLS) " P RF(N) ST180 EXIT IF ALL DONE ( P LD* A1,CWTINT,A5 WORK STATION TABLE 0 P C
0x27b648…27b7dc Dummy {f00=0x0166, f01=0x0190, f02=»PLCCCA RESERVE CCA " P LDR A3,A6 WORK STATION NUMBER P SLA A3,1 MAKE INDEX @ P ADR A3,A5 ADD CWT ADDRESS " P CM CWTWSS,A3 CLEAR WS STATUS ~ 8 P SC A6,CWTCCA+CCRDLS,A5 DLS INDEX (WS NUMBER) TO CCA * P ST A6,CWTCCA+CCRIDW,A5 SAVE DLS INDEX
0x27b7dc…27b970 Dummy {f00=0x0166, f01=0x0190, f02=»CCA+CCRSU1,A5 TO SUBCOMMAND 1 , P CM CWTCCA+CCRC1B,A5 RESET DATA CHAINING & P CF A15,PLCCIO CIO START V P RF(NZ) STERR2 EXIT IF ERROR v * P ABL PLDSP2 EXIT. WAIT FOR COMPLETION P* P* > P* ENTRY TO ODLRST IS MADE WHEN OPERATION
0x27b970…27bb04 Dummy {f00=0x0166, f01=0x0190, f02=» STATION NUMBER (DLS INDEX) P* $ PODLRST EQU * . P LDR A2,A2 FATAL ERROR? B P RF(NZ) STERR2 YES, EXIT b 0 P LD* A3,CWTINT,A5 WORK STATION TABLE ADDRESS $ P LDK A4,RETCP FLAG "TC POWER UP" . P CF A15,NDREWS RECOVERY OF ALL DWT:S ON WS
0x27bb04…27bc98 Dummy {f00=0x0166, f01=0x018e, f02=»BL PLDSP2 LOCAL DISPATCHER P* " P* , PSTERR2 EQU * 6 $ P* ERROR DURING STARTUP. EXIT. J P* r P ABL TDISP EXIT | P* P EJECT P* P******************** P* LOCAL DISPATCHER * P********************
0x27bc98…27be2c Dummy {f00=0x0166, f01=0x0190, f02=» V > P* PLC DRIVER, OR FROM A TERMINAL DEVICE DRIVER (THROUGH " P* THE NETWORK DISTRIBUTOR). J : P* SOME INTERRUPTS OR DEVICE DRIVER CALLS SET SEVERAL p 8 P* RESOURCES FREE. THIS MEANS THAT SEVERAL WAITING < P* PROCERSSES MAY BECOME READ
0x27be2c…27bfc0 Dummy {f00=0x0166, f01=0x0190, f02=» TURN, WHEN FIRST h * P* PROCESS EXITS TO THIS DISPATCHER. P* H P* R 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: P* P* NAME FUNCTION P* 8 P* PLDISP ACTIVATE PROCESS OR PERFORM COMMON FUNCTION P* P EJECT
0x27bfc0…27c154 (1, 649) Dummy {f00=0x0166, f01=0x0190, f02=»* P* FUNCTION: 8 P* THIS ROUTINE LOOKS FOR WAITING PROCESSES THAT ARE 4 P* READY FOR DISPATCHING. IF ANY IS FOUND, IT IS Z 8 P* ACTIVATED. THE ROUTINE ALSO PERFORMS ACTIONS THAT 8 P* ARE NOT EXPLICITLY REQUESTED BY USER PROCESSES, EG <
0x27c154…27c2e8 Dummy {f00=0x0166, f01=0x0190, f02=» USED WHEN CALLER n 6 P* KNOWS OWN DWT ADDRESS, ONE WHEN CALLER KNOWS OWN P* CWT ADDRESS. T P* j P* CALL: t P* ABL PLDISP P* ABL PLDSP2 P* P* INPUT: $ P* A5 = CWT ADDRESS (IF PLDSP2) $ P* A6 = DWT ADDRESS (IF PL
0x27c2e8…27c47c Dummy {f00=0x0166, f01=0x0190, f02=»**************** d P* PPLDISP EQU * " PPRDISP EQU * 6 $ P CF A15,GETCWT A5 := CWT ADDRESS J P LDR A5,A5 r $ P ABL(Z) TDISP NOT DEFINED. EXIT P* P* PPLDSP2 EQU * P* P* PDP100 EQU * P ENB P
0x27c47c…27c610 Dummy {f00=0x0166, f01=0x0190, f02=» ADDRESS | P* " P CF A15,PLGECH A2 := CHARACTER P LDR A1,A1 CHECK RETURN CODE @ P RF(N) DP110 BUFFER EMPTY d " P LD A3,DWTST,A6 DEVICE STATUS $ P ANK A3,DWFINP INPUT REQUESTED? 0 P ABL(NZ) INPRST YES, RETURN TO DEVICE DRIVER P
0x27c610…27c7a4 Dummy {f00=0x0166, f01=0x0190, f02=»ER j P* PDP110 EQU * 0 P CW A4,DWTLD1,A6 BUFFER CHAINED TO THIS DWT? ( P RF(NE) DP120 NO, CONTINUE P CM DWTLD1,A6 REMOVE LINK ~ PDP120 EQU * $ P CM CWTBUF,A5 NO BUFFER WAITING " P CF A15,PLRLBU RELEASE BUFFER P*
0x27c7a4…27c938 Dummy {f00=0x0166, f01=0x0190, f02=»ND RR? | P ABL(NN) SENDRR YES P* * P* 4 PDP200 EQU * > P ENB R P* HANDLE POWER UP FOR TC ^ ( P LD A1,PFPOST POWER UP TASK PENDING? ( P OR A1,PLCPFP PLC POWER UP PENDING? P ABL(NZ) TDISP YES, EXIT P* P*
0x27c938…27cacc Dummy {f00=0x0166, f01=0x0190, f02=»BORT, IF REQUESTED | P* P* $ PDP400 EQU * . ( P* CHECK IF ANYONE WAITING FOR CCA B * P LD A4,CWTCCQ,A5 ANYONE IN CCA QUEUE? n P RF(Z) DP500 NO, CONTINUE P LD A1,CWTCCB,A5 CCA FREE? P RF(NZ) DP500 NO, CONTINUE P IM CW
0x27cacc…27cc60 Dummy {f00=0x0166, f01=0x0190, f02=» x 4 P LD A6,CWTSBQ,A5 ANYONE IN SHORT BUFFERS QUEUE? P RF(Z) DP510 NO, CHECK LONG @ P LDR A7,A5 CWT ADDRESS d . P ADK A7,CWTPBS POOLBLOCK FOR SHORT BUFFERS ( P CF A15,PLGTBU A4 := BUFFER ADDRESS $ P RF(Z) DP510 NO BUFFER AVAILABLE , P
0x27cc60…27cdf4 (1, 650) Dummy {f00=0x0167, f01=0x0190, f02=»A5 ANYONE IN LONG BUFFERS QUEUE? P RF(Z) DP600 NO, CONTINUE ( P LDR A7,A5 CWT ADDRESS J . P ADK A7,CWTPBL POOLBLOCK FOR LONG BUFFERS h ( P CF A15,PLGTBU A4 := BUFFER ADDRESS 0 P RF(Z) DP600 CONTINUE IF NO BUFFER AVAILABLE 4 P LDK A7,CWTLBQ
0x27cdf4…27cf88 Dummy {f00=0x0167, f01=0x0190, f02=» ADDRESS z P LDR A4,A6 DWT QUEUE LINK P ADR A7,A5 BUFFER QUEUE HEAD 2 $ P CF A15,LNKOUT REMOVE FROM QUEUE V & P SUKL A6,DWTOTQ A6 := DWT ADDRESS ~ & P LDR A4,A2 RESTORE BUFFER ADDRESS P LDK A1,0 RET CODE := OK * P ABL BUFRST RETURN TO
0x27cf88…27d11c Dummy {f00=0x0167, f01=0x0190, f02=»NERAL READ ALLOWED? ~ P RF(NZ) DP800 NO, EXIT P* : P LDR A7,A5 CWT ADDRESS D 6 P ADK A7,CWTPBG POOLBLOCK FOR GENERAL READ BUFFERS b ( P CF A15,PLGTBU A4 := BUFFER ADDRESS . P ABL(NZ) GREAD PERFORM GR IF BUFFER FOUND P* P*
0x27d11c…27d2b0 Dummy {f00=0x0167, f01=0x018e, f02=»* P************ P* ROUTINES * P************ 2 P* F > P* THIS SECTION CONTAINS MISCELLANEOUS SERVICE ROUTINES. P B P* ALL ROUTINES ARE CALLED BY AN ABL "NAME" INSTRUCTION. : P* REGISTER INTERFACE IS DESCRIBED FOR EACH ROU
0x27d2b0…27d444 Dummy {f00=0x0167, f01=0x0190, f02=» 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: P* 8 P* NAME FUNCTION B P* Z 6 P* ABTHAN ABORT ALL WAITING DWT:S ON A WORK STATION d 0 P* PLREWS HANDLE RECOVERY OF ONE WORK STATION 0 P* SENDRR SEND LEVEL 3 RECIEVE READY MESSAGE P*
0x27d444…27d5d8 Dummy {f00=0x0167, f01=0x0190, f02=»* P* ROUTINE NAME: P* ABTHAN " P* 2 P* FUNCTION: < 2 P* THIS ROUTINE WILL HANDLE ABORTS FOR ONE WORK P 0 P* STATION. ALL REQUESTS OF DWT:S WAITING FOR 4 P* LEVEL 3 ACK OR WAITING IN CCA OR BUFFER QUEUES 2 P* WILL BE ABORTED. ONE
0x27d5d8…27d76c Dummy {f00=0x0167, f01=0x0190, f02=»* A5 = CWT ADDRESS P* A6 = WORK STATION NUMBER P* @ P* OUTPUT: J P* AT RETURN TO REQUEST: P* A1 = RETURN CODE P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P* @ P******************************************
0x27d76c…27d900 Dummy {f00=0x0167, f01=0x0190, f02=» CWT ADDRESS 2 P ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS P* J P EJECT T P* b P LDR A8,A6 SAVE WS NUMBER l ( P LD* A1,CWTINT,A5 WORK STATION TABLE , P CF A15,NDGEDN A7 := HIGEST DWT NR ON WS P LDK A1,0 " P LCR A1,A3 W
0x27d900…27da94 (1, 651) Dummy {f00=0x0167, f01=0x0190, f02=» ALL DONE | P LDR A6,A8 WS NUMBER $ P CF A15,GETDWT A6 := DWT ADDRESS . P RB(Z) AH100 NOT DEFINED V P* v $ P CM DWTLD2,A6 RESET FLOW CONTROL P LD A2,DWTST,A6 DWT STATUS P LDR A3,A2 , P LDKL A4,/FFFF-DWFPLC MASK FOR PLC FLAGS
0x27da94…27dc28 Dummy {f00=0x0167, f01=0x0190, f02=»DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? * P ABL(NZ) AK3RST YES, RETURN WITH ACK 3 , * P ABL WINRST NO, RETURN TO WINDOW QUEUE Z P* PAH105 EQU * . P LD A4,DWTOTQ,A6 CCA QUEUE ELEMENT POINTER " P LDR A2,A7 SAVE DEVICE ADDRESS P LDR A3,A1
0x27dc28…27ddbc Dummy {f00=0x0167, f01=0x0190, f02=»UEUE f P LDR A7,A7 FOUND? & P ABL(NZ) CCAABT YES, ABORT REQUEST & & P LDR A7,A2 RESTORE DEVICE ADDRESS P " P LDR A1,A3 RESTORE RETURN CODE z P* , P CF A15,OUTBUQ REMOVE FROM BUFFER QUEUE P LDR A2,A2 FOUND IN QUEUE? * P ABL(NZ) BUF
0x27ddbc…27df50 Dummy {f00=0x0167, f01=0x0190, f02=»UES ARE ABORTED b P CM CWTABW,A5 NO MORE ABORT P ABL PLDSP2 LOCAL DISPATCHER < P* ` P EJECT j P* x @ P************************************************************ P* P* ROUTINE NAME: P* PLREWS P* P* FUNC
0x27df50…27e0e4 Dummy {f00=0x0167, f01=0x0190, f02=» ROUTINES ARE MADE THROUGH NDREWS. P* * P* CALL: 4 P* ABL PLREWS D P* X P* INPUT: b P* A5 = CWT ADDRESS r P* A6 = WORK STATION NUMBER P* P* OUTPUT: ( P* AT ENTRY TO DEVICE RECOVERY: P* SEE NDREWS
0x27e0e4…27e278 Dummy {f00=0x0167, f01=0x0190, f02=»N NUMBER z P SLA A3,1 MAKE INDEX P ADR A3,A5 ADD CWT ADDRESS , 2 P ADK A3,CWTWSS A3 := ADDRESS OF STATUS FOR WS N P* . P LDKL A2,/FFFF-WSFERR MASK FOR ERROR FLAG 0 P ANRS A2,A3 INDICATE WS WORKING AFTER ERROR P LCR A1,A3 WS STATUS
0x27e278…27e40c Dummy {f00=0x0167, f01=0x0190, f02=» RF(NZ) PR110 YES " P LDK A4,RELINE NO, LINK ERROR PPR110 EQU * @ ( P LD* A3,CWTINT,A5 WORK STATION TABLE T 4 P CF A15,NDREWS CALL RECOVERY FOR ALL DWT:S ON WS P* P ABL PLDSP2 LOCAL DISPATCHER P* P EJECT P* @ P
0x27e40c…27e5a0 Dummy {f00=0x0167, f01=0x0190, f02=»ON: 6 P* THIS ROUTINE WILL SEND ONE LEVEL 3 RECIEVE READY & P* MESSAGE TO A SECONDARY STATION. F P* p P* CALL: z P* ABL SENDRR P* P* INPUT: P* A5 = CWT ADDRESS P* A6 = DWT ADDRESS P* P* OUTPUT:
0x27e5a0…27e734 (1, 652) Dummy {f00=0x0167, f01=0x0190, f02=»CA RESERVE CCA . P CF A15,GETBLK GET MONITOR BLOCK AS BUFFER P ENB H P LDR A7,A5 CWT ADDRESS T 2 P ADK A7,CWTMBQ QUEUE FOR KEEPING TRACK OF MB:S r . P CF A15,LNKFST PUT MONITOR BLOCK IN QUEUE & P ADK A4,2 A4 := START OF USER PART 6 P CF
0x27e734…27e8c8 Dummy {f00=0x0167, f01=0x0190, f02=» . P LDK A2,TYRR MESSAGE TYPE := RECIEVE READY , P SC A2,CWTCCA+CCRIDB,A5 TO CCA, IDENTITY 6 ( P LDK A2,X25DAT LENGTH OF X25 HEADER f 0 P ST A2,CWTCCA+CCRLEN,A5 BUFFER LENGTH TO CCA < P CM CWTCCA+CCRC1B,A5 RESET DATA CHAIN & MSB BUFFER ADDR 2 P S
0x27e8c8…27ea5c Dummy {f00=0x0167, f01=0x018e, f02=» P CM CWTCCB,A5 SET CCA FREE P RF RR110 SKIP RR & PRR100 EQU * @ . P CF A15,FWOPR A2 := P(R). UPDATE FLOW CTRL T " P ORK A2,/01 MESSAGE TYPE := RR P SC A2,X25FLW,A4 TO BUFFER $ P CF A15,PLCCIO EXECUTE CIO START P RF(Z) RR120 EXIT
0x27ea5c…27ebf0 Dummy {f00=0x0167, f01=0x018e, f02=» ( P CF A15,FREBLK RETURN MONITOR BLOCK P* 0 PRR120 EQU * : P ABL PLDSP2 LOCAL DISPATCHER N P* r P EJECT | P* @ P************************************************************ P* P* ROUTINE NAME: P* GREAD
0x27ebf0…27ed84 Dummy {f00=0x0167, f01=0x0190, f02=» P* ABL GREAD P* P* INPUT: & P* A4 = BUFFER ADDRESS 6 P* A5 = CWT ADDRESS T P* p P* OUTPUT: z P* - P* @ P************************************************************ P* PGREAD EQU * * P LDR
0x27ed84…27ef18 Dummy {f00=0x0167, f01=0x0190, f02=»LEAR DATA CHAINING & MSB ADDR z * P ST A6,CWTCCA+CCRBUF,A5 BUFFER ADDRESS & " P LD A2,BUFLEN,A6 BUFFER LENGTH T P ST A2,CWTCCA+CCRLEN,A5 z & P LDK A2,CMDGR COMMAND GENERAL READ 0 P ST A2,CWTCCA+CCRDLS,A5 DLS INDEX & COMMAND $ P CF A15,PLCCIO E
0x27ef18…27f0ac Dummy {f00=0x0167, f01=0x0190, f02=»S * P*************** P* $ @ P* THIS SECTION CONTAINS MISCELLANEOUS SERVICE SUBROUTINES. . 6 P* ALL ROUTINES ARE CALLED BY A CF A15,"NAME" r > P* INSTRUCTION. REGISTER INTERFACE IS DESCRIBED FOR EACH < P* ROUTINE. ONLY REGISTER
0x27f0ac…27f240 Dummy {f00=0x0167, f01=0x0190, f02=»INES ARE OF TWO TYPES, ASYNCHRONOUS ROUTINES < P* AND COMPUTATION ROUTINES. ASYNCHRONOUS ROUTINES MAY, 4 > P* IF THE REQUESTED FUNCTION IS OCCUPIED OR NOT USEABLE, t < P* EXIT TO THE LOCAL DISPATCHER AND/OR TOSS DISPATCHER. : P* THIS MEANS THA
0x27f240…27f3d4 (1, 653) Dummy {f00=0x0167, f01=0x0190, f02=»LIMITATIONS, AS THEY WILL RETURN v < P* IMMEDIATELY WHEN THEY HAVE PERFORMED THE PROCESSING. ( P* h P EJECT r P* 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: P* P* NAME FUNCTION P* P* ASYNCHRONOUS ROUTINES
0x27f3d4…27f568 Dummy {f00=0x0167, f01=0x0190, f02=»ET FLAG INDICATING PLC NOT OPERABLE " P* GETDWT CALCULATE DWT ADDRESS , " P* GETCWT CALCULATE CWT ADDRESS R , P* GETFR GET NUMBER OF OUTSTANDING FRAMES x * P* FLWINP HANDLE FLOW CONTROL FOR INPUT , P* FLWOUT HANDLE FLOW CONTROL FOR OUTPUT 2 P*
0x27f568…27f6fc Dummy {f00=0x0167, f01=0x0190, f02=» 2 P* PLGTBU ALLOCATE BUFFER AND SET TO PLC FORMAT * P* PLRLBU RELEASE BUFFER OF PLC FORMAT : 8 P* PLCHAR GET/PUT CHARACTER FROM/IN PLC FORMAT BUFFER h * P* INTYPE DECIDE TYPE OF INPUT MESSAGE . P* OUTBUQ REMOVE ELEMENT FROM BUFFER QUEUE ( P* LN
0x27f6fc…27f890 Dummy {f00=0x0167, f01=0x0190, f02=» EJECT P* @ P************************************************************ P* P* ROUTINE NAME: f P* PLCCCA ~ P* P* FUNCTION: 4 P* THIS ROUTINE IS CALLED WHEN A PROCESS WANTS TO 4 P* USE THE PLC COMMAND COMMUNICATION
0x27f890…27fa24 Dummy {f00=0x0167, f01=0x0190, f02=»OCESS IS PUT IN A QUEUE, AND EXIT IS MADE TO P* THE LOCAL DISPATCHER. 4 $ P* PLCCCA ONLY RESERVES THE AREA. T 2 P* PLCCCS ALSO SAVES THE QUEUE ELEMENT ADDRESS. | P* P* CALL: P* CF A15,PLCCCA P* CF A15,PLCCCS P* P*
0x27fa24…27fbb8 Dummy {f00=0x0167, f01=0x0190, f02=»ON A15 STACK P* P* OUTPUT: 2 P* A1 = RETURN CODE (IF PLCCCS, ELSE CHANGED) 0 P* A2-A4 CHANGED f P* A7-A8 CHANGED ~ P* CR = CHANGED P* INTERR. INHIBITED P* @ P****************************************************
0x27fbb8…27fd4c Dummy {f00=0x0167, f01=0x0190, f02=» EQU * P INH , P LD A1,CWTCCQ,A5 ANYONE WAITING FOR CCA? $ P RF(NZ) CA100 YES, PUT IN QUEUE J P LD A4,CWTCCB,A5 PLC BUSY? r $ P RF(NZ) CA100 YES, PUT IN QUEUE P* P* PLC FREE P IM CWTCCB,A5 SET PLC BUSY ( P ADKL A15,
0x27fd4c…27fee0 Dummy {f00=0x0167, f01=0x0190, f02=»EQU * ( P* PLC BUSY. PUT REQUEST IN QUEUE. P LDR A1,A6 SAVE PARAMETER : P LDR* A2,A15 SKIP PSW $ P LDR* A2,A15 SAVE RETURN ADDRESS z 4 P CF A15,GETBLK GET MONITOR BLOCK AND SAVE A1-A2 P LDR A3,A3 SAVE POINTER? P RF(Z) CA110 N
0x27fee0…280074 (1, 654) Dummy {f00=0x0168, f01=0x018e, f02=»USY QUEUE HEAD | * P CF A15,LNKLST PUT BLOCK LAST IN QUEUE " P IFF UTTEST=0 QUEUE STATISTICS D P LD A1,CWTPNR,A5 PLC NUMBER j P SLA A1,1 MAKE INDEX 4 P IM CCQSTA,A1 INCREMENT QUEUE STATISTICS COUNTER P XIF P ABL PLDSP2 LOCAL DISPATCH
0x280074…280208 Dummy {f00=0x0168, f01=0x0190, f02=» P* REGISTERS ON ENTRY: " P* A4 = MONITOR BLOCK ADDRESS * P* A5 = CWT ADDRESS P P* l PCCARST EQU * v P INH P LDR A7,A5 CWT ADDRESS " P ADK A7,CWTCCQ CCA QUEUE HEAD , P CF A15,LNKOUT REMOVE PROCESS FROM QUEUE
0x280208…28039c Dummy {f00=0x0168, f01=0x0190, f02=»O ERROR. P* REGISTERS ON ENTRY: P* A3 = RETURN CODE 2 " P* A4 = MONITOR BLOCK ADDRESS N P* A5 = CWT ADDRESS t P* PCCAABT EQU * P INH P LDR A7,A3 SAVE RETURN CODE 4 P CF A15,FREBLK RETURN MONITOR BLOCK. LOAD
0x28039c…280530 Dummy {f00=0x0168, f01=0x0190, f02=»********************************************************** P* B P* ROUTINE NAME: L P* PLCCIO d P* t P* FUNCTION: ~ < P* THIS ROUTINE CHECKS IF THE PLC CAN BE USED. IF IT CAN, 4 P* THE ROUTINE EXECUTES A CIO START INSTRUCTION. 4
0x280530…2806c4 Dummy {f00=0x0168, f01=0x0190, f02=»LL RETURN TO CALLING PROGRAM WITH A RETURN P* CODE. 2 P* B P* CALL: L P* CF A15,PLCCIO P* t P* INPUT: ~ P* A5 = CWT ADDRESS P* A1-A8 ON A15 STACK P* P* OUTPUT: P* A1 = RETURN CODE P* 0 IF O
0x2806c4…280858 Dummy {f00=0x0168, f01=0x0190, f02=»************************************************ P* 8 PPLCCIO EQU * B P INH V P LDR* A2,A15 SKIP PSW b $ P LDR* A2,A15 GET RETURN ADDRESS P* P EJECT P* ( P LD A1,PFPOST POWER UP TASK PENDING? ( P OR A1,PLCPFP PLC
0x280858…2809ec Dummy {f00=0x0168, f01=0x0190, f02=»LE z P IFF UTTEST=0 P CF A15,LOGCOM LOG CCR P XIF > $ P EX CWTCIO,A5 EXECUTE CIO START J " P ABR(A) A2 RETURN IF OK. A1=0 r P* * P CF A15,PLCNOP ERROR. SET NOT OPERABLE PCS100 EQU * . P LDK A1,NOTOPR RETURN CODE := NOT OP
0x2809ec…280b80 Dummy {f00=0x0168, f01=0x0190, f02=»****************************************************** P* > P* ROUTINE NAME: H P* PLCNOP ` P* p P* FUNCTION: z 8 P* THIS ROUTINE SETS A FLAG TO INDICATE THAT THE PLC P* IS "NOT OPERABLE". P* P* CALL: P* CF A15
0x280b80…280d14 (1, 655) Dummy {f00=0x0168, f01=0x018e, f02=»******************************************** P* 4 PPLCNOP EQU * > P STR A1,A15 PUSH A1 R $ P LD A1,CWTPLS,A5 GET PLC STATUS n P RF(NZ) PN100 $ P LDKL A1,-1 SET DUMMY ERROR CODE PPN100 EQU * * P ST A1,CWTOPR,A5 SET PLC NOT OPE
0x280d14…280ea8 Dummy {f00=0x0168, f01=0x0190, f02=» z P RF(NG) PN120 NO, SKIP P LDK A1,PLCERR ERROR CODE & P OTR A1,0,/2E TO SOP LAMPS H P DATA /6300 TRAP TO BUGGER j PPN120 EQU * P* P XIF P* P LDR* A1,A15 POP A1 P RTN A15 P EJECT P* @ P****
0x280ea8…28103c Dummy {f00=0x0168, f01=0x018e, f02=» 4 P* THIS ROUTINE CALCULATES THE DWT ADDRESS FOR A P* DEVICE CONNECTED TO A PLC. @ P* d P* CALL: n P* CF A15,GETDWT ~ P* P* INPUT: P* A5 = CWT ADDRESS P* A6 = DLS INDEX P* A7 = DEVICE ADDRESS P*
0x28103c…2811d0 Dummy {f00=0x0168, f01=0x0190, f02=» P* ! @ P************************************************************ ! P* ! R PGETDWT EQU * ! P INH ! p P STR A1,A15 PUSH A1 ! | ( P LD* A1,CWTINT,A5 WORK STATION TABLE ! $ P CF A15,NDGEDW A6 := DWT ADDRESS ! P LDR* A1,A15 POP A1 ! ( P
0x2811d0…281364 Dummy {f00=0x0168, f01=0x0190, f02=» P* " @ P************************************************************ " P* " R P* ROUTINE NAME: " P* GETCWT " t P* " P* FUNCTION: " 2 P* THIS ROUTINE CALCULATES THE CWT ADDRESS FOR " * P* THE PLC CONTROLLING CALLING DEVICE. " P*
0x281364…2814f8 Dummy {f00=0x0168, f01=0x0190, f02=»= CWT ADDRESS IF FOUND, " P* ELSE 0 # " P* A7 = 0 IF LOCAL CONNECTION # 2 P* CR = CHANGED # X P* # p @ P************************************************************ # z P* # PGETCWT EQU * # ( P LD A5,DWTCHP,A6 CHANNEL PARAMETERS # , P
0x2814f8…28168c Dummy {f00=0x0168, f01=0x0190, f02=»NEL PARAMETER # P SUKL A7,/0500 REMOTE ? $ P RF(Z) GET010 NO $ 6 & P ADK A5,8 ADJUST INDEX FOR REMOTE $ N P XIF $ x , PGET010 LD A5,TABCWT,A5 A5 := CWT ADDRESS $ P* $ P IFT CPU852=1 $ P ADKL A15,2 SKIP PSW $ P LDR* P,A15 RETURN $
0x28168c…281820 Dummy {f00=0x0168, f01=0x018e, f02=»********************** $ j P* % P* ROUTINE NAME: % ( P* GETFR % @ P* % P P* FUNCTION: % Z 8 P* THIS ROUTINE CALCULATES THE NUMBER OF OUTSTANDING % n 6 P* FRAMES, IE FRAMES THAT HAVE BEEN TRANSFERRED BUT % 0 P* NOT ACKNOWLEDGED ON LEVEL 3, FOR A
0x281820…2819b4 (1, 656) Dummy {f00=0x0168, f01=0x0190, f02=» % b P* & P* CALL: & P* CF A15,GETIFR & " P* CF A15,GETOFR & : P* & R P* INPUT: & P* A6 = DWT ADDRESS & l P* & P* OUTPUT: & P* A1 = CHANGED & ( P* A2 = NUMBER OF OUTSTANDING FRAMES & P* CR = CHANGED & P* & @
0x2819b4…281b48 Dummy {f00=0x0168, f01=0x0190, f02=»RS & l P LDR A1,A2 ' . P SRL A2,9 BITS 13-15 := NEXT EXPECTED P(S) ' * P SRL A1,5 BITS 13-15 := LAST SENT P(R) ' N P RF GF100 TO COMMON PART ' | P* ' P EJECT ' P* ' PGETOFR EQU * ' * P LD A2,DWTLD2,A6 FLOW CONTROL COUNTERS ' P LDR A1,
0x281b48…281cdc Dummy {f00=0x0168, f01=0x0190, f02=»EQU * ' ( P SUR A2,A1 A2 := OUTSTANDING FRAMES ( P ANK A2,/07 CLEAN & MODULO 8 ( : P* ( ^ P IFT CPU852=1 ( h P ADKL A15,2 SKIP PSW ( ~ P LDR* P,A15 RETURN ( P XIF ( P* ( P IFF CPU852=1 ( P RTN A15 ( P XIF ( P* ( P E
0x281cdc…281e70 Dummy {f00=0x0168, f01=0x0190, f02=» P* ) P* FUNCTION: ) > P* THIS ROUTINE HANDLES FLOW CONTROL FOR INPUT. IT FETCHES ) " 8 P* FLOW CONTROL INFORMATION FROM MESSAGE AND UPDATES ) d P* COUNTERS IN DWT. ) 2 P* FWIPR IS FOR MESSAGES ONLY CONTAINING P(R). ) 6 P* FWIPSR IS FOR MESSAGES
0x281e70…282004 Dummy {f00=0x0168, f01=0x0190, f02=» P* * P* INPUT: * P* A4 = BUFFER ADDRESS * P* A6 = DWT ADDRESS * < P* * X P* OUTPUT: * b P* A1 = CHANGED * t P* CR = CHANGED * P* * @ P************************************************************ * P* * PFWIPR EQU *
0x282004…282198 Dummy {f00=0x0168, f01=0x0190, f02=»2,A6 OLD FLOW CONTROL * ( P ANK A2,/0E BITS 12-14 = OLD P(S) IN + P ORR A1,A2 KEEP OLD P(S) + J P LDR* A2,A15 POP A2 + j P RF FI100 COMMON ENDING + P* + P* + PFWIPSR EQU * + , P LC A1,X25FLW,A4 FLOW CONTROL FROM INPUT + P ANK A1,/E
0x282198…28232c Dummy {f00=0x0168, f01=0x0190, f02=» * P SC A1,DWTLD2,A6 SAVE NEW FLOW CONTROL , P* , 2 P IFT CPU852=1 , < P ADKL A15,2 SKIP PSW , R P LDR* P,A15 RETURN , n P XIF , P* , P IFF CPU852=1 , P RTN A15 , P XIF , P* , P EJECT , P* , @ P**********************
0x28232c…2824c0 Dummy {f00=0x0168, f01=0x0190, f02=»TINE HANDLES FLOW CONTROL FOR OUTPUT. FLOW , < P* CONTROL INFORMATION IS FETCHED FROM DWT, AND COUNTERS - 2 P* IN DWT ARE UPDATED. - r 2 P* FWOPR IS FOR MESSAGES CONTAINING ONLY P(R). - 6 P* FWOPSR IS FOR MESSAGES CONTAINING P(S) AND P(R). - P* -
0x2824c0…282654 (1, 657) Dummy {f00=0x0168, f01=0x0190, f02=»: - P* A1 = CHANGED . P* A2 = BITS 0-7 ZERO . " P* BITS 8-10 P(R) TO SEND . @ P* BIT 11 ZERO . b * P* BITS 12-14 P(S) TO SEND IF FWOPSR . z P* ELSE ZERO . P* BIT 15 ZERO . P* CR = CHANGED . P* . @ P****
0x282654…2827e8 Dummy {f00=0x0168, f01=0x0190, f02=» P LDR A1,A2 / 0 P SRL A2,4 BITS 8-10 := NEXT EXPECTED P(S) IN / P* (= P(R) TO SEND) / J P ANK A2,/E0 CLEAN / h . P ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND / & P ORR A1,A2 P(S) := SAME AS BEFORE / P RF FO100 COMMON ENDING / P* / P
0x2827e8…28297c Dummy {f00=0x0168, f01=0x0190, f02=»IN / f P* (= P(R) TO SEND) 0 P ANK A2,/E0 CLEAN 0 ( . P ANK A1,/0E BITS 12-14 = NEXT P(S) TO SEND 0 B $ P ORR A2,A1 COUNTERS FOR MESSAGE 0 t P LDR A1,A2 0 & P ADK A1,/02 INCREMENT P(S) TO SEND 0 P ANK A1,/EE MODULO 8 0 P* 0 P* 0 P
0x28297c…282b10 Dummy {f00=0x0168, f01=0x0190, f02=»DR* P,A15 RETURN 0 P XIF 1 P* 1 $ P IFF CPU852=1 1 . P RTN A15 1 D P XIF 1 T P EJECT 1 ` P* 1 n @ P************************************************************ 1 x P* 1 P* ROUTINE NAME: 1 P* WRADDR 1 P* 1 P* FUNCTION: 1
0x282b10…282ca4 Dummy {f00=0x0168, f01=0x0190, f02=»ICE ADDRESS. WRADR1 SETS 1 z 6 P* GROUP=1 INDICATING NO FLOW CONTROL, WRADR2 SETS 2 & P* GROUP=0 INDICATING FLOW CONTROL. 2 Z P* 2 P* CALL: 2 P* CF A15,WRADR1 2 P* CF A15,WRADR2 2 P* 2 P* INPUT: 2 P* A4 = BUFFER ADDRESS 2 P*
0x282ca4…282e38 Dummy {f00=0x0168, f01=0x0190, f02=» @ P************************************************************ 3 P* 3 H PWRADR1 EQU * 3 R P LDK A2,/11 GROUP NUMBER 1 3 f P RF WA100 TO COMMON PART 3 P* 3 P EJECT 3 P* 3 PWRADR2 EQU * 3 P LDK A2,/10 GROUP NUMBER 0 3 P* 3
0x282e38…282fcc Dummy {f00=0x0168, f01=0x0190, f02=»WS CLEAN WS NUMBER 3 " P SC A2,CWTCCA+CCRDLS,A5 TO CCA 4 P LC A2,DWTCP2+1,A6 4 @ ( P ANK A2,MASKLC CLEAN DEVICE ADDRESS 4 Z P SC A2,X25LCN,A4 TO BUFFER 4 P* 4 P IFT CPU852=1 4 P ADKL A15,2 SKIP PSW 4 P LDR* P,A15 RETURN 4 P XIF 4
0x282fcc…283160 Dummy {f00=0x0168, f01=0x0190, f02=»******************** 4 h P* 5 P* ROUTINE NAME: 5 & P* STAHAN 5 > P* 5 N P* FUNCTION: 5 X 2 P* THIS ROUTINE HANDLES PLC STATUS WORD FOR ONE 5 l 4 P* WORK STATION. IF "NO CONNECTION", "LINK RESET" 5 2 P* OR "DCE NOT OPERABLE" IS INDICATED, AN ERROR
0x283160…2832f4 (1, 658) Dummy {f00=0x0169, f01=0x0190, f02=» P* CALL: 6 P* CF A15,STAHAN 6 P* 6 , P* INPUT: 6 6 P* A1 = PLC STATUS 6 F P* A2 = WORK STATION NUMBER 6 ` P* A5 = CWT ADDRESS 6 P* 6 P* OUTPUT: 6 P* A1 = DEVICE RETURN CODE 6 P* CR = CHANGED 6 P* 6 @ P********
0x2832f4…283488 Dummy {f00=0x0169, f01=0x0190, f02=»OR? 6 ~ P RF(Z) SH120 NO, RETURN 7 P STR A4,A15 PUSH A4 7 , P* 7 H P EJECT 7 R P* 7 ` ( P LDK A1,NOTOPR ASSUME NO CONNECTION 7 j " P ANKL A3,STADNO+STANOC IS IT? 7 P RF(NZ) SH100 YES, CONTINUE 7 " P LDK A1,LINERR NO, LINK ERROR 7 PSH
0x283488…28361c Dummy {f00=0x0169, f01=0x018e, f02=»:= ADDRESS OF STATUS FOR WS 7 ~ P SCR A1,A3 SAVE ERROR CODE 8 $ & P LDK A4,WSFERR WORK STATION ERROR 8 F " P ANR* A4,A3 ALREADY DETECTED? 8 p P RF(NZ) SH110 YES, RETURN 8 P LDK A4,WSFERR 8 " P ORRS A4,A3 SET ERROR DETECTED 8 0 P ST A2,CWTABW,A5 IND
0x28361c…2837b0 Dummy {f00=0x0169, f01=0x018e, f02=» P* 9 P IFT CPU852=1 9 P ADKL A15,2 SKIP PSW 9 $ P LDR* P,A15 RETURN 9 @ P XIF 9 Z P IFF CPU852=1 9 f P RTN A15 9 | P XIF 9 P* 9 P EJECT 9 P* 9 @ P************************************************************ 9 P* 9 P
0x2837b0…283944 Dummy {f00=0x0169, f01=0x0190, f02=» 9 0 P* GETWSS WILL ONLY CHECK THE STATUS FOR THE : P* WORK STATION CONNECTION. : < 0 P* GETLCS WILL CHECK BOTH LOGICAL CHANNEL AND : ^ P* WORK STATION STATUS. : P* : P* CALL: : P* CF A15,GETLCS : P* CF A15,GETWSS : P* : P* IN
0x283944…283ad8 Dummy {f00=0x0169, f01=0x0190, f02=»ENTS OF A1 : P* INTERR. INHIBITED ; P* ; . @ P************************************************************ ; 8 P* ; | PGETLCS EQU * ; P INH ; P STR A3,A15 PUSH A3 ; P* ; * P LDK A1,LINERR SET RETURN CODE IN CASE ; P LD A3,DWTST,A
0x283ad8…283c6c Dummy {f00=0x0169, f01=0x0190, f02=»T. CHECK WSS ; ~ P* < P* < PGETWSS EQU * < ( P INH < < P STR A3,A15 PUSH A3 < H P* < d P* < n PLS100 EQU * < x P LC A3,DWTCP2,A6 WS NUMBER < P ANK A3,MASKWS CLEAN < P SLA A3,1 MAKE INDEX < P ADR A3,A5 CWT ADDRESS < P LC
0x283c6c…283e00 Dummy {f00=0x0169, f01=0x0190, f02=»1,/FF CLEAN RETURN CODE & SET CR < P ABR* A15 RETURN = ( P* = @ P EJECT = J P* = X @ P************************************************************ = b P* = P* ROUTINE NAME: = P* PLGTBU = P* = P* FUNCTION: = 8 P* THIS ROUTINE WIL
0x283e00…283f94 (1, 659) Dummy {f00=0x0169, f01=0x0190, f02=»U = P* > P* INPUT: > P* A7 = POOLBLOCK ADDRESS > $ P* > F P* OUTPUT: > P * P* A2 = LENGTH OF USER PART OF BUFFER > b 2 P* A4 = START OF USER PART OF BUFFER (IF ANY) > & P* CR = NOT 0 IF BUFFER ALLOCATED > P* 0 IF NO BUFFER ALLOCA
0x283f94…284128 Dummy {f00=0x0169, f01=0x0190, f02=»QU * > P LDR* A2,A15 SKIP PSW ? $ P LDR* A2,A15 GET RETURN ADDRESS ? * $ P CF A15,GETBUF A4 := BUFFER. INH ? R " P ABR(Z) A2 RETURN IF NO BUFFER ? z P* ? $ P ST A2,0,A15 SAVE RETURN ADDRESS ? & P ADK A4,BUFHLN START OF USER PART ? , P ST A7,BUFLN
0x284128…2842bc Dummy {f00=0x0169, f01=0x0190, f02=»TINUE IF OK ? 0 P ANK A2,0 TOO SHORT. BUFFER LENGTH & CR := 0 @ PGU100 EQU * @ H ( P ST A2,BUFLEN,A4 USER BUFFER LENGTH @ P ABR* A15 RETURN @ P* @ P EJECT @ P* @ @ P************************************************************ @ P*
0x2842bc…284450 Dummy {f00=0x0169, f01=0x0190, f02=»AT USED BY THIS DRIVER. @ P* A P* CALL: A * P* CF A15,PLRLBU A : P* A R P* INPUT: A P* A4 = BUFFER ADDRESS A l P* A P* OUTPUT: A P* A4 = CHANGED A P* CR = CHANGED A " P* INTERR. INHIBITED IF CPU 852 A P* A @ P**
0x284450…2845e4 Dummy {f00=0x0169, f01=0x018e, f02=»K,A4 POOLBLOCK ADDRESS A 2 P SUK A4,BUFHLN A4 :- PHYSICAL START OF BUFFER B ( P CF A15,RELBUF RELEASE BUFFER & INH B T P LDR* A7,A15 POP A7 B P* B P IFT CPU852=1 B P ADKL A15,2 SKIP PSW B P LDR* P,A15 RETURN B P XIF B P IFF CPU85
0x2845e4…284778 Dummy {f00=0x0169, f01=0x0190, f02=» B P* ROUTINE NAME: C P* PLCHAR C P* C 0 P* FUNCTION: C : 0 P* THESE ROUTINES ARE USED TO GET A CHARACTER C N 4 P* FROM A BUFFER OR PUT A CHARACTER IN A BUFFER. C 4 P* THE BUFFER SHOULD HAVE A HEADER OF THE NORMAL C . P* PLC FORMAT (SE "BUFF
0x284778…28490c Dummy {f00=0x0169, f01=0x0190, f02=»INPUT: C P* A2 = IF PUT CHAR D P* BITS 0-7 IRRELEVANT D * P* BITS 8-15 CHARACTER D H P* A4 = BUFFER ADDRESS D f P* D P* OUTPUT: D P* A1 = RETURN CODE D & P* -1 IF OVERFLOW/UNDERFLOW, ELSE D P* AT PLPUCH: 0 D , P* AT PLG
0x28490c…284aa0 Dummy {f00=0x0169, f01=0x0190, f02=». INHIBITED D P* E @ P************************************************************ E P* E b P EJECT E l P* E z PPLGECH EQU * E P INH E P* E . P LD A1,BUFLEN,A4 LENGTH OF TEXT IN BUFFER E P LD A2,BUFBIX,A4 BYTE INDEX E P SUR
0x284aa0…284c34 (1, 660) Dummy {f00=0x0169, f01=0x0190, f02=»2,A4 ABSOLUTE ADDRESS OF CHARACTER E P LCR A2,A2 GET CHARACTER F * P ANK A2,/FF CLEAN F J P* F d P RF CH110 NORMAL EXIT F n P* F P* F PPLPUCH EQU * F P INH F P* F P LD A1,BUFBIX,A4 BYTE INDEX F $ P CW A1,BUFLEN,A4 OUTSIDE B
0x284c34…284dc8 Dummy {f00=0x0169, f01=0x0190, f02=»UT CHARACTER IN BUFFER F P LDK A1,0 RETURN CODE := OK G P RF CH110 NORMAL EXIT G B P* G ` P* G j PCH100 EQU * G t $ P LDKL A1,-1 RETURN CODE := ERROR G PCH110 EQU * G P ADKL A15,4 ADJUST STACK G P ABR* A15 RETURN G P* G P E
0x284dc8…284f5c Dummy {f00=0x0169, f01=0x0190, f02=» P* H P* FUNCTION: H 4 P* THIS ROUTINE CHECKS A GENERAL READ ANSWER FROM H " , P* THE PLC TO DETERMINE TYPE OF MESSAGE. H Z P* H P* CALL: H P* CF A15,INTYPE H P* H P* INPUT: H P* A5 = CWT ADDRESS H P* H P* OUTPUT: H
0x284f5c…2850f0 Dummy {f00=0x0169, f01=0x0190, f02=»******************************** H t P* I ( PINTYPE EQU * I 2 ( P LDK A2,X25DAT MINIMUM INPUT LENGTH I F . P CW A2,CWTRCA+CCRLEN,A5 LENGTH >= MINIMUM? I r P RF(G) ITERR NO, ERROR I P* I P EJECT I P* I * P LD A3,CWTRCA+CCRBUF,A5 BUFFER ADDRE
0x2850f0…285284 Dummy {f00=0x0169, f01=0x0190, f02=» I . P* CHANNEL GROUP ZERO. NORMAL MESSAGES. J & P LC A3,X25FLW,A3 FLOW CONTROL BYTE J : P LDR A4,A3 SAVE J d P ANK A4,/01 FLAG J | " P RF(NZ) IT100 NOT DATA PACKET J & P LDK A3,TYDATA ASSUME NORMAL DATA J P ANK A2,/80 QUALIFY BIT SET? J ( P
0x285284…285418 Dummy {f00=0x0169, f01=0x0190, f02=» & P LDR A4,A3 SAVE FLOW CONTROL BYTE K P ANK A3,/02 RECIEVE READY? K . P RF(NZ) IT110 NO K P & P LDK A3,TYRR TYPE := RECIEVE READY K h P RF ITEXIT EXIT K P* K PIT110 EQU * K & P LDK A3,TYRES ASSUME TYPE = RESET K P ANK A4,/04 IS IT RESE
0x285418…2855ac Dummy {f00=0x0169, f01=0x018e, f02=» K P* L PIT120 EQU * L P* NOT NORMAL MESSAGE L & 0 P LDK A3,TYNFLO ASSUME TYPE = NO FLOW CONTROL L F $ P SUK A4,1 IS IT NO FLOW CONTROL? L z P RF(Z) ITEXIT YES, EXIT L P* L PITERR EQU * L & P LDK A3,TYERR IRRECOVERABLE ERROR L
0x2855ac…285740 Dummy {f00=0x0169, f01=0x0190, f02=» L P RTN A15 M P XIF M P* M $ P EJECT M . P* M < @ P************************************************************ M F P* M P* ROUTINE NAME: M P* OUTBUQ M P* M P* FUNCTION: M 8 P* THIS ROUTINE WILL REMOVE A DWT FROM THE QUEU
0x285740…2858d4 (1, 661) Dummy {f00=0x0169, f01=0x0190, f02=» M P* N P* INPUT: N P* A5 = CWT ADDRESS N " P* A6 = DWT ADDRESS N > P* N Z P* OUTPUT: N d P* A2 = NOT 0 IF DWT FOUND N v P* 0 IF DWT NOT FOUND N P* A4 = CHANGED N P* CR = CHANGED N P* N @ P************************
0x2858d4…285a68 Dummy {f00=0x0169, f01=0x0190, f02=»4,A6 DWT ADDRESS N P ADKL A4,DWTOTQ QUEUE LINK O P* O : P LDR A7,A5 CWT ADDRESS O D & P ADK A7,CWTSBQ SHORT BUFFERS QUEUE O b ( P CF A15,LNKOUT REMOVE DWT FROM QUEUE O P LDR A7,A7 FOUND? O P RF(NZ) OB100 YES, RETURN O P* O P LDR A7,A5
0x285a68…285bfc Dummy {f00=0x0169, f01=0x0190, f02=» FOUND / NOT FOUND O P* P P LDR* A7,A15 POP A7 P $ P LDR* A1,A15 POP A1 P @ P IFT CPU852=1 P P ADKL A15,2 SKIP PSW P r P LDR* P,A15 RETURN P P XIF P P IFF CPU852=1 P P RTN A15 P P XIF P P* P P EJECT P P* P @ P
0x285bfc…285d90 Dummy {f00=0x0169, f01=0x018e, f02=»ON: P 2 P* THIS ROUTINE LINKS A QUEUE ELEMENT FIRST IN Q & P* A QUEUE (CLOSEST TO QUEUE HEAD). Q B 2 P* ONE WORD IN EACH ELEMENT IS USED AS A LINK. Q l 2 P* END OF QUEUE IS INDICATED BY LINK=0 IN LAST Q P* ELEMENT. Q P* Q P* CALL: Q P* CF
0x285d90…285f24 Dummy {f00=0x0169, f01=0x0190, f02=» P* OUTPUT: R P* A1 = CHANGED R P* CR = CHANGED R . P* R F @ P************************************************************ R P P* R PLNKFST EQU * R $ P LDR* A1,A7 FIRST QUEUE ELEMENT R ( P STR A1,A4 SET LINK FROM NEW ELEMENT R $ P S
0x285f24…2860b8 Dummy {f00=0x0169, f01=0x0190, f02=» XIF R P* S P EJECT S P* S $ @ P************************************************************ S . P* S r P* ROUTINE NAME: S | P* LNKLST S P* S P* FUNCTION: S 0 P* THIS ROUTINE LINKS A QUEUE ELEMENT LAST IN S * P* A QUEUE (OPOSITE
0x2860b8…28624c Dummy {f00=0x0169, f01=0x0190, f02=»* ELEMENT. S P* T P* CALL: T P* CF A15,LNKLST T , P* T D P* INPUT: T N & P* A4 = QUEUE ELEMENT LINK ADDRESS T ^ $ P* A7 = QUEUE HEAD LINK ADDRESS T P* T P* OUTPUT: T P* A1 = CHANGED T P* A7 = CHANGED T P* CR = CHAN
0x28624c…2863e0 Dummy {f00=0x0169, f01=0x0190, f02=»PRESENT ELEMENT T P LDR* A7,A7 NEXT ELEMENT U 0 P RB(NZ) LNKLST CONTINUE IF NOT LAST ELEMENT U 8 * P STR A4,A1 LINK NEW ELEMENT AFTER LAST U l * P CMR A4 SET END MARKER IN LAST ELEMENT U P* U P EJECT U P* U P IFT CPU852=1 U P RF LNKR
0x2863e0…286574 (1, 662) Dummy {f00=0x016a, f01=0x0190, f02=»************************************** U z P* V . P* ROUTINE NAME: V 8 P* LNKOUT V P P* V ` P* FUNCTION: V j 4 P* THIS ROUTINE REMOVES AN ELEMENT FROM A QUEUE. V ~ 2 P* ONE WORD IN EACH ELEMENT IS USED AS A LINK. V 2 P* END OF QUEUE IS INDICATED
0x286574…286708 Dummy {f00=0x016a, f01=0x0190, f02=»EMENT LINK ADDRESS V $ P* A7 = QUEUE HEAD LINK ADDRESS W P* W B P* OUTPUT: W L P* A1 = CHANGED W ^ $ P* A7 = =0 IF ELEMENT NOT FOUND W v P* ><0 IF ELEMENT FOUND W P* CR = CHANGED W P* W @ P****************************************
0x286708…28689c Dummy {f00=0x016a, f01=0x018e, f02=» LO100 EXIT IF END OF QUEUE W P CWR A4,A7 ELEMENT FOUND? X $ " P RB(NE) LNKOUT NO, CHECK NEXT X F P* X l P EJECT X v P* X , P LDR* A7,A7 ELEMENT AFTER WANTED ELEMENT X . P STR A7,A1 SET LINK FROM PREVIOUS TO NEXT X $ P LDK A7,1 INDICATE ELEME
0x28689c…286a30 Dummy {f00=0x016a, f01=0x0190, f02=» X j 6 P* RETURN WITHOUT CHANGING INTERRUPT ENABLE FLAG Y P ADKL A15,2 SKIP PSW Y B P LDR* P,A15 RETURN Y ^ P XIF Y x P* Y P IFF CPU852=1 Y P RTN A15 Y P XIF Y P* Y P EJECT Y P* Y P* Y P* Y P* Y @ P********
0x286a30…286bc4 Dummy {f00=0x016a, f01=0x0190, f02=»SS BUFFER HANDLING SUBROUTINES Y P* Z & P* Z 0 P* Z : @ P************************************************************ Z D P* Z 6 P* THIS PROGRAM CONTAINS A SET OF BUFFER HANDLING Z 6 P* SUBROUTINES. THEY OPERATE ON BUFFERS ORGANIZED Z 4 P*
0x286bc4…286d58 Dummy {f00=0x016a, f01=0x0190, f02=»HE POOLBLOCK AND BUFFER Z x 0 P* AREA(S) SHOULD BE SUPPLIED BY THE USER. [ P* [ T 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: [ ^ P* [ P* NAME FUNCTION [ P* [ " P* GETBUF GET BUFFER FROM POOL [ " P* RELBUF RETURN BUFFER TO POOL [ &
0x286d58…286eec Dummy {f00=0x016a, f01=0x0190, f02=» [ P* P* $ P* POOLBLOCK LAYOUT DEFINITION P* D " P* POOLBLOCK WORD OFFSETS N PPOBID EQU 0 POOL IDENTITY t PPOBFLG EQU 2 BINARY FLAGS $ PPOBFRE EQU 4 FREE LIST LINK HEAD $ PPOBBUS EQU 6 BUFFER SIZE (BYTES) " P
0x286eec…287080 Dummy {f00=0x016a, f01=0x0190, f02=» P* ] @ P************************************************************ ] P* ] R P* ROUTINE NAME: ] P* GETBUF ] t P* ] P* FUNCTION: ] 4 P* THIS ROUTINE FETCHES ONE BUFFER FROM A BUFFER ] & P* POOL AND GIVES IT TO THE CALLER. ] P* ]
0x287080…287214 (1, 663) Dummy {f00=0x016a, f01=0x0190, f02=»A4 = BUFFER ADDRESS IF BUFFER ALLOCATED ] P* ELSE ZERO ^ 0 P* CR = CONTENTS OF A4 ^ F P* INTERR.= INHIBITED ^ d P* ^ @ P************************************************************ ^ P* ^ PGETBUF EQU * ^ P INH ^ $ P LD A4,POBFRE,A7
0x287214…2873a8 Dummy {f00=0x016a, f01=0x0190, f02=»,A4 NEW START OF FREE LIST ^ " P ST A1,POBFRE,A7 TO POOLBLOCK _ " P LDR* A1,A15 POP A1 _ H P* _ d PGB100 EQU * _ n P ADKL A15,4 ADJUST STACK _ $ P LDR A4,A4 CR := CONTENTS OF A4 _ P ABR* A15 RETURN _ P* _ P EJECT _ P* _ @ P****
0x2873a8…28753c Dummy {f00=0x016a, f01=0x0190, f02=» _ 2 P* THIS ROUTINE RELEASES ONE BUFFER AND RETURNS ` P* IT TO A BUFFER POOL. ` > P* ` P* CALL: ` f P* CF A15,RELBUF ` v P* ` P* INPUT: ` P* A4 = BUFFER ADDRESS ` P* A7 = POOLBLOCK ADDRESS ` P* ` P* OUTPUT: ` P* CR
0x28753c…2876d0 Dummy {f00=0x016a, f01=0x0190, f02=»RELBUF EQU * ` P INH a P STR A1,A15 PUSH A1 a P* a < ( P LD A1,POBFRE,A7 OLD FREE LIST START a F $ P STR A1,A4 LINK AFTER NEW BUFFER a r , P ST A4,POBFRE,A7 SET NEW FREE LIST START a P* a P LDR* A1,A15 POP A1 a P ADKL A15,4 ADJUST STACK
0x2876d0…287864 Dummy {f00=0x016a, f01=0x0190, f02=» a P* ROUTINE NAME: b P* AREBUF b P* b 0 P* FUNCTION: b : 6 P* THIS ROUTINE ALLOCATES A SPECIFIED DATA AREA TO b N 2 P* A BUFFER POOL. THIS CAN BE DONE IN TWO WAYS. b 0 P* "INIBUF" IS USED WHEN A NEW BUFFER POOL IS b 2 P* INITIATED. IT DIVIDE
0x287864…2879f8 Dummy {f00=0x016a, f01=0x0190, f02=»1) b b 6 P* IN THE LAST BUFFER. "LNKBUF" IS USED WHEN A NEW c 2 P* AREA IS ADDED TO AN EXISTING BUFFER POOL. IT c D 2 P* DIVIDES THE AREA INTO BUFFERS, AND LINKS THE c z & P* BUFFERS FIRST IN THE FREE LIST. c P* c P* CALL: c P* CF A15,INIBUF c
0x2879f8…287b8c Dummy {f00=0x016a, f01=0x018e, f02=» c P* CR = CHANGED IF CPU852 d P* d * @ P************************************************************ d 4 P* d x P EJECT d P* d PINIBUF EQU * d P IFT CPU852=1 d P STR A1,A15 PUSH A1 d P XIF d P* d P IFF CPU852=1 d
0x287b8c…287d20 Dummy {f00=0x016a, f01=0x018e, f02=» d P* e PLNKBUF EQU * e P IFT CPU852=1 e & P STR A1,A15 PUSH A1 e < P XIF e X P* e d P IFF CPU852=1 e n P MSR 4,A15 PUSH A1-A4 e P XIF e P* e ( P LD A1,POBFRE,A7 LINK TO OLD BUFFERS e P* e P* e PIL100 EQU * e
0x287d20…287eb4 (1, 664) Dummy {f00=0x016a, f01=0x0190, f02=» e P STR A4,A15 f P XIF f P* f ( P EJECT f 2 P* f @ P LDR A2,A7 f J " P ADK A2,POBFRE FREE LIST START f P LDR A3,A4 f P AD A3,POBARS,A7 END OF AREA f 0 P SU A3,POBBUS,A7 HIGEST BUFFER START IN AREA f P* f PIL110 EQU * f
0x287eb4…288048 Dummy {f00=0x016a, f01=0x018e, f02=»OUS TO PRESENT f r P LDR A2,A4 NEW PREVIOUS g P AD A4,POBBUS,A7 NEW PRESENT g 6 P RB IL110 TAKE NEXT BUFFER g Z P* g | PIL120 EQU * g . P STR A1,A2 SET LINK OR END IN LAST BUFFER g P* g P IFT CPU852=1 g P LDR* A4,A15 POP A1-A4 g
0x288048…2881dc Dummy {f00=0x016a, f01=0x0190, f02=» g P IFF CPU852=1 h P MLR 4,A15 POP A1-A4 h P RTN A15 h : P XIF h J P* h V P IFF UTTEST=0 h ` P EJECT h v P* h . P****************************************** h P* h P* ROUTINE NAMES: LOGCOM h P* LOGIOC h
0x2881dc…288370 Dummy {f00=0x016a, f01=0x0190, f02=»TED h ^ & P* 0 MEANS LOG ALL i P* i 6 4 P* RECORD FORMAT: BYTE 1-2 MSG TYPE (CO,RE,AT) i @ * P* BYTE 3 DLS INDEX i x , P* BYTE 4 COMMAND CODE i ( P* BYTE 5-6 STATUS-1 i . P*
0x288370…288504 Dummy {f00=0x016a, f01=0x0190, f02=»R -2 (LOGICAL CHANNEL) i h > P* BYTE 10 PACKET HEADER -3 (FLOW CONTOL) j 6 P* BYTE 11-16 6 FIRST DATA BYTES j ` 4 P*********************************************** j P* j PDLSSEL DATA 0 0=LOG ALL j P* ELSE DLS
0x288504…288698 Dummy {f00=0x016a, f01=0x0190, f02=»NDLOG' MARK END OF LOG AREA j 2 P*-------------------------------------------- k $ " PLOGCOM EQU * SUBROUTINE ENTRY k Z P IFT CPU852=1 k P STR A1,A15 k P STR A2,A15 k P STR A3,A15 k P XIF k P IFF UTTEST=0 k P IFF CPU852=1 k
0x288698…28882c Dummy {f00=0x016a, f01=0x0190, f02=»G:10 k P l " PLOGIOC EQU * SUBROUTINE ENTRY l P IFT CPU852=1 l : P STR A1,A15 l P P STR A2,A15 l d P STR A3,A15 l x P XIF l P IFF UTTEST=0 l P IFF CPU852=1 l P MSR 3,A15 PUSH A1-A3 l P XIF l P IFF UTTEST=0 l P LDK
0x28882c…2889c0 Dummy {f00=0x016a, f01=0x0190, f02=»1 l P STR A1,A15 m P STR A2,A15 m P STR A3,A15 m 2 P XIF m F P IFF UTTEST=0 m R P IFF CPU852=1 m h P MSR 3,A15 PUSH A1-A3 m ~ P XIF m P IFF UTTEST=0 m P LDKL A1,'AT' MSG TYPE m P LDK A2,CWTRCA RCA OFFSET m 0 P*---------
0x2889c0…288b54 (1, 665) Dummy {f00=0x016a, f01=0x0190, f02=»A5 CCR PTR m P LD A1,DLSSEL SELECTED DLS n P RF(Z) LOG:15 LOG ALL n 4 P CC A1,CCRDLS,A2 n R $ P RF(NE) LOG:20 NOT SELECTED,SKIP n j PLOG:15 EQU * n P LD A1,CCRDLS,A2 DLS INDEX n " P ST A1,2,A3 +COMMAND INTO LOG n P LD A1,CCRSTA,A2 STATUS-1
0x288b54…288ce8 Dummy {f00=0x016a, f01=0x018e, f02=»S n r P LDR* A1,A2 BYTE 0-1 o P SC A1,8,A3 PACKET HEADER 2 o & P SRL A1,8 o J P SC A1,7,A3 PACKET HEADER 1 o ( P LD A1,2,A2 PACKET HEADER 3+ BYTE 1 o P SC A1,10,A3 o P SRL A1,8 o P SC A1,9,A3 o P LD A1,4,A2 BYTE 2-3 o P SC A1
0x288ce8…288e7c Dummy {f00=0x016a, f01=0x018e, f02=» P LD A1,8,A2 p P SRL A1,8 p P SC A1,15,A3 p * P ADK A3,16 p > * P ST A3,LOGPTR NEXT RECORD IN LOG AREA p P $ P CWK A3,LOGEND END OF LOG AREA? p ~ P RF(NE) LOG:20 NO! p P LDKL A1,LOGARE RESET PTR p P ST A1,LOGPTR p PLOG:20 EQU * p
0x288e7c…289010 Dummy {f00=0x016a, f01=0x408e, f02=» P XIF q P IFF UTTEST=0 q P IFF CPU852=1 q & P MLR 3,A15 q < P RTN A15 q N P XIF q ^ P* q j P* q t P END q ~@ q ND OF LOG AREA? p ~ P RF(NE) LOG:20 NO! p P LDKL A1,LOGARE RESET PTR p P ST A1,LOGPTR p PLOG:20 EQU * p
0x289010…2891a4 Dummy {f00=0x016a, f01=0x2008, f02=» r n PDRRET2 EQU * 0 & ! ADK A5,4 ADJUST STACK FOR RETURN 0 " LDR A1,A1 SET RETURN CODE 0 L INH 0 n ABR* A5 RETURN 0 z * 0 * 0 P* 0 PIHPL01 EQU * 0 PIHPL02 EQU * 0 PIHPL03 EQU * 0 PIHPL04 EQU * 0 P* 0
0x2891a4…289338 Dummy {f00=0x016a, f01=0x0000, f02=»
[…0x2…]
0x289660…2897f4 (1, 666) Opaque[0x194]
0x2897f4…289988 # DirEnt {nam=»DRSL01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1910, f03=0x0000}
0x2897f4…289988 IdxSect {
0x2897f4…289988 f00 = 0x00c8 // 0x2897f4 @0x0
0x2897f4…289988 f01 = 0x0014 // 0x2897f6 @0x2
0x2897f4…289988 gno = [ // 0x2897f8 @0x4
0x2897f4…289988 [0x00]: C0x00c8.0x2.0
0x2897f4…289988 [0x01]: C0x00c8.0x3.0
0x2897f4…289988 [0x02]: C0x00c9.0x0.0
0x2897f4…289988 [0x03]: C0x00c9.0x1.0
0x2897f4…289988 [0x04]: C0x00c9.0x2.0
0x2897f4…289988 [0x05]: C0x00c9.0x3.0
0x2897f4…289988 [0x06]: C0x00ca.0x0.0
0x2897f4…289988 [0x07]: C0x00ca.0x1.0
0x2897f4…289988 [0x08]: C0x00ca.0x2.0
0x2897f4…289988 [0x09]: C0x00ca.0x3.0
0x2897f4…289988 ]
0x2897f4…289988 }
0x289988…289b1c Dummy {f00=0x00c8, f01=0x0190, f02=» 2 P IDENT DRSL01 REL 11.0 81-01-26 870105041100 P : " P NEW DEVICE DRIVER INTERFACE B P PRR 10.0 79-12-07 h & P =6, RTN FROM OUTSAL IN INH MODE P PRR 10.1 79-11-20 $ P =5, CHECK IF PFINIT PENDING; $ P TIMER FOR INPUT NOT
0x289b1c…289cb0 Dummy {f00=0x00c8, f01=0x0190, f02=»RR 10.1 79-10-16 P =3, CORR. WHEN NOT OPER. P MOVE OF STATUS BIT < P PRR 10.1 79-10-08 Z $ P =2, IMPROV. OF REMOTE SENDING v P PRR 10.1 79-10-03 & P =1, CHECK IF OUTPUT CHAR.= ETX; P CHANGE TO EVEN PARITY P P
0x289cb0…289e44 Dummy {f00=0x00c8, f01=0x0190, f02=» $ * PHILIPS TERMINAL SYSTEM PTS * , $ P* DRSL01 = DRIVER CHANNEL UNIT 6 * ^ * SALCUZ h * * * * * J F********************************************************************** *
0x289e44…289fd8 Dummy {f00=0x00c8, f01=0x018e, f02=»TE. n * > 9* AT INPUT INTERRUPT A CHARACTER IS READ TO REGISTER A2 < 8* AND A BRANCH IS MADE TO INTERRUPT HANDLER FOR ACTUAL X * DEVICE. * 8 4* AFTER AN OUTPUT IS ENDED AN OUTPUT INTERRUPT IS > :* GENERATED FROM SAL
0x289fd8…28a16c Dummy {f00=0x00c8, f01=0x0190, f02=» < 7* THE DRIVER ALSO INCLUDES THE FOLLOWING SUBROUTINES: * H @ ;* -SLCUON EXECUTE CIO START ON EVERY SALCUZ AT POWER ON R * $ P* -OUTSAL SEND ONE CHARACTER P* 6 2* CONTROL WORK TABLES ARE INCLUDED IN THE DRIVER
0x28a16c…28a300 Dummy {f00=0x00c8, f01=0x0190, f02=»A3 = WORK REGISTER * A4 = DEVICE NUMBER * 2 * A5 = CWT-ADDRESS < * A6 = DWT-ADDRESS X * A7 = ORDER t * A8 = ECB ADDRESS * * * EJECT * *********** * ENTRIES * ****
0x28a300…28a494 (1, 667) Dummy {f00=0x00c8, f01=0x0190, f02=» ENTRY SLCUON START AT POWER ON ( P ENTRY CHAN NUMBER OF CHANNEL UNITS ( P* T " P ENTRY SLCHRI CHARACTER INPUT ^ . P ENTRY SLSTBL DEFINE START OF OUTPUT BLOCK " P ENTRY SLCHRO CHARACTER OUTPUT , P ENTRY SLENBL DEFINE END OF OUTPUT BLOCK
0x28a494…28a628 Dummy {f00=0x00c8, f01=0x0190, f02=» TOSS MODULE ENTRIES * $ ******************************** * F EXTRN TDISP DISPATCHER P * & EXTRN INTSAV SAVE AREA LAST INTERRUPT p & P EXTRN SETIMP SET TIMER ROUTINE =2 . P EXTRN PFPOST PWF POST PROCESSING FLAG =5 P* , P EXT
0x28a628…28a7bc Dummy {f00=0x00c8, f01=0x0190, f02=» , P EXTRN INTSL4 WS TABLE ADDRESS SALCUZ 4 , P EXTRN INTSL5 WS TABLE ADDRESS SALCUZ 5 4 , P EXTRN INTSL6 WS TABLE ADDRESS SALCUZ 6 d , P EXTRN INTSL7 WS TABLE ADDRESS SALCUZ 7 , P EXTRN INTSL8 WS TABLE ADDRESS SALCUZ 8 P* * P EXTRN NDS
0x28a7bc…28a950 Dummy {f00=0x00c8, f01=0x0190, f02=»S CALL RECOVERY FOR ALL DEV ON WS P EXTRN NDRETO OK & RETURN * P EXTRN NDREP POP & RETURN L P* n EJECT x * ****************** * DWT PARAMETERS * ****************** * * EXTRN DWTST STATUS
0x28a950…28aae4 Dummy {f00=0x00c8, f01=0x0190, f02=»DDRESSBLOCK v $ P EXTRN DWTOTQ OUTPUT QUEUE LINK P EXTRN DWTSB2 STACK BASE 2 < & P EXTRN DWTCP2 CHANNEL PARAMETERS 2 ^ * 0 P EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT * EJE
0x28aae4…28ac78 Dummy {f00=0x00c8, f01=0x0190, f02=»ESS FOR KEYBOARD | . PDI EQU 2 DEVICE ADDRESS FOR KEYBOARD LAMPS 0 PTIME EQU 5 TIME BEFORE TIME-OUT FOR SYNC =2 J . PINPTIM EQU 10 INPUT NOT OP. TIMER VALUE =5 ~ * P EJECT P* P************************ P* CONDITIONAL ASSEMBLY
0x28ac78…28ae0c Dummy {f00=0x00c8, f01=0x0190, f02=»E INCLUDED TO THE DRIVER BY SETTING X:A=1 | P* 2 PX:A EQU 1 < PLOGING EQU X:A N P* d . P* THIS DRIVER HANDLES ONE OR UP TO EIGHT n 2 P* CHANNELS BY SETTING X:B TO 1, 2, 3,..., 8 P* PX:B EQU 1 PCHAN EQU X:B P*
0x28ae0c…28afa0 Dummy {f00=0x00c8, f01=0x0190, f02=»L WORK TABLE FOR SALCUZ 1 * " & PCUAD1 EQU /1A CONTROL UNIT ADDRESS , * V CWTSA1 EQU * TABLE ENTRY ` CWTLDW EQU *-CWTSA1 DATA 0 LAST OUTPUT DWT PCWTITA EQU *-CWTSA1 & P DATA INTSL1 WORK STATION ADDRESS CWTINR
0x28afa0…28b134 (1, 668) Dummy {f00=0x00c9, f01=0x0190, f02=» CIO A1,1,CUAD1+1 CIO START OUTPUT PCWTTP EQU *-CWTSA1 * =2 * P DATA 0 TIMER POINTER =2 J CWTEQ EQU *-CWTSA1 j DATA 0 QUEUE CWTCIH EQU *-CWTSA1 & P CIO A1,0,CUAD1+1 CIO HALT OUTPUT CWTSST EQU *-CWTSA1 & P SST A2,CUAD
0x28b134…28b2c8 Dummy {f00=0x00c9, f01=0x0190, f02=»ART INPUT z CWTSSI EQU *-CWTSA1 $ P SST A2,CUAD1 SEND STATUS INPUT . PCWTTP2 EQU *-CWTSA1 * =5 V . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 v EJECT * * ******************* * C W T S A 2 * ******
0x28b2c8…28b45c Dummy {f00=0x00c9, f01=0x0190, f02=»N=1 * & PCUAD2 EQU /2A CONTROL UNIT ADDRESS * @ DATA 0 LAST OUTPUT DWT J & P DATA INTSL2 WORK STATION ADDRESS j INR A2,0,CUAD2 INR OTR A2,0,CUAD2+1 OTR & " CIO A1,1,CUAD2+1 CIO START OUTPUT P DATA 0 TIMER PO
0x28b45c…28b5f0 Dummy {f00=0x00c9, f01=0x0190, f02=»L STATUS $ CIO A1,1,CUAD2 CIO START INPUT $ P SST A2,CUAD2 SEND STATUS INPUT 8 . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 ` * P XIF EJECT * * ******************* * C W T S A 3 * ******
0x28b5f0…28b784 Dummy {f00=0x00c9, f01=0x018e, f02=»N=1 P IFF CHAN=2 * & PCUAD3 EQU /2C CONTROL UNIT ADDRESS * * T DATA 0 LAST OUTPUT DWT ^ & P DATA INTSL3 WORK STATION ADDRESS ~ INR A2,0,CUAD3 INR OTR A2,0,CUAD3+1 OTR & " CIO A1,1,CUAD3+1 CIO START OUTPUT
0x28b784…28b918 Dummy {f00=0x00c9, f01=0x0190, f02=» l P DATA 0 CHANNEL STATUS $ CIO A1,1,CUAD3 CIO START INPUT & $ P SST A2,CUAD3 SEND STATUS INPUT N . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 v * P XIF EJECT * * ******************* * C W T S
0x28b918…28baac Dummy {f00=0x00c9, f01=0x018e, f02=» P* P IFF CHAN=1 P IFF CHAN=2 " P IFF CHAN=3 6 * J & PCUAD4 EQU /3A CONTROL UNIT ADDRESS T * ~ DATA 0 LAST OUTPUT DWT & P DATA INTSL4 WORK STATION ADDRESS INR A2,0,CUAD4 INR OTR A2,0,CUAD4+1 OTR
0x28baac…28bc40 Dummy {f00=0x00c9, f01=0x0190, f02=» l & P SST A2,CUAD4+1 SEND STATUS OUTPUT P DATA 0 CHANNEL STATUS 2 $ CIO A1,1,CUAD4 CIO START INPUT P $ P SST A2,CUAD4 SEND STATUS INPUT x . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * P XIF EJECT * *
0x28bc40…28bdd4 (1, 669) Dummy {f00=0x00c9, f01=0x0190, f02=» * PCWTSA5 EQU * TABLE ENTRY P* . P IFF CHAN=1 8 P IFF CHAN=2 L P IFF CHAN=3 ` P IFF CHAN=4 t * * PCUAD5 EQU NOTDEF CONTROL UNIT ADDRESS 6 P* ONLY DEFINED FOR FOUR SALCUZ CARDS ********** * DAT
0x28bdd4…28bf68 Dummy {f00=0x00c9, f01=0x0190, f02=»1,CUAD5+1 CIO START OUTPUT P DATA 0 TIMER POINTER =2 " DATA 0 QUEUE B & P CIO A1,0,CUAD5+1 CIO HALT OUTPUT X & P SST A2,CUAD5+1 SEND STATUS OUTPUT P DATA 0 CHANNEL STATUS $ P CIO A1,1,CUAD5 CIO START INPUT $ P SST A2,CUAD5 SEND STA
0x28bf68…28c0fc Dummy {f00=0x00c9, f01=0x018e, f02=»******* P* C W T S A 6 * ******************* , * H ( P* CONTROL WORK TABLE FOR SALCUZ 6 R * ~ PCWTSA6 EQU * TABLE ENTRY P* P IFF CHAN=1 P IFF CHAN=2 P IFF CHAN=3 P IFF CHAN=4 P IFF C
0x28c0fc…28c290 Dummy {f00=0x00c9, f01=0x0190, f02=» DATA 0 LAST OUTPUT DWT & P DATA INTSL6 WORK STATION ADDRESS $ P INR A2,0,CUAD6 INR N P OTR A2,0,CUAD6+1 OTR j & P CIO A1,1,CUAD6+1 CIO START OUTPUT P DATA 0 TIMER POINTER =2 DATA 0 QUEUE & P CIO A1,0,CUAD6+1 CIO HALT OUTPU
0x28c290…28c424 Dummy {f00=0x00c9, f01=0x018e, f02=»SEND STATUS INPUT . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * L P XIF V EJECT b * p * z ******************* P* C W T S A 7 * ******************* * ( P* CONTROL WORK TABLE FOR SALCUZ 7
0x28c424…28c5b8 Dummy {f00=0x00c9, f01=0x0190, f02=» P IFF CHAN=5 P IFF CHAN=6 * , * PCUAD7 EQU NOTDEF CONTROL UNIT ADDRESS 6 6 P* ONLY DEFINED FOR FOUR SALCUZ CARDS ********** d * DATA 0 LAST OUTPUT DWT & P DATA INTSL7 WORK STATION ADDRESS P INR A2,0,CUAD7 INR
0x28c5b8…28c74c Dummy {f00=0x00c9, f01=0x0190, f02=» A1,0,CUAD7+1 CIO HALT OUTPUT & P SST A2,CUAD7+1 SEND STATUS OUTPUT & P DATA 0 CHANNEL STATUS P $ P CIO A1,1,CUAD7 CIO START INPUT n $ P SST A2,CUAD7 SEND STATUS INPUT . P DATA 0 TIMER POINTER FOR INP. NOT OP. =5 * P XIF E
0x28c74c…28c8e0 Dummy {f00=0x00c9, f01=0x0190, f02=»L WORK TABLE FOR SALCUZ 8 * " PCWTSA8 EQU * TABLE ENTRY , P* L P IFF CHAN=1 V P IFF CHAN=2 j P IFF CHAN=3 ~ P IFF CHAN=4 P IFF CHAN=5 P IFF CHAN=6 P IFF CHAN=7 * * PCUAD8 EQU NOTDEF CONTROL UNI
0x28c8e0…28ca74 (1, 670) Dummy {f00=0x00c9, f01=0x0190, f02=»STATION ADDRESS ~ P INR A2,0,CUAD8 INR P OTR A2,0,CUAD8+1 OTR 4 & P CIO A1,1,CUAD8+1 CIO START OUTPUT R P DATA 0 TIMER POINTER =2 | DATA 0 QUEUE & P CIO A1,0,CUAD8+1 CIO HALT OUTPUT & P SST A2,CUAD8+1 SEND STATUS OUTPUT P D
0x28ca74…28cc08 Dummy {f00=0x00c9, f01=0x0190, f02=»P. NOT OP. =5 t * P XIF EJECT , * : * D ***************** N * C H T A B * h ***************** * 2 .* THIS TABLE HOLDS ADDRESSES OF CONTROL WORK $ * TABLES CWT TO CHANNEL UNITS. *
0x28cc08…28cd9c Dummy {f00=0x00c9, f01=0x0190, f02=» P IFF CHAN=1 P IFF CHAN=2 P DATA CWTSA3 0 P XIF D P IFF CHAN=1 P P IFF CHAN=2 d P IFF CHAN=3 x DATA CWTSA4 P XIF P IFF CHAN=1 P IFF CHAN=2 P IFF CHAN=3 P IFF CHAN=4 P DATA CWTSA5
0x28cd9c…28cf30 Dummy {f00=0x00c9, f01=0x0190, f02=» P XIF ! P IFF CHAN=1 ! P IFF CHAN=2 ! $ P IFF CHAN=3 ! 8 P IFF CHAN=4 ! L P IFF CHAN=5 ! ` P IFF CHAN=6 ! t P DATA CWTSA7 ! P XIF ! P IFF CHAN=1 ! P IFF CHAN=2 ! P IFF CHAN=3 ! P IFF CHAN=4 ! P IFF CHAN=5 !
0x28cf30…28d0c4 Dummy {f00=0x00c9, f01=0x0190, f02=» ! * " * " * S L C U O N " * " 4 6 1* SUBROUTINE TO RESET CWT AND PERFORM CIO START " > 4 P* OF EVERY SALCUZ INPUT CHANNEL AT SYSTEM LOAD " x P* " * " * " PSLCUON EQU * " LD A4,CHTAB TABLE LENGTH " SON0
0x28d0c4…28d258 Dummy {f00=0x00c9, f01=0x0190, f02=» P LDKL A1,/8000 # ( P ORS A1,CWTST,A5 SET INITIATION BIT # P CMR A5 RESET LAST OUTPUT =2 # F & P CM CWTEQ,A5 RESET OUTPUT QUEUE =5 # j P INH # P LDK A1,/4 EVEN PARITY =1 # " P EX CWTCIS,A5 CIO START OUTPUT # * % EX CWTCSI,A5 EXECUTE CIO-START
0x28d258…28d3ec Dummy {f00=0x00c9, f01=0x0190, f02=»****************************************** # 0 P* INTERRUPT ENTRY FROM SALCUZ INPUTS * $ 2 0 ,******************************************** $ f * $ * $ P* I S L C I $ * $ $ P* INPUT INTERRUPT FROM SALCUZ $ * $ PISLCI EQ
0x28d3ec…28d580 Dummy {f00=0x00c9, f01=0x0190, f02=»HTAB $ P SUK A3,2 NUMBER OF LINES % P RF IIS015 % . P* % @ & P* GET CWT-ADDRESS. EXECUTE INR. % J P* % t PIIS010 EQU * % ~ P ADK A4,2 NEXT SALCUZ % PIIS015 EQU * % P CWR A4,A3 % & P ABL(NL) EXIT NOT VALID INTERRUPT % & P LD A5,C
0x28d580…28d714 (1, 671) Dummy {f00=0x00c9, f01=0x0190, f02=»FROM INTSL % | P* & PIIS020 EQU * & 4 P LD* A1,CWTITA,A5 ADDRESS OF WORK STATION TABLE & 0 " P LDK A6,0 WORK STATION NUMBER & h * P CF A15,NDGEDN GET HIGHEST DWT-NUMBER & P ADK A7,1 PREPARE FOR SUK & PIIS025 EQU * & P SUK A7,1 NEXT DWT &
0x28d714…28d8a8 Dummy {f00=0x00c9, f01=0x0190, f02=»D & l " P LD A3,DWTST,A6 DEVICE STATUS ' P ANK A3,/40 INPUT DEVICE? ' 0 P RF(NZ) IIS055 YES ' R " P LDK A6,0 WORK STATION NUMBER ' l P RB IIS025 ' * ' PEXITL EQU * ' P IFT LOGING=1 ' P SLL A4,8 LINE NR FOR LOGG ' P ORR A2,A4 '
0x28d8a8…28da3c Dummy {f00=0x00c9, f01=0x0190, f02=»RN TO DEVICE DRIVER ' * ( PIIS055 EQU * ( & P LDK A1,0 RESET RETURN CODE ( : P* ( ^ P IFT LOGING=1 ( h ( P CF A15,INFLOG GET LINE INFORMATION ( ~ 0 P CF A15,LOGG ** LOGG OF INPUT CHARACTER ** ( P XIF ( P* ( PIIS058 EQU * * =2 (
0x28da3c…28dbd0 Dummy {f00=0x00c9, f01=0x0190, f02=» P* ) P LDKL A7,/FFDF ) 2 P ANS A7,DWTST,A6 RESET FLAG 'INPUT REQUESTED' ) $ & P ABL NDREP RETURN TO DEVICE DRIVER ) Z P* ) P EJECT ) P* ) 0 P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER ) P* ) PIIS059 EQU * ) " P LD A1,DWTADR,A6
0x28dbd0…28dd64 Dummy {f00=0x00c9, f01=0x0190, f02=» P ADKL A5,DWTSB2 STACK BASE * * P ABR A1 DEVICE DRIVER INTERRUPT ENTRY * & P* * T P EJECT * ^ * * l P* EXECUTE SST INPUT * v P* * PIIS060 EQU * * $ P EX CWTSSI,A5 SEND STATUS INPUT * $ P RB(NA) IIS010 CHECK NEXT SALCUZ * P ANK A
0x28dd64…28def8 Dummy {f00=0x00c9, f01=0x018e, f02=»O START INPUT * P =2 + P RF EXIT * =2 + $ P* + : * P* START TIMER IF INPUT NOT OPERABLE + D P* + r PIIS070 EQU * * =5 + | 0 P LDR A1,A5 SAVE CWT-ADDRESS AS PARAMETER =5 + P LDK A4,CWTTP2 * =5 + ( P ADR A4,A5 TIMER POINTER ADDRESS =
0x28def8…28e08c Dummy {f00=0x00c9, f01=0x0190, f02=» 0 P* TIME-OUT ROUTINE FOR INPUT NOT OPERABLE , P* , 8 PIIS080 EQU * * =5 , B P LDR A5,A1 CWT-ADDRESS =5 , ( P CM CWTTP2,A5 RESET TIMER POINTER =5 , ~ P RB IIS065 START INPUT =5 , P* , EJECT , * , * , 2 -****************
0x28e08c…28e220 Dummy {f00=0x00c9, f01=0x018e, f02=»* , d * - P* - P* I S L C O - * - 4 $ P* OUTPUT INTERRUPT FROM SALCUZ - > * - f PISLCO EQU * - p $ ST P,INTSAV SAVE LAST INTERRUPT - " P MSR 8,A15 SAVE A1-A8 ON STACK - " P LDK A7,0 RESET SALCUZ-COUNTER - P LD A3,CHTAB -
0x28e220…28e3b4 (1, 672) Dummy {f00=0x00ca, f01=0x0190, f02=» - POIS010 EQU * . P ADK A7,2 NEXT SALCUZ . POIS015 EQU * . : P CWR A7,A3 . N $ P RF(NL) EXIT NOT VALID INTERRUPT . ` & P LD A5,CHTAB+2,A7 GET CWT-ADDRESS . P EX CWTSST,A5 SST . P RB(NA) OIS010 . P* . P IFT LOGING=1 . P LDR*
0x28e3b4…28e548 Dummy {f00=0x00ca, f01=0x0190, f02=»2,A7 * =2 . CF A15,LOGG **LOGG STATUS** / P XIF / 6 P* / B POIS017 EQU * / L " P LD A1,CWTST,A5 CHANNEL STATUS / ` ( P RF(N) OIS040 INITIATION ON CHANNEL / P =2 / P EJECT / * / 0 +* CHECK QUEUE AND SEND IF SOMETHING THERE /
0x28e548…28e6dc Dummy {f00=0x00ca, f01=0x0190, f02=»2,/FF CLEAN / " P LC A4,CWTST,A5 CHANNEL STATUS 0 " P LDR A1,A2 SET RETURN CODE =2 0 : " P RF(NZ) OIS035 NOT OPERABLE =2 0 ` & P LD A3,CWTST,A5 CHANNEL STATUS =2 0 P SLL A3,1 * =2 0 * P RF(N) OIS038 NOT OPERABLE BIT SET =2 0 P * =4 0 P *
0x28e6dc…28e870 Dummy {f00=0x00ca, f01=0x0190, f02=» ST A2,CWTEQ,A5 STORE IT IN CWT 0 " LC A2,DWTOCH,A6 GET CHARACTER 1 ( " P CF A15,OUTSAL SEND CHARACTER 1 N P =5 1 t P EJECT 1 * 1 P* RETURN TO DEVICE DRIVER 1 * 1 POIS030 EQU * 1 P CWK A7,DWTSYN SYNC-DWT? =4 1 P RF(E) E
0x28e870…28ea04 Dummy {f00=0x00ca, f01=0x0190, f02=» LAST OUTPUT 1 * P ABL(NZ) NDREP RETURN TO DEVICE DRIVER 2 * 2 B PEXIT EQU * 2 L P ABL TDISP 2 ^ P* 2 p P* OUTPUT NOT OPERABLE 2 z P* 2 POIS035 EQU * * =2 2 P CWK A7,DWTSYN SYNC-DWT? =2 2 P RB(E) EXIT YES =2 2 P LDKL A3,/40
0x28ea04…28eb98 Dummy {f00=0x00ca, f01=0x0190, f02=» 2 POIS038 EQU * * =2 3 P LDKL A3,/BFFF * =2 3 " 0 P ANS A3,CWTST,A5 RESET BIT 'NOT OPERABLE' =2 3 > P EJECT 3 r P* 3 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE 3 2 P* ON ACTUAL LINE EXCEPT THOSE IN ECHO MODE 3 P* 3 POI
0x28eb98…28ed2c Dummy {f00=0x00ca, f01=0x018e, f02=» A6,0 WORK STATION NUMBER 3 P LDK A4,1 RECOVERY CAUSE 4 " 0 P CF A15,NDREWS CALL RECOVERY FOR ALL DEVICES 4 B P ON WORK STATION 4 v P RB EXIT 4 EJECT 4 * 4 P* O U T S A L 4 * 4 2 -* SUBROUTINE TO SEND A CHARACTER VIA SALCUZ
0x28ed2c…28eec0 Dummy {f00=0x00ca, f01=0x0190, f02=» 4 " P MSR 8,A15 SAVE A1-A8 ON STACK 5 ANK A2,/FF 5 . P INH 5 B P CWK A6,DWTSYN SYNC SENDING? 5 N P RF(E) OUS050 YES 5 r " P LDR* A1,A6 CHANNEL PARAMETERS 5 " P ANK A1,/F CHANNEL UNIT INDEX 5 " P SLL A1,1 MAKE INDEX FOR CHTAB 5 & ! LD A5,CHT
0x28eec0…28f054 (1, 673) Dummy {f00=0x00ca, f01=0x0190, f02=»* QUEUE OUTPUT 5 * 6 OUS005 EQU * 6 " LD A4,CWTEQ,A5 OUTPUT QUEUE 6 6 RF(E) OUS020 6 Z OUS010 EQU * 6 p CWR A6,A4 6 . * RF(E) OUS060 THIS DWT IS ALREADY IN QUEUE 6 LD A3,DWTOTQ,A4 6 & ! RF(E) OUS030 END OF THREAD FOUND 6
0x28f054…28f1e8 Dummy {f00=0x00ca, f01=0x018e, f02=»QU * 6 ST A6,DWTOTQ,A4 QUEUE DWT 7 * %OUS040 CM DWTOTQ,A6 SET END OF THREAD 7 . RF OUS060 7 EJECT 7 n * 7 | P* START OUTPUT 7 * 7 OUS050 EQU * 7 . P LD A1,PFPOST PWF POST PROCESSING FLAG =5 7 $ P RF(NZ) OUS070 PFINIT PEND
0x28f1e8…28f37c Dummy {f00=0x00ca, f01=0x0190, f02=» 7 ~ P* 8 . P LD A3,CWTTP,A5 ADDRESS TO TIMER BLOCK =2 8 P RF(Z) STTIM * =2 8 D P* 8 ^ P* RESTART TIMER 8 h P* 8 $ P LDKL A3,-TIME RESTART TIMER =2 8 P ST* A3,CWTTP,A5 * =2 8 P RF OUS052 * =5(=2) 8 P* 8 P* START TIMER
0x28f37c…28f510 Dummy {f00=0x00ca, f01=0x0190, f02=» POINTER ADDRESS =2 8 * P CF A15,SETIMP START TIMER OF 0.5 S =2 9 2 P DATA T:OUT,TIME TIME-OUT ADDRESS AND VALUE =2 9 J P EJECT 9 P* 9 * P* CHECK IF OUTPUT TO KEYBOARD LAMPS 9 P* 9 POUS052 EQU * * =5 9 * P LD A7,DWTCP2,A6 CHANNEL PARAM
0x28f510…28f6a4 Dummy {f00=0x00ca, f01=0x0190, f02=» EJECT 9 P* : P* SEND CHARACTER : P* : 2 OUS053 EX CWTOTR,A5 OTR : < P =3 : P RF(A) OUS055 * =3 : j $ P CWK A6,DWTSYN SYNC-SENDING? =3 : P RF(NE) OUS054 NO =3 : ( P STR A6,A5 STORE SYNC-DWT IN CWT =3 : P RF OUS070 * =3 :
0x28f6a4…28f838 Dummy {f00=0x00ca, f01=0x018e, f02=» : OUS055 EQU * ; LDK A1,0 ; " P EX CWTCIH,A5 CIO STOP OUTPUT ; . $ STR A6,A5 STORE LAST DWT IN CWT ; T P CWK A6,DWTSYN SYNC-DWT? =2 ; | P RF(E) OUS070 YES =2 ; P* ; P IFT LOGING=1 ; ( P CF A15,INFLOG GET LINE INFORMATION ; . )
0x28f838…28f9cc Dummy {f00=0x00ca, f01=0x018e, f02=» ; | 8 4OUS060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT < OUS070 EQU * < D ( P MLR 8,A15 RESTORE A1-A8 FROM STACK < X P * =6 < P INH * =6 < ( P ADKL A15,2 ADJUST STACK POINTER =6 < P LDR* P,A15 RETURN =6 < P EJECT < * < ( #
0x28f9cc…28fb60 Dummy {f00=0x00ca, f01=0x018e, f02=» OUS080 EQU * = . P LC A4,CWTST,A5 LEFT BYTE OF CWT STATUS =3 = P LDKL A1,/FBFF = J 4 P ANS A1,CWTST,A5 RESET BIT 'LAMP CODE QUEUED' =3 = ` P ANK A4,/04 = . P RB(NZ) OUS053 LAMP CODE ALREADY IN QUEUE = LD A4,CWTEQ,A5 OUTPUT QUEUE = RF(E)
0x28fb60…28fcf4 (1, 674) Dummy {f00=0x00ca, f01=0x0190, f02=» = n $ ST A6,CWTEQ,A5 QUEUE LAMP CODE > , P SC A2,DWTOCH,A6 STORE LAMP CODE IN DWT > 0 P C1R A1,A1 > ` 2 P ORS A1,CWTST,A5 SET BIT 'LAMP CODE QUEUED' =3 > r LDK A2,/1C > RB OUS053 > * > P EJECT > P* > * P* TIME-OUT ROUTINE FOR
0x28fcf4…28fe88 Dummy {f00=0x00ca, f01=0x0190, f02=»U * * =2 > P LDR A5,A1 * =2 ? ( P CM CWTTP,A5 RESET TIMER POINTER =2 ? ( P LDR* A6,A5 LINE FREE? =2 ? T P RF(NZ) T:OUT2 NO =2 ? v , P LDKL A6,DWTSYN SIMULATED DWT-ADDRESS =2 ? " P LDK A2,0 OUTPUT CHARACTER =2 ? P CF A15,OUTSAL SEND '00' =2 ?
0x28fe88…29001c Dummy {f00=0x00ca, f01=0x0190, f02=» CHARACTER INPUT ? P* @ PSLCHRI EQU * @ $ P LDK A2,/20 @ 8 0 P ORS A2,DWTST,A6 SET INPUT REQUESTED IN DWT @ L , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT @ P RF SLDISP LOCAL DISPATCHER @ P* @ P* START OF A BLOCK @ P* @ PSLST
0x29001c…2901b0 Dummy {f00=0x00ca, f01=0x0190, f02=»* CHARACTER OUTPUT @ P* A PSLCHRO EQU * A & , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT A : " P CF A15,OUTSAL SEND CHARACTER A j P* A P* LOCAL DISPATCHER A P* A PSLDISP EQU * A P ABL TDISP GO TO DISPATCHER A P* A P EJECT
0x2901b0…290344 Dummy {f00=0x00ca, f01=0x0190, f02=»RESS FOR USE IN LOGG. A ~ < P* THE INFORMATION IS TAKEN FROM CHANNEL PARAMETERS AND B P* ADDED TO REGISTER A2. B ^ P* B , P* DEVICE ADDRESS IS STORED IN BITS 0-3 B , P* CH. UNIT INDEX IS STORED IN BITS 4-6 B P* B P* ON ENTRY: B
0x290344…2904d8 Dummy {f00=0x00ca, f01=0x0190, f02=»T WORD WITH ADDED INFORMATION B P* A3,A4 ARE DESTROYED C & P* C H P IFT LOGING=1 C R P* C h PINFLOG EQU * C r & P LDR* A3,A6 GET CHANNEL PARAMETERS C " P ANK A3,/7 CHANNEL UNIT INDEX C * P LD A4,DWTCP2,A6 CHANNEL PARAMETERS 2 C P ANK
0x2904d8…29066c Dummy {f00=0x00ca, f01=0x0190, f02=»BINE INFORMATION WITH CHARACTER C P RTN A15 D ( P* D 8 P XIF D B P EJECT D N P* D P* D f P* L O G G D p P* D 8 P* IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT AND D $ P* OUTPUT CHARACTER ARE LOGGED D P* D P* D P*
0x29066c…290800 Dummy {f00=0x00ca, f01=0x0190, f02=» D n P RF(NE) L1 E ( P LDKL A1,BUF SET FIRST LOGG ADDRESS E PL1 ST A1,POINT E F . P STR A2,A1 LOGG OF INR OR OTR INSTRUCTION E P LDR* A1,A15 E P ADKL A15,2 E P LDR* P,A15 RETURN E P* E P* E PPOINT DATA BUF LOGG POINTER E P
0x290800…290994 (1, 675) Dummy {f00=0x00ca, f01=0x406a, f02=» E RTNA15 EQU * F ADKL A15,2 F ENB F 0 LDR* P,A15 F < * F P END F Z@ F f
0x290994…290b28 Dummy {f00=0x00ca, f01=0x2008, f02=» G * RETURN AND ENABLE $ * $ & RTNA15 EQU * $ 0 ADKL A15,2 $ D ENB $ X LDR* P,A15 $ d * $ x END $ @ $ # z * ON EXIT: # 2 -* A8 =ADDRESS WHERE DWT-ADDRESS IS FOUND # * # GETADR EQU * # 0 + LD A8
0x290b28…290cbc Dummy {f00=0x00ca, f01=0x018e, f02=»DRIVER G z ( P LDR A1,A1 ANY CHAR LEFT IN BUFFER? H P RF(Z) CI120 NO, CONTINUE H : & P LDK A1,1 INDICATE MORE CHARACTERS H P RF CI130 H P* H PCI120 EQU * H P CM DWTLD1,A6 UNLINK BUFFER H PCI130 EQU * H P ENB H P RTN A5 H
0x290cbc…290e50 Dummy {f00=0x00ca, f01=0x0190, f02=» P* PLSTBL I * I * FUNCTION: I 4 P* THIS ROUTINE DEFINES START OF AN OUTPUT BLOCK. I 2 2 P* IT ALLOCATES AN OUTPUT BUFFER, AND LINKS IT I j P* TO THE DWT. I * I * CALL: I P* ABI STBTAB,A1 I P* CF A5,PLSTBL I * I
0x290e50…290fe4 Dummy {f00=0x00ca, f01=0x0190, f02=»URN TO DEVICE DRIVER I P* A1 = RETURN CODE J P* 0 IF OK J 8 P* NOT 0 IF ERROR J J 0 P* A2 = DEVICE STATUS (IF RELEVANT, IE A1=0) J d P* CR = CONTENTS OF A1 J P* INTERR. ENABLED J * J @ <**********************************************
0x290fe4…291178 Dummy {f00=0x00ca, f01=0x0190, f02=» ADDRESS J x P* K P EJECT K P* K ( . P LD A1,DWTLD1,A6 BUFFER ALREADY ALLOCATED? K 2 ( P ABL(NZ) NDREPO YES, SET OK & RETURN K d & P CF A15,GETLCS A1 := STATUS & INH K P RF(NZ) SBERR2 ERROR, RETURN K P* K P* CHECK LEVEL 3 WINDOW K $
0x291178…29130c Dummy {f00=0x00ca, f01=0x0190, f02=»SB090 YES, DON'T CHECK WINDOW K 2 P CF A15,GETOFR A2 := NR OF OUTSTANDING FRAMES L & & P LDR A2,A2 ANY FRAMES OUTSTANDING? L P RF(Z) SB090 NO, CONTINUE L P LD A1,DWTST,A6 DWT STATUS L 0 P ANK A1,DWFSAC ALWAYS WAIT FOR LEVEL 3 ACK? L 2 P RF(NZ) SB
0x29130c…2914a0 Dummy {f00=0x00ca, f01=0x018e, f02=»T UNTIL WINDOW IS OPEN L z 2 P ST A3,DWTLD1,A6 SAVE REQUESTED BUFFER LENGTH M 2 P LDK A1,DWFAK3 FLAG "WAITING FOR LEVEL 3 ACK" M T , P ORS A1,DWTST,A6 SET FLAG IN DWT STATUS M " IFF UTTEST=0 QUEUE STATISTICS M LD A1,CWTPNR,A5 PLC NUMBER M SLA
0x2914a0…291634 (1, 676) Opaque[0x194]
0x291634…2917c8 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1960, f03=0x0000}
0x291634…2917c8 IdxSect {
0x291634…2917c8 f00 = 0x00cb // 0x291634 @0x0
0x291634…2917c8 f01 = 0x000a // 0x291636 @0x2
0x291634…2917c8 gno = [ // 0x291638 @0x4
0x291634…2917c8 [0x00]: C0x00cb.0x0.0
0x291634…2917c8 [0x01]: C0x00cb.0x1.0
0x291634…2917c8 [0x02]: C0x00cb.0x2.0
0x291634…2917c8 [0x03]: C0x00cb.0x3.0
0x291634…2917c8 [0x04]: C0x00cc.0x0.0
0x291634…2917c8 ]
0x291634…2917c8 }
0x2917c8…29195c Dummy {f00=0x00cb, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 11.0 81-01-26 870105041100 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x29195c…291af0 Dummy {f00=0x00cb, 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
0x291af0…291c84 Dummy {f00=0x00cb, 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
0x291c84…291e18 Dummy {f00=0x00cb, 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
0x291e18…291fac Dummy {f00=0x00cb, 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
0x291fac…292140 Dummy {f00=0x00cb, 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
0x292140…2922d4 (1, 677) Dummy {f00=0x00cb, 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
0x2922d4…292468 Dummy {f00=0x00cb, 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
0x292468…2925fc Dummy {f00=0x00cb, 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
0x2925fc…292790 Dummy {f00=0x00cb, f01=0x0190, f02=» P PX:A EQU 0 PSOPX EQU X:A " P** 6 P** @ @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY J P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU X:B P* P* . P* A PROGRAM VERSION USING
0x292790…292924 Dummy {f00=0x00cb, f01=0x018e, f02=»ION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. * P* PCPU852 EQU 1 f P* z PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P* P EJECT P* P* 0 PDWTDRD EQU /10
0x292924…292ab8 Dummy {f00=0x00cb, f01=0x0190, f02=» PSTART EQU DWTDRD+4 P XIF P* * & PDWTTP EQU START+/00 TIMER POINTER 4 P* ^ P EJECT h P* v P************************** P* S.O.P. DEVICE ADDRESS: * P************************** P* P* PSOPDA EQU /2E
0x292ab8…292c4c Dummy {f00=0x00cb, f01=0x0190, f02=». CHANNEL UNIT TABLE * " P* * " P****************************** D P* j P* t 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: ~ P* P DATA DVBLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX 6 PSOPADI
0x292c4c…292de0 Dummy {f00=0x00cb, f01=0x0190, f02=» r P* P DATA DVBLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX 6 & PSOPADU EQU * ACTIVATE LIGHTS ENTRY X P* & P DATA SOPAL ACTIVATE LIGHTS ENTRY " P DATA 0 ABORT ROUTINE ADDRESS P* P* BIT 0 CONTROLS FD POWER
0x292de0…292f74 (1, 678) Dummy {f00=0x00cb, f01=0x0190, f02=» ACTIVATION ROUTINE: * " P* * " P****************************** D P* j > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION t P* IS CARRIED OUT. P* * PSOPAS EQU * SWITCHES ACTIVATION ENTRY
0x292f74…293108 Dummy {f00=0x00cb, f01=0x0190, f02=»R l P* P* INPUT SWITCH VALUE P* 2 * PSOPIN LDR* A2,A6 POWER UP INDICATION ? < P RF(NZ) EXIT NO j P STR A7,A6 YES P RF IHSOP3 P* P EJECT P* , P* ENTRY FOR CHANGES OF S.O.P. LIGHTS P* & PSO
0x293108…29329c Dummy {f00=0x00cb, f01=0x0190, f02=» P LDR A4,A7 COPY ORDER P IFT WRFLA=1 & P CCK A4,/3939 : P RF(E) SOPFL P P XIF d P SUK A4,/37 p & P RF(Z) SOPON IF SO, TURN ON LIGHTS P* & P SUK A4,1 SEE IF LIGHTS OFF ORDER P RF(Z) SOPOFF & PSOPER ABL(NZ) DI
0x29329c…293430 Dummy {f00=0x00cb, f01=0x0190, f02=»* P LD A4,DWTTP,A6 ( P RF(NE) FL010 TIMER ALREADY STARTED " P LDK A4,DWTTP N P ADR A4,A6 d P LDR A1,A6 v P CF A15,SETIMP P DATA FLTUT,TIME P ST A4,DWTTP,A6 P LDKL A1,/FFBF P ANS A1,DWTST,A6 SET ON FLAG P
0x293430…2935c4 Dummy {f00=0x00cb, f01=0x0190, f02=» | P ANK A1,/40 P RF(Z) FL020 & P ORS A3,SPDLCI FIXA TILL DET HELA! 0 P RF SOPONOFF Z PFL020 EQU * n P C1R A3,A3 P ANS A3,SPDLCI P RF SOPONOF P* P EJECT P* PFLTUT EQU * FLASH TIME OUT P LDKL
0x2935c4…293758 Dummy {f00=0x00cb, f01=0x018e, f02=»TTP,A6 P LDK A1,/40 P XRS A1,DWTST,A6 " P RB FL015 : PFL030 CM DWTTP,A6 L P RF EXIT END I/O f P XIF ~ P EJECT P* PSOPOFF EQU * , P C1R A3,A3 GET COMPLEMENTED CONTROL WORD 4 P ANS A3,SPDLCI MASK OUT LIGHTS TO
0x293758…2938ec Dummy {f00=0x00cb, f01=0x0190, f02=» f P* P* , P* TURN ON LIGHTS INDICATED BY '1' BITS: P* L PSOPON EQU * V " P* A3 CONTAINS CONTROL WORD j . P ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON P IFT WRFLA=1 P C1R A3,A3 * P ANS A3,FLASH STOP SOME OTHER FL
0x2938ec…293a80 Dummy {f00=0x00cb, f01=0x0190, f02=»0,SOPDA AND OUTPUT TO S.O.P. P* $ P RF ENDIO PERFORM TENDIO . P EJECT N P* P**************************** f P* * P* S.O.P. INTERRUPT HANDLER * P* * P******************
0x293a80…293c14 (1, 679) Dummy {f00=0x00cb, f01=0x0190, f02=» IN PROCEEDING THE INTERRUPT IS IGNORED. | P* 0 P : PIHSOP EQU * B P IFT CPU852=1 V & P CF A15,SAVE8 SAVE A1-A8 ON STACK l P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* $ P ST P,INTS
0x293c14…293da8 Dummy {f00=0x00cb, f01=0x0190, f02=» P IFF SOPX=0 " P LDKL A6,DWSI02 ANY REQUEST ON P LD A4,DWTST,A6 STATUS WORD > P RF(N) IHSOP2 NO b $ P LD A8,DWTECB,A6 GET ECB-ADDRESS z P ST A2,ECBCW,A8 STORE INDEX ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDK A1,0 P CF
0x293da8…293f3c Dummy {f00=0x00cb, f01=0x0190, f02=»T NO $ P LD A8,DWTECB,A6 GET ECB-ADDRESS P 4 & PIHSOP3 ST A2,ECBCW,A8 STORE INDEX < P f , PENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH n P LDK A1,0 P CF A15,TENDIO END I/O P $ PEXIT ABL TDISP GO TO DISPATCHER P EJECT
0x293f3c…2940d0 Dummy {f00=0x00cb, f01=0x0190, f02=»INE * r * P* * * P************************************* > P* l P* v : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT
0x2940d0…294264 Dummy {f00=0x00cb, f01=0x0190, f02=»ELSE -2 IS SAVED IN DWTCHP ~ P* " P* , PSOPR EQU * ENTRY POINT 6 P IFT CPU852=1 V & P CF A15,SAVE8 SAVE A1-A8 ON STACK l P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,
0x294264…2943f8 Dummy {f00=0x00cb, f01=0x0190, f02=» P LDK A2,0 P P IFF SOPX=0 " P LDKL A6,DWSI02 ANY REQUEST ON 2 $ P LD A4,DWTST,A6 GET STATUS WORD X P RF(NN) SOPR1 YES P STR A2,A6 IND POWER UP P XIF P ( PSOPR1 LDKL A6,DWSI01 ANY REQUEST ON P LD A4,DWTST,A
0x2943f8…29458c Dummy {f00=0x00cb, f01=0x0190, f02=»* D W S I 0 1 : INPUT DWT P* $ PDWSI01 EQU * . , P DATA 0 CHANNEL PARAMETER: POWER UP IND B , P DATA /8000 /8000 MEANS DEVICE IS READY r P DATA 0 ECB ADDRESS P DATA 0 ORDER P DATA SOPADI P DATA 0 P DATA 0 P
0x29458c…294720 Dummy {f00=0x00cb, f01=0x0190, f02=» EQU * P DATA 0,0,0,0,0,0 P XIF ( P* 4 P* D W S O 0 1 : OUTPUT DWT > P* b P* l PDWSO01 EQU * v " P DATA /0040 CHANNEL PARAMETER , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA 0 ECB ADDRESS P DATA 0 ORDE
0x294720…2948b4 (1, 680) Dummy {f00=0x00cc, f01=0x018e, f02=»INAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS ( P DATA DEVECO MMU ECB ADDRESS R XIF v P DATA 0 TIMER POINTER . PFLASH DATA 0 SAVE AREA FOR FLASHING LAMPS P IFT MMUPAG=1 PDEVECO EQU * P DATA 0,0,0,
0x2948b4…294a48 Dummy {f00=0x00cc, f01=0x4166, f02=» P IFF SOPX=0 P DATA 0 P DATA /8000 , P DATA 0 ECB ADDRESS @ P DATA 0 ORDER P DATA SOPADI r P DATA 0,0,0 IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVEC1 MMU ECB ADDRESS PDEVEC1 EQU
0x294a48…294bdc Dummy {f00=0x00cc, 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
0x294bdc…294d70 Dummy {f00=0x00cc, f01=0x018e, f02=» MSR 8,A15 PUSH A1-A8 q XIF q " * q . & P LDKL A5,PL0CWT CWT ADDRESS, PLC 0 q 8 $ P RF IHPL COMMON PART, ALL PLC:S q b P* q P EJECT q P* q PIHPL02 EQU * q IFF PLCNR=1 q P IFT CPU852=1 q CF A15,SAVE8 PUSH A1-A8 q
0x294d70…294f04 Dummy {f00=0x00cc, f01=0x0190, f02=» & P LDKL A5,PL1CWT CWT ADDRESS, PLC 1 r $ P RF IHPL COMMON PART, ALL PLC:S r . XIF r V * r b PIHPL03 EQU * r l IFF PLCNR=1 r IFF PLCNR=2 r IFT CPU852=1 r CF A15,SAVE8 PUSH A1-A8 r XIF r * r IFF PLCNR=1 r
0x294f04…295098 Dummy {f00=0x00cc, f01=0x0190, f02=»DKL A5,PL2CWT CWT ADDRESS, PLC 2 r $ P RF IHPL COMMON PART, ALL PLC:S s ( XIF s P * s PIHPL04 EQU * s f IFF PLCNR=1 s z IFF PLCNR=2 s IFF PLCNR=3 s IFT CPU852=1 s CF A15,SAVE8 PUSH A1-A8 s XIF s * s IFF P
0x295098…29522c Dummy {f00=0x00cc, f01=0x0190, f02=»NR=1 s IFF PLCNR=2 t IFF PLCNR=3 t & P LDKL A5,PL3CWT CWT ADDRESS, PLC 3 t 4 $ P RF IHPL COMMON PART, ALL PLC:S t ^ XIF t P* t P EJECT t * t PIHPL EQU * t & P ST P,INTSAV SAVE LATEST INTERRUPT t LDK A1,0 RESET HIGH BYT
0x29522c…2953c0 Dummy {f00=0x00cc, f01=0x0190, f02=»MPLETION? t ~ P RF(E) PLIHC YES, HANDLE u P CWK A1,/80 ATTENTION? u 2 P RF(E) PLIHA YES, HANDLE u P * u p 2 - CF A15,PLCNOP ILLEGAL CODE, SET NOT OPERABLE u z ABL TDISP EXIT u * u EJECT u * u @ <******************************
0x2953c0…295554 (1, 681) Opaque[0x194]
0x295554…2956e8 # DirEnt {nam=»DRSU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10d0, f03=0x0000}
0x295554…2956e8 IdxSect {
0x295554…2956e8 f00 = 0x0086 // 0x295554 @0x0
0x295554…2956e8 f01 = 0x002c // 0x295556 @0x2
0x295554…2956e8 gno = [ // 0x295558 @0x4
0x295554…2956e8 [0x00]: C0x0086.0x2.0
0x295554…2956e8 [0x01]: C0x0086.0x3.0
0x295554…2956e8 [0x02]: C0x0087.0x0.0
0x295554…2956e8 [0x03]: C0x0087.0x1.0
0x295554…2956e8 [0x04]: C0x0087.0x2.0
0x295554…2956e8 [0x05]: C0x0087.0x3.0
0x295554…2956e8 [0x06]: C0x0088.0x0.0
0x295554…2956e8 [0x07]: C0x0088.0x1.0
0x295554…2956e8 [0x08]: C0x0088.0x2.0
0x295554…2956e8 [0x09]: C0x0114.0x1.0
0x295554…2956e8 [0x0a]: C0x0114.0x2.0
0x295554…2956e8 [0x0b]: C0x0114.0x3.0
0x295554…2956e8 [0x0c]: C0x0115.0x0.0
0x295554…2956e8 [0x0d]: C0x0115.0x1.0
0x295554…2956e8 [0x0e]: C0x0115.0x2.0
0x295554…2956e8 [0x0f]: C0x0115.0x3.0
0x295554…2956e8 [0x10]: C0x0116.0x0.0
0x295554…2956e8 [0x11]: C0x0116.0x1.0
0x295554…2956e8 [0x12]: C0x0116.0x2.0
0x295554…2956e8 [0x13]: C0x0116.0x3.0
0x295554…2956e8 [0x14]: C0x0117.0x0.0
0x295554…2956e8 [0x15]: C0x0117.0x1.0
0x295554…2956e8 ]
0x295554…2956e8 }
0x2956e8…29587c Dummy {f00=0x0086, f01=0x0190, f02=» 2 P IDENT DRSU01 REL 11.0 81-08-31 870105041100 P : 0 P =5, SEND ETX AFTER ETB TO REM. DR-DEVICE B P REL 11.0 81-05-25 v , P =4, LOOPT & POW-ON CORR;NEW COND ASS P REL 11.0 81-02-17 & P =3, HANG UP ON REMOTE RECOVERY P
0x29587c…295a10 Dummy {f00=0x0086, f01=0x0190, f02=» P PRR 11.0 80-12-02 P* 4 P************************************************ * P* b $ P* PHILIPS TERMINAL SYSTEM PTS l P* . P* DRSU01 = DRIVER CHANNEL UNIT FOR LOCAL & P* AND REMOTE TERMINALS " P* C
0x295a10…295ba4 Dummy {f00=0x0086, f01=0x018e, f02=»IS IS THE DRIVER TO CHANNEL UNITS FOR LOCAL AND REMOTE TERMINALS * P* CONNECTED TO SELECTOR UNIT (SUM). H P* v : P* THE DRIVER IS CALLED FROM TERMINAL DEVICE DRIVERS. P* : P* THE DRIVER HAS SEPARATED ENTRIES FOR LOCAL AND FOR P*
0x295ba4…295d38 Dummy {f00=0x0086, f01=0x0190, f02=» P* : P* AT INTERRUPT AN INPUT WORD IS READ TO REGISTER A2. B P* THE WORD IS EXAMINED AND SUITABLE ACTIONS ARE CARRIED OUT. L P* 0 P* CONTROL WORK TABLES FOR THE CHANNELS ARE P* INCLUDED IN THE DRIVER. P EJECT P*
0x295d38…295ecc Dummy {f00=0x0086, f01=0x018e, f02=» P* A3 = LINE NUMBER * 2 P* A4 = DEVICE NUMBER * 2 $ P* A5 = CWT-ADDRESS F P* A6 = DWT-ADDRESS b & P* A7 = LOCAL/REMOTE INDICATION: ~ & P* 0 IF LOCAL CONNECTION : P* ADJUSTED CWT-ADDRESS IF REMOTE CONNECTION
0x295ecc…296060 Dummy {f00=0x0086, f01=0x018e, f02=» P*************** P* P* & 8 P ENTRY CHLT1 INTERRUPT FROM FIRST CHANNEL UNIT LOCAL 0 : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL l 4 P ENTRY CHLT3 INTERRUPT FROM THIRD CHANNEL LOCAL 4 P ENTRY CHLT4 INTERRUPT FROM FOURTH CHA
0x296060…2961f4 (1, 682) Dummy {f00=0x0086, f01=0x0190, f02=» X 4 P ENTRY CHRT3 INTERRUPT FROM THIRD CHANNEL REMOTE 6 P ENTRY CHRT4 INTERRUPT FROM FOURTH CHANNEL REMOTE @ ( P ENTRY CHLTON START OF CHLT AND CHRT z P ENTRY CHTAB CHANNEL TABLE @ P ENTRY DWREMU DWT-DUMMY FOR LOOP-TESTING OF REMOTE CHANNELS
0x2961f4…296388 Dummy {f00=0x0086, f01=0x0190, f02=»E CODE t 6 P ENTRY SUMLOG LOGG AREA FOR LOCAL AND REMOTE TERM. P* H * P ENTRY LTCHRI CHARACTER INPUT (LOCAL) R 0 P ENTRY LTSTBL START OF OUTPUT BLOCK (LOCAL) * P ENTRY LTCHRO CHARACTER OUTPUT (LOCAL) . P ENTRY LTENBL END OF OUTPUT BLOCK (LOC
0x296388…29651c Dummy {f00=0x0086, f01=0x0190, f02=» OUTPUT BLOCK (REM0TE) z , P ENTRY RTCHRO CHARACTER OUTPUT (REMOTE) . P ENTRY RTENBL END OF OUTPUT BLOCK (REMOTE) N , P ENTRY RTDISP LOCAL DISPATCHER (REMOTE) P* P EJECT P* P* * P************************************** *
0x29651c…2966b0 Dummy {f00=0x0086, f01=0x0190, f02=»STERS A1-A8 z P EXTRN TDISP DISPATCHER P EXTRN SETIMP SET TIME 4 P* R 6 P EXTRN INTLT1 INTERRUPT TABLE FOR LOCAL CHANNEL 1 6 P EXTRN INTLT2 INTERRUPT TABLE FOR LOCAL CHANNEL 2 6 P EXTRN INTLT3 INTERRUPT TABLE FOR LOCAL CHANNEL 3 6
0x2966b0…296844 Dummy {f00=0x0086, f01=0x0190, f02=»RRUPT TABLE FOR REMOTE CHANNEL 2 ~ 6 P EXTRN INTRT3 INTERRUPT TABLE FOR REMOTE CHANNEL 3 ( 6 P EXTRN INTRT4 INTERRUPT TABLE FOR REMOTE CHANNEL 4 b P* $ P EXTRN LENDER I/O REQUEST ERROR & P EXTRN LENDIS END I/O AND DISPATCH * P EXTRN INTSAV SA
0x296844…2969d8 Dummy {f00=0x0086, f01=0x0190, f02=» EXTRN NDGET8 GET A3-A5, A7-A8 IN DWT * P EXTRN NDREDW CALL RECOVERY FOR DEVICE . 2 P EXTRN NDRETO SET OK & RETURN TO DEVICE DRIVER 6 P EXTRN NDREP GET REGISTERS & RETURN TO DEV. DRIVER P* P EJECT P* P* P****************
0x2969d8…296b6c Dummy {f00=0x0086, f01=0x0190, f02=»UTPUT CHARACTER | P EXTRN DWTECB ECB-ADDRESS * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK : P EXTRN DWTST STATUS h P EXTRN DWTOTQ OUTPUT QUEUE & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN DWTLD1 TIMER POINTER & P EXTRN DWTCP2 CHANNE
0x296b6c…296d00 Dummy {f00=0x0086, f01=0x0190, f02=»VERY ADDRESS DISPLACEMENT ~ P* " P EJECT , P* : P* D P******************** N P* CONSTANTS * j P******************** P* P* ( PNOERR EQU 1 RETURN CODE NOT OPERABLE ( PLRCERR EQU /02 RETURN CODE LRC-ERROR
0x296d00…296e94 (1, 683) Dummy {f00=0x0087, f01=0x0190, f02=»E r 4 PDEWDRQ EQU /80 MASK DEVICE WITHOUT DATA REQUEST $ PDEVINP EQU /40 MASK INPUT DEVICE B , PINDARQ EQU /20 MASK INPUT DATA REQUESTED j & PRECTRI EQU /10 FLAG RECOVERY TRIAL $ PLRCSEN EQU /08 FLAG LRC-SENDING ( PLMPQUE EQU /04 FLAG LAMP COD
0x296e94…297028 Dummy {f00=0x0087, f01=0x018e, f02=»EXT z * PETB EQU /97 END OF TRANSMISSION BLOCK PETX EQU /03 END OF TEXT : ( PESCKB EQU /1C ESCAPE CODE DATA TO KB Z 4 PDUMMSP EQU /3 SPECIAL DUMMY TO GET DATA REQUEST ( P FIRST WHEN PRINTERBUFFER IS EMPTY 0 PDRQTIM EQU 30 TIME TO NEXT ACK
0x297028…2971bc Dummy {f00=0x0087, f01=0x018e, f02=» f , P*************************************** P* 8 P* B < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER L 8 P* MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 P* PX:A EQU 1 PLOGING EQU X:A P* P*
0x2971bc…297350 Dummy {f00=0x0087, f01=0x0190, f02=» PLOCHAN EQU X:B P* P* $ 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND . 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN j 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM $ P* DRIVER BY SETTING X:C = 0. P*
0x297350…2974e4 Dummy {f00=0x0087, f01=0x0190, f02=» UP TO FOUR REMOTE CHANNEL CARDS. P* * PX:D EQU 0 4 PRECHAN EQU X:D F P* P* f P EJECT p P* ~ , P* REMFC IS " REMOTE TEST FILE CODE " P* STANDARD IS /15 P* PX:E EQU /15 PREMFC EQU X:E P
0x2974e4…297678 Dummy {f00=0x0087, f01=0x0190, f02=»LUDED. Z @ P* THE EXCLUSION IS ONLY POSSIBLE IF THE DRIVER IS ADAPTED , P* FOR ONLY LOCAL TERMINALS (RECHAN=0). R P* PX:F EQU 1 U =4 PSOFTIM EQU X:F U =4 P* P* B P* IF X:G = 1 THE DRIVER CAN HANDLE OUTPUT TO KEYBOAR
0x297678…29780c Dummy {f00=0x0087, f01=0x0190, f02=» P* 8 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 0 P* SET IS OBTAINED BY SETTING CPU852 EQU 0. J P* ~ PCPU852 EQU 1 P* P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG TO
0x29780c…2979a0 Dummy {f00=0x0087, f01=0x0190, f02=»ENTS * ~ P*************************** P* 6 " P* LOCAL AND REMOTE TERMINALS @ P* f P* p PCWTLDW EQU 0 LAST OUTPUT DWT z " PCWTLOW EQU 2 LAST OUTPUT WORD , PCWTITA EQU 4 ADDRESS TO INTERRUPT TABLE PCWTINR EQU 6 INR
0x2979a0…297b34 (1, 684) Dummy {f00=0x0087, f01=0x0190, f02=»CKMUL=1 PCWTADD EQU 18 ACKUMULATORS . PACKTIM EQU 24 PRINTER TIME-OUT ACKUMULATOR 2 PCWTTP EQU 26 TIMER POINTER d P XIF P IFT ACKMUL=0 PCWTTP EQU 18 TIMER POINTER P XIF P* P* ONLY REMOTE TERMINALS P*
0x297b34…297cc8 Dummy {f00=0x0087, f01=0x0190, f02=»CKUMULATORS x 8 PCWTRST EQU CWTTP+12 CHANNEL STATUS WORD (LOOP-TESTS) 0 PCWTBLK EQU CWTTP+14 BLOCK SENDING INDICATOR P P* P EJECT : P***************************************************** : P* C W T L T 1
0x297cc8…297e5c Dummy {f00=0x0087, f01=0x0190, f02=» ` P* PDWA1 EQU /03 DEVICEADDRESS P* 4 PCWTLT1 EQU * TABLE ENTRY > P* ^ P IFF LOCHAN=0 h P* ~ P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD , P DATA INTLT1 ADDRESS TO INTERRUPT TABLE P INR A2,0,DWA1 I
0x297e5c…297ff0 Dummy {f00=0x0087, f01=0x0190, f02=»QUEUE 2 P* P IFT ACKMUL=1 P* 0 P DATA 0 NAK-ACKUMULATOR : $ P DATA 0 RETR. FAULT-ACKUMULATOR Z , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT
0x297ff0…298184 Dummy {f00=0x0087, f01=0x0190, f02=» * ^ : P***************************************************** P* J 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 2 T P* PCWTLT2 EQU * P* P IFF LOCHAN=0 P IFF LOCHAN=1 P* P* P* PDWA2 EQU /
0x298184…298318 Dummy {f00=0x0087, f01=0x0190, f02=» INR A2,0,DWA2 INR P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START 4 " P DATA 0 RETRANSMISSION COUNTER T P DATA 0 QUEUE z P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAUL
0x298318…2984ac Dummy {f00=0x0087, f01=0x018e, f02=»* P EJECT P* P* " : P***************************************************** , : P* C W T L T 3 * j : P***************************************************** P* 4 P* CONTROL WORK TABLE
0x2984ac…298640 Dummy {f00=0x0087, f01=0x0190, f02=» P* P* P* PDWA3 EQU /23 DEVICE ADDRESS " P* F P DATA 0 LAST OUTPUT DWT P P DATA 0 LAST OUTPUT WORD p P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P
0x298640…2987d4 (1, 685) Dummy {f00=0x0087, f01=0x0190, f02=»0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR B ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR r P* P XIF P* P EJECT P* P* : P****************************************
0x2987d4…298968 Dummy {f00=0x0087, f01=0x0190, f02=»* P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 4 P* L PCWTLT4 EQU * V P* j P IFT LOCHAN=4 t P* P* P* PDWA4 EQU /33 P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P D
0x298968…298afc Dummy {f00=0x0087, f01=0x018e, 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
0x298afc…298c90 Dummy {f00=0x0087, f01=0x0190, f02=» $ P******************************* ! 4 P* CONTROL WORK TABLE FOR REMOTE CHANNEL NO. 1 ! , P* CONNECTED TO FIRST CHRT ! d P* ! PCWTRT1 EQU * ! P* ! P IFF RECHAN=0 ! P* ! PDWA5 EQU /1 DEVICE ADDRESS ! P* ! P DATA 0 LAST
0x298c90…298e24 Dummy {f00=0x0087, f01=0x0190, f02=» P CIO A2,1,DWA5 CIO-START " " P DATA 0 RETRANSMISSION COUNTER " $ P DATA 0 QUEUE TERMINAL 1 " J P DATA 0 QUEUE TERMINAL 2 " j P* " P IFT ACKMUL=1 " P* " P DATA 0 NAK-ACKUMULATOR " $ P DATA 0 BLOCK ERROR ACKUMULATOR " , P DATA 0 UNDE
0x298e24…298fb8 Dummy {f00=0x0087, f01=0x0190, f02=»ATA 0 TIMER POINTER " P DATA /7055 SYNC CHARACTER # 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 # > 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 # r & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 # & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 # , P DATA 0 CHANNE
0x298fb8…29914c Dummy {f00=0x0087, f01=0x0190, f02=» # $ P******************************** $ $ P* C W T R T 2 * $ 0 $ P******************************** $ X : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 $ P* CONNECTED TO FIRST CHRT $ P* $ PCWTRT2 EQU * $ P* $
0x29914c…2992e0 Dummy {f00=0x0087, f01=0x0190, f02=»NR A2,0,DWA5 INR $ P OTR A2,1,DWA5 OTR % P CIO A2,1,DWA5 CIO-START % 2 " P DATA 0 RETRANSMISSION COUNTER % R P DATA 0 QUEUE TERMINAL 1 % x P DATA 0 QUEUE TERMINAL 2 % P* % P IFT ACKMUL=1 % P* % P DATA 0 NAK-ACKUMULATOR % $ P DATA
0x2992e0…299474 (1, 686) Dummy {f00=0x0087, f01=0x0190, f02=» XIF % P* & P IFF RECHAN=0 & P DATA 0 TIMER POINTER & , P DATA /7255 SYNC-CHARACTER & J 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 & l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 & & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 & & P DATA 0 LR
0x299474…299608 Dummy {f00=0x0087, f01=0x0190, f02=»CT & $ P******************************** ' $ P* C W T R T 3 * ' 2 $ P******************************** ' Z P* ' : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 ' " P* CONNECTED TO SECOND CHRT ' P* ' PCWTRT3 EQU * '
0x299608…29979c Dummy {f00=0x0087, f01=0x0190, f02=»DWT ' | P DATA 0 LAST OUTPUT WORD ( P DATA INTRT2 INTERRUPT TABLE ( , P INR A2,0,DWA6 INR ( P P OTR A2,0,DWA6 OTR ( j P CIO A2,1,DWA6 CIO-START ( " P DATA 0 RETRANSMISSION COUNTER ( P DATA 0 QUEUE TERMINAL 1 ( P DATA 0 QUEUE TERMINAL 2 (
0x29979c…299930 Dummy {f00=0x0087, f01=0x0190, f02=»KUMULATOR ( r ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ) P* ) > P XIF ) H P IFF RECHAN=0 ) T P IFF RECHAN=1 ) j P DATA 0 TIMER POINTER ) P DATA /7055 SYNC-CHARACTER ) 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ) 0 P DATA 0 DWT OF GOING
0x299930…299ac4 Dummy {f00=0x0087, f01=0x0190, f02=»US WORD (LOOP-TESTS) ) | $ P DATA 1 BLOCK SENDING INDICATOR * P XIF * D P EJECT * P $ P******************************** * ^ $ P* C W T R T 4 * * $ P******************************** * P* * : P* CHANNEL UNIT WORK TABLE FOR REMOTE
0x299ac4…299c58 Dummy {f00=0x0087, 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,1,DWA6 OTR + P CIO A2,1,DWA6 CIO-START + " P DATA 0 RETRANSMISSION COUNTER + P DATA 0 QUEUE TERMINAL 1 + P D
0x299c58…299dec Dummy {f00=0x0087, f01=0x0190, f02=»ATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR + ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR , . P XIF , Z P IFF RECHAN=0 , f P IFF RECHAN=1 , | P DATA 0 TIMER POINTER , P DATA /7255 SYNC-CHARACTER , 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 , 0 P D
0x299dec…299f80 Dummy {f00=0x0087, f01=0x0190, f02=»ATA 0 CHANNEL STATUS WORD (LOOP-TESTS) , $ P DATA 1 BLOCK SENDING INDICATOR - . P* - V P XIF - ` P EJECT - l $ P******************************** - z $ P* C W T R T 5 * - $ P******************************** - P* - : P* CHANNEL
0x299f80…29a114 (1, 687) Dummy {f00=0x0088, f01=0x018e, f02=»FF RECHAN=0 - P IFF RECHAN=1 . P IFF RECHAN=2 . * P* . @ PDWA7 EQU /21 DEVICE ADDRESS . J P* . n P DATA 0 LAST OUTPUT DWT . x P DATA 0 LAST OUTPUT WORD . P DATA INTRT3 INTERRUPT TABLE . P INR A2,0,DWA7 INR . P OTR A2,0,DWA7 OTR
0x29a114…29a2a8 Dummy {f00=0x0088, f01=0x0190, f02=» . v P* / P IFT ACKMUL=1 / P DATA 0 NAK-ACKUMULATOR / ( $ P DATA 0 BLOCK ERROR ACKUMULATOR / H , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR / p ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR / P* / P XIF / P IFF RECHAN=0 / P IFF RECHAN=1 /
0x29a2a8…29a43c Dummy {f00=0x0088, f01=0x0190, f02=» / d 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 0 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 0 < & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 0 f , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 0 $ P DATA 1 BLOCK SENDING INDICATOR 0 P XIF 0 P EJECT 0 $ P******
0x29a43c…29a5d0 Dummy {f00=0x0088, f01=0x0190, f02=» UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 0 P* CONNECTED TO THIRD CHRT 1 2 P* 1 V PCWTRT6 EQU * 1 ` P* 1 t P IFF RECHAN=0 1 ~ P IFF RECHAN=1 1 P IFF RECHAN=2 1 P DATA 0 LAST OUTPUT DWT 1 P DATA 0 LAST OUTPUT WORD 1 P DATA IN
0x29a5d0…29a764 Dummy {f00=0x0088, f01=0x0190, f02=»OUNTER 1 x P DATA 0 QUEUE TERMINAL 1 2 P DATA 0 QUEUE TERMINAL 2 2 . P* 2 N P IFT ACKMUL=1 2 X P DATA 0 NAK-ACKUMULATOR 2 n $ P DATA 0 BLOCK ERROR ACKUMULATOR 2 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 2 ( P DATA 0 PRINTER TIMEOUT ACKUMULATO
0x29a764…29a8f8 Dummy {f00=0x0088, f01=0x0190, f02=»255 SYNC-CHARACTER 2 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 3 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 3 N & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 3 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 3 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 3 $ P D
0x29a8f8…29aa8c Dummy {f00=0x0088, f01=0x0190, f02=» 3 p $ P******************************** 4 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 4 0 " P* CONNECTED TO FOURTH CHRT 4 n P* 4 PCWTRT7 EQU * 4 P* 4 P IFT RECHAN=4 4 P* 4 PDWA8 EQU /31 DEVICE ADDRESS 4 P* 4
0x29aa8c…29ac20 Dummy {f00=0x0088, f01=0x0190, f02=»0,DWA8 OTR 4 P CIO A2,1,DWA8 CIO-START 5 " P DATA 0 RETRANSMISSION COUNTER 5 2 P DATA 0 QUEUE TERMINAL 1 5 X P DATA 0 QUEUE TERMINAL 2 5 x P* 5 P IFT ACKMUL=1 5 P DATA 0 NAK-ACKUMULATOR 5 $ P DATA 0 BLOCK ERROR ACKUMULATOR 5 , P DATA 0
0x29ac20…29adb4 (1, 688) Dummy {f00=0x0088, f01=0x0190, f02=»TIMER POINTER 5 P DATA /7055 SYNC-CHARACTER 6 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 6 8 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 6 l & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 , P DATA 0 CHANNEL STAT
0x29adb4…29af48 Dummy {f00=0x0088, f01=0x018e, f02=» C W T R T 8 * 6 $ P******************************** 7 & P* 7 N : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 7 X " P* CONNECTED TO FOURTH CHRT 7 P* 7 PCWTRT8 EQU * 7 P* 7 P IFT RECHAN=4 7 P DATA 0 LAST O
0x29af48…29b0dc Dummy {f00=0x0088, f01=0x0190, f02=» P CIO A2,1,DWA8 CIO-START 8 " P DATA 0 RETRANSMISSION COUNTER 8 $ P DATA 0 QUEUE TERMINAL 1 8 J P DATA 0 QUEUE TERMINAL 2 8 j P* 8 P IFT ACKMUL=1 8 P DATA 0 NAK-ACKUMULATOR 8 $ P DATA 0 BLOCK ERROR ACKUMULATOR 8 , P DATA 0 UNDEFINED-INTE
0x29b0dc…29b270 Dummy {f00=0x0088, f01=0x0190, f02=» 8 z P DATA /7255 SYNC-CHARACTER 9 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 9 * 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 9 ^ & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 9 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 9 , P DATA 0 CHANNEL STATUS WORD (LOOP-
0x29b270…29b404 Dummy {f00=0x0088, f01=0x018e, f02=»************* 9 l 6 P* C H T A B * : 6 P************************************************* : P P* : 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK : 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE :
0x29b404…29b598 Dummy {f00=0x0088, f01=0x018e, f02=» : P DATA 0 ; P DATA 0 ; P DATA 0 ; ( P DATA 0 ; 8 P XIF ; H P* ; T P IFT LOCHAN=1 ; ^ P DATA CWTLT1 ; t P DATA 0 ; P DATA 0 ; P DATA 0 ; P XIF ; P* ; P IFT LOCHAN=2 ; P DATA CWTLT1 ; P DATA CWTLT2 ;
0x29b598…29b72c Dummy {f00=0x0088, f01=0x0190, f02=» ; P DATA 0 < P XIF < P IFT LOCHAN=4 < $ P DATA CWTLT1 < : P DATA CWTLT2 < N P DATA CWTLT3 < b P DATA CWTLT4 < v P XIF < P* < P IFT RECHAN=1 < P DATA CWTRT1 < P DATA CWTRT2 < P XIF < P* < P IFT RECHAN=2 <
0x29b72c…29b8c0 Dummy {f00=0x0088, f01=0x0190, f02=»T1 < P DATA CWTRT2 = P DATA CWTRT3 = P DATA CWTRT4 = 2 P DATA CWTRT5 = F P DATA CWTRT6 = Z P XIF = n P* = z P IFT RECHAN=4 = P DATA CWTRT1 = P DATA CWTRT2 = P DATA CWTRT3 = P DATA CWTRT4 = P DATA CWTRT5 = P DATA CWTR
0x29b8c0…29ba54 (1, 689) Dummy {f00=0x0088, f01=0x0190, f02=» ( P************************************ > ( P* D W R E M U * > 0 ( P************************************ > P* > . P* DUMMY TABLE USED WHEN LOOP-TESTING OF > $ P* REMOTE CHANNELS ARE NEEDED. > P* > PDWREMU EQU * >
0x29ba54…29bbe8 Dummy {f00=0x0088, f01=0x0190, f02=»0,0 > P IFT MMUPAG=1 U =4 ? * P DATA 0 SAVE AREA USER ECB ADDRESS =4 ? & $ P DATA DEVECB MMU ECB ADDRESS =4 ? T & PDEVECB DATA 0,0,0,0,0,0 MMU ECB =4 ? | P XIF U =4 ? P IFF RECHAN=0 U =4 ? P EJECT ? P* ? P* ? * P* L O O P - T E S
0x29bbe8…29bd7c Dummy {f00=0x0088, f01=0x018e, f02=»VEN IN CONTROL WORD OF ECB. ? v 6 P* THE REQUEST IS COMPLETED WITH FOLLOWING BITS @ $ P* IN RETURN CODE OF ECB: @ ^ P* @ 2 P* BIT 9: CHANNEL UNIT NOT IN ACTIVE STATUS @ P* @ P* @ . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT @ P
0x29bd7c…29bf10 Dummy {f00=0x0088, f01=0x0190, f02=» P IFF RECHAN=0 U =4 A PAREM DATA LOPTST A " P DATA 0 ABORT ROUTINE ADDRESS A 6 " P DATA IHLOP INTERRUPT HANDLER A PLOPTST EQU * A $ P LD A2,10,A8 GET CHANNEL NUMBER A P ANK A2,/FF A P RF(E) DISIIE A ( P CWK A2,RECHAN+RECHAN CHANNEL 1-
0x29bf10…29c0a4 Dummy {f00=0x0088, f01=0x018e, f02=»ER ? A | P RF(E) LOPT10 NO B ( PDISIIE ABL LENDER I/O REQUEST ERROR B $ PLOPT10 EQU * B P , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS B d P LDR A5,A2 CWT-ADDRESS B P ANK A1,/40 B , P RF(NE) IHLP20 CHANNEL UNIT NOT BUSY =4 B & P LDK A5,/E0 INDICA
0x29c0a4…29c238 Dummy {f00=0x0088, f01=0x0190, f02=» P* C PIHLOP EQU * C P LDR A5,A1 GET CWT-ADDRESS C " , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS C D P ANK A1,3 C t P XRK A1,3 C PIHLP10 EQU * C P LDK A2,0 C : P SC A2,CWTRST+1,A5 RESET RIGHT BYTE IN CHANNEL STATUS C PIHLP20 EQU *
0x29c238…29c3cc Dummy {f00=0x0088, f01=0x018e, f02=» 1 / C H R T 2 C P* D 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT D P* D 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS D f 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. D 0 P* THEN DRIVER GETS THE INTERRUPT MESSAGE, D 2 P*
0x29c3cc…29c560 Dummy {f00=0x0088, f01=0x0190, f02=» 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT E P* E : . P* D = DEVICE ADDRESS C = CHARACTER E D P* E v 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 E 8 P* NAK OUTPUT ERROR D = 0 C = 5 E 8 P* OER T
0x29c560…29c6f4 (1, 690) Dummy {f00=0x0114, f01=0x018e, f02=»DIATE SIGN BIT SET E p 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 F 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A F X 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C F 8 P* ABC-LV LRC O VRC ERROR IN BLOCK D = 0 C = E F
0x29c6f4…29c888 Dummy {f00=0x0114, f01=0x0190, f02=» 8 P* STD STATUS MESSAGE D # 0 C # 0 G 2 P* DIN DATA INPUT D # 0 G @ P EJECT G v P* G P* C H L T 1 G P* G P* INTERRUPT FROM CHLT1 G P* G PCHLT1 EQU * G P IFF LOCHAN=0 G $ P ST
0x29c888…29ca1c Dummy {f00=0x0114, f01=0x0190, f02=» LOCHAN=0 G P IFT CPU852=0 H " P MSR 8,A15 SAVE A1-A8 ON STACK H ( P XIF H N P* H Z P IFF LOCHAN=0 H d P LDK A7,2 INDICATE CHLT1 H z P RF CLT010 H P XIF H P* H P* H P* C H L T 2 H P* H P* INTERRUPT FROM CHLT2 H
0x29ca1c…29cbb0 Dummy {f00=0x0114, f01=0x0190, f02=»PU852=1 H & P CF A15,SAVE8 SAVE A1-A8 ON STACK I P XIF I : P* I F P IFF LOCHAN=0 I P P IFF LOCHAN=1 I f P IFT CPU852=0 I | " P MSR 8,A15 SAVE A1-A8 ON STACK I P XIF I P* I P IFF LOCHAN=0 I P IFF LOCHAN=1 I P LDK A7,4 INDI
0x29cbb0…29cd44 Dummy {f00=0x0114, f01=0x0190, f02=» I PCHLT3 EQU * J P IFF LOCHAN=0 J P IFF LOCHAN=1 J 2 P IFF LOCHAN=2 J H $ P ST P,INTSAV SAVE LAST INTERRUPT J ^ P* J P IFT CPU852=1 J & P CF A15,SAVE8 SAVE A1-A8 ON STACK J P XIF J P* J P IFF LOCHAN=0 J P IFF LOCHAN=
0x29cd44…29ced8 Dummy {f00=0x0114, f01=0x018e, f02=» IFF LOCHAN=1 J P IFF LOCHAN=2 K P LDK A7,6 INDICATE CHLT3 K , P RF CLT010 K L P XIF K ^ P* K j P* K t P* C H L T 4 K ~ P* K P* INTERRUPT FROM CHLT4 K P* K PCHLT4 EQU * K P IFT LOCHAN=4 K $ P ST P,INTSAV SAVE LA
0x29ced8…29d06c Dummy {f00=0x0114, f01=0x0190, f02=» P IFT CPU852=0 L " P MSR 8,A15 SAVE A1-A8 ON STACK L P XIF L @ P* L L P IFT LOCHAN=4 L V P LDK A7,8 INDICATE CHLT4 L l P RF CLT010 L P* L P XIF L P* L P EJECT L P* L P* L P* C H R T 1 L P* INTERRUPT FRO
0x29d06c…29d200 Dummy {f00=0x0114, f01=0x0190, f02=»VE A1-A8 ON STACK L P XIF M P* M & P IFF RECHAN=0 M 0 P IFT CPU852=0 M F " P MSR 8,A15 SAVE A1-A8 ON STACK M P XIF M P* M P IFF RECHAN=0 M P LDK A7,10 INDICATE CHRT1 M P RF CLT010 M P XIF M P* M P* C H R T 2 M
0x29d200…29d394 (1, 691) Dummy {f00=0x0114, f01=0x0190, f02=» SAVE LAST INTERRUPT M P* N P IFT CPU852=1 N & & P CF A15,SAVE8 SAVE A1-A8 ON STACK N < P XIF N f P* N r P IFF RECHAN=0 N | P IFF RECHAN=1 N P IFT CPU852=0 N " P MSR 8,A15 SAVE A1-A8 ON STACK N P XIF N P* N P IFF RECHAN=0
0x29d394…29d528 Dummy {f00=0x0114, f01=0x018e, f02=»* N P* INTERRUPT FROM CHRT3 O P* O , PCHRT3 EQU * O 6 P IFF RECHAN=0 O J P IFF RECHAN=1 O ` P IFF RECHAN=2 O v $ P ST P,INTSAV SAVE LAST INTERRUPT O P* O P IFT CPU852=1 O & P CF A15,SAVE8 SAVE A1-A8 ON STACK O P XIF O
0x29d528…29d6bc Dummy {f00=0x0114, f01=0x0190, f02=» P XIF P P* P P IFF RECHAN=0 P P IFF RECHAN=1 P 0 P IFF RECHAN=2 P F P LDK A7,18 INDICATE CHRT3 P P RF CLT010 P ~ P XIF P P* P P* P P* C H R T 4 P P* P P* INTERRUPT FROM CHRT4 P P* P PCHRT4 EQU *
0x29d6bc…29d850 Dummy {f00=0x0114, f01=0x018e, f02=» P n P XIF Q P* Q P IFT RECHAN=4 Q P IFT CPU852=0 Q 4 " P MSR 8,A15 SAVE A1-A8 ON STACK Q J P XIF Q p P* Q | P IFT RECHAN=4 Q P LDK A7,22 INDICATE CHRT4 Q P XIF Q P* Q P EJECT Q P* Q ( P* COMMON PART FOR ALL INT
0x29d850…29d9e4 Dummy {f00=0x0114, f01=0x018e, f02=» P IFF RECHAN=0 U =4 R P ABL(NA) TDISP R P XIF U =4 R 4 P* R F P IFT LOGING=1 R P P* R f 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** R p P* R P XIF R P EJECT R P* R & P* DETERMINE TYPE OF INTERRUPT. R 4 P* MOR
0x29d9e4…29db78 Dummy {f00=0x0114, f01=0x0190, f02=» P SUK A7,10 S P U =4 S P IFF LOCHAN=0 S & $ P RF(NN) CLT014 REMOTE INTERRUPT S < & P LDK A7,0 INDICATE LOCAL INTERRUPT S d P RF CLT018 S PCLT014 EQU * S P XIF S P IFF RECHAN=0 S P LDR A3,A2 S . P SLC A3,6 REMOTE FIRST OR SECOND
0x29db78…29dd0c Dummy {f00=0x0114, f01=0x0190, f02=»RT OR RESTART SYNC-TIMER S x * P ANK A3,/2 FIRST OR SECOND TERMINAL ? T P LDR A7,A5 T N P ADR A7,A3 T ` & P LD A3,CWTRST,A5 LOOP TEST MODE ? T r P ABL(N) CLT170 YES T P XIF T & PCLT018 LDK A1,0 RESET RETURN CODE T ( P LDR A3,A2 DATA REQUEST IMME
0x29dd0c…29dea0 Dummy {f00=0x0114, f01=0x0190, f02=», STD OR DRD T x P EJECT U P* U " P* U , , P* DETERMINE TYPE OF CONTROL CHARACTER U 6 P* U f P LDR A3,A2 U p . P ANK A3,/FF DELETE DEVICE AND LINE NUMBER U P RF(E) CLT030 OER U P SUK A3,7 U P RF(E) CLT050 ACK U P ADK A3,2 U
0x29dea0…29e034 (1, 692) Dummy {f00=0x0114, f01=0x0190, f02=»OCAL ? U P RF(NZ) CLT022 NO V P XIF V ( P IFF LOCHAN=0 V 4 & P SUK A3,/18 RETRANSMISSION FAULT ? V J * P RF(NE) CLT025 NO, UNDEFINED INTERRUPT V t P* V P IFT ACKMUL=1 V 6 P IM CWTADD+2,A5 UPDATE RETRANSM. FAULT ACKUMULATOR V P XIF V P
0x29e034…29e1c8 Dummy {f00=0x0114, f01=0x0190, f02=»/80 ABC-ANSWER ALLOWED ? V P TM A6,A4 W P RF(E) EXIIT NO W 2 P XRK A4,/80 YES, RESET BIT W J P SC A4,LRCACK,A7 AND STORE W l " P LD A6,LRCDWT,A7 LRC-DEVICE ? W P RF(E) EXIIT W P ANK A4,/7F W P RF(Z) CLT046 YES W 8 P CF A15,RESLRC RES
0x29e1c8…29e35c Dummy {f00=0x0114, f01=0x0190, f02=» W r P SUK A3,5 X P RF(E) CLT043 ABC+ =5 X P IFT ACKMUL=1 X 8 P* X N , P IM CWTADD+2,A5 UPDATE ERROR ACKUMULATOR X X P XIF X P IFF RECHAN=0 X P* X P SUK A3,4 VRC-ERROR ? X P RF(E) CLT042 YES X & P LDK A1,LRCERR INDICATE LRC-
0x29e35c…29e4f0 Dummy {f00=0x0114, f01=0x0190, f02=» X h P XIF Y PCLT025 EQU * Y P IFT ACKMUL=1 Y ( 8 P IM CWTADD+4,A5 UPDATE UNDEF. INTERRUPT ACKUMULATOR Y > P XIF Y z P EJECT Y P* Y 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. Y 4 P* RETURN TO DEVICE DRIVER WITH RETURN CODE : Y 0
0x29e4f0…29e684 Dummy {f00=0x0114, f01=0x0190, f02=»ST OER OR UNDEFINED Y v " P* INTERRUPT Z P* Z B PCLT030 EQU * Z L P IFF RECHAN=0 Z ` P IFF LOCHAN=0 Z v P LDR A7,A7 REMOTE ? Z P RF(Z) CLTQUE NO Z P XIF Z P IFF RECHAN=0 Z P LD A6,LRCDWT,A7 Z P CWR* A6,A5 LR
0x29e684…29e818 Dummy {f00=0x0114, f01=0x018e, f02=»RESOLVE QUEUE Z | " P ANK A2,/FF CLEAN CHARACTER =5 [ P SUK A2,5 SEVEN NAK ? [ < P RF(Z) CLT045 YES [ Z * PCLT031 LD A2,DWTST,A6 GET STATUS WORD [ t P LDR A3,A2 [ 0 P ANKL A2,DEVECH+RECTRI ECHO AND RECOVERY BIT [ P RF(NE) CLT045 [ 0 P ORK A3,RE
0x29e818…29e9ac Dummy {f00=0x0114, f01=0x018e, f02=» [ ( P ABL CLT107 RETURN TO DEVICE DRIVER P IFF RECHAN=0 4 P EJECT J P* X P* ABC- VRC-ERROR b P* ~ 8 P* IF BLOCKSENDING SAME PROCEDURE AS FOR THE OTHER P* ERRORS OF TYPE ABC-. 4 P* IF OUTPUT TO PRINTERS WITH LR
0x29e9ac…29eb40 Dummy {f00=0x0114, f01=0x0190, f02=» p P RB(NZ) CLT031 YES ] P U =5 ] " P* ] 2 P* ABC+ VRC-ERROR ] < P* ] X 6 P* SEND ETX TO REMOTE PRINTERS WITH DATA REQUEST ] b 4 P* RETURN TO DEV. DRIVER IF OTHER DEVICE TYPE ] P* ] PCLT043 EQU * U =5 ] 0 P ANK A4,DEWDRQ D
0x29eb40…29ecd4 (1, 693) Dummy {f00=0x0115, f01=0x0190, f02=»A15,OUTLIN PRINTERS WITH DATA REQUEST =5 ] " P RF EXIIT GO TO DISPATCHER =5 ^ 0 P XIF ^ V P EJECT ^ b P* ^ p P* POWER ON ^ z P* ^ 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE ^ < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL
0x29ecd4…29ee68 Dummy {f00=0x0115, f01=0x0190, f02=»TC,A5 RESET RETRANSMISSION COUNTER ^ P IFF RECHAN=0 _ * P IFF LOCHAN=0 _ @ P LDR A7,A7 REMOTE ? _ V P RF(Z) CPO010 NO _ r P XIF _ P IFF RECHAN=0 _ P U =1 _ . P CM LRCDWT,A7 RESET LRC-DEVICE POINTER =1 _ P LDK A7,1 U =1 _ 6 P ANS
0x29ee68…29effc Dummy {f00=0x0115, f01=0x018e, f02=» ADDRESS POINTER _ PCPO020 EQU * ` P LDR* A6,A1 GET DWT-ADDRESS ` , P RF(E) CPO030 ` P P SRC A6,1 ` f P RF(N) CPO030 ` x P SLC A6,1 ` P U =4 ` P LDKL A7,/FFFF-RECTRI-LRCSEN ` 6 P ANS A7,DWTST,A6 RESET RECOVERY BIT AND LRC-BIT =1 `
0x29effc…29f190 Dummy {f00=0x0115, f01=0x0190, f02=» P ANK A7,/20 ECHO MODE ? a P RF(NE) CPO030 YES a $ PCPO023 EQU * U =4 a > 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER a X P RF(E) CPO030 YES a PCPO025 EQU * a & P LDK A4,3 RECOVERY CAUSE: POWER ON a ( P CF A15,NDREDW CALL RECOVERY ROUTINE
0x29f190…29f324 Dummy {f00=0x0115, f01=0x0190, f02=» a P EJECT b P* b 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER b P* b Z PCLT045 EQU * b d P LDKL A1,/FFFF-RECTRI b x ( P ANS A1,DWTST,A6 RESET RECOVERY BIT b ( P LDK A1,NOERR INDICATE NOT OPERABLE b & P ABL CLT107 RESET TIMER AN
0x29f324…29f4b8 Dummy {f00=0x0115, f01=0x0190, f02=»HEN EXAMINE LAST b r 0 P* OUTPUT DWT. IF NOT DEFINED UPDATE ERROR c 6 P* ACKUMULATOR AND GO TO DISPATCHER. IF SYNC-ACK c L P* DROP IT. c 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF c 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF D
0x29f4b8…29f64c Dummy {f00=0x0115, f01=0x0190, f02=» : P* HANDLING ANSWERS FROM DEVICE IS AFFECTED AND THEN d > P* IF DRI A BRANCH IS MADE TO THE DATA REQUEST SECTION. d B * P* IF ACK WE HAVE TO WAIT FOR A DRD. d PCLT050 EQU * d P IFF RECHAN=0 d & P LC A3,CWTLOW,A5 LAST OUTPUT WORD d " P A
0x29f64c…29f7e0 Dummy {f00=0x0115, f01=0x0190, f02=» RECOVERY BIT IN STATUS WORD d z P IFF RECHAN=0 e $ P IFF LOCHAN=0 e : P LDR A7,A7 REMOTE ? e P P RF(Z) CLT052 NO e l P XIF e P IFF RECHAN=0 e P LDK A4,2 e 4 P ORS A4,CWTRST,A5 INDICATE ACK IN CHANNEL STATUS e P LDR A8,A3 OBC-ACK ? e
0x29f7e0…29f974 (1, 694) Dummy {f00=0x0115, f01=0x0190, f02=»QU * e " P LD A3,DWTST,A6 DEVICE STATUS f 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? f 2 P RF(Z) CLT055 NO f f P IFF RECHAN=0 f ~ P IFF LOCHAN=0 f P LDR A7,A7 REMOTE ? f , P RB(Z) CLT046 NO, RETURN TO DEV. DRIVER f P XIF f P IFF R
0x29f974…29fb08 Dummy {f00=0x0115, f01=0x0190, f02=» P XIF g P EJECT g P* g P* g ( H P* PRINTER TIMING AND TIMING FOR MISSING BLOCK CONTROL CHARACTERS g 2 P* g ~ PCLT055 EQU * g P IFF SOFTIM+RECHAN=0 U =4 g P INH g , P LD A3,DWTLD1,A6 ADDRESS TO TIMER BLOCK g P RF(E) CLT060
0x29fb08…29fc9c Dummy {f00=0x0115, f01=0x0190, f02=»* g P* START TIMER h P* h " PCLT060 EQU * h , P LDR A1,A6 PARAMETER h @ " P LDKL A4,DWTLD1 TIMER POINTER h P ADR A4,A6 ADD DWT-ADDRESS h " P CF A15,SETIMP GET TIMER BLOCK h > P DATA DRQTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY h
0x29fc9c…29fe30 Dummy {f00=0x0115, f01=0x0190, f02=»CE STATUS h | 0 P ANK A4,DEWDRQ DEVICE WITHOUT DATA REQUEST ? i 0 P RB(NZ) CLT046 YES, RETURN TO DEVICE DRIVER i F ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? i z P ABL(N) CLT110 YES =2 i P XIF i " PEXIT ABL TDISP DISPATCHER EXIT i P IFF SOFTIM+RECHAN
0x29fe30…29ffc4 Dummy {f00=0x0115, f01=0x0190, f02=» CONNECTED DEVICES i l 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL j . P* CHARACTERS (ABC) FROM SELECTOR UNIT. j V P* j PDRQTUT EQU * j P LDR A6,A1 GET DWT-ADDRESS j . P CM DWTLD1,A6 RESET POINTER TO TIMER BLOCK j P LD A3,DWTST,A
0x29ffc4…2a0158 Dummy {f00=0x0115, f01=0x0190, f02=» EXIT U =2 j P U =2 k PDRQT10 EQU * k " P* k 6 P IFT ACKMUL=1 k @ " P CF A15,GETCWT GET CWT-ADDRESS k V ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR k | P XIF k P* k P IFF SOFTIM+RECHAN=0 U =4 k . P LDK A1,TIMERR INDICATE SOFTWARE TIME-OU
0x2a0158…2a02ec Dummy {f00=0x0115, f01=0x0190, f02=»LRC-ERROR k x PDRQT20 EQU * l P XIF l & P IFF SOFTIM+RECHAN=0 U =4 l 2 ( P ABL CLT107 RETURN TO DEVICE DRIVER l T P XIF U =4 l P EJECT l P* l P* N A K l P* l 8 P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS l 8 P* U
0x2a02ec…2a0480 Dummy {f00=0x0115, f01=0x018e, f02=»OT OPERABLE IS SENT TO DEVICE DRIVER. l ~ P* m . PCLT080 EQU * m 8 $ P LDR* A6,A5 GET LAST OUTPUT DWT m L P RB(E) EXIT m t P* m P IFT ACKMUL=1 m P* m * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR m P* m P XIF m P* m P IFF REC
0x2a0480…2a0614 (1, 695) Dummy {f00=0x0115, f01=0x0190, f02=» P LD A4,CWTRTC,A5 GET COUNTER n P SUK A4,7 SEVEN TIMES ? n ( P ABL(E) CLT030 n H * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD n ^ $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. n P IFT LOGING=1 n 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** n P XIF n
0x2a0614…2a07a8 Dummy {f00=0x0115, f01=0x0190, f02=»N=0 n P ANK A2,/FF o , P XRS A2,LRCACK,A7 UPDATE LRC-ACKUMULATOR o . P CF A15,RESTSY START OR RESTART SYNC-TIMER o P P XIF o PCLT090 ABL TDISP o P EJECT o P* o P* o $ P* DATA INPUT AND DATA REQUEST o P* o > P* ALWAYS:
0x2a07a8…2a093c Dummy {f00=0x0115, f01=0x0190, f02=» DEVICE DRIVER. o B P* IF INPUT NOT REQUESTED, GO TO INTERRUPT p * 4 P* ROUTINE OF DEVICE DRIVER. p p P* p P* DATA REQUEST: p P* p < P* LOCAL DEVICES: STORE PRINTER STATUS IN DWTD
0x2a093c…2a0ad0 Dummy {f00=0x0115, f01=0x0190, f02=» STATUS MESSAGE (ONLY FOR REMOTE DEVICES): p D P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER. q 2 P* q z P* q PCLT100 EQU * q P LDR A3,A2 q P SRL A3,8 q P LDR A4,A3 q . P ANK A3,/E 2 * LINE NUMBER FOR LOCAL CONN. q
0x2a0ad0…2a0c64 Dummy {f00=0x0115, f01=0x0190, f02=» A3,/02 MASK CHANNEL NUMBER q " P SLL A3,1 TO CORRECT POSITION r $ & P CWR A7,A5 TERMINAL 2 ON CHANNEL ? r J P RF(E) CLT103 NO r t & P ADK A3,2 YES, ADD TERMINAL NUMBER r P XIF r PCLT103 EQU * r P SRL A4,3 r P ANK A4,/E 2 * DEVICE NUMBER r
0x2a0c64…2a0df8 Dummy {f00=0x0115, f01=0x0190, f02=»,A5 ADDRESS TO INTERRUPT TABLE r P RB(Z) EXIT s & P CW A3,-2,A8 WITHIN TABLE ? s : P RB(NL) EXIT NO s ^ P ADR A8,A3 s v , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION s P RB(Z) EXIT NOT DEFINED s P LD A6,-2,A8 GET ID-WORD s P SUR A6,A4 s $
0x2a0df8…2a0f8c Dummy {f00=0x0115, f01=0x0190, f02=»T-ADDRESS s x P LDR* A6,A8 GET DWT-ADDRESS t P RB(E) EXIT t 6 P ANK A2,/FF CLEAN CHARACTER t J " P LD A3,DWTST,A6 DEVICE STATUS t n 8 P ANK A3,DEVINP+INDARQ MASK INPUT DEV. AND INPUT REQ. t P SUK A3,DEVINP t 4 P RF(Z) CLT115 INPUT DEV. BUT NO IN
0x2a0f8c…2a1120 Dummy {f00=0x0115, f01=0x0190, f02=»WITHOUT DATA REQUEST ? t z P RB(NZ) EXIT YES u P IFF RECHAN=0 u 6 P IFF LOCHAN=0 u L P LDR A7,A7 REMOTE ? u b P RF(NZ) CLT120 YES u ~ P XIF u P IFT LOCHAN=0 u P RF CLT120 u P XIF u P IFF LOCHAN=0 u . P SC A2,DWTDEV+1,A6 SAVE PR
0x2a1120…2a12b4 (1, 696) Dummy {f00=0x0115, f01=0x0190, f02=»RESTIM RESET TIMER u P XIF U =4 v P RF CLT110 v , PCLT108 EQU * v > P LDKL A7,/FFFF-INDARQ v R 2 P ANS A7,DWTST,A6 RESET FLAG 'INPUT REQUESTED' v p P* v P* RETURN TO DEVICE DRIVER v , P* (USED BY ALL DEVICES FOR RETURN) v P* v
0x2a12b4…2a1448 Dummy {f00=0x0115, f01=0x0190, f02=» PCLT115 EQU * w " P LD A1,DWTADR,A6 ADDRESS BLOCK w . P LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED ? w > $ P RB(Z) CLT090 NO, SKIP CHARACTER w p P LDR A5,A6 DWT ADDRESS w P ADKL A5,DWTSB2 STACK BASE w * P ABR A1 DEVICE DRIVER INTERRUPT ENTRY w P*
0x2a1448…2a15dc Dummy {f00=0x0115, f01=0x0190, f02=»E DATA REQUEST ? w z P ANK A7,/FF x P U =2 x , ( P RB(NZ) CLT115 NO, STATUS MESSAGE =2 x < $ P CWR* A6,A5 DRD BEFORE ANSWER ? x h P ABL(E) EXIT YES x P U =2 x . P LC A3,DWTOCH,A6 LAST OUTPUT CHARACTER =5 x P ANK A3,/7F CLEAN =5 x & P S
0x2a15dc…2a1770 Dummy {f00=0x0115, f01=0x0190, f02=» P* y P* y P* TFU IN LOOP MODE y P* y 6 PCLT150 EQU * y @ P LDK A4,1 y T P CWR* A4,A5 SYNC SENT ? y f P RF(NE) CLT154 y < P LDKL A4,/8001 INDICATE LOOP MODE AND SYNC-ACK RECEIVED y PCLT152 EQU * y P ORS A4,CWTRST,A5 y
0x2a1770…2a1904 Dummy {f00=0x0115, f01=0x0190, f02=» P SUK A3,3 POWER ON ? z P RF(E) CLT179 YES z $ P LDR* A4,A5 GET LAST OUTPUT DWT z : P LDR* A6,A5 z b P SUK A4,1 SYNC ? z v P RF(E) CLT178 YES z ( P LDK A1,NOERR INDICATE NOT OPERABLE z PCLT177 RB CLT110 z PCLT178 EQU * z P SUK A3,
0x2a1904…2a1a98 Dummy {f00=0x0115, f01=0x0190, f02=» PCLT179 EQU * { P LDK A3,/E3 { * P ANS A3,CWTRST,A5 RESET LOOP TEST BIT { , P ABL CLT100 { Z P XIF { n P EJECT { z P* { P* QUEUE { P* { 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. { 4 P* IF LOCAL DEVICE CHECK OUTPUT QU
0x2a1a98…2a1c2c Dummy {f00=0x0115, f01=0x0190, f02=»F SOMETHING THERE. IF NOTHING I { x < P* IN THAT QUEUE, CHECK QUEUE OF INTERRUPTING TERMINAL | ( & P* AND SEND IF SOMETHING THERE. | h P* | PQUEUE EQU * | $ P LDR* A4,A5 GET LAST OUTPUT DWT | . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER |
0x2a1c2c…2a1dc0 Dummy {f00=0x0115, f01=0x0190, f02=» | P IFF RECHAN=0 } P IFF LOCHAN=0 } * P LDK A1,0 INDICATE READY FOR LOCAL =4 } 4 P LDR A7,A7 LOCAL ? } b P RF(Z) QUEU01 YES } | P XIF } P IFF RECHAN=0 } " P LDK A1,1 INDICATE FIRST TRIAL } " P CWR A7,A5 REMOTE TERMINAL 2 ? } P RF(
0x2a1dc0…2a1f54 (1, 697) Dummy {f00=0x0116, f01=0x0190, f02=»QU * } P LDR* A6,A8 QUEUE EMPTY ? ~ P U =4 ~ . P IFT RECHAN=0 U =4 ~ > P RF(E) QUEU05 YES =4 ~ X P XIF U =4 ~ t P IFF RECHAN=0 ~ P RF(E) QUEU10 YES =4 ~ P IFF LOCHAN=0 ~ P LDR A7,A7 ~ " P RF(Z) QUEU06 PREVENT HANG UP ~ P
0x2a1f54…2a20e8 Dummy {f00=0x0116, f01=0x0190, f02=»U05 BLOCK SENDING RUNNING ~ P XIF " PQUEU06 EQU * . * P LD A2,DWTOTQ,A6 TAKE DWT OUT OF QUEUE D * P STR A2,A8 SET NEXT DWT FIRST IN QUEUE r . P LC A2,DWTOCH,A6 GET LAST OUTPUT CHARACTER P CF A15,OUTLIN SEND IT PQUEU05 LDR* A2,A15 RELOA
0x2a20e8…2a227c Dummy {f00=0x0116, f01=0x0190, f02=»0 UNDEFINED INTERRUPT P IFF RECHAN=0 P CWK A6,1 SYNC ANSWER ? 4 P RF(E) QUEU30 YES T P U =4 n P LDK A1,0 ~ P XIF U =4 P ABL RTNA15 P IFF RECHAN=0 U =4 PQUEU10 LDR A1,A1 READY ? P RB(E) QUEU05 P L
0x2a227c…2a2410 Dummy {f00=0x0116, f01=0x0190, f02=» RB QUEU03 P XIF PQUEU30 ADKL A15,4 P RF LTDISP 8 P IFF RECHAN=0 J P EJECT ` P* n P* x 0 P* RESTSY = SUBROUTINE TO START OR RESTART * P* A TIMER FOR SYNC-SENDING P* PRESTSY EQU * P STR A
0x2a2410…2a25a4 Dummy {f00=0x0116, f01=0x0190, f02=»DR A4,A5 ADD CWT-ADDRESS P CF A15,SETIMP SET TIMER P DATA SYNCUT,TIME @ P RF RESY30 Z PRESY20 LDKL A4,-TIME l " P ST* A4,CWTTP,A5 RESTART TIME PRESY30 LDR* A4,A15 RELOAD A4 P ADKL A15,2 P LDR* P,A15 P EJECT P
0x2a25a4…2a2738 Dummy {f00=0x0116, f01=0x018e, f02=»R IS SENT. ~ P* PSYNCUT EQU * $ P CM CWTTP,A1 RESET TIMER POINTER 0 P LDR A5,A1 X ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER j ( P XRKL A2,/800 CHANGE TERMINAL NUMBER P ST A2,CWSYNC,A1 STORE P LDK A6,1 PSYNC02 EX CWTOTR,A1 OU
0x2a2738…2a28cc Dummy {f00=0x0116, f01=0x018e, f02=» , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT P* 8 P IFT LOGING=1 B P* X * P CF A15,LOGG LOGG OF OUTPUT CHARACTER b P XIF P* P IFF RECHAN=0 P LDR A3,A2 P SLL A3,4 P RF(NN) SYNC05 P ADK A5,2 P
0x2a28cc…2a2a60 Dummy {f00=0x0116, f01=0x0190, f02=» P ANK A4,/80 P RF(E) EXITA NO P ANK A3,/60 4 P RF(E) SYNC20 THIRD SYNC H P SUK A3,/20 h P RF(NE) SYNC10 FIRST SYNC | P LDK A3,/20 SECOND SYNC * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNTER PEXITA ABL TDISP DISPATCH
0x2a2a60…2a2bf4 (1, 698) Dummy {f00=0x0116, f01=0x0190, f02=» LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK P ENB 0 * P ABI INTADR,A3 GO TO INTERRUPT HANDLER < P XIF j P EJECT v P* P* CHARACTER INPUT P* PLTCHRI EQU * PRTCHRI EQU * P LDK A2,INDARQ 0 P ORS A2,DWTST,A6 SET I
0x2a2bf4…2a2d88 Dummy {f00=0x0116, f01=0x0190, f02=»R OUTPUT P* PLTCHRO EQU * PRTCHRO EQU * . , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT B " P CF A15,OUTLIN SEND CHARACTER r P* P* LOCAL DISPATCHER P* PLTDISP EQU * PRTDISP EQU * P ABL TDISP GO TO DISPATC
0x2a2d88…2a2f1c Dummy {f00=0x0116, f01=0x0190, f02=» < 3 x ( P RF(N) LTSTBL YES, SEND WITHOUT LRC " P LD A2,DWTST,A6 DEVICE STATUS 8 6 P ANKL A2,DEVECH+LRCSEN ECHO MODE OR LRC RUNNING ? ^ ( P RF(NZ) LTSTBL YES, SEND WITHOUT LRC P LDK A2,STX LOAD STX P RB RTCHRO SEND P XIF P*
0x2a2f1c…2a30b0 Dummy {f00=0x0116, f01=0x0190, f02=» A2,LRCSEN LRC-SENDING ? P RF(Z) LTENBL NO P LDK A2,ETB LOAD ETB 8 P RB RTCHRO SEND T P XIF l P* x P* END OF A BLOCK (LOCAL) P* PLTENBL EQU * P IFF SOFTIM+RECHAN=0 U =4 " P LD A2,DWTST,A6 DEVICE STATUS
0x2a30b0…2a3244 Dummy {f00=0x0116, f01=0x0190, f02=» * P XIF U =4 P* " P* START OF A BLOCK (LOCAL) & P* L PLTSTBL EQU * V 0 P ABL NDRETO SET OK & RETURN TO DEVICE DRIVER j P* P EJECT P* P* G E T C W T P* & P* SUBROUTINE TO GET CWT-ADDRESS
0x2a3244…2a33d8 Dummy {f00=0x0116, f01=0x018e, f02=»* A6 = DWT-ADDRESS P* P* ON EXIT: * P* A5 = CWT-ADDRESS @ & P* A7 = 0 IF LOCAL CONNECTION ` P* PGETCWT EQU * " P LDR* A5,A6 CHANNEL PARAMETERS P ANK A5,/F P SLL A5,1 DOUBLE INDEX P IFF RECHA
0x2a33d8…2a356c Dummy {f00=0x0116, f01=0x0190, f02=» P XIF P IFF RECHAN=0 * P LC A7,DWTCP2,A6 CHANNEL PARAMETERS 2 & P SRL A7,1 T P ANK A7,1 CHANNEL NUMBER f * P ORR A5,A7 COMBINE WITH CH. UNIT INDEX P ADK A5,4 ADJUST FOR LOCAL $ P SLL A5,1 GET CHTAB DISPLACEMENT * P LDR A7,A5
0x2a356c…2a3700 Dummy {f00=0x0116, f01=0x0190, f02=»4 h P LDR* P,A15 RETURN =4 P IFF SOFTIM+RECHAN=0 U =4 ( P EJECT J P* X P* b P* R E S T I M l P* 2 P* SUBROUTINE TO RESET TIMER FOR SUPERVISION 4 P* OF MISSING DATA REQUESTS AND MISSING BLOCK P* CONTROL
0x2a3700…2a3894 (1, 699) Dummy {f00=0x0116, f01=0x0190, f02=»SAVE A7 ON STACK & P LD A7,DWTLD1,A6 GET TIMER POINTER & P RF(Z) REST20 TIMER ALREADY RESET B P CM* DWTLD1,A6 RESET TIMER l & P CM DWTLD1,A6 RESET TIMER POINTER PREST20 LDR* A7,A15 RELOAD A7 P U =4 P RB GETRTN RETURN =4 P
0x2a3894…2a3a28 Dummy {f00=0x0116, f01=0x0190, f02=»-DEVICE POINTER, t < P* BLOCKSENDING RUNNING INDICATOR AND LRC-SENDING BIT. P* X P* ON ENTRY: b P* A5 = CWT-ADDRESS x P* A6 = DWT-ADDRESS . P* A7 = TERMINAL ADJUSTED CWT-ADDRESS P* PRESLRC EQU * P
0x2a3a28…2a3bbc Dummy {f00=0x0116, f01=0x0190, f02=»RC-SENDING BIT x P LDK A4,1 6 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNING IND. ( P LDR* A4,A15 RELOAD A4 b P RB GETRTN RETURN =4 P XIF P EJECT P* P* O U T L I N P* 6 P* OUTLIN = SUBROUTINE TO SEND ONE C
0x2a3bbc…2a3d50 Dummy {f00=0x0116, f01=0x0190, f02=» R 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE D P* QUEUE OUTPUT P* POUTLIN EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P*
0x2a3d50…2a3ee4 Dummy {f00=0x0116, f01=0x0190, f02=»OR INDICATION z P XIF U =4 P ANK A2,/FF ( " P CF A15,GETCWT GET CWT-ADDRESS < P IFF RECHAN=0 b P IFF LOCHAN=0 x P LDR A7,A7 LOCAL ? P RF(Z) OUL100 YES P XIF P IFF RECHAN=0 * P LC A3,DWTCP2,A6 CHANNEL PARAMETERS
0x2a3ee4…2a4078 Dummy {f00=0x0116, f01=0x0190, f02=»WT-ADDRESS r P XIF P EJECT P* , ( P* IF UNIT NOT FREE QUEUE OUTPUT. 6 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY b 0 P* RUNNING ON TERMINAL FOR ANOTHER DEVICE, 0 P* QUEUE THIS NEW OUTPUT IF LRC-CONTROL ON P* IT
0x2a4078…2a420c Dummy {f00=0x0116, f01=0x018e, f02=»O P IFF RECHAN=0 P IFF LOCHAN=0 P LDR A7,A7 REMOTE ? 6 P RF(Z) OUL400 NO R P XIF j P IFF RECHAN=0 v P LDR A3,A2 P SUK A3,/82 STX ? P RF(NE) OUL200 NO P EJECT P* P* S T X P* * P L
0x2a420c…2a43a0 Dummy {f00=0x0116, f01=0x0190, f02=» P LDK A2,0 $ P ST A6,LRCDWT,A7 SET LRC-DEVICE , P CM LRCACK,A7 RESET LRC-ACKUMULATOR AND > P INDICATE FIRST OBC n 0 POUL150 LD A4,DWTCP2,A6 CHANNEL PARAMETERS 2 ( P LDK A3,0 SET DEVICE NUMBER TO ZER0 P RF OUL505 & POUL175 CWR
0x2a43a0…2a4534 (1, 700) Dummy {f00=0x0116, f01=0x0190, f02=» ~ P EJECT P* P* E T B P* 2 & P SC A2,LRCACK,A7 INDICATE LAST OBC < * P LC A2,LRCACK+1,A7 GET LRC-ACKUMULATOR f P RB OUL150 P* P* OTHER OUTPUT P* 0 POUL300 LD A8,DWTCP2,A6 CHANNEL PARAMETERS 2 2 P
0x2a4534…2a46c8 Dummy {f00=0x0116, f01=0x0190, f02=»RUNNING p * P RF OUL800 BLOCKSENDING RUNNING, QUEUE P > ( POUL350 LD A3,DWTST,A6 DEVICE STATUS F 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? r " P RF(Z) OUL500 DEVICE WITH DRD P LD A3,CWTBLK,A5 P RF(Z) OUL500 ( P ORKL A2,/8000
0x2a46c8…2a485c Dummy {f00=0x0116, f01=0x0190, f02=»DDRESS f : P* FROM CHANNEL PARAMETERS AND PUT INTO OUTPUT WORD P* L POUL400 EQU * U =4 V P IFT KBDIR=1 U =4 p , P LD A8,DWTCP2,A6 CHANNEL PARAMETERS 2 =4 P XIF U =4 POUL500 EQU * * P LD A3,DWTCP2,A6 CHANNEL PARAMETERS 2
0x2a485c…2a49f0 Dummy {f00=0x0116, f01=0x0190, f02=» LDR A7,A7 LOCAL ? P RF(NZ) OUL505 NO P XIF 4 P IFF LOCHAN=0 @ P ANKL A4,/0700 WS-ADDRESS V P SLC A4,1 TO CORRECT PLACE x P IFF RECHAN=0 P RF OUL508 P XIF P IFF RECHAN=0 POUL505 EQU * ( P ANKL A4,/0200 R
0x2a49f0…2a4b84 Dummy {f00=0x0116, f01=0x0190, f02=»TE TERMINAL NUMBER P SRC A4,5 TO CORRECT PLACE P XIF < POUL508 EQU * H . P ORR A3,A4 COMBINE DEV.ADDR. AND WS-ADDR. P IFT KBDIR=1 U =4 , P ANKL A8,KBLAMP KB-LAMPS ON VDU-OUTPUT ? 4 P RF(NZ) OUL900 YES, PUT LAMP CODE FIRST IN QUEUE
0x2a4b84…2a4d18 Dummy {f00=0x0116, f01=0x0190, f02=» P* P IFF RECHAN=0 U =4 $ P LDK A1,25 LOOP COUNTER FOR OTR ( P XIF U =4 P POUL515 EX CWTOTR,A5 OTR b P RF(A) OUL520 ACCEPTED P IFT RECHAN=0 U =4 P RF(R) OUL800 QUEUE =4 P XIF U =4 P IFF RECHAN=0 U =4 P RF(
0x2a4d18…2a4eac Dummy {f00=0x0116, f01=0x0190, f02=»A15,20 RESET STACK " P LDK A1,NOERR SET NOT OPERABLE 6 P ABL NDREP GET REGISTERS AND RETURN TO DEV.DRIVER @ POUL520 EQU * z P* P IFT LOGING=1 P* 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* P XIF P*
0x2a4eac…2a5040 Dummy {f00=0x0116, f01=0x0190, f02=» A7,A7 REMOTE ? P RF(Z) OUL550 NO P XIF 0 P IFF RECHAN=0 < P EJECT R P* ` N P* INDICATE BLOCKSENDING RUNNING IF STX TO DEVICE WITHOUT DATA REQUEST. j . P* UPDATE LRC-ACKUMULATOR AND SYNC-TIMER P* & P ANKL A3,/7000 M
0x2a5040…2a51d4 (1, 701) Dummy {f00=0x0117, f01=0x0190, f02=»TA REQUEST ? p " P RF(Z) OUL540 DEVICE WITH DRD , P LD A3,CWTBLK,A5 BLOCK SENDING INDICATOR : * P RF(Z) OUL540 BLOCKSENDING NOT ALLOWED j P LDK A3,/80 2 P SC A3,CWTBLK,A5 INDICATE BLOCKSENDING RUNNING POUL540 EQU * P ANK A2,/FF ,
0x2a51d4…2a5368 Dummy {f00=0x0117, f01=0x0190, f02=» OUTPUT CHARACTER IN DWT AND RETURN P* , POUL550 EQU * U =4 6 P IFT KBDIR=1 U =4 P * P LDR A8,A8 KB-LAMPS ON VDU-OUTPUT ? =4 j P RF(NZ) OUL700 YES P XIF U =4 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER POUL700 EQU *
0x2a5368…2a54fc Dummy {f00=0x0117, f01=0x0190, f02=» A1-A8 FROM STACK... ~ P INH * P ADKL A15,2 ...ADJUST STACK POINTER... * P LDR* P,A15 ...AND RETURN X P XIF z P* P EJECT P* : P* NORMALLY DWT-ADDRESS IS PUT LAST IN OUTPUT QUEUE P* POUL800 EQU * P IFF
0x2a54fc…2a5690 Dummy {f00=0x0117, f01=0x0190, f02=»A5 CWT-ADDRESS P XIF , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER " P RF(E) OUL820 R POUL810 CWR A6,A4 h & P RB(E) OUL600 DWT ALREADY IN QUEUE P LD A3,DWTOTQ,A4 P RF(E) OUL830 P LDR A4,A3 FOLLOW THE THREAD P RB OUL810
0x2a5690…2a5824 Dummy {f00=0x0117, f01=0x0190, f02=»HREAD p P RB OUL600 P IFT KBDIR=1 U =4 P EJECT : P* H & P* KEYBOARD LAMPS ON VDU OUTPUT R 4 P* (KEYBOARD CONNECTED TO VDU INSTEAD OF SUM) | P* , P* PUT LAMP CODE FIRST IN OUTPUT QUEUE . P* LOAD ESCAPE CODE FOR
0x2a5824…2a59b8 Dummy {f00=0x0117, f01=0x0190, f02=»FF-LMPQUE 2 P ANS A1,DWTST,A6 RESET BIT 'LAMP CODE QUEUED' P ANK A4,LMPQUE H , P RB(NZ) OUL510 LAMP CODE ALREADY QUEUED ^ P LDR A1,A5 CWT-ADDRESS P IFF RECHAN=0 P IFF LOCHAN=0 P LDR A7,A7 REMOTE ? P RF(Z) OUL910 NO
0x2a59b8…2a5b4c Dummy {f00=0x0117, f01=0x0190, f02=» U =4 & POUL910 LD A4,CWTEQ,A1 OUTPUT QUEUE P RF(Z) OUL920 QUEUE EMPTY 8 P CWR A6,A4 Z , P RB(E) OUL600 THIS DWT ALREADY IN QUEUE l * POUL920 ST A4,DWTOTQ,A6 MOVE QUEUE LINK $ P ST A6,CWTEQ,A1 QUEUE LAMP CODE , P SC A2,DWTOCH,A6 STORE
0x2a5b4c…2a5ce0 Dummy {f00=0x0117, f01=0x0190, f02=»O KB l P RB OUL510 P XIF U =4 P EJECT 0 P* > P* H P* C H L T O N R P* j > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY t @ P* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERED FROM 'PFINIT' P* P*
0x2a5ce0…2a5e74 (1, 702) Dummy {f00=0x0117, f01=0x0190, f02=» ADKL A15,2 RETURN AND ENABLE P ENB & P LDR* P,A15 2 PCON020 EQU * F P INH Z $ P LD A5,CHTAB,A4 LOAD CWT-ADDRESS f P RB(Z) CON010 P IFF RECHAN=0 P IFF LOCHAN=0 P CWK A4,/A LOCAL ? P RF(L) CON030 YES P XIF
0x2a5e74…2a6008 Dummy {f00=0x0117, f01=0x0190, f02=» RF(U) CON027 $ P LDK A3,0 INDICATE CHANNEL BUSY . P CF A15,RESTSY START OR RESTART SYNC-TIMER > PCON027 EQU * p 2 P ST A3,CWTRST,A5 INDICATE C.U. PRESENT OR NOT P RF CON035 P XIF PCON030 EQU * $ P EX CWTCIS,A5 EXECUTE CIO-ST
0x2a6008…2a619c Dummy {f00=0x0117, f01=0x018e, f02=»E) CON010 P XIF P CMR A5 RESET LAST OUTPUT P LDK A2,/00 DUMMY @ P CF A15,OUTLIN SEND IT Z P RB CON010 x P EJECT P* P* L O G G P* 8 P* IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT AND $ P* OUTPUT C
0x2a619c…2a6330 Dummy {f00=0x0117, f01=0x0190, f02=» & P CWK A1,BUFE BUFE IS MAX LOGG AREA P RF(NE) L1 2 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS D PL1 ST A1,POINT p & P STR A2,A1 LOGG OF INR OR OTR WORD P LDR* A1,A15 P ADKL A15,2 P LDR* P,A15 RETURN P* P* P X
0x2a6330…2a64c4 Dummy {f00=0x0117, f01=0x409e, f02=»GG AREA P XIF P IFT LOGING=1 P IFF RECHAN=0 2 PBUF RES 1000 LOGG AREA H P XIF f PBUFE EQU * r P* P END @ R OTR WORD P LDR* A1,A15 P ADKL A15,2 P LDR* P,A15 RETURN P* P* P X
0x2a64c4…2a6658 Dummy {f00=0x0117, 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
0x2a6658…2a67ec Dummy {f00=0x0117, f01=0x0190, f02=»ESSAGE WRITTEN ? ( P RF(NE) TP220 YES; COMPLETE REQUEST ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH D $ P SUK A1,3 REQUESTED LENGTH 0-2 ? p & P RF(N) TP230 YES; COMPLETE REQUEST P RF(P) TP215 P LD A1,2,A8 BUFFER ADDRESS P LC A2,2,A1 THIR
0x2a67ec…2a6980 Dummy {f00=0x0117, f01=0x0190, f02=»ND BUFFER " P CF A5,PRBUF PRINT ECB-BUFFER PTP220 EQU * 8 P LDK A1,0 L 6 PTP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED ^ P ANS A2,DWTDEV,A6 P EJECT P* P* P* ECB-BUFFER IS WRITTEN P* * P* SEND
0x2a6980…2a6b14 (1, 703) Opaque[0x194]
0x2a6b14…2a6ca8 # DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a38, f03=0x0000}
0x2a6b14…2a6ca8 IdxSect {
0x2a6b14…2a6ca8 f00 = 0x00d1 // 0x2a6b14 @0x0
0x2a6b14…2a6ca8 f01 = 0x0012 // 0x2a6b16 @0x2
0x2a6b14…2a6ca8 gno = [ // 0x2a6b18 @0x4
0x2a6b14…2a6ca8 [0x00]: C0x00d1.0x3.0
0x2a6b14…2a6ca8 [0x01]: C0x00d2.0x0.0
0x2a6b14…2a6ca8 [0x02]: C0x00d2.0x1.0
0x2a6b14…2a6ca8 [0x03]: C0x00d2.0x2.0
0x2a6b14…2a6ca8 [0x04]: C0x00d2.0x3.0
0x2a6b14…2a6ca8 [0x05]: C0x00d3.0x0.0
0x2a6b14…2a6ca8 [0x06]: C0x00d3.0x1.0
0x2a6b14…2a6ca8 [0x07]: C0x00d3.0x2.0
0x2a6b14…2a6ca8 [0x08]: C0x00d3.0x3.0
0x2a6b14…2a6ca8 ]
0x2a6b14…2a6ca8 }
0x2a6ca8…2a6e3c Dummy {f00=0x00d1, f01=0x0190, f02=» 2 P IDENT DRTC01 REL 11.0 81-01-26 870105041100 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DRTC01 = DRIVER TAPE CASSETTE RECORDER P*
0x2a6e3c…2a6fd0 Dummy {f00=0x00d1, f01=0x0190, f02=» > P* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS & P* CONNECTED TO CPU VIA CHCR-DCR F P* p > P* ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT z P* AT REWIND AND UNLOAD P* : P* DATA IS RECORDED IN BLOCKS WIT
0x2a6fd0…2a7164 Dummy {f00=0x00d1, f01=0x0190, f02=»HE FOLLOWING PARTS: t P* " P* T C D A : ACTIVATION PART & P* L $ P* I H T C : INTERRUPT HANDLER V P* ~ & P* R C O V E R : RECOVERY ROUTINE P* * P* D W T C 0 1 : DEVICE WORK TABLE 01 P* * P* D W T C 0 2 : DE
0x2a7164…2a72f8 Dummy {f00=0x00d1, f01=0x018e, f02=»ATED: p P* P* ORDER /00: TEST STATUS P* /02: READ : P* /05: WRITE V P* /06: WRITE v " P* /22: WRITE TAPE MARK P* /26: LOCK P* /31: REWIND P* /33:
0x2a72f8…2a748c Dummy {f00=0x00d1, f01=0x0190, f02=» ~ P* P* , P* THE FOLLOWING RETURN CODES ARE USED: P* L P* BIT 0 REQUEST ERROR V P* 2 BOT/EOT t P* 3 TAPE MARK DETECTED P* 6 WRITE PROTECTED P* 7 B-SIDE , P* 9 REWIND TIME-OUT (+BOT M
0x2a748c…2a7620 Dummy {f00=0x00d1, f01=0x018e, f02=»OVERY 6 P* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED , P* -POWER RECOVERY NOT SUCCESSFULL H P* 12 INCORRECT LENGTH x * P* 13 CRC ERRROR (+NO DATA/ERASED) P* 14 THROUGHPUT ERROR P* 15 NOT OPERABEL P
0x2a7620…2a77b4 (1, 704) Dummy {f00=0x00d2, f01=0x0190, f02=» P* A2: SST STATUS * P* A3: DWT STATUS AFTER SST ( " P* A4: RETRY COUNTER V : P* A5: SEQUENCE CHARACTER AFTER READ/WRITE | P* A6: DWT ADDRESS & P* A8: SUBROUTINE STACK P
0x2a77b4…2a7948 Dummy {f00=0x00d2, f01=0x0190, f02=» HANDLE: P* " P* -ONLY ONE CASSETTE RECORDER 0 P* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED @ P* t P EJECT DRTC01 ~ P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY IHTC IN
0x2a7948…2a7adc Dummy {f00=0x00d2, f01=0x0190, f02=»N POWER UP RECOVERY P P $ P , P* 4 P* > $ P******************************** H $ P* EXTERNAL TOSS MODULE ENTRIES * p $ P******************************** P* P* & P EXTRN TDISP DISPATCHER MAIN ENTRY 4 P EXTRN SAV
0x2a7adc…2a7c70 Dummy {f00=0x00d2, f01=0x0190, f02=» EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE . P EXTRN DISEND GO TO DISPATCHER VIA TENDIO 0 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY b * P EXTRN INTSAV SAVE AREA LAST INTERRUPT * P EXTRN INIFLG INIT FLAG AT PGM LOADING ( P EXTRN ECBRL REQUE
0x2a7c70…2a7e04 Dummy {f00=0x00d2, f01=0x0190, f02=»CESSING FLAG v P EJECT DRTC01 P* , P* 6 P****************** @ P* DWT PARAMETERS * Z P****************** t P* P* & P EXTRN DWTST DWT SOFTWARE STATUS: . P* BIT # 0 - DEVICE AND CONTROLLER READY 0 P* BIT #1
0x2a7e04…2a7f98 Dummy {f00=0x00d2, f01=0x0190, f02=»#14 - A-SIDE * P BIT #15 - DEVICE LOCKED (OPERABLE) P EXTRN DWTOR DWT ORDER B " P EXTRN DWTECB DWT ECB ADDRESS ` P* P* P************************ P* * P* STATUS MASKS * P*
0x2a7f98…2a812c Dummy {f00=0x00d2, f01=0x0190, f02=»NOTPMK EQU /FFEF NO TAPE MARK MASK P EJECT DRTC01 * P* B P************************ L P* CONDITIONAL ASSEMBLY * l P************************ P* > P* THE DRIVER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE " P* RECORDER BY
0x2a812c…2a82c0 Dummy {f00=0x00d2, f01=0x0190, f02=» P* BY SETTING X:B=0 P* PX:B EQU 0 * PREVER EQU X:B < P* R . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING
0x2a82c0…2a8454 (1, 705) Dummy {f00=0x00d2, f01=0x0190, f02=» SIZE P* PX:C EQU 129 PDVBLEN EQU X:C , P* B P* MMU DEVICE INDEX L P* h PDEVIND EQU 2 r P* P EJECT DRTC01 P* P* CONSTANTS AND WORK AREAS P* 4 P DATA DVBLEN+DVBLEN DEVICE DEPENDENT BUFFE
0x2a8454…2a85e8 Dummy {f00=0x00d2, f01=0x0190, f02=»ROUTINE STACK PSTB EQU *-2 P* * P* 4 $ PTAB DATA /0031,/2237,/3802,/0506 > P IFT REVER=1 f P DATA /2633,/24FF z P XIF PTABL EQU *-TAB P EJECT DRTC01 P* P* P*************************** P*
0x2a85e8…2a877c Dummy {f00=0x00d2, f01=0x018e, f02=» /0E P* P* P************* P* CONSTANTS * 6 P************* L P* b P* l " PRTRIES EQU 3 MAX NO OF RETRIES v P* * PPSUBS EQU 5 POWER UP BACKSPACE NUMBER P* $ PPREAD EQU 4 POWER UP READ NUMBER P*
0x2a877c…2a8910 Dummy {f00=0x00d2, f01=0x0190, f02=» h P XIF P EJECT DRTC01 P* , P* 6 P* T C D A @ P* T H P* ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING ^ P* P* PTCDA EQU * P LDK A1,0 P LDK A4,TABL-1 P* 0 PTCDA10
0x2a8910…2a8aa4 Dummy {f00=0x00d2, f01=0x0190, f02=» PTCDA15 EQU * P ABL DISIOE ILLEGAL ORDER P* : ( PTCDA20 ADR A4,A4 DOUBLE TO GET INDEX D P ST A4,TCDAX SAVE INDEX p ( P LD A5,ECBRL,A8 GET REQUESTED LENGTH ( P LD A3,SEKBYT,A6 SEQUENCE COUNTER ? P RF(NE) TCDA21 NO 0 P ADK A
0x2a8aa4…2a8c38 Dummy {f00=0x00d2, f01=0x0190, f02=» P RF(NZ) TCDR10 YES P* " P ADK A5,1 , . P NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE > 0 P ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES p P SUK A7,/37 LOAD ? P RF(NE) TCDA22 NO $ P LD A3,ECBCW,A8 GET CONTROL WORD P ANK A3,
0x2a8c38…2a8dcc Dummy {f00=0x00d2, f01=0x0190, f02=» IT FOR RECOVERY PURPOSES ~ P SUK A4,14 " P RF(Z) TCDA23 WRITE 4 P ADK A4,2 P P RF(NZ) TCDA25 NOT WRITE b P* * PTCDA23 ADK A5,3 CHECK REQUESTED LENGTH ( P RB(P) TCDA15 LESS THAN 2 CHARACTERS P ADK A5,254 * P RB(N) TCDA15
0x2a8dcc…2a8f60 Dummy {f00=0x00d2, f01=0x0190, f02=» GET SEQUENCE CHARACTER $ P ST A2,SEQCHR SAVE IT =REL 11.0 P* H ( PTCDA25 ST A6,TCDADT SAVE ACTIVE DWT R P EJECT DRTC01 ~ P* P* P* SELECT RECORDER P* P* & PTCDA30 LDKL A8,STB LOAD STACK BASE P CF A8
0x2a8f60…2a90f4 (1, 706) Dummy {f00=0x00d2, f01=0x0190, f02=»IES l " P LDKL A2,0 GET FUNCTION INDEX " PTCDAX EQU *-2 **ORDER INDEX** 2 & P ABI TCDFUN,A2 BRANCH TO FUNCTION X < PTCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE P IFT REVER=1 P DATA OLOCK,REVERS,ERTAPE P XIF P*
0x2a90f4…2a9288 Dummy {f00=0x00d2, f01=0x0190, f02=»1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF 4 P* @ P IFT CPU852=0 J " P MSR 8,A15 SAVE A1-A8 ON STACK ` P XIF P* & P LD A1,INIFLG CHECK IF PGM LOADING $ P ABL(NZ) TDISP YES SKIP RECOVERY P LDKL A8,STB LOAD STACK BA
0x2a9288…2a941c Dummy {f00=0x00d2, f01=0x018e, f02=»COVER RECOVERY P XIF P LDKL A4,0 GET ACTIVE DWT " , PTCDADT EQU *-2 **ACTIVATED DWT ADDRESS** D $ P RF(Z) ENDIO NO REQUEST GOING ON t $ P LDR A6,A4 PUT DWT ADDRESS IN A6 " P LD A3,SEKBYT,A6 SEQ. COUNTING ( P RB(Z) TCDA30 YES; REACTIVATE
0x2a941c…2a95b0 Dummy {f00=0x00d2, f01=0x018e, f02=» f P RF ENDIO P* P EJECT DRTC01 $ P* < P* R E A D F P* Z PREAD CF A8,READR READ RECORD d P ANKL A1,/400 SAVE EOT BIT P ORR A1,A2 P ANK A2,/0E P RF(Z) READ20 STATUS OK P* & PREAD15 SUK A4,
0x2a95b0…2a9744 Dummy {f00=0x00d2, f01=0x0190, f02=» PREAD20 LDR A2,A1 P SLL A2,3 CHECK IF TAPE MARK P RF(NN) READ30 NOT TAPE MARK D P* h ( PREAD25 ORK A3,/10 INDICATE TAPE MARK r $ P LDK A7,0 RESET EFFECTIVE LENGTH P RF READ35 P* PREAD30 LDR A2,A1 $ P LDKL A7,0 G
0x2a9744…2a98d8 Dummy {f00=0x00d2, f01=0x0190, f02=»7,A7 " P RF(NZ) READ32 NOT EQUAL ZERO P LDR A4,A4 THIRD TRIAL DONE 2 , P RB(NZ) READ15 NO; READ SAME BLOCK AGAIN V & P LDK A4,1 SET NO OF RETRIES TO ONE P RB READ TRY NEXT BLOCK P* PREAD32 EQU * " P ANKL A3,NOTPMK NOT TAPE M
0x2a98d8…2a9a6c Dummy {f00=0x00d2, f01=0x0190, f02=»BKC+1,A6 CHECK SEQUENCE COUNTER P RF(E) READ35 OK ( P ORK A1,/10 SEQUENCE ERROR @ P* b 2 PREAD35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER l P* * PREAD40 LD A8,DWTECB,A6 GET ECB ADDRESS * P ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH P
0x2a9a6c…2a9c00 Dummy {f00=0x00d2, f01=0x0190, f02=» EQU * P ST A3,DWTST,A6 SAVE STATUS P EJECT DRTC01 2 P* J P* T P* END OF I/O OPERATION ^ P* | P* PENDIO EQU * ( P CM TCDADT INDICATE NONE ACTIVE DWT P* P* MODIFY RETURN CODE P* & P ANKL A1
0x2a9c00…2a9d94 (1, 707) Dummy {f00=0x00d2, f01=0x018e, f02=»A2 RESET BIT 2 " P ORK A1,/40 SET BIT 9 INSTEAD P* < PENDIO2 EQU * F P SRL A2,2 Z P TM A1,A2 l P RF(Z) ENDIO3 ~ P XRR A1,A2 RESET BIT 4 P ORK A1,4 SET BIT 13 INSTEAD P* PENDIO3 EQU * P SRL A2,1 P T
0x2a9d94…2a9f28 Dummy {f00=0x00d2, f01=0x0190, f02=» ~ P* P* PENDIO4 EQU * P SRL A2,1 0 P TM A1,A2 B & P RF(Z) ENDIO5 NOT WRITE PROTECTED T P LD A7,DWTOR,A6 ORDER CODE ~ P ANK A7,/3F P SUK A7,/05 P RF(N) ENDIO5 NO WRITE ORDER P SUK A7,/24-/05 P RF(
0x2a9f28…2aa0bc Dummy {f00=0x00d2, f01=0x0190, f02=»LEVEL XY x P LDR* A6,A6 GET OTHER DWT * P CF A15,TENDIO PERFORM TENDIO FOR THIS 2 P LDR* A6,A6 GET FIRST DWT ` P XIF $ P CF A15,SWLXY SWITCH TO LEVEL XY , P ABL DISEND GO TO DISPATCHER VIA TENDIO P* P EJECT DRTC01 P
0x2aa0bc…2aa250 Dummy {f00=0x00d2, f01=0x0190, f02=» P* WRITE ONE BLOCK ! P* ! $ P* ! . , PWRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER ! 8 " P RF(NZ) WRIT10 NOT FIRST BLOCK ! h & P CF A8,ERASE MAKE ONE BLANK BLOCK ! * P SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK ! P* ! $ PWRIT10 CF A8,WRITER WRIT
0x2aa250…2aa3e4 Dummy {f00=0x00d2, f01=0x0190, f02=» ST A4,WRITA4 STORE RETRY COUNTER ! P LD A2,SEKBYT,A6 " * P RF(Z) WRIT15 SEQ. COUNTING " B P* " f P EJECT DRTC01 " p P* " P* " $ P CF A8,BKSP BACKSPACE ONE BLOCK " P LDK A4,0 ONE ERASE " P RF WRIT20 " P* " $ PWRIT15 CF A8
0x2aa3e4…2aa578 Dummy {f00=0x00d2, f01=0x018e, f02=»OSITIONING NOT OK " P SUK A4,RTRIES ... OF ERASE # P* # > PWRIT20 CF A8,ERASE ERASE # H P ORR A1,A2 SAVE EOT # h P ADK A4,1 COUNT ERASE # P RB(NG) WRIT20 NOT READY # P LDKL A4,0 GET RETRY COUNTER # $ PWRITA4 EQU *-2 **RETRY COUNTER** #
0x2aa578…2aa70c Dummy {f00=0x00d2, f01=0x0190, f02=» # P EJECT DRTC01 $ P* $ P* $ * PWRIT30 LD A2,TCDAX GET ORDER $ 4 P SUK A2,4 TAPE MARK WRITTEN? $ X P RB(NZ) READ30 NO $ | P LDR A2,A1 CHECK IF $ P SLL A2,3 TAPE MARK OK $ P ABL(N) READ25 YES $ P RB WRIT12 NO $ P* $ :
0x2aa70c…2aa8a0 Dummy {f00=0x00d2, f01=0x0190, f02=» P* % P EJECT DRTC01 % P* % & P* % 0 P* L O A D % : P* % N P* LOAD CASSETTE % X P* % r P* % | " PLOAD CF A8,LOCK LOCK CASSETTE % " P RF(Z) REWIND CASSETTE LOCKED % PLOAD10 LDR A1,A2 NO CASSETTE % P RB READ50 % P
0x2aa8a0…2aaa34 (1, 708) Dummy {f00=0x00d3, f01=0x0190, f02=»R % j ( P CF A8,SBOT SEARCH BEGINNING OF TAPE & PREW010 EQU * & 6 P LDR A1,A2 & J P SRL A1,7 & P ANK A1,6 & n P ORK A3,1 PREPARE STATUS & $ P ORR A3,A1 AND FORM STATUS WORD & P RB LOAD10 & P* & P EJECT DRTC01 & P* & P*
0x2aaa34…2aabc8 Dummy {f00=0x00d3, f01=0x018e, f02=» A3,DWTST,A6 RESET STATUS & P CF A8,UNLD UNLOAD CASSETTE ' " & PUNLO10 LDR A1,A2 SAVE RETURN CODE ' F P ANKL A1,/FFFE SKIP BIT 15 ' p P RB ENDIO ' P IFT REVER=1 ' P* ' P* ' P* R E V E R S ' P* ' P* BACKSPACE ONE BLOCK '
0x2aabc8…2aad5c Dummy {f00=0x00d3, f01=0x018e, f02=» ' n P RB UNLO10 ( P* ( P EJECT DRTC01 ( $ P* ( < P* ( F P* E R T A P E ( P P* ( h P* ERASE TAPE ( r P* ( P* ( ( PERTAPE LDK A4,PERAS SET NO OF ERASE ( & PERT10 CF A8,ERASE ERASE ONE BLOCK ( P ANKL A1,/400 SAVE EOT
0x2aad5c…2aaef0 Dummy {f00=0x00d3, f01=0x0190, f02=» P* O L O C K ) P* ) P* ORDER LOCK CASSETTE ) $ P* ) D P* ) N " POLOCK CF A8,LOCK LOCK CASSETTE ) X " P RB(Z) REW010 CASSETTE LOCKED ) ~ P RB LOAD10 ) P XIF ) P* ) P EJECT DRTC01 ) P* ) P* ) P* CASSETTE COMMA
0x2aaef0…2ab084 Dummy {f00=0x00d3, f01=0x0190, f02=»WT BUSY ) z P IFT DBCAS=1 * P LDK A3,0 SELECT CODE * $ P XIF * B P IFT DBCAS=2 * N P LDR* A3,A6 GET OTHER DWT * b " P ANS A2,DWTST,A3 SET DWT BUSY * P ANK A3,1 GET SELECT CODE * P XIF * P* * PCRCOM LD A2,PFPOST * P RF(NZ) EXIT
0x2ab084…2ab218 Dummy {f00=0x00d3, f01=0x0190, f02=»UENCE CHAR TO A5 * P* + PREADSQ EQU * + " P LDK A3,/A + 6 , P ST A3,REQLEN MAKE REQUESTED LENGTH > 0 + H P RB CRCOM + x P* + P EJECT DRTC01 + P* + P* READ ONE RECORD + P* + PREADR LDK A3,/A + , PREADR1 CM EFFLEN RESET
0x2ab218…2ab3ac Dummy {f00=0x00d3, f01=0x0190, f02=»UESTED LENGTH + ~ PHELPME EQU *-2 **HELPME** , P ST A2,REQLEN , 8 P RB CRCOM , N P* , ` P* WRITE ONE RECORD , j P* , PWRITER LDK A3,/B , P RB READR1 , P* , P* ERASE ONE BLOCK , P* , PERASE LDK A3,9 , P RB CRCOM ,
0x2ab3ac…2ab540 Dummy {f00=0x00d3, f01=0x0190, f02=»SEARCH BEGINNING OF TAPE , P* - PSBOT LDK A3,8 - * P RB CRCOM - @ P* - R & P* REWIND TAPE AND UNLOCK CASSETTE - P* - PUNLD LDK A3,/F - P RB CRCOM - P* - P* BACKSPACE ONE BLOCK - P* - PBKSP LDK A3,/E - P RB CRCO
0x2ab540…2ab6d4 (1, 709) Dummy {f00=0x00d3, f01=0x0190, f02=»PT - f P* . P* . PIHTC EQU * . $ P ST P,INTSAV SAVE LAST INTERRUPT . 0 P STR A5,A15 SAVE A5 ON STACK . X P SST A5,CHCRDA . | P RF(A) SST SST ACCEPTED . P IM REQLEN INCREMENT COUNTER . P RF(Z) CIOHLT . & P RF(P) INRSQ GET SEQUENCE CO
0x2ab6d4…2ab868 Dummy {f00=0x00d3, f01=0x018e, f02=»A INCREMENT BUFFER ADDRESS . 0 P LD A5,REQLEN GET REMAINING LENGTH =REL 11.0 / " P ADK A5,1 * =REL 11.0 / V 4 P RF(NZ) IHTC01 NOT SEQUENCE CHARACTER =REL 11.0 / t * P LD A5,TCDADT GET ACTIVE DWT =REL 11.0 / 2 P LD A5,SEKBYT,A5 SEQUENCE COUNTING? =REL 11.0
0x2ab868…2ab9fc Dummy {f00=0x00d3, f01=0x0190, f02=» / v 4 P LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE 0 P SUK A5,10 0 @ P RF(NZ) IHTC05 WRITE 0 R P* 0 n & PIHTC02 INR A5,0,CHCRDA READ CHAR. 0 x ( P SCR A5,A3 STORE CHARACTER IN BUFFER 0 P RF EXIT2 0 P* 0 PIHTC05 EQU * 0 $ P LCR A5,A3
0x2ab9fc…2abb90 Dummy {f00=0x00d3, f01=0x0190, f02=»IM EFFLEN INCREMENT EFFECTIVE LENGTH 0 . P LDR* A3,A15 RESTORE A3 AND A5 FROM STACK 1 , P* 1 ^ PEXIT3 LDR* A5,A15 1 h P RTN A15 1 P* 1 * PINRSQ INR A5,0,CHCRDA READ CHAR TO A5 1 P ST A5,TCDA5 1 P RB EXIT3 1 P* 1 PSST ST A5,TCDA
0x2abb90…2abd24 Dummy {f00=0x00d3, f01=0x0190, f02=» P IFT CPU852=0 2 " P MSR 8,A15 SAVE A1-A8 ON STACK 2 P XIF 2 @ P* 2 L P LDKL A1,0 2 V PTCDA1 EQU *-2 2 h P LDKL A4,0 2 ~ PTCDA4 EQU *-2 2 P LDKL A5,0 2 PTCDA5 EQU *-2 2 P LDKL A6,0 2 PTCDA6 EQU *-2 2 P LDKL A8,0 2 P
0x2abd24…2abeb8 Dummy {f00=0x00d3, f01=0x018e, f02=»T STATUS 2 P SLL A3,9 SHIFT 3 P ST A3,2,A8 SAVE ON STACK 3 ( ( P LD A3,DWTST,A6 PUT DWT STATUS IN A3 3 J P* 3 v PIHTRTN EQU * 3 P RTN A8 3 P* 3 PCIOHLT EQU * 3 P CIO A1,0,CHCRDA CIO-HALT 3 P RB EXIT3 3 P* 3 PEXIT ST
0x2abeb8…2ac04c Dummy {f00=0x00d3, f01=0x0190, f02=» 3 P EJECT DRTC01 4 P* 4 P* 4 * P* R C O V E R 4 4 P* 4 L : P* RECOVERY ROUTINE : POSITIONING OF TAPE AT POWER ON 4 V P* 4 P* 4 PRCOVER EQU * 4 P CF A8,SELECT SELECT 4 P ANK A3,1 4 2 P RB(Z) IHTRTN NOT LOCKED: RETU
0x2ac04c…2ac1e0 Dummy {f00=0x00d3, f01=0x0190, f02=»0050 YES 4 ( P CF A8,SBOT SEARCH BEGINNING OF TAPE 5 P SLL A2,5 5 < P RF(NN) REPER BOT NOT FOUND 5 N P RF REPOK 5 r P* 5 ( PRC0050 LD A1,SEKBYT,A6 SEQ. COUNTING 5 P RF(NZ) REPER NO 5 P* 5 P EJECT DRTC01 5 P* 5 P* 5 P
0x2ac1e0…2ac374 (1, 710) Dummy {f00=0x00d3, f01=0x0190, f02=» A2 EQ ZERO SUCCESS 5 ~ 8 P* A2 NOT EQ ZERO NO SUCCESS 6 & P* 6 b P* 6 l PREPOS EQU * 6 v $ P LDK A4,8 SET REPOSITIONING BIT 6 " P ORS A4,DWTST,A6 STORE IN DWT 6 P* 6 PREP005 EQU * 6 & P LDK A4,PSUBS SET
0x2ac374…2ac508 Dummy {f00=0x00d3, f01=0x0190, f02=»A6 GET BLOCK COUNTER 6 P SUK A2,8 GREATER 8 ? 7 P RF(G) REPER YES 7 : . P CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE 7 R P SLL A2,5 7 P RF(NN) REPER BOT NOT FOUND 7 " P LDKL A5,-1 RESET SEQ. COUNTER 7 P RF REP020 READ SEQ. CHAR 7 P* 7
0x2ac508…2ac69c Dummy {f00=0x00d3, f01=0x0190, f02=»D SET NO OF MAX READ 7 P* 8 & PREP017 CF A8,READSQ READ SEQ. CHAR 8 & P LDKL A7,/180F SET READ MASK 8 P P TM A2,A7 8 t P RF(Z) REP020 READ OK 8 P SUK A4,1 COUNT READ 8 $ P RB(P) REP017 NOT ALL READ DONE 8 P RF REP060 GIVE UP 8 P* 8
0x2ac69c…2ac830 Dummy {f00=0x00d3, f01=0x0190, f02=». 8 x P CWK A4,PINT TOO MANY BLOCKS 9 P RF(G) REPER YES 9 . P* 9 F P EJECT DRTC01 9 P P* 9 h P* 9 r " PREP030 SUK A4,1 POSITION TAPE 9 | P RF(N) REP040 READY 9 " P CF A8,READSQ READ NEXT BLOCK 9 P RB REP030 9 P* 9 ( PREP040 L
0x2ac830…2ac9c4 Dummy {f00=0x00d3, f01=0x0190, f02=»UK A4,1 COUNT RETRY 9 P RF(NP) REP060 GIVE UP : P CF A8,BKSP BACKSPACE : : " P CF A8,READSQ READ SEQ NUMBER : X P RB REP042 : ~ P* : P EJECT DRTC01 : P* : P* : PREP045 SLC A2,3 : P RF(NN) REP050 NOT TAPE MARK : P ANK A
0x2ac9c4…2acb58 Dummy {f00=0x00d3, f01=0x018e, f02=»,DWTBKC+1,A6 : P RF(E) REPOK EQUAL ; P* ; . PREP060 LD A7,DWTST,A6 ; 8 $ P ANK A7,8 TRY POSITIONING AGAIN? ; V P RF(Z) REPER NO ; ~ , P XRS A7,DWTST,A6 RESET REPOSITIONING BIT ; P RB REP005 YES ; P* ; P* ; 6 PREPER LDK A2,2 IND RECOV
0x2acb58…2accec Dummy {f00=0x00d3, f01=0x0190, f02=» ; j P RTN A8 < P* < P EJECT DRTC01 < " P* < : P* < D P* D W T C 0 2 < N P* < f 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 02 < p P* < P* < PDWTC02 EQU * TABLE ENTRY < P IFT DBCAS=2 < P DATA DWTC01+1 DWT NO. 1 <
0x2accec…2ace80 Dummy {f00=0x00d3, f01=0x018e, f02=»S BLOCK < t P DATA 0 TTAB ADDRESS = $ P DATA 0 WAIT/ACTIVATE INDICATOR = , P DATA 0 TERMINAL QUEUE = T IFT MMUPAG=1 = r & " DATA 0 SAVE AREA USER ECB ADDRESS = P DATA ECBTC2 MMU ECB ADDRESS = XIF = P IFT DBCAS=2 = P DATA 0 BLOCK COUN
0x2ace80…2ad014 (1, 711) Dummy {f00=0x00d3, f01=0x0190, f02=» = PTCBUF2 RES DVBLEN+1 > P XIF > $ P* > 0 P EJECT DRTC01 > : P* > R P* > P* D W T C 0 1 > f P* > ~ 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 01 > P* > P* > PDWTC01 EQU * TABLE ENTRY > P DATA DWTC02 DWT NO.
0x2ad014…2ad1a8 Dummy {f00=0x00d3, f01=0x0190, f02=»DRESS BLOCK > x P DATA 0 TTAB ADDRESS ? $ P DATA 0 WAIT/ACTIVATE INDICATOR ? 0 P DATA 0 TERMINAL QUEUE ? X IFT MMUPAG=1 ? v & " DATA 0 SAVE AREA USER ECB ADDRESS ? P DATA ECBTC1 MMU ECB ADDRESS ? XIF ? & PDWTBKC EQU *-DWTC01 BLOCK COUNTER
0x2ad1a8…2ad33c Dummy {f00=0x00d3, f01=0x40f0, f02=»ATA 0 ? P DATA TCBUF1 @ P DATA 0,0,0,0 @ " PTCBUF1 RES DVBLEN+1 @ 8 P XIF @ T P* @ ` " PREQLEN DATA 0 REQUESTED LENGTH @ j . PSEQCHR DATA 0 SEQUENCE CHARACTER =REL 11.0 @ P* @ P* @ P* @ P END @ @ @ *-DWTC01 BLOCK COUNTER
0x2ad33c…2ad4d0 Dummy {f00=0x00d3, f01=0x2008, f02=» A OCK - x P DATA 0 TTAB-ADDRESS . $ P DATA 0 WAIT/ACTIVATE INDICATOR . 0 P DATA 0 TERMINAL QUEUE . X & PDWTBKC EQU *-DWTC01 BLOCK COUNTER . v P DATA 0 . PSEKBYT EQU *-DWTC01 . P DATA 0 SEQ. INDICATOR . P* . P* . P END . @
0x2ad4d0…2ad664 Dummy {f00=0x00d3, f01=0x0190, f02=» 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 * 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 * 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 * l & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 * , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) * $ P DATA 1 BLOCK SENDING IN
0x2ad664…2ad7f8 Dummy {f00=0x00d3, f01=0x0190, f02=»**************************** * P* + $ : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 + . P* CONNECTED TO THIRD CHRT + l P + P* + PCWTRT5 EQU * + P* + P IFF RECHAN=0 + P IFF RECHAN=1 + P IFF RECHAN=2 + P* +
0x2ad7f8…2ad98c Dummy {f00=0x00d3, f01=0x018e, f02=» TABLE + z P INR A2,0,DWA7 INR , P OTR A2,0,DWA7 OTR , ( P CIO A2,1,DWA7 CIO-START , B " P DATA 0 RETRANSMISSION COUNTER , b P DATA 0 QUEUE TERMINAL 1 , P DATA 0 QUEUE TERMINAL 2 , P* , P IFT ACKMUL=1 , P DATA 0 NAK-ACKUMULATOR , $ P
0x2ad98c…2adb20 Dummy {f00=0x00d3, f01=0x0190, f02=» , P XIF - P IFF RECHAN=0 - P IFF RECHAN=1 - * P IFF RECHAN=2 - @ P DATA 0 TIMER POINTER - V P DATA /7055 SYNC-CHARACTER - t 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 LR
0x2adb20…2adcb4 (1, 712) Opaque[0x194]
0x2adcb4…2ade48 # DirEnt {nam=»DRTN01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a80, f03=0x0000}
0x2adcb4…2ade48 IdxSect {
0x2adcb4…2ade48 f00 = 0x00d4 // 0x2adcb4 @0x0
0x2adcb4…2ade48 f01 = 0x0018 // 0x2adcb6 @0x2
0x2adcb4…2ade48 gno = [ // 0x2adcb8 @0x4
0x2adcb4…2ade48 [0x00]: C0x00d4.0x0.0
0x2adcb4…2ade48 [0x01]: C0x00d4.0x1.0
0x2adcb4…2ade48 [0x02]: C0x00d4.0x2.0
0x2adcb4…2ade48 [0x03]: C0x00d4.0x3.0
0x2adcb4…2ade48 [0x04]: C0x00d5.0x0.0
0x2adcb4…2ade48 [0x05]: C0x00d5.0x1.0
0x2adcb4…2ade48 [0x06]: C0x00d5.0x2.0
0x2adcb4…2ade48 [0x07]: C0x00d5.0x3.0
0x2adcb4…2ade48 [0x08]: C0x00d6.0x0.0
0x2adcb4…2ade48 [0x09]: C0x00d6.0x1.0
0x2adcb4…2ade48 [0x0a]: C0x00d6.0x2.0
0x2adcb4…2ade48 [0x0b]: C0x00d6.0x3.0
0x2adcb4…2ade48 ]
0x2adcb4…2ade48 }
0x2ade48…2adfdc Dummy {f00=0x00d4, f01=0x0190, f02=» 2 P IDENT DRTN01 REL 11.0 81-03-18 870105041100 , P* =1 SUPPORT BOTH TND2.05 AND TND6.01 : 0 P =2,NO MOVE OF USER BUF. WHEN OPN AND MMU j P =2,REL 11.0 81-01-28 P* REL 11.0 81-01-26 P @ P************************************
0x2adfdc…2ae170 Dummy {f00=0x00d4, f01=0x0190, f02=» f P* @ P************************************************************ P* V P* ` : P* THIS DRIVER HANDLES THE MICROCOMPUTER IN THE NOTE j P* DISPENSER (ND). " P* (VERSION 2.05 AND 6.01) =1 > P* THE ND IS INTENDED FOR USE
0x2ae170…2ae304 Dummy {f00=0x00d4, f01=0x0190, f02=»TES TO THE TERMINAL OPERATOR v : P* OR THE CUSTOMER.UP TO 100 NOTES CAN BE ORDERED IN $ : P* ONE COMMAND FROM A NUMBER OF CASSETTES CONTAINING b P* VARIOUS DENOMINATIONS. P* P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS:
0x2ae304…2ae498 Dummy {f00=0x00d4, f01=0x0190, f02=»G ORDERS ARE TREATED: P* P* /21 OPEN ( P* /22 CLOSE < P* /2C READ DEVICE STATUS R P* /2A READ CONTROL t P* /2D READ DIAGNOSTIC P* (SPLIT=0) P* /2B DISPENSE AND DELIVER P* (SPLIT=1) P* /2B DISP
0x2ae498…2ae62c Dummy {f00=0x00d4, f01=0x0190, f02=»RROR = 8000 z : P* 1 NO CASSETTE = 4000 ( : P* 2 NOTES IN DELIVERY UNIT = 2000 f : P* 3 BAD NOTES = 1000 : P* 4 REJECT CASSETTE FULL
0x2ae62c…2ae7c0 Dummy {f00=0x00d4, f01=0x0190, f02=»0200 ^ : P* 7 JAMMED NOTES = 0100 : P* 8 POWER FAILURE = 0080 J : P* 9 TIME-OUT = 0040 : P* 10 REJECTED NOTES = 0020 : P*
0x2ae7c0…2ae954 (1, 713) Dummy {f00=0x00d4, f01=0x0190, f02=»MWARE ERROR = 0004 : P* 14 HARDWARE ERROR = 0002 . : P* 15 NOT OPERABLE = 0001 l P* P* NORMAL USE OF REGISTERS: P* P* A1 RETURN CODE & P*
0x2ae954…2aeae8 Dummy {f00=0x00d4, f01=0x0190, f02=» P* A6 DWT ADDRESS P* A7 ORDER $ P* A8 ECB ADDRESS > P EJECT ^ P* l P*********** v P* ENTRIES * P*********** P* P ENTRY TNAD ADDRESS BLOCK P EJECT P* $ P******************
0x2aeae8…2aec7c Dummy {f00=0x00d4, f01=0x0190, f02=»HARACTER x P EXTRN STABLK START OF BLOCK & P EXTRN OUTPUT OUTPUT ONE CHARACTER 4 P EXTRN ENDBLK END OF BLOCK ^ 2 P EXTRN LENDER DISPATCH, END I/0 ,REQUEST ERROR & P EXTRN LENDIS END I/O AND DISPATCH P EXTRN LDISP DISPATCH P EXTRN SET
0x2aec7c…2aee10 Dummy {f00=0x00d4, f01=0x0190, f02=»********************** P* 2 P EXTRN PC:DIX PROGRAMMED CHANNEL DEVICE INDEX ( P* ^ P* h P* r P******************** | P* ECB-DISPLACEMENTS * P******************** P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN E
0x2aee10…2aefa4 Dummy {f00=0x00d4, f01=0x018e, f02=» P* " P***************************** P* DWT PARAMETERS 8 " P****************************** P P* v P* P EXTRN DWTOR ORDER P EXTRN DWTECB ECB-ADDRESS P EXTRN DWTSB2 STACK BASE P* 8 P EXTRN DWTDEV DEVICE DRI
0x2aefa4…2af138 Dummy {f00=0x00d4, f01=0x0190, f02=» PQUART FORM 4,4,4,4 P EJECT P* , P************************ 6 P* CONDITIONAL ASSEMBLY * V P************************ v P* * PX:A EQU 0 ORDER 'DIPENSE AND DELIVER' P* IS SPLIT (OR NOT) 2 P* INTO ORDERS 'DISPENSE',
0x2af138…2af2cc Dummy {f00=0x00d4, f01=0x0190, f02=»* P* P EJECT P* " P* , * P************************************** 6 * P* DWT-DISPLACEMENTS RELATIVE DWTDEV * d , P*************************************** P* PDWTTP EQU 2 TIMER POINTER > PDWTLR EQU DWTTP+2 BITS 0-7
0x2af2cc…2af460 Dummy {f00=0x00d4, f01=0x018e, f02=»SSAGE FROM ND) d . PDWTSTA EQU DWTBFR+2 NOTE DISPENSER STATUS 2 PDWTTAB EQU DWTSTA+2 STORE-CHECK TABLE POINTER H 6 PDWTNCR EQU DWTTAB+2 NUMBER OF CHARACTERS RECEIVED ~ , PDWTCNB EQU DWTNCR+2 OLD CASSETTE NUMBER 2 PDWTTP1 EQU DWTCNB+2 TIMER POINTE
0x2af460…2af5f4 (1, 714) Dummy {f00=0x00d4, f01=0x0190, f02=» P EJECT P* P************* P* CONSTANTS * 6 P************* L P* b PBIT0 EQU /8000 l PBIT1 EQU /4000 PBIT2 EQU /2000 PBIT3 EQU /1000 PBIT4 EQU /0800 PBIT5 EQU /0400 PBIT6 EQU /0200 PBI
0x2af5f4…2af788 Dummy {f00=0x00d4, f01=0x0190, f02=»BIT13 EQU /0004 PBIT14 EQU /0002 PBIT15 EQU /0001 0 P* H P* R , PTIME2M EQU 1200 TIME CONSTANT=2 MINUTES * PTIME1M EQU 600 TIME CONSTANT=1 MINUTE * PTIME9S EQU 90 TIME CONSTANT=9 SECONDS ( PTIME1S EQU 10 TIME CONSTANT=1 SE
0x2af788…2af91c Dummy {f00=0x00d4, f01=0x0190, f02=»********** P* RETURN CODES * P**************** * P* B " PREQERR EQU BIT0 REQUEST ERROR L PNOCASS EQU BIT1 NO CASSETTE r * PNOTDEL EQU BIT2 NOTES IN DELIVERY UNIT PBADNOT EQU BIT3 BAD NOTES ( PREJFUL EQU BIT4 REJECT CASSETTE FU
0x2af91c…2afab0 Dummy {f00=0x00d4, f01=0x0190, f02=»POWER FAILURE PTIMOUT EQU BIT9 TIME-OUT $ PREJNOT EQU BIT10 REJECTED NOTES 6 $ PSEQERR EQU BIT11 SEQUENCE ERROR ^ ( PCOMERR EQU BIT12 COMMUNICATION ERROR * PFMERR EQU BIT13 FIRMWARE ERROR IN TND " PHWERR EQU BIT14 HARDWARE ERROR " PNO
0x2afab0…2afc44 Dummy {f00=0x00d4, f01=0x0190, f02=»* ~ P* STATUS BITS IN DWTDEV * P******************* , P* H * POPNBIT EQU BIT15 OPEN/CLOSE BIT (1/0) R ( PRESDON EQU BIT14 RESET DONE BIT (0) & PDISDON EQU BIT13 DISPENSE DONE (1) P EJECT P* P*************** P*
0x2afc44…2afdd8 Dummy {f00=0x00d4, f01=0x0190, f02=»D DELIVER v PREADCO EQU /2A READ CONTROL " PREADDI EQU /2D READ DIAGNOSTIC 6 & PREADDS EQU /2C READ DEVICE STATUS PDUMP EQU /31 DUMP NOTES PDELIVE EQU /38 DELIVER P EJECT P* P********************* P* HARDWARE COM
0x2afdd8…2aff6c Dummy {f00=0x00d4, f01=0x0190, f02=»QU /32 DISPENSE PDELIVR EQU /33 DELIVER PREJECT EQU /34 REJECT NOTES 6 ( PCASNBR EQU /35 GET CASSETTE NUMBERS Z 0 PSTADIS EQU /36 GET STATUS FROM LAST DISPENSE PLIFTDW EQU /37 LIFTS DOWN PLIFTUP EQU /38 LIFTS UP ( PRTRACE EQU /
0x2aff6c…2b0100 Dummy {f00=0x00d4, f01=0x018e, f02=»******** P* TABLES * P********** " P* 4 P* > P* H " P DATA DVBLEN MMU BUFFER LENGTH R 0 P DATA PC:DIX PROGRAMMED CHANNEL DEVICE INDEX x PTNAD EQU * P DATA ACTN ACTIVATION DRIVER P DATA 0 ABORT ROUTINE P DATA 0
0x2b0100…2b0294 (1, 715) Dummy {f00=0x00d4, f01=0x0190, f02=» P BYTE DISDEL,READCO P BYTE READDI,READDS P IFT SPLIT=1 < P BYTE DUMP,DELIVE P P XIF j PTNLEN EQU *-TNTAB-1 v P* P* ( PTNFUN EQU * NOTE DISPENSER FUNCTION P DATA OPENTN,CLOSTN,DISPEN P DATA RDCONT,RDDIAG,
0x2b0294…2b0428 Dummy {f00=0x00d4, f01=0x0190, f02=»AGE AFTER HW-COMMAND /30 (RESET) h P* ( P DATA RESEND-RESTAB 2 PRESTAB EQU * N 6 P BYTE 2,3 MESSAGEBYTES WITH NBR/STATUS OF HOPPER 0 b P BYTE 7,8 DITO HOPPER 1 P BYTE 14,15 DITO HOPPER 2 P BYTE 21,22 DITO HOPPER 3 P BYTE 28
0x2b0428…2b05bc Dummy {f00=0x00d4, f01=0x0190, f02=»* D P* TABLE OF NO-STORE BYTE-NUMBERS OF MESSAGE AFTER HW-COMMAND /35 P* (GET CASSETTE NUMBERS) R P* r P DATA CTABEN-CNBTAB | PCNBTAB EQU * 6 P BYTE 2,3 MESSAGEBYTES WITH NBR/STATUS OF HOPPER 0 P BYTE 9,10 DITO HOPPER 1 P B
0x2b05bc…2b0750 Dummy {f00=0x00d4, f01=0x018e, f02=»YTE 44,45 DITO HOPPER 6 PCTABEN EQU *-1 P EJECT 6 P* D " P* BIT IN RETURN CODE HW-STATUS N P* t PCASTAT EQU * ~ P QUART 5,6,15,10 31,32,33,34 " P QUART 15,15,12,11 35,36,37,38 P QUART 7,1,7,3 39,3A,3B,3C " P QUART 7,1
0x2b0750…2b08e4 Dummy {f00=0x00d4, f01=0x0190, f02=» & P QUART 12,14,15,15 4E,4F,50,51 =1 P EJECT . P* < P* F P* ACTN P P* ` P* j 2 P* ACTIVATION PART: CHECKS VALIDITY OF ORDERS t . P* AND STARTS PROCESSING P* P* P* PACTN EQU *
0x2b08e4…2b0a78 Dummy {f00=0x00d4, f01=0x0190, f02=»LID ORDER P SUK A3,1 DECREMENT INDEX P RB(NN) ACTN10 TRY NEXT 4 P* T P* ^ 0 P ABL LENDER DISPATCH, END I/O ,REQUEST ERROR h P* P* P EJECT PACTN20 EQU * P* P* P* P ADR A3,A3 GET INDEX
0x2b0a78…2b0c0c Dummy {f00=0x00d4, f01=0x0190, f02=»TO EQU * P LDR A6,A1 GET DWT ADDRESS " P LDK A1,TIMOUT SET RETURN CODE 2 , P CM DWTDEV+DWTTP,A6 RESET TIMER POINTER X P CM DWTDEV+DWTSTA,A6 P RF OPCLEN END I/O P EJECT P* . P* THIS IS THE DEVICE-BUSY-TIMEOUT ROUTINE P
0x2b0c0c…2b0da0 Dummy {f00=0x00d4, f01=0x018e, f02=»ESET TIMER POINTER DEVICE BUSY z 6 P CM DWTDEV+DWTSTA,A6 RESET RETURN CODE ACCUMULATOR & P LD A8,DWTECB,A6 ECB ADDRESS ` P LD A7,DWTOR,A6 P ANK A7,/FF ORDER CODE * P RB ACTN DEVICE FREE. TRY ORDER AGAIN P EJECT P* > P* THIS I
0x2b0da0…2b0f34 (1, 716) Dummy {f00=0x00d5, f01=0x0190, f02=» P LDKL A7,TIME1M P CF A15,TIMER $ P LDK A2,LIFTUP LIFTS UP COMMAND 6 P CF A5,SENCOM SEND COMMAND ^ " P CF A5,RECMES RECEIVE MESSAGE 2 P RF(NZ) OPCLEN END BECAUSE OF ERROR IN MESSAGE P* : P* DUMMY-COMMAND (SEND CASSETTE NUM
0x2b0f34…2b10c8 Dummy {f00=0x00d5, f01=0x0190, f02=»: GET CASSETTE NUMBERS z P CF A5,SENCOM SEND COMMAND POPE090 EQU * @ " P CF A5,RECMES RECIEVE MESSAGE T 2 P RF(P) OPCLEN END BECAUSE OF ERROR IN MESSAGE z P RB(NZ) OPE090 NEXT CHAR : P CM DWTDEV+DWTSTA,A6 CLEAR STATUS AFTER DUMMY COMMAND
0x2b10c8…2b125c Dummy {f00=0x00d5, f01=0x0190, f02=»TO STORE INTO USER BUFFER P ST A2,DWTDEV+DWTTAB,A6 " & P LDK A4,0 USER BUFFER DISPLACEMENT B P LDK A3,/30 l & P CF A5,STORE DUMMY IN USER BUFFER & P CF A5,STORE DUMMY IN USER BUFFER P LDK A2,RESET POPE100 EQU * P LDK A3,'0
0x2b125c…2b13f0 Dummy {f00=0x00d5, f01=0x0190, f02=»RECEIVE MESSAGE P RF(Z) OPE120 END OF MESSAGE ! 2 P RF(P) OPCLEN END BECAUSE OF ERROR IN MESSAGE ! < " P CF A5,STORE BUILD USER BUFFER ! r P RB OPE110 ! P EJECT ! POPE120 EQU * ! P LD A2,DWTDEV,A6 ! P ANK A2,RESDON ! P RF(Z) OPE130
0x2b13f0…2b1584 Dummy {f00=0x00d5, f01=0x0190, f02=» & P* NOT TO STORE INTO USER BUFFER " 0 P ST A2,DWTDEV+DWTTAB,A6 STORE CONTROL TABLE " . P LDK A2,2 " b : P ST A2,DWTDEV+DWTNCR,A6 NUMBER OF CHARACTERS RECEIVED " t & P LDK A4,5 USER BUFFER DISPLACEMENT " & P LDK A2,CASNBR GET CASSETTE NUMBER " P R
0x2b1584…2b1718 Dummy {f00=0x00d5, f01=0x0190, f02=»2 READ ORDER =2 " 4 P SC A7,DWTOR+1,A6 INDICATE MOVE BUF. TO USER =2 # P EJECT # P P* # ^ P* COMMON END # h P* # | PENDIOC EQU * # < P CM DWTDEV+DWTBUF+2,A6 RESET READ CONTROL BUFFER LENGTH # PENDIOL EQU * # 0 P LD A8,DWTECB,A6 RESTORE (
0x2b1718…2b18ac Dummy {f00=0x00d5, f01=0x0190, f02=» CODE # n . P LD A4,DWTDEV+DWTTP,A6 LOAD TIMER POINTER $ P RF(Z) ENDI10 NO TIMING $ @ P CMR A4 RESET TIMER $ ` , P CM DWTDEV+DWTTP,A6 RESET TIMER POINTER $ | PENDI10 EQU * $ 6 P LD A4,DWTDEV+DWTTP1,A6 TIMER POINTER DEVICE BUSY $ P RF(Z) ENDI20
0x2b18ac…2b1a40 Dummy {f00=0x00d5, f01=0x0190, f02=»END I/O AND DISPATCH $ P EJECT % P* % * P* CLOSE NOTE DISPENSER % 4 P* % R P % P % d P* % l P* LIFTS DOWN % v P* % PCLOSTN EQU * % P LDK A7,TIME9S % P CF A15,TIMER % P LDK A2,LIFTDW % P CF A5,SENCOM SEND COMMAND %
0x2b1a40…2b1bd4 (1, 717) Dummy {f00=0x00d5, f01=0x0190, f02=» % P LDK A7,RESDON & . P ORS A7,DWTDEV,A6 INDICATE RESET NOT DONE & PENDIOZ EQU * & P P LDK A4,0 & d P RB ENDIOC & v P EJECT & P* & " P* DISPENSE AND DELIVER /2B & P* & PDISPEN EQU * & P LDKL A7,TIME2M & P CF A15,TIME
0x2b1bd4…2b1d68 Dummy {f00=0x00d5, f01=0x0190, f02=»REQUEST ERROR & z P LDK A2,BLKSIZ BLOCK-SIZE ' ( P CF A5,STABLK DEFINE START OF BLOCK ' 8 & P ABL(NZ) LINERR LINE ERROR STATUS ' d P IFT SPLIT=0 ' ( P LDK A2,DISDLV DISPENSE AND DELIVER ' P XIF ' P IFT SPLIT=1 ' P LDK A2,DISPNS DISPENSE '
0x2b1d68…2b1efc Dummy {f00=0x00d5, f01=0x0190, f02=»ND COMMAND DISPENSE AND DELIVER ' & P ABL(NZ) LINERR LINE ERROR STATUS ( ( 0 P LC A2,DWTDEV+DWTLR,A6 LEFT OR RIGHT TELLER ( R P ADK A2,/30 MAKE ASCII ( 4 P XRS A2,DWTDEV+DWTLRC,A6 UPDATE LRC ACKUMULATOR ( , P CF A5,OUTPUT SEND LEFT OR RIGHT TELLER (
0x2b1efc…2b2090 Dummy {f00=0x00d5, f01=0x018e, f02=» ( P* SEND CASSETTE DATA ) P* ) $ PDIS100 EQU * ) . $ P CF A5,SENCAS SEND CASSETTE DATA ) B $ P RB(NZ) DIS100 NOT LAST CASSETTE ) j . P CF A5,LRCEOM SEND LRC AND END OF MESSAGE ) PDIS110 EQU * ) " P LDK A4,0 BUFFER DISPLACEMENT ) $ P LDK A2,BU
0x2b2090…2b2224 Dummy {f00=0x00d5, f01=0x0190, f02=» P ST A2,DWTDEV+DWTBUF,A6 * P EJECT * $ P* * 2 P* RECEIVE MESSAGE * < P* * V PDIS120 EQU * * ` " P CF A5,RECMES RECEIVE MESSAGE * t " P RB(P) ENDIOZ ERROR IN MESSAGE * P RF(Z) DADEND END OF MESSAGE * P LD A8,DWTDEV+DWTBUF,A6 * " P SUK
0x2b2224…2b23b8 Dummy {f00=0x00d5, f01=0x0190, f02=» SPLIT=1 * P LD A7,DWTOR,A6 GET ORDER + P ANK A7,/FF MASK + 2 P CWK A7,DISDEL + J P RF(E) DIS125 DISPENSE ORDER + ` , P LDR A1,A1 RETURN CODE WITHOUT WARNINGS + " P RF(NZ) DIS130 COMMAND NOT OK + P LDKL A3,-DISDON-1 + 0 P ANS A3,DWTDEV,A6 IN
0x2b23b8…2b254c Dummy {f00=0x00d5, f01=0x0190, f02=»OMMAND NOT OK + P LDK A2,DISDON , , P ORS A2,DWTDEV,A6 INDICATE DISPENSE DONE , , PDIS130 EQU * , P XIF , p 0 P ST A4,DWTDEV+DWTBUF+2,A6 SAVE BUFFER LENGTH , | P RB ENDIO , P* , P* SEQUENCE ERROR , P* , PSEQER EQU * , P LDK A
0x2b254c…2b26e0 Dummy {f00=0x00d5, f01=0x0190, f02=»,DWTDEV+DWTCNB,A6 INDICATE OLD CASSETTE = 0 , & P LDK A4,0 USER BUFFER DISPLACMENT - 4 4 P C2 DWTDEV+DWTBUF+2,A6 NEGATE DWT BUFFER LENGTH - ^ $ P RF(Z) RDC120 NOTHING IN BUFFER - PRDC100 EQU * - 0 P LC* A3,DWTDEV+DWTBUF,A6 GET CASSETTE NUMBER - 2 P C
0x2b26e0…2b2874 (1, 718) Dummy {f00=0x00d5, f01=0x0190, f02=»BER OF CHARACTERS - v P LDK A3,/30 . P CF A5,STORE . . * P LDK A1,3 GET 4 BYTES FROM DWT BUFFER . B PRDC110 EQU * . p * P LC* A3,DWTDEV+DWTBUF,A6 GET CHARACTER . P CF A5,STORE . . P IM DWTDEV+DWTBUF,A6 UPDATE BUFFER POINTER . P IM DWTDEV+DWTBU
0x2b2874…2b2a08 Dummy {f00=0x00d5, f01=0x0190, f02=»RDC120 EQU * . P LDR A1,A6 / 4 P ADKL A1,DWTDEV+DWTBUF+4 A1:=DWT BUFFER POINTER / & P ST A1,DWTDEV+DWTBUF,A6 / ^ P LDK A1,0 RETURN CODE / ~ PENIOL1 EQU * / P ABL ENDIOL / P EJECT / P* / P* READ DIAGNOSTIC / P* / PRDDIAG E
0x2b2a08…2b2b9c Dummy {f00=0x00d5, f01=0x0190, f02=»DK A4,0 USER BUFFER DISPLACEMENT / PRDD100 EQU * 0 ( " P CF A5,RECMES RECEIVE MESSAGE 0 < 6 P RF(NN) RDD110 END OF MESSAGE OR ERROR IN MESSAGE 0 b 4 P CF A5,STORE SAVE CHARACTER (A3) IN USER BUFFER 0 P RB RDD100 NEXT CHARACTER 0 PRDD110 EQU * 0
0x2b2b9c…2b2d30 Dummy {f00=0x00d5, f01=0x018e, f02=» A2,A6 DATA POINTER 0 P LDK A4,0 BUFFER INDEX 1 PRDS100 EQU * 1 : P LCR A3,A2 1 N P ANK A3,/FF 1 ` P RF(Z) RDS110 END OF BUFFER 1 t 0 P CF A5,STCHAR STORE CHARACTER IN USER BUFFER 1 P ADK A2,1 UPDATE POINTER 1 P CWK A4,4 1 P RB(L) RDS
0x2b2d30…2b2ec4 Dummy {f00=0x00d5, f01=0x0190, f02=» P* DELIVER NOTES /38 2 P* 2 PDELIV EQU * 2 * P* 2 > & P* CHECK IF NOTES IN DELIVERY UNIT 2 H P* 2 r P LDK A7,TIME9S 2 | P CF A15,TIMER 2 P LDK A2,CHKDEL 2 P CF A5,SENCOM SEND COMMAND 2 PDEL100 EQU * 2 " P CF A5,RECMES RECEIV
0x2b2ec4…2b3058 Dummy {f00=0x00d5, f01=0x018e, f02=» UNIT 2 p P LD A2,DWTDEV,A6 3 P ANK A2,DISDON 3 & 2 P RB(Z) SEQER DISPENSE NOT DONE,SEQUENCE ERROR 3 < P LDK A2,DELIVR 3 r P RF DUM100 3 P EJECT 3 P* 3 P* DUMP NOTES /31 3 P* 3 PDUMPA EQU * 3 P LDK A7,TIME9S 3 P CF A15,
0x2b3058…2b31ec Dummy {f00=0x00d5, f01=0x0190, f02=» P EJECT 4 P* 4 P* 4 P* RCTN 4 & P* 4 6 P* RECOVERY AT POWER ON 4 @ P* 4 ` P* 4 j PRCTN EQU * 4 t P LDKL A1,-OPNBIT-1 4 * P ANS A1,DWTDEV,A6 INDICATE ND NOT OPEN 4 P LDK A1,RESDON 4 . P ORS A1,DWTDEV,A6 INDICATE RESET NOT
0x2b31ec…2b3380 Dummy {f00=0x00d5, f01=0x0190, f02=» CWK A7,READCO 4 $ P ABL(E) ENDIO READ CONTROL ORDER 5 . P ABL ENDIOZ OTHER ORDERS THAN READ CONTROL 5 > P EJECT 5 p P* 5 ~ P* 5 P* SUBROUTINES 5 P* 5 P* 5 P* 5 P 5 P 5 P* 5 P* SET TIMER 5 P* A7=TIME VALUE 5
0x2b3380…2b3514 (1, 719) Dummy {f00=0x00d5, f01=0x0190, f02=»DWT ADDRESS IF TIMEOUT 5 P CF A15,SETIME SET TIME 6 6 P DATA ACTNTO,TIME1S TIME1S OUT ROUTINE AND TIME1S 6 > 6 P ST A4,DWTDEV+DWTTP,A6 STORE TIMER ADDRESS IN DWT 6 x P NGR A7,A7 6 P STR A7,A4 NEW TIME VALUE 6 PTIM100 EQU * 6 P RTN A15 6
0x2b3514…2b36a8 Dummy {f00=0x00d5, f01=0x0190, f02=»,DWTDEV+DWTLR,A6 LEFT OR RIGHT TELLER 6 , P CM DWTDEV+DWTBFR,A6 CLEAR DELAY BUFFER 7 . 4 P CM DWTDEV+DWTSTA,A6 CLEAR NOTE DISPENSER STATUS 7 ^ 2 P CM DWTDEV+DWTTAB,A6 CLEAR STORE-TABLE POINTER 7 < P CM DWTDEV+DWTNCR,A6 CLEAR NUMBER OF CHARACTERS RECEIVED 7
0x2b36a8…2b383c Dummy {f00=0x00d5, f01=0x0190, f02=» EQU * 7 P RTN A5 8 P EJECT 8 P* 8 , 4 P* SUBROUTINE TO GET RETURN CODE FROM H.W. STATUS 8 6 P* 8 n P* ENTRY: A2 = H.W. STATUS 8 x P* 8 P* EXIT: 8 P* A1,A2 = IRRELEVANT 8 $ P* RETURN CODE IN DWTSTA 8 P* 8
0x2b383c…2b39d0 Dummy {f00=0x00d5, f01=0x0190, f02=» RF(E) STA160 DEVICE OK 8 ( P LC A1,DWTDEV+DWTRDS+1,A6 OLD STATUS 9 P ANK A1,/FF 9 L ( P RF(NZ) STA080 BYTE ALREADY OCCUPIED 9 ` , P SC A2,DWTDEV+DWTRDS+1,A6 SAVE HW STATUS 9 P RF STA090 9 PSTA080 EQU * 9 , P SC A2,DWTDEV+DWTRDS+3,A6 SAVE HW STAT
0x2b39d0…2b3b64 Dummy {f00=0x00d5, f01=0x0190, f02=» =1 9 r " P RF(P) STA180 WRONG HW-STATUS : 2 P ADK A2,/20 ADJUST BACK, AND DECR WITH /31. =1 : 2 P EJECT : h P CWK A2,/17 : v 4 P RF(E) STA140 STATUS /48,HIGH PRESSURE = WARNING : P RF(L) STA100 DON'T SKIP /48 : P SUK A2,1 SKIP /48 : PSTA100 E
0x2b3b64…2b3cf8 Dummy {f00=0x00d5, f01=0x0190, f02=»F STA120 : PSTA110 EQU * ; P ANK A2,/FF ; $ P LC A2,CASTAT,A2 ; 8 , P ANK A2,/F A2:=BIT NUMBER IN RETURN CODE ; P PSTA120 EQU * ; P LDK A1,1 SET BIT 15 ; PSTA130 EQU * ; P SRC A1,1 ; P SUK A2,1 ; . P RB(NN) STA130 BIT NOT IN CORREC
0x2b3cf8…2b3e8c Dummy {f00=0x00d5, f01=0x0190, f02=»A150 EQU * ; 4 P SUK A1,1 INDICATE DEVICE BUSY (LIFTS ARE DOWN) < PSTA160 EQU * < J 4 P LD A2,DWTDEV+DWTRDS+2,A6 HW ORDER AND STATUS 2 < ^ . P RF(NZ) STA170 BOTH STATUS WORDS OCCUPIED < P CM DWTDEV+DWTRDS,A6 < PSTA170 EQU * < P CM DWTDEV+DWTRD
0x2b3e8c…2b4020 Dummy {f00=0x00d5, f01=0x0190, f02=» P* = P* = P* THIS SUBROUTINE IS ENTERED = 0 P* WHEN LINE DRIVER ERROR STATUS IS DETECTED = < P* = p P* = z PLINERR EQU * = 4 P LDK A1,NOTOPE RETURN CODE FOR ECB: NOT OPERABLE = 6 P ORS A1,DWTDEV+DWTSTA,A6 SET RETURN CODE INTO ECB = ,
0x2b4020…2b41b4 (1, 720) Dummy {f00=0x00d6, f01=0x0190, f02=»CALCULATES LRC,SENDS IT AND SENDS END OF MESSAGE = P* > 8 " P* ENTRY: A2 = COMMAND TO SEND > B P* > h " P* EXIT: A1,A2,A3 = IRRELEVANT > r P* > PSENCOM EQU * > P LDR A3,A2 SAVE THE COMMAND > P LDK A2,BLKSIZ GET BLOCKSIZE > ( P CF A5,STA
0x2b41b4…2b4348 Dummy {f00=0x00d6, f01=0x0190, f02=»6 SAVE LRC SUM > x 4 P LD A1,DWTDEV+DWTRDS,A6 FIRST WORD IN LOGG AREA ? ( P RF(NZ) SEN100 ONE LOGG ALREADY DONE ? N * P SC A2,DWTDEV+DWTRDS,A6 SAVE HW ORDER ? z P RF SEN200 ? PSEN100 EQU * ? , P SC A2,DWTDEV+DWTRDS+2,A6 SAVE HW ORDER ? PSEN200 EQU
0x2b4348…2b44dc Dummy {f00=0x00d6, f01=0x0190, f02=» PLRCEOM EQU * @ * P LC A3,DWTDEV+DWTLRC+1,A6 GET LRC SUM @ P ANK A3,/FF @ F P LDR A2,A3 @ Z P SRL A2,4 @ l P ANK A3,/F @ ~ P ADK A2,/30 CMSD @ P ADK A3,/30 CLSD @ P CF A5,OUTPUT SEND BYTE @ $ P RB(NZ) LINERR LINE ERROR STATUS @ P
0x2b44dc…2b4670 Dummy {f00=0x00d6, f01=0x0190, f02=»A5,OUTPUT SEND BYTE @ $ P RB(NZ) LINERR LINE ERROR STATUS A P LDK A2,0 A D 4 P SC A2,DWTDEV+DWTLRC+1,A6 RESET LRC ACKUMULATOR A V & P CF A5,ENDBLK DEFINE END OF BLOCK A $ P RB(NZ) LINERR LINE ERROR STATUS A P RTN A5 A P EJECT A P* A . P
0x2b4670…2b4804 Dummy {f00=0x00d6, f01=0x0190, f02=» P* B P* EXIT: A4 = A4 + 5 B P* A3 = A3 + 1 B , P* A1,A2 = IRRELEVANT B J P* B n PSENCAS EQU * B x $ P ST A3,DWTDEV+DWTBUF,A6 SAVE A3 B ( P XRS A3,DWTDEV+DWTLRC,A6 UPDATE LRC B P LDR A2,A3 B P CF A5,OUTPUT B $ P
0x2b4804…2b4998 Dummy {f00=0x00d6, f01=0x0190, f02=»A6 UPDATE LRC B z P CF A5,OUTPUT C $ P RB(NZ) LINERR LINE ERROR STATUS C , $ P ADK A4,1 UPDATE BUFFER POINTER C T P SUK A3,1 C | 6 P RB(NN) SCA100 DATA FOR THIS CASSETTE NOT FINISHED C 8 P LD A3,DWTDEV+DWTBUF,A6 SAVED REGISTER=CASSETTE NBR C P ADK
0x2b4998…2b4b2c Dummy {f00=0x00d6, f01=0x018e, f02=»* A5 RETURN C P EJECT D : P* THIS ROUTINE RECEIVES A MESSAGE FROM NOTE DISPENSER D " 2 P* IF DWTBFR IS ZERO,IT RECEIVES STATUS+3 BYTES D ` < P* IF THE LAST BYTE IS EOM,IT CHECKS LRC AND THEN RETURNS D 0 P* IF DWTBFR IS NOT ZERO,IT RECEIVES ONE BYTE D
0x2b4b2c…2b4cc0 Dummy {f00=0x00d6, f01=0x0190, f02=» D t ( P* CR = O MEANS EOM AND LRC OK E * P* 1 MEANS EOM AND LRC BAD E 4 " P* 2 MEANS NOT EOM E b PRECMES EQU * E P LD A2,DWTDEV+DWTBFR,A6 E " P RF(NZ) REC100 NOT FIRST TIME E P CF A5,INPUT GET STATUS E ( P XRS A
0x2b4cc0…2b4e54 (1, 721) Dummy {f00=0x00d6, f01=0x0190, f02=»DEV+DWTBFR,A6 SAVE CHARACTER E P CF A5,INPUT GET NEXT BYTE F $ , P SC A2,DWTDEV+DWTBFR+1,A6 SAVE CHARACTER F F PREC100 EQU * F v P CF A5,INPUT GET CHARACTER F " P ADK A5,4 UPDATE STACK POINTER F P CCK A2,/0D0D F P RF(E) REC120 END OF MESSAGE F
0x2b4e54…2b4fe8 Dummy {f00=0x00d6, f01=0x018e, f02=»3,DWTDEV+DWTLRC,A6 UPDATE LRC ACK. F 2 P SC A2,DWTDEV+DWTBFR+1,A6 UPDATE DELAY BUFFER G * P LDKL A1,-1 SET CR G ` PREC110 EQU * G z P ABR* A5 G P EJECT G P* G P* CHECK LRC G P* G PREC120 EQU * G 8 P LD A3,DWTDEV+DWTBFR,A6 DELAY BU
0x2b4fe8…2b517c Dummy {f00=0x00d6, f01=0x018e, f02=» G P ORR A3,A2 LRC VALUE H . P LC A2,DWTDEV+DWTLRC+1,A6 DRIVER LRC VALUE H $ , P CM DWTDEV+DWTBFR,A6 RESET INTERN BUFFER H V ( P LD A1,DWTDEV+DWTSTA,A6 RETURN CODE H P CWK A1,-1 H 8 P RF(E) REC130 HW DEVICE BUSY BECAUSE LIFTS ARE DOWN H * P ANKL A1
0x2b517c…2b5310 Dummy {f00=0x00d6, f01=0x0190, f02=» P RB REC110 I P EJECT I P* I $ , P* HW DEVICE BUSY BECAUSE LIFTS ARE DOWN I . " P* (DELAY AND TRY ORDER AGAIN) I ^ P* I PREC130 EQU * I P LDR A1,A6 SAVE DWT ADDRESS I P CF A15,SETIME I P DATA BSYTUT,TIME1S I . P ST A4,DWTDEV+DW
0x2b5310…2b54a4 Dummy {f00=0x00d6, f01=0x0190, f02=»* IN ECB-BUFFER AND INCREMENT BUFFER-INDEX I P* J < > P* ENTRY : DWTTAB = CONTROL TABLE (=0 MEANS NO CONTROL ) J F & P* A3 = CHARACTER TO STORE J & P* A4 = USER BUFFER INDEX J 4 P* DWTNCR = NUMBER OF CHARCTERS RECE
0x2b54a4…2b5638 Dummy {f00=0x00d6, f01=0x0190, f02=» CASSETTE NUMBER TO '0' J v H P* A4 = A4 + 1 IF CHARACTER NOT FILTERED WITH CONTROL TABLE K " P* DWTNCR = DWTNCR + 1 K l , P* DWTCNB = NEW CASSETTE NUMBER K P* K PSTORE EQU * K P LD A7,DWTDEV+DWTTAB,A6 K P RF(Z) S
0x2b5638…2b57cc Dummy {f00=0x00d6, f01=0x0190, f02=»QU * K P CCR A2,A7 L : P RF(E) STO110 CHARACTER FOUND IN TABLE,DON'T STORE IT L " P SUK A7,1 UPDATE TABLE POINTER L P CW A7,DWTDEV+DWTTAB,A6 L $ P RB(NL) STO100 NOT END OF TABLE L P* L . P* STORE IT IN USER BUFFER AND INCREMENT A4 L P*
0x2b57cc…2b5960 Dummy {f00=0x00d6, f01=0x0190, f02=»E CASSETTE IS MISSING L P* M PSTO110 EQU * M ( P LC A2,DWTOR+1,A6 ORDER CODE M < P SUK A2,OPEN M ` " P RF(NZ) STO140 NOT OPEN ORDER M t 6 P ANK A7,1 EVEN ADDRESS ? (=ADDRESS TO BYTE NUMBER M , P* OF MESSAGE BYTE CONTAINING CASS NBR) M 8 P RF(
0x2b5960…2b5af4 (1, 722) Dummy {f00=0x00d6, f01=0x0190, f02=» P* N PRESCAS EQU * N 0 P LD A2,DWTDEV+DWTCNB,A6 OLD CASSETTE NUMBER N " 0 P ST A3,DWTDEV+DWTCNB,A6 NEW CASSETTE NUMBER N V P SUR A3,A2 N P LDK A2,0 N P SUK A3,1 N ( P RF(NP) STO140 CASSETTES IN SEQUENCE N PSTO120 EQU * N P ADK A2,
0x2b5af4…2b5c88 Dummy {f00=0x00d6, f01=0x0190, f02=»ARACTER N z P SUK A2,1 O $ P RB(P) STO130 RESET NOT FINISHED O " PSTO140 EQU * O J 6 P IM DWTDEV+DWTNCR,A6 NUMBER OF CHARACTERS RECEIVED O ^ P RTN A5 O P EJECT O P* O $ P*STORE CHARACTER IN USER BUFFER O P* O ( P* ENTRY : A4 = INDEX
0x2b5c88…2b5e1c Dummy {f00=0x00d6, f01=0x0190, f02=» P* A7 = IRRELEVANT P P* P & PSTCHAR EQU * P 0 P CW A4,ECBRL,A8 P D ( P RF(NL) STC110 TOO SMALL USER BUFFER P " P LD A7,ECBBA,A8 BUFFER ADDRESS P P ADR A7,A4 ADD BUFFER INDEX P P SCR A3,A7 STORE CHARACTER P PSTC100 EQU * P P
0x2b5e1c…2b5fb0 Dummy {f00=0x00d6, f01=0x0190, f02=» P r , P ORS A7,DWTDEV+DWTSTA,A6 SET RETURN CODE Q P RB STC100 Q 8 P EJECT Q J P* Q X 0 P* SUBROUTINE TO TEST DISPENSE REQUEST ERROR Q b P* Q P* ENTRY: A8 = ECB-ADDRESS Q P* Q 6 P* EXIT: A1,A2,A3 = IRRELEVANT IF REQUEST ERROR Q @ P*
0x2b5fb0…2b6144 Dummy {f00=0x00d6, f01=0x0190, f02=»D A3,ECBRL,A8 REQUESTED LENGTH Q PDSR100 EQU * R & $ P CF A5,CASTST TEST CASSETTE DATA R : P SUK A3,5 R b P RB(P) DSR100 NEXT CASSETTE R t P RF(N) CST110 REQUEST ERROR R P RTN A5 R P EJECT R P* R & P* SUBROUTINE TO TEST CASSETTE DATA R
0x2b6144…2b62d8 Dummy {f00=0x00d6, f01=0x018e, f02=» A1 = IRRELEVANT OR /8000 AND JUMP TO ENDIO R P* S 4 PCASTST EQU * S > P ADK A7,2 S R P LDK A1,2 INTERN INDEX S d PCST100 EQU * S P LCR A2,A7 S " P ANK A2,/FF CHARACTER TO TEST S P SUK A2,/30 S P RF(N) CST110 REQUEST ERROR S P S
0x2b62d8…2b646c Dummy {f00=0x00d6, f01=0x406c, f02=» S P* T P* REQUEST ERROR T P* T * PCST110 EQU * T 4 P ABL LENDER T H P END T @ T h2 INTERN INDEX S d PCST100 EQU * S P LCR A2,A7 S " P ANK A2,/FF CHARACTER TO TEST S P SUK A2,/30 S P RF(N) CST110 REQUEST ERROR S P S
0x2b646c…2b6600 Dummy {f00=0x00d6, f01=0x2008, f02=» U ARACTER TO TEST R P SUK A2,/30 S P RF(N) CST110 REQUEST ERROR S 4 P SUK A2,9 S X P RF(P) CST110 REQUEST ERROR S j P ADK A7,1 S P SUK A1,1 S " P RB(NN) CST100 NEXT CHARACTER S P RTN A5 S P* S P* REQUEST ERROR S
0x2b6600…2b6794 (1, 723) Dummy {f00=0x00d6, f01=0x0190, f02=» =USED REGISTERS ] & P* NUMBER OF A14 LEVELS = 2 (WORDS) ^ P* ^ B PRECECB EQU * ^ L " P LD A2,FDBRRO,A11 RECORD ADDR ^ ` P ADKL A2,BUFSTA ^ P ADR A2,A4 REC ADDR ^ $ P LD A1,FDBRLE,A11 RECORD LENGTH ^ P SUK A1,6 ^ P ADR A2,A1 ^ P
0x2b6794…2b6928 Dummy {f00=0x00d6, f01=0x0006, f02=»* * *
0x2b6928…2b6abc Dummy {f00=0x00d6, f01=0x018e, f02=» > @ IDENT DRTN01 REL 11.0 81-03-18 870105041100 TNAD F PC:DIX V TNAD h , ( @ ( !"+*-, z , ( #$*+ %&,- LENDER , ( ? V qs " !
0x2b6abc…2b6c50 Dummy {f00=0x00d6, f01=0x0190, f02=» , ( yD Y Y X , ( ' _D X 8 ! ! T 5 ! ! 4 , ( @ Q Y Y 0 ! ! d , ( 0 0 Y ! ! P Q ! _ X * & @ " P Y 0 Y Y , ( 5_: Y
0x2b6c50…2b6de4 Dummy {f00=0x00d6, f01=0x0190, f02=» Z r , ( G 7 ! ! Y Y _N STABLK B , ( c X " P ! ! T OUTPUT , ( B 1 Y Y ! X ECBBA , ( $ 0 Y ! B 1 ! , (
0x2b6de4…2b6f78 Dummy {f00=0x00d6, f01=0x0190, f02=» * & Y 0 ! x ! Y , ( Y P ^ _0 Y 2 , ( / 9 ! ! V ! _ b , ( O _ (# P ! Z LDISP , ( m _> Y Y SET
0x2b6f78…2b710c Dummy {f00=0x00d6, f01=0x0190, f02=» ,P Y t , ( Y 4 3P 0P X , ( ! T Y W Y 0R !Q B , ( P R : R H >:dW " H >" 9 r * & ' ^ Y 4 X T Y Y , ( ? _ _ Y X ! , ( Y "
0x2b710c…2b72a0 Dummy {f00=0x00d6, f01=0x0190, f02=» Y ! r , ( b 4 Y Y ! t , ( 0 Y ! ^ X B ECBRL r INPUT , ( $" B B 4 X T ! * & BH Y ! ! Y ! Y , ( $ ! !
0x2b72a0…2b7434 (1, 724) Opaque[0x194]
0x2b7434…2b75c8 # DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1080, f03=0x0000}
0x2b7434…2b75c8 IdxSect {
0x2b7434…2b75c8 f00 = 0x0084 // 0x2b7434 @0x0
0x2b7434…2b75c8 f01 = 0x0014 // 0x2b7436 @0x2
0x2b7434…2b75c8 gno = [ // 0x2b7438 @0x4
0x2b7434…2b75c8 [0x00]: C0x0084.0x0.0
0x2b7434…2b75c8 [0x01]: C0x0084.0x1.0
0x2b7434…2b75c8 [0x02]: C0x0084.0x2.0
0x2b7434…2b75c8 [0x03]: C0x0084.0x3.0
0x2b7434…2b75c8 [0x04]: C0x0085.0x0.0
0x2b7434…2b75c8 [0x05]: C0x0085.0x1.0
0x2b7434…2b75c8 [0x06]: C0x0085.0x2.0
0x2b7434…2b75c8 [0x07]: C0x0085.0x3.0
0x2b7434…2b75c8 [0x08]: C0x0086.0x0.0
0x2b7434…2b75c8 [0x09]: C0x0086.0x1.0
0x2b7434…2b75c8 ]
0x2b7434…2b75c8 }
0x2b75c8…2b775c Dummy {f00=0x0084, f01=0x0190, f02=» 2 P IDENT DRTP02 REL 11.0 81-08-31 870105041100 P : & P =3, CHARACTER BLOCKING CHANGED; B $ P ORDER & ECB-ADDRESS RELOADED; l $ P LF AFTER CUT & PERF. REMOVED; P REL 11.0 81-02-16 " P =2, STATUS HANDLING CHANGED P REL 11.
0x2b775c…2b78f0 Dummy {f00=0x0084, f01=0x018e, f02=» X < P* * < P* PHILIPS TERMINAL SYSTEM PTS * H < P* * < P* DRTP02 = DRIVER TELLER TERMINAL PRINTER * < P
0x2b78f0…2b7a84 Dummy {f00=0x0084, f01=0x0190, f02=» P* P* < P* * < P******************************************************* X P* > P* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221, P* 6222 OR 6223 P* P*
0x2b7a84…2b7c18 Dummy {f00=0x0084, f01=0x0190, f02=»: INTERRUPT HANDLER P* $ P* R C T P : RECOVERY ROUTINE ( P* P P* Z 6 P* THE DRIVER CONTAINS THE FOLLOWING SUBROUTINES: d P* B P* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM P* 6 P* B C D T B Y
0x2b7c18…2b7dac Dummy {f00=0x0084, f01=0x0190, f02=»ER IN OUTPUT BUFFER P* . P* G R A S P : SEND GRASP TO VOUCHER & P* X 4 P* R E L E A S : SEND LIFT TO TOP AND RELEASE b P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* $ P* ORDER 00 : TEST STATU
0x2b7dac…2b7f40 Dummy {f00=0x0084, f01=0x0190, f02=»* ORDER 26 : PERFORATE JOURNAL . P* ORDER 37 : GRASP VOUCHER/PASSBOOK . 0 P* ORDER 38 : RELEASE VOUCHER/PASSBOOK ` P* , P* THE FOLLOWING RETURN CODES ARE USED: P* & P* BIT 0 : REQUEST ERROR 8 P* BI
0x2b7f40…2b80d4 (1, 725) Dummy {f00=0x0084, f01=0x0190, f02=»HECK ERROR v $ P* BIT 15 : NOT OPERABLE P* : P* D P* N P* NORMAL REGISTER USAGE: X P* z " P* REGISTER A1: WORK REGISTER " P* A2: INPUT/OUTPUT $ P* A3: BUFFER POINTER $ P* A4:
0x2b80d4…2b8268 Dummy {f00=0x0084, f01=0x0190, f02=» A8: ECB-ADDRESS P* P EJECT & P* 4 P* SYSTEM ADAPTATION: > P* D P* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIONS CAN f P* BE EXCLUDED: P* > P* RETURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUES
0x2b8268…2b83fc Dummy {f00=0x0084, f01=0x0190, f02=»REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN ~ P* : P* D @ P* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS IS DEFINED N > P* IN A TABLE NAMED ROMTAB.STANDARD IS SHB CHARACTER SET P* P* P EJECT P* P********
0x2b83fc…2b8590 Dummy {f00=0x0084, f01=0x0190, f02=»************* P* EXTERNALS * P************* , P* B P* L , P EXTRN LDISP DISPATCHING FROM INTERRUPT V $ P EXTRN LENDER DISPATCH I/O ERROR & P EXTRN LENDIS END I/O AND DISPATCH P EXTRN TENDIO END I/O & P EXTRN OUTPUT OUTP
0x2b8590…2b8724 Dummy {f00=0x0084, f01=0x0190, f02=» 2 IN DWT x P EXTRN DWTDEV DEVICE STATUS & P EXTRN STABLK DEF. START OF BLOCK 6 $ P EXTRN ENDBLK DEF. END OF BLOCK ` . P EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT =2 , P EXTRN NDREP GET REGISTERS AND RETURN =2 P EJECT P* P* ECB
0x2b8724…2b88b8 Dummy {f00=0x0084, f01=0x0190, f02=» r P EXTRN ECBRC RETURN CODE P EXTRN ECBCW CONTROL WORD ( P EJECT J P************************ X P* CONDITIONAL ASSEMBLY * x P************************ P* P* < P* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET
0x2b88b8…2b8a4c Dummy {f00=0x0084, f01=0x0190, f02=»E CUT/PERFORATED FOR PTS 6223 BY z P* SETTING X:B = 1 ( P* D P* N PX:B EQU 0 X PCUTPER EQU X:B j P* P* B P* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 P* AND X:D = 1 RESPECTIVLY P* P
0x2b8a4c…2b8be0 Dummy {f00=0x0084, f01=0x018e, f02=»INTING VOUCHER/PASSBOOK, IS COMPLETED IF : P* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 0 P* n P* x PX:E EQU 0 PCOMPL EQU X:E P* P* > P* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT < P* IS I
0x2b8be0…2b8d74 (1, 726) Dummy {f00=0x0084, f01=0x0190, f02=» PX:F EQU 0 PRELEND EQU X:F P* 0 P* : P* MMU BUFFER SIZE D P* ` P* j PX:H EQU 20 t PDVBLEN EQU X:H P* P EJECT P* P* P************* P* CONSTANTS * P*************
0x2b8d74…2b8f08 Dummy {f00=0x0084, f01=0x018e, f02=» /8 'VOUCHER IN' BIT IN DATA-REQUEST 2 PEOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. , 8 PWAICHA EQU /100 BIT #7 DWTDEV;WAIT FOR STATUS CHANGE b @ PVOCHA EQU /200 BIT #6 DWTDEV;VOUCHER STATUS CH. NOT ALLOWED 4 PMESS EQU /400 BIT #5 DWTDEV;TEST MESSA
0x2b8f08…2b909c Dummy {f00=0x0084, f01=0x0190, f02=» h PCR1 EQU /0D CR JOURNAL TAPE PLF1 EQU /18 LF JOURNAL TAPE , . PCR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK P PLF2 EQU /19 LF TALLY ROLL $ PLDO EQU /0B LIFT DOWN 1 POSITION $ PLUP EQU /0A LIFT UP ONE POSITION $ PLFF EQU /0C LIFT TO
0x2b909c…2b9230 Dummy {f00=0x0084, f01=0x018e, f02=»TACH PRINT HEAD " PRPH EQU /1E RETURN PRINT HEAD 4 PTETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE > P* v P* P********************* P* DWT-DISPLACEMENTS * P********************* P* $ PRLN EQU /4 REQUESTED LINE
0x2b9230…2b93c4 Dummy {f00=0x0084, f01=0x0190, f02=» P*********** P* P* " " PBUF1 DATA /020D,/1D00 CR1,APH , P IFT CUTPER=0 R PBUF2 DATA /0209 CR2 h P XIF P IFT CUTPER=1 PBUF2 DATA /0309 P XIF P DATA /1D20 APH,SPACE " PBUF3 DATA /0209,/1D00 CR2,APH
0x2b93c4…2b9558 Dummy {f00=0x0084, f01=0x0190, f02=» MMU BUFFER SIZE P DATA 2 DEVICE INDEX PTPAD EQU * ADDRESS BLOCK 4 P DATA ACTP ACTIVATIONDRIVER T " P DATA 1 ABORT ROUTINE ADDRESS x P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY ROUTINE P* $ P* TABLE TO GET ROOMLE
0x2b9558…2b96ec Dummy {f00=0x0084, f01=0x0190, f02=» l P* P* PLFTAB EQU * , P DATA /1819 LINE FEED JOURNAL/TALLY ROLL 0 P IFT CUTPER=1 ` : PCPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE v P XIF PTPTAB EQU * ORDER TABLE P DATA /0002,/0607,/080D P IFT CUT
0x2b96ec…2b9880 Dummy {f00=0x0084, f01=0x0190, f02=»P P* 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR J P* P* P* PACTP EQU * ACTIVATION ENTRY P* P* < P* GET DWT INDEX: 0=JOURNAL,1=TALLY,2
0x2b9880…2b9a14 (1, 727) Dummy {f00=0x0084, f01=0x0190, f02=»WTOR+1,A6 SAVE NEW ORDER IN DWT P LDK A4,0 ACTIVATION ( PACT005 LDK A3,TPLEN-1 D 2 PACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER b P RF(E) ACT020 VALID ORDER P SUK A3,1 P RB(NN) ACT010 TRY NEXT P* P ABL LENDER ILLEGA
0x2b9a14…2b9ba8 Dummy {f00=0x0084, f01=0x0190, f02=» ABI TPFUC,A3 EXECUTE ORDER 8 PTPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 $ P IFT CUTPER=1 ` P DATA TP700,TP750 v P XIF P DATA TP800,TP900 P EJECT P* P* P* ORDER 00: TEST H P*
0x2b9ba8…2b9d3c Dummy {f00=0x0084, f01=0x0190, f02=» * P LDK A2,/5 BLOCK LENGTH P CF A5,STABLK START OF BLOCK * P RF(NZ) ERTP1 JMP IF ERROR N P LDK A2,/02 SEND CHAR /02 p P CF A5,OUTPUT P RF(NZ) ERTP1 JMP IF ERROR ( P LDK A2,0 SEND CHAR /00=END OF TEST P CF A5,OUTPUT
0x2b9d3c…2b9ed0 Dummy {f00=0x0084, f01=0x018e, f02=» h > P* GET REQUESTED LINE NUMBER AND SAVE IN DWT P* J P* T P* ^ B PACT050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB h P RF ACT085 P* , PACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS & P LC A3,1,A3 GE
0x2b9ed0…2ba064 Dummy {f00=0x0084, f01=0x0190, f02=» P RF(NE) ACT060 P LDK A3,2 /30 = TWO LF P RF ACT080 < ( PACT060 RF(G) ACT080 /31-/39 = 1-9 LF N P ADK A3,/5 z P ABL(Z) TP605 /2B = NO LF PACT070 LDK A3,1 ONE LF 8 PACT080 LC A1,DWTDEV+RLN,A6 GET LINE NUMBER FROM DWT * P
0x2ba064…2ba1f8 Dummy {f00=0x0084, f01=0x018e, f02=»O l P* PACT090 LDR A4,A4 RECOVERY ? P RF(NZ) TP605 YES 8 4 P SC A1,DWTDEV+RLN,A6 SAVE REQUESTED LINE NUMBER R P RF TP605 P EJECT P* P* P* P* ORDER 06 : PRINT JOURNAL P* P* P* *
0x2ba1f8…2ba38c Dummy {f00=0x0084, f01=0x0190, f02=» P CF A5,STABLK START OF BLOCK $ PERTP1 RF(NZ) ERTP2 JMP IF ERROR ( 2 P LC A1,DWTDEV,A6 GET LEFT BYTE IN STATUS WORD P $ P ANK A1,4 TEXT MESSAGE WRITTEN ? ( P RF(NE) TP220 YES; COMPLETE REQUEST ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH $ P S
0x2ba38c…2ba520 Dummy {f00=0x0084, f01=0x018e, f02=»C A2,2,A1 THIRD CHARACTER $ P CCK A2,/2020 CONTROL CHARACTER " P RF(NL) TP215 J P RF TP220 ` PTP215 EQU * r P CF A5,BUFCHR SEND BUFFER " P CF A5,PRBUF PRINT ECB-BUFFER PTP220 EQU * P LDK A1,0 6 PTP230 LDKL A2,/FDFF
0x2ba520…2ba6b4 (1, 728) Dummy {f00=0x0085, f01=0x0190, f02=» * P* SEND LINE FEED IF JOURNAL OR TALLY P* 6 P* @ PTPLF EQU * J P LDR A1,A1 P RF(NE) TPLF10 n " P LDK A2,RPH DETACH PRINT HEAD P CF A5,OUTPUT SEND P RF(NZ) ERTP2 JMP IF ERROR . P LDKL A1,MESS INDICATE MESSAGE PRI
0x2ba6b4…2ba848 Dummy {f00=0x0085, f01=0x018e, f02=»2 GET INDEX TABLE $ P LC A2,LFTAB,A7 GET LF CHARACTER P CF A5,OUTPUT SEND LF CHAR. B P RF(NZ) ERTP2 JMP IF ERROR f . PTPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH * P ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH P EJECT P* P*
0x2ba848…2ba9dc Dummy {f00=0x0085, f01=0x0190, f02=» P CF A5,OUTPUT P RF(NZ) ERTP2 JMP IF ERROR " P CF A5,ENDBLK END OF BLOCK =3 @ & PERTP2 RF(NZ) ERTP3 JMP IF ERROR =3 f P EJECT P* P* 0 P* CHECK STATUS AFTER LAST DUMMY CHARACTER P* PTPTST EQU * P LD
0x2ba9dc…2bab70 Dummy {f00=0x0085, f01=0x0190, f02=»TST005 LC A2,DWTDEV+1,A6 GET STATUS =2 P ANK A2,VOIN VOUCHER OUT ? ! . P RF(NZ) ENDIO NO ! P P RF TST015 YES ! h P* ! ~ PTST010 SUK A7,4 ! P IFT CUTPER=0 ! * P RF(G) ENDIO NOT TEST STATUS, JOURNAL ! P XIF ! P IFT CUTPER=1 ! * P R
0x2bab70…2bad04 Dummy {f00=0x0085, f01=0x0190, f02=»JOURNAL TAPE? ! | $ P RF(NZ) ENDIO NO: PERFORM ENDIO " * PTST015 ORKL A1,PROUT SET RETURN CODE: " > P " l ( P END OF JOURNAL TAPE, VOUCHER OUT " t P* " , P* PERFORM END I/O AND GO TO DISPATCHER " P* " PENDIO EQU * " P =3 " 0 P L
0x2bad04…2bae98 Dummy {f00=0x0085, f01=0x0190, f02=» TO DISPATCHER " n P* # P IFT CUTPER=1 # PTST020 SUK A7,16 # 6 " P RB(L) ENDIO VOUCHER/PASSBOOK # N P SUK A7,4 # t P RB(G) ENDIO GRASP,RELEASE # P RB TST012 CUT,PERFORATE # P XIF # P EJECT # P* # P* # P* # $ P* ORDE
0x2bae98…2bb02c Dummy {f00=0x0085, f01=0x0190, f02=»407 LDKL A3,BUF3 SEND CR2 AND ATTACH # PTP410 EQU * $ , P LDKL A1,VOCHA $ @ @ P ORS A1,DWTDEV,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED $ V P RB TP210 $ P EJECT $ P* $ P* $ P* $ * P* ORDER 06 : WRITE VOUCHER/PASSBOOK $ * P*
0x2bb02c…2bb1c0 Dummy {f00=0x0085, f01=0x018e, f02=»ART OF BLOCK =2 $ " P RF(NZ) ERTP3 JMP IF ERROR =2 % " P CF A5,GRASP GRASP VOUCHER =2 % > 2 P LC A2,DWTDEV+RLN,A6 GET REQUESTED LINE NO. =2 % d P ANK A2,/FF CLEAN =2 % ( P SUR A2,A3 GET /REQ.-ACT./ LINE NO. % P RF(NN) TP608 % P =2 % P N
0x2bb1c0…2bb354 (1, 729) Dummy {f00=0x0085, f01=0x0190, f02=» % P* & P* & * P* SEND ELEVATOR UP/DOWN UNTIL ACTUAL & & P* LINE NUMBER IS EQUAL REQUESTED & J P* & t P* & ~ 2 PTP610 CC A3,DWTDEV+RLN,A6 COMPARE LINE NUMBER & P RF(E) TP650 EQUAL & " P RF(G) TP630 SEND ELEVATOR UP & " P LDK A2,LD
0x2bb354…2bb4e8 Dummy {f00=0x0085, f01=0x018e, f02=»UK A3,1 DECREMENT ACTUAL LINE NUMBER & P* ' , & PTP640 CF A5,OUTPUT SEND LIFT CHAR ' 6 P RF(NZ) ERTP3 JMP IF ERROR ' ` P* ' 0 P SC A3,DWTDEV+ALN,A6 SAVE ACTUAL LINE NUMBER ' $ P LC A2,DWTDEV+1,A6 GET STATUS =2 ' P ANK A2,VOIN VOUCHER IN ? '
0x2bb4e8…2bb67c Dummy {f00=0x0085, f01=0x018e, f02=» ' 2 P RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED ( & PTP645 LDKL A1,PROUT 'VOUCHER OUT' ( > , P ORS A1,ECBRC,A8 INDICATE IN RETURN CODE ( h P LDK A2,RPH RETURN PRINTHEAD ( P CF A5,OUTPUT ( P RF(NZ) ERTP3 JMP IF ERROR ( P RB TPDUMY ( P X
0x2bb67c…2bb810 Dummy {f00=0x0085, f01=0x0190, f02=» P* ) P* ) PTP650 EQU * ) P CF A5,ENDBLK END OF BLOCK ) , $ PERTP3 RF(NZ) ERTP4 JMP IF ERROR ) N & P LDKL A3,BUF2 SEND CR2 AND ATTACH ) v P RB TP410 PRINT ECB-BUFFER ) P EJECT ) P IFT CUTPER=1 ) P* ) 4 P* ORDER 22 AND 26 CU
0x2bb810…2bb9a4 Dummy {f00=0x0085, f01=0x0190, f02=»0 SET INDEX ) PTP760 LDK A2,/4 BLOCK LENGTH * P CF A5,STABLK START OF BLOCK * 8 P RF(NZ) ERTP4 JMP IF ERROR * P LC A2,CPTAB,A3 GET CHAR * ~ P CF A5,OUTPUT SEND * P RF(NZ) ERTP4 JMP IF ERROR * P =3 * P RB TPDUMY * P XIF * P*
0x2bb9a4…2bbb38 Dummy {f00=0x0085, f01=0x0190, f02=»F A5,STABLK START OF BLOCK * P RF(NZ) ERTP4 JMP IF ERROR + " P CF A5,GRASPA + D " PTP850 LDK A2,1 BLOCK LENGTH =2 + Z $ P CF A5,STABLK START OF BLOCK =2 + " P RF(NZ) ERTP4 JMP IF ERROR =2 + P RB TPDUMY + PTP900 EQU * + P CF A5,RELEAS +
0x2bbb38…2bbccc Dummy {f00=0x0085, f01=0x0190, f02=»R UNTIL REQUESTED + ` P* LENGTH IS REACHED , P* , 8 . PPRBUF LD A4,ECBRL,A8 GET REQUESTED LENGTH , B & P SUK A4,2 ADJUST REQUESTED LENGTH , t " P LD A3,ECBBA,A8 BUFFER ADDRESS , ( P* SKIP PRECEDING SPACES IN BUFFER , P ADK A3,2 , " PPRB010
0x2bbccc…2bbe60 Dummy {f00=0x0085, f01=0x018e, f02=»10 GET NEXT CHARACTER , > P* LOOK IF CARRIAGE RETURN CHAR (/09,/0D) LAST IN BUFFER - $ PPRB050 LDR A1,A3 GET ADDRESS TO - ` ( P ADR A1,A4 LAST CHARACTER IN BUFFER - P LC A1,-1,A1 GET CHAR - * P CCK A1,/0909 CARRIAGE RETURN - CR2 ? - P RF(E) P
0x2bbe60…2bbff4 (1, 730) Dummy {f00=0x0085, f01=0x0190, f02=» - . PPRB060 SUK A4,1 DECREMENT REQUESTED LENGTH . , PPRB070 ST A1,ECBEL,A8 SAVE CHAR. IN ECB . : P* . j P* . t . PPRB100 SUK A4,1 DECREMENT REQUESTED LENGTH . ~ P RF(NN) PRB105 PRINT BUFFER . 6 P LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) .
0x2bbff4…2bc188 Dummy {f00=0x0085, f01=0x0190, f02=»LOCK . z P =3 / $ PERTP4 RF(NZ) ERTP5 JMP IF ERROR / P =3 / B P LDK A2,2 BLOCK LENGTH =3 / P P CF A5,STABLK START OF BLOCK / r P RF(NZ) ERTP5 JMP IF ERROR / P =3 / PPRB102 RTN A5 / P EJECT / P* / P* / P* / P
0x2bc188…2bc31c Dummy {f00=0x0085, f01=0x018e, f02=»DER =3 / ~ P RF(L) PRB200 PRINT JOURNAL 0 P RF(G) PRB110 PRINT VOUCHER 0 2 P EJECT 0 V P* 0 d P* 0 n P* 0 x P* PRINT TALLY ROLL 0 P* 0 P* 0 P* 0 $ P LC A2,DWTDEV+1,A6 GET STATUS =2 0 P ANK A2,VOIN VOUCHER IN ? 0 " P R
0x2bc31c…2bc4b0 Dummy {f00=0x0085, f01=0x0190, f02=» 0 t * P ABL TP405 SEND LIFT TO TOP AND RELEAS 1 P* 1 6 P* 1 @ P* 1 J P* PRINT VOUCHER/PASSBOOK 1 T P* 1 v P* 1 * PPRB110 LC A2,DWTDEV+1,A6 GET STATUS =2 1 P ANK A2,VOIN VOUCHER IN ? 1 P IFT COMPL=0 1 & P RF(Z) RCTP ERROR .VOUCHER
0x2bc4b0…2bc644 Dummy {f00=0x0085, f01=0x0190, f02=» 3? 1 $ P RF(N) PRB200 YES: NO TABULATION 2 P LDK A1,TAB 2 4 P CC A1,-2,A3 TABULATION? 2 H P RF(NE) PRB200 NO 2 h P EJECT 2 P* 2 P* 2 4 P* IF TABULATION CHARACTER: DETACH PRINT HEAD, 2 < P* SEND CHARACTERS UNTIL TABULATION POSITIO
0x2bc644…2bc7d8 Dummy {f00=0x0085, f01=0x0190, f02=» DETACH 2 ~ P RF(NZ) ERTP5 JMP IF ERROR 3 , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 3 2 $ P LCR A1,A3 GET 2ND TAB POS CHAR 3 b P ANK A1,/F LINE UNIT 3 P SLL A2,4 3 P ANK A2,/F0 LINE DECADE 3 " P ORR A1,A2 DECIMAL LINE NUMBER 3 $ P CF A5,BCD
0x2bc7d8…2bc96c Dummy {f00=0x0085, f01=0x018e, f02=»* 3 P* 4 0 P IM DWTDEV+PCO,A6 INCREMENT POSITION COUNTER 4 P LDK A2,/20 LOAD BLANK 4 H ( P CF A5,OUTPUT SEND BLANKS OR DETACH 4 f $ PERTP5 RF(NZ) ERTP6 JMP IF ERROR 4 P RB PRB117 4 P* 4 P* 4 P* 4 . PPRB125 SUK A4,2 DECREMENT REQU
0x2bc96c…2bcb00 Dummy {f00=0x0085, f01=0x0190, f02=» 4 P* 5 P* 5 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF 5 P* - ROOMLESS POINT 5 R P* - ILLEGAL CHARACTER 5 n & P* - SPECIAL CHARACTER (/13,/14) 5 P* 5 PPRB200 EQU * 5 * PPRB205 LCR A7,A3 LOAD OUTPUT CHARACTER 5 " P CCK
0x2bcb00…2bcc94 (1, 731) Dummy {f00=0x0085, f01=0x0190, f02=»UTPUT CHARACTER 5 P ANK A7,/F MASK 6 & P LC A7,ROMTAB,A7 GET CODE IN TABLE 6 0 P* 6 Z P* 6 d P* 6 n , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 6 x P RF(L) PRB225 YES 6 , PPRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? 6 P RF(NG) PRB230 NO 6
0x2bcc94…2bce28 Dummy {f00=0x0085, f01=0x0190, f02=» 6 P IFT CHR14=1 7 & P CCK A7,/1414 SPECIAL CHARACTER ? 7 P RF(E) PRB230 YES 7 F P XIF 7 ` P* 7 l " P LDK A1,CCERR CODE CHECK ERROR 7 v * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 7 P RF PRB245 7 P* 7 P* 7 P* 7 2 PPRB230 IM DWTD
0x2bce28…2bcfbc Dummy {f00=0x0085, f01=0x0190, f02=»JMP IF ERROR 7 , PPRB245 SUR A3,A4 START OF BUFFER ADDRESS 8 P LD A7,DWTOR,A6 GET ORDER 8 D P ANK A7,/FF 8 f P RB PRB100 8 z P* 8 P* 8 P* 8 P EJECT 8 P* 8 P* I H T P 8 P* 8 0 P* INTERRUPT HANDLER: PROCESS OF INTERR
0x2bcfbc…2bd150 Dummy {f00=0x0085, f01=0x0190, f02=»AVE OLD STATUS =2 8 2 P SC A2,DWTDEV+1,A6 STORE NEW STATUS IN DWT =2 9 . P ANKL A4,VOCHA STATUS CHANGE ALLOWED ? =2 9 P P RF(Z) IHTP10 YES =2 9 " P XRS A4,DWTDEV,A6 RESET BIT =2 9 , P XRR A3,A2 COMPARE OLD AND NEW STATUS =2 9 , P ANK A3,VOIN VOUCHER
0x2bd150…2bd2e4 Dummy {f00=0x0085, f01=0x0190, f02=»TE STATUS CHANGE =2 9 ~ $ P RF RCTP FOR RECOVERY ROUTINE =2 : " PIHTP10 LDR A4,A3 OLD STATUS =2 : D 2 P ANKL A4,WAICHA WAITING FOR STATUS CHANGE ? =2 : j * P RF(Z) RCTP10 NO, GO TO DISPATCHER =2 : , P XRR A3,A2 COMPARE OLD AND NEW STATUS =2 : , P ANK A3,VO
0x2bd2e4…2bd478 Dummy {f00=0x0085, f01=0x0190, f02=» 0 P ABL NDREP GET A3-A5,A7-A8 AND RET VIA A5 =2 ; P* ; 8 P* ; B P* ; L P EJECT ; V P* ; d P* R C T P ; n P* ; > P* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON ; P* ; PRCTP EQU * ; P* ; P LDKL A2,/FFFF-WAICH
0x2bd478…2bd60c Dummy {f00=0x0085, f01=0x0190, f02=» LDKL A5,DWTSB2 STACK BASE ; P ADR A5,A6 < " P LDK A2,/3 BLOCK LENGTH < 4 P CF A5,STABLK START OF BLOCK < T " PERTP6 RF(NZ) ERTP JMP IF ERROR < x P LD A2,DWTECB,A6 < & P RF(Z) RCTP05 REQUEST NOT RUNNING < P* < < P LDK A2,REMOT RESET PRINT BU
0x2bd60c…2bd7a0 Dummy {f00=0x0085, f01=0x0190, f02=»ATUS CHANGE ? < P RF(Z) RCTP05 NO = P ABL TP645 COMPLETE REQUEST = . P XIF = R PRCTP05 EQU * = ^ P LDK A2,0 = r 6 P SC A2,DWTDEV+ALN,A6 STORE 0 AS ACTUAL LINE NUMBER = P LDK A2,LFF LIFT TO TOP = P CF A5,OUTPUT = P RF(NZ) ERTP JMP IF
0x2bd7a0…2bd934 (1, 732) Dummy {f00=0x0086, f01=0x0190, f02=»LENDIS REQUEST NOT RUNNING =3 = PRCTP07 EQU * > & P IFT RECOV=1 > < $ P LDKL A2,/100 INDICATE POWER OFF > P P ORS A2,8,A8 SET RETURN CODE > x P XIF > P LDK A4,1 IND RECOVERY > P =3 > $ P LD A7,DWTOR,A6 SET ORDER IN A7 > P ANK A7,/FF
0x2bd934…2bdac8 Dummy {f00=0x0086, f01=0x0190, f02=» > P* ? 4 P* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL ? P* ? J P* ? T P* ? ^ . PBCDTBY LDR A2,A1 PUT DECIMAL NUMBER IN A2 ? h PBCDTB1 SUK A2,/10 ? P RF(N) BCDTB2 END ? P SUK A1,6 DECREMENT BY 6 ? P RB BCDTB1 ? " PBCDTB2
0x2bdac8…2bdc5c Dummy {f00=0x0086, f01=0x0190, f02=» GRASP TO VOUCHER/PASSBOOK ? z P* @ " P* @ , PGRASPA EQU * @ 6 P LDK A2,LFF LIFT TO TOP @ J P CF A5,OUTPUT @ j P RF(NZ) ERTP JMP IF ERROR @ PGRASP EQU * @ P LDK A3,0 @ P LDK A2,GRA GRASP @ P CF A5,OUTPUT @ P RF(NZ) ERTP JMP
0x2bdc5c…2bddf0 Dummy {f00=0x0086, f01=0x0190, f02=» LC A3,DWTDEV+ALN,A6 GET ACTUAL LINE NO. =2 @ ( PGRAS10 CF A5,ENDBLK END OF BLOCK =2 A 4 P RF(NZ) ERTP JMP IF ERROR =2 A ` P RTN A5 RETURN =2 A P* A P* A P* A P* A 0 P* ERROR ROUTINE FOR STABLK,OUTPUT AND ENDBLK A P* A P* IN
0x2bddf0…2bdf84 Dummy {f00=0x0086, f01=0x018e, f02=» RF(NZ) ERTP20 ORDER /00 ? A ( PERTP15 LDK A1,1 YES,SET RETURN CODE B " * P ABL LENDIS NOT OPER. & END OF REQUEST B N 8 PERTP20 ANK A1,/1A SOFTW. TIME OUT,LRC OR LINK ERROR B | P RB(NZ) RCTP YES RECOVERY B P IFT RELEND=0 B P ABL LDISP DISPATCH B
0x2bdf84…2be118 Dummy {f00=0x0086, f01=0x0190, f02=» P* C 2 P* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE C P* C D P* C N P* C X PRELEAS EQU * C b P LDK A2,/4 BLOCK LENGTH C v P CF A5,STABLK START OF BLOCK C P RB(NZ) ERTP JMP IF ERROR C P LDK A1,0 C 4 P SC A1,DWTDEV+ALN,A6 SET A
0x2be118…2be2ac Dummy {f00=0x0086, f01=0x0190, f02=» GET STATUS =2 C ~ P ANK A4,VOIN VOUCHER IN ? =2 D P RB(Z) GRAS10 NO, RETURN =2 D : P LDK A2,REL RELEASE =2 D ^ P CF A5,OUTPUT =2 D | P RB(NZ) ERTP JMP IF ERROR =2 D P* D 4 P* COMMON END FOR GRASP AND RELEASE SUBROUTINES D 2 P* WHEN A C
0x2be2ac…2be440 Dummy {f00=0x0086, f01=0x0190, f02=» P CF A5,OUTPUT =2 E P RB(NZ) ERTP JMP IF ERROR =2 E " P CF A5,ENDBLK END OF BLOCK =2 E B P RB(NZ) ERTP JMP IF ERROR =2 E h $ P LC A2,DWTDEV+1,A6 GET STATUS =2 E 2 P XRR A4,A2 VOUCHER ST. CHANGED SINCE LAST? =2 E & P RF(NZ) COM020 YES, DON'T WAIT
0x2be440…2be5d4 (1, 733) Dummy {f00=0x0086, f01=0x0190, f02=»C H R E P* F < P* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN F ( P* FIRST CHARACTER IN OUTPUT BUFFER F X P* F P* F 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS F P ANK A4,/FF MASK F , PBUFC10 ADK A3,1 INCREMENT BUFFER
0x2be5d4…2be768 Dummy {f00=0x0086, f01=0x0190, f02=»DECREMENT COUNTER F & P RB(NZ) BUFC10 NOT LAST CHARACTER G PBUFRTN EQU * G D P RTN A5 RETURN TO CALLER G X P* G x P* G P* W A I T G P* G 4 P* SUBROUTINE USED TO INITIATE WAIT FOR CHANGE G P* IN VOUCHER STATUS. G 0 P* RETU
0x2be768…2be8fc Dummy {f00=0x0086, f01=0x40e8, f02=» =2 G . P CF A15,NDSAV8 SAVE A3-A5,A7-A8 IN DWT =2 H P LDKL A3,WAICHA =2 H > 4 P ORS A3,DWTDEV,A6 INDICATE 'WAIT FOR STATUS' =2 H Z P ABL LDISP DISPATCH =2 H P* H P* H P* H P* H P END H @ H VOUCHER STATUS. G 0 P* RETU
0x2be8fc…2bea90 Dummy {f00=0x0086, f01=0x2008, f02=» I * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x2bea90…2bec24 Dummy {f00=0x0086, f01=0x0190, f02=» UP TO FOUR REMOTE CHANNEL CARDS. P* * PX:D EQU 0 4 PRECHAN EQU X:D F P* P* f P EJECT p P* ~ , P* REMFC IS " REMOTE TEST FILE CODE " P* STANDARD IS /15 P* PX:E EQU /15 PREMFC EQU X:E P
0x2bec24…2bedb8 Dummy {f00=0x0086, f01=0x0190, f02=»LUDED. Z @ P* THE EXCLUSION IS ONLY POSSIBLE IF THE DRIVER IS ADAPTED , P* FOR ONLY LOCAL TERMINALS (RECHAN=0). R P* PX:F EQU 1 U =4 PSOFTIM EQU X:F U =4 P* P* B P* IF X:G = 1 THE DRIVER CAN HANDLE OUTPUT TO KEYBOAR
0x2bedb8…2bef4c Dummy {f00=0x0086, f01=0x0190, f02=» P* 8 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 0 P* SET IS OBTAINED BY SETTING CPU852 EQU 0. J P* ~ PCPU852 EQU 1 P* P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG TO
0x2bef4c…2bf0e0 Dummy {f00=0x0086, f01=0x0190, f02=»ENTS * ~ P*************************** P* 6 " P* LOCAL AND REMOTE TERMINALS @ P* f P* p PCWTLDW EQU 0 LAST OUTPUT DWT z " PCWTLOW EQU 2 LAST OUTPUT WORD , PCWTITA EQU 4 ADDRESS TO INTERRUPT TABLE PCWTINR EQU 6 INR
0x2bf0e0…2bf274 (1, 734) Opaque[0x194]
0x2bf274…2bf408 # DirEnt {nam=»DRTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b30, f03=0x0000}
0x2bf274…2bf408 IdxSect {
0x2bf274…2bf408 f00 = 0x00d9 // 0x2bf274 @0x0
0x2bf274…2bf408 f01 = 0x0018 // 0x2bf276 @0x2
0x2bf274…2bf408 gno = [ // 0x2bf278 @0x4
0x2bf274…2bf408 [0x00]: C0x00d9.0x2.0
0x2bf274…2bf408 [0x01]: C0x00d9.0x3.0
0x2bf274…2bf408 [0x02]: C0x00da.0x0.0
0x2bf274…2bf408 [0x03]: C0x00da.0x1.0
0x2bf274…2bf408 [0x04]: C0x00da.0x2.0
0x2bf274…2bf408 [0x05]: C0x00da.0x3.0
0x2bf274…2bf408 [0x06]: C0x00db.0x0.0
0x2bf274…2bf408 [0x07]: C0x00db.0x1.0
0x2bf274…2bf408 [0x08]: C0x00db.0x2.0
0x2bf274…2bf408 [0x09]: C0x00db.0x3.0
0x2bf274…2bf408 [0x0a]: C0x00dc.0x0.0
0x2bf274…2bf408 [0x0b]: C0x00dc.0x1.0
0x2bf274…2bf408 ]
0x2bf274…2bf408 }
0x2bf408…2bf59c Dummy {f00=0x00d9, f01=0x0190, f02=» 2 P IDENT DRTP03 REL 11.0 81-06-24 870105041100 P : P =4,GREEK CHAR. INCL. B P REL 11.0 81-01-26 b P =3,IMPROV. OF ORDER 37 ~ P REL 11.0 81-01-26 P =2,CORR. FOR ODD ECBADDR. P REL 11.0 81-01-26 P =1,ABORT
0x2bf59c…2bf730 Dummy {f00=0x00d9, f01=0x0190, f02=» * ~ < P* PHILIPS TERMINAL SYSTEM PTS * . < P* * n < P* DRTP03 = DRIVER TELLER TERMINAL PRINTER * < P*
0x2bf730…2bf8c4 Dummy {f00=0x00d9, f01=0x018e, f02=»********************* n P* < P* THIS DRIVER HANDLES TELLER TERMINAL PRINTER PTS 6371 ( P* h , P* AND CONSISTS OF THE FOLLOWING PARTS: r P* $ P* A C T P : ACTIVATION PART P* $ P* R C T P : RECOVERY ROUTINE P*
0x2bf8c4…2bfa58 Dummy {f00=0x00d9, f01=0x0190, f02=» > P* THE STRING BEGINS WITH A DEDICATED PRINTER CHARACTER. > P* THE CONTENTS OF THE STRING IS EITHER A FIXED FORMATTED F 2 P* BUFFER OR FOR ORDER WRITE THE USER BUFFER. > P* THE STRING IS TERMINATED WITH AN EXECUTION CHARACTER. : P* AFTE
0x2bfa58…2bfbec Dummy {f00=0x00d9, f01=0x0190, f02=»E RECOVERY ROUTINE IS ENTERED AFTER PROGRAM LOADING, @ P* AFTER POWER ON FROM TERMINAL SIDE AND AFTER TRANSMISSION < P* TIME OUT. > P* THE RECOVERY ROUTINE SENDS A FIXED FORMATTED STRING TO @ P* THE PRINTER. THIS STRING CONTAINS THE ACTUAL
0x2bfbec…2bfd80 Dummy {f00=0x00d9, f01=0x0190, f02=» $ P* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE , * P* ORDER 0B : POSITION DOCUMENT N . P* ORDER 24 : SET PRINTER PARAMETERS | 0 P* ORDER 27 : SET DOCUMENT PARAMETERS 4 P* ORDER 37 : TRANSFER DOCUMENT
0x2bfd80…2bff14 (1, 735) Dummy {f00=0x00d9, f01=0x0190, f02=»T 0 : REQUEST ERROR & P* BIT 2 : END OF JOURNAL $ $ P* BIT 10 : DOCUMENT OUT N ( P* BIT 13 : CODE CHECK ERROR v $ P* BIT 15 : NOT OPERABLE P* P* P* NORMAL REGISTER USAGE: P* "
0x2bff14…2c00a8 Dummy {f00=0x00d9, f01=0x0190, f02=»UTPUT COUNTER ~ " P* A5: STACK POINTER P* A6: DWT-ADDRESS < P* A7: ORDER ` P* A8: ECB-ADDRESS ~ P* P* P EJECT P* P*********** P* ENTRIES * P***********
0x2c00a8…2c023c Dummy {f00=0x00d9, f01=0x0190, f02=»******* P* P* , P EXTRN LDISP DISPATCHING FROM INTERRUPT $ $ P EXTRN LENDER DISPATCH I/O ERROR T & P EXTRN LENDIS END I/O AND DISPATCH | & P EXTRN OUTPUT OUTPUT ONE CHARACTER 0 P EXTRN GETCHR GET CHARACTER FROM ECB BUFFER ( P EXT
0x2c023c…2c03d0 Dummy {f00=0x00d9, f01=0x0190, f02=»SB2 STACK BASE P EXTRN DWTDEV DEVICE STATUS ( P EXTRN DTTP03 DOCUMENT TABLE ADDRESS : ( P EXTRN TLTP03 DOCUMENT TABLE LENGTH f & P EXTRN INPUT GET STATUS INPUT CHAR & P EXTRN STABLK DEF. START OF BLOCK $ P EXTRN ENDBLK DEF. END OF BLOCK
0x2c03d0…2c0564 Dummy {f00=0x00d9, f01=0x0190, f02=» (/00-/0F) r P* PPOTEST EQU /00 TEST PPORECV EQU /01 RECOVERY 8 & PRESTRT EQU /02 RESTART (NOT USED) X PETX EQU /03 EXECUTE ORDER * PPOPPAR EQU /04 SET PRINTER PARAMETERS $ PPODSTA EQU /05 DIAGNOSTIC STATUS " PEXE EQU /06 EX
0x2c0564…2c06f8 Dummy {f00=0x00d9, f01=0x0190, f02=» DOCUMENT | $ PLF EQU /0A LINE FEED (NOT USED) $ PPOPDOC EQU /0B POSITION DOCUMENT : PRESET EQU /0C RESET ORDER b PPOWJRL EQU /0D WRITE JOURNAL PSPEC EQU /0E ROOMLESS POINT PTEST EQU /0F TEST (NOT USED) P* ( PENDJ EQU /2000
0x2c06f8…2c088c Dummy {f00=0x00d9, f01=0x0190, f02=»IONAL ASSEMBLY * P************************ P* 8 4 P* THE STANDARD NATIONAL CHARACTER SET IS CHOSEN B 8 P* BY SETTING X:A TO 0-10 ACCORDING TO THE LIST BELOW z P* P* NCV = 0 GREAT BRITAIN P* 1 GERMANY P* 2 FRANCE 1 P
0x2c088c…2c0a20 Dummy {f00=0x00d9, f01=0x0190, f02=»CE 2 (DEPENDING ON CHAR GEN) z P* 9 USA $ P* 10 DENMARK, NORWAY 2 6 P* T PX:A EQU 0 ^ PSTDNCV EQU X:A p P* ( P* THE CHARACTER FONT CAN BE SELECTED P P* BY SETTING X:B TO : 0=UPPER CASE/SMALL NUMERIC, 1=LOWER CASE/SMALL NUMERIC
0x2c0a20…2c0bb4 (1, 736) Dummy {f00=0x00da, f01=0x0190, f02=» P* F P* THE STANDARD CHARACTER PITCH FOR THE DOCUMENT STATION IS CHOSEN D P* BY SETTING X:C TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH X P* PX:C EQU 2 PSTDCPD EQU X:C P* * P* THE JOURNAL STATION CAN BE EXCLUDED
0x2c0bb4…2c0d48 Dummy {f00=0x00da, f01=0x0190, f02=»TATION IS CHOSEN ` D P* BY SETTING X:F TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH P* ` PX:E EQU 0 j PSTDCPJ EQU X:E | P* : P* THE "SET PARAMETER" ORDERS 24 AND 27 CAN BE INCLUDED P* BY SETTING X:F=1 P* PX:F EQU 0
0x2c0d48…2c0edc Dummy {f00=0x00da, f01=0x0190, f02=»* PMMUPAG EQU 0 P* P* ( 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 2 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. l P* PCPU852 EQU 1 P* P* MMU BUFFER SIZE P* PX:G EQU 126 PDVBLEN E
0x2c0edc…2c1070 Dummy {f00=0x00da, f01=0x0190, f02=» EQU X:H P* B P* THE CHARACTERS /B0-/B9 WILL BE CONVERTED TO /1B,/41-/1B,/4A 4 P* BY SETTING X:I=1. GREEK ADDITIONAL CHARACTERS. ` P* PX:I EQU 0 * =4 PGREEK EQU X:I * =4 P* P* P* P* B PPRIPAR FORM 1=
0x2c1070…2c1204 Dummy {f00=0x00da, f01=0x0190, f02=»S * ~ P********************* P* * P* 4 P* > PPP EQU /2 PRINTER PARAMETERS H PPPJ EQU /4 PRINT POS JOURNAL l * PAPJ EQU PPJ+1 ACTUAL PRINT POS JOURNAL , PRPJ EQU PPJ REQUESTED PRINT POS JOURNAL " PPPD EQU /6 PRINT POS DOCUM
0x2c1204…2c1398 Dummy {f00=0x00da, f01=0x018e, f02=»UMENT t 0 PALN EQU LN+1 ACTUAL LINE NUMBER ON DOCUMENT 0 PRLN EQU LN REQUESTED LINE NUMBER ON DOCUMENT B " PDP EQU /A DOCUMENT PARAMETERS v P* P* P********************* P* ECB-DISPLACEMENTS * P*********************
0x2c1398…2c152c Dummy {f00=0x00da, f01=0x0190, f02=» j " PECBRC EQU 8 RETURN CODE IN ECB $ PECBCW EQU 10 CONTROL WORD IN ECB . P EJECT V P* d P********** n P* TABLES * P********** P* P* P* ADDRESS BLOCK P* P DATA DVBLEN MMU BUFFER SIZE P DATA 2 DE
0x2c152c…2c16c0 Dummy {f00=0x00da, f01=0x0190, f02=»TERRUPT HANDLER P DATA RCTP RECOVERY ROUTINE P* < , P* VALID ORDERS WITH ACTIVATION ADDRESSES F P* v PTPTAB EQU * & P DATA TPTAB0 DEVICE INDEX 0 TABLE & P DATA TPTAB1 DEVICE INDEX 1 TABLE & P DATA TPTAB2 DEVICE INDEX 2 TABL
0x2c16c0…2c1854 (1, 737) Dummy {f00=0x00da, f01=0x0190, f02=»TUS (JOURNAL) P DATA TSTSTA P DATA 6 WRITE JOURNAL * P DATA WRTJRL H P IFT PARORD=1 $ P DATA /24 SET PRINTER PARAMETERS r P DATA PRTPAR P XIF P DATA /FFFF END OF ORDERS P* PTPTAB1 EQU * DEVICE INDEX 1 "
0x2c1854…2c19e8 Dummy {f00=0x00da, f01=0x0190, f02=»T v P DATA POSDOC P DATA /38 RELEASE DOCUMENT P DATA RELDOC @ * P DATA /37 TRANSFER DOCUMENT PARAMETERS T P DATA TRFDOC P IFT PARORD=1 $ P DATA /24 SET PRINTER PARAMETERS P DATA PRTPAR & P DATA /27 SET DOCUMENT PARAMETER
0x2c19e8…2c1b7c Dummy {f00=0x00da, f01=0x0190, f02=»D OF ORDERS P* PTPTAB3 EQU * DEVICE INDEX 3 P DATA /FFFF END OF ORDERS B P* d ( P* SYSTEM STANDARD PRINTER PARAMETERS n P* . PSTDPP PRIPAR STANDARD PRINTER PARAMETERS P EJECT P* P* P* A C T P
0x2c1b7c…2c1d10 Dummy {f00=0x00da, f01=0x0190, f02=» P* P* PACTP EQU * ACTIVATION ENTRY P* @ P* J , P* GET DWT INDEX: 0=JOURNAL, 1=DOCUMENT T P* " P LC A2,DWTOR,A6 GET DWT INDEX P ANK A2,3 MASK P SLL A2,6 SHIFT * P LD A3,DWTDEV,A6 GET OLD DEVICE INDEX
0x2c1d10…2c1ea4 Dummy {f00=0x00da, f01=0x018e, f02=»A6 GET DEVICE INDEX | P ANK A1,/C0 * P SRL A1,5 GET CORESPONDING ORDER TABLE 0 P LD A2,TPTAB,A1 ^ PACT010 LDR* A3,A2 v ( P ABL(N) LENDER NO MORE VALID ORDERS " P SUR A3,A7 TEST IF ORDER VALID $ P RF(E) ACT020 VALID ORDER FOUND
0x2c1ea4…2c2038 Dummy {f00=0x00da, f01=0x0190, f02=» P* ORDER 00 : TEST STATUS P* & P* 0 PTSTSTA EQU * : $ P CM ECBCW,A8 CLEAR CONTROL WORD N P LDK A2,3 BLOCK LENGTH v " P LDK A3,POTEST LOAD TEST ORDER P CF A5,ORDER AND SEND * P CF A5,EXECUT EXECUTE ORDER IN PRINTER P
0x2c2038…2c21cc Dummy {f00=0x00da, f01=0x0190, f02=»ST05 EQU * P LDK A2,3 BLOCK LENGTH ( P LDK A3,PODSTA LOAD DIAGNOSTIC ORDER 0 P CF A5,ORDER AND SEND * P CF A5,EXECUT EXECUTE ORDER IN PRINTER z 0 P SC A2,ECBCW+1,A8 SET UP DIAGN STATUS IN ECB $ P LDK A1,1 INDICATE NOT OPERABLE P RF
0x2c21cc…2c2360 Dummy {f00=0x00da, f01=0x018e, f02=»ST DEVICE INDEX $ P RF(NZ) TSST40 DEVICE INDEX > 0 $ P ANK A1,/22 TEST PRINTER STATUS @ P RF(Z) TSST80 NO ERRORS h " P ANK A1,2 TEST PRINTER STATUS * P RB(NZ) TSST05 JOURNAL ERROR = NOT OP P LDKL A1,ENDJ END OF JOURNAL P RF TSST
0x2c2360…2c24f4 (1, 738) Dummy {f00=0x00da, f01=0x0190, f02=» " PTSST80 ABL LENDIS END REQUEST P EJECT * P* : P* D P* ORDER 06 : WRITE JOURNAL N P* r P* | P IFT JOURNL=1 PWRTJRL EQU * P LD A1,DWTDEV,A6 GET STATUS " P ANK A1,/20 TEST LF INDICATOR P RF(NZ) WRJL10
0x2c24f4…2c2688 Dummy {f00=0x00da, f01=0x0190, f02=» , P LD A2,ECBBA,A8 GET CONTROL CHARACTER =2 P LC A2,1,A2 * =2 4 P ANK A2,/FF L P SUK A2,/2B TEST CTRL CHAR ` P RF(Z) WRJL10 CTRL CHAR =/2B ( P LDK A4,2 SET UP 2 LF (CTRL CH =/30) P SUK A2,5 TEST CTRL CHAR P RF(Z) WRJL05 CTRL CHA
0x2c2688…2c281c Dummy {f00=0x00da, f01=0x0190, f02=» LDK A4,3 SET UP 3 LF (CTRL CH =/31) PWRJL05 EQU * , P LDK A2,4 BLOCK LENGTH @ , P LDK A3,POWJRL LOAD WRITE JOURNAL ORDER ^ P CF A5,ORDER AND SEND & P LDR A2,A4 RELOAD NO OF LINE FEED P CF A5,OUT AND SEND * P CF A5,EXECUT EXECUTE
0x2c281c…2c29b0 Dummy {f00=0x00da, f01=0x0190, f02=»PJ,A6 CLEAR PRINT POSITION " P LDK A1,/20 SET UP LF EXECUTED ! " $ P ORS A1,DWTDEV,A6 IND IN STATUS ! H PWRJL10 EQU * ! p P LD A2,ECBRL,A8 ! P ADK A2,2 BLOCK LENGTH ! . P LC A1,DWTDEV+APJ,A6 GET ACTUAL PRINT POS ! 4 P SC A1,DWTDEV+RPJ,A6 SET UP
0x2c29b0…2c2b44 Dummy {f00=0x00da, f01=0x0190, f02=»IF NO BUFFER ! $ P RF(Z) WRJL60 NO BUFFER TO PRINT " , P LDK A3,POWJRL LOAD WRITE JOURNAL ORDER " < P CF A5,ORDER AND SEND " l " P LDK A2,0 LOAD ZERO LINE FEED " P CF A5,OUT AND SEND " 2 P LDKL A4,/100 SET UP NORMAL CHAR COUNTER IN A4 " $ P LDK A
0x2c2b44…2c2cd8 Dummy {f00=0x00da, f01=0x0190, f02=»HED " v P LDR A1,A2 GET CHAR IN A1 # P* # . 2 P* EXAMINE CHAR AND UPDATE PRINT POS AND SEND # 8 & P* DEPENDING ON TYPE OF CHARACTER # n P* # P SUK A1,/10 # P RB(N) WRJL20 CHAR </10 # P RF(Z) WRJL30 CHAR = /10 # P SUK A1,9 # * P
0x2c2cd8…2c2e6c Dummy {f00=0x00da, f01=0x0190, f02=» SUK A1,7 # P RF(N) WRJL40 CHAR </20 SEND $ P SUK A1,/5F $ 6 P RB(Z) WRJL20 CHAR=/7F $ J P RF(N) WRJL30 CHAR = NORMAL $ h P SUK A1,/2F $ P RF(Z) WRJL28 CHAR =/AE $ P IFT GREEK=1 * =4 $ 4 P CF A5,GRECON CONVERSION FOR GREEK CHARACTERS
0x2c2e6c…2c3000 Dummy {f00=0x00da, f01=0x0190, f02=»D CODE CHECK ERROR $ $ P ORS A1,ECBRC,A8 IN RETURN CODE % P RB WRJL20 % B PWRJL28 LDK A2,/0E % T P RF WRJL40 % n P % P* UPDATE PRINT POSITION % P % < PWRJL30 ADS A4,DWTDEV+RPJ,A6 ADD 1 OR 2 TO REQ PRINT POS % P % P* SEND CHARA
0x2c3000…2c3194 (1, 739) Dummy {f00=0x00da, f01=0x018e, f02=» % r P & P* SEND ETX & P & $ 0 PWRJL50 CF A5,EXECUT EXECUTE ORDER IN PRINTER & , P U =1 & ` " P LDR A1,A2 GET PRINTER STATUS & p $ P ANK A1,/27 TEST PRINTER STATUS & P RF(Z) WRJL60 NO ERRORS & " P ANK A1,3 TEST PRINTER STATUS & P RF(
0x2c3194…2c3328 Dummy {f00=0x00da, f01=0x0190, f02=» & r < PWRJL60 LC A3,DWTDEV+RPJ,A6 GET REQUESTED PRINT POSITION ' 6 P SC A3,DWTDEV+APJ,A6 SET UP ACTUAL PRINT POSITION ' H P RF WRJL70 ' * PWRJL65 LDK A1,1 INDICATE NOT OPERABLE ' " PWRJL70 ABL LENDIS END REQUEST ' 4 PWRJL80 ABL LENDER END REQUEST WI
0x2c3328…2c34bc Dummy {f00=0x00da, f01=0x0190, f02=»OC EQU * ' ( P LC A4,DWTDEV+ALN,A6 GET ACTUAL LINE ( P ANK A4,/FF ( < ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH ( P $ P SUK A1,2 TEST REQUESTED LENGTH ( | P RF(N) WRDO80 REQUEST ERROR ( , P LD A2,ECBBA,A8 GET CONTROL CHARACTER =2 ( P LC A2,1,A2 * =2
0x2c34bc…2c3650 Dummy {f00=0x00da, f01=0x0190, f02=» ( P LDK A3,0 PREPARE NEW REQ PRINT POS ) * P ADK A4,2 SET REQ LINE = ACT LINE + 2 ) 0 P SUK A2,5 ) ^ " P RF(Z) WRDO05 CTRL CHAR = /30 ) p * P SUK A4,1 SET REQ LINE = ACT LINE + 1 ) P SUK A2,1 ) & P RF(NZ) WRDO05 CTRL CHAR NOT = /31 ) P LDK A4,
0x2c3650…2c37e4 Dummy {f00=0x00da, f01=0x0190, f02=»INES ) r : PWRDO07 SC A3,DWTDEV+RPD,A6 SET UP START REQ PRINT POS * , P SC A4,DWTDEV+RLN,A6 SET UP REQ LINE NO * J P LDR A4,A4 * z P RF(Z) WRDO80 REQ LINE=ZERO * PWRDO10 EQU * * P LD A2,ECBRL,A8 * P ADK A2,2 BLOCK LENGTH * ( P LDK A3,POWDOC
0x2c37e4…2c3978 Dummy {f00=0x00da, f01=0x0190, f02=»SET UP NORMAL CHARACTER COUNT * $ P LDK A3,2 SET UP BUFFER POINTER + & 6 PWRDO20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER + N P LDR A1,A1 + " P RF(Z) WRDO50 BUFFER FINISHED + P LDR A1,A2 GET CHARACTER + P + 8 P* EXAMINE CHARACTER AND UPDATE
0x2c3978…2c3b0c Dummy {f00=0x00da, f01=0x0190, f02=» WRDO30 CHAR = /10 SEND + PWRDO22 SUK A1,9 , * P RF(NZ) WRDO27 CHAR NOT /19 (=EXPAND) , 8 , P XRKL A4,/300 SWITCH CHAR COUNTER IN A4 , f P RF WRDO40 SEND EXPAND CHAR , PWRDO27 SUK A1,7 , " P RF(N) WRDO40 CHAR < /20 SEND , P SUK A1,/5F ,
0x2c3b0c…2c3ca0 Dummy {f00=0x00da, f01=0x0190, f02=» * =4 , 4 P CF A5,GRECON CONVERSION FOR GREEK CHARACTERS =4 - P LDR A1,A1 * =4 - F * P RF(Z) WRDO30 SUCCESSFUL CONVERSION =4 - ^ P XIF * =4 - ( P LDK A1,4 INDICATE CODE CHECK ERROR - $ P ORS A1,ECBRC,A8 IN RETURN CODE - P RB WRDO20 - & PWRDO
0x2c3ca0…2c3e34 (1, 740) Dummy {f00=0x00db, f01=0x0190, f02=» 2 TO REQ PRINT POS - l P . " P* SEND CHARACTER TO PRINTER . $ P . J & PWRDO40 CF A5,OUTPUT SEND CHARACTER . R P ABL(NZ) ERTP JMP IF ERROR . | P RB WRDO20 GET NEXT CHAR . P . P* SEND ETX . P . 0 PWRDO50 CF A5,EXECUT EXECUTE ORDER IN P
0x2c3e34…2c3fc8 Dummy {f00=0x00db, f01=0x0190, f02=» " P ANK A1,1 TEST PRINTER STATUS / P RF(NZ) WRDO70 NOT OPERABLE / * " P ANK A2,4 TEST PRINTER STATUS / N P RF(NZ) WRDO80 REQUEST ERROR / t ( P LC* A1,DWTDEV+DP,A6 DOCUMENT OUT =3 / ( P ANK A1,/78 TEST DOC PAR (TIME OUT) / 0 P RB(NZ) WRTDOC NO TIME O
0x2c3fc8…2c415c Dummy {f00=0x00db, f01=0x0190, f02=»ER / l P RF WRDO65 0 8 PWRDO60 LC A3,DWTDEV+RLN,A6 GET REQUESTED LINE NUMBER 0 6 P LC A4,DWTDEV+RPD,A6 GET REQUESTED PRINT POSITION 0 X 8 PWRDO65 SC A3,DWTDEV+ALN,A6 SET UP ACTUAL LINE NUMBER 0 6 P SC A4,DWTDEV+APD,A6 SET UP ACTUAL PRINT POSITION 0 P
0x2c415c…2c42f0 Dummy {f00=0x00db, f01=0x018e, f02=»APD,A6 GET ACTUAL LINE NUMBER 0 | P ANK A3,/FF 1 & 6 P ST A3,ECBCW,A8 SET UP ACTUAL LINE IN CONTROL WORD 1 : . P ABL LENDER END REQUEST WITH REQUEST ERROR 1 t P EJECT 1 P* 1 P* 1 $ P* ORDER 0B : POSITION DOCUMENT 1 0 P* CONTROL WORD CONTAIN
0x2c42f0…2c4484 Dummy {f00=0x00db, f01=0x018e, f02=» 1 t . P LD A1,DWTDEV+DP,A6 GET NUMBER OF LINES =3 2 P CC A4,2,A1 * =3 2 : & P RF(G) PDOC80 REQ LINE > MAX LINE 2 R , P SC A4,DWTDEV+RLN,A6 SET UP REQ LINE NO 2 | P LDK A2,4 BLOCK LENGTH 2 : P LDK A3,POPDOC SET UP PRINTER POSITION DOCUMENT ORDER 2 P
0x2c4484…2c4618 Dummy {f00=0x00db, f01=0x018e, f02=» " P LDR A1,A2 GET PRINTER STATUS 3 $ P ANK A1,/45 TEST PRINTER STATUS 3 * P RF(Z) PDOC10 NO ERRORS 3 R " P ANK A1,1 TEST PRINTER STATUS 3 r P RF(NZ) PDOC70 NOT OPERABLE 3 " P ANK A2,4 TEST PRINTER STATUS 3 P RF(NZ) PDOC80 REQUEST ERROR 3 ( P L
0x2c4618…2c47ac Dummy {f00=0x00db, f01=0x0190, f02=» ( P LDK A1,DOCOUT INDICATE DOCUMENT OUT 4 P LDK A4,0 RESET LINE COUNTER 4 0 6 PPDOC10 SC A4,DWTDEV+ALN,A6 PDATE OF LINE COUNTER 4 T 2 P CM DWTDEV+PPD,A6 RESET PRINT POSITION COUNTER 4 " PPDOC70 ABL LENDIS END REQUEST 4 4 PPDOC80 ABL LENDER END REQUEST
0x2c47ac…2c4940 Dummy {f00=0x00db, f01=0x0190, f02=»NVERTED 4 b 0 P* TO /41-/4A. THE SPECIAL CHARACTER /1B WILL 5 0 P* BE SENT TO THE PRINTER BEFORE RETURN FROM 5 D > P* THIS ROUTINE. REG A1 WILL BE SET TO ZERO IF SUCCESSFUL. 5 x P IFT GREEK=1 * =4 5 PGRECON EQU * * =4 5 P SUK A1,2 * =4 5 P RF(
0x2c4940…2c4ad4 (1, 741) Dummy {f00=0x00db, f01=0x0190, f02=» TEMP =4 5 | & P LDK A2,/1B SET UP SPECIAL CHAR =4 6 $ P CF A5,OUTPUT SEND CHARACTER =4 6 : P LDR A2,A4 RESTORE CHAR =4 6 b P ANK A2,/FF * =4 6 0 P SUK A2,/6F CONVERT CHAR (/B0 = /41 ETC.) =4 6 & P ANKL A4,/FF00 CLEAR USED BITS =4 6 0 P LDK A1,0 INDI
0x2c4ad4…2c4c68 Dummy {f00=0x00db, f01=0x0190, f02=»NSFER DOCUMENT PARAMETERS 6 ~ 4 P* CONTROL WORD CONTAINS DOCUMENT TABLE NUMBER 7 " P* 7 Z P* 7 d PTRFDOC EQU * 7 n P LD A1,ECBCW,A8 7 P ADK A1,1 7 P LDR A4,A1 7 P SLL A4,3 7 P ADR A4,A1 7 P ADR A4,A1 7 P CWK A4,TLTP03 7 ,
0x2c4c68…2c4dfc Dummy {f00=0x00db, f01=0x0190, f02=»NE 7 n P ANK A1,/FF TEST LINE NUMBER 8 , P RF(Z) ODOC20 DOCUMENT NOT YET POS (OK) 8 . $ P LCR A1,A4 GET DOCUMENT TYPE =3 8 ^ P ANK A1,4 8 0 P RF(Z) ODOC80 REQUEST ERROR FOR DOC TYPE 0-3 8 PODOC20 EQU * 8 , P ST A4,DWTDEV+DP,A6 SAVE DOC PAR ADDR =3
0x2c4dfc…2c4f90 Dummy {f00=0x00db, f01=0x0190, f02=»P TABLE LENGTH =3 8 * PODOC30 LCR A2,A4 GET DOC PARAMETER =3 9 P CF A5,OUT SEND PARAMETER =3 9 H " P ADK A4,1 INC TABLE POINTER =3 9 l & P SUK A3,1 DEC PARAMETER COUNTER =3 9 ( P RB(NE) ODOC30 WHOLE TABLE NOT SENT 9 * P CF A5,EXECUT EXECUTE ORDER IN P
0x2c4f90…2c5124 Dummy {f00=0x00db, f01=0x0190, f02=» 9 r 4 PODOC80 ABL LENDER END REQUEST WITH REQUEST ERROR : P EJECT : @ P* : P P* : Z * P* ORDER 24 : SET PRINTER PARAMETERS : d P* CONTROL WORD CONTAINS: : 6 P* BIT 0 : INDICATE CHANGE OF CH FONT AND NCV : " P* BIT 01-03 : CHARACTER
0x2c5124…2c52b8 Dummy {f00=0x00db, f01=0x0190, f02=»5 : CHARACTER PITCH FOR DOCUMENT STATION : P* ; 0 P* ; : P IFT PARORD=1 ; D PPRTPAR EQU * ; Z P LDK A2,0 ; n * P LD A4,DWTDEV+PP,A6 GET OLD DWT VALUE ; 0 P ABL(NN) LDISP WAIT FOR INITIAL RECOVERY =1 ; $ P LD A1,ECBCW,A8 GET CONTROL WORD ; 4
0x2c52b8…2c544c Dummy {f00=0x00db, f01=0x0190, f02=»WT ; h PPPAR10 LDK A2,0 < P LDR A3,A1 < " P ANK A3,/F0 GET CTRL WORD < 4 . P RF(NZ) PPAR15 NEW CPJ SET UP IN CTRL WORD < V P LDR A3,A4 < P ANK A3,/F0 < PPPAR15 EQU * < " P ORR A2,A3 STORE NEW CPJ IN A2 < P XRR A3,A4 < ( P ANK A3,/F0 NE
0x2c544c…2c55e0 Dummy {f00=0x00db, f01=0x0190, f02=»DR A3,A1 < P ANK A3,/F GET CTRL WORD = . P RF(NZ) PPAR25 NEW CPD SET UP IN CTRL WORD = 0 P LDR A3,A4 = b P ANK A3,/F GET CPD FROM DWT = t P = PPPAR25 EQU * = " P ORR A2,A3 STORE NEW CPD IN A2 = P XRR A3,A4 = & P ANK A3,/F NEW AND OLD CPD
0x2c55e0…2c5774 (1, 742) Dummy {f00=0x00db, f01=0x0190, f02=»6 STORE NEW PARAMETERS IN DWT = | P LDK A2,5 BLOCK LENGTH > & 8 P LDK A3,POPPAR LOAD PRINTER PRINTER PARAMETER ORDER > D P CF A5,ORDER AND SEND > P LC A2,DWTDEV+PP,A6 > P CF A5,OUT SEND L/NCV > P LC A2,DWTDEV+PP+1,A6 > P CF A5,OUT SEND CP
0x2c5774…2c5908 Dummy {f00=0x00db, f01=0x018e, f02=» STATUS > z " PPPAR70 ABL LENDIS END REQUEST ? P XIF ? 6 P EJECT ? B P* ? R P* ? * P* ORDER 27 : SET DOCUMENT PARAMETERS ? f : P* CONTROL WORD CONTAINS TABLE NO OF GIVEN PARAMETERS ? P* ? P* ? P IFT PARORD=1 ? PDOCPAR EQU *
0x2c5908…2c5a9c Dummy {f00=0x00db, f01=0x0190, f02=» P CWK A4,TLTP03 @ * P RF(G) DPAR80 DEFINED TABLE TOO SMALL @ $ P SUK A4,10 ADJUST DOCTAB POINTER @ H & P LD A3,ECBBA,A8 GET BUFFER ADDRESS @ p P CF A5,BYTE1 GET DOC TYPE @ P SUK A1,7 @ P RF(P) DPAR80 ILLEGAL VALUE @ P SC A2,DTTP03,A4 @ $
0x2c5a9c…2c5c30 Dummy {f00=0x00db, f01=0x018e, f02=» P RF(P) DPAR80 TOO LARGE A P CF A5,DOC GET NO OF LINES A $ P SUK A2,0 A F P RF(Z) DPAR80 NO LINES A X P CF A5,DOC GET BOTTOM LINES A v P SUK A2,14 A P RF(N) DPAR80 TOO SMALL A P CF A5,DOC GET MARGIN A P SUK A2,0 A P RF(Z) DPAR8
0x2c5c30…2c5dc4 Dummy {f00=0x00db, f01=0x0190, f02=» A P RF(Z) DPAR80 TOO SMALL B P SUK A1,7 B ( P RF(P) DPAR80 TOO LARGE B : P SC A2,DTTP03,A4 B Z P CF A5,BYTE1 GET LEFT MARGIN B r P SUK A1,1 B P RF(P) DPAR80 ILLEGAL VALUE B P SLL A2,3 B P ORS A2,DTTP03,A4 B $ P CF A5,BYTE1 GET
0x2c5dc4…2c5f58 Dummy {f00=0x00db, f01=0x0190, f02=»ET HIGH PRINT PRESSURE B P SUK A1,1 C P RF(P) DPAR80 ILLEGAL VALUE C 0 P SLL A2,6 C T P ORS A2,DTTP03,A4 C f " P LC* A1,ECBBA,A8 GET DOC TYPE C P ANK A1,/B C P RF(Z) DPAR60 DOC TYPE = 0 C P CF A5,DOC GET UPPER EDGE C P SUK A2,15 C
0x2c5f58…2c60ec Dummy {f00=0x00db, f01=0x0190, f02=» P RF(Z) DPAR30 OK D P SUK A2,24 D P RF(N) DPAR80 TOO SMALL D . ( PDPAR30 LC* A1,ECBBA,A8 GET DOC TYPE D N P ANK A1,/B D z P SUK A1,2 D P RF(N) DPAR70 DOC TYPE = 1 D P RF(P) DPAR40 DOC TYPE = 3 D " P CF A5,DOC GET DOCUMENT WIDTH D P
0x2c60ec…2c6280 Dummy {f00=0x00db, f01=0x0190, f02=»ET UPPER LINES D ~ P SUK A2,0 E P RF(Z) DPAR80 TOO SMALL E ( P SUK A2,40 E H P RF(P) DPAR80 TOO LARGE E Z & PDPAR50 CF A5,DOC GET CENTER WIDTH E z P RF DPAR75 OK E 0 PDPAR60 LDK A2,0 DT=0 SET 4 LAST PARAMETERS=0 E P ADK A4,1 E P ST A2,D
0x2c6280…2c6414 (1, 743) Dummy {f00=0x00db, f01=0x0190, f02=»DK A1,0 IND STATUS OK FOR RETURN CODE E P ABL LENDIS END REQUEST F . 4 PDPAR80 ABL LENDER END REQUEST WITH REQUEST ERROR F N P F 2 P* GET ONE BYTE FROM ECB BUFFER TO A1 AND A2 F $ P* CONVERTED TO HEXA FROM ASCII F P F " PBYTE1 LCR A2,A3 GET
0x2c6414…2c65a8 Dummy {f00=0x00db, f01=0x0190, f02=»FFER POINTER F | P RTN A5 G P G $ , P* GET TWO BYTES FROM ECB BUFFER TO A2 G , 2 P* CONVERTED TO HEXA AND STORED IN DOC TABLE G P G " PDOC LDK A1,0 CLEAR HEXA VALUE G P ADK A4,1 INC TABLE POINTER G , P LCR A2,A3 GET CHARACTER FROM ECB BU
0x2c65a8…2c673c Dummy {f00=0x00db, f01=0x0190, f02=»PDATE TENTH G P RB DOC10 H * PDOC20 ADK A3,1 INC ECB BUFFER POINTER H & 2 P LCR A2,A3 GET NEXT CHARACTER FROM ECB BUFFER H T P CF A5,CHECK TEST IF NUMERIC H P ANK A2,/F H & P ADR A2,A1 ADD TO PREV HEXA VALUE H ( P SC A2,DTTP03,A4 STORE IN DOC
0x2c673c…2c68d0 Dummy {f00=0x00db, f01=0x018e, f02=»FF MASK OUT CHARACTER H P SUK A2,/30 I P RB(N) DPAR80 TOO LOW ERROR I 2 P SUK A2,9 I V P RB(P) DPAR80 TOO HIGH ERROR I h " P ADK A2,/39 RESTORE CHARACTER I P RTN A5 I P XIF I P EJECT I P* I P* I $ P* ORDER 38 : RELEASE
0x2c68d0…2c6a64 Dummy {f00=0x00db, f01=0x0190, f02=» P CF A5,ORDER AND SEND J * P CF A5,EXECUT EXECUTE ORDER IN PRINTER J " " P LDR A1,A2 GET PRINTER STATUS J P " P ANK A1,1 TEST PRINTER STATUS J v P RF(NZ) RDOC70 NOT OPERABLE J ( P CM DWTDEV+LN,A6 RESET LINE COUNTERS J 4 P CM DWTDEV+PPD,A6 RESET PRIN
0x2c6a64…2c6bf8 Dummy {f00=0x00db, f01=0x0190, f02=» J P K P* K P* O R D E R K B P* SEND START OF BLOCK CHAR TO COM. AND ORDER CODE TO PRINTER K 0 P* K v PORDER EQU * K P CF A5,STABLK START OF BLOCK K P RF(NZ) ERTP JMP IF ERROR K * P LDK A2,RESET SEND RESET JUST IN CASE K P
0x2c6bf8…2c6d8c Dummy {f00=0x00db, f01=0x0190, f02=»E K H P* SEND EXECUTE CHAR (/03) TO PRINTER AND END OF BLOCK CHAR TO COM. L P* L V PEXECUT EQU * L ` , P LDK A2,ETX SEND EXECUTE CHAR TO PRINTER L t P CF A5,OUTPUT L P RF(NZ) ERTP JMP IF ERROR L P CF A5,ENDBLK END OF BLOCK L P RF(NZ) ER
0x2c6d8c…2c6f20 Dummy {f00=0x00db, f01=0x0190, f02=»=1 L 4 P RF(Z) EXE10 POS, BIT 3 IN STATUS DON'T CARE =1 M P SUK A1,/38-/0B U =1 M B 4 P RF(Z) EXE10 REL, BIT 3 IN STATUS DON'T CARE =1 M ^ * P LDR A1,A2 TEST IF STATUS BIT 3 = 1 =1 M P ANK A1,/18 * =3 M . P RB(Z) EXE05 BIT 3 = 0, READ NEW STATUS =1 M
0x2c6f20…2c70b4 (1, 744) Dummy {f00=0x00dc, f01=0x0190, f02=» SEND M ~ P* N POUT EQU * N P ANK A2,/7F N * P ADK A2,/10 N > P CWK A2,/7F N R 0 P RF(NG) OUT10 CHARACTER NOT GREATER THAN /7F N f * P LDK A2,/7F IF GREATER SET CHAR TO /7F N POUT10 EQU * N P CF A5,OUTPUT N P RF(NZ) ERTP JMP IF ER
0x2c70b4…2c7248 Dummy {f00=0x00dc, f01=0x018e, f02=» PERTP EQU * O P IFF REQEND=1 O P LDR A7,A7 O , * P RF(Z) ERTP20 ORDER /00, TEST STATUS ? O > 0 P ANK A1,/1A OUTP ERR, SOFTW T-OUT, LRC-ERR ? O l P RF(NZ) RCTP YES, RECOVERY O P ABL LDISP NO O P XIF O $ PERTP20 LDK A1,1 SET NOT OPERABLE O
0x2c7248…2c73dc Dummy {f00=0x00dc, f01=0x0190, f02=» O ` . P* DWT ORDER IS RESET IF NO REQUEST RUNING P P* DWT IS SET BUSY P : @ P* AFTER PROGRAM LOADING SYSTEM PARAMETERS ARE SET UP IN DWT P T 6 P* TEST STRING IS SENT TO PRINTER TO GET SYNCRONISM P @ P* A FIXED FORMATTED RECOVERY STRING IS THEN SENT TO PR
0x2c73dc…2c7570 Dummy {f00=0x00dc, f01=0x018e, f02=»S AT LAST REPEATED. P | P* Q PRCTP EQU * Q & $ P LD A1,DWTECB,A6 GET ECB ADDRESS Q 8 " P RF(NZ) RCTP02 REQUEST RUNNING Q ` P CM DWTOR,A6 RESET ORDER Q PRCTP02 EQU * Q ( P LDKL A1,/7FFF INDICATE DEVICE BUSY Q P ANS A1,DWTST,A6 Q P LDKL A5,D
0x2c7570…2c7704 Dummy {f00=0x00dc, f01=0x0190, f02=» 4 P LDKL A1,DTTP03 SET UP DOC PAR TABLE 0 IN DWT =3 R P ST A1,DWTDEV+DP,A6 * =3 R < ( P LD A3,STDPP SET UP ST PR PAR IN DWT R P ST A3,DWTDEV+PP,A6 R P * =3 R PRCTP08 EQU * R P LDK A2,3 BLOCK LENGTH R 2 P LDK A3,POTEST LOAD PRINTER ORDER
0x2c7704…2c7898 Dummy {f00=0x00dc, f01=0x0190, f02=»NGTH R | 0 P LDK A3,PORECV SET UP PRINTER RECOVERY ORDER S P CF A5,ORDER AND SEND S @ . P LD A3,DWTDEV+PP,A6 GET PRINTER PARAMETERS S ^ PRCTP20 ECR A2,A3 S P CF A5,OUT SEND L/NCV S P LDR A2,A3 S P CF A5,OUT SEND CPJ/CPD S 0 P LC A2,DWTDEV+AP
0x2c7898…2c7a2c Dummy {f00=0x00dc, f01=0x0190, f02=»POS S | P ANK A2,/3F MASK OFF MSB T P CF A5,OUT SEND APD T , P LDR A2,A3 GET DOC POS BACK T H P ANK A2,/40 MASK OUT MSB T l P CF A5,OUT SEND AP6 T , P LC A2,DWTDEV+ALN,A6 GET ACTUAL LINE NO T P CF A5,OUT AND SEND T PRCTP40 LDK A4,10 T
0x2c7a2c…2c7bc0 Dummy {f00=0x00dc, f01=0x4128, f02=»DK A3,1 INC DOC TABLE POINTER T $ P SUK A4,1 DEC CHARACTER COUNTER U & ( P RB(NZ) RCTP50 WHOLE TABLE NOT SENT U N 4 PRCTP60 CF A5,EXECUT EXECUTE RECOVERY IN PRINTER U z PRCTP70 LD A1,DWTECB,A6 U P ABL(NZ) ACT005 REQ RUNNING U P ABL LENDIS REQ NOT
0x2c7bc0…2c7d54 (1, 745) Dummy {f00=0x00dc, f01=0x2008, f02=» V z P END V @ V
0x2c7d54…2c7ee8 Dummy {f00=0x00dc, f01=0x0190, f02=» pU 2 J BAB rU 2 J B B pU 2 J BQB rU 2"J!B!B pU 2"J!BaB rU 2$J1B1B
0x2c7ee8…2c807c Dummy {f00=0x00dc, f01=0x0190, f02=»" P Q :A H# P P 2 H & !@T I & 6 T &! 1 U ' 2 A WR A WF A W: A W. A W" A W A W A # U 6 ) V W ; V # '4# T & & % p % # P P % % T T@ U W
0x2c807c…2c8210 Dummy {f00=0x00dc, f01=0x0190, f02=» $ _ 4 U P ] U ( $P(> R$> Y X '@T X ' T P 3 2W Y &b &p T # & Y P U & T ] "W X # P X: &p X &P y &W & 4P% P X $ r &p 6 Y & X Z ;BR Y X ( U ;FV
0x2c8210…2c83a4 Dummy {f00=0x00dc, f01=0x0190, f02=» ] $ "X " X #` @P&Q X # T* Y +W (4W Y 3 X D X ' 4 % _$ 4T U & % # P 4 4 P _J T _$ U & % 4 U 5 ? P PF "P2 P P T (R X # X (b > P P P ) X XF _H W ? T
0x2c83a4…2c8538 Dummy {f00=0x00dc, f01=0x0190, f02=» & 6 #& X ' X (@ L Y 3 W 3 (b 6 R& X T _ X " P _* X " T (4 3 8% =A 8 P X $?a' =A T# > ? X &P y & Y & >_ ? ] Y U ( >_4 " ( P X $# ;A 4T P^ T$ T Y ] ] " X $ WP T W
0x2c8538…2c86cc Dummy {f00=0x00dc, f01=0x0190, f02=» 3 ) 5 U P$ p T X # P T (P U (" ] " '4 Y T P X P P _ ] W Q Y _2 @# T (@ > P# X R @ U S '4 U &W U 4X6 X< 5 (b_F ? @) 1 T ) A) % > >)
0x2c86cc…2c8860 Dummy {f00=0x00dc, f01=0x0190, f02=»
0x2c8860…2c89f4 (1, 746) Opaque[0x194]
0x2c89f4…2c8b88 # DirEnt {nam=»DRTP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b90, f03=0x0000}
0x2c89f4…2c8b88 IdxSect {
0x2c89f4…2c8b88 f00 = 0x00dc // 0x2c89f4 @0x0
0x2c89f4…2c8b88 f01 = 0x0010 // 0x2c89f6 @0x2
0x2c89f4…2c8b88 gno = [ // 0x2c89f8 @0x4
0x2c89f4…2c8b88 [0x00]: C0x00dc.0x2.0
0x2c89f4…2c8b88 [0x01]: C0x00dc.0x3.0
0x2c89f4…2c8b88 [0x02]: C0x00dd.0x0.0
0x2c89f4…2c8b88 [0x03]: C0x00dd.0x1.0
0x2c89f4…2c8b88 [0x04]: C0x00dd.0x2.0
0x2c89f4…2c8b88 [0x05]: C0x00dd.0x3.0
0x2c89f4…2c8b88 [0x06]: C0x00de.0x0.0
0x2c89f4…2c8b88 [0x07]: C0x00de.0x1.0
0x2c89f4…2c8b88 ]
0x2c89f4…2c8b88 }
0x2c8b88…2c8d1c Dummy {f00=0x00dc, f01=0x0190, f02=» 2 P IDENT DRTP04 REL 11.0 81-06-17 870105041100 P : P =1,CORR. FOR ODD ECBADDR B P REL 11.0 81-01-26 f P* < P******************************************************* < P* *
0x2c8d1c…2c8eb0 Dummy {f00=0x00dc, f01=0x0190, f02=»DRTP04 = DRIVER TELLER TERMINAL PRINTER * < P* * < < P* * | < P******************************************************* P* 8 P*
0x2c8eb0…2c9044 Dummy {f00=0x00dc, f01=0x018e, f02=»P : ACTIVATION PART P* $ P* R C T P : RECOVERY ROUTINE ( P* P @ P* THE ACTIVATION PART SELECTS THE ACTUAL ORDER PROCESSOR. Z : P* A STRING IS SET UP AND TRANSFERED TO THE PRINTER. > P* THE STRING BEGINS WITH A DEDICATED PRINT
0x2c9044…2c91d8 Dummy {f00=0x00dc, f01=0x0190, f02=» ` > P* THE STRING IS TERMINATED WITH AN EXECUTION CHARACTER. : P* AFTER EXECUTION THE PRINTER RESPONDS WITH A STATUS J > P* CHARACTER INDICATING THE RESULT OF THE EXECUTED ORDER. P* > P* THE RECOVERY ROUTINE IS ENTERED AFTER PROGRAM LO
0x2c91d8…2c936c Dummy {f00=0x00dc, f01=0x0190, f02=» FIXED FORMATTED STRING TO p @ P* THE PRINTER. THIS STRING CONTAINS THE ACTUAL PARAMETERS " $ P* AND STATUS FOR THE PRINTER. f P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* $ P* ORDER 00 : TEST STATUS P*
0x2c936c…2c9500 Dummy {f00=0x00dc, f01=0x0190, f02=» PERFORATE RECEIPT P* , P* THE FOLLOWING RETURN CODES ARE USED: * P* Z & P* BIT 0 : REQUEST ERROR d & P* BIT 2 : END OF JOURNAL * P* BIT 7 : RECOVERY EXECUTED $ P* BIT 10 : DOCUMENT OUT
0x2c9500…2c9694 (1, 747) Dummy {f00=0x00dc, f01=0x0190, f02=» v P* " P* REGISTER A1: WORK REGISTER " P* A2: INPUT/OUTPUT 8 $ P* A3: BUFFER POINTER ^ $ P* A4: OUTPUT COUNTER " P* A5: STACK POINTER P* A6: DWT-ADDRESS P* A7:
0x2c9694…2c9828 Dummy {f00=0x00dc, f01=0x0190, f02=»********* P* P* P ENTRY TPAD4 ADDRESS BLOCK & P* H P* R P* P************* f P* EXTERNALS * | P************* P* P* , P EXTRN LDISP DISPATCHING FROM INTERRUPT $ P EXTRN LENDER DISPATCH I/O E
0x2c9828…2c99bc Dummy {f00=0x00dc, f01=0x0190, f02=»FER h ( P EXTRN DWTST DWT STATUS DISPLACEMENT & P EXTRN DWTECB DWT ECB DISPLACEMENT 8 ( P EXTRN DWTOR DWT ORDER DISPLACEMENT b P EXTRN DWTSB2 STACK BASE P EXTRN DWTDEV DEVICE STATUS & P EXTRN INPUT GET STATUS INPUT CHAR & P EXTRN STABL
0x2c99bc…2c9b50 Dummy {f00=0x00dc, f01=0x0190, f02=» r " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBRC RETURN CODE . P EXTRN ECBCW CONTROL WORD N P EJECT p P* ~ P************* P* CONSTANTS * P************* P* , P* DEDICATED PRINTER CHARACTERS (/00-/0F) P*
0x2c9b50…2c9ce4 Dummy {f00=0x00dc, f01=0x0190, f02=»E ORDER ~ * PPOPPAR EQU /04 SET PRINTER PARAMETERS $ PPODSTA EQU /05 DIAGNOSTIC STATUS > " PEXE EQU /06 EXECUTE (NOT USED) f : PPOTDOC EQU /07 TRANSFER DOCUMENT PARAMETERS (NOT USED) $ PPORDOC EQU /08 RELEASE DOCUMENT " PPOWDOC EQU /09 WRITE D
0x2c9ce4…2c9e78 Dummy {f00=0x00dc, f01=0x0190, f02=» /0D WRITE JOURNAL PSPEC EQU /0E NOT USED PTEST EQU /0F TEST (NOT USED) 8 P* ( PENDJ EQU /2000 END OF JOURNAL STATUS f & PDOCOUT EQU /20 DOCUMENT OUT STATUS P EJECT P* P************************ P* CONDITIONAL ASSEMB
0x2c9e78…2ca00c Dummy {f00=0x00dc, f01=0x0190, f02=»CCORDING TO THE LIST BELOW v P* " P* NCV = 0 GREAT BRITAIN , P* 1 GERMANY L P* 2 FRANCE 1 ` P* 3 SPAIN t P* 4 ITALY P* 5 SWEDEN, FINLAND P* 6 DENMARK, NORWAY 1 P* 7 PORTUGAL 6 P* 8 YUGOSLAVIA OR FRANCE 2 (DEPEND
0x2ca00c…2ca1a0 Dummy {f00=0x00dc, f01=0x0190, f02=»RECEIPT STATION CAN BE EXCLUDED P* BY SETTING X:B=0 ( P* B PX:B EQU 1 L PM2PRT EQU X:B ^ P* t P* MMU BUFFER SIZE ~ P* PX:C EQU 095 PDVBLEN EQU X:C P* : P* A REQUEST IS ALLWAYS ENDED FOR NOT OPERABLE PR
0x2ca1a0…2ca334 (1, 748) Dummy {f00=0x00dd, f01=0x0190, f02=»2=0,5=STDNCV,8=0 P EJECT P* & P 0 P********************* 8 P* DWT-DISPLACEMENTS * V P********************* t P* P* P* PPP EQU /2 PRINTER PARAMETERS P* P EJECT P* P********** P
0x2ca334…2ca4c8 Dummy {f00=0x00dd, f01=0x0190, f02=»VICE INDEX PTPAD4 EQU * ADDRESS BLOCK P DATA ACTP ACTIVATION DRIVER 4 " P DATA 0 ABORT ROUTINE ADDRESS X P DATA 0 INTERRUPT HANDLER ~ P DATA RCTP RECOVERY ROUTINE P* , P* VALID ORDERS WITH ACTIVATION ADDRESSES P* P
0x2ca4c8…2ca65c Dummy {f00=0x00dd, f01=0x0190, f02=»E p & P DATA TPTAB3 DEVICE INDEX 3 TABLE P* 4 PTPTAB0 EQU * DEVICE INDEX 0 > " P DATA 0 TEST STATUS (JOURNAL) b P DATA TSTSTA P DATA 6 WRITE JOURNAL P DATA WRTJRL $ P DATA /24 SET PRINTER PARAMETERS P DATA PRTPAR
0x2ca65c…2ca7f0 Dummy {f00=0x00dd, f01=0x0190, f02=» P DATA 6 WRITE DOCUMENT P DATA WRTDOC " $ P DATA /24 SET PRINTER PARAMETERS 6 P DATA PRTPAR ^ P DATA /FFFF END OF ORDERS r P* PTPTAB2 EQU * DEVICE INDEX 2 P IFT M2PRT=1 " P DATA 0 TEST STATUS (RECEIPT) P DATA TSTSTA
0x2ca7f0…2ca984 Dummy {f00=0x00dd, f01=0x0190, f02=»T v P DATA PERREC $ P DATA /24 SET PRINTER PARAMETERS P DATA PRTPAR F P XIF Z P DATA /FFFF END OF ORDERS f P* PTPTAB3 EQU * DEVICE INDEX 3 P DATA /FFFF END OF ORDERS P* ( P* SYSTEM STANDARD PRINTER PARAMETERS
0x2ca984…2cab18 Dummy {f00=0x00dd, f01=0x0190, f02=»IS IS THE ACTIVATION PART OF THE DRIVER > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR 0 P* r P* | P* PACTP EQU * ACTIVATION ENTRY P* P* 8 P* GET DWT INDEX: 0=JOURNAL, 1=DOCUMENT, 2=RECEIPT P*
0x2cab18…2cacac Dummy {f00=0x00dd, f01=0x0190, f02=» ANKL A3,/FF1F RESET OLD INDEX AND LF IND P ORR A3,A2 2 $ P ST A3,DWTDEV,A6 STORE NEW INDEX D , PACT005 LD A1,DWTDEV,A6 GET DEVICE INDEX l P ANK A1,/C0 * P SRL A1,5 GET CORESPONDING ORDER TABLE P LD A2,TPTAB,A1 PACT010 LDR* A3,A2
0x2cacac…2cae40 Dummy {f00=0x00dd, f01=0x0190, f02=»2,4 TRY NEXT ORDER P RB ACT010 PACT020 EQU * , P ABI 2,A2 EXECUTE ORDER @ P EJECT ` P* n P* x P* ORDER 00 : TEST STATUS P* P* PTSTSTA EQU * $ P CM ECBCW,A8 CLEAR CONTROL WORD P LDK A2,3 BLOCK LENG
0x2cae40…2cafd4 (1, 749) Dummy {f00=0x00dd, f01=0x0190, f02=»ET PRINTER STATUS " P ANK A1,/1 TEST PRINTER STATUS & P RF(Z) TSST10 NO PERMANENT ERRORS @ PTSST05 EQU * j P LDK A2,3 BLOCK LENGTH ~ ( P LDK A3,PODSTA LOAD DIAGNOSTIC ORDER P CF A5,ORDER AND SEND * P CF A5,EXECUT EXECUTE ORDER IN PRI
0x2cafd4…2cb168 Dummy {f00=0x00dd, f01=0x0190, f02=»A2 GET PRINTER STATUS & P LD A3,DWTDEV,A6 GET DEVICE INDEX " P ANK A3,/C0 TEST DEVICE INDEX H $ P RF(NZ) TSST40 DEVICE INDEX > 0 n $ P ANK A1,/20 TEST PRINTER STATUS P RF(Z) TSST80 NO ERRORS P LDKL A1,ENDJ END OF JOURNAL P RF TS
0x2cb168…2cb2fc Dummy {f00=0x00dd, f01=0x0190, f02=»TATUS v P RF(Z) TSST80 NO ERRORS P LDK A1,DOCOUT DOCUMENT OUT . P RF TSST80 R 2 PTSST70 LDK A1,0 RECEIPT, NO ERRORS DETECTABLE d " PTSST80 ABL LENDIS END REQUEST P EJECT P* P* P* ORDER 06 : WRITE JOURNAL P
0x2cb2fc…2cb490 Dummy {f00=0x00dd, f01=0x0190, f02=»0 REQUEST ERROR , P LD A2,ECBBA,A8 GET CONTROL CHARACTER =1 P LC A2,1,A2 * =1 H P ANK A2,/FF ` P LDK A4,0 SET UP 0 LF t P SUK A2,/2B TEST CTRL CHAR P RF(Z) WRJL10 CTRL CHAR =/2B P LDK A4,2 SET UP 2 LF P SUK A2,5 P
0x2cb490…2cb624 Dummy {f00=0x00dd, f01=0x0190, f02=» , P LDK A3,POWJRL LOAD WRITE JOURNAL ORDER P CF A5,ORDER AND SEND 4 P LDR A2,A4 RELOAD LF INF R P CF A5,OUT AND SEND r $ P LDK A3,2 SET UP BUFFER POINTER 6 PWRJL20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER P LDR A1,A1 " P RF(Z)
0x2cb624…2cb7b8 Dummy {f00=0x00dd, f01=0x0190, f02=»N) WRJL20 CHAR </10 P SUK A1,/6F P RB(Z) WRJL20 CHAR=/7F 0 P RF(N) WRJL40 CHAR = NORMAL N P SUK A1,/2F r P RF(Z) WRJL40 CHAR =/AE " P LDK A1,4 IND CODE CHECK ERROR $ P ORS A1,ECBRC,A8 IN RETURN CODE P RB WRJL20 P
0x2cb7b8…2cb94c Dummy {f00=0x00dd, f01=0x0190, f02=» GET NEXT CHARACTER P P* SEND ETX $ P 8 0 PWRJL50 CF A5,EXECUT EXECUTE ORDER IN PRINTER @ P SUK A4,2 t & P RF(NZ) WRJL60 NOT 2 LF REQUESTED P LDR A4,A2 SAVE FIRST STATUS P LDK A2,4 BLOCK LENGTH , P LDK A3,POWJRL LOAD WR
0x2cb94c…2cbae0 Dummy {f00=0x00dd, f01=0x0190, f02=»E 1 LF IN PRINTER | . P ORR A2,A4 COMBINE FIRST AND SECOND STATUS ( PWRJL60 LDR A1,A2 GET PRINTER STATUS L $ P ANK A1,/25 TEST PRINTER STATUS x P RF(Z) WRJL70 NO ERRORS " P ANK A1,1 TEST PRINTER STATUS P RF(NZ) WRJL70 NOT OPERABLE "
0x2cbae0…2cbc74 (1, 750) Dummy {f00=0x00dd, f01=0x0190, f02=»QUEST x 4 PWRJL80 ABL LENDER END REQUEST WITH REQUEST ERROR P EJECT F P* V P* ` " P* ORDER 06 : WRITE DOCUMENT j P* P* PWRTDOC EQU * ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH $ P SUK A1,2 TEST REQUESTED LENGTH
0x2cbc74…2cbe08 Dummy {f00=0x00dd, f01=0x0190, f02=»PRINTER ORDER z P CF A5,ORDER AND SEND P LDK A2,0 SET UP DUMMY LF 4 P CF A5,OUT AND SEND V $ P LDK A3,2 SET UP BUFFER POINTER r 6 PWRDO20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER P LDR A1,A1 " P RF(Z) WRDO50 BUFFER FINISHED
0x2cbe08…2cbf9c Dummy {f00=0x00dd, f01=0x018e, f02=»UK A1,/6F P RF(N) WRDO40 CHAR = NORMAL P RB(Z) WRDO20 CHAR = /7F 6 P SUK A1,/2F V P RF(Z) WRDO40 CHAR = /AE j ( P LDK A1,4 INDICATE CODE CHECK ERROR $ P ORS A1,ECBRC,A8 IN RETURN CODE P RB WRDO20 P " P* SEND CHARACT
0x2cbf9c…2cc130 Dummy {f00=0x00dd, f01=0x0190, f02=» P ! P* SEND ETX ! P ! 0 PWRDO50 CF A5,EXECUT EXECUTE ORDER IN PRINTER ! ( " P LDR A1,A2 GET PRINTER STATUS ! $ P ANK A1,/45 TEST PRINTER STATUS ! P RF(Z) WRDO70 NO ERRORS ! " P ANK A1,1 TEST PRINTER STATUS ! P RF(NZ) WRDO70 NOT OPERA
0x2cc130…2cc2c4 Dummy {f00=0x00dd, f01=0x0190, f02=» ABL LENDIS END REQUEST ! 4 PWRDO80 ABL LENDER END REQUEST WITH REQUEST ERROR " P EJECT " X P* " f P* " p P* ORDER 06 : WRITE RECEIPT " z P* " P* " P IFT M2PRT=1 " PWRTREC EQU * " ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH " $ P S
0x2cc2c4…2cc458 Dummy {f00=0x00dd, f01=0x0190, f02=»=1 " P ANK A2,/FF # P LDK A4,0 SET UP 0 LF # P SUK A2,/2B # < " P RF(Z) WRRC10 CTRL CHAR = /2B # P P LDK A4,8 SET UP 8 LF # v P SUK A2,6 # " P RF(Z) WRRC10 CTRL CHAR = /31 # P LDK A4,5 SET UP 5 LF (FAST) # P SUK A2,1 # " P RF(Z)
0x2cc458…2cc5ec Dummy {f00=0x00dd, f01=0x0190, f02=»F # | PWRRC10 EQU * $ P LD A2,ECBRL,A8 $ P ADK A2,2 BLOCK LENGTH $ 6 , P LDK A3,POWREC LOAD WRITE RECEIPT ORDER $ T P CF A5,ORDER AND SEND $ P LDR A2,A4 RELOAD LF INF $ & P CF A5,OUT AND SEND LF INFORMATION $ $ P LDK A3,2 SET UP BUFFER POIN
0x2cc5ec…2cc780 Dummy {f00=0x00dd, f01=0x0190, f02=» GET CHAR IN A1 $ P % P* EXAMINE CHARACTER % P % > P SUK A1,/10 % F P RB(N) WRRC20 CHAR </10 % Z P SUK A1,/6F % z P RB(Z) WRRC20 CHAR=/7F % P RF(N) WRRC40 CHAR = NORMAL % P SUK A1,/2F % P RF(Z) WRRC40 CHAR =/AE % " P LDK
0x2cc780…2cc914 (1, 751) Dummy {f00=0x00dd, f01=0x0190, f02=» % & PWRRC40 CF A5,OUTPUT SEND CHARACTER & P ABL(NZ) ERTP JMP IF ERROR & 2 " P RB WRRC20 GET NEXT CHARACTER & T P & z P* SEND ETX & P & 0 PWRRC50 CF A5,EXECUT EXECUTE ORDER IN PRINTER & P SUK A4,2 & & P RF(NZ) WRRC60 NOT 2 LF REQUESTED &
0x2cc914…2ccaa8 Dummy {f00=0x00dd, f01=0x0190, f02=» SEND & P LDK A2,1 SET UP 1 LF ' P CF A5,OUT SEND LF INF ' , * P CF A5,EXECUT EXECUTE 1 LF IN PRINTER ' J . P ORR A2,A4 COMBINE FIRST AND SECOND STATUS ' x ( PWRRC60 LDR A1,A2 GET PRINTER STATUS ' " P ANK A1,5 TEST PRINTER STATUS ' P RF(Z) WRRC7
0x2ccaa8…2ccc3c Dummy {f00=0x00dd, f01=0x0190, f02=»80 ABL LENDER END REQUEST WITH REQUEST ERROR ' P XIF ( 4 P EJECT ( @ P* ( N P* ( X P* ORDER 22 : CUT RECEIPT ( b P* ( P* ( P IFT M2PRT=1 ( PCUTREC EQU * ( P LDK A2,4 BLOCK LENGTH ( . P LDK A3,POWREC SET UP WRITE RECEIPT ORDER
0x2ccc3c…2ccdd0 Dummy {f00=0x00dd, f01=0x0190, f02=»NTER ( n " P LDR A1,A2 GET PRINTER STATUS ) P ANK A1,1 MASK STATUS ) 2 " PCREC70 ABL LENDIS END REQUEST ) P P XIF ) v P EJECT ) P* ) P* ) $ P* ORDER 26 : PERFORATE RECEIPT ) P* ) P* ) P IFT M2PRT=1 ) PPERREC EQU * ) P
0x2ccdd0…2ccf64 Dummy {f00=0x00dd, f01=0x0190, f02=» (=7 LF) ) v P CF A5,OUT AND SEND * * P CF A5,EXECUT EXECUTE ORDER IN PRINTER * , " P LDR A1,A2 GET PRINTER STATUS * Z P ANK A1,1 MASK STATUS * " PPREC70 ABL LENDIS END REQUEST * P XIF * P EJECT * P* * P* * * P* ORDER 24 : SET P
0x2ccf64…2cd0f8 Dummy {f00=0x00dd, f01=0x0190, f02=»BIT 03 : SMALL LETTER IND * 0 P* BIT 04-07 : NATIONAL CHARACTER VARIATION + $ P* BIT 08-15 : NOT USED + X P* + x P* + PPRTPAR EQU * + $ P LD A1,ECBCW,A8 GET CONTROL WORD + 4 P RF(NN) PPAR10 NO NEW L/NCV SET UP IN CTRL WORD + . P ST A1,D
0x2cd0f8…2cd28c Dummy {f00=0x00dd, f01=0x018e, f02=»R ORDER + d P CF A5,ORDER AND SEND , P LC A2,DWTDEV+PP,A6 , . P CF A5,OUT SEND L/NCV , J P LC A2,DWTDEV+PP+1,A6 , h P CF A5,OUT SEND DUMMY , * P CF A5,EXECUT EXECUTE ORDER IN PRINTER , " P LDR A1,A2 GET PRINTER STATUS , " P ANK A1,1 TEST P
0x2cd28c…2cd420 Dummy {f00=0x00dd, f01=0x0190, f02=» P - P* - P* O R D E R - B P* SEND START OF BLOCK CHAR TO COM. AND ORDER CODE TO PRINTER - , P* - r PORDER EQU * - | P CF A5,STABLK START OF BLOCK - P RF(NZ) ERTP JMP IF ERROR - * P LDK A2,RESET SEND RESET JUST IN CASE - P CF
0x2cd420…2cd5b4 (1, 752) Dummy {f00=0x00de, f01=0x0190, f02=» E X E C U T E - H P* SEND EXECUTE CHAR (/03) TO PRINTER AND END OF BLOCK CHAR TO COM. . P* . d PEXECUT EQU * . n , P LDK A2,ETX SEND EXECUTE CHAR TO PRINTER . P CF A5,OUTPUT . P RF(NZ) ERTP JMP IF ERROR . P CF A5,ENDBLK END OF BLOCK .
0x2cd5b4…2cd748 Dummy {f00=0x00de, f01=0x0190, f02=» . P* / P* 0 U T / P* ADD CONST. AND SEND / $ P* / D POUT EQU * / N P ANK A2,/7F / ` P ADK A2,/10 / t P CWK A2,/7F / 0 P RF(NG) OUT10 CHARACTER NOT GREATER THAN /7F / * P LDK A2,/7F IF GREATER SET CHAR TO /7F / POUT10 EQU
0x2cd748…2cd8dc Dummy {f00=0x00de, f01=0x018e, f02=» / d P* 0 P* 0 PERTP EQU * 0 * P ANK A1,/12 OUTP.ERROR OR LRC-ERROR ? 0 . P RF(Z) ERTP10 NO 0 P LDKL A5,DWTSB2 STACK BASE 0 t P ADR A5,A6 ADD DWT ADDRESS 0 P RF RCTP DO RECOVERY 0 PERTP10 EQU * 0 P IFF REQEND=1 0 ( P LDR A7,A7
0x2cd8dc…2cda70 Dummy {f00=0x00de, f01=0x0190, f02=» P EJECT 1 P* 1 P* R C T P 1 P* 1 . 2 P* THIS IS THE RECOVERY ROUTINE FOR THE DRIVER 1 8 . P* DWT ORDER IS RESET IF NO REQUEST RUNING 1 n P* DWT IS SET BUSY 1 @ P* AFTER PROGRAM LOADING SYSTEM PARAMETERS ARE SET UP IN DWT 1 6 P* TEST STR
0x2cda70…2cdc04 Dummy {f00=0x00de, f01=0x0190, f02=»NS THE ACTUAL PARAMETERS AND THE ACTUAL 1 | P* STATUS FOR THE PRINTER. 2 0 , P* A RUNING REQUEST IS AT LAST REPEATED. 2 R P* 2 PRCTP EQU * 2 $ P LD A1,DWTECB,A6 GET ECB ADDRESS 2 " P RF(NZ) RCTP02 REQUEST RUNNING 2 P LDK A7,0 RESET ORDER 2
0x2cdc04…2cdd98 Dummy {f00=0x00de, f01=0x0190, f02=» RCTP08 NOT SYSTEM START UP RECOVERY 2 ( P LD A3,STDPP SET UP ST PR PAR IN DWT 3 , P ST A3,DWTDEV+PP,A6 3 X PRCTP08 EQU * 3 t P LDK A2,3 BLOCK LENGTH 3 2 P LDK A3,POTEST LOAD PRINTER ORDER TEST STATUS 3 P CF A5,ORDER AND SEND 3 * P CF A5,EXECUT
0x2cdd98…2cdf2c Dummy {f00=0x00de, f01=0x0190, f02=»F A5,ORDER AND SEND 3 . P LD A3,DWTDEV+PP,A6 GET PRINTER PARAMETERS 4 PRCTP20 ECR A2,A3 4 N P CF A5,OUT SEND LFCTRL/NCV 4 f P LDR A2,A3 4 P CF A5,OUT SEND DUMMY CODE 4 4 PRCTP60 CF A5,EXECUT EXECUTE RECOVERY IN PRINTER 4 PRCTP70 LD A1,DWTECB,
0x2cdf2c…2ce0c0 Dummy {f00=0x00de, f01=0x402c, f02=»CT005 REPEAT REQUEST 4 P END 5 @ 5 (,A6 GET PRINTER PARAMETERS 4 PRCTP20 ECR A2,A3 4 N P CF A5,OUT SEND LFCTRL/NCV 4 f P LDR A2,A3 4 P CF A5,OUT SEND DUMMY CODE 4 4 PRCTP60 CF A5,EXECUT EXECUTE RECOVERY IN PRINTER 4 PRCTP70 LD A1,DWTECB,
0x2ce0c0…2ce254 (1, 753) Dummy {f00=0x00de, f01=0x2008, f02=» 6 ET LINE COUNTERS =9 S 2 P CM DWTPPD,A6 RESET PRINT POSITION COUNTERS =9 T $ PRCTP70 LD A1,DWTECB,A6 T Z P ABL(NZ) ACT005 REQ RUNNING T x P ABL DISEND REQ NOT RUNNING T P END T @ T NZ) RCTP50 WHOLE TABLE NOT SENT S 4 PRCTP60 CF A5,EXE
0x2ce254…2ce3e8 Dummy {f00=0x00de, f01=0x0004, f02=»
0x2ce3e8…2ce57c Dummy {f00=0x00de, f01=0x0190, f02=» > @ IDENT DRTP03 REL 11.0 81-06-17 870105041100 TPAD3 F TPAD3 V , ( ~ $ h , ( ! 8 7 $ ' DWTOR DWTDEV * & A @ F X " :F X
0x2ce57c…2ce710 Dummy {f00=0x00de, f01=0x0190, f02=» ! ! C W X # T !"P LENDIS * , ( H! & W !@P X ! T < , ( B R B H " +P P l , ( T ! ! ! " T Y GETCHR * & Y B X Y
0x2ce710…2ce8a4 Dummy {f00=0x00de, f01=0x0190, f02=»P C _8 W Y ! ~ , ( _J ! !'P ! T " T * & HH X Y W X N , ( $ B R B H " X + | , ( "P P T Y Q Y , ( @ Y P B ! !
0x2ce8a4…2cea38 Dummy {f00=0x00de, f01=0x0190, f02=»! T l * & c " T X !x W X X * & } Y Y # C X : , ( # C B P Y Q Y h , ( ! ! ! !EP ! T , ( $" T X !xX8 Y Y , (
0x2cea38…2cebcc Dummy {f00=0x00de, f01=0x0190, f02=»P P ! P Y | * & 7 ! 0 ! ! ! LDISP J , ( U X B V Z * & m " Y # T # # P Y * & # T # # P Y Y , ( ! X ! X
0x2cebcc…2ced60 Dummy {f00=0x00de, f01=0x0190, f02=»P ! R ! t , ( P PQ ! P Q Q ! , ( 1 Q :C Q ! Q :E Q ! D , ( M Q :F Q b ! P ! R C t , ( k Q ! P R b ! R Q ! ( , ( R 9Q W ! P (Q ! W Q , (
0x2ced60…2ceef4 (1, 754) Opaque[0x194]
0x2ceef4…2cf088 # DirEnt {nam=»DRTW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bd0, f03=0x0000}
0x2ceef4…2cf088 IdxSect {
0x2ceef4…2cf088 f00 = 0x00de // 0x2ceef4 @0x0
0x2ceef4…2cf088 f01 = 0x000e // 0x2ceef6 @0x2
0x2ceef4…2cf088 gno = [ // 0x2ceef8 @0x4
0x2ceef4…2cf088 [0x00]: C0x00de.0x2.0
0x2ceef4…2cf088 [0x01]: C0x00de.0x3.0
0x2ceef4…2cf088 [0x02]: C0x00df.0x0.0
0x2ceef4…2cf088 [0x03]: C0x00df.0x1.0
0x2ceef4…2cf088 [0x04]: C0x00df.0x2.0
0x2ceef4…2cf088 [0x05]: C0x00df.0x3.0
0x2ceef4…2cf088 [0x06]: C0x00e0.0x0.0
0x2ceef4…2cf088 ]
0x2ceef4…2cf088 }
0x2cf088…2cf21c Dummy {f00=0x00de, f01=0x018e, f02=» 2 P IDENT DRTW01 REL 11.0 81-06-12 870105041100 P : $ P =4,COND. FOR BSP,CANC AND EOR B P REL 11.0 81-04-15 j 0 P =3,ONLY CREDIT-INDEX FOR EOR-KEY IN KTAB P REL 11.0 81-01-26 $ P =2,BOTH KEYTABLE AND STANDARD P EOR-
0x2cf21c…2cf3b0 Dummy {f00=0x00de, f01=0x0190, f02=» P 6 P************************************************** P* J $ P* PHILIPS TERMINAL SYSTE PTS T P* | , P* DRTW01 = DRIVER TYPEWRITER PTS 6862 P* P* P* P* P* P* 6 P**********************
0x2cf3b0…2cf544 Dummy {f00=0x00de, f01=0x018e, f02=» P* P EJECT P* P* & P*********** 0 P* ENTRIES * D P*********** X P* l P ENTRY TWAD ADDRESS BLOCK v P ENTRY IHTW P ENTRY TWON P ENTRY DWTW01 P* P************* P* EXTERNALS *
0x2cf544…2cf6d8 Dummy {f00=0x00de, f01=0x0190, f02=» n * P EXTRN SETIME SET TIME BEFORE TIME-OUT . P EXTRN SAVE8 SAVE REGISTERS A1-A8 ON STACK 6 P EXTRN DWTST STATUS h P EXTRN DWTBC BYTE COUNTER P EXTRN DWTECB ECB ADDRESS $ P EXTRN DWTOR DWT INDEX AND ORDER P EXTRN DWTA3 SAVE AREA A
0x2cf6d8…2cf86c Dummy {f00=0x00de, f01=0x0190, f02=»ACK BASE 2 IN DWT P EXTRN DWTTP TIMER POINTER * P EXTRN INTSAV SAVE AREA LAST INTRRUPT < * P EXTRN PFPOST PWF POST PROCESSING FLAG j P EJECT P* P* P******************** P* I/O-INSTRUCTIONS P********************
0x2cf86c…2cfa00 Dummy {f00=0x00de, f01=0x0190, f02=»OUTPUT PTWSST EQU /4AC0 SENSE STATUS P* 2 P* < P EJECT F P* T P* ^ P************* h P* CONSTANTS * ~ P************* P* P* PCR EQU /0D CARRIAGE RETURN PLF EQU /0A LINE FEED " PLNGERR EQU /
0x2cfa00…2cfb94 (1, 755) Dummy {f00=0x00de, f01=0x0190, f02=»************** P* CONDITIONAL ASSEMBLY* P************************ 6 P* V P* ` PX:A EQU 0 j PX:B EQU 0 | PX:C EQU 60 PX:D EQU 10 PX:E EQU 6 PX:F EQU /5F5E =4 PX:G EQU /0D00 =4 P PTIMOUT E
0x2cfb94…2cfd28 Dummy {f00=0x00de, f01=0x0190, f02=»* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. 2 P* ` PMMUPAG EQU 0 j P* ~ P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* P
0x2cfd28…2cfebc Dummy {f00=0x00de, f01=0x0190, f02=»********* P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART & P* Z P IFT MMUPAG=0 d PSTART EQU DWTDRD z P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* PDWTHP EQU START+/18
0x2cfebc…2d0050 Dummy {f00=0x00de, f01=0x0190, f02=»U KEY TABLE SIZE z ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX D PTWAD EQU * f P DATA TWA ACTIVATION PART x " P DATA 0 ABORT ROUTINE ADDRESS P EJECT P* P* 2 P* ACTIVATION PART: CHECK VALIDITY OF
0x2d0050…2d01e4 Dummy {f00=0x00de, f01=0x0190, f02=» LENGTH =0 x P* P* P LDR A2,A7 COPY ORDER & P RF(NP) TWAERR REQUEST ERROR D P SUK A2,4 h P RF(Z) TWAERR REQUEST ERROR z P RF(N) TWAIN INPUT REQUEST P SUK A2,2 " P RF(NP) TWAOUT OUTPUT REQUEST P* P*
0x2d01e4…2d0378 Dummy {f00=0x00de, f01=0x0190, f02=»GET TIMER POINTER * P RF(Z) TWA010 NO TIMING ON THIS DEVICE P LDR A1,A6 SAVE DWT-ADDRESS H P CF A15,SETIME l P DATA TWTUT,TIME , P ST A4,DWTTP,A6 SAVE TIMER BLOCK-ADDRESS P XIF PTWA010 EQU * P IFT POWUP=1 " P LD A2,DWT
0x2d0378…2d050c Dummy {f00=0x00de, f01=0x0190, f02=» P LDKL A2,-2 " P ST A2,10,A8 INDICATE POWER UP P ABL IHTW35 PERFORM ENDIO > P XIF ` PTWA020 LDK A2,/21 l P* P* ( PREAD CF A5,STRTIO EXECUTE CIO-START P RF RED030 & PRED020 CF A5,STREG SAVE REGISTERS P EJECT
0x2d050c…2d06a0 Dummy {f00=0x00de, f01=0x0190, f02=»NZ) RED037 P XIF P SUK A7,1 P RF(P) RED050 ORDERS 02/03 0 P* R P* 0 PRED035 CF A5,STORE STORE CHARACTER IN BUFFER f P CW A3,4,A8 $ P RB(L) RED020 GET NEXT CHARACTER P LDR A7,A7 P RF(Z) RED040 BASIC READ P
0x2d06a0…2d0834 (1, 756) Dummy {f00=0x00df, f01=0x0190, f02=»RED040 EQU * P P IFT TIMOUT=1 P LD A7,DWTOR,A6 GET ORDER 2 P ANK A7,/FF MASK ORDER T P CWK A7,4 r P RF(G) RED045 WRITE ORDER " P LD A4,DWTTP,A6 TIMER POINTER * P RF(Z) RED045 NO TIMIMG ON THIS DEVICE P CM* DWTTP,A6
0x2d0834…2d09c8 Dummy {f00=0x00df, f01=0x0190, f02=»CT P* P* P* P* ORDERS 02,03 ( P* @ P* J PRED050 EQU * T " P LD A1,10,A8 GET CONTROL WORD h P RF(Z) RED080 NO KEYTABLE " P LCR A4,A1 GET NUMBER OF KEYS P ANK A4,/FF " P ADR A1,A4 ADDRESS TO LAST KEY
0x2d09c8…2d0b5c Dummy {f00=0x00df, f01=0x0190, f02=»2,A1 CHECK IF IN KEYTABLE " P RB(NE) RED060 NOT IN KEYTABLE " P ADK A4,1 MAKE INDEX =3 H , P ST A4,10,A8 STORE INDEX IN CONTROL WORD h 2 PRED070 CF A5,STORE STORE KEY IN ECB-BUFFER =2 P RB RED040 EXECUTE CIO-HALT PRED080 CC A2,TWEOF,A6
0x2d0b5c…2d0cf0 Dummy {f00=0x00df, f01=0x018e, f02=»WCLR,A6 P RF(E) RED110 CLEAR P EJECT , P* : P* D ( P* CHARACTER NOT FOUND IN KEYTABLE N P* z P* P* $ PRED090 LDR A4,A2 COPY CHARACTER P ANK A4,/FF MASK P LDR A1,A7 P SUK A1,1 P RF(Z) RED10
0x2d0cf0…2d0e84 Dummy {f00=0x00df, f01=0x0190, f02=» P RF RED110 P* P* PRED100 SUK A4,/20 * P RF(N) CODERR LESS THAN /20 D P SUK A4,/3F h $ P RF(NP) RED110 CORRECT CHARACTER | P* P* $ PCODERR LDK A1,4 CODE CHECK ERROR P ORS A1,8,A8 . P CF A5,STORE STORE C
0x2d0e84…2d1018 Dummy {f00=0x00df, f01=0x0190, f02=» CC A2,TWBSP,A6 P RF(E) RED120 BACKSPACE P CC A2,TWCLR,A6 8 P RB(NE) RED035 P P* f P* p P LDK A3,0 CLEAR ECB-BUFFER z " P RB RED020 GET NEXT CHARACTER P* P* PRED120 SUK A3,1 BACKSPACE & P RB(NN) RED020 G
0x2d1018…2d11ac Dummy {f00=0x00df, f01=0x0190, f02=»* P* W R I T E P* 4 P* ORDERS 05 AND 06: BASIC AND STANDARD WRITE * P* b P* l PWRITE EQU * v PTWAOUT EQU * P INH P LDK A4,0 P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START P* P*
0x2d11ac…2d1340 Dummy {f00=0x00df, f01=0x0190, f02=»R t P ANK A3,/FF P SUK A3,/2B P RF(Z) WRT030 NO CR OR LF 2 P* T P* ^ , P ST A4,DWTHP,A6 HEAD POSITION INDICATOR h P LDK A4,2 $ P LDK A2,CR SEND CARRIAGE RETURN P EJECT P* P* P* $ PWRT010 CF
0x2d1340…2d14d4 (1, 757) Dummy {f00=0x00df, f01=0x0190, f02=» P* PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SECOND LF & P SUK A3,1 J P RF(NZ) WRT030 P LDK A2,/0C SEND FORM FEED t P RB WRT010 " PWRT030 LDK A3,2 BUFFER POINTER P RF WRT050 GET CHARACTER P* P* P*
0x2d14d4…2d1668 Dummy {f00=0x00df, f01=0x0190, f02=»* 6 PWRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER P LDR A1,A1 D P RB(Z) RED040 LAST CHARACTER X P CWK A7,5 | P RB(Z) WRT040 BASIC WRITE P* P* ( P LDR A1,A2 ORDER 06: STANDARD WRITE P ANK A1,/FF P SUK
0x2d1668…2d17fc Dummy {f00=0x00df, f01=0x0190, f02=» ERRCOD LESS THAN /20 P SUK A1,/3F " P RB(NP) WRT040 BETWEEN /20-/5F 2 P SUK A1,/20 X " P RF(NP) WRT060 BETWEEN /60-/7F l P* P* PERRCOD LDK A1,4 P ORS A1,8,A8 " P RB WRT050 GET NEXT CHARACTER P* P*
0x2d17fc…2d1990 Dummy {f00=0x00df, f01=0x0190, f02=» P* PWRTTAB EQU * 2 P CF A5,GETCHR GET FIRST TAB.POSITION CHARACTER & P LDR A4,A2 COPY 4 P CF A5,GETCHR GET SECOND TAB. POSITION CHARACTER t P ANK A2,/F P ANK A4,/F P RF(Z) TAB020 PTAB010 ADK A2,/A P SUK A4,1
0x2d1990…2d1b24 Dummy {f00=0x00df, f01=0x0190, f02=» NUMBER OF SPACES TO BE SENT , P RB(NP) WRT050 NO SPACES SHOULD BE SENT $ P LDR A4,A2 T " PTAB030 LDK A2,/20 SEND BALNKS f $ PTAB040 CF A5,OTR SEND CHARACTER ( P IM DWTST,A6 INCREMENT BYTE COUNTER P SUK A4,1 & P RB(NZ) TAB030 SEND AN
0x2d1b24…2d1cb8 Dummy {f00=0x00df, f01=0x0190, f02=»FER INDEX | " P RB WRT050 GET NEXT CHARACTER P EJECT 8 P* F P* P P* RECOVERY ROUTINE Z P* v P* P* PTWON EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=
0x2d1cb8…2d1e4c Dummy {f00=0x00df, f01=0x0190, f02=»A1,/200 & P ORS A1,DWTST,A6 INDICATE POWER UP P XIF : P LD A1,DWTST,A6 F P RF(N) EXIT DEVICE NOT BUSY ^ PTWON10 LD A3,DWTA3,A6 P LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS P LDKL A5,DWTSB
0x2d1e4c…2d1fe0 Dummy {f00=0x00df, f01=0x018e, f02=»R 05 ~ P INH P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START * P LDK A2,CR R P LDK A3,0 d P LD A4,DWTHP,A6 v P ADK A4,1 $ P RB TAB040 REPRINT LAST REQUEST P* PTWON20 LDK A1,TPERR ORDER 05 P ABL DISEND
0x2d1fe0…2d2174 (1, 758) Dummy {f00=0x00df, f01=0x0190, f02=» P* P* PIHTW EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT * P IFT CPU852=1 R & P CF A15,SAVE8 SAVE A1-A8 ON STACK h P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P LDKL A6,DWTW0
0x2d2174…2d2308 Dummy {f00=0x00df, f01=0x0190, f02=»RKL A2,TWSST P EXR A2 EXECUTE SST P RF(A) IHTW30 ENDIO 0 P LD A7,DWTOR,A6 GET ORDER L P ANK A7,/FF n P SUK A7,4 P RF(P) IHTW30 " P LDR* A2,A6 GET DEVICE ADDRESS P ORKL A2,TWINR P EXR A2 EXECUTE INR $ P ANK
0x2d2308…2d249c Dummy {f00=0x00df, f01=0x0190, f02=»0 NO TIMING ON THIS DEVICE P LDKL A1,-TIME " P ST* A1,DWTTP,A6 8 P XIF P P* P* f PIHTW30 LDK A1,0 p P RF LDREGE RESTORE REGISTERS P P PIHTW35 EQU * P IFT POWUP+TIMOUT=2 P " P LD A1,DWTTP,A6 TIME
0x2d249c…2d2630 Dummy {f00=0x00df, f01=0x0190, f02=» PIHTW40 EQU * ! P* ! P* ! & , PIHTW50 ST A3,6,A8 SAVE EFFECTIVE LENGTH ! 0 PIHTW55 SUK A7,4 ! ` P RF(NP) IHTW60 READ ORDER ! x P* ! P* ! $ P LC A3,DWTBC,A6 GET BYTE COUNTER ! * P ADS A3,DWTHP,A6 UPDATE HEAD POSITION ! P LDK
0x2d2630…2d27c4 Dummy {f00=0x00df, f01=0x0190, f02=»M TENDIO ! ~ P* " P* " P " $ PSKIP LDR* A2,A6 " , P ORKL A2,TWSST " D P EXR A2 SST " Z P RF(A) EXIT " n P LDR* A2,A6 " P ORKL A2,TWHLT " P EXR A2 CIO HALT " P RF EXIT " P EJECT " P* " P* " P* " P* I/O
0x2d27c4…2d2958 Dummy {f00=0x00df, f01=0x0190, f02=»LT " n P RF EXECIO # " POTR LDKL A1,TWOTR OTR # P* # B P* # L PEXECIO LD A7,PFPOST # V P RF(NZ) STREG PFINIT PENDING # r P ORR* A1,A6 GET I/O-COMMAND # P EXR A1 EXECUTE COMMAND # P RF(NA) HALT # PSTREG EQU * # P LDKL
0x2d2958…2d2aec Dummy {f00=0x00df, f01=0x0190, f02=» A4 # t $ P ST A5,DWTA5,A6 A5 $ PEXIT ABL TDISP $ 4 PHALT ST A2,DWTA2,A6 $ J " P CF A5,HLTIO EXECUTE CIO-HALT $ f P LD A2,DWTA2,A6 $ P RB STRTIO RESTART REQUEST $ P* $ P* $ P EJECT $ P* $ P* $ P* $ & P*
0x2d2aec…2d2c80 Dummy {f00=0x00df, f01=0x0190, f02=» $ p P SCR A2,A4 STORE CHARACTER % $ P ADK A3,1 INCREMENT BUFFER INDEX % * P RTN A5 % R P* % b P* % l P* % v P IFT TIMOUT=1 % P* % P* % P* TIMOUT ROUTINE % P* % P* % PTWTUT EQU * % P LDR A6,A1 GET DWT-ADDRESS %
0x2d2c80…2d2e14 (1, 759) Dummy {f00=0x00df, f01=0x0190, f02=»* % 8 P* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 & P* & F P* & P PLDREGE EQU * & Z & P LD A3,DWTA3,A6 RELOAD REGISTER A3 & n & P LD A4,DWTA4,A6 A4 & & P LD A5,DWTA5,A6 A5 & P LD A7,DWTOR,A6 & P ANK
0x2d2e14…2d2fa8 Dummy {f00=0x00df, f01=0x0190, f02=» & 8 P* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER ' P* ' D P* ON ENTRY: ' N P* ' d P* A3 = BUFFER INDEX ' n P* A8 = ECB-ADDRESS ' P* ' P* ON EXIT: ' P* ' P* A2 = CHARACTER ' * P* A1 = 0 IF LAST CHAR
0x2d2fa8…2d313c Dummy {f00=0x00df, f01=0x0190, f02=» EQU * ' P LD A1,4,A8 REQUESTED LENGTH ( P SUR A1,A3 ( 2 * P RF(NP) GCH010 LAST CHARACTER REACHED ( D " P LD A1,2,A8 GET BUFFER ADDRESS ( r P ADR A1,A3 ( P LCR A2,A1 CHAR. TO A2 ( P ANK A2,/FF ( $ P ADK A3,1 INCREMENT BUFFER INDEX ( P RTN
0x2d313c…2d32d0 Dummy {f00=0x00df, f01=0x018e, f02=» ( l P* ) P* ) PDWTW01 EQU * TABLE ENTRY ) " P DATA /0010 CHANNEL PARAMETER ) < 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY ) b P DATA 0 ECB ADDRESS ) P DATA 0 ORDER ) ( P DATA TWAD POINTER TO ADDRESS BLOCK ) P DATA 0 TTAB-ADDRESS
0x2d32d0…2d3464 Dummy {f00=0x00df, f01=0x0190, f02=» ) l P DATA DEVECB MMU ECB ADDRESS * P XIF * , P DATA 0 OUTPUT QUEUE LINK * 8 P DATA 0 SAVE AREA FOR A3 * Z P DATA 0 SAVE AREA FOR A4 * z P DATA 0 SAVE AREA FOR A5 * P RES 4 STACK BASE * P DATA 1 TIMER POINTER * P DATA 0 ECHO DEVICE *
0x2d3464…2d35f8 Dummy {f00=0x00df, f01=0x018c, f02=»YTE DOUBLE ZERO * " P DATA 0 HEAD POSITION POINETR + P DATA 0 SAVE AREA FOR A2 + > , P DATA 0 ECHO DEV (CHANGED DWT-LAYOUT) =1 + ^ P* + P EJECT DRTW01 + P* + P* + P IFT MMUPAG=1 + PDEVECB EQU * + P DATA 0 + P DATA TW:B
0x2d35f8…2d378c Dummy {f00=0x00df, f01=0x4008, f02=»@ , LE ZERO * " P DATA 0 HEAD POSITION POINETR + P DATA 0 SAVE AREA FOR A2 + > , P DATA 0 ECHO DEV (CHANGED DWT-LAYOUT) =1 + ^ P* + P EJECT DRTW01 + P* + P* + P IFT MMUPAG=1 + PDEVECB EQU * + P DATA 0 + P DATA TW:B
0x2d378c…2d3920 Dummy {f00=0x00df, f01=0x2008, f02=» -
0x2d3920…2d3ab4 (1, 760) Dummy {f00=0x00e0, f01=0x0190, f02=» PLCNRR=2 - * P DATA /0103,/0400,/0D05,TIMACT,/0108,0 . P XIF . @ POPNR31 EQU * LINE 1 . L P IFF PLCNRR=0 . h P IFF PLCNRR=1 . ~ P IFF PLCNRR=2 . * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 . P XIF . POPNR32 EQU * LINE 2 . P IFF PLC
0x2d3ab4…2d3c48 Dummy {f00=0x00e0, f01=0x0190, f02=» . | P IFF PLCNRR=0 / P IFF PLCNRR=1 / P IFF PLCNRR=2 / 4 * P DATA /0103,/0400,/0D05,TIMACT,/1308,0 / J P XIF / x P* / P* REMOTE PLC 2 / POPNR20 EQU * LINE 0 / P IFF PLCNRR=0 / P IFF PLCNRR=1 / * P DATA /0103,/0400,/0D05,TIMA
0x2d3c48…2d3ddc Dummy {f00=0x00e0, f01=0x0190, f02=»08,0 / n P XIF 0 POPNR22 EQU * LINE 2 0 P IFF PLCNRR=0 0 4 P IFF PLCNRR=1 0 J * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 0 ` P XIF 0 POPNR23 EQU * LINE 3 0 P IFF PLCNRR=0 0 P IFF PLCNRR=1 0 * P DATA /0103,/0400,/0D05,TIMACT,/1308,0
0x2d3ddc…2d3f70 Dummy {f00=0x00e0, f01=0x018e, f02=»08,0 0 n P XIF 1 POPNR11 EQU * LINE 1 1 P IFF PLCNRR=0 1 4 * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 1 J P XIF 1 x POPNR12 EQU * LINE 2 1 P IFF PLCNRR=0 1 * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 1 P XIF 1 POPNR13 EQU * LINE 3 1
0x2d3f70…2d4104 Dummy {f00=0x00e0, f01=0x0190, f02=» P* 2 , PPLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG 2 P* 2 > ( P IFF UTTEST=0 TEST VERSION OF DRIVER 2 H P* 2 t P EJECT 2 ~ P* 2 ( PUTTST DATA UTTEST 1 = TRAP NOT USED 2 P* 2 P* 2 " P* QUEUE STATISTICS COUNTERS 2 & P* EACH COUNT
0x2d4104…2d4298 Dummy {f00=0x00e0, f01=0x0190, f02=»QSTA RES 8 LONG BUFFERS QUEUE 2 PCCQSTA RES 8 CCA QUEUE 3 & $ PSTATLN EQU *-STATAR TABLE LENGTH 3 D P* 3 l P XIF 3 v P EJECT 3 P* 3 P* 3 P* CWT DISPLACEMENTS 3 P* 3 PCWTOPR EQU /00 CU OPERABLE 3 PCWTCCB EQU /02 CCA BUSY 3
0x2d4298…2d442c Dummy {f00=0x00e0, f01=0x0190, f02=» LATEST PLC RCA STATUS 3 $ PCWTLNO EQU /0C LINE NO INDICATOR 4 , PCWTPAR EQU /0E INDEX TO PARAMETER AREA 4 F 6 PCWTOPP EQU /10 OPEN LINE PARAMETER AREA ADDRESS =2 4 v $ PCWTINT EQU /12 WS TABLE ADDRESS 4 ( PCWTBUF EQU /14 INP. BUFFER ADDRESS 4 2 PCWTS
0x2d442c…2d45c0 Dummy {f00=0x00e0, f01=0x0190, f02=» 4 n 2 PCWTMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS 5 " PCWTTPR EQU /1E TIMER POINTER 5 > $ PCWTCIO EQU /20 CIO START INSTR. 5 d PCWTST3 EQU /22 SST INSTR. 5 . PCWTCSD EQU /24 CTRL UNIT START DESCRIPTOR 5 , PCWTCID EQU /2A CTRL UNIT INTERF. DESCR.
0x2d45c0…2d4754 (1, 761) Opaque[0x194]
0x2d4754…2d48e8 # DirEnt {nam=»DRVU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c08, f03=0x0000}
0x2d4754…2d48e8 IdxSect {
0x2d4754…2d48e8 f00 = 0x00e0 // 0x2d4754 @0x0
0x2d4754…2d48e8 f01 = 0x004e // 0x2d4756 @0x2
0x2d4754…2d48e8 gno = [ // 0x2d4758 @0x4
0x2d4754…2d48e8 [0x00]: C0x00e0.0x1.0
0x2d4754…2d48e8 [0x01]: C0x00e0.0x2.0
0x2d4754…2d48e8 [0x02]: C0x00e0.0x3.0
0x2d4754…2d48e8 [0x03]: C0x00e1.0x0.0
0x2d4754…2d48e8 [0x04]: C0x00e1.0x1.0
0x2d4754…2d48e8 [0x05]: C0x00e1.0x2.0
0x2d4754…2d48e8 [0x06]: C0x00e1.0x3.0
0x2d4754…2d48e8 [0x07]: C0x00e2.0x0.0
0x2d4754…2d48e8 [0x08]: C0x00e2.0x1.0
0x2d4754…2d48e8 [0x09]: C0x00e2.0x2.0
0x2d4754…2d48e8 [0x0a]: C0x00e2.0x3.0
0x2d4754…2d48e8 [0x0b]: C0x00e3.0x0.0
0x2d4754…2d48e8 [0x0c]: C0x00e3.0x1.0
0x2d4754…2d48e8 [0x0d]: C0x00e3.0x2.0
0x2d4754…2d48e8 [0x0e]: C0x00e3.0x3.0
0x2d4754…2d48e8 [0x0f]: C0x00e4.0x0.0
0x2d4754…2d48e8 [0x10]: C0x00e4.0x1.0
0x2d4754…2d48e8 [0x11]: C0x00e4.0x2.0
0x2d4754…2d48e8 [0x12]: C0x00e4.0x3.0
0x2d4754…2d48e8 [0x13]: C0x00e5.0x0.0
0x2d4754…2d48e8 [0x14]: C0x00e5.0x1.0
0x2d4754…2d48e8 [0x15]: C0x00e5.0x2.0
0x2d4754…2d48e8 [0x16]: C0x00e5.0x3.0
0x2d4754…2d48e8 [0x17]: C0x00e6.0x0.0
0x2d4754…2d48e8 [0x18]: C0x00e6.0x1.0
0x2d4754…2d48e8 [0x19]: C0x00e6.0x2.0
0x2d4754…2d48e8 [0x1a]: C0x00e6.0x3.0
0x2d4754…2d48e8 [0x1b]: C0x00e7.0x0.0
0x2d4754…2d48e8 [0x1c]: C0x00e7.0x1.0
0x2d4754…2d48e8 [0x1d]: C0x00e7.0x2.0
0x2d4754…2d48e8 [0x1e]: C0x00e7.0x3.0
0x2d4754…2d48e8 [0x1f]: C0x00e8.0x0.0
0x2d4754…2d48e8 [0x20]: C0x00e8.0x1.0
0x2d4754…2d48e8 [0x21]: C0x00e8.0x2.0
0x2d4754…2d48e8 [0x22]: C0x00e8.0x3.0
0x2d4754…2d48e8 [0x23]: C0x00e9.0x0.0
0x2d4754…2d48e8 [0x24]: C0x00e9.0x1.0
0x2d4754…2d48e8 [0x25]: C0x00e9.0x2.0
0x2d4754…2d48e8 [0x26]: C0x00e9.0x3.0
0x2d4754…2d48e8 ]
0x2d4754…2d48e8 }
0x2d48e8…2d4a7c Dummy {f00=0x00e0, f01=0x018e, f02=» 2 P IDENT DRVU01 REL 11.0 81-07-07 870105041100 P : P B P J P R P* Z 6 P************************************************** d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P* DRVU01 = DRIVER VIDEO CONNECTED DISPLAY PT
0x2d4a7c…2d4c10 Dummy {f00=0x00e0, f01=0x0190, f02=» P* P* 6 P************************************************** P* R : P* THIS DRIVER CONSISTS OF THE FOLLOWING TWO SECTIONS: P* $ P* - S C R E E N S E C T I O N , P* - P E R I P H E R A L S E C T I O N P* P E
0x2d4c10…2d4da4 Dummy {f00=0x00e0, f01=0x0190, f02=»D VIA THE SCREEN SECTION OF THE VIDEO CHANNEL UNIT VCCU1/4. P* D < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS N : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE (
0x2d4da4…2d4f38 Dummy {f00=0x00e0, f01=0x0190, f02=»F THE DRIVER h ( P* CONSISTS OF FOLLOWING PARTS: P* @ , P* - D E V I C E D R I V E R P A R T J ( P* - L I N E D R I V E R P A R T z P* P EJECT P* . P* THE D E V I C E D R I V E R P A R T * P* OF THE SCREE
0x2d4f38…2d50cc Dummy {f00=0x00e0, f01=0x018e, f02=»O N R O U T I N E ~ P* 6 P* -ACVU ACTIVATION OF DEVICE DRIVER, AT LKM DATA 1 & P* ` P* j P* t P* ~ P* A B O R T R O U T I N E P* < P* -ABVU ABORT HANDLING IN DEVICE DRIVER, AT LKM DATA 10 P* P*
0x2d50cc…2d5260 Dummy {f00=0x00e0, f01=0x0190, f02=» P* P* P* P* " P* E C H O R O U T I N E , P* N . P* -ECHOVU ECHO-HANDLING OF KEYBOARD INPUT X P* P* P* P* P* E R R O R R O U T I N E P* , P* -DEVERR DEVICE DRIVER ERROR HANDLING,
0x2d5260…2d53f4 (1, 762) Dummy {f00=0x00e0, f01=0x0190, f02=»CHECK IF LAST COLUMN WRITTEN, AND OUTPUT ONE CHARACTER 0 P* -ECHOUT OUTPUT ONE CHARACTER IN ECHO MODE > . P* -NXTROW UPDATE ROW COUNTER TO NEXT ROW, r & P* AND IF NECESSARY HANDLE SCROLL. 8 P* -NXTCOL CALLED AFTER WRITE IN CURRENT COLUMN, SO: ,
0x2d53f4…2d5588 Dummy {f00=0x00e0, f01=0x0190, f02=»TE POSITION r @ P* -RESCN RESTORE SAVED WRITE POSITION TO BECOME CURRENT NEXT P* X P* b P* l P* v P* NORMAL REGISTER USAGE 6 P* IN THE DEVICE DRIVER PART OF SCREEN SECTION: P* * P* REGISTER A1 = RETURN CODE TO
0x2d5588…2d571c Dummy {f00=0x00e0, f01=0x0190, f02=» A4 = WORK REGISTER " P* A5 = STACK BASE $ " P* A6 = DWT-ADDRESS J P* A7 = ORDER p " P* A8 = ECB-ADDRESS P* P EJECT P* * P* THE L I N E D R I V E R P A R T * P*
0x2d571c…2d58b0 Dummy {f00=0x00e0, f01=0x0190, f02=»T I V A T I O N R O U T I N E S P* * 6 P* -STAWRI START WRITE SCREEN IN SPECIFIED POSITION 4 * P* -OUTCHA OUTPUT ONE SCREEN CHARACTER n P* -ENDWRI END WRITE SCREEN 8 P* -OUTCUR OUTPUT VISUAL CURSOR IN SPECIFIED POSITION , P* -CLESCR CLEA
0x2d58b0…2d5a44 Dummy {f00=0x00e0, f01=0x0190, f02=»U1 VCCU NO 1 P* IHSVU2 VCCU NO 2 P* IHSVU3 VCCU NO 3 . P* IHSVU4 VCCU NO 4 H P* IHSVU5 VCCU NO 5 b P* IHSVU6 VCCU NO 6 | P* IHSVU7 VCCU NO 7 P* IHSVU8 VCCU NO 8 P* P* P* P* P EJECT P* "
0x2d5a44…2d5bd8 Dummy {f00=0x00e0, f01=0x0190, f02=»T NOT ACCEPTED ( P* -LINER3 SST UNEXPECTEDLY ACCEPTED " P* -LINER4 UNEXPECTED INTERRUPT B F P* -LINER5 I/O-INSTRUCTION TRIED DURING POWER FAIL POST PROCESSING h P* P* P* P* S U B - R O U T I N E S P* F P* -CONPOS CO
0x2d5bd8…2d5d6c Dummy {f00=0x00e0, f01=0x0190, f02=»-CWTDWT GET CWT-ADDRESS FROM DWT-ADDRESS . P* -PUTQUE PUT DWT INTO SCREEN OUTPUT QUEUE 0 . P* -GETQUE GET DWT FROM SCREEN OUTPUT QUEUE b P* P* P* P* NORMAL REGISTER USAGE 4 P* IN THE LINE DRIVER PART OF THE SCREEN SECTION:
0x2d5d6c…2d5f00 Dummy {f00=0x00e0, f01=0x0190, f02=»STER P* A5 = CWT-ADDRESS P* A6 = DWT-ADDRESS & P* A7 = WORK REGISTER @ P* A8 = WORK REGISTER P* x P* P EJECT P* B P* THE P E R I P H E R A L S E C T I O N OF THE DRIVER IS A $ P* L I N E D R I V E R ONLY
0x2d5f00…2d6094 (1, 763) Dummy {f00=0x00e0, f01=0x018e, f02=». V P* P* 6 P* THE PERIPHERAL SECTION OF THE DRIVER CONSISTS OF , P* THE FOLLOWING (LINE DRIVER) ROUTINES: X P* , P* A C T I V A T I O N R O U T I N E S P* * P* -VUSTBL DEFINE START OF OUTPUT BLOCK P* -VUCHRO CHAR
0x2d6094…2d6228 Dummy {f00=0x00e0, f01=0x0190, f02=» P* * P* I N T E R R U P T R O U T I N E S P* @ P* FOR DATA INPUT J P* b P* -IHPVU1 VCCU NO 1 l P* -IHPVU2 VCCU NO 2 P* -IHPVU3 VCCU NO 3 P* -IHPVU4 VCCU NO 4 P* -IHPVU5 VCCU NO 5 P* -IHPVU6 VCCU N
0x2d6228…2d63bc Dummy {f00=0x00e0, f01=0x0190, f02=»CLOCK TIME-OUT ~ P* P EJECT P* . & P* R E C O V E R Y R O U T I N E 8 P* b * P* -VUON LINE DRIVER RECOVERY ROUTINE, l 0 P* COMMON TO PERIPHERAL AND SCREEN SECTIONS. P* P* P* P* 6 P* NORMAL REGISTE
0x2d63bc…2d6550 Dummy {f00=0x00e0, f01=0x0190, f02=»D ~ P* A3 = WORK REGISTER P* A4 = WORK REGISTER ( P* A5 = CWT-ADDRESS F P* A6 = DWT-ADDRESS b P* A7 = WORK REGISTER ~ P* A8 = WORK REGISTER P* P* P* P EJECT P* P* P* SYSTEM AD
0x2d6550…2d66e4 Dummy {f00=0x00e0, f01=0x0190, f02=»R UP TO EIGHT VIDEO CHANNELS p 8 P* -IS ADAPTED FOR CONNECTION OF THE VIDEO CHANNELS $ 0 P* EITHER ON PROGRAMMED CHANNEL OR IOP. ` 4 P* -HANDLES EITHER OF TWO CHARACTER GENERATORS. L P* -HANDLES ONE OF ELEVEN DIFFERENT (COUNTRY DEPENDANT) CHAR
0x2d66e4…2d6878 Dummy {f00=0x00e0, f01=0x0190, f02=» V . P* -CAN ECHO ALSO END OF RECORD CHARACTER 4 P* -CAN SUPPRESS TRAILING STRINGS COMPOSED OF: : P* SPACE (/20) r $ P* TABULATION (/11 + POS.CHAR.) P* UNDERLINE START (/12) " P* LOW INTENSITY START (/1E) P* LOW INTENS
0x2d6878…2d6a0c Dummy {f00=0x00e0, f01=0x0190, f02=»CT P* P* P* P* ( P*********** 2 P* ENTRIES * F P*********** Z P* n P* x 6 P* SCREEN SECTION DEVICE DRIVER ACTIVATION ROUTINES P* P* ( P ENTRY VUAD ADDRESS TO ADDRESSBLOCK P* P*
0x2d6a0c…2d6ba0 Dummy {f00=0x00e0, f01=0x0190, f02=»FROM VCCU1/4 NO 1 x . P ENTRY IHSVU2 INTERRUPT FROM VCCU1/4 NO 2 . P ENTRY IHSVU3 INTERRUPT FROM VCCU1/4 NO 3 L . P ENTRY IHSVU4 INTERRUPT FROM VCCU1/4 NO 4 ~ . P ENTRY IHSVU5 INTERRUPT FROM VCCU1/4 NO 5 . P ENTRY IHSVU6 INTERRUPT FROM VCCU1/4
0x2d6ba0…2d6d34 (1, 764) Dummy {f00=0x00e1, f01=0x018e, f02=»* $ P* PERIPHERAL SECTION LINE DRIVER L P* ACTIVATION ROUTINES ENTERED FROM DEVICE DRIVERS VIA NETWORK DISTRIBUTO 2 P* " P ENTRY VUCHRI CHARACTER INPUT . P ENTRY VUSTBL DEFINE START OF OUTPUT BLOCK " P ENTRY VUCHRO CHARACTER OUTPUT ,
0x2d6d34…2d6ec8 Dummy {f00=0x00e1, f01=0x0190, f02=» 6 P* INTERRUPT ROUTINES ENTERED FROM INTERRUPT VECTOR P* > . P ENTRY IHPVU1 INTERRUPT FROM VCCU1/4 NO 1 H . P ENTRY IHPVU2 INTERRUPT FROM VCCU1/4 NO 2 z . P ENTRY IHPVU3 INTERRUPT FROM VCCU1/4 NO 3 . P ENTRY IHPVU4 INTERRUPT FROM VCCU1/4 NO 4
0x2d6ec8…2d705c Dummy {f00=0x00e1, f01=0x0190, f02=» VCCU1/4 NO 7 t . P ENTRY IHPVU8 INTERRUPT FROM VCCU1/4 NO 8 P* H P* MISCELLENEOUS ENTRIES R P* r 0 P ENTRY VUON START RECOVERY OF VCCU1/4 UNITS | P* P* P* P* P EJECT P* . P************************
0x2d705c…2d71f0 Dummy {f00=0x00e1, f01=0x0190, f02=»* P* P EXTRN SAVE8 SAVE A1-A8 P EXTRN TDISP DISPATCH 4 P EXTRN TENDIO END I/O R & P EXTRN DISEND END I/O AND DISPATCH p . P EXTRN DISIOE ERROR, END I/O AND DISPATCH P EXTRN IHRTN RETURN , P EXTRN SWL48 SWITCH TO LEVEL 48
0x2d71f0…2d7384 Dummy {f00=0x00e1, f01=0x0190, f02=»XTRN INTVU3 INTERRUPT TABLE FOR VCCU1/4 NO 3 2 P EXTRN INTVU4 INTERRUPT TABLE FOR VCCU1/4 NO 4 4 2 P EXTRN INTVU5 INTERRUPT TABLE FOR VCCU1/4 NO 5 j 2 P EXTRN INTVU6 INTERRUPT TABLE FOR VCCU1/4 NO 6 2 P EXTRN INTVU7 INTERRUPT TABLE FOR VCCU1/4 NO 7
0x2d7384…2d7518 Dummy {f00=0x00e1, f01=0x0190, f02=»NTERRUPT r 2 P EXTRN PFPOST POWER FAIL POST PROCESSING FLAG P* F * P EXTRN NDSAV8 SAVE A3-A5, A7-A8 IN DWT P . P EXTRN NDGEDW GET DWT ADDRESS FOR A DEVICE ~ 2 P EXTRN NDREWS CALL RECOVERY FOR A WORK-STATION P EXTRN NDRET RETURN P EXTRN
0x2d7518…2d76ac Dummy {f00=0x00e1, f01=0x0190, f02=»FTER ECHO n 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P EJECT F P* T : P****************************************************** ^ ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS < P******************************************************* P
0x2d76ac…2d7840 Dummy {f00=0x00e1, f01=0x0190, f02=» Z P* DEVICE INDEX VALUES : P***************************************************** & P* d 2 P EXTRN PC:DIX PROGRAMMED CHANNEL DEVICE INDEX n P* P* @ P*********************************************************** P* ECB DISPLA
0x2d7840…2d79d4 (1, 765) Dummy {f00=0x00e1, f01=0x0190, f02=»XTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH ( P EXTRN ECBRC ECB RETURN CODE R " P EXTRN ECBCW ECB CONTROL WORD v P EJECT P* P* P************************ P* DWT PARAMETERS * P**********
0x2d79d4…2d7b68 Dummy {f00=0x00e1, f01=0x0190, f02=»-BLOCK p P EXTRN DWTOTQ OUTPUT QUEUE & P EXTRN DWTSB2 STACK BASE 2 IN DWT 0 & P EXTRN DWTCP2 CHANNEL PARAMETERS 2 Z * P EXTRN DWTLD1 LINE DRIVER DEPENDANT 1 * P EXTRN DWTLD2 LINE DRIVER DEPENDANT 2 P* P* 8 P EXTRN DWTDEV DEVICE
0x2d7b68…2d7cfc Dummy {f00=0x00e1, f01=0x0190, f02=» CONDITIONAL ASSEMBLY * . P***************************************** 0 P* b . P* THE NUMBER OF VIDEO CHANNELS HANDLED BY l * P* THE LINE DRIVER PART OF THIS DRIVER 8 P* IS SELECTED BY SETTING X:A TO 1,2,3,4,5,6,7 OR 8. P
0x2d7cfc…2d7e90 Dummy {f00=0x00e1, f01=0x0190, f02=» SHOULD HANDLE SCREEN SECTION OF VCCU1/4 , P* CONNECTED ON PROGRAMMED CHANNEL OR IOP ! 0 , P* IS SELECTED BY SETTING X:B TO 0 OR 1. ! ` P* ! PX:B EQU 0 ! PIOP EQU X:B ! P* ! P* ! P* ! H P* IF A DRIVER VERSION USING THE EXTENDED I
0x2d7e90…2d8024 Dummy {f00=0x00e1, f01=0x0190, f02=» ! : P* WHICH ONE OF EITHER OF THE TWO CHARACTER GENERATORS " B P* FOR SCREEN OUTPUT (TYPE I = ENGLISH, OR TYPE II = AMERICAN) " F 8 P* THE LINE DRIVER PART OF THE DRIVER SHOULD HANDLE, " , P* IS SELECTED BY SETTING X:C TO 1 OR 2. " P* " PX:C EQ
0x2d8024…2d81b8 Dummy {f00=0x00e1, f01=0x018e, f02=»HANDLE " d 6 P* (PROVIDED THAT THE CHARACTER SET IS SUPPORTED # 0 P* BY THE SELECTED CHARACTER GENERATOR), # H > P* IS SELECTED BY SETTING X:D TO 0,1,2,3,4,5,6,7,8,9 OR /A. # | P # P # P* CHARACTER-SET COUNTRY # P # P* 0 GB/NZ/SA/NL/B
0x2d81b8…2d834c Dummy {f00=0x00e1, f01=0x0190, f02=» P* 9 US $ P* A S (INDUSTRY VERSION) $ P* $ 2 PX:D EQU 0 $ < PCHASET EQU X:D $ N P* $ d P* $ n P* $ x P EJECT $ P* $ . P* IF THE DEVICE DRIVER PART OF THE DRIVER $ 0 P* SHOULD ECHO ALSO END-OF-RECORD-CHARACTER, $ , P* THIS I
0x2d834c…2d84e0 Dummy {f00=0x00e1, f01=0x0190, f02=»RIVER $ l 8 P* SHOULD SUPPRESS TRAILING STRINGS COMPOSED ONLY OF % . P* /20, /11+POS.CHARACTERS, /12, /1E, /1F, % J , P* THIS IS SELECTED BY SETTING X:F TO 1. % | P* % PX:F EQU 1 % PTRASPA EQU X:F % P* % P* % ( P* MEMORY MANAGEMENT BU
0x2d84e0…2d8674 (1, 766) Dummy {f00=0x00e1, f01=0x0190, f02=»* % P* & PX:G EQU 80 & PDVBLEN EQU X:G & & P* & < P EJECT & F P* & T P* & ^ $ P******************************** & h 6 P* DWT-DISPLACEMENTS RELATIVE DWTDEV * & $ P******************************** & P* & P* & P*
0x2d8674…2d8808 Dummy {f00=0x00e1, f01=0x0190, f02=» < PDWTCNC EQU DWTCN+1 CURRENT NEXT WRITE POS. COLUMN NUMBER ' P* ' D P* ' N 2 PDWTSN EQU 4 SAVED CURRENT NEXT WRITE POSITION ' X 0 P* AFTER PREVIOUS REQUEST OR AT /14 COMMAND ' : PDWTSNR EQU DWTSN SAVED NEXT WRITE POSITION ROW NUMBER ' : PDWTSNC E
0x2d8808…2d899c Dummy {f00=0x00e1, f01=0x0190, f02=» ' P* ( 0 P* USED BY SCREEN SECTION, DEVICE DRIVER PART ( P* ( F 8 PMAXROW EQU /1818 MAX NUMBER OF ROWS PER SCREEN IS 24 ( P < PMAXCOL EQU /5050 MAX NUMBER OF COLUMNS PER SCREEN IS 80 ( P* DWTDEV-BITS ( : PUNDBIT EQU /0400 UNDERLINE/NON-UNDERLI
0x2d899c…2d8b30 Dummy {f00=0x00e1, f01=0x0190, f02=»LUMN WRITTEN ( z : PLCPBIT EQU /20 LAST COLUMN WRITTEN BY PREVIOUS REQUEST ) P* ) R PSPACE EQU /20 SPACE ) " PPOINT EQU /2E POINT CHARACTER ) x P* ) * PCCERR EQU /4 STATUS: CODE CHECK ERROR ) & POPERR EQU /1 STATUS: NOT OPERABLE ) P* )
0x2d8b30…2d8cc4 Dummy {f00=0x00e1, f01=0x0190, f02=»T BIT 11,12,13 (LINE DRIVER DEPENDANT) ) 2 POTRFLA EQU /0010 OTR-ACTION AT NEXT INTERRUPT * . 2 PHLTFLA EQU /0008 HALT-ACTION AT NEXT INTERRUPT * d 2 PSSTFLA EQU /0004 SST-ACTION AT NEXT INTERRUPT * P* * , PSMLCUR EQU /07FF SCREEN MEMORY LOCATION *
0x2d8cc4…2d8e58 Dummy {f00=0x00e1, f01=0x0190, f02=»E DRIVER PART OF SCREEN SECTION * h 2 PCIOERR EQU /8000 ERROR: CIO START NOT ACCEPTED + ( , POTRERR EQU /4000 ERROR: OTR NOT ACCEPTED + ^ , PSSTERR EQU /2000 ERROR: SST NOT ACCEPTED + 6 PSSTER2 EQU /1000 ERROR: SST UNEXPECTEDLY ACCEPTED + P* (AFTER CIO S
0x2d8e58…2d8fec Dummy {f00=0x00e1, f01=0x0190, f02=»ED BY PERIPHERAL SECTION: + P* , " P* , , < PQUETIM EQU 1 CWT PERIPHERAL OUTPUT QUEUE TIME-OUT VALUE , 6 P* (MULTIPLES OF 100MS) , v 4 PMAXTVU EQU 4 MAX NBR OF TERMINALS ON ANY VCCU1/4 , 0 PTCPON EQU /0001 RECOVERY CAUSE: TC POWER ON , > PPONPSW
0x2d8fec…2d9180 Dummy {f00=0x00e1, f01=0x0190, f02=»RMNR EQU /0300 MASK FOR BIO BITS : TERM.NBR WITHIN CHANNEL , < PDEVADR EQU /0400 MASK FOR BIO BIT: DEV.ADR. WITHIN TERM. - B : PINDATA EQU /00FF MASK FOR BIO DATA BITS IN INPUT WORD - P* - P EJECT - P* - P********** - P* TABLES * - P**
0x2d9180…2d9314 (1, 767) Dummy {f00=0x00e1, f01=0x0190, f02=»CE INDEX (ALWAYS!) - l PVUAD EQU * ADDRESS BLOCK . P DATA ACVU ACTIVATION DRIVER . : $ P DATA ABVU ABORT ROUTINE ADDRESS . ^ P DATA 0 INTERRUPT HANDLER . P DATA RCVU RECOVERY ROUTINE . . P DATA ECHOVU DEVICE-DEPENDENT ECHO-ROUTINE . P* . P
0x2d9314…2d94a8 Dummy {f00=0x00e1, f01=0x0190, f02=»CODOUT EQU * . P IFT CHASET=0 / P IFT CHAGEN=1 / * ( P DATA /2340,/5B5C,/5D60,/7B7C,/7D7E / @ P XIF / l P IFT CHASET=0 / x P IFT CHAGEN=2 / ( P DATA /0340,/5B5C,/5D60,/7B7C,/7D7E / P XIF / P IFT CHASET=1 / P IFT CHAGEN=1 / ( P
0x2d94a8…2d963c Dummy {f00=0x00e1, f01=0x0190, f02=» / l P XIF 0 P IFT CHASET=3 0 P IFT CHAGEN=2 0 * ( P DATA /0340,/5B08,/5D60,/7B18,/7D7E 0 @ P XIF 0 l P IFT CHASET=4 0 x P IFT CHAGEN=1 0 ( P DATA /2310,/0618,/1716,/1215,/1314 0 P XIF 0 P IFT CHASET=5 0 P IFT CHAGEN=1 0 ( P
0x2d963c…2d97d0 Dummy {f00=0x00e1, f01=0x0190, f02=» 0 l P XIF 1 P IFT CHASET=7 1 P IFT CHAGEN=2 1 * ( P DATA /0340,/0604,/0560,/1614,/157E 1 @ P XIF 1 l P IFT CHASET=8 1 x P IFT CHAGEN=2 1 ( P DATA /0307,/0B0C,/0D17,/1B1C,/1D7E 1 P XIF 1 P IFT CHASET=9 1 P IFT CHAGEN=1 1 ( P
0x2d97d0…2d9964 Dummy {f00=0x00e1, f01=0x0190, f02=» 1 l P XIF 2 P IFT CHASET=/A 2 P IFT CHAGEN=1 2 * ( P DATA /2340,/0B0C,/0D60,/1B1C,/1D7E 2 @ P XIF 2 l P* 2 x B P* IF ERROR IN SYSGEN (WRONG COMBINATION OF CHASET AND CHAGEN), 2 . P* THEN CHARACTER-SET DEPENDANT INPUT-CODES 2 & P* ARE CONVERTE
0x2d9964…2d9af8 Dummy {f00=0x00e1, f01=0x0190, f02=»************************************ 2 4 P* C W T T A B * 3 , 2 P********************************************** 3 d P* 3 B P* THIS TABLE HOLDS ADDRESSES TO CHANNEL WORK TABLES, CWT:S, 3 ( P* ONE CWT PER VIDEO CHANNEL
0x2d9af8…2d9c8c Dummy {f00=0x00e1, f01=0x0190, f02=»ATA CWTVU2 3 P XIF 4 P IFF VUCHAN=1 4 P IFF VUCHAN=2 4 4 P DATA CWTVU3 4 J P XIF 4 ^ P IFF VUCHAN=1 4 j P IFF VUCHAN=2 4 P IFF VUCHAN=3 4 P DATA CWTVU4 4 P XIF 4 P IFF VUCHAN=1 4 P IFF VUCHAN=2 4 P IFF VUCHAN=3 4
0x2d9c8c…2d9e20 Dummy {f00=0x00e1, f01=0x0190, f02=»N=4 4 P IFF VUCHAN=5 5 P DATA CWTVU6 5 " P XIF 5 6 P IFF VUCHAN=1 5 B P IFF VUCHAN=2 5 X P IFF VUCHAN=3 5 n P IFF VUCHAN=4 5 P IFF VUCHAN=5 5 P IFF VUCHAN=6 5 P DATA CWTVU7 5 P XIF 5 P IFF VUCHAN=1 5 P IFF VUCHAN=
0x2d9e20…2d9fb4 (1, 768) Dummy {f00=0x00e2, f01=0x0190, f02=» P XIF 6 PCWTABE EQU * END OF TABLE 6 P* 6 2 P EJECT 6 < P* 6 J P* 6 T : P***************************************************** 6 ^ : P* C W T V U 1 * 6 : P**********************************************
0x2d9fb4…2da148 Dummy {f00=0x00e2, f01=0x0190, f02=»SS 6 r P* 7 PCWTVU1 EQU * TABLE ENTRY 7 PCWTDOS EQU *-CWTVU1 7 4 4 P DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 7 P PCWTPQ EQU *-CWTVU1 7 2 P DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR 7 PCWTSEQ EQU *-CWTVU1 7 4 P DATA 0 SCREEN SEC
0x2da148…2da2dc Dummy {f00=0x00e2, f01=0x0190, f02=»U1 7 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR 8 PCWTACK EQU *-CWTVU1 8 B < P DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION 8 ^ PCWTSRD EQU *-CWTVU1 8 ( P DATA 0 SST-READY DWT (SCREEN ONLY) 8 PCWTITA EQU *-CWTVU1 8 : P DATA
0x2da2dc…2da470 Dummy {f00=0x00e2, f01=0x0190, f02=»WTVU1 8 ( P CIO A2,1,VU1+1 CIO START PERIPHERAL 9 PCWTOTS EQU *-CWTVU1 9 : P OTR A2,0,VU1 OTR SCREEN 9 V PCWTOTP EQU *-CWTVU1 9 v " P OTR A2,0,VU1+1 OTR PERIPHERAL 9 PCWTCHS EQU *-CWTVU1 9 " P CIO A2,0,VU1 CIO HALT SCREEN 9 PCWTCHP EQU *-C
0x2da470…2da604 Dummy {f00=0x00e2, f01=0x018e, f02=»-CWTVU1 9 * P INR A2,0,VU1+1 INR (PERIPHERAL ONLY) : P IFT IOP=1 : > PCWTWE1 EQU *-CWTVU1 : P 0 P WER A2,VU1+VU1 WER1 (SCREEN ONLY, IOP ONLY) : l PCWTWE2 EQU *-CWTVU1 : 2 P WER A2,VU1+VU1+1 WER2 (SCREEN ONLY, IOP ONLY) : PCWTBUF EQU *-CWTVU1 :
0x2da604…2da798 Dummy {f00=0x00e2, f01=0x018e, f02=» : ^ P XIF ; P* ; P IFF VUCHAN=1 ; P EJECT ; 4 P* ; B P* ; L : P***************************************************** ; V : P* C W T V U 2 * ; : P*****************************************************
0x2da798…2da92c Dummy {f00=0x00e2, f01=0x0190, f02=» P* < PCWTVU2 EQU * TABLE ENTRY < P* < . 4 P DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 < 8 2 P DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR < p 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR < 2 P DATA 0 SCREEN SECTION LKM OUTPUT QUEUE AN
0x2da92c…2daac0 Dummy {f00=0x00e2, f01=0x0190, f02=»0 SST-READY DWT (SCREEN ONLY) < : P DATA INTVU2 ADDRESS TO POINTER TO WORK-STATION TABLE = & " P CIO A2,1,VU2 CIO START SCREEN = d ( P CIO A2,1,VU2+1 CIO START PERIPHERAL = P OTR A2,0,VU2 OTR SCREEN = " P OTR A2,0,VU2+1 OTR PERIPHERAL = " P CIO A2,0,VU
0x2daac0…2dac54 (1, 769) Dummy {f00=0x00e2, f01=0x018e, f02=»RAL ONLY) = t P IFT IOP=1 > 0 P WER A2,VU2+VU2 WER1 (SCREEN ONLY, IOP ONLY) > $ 2 P WER A2,VU2+VU2+1 WER2 (SCREEN ONLY, IOP ONLY) > X 0 P RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) > 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) > P XIF > P I
0x2dac54…2dade8 Dummy {f00=0x00e2, f01=0x0190, f02=» : P* C W T V U 3 * ? : P***************************************************** ? B P* ? 8 P* CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 3 ? P* ? P* ? $ PVU3 EQU /02 CONTROL UNIT ADDRESS ? P* ?
0x2dade8…2daf7c Dummy {f00=0x00e2, f01=0x0190, f02=»QUEUE ANCHOR ? n 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR @ 2 P DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR @ L 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR @ < P DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION @ ( P DATA 0 SST-READ
0x2daf7c…2db110 Dummy {f00=0x00e2, f01=0x0190, f02=»1,VU3+1 CIO START PERIPHERAL @ P OTR A2,0,VU3 OTR SCREEN A $ " P OTR A2,0,VU3+1 OTR PERIPHERAL A D " P CIO A2,0,VU3 CIO HALT SCREEN A j ( P CIO A2,0,VU3+1 CIO HALT PERIPHERAL A " P SST A2,VU3 SST (SCREEN ONLY) A * P INR A2,0,VU3+1 INR (PERIPHERAL ONLY)
0x2db110…2db2a4 Dummy {f00=0x00e2, f01=0x018e, f02=» 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) A 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) B 0 P XIF B h P IFF VUCHAN=1 B t P IFF VUCHAN=2 B P IFF VUCHAN=3 B P EJECT B P* B P* B : P************************************************
0x2db2a4…2db438 Dummy {f00=0x00e2, f01=0x018e, f02=» P* C 8 P* CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 4 C P* C J P* C T $ PVU4 EQU /0E CONTROL UNIT ADDRESS C ^ P* C PCWTVU4 EQU * TABLE ENTRY C P* C 4 P DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 C 2 P DATA 0 PERIPHERAL SEC
0x2db438…2db5cc Dummy {f00=0x00e2, f01=0x0190, f02=» C ` 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR D < P DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION D > ( P DATA 0 SST-READY DWT (SCREEN ONLY) D ~ : P DATA INTVU4 ADDRESS TO POINTER TO WORK-STATION TABLE D " P CIO A2,1,VU4 CIO START SCREEN D
0x2db5cc…2db760 Dummy {f00=0x00e2, f01=0x0190, f02=»O HALT SCREEN D ( P CIO A2,0,VU4+1 CIO HALT PERIPHERAL E " P SST A2,VU4 SST (SCREEN ONLY) E B * P INR A2,0,VU4+1 INR (PERIPHERAL ONLY) E h P IFT IOP=1 E 0 P WER A2,VU4+VU4 WER1 (SCREEN ONLY, IOP ONLY) E 2 P WER A2,VU4+VU4+1 WER2 (SCREEN ONLY, IOP ONL
0x2db760…2db8f4 (1, 770) Dummy {f00=0x00e2, f01=0x0190, f02=»UCHAN=1 E P IFF VUCHAN=2 F P IFF VUCHAN=3 F & P IFF VUCHAN=4 F < P EJECT F R P* F ` P* F j : P***************************************************** F t : P* C W T V U 5 * F : P************************
0x2db8f4…2dba88 Dummy {f00=0x00e2, f01=0x0190, f02=»/20 CONTROL UNIT ADDRESS F P* G PCWTVU5 EQU * TABLE ENTRY G * P* G J 4 P DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 G T 2 P DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR G 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR G 2 P DATA 0 SCREEN
0x2dba88…2dbc1c Dummy {f00=0x00e2, f01=0x0190, f02=»PHERAL SECTION G f ( P DATA 0 SST-READY DWT (SCREEN ONLY) H : P DATA INTVU5 ADDRESS TO POINTER TO WORK-STATION TABLE H B " P CIO A2,1,VU5 CIO START SCREEN H ( P CIO A2,1,VU5+1 CIO START PERIPHERAL H P OTR A2,0,VU5 OTR SCREEN H " P OTR A2,0,VU5+1 OTR PE
0x2dbc1c…2dbdb0 Dummy {f00=0x00e2, f01=0x0190, f02=» INR A2,0,VU5+1 INR (PERIPHERAL ONLY) H P IFT IOP=1 I . 0 P WER A2,VU5+VU5 WER1 (SCREEN ONLY, IOP ONLY) I @ 2 P WER A2,VU5+VU5+1 WER2 (SCREEN ONLY, IOP ONLY) I t 0 P RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) I 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP
0x2dbdb0…2dbf44 Dummy {f00=0x00e2, f01=0x018e, f02=» EJECT I P* J P* J : P***************************************************** J " : P* C W T V U 6 * J ` : P***************************************************** J P* J 8 P* CHANNEL WORK TABLE FOR VIDEO
0x2dbf44…2dc0d8 Dummy {f00=0x00e2, f01=0x0190, f02=» 4 P DATA 0 DWT OCCUPYING SCREEN SECTION OF VCCU1/4 K 2 P DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR K < 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR K r 2 P DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR K 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIM
0x2dc0d8…2dc26c Dummy {f00=0x00e2, f01=0x0190, f02=»DDRESS TO POINTER TO WORK-STATION TABLE K " P CIO A2,1,VU6 CIO START SCREEN L 0 ( P CIO A2,1,VU6+1 CIO START PERIPHERAL L V P OTR A2,0,VU6 OTR SCREEN L " P OTR A2,0,VU6+1 OTR PERIPHERAL L " P CIO A2,0,VU6 CIO HALT SCREEN L ( P CIO A2,0,VU6+1 CIO HALT P
0x2dc26c…2dc400 Dummy {f00=0x00e2, f01=0x0190, f02=»WER1 (SCREEN ONLY, IOP ONLY) L 2 P WER A2,VU6+VU6+1 WER2 (SCREEN ONLY, IOP ONLY) M $ 0 P RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) M Z 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) M P XIF M P IFF VUCHAN=1 M P IFF VUCHAN=2 M P IFF VUCHA
0x2dc400…2dc594 (1, 771) Dummy {f00=0x00e2, f01=0x0190, f02=»***************************** M x : P* C W T V U 7 * N & : P***************************************************** N d P* N 8 P* CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 7 N P* N P* N $ PVU7 EQU /26
0x2dc594…2dc728 Dummy {f00=0x00e2, f01=0x0190, f02=» DATA 0 PERIPHERAL SECTION OUTPUT QUEUE ANCHOR N 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR O 6 2 P DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR O n 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR O < P DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHER
0x2dc728…2dc8bc Dummy {f00=0x00e2, f01=0x0190, f02=»7 CIO START SCREEN O ( P CIO A2,1,VU7+1 CIO START PERIPHERAL P P OTR A2,0,VU7 OTR SCREEN P F " P OTR A2,0,VU7+1 OTR PERIPHERAL P f " P CIO A2,0,VU7 CIO HALT SCREEN P ( P CIO A2,0,VU7+1 CIO HALT PERIPHERAL P " P SST A2,VU7 SST (SCREEN ONLY) P * P INR
0x2dc8bc…2dca50 Dummy {f00=0x00e2, f01=0x0190, f02=»SCREEN ONLY, IOP ONLY) P x 0 P RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) Q 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) Q R P XIF Q P IFF VUCHAN=1 Q P IFF VUCHAN=2 Q P IFF VUCHAN=3 Q P IFF VUCHAN=4 Q P IFF VUCHAN=5 Q P IFF
0x2dca50…2dcbe4 Dummy {f00=0x00e2, f01=0x0190, f02=»* C W T V U 8 * Q : P***************************************************** R > P* R | 8 P* CHANNEL WORK TABLE FOR VIDEO CHANNEL UNIT NO. 8 R P* R P* R $ PVU8 EQU /2C CONTROL UNIT ADDRESS R P* R P
0x2dcbe4…2dcd78 Dummy {f00=0x00e2, f01=0x0190, f02=»E ANCHOR R j 4 P DATA 0 SCREEN SECTION ECHO OUTPUT QUEUE ANCHOR S 2 P DATA 0 SCREEN SECTION LKM OUTPUT QUEUE ANCHOR S H 2 P DATA 0 PERIPH. SECTION OUTPUT QUEUE TIMER PTR S ~ < P DATA 0 ACKUMULATOR DATA INPUT ERRORS PERIPHERAL SECTION S ( P DATA 0 SST-READY DW
0x2dcd78…2dcf0c Dummy {f00=0x00e2, f01=0x0190, f02=»8+1 CIO START PERIPHERAL S P OTR A2,0,VU8 OTR SCREEN T " P OTR A2,0,VU8+1 OTR PERIPHERAL T @ " P CIO A2,0,VU8 CIO HALT SCREEN T f ( P CIO A2,0,VU8+1 CIO HALT PERIPHERAL T " P SST A2,VU8 SST (SCREEN ONLY) T * P INR A2,0,VU8+1 INR (PERIPHERAL ONLY) T
0x2dcf0c…2dd0a0 Dummy {f00=0x00e2, f01=0x0190, f02=» IOP-BUFFER (SCREEN ONLY, IOP ONLY) T 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) U , P XIF U d P* U p P* U z P* U P* U P EJECT U P* U @ P************************************************************ U P* U " P* S C R E
0x2dd0a0…2dd234 (1, 772) Dummy {f00=0x00e3, f01=0x0190, f02=»******************************************************* U P* V @ P* V J P* ENTERED: AT LKM DATA 1 V T P* V t P* FUNCTIONS: V ~ P* V P* V " P* ORDER /00: TEST STATUS. V 0 P* 1.DUMMY IS SENT TO DISPLAY VIA VCCU1/4. V J P*
0x2dd234…2dd3c8 Dummy {f00=0x00e3, f01=0x0190, f02=»Y: V 2 P* IF CURSOR POSITION IS LAST COLUMN OF A ROW, W 0 P* AND IF THAT LAST COLUMN IS WRITTEN INTO, W @ 6 P* AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE W t . P* THE WRITING OF THAT LAST COLUMN, THEN: W " P* ECBCW IS INCREMENTED WITH 1 W . P*
0x2dd3c8…2dd55c Dummy {f00=0x00e3, f01=0x0190, f02=»MED W r > P* ACCORDING TO CHARACTER(S) FROM ECB-BUFFER. X D P* CHARACTERS IN THE RANGE /20 - /7F ARE ACCEPTED AND DISPLAYED. X N J P* CHARACTERS IN THE RANGE /00 - /1F (COMMAND CHARACTERS) X H P* FROM ECB-BUFFER, ARE
0x2dd55c…2dd6f0 Dummy {f00=0x00e3, f01=0x0190, f02=»N IN ECBRC. X x < P* WHEN THE LAST COLUMN OF A ROW HAS BEEN WRITTEN INTO, Y , P* THE CURSOR REMAINS IN THAT POSITION, Y T . P* AND THE FOLLOWING CHARACTERS (/20-/7F) Y , P* ARE WRITTEN INTO THAT SAME POSITION. Y 2 P* 2.EFFECTIVE LENGTH IS RETURNED
0x2dd6f0…2dd884 Dummy {f00=0x00e3, f01=0x0190, f02=»ED INTO ECBCW. Y d P* ADDITIONALLY: Z 2 P* IF CURSOR POSITION IS LAST COLUMN OF A ROW, Z . 0 P* AND IF THAT LAST COLUMN IS WRITTEN INTO, Z d 6 P* AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE Z . P* THE WRITING OF THAT LAST COLUMN, THEN: Z " P* E
0x2dd884…2dda18 Dummy {f00=0x00e3, f01=0x0190, f02=» 1.IF REQUESTED LENGTH IS LESS THAN 2 BYTES Z B P* (NO CONTROL CHARACTER), THEN DEFAULT-ACTION LF+CR IS DONE. [ 4 : P* 2.IF REQUESTED LENGTH IS AT LEAST 2 BYTES, THEN [ z L P* ACTIONS SPECIFIED BY USER IN RIGHT-MOST BYTE OF FIRST WORD IN BUFF [ . P
0x2dda18…2ddbac Dummy {f00=0x00e3, f01=0x0190, f02=»R [ r B P* /31 ERASE SCREEN AND WRITE FROM HOME POSITION P* OTHER VALUE: LF, CR P P* t 8 P* 3.IF REQUESTED LENGTH EXCEEDS 2 BYTES, THEN ALSO ~ $ P* DISPLAY-ACTION IS PERFORMED @ P* ACCORDING TO CHARACTER
0x2ddbac…2ddd40 Dummy {f00=0x00e3, f01=0x0190, f02=»ANGE /00 - /1F (COMMAND CHARACTERS) n J P* FROM ECB-BUFFER, ARE ILLEGAL EXCEPT FOR /11, /12, /13, ] , D P* /14, /1E, /1F. ILLEGAL CHARACTERS ARE IGNORED AND ] z F P* WHEN THE REQUEST IS COMPLETED, ERROR INDICATION IS ]
0x2ddd40…2dded4 (1, 773) Dummy {f00=0x00e3, f01=0x0190, f02=»POSITION, ] r . P* AND THE FOLLOWING CHARACTERS (/20-/7F) ^ , P* ARE WRITTEN INTO THAT SAME POSITION. ^ D 2 P* 4.EFFECTIVE LENGTH IS RETURNED INTO ECBEL. ^ t ( P* 5.STATUS IS RETURNED INTO ECBRC, ^ : P* IF VCCU1/4 IS NOT OPERABLE OR IF CODE CHECK ERR
0x2dded4…2de068 Dummy {f00=0x00e3, f01=0x0190, f02=»MN OF A ROW, ^ n 0 P* AND IF THAT LAST COLUMN IS WRITTEN INTO, _ 6 P* AND IF THE CURSOR HAS NOT BEEN POSITIONED SINCE _ H . P* THE WRITING OF THAT LAST COLUMN, THEN: _ " P* ECBCW IS INCREMENTED WITH 1 _ . P* (INDICATING LAST+1 COLUMN OF THAT ROW) _
0x2de068…2de1fc Dummy {f00=0x00e3, f01=0x0190, f02=»ION GIVEN _ ` ( P* IN ECBCW AT START OF REQUEST. ` , P* NO INFORMATION ON SCREEN IS ERASED. ` > 4 P* 2.THEN, IF REQUESTED LENGTH EXCEEDS 2 BYTES, ` n 0 P* DISPLAY-ACTION IS PERFORMED ACCORDING TO ` D P* CHARACTERS FROM ECB BUFFER (SEE ORDER /06,
0x2de1fc…2de390 Dummy {f00=0x00e3, f01=0x0190, f02=» POSITIONED. ` z 4 P* THE NUMBER OF CHARACTERS (1-80) TO BE ERASED, a 0 P* IS DEFINED IN ECBCW AT START OF REQUEST. a L . P* ERASING STARTS IN THE CURSOR POSITION. a , P* THE CURSOR REMAINS IN THAT POSITION. a D P* 2.STATUS IS RETURNED INTO ECBRC, IF
0x2de390…2de524 Dummy {f00=0x00e3, f01=0x0190, f02=» P* A8 = ECB ADDRESS b P* b & P* OUTPUT: A1 = RETURN CODE FOR ECB b * P* A6 = DWT ADDRESS b T P* A7 = ORDER b p P* A8 = ECB ADDRESS b P* b F P***************************************************************** b P* b PACVU EQU
0x2de524…2de6b8 Dummy {f00=0x00e3, f01=0x0190, f02=»-INTERRUPTS) b p P* c , P CF A15,SWL48 SWITCH TO LEVEL 48 AND ENB c P* c N P* CHECK ORDER CODE c X P* c r P CWK A7,/06 ORDER /06 ? c | P RF(E) ACV100 YES c P CWK A7,/0B ORDER /0B ? c P ABL(E) ACV420 YES c P CWK A7,/31 ORDER /31 ?
0x2de6b8…2de84c Dummy {f00=0x00e3, f01=0x0190, f02=»70 YES c P* d P* ILLEGAL ORDER CODE d P* d 4 " P ABL DISIOE I/O REQUEST ERROR d > P EJECT d d 6 P************************************************** d r P* ORDER /06 d P* STANDARD WRITE d 6 P************************************************
0x2de84c…2de9e0 Dummy {f00=0x00e3, f01=0x0190, f02=»CBRL,A8 GET REQUESTED LENGTH d P SUK A2,2 AT LEAST 2 BYTES ? e $ 4 P RF(N) ACV120 NO. THEN NO CONTROL CHARACTER, SO e H P* DO DEFAULT: LF+CR. e P* e $ P* CHECK BUFFER CONTROL CHARACTER e P* e $ P LDK A3,2 INITIATE BUFFER INDEX e , P* TO
0x2de9e0…2deb74 (1, 774) Dummy {f00=0x00e3, f01=0x0190, f02=» A2,/FF CLEAN LEFT BYTE e 2 P SUK A2,/2B WITHOUT POSITIONING BEFORE WRITE ? f P RF(Z) ACV150 YES f V P SUK A2,5 LF+LF+CR ? (=/30) f p P RF(Z) ACV110 YES f 4 P SUK A2,1 CLEAR SCREEN, HOME WRITE POS. ? (=/31) f 8 P RF(NZ) ACV120 NO. THEN FOR ALL OT
0x2deb74…2ded08 Dummy {f00=0x00e3, f01=0x0190, f02=»0101 HOME WRITE POSITION f : P ST A2,DWTCN+DWTDEV,A6 AS CURRENT NEXT WRITE POSITION g . P LDK A4,ROLBIT BIT 8 (SET IF SCROLL MODE) g ^ P C1R A4,A4 COMPLEMENT g : P ANS A4,DWTDEV,A6 RESET BIT 8 (NO LONGER SCROLL MODE) g 6 P CF A5,CLESCR CLEAR SCREEN,
0x2ded08…2dee9c Dummy {f00=0x00e3, f01=0x018e, f02=»XTROW DO LINE-FEED TO NEXT ROW g PACV120 EQU * h & * P CF A5,NXTROW DO LINE-FEED TO NEXT ROW h : P* DO CR h h PACV130 EQU * h x P LDK A2,/01 FIRST COLUMN h 8 P SC A2,DWTCNC+DWTDEV,A6 AS CURRENT NEXT WRITE COLUMN h PACV140 EQU * h 6 P LDK A4,LCWB
0x2dee9c…2df030 Dummy {f00=0x00e3, f01=0x0190, f02=» P* START WRITING i 0 P* ACCORDING TO ASCII CHARACTERS FROM BUFFER i P* i P PACV150 EQU * i Z : P LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION i n * P CF A5,STAWRI START NEW WRITE REQUEST i " P ABL(NZ) DEVERR STATUS NOT OK i P IFT TRA
0x2df030…2df1c4 Dummy {f00=0x00e3, f01=0x0190, f02=» i & P LD A1,ECBBA,A8 GET BUFFER ADDRESS j ( P LD A2,ECBRL,A8 GET REQUESTED LENGTH j 2 , P ADR A1,A2 GET ADDRESS TO END OF BUFFER j ^ * PACV160 CWK A2,2 REQUESTED LENGTH < 3 ? j . P RF(NG) ACV200 YES. THEN NO (MORE) ACTION j $ P SUK A1,1 DECR ADDRESS IN
0x2df1c4…2df358 Dummy {f00=0x00e3, f01=0x0190, f02=» * PACV170 SUK A2,1 DECR REQUESTED LENGTH k " P* TO SKIP THAT TRAILING CHAR k 2 4 P RB ACV160 GO BACKWARDS TO CHECK PRECEEDING CHAR k X * PACV180 CWK A2,4 REQUESTED LENGTH < 5 ? k . P RF(NG) ACV200 YES. THEN NO (MORE) ACTION k 0 P LC A4,-2,A1 NOW GET THE
0x2df358…2df4ec Dummy {f00=0x00e3, f01=0x0190, f02=» SUK A1,2 DECR ADDRESS IN BUFFER k $ P SUK A2,2 DECR REQUESTED LENGTH l ( P RB ACV170 l P , PACV190 LCR A4,A1 GET THE CHARACTER AGAIN l d P ANK A4,/FF l * P SUK A4,/12 TRAILING UNDERLINE START? l P RB(Z) ACV170 YES. SKIP IT l , P SUK A4,/C TRAIL
0x2df4ec…2df680 Dummy {f00=0x00e3, f01=0x0190, f02=»IT l x P* m 6 PACV200 ST A2,ECBRL,A8 STORE (NEW) REQUESTED LENGTH m P EJECT m N P XIF m PACV210 EQU * m h , P CF A15,GETCHR GET CHAR FROM ECB BUFFER m | " P LDR A1,A1 END OF ECB BUFFER ? m P RF(NP) ACV380 YES m P ANK A2,/7F CLEAN m P C
0x2df680…2df814 (1, 775) Dummy {f00=0x00e3, f01=0x0190, f02=» P RB ACV210 GET NEXT CHAR n P EJECT n $ P* n 2 P* CHECK OF COMMAND CHARACTER n < P* n ` PACV220 EQU * n j $ P CWK A7,/05 ORDER /05 RUNNING ? n ~ 6 P ABL(E) ACV480 YES. THEN DIFFERENT CHARACTER CHECK n P SUK A2,/11 TABULATION ? n P RF(Z) A
0x2df814…2df9a8 Dummy {f00=0x00e3, f01=0x0190, f02=»250 YES n " P SUK A2,1 FAST OUTPUT ? (/14) o P RF(Z) ACV350 YES o 6 * P SUK A2,/A START LOW INTENSITY ? (/1E) o P P RF(Z) ACV270 YES o ~ ( P SUK A2,1 STOP LOW INTENSITY ? (/1F) o P RF(Z) ACV280 YES o P* o " P* ILLEGAL (COMMAND) CHARACTER o
0x2df9a8…2dfb3c Dummy {f00=0x00e3, f01=0x0190, f02=» o t P EJECT p P* p P* START UNDERLINE p P* p : PACV230 EQU * p D * P LDKL A2,UNDBIT GET UNDERLINE MODE BIT p X PACV240 EQU * p & P ORS A2,DWTDEV,A6 SET BIT INTO DWT p P RB ACV210 GO GET NEXT CHAR p P* p P* STOP UNDERLINE p
0x2dfb3c…2dfcd0 Dummy {f00=0x00e3, f01=0x0190, f02=»DWTDEV,A6 RESET BIT IN DWT p P RB ACV210 GO GET NEXT CHAR q " P* q F P* START LOW (!) INTENSITY q P P* q r PACV270 EQU * q | 0 P LDKL A2,INTBIT GET HIGH INTENSITY MODE BIT q " P RB ACV260 GO RESET BIT IN DWT q P* q P* STOP LOW (!) INTEN
0x2dfcd0…2dfe64 Dummy {f00=0x00e3, f01=0x0190, f02=»CT q P* r * P* ORDER /06, COMMAND /11 (TABULATION) r P* r B PACV290 EQU * r L ( P CF A5,ENDWRI END THE WRITE REQUEST r ` " P ABL(NZ) DEVERR STATUS NOT OK r 6 P CF A15,GETCHR GET TAB COLUMN NUMBER (FIRST DIGIT) r P LDR A4,A2 SAVE FIRST DIGIT
0x2dfe64…2dfff8 Dummy {f00=0x00e3, f01=0x0190, f02=»/F GET UNITS r P ANK A4,/F GET TENTHS. ANY ? s P RF(Z) ACV310 NO s 8 PACV300 EQU * s P " P ADK A2,/A INCR WITH TEN UNITS s d P SUK A4,1 ONE MORE TIME ? s P RB(NZ) ACV300 YES s P* s ( P* CHECK COLUMN NUMBER TABULATED INTO s P* s PAC
0x2dfff8…2e018c Dummy {f00=0x00e3, f01=0x0190, f02=»R INTO LEFT BYTE s | PACV320 EQU * t . P CWK A2,1 < COLUMN 1 ? (=COLUMN 'ZERO' ?) t , P RF(NL) ACV330 NO t ^ , P LCK A2,/0101 YES. SET COLUMN 1 INSTEAD t x P RF ACV340 t PACV330 EQU * t 4 P CCK A2,MAXCOL EXCEEDING MAX NUMBER OF COLUMNS ? t P R
0x2e018c…2e0320 Dummy {f00=0x00e3, f01=0x0190, f02=»QU * t . P ORR A2,A4 COMBINE ROW AND COLUMN NUMBERS u : P ST A2,DWTCN+DWTDEV,A6 SET CURRENT NEXT WRITE POSITION u > 4 P ABL ACV140 GO RESET BIT 9 IN DWTDEV, DO STAWRI. u | P EJECT u P* u * P* ORDER /06, COMMAND /14 (FAST OUTPUT) u P* u PACV3
0x2e0320…2e04b4 (1, 776) Dummy {f00=0x00e4, f01=0x0190, f02=»CBRL,A8 GET REQUESTED LENGTH u ( P ST A4,ECBEL,A8 SET EFFECTIVE LENGTH v $ $ P SUR A4,A3 SUBTRACT BUFFER INDEX v P 6 P LDR A3,A4 SAVE REMAINING LENGTH FOR 'FAST OUTPUT' v x * P RF(Z) ACV370 NO OUTPUT IF ZERO LENGTH v P* v 4 P* NO OUTPUT IF NO ASCII CHARA
0x2e04b4…2e0648 Dummy {f00=0x00e4, f01=0x0190, f02=» STATUS v r * P ORS A1,ECBRC,A8 INTO ECB RETURN CODE w P RF ACV370 w > PACV360 EQU * w P : P CF A5,CHKOUT CHECK LAST COLUMN WRITTEN AND DO OUTPUT w d P SUK A3,1 ONE MORE TIME ? w P RB(NZ) ACV360 YES w PACV370 EQU * w ( P CF A5,ENDWRI END THE
0x2e0648…2e07dc Dummy {f00=0x00e4, f01=0x0190, f02=»SET CURSOR TO IT w P EJECT x P* x & P* END OF LKM-REQUEST x 0 P* x L PACV380 EQU * x V ( P CF A5,ENDWRI END THE WRITE REQUEST x j " P ABL(NZ) DEVERR STATUS NOT OK x 2 P CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION x PACV390 EQU * x P C
0x2e07dc…2e0970 Dummy {f00=0x00e4, f01=0x0190, f02=»SITION ALSO INTO ECB x n P LD A4,DWTDEV,A6 y P ANK A4,LCWBIT BIT 9 SET ? y 6 . P RF(Z) ACV395 NO = LAST COLUMN NOT WRITTEN y X : P IM ECBCW,A8 YES. INDICATE BY RETURNING LAST+1 COLUMN y PACV395 EQU * y 4 P CF A5,OUTCUR SET CURSOR TO NEXT WRITE POSIT
0x2e0970…2e0b04 Dummy {f00=0x00e4, f01=0x0190, f02=»A2,UNDBIT GET UNDERLINE MODE BIT y P C1R A2,A2 COMPLEMENT z ( & P ANS A2,DWTDEV,A6 RESET BIT IN DWT z F 0 P LDKL A2,INTBIT GET HIGH INTENSITY MODE BIT z p & P ORS A2,DWTDEV,A6 SET BIT INTO DWT z PACV410 EQU * z $ P ABL DISEND END I/O AND DISPATCH z
0x2e0b04…2e0c98 Dummy {f00=0x00e4, f01=0x0190, f02=»***************************************************** z P* { > PACV420 EQU * { H $ P LDK A3,2 INITIATE BUFFER INDEX { & P* (SKIP UNUSED LEADING 2 BYTES) { " P LDK A2,0 CLEAR WORK REGISTER { " P LDK A4,0 CLEAR WORK REGISTER { , P LC A4,ECBCW,A
0x2e0c98…2e0e2c Dummy {f00=0x00e4, f01=0x0190, f02=»TEAD { p P RF ACV440 | PACV430 EQU * | 2 P CCK A4,MAXROW EXCEEDING MAX NUMBER OF ROWS ? | 4 P RF(NG) ACV440 NO | j , P LCK A4,MAXROW YES. SET LAST ROW INSTEAD | PACV440 EQU * | ( P ECR A4,A4 ROW NUMBER INTO LEFT BYTE | 2 P LC A2,ECBCW+1,A8 GE
0x2e0e2c…2e0fc0 Dummy {f00=0x00e4, f01=0x0190, f02=»************************ | p P* ORDER /31 } P* ERASE } 4 < P******************************************************* } D P* } PACV450 EQU * } : P LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION } 6 P LD A3,ECBCW,A8 GET NUMBER OF CHARACTERS
0x2e0fc0…2e1154 (1, 777) Dummy {f00=0x00e4, f01=0x0190, f02=»,STAWRI START NEW WRITE REQUEST } " P ABL(NZ) DEVERR STATUS NOT OK ~ ( , P LDK A2,SPACE GET SPACE TO DO ERASE WITH ~ N P RB ACV360 GO DO ERASE ~ ~ P EJECT ~ 4 P************************************************ ~ P* ORDER /00 ~ P* TEST STATUS ~
0x2e1154…2e12e8 Dummy {f00=0x00e4, f01=0x018e, f02=»E POSITION ~ d 6 P RB ACV392 SET ECBCW AND DO (DUMMY) OUTPUT CURSOR P EJECT L 6 P************************************************* Z P* ORDER /05 P* BASIC WRITE 6 P************************************************* P* PACV470
0x2e12e8…2e147c Dummy {f00=0x00e4, f01=0x0190, f02=» * P* CHECK OF DETECTED COMMAND CHARACTER P* 6 PACV480 EQU * @ " P SUK A2,/0A LINE-FEED ? (=/0A) T P RF(NZ) ACV490 NO z ( P CF A5,ENDWRI END THE WRITE REQUEST " P ABL(NZ) DEVERR STATUS NOT OK * P CF A5,NXTROW DO LINE-FEED TO NEXT
0x2e147c…2e1610 Dummy {f00=0x00e4, f01=0x0190, f02=»CV210 NO. THEN ILLEGAL COMMAND CHAR ! 2 P* NO OUTPUT, NO ERROR STATUS, GET NEXT CHAR . ( P CF A5,ENDWRI END THE WRITE REQUEST d P RF(NZ) DEVERR STATUS NOT OK * P ABL ACV130 GO DO CARRIAGE RETURN ETC. P EJECT P* @ P**************
0x2e1610…2e17a4 Dummy {f00=0x00e4, f01=0x0190, f02=»R T n P* A B O R T R O U T I N E P* 0 @ P*********************************************************** : P* ~ P* $ P* CALL: CFR A15,A2 (A2 = ABVU) P* " P* USED BY: ABORT-LKM PROCESSOR , P* AT ABORT OF KEYBOARD INPUT
0x2e17a4…2e1938 Dummy {f00=0x00e4, f01=0x018e, f02=» , P* INPUT: A6 = DWT-ADDRESS OF ECHO DEVICE ( P* A8 = DWT-ADDRESS OF INPUT DEVICE 8 P* d P* OUTPUT: A6,A8 UNCHANGED ! n P* @ P************************************************************ P* PABVU EQU * 2 P CF A15,SAVC
0x2e1938…2e1acc Dummy {f00=0x00e4, f01=0x0190, f02=» @ P*********************************************************** P* L " P* S C R E E N S E C T I O N V * P* D E V I C E D R I V E R P A R T | & P* R E C O V E R Y R O U T I N E P* @ P******************************************
0x2e1acc…2e1c60 Dummy {f00=0x00e4, f01=0x0190, f02=»FUNCTIONS: P* 1. SET DWT BUSY P* 2. CLEAR SCREEN , 6 P* 3. INITIATE CURRENT NEXT WRITE POSITION IN DWT F P* 4. RESET BITS IN DWT FOR P* - SCROLL MODE P* - LAST COLUMN WRITTEN P* - UNDERLINE MODE P* 5. SET BI
0x2e1c60…2e1df4 (1, 778) Dummy {f00=0x00e4, f01=0x018e, f02=»CH x P* P* INPUT: A4 = RECOVERY CAUSE P* A5 = DWT STACK BASE 8 P* A6 = DWT ADDRESS V $ P* A7 = ORDER (IF REQUEST IS ON) r * P* A8 = ECB ADDRESS (IF REQUEST IS ON) $ P* 0 (IF NO REQUEST IS ON) P* P* OUTPUT: A1 =
0x2e1df4…2e1f88 Dummy {f00=0x00e4, f01=0x0190, f02=» PRCVU EQU * P LDKL A2,/7FFF READY-BIT . P ANS A2,DWTST,A6 RESET IT (=SET DWT BUSY) 6 8 P CF A5,CLESCR CLEAR SCREEN, RESET WRITE+CURSOR POS. h P RF(NZ) DEVERR STATUS NOT OK P LDKL A2,/0101 HOME POSITION : P ST A2,DWTCN+DWTDEV,A6 AS CU
0x2e1f88…2e211c Dummy {f00=0x00e4, f01=0x0190, f02=» A4,DWTDEV,A6 RESET BITS IN DWT 2 P CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION ( 2 P LDK A1,OPERR STATUS NOT OPERABLE (FOR ECBRC) ^ 2 P RB ACV400 GO RESET UNDERLINE+INTENSITY MODE, " P* AND EXIT: ENDIO+DISPATCH P EJECT P* B P
0x2e211c…2e22b0 Dummy {f00=0x00e4, f01=0x0190, f02=»R I V E R P A R T ~ P* E C H O R O U T I N E P* > B P************************************************************** H P* P* < P* ENTERED: FROM KEYBOARD DRIVER VIA NETWORK DISTRIBUTOR, " P* AT KEYBOARD INPUT WITH ECHO P
0x2e22b0…2e2444 Dummy {f00=0x00e4, f01=0x018e, f02=»NG OF CLEAR-CHARACTER ( P* 4. HANDLING OF LINEFEED-CHARACTER 0 P* 5. HANDLING OF CARRIAGE-RETURN-CHARACTER J D P* 6. HANDLING OF END-OF-RECORD-CHARACTER (ALPHANUM., LF OR CR) ~ : P* 7. EXIT: TO KEYBOARD DRIVER VIA NETWORK DISTRIBUTOR P*
0x2e2444…2e25d8 Dummy {f00=0x00e4, f01=0x0190, f02=» $ P* A7 = BIT 0 =1 IF END OF ECHO P* =0 IF NOT , P* L P* OUTPUT: A6 = DWT ADDRESS V P* x D P*************************************************************** P* PECHOVU EQU * ( P LDR A7,A7 END OF REQUEST FOR EC
0x2e25d8…2e276c Dummy {f00=0x00e4, f01=0x0190, f02=»TER, >=/80) l P IFT EORECH=0 * P RF(NL) ECV120 YES. NOT TO BE ECHOED. * P XIF X P IFT EORECH=1 d , P RF(L) ECV080 NO. THEN NOT EOR-CHARACTER z P* P* ECHO OF EOR-CHARACTER P* P ANK A2,/7F CLEAN P CWK A2,/20 </20
0x2e276c…2e2900 Dummy {f00=0x00e4, f01=0x0190, f02=» P* ECHO OF NON-EOR CHARACTER P* , PECV080 EQU * 6 P CWK A2,/20 </20 ? J 4 P RF(NL) ECV095 NO. THEN ALPHANUMERIC CHARACTER. d " P SUK A2,/08 BACKSPACE ? (/08) P RF(Z) ECV130 YES ( P SUK A2,/10 CLEAR-CHARACTER ? (/18) P
0x2e2900…2e2a94 (1, 779) Dummy {f00=0x00e4, f01=0x018e, f02=»O P* P* ECHO OF LINEFEED P* . * P CF A5,NXTROW DO LINEFEED TO NEXT ROW 8 P RF ECV100 GO SET CURSOR f PECV090 EQU * & P SUK A2,3 CARRIAGE RETURN ? (/0D) 4 P RF(NZ) ECV120 NO. THEN ILLEGAL ECHO CHARACTER! P* P*
0x2e2a94…2e2c28 Dummy {f00=0x00e4, f01=0x0190, f02=» Z 6 P LDK A4,LCWBIT BIT 9 (SET IF LAST COLUMN WRITTEN) P C1R A4,A4 COMPLEMENT B " P ANS A4,DWTDEV,A6 RESET BIT 9 ` P RF ECV100 GO SET CURSOR P* ( P* DO ECHO OF ALPHANUMERIC CHARACTER P* PECV095 EQU * $ P CF A5,ECHOUT
0x2e2c28…2e2dbc Dummy {f00=0x00e4, f01=0x0190, f02=»RENT NEXT WRITE POSITION r & P CF A5,OUTCUR OUTPUT CURSOR IN IT P RF(NZ) DEVERR STATUS NOT OK J P RF ECV120 RETURN n P* P* END THE ECHO REQUEST P* PECV110 EQU * 2 P CF A15,SAVCN SAVE CURRENT NEXT WRITE POSITION . P CF
0x2e2dbc…2e2f50 Dummy {f00=0x00e4, f01=0x0190, f02=»TURN FROM ECHO TO KB-DRIVER P EJECT $ P* 2 ( P* HANDLING OF A BACKSPACE-CHARACTER < P* h PECV130 EQU * r P LD A2,DWTDEV,A6 P LDR A4,A2 SAVE INTO A4 > P ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN ALREADY WRITTEN P* BY
0x2e2f50…2e30e4 Dummy {f00=0x00e4, f01=0x0190, f02=»RITTEN (DURING REQUEST) p > P LD A4,DWTSN+DWTDEV,A6 GET NEXT WRITE POSITION SAVED AFTER P* PREVIOUS REQUEST b : P CW A4,DWTCN+DWTDEV,A6 = CURRENT NEXT WRITE POSITION ? ~ ( P RB(E) ECV120 YES. THEN NO RUB-OUT ! P LDKL A4,-1 < P ADS A4,DWTC
0x2e30e4…2e3278 Dummy {f00=0x00e4, f01=0x0190, f02=»LONGER WRITTEN) b PECV150 EQU * 2 P LDK A2,SPACE RUBOUT PREVIOUS (OR LAST) COLUMN , , P CF A5,ECHOUT OUTPUT ONE SPACE TO RUBOUT b P RB ECV100 GO SET CURSOR P EJECT P* $ P* HANDLING OF A CLEAR-CHARACTER P* PECV160 EQU *
0x2e3278…2e340c Dummy {f00=0x00e4, f01=0x0190, f02=»BY PREVIOUS REQUEST) ( P RB(NZ) ECV120 YES. THEN NO RUBOUT ! P* H P* PREPARE THE RUBOUT R P* n : P LD A3,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION x < P SU A3,DWTSN+DWTDEV,A6 SUBTRACT WITH NEXT WRITE POSITION $ P* SAVED AFTER PR
0x2e340c…2e35a0 Dummy {f00=0x00e4, f01=0x0190, f02=»DK A3,1 YES. MODIFY TO RUBOUT ALSO LAST COLUMN PECV170 EQU * 6 0 P ADK A3,0 ANY ECHOED CHARACTERS TO RUBOUT ? J P RB(Z) ECV120 NO ~ P* P* DO THE RUBOUT P* : P CF A15,RESCN RESTORE SAVED WRITE POS. AS CURRENT NEXT 6 P CF A5,S
0x2e35a0…2e3734 (1, 780) Dummy {f00=0x00e5, f01=0x018e, f02=»RUBOUT WITH r P CF A5,OUTCHA OUTPUT IT P RF(NZ) DEVERR STATUS NOT OK 4 ( P SUK A3,1 ONE MORE CHAR TO RUBOUT ? X P RB(NZ) ECV180 YES ( P CF A5,ENDWRI END THE WRITE REQUEST P RF(NZ) DEVERR STATUS NOT OK P RB ECV100 GO SET CURSOR
0x2e3734…2e38c8 Dummy {f00=0x00e5, f01=0x018e, f02=» p * P* D E V I C E D R I V E R P A R T P* E R R O R R O U T I N E 6 P* Z < P******************************************************** d P* P* ( P* ENTERED: FROM DEVICE DRIVER PART, 6 P* AT ERROR STATUS AT RETURN FROM LI
0x2e38c8…2e3a5c Dummy {f00=0x00e5, f01=0x0190, f02=» P* INPUT: A6 = DWT ADDRESS P* & 4 P* OUTPUT: A1 = BIT 15 =1 (STATUS NOT OPERABLE) 0 P* A6 = DWT ADDRESS h P* > P********************************************************* P* PDEVERR EQU * 2 P LDK A1,OPERR STATUS NOT O
0x2e3a5c…2e3bf0 Dummy {f00=0x00e5, f01=0x0190, f02=»************************* h P* " " P* S C R E E N S E C T I O N , * P* D E V I C E D R I V E R P A R T R P* S U B - R O U T I N E S P* F P***************************************************************** P* P*
0x2e3bf0…2e3d84 Dummy {f00=0x00e5, f01=0x0190, f02=»* -NXTROW UPDATE ROW COUNTER TO NEXT ROW, & P* AND IF NECESSARY HANDLE SCROLL. 2 8 P* -NXTCOL CALLED AFTER WRITE IN CURRENT COLUMN, SO: , P* UPDATE COLUMN COUNTER TO NEXT COLUMN, 4 P* AND IF NECESSARY HANDLE LAST-COLUMN-WRITTEN. . P* -SAVCN
0x2e3d84…2e3f18 Dummy {f00=0x00e5, f01=0x0190, f02=» P EJECT P* < P******************************************************** P* P* C H K O U T f P* | > P********************************************************* P* P* P* CALL: CF A5,CHKOUT P* 2 P* USED
0x2e3f18…2e40ac Dummy {f00=0x00e5, f01=0x0190, f02=»RITE REQUEST AND START A NEW ONE. x P* 2. OUTPUT ONE CHARACTER * . P* 3. UPDATE COLUMN COUNTER TO NEXT COLUMN L P* ~ ( P* INPUT: A2 = CHARACTER TO BE OUTPUT P* A5 = DWT STACK POINTER P* A6 = DWT ADDRESS P* P* OUTPUT: A2
0x2e40ac…2e4240 Dummy {f00=0x00e5, f01=0x0190, f02=»******************************************** z P* 4 PCHKOUT EQU * > , P LDR A4,A2 SAVE CHARACTER TO BE OUTPUT R P LD A2,DWTDEV,A6 6 P ANK A2,LCWBIT BIT 9 SET ? (=LAST COLUMN WRITTEN) P RF(Z) CHKO10 NO ( P CF A5,ENDWRI END THE WRIT
0x2e4240…2e43d4 (1, 781) Dummy {f00=0x00e5, f01=0x0190, f02=»T NEW WRITE REQUEST ~ P RB(NZ) DEVERR STATUS NOT OK PCHKO10 EQU * @ ( P LDR A2,A4 RESTORE SAVED CHARACTER T P CF A5,OUTCHA OUTPUT IT P RB(NZ) DEVERR STATUS NOT OK P LDR A2,A4 RESTORE A2 AGAIN 8 P CF A15,NXTCOL UPDATE COLUMN COU
0x2e43d4…2e4568 Dummy {f00=0x00e5, f01=0x0190, f02=»************** b P* P* E C H O U T P* 6 @ P************************************************************ @ P* P* P* CALL: CF A5,ECHOUT P* 2 P* USED BY: SCREEN SECTION, DEVICE DRIVER PART P* 2 P* FUNCTION
0x2e4568…2e46fc Dummy {f00=0x00e5, f01=0x0190, f02=»* A5 = DWT STACK POINTER P* A6 = DWT ADDRESS " P* > P* OUTPUT: A2 = CHANGED H P* A4 = CHANGED f P* A5 = DWT STACK BASE ~ P* A6 = DWT ADDRESS P* < P******************************************************** P*
0x2e46fc…2e4890 Dummy {f00=0x00e5, f01=0x018e, f02=»A5,STAWRI START THE WRITE REQUEST P RB(NZ) DEVERR STATUS NOT OK * & P LDR A2,A4 RESTORE SAVED CHARACTER N P CF A5,OUTCHA OUTPUT IT x P RB(NZ) DEVERR STATUS NOT OK ( P CF A5,ENDWRI END THE WRITE REQUEST P RB(NZ) DEVERR STATUS NOT OK
0x2e4890…2e4a24 Dummy {f00=0x00e5, f01=0x018e, f02=» P* N X T R O W P* > P********************************************************** ( P* j P* t P* CALL: CF A5, NXTROW ~ P* 2 P* USED BY: SCREEN SECTION, DEVICE DRIVER PART P* 0 P* FUNCTION: UPDATE ROW COUNTER TO
0x2e4a24…2e4bb8 Dummy {f00=0x00e5, f01=0x0190, f02=» P* P* OUTPUT: A2 = CHANGED P* A4 = CHANGED , P* A5 = DWT STACK BASE D P* A6 = DWT ADDRESS b P* ~ > P********************************************************** P* PNXTROW EQU * 2 P LC A4,DWTCNR+DWTDEV,A6 GET CURR
0x2e4bb8…2e4d4c Dummy {f00=0x00e5, f01=0x018e, f02=» = ONE ROW l 4 P ADS A2,DWTCNR+DWTDEV,A6 INCR CURRENT ROW NUMBER P LD A4,DWTDEV,A6 J 8 P ANK A4,ROLBIT BIT 8 SET ? (=ALREADY IN SCROLL MODE) d " P RF(Z) NXTR40 NO. THEN RETURN P* P* CONTINUE SCROLLING P* < P LC A4,DWTCNR+DWTD
0x2e4d4c…2e4ee0 Dummy {f00=0x00e5, f01=0x018e, f02=» Z P* P* CONTINUE RUBOUT P* , : P LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION 6 , P ADKL A2,/0100 RUBOUT ONE ROW IN ADVANCE t 2 P LDK A4,/50 ONE ROW CONTAINS 80 CHAR TO RUBOUT P RF NXTR20 GO DO RUBOUT P* P* ST
0x2e4ee0…2e5074 (1, 782) Dummy {f00=0x00e5, f01=0x0190, f02=» t P LDK A2,/01 SET FIRST ROW 0 P SC A2,DWTCNR+DWTDEV,A6 AS CURRENT WRITE ROW * 4 P LDK A4,/A0 TWO ROWS CONTAIN 160 CHAR TO RUBOUT ^ : P LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION PNXTR20 EQU * . P ANKL A2,/FF00 RUB FROM BEGIN OF
0x2e5074…2e5208 Dummy {f00=0x00e5, f01=0x0190, f02=») DEVERR STATUS NOT OK PNXTR30 EQU * . P LDK A2,SPACE GET SPACE TO DO RUBOUT WITH 2 P CF A5,OUTCHA OUTPUT IT d P RB(NZ) DEVERR STATUS NOT OK P SUK A4,1 ONE MORE TIME ? P RB(NZ) NXTR30 YES ( P CF A5,ENDWRI END THE WRITE REQUEST
0x2e5208…2e539c Dummy {f00=0x00e5, f01=0x0190, f02=»*********************************************** P* 8 P* N X T C O L B P* X > P********************************************************* b P* P* P* CALL: CF A15,NXTCOL P* 2 P* USED BY: SCREEN SECTION, DEVICE DRIVER
0x2e539c…2e5530 Dummy {f00=0x00e5, f01=0x018e, f02=»DATE COLUMN COUNTER TO NEXT COLUMN. " P* 2. IF LAST COLUMN WRITTEN, , P* SET BIT 9 IN DWTDEV. R P* t P* INPUT: NONE. ~ P* P* OUTPUT: A4 CHANGED. P* @ P***********************************************************
0x2e5530…2e56c4 Dummy {f00=0x00e5, f01=0x0190, f02=» d : P LC A4,DWTCNC+DWTDEV,A6 GET CURRENT NEXT WRITE COLUMN " P CCK A4,MAXCOL = LAST COLUMN ? F P RF(NE) NXTC10 NO l & P LDK A4,LCWBIT LAST COLUMN WRITTEN P ORS A4,DWTDEV,A6 SET BIT 9 P RF NXTC20 PNXTC10 EQU * 6 P IM DWTCN+DW
0x2e56c4…2e5858 Dummy {f00=0x00e5, f01=0x0190, f02=»*********************************** z P* , P* S A V C N 6 P* J > P********************************************************** T P* P* P* CALL: CF 15,SAVCN P* 2 P* USED BY: SCREEN SECTION, DEVICE DRIVER PART P*
0x2e5858…2e59ec Dummy {f00=0x00e5, f01=0x0190, f02=»* INPUT: NONE P* P* OUTPUT: A2,A4 CHANGED P* @ D P*************************************************************** J P* PSAVCN EQU * $ P* COPY DWTDEV BIT 9 INTO BIT 10 P LD A4,DWTDEV,A6 P LDR A2,A4 SAVE INTO A
0x2e59ec…2e5b80 Dummy {f00=0x00e5, f01=0x0190, f02=»READY BY PREVIOUS REQUEST) P C1R A2,A2 COMPLEMENT " " P ANS A2,DWTDEV,A6 RESET BIT 10 @ & P SRL A4,1 SHIFT BIT 9 INTO BIT 10 f $ P ORS A4,DWTDEV,A6 STORE INTO DWT P* COPY DWTCN INTO DWTSN : P LD A2,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE PO
0x2e5b80…2e5d14 (1, 783) Dummy {f00=0x00e5, f01=0x0190, f02=»***************************************** ~ P* 2 P* R E S C N < P* P @ P************************************************************ Z P* P* P* CALL: CF A15,RESCN P* 0 P* USED BY: SCREEN SECTION,DEVICE DRIVER PART
0x2e5d14…2e5ea8 Dummy {f00=0x00e5, f01=0x0190, f02=»ORE DWTDEV BIT 9 FROM BIT 10. P* & P* INPUT: NONE. 0 P* F P* OUTPUT: A2,A4 CHANGED. P P* p B P************************************************************** z P* PRESCN EQU * $ P* COPY DWTDEV BIT 10 INTO BIT 9 P L
0x2e5ea8…2e603c Dummy {f00=0x00e5, f01=0x0190, f02=»WBIT BIT 9 (SET IF LAST COLUMN WRITTEN) P C1R A2,A2 COMPLEMENT 0 " P ANS A2,DWTDEV,A6 RESET BIT 9 N & P SLL A4,1 SHIFT BIT 10 INTO BIT 9 t $ P ORS A4,DWTDEV,A6 STORE INTO DWT P* COPY DWTSN INTO DWTCN 8 P LD A2,DWTSN+DWTDEV,A6 GET SAVED N
0x2e603c…2e61d0 Dummy {f00=0x00e5, f01=0x0190, f02=» > P********************************************************** P* F " P* S C R E E N S E C T I O N P & P* L I N E D R I V E R P A R T v , P* A C T I V A T I O N R O U T I N E S P* > P**********************************************
0x2e61d0…2e6364 Dummy {f00=0x00e5, f01=0x0190, f02=»PART OF THIS DRIVER. h H P* RETURN TO DEVICE DRIVER PART IS MADE VIA THE NETWORK DISTRIBUTOR. P* h P* r P EJECT | P* : P***************************************************** P* P* S T A W R I P* : P************
0x2e6364…2e64f8 Dummy {f00=0x00e5, f01=0x0190, f02=» DEVICE DRIVER PART v P* 0 P* FUNCTION:TO DEFINE, FOR THIS CIO-REQUEST, & * P* THE START WRITE POSITION ON SCREEN. Z P* * P* INPUT: A2 = WRITE POSITION ON SCREEN P* ( /0101-/1850 ) P* A6 = DWT-ADDRESS P* P* OUTPUT
0x2e64f8…2e668c Dummy {f00=0x00e5, f01=0x0190, f02=»************** h P* PSTAWRI EQU * . P CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT 4 * P CF A15,CONPOS CONVERT SCREEN POSITION f ( P* INTO SCREEN MEMORY DISPLACEMENT < P CF A15,IXTERM INDEX SCREEN MEMORY DISPL. WITH TERM. NBR 0 P ST A2,D
0x2e668c…2e6820 Dummy {f00=0x00e5, f01=0x0190, f02=»WTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? P RF(Z) STAWR2 NO 4 PSTAWR1 EQU * L 8 P CF A15,PUTQUE PUT REQUESTING DWT INTO SCREEN QUEUE ` P ABL TDISP DISPATCH PSTAWR2 EQU * 6 P ST A6,CWTDOS,A5 OCCUPY SCREEN SECTION OF VCCU1/4 P I
0x2e6820…2e69b4 (1, 784) Dummy {f00=0x00e6, f01=0x0190, f02=»O POP REGISTERS, SET OK-STATUS AND RETURN P XIF 2 P EJECT > P* L 8 P**************************************************** V P* P* O U T C H A P* 8 P**************************************************** P* P*
0x2e69b4…2e6b48 Dummy {f00=0x00e6, f01=0x0190, f02=» CHARACTER r P* , P* INPUT: A2 = ASCII-CHARACTER (/20-/7F) P* A6 = DWT-ADDRESS L P* h P* OUTPUT: A1 = RETURN CODE r $ P* 0 IF OK, NOT 0 IF ERROR P* A2 = DESTROYED P* : P****************************************
0x2e6b48…2e6cdc Dummy {f00=0x00e6, f01=0x018e, f02=»CONVERTED, x J P* ACCORDING TO CHARACTER GENERATOR IN SYSTEM AND CURRENT DISPLAY MODE, $ P* INTO A 11-BIT VIDEO-CHARACTER. ` P* ( P ANK A2,/7F CLEAR INSIGNIFICANT BITS 4 P LDK A4,CODOUT-CODINP LENGTH OF CONVERSION TABLE POUTCH1 EQU * 2
0x2e6cdc…2e6e70 Dummy {f00=0x00e6, f01=0x0190, f02=» P RB(NE) OUTCH1 NOT EQUAL & P LC A2,CODOUT,A4 CONVERT CHARACTER $ POUTCH2 EQU * N & P LD A3,DWTDEV,A6 GET DISPLAY-MODE b P ANKL A3,INTBIT+UNDBIT BITS P ORR A2,A3 INTO BIO P* P* $ P CF A15,CWTDWT GET CWT FROM DWT P
0x2e6e70…2e7004 Dummy {f00=0x00e6, f01=0x0190, f02=» NOT ACCEPTED x P ABL TDISP DISPATCH P XIF 2 P IFT IOP=1 > 2 P LD A3,CWTBIN,A5 GET WORD-INDEX IN IOP-BUFFER P 0 P ADR A3,A3 CONVERT TO DISPLACEMENT IN BYTES . P LDKL A4,CWTBUF GET ADDRESS TO IOP-BUFFER P ADR A4,A5 IN CWT " P A
0x2e7004…2e7198 Dummy {f00=0x00e6, f01=0x0190, f02=»EPO POP REGISTERS, SET OK-STATUS AND RETURN P XIF 4 P EJECT @ P* N 8 P**************************************************** X P* P* E N D W R I P* : P***************************************************** P* P*
0x2e7198…2e732c Dummy {f00=0x00e6, f01=0x0190, f02=»CIO-WRITE-REQUEST v P* P* INPUT: A6 = DWT-ADDRESS $ P* F P* OUTPUT: A1 = RETURN CODE P $ P* 0 IF OK, NOT O IF ERROR r P* A2 = DESTROYED P* 6 P************************************************* P* PENDWRI
0x2e732c…2e74c0 Dummy {f00=0x00e6, f01=0x0190, f02=»DKL A4,HLTFLA FLAG HALT-ACTION REQUESTED ( P ORS A4,DWTST,A6 INTO DEVICE STATUS 0 P ABL IHS125 DO CIO HALT P XIF | P IFT IOP=1 PENDWR1 EQU * 2 P LD A2,CWTBIN,A5 GET WORD-INDEX IN IOP-BUFFER " P RF(NZ) ENDWR2 INDEX NOT ZERO &
0x2e74c0…2e7654 (1, 785) Dummy {f00=0x00e6, f01=0x0190, f02=»ATUS AND RETURN l PENDWR2 EQU * 4 P ORKL A2,IOPPAR WORD-MODE + READ-MEMORY TRANSFER , . P EX CWTWE1,A5 WRITE BUFFER LENGTH INTO IOP d . P LDKL A2,CWTBUF GET ADDRESS TO IOP-BUFFER P ADR A2,A5 IN CWT 0 P EX CWTWE2,A5 WRITE BUFFER ADDRESS INT
0x2e7654…2e77e8 Dummy {f00=0x00e6, f01=0x0190, f02=»ART | P XIF P EJECT P* & 8 P*************************************************** 0 P* l P* O U T C U R v P* 8 P*************************************************** P* P* P* CALL: CF A5,OUTCUR P*
0x2e77e8…2e797c Dummy {f00=0x00e6, f01=0x0190, f02=»= REQUESTED CURSOR POSITION ON SCREEN P* ( /0101 - /1850 ) . P* A6 = DWT-ADDRESS P P* l P* OUTPUT: A1 = RETURN CODE v $ P* 0 IF OK, NOT 0 IF ERROR P* A2 = DESTROYED P* 8 P************************************
0x2e797c…2e7b10 Dummy {f00=0x00e6, f01=0x0190, f02=»SITION p ( P* INTO SCREEN MEMORY DISPLACEMENT < P CF A15,IXTERM INDEX SCREEN MEMORY DISPL. WITH TERM. NBR : 0 P ST A2,DWTLD2,A6 SAVE SCREEN MEMORY LOCATION z P* (=BIO FOR OTR) 8 P LDKL A2,SMLCUR SCREEN MEM.LOC. HOLDING CURSOR POS. 8 P CF
0x2e7b10…2e7ca4 Dummy {f00=0x00e6, f01=0x018e, f02=» 6 P LDKL A3,OTRFLA FLAG OTR-ACTION AT NEXT INTERRUPT ( P ORS A3,DWTST,A6 INTO DEVICE STATUS > $ P CF A15,CWTDWT GET CWT FROM DWT j P INH 8 P LD A3,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? , P RB(NZ) STAWR1 YES. QUEUE REQUESTING DWT
0x2e7ca4…2e7e38 Dummy {f00=0x00e6, f01=0x0190, f02=» P IFT IOP=1 * P LDKL A3,OTRFLA IF THEN RESET OTR-FLAG & P XRS A3,DWTST,A6 IN DEVICE STATUS H 6 P LD A3,DWTLD2,A6 GET SCREEN MEMORY CURSOR POSITION r POUTCU2 EQU * * P ST A3,CWTBUF,A5 STORE INTO IOP-BUFFER , P CM CWTBIN,A5 RESET INDEX
0x2e7e38…2e7fcc Dummy {f00=0x00e6, f01=0x0190, f02=»****************************************** P* 2 P* C L E S C R < P* R 8 P**************************************************** P* P* P* CALL: CF A5,CLESCR P* 2 P* USED BY: SCREEN SECTION, DEVICE DRIVER PART P
0x2e7fcc…2e8160 Dummy {f00=0x00e6, f01=0x0190, f02=» v P* P* OUTPUT: A1 = RETURN CODE & P* 0 IF OK, NOT 0 OF ERROR 4 P* A2 = DESTROYED ^ P* x 8 P*************************************************** P* PCLESCR EQU * . P CF A15,NDSAV8 SAVE A3-A5, A7-A8 INTO DWT
0x2e8160…2e82f4 (1, 786) Dummy {f00=0x00e6, f01=0x0190, f02=»START n 6 P LDKL A3,HLTFLA FLAG HALT-ACTION AT NEXT INTERRUPT ( P ORS A3,DWTST,A6 INTO DEVICE STATUS H $ P CF A15,CWTDWT GET CWT FROM DWT t P INH 8 P LD A3,CWTDOS,A5 ANY DWT OCCUPYING SCREEN SECTION ? , P RB(NZ) STAWR1 YES. QUEUE REQUESTING
0x2e82f4…2e8488 Dummy {f00=0x00e6, f01=0x0190, f02=»LAG t & P XRS A3,DWTST,A6 IN DEVICE STATUS . P LDKL A3,/0120 SPACE (HIGH-INTENSITY MODE) 6 2 P RB OUTCU2 STORE INTO IOP-BUFFER AND DO WER:S h P XIF PCLESC2 EQU * 6 P LD A3,PFPOST GET POWER FAIL POST PROCESSING FLAG < P ABL(NZ) LINER5
0x2e8488…2e861c Dummy {f00=0x00e6, f01=0x0190, f02=»OF VCCU1/4 f * P ABL(NA) LINER0 ERROR IF NOT ACCEPTED PCLESC3 EQU * @ ( P LD A6,CWTSRD,A5 ANY SST-READY DWT ? T P ABL(Z) TDISP NO. DISPATCH & P CM CWTSRD,A5 YES. RESET SAVE-AREA 8 P ABL NDREPO POP REGISTERS, SET OK-STATUS AND RETURN P
0x2e861c…2e87b0 Dummy {f00=0x00e6, f01=0x0190, f02=»L I N E D R I V E R P A R T * P* I N T E R R U P T R O U T I N E S ( P* V : P***************************************************** ` P* P* ( P* ENTERED: VIA THE INTERRUPT VECTOR P* , P* FUNCTIONS FOR EACH INTERRUPT R
0x2e87b0…2e8944 Dummy {f00=0x00e6, f01=0x0190, f02=»-ADDRESS FOR ENTERED INTERRUPT ROUTINE. > P* 4. GET THE DWT OCCUPYING THE SCREEN SECTION OF THIS CWT. 0 " P* 5. TEST CHANNEL UNIT STATUS. r 0 P* 6. TEST AND UPDATE INTERRUPT-ACTION-FLAGS, " P* GO TO ERROR ROUTINE, OR: . P* 7. GO TO APROPRIATE
0x2e8944…2e8ad8 Dummy {f00=0x00e6, f01=0x0190, f02=» AND GO TO APROPRIATE ACTIVATION ROUTINE. P* 2 P* < P* F P* ON EXIT: A5 = CWT-ADDRESS P P* A6 = DWT-ADDRESS t P* @ P*********************************************************** P* P* P* P EJECT
0x2e8ad8…2e8c6c Dummy {f00=0x00e6, f01=0x0190, f02=»U2 EQU * PIHSVU3 EQU * PIHSVU4 EQU * $ PIHSVU5 EQU * 8 PIHSVU6 EQU * L PIHSVU7 EQU * ` PIHSVU8 EQU * t P XIF $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P
0x2e8c6c…2e8e00 Dummy {f00=0x00e6, f01=0x0190, f02=»NO 1 d P IFF VUCHAN=1 P RF IHS100 " P* 4 6 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 2 > P* x PIHSVU2 EQU * P XIF P IFT VUCHAN=2 PIHSVU3 EQU * PIHSVU4 EQU * PIHSVU5 EQU * PIHSVU6 EQU * P
0x2e8e00…2e8f94 (1, 787) Dummy {f00=0x00e6, f01=0x0190, f02=» CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF * P* 6 P IFF VUCHAN=1 @ P IFT CPU852=0 V " P MSR 8,A15 SAVE A1-A8 ON STACK l P XIF P* P IFF VUCHAN=1 4 P LDKL A5,CWTVU2 SET CWT-ADDRESS FOR VCCU1/4 NO 2 P XIF P IFT V
0x2e8f94…2e9128 Dummy {f00=0x00e6, f01=0x0190, f02=» 6 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 3 P* > PIHSVU3 EQU * H P XIF P IFT VUCHAN=3 h PIHSVU4 EQU * ~ PIHSVU5 EQU * PIHSVU6 EQU * PIHSVU7 EQU * PIHSVU8 EQU * P XIF P IFF VUCHAN=1 P IFF
0x2e9128…2e92bc Dummy {f00=0x00e6, f01=0x0190, f02=» P IFF VUCHAN=1 P IFF VUCHAN=2 P IFT CPU852=0 4 " P MSR 8,A15 SAVE A1-A8 ON STACK J P XIF p P* | P IFF VUCHAN=1 P IFF VUCHAN=2 4 P LDKL A5,CWTVU3 SET CWT-ADDRESS FOR VCCU1/4 NO 3 P XIF P IFT VUCHAN=3
0x2e92bc…2e9450 Dummy {f00=0x00e6, f01=0x0190, f02=» 6 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 4 P* > PIHSVU4 EQU * H P XIF P IFT VUCHAN=4 h PIHSVU5 EQU * ~ PIHSVU6 EQU * PIHSVU7 EQU * PIHSVU8 EQU * P XIF P IFF VUCHAN=1 P IFF VUCHAN=2 P I
0x2e9450…2e95e4 Dummy {f00=0x00e6, f01=0x0190, f02=»* P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 6 P IFT CPU852=0 L " P MSR 8,A15 SAVE A1-A8 ON STACK b P XIF P* P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 4 P LDKL A5,CWTVU4 SET CWT-ADDRESS FOR VCCU
0x2e95e4…2e9778 Dummy {f00=0x00e6, f01=0x0190, f02=»N=3 P IFF VUCHAN=4 P RF IHS100 " P* 4 4 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 5 > P* v PIHSVU5 EQU * P XIF P IFT VUCHAN=5 PIHSVU6 EQU * PIHSVU7 EQU * PIHSVU8 EQU * P XIF P IFF VUCHA
0x2e9778…2e990c Dummy {f00=0x00e6, f01=0x0190, f02=» ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK P XIF 0 P* < P IFF VUCHAN=1 F P IFF VUCHAN=2 P IFF VUCHAN=3 r P IFF VUCHAN=4 P IFT CPU852=0 $ P MSR 8,A15 SAVE A1 - A8 ON STACK P XIF P* P IFF VUCHAN=1 P
0x2e990c…2e9aa0 Dummy {f00=0x00e6, f01=0x018e, f02=»FT VUCHAN=5 PIHS100 EQU * P XIF ( P IFF VUCHAN=1 4 P IFF VUCHAN=2 J P IFF VUCHAN=3 ` P IFF VUCHAN=4 v P IFF VUCHAN=5 P RF IHS100 P* 4 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 6 P* PIHSVU6 E
0x2e9aa0…2e9c34 (1, 788) Dummy {f00=0x00e7, f01=0x0190, f02=» P IFF VUCHAN=3 P IFF VUCHAN=4 P IFF VUCHAN=5 4 $ P ST P,INTSAV SAVE LAST INTERRUPT J P IFT CPU852=1 r ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK P XIF P* P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3
0x2e9c34…2e9dc8 Dummy {f00=0x00e7, f01=0x0190, f02=» VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 ( P IFF VUCHAN=4 > P IFF VUCHAN=5 T 4 P LDKL A5,CWTVU6 SET CWT-ADDRESS FOR VCCU1/4 NO 6 j P XIF P IFT VUCHAN=6 PIHS100 EQU * P XIF P IFF VUCHAN=1 P IFF VUCHAN=2
0x2e9dc8…2e9f5c Dummy {f00=0x00e7, f01=0x0190, f02=»FROM SCREEN SECTION OF VCCU1/4 NO 7 P* , PIHSVU7 EQU * 6 P XIF J P IFT VUCHAN=7 V PIHSVU8 EQU * l P XIF P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 P IFF VUCHAN=4 P IFF VUCHAN=5 P IFF VUCHAN=6
0x2e9f5c…2ea0f0 Dummy {f00=0x00e7, f01=0x0190, f02=» IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 , P IFF VUCHAN=4 B P IFF VUCHAN=5 X P IFF VUCHAN=6 n P IFT CPU852=0 $ P MSR 8,A15 SAVE A1 - A8 ON STACK P XIF P* P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF
0x2ea0f0…2ea284 Dummy {f00=0x00e7, f01=0x0190, f02=» P XIF P IFT VUCHAN=7 PIHS100 EQU * & P XIF : P IFT VUCHAN=8 F P RF IHS100 P* n 4 P* INTERRUPT FROM SCREEN SECTION OF VCCU1/4 NO 8 x P* PIHSVU8 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1
0x2ea284…2ea418 Dummy {f00=0x00e7, f01=0x0190, f02=»8 ON STACK z P XIF P* P IFT VUCHAN=8 ( 4 P LDKL A5,CWTVU8 SET CWT-ADDRESS FOR VCCU1/4 NO 8 > PIHS100 EQU * v P XIF P EJECT P* P* P* H P* COMMON PART FOR ALL SCREEN SECTION LINE DRIVER INTERRUPT ROUTINES
0x2ea418…2ea5ac Dummy {f00=0x00e7, f01=0x0190, f02=»ISPATCH b PIHS110 EQU * : P EX CWTSST,A5 EXECUTE SST ON SCREEN SECTION OF VCCU1/4 $ P RF(NA) IHS120 NOT ACCEPTED b & P LD A3,DWTST,A6 GET DEVICE STATUS ( P ANKL A3,SSTFLA TEST SST-ACTION FLAG $ P ABL(Z) LINER3 ERROR IF NOT SET P*
0x2ea5ac…2ea740 Dummy {f00=0x00e7, f01=0x0190, f02=»M CWTDOS,A5 SCREEN SECTION NO LONGER OCCUPYED P* 6 P* GET AND CHECK QUEUED DWT @ P* b 4 P CF A15,GETQUE GET QUEUED DWT FROM SCREEN QUEUE l P ADK A6,0 ANY QUEUED DWT ? . P RB(Z) CLESC3 NO. GET SAVED SST-READY DWT * P LD A3,DWTST,A6
0x2ea740…2ea8d4 (1, 789) Dummy {f00=0x00e7, f01=0x0190, f02=» h ( P ANKL A3,OTRFLA TEST OTR-ACTION FLAG 4 P ABL(NZ) OUTCU1 IF SET: OUTPUT CURSOR WAS QUEUED 4 . P ABL STAWR2 ELSE: WRITE SCREEN WAS QUEUED l P EJECT P* P* SST NOT ACCEPTED P* PIHS120 EQU * & P LD A3,DWTST,A6 GET DEVICE
0x2ea8d4…2eaa68 Dummy {f00=0x00e7, f01=0x0190, f02=» ANKL A4,HLTFLA TEST HALT-ACTION FLAG P RF(Z) IHS130 NOT SET . P* L $ P* HALT-FLAG IS SET. DO CIO HALT. V P* ~ PIHS125 EQU * , P XRS A4,DWTST,A6 RESET HALT-ACTION FLAG 8 P EX CWTCHS,A5 CIO HALT ON SCREEN SECTION OF VCCU1/4 . P
0x2eaa68…2eabfc Dummy {f00=0x00e7, f01=0x018e, f02=» ( P ANKL A3,OTRFLA TEST OTR-ACTION FLAG : P ABL(Z) NDREPO POP REGISTERS, SET OK-STATUS AND RETURN 0 P* n & P* OTR-FLAG IS SET: DO OTR-CURSOR. x P* * P XRS A3,DWTST,A6 RESET OTR-ACTION FLAG 6 P LDKL A3,HLTFLA FLAG HALT-ACTION AT NEXT INTER
0x2eabfc…2ead90 Dummy {f00=0x00e7, f01=0x0190, f02=» P EJECT P* 8 P**************************************************** P* X " P* S C R E E N S E C T I O N b & P* L I N E D R I V E R P A R T " P* E R R O R R O U T I N E S P* : P**************************************
0x2ead90…2eaf24 Dummy {f00=0x00e7, f01=0x0190, f02=»ACCEEPTED ~ @ P* -LINER3 SST UNEXPECTEDLY ACCEPTED (AFTER CIO START OR OTR, P* BUT BEFORE CIO HALT) V " P* -LINER4 UNEXPECTED INTERRUPT v F P* -LINER5 I/O-INSTRUCTIONS TRIED DURING POWER FAIL POST PROCESSING P* P* P EJECT P
0x2eaf24…2eb0b8 Dummy {f00=0x00e7, f01=0x0190, f02=»********************************************* P* 6 P* @ , P* CALL: ABL LINERX ( X = 0,1,2,3,4,5 ) J P* z 0 P* USED BY: SCREEN SECTION, LINE DRIVER PART P* > P* FUNCTION:1.TO RESET VCCU1/4 CONTROL UNIT SCREEN SECTION $ P*
0x2eb0b8…2eb24c Dummy {f00=0x00e7, f01=0x0190, f02=»VIA NETWORK DISTRIBUTOR (LINER0-3, LINER5) P* 3. DISPATCH. (LINER4) 2 P* R P* INPUT: A5 = CWT-ADDRESS & P* A6 = DWT-ADDRESS (IF LINER0-3) ~ P* 4 P* OUTPUT: A1 = RETURN CODE (IF LINER0-3, LINER5) P* /8000 IF LINER0
0x2eb24c…2eb3e0 Dummy {f00=0x00e7, f01=0x0190, f02=» 4 P*********************************************** P* < PLINER0 EQU * F $ P LDKL A1,CIOERR SET STATUS BIT 0 Z PLINERR EQU * 8 P EX CWTCHS,A5 CIO HALT ON SCREEN SECTION OF VCCU1/4 2 P EX CWTSST,A5 SST ON SCREEN SECTION OF VCCU1/4 P
0x2eb3e0…2eb574 (1, 790) Dummy {f00=0x00e7, f01=0x0190, f02=»FLA ALL ACTION-FLAGS P C1R A3,A3 COMPLEMENT , P ANS A3,DWTST,A6 RESET ALL ACTION-FLAGS : 6 P ABL NDREP POP REGISTERS AND RETURN WITH A1=STATUS j P* PLINER1 EQU * $ P LDKL A1,OTRERR SET STATUS BIT 1 P RB LINERR P* P
0x2eb574…2eb708 Dummy {f00=0x00e7, f01=0x0190, f02=» BIT 3 v P RB LINERR P* " & PLINER4 EQU * UNEXPECTED INTERRUPT , 8 P EX CWTCHS,A5 CIO HALT ON SCREEN SECTION OF VCCU1/4 V 2 P EX CWTSST,A5 SST ON SCREEN SECTION OF VCCU1/4 P ABL TDISP DISPATCH P* 6 PLINER5 EQU * I/O-INSTRUCTI
0x2eb708…2eb89c Dummy {f00=0x00e7, f01=0x0190, f02=»*************************** z P* $ " P* S C R E E N S E C T I O N . & P* L I N E D R I V E R P A R T T P* S U B - R O U T I N E S ~ P* 4 P************************************************ P* P* F P* -CONPOS CONVERT
0x2eb89c…2eba30 Dummy {f00=0x00e7, f01=0x0190, f02=»T GET CWT-ADDRESS FROM DWT-ADDRESS . P* -PUTQUE PUT DWT INTO SCREEN OUTPUT QUEUE * . P* -GETQUE GET DWT FROM SCREEN OUTPUT QUEUE P* P* P EJECT P* > P********************************************************* P* P*
0x2eba30…2ebbc4 Dummy {f00=0x00e7, f01=0x0190, f02=»S | P* 0 P* USED BY: SCREEN SECTION, LINE DRIVER PART P* H , P* FUNCTION:TO CONVERT A SCREEN POSITION R ( P* INTO A SCREEN MEMORY DISPLACEMENT P* H P* INPUT: A2 = BITS 0-7: SCREEN POSITION ROW NUMBER 1-24 HEXADECIMAL F P*
0x2ebbc4…2ebd58 Dummy {f00=0x00e7, f01=0x0190, f02=»-/1850 X P* : P* OUTPUT: A2 = SCREEN MEMORY DISPLACEMENT /0000-/077F P* A3 = DESTROYED V P* p > P********************************************************* z P* PCONPOS EQU * 8 P SUKL A2,/0101 SCREEN HOME POSITION IS DEFINED
0x2ebd58…2ebeec Dummy {f00=0x00e7, f01=0x0190, f02=»,/FF00 ALREADY MULTIPLIED WITH 256 * P SRL A3,2 NOW ONLY MULTIPLIED WITH 64 * P ADR A2,A3 ADD X * P SRL A3,2 NOW ONLY MULTIPLIED WITH 16 n P ADR A2,A3 ADD P RTN A15 RETURN P EJECT P* > P**************************************
0x2ebeec…2ec080 Dummy {f00=0x00e7, f01=0x018e, f02=»* P* P* CALL: CF A15,IXTERM P* 2 0 P* USED BY: SCREEN SECTION, LINE DRIVER PART < P* p 4 P* FUNCTION:TO INDEX A SCREEN MEMORY DISPLACEMENT z . P* WITH THE TERMINAL NUMBER OF CURRENT DWT P* , P* INPUT: A2 = SCREEN MEMOR
0x2ec080…2ec214 (1, 791) Dummy {f00=0x00e7, f01=0x0190, f02=» < P******************************************************* P* H PIXTERM EQU * R . P LD A3,DWTCP2,A6 GET CHANNEL PARAMETERS 2 f , P ANKL A3,/300 GET TERMINAL NUMBER (0-3) P SLL A3,3 INTO BITS 3 AND 4 6 P ORR A2,A3 COMBINE WITH SCRE
0x2ec214…2ec3a8 Dummy {f00=0x00e7, f01=0x0190, f02=» V P* P* C W T D W T P* ( > P********************************************************* 2 P* t P* ~ P* CALL: CF A15,CWTDWT P* 0 P* USED BY: SCREEN SECTION, LINE DRIVER PART P* F P* FUNCTION:TO GET THE CWT-
0x2ec3a8…2ec53c Dummy {f00=0x00e7, f01=0x0190, f02=»* NO DESTROYED REGISTERS P* " B P************************************************************* , P* r PCWTDWT EQU * | $ P LDR* A5,A6 GET DWTCHP-CONTENTS . P ANK A5,/F BITS 12-15 = CHANNEL UNIT INDEX 2 P ADR A5,A5 GET CWTTAB-DISPLACE
0x2ec53c…2ec6d0 Dummy {f00=0x00e7, f01=0x0190, f02=» EJECT P* B P************************************************************** P* ^ P* P U T Q U E h P* ~ B P************************************************************* P* P* P* CALL: CF A15,PUTQUE P* 0
0x2ec6d0…2ec864 Dummy {f00=0x00e7, f01=0x0190, f02=»F DWT IN ECHO MODE, ELSE LAST IN SCREEN LKM OUTPUT QUEUE. P* B P* INPUT: A5 = CWT-ADDRESS L P* A6 =DWT-ADDRESS n P* " P* OUTPUT: A3,A4,A7 = DESTROYED P* @ P*********************************************************** P*
0x2ec864…2ec9f8 Dummy {f00=0x00e7, f01=0x0190, f02=»2000 DEVICE IN ECHO MODE ? P RF(Z) PUTQ05 NO " 0 P LDKL A7,CWTSEQ GET SCREEN ECHO OUTPUT QUEUE : P RF PUTQ07 n PPUTQ05 EQU * 0 P LDKL A7,CWTSLQ GET SCREEN LKM OUTPUT QUEUE PPUTQ07 EQU * P ADR A7,A5 ANCHOR P* $ P* QUEU
0x2ec9f8…2ecb8c Dummy {f00=0x00e7, f01=0x0190, f02=» * . P CWR A6,A4 CURRENT DWT ALREADY IN QUEUE ? P RF(E) PUTQ60 YES < * P LD A3,DWTOTQ,A4 GET DWT NEXT IN QUEUE V $ P RF(Z) PUTQ30 END OF QUEUE FOUND P LDR A4,A3 FOLLOW THE QUEUE P RB PUTQ10 PPUTQ20 EQU * , P STR A6,A7 QUEUE D
0x2ecb8c…2ecd20 Dummy {f00=0x00e7, f01=0x0190, f02=»QU * " P CM DWTOTQ,A6 SET END OF QUEUE PPUTQ60 EQU * 2 P IFT CPU852=1 F & P ABL IHRTN RETURN IN INHIBIT MODE P XIF P IFT CPU852=0 P RTN A15 RETURN P XIF P EJECT P* : P************************************
0x2ecd20…2eceb4 (1, 792) Dummy {f00=0x00e8, f01=0x0190, f02=» P* P* CALL: CF A15,GETQUE P* , 0 P* USED BY: SCREEN SECTION, LINE DRIVER PART 6 P* j > P* FUNCTION:TO GET FIRST DWT FROM SCREEN ECHO OUTPUT QUEUE, t * P* OR, IF ECHO OUTPUT QUEUE IS EMPTY, $ P* FROM SCREEN LKM OUTPUT QUEUE.
0x2eceb4…2ed048 Dummy {f00=0x00e8, f01=0x0190, f02=»D P* : P***************************************************** P* R PGETQUE EQU * : P LD A6,CWTSEQ,A5 GET FIRST DWT FROM ECHO OUTPUT QUEUE p " P RF(Z) GETQ10 ECHO QUEUE EMPTY $ P LD A3,DWTOTQ,A6 GET QUEUE LINK & P ST A3,CWTSE
0x2ed048…2ed1dc Dummy {f00=0x00e8, f01=0x0190, f02=» GETQ30 ALSO LKM QUEUE EMPTY $ P LD A3,DWTOTQ,A6 GET QUEUE LINK $ & P ST A3,CWTSLQ,A5 STORE IT INTO CWT L PGETQ30 EQU * v P IFT CPU852=1 & P ABL IHRTN RETURN IN INHIBIT MODE P XIF P IFT CPU852=0 P RTN A15 RETURN P XIF
0x2ed1dc…2ed370 Dummy {f00=0x00e8, f01=0x0190, f02=»O N n & P* L I N E D R I V E R P A R T , P* A C T I V A T I O N R O U T I N E S 6 P* f > P********************************************************* p P* 0 P* FOR THE PERIPHERAL SECTION OF THE VCCU1/4 ( P* THIS DRIVER IS A LINE-
0x2ed370…2ed504 Dummy {f00=0x00e8, f01=0x0190, f02=»G THE X ( P* PERIPHERAL SECTION OF THE VCCU1/4. F P* THE ACTIVATION ROUTINES ARE CALLED FROM TERMINAL DEVICE DRIVERS : " P* VIA THE NETWORK DISTRIBUTOR. P* P* < P******************************************************** P* P
0x2ed504…2ed698 Dummy {f00=0x00e8, f01=0x0190, f02=»5,NDSAV8 SAVE A3-A5, A7-A8 IN DWT P RF VUDISP VIDEO DISPATCHER * P* N P* START OF A BLOCK X P* t PVUSTBL EQU * ~ P* P* END OF A BLOCK P* PVUENBL EQU * 6 P ABL NDRETO RETURN TO DEVICE DRIVER. STATUS = OK.
0x2ed698…2ed82c Dummy {f00=0x00e8, f01=0x0190, f02=»ARACTER OUTPUT P* PVUCHRO EQU * P EJECT 4 P* B < P******************************************************* L P* P* P* FUNCTIONS: P* P* 1. SAVE A1-A8 ONTO STACK P* 2. INHIBIT INTERRUPTS P* 3.
0x2ed82c…2ed9c0 Dummy {f00=0x00e8, f01=0x0190, f02=» IN CWT OUTPUT QUEUE, d 4 P* FOR PERIPHERAL SECTION H P* IF NOT THEN QUEUE THE DWT LAST IN QUEUE, V H P* STORE OUTPUT-CHARACTER INTO QUEUED DWT, 2 P*
0x2ed9c0…2edb54 (1, 793) Dummy {f00=0x00e8, f01=0x0190, f02=»DWT, N 2 P* AND THEN DISPATCH. P* ELSE: B < P* 8. PREPARE TO SEND THE CHAR TO THE CHANNEL ` @ P* 9. TEST IF THE DWT IS FOR DEVICE ON PERIPHERAL ( P* SECTION ON CHANNEL.
0x2edb54…2edce8 Dummy {f00=0x00e8, f01=0x0190, f02=»TPUT CHARACTER. n $ P* 11. IF OTR ACCEPTED @ P* STORE INTO DWT THE CHAR BEING OUTPUT @ : P* AND RETURN TO DEVICE DRIVER. : P* 12. IF CHAR NOT ACCEPTED BY CHANNEL THEN @ P*
0x2edce8…2ede7c Dummy {f00=0x00e8, f01=0x0190, f02=» START TIMER L P* AND SET OUTPUT QUEUE TIMER POINTER IN CWT. D P* 14. GO QUEUE DWT INTO CWT OUTPUT QUEUE l 4 P* AND DISPATCH.(5-7) P* P* P*
0x2ede7c…2ee010 Dummy {f00=0x00e8, f01=0x0190, f02=»**************************************** | P* 0 P* : P* D P EJECT N POUTPER EQU * , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT p P* P* GET CWT FOR THIS DWT P* P INH INHIBIT INTERRUPT " P LDR* A1,A6 CHANNEL PA
0x2ee010…2ee1a4 Dummy {f00=0x00e8, f01=0x0190, f02=»Z) VUDISP IF NO CWT: DISPATCH P* & 6 P* TEST IF PERIPHERAL SECTION OUTPUT QUEUE IS EMPTY 0 P* j , P LD A4,CWTPQ,A5 IS OUTPUT QUEUE EMPTY ? t 2 P RF(NZ) PER560 NO. THEN QUEUE DWT AND DISPATCH P EJECT P* " P* PREPARE TO SEND C
0x2ee1a4…2ee338 Dummy {f00=0x00e8, f01=0x018e, f02=»ESS z P* @ P* TEST IF THE DEVICE IS ON THE PERIPHERAL SECTION OF CHANNEL P* Z " P SUK A3,1 DEVICE-ADDRESS = 0 ? d " P RF(N) PER520 IF SO, NO OUTPUT " P SUK A3,2 DEVICE-ADDRESS = 3 ? " P RF(Z) PER520 IF SO, NO OUTPUT P* . P*
0x2ee338…2ee4cc Dummy {f00=0x00e8, f01=0x018e, f02=» f P SRC A3,6 " P ANKL A4,/300 TERMINAL NUMBER 4 P ORR A3,A4 COMBINE DEV.ADDR. AND TERMINAL NUMBER @ P ANK A2,/FF x P ORR A2,A3 BIO IS READY-MADE 6 P LD A3,PFPOST GET POWER FAIL POST PROCESSING FLAG : P RF(NZ) PER510 FLAG SET: I/O-I
0x2ee4cc…2ee660 Dummy {f00=0x00e8, f01=0x0190, f02=» P* OTR IS ACCEPTED. & P* SAVE OUTPUT CHARACTER INTO DWT, $ P* THEN RETURN TO DEVICE DRIVER. H P* p P SC A2,DWTOCH,A6 SAVE OUTPUT z 6 P ABL NDREPO POP REGISTERS,SET OK-STATUS AND RETURN P* P* OTR IS NOT ACCEPTED. 8 P* TEST I
0x2ee660…2ee7f4 (1, 794) Dummy {f00=0x00e8, f01=0x0190, f02=») PER560 NO. THEN ONLY QUEUE DWT, AND DISPATCH. P* 8 " P* OUTPUT QUEUE IS EMPTY, THEN B , P* 1.START TIMER (AND SET TIMER POINTER). h P* 2.QUEUE DWT. P* 3.DISPATCH P* P* PPER520 EQU * P LDKL A4,CWTTP TIMER POINTER
0x2ee7f4…2ee988 Dummy {f00=0x00e8, f01=0x0190, f02=» DATA TIMOUT,QUETIM ADDRESS TO TIME-OUT ROUTINE AND DELAY . P RF PER570 QUEUE DWT WHEN QUEUE WAS EMPTY B P EJECT t P* P* QUEUE OUTPUT : P* WHEN QUEUE NOT EMPTY (A4 POINTS TO FIRST QUEUED DWT) P* PPER560 CWR A6,A4 : P R
0x2ee988…2eeb1c Dummy {f00=0x00e8, f01=0x0190, f02=»OF QUEUE FOUND ~ P LDR A4,A3 FOLLOW THE QUEUE P RB PER560 : P* L & P* QUEUE OUTPUT WHEN QUEUE IS EMPTY V P* 8 PPER570 ST A6,CWTPQ,A5 QUEUE DWT, IF QUEUE WAS EMPTY P RF PER590 < PPER580 ST A6,DWTOTQ,A4 QUEUE DWT, IF QUEUE WAS N
0x2eeb1c…2eecb0 Dummy {f00=0x00e8, f01=0x0190, f02=»DISP DISPATCH P* P EJECT P* . 0 P******************************************* 8 P* l * P* P E R I P H E R A L S E C T I O N v & P* L I N E D R I V E R P A R T ( P* I N T E R R U P T H A N D L E R P* 0 P****
0x2eecb0…2eee44 Dummy {f00=0x00e8, f01=0x0190, f02=»IVER ONLY, WHICH IS USED BY v ( P* SEPARATE TERMINAL DEVICE DRIVERS. $ 4 P* BELOW APPEARS THE INTERRUPT HANDLING ROUTINES, P 2 P* USING THE PERIPHERAL SECTION OF THE VCCU1/4. $ P* THE ROUTINES ARE OF TWO KINDS: P* * P* 1. INTERRUPT HANDLER F
0x2eee44…2eefd8 Dummy {f00=0x00e8, f01=0x018e, f02=»ATA OUTPUT. t J P* THIS INTERRUPT ROUTINE IS ENTERED FROM THE MONITOR CLOCK ROUTINE, P* AT SOFTWARE TIME-OUT. b P* P EJECT P* P* 8 P**************************************************** * P* THIS IS THE INTERRUPT HA
0x2eefd8…2ef16c Dummy {f00=0x00e8, f01=0x0190, f02=» V P* P* P* P* ENTERED: & $ P* VIA THE INTERRUPT VECTOR. < P* d P* n . P* FUNCTIONS FOR EACH INTERRUPT ROUTINE: x P* . P* 1. SAVE START ADDRESS OF ENTERED ROUTINE P* 2. SAVE A1-A8 ONTO STACK 6 P
0x2ef16c…2ef300 Dummy {f00=0x00e8, f01=0x0190, f02=»NPUT t " P* IF NO DWT EXISTS THEN EXIT, P* ELSE: 2 & P* 6. TEST IF STATUS- OR DATA-INPUT B L P* IF STATUS-INPUT: INCREMENT ERROR ACKUMULATOR IN CWT AND THEN EXIT, l P* ELSE . P* 7. TEST IF DWT BELONGS TO INPUT-DEVICE. P*
0x2ef300…2ef494 (1, 795) Dummy {f00=0x00e8, f01=0x0190, f02=»EVICE DRIVER VIA NETWORK DISTRIBUTOR l P* ELSE: , D P* 9. TEST IF ANY INTERRUPT ROUTINE DEFINED FOR THIS DEVICE D $ P* IF NOT THEN EXIT P* ELSE: 4 P* ENTER DEVICE DEPENDANT INTERRUPT HANDLER. P
0x2ef494…2ef628 Dummy {f00=0x00e8, f01=0x0190, f02=» 8 P**************************************************** P* D P* N : P* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 1 X P* PIHPVU1 EQU * P IFT VUCHAN=1 PIHPVU2 EQU * PIHPVU3 EQU * PIHPVU4 EQU * PIH
0x2ef628…2ef7bc Dummy {f00=0x00e8, f01=0x0190, f02=»PU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF : P* F P IFT CPU852=0 P " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* 4 P LDKL A5,CWTVU1 SET CWT-ADDRESS FOR VCCU1/4 NO 1 P IFT VUCHAN=1 * P EX CWTINR,A5 EXECUTE IN
0x2ef7bc…2ef950 Dummy {f00=0x00e8, f01=0x0190, f02=»CCU1/4 NO 2 f P* PIHPVU2 EQU * P XIF 2 P IFT VUCHAN=2 > PIHPVU3 EQU * T PIHPVU4 EQU * h PIHPVU5 EQU * | PIHPVU6 EQU * PIHPVU7 EQU * PIHPVU8 EQU * P XIF P IFF VUCHAN=1 $ P ST P,INTSAV SAVE LAST INT
0x2ef950…2efae4 Dummy {f00=0x00e8, f01=0x0190, f02=» " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF . P* : P IFF VUCHAN=1 D 4 P LDKL A5,CWTVU2 SET CWT-ADDRESS FOR VCCU1/4 NO 2 Z P XIF P IFT VUCHAN=2 0 PIHP100 EX CWTINR,A5 EXECUTE INR-INSTRUCTION P* P XIF P* P
0x2efae4…2efc78 Dummy {f00=0x00e8, f01=0x0190, f02=» PIHPVU3 EQU * P XIF P IFT VUCHAN=3 ( PIHPVU4 EQU * > PIHPVU5 EQU * R PIHPVU6 EQU * f PIHPVU7 EQU * z PIHPVU8 EQU * P XIF P IFF VUCHAN=1 P IFF VUCHAN=2 $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT C
0x2efc78…2efe0c Dummy {f00=0x00e8, f01=0x0190, f02=»0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF 0 P* < P IFF VUCHAN=1 F P IFF VUCHAN=2 4 P LDKL A5,CWTVU3 SET CWT-ADDRESS FOR VCCU1/4 NO 3 r P XIF P IFT VUCHAN=3 $ PIHP100 EX CWTINR,A5 EXECUTE INR P* P XIF
0x2efe0c…2effa0 Dummy {f00=0x00e8, f01=0x0190, f02=»O 4 ^ P* PIHPVU4 EQU * P XIF * P IFT VUCHAN=4 6 PIHPVU5 EQU * L PIHPVU6 EQU * ` PIHPVU7 EQU * t PIHPVU8 EQU * P XIF P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 $ P ST P,INTSAV SAVE LAST INTERRU
0x2effa0…2f0134 (1, 796) Dummy {f00=0x00e9, f01=0x0190, f02=» P IFF VUCHAN=3 P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK 0 P XIF V P* b P IFF VUCHAN=1 l P IFF VUCHAN=2 P IFF VUCHAN=3 4 P LDKL A5,CWTVU4 SET CWT-ADDRESS FOR VCCU1/4 NO 4 P XIF P IFT VUCHAN=4 $ P
0x2f0134…2f02c8 Dummy {f00=0x00e9, f01=0x0190, f02=» P RF IHP100 P* 8 P* INTERRUPT FROM PERIPHERAL SECTION OV VCCU1/4 NO 5 P* PIHPVU5 EQU * f P XIF z P IFT VUCHAN=5 PIHPVU6 EQU * PIHPVU7 EQU * PIHPVU8 EQU * P XIF P IFF VUCHAN=1 P IFF VUCHAN=2
0x2f02c8…2f045c Dummy {f00=0x00e9, f01=0x0190, f02=»- A8 ON STACK z P XIF P* " P IFF VUCHAN=1 , P IFF VUCHAN=2 B P IFF VUCHAN=3 X P IFF VUCHAN=4 n P IFT CPU852=0 $ P MSR 8,A15 SAVE A1 - A8 ON STACK P XIF P* P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF
0x2f045c…2f05f0 Dummy {f00=0x00e9, f01=0x0190, f02=» EX CWTINR,A5 EXECUTE INR P XIF " P IFF VUCHAN=1 . P IFF VUCHAN=2 D P IFF VUCHAN=3 Z P IFF VUCHAN=4 p P IFF VUCHAN=5 P RF IHP100 P* 8 P* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 6 P* PIHPVU6 EQU
0x2f05f0…2f0784 Dummy {f00=0x00e9, f01=0x0190, f02=» P IFF VUCHAN=3 P IFF VUCHAN=4 P IFF VUCHAN=5 0 $ P ST P,INTSAV SAVE LAST INTERRUPT F P IFT CPU852=1 n ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK P XIF P* P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 P
0x2f0784…2f0918 Dummy {f00=0x00e9, f01=0x0190, f02=»HAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 $ P IFF VUCHAN=4 : P IFF VUCHAN=5 P 4 P LDKL A5,CWTVU6 SET CWT-ADDRESS FOR VCCU1/4 NO 6 f P XIF P IFT VUCHAN=6 $ PIHP100 EX CWTINR,A5 EXECUTE INR P XIF P IFF VUCHAN=1
0x2f0918…2f0aac Dummy {f00=0x00e9, f01=0x0190, f02=» 8 P* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 7 P* @ PIHPVU7 EQU * J P XIF ^ P IFT VUCHAN=7 j PIHPVU8 EQU * P XIF P IFF VUCHAN=1 P IFF VUCHAN=2 P IFF VUCHAN=3 P IFF VUCHAN=4 P IFF VUCHAN=5
0x2f0aac…2f0c40 Dummy {f00=0x00e9, f01=0x0190, f02=»IF P* P IFF VUCHAN=1 P IFF VUCHAN=2 * P IFF VUCHAN=3 @ P IFF VUCHAN=4 V P IFF VUCHAN=5 l P IFF VUCHAN=6 P IFT CPU852=0 $ P MSR 8,A15 SAVE A1 - A8 ON STACK P XIF P* P IFF VUCHAN=1 P IFF V
0x2f0c40…2f0dd4 (1, 797) Dummy {f00=0x00e9, f01=0x0190, f02=»FOR VCCU1/4 NO 7 p P XIF P IFT VUCHAN=7 $ $ PIHP100 EX CWTINR,A5 EXECUTE INR : P XIF b P IFT VUCHAN=8 n P RF IHP100 P* 8 P* INTERRUPT FROM PERIPHERAL SECTION OF VCCU1/4 NO 8 P* PIHPVU8 EQU * $ P ST P,INTSAV S
0x2f0dd4…2f0f68 Dummy {f00=0x00e9, f01=0x0190, f02=» IFT CPU852=0 $ P MSR 8,A15 SAVE A1 - A8 ON STACK P XIF > P* J P IFT VUCHAN=8 T 4 P LDKL A5,CWTVU8 SET CWT-ADDRESS FOR VCCU1/4 NO 8 j $ PIHP100 EX CWTINR,A5 EXECUTE INR P XIF P EJECT P* P* > P* DETERMINE FROM
0x2f0f68…2f10fc Dummy {f00=0x00e9, f01=0x0190, f02=»NKL A6,TERMNR GET TERMINAL NBR WITHIN CHANNEL P SRL A6,8 6 P LDR A7,A2 GET INPUT WORD H 4 P ANKL A7,DEVADR GET DEVICE ADDR WITHIN TERMINAL j P SRL A7,/A P ADK A7,1 4 P LD* A1,CWTITA,A5 GET ADDR TO WORKSTATION TABLE * P CF A15,
0x2f10fc…2f1290 Dummy {f00=0x00e9, f01=0x0190, f02=»US- OR DATA-INPUT P* ! P LDR A3,A2 SAVE INPUT-WORD ! $ $ P ANK A2,INDATA CLEAN INPUT-WORD ! F " P ANKL A3,INSTAT STATUS INPUT ? ! n P RF(Z) IHP150 NO ! P* ! P* STATUS INPUT ! P* ! ( P IM CWTACK,A5 INCR ERROR ACKUMULATOR ! P ABL
0x2f1290…2f1424 Dummy {f00=0x00e9, f01=0x018e, f02=»NPUT DEV. AND INPUT REQ. ! ~ P SUK A7,/40 " 4 P RF(Z) IHP160 INPUT DEV. BUT NO INPUT REQUESTED " 4 . P ABL(N) VUDISP NO INPUT-DEVICE. THEN EXIT. " l P* " & P* INPUT DEV. WITH INPUT REQUESTED " P* " P LDKL A7,/FFDF " 2 P ANS A7,DWTST,A6 RESET
0x2f1424…2f15b8 Dummy {f00=0x00e9, f01=0x0190, f02=» P* # 0 P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER # P* # B PIHP160 EQU * # L " P LD A1,DWTADR,A6 ADDRESS BLOCK # ` . P LD A1,INTADR,A1 INTERRUPT ENTRY DEFINED? # & P ABL(Z) VUDISP NO, SKIP CHARACTER # P LDR A5,A6 DWT ADDRESS # P ADKL A5
0x2f15b8…2f174c Dummy {f00=0x00e9, f01=0x0190, f02=»** # h * P* THIS IS THE INTERRUPT HANDLER FOR $ > P* DATA OUTPUT TO THE PERIPHERAL SECTION OF THE VCCU1/4. $ 8 : P***************************************************** $ z P* $ P* $ P* ENTERED: $ : P* VIA THE MONITOR CLOCK TIME-
0x2f174c…2f18e0 Dummy {f00=0x00e9, f01=0x0190, f02=»F THIS CWT $ R P* IF QUEUE EMPTY THEN: % 2 P* 2. RESET OUTPUT QUEUE TIMER POINTER IN CWT, % 4 P* AND DISPATCH. % j P* ELSE: % L P* 3. GET,FROM THAT FIRST QUEUED DWT, THE CHAR TO BE OUTPUT, % L P*
0x2f18e0…2f1a74 (1, 798) Dummy {f00=0x00e9, f01=0x0190, f02=» THEN: RESTART TIMER % P* ELSE: & P* 4. & < > P* RESET OUTPUT QUEUE TIMER POINTER IN CWT. & H " P* 5. GO OUTPUT CHARACTER. & P* & P* & P* ON ENTRY: & , P* A1 = TIME-OUT PARAMETER (CWT-ADDRESS) &
0x2f1a74…2f1c08 Dummy {f00=0x00e9, f01=0x0190, f02=»******************************************** & P* ' 4 PTIMOUT EQU * ' > " P LDR A5,A1 CWT-ADDRESS INTO A5 ' R P* ' x < P* CHECK PERIPHERAL SECTION OUTPUT QUEUE FOR THIS CWT ' P* ' 2 P LD A6,CWTPQ,A5 GET NEXT DWT FROM OUTPUT QUEUE ' " P RF(NZ
0x2f1c08…2f1d9c Dummy {f00=0x00e9, f01=0x018e, f02=» POINTER TO TIMER BLOCK ' ~ P ABL VUDISP DISPATCH ( P* ( < B P* PERIPHERAL SECTION OUTPUT QUEUE IS NOT EMPTY AT THE TIMEOUT. ( F 4 P* GET QUEUED DWT AND TEST IF QUEUE IS EMPTY NOW. ( P* ( PTIM200 EQU * ( $ P LD A3,DWTOTQ,A6 GET QUEUE LINK ( &
0x2f1d9c…2f1f30 Dummy {f00=0x00e9, f01=0x0190, f02=» ( f P* ) " P LDKL A3,-QUETIM TIMEOUT VALUE ) & P ST* A3,CWTTP,A5 INTO TIMER BLOCK ) 8 & P RF TIM220 GO OUTPUT ONE CHARACTER ) b P* ) P* NOW QUEUE IS EMPTY ) P* ) PTIM210 EQU * ) . P CM CWTTP,A5 RESET POINTER TO TIMER BLOCK ) P* )
0x2f1f30…2f20c4 Dummy {f00=0x00e9, f01=0x018e, f02=»D CHARACTER ) ~ P EJECT * P* * " D P*************************************************************** * , P* * t > P* L I N E D R I V E R R E C O V E R Y R O U T I N E * ~ P* C O M M O N T O * D P* S C R E E N A N D P E R I P H E R A L
0x2f20c4…2f2258 Dummy {f00=0x00e9, f01=0x0190, f02=» * P* + @ P* SUBROUTINE TO RESTART THE VIDEO CHANNEL UNITS AT POWER ON + 8 P**************************************************** + V P* + P* + P* CALL: CF A15,VUON + P* + P* + P* USED BY: 'PFINIT' + P* + P* FUNCTIONS:
0x2f2258…2f23ec Dummy {f00=0x00e9, f01=0x0190, f02=» IF SO THEN ENABLE INTERRUPTS AND RETURN FROM SUBROUTINE, + P* ELSE: , B " P* 3. GET CWT FOR NEXT CHANNEL. , T . P* IF NO CWT DEFINED THEN CONTINUE IN 2, , z P* ELSE: , : P* 4. CIO START INPUT ON PERIPHERAL SECTION OF CHANNEL , B P* 5. RESET D
0x2f23ec…2f2580 Dummy {f00=0x00e9, f01=0x0190, f02=» CALL DEVICE DEPENDANT RECOVERY ROUTINE , 6 P* VIA NETWORK DISTRIBUTOR - 6 P* 7. CONTINUE IN 2. - p P* - < P******************************************************* - P* - P* - D P* SWITCH TO LEVEL 8 (LOWER THA
0x2f2580…2f2714 (1, 799) Dummy {f00=0x00e9, f01=0x0190, f02=»GET LEVEL 8 START ADDRESS - $ P STR A2,A15 STORE ONTO A15-STACK . " P LDKL A2,PONPSW GET NEW PSW . J $ P STR A2,A15 STORE ONTO A15-STACK . n P RTN A15 ENTER LEVEL 8 . PVUON05 EQU * . P IFT CPU852=1 . P INH . P XIF . P* . $ P* LOOP O
0x2f2714…2f28a8 Dummy {f00=0x00e9, f01=0x0190, f02=» . t P* / > P* RETURN AND ENABLE INTERRUPTS AND SWITCH BACK TO LEVEL 0. / P* / T $ P LDK A1,/40 BIT FOR ENABLE MODE / ^ $ P ORS A1,2,A15 INTO PSW ON STACK / P RTN A15 RETURN / P* / P* GET CWT / P* / , PVUON20 LD A5,CWTTAB,A1 LOAD
0x2f28a8…2f2a3c Dummy {f00=0x00e9, f01=0x0190, f02=»RIPHERAL (INPUT) / n P EJECT 0 P* 0 & P* RESET DATA AREAS 0 0 , P* USED BY SCREEN AND PERIPHERAL SECTIONS 0 J P* LINE DRIVER PART 0 z P* 0 * P LDK A4,OTRFLA+HLTFLA GET ACTION-FLAGS 0 $ P ADKL A4,SSTFLA ALL ACTION FLAGS 0 P C1R A4,A4 COMPLEMEN
0x2f2a3c…2f2bd0 Dummy {f00=0x00e9, f01=0x0190, f02=»QU * 0 4 P CF A15,GETQUE GET QUEUED DWT FROM SCREEN QUEUE 1 & P ADK A6,0 ANY (MORE) QUEUED DWT ? 1 D ( P RF(Z) VUON27 NO. SCREEN QUEUE EMPTY 1 n PVUON25 EQU * 1 , P ANS A4,DWTST,A6 RESET ALL ACTION-FLAGS 1 $ P RB VUON22 GET NEXT (QUEUED) DWT 1 PVU
0x2f2bd0…2f2d64 Dummy {f00=0x00e9, f01=0x0190, f02=» 6 P CM CWTPQ,A5 RESET OUTPUT QUEUE ON PERIPH. SECTION 2 P* 2 > P* 2 H 4 P* PREPARE LOOP OVER ALL TERMINALS ON THE CHANNEL 2 R P* 2 8 P LD* A3,CWTITA,A5 GET ADDRESS TO WORK-STATION TABLE 2 . P RB(Z) VUON10 NO ADDRESS DEFINED IN TABLE 2 $ P LDK A
0x2f2d64…2f2ef8 Dummy {f00=0x00e9, f01=0x4142, f02=» * 2 * P LDK A4,TCPON INDICATE RECOVERY CAUSE 3 6 P CF A15,NDREWS CALL RECOVERY FOR THIS WORK-STATION 3 8 P* (=TERMINAL) 3 r P ADK A6,1 NEXT TERMINAL 3 6 P CWK A6,MAXTVU ANY MORE TERMINAL ON THIS CHANNEL ? 3 P RB(L) VUON30 YES 3 P RB VUON10
0x2f2ef8…2f308c Dummy {f00=0x00e9, f01=0x2008, f02=» 4 NT DRVU01 800630/CLHJ END &@ 2
0x2f308c…2f3220 Dummy {f00=0x00e9, f01=0x0000, f02=»
0x2f3220…2f33b4 (1, 800) Opaque[0x194]
0x2f33b4…2f3548 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d40, f03=0x0000}
0x2f33b4…2f3548 IdxSect {
0x2f33b4…2f3548 f00 = 0x00ea // 0x2f33b4 @0x0
0x2f33b4…2f3548 f01 = 0x000a // 0x2f33b6 @0x2
0x2f33b4…2f3548 gno = [ // 0x2f33b8 @0x4
0x2f33b4…2f3548 [0x00]: C0x00ea.0x0.0
0x2f33b4…2f3548 [0x01]: C0x00ea.0x1.0
0x2f33b4…2f3548 [0x02]: C0x00ea.0x2.0
0x2f33b4…2f3548 [0x03]: C0x00ea.0x3.0
0x2f33b4…2f3548 [0x04]: C0x00eb.0x0.0
0x2f33b4…2f3548 ]
0x2f33b4…2f3548 }
0x2f3548…2f36dc Dummy {f00=0x00ea, f01=0x018e, f02=» 2 P IDENT DSKSUB REL 11.0 81-01-26 870105041100 P : " P =1, DM NVL BITS TAKEN AWAY B P PRR 11.0 80-11-19 CHLO h P* , P**************************************** P* , P* PHILIPS TERMINAL SYSTEM PTS * P* ,
0x2f36dc…2f3870 Dummy {f00=0x00ea, f01=0x0190, f02=» P* P* ( P* DSKSUB HOLDS THE FOLLOWING DISC ( P* AND FILE MANAGEMENT SUBROUTINES: D P* p 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT z < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER 6 P* - VOLADR = COMPUTE
0x2f3870…2f3a04 Dummy {f00=0x00ea, f01=0x0190, f02=»OM DISC BUFFER TO DWT n . P* - NEWVOL = SET NEW VOLUME LOADED BITS 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX P 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL P* P* P EJECT DSKSUB P* P* P****
0x2f3a04…2f3b98 Dummy {f00=0x00ea, f01=0x0190, f02=»M MOVE VOLUME NAME FROM DWT TO USER BUFFER 4 P ENTRY VOLADR COMPUTE VOLUME NAME ADDRESS IN DWT 2 . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED j : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4
0x2f3b98…2f3d2c Dummy {f00=0x00ea, f01=0x0190, f02=»RY NVLEND END OF NVLTAB P ENTRY NVLBIT NVL BIT MASK P EJECT DSKSUB B P* X P* b P************* l P* EXTERNALS * P************* P* P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD
0x2f3d2c…2f3ec0 Dummy {f00=0x00ea, f01=0x018e, f02=»DER l P EXTRN DWTOR INDEX AND ORDER P EXTRN DWTTAB TTAB ADDRESS 0 " P EXTRN DWTUEC USER ECB ADDRESS R P EXTRN DWTVOL VOLUME NAME x ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND
0x2f3ec0…2f4054 (1, 801) Dummy {f00=0x00ea, f01=0x018e, f02=» & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH . P EJECT DSKSUB X P* n P* x , P*************************************** P* P* CONDITIONAL ASSEMBLY P* , P************************************
0x2f4054…2f41e8 Dummy {f00=0x00ea, f01=0x018e, f02=» PMMUPAG EQU 0 P* P* " 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION , . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. f P* PCPU852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINE
0x2f41e8…2f437c Dummy {f00=0x00ea, f01=0x0190, f02=» 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* > PSWPBLK EQU 0 H P* P EJECT DSKSUB f P* ~ P* 2 P* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT * P* IS OBTAINED BY SETTING FILMAN EQU 1. P* PX:A EQU
0x2f437c…2f4510 Dummy {f00=0x00ea, f01=0x0190, f02=»N EQU 1. r P* PX:B EQU 0 PDATMAN EQU X:B , P* B P EJECT DSKSUB L P* d P* n P********** x P* VOLCLR * P********** P* P* 6 P* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) " P* IN THE R
0x2f4510…2f46a4 Dummy {f00=0x00ea, f01=0x0190, f02=»OUTPUT: A1, A2 ARE DESTROYED P* $ PVOLCLR EQU * . P LDR A2,A1 B & P CF A15,VOLADR VOLUME NAME ADDRESS T P* ~ PVCLR10 EQU * P CMR A1 CLEAR ONE WORD P ADK A1,2 INCREMENT POINTER $ P SUK A2,2 DECREMENT LOOP COUNTER P R
0x2f46a4…2f4838 Dummy {f00=0x00ea, f01=0x0190, f02=» P* P* : P* VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC 4 P* TO THE USER BUFFER IF REQUESTED LENGTH = 6. Z P* P* INPUT: A6 = DWT ADDRESS P* A8 = ECB ADDRESS P* $ P* OUTPUT: A1-A4 ARE DEST
0x2f4838…2f49cc Dummy {f00=0x00ea, f01=0x0190, f02=»ED n * P CF A15,VOLADR GET DWT VOLUME ADDRESS ( P ST A4,ECBEL,A8 SET EFFECTIVE LENGTH 8 P* d P IFT MMUPAG=0 n ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS P* P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MO
0x2f49cc…2f4b60 Dummy {f00=0x00ea, f01=0x018e, f02=» P RB(P) VNAM10 P RF RETURN P XIF , P* 8 P IFT MMUPAG=1 B 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK X P TS -30,A15 SAVE RUNNING MMU P TL TTB:MT,A2 LOAD USER MMU & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,E
0x2f4b60…2f4cf4 (1, 802) Dummy {f00=0x00ea, f01=0x018e, f02=» P* P EJECT DSKSUB P* $ P* . P********** 8 P* VOLADR * J P********** P* n P* x P* INPUT: A6 = DWT ADDRESS P* ( P* OUTPUT: A1 = VOLUME NAME ADDRESS P* A4 = 6 P* PVOLADR EQU *
0x2f4cf4…2f4e88 Dummy {f00=0x00ea, f01=0x0190, f02=» PVOLA10 EQU * P ADK A1,6 UPDATE ADDRESS P SUK A4,1 8 P RB(NN) VOLA10 J P LDK A4,6 ` P RF RETURN r P* P EJECT DSKSUB P* P* P********** P* NVLCHK * P********** P* P* 8 P*
0x2f4e88…2f501c Dummy {f00=0x00ea, f01=0x0190, f02=»D TO THE CALLING TASK (RC=/20). | P* ( P* INPUT: A6 = DWT ADDRESS 2 P* V 6 P* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) ` 0 P* A2 = DWT ADDRESS + DOUBLE INDEX $ P* A3, A4 ARE DESTROYED P* PNVLCHK E
0x2f501c…2f51b0 Dummy {f00=0x00ea, f01=0x0190, f02=»DR A2,A6 P LD A1,DWTNVL,A2 NVL FLAG 2 P ANKL A1,/7FFF RESET BIT 0 (FIRST REQUEST BIT) 2 P ST A1,DWTNVL,A2 h , P ANKL A1,/3FFF NOT 1ST REQ. OR FIX DISK " P RF(Z) RETURN RETURN IF NO NVL " P LD A4,DWTTAB,A6 TTAB ADDRESS P LDK A1,1
0x2f51b0…2f5344 Dummy {f00=0x00ea, f01=0x0190, f02=»CK IF END OF TABLE REACHED ~ P RF(E) NVL:20 END OF NVLTAB " " P CWR* A4,A3 CHECK TTAB ADDRESS F $ P RF(E) NVL:20 NVL FOR THIS TASK l P SLL A1,1 SHIFT NVL BIT MASK * P ADK A3,2 POINT TO NEXT TTAB IN NVLTAB P RB NVL:10 P* PNVL:20
0x2f5344…2f54d8 Dummy {f00=0x00ea, f01=0x0190, f02=»BIT t P LDK A1,/20 RETURN CODE P* , P EJECT DSKSUB 6 P* N P* X $ PRETURN EQU * COMMON RETURN LABEL b P IFT CPU852=1 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS P XIF P* P IFT CPU852=0 P RTN A
0x2f54d8…2f566c Dummy {f00=0x00ea, f01=0x0190, f02=» P* 6 P* VOLGET WILL READ VOLUME NAME FROM DISC BUFFER @ P* TO DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. H P* ( P* INPUT: A2 = DISC BUFFER ADDRESS 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) 0 P* BIT 0
0x2f566c…2f5800 Dummy {f00=0x00ea, f01=0x0190, f02=» A1-A3, A7-A8 ARE DESTROYED P* , P* 6 PVOLGET EQU * @ * P CF A15,VOLADR DWT VOLUME NAME ADDRESS T P LDK A7,0 RESET NVL FLAG P* PVGET10 EQU * , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME , P CWR* A8,A1 COMPARE WITH
0x2f5800…2f5994 (1, 803) Dummy {f00=0x00ea, f01=0x018e, f02=»SKSUB P* P* PVGET20 EQU * " ( P ADK A1,2 INCREMENT BUFFER POINTERS 6 P ADK A2,2 b $ P SUK A4,2 DECREMENT LOOP COUNTER t P RB(P) VGET10 P CF A15,INXDWT P ADK A7,0 CHECK NVL FLAG " P RB(Z) RETURN RETURN IF NO NVL
0x2f5994…2f5b28 Dummy {f00=0x00ea, f01=0x0190, f02=» j P LD A7,DWTNVL,A4 NVL FLAGS 2 P RB(N) RETURN NO REQUESTS SO FAR ON THIS DISC * P SLL A7,1 ` $ P RB(N) RETURN FIXED DISC, NO NVL r P* P EJECT DSKSUB P* P* P********** P* NEWVOL * P********** P*
0x2f5b28…2f5cbc Dummy {f00=0x00ea, f01=0x0190, f02=» 6 P* THE NEW VOLUME LOADED FLAG IS THEN SET BY THIS 6 P* ROUTINE FOR THE CONCERNED FILE CODE AND FILES > 8 P* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE x 4 P* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE ( P* NEXT REQUEST ON THAT FIL
0x2f5cbc…2f5e50 Dummy {f00=0x00ea, f01=0x0190, f02=» A6 = DWT ADDRESS P* & P* OUTPUT: A3 = ACTUAL FILE CODE $ P* A1-A2 ARE DESTROYED N P* n PNEWVOL EQU * x P LD A2,NVLBIT NVL BIT MASK 0 P ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED P LC A2,DWTOR,A6 INDEX P ANK A2,
0x2f5e50…2f5fe4 Dummy {f00=0x00ea, f01=0x0190, f02=» P XIF P* P IFT FILMAN=1 * P LDKL A1,SCTFWT ADDRESS TO FWT POINTER 0 P* ^ > P* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME h P* PNEW:10 EQU * P LDR* A2,A1 NEXT FWT ADDRESS P RB(Z) RETURN NO MORE FWT:S
0x2f5fe4…2f6178 Dummy {f00=0x00ea, f01=0x0190, f02=»,A2 ADDRESS TO 2ND EWT BLOCK $ P CC A3,EWTVOL,A2 CHECK FILE CODE $ P RF(NE) NEW:30 L P LDKL A2,/8000 NVL BIT b 0 P ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED P RB NEW:10 P* PNEW:30 EQU * . P LDR* A2,A2 ADDRESS TO NEXT EWT STRU
0x2f6178…2f630c Dummy {f00=0x00ea, f01=0x0190, f02=» DSKSUB P* P* P********** $ P* INXDWT * 6 P********** H P* Z P* d H P* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. n P* P* INPUT: A6 = DWT ADDRESS P* 0 P* OUTPUT: A4 = DWT A
0x2f630c…2f64a0 Dummy {f00=0x00ea, f01=0x0190, f02=» ANK A4,/3 P ADR A4,A4 DOUBLE INDEX P ADR A4,A6 2 P RB RETURN D P* V P EJECT DSKSUB ` P* x P* P********** P* NVLTAB * P********** P* P* 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS
0x2f64a0…2f6634 (1, 804) Dummy {f00=0x00eb, f01=0x0190, f02=»WTNVL v PNVLTAB EQU * P IFT FILMAN=1 " $ P DATA TTABFM FMTASK TTAB 15 8 P* ` P IFF DSKPAG+SWPBLK=0 j $ P DATA TTABLD LDTASK TTAB 14 P XIF P* =1 P IFT FILMAN=1 PNVLEND EQU * P* PNVLBIT DAT
0x2f6634…2f67c8 Dummy {f00=0x00eb, f01=0x413a, f02=» P DATA TTABLD LDTASK TTAB P* $ PNVLEND EQU * . P* B PNVLBIT DATA 3 NVL BIT MASK L P XIF n P* z P IFT FILMAN=0 P IFT DSKPAG+SWPBLK=0 P* PNVLEND EQU * P* PNVLBIT DATA 1 NVL BIT MASK P XIF
0x2f67c8…2f695c Dummy {f00=0x00eb, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x2f695c…2f6af0 Dummy {f00=0x00eb, f01=0x0190, f02=» * h n > P* EXIT: A5 - SEGMENT TABLE ADDRESS * i > P* * i b > P* WORK REGISTERS: A2,A3,A9,A11 * i > P*
0x2f6af0…2f6c84 Dummy {f00=0x00eb, f01=0x0190, f02=» * i j > P********************************************************** j P EJECT j ^ PBMSTAB EQU * j l * P STR A1,A15 SAVE REGISTER A1 ON STACK j ( P LD A5,SCTSFA GET START OF FREE AREA j * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE j & P
0x2f6c84…2f6e18 Dummy {f00=0x00eb, f01=0x0190, f02=»1,A9 SAVE j & P STR A9,A5 STORE IN SEGMENT TABLE k < P ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS k < " P ADK A5,2 SEGMENT TABLE ENTRY k | P LDR A3,A5 SAVE k P* k P* BUILD SEGMENT BLOCK 0 k P* k ( P LDKL A2,/8400 STATUS FOR
0x2f6e18…2f6fac Dummy {f00=0x00eb, f01=0x0190, f02=»EGMENT BLOCK k . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA l * P LDR A11,A3 GET END OF SEGMENT BLOCKS l F " P CALL CMPADR COMPARE ADDRESSES l t P RF(NG) BMST25 OK l * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW l P CALL ERROR l & PBMST25 LDR* A2,A8
0x2f6fac…2f7140 Dummy {f00=0x00eb, f01=0x018e, f02=»T OPTION WORD l P ANK A2,2 DISC PAGING? m P RF(Z) BMST40 NO! m 4 P* m N * P* DISC PAGING & DISC RESIDENT SEGMENT m X P* m ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB m 0 P LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 m 0 P LD A1,MX:DA1,A1 GET DIS
0x2f7140…2f72d4 (1, 805) Opaque[0x194]
0x2f72d4…2f7468 # DirEnt {nam=»DTTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d68, f03=0x0000}
0x2f72d4…2f7468 IdxSect {
0x2f72d4…2f7468 f00 = 0x00eb // 0x2f72d4 @0x0
0x2f72d4…2f7468 f01 = 0x0006 // 0x2f72d6 @0x2
0x2f72d4…2f7468 gno = [ // 0x2f72d8 @0x4
0x2f72d4…2f7468 [0x00]: C0x00eb.0x1.0
0x2f72d4…2f7468 [0x01]: C0x00eb.0x2.0
0x2f72d4…2f7468 [0x02]: C0x00eb.0x3.0
0x2f72d4…2f7468 ]
0x2f72d4…2f7468 }
0x2f7468…2f75fc Dummy {f00=0x00eb, f01=0x0190, f02=» 2 P IDENT DTTP03 REL 11.0 81-01-26 870105041100 P : P* B < P******************************************************* L < P* * < P* PHILIPS TERMINAL SYSTEM PTS *
0x2f75fc…2f7790 Dummy {f00=0x00eb, f01=0x018e, f02=» * < P* * < < P* * | < P******************************************************* P* @ P*
0x2f7790…2f7924 Dummy {f00=0x00eb, f01=0x0190, f02=» P* > P* SHALL REPLACE THE STANDARD A4 PARAMETERS IN THE TABLES P* P 2 P* THE NUMBER OF USED DOCUMENTS IS SPECIFIED Z P* 8 P* AT "NOFDOC" AND IS USED FOR CONDITIONAL ASSEMBLY P* P* OF THE MODULE. P* 6 P*
0x2f7924…2f7ab8 Dummy {f00=0x00eb, f01=0x0190, f02=»IVER SPECIFICATION TSB 429/78 OR MANUAL M06/M04 P EJECT 8 P F P N P V N P* PARAMETERS LIMITS UNITS APPL. FOR DT STD. A4 ^ P* J P* 1 DT=DOCUMENT TYPE 0-7 - 0 1 2 3 1 J P
0x2f7ab8…2f7c4c Dummy {f00=0x00eb, f01=0x0190, f02=» 10 V J P* 4 NL=NUMBER OF LINES 01-99 - X X X X 68 J P* 5 BL=BOTTOM LINE 14-99 1/60" X X X X 17 b J P* 6 MA=MARGIN 01-80 1/10" X X X X 02 J P* 7 MF=
0x2f7c4c…2f7de0 Dummy {f00=0x00eb, f01=0x0190, f02=» 0 L J P* 9 CM=CRITICAL MARGIN 0,1 - X X X X 0 J P* 10 HP=HIGH PRINT PRESS 0,1 - X X X X 0 X J P* 11 UE=UPPER EDGE 15-82 1/5" X 58 J P* UE=UPPER EDGE
0x2f7de0…2f7f74 (1, 806) Dummy {f00=0x00eb, f01=0x0190, f02=»* 13 DW=DOCUMENT WITDH 40-97 1/10" X 00 J P* UL=UPPER LINES 01-40 - X - N J P* 14 CW=CENTER WITDH 00-99 1/60" X X 00 P EJECT P P P
0x2f7f74…2f8108 Dummy {f00=0x00eb, f01=0x0190, f02=»BLY THE NUMBER OF USED x . P* DOCUMENT TABLES CAN BE CHANGED (1-16) P P $ PNOFDOC EQU 1 NUMBER OF DOCUMENTS X P * PDN EQU NOFDOC-1 NUMBEROF EXTRA TABLES P P P L PDOCPAR FORM 5,3,8,8,8,8,2,1,2,3,8,8,8,8/1,0,2,3,4,5,9,8,7,
0x2f8108…2f829c Dummy {f00=0x00eb, f01=0x018e, f02=»0,0,0,58,00,00,00 v P P IFF DN=0 " P* DOCUMENT TABLE 1 4 P* P P Z 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 b P XIF P P IFF DN=0 P IFF DN=1 P* DOCUMENT TABLE 2 P* P 0 P DOCPAR 1,0,
0x2f829c…2f8430 Dummy {f00=0x00eb, f01=0x018e, f02=» z P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF N P Z P IFF DN=0 b P IFF DN=1 t P IFF DN=2 P IFF DN=3 P* DOCUMENT TABLE 4 P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00
0x2f8430…2f85c4 Dummy {f00=0x00eb, f01=0x0190, f02=» z P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF N P Z P IFF DN=0 b P IFF DN=1 t P IFF DN=2 P IFF DN=3 P IFF DN=4 P IFF DN=5 P* DOCUMENT TABLE 6 P* P 0 P DOCPAR 1,0,
0x2f85c4…2f8758 Dummy {f00=0x00eb, f01=0x0190, f02=» DN=4 P IFF DN=5 P IFF DN=6 P* DOCUMENT TABLE 7 2 P* N P X 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 ` P XIF P P IFF DN=0 P IFF DN=1 P IFF DN=2 P IFF DN=3 P IFF DN=4 P IFF D
0x2f8758…2f88ec Dummy {f00=0x00eb, f01=0x0190, f02=»0 f P XIF P P IFF DN=0 P IFF DN=1 0 P IFF DN=2 B P IFF DN=3 T P IFF DN=4 f P IFF DN=5 x P IFF DN=6 P IFF DN=7 P IFF DN=8 P* DOCUMENT TABLE 9 P* P 0 P DOCPAR 1,0,10,68,17,02,2,
0x2f88ec…2f8a80 Dummy {f00=0x00eb, f01=0x0190, f02=» IFF DN=5 P IFF DN=6 P IFF DN=7 $ P IFF DN=8 6 P IFF DN=9 H P* DOCUMENT TABLE 10 Z P* x P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF P P IFF DN=0 P IFF DN=1 P IFF DN=2 P
0x2f8a80…2f8c14 (1, 807) Dummy {f00=0x00eb, f01=0x0190, f02=» P* DOCUMENT TABLE 11 P* & P 0 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 8 P XIF l P x P IFF DN=0 P IFF DN=1 P IFF DN=2 P IFF DN=3 P IFF DN=4 P IFF DN=5 P IFF DN=6 P IFF DN=7
0x2f8c14…2f8da8 Dummy {f00=0x00eb, f01=0x0190, f02=»1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF , P 8 P IFF DN=0 @ P IFF DN=1 R P IFF DN=2 d P IFF DN=3 v P IFF DN=4 P IFF DN=5 P IFF DN=6 P IFF DN=7 P IFF DN=8 P IFF DN=9 P IFF DN=10 P I
0x2f8da8…2f8f3c Dummy {f00=0x00eb, f01=0x0190, f02=»IF P P IFF DN=0 P IFF DN=1 $ P IFF DN=2 6 P IFF DN=3 H P IFF DN=4 Z P IFF DN=5 l P IFF DN=6 ~ P IFF DN=7 P IFF DN=8 P IFF DN=9 P IFF DN=10 P IFF DN=11 P IFF DN=12 P IFF DN=13
0x2f8f3c…2f90d0 Dummy {f00=0x00eb, f01=0x0190, f02=» P IFF DN=1 P IFF DN=2 P IFF DN=3 , P IFF DN=4 > P IFF DN=5 P P IFF DN=6 b P IFF DN=7 t P IFF DN=8 P IFF DN=9 P IFF DN=10 P IFF DN=11 P IFF DN=12 P IFF DN=13 P IFF DN=14 P*
0x2f90d0…2f9264 Dummy {f00=0x00eb, f01=0x403c, f02=»QU ETTP03-DTTP03 TOTAL TABLE LENGTH P END ,@ 8 P IFF DN=4 > P IFF DN=5 P P IFF DN=6 b P IFF DN=7 t P IFF DN=8 P IFF DN=9 P IFF DN=10 P IFF DN=11 P IFF DN=12 P IFF DN=13 P IFF DN=14 P*
0x2f9264…2f93f8 Dummy {f00=0x00eb, f01=0x2008, f02=» IFF DN=8 IFF DN=9 IFF DN=10 0 IFF DN=11 B IFF DN=12 T IFF DN=13 f IFF DN=14 x * DOCUMENT TABLE 15 D15 XIF END @ F DN=12 IFF DN=13 * DOCUMENT T
0x2f93f8…2f958c Dummy {f00=0x00eb, f01=0x0190, f02=»*** # P* * $ P* SUBROUTINES * $ ( P* * $ D P******************* $ ` P* $ | P********** $ P* GETFDB * $ P********** $ P* $ 2 P* GET FILE CODE ENTRY IN USER TTAB OR CDTAB $ P* $ PGE
0x2f958c…2f9720 Dummy {f00=0x00eb, f01=0x0190, f02=»ARCH BOTH TABLES =1 $ P CF A14,FNDFDB =1 % P RTN A14 =1 % 6 P* % J P EJECT ADMTSK % T P* % j P********** % t P* GETFPB * % P********** % P* % . P* GET FILE PARAMETER BLOCK TO ADM BUFFER % P* % & P* INPUT : A9 = USER EC
0x2f9720…2f98b4 (1, 808) Opaque[0x194]
0x2f98b4…2f9a48 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d80, f03=0x0000}
0x2f98b4…2f9a48 IdxSect {
0x2f98b4…2f9a48 f00 = 0x00ec // 0x2f98b4 @0x0
0x2f98b4…2f9a48 f01 = 0x0002 // 0x2f98b6 @0x2
0x2f98b4…2f9a48 gno = [ // 0x2f98b8 @0x4
0x2f98b4…2f9a48 [0x00]: C0x00ec.0x0.0
0x2f98b4…2f9a48 ]
0x2f98b4…2f9a48 }
0x2f9a48…2f9bdc Dummy {f00=0x00ec, f01=0x018e, f02=» 0 P IDENT DVTDI REL 11.0 81-01-26 870105041100 P 8 P* @ . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR J P* | P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 0
0x2f9bdc…2f9d70 Dummy {f00=0x00ec, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTDI ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK @ P DATA 'DI' TTAB ADDRESS l P DATA 0 WAIT ACTIVATE P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x2f9d70…2f9f04 Dummy {f00=0x00ec, f01=0x018e, f02=» P DATA 0 SAVE AREA A5 =1 P RES 4 DWT STACK $ P DATA 0 SAVE AREA A7 =1 < P DATA 0 SAVE AREA A8 $ P DATA /2222 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS
0x2f9f04…2fa098 Dummy {f00=0x00ec, f01=0x4082, f02=» x P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF > PDWTEND EQU * J P* ^ P* h P END r@ ~2 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS
0x2fa098…2fa22c Dummy {f00=0x00ec, 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
0x2fa22c…2fa3c0 Dummy {f00=0x00ec, f01=0x0190, f02=» A1,A2 GET PRINTER STATUS $ P ANK A1,/25 TEST PRINTER STATUS " P RF(Z) WRJL70 NO ERRORS J " P ANK A1,1 TEST PRINTER STATUS j P RF(NZ) WRJL70 NOT OPERABLE " P ANK A2,4 TEST PRINTER STATUS P RF(NZ) WRJL80 REQUEST ERROR P LDKL A1,E
0x2fa3c0…2fa554 (1, 809) Opaque[0x194]
0x2fa554…2fa6e8 # DirEnt {nam=»DVTDN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d88, f03=0x0000}
0x2fa554…2fa6e8 IdxSect {
0x2fa554…2fa6e8 f00 = 0x00ec // 0x2fa554 @0x0
0x2fa554…2fa6e8 f01 = 0x0002 // 0x2fa556 @0x2
0x2fa554…2fa6e8 gno = [ // 0x2fa558 @0x4
0x2fa554…2fa6e8 [0x00]: C0x00ec.0x1.0
0x2fa554…2fa6e8 ]
0x2fa554…2fa6e8 }
0x2fa6e8…2fa87c Dummy {f00=0x00ec, f01=0x0190, f02=» 0 P IDENT DVTDN REL 11.0 81-01-26 870105041100 P 8 , P* DEVICE WORK TABLE FOR NUMERIC DISPLAY @ P* p P ENTRY DVTDN TABLE ENTRY z P* ( P EXTRN DNAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 0 PDVTDN EQU * TABLE ENTRY " P DAT
0x2fa87c…2faa10 Dummy {f00=0x00ec, f01=0x0190, f02=»ER z ( P DATA DNAD POINTER TO ADDRESS-BLOCK P DATA /C44E TTAB-ADDRESS 6 $ P DATA 0 WAIT/ACTIVATE INDICATOR V P DATA 0 TERMINAL QUEUE ~ IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRESS XIF
0x2faa10…2faba4 Dummy {f00=0x00ec, f01=0x4158, f02=»ES 4 DWT-STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 2 $ P DATA /2222 CHANNEL PARAMETER 2 N $ P DATA 0 LINE DRIVER DEPENDENT 1 v $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P IFT MMUPAG=1 PDEVECB DAT
0x2faba4…2fad38 Dummy {f00=0x00ec, f01=0x2008, f02=» DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L P DATA 0 OUTPUT QUEUE LINK j 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-STACK P*
0x2fad38…2faecc Dummy {f00=0x00ec, f01=0x0190, f02=»IPT ORDER # r P CF A5,ORDER AND SEND $ P LDR A2,A4 RELOAD LF INF $ 0 & P CF A5,OUT AND SEND LF INFORMATION $ P $ P LDK A3,2 SET UP BUFFER POINTER $ z 6 PWRRC20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER $ P LDR A1,A1 $ " P RF(Z) WRRC50 BUFFER FINIS
0x2faecc…2fb060 Dummy {f00=0x00ec, f01=0x0190, f02=» $ x P SUK A1,/6F % P RB(Z) WRRC20 CHAR=/7F % P RF(N) WRRC40 CHAR = NORMAL % : P SUK A1,/2F % ^ P RF(Z) WRRC40 CHAR =/AE % r " P LDK A1,4 IND CODE CHECH ERROR % $ P ORS A1,ECBRC,A8 IN RETURN CODE % P RB WRRC20 % P % P* SEND CHARA
0x2fb060…2fb1f4 (1, 810) Opaque[0x194]
0x2fb1f4…2fb388 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d90, f03=0x0000}
0x2fb1f4…2fb388 IdxSect {
0x2fb1f4…2fb388 f00 = 0x00ec // 0x2fb1f4 @0x0
0x2fb1f4…2fb388 f01 = 0x0002 // 0x2fb1f6 @0x2
0x2fb1f4…2fb388 gno = [ // 0x2fb1f8 @0x4
0x2fb1f4…2fb388 [0x00]: C0x00ec.0x2.0
0x2fb1f4…2fb388 ]
0x2fb1f4…2fb388 }
0x2fb388…2fb51c Dummy {f00=0x00ec, f01=0x0190, f02=» 0 P IDENT DVTDY REL 11.0 81-01-26 870105041100 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x2fb51c…2fb6b0 Dummy {f00=0x00ec, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA /C459 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x2fb6b0…2fb844 Dummy {f00=0x00ec, f01=0x0190, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 ( P DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER 2 h $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA
0x2fb844…2fb9d8 Dummy {f00=0x00ec, f01=0x407a, f02=»K v P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF @ PDWTEND EQU * L P* ` P END j@ vL PARAMETER 2 h $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA
0x2fb9d8…2fbb6c Dummy {f00=0x00ec, 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
0x2fbb6c…2fbd00 Dummy {f00=0x00ec, f01=0x0190, f02=» P* - PORDER EQU * - P CF A5,STABLK START OF BLOCK - " P RF(NZ) ERTP JMP IF ERROR - F * P LDK A2,RESET SEND RESET JUST IN CASE - h P CF A5,OUTPUT - P RF(NZ) ERTP JMP IF ERROR - P LDR A2,A3 - P RF OUT10 SEND PRINTER ORDER - P -
0x2fbd00…2fbe94 (1, 811) Opaque[0x194]
0x2fbe94…2fc028 # DirEnt {nam=»DVTG1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d98, f03=0x0000}
0x2fbe94…2fc028 IdxSect {
0x2fbe94…2fc028 f00 = 0x00ec // 0x2fbe94 @0x0
0x2fbe94…2fc028 f01 = 0x0004 // 0x2fbe96 @0x2
0x2fbe94…2fc028 gno = [ // 0x2fbe98 @0x4
0x2fbe94…2fc028 [0x00]: C0x00ec.0x3.0
0x2fbe94…2fc028 [0x01]: C0x00ed.0x0.0
0x2fbe94…2fc028 ]
0x2fbe94…2fc028 }
0x2fc028…2fc1bc Dummy {f00=0x00ec, f01=0x0190, f02=» 0 P IDENT DVTG1 REL 11.0 81-01-26 870105041100 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTG1 TABLE ENTRY z P* P* * P EXTRN GPAD8 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND. P*
0x2fc1bc…2fc350 Dummy {f00=0x00ec, f01=0x0190, f02=»ECB ADDRESS P DATA DWTEND-DVTG1 ORDER ( P DATA GPAD8 POINTER TO ADDRESS BLOCK 4 P DATA 'GP' TTAB-ADDRESS ` $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P D
0x2fc350…2fc4e4 Dummy {f00=0x00ec, f01=0x0190, f02=»0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 0 $ P DATA /2222 CHANNEL PARAMETER 2 L $ P DATA 0 LINE DRIVER DEPENDENT 1 t $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 TIMER POINTER " P DAT
0x2fc4e4…2fc678 Dummy {f00=0x00ec, f01=0x0190, f02=»H t P DATA 0 ACTUAL LINE DOCUMENT $ P DATA 0 REQUESTED LINE DOCUMENT . P DATA 0 RETURN CODE V $ P DATA 0 CONTROL SEQUENCE ADRESS r 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER P
0x2fc678…2fc80c Dummy {f00=0x00ec, f01=0x406e, f02=»CB EQU * P DATA 0,0,0,0,0,0 P XIF * PDWTEND EQU * 6 P* J P* T P END ^@ j $ P DATA 0 CONTROL SEQUENCE ADRESS r 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER P
0x2fc80c…2fc9a0 Dummy {f00=0x00ec, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x2fc9a0…2fcb34 (1, 812) Dummy {f00=0x00ed, f01=0x0190, f02=» A2 EQ ZERO SUCCESS 5 ~ 8 P* A2 NOT EQ ZERO NO SUCCESS 6 & P* 6 b P* 6 l PREPOS EQU * 6 v $ P LDK A4,8 SET REPOSITIONING BIT 6 " P ORS A4,DWTST,A6 STORE IN DWT 6 P* 6 PREP005 EQU * 6 & P LDK A4,PSUBS SET
0x2fcb34…2fccc8 Dummy {f00=0x00ed, f01=0x0190, f02=»A6 GET BLOCK COUNTER 6 P SUK A2,8 GREATER 8 ? 7 P RF(G) REPER YES 7 : . P CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE 7 R P SLL A2,5 7 P RF(NN) REPER BOT NOT FOUND 7 " P LDKL A5,-1 RESET SEQ. COUNTER 7 P RF REP020 READ SEQ. CHAR 7 P* 7
0x2fccc8…2fce5c Dummy {f00=0x00ed, f01=0x0190, f02=»D SET NO OF MAX READ 7 P* 8 & PREP017 CF A8,READSQ READ SEQ. CHAR 8 & P LDKL A7,/180F SET READ MASK 8 P P TM A2,A7 8 t P RF(Z) REP020 READ OK 8 P SUK A4,1 COUNT READ 8 $ P RB(P) REP017 NOT ALL READ DONE 8 P RF REP060 GIVE UP 8 P* 8
0x2fce5c…2fcff0 Dummy {f00=0x00ed, f01=0x0190, f02=». 8 x P CWK A4,PINT TOO MANY BLOCKS 9 P RF(G) REPER YES 9 . P* 9 F P EJECT DRTC01 9 P P* 9 h P* 9 r " PREP030 SUK A4,1 POSITION TAPE 9 | P RF(N) REP040 READY 9 " P CF A8,READSQ READ NEXT BLOCK 9 P RB REP030 9 P* 9 ( PREP040 L
0x2fcff0…2fd184 Dummy {f00=0x00ed, f01=0x0190, f02=»UK A4,1 COUNT RETRY 9 P RF(NP) REP060 GIVE UP : P CF A8,BKSP BACKSPACE : : " P CF A8,READSQ READ SEQ NUMBER : X P RB REP042 : ~ P* : P EJECT DRTC01 : P* : P* : PREP045 SLC A2,3 : P RF(NN) REP050 NOT TAPE MARK : P ANK A
0x2fd184…2fd318 Dummy {f00=0x00ed, f01=0x018e, f02=»,DWTBKC+1,A6 : P RF(E) REPOK EQUAL ; P* ; . PREP060 LD A7,DWTST,A6 ; 8 $ P ANK A7,8 TRY POSITIONING AGAIN? ; V P RF(Z) REPER NO ; ~ , P XRS A7,DWTST,A6 RESET REPOSITIONING BIT ; P RB REP005 YES ; P* ; P* ; 6 PREPER LDK A2,2 IND RECOV
0x2fd318…2fd4ac Dummy {f00=0x00ed, f01=0x0190, f02=» ; j P RTN A8 < P* < P EJECT DRTC01 < " P* < : P* < D P* D W T C 0 2 < N P* < f 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 02 < p P* < P* < PDWTC02 EQU * TABLE ENTRY < P IFT DBCAS=2 < P DATA DWTC01+1 DWT NO. 1 <
0x2fd4ac…2fd640 Dummy {f00=0x00ed, f01=0x018e, f02=»S BLOCK < t P DATA 0 TTAB ADDRESS = $ P DATA 0 WAIT/ACTIVATE INDICATOR = , P DATA 0 TERMINAL QUEUE = T IFT MMUPAG=1 = r & " DATA 0 SAVE AREA USER ECB ADDRESS = P DATA ECBTC2 MMU ECB ADDRESS = XIF = P IFT DBCAS=2 = P DATA 0 BLOCK COUN
0x2fd640…2fd7d4 (1, 813) Opaque[0x194]
0x2fd7d4…2fd968 # DirEnt {nam=»DVTG2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1da8, f03=0x0000}
0x2fd7d4…2fd968 IdxSect {
0x2fd7d4…2fd968 f00 = 0x00ed // 0x2fd7d4 @0x0
0x2fd7d4…2fd968 f01 = 0x0004 // 0x2fd7d6 @0x2
0x2fd7d4…2fd968 gno = [ // 0x2fd7d8 @0x4
0x2fd7d4…2fd968 [0x00]: C0x00ed.0x1.0
0x2fd7d4…2fd968 [0x01]: C0x00ed.0x2.0
0x2fd7d4…2fd968 ]
0x2fd7d4…2fd968 }
0x2fd968…2fdafc Dummy {f00=0x00ed, f01=0x0190, f02=» 0 P IDENT DVTG2 REL 11.0 81-01-26 870105041100 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTG2 TABLE ENTRY z P* P* * P EXTRN GPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND. P*
0x2fdafc…2fdc90 Dummy {f00=0x00ed, f01=0x0190, f02=»ECB ADDRESS P DATA DWTEND-DVTG2 ORDER ( P DATA GPAD3 POINTER TO ADDRESS BLOCK 4 P DATA 'GP' TTAB-ADDRESS ` $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P D
0x2fdc90…2fde24 Dummy {f00=0x00ed, f01=0x0190, f02=»0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 0 $ P DATA /2222 CHANNEL PARAMETER 2 L $ P DATA 0 LINE DRIVER DEPENDENT 1 t $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 TIMER POINTER " P DAT
0x2fde24…2fdfb8 Dummy {f00=0x00ed, f01=0x0190, f02=»H t P DATA 0 ACTUAL LINE DOCUMENT $ P DATA 0 REQUESTED LINE DOCUMENT . P DATA 0 RETURN CODE V $ P DATA 0 CONTROL SEQUENCE ADRESS r 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER P
0x2fdfb8…2fe14c Dummy {f00=0x00ed, f01=0x413c, f02=»ITCH x P DATA 0 LINE SPACE " P DATA /3300 HIGH SPEED PARAM. & P DATA 0 HOPPER 1 OR 2 L P DATA 0,0 LAST TAB POS. j & P DATA 0 CONTR. SEQ. SEPARATOR IND. P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTE
0x2fe14c…2fe2e0 Dummy {f00=0x00ed, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x2fe2e0…2fe474 (1, 814) Dummy {f00=0x00ed, f01=0x0190, f02=»U 60 PX:D EQU 10 PX:E EQU 6 P 0 PTIMOUT EQU X:A 8 PPOWUP EQU X:B P PDVBLEN EQU X:C f PDVBKTB EQU X:D | PDEVIND EQU X:E P PCREDIT EQU 0 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBT
0x2fe474…2fe608 Dummy {f00=0x00ed, f01=0x0190, f02=»ON ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* < PCPU852 EQU 1 F P* Z P EJECT d P* r P* | P********************* P* DWT-DISPLACEMENTS * P********************* P* P* 0 PDWTDRD EQU /10 START
0x2fe608…2fe79c Dummy {f00=0x00ed, f01=0x0190, f02=»T EQU DWTDRD+4 P XIF P* " PDWTHP EQU START+/18 , PTWCLR EQU START+/15 H PTWEOF EQU START+/16 d PTWBSP EQU START+/14 PDWTA2 EQU START+/1A * P DATA DVBKTB+DVBKTB MMU KEY TABLE SIZE ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZ
0x2fe79c…2fe930 Dummy {f00=0x00ed, f01=0x0190, f02=»JECT P* P* 2 P* ACTIVATION PART: CHECK VALIDITY OF ORDERS P* V P* ` PTWA EQU * j P LDK A3,0 | $ P LD A2,4,A8 GET REQUESTED LENGTH & P ABL(Z) IHTW50 REQUESTED LENGTH =0 P* P* P LDR A2,A7 COPY ORDE
0x2fe930…2feac4 Dummy {f00=0x00ed, f01=0x0190, f02=»UK A2,2 " P RF(NP) TWAOUT OUTPUT REQUEST P* 6 P* @ $ PTWAERR ABL DISIOE REQUEST ERROR J P EJECT r P* P* PTWAIN EQU * P IFT TIMOUT=1 & P LD A2,DWTTP,A6 GET TIMER POINTER * P RF(Z) TWA010 NO TIMING ON THIS
0x2feac4…2fec58 Dummy {f00=0x00ed, f01=0x0190, f02=» h P XIF PTWA010 EQU * P IFT POWUP=1 ( " P LD A2,DWTST,A6 GET DWT-STATUS < P ANKL A2,/200 b 0 P RF(Z) TWA020 NOT FIRST READ AFTER POEWR UP x " P XRS A2,DWTST,A6 RESET POINTER P LDKL A2,-2 " P ST A2,10,A8 INDICATE POWER UP
0x2fec58…2fedec Dummy {f00=0x00ed, f01=0x0190, f02=» P RF RED030 & PRED020 CF A5,STREG SAVE REGISTERS P EJECT @ P* N P* RETURN AFTER INTERRUPT X P* z P* PRED030 EQU * P IFT TIMOUT=1 P LDR A1,A1 P RF(NZ) RED037 P XIF P SUK A7,1 P RF(P) RED
0x2fedec…2fef80 Dummy {f00=0x00ed, f01=0x0190, f02=»XT CHARACTER | P LDR A7,A7 P RF(Z) RED040 BASIC READ & P* F P* P P LDK A1,LNGERR OVERFLOW Z & PRED037 ORS A1,8,A8 SET RETURN CODE z P* P* P EJECT P PRED040 EQU * P P IFT TIMOUT=1 P LD A7,D
0x2fef80…2ff114 (1, 815) Opaque[0x194]
0x2ff114…2ff2a8 # DirEnt {nam=»DVTG3 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1db8, f03=0x0000}
0x2ff114…2ff2a8 IdxSect {
0x2ff114…2ff2a8 f00 = 0x00ed // 0x2ff114 @0x0
0x2ff114…2ff2a8 f01 = 0x0002 // 0x2ff116 @0x2
0x2ff114…2ff2a8 gno = [ // 0x2ff118 @0x4
0x2ff114…2ff2a8 [0x00]: C0x00ed.0x3.0
0x2ff114…2ff2a8 ]
0x2ff114…2ff2a8 }
0x2ff2a8…2ff43c Dummy {f00=0x00ed, f01=0x018e, f02=» 0 P IDENT DVTG3 REL 11.0 81-01-26 870105041100 P 8 * P* DEVICE WORK TABLE FOR HP75 (COPY80) @ P* n P ENTRY DVTG3 TABLE ENTRY x P* P* * P EXTRN GPAD04 POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTG3 EQU * TABL
0x2ff43c…2ff5d0 Dummy {f00=0x00ed, f01=0x0190, f02=» v * P DATA GPAD04 POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS 6 $ P DATA 0 WAIT/ACTIVATE INDICATOR V P DATA 0 TERMINAL QUEUE ~ IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRESS XIF
0x2ff5d0…2ff764 Dummy {f00=0x00ed, f01=0x018e, f02=»ES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 P DATA 0 SAVE AREA FOR A8 6 * P DATA /2222 CHANNEL PARAMETER TWO (2) V $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /8000 DEVICE STATUS " P DATA 0 HEAD POSIT
0x2ff764…2ff8f8 Dummy {f00=0x00ed, f01=0x4048, f02=» P XIF PDWTEND EQU * P* $ P* . P END 8@ DFOR A8 6 * P DATA /2222 CHANNEL PARAMETER TWO (2) V $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /8000 DEVICE STATUS " P DATA 0 HEAD POSIT
0x2ff8f8…2ffa8c Dummy {f00=0x00ed, 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
0x2ffa8c…2ffc20 Dummy {f00=0x00ed, f01=0x0190, f02=»ETURN v P EJECT P* P* & P* 0 $ PWRT010 CF A5,OTR SEND CHARACTER : P* b P* l P SUK A4,1 v P RF(NP) WRT020 PWRT015 LDK A2,LF SEND LF P RB WRT010 P* PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SEC
0x2ffc20…2ffdb4 (1, 816) Opaque[0x194]
0x2ffdb4…2fff48 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1dc0, f03=0x0000}
0x2ffdb4…2fff48 IdxSect {
0x2ffdb4…2fff48 f00 = 0x00ee // 0x2ffdb4 @0x0
0x2ffdb4…2fff48 f01 = 0x0002 // 0x2ffdb6 @0x2
0x2ffdb4…2fff48 gno = [ // 0x2ffdb8 @0x4
0x2ffdb4…2fff48 [0x00]: C0x00ee.0x0.0
0x2ffdb4…2fff48 ]
0x2ffdb4…2fff48 }
0x2fff48…3000dc Dummy {f00=0x00ee, f01=0x0190, f02=» 0 P IDENT DVTGP REL 11.0 81-01-26 870105041100 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
0x3000dc…300270 Dummy {f00=0x00ee, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA /C750 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
0x300270…300404 Dummy {f00=0x00ee, f01=0x018e, f02=»REA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 * P DATA 0 SAVE AREA FOR A8 J * P DATA /2222 CHANNEL PARAMETER TWO (2) j $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS "
0x300404…300598 Dummy {f00=0x00ee, f01=0x403c, f02=» PDWTEND EQU * P* P* " P END ,@ 8FOR A7 * P DATA 0 SAVE AREA FOR A8 J * P DATA /2222 CHANNEL PARAMETER TWO (2) j $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS "
0x300598…30072c Dummy {f00=0x00ee, 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
0x30072c…3008c0 Dummy {f00=0x00ee, f01=0x0190, f02=» P* PTWON20 LDK A1,TPERR ORDER 05 P ABL DISEND 2 P* F P* P P EJECT Z P* h P* r P* I H T W | P* 0 P* INTERRUPT HANDLER: PROCESS OF INTERRUPT P* P* PIHTW EQU * $ P ST P,INTSAV SAVE LA
0x3008c0…300a54 (1, 817) Opaque[0x194]
0x300a54…300be8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1dc8, f03=0x0000}
0x300a54…300be8 IdxSect {
0x300a54…300be8 f00 = 0x00ee // 0x300a54 @0x0
0x300a54…300be8 f01 = 0x0002 // 0x300a56 @0x2
0x300a54…300be8 gno = [ // 0x300a58 @0x4
0x300a54…300be8 [0x00]: C0x00ee.0x1.0
0x300a54…300be8 ]
0x300a54…300be8 }
0x300be8…300d7c Dummy {f00=0x00ee, f01=0x0190, f02=» 0 P IDENT DVTKB REL 11.0 81-01-26 870105041100 P 8 * @ " * KEYBOARD DEVICE WORK TABLE J * p P ENTRY DVTKB TABLE ENTRY z P EXTRN COD P EXTRN ECH P EXTRN KBAD4 MMUPAG EQU 0 * P* P* PDVTK
0x300d7c…300f10 Dummy {f00=0x00ee, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK DATA 'KB' TTAB ADDRESS J " DATA 0 WAIT/ACTIVE INDICATOR j DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB ADDRE
0x300f10…3010a4 Dummy {f00=0x00ee, f01=0x018e, f02=»A FOR A5 RES 4 DWT STACK DATA 0 SAVE AREA FOR A7 ( DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER-2 h " DATA 0 LINE DRIVER DEPENDENT " DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS P DATA ECH
0x3010a4…301238 Dummy {f00=0x00ee, f01=0x4128, f02=» P DATA 0 TIMER , P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE , P DATA DWTSQ+DVTKB POINTER TO LAST PLACE J PDWTSQ EQU *-DVTKB z P DATA 0 CIRCULAR BUFFER IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 XIF DWTE
0x301238…3013cc Dummy {f00=0x00ee, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x3013cc…301560 Dummy {f00=0x00ee, f01=0x0190, f02=» A5 $ P* % P* % P* % P IFT TIMOUT=1 % * P* % @ P* % J P* TIMOUT ROUTINE % T P* % n P* % x PTWTUT EQU * % P LDR A6,A1 GET DWT-ADDRESS % $ P LDK A1,/40 TIME OUT RETURN CODE % P XIF % P* % P* % P EJECT %
0x301560…3016f4 (1, 818) Opaque[0x194]
0x3016f4…301888 # DirEnt {nam=»DVTMS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1dd0, f03=0x0000}
0x3016f4…301888 IdxSect {
0x3016f4…301888 f00 = 0x00ee // 0x3016f4 @0x0
0x3016f4…301888 f01 = 0x0004 // 0x3016f6 @0x2
0x3016f4…301888 gno = [ // 0x3016f8 @0x4
0x3016f4…301888 [0x00]: C0x00ee.0x2.0
0x3016f4…301888 [0x01]: C0x00ee.0x3.0
0x3016f4…301888 ]
0x3016f4…301888 }
0x301888…301a1c Dummy {f00=0x00ee, f01=0x018e, f02=» 0 P IDENT DVTMS REL 11.0 81-01-26 870105041100 P 8 0 P* DEVICE WORK TABLE FOR MAGNETIC STRIPE UNIT @ P* t P ENTRY DVTMS TABLE ENTRY ~ P* P* ( P EXTRN MSAD POINTER TO ADDRESSBLOCK PMMUPAG EQU 0 P* P* P*
0x301a1c…301bb0 Dummy {f00=0x00ee, f01=0x0190, f02=» P DATA 0 ECB-ADDRESS 2 P DATA DWTEND-DVTMS LAST OUTPUT AND ORDER CODE ( P DATA MSAD POINTER TO ADDRESS BLOCK V P DATA 'MS' TTAB-ADDRESS & P DATA 0 WAIT/ACTIVATION INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0
0x301bb0…301d44 Dummy {f00=0x00ee, f01=0x0190, f02=»R A3 | P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 , P RES 4 DWT STACK L P DATA 0 SAVE AREA FOR A7 d P DATA 0 SAVE AREA FOR A8 $ P DATA /2222 CHANNEL PARAMETER 2 $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER
0x301d44…301ed8 Dummy {f00=0x00ee, f01=0x018e, f02=»NTER l P DATA 0 LRC-ACKUMULATOR P DATA 0 , , P DATA DWTSQ+DVTMS POINTER TO FIRST PLACE < , P DATA DWTSQ+DVTMS POINTER TO LAST PLACE l PDWTSQ EQU *-DVTMS P DATA 0 CIRCULAR BUFFER P DATA 0,0,0,0 P IFT MMUPAG=1 PDEVECB
0x301ed8…30206c Dummy {f00=0x00ee, f01=0x4014, f02=» P END @ LRC-ACKUMULATOR P DATA 0 , , P DATA DWTSQ+DVTMS POINTER TO FIRST PLACE < , P DATA DWTSQ+DVTMS POINTER TO LAST PLACE l PDWTSQ EQU *-DVTMS P DATA 0 CIRCULAR BUFFER P DATA 0,0,0,0 P IFT MMUPAG=1 PDEVECB
0x30206c…302200 Dummy {f00=0x00ee, f01=0x2008, f02=» ER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS ( & P DATA 0 WAIT/ACTIVATION INDICATOR D P DATA 0 TERMINAL QUEUE n 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
0x302200…302394 (1, 819) Dummy {f00=0x00ee, f01=0x0190, f02=»0 WHOLE BUFFER MOVED - P SUK A1,1 . * P RB(NN) RDC110 NEXT FOR THIS CASSETTE . . P RB RDC100 . PRDC120 EQU * . n P LDR A1,A6 . 4 P ADKL A1,DWTDEV+DWTBUF+4 A1:=DWT BUFFER POINTER . P ST A1,DWTDEV+DWTBUF,A6 . P LDK A1,0 RETURN CODE .
0x302394…302528 Dummy {f00=0x00ee, f01=0x004e, f02=» H X ` h p x + + + + + + + + , , , , , ,(,0
0x302528…3026bc Dummy {f00=0x00ee, f01=0x018e, f02=» 2 P IDENT DRVU01 PRR 11.0 80-11-19 870105041100 P : P B P J P R P* Z 6 P************************************************** d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P* DRVU01 = DRIVER VIDEO CONNECTED DISPLAY PT
0x3026bc…302850 Dummy {f00=0x00ee, f01=0x0190, f02=» P* P* 6 P************************************************** P* R : P* THIS DRIVER CONSISTS OF THE FOLLOWING TWO SECTIONS: P* $ P* - S C R E E N S E C T I O N , P* - P E R I P H E R A L S E C T I O N P* P E
0x302850…3029e4 Dummy {f00=0x00ee, f01=0x0190, f02=»D VIA THE SCREEN SECTION OF THE VIDEO CHANNEL UNIT VCCU1/4. P* D < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS N : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE (
0x3029e4…302b78 Dummy {f00=0x00ee, f01=0x0190, f02=»F THE DRIVER h ( P* CONSISTS OF FOLLOWING PARTS: P* @ , P* - D E V I C E D R I V E R P A R T J ( P* - L I N E D R I V E R P A R T z P* P EJECT P* . P* THE D E V I C E D R I V E R P A R T * P* OF THE SCREE
0x302b78…302d0c Dummy {f00=0x00ee, f01=0x018e, f02=»O N R O U T I N E ~ P* 6 P* -ACVU ACTIVATION OF DEVICE DRIVER, AT LKM DATA 1 & P* ` P* j P* t P* ~ P* A B O R T R O U T I N E P* < P* -ABVU ABORT HANDLING IN DEVICE DRIVER, AT LKM DATA 10 P* P*
0x302d0c…302ea0 Dummy {f00=0x00ee, f01=0x0190, f02=» P* P* P* P* " P* E C H O R O U T I N E , P* N . P* -ECHOVU ECHO-HANDLING OF KEYBOARD INPUT X P* P* P* P* P* E R R O R R O U T I N E P* , P* -DEVERR DEVICE DRIVER ERROR HANDLING,
0x302ea0…303034 (1, 820) Opaque[0x194]
0x303034…3031c8 # DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1de0, f03=0x0000}
0x303034…3031c8 IdxSect {
0x303034…3031c8 f00 = 0x00ef // 0x303034 @0x0
0x303034…3031c8 f01 = 0x0002 // 0x303036 @0x2
0x303034…3031c8 gno = [ // 0x303038 @0x4
0x303034…3031c8 [0x00]: C0x00ef.0x0.0
0x303034…3031c8 ]
0x303034…3031c8 }
0x3031c8…30335c Dummy {f00=0x00ef, f01=0x0190, f02=» 0 P IDENT DVTT1 REL 11.0 81-01-26 870105041100 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTT1 TABLE ENTRY P* P* * P EXTRN TPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x30335c…3034f0 Dummy {f00=0x00ef, f01=0x0190, f02=» DATA 0 ECB ADDRESS P DATA DWTEND-DVTT1 ORDER ( P DATA TPAD3 POINTER TO ADDRESS BLOCK < P DATA 'TP' TTAB-ADDRESS h $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x3034f0…303684 Dummy {f00=0x00ef, f01=0x0190, f02=» DATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 8 $ P DATA /2222 CHANNEL PARAMETER 2 T $ P DATA 0 LINE DRIVER DEPENDENT 1 | $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 PRINTER PARAMETERS
0x303684…303818 Dummy {f00=0x00ef, f01=0x40ca, f02=»L LINE NUMBER x ( P DATA 0,0,0,0,0 DOCUMENT PARAMETERS P IFT MMUPAG=1 B PDEVECB EQU * X P DATA 0,0,0,0,0,0 l P XIF PDWTEND EQU * P* P* P END @ P DATA /3333 DEVICE STATUS P DATA 0 PRINTER PARAMETERS
0x303818…3039ac Dummy {f00=0x00ef, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x3039ac…303b40 Dummy {f00=0x00ef, f01=0x0190, f02=»FROM VCCU1/4 NO 1 x . P ENTRY IHSVU2 INTERRUPT FROM VCCU1/4 NO 2 . P ENTRY IHSVU3 INTERRUPT FROM VCCU1/4 NO 3 L . P ENTRY IHSVU4 INTERRUPT FROM VCCU1/4 NO 4 ~ . P ENTRY IHSVU5 INTERRUPT FROM VCCU1/4 NO 5 . P ENTRY IHSVU6 INTERRUPT FROM VCCU1/4
0x303b40…303cd4 (1, 821) Opaque[0x194]
0x303cd4…303e68 # DirEnt {nam=»DVTT2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1de8, f03=0x0000}
0x303cd4…303e68 IdxSect {
0x303cd4…303e68 f00 = 0x00ef // 0x303cd4 @0x0
0x303cd4…303e68 f01 = 0x0002 // 0x303cd6 @0x2
0x303cd4…303e68 gno = [ // 0x303cd8 @0x4
0x303cd4…303e68 [0x00]: C0x00ef.0x1.0
0x303cd4…303e68 ]
0x303cd4…303e68 }
0x303e68…303ffc Dummy {f00=0x00ef, f01=0x0190, f02=» 0 P IDENT DVTT2 REL 11.0 81-01-26 870105041100 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTT2 TABLE ENTRY P* P* * P EXTRN TPAD4 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x303ffc…304190 Dummy {f00=0x00ef, f01=0x0190, f02=» DATA 0 ECB ADDRESS P DATA DWTEND-DVTT2 ORDER ( P DATA TPAD4 POINTER TO ADDRESS BLOCK < P DATA 'TP' TTAB-ADDRESS h $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x304190…304324 Dummy {f00=0x00ef, f01=0x0190, f02=» DATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 8 $ P DATA /2222 CHANNEL PARAMETER 2 T $ P DATA 0 LINE DRIVER DEPENDENT 1 | $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 PRINTER PARAMETERS
0x304324…3044b8 Dummy {f00=0x00ef, f01=0x4008, f02=»@ 0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 8 $ P DATA /2222 CHANNEL PARAMETER 2 T $ P DATA 0 LINE DRIVER DEPENDENT 1 | $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 PRINTER PARAMETERS
0x3044b8…30464c Dummy {f00=0x00ef, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x30464c…3047e0 Dummy {f00=0x00ef, f01=0x0190, f02=» Z P* DEVICE INDEX VALUES : P***************************************************** & P* d 2 P EXTRN PC:DIX PROGRAMMED CHANNEL DEVICE INDEX n P* P* @ P*********************************************************** P* ECB DISPLA
0x3047e0…304974 (1, 822) Opaque[0x194]
0x304974…304b08 # DirEnt {nam=»DVTTN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1df0, f03=0x0000}
0x304974…304b08 IdxSect {
0x304974…304b08 f00 = 0x00ef // 0x304974 @0x0
0x304974…304b08 f01 = 0x0004 // 0x304976 @0x2
0x304974…304b08 gno = [ // 0x304978 @0x4
0x304974…304b08 [0x00]: C0x00ef.0x2.0
0x304974…304b08 [0x01]: C0x00ef.0x3.0
0x304974…304b08 ]
0x304974…304b08 }
0x304b08…304c9c Dummy {f00=0x00ef, f01=0x018e, f02=» 0 P IDENT DVTTN REL 11.0 81-01-26 870105041100 P 8 4 P* DEVICE WORK TABLE FOR TELLER NOTE DISPENSER @ P* x P ENTRY DVTTN TABLE ENTRY P* ( P EXTRN TNAD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 0 P* PDVTTN EQ
0x304c9c…304e30 Dummy {f00=0x00ef, f01=0x0190, f02=» z P DATA DWTEND-DVTTN ORDER ( P DATA TNAD POINTER TO ADDRESS-BLOCK ( P DATA 'TN' TTAB-ADDRESS T $ P DATA 0 WAIT/ACTIVATE INDICATOR t P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB M
0x304e30…304fc4 Dummy {f00=0x00ef, f01=0x018e, f02=»A 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 4 P DATA 0 SAVE AREA FOR A8 T $ P DATA /2222 CHANNEL PARAMETER 2 t $ P DATA 0 LINE DRIVER DEPENDANT 1 $ P DATA 0 LINE DRIVER DEPENDANT 2 & P DATA /0002 TERMINAL DEVICE
0x304fc4…305158 Dummy {f00=0x00ef, f01=0x0190, f02=» 2 P DATA 0 DELAY-BUFFER (LAST HW-MESSAGE FROM ND) " P DATA 0 NOTE DISPENSER STATUS : & P DATA 0 STORE-CHECK TABLE POINTER ` * P DATA 0 NUMBER OF CHARACTERS RECEIVED P DATA 0 CASSETTE NUMBER & P DATA 0 TIMER POINTER DEVICE BUSY 6 P DATA
0x305158…3052ec Dummy {f00=0x00ef, f01=0x40d6, f02=»H / CHARACTER COUNTER n P RES 18 BUFFER AREA PBUFEND EQU * : P IFT MMUPAG=1 N PDEVECB EQU * d P DATA 0,0,0,0,0,0 x P XIF PDWTEND EQU * P* P* P END @ P DATA 0 TIMER POINTER DEVICE BUSY 6 P DATA
0x3052ec…305480 Dummy {f00=0x00ef, f01=0x2008, f02=» P RES 18 BUFFER AREA PBUFEND EQU * & P IFT MMUPAG=1 : PDEVECB EQU * P P DATA 0,0,0,0,0,0 d P XIF ~ PDWTEND EQU * P* P* P END @ P DATA 0 TIMER POINTER DEVICE BUSY 6 P DATA 0,0 LOGGAREA: OUTPUT
0x305480…305614 (1, 823) Dummy {f00=0x00ef, f01=0x0190, f02=»* % P* & PX:G EQU 80 & PDVBLEN EQU X:G & & P* & < P EJECT & F P* & T P* & ^ $ P******************************** & h 6 P* DWT-DISPLACEMENTS RELATIVE DWTDEV * & $ P******************************** & P* & P* & P*
0x305614…3057a8 Dummy {f00=0x00ef, f01=0x0190, f02=» < PDWTCNC EQU DWTCN+1 CURRENT NEXT WRITE POS. COLUMN NUMBER ' P* ' D P* ' N 2 PDWTSN EQU 4 SAVED CURRENT NEXT WRITE POSITION ' X 0 P* AFTER PREVIOUS REQUEST OR AT /14 COMMAND ' : PDWTSNR EQU DWTSN SAVED NEXT WRITE POSITION ROW NUMBER ' : PDWTSNC E
0x3057a8…30593c Dummy {f00=0x00ef, f01=0x0190, f02=» ' P* ( 0 P* USED BY SCREEN SECTION, DEVICE DRIVER PART ( P* ( F 8 PMAXROW EQU /1818 MAX NUMBER OF ROWS PER SCREEN IS 24 ( P < PMAXCOL EQU /5050 MAX NUMBER OF COLUMNS PER SCREEN IS 80 ( P* DWTDEV-BITS ( : PUNDBIT EQU /0400 UNDERLINE/NON-UNDERLI
0x30593c…305ad0 Dummy {f00=0x00ef, f01=0x0190, f02=»LUMN WRITTEN ( z : PLCPBIT EQU /20 LAST COLUMN WRITTEN BY PREVIOUS REQUEST ) P* ) R PSPACE EQU /20 SPACE ) " PPOINT EQU /2E POINT CHARACTER ) x P* ) * PCCERR EQU /4 STATUS: CODE CHECK ERROR ) & POPERR EQU /1 STATUS: NOT OPERABLE ) P* )
0x305ad0…305c64 Dummy {f00=0x00ef, f01=0x0190, f02=»T BIT 11,12,13 (LINE DRIVER DEPENDANT) ) 2 POTRFLA EQU /0010 OTR-ACTION AT NEXT INTERRUPT * . 2 PHLTFLA EQU /0008 HALT-ACTION AT NEXT INTERRUPT * d 2 PSSTFLA EQU /0004 SST-ACTION AT NEXT INTERRUPT * P* * , PSMLCUR EQU /07FF SCREEN MEMORY LOCATION *
0x305c64…305df8 Dummy {f00=0x00ef, f01=0x0190, f02=»E DRIVER PART OF SCREEN SECTION * h 2 PCIOERR EQU /8000 ERROR: CIO START NOT ACCEPTED + ( , POTRERR EQU /4000 ERROR: OTR NOT ACCEPTED + ^ , PSSTERR EQU /2000 ERROR: SST NOT ACCEPTED + 6 PSSTER2 EQU /1000 ERROR: SST UNEXPECTEDLY ACCEPTED + P* (AFTER CIO S
0x305df8…305f8c Dummy {f00=0x00ef, f01=0x0190, f02=»ED BY PERIPHERAL SECTION: + P* , " P* , , < PQUETIM EQU 1 CWT PERIPHERAL OUTPUT QUEUE TIME-OUT VALUE , 6 P* (MULTIPLES OF 100MS) , v 4 PMAXTVU EQU 4 MAX NBR OF TERMINALS ON ANY VCCU1/4 , 0 PTCPON EQU /0001 RECOVERY CAUSE: TC POWER ON , > PPONPSW
0x305f8c…306120 Dummy {f00=0x00ef, f01=0x0190, f02=»RMNR EQU /0300 MASK FOR BIO BITS : TERM.NBR WITHIN CHANNEL , < PDEVADR EQU /0400 MASK FOR BIO BIT: DEV.ADR. WITHIN TERM. - B : PINDATA EQU /00FF MASK FOR BIO DATA BITS IN INPUT WORD - P* - P EJECT - P* - P********** - P* TABLES * - P**
0x306120…3062b4 (1, 824) Opaque[0x194]
0x3062b4…306448 # DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e00, f03=0x0000}
0x3062b4…306448 IdxSect {
0x3062b4…306448 f00 = 0x00f0 // 0x3062b4 @0x0
0x3062b4…306448 f01 = 0x0002 // 0x3062b6 @0x2
0x3062b4…306448 gno = [ // 0x3062b8 @0x4
0x3062b4…306448 [0x00]: C0x00f0.0x0.0
0x3062b4…306448 ]
0x3062b4…306448 }
0x306448…3065dc Dummy {f00=0x00f0, f01=0x0190, f02=» 0 P IDENT DVTTP REL 11.0 81-01-26 870105041100 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTTP TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x3065dc…306770 Dummy {f00=0x00f0, f01=0x0190, f02=»ATA 0 ECB ADDRESS P DATA DWTEND-DVTTP ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK : P DATA 'TP' TTAB-ADDRESS f $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x306770…306904 Dummy {f00=0x00f0, f01=0x018e, f02=»ATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 6 P DATA /2222 CHANNEL PARAM. 2 R $ P DATA 0 LINE DRIVER DEPENDENT 1 v $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 TIMER POINTER ( P D
0x306904…306a98 Dummy {f00=0x00f0, f01=0x404c, f02=» | P XIF PDWTEND EQU * P* ( P* 2 P END <@ H 6 P DATA /2222 CHANNEL PARAM. 2 R $ P DATA 0 LINE DRIVER DEPENDENT 1 v $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 TIMER POINTER ( P D
0x306a98…306c2c Dummy {f00=0x00f0, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x306c2c…306dc0 Dummy {f00=0x00f0, f01=0x0190, f02=»N=4 4 P IFF VUCHAN=5 5 P DATA CWTVU6 5 " P XIF 5 6 P IFF VUCHAN=1 5 B P IFF VUCHAN=2 5 X P IFF VUCHAN=3 5 n P IFF VUCHAN=4 5 P IFF VUCHAN=5 5 P IFF VUCHAN=6 5 P DATA CWTVU7 5 P XIF 5 P IFF VUCHAN=1 5 P IFF VUCHAN=
0x306dc0…306f54 (1, 825) Opaque[0x194]
0x306f54…3070e8 # DirEnt {nam=»DVTVU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e08, f03=0x0000}
0x306f54…3070e8 IdxSect {
0x306f54…3070e8 f00 = 0x00f0 // 0x306f54 @0x0
0x306f54…3070e8 f01 = 0x0002 // 0x306f56 @0x2
0x306f54…3070e8 gno = [ // 0x306f58 @0x4
0x306f54…3070e8 [0x00]: C0x00f0.0x1.0
0x306f54…3070e8 ]
0x306f54…3070e8 }
0x3070e8…30727c Dummy {f00=0x00f0, f01=0x0190, f02=» 0 P IDENT DVTVU REL 11.0 81-01-26 870105041100 P 8 P* @ 2 P* DEVICE WORK TABLE FOR VIDEO DISPLAY PTS8041 J P* P ENTRY DVTVU TABLE ENTRY P* P* ( P EXTRN VUAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* P
0x30727c…307410 Dummy {f00=0x00f0, f01=0x0190, f02=»DRESS P DATA DWTEND-DVTVU ORDER ( P DATA VUAD POINTER TO ADDRESS-BLOCK . " P DATA /5655+/8000 TTAB-ADDRESS Z $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS D
0x307410…3075a4 Dummy {f00=0x00f0, f01=0x018e, f02=» x P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK ( P DATA 0 SAVE AREA FOR A7 @ P DATA 0 SAVE AREA FOR A8 ` $ P DATA /2222 CHANNEL PARAMETER 2 $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 & P DATA /0100 TERM
0x3075a4…307738 Dummy {f00=0x00f0, f01=0x4074, f02=» P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF : PDWTEND EQU * F P* Z P END d@ pR A8 ` $ P DATA /2222 CHANNEL PARAMETER 2 $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 & P DATA /0100 TERM
0x307738…3078cc Dummy {f00=0x00f0, 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
0x3078cc…307a60 Dummy {f00=0x00f0, f01=0x0190, f02=»0 SST-READY DWT (SCREEN ONLY) < : P DATA INTVU2 ADDRESS TO POINTER TO WORK-STATION TABLE = & " P CIO A2,1,VU2 CIO START SCREEN = d ( P CIO A2,1,VU2+1 CIO START PERIPHERAL = P OTR A2,0,VU2 OTR SCREEN = " P OTR A2,0,VU2+1 OTR PERIPHERAL = " P CIO A2,0,VU
0x307a60…307bf4 (1, 826) Opaque[0x194]
0x307bf4…307d88 # DirEnt {nam=»DW0701«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e10, f03=0x0000}
0x307bf4…307d88 IdxSect {
0x307bf4…307d88 f00 = 0x00f0 // 0x307bf4 @0x0
0x307bf4…307d88 f01 = 0x0004 // 0x307bf6 @0x2
0x307bf4…307d88 gno = [ // 0x307bf8 @0x4
0x307bf4…307d88 [0x00]: C0x00f0.0x2.0
0x307bf4…307d88 [0x01]: C0x00f0.0x3.0
0x307bf4…307d88 ]
0x307bf4…307d88 }
0x307d88…307f1c Dummy {f00=0x00f0, f01=0x0190, f02=» 0 P IDENT DW0701 REL 11.0 81-01-26 870105041100 P 8 P* @ : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 J P* P ENTRY DW0701 TABLE ENTRY * P EXTRN DC07AD POINTER TO ADDRESS-BLOCK P* J P****************************
0x307f1c…3080b0 Dummy {f00=0x00f0, f01=0x0190, f02=»****************** P* P* ................... $ P* 0 . DWTCHP . F P* ................... h P* 2 . DWTST . P* ................... P* 4 . DWTECB . P* ..................
0x3080b0…308244 Dummy {f00=0x00f0, f01=0x0190, f02=». x P* 10 . DWTTAB . P* ................... , P* 12 . DWTWAT . N P* ................... p P* 14 . DWTTQ . P* ................... . P* (16). DWTUEC . IF MMUPAG=1 P
0x308244…3083d8 Dummy {f00=0x00f0, f01=0x018e, f02=»TSTB . ~ $ P* ................... P* +4 . DWTCHD . > P* ................... ` P* +6 . DWTCHN . P* ................... P* +8 . DWTLAD . P* ...................
0x3083d8…30856c Dummy {f00=0x00f0, f01=0x0190, f02=» P* +14 . DWTRCL . P* ................... & P* +16 . DWTRTV . H P* ................... j P* +18 . DWTRTP . P* ................... P* +20 . DWTOPE . P* ................
0x30856c…308700 Dummy {f00=0x00f0, f01=0x0190, f02=»... z P* +26 . DWTIPT . P* ................... . P* +28 . . P P* / DRIVER DEPEND / r P* / / P* / / P* ................... 8 P* . STATI
0x308700…308894 (1, 827) Dummy {f00=0x00f0, f01=0x0190, f02=»QU 0 P* PDW0701 EQU * TABLE ENTRY P DATA 0 CHANNEL PARAMETER 6 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY X P DATA 0 ECB-ADDRESS P DATA DWTEND-DW0701 P RIGHT BYTE=ORDER * P DATA DC07AD POINTER TO ADDRESS-BLOCK
0x308894…308a28 Dummy {f00=0x00f0, f01=0x018e, f02=» P DATA 0 USER ECB ADDRESS P DATA DC:ECB MMU ECB ADDRESS $ P XIF H P* T P DATA DSTATS-DW0701 DWTSTB ^ P DATA 0 DWTCHD P DATA 0 DWTCHN P DATA 0 DWTLAD P DATA 0 DWTRAD P DATA 0 DWTDR1 + DWTSUB P DATA 0 DWTRCL
0x308a28…308bbc Dummy {f00=0x00f0, f01=0x40e8, f02=» P EJECT P* P* STATISTICS BUFFER P* 8 PDSTATS RES 0 B P* V P IFT MMUPAG=1 ` PDC:ECB EQU * MMU ECB v P DATA 0,0,0,0,0,0,0 P XIF P* PDWTEND EQU * P END @ DWTSUB P DATA 0 DWTRCL
0x308bbc…308d50 Dummy {f00=0x00f0, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x308d50…308ee4 Dummy {f00=0x00f0, f01=0x0190, f02=» J P********************************************************************** P IFT MUX=1 V . PCHLCUT EQU CHLCIN+/1 OUTPUT DEVICE ADDRESS j P XIF P IFT MUX=0 P IFF P6805=1 0 PCHLCUT EQU CHLCIN+/10 OUTPUT DEVICE ADDRESS P
0x308ee4…309078 Dummy {f00=0x00f0, f01=0x0190, f02=» 6 PRCVHDR EQU 6 RECEIVE BUFFER HEADER LENGTH IN BYTES PRCHDRW EQU 3 RCVHDR IN WORDS B * PRCVEL EQU 2 EL POS. IN RCV BFR HEADER f & PRCVTCA EQU 4 DISPLACEMENT FOR A+C 0 PBUFLEN EQU TBUFL+TBUFL BFR LENGTH IN CHARS. P EJECT * &********
0x309078…30920c Dummy {f00=0x00f0, f01=0x0190, f02=»************** x J P********************************************************************** P* d P* ECB n P* | J P********************************************************************** P* PECBFC EQU 0 FILE CODE WORD PECBBA EQ
0x30920c…3093a0 Dummy {f00=0x00f0, f01=0x0190, f02=» CODE ~ PECBCW EQU 10 CONTROL WORD $ ECBCW1 EQU ECBCW CONTROL WORD 1 0 ECBCW2 EQU 12 CONTROL WORD 2 X P EJECT | J P********************************************************************** P* P* DWT LAYOUT P* J P********
0x3093a0…309534 (1, 828) Opaque[0x194]
0x309534…3096c8 # DirEnt {nam=»DW1301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e20, f03=0x0000}
0x309534…3096c8 IdxSect {
0x309534…3096c8 f00 = 0x00f1 // 0x309534 @0x0
0x309534…3096c8 f01 = 0x0002 // 0x309536 @0x2
0x309534…3096c8 gno = [ // 0x309538 @0x4
0x309534…3096c8 [0x00]: C0x00f1.0x0.0
0x309534…3096c8 ]
0x309534…3096c8 }
0x3096c8…30985c Dummy {f00=0x00f1, f01=0x0190, f02=» 2 P IDENT DW1301 REL 11.0 81-01-26 870105041100 P : P* B : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 L P* P ENTRY DW1301 TABLE ENTRY * P EXTRN DC13AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 0 P*
0x30985c…3099f0 Dummy {f00=0x00f1, f01=0x0190, f02=»DRESS P DATA DWTEND-DW1301 P RIGHT BYTE=ORDER * * P DATA DC13AD 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
0x3099f0…309b84 Dummy {f00=0x00f1, f01=0x412a, f02=»ATA 0 STATUS QUEUE P DATA 0 RECEIVE QUEUE " P DATA 0 REQUEST TIMEOUT VALUE 8 P DATA 0 REQUEST VECTOR ^ P DATA 0 RETRY COUNTER | P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* PDW
0x309b84…309d18 Dummy {f00=0x00f1, f01=0x2008, f02=» ATUS QUEUE P DATA 0 RECEIVE QUEUE " P DATA 0 REQUEST TIMEOUT VALUE 8 P DATA 0 REQUEST VECTOR ^ P DATA 0 RETRY COUNTER | P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* PDW
0x309d18…309eac Dummy {f00=0x00f1, f01=0x0190, f02=»DDRESS TO POINTER TO WORK-STATION TABLE K " P CIO A2,1,VU6 CIO START SCREEN L 0 ( P CIO A2,1,VU6+1 CIO START PERIPHERAL L V P OTR A2,0,VU6 OTR SCREEN L " P OTR A2,0,VU6+1 OTR PERIPHERAL L " P CIO A2,0,VU6 CIO HALT SCREEN L ( P CIO A2,0,VU6+1 CIO HALT P
0x309eac…30a040 Dummy {f00=0x00f1, f01=0x0190, f02=»WER1 (SCREEN ONLY, IOP ONLY) L 2 P WER A2,VU6+VU6+1 WER2 (SCREEN ONLY, IOP ONLY) M $ 0 P RES 160 IOP-BUFFER (SCREEN ONLY, IOP ONLY) M Z 4 P DATA 0 IOP-BUFFER INDEX (SCREEN ONLY, IOP ONLY) M P XIF M P IFF VUCHAN=1 M P IFF VUCHAN=2 M P IFF VUCHA
0x30a040…30a1d4 (1, 829) Opaque[0x194]
0x30a1d4…30a368 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e28, f03=0x0000}
0x30a1d4…30a368 IdxSect {
0x30a1d4…30a368 f00 = 0x00f1 // 0x30a1d4 @0x0
0x30a1d4…30a368 f01 = 0x0002 // 0x30a1d6 @0x2
0x30a1d4…30a368 gno = [ // 0x30a1d8 @0x4
0x30a1d4…30a368 [0x00]: C0x00f1.0x1.0
0x30a1d4…30a368 ]
0x30a1d4…30a368 }
0x30a368…30a4fc Dummy {f00=0x00f1, f01=0x0190, f02=» 0 P IDENT DW1501 REL 11.0 81-01-26 870105041100 P 8 P* @ : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 J P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 0 P*
0x30a4fc…30a690 Dummy {f00=0x00f1, f01=0x0190, f02=»ESS P DATA DWTEND-DW1501 P RIGHT BYTE=ORDER ( * P DATA DC15AD POINTER TO ADDRESS-BLOCK D P DATA 'DC' TTAB-ADDRESS r $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMUPAG=1 P DATA 0 USER ECB
0x30a690…30a824 Dummy {f00=0x00f1, f01=0x0190, f02=» LINK HEAD DWT | & P DATA 0 CONFIG CHAIN LINK NEXT DWT & P DATA 0 LOCAL SYMBOLIC DTE ADDRESS @ ( P DATA 0 REMOTE SYMBOLIC DTE ADDRESS j P DATA 0 SYMBOLIC SUBADDRESS P DATA 0 REQUEST CONTROL WORD P DATA 0 REQUEST TIMER VALUE " P DATA
0x30a824…30a9b8 Dummy {f00=0x00f1, f01=0x413c, f02=»ATA 0 I/P DATA Q LINK TO BUFFER " P DATA 0 I/P DATA TIMER POINTER ( P DATA 0 CURSOR ADDRESS N " P DATA 0 DEVICE BUFFER ADDRESS l P DATA 0 DWT STATUS P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF
0x30a9b8…30ab4c Dummy {f00=0x00f1, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x30ab4c…30ace0 Dummy {f00=0x00f1, f01=0x0190, f02=»IT FOR POWER UP IF SET P EJECT J P********************************************************************** . P* | P* REGISTER USAGE: P* P* A1 WORK (RETURN CODE) P* A2 WORK P* A3 WORK (BUFFER LENGTH) P* A4 WORK
0x30ace0…30ae74 (1, 830) Opaque[0x194]
0x30ae74…30b008 # DirEnt {nam=»DW2201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e30, f03=0x0000}
0x30ae74…30b008 IdxSect {
0x30ae74…30b008 f00 = 0x00f1 // 0x30ae74 @0x0
0x30ae74…30b008 f01 = 0x0004 // 0x30ae76 @0x2
0x30ae74…30b008 gno = [ // 0x30ae78 @0x4
0x30ae74…30b008 [0x00]: C0x00f1.0x2.0
0x30ae74…30b008 [0x01]: C0x00f1.0x3.0
0x30ae74…30b008 ]
0x30ae74…30b008 }
0x30b008…30b19c Dummy {f00=0x00f1, f01=0x0190, f02=» 0 P IDENT DW2201 REL 11.0 81-01-26 870105041100 P 8 P* @ : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 J P* P ENTRY DW2201 TABLE ENTRY * P EXTRN DC22AD POINTER TO ADDRESS-BLOCK P* J P****************************
0x30b19c…30b330 Dummy {f00=0x00f1, f01=0x0190, f02=»****************** P* P* ................... $ P* 0 . DWTCHP . F P* ................... h P* 2 . DWTST . P* ................... P* 4 . DWTECB . P* ..................
0x30b330…30b4c4 Dummy {f00=0x00f1, f01=0x0190, f02=». x P* 10 . DWTTAB . P* ................... , P* 12 . DWTWAT . N P* ................... p P* 14 . DWTTQ . P* ................... . P* (16). DWTUEC . IF MMUPAG=1 P
0x30b4c4…30b658 Dummy {f00=0x00f1, f01=0x018e, f02=»TSTB . ~ $ P* ................... P* +4 . DWTCHD . > P* ................... ` P* +6 . DWTCHN . P* ................... P* +8 . DWTLAD . P* ...................
0x30b658…30b7ec Dummy {f00=0x00f1, f01=0x0190, f02=» P* +14 . DWTRCL . P* ................... & P* +16 . DWTRTV . H P* ................... j P* +18 . DWTRTP . P* ................... P* +20 . DWTOPE . P* ................
0x30b7ec…30b980 Dummy {f00=0x00f1, f01=0x0190, f02=»... z P* +26 . DWTIPT . P* ................... . P* +28 . . P P* / DRIVER DEPEND / r P* / / P* / / P* ................... 8 P* . STATI
0x30b980…30bb14 (1, 831) Dummy {f00=0x00f1, f01=0x0190, f02=»QU 0 P* PDW2201 EQU * TABLE ENTRY P DATA 0 CHANNEL PARAMETER 6 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY X P DATA 0 ECB-ADDRESS P DATA DWTEND-DW2201 P RIGHT BYTE=ORDER * P DATA DC22AD POINTER TO ADDRESS-BLOCK
0x30bb14…30bca8 Dummy {f00=0x00f1, f01=0x018e, f02=» P DATA 0 USER ECB ADDRESS P DATA DC:ECB MMU ECB ADDRESS $ P XIF H P* T P DATA DSTATS-DW2201 DWTSTB ^ P DATA 0 DWTCHD P DATA 0 DWTCHN P DATA 0 DWTLAD P DATA 0 DWTRAD P DATA 0 DWTDR1 + DWTSUB P DATA 0 DWTRCL
0x30bca8…30be3c Dummy {f00=0x00f1, f01=0x4152, f02=» P DATA 0 DWTDID P DATA 0 DWTPRT P DATA 0,0,0,0,0,0,0,0 DWTLST 4 P DATA 0 DWTSTA X P EJECT n P* | P* STATISTICS BUFFER P* PDSTATS RES 0 P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,
0x30be3c…30bfd0 Dummy {f00=0x00f1, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE ARE
0x30bfd0…30c164 Dummy {f00=0x00f1, f01=0x0190, f02=» P* PX:J EQU 0 STATISTICS PSTAT EQU X:J * P* > P* MMU BUFFER LENGTH H P* d PX:K EQU 1000 n $ PTBUFL EQU X:K MMU BUFFER LENGTH P* P EJECT P* P* BUFFER SUPERVISION TIMER P* PBUFTIM EQU 0
0x30c164…30c2f8 Dummy {f00=0x00f1, f01=0x0190, f02=»ON f PBUFLEN EQU TBUFL+TBUFL P* ( P* 2 * P* INTERNAL SPECIAL CONDITIONAL PARAMS < P* j & PBFBUSY EQU 0 BUFFER BUSY HANDLING t P =0 STANDARD =1 AUX-TYPE $ PSBS EQU 0 SPARBANKEN STOCKHOLM " P =0 NO SBS CODE =1 SBS CODE
0x30c2f8…30c48c Dummy {f00=0x00f1, f01=0x0190, f02=»WHEN SBS = 1 ~ P* . P* - ONLY SID 50 AND 51 ACCEPTED $ P* V P* - RECEIVE TEXT: d @ P* THE 7TH CHAR AFTER STX ID USED AS TERMINAL ID P* " P* - TRANSMIT TEXT: " P*
0x30c48c…30c620 Dummy {f00=0x00f1, f01=0x0190, f02=»ITUATIONS t P* @ P*********************************************************** " P XIF f P EJECT v N P************************************************************************** N P**************************************************
0x30c620…30c7b4 (1, 832) Opaque[0x194]
0x30c7b4…30c948 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e40, f03=0x0000}
0x30c7b4…30c948 IdxSect {
0x30c7b4…30c948 f00 = 0x00f2 // 0x30c7b4 @0x0
0x30c7b4…30c948 f01 = 0x0002 // 0x30c7b6 @0x2
0x30c7b4…30c948 gno = [ // 0x30c7b8 @0x4
0x30c7b4…30c948 [0x00]: C0x00f2.0x0.0
0x30c7b4…30c948 ]
0x30c7b4…30c948 }
0x30c948…30cadc Dummy {f00=0x00f2, f01=0x0190, f02=» 2 P IDENT DWII01 REL 11.0 81-01-26 870105041100 P : P* B P* L ( P* INTERTASK COMMUNICATION INPUT DWT V P* P ENTRY DWII01 TABLE ENTRY P P EXTRN ITAD DRIVER ENTRY & P EXTRN IT:BUF INTERTASK MMU BUFFER PMMUPAG E
0x30cadc…30cc70 Dummy {f00=0x00f2, f01=0x0190, f02=»I01 ORDER " P DATA ITAD+1 ACTIVATION ENTRY P DATA 0 TTAB ADDRESS 8 $ P DATA 0 WAIT/ACTIVATE INDICATOR T P DATA 0 TERMINAL QUEUE | P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA ITECB MMU ECB ADDRESS P XIF
0x30cc70…30ce04 Dummy {f00=0x00f2, f01=0x40e8, f02=» p P DATA 0,0 SAVE AREA P* $ P IFT MMUPAG=1 . PITECB EQU * MMU ECB D P DATA 0 ` P DATA IT:BUF p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P* P* P END @ U ECB ADDRESS P XIF
0x30ce04…30cf98 Dummy {f00=0x00f2, f01=0x2008, f02=» DATA 0 TTAB ADDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR $ DATA 0 TERMINAL QUEUE L DATA 0 TIMER POINTER j DATA 0 TIME OUT DATA 0 DATA 0,0 SAVE AREA END @ & ! DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x30cf98…30d12c Dummy {f00=0x00f2, f01=0x0190, f02=»DECR REQUESTED LENGTH k P RB ACV170 l , PACV190 LCR A4,A1 GET THE CHARACTER AGAIN l 2 P ANK A4,/FF l b * P SUK A4,/12 TRAILING UNDERLINE START? l v P RB(Z) ACV170 YES. SKIP IT l , P SUK A4,/C TRAILING LOW INTENSITY START? l P RB(Z) ACV170 YES.
0x30d12c…30d2c0 Dummy {f00=0x00f2, f01=0x0190, f02=»EW) REQUESTED LENGTH l r P EJECT m P XIF m * PACV210 EQU * m 6 , P CF A15,GETCHR GET CHAR FROM ECB BUFFER m J " P LDR A1,A1 END OF ECB BUFFER ? m z P RF(NP) ACV380 YES m P ANK A2,/7F CLEAN m P CWK A2,SPACE < /20 ? m 4 P RF(L) ACV220 YES. THE
0x30d2c0…30d454 (1, 833) Opaque[0x194]
0x30d454…30d5e8 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e48, f03=0x0000}
0x30d454…30d5e8 IdxSect {
0x30d454…30d5e8 f00 = 0x00f2 // 0x30d454 @0x0
0x30d454…30d5e8 f01 = 0x0002 // 0x30d456 @0x2
0x30d454…30d5e8 gno = [ // 0x30d458 @0x4
0x30d454…30d5e8 [0x00]: C0x00f2.0x1.0
0x30d454…30d5e8 ]
0x30d454…30d5e8 }
0x30d5e8…30d77c Dummy {f00=0x00f2, f01=0x0190, f02=» 2 P IDENT DWIO01 REL 11.0 81-01-26 870105041100 P : P* B P* L * P* INTERTASK COMMUNICATION OUTPUT DWT V P* P ENTRY DWIO01 TABLE ENTRY P P EXTRN ITAD DRIVER ENTRY & P EXTRN IT:BUF INTERTASK MMU BUFFER PMMUPAG
0x30d77c…30d910 Dummy {f00=0x00f2, f01=0x0190, f02=»WIO01 ORDER P DATA ITAD ACTIVATION ENTRY P DATA 0 TTAB ADDRESS 8 $ P DATA 0 WAIT/ACTIVATE INDICATOR T P DATA 0 TERMINAL QUEUE | P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA ITECB MMU ECB ADDRESS P XIF
0x30d910…30daa4 Dummy {f00=0x00f2, f01=0x40e8, f02=» p P DATA 0,0 SAVE AREA P* $ P IFT MMUPAG=1 . PITECB EQU * MMU ECB D P DATA 0 ` P DATA IT:BUF p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P* P* P END @ U ECB ADDRESS P XIF
0x30daa4…30dc38 Dummy {f00=0x00f2, f01=0x2008, f02=» DATA 0 TTAB ADDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR $ DATA 0 TERMINAL QUEUE L DATA 0 TIMER POINTER j DATA 0 TIME OUT DATA 0 DATA 0,0 SAVE AREA END @ & ! DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x30dc38…30ddcc Dummy {f00=0x00f2, f01=0x0190, f02=» A2,1 < COLUMN 1 ? (=COLUMN 'ZERO' ?) s P RF(NL) ACV330 NO t . , P LCK A2,/0101 YES. SET COLUMN 1 INSTEAD t H P RF ACV340 t x PACV330 EQU * t 4 P CCK A2,MAXCOL EXCEEDING MAX NUMBER OF COLUMNS ? t P RF(NG) ACV340 NO t 0 P LCK A2,MAXCOL YES. SET
0x30ddcc…30df60 Dummy {f00=0x00f2, f01=0x0190, f02=»MBERS t l : P ST A2,DWTCN+DWTDEV,A6 SET CURRENT NEXT WRITE POSITION u 4 P ABL ACV140 GO RESET BIT 9 IN DWTDEV, DO STAWRI. u L P EJECT u P* u * P* ORDER /06, COMMAND /14 (FAST OUTPUT) u P* u PACV350 EQU * u 2 P CF A15,SAVCN SAVE CURRENT NEXT
0x30df60…30e0f4 (1, 834) Opaque[0x194]
0x30e0f4…30e288 # DirEnt {nam=»DWL301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e50, f03=0x0000}
0x30e0f4…30e288 IdxSect {
0x30e0f4…30e288 f00 = 0x00f2 // 0x30e0f4 @0x0
0x30e0f4…30e288 f01 = 0x0004 // 0x30e0f6 @0x2
0x30e0f4…30e288 gno = [ // 0x30e0f8 @0x4
0x30e0f4…30e288 [0x00]: C0x00f2.0x2.0
0x30e0f4…30e288 [0x01]: C0x00f2.0x3.0
0x30e0f4…30e288 ]
0x30e0f4…30e288 }
0x30e288…30e41c Dummy {f00=0x00f2, f01=0x0190, f02=» 0 P IDENT DWL301 REL 11.0 81-01-26 870105041100 * 8 4 0************************************************ B * z $ * PHILIPS TERMINAL SYSTEM , PTS * 8 P* X25-DWT : MODULE CONTAINING DWT USED TO ESTABLISH 4 0* VIRTUAL CI
0x30e41c…30e5b0 Dummy {f00=0x00f2, f01=0x018e, f02=»* EJECT * 4 0************************************************ " * Z * E N T R I E S d * | 4 0************************************************ * P ENTRY DWL301 * 4 0********************************
0x30e5b0…30e744 Dummy {f00=0x00f2, f01=0x0190, f02=» 6 2 EXTRN DRX25 ACTIVATION ADDRESS OF THE X25 PACKAGE & ! EXTRN REQTIM REQUEST TIMER VALUE > * h 4 P************************************************ r P* & P* CONDITIONAL ASSEMBLY PARAMETERS P* 4 P********************************
0x30e744…30e8d8 Dummy {f00=0x00f2, f01=0x0190, f02=»************ l * $ P* DWT USED FOR VIRTUAL CIRCUITS * F 4 /*********************************************** P * P DATA 0 CHAIN POINTER PDWL301 EQU * . ) DATA 'VC' VIRTUAL CIRCUIT IDENTIFICATION DATA /8000 DEVICE
0x30e8d8…30ea6c Dummy {f00=0x00f2, f01=0x0190, f02=»DDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE 6 IFT MMUPAG=1 T DATA 0 USER ECB ADDRESS j P DATA L3:ECB MMU ECB ADDRESS XIF 4 P DATA 0 OFFSET REL START DWT TO STATISTIC BUFFER & " DATA 0 CONFIG CHAIN L
0x30ea6c…30ec00 Dummy {f00=0x00f2, f01=0x0190, f02=»ESS p & " DATA 0 WRITE OPTION AND LC-NUMBER ( # DATA 0 FUNCTION CODE AND DWT STATE 6 $ DATA REQTIM REQUEST TIMER VALUE b " DATA 0 REQUEST TIMER POINTER DATA 0 RETURN INFORMATION 0 P DATA 0 CAUSE AND DIAGNOSTIC CODE FOR RESET 0 P D
0x30ec00…30ed94 (1, 835) Dummy {f00=0x00f2, f01=0x4066, f02=» PL3:ECB EQU * P DATA 0,0,0,0,0,0,0,0 P XIF 6 PDWTEND EQU * B END V@ b
0x30ed94…30ef28 Dummy {f00=0x00f2, f01=0x2008, f02=» TE-ADDRESS ( # DATA 0 REMOTE SYMBOLIC DTE-ADDRESS & " DATA 0 WRITE OPTION AND LC-NUMBER F ( # DATA 0 FUNCTION CODE AND DWT STATE p $ DATA REQTIM REQUEST TIMER VALUE " DATA 0 REQUEST TIMER POINTER DATA 0 RETURN INFORMATION
0x30ef28…30f0bc Dummy {f00=0x00f2, f01=0x0190, f02=» f , ( E _: T " B _ > , ( B e Y &W Y " Y 8 , ( $ 0 P Y " % R P h , ( @ Y " # P " T , ( " P V W , B , ( % T
0x30f0bc…30f250 Dummy {f00=0x00f2, f01=0x0190, f02=» I % = , ( e R T A A X R X ( , ( P Y (@ @ @ : X DWTTAB MOVSU , ( " ; X L M X , ( @ : : A A A " A $ A & A ,
0x30f250…30f3e4 Dummy {f00=0x00f2, f01=0x0190, f02=» j , ( 7 _$ R R , ( W $ W W W W W W : , ( w W W W W W " ^: R j ECBFC , ( # S S S S @ * & H M " M Y " C , (
0x30f3e4…30f578 Dummy {f00=0x00f2, f01=0x0190, f02=» X. x , ( + JR _8 S ( R C " , ( I C R C ( H , ( e Y, I I I I x , ( S X S , ( S B $ , (
0x30f578…30f70c Dummy {f00=0x00f2, f01=0x0190, f02=» h , ( T X P Y X R P X , ( ; W XV r_ X " ( 8 , ( [ : L ) S B h , ( y 0 0 Y B P r , ( @ X ! T X RS R R , ( $
0x30f70c…30f8a0 Dummy {f00=0x00f2, f01=0x0190, f02=»_4 W 6_@ V ! P W _L , ( 3 W T _V X W _r ( , ( S W tW W W W X , ( s W V W , ( @ % @ L P _ DWTCHP * & @ C
0x30f8a0…30fa34 (1, 836) Opaque[0x194]
0x30fa34…30fbc8 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e60, f03=0x0000}
0x30fa34…30fbc8 IdxSect {
0x30fa34…30fbc8 f00 = 0x00f3 // 0x30fa34 @0x0
0x30fa34…30fbc8 f01 = 0x0004 // 0x30fa36 @0x2
0x30fa34…30fbc8 gno = [ // 0x30fa38 @0x4
0x30fa34…30fbc8 [0x00]: C0x00f3.0x0.0
0x30fa34…30fbc8 [0x01]: C0x00f3.0x1.0
0x30fa34…30fbc8 ]
0x30fa34…30fbc8 }
0x30fbc8…30fd5c Dummy {f00=0x00f3, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 11.0 81-01-26 870105041100 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x30fd5c…30fef0 Dummy {f00=0x00f3, f01=0x0190, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P*
0x30fef0…310084 Dummy {f00=0x00f3, f01=0x0190, f02=»/0009,/0000 00-07 ~ ( P DATA /0000,/0000,/0C00,/0000 08-0F ( P DATA /1011,/1213,/000A,/0000 10-17 F ( P DATA /0019,/0000,/1C1D,/1E1F 18-1F r ( P DATA /0000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F ( P DATA /0000,/1600,
0x310084…310218 Dummy {f00=0x00f3, f01=0x0190, f02=»8,/2B21 48-4F z ( P DATA /264A,/4B4C,/4D4E,/4F50 50-57 ( P DATA /5152,/5D24,/2A29,/3B5E 58-5F B ( P DATA /2D2F,/5354,/5556,/5758 60-67 n ( P DATA /595A,/7C2C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A23,/402
0x310218…3103ac Dummy {f00=0x00f3, f01=0x0190, f02=»F70 90-97 v ( P DATA /7172,/5D24,/2A29,/3B5E 98-9F ( P DATA /2D2F,/7374,/7576,/7778 A0-A7 > ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF j ( P DATA /3031,/3233,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4
0x3103ac…310540 Dummy {f00=0x00f3, f01=0x0190, f02=»D8-DF r ( P DATA /2D2F,/5354,/5556,/5758 E0-E7 ( P DATA /595A,/7C2C,/255F,/3E3F E8-EF : ( P DATA /3031,/3233,/3435,/3637 F0-F7 f ( P DATA /3839,/3A23,/4027,/3DFF F8-FF P XIF P EJECT P* P* 2 P* TABLE FOR CONVERSION OF AS
0x310540…3106d4 (1, 837) Dummy {f00=0x00f3, f01=0x0190, f02=» DATA /0005,/1500,/0C00,/0000 08-0F ( P DATA /1011,/1213,/3C3D,/3226 10-17 , ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F X ( P DATA /404F,/7F7B,/5B6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 ( P
0x3106d4…310868 Dummy {f00=0x00f3, f01=0x4158, f02=»A /D7D8,/D9E2,/E3E4,/E5E6 50-57 ( P DATA /E7E8,/E94A,/005A,/5F6D 58-5F ( ( P DATA /0081,/8283,/8485,/8687 60-67 T ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/0000 78-7F 4 P DAT
0x310868…3109fc Dummy {f00=0x00f3, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x3109fc…310b90 Dummy {f00=0x00f3, f01=0x0190, f02=»EN NO RUBOUT ! z P ANK A2,LCWBIT BIT 9 SET ? < P RF(NZ) ECV140 YES.LAST COLUMN WRITTEN (DURING REQUEST) 8 > P LD A4,DWTSN+DWTDEV,A6 GET NEXT WRITE POSITION SAVED AFTER x P* PREVIOUS REQUEST : P CW A4,DWTCN+DWTDEV,A6 = CURRENT NEXT WRITE POSITI
0x310b90…310d24 Dummy {f00=0x00f3, f01=0x0190, f02=» P RF ECV150 PECV140 EQU * B P XRS A2,DWTDEV,A6 RESET BIT 9 (LAST COLUMN NO LONGER WRITTEN) * PECV150 EQU * p 2 P LDK A2,SPACE RUBOUT PREVIOUS (OR LAST) COLUMN , P CF A5,ECHOUT OUTPUT ONE SPACE TO RUBOUT P RB ECV100 GO SET CURSOR
0x310d24…310eb8 Dummy {f00=0x00f3, f01=0x0190, f02=»O INTO A2 6 P ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN WRITTEN $ P* ALREADY BY PREVIOUS REQUEST) L ( P RB(NZ) ECV120 YES. THEN NO RUBOUT ! t P* P* PREPARE THE RUBOUT P* : P LD A3,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION
0x310eb8…31104c Dummy {f00=0x00f3, f01=0x018e, f02=» (=LAST COLUMN WRITTEN, v P* DURING REQUEST !) P RF(Z) ECV170 NO > 4 P ADK A3,1 YES. MODIFY TO RUBOUT ALSO LAST COLUMN V PECV170 EQU * 0 P ADK A3,0 ANY ECHOED CHARACTERS TO RUBOUT ? P RB(Z) ECV120 NO P* P* DO THE RUBOUT
0x31104c…3111e0 Dummy {f00=0x00f3, f01=0x0190, f02=» P RF(NZ) DEVERR STATUS NOT OK PECV180 EQU * ( . P LDK A2,SPACE GET SPACE TO DO RUBOUT WITH < P CF A5,OUTCHA OUTPUT IT n P RF(NZ) DEVERR STATUS NOT OK ( P SUK A3,1 ONE MORE CHAR TO RUBOUT ? P RB(NZ) ECV180 YES ( P CF A5,ENDWRI EN
0x3111e0…311374 (1, 838) Opaque[0x194]
0x311374…311508 # DirEnt {nam=»FMCDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e70, f03=0x0000}
0x311374…311508 IdxSect {
0x311374…311508 f00 = 0x00f3 // 0x311374 @0x0
0x311374…311508 f01 = 0x001c // 0x311376 @0x2
0x311374…311508 gno = [ // 0x311378 @0x4
0x311374…311508 [0x00]: C0x00f3.0x2.0
0x311374…311508 [0x01]: C0x00f3.0x3.0
0x311374…311508 [0x02]: C0x00f4.0x0.0
0x311374…311508 [0x03]: C0x00f4.0x1.0
0x311374…311508 [0x04]: C0x00f4.0x2.0
0x311374…311508 [0x05]: C0x00f4.0x3.0
0x311374…311508 [0x06]: C0x00f5.0x0.0
0x311374…311508 [0x07]: C0x00f5.0x1.0
0x311374…311508 [0x08]: C0x00f5.0x2.0
0x311374…311508 [0x09]: C0x00f5.0x3.0
0x311374…311508 [0x0a]: C0x00f6.0x0.0
0x311374…311508 [0x0b]: C0x00f6.0x1.0
0x311374…311508 [0x0c]: C0x00f6.0x2.0
0x311374…311508 [0x0d]: C0x00f6.0x3.0
0x311374…311508 ]
0x311374…311508 }
0x311508…31169c Dummy {f00=0x00f3, f01=0x0190, f02=» 2 P IDENT FMCDEF REL 11.0 81-05-13 870105041100 P : P* B P* L 6 P************************************************** V P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* FMCDEF = FILE MANAGEMENT SUBMODULE
0x31169c…311830 Dummy {f00=0x00f3, f01=0x0190, f02=» FMCDEF CONTAINS THE FOLLOWING MODULES P* 0 P* - CREATE CREATE FILE : P* - DELETE DELETE FILE P* - EXTEND EXTEND FILE ~ P* P* P EJECT FMCDEF P* P* P*********** P* ENTRIES * P**
0x311830…3119c4 Dummy {f00=0x00f3, f01=0x0190, f02=» $ P ENTRY SEXTNO FILE EXTENT NUMBER P ENTRY DV3RST , P* B P EJECT FMCDEF L P* b P* l P************* v P* EXTERNALS * P************* P* P* P EXTRN FPB:BF BLOCK FACTOR P EXTRN FPB:FN FILE NAME
0x3119c4…311b58 Dummy {f00=0x00f3, f01=0x0190, f02=» t $ P EXTRN FPB:SN SOP SWITCH NUMBER ( P EXTRN FPB:KA KEY ADDRESS IN RECORD 0 P EXTRN FPB:CD CREATION DATE , P EXTRN ECBFC ECB FILE CODE (FILE NUMBER) & P EXTRN FILCOD FILE CODE SAVE AREA . P EXTRN FM:RQE FM REQUEST ERROR COMMON EXIT
0x311b58…311cec Dummy {f00=0x00f3, f01=0x018e, f02=»RN FM:ECB FM COMMON ECB P* P EJECT FMCDEF * P* @ P* J P EXTRN VTC:EN EXTENT NUMBER T 6 P EXTRN VOL:EL VOL.LABEL DISPL. VTOC EXTENT LENGTH x & P EXTRN VTC:FS FILE SECTION NUMBER P EXTRN VTC:EB EXTENT BASE " P EXTRN VOL
0x311cec…311e80 Dummy {f00=0x00f3, f01=0x0190, f02=» P EXTRN VTC:BF BLOCK FACTOR $ P EXTRN VTC:FO FILE ORGANISATION & P EXTRN VTC:CD CREATION DATE N ( P EXTRN VTC:IF NUMBER OF INDEX FILES r $ P EXTRN VTC:LR LAST RECORD NUMBER ( P EXTRN VTC:KA KEY ADDRESS IN RECORD P EXTRN VTC:ST STATUS B
0x311e80…312014 (1, 839) Dummy {f00=0x00f3, f01=0x0190, f02=»POINTER IN FILCOD TO ACTUAL FILE CODE P* . P EJECT FMCDEF 8 P* N P* X , P EXTRN FNDVTC VTOC ENTRY FROM FILE NAME b " P EXTRN DSUMOD DOUBLE SUBTRACT P EXTRN ADDMOD DOUBLE ADD 2 P EXTRN FWTNAM FWT DISPLACEMENT FOR VOLUME NAME
0x312014…3121a8 Dummy {f00=0x00f3, f01=0x018e, f02=»D COMPARES TWO STRINGES , P EXTRN RETCOD RETURN CODE AREA IN FMTASK $ P EXTRN DLCLO1 CLOSE AFTER DELETE P & P EXTRN DLCLO2 CLOSE WITHOUT DELETE x , P EXTRN FWTPAR FWT PARAMETER DISPLACEMENT $ P EXTRN FWTEW1 EWT POINTER IN FWT 0 P EXTRN EWTVOL
0x3121a8…31233c Dummy {f00=0x00f3, f01=0x0190, f02=» ` & P EXTRN OPEN OPEN ENTRY IN FM TASK & P EXTRN FM:MV4 MOVE FOUR CHARACTERS 2 ( P EXTRN FM:MV8 MOVE EIGHT CHARACTERS $ P EXTRN VTOCRL VTOC RECORD LENGTH & P EXTRN VTOCBF VTOC BLOCKING FACTOR $ P EXTRN OPEXT OPEN EXTENDED FILE $ P EXTRN
0x31233c…3124d0 Dummy {f00=0x00f3, f01=0x0190, f02=»ENTRY x P* P EJECT FMCDEF P* . P* 8 . P****************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P****************************************** P* P* . P* A FULL INTRUCTION SET
0x3124d0…312664 Dummy {f00=0x00f3, f01=0x0190, f02=»ILE FUNCTION IS ( P* OBTAINED BY SETTING XTEND EQU 1. P* D PXTEND EQU 1 N PX:A EQU XTEND b P* x P EJECT FMCDEF P* P* P************* P* CONSTANTS * P************* P* P* PSPACES
0x312664…3127f8 Dummy {f00=0x00f3, f01=0x0190, f02=»* P* P**************** P* RETURN CODES * , P**************** D P* P* f $ PRC:NVL EQU /20 NEW VOLUME LOADED p $ PRC:DAB EQU /4000 DELETE ABORTED PRC:OFL EQU /10 OVER FLOW 4 PRC:SEO EQU /200+RC:OFL SECTION /EXTENT O
0x3127f8…31298c Dummy {f00=0x00f3, f01=0x0190, f02=» P* 0 PSEXTNO DATA 0 FILE SECTION AND EXTENT NUMBER 0 PSAVEA9 DATA 0 SAVE AREA FOR USER ECB ADDRESS F P* z P* . P* A9 IS USED AS BASE REGISTER FOR WRKARE P* P* PWRKARE EQU * P DATA 0,0,0,0,0 VTOC RECORD
0x31298c…312b20 Dummy {f00=0x00f3, f01=0x0190, f02=»JECT FMCDEF P* P* : PFILLEN EQU *-WRKARE FILE SECTION LENGTH TO BE CREATED ( P DATA 0,0 f ( PVTCSEC EQU *-WRKARE VTOC BASE SECTOR x P DATA 0 , PFSATLE EQU *-WRKARE FSAT LENGTH IN BYTES P DATA 0 ( PVTCEND EQU *-WRKARE
0x312b20…312cb4 (1, 840) Dummy {f00=0x00f4, f01=0x0190, f02=»NGTH l P DATA 0,0 . PFWTSAV EQU *-WRKARE FWT ADDRESS SAVE AREA P DATA 0 P . PEXTZER EQU *-WRKARE 1ST VTOC ENTRY SECTOR ` P DATA 0 , PWRKALE EQU *-WRKARE LENGTH OF WORK AREA P* P EJECT FMCDEF P* P* . P**
0x312cb4…312e48 Dummy {f00=0x00f4, f01=0x0190, f02=» * j . P* * . P****************************************** > P* p P* PARAMETERS FROM FMTASK: z P* P* A1 = 0 6 P* A5 = TTAB ADDRESS OF CALLING TASK ( P*
0x312e48…312fdc Dummy {f00=0x00f4, f01=0x018e, f02=» P* P* PCREATE EQU * 6 P CF A14,CENTRY CLEAR WORK AREA AND SAVE PARAMETERS , P LDK A5,3 VOLUME COUNTER f PCRE:02 EQU * P LC A1,FILCOD,A5 FILE CODE P ANK A1,/FF & P RF(Z) CRE:04 NO VOLUME SPECYFIED " P LDR A2,A5 FIL
0x312fdc…313170 Dummy {f00=0x00f4, f01=0x0190, f02=» P RB(NN) CRE:02 NEXT VOLUME 2 P ABL CDERQE REQUEST ERROR NO LENGTH SPECYFIED * P* ` P EJECT FMCDEF j P* P* P* PREPARE VTOC RECORD P* P* PCRE:06 EQU * P IFT CPU852=1 P LDR A1,A10 GET FPB AD
0x313170…313304 Dummy {f00=0x00f4, f01=0x0190, f02=»* P IFT CPU852=0 P ML 4,FPB:FN,A10 FILE NAME P MS 4,VTC:FN,A9 B P XIF Z P* f " P LDR* A1,A10 GET RECORD LENGTH p P ST A1,VTC:RL,A9 0 P LD A1,FPB:BF,A10 BLOCKING FACTOR, FILE ORG P ST A1,VTC:BF,A9 P* P EJE
0x313304…313498 Dummy {f00=0x00f4, f01=0x018e, f02=»9 " P CF A14,FM:MOV CRD,RET PERIOD $ P LDK A7,6 NUMBER OF CHARACTERTS 0 P SUK A3,3 ADDRESS TO CHAR X PCRE:10 EQU * z P SUK A3,2 NEXT CHARACTERS P LDR* A1,A3 P RF(Z) CRE:20 BINARY ZERO P CWK A1,/3030 NUMERICAL ZERO
0x313498…31362c Dummy {f00=0x00f4, f01=0x0190, f02=» P DATA 11 P LDKL A8,FM:ECB ECB ADDRESS PCRE:30 EQU * 8 , P LC A2,FPB:IF,A10 NUMBER OF INDEX FILES L " P LD A1,FPB:KA,A10 KEY ADDRESS | P SC A2,VTC:IF,A9 P ST A1,VTC:KA,A9 4 P CF A14,CHKFIL CHECK FROM FIRST FILE CODE (A5=0) 2
0x31362c…3137c0 Dummy {f00=0x00f4, f01=0x0190, f02=» ST A6,FWTSAV,A9 INTO SAVE AREA P* ( P EJECT FMCDEF 2 P* H P* R P* CREATE FILE SECTIONS P* | P* PCRE:40 EQU * & P CF A14,CREFIL CREATE FILE SECTION P RF(NZ) CREDEL ERROR P CWK A2,3 P RB(NG) CRE:
0x3137c0…313954 (1, 841) Dummy {f00=0x00f4, f01=0x0190, f02=»L A3,OPEN P RF EXIT10 OPEN CREATED FILE P* 6 P EJECT FMCDEF @ P* V P* ` 6 P* DELETE CREATED PARTS OF FILE IN CASE OF ERROR j P* INPUT A4 = RETURN CODE P* P* PCREDEL EQU * P SUK A4,RC:NVL $ P RF(
0x313954…313ae8 Dummy {f00=0x00f4, f01=0x0190, f02=»CDEXIT END REQUEST P* P EJECT FMCDEF $ P* : P* D . P****************************************** N . P* * . P* DELETE ENTRY * . P*
0x313ae8…313c7c Dummy {f00=0x00f4, f01=0x0190, f02=»* PDELETE EQU * 2 P CF A14,EDENTR CLEAR WORK AREA AND SAVE PARAM. $ P RF(NZ) DEL:90 ERROR END REQUEST T P LC A1,FWTPAR,A6 | P LDR A2,A1 P ANK A2,/3F NUMBER OF USERS P SUK A2,1 P RF(Z) DEL:00 ONE USER & P LDKL A4,RC:DA
0x313c7c…313e10 Dummy {f00=0x00f4, f01=0x018e, f02=»* 4 P* COLLECT FILE CODES AND DELETE FILE SECTIONS P* B P* L PDEL:00 EQU * V $ P CM FILCOD CLEAR FILE CODE AREA j P CM FILCOD+2 P ADKL A6,FWTEW1 PDEL:10 EQU * P LDR* A6,A6 P LDKL A1,-4 " P LC A2,EWTVOL,
0x313e10…313fa4 Dummy {f00=0x00f4, f01=0x0190, f02=» P ANK A3,/FF . P RF(Z) DEL:30 NO MORE COLLECTED FILE CODES P CWR A3,A2 J P RB(NE) DEL:20 CHECK NEXT PDEL:30 EQU * ~ & P SC A2,FILCOD+3,A1 SAVE FILE CODE PDEL:40 EQU * P LDR* A6,A6 $ P RB(NZ) DEL:10 NEXT ENTRY IN EWT
0x313fa4…314138 Dummy {f00=0x00f4, f01=0x0190, f02=» PEXIT00 EQU * $ P LD A6,FWTSAV,A9 GET FWT ADDRESS PEXIT10 EQU * D $ P ORS A4,RETCOD SAVE RETURN CODE X P LDK A4,0 PEXIT20 EQU * P LD A9,SAVEA9 P ABR A3 BACK TO FMTASK PDEL:90 EQU * P LDR A1,A4 RETURN CODE
0x314138…3142cc Dummy {f00=0x00f4, f01=0x0190, f02=»EQUEST P* PCDERQE EQU * " P LDKL A3,FM:RQE REQUEST ERROR , P RB EXIT20 R PCDEINE EQU * d , P LDKL A3,FM:INE ILLEGAL VOLUME/FILE NAME x P RB EXIT20 P* P EJECT FMCDEF P* P* 2 P**************************
0x3142cc…314460 Dummy {f00=0x00f4, f01=0x0190, f02=»* * 2 P********************************************* 6 P* l 0 P* PARAMETERS FROM FMTASK SEE CREATE ENTRY v P* P* PEXTEND EQU * P IFT XTEND=1 4 P CF A14,EDENTR CLEAR WORK AREA MAK
0x314460…3145f4 (1, 842) Dummy {f00=0x00f4, f01=0x0190, f02=» SAVE LAST POINTER P LD* A5,0,A5 P RB(NZ) EXT:00 NEXT ENTRY . P LC A5,EWTSEX,A2 P P ST A5,SEXTNO SAVE FSN,FEN h P* P EJECT FMCDEF P* P* " P LD A2,FPB:EL,A10 GET ENLARGE & P RB(Z) CDERQE NO SPECYFIED LENGTH
0x3145f4…314788 Dummy {f00=0x00f4, f01=0x0190, f02=»VERFLOW t ( P LDKL A4,RC:SEO RC: SECTION OVERFLOW P RB CDEXIT < PEXT:15 EQU * N P SRL A2,6 FSN b P LC A2,FILCOD,A2 FILE CODE x & P CF A14,FNDVTC GET 1ST VTOC ENTRY P ADK A4,0 P RB(NZ) CDEXIT READ ERROR & P CF A14,RDVTO2 G
0x314788…31491c Dummy {f00=0x00f4, f01=0x0190, f02=»A4,VTC:FO,A13 FILE ORGANISATION P SUK A4,'L' ( P RB(E) CDERQE L FILE < P* X P EJECT FMCDEF b P* x P* P LDR A1,A13 P LDKL A2,VTOCRL-2 " P LDR A3,A9 VTOC RECORD ADDRESS * P CF A14,FM:MOV MOVE VTOC TO WORK AREA
0x31491c…314ab0 Dummy {f00=0x00f4, f01=0x0190, f02=»R LAST RECORD NUMBER ~ P CM VTC:LR+2,A9 ! " P SRL A5,6 FILE SECTION NUMBER ! 4 P ADK A5,1 ! Z 2 P CF A14,CHKFIL CHECK IF FILE ALREADY IN SYSTEM ! l P RB(NZ) CDEINE ! PEXT:20 EQU * ! & P CF A14,EXTFIL EXTEND FILE SECTION ! * P RB(NZ) CDEXIT RET
0x314ab0…314c44 Dummy {f00=0x00f4, f01=0x0190, f02=»ON NUMBER ! | 0 P LC A2,FILCOD,A5 GET CORRESPONDING FILE CODE " " P ADKL A5,FILCOD ADDRESS TO FC " F P ST A5,VOLUME " l P LDK A5,/3F " P ANS A5,SEXTNO FEN " & P LDKL A3,OPEXT OPEN EXTENDED FILE " P RB EXIT00 " P XIF " P* " P IFT X
0x314c44…314dd8 Dummy {f00=0x00f4, f01=0x018e, f02=» " P* CREFIL * # P* EXTFIL * # P********** # , P* # > P* # H > P* CREATES FILE SECTION IF FILE CODE SPECIFIED IN FILCOD # R P* # , P* INPUT : A2 = FILE SECTION NUMBER # & P* A8 = FM ECB ADDRESS # * P* A9
0x314dd8…314f6c Dummy {f00=0x00f4, f01=0x0190, f02=» # , P* OUTPUT : A4 = RETCOD = RETURN CODE $ 6 P* A2 = INCREMENTED FILE SECTION NUMBER $ 8 * P* CR SET ACCORDING TO A4 $ r P* $ PCREFIL EQU * $ * P CF A14,GETFIL GET FILE SECTION LENGTH $ 0 P RF(NZ) CEF010 DEMANDED FILE
0x314f6c…315100 Dummy {f00=0x00f4, f01=0x0190, f02=» 6 P LD A1,EXTLEN,A9 REST LENGTH FROM PREVIUS SECTIONS % P LD A2,EXTLEN+2,A9 % > P XIF % X P* % d P IFT CPU852=0 % n 6 P ML 2,EXTLEN,A9 REST LENGTH FROM PREVIUS SECTIONS % P XIF % P* % P CM EXTLEN,A9 % P CM EXTLEN+2,A9 % P* %
0x315100…315294 (1, 843) Dummy {f00=0x00f4, f01=0x0190, f02=» A1,A2 % n * P ABL(Z) CEFOUT NO LENGTH TO BE CREATED & PCEF010 EQU * & < P* & P P IFT CPU852=1 & Z 2 P ST A1,FILLEN,A9 FILE SECTION LENGTH TO CREATE & p P ST A2,FILLEN+2,A9 & 6 P CF A14,DV3RST MAKE FILE SECTION LENGTH MULT OF 3 & P LDR A6,A9 &
0x315294…315428 Dummy {f00=0x00f4, f01=0x0190, f02=»ON LENGTH TO CREATE & v . P CF A14,DV3RST MAKE FILE SECTION MULT OF 3 ' P DA FILLEN,A9 ' N P MS 2,FILLEN,A9 ' d P XIF ' | P* ' P CF A14,GET:FC GET FILE CODE ' & P RF(Z) CEFOUT NOT SPECIFIED VOLUME ' & P CF A14,VTCPAR GET VTOC PARAMETERS '
0x315428…3155bc Dummy {f00=0x00f4, f01=0x0190, f02=»INPUT : A8=ECB ADDRESS ' * P* FSATBA = FSAT BASE SECTOR ( . P* FILLEN = WANTED EXTENT LENGTH ( L P* ( ~ P* ( PCEF100 EQU * ( 6 P SUR A12,A12 FLAG INDICATING FITTING EXTENT FOUND ( . P CM VTC:EL,A9 RESET MOST FIT EXTENT LENG
0x3155bc…315750 Dummy {f00=0x00f4, f01=0x0190, f02=»UT DISC ERROR ( P* ) P IFT CPU852=1 ) 2 P ADKL A2,FM:BUF ADDRESS TO N:TH EXTLEN IN FSAT ) 6 P LDR A13,A2 SAVE ) l 2 P LDK A1,FILLEN ADDRESS TO WANTED EXTENT LENGTH ) P ADR A1,A9 ) P CF A14,CMPDWD ) P XIF ) P* ) P IFT CPU852=0 )
0x315750…3158e4 Dummy {f00=0x00f4, f01=0x0190, f02=»TH ) x P XIF * P* * P RF(E) CEF120 EXTENT FOUND * 2 P RF(L) CEF130 FOUND EXTENT GREATER THAN WANTED * B P LDR A12,A12 * x 4 P RF(NZ) CEF160 GREATER FREE EXTENT ALREADY FOUND * P* * P EJECT FMCDEF * P* * P* * P IFT CPU852=1 *
0x3158e4…315a78 Dummy {f00=0x00f4, f01=0x0190, f02=» P IFT CPU852=0 + $ P ML 2,VTC:EL,A9 PRESENT MOST FIT + P DSR* A13 EXTENT LENGTH + B P XIF + b P* + n 8 P RF(NL) CEF160 NOT GREATER THAN LAST FOUND MOST FIT + x P RF CEF150 + P* + P EJECT FMCDEF + P* + P* + PCEF120 EQU * +
0x315a78…315c0c Dummy {f00=0x00f4, f01=0x0190, f02=»NT FOUND + r P* , P IFT CPU852=1 , 0 P LDKL A1,VTC:EL ADDRESS TO PRESENT MOST FIT , 0 P ADR A1,A9 , d P LDR A2,A13 , v P CF A14,CMPDWD , P XIF , P* , P IFT CPU852=0 , $ P ML 2,VTC:EL,A9 PRESENT MOST FIT , P DSR* A13 EXTENT LEN
0x315c0c…315da0 Dummy {f00=0x00f4, f01=0x0190, f02=»50 EQU * , P* - P IFT CPU852=1 - P LDR A1,A13 MOVE FROM BUFFER - 0 P LDKL A3,VTC:EL TO WORK AREA - T P ADR A3,A9 - x P CF A14,FM:MV8 - P XIF - P* - P IFT CPU852=0 - ( P MLR 4,A13 FROM FM:BUF TO WORK AREA - P MS 4,VTC:EL,A9
0x315da0…315f34 (1, 844) Dummy {f00=0x00f5, f01=0x018e, f02=»EQUAL FOUND - P* . P EJECT FMCDEF . P* . 4 P* . > PCEF160 EQU * . H & P ADK A5,FSATRL NEXT ENTRY IN FSAT . P CW A5,FSATLE,A9 . , P RB(L) CEF110 SCAN MORE ENTRIES IN FSAT . PCEF170 EQU * . P* . P IFT CPU852=1 . P LD A1
0x315f34…3160c8 Dummy {f00=0x00f5, f01=0x0190, f02=» . P ML 2,VTC:EL,A9 / P RF(NZ) CEF200 SPACE ON DISC / P SUK A2,2 / D P XIF / V P* / b $ P ABL(NP) CEF500 NO SPACE ON DISC / l P* / P EJECT FMCDEF / P* / P* / P* UPDATE FSAT / P* / 8 P* INPUT : A6 = DISPLACEMENT
0x3160c8…31625c Dummy {f00=0x00f5, f01=0x018e, f02=» FM:BUF = FILE MANAGEMENT BUFFER / , P* VTC:EL = FILE EXTENT LENGTH 0 . * P* VTC:EB = FILE EXTENT BASE 0 ^ P* 0 PCEF200 EQU * 0 P LDR A5,A6 GET ENTRY IN FSAT 0 P CF A14,FTREAD 0 P RF(NZ) CEFOUT READ ERROR 0 , P A
0x31625c…3163f0 Dummy {f00=0x00f5, f01=0x0190, f02=» " P LD A1,VTC:EL,A9 EXTENT LENGTH 1 P LD A2,VTC:EL+2,A9 1 * P XIF 1 D P* 1 P P IFT CPU852=0 1 Z " P ML 2,VTC:EL,A9 EXTENT LENGTH 1 p P XIF 1 P* 1 P CF A14,DV3RST 1 P RF(Z) CEF220 NO REST 1 P* 1 P EJECT FMCDEF 1 P* 1
0x3163f0…316584 Dummy {f00=0x00f5, f01=0x0190, f02=» P SUK A1,1 A1=/FFFF 2 , P CF A14,DBLADR MAKE EXTENT MULTIPLE OF 3 2 P XIF 2 N P* 2 Z P IFT CPU852=0 2 d P SUK A2,3 -REST 2 z P SUK A1,1 /FFFF 2 P ANKL A2,/7FFF 2 P DA VTC:EL,A9 2 , P MS 2,VTC:EL,A9 EXTENT LENGTH MULT OF 3 2 P X
0x316584…316718 Dummy {f00=0x00f5, f01=0x0190, f02=» ADR A3,A9 2 P LDK A1,FILLEN 3 P ADR A1,A9 3 ( P CF A14,FM:MV4 3 : P XIF 3 P P* 3 P IFT CPU852=0 3 f & P ML 2,FILLEN,A9 FILE EXTENT LENGTH 3 | P MS 2,VTC:EL,A9 3 P XIF 3 P* 3 P EJECT FMCDEF 3 P* 3 P* 3 PCEF220 EQU
0x316718…3168ac Dummy {f00=0x00f5, f01=0x0190, f02=» RF(NZ) CEF230 REST EXTENT LENGTH GREATER 3 $ P CF A14,CLFSAT CLEAR FSAT ENTRY 4 2 P RF CEF240 4 Z PCEF230 EQU * 4 l P* 4 P IFT CPU852=1 4 P LDKL A3,FM:BUF+4 4 P ADR A3,A5 4 & P LDKL A6,VTC:EL EXTENT BASE+LENGTH 4 P ADR A6,A9 4 : P
0x3168ac…316a40 Dummy {f00=0x00f5, f01=0x0190, f02=»VTC:EL,A9 4 : P MS 2,FM:BUF+4,A5 NEW EXT BASE=EXTBAS+CREATED EXTBASE 5 P XIF 5 P P* 5 PCEF240 EQU * 5 f P CF A14,CDEWRI WRITE 5 z P RF(Z) CEF350 WRITE OK 5 PCEFOUT EQU * 5 " P CM EXTZER,A9 1ST VTOC POINTER 5 P IM VTC:FS,A9 NEXT SECTION
0x316a40…316bd4 (1, 845) Dummy {f00=0x00f5, f01=0x0190, f02=»STER 5 r P* 6 P EJECT FMCDEF 6 P* 6 , P* 6 6 $ P* SEARCH FOR FREE VTOC ENTRIES 6 @ P* 6 h P* 6 r * P* INPUT : VTCSEC = VTOC BASE SECTOR 6 | * P* VTCEND = VTOC LAST SECTOR 6 " P* FM:BUF = FM BUFFER 6 P* 6 P
0x316bd4…316d68 Dummy {f00=0x00f5, f01=0x0190, f02=»3,FM:BUF BUFFER ADDRESS 6 P* 7 P EJECT FMCDEF 7 * P* 7 @ P* 7 J PCEF320 EQU * 7 T & P LD A4,VTC:ST,A13 VTOC STATUS BYTE 7 h P ANK A4,/FF 7 ( P RF(Z) CEF400 FREE VTOC ENTRY FOUND 7 ( P LDKL A1,VTC:FN ADDRESS TO FILE NAME 7 P ADR A1,A9
0x316d68…316efc Dummy {f00=0x00f5, f01=0x018e, f02=»EXTENT NUMBER 7 ~ P RF(NZ) CEF340 NOT 1ST 8 ( P LD A1,VTCSEC,A9 VTOC SECTOR NUMBER 8 4 P ST A1,EXTZER,A9 8 ` PCEF340 EQU * 8 x & P ADKL A13,VTOCRL NEXT VTOC ADDRESS 8 P SUK A7,1 8 , P RB(P) CEF320 MORE VTOC:S ON THIS SECTOR 8 " P IM VTCSEC,A9 NE
0x316efc…317090 Dummy {f00=0x00f5, f01=0x0190, f02=» 8 n & P LDK A4,RC:OFL RC: NO MORE VOLUMES 9 P RB CEFOUT 9 2 P* 9 D P EJECT FMCDEF 9 N P* 9 d P* 9 n P* CREATE A VTOC 9 x P* 9 " P* INPUT : A10 = FPB ADDRESS 9 ( P* A13 = VTOC ENTRY ADDRESS 9 $ P* A8 = FM:ECB AD
0x317090…317224 Dummy {f00=0x00f5, f01=0x018e, f02=» $ P LC A1,FPB:MN,A10 MONITOR NUMBER : P ECR A1,A1 : , " P LC A1,FPB:SN,A10 START SWITCH : > P ST A1,VTC:MN,A9 VTOC : d P CM VTC:KA,A9 KEY ADDRESS : PCEF450 EQU * : P LDR A3,A13 MOVE VTOC : P LDKL A2,VTOCRL : " P LDR A1,A9 VTOC RECORD ADD
0x317224…3173b8 Dummy {f00=0x00f5, f01=0x0190, f02=» P* ; " P IM VTC:EN,A9 NEXT FILE EXTENT ; @ P LDK A3,FILLEN ADDRESS TO FILE SECTION LENGTH TO BE CREATED ; 4 P ADR A3,A9 ; x P CF A14,DBLSU1 SUBTRACT ; $ P RF(Z) CEF600 FILE SECTION READY ; & P LC A4,VTC:FO,A9 FILE ORGANISATION ; P SUK A4,'L'
0x3173b8…31754c Dummy {f00=0x00f5, f01=0x018e, f02=» ; d PCEF470 EQU * < . P LDKL A4,RC:SEO RC: TOO MANY FILE EXTENTS < $ P RF CEF510 TOO MANY FILE EXTENTS < N P* < v P EJECT FMCDEF < P* < P* < PCEF500 EQU * < & P LDK A4,RC:OFL RC: NO MORE VOLUMES < PCEF510 EQU * < , P LD A5,VTC:F
0x31754c…3176e0 Dummy {f00=0x00f5, f01=0x0190, f02=» < p " P LC A1,FILCOD,A5 GET FILE CODE = P ANK A1,/FF = . P RB(Z) CEF520 NEXT VOLUME = B P LDR A2,A5 = d & P CF A14,GETFIL FILE SECTION LENGTH = v P RB(NZ) CEF520 NO REST PILE = PCEF530 EQU * = P LDK A4,0 RESET CR = P* = P IFT CPU852=
0x3176e0…317874 (1, 846) Dummy {f00=0x00f5, f01=0x0190, f02=» = P* > P IFT CPU852=0 > P ML 2,EXTLEN,A9 SAVE REST > ( P DA FILLEN,A9 > J P MS 2,EXTLEN,A9 > ` P XIF > x P* > P EJECT FMCDEF > P* > P* > PCEF600 EQU * > . P LD A2,EXTZER,A9 1ST EXTENT VTOC SECTOR NO > $ P RF(NZ) CE
0x317874…317a08 Dummy {f00=0x00f5, f01=0x0190, f02=»,FWTSAV,A9 GET FILE NAME BASE > & P CF A14,RDVTO2 SCAN FOR FIRST VTOC ? & P ADK A4,0 ? P P RF(NZ) CEF900 READ ERROR ? b ( P LD A1,VTC:EN,A9 LAST EXTENT NUMBER ? . P SC A1,VTC:NE,A13 UPDATE NUMBER OF EXTENTS ? P CF A14,CDEWRI ? PCEF900 EQU * ?
0x317a08…317b9c Dummy {f00=0x00f5, f01=0x0190, f02=» 4 P* COLLECT ADJECENT EXTENDS AND CREATE ONE NEW @ P* @ < > P* INPUT : FWTSAV = FWT ADDRESS OR ADJUSTED FPB ADDRESS @ F 8 P* THAT IS (FILENAME)=(FWTSAV)+FWTNAM @ $ P* A8 = FM:ECB ADDRESS @ 4 P* FILCOD = AREA C
0x317b9c…317d30 Dummy {f00=0x00f5, f01=0x018e, f02=» FILE CODE @ ~ ( P RF(Z) DELF03 NO SPECIFIED FILE CODE A & P CF A14,VTCPAR GET VTOC PARAMETERS A > P RF(NZ) DELF03 ERROR A h PDELF00 EQU * A $ P LD A6,FWTSAV,A9 GET FWT ADDRESS A & P LD A12,VTCEND,A9 VTOC END SECTOR A ( P LD A2,VTCSEC,A9 PRESENT VTOC
0x317d30…317ec4 Dummy {f00=0x00f5, f01=0x018e, f02=» A p P ADK A4,0 B " P RF(Z) DELF05 NEXT VTOC ENTRY B P* B @ P EJECT FMCDEF B J P* B ` P* B j PDELF03 EQU * B t P ORS A4,RETCOD B $ P IM VTC:FS,A9 NEXT FILE SECTION B P LD A1,VTC:FS,A9 B P SUK A1,4 B $ P RB(N) DELFIL NEXT FILE
0x317ec4…318058 Dummy {f00=0x00f5, f01=0x0190, f02=» 2 P* VTC:EL = END SECTOR OF CREATED FREE SPACE C P* C : P* C D PDELF05 EQU * C N P LDKL A1,SPACES C b $ P STR A1,A13 SPACES IN FILE NAME C z P ST A1,2,A13 C P ST A1,4,A13 C P ST A1,6,A13 C P CM VTC:ST,A13 FREE ENTRY C $ P LD A1,V
0x318058…3181ec Dummy {f00=0x00f5, f01=0x0190, f02=»NO C P* D P EJECT FMCDEF D P* D * P* D 4 PDELF08 EQU * D > P* D R P IFT CPU852=1 D & P LDKL A1,VTC:EL GET EXTENT LENGTH D r 6 P ADR A1,A13 MOVE EXT LEN AND EXT BASE TO WORK AREA D P LDKL A3,VTC:EL D P ADR A3,A9 D P CF A14,
0x3181ec…318380 Dummy {f00=0x00f5, f01=0x0190, f02=» D 6 P CF A14,DBLADD VTC:EL=EXTENT BASE + EXTENT LENGTH E P XIF E B P* E N P IFT CPU852=0 E X P ML 4,VTC:EL,A13 E n & P DAR A3 VTC:EL=EXT BASE+EXT LENGTH E P MS 4,VTC:EL,A9 E P XIF E P* E P CF A14,CDEWRI WRITE E P RB(NZ) DELF03
0x318380…318514 (1, 847) Dummy {f00=0x00f5, f01=0x0190, f02=»12 POINTER IN FSAT E PDELF10 EQU * F $ P LDR A5,A12 DISPLACEMENT IN FSAT F . P CF A14,FSREAD F V P RB(NZ) DELF03 READ ERROR F l P* F P EJECT FMCDEF F P* F P* F ( P* EXTLEN = FSAT EXTENT BASE+LENGTH F P* F P* F & P ANK A
0x318514…3186a8 Dummy {f00=0x00f5, f01=0x0190, f02=»A1,FM:BUF+4 MOVE EXTENT BASE FROM FSAT F P ADR A1,A5 G . P CF A14,FM:MV4 G @ ( P LDK A3,EXTLEN ADDRESS TO SAVE AREA G V P ADR A3,A9 G * P CF A14,DBLAD1 FSAT EXTENT BASE+LENGTH G P XIF G P* G P IFT CPU852=0 G P ML 2,FM:BUF+4,A5 G P
0x3186a8…31883c Dummy {f00=0x00f5, f01=0x0190, f02=»ACENT FREE SPACE G v P* H P* H " P IFT CPU852=1 H , * P LDR A1,A3 ADDRESS TO FSAT BASE+LENGTH H B P LDKL A2,VTC:EB EXTENT BASE H p P ADR A2,A9 H : P CF A14,CMPDWD CHECK IF FSAT EXTBASE = EXTBASE+EXTLEN H P XIF H P* H P IFT CPU852=0
0x31883c…3189d0 Dummy {f00=0x00f5, f01=0x0190, f02=» IFT CPU852=1 H P LDKL A3,VTC:EB I P ADR A3,A9 I . 0 P LDKL A1,FM:BUF+4 MOVE EXTENT BASE TO VTC:EB I @ P ADR A1,A5 I t P CF A14,FM:MV4 I P XIF I P* I P IFT CPU852=0 I P ML 2,FM:BUF+4,A5 I P MS 2,VTC:EB,A9 I P XIF I P*
0x3189d0…318b64 Dummy {f00=0x00f5, f01=0x0190, f02=»PACE I j P* J P* J PDELF30 EQU * J P* J 4 P IFT CPU852=1 J > , P LDKL A1,FM:BUF+4 FSAT EXTENT BASE ENTRY J T P ADR A1,A5 DISPLACEMENT J . P LDKL A2,VTC:EL EXTENTBASE + EXTENT LENGTH J P ADR A2,A9 J $ P CF A14,CMPDWD CHECK IF ADJECENT
0x318b64…318cf8 Dummy {f00=0x00f5, f01=0x0190, f02=» J f P XIF K P* K P RF(NE) DELF40 NOT ADJECENT K P* K B P IFT CPU852=1 K L " P LDKL A3,VTC:EL EXPAND EXTLEN K b P ADR A3,A9 K P CF A14,DBLAD1 K P XIF K P* K P IFT CPU852=0 K P ML 2,VTC:EL,A9 K P DA FM:BUF,A5 K
0x318cf8…318e8c Dummy {f00=0x00f5, f01=0x0190, f02=»B(NZ) DELF03 WRITE ERROR K PDELF40 EQU * L ( P ADKL A12,FSATRL NEXT ENTRY IN FSAT L 4 P CW A12,FSATLE,A9 L ` * P RB(L) DELF10 CONTINUE SEARCH OF FSAT L z P* L P EJECT FMCDEF L P* L P* L : P* PUT FREE SPACE IN FSAT SEARCH FOR FREE F
0x318e8c…319020 Dummy {f00=0x00f5, f01=0x0190, f02=»ROR L z & P LDR A12,A2 DISPLACEMENT IN BUFFER M P ADKL A12,FM:BUF ADDRESS M 6 P LDR A1,A12 M V P CF A14,GETPAR GET EXT LEN M j " P RF(Z) DELF60 FREE FSAT ENTRY M P ADK A5,FSATRL M P CW A5,FSATLE,A9 M P RB(NG) DELF50 M 0 P LDK A4,RC:OFL RC:
0x319020…3191b4 (1, 848) Dummy {f00=0x00f6, f01=0x018e, f02=»EF M P* N P* N PDELF60 EQU * N P* N 2 P IFT CPU852=1 N < P LDKL A3,VTC:EL EXTENT END N R P ADR A3,A9 N t * P LDKL A6,VTC:EB ADDRESS TO EXTENT BASE N P ADR A6,A9 N $ P CF A14,DBLSUB GET EXTENT LENGTH N * P LDR A3,A12 ADDRESS TO FRE
0x3191b4…319348 Dummy {f00=0x00f6, f01=0x0190, f02=» P XIF O P* O P IFT CPU852=0 O P ML 4,VTC:EL,A9 O 0 P DSR A3 O H P MSR 4,A12 UPDATE FSAT O X P XIF O v P* O P CF A14,CDEWRI WRITE O P RF(NZ) DELF80 ERROR O P IM FEXTNO O PDELF70 EQU * O P ABL(NZ) DELF00 NEXT EXTENT O
0x319348…3194dc Dummy {f00=0x00f6, f01=0x0190, f02=»SUBROUTINES * O P*************** P P* P . P* P 8 P********** P B P* DV3RST * P T P********** P f P* P x P* P ( P* CALCULATES REST WHEN DIVIDE BY 3 P P* P " P* INPUT : A1,A2 = DIVIDENT P P* P 2 P* OUTPUT : A2 = 3
0x3194dc…319670 Dummy {f00=0x00f6, f01=0x018e, f02=»QU * P P LDR A1,A2 Q " P ANK A1,3 ONE FIGURE IN BASE 4 Q P SRL A2,2 Q D 2 P ADR A2,A1 ADDED TO REST OF FIGURES IN BASE 4 Q V P RF(Z) SET2CR REST = 0 Q P SUK A2,3 Q " P RB(P) DV3R10 CONTINUE TO ADD Q P NGR A2,A2 Q P RF SET2CR Q P*
0x319670…319804 Dummy {f00=0x00f6, f01=0x0190, f02=» Q P* GET FILE SECTION LENGTH R P* R , ( P* INPUT : A2 = FILE SECTION NUMBER R 6 P* A10 = FPB ADDRESS R b P* R , P* OUTPUT: A1,A2 = FILE SECTION LENGTH R : P* CR SET ACCORDING TO FILE SECTION LENGTH R P* R P
0x319804…319998 Dummy {f00=0x00f6, f01=0x0190, f02=»S TO FILE SECTION LENGTH R ~ , P ADKL A1,FPB:S1 SIZE DISPLACEMENT IN FPB S PGETPAR EQU * S P & P LD A2,2,A1 LEAST SIGNIFICANT PART S d & P LDR* A1,A1 MOST SIGNIFICANT PART S P RF DBLX00 SET CR S P* S P IFT CPU852=1 S P EJECT FMCDEF S P
0x319998…319b2c Dummy {f00=0x00f6, f01=0x0190, f02=»UBLE ADD ON MEMORY LOCATIONS S 0 P* DOUBLE ADD ON MEMORY BY REGISTERS A1,A2 T $ P* T X & P* INPUT : A3 = ADDRESS TO ARG1 T b & P* A6 = ADDRESS TO ARG2 T P* T , P* OUTPUT: A3 = ADDRESS TO ARG1 + ARG2 T " P* A1,A2 = ARG
0x319b2c…319cc0 Dummy {f00=0x00f6, f01=0x0190, f02=» PDBLADD EQU * U P LDR* A1,A3 GET ARG1 U P LD A2,2,A3 U 4 PDBLADR EQU * U H P LD A7,2,A6 GET ARG2 U P LDR* A6,A6 U x P CF A14,ADDMOD ARG1+ARG2 U P RF DBLXIT U P XIF U P* U P EJECT FMCDEF U P* U P* U P**********
0x319cc0…319e54 (1, 849) Dummy {f00=0x00f6, f01=0x0190, f02=»PUT : A3 = ADDRESS TO ARG1 U & P* A6 = ADDRESS TO ARG2 V $ P* V N * P* OUTPUT: A3 = ADDRESS TO ARG1-ARG2 V X " P* A1,A2 = ARG1-ARG2 V $ P* A6,A7 ARE DESTOIED V & P* IF A1=A2=0 THEN A3=0 V P* V P
0x319e54…319fe8 Dummy {f00=0x00f6, f01=0x0190, f02=»,A3 ARG1 V P LD A2,2,A3 W P LD A7,2,A6 ARG2 W $ P LDR* A6,A6 W < P CF A14,DSUMOD ARG1-ARG2 W P P XIF W p P* W | P IFT CPU852=0 W P MLR 2,A3 W P DSR* A6 W P XIF W P* W P EJECT FMCDEF W P* W P* W PDBLXIT EQU
0x319fe8…31a17c Dummy {f00=0x00f6, f01=0x018e, f02=» MSR 2,A3 W P XIF X P* X PDBLX00 EQU * X ( P ADKL A14,4 X < P ADK A1,0 X P P RF(NZ) DBLX10 X b P ADK A2,0 X x PDBLX10 EQU * X P ABR* A14 X P* X P EJECT FMCDEF X P* X P* X P********** X P* GET:FC * X P
0x31a17c…31a310 Dummy {f00=0x00f6, f01=0x018e, f02=» X P* OUTPUT : A2 = FILE CODE Y . P* CR SET ACCORDING TO FILECODE Y , P* Y ^ P* Y h PGET:FC EQU * Y r , P LD A2,VTC:FS,A9 GET FILE SECTION NUMBER Y P LC A2,FILCOD,A2 FILE CODE Y PSET2CR EQU * Y P LDK A1,0 Y & P RB DBLX00
0x31a310…31a4a4 Dummy {f00=0x00f6, f01=0x018e, f02=» P* Z P* PERFORM WRITE Z P* Z ( P* INPUT: A8=ECB ADDRESS Z 2 P* A7 USED Z T P* OUTPUT: A4=RETURN CODE Z n 0 P* CR SET ACCORDING TO RETURN CODE Z P* Z P* Z PCDEWRI EQU * Z P LDK A7,/95 Z P CF A14,
0x31a4a4…31a638 Dummy {f00=0x00f6, f01=0x0190, f02=» 0 P* CLEAR 4 WORDS IN FM:BUF SPECIFIED BY A5 [ P* [ 8 , P* INPUT : A5 = DISPLACEMENT IN FM:BUF [ B P* [ r PCLFSAT EQU * [ | P CM FM:BUF,A5 [ P CM FM:BUF+2,A5 [ P CM FM:BUF+4,A5 [ P CM FM:BUF+6,A5 [ P RTN A14 [ P* [ P
0x31a638…31a7cc Dummy {f00=0x00f6, f01=0x0190, f02=»ELETE AND EXTEND PREPARATION ROUTINE [ . P* CLEAR WORK AREA AND SAVES TTAB ADDRESS , P* ^ 2 P* INPUT : A5 = TTAB ADDRESS OF CALLING TASK h " P* REGISTER A3 USED P* " P* OUTPUT : A4=RC FROM FCHEC2 ( P* CR SET
0x31a7cc…31a960 Dummy {f00=0x00f6, f01=0x018e, f02=»RY EQU * ENTRY USED BY CREATE P LDK A3,WRKALE-2 ] & PCDEE05 EQU * ] > P CM WRKARE,A3 ] R P SUK A3,2 ] h P RB(NN) CDEE05 ] z ( P ST A9,SAVEA9 SAVE USER ECB ADDRESS ] P LDKL A9,WRKARE BASE ADDRESS ] & P ST A6,FWTSAV,A9 SAVE FWT ADDRESS ]
0x31a960…31aaf4 (1, 850) Dummy {f00=0x00f6, f01=0x0190, f02=» P********** ^ P* FSREAD * ^ P* FTREAD * ^ ( P********** ^ : P* ^ L B P* FSREAD: READ FSAT SECTOR IF 1ST ENTRY IN SECTOR REQUESTED ^ V P* FTREAD: READ FSAT SECTOR ^ P* ^ ( P* INPUT : A5 = FSAT DISPLACEMENT ^ * P* FSATB
0x31aaf4…31ac88 Dummy {f00=0x00f6, f01=0x0190, f02=» ^ ^ * P* CR IS SET TO ZERO IF A4=0 _ P* _ 6 PFSREAD EQU * _ @ P LDK A4,0 RESET RETURN CODE _ T P LDR A2,A5 DISPLACEMENT _ x P ANK A2,/F8 _ & P RF(NZ) SET:CR NOT FIRST IN SECTOR _ PFTREAD EQU * _ P ECR A2,A5 SECTOR NUMBER _
0x31ac88…31ae1c Dummy {f00=0x00f6, f01=0x0190, f02=» $ P ADKL A14,4 UPDATE STACK POINTER ` P ADK A4,0 SET CR ` , P ABR* A14 RETURN ` D P* ` P EJECT FMCDEF ` f P* ` | P* ` P********** ` P* VTCPAR * ` P********** ` P* ` . P* GET FSAT LENGTH IN BYTES TO WORK AREA ` * P*
0x31ae1c…31afb0 Dummy {f00=0x00f6, f01=0x0190, f02=»INPUT : A8 = FM:ECB ADDRESS ` P* A2 = FILE CODE a $ " P* OUTPUT: A4 = 0 IF READ OK a H & P* A4<> 0 IF READ NOT OK a n ( P* CR SET ACCORDING TO A4 a * P* USED REGISTERS A1, A2, A3, A4, A7 a P* a PVTCPAR EQU *
0x31afb0…31b144 Dummy {f00=0x00f6, f01=0x0190, f02=»ERROR a | " P LDKL A2,FM:BUF BUFFER ADDRESS b P LD A1,VOL:EB,A2 VTOC BASE b 4 & P ST A1,FSATBA,A9 FSAT BASE SECTOR b V P LD A3,VOL:EL,A2 VTOC LENGTH b P LD A2,VOL:FS,A2 FSAT LENGTH b P ADR A3,A1 b P ADR A1,A2 b P ECR A2,A2 b P* b P
0x31b144…31b2d8 Dummy {f00=0x00f6, f01=0x0190, f02=»N BYTES b r $ P ST A3,VTCEND,A9 VTOC END SECTOR c P XIF c 8 P* c D P IFT CPU852=0 c N P MS 3,VTCSEC,A9 c d P XIF c | P* c P RB SET:CR c P* c P EJECT FMCDEF c P* c P* c P********** c P* CHKFIL * c P********** c
0x31b2d8…31b46c Dummy {f00=0x00f6, f01=0x0190, f02=»OD c j . P* FILCOD - AREA WITH FILE CODES d ( P* OUTPUT: A2 = 0 IF NO FILE FOUND d < & P* A2 <> 0 IF FILE FOUND d h ( P* CR SET ACCORDING TO A2 d , P* A1-A7 AND A11-A13 ARE USED d P* d P* d PCHKFIL
0x31b46c…31b600 Dummy {f00=0x00f6, f01=0x4150, f02=» CHKF20 NEXT FILE CODE d P LDR A6,A9 e P SUKL A6,FWTNAM e 0 P CF A14,FNDVTC e H P ADK A4,0 e ^ P ABL(NZ) CDEXIT DISC ERROR e p P ADK A2,0 e * P RB(NZ) SET2CR FILE IN ONE OF VOLUMES e PCHKF20 EQU * e P ADK A5,1 e ( P RB(NP) CHKF10 N
0x31b600…31b794 (1, 851) Dummy {f00=0x00f6, f01=0x2008, f02=» f NT FMCDEF 80-01-09 PRR 11.0 CHLO END 4 :E0F @ KPF /S L ASG 2,TY10 Z LED FMCDEF l !!DL 1 ~ 11EN !!AB BEA FMCDEF ASG 2,TY10 BYE @
0x31b794…31b928 Dummy {f00=0x00f6, f01=0x0000, f02=»
[…0x6…]
0x31c2a0…31c434 (1, 852) Opaque[0x194]
0x31c434…31c5c8 # DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ee0, f03=0x0000}
0x31c434…31c5c8 IdxSect {
0x31c434…31c5c8 f00 = 0x00f7 // 0x31c434 @0x0
0x31c434…31c5c8 f01 = 0x0028 // 0x31c436 @0x2
0x31c434…31c5c8 gno = [ // 0x31c438 @0x4
0x31c434…31c5c8 [0x00]: C0x00f7.0x0.0
0x31c434…31c5c8 [0x01]: C0x00f7.0x1.0
0x31c434…31c5c8 [0x02]: C0x00f7.0x2.0
0x31c434…31c5c8 [0x03]: C0x00f7.0x3.0
0x31c434…31c5c8 [0x04]: C0x00f8.0x0.0
0x31c434…31c5c8 [0x05]: C0x00f8.0x1.0
0x31c434…31c5c8 [0x06]: C0x00f8.0x2.0
0x31c434…31c5c8 [0x07]: C0x00f8.0x3.0
0x31c434…31c5c8 [0x08]: C0x00f9.0x0.0
0x31c434…31c5c8 [0x09]: C0x00f9.0x1.0
0x31c434…31c5c8 [0x0a]: C0x00f9.0x2.0
0x31c434…31c5c8 [0x0b]: C0x00f9.0x3.0
0x31c434…31c5c8 [0x0c]: C0x00fa.0x0.0
0x31c434…31c5c8 [0x0d]: C0x00fa.0x1.0
0x31c434…31c5c8 [0x0e]: C0x00fa.0x2.0
0x31c434…31c5c8 [0x0f]: C0x00fa.0x3.0
0x31c434…31c5c8 [0x10]: C0x00fb.0x0.0
0x31c434…31c5c8 [0x11]: C0x00fb.0x1.0
0x31c434…31c5c8 [0x12]: C0x00fb.0x2.0
0x31c434…31c5c8 [0x13]: C0x00fb.0x3.0
0x31c434…31c5c8 ]
0x31c434…31c5c8 }
0x31c5c8…31c75c Dummy {f00=0x00f7, f01=0x0190, f02=» 2 P IDENT FMTASK REL 11.0 81-05-13 870105041100 P : 0 P =7, FDBMEC NOT SET IN SYSTEMS WITHOUT DM B P =7, REL 11.0 81-02-04 v $ P =6,EDM INITIALIZATION 3 DISCS P =6, REL 11.0 81-02-03 P =5, ADM INITIALIZATION P REL 1
0x31c75c…31c8f0 Dummy {f00=0x00f7, f01=0x0190, f02=»ING j P PRR 11.0 80-11-20 CHLO , P =2, EDM INITIALIZATION ALLWAYS HALTED 0 P PRR 11.0 80-11-19 CHLO ` " P =1, HALT IF TTAB NOT FOUND P PRR 11.0 80-11-19 POHO P* P* 6 P**************************************
0x31c8f0…31ca84 Dummy {f00=0x00f7, f01=0x0190, f02=» * j P* P* P* ( P* 2 6 P************************************************** < P* v P* . P* TOSS FILE MANAGEMENT TASK CONTAINS THE . P* FOLLOWING FILE ADMINISTRATION MODULES: P* P* - FMOPEN O
0x31ca84…31cc18 Dummy {f00=0x00f7, f01=0x0190, f02=» P* 0 P* FMTASK ALSO CONTAINS THE FILE MANAGEMENT . P* SYSTEM INITIALIZATION ROUTINE, FMINIT. B : P* FMINIT ALSO HOLDS THE EDM INITIALIZATION ROUTINE. t P* P* P EJECT FMTASK P* P* P*********** P*
0x31cc18…31cdac Dummy {f00=0x00f7, f01=0x0190, f02=»END) ` 2 P ENTRY DLCLO1 CLOSE FILE (CALLED FROM DELETE) 2 P ENTRY DLCLO2 CLOSE FILE (CALLED FROM DELETE) B , P ENTRY FMTASK FMTASK ACTIVATION ADDRESS x 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION 2 P ENTRY FMREAD FMTASK READ DISC SECTOR ROUTIN
0x31cdac…31cf40 Dummy {f00=0x00f7, f01=0x0190, f02=» . P ENTRY FMEXIT FMTASK SET RETURN CODE EXIT * P ENTRY FM:INE FMTASK ILLEGAL NAME EXIT 6 , P ENTRY FM:RQE FMTASK REQUEST ERROR EXIT d 6 P ENTRY FNDNAM FIND VOLUME NAME ADDRESS IN DISC DWT . P ENTRY FNDVTC FIND ONE FILE EXTENT (VTOC) " P ENTRY F
0x31cf40…31d0d4 (1, 853) Dummy {f00=0x00f7, f01=0x0190, f02=»CTERS v $ P ENTRY FM:MV8 MOVE 8 CHARACTERS " P ENTRY CMPSTR COMPARE STRINGS 6 * P ENTRY CMPDWD COMPARE TWO DOUBLE WORDS " P ENTRY FILCOD FILE CODE TABLE 2 P ENTRY VOLUME CURRENT VOLUME FILE CODE POINTER , P ENTRY FM:BUF FMTASK DISC SECTOR B
0x31d0d4…31d268 Dummy {f00=0x00f7, f01=0x0190, f02=»JECT FMTASK P* 4 P ENTRY FWTVTC VTOC SECTOR NUMBER (FIRST EXTENT) ( P ENTRY FWTPAR FILE ACCESS PARAMETERS X P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT BLOCK I
0x31d268…31d3fc Dummy {f00=0x00f7, f01=0x0190, f02=»RY FWTQUE QUEUE ANCHOR FOR FILE I/O REQUESTS 0 P ENTRY FWTSEX FILE SECTION AND EXTENT NUMBER 4 P ENTRY FPB:RL RECORD LENGTH h P ENTRY FPB:BF BLOCK FACTOR $ P ENTRY FPB:FO FILE ORGANIZATION P ENTRY FPB:DT DEVICE TYPE =1 P ENTRY FPB:BO
0x31d3fc…31d590 Dummy {f00=0x00f7, f01=0x0190, f02=»ME NAME 1 ~ P ENTRY FPB:S1 SIZE 1 P ENTRY FPB:V2 VOLUME NAME 2 . P ENTRY FPB:S2 SIZE 2 R P ENTRY FPB:V3 VOLUME NAME 3 n P ENTRY FPB:S3 SIZE 3 P ENTRY FPB:V4 VOLUME NAME 4 P ENTRY FPB:S4 SIZE 4 $ P ENTRY FPB:FR FILE RECORD
0x31d590…31d724 Dummy {f00=0x00f7, f01=0x0190, f02=»SOP SWITCH NUMBER ( P ENTRY FPB:IF NUMBER OF INDEX FILES ( P ENTRY FPB:KA KEY ADDRESS IN RECORD F P ENTRY FPB:CD CREATION DATE r " P ENTRY FPB:RP RETENTION PERIOD P EJECT FMTASK P* P* P ENTRY EWTEXL EXTENT LENGTH
0x31d724…31d8b8 Dummy {f00=0x00f7, f01=0x0190, f02=»OL:VN VOLUME NAME $ P ENTRY VOL:EL VTOC EXTENT LENGTH " P ENTRY VOL:EB VTOC EXTENT BASE B $ P ENTRY VOL:RL VTOC RECORD LENGTH h P ENTRY VOL:FS FSAT LENGTH $ P ENTRY VTOCRL VTOC RECORD LENGTH $ P ENTRY VTOCBF VTOC BLOCK FACTOR P ENTRY
0x31d8b8…31da4c Dummy {f00=0x00f7, f01=0x0190, f02=»SOP SWITCH NUMBER $ P ENTRY VTC:EN FILE EXTENT NUMBER $ P ENTRY VTC:EL FILE EXTENT LENGTH B " P ENTRY VTC:EB FILE EXTENT BASE j $ P ENTRY VTC:LR LAST RECORD NUMBER P ENTRY VTC:RL RECORD LENGTH P ENTRY VTC:BF BLOCK FACTOR $ P ENTRY VTC
0x31da4c…31dbe0 Dummy {f00=0x00f7, f01=0x0190, f02=»LES p ( P ENTRY VTC:KA KEY ADDRESS IN RECORD $ P ENTRY VTC:NE NO OF FILE EXTENTS 8 P ENTRY VTC:ST STATUS BYTE ` P EJECT FMTASK P* P* P************* P* EXTERNALS * P************* P* P* P EXT
0x31dbe0…31dd74 (1, 854) Dummy {f00=0x00f7, f01=0x0190, f02=»T MONITOR TASK p 4 P EXTRN GETBLK STORE PARAMETERS IN MONITOR BLOCK 4 P EXTRN FREBLK GET PARAMETERS FROM MONITOR BLOCK N 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID . P EXTRN FINDTT FIND DATA MANAGEMENT TASK =1 ( P EXTRN FNDDWD FIND DISC DWT
0x31dd74…31df08 Dummy {f00=0x00f7, f01=0x0190, f02=»TO PHYSICAL j ( P EXTRN DET:FM FILE MANAGEMENT DETACH : P EXTRN FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS @ $ P EXTRN TIODM (E)DM ADDRESS BLOCK ~ . P EXTRN SEXTNO START EXTENT NUMBER (EXTEND) & P EXTRN DFTAB DISC FILE CODE TABLE P EXTRN
0x31df08…31e09c Dummy {f00=0x00f7, f01=0x0190, f02=»TABLE LENGTH x ( P EXTRN SCTDMT (E)DM TASKS IN SYSTEM 0 P EXTRN SCTMOX DISPATCH ADDRESS TABLE POINTER @ & P EXTRN DWDM01 (E)DM SYSTEM DWT/FWT t P EXTRN NVLTAB NVL TABLE P EXTRN NVLEND END OF NVLTAB P EXTRN NVLBIT NVL BIT MASK P EJE
0x31e09c…31e230 Dummy {f00=0x00f7, f01=0x0190, f02=»ECB ADDRESS ~ P EXTRN DWTVOL VOLUME NAME P EXTRN DWTNVL NVL INDICATOR 6 * P EXTRN DWTPAB PARAMETER BLOCK ADDRESS Z 2 P EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT P EXTRN TTB:MT MMU TABLE " P EXTRN TTB:SA DISPATCH ADDRESS P EXT
0x31e230…31e3c4 Dummy {f00=0x00f7, f01=0x0190, f02=» REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE D P EXTRN ECBCW1 CONTROL WORD 1 h P EXTRN ECBCW2 CONTROL WORD 2 P EXTRN HALT P EJECT FMTASK P* P* , P************************
0x31e3c4…31e558 Dummy {f00=0x00f7, f01=0x018e, f02=»PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. . P* PMMUPAG EQU 0 f P* z P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU8
0x31e558…31e6ec Dummy {f00=0x00f7, f01=0x0190, f02=» PDSKPAG EQU 0 P* P* & 4 P* A PROGRAM VERSION INCLUDING CREATE/DELETE FILE 0 0 P* IS OBTAINED BY SETTING FMCDEF (X:A) EQU 1. h P* PX:A EQU 0 PFMCDEF EQU X:A P* P EJECT FMTASK P* P* 2 P* A
0x31e6ec…31e880 Dummy {f00=0x00f7, f01=0x018e, f02=»B P* P* < P* A PROGRAM VERSION SUPPORTING EXTENDED DATA MANAGEMENT . P* IS OBTAINED BY SETTING EDM (X:C) EQU 1. ^ P* PX:C EQU 0 PEDM EQU X:C P* P* > P* A PROGRAM VERSION SUPPORTING ABRIDGED DATA MANAGEM
0x31e880…31ea14 (1, 855) Dummy {f00=0x00f7, f01=0x0190, f02=» " P* COMBINED CONDITION ADMEDM =5 P IFF ADM+EDM=0 =5 * PADMEDM EQU 1 =5 D P XIF =5 P IFT ADM+EDM=0 =5 l PADMEDM EQU 0 =5 P XIF =5 P* P EJECT FMTASK P* P* & P* THE ATTACH/DETACH FILE FUNCTION
0x31ea14…31eba8 Dummy {f00=0x00f7, f01=0x0190, f02=»IPLE EXTENT I/O FUNCTION * P* IS OBTAINED BY SETTING MULEXT EQU 1. P* N PMULEXT EQU 1 X PX:F EQU MULEXT l P* P EJECT FMTASK P* P* P******************** P* VL DISPLACEMENTS * P********************
0x31eba8…31ed3c Dummy {f00=0x00f7, f01=0x0190, f02=»EB EQU 10 VTOC EXTENT BASE $ PVOL:RL EQU 12 VTOC RECORD LENGTH " PVOL:FS EQU 46 FSAT LENGTH J P* l P* v P****************** P* VTOC CONSTANTS * P****************** P* P* $ PVTOCRL EQU 42 VTOC RECORD LENGTH "
0x31ed3c…31eed0 Dummy {f00=0x00f7, f01=0x0190, f02=»ACEMENTS * P********************** P* 0 , P* VOLUME TABLE OF CONTENTS DISPLACEMENTS : P* j PVTC:FN EQU 0 FILE NAME t ( PVTC:MN EQU 8 MONITOR NUMBER (L-FILE) . PVTC:FS EQU 8 FILE SECTION NUMBER (S-FILE) " PVTC:SN EQU 9 SOP SWITCH
0x31eed0…31f064 Dummy {f00=0x00f7, f01=0x0190, f02=»LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH $ PVTC:BF EQU 26 BLOCK FACTOR H $ PVTC:FO EQU 27 FILE ORGANIZATION j PVTC:CD EQU 28 CREATION DATE " PVTC:RP EQU 34 RETENTION PERIOD ( PVTC:IF EQU 37 NUMBER OF INDEX FILES ( P
0x31f064…31f1f8 Dummy {f00=0x00f7, f01=0x0190, f02=» FMTASK P* P* P********************* $ P* FWT DISPLACEMENTS * B P********************* ` P* ~ $ P* FILE WORK TABLE DISPLACEMENTS P* PFWTLNK EQU /00 LINK NEXT FWT P* P IFT MMUPAG=0 PFWTBAS EQU
0x31f1f8…31f38c Dummy {f00=0x00f7, f01=0x0190, f02=»0 VTOC SECTOR NUMBER (FIRST EXTENT) | 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS , & PFWTFNR EQU FWTBAS+/03 FILE NUMBER ` > PFWTTAB EQU FWTBAS+/04 TTAB FOR TASK WITH EXCLUSIVE ACCESS : PFWTEW1 EQU FWTBAS+/06 POINTER TO 2ND EWT BLOCK IN FWT 4
0x31f38c…31f520 Dummy {f00=0x00f7, f01=0x0190, f02=»QU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 4 4 PFWTEXB EQU FWTBAS+/10 EXTENT BASE (FIRST EXTENT) r $ PFWTNAM EQU FWTBAS+/12 FILE NAME < PFWTQUE EQU FWTBAS+/1A QUEUE ANCHOR FOR FILE I/O REQUES
0x31f520…31f6b4 (1, 856) Dummy {f00=0x00f8, f01=0x0190, f02=»********* P* & P* EXTENT WORK TABLE DISPLACEMENTS P* F $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK P P* x P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/EXTENT NUMBER * PEWTEXL EQU 4 EXTENT LENGTH IN SECTORS P* P*
0x31f6b4…31f848 Dummy {f00=0x00f8, f01=0x018e, f02=» BLOCK LENGTH r P* P EJECT FMTASK P* 8 P* B P********************* L P* FPB DISPLACEMENTS * j P********************* P* ( P* FILE PARAMETER BLOCK DISPLACEMENTS P* PFPB:RL EQU 0 RECORD LENGTH P
0x31f848…31f9dc Dummy {f00=0x00f8, f01=0x0190, f02=» t PFPB:NO EQU 6 FILE NUMBER =1 PFPB:FN EQU 8 FILE NAME , PFPB:EL EQU 17 ENLARGE J PFPB:V1 EQU 18 VOLUME NAME 1 h PFPB:S1 EQU 24 SIZE 1 PFPB:V2 EQU 28 VOLUME NAME 2 PFPB:S2 EQU 34 SIZE 2 PFPB:V3 EQU 38 VOLUME NAME 3
0x31f9dc…31fb70 Dummy {f00=0x00f8, f01=0x0190, f02=»FPB:US EQU 62 NUMBER OF USERS PFPB:SH EQU 64 SHAREABILITY ! & PFPB:MN EQU 65 MONITOR NUMBER ! H $ PFPB:SN EQU 66 SOP SWITCH NUMBER ! l ( PFPB:IF EQU 67 NUMBER OF INDEX FILES ! ( PFPB:KA EQU 68 KEY ADDRESS IN RECORD ! PFPB:CD EQU 70 CREATION DATE
0x31fb70…31fd04 Dummy {f00=0x00f8, f01=0x0190, f02=» P* " P* " P********** " P* TTABFM * " * P********** " < P* " N P* FMTASK TTAB " X P* " n P IFT MMUPAG=1 " x P RES 16 FMTASK MMU TABLE " P XIF " P* " P IFF MMUPAG+DSKPAG=0 " ( P DATA 0 CURRENT SEGMENT BASE (DUMMY) "
0x31fd04…31fe98 Dummy {f00=0x00f8, f01=0x0190, f02=»S (DUMMY) " ~ P* # PTTABFM EQU * TTABFM ENTRY # " P DATA 0 DISPATCHER QUEUE LINK # > " P DATA '#A' TASK IDENTIFICATION # d P DATA 49 PRIORITY LEVEL # P DATA 0 PENDING POINTER # * P DATA /C4C0 PSW (PROGRAM STATUS WORD) # P DATA 0 DISPATCH
0x31fe98…32002c Dummy {f00=0x00f8, f01=0x0190, f02=» DATA 2 TASK DEVICE TABLE (DUMMY) # P* $ * P EJECT FMTASK $ 4 P* $ L P* $ V " P***************************** $ ` " P* ECB, STACK AND DATA AREAS * $ " P***************************** $ P* $ P* $ * PFM:ECB DATA /8000,0,0 FMTASK ECB A
0x32002c…3201c0 Dummy {f00=0x00f8, f01=0x0190, f02=» P DATA 0,0 % $ PFM:STB EQU *-2 FMTASK STACK BASE % P* % > $ PFEXTNO DATA 0 NO OF FILE EXTENTS % H $ PFILCOD DATA 0,0 FILE CODE TABLE % p * PRETCOD DATA 0 ACKUMULATED RETURN CODE % * PTTAB DATA 0 TTAB ADDRESS CALLING TASK % 2 PVOLUME DATA 0 CURREN
0x3201c0…320354 (1, 857) Dummy {f00=0x00f8, f01=0x0190, f02=» EJECT FMTASK % P* & P* & " P********** & , P* FMINIT * & > P********** & P P* & b P* & l > P* FMINIT IS THE FILE MANAGEMENT INITIALIZATION ROUTINE. & v < P* IT IS CALLED FROM PFINIT AFTER IPL AND AT POWER ON. & > P* WHEN CALLED
0x320354…3204e8 Dummy {f00=0x00f8, f01=0x0190, f02=». THE POINTER FWTEW1 IS ALSO INITIALIZED, AS & & P* WELL AS FWTFNR (FILE NUMBER). ' 4 6 P* FMINIT ALSO HOLDS INITIALIZATION ROUTINES FOR ' ^ $ P* (EXTENDED) DATA MANAGEMENT. ' < P* THE PART OF FMINIT THAT IS NOT EXECUTED AT POWER ON ' < P* WILL
0x3204e8…32067c Dummy {f00=0x00f8, f01=0x018e, f02=»DE ' l P ST A1,FMINIT CLOSE THE DOOR ( P* ( . P* FMTASK DISC SECTOR BUFFER ( 8 P* ( > PFM:BUF EQU FMINIT+2 INITIALIZATION ROUTINE USED AS BUFFER ( f P* ( . PFMINI2 EQU * INITIALIZATION ROUTINE ENTRY ( P RES 125 ( P* ( P EJECT F
0x32067c…320810 Dummy {f00=0x00f8, f01=0x0190, f02=» * P LD A1,SCTFWT FWT CHAIN START ADDRESS ) " P LD A4,SCTNOF NUMBER OF FILES ) 2 P LDK A5,0 ) X P LDKL A6,/8000 DWT BUSY BIT ) j P* ) PFMI:30 EQU * ) P* ) P IFF ADMEDM+SDM=0 =7 ) P IFT MMUPAG=1 ) 4 P LDKL A8,FDBMEC FDB MMU ECB DISP
0x320810…3209a4 Dummy {f00=0x00f8, f01=0x018e, f02=» AD A3,SCTFWL NEXT FWT ADDRESS ) P ADK A5,1 NEXT FILE NUMBER * & P SUK A4,1 * H * P RF(N) FMI:50 INITIALIZATION COMPLETED * Z , P RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE * 0 P STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT * $ P ADK A1,2 INCREMENT FWT POIN
0x3209a4…320b38 Dummy {f00=0x00f8, f01=0x0190, f02=» * n ( P CWR A1,A3 CHECK IF END OF THIS FWT + & P RB(NE) FMI:40 NOT END OF THE FWT + 4 P SU A3,SCTFWL + ^ " P ADK A3,FWTEW2 FWTEW2 ADDRESS + t . P ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER + , P ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT + * P ST A6,DWTST
0x320b38…320ccc Dummy {f00=0x00f8, f01=0x0190, f02=» P XIF , P* , P IFF ADMEDM+SDM=0 , P LDKL A7,TIODM =5 , 4 P ST A7,DWTADR,A2 =5 , N P XIF =5 , j & P RB FMI:30 CONTINUE WITH NEXT FWT , | P* , P =4 , P EJECT FMTASK , P* , P* COMPUTE NVL BIT MASK , P* , P
0x320ccc…320e60 Dummy {f00=0x00f8, f01=0x0190, f02=»,A3 GET ONE ENTRY FROM NVLTAB , & P RF(Z) FMI:85 THIS ENTRY NOT USED - & $ P ORR A1,A2 INDICATE TTAB PRESENT - P P* - x PFMI:85 EQU * - P ADR A2,A2 - & P ADK A3,2 INCREMENT NVLTAB POINTER - * P CWK A3,NVLEND CHECK IF END OF NVLTAB - $ P RB(NE)
0x320e60…320ff4 (1, 858) Dummy {f00=0x00f8, f01=0x0190, f02=» - 4 P ABL SDMINI PERFORM DM INITIALIZATION AND RETURN . P XIF . @ P* . L P =2 . V P EJECT FMTASK . d P* . | P* . P IFT EDM=1 . P* . P* INITIALIZE ALL EDM TASKS . P* . , P LDKL A1,DWDM01 PARAMETER BLOCK ADDRESS . P
0x320ff4…321188 Dummy {f00=0x00f8, f01=0x0190, f02=»CTDMT EDM TASKS IN SYSTEM . P* / " PFMI:90 EQU * / , P SRC A3,1 / @ P RF(NN) FMI:99 NEXT TASK / R 0 P CF A15,FNDTID FIND (E)DM TASK TTAB ADDRESS / r P LDR A5,A2 / $ P RF(Z) FMIHLT TTAB NOT FOUND =2 / P* / P EJECT FMTASK / P* /
0x321188…32131c Dummy {f00=0x00f8, f01=0x0190, f02=» POINTER / P* 0 PFMI:95 EQU * 0 P ADK A4,4 NEXT ENTRY 0 . P CWR* A7,A4 0 J P RB(NE) FMI:95 NOT SAME ID 0 ^ P LD A2,2,A4 DISPATCH ADDRESS 0 $ P CF A15,ACTOT ACTIVATE EDM TASK 0 P* 0 PFMI:99 EQU * 0 P ADK A7,1 NEXT EDM TASK 0
0x32131c…3214b0 Dummy {f00=0x00f8, f01=0x018e, f02=»RETURN 0 f P* 1 P* TTAB NOT FOUND =2 1 P* 1 6 PFMIHLT EQU * =2 1 @ P LDK A1,/11 DM ERROR =2 1 X P CF A15,HALT =2 1 x " P RORG FMI:00 END OF RELOCATION 1 P* 1 P EJECT FMTASK 1 P* 1 P* 1 P********** 1 P* FMTASK *
0x3214b0…321644 Dummy {f00=0x00f8, f01=0x0190, f02=» , P* IS ACTIVATED BY THE FILE MANAGEMENT 2 4 P* LKM PROCESSOR 'TIOFM' AT ENTRY FMTASK BELOW. 2 4 . P* AFTER SOME HOUSEKEEPING THE FOLLOWING 2 l 6 P* MODULES WILL PERFORM THE FILE ADMINISTRATION: 2 P* 2 D P* - FMOPEN OPEN/CREATE/EXTEND FILE
0x321644…3217d8 Dummy {f00=0x00f8, f01=0x018e, f02=»ERS ( " : 0) 2 p P* 3 " @ P* NOTICE THAT FUNCTIONS CREATE/EXTEND/DELETE ARE SITUATED 3 , > P* IN MODULE 'FMCDEF' BUT LOGICALLY BELONG TO OPEN/CLOSE. 3 p P* 3 ( P* A SPECIAL ENTRY IS USED FOR I/O 3 . P* FUNCTIONS WHERE REQUESTED SE
0x3217d8…32196c Dummy {f00=0x00f8, f01=0x0190, f02=» 3 T P* 4 P* 4 P* ENTRY PARAMETERS: 4 P* 4 : 4 P* A1 = ORDER OPTION AND CODE (RFP/OPEN/CLOSE) 4 D 0 P* = PARAMETER BLOCK ADDRESS (SPLIT I/O) 4 | * P* A3 = TTAB ADDRESS OF CALLING TASK 4 J P* A4 = FUNCTION INDEX (0 = RFP, 2 = OPEN
0x32196c…321b00 Dummy {f00=0x00f8, f01=0x0190, f02=»MTASK ACTIVATION ENTRY 4 P* 5 P* PERFORM SOME HOUSEKEEPING 5 ( P* 5 L P CM ECBCW1,A8 CLEAR 1ST CW 5 V , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK 5 x . P ST A5,TTAB SAVE TTAB ADDRESS CALLING TASK 5 P LDR A7,A1 SAVE PARAMETER 5 P* 5 P I
0x321b00…321c94 (1, 859) Dummy {f00=0x00f8, f01=0x0190, f02=» 0 P ST A2,ECBRL,A8 SET REQUESTED LENGTH IN ECB 6 P XIF 6 8 P* 6 D P IFT CPU852=0 6 N P MLK 3 6 d P DATA /8000,FM:BUF,256 6 r P MSR 3,A8 INITIALIZE FM:ECB 6 P LDR A1,A7 RESTORE PARAMETER 6 P XIF 6 P* 6 P CM RETCOD RESET RETURN CO
0x321c94…321e28 Dummy {f00=0x00f8, f01=0x0190, f02=»ECBBA,A9 FPB/BUFFER ADDRESS 6 P XIF 7 $ P* 7 0 P IFT MMUPAG=1 7 : ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS 7 P P TL TTB:MT,A5 USER MMU TABLE 7 | , P TS TTB:MT,A3 STORE IN FMTASK MMU TABLE 7 , P EL A10,ECBBA,A9 USER FPB/BUFFER ADDRESS 7 P XIF 7
0x321e28…321fbc Dummy {f00=0x00f8, f01=0x0190, f02=»RS ARE SUPPLIED TO 7 v $ P* THE RESP. FUNCTION HANDLER: 8 P* 8 B P* A1 = ORDER OPTION 8 L * P* A5 = TTAB ADDRESS OF CALLING TASK 8 j ( P* A7 = COMPLETE PARAMETER FROM A1 8 P* A8 = FM:ECB ADDRESS 8 P* A9 = USER ECB ADDRESS 8 P*
0x321fbc…322150 Dummy {f00=0x00f8, f01=0x018e, f02=»QU * ADDRESSES TO FUNCTION HANDLERS 8 & P DATA FMRPAR READ FILE PARAMETERS 9 , ( P DATA FMOPEN OPEN/CREATE/EXTEND FILE 9 V " P DATA FMCLOS CLOSE/DELETE FILE 9 P* 9 P IFT MULEXT=1 9 P DATA FMSPLI SPLIT I/O 9 P XIF 9 P* 9 P IFT MULEXT=
0x322150…3222e4 Dummy {f00=0x00f8, f01=0x0190, f02=» P* FMOPEN * : P********** : P* : ( P* : 2 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: : < P* OPEN/CREATE/EXTEND FILE : r P* : P* ENTRY PARAMETERS: : P* : P* A1 = ORDER OPTION : P* A8 = FM:ECB ADDRESS : P*
0x3222e4…322478 Dummy {f00=0x00f8, f01=0x0190, f02=» OPTION : z P* ; P IFT MMUPAG=1 ; P* ; 0 * P* MOVE USER FPB TO SYSTEM FPB (FM:FPB) ; : P* ; h P LDR A1,A10 USER FPB ADDRESS ; r " P LDKL A2,FM:FPB FM FPB ADDRESS ; P LDR A10,A2 SAVE IT ; & P LDK A3,FPBLEN FPB LENGTH (BYTES) ; $ P MVUS
0x322478…32260c Dummy {f00=0x00f8, f01=0x018e, f02=»ESS ; l 6 P LDK A7,FPB:V1 1ST VOLUME NAME DISPLACEMENT IN FPB < P* < F ( P* CHECK IF ANY VOLUME NAME SPECIFIED < P P* < | PFMOP00 EQU * < P LDR A2,A10 FPB ADDRESS < $ P ADR A2,A7 POINT TO VOLUME NAME < * P LDR* A2,A2 FIRST WORD OF VOLUME NAME
0x32260c…3227a0 Dummy {f00=0x00f8, f01=0x0190, f02=» 4 P LDKL A4,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 = P* = < & P* CONVERT VOLUME NAME TO FILE CODE = F P* = p PFMOP10 EQU * = z P LDK A2,0 = & P ADK A4,1 POINT TO NEXT FILE CODE = ( P CWK A4,DFTABE CHECK IF END OF DFTAB = . P RF(E) FM:INE FILE
0x3227a0…322934 (1, 860) Dummy {f00=0x00f9, f01=0x0190, f02=»S = z 2 P ADR A2,A7 POINT TO CURRENT VOLUME NAME IN FPB > P LDK A3,6 VOLUME NAME LENGTH > @ ( P CF A14,CMPSTR COMPARE VOLUME NAMES > d * P RB(NE) FMOP10 VOLUME NAMES NOT EQUAL > P LCR A2,A4 FILE CODE > : P SC A3,DWTNVL+1,A6 CLEAR NVL BITS (A3 = 0 FROM
0x322934…322ac8 Dummy {f00=0x00f9, f01=0x0190, f02=»OP20 EQU * > P SCR A2,A5 SAVE FILE CODE ? P ADK A5,1 ? 4 8 P ADK A7,FPB:V2-FPB:V1 NEXT VOLUME NAME DISPLACEMENT ? F * P CWK A5,FILCOD+4 CHECK IF END OF TABLE ? ( P RB(NE) FMOP00 MORE VOLUMES TO CHECK ? & P SUK A5,4 FILE CODE TABLE ADDRESS ? P*
0x322ac8…322c5c Dummy {f00=0x00f9, f01=0x018e, f02=» , P RF(NZ) FMOP40 FIRST FILE CODE TO TREAT @ & P ADK A5,1 POINT TO NEXT FILE CODE @ 4 * P CWK A5,FILCOD+4 CHECK IF END OF TABLE @ ^ ( P RB(NE) FMOP30 CHECK NEXT FILE CODE @ P* @ P* VOLUME/FILE NOT FOUND @ P* @ & PFM:INE EQU * VOLUME/FILE NOT
0x322c5c…322df0 Dummy {f00=0x00f9, f01=0x0190, f02=» P* A PFMOP40 EQU * A 2 P ST A5,VOLUME CURRENT VOLUME FILE CODE ADDRESS A " P LDR A4,A13 ORDER OPTION A X P RF(Z) OPEN OPEN FILE A x P* A P IFT FMCDEF=1 A P SUK A4,1 A P ABL(Z) EXTEND EXTEND FILE A P SUK A4,1 A P ABL(Z) CREA
0x322df0…322f84 Dummy {f00=0x00f9, f01=0x0190, f02=»URN CODE A ~ P RF ER:RTN B P* B " P EJECT FMTASK B , P* B D P* B N P******** B X P* OPEN * B h P******** B x P* B P* B P* ENTRY PARAMETERS: B P* B P* A4 = 0 B 0 P* A5 = VOLUME FILE CODE ADDRESS IN FILCOD B $
0x322f84…323118 Dummy {f00=0x00f9, f01=0x0190, f02=»* B POPEN EQU * OPEN FILE C P* C & P EJECT FMTASK C 0 P* C H * P* CHECK IF FILE IS ALREADY OPENED AND C R P* FIND FWT ADDRESS C P* C * P LD A12,SCTFWT FWT CHAIN START ADDRESS C P* C POP:005 EQU * C P LDK A2,1 C P* C
0x323118…3232ac Dummy {f00=0x00f9, f01=0x0190, f02=» C r P TM A12,A2 CHECK IF USED D ( P RF(NZ) OP:015 USED, CHECK FILE NAME D ( 6 P ADK A4,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED D T & P RB(NZ) OP:010 YES, DON'T SAVE IT D ( P LDR A4,A6 NO, SAVE THIS FWT ADDRESS D P RB OP:010 CONTINUE SEARCH D P*
0x3232ac…323440 Dummy {f00=0x00f9, f01=0x0190, f02=»OMPARE FILE NAMES D ( P RB(NE) OP:005 FILE NAMES NOT EQUAL E 4 P CC A7,FWTVOL,A6 CHECK FILE CODE OF FIRST EXTENT E F P RB(NE) OP:005 NOT THIS FILE E ~ P* E P EJECT FMTASK E P* E P* FILE IS ALREADY OPENED: E 0 P* CHECK ATTACH PARAMETER
0x323440…3235d4 (1, 861) Dummy {f00=0x00f9, f01=0x0190, f02=»P:020 NO ATTACH REQUESTED E 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) F " $ P RF(Z) OP:018 FILE NOT ATTACHED F V . P CW A2,TTAB CHECK IF ATTACHED BY THIS TASK F ~ 0 P RF(NE) OP:040 NO, ATTACHED TO ANOTHER TASK F P* F POP:018 EQU * F * P LD A5
0x3235d4…323768 Dummy {f00=0x00f9, f01=0x0190, f02=»R,A6 ACCESS PARAMETERS F P LDR A2,A1 G P ANK A1,/3F NUMBER OF USERS G 0 P SUK A1,/3F G T P ABL(NZ) OPEXIT G h P* G P EJECT FMTASK G P* G P* ERROR EXITS G P* G 0 P LDKL A4,/0210 RETURN CODE (TOO MANY USERS) G P RF ER:R
0x323768…3238fc Dummy {f00=0x00f9, f01=0x0190, f02=»TN G P* H POP:040 EQU * FILE ATTACHED H P LDK A4,/40 RETURN CODE H 6 P XIF H V P* H b PER:RTN EQU * H l & P ORS A4,RETCOD PREPARE RETURN CODE H P ABL FMEXIT RETURN H P* H P EJECT FMTASK H P* H P* FILE IS NOT OPENED BEF
0x3238fc…323a90 Dummy {f00=0x00f9, f01=0x0190, f02=» H P LDR A6,A4 FREE FWT ADDRESS I ( P RB(Z) OP:030 NO FREE FWT AVAILABLE I , P LDR A1,A10 FPB ADDRESS I X P ADK A1,FPB:FN I x P LDR A3,A6 FWT ADDRESS I P ADK A3,FWTNAM I " P CF A14,FM:MV8 MOVE FILE NAME I P LDR A2,A7 RESTORE FILE CODE I
0x323a90…323c24 Dummy {f00=0x00f9, f01=0x0190, f02=»OPEN EXTENDED FILE (CALLED FROM EXTEND) I P* J 0 P* A2 = DISC FILE CODE J : P* A6 = FWT ADDRESS J Z P* A8 = FM:ECB ADDRESS J v P* A9 = USER ECB ADDRESS J P* A10 = FPB ADDRESS J P* J * POPEXT EQU * ENTRY USED BY EXTEND FILE J
0x323c24…323db8 Dummy {f00=0x00f9, f01=0x0190, f02=»DDRESS OF CALLING TASK J ~ " P CF A14,FNDVTC FIND VTOC ENTRY K P* K D POP:075 EQU * K N 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER K b ( P RF(NZ) OP:080 ONE FILE EXTENT FOUND K $ P ADK A4,0 CHECK DISC RETURN CODE K 6 P RF(Z) OP:160 NO MORE FILE EXT
0x323db8…323f4c Dummy {f00=0x00f9, f01=0x018e, f02=»ND EXTENT BASE K z P* TO FWT AND/OR EWT BLOCKS L P* L 8 POP:080 EQU * L B ( P LD A3,VTC:EN,A13 FILE EXTENT NUMBER L V ( P LD A2,VTC:FO,A13 FILE ORGANIZATION L P ANK A2,/FF L P SUK A2,'L' L P RF(Z) OP:085 L-FILE L * P LD A2,VTC:FS,A13 FILE
0x323f4c…3240e0 Dummy {f00=0x00f9, f01=0x0190, f02=» L $ P LC A4,TTB:SA+14,A5 ORDER OPTION M P SRC A4,1 CHECK IF EXTEND M 0 P RF(NN) OP:085 NOT EXTEND M R 0 P CW A3,SEXTNO CHECK IF VTOC ALREADY TREATED M t & P RF(NG) OP:110 YES, SKIP THIS VTOC M P XIF M P* M POP:085 EQU * M * P LC A2,VTC:E
0x3240e0…324274 (1, 862) Dummy {f00=0x00f9, f01=0x0190, f02=»OP:090 EQU * M P INH N P CF A15,GETBLK EWT BLOCK 1 N P RF OP:100 N B P* N T P EJECT FMTASK N ^ P* N v P* N POP:095 EQU * N ( P LC A4,VTC:NE,A13 NO OF FILE EXTENTS N P ANK A4,/FF N P NGR A4,A4 NEGATE VALUE N P ADS A4,FE
0x324274…324408 Dummy {f00=0x00f9, f01=0x0190, f02=»A6 STORE FILE EXTENT LENGTH, FIRST EXTENT N P ST A1,FWTEXL,A6 O 2 P* O J POP:100 EQU * O T P LDR* A2,A8 VOLUME FILE CODE O h * P ECR A2,A2 FILE CODE NOW IN LEFT BYTE O ( P LC A2,VTC:EB+1,A13 FILE EXTENT BASE O P LD A1,VTC:EB+2,A13 O * P OR A3
0x324408…32459c Dummy {f00=0x00f9, f01=0x0190, f02=»ENT O P ST A1,FWTEXB,A6 P < P ST A11,FWTVTC,A6 STORE VTOC SECTOR NUMBER, FIRST EXTENT P $ P* P d * P* FIND REMAINING EXTENTS FOR THIS FILE P n P* P POP:110 EQU * P . P IM FEXTNO INDICATE ONE MORE EXTENT FOUND P 6 P RF(Z) OP:160 NO MORE FILE E
0x32459c…324730 Dummy {f00=0x00f9, f01=0x0190, f02=»* INSERT NEW EWT BLOCKS IN EWT CHAIN P P* Q , POP:120 EQU * Q 6 " P LDR A3,A4 ADDRESS EWT BLOCK 1 Q J P CF A15,GETBLK EWT BLOCK 2 Q p P ENB Q P STR A4,A3 LINK EWT2 TO EWT1 Q P LDR A1,A6 FWT ADDRESS Q P ADK A1,FWTEW2 Q P* Q POP:130 E
0x324730…3248c4 Dummy {f00=0x00f9, f01=0x0190, f02=»BLOCK Q v P STR A3,A1 R P RB OP:110 CONTINUE R P* R < POP:150 EQU * R F 4 P LC A11,EWTSEX,A2 FILE SECTION AND EXTENT NUMBER R Z P CC A11,EWTSEX,A3 R ( P RB(G) OP:140 INSERT NEW EWT BLOCKS R ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK R P RB
0x3248c4…324a58 Dummy {f00=0x00f9, f01=0x0190, f02=» R h * P LD A7,VOLUME VOLUME FILE CODE ADDRESS S * P CWK A7,FILCOD+4 CHECK IF END OF TABLE S 6 & P RF(E) OP:170 ALL VOLUMES CHECKED S d P* S P EJECT FMTASK S P* S P* S P IFT FMCDEF=1 S P LDKL A2,-1 S , P ST A2,SEXTNO RESET START
0x324a58…324bec Dummy {f00=0x00f9, f01=0x0190, f02=»OP:160 S P* T POP:170 EQU * T 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT T , ( P ABL(Z) FM:INE NO FILE EXTENT FOUND T f P* T P IFT FMCDEF=1 T $ P LC A2,TTB:SA+14,A5 ORDER OPTION T P SRC A2,1 CHECK IF EXTEND T P RF(N) FM:27
0x324bec…324d80 Dummy {f00=0x00f9, f01=0x0190, f02=»TY PARAMETER T t P ANK A2,/FF U & P RF(Z) OP:240 NO ATTACH REQUESTED U ( P LDR A2,A5 TTAB ADDRESS U R P* U r POP:240 EQU * U | $ P ST A2,FWTTAB,A6 SET ATTACH WORD U P XIF U P* U 2 P IMR A6 INDICATE FWT USED (BIT 15 IN 1ST WORD) U ( P LDK
0x324d80…324f14 (1, 863) Dummy {f00=0x00f9, f01=0x0190, f02=»CHECK BASIC ORDERS PARAMETER, INCREMENT NUMBER OF USERS U > P* BY ONE AND RETURN FILE NUMBER FOR THIS FILE TO THE USER V @ P* V POPEXIT EQU * V . P LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS V P ANK A1,/FF V 2 P RF(NZ) OP:260 BASIC ORDERS WANTED
0x324f14…3250a8 Dummy {f00=0x00f9, f01=0x018e, f02=» . P SC A2,FWTPAR,A6 SET NEW ACCESS PARAMETERS W P* W 6 P IFT MMUPAG=0 W @ P LD A4,FWTFNR,A6 FILE NUMBER W V * P SC A4,ECBFN,A9 SET FILE NUMBER IN ECB W z P XIF W P* W P IFT MMUPAG=1 W P ELR A4,A9 W P LC A4,FWTFNR,A6 FILE NUMBER W &
0x3250a8…32523c Dummy {f00=0x00f9, f01=0x0190, f02=» W P EJECT FMTASK X P* X P* X * P********** X 4 P* FMCLOS * X F P********** X X P* X j P* X t 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: X ~ P* CLOSE/DELETE FILE X P* X P* ENTRY PARAMETERS: X P* X $ P*
0x32523c…3253d0 Dummy {f00=0x00f9, f01=0x0190, f02=» X x P* A9 = USER ECB ADDRESS Y P* A10 = FPB ADDRESS Y * P* Y F " PFMCLOS EQU * CLOSE/DELETE FILE Y P P* Y v P* CHECK ORDER OPTION Y P* Y P IFT FMCDEF=0 Y ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION Y P XIF Y P* Y P IFT FMCDE
0x3253d0…325564 Dummy {f00=0x00f9, f01=0x0190, f02=» XIF Y P* Z P EJECT FMTASK Z P* Z . P* Z 8 P********* Z B P* CLOSE * Z T P********* Z f P* Z x P* ENTRY PARAMETERS: Z P* Z * P* A5 = TTAB ADDRESS OF CALLING TASK Z P* A8 = FM:ECB ADDRESS Z P* A9 = USER EC
0x325564…3256f8 Dummy {f00=0x00f9, f01=0x0190, f02=»XTENT) Z h P ADK A4,0 CHECK RETURN CODE [ P RF(NZ) CL:000 ERROR [ 2 & P LD A3,FWTPAR,A6 ACCESS PARAMETERS [ N P RF(NN) CL:005 NOT NVL [ x & P LDK A4,/20 SET NVL IN RETURN CODE [ P* [ ( P* ERROR AT CLOSE: CHECK HOW SERIOUS [ P* [ PCL:000 E
0x3256f8…32588c Dummy {f00=0x00f9, f01=0x0190, f02=»ON'T CLOSE [ r P XIF P* P ADK A6,0 CHECK FWT ADDRESS ( & P RF(Z) OCEXIT NO FWT FOUND, RETURN L P RF CL:010 DON'T WRITE VTOC v P* P EJECT FMTASK P* P* MOVE FRN FROM FPB TO VTOC P* PCL:005 EQU * P
0x32588c…325a20 Dummy {f00=0x00f9, f01=0x0190, f02=»T LRN IN VTOC RECORD | P ST A2,VTC:LR+2,A13 ] P XIF ] 8 P* ] D P IFT MMUPAG=0 ] N P IFT CPU852=0 ] d ( P ML 2,FPB:FR,A10 FILE RECORD NUMBER ] z , P MS 2,VTC:LR,A13 SET LRN IN VTOC RECORD ] P XIF ] P* ] P IFT MMUPAG=1 ] ( P EL A1
0x325a20…325bb4 (1, 864) Dummy {f00=0x00fa, f01=0x0190, f02=»* WRITE VTOC TO DISC WITH NEW FILE RECORD NUMBER IF REQUESTED ] P* ^ F ( P ORR A1,A2 CHECK FILE RECORD NUMBER ^ P , P RF(Z) CL:010 FRN ZERO, DON'T WRITE VTOC ^ | P LDK A7,/95 PHYSICAL WRITE ^ , P CF A14,FM:IO WRITE VTOC RECORD TO DISC ^ P* ^ P
0x325bb4…325d48 Dummy {f00=0x00fa, f01=0x018e, f02=»S. ^ d P* _ PCL:010 EQU * _ & P LC A1,FWTPAR,A6 ACCESS PARAMETERS _ ( P LDR A2,A1 _ R P ANK A2,/3F NUMBER OF USERS _ d * P SUK A2,1 DECREMENT NO OF USERS BY ONE _ P* _ P IFT MMUPAG=0 _ 2 P SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS _
0x325d48…325edc Dummy {f00=0x00fa, f01=0x0190, f02=» _ f P ORR A3,A2 ` 2 P ES A3,FPB:US,A10 RETURN REMAINING NO OF USERS ` , P SRL A2,8 NUMBER OF USERS TO RIGHT BYTE ` P P XIF ` P* ` 4 P RF(P) DLCLO2 DON'T RELEASE FWT IF ANY USER LEFT ` P* ` P EJECT FMTASK ` P* ` P* ` P****
0x325edc…326070 Dummy {f00=0x00fa, f01=0x0190, f02=»* INPUT: A6 = FWT ADDRESS ` & P* A9 = USER ECB ADDRESS a $ P* a N * PDLCLO1 EQU * ENTRY USED BY DELETE FILE a X P LDK A2,1 a & P XRRS A2,A6 RESET USED BIT IN FWT a P* a ( POPCLOS EQU * ENTRY USED BY OPEN FILE a 4 P LD A4,FWTEW2,A6
0x326070…326204 Dummy {f00=0x00fa, f01=0x0190, f02=»OOL a j P* b PCL:020 EQU * b P INH b * $ P CF A15,FREBLK RELEASE EWT BLOCK b 6 P ENB b ^ P LDR A4,A3 EWT BLOCK ADDRESS b j P RB(NZ) CL:020 b . P CM FWTEW2,A6 RESET EWT STRUCTURE POINTER b P* b PCL:030 EQU * b * P CM FWTVTC,A6 RESET
0x326204…326398 Dummy {f00=0x00fa, f01=0x0190, f02=»ETE FILE b r $ P ANK A1,/C0 SKIP NUMBER OF USERS c . P ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS c 8 P SC A1,FWTPAR,A6 c j P* c P* DETACH FILE c P* c PCL:050 EQU * c P IFT FMCDEF=1 c , P LD A5,TTAB TTAB ADDRESS OF CALLING TASK c P X
0x326398…32652c Dummy {f00=0x00fa, f01=0x0190, f02=»MMON EXIT LABEL c v P ABL FMEXIT d P* d , P EJECT FMTASK d 6 P* d N P* d X P********** d b P* FMRPAR * d t P********** d P* d P* d 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: d P* READ FILE PARAMETERS d P* d
0x32652c…3266c0 Dummy {f00=0x00fa, f01=0x0190, f02=»OF CALLING TASK d z P* A8 = FM:ECB ADDRESS e P* A9 = USER ECB ADDRESS e 8 P* A10 = FPB ADDRESS e Z P* e v & PFMRPAR EQU * READ FILE PARAMETERS e P* e P* CHECK ORDER OPTION e P* e ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION e P*
0x3266c0…326854 (1, 865) Dummy {f00=0x00fa, f01=0x0190, f02=» 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) f P ADK A4,0 CHECK RETURN CODE f : P RF(NZ) FMEXIT ERROR, RETURN f ^ 2 P SC A4,FPB:BO,A10 RESET BASIC ORDER PARAMETER f P* f " P* MOVE SPACES TO VOLUME NAMES f $ P* AND RESET FILE SECTION SIZES.
0x326854…3269e8 Dummy {f00=0x00fa, f01=0x0190, f02=»TER LOOP f v P LDK A4,/20 SPACE g P* g * " PFMR:02 EQU * OUTER LOOP ENTRY g 4 & P LDK A3,6 LOOP COUNTER, INNER LOOP g Z P* g " PFMR:04 EQU * INNER LOOP ENTRY g * P SCR A4,A1 MOVE SPACES TO VOLUME NAME g P ADK A1,1 g P SUK A3,1 g P R
0x3269e8…326b7c Dummy {f00=0x00fa, f01=0x0190, f02=» P RB(P) FMR:02 h P XIF h P* h & P IFT CPU852=0 h 0 P MLK 3 h F P DATA /2020,/2020,/2020 h T " P LDK A5,0 (A4 = 0 FROM RDVTOC) h t P MS 5,FPB:V1,A10 h P MS 5,FPB:V2,A10 h P MS 5,FPB:V3,A10 h P MS 5,FPB:V4,A10 h P XIF h P*
0x326b7c…326d10 Dummy {f00=0x00fa, f01=0x0190, f02=»L,A13 RECORD LENGTH h P STR A1,A10 i 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION i 0 P ST A1,FPB:BF,A10 i l ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER i P ST A1,FPB:FR,A10 i $ P LD A1,VTC:LR+2,A13 LRN, PART 2 i P ST A1,FPB:FR+2,A10
0x326d10…326ea4 Dummy {f00=0x00fa, f01=0x018e, f02=»TC:IF,A13 NUMBER OF INDEX FILES i P ST A1,FPB:IF,A10 j ( , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD j B P ST A1,FPB:KA,A10 j r P XIF j P* j P IFT CPU852=0 j 8 P ML 4,VTC:LR,A13 LRN, RECORD LENGTH AND BLOCK FACTOR j P MS 2,FPB:FR,A10 j
0x326ea4…327038 Dummy {f00=0x00fa, f01=0x0190, f02=» j , P LC A2,VTC:IF,A13 NUMBER OF INDEX FILES k , P LD A3,VTC:KA,A13 KEY ADDRESS IN RECORD k 8 P MS 3,FPB:MN,A10 k h P XIF k P* k P IFT ATTDET=1 k , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER k P RF(Z) FMR:05 NOT ATTACHED k P LDK A1,1
0x327038…3271cc Dummy {f00=0x00fa, f01=0x0190, f02=»H,A10 SET ATTACH PARAMETER k P* l " P EJECT FMTASK l , P* l D P* l N & P LD A1,FWTPAR,A6 ACCESS PARAMETERS l X P SLL A1,1 l 0 P RF(NN) FMR:10 PHYSICAL ORDERS FOR THIS FILE l P LDK A2,1 l , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS l
0x3271cc…327360 Dummy {f00=0x00fa, f01=0x0190, f02=»N DATE AND RETENTION PERIOD l P* m $ P LDR A1,A13 VTOC ADDRESS m . P ADK A1,VTC:CD m N P LDR A3,A10 FPB ADDRESS m d P ADK A3,FPB:CD m & P LDK A2,9 NO OF CHARACTERS TO MOVE m : P CF A14,FM:MOV MOVE CREATION DATE AND RETENTION PERIOD m P* m
0x327360…3274f4 (1, 866) Dummy {f00=0x00fa, f01=0x0190, f02=»TO FILE NAME m r " P CF A14,FM:MV8 MOVE FILE NAME n 2 P ADK A6,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE n : P LDR A11,A6 n p * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK n P* n P EJECT FMTASK n P* n & P* MOVE VOLUME NAME FROM DWT TO FPB n P
0x3274f4…327688 Dummy {f00=0x00fa, f01=0x0190, f02=» n ` P SLC A1,2 o " P ANK A1,3 FILE SECTION NUMBER o P* o @ PFMR:30 EQU * o J : P ADK A3,FPB:V2-FPB:V1 COMPUTE VOLUME NAME DISPLACEMENT o ^ P SUK A1,1 o P RB(NN) FMR:30 o $ P LC A2,EWTVOL,A12 DISC FILE CODE o P LDR A13,A2 SAVE FILE CODE o
0x327688…32781c Dummy {f00=0x00fa, f01=0x0190, f02=»EXL-2,A11 FILE EXTENT LENGTH o P ANK A1,/FF p $ P LD A2,EWTEXL,A11 p 8 P XIF p R P* p ^ P IFT CPU852=0 p h * P ML 2,EWTEXL-2,A11 FILE EXTENT LENGTH p ~ P ANK A1,/FF p P XIF p P* p P EJECT FMTASK p P* p P* COMPUTE FILE S
0x32781c…3279b0 Dummy {f00=0x00fa, f01=0x018e, f02=» * P LD A6,EWTEXL-2,A11 FILE EXTENT LENGTH q P ANK A6,/FF q 2 P LD A7,EWTEXL,A11 q F * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK q ` & P CC A13,EWTVOL,A12 CHECK FILE CODE q , P RF(NE) FMR:50 END OF THIS FILE SECTION q P* q P IFT CPU852=0 q * P
0x3279b0…327b44 Dummy {f00=0x00fa, f01=0x0190, f02=» q f P XIF r P* r P IFT CPU852=1 r . P ADR A1,A6 ACKUMULATE FILE SECTION LENGTH r 4 P ADR A2,A7 r f P RF(O) FMR:45 OVERFLOW r x P RB FMR:35 r P* r PFMR:45 EQU * r " P ADK A1,1 OVERFLOW CORRECTION r P ANKL A2,/7FFF r P RB FM
0x327b44…327cd8 Dummy {f00=0x00fa, f01=0x0190, f02=»DR A4,A11 CHECK EWT BLOCK ADDRESS r ( P RB(NZ) FMR:20 NOT END OF EWT CHAIN s * P* s V P EJECT FMTASK s ` P* s x P* s P IFT MMUPAG=1 s P* s , P* MOVE SYSTEM FPB (FM:FPB) TO USER FPB s P* s & P* INPUT: A9 = USER ECB ADDRESS
0x327cd8…327e6c Dummy {f00=0x00fa, f01=0x0190, f02=» A3,FPBLEN FPB LENGTH s $ P MVSU A3 MOVE FM:FPB TO USER FPB t P XIF t F P* t R P EJECT FMTASK t P* t t P* t ~ P********** t P* FMEXIT * t P********** t P* t P* t 0 P* SET RETURN CODE IN USER ECB, QUEUE TASK t $ P*
0x327e6c…328000 Dummy {f00=0x00fa, f01=0x018e, f02=»T t l P LD A4,RETCOD RETURN CODE u P* u , P IFT MMUPAG=0 u 6 * P ST A4,ECBRC,A9 SET RETURN CODE IN ECB u L P XIF u z P* u P IFT MMUPAG=1 u * P ES A4,ECBRC,A9 SET RETURN CODE IN ECB u P XIF u P* u 2 P LD A5,TTAB RESTORE TTAB ADDRE
0x328000…328194 (1, 867) Dummy {f00=0x00fa, f01=0x0190, f02=» u P* FMSPLI * v P********** v P* v , P* v 6 & P* FILE MANAGEMENT I/O FUNCTIONS: v @ , P* FMSPLI IS ENTERED WHEN THE REQUESTED v j * P* SECTORS ARE SPLIT OVER TWO OR MORE v P* FILE EXTENTS. v P* v * P* A5 = TTAB ADDRESS OF CAL
0x328194…328328 Dummy {f00=0x00fa, f01=0x0190, f02=»R BUFFER ADDRESS v P* w . PFMSPLI EQU * BASIC AND PHYSICAL READ/WRITE w " P IFT MULEXT=1 w T & P LDR A4,A7 PARAMETER BLOCK ADDRESS w j P INH w 4 P CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS w & P LDR A13,A2 2ND EWT BLOCK ADDRESS w < P CF A1
0x328328…3284bc Dummy {f00=0x00fa, f01=0x0190, f02=»A1 ORDER CODE w P* x P EJECT FMTASK x P* x 8 P* x B P IFT MMUPAG=0 x L P IFT CPU852=1 x b " P LD A1,ECBCW1,A9 SECTOR NUMBER x x P LD A2,ECBCW2,A9 x ( P ST A10,ECBBA,A8 SET BUFFER ADDRESS x , P LD A10,ECBRL,A9 TOTAL REQUESTED LENGT
0x3284bc…328650 Dummy {f00=0x00fa, f01=0x0190, f02=»NTRY x t * P ST A1,ECBCW1,A8 SET SECTOR NO IN ECB y P ST A2,ECBCW2,A8 y : P XIF y R P* y ^ P IFT MULEXT=1 y h P IFT MMUPAG=0 y ~ P IFT CPU852=0 y " P ML 2,ECBCW1,A9 SECTOR NUMBER y ( P ST A10,ECBBA,A8 SET BUFFER ADDRESS y , P LD A10,ECBR
0x328650…3287e4 Dummy {f00=0x00fa, f01=0x018e, f02=»CTOR NO IN ECB y z P XIF z P* z " P IFT MULEXT=1 z , P IFT MMUPAG=1 z B P INH =3 z X 6 P CF A15,TIOMXI CONVERT LOGICAL ADDRESS TO PHYSICAL z j P ENB =3 z " P EL A1,ECBCW1,A9 SECTOR NUMBER z P EL A2,ECBCW2,A9 z , P EL A10,ECBRL,A9 TOT
0x3287e4…328978 Dummy {f00=0x00fa, f01=0x0190, f02=» z j P XIF { P* { P IFT MULEXT=1 { $ P LC A1,EWTVOL,A13 DISC FILE CODE { 4 ( P SC A1,ECBFC,A8 SET FILE CODE IN ECB { 0 P ST A3,ECBRL,A8 SET REQUESTED LENGTH IN ECB { " P CF A14,FM:IO PERFORM DISC I/O { P RF(NZ) FMSP50 DISC ERROR { $ P LD
0x328978…328b0c Dummy {f00=0x00fa, f01=0x0190, f02=»MTASK { P* | P* UPDATE BUFFER ADDRESS | P* | 8 P IFT MMUPAG=0 | B * P ADS A4,ECBBA,A8 UPDATE BUFFER ADDRESS | X P XIF | P* | P IFT MULEXT=1 | P IFT MMUPAG=1 | 0 P LDK A3,0 MOST SIGNIFICANT PART OF LENGTH =3 | P SRL A4,1 WO
0x328b0c…328ca0 Dummy {f00=0x00fa, f01=0x0190, f02=» | | P SRC A1,4 } 0 P MSR 2,A8 SET UPDATED BUFFER ADDRESS IN ECB } P XIF } N P* } Z P EJECT FMTASK } d P* } | , P* GET PARAMETERS FROM NEXT EWT STRUCTURE } & P* AND COMPUTE NEW REQUESTED LENGTH } P* } P IFT MULEXT=1 } $ P LDR* A1
0x328ca0…328e34 (1, 868) Dummy {f00=0x00fb, f01=0x0190, f02=» P IFT CPU852=1 ~ . P LD A1,EWTEXL-1,A13 EXTENT LENGTH, PART 1 ~ P ANK A1,/FF ~ L & P RF(NZ) FMSP30 EXTENT LARGE ENOUGH ~ ` , P LD A2,EWTEXL,A13 EXTENT LENGTH, PART 2 ~ P XIF ~ P* ~ P IFT MULEXT=1 ~ P IFT CPU852=0 ~ $ P ML 2,EWTEXL
0x328e34…328fc8 Dummy {f00=0x00fb, f01=0x018e, f02=»* ~ P* P IFT MULEXT=1 P CWR A3,A2 * & P RF(NG) FMSP30 EXTENT LARGE ENOUGH < ( P LDR A3,A2 NO OF SECTORS IN THIS I/O f P* PFMSP30 EQU * & P ECR A3,A3 CONVERT LENGTH TO BYTES P LDR* A13,A13 2ND EWT BLOCK P* P
0x328fc8…32915c Dummy {f00=0x00fb, f01=0x0190, f02=» P* P IFT MULEXT=1 P IFT CPU852=0 $ " P ML 2,EWTEXB-1,A13 EXTENT BASE : P ANK A1,/FF ` P RB FMSP00 t P XIF P* P EJECT FMTASK P* P* * PFMSP40 EQU * ILLEGAL REQUESTED LENGTH P IFT MULEXT=1
0x32915c…3292f0 Dummy {f00=0x00fb, f01=0x0190, f02=»* P IFT MMUPAG=0 6 P ST A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB P XIF Z P* f P IFT MULEXT=1 p P IFT MMUPAG=1 6 P ES A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB P XIF P* P IFT MULEXT=1 P RB FM
0x3292f0…329484 Dummy {f00=0x00fb, f01=0x0190, f02=» P********** P* P* * P* INPUT: A2 = SECTOR NUMBER, PART 2 * . P* A8 = FM:ECB/FMECB2 ECB ADDRESS X P* " P* OUTPUT: CR = 0 IF OK, ELSE $ P* <> 0 IF DISC ERROR 8 P* A4 = DISC RETURN CODE (EXC
0x329484…329618 Dummy {f00=0x00fb, f01=0x0190, f02=»FM:LKM P* $ PFMREAD EQU * PHYSICAL READ ENTRY P LDK A7,/91 ORDER CODE @ P* ^ * PFM:LKM EQU * COMMON I/O ROUTINE ENTRY h . P ST A2,ECBCW2,A8 SET SECTOR NUMBER IN ECB P* PFM:IO EQU * $ P ADKL A14,4 ADJUST STACK POINTER
0x329618…3297ac Dummy {f00=0x00fb, f01=0x0190, f02=»Y BIT x * P ABR* A14 RETURN (WITHOUT CHANGING CR) P* < P EJECT FMTASK F P* ^ P* h P********** r P* FNDNAM * P********** P* P* 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE 0 P* TO VOLUME NAME ADD
0x3297ac…329940 Dummy {f00=0x00fb, f01=0x0190, f02=»= 6 . P* A6 = DISC DWT ADDRESS + DOUBLE INDEX P* > * PFNDNAM EQU * FIND VOLUME NAME ADDRESS H P INH v ( P CF A15,FNDDWD FIND DISC DWT ADDRESS P ENB P* 6 P* CHECK IF DISC RECOVERY GOING ON AND IN THAT CASE 8 P* SWITCH T
0x329940…329ad4 (1, 869) Dummy {f00=0x00fb, f01=0x0190, f02=» POWER ON COMPLETED FOR THIS DISC & P LKM WAIT FOR RECOVERY COMPLETION * P DATA 0 SWITCH TASKS T P RB FNAM05 CHECK DISC AGAIN p P* P EJECT FMTASK P* P* PFNAM10 EQU * P LDR A1,A6 DISC DWT ADDRESS P LDR A
0x329ad4…329c68 Dummy {f00=0x00fb, f01=0x0190, f02=» l P* PFNAM20 EQU * & P ADK A1,6 NEXT VOLUME NAME IN DWT & P SUK A2,1 DECREMENT INDEX P P RB(NN) FNAM20 r P LDK A2,6 P ADKL A1,DWTVOL-6 P RTN A14 P* P EJECT FMTASK P* P* P**********
0x329c68…329dfc Dummy {f00=0x00fb, f01=0x0190, f02=»D READ THE VTOC RECORD x " P* OF THE FIRST FILE EXTENT. P* D " P* INPUT: A5 = TTAB ADDRESS N P* A8 = FM:ECB ADDRESS t & P* A9 = USER ECB ADDRESS P* 2 P* OUTPUT: A1 = 0 IF FIRST FILE EXTENT FOUND 6 P*
0x329dfc…329f90 Dummy {f00=0x00fb, f01=0x0190, f02=»13 = VTOC RECORD ADDRESS IN FM:BUF * P* A3, A7, A11 ARE DESTROYED * P* X 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD b P INH < P CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS P ENB P RF(NZ) RDVT20 ERR
0x329f90…32a124 Dummy {f00=0x00fb, f01=0x0190, f02=» 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) P* B & PRDVTO2 EQU * ENTRY USED BY FMCDEF L 8 P CF A14,FNDVT2 READ VTOC SECTOR AND ONE VTOC RECORD v P* PRDVT10 EQU * P ADK A4,0 CHECK RETURN CODE & P RF(NZ) RDVT20 DISC
0x32a124…32a2b8 Dummy {f00=0x00fb, f01=0x0190, f02=»RECORD FOR THIS FILE r 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT P* P PRDVT20 EQU * Z & P ORS A4,RETCOD PREPARE RETURN CODE n P RTN A14 P* P EJECT FMTASK P* P* P********** P* FNDVTC * P******
0x32a2b8…32a44c Dummy {f00=0x00fb, f01=0x0190, f02=»ONE EXTENT x , P* HAS BEEN FOUND OR WHEN THE COMPLETE . P* VTOC HAS BEEN SEARCHED WITHOUT MATCH. B P* t P* INPUT: A2 = FILE CODE ~ P* A6 = FWT ADDRESS P* A8 = FM:ECB ADDRESS P* 6 P* OUTPUT: A2 = VTOC SECTOR NUM
0x32a44c…32a5e0 Dummy {f00=0x00fb, f01=0x0190, f02=» = VTOC RECORD ADDRESS IN FM:BUF 2 P* A1, A3, A7, A11-A12 ARE DESTROYED ( P* ^ PFNDVTC EQU * FIND VTOC ENTRY h P* " P* READ VOLUME LABEL (SECTOR 0) P* ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB P LDK A2,0 SECTOR NUMBE
0x32a5e0…32a774 (1, 870) Dummy {f00=0x00fb, f01=0x0190, f02=»DR A12,A2 * P AD A2,FM:BUF+VOL:FS SKIP FSAT SECTORS , P AD A12,FM:BUF+VOL:EL LAST VTOC SECTOR+1 @ P* p P EJECT FMTASK z P* P* READ NEXT VTOC SECTOR P* , PFNDVT2 EQU * ENTRY USED BY RDVTOC/FMCDEF ( P CF A14,FMREAD REA
0x32a774…32a908 Dummy {f00=0x00fb, f01=0x0190, f02=»CTOR t P* PFVTC20 EQU * & P LD A1,VTC:ST,A13 VTOC STATUS BYTE * P ANK A1,/FF T P RF(NZ) FVTC50 VTOC USED h P* $ PFNDVT3 EQU * ENTRY USED BY OPEN 0 P LD A2,ECBCW2,A8 CURRENT VTOC SECTOR NUMBER & P ADKL A13,VTOCRL NEXT VTOC
0x32a908…32aa9c Dummy {f00=0x00fb, f01=0x0190, f02=» END OF VTOC EXTENT | ( P RB(NE) FNDVT2 NOT LAST VTOC SECTOR P* H PFVTC40 EQU * ERROR RETURN R P LDK A2,0 RETURN CODE t P RTN A14 P* 8 P* VTOC USED: COMPARE FILE NAMES AND RETURN IF EQUAL P* PFVTC50 EQU * P L
0x32aa9c…32ac30 Dummy {f00=0x00fb, f01=0x0190, f02=»RENT VTOC SECTOR NUMBER | " P RTN A14 ONE FILE EXTENT FOUND P* F P EJECT FMTASK P P* h P* r P********** | P* CMPFIL * P* CMPSTR * P* CPMDWD * P********** P* P* , P* CMPFIL COMPARES ONE CHARAC
0x32ac30…32adc4 Dummy {f00=0x00fb, f01=0x018e, f02=»TR COMPARES TWO CHARACTER STRINGS 0 P* AND SETS THE CR ACCORDING TO THE RESULT. * P* ^ ( P* CMPDWD COMPARES TWO DOUBLE WORDS h 0 P* AND SETS THE CR ACCORDING TO THE RESULT. P* H P* INPUT: A1 = ADDRESS OF CHARACTER STRING 1 (CMPSTR
0x32adc4…32af58 Dummy {f00=0x00fb, f01=0x0190, f02=» T ( P* A6 = FWT ADDRESS (CMPFIL ONLY) P* 4 . P* OUTPUT: CR = 0 IF STRINGS EQUAL, ELSE > > P* > 0 IF STRING 1 GREATER THAN STRING 2, ELSE p 6 P* < 0 IF STRING 1 LESS THAN STRING 2 ( P* A1-A3, A11 ARE D
0x32af58…32b0ec Dummy {f00=0x00fb, f01=0x0190, f02=» & P ADK A1,FWTNAM POINT TO FILE NAME P LDK A3,8 FILE NAME LENGTH . P* P * PCMPSTR EQU * COMPARE CHARACTER STRINGS Z $ P ADKL A14,4 ADJUST STACK POINTER P* , P* COMPARE STRINGS CHARACTER BY CHARACTER P* PCMP:10 EQU * , P
0x32b0ec…32b280 Dummy {f00=0x00fb, f01=0x0190, f02=» RETURN p ( P ADK A1,1 INCREMENT STRING POINTERS P ADK A2,1 < $ P SUK A3,1 DECREMENT LOOP COUNTER N 0 P RB(P) CMP:10 CONTINUE IF NOT END OF STRINGS v $ P ABR* A14 STRINGS EQUAL, RETURN P* * PCMPDWD EQU * COMPARE TWO DOUBLE WORDS
0x32b280…32b414 (1, 871) Dummy {f00=0x00fb, f01=0x0190, f02=»******** P* P* * P* INPUT: A1 = INPUT BUFFER ADDRESS $ 2 P* A2 = NUMBER OF CHARACTERS TO MOVE R * P* A3 = OUTPUT BUFFER ADDRESS P* P* OUTPUT: A2 = 0 > P* A1, A3 = ADDRESSES OF LAST MOVED C
0x32b414…32b5a8 Dummy {f00=0x00fb, f01=0x0190, f02=»OV P* " PFM:MV4 EQU * MOVE 4 CHARACTERS P LDK A2,4 LENGTH : P* R ( P* MOVE STRING CHARACTER BY CHARACTER P* PFM:MOV EQU * MOVE STRING " P LCR A4,A1 MOVE ONE CHARACTER P SCR A4,A3 ( P ADK A1,1 INCREMENT BUFFER POI
0x32b5a8…32b73c Dummy {f00=0x00fb, f01=0x4022, f02=» P* P END @ OVE 4 CHARACTERS P LDK A2,4 LENGTH : P* R ( P* MOVE STRING CHARACTER BY CHARACTER P* PFM:MOV EQU * MOVE STRING " P LCR A4,A1 MOVE ONE CHARACTER P SCR A4,A3 ( P ADK A1,1 INCREMENT BUFFER POI
0x32b73c…32b8d0 Dummy {f00=0x00fb, f01=0x2008, f02=» FMTASK ~ * * " * , END 6@ B * H ********** R * FMRDFP * d ********** v * 0 +* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * READ FILE PARAMETERS * & !FMRDFP EQU * READ FILE PAR
0x32b8d0…32ba64 Dummy {f00=0x00fb, f01=0x0190, f02=»05 EQU * A P LDK A2,1 B P* B " POP:010 EQU * B , P LDR A6,A12 NEXT FWT ADDRESS B @ * P RF(Z) OP:060 NO MORE FWT:S AVAILABLE B d " P LDR* A12,A6 FIRST WORD OF FWT B P TM A12,A2 CHECK IF USED B ( P RF(NZ) OP:015 USED, CHECK FILE NAME B 6 P ADK
0x32ba64…32bbf8 Dummy {f00=0x00fb, f01=0x0190, f02=» P RB OP:010 CONTINUE SEARCH C P* C & POP:015 EQU * C 0 " P XRR A12,A2 RESET FWT USED BIT C D P LDR A2,A10 FPB ADDRESS C j P ADK A2,FPB:FN C & P CF A14,CMPFIL COMPARE FILE NAMES C ( P RB(NE) OP:005 FILE NAMES NOT EQUAL C 4 P CC A7,FWTVOL,A6 C
0x32bbf8…32bd8c Dummy {f00=0x00fb, f01=0x0190, f02=»OPENED: C ~ 0 P* CHECK ATTACH PARAMETER AND NUMBER OF USERS D P* D D , P LC A1,FPB:SH,A10 SHAREABILITY PARAMETER D N P ANK A1,/FF D ~ & P RF(Z) OP:020 NO ATTACH REQUESTED D 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) D $ P RF(Z) OP:018 FILE NOT A
0x32bd8c…32bf20 Dummy {f00=0x00fb, f01=0x0190, f02=»QU * D * P LD A5,TTAB TTAB ADDRESS CALLING TASK E & P ST A5,FWTTAB,A6 INDICATE ATTACHED E : P* E d POP:020 EQU * E n & P LC A1,FWTPAR,A6 ACCESS PARAMETERS E P LDR A2,A1 E P ANK A1,/3F NUMBER OF USERS E P SUK A1,/3F E P ABL(NZ) OPEXIT E
0x32bf20…32c0b4 (1, 872) Opaque[0x194]
0x32c0b4…32c248 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f80, f03=0x0000}
0x32c0b4…32c248 IdxSect {
0x32c0b4…32c248 f00 = 0x00fc // 0x32c0b4 @0x0
0x32c0b4…32c248 f01 = 0x0012 // 0x32c0b6 @0x2
0x32c0b4…32c248 gno = [ // 0x32c0b8 @0x4
0x32c0b4…32c248 [0x00]: C0x00fc.0x0.0
0x32c0b4…32c248 [0x01]: C0x00fc.0x1.0
0x32c0b4…32c248 [0x02]: C0x00fc.0x2.0
0x32c0b4…32c248 [0x03]: C0x00fc.0x3.0
0x32c0b4…32c248 [0x04]: C0x00fd.0x0.0
0x32c0b4…32c248 [0x05]: C0x00fd.0x1.0
0x32c0b4…32c248 [0x06]: C0x00fd.0x2.0
0x32c0b4…32c248 [0x07]: C0x00fd.0x3.0
0x32c0b4…32c248 [0x08]: C0x00fe.0x0.0
0x32c0b4…32c248 ]
0x32c0b4…32c248 }
0x32c248…32c3dc Dummy {f00=0x00fc, f01=0x0190, f02=» 2 P IDENT LDTASK REL 11.0 81-06-10 870105041100 P : P =2,REL 11.0 81-01-26 B 2 P =2,END OF RELOC. CHECK FAILS (SPECIAL CASE) b " P =1,PRR 11.0 80-06-12 BOFE & P =1,CHECK FOR END OF RELOCATION P* 6 P**********************
0x32c3dc…32c570 Dummy {f00=0x00fc, f01=0x0190, f02=»* P* P* 6 P************************************************** P* X P* b * P* THIS MODULE CONTAINS THE LOAD TASK l , P* FOR TOSS MEMORY MANAGEMENT SYSTEMS. P* & P* IT CONTAINS TWO ENTRY POINTS: P* . P
0x32c570…32c704 Dummy {f00=0x00fc, f01=0x0190, f02=» LDTASK P* P* P*********** & P* ENTRIES * : P*********** N P* b P* l $ P ENTRY LT:DSK DISC PAGING ENTRY v , P ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB 2 P ENTRY QLTDSK ACTIVATE
0x32c704…32c898 Dummy {f00=0x00fc, f01=0x0190, f02=»B LDTASK ECB AREA P ENTRY LD:BUF LDTASK BUFFER P ENTRY LD:BUE END OF BUFFER > ( P ENTRY PQEMTY PAGE QUEUE EMPTY FLAG b $ P ENTRY LD:STB LDTASK STACK BASE P EJECT LDTASK P* P* P************* P* EXTERNALS *
0x32c898…32ca2c Dummy {f00=0x00fc, f01=0x0190, f02=» EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR TASK 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR 6 P EXTRN ACTOT ACTIVATE TASK n P EXTRN RELPA2 RELEASE PAGE " P EXTRN PAGQUE FREE PAGE QUEUE & P EXTRN PAG:QB QUEUE LINK BACKWARDS P EXTRN
0x32ca2c…32cbc0 Dummy {f00=0x00fc, f01=0x0190, f02=»S p P EXTRN SEG:EL SEGMENT LENGTH $ P EXTRN SEG:PB PAGE BLOCK ADDRESS . 4 P EXTRN SWB:DS DISC SECTOR ADDRESS OF FIRST COPY V $ P EXTRN SWB:EL SWB LENGTH (BYTES) & P EXTRN SWB:NS SWB LENGTH (SECTORS) $ P EXTRN ECBBA ECB BUFFER ADDRESS & P
0x32cbc0…32cd54 (1, 873) Dummy {f00=0x00fc, f01=0x0190, f02=»B CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EXTRN TTB:AP ACB ADDRESS @ P EXTRN TTB:SA TTAB SAVE AREA b P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE P EXTRN TTB:SP SEGTAB ADDRESS P EJECT LDTASK
0x32cd54…32cee8 Dummy {f00=0x00fc, f01=0x0190, f02=»ES l P EJECT LDTASK P* " P* , . P***************************************** 6 P* h P* CONDITIONAL ASSEMBLY r P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P
0x32cee8…32d07c Dummy {f00=0x00fc, f01=0x0190, f02=»NSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* D PCPU852 EQU 1 N P* b P* l 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK v 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* PSWPBLK EQU 0 P*
0x32d07c…32d210 Dummy {f00=0x00fc, f01=0x018e, f02=»0 PCPU857 EQU X:B P* P EJECT LDTASK * P* B P* L 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER PAGING V * P* IS OBTAINED BY SETTING ASMPAG EQU 1. P* PX:C EQU 0 PASMPAG EQU X:C P* P EJECT LDTASK
0x32d210…32d3a4 Dummy {f00=0x00fc, f01=0x0190, f02=» p P* P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* N 4 PLD:BUF RES 128 INTERMEDIATE BUFFER FOR LOAD TASK X PLD:BUE EQU * END OF BUFFER P* $ P RES 4 LDTASK STACK (TWO LEVELS) ( PLD:STB EQU *-2 LOAD TASK STACK BASE
0x32d3a4…32d538 Dummy {f00=0x00fc, f01=0x0190, f02=» P XIF P* P EJECT LDTASK P* 2 P* < P********** F P* TTABLD * X P********** j P* | P* LDTASK TTAB P* P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* ( P DATA 0 CURRENT SEGMEN
0x32d538…32d6cc Dummy {f00=0x00fc, f01=0x0190, f02=»UMMY) z P* PTTABLD EQU * TTABLD ENTRY " P DATA 0 DISPATCHER QUEUE LINK : " P DATA '#L' TASK IDENTIFICATION ` P DATA 49 PRIORITY LEVEL P DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) P DATA 0 DISPATCH ADD
0x32d6cc…32d860 Dummy {f00=0x00fc, f01=0x0190, f02=»* P EJECT LDTASK P* " P* , P********** 6 P* LT:SWB * H P********** Z P* l P* v D P* LT:SWB HANDLES THE LOADING/STORING OF SWAPPABLE WORK BLOCKS. P* 2 P* INPUT: A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P
0x32d860…32d9f4 (1, 874) Dummy {f00=0x00fc, f01=0x0190, f02=»NDLING ENTRY v P IFT SWPBLK=1 P IFT MMUPAG=1 * P INH @ ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS L , P TL TTB:MT,A3 LOAD MMU WITH CALLING TASK x , P TS TTB:MT,A5 STORE IN LDTASK MMU TABLE P ENB P XIF P* P IFT SWPBLK=1
0x32d9f4…32db88 Dummy {f00=0x00fc, f01=0x0190, f02=»K) f * P LDR* A3,A1 DISC ADDRESS OF FIRST COPY P ANK A3,/FF 8 P LD A4,SWB:DS,A1 L , P LD A6,SWB:EL,A1 SWB COPY LENGTH (BYTES) d . P LD A2,SWB:NS,A1 SWB COPY LENGTH (SECTORS) P* P EJECT LDTASK P* , P* COMPUTE DISC ADDRESS
0x32db88…32dd1c Dummy {f00=0x00fc, f01=0x0190, f02=»1 P* P IFT CPU852=1 P RF(NP) LTS:20 * 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB @ P RF(O) LTS:15 OVERFLOW x P RB LTS:10 P* $ PLTS:15 EQU * OVERFLOW CORRECTION P ADK A3,1 P ANKL A4,/7FFF P RB LT
0x32dd1c…32deb0 Dummy {f00=0x00fc, f01=0x0190, f02=»WPBLK=1 P IFT CPU852=0 P MUR A1 & P DAR A3 6 P XIF F P* R P EJECT LDTASK P* t P* ~ P IFT SWPBLK=1 0 P LD A3,TTB:SA+16,A5 MEMORY ADDRESS (LOGICAL) P ADK A6,1 P LDR A4,A6 & P LD A12,SCTIPL SWB
0x32deb0…32e044 Dummy {f00=0x00fc, f01=0x0190, f02=»RMEDIATE BUFFER j P LDK A7,/95 PHYSICAL WRITE P RF LTSWB2 STORE SWB : P XIF V P* b P EJECT LDTASK l P* P* P********** P* LT:DSK * P********** P* P* D P* LT:DSK PERFORMS LOADING OF DISC RE
0x32e044…32e1d8 Dummy {f00=0x00fc, f01=0x0190, f02=» b P* P* * PLT:DSK EQU * LDTASK DISC PAGING ENTRY , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK J P LDR* A2,A1 SEGMENT STATUS z . P RF(NN) LTD:05 SEGMENT NOT LOADED IN CORE P* 2 P* UPDATE MMU TABLE FOR CALLING TASK (IF MMU),
0x32e1d8…32e36c Dummy {f00=0x00fc, f01=0x0190, f02=» CF A15,TLSEG1 , P LDR A5,A7 TTAB ADDRESS OF CALLING TASK * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK F P* t P EJECT LDTASK ~ P* 6 P* NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RESTARTED * P* BY RELPAG WHEN PAGE AVAILABLE AGAIN. P
0x32e36c…32e500 Dummy {f00=0x00fc, f01=0x0190, f02=» RECENTLY USED PAGE FROM PAGQUE P* ( PLTD:05 EQU * 2 P LD A2,PAGQUE+2 F P CWK A2,PAGQUE ^ $ P RB(E) LTD:00 NO PAGE AVAILABLE t P* P EJECT LDTASK P* $ P* TAKE FOUND PAGE OUT OF PAGQUE P* P INH 0 P L
0x32e500…32e694 (1, 875) Dummy {f00=0x00fc, f01=0x0190, f02=»A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK 0 P CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK 0 . P LD A4,PAG:SB,A2 OLD SEGMENT BLOCK ADDRESS d P RF(Z) LTD:10 P LDKL A6,/7FFF 4 P ANRS A6,A4 INDICATE SEGMENT NOT LOADED ANYMORE P* P* CO
0x32e694…32e828 Dummy {f00=0x00fc, f01=0x0190, f02=»EW SEGMENT BLOCK ADDRESS z P* P IFT MMUPAG=1 * P* @ 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK J P* ( P LDKL A3,TTABLD LDTASK TTAB ADDRESS 2 P MS 5,TTB:SA+2,A3 SAVE A1-A5 IN TTAB SAVE AREA , P TL TTB:MT,A5 LOAD MMU WITH
0x32e828…32e9bc Dummy {f00=0x00fc, f01=0x0190, f02=»A3 $ P LD A1,TTB:AP,A5 GET ACB ADDRESS , P ST A1,TTB:AP,A3 STORE IN LDTASK'S TTAB 2 P LDR A1,A2 b " P LDR A5,A3 LDTASK TTAB ADDRESS t . P CF A15,TLSEG2 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A5 STORE NEW MMU TABLE FOR CALLING TASK P X
0x32e9bc…32eb50 Dummy {f00=0x00fc, f01=0x0190, f02=»E ADDRESS (PHYSICAL) | P LD A4,SCTPSZ PAGE SIZE $ P LD A6,SEG:EL,A1 SEGMENT LENGTH < * P LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS d $ P LD A12,TTB:SP,A5 SEGTAB ADDRESS . P LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE P* P IFT CPU852=1
0x32eb50…32ece4 Dummy {f00=0x00fc, f01=0x0190, f02=»ADDRESS z P XIF P* P IFT MMUPAG=0 & 2 P ST* A3,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE < P XIF r P* ~ P EJECT LDTASK P* P* P IFT SWPBLK=1 P* P* P********** P* LTSWB1 * P* LTSW
0x32ece4…32ee78 Dummy {f00=0x00fc, f01=0x0190, f02=»ANDLING IS SIMILAR TO v P* DISC PAGING HANDLING. P* @ 0 P* INPUT: A1 = DISC SECTOR NUMBER, PART 1 J 0 P* A2 = " " " , PART 2 ~ . P* A3 = MEMORY ADDRESS (LOGICAL) & P* A4 = SWB SIZE (BYTES)
0x32ee78…32f00c Dummy {f00=0x00fc, f01=0x018e, f02=»WRITE (LTSWB2 ONLY) j N P* A9 = 0 (INDICATES SWB HANDLING BY SETTING SEGBLK ADDRESS = 0) $ P* A12 = DISC FILE CODE n P* P* P XIF P* & PLTSWB1 EQU * ENTRY USED BY LT:SWB P ANK A1,/FF P LDK A7,/9
0x32f00c…32f1a0 Dummy {f00=0x00fc, f01=0x0190, f02=» & P LDR A11,A4 PAGE/SWB SIZE (WORDS) P SRL A6,1 . ( P LDR A10,A6 SEGMENT/SWB SIZE (WORDS) @ P* l P* SET ECB PARAMETERS v P* " P LDKL A8,LD:ECB LD:ECB ADDRESS * P STR A12,A8 SET DISC FILE CODE IN ECB ( P CM ECBEL,A8 RESET EFFEC
0x32f1a0…32f334 (1, 876) Dummy {f00=0x00fd, f01=0x0190, f02=»ECTOR NUMBER IN ECB z P ST A2,ECBCW2,A8 P XIF 4 P* @ P IFT CPU852=0 J , P MS 2,ECBCW1,A8 SET SECTOR NUMBER IN ECB ` P XIF P* P EJECT LDTASK P* P* P IFT MMUPAG=1 P ECR A1,A3 P* P IFT
0x32f334…32f4c8 Dummy {f00=0x00fd, f01=0x0190, f02=»K P* . P* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL P* F P SRL A1,3 P & P ANK A1,/1E MMUTAB INDEX (5 BITS) b P ADR A1,A5 ADD TTAB ADDRESS * P LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS P LDR A2,A1 P ANK A2,/3C P SRC
0x32f4c8…32f65c Dummy {f00=0x00fd, f01=0x0190, f02=»* 2 P* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL P* @ P SLL A3,2 J P LD A2,TTB:AP,A5 ACB ADDRESS P LDR A12,A3 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,ACBLAP,A2 P* PLTD:40 EQU * P S
0x32f65c…32f7f0 Dummy {f00=0x00fd, f01=0x0190, f02=»SET BUFFER ADDRESS P* ! P IFT SWPBLK=1 ! $ 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) ! : P RF(Z) LTD:45 SWB HANDLING ! n P XIF ! P* ! P IFT ASMPAG=1 ! P LDR* A1,A9 SEGMENT STATUS ! ( P SLL A1,1 CHECK IF ASSEMBLER SEGMENT ! (
0x32f7f0…32f984 Dummy {f00=0x00fd, f01=0x0190, f02=»CCESSARY ! r P* " PLTD:45 EQU * " . P ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 " . P ANKL A10,/7F80 " ` . P SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH " x * P RF(NN) LTD:50 OK, JUST ONE LKM NEEDED " P LDR A10,A6 " . P ANKL A10,/7F80 NEXT LOWER M
0x32f984…32fb18 Dummy {f00=0x00fd, f01=0x0190, f02=»TO BYTES " t , P RF(Z) LTD:55 INTERMEDIATE BUFFER NEEDED # 0 P ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB # @ P* # t P EJECT LDTASK # ~ P* # P* READ/WRITE SEGMENT SWB # P* # ( P CF A14,LD:IO READ/WRITE SEGMENT/SWB # 2 P ADK A6,0 CHECK IF
0x32fb18…32fcac Dummy {f00=0x00fd, f01=0x0190, f02=»D AND MOVE LAST PART OF SEGMENT/SWB # ~ P* $ , 4 P* COMMON EXIT FOR DISC PAGING, ASSEMBLER PAGING $ 6 2 P* AND SWAPPABLE WORK BLOCK HANDLING REQUESTS. $ n P* $ PLDEXIT EQU * $ P IFT SWPBLK=1 $ 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) $
0x32fcac…32fe40 Dummy {f00=0x00fd, f01=0x0190, f02=» EQU * $ P ORRS A4,A9 % P* % " PLDEXI3 EQU * % , * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK % @ P* % n P EJECT LDTASK % x P* % P* % P********** % P* LD:IO * % P********** % P* % P* % < P* LDTASK I/O ROUTINE FOR
0x32fe40…32ffd4 (1, 877) Dummy {f00=0x00fd, f01=0x0190, f02=»GAIN. CREDIT APPLICATIONS % n 8 P* ARE RESTARTED AT THE SPECIFIED REENTER ADDRESS. & " P* & ^ 2 P* INPUT: A5 = TTAB ADDRESS OF CALLING TASK & h P* A7 = ORDER CODE & P* A8 = LD:ECB ADDRESS & ( P* A9 = SEGBLK ADDRESS (=0 IF SWB) & P*
0x32ffd4…330168 Dummy {f00=0x00fd, f01=0x0190, f02=» CODE AND ABORT IF ERROR & P* ' P LD A2,ECBRC,A8 RETURN CODE ' * " P ANKL A2,/FEFF SKIP RETRY BIT ' N P RF(NZ) LDIO10 DISC ERROR ' t P RTN A14 NO, RETURN ' P* ' P EJECT LDTASK ' P* ' 2 P* ERROR: SET RETURN CODE IN A7 OF CALLING
0x330168…3302fc Dummy {f00=0x00fd, f01=0x0190, f02=»ET RETURN CODE IN A7 ' z P* ( P IFT SWPBLK=1 ( & 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) ( < P RB(Z) LDEXI3 SWB HANDLING ( p P XIF ( P* ( " P* INSERT PAGE IN PAGQUE AGAIN ( P* ( ( P LD A3,SEG:PB,A9 PAGE BLOCK ADDRESS ( P INH
0x3302fc…330490 Dummy {f00=0x00fd, f01=0x0190, f02=»ER SEGMENT ( v ( P RF(N) LDIO20 YES, ASSEMBLER SEGMENT ) P XIF ) > P* ) J 2 P LD* A4,TTB:AP,A5 APPLICATION RESTART ADDRESS ) T . P ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS ) P* ) PLDIO20 EQU * ) $ P LDKL A4,/100 SEGMENT ERROR BIT ) P RB LD
0x330490…330624 Dummy {f00=0x00fd, f01=0x0190, f02=» ) P********** * P* * P* * $ 6 P* THIS ENTRY IS CALLED FROM THE LDTASK MAIN FLOW * . 8 P* WHEN LOADING OF AN ASSEMBLER SEGMENT IS WANTED. * h 2 P* ASSPAG WILL READ ONE SECTOR AT A TIME AND * * P* PERFORM THE NECESSARY RELOCATIONS. * P
0x330624…3307b8 Dummy {f00=0x00fd, f01=0x018e, f02=»SS * z P* A9 = SEGBLK ADDRESS + $ P* A10 = SEGMENT LENGTH (WORDS) + * P* A11 = PAGE SIZE (WORDS) + R , P* A12 = PAGE ADDRESS (RELOCATION BASE) + v P* + P* + ( PASSPAG EQU * ASSEMBLER PAGING ENTRY + P LDK A1,1 + , P SC A1,ECBRL,A8
0x3307b8…33094c Dummy {f00=0x00fd, f01=0x0190, f02=» P EJECT LDTASK , P* , P* , & P IFT ASMPAG=1 , 0 P* , F . P* PREPARE FOR RELOCATION OF ONE SECTOR AND , P 4 P* CHECK REMAINING PAGE SIZE. IF NOT LARGE ENOUGH , 6 P* THEN READ (LAST) SECTOR TO INTERMEDIATE BUFFER, , 2 P* ELSE READ SECTOR D
0x33094c…330ae0 Dummy {f00=0x00fd, f01=0x0190, f02=»SEGMENT POINTER , P* - P XIF - " P* - . P IFT ASMPAG=1 - 8 P IFT MMUPAG=1 - N . P LD A1,LD:LAD GET LOGICAL ADDRESS POINTER - d P XIF - P* - P IFT ASMPAG=1 - * P CWK A11,128 CHECK REMAINING PAGE SIZE - , P RF(L) ASS:85 INTERMEDIA
0x330ae0…330c74 (1, 878) Dummy {f00=0x00fd, f01=0x0190, f02=»ON BITS - l P CWK A10,120 . P RF(NL) ASS:02 . $ P LDR A2,A10 . : P ADR A2,A2 . N P* . ` PASS:02 EQU * . j P ADR A2,A1 . ~ P* . P EJECT LDTASK . P* . " P* RELOCATE ONE SEGMENT SECTOR . P* . PASS:05 EQU * . P SRL A2,
0x330c74…330e08 Dummy {f00=0x00fd, f01=0x0190, f02=»ION BITS COUNTER . ~ P* / P IFT MMUPAG=1 / " 2 P LDR A8,A8 CHECK WHERE TO FIND RELOCATION BITS / 8 , P RF(Z) ASS:15 RELOCATION BITS IN LD:BUF / n " P ELR A4,A2 16 RELOCATION BITS / P RF ASS:20 / P XIF / P* / P IFT ASMPAG=1 / PASS:15
0x330e08…330f9c Dummy {f00=0x00fd, f01=0x0190, f02=»25 EQU * / 0 P LDR A6,A3 NUMBER OF RELOCATION BITS TO SKIP 0 P RF ASS:45 0 D P* 0 V P EJECT LDTASK 0 ` P* 0 x P* 0 PASS:30 EQU * 0 * P SLL A4,1 NEXT RELOCATION BIT TO TEST 0 & P RB(Z) ASS:25 NEXT RELOCATION WORD 0 P* 0 PASS:40
0x330f9c…331130 Dummy {f00=0x00fd, f01=0x0190, f02=»* 0 PASS:45 EQU * 1 . P SUR A3,A6 UPDATE RELOCATION BITS COUNTER 1 2 P SRL A1,1 WORD ADDRESS FOR SEGMENT POINTER =1 1 P 0 P ADR A1,A6 UPDATE SEGMENT POINTER (WORD) =1 1 0 P RF(O) ASS:70 ALL RELOCATED,END OF SECTOR =1 1 2 P SLL A1,1 BYTE ADDRESS FOR
0x331130…3312c4 Dummy {f00=0x00fd, f01=0x0190, f02=»ORD 1 P* 2 PASS:50 EQU * 2 P IFT MMUPAG=0 2 * $ P ADRS A12,A1 ADD RELOCATION BASE 2 @ P XIF 2 h P* 2 t P IFT ASMPAG=1 2 ~ P IFT MMUPAG=1 2 P ELR A6,A1 WORD TO RELOCATE 2 $ P ADR A6,A12 ADD RELOCATION BASE 2 $ P ESR A6,A1 STORE R
0x3312c4…331458 Dummy {f00=0x00fd, f01=0x0190, f02=»F SECTOR OR IF NEW RELOCATION WORD NEEDED 2 P* 3 2 PASS:60 EQU * 3 < P LDR A6,A1 SEGMENT POINTER 3 P P SRL A6,1 WORD ADDRESS 3 r 4 P SUR A6,A13 COMPARE WITH END OF REL. ADDRESS =2 3 P ADK A6,0 SET CR =2 3 $ P RF(NN) ASS:70 END OF SECTOR =2 3
0x331458…3315ec Dummy {f00=0x00fd, f01=0x0190, f02=»INTER 3 j ( P RB ASS:10 NEXT RELOCATION BITS WORD 4 P* 4 : P EJECT LDTASK 4 D P* 4 . P* RETURN IF SEGMENT LOADING IS COMPLETED, 4 f . P* ELSE PREPARE FOR READING OF NEXT SECTOR. 4 P* 4 PASS:70 EQU * 4 * P SUKL A10,120 DECREMENT SEGMENT
0x3315ec…331780 Dummy {f00=0x00fd, f01=0x018e, f02=»E PAGE ADDRESS 4 z P XIF 5 P* 5 " P IFT ASMPAG=1 5 , P IFT MMUPAG=1 5 B 2 P ADS A4,LD:LAD UPDATE LOGICAL ADDRESS POINTER 5 X P LDK A3,0 5 P MLR 2,A8 BUFFER ADDRESS 5 P SLC A1,4 5 P DLL 1 5 P SRL A2,1 5 P DAR A3 5 P SLL A
0x331780…331914 (1, 879) Dummy {f00=0x00fd, f01=0x0190, f02=» 5 ~ P* 6 P* 6 P IFT ASMPAG=1 6 * P IM ECBCW2,A8 INCREMENT SECTOR NUMBER 6 2 P RF(O) ASS:80 OVERFLOW 6 ` ( P RB ASS:00 READ NEXT SECTOR TO PAGE 6 ~ P* 6 PASS:80 EQU * 6 & P LDKL A4,/7FFF OVERFLOW CORRECTION 6 P ANS A4,ECBCW2,A8 6
0x331914…331aa8 Dummy {f00=0x00fd, f01=0x0190, f02=»INTERMEDIATE BUFFER. 6 z 0 P* MOVE CODE BUT NOT RELOCATION BITS TO PAGE. 7 P* 7 P PASS:85 EQU * 7 Z . P LDR A13,A10 SAVE REMAINING SEGMENT LENGTH 7 n P LDR A6,A10 7 & P LDR A11,A12 SAVE RELOCATION BASE 7 $ P LDR A12,A1 ACTUAL PAGE ADDRESS 7 6 P S
0x331aa8…331c3c Dummy {f00=0x00fd, f01=0x0190, f02=»S OF CODE TO RELOCATE 7 v P LDR A10,A13 8 0 P LDR A2,A13 REMAINING SEGMENT LENGTH (WORDS) 8 2 2 P ADR A2,A2 DISPL. IN SECTOR TO RELOCATION BITS 8 f . P ADKL A2,LD:BUF ADDRESS TO RELOCATION BITS 8 P* 8 P IFT MMUPAG=1 8 2 P SUR A8,A8 INDICATE RELOCA
0x331c3c…331dd0 Dummy {f00=0x00fd, f01=0x0190, f02=»TS 8 b 4 P LDR A1,A12 LOGICAL ADDRESS OF CODE TO RELOCATE 9 ( P LDR A12,A11 RESTORE RELOCATION BASE 9 B . P RB ASS:10 RELOCATE LAST SECTOR AND RETURN 9 n P XIF 9 P* 9 P EJECT LDTASK 9 P* 9 P* 9 P********** 9 P* LDSECT * 9 P*
0x331dd0…331f64 Dummy {f00=0x00fd, f01=0x0190, f02=»RMEDIATE BUFFER 9 r P* : ( P* INPUT: A6 = NO OF WORDS TO MOVE : " $ P* A8 = LD:ECB ADDRESS : N ( P* A9 = SEGBLK ADDRESS (=0 IF SWB) : v 0 P* A10 = EFFECTIVE LENGTH, LAST I/O : B P* A12 = LAST USED PAGE ADDRESS, LOGICAL (
0x331f64…3320f8 Dummy {f00=0x00fd, f01=0x0190, f02=»UAL PAGE ADDRESS (LOGICAL) : | , P* A1-A4, A7, A10 ARE DESTROYED ; " P* ; R P* ; PLDSECT EQU * ; f , P ADR A12,A10 UPDATE DESTINATION POINTER ; z P* ; P EJECT LDTASK ; P* ; P* SET ECB PARAMETERS ; P* ; PLDSEC2 EQU *
0x3320f8…33228c Dummy {f00=0x00fd, f01=0x0190, f02=»ATE BUFFER NOW IN SYSTEM AREA ; P ADK A2,/80 A2 := 256 < & 6 P ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR < D P LDKL A4,/7FFF < ~ P XIF < P* < P IFT CPU852=0 < P MLK 4 < P DATA LD:BUF,256 < P DATA /80,/7FFF < 2 P SCR A3,A8
0x33228c…332420 Dummy {f00=0x00fd, f01=0x018e, f02=» * P ADS A2,ECBCW2,A8 UPDATE SECTOR NUMBER = P RF(O) LDS:30 OVERFLOW = 2 P* = P PLDS:10 EQU * = Z , P CF A14,LD:IO READ ONE SECTOR TO LD:BUF = n $ P LDR A2,A12 DESTINATION POINTER = & P ADR A6,A6 CONVERT LENGTH TO BYTES = P* = P EJECT LDTAS
0x332420…3325b4 (1, 880) Dummy {f00=0x00fe, f01=0x018e, f02=» P XIF > P* > PLDS:20 EQU * > P IFT MMUPAG=0 > . P IFT CPU852=1 > D P LDR* A10,A1 MOVE ONE WORD > Z P STR A10,A2 > | ( P ADK A1,2 INCREMENT BUFFER POINTERS > P ADK A2,2 > P SUK A6,2 DECREMENT COUNTER > P RB(P) LDS:20 > P
0x3325b4…332748 Dummy {f00=0x00fe, f01=0x018e, f02=» > ( P ADK A1,2 INCREMENT BUFFER POINTERS ? P ADK A2,2 ? 4 P SUK A6,2 DECREMENT COUNTER ? F P RB(P) LDS:20 ? j P XIF ? P* ? P IFT MMUPAG=0 ? P IFT CPU852=0 ? P IFT CPU857=1 ? 2 P MVB A6 MOVE REMAINING PART OF SEGMENT TO PAGE ?
0x332748…3328dc Dummy {f00=0x00fe, f01=0x0190, f02=» ? | P RB LDS:10 @ P* @ P EJECT LDTASK @ $ P* @ < P* @ F P********** @ P P* QLTDSK * @ b P* QLTSWB * @ t P********** @ P* @ P* @ : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. @ P* @ : P* ACTIVATION IS AT
0x3328dc…332a70 Dummy {f00=0x00fe, f01=0x018e, f02=» = SEGMENT BLOCK ADDRESS (LT:DSK) @ 6 P* = SWAPPABLE WORK BLOCK ADDRESS (LT:SWB) A * 2 P* A3 = TTAB ADDRESS OF CALLING TASK A d * P* A4 = LKM DATA DIRECTIVE (LT:SWB) A P* A $ P* OUTPUT: A2, A5 ARE DESTROYED A P* A P* A
0x332a70…332c04 Dummy {f00=0x00fe, f01=0x018e, f02=» P XIF B P* B P IFT SWPBLK=0 B 6 P ABL LKMERR INDICATE SYSGEN ERROR AND HALT SYSTEM B 0 P XIF B j P* B v 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK B $ P LDKL A2,LT:DSK DISPATCH ADDRESS B P* B P EJECT LDTASK B P* B P
0x332c04…332d98 Dummy {f00=0x00fe, f01=0x4014, f02=» P END C @ C P IFT SWPBLK=0 B 6 P ABL LKMERR INDICATE SYSGEN ERROR AND HALT SYSTEM B 0 P XIF B j P* B v 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK B $ P LDKL A2,LT:DSK DISPATCH ADDRESS B P* B P EJECT LDTASK B P* B P
0x332d98…332f2c Dummy {f00=0x00fe, f01=0x2008, f02=» D NT LDTASK PRR 9.1 79-01-17 870105040910 END <@ H* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x332f2c…3330c0 Dummy {f00=0x00fe, f01=0x0190, f02=» T z P RES 30 U @ PSAREA2 RES STCKLN BEGIN OF STACK AREA U $ > PFWA2 RES FWALN FUNCTION WORK AREA U h , P**************************************** U P U , P**************************************
0x3330c0…333254 (1, 881) Opaque[0x194]
0x333254…3333e8 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fc8, f03=0x0000}
0x333254…3333e8 IdxSect {
0x333254…3333e8 f00 = 0x00fe // 0x333254 @0x0
0x333254…3333e8 f01 = 0x0004 // 0x333256 @0x2
0x333254…3333e8 gno = [ // 0x333258 @0x4
0x333254…3333e8 [0x00]: C0x00fe.0x1.0
0x333254…3333e8 [0x01]: C0x00fe.0x2.0
0x333254…3333e8 ]
0x333254…3333e8 }
0x3333e8…33357c Dummy {f00=0x00fe, f01=0x0190, f02=» 0 P IDENT LKMAL REL 11.0 81-01-26 870105041100 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x33357c…333710 Dummy {f00=0x00fe, 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
0x333710…3338a4 Dummy {f00=0x00fe, f01=0x0190, f02=»XTRN TIOFM FILE MANAGEMENT ( P EXTRN DMTEND DATA MANAGEMENT COMMIT " " P EXTRN TCHPAG CHANGE MMU PAGE N " P EXTRN TCHMMU CHANGE MMU TABLE t 2 P EXTRN TSWBLK LOAD/STORE SWAPPABLE WORK BLOCK P EXTRN TMOVE MOVE P EXTRN TENEDM TENDIO FOR EDM
0x3338a4…333a38 Dummy {f00=0x00fe, f01=0x0190, f02=» P* P* P* P* " P* , P* 6 P* @ P* J P EJECT T P* b $ PLKMAL DATA LKMALE-* TABLE LENGTH l P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIV
0x333a38…333bcc Dummy {f00=0x00fe, f01=0x0190, f02=»OCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION > P DATA TDATE GET/SET DATE b 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA TIOFM FILE MANAGEM
0x333bcc…333d60 Dummy {f00=0x00fe, f01=0x410a, f02=»TSWBLK LOAD SWAPPABLE WORK BLOCK , P DATA TSWBLK STORE SWAPPABLE WORK BLOCK ( P DATA TMOVE MOVE X P DATA TENEDM TENDIO FOR EDM p P DATA 0 P DATA 0 P DATA TLDPGM P DATA TPAGAL PLKMALE EQU * P* P END @
0x333d60…333ef4 (1, 882) Dummy {f00=0x00fe, 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
0x333ef4…334088 Dummy {f00=0x00fe, f01=0x0190, f02=» P* P* A1 = 0 6 P* A5 = TTAB ADDRESS OF CALLING TASK , ( P* A8 = FM ECB ADDRESS f * P* A9 = USER ECB ADDRESS 6 P* A10 = FILE PARAMETER BLOCK ADDRESS P* P*
0x334088…33421c Dummy {f00=0x00fe, f01=0x0190, f02=» LC A1,FILCOD,A5 FILE CODE P ANK A1,/FF " & P RF(Z) CRE:04 NO VOLUME SPECYFIED 6 " P LDR A2,A5 FILE SECTION NUMBER ` $ P CF A14,GETFIL REQUESTED LENGTH $ P RF(NZ) CRE:06 LENGTH SPECYFIED PCRE:04 EQU * P SUK A5,1 P RB(NN) CRE:
0x33421c…3343b0 Dummy {f00=0x00fe, f01=0x0190, f02=»ARE VTOC RECORD P* P* " PCRE:06 EQU * , P IFT CPU852=1 @ P LDR A1,A10 GET FPB ADDRESS V * P ADKL A1,FPB:FN FILE NAME DISPLACEMENT z P LDR A3,A9 VTOC ADDRESS P CF A14,FM:MV8 FILE NAME P XIF P* P IFT CPU85
0x3343b0…334544 Dummy {f00=0x00fe, f01=0x0190, f02=»,VTC:RL,A9 0 P LD A1,FPB:BF,A10 BLOCKING FACTOR, FILE ORG P ST A1,VTC:BF,A9 F P* ^ P EJECT FMCDEF h P* ~ P* P LDR A1,A10 P ADKL A1,FPB:CD CRD P LDR A3,A9 P ADKL A3,VTC:CD P LDK A2,9 " P CF A14,FM
0x334544…3346d8 Dummy {f00=0x00fe, f01=0x0190, f02=» CHARACTERS P LDR* A1,A3 P RF(Z) CRE:20 BINARY ZERO ( P CWK A1,/3030 NUMERICAL ZERO J P RF(NE) CRE:30 n PCRE:20 EQU * P SUK A7,2 COUNTER P RB(NZ) CRE:10 P LDR A8,A3 ADDRESS TO CRD P LKM P DATA 11 P L
0x3346d8…33486c Dummy {f00=0x00fe, f01=0x018e, f02=» P SC A2,VTC:IF,A9 P ST A1,VTC:KA,A9 4 P CF A14,CHKFIL CHECK FROM FIRST FILE CODE (A5=0) 4 2 P RF(NZ) CDEINE FILE ALREADY IN ONE OF VOLUMES l P LDR A6,A10 FPB ADDRESS P ADKL A6,FPB:FN P SUKL A6,FWTNAM $ P ST A6,FWTSAV,A9 INTO
0x33486c…334a00 Dummy {f00=0x00fe, f01=0x0190, f02=» & P CF A14,CREFIL CREATE FILE SECTION P RF(NZ) CREDEL ERROR 2 P CWK A2,3 N P RB(NG) CRE:40 NEXT SECTION ` 8 P LD A5,VOLUME FILE SECTION OF FIRST SPECYFIED VOLUME P LCR A7,A5 FILE CODE P ANK A7,/FF P LDKL A3,OPEN P R
0x334a00…334b94 (1, 883) Opaque[0x194]
0x334b94…334d28 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1480, f03=0x0000}
0x334b94…334d28 IdxSect {
0x334b94…334d28 f00 = 0x00a4 // 0x334b94 @0x0
0x334b94…334d28 f01 = 0x000c // 0x334b96 @0x2
0x334b94…334d28 gno = [ // 0x334b98 @0x4
0x334b94…334d28 [0x00]: C0x00a4.0x0.0
0x334b94…334d28 [0x01]: C0x00a4.0x1.0
0x334b94…334d28 [0x02]: C0x00a4.0x2.0
0x334b94…334d28 [0x03]: C0x00a4.0x3.0
0x334b94…334d28 [0x04]: C0x00a5.0x0.0
0x334b94…334d28 [0x05]: C0x00a5.0x1.0
0x334b94…334d28 ]
0x334b94…334d28 }
0x334d28…334ebc Dummy {f00=0x00a4, f01=0x0190, f02=» 2 P IDENT LRPINT REL 11.0 81-09-16 870105041100 P : P =2, POWER FAIL IN MOVES B P REL 11.0 81-07-27 d P =1,60 HZ COND BUG P REL 11.0 81-01-26 P P* P* 6 P**************************************************
0x334ebc…335050 Dummy {f00=0x00a4, f01=0x0190, f02=»OWER FAILURE ~ P* P* P* ( P* 2 P* < 6 P************************************************** F P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: P* P* -IHLKM:
0x335050…3351e4 Dummy {f00=0x00a4, f01=0x0190, f02=»E FOLLOWING ENTRIES ARE USED TO QUEUE TASKS: P* 4 6 P* -LKMRQE: SET A7 = -1, QUEUE TASK AND DISPATCH > P* x H P* -LKMSRC: SET A7 TO RETURN CODE (C(A2)), QUEUE TASK AND DISPATCH P* ( P* -LKMQDI: QUEUE TASK AND DISPATCH P*
0x3351e4…335378 Dummy {f00=0x00a4, f01=0x0190, f02=» IHLKM LKM INTERRUPT HANDLER 4 P ENTRY LKM030 SPECIAL TLDSEG REQUEST ERROR ENTRY $ $ P ENTRY LKMRQE LKM REQUEST ERROR 4 P ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR * P ENTRY LKMQDI QUEUE TASK AND DISPATCH 0 P ENTRY LKMSRC SET RETURN CODE
0x335378…33550c Dummy {f00=0x00a4, f01=0x018e, f02=»O MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER & P ENTRY INIFLG INITIALIZATION FLAG N * P ENTRY PFPOST PWF POST PROCESSING FLAG x P EJECT LRPINT P* P* P************* P* EXTERNALS * P**********
0x33550c…3356a0 Dummy {f00=0x00a4, f01=0x0190, f02=» n " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE . P EXTRN QTJOB QUEUE TASK ^ $ P EXTRN QMJOB QUEUE MONITOR TASK ~ $ P EXTRN SWL48 SWITCH TO LEVEL 48 $ P EXTRN SWLXY SWITCH TO LEVEL XY P EXTRN FREBLK SET
0x3356a0…335834 (1, 884) Dummy {f00=0x00a4, f01=0x0190, f02=»NTSAV INTERRUPT SAVE MODULE P EXTRN RELPAG RELEASE PAGE $ , P EXTRN TLDSEG LOAD SEGMENT LKM PROCESSOR F ( P EXTRN TTB:SB SEGMENT BLOCK POINTER v & P EXTRN TTB:PW PROGRAM STATUS WORD 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB " P EXTRN
0x335834…3359c8 Dummy {f00=0x00a4, f01=0x0190, f02=»* CONDITIONAL ASSEMBLY P* . P***************************************** ( P* Z . P* A PROGRAM VERSION USING TOSS MMU PAGING d * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSIO
0x3359c8…335b5c Dummy {f00=0x00a4, f01=0x0190, f02=» . P* A PROGRAM VERSION USING TOSS DISC PAGING * P* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 P* d PDSKPAG EQU 0 n P* P* 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS * P* IS OBTAINED BY SETTING MONCLK EQU 0. P*
0x335b5c…335cf0 Dummy {f00=0x00a4, f01=0x0190, f02=»TIONS h 2 P* IS OBTAINED BY SETTING MONDAT = MONCLK = 1. P* D PX:B EQU 0 N PMONDAT EQU X:B ` P* v P* 4 P* A PROGRAM VERSION WITH MONITOR CLOCK FUNCTIONS 4 P* ADAPTED TO 60 HERTZ NET FREQUENCY (USA/CANADA) , P* IS OBTAINED
0x335cf0…335e84 Dummy {f00=0x00a4, f01=0x0190, f02=» LRPINT P* P* P* I H L K M & P* < P* F 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P P* STEPS ARE CARRIED OUT: P* * P* - IF STACK OVERFLOW SYSTEM HALTS. P* D P* - ELSE REGISTERS A1
0x335e84…336018 Dummy {f00=0x00a4, f01=0x0190, f02=»E LKM PROCESSOR. P* P* EXIT CONDITIONS ARE: " P* B * P* A4 = LABEL ADDRESS OF LKM REQUEST L 8 P* (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) z * P* A5 = TTAB ADDRESS OF CALLING TASK P* A6 = LKM DATA DIRECTIVE P
0x336018…3361ac Dummy {f00=0x00a4, f01=0x0190, f02=»U * $ P ST P,INTSAV SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG 4 P* b P EJECT LRPINT l P* P* P ST A15,LKM010 SAVE A15 " P LD A15,PRUN LOAD TTAB ADDRESS P* P IFT CPU852=1 4 P ADKL A15,
0x3361ac…336340 Dummy {f00=0x00a4, f01=0x0190, f02=» ~ P STR A11,A15 -A11 P STR A10,A15 -A10 " P STR A9,A15 -A9 < P STR A8,A15 -A8 T P STR A7,A15 -A7 l P STR A6,A15 -A6 P STR A5,A15 -A5 P STR A4,A15 -A4 P STR A3,A15 -A3 P STR A2,A15 -A2 P STR A1,A15
0x336340…3364d4 (1, 885) Dummy {f00=0x00a4, f01=0x0190, f02=» LD A5,PRUN TTAB ADDRESS OF CALLING TASK * P LDKL A15,0 RESTORE A15 STACK POINTER 0 PLKM010 EQU *-2 ^ P* t P EJECT LRPINT ~ P* " P* GET LKM REQUEST PARAMETERS P* P LDR* A3,A15 4 P LDR* A2,A15 LOAD P.C. AND ADJUST ST
0x3364d4…336668 Dummy {f00=0x00a4, f01=0x0190, f02=»* A6,A2 DATA DIRECTIVE P XIF P* * P IFT MMUPAG=1 4 P ANK A3,1 J P RF(NZ) LKM015 USER MODE * P TL MONMMU NO, LOAD MONITOR MMU TABLE | P* PLKM015 EQU * " P EL A3,-2,A2 INSTRUCTION CODE P ELR A6,A2 DATA DIRECTIVE
0x336668…3367fc Dummy {f00=0x00a4, f01=0x0190, f02=»* STACK OVERFLOW: HALT SYSTEM P* ( P LDK A1,7 HALT PARAMETER 2 0 P RF LKM070 HALT SYSTEM DUE TO STACK OVERFLOW R P* P EJECT LRPINT P* P* PLKM025 EQU * & P ADK A2,2 UPDATE DISPATCH ADDRESS P* P IFF
0x3367fc…336990 Dummy {f00=0x00a4, f01=0x0190, f02=»PAG=1 * P LD A3,TTB:SB,A5 SEGMENT BLOCK ADDRESS P RF(Z) LKM030 NO SEGMENT < P LCR A4,A3 SEGMENT STATUS , P ANK A4,/5E CHECK IF CORE RESIDENT OR... ~ 2 P RF(NZ) LKM030 ...USED BY AN INTERRUPTED TASK P CF A15,RELPAG RELEASE PAGE P
0x336990…336b24 Dummy {f00=0x00a4, f01=0x0190, f02=»5,SWL48 SWITCH TO LEVEL 48 P LDK A4,0 " P LDR A3,A6 DATA DIRECTIVE 4 P RF(NN) LKM050 NO LABEL V P* v P* LKM REQUEST WITH LABEL P* P IFT MMUPAG=0 P LDR* A4,A2 LABEL P XIF P* P IFT MMUPAG=1 P
0x336b24…336cb8 Dummy {f00=0x00a4, f01=0x018e, f02=»* P EJECT LRPINT P* " . P* UPDATE TTB:SA AND GO TO LKM PROCESSOR , P* ^ PLKM050 EQU * h . P ST A2,TTB:SA,A5 SET NEXT DISPATCH ADDRESS | P ADR A3,A3 INDEX IN LKMAL & P RF(Z) LKMQDI TASK SWITCH REQUEST P CW A3,LKMAL
0x336cb8…336e4c Dummy {f00=0x00a4, f01=0x0190, f02=» P EJECT LRPINT P* P* * P* L K M E R R 4 P* L P* V > PLKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT ` P* PLKM070 EQU * P CF A15,HALT HALT SYSTEM P* P* P* L K M R Q E
0x336e4c…336fe0 Dummy {f00=0x00a4, f01=0x0190, f02=» P LDKL A2,-1 P* P* & P* L K M S R C 0 P* H . P* SET A7 = A2, QUEUE TASK AND DISPATCH. R P* P* A2 = RETURN CODE P* A5 = TTAB ADDRESS P* P* PLKMSRC EQU * 8 P ST A2,TTB:SA+14,A5 SET
0x336fe0…337174 (1, 886) Dummy {f00=0x00a4, f01=0x0190, f02=» P* P* A5 = TTAB ADDRESS P* , P* 6 PLKMQDI EQU * @ P CF A15,QTJOB T P* j * PT:DISP EQU * COMMON EXIT TO DISPATCHER t P ABL TDISP GO TO DISPATCHER P* P EJECT LRPINT P P* P* I H P F A
0x337174…337308 Dummy {f00=0x00a4, f01=0x0190, f02=»BLOCK ADDRESS P DATA 0 & PTTABPF DATA 0 TTAB FOR POWER FAIL & P DATA '#P' P P DATA 0 b PA15SAV DATA 0 r P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER ON/OFF INDICATOR $ P P=P
0x337308…33749c Dummy {f00=0x00a4, f01=0x0190, f02=»F POST PROCESSING FLAG P NZ=PWF POST PROCESSING P EJECT LRPINT @ P X P* ` * P* POWER FAIL/AUTO RESTART INTERRUPT j P* P PIHPFAR EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT & P RIT /17 RESET INTERNAL INTERRUP
0x33749c…337630 Dummy {f00=0x00a4, f01=0x018e, f02=»1 & P CF A15,SAVE8 SAVE A1-A14 ON STACK P STR A9,A15 4 P STR A10,A15 H P STR A11,A15 P STR A12,A15 p P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14 ON STACK P XIF
0x337630…3377c4 Dummy {f00=0x00a4, f01=0x0190, f02=» P EJECT LRPINT P P* ( P* POWER ON 2 P* F P P " PPOWON LD A15,A15SAV RELOAD A15 X P ~ P IFT MMUPAG=1 $ P TL -30,A15 RESTORE MMU TABLE =2 P XIF P IFT CPU852=1 P LDR* A14,A15 RESTORE A9-A14
0x3377c4…337958 Dummy {f00=0x00a4, f01=0x0190, f02=»PU852=0 P MLR 14,A15 RESTORE A9-A14 P MSR 8,A15 2 P XIF D P P 4 P LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING X P LDKL A2,TTABPF P CWR A1,A2 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST P STR A1,A2 P ST
0x337958…337aec Dummy {f00=0x00a4, f01=0x0190, f02=»FAIL TASK . P* STARTED AFTER ALL PWF POST PROCESSING P* D P N . PPFTASK CM PFPOST CLEAR PWF POST PROC FLAG V P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES P CM PRUN EXIT PFTASK P RB T:DISP P EJECT
0x337aec…337c80 Dummy {f00=0x00a4, f01=0x0190, f02=»WILL BE PROCESSED EACH 100 MS. | P* & * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT 0 " P RIT /1B RESET INTERRUPT FLAG ^ P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 P* PRTC010 EQU * P IFT CPU852=1 & P CF A1
0x337c80…337e14 (1, 887) Dummy {f00=0x00a5, f01=0x0190, f02=» P EJECT LRPINT P* P* & P IFT NETFRQ=50 0 " P LDKL A4,-4 SET 100 MS SWITCH F P XIF l P* x P IFT NETFRQ=60 " P LDKL A4,-5 SET 100 MS SWITCH P XIF P ST A4,COUNT =1 P* . P LDKL A2,CLOCK QUEUE CLOCK R
0x337e14…337fa8 Dummy {f00=0x00a5, f01=0x0190, f02=» XIF P* PSWDISP EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY * P RB T:DISP R P* d P EJECT LRPINT n P* P* P IFT MONCLK=1 P* < P* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. P* PRTC0
0x337fa8…33813c Dummy {f00=0x00a5, f01=0x018e, f02=»ES AND SECONDS p P* ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS L $ P RB(NE) SWDISP GO TO DISPATCHER ~ ( P CM MONCLO+2,A4 RESTART TIME COUNTER P SUK A4,2 END 6 P RF(N) MCLO30 MIDNIGHT CARRY AND
0x33813c…3382d0 Dummy {f00=0x00a5, f01=0x0190, f02=» ( P IM MCARRY INCREMENT MIDNIGHT CARRY ! P* ! 4 P EJECT LRPINT ! > P* ! V P* ! ` P IFT MONDAT=1 ! j P* ! P* UPDATE DAY, MONTH AND YEAR ! P* ! P IFT CPU852=1 ! P LDKL A1,MONTH MONTH ADDRESS ! P LDKL A2,DAY DAY ADDRE
0x3382d0…338464 Dummy {f00=0x00a5, f01=0x0190, f02=»H AND DAY ADDRESS TO A1 AND A2 ! z P XIF " & P* " 2 P IFT MONCLK+MONDAT=2 " < P IMR A2 INCREMENT DAY " X P LDR* A4,A1 MONTH " v P LDR A6,A4 " P LDR* A5,A2 NEW DAY " " P SUK A5,29 CHECK IF DAY WAS 28 " 0 P RF(Z) MCLO40 YES, GO AND CHECK IF F
0x338464…3385f8 Dummy {f00=0x00a5, f01=0x0190, f02=» RETURN " ~ ( P RF MCLO50 YES, WE HAVE A NEW MONTH # P* # < PMCLO40 EQU * # F P SUK A6,2 CHECK IF FEBRUARY # Z P RB(NZ) SWDISP NO, RETURN # ~ P* # P EJECT LRPINT # P* # & P* CHANGE TO NEW MONTH (AND YEAR?) # P* # P* #
0x3385f8…33878c Dummy {f00=0x00a5, f01=0x0190, f02=»NZ) SWDISP NO, RETURN # $ P STR A3,A1 SET MONTH TO JANUARY $ P IM YEAR HAPPY NEW YEAR!!! $ F P RB SWDISP RETURN $ h P* $ PMCLO60 EQU * $ P LDR A7,A6 MONTH $ P ANK A6,1 $ P RF(Z) MCLO70 MONTH EVEN $ P SUK A7,7 $ ( P RB(P) MCLO5
0x33878c…338920 Dummy {f00=0x00a5, f01=0x0190, f02=»O50 APRIL OR JUNE $ P XIF % P* % & P IFT MONCLK=1 % 0 P RB SWDISP RETURN % F P XIF % ` P* % l P EJECT LRPINT % v P* % P* % P* M O N C L O % P* % P* % P IFT MONCLK+MONDAT=2 % , P DATA 0 THIS WORD USED BY MONT
0x338920…338ab4 (1, 888) Dummy {f00=0x00a5, f01=0x0190, f02=» , PMCARRY DATA 0 ACKUMULATED 24 HOUR CARRY & P DATA 0 HOUR & 4 P DATA 0 MINUTE & H P DATA 0 SECOND & ^ PSECOND DATA 0 SECOND SWITCH & t P XIF & P* & P EJECT LRPINT & P* & * P* CLOCK ROUTINE STARTED EACH 100 MS. & P* & P
0x338ab4…338c48 Dummy {f00=0x00a5, f01=0x0190, f02=»CK & v P ABL(Z) MEXIT END OF QUEUE ' P IM 4,A4 INCREMENT TIMER ' , P RB(N) CLK10 NOT TIME OUT ' L P RF(Z) CLK30 TIME OUT ' n P LDR* A3,A4 RELEASE TIMER ' P STR A3,A6 ' P CF A15,FREBLK ' P LDR A4,A2 ' P CF A15,FREBLK ' P RB CLK20
0x338c48…338ddc Dummy {f00=0x00a5, f01=0x0190, f02=»VEL 48 ' v P INH ( P RB CLK10 ( P* ( , PCLK40 EQU * ( 6 P IFT CPU852=1 ( J & P CF A15,SAVE8 SAVE A1-A8 ON STACK ( ` P XIF ( P* ( P IFT CPU852=0 ( " P MSR 8,A15 SAVE A1-A8 ON STACK ( P XIF ( P* ( & P LDKL A1,/C4C0 LEVEL 4
0x338ddc…338f70 Dummy {f00=0x00a5, f01=0x4124, f02=»2 GO TO TIME OUT ROUTINE ( P* ) P* ) * PCOUNT DATA 0 100 MS SWITCH ) 4 P* ) V P* ) ` P* T I M Q U E ) j P* ) . P* POINTER TO FIRST BLOCK IN TIMER QUEUE ) P* ) P* ) PTIMQUE EQU * ) P DATA 0 ) P* ) P* )
0x338f70…339104 Dummy {f00=0x00a5, 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
0x339104…339298 Dummy {f00=0x00a5, f01=0x0190, f02=» _ : @ | ` |U WP L P _ @ P _" l 0 W r P . ! A . @ : ;h 0 :C # : .=H N zZ y .=H N zZ y N : d 8" R _ ZY QY : L ? ? R
0x339298…33942c Dummy {f00=0x00a5, f01=0x0190, f02=»P _ _ @ @ :b @ :b V W U4 T 9BW P P( X V W Y P @ Q @ P A. @ @ P _l A 9n A :B A @ | < | P: N P4 9b .V 3 S S :b Y* AS
0x33942c…3395c0 Dummy {f00=0x00a5, f01=0x0190, f02=» S @ P 3 _ ) 3 ) | Z A. @ @ W A 2 J : A $ ) _ > +* } } } P~N 1~ 2~ } @ / KB ~$
0x3395c0…339754 (1, 889) Opaque[0x194]
0x339754…3398e8 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2008, f03=0x0000}
0x339754…3398e8 IdxSect {
0x339754…3398e8 f00 = 0x0100 // 0x339754 @0x0
0x339754…3398e8 f01 = 0x0002 // 0x339756 @0x2
0x339754…3398e8 gno = [ // 0x339758 @0x4
0x339754…3398e8 [0x00]: C0x0100.0x1.0
0x339754…3398e8 ]
0x339754…3398e8 }
0x3398e8…339a7c Dummy {f00=0x0100, f01=0x018e, f02=» 2 P IDENT MONTAB REL 11.0 81-05-27 870105041100 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P
0x339a7c…339c10 Dummy {f00=0x0100, f01=0x018e, f02=» P P P P P EXTRN KBAD4 ( P EXTRN TPAD < P EXTRN GPAD P P EXTRN DNAD d P EXTRN DIAD x P EXTRN DYAD P EXTRN MSAD P EXTRN ODAD P EXTRN TPAD3 P EXTRN GPAD8 P EXTRN GPAD3 P EXT
0x339c10…339da4 Dummy {f00=0x0100, f01=0x0190, f02=» PMONTAB EQU * PFREQUE DATA 0 PPAGQUE DATA 0,0 2 P J P R P Z P b P j P r P z P 2 PSPDLCI DATA 0 LIGHTS CORE IMAGE (0=ON 1=OFF) P P P P P P P P P P
0x339da4…339f38 Dummy {f00=0x0100, f01=0x4118, f02=»A DYAD P* P* P* " P* , P DATA MSAD 6 P DATA ODAD H P DATA TPAD3 Z P DATA GPAD8 n P* P* P* P DATA GPAD04 P DATA VUAD P DATA GPAD3 P DATA TPAD4 P DATA TNAD P P
0x339f38…33a0cc Dummy {f00=0x0100, 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
0x33a0cc…33a260 Dummy {f00=0x0100, f01=0x0190, f02=»* P*********** P* ( P* TERMINAL DEVICE DRIVER REQUESTS ( P* T ( P ENTRY INPUT INPUT OF ONE CHARACTER ^ ( P ENTRY STABLK DEFINE START OF BLOCK * P ENTRY OUTPUT OUTPUT OF ONE CHARACTER & P ENTRY ENDBLK DEFINE END OF BLOCK
0x33a260…33a3f4 (1, 890) Opaque[0x194]
0x33a3f4…33a588 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2010, f03=0x0000}
0x33a3f4…33a588 IdxSect {
0x33a3f4…33a588 f00 = 0x0100 // 0x33a3f4 @0x0
0x33a3f4…33a588 f01 = 0x0006 // 0x33a3f6 @0x2
0x33a3f4…33a588 gno = [ // 0x33a3f8 @0x4
0x33a3f4…33a588 [0x00]: C0x0100.0x2.0
0x33a3f4…33a588 [0x01]: C0x0100.0x3.0
0x33a3f4…33a588 [0x02]: C0x0101.0x0.0
0x33a3f4…33a588 ]
0x33a3f4…33a588 }
0x33a588…33a71c Dummy {f00=0x0100, f01=0x0190, f02=» 2 P IDENT MONTIM REL 11.0 81-01-26 870105041100 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* MONTIM = MONITOR CLOCK/DATE PROCESSORS P*
0x33a71c…33a8b0 Dummy {f00=0x0100, f01=0x0190, f02=» @ P* THIS MODULE CONTAINS TOSS MONITOR CLOCK/DATE PROCESSORS P* H 0 P* -GETTIM GET TIME FROM MONITOR CLOCK R P* . P* -SETTIM SET TIME IN MONITOR CLOCK P* 0 P* -GETDAT GET DATE FROM MONITOR CLOCK P* .
0x33a8b0…33aa44 Dummy {f00=0x0100, f01=0x0190, f02=»* P*********** P* P* ( . P ENTRY GETTIM GET TIME FROM MONITOR CLOCK 2 , P ENTRY SETTIM SET TIME IN MONITOR CLOCK d . P ENTRY TDATE GET/SET DATE IN MONITOR CLOCK P EJECT MONTIM P* P* P************* P
0x33aa44…33abd8 Dummy {f00=0x0100, f01=0x0190, f02=»H l P EXTRN TTB:SA TTAB SAVE AREA P EJECT MONTIM . P* F P* P . P***************************************** Z P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P* . P* A PROGRAM VE
0x33abd8…33ad6c Dummy {f00=0x0100, f01=0x0190, f02=»M P* P* P********** P* GETTIM * 0 P********** B P* T P* ^ , P* THIS IS THE GET TIME LKM PROCESSOR. h P* , P* IT IS ENTERED FROM THE LKM HANDLER 0 P* WITH ADDRESS TO THE USER TIMER CONTROL 2 P*
0x33ad6c…33af00 Dummy {f00=0x0100, f01=0x0190, f02=»ONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P* 0 $ PGETDAT EQU * ENTRY USED BY TDATE : P LDK A3,6 COUNTER b P LDR* A6,A7 SECONDS | P STR A6,A15 SAVE ON STACK P SUK A7,2 P LDR* A6,A7 MINUTES P STR A6,A15 SAVE ON STACK
0x33af00…33b094 (1, 891) Dummy {f00=0x0100, f01=0x0190, f02=» SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 . ( P SCR A6,A8 STORE LEFTHAND CHARACTER @ P XIF l P* x P EJECT MONTIM P* P* P IFT MMUPAG=1 . P LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS P ANK A4,1 " P
0x33b094…33b228 Dummy {f00=0x0100, f01=0x0190, f02=»A1,1,A8 P ELR A4,A8 P SRL A6,8 " P ANKL A4,/FF00 4 P ORR A6,A4 J P* 6 PGETT15 ESR A6,A8 SET VALUE IN TIMER CONTROL BLOCK f P XIF P* P SUK A3,2 P RF(E) GETT20 P ADKL A8,2 , P LDR* A6,A15 GET ACTUAL
0x33b228…33b3bc Dummy {f00=0x0100, f01=0x0190, f02=»ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 " P* X PTPDIS EQU * b P CMR A7 CLEAR MIDNIGTH CARRY v P ABL LKMQDI P* P EJECT MONTIM P* P* P********** P* SETTIM * P
0x33b3bc…33b550 Dummy {f00=0x0100, f01=0x0190, f02=»WITH h 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS @ $ P* COPIED INTO MONITOR CLOCK. t P* P* PSETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P* $ P
0x33b550…33b6e4 Dummy {f00=0x0100, f01=0x0190, f02=»6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 $ ( P LC A6,1,A8 GET RIGHTHAND CHARACTER 6 P XIF b P* n P EJECT MONTIM x P* P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CON
0x33b6e4…33b878 Dummy {f00=0x0100, f01=0x0190, f02=» SLL A6,8 P SRL A4,8 P ORR A6,A4 $ P* 6 PSETT15 EQU * @ P XIF T P* ` $ P CF A15,ASCTBY CONVERT TO BINARY j P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS AND MINUTES P RB
0x33b878…33ba0c Dummy {f00=0x0100, f01=0x0190, f02=» l P SUK A7,2 P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK . P SUK A7,2 Z P LDR* A6,A15 l & P STR A6,A7 HOURS TO MONITOR CLOCK P SUK A7,2 P RB TPDIS P* P EJECT MONTIM P* P* P****
0x33ba0c…33bba0 Dummy {f00=0x0100, f01=0x0190, f02=» IT IS ENTERED FROM THE LKM HANDLER ( P* WITH THE FOLLOWING PARAMETERS: , P* X $ P* A7 = GET/SET DATE PARAMETER b < P* (A7 = 0 MEANS GET DATE, A7 = 1 MEANS SET DATE) & P* A8 = DATE CONTROL BLOCK (DCB) P* P* 0 P
0x33bba0…33bd34 (1, 892) Dummy {f00=0x0101, f01=0x0190, f02=»DK A1,0 SET CR P RB(Z) GETDAT GET DATE P RB SETDAT SET DATE 4 P* P P EJECT MONTIM Z P* r P* | P********** P* BYTASC * P********** P* P* 2 P* BYTASC = SUBROUTINE TO CONVERT A6-CONTENT ( P*
0x33bd34…33bec8 Dummy {f00=0x0101, f01=0x0190, f02=»* PBYTA10 SUK A6,/A P RF(N) BYTA20 " P ADKL A4,/100 8 P RB BYTA10 N P* ` PBYTA20 ADK A6,/A j P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P* P EJECT MONTIM P* P* P********** P* ASCT
0x33bec8…33c05c Dummy {f00=0x0101, f01=0x414e, f02=»RY. p P* RESULT IN A6. P* 0 P* : PASCTBY EQU * D P LDR A4,A6 X P ANK A6,/F j P SRL A4,8 | P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P*
0x33c05c…33c1f0 Dummy {f00=0x0101, 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
0x33c1f0…33c384 Dummy {f00=0x0101, f01=0x018e, f02=»A FOR A5 RES 4 DWT STACK DATA 0 SAVE AREA FOR A7 ( DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER-2 h " DATA 0 LINE DRIVER DEPENDENT " DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS P DATA ECH
0x33c384…33c518 Dummy {f00=0x0101, f01=0x4128, f02=» P DATA 0 TIMER , P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE , P DATA DWTSQ+DVTKB POINTER TO LAST PLACE J PDWTSQ EQU *-DVTKB z P DATA 0 CIRCULAR BUFFER IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 XIF DWTE
0x33c518…33c6ac Dummy {f00=0x0101, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x33c6ac…33c840 Dummy {f00=0x0101, f01=0x0190, f02=»00002 P EXTRN SCTOPT SYSTEM OPTION $ P EXTRN SCTPAG PAGE TABLE ADDRESS 2 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE Z P EXTRN SCTBUG BUGGER ADDRESS , P EXTRN STKEND START OF SCRATCH-PAD AREA * P EXTRN STKCOM START OF COMMON-PAD
0x33c840…33c9d4 (1, 893) Opaque[0x194]
0x33c9d4…33cb68 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2028, f03=0x0000}
0x33c9d4…33cb68 IdxSect {
0x33c9d4…33cb68 f00 = 0x0101 // 0x33c9d4 @0x0
0x33c9d4…33cb68 f01 = 0x000e // 0x33c9d6 @0x2
0x33c9d4…33cb68 gno = [ // 0x33c9d8 @0x4
0x33c9d4…33cb68 [0x00]: C0x0101.0x1.0
0x33c9d4…33cb68 [0x01]: C0x0101.0x2.0
0x33c9d4…33cb68 [0x02]: C0x0101.0x3.0
0x33c9d4…33cb68 [0x03]: C0x0102.0x0.0
0x33c9d4…33cb68 [0x04]: C0x0102.0x1.0
0x33c9d4…33cb68 [0x05]: C0x0102.0x2.0
0x33c9d4…33cb68 [0x06]: C0x0102.0x3.0
0x33c9d4…33cb68 ]
0x33c9d4…33cb68 }
0x33cb68…33ccfc Dummy {f00=0x0101, f01=0x0190, f02=» 0 P IDENT MSUBS REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x33ccfc…33ce90 Dummy {f00=0x0101, f01=0x0190, f02=»OLLOWING MONITOR r P* SUBROUTINES: P* 0 , P* -SAVE8 SAVE 8 REGISTERS ON STACK : , P* -QTJOB QUEUE TASK FOR DISPATCHING j 4 P* -QMJOB QUEUE MONITOR TASK FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x33ce90…33d024 Dummy {f00=0x0101, f01=0x0190, f02=» SET A MONITOR BLOCK FREE 4 P* -FNDDWT FIND DWT ADDRESS IN TTAB OR CDTAB " , P* -FNDDWD FIND DWT ADDRESS IN CDTAB Z * P* -FNDTID FIND TASK IDENTIFICATION P* -PFINIT RESTART DEVICE $ P* -SWL48 SWITCH TO LEVEL 48 $ P*
0x33d024…33d1b8 Dummy {f00=0x0101, f01=0x0190, f02=»* P* P*********** P* ENTRIES * ( P*********** < P* P P* Z " P ENTRY SAVE8 SAVE 8 REGISTERS d P ENTRY QTJOB QUEUE TASK $ P ENTRY QMJOB QUEUE MONITOR TASK & P ENTRY ACTOT ACTIVATE TASK (FIFO) & P ENTRY ACTOT
0x33d1b8…33d34c Dummy {f00=0x0101, f01=0x0190, f02=»NDDWT FIND DWT IN TTAB OR CDTAB $ P ENTRY FNDDWD FIND DWT IN CDTAB ( , P ENTRY FNDTID FIND TASK INDENTIFICATION P P ENTRY PFINIT RESTART DEVICE $ P ENTRY SWL48 SWITCH TO LEVEL 48 $ P ENTRY SWLXY SWITCH TO LEVEL XY , P ENTRY ILLINT ILLEGA
0x33d34c…33d4e0 Dummy {f00=0x0101, f01=0x0190, f02=» * P ENTRY RELPA2 RELEASE PAGE (2ND ENTRY) " P ENTRY IHRET8 RESTORE FROM A8 2 P ENTRY IHRET2 A2 X " P ENTRY IHRET1 A1 p 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS P EJECT MSUBS P* P* P*************
0x33d4e0…33d674 (1, 894) Dummy {f00=0x0101, f01=0x0190, f02=» FREQUE POINTER TO FIRST FREE MONITOR BLOCK P EXTRN TTABLD LOAD TASK TTAB 4 ( P EXTRN PQEMTY PAGE QUEUE EMPTY FLAG X " P EXTRN PAGQUE FREE PAGE QUEUE $ P EXTRN SEG:PB PAGE BLOCK ADDRESS & P EXTRN PAG:QB QUEUE LINK BACKWARD 4 P EXTRN LKMER
0x33d674…33d808 Dummy {f00=0x0101, f01=0x0190, f02=» TTB:ST TASK STATUS AND PRIORITY LEVEL & P EXTRN TTB:ID TASK IDENTIFICATION . P EXTRN TTB:SA SAVE AREA X * P EXTRN TTB:PP POINTER TO PENDING QUEUE x $ P EXTRN TTB:TD TASK DEVICE TABLE $ P EXTRN SCTTCT TASK CONTROL TABLE & P EXTRN SCTCDT COMM
0x33d808…33d99c Dummy {f00=0x0101, f01=0x0190, f02=»************************* P* " P* CONDITIONAL ASSEMBLY , P* J . P***************************************** T P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0
0x33d99c…33db30 Dummy {f00=0x0101, f01=0x0190, f02=» PCPU852 EQU 1 P* * & . ** A PROGRAM VERSION USING TOSS DISC PAGING 0 * &* IS OBTAINED BY SETTING DSKPAG EQU 1. b * PDSKPAG EQU 0 * P* " PSOP EQU /2E SOP DEVICE ADDRESS P* P EJECT MSUBS P
0x33db30…33dcc4 Dummy {f00=0x0101, f01=0x0190, f02=» p P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS 0 P STR A3,A15 P P STR A4,A15 d P STR A5,A15 x P STR A6,A15 P STR A7,A15 P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) , P ST A3,SAVE81 AN
0x33dcc4…33de58 Dummy {f00=0x0101, f01=0x018e, f02=»H BACK t PSAVE81 EQU *-2 P* $ P EJECT MSUBS . P* D P* N P* Q T J O B X P* n 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. x P* P* ENTRY PARAMETER: P* 0 P* A5 = TTAB ADDRESS OF TASK TO BE QUEUED
0x33de58…33dfec Dummy {f00=0x0101, f01=0x018e, f02=» X P* PUT LAST IN QUEUE. P* & P* 0 PQTJOB EQU * : P INH N P* Z P IFT CPU852=1 d $ P STR A1,A15 SAVE A1-A3 ON STACK z P STR A2,A15 P STR A3,A15 P XIF P* P IFT CPU852=0 " P MSR 3,A15 SAVE A1
0x33dfec…33e180 Dummy {f00=0x0101, f01=0x0190, f02=» d P RF(Z) QTJ020 DISQUE EMPTY & P LD A3,TTB:ST+1,A5 PRIORITY LEVEL * P* T P EJECT MSUBS ^ P* t P* ~ 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL P RF(L) QTJ020 INSERT P LDR A1,A2 SAVE ADDRESS * P LDR* A2,A
0x33e180…33e314 (1, 895) Dummy {f00=0x0101, f01=0x0190, f02=»5,A1 P* P IFT CPU852=1 P ABL IHRET3 , P XIF @ P* L P IFT CPU852=0 V * P MLR 3,A15 RESTORE A1-A3 FROM STACK... l P RTN A15 ...AND RETURN P XIF P* P EJECT MSUBS P* P* P* Q M J O B
0x33e314…33e4a8 Dummy {f00=0x0101, f01=0x0190, f02=» ~ P* A2 = DISPATCH ADDRESS P* A3 = PARAMETER * P* A4 = PARAMETER D P* ^ > P* A5 IS SET TO TTAB ADDRESS OF MONITOR TASK '#M' AND THE h B P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE TASK. P* P* PQMJO
0x33e4a8…33e63c Dummy {f00=0x0101, f01=0x0190, f02=» MSR 8,A15 SAVE A1-A8 ON STACK P XIF & P* 2 P LDKL A5,TTMJOB TTAB ADDRESS < P RF ACT01 ` P* r P EJECT MSUBS | P* P* P* A C T O T , A C T O T P P* & P* SUBROUTINE TO ACTIVATE A TASK. P* P
0x33e63c…33e7d0 Dummy {f00=0x0101, f01=0x0190, f02=» A4 = PARAMETER 2 P* A5 = TTAB ADDRESS P* 8 6 P* - IF REQUESTED TASK IS NOT ACTIVE THE TASK IS B : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. | < P* - IF TASK IS ACTIVE, THE REQUEST IS PUT IN A PENDING P* QUEUE.
0x33e7d0…33e964 Dummy {f00=0x0101, f01=0x0190, f02=» R P* P* PACTOTP EQU * P IFT CPU852=1 0 & P CF A15,SAVE8 SAVE A1-A8 ON STACK F P XIF p P* | P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P LDK A6,1 INDICATE LIFO P RF
0x33e964…33eaf8 Dummy {f00=0x0101, f01=0x018e, f02=»STACK t P XIF P* P IFT CPU852=0 $ P INH : " P MSR 8,A15 SAVE A1-A8 ON STACK F P XIF l P* x PACT01 LDK A6,0 INDICATE FIFO P* PACT03 EQU * , P LD A7,TTB:SA,A5 (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PR
0x33eaf8…33ec8c Dummy {f00=0x0101, f01=0x0190, f02=» p & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER " P ST A4,TTB:SA+8,A5 PARAMETER 2 2 P LD A4,TTB:ID,A5 SET TASK ID X * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA | P XIF P* P IFT CPU852=0 P LD A2,TTB:ID,A5 TASK ID 6 P MS 4,TTB:SA+2,A5
0x33ec8c…33ee20 Dummy {f00=0x0101, f01=0x0190, f02=»TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT P XIF 6 P* B P CF A15,QTJOB QUEUE THE TASK L P* p PACT010 EQU * z P IFT CPU852=1 ( P RF IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 R
0x33ee20…33efb4 (1, 896) Dummy {f00=0x0102, f01=0x0190, f02=» PENDING QUEUE ~ P* & PACT020 LDR A7,A4 SAVE PARAMETER 2 $ P CF A15,GETBLK GET A FREE BLOCK J P LDR A1,A7 PARAMETER 2 r P LDR A2,A4 P CF A15,GETBLK P ADKL A5,TTB:PP P* " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5
0x33efb4…33f148 Dummy {f00=0x0102, f01=0x0190, f02=»T030 NOT END OF QUEUE P* PACT040 EQU * ( " P STR A4,A3 SET BLOCK IN QUEUE < P STR A5,A4 b P RB ACT010 t P* P EJECT MSUBS P* P* P* E X I T P* 6 P* SUBROUTINE TO SET A TASK FREE AND QUEUE FIRS
0x33f148…33f2dc Dummy {f00=0x0102, f01=0x0190, f02=» A7 ARE DESTROYED P* P* $ PEXIT EQU * . ( P CM TTB:SA,A5 RESET DISPATCH ADDRESS @ , P LD A4,TTB:PP,A5 PENDING REQUEST POINTER l $ P RF(Z) IHRTN NO PENDING REQUEST P LDR* A3,A4 QUEUE THREAD 0 P ST A3,TTB:PP,A5 AND SAVE IN PENDING
0x33f2dc…33f470 Dummy {f00=0x0102, f01=0x018e, f02=»EBLK P LDR A4,A7 PARAMETER 2 P RB ACTOT ACTIVATE TASK * P* J P EJECT MSUBS T P* j P* t P* G E T B L K ~ P* 4 P* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR 8 P* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FO
0x33f470…33f604 Dummy {f00=0x0102, f01=0x0190, f02=» P* PGETBLK EQU * P INH " P STR A5,A15 SAVE A5 . , P LD A4,FREQUE FIRST BLOCK IN FREE QUEUE J P RF(NZ) GBL010 z P LDK A1,/B HALT PARAMETER , P CF A15,HALT HALT IF NO MORE FREE BLOCKS P* PGBL010 LDR* A5,A4 . P S
0x33f604…33f798 Dummy {f00=0x0102, f01=0x0190, f02=»,A15 RESTORE A5 P* P IFT CPU852=1 " P RF IHRTN 8 P XIF J P* V P IFT CPU852=0 ` P RTN A15 v P XIF P* P EJECT MSUBS P* P* P* F R E B L K P* : P* SUBROUTINE TO GET PARAMETERS
0x33f798…33f92c Dummy {f00=0x0102, f01=0x0190, f02=» z P* P* EXIT PARAMETERS: P* . & P* A3 = FIRST PARAMETER IN BLOCK 8 $ P* A2 = SECOND " " b $ P* A1 = THIRD " " P* P* PFREBLK EQU * P INH P LDR* A3,A4 UPDATE A3 P LD
0x33f92c…33fac0 Dummy {f00=0x0102, f01=0x0190, f02=» P RF IHRTN P XIF P* & P IFT CPU852=0 0 P RTN A15 F P XIF V P* b P EJECT MSUBS l P* P* P* F N D D W T P* 2 P* SUBROUTINE TO FIND A DWT IN TTAB OR CDTAB. P* P* ENTRY PARAME
0x33fac0…33fc54 (1, 897) Dummy {f00=0x0102, f01=0x0190, f02=» = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* B P* L P* F N D D W D V P* n * P* SUBROUTINE TO FIND A DWT IN CDTAB. x P* P* ENTRY PARAMETERS: P* P* A2 = FILE CODE P* $ P* EXIT PAR
0x33fc54…33fde8 Dummy {f00=0x0102, f01=0x0190, f02=»D FILE CODE FROM ECB P XIF P* ( P IFT MMUPAG=0 2 ( P LDR* A2,A8 LOAD FILE CODE FROM ECB H P XIF t P* P STR A1,A15 SAVE A1 P LDKL A6,TTB:TD+2 , P ADR A6,A5 ADDRESS TO TASK DEVICE TABLE P LD A1,-2,A6 TABLE LENGT
0x33fde8…33ff7c Dummy {f00=0x0102, f01=0x018e, f02=» FND200 FILE CODE FOUND ( P ADK A6,4 ADDRESS TO NEXT FILE CODE P RB FND100 TRY NEXT L P* h P EJECT MSUBS r P* $ P* SEARCH IN COMMON DEVICE TABLE P* PFNDDWD EQU * P STR A1,A15 SAVE A1 P* & PFND110 LD
0x33ff7c…340110 Dummy {f00=0x0102, f01=0x018e, f02=» & P RF(N) FND130 FILE CODE NOT FOUND ! P CC A2,1,A6 ! . " P RF(E) FND200 FILE CODE FOUND ! B ( P ADK A6,4 ADDRESS TO NEXT FILE CODE ! h & P RB FND120 TRY NEXT ENTRY IN CDTAB ! P* ! PFND130 LDK A6,0 ! P RF IHRET1 ! P* ! PFND200 EQU *
0x340110…3402a4 Dummy {f00=0x0102, f01=0x0190, f02=» P* " P* F N D T I D " P* " & B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. " 0 P* " v P* ENTRY PARAMETER: " P* " P* A7 = TASK IDENTIFICATION " P* " P* EXIT PARAMETER: " P* " P* A2 = TTAB
0x3402a4…340438 Dummy {f00=0x0102, f01=0x0190, f02=» TCTAB LENGTH " P AD A1,SCTTCT # P* # , PFTI010 SUK A1,2 # 6 P CW A1,SCTTCT # N $ P RF(E) FTI030 ALL TTABS EXAMINED # d P LDR* A2,A1 TTAB ADDRESS # , P CW A7,TTB:ID,A2 COMPARE IDENTIFICATIONS # P RB(NE) FTI010 NO MATCH # P RF IHRET1
0x340438…3405cc Dummy {f00=0x0102, f01=0x0190, f02=» RESTORE REGISTERS AND RETURN WITHOUT # P* ENABLE INTERRUPTS. $ . P* $ L P* $ V P IFT CPU852=1 $ ` PIHRET8 LDR* A8,A15 $ v P LDR* A7,A15 $ P LDR* A6,A15 $ P LDR* A5,A15 $ P LDR* A4,A15 $ P* $ PIHRET3 LDR* A3,A15 $ P* $
0x3405cc…340760 Dummy {f00=0x0102, f01=0x0190, f02=» ABR* A15 AND RETURN $ P XIF % P* % ( P IFT CPU852=0 % 2 0 PIHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... % H P RTN A15 ...AND RETURN % | P* % 0 PIHRET2 MLR 2,A15 RESTORE A1-A2 FROM STACK... % P RTN A15 ...AND RETURN % P* % 0 PIHRET1 L
0x340760…3408f4 (1, 898) Dummy {f00=0x0102, f01=0x0190, f02=» % P* & P* P F I N I T & P* & * & P* SUBROUTINE TO RESTART DEVICES. & 4 P* & ^ @ P* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALLED. & h @ P* REGISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. & P* & P* & PPFIN
0x3408f4…340a88 Dummy {f00=0x0102, f01=0x0190, f02=»ED & v P STR A1,A15 SAVE A1 ' P INH ' & * P CFI A15,PFTAB,A1 CALL RESTART MODULE ' 2 P LDR* A1,A15 RESTORE A1 ' ` P ADK A1,2 NEXT DEVICE ' P RB PFI100 ' P* ' * PPFI110 RTN A15 RETURN WHEN ALL STARTED ' P* ' P EJECT MSUBS ' P
0x340a88…340c1c Dummy {f00=0x0102, f01=0x018e, f02=»TR A1,A15 SAVE A1 ' P* ( PSWL481 EQU * ( $ $ P LDKL A1,/C0C0 PSW FOR LEVEL 48 ( 8 P* ( ` PSWL482 EQU * ( j & P ST A1,4,A15 SAVE IT ON A15 STACK ( ~ P LDR* A1,A15 RESTORE A1 ( P RTN A15 ( P* ( P EJECT MSUBS ( P* ( P* (
0x340c1c…340db0 Dummy {f00=0x0102, f01=0x0190, f02=» 0 P* LEVEL := XY " " " " " XY < 48 ) P* ) 8 > P* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. ) B P* ) P* ) PSWLXY EQU * ) P STR A1,A15 SAVE A1 ) " P LC A1,24,A15 LEVEL FROM STACK ) P ANK A1,/FC ) P SUK A
0x340db0…340f44 Dummy {f00=0x0102, f01=0x0190, f02=»BS ) P* * P* * & P* INTERRUPT SAVE AND HALT MODULE * P* * H P* * R PINTSAV DATA 0 * PSAVA15 DATA 0 * r P* * " PILLINT LDK A1,5 HALT PARAMETER * P CF A15,HALT * P* * PHALT EQU * * P IFT CPU852=1 * & P CF A15,SA
0x340f44…3410d8 Dummy {f00=0x0102, f01=0x0190, f02=» A13,A15 * P STR A14,A15 + P XIF + $ P* + 0 P IFT CPU852=0 + : $ P MSR 14,A15 SAVE A1-A14 ON STACK + P P XIF + x P* + P ST A15,SAVA15 + ( P OTR A1,0,SOP INDICATE TYPE OF HALT + P HLT + P* + P EJECT MSUBS + P* + P*
0x3410d8…34126c Dummy {f00=0x0102, f01=0x0190, f02=»: + | P* , 6 P* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) , " P* A5 = TTAB ADDRESS (RELPA2) , N P* , t P* EXIT PARAMETER: , ~ P* , P* A4 IS DESTROYED , P* , P* , P IFT DSKPAG=1 , PRELPA2 EQU * , 6 P CM TTB:SB
0x34126c…341400 Dummy {f00=0x0102, f01=0x018e, f02=» PAGE BLOCK ADDRESS , P* - PREL:10 EQU * - & " P LDKL A4,PAGQUE PAGQUE ADDRESS - : P ST A4,PAG:QB,A3 - ` 0 P LDR* A4,A4 ADDRESS OF FIRST BLOCK IN PAGQUE - x " P STR A4,A3 UPDATE QUEUE LINKS - P ST A3,PAGQUE - P ST A3,PAG:QB,A4 - 4 P LD A4,P
0x341400…341594 (1, 899) Dummy {f00=0x0102, f01=0x018e, f02=» - x P* . , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY . P LDR A4,A5 SAVE A5 . B ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS . $ P CF A15,QTJOB RESTART LOAD TASK . P LDR A5,A4 RESTORE A5 . P* . PREL:20 EQU * . P IFT CPU852=1 . P RB IH
0x341594…341728 Dummy {f00=0x0102, f01=0x40b2, f02=» 2 PRELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. / PRELPA2 EQU * / : & P ABL LKMERR INDICATE SYSGEN ERROR / N P XIF / x P* / P* / P* / P END / @ / DR A5,A4 RESTORE A5 . P* . PREL:20 EQU * . P IFT CPU852=1 . P RB IH
0x341728…3418bc Dummy {f00=0x0102, f01=0x2008, f02=» 0 5 STACK " ~ P LDR* A1,A15 RESTORE A1 # P RTN A15 RETURN TO CALLER # 8 P* # Z P END # d@ # pN WHEN ALL STARTED " ` P EJECT " P* " P* " P* S W L 4 8 " P* " : P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48. "
0x3418bc…341a50 Dummy {f00=0x0102, f01=0x0190, f02=»MCDEF' BUT LOGICALLY BELONG TO OPEN/CLOSE. 0 * 1 2 ( P* A SPECIAL ENTRY IS USED FOR I/O 1 < . P* FUNCTIONS WHERE REQUESTED SECTORS ARE 1 h , P* SPLIT OVER TWO OR MORE FILE EXTENTS: 1 P* 1 > P* - FMSPLI READ/WRITE (SPLIT I/O) (OPTIO
0x341a50…341be4 Dummy {f00=0x0102, f01=0x0190, f02=» = PARAMETER BLOCK ADDRESS (SPLIT I/O) 1 * %* A3 = TTAB ADDRESS OF CALLING TASK 2 . J P* A4 = FUNCTION INDEX (0 = RFP, 2 = OPEN, 4 = CLOSE, 6 = SPLIT I/O) 2 P* A8 = FM:ECB ADDRESS 2 * 2 EJECT FMTASK 2 * 2 * 2 ( PFMTASK E
0x341be4…341d78 Dummy {f00=0x0102, f01=0x0190, f02=» TTAB ADDRESS OF CALLING TASK 2 . P ST A5,TTAB SAVE TTAB ADDRESS CALLING TASK 3 & P LDR A7,A1 SAVE PARAMETER 3 X P* 3 z P IFT CPU852=1 3 . P LDKL A2,FM:BUF FMTASK DISC SECTOR BUFFER 3 . P ST A2,ECBBA,A8 SET BUFFER ADDRESS IN ECB 3 P LDKL A2,2
0x341d78…341f0c Dummy {f00=0x0102, f01=0x0190, f02=»UF,256 3 P MSR 3,A8 INITIALIZE FM:ECB 4 P LDR A1,A7 RESTORE PARAMETER 4 2 P XIF 4 V P* 4 b P CM RETCOD RESET RETURN CODE 4 l ( P LD A9,TTB:SA+16,A5 USER ECB ADDRESS 4 & P LDKL A14,FM:STB FMTASK STACK BASE 4 P* 4 P IFT MMUPAG=0 4 ( P L
0x341f0c…3420a0 Dummy {f00=0x0102, f01=0x0190, f02=»B:MT,A5 USER MMU TABLE 4 , P TS TTB:MT,A3 STORE IN FMTASK MMU TABLE 5 , P EL A10,ECBBA,A9 USER FPB/BUFFER ADDRESS 5 N P XIF 5 ~ P* 5 P EJECT FMTASK 5 P* 5 0 P* BRANCH TO APPROPRIATE FUNCTION HANDLER. 5 P* 5 0 P* THE FOLLOWING PA
0x3420a0…342234 (1, 900) Opaque[0x194]
0x342234…3423c8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2060, f03=0x0000}
0x342234…3423c8 IdxSect {
0x342234…3423c8 f00 = 0x0103 // 0x342234 @0x0
0x342234…3423c8 f01 = 0x0002 // 0x342236 @0x2
0x342234…3423c8 gno = [ // 0x342238 @0x4
0x342234…3423c8 [0x00]: C0x0103.0x0.0
0x342234…3423c8 ]
0x342234…3423c8 }
0x3423c8…34255c Dummy {f00=0x0103, f01=0x018e, f02=» 0 P IDENT PFTAB REL 11.0 81-01-26 870105041100 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x34255c…3426f0 Dummy {f00=0x0103, f01=0x0190, f02=» P EXTRN SOPR SOP. PANEL ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS " P EXTRN FDON FLEXIBLE DISC N P EXTRN LPON LINE PRINTER p P EXTRN CRON CARD READER P EXTRN DUON DISC UNIT P EXTRN MDON MINI FIXED DISC $ P EXTRN MTDRON MAGNETIC
0x3426f0…342884 Dummy {f00=0x0103, f01=0x0190, f02=»N CDC DISC P EXTRN PLON LINE CONTROLLER P EXTRN VUON VIDEO 6 P EXTRN X25:ON X25 LEVEL 3 P P r P z P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TWON P DATA TCDRON P DATA SOPR P DATA CHLTON
0x342884…342a18 Dummy {f00=0x0103, f01=0x4152, f02=»A DUON P DATA MDON MINI FIXED DISC P DATA MTDRON 0 P DATA FMINIT FILE MANAGEMENT D P DATA SLCUON SALCUZ h P DATA ASCUON ASCU4Z P DATA CDON CDC DISC P DATA PLON LINE CONTROLLER P DATA VUON VIDEO P DATA X25:ON X25 L
0x342a18…342bac Dummy {f00=0x0103, 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
0x342bac…342d40 Dummy {f00=0x0103, f01=0x2008, f02=»
0x342d40…342ed4 (1, 901) Opaque[0x194]
0x342ed4…343068 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2068, f03=0x0000}
0x342ed4…343068 IdxSect {
0x342ed4…343068 f00 = 0x0103 // 0x342ed4 @0x0
0x342ed4…343068 f01 = 0x0002 // 0x342ed6 @0x2
0x342ed4…343068 gno = [ // 0x342ed8 @0x4
0x342ed4…343068 [0x00]: C0x0103.0x1.0
0x342ed4…343068 ]
0x342ed4…343068 }
0x343068…3431fc Dummy {f00=0x0103, f01=0x40e8, f02=» 2 P IDENT SCLASS REL 11.0 81-01-26 870105041100 P : P* B P* L P ENTRY SCLASS V P* l P* v P* P* P* P* PSCLASS DATA TCLASE-* PTCLASE EQU * P END @
0x3431fc…343390 Dummy {f00=0x0103, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x343390…343524 Dummy {f00=0x0103, f01=0x2008, f02=»
0x343524…3436b8 Dummy {f00=0x0103, f01=0x0190, f02=» AND NUMBER OF USERS B x P* C , P LC A1,FPB:SH,A10 SHAREABILITY PARAMETER C & P ANK A1,/FF C V & P RF(Z) OP:020 NO ATTACH REQUESTED C j 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) C $ P RF(Z) OP:018 FILE NOT ATTACHED C . P CW A2,TTAB CHECK IF ATT
0x3436b8…34384c Dummy {f00=0x0103, f01=0x0190, f02=»LING TASK C t & P ST A5,FWTTAB,A6 INDICATE ATTACHED D P* D < POP:020 EQU * D F & P LC A1,FWTPAR,A6 ACCESS PARAMETERS D Z P LDR A2,A1 D P ANK A1,/3F NUMBER OF USERS D P SUK A1,/3F D P ABL(NZ) OPEXIT D P* D P EJECT FMTASK D P
0x34384c…3439e0 Dummy {f00=0x0103, f01=0x0190, f02=»O FREE FWT AVAILABLE D P LDKL A4,/8400 RETURN CODE E P RF ER:RTN E > P* E P POP:040 EQU * FILE ATTACHED E Z P LDK A4,/40 RETURN CODE E | P* E PER:RTN EQU * E & P ORS A4,RETCOD PREPARE RETURN CODE E P ABL FMEXIT RETURN E P* E P
0x3439e0…343b74 (1, 902) Opaque[0x194]
0x343b74…343d08 # DirEnt {nam=»SDMBUF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2070, f03=0x0000}
0x343b74…343d08 IdxSect {
0x343b74…343d08 f00 = 0x0103 // 0x343b74 @0x0
0x343b74…343d08 f01 = 0x000a // 0x343b76 @0x2
0x343b74…343d08 gno = [ // 0x343b78 @0x4
0x343b74…343d08 [0x00]: C0x0103.0x2.0
0x343b74…343d08 [0x01]: C0x0103.0x3.0
0x343b74…343d08 [0x02]: C0x0104.0x0.0
0x343b74…343d08 [0x03]: C0x0104.0x1.0
0x343b74…343d08 [0x04]: C0x0104.0x2.0
0x343b74…343d08 ]
0x343b74…343d08 }
0x343d08…343e9c Dummy {f00=0x0103, f01=0x0190, f02=» 2 P IDENT SDMBUF REL 11.0 81-01-26 870105041100 P : 8 P**************************************************** B P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* SDMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P*
0x343e9c…344030 Dummy {f00=0x0103, f01=0x0190, f02=»SK n P* . P* A ROUTINE SDMGBU TO GET A DISC BUFFER P* F L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL P P* P* MAX VALUE OF QNBUF IS 16 P* P* P EJECT P* P**************
0x344030…3441c4 Dummy {f00=0x0103, f01=0x0190, f02=»K x P ENTRY BUFDMI DMTASK IDENT P ENTRY BUFSNR SECTOR NO , P ENTRY BUFOR ORDER L * P ENTRY BUFSTA DATA AREA START ADDRESS f P ENTRY SDMGBU GET A BUFFER " P ENTRY SDMRBU RELEASE A BUFFER $ P ENTRY BLKMXL MAXIMUM BLOCK SIZE * P ENT
0x3441c4…344358 Dummy {f00=0x0103, f01=0x0190, f02=» ENTRY CRNEND P ENTRY MXIND P* * P EXTRN HALT 4 P EXTRN FDBSTA H P EXTRN SCTFWT ^ P EXTRN ECBBA t P EJECT P* P* CONDITIONAL ASSEMBLY P* PX:A EQU 8 PX:B EQU 128 ( PQNBUF EQU X:A NUMBER OF DI
0x344358…3444ec Dummy {f00=0x0103, f01=0x0190, f02=»WORDS ^ 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER P* F PX:C EQU 90 P PCRNBAR EQU X:C CURRENCY AREA b P* 6 P* MXSIZ IS THE SIZE OF THE MASTER INDEX AREA IN P* WORDS P* PX:D EQU 0 $ PMXSIZ EQU X:D MA
0x3444ec…344680 Dummy {f00=0x0103, f01=0x0190, f02=»BUFL EQU 8 P XIF P EJECT P* , P************** 6 P* SDMGBU * L P************** b P* x * P* ENTRY SDMGBU GET A DISC BUFFER P* P* INPUT A3 = FILE NR " P* A1 = SECTOR NUMBER $ P*
0x344680…344814 (1, 903) Dummy {f00=0x0103, f01=0x0190, f02=»ED P* P* P* ALL BUFFERS ARE SEARCED. 6 P* ONE BUFFER IS SELECTED IN FOLLOWING PRIORITY : B P* | , P* 1. USED BUFFER IN REQ FILE ( DELAY) P* 2. REQ FILE AND SECT NR P* 3. OLDEST UNUSED P* P* IN B
0x344814…3449a8 Dummy {f00=0x0103, f01=0x0190, f02=»R BIT 0-8= DELAY + SAME INDICATOR " P* BUFOR BIT 9-15= BUFFER AGE * P* BUFSTA= BLOCK AREA P P* n P* x P EJECT PSDMGBU EQU * P STR A7,A14 SAVE A7 P INH INH P LD A4,CURBUF P LDK A5,0 PDMT010 LDR* A4
0x3449a8…344b3c Dummy {f00=0x0103, f01=0x0190, f02=»F(Z) DMT015 FREE P SLL A7,1 P SC A7,BUFOR,A4 MARK DELAY * PDMT015 EQU * L P CW A1,BUFSNR,A4 ` P RF(NE) DMT020 x P CW A2,BUFSNR+2,A4 P RF(NE) DMT020 WRONG SECT NR P LDKL A7,/100 & P ORS A7,BUFOR,A4 MARK SAME SECT NR
0x344b3c…344cd0 Dummy {f00=0x0103, f01=0x0190, f02=» STATUS IN BIT 15 P RF(NZ) DMT030 USED P IM BUFOR,A4 MAKE OLDER 6 $ P SC A7,BUFOR,A4 CLEAR LEFT BYTE V PDMT030 EQU * ~ P CW A5,BUFOR,A4 P RF(G) DMT041 NOT OLDER P LD A5,BUFOR,A4 P ST A4,NEWBUF PDMT041 EQU *
0x344cd0…344e64 Dummy {f00=0x0103, f01=0x018e, f02=» Z P* $ P LD A4,NEWBUF CHOOSE THIS BUFFER P ECR A5,A5 : P LDR A5,A5 L P RF(Z) DMT042 NO BUFFER ^ P ANK A5,/3 ~ P RF(Z) DMT043 NO DATA & P LDK A3,0 INDICATE DATA IN BUFFER P ANK A5,/2 P RF(NZ) DMT051 DELAY P R
0x344e64…344ff8 Dummy {f00=0x0103, f01=0x0190, f02=» P* * P* SET CURBUF AND BUFFER HEADER WORDS P* @ P ST A3,BUFDMI,A4 DMIDENT,FC J " P ST A1,BUFSNR,A4 SECTOR NUMBER n P ST A2,BUFSNR+2,A4 * P LDK A3,1 INDICATE BUFFER MUST BE READ PDMT050 EQU * " P CM BUFOR,A4 RESET OLD-C
0x344ff8…34518c Dummy {f00=0x0103, f01=0x0190, f02=»A7,A14 SAVED REGISTER P ENB ENB P RTN A14 0 P EJECT @ P* N P************** X P* SDMRLB * n P************** P* P* ENTRY: A8=ECB ADDRESS P* P* EXIT : A8=NOT CHANGED $ P* A4=BLOCK BUFFER A
0x34518c…345320 Dummy {f00=0x0103, f01=0x018e, f02=»** P* SDMRBU * P************** P* 6 . P* ENTRY SDMRBU RELEASE A DISC BUFFER @ P* r $ P* INPUT A4 = BUFFER ADDRESS | P* A2 IS DESTROYED P* P* PSDMRBU EQU * P IFT CHECK=1 P LD
0x345320…3454b4 (1, 904) Dummy {f00=0x0104, f01=0x018e, f02=» P RB(NE) SDMR10 P LDR A2,A2 PSDMR20 EQU * 0 P XIF D P LDKL A2,/FFFE P P ANRS A2,A4 SET OFF BIT 15 f P RTN A14 P EJECT P************** P* CLRBUF * P************** P P* A2,A3 = DESTROYED
0x3454b4…345648 Dummy {f00=0x0104, f01=0x0190, f02=» P LDK A2,1 P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED . P CM BUFDMI,A3 REMOVE J PDMT750 CW A3,CURBUF f P RB(NE) DMT700 MORE BUFFERS P ENB P RTN A14 P EJECT P* P* PCURBUF DATA BUF1 PNEWBUF DATA
0x345648…3457dc Dummy {f00=0x0104, f01=0x0190, f02=»ATA 0 PBUFSNR EQU *-BUF1 SECTOR NO P DATA 0 2 P DATA 0 B PBUFOR EQU *-BUF1 LRU-WORD R " P DATA 0 BUFFER STATUS,DM ORDER t ( PBUFSTA EQU *-BUF1 DATA BUFFER START PBUFAR EQU * P RES BLKMXL P* P* P IFT Q
0x3457dc…345970 Dummy {f00=0x0104, f01=0x0190, f02=» BLKMXL P XIF P* P* & P IFT QNBUF=2 0 PBUF3 EQU BUF1 D P XIF Z P* f P* p P IFF QNBUF=1 z P IFF QNBUF=2 PBUF3 DATA BUF4 P DATA 0,0,0,0 P RES BLKMXL P XIF P* P* P IFT Q
0x345970…345b04 Dummy {f00=0x0104, f01=0x018e, f02=»A BUF5 P DATA 0,0,0,0 P RES BLKMXL $ P XIF 8 P* D P* N P IFT QNBUF=4 X PBUF5 EQU BUF1 l P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 PBUF5 DATA BUF6 P
0x345b04…345c98 Dummy {f00=0x0104, f01=0x0190, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 " P IFF QNBUF=3 6 P IFF QNBUF=4 J P IFF QNBUF=5 ^ PBUF6 DATA BUF7 r P DATA 0,0,0,0 P RES BLKMXL P XIF P* P* P IFT QNBUF=6 PBUF7 EQU BUF1 P XIF P
0x345c98…345e2c Dummy {f00=0x0104, f01=0x0190, f02=» PBUF7 DATA BUF8 P DATA 0,0,0,0 P RES BLKMXL 0 P XIF D P* P P* Z P IFT QNBUF=7 d PBUF8 EQU BUF1 x P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF
0x345e2c…345fc0 Dummy {f00=0x0104, f01=0x018e, f02=»* P IFT QNBUF=8 PBUF9 EQU BUF1 P XIF 4 P* @ P* J P IFF QNBUF=1 T P IFF QNBUF=2 h P IFF QNBUF=3 | P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 PBUF9 DATA BUF10
0x345fc0…346154 (1, 905) Dummy {f00=0x0104, f01=0x0190, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 & P IFF QNBUF=3 : P IFF QNBUF=4 N P IFF QNBUF=5 b P IFF QNBUF=6 v P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0,0 P RES BLKMXL P
0x346154…3462e8 Dummy {f00=0x0104, f01=0x0190, f02=»UF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 4 P IFF QNBUF=7 H P IFF QNBUF=8 P IFF QNBUF=9 p P IFF QNBUF=10 PBUF11 DATA BUF12 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=11 PBUF12 EQU
0x3462e8…34647c Dummy {f00=0x0104, f01=0x018e, f02=» P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 0 P IFF QNBUF=9 D P IFF QNBUF=10 X P IFF QNBUF=11 n PBUF12 DATA BUF13 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 P XIF
0x34647c…346610 Dummy {f00=0x0104, f01=0x0190, f02=» P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 0 P IFF QNBUF=10 D P IFF QNBUF=11 Z P IFF QNBUF=12 p PBUF13 DATA BUF14 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 P XIF
0x346610…3467a4 Dummy {f00=0x0104, f01=0x0190, f02=» P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 0 P IFF QNBUF=10 D P IFF QNBUF=11 Z P IFF QNBUF=12 p P IFF QNBUF=13 PBUF14 DATA BUF15 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=14 PBUF15 EQ
0x3467a4…346938 Dummy {f00=0x0104, f01=0x0190, f02=»=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 2 P IFF QNBUF=9 F P IFF QNBUF=10 Z P IFF QNBUF=11 p P IFF QNBUF=12 P IFF QNBUF=13 P IFF QNBUF=14 PBUF15 DATA BUF16 P DATA 0,0,0,0 P RES BLKMXL
0x346938…346acc Dummy {f00=0x0104, f01=0x0190, f02=»NBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 " P IFF QNBUF=6 6 P IFF QNBUF=7 J P IFF QNBUF=8 ^ P IFF QNBUF=9 r P IFF QNBUF=10 P IFF QNBUF=11 P IFF QNBUF=12 P IFF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF=15
0x346acc…346c60 Dummy {f00=0x0104, f01=0x0190, f02=» P IFF CRNBAR=0 P RES CRNBAR P XIF . P IFT CRNBAR=0 : P RES 6 DEFAULT P P XIF f PCRNEND EQU * r * PMXIND DATA MXINDE-* LENGTH INDEX INDEX P DATA MXAR MASTER INDEX ADDR " P DATA MXSIZ MASTER INDEX SIEZE P IFF MXSIZ
0x346c60…346df4 (1, 906) Dummy {f00=0x0104, f01=0x0190, f02=» INDEX z 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * D P RES MXSIZ V P EJECT h P* v : P* THIS INITIALIZATION ROUTINE BELONGS TO SDMINI, BUT . P* IS OVERLAYED ON THE FIRST BLOCK BUFFER P* PDMIFIN EQU *
0x346df4…346f88 Dummy {f00=0x0104, f01=0x0190, f02=»A3,SCTFWT ADDR FIRST FWT & P ST A3,FDBSTA QUEUE FIRST FOR EVER P* J P* CHAIN CRN BUFFERS T P* r P LDKL A3,CRNQUE+2 | P ST A3,CRNQUE P LDK A2,CRBUFL P LDKL A6,CRNEND P CF A15,DMIN30 P* < P* CLEAR USE
0x346f88…34711c Dummy {f00=0x0104, f01=0x018e, f02=»A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM BUFSNR,A3 2 P CM BUFSNR+2,A3 H P CM BUFOR,A3 ` P CW A3,CURBUF t P RB(NE) DMIN50 P RTN A15 RETURN P EJECT P* P* P* IN; A2 = LENGTH P* A3= LINK ROO
0x34711c…3472b0 Dummy {f00=0x0104, f01=0x4172, f02=» P LDR A5,A4 ! P SRL A5,1 ! P LDR A1,A6 ! , P SRL A1,1 ! > P CWR A5,A1 ! P " P RF(G) DMIN40 END OF FDB AREA ! b P STR A4,A3 CHAIN ! P LDR A3,A4 ! P RB DMIN30 ! PDMIN40 EQU * ! P SUR A3,A2 ! P CMR A3 END OF FDB CHAIN !
0x3472b0…347444 Dummy {f00=0x0104, f01=0x2008, f02=» " P* DMTRBU * P************** " P* 8 . P* ENTRY DMTRBU RELEASE A DISC BUFFER B P* t $ P* INPUT A3 = BUFFER ADDRESS ~ P* A2 IS DESTROYED P* P* PDMTRBU EQU * P LDKL A2,/FFFE P
0x347444…3475d8 Dummy {f00=0x0104, f01=0x0190, f02=»T: A1 = DISC SECTOR NUMBER, PART 1 0 P* A2 = " " " , PART 2 , . P* A3 = MEMORY ADDRESS (LOGICAL) ` & P* A4 = SWB SIZE (BYTES) . P* A5 = TTAB ADDRESS CALLING TASK & P* A6 = SWB SIZE
0x3475d8…34776c Dummy {f00=0x0104, f01=0x0190, f02=»SEGBLK ADDRESS = 0) Z $ P* A12 = DISC FILE CODE P* D P* N P XIF X P* d & PLTSWB1 EQU * ENTRY USED BY LT:SWB n P ANK A1,/FF P LDK A7,/91 PHYSICAL READ P* P EJECT LDTASK P* P* & PLTSW
0x34776c…347900 Dummy {f00=0x0104, f01=0x0190, f02=»SWB SIZE (WORDS) | P* P* SET ECB PARAMETERS " P* > " P LDKL A8,LD:ECB LD:ECB ADDRESS H * P STR A12,A8 SET DISC FILE CODE IN ECB n ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDR A12,A3 & P LDKL A14,LD:STB LDTASK STACK BASE P*
0x347900…347a94 (1, 907) Opaque[0x194]
0x347a94…347c28 # DirEnt {nam=»SDMOCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2098, f03=0x0000}
0x347a94…347c28 IdxSect {
0x347a94…347c28 f00 = 0x0104 // 0x347a94 @0x0
0x347a94…347c28 f01 = 0x0018 // 0x347a96 @0x2
0x347a94…347c28 gno = [ // 0x347a98 @0x4
0x347a94…347c28 [0x00]: C0x0104.0x3.0
0x347a94…347c28 [0x01]: C0x0105.0x0.0
0x347a94…347c28 [0x02]: C0x0105.0x1.0
0x347a94…347c28 [0x03]: C0x0105.0x2.0
0x347a94…347c28 [0x04]: C0x0105.0x3.0
0x347a94…347c28 [0x05]: C0x0106.0x0.0
0x347a94…347c28 [0x06]: C0x0106.0x1.0
0x347a94…347c28 [0x07]: C0x0106.0x2.0
0x347a94…347c28 [0x08]: C0x0106.0x3.0
0x347a94…347c28 [0x09]: C0x0107.0x0.0
0x347a94…347c28 [0x0a]: C0x0107.0x1.0
0x347a94…347c28 [0x0b]: C0x0107.0x2.0
0x347a94…347c28 ]
0x347a94…347c28 }
0x347c28…347dbc Dummy {f00=0x0104, f01=0x0190, f02=» 2 P IDENT SDMOCR REL 11.0 81-05-12 870105041100 P : P =8,CONDITION FOR CR,DE,EX B P =8,REL 11.0 81-04-02 f * P =7,NO DEL OF FILE WHEN NOT OP. EXC. P =7,REL 11.0 81-03-24 . P =6,NO EXCLUSIVE ACCESS WHEN MXIND READ P
0x347dbc…347f50 Dummy {f00=0x0104, f01=0x0190, f02=»T CORRECT | P =4,REL 11.0 81-02-24 . P =3,FORMAT FIRST RECORD ALSO WHEN LRN=0 2 P =3,REL 11.0 81-02-12 d * P =2,FILE NBR IN WRONG REG. WHEN RFP P =2,REL 11.0 81-02-04 P =1,CLOSE FORMAT CHANGED P =1,REL 11.0 81-01
0x347f50…3480e4 Dummy {f00=0x0104, f01=0x018e, f02=»SDMOCR HANDLES OPEN CLOSE AND READ FILE PARAMETERS $ P* IT IS ACTIVATED FROM SDMTSK : P* b P* l P* v P* P* 8 P**************************************************** P* P EJECT P* P***************
0x3480e4…348278 Dummy {f00=0x0104, f01=0x0190, f02=» P* P***************** P* EXTERNALS * , P***************** F P* ` . P EXTRN CLRBUF,CRNCDF,CRNCIF,CRNGET,CRNQUE j P EXTRN ECBRC 4 P EXTRN FDBADF,FDBBLF,FDBCRL,FDBECB,FDBKA,FDBLRN 4 P EXTRN FDBMEC,FDBMIA,FDBNIF,FDBR
0x348278…34840c Dummy {f00=0x0104, f01=0x018e, f02=»RN MPYMOD,MXIND P EXTRN DIVMOD & P EXTRN FDBDBR,FDBMRO,FDBDMI,FDBBLZ . P EXTRN FDBOMD X P EXTRN ECBFC n P EXTRN ECBBA P EXTRN ECBEL P EXTRN ECBRL P EXTRN DWTECB P EXTRN DWTOR P EXTRN DWTTAB,DWTOPT . P EXT
0x34840c…3485a0 Dummy {f00=0x0104, f01=0x0190, f02=» P EXTRN CASZEN,COSZEN & P EXTRN GTBKBU,FRMFIL,FMIOCR,FMIODL P EJECT J P EXTRN CRNSTA,DFTAB,DMTIDP X P EXTRN SDMERX z P EXTRN MOVFW P EXTRN EARELB P EXTRN TASHLT P EXTRN FDBEAL P EXTRN RECBFZ,REQERR P EXTRN
0x3485a0…348734 (1, 908) Dummy {f00=0x0105, f01=0x0190, f02=»XTRN FDBRRO,FDBSNR P EXTRN FORMER P EXTRN ADDMOD 0 P EXTRN SDMRLB,SDMTTD F P EXTRN ORDFLP b P EXTRN ENLFAC x P EJECT SDMTSK P************************* P* CONDITIONAL ASSEMBLY P**************************
0x348734…3488c8 Dummy {f00=0x0105, f01=0x0190, f02=»QU 0 P* P* P* 6 P* A PROGRAM VERSION FOR INDEXED ACCESS HANDLING * * P* IS OBTAINED BY SETTING INDXAC = 1 d PX:A EQU 0 PINDXAC EQU X:A P* ( P* A VERSION LEAVING OUT OPEN MODES: * P* OPEN OUTPUT,OPEN EXTEN
0x3488c8…348a5c Dummy {f00=0x0105, f01=0x0190, f02=»TA EQU 0 START ADDR FPB ( PFPB:IV EQU FPBSTA+58 VOL NAME INDEX $ PFPB:IS EQU FPBSTA+64 INDEX SIZE L $ PFPB:NI EQU FPBSTA+68 NR OF INDEX t $ PFPB:I1 EQU FPBSTA+70 INDEX ID 1 $ PFPB:A1 EQU FPBSTA+78 KEY ADDR 1 & PFPB:L1 EQU FPBSTA+80 KEY LEN
0x348a5c…348bf0 Dummy {f00=0x0105, f01=0x0190, f02=»IZ EQU 60 SIZE OF FPB AREA IN WORDS P* , 8 PFPBRES EQU 8 RESERVED FIELD LENGTH IN FILE PAR BLOCK 6 P* r $ PNOCORE EQU 1 NO CORE ERROR CODE | P* " PERPAR EQU 4 WRONG PAR ERR CODE P* POFLW EQU 3 OVERFLOW ERR CODE P*
0x348bf0…348d84 Dummy {f00=0x0105, f01=0x018e, f02=» DATA DEFINITIONS * P************************ : P* HERE FOLLOWS NON-REENTRANT AREAS USED BY ORDERS : > ( P* OPEN,CLOSE,READ FILE PARAMETERS. | P* POPESPA DATA ' ' 2 SPACES " POPEFN EQU * FILE NAME PREFIXES P DATA ' '
0x348d84…348f18 Dummy {f00=0x0105, f01=0x018e, f02=» " POPEFCD EQU * OPENED FILE CODES P DATA 0,0,0 . POPEFWT EQU * FWT ADDRESSES B P DATA 0,0,0,0,0 d ( POPEMXI EQU * MASTER INDEX ADDRESSES | P DATA 0,0,0,0,0 0 POPELRN DATA 0,0,0,0,0,0,0,0,0,0 LAST REC NRS P EJECT ( POPEKAD
0x348f18…3490ac Dummy {f00=0x0105, f01=0x0190, f02=» ( PINDVOL RES 3 VOLUME NAME INDEX FILES , POPEFPB RES FPBSIZ FILE ADM PARAM. BLOCK 0 & POPEEND EQU *-OPEFNR-2 NR OF BYTES ` P EJECT 2 P********************************************* 2 P* R E A D F I L E P A R A M E T E R S * 2 P****
0x3490ac…349240 Dummy {f00=0x0105, f01=0x0190, f02=»ALL ORDERS v " P* A7 = ORDER CODE ALL ORDERS P* 8 P LDR A10,A11 FBD ADDR B " P LC A2,FDBNIF,A11 NR OF INDEX ` P ANK A2,/FF P ST A2,NROFIX P* STORE FILE NRS IN OPEFNR P* P LDK A5,10 2 * INDEXES PRFP100 EQU *
0x349240…3493d4 (1, 909) Dummy {f00=0x0105, f01=0x0190, f02=» RFP130 NO FILE P LC A2,FWTFNR,A3 FILE NR PRFP130 EQU * 8 P LDR A4,A5 L P SRL A4,1 ^ " P SC A2,OPEFNR,A4 SAVE FILE NR p P RB RFP100 NEXT FILE P EJECT P*************** P* O P E N * P*************** P
0x3493d4…349568 Dummy {f00=0x0105, f01=0x0190, f02=» P* A12 = FPB ADDRESS P* " P* A9 = LOOP COUNTER FILES , P* P P* 1 = DATA FILE Z P* 2 = INDEX 1 z P* 3 = MASTER INDEX 1 P* 4 = INDEX 2 P* ETC P* P LDR A10,A11 S
0x349568…3496fc Dummy {f00=0x0105, f01=0x0190, f02=» * P CM OPEFNR,A2 P SUK A2,2 * P RB(NN) SDMO10 NO MORE WORDS TO CLEAR 2 P* ` P* MOVE IN PARAMETER BLOCK j P* & P LD A1,DWTECB,A11 USER ECB ADDRESS " P LD A1,ECBBA,A1 FD ADDR USER " P ADK A1,FPBRES RESERVED FIELDS
0x3496fc…349890 Dummy {f00=0x0105, f01=0x018e, f02=» CF A14,MOV:US P XIF P IFT MMUPAG=0 " P CF A14,MOVFW 8 P XIF N P IFT INDXAC=1 Z P EJECT p P* ~ $ P* SAVE VOLUME NAME INDEX FILES P* P LDR A1,A12 FPB ADDR P ADKL A1,FPB:IV FROM ADDR P LDKL A2,INDVOL
0x349890…349a24 Dummy {f00=0x0105, f01=0x0190, f02=» P ST A5,DELAY P IFT INDXAC=1 P LC A5,FPB:FO,A12 2 P ANK A5,/FF L P RF(Z) SDMO30 STANDARD FILE ` " P LC A5,DWTOR+1,A11 ORDER CODE P SUKL A5,SDMOEE 6 P ABL(NN) OERQER OUTPUT SEQ.,RAND.,EXT. NOT ALLOWED $ P LD A5,DWTEC
0x349a24…349bb8 Dummy {f00=0x0105, f01=0x0190, f02=»A5,FPB:NI,A12 NR OF INDEXES P SC A5,NROFIX+1 $ P EJECT < P* J ( P* SAVE BASE ADDRESSES FOR INDEXES T P* P LDK A2,FPB:A1 $ P ADR A2,A12 ADDR FIRST KEY ADDR P ANK A5,/F P LDK A3,2 OFFSET INDEX 1 PSDMO20 EQU *
0x349bb8…349d4c Dummy {f00=0x0105, f01=0x0190, f02=»Z) OESWP4 ERR P LC A1,2,A2 KEY LENGTH P ST A1,OPEKYL,A3 4 P LDR* A1,A2 KEY OFFSET L P ST A1,OPEKAD,A3 j P ADK A2,FPB:I2-FPB:I1 P ADK A3,2 P RB SDMO20 P XIF PSDMO30 EQU * " P LDKL A9,1 INDICATE DATA FILE
0x349d4c…349ee0 Dummy {f00=0x0105, f01=0x0190, f02=»***************** | P P* " @ P* O P E N O R C R E A T E F I L E W I T H F M , P* p POPLENT EQU * z P ST A12,ECBBA,A8 FPB ADDR P LC A5,FPB:BO,A12 P ANK A5,1 ( P SC A5,FPB:BO,A12 ONLY BASIC ALLOWED P
0x349ee0…34a074 (1, 910) Dummy {f00=0x0105, f01=0x0190, f02=»1 =8 P* " P* IF OPEN OUTPUT RANDOM OR " P* OPEN OUTPUT SEQUENTIAL > P* THEN CREATE FILE d P* ~ P LC A5,DWTOR+1,A11 P SUKL A5,SDMOOS & P RF(N) OPL120 NO CREATION OF FILE P EJECT P* P* C R E A T
0x34a074…34a208 Dummy {f00=0x0105, f01=0x0190, f02=»DK A1,'S' FILE TYPE P SC A1,FPB:FO,A12 P LDKL A1,FPB:MN 6 P ADR A1,A12 POINTER IN FPB N ( P LDK A2,11 NUMBER OF BYTES TO RESET p P LDK A3,0 POPL110 EQU * P SCR A3,A1 RESET BYTE P ADK A1,1 UPDATE POINTER P SUK A2,
0x34a208…34a39c Dummy {f00=0x0105, f01=0x0190, f02=»CR CREATE FILE P RF(NZ) OERCA1 ERROR P RF OPL125 2 P XIF =8 D P EJECT V P* d P* O P E N F I L E n P* POPL120 EQU * P CF A14,FMIOOP OPEN P RF(NZ) OERCA1 ERR P* P* SAVE FILE NR P*
0x34a39c…34a530 Dummy {f00=0x0105, f01=0x0190, f02=» EQU * P* P* GET FWT ADDR IN A10 P* 8 P ANK A2,/FF B " P LDKL A10,FDBSTA SYST FDB ADDR V P LDR A3,A2 FILE NR | POPL140 EQU * P RF(Z) OPL150 END COUNT P LDR* A10,A10 NEXT FDB P ANKL A10,/FFFE USE BIT P
0x34a530…34a6c4 Dummy {f00=0x0105, f01=0x0190, f02=» ADDR IN A11 $ P LDK A6,0 DEFAULT ENLARGE FACTOR ( P LC A3,DWTOR+1,A11 INTERN ORDER CODE < P SUKL A3,SDMOEE h & P RF(N) OPL155 NO ENLARGE DECLARED $ P LD A6,FPB:EL,A12 ENLARGE FACTOR POPL155 EQU * P STR A2,A8 FILE NR 4 P CF A14,
0x34a6c4…34a858 Dummy {f00=0x0105, f01=0x0190, f02=»RS A1,ECBRC,A2 RET CODE P XRR A10,A11 P XRR A11,A10 4 P XRR A10,A11 H P EJECT P* j P* A10 = SYSTEM FDB ADDRESS t P* A11 = CURRENT FDB ADDRESS P* P IFT INDXAC=1 P CWK A9,1 P RF(NE) OPL160 INDEX FILE
0x34a858…34a9ec Dummy {f00=0x0105, f01=0x018e, f02=»DR A9,A7 NEW LOOPER , P SUR A13,A13 REL ADDR IN TABLES OF OPEN P RF OPL170 L POPL160 EQU * ^ P LDR A7,A9 r P ANK A7,/FE REL ADDR P LDR A13,A7 POPL170 EQU * P XIF P IFT INDXAC=0 " P SUR A13,A13 IDICATE DATA FILE
0x34a9ec…34ab80 Dummy {f00=0x0105, f01=0x0190, f02=» P . P****************************************** . P* C H E C K O P E N E D F I L E * B . P****************************************** t P P LDK A3,'S' 'S' P CC A3,FPB:FO,A12 $ P RF(NE) OERQER NOT STANDARD FILE " P
0x34ab80…34ad14 (1, 911) Dummy {f00=0x0105, f01=0x0190, f02=» IF OPENED EXCLUSIVE z * P RF(NZ) OERQER OPENED EXCLUSIVE BEFORE P CC A3,FDBOMD,A11 J 2 P RF(NE) OERQER THIS OPEN NOT SAME AS OLD OPEN d 6 P LC A3,FDBNIF,A11 NR OF INDEX BEFORE FOR THIS FILE P CW A3,NROFIX NR OF INDEXES $ P RF(NE) OESWP4 A
0x34ad14…34aea8 Dummy {f00=0x0105, f01=0x0190, f02=»LAY x POPL180 EQU * P ABL OPSPLT P EJECT 4 P B P******************* J P* E R R O R S * f P******************* P POERCA1 EQU * =4 P LDR A6,A1 RETURN CODE =4 , P ANKL A6,/E10 MASK BITS 4,5,6 AND 11 =4
0x34aea8…34b03c Dummy {f00=0x0105, f01=0x0190, f02=» P RF(N) OESNC1 NO CORE =4 POESOF3 EQU * =4 $ P LDK A6,OFLW OVERFLOW =4 < P RF OESCOM =4 POESIN9 EQU * =4 r " P LDK A6,ILLNAM ILLEGAL NAME =4 P RF OESCOM =4 POESNC1 EQU * =4 $ P LDK A6,NOCORE CORE EXHAUSTED =4 P R
0x34b03c…34b1d0 Dummy {f00=0x0105, f01=0x0190, f02=»6,ERKEYL LONG KEY =4 POESCOM EQU * =4 ! $ P LDR A11,A10 MAIN FDB ADDRESS =4 ! 4 * P CF A14,CRNGET GET CURRENCY BUFFER =4 ! " P SC A6,CRNSTA,A2 SET STATUS =4 ! & P LDKL A1,/8080 SET RETURN CODE =4 ! P RF OERCOM =4 ! POERQER EQU * =4 ! & P
0x34b1d0…34b364 Dummy {f00=0x0105, f01=0x0190, f02=»RESS =4 ! r ( P ORS A1,ECBRC,A9 SET RETURN CODE =4 " * P ABL CLOCOM CLOSE EVENTUALLY FILES =4 " < P EJECT " j P " x P*************************** " P* F I R S T O P E N * " P*************************** " P " P* " P* CLEAR
0x34b364…34b4f8 Dummy {f00=0x0105, f01=0x0190, f02=»F(N) OPF110 OK " P LDR A7,A11 # P ADR A7,A2 # * P CM FDBECB,A7 # < P RB OPF100 # R P EJECT # d P* # r P* BUILD FWT FDB PART # | P* # POPF110 EQU * # P LD A2,DELAY # , P ST A2,FDBDBR,A11 SET DELAY FOR NEW FILE # P LD A3,FPB:R
0x34b4f8…34b68c Dummy {f00=0x0105, f01=0x018e, f02=»F INDEXES # ~ ( P SC A3,FDBNIF,A11 NR OF INDEX FILES $ P LC A3,FPB:FR+1,A12 $ > P SC A3,FDBLRN,A11 $ Z P LD A3,FPB:FR+2,A12 $ t $ P ST A3,FDBLRN+1,A11 LAST REC NR $ P CM FDBSNR,A11 $ P LDK A3,1 $ , P ST A3,FDBSNR+2,A11 RESET SECTOR NUMBER
0x34b68c…34b820 Dummy {f00=0x0105, f01=0x018e, f02=» $ | P CW A3,OPEKAD,A13 % P RB(NE) OESWP4 WRONG KEY % " P ST A3,FDBKA,A11 KEY ADDR % B POPF120 EQU * % d P LC A3,FPB:BO,A12 % x P SLL A3,8 % & P ORS A3,FDBDBR,A11 BASIC + OPTION % P EJECT % P* % P* CALCULATE SDMTSK ID % P*
0x34b820…34b9b4 (1, 912) Dummy {f00=0x0106, f01=0x0190, f02=» P RB(NE) OPF140 NOT THIS DISC & $ P LC A3,DMTIDP,A6 REL DM TASK ID & ( $ P SC A3,FDBDMI,A11 MAIN SDMTSK ID & P P* & x 4 P* CALCULATE MAX FDBRRO AND BLOCKSIZE IN SECTORS & P* & P CF A14,CARRBL & & P RB(G) OESWP4 TOO LARGE BLOCK SIZE & P ST
0x34b9b4…34bb48 Dummy {f00=0x0106, f01=0x0190, f02=» & P* CALCULATE ENLARGE FACTOR ' P* ' * $ P LDR A4,A2 BLOCK SIZE IN SECTORS ' 4 P CF A14,ENLFAC ' P RB(O) OESOF3 OVERFLOW ' r * P ST A3,FDBENL,A11 SAVE ENLARGE FACTOR ' P XIF =8 ' P EJECT ' P* ' P* SET OPEN MODE ' P* '
0x34bb48…34bcdc Dummy {f00=0x0106, f01=0x0190, f02=») OPF150 EXCLUSIVE ACCESS NOT WANTED ' " P LD A1,DWTTAB,A10 TTAB ADDRESS ( , POPF150 EQU * ( R 0 P ST A1,FDBEXC,A11 SET EXCLUSIVE ACCESS USER ( f P IFT CRDEEX=1 =8 ( P ANK A3,/FF ( P CWK A3,SDMOOR ( 2 P RF(NE) OPSPLT NOT OUTPUT RANDOM,DON'T FOR
0x34bcdc…34be70 Dummy {f00=0x0106, f01=0x0190, f02=»DRESS ( | P CF A14,FRMFIL FORMAT FILE ) ( P RB(NZ) OERCOM ERROR WHEN FORMATTING ) 0 P XIF =8 ) P EJECT ) n P ) | L P*********************************************************************** ) L P* D A T A , I N D E X O R M A S T E R I N
0x34be70…34c004 Dummy {f00=0x0106, f01=0x0190, f02=» ST A11,OPEFWT,A13 SAVE FWT ADDR ) P IFT INDXAC=1 * ( P LDR A13,A13 * > P ABL(Z) OPDATA DATA FILE * R P LDR A3,A9 * r P ANK A3,/1 * P ABL(Z) OPINDX INDEX FILE * P EJECT * P * $ P******************************* * $ P* M A S T E R
0x34c004…34c198 Dummy {f00=0x0106, f01=0x0190, f02=»READ FILE PAR * z P LD* A3,DWTECB,A10 FILE CODE + P ANK A3,/FF + : . P ST A3,SDMTTD,A14 FC ENTRY IN TTAB SDMTSK + N P ST A11,SDMTTD+2,A14 + P STR A3,A8 + P LDK A2,0 + 2 P SC A2,FDBDBR,A11 NO SPECIAL FUNCTIONS ALLOWED + ( P SC A2,FDBBLZ+1,A1
0x34c198…34c32c Dummy {f00=0x0106, f01=0x0190, f02=»OF WORDS NEEDED IN MASTER INDEX + P* , ( P LD A6,FPB:RL,A12 REC LGTH , 2 P LDR A1,A6 , T P SUK A1,3 KEY LENGTH , f P CW A1,OPEKYL,A13 REQUESTED , P ABL(NE) OESWP4 ERR , " P LD A7,FPB:FR+2,A12 NO OF RECS , , P CF A14,MPYMOD A1,A2=NO OF BYTES
0x34c32c…34c4c0 Dummy {f00=0x0106, f01=0x0190, f02=»0 WRONG SIZE , P LD A4,MXIND LENGTH MXIND - P SUK A4,4 MAX A5 VALUE - 6 P LDKL A5,-2 OFFSET - T POPM100 EQU * - n P ADK A5,4 GET ENTRY - P CWR A5,A4 - P RF(G) OPM140 NO ENTRY FOUND - P LD A3,MXIND,A5 - P RB(Z) OPM100 ZERO ENTRY -
0x34c4c0…34c654 (1, 913) Dummy {f00=0x0106, f01=0x0190, f02=» P EJECT . P* . P* SUFFICIENT SPACE FOUND . P* . > P LDKL A1,/8000 USED BIT . H & P ORS A1,MXIND+2,A5 MARK ENTRY USED . h P LDR A7,A9 . P ANK A7,/0E . & P ST A3,OPEMXI,A7 MASTER INDEX ADDR . P LD A7,FPB:FR+2,A12 . P STR A7,A3
0x34c654…34c7e8 Dummy {f00=0x0106, f01=0x0190, f02=» ADDR . z P ST A1,ECBRL,A8 REQ LGTH / . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION / . P CWR A1,A4 MXIND ENTRY / ` P RF(NL) OPM110 LAST ENTRY / ~ P LD A3,MXIND+6,A1 / " P RF(N) OPM110 NEXT ENTRY USED / P EJECT / P* / & P* MOVE SPARE W
0x34c7e8…34c97c Dummy {f00=0x0106, f01=0x018e, f02=» BIT / ~ P ST A2,MXIND+2,A1 0 . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER 0 & $ P LD A7,MXIND,A1 PREVIOUS POINTER 0 X P SLL A2,1 NO OF BYTES 0 P ADR A7,A2 0 P ST A7,MXIND+4,A1 0 P EJECT 0 P* 0 ( P* R E A D M A S T E R I N D E X 0
0x34c97c…34cb10 Dummy {f00=0x0106, f01=0x0190, f02=» ( P LD A2,FDBEXC,A11 EXCLUSIVE TTAB =6 1 2 P CM FDBEXC,A11 INDICATE NO EXCLUSIVE ACCESS =6 1 0 P LDK A7,/82 READ SEQUENTIAL 1 f P LKM 1 P DATA 1 1 8 P ST A2,FDBEXC,A11 EXCLUSIVE ACCESS CORRECT AGAIN =6 1 P LD A2,ECBRC,A8 1 & P ANKL A2,/FEFF
0x34cb10…34cca4 Dummy {f00=0x0106, f01=0x0190, f02=»N BUF ADR 1 | P RF(Z) OPM120 NO CRN 2 P CM FDBCRL,A11 2 . P INH 2 D P LD A6,CRNQUE 2 P P STR A6,A5 2 f P ST A5,CRNQUE 2 x P ENB 2 POPM120 EQU * 2 P LDR A1,A2 2 P ANKL A2,/1000 BIT 3 = EOF 2 0 P RF(NZ) OPM150 READY ,WHOLIE MXINDEX I
0x34cca4…34ce38 Dummy {f00=0x0106, f01=0x018e, f02=»RL,A8 2 P ADS A2,ECBBA,A8 REC LENGTH 3 P RB OPM110 READ NEXT RECORD 3 2 POPM140 EQU * 3 V " P ABL OESNC1 CORE EXHAUSTED =4 3 j P EJECT 3 P* 3 D P* C O M P L E T E M A S T E R I N D E X F I L E R E A D 3 P* 3 P* CLOSE MAST
0x34ce38…34cfcc Dummy {f00=0x0106, f01=0x018e, f02=» P LDR A7,A9 LOOP COUNT 4 P SRL A7,1 4 " P LC A7,OPEFNR,A7 FILE NR 4 4 P SC A7,ECBFC,A8 4 T $ P ST A12,ECBBA,A8 PAR BLOCK ADDR 4 l , P CF A14,CLRBUF RELEASE ALL FREE BUFFERS 4 P XRR A10,A11 4 P XRR A11,A10 4 P XRR A10,A11 4 , P CF A14,
0x34cfcc…34d160 Dummy {f00=0x0106, f01=0x0190, f02=» 4 ~ P ABL OPCHEK NEXT FILE 5 P EJECT 5 & P 5 4 P*************************** 5 < P* I N D E X F I L E * 5 ` P*************************** 5 P 5 POPINDX EQU * INDEX FILE 5 P* 5 P* UPDATE PAR BLOCK 5 P* 5 $ P LD A3,O
0x34d160…34d2f4 (1, 914) Dummy {f00=0x0106, f01=0x0190, f02=» 5 P SRL A3,1 6 P LDR A2,A3 6 P LDR A4,A12 6 , P LDK A5,FPB:I2-FPB:I1 6 @ P SUR A4,A5 6 ^ P EJECT 6 p POPI100 EQU * 6 ~ P ADR A4,A5 REL ADDR 6 P SUK A2,1 NEXT INDEX 6 P RB(NZ) OPI100 6 P ECR A3,A3 6 P ADK A3,1 TYPE DUPL 6
0x34d2f4…34d488 Dummy {f00=0x0106, f01=0x0190, f02=»MS 6 t P LD A7,FDBKA,A11 KEY OFFSET 7 P ST A7,FPB:A1,A4 KEY ADDR 7 . P LD A7,FDBRLE,A11 REC LGTH 7 P P SUK A7,6 7 r P CM FPB:L1,A4 FILLER 7 P SC A7,FPB:L1,A4 KEY LENGTH 7 P ADK A7,8 7 P SRL A7,1 WORD 7 P CWK A7,RECBFZ 7 P ABL(G
0x34d488…34d61c Dummy {f00=0x0106, f01=0x0190, f02=»2 SIZE IN SECTORS 7 ~ P LC A6,FDBBLZ,A11 BLOCK SIZE 8 P ANK A6,/FF 8 > P CF A14,DIVMOD 8 R P ABL(O) OESOF3 LONG FILE 8 h P CM FPB:IS,A12 8 & P ST A2,FPB:IS+2,A12 SIZE IN BLOCKS 8 P* 8 P* GET INDEX VOLUME NAME 8 P* 8 P LDKL A1,F
0x34d61c…34d7b0 Dummy {f00=0x0106, f01=0x0190, f02=» RF OPCHEK 8 P XIF 9 P EJECT 9 P 9 , P************************* 9 4 P* D A T A F I L E * 9 V P************************* 9 x P 9 POPDATA EQU * DATA FILE 9 P* 9 P* UPDATE USER PAR BLOCK 9 P* 9 P LC A2,FDBNIF,A11
0x34d7b0…34d944 Dummy {f00=0x0106, f01=0x0190, f02=»2,1 9 $ P SC A2,FPB:FO+1,A12 DEVICE TYPE : P LC A2,OPEFNR FILE NR : 4 P SC A2,FPB:FM,A12 : R P LD A2,FDBDBR,A11 : l P SRL A2,14 : . P SC A2,FPB:BO,A12 DELAY BASIC TOSS OPTIONS : P* : , P* CONVERT SIZE TO NUMBER OF RECORDS AND : * P*
0x34d944…34dad8 Dummy {f00=0x0106, f01=0x0190, f02=»* : P LDKL A3,FPB:FR ; P SUKL A3,FPB:RL LENGTH ; " $ P LD A4,DWTECB,A10 USER ECB ADDR ; @ P LD A1,ECBRL,A4 REQ LENGTH ; h P SUK A1,FPBRES RESERVED ; P CWR A3,A1 ; P RF(NG) OPD120 TAKE SHORTEST ; P LDR A3,A1 ; POPD120 EQU * ; P L
0x34dad8…34dc6c Dummy {f00=0x0106, f01=0x0190, f02=» ; x " P ADK A2,FPBRES RESERVED FIELD < P IFT MMUPAG=1 < . $ P LD A4,DWTTAB,A10 TTAB ADDR USER < D P CF A14,MOV:SU < l P XIF < P IFT MMUPAG=0 < P CF A14,MOVFW MOVE < P XIF < P* < $ P* ADJUST FILE NAME FOR INDEXES < P* < P L
0x34dc6c…34de00 Dummy {f00=0x0106, f01=0x0190, f02=» < ~ P EJECT = P = F P***************************************************************** = F P* C H E C K I F A L L F I L E S A R E O P E N E D * = h F P***************************************************************** = P = POPCH
0x34de00…34df94 (1, 915) Dummy {f00=0x0106, f01=0x0190, f02=»OPENED = r P EJECT > P > 0 P******************************************* > $ 0 P* M O R E F I L E S T O O P E N * > X 0 P******************************************* > P > P CWK A10,FDBSTA > & P RF(NE) OPN120 READ FILE PAR ORDER >
0x34df94…34e128 Dummy {f00=0x0106, f01=0x0190, f02=»A1 > $ P ANK A1,/3E NR OF OPEN BEYOND 1 ? P RF(Z) OPN100 FIRST ? 2 P ANKL A9,/E NO MASTER INDEX ? N POPN100 EQU * ? r P* ? P* NEXT FILE NAME ? P LDR A7,A9 ? P SLL A7,1 WORD ADDR ? . P LD A1,OPEFN,A7 FIRST 2 CHAR IN FILE NAME ?
0x34e128…34e2bc Dummy {f00=0x0106, f01=0x0190, f02=»DR A2,A12 ? P ADKL A2,FPB:V1 TO ADDR @ P LDK A3,6 @ 2 " P CF A14,MOVFW MOVE VOLUME NAME @ D P EJECT @ j P* @ x * P* MOVE SPACES TO OTHER VOLUME NAMES @ P* @ & P LDK A6,30 NR OF VOLUME NAMES * 10 @ POPN110 EQU * @ P SUK A6,10 @
0x34e2bc…34e450 Dummy {f00=0x0106, f01=0x0190, f02=» A3,6 NR OF CHAR @ P CF A14,MOVFW A P RB OPN110 A . . POPN120 EQU * GET FILE NR FOR READ FILE PAR A @ P LDR A7,A9 A r P SRL A7,1 A ( P LC A2,OPEFNR,A7 GET FILE NUMBER =2 A POPN130 EQU * A " P CM DELAY NO DELAY FOR INDEXES A & P CM NROFIX N
0x34e450…34e5e4 Dummy {f00=0x0106, f01=0x0190, f02=»*********************************** A 4 P* A L L F I L E S A R E O P E N E D * B , 4 P*********************************************** B d P B POPEND EQU * FINISH B & P LD A11,OPEFWT FDB ADDR DATA FILE B P CWK A10,FDBSTA B & P RF(NE)
0x34e5e4…34e778 Dummy {f00=0x0106, f01=0x0190, f02=»00 EQU * B P SUK A5,2 C " P RF(N) OPE110 ALL FDB UPPDATED C " P C H $ P LD A2,OPEFWT,A5 FDB ADDR INDEX C P P RB(Z) OPE100 NO INDEX FILE C x P LDKL A1,OPEFWT FROM ADDR C P ADKL A2,FDBADF TO ADDR C P LDK A3,10 NO OF BYTES C P CF A14,MOVF
0x34e778…34e90c Dummy {f00=0x0106, f01=0x0190, f02=»,A10 FILE CODE C P ANK A2,/FF D P SC A2,OPEFCD SAVE D * P LDK A5,0 TTAB AND CDTAB D D $ P LD A1,DWTTAB,A10 USER TTAB ADDR D d 0 P CF A14,FNDFDB A4=TTAB/SCTCDT ENTRY ADDRESS D P ST A11,2,A4 FWT ADDR D P EJECT D P* D P* REMOVE CURRENC
0x34e90c…34eaa0 Dummy {f00=0x0106, f01=0x0190, f02=» P XRR A11,A10 E P XRR A10,A11 E P LDR A3,A10 E , P ADKL A3,FDBCRL ROOT E @ P INH E POPE120 EQU * E h P LDR A1,A3 E | P LDR* A3,A3 NEXT BUFFER E P CWR A3,A2 E P RB(NE) OPE120 NEXT BUFFER E P LDR* A4,A3 NEXT E P STR A4,A1 E
0x34eaa0…34ec34 (1, 916) Dummy {f00=0x0107, f01=0x0190, f02=»ER SIZE AND UPDATE PARAMETER BLOCK E P* F * P LDK A1,FPB:IV F 4 " P LC A3,FDBNIF,A11 NR OF INDEX F J P ANK A3,/F F p P IFT INDXAC=1 F P RF(Z) OPE150 F P LDR A4,A3 F P SLL A3,3 F P SLL A4,2 F P ADR A3,A4 MULT WITH 12 F P ADK
0x34ec34…34edc8 Dummy {f00=0x0107, f01=0x0190, f02=»USER ECB F ~ P LD A2,ECBRL,A6 TOT LENGTH G P SUK A2,FPB:IV+FPBRES G 2 P CWR A3,A2 REM LGTH G P P RF(NG) OPE160 TAKE SHORTEST G l P LDR A3,A2 G P EJECT G POPE160 EQU * G P LDR A2,A3 G P ADK A2,FPB:IV+FPBRES G ( P ST A2,ECBEL,A6 SET
0x34edc8…34ef5c Dummy {f00=0x0107, f01=0x0190, f02=»IF G P IFT MMUPAG=1 H $ P LD A4,DWTTAB,A10 USER TTAB ADDR H P CF A14,MOV:SU H H P XIF H ^ P EJECT H j P* H x P**************** H P* OPEN END * H P**************** H P* H " P LDR A11,A10 MAIN FDB ADDRESS H P LDK A1,0 RET
0x34ef5c…34f0f0 Dummy {f00=0x0107, f01=0x0190, f02=»* H P I PSDMCLO EQU * CLOSE I P* I , " P* (A4= BLOCK BUFFER ADDRESS ) I 6 ( P* (A5 = BLOCK BUFFER DATA ADDRESS ) I $ P* A11= FDB ADDRESS ALL ORDERS I " P* A7 = ORDER CODE ALL ORDERS I P* (A8 = FDBECB ADDRESS ) I P* (A9 = USER EC
0x34f0f0…34f284 Dummy {f00=0x0107, f01=0x0190, f02=»4,FMIOWR WRITE I $ P ORS A1,ECBRC,A9 SET RETURN CODE J PSDMC10 EQU * J > P IFT CRDEEX=1 =8 J R P LC A3,DWTOPT,A11 J l P ANK A3,2 J P RF(NZ) SDMC20 CLOSE DISCARD J P EJECT J P* J P* CLOSE LOCK J P* J P LC A3,FDBOMD,A11 OPEN
0x34f284…34f418 Dummy {f00=0x0107, f01=0x0190, f02=» EXTEND OR SEQ. J r P* K 8 P* FORMAT FILE IF OPENED OUTPUT SEQUENTIAL OR EXTEND K " P* K ^ ( P LDR A4,A5 BLOCK BUFFER DATA ADDRESS K h 0 P LD A3,FDBRRO,A11 RECORD OFFSET IN BLOCK =1 K P LD A1,FDBBLZ,A11 K " P SLL A1,8 BLOCK SIZE IN BYTES K P
0x34f418…34f5ac Dummy {f00=0x0107, f01=0x0190, f02=» SDMC16 FILE EMPTY =3 K PSDMC12 EQU * =3 L & P AD A3,FDBRLE,A11 RECORD LENGTH =1 L 6 " P ADK A3,1 OFFSET TO LRN + 1 =1 L ` ( P SUR A1,A3 LENGTH LEFT IN BUFFER =1 L PSDMC16 EQU * =3 L & P ADR A3,A4 RECORD POINTER LRN+1 =1 L , P CF A14,FORMER BUILD
0x34f5ac…34f740 Dummy {f00=0x0107, f01=0x018e, f02=»OF FILE L ~ $ P ORS A1,ECBRC,A9 SET RETURN CODE M $ P LD A1,FDBSNR,A11 SECTOR NUMBER M 8 P LD A2,FDBSNR+2,A11 M ` P LDK A6,0 M | , P LD A7,FDBBLZ,A11 BLOCK SIZE IN SECTORS M " P CF A14,ADDMOD GET NEXT SECTOR M P ST A1,FDBSNR,A11 M P ST A2,FDB
0x34f740…34f8d4 (1, 917) Dummy {f00=0x0107, f01=0x0190, f02=» P XIF =8 N 4 P LD A4,FDBEXC,A11 EXCLUSIVE ACCESS INDICATOR =7 N & P RF(NZ) SDMC25 OPENED EXCLUSIVE =7 N N , P SC A4,DWTOPT,A11 INDICATE CLOSE LOCK =7 N x PSDMC25 EQU * =7 N ( P CF A14,SDMRLB RELEASE BLOCK BUFFER N PSDMC30 EQU * N P* N
0x34f8d4…34fa68 Dummy {f00=0x0107, f01=0x0190, f02=»NCDF,A2 N P CM CRNCDF+2,A2 O P IFT INDXAC=1 O ( P CM CRNCIF,A2 O > P CM CRNCIF+2,A2 O T P XIF O l P EJECT O x P* O P* BUILD CLOSE TABLES O P* O P LC A7,ECBFC,A9 FILE CODE O P LDK A5,10 2 * FILES O PSDMC40 EQU * O
0x34fa68…34fbfc Dummy {f00=0x0107, f01=0x0190, f02=» O P SUR A9,A9 P P SUR A10,A10 P P LD A3,FDBADF,A4 FDB ADDR P . P RF(Z) SDMC50 NO FILE P P & P LD A6,FDBMIA,A3 MASTER INDEX ADDR P n P LC A2,FWTFNR,A3 FILE NR P P LC A9,FDBLRN,A3 LAST REC NR P P LD A10,FDBLRN+1,A3 P PSDMC50 EQU * P
0x34fbfc…34fd90 Dummy {f00=0x0107, f01=0x018e, f02=» FILE CODE P P SLL A4,2 Q P ST A9,OPELRN,A4 LAST REC NR Q $ P ST A10,OPELRN+2,A4 Q H P RB SDMC40 NEXT FILE Q d P EJECT Q PSDMC60 EQU * Q P SC A7,OPEFCD FILE CODE Q P* Q P* A11=MAIN FDB ADDRESS Q P* Q $ PCLOCOM EQU * RECOVER
0x34fd90…34ff24 Dummy {f00=0x0107, f01=0x018e, f02=» Q 6 P* FREE FILE CODES,MASTER INDEXES,FILES, CURRENCY R P* R B P LDKL A9,5 R L POPEE10 EQU * R ^ P SUKL A9,1 R r P RF(NN) OPEE20 MORE FILES R P EJECT R P* R P***************** R P* CLOSE END * R P***************** R
0x34ff24…3500b8 Dummy {f00=0x0107, f01=0x0190, f02=» R P LC A2,OPEFCD,A9 FILE CODE S P ANK A2,/FF S * P RF(Z) OPEE25 NO CODE S > P LDK A5,0 TTAB AND CDTAB S $ P LD A1,DWTTAB,A11 USER TTAB ADDR S | P CF A14,FNDFDB S P LDR A2,A2 RET CD S P RF(Z) OPEE25 NO ENTRY S & P LDKL A7,FDBSTA SYSTEM
0x3500b8…35024c Dummy {f00=0x0107, f01=0x0190, f02=» S P LDR A7,A9 T P SLL A7,1 WORDS T " P LDR A13,A11 SAVE FDB ADDRESS T 2 P LD A11,OPEFWT,A7 FDB ADDR T X P RF(Z) CLODEL NO FDB T z P LDKL A1,/C000 T P LDK A3,0 T & P CF A14,EARELB REL PROTECT BUFFERS T P ENB T P LC A5,FWTPAR,A11 T
0x35024c…3503e0 Dummy {f00=0x0107, f01=0x0190, f02=»(NZ) TASHLT DM ERR T P EJECT U P* U ( P* RELEASE CURRENCY BUFFERS U 2 P* U V P LDKL A5,FDBCRL U ` P ADR A5,A11 LINK ROOT U x P LDR* A4,A5 U P CMR A5 CLEAR FDB U P RF RCRN20 U PRCRN10 EQU * U P LDR A4,A5 BUFFER ADDRESS U
0x3503e0…350574 (1, 918) Dummy {f00=0x0107, f01=0x0190, f02=» POOL U | P* V P INH V P LD A3,CRNQUE V $ P STR A3,A4 V : P ST A4,CRNQUE V L P ENB V b P RB RCRN10 V n P EJECT V PRMIX10 EQU * V P IFT INDXAC=1 V P* V P* RELEASE MASTER INDEX V P* V & P LD A1,OPEMXI,A7 MASTER INDE
0x350574…350708 Dummy {f00=0x0107, f01=0x0190, f02=»0 FIRST INDEX V " P RF(N) CLODEL NO MASTER INDEX W P CW A1,MXIND+2,A5 W < P RB(NE) RMIX20 W V P LD A4,MXIND,A5 W l & P RF(N) RMIX30 PREVIOUS ENTRY USED W " P LD A4,MXIND+4,A5 NO OF WORDS W P ANKL A4,/7FFF REMOV USE BIT W P ADS A4,MXIND,A5
0x350708…35089c Dummy {f00=0x0107, f01=0x0190, f02=» P LDR A2,A1 X P SUK A2,4 TO ADDR X P LD A3,MXIND X 0 P SUR A3,A5 X D P SUK A3,2 NO OF CHAR X V P CF A14,MOVFW MOVE X r P RF CLODEL X PRMIX30 EQU * X P LDKL A4,/7FFF X & P ANS A4,MXIND+4,A5 REMOVE USE BIT X P XIF X P EJECT X
0x35089c…350a30 Dummy {f00=0x0107, f01=0x018e, f02=»A7 LAST REC NR X P ST A1,FPB:FR,A12 Y P LD A1,OPELRN+2,A7 Y 0 P ST A1,FPB:FR+2,A12 Y J P LC A7,OPEFNR,A9 Y f P ANK A7,/FF Y ~ P RF(Z) CLDL20 NO FILE OPENED Y P ST A7,ECBFC-1,A8 FILE NR Y $ P ST A12,ECBBA,A8 PAR BLOCK ADDR Y & P CF A14,
0x350a30…350bc4 Dummy {f00=0x0107, f01=0x0190, f02=» P ANK A7,/4F TEST MASK =5 Z P SUK A7,2 =5 Z $ @ P RF(Z) DELETE CLOSE DISCARD,OPEN OUT SEQ OR OPEN OUT RAN =5 Z : P XIF =8 Z ~ P CF A14,FMIOCL CLOSE Z P IFT CRDEEX=1 =8 Z P RF CLDL10 Z PDELETE EQU * Z P CF A14,FMIODL DELETE Z
0x350bc4…350d58 Dummy {f00=0x0107, f01=0x4054, f02=» LDR A11,A13 MAIN FDB ADDRESS Z P ABL OPEE10 NEXT FILE [ & P END [ D@ [ PD,OPEN OUT SEQ OR OPEN OUT RAN =5 Z : P XIF =8 Z ~ P CF A14,FMIOCL CLOSE Z P IFT CRDEEX=1 =8 Z P RF CLDL10 Z PDELETE EQU * Z P CF A14,FMIODL DELETE Z
0x350d58…350eec Dummy {f00=0x0107, f01=0x2008, f02=» PDMINEX EQU * P RTN A15 " P END 2@ >TASBLK P CM TASBLK P P CM TASQUE b P* t , P* CLEAR DM FILE CODE ENTRIES IN CDTAB ~ P* P LD A2,CDTAB PDMIN60 SUK A2,4 P LDR A3,A2 P ADKL A3,CDTAB
0x350eec…351080 Dummy {f00=0x0107, f01=0x0190, f02=» D P* E 2 P* CHECK USER SIZE AND UPDATE PARAMETER BLOCK E P* E H P LDK A1,FPB:IV E R " P LC A3,FDBNIF,A11 NR OF INDEX E h P ANK A3,/F E P IFT INDXAC=1 E P RF(Z) OPE150 E P LDR A4,A3 E P SLL A3,3 E P SLL A4,2 E P ADR A
0x351080…351214 (1, 919) Opaque[0x194]
0x351214…3513a8 # DirEnt {nam=»SDMSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20f8, f03=0x0000}
0x351214…3513a8 IdxSect {
0x351214…3513a8 f00 = 0x0107 // 0x351214 @0x0
0x351214…3513a8 f01 = 0x001a // 0x351216 @0x2
0x351214…3513a8 gno = [ // 0x351218 @0x4
0x351214…3513a8 [0x00]: C0x0107.0x3.0
0x351214…3513a8 [0x01]: C0x0108.0x0.0
0x351214…3513a8 [0x02]: C0x0108.0x1.0
0x351214…3513a8 [0x03]: C0x0108.0x2.0
0x351214…3513a8 [0x04]: C0x0108.0x3.0
0x351214…3513a8 [0x05]: C0x0109.0x0.0
0x351214…3513a8 [0x06]: C0x0109.0x1.0
0x351214…3513a8 [0x07]: C0x0109.0x2.0
0x351214…3513a8 [0x08]: C0x0109.0x3.0
0x351214…3513a8 [0x09]: C0x010a.0x0.0
0x351214…3513a8 [0x0a]: C0x010a.0x1.0
0x351214…3513a8 [0x0b]: C0x010a.0x2.0
0x351214…3513a8 [0x0c]: C0x010a.0x3.0
0x351214…3513a8 ]
0x351214…3513a8 }
0x3513a8…35153c Dummy {f00=0x0107, f01=0x0190, f02=» 2 P IDENT SDMSUB REL 11.0 81-05-22 870105041100 P : P =6,FORMATTING ERROR B P =6,REL 11.0 81-05-12 ` P =5,CONDITION FOR CR,DE,EX P =5,REL 11.0 81-03-20 : P =4,BLOCK BUFFER CHAIN DESTR. WHEN FORM. WITH LEN=0 P =4,
0x35153c…3516d0 Dummy {f00=0x0107, f01=0x0190, f02=»T BLOCK,BAD =1 p P =2,REL 11.0 81-02-04 =1 , P =1,SUB. TO FORMAT BLOCK BUFFER CHNG. 8 P =1,REL 11.0 81-01-26 h 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* SDMS
0x3516d0…351864 Dummy {f00=0x0107, f01=0x018e, f02=»******** d 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* L P* DMTASK,TIODM,DMTASS V P* v P*************** P* ENTRIES * P*************** P* P ENTRY RELPRO P ENTRY MOVBW & P ENTRY EATES
0x351864…3519f8 Dummy {f00=0x0107, f01=0x0190, f02=» P ENTRY FMIORF,FMIOWR,FMIODL P ENTRY FMIOCR,FMIOEX ( " P ENTRY FRMFIL,FORMAT,FORMER =1 D P ENTRY RLBLKB,CHKRCD j P ENTRY CASZEN P EJECT P* @ P* E N T R I E S F O R I N D E X S U B R O U T I N E S P* P*
0x3519f8…351b8c Dummy {f00=0x0107, f01=0x0190, f02=» FNDKEY P ENTRY CRNUPD P ENTRY GTLGRN & P ENTRY CRNCIF < P ENTRY RECECB R P EJECT h P* v P***************** P* EXTERNALS * P***************** P* P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDB
0x351b8c…351d20 Dummy {f00=0x0107, f01=0x0190, f02=»,DWTOR,BUFSTA,BUFDMI,BUFOR | P EXTRN FDBLRN,FDBMIA,FDBMRO " " P EXTRN ECBRC,ECBFC,ECBCW,ECBBA F P EXTRN DIVMOD,MPYMOD l P EXTRN CRNTID P EXTRN SDMGBU P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN CRBUFL P EXTRN FDBDBR P EXT
0x351d20…351eb4 (1, 920) Dummy {f00=0x0108, f01=0x0190, f02=»OMD P EXTRN MOVFW P EXTRN ADDMOD P EXTRN SDMRBU,CLRBUF 6 " P EXTRN BLKMXL MAX BLOCK LENGTH R P EXTRN EOFRC,NOKEY x P EXTRN RTNA14 & P EXTRN FPB:RL,FPB:BF,FPB:S1,SIZDIF P EJECT SDMSUB TOSSIO P* P* . P**
0x351eb4…352048 Dummy {f00=0x0108, f01=0x0190, f02=»*** j P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. H P* v PMMUPAG EQU 0 PX:A EQU 0 PINDXAC EQU X:A P* ( P* A VERSION LEAVING OUT OPEN MODES: * P* OPEN OUTPUT,OPEN EXT
0x352048…3521dc Dummy {f00=0x0108, f01=0x0190, f02=»* > P* THIS ROUTINE RELEASES PROTECTION AT END OF TRANSACTION P* L ( P* ENTRY : A3 = DM INTERNAL USER ID V P* P* USED REGS A1 - A5 , A9 P* & P* NUMBER OF A14 LEVELS = 4 (WORDS) P* $ PRELPRO EQU * RELEASE PROTECT
0x3521dc…352370 Dummy {f00=0x0108, f01=0x0190, f02=»/1 P RF(Z) REL053 NOT USED 0 P LDKL A1,/C000 REMOVE BUFFERS FOR THIS TASK ( P CF A14,EARELB P ENB r PREL053 EQU * ~ P LDR* A11,A11 P ANKL A11,/FFFE SKIP USE BIT P RB(NZ) REL050 MORE FDBS P LDR A11,A9 FDB ADDRESS
0x352370…352504 Dummy {f00=0x0108, f01=0x0190, f02=»M BYTE MOVE P* " P* INPUT A1 = FROM ADDRESS , P* A3 = NO OF BYTES TO BE MOVED F P* A2 = TO ADDRESS v P* P* P* OUTPUT A3 = NEXT CHAR P* & P* NUMBER OF A14 LEVELS = 2 (WORDS) P*
0x352504…352698 Dummy {f00=0x0108, f01=0x0190, f02=»OM THE END P* PMOVBW EQU * P STR A4,A14 0 P ADR A1,A3 D P ADR A2,A3 V PDMTB20 EQU * h P SUK A3,1 | P RB(N) DMTB10 P SUK A1,1 P SUK A2,1 P LCR A4,A1 P SCR A4,A2 P RB DMTB20 P EJECT S
0x352698…35282c Dummy {f00=0x0108, f01=0x0190, f02=»NO. P* 8 P****ENTRY PARAMETERS******************************** P* R P* A11= FDB ADRESS P* A1,A2 = LOG RECORD NO x P* P* CF A14,EATEST P* 8 P****EXIT PARAMETERS********************************* P*
0x35282c…3529c0 Dummy {f00=0x0108, f01=0x0190, f02=»A FOUND FO R OTHER TASK & P* NUMBER OF A14 LEVELS = 2 (WORDS) P* J 8 P****USED REGISTERS********************************** T P* P PBLKTID EQU 4 TASK ID 0 PBLKRNM EQU 5 RECORD NUMBER MOST SIGNIFICANT 0 PBLKRNL EQU 2 RECORD NU
0x3529c0…352b54 (1, 921) Dummy {f00=0x0108, f01=0x0190, f02=» EQU * P LDR* A3,A3 NEXT BUFFER ADR PEAT030 EQU * 2 $ P RF(Z) EAT100 EMPTY QUEUE,NO EA F P* n P* SEARCH LOG REC NO x P* $ P CC A1,BLKRNM,A3 FIRST CHARACTER P RB(NE) EAT020 & P CW A2,BLKRNL,A3 2 AND 3 CHARACTER P
0x352b54…352ce8 Dummy {f00=0x0108, f01=0x0190, f02=»AT060 P LDKL A3,-1 EA OTHER TASK P RF EAT100 0 PEAT060 EQU * B P LDK A3,1 EA SAME ATASK V PEAT100 EQU * v P ADKL A14,4 P ADK A3,0 P ABR* A14 P EJECT SDMSUB 8 P****DESCRIPTION*******************************
0x352ce8…352e7c Dummy {f00=0x0108, f01=0x0190, f02=» WILL HALT AND LITE SOP-LAMPS f P* & 8 P****ENTRY PARAMETERS******************************** 0 P* l P* A11= FDB ADDR v " P* A1,A2 = LOGICAL RECORD NO P* P* CF A14,EASETB P* 8 P****EXIT PARAMETERS***************
0x352e7c…353010 Dummy {f00=0x0108, f01=0x0190, f02=»****************************** z P* & P* A1,A4 0 P* B < P******************************************************* L P EJECT SDMSUB PEASETB EQU * P ECR A1,A1 P LC A1,FDBTNR,A11 TASK ID P ECR A1,A1 P INH ,
0x353010…3531a4 Dummy {f00=0x0108, f01=0x0190, f02=» STR A1,A4 THREAD P ST A4,FDBEAL,A11 NEW ROOT P ENB < P RTN A14 H P EJECT SDMSUB X 8 P****DESCRIPTION************************************* p P* 8 P* EARELB WILL RELEASE EA BUFFERS AND CONNECT THEM P* TO THE FREE LINK.
0x3531a4…353338 Dummy {f00=0x0108, f01=0x0190, f02=»RECORD NO | B P* A1: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB P* AND A3 = 0 X * P* ARE REMOVED. r P* A1: BIT 0=1,BIT 1=1 4 P* AND A3 NOT EQ 0 ALL BUFFERS ON FDB WITH @ P*
0x353338…3534cc Dummy {f00=0x0108, f01=0x0190, f02=» THE FIRST BUFFER WITH TASK ID AND LOG REC NO | 0 P* AS SPEC IS REMOVED. : P* n 8 P****EXIT PARAMETERS********************************* x P* P* A11,A3,A1 = UNCHANGED & P* NUMBER OF A14 LEVELS = 2 (WORDS)
0x3534cc…353660 Dummy {f00=0x0108, f01=0x018e, f02=»************************* x P* " P* THE ROUTINE SETS INHIBIT , P EJECT SDMSUB P PEARELB EQU * h P LDR A4,A11 | P ADKL A4,FDBEAL ROOT ADR PEAR020 EQU * P LDR A5,A4 SAVE OLD ROOT P LDR* A4,A4 NEXT BUFFER ADR P
0x353660…3537f4 (1, 922) Dummy {f00=0x0108, f01=0x0190, f02=» x P* P CC A1,BLKRNM,A4 P RB(NE) EAR020 * P CW A2,BLKRNL,A4 @ P RB(NE) EAR020 X P RF EAR060 n PEAR050 EQU * P CWK A1,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED P LDR A2,A3 REQ TASK ID P
0x3537f4…353988 Dummy {f00=0x0108, f01=0x018e, f02=» PEAR065 EQU * P CC A2,BLKTID,A4 P RB(NE) EAR020 0 P EJECT F P* T P* EA BUFFER FOUND ^ P* z PEAR080 EQU * P LDR* A2,A4 NEXT BUFADR & P STR A2,A5 REMOVE BUFFER FROM LINK P* P* RETURN BUFFER TO POOL
0x353988…353b1c Dummy {f00=0x0108, f01=0x018e, f02=» P LDR A1,A1 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * 8 P RTN A14 L P EJECT SDMSUB 8 P****DESCRIPTION************************************* t P* D P* CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS D P* FO
0x353b1c…353cb0 Dummy {f00=0x0108, f01=0x0190, f02=» J 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER < P* h 8 P****ENTRY PARAMETERS******************************** r P* " P* A11= FDB ADDRESS DATA FILE & P* FDBTNR,A11 = TASK NUMBER & P
0x353cb0…353e44 Dummy {f00=0x0108, f01=0x018e, f02=»**** ` P* P* A11= UNCHANGED ( P* A2 = ADDRESS OF FOUND CRN-BUFFER 0 & P* NUMBER OF A14 LEVELS = 2 (WORDS) P* 8 P****USED REGISTERS********************************** P* P* A1,A3 P* 6 P**********************
0x353e44…353fd8 Dummy {f00=0x0108, f01=0x0190, f02=» z PCRN020 EQU * P LDR* A2,A2 NEXT BUFFER P RF(Z) CRN100 LINK END < P* Z P* CHECK ATASK IDENT d P* P LC A3,FDBTNR,A11 TASK ID P CC A3,CRNTID,A2 P RB(NE) CRN020 OTHER TASK P RF CRN200 BUFFER FOUND P
0x353fd8…35416c Dummy {f00=0x0108, f01=0x0190, f02=» LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PCRN120 EQU * D P LDR* A3,A2 NEXT FREE X P ST A3,CRNQUE UPD ROOT v P EJECT P* P* FILL BUFFER WITH ZEROES P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES P
0x35416c…354300 Dummy {f00=0x0108, f01=0x0190, f02=»SET IN BUFFER P CMR A1 P RB CRN140 MORE WORDS & P* D " P* CONNECT NEW BUFFER TO LINK N P* t PCRN160 EQU * ~ P LC A3,FDBTNR,A11 P SC A3,CRNTID,A2 TASK ID P LD A3,FDBCRL,A11 LINK ROOT P STR A3,A2 THREAD
0x354300…354494 (1, 923) Dummy {f00=0x0108, f01=0x0190, f02=»************************ t P* 2 P* CALSNO WILL CONVERT A LOGICAL RECORD NO TO * P* RELATIVE ` P* SECTOR AND OFFSET t P* 8 P****ENTRY PARAMETERS******************************** P* " P* A1,A2 = LOGICAL RECORD NO P
0x354494…354628 Dummy {f00=0x0108, f01=0x0190, f02=» P* A1 = 0 OK , P* NE 0 , ERROR =/A000=END OF MEDIUM P* A11= UNCHANGED N $ P* IN FDB : FDBSNR = SECTOR NR h * P* FDBRRO = OFFSET IN BLOCK & P* NUMBER OF A14 LEVELS = 5 (WORDS) P* 8 P****USED REGISTERS****
0x354628…3547bc Dummy {f00=0x0108, f01=0x018e, f02=»4 | P* " P* FIND BLOCK NO WITHIN FILE P* : P LDK A6,0 D & P LC A6,FDBBLF,A11 BLOCKING FACTOR V , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER P RF(O) CALERR OVERFLOW P LDR A3,A2 QUOTIENT P LDR A4,A1 REMAINDER P R
0x3547bc…354950 Dummy {f00=0x0108, f01=0x0190, f02=» p P* ! * P* FIND LOGICAL SECTOR NUMBER ON DISC ! P* ! @ PTIOD40 EQU * ! J P LDR A6,A3 BLOCK NR ! ^ P RF(NP) CALERR ! z P SUK A6,1 ! P LDK A7,0 ! * P LC A7,FDBBLZ,A11 NR OF SECT IN BLOCK ! P CF A14,MPYMOD ! P ADK A2,1 !
0x354950…354ae4 Dummy {f00=0x0108, f01=0x0190, f02=»DBSNR,A11 ! P ST A2,FDBSNR+2,A11 SECT NR " P EJECT " 6 P* " D 0 P* FIND RELATIVE RECORD OFFSET WITHIN BLOCK " N P* " P LDK A3,0 " " P LDR A2,A4 REL REC NR IN BLOCK " PTIOD60 EQU * " P SUK A2,1 A2=REL REC NR " ( P RF(Z) TIOD65 RE
0x354ae4…354c78 Dummy {f00=0x0108, f01=0x0190, f02=»DKL A1,EOMERR OUT OF MEDIUM " P RF TIODMF # $ P* # 6 , P* STORE RELATIVE REC OFFSET IN FBDRRO # @ P* # p PTIOD65 EQU * # z P LDK A1,0 OK # P ST A3,FDBRRO,A11 # PTIODMF EQU * # P LD A4,-4,A14 SAVED REGISTER # ( P RF RETURN RETURN AN
0x354c78…354e0c Dummy {f00=0x0108, f01=0x0190, f02=» # P* ENTRY: A11=FDB ADDRESS $ P* A8=ECB ADDRESS $ ( P* $ H P* EXIT : A1=RETURN CODE $ R " P* A11,A8=SAME AS ENTRY $ r P* A2=USED $ P* $ & P* NUMBER OF A14 LEVELS = 2 (WORDS) $ P* $ & P* FMIO=FILE MANAGEMENT I/O
0x354e0c…354fa0 Dummy {f00=0x0108, f01=0x0190, f02=» A7,/A2 $ P RF FMIO10 % P % " PFMIODL EQU * DELETE % * P LDKL A7,/2A2 % F P RF FMIO10 % P % n PFMIOOP EQU * OPEN FILE % v P LDK A7,/A1 % P RF FMIO10 % P % PFMIOEX EQU * EXTEND % P LDKL A7,/1A1 % P RF FMIO10 % P %
0x354fa0…355134 (1, 924) Dummy {f00=0x0109, f01=0x0190, f02=»7,/83 % P RF FMIO10 & P & PFMIORD EQU * READ & ( P LDK A7,/91 & B P & V PFMIO10 EQU * & ^ P LKM & r P DATA 15 & ~ P EJECT SDMSUB & P* & P* RESTORE SECTOR NUMBER & P* & P LD A1,FDBSNR,A11 & P ST A1,ECBCW,A8 &
0x355134…3552c8 Dummy {f00=0x0109, f01=0x0190, f02=»DISC I/O OK & P ANKL A1,/FEFF ' $ P RF(NZ) DMTIT1 NOT ONLY RETRIES ' * P LDKL A1,RETRIE ' R & P ORS A1,ECBRC,A2 USER RETURN CODE ' j P LDK A1,0 SET RETURN CODE OK ' P RF RETURN ' PDMTIT1 EQU * ' P LD A2,ECBBA,A8 ' P SUKL A2,BUFSTA BU
0x3552c8…35545c Dummy {f00=0x0109, f01=0x0190, f02=»N************************************* ' P* ( . 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND ( 8 2 P* PREPARE IT. ECB IS PREPARED FOR PHYS I/O. ( t P* ( 8 P****ENTRY PARAMETERS******************************** ( P* ( P* A11= FDB A
0x35545c…3555f0 Dummy {f00=0x0109, f01=0x0190, f02=»ESS ( 0 P* A1 = FDBRRO WHEN SECTOR IS FOUND IN CORE ) B P* = -1 WHEN NO DATA IS FOUND IN ) @ < P* THE FOUND CORE BUFFER ) " P* A4 = BLOCK BUFFER ADDRESS ) & P* A5 = BLOCK DATA BUFFER A
0x3555f0…355784 Dummy {f00=0x0109, f01=0x0190, f02=»******** ) d P* * P* A2-A3 * P* * , : P****************************************************** * 6 PGTBKBU EQU * * t " P LC A3,FWTFNR,A11 FILE NUMBER * P ANK A3,/FF * P STR A3,A8 FILE NR * P LC A5,FDBBLZ,A11 * " P SLL A5,8 BLOCK SI
0x355784…355918 Dummy {f00=0x0109, f01=0x0190, f02=»BU A4 := BUFFER ADDRESS * P ST A1,ECBCW,A8 SECT NR + P ST A2,ECBCW+2,A8 SECT NR + @ P LDR A5,A4 + b 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS + t P ST A5,ECBBA,A8 + ( P LDKL A1,-1 SET DEFAULT RETURN CODE + P ADK A3,0 + ( P RF(NZ)
0x355918…355aac Dummy {f00=0x0109, f01=0x0190, f02=»ION + p P IFT CRDEEX=0 =5 , P EJECT , & PFRMFIL EQU * =5 , 4 PFORMAT EQU * =5 , L PFORMER EQU * =5 , d PRLBLKB EQU * =5 , | PCASZEN EQU * =5 , P RTN A14 =5 , P XIF =5 , P IFT CRDEEX=1 =5 , P EJECT , P* , P* FR
0x355aac…355c40 Dummy {f00=0x0109, f01=0x0190, f02=»RESS , z P* - P* EXIT : A1-A7 - P* - . & P* NUMBER OF A14 LEVELS = 4 (WORDS) - 8 P* - b PFRMFIL EQU * - l P LC A1,FDBBLZ,A11 - " P SLL A1,8 BLOCK SIZE IN BYTES - $ P ST A1,ECBRL,A8 REQUESTED LENGTH - P* - P* MAKE FORMAT BUFFER -
0x355c40…355dd4 (1, 925) Dummy {f00=0x0109, f01=0x0190, f02=»MOST SIGN. - p 2 P LD A2,FDBSNR+2,A11 SECTOR NUMBER LEAST SIGN. . PFRM130 EQU * . H P ST A1,ECBCW,A8 . P ST A2,ECBCW+2,A8 . t P LDR A3,A1 SAVE A1 . P LDR A5,A2 SAVE A2 . P CF A14,FMIOWR WRITE SECTOR . P RF(NZ) FRM140 ERROR OR EOF .
0x355dd4…355f68 Dummy {f00=0x0109, f01=0x0190, f02=» CF A14,ADDMOD . P RB FRM130 / P EJECT / ( PFRM140 EQU * / 6 P LDR A2,A1 RETURN CODE / J P SLL A2,2 / h " P RF(NN) FRM160 NOT END OF FILE / z PRLBLKB EQU * / P LDK A1,0 SET RETURN CODE / PFRM160 EQU * / & P SUKL A4,BUFSTA BUFFER WITH HE
0x355f68…3560fc Dummy {f00=0x0109, f01=0x0190, f02=»JECT / P* 0 * P* FORMAT=FORMAT BUFFER IN RECORD SIZE 0 P* 0 D & P* ENTRY :A4 = BLOCK BUFFER ADDRESS 0 N P* A1 = BUFFER LENGTH 0 x P* 0 P* EXIT :A4 = NOT CHANGED 0 P* A1,A2,A3,A5 = USED 0 P* 0 & P* NUMBER OF A14 LE
0x3560fc…356290 Dummy {f00=0x0109, f01=0x0190, f02=»IN BLOCK BUFFER =2 =1 0 ~ ( P RF(NP) FRM120 NOTHING TO FORMAT =4 1 * P LDK A2,' ' FILL BUFFER WITH SPACES =1 1 J PFRM100 EQU * 1 x P SCR A2,A3 =1 1 & P ADK A3,1 UPDATE BUFFER POINTER =1 1 P SUK A1,1 REST LENGTH =1 1 & P RB(P) FRM100 CONTINUE FILL
0x356290…356424 Dummy {f00=0x0109, f01=0x0190, f02=»S=FREE 1 z 2 P LD A1,FDBRLE,A11 RECORD LENGTH WITHOUT STATUS 2 P ADK A1,1 LENGTH WITH STATUS 2 D PFRM110 EQU * 2 h . P ADR A3,A1 POINTER TO RECORD STATUS =2 =1 2 | P SUR A5,A1 LENGTH LEFT =2 =1 2 . P RF(N) FRM120 ALL DONE IN BUFFER =6 =2 =1 2 " P SCR
0x356424…3565b8 Dummy {f00=0x0109, f01=0x0190, f02=»BL=CALCULATE MAX FDBRRO AND BLOCK SIZE IN NBR OF SECTORS 2 P* 3 @ P* ENTRY: A11=FDB ADDRESS 3 J P* 3 j P* EXIT : A1=MAX FDBRRO 3 t 0 P* A2=BLOCK SIZE IN NUMBER OF SECTORS 3 0 P* CR=GREATER IF BLOCK SIZE TOO LARGE 3 P* A3,A6
0x3565b8…35674c Dummy {f00=0x0109, f01=0x0190, f02=») 3 j : P LC A7,FDBBLF,A11 BLOCK FACTOR (NBR OF RECORDS/BLOCK) 4 P 4 H P 4 P P* 4 X 2 P* CRRBL=SAME AS CARRBL EXCEPT ENTRY PARAMETERS 4 b P* 4 P* ENTRY: A6=RECORD LENGTH 4 P* A7=BLOCK FACTOR 4 P* 4 PCRRBL EQU * 4 P ADK A
0x35674c…3568e0 Dummy {f00=0x0109, f01=0x0190, f02=»A2 MAX FDBRRO 4 P EJECT 5 P* 5 $ , P* CALCULATE BLOCK SIZE IN NBR OF SECTORS 5 . P* 5 ^ P ADR A2,A3 ADD ONE RECORD 5 h P LDR A3,A2 5 P SRL A2,8 SECTOR NBR 5 P ANK A3,/FF 5 P RF(Z) CAR100 EXACT 5 P ADK A2,1 ONE MORE SECTOR 5
0x3568e0…356a74 (1, 926) Dummy {f00=0x0109, f01=0x0190, f02=»CK WITH MAX BLOCK SIZE 5 ~ P ABR* A14 RETURN 6 P IFT CRDEEX=1 =5 6 6 P EJECT 6 P P 6 ^ P********** 6 f P* CASZEN * 6 x P********** 6 P 6 P* 6 2 P* CASZEN=CALCULATE SIZE 1-4 IN NBR OF SECTORS 6 P* 6 P* ENTRY: A12=FPB ADDRESS 6
0x356a74…356c08 Dummy {f00=0x0109, f01=0x0190, f02=» CR=O IF OVERFLOW 6 P* 7 PCASZEN EQU * 7 * $ P LD A6,FPB:RL,A12 RECORD LENGTH 7 > " P LC A7,FPB:BF,A12 BLOCK FACTOR 7 f P ANK A7,/FF 7 < P CF A14,CRRBL CALCULATE BLOCK SIZE (SECTORS/BLOCK IN A2) 7 P LDR A4,A2 BLOCK SIZE 7 P LDR A13,A
0x356c08…356d9c Dummy {f00=0x0109, f01=0x0190, f02=»2 BLOCK FACTOR (RECORDS/BLOCK) 7 P ANK A6,/FF 8 & P LDR* A1,A13 8 : , P LD A2,2,A13 A1,A2=SIZE (NBR OF RECORDS) 8 N * P CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 8 ~ P ADK A1,0 8 P RF(Z) CAS110 NO REST 8 P ADK A2,1 TAKE CARE OF REST 8 P EJECT 8
0x356d9c…356f30 Dummy {f00=0x0109, f01=0x018e, f02=»IZE IN SECTORS 8 | P ADKL A13,SIZDIF 9 P SUK A5,1 9 . P RB(P) CAS100 NEXT VOLUME 9 @ P RTN A14 9 b P XIF =5 9 r P EJECT 9 P* CHKRCD=CHECK RECORD STATUS 9 P* 9 P* ENTRY: A11=FDB ADDRESS 9 P* A1=RECORD OFFSET 9 $ P*
0x356f30…3570c4 Dummy {f00=0x0109, f01=0x0190, f02=» 9 ~ P* : & P* NUMBER OF A14 LEVELS = 2 (WORDS) : P* : < PCHKRCD EQU * : F P ADR A1,A4 : Z P ADKL A1,BUFSTA : l $ P AD A1,FDBRLE,A11 STATUS POINTER : P LDK A3,/FF : P ADKL A14,4 : P CCR A3,A1 : P ABR* A14 : P IFT INDXAC=0 :
0x3570c4…357258 Dummy {f00=0x0109, f01=0x0190, f02=» PRECECB EQU * ; P RTN A14 ; P XIF ; ( P IFT INDXAC=1 ; 4 P EJECT ; J 8 P****DESCRIPTION************************************* ; X P* ; < P* FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX. ; > P* A BINARY SEARCH IS USED. REF : KNUTH P
0x357258…3573ec Dummy {f00=0x0109, f01=0x0190, f02=»RY ; r P* < 8 P****ENTRY PARAMETERS******************************** < P* < P P* A5 = MASTER INDEX ADRESS < Z P* A9 = SEARCH KEY ADDRESS < ~ P* A10 = NR OF CHAR IN KEY < P* A11=FDB ADDRESS < P* < P* CF A14,FNDKMX < P
0x3573ec…357580 Dummy {f00=0x0109, f01=0x018e, f02=»A9,A10= UNCHANGED < & P* NUMBER OF A14 LEVELS = 5 (WORDS) = P* = D 8 P****USED REGISTERS********************************** = N P* = P* A3-A7,A12-A13 = P* = 6 P************************************************* = P* = & PCRNCIF EQU 8
0x357580…357714 (1, 927) Dummy {f00=0x0109, f01=0x0190, f02=» P LDR A13,A2 > P ANKL A13,/1 GET BIT 15 > P SRA A2,1 > 8 P LDR A12,A2 M=N/2 FLOOR > J P ADR A13,A2 I=N/2 CEILING > j P ADK A5,2 TABLE BASE - 2 > PFND020 EQU * > P LDK A4,0 > P LDR* A7,A5 ENTRY LENGTH > P LDR A6,A13 I > P
0x357714…3578a8 Dummy {f00=0x0109, f01=0x0190, f02=»GN BIT > z P LDR A4,A2 ? PFND025 EQU * ? " P ADR A4,A5 ADD MI BASE ADR - 2 ? 4 P ADK A4,2 ENTRY KEY ADR ? Z $ P LDR A1,A4 ADDRESS OF ENTRY KEY ? z P LDR A6,A10 MAX KEY LENGTH ? P LDK A7,0 CHAR ADR ? P CF A14,CHKKEY COMPARE KEYS ? P LDR A
0x3578a8…357a3c Dummy {f00=0x0109, f01=0x018e, f02=»RTN INF ? ~ . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL @ P EJECT @ B P* @ P P* SEARCHED KEY GREATER @ Z P* @ z P LDR A12,A12 M @ P RF(Z) FND050 SEARCH READY @ P ADR A13,A6 I=I+(M/2 CEIL) @ PFND030 EQU * @ P LDR A12,A7 M=M/2 FLOO
0x357a3c…357bd0 Dummy {f00=0x0109, f01=0x0190, f02=» P RB FND030 A PFND045 EQU * NO MASTER INDEX A P LDK A1,0 A : P LDK A2,1 REC NR 1 A L P RF FND070 A f PFND050 EQU * A x * P ADR* A4,A5 NEXT ADDRESS OF ENTRY KEY A PFND060 EQU * A P LDR A3,A4 ENTRY ADR A P SUK A3,3 A P ADR* A3,A5
0x357bd0…357d64 Dummy {f00=0x0109, f01=0x0190, f02=»A3 A P ADK A3,1 B P ECR A2,A2 B P LCR A2,A3 B . PFND070 EQU * B @ P ABL CALSNO B T P EJECT B h 8 P****DESCRIPTION************************************* B v P* B . P* CHKKEY COMPARES TWO CHARACTER STRINGS B P* B 8 P****ENTRY PARAME
0x357d64…357ef8 Dummy {f00=0x0109, f01=0x0190, f02=»O OF CAHARACTERS IN KEY B 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY C P* C V P* CF A14,CHKKEY C ` P* C | 8 P****EXIT PARAMETERS********************************* C P* C : P* A1 = 0 WHEN SEARCED KEY IS CONTAINED IN ENTRY KEY C ,
0x357ef8…35808c Dummy {f00=0x0109, f01=0x0190, f02=» OF SAME CHARACTERS IN WHOLE KEY C f " P* A6 = MAX NO OF CHAR IN KEY D ( P* CR=0 WHEN KEY IS FOUND D N P* P WHEN KEY IS GREATER D p P* N WHEN KEY IS LESS D & P* NUMBER OF A14 LEVELS = 2 (WORDS) D P* D 8 P****USED REGISTERS************
0x35808c…358220 Dummy {f00=0x0109, f01=0x0190, f02=»CHKKEY EQU * D " P LDR A3,A9 SEARCH KEY ADDRESS E $ P ADR A3,A7 FIRST SC CHAR TO TEST E : $ P ADR A1,A7 FIRST EC CHAR TO TEST E b PCHK020 EQU * E P LCR A2,A3 SEARCED KEY CHAR E P CCR A2,A1 SC=EC? E P RF(G) CHK100 SC GT TH EC E " P RF(L) CHK
0x358220…3583b4 (1, 928) Dummy {f00=0x010a, f01=0x0190, f02=» A3,1 NXT SC TO TEST E P ADK A1,1 NXT EC TO TEST F P RB CHK020 F < PCHK060 EQU * F P P LDK A1,0 FOUND F d P RF CHK140 F | PCHK120 EQU * F $ P LDKL A1,-1 SEARCHED KEY SMALLER F P RF CHK140 F PCHK100 EQU * F $ P LDK A1,1 SEARCHED KEY S
0x3583b4…358548 Dummy {f00=0x010a, f01=0x0190, f02=»********** F f P* G @ P* RDNXTR WILL MAKWE NEXT RECORD IN AN INDEX FILE AVAILABLE G P* IN A CORE BUFFER G ` D P* WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED G | & P* SECTOR WILL BE MADE AVAILABLE G P* G 8 P****ENTRY PARAME
0x358548…3586dc Dummy {f00=0x010a, f01=0x0190, f02=»NR G | B P* FDBRRO = RECORD OFFSET IN BUFFER, WHEN = -1 THE FIRST H 8 P* RECORD IN CURRENT SECTOR IS WANTED H P : P* A4 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN H > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED H
0x3586dc…358870 Dummy {f00=0x010a, f01=0x0190, f02=» P* A4 = BUFFER ADDRESS I * P* = 0 WHEN NO BUFFER IS ALLOCATED I $ P* A8 = ECB ADDRESS I R & P* CR=0 WHEN PHYSICAL I/O FAILED I n P* IF CR=0 I " P* THEN A1=I/O RETURN CODE I & P* ELSE A1=FDBRR0=RECORD OFFSET I & P* NUMBER OF
0x358870…358a04 Dummy {f00=0x010a, f01=0x0190, f02=» : P****************************************************** J P EJECT J B PRDNXTR EQU * J P P ADK A4,0 J d P RF(NZ) RDN200 BUFFER EXIST J v P* J P* GET A BUFFER J P* J PRDN040 EQU * J & P CF A14,GTBKBU GET BLOCKBUFFERADDR J ( P RF(
0x358a04…358b98 Dummy {f00=0x010a, f01=0x0190, f02=»D J ~ P LDR A7,A3 K P ADK A1,0 RETURN CODE K P RF(NZ) RDN900 ERROR K : PRDN080 EQU * K V P LDK A1,0 K j * P ST A1,FDBRRO,A11 OFFSET FIRST RECORD K | P RF RDN940 RETURN K P EJECT K P* K P* BUFFER WAS BEFORE K P* K PRDN2
0x358b98…358d2c Dummy {f00=0x010a, f01=0x0190, f02=»NTS TO LAST REC IN BUFFER K t P* L " PRDN220 EQU * L , P CW A1,FDBMRO,A11 MAX OFFSET L @ * P RF(NL) RDN300 THIS REC LAST IN BUFFER L d P* L , P* GET NEXT REC IN CURRENT BLOCKBUFFER L P* L $ P AD A1,FDBRLE,A11 RECORD LENGTH L P ADK A1,1
0x358d2c…358ec0 Dummy {f00=0x010a, f01=0x0190, f02=» PRDN300 EQU * M P LD A1,FDBSNR+2,A11 M P LDK A3,0 M 4 0 P LC A3,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK) M F P ADR A1,A3 NEXT SECT M z P RF(O) RDN380 M P RF RDN390 M PRDN380 ANKL A1,/7FFF M P IM FDBSNR,A11 M PRDN390 EQU * M P ST
0x358ec0…359054 (1, 929) Dummy {f00=0x010a, f01=0x0190, f02=»40 NEXT SECTOR M P* N P* ERROR EXIT N P* N 6 PRDN900 EQU * N @ P ADK A4,0 N T P RF(Z) RDN960 NO BUFFER N f " P CF A14,SDMRBU RELEASE BUFFER N PRDN960 EQU * N P LDK A4,0 INDICATE NO BUFFER N P* N P* EXIT N P* N PRD
0x359054…3591e8 Dummy {f00=0x010a, f01=0x0190, f02=»************************ N t P* O > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE O * * P* SPECIFIED KEY OR NEXT HIGHER KEY O l 6 P* IF END OF FILE, THE FIRST FREE RECORD IS FOUND O P* O 8 P****ENTRY PARAMETERS**********************
0x3591e8…35937c Dummy {f00=0x010a, f01=0x0190, f02=» = PHYSICAL ECB ADDRESS O P* P 8 P****EXIT PARAMETERS********************************* P * P* P f P* A11= FDB ADDRESS P p 0 P* FDBSNR,FDBRRO = FOUND INDEX RECORD P " P* A1 = 0 WHEN KEY ISS FOUND P 0 P* = /400 WHEN NEXT HIGHER KE
0x35937c…359510 Dummy {f00=0x010a, f01=0x0190, f02=»FER ADDRESS P & P* = 0 WHEN NO RECORD IS FOUND Q " P* A7 = NO OF SAME CHARACTERS Q > " P* A8 = PHYSICAL ECB ADDRESS Q d P* A10 = UNCHANGED Q P* CR=0 WHEN KEY IS FOUND Q & P* NUMBER OF A14 LEVELS = 9 (WORDS) Q P* Q 8 P****USED REG
0x359510…3596a4 Dummy {f00=0x010a, f01=0x0190, f02=»****************** Q l P EJECT R PFNDKEY EQU * R ( P* R < & P* FIRST SEARCH THE NMASTER INDEX R F P* R p * P LD A5,FDBMIA,A11 ADDR OF MASTER INDEX R z 0 P CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX R P RF(NZ) FKY900 ERROR R " P LDR A6,A10 NO O
0x3596a4…359838 Dummy {f00=0x010a, f01=0x0190, f02=»TR GET INDEX RECORD R ( P RF(Z) FKY900 I/O FAILED ,NO BUFFER S P* S H " P* BUFFER AND ADATA IS FOUND S R P* S x PFKY150 EQU * S P ADR A1,A4 BUFFER ADR S P ADKL A1,BUFSTA S P LDR A5,A1 S 2 P AD A5,FDBRLE,A11 ADDRESS TO STATUS CHARAC
0x359838…3599cc Dummy {f00=0x010a, f01=0x0190, f02=»CT S P* T & P* NO MORE RECORDS IN THIS SECTOR T P* T > * P LD A13,FDBRRO,A11 SAVE CURRENT OFFSET T H P LD A5,FDBMRO,A11 T v * P ST A5,FDBRRO,A11 LAST RECORD IN BLOCK T P* T P* T P* CHECK IF END OF FILE T P* T P LDR A5,A7 CHA
0x3599cc…359b60 Dummy {f00=0x010a, f01=0x0190, f02=» RB(L) FKY100 NOT EOF T P RF(G) FKY180 EOF U P CW A2,FDBLRN+1,A11 U 8 P RB(L) FKY100 NOT EOF U T P* U r P* EOF IS IN THIS SECTOR U | P* U PFKY180 EQU * U 2 P ST A13,FDBRRO,A11 OFFSET TO FIRST FREE RECORD U P LDKL A1,EOFRC EOF U
0x359b60…359cf4 (1, 930) Dummy {f00=0x010a, f01=0x018e, f02=» KEYS U z P RF(Z) FKY870 KEY FOUND V " P RF(N) FKY850 SEARCH KEY LESS V . P* V T P* SEARCH KEY GREATER V ^ P* V z PFKY840 EQU * V " P CC A7,-4,A5 NEXT KEY FLAG =3 V , P RB(NG) FKY100 START OF KEY:S IDENTICAL V 4 P LC A7,-4,A5 REDUCE NUMBER
0x359cf4…359e88 Dummy {f00=0x010a, f01=0x0190, f02=» P LDKL A1,NOKEY KEY NOT FOUND W P RF FKY950 W ( P* W : P* KEY FOUND W D P* W X PFKY870 EQU * W b P LDK A1,0 KEY FOUND W v P RF FKY950 W PFKY900 EQU * W $ P LDK A7,0 NO OF SAME LEAD CHARS W PFKY950 EQU * W ( P ABL RETURN RETURN A
0x359e88…35a01c Dummy {f00=0x010a, f01=0x0190, f02=»S ARE UPDATED W P* X P* IN: X & P* A1,A2 = LAST RECORD NR MOVED X 0 & P* A12,A13= FIRST RECORD NR MOVED X Z P* A11 = FDB ADDR INDEX X & P* A7 = ADD PARAMETER +1, -1 X P* X P* USED REGISTERS: X P* A1-A3,A6-A7
0x35a01c…35a1b0 Dummy {f00=0x010a, f01=0x0190, f02=» P* Y PCRNUPD EQU * Y $ P LD A3,FDBADF,A11 FDB DATA FILE Y " P INH Y J " P ADKL A3,FDBCRL CRN LINK ROOT Y V PCRU100 EQU * Y | P LDR* A3,A3 Y P RF(Z) CRU900 END OF LINK Y P LC A6,FWTFNR,A11 FILE CODE Y P CC A6,CRNCIF,A3 Y P RB(NE
0x35a1b0…35a344 Dummy {f00=0x010a, f01=0x018e, f02=»100 Y PCRU200 EQU * Z P CC A1,CRNCIF+1,A3 Z P RF(G) CRU300 Z : P RB(L) CRU100 Z P P CW A2,CRNCIF+2,A3 Z f P RB(L) CRU100 Z PCRU300 EQU * Z P* Z P* UPDATE CRN Z P* Z P LDR A6,A7 Z P RF(N) CRU230 -1 Z P LDK A6,0
0x35a344…35a4d8 Dummy {f00=0x010a, f01=0x0190, f02=» Z P SC A1,CRNCIF+1,A3 [ P ST A2,CRNCIF+2,A3 [ " P RB CRU100 [ < PCRU900 EQU * [ N P ENB [ b P RTN A14 [ n P EJECT DMSUBR [ ~ 8 P****DESCRIPTION************************************* [ P* [ D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO
0x35a4d8…35a66c Dummy {f00=0x010a, f01=0x0190, f02=»* FDBSNR,FDBRRO,FDBCEX [ P* * 8 P****EXIT PARAMETERS********************************* 4 P* p P* A1,A2 = LOG RECORD NO z & P* NUMBER OF A14 LEVELS = 4 (WORDS) P* 8 P****USED REGISTERS**********************************
0x35a66c…35a800 Dummy {f00=0x010a, f01=0x0190, f02=»QU * P ST A4,-4,A14 SAVE A4 ] P LD A1,FDBSNR,A11 ] * $ P LD A2,FDBSNR+2,A11 REL SECT NR ] D P LDK A6,0 ] l P LDK A7,1 ] ~ P CF A14,DSUMOD ] P LDK A6,0 ] P LC A6,FDBBLZ,A11 BLOCK SIZE ] P CF A14,DIVMOD ] P LDR A6,A2 BLOCKS - 1
0x35a800…35a994 (1, 931) Dummy {f00=0x010a, f01=0x0190, f02=»MPYMOD A1,A2=A6*A7 ] P LD A4,FDBRLE,A11 ^ P ADK A4,1 RECORD LENGTH ^ 4 P LDK A7,0 RECORD COUNTER ^ T & P LD A6,FDBRRO,A11 OFFSET IN SECTOR ^ t P ADK A6,1 ^ PGTL150 EQU * ^ P ADK A7,1 RECORD COUNTER ^ P SUR A6,A4 ^ * P RB(NN) GTL150 COU
0x35a994…35ab28 Dummy {f00=0x010a, f01=0x0190, f02=» ^ z P RF GTL170 _ PGTL160 EQU * _ & P ANKL A2,/7FFF DELETE OVERFLOWBIT _ . P ADK A1,1 ADD CARRY _ X PGTL170 EQU * _ t P LD A4,-4,A14 SAVED REGISTER _ P RTN A14 _ P EJECT _ P* _ 0 P* RECECB=MOVE RECORD NUMBER TO ECBCW1,ECBCW2 _ P
0x35ab28…35acbc Dummy {f00=0x010a, f01=0x0190, f02=»EXIT: A11,A4,A9=NOT CHANGED _ $ P* A1,A2 =USED REGISTERS ` $ & P* NUMBER OF A14 LEVELS = 2 (WORDS) ` L P* ` v PRECECB EQU * ` " P LD A2,FDBRRO,A11 RECORD ADDR ` P ADKL A2,BUFSTA ` P ADR A2,A4 REC ADDR ` $ P LD A1,FDBRLE,A11 RECORD L
0x35acbc…35ae50 Dummy {f00=0x010a, f01=0x40b8, f02=» ` P ST A1,ECBCW,A9 a P LC A1,4,A2 a P ECR A1,A1 a 4 P LC A1,5,A2 a F P ST A1,ECBCW+2,A9 a Z P RTN A14 a t P XIF a P a P a P a P END a @ a P ADKL A2,BUFSTA ` P ADR A2,A4 REC ADDR ` $ P LD A1,FDBRLE,A11 RECORD L
0x35ae50…35afe4 Dummy {f00=0x010a, f01=0x2008, f02=» b + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x35afe4…35b178 Dummy {f00=0x010a, f01=0x0000, f02=»
[…0x2…]
0x35b4a0…35b634 (1, 932) Opaque[0x194]
0x35b634…35b7c8 # DirEnt {nam=»SDMTSK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2160, f03=0x0000}
0x35b634…35b7c8 IdxSect {
0x35b634…35b7c8 f00 = 0x010b // 0x35b634 @0x0
0x35b634…35b7c8 f01 = 0x001e // 0x35b636 @0x2
0x35b634…35b7c8 gno = [ // 0x35b638 @0x4
0x35b634…35b7c8 [0x00]: C0x010b.0x0.0
0x35b634…35b7c8 [0x01]: C0x010b.0x1.0
0x35b634…35b7c8 [0x02]: C0x010b.0x2.0
0x35b634…35b7c8 [0x03]: C0x010b.0x3.0
0x35b634…35b7c8 [0x04]: C0x010c.0x0.0
0x35b634…35b7c8 [0x05]: C0x010c.0x1.0
0x35b634…35b7c8 [0x06]: C0x010c.0x2.0
0x35b634…35b7c8 [0x07]: C0x010c.0x3.0
0x35b634…35b7c8 [0x08]: C0x010d.0x0.0
0x35b634…35b7c8 [0x09]: C0x010d.0x1.0
0x35b634…35b7c8 [0x0a]: C0x010d.0x2.0
0x35b634…35b7c8 [0x0b]: C0x010d.0x3.0
0x35b634…35b7c8 [0x0c]: C0x010e.0x0.0
0x35b634…35b7c8 [0x0d]: C0x010e.0x1.0
0x35b634…35b7c8 [0x0e]: C0x010e.0x2.0
0x35b634…35b7c8 ]
0x35b634…35b7c8 }
0x35b7c8…35b95c Dummy {f00=0x010b, f01=0x0190, f02=» 2 P IDENT SDMTSK REL 11.0 81-05-13 870105041100 P : : P =B, REW. AND DEL. INDEXED,NO RELEASE OF KEY BLK BUF B P =B, REL 11.0 81-05-12 " P =A, CONDITION FOR CR,DE,EX P =A, REL 11.0 81-04-15 , P =9, REWRITE WITH DUP KEY DIDN'T
0x35b95c…35baf0 Dummy {f00=0x010b, f01=0x0190, f02=».I. KEYS NOT CORRECT WRITTEN P =7, REL 11.0 81-02-26 $ 2 P =6, DELETE,REWRITE DIRECT INDEXED REFORMED D P =6, REL 11.0 81-02-25 z 0 P =5, CURRENCY NOT CORRECT WHEN START INDX P =5, REL 11.0 81-02-24 4 P =4, MOV:SU DON'T WORK W
0x35baf0…35bc84 Dummy {f00=0x010b, f01=0x0190, f02=»1.0 81-02-06 ( P =2, INTERN ORDER START N.L WRONG P =2, REL 11.0 81-02-06 @ & P =1, REG. CRASH WHEN COMP. KEYS ` P =1, REL 11.0 81-01-26 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYS
0x35bc84…35be18 Dummy {f00=0x010b, f01=0x0190, f02=»******************************************** P* 4 , P* THIS MODULE IS ACTIVATED FROM TIODM. > P* n P* INPUT PARAMETERS: x P* A1 = FDB ADDRESS < P* A2 = TID TASK IDENT OF SDMTSK AT PRESENT NOT USED P* D P* THE BLOC
0x35be18…35bfac Dummy {f00=0x010b, f01=0x018e, f02=» PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT < 8 P* THE BLOCK MUST FIRST BE READ INTO A FREE BUFFER. P* P EJECT P* P*************** P* ENTRIES
0x35bfac…35c140 Dummy {f00=0x010b, f01=0x0190, f02=» ^ P ENTRY SDMERX,ORDFLP P EJECT $ P* 2 P***************** < P* EXTERNALS * V P***************** p P* P* P P* DEFINED IN TDISP , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK P P* DEFINED IN TOS
0x35c140…35c2d4 (1, 933) Dummy {f00=0x010b, f01=0x0190, f02=»4 P P* DEFINED IN FMTASK P EXTRN FWTFNR . P EXTRN FPB:EL D P Z P* DEFINED IN TIODM b & P EXTRN FDBADF,FDBAI1,FDBBLZ,FDBDBR | & P EXTRN FDBECB,FDBENL,FDBKA,FDBKEY & P EXTRN FDBLRN,FDBMRO,FDBOMD,FDBRLE P EXTRN FDBRRO,
0x35c2d4…35c468 Dummy {f00=0x010b, f01=0x0190, f02=»TSB A14 STACK BASE 4 P EXTRN DMXACD EXIT RUNNING TASK AND ACTIVATE #D P EXTRN SDMSTS STACK START R P EXTRN SDMBF1,SDMBF2 t P EJECT P P* DEFINED IN TIOSDM & P EXTRN SDMOOR,SDMLIM,SDMOEX,SDMOOS P EXTRN SDMOIP,SDMIOP P
0x35c468…35c5fc Dummy {f00=0x010b, f01=0x0190, f02=» P EXTRN RELPRO & P EXTRN FMIORD,FMIOWR,FMIORF,FMIOEX P EXTRN FRMFIL D P EXTRN RLBLKB,CHKRCD Z P EXTRN GTLGRN v P EXTRN CRNUPD,CRNCIF P EXTRN CHKKEY P EXTRN RDNXTR 6 P EXTRN RECECB MOVE RECORD NUMBER TO ECBCW1,ECBCW2
0x35c5fc…35c790 Dummy {f00=0x010b, f01=0x0190, f02=» P EXTRN SDMRLB P P* DEFINED IN DMOPCL " P EXTRN SDMOPN,SDMCLO,SDMRFP > P EXTRN OPEFPB b P x P* DEFINED IN DSUMOD P EXTRN DSUMOD P EJECT P* P* P* P************************ P* CONDITIO
0x35c790…35c924 Dummy {f00=0x010b, f01=0x0190, f02=»A EQU 1 PY:B EQU 1 P* " 6 P* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH , , P* INDXAC EQU 1 = INDEX ACCESS INCLUDED f 6 P* INDXAC EQU 0 = INDEX ACCESS FUNCTIONS OMITTED PINDXAC EQU X:A 0 PINSLAS EQU Y:A INSERT SAME KEY LAS
0x35c924…35cab8 Dummy {f00=0x010b, f01=0x0190, f02=»=0 t P* PCRDEEX EQU X:B =A P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 2 P* KEYDUP=1 MEANS THAT PRIMARY INDEX (I1) DON'T , P* ALLOW
0x35cab8…35cc4c Dummy {f00=0x010b, f01=0x0190, f02=»************* P . PFMFPBL EQU 80 FILE PARAMETER BLOCK LENGTH P EJECT P P* ^ P************************ h P* DATA DEFINITIONS * P************************ P* 2 P* THE FOLLOWING INTERNAL ORDER CODES ARE THE $ P
0x35cc4c…35cde0 Dummy {f00=0x010b, f01=0x0190, f02=» A7 d 6 P* 0<X<=7 NOT CHANGED 0 6 P* X>7 ODD X=(X+17)/2 - J 6 P* X>7 EVEN X=(X-8)/2 - P* PORDERS EQU * P POROPEN EQU *-ORDERS P DATA SD
0x35cde0…35cf74 (1, 934) Dummy {f00=0x010b, f01=0x0190, f02=»EAD SEQUENTIAL P POWRRM0 EQU *-ORDERS P DATA WRRM00 WRITE RANDOM : P POWRSQ0 EQU *-ORDERS d " P DATA WRSQ00 WRITE SEQUENTIAL P POREWR0 EQU *-ORDERS 6 P DATA REWR00 REWRITE NOT INDEXED (DIRECT,CURRENT) P EJE
0x35cf74…35d108 Dummy {f00=0x010b, f01=0x0190, f02=»STRTDI START DIRECT (EQUAL,GREATER,NOT LESS) P 4 POEXTND EQU *-ORDERS < P DATA EXTEND EXTEND FILE X P x POCLOSE EQU *-ORDERS P DATA SDMCLO CLOSE P PORDFLP EQU *-ORDERS & P DATA SDMRFP READ FILE PARAMETERS P
0x35d108…35d29c Dummy {f00=0x010b, f01=0x0190, f02=»NDEXED v P PORDSQX EQU *-ORDERS ( P DATA RDSQIX READ SEQUENTIAL INDEXED 2 P ^ POWRRMX EQU *-ORDERS f & P DATA WRRMIX WRITE RANDOM INDEXED P POWRSQX EQU *-ORDERS 8 P DATA DMTERR WRITE SEQUENTIAL INDEXED (NOT ALLOWED)
0x35d29c…35d430 Dummy {f00=0x010b, f01=0x0190, f02=»DELTIX DELETE INDEXED (DIRECT,CURRENT) P . POSTRTX EQU *-ORDERS 6 8 P DATA STRTIX START INDEXED (EQUAL,GREATER,NOT LESS) R P P XIF P EJECT P* P* ORDER INDEX TABLE P* PBYTE FORM 8,8 P PORDTAB EQU
0x35d430…35d5c4 Dummy {f00=0x010b, f01=0x0190, f02=»REWR0 REWRITE NOT INDEXED * P BYTE ODELT0,ODELT0 DELETE NOT INDEXED " 4 P BYTE ORDSQ0,ORDRM0 READ SEQUENTIAL,READ RANDOM P $ P BYTE OSTRTD,OSTRTD START DIRECT * P BYTE OSTRTD,OCLOSE START DIRECT,CLOSE PORDTEX EQU *-ORDTAB P IFT INDXAC=0
0x35d5c4…35d758 Dummy {f00=0x010b, f01=0x0190, f02=»E OWRRMX,OREWRX WRITE RANDOM INDEXED,REWRITE INDEXED 6 P BYTE OREWRX,ODELTX REWRITE INDEXED,DELETE INDEXED < > P BYTE ODELTX,ORDSQX DELETE INDEXED,READ SEQUENTIAL INDEXED v : P BYTE ORDRMX,OSTRTX READ RANDOM INDEXED,START INDEXED & P BYTE OSTRTX,OSTRT
0x35d758…35d8ec Dummy {f00=0x010b, f01=0x0190, f02=»SDMTSK * P************** P* ( PSDMTSK EQU * 2 P* F P* SET UP A14 STACK P P* l P LD A14,PRUN v P ADKL A14,DMTTSB STACK BASE P LDR A11,A1 FDB ADDR P LDR A8,A11 $ P ADKL A8,FDBECB FDB ECB ADDRESS & P L
0x35d8ec…35da80 Dummy {f00=0x010b, f01=0x0190, f02=»A5,SDMLIM LIMIT BETWEEN OPEN AND CLOSE P RF(N) DMT100 OPEN ORDER . P LDK A7,2 MASK BIT N P TM A7,A5 h " P RF(Z) DMT010 ORDER CODE EVEN z " P ADK A5,50 CORRECT ORDER INDEX PDMT010 EQU * " P SRL A5,2 INDEX IN ORDER TABLE $ P LC A7,O
0x35da80…35dc14 (1, 935) Dummy {f00=0x010b, f01=0x0190, f02=»* READ RANDOM INDEXED,START INDEXED 2 P* DELETE DIRECT INDEXED,REWRITE DIRECT INDEXED , 2 P* OPEN AND READ FILE PARAMETERS DON'T NEED ANY b P* BLOCK BUFFER YET & P RF(N) DMT090 NO BLOCK BUFFER YET PDMT015 EQU * =8 P LD A4,FDBADF,A11 DA
0x35dc14…35dda8 Dummy {f00=0x010b, f01=0x0190, f02=»DEXED,READ SEQUENTIAL INDEXED . P* DELETE INDEXED,START AND READ SEQUENTIAL & P* X $ P CF A14,FNDBLB FIND BLOCK BUFFER b P IFT CRDEEX=0 P ABL(N) DMTERR I/O ERROR , P ABL(P) SDMERX EOF WHEN READ SEQUENTIAL PEXTEND EQU * =A P
0x35dda8…35df3c Dummy {f00=0x010b, f01=0x018e, f02=»TEST IF EXTEND SHOULD BE DONE P* & P LD A7,DWTOR,A11 0 P ANK A7,/3F ORDER INDEX H P CWK A7,OEXTND h P RF(E) DMT030 ORDER EXTEND ~ P SUK A7,OWRSQ0 & P RF(NZ) DMTER NOT WRITE SEQUENTIAL PDMT030 EQU * P LDR A2,A1 P S
0x35df3c…35e0d0 Dummy {f00=0x010b, f01=0x0190, f02=» f P ADK A7,0 P RF(NZ) DMT090 ORDER EXTEND , P LDKL A1,SDMOEX TIOSDM ORDER FOR EXTEND > P SC A1,DWTOR+1,A11 n ( P CF A14,SDMRLB RELEASE BLOCK BUFFER " P LDKL A8,SDMTSK DISPATCH ENTRY P LDR A6,A11 FDB ADDRESS $ P ABL DMXACD EX
0x35e0d0…35e264 Dummy {f00=0x010b, f01=0x018e, f02=»D A7,DWTOR,A11 $ P LDR A2,A7 OPTION AND ORDER CODE & P ANK A7,/3F A7=INTERNAL ORDER CODE > PDMT100 EQU * h @ P LDKL A12,OPEFPB FPB ADDRESS FOR OPEN CLOSE READ FILE PARAM. | P P " P* (A4= BLOCK BUFFER ADDRESS ) ( P* (A5 = BLOCK BUF
0x35e264…35e3f8 Dummy {f00=0x010b, f01=0x0190, f02=» P* (A9 = USER ECB ADDRESS ) P ( P 0 " P ABI ORDERS,A7 SDMTSK FUNCTION 8 P EJECT ^ 4 P*********************************************** l 4 P* * 4 P* R E A D S E Q U E N T I A L
0x35e3f8…35e58c Dummy {f00=0x010b, f01=0x0190, f02=» * 4 P*********************************************** , P d PRDSQ00 EQU * SEQUENTIAL READ l PRDRM00 EQU * RANDOM READ PSTRTDI EQU * START DIRECT P* P* CHECK STATUS P* P CF A14,CH
0x35e58c…35e720 Dummy {f00=0x010b, f01=0x0190, f02=»BL(Z) DMERND READ RANDOM,NO DATA P SUK A7,OSTRTD-ORDRM0 ( " P RF(NZ) DMT250 READ SEQUENTIAL F P* l P* START DIRECT v P* P LC A3,DWTOPT,A11 P ANK A3,7 OPTION " P RF(NZ) DMT250 OPTION DEFINED P RF DMT230 NO OPTION
0x35e720…35e8b4 (1, 936) Dummy {f00=0x010c, f01=0x0190, f02=» P LD A3,ECBRL,A9 REQ LGTH $ P LD A2,FDBRLE,A11 RECORD LENGTH $ P CWR A3,A2 L P RF(NG) DMT220 ^ P LDR A3,A2 MAX LENGTH t PDMT220 EQU * ( P ST A3,ECBEL,A9 SET EFFECTIVE LENGTH P* P* MOVE THE RECORD P* P LD A1
0x35e8b4…35ea48 Dummy {f00=0x010c, f01=0x0190, f02=»VE RECORD TO USER P XIF P IFT MMUPAG=1 & " P LD A4,DWTTAB,A11 TTAB ADDRESS < * P LD A7,TTB:PW,A4 PSW FOR THIS TASK =4 b & P ANK A7,1 SYSTEM,USER MODE BIT =4 P RF(NZ) DMT225 USER MODE =4 P CF A14,MOVFW MOVE RECORD =4 P RF DM
0x35ea48…35ebdc Dummy {f00=0x010c, f01=0x0190, f02=» ACCESS BIT p P* PDMT230 EQU * P ABL DMT400 PUT CRN AND EA 2 P EJECT T P* b 6 P* STATUS BYTE = NOT USED AND ORDER IS SEQ. READ OR l P* START DIRECT WITH OPTION P* $ PDMT250 EQU * NO DATA AT SEQ READ P* P*
0x35ebdc…35ed70 Dummy {f00=0x010c, f01=0x0190, f02=»T260 EQU * P ST A1,ECBCW,A9 ! P ST A2,ECBCW+2,A9 ! * P* ! D : P* ENTRY ALSO FOR READ RANDOM INDEXED AND START INDEXED ! N P* ! PDMT280 EQU * ! P* ! P* CHECK EA ! P* ! P LD A1,ECBCW,A9 ! P LD A2,ECBCW+2,A9 REC NR !
0x35ed70…35ef04 Dummy {f00=0x010c, f01=0x0190, f02=» A4,OSTRTX ! P RB(E) DMT230 START INDEXED " P XIF " 6 P EJECT " B P CF A14,CALSNO PREP IO " P " P ABL(NZ) DMTERR OUT OF MEDIUM " n P LC A3,FDBDBR,A11 DELAY " P ANK A3,/10 " P RF(NZ) DMT290 KEEP BUFFER " P* " P* RELEASE BLOCK BU
0x35ef04…35f098 Dummy {f00=0x010c, f01=0x0190, f02=»DMT020 NEXT RECORD " P IFT CRDEEX=1 # P EJECT # 0 " P***************************** # > " P* E X T E N D F I L E * # d " P***************************** # P # PEXTEND EQU * # ( P LD A4,ECBBA,A8 BLOCK BUFFER ADDRESS # 4 P LDKL A3,OPEFPB
0x35f098…35f22c Dummy {f00=0x010c, f01=0x0190, f02=» ST A2,ECBRL,A8 # ( P CF A14,FMIORF READ FILE PARAMETERS $ $ P LD A1,FDBENL,A11 ENLARGE FACTOR $ D $ P ST A1,FPB:EL,A3 FILL IN ENLARGE $ l P CF A14,FMIOEX EXTEND FILE $ , P ST A4,ECBBA,A8 SET BLOCK BUFFER ADDRESS $ P RB(NZ) DMTER ERROR $ P CF A1
0x35f22c…35f3c0 Dummy {f00=0x010c, f01=0x0190, f02=» $ ~ * P ABL DMT020 TRY WRITE SEQUENTIAL AGAIN % P XIF % 6 P EJECT % B 4 P*********************************************** % P 4 P* * % 4 P* D E L E T E I N D E X E D * % 4 P* R E W R I T
0x35f3c0…35f554 (1, 937) Dummy {f00=0x010c, f01=0x0190, f02=»******* % h P & PDELTIX EQU * DELETE INDEXED & PREWRIX EQU * REWRITE INDEXED & < P IFT INDXAC=1 & ` P ANKL A2,/100 & v P RF(Z) DELT00 NOT DIRECT & , P CF A14,FNDKYP SET PARAM AND THEN FNDKEY & " P ABL(NZ) DMIER2 KEY NOT FOUND & " P LD A9
0x35f554…35f6e8 Dummy {f00=0x010c, f01=0x0190, f02=»WTOR,A11 INTERN ORDER INDEX =6 & 0 P LD A11,FDBADF,A11 FDB ADDRESS DATA FILE =6 ' & 8 P ANKL A1,/FEFF INDICATE CURRENT INSTEAD OF DIRECT =6 ' Z . P ST A1,DWTOR,A11 SAVE IN FDB DATA FILE =6 ' P LD A1,ECBCW,A9 ' P LD A2,ECBCW+2,A9 ' P CF A14,EATEST
0x35f6e8…35f87c Dummy {f00=0x010c, f01=0x0190, f02=» LDR A8,A11 =6 ' & P ADKL A8,FDBECB SDM ECB ADDRESS =6 ( & P ABL DMT015 GET BLOCK BUFFER =6 =8 ( B P XIF ( l P EJECT ( x 4 P*********************************************** ( 4 P* * ( 4 P* W R I T E S
0x35f87c…35fa10 Dummy {f00=0x010c, f01=0x0190, f02=»D * ( f 4 P* D E L E T E N O T I N D E X E D * ) 4 P* W R I T E R A N D O M I N D E X E D * ) F 4 P* * ) ~ 4 P*********************************************** ) P ) " PWRSQ00 EQU * WRITE
0x35fa10…35fba4 Dummy {f00=0x010c, f01=0x018e, f02=»DELT00 EQU * DELETE NOT INDEXED ) P* * ( & P* TEST IF OPENED OUTPUT SEQUENTIAL * 2 P* * 0 P CF A14,CHKSTS A10=POINTER TO RECORD STATUS * f P LC A1,FDBOMD,A11 * P ANK A1,/FF * P CWK A1,SDMOOS * 0 P RF(E) DMS110 OUTPUT SEQ.,DON'T CHECK STAT
0x35fba4…35fd38 Dummy {f00=0x010c, f01=0x018e, f02=» P EJECT + P* + P* RECORD STATUS=USED + P* + 8 P IFT INDXAC=1 + B P LDR A4,A7 + X P SUK A4,OWRRMX + j & P RF(Z) DMS100 WRITE RANDOM INDEXED + P XIF + P LDR A4,A7 + P SUK A4,OWRRM0 + P RF(Z) DMS100 WRITE RANDOM + P SUK A4,
0x35fd38…35fecc Dummy {f00=0x010c, f01=0x0190, f02=» P* RECORD STATUS=NOT USED , P* , $ PDMS110 EQU * , . P IFT INDXAC=1 , B P LDR A4,A7 , X P SUK A4,OREWRX , j " P RF(Z) DMERND REWRITE INDEXED , P SUK A4,ODELTX-OREWRX , P RF(Z) DMERND DELETE INDEXED , P XIF , P LDR A4,A7 , P S
0x35fecc…360060 Dummy {f00=0x010c, f01=0x0190, f02=»20 EQU * , P CF A14,EATEST - P RF(N) DMEAER EA OTHER TASK - & P EJECT - J P LDK A3,0 STATUS FREE - X P IFT INDXAC=1 - v P LDR A2,A7 - P SUK A2,OWRRMX - & P RF(E) CHK010 WRITE RANDOM INDEXED - P SUK A2,OREWRX-OWRRMX - " P RF(E) CHK01
0x360060…3601f4 (1, 938) Dummy {f00=0x010c, f01=0x0190, f02=»E) CHK010 DELETE INDEXED - P XIF . P LDR A2,A7 . , P SUK A2,ODELT0 . > $ P RF(E) DMT350 DELETE NOT INDEXED . T P IFT INDXAC=0 . | P RF DMT320 . P XIF . P IFT INDXAC=1 . P RF DMT310 . P EJECT . PCHK010 EQU * . L P* REWRITE IN
0x3601f4…360388 Dummy {f00=0x010c, f01=0x0190, f02=»DK A4,8 MAX 4 INDEX . PCHK040 EQU * / P SUK A4,2 / 0 $ P RF(N) CHK100 ALL INDEX CHECKED / B P LDR A2,A11 FDB ADD / j P ADR A2,A4 / ( P LD A6,FDBAI1,A2 FDB ADDR INDEX FILE / P RB(Z) CHK040 NO INDEX / P LD A2,DWTOR,A11 / P ANK A2,/3F OR
0x360388…36051c Dummy {f00=0x010c, f01=0x0190, f02=»E / v P LC A2,DWTOPT,A11 OPTION 0 P ANK A2,/4 0 * * P RB(NZ) CHK040 NO CHECK ON DEL CURRENT 0 < P EJECT 0 j P* =3 0 x $ P* A6=FDB ADDRESS INDEX FILE =3 0 P* =3 0 PCHK050 EQU * 0 & P LD A9,DWTECB,A11 GET USER ECB =9 0 P IFT MMUPAG=1
0x36051c…3606b0 Dummy {f00=0x010c, f01=0x0190, f02=»DR A2,A6 GET KEY AREA POINTER =3 0 & P LD A3,FDBRLE,A6 RECORD LENGTH =3 1 ( P SUK A3,6 KEY LENGTH 1 R P LDR A9,A4 SAVE A4 =1 1 n & P LD A4,DWTTAB,A11 GET TTAB ADDRESS 1 , P CF A14,MOV:US MOVE KEY TO FDB KEY AREA 1 P LDR A4,A9 RESTORE A4 =1 1 2 P L
0x3606b0…360844 Dummy {f00=0x010c, f01=0x0190, f02=»ADDRESS 1 t & P LD A9,FDBKA,A11 KEY START ADDRESS 2 P ADR A2,A9 2 : P XIF 2 L P IFT INDXAC=1 2 X P EJECT 2 n P LDR A1,A2 ENTRY KEY ADDRESS 2 | P AD A9,FDBRRO,A11 2 P ADR A9,A5 KEY IN FILE 2 P LDK A7,0 2 " P LD A6,FDBRLE,A6 RECORD LENGTH
0x360844…3609d8 Dummy {f00=0x010c, f01=0x018e, f02=» RF DMERPR PROTECTED 2 P* =3 3 P* END OF CHECK KEY LOOP =3 3 , P* =3 3 P PCHK100 EQU * 3 ` P LD A7,DWTOR,A11 3 t P ANK A7,/3F ORDER INDEX 3 P XIF 3 P EJECT 3 P* 3 P* MOVE RECORD 3 P* 3 PDMT310 EQU * 3 P I
0x3609d8…360b6c Dummy {f00=0x010c, f01=0x0190, f02=» 3 P LDK A4,8 4 PIXINS3 EQU * 4 P LDR A3,A11 FDB DATA 4 . P ADR A3,A4 4 J P LD A2,FDBADF,A3 FDB INDEX 4 P RF(Z) IXINS4 NO INDEX 4 ~ P LD A1,FDBKA,A2 KEY ADDR 4 P AD A1,FDBRRO,A11 REC OFFS 4 ( P ADR A1,A5 BUFFERADDR GIVES KEY ADDR 4 "
0x360b6c…360d00 Dummy {f00=0x010c, f01=0x018e, f02=»IXINS4 EQU * 4 P SUK A4,2 5 P RB(NZ) IXINS3 MORE INDEXS 5 & P ABL DMXDEL DELETE INDEXED 5 H P XIF 5 j P EJECT 5 v P******************** 5 P* * 5 P* E R R O R * 5 P* * 5 P********************
0x360d00…360e94 (1, 939) Dummy {f00=0x010c, f01=0x018e, f02=» 5 * PDMEAER EQU * RELEASE EA FOR ALL FILES 6 " P LC A3,FDBTNR,A11 USER TASK ID 6 6 P ANK A3,/FF 6 " P CF A14,RELPRO RELEASE PROTECT 6 p P LDKL A1,PROERR PROTECT ERR 6 PDMERR EQU * 6 P RF DMTERR 6 P EJECT 6 P* 6 * P* MOVE RECORD FR
0x360e94…361028 Dummy {f00=0x010c, f01=0x0190, f02=» 6 n P LD A2,FDBRRO,A11 7 P ADR A2,A5 TO ADDRESS 7 " P LD A1,ECBBA,A9 FROM ADDRESS 7 @ P IFT MMUPAG=0 7 d P CF A14,MOVFW 7 z P XIF 7 P IFT MMUPAG=1 7 & P LD A4,DWTTAB,A11 GET TTAB ADDRESS 7 8 P CF A14,MOV:US MOVE RECORD FROM USER TO SYST
0x361028…3611bc Dummy {f00=0x010c, f01=0x0190, f02=»0 7 P LD A3,FDBDBR,A11 8 P RF(NN) DMT390 NO DELAY 8 $ P* 8 D P* DELAY 8 N P* 8 ^ P LDKL A2,/1000 8 h " P ORS A2,FDBDBR,A11 KEEP BUFFER 8 ~ P RF DMT400 8 P* 8 P* WRITE BLOCK TO DISC 8 P* 8 PDMT390 EQU * 8 P CF A14,FM
0x3611bc…361350 Dummy {f00=0x010c, f01=0x0190, f02=»A14,CRNGET GET CURRENCY BUFFER 8 P LDR A10,A2 BUFFER ADDR 9 & P LD A1,ECBCW,A9 9 F P LD A2,ECBCW+2,A9 LOG REC NR 9 ^ P LD A7,DWTOR,A11 9 P ANK A7,/3F ORDER INDEX 9 P LDR A4,A7 9 P SUK A4,OWRRM0 9 P RF(Z) DMT450 WRITE RANDOM 9 P SUK
0x361350…3614e4 Dummy {f00=0x010c, f01=0x018e, f02=» IFT INDXAC=1 9 P SUK A4,OREWRX-OREWR0 : " P RF(Z) DMT450 REWRITE INDEXED : 4 P ADK A4,OREWRX-OWRRMX : Z & P RF(Z) DMT440 WRITE RANDOM INDEXED : x P SUK A4,OSTRTX-OWRRMX : P RF(Z) DMT410 START INDEXED : P XIF : P LDR A4,A7 ORDER INDEX :
0x3614e4…361678 Dummy {f00=0x010c, f01=0x0190, f02=» P* ; P* LRN=LRN-1 ; P* ; " PDMT410 EQU * ; , P LDR A3,A1 ; @ P LDR A4,A2 ; R P SUK A4,1 ; d P RF(NN) DMT420 ; v P ANKL A4,/7FFF ; P SUK A3,1 ; P* ; $ P* SET NEW CURRENT RECORD NUMBER ; P* ; PDMT420 EQU * ; " P ST
0x361678…36180c Dummy {f00=0x010c, f01=0x0190, f02=» ; PDMT430 EQU * < P ST A1,CRNCDF,A10 < & P ST A2,CRNCDF+2,A10 CRN DATA FILE < 6 P RF DMT450 < ` P < r P* < z P* UPDATE LRN < P* < PDMT440 EQU * < P SC A1,FDBLRN,A11 < P ST A2,FDBLRN+1,A11 < P EJECT < PDMT450 EQU *
0x36180c…3619a0 Dummy {f00=0x010c, f01=0x0190, f02=»E) DMT460 OPEN INPUT PROTECTED < P CWK A4,SDMIOP = & 2 P RF(NE) DMT470 NOT OPEN INPUT OUTPUT PROTECTED = < P* = r " P* CHECK IF EA IS SET ALREADY = | P* = PDMT460 EQU * = P CF A14,EATEST CHECK EA = " P RF(NZ) DMT470 EA ALREADY SET = P*
0x3619a0…361b34 (1, 940) Dummy {f00=0x010d, f01=0x0190, f02=»DK A4,OWRRMX = P CWR A7,A4 > ( P ABL(E) DMINS2 WRITE RANDOM INDEXED > & P XIF > R P EJECT > ^ , P*************************************** > l , P* * > , P* E X I T D M T A S K * > , P*
0x361b34…361cc8 Dummy {f00=0x010d, f01=0x0190, f02=»A11 > P ANK A4,/10 ? P RF(NZ) SDMERX KEEP BUFFER ? ( P CF A14,SDMRLB RELEASE BLOCK BUFFER ? B PSDMERX EQU * ? n ( P LD A6,FDBADF,A11 GET FDB DATA FILE ? P INH ? P* ? P* A1 = RET CODE ? P* A6 = DWT ADDR ? P* ? P CF A1
0x361cc8…361e5c Dummy {f00=0x010d, f01=0x0190, f02=»**** ? d 4 P* * @ 4 P* R E A D R A N D O M I N D E X E D * @ D 4 P* S T A R T I N D E X E D * @ | 4 P* * @ 4 P****************************
0x361e5c…361ff0 Dummy {f00=0x010d, f01=0x0190, f02=»ND THEN FNDKEY @ v P* A , P* ENTRY ALSO FOR READ SEQUENTIAL INDEXED A P* A P . PDMR100 EQU * FROM READ SEQUENTIAL INDEXED A Z P LD A9,DWTECB,A11 A P LD A2,DWTOR,A11 A P ANK A2,/3F ORDER A P SUK A2,OSTRTX A P RF(NZ) DMR110 NOT START A
0x361ff0…362184 Dummy {f00=0x010d, f01=0x0190, f02=» P SUK A1,1 B P RF(Z) DMIER4 NOT OPERABLE B P ADK A1,1 B 8 P RF(NZ) DMIER1 KEY NOT FOUND B J , P CF A14,RECECB MOVE RECORD NUMBER TO ECB B n P EJECT B P* B P* SET CRN B P* B $ P LDR A13,A11 SAVE FDB INDEX FILE B $ P LD A11,FDBA
0x362184…362318 Dummy {f00=0x010d, f01=0x0190, f02=» B v & P CF A14,CRNGET GET CRN BUFFER ADDR C P LDR A10,A2 CRN BUFFER ADDR C 2 P LDR A11,A13 FDB INDEX FILE C V ( P CF A14,GTLGRN GET INDE X LOG REC NO C z P LDK A7,ORDRM0 RANDOM READ C P SUK A5,OSTRTX C P RF(NE) DMR120 INDEXED READ C P LDK A
0x362318…3624ac Dummy {f00=0x010d, f01=0x0190, f02=» C P SC A1,CRNCIF+1,A10 D & P ST A2,CRNCIF+2,A10 CRN INDEX FILE D $ P LD A2,ECBCW,A9 REC NR DATA D N P ST A2,CRNCDF,A10 D r P LD A2,ECBCW+2,A9 D P ST A2,CRNCDF+2,A10 D P LC A2,FWTFNR,A11 FILE NR D P SC A2,CRNCIF,A10 D P LDR A11,A
0x3624ac…362640 Dummy {f00=0x010d, f01=0x0190, f02=»MT280 D P EJECT E : P***************************************************** E : P* * E Z : P* R E A D S E Q U E N T I A L I N D E X E D * E : P*
0x362640…3627d4 (1, 941) Dummy {f00=0x010d, f01=0x0190, f02=»RRO,A11 RECORD OFFSET E P LDR A4,A5 BUFFER ADDRESS F P SUKL A4,BUFSTA F @ PDMI100 EQU * F X & P CF A14,CHKRCD CHECK RECORD STATUS F l P RF(E) DMI130 USED F P LD A3,FDBMRO,A11 F * P ST A3,FDBRRO,A11 LAST RECORD IN BLOCK F P EJECT F P*
0x3627d4…362968 Dummy {f00=0x010d, f01=0x0190, f02=» P RF(G) DMIER6 EOF G P CW A2,FDBLRN+1,A11 G P RF(NL) DMIER6 END OF FILE G : PDMI120 EQU * G ( P CF A14,RDNXTR GET NEXT INDEX RECORD G p P RB(NZ) DMI100 RECORD FOUND G P RF DMIER2 ERROR G P EJECT G PDMI130 EQU * G P* G P*
0x362968…362afc Dummy {f00=0x010d, f01=0x0190, f02=»RD HAS THE SAME KEY G z P* H $ P LD A1,FDBRRO,A11 RECORD OFFSET H & P ADKL A1,BUFSTA H N P ADR A1,A4 REC ADDR H f P LD A3,FDBRLE,A11 REC LENGTH H P SUK A3,6 KEY LENGTH H P ADR A1,A3 H ( P CC A3,2,A1 DUPLICATE KEY CHARACTER H $ P RF(NE)
0x362afc…362c90 Dummy {f00=0x010d, f01=0x0190, f02=»OUND H . P ABL DMR100 CONT AS FOR INDEXED RAND READ I P EJECT I > P******************** I L P* * I h P* E R R O R * I P* * I P******************** I P I ( PDMIER1 LDKL A1,KEYERR KEY NOT FOUND I
0x362c90…362e24 Dummy {f00=0x010d, f01=0x018e, f02=»MERX NO BUFFER I P ABL DMTERR ERROR AND BUFFER J PDMIER3 EQU * J : P ANK A1,/27 J N " P RB(NZ) DMIERR BIT 10,13,14,15 J b " P LDKL A1,EOMERR GRAVE ERR ALSO J P RB DMIERR J PDMIER4 EQU * J P LDK A1,1 NOT OPERABLE J P RB DMIERR J PDMIE
0x362e24…362fb8 Dummy {f00=0x010d, f01=0x0190, f02=» J : P***************************************************** K : P* * K F : P* W R I T E R A N D O M I N D E X E D (P2) * K : P* D E L E T E I N D E X E D * K : P*
0x362fb8…36314c Dummy {f00=0x010d, f01=0x0190, f02=» WRITE RANDOM INDEXED PART 2 K PDMXDEL EQU * DELETE INDEXED L $ P LC A4,FDBDBR,A11 L H P ANK A4,/10 L b P RF(NZ) DXI010 KEEP BUFFER L v ( P CF A14,SDMRLB RELEASE BLOCK BUFFER L PDXI010 EQU * L P LDK A5,10 LOOPER L PDXI020 EQU * NEXT INDE
0x36314c…3632e0 Dummy {f00=0x010d, f01=0x018e, f02=» P ADR A1,A5 M P LD A1,FDBADF,A1 FDB INDEX M P RB(Z) DXI020 NO INDEX M 8 P LD A2,DWTOR,A11 ORDER M V P ST A2,DWTOR,A1 M t $ P LD A2,DWTECB,A11 USER ECB ADDR M P ST A2,DWTECB,A1 M " P ST A5,FDBKA,A11 SAVE COUNTER M & P LDR A11,A1 FDB ADDRES
0x3632e0…363474 (1, 942) Dummy {f00=0x010d, f01=0x0190, f02=» M * P* RETURN FROM UPDATING OF ONE INDEX N P* N 6 PDMTAR5 EQU * N @ , P LD A11,FDBADF,A11 FDB ADDRESS DATA FILE N T , P LD A5,FDBKA,A11 GET COUNTER OF INDEXES N P RB DXI020 TAKE NEXT INDEX N P* N 0 P* END IF WRITE RANDOM INDEXED ELSE CONTI
0x363474…363608 Dummy {f00=0x010d, f01=0x0190, f02=»MERX READY N P ABL DMT020 RESTART SDMTSK O P EJECT O 4 : P***************************************************** O B : P* * O : P* W R I T E R A N D O M I N D E X E D * O : P* D E L E
0x363608…36379c Dummy {f00=0x010d, f01=0x0190, f02=»***************************** O x P P & & PDMINIX EQU * WRITE RANDOM INDEXED P . P IFT MMUPAG=0 P X P* P n P* GET KEY IN USER BUFFER P x P* P , P LD A9,FDBADF,A11 FDB ADDRESS DATA FILE P & P LD A9,DWTECB,A9 USER ECB ADDRESS P P LD A9,ECB
0x36379c…363930 Dummy {f00=0x010d, f01=0x0190, f02=»DEX RECORD P z P LDR A9,A11 Q P ADKL A9,FDBKEY KEY ADDR Q & PINS010 EQU * Q F P LDR A12,A9 Q Z $ P LD A10,FDBRLE,A11 RECORD LENGTH Q n P SUKL A10,6 KEY LENGTH Q P LDR A8,A14 Q 0 P ADKL A8,2 ECB ADDR TO RECORD BUFFER AREASS Q $ P CF A14,FNDK
0x363930…363ac4 Dummy {f00=0x010d, f01=0x0190, f02=»WTECB,A11 USER ECB ADDRESS Q P LD A2,DWTOR,A11 ORDER CODE R " P ANK A2,/3F R F P SUK A2,ODELTX R Z & P ABL(E) DEL000 DELETE INDEX RECORD R p P EJECT R P* R ( P* SET RC BIT 6 TO USER IF NEXT KEY R " P* IS SAME IN REQUESTED INDEX R P* R
0x363ac4…363c58 Dummy {f00=0x010d, f01=0x0190, f02=»DEX R z P XIF S P IFT INDXAC=1 S " P LDKL A1,NXTKYS NEXT KEY SAME S 0 $ P ORS A1,ECBRC,A9 SET RETURN CODE S V P IFT INSLAS=1 S ~ P EJECT S P* S P* INSERT SAME KEY LAST S P* S $ P LD A1,FDBRRO,A11 RECORD OFFSET S P RF INS100
0x363c58…363dec Dummy {f00=0x010d, f01=0x0190, f02=»A14,CHKRCD CHECK RECORD STATUS S P RF(E) INS150 USED T & P LD A3,FDBMRO,A11 T @ P ST A3,FDBRRO,A11 T Z * P RB INS080 GET FIRST RE C IN NXT SECT T t PINS150 EQU * T ( P LC A6,-4,A1 DUPLICATE KEY CHARACTER T P CWR A6,A10 CHECK KEY LENGTH T $ P R
0x363dec…363f80 Dummy {f00=0x010d, f01=0x018e, f02=» P LD A1,FDBRRO,A11 U P CW A1,FDBMRO,A11 U & P RF(NE) INS160 SECT WRITTEN LATER U 8 P* U b P* WRITE BLOCK U l P* U P CF A14,FMIOWR U P ABL(NZ) DMTERR U P* U P* GET NEXT RECORD U P* U PINS160 EQU * U P CF A14,
0x363f80…364114 (1, 943) Dummy {f00=0x010d, f01=0x0190, f02=» PINS180 EQU * V P* V ( P* CREATE AN INDEX RECORD IN AREA 1 V " P* V N P LDR A1,A12 FROM ADDR V X P LDR A2,A14 V v P ADKL A2,SDMBF1 TO ADDRESS V P LDR A3,A10 KEY LENGTH V P CF A14,MOVFW MOVE KEY V P SCR A3,A2 DUMMY V P ADK A2,
0x364114…3642a8 Dummy {f00=0x010d, f01=0x018e, f02=»SS V p $ P ADKL A1,ECBCW+1 SOURCE POINTER W * P LDK A3,3 NUMBER OF CHARACTERS TO MOVE W 2 P CF A14,MOVFW W ` P LDK A1,/FF USED W v P SCR A1,A2 STATUS CHAR W $ P CF A14,GTLGRN GET REC NR INDEX W P* W , P* SAVE RECORD NR FOR FIRST MOVED INDEX W
0x3642a8…36443c Dummy {f00=0x010d, f01=0x0190, f02=» W X $ P* USED RECORDS ROLLED FORWARD X $ P* A4,A10,A11 IS USED AT ENTRY X 0 $ P ADKL A10,7 RECORD LENGTH TOTAL X X P* X P* USE D REGISTERS X P* A11 = FDB ADDR INDEX X P* A9 = AREA ADDR X " P* A10 = RECORD LENGTH INDEX X ,
0x36443c…3645d0 Dummy {f00=0x010d, f01=0x0190, f02=» * X P LDKL A9,SDMBF1 BUFFER 1 Y P ADK A5,0 Y * P RF(Z) INS210 BUFAR1 Y < P LDKL A9,SDMBF2 BUFFER 2 Y X PINS210 EQU * Y x & P ADR A9,A14 RECORD BUFFER ADDRESS Y P* Y P* SAVE LAST RECORD Y P* Y P LDR A1,A4 Y P ADKL A1,BUFSTA
0x3645d0…364764 Dummy {f00=0x010d, f01=0x0190, f02=»JECT Y P* Z 4 P* MOVE REST OF BLOCK DOWN ONE RECORD POSITION Z P* Z N P LDR A1,A4 Z X P ADKL A1,BUFSTA Z j P AD A1,FDBRRO,A11 FROM ADDR Z P LDR A6,A1 Z P LD A3,FDBMRO,A11 Z P SU A3,FDBRRO,A11 NR OF CHAR Z P LDR A2,A1 Z P
0x364764…3648f8 Dummy {f00=0x010d, f01=0x0190, f02=»0 Z P RF(Z) INS250 BUFAR1 [ P LDKL A1,SDMBF1 [ & PINS250 EQU * [ > P ADR A1,A14 FROM ADDR [ R P LDR A3,A10 NR OF CHAR [ p P LDR A2,A6 TO ADDR [ P CF A14,MOVFW MOVE [ P EJECT [ P* [ P* WRITE BUFFER [ P* [ $ P LDR A8,A14
0x3648f8…364a8c Dummy {f00=0x010d, f01=0x0190, f02=»A8 [ P LDR A2,A4 P ADKL A2,BUFSTA P ST A2,ECBBA,A8 SECTOR ADDR 6 P LC A2,FDBBLZ,A11 BLOCK SIZE Z P SLL A2,8 IN BYTE ~ P ST A2,ECBRL,A8 P LD A2,FDBSNR,A11 SECTOR NR P ST A2,ECBCW,A8 SECTOR NR P LD A3,FDBSNR+2,A1
0x364a8c…364c20 Dummy {f00=0x010d, f01=0x018e, f02=»TION IS READY l P* ] P LDR A2,A9 RECORD AREA ADDR ] P ADR A2,A10 REC LGTH ] D " P SUK A2,1 ADDR OF STATUS CHAR ] ` P LD A3,FDBMRO,A11 ] ( P ST A3,FDBRRO,A11 MAX OFFSET IN SECT ] P CCR A1,A2 ] P RF(Z) INS400 FREE RECORD ] P EJECT ]
0x364c20…364db4 (1, 944) Dummy {f00=0x010e, f01=0x0190, f02=» " P LDR A5,A9 RESTORE REGISTER =7 ^ P ADK A4,0 SET CR =7 ^ * PINS260 EQU * ^ F ( P RB(Z) INS170 GO TO DMIER3 IF ERROR ^ Z * P XRK A5,1 SWITCH KEY RECORD BUFFERS =7 ^ P RB INS200 ^ PINS400 EQU * ^ P* ^ ( P* UPDATE LRN IF EOF IS ENCOUNTERED
0x364db4…364f48 Dummy {f00=0x010e, f01=0x0190, f02=»1,A11 ^ P RF(NG) INS430 NO EOF _ PINS410 EQU * _ , ( P SC A1,FDBLRN,A11 LAST RECORD NUMBER _ @ P ST A2,FDBLRN+1,A11 _ l & P LD A9,DWTECB,A11 USER ECB ADDRESS _ P LDKL A3,EOFRC END OF FILE _ P ORS A3,ECBRC,A9 TO USER _ P EJECT _ PINS430
0x364f48…3650dc Dummy {f00=0x010e, f01=0x0190, f02=» 1 TO RECORD NUMBERS _ ~ PINS440 EQU * ` P CF A14,SDMRBU REL BUFFER ` 0 * P ABL DMTAR5 ONE INDEX READY TAKE NEXT ` R P EJECT ` * PDEL000 EQU * DELETE INDEX RECORD CONT ` P ADK A1,0 ` PDEL010 EQU * ` " P ABL(NZ) DMIER3 KEY NOT FOUND ` P
0x3650dc…365270 Dummy {f00=0x010e, f01=0x0190, f02=»1 ` " P ADK A1,7 BUFSTA-3=ADDR REC NR a P LCR A2,A1 a 0 P CC A2,ECBCW+1,A9 REC NR a B P RF(NE) DEL030 WRONG RECORD a b P LC A2,1,A1 a P ECR A2,A2 a P LC A2,2,A1 REC NR a P CW A2,ECBCW+2,A9 a P RF(E) DEL200 RECORD FOUND a PDEL030
0x365270…365404 Dummy {f00=0x010e, f01=0x0190, f02=»Y NOT SAME a z PDEL040 EQU * b ( P CF A14,RDNXTR GET NEXT INDEX RECORD b & PDEL045 EQU * b R ( P RB(Z) INS260 GO TO DMIER3 IF ERROR b f P* b P* CHECK IF RECORD IS USED b P* b & P CF A14,CHKRCD CHECK RECORD STATUS b P RB(E) DEL020 USED b
0x365404…365598 Dummy {f00=0x010e, f01=0x0190, f02=»ECORD FOUND b P* c & P* SET RC BIT 6 IF NEXT KEY SAME c P* c H P LC A7,-1,A1 NR OF SAME CHAR c R P ANK A7,/FF c v 2 P ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB c P CWR A10,A7 KEY LENGTH c $ P RF(NE) DEL220 NEXT KEY NOT SAME c P L
0x365598…36572c Dummy {f00=0x010e, f01=0x0190, f02=» $ P ADKL A10,7 TOTAL RECORD LENGTH d P LDR A2,A4 d , P ADKL A2,BUFSTA d > P AD A2,FDBRRO,A11 TO ADDR d V P LDR A1,A2 d x P ADR A1,A10 FROM ADDR d P LD A3,FDBMRO,A11 d P SU A3,FDBRRO,A11 NR OF CHAR d P CF A14,MOVFW MOVE d P* d
0x36572c…3658c0 Dummy {f00=0x010e, f01=0x0190, f02=»* UPDATE CRN FOR MOVED RECORDS d P* e ( P CF A14,GTLGRN GET REC NR e 2 P LDR A12,A1 e T " P LDR A13,A2 FIRST REC NR MOVED e h 2 P LD A3,FDBRRO,A11 SAVE RELATIVE RECORD OFFSET e P LD A6,FDBMRO,A11 e P ST A6,FDBRRO,A11 MAX OFFSET e $ P CF A1
0x3658c0…365a54 (1, 945) Dummy {f00=0x010e, f01=0x018e, f02=»DK A5,1 MARK BUFFER CHANGED e P EJECT f $ PDEL240 EQU * f 2 P LD A1,FDBRRO,A11 f F $ P RF(NZ) DEL290 NOT FIRST RECORD f ` P CF A14,GTLGRN GET REC NR f P LDK A6,0 f P LDK A7,1 f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 f P RF(Z) DEL600 FILE
0x365a54…365be8 Dummy {f00=0x010e, f01=0x0190, f02=» f n P EJECT g P* g P* WRITE SECTOR g P* g 8 P CF A14,FMIOWR g B P ABL(NZ) DMTERR g X $ P LDK A5,0 BUFFER NOT CHANGED YET g p PDEL245 EQU * g " P CF A14,SDMRBU RELEASE BUFFER g P* g P* GET PREVIOUS SECTOR g P* g P L
0x365be8…365d7c Dummy {f00=0x010e, f01=0x0190, f02=» P RF DEL300 h PDEL290 EQU * h P SU A1,FDBRLE,A11 h * P SUK A1,1 h D PDEL300 EQU * h V , P ST A1,FDBRRO,A11 PREVIOS RECORD OFFSET h j & P CF A14,CHKRCD CHECK RECORD STATUS h P RB(NE) DEL240 FREE h P EJECT h P* h P* SET CURRENCY
0x365d7c…365f10 Dummy {f00=0x010e, f01=0x0190, f02=» " P CF A14,CRNGET GET CRN BUFFER i ( P LDR A11,A12 FDB ADDRESS INDEX FILE i * $ P LC A1,FWTFNR,A11 INDEX FILE NR i V $ P CC A1,CRNCIF,A2 LAST REF INDEX i ~ P RF(NE) DEL350 NOT THIS IND i P* i P* UPDATE CURRENCY i P* i P LDR A3,A2 CRN
0x365f10…3660a4 Dummy {f00=0x010e, f01=0x018e, f02=»C A2,17,A14 NR OF SAME IN DELETED RECORD i " P* WAS SAVED AT LABEL DEL200 j 0 P CC A2,-4,A9 j V P RF(NL) DEL600 j j ( P SC A2,-4,A9 MAKE NR OF SAME SMALLER j P RF DEL700 WRITE SECTOR j PDEL600 EQU * j P ADK A5,0 j $ P RF(Z) DEL900 BUFFER N
0x3660a4…366238 Dummy {f00=0x010e, f01=0x0190, f02=» j ~ PDEL900 EQU * k P ABL INS440 k P XIF k 0 P EJECT k < P* k J P* FNDBLB=FIND BLOCK BUFFER k T P* k v PFNDBLB EQU * k P LD A7,DWTOR,A11 ORDER k P ANK A7,/3F k P SUK A7,ORDSQ0 k & P RF(NZ) FBL110 NOT READ SEQUENTIAL k P*
0x366238…3663cc Dummy {f00=0x010e, f01=0x0190, f02=» k ~ P CW A3,FDBLRN+1,A11 l P RF(NG) FBL110 NO EOF l $ PFBL100 EQU * l B P LDK A2,1 INDICATE ERROR l V P LDKL A1,EOFERR EOF l v P RF FBL170 RETURN l PFBL110 EQU * l P LDKL A2,/CFFF l & P ANS A2,FDBDBR,A11 RELEASE BUFFER l $ P CF A14,
0x3663cc…366560 Dummy {f00=0x010e, f01=0x0190, f02=» IF IT IS NOT THE WANTED BLOCK l P* m ( P LC A7,BUFOR,A4 DELAY FLAG m 2 P ANK A7,/3 m T P RF(Z) FBL150 NO DELAY m f P CM BUFOR,A4 RESET m P ANK A7,1 m P RF(NZ) FBL130 RIGHT SECTOR m P LD A7,BUFSNR,A4 SECT NR m P ST A7,ECBCW,A8 m
0x366560…3666f4 (1, 946) Dummy {f00=0x010e, f01=0x0190, f02=» m r P RB FNDBLB GET NEW BUFFER n P EJECT n * PFBL120 EQU * n 8 P* n L P* READ BLOCK INTO BUFFER n V P* n x " P CF A14,FMIORD PHYSICAL READW n P RF(NZ) FBL160 ERROR n P LD A5,ECBBA,A8 n P RF FBL150 n . PFBL130 EQU * RIGHT DELAYED
0x3666f4…366888 Dummy {f00=0x010e, f01=0x0190, f02=»F FBL170 n PFBL160 EQU * o P LDKL A2,-1 INDICATE ERROR o $ PFBL170 EQU * o F P ADKL A14,4 o Z P ADK A2,0 SET CR o n P ABR* A14 o P EJECT o P* o @ P* CHKSTS=CHECK RECORD STATUS AND LOAD LOGICAL RECORD NUMBER o P* o P* ENTRY :
0x366888…366a1c Dummy {f00=0x010e, f01=0x0190, f02=» NUMBER o r ( P* A10=RECORD STATUS POINTER p P* A4=DESTROYED p < & P* CR=0 IF RECORD NOT USED p Z P* p PCHKSTS EQU * p P LD A10,FDBRRO,A11 p P AD A10,FDBRLE,A11 p P ADR A10,A5 p P LD A1,ECBCW,A9 p P LD A2
0x366a1c…366bb0 Dummy {f00=0x010e, f01=0x4134, f02=»AMETERS AND THEN GO TO FNDKEY SUBROUTINE p P* q 0 P IFT INDXAC=1 q : PFNDKYP EQU * q P P LDR A9,A11 q d $ P ADKL A9,FDBKEY KEY AREA ADDRESS q x * P LD A10,FDBRLE,A11 RECORD LENGTH INDEX q P SUKL A10,6 KEY LENGTH q P ABL FNDKEY q P XIF q
0x366bb0…366d44 Dummy {f00=0x010e, f01=0x2008, f02=» r + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x366d44…366ed8 Dummy {f00=0x010e, f01=0x0190, f02=»T q P { P W" f H D !@ R V ` ^ Z d V b # ' ` + Z / d 1T 5V" 9 " H D ! ;R I h O j [ l gPN kP oPF sP h l P h f : P n H D !J) W2 h l P f > l P h ^ P6 P > H D !
0x366ed8…36706c Dummy {f00=0x010e, f01=0x4118, f02=» L P R H D !"@ L L L F P W - F 5 P 7P = P K R W N H D ! @ [P _ e o sP w N R R J T V P0 T X T Z H D ! H # J %P ) J /P 7P, CP k ^ q b { Z T F T ,
0x36706c…367200 Dummy {f00=0x010e, f01=0x40aa, f02=» J F IDENT EBCDIC REL 10.0 80-03-14 870105041000 TASCIIK TEBCDI R TASCIIK l TEBCDI @ P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/0000 78-7F 4 P DAT
0x367200…367394 (1, 947) Opaque[0x194]
0x367394…367528 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21d8, f03=0x0000}
0x367394…367528 IdxSect {
0x367394…367528 f00 = 0x010e // 0x367394 @0x0
0x367394…367528 f01 = 0x0004 // 0x367396 @0x2
0x367394…367528 gno = [ // 0x367398 @0x4
0x367394…367528 [0x00]: C0x010e.0x3.0
0x367394…367528 [0x01]: C0x010f.0x0.0
0x367394…367528 ]
0x367394…367528 }
0x367528…3676bc Dummy {f00=0x010e, f01=0x0190, f02=» 2 P IDENT ST8000 REL 11.0 81-01-26 870105041100 P : P ENTRY ST8000 B P* X * P EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW b P EXTRN IHTC,IHSOP,CHLT1,IHFD ( P EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD P* ST8000 EQU * P* P
0x3676bc…367850 Dummy {f00=0x010e, f01=0x018e, f02=» P DATA ILLINT P DATA ILLINT 6 $ P DATA IHTW 7 @ P DATA IASCUZ 8 Z P DATA IHSOP 9 v P DATA ISLCI P DATA ISLCO P DATA CHRT1 12 P DATA IHMD 13 P
0x367850…3679e4 Dummy {f00=0x010e, f01=0x0190, f02=» P DATA ILLINT 19 P DATA ILLINT 20 P DATA ILLINT 21 < P DATA ILLINT 22 X P DATA ILLINT 23 t P DATA ILLINT 24 P DATA ILLINT 25 P DATA ILLINT 26 P DATA ILLINT 27 P DATA IL
0x3679e4…367b78 Dummy {f00=0x010e, f01=0x0190, f02=»A ILLINT 33 P DATA ILLINT 34 P DATA ILLINT 35 4 P DATA ILLINT 36 P P DATA ILLINT 37 l P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT 40 P DATA ILLINT 41 P DATA ILLINT
0x367b78…367d0c Dummy {f00=0x010e, f01=0x0190, f02=» 47 P DATA ILLINT 48 P DATA ILLINT 49 , P DATA ILLINT 50 H P DATA ILLINT 51 d P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56
0x367d0c…367ea0 Dummy {f00=0x010e, f01=0x4034, f02=» | P DATA ILLINT 62 END $@ 0LINT 49 , P DATA ILLINT 50 H P DATA ILLINT 51 d P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56
0x367ea0…368034 (1, 948) Dummy {f00=0x010f, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x368034…3681c8 Dummy {f00=0x010f, f01=0x0190, f02=»R BIT 0-8= DELAY + SAME INDICATOR " P* BUFOR BIT 9-15= BUFFER AGE * P* BUFSTA= BLOCK AREA P P* n P* x P EJECT PSDMGBU EQU * P STR A7,A14 SAVE A7 P INH INH P LD A4,CURBUF P LDK A5,0 PDMT010 LDR* A4
0x3681c8…36835c Dummy {f00=0x010f, f01=0x0190, f02=»F(Z) DMT015 FREE P SLL A7,1 P SC A7,BUFOR,A4 MARK DELAY * PDMT015 EQU * L P CW A1,BUFSNR,A4 ` P RF(NE) DMT020 x P CW A2,BUFSNR+2,A4 P RF(NE) DMT020 WRONG SECT NR P LDKL A7,/100 & P ORS A7,BUFOR,A4 MARK SAME SECT NR
0x36835c…3684f0 Dummy {f00=0x010f, f01=0x0190, f02=» STATUS IN BIT 15 P RF(NZ) DMT030 USED P IM BUFOR,A4 MAKE OLDER 6 $ P SC A7,BUFOR,A4 CLEAR LEFT BYTE V PDMT030 EQU * ~ P CW A5,BUFOR,A4 P RF(G) DMT041 NOT OLDER P LD A5,BUFOR,A4 P ST A4,NEWBUF PDMT041 EQU *
0x3684f0…368684 Dummy {f00=0x010f, f01=0x018e, f02=» Z P* $ P LD A4,NEWBUF CHOOSE THIS BUFFER P ECR A5,A5 : P LDR A5,A5 L P RF(Z) DMT042 NO BUFFER ^ P ANK A5,/3 ~ P RF(Z) DMT043 NO DATA & P LDK A3,0 INDICATE DATA IN BUFFER P ANK A5,/2 P RF(NZ) DMT051 DELAY P R
0x368684…368818 Dummy {f00=0x010f, f01=0x0190, f02=» P* * P* SET CURBUF AND BUFFER HEADER WORDS P* @ P ST A3,BUFDMI,A4 DMIDENT,FC J " P ST A1,BUFSNR,A4 SECTOR NUMBER n P ST A2,BUFSNR+2,A4 * P LDK A3,1 INDICATE BUFFER MUST BE READ PDMT050 EQU * " P CM BUFOR,A4 RESET OLD-C
0x368818…3689ac Dummy {f00=0x010f, f01=0x0190, f02=»A7,A14 SAVED REGISTER P ENB ENB P RTN A14 0 P EJECT @ P* N P************** X P* SDMRLB * n P************** P* P* ENTRY: A8=ECB ADDRESS P* P* EXIT : A8=NOT CHANGED $ P* A4=BLOCK BUFFER A
0x3689ac…368b40 Dummy {f00=0x010f, f01=0x018e, f02=»** P* SDMRBU * P************** P* 6 . P* ENTRY SDMRBU RELEASE A DISC BUFFER @ P* r $ P* INPUT A4 = BUFFER ADDRESS | P* A2 IS DESTROYED P* P* PSDMRBU EQU * P IFT CHECK=1 P LD
0x368b40…368cd4 (1, 949) Opaque[0x194]
0x368cd4…368e68 # DirEnt {nam=»SYSINI«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21e8, f03=0x0000}
0x368cd4…368e68 IdxSect {
0x368cd4…368e68 f00 = 0x010f // 0x368cd4 @0x0
0x368cd4…368e68 f01 = 0x0028 // 0x368cd6 @0x2
0x368cd4…368e68 gno = [ // 0x368cd8 @0x4
0x368cd4…368e68 [0x00]: C0x010f.0x1.0
0x368cd4…368e68 [0x01]: C0x010f.0x2.0
0x368cd4…368e68 [0x02]: C0x010f.0x3.0
0x368cd4…368e68 [0x03]: C0x0110.0x0.0
0x368cd4…368e68 [0x04]: C0x0110.0x1.0
0x368cd4…368e68 [0x05]: C0x0110.0x2.0
0x368cd4…368e68 [0x06]: C0x0110.0x3.0
0x368cd4…368e68 [0x07]: C0x0111.0x0.0
0x368cd4…368e68 [0x08]: C0x0111.0x1.0
0x368cd4…368e68 [0x09]: C0x0111.0x2.0
0x368cd4…368e68 [0x0a]: C0x0111.0x3.0
0x368cd4…368e68 [0x0b]: C0x0112.0x0.0
0x368cd4…368e68 [0x0c]: C0x0112.0x1.0
0x368cd4…368e68 [0x0d]: C0x0112.0x2.0
0x368cd4…368e68 [0x0e]: C0x0112.0x3.0
0x368cd4…368e68 [0x0f]: C0x0113.0x0.0
0x368cd4…368e68 [0x10]: C0x0113.0x1.0
0x368cd4…368e68 [0x11]: C0x0113.0x2.0
0x368cd4…368e68 [0x12]: C0x0113.0x3.0
0x368cd4…368e68 [0x13]: C0x0114.0x0.0
0x368cd4…368e68 ]
0x368cd4…368e68 }
0x368e68…368ffc Dummy {f00=0x010f, f01=0x0190, f02=» 2 P IDENT SYSINI REL 11.0 81-01-26 870105041100 P : . P =2,WHEN MMUPAG=0 INITIATE PAGE ADDRESS B $ P IN PAGTAB WITH RIGHT VALUE t P PRR 11.0 80-12-03 , P =1,CREATE PAGES FOR APPLICATIONS WITH " P DIFFERENT SEGMENT SIZE
0x368ffc…369190 Dummy {f00=0x010f, f01=0x0190, f02=» * P* ENTRIES AND EXTERNALS * P* * @ P*************************** d P P* LABEL ENTRIES P ENTRY SYSINI P ENTRY INILEN PROGRAM LENGTH P ENTRY INIEND END OF SYSINI
0x369190…369324 Dummy {f00=0x010f, f01=0x018e, f02=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK 6 * P ENTRY CONVRT CONVERSION ASCII-BINARY n 2 P ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY & P ENTRY MULT MULTIPLICATION ROUTINE 2 P ENTRY XMOVE
0x369324…3694b8 Dummy {f00=0x010f, f01=0x0190, f02=» l $ P ENTRY GETTAB FIND TTAB-ADDRESS $ P ENTRY GETTTB FIND TTAB-ADDRESS 0 0 P ENTRY MMENT FIND LAST USED ENTRY IN MM-TAB X , P ENTRY PUSH STORE REGISTERS ON A15-STACK 0 P ENTRY POB RESTORE REGISTERS FROM A15-STACK P ENTRY GETAPP P E
0x3694b8…36964c Dummy {f00=0x010f, f01=0x0190, f02=»RY MMTAB WORK-TABLE 1 (MMU 6 P ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 " 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' P ENTRY MMBEG , P ENTRY LSTPAG DISPL. TO 'ENTRY POINTER'
0x36964c…3697e0 Dummy {f00=0x010f, f01=0x0190, f02=»CTLAC LOGICALL ADDRESS TO COMMON PART P EXTRN SCTTCT TC:TAB ADDRESS . P EXTRN SCTSTB A15 STACK-BASE R " P EXTRN SCTEFA END OF FREE AREA v " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMMC =00002 P EXTRN S
0x3697e0…369974 (1, 950) Dummy {f00=0x010f, f01=0x0190, f02=»G BUGGER ADDRESS , P EXTRN STKEND START OF SCRATCH-PAD AREA * P EXTRN STKCOM START OF COMMON-PAD AREA H P v P* EXTERNAL LABELS ~ $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXTRN ACTOT QUEUE TASK P E
0x369974…369b08 Dummy {f00=0x010f, f01=0x0190, f02=»48 SWITCH TO LEVEL 48 P P* & , P EXTRN TTB:SA START OF SAVE AREA IN TTAB 0 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS ` 8 P EXTRN TTB:MT DISPL. TO 1:ST MMU-TABLE ENTRY IN TTAB 0 P EXTRN TTB:SP DISPL TO SEGMENT TABLE ADDRESS
0x369b08…369c9c Dummy {f00=0x010f, f01=0x0190, f02=»************************************* , P* CONDITIONAL ASSEMBLY * . , P*************************************** ^ P $ PDSKPAG EQU 0 0 = NO DISC PAGING PMMUPAG EQU 0 0 = NO MMU PCPU852 EQU 1 0 = NOT 852 CPU 2 P******
0x369c9c…369e30 Dummy {f00=0x010f, f01=0x018e, f02=» * n 2 P* ==================== * 2 P* * J 2 P********************************************* P P . PAPLADA EQU 22 APPL. REL. BASE (2 WORDS) =1 . PAPLREL EQU 18 NU
0x369e30…369fc4 Dummy {f00=0x010f, f01=0x0190, f02=» Z 8 PAPLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE ADDRESS D 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) n . PAPLMMC EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . P
0x369fc4…36a158 Dummy {f00=0x010f, f01=0x018e, f02=»APLSTA EQU 16 APPL. PGM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE . . PAPLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 T P EJECT . P***************************************** . P* * . P* COMMON DISPLA
0x36a158…36a2ec Dummy {f00=0x010f, f01=0x0190, f02=» 0 PAPLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE $ PAPPLNO EQU 18 APPLICATION NUMBER < ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE d . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF D
0x36a2ec…36a480 Dummy {f00=0x010f, f01=0x018e, f02=»2 1ST FREE PAGE (PHYSICAL) , PFYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER " 6 PLSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART R ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AR
0x36a480…36a614 (1, 951) Dummy {f00=0x010f, f01=0x0190, f02=» j & PSWBFSE EQU 8 SWB-FILE END ADDRESS ( PTTAB EQU 32 WORK AREA FOR MMU TABLE 2 * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS ^ , PSWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2
0x36a614…36a7a8 Dummy {f00=0x010f, f01=0x018e, f02=» $ P******************************* $ P* SCRATCH-PAD DISPLACEMENTS * , $ P******************************* T P* | . PAPCBLK EQU 0 START OF APPL. CONTROL BLOCK P EJECT P P ***************** P *****************
0x36a7a8…36a93c Dummy {f00=0x010f, f01=0x0190, f02=» z P P********** P* P:MTAB * & P********** 8 PT:ATAB EQU 0 J PU:BTAB EQU 2 ^ PP:BAS EQU 6 SEGMENT BASE r . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS P EJECT P
0x36a93c…36aad0 Dummy {f00=0x010f, f01=0x0190, f02=»* r P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE 6 ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS X , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK LEVEL
0x36aad0…36ac64 Dummy {f00=0x010f, f01=0x0190, f02=» DEVICE CLASS ~ PTLC EQU 7 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH 8 P* d * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD n P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CDBBT+1 2N NUMBER
0x36ac64…36adf8 Dummy {f00=0x010f, f01=0x0190, f02=»UDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES " P* R ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH P EJECT
0x36adf8…36af8c Dummy {f00=0x010f, f01=0x0190, f02=»SEGMENT END (HERE: STACKSIZE) | $ PCSB EQU -12 CURRENT SEGMENT BASE & 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH N 2 P OF ALL DSCB-RECORDS PT:DAD EQU -8 ADDRESS TO T:D * PCIA EQU -6 CURRENT INSTUCTION ADDRESS
0x36af8c…36b120 Dummy {f00=0x010f, f01=0x0190, f02=» POINTER PSTKB EQU 2 STACK BASE " PWATFST EQU 4 FIRST WAT-ELEMENT . P* T P* DSCB-RECORD: ^ PDSCBL EQU 20 RECORD LENGTH t " PBL EQU 2 LENGTH OF FIX BUFFER 2 PSB EQU 4 INDEX TO DSCB WHICH SHARE THE BUFFER PBP EQU 18 BUFFER POINT
0x36b120…36b2b4 (1, 952) Dummy {f00=0x0110, f01=0x0190, f02=»:A n , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) : 8 PDATTAB EQU 6 DISPLACEMENT TO BEGINNING OF DAT-TABLE j & PWATLEN EQU 8 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 10 MASK FOR TWB'S (ONE BIT/ENTRY) * PSWBM
0x36b2b4…36b448 Dummy {f00=0x0110, f01=0x0190, f02=»BFST EQU 18 FIRST WORD IN DBLK-TAB P * . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS 2 P d P p P**************** x P* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS P P LAMP CODE MEANING P
0x36b448…36b5dc Dummy {f00=0x0110, f01=0x0190, f02=»P4 EQU /80 FORMAT ERROR (CONFIG) PLMP5 EQU /40 TID ERROR ( " PLMP6 EQU /20 UWB OR SWB ERROR F " PLMP7 EQU /10 MM-TABLE OVERFLOW l PLMP8 EQU 8 PLMP9 EQU 4 PLMP10 EQU 2 PLMP11 EQU 1 P EJECT " P****************************
0x36b5dc…36b770 Dummy {f00=0x0110, f01=0x0190, f02=»AX EQU 500 DEFAULT SPL STACK-SIZE 4 PENTFIN EQU /FFFF PROGRAMMER DEFINED ENTRY POINT * & PSPLSTS EQU 4 DIAGNOSTIC,STACK-SIZE b PSPLSTB EQU 52 STACK-BASE PSPLENT EQU 54 ENTRY-FINI PSPLSTA EQU 88 STACK-AREA P P P************
0x36b770…36b904 Dummy {f00=0x0110, f01=0x0190, f02=» n , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE & PSWBLEN EQU 4 DISP TO LENGTH OF SWB 8 P b $ PFCBDD1 EQU 8 DISP TO FIRST DSET n $ PFCBDD2 EQU 10 DISP TO 2:ND DSET P $ PSTKSZ EQU 128 DEFAULT STACK-SIZE P ( PSEGREC EQU
0x36b904…36ba98 Dummy {f00=0x0110, f01=0x0190, f02=»DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB 0 P ^ ( PNTPA EQU 4 INTERPRETER START ADDRESS f & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ PRTCDA EQU /1B RTC DEVICE ADDRESS P > PTABLEN EQU 20 LENGTH OF
0x36ba98…36bc2c Dummy {f00=0x0110, f01=0x0190, f02=»********************************* p F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * * F P* DATA [REL-ADDRESS] * t F P* * F P
0x36bc2c…36bdc0 Dummy {f00=0x0110, f01=0x0190, f02=» P EJECT P LDKL A1,SYSINI P AD A1,M:REL+STKCOM * " P ABR A1 GO TO START OF SYSINI F P EJECT l P z 6 P************************************************** 6 P************************************************** 6 P**
0x36bdc0…36bf54 (1, 953) Dummy {f00=0x0110, f01=0x0190, f02=» ** n 6 P************************************************** 6 P************************************************** R P , PREL RF SUBBA JUMP TO SUBROUTINE HANDLER & P LDR A13,P GET BASE ADDRESS TO A13 P SUKL A13,4 P*
0x36bf54…36c0e8 Dummy {f00=0x0110, f01=0x0190, f02=»SOLUT DITO 4 P ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE P* LOAD STACKBASE * J P****************** d P ~ P LDKL A14,STACKB P ADR A14,A13 RELOCATE P RTN A8 P P P* STACK * P********* P
0x36c0e8…36c27c Dummy {f00=0x0110, f01=0x0190, f02=»************** P* PPSW EQU *-REL P DATA GETPSW 6 P J D P**************************************************************** V D P* G E T P S W * D P* LITTLE SUBROUTINE TO PUT PSW IN
0x36c27c…36c410 Dummy {f00=0x0110, f01=0x0190, f02=»EL $ P STR A2,A14 SAVE A2 ON A14-STACK ! 0 P LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ! 2 . P ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM ! f P LDR* A2,A14 RESTORE A2 ! P RTN A14 ! P EJECT ! P ! & P********************************* ! & P
0x36c410…36c5a4 Dummy {f00=0x0110, f01=0x018e, f02=»*********************** ! P " PSUBSUB EQU *-REL " ( & PSUBBA ST A10,COM04+STKCOM SAVE A10 " @ . P LD* A10,4,A14 GET SUBROUTINE REL ADDRESS " j $ P IM 4,A14 ADJUST RETURN ADDRESS " P IM 4,A14 " 2 P AD A10,M:REL+STKCOM ADD FOR SYSLDM RELOCATION "
0x36c5a4…36c738 Dummy {f00=0x0110, f01=0x0190, f02=» " P* MMU TABLES * # P # P # & . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE # . P IFT MMUPAG=1 # ` P RES 16 # v P XIF # P # $ PMMTAB EQU *-REL WORK AREA MM-TAB # PTABBE EQU * # P IFT MMUPAG=1 # P DATA 0,0,0,0,0,0,0,0 #
0x36c738…36c8cc Dummy {f00=0x0110, f01=0x0190, f02=»M BOTTOM) IN MM-TAB # t P DATA 0 $ 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' $ , ( P DATA 0 APPL. CONTROL BLOCK ADDRESS $ ` P $ PMMBEG EQU TABBE-* $ P EJECT $ P $ 6 P*** *** $ 6 P***
0x36c8cc…36ca60 Dummy {f00=0x0110, f01=0x018e, f02=»*********************** $ v 6 P************************************************* % P % Z P % f , P** E R R O R ** % r , P** ** % , P** ** % , P** ER
0x36ca60…36cbf4 (1, 954) Dummy {f00=0x0110, f01=0x0190, f02=» , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** & , P** (REG-CONTENTS IS SAVED) ** & 4 , P**************************************** & d P & PERROR EQU * & P ST A2,COM01+STKCOM SAVE A2 & . P LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS & P S
0x36cbf4…36cd88 Dummy {f00=0x0110, f01=0x018e, f02=» P U S H ** & ( P** ** ' " ( P** ** ' N ( P** STORE REGISTERS ON A15-STACK ** ' z ( P** ** ' ( P************************************ ' PPUSH EQU *
0x36cd88…36cf1c Dummy {f00=0x0110, f01=0x0190, f02=» ' z P STR A5,A15 SAVE A5 ( P STR A6,A15 SAVE A6 ( $ P STR A7,A15 SAVE A7 ( @ P STR A8,A15 SAVE A8 ( P STR A9,A15 SAVE A9 ( x P STR A10,A15 SAVE A10 ( P STR A11,A15 SAVE A11 ( P STR A12,A15 SAVE A12 ( P STR A13,A15 SAVE A13 (
0x36cf1c…36d0b0 Dummy {f00=0x0110, f01=0x0190, f02=» P EJECT ) P ) P** P O B ) P** ) 6 P** ) @ , P** RESTORE REGISTERS FROM A15-STACK ** ) J , P** ** ) z , P**************************************** ) P ) PPOB EQU * ) P IFT CPU852=1 )
0x36d0b0…36d244 Dummy {f00=0x0110, f01=0x0190, f02=»A10,A15 RESTORE A5 ) P LDR* A9,A15 RESTORE A6 * P LDR* A8,A15 RESTORE A7 * : P LDR* A7,A15 RESTORE A8 * Z P LDR* A6,A15 RESTORE A9 * z P LDR* A5,A15 RESTORE A10 * P LDR* A4,A15 RESTORE A11 * P LDR* A3,A15 RESTORE A12 * P LDR* A2,A15 R
0x36d244…36d3d8 Dummy {f00=0x0110, f01=0x0190, f02=»IF * P RTN A14 + P EJECT + P + ( & P** M O V E ** + 0 & P** ** + Z & P** ** + & P** MOVE BLOCKS INSIDE MEMORY ** + & P** ** + & P** IN
0x36d3d8…36d56c Dummy {f00=0x0110, f01=0x0190, f02=» ** + & P** WORK-REG: A4 ** , & P********************************* , D P , n PMOVE EQU * , z $ PMOVES ADR A1,A3 END OF FROM AREA , P ADR A2,A3 END OF TO-AREA , PMOVE10 SUK A3,1 DEC LENGTH , P RF(N) MOVE20 AL
0x36d56c…36d700 Dummy {f00=0x0110, f01=0x0190, f02=»VE20 RTN A14 , P IFT MMUPAG=0 - P EJECT - * P - 8 P - D 4 P** M O V I N G ** - P 4 P** ** - 4 P** ** - 4 P** USES ROUTINE
0x36d700…36d894 (1, 955) Dummy {f00=0x0110, f01=0x0190, f02=» ** - h 4 P** ADDRESS. LSTADR IS UPDATED AND CHECKED ** . 4 P** ** . H 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** . 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** . 4 P** WORK-REG: A4
0x36d894…36da28 Dummy {f00=0x0110, f01=0x0190, f02=» REGISTERS ON A15-STACK . * P LD A2,LSTADR+STKCOM GET LAST ADDRESS / P LDR A9,A2 / N P LDR A11,A3 / ` & P CALL CMPADR ENOUGTH MEMORY LEFT? / t P RF(NL) MOV010 NO! / P SUR A2,A3 SUB LENGTH / $ P ANKL A2,/FFFE MAKE EVEN ADDRESS / P LDR A11,A
0x36da28…36dbbc Dummy {f00=0x0110, f01=0x0190, f02=»MP3 MEMORY OVERFLOW / P CALL ERROR 0 8 PMOV020 LD A9,FSTADR+STKCOM CHECK FIRST FREE ADDRESS 0 0 P CALL CMPADR 0 l P RB(L) MOV010 0 $ P ST A2,LSTADR+STKCOM NEW ADDRESS 0 . P CALL POB RESTORE REGISTERS FROM A15-STACK 0 P LD A2,LSTADR+STKCOM 0
0x36dbbc…36dd50 Dummy {f00=0x0110, f01=0x0190, f02=» ** 0 x 4 P** ** 1 4 P** MOVE BLOCK INSIDE MEMORY VIA MMU ** 1 X 4 P** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** 1 4 P** -MOVE TO USER AREA ** 1 4 P** IF '
0x36dd50…36dee4 Dummy {f00=0x0110, f01=0x018e, f02=» ** 1 p 4 P** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)** 2 4 P** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)** 2 P 4 P** A3=LENGTH (IN BYTES) ** 2 4 P** WORK.REGS:A4,A10 ** 2 4 P****************
0x36dee4…36e078 Dummy {f00=0x0110, f01=0x0190, f02=» P ST A1,COM01+STKCOM 3 P ST A2,COM02+STKCOM 3 P ST A3,COM03+STKCOM 3 < PXMOV05 EQU * 3 X LDR A10,A3 SAVE LENGTH 3 l , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER 3 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE 3 2 P LD A9,BUFSIZ+STKCOM GET TEMPO
0x36e078…36e20c Dummy {f00=0x0110, f01=0x0190, f02=»NGTH 3 x ( P LD A1,COM01+STKCOM GET FROM ADDRESS 4 8 P LD A2,SYSBUF+STKCOM GET TEMP. BUFFER START-ADDRESS 4 8 & P TL* MMFROM+STKCOM LOAD FROM-TABLE 4 t , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER 4 2 P ST A1,COM01+STKCOM SAVE END OF 'FROM' ADDRESS 4 P LD
0x36e20c…36e3a0 Dummy {f00=0x0110, f01=0x0190, f02=»LE 4 t ( $ MVSU A3 MOVE DATA-BLOCK FROM BUFFER 5 " SUK A4,1 MORE PARTS TO MOVE? 5 6 P RF(N) XMOV30 NO! 5 P ADR A2,A10 5 v 2 P ST A2,COM02+STKCOM SAVE START OF 'TO' ADDRESS 5 , P LD A3,COM03+STKCOM GET REQUESTED LENGTH 5 $ SUR A3,A10 SUBTRACT MOV
0x36e3a0…36e534 (1, 956) Dummy {f00=0x0111, f01=0x0190, f02=»ALL CMPADR REMAINING LENGTH<CURRENT BUFFER LENGTH? 5 P RB(NL) XMOV10 6 : P LDR A10,A3 LAST LENGTH 6 P P RB XMOV10 6 p EJECT 6 6 SPLIT EQU * 6 P LDR A1,A3 GET DIVISOR 6 * P SRL A1,15 MOST SIGN. PART OF DIVISOR 6 LDR A2,A3 GET D
0x36e534…36e6c8 Dummy {f00=0x0111, f01=0x0190, f02=»ENGTH 6 p P RB XMOV10 7 7 4 PXMOV30 CALL POB RESTORE REGISTERS FROM A15-STACK 7 ( RTN A14 7 ` EJECT 7 p 7 ~ 4 P** M O V I N G ** 7 4 P** ** 7 4 P**
0x36e6c8…36e85c Dummy {f00=0x0111, f01=0x018e, f02=» ** 7 f 4 P** IS ALWAYS ASSUMED TO BE DATA PART OF ** 8 4 P** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** 8 F 4 P** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** 8 ~ 4 P** IS UPDATED AND CHECKED. ** 8 4 P**
0x36e85c…36e9f0 Dummy {f00=0x0111, f01=0x0190, f02=» 8 ^ 4 P** OUTPUT:A2=LOGICALL TO-ADDRESS ** 9 4 P** WORK-REGS: A4,A10 ** 9 @ 4 P*********************************************** 9 x P 9 PMOVING EQU * 9 , P CALL PUSH STORE REGISTERS ON A15-STACK 9 0 P LD A4,FYSPA
0x36e9f0…36eb84 Dummy {f00=0x0111, f01=0x0190, f02=» " LDR* A9,A2 GET PAGE IN TABLE : P ANKL A9,/FC00 : * * % CWR A9,A4 CORRECT PAGE IN MMU-TABLE? : @ P RF(E) MOV010 YES! : n & P ADKL A4,/400 ADJUST FOR 'SETTAB' : $ P CALL SETTAB NEW PAGE IN TABLE! : : PMOV010 LD A11,LSTADR+STKCOM GET LAST LOGICALL
0x36eb84…36ed18 Dummy {f00=0x0111, f01=0x0190, f02=» RF(NL) MOV020 YES! : , P SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE ; PMOV015 RF(NP) MOV025 ; L * P CALL SETTAB INITIALIZE NEW PAGE ENTRY ; h * P ADKL A11,4096 PHYSICAL PAGE INCREMENT ; P RB MOV015 ; 2 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE ;
0x36ed18…36eeac Dummy {f00=0x0111, f01=0x0190, f02=»T ENOUGH. NEW PAGE! ; P < ( P* MM-TABLE CORRECT. SAVE ADDRESSES * < $ P < P P* A4=PHYSICALL PAGE NUMBER < X P* A11=DISPLACEM. WITHIN PAGE < z " P* A2=CURRENT ENTRY IN MM-TABLE < < PMOV050 EQU * < , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB
0x36eeac…36f040 Dummy {f00=0x0111, f01=0x0190, f02=»LUTE ENTRY ADDRESS < * P ST A4,MMTO+STKCOM SAVE TABLE ADDRESS = SUR A2,A4 RELATIVE ADDRESS = H 2 P SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2 = l * P ORR A2,A11 GET DISPLACEM. WITHIN PAGE = P ANKL A2,/FFFE EVEN ADDRESS = . P ST A2,LSTADR+STKCOM
0x36f040…36f1d4 (1, 957) Dummy {f00=0x0111, f01=0x018e, f02=»AVE A11 = z P LD A11,FYSPAG+STKCOM > P CALL CMPADR AND COMPARE > . P RF(G) MOV090 OK! > N P RF(L) MOV070 NOK! > h ( P LD A11,COM01+STKCOM RESTORE DISPL. > P LD A9,FSTADR+STKCOM > P CALL CMPADR > P RF(NL) MOV090 OK! > PMOV070 LDKL A1,L
0x36f1d4…36f368 Dummy {f00=0x0111, f01=0x0190, f02=» ( P CALL INBIMA INIT ALLOCATION BIT MAP ? 4 PMOV100 CALL POB RESTORE REGISTERS FROM A15-STACK ? 0 0 P LD A2,LSTADR+STKCOM GET LOGICAL TO-ADDRESS ? h ( P TL* MMFROM+STKCOM RESTORE MM-TABLE ? RTN A14 ? P XIF ? EJECT ? ? 6 P**
0x36f368…36f4fc Dummy {f00=0x0111, f01=0x0190, f02=» ** ? n 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** @ 6 P** OVERFLOW. ** @ R 6 P** ** @ 6 P** INPUT :A2-ADDRESS TO CURRENT ENTRY ** @ 6 P**
0x36f4fc…36f690 Dummy {f00=0x0111, f01=0x0190, f02=» ** @ t 6 P************************************************* A P A X PSETTAB EQU * A ` P IFT MMUPAG=1 A t SUKL A4,/400 GET NEXT PAGE A SUK A2,2 GET NEXT ENTRY A P A " P* CHECK IF MM-TABLE OVERFLOW * A P A ( P LDR
0x36f690…36f824 Dummy {f00=0x0111, f01=0x0190, f02=» P RF SETT05 B PSETT00 CWR A2,A9 OVERFLOW? B PSETT05 RF(NL) SETT10 NO B 8 P LDK A1,LMP7 B X P CALL ERROR B l PSETT10 EQU * B STR A4,A2 STORE IN TABLE B RTN A14 B P XIF B P EJECT B P B P B P B 6 P**
0x36f824…36f9b8 Dummy {f00=0x0111, f01=0x018e, f02=» ** B l 6 P** COMPARE ADDRESSES. RESULT IN PSW ON RETURN ** C 6 P** ** C P 6 P** INPUT : A11 COMPARED TO.. ** C 6 P** A9 ** C 6 P** OUTPUT
0x36f9b8…36fb4c Dummy {f00=0x0111, f01=0x0190, f02=» P TNM A11,A9 D P RF(NN) CMPA10 D P CWR A9,A11 D . P RF CMPA20 D B PCMPA10 CWR A11,A9 D T . PCMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK D n P RTN A14 D P EJECT D P D P D 4 P** M U L T ** D
0x36fb4c…36fce0 Dummy {f00=0x0111, f01=0x0190, f02=» (A2) X A3(), A2#0 ** D ~ 4 P** ** E & 4 P** INPUT : A3,A2 ** E ^ 4 P** OUTPUT:A3=RESULT ** E 4 P************************************************ E PMU
0x36fce0…36fe74 (1, 958) Dummy {f00=0x0111, f01=0x0190, f02=»2,1 E P RB(NZ) ADD F P LDR* A2,A14 F P RTN A14 F 4 P EJECT F D P F R 4 P** M M E N T ** F Z 4 P** ** F 4 P** ** F 4 P** FI
0x36fe74…370008 Dummy {f00=0x0111, f01=0x0190, f02=» ** F r 4 P** INPUT :A3=MM-TABLE ADDRESS ** G 4 P** OUTPUT:A3=ENTRY ADDRESS ** G R 4 P** A9=TTAB-ADDRESS ** G 4 P** LSTPAG IN TTAB=A3 ** G 4 P** A1=
0x370008…37019c Dummy {f00=0x0111, f01=0x0190, f02=»G=1 G P LDR A9,A3 GET TABLE ADDRESS H 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) H 0 P SUK A3,2 H j & PMMEN10 ADK A3,2 INCREMENT ADDRESS H | ( P LDR* A1,A3 GET CONTENTS OF MM-TABLE H P ANKL A1,/FC00 H P CWK A1,/FC00 H P RB(Z) MME
0x37019c…370330 Dummy {f00=0x0111, f01=0x0190, f02=»T T A B ** H | 2 P** ** I " 2 P** ** I X 2 P** FIND TTAB ADDRESS ** I 2 P** ** I 2 P** INPUT :A8=
0x370330…3704c4 Dummy {f00=0x0111, f01=0x0190, f02=» ** I f 2 P** WORKREGS:A3,A4,A10 ** J 2 P********************************************** J B P J x PGETTAB EQU * J P IFT MMUPAG=0 J P LDR* A3,A8 T:A ADDRESS J & P LD A1,T:ATID,A3 GET TID TO MATCH J P LD A12,T:DAD,A3 T:D
0x3704c4…370658 Dummy {f00=0x0111, f01=0x0190, f02=» XIF J & PGETTTB EQU * ENTRY. INPUT: A1=TID K " P ST A10,COM04+STKCOM SAVE A10 K 6 $ P LD A4,SCTTCT GET TC:TAB ADDRESS K P LDR* A10,A4 TCTAB LENGTH K PGETT10 ADK A4,2 K P SUKL A10,2 ALL? K P RF(NN) GETT20 NO! K * P LDR A3,A1 SAVE A1 (DEBU
0x370658…3707ec Dummy {f00=0x0111, f01=0x0190, f02=»? K v P RB(NE) GETT10 NO! L P ST A2,TTAB+STKCOM SAVE L $ P LD A10,COM04+STKCOM L D P RTN A14 L ` P EJECT L p > P********************************************************** L ~ > P* * L > P*
0x3707ec…370980 Dummy {f00=0x0111, f01=0x0190, f02=» * L > P* REFERENCED IN: MOVING,SYSLDB PART 2 * M 8 > P* * M z > P* ENTRY: MAPLEN - LENGTH OF AREA TO BE MAPPED * M > P*
0x370980…370b14 (1, 959) Dummy {f00=0x0111, f01=0x0190, f02=» * M > P* EXIT: * N 4 > P* * N v > P* WORK REGISTERS: A1,A2,A3,A4 * N > P*
0x370b14…370ca8 Dummy {f00=0x0111, f01=0x0190, f02=» * N ~ > P********************************************************** O 0 PINBIMA EQU * O r P IFT MMUPAG=1 O P LDKL A1,/8000 INIT BIT MASK O * P LD A2,STKCOM+LSTADR GET LAST ADDRESS O P LDR A4,A2 SAVE O . P A
0x370ca8…370e3c Dummy {f00=0x0111, f01=0x0190, f02=»NT O n ( P AD A4,STKCOM+TTAB ADD TTAB ADDRESS P " P LDR A3,A2 GET LOGICAL ADDRESS P 6 , P ANKL A3,/3000 SELECT ENTRY IN PARTITION P . P SRL A3,12 DISPL. REL. START OF PARTITION P * PMAP:40 SUK A3,1 CORRECT NIBBLE FOUND? P P RF(N) MAP:50 YES P P S
0x370e3c…370fd0 Dummy {f00=0x0111, f01=0x0190, f02=»E P * PMAP:60 SUK A3,1 CORRECT 1K-PARTITION? Q P RF(N) MAP:65 YES Q 8 P SRL A1,1 NEXT 1K-PARTITION Q R P RB MAP:60 Q v * PMAP:65 LD A3,STKCOM+MAPLEN GET LENGTH Q * P ANKL A2,/3FF REMANING PART OF 1K-PAGE Q P ADR A3,A2 ADJUST LENGTH Q . P LDK
0x370fd0…371164 Dummy {f00=0x0111, f01=0x0190, f02=»OCCUPIED Q h P LDR A3,A3 GET LENGTH R P RF(N) MAP:80 >32K R . " P SUKL A3,/400 DECREMENT LENGTH R H $ P RF(NP) MAP100 MAPPING FINISHED R n P RF MAP:90 R ( PMAP:80 SUKL A3,/400 DECREMENT LENGTH R & PMAP:90 SRL A1,1 NEXT 1K-PARTITION R , P RB(NZ) MA
0x371164…3712f8 Dummy {f00=0x0111, f01=0x0190, f02=»DKL A1,/8000 INIT BIT MASK R P RB MAP:70 S " PMAP100 EQU * S 4 P XIF S H P RTN A14 S T P EJECT S d P S r 2 P** M M R S T ** S z 2 P** ** S 2 P** RESET MMTAB ENTRIES FROM ADDRE
0x3712f8…37148c Dummy {f00=0x0111, f01=0x0190, f02=» ** S 2 P** INPUT : A1 = LAST USED ENTRY ** T . 2 P** OUTPUT: A1 = MMTAB START ADDRESS ** T d 2 P** A2 = MMTAB START ADDRESS ** T 2 P** A12= /FC00 ** T 2 P**
0x37148c…371620 Dummy {f00=0x0111, f01=0x0190, f02=» T n P ADR A2,A13 U P SUK A2,2 U P LDKL A12,/FC00 INDICATOR U . PMMRST1 EQU * U P P SUK A1,2 NEXT ENTRY U d P CWR A1,A2 ALL DONE ? U P RF(E) MMRST2 YES U $ P STR A12,A1 INDICATE FREE ENTRY U P RB MMRST1 NEXT ENTRY U PMMRST2 EQU
0x371620…3717b4 (1, 960) Dummy {f00=0x0112, f01=0x0190, f02=» * U p 0 ,* GET START OF APLTAB-BLOCK AND CONFIGURA- * V 0 ,* TION-DATA FOR SPECIFIED APPLICATION * V H 0 ,* AND IF MMU-CASE ,LOAD HARDWARE MMU-TABLE * V | 0 ,* AND MMTAB WITH MMU-TABLE FROM TTAB * V 0 ,*
0x3717b4…371948 Dummy {f00=0x0112, f01=0x0190, f02=» APPL.TYPE 0,1,2,3... * V 0 P* CONSTA=START OF CONF.DATA * W $ 0 ,* * W X 0 ,* OUTPUT: A1=ADDRESS TO FIRST ENTRY IN * W 0 ,* APLTAB-BLOCK * W 0 ,* A2=BLOCK T
0x371948…371adc Dummy {f00=0x0112, f01=0x0190, f02=»* APPLICATION * W 0 P* APPLNO=APPLNO+1 IF APPLICATION * X 4 0 P* IS FOUND * X h 0 P* ELSE APPLNO IS UNCHANGED * X 0 P* CONSTA=START OF CONF.DATA * X 0 ,*
0x371adc…371c70 Dummy {f00=0x0112, f01=0x0190, f02=» * X l 0 ,* WORK REGISTERS : A1-A4,A11 * Y 0 ,* * Y D 0 ,******************************************** Y x GETAPP EQU * Y . )* INITIATE REGISTERS AND INCREMENT APPLNO Y ( # LD A3,APLTAB+STKCOM A
0x371c70…371e04 Dummy {f00=0x0112, f01=0x0190, f02=»DK A2,0 CLEAR APPL.COUNTER OF Y ALL APPL.TYPES Z & 8 3* FIND RIGHT APLTAB-BLOCK FOR SPECIFIED APPLICATION Z @ GTA100 EQU * Z | ( # ADK A2,1 INCREMENT APPL.COUNTER OF Z ALL APPL.TYPES Z 0 + CW* A2,APLTAB+STKCOM ANY APPLICATION LEFT? Z
0x371e04…371f98 Dummy {f00=0x0112, f01=0x0190, f02=»P,A3 RIGHT APPL.TYPE? Z RF(E) GTA200 YES! [ . P ADK A3,ACBLEN UPDATE APLTAB-BLOCK ADDRESS [ 8 & " RB GTA100 SHECK NEXT APLTAB-BLOCK [ j GTA200 EQU * [ . ) CW A4,APPLNO+STKCOM RIGHT APPL.NUMBER OF [ CURRENT APPL.TYPE? [ RF(E) GTA300 YE
0x371f98…37212c Dummy {f00=0x0112, f01=0x0190, f02=»GTA100 SHECK NEXT APLTAB-BLOCK [ PGTA300 EQU * & IFT MMUPAG=1 : . )* GET MMU-TABLE FROM TTAB OF CURRENT TASK P 6 P LD* A4,APLMMC,A3 GET TCTAB-ENTRY FOR CURRENT TASK 4 P ADKL A4,TTB:MT ADDRESS TO 1:ST MMU-TABLE ENTRY IN TTAB P T
0x37212c…3722c0 Dummy {f00=0x0112, f01=0x0190, f02=»N ^ $ LDK A4,0 CLEAR APPL.COUNTER OF ] ALL APPL.TYPES ] 2 , ' LDR A1,A3 LOAD APLTAB-BLOCK ADDRESS TO ] L OUTPUT REGISTER ] | 0 P LD A11,CONSTA+STKCOM GET START OF CONF.DATA ] ( # ADK A4,1 INCREMENT APPL.COUNTER OF ] ALL APPL.TYPES
0x3722c0…372454 (1, 961) Dummy {f00=0x0112, f01=0x0190, f02=» A3,A11 GET CHAR. FROM CONF.DATA ] , ' ADKL A11,1 INCREMENT CONF.DATA POINTER ^ ( * % CCK A3,/FFFF IS CONF.DATA CHAR. /FF? ^ X RB(NE) GTA400 NO! ^ ( # ADK A4,1 INCREMENT APPL.COUNTER OF ^ ALL APL.TYPES ^ $ CWR A2,A4 RIGHT APPL.NUMBER OF ^
0x372454…3725e8 Dummy {f00=0x0112, f01=0x018e, f02=» TO PSW OF THIS ^ x ( #* SUBRUTIN,AND RETURN FROM SUBRUTIN _ GTA800 EQU * _ D . P IM APPLNO+STKCOM INCREMENT APPL.NUMBER OF _ X P CURRENT APPL.TYPE _ LDK A2,0 CLEAR REGISTER _ ( P LCR A2,A11 GET CHAR FROM CONF.DATA _ 0 P LDK A4,1 MAKE COND.RE
0x3725e8…37277c Dummy {f00=0x0112, f01=0x0190, f02=» P ` P ` 6 P** C O N V R T ** ` 6 P** ** ` V 6 P** ** ` 6 P** CONVERSION OF TWO ASCII-DIGITS TO BINARY ** ` 6 P**
0x37277c…372910 Dummy {f00=0x0112, f01=0x0190, f02=»SULT ** ` x 6 P** WORK.REGS: A3,A2 ** a " 6 P************************************************** a P a PCONVRT EQU * a P LDK A1,0 CLEAR RESULT REG a P LDR A3,A5 a P SRL A3,8 GET TEN'S a P S
0x372910…372aa4 Dummy {f00=0x0112, f01=0x0190, f02=»3,A5 a P ANK A3,/F GET ONE'S b P ADR A1,A3 b ( P RTN A14 b : P EJECT b J P b X 6 P** N X T B L K ** b ` 6 P** ** b 6 P** ** b
0x372aa4…372c38 Dummy {f00=0x0112, f01=0x0190, f02=»=ADDRESS TO CURRENT BLOCK-START ** b 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** c , 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** c f 6 P** WORKREGS: A1,A3-A5 ** c 6 P**********************************************
0x372c38…372dcc Dummy {f00=0x0112, f01=0x0190, f02=»N-BLOCK c j P LCR A5,A11 d P SLL A5,8 d $ P LC A5,1,A11 d 6 P CALL CONVRT d J P LDK A2,TDBREC d ^ P LDR A3,A1 d t P CALL MULT d P ADR A11,A3 d P ADKL A11,2 d 0 P LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES d P SLL A5,8 d P L
0x372dcc…372f60 Dummy {f00=0x0112, f01=0x0190, f02=»1=NEXT BLOCK d P ADKL A11,2 e $ P LC A2,TDBBT,A11 GET BLOCK TYPE e ( P RTN A14 e P P EJECT e ` P e n P e z 8 P** G E T N U M ** e 8 P** ** e 8 P**
0x372f60…3730f4 (1, 962) Dummy {f00=0x0112, f01=0x018e, f02=» ** e v 8 P** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER ** f " 8 P** OUTPUT: A5=BINARY VALUE ** f ^ 8 P** WORK.REGS: A2,A4 ** f 8 P**************************************************
0x3730f4…373288 Dummy {f00=0x0112, f01=0x0190, f02=» f x PGET030 ADK A6,1 NEXT DIGIT g P LCR A2,A6 GET CHAR g * P ANK A2,/F g F PGET050 SUK A2,1 g X " P RF(N) GET100 THIS DIGIT READY g p P ADR A5,A4 ACCUMULATE g P RB GET050 g , PGET100 SUK A4,90 NEXT INCREMENT (TEN'S) g P RB(P) GET030 g
0x373288…37341c Dummy {f00=0x0112, f01=0x0190, f02=» Q U E J O B ** g 8 P** ** h 2 8 P** ** h n 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** h 8 P** 0, ENB.
0x37341c…3735b0 Dummy {f00=0x0112, f01=0x0190, f02=»AB-ADDRESS ** h 8 P*************************************************** i , P i h PQUEJOB EQU * i p P* QUEUE THIS TASK (THIS TID) i P i 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS i P ADR A3,A13 RELOCATE i P STR A3,
0x3735b0…373744 Dummy {f00=0x0112, f01=0x0190, f02=»0 CLEAR ABORT INDICATOR i P IFT MMUPAG=0 j , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS j 6 P ADK A4,2 j f P ANKL A4,/FFFE j x P ADK A4,DWBFST+4 j 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS j & P LDR* A6,A4 NUMBER OF START POINTS j
0x373744…3738d8 Dummy {f00=0x0112, f01=0x0190, f02=»ER j x P XIF k P IFT MMUPAG=1 k , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS k , P ADK A4,2 k P ANKL A4,/FFFE k n P ADK A4,DWBFST+4 k 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS k & P ELR A6,A4 NUMBER OF START-POINTS k . PGETT30
0x3738d8…373a6c Dummy {f00=0x0112, f01=0x0190, f02=» XIF k P CF A15,ACTOT l $ P ADK A4,STPREC NEXT START-POINT l " P RB GETT30 l J $ PGETT40 ABL RETUR8 RELOAD 8 REGS l PRETUR EQU *-REL l P RTN A14 l P EJECT l P l 4 P** M O V M M T ** l 4 P**
0x373a6c…373c00 Dummy {f00=0x0112, f01=0x0190, f02=» ** l j 4 P** ** m 4 P** INPUT :A2=TTAB-ADDRESS ** m J 4 P** MMTAB HOLDS TABLE TO MOVE ** m 4 P** OUTPUT:A2=START OF MM-TABLE IN TTAB ** m 4 P** A9=TTAB AD
0x373c00…373d94 (1, 963) Dummy {f00=0x0112, f01=0x0190, f02=»* m b P n PMOVMMT EQU * n P IFT MMUPAG=1 n & ( P ADKL A2,MMBEG GET TO-TABLE ADDRESS n < " P TL MMTAB,A13 LOAD FROM-TABLE n h P TSR A2 MOVE n P LDR A3,A2 n ( P CALL MMENT FILL LAST ENTRY ADDRESS n $ P TL* MMFROM+STKCOM RELOAD TABLE n P
0x373d94…373f28 Dummy {f00=0x0112, f01=0x0190, f02=»NITIATE DYNAMIC CORE FOR COBOL n * o & " LD A2,SCTOPT GET OPTION WORD o 0 " ANKL A2,/2000 ANY COBOL APPL? o V RF(Z) PBSEND NO! o | . * LD A8,DYNSTA+STKCOM GET START OF DYNTAB:S o & " LDR* A2,A8 GET NUMBER OF DYNTAB:S o ( # ADKL A8,2 INCREMENT D
0x373f28…3740bc Dummy {f00=0x0112, f01=0x0190, f02=»POINTER o t LDR* A7,A8 GET SPL-PBS ADR p P LDR A6,A13 p 4 * & ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS p H SUK A3,2 END OF DYNTAB p v P RF(Z) INDY50 YES! p PINDY20 EQU * p $ LDR* A5,A6 GET NUMBER OF COPIES p CWK A5,/FFFF END OF TABLE?
0x3740bc…374250 Dummy {f00=0x0112, f01=0x0190, f02=»EMENT NBR.OF COPIES p . P RB(N) INDY20 ALL DONE FOR THIS CHARACTER q * % STR A4,A7 STORE CHARACTER IN SPL-PBS q N " ADK A7,2 STEP SPL-PBS POINTER q | P RB INDY30 NEXT WORD q PINDY40 EQU * q LDR* A4,A8 SPL-PBS ADR q LDKL A5,STKMAX STACK-
0x374250…3743e4 Dummy {f00=0x0112, f01=0x0190, f02=» LDR A6,A4 SPL-PBS ADDR r & " ADK A6,SPLSTA POINT AT STACK AREA r $ ADR A5,A6 +STACK AREA ADDR r N 0 , ST A5,SPLSTB,A4 STORE IN SPL-PBS STACK-BASE r r P RB INDY10 r PINDY50 EQU * r SUK A2,1 ANY DYNTAB:S LEFT? r P RB(NZ) INDY05 YES! r
0x3743e4…374578 Dummy {f00=0x0112, f01=0x0190, f02=» ** r j 6 2** EACH WORD IN THIS TABLE CONSISTS OF: ** s 6 2** WORD1=COUNTER,NBR OF COPIES OF NEXT WORD ** s N 6 2** WORD2=WORD ** s 6 2** ** s 6 2** BYTE1 (C
0x374578…37470c Dummy {f00=0x0112, f01=0x0190, f02=»****************** s p PPBSTAB EQU *-REL t DATA 1 TERMINATION-CODE t 2 DATA 0 t R DATA 1 STACK-USED t b DATA /6 t | DATA 1 STACK-SIZE t DATA 0 t DATA 3 PROCEDURE-NAME t DATA /2020 t & " DATA 20 PGM-DATA UNTIL STACK-BA
0x37470c…3748a0 Dummy {f00=0x0112, f01=0x0190, f02=»ORK-AREA t v DATA 0 u & ! DATA /FFFF E N D O F T A B L E u PBSEND EQU * u J P XIF u ^ P IFF MMUPAG+DSKPAG=0 u j P* u 4 P* RESERVE PAGES IN MEMORY AND BUILD PAGE TABLE u P* u PAGGEN EQU * u P LDKL A2,PAGEX EXIT ADDRESS u
0x3748a0…374a34 (1, 964) Dummy {f00=0x0113, f01=0x0190, f02=»ORD u v ANK A1,3 PAGING? v P ABR(Z) A2 NO! v & * v < L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS v F * v * P LD A11,SCTSFA GET START OF FREE AREA v " ST A11,SCTPAG STORE IN SYSTAB v $ LDR A8,A13 GET RELO
0x374a34…374bc8 Dummy {f00=0x0113, f01=0x0190, f02=»P EQUAL TO NUMBER OF PAGES? v RF(E) PAG:30 YES! w $ $ LDK A1,0 RESET NUMBER OF WORDS w > PAG:20 EQU * w f " ADKL A11,2 INCLUDE NEXT WORD w z 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) w $ ADK A1,1 INCREMENT WORD COUNTER w CWK A1,4 4
0x374bc8…374d5c Dummy {f00=0x0113, f01=0x0190, f02=»PAG:20 w 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER x RB PAG:10 x B PAG:30 EQU * x T * x h 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY x r 6 2* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER x * OF PAGE BLOCKS. x * x P
0x374d5c…374ef0 Dummy {f00=0x0113, f01=0x0190, f02=»NKL A2,/FFF GET DISPLACEMENT x & ! SRL A2,2 SKIP TWO RIGHTMOST BITS y $ , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS y N P LDR A3,A1 SAVE y ~ LD A2,SCTPSZ GET PAGE SIZE y & ! SRL A2,2 SKIP TWO RIGHTMOST BITS y LDR A10,A2 SAVE y 0 , ANKL A1,/FC
0x374ef0…375084 Dummy {f00=0x0113, f01=0x0190, f02=»PAGE ADDRESS LIMIT y ~ P XIF z P IFT DSKPAG-MMUPAG=1 z & 2 P LD A1,LSTADR+STKCOM GET PHYSICAL LAST ADDRESS z B P LD A10,SCTPSZ PAGE SIZE z x P XIF z P IFF MMUPAG+DSKPAG=0 z LDR A9,A1 INIT PAGE ADDRESS z LDR A6,A9 SAVE z PPAG:31 EQU *
0x375084…375218 Dummy {f00=0x0113, f01=0x0190, f02=»PAG:32 CWR A6,A10 z PPAG:33 RF(NG) PAG:40 { , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE { 6 LDR A1,A6 GET PAGE ADDRESS { f P IFT MMUPAG=1 { * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? { RF(NZ) PAG:34 NO! { . * LDR A1,A6 PHYSICAL ADDRESS IN
0x375218…3753ac Dummy {f00=0x0113, f01=0x0190, f02=» P IFF MMUPAG+DSKPAG=0 | & "PAG:36 LDK A2,0 RESET WORD COUNTER | . PPAG:38 CWR A11,A8 CHECK PROGRAM OVERWRITE | J * P RF(E) PAG:40 NO MORE MEMORY AVALIABLE | | $ P ADKL A11,2 INCR. PAGBLK POINTER | $ ADK A2,1 INCREMENT WORD COUNTER | CWK A2,4 BLOC
0x3753ac…375540 Dummy {f00=0x0113, f01=0x0190, f02=»T CHECK | z P RF(NN) PAG382 } P CWR A11,A1 } & P RF PAG384 } : PPAG382 CWR A1,A11 } L . PPAG384 RB(G) PAG:38 MORE MEMORY AVALIABLE } f PAG:40 EQU * } " P ADK A7,0 ANY PAGES RESERVED? } P RF(Z) MEMOFL NO! } 6 1 CW A7,SCTNOP ONLY PAGES FOR
0x375540…3756d4 (1, 965) Dummy {f00=0x0113, f01=0x0190, f02=»AG:50 YES! } MEMOFL LDKL A1,LMP3 ~ * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW ~ . HLT HALT PROGRAM ~ : PPAG:45 CW A7,STKCOM+TOTSGM ONE PAGE/SEGMENT ALLOCATED? ~ v , P CW A7,STKCOM+TOTSGM MORE PAGES WANTED? ~ RF(E) PAG:50 YES! ~ $ ADK A7,1
0x3756d4…375868 Dummy {f00=0x0113, f01=0x0190, f02=»ES ~ p ( $ LDR A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE 6 P IFT MMUPAG=1 N * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS d ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P XIF P IFF MMUPAG+DSKPAG=0 S
0x375868…3759fc Dummy {f00=0x0113, f01=0x0190, f02=»APLTAB GET START OF ACB:S * P LDR* A4,A7 GET NUMBER OF APPLICATIONS " . PINI10 LD* A3,APLMMC+2,A7 GET TTAB ADDRESS P P IFF MMUPAG+DSKPAG=0 0 P LD A11,TTB:SP,A3 GET SEGMENT TABLE ADDRESS " P RF(Z) INI40 NO SEGMENT TABLE , P LD A6,SEG:NS,A1
0x3759fc…375b90 Dummy {f00=0x0113, f01=0x0190, f02=»4K PAGE l & P SRL A1,2 SKIP TWO RIGHTMOST BITS : P OR A1,APLSEG+2,A7 MERGE WITH PHYSICL 4K PAGE ADDRESS : P XIF x P IFT DSKPAG-MMUPAG=1 4 P LD A1,APLSEG+2,A7 GET PHYSICAL 4K PAGE ADDRESS P SLL A1,2 MULTIPLY BY 4 6 P OR A1,APLNPE+2,
0x375b90…375d24 Dummy {f00=0x0113, f01=0x0190, f02=» FOR CORE RESIDENT SEGMENTS x 8 P* AND STORE PAGE BLOCK ADDRESSES IN SEGMENT BLOCKS $ P* ` " ADKL A11,8 NEXT SEGMENT BLOCK j LDR* A2,A11 GET STATUS , P RF(NN) INI30 SEGMENT NOT LOADED IN CORE * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS
0x375d24…375eb8 Dummy {f00=0x0113, f01=0x0190, f02=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS * P LD A2,APLPSZ+2,A7 GET SEGMENT SIZE =1 2 P XIF =2 ` P IFT MMUPAG=1 =2 r P SRL A2,2 =1 P XIF =2 P IFF MMUPAG+DSKPAG=0 =2 & P ADR A1,A2 ADDRESS TO NEXT PAGE =1 ADKL A12,
0x375eb8…37604c Dummy {f00=0x0113, f01=0x0190, f02=»PAG+DSKPAG=0 P* 0 P* SAVE START OF DYNTAB:S IN SYSINI (STADYN) , P* BEFORE ENABLE IS SET BECAUSE INTERUPT R & P* CAN DESTROY DYNSTA IN A15-STACK P* . P LD A1,DYNSTA+STKCOM GET START OF DYNTAB:S . P ST A1,SAVDYN,A13 SAVE IN SYSINI
0x37604c…3761e0 Dummy {f00=0x0113, f01=0x0190, f02=»* , P LD A1,APLMMP+2,A7 GET APPLICATION TYPE ( P CWK A1,'AS' ASSEMBLER APPLICATION? : P RF(NE) INI50 NO f P* ~ " P* SWITCH TO LEVEL 0 & ENABLE P* " P LDKL A1,INI45 RETURN ADDRESS P ADR A1,A13 RELOCATE P STR A1,A15 ST
0x3761e0…376374 (1, 966) Dummy {f00=0x0113, f01=0x0190, f02=»APLMMC+2,A7 GET TTAB ADDRESS ( P LD A2,APLSTA+2,A7 GET START ADDRESS $ P AD A2,APLREL+2,A7 RELOCATE P P LDK A3,0 SEGMENT NUMBER t P CF A15,ACTOT QUEUE TASK P EJECT PINI50 EQU * P IFT MMUPAG=1 0 P LD A1,APLLAP+2,A7 GET LOGIC
0x376374…376508 Dummy {f00=0x0113, f01=0x0190, f02=»M APLMMP+2,A7 CLEAR DISPL. TO PAGE ENTRY P IFT MMUPAG=1 0 P RF INI60 F PINI55 EQU * X P SRL A1,12 PAGE ENTRY NUMBER l $ P LDK A2,16 NUMBER OF MMU ENTRIES & P SUR A2,A1 NUMBER OF PAGE ENTRIES P ST A2,APLNPE+2,A7 SAVE P SLL A
0x376508…37669c Dummy {f00=0x0113, f01=0x018e, f02=»LOGICAL ADDR. TO COMMON PART t P SRL A1,11 ENTRY NUMBER $ P ANK A1,/1E 2*ENTRY NUMBER D 4 P ADKL A1,TTB:MT DISPL TO FIRST COMMON PART ENTRY f P ST A1,APLMMC+2,A7 SAVE P XIF P ADK A7,ACBLEN NEXT ACB P SUK A4,1 MORE APPLICATIONS?
0x37669c…376830 Dummy {f00=0x0113, f01=0x0190, f02=» P LDR A12,A12 ANY PAGES? P RF(Z) INI90 NO! ( $ P CW A12,SCTSFA ANY FREE BLOCKS? @ P RF(E) INI90 NO! h 4 / ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK & " LDKL A11,PAGQUE POINTER TO PAGQUE 0 , LDR A1,A12 SAVE ADDRESS TO FIRST PAGE
0x376830…3769c4 Dummy {f00=0x0113, f01=0x0190, f02=»NDICATE PAGE FREE & P ADK A1,8 ADDRESS NEXT PAGE BLOCK " P CW A1,SCTSFA LAST PAGE BLOCK? D P RF(E) INI80 YES! j , ' LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK & ! STR A1,A12 STORE FORWARD POINTER LDR A12,A1 NEXT PAGE BLOCK ADR A
0x3769c4…376b58 Dummy {f00=0x0113, f01=0x0190, f02=» p & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PINI90 EQU * 2 P EJECT F P XIF T P ` P h P* START BUGGER (IF ANY) p P P P* GET APPLICATION START , P LD A14,STKCOM+APLTAB GET START OF ACB:S , P LD A14,APLREL+2,A14 GET
0x376b58…376cec Dummy {f00=0x0113, f01=0x0190, f02=»A1,SCTBUG GET BUGGER ADDRESS P ABR(NZ) A1 $ P 8 PINI100 EQU *-REL @ P LDR A13,P X PINI110 EQU *-REL j 0 P SUKL A13,INI110 RESTORE PROGRAM BASE OINTER P* P* INIT A15 STACK P* P LD A15,SCTSTB P SUKL A15,4
0x376cec…376e80 Dummy {f00=0x0113, f01=0x0190, f02=»A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS P ADR A1,A13 RELOCATE 2 * P ST A1,IHRTC STORE IN INTERRUPT VECTOR N & P CF A15,PFINIT INITIALIZE DEVICES | P CF A15,SAVE8 SAVE REGISTERS $ P CF A15,SWL48 SWITCH TO LEVEL 48 P* F P* WAIT APPR
0x376e80…377014 (1, 967) Dummy {f00=0x0113, f01=0x018e, f02=»1,1 P RB(NZ) DELAY P INH " ( P LDKL A1,0 GET RTC INTERRUPT ADDRESS . PSAVRTC EQU *-REL-2 Z P ST A1,IHRTC RESTORE t $ P LDR A1,A13 GET START OF SYSINI . P ADKL A1,INISTA START OF INIT. INSTR. SEQ. . P ADKL A13,INILEN END OF INIT.
0x377014…3771a8 Dummy {f00=0x0113, f01=0x0190, f02=» p $ P ADK A1,2 INCREMENT FROM-ADDRESS " P ADK A2,2 INCREMENT TO-ADDRESS 0 P CWR A1,A13 ALL WORDS MOVED? V P ABL(E) STKEND YES z P RB INI150 P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* PIHRTCO EQU *-REL P RIT RTC
0x3771a8…37733c Dummy {f00=0x0113, f01=0x0190, f02=»LICATIONS AND BRANCH TO DISPATCHER * * PINDY00 EQU * 4 " LD A2,SCTOPT GET OPTION WORD H " ANKL A2,/2000 ANY COBOL APPL? n RF(Z) PBSEND NO! P LDKL A2,STKEND * P LD A8,STADYN,A2 GET START OF DYNTAB:S ( P RF(Z) PBSEND NO COB
0x37733c…3774d0 Dummy {f00=0x0113, f01=0x0190, f02=»A3,A8 GET DYNTAB LENGTH (BYTES) PINDY10 EQU * ( ( # ADKL A8,2 INCREMENT DYNTAB POINTER < LDR* A7,A8 GET SPL-PBS ADR h , P LDKL A6,STKEND START OF INIT.INSTR.SEQ. * & ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS SUK A3,2 END OF DYNTAB
0x3774d0…377664 Dummy {f00=0x0113, f01=0x0190, f02=»0 YES! LD A4,2,A6 GET WORD TO COPY ADK A6,4 ADJUST PBSTAB 2 PINDY30 EQU * R & ! SUK A5,1 DECREMENT NBR.OF COPIES f . P RB(N) INDY20 ALL DONE FOR THIS CHARACTER * % STR A4,A7 STORE CHARACTER IN SPL-PBS " ADK A7,2 STEP SPL-PBS P
0x377664…3777f8 Dummy {f00=0x0113, f01=0x018e, f02=»PLSTS,A4 STORE IN SPL-PBS ( $ LDKL A7,ENTFIN ENTRY-FINI (ADDRESS) " & ! ST A7,SPLENT,A4 STORE IN SPL-PBS N LDR A6,A4 SPL-PBS ADDR x & " ADK A6,SPLSTA POINT AT STACK AREA ADR A5,A6 +STACK AREA ADDR 0 , ST A5,SPLSTB,A4 STORE IN SPL-PBS
0x3777f8…37798c Dummy {f00=0x0113, f01=0x0190, f02=» PSAVDYN EQU *-REL PSTADYN EQU *-INDY00 P DATA 0 SAVE AREA FOR DYNSTA < P EJECT ` 6 2************************************************** n 6 2** ** 6 2** EACH WORD IN THIS TABLE CONSISTS O
0x37798c…377b20 Dummy {f00=0x0113, f01=0x0190, f02=»** ** 6 2** BYTE1 (COUNTER)=/FF MEANS END OF TABLE ** : 6 2** ** t 6 2************************************************** PPBSTAB EQU *-INDY00 DAT
0x377b20…377cb4 (1, 968) Dummy {f00=0x0114, f01=0x018e, f02=»PROCEDURE-NAME DATA /2020 & " DATA 20 PGM-DATA UNTIL STACK-BASE * DATA 0 T DATA 1 STACK-BASE d DATA 0 ~ DATA 1 ENTRY-FINI DATA 0 & " DATA 16 LAST-TS,RUNTIME-WORK-AREA DATA 0 & ! DATA /FFFF E N D O F
0x377cb4…377e48 Dummy {f00=0x0114, f01=0x400c, f02=» @ ME DATA /2020 & " DATA 20 PGM-DATA UNTIL STACK-BASE * DATA 0 T DATA 1 STACK-BASE d DATA 0 ~ DATA 1 ENTRY-FINI DATA 0 & " DATA 16 LAST-TS,RUNTIME-WORK-AREA DATA 0 & ! DATA /FFFF E N D O F
0x377e48…377fdc Dummy {f00=0x0114, f01=0x2008, f02=» -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x377fdc…378170 Dummy {f00=0x0114, f01=0x0190, f02=»RD LENGTH r P ADK A3,1 SKIP STATUS BYTE ! P RB TIOD60 ! 4 ( PCALERR LDKL A1,EOMERR OUT OF MEDIUM ! F P RF TIODMF ! r P* ! , P* STORE RELATIVE REC OFFSET IN FBDRRO ! P* ! PTIOD65 EQU * ! P LDK A1,0 OK ! P ST A3,FDBRRO,A11 !
0x378170…378304 Dummy {f00=0x0114, f01=0x018e, f02=»********** ! P* FM I/O HANDLER * " P********************** " 0 P " N P* ENTRY: A11=FDB ADDRESS " V P* A8=ECB ADDRESS " v P* " P* EXIT : A1=RETURN CODE " " P* A11,A8=SAME AS ENTRY " P* A2=USED " P* " & P
0x378304…378498 Dummy {f00=0x0114, f01=0x0190, f02=» P LDK A7,/95 # P RF FMIO10 # P # * PFMIOCL EQU * CLOSE # 2 P LDK A7,/A2 # L P RF FMIO10 # ` P # r PFMIODL EQU * DELETE # z P LDKL A7,/2A2 # P RF FMIO10 # P # PFMIOOP EQU * OPEN FILE # P LDK A7,/A1 # P RF FMIO10 #
0x378498…37862c Dummy {f00=0x0114, f01=0x018e, f02=» RF FMIO10 # P EJECT $ & PFMIORF EQU * READ FILE PARAMETERS $ P LDK A7,/83 $ J P RF FMIO10 $ ^ P $ p PFMIORD EQU * READ $ x P LDK A7,/91 $ P $ PFMIO10 EQU * $ P LKM $ P DATA 15 $ P EJECT SDMSUB $ P* $ P* RESTOR
0x37862c…3787c0 Dummy {f00=0x0114, f01=0x0190, f02=» $ P LD A2,DWTECB,A11 DM ECB ADDRESS % P LD A1,ECBRC,A8 % , P RF(Z) RETURN DISC I/O OK % D P ANKL A1,/FEFF % f $ P RF(NZ) DMTIT1 NOT ONLY RETRIES % | P LDKL A1,RETRIE % & P ORS A1,ECBRC,A2 USER RETURN CODE % P LDK A1,0 SET RETURN CODE OK %
0x3787c0…378954 (1, 969) Opaque[0x194]
0x378954…378ae8 # DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2448, f03=0x0000}
0x378954…378ae8 IdxSect {
0x378954…378ae8 f00 = 0x0122 // 0x378954 @0x0
0x378954…378ae8 f01 = 0x0044 // 0x378956 @0x2
0x378954…378ae8 gno = [ // 0x378958 @0x4
0x378954…378ae8 [0x00]: C0x0122.0x1.0
0x378954…378ae8 [0x01]: C0x0122.0x2.0
0x378954…378ae8 [0x02]: C0x0122.0x3.0
0x378954…378ae8 [0x03]: C0x0123.0x0.0
0x378954…378ae8 [0x04]: C0x0123.0x1.0
0x378954…378ae8 [0x05]: C0x0123.0x2.0
0x378954…378ae8 [0x06]: C0x0123.0x3.0
0x378954…378ae8 [0x07]: C0x0124.0x0.0
0x378954…378ae8 [0x08]: C0x0124.0x1.0
0x378954…378ae8 [0x09]: C0x0124.0x2.0
0x378954…378ae8 [0x0a]: C0x0124.0x3.0
0x378954…378ae8 [0x0b]: C0x0125.0x0.0
0x378954…378ae8 [0x0c]: C0x0125.0x1.0
0x378954…378ae8 [0x0d]: C0x0125.0x2.0
0x378954…378ae8 [0x0e]: C0x0125.0x3.0
0x378954…378ae8 [0x0f]: C0x0126.0x0.0
0x378954…378ae8 [0x10]: C0x0126.0x1.0
0x378954…378ae8 [0x11]: C0x0126.0x2.0
0x378954…378ae8 [0x12]: C0x0126.0x3.0
0x378954…378ae8 [0x13]: C0x0127.0x0.0
0x378954…378ae8 [0x14]: C0x0127.0x1.0
0x378954…378ae8 [0x15]: C0x0127.0x2.0
0x378954…378ae8 [0x16]: C0x0127.0x3.0
0x378954…378ae8 [0x17]: C0x0128.0x0.0
0x378954…378ae8 [0x18]: C0x0128.0x1.0
0x378954…378ae8 [0x19]: C0x0128.0x2.0
0x378954…378ae8 [0x1a]: C0x0128.0x3.0
0x378954…378ae8 [0x1b]: C0x0129.0x0.0
0x378954…378ae8 [0x1c]: C0x0129.0x1.0
0x378954…378ae8 [0x1d]: C0x0129.0x2.0
0x378954…378ae8 [0x1e]: C0x0129.0x3.0
0x378954…378ae8 [0x1f]: C0x012a.0x0.0
0x378954…378ae8 [0x20]: C0x016f.0x1.0
0x378954…378ae8 [0x21]: C0x016f.0x2.0
0x378954…378ae8 ]
0x378954…378ae8 }
0x378ae8…378c7c Dummy {f00=0x0122, f01=0x0190, f02=» 2 P IDENT SYSLCR REL 11.0 81-10-06 870105041100 P : P =5,NOT CORRECT CHANGE IN B P REL 11.0 81-09-16 f . P =4,T:A FOR TRABUG COMMON FOR ALL TASKS P REL 11.0 81-05-19 , P =3,WHEN MMUPAG=1 APPLICATION CODE IS * P
0x378c7c…378e10 Dummy {f00=0x0122, f01=0x018e, f02=»ING BUFFERS p P FROM TOP P PRR 11.0 80-12-03 * 0 P =1,APPLICATION CONTROL BLOCK IS EXTENDED J P WITH 1 WORD ~ P PRR 11.0 80-11-19 P P > P********************************************************
0x378e10…378fa4 Dummy {f00=0x0122, f01=0x0190, f02=» N P* P* P* P* & P* 0 P* : > P********************************************************** D P* P* CREDIT APPLICATION: F P* SYSLCR READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-
0x378fa4…379138 Dummy {f00=0x0122, f01=0x0190, f02=»F TO FOLLOW MONITOR AND WILL ALSO MOVE r P* DDIV-PROTOTYPE . . P* N H P* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW X H P* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS H P* ARE, IN CASE OF M
0x379138…3792cc Dummy {f00=0x0122, f01=0x018e, f02=» P* 'OVER' SYSLCR. P EJECT " P 0 P*************************** < P* * ` P* ENTRIES AND EXTERNALS * P* * P*************************** P P* LABEL ENTR
0x3792cc…379460 Dummy {f00=0x0122, f01=0x0190, f02=» 2 P EXTRN XMOVE MOVE BLOCKS INSIDE MEMORY VIA MMU P EXTRN MOVMMT MOVE MM-TABLE > $ P EXTRN GETTAB FIND TTAB-ADDRESS b $ P EXTRN GETTTB FIND TTAB-ADDRESS 0 P EXTRN MMENT FIND LAST USED ENTRY IN MM-TAB ( P EXTRN ERROR ERROR HANDLING ROUTIN
0x379460…3795f4 (1, 970) Dummy {f00=0x0122, f01=0x0190, f02=»DEFINITION BLOCK p * P EXTRN CONVRT CONVERSION ASCII-BINARY 2 P EXTRN GETNUM CONVERT 3 ASCII-DIGITS TO BINARY F & P EXTRN MULT MULTIPLICATION ROUTINE | 4 P EXTRN GETAPP FIND APPLICATION AND ITS CONF.FILE P EXTRN QUEJOB QUEUE TASK P " P*
0x3795f4…379788 Dummy {f00=0x0122, f01=0x0190, f02=»RN MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P EXTRN MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' 4 P EXTRN PSW j " P EXTRN INILEN LENGTH OF SYSINI | , P EXTRN LSTPAG DISPL. TO 'ENTRY-POINTER' P EXTRN MMBEG P P EJECT $ P* SYSTEM CON
0x379788…37991c Dummy {f00=0x0122, f01=0x0190, f02=» " P EXTRN SCTEFA END OF FREE AREA " P EXTRN SCTNOP NUMBER OF PAGES * P EXTRN SCTPSZ PAGE SIZE P P EXTRN SCTOPT SYSTEM OPTION p $ P EXTRN SCTPAG PAGE TABLE ADDRESS 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE P EXTRN SCTBUG BUGGER
0x37991c…379ab0 Dummy {f00=0x0122, f01=0x0190, f02=»OF COMMON-PAD AREA | P P* EXTERNAL LABELS " P < P* D , P EXTRN TTB:SA START OF SAVE AREA IN TTAB N 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS ~ & P EXTRN TTB:MT DISPL. TO MMU TABLE $ P EXTRN TTB:ID DISPL. TO TASK ID
0x379ab0…379c44 Dummy {f00=0x0122, f01=0x018e, f02=»********************************* , P* CONDITIONAL ASSEMBLY * * , P*************************************** Z P PMMUPAG EQU 0 0 = NO MMU P . PSWPBLK EQU 0 0 = NO SWAPPABLE WORK BLOCKS P 2 P********************
0x379c44…379dd8 Dummy {f00=0x0122, f01=0x0190, f02=» ` 2 P* ==================== * 2 P* * > 2 P********************************************* t P 4 PAPLADA EQU 22 APPL. DISC FILE ADDR. (2 WORDS) =1 ( PAPLREL EQU 18 APPL. RELOCATION
0x379dd8…379f6c Dummy {f00=0x0122, f01=0x0190, f02=»APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE ADDRESS . 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) X . PAPLMMC EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL
0x379f6c…37a100 Dummy {f00=0x0122, f01=0x018e, f02=»M START ADDRESS z " PAPLTYP EQU 8 APPLICATION TYPE . PAPLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 > P EJECT p P ~ P PROGRAM STRUCTURE: P F P* ENTRY ->! * SYSLCR ENTRY * ! N P* ! READ
0x37a100…37a294 (1, 971) Dummy {f00=0x0122, f01=0x0190, f02=» F P* ! T:ATAB: ! F P* ! -A TABLE OF 'NUMBER OF REAL TASKS'IS BUILT AT ! N F P* ! THE END OF MONITOR. ! F P* ! U:BTAB:
0x37a294…37a428 Dummy {f00=0x0122, f01=0x0190, f02=»OTYPE. ! v F P* ! ! 0 F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! z F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB !
0x37a428…37a5bc Dummy {f00=0x0122, f01=0x0190, f02=» ! X < P* ! SYSLCO AND SYSLBA),SYSINI AND CONF.DATA , P* ! TO FOLLOW SHADOW-TABLES T F P* ! -CONTINUE IN PART 2.A ! F P* -----------------------------------------------
0x37a5bc…37a750 Dummy {f00=0x0122, f01=0x0190, f02=» ! ~ F P* ! C O M D A T ! 8 F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. ! F P* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO
0x37a750…37a8e4 Dummy {f00=0x0122, f01=0x0190, f02=» ! ` F P* ! C L A D A T ! F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! d F P* ! AND DWB'S. ! F P* ! -B
0x37a8e4…37aa78 Dummy {f00=0x0122, f01=0x0190, f02=» ! -MOVE D.T. & W.B., COPY UWB'S ! F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! F F P* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE ! F P* ! W.B.-ADDRESS
0x37aa78…37ac0c Dummy {f00=0x0122, f01=0x0190, f02=» ! n F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! ( F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! r F P* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK ! F P*
0x37ac0c…37ada0 Dummy {f00=0x0122, f01=0x0190, f02=» ! P F P* ! -CONTINUE IN PART 2.B ! F P* !-----------------------------------------------------! T P P* ! R E A L T A ! PART 2.B F P* ! BUILD RE
0x37ada0…37af34 (1, 972) Dummy {f00=0x0123, f01=0x0190, f02=» ! -COPY T:A'S ACCORDING TO SHADOW-TABLE ! F P* ! -BUILD TWB'S AND RESERVE FOR SWB'S ! @ F P* ! -ALLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:A
0x37af34…37b0c8 Dummy {f00=0x0123, f01=0x0190, f02=» PARTS IN THIS PROGRAM ! h F P* !-----------------------------------------------------! & P EJECT p . P***************************************** ~ . P* * . P* COMMON DISPLACEMENTS AND CONSTANTS
0x37b0c8…37b25c Dummy {f00=0x0123, f01=0x0190, f02=»DRESS TO APPL. CONTROL TABLE $ PAPPLNO EQU 18 APPLICATION NUMBER $ ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE L . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA x , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF DDIV PROTOTYPE $ PDY
0x37b25c…37b3f0 Dummy {f00=0x0123, f01=0x0190, f02=»L) l , PFYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER 6 PLSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART : ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP t * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA $ PM:REL EQU 16 R
0x37b3f0…37b584 Dummy {f00=0x0123, f01=0x0190, f02=»ILE END ADDRESS ~ ( PTTAB EQU 32 WORK AREA FOR MMU TABLE * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS D , PSWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG r $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2 $ PCOM03 EQU 44 COMMON WO
0x37b584…37b718 Dummy {f00=0x0123, f01=0x0190, f02=» t P*************************** P* , & PT:ATOD EQU 0 T:ATAB 'OLD' ADDRESS 6 & PU:BTOD EQU 2 U:BTAB 'OLD' ADDRESS ` & PS:BTOD EQU 4 S:BTAB 'OLD' ADDRESS & PT:ATNW EQU 6 T:ATAB 'NEW' ADDRESS & PU:BTNW EQU 8 U:BTAB 'NEW' ADDRESS & P
0x37b718…37b8ac Dummy {f00=0x0123, f01=0x0190, f02=»T:ANO EQU 16 TOT. NUMBER OF T:A'S * PDDIVFR EQU 18 PROT. DDIV FROM ADDRESS * ( PS:BLEN EQU 20 LENGTH OF REAL S:BTAB X , PPDDIVL EQU 22 LENGTH OF PDDIV AND S:GTAB P EJECT & P********************************* & P* SCRATCH-PAD DISPLACEMENT
0x37b8ac…37ba40 Dummy {f00=0x0123, f01=0x0190, f02=»SUPER-LOOP | ( PCSTAPP EQU 74 CONF.START FOR A APPL. 4 PDDIVST EQU 76 START OF DDIV-PROTOTYPE AFTER MOVE > : PENDADD EQU 78 END-ADDRESS INDICATOR FOR TABLE-SCANNING v 4 PFLAG EQU 80 REAL TASK DATA PROCESSING INDICATOR $ PMMREL1 EQU 96 PHYSICAL PAGE
0x37ba40…37bbd4 (1, 973) Dummy {f00=0x0123, f01=0x0190, f02=»NGTH 1 z PMOVLE2 EQU 108 MOVE LENGTH 2 ( PNEWAD1 EQU 110 SAVE FOR W.B.ADDRESS 2 ( PNEWAD2 EQU 112 SAVE FOR D.T. ADDRESS ^ , PPDDIV EQU 82 INDICATE IF SPACE IN PDDIV , PRELOCA EQU 100 SAVE FOR RELOCATION BASE PSWITCH EQU 114 D.T.INDICATOR
0x37bbd4…37bd68 Dummy {f00=0x0123, f01=0x0190, f02=»ICATOR z $ PWBADD EQU 118 SAVE W.B.-ADDRESS PSAVE01 EQU 124 6 PSAVE02 EQU 126 L PSAVE03 EQU 128 b PSAVE04 EQU 84 x PSAVE05 EQU 86 PSAVE06 EQU 88 PSAVE07 EQU 90 2 PSAEFA1 EQU 92 SAVE SCTEFA BITS 0-5 PAGE NUMBER 2 PSA
0x37bd68…37befc Dummy {f00=0x0123, f01=0x0190, f02=»** ** P ** CONSTANTS ** P ***************** 6 P ** ** R P ***************** n P P********** P* P:MTAB * P********** PT:ATAB EQU 0 PU:BTAB EQU 2 PP:BAS EQU 6 SEGMENT
0x37befc…37c090 Dummy {f00=0x0123, f01=0x0190, f02=»RESS p , PI:RSTE EQU 42 INTERPRETER RESTART ENTRY ! & PTRABUG EQU 44 TASK ID. FOR TRABUG ! < P ! f P ! n P********** ! v P* U:BTAB * ! P********** ! 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB ! " PUPADDR EQU 2 PROTOTYPE ADDRESS ! PUP
0x37c090…37c224 Dummy {f00=0x0123, f01=0x0190, f02=»AL U:BTAB ! p * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB " PURNUMB EQU 4 NUMBER OF UWB'S " @ PURLENG EQU 6 LENGTH OF UWB " d P EJECT " P " P " P " $ P******************************* " $ P* CONFIGURATION FILE (CONFIG) * " $ P
0x37c224…37c3b8 Dummy {f00=0x0123, f01=0x0190, f02=»2N NUMBER OF TASKS " ~ , PTDBID EQU TDBNT+2 6A TASK ID START VALUE # , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS # J $ PTDBTL EQU TDBMC+6 6A TASK LEVEL # z : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES # P* # & PTDBFST EQU TDBNC+2 FIRST TERM
0x37c3b8…37c54c Dummy {f00=0x0123, f01=0x0190, f02=» * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD $ P* $ 2 P* COMMON DEVICE DEF. BLOCK: $ < PCDBBT EQU 0 1A BLOCK TYPE $ ` 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES $ ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD $ P* $ P* $ & P* USER WORK
0x37c54c…37c6e0 Dummy {f00=0x0123, f01=0x0190, f02=»NU+3 FIRST UDB-RECORD $ PNAMUWB EQU 3 NAME OF UWB % " PNUMUBL EQU 3 NUMBER OF BLOCKS % > . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH % d P EJECT % P % P % P********* % P* T:A * % P********* % PT:ASTA EQU -14 T:A STA
0x37c6e0…37c874 (1, 974) Dummy {f00=0x0123, f01=0x0190, f02=»NUMBER (HERE LENGTH % t 2 P OF ALL DSCB-RECORDS & PT:DAD EQU -8 ADDRESS TO T:D & R * PCIA EQU -6 CURRENT INSTUCTION ADDRESS & v ( P (HERE: DISPLACEMENT TO T:A-START) & P & PT:ATID EQU -4 TASK ID & PSTKE EQU -2 ST
0x37c874…37ca08 Dummy {f00=0x0123, f01=0x0190, f02=»D: & PDSCBL EQU 20 RECORD LENGTH ' " PBL EQU 2 LENGTH OF FIX BUFFER ' , 2 PSB EQU 4 INDEX TO DSCB WHICH SHARE THE BUFFER ' R PBP EQU 18 BUFFER POINTER ' P EJECT ' P ' P ' P********* ' P* T:D * ' P********* ' ( PFCD
0x37ca08…37cb9c Dummy {f00=0x0123, f01=0x018e, f02=»DATTAB EQU 6 DISPLACEMENT TO BEGINNING OF DAT-TABLE ' & PWATLEN EQU 8 NUMBER OF WATELEMENTS ( < 0 PTWBMSK EQU 10 MASK FOR TWB'S (ONE BIT/ENTRY) ( f * PSWBMSK EQU 12 MASK FOR SWB'S -"- ( * PCWBMSK EQU 14 MASK FOR CWB'S -"- ( * PUWBMSK EQU 16 MASK
0x37cb9c…37cd30 Dummy {f00=0x0123, f01=0x0190, f02=» P ) P**************** ) P* SOP-HANDLING * ) $ P**************** ) < PSOP EQU /2E DEVICE ADDRESS ) T P ) v P LAMP CODE MEANING ) ~ P --------- ------- ) PLMP1 EQU /400 SYSLOAD RUNS ) PLMP2 EQU /200 READ ERROR ) " PLMP3 EQU /10
0x37cd30…37cec4 Dummy {f00=0x0123, f01=0x0190, f02=»LMP7 EQU /10 MM-TABLE OVERFLOW ) PLMP8 EQU 8 * & PLMP9 EQU 4 * 8 PLMP10 EQU 2 * J PLMP11 EQU 1 * ^ P EJECT * r P********************* * P* OTHER CONSTA+STKCOMNTS * * P********************* * P * & PWBLEN EQU -4 LENGTH OF WORK-
0x37cec4…37d058 Dummy {f00=0x0123, f01=0x018e, f02=» FIRST DSET * | $ PFCBDD2 EQU 10 DISP TO 2:ND DSET + $ PFCBDD3 EQU 64 DISP. TO 1:ST DAT + < $ PFCBDD4 EQU 66 DISP. TO 2:ND DAT + d P + $ PSTKSZ EQU 128 DEFAULT STACK-SIZE + P + ( PSEGREC EQU 6 RECORD LENGTH IN S:GTAB + 8 PNUMSEG EQU 10 DI
0x37d058…37d1ec Dummy {f00=0x0123, f01=0x0190, f02=» + ( PNTPA EQU 4 INTERPRETER START ADDRESS , & PIHRTC EQU 4 RTC INTERRUPT ADDRESS , 4 $ PRTCDA EQU /1B RTC DEVICE ADDRESS , ^ P , > PTABLEN EQU 24 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD AREA , 0 PACBLEN EQU 26 APPL. CONTROL BLOCK LENGTH =1 , P
0x37d1ec…37d380 Dummy {f00=0x0123, f01=0x0190, f02=» * , Z F P* DATA [REL-ADDRESS] * - F P* * - ^ F P***************************************************************** - P - P -
0x37d380…37d514 (1, 975) Dummy {f00=0x0123, f01=0x0190, f02=»******* ******* - 2 P** ** . 6 2 P* SYSLOAD PART 1 * . l 2 P** ** . 2 P***** ***** .
0x37d514…37d6a8 Dummy {f00=0x0123, f01=0x0190, f02=»-TABLES * . 2 P* * / , 2 P********************************************* / b P / P EJECT / P / P* START OF PROGRAM PART 1 * / P / P / PSYSLCR EQU * / P*
0x37d6a8…37d83c Dummy {f00=0x0123, f01=0x0190, f02=»PAD AREA / n PSYA10 SUK A2,2 0 P CMR A2 CLEAR MEMORY WORD 0 & " P CWR A1,A2 ALL WORDS CLEARED? 0 H P RB(NE) SYA10 NO 0 n PSYA20 EQU * 0 P LD A1,SCTSFA 0 8 P ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE 0 * P LDKL A10,STKEND START OF 1:
0x37d83c…37d9d0 Dummy {f00=0x0123, f01=0x0190, f02=»APPLICATION 0 P* 1 PSYA100 EQU * 1 $ P LDKL A1,'CR' CREDIT APPLICATION 1 2 . P CALL GETAPP FIND APPL. AND ITS CONF.FILE 1 Z 2 P RF(NZ) SYA105 MORE APPLICATIONS OF THIS TYPE 1 P LD A2,APPLNO+STKCOM 1 P RF(NZ) SYA102 1 P LDKL A2,LCREND 1
0x37d9d0…37db64 Dummy {f00=0x0123, f01=0x0190, f02=»COM 1 P ABR A2 GO TO SYA152 2 PSYA105 EQU * 2 ( 8 P ST A11,CSTAPP+STKEND SAVE CONF.START FOR THIS APPL. 2 < P EJECT 2 x P 2 , P* READ CONFIG FILE AND BUILD SHADOWTABLE 2 P 2 P IFT MMUPAG=0 2 * P LD* A2,APLLAC,A1 GET START OF P:MTA
0x37db64…37dcf8 Dummy {f00=0x0123, f01=0x0190, f02=»B,A2 GET U:BTAB FROM P:MTAB 2 " P SUK A4,2 INCLUDE LENGTH-WORD 3 $ P ST A4,U:BTOD,A10 3 J P XIF 3 d P IFT SWPBLK-MMUPAG=1 3 p ( P LD A4,S:BTAB,A2 GET S:BTAB ADDRESS 3 $ P SUK A4,2 ADJUST FOR LENGTH WORD 3 P ST A4,S:BTOD,A10 SAVE 3 P XIF 3
0x37dcf8…37de8c Dummy {f00=0x0123, f01=0x0190, f02=»STKEND ADD LAST SHADOW (MONITOR) END ADDRESS 3 P* CHECK ADDRESSES 4 4 P 4 N " P LDR A11,A3 END OF SHADOW-TAB 4 V . P LD A9,SAVE01+STKEND GET LOCATION COUNTER 4 | P CALL CMPADR 4 P RF(L) SYA110 OK! 4 " P LDKL A1,LMP3 MEMORY OVERFLOW 4 P CALL
0x37de8c…37e020 Dummy {f00=0x0123, f01=0x0190, f02=»2 NEXT 4 P STR A2,A3 CLEAR 5 P CW A3,SHADST+STKEND ALL? 5 & P RB(NE) ZERO NO! 5 H " P STR A4,A3 STORE TABLE LENGTH 5 ` P* 5 ( P* READ CONF.FILE AND GET TASK CLASS 5 P* 5 8 P LD A11,CSTAPP+STKEND GET CONF.START FOR THIS APPL. 5 " P LC A2
0x37e020…37e1b4 (1, 976) Dummy {f00=0x0124, f01=0x018e, f02=» 5 ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID 6 P SLL A2,8 . 6 4 P LC A2,TDBMC+5,A11 ... 6 H P CWK A2,'TB' BUGGER TASK? 6 f P RF(NE) SYA125 NO! 6 2 P ST A2,BTASK,A10 INDICATE BUGGER TASK PRESENT 6 " P RF SYA136 SKIP TO NEXT BLOCK 6 PSYA125 LDR
0x37e1b4…37e348 Dummy {f00=0x0124, f01=0x0190, f02=» 6 PSYA130 ADKL A8,2 NEXT T:A 7 P LDR* A6,A8 GET T:A ADDRESS 7 * P SUK A4,2 7 N P RF(NZ) SYA135 7 ` 0 P LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) 7 v P CALL ERROR 7 PSYA135 EQU * 7 P CW A2,T:ATID,A6 TID EQUAL? 7 P RB(NE) SYA130 NO!
0x37e348…37e4dc Dummy {f00=0x0124, f01=0x0190, f02=» P XIF 8 P IFT MMUPAG=1 8 6 P LD A2,FYSPAG+STKCOM GET LAST PHYSICAL PAGE NUMBER 8 & P ST A2,SAEFA1+STKEND SAVE 8 ` * P LD A2,LSTADR+STKCOM GET LAST ADDRESS 8 P ANKL A2,/FFF GET OFFSET 8 P ST A2,SAEFA2+STKEND SAVE 8 , P LD* A2,APLMMC,A1 GET
0x37e4dc…37e670 Dummy {f00=0x0124, f01=0x018e, f02=» ADDRESS 8 x $ P SUKL A12,2 INCLUDE LENGTH WORD 9 & P ST A12,T:ATOD,A10 SAVE IN APPTAB 9 8 $ P EL A4,U:BTAB,A2 U:BTAB ADDRESS 9 b $ P SUK A4,2 ADJUST FOR LENGTH WORD 9 $ P ST A4,U:BTOD,A10 SAVE IN APPTAB 9 P XIF 9 P IFT MMUPAG+SWPBLK=2 9 ( P EL A4
0x37e670…37e804 Dummy {f00=0x0124, f01=0x0190, f02=» 9 P* T:ATAB PROCESSING: : P : $ P ELR A4,A12 T:ATAB-LENGTH : 0 P LDR A3,A4 SAVE : R 0 P SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE : j > P AD A3,SHADST+STKEND ADD LAST SHADOW (MONITOR) END ADDRESS : P* CHECK ADDRESSES : P : $ P LDR A
0x37e804…37e998 Dummy {f00=0x0124, f01=0x0190, f02=»A1,LMP3 MEMORY OVERFLOW : P CALL ERROR ; ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS ; 4 P* CLEAR T:ATAB SHADOW-TABLE: ; ` P ; PSYA115 SUK A3,2 NEXT ; P CMR A3 CLEAR ; P CW A3,SHADST+STKEND ALL? ; P RB(NE) SYA115 NO! ; " P STR A4,A3
0x37e998…37eb2c Dummy {f00=0x0124, f01=0x0190, f02=»S APPL. ; d " P LC A2,TDBBT,A11 GET BLOCKTYPE < P CCK A2,'TT' TASK DEF? < 6 P RF(E) SYA120 OK! < T P LDK A1,LMP4 NO TASK PRESENT < n P CALL ERROR < ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID < P SLL A2,8 . < P LC A2,TDBMC+5,A11 ... < P CWK
0x37eb2c…37ecc0 Dummy {f00=0x0124, f01=0x0190, f02=»CK < x PSYA125 LDR A8,A12 SAVE = P ELR A4,A12 T:ATAB LENGTH = ( P* = J P* SCAN T:ATAB = T * P* FIND CORRESPONDING TASK CLASS IN T:A = j P* = PSYA130 ADKL A8,2 NEXT T:A = P ELR A6,A8 GET T:A ADDRESS = P SUK A4,2 = P RF(NZ) SYA135 =
0x37ecc0…37ee54 (1, 977) Dummy {f00=0x0124, f01=0x0190, f02=» TID EQUAL? = P RB(NE) SYA130 NO! > P* > . , P* STORE NUMBER OF TASKS IN SHADOW-TABLE > 8 P* FOR THIS TASK CLASS > h P* > P ELR A5,A12 > P SUR A4,A5 T:ATAB LENGTH > P XIF > . P NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB > ( P LC A5
0x37ee54…37efe8 Dummy {f00=0x0124, f01=0x018e, f02=»OW TABLE > n P ADR A2,A4 ? 6 P ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE ? " P ? P* SKIP TO NEXT BLOCK ? h P ? PSYA136 CALL NXTBLK ? PSYA137 EQU * ? P CCK A2,'TT' ? & P RB(E) SYA120 NEXT TASK DEF BLOCK ? P CCK A2,'CC'
0x37efe8…37f17c Dummy {f00=0x0124, f01=0x0190, f02=» P RF(NE) SYA141 NO UWB'S @ 2 P LD A8,U:BTOD,A10 GET MODIFIED U:BTAB ADDRESS @ $ 6 P CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE @ Z PSYA141 EQU * @ P IFT SWPBLK=1 @ P LCR A2,A11 @ P CCK A2,'SS' @ P RF(NE) SYA143 @ P LD A8,S:BTO
0x37f17c…37f310 Dummy {f00=0x0124, f01=0x0190, f02=»0 SAVE IN APPTAB @ P LDR* A1,A2 GET LENGTH A P IFT MMUPAG=1 A 6 * P SLL A1,1 RESERVE FOR MM-ADDRESS-TABLE A L P XIF A z : P ADS A1,SHADST+STKEND SAVE START OF NEXT SHADOW-TABLE A P ADKL A10,TABLEN NEXT APPTAB A P LDKL A1,SYA100 A P AD A1,M
0x37f310…37f4a4 Dummy {f00=0x0124, f01=0x0190, f02=»************* A V L P* * B L P* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * B f L P* ================================================================= * B L P*
0x37f4a4…37f638 Dummy {f00=0x0124, f01=0x0190, f02=» * B V L P* * C L P* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * C f L P* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * C L P*
0x37f638…37f7cc Dummy {f00=0x0124, f01=0x0190, f02=» * C V L P* * D J P* WORK REGISTERS: A1,A2,A3,A4,A6,A12 * D f L P* * D L P* S
0x37f7cc…37f960 Dummy {f00=0x0124, f01=0x018e, f02=» * D T L P*********************************************************************** E P E d PUSWBTP EQU * E l P E P IFT MMUPAG=0 E P ADKL A11,1 E P LDR A6,A11 E * P CALL GETNUM PACK 3 DIG. RESULT IN A5 E $ P LDR A1,A5 SAVE NUMB
0x37f960…37faf4 (1, 978) Dummy {f00=0x0124, f01=0x0190, f02=» E j PSYA145 EQU * F 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG F P SLL A2,8 F P P LC A2,1,A11 GET 2:ND CHAR F b 6 P CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP F * P RF(E) FRSTOK FIRST TWO CHARACTERS OK! F 0 PSYA147 SUK A3,UP:REC DEC. NU
0x37faf4…37fc88 Dummy {f00=0x0124, f01=0x0190, f02=» ADD TO NEXT RECORD F P RB SYA145 G $ PFRSTOK LC A2,2,A11 GET 3:RD CHAR G . P CC A2,UPNAME+2,A12 G V P RB(NE) SYA147 .NEQ. G r P EJECT G P G P* PROTOTYPE FOUND * G P G 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG G
0x37fc88…37fe1c Dummy {f00=0x0124, f01=0x0190, f02=»CONFIG FILE G r P RB(P) SYA142 H P ADKL A11,UDBFST-1 H * P RTN A14 H D P XIF H T P IFT MMUPAG=1 H ` P ADKL A11,1 H v P LDR A6,A11 H * P CALL GETNUM PACK 3 DIG. RESULT IN A5 H $ P LDR A1,A5 SAVE NUMBER OF UWB'S H PSYA142 EQU * H P
0x37fe1c…37ffb0 Dummy {f00=0x0124, f01=0x018e, f02=»CR A2,A11 GET FIRST CHARACTER FROM CONFIG H P SLL A2,8 I 2 P LC A2,1,A11 GET 2:ND CHAR I D 2 P EL A4,UPNAME,A12 GET FIRST WORD IN PROTOTYPE I f P CWR A2,A4 I P RF(E) FRSTOK FIRST WORD OK! I 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S I P R
0x37ffb0…380144 Dummy {f00=0x0124, f01=0x0190, f02=» P RB SYA145 J 0 PFRSTOK LC A4,2,A11 GET 3:RD CHAR FROM CONFIG J 0 P EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY J J P SRL A2,8 J ~ P ANK A4,/FF J P CWR A4,A2 J P RB(NE) SYA147 .NEQ. J P EJECT J P J P* PROTOTYPE FOUND * J P
0x380144…3802d8 Dummy {f00=0x0124, f01=0x0190, f02=»VERT J 4 P EL A4,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE K P ANKL A4,/FF00 K D P ORR A4,A5 K Z P ES A4,UPNUMB-1,A12 K l . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE K P RB(P) SYA142 K P ADKL A11,UDBFST-1 K P RTN A14 K P XIF K P E
0x3802d8…38046c Dummy {f00=0x0124, f01=0x0190, f02=»W-TABLES) K d P ADK A7,1 L P ANKL A7,/FFFE EVEN ADDRESS L $ P* L H P* CALULATE RELOCATION L R P* L p & P LDKL A2,PART2 GET START OF PART2 L z , P AD A2,M:REL+STKCOM ADD RELOCATION BASE L P LDR A3,A2 L P SUR A2,A7 MOVE LENGTH L P NGR
0x38046c…380600 Dummy {f00=0x0124, f01=0x0190, f02=»Y EXIST SYSLCO AND SYSLBA) L h P* CONF.FILE AND SYSINI M " P* M @ " P LDR A2,A7 TO-ADDRESS (SYSLCR) M J P ANKL A2,/F000 FIRST PAGE M p , P ST A2,MMREL1+STKEND SAVE PHYSIVAL PAGE M " P SRL A2,2 SHIFT FOR MM-PAGING M P LDKL A11,MMDDIV M , P ADR A11
0x380600…380794 (1, 979) Dummy {f00=0x0124, f01=0x0190, f02=» M z P ADKL A2,/400 PAGE INCREMENT N P SUK A1,1 ALL? N , P N B P RB(NZ) SYA157 NO! N J * P ANKL A7,/FFF GET DISPLACEMENT IN PAGE N d P XIF N 2 P ST A7,SHADST+STKEND SAVE (LOGICAL) TO-ADDRESS N $ P LDR A2,A13 A13=START OF SYSINI N P SUR A2,A3 L
0x380794…380928 Dummy {f00=0x0124, f01=0x0190, f02=»NGTH TO MOVE N t 0 P AD A2,CONLEN+STKCOM ADD LENGTH OF CONF.FILE O P ADR A7,A2 O H 6 P ST A7,DDIVST+STKEND SAVE START OF DDIV AFTER MOVE O Z P* O " P* CALCULATE DDIV FROM-ADDRESS O P* O , P CM APPLNO+STKCOM RESET NUMBER OF APPL. O * P LDKL A10,
0x380928…380abc Dummy {f00=0x0124, f01=0x0190, f02=»ON O r P CALL GETAPP ANY APPLICATION P P ABR(Z) A5 NO P . " P LD A3,SCTOPT GET OPTION WORD P D P IFT MMUPAG=0 P j * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB P $ P LDR* A9,A2 GET START OF P:MTAB P 0 P ST A3,OPTION,A9 STORE OPTION WORD IN P:MTAB P 0
0x380abc…380c50 Dummy {f00=0x0124, f01=0x0190, f02=» P XIF Q P IFT MMUPAG=1 Q * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB Q & " P ELR A9,A2 GET START OF P:MTAB Q T 0 P ES A3,OPTION,A9 STORE OPTION WORD IN P:MTAB Q z 0 P EL A3,I:RSTE,A9 GET INTERPRETER ERROR ENTRY Q " P ST A3,APLIOE,A1 STORE IN ACB Q , P
0x380c50…380de4 Dummy {f00=0x0124, f01=0x0190, f02=»LT A2*A3 RESULT IN A3 Q P ADR A1,A3 R P ADK A1,NUMSEG+2 R 0 , P ST A1,DDIVFR,A10 SAVE DDIV FROM ADDRESS R H 6 P LD A6,DDIVST+STKEND GET START OF DDIV AFTER MOVE R x " P SUR A6,A1 RELOCATION FOR DDIV R P EJECT R P R P R P R 0 P*
0x380de4…380f78 Dummy {f00=0x0124, f01=0x0190, f02=» * R l . P* A9=P:MTAB A6=MOVE-RELOC * S . P***************************************** S @ P IFT MMUPAG=0 S r P S P* INITIATE POINTERS S P S ( P LD A8,T:ATOD,A10 GET T:ATAB ADDRESS S P LDR* A3,A8 GET LENGTH S P ADR A3,A8
0x380f78…38110c Dummy {f00=0x0124, f01=0x0190, f02=» S x & P LDR A2,A8 2:ND POINTER IN T:ATAB T & P LDK A3,2 SET 'NEW' T:ATAB COUNTER T 2 . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR T P T P* SCAN T:ATAB: T P T " PSYA160 ADKL A8,2 TAKE NEXT T:A T $ P ADK A5,2 NEXT T:A IN SHADOW-TAB T P CW A8
0x38110c…3812a0 Dummy {f00=0x0124, f01=0x0190, f02=»160 THIS T:A IS NOT USED!!!!! T " P ADR A11,A7 ACCUMULATE LENGTH U & , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH U L , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS U | ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS U 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLA
0x3812a0…381434 (1, 980) Dummy {f00=0x0125, f01=0x018e, f02=» W.B.-ADDRESSES U P V $ P LD A12,T:DAD,A1 GET T:D-ADDRESS V $ P LD A7,WATLEN,A12 LENGTH OF WAT V H . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS V p PSYA165 SUK A7,1 DEC. COUNTER V P RB(N) SYA160 TAKE NEXT T:A V P ADRS A6,A1 RELOCATE V P X
0x381434…3815c8 Dummy {f00=0x0125, f01=0x0190, f02=» P ADR A3,A8 END OF T:ATAB W P ST A3,ENDADD+STKEND SAVE W $ 4 P LD A5,SHADOW,A10 GET START OF T:ATAB SHADOW-TAB W F P LDR A4,A5 2:ND POINTER W ~ & P LDR A2,A8 2:ND POINTER IN T:ATAB W & P LDK A3,2 SET 'NEW' T:ATAB COUNTER W . P SUR A11,A11 CLEAR REA
0x3815c8…38175c Dummy {f00=0x0125, f01=0x0190, f02=» W p P CW A8,ENDADD+STKEND X P RF(E) SYA170 ALL DONE X $ P ELR A1,A8 GET T:A X B * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB X , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! X " P ADR A11,A7 ACCUMULATE LENGTH X , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH
0x38175c…3818f0 Dummy {f00=0x0125, f01=0x0190, f02=». ON NEW PLACE) X l P ELR A12,A8 GET T:A-ADDRESS Y P ADR A12,A6 RELOCATE Y < . P ESR A12,A2 STORE ADDR. (EV. ON NEW PLACE) Y X P* RELOCATE W.B.-ADDRESSES Y P Y $ P EL A12,T:DAD,A1 GET T:D-ADDRESS Y $ P EL A7,WATLEN,A12 LENGTH OF WAT Y . P ADK
0x3818f0…381a84 Dummy {f00=0x0125, f01=0x0190, f02=»END SAVE Y ~ P ELR A10,A1 GET ADDRESS Z P ADR A10,A6 RELOCATE Z 0 P ESR A10,A1 Z L " P LD A10,SAVE04+STKEND RESTORE Z ` P XIF Z P ADK A1,4 NEXT W.B. Z P RB SYA165 Z P Z PSYA170 EQU * Z > P ST* A3,SHADOW,A10 STORE NEW TABLE LENGTH IN
0x381a84…381c18 Dummy {f00=0x0125, f01=0x0190, f02=» AND IN T:ATAB Z ~ P XIF [ 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR [ " ( P SLL A2,1 CALC. REAL LENGTH (BYTES) [ V P ADK A2,2 [ . P ST A2,T:ANO,A10 SAVE TOT. NUMBER OF T:A'S [ P [ P EJECT [ " P****************************** [ $ P*
0x381c18…381dac Dummy {f00=0x0125, f01=0x0190, f02=»G=0 [ $ P LD A5,U:BTOD,A10 U:BTAB ADDRESS P LDR* A3,A5 LENGTH 4 P ADK A5,2 SKIP LENGTH WORD N P SUK A3,2 -"- p " PSYA180 RF(Z) SYA185 ALL DONE! P ADRS A6,A5 RELOCATE P XIF P IFT MMUPAG=1 $ P LD A5,U:BTOD,A10 U:BTAB ADD
0x381dac…381f40 Dummy {f00=0x0125, f01=0x0190, f02=»04+STKEND STORE P ELR A10,A5 GET ADDRESS ] P ADR A10,A6 RELOCATE ] 8 P ESR A10,A5 ] T " P LD A10,SAVE04+STKEND RESTORE ] h P XIF ] 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP ] P SUK A3,UP:REC ] P RB SYA180 ] P EJECT ]
0x381f40…3820d4 (1, 981) Dummy {f00=0x0125, f01=0x0190, f02=» ADDRESS ] x " P ELR A3,A5 LENGTH OF PROTOTYPE ^ P LDR A2,A3 SAVE ^ 6 " P SUK A3,2 EXCLUDE LENGTH WORD ^ N , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED! ^ t $ P EL A4,2,A5 GET PROT. W.B.-ADDR. ^ P ADR A4,A6 RELOCATE ^ P ES A4,2,A5 STORE IT BACK ^ ,
0x3820d4…382268 Dummy {f00=0x0125, f01=0x0190, f02=»DK A2,2 INCREMENT LENGTH ^ ( P SUK A4,1 DECREMENT NUMBER OF COPIES _ P RB SYA192 _ L 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE _ ^ $ P SUK A3,UP:REC DECREMENT LENGTH _ P RB SYA190 _ P XIF _ P IFT SWPBLK-MMUPAG=1 _ $ P LD A5,S:BTO
0x382268…3823fc Dummy {f00=0x0125, f01=0x0190, f02=»SYA195 RF(Z) SYA199 ALL RECORDS SCANNED! _ $ P LD A4,2,A5 GET PROT. W.B.-ADDR. ` 0 P ADR A4,A6 RELOCATE ` X P ST A4,2,A5 STORE IT BACK ` t , P LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES ` P ANK A4,/FF ` . PSYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! `
0x3823fc…382590 Dummy {f00=0x0125, f01=0x0190, f02=»S:BTAB PROTOTYPE ` l $ P SUK A3,UP:REC DECREMENT LENGTH a P RB SYA195 a @ P XIF a R P IFT SWPBLK=1 a ^ 4 PSYA199 ADS A6,S:BTOD,A10 RELOCATE S:BTAB ADDRESS a t 0 P ST A2,S:BLEN,A10 SAVE LENGTH OF REAL S:BTAB a P XIF a P EJECT a P a 6 P* RELO
0x382590…382724 Dummy {f00=0x0125, f01=0x0190, f02=»T APPTAB a | P LDKL A1,SYA156 b P AD A1,M:REL+STKCOM b ( P ABR A1 b D POUT01 EQU * b T P* b h 8 P* MOVE SYSLCR (AND IF THEY EXIST SYSLCO AND SYSLBA) b r P* AND SYSINI b P* b ( P LD A2,SHADST+STKEND GET TO-ADDRESS b * P OR A2,MMREL1+ST
0x382724…3828b8 Dummy {f00=0x0125, f01=0x0190, f02=»RT OF PART2 b z , P AD A1,M:REL+STKCOM ADD RELOCATION BASE c P c D ( P LD A3,MOVLE2+STKEND LENGTH TO MOVE c L , P LD A4,RELOCA+STKEND GET RELOCATION BASE c x , P ADS A4,M:REL+STKCOM NEW RELOCATION BASE c P EJECT c P* c , P* JUMP TO MOVE ROUTINE
0x3828b8…382a4c Dummy {f00=0x0125, f01=0x0190, f02=» A7=RETURN-ADDRESS c P* d $ P ABL STKMOV JUMP TO MOVE ROUTINE d & P EJECT d N P d P* ************************** d d " P* START OF PROGRAM PART 2.A * d " P***************************** d P d P d PPART2 EQU * d " P LDR A8,P LO
0x382a4c…382be0 Dummy {f00=0x0125, f01=0x0190, f02=»A1,CONSTA+STKCOM GET FROM ADDRESS d 0 P LD A3,CONLEN+STKCOM GET LENGTH OF CONF.FILE e * P LDR A7,P e ^ P ADK A7,10 e p 4 P ST A2,CONSTA+STKCOM UPDATE START OF CONF. DATA e $ P ABL STKMOV JUMP TO MOVE-ROUTINE e * P LDKL A10,STKEND START OF 1:ST APPTAB
0x382be0…382d74 (1, 982) Dummy {f00=0x0125, f01=0x0190, f02=»CR' CREDIT APPLICATION e " P CALL GETAPP FIND APPLICATION f * P RF(NZ) SYA205 MORE APPL.OF THIS TYPE f D P IFT MMUPAG=1 f r " P LD A2,SAEFA1+STKEND GET PAGE f P ST A2,FYSPAG+STKCOM f * P LD A2,SAEFA2+STKEND GET DISPLACEMENT f P ST A2,LSTADR+ST
0x382d74…382f08 Dummy {f00=0x0125, f01=0x0190, f02=»PL. OF THIS TYPE f v P AD A2,M:REL+STKCOM g P ABR A2 g 4 PSYA205 EQU * g D : P ST A1,APCBLK+STKEND SAVE START OF APPL. CONTROL TABLE g X P LDR A4,A1 SAVE g * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB g P IFT MMUPAG=0 g $ P LDR* A9,A2 GET START
0x382f08…38309c Dummy {f00=0x0125, f01=0x0190, f02=»,DDIVFR,A10 END - START g & P AD A5,DDIVST+STKEND ADD NEW START h P ST A5,DATEND+STKCOM STORE h J P* h l * P* CALCULATE LENGTH OF PDDIV AND S:GTAB h v P* h " P LDR A3,A9 GET START OF P:MTAB h . P SUR A3,A2 GET LENGTH OF PDDIV AND S:GTAB h P I
0x38309c…383230 Dummy {f00=0x0125, f01=0x0190, f02=» NO! h $ P CM PDDIV+STKEND YES!RESET FLAG i PSYA206 EQU * i 4 6 P ST A3,PDDIVL,A10 STORE LENGTH OF PDDIV AND S:GTAB i H P XIF i P IFT MMUPAG=1 i " P ELR A9,A2 GET START OF P:MTAB i * P ST A9,APLLAC,A1 SAVE START OF P:MTAB i P* i P* CALC
0x383230…3833c4 Dummy {f00=0x0125, f01=0x0190, f02=» P LDR A6,A5 j . P ANKL A6,/F000 GET LOGICAL PAGE (MM-ENTRY) j $ P SRL A6,11 ADJUST FOR ADDRESSING j H . P ADKL A6,MMDDIV ADD RELATIVE START ADDRESS j p P ADR A6,A13 RELOCATE j & P LDR* A6,A6 GET MM-TABLE CONTENTS j P ST A6,FSTPAG+STKCOM SAVE j "
0x3833c4…383558 Dummy {f00=0x0125, f01=0x018e, f02=»A9 SAVE A9 j " P LDR A9,A6 GET FIRST FREE PAGE k , P LD A11,SAEFA1+STKEND GET LAST FREE PAGE k 8 P CALL CMPADR k h P RF(G) SYA201 OK! k | P RF(L) SYA208 NOK! k P LDR A9,A5 GET DISPLACEMENT k P LD A11,SAEFA2+STKEND k P CALL CMPADR k P R
0x383558…3836ec Dummy {f00=0x0125, f01=0x0190, f02=» k ( P* CHECK IF START OF S:GTAB = SCTEFA l P* l 4 $ P LDR A3,A2 GET ADDRESS TO S:GTAB l > . P ANKL A3,/F000 GET LOGICAL PAGE (MM-ENTRY) l f $ P SRL A3,11 ADJUST FOR ADDRESSING l . P ADKL A3,MMTAB ADD RELATIVE START ADDRESS l P ADR A3,A13 RELOCATE l
0x3836ec…383880 Dummy {f00=0x0125, f01=0x0190, f02=»DR A3,A2 YES! COMPARE OFFSET l P ANKL A3,/0FFF GET OFFSET m $ P CM PDDIV+STKEND RESET FLAG m F P CW A3,SAEFA2+STKEND m j P RF(E) SYA203 OFFSET EQUAL? m P* m * P* CALCULATE LENGTH OF PDDIV AND S:GTAB m P* m PSYA202 EQU * m " P LDR A3,
0x383880…383a14 (1, 983) Dummy {f00=0x0125, f01=0x0190, f02=» A3,A2 GET START OF S:GTAB m & P ANKL A2,/F000 NO!GET PAGE NUMBER n " P ADKL A2,/1000 ADD n L P CWR A2,A9 n f P RF(NG) SYA204 n x P LDR A2,A3 n PSYA204 EQU * n " P LDR A3,A9 GET START OF P:MTAB n * P SUR A3,A2 LENGTH OF PDDIV AND S:GTAB n P
0x383a14…383ba8 Dummy {f00=0x0125, f01=0x0190, f02=»LES ADDRESSES n P* o P LDKL A4,MMDDIV o " P ADR A4,A13 GET TABLE ADDRESS o 8 2 P ST A4,MMTO+STKCOM SAVE 1:ST MM-TABLE ADDRESS o ^ P LDKL A4,MMTAB o " P ADR A4,A13 GET TABLE ADDRESS o 0 P ST A4,MMFROM+STKCOM SAVE 2:ND TABLE ADDRESS o P XIF
0x383ba8…383d3c Dummy {f00=0x0125, f01=0x0190, f02=»ADDRESS o t P LDR A4,A2 p P SUR A3,A1 LENGTH OF DDIV p " " P SUR A4,A1 RELOCATION FOR DDIV p D P ST A4,MOVADD+STKEND SAVE p j P IFT MMUPAG=0 p P LD A8,STKCOM+TOTSGM PAGING? p P RF(NZ) PAGING YES! p & P LD A8,SCTOPT NO! GET OPTION WORD p
0x383d3c…383ed0 Dummy {f00=0x0125, f01=0x0190, f02=»STADR+STKCOM IF SEGMENTS! p x P RF SEGMTS q " 2 PNOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP q 4 $ PSEGMTS ST A8,FSTADR+STKCOM STORE q j PMOVNXT LDR* A4,A1 GET WORD q P STR A4,A2 STORE q P ADK A1,2 q P ADK A2,2 q P SUK A3,2 DEC LENGTH q
0x383ed0…384064 Dummy {f00=0x0125, f01=0x0190, f02=» CALL CMPADR q P RF(NG) SYA207 r P LDKL A1,LMP3 r * P CALL ERROR r @ PSYA207 EQU * r T " P LDR A9,A3 GET P:MTAB ADDRESS r h , P SUK A3,10 RESERVE 5 WORDS FOR DEBUGGER r P XIF r P IFT MMUPAG=1 r P CALL XMOVE r & P* REMOVE DDIV ENTRIE
0x384064…3841f8 Dummy {f00=0x0125, f01=0x0190, f02=»B ADDRESS-5WORDS =3 r | $ P SRL A1,11 ADJUST FOR ADDRESSING s P ANK A1,/1E s D & P LDKL A2,MMTAB-2 GET TABLE ADDRESS s X P ADR A2,A13 RELOCATE s , P ADR A1,A2 P:MTAB-5WORDS START ENTRY =3 s P LDKL A4,/FC00 s PSYA206 CWR A1,A2 ALL? s P RF(E)
0x3841f8…38438c Dummy {f00=0x0125, f01=0x0190, f02=»CHANGE TABLE - ADDRESSES s P* t P LD A4,MMFROM+STKCOM t * P LD A5,MMTO+STKCOM t F P ST A4,MMTO+STKCOM t ` P ST A5,MMFROM+STKCOM t z P XIF t P ANKL A3,/FFFE EVEN ADDRESS t . P ST A3,LSTADR+STKCOM SAVE END OF FREE AREA t P t P t P
0x38438c…384520 Dummy {f00=0x0125, f01=0x0190, f02=» t l P ADR A3,A13 u , P* FIND LAST USED ENTRY IN REAL MMUTAB * u P u L P CALL MMENT u T P ST A9,TTAB+STKCOM u h , P ST A1,FYSPAG+STKCOM SAVE PHYSICALL PAGE u * P LD A3,T:ANO,A10 GET LENGTH OF T:ATAB u P LDR A5,A3 SAVE u * P CALL CALLMO RES
0x384520…3846b4 (1, 984) Dummy {f00=0x0126, f01=0x0190, f02=» T:ATAB ADDRESS u v P ADK A2,2 SKIP LENGTH WORD v 8 P LD A1,APCBLK+STKEND GET START OF APLL.CONTROL BLOCK v : ( P LD A9,APLLAC,A1 GET P:MTAB ADDRESS v v $ P ES A2,T:ATAB,A9 STORE IN P:MTAB v $ P* RESERVE PLACE FOR T:AID TABLE v P v P LDR A3,A5 GET
0x3846b4…384848 Dummy {f00=0x0126, f01=0x0190, f02=» A5,A2 STORE TABLE LENGTH IN T:TID-TABLE v " P ADK A2,2 ADJUST TABLE ADDRESS w 0 P ESR A2,A3 STORE IN P:MTAB w V $ P LD A5,U:BTOD,A10 U:BTAB ADDRESS w x ( P TL* MMFROM+STKCOM SET CORRECT TABLE w P ELR A3,A5 GET LENGTH w P LDR A5,A3 SAVE w P CALL
0x384848…3849dc Dummy {f00=0x0126, f01=0x018e, f02=» GET U:BTOD LENGTH w ~ P LDR A5,A3 SAVE x P CALL CALLMO RESERVE SPACE x 2 4 P ST A2,U:BTNW,A10 SAVE NEW (REAL) U:BTAB ADDRESS x T P STR A5,A2 STORE LENGTH x P ADK A2,2 x : P ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB x * P LD A3,T:ANO
0x3849dc…384b70 Dummy {f00=0x0126, f01=0x018e, f02=» x p . P ST A2,T:ATNW,A10 SAVE NEW T:ATAB ADDRESS y P ADK A2,2 y : & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS y L P* RESERVE FOR T:AID TABLE y v P y P LDR A3,A5 LENGTH y P CALL CALLMO y P STR A5,A2 STORE LENGTH y $ P ADK A2,2 ADJUST FOR LENGT
0x384b70…384d04 Dummy {f00=0x0126, f01=0x0190, f02=» P ESR A5,A2 STORE LENGTH z P ADK A2,2 SKIP LENGTH WORD z $ $ P ES A2,U:BTAB,A9 STORE IN P:MTAB z F P XIF z n P IFT SWPBLK=1 z z P* z * P* RESERV SPACE FOR REAL S:BTAB TABLE z P* z $ P LD A5,S:BTOD,A10 S:BTAB ADDRESS z 0 P LD A3,S:BLEN,
0x384d04…384e98 Dummy {f00=0x0126, f01=0x0190, f02=»LK=2 z P TL* MMTO+STKCOM { P ESR A5,A2 { $ P ADK A2,2 { 6 P ES A2,S:BTAB,A9 { H P CALL B:RSWT { ` P XIF { t P IFT SWPBLK-MMUPAG=1 { P STR A5,A2 { P ADK A2,2 { P ST A2,S:BTAB,A9 { P CALL B:RSWT { P XIF { P IFT MMUPAG=1 {
0x384e98…38502c Dummy {f00=0x0126, f01=0x0190, f02=»******** { ~ P* SEARCH CWB'S: | P | ( ( P LD A8,T:ATOD,A10 GET T:ATAB ADDRESS | 4 P IFT MMUPAG=0 | ` P LDR* A3,A8 GET LENGTH | v P XIF | P IFT MMUPAG=1 | P ELR A3,A8 GET LENGTH | P XIF | P ADR A3,A8 | 4 P ST A3,ENDADD+STKEND S
0x38502c…3851c0 Dummy {f00=0x0126, f01=0x0190, f02=» ALL DONE? | | P RF(E) SYA245 YES! =5 } $ P CALL T:DADD T:D-ADDRESS TO A12 } 0 P IFT MMUPAG=0 } X " P LD A7,CWBMSK,A12 GET CWB-MASK } n P XIF } P IFT MMUPAG=1 } P EL A7,CWBMSK,A12 } P XIF } P CALL SHIFT SUPER-LOOPA } PSYA220 RF(Z)
0x3851c0…385354 (1, 985) Dummy {f00=0x0126, f01=0x0190, f02=»* SEARCH UWB'S: } P* ~ ( P IM UWB+STKEND INDICATE UWB-SCANNING ~ " P IFT MMUPAG=0 ~ N P LD A7,UWBMSK,A12 ~ d P XIF ~ ~ P IFT MMUPAG=1 ~ P EL A7,UWBMSK,A12 ~ P XIF ~ P CALL SHIFT ~ " PSYA230 RB(Z) SYA210 ALL DONE! ~ PSYA235 C
0x385354…3854e8 Dummy {f00=0x0126, f01=0x0190, f02=»QU * =5 ~ * P LD A1,BTASK,A10 BUGGER TASK INCLUDED? P RF(Z) CLADAT NO! > . P LDK A3,2 RESERVE ONE WORD FOR TRABUG-T:A X P CALL CALLMO P LDR A8,A2 SAVE CSB-POINTER 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 ( P CM TTB:PP,A2 CL
0x3854e8…38567c Dummy {f00=0x0126, f01=0x018e, f02=» * P LD A3,TTB:ID,A2 GET TRABUG'S TASK ID P IFT MMUPAG=0 6 8 P LD A1,APCBLK+STKEND GET START OF APL. CONTROL TABLE L ( P LD A1,APLLAC,A1 GET START OF P:MTAB 4 P ST A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB P LD A1,P:BAS,A1 GET P:BAS
0x38567c…385810 Dummy {f00=0x0126, f01=0x0190, f02=» P XIF 0 P ST A8,TTB:CB,A2 SAVE ADDRESS TO CSB-POINTER . P CM TTB:SB,A2 CLEAR SEGMENT BLOCK ADDRESS D PSYA272 EQU * v 2 P SUKL A8,CSB ADD DISPL. TO CURRENT SEGMENT BAE P ST A8,TTB:SA+26,A2 SAVE A13 P IFT MMUPAG=1 8 P LD A1,APCBLK+
0x385810…3859a4 Dummy {f00=0x0126, f01=0x0190, f02=»S A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB P EL A1,P:BAS,A1 GET P:BAS 6 ( P TL MMBEG,A2 LOAD TRABUG'S MMU-TABLE X , P ES A1,CSB,A8 STORE CURRENT SEGMENT BASE ( P TL* MMFROM+STKCOM RELOAD DDIV TABLE P XIF P EJECT P * P*
0x3859a4…385b38 Dummy {f00=0x0126, f01=0x0190, f02=»SET POINTER TO LENGTH INT:ATAB ~ P IFT MMUPAG=0 & & PSYA250 CM UWB+STKEND INDICATE CWB < ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS f P CW A8,ENDADD+STKEND P RF(E) SYA270 ALL T:A'S DONE ( P CALL T:DADD GET T:D ADDRESS TO A12 P P*
0x385b38…385ccc Dummy {f00=0x0126, f01=0x018e, f02=»ESS x ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST * P LDR A3,A1 GET NUMBER OF START-POINTS 8 P ADR A3,A12 ADD T:D-ADDRESS f P LDR* A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY P ADK A3,2 'NUMBER-WO
0x385ccc…385e60 Dummy {f00=0x0126, f01=0x0190, f02=» * P ST A2,T:DAD,A1 STORE NEW T:D ADDRESS " P LD A7,CWBMSK,A12 GET CWBMASK 2 P XIF X P IFT MMUPAG=1 d ( P* INITIATE MM-ADDRESS TABLE POINTER z P ( P LD A1,SHADOW,A10 SHADOW TABLE START * P AD* A1,SHADOW,A10 ADDRESS TABLE START P
0x385e60…385ff4 (1, 986) Dummy {f00=0x0126, f01=0x0190, f02=»KEND " P RF(E) SYA270 ALL T:A'S DONE! " P CALL GETTAB GET TTAB-ADDRESS 2 P CALL MOVMMT MOVE MM-TABLE X " P* FILL MM-TABLE ADDRESS TABLE z P P LD A1,SAVE02+STKEND & P ADK A1,2 INCREMENT TABLE POINTER P ST A1,SAVE02+STKEND RESTO
0x385ff4…386188 Dummy {f00=0x0126, f01=0x0190, f02=» P P* CALCULATE LENGTH OF T:D P . 2 P EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB 6 P ADK A1,2 l P ANKL A1,/FFFE EVEN ADDRESS ~ ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST , P LDR A3,A1 GET NUMB. OF START-POINTS... P ADR A3,A1
0x386188…38631c Dummy {f00=0x0126, f01=0x0190, f02=»RD' | P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS ( P CALL CALLMO MOVE T:D H P ELR A1,A8 GET T:A ADDRESS f * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS " P EL A7,CWBMSK,A12 GET CWBMASK P XIF P P CALL MOVCLA P EJE
0x38631c…3864b0 Dummy {f00=0x0126, f01=0x0190, f02=»NG n P IFT MMUPAG=0 " P LD A7,UWBMSK,A12 GET UWBMASK P XIF F P IFT MMUPAG=1 R P EL A7,UWBMSK,A12 h P XIF P CALL MOVCLA P EJECT P P " P* MOVE DT:S OF SWB'S & TWB'S * " P**************************
0x3864b0…386644 Dummy {f00=0x0126, f01=0x0190, f02=»A265 LD A7,TWBMSK,A12 P XIF P IFT MMUPAG=1 * P EL A7,SWBMSK,A12 @ P RF(Z) SYA265 NONE Z P CALL SKRITT t PSYA265 EL A7,TWBMSK,A12 P XIF P RB(Z) SYA250 P CALL SKRITT P RB SYA250 P PSYA270 RF PR
0x386644…3867d8 Dummy {f00=0x0126, f01=0x018e, f02=» ** r 4 P** MOVE D.T ** 4 P** ** R 4 P*********************************************** PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14
0x3867d8…38696c Dummy {f00=0x0126, f01=0x0190, f02=» P RB NO P EJECT P $ & P* BUILD TASKDATA PROTOTYPE AREA * 0 & P********************************* Z PPRODAT EQU * 4 P IM SWITCH+STKEND INDICATE: -NO MORE D.T. MOVE! $ P LD A8,T:ATOD,A10 T:ATAB ADDRESS PSYA280 ADKL A8,2
0x38696c…386b00 Dummy {f00=0x0126, f01=0x0190, f02=»DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P F " P* CALCULATE LENGTH OF DSCB'S * R " P*** *** x P P LDR* A1,A8 GET T:A-ADDRESS & P LD A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DS
0x386b00…386c94 (1, 987) Dummy {f00=0x0126, f01=0x0190, f02=» P ADKL A2,T:ASTA ( P AD A4,DATTAB,A12 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S H , P ADR A3,A2 A3=LENGTH OF DSCB'S AND DAT'S j ( P LD A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGT
0x386c94…386e28 Dummy {f00=0x0126, f01=0x0190, f02=»TACK SIZE | $ P ST A2,CSE,A1 AND SAVE TEMPORARY 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE : ( P LD A2,APLLAC,A2 GET START OF P:MTAB v P LD A2,P:BAS,A2 GET P:BAS P ST A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P
0x386e28…386fbc Dummy {f00=0x0126, f01=0x0190, f02=»TAB-ADDRESS v , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P D 2 P* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE L P ( P TL MMBEG,A2 LOAD CLASS LOCAL TABLE * P LDKL A3,MMTAB GET WORK TABLE ADDRESS P ADR A3,A13 $ P TSR A3 STORE TA
0x386fbc…387150 Dummy {f00=0x0126, f01=0x0190, f02=»L TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * 0 " P*** *** V P | P ELR A1,A8 GET T:A-ADDRESS & P EL A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X
0x387150…3872e4 Dummy {f00=0x0126, f01=0x0190, f02=»LACEMENT v P ADR A4,A1 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S 4 , P ADR A3,A2 A3=LENGTH OF DSCB'S AND DAT'S V ( P EL A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T
0x3872e4…387478 Dummy {f00=0x0126, f01=0x0190, f02=»S A2,CSE,A1 AND SAVE (TEMPORARY) 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE ( ( P LD A2,APLLAC,A2 GET START OF P:MTAB d ( P TL* MMTO+STKCOM LOAD CORRECT TABLE P EL A2,P:BAS,A2 GET P:BAS ( P TL* MMFROM+STKCOM RELOAD DDIV TABLE
0x387478…38760c Dummy {f00=0x0126, f01=0x0190, f02=»AB l P XIF P RB SYA280 NEXT P EJECT . PSYA290 EQU * < 6 P IM FLAG+STKEND INDICATE REAL DATA-PART PROCESSING P P* P* INCLUDE DDIV IN FREE AREA P* P LD A1,DDIVST+STKEND P IFT MMUPAG=1 P LDR A2,A1 P A
0x38760c…3877a0 Dummy {f00=0x0126, f01=0x0190, f02=»A2,/FFF P ST A2,FSTADR+STKCOM P XIF , P IFT MMUPAG=0 8 P ST A1,DATEND+STKCOM N P XIF j P* MOVE T:ATAB v P . P LD A2,T:ATNW,A10 GET REAL T:A-TAB ADDRESS P IFT MMUPAG=0 P LDR* A1,A2 REAL LENGTH $ P ADR A2,A1 E
0x3877a0…387934 (1, 988) Dummy {f00=0x0127, f01=0x0190, f02=» SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE P CALL MOVE < P XIF N P IFT MMUPAG=1 Z ( P TL* MMTO+STKCOM LOAD CORRECT TABLE p & P ELR A1,A2 GET REAL T:ATAB LENGTH $ P TL* MMFROM+STKCOM RELOAD TABLE P ADR A2,A1 END ADDRESS
0x387934…387ac8 Dummy {f00=0x0127, f01=0x0190, f02=» P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE " P CALL XMOVE @ P XIF T P ` P EJECT h P v P ~ 4 P************************************************ 4 P*** *** 4 P** SYSL
0x387ac8…387c5c Dummy {f00=0x0127, f01=0x0190, f02=»****** f P 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE * N 4 P* * 4 P************************************************ P PPART2B EQU
0x387c5c…387df0 Dummy {f00=0x0127, f01=0x0190, f02=» f * P LD A7,T:ATNW,A10 REAL T:ATAB ADDRESS P ADK A7,2 6 P ST A8,SAVE01+STKEND SAVE A8 H * PSYA310 LD A8,SAVE01+STKEND RESTORE A8 l P ADKL A8,2 P CW A8,ENDADD+STKEND ALL? P RF(E) SYA350 YES! P ST A8,SAVE01+STKEND SAVE $
0x387df0…387f84 Dummy {f00=0x0127, f01=0x0190, f02=»TASK FLAG ~ : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) " P LD A1,SCTOPT GET OPTION WORD P P ANK A1,2 DISC PAGING? v P RF(Z) SYA320 NO! P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST
0x387f84…388118 Dummy {f00=0x0127, f01=0x0190, f02=»DR* A6,A5 GET NUMBER OF COPIES P EJECT & PSYA340 SUK A6,1 4 P RF(P) SYA345 NEXT TASK L 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS l P RB SYA310 NEXT TASK-CLASS * PSYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS P CALL MOVT:A MOVE T:A
0x388118…3882ac Dummy {f00=0x0127, f01=0x0190, f02=»ORRESPONDING TTAB AND QUEUE ~ P IMR A4 SET QUEUE TASK FLAG $ 0 P ST A3,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB H " P LD A1,SCTOPT GET OPTION WORD | P ANK A1,2 DISC PAGING? P RF(Z) SYA348 NO! P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1,CSB
0x3882ac…388440 Dummy {f00=0x0127, f01=0x0190, f02=»BSWB MOVE TWB'S AND RESERVE FOR SWB'S " P CALL ALLBUF ALLOCATE BUFFERS . P XIF T P IFT MMUPAG=1 ` * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD v P P LDR A1,A5 . P AD* A1,SHADOW,A10 ADD SHADOW-TABLE LENGTH $ P LDR* A1,A1 GET MM-TABLE
0x388440…3885d4 (1, 989) Dummy {f00=0x0127, f01=0x0190, f02=»EUE TASK FLAG : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) P LDR A1,A3 GET T:A-ADDRESS T 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE v " P ST A1,TTB:CB,A2 STORE IN TTAB 0 P LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY * P LDK
0x3885d4…388768 Dummy {f00=0x0127, f01=0x0190, f02=»BLE l P P SUK A2,2 START OF TABLE P LDKL A12,/FC00 4 PSYA320 SUK A1,2 NEXT ENTRY L P CWR A1,A2 ALL? n P RF(E) SYA330 YES! P STR A12,A1 REMOVE ENTRY P RB SYA320 PSYA330 EQU * P ELR A1,A8 GET T:A ADDRESS $ P
0x388768…3888fc Dummy {f00=0x0127, f01=0x0190, f02=»REAL T:ATAB x $ P LDR* A6,A5 GET NUMBER OF COPIES PSYA340 SUK A6,1 < P RF(P) SYA345 NEXT TASK T 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS t P RB SYA310 NEXT TASK-CLASS PSYA345 ADK A1,1 NEXT T:A ID ( P CALL GETTTB FIND CORRES
0x3888fc…388a90 Dummy {f00=0x0127, f01=0x0190, f02=»A7 STORE IN REAL T:ATAB @ P ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS P LDR A8,A2 GET T:A-ADDRESS d 0 P ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A8,TTB:CB,A9 STORE IN TTAB " P LDR A8,A7 CHANGE T:A TO COPY , P A
0x388a90…388c24 Dummy {f00=0x0127, f01=0x018e, f02=»STKCOM GET TO-TABLE 2 P ST A1,MMFROM+STKCOM CHANGE T:A ADDRESS-TABLE P TLR A1 R " P CALL ALLBUF ALLOCATE BUFFERS b ( P LD A1,TTAB+STKCOM GET TTAB-ADDRESS * P CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB $ P ELR A3,A8 GET T:A-ADDRESS (NEW)
0x388c24…388db8 Dummy {f00=0x0127, f01=0x018e, f02=» ( P* SCAN TCTAB FOR TASKS TO BE QUEUED P* 4 , PSYA350 LD* A9,SCTTCT GET LENGTH OF TCTAB > $ P AD A9,SCTTCT ADD START OF TCTAB n ( PSYA355 SUKL A9,2 NEXT ENTRY IN TCTAB & P CW A9,SCTTCT ALL ENTRIES SCANNED? P RF(E) SYA360 YES P L
0x388db8…388f4c Dummy {f00=0x0127, f01=0x018e, f02=» ~ $ P STR A5,A9 RESET QUEUE TASK FLAG ( P LD A12,TTB:SA+26,A5 GET T:A ADDRESS 0 , P LD A2,APCBLK+STKEND GET ADDRESS TO ACB ( P LD A2,APLLAC,A2 GET P:MTAB ADDRESS P IFT MMUPAG=1 & P TL TTB:MT,A5 LOAD TASKS MMU TABLE P EL A12,T:DAD,A1
0x388f4c…3890e0 Dummy {f00=0x0127, f01=0x0190, f02=» 0 P LD A2,NTPA,A2 GET INTERPRETER START ADDRESS P XIF 8 P CALL QUEJOB QUEUE TASK D P RB SYA355 d P EJECT v PSYA360 EQU * P ADKL A10,TABLEN NEXT TABLEN P CM SWITCH+STKEND P CM FLAG+STKEND P LD A1,PDDIV+STKEND GET FL
0x3890e0…389274 (1, 990) Dummy {f00=0x0127, f01=0x0190, f02=» f P ST A1,SCTEFA+2 SAVE P XIF $ P IFT MMUPAG=1 0 6 P LD A1,FYSPAG+STKCOM GET LAST PHYSICAL PAGE NUMBER F P ST A1,SAEFA1+STKEND STORE * P LD A1,LSTADR+STKCOM GET LAST ADDRESS P ANKL A1,/FFF GET OFFSET P ST A1,SAEFA2+STKEND STO
0x389274…389408 Dummy {f00=0x0127, f01=0x0190, f02=»,FYSPAG+STKCOM GET LAST PHYSICAL PAGE P SLL A2,2 . P ORR A1,A2 @ P ST A1,SCTEFA+2 R P LD A1,FYSPAG+STKCOM j P SRL A1,14 P ST A1,SCTEFA P XIF PSYA370 EQU * P LDKL A1,SYA200 P AD A1,M:REL+STKCOM & P ABR A
0x389408…38959c Dummy {f00=0x0127, f01=0x0190, f02=»N TO ALL PARTS IN THIS PROGRAM * z < P******************************************************* * P EJECT j 2 P** C A L L M O ** x 2 P** ** 2 P** CHECK IF MORE SPACE IN PDDIV ARE
0x38959c…389730 Dummy {f00=0x0127, f01=0x0190, f02=» PDDIV = IF "1" INDICATE THAT ** 2 P** MORE SPACE IN PDDIV ** , 2 P** PDDIVL = LENGTH OF PDDIV AND ** b 2 P** S:GTAB ** 2 P** OUTPUT: PDDIVL AND LSTADR IS UPDATED ** 2 P**
0x389730…3898c4 Dummy {f00=0x0127, f01=0x0190, f02=» ** p 2 P** SUBROUTINES: MOVING ** 2 P** ** L 2 P********************************************* P* PCALLMO EQU * 2 P LD A2,PDDIV+STKEND MORE SPACE IN PDDIV AREA?
0x3898c4…389a58 Dummy {f00=0x0127, f01=0x0190, f02=»PAG=0 , P LD A2,SCTEFA+2 N0! GET END OF FREE AREA , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS > P XIF n P IFT MMUPAG=1 z P LD A2,SAEFA2+STKEND , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS P LD A2,SAEFA1+STKEND 4 P ST A2,FYSPAG+ST
0x389a58…389bec Dummy {f00=0x0127, f01=0x0190, f02=»DDIVL v PCALL:10 EQU * P CALL MOVING $ P RTN A14 8 P EJECT H P V 4 P** G E T W B ** b 4 P** ** 4 P** ** 4
0x389bec…389d80 Dummy {f00=0x0127, f01=0x0190, f02=» ** z 4 P** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** " 4 P** BIT=BIT NUMBER SAT IN MASK (0-15)** Z 4 P** OUTPUT: A4=W.B. DISPLACEMENT IN T:A ** 4 P** TADISP=A4 ** 4 P**
0x389d80…389f14 (1, 991) Dummy {f00=0x0127, f01=0x0190, f02=»***************** r P PGETWB EQU * & $ P LD A4,BIT+STKEND GET BIT NUMBER : $ P SLL A4,2 ADJUST FOR ADDRESSING b P ADK A4,WATFST+2 * P ST A4,TADISP+STKEND SAVE DISPLACEMENT P IFT MMUPAG=0 P LDR* A11,A8 GET T:A-ADDRESS
0x389f14…38a0a8 Dummy {f00=0x0127, f01=0x0190, f02=» 2 P LD A11,FLAG+STKEND REAL TASK-DATA PROCESSING? P RF(Z) GETW10 NO! > " P TL* MMTO+STKCOM LOAD TO-TABLE X & PGETW10 ELR A11,A8 GET T:A-ADDRESS ~ P ADR A11,A4 ADD DISPLACEMENT P ST A11,WBADD+STKEND SAVE " P ELR A11,A11 GET W.B.-ADDR
0x38a0a8…38a23c Dummy {f00=0x0127, f01=0x018e, f02=» M O V W B ** 8 P** ** . 8 P** ** j 8 P** MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED ** 8 P**
0x38a23c…38a3d0 Dummy {f00=0x0127, f01=0x0190, f02=» Z 8 P** WORK-REGS: A1-A4 ** 8 P**************************************************** D P PMOVWB EQU * P LDR A1,A11 GET ADDRESS P ADKL A1,WBLEN FROM-ADDRESS P IFT MMUPAG=0 P LDR* A3,A1 LE
0x38a3d0…38a564 Dummy {f00=0x0127, f01=0x0190, f02=» MOVE b P XIF P IFT MMUPAG=1 P ELR A3,A1 LENGTH 0 P CALL CALLMO J 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT ^ 2 P LD A4,FLAG+STKEND REAL DATA-PART PROCESSING? P RF(Z) MOVW10 NO! " P TL* MMTO+STKCOM LOAD TO-TABLE
0x38a564…38a6f8 Dummy {f00=0x0127, f01=0x0190, f02=» P EJECT P P " : P** M O V D T ** . : P** ** l : P** ** : P** MOVE DISCRIPTOR TABLE. D.T.-
0x38a6f8…38a88c Dummy {f00=0x0127, f01=0x0190, f02=»:A ** d : P** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** : P** WORK REGS: A1-A4 ** P : P***************************************************** P PMOVDT EQU * : P LD A1,WBADD+STKEND GET POIN
0x38a88c…38aa20 Dummy {f00=0x0127, f01=0x018e, f02=»A1,DTLEN ADJUST FOR LENGTH WORD " P AD A1,MOVADD+STKEND RELOCATE ( P LDR* A3,A1 LENGTH N P CALL CALLMO h P LD A3,WBADD+STKEND | P SUKL A2,DTLEN P SUKL A1,DTLEN 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS P XIF P
0x38aa20…38abb4 (1, 992) Dummy {f00=0x0128, f01=0x0190, f02=» P ELR A3,A1 LENGTH P CALL CALLMO P LD A3,WBADD+STKEND 2 P SUKL A2,DTLEN N P SUKL A1,DTLEN d 4 P ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS z P XIF P RTN A14 P EJECT P < P** M O V D W
0x38abb4…38ad48 Dummy {f00=0x0128, f01=0x0190, f02=» ** h < P** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. ** < P** AND UPDATE ADDRESSES (W.B. & D.T.) ** X < P** ** < P** INPUT : A12=T:D-ADDRESS
0x38ad48…38aedc Dummy {f00=0x0128, f01=0x0190, f02=» X < P** WORK.REGS: A1-A4 ** < P******************************************************** H P PMOVDWB EQU * " P ST A10,SAVE07+STKEND SAVE A10 P ST A6,SAVE05+STKEND SAVE A6 P LDK A6,0 * PMOVD
0x38aedc…38b070 Dummy {f00=0x0128, f01=0x018e, f02=» P IFT MMUPAG=1 P EL A2,WATLEN,A12 P XIF 4 " P SUR A2,A6 ACTUAL TABLE LENGTH @ P ADR A6,A12 A6=TABLE POINTER f " PMOVD20 ADK A6,1 A6=TABLE INDEX P SUK A2,1 ALL? P RF(N) MOVD60 YES! P IFT MMUPAG=0 " P CC A4,DWBFST,A6 S
0x38b070…38b204 Dummy {f00=0x0128, f01=0x0190, f02=» P RF(N) MOVD30 RIGHT! P ANKL A10,/FF00 P ECR A10,A10 8 P RF MOVD40 L PMOVD30 ANKL A10,/FF ^ " PMOVD40 SLC A6,1 ADJUST POINTER z P CWR A4,A10 SHARED W.B.? P XIF P RB(NE) MOVD20 NO! P* DWB FOUND * , P NGR A4,A2 C
0x38b204…38b398 Dummy {f00=0x0128, f01=0x0190, f02=» ~ P ADR A4,A10 P XIF P LDR A6,A4 SAVE TABLE INDEX ( P SUK A4,1 L P SLL A4,2 ^ P ADK A4,WATFST+2 p . P LD A3,NEWAD2+STKEND GET NEW W.B.-ADDRESS P IFT MMUPAG=0 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A " P S
0x38b398…38b52c Dummy {f00=0x0128, f01=0x0190, f02=»0 NO! " P TL* MMTO+STKCOM LOAD TO-TABLE PMOVD50 EQU * 4 . P ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A H P ADR A4,A10 z " P ESR A3,A4 CHANGE W.B.-ADDRESS ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE P XIF P ST A4,WBADD+STKEND 0 P
0x38b52c…38b6c0 Dummy {f00=0x0128, f01=0x018e, f02=»VE D.T. P RB MOVD10 PMOVD60 EQU * " $ P LD A6,SAVE05+STKEND RESTORE A6 6 & P LD A10,SAVE07+STKEND RESTORE A10 ^ P RTN A14 P EJECT P P 4 P** T W B S W B ** 4 P**
0x38b6c0…38b854 (1, 993) Dummy {f00=0x0128, f01=0x018e, f02=» ^ 4 P** INPUT : A8=ACTUAL T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS ** @ 4 P** WORK-REGS: A1-A4, A11 ** x 4 P************************************************ P PTWBSWB EQU * P ST
0x38b854…38b9e8 Dummy {f00=0x0128, f01=0x0190, f02=» P CALL SHIFT " PTWSW10 RF(Z) TWSW20 ALL DONE! P CALL GETWB B P CALL MOVWB V , P ST A2,NEWAD2+STKEND SAVE NEW WB-ADDRESS j & P CALL MOVDWB CHANGE DWB-ADDRESSES P CALL SKIFTA P RB TWSW10 PTWSW20 EQU * P IFT SWPBL
0x38b9e8…38bb7c Dummy {f00=0x0128, f01=0x0190, f02=»FT SWPBLK-MMUPAG=1 P LD A7,SWBMSK,A12 P XIF 4 P IFT MMUPAG+SWPBLK=2 @ P EL A7,SWBMSK,A12 P XIF v P IFT SWPBLK=1 P CALL SHIFT PTWSW30 RF(Z) TARZAN ALL DONE P CALL GETWB P CALL MOVWB RESERVE SPACE * P S
0x38bb7c…38bd10 Dummy {f00=0x0128, f01=0x0190, f02=» P XIF $ P LD A7,SAVE04+STKEND RESTORE A7 P RTN A14 < P EJECT L P Z P b 4 P** A L L B U F ** j 4 P** ** 4 P** ALLOCATE FIXED DATA SET BUFFERS AND
0x38bd10…38bea4 Dummy {f00=0x0128, f01=0x018e, f02=»=ACTUAL T:A-ADDRESS IN T:ATAB ** 4 P** A12=T:D-ADDRESS ** * 4 P** CSN (IN T:A)=LENGTH OF DSCB'S ** b 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** 4 P** CSE (IN T:A)=STACKSIZE ** 4
0x38bea4…38c038 Dummy {f00=0x0128, f01=0x0190, f02=» P IFT MMUPAG=0 2 P LD A9,FSTADR+STKCOM GET BUFFER START ADDRESS P LDR* A1,A8 GET T:A-ADDRESS T ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH x P RF(Z) ALLB70 NO DSCB'S 2 P AD A1,DATTAB,A12 CALC. START OF DSCB RECORDS " P LDR A11,A1 SA
0x38c038…38c1cc Dummy {f00=0x0128, f01=0x0190, f02=» RF(Z) ALLB70 NO DSCB * P EL A11,DATTAB,A12 GET DISPL. TO DAT'S P ADR A1,A11 START OF DAT'S L " P LDR A11,A1 SAVE START ADDRESS n P XIF P SUR A3,A1 P NGR A3,A3 P SUK A3,DSCBL END CONDITION < P ST A3,SAVE04+STKEND SAVE ADDRES
0x38c1cc…38c360 Dummy {f00=0x0128, f01=0x0190, f02=»LLB70 YES! P IFT MMUPAG=0 : P LD A3,BL,A1 GET LENGTH OF THE REQUESTED BUFFER.ZERO? ( P RB(Z) ALLB10 YES! f * P LD A2,SB,A1 GET INDEX.SHARED BUFFER? P RF(Z) NOTSH NO! P LDK A3,DSCBL LENGTH OF DSCB " P CALL MULT A2*A3 RESULT IN A3
0x38c360…38c4f4 (1, 994) Dummy {f00=0x0128, f01=0x0190, f02=»TORE IN CURRENT DSCB P XIF P IFT MMUPAG=1 ( 0 P EL A3,BL,A1 GET LENGTH OF REQ.BUFFER.ZERO? > P RB(Z) ALLB10 YES! r * P EL A2,SB,A1 GET INDEX.SHARED BUFFER? P RF(Z) NOTSH NO! P LDK A3,DSCBL LENGTH OF DSCB " P CALL MULT A2*A3 R
0x38c4f4…38c688 Dummy {f00=0x0128, f01=0x0190, f02=»S A4,BP,A1 STORE IN CURRENT DSCB P XIF ( P RB ALLB10 4 P F P IFT MMUPAG=0 N : PNOTSH ADK A3,2 ONE EXTRA WORD USED BY THE INTERPRETER d P LDR A9,A9 PAGING? P RF(NZ) NOTS10 NO! , P CALL CALLMO ALLOCATE BUFFER FROM BOTTOM & P A
0x38c688…38c81c Dummy {f00=0x0128, f01=0x0190, f02=»9,A9 , P SUR A9,A2 MAX LENGTH OF REM. MEM. AREA P LDR A4,A11 SAVE REGISTER < P LDR A11,A3 LENGTH OF BUFFER ^ P CALL CMPADR ENOUGTH MEMORY? P RF(G) ALLB50 NO! ( P LDR A9,A2 GET START OF MEMORY AREA ( P ADR A9,A3 ALLOCATE BUFFER F
0x38c81c…38c9b0 Dummy {f00=0x0128, f01=0x0190, f02=»RT r P CALL CMPADR P RF(NL) ALLB60 OK! PALLB50 LDKL A1,LMP3 8 P CALL ERROR T PALLB60 EQU * h P LDR A11,A4 RESTORE REGISTER | & P ADK A2,2 BUFFER MASK AT DISPL. -2 & P ST A2,BP,A1 STORE BUFFER POINTER 0 P ST A9,FSTADR+STKCOM
0x38c9b0…38cb44 Dummy {f00=0x0128, f01=0x0190, f02=»XTRA WORD USED BY THE INTERPRETER | . P CALL CALLMO ALLOCATE BUFFER FROM 'BOTTOM' * & P ADK A2,2 BUFFER MASK AT DISPL. -2 & P ES A2,BP,A1 STORE BUFFER ADDRESS P XIF P RB ALLB10 P , P* RESERVE STACK AND SET STACKPOINTERS *
0x38cb44…38ccd8 Dummy {f00=0x0128, f01=0x018e, f02=»80 $ P LDK A3,STKSZ DEFAULT STACKSIZE PALLB80 EQU * 2 , P ST A3,STKB,A1 STORE ACTUAL STACK SIZE F P CALL CALLMO ALLOCATE STACK v P ST A2,STKE,A1 SET STACK-END " P LD A3,STKB,A1 GET STACK SIZE " P ADR A2,A3 COMPUTE STACK BASE "
0x38ccd8…38ce6c Dummy {f00=0x0128, f01=0x0190, f02=» P IFT MMUPAG=1 P ELR A1,A8 GET T:A-ADDRESS P EL A3,CSE,A1 GET STACK SIZE < * P RF(NZ) ALLB80 USER DEFINED STACK SIZE ` $ P LDK A3,STKSZ DEFAULT STACK SIZE ( PALLB80 ES A3,STKB,A1 SAVE STACK SIZE P CALL CALLMO ALLOCATE STACK " P E
0x38ce6c…38d000 Dummy {f00=0x0128, f01=0x0190, f02=»T WORD x $ P ES A2,STKB,A1 STORE STACK BASE * P ESR A2,A1 STORE CURRENT STACK POINTER 6 P XIF d P RTN A14 p P EJECT P 4 P** M O V T : A ** 4 P** ** 4 P**
0x38d000…38d194 (1, 995) Dummy {f00=0x0128, f01=0x0190, f02=» ** v 4 P** INPUT : A8=T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS ** V 4 P** CIA (IN T:A)=DISL. TO T:A-START ** 4 P** OUTPUT: A2=NEW T:A-ADDRESS ** 4 P** WORKRE
0x38d194…38d328 Dummy {f00=0x0128, f01=0x0190, f02=»0,SAVE07+STKEND SAVE A10 P IFT MMUPAG=0 P LDR* A1,A8 GET T:A-ADDRESS 6 ( P LD A3,WATLEN,A12 GET LENGTH OF WAT Z P SLL A3,2 BYTES , P SU A3,CIA,A1 ADD DISPLACEMENT TO START P ADK A3,WATFST A3=LENGTH P AD A1,CIA,A1 FROM-ADDRESS
0x38d328…38d4bc Dummy {f00=0x0128, f01=0x018e, f02=»COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * P : P LD A3,FCD,A12 ANY FCD? B P RF(Z) MOVT10 NO! b P ADR A3,A2 START OF FCB | P LDR A4,A2 SAVE T:A-ADDRESS 2 P LD A10,FLAG+STKEND REAL TASK DATA PROCESSING? P RF(Z) MOVT05 NO!
0x38d4bc…38d650 Dummy {f00=0x0128, f01=0x0190, f02=» | P ADS A4,FCBDD3,A3 P ADS A4,FCBDD4,A3 " , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10 < P RTN A14 l P XIF | P IFT MMUPAG=1 P P ELR A1,A8 GET T:A-ADDRESS ( P EL A3,WATLEN,A12 GET LENGTH OF WAT P SLL A3,2 BYTES
0x38d650…38d7e4 Dummy {f00=0x0128, f01=0x0190, f02=»0,SAVE07+STKEND RESTORE A10 P CALL CALLMO $ P ELR A4,A8 8 P EL A10,CIA,A4 J P SUR A2,A10 NEW T:A-ADDRESS ` " P SUR A1,A10 'OLD' T:A-ADDRESS 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * P P EL A3,FCD,A12 ANY FCD?
0x38d7e4…38d978 Dummy {f00=0x0128, f01=0x018e, f02=»! 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) PMOVT05 EQU * F P ADR A3,A2 START OF FCB Z " P TL* MMTO+STKCOM LOAD TO-TABLE z P EL A10,FCBDD1,A3 P ADR A10,A4 P ES A10,FCBDD1,A3 P EL A10,FCBDD2,A3 P ADR A
0x38d978…38db0c Dummy {f00=0x0128, f01=0x0190, f02=» P ADR A10,A4 P ES A10,FCBDD4,A3 ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE 2 , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10 ^ P RTN A14 P XIF P EJECT D P*************************************************************** D P*
0x38db0c…38dca0 Dummy {f00=0x0128, f01=0x0190, f02=»* ===================================== * D P* * H D P* REFERENCED IN: MOVCOM * D P*
0x38dca0…38de34 (1, 996) Dummy {f00=0x0129, f01=0x0190, f02=» * h D P* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * D P* * h D P* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * D P* IN T:A
0x38de34…38dfc8 Dummy {f00=0x0129, f01=0x0190, f02=»REGISTERS: A1,A2 * D P* * @ D P* SUBROUTINES: * D P*
0x38dfc8…38e15c Dummy {f00=0x0129, f01=0x0190, f02=» SET BIT 0 8 P LD A2,BIT+STKEND GET BIT NUMBER IN CWB- OR UWB-MASK " PIBAM10 RF(Z) IBAM20 BIT FOUND N & P SRL A1,1 SHIFT BIT RIGHT ONE STEP t $ P SUK A2,1 DECREMENT BIT COUNTER P RB IBAM10 P* & P* UPDATE MOVED MASK IN FIRST T:A
0x38e15c…38e2f0 Dummy {f00=0x0129, f01=0x0190, f02=»E CURRENT BLOCK MOVED ~ * P STR A3,A2 STORE NEW MOVED BLOCK MASK P* L & P* UPDATE MOVED MASK IN SECOND T:A V P* P LDR* A2,A6 GET T:A POINTER $ P LDR* A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P S
0x38e2f0…38e484 Dummy {f00=0x0129, f01=0x0190, f02=»ED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED BLOCK MASK F P* t & P* UPDATE MOVED MASK IN SECOND T:A ~ P* P ELR A2,A6 GET T:A POINTER $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 I
0x38e484…38e618 Dummy {f00=0x0129, f01=0x0190, f02=»******************************************************************* J P* * L J P* CHKMVD - CHECK IF BLOCK ALREADY MOVED * J P* ================
0x38e618…38e7ac Dummy {f00=0x0129, f01=0x0190, f02=»D IN: MOVCOM,MOVCLA * J P* * B J P* ENTRY: A8 - POINTER TO T:A * J P* BIT - BIT NUMBER IN CWB- OR UWB-
0x38e7ac…38e940 Dummy {f00=0x0129, f01=0x0190, f02=»EADY MOVED THEN CR=2 ELSE CR<>2 * z J P* * 8 J P* WORK REGISTER: A1,A2 * J P*
0x38e940…38ead4 (1, 997) Dummy {f00=0x0129, f01=0x0190, f02=» * p J P********************************************************************* . P EJECT | PCHKMVD EQU * P IFT MMUPAG=0 P LDR* A1,A8 GET T:A POINTER $ P LDR* A1,A1 GET MOVED BLOCK MASK P XIF
0x38ead4…38ec68 Dummy {f00=0x0129, f01=0x0190, f02=»END GET BIT SET IN CWB- OR UWB-MASK 6 PCHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND , * P SLL A1,1 NEXT BIT IN MOVED BLOCK MASK f $ P SUK A2,1 DECREMENT BIT COUNTER P RB CHKM10 PCHKM20 ADK A1,0 SET CR * P CFI A14,PSW,A13 PUT CONDITI
0x38ec68…38edfc Dummy {f00=0x0129, f01=0x0190, f02=» ** : P** S H I F T & SKIFTA ** < : P** ** z : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** : P** INPUT : A7=MAS
0x38edfc…38ef90 Dummy {f00=0x0129, f01=0x0190, f02=»PSW ON RETURN ** r : P****************************************************** P ^ PSHIFT EQU * j $ P CM BIT+STKEND RESET BIT COUNTER ~ P LDR A7,A7 P RF SHIF20 & PSKIFTA EQU * ENTRY: CONTINUE SHIFT PSHIF10 IM BIT+STKEND
0x38ef90…38f124 Dummy {f00=0x0129, f01=0x0190, f02=»OND IN PSW t P RTN A14 P EJECT " @ P************************************************************ 0 @ P* * t @ P* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB * B P*
0x38f124…38f2b8 Dummy {f00=0x0129, f01=0x0190, f02=» * @ P* * : @ P* REFERENCED IN: SYSLDA PART 2 B. * ~ @ P* * @ P*
0x38f2b8…38f44c Dummy {f00=0x0129, f01=0x018e, f02=» * @ P* EXIT: * B @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8 *
0x38f44c…38f5e0 Dummy {f00=0x0129, f01=0x0190, f02=» R @ P* * @ P************************************************************ L PCHTAID EQU * 2 P LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES " PCHT:10
0x38f5e0…38f774 (1, 998) Dummy {f00=0x0129, f01=0x0190, f02=»T:A p $ P LD A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB 4 * P LD A4,TTBTID,A2 GET REAL TID IN TTAB f 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS ( P ST A4,T:ATID,A3 REPLACE TCL IN T:A & P LDR A3,A8 GET
0x38f774…38f908 Dummy {f00=0x0129, f01=0x0190, f02=»IF P IFT MMUPAG=1 & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A J . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB r ( P LDR A3,A2 GET POINTER TO TTAB ENTRY 2 P ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB P T
0x38f908…38fa9c Dummy {f00=0x0129, f01=0x018e, f02=»:ATID,A3 REPLACE TCL IN T:A *79-04-11* 0 P EL* A3,T:ATNW,A10 GET LENGTH OF REAL T:ATAB . $ P NGR A3,A3 NEGATIVE DISPLACEMENT b . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 8 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* P XIF & P CM
0x38fa9c…38fc30 Dummy {f00=0x0129, f01=0x0190, f02=» j P RB(P) CHT:20 NEXT COPY PCHT:90 RTN A14 ( P > 4 P** T : D A D D ** J 4 P** ** 4 P** ** 4 P** GET T:D - ADDRESS
0x38fc30…38fdc4 Dummy {f00=0x0129, f01=0x018e, f02=»** b 4 P** OUTPUT: A12=T:D ADDRESS ** 4 P************************************************ B PT:DADD EQU * z P IFT MMUPAG=0 P LDR* A12,A8 T:A ADDRESS P LD A12,T:DAD,A12 P XIF P IFT MMUPAG=1 P ELR A12
0x38fdc4…38ff58 Dummy {f00=0x0129, f01=0x0190, f02=» P 6 P** M O V C O M ** 6 P** ** N 6 P** ** 6 P** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** 6 P** ARE COMM
0x38ff58…3900ec Dummy {f00=0x0129, f01=0x018e, f02=» ** p 6 P** INPUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, SAT IN MASK ** T 6 P** ENDADD=ENDADDRESS OF T:ATAB ** 6 P** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** 6 P** WO
0x3900ec…390280 Dummy {f00=0x0129, f01=0x0190, f02=» & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YES! 2 : P CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL L , P ST A11,SAVE06+STKEND SAVE W.B.-ADDRESS * P CM MOVED+STKEND CLEAR MOVED INDICATOR P LDR A6,A8 PMOVC10 ADK A6,
0x390280…390414 (1, 999) Dummy {f00=0x0129, f01=0x0190, f02=»30 LDR* A11,A6 P LD A2,T:DAD,A11 T:D-ADDRESS " P AD A2,MOVADD+STKEND RELOCATE : P ST A2,SAVE03+STKEND SAVE ` , P LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT+STKEND ENOUGHT? 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A
0x390414…3905a8 Dummy {f00=0x0129, f01=0x018e, f02=»IF P IFT MMUPAG=1 PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS : " P AD A2,MOVADD+STKEND RELOCATE ^ 4 P ST A2,SAVE03+STKEND SAVE T:D-ADDRESS TEMPORARY , P EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT+STKEND ENOUGHT?
0x3905a8…39073c Dummy {f00=0x0129, f01=0x0190, f02=» 0 P CW A11,SAVE06+STKEND COMPARE W.B.-ADDRESSES P XIF 8 P RB(NE) MOVC10 .NEQ. D , P LD A9,MOVED+STKEND W.B. ALREADY MOVED? ` . P RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY & P CALL MOVDT MOVE DESCRIPTOR-TABLE * P ST A2,NEWAD1+STKEND SAVE D.
0x39073c…3908d0 Dummy {f00=0x0129, f01=0x0190, f02=» MOVC40 NO! " P CALL GETPRO CREATE REAL UWB'S 8 PMOVC40 ST A2,NEWAD2+STKEND SAVE NEW ADDRESS TO W.B. : P CALL MOVDWB v & PMOVC50 CALL CHADR CHANGE ADDRESSES . P CALL ICBMVD INDICATE CURRENT BLOCK MOVED P LDR A11,A8 SAVE T:A-POINTER *
0x3908d0…390a64 Dummy {f00=0x0129, f01=0x0190, f02=» P CALL MOVDWB P LDR A8,A11 , P LD A12,SAVE04+STKEND RELOAD T:D-ADDRESS , P RB MOVC10 P EJECT n P | P 4 P** G E T P R O ** 4 P** ** 4 P**
0x390a64…390bf8 Dummy {f00=0x0129, f01=0x0190, f02=» ** t 4 P** ** 4 P** INPUT : A11=PROTOTYPE ADDRESS ** T 4 P** A2=LAST W.B. - ADDRESS ** 4 P** OUTPUT: A2=NEW ADDRESS ** 4 P** WORK-REG
0x390bf8…390d8c Dummy {f00=0x0129, f01=0x018e, f02=»A3,U:BTOD,A10 GET U:BTAB ADDRESS P IFT MMUPAG=0 ( P LDR* A4,A3 LENGTH > PGETP10 EQU * X 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH l P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! P CALL ERROR PGETP20 EQU * P
0x390d8c…390f20 Dummy {f00=0x0129, f01=0x0190, f02=» 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * < P p PGETP30 EQU * x P LD A4,WBLEN,A11 W.B.-LENGTH * P LC A5,UPNUMB,A3 GET NUMBER OF COPIES P ANK A5,/FF , P SU A3,U:BTOD,A10 GET
0x390f20…3910b4 (1, 1000) Dummy {f00=0x012a, f01=0x0190, f02=»A5,URNUMB,A9 STORE IN REAL U:BTAB 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * * 0 P******************************************** ^ . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 PGETP40 CALL MOVWB P SUK A5,1 P R
0x3910b4…391248 Dummy {f00=0x012a, f01=0x018e, f02=» ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB P XIF : P IFT MMUPAG=1 F P ELR A4,A3 LENGTH PGETP10 EQU * v 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! P CALL ERRO
0x391248…3913dc Dummy {f00=0x012a, f01=0x018e, f02=» f P ADK A3,UP:REC NEXT P RB GETP10 $ P 6 0 P* GET NUMBER OF COPIES * B 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * v 0 P******************************************** P PGETP30 EQU * P EL A4,WBLEN,A
0x3913dc…391570 Dummy {f00=0x012a, f01=0x0190, f02=» . P AD A3,U:BTNW,A10 ADD TO NEW TABLE ADDRESS P LDR A9,A3 6 " P TL* MMTO+STKCOM LOAD TO-TABLE H * P ES A5,URNUMB,A9 ESORE IN REAL U:BTAB n " P ES A4,URLENG,A9 STORE LENGTH ( P TL* MMFROM+STKCOM RELOAD FROM TABLE 0 P* COPY NUMBER OF WORKBLOCK
0x391570…391704 Dummy {f00=0x012a, f01=0x0190, f02=»GETP50 PGETP40 CALL MOVWB P SUK A5,1 ( P RB(NZ) GETP40 : P P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* PGETP50 EQU * P TL* MMTO+STKCOM 6 P ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U
0x391704…391898 Dummy {f00=0x012a, f01=0x0190, f02=» ** f 2 P** ** 2 P** ** B 2 P** CHECKS IF W.B. ALREADY MOVED TO COMMON ** x 2 P** AREA. IF NOT MOVE W.B. & D.T. AND ** 2 P** CHECK IF ANY DWB'S
0x391898…391a2c Dummy {f00=0x012a, f01=0x0190, f02=»*********************************** P , PMOVCLA EQU * 4 P CALL SHIFT H P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRESS TO A11 r & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(NN) MVCL40 NO! , PMVCL20 CALL SKIFTA GET NEXT BIT IN M
0x391a2c…391bc0 Dummy {f00=0x012a, f01=0x0190, f02=» P RF(Z) MVCL50 NO! P CALL GETPRO DUPLICATE WB'S 0 PMVCL50 ST A2,NEWAD2+STKEND SAVE W.B.-ADDRESS B P CALL MOVDWB PROCESS DWB'S v P RB MVCL20 P EJECT P P 6 P** C H A D R ** 6
0x391bc0…391d54 (1, 1001) Dummy {f00=0x016f, f01=0x0190, f02=» TO W.B. & D.T. IN T:A, ** ~ 6 P** BLOCKS ALREDY MOVED ** ( 6 P** ** b 6 P** INPUT : A6=POINTER IN T:ATAB TO T:A ** 6 P** NEWADR1=NEW D.T.-ADDRESS **
0x391d54…391ee8 Dummy {f00=0x016f, f01=0x0190, f02=»S: A1,A2 ** 6 P************************************************* . P h PCHADR EQU * t P IFT MMUPAG=0 P LDR* A1,A6 T:A-ADDRESS 2 P AD A1,TADISP+STKEND ADDRESS TO W.B.-ADDRESS P LD A2,NEWAD2+STKEND
0x391ee8…39207c Dummy {f00=0x016f, f01=0x0190, f02=»G=1 P ELR A1,A6 T:A-ADDRESS 2 P AD A1,TADISP+STKEND ADDRESS TO W.B.-ADDRESS * P LD A2,NEWAD2+STKEND ` P ESR A2,A1 | & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1+STKEND P ESR A2,A1 P XIF P RTN A14 P IFT S
0x39207c…392210 Dummy {f00=0x016f, f01=0x0190, f02=» * l B P* * " B P* B:RSWT - BUILD REAL SWB CONTROL TABLE * h B P* ===================================== * B P*
0x392210…3923a4 Dummy {f00=0x016f, f01=0x0190, f02=» * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB * 6 B P* A5 - LENGTH OF REAL S:BTAB * | B P* * B P
0x3923a4…392538 Dummy {f00=0x016f, f01=0x0190, f02=» B P* WORK REGISTERS: A1-A7 * B P* * J B P* SUBROUTINES: * B P*
0x392538…3926cc Dummy {f00=0x016f, f01=0x0190, f02=»AVE POINTER TO FIRST BLOCK 8 P LD A1,APCBLK+STKEND GET START OF APL.CONTROL TABLE " 0 P LD A1,APLSWB,A1 POINTER TO SWB BLOCK TABLE ^ * P RF(Z) RSWBEX NO SWB:S IN APPLICATION P LDR* A3,A1 NUMBER OF TYPES P RF(Z) RSWBEX NO MOORE P LDK A
0x3926cc…392860 Dummy {f00=0x016f, f01=0x0190, f02=» COPIES | $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P XIF 8 P IFT MMUPAG+SWPBLK=2 D & P ES A6,2,A2 STORE NUMBER OF COPIES ` , P ES A7,4,A2 STORE LENGTH OF SWB IN BYTES P XIF P IFT SWPBLK-MMUPAG=1 & P ST A6,2,A2 STORE NUMBER OF COPIES
0x392860…3929f4 (1, 1002) Dummy {f00=0x016f, f01=0x0190, f02=»6 INCREMENT POINTER IN BLOCK ( P SUK A3,1 DECREMENT NUMBER OF TYPES $ P RB(P) RSWB10 P P LDR A4,A2 f P* x 4 P* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE ( P* AND RESET ALL WORDS IN TID BLOCKS P* PRSWB20 EQU * ( P LDR
0x3929f4…392b88 Dummy {f00=0x016f, f01=0x018e, f02=» t P RF(Z) RSWB50 NO COPIES! * P STR A6,A8 STORE POINTER TO TID BLOCK ( PRSWB30 STR A3,A2 RESET TID V , P ADK A2,2 INCREMENT POINTER IN TID BLOCK x . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB $ P SUK A1,1 DECR. NUMBER OF COPIES P RB(P)
0x392b88…392d1c Dummy {f00=0x016f, f01=0x0190, f02=» * P ESR A6,A8 STORE POINTER TO TID BLOCK PRSWB40 ESR A3,A2 RESET TID 2 , P ADK A2,2 INCREMENT POINTER IN TID BLOCK T . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY P XIF
0x392d1c…392eb0 Dummy {f00=0x016f, f01=0x4098, f02=» RSWBEX YES P LDKL A1,LMP6 SWB ERROR! P CALL ERROR 4 PRSWBEX RTN A14 H P XIF ^ PLCREND EQU * j P ~ P END @ LENGTH OF REAL S:BTAB ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY P XIF
0x392eb0…393044 Dummy {f00=0x016f, f01=0x2008, f02=» -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x393044…3931d8 Dummy {f00=0x016f, f01=0x0190, f02=» EFCFCA Z G T Z O W . O N 8A:a P N W O ^ O dT G " Z F C N V G G T N X G < O T N T S 0QB? R O R 8A:a T V N T= R U W N T O T_N N T S 0U G W
0x3931d8…39336c Dummy {f00=0x016f, f01=0x0190, f02=» F ? F @ F B F ? T O pW O p . G T@ V F F O F F . B B O n n F =P O p EFCTUS F 91 T C & T & & T 0 G T O q T O N T " " P` V O n F W N n G O NT
0x39336c…393500 Dummy {f00=0x016f, f01=0x0190, f02=» f >EFCILE F G G #T C T G $ G TD G T G Q W G Q & 0 G T F " O 8A:a 8A:a P, 8A:a n 8A:a P n O _$ 6 o W 6 G " O }P O }T< 2
0x393500…393694 (1, 1003) Opaque[0x194]
0x393694…393828 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17d8, f03=0x0000}
0x393694…393828 IdxSect {
0x393694…393828 f00 = 0x00be // 0x393694 @0x0
0x393694…393828 f01 = 0x0070 // 0x393696 @0x2
0x393694…393828 gno = [ // 0x393698 @0x4
0x393694…393828 [0x00]: C0x00be.0x3.0
0x393694…393828 [0x01]: C0x00bf.0x0.0
0x393694…393828 [0x02]: C0x00bf.0x1.0
0x393694…393828 [0x03]: C0x00bf.0x2.0
0x393694…393828 [0x04]: C0x00bf.0x3.0
0x393694…393828 [0x05]: C0x00c0.0x0.0
0x393694…393828 [0x06]: C0x00c0.0x1.0
0x393694…393828 [0x07]: C0x00c0.0x2.0
0x393694…393828 [0x08]: C0x00c0.0x3.0
0x393694…393828 [0x09]: C0x00c1.0x0.0
0x393694…393828 [0x0a]: C0x00c1.0x1.0
0x393694…393828 [0x0b]: C0x00c1.0x2.0
0x393694…393828 [0x0c]: C0x00c1.0x3.0
0x393694…393828 [0x0d]: C0x00c2.0x0.0
0x393694…393828 [0x0e]: C0x00c2.0x1.0
0x393694…393828 [0x0f]: C0x00c2.0x2.0
0x393694…393828 [0x10]: C0x00c2.0x3.0
0x393694…393828 [0x11]: C0x00c3.0x0.0
0x393694…393828 [0x12]: C0x00c3.0x1.0
0x393694…393828 [0x13]: C0x00c3.0x2.0
0x393694…393828 [0x14]: C0x00c3.0x3.0
0x393694…393828 [0x15]: C0x00c4.0x0.0
0x393694…393828 [0x16]: C0x00c4.0x1.0
0x393694…393828 [0x17]: C0x00c4.0x2.0
0x393694…393828 [0x18]: C0x00c4.0x3.0
0x393694…393828 [0x19]: C0x00c5.0x0.0
0x393694…393828 [0x1a]: C0x00c5.0x1.0
0x393694…393828 [0x1b]: C0x00c5.0x2.0
0x393694…393828 [0x1c]: C0x00c5.0x3.0
0x393694…393828 [0x1d]: C0x00c6.0x0.0
0x393694…393828 [0x1e]: C0x00c6.0x1.0
0x393694…393828 [0x1f]: C0x00c6.0x2.0
0x393694…393828 [0x20]: C0x00c6.0x3.0
0x393694…393828 [0x21]: C0x00c7.0x0.0
0x393694…393828 [0x22]: C0x00c7.0x1.0
0x393694…393828 [0x23]: C0x00c7.0x2.0
0x393694…393828 [0x24]: C0x00c7.0x3.0
0x393694…393828 [0x25]: C0x00c8.0x0.0
0x393694…393828 [0x26]: C0x00c8.0x1.0
0x393694…393828 [0x27]: C0x016b.0x0.0
0x393694…393828 [0x28]: C0x016b.0x1.0
0x393694…393828 [0x29]: C0x016b.0x2.0
0x393694…393828 [0x2a]: C0x016b.0x3.0
0x393694…393828 [0x2b]: C0x016c.0x0.0
0x393694…393828 [0x2c]: C0x016c.0x1.0
0x393694…393828 [0x2d]: C0x016c.0x2.0
0x393694…393828 [0x2e]: C0x016c.0x3.0
0x393694…393828 [0x2f]: C0x016d.0x0.0
0x393694…393828 [0x30]: C0x016d.0x1.0
0x393694…393828 [0x31]: C0x016d.0x2.0
0x393694…393828 [0x32]: C0x016d.0x3.0
0x393694…393828 [0x33]: C0x016e.0x0.0
0x393694…393828 [0x34]: C0x016e.0x1.0
0x393694…393828 [0x35]: C0x016e.0x2.0
0x393694…393828 [0x36]: C0x016e.0x3.0
0x393694…393828 [0x37]: C0x016f.0x0.0
0x393694…393828 ]
0x393694…393828 }
0x393828…3939bc Dummy {f00=0x00be, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 11.0 81-08-19 870105041100 P : $ P =10,CORRECTION =9 NOT CORRECT B P REL 11.0 81-07-28 j 0 P =9,FOR MONITOR EXTENTS APLREL AND APLLAC * P =9,POINTS AT 1 WORD TO HIGH ADDRESS * P =8,BUILD REAL-TIME INTERRUPT
0x3939bc…393b50 Dummy {f00=0x00be, f01=0x0190, f02=»RUPT TABLE x P REL 11.0 81-02-16 2 P =6,INIT UNUSED MMU ENTRIES,AND INIT ACBSTA . ( P AND ACBREL FOR MONITOR EXTENTS d P REL 11.0 81-01-26 . P =5,CHANGES IN CONDITIONAL ASSEMBLY WHEN ( P BUILDING COMMON DEVICE TABLES
0x393b50…393ce4 Dummy {f00=0x00be, f01=0x0190, f02=» PRR 11.0 80-12-03 0 P =3,APPLICATION CONTROL BLOCK IS EXTENDED P WITH 1 WORD R P PRR 11.0 80-12-01 l , P =2,IF NO S-BLOCK IN CONF.DATA,PROCESS , P EVEN NEXT CREDIT APPL. CONVERT A $ P BINARY VALUE >99 TO ASCII
0x393ce4…393e78 Dummy {f00=0x00be, f01=0x0190, f02=» WHEN BUILDING r P USER TASK TABLES P PRR 11.0 80-11-20 4 8 P =1,IF NO D-BLOCK IN CONF. DATA, SKIP DCT-CREATION T P PRR 11.0 80-11-19 P ENTRY SYSLDM P* 0 P* EXTERNALS DEFINED IN SYSTEM CONTROL TABLE P*
0x393e78…39400c Dummy {f00=0x00be, f01=0x0190, f02=»XTRN SCTCDT COMMON DEVICE TABLE ADDRESS $ P EXTRN SCTDCT DATA COMMUNICATION 0 . P EXTRN SCTDMI DM: INDEX BUFFER RECORD SIZE X ( P EXTRN SCTDMT DATA MANAGEMENT TASKS " P EXTRN SCTEFA END OF FREE AREA , P EXTRN SCTFWL FM: FILE WORK TABLE LENGTH
0x39400c…3941a0 Dummy {f00=0x00be, f01=0x018e, f02=»NT&SEGMENT TABLE v . P EXTRN SCTNFT DM/FM: NUMBER OF FILES/TASK ( P EXTRN SCTNOF DM/FM: NUMBER OF FILES J " P EXTRN SCTNOP NUMBER OF PAGES v 6 P EXTRN SCTNOS NUMBER OF SEGMENTS/TASK (BASIC ONLY) P EXTRN SCTOPT SYSTEM OPTIONS $ P EXTRN SCTPAG
0x3941a0…394334 (1, 1004) Dummy {f00=0x00bf, f01=0x018e, f02=» n $ P EXTRN SCTTCT TASK CONTROL TABLE P EJECT 0 P* > " P* EXTERNALS DEFINED IN MONTAB H P* n * P EXTRN FREQUE FREE PAGES QUEUE ANCHOR x " P EXTRN INTLT1 LOCAL CONNECTION $ P EXTRN INTRT1 REMOTE CONNECTION " P EXTRN INTVU1 VIDEO
0x394334…3944c8 Dummy {f00=0x00bf, f01=0x0190, f02=» h ( P EXTRN INTSL1 SYNCHRONOUS CONNECTION P* 4 P* MISCELLANOEUS EXTERNALS > P* ` ( P EXTRN REL RELOCATION BASE IN SYSINI j , P EXTRN SCLASS SPECIAL DEVICE CLASS TABLE . P EXTRN TCLASS TERMINAL DEVICE CLASS TABLE " P EXTRN SYSLOD ST
0x3944c8…39465c Dummy {f00=0x00bf, f01=0x0190, f02=»OUTINES P* P EXTRN ERROR ERROR HANDLING $ P EXTRN MOVE MOVE AREAS IN MEMORY > P EXTRN MULT MULTIPLY f ( P EXTRN PSW STORE PROGRAM STATUS WORD $ P EXTRN CMPADR COMPARE ADDRESSES . P EXTRN CONVRT CONVERT FROM ASCII TO BINARY * P
0x39465c…3947f0 Dummy {f00=0x00bf, f01=0x0190, f02=»RN INBIMA INIT MMU ALLOCATION BIT MAP . P EXTRN PUSH SAVE REGISTER A1-A14 ON STACK . 2 P EXTRN POB RESTORE REGISTER A1-A14 FROM STACK ` 8 P EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE P EJECT P* P* TTAB DISPLACEMENTS P
0x3947f0…394984 Dummy {f00=0x00bf, f01=0x0190, f02=»XTRN TTB:CB CURRENT SEGMENT BASE POINTER ( P EXTRN TTB:SP SEGMENT TABLE POINTER 0 ( P EXTRN TTB:SB SEGMENT BLOCK POINTER P EXTRN TTB:ID TASK ID P EXTRN TTB:ST STATUS " P EXTRN TTB:PP PENDING POINTER & P EXTRN TTB:PW PROGRAM STATUS WOR
0x394984…394b18 Dummy {f00=0x00bf, f01=0x018e, f02=»XTRN DWTCHP CHANNEL PARAMETER-1 P EXTRN DWTST STATUS ( P EXTRN DWTECB ECB ADDRESS D P EXTRN DWTOR ORDER f P EXTRN DWTADR ADDRESS BLOCK P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EXTRN DWTTQ TERMINA
0x394b18…394cac Dummy {f00=0x00bf, f01=0x0190, f02=» P EXTRN DWTDEV DEVICE STATUS P EXTRN DWTECH ECHO DEVICE ( P EXTRN DWTSQ START OF QUEUE J P EJECT n P | P , P*************************************** , P* CONDITIONAL ASSEMBLY * , P****************************
0x394cac…394e40 Dummy {f00=0x00bf, f01=0x0190, f02=»LE WORK BLOCK HANDLING x * PEDM EQU 0 1 - EXTENDED DATA MANAGEMENT PX:A EQU 1 L PX:B EQU 1 ^ PX:C EQU 1 p PX:D EQU 1 PX:E EQU 1 PX:F EQU 1 PX:G EQU 1 PX:H EQU 1 PX:I EQU 1 PX:J EQU 1 PX:K EQU
0x394e40…394fd4 (1, 1005) Dummy {f00=0x00bf, f01=0x0190, f02=» PFT80 EQU X:E PPLCL EQU X:F PPLCR EQU X:G , PVIDEO EQU X:H @ PTEDVCL EQU X:I V PSPDVCL EQU X:J l PNOEXMB EQU X:K PFM EQU X:L PDC EQU X:M P EJECT P* * P* COMMON DISPLACEMENTS AND CONSTANTS P*
0x394fd4…395168 Dummy {f00=0x00bf, f01=0x0190, f02=»ER r ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA 6 , PCONSTA EQU 2 START OF CONFIGURATION DATA h ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG
0x395168…3952fc Dummy {f00=0x00bf, f01=0x0190, f02=»RT ` ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA 6 ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA d $ PM:REL EQU 16 RELOCATION CONSTANT , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-FILE START ADDR
0x3952fc…395490 Dummy {f00=0x00bf, f01=0x0190, f02=»N SAVE AREA 1 ~ $ PCOM02 EQU 42 COMMON SAVE AREA 2 $ PCOM03 EQU 44 COMMON SAVE AREA 3 > * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS f , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 START OF DC CON
0x395490…395624 Dummy {f00=0x00bf, f01=0x0190, f02=»QU 2 ADDRESS TO SCLASS & PCUTENT EQU 4 FIRST USER TASK ENTRY ( PFWTSIZ EQU 6 FWT AREA SIZE IN WORDS H , PAPCTAB EQU 8 CURRENT APPL CONTROL BLOCK t * PSFASAV EQU 10 SAVE START OF FREE AREA * PNBRTSK EQU 12 NUMBER OF TASKS IN CLASS & PTASKID E
0x395624…3957b8 Dummy {f00=0x00bf, f01=0x0190, f02=»QU 22 TEMP INTTERRUPT TABLE $ PFWTSTA EQU 24 START OF FWT AREA $ , PLIMIT EQU 26 CURRENT END OF SYSTEM AREA L ( PNBRCOM EQU 28 NUMBER OF COMMON TDC:S | PCLASID EQU 30 CLASS ID " PCONTYP EQU 32 CONNECTION TYPE ( PLCNBR EQU 34 LINE CONNECTION
0x3957b8…39594c Dummy {f00=0x00bf, f01=0x0190, f02=»K2 EQU 44 WORK AREA 2 PWRK3 EQU 46 WORK AREA 3 PWRK4 EQU 48 WORK AREA 4 > " PBRDTAB EQU 50 BOARD CONF TABLE ^ , PLCDSTA EQU 52 CONFIGURATION DATA POINTER 2 PNBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES 4 PNBRTDC EQU 56 NUMBER OF TERMIN
0x39594c…395ae0 Dummy {f00=0x00bf, f01=0x0190, f02=»R t * PNUMDTE EQU 64 NUMBER OF DTE:S DEFINED & PDTENAM EQU 66 SDTE IDENTIFICATION 8 $ PDTETYP EQU 68 TYPE OF CONNECTION b 4 PNASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA * PNALNG EQU 72 LENGTH OF NETWORK ADDRESS , PDTENSA EQU 74 NO OF SUBA
0x395ae0…395c74 (1, 1006) Dummy {f00=0x00bf, f01=0x0190, f02=»QU APCTAB CURRENT APPLICATION CONTROL BLOCK 4 PSCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK 4 2 PEXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK l , PNBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS . PSWBBLK EQU FWTFLG START OF SWB CONF. DATA * PSWBN
0x395c74…395e08 Dummy {f00=0x00bf, f01=0x0190, f02=» TASKID NUMBER OF SWB:S P EJECT P* . 0 P* DISPLACEMENT IN APPLICATION CONTROL TABLE 8 P* l 0 PAPLREL EQU 18 APPLICATION RELOCATION BASE =6 v , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS * PAPLLAC EQU 14 APPLICATION LOAD ADDRESS & P
0x395e08…395f9c Dummy {f00=0x00bf, f01=0x018e, f02=»LMMP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT * . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU " PAPLSWB EQU 2 SWB TABLE ADDRESS , PAPLSTA EQU 16 APPL PROGRAM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE 8
0x395f9c…396130 Dummy {f00=0x00bf, f01=0x0190, f02=» P* P* CONSTANTS P* " * PS:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS , PSWBLEN EQU 4 LENGTH OF SWB Z ( PSWBSEC EQU 6 DISPL. TO SECTOR LENGTH | 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME $ PWBLEN EQ
0x396130…3962c4 Dummy {f00=0x00bf, f01=0x0190, f02=» $ P******************************* P , P* TASK DEFINITION BLOCK: 8 PTDBBT EQU 0 1A BLOCK TYPE X ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS z , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTD
0x3962c4…396458 Dummy {f00=0x00bf, f01=0x018e, f02=»ERM DEF v $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 7 LINE CONNECTION 8 ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH Z P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON DEVICE DEF. BLOCK: P* PCDBBT EQU 0 1A BLO
0x396458…3965ec Dummy {f00=0x00bf, f01=0x0190, f02=» & P* USER WORK BLOCK TYPE DEF. BLOCK P* . PUDBBT EQU 0 1A BLOCK TYPE 8 , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES Z P* ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUD
0x3965ec…396780 Dummy {f00=0x00bf, f01=0x018e, f02=»ER OFFSET z & PTYPOFS EQU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. < " PNAOFS EQU 3 START OF NA NUMBER l $ PNSAOFS EQU 4 START OF NSA RECORD & PDTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P****************
0x396780…396914 (1, 1007) Dummy {f00=0x00bf, f01=0x0190, f02=» PLMP2 EQU /200 NOT USED " PLMP3 EQU /100 MEMORY OVERFLOW " , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA H PLMP5 EQU /40 NOT USED x PLMP6 EQU /20 NOT USED PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED
0x396914…396aa8 Dummy {f00=0x00bf, f01=0x0190, f02=» N F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * R F P* * F P**********************************
0x396aa8…396c3c Dummy {f00=0x00bf, f01=0x018e, f02=»TAB DISPLACEMENTS P* $ PMXSBL EQU 6 SEGMENT BLOCK LENGTH $ " PMXNOX EQU 6 NUMBER OF EXTENTS L * PMX:NOS EQU 8 NUMBER OF SEGMENT TABLES r , PMX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH ( PMX:LEV EQU /0031 MONITOR TASK LEVEL & PMX:LEN EQU 4
0x396c3c…396dd0 Dummy {f00=0x00bf, f01=0x0190, f02=» Z 2 PMX:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS ! , PMX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH ! > . PMX:STA EQU 2 MONITOR EXTENT START ADDRESS ! n P EJECT ! P* ! " P* *********** ! " P* * PAGTAB * ! " P*
0x396dd0…396f64 Dummy {f00=0x00bf, f01=0x0190, f02=»U 4 PAGE ADDRESS ! & PPAGSB EQU 6 SEGMENT BLOCK ADDRESS " P EJECT " B P* " P & P* ************* " Z & P* * SEGTAB * " & P* ************* " P* " PSEGPB EQU 6 SEGMENT POINTER " " PSE
0x396f64…3970f8 Dummy {f00=0x00bf, f01=0x0190, f02=»ISCELLANOUES * " z * P* ******************* # P* # F PBUFLEN EQU -4 # P PDEVIND EQU -2 # f PDWTLEN EQU 6 # | PTDCDD1 EQU 5 # PTDCDD2 EQU 6 # ( PTDCLCN EQU 10 DISP. TO LINE CON. NBR # $ PSLL0 EQU /3940 SLL A1,0 CONSTANT #
0x3970f8…39728c Dummy {f00=0x00bf, f01=0x0190, f02=» : P* * $ : P* * $ B : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * $ : P* * $ : P* IT IS EN
0x39728c…397420 Dummy {f00=0x00bf, f01=0x0190, f02=» * $ x : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDX * % & : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * % d : P* * % : P*
0x397420…3975b4 (1, 1008) Dummy {f00=0x00c0, f01=0x0190, f02=» , P LDKL A1,REL+2 RELOCATION ROUTINE ENTRY & ( P AD A1,STKCOM+M:REL RELOCATE ADDRESS & 4 P CFR A8,A1 & ` $ P LDKL A11,SYSLOD START OF SYSLOD & r * P LDKL A2,TCLASS GET ADDRESS TO TCLASS & . P CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? & $ P RF(E) NO:TCL
0x3975b4…397748 Dummy {f00=0x00c0, f01=0x0190, f02=»:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS & , P CALL CHPTRS RELOCATE POINTERS IN SCLASS ' 2 0 P ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS ' b P RF CLEAR ' P EJECT ' 4 P*********************************************** ' 4 P* CHPTRS - CHANGE POINTER
0x397748…3978dc Dummy {f00=0x00c0, f01=0x018e, f02=» ' h ( P* A11 - SYSLOD START ADDRESS ( ( P* A12 - RELOCATION CONSTANT ( 4 P* ( ` 2 P* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS ( j P* ( P* WORK REGISTER:A1-A7 ( P* ( P* SUBROUTINES: ( P* ( PCHPTRS EQU * ( P
0x3978dc…397a70 Dummy {f00=0x00c0, f01=0x0190, f02=» PCHPT10 EQU * ) . P SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? ) P RF(Z) CHPT30 NO! ) J P ADK A3,2 NEXT ENTRY ) d $ P LDR* A5,A3 GET POINTER TO CLASS ) P ADR A5,A12 RELOCATE ) P STR A5,A3 STORE ) $ P LDR* A6,A5 GET LENGTH OF CLASS ) PCHPT
0x397a70…397c04 Dummy {f00=0x00c0, f01=0x0190, f02=»T-ADDRESS ) ~ P LDR A9,A7 GET DWT-ADDRESS * " P CALL CMPADR COMPARE ADDRESSES * 4 P RB(G) CHPT20 DWT IN DRIVER! * Z P ADR A7,A12 RELOCATE * ~ * P STR A7,A5 STORE RELOCATED DW-ADDRESS * " P LD A8,SCTOPT GET OPTION WORD * P ANKL A8,1 MMU IN SYSTEM?
0x397c04…397d98 Dummy {f00=0x00c0, f01=0x0190, f02=»DDRESS ALREADY RELOCATED? * P RB(NZ) CHPT20 YES! + " P ADR A8,A12 RELOCATE + > . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED + Z , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS + P RB CHPT20 + PCHPT30 EQU * + P RTN A14 + P EJECT + PCLEAR EQ
0x397d98…397f2c Dummy {f00=0x00c0, f01=0x0190, f02=»RSYS EQU * + P SUK A1,2 , P CMR A1 , $ P CWR A1,A2 , 4 P RB(NE) CLRSYS , F P LDKL A1,CONMON , P AD A1,STKCOM+M:REL , t P ABR A1 , P EJECT , 6 P************************************************** , 6 P* B:TCT - BUILD TASK CONTROL TA
0x397f2c…3980c0 Dummy {f00=0x00c0, f01=0x0190, f02=»* , P* ENTRY: - P* - P* EXIT: - & P* - 6 & P* WORK REGISTERS: A1-A7,A11,A12 - @ P* - j P* SUBROUTINES: - t P* - . P* TASK CONTROL TABLE LAYOUT - . P* _________________________ - . P*
0x3980c0…398254 (1, 1009) Dummy {f00=0x00c0, f01=0x0190, f02=»* _________________________ - . P* I USER TASKS I . 2 . P* __________________________ . d P* . P EJECT . PB:TCT EQU * . * P LD A12,SCTSFA GET START OF FREE AREA . * P ST A12,SCTTCT STORE ADD
0x398254…3983e8 Dummy {f00=0x00c0, f01=0x0190, f02=»TENT . f P* AND MONITOR SEGMENT TASKS / P* / 0 ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB / : P RF(Z) BTCT20 NOT PRESENT! / f . P CALL MX:TDB GET FIRST MONITOR EXTENT TDB / 0 PBTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS / P RF(N) BTCT05 NO MORE! /
0x3983e8…39857c Dummy {f00=0x00c0, f01=0x0190, f02=»N) BTCT02 NO MORE! / P LDR* A2,A1 GET TASK ID 0 ( P CALL RESTCT RESERVE ENTRY IN TCTAB 0 : P RB BTCT04 0 f 4 PBTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB 0 x > PBTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES 0 P RF(N) BTCT20 NO MORE!
0x39857c…398710 Dummy {f00=0x00c0, f01=0x0190, f02=» RB(N) BTCT06 NO MORE 0 P LDR* A2,A1 GET TASK ID 1 $ P CALL RESTCT RESERVE ENTRY TCTAB 1 > P RB BTCT08 1 f P XIF 1 x P EJECT 1 P* 1 . P* RESERVE ENTRIES IN TCTAB FOR USER TASKS 1 P* 1 PBTCT20 EQU * 1 6 P ST A12,STKEND+CUTENT SAVE C
0x398710…3988a4 Dummy {f00=0x00c0, f01=0x018e, f02=»BTCT30 SUK A7,1 MORE APPLICATIONS? 1 P RF(N) BTCT70 NO! 2 * 6 P LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA 2 D * P AD A11,STKCOM+CONSTA RELOCATE POINTER 2 ~ 2 P ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY 2 P LCR A2,A11 GET BLOCK TYPE 2 ( P CCK
0x3988a4…398a38 Dummy {f00=0x00c0, f01=0x018e, f02=» PBTCT35 EQU * 3 P* 3 0 P* COMPUTE NUMBER OF TASK IN EACH TASK CLASS 3 " P* 3 V PBTCT40 EQU * 3 ` $ P CALL GETTSK GET NUMBER OF TASKS 3 t PBTCT50 EQU * 3 . P ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB 3 ( P SUK A1,1 MOORE TASKS IN THIS CLASS? 3
0x398a38…398bcc Dummy {f00=0x00c0, f01=0x0190, f02=» 3 | PBTCT60 EQU * 4 , P ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK 4 P RB BTCT30 4 L P* 4 ^ 4 P* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB 4 h P* 4 0 PBTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA 4 " P SU A12,SCTTCT COMPUTE LENGTH 4 P ST*
0x398bcc…398d60 Dummy {f00=0x00c0, f01=0x0190, f02=»* * 4 : P* RESTCT - RESERVE ENTRY IN TCTAB * 5 > : P* =============================== * 5 | : P* * 5 : P* REFERENCED IN
0x398d60…398ef4 (1, 1010) Dummy {f00=0x00c0, f01=0x018e, f02=» ID * 5 t : P* A12 - NEXT FREE ENTRY IN TCTAB * 6 " : P* * 6 ` : P* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * 6 : P*
0x398ef4…399088 Dummy {f00=0x00c0, f01=0x0190, f02=» 6 X : P* SUBROUTINES: * 7 : P* * 7 F : P***************************************************** 7 PRESTCT EQU * 7 P LDR A3,A12 GET END OF TCTAB 7 PREST10 SUK A3,
0x399088…39921c Dummy {f00=0x00c0, f01=0x0190, f02=»DKL A12,2 NEXT FREEE ENTRY IN TCTAB 7 PREST20 RTN A14 RETURN 8 , , PREST30 CWR* A2,A3 CHECK IF SAME TASK ID 8 J P RB(NE) REST10 NOT THE SAME 8 z " P RB REST20 COINCIDENCE: RETURN 8 P XIF 8 P IFF FM=0 8 P EJECT 8 8 P************************
0x39921c…3993b0 Dummy {f00=0x00c0, f01=0x0190, f02=» * 8 h 8 P* ============================= * 9 8 P* * 9 P 8 P*************************************************** 9 8 P* * 9 8 P* R
0x3993b0…399544 Dummy {f00=0x00c0, f01=0x0190, f02=»NUMBER OF FM-FILES PER TASK * 9 | 8 P* SCTNOF - NUMBER OF GENERAL FM-FILES * : ( 8 P* SCTFWL - FILE WORK TABLE LENGTH IN * : d 8 P* BYTES * : 8 P*
0x399544…3996d8 Dummy {f00=0x00c0, f01=0x0190, f02=»* * : 8 P* WORK REGISTERS: A2,A3 * ; < 8 P* * ; x 8 P* SUBROUTINES: ERROR,MULT * ; 8 P*
0x3996d8…39986c Dummy {f00=0x00c0, f01=0x0190, f02=»FOR * ; h 8 P* FILE WORK TABLES. * < 8 P* SIZE OF THE AREA RESERVED IS GIVEN BY THE * < P 8 P* FORMULA: A=L*(G+N*T) * < 8 P* WHERE A=AREA SIZE IN BYTES * < 8 P*
0x39986c…399a00 Dummy {f00=0x00c0, f01=0x0190, f02=»R OF FM-FILES PER TASK * < | 8 P* N=NUMBER OF USER TASKS * = ( 8 P* * = d 8 P*************************************************** = P EJECT = PB:FWT EQU * = & P LD* A2,SC
0x399a00…399b94 (1, 1011) Dummy {f00=0x00c0, f01=0x0190, f02=»ER OF USER TASKS = 2 P LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK > P CALL MULT MULTIPLY > N 0 P AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES > j 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES > , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH > P CALL
0x399b94…399d28 Dummy {f00=0x00c0, f01=0x0190, f02=»,STKEND+FWTSIZ SAVE FWT AREA SIZE IN WORDS > ( P LD A2,SCTSFA GET START OF FREE AREA ? 2 , P ST A2,SCTFWT STORE ADDRESS TO FIRST FWT ? ^ 0 P ST A2,STKEND+FWTSTA SAVE START OF FWT AREA ? 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA ? . PFWT50 CW A2,STKEND
0x399d28…399ebc Dummy {f00=0x00c0, f01=0x0190, f02=»R A2 CLEAR FWT AREA ? " P ADK A2,2 RESERVE ANOTHER WORD @ $ P SUK A3,1 DECREMENT WORD COUNTER @ B * P RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW @ j , P ST A2,SCTSFA UPDATE START OF FREE AREA @ P SUK A2,2 @ 0 P ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. @
0x399ebc…39a050 Dummy {f00=0x00c0, f01=0x0190, f02=» * @ l * P************************************** A P* A 8 ( P* NUMBER OF BLOCKS TO BE GENERATED: A B ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) A n $ P* WHERE N IS A SYSTEM CONSTANT A $ P* DEFINED AT SYSTEM GENERATION A P* A P* A P* REFEREN
0x39a050…39a1e4 Dummy {f00=0x00c0, f01=0x018e, f02=»XIT: BLOCKS - POINTER TO FIRST BLOCK A P* B . $ P* WORK REGISTERS: A1,A2,A7,A12 B 8 P* B ` P* SUBROUTINES: BLKGEN B j P* B P EJECT B PMONBLK EQU * B P LDK A1,0 B & P LD A12,SCTSFA START OF FREE AREA B . P ST A12,FREQUE SAVE PO
0x39a1e4…39a378 Dummy {f00=0x00c0, f01=0x0190, f02=» B 0 P* GET NUMBER OF BLOCKS PER TASK TO GENERATE C P* C < P LD A2,SCTBLK C F 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA C PMON:10 EQU * C P SUK A7,2 MOORE TASKS? C P RF(Z) MON:20 NO C P CALL BLKGEN C P RB MON:10 C PMON:20
0x39a378…39a50c Dummy {f00=0x00c0, f01=0x0190, f02=» AD A2,SCTNOF C P CALL BLKGEN D P* D * P* GENERATE END BLOCK D 4 P* D R P STR A1,A12 D P ST A1,2,A12 D p P ST A1,4,A12 D P* D F P* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A D 0 P* IF NOT - USE LAST MONITOR
0x39a50c…39a6a0 Dummy {f00=0x00c0, f01=0x0190, f02=» P LDK A1,4 BUFFER SIZE E 0 P ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE E " P ADKL A12,2 E V 0 P ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS E j PMON:30 EQU * E P ADKL A12,6 E P E * P ST A12,SCTSFA UPDATE END OF FREE AREA E P RTN A14 E
0x39a6a0…39a834 (1, 1012) Dummy {f00=0x00c1, f01=0x018e, f02=»*********** E v P* F P* REFERENCED IN: MONBLK F P* F @ P* ENTRY: A1=0 F J 4 P* A2 - NUMBER OF BLOCKS TO BE GENERATED F b $ P* A12 - NEXT FREE ENTRY F P* F P* EXIT: A1=0 F " P* A12 - NEXT FREE ENTRY F P
0x39a834…39a9c8 Dummy {f00=0x00c1, f01=0x0190, f02=» 0 P* -------------------- G 0 P* I DATA *+6 I G 8 0 P* -------------------- G l 0 P* I DATA 0 I G 0 P* -------------------- G 0 P
0x39a9c8…39ab5c Dummy {f00=0x00c1, f01=0x0190, f02=»QU * G P LDR A3,A2 H PBLK:10 EQU * H P RF(Z) BLKEX H 4 $ P LDK A4,3 NUMBER OF WORDS/BLOCK H H 0 PBLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? H p P RF(NE) BLK:30 NOT YET! H * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW H P CALL ERROR H * PBL
0x39ab5c…39acf0 Dummy {f00=0x00c1, f01=0x0190, f02=»4,A12 H P ST A1,-2,A12 I P SUK A3,1 I $ P RB BLK:10 I 6 PBLKEX EQU * I H P RTN A14 I P IFF EDM=0 I l P EJECT I ~ H P******************************************************************* I H P*
0x39acf0…39ae84 Dummy {f00=0x00c1, f01=0x0190, f02=»======================== * I p H P* * J , H P* REFERENCED IN: SYSLDM * J x H P* *
0x39ae84…39b018 Dummy {f00=0x00c1, f01=0x0190, f02=» * J H P* EXIT: * K H P* * K d H P* WORK REGISTERS: A4 * K H P*
0x39b018…39b1ac Dummy {f00=0x00c1, f01=0x0190, f02=» H P* * L H P******************************************************************* L P PB:MXTT EQU * L ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB L P RF(Z) BMX99 NOT PRESENT L 0 P LDK A4,2 DI
0x39b1ac…39b340 Dummy {f00=0x00c1, f01=0x018e, f02=»GET ADDRESS TO START-ADDRESS TABLE L " P RF(NZ) BMX05 ALREADY DEFINED M * $ P LD A4,SCTSFA START OF FREE AREA M P 0 P ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE M x 4 P LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE M & P ST* A4,SCTMOX STORE IN FIRST WORD M
0x39b340…39b4d4 (1, 1013) Dummy {f00=0x00c1, f01=0x0190, f02=» M PBMX01 SUK A3,1 MORE EXTENTS? N P RF(N) BMX03 NO N , * P ADK A2,2 ADDRESS NUMBER OF TASK ID:S N D ( P LDR* A6,A2 GET NUMBER OF TASK ID:S N r ( P ADR* A4,A2 ADD NUMBER OF TASK ID:S N " PBMX02 SUK A6,1 MORE TASK ID:S? N P RB(N) BMX01 NO N " P
0x39b4d4…39b668 Dummy {f00=0x00c1, f01=0x0190, f02=»TABLE N f , P AD A4,SCTSFA END OF START-ADDRESS TABLE O , P ST A4,SCTSFA UPDATE START OF FREE AREA O > P LDR A11,A4 GET TABLE END O n " P LDR A9,P GET CURRENT LOCATION O " P CALL CMPADR COMPARE ADDRESSES O P RF(NG) BMXS05 OK O * P LDKL A1,LMP3 INDI
0x39b668…39b7fc Dummy {f00=0x00c1, f01=0x0190, f02=»K A7,1 DECREMENT NUMBER OF EXTENTS O P RF(N) BMX99 NO MORE P * * P LD A12,SCTSFA GET START OF FREE AREA P F 6 P ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK P t 4 P ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK P , P ST A12,SCTSFA UPDATE START OF FRE
0x39b7fc…39b990 Dummy {f00=0x00c1, f01=0x0190, f02=»ID:S P h P RB(N) BMX10 NO MORE Q P ADK A1,2 NEXT TASK ID Q ( P CALL MXTTAB Q F P RB BMX20 Q Z PBMX99 RTN A14 RETURN Q l P EJECT Q H P******************************************************************** Q H P*
0x39b990…39bb24 Dummy {f00=0x00c1, f01=0x0190, f02=»=================================== * Q z H P* * R 6 H P* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * R H P* A5 - POINTER TO MONITOR EXTENT BLOCK
0x39bb24…39bcb8 Dummy {f00=0x00c1, f01=0x0190, f02=» * R f H P* EXIT: A1 - POINTER TO TASK ID IN MXSTAB * S " H P* A5 - POINTER TO MONITOR EXTENT BLOCK * S n H P* * S H P*
0x39bcb8…39be4c Dummy {f00=0x00c1, f01=0x0190, f02=» * S R H P* SUBROUTINES: IMXTT,STRMOX,INBIMA * T H P* * T Z H P******************************************************************** T P EJECT T PMXTTAB E
0x39be4c…39bfe0 Dummy {f00=0x00c1, f01=0x0190, f02=» P LDR* A2,A1 GET TASK ID U P CALL STRMOX STORE IN MOXTAB U $ & P LD A2,MX:STA,A5 GET START ADDRESS U H 4 P LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 U r , P ST A2,APLSTA,A3 STORE START ADDRESS =6 U P CALL STRMOX STORE IN MOXTAB U " P LDR* A2,A
0x39bfe0…39c174 (1, 1014) Dummy {f00=0x00c1, f01=0x0190, f02=»ENT BASE ADDRESS U l & P ADK A2,12 5 WORDS FOR DEBUGGER =9 V 0 P ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA V B : P LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK V v P SUK A2,2 =10 V 8 P ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART V . P S
0x39c174…39c308 Dummy {f00=0x00c1, f01=0x0190, f02=»LOCK V f 8 P ST A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS W " P LD A2,SCTOPT GET OPTION WORD W H P ANK A2,/20 EMM? W n P RF(Z) MXTT20 NO W & P LD A2,MX:LEN,A5 GET EXTENT LENGTH W P ST A2,MAPLEN,A13 SAVE W & P ST A12,TTAB,A13 SAVE TTAB ADDRESS
0x39c308…39c49c Dummy {f00=0x00c1, f01=0x0190, f02=»******************************* W 2 P* * X ( 2 P* STRMOX - STORE START ADDRRESS IN MOXTAB * X ^ 2 P* ======================================= * X 2 P* * X 2 P* REFER
0x39c49c…39c630 Dummy {f00=0x00c1, f01=0x0190, f02=» * X l 2 P* * Y 2 P* EXIT: * Y H 2 P* * Y ~ 2 P* WORK REGISTERS: * Y 2 P*
0x39c630…39c7c4 Dummy {f00=0x00c1, f01=0x0190, f02=»***************************************** Y PSTRMOX EQU * Z 2 & P LD* A3,SCTMOX GET CURRENT LENGTH Z F , P AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY Z p " P STR A2,A3 STORE START ADDRESS Z P IM* SCTMOX INCREMENT LENGTH Z P IM* SCTMOX TWICE Z P RTN
0x39c7c4…39c958 Dummy {f00=0x00c1, f01=0x0190, f02=» * Z f 8 P* IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK * [ 8 P* ============================================== * [ N 8 P* * [ 8 P* REFERENCED IN: MXTTAB * [ 8 P*
0x39c958…39caec Dummy {f00=0x00c1, f01=0x0190, f02=»NTRY POINTER * [ z 8 P* * & 8 P* EXIT: * b 8 P* * 8 P* WORK REGISTERS: A2,A3,A4,A9,A11
0x39caec…39cc80 Dummy {f00=0x00c1, f01=0x0190, f02=» * 8 P**************************************************** ] : P EJECT ] v PIMXTT EQU * ] P LDR A2,A12 GET TTAB ENTRY ] * P ADKL A2,TTB:MT GET START OF MMU TABLE ] . P LDR* A3,A5 GET PHYSICAL ADDRESS
0x39cc80…39ce14 (1, 1015) Dummy {f00=0x00c1, f01=0x0190, f02=»T 12 BITS ] & P LDKL A9,/1000 PHYSICAL PAGE SIZE ^ P SUR A9,A4 SAVE ^ < ( P LD A11,MX:LEN,A5 GET EXTENT LENGTH ^ T 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? ^ P RF(G) IMX10 NO! ^ & P XRR A11,A11 INDICATE SINGLE ENTRY ^ P RF IMX20 ^ < P
0x39ce14…39cfa8 Dummy {f00=0x00c1, f01=0x0190, f02=»DDRESS ^ r & P ADK A2,2 INCREMENT ENTRY POINTER _ " P ADKL A11,0 ONE ENTRY ENOUGTH? _ 8 P RF(Z) IMX99 YES! _ ^ P RF(NN) IMX30 <32KB _ x $ P SUKL A11,/1000 DECREMENT LENGTH _ P RB IMX20 _ & PIMX30 STR A3,A2 STORE PAGE ADDRESS _ ( P ADKL A3,/400 IN
0x39cfa8…39d13c Dummy {f00=0x00c1, f01=0x0190, f02=»EQU * =6 _ " P LDR A4,A12 GET TTAB ENTRY =6 ` . P ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6 ` 8 P LDKL A3,/FC00 =6 ` j PIMX100 EQU * =6 ` , P CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6 ` P RF(E) IMX110 NO! =6 ` 0 P STR A3,A2 STORE PAGE ERROR IN M
0x39d13c…39d2d0 Dummy {f00=0x00c1, f01=0x0190, f02=»******************************************************** ` < P* * a @ < P* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS * a < P* ================================================== * a < P*
0x39d2d0…39d464 Dummy {f00=0x00c1, f01=0x0190, f02=» * a < P* ENTRY: * b 0 < P* * b p < P* EXIT: * b < P*
0x39d464…39d5f8 Dummy {f00=0x00c1, f01=0x0190, f02=» * b p < P* SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT * c < P* * c ` < P******************************************************** c P EJECT c PB:MSEG EQU * c 2 P CALL
0x39d5f8…39d78c Dummy {f00=0x00c1, f01=0x0190, f02=» SEGTABS c l : P LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE d 6 P CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK d N P DEFINITION BLOCK d > PBMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES d P RF(N) BMSG99 NO MORE! d < P CM
0x39d78c…39d920 Dummy {f00=0x00c1, f01=0x0190, f02=»TER TO NUMBER OF SEGMENTS d x , P CALL BMSTAB BUILD MONITOR SEGMENT TABLE e " . P LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB e R PBMSG20 ADK A1,2 NEXT TASK ID e , P SUK A7,1 DECREMENT NUMBER OF TASK ID:S e P RB(N) BMSG10 NO MORE! e . P CALL CHKTAD CHECK
0x39d920…39dab4 (1, 1016) Dummy {f00=0x00c2, f01=0x0190, f02=»A10,STKEND+SCBTAB GET SEGMENT CONTROL BLOCK e 2 P RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED f 4 * P LD A12,SCTSFA GET START OF FREE AREA f j P LDR A10,A12 SAVE f 6 P ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK f , P ST A12,SCTSFA UPDATE START
0x39dab4…39dc48 Dummy {f00=0x00c2, f01=0x0190, f02=»POINTER f d < P LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK g 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE g P * P ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES g 2 P ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES g ( P LDKL A2,/F000 END OF LOGICAL
0x39dc48…39dddc Dummy {f00=0x00c2, f01=0x0190, f02=»K-MULTIPLE? g | P RF(NZ) BMSG40 NO! h & P ADKL A2,/1000 SAVE ONE MMU ENTRY h . : PBMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE h X P SRL A2,12 MMU TABLE ENTRY h $ P LDK A3,16 NUMBER OF MMU ENTRIES h . P SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIE
0x39dddc…39df70 Dummy {f00=0x00c2, f01=0x0190, f02=»T h l . P ADKL A3,TTB:CB DISPL TO END OF MMU TABLE i 4 P ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE i < 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE i t 0 P ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES i 2 P ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIP
0x39df70…39e104 Dummy {f00=0x00c2, f01=0x0190, f02=» i j P RB(L) BMSG20 NO j * P ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE j P RB BMSG20 j N PBMSG99 RTN A14 RETURN j ` P EJECT j ~ > P********************************************************** j > P* *
0x39e104…39e298 Dummy {f00=0x00c2, f01=0x0190, f02=» > P* * k > P* REFERENCED IN: B:MSEG * k F > P* * k > P* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * k
0x39e298…39e42c Dummy {f00=0x00c2, f01=0x0190, f02=»* EXIT: A5 - SEGMENT TABLE ADDRESS * k > P* * l B > P* WORK REGISTERS: A2,A3,A9,A11 * l > P* * l > P
0x39e42c…39e5c0 Dummy {f00=0x00c2, f01=0x0190, f02=»****************************************************** l P EJECT m > PBMSTAB EQU * m L * P STR A1,A15 SAVE REGISTER A1 ON STACK m ` ( P LD A5,SCTSFA GET START OF FREE AREA m * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE m & P STR A2,A5 STORE IN SEGMENT TABL
0x39e5c0…39e754 (1, 1017) Dummy {f00=0x00c2, f01=0x0190, f02=»RE IN SEGMENT TABLE m < P ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS n " P ADK A5,2 SEGMENT TABLE ENTRY n P LDR A3,A5 SAVE n P* n P* BUILD SEGMENT BLOCK 0 n P* n ( P LDKL A2,/8400 STATUS FOR SEGMENT 0 n ( P STR A2,A3 STO
0x39e754…39e8e8 Dummy {f00=0x00c2, f01=0x0190, f02=»D+LIMIT GET END OF SYSTEM AREA n * P LDR A11,A3 GET END OF SEGMENT BLOCKS o & " P CALL CMPADR COMPARE ADDRESSES o T P RF(NG) BMST25 OK o z * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW o P CALL ERROR o & PBMST25 LDR* A2,A8 GET SEGMENT TYPE o P SRL A2,
0x39e8e8…39ea7c Dummy {f00=0x00c2, f01=0x0190, f02=»DISC PAGING? o P RF(Z) BMST40 NO! p P* p . * P* DISC PAGING & DISC RESIDENT SEGMENT p 8 P* p f ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB p p 0 P LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 p 0 P LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 p $ P LD
0x39ea7c…39ec10 Dummy {f00=0x00c2, f01=0x0190, f02=» p v P ADK A1,1 ADD CARRY q P RF(P) BMST30 NOT OVERFLOW q $ ( P LDKL A1,LMP10 DISC ADDRESS OVERFLOW q F P CALL ERROR q r 4 PBMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT q 4 P STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 q 6 P ST A2,2,A3 STORE
0x39ec10…39eda4 Dummy {f00=0x00c2, f01=0x0190, f02=»DKL A2,/8800 STATUS FOR DISC RESIDENT SEGMENT q & P STR A2,A3 STORE IN SEGMENT BLOCK r 6 ( PBMST50 LD A9,4,A8 GET SEGMENT LENGTH r ` 4 P LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH r P CALL CMPADR r . P RF(NL) BMST55 CURRENT SEGMENT NOT GREATER r 6
0x39eda4…39ef38 Dummy {f00=0x00c2, f01=0x0190, f02=»NCREMENT POINTER IN MXSTAB r 0 P LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS s " P SUK A1,1 s V P RB(NZ) BMST20 MORE SEGMENTS s h " P ADK A3,8 END OF SEGMENT TABLE s 2 PBMST60 ST A3,SCTSFA UPDATE START OF FREE AREA s $ P LDR* A1,A15 RESTORE REGISTER A1
0x39ef38…39f0cc Dummy {f00=0x00c2, f01=0x0190, f02=» * s r @ P* CHKTAD - CHECK IF TASK ALREADY DEFINED * t & @ P* ====================================== * t j @ P* * t @ P* REFERENCED IN: B:M
0x39f0cc…39f260 Dummy {f00=0x00c2, f01=0x0190, f02=»R TO TASK ID * t z @ P* FOR MONITOR SEGMENT TASK * u . @ P* * u r @ P* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * u @ P* A12
0x39f260…39f3f4 (1, 1018) Dummy {f00=0x00c2, f01=0x018e, f02=»ERS: A2,A3 * u @ P* * v 6 @ P* SUBROUTINES: PSW * v z @ P* * v @ P******
0x39f3f4…39f588 Dummy {f00=0x00c2, f01=0x0190, f02=» P AD A2,SCTTCT END OF TCTAB w . PCHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB w & " P CW A2,SCTTCT START OF TCTAB? w X * P RF(E) CHKT30 YES: ALL TASKS CHECKED! w ~ $ P LDR* A3,A2 GET POINTER TO TTAB w P LD A3,TTB:ID,A3 GET TASK ID w ( P CWR* A3,A1 EQUA
0x39f588…39f71c Dummy {f00=0x00c2, f01=0x0190, f02=» TASK NOT FOUND w v . PCHKT50 CFI A14,PSW,A13 STORE PSW ON STACK x P RTN A14 x J P EJECT x Z H P******************************************************************* x h H P* * x H P*
0x39f71c…39f8b0 Dummy {f00=0x00c2, f01=0x0190, f02=» x L H P* * y H P* REFERENCED IN: MXTTAB,B:MSEG * y T H P* * y H P* ENTRY:
0x39f8b0…39fa44 Dummy {f00=0x00c2, f01=0x0190, f02=»2 - TTAB ADDRESS * y H P* * z @ H P* WORK REGISTERS: A2,A9,A10,A11 * z H P*
0x39fa44…39fbd8 Dummy {f00=0x00c2, f01=0x0190, f02=» * z p H P******************************************************************* { , PBMXSTT EQU * { x * P LD A12,SCTSFA GET START OF FREE AREA { , P LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH { " P LD A2,SCTOPT GET OPTION WORD
0x39fbd8…39fd6c Dummy {f00=0x00c2, f01=0x0190, f02=»A10,TTB:AM INCLUDE LENGTH { P RF BMXS40 | " ( PBMXS20 LD A2,SCTOPT GET OPTION WORD | 4 P ANK A2,1 MMU OPTION? | ` P RF(Z) BMXS30 NO! | ~ . P SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB | $ P SUKL A10,TTB:MT INCLUDE LENGTH | P RF BMXS40 | ( PBMXS
0x39fd6c…39ff00 Dummy {f00=0x00c2, f01=0x0190, f02=»GING | d & P SUKL A10,TTB:CB INCLUDE IN LENGTH } 4 PBMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA } 6 P LDR A9,A10 SAVE } n 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA } " P CALL CMPADR MEMORY OVERFLOW? } P RF(NL) BMXS50 NO! } P LDKL A1,LMP3
0x39ff00…3a0094 (1, 1019) Dummy {f00=0x00c2, f01=0x0190, f02=»GTH } r * P AD A2,SCTTCT COMPUTE NEXT FREE ENTRY ~ " P STR A12,A2 STORE TTAB ADDRESS ~ : ( P IM* SCTTCT INCREMENT CURRENT LENGTH ~ ` P IM* SCTTCT TWICE ~ P LDR* A2,A1 GET TASK ID ~ $ P ST A2,TTB:ID,A12 STORE IN TTAB ~ * P LDKL A2,MX:LEV GET MONITO
0x3a0094…3a0228 Dummy {f00=0x00c2, f01=0x0190, f02=»ORE PROGRAM STATUS WORD ~ | : P LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS $ P ST A2,TTB:AP,A12 STORE IN TTAB ^ P LDK A2,2 0 P ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH P RTN A14 RETURN P EJECT B P**********************
0x3a0228…3a03bc Dummy {f00=0x00c2, f01=0x018e, f02=»================================= * ~ B P* * 4 B P* REFERENCED IN: MX:MST * z B P* * B P*
0x3a03bc…3a0550 Dummy {f00=0x00c2, f01=0x0190, f02=» B P* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A5 - POINTER TO NUMBER OF SEGTABS * J B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS
0x3a0550…3a06e4 Dummy {f00=0x00c2, f01=0x018e, f02=» * b B P* * B P* SUBROUTINES: * ^ B P* * B P******************************
0x3a06e4…3a0878 Dummy {f00=0x00c2, f01=0x018e, f02=» ~ P RF(Z) MEB99 NOT PRESENT * P LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS ( P LDR A6,A2 SAVE V & P LDR A1,A7 SAVE ADDRESS TO MXSTAB n * P LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS , P ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS P LDR A5,A1 SAVE
0x3a0878…3a0a0c Dummy {f00=0x00c2, f01=0x0190, f02=» z P EJECT B P************************************************************** B P* * B P* MX:MST - GET FIRST MONITOR SEGMENT TABLE * B P* =====================
0x3a0a0c…3a0ba0 Dummy {f00=0x00c2, f01=0x0190, f02=» * t B P* * * B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * p B P* * B P* EXIT: A1
0x3a0ba0…3a0d34 (1, 1020) Dummy {f00=0x00c3, f01=0x0190, f02=» A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS * > B P* * B P* WORK REGISTERS: A2 *
0x3a0d34…3a0ec8 Dummy {f00=0x00c3, f01=0x0190, f02=» * V B P* * B P************************************************************** R P EJECT PMX:MST EQU * : P CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK 2 P LDR A2,A7 GET N
0x3a0ec8…3a105c Dummy {f00=0x00c3, f01=0x018e, f02=»TS n 4 P ADK A1,MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK P RB MST10 B PMST99 RTN A14 RETURN T P EJECT p B P************************************************************* ~ B P* * B
0x3a105c…3a11f0 Dummy {f00=0x00c3, f01=0x0190, f02=» P B P* * B P* REFERENCED IN: MX:STD * N B P* * B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB
0x3a11f0…3a1384 Dummy {f00=0x00c3, f01=0x0190, f02=»ENT TASK * f B P* DEFINITION BLOCK * B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * b B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MO
0x3a1384…3a1518 Dummy {f00=0x00c3, f01=0x0190, f02=»,A3 * z B P* * 0 B P* SUBROUTINES: MX:MST * v B P* * B P******
0x3a1518…3a16ac Dummy {f00=0x00c3, f01=0x0190, f02=» TABLE j , P LDR A2,A6 GET NUMBER OF SEGMENT TABLES . PTDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS > * P SUK A2,1 DECREMENT NUMBER OF SEGTABS p P RF(N) TDB99 NO MORE SEGTABS & P LDR* A3,A5 GET NUMBER OF SEGMENTS 0 PTDB20 SUK A3,1 DECREMENT NUM
0x3a16ac…3a1840 Dummy {f00=0x00c3, f01=0x0190, f02=»B99 RTN A14 RETURN P EJECT B P************************************************************** ( B P* * n B P* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK * B P* ===========
0x3a1840…3a19d4 (1, 1021) Dummy {f00=0x00c3, f01=0x0190, f02=»CED IN: B:MXST * B P* * < B P* ENTRY: * B P* *
0x3a19d4…3a1b68 Dummy {f00=0x00c3, f01=0x0190, f02=» * T B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * P B P* A7 - NUMBER OF MONITOR EXTENTS * B P*
0x3a1b68…3a1cfc Dummy {f00=0x00c3, f01=0x0190, f02=» * h B P* SUBROUTINES: MX:TDB * B P* * d B P************************************************************** P EJECT PMX:STD EQU
0x3a1cfc…3a1e90 Dummy {f00=0x00c3, f01=0x0190, f02=» NUMBER OF MONITOR EXTENTS x P RF(N) STD99 NO MORE EXTENTS " . P LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT F " PSTD20 ADK A1,2 ADDRESS TASK ID x ( P SUK A3,1 DECREMENT NUMBER OF TASKS P RB(NN) STD20 MORE TASKS P RB STD10 NEXT EXTENT P
0x3a1e90…3a2024 Dummy {f00=0x00c3, f01=0x0190, f02=»************************ P* P* REFERENCED IN: SYSLDM * P* J P* ENTRY: T P* f 8 P* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES p P* P* WORK REGISERS: A1-A12 P* 8 P* SUBROUTINES: CONVRT,GETTSK,TETTDC,
0x3a2024…3a21b8 Dummy {f00=0x00c3, f01=0x0190, f02=» TTB:AM I MMU ALLOCATION I * P* I BIT MAP (4 WORDS) I * * P* I______________________I X * P* TTB:MT I MMU I * P* I TABLE I * P* I 16 I
0x3a21b8…3a234c Dummy {f00=0x00c3, f01=0x0190, f02=» I l * P* I______________________I * P* TTB:SP I SEGTAB POINTER I 8 * P* I______________________I f * P* TTB:SB I SEGM. BLOCK POINTER I * P* I----------------------I * P* TTB:AP I ACB
0x3a234c…3a24e0 Dummy {f00=0x00c3, f01=0x0190, f02=»---------------- z * P* TTB:ID I TASK IDENTIFICATION I * P* ------------------------ F * P* TTB:ST I STATUS/LEVEL I t * P* ------------------------ * P* TTB:PP I PENDING QUEUE I * P*
0x3a24e0…3a2674 (1, 1022) Dummy {f00=0x00c3, f01=0x018e, f02=»SA I DISPATCH ADDRESS I * P* ------------------------ & * P* I REGISTER I T * P* I SAVE I * P* I AREA I * P* I 14 I
0x3a2674…3a2808 Dummy {f00=0x00c3, f01=0x0190, f02=» h * P* I SAVE01URATION I * P* I TABLE I 6 * P* : : d * P* : : * P* I______________________I 2 P* TASK SAVE01U
0x3a2808…3a299c Dummy {f00=0x00c3, f01=0x0190, f02=» ------------------------------ 0 P* I INDEX/FILCODE I 0 0 P* ------------------------------ d 0 P* I DWT-ADDRESS I 0 P* ------------------------------ 0 P*
0x3a299c…3a2b30 Dummy {f00=0x00c3, f01=0x0190, f02=»---- h 0 P* I INDEX/FILECODE I 0 P* ------------------------------ @ 0 P* I DWT-ADDRESS I t 0 P* ------------------------------ P EJECT PB:TT EQU * & P CALL FSTAPL
0x3a2b30…3a2cc4 Dummy {f00=0x00c3, f01=0x0190, f02=»END OF SYSTEM AREA v * P ST P,STKEND+WRK1 SAVE PROGRAM COUNTER : P ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER H * P ST P,STKEND+WRK2 SAVE PROGRAM COUNTER P* ( P* GET NUMBER OF TASKS IN THIS CLASS P* P CALL GETTSK . P
0x3a2cc4…3a2e58 Dummy {f00=0x00c3, f01=0x0190, f02=»CHAR p P SLL A5,8 MOVE TO LEFT BYTE * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT 0 2 P ST A5,STKEND+TASKID SAVE TASK ID START VALUE ^ P* " P* CHECK IF CREDIT APPLICATION P* 6 P LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK * P
0x3a2e58…3a2fec Dummy {f00=0x00c3, f01=0x0190, f02=»ET TASK CLASS TO MATCH VALUE P* $ , P LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL . P SLL A5,8 MOVE TO LEFT BYTE ^ . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL $ P CALL GETTCL GET TCL START VALUE P ST A5,STKEND+TCLSAV SAVE PBTT21 EQU
0x3a2fec…3a3180 Dummy {f00=0x00c3, f01=0x0190, f02=» TO LEFT BYTE 0 P LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL " P CALL CONVRT CONVERT TO BINARY J P ST A1,STKEND+TSKLEV SAVE p P EJECT P* B P* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE P* & P LDKL A10,TTB:
0x3a3180…3a3314 (1, 1023) Dummy {f00=0x00c3, f01=0x0190, f02=»TH INCLUDED? P RF(NZ) BTT22 NO! 0 P SUKL A10,TTB:AM+2 INCLUDE BIT MAP IN LENGTH . . P SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP b P RF BTT30 PBTT22 LD A5,SCTOPT P SRC A5,1 MMU PAGING? P RF(NN) BTT25 NO . P SUKL A10,TTB:MT+2
0x3a3314…3a34a8 Dummy {f00=0x00c3, f01=0x018e, f02=»SC PAGING? P RF(NN) BTT30 NO! 6 P SUKL A10,TTB:CB+2 FOUR WORD EXTRA IF DISC PAGING , 0 P SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD f PBTT30 EQU * P EJECT P* < P* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART " P*
0x3a34a8…3a363c Dummy {f00=0x00c3, f01=0x0190, f02=» 4 P ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION $ P CALL GETTDC GET NUMBER OF TDC:S < P LDR A7,A1 SAVE d PBTT35 EQU * | P RF(Z) BTT40 ( P CALL GETCLN GET CLASS NUMBER (1-99) & P ADR A1,A1 2*(BINARY CLASS NUMBER) , P LD A8,STKEND+
0x3a363c…3a37d0 Dummy {f00=0x00c3, f01=0x0190, f02=»ALL ERROR INDICATE FORMAT ERROR PBTT37 EQU * ( " P ADR A8,A1 GET ENTRY IN TCLASS < $ P LDR* A8,A8 GET POINTER TO CLASS b $ P LDR* A8,A8 GET LENGTH OF CLASS " P SUKL A8,2 EXCLUDE LENGTH WORD ( P ADR A10,A8 ADD TO TOTAL TTAB LENGTH . P ADR
0x3a37d0…3a3964 Dummy {f00=0x00c3, f01=0x0190, f02=» P EJECT PBTT40 EQU * P* * > P* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF 4 P* TASK CONFIGURATION TABLE v P* 6 P CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES P ADKL A9,2 FIRST SDC RECORD P LDR A
0x3a3964…3a3af8 Dummy {f00=0x00c3, f01=0x0190, f02=»RY CLASS NUMBER) ~ , P LD A8,STKEND+SCLA GET POINTER TO SCLASS P LDR* A2,A8 H P SUK A2,2 P CWR A1,A2 n P RF(NG) BTT52 P LDKL A1,LMP4 & P CALL ERROR INDICATE FORMAT ERROR PBTT52 EQU * " P ADR A8,A1 GET ENTRY IN SCLASS
0x3a3af8…3a3c8c Dummy {f00=0x00c3, f01=0x0190, f02=»8 ADD TO TOTAL TTAB LENGTH . P ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH " P ADKL A9,SDC NEXT CLASS T ( P SUK A7,1 DECREMENT NUMBER OF SDC:S t P RB BTT50 PBTT55 EQU * P IFF EDM=0 & P ADKL A10,14 7 EXTRA WORDS FOR EDM P XIF
0x3a3c8c…3a3e20 Dummy {f00=0x00c3, f01=0x0190, f02=»ASKS IN THIS CLASS l PBTT60 EQU * P RF(Z) BTT70 . P ST A9,STKEND+WRK3 SAVE A9 B P ST A11,STKEND+WRK4 SAVE A11 d P LDR A9,A10 GET TTAB LENGTH 4 P AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 P ST A9,STKEND+SFASAV =2 0 P LD
0x3a3e20…3a3fb4 (1, 1024) Dummy {f00=0x00c4, f01=0x0190, f02=»3 INDICATE MEMORY OVERFLOW P CALL ERROR " & PBTT61 LD A9,STKEND+WRK3 RESTORE A9 6 $ P LD A11,STKEND+WRK4 RESTORE A11 ` P* 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB P* P ST A6,TTB:TD,A12 P* : P* STORE TAS
0x3a3fb4…3a4148 Dummy {f00=0x00c4, f01=0x0190, f02=» p P* < P* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD P* R & P SLL A5,10 MOVE LEVEL TO LEFT BYTE P ORKL A5,/00C0 " P LD A2,SCTOPT GET OPTION WORD P ANK A2,1 MMU OPTION? P ORR A5,A2 SET BIT 15 IF MMU $ P ST
0x3a4148…3a42dc Dummy {f00=0x00c4, f01=0x0190, f02=»IDENTIFICATION IN TTAB P* * PBTT62 LD A5,STKEND+TASKID GET TASK ID ( $ P ST A5,TTB:ID,A12 STORE IN TTAB V P ADK A5,1 INCREMENT TASK ID ~ 8 P ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS 0 P LD A5,STKEND+APCSTA GET APPL. CONTROL BLO
0x3a42dc…3a4470 Dummy {f00=0x00c4, f01=0x0190, f02=»T65 NO P* ( P* STORE TASK CLASS TO MATCH IN TTAB P* D , P LD A5,STKEND+TCLSAV GET TCL START VALUE N " P ST A5,TTB:PP,A12 SAVE IN TTAB ~ P ADK A5,1 INCREMENT TCL P ST A5,STKEND+TCLSAV SAVE PBTT65 EQU * , P STR A12,A7 SA
0x3a4470…3a4604 Dummy {f00=0x00c4, f01=0x0190, f02=»12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS 6 P SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS 2 P RB BTT60 l P EJECT ~ PBTT70 EQU * P* * P* RESET POINTER TO START OF FREE AREA P* P LD A12,STKEND+SFASAV PBTT90 EQ
0x3a4604…3a4798 Dummy {f00=0x00c4, f01=0x0190, f02=» PBTT95 EQU * " P CALL NXTAPL NEXT APPLICATION P RF(Z) BTT98 > P LD P,STKEND+WRK1 R 0 PBTT98 ST A12,SCTSFA SAVE START OF FREE AREA l P SU A7,SCTTCT COMPUTE LENGTH P ST* A7,SCTTCT STORE P RTN A14 RETURN P IFF SWPBLK=0
0x3a4798…3a492c Dummy {f00=0x00c4, f01=0x0190, f02=»ON INCLUDED ~ P RF(Z) BSWT42 NO 0 P CM STKCOM+APPLNO RESET APPLICATION COUNTER , , P ST P,STKEND+LIMIT SAVE LOCATION COUNTER ` 0 PBSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT , P CALL GETAPP GET NEXT CREDIT APPLICATION & P RF(Z) BSWT42 NO MOR
0x3a492c…3a4ac0 Dummy {f00=0x00c4, f01=0x0190, f02=» : P* SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE P* F & PBSWT10 CALL NXTBLK GET NEXT BLOCK P ( P CCK A2,'TT' TASK DEFINITION BLOCK? z P RB(E) BSWT10 YES! 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? P RF(NE) BSWT20 NO!
0x3a4ac0…3a4c54 (1, 1025) Dummy {f00=0x00c4, f01=0x0190, f02=» ~ P ADKL A11,1 NUMBER OF TYPES P LDR A6,A11 , & P CALL GETNUM NUMBER OF UWB RECORDS @ P LDR A1,A5 SAVE j $ P RF(Z) SWBERR ILLEGAL NUMBER!!! ( P ADKL A11,UDBFST-1 FIRST UWB RECORD ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD $ P SUK A
0x3a4c54…3a4de8 Dummy {f00=0x00c4, f01=0x0190, f02=» TYPE DEFINITION BLOCK z P RF(E) BSWT44 YES! ( P LDKL A1,0 NO SWB DEFINITION BLOCK! 8 ( P ST A1,APLSWB,A10 CLEAR SWB POINTER d : P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 & PBSWT42 CALL POB RESTORE REGISTERS P RTN A14 & P
0x3a4de8…3a4f7c Dummy {f00=0x00c4, f01=0x0190, f02=»S x P LDR A5,A5 ZERO? $ P RF(Z) SWBERR ILLEGAL NUMBER!!! " 0 P ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS J P ST A5,STKEND+WRK1 SAVE ~ . P LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP P RF(NZ) BSWT48 FILE CREATED " PSWBERR LDKL A1,LMP6
0x3a4f7c…3a5110 Dummy {f00=0x00c4, f01=0x0190, f02=»UNTER l P ADKL A12,2 FIRST POINTER P LDR A10,A12 SAVE 0 $ PBSWT50 ADKL A10,2 BYPASS POINTER J ( P SUK A5,1 DECREMENT NUMBER OF TYPES r P RB(P) BSWT50 P* & P* GET ADDRESS TO S:BTAB PROTOTYPE P* , P LD A2,STKEND+APCSTA G
0x3a5110…3a52a4 Dummy {f00=0x00c4, f01=0x0190, f02=»ADDRESS t $ P CALL GETCON GET P:MTAB ADDRESS P LDR A2,A1 SAVE 8 , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS P $ P CALL GETCON GET S:BTAB ADDRESS * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB * P RB(Z) SWBERR NO SWB:S IN APPLICATION! P ADK
0x3a52a4…3a5438 Dummy {f00=0x00c4, f01=0x018e, f02=»GTH OF PROT. S:BTAB | P LDR A4,A1 SAVE P* 4 2 P* CHECK IF ENOUGTH MEMORY IN FIRST PARTITION > P* t P XRR A2,A2 RESET COUNTER ~ $ PBSWT52 SUK A1,6 DECREMENT LENGTH $ P RF(N) BSWT55 NO MORE SWB-BLOCKS " P ADK A2,1 INCR. BLOCK COUN
0x3a5438…3a55cc Dummy {f00=0x00c4, f01=0x0190, f02=» * P LD A11,STKEND+LIMIT GET CURRENT LIMIT " P CALL CMPADR MEMORY OVERFLOW? 2 P RF(NL) BSWT57 NO! X * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW r P CALL ERROR $ PBSWT57 SUK A4,2 SKIP LENGTH WORD " P LDKL A9,0 RESET BLOCK COUNTER , PBSWT60
0x3a55cc…3a5760 Dummy {f00=0x00c4, f01=0x0190, f02=»END+NBRSWB NUMBER OF SWB RECORDS 4 PBSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. ( $ P CALL GETCON GET TWO FIRST CHAR. ` ( P ADKL A11,NAMUWB NAME IN CONF. FILE P LCR A3,A11 GET FIRST CHAR. P SLL A3,8 MOVE TO LEFT BYTE " P LC A3,1,A11
0x3a5760…3a58f4 (1, 1026) Dummy {f00=0x00c4, f01=0x0190, f02=»L GETCON GET THIRD CHAR. P SRL A1,8 ISOLATE CHAR. 0 P LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE @ P ANK A3,/FF ISOLATE CHAR. t " P CWR A1,A3 THIRD CHAR. EQUAL? P RF(E) BSWT75 YES! $ PBSWT70 ADKL A11,NAMUWB SKIP NAME ( P SUK A7,1
0x3a58f4…3a5a88 Dummy {f00=0x00c4, f01=0x0190, f02=»IN THIS BLOCK T P* P STR A7,A10 1:ST WORD P ST A7,2,A10 2:ND WORD > P ST A7,4,A10 3:RD WORD P ST A7,6,A10 4:TH WORD z P RF BSWT95 PBSWT75 EQU * P* P* MATCHING NAME FOUND P* . P LD A3,STKEND+WRK1 GET N
0x3a5a88…3a5c1c Dummy {f00=0x00c4, f01=0x018e, f02=»A11 P LDR A3,A2 SAVE POINTER & P CALL GETNUM GET NUMBER OF COPIES , , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE V > P OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE " P STR A5,A10 STORE IN SWB BLOCK , P SRL A5,8 NUMBER OF COPIES
0x3a5c1c…3a5db0 Dummy {f00=0x00c4, f01=0x0190, f02=» $ P SUK A2,UPNAME PROTOTYPE ADDRESS & P CALL GETCON GET PROTOTYPE ADDRESS , P LDR A2,A1 SAVE V & P SUK A2,UPNAME LENGTH OF WORKBLOCK n P CALL GETCON * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB 0 PBSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK
0x3a5db0…3a5f44 Dummy {f00=0x00c4, f01=0x0190, f02=» PBSWT88 IM STKCOM+SWBFSA+2 P CM STKCOM+SWBFSA & PBSWT90 EQU * @ & P ADK A1,1 INCREMENT SECTOR COUNTER T " P SUKL A3,256 DECREMENT LENGTH ~ P RB(P) BSWT86 MOORE SECTORS? P SUK A5,1 MOORE COPIES? P RB(P) BSWT85 YES! * P ST A1
0x3a5f44…3a60d8 Dummy {f00=0x00c4, f01=0x0190, f02=»M+SWBFSE+2 ( P RF(G) BSWT98 $SWAP-FILE TOO SMALL! P RF(L) BSWT95 > P LD A8,STKCOM+SWBFSA T P CW A8,STKCOM+SWBFSE p ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! * PBSWT95 ADKL A10,8 START OF NEXT BLOCK P ADKL A12,2 NEXT POINTER & P A
0x3a60d8…3a626c Dummy {f00=0x00c4, f01=0x0190, f02=»S:BTAB l P ST A2,STKEND+SWBNAM SAVE 4 P LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB 0 P SUK A4,UP:REC DECREMENT h P RB(P) BSWT60 MOORE TYPES . P LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED? P RF(Z) BSWT98 NO! . P LD A8,STKEND+WRK1
0x3a626c…3a6400 Dummy {f00=0x00c4, f01=0x0190, f02=»FA UPDATE START OF FREE AREA ~ 2 P LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS $ * P ST* A9,APLSWB,A10 NUMBER OF SWB TYPES Z 6 P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION P XIF P IFF MMUPAG+DSKPAG=0 P EJECT 8 P****************
0x3a6400…3a6594 (1, 1027) Dummy {f00=0x00c4, f01=0x0190, f02=»T TABLES * p 8 P* ============================= * 8 P* * X 8 P* REFERENCED IN: SYSLDM * 8 P* *
0x3a6594…3a6728 Dummy {f00=0x00c4, f01=0x0190, f02=» * 8 P* * 0 8 P* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * l 8 P* CONTENTS ARE SAVED ON STACK * 8 P* AND RESTORED BEF
0x3a6728…3a68bc Dummy {f00=0x00c4, f01=0x0190, f02=» 8 P* FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * 8 P* RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * D 8 P* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * 8 P* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * 8 P* WORD IN THE N
0x3a68bc…3a6a50 Dummy {f00=0x00c4, f01=0x0190, f02=»IONS ONE SEGMENT * p 8 P* TABLE PER APPLICATION IS GENERATED. STATUS, * 8 P* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * X 8 P* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * 8 P* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH *
0x3a6a50…3a6be4 Dummy {f00=0x00c4, f01=0x0190, f02=»*************************************** P EJECT 0 PB:STAB EQU * > $ P CALL PUSH SAVE A1-A14 ON STACK R & P CALL FSTAPL GET FIRST APPLICATION z " P LDR A9,P GET LIMIT FOR WRITE < PBST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB .
0x3a6be4…3a6d78 Dummy {f00=0x00c4, f01=0x0190, f02=»,SCTTCT END OF TCTAB P RF BST040 4 PBST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES . $ PBST040 ST A2,STKEND+TCTEND SAVE f P LDR A8,P 8 PBST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS 2 P LD A5,APLMMP,A10 GET CURRENT APPLICATION TY
0x3a6d78…3a6f0c Dummy {f00=0x00c4, f01=0x0190, f02=»TCTAB ENTRY t P CWK A5,'BA' BASIC? P RF(NE) BST050 NO 0 P SUR A2,A8 2*NUMBER OF TASKS J P SRL A2,1 NUMBER OF TASKS n P ST A2,STKEND+WRK1 SAVE P ST A2,APLNPE,A10 SAVE . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK P SLL A3,
0x3a6f0c…3a70a0 Dummy {f00=0x00c4, f01=0x0190, f02=» AREA f P RF BST090 P EJECT ( PBST050 LD A2,SCTOPT GET OPTION WORD . P ANK A2,1 MMU? Z P RF(Z) BST070 NO p P LDR* A7,A8 GET TTAB ADDRESS P TL TTB:MT,A7 LOAD MMU TABLE * PBST070 LD A2,APLLAC,A10 ADDRESS S:GTAB * P ADK A2,10
0x3a70a0…3a7234 (1, 1028) Dummy {f00=0x00c5, f01=0x0190, f02=»3 MULTIPLY BY 8 $ P ADK A3,12 INCLUDE 6 FIRST WORDS 0 PBST090 LD A12,SCTSFA GET START OF FREE AREA @ ( P LDR A2,A11 SAVE CONF. DATA POINTER t P LDR A11,A12 SAVE * P ADR A11,A3 END OF SEGMENT TABLE AREA " P CALL CMPADR MEMORY OVERFLOW?
0x3a7234…3a73c8 Dummy {f00=0x00c5, f01=0x018e, f02=» FREE AREA j * P LDR A11,A2 RESTORE CONF. DATA POINTER P CWK A5,'BA' BASIC? @ P RF(NE) BST200 NO * P LD A2,STKEND+WRK1 GET NUMBER OF TASKS v . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK 0 P ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK
0x3a73c8…3a755c Dummy {f00=0x00c5, f01=0x0190, f02=» : P ST A12,APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL P EJECT B P* P P* CLEAR SEGMENT TABLE AREA Z P* ~ 0 P LD A2,SCTSFA GET END OF SEGMENT TABLE AREA & PBST110 SUK A2,2 DECREMENT POINTER P CMR A2 CLEAR , P CWR A2,A12
0x3a755c…3a76f0 Dummy {f00=0x00c5, f01=0x0190, f02=» SEGMENT TABLE AREA? | P RF(E) BST400 YES 2 P ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE 6 2 P ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE l , P ADR A12,A4 START OF NEXT SEGMENT TABLE P LDR A2,A12 SAVE P RB BST120 0 PBST200 ST A6
0x3a76f0…3a7884 Dummy {f00=0x00c5, f01=0x0190, f02=» Z 0 P LD A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE P STR A3,A12 STORE < ( P ADKL A12,4 ADDRESS SEGMENT BLOCK 0 V P LDR A4,A12 SAVE . PBST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 " P STR A2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET
0x3a7884…3a7a18 Dummy {f00=0x00c5, f01=0x0190, f02=» GET P:BAS " P ST A1,2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:GTAB 8 * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS f ( PBST220 ADKL A12,8 NEXT SEGMENT BLOCK P SUK A6,1 ANY MORE SEGMENTS? P RF(N) BST300 NO P LDK A7,0 IN
0x3a7a18…3a7bac Dummy {f00=0x00c5, f01=0x018e, f02=» SAVE $ P ANK A3,/FF ISOLATE DISC ADDRESS " P SRL A1,8 ISOLATE SEGMENT TYPE 6 ( P CCK A1,'RR' CORE RESIDENT SEGMENT? P RF(E) BST230 YES " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(NZ) BST240 YES " P XRR A3,
0x3a7bac…3a7d40 Dummy {f00=0x00c5, f01=0x0190, f02=» ^ P RF BST270 : PBST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED * PBST240 ADK A2,2 DISC ADDRESS BIT 8-23 X * P CALL GETCON GET SEGMENT DISC ADDRESS 0 P AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. P RF(O) BST250 CARRY P RF
0x3a7d40…3a7ed4 (1, 1029) Dummy {f00=0x00c5, f01=0x0190, f02=»LOCATE PART 1 OF D. A. v . P CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? P RF(NG) BST270 NO! P ( P LDKL A1,LMP10 INDICATE DEVICE ERROR j P CALL ERROR 2 PBST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS P STR A7,A12 STORE , P ST A1,2,A12 S
0x3a7ed4…3a8068 Dummy {f00=0x00c5, f01=0x018e, f02=»SEGTAB z & P CM 6,A12 CLEAR PAGEBLOCK POINTER P RB BST220 8 0 PBST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY? J P RF(E) BST400 YES ~ P LDR* A2,A8 GET TTAB ADDRESS 0 P ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER * P ADKL A8,2 INCREMENT POI
0x3a8068…3a81fc Dummy {f00=0x00c5, f01=0x0190, f02=» l P ABR A9 NEXT APPLICATION PBST410 EQU * ( P CALL POB RESTORE REGISTERS < P RTN A14 RETURN ` P XIF x P IFF SPDVCL+TEDVCL=0 P EJECT L P************************************************************************ J P* B:DWTS
0x3a81fc…3a8390 Dummy {f00=0x00c5, f01=0x0190, f02=»**** L P* P* REFERENCED IN: MONCON P* 6 , P* ENTRY: SCTSFA - START OF FREE ARE (X) @ 2 P* CONSTA - START OF CONFIGURATION DATA p ( P* SCTEFA - END OF FREE AREA P* P* EXIT: P* P* WORK REGISTERS:
0x3a8390…3a8524 Dummy {f00=0x00c5, f01=0x0190, f02=» & P* GET START OF CONFIGURATION FILE P* 2 & P LD A12,SCTSFA START OF FREE AREA < P* f 6 P* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK p P* & P CALL FSTAPL GET FIRST APPLICATION 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AR
0x3a8524…3a86b8 Dummy {f00=0x00c5, f01=0x0190, f02=» FIRST TCTAB ENTRY v P SUK A7,2 P EJECT , PDWTS10 EQU * : P* N . P* GET NUMBER OF TASKS IN THIS TASK CLASS X P* P CALL GETTSK PDWTS20 EQU * P ST A1,STKEND+NBRTSK SAVE P* * P* GET CORRESPONDING TASK TABLE
0x3a86b8…3a884c Dummy {f00=0x00c5, f01=0x018e, f02=»+2 TASK DEVICE TABLE ENTRY P* " 0 P* INIT SUB-POINTER IN TASK DEFINITION BLOCK , P* ` . P LDR A9,A11 START OF TASK DEFINITION BLOCK j , P ADKL A9,TDBFST START OF TDC DEFINITION P EJECT P* 4 P* GET NUMBER OF TERMINAL DEVICES IN
0x3a884c…3a89e0 Dummy {f00=0x00c5, f01=0x018e, f02=» v P ADR A1,A1 , P LD A8,STKEND+TCLA GET POINTER TO TCLASS P ADR A8,A1 GET CLASS ENTRY J $ P LDR* A8,A8 GET POINTER TO CLASS l $ P LDR* A8,A8 GET LENGTH OF CLASS " P SUKL A8,2 EXCLUDE LENGTH WORD * P ADR A10,A8 INCREMENT POINTER IN TTAB
0x3a89e0…3a8b74 (1, 1030) Dummy {f00=0x00c5, f01=0x0190, f02=» P* , P* GET NUMBER OF SPECIAL DEVICE CLASSES P* B P CALL GETSDC L P ADKL A9,SDCFST-CDBNC ` P LDR A1,A1 ~ PDWTS50 EQU * P RF(Z) DWTS90 P ST A1,STKEND+NBRSDC SAVE P* & P* GET SPECIAL DEVICE CLASS NUMBER
0x3a8b74…3a8d08 Dummy {f00=0x00c5, f01=0x0190, f02=» LD A6,STKEND+SCLA POINTER TO SCLASS P ADR A6,A1 SELECT ENTRY , $ P LDR* A6,A6 GET POINTER TO CLASS L P LDR A5,A6 SAVE t P LDR* A6,A6 GET LENGTH " P SUK A6,2 EXCLUDE LENGTH WORD PDWTS60 EQU * P ADK A5,4 GET DEVICE ( P LDR* A1
0x3a8d08…3a8e9c Dummy {f00=0x00c5, f01=0x0190, f02=» P LDR A2,A12 TO-ADDRESS , P ADR A12,A3 UPDATE POINTER TO FREE AREA & P CALL CHKMOV COPY DWT V P EJECT t P* 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM P* " P LD A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYS
0x3a8e9c…3a9030 Dummy {f00=0x00c5, f01=0x018e, f02=»WTMEC,A2 GET MONITOR ECB-ADDRESS P SUR A4,A3 RELOCATE ( $ P ANKL A4,/FFFE MAKE EVEN ADDRESS D " P ST A4,DWTMEC,A2 STORE IT BACK l PDWTS65 EQU * $ P LDR A1,A2 DT-ADDRESS TO BE USED PDWTS70 EQU * P* . P* STORE FILE-CODE AND DWT-A
0x3a9030…3a91c4 Dummy {f00=0x00c5, f01=0x0190, f02=» v 2 P ADKL A10,4 UPDATE TASK CONFIGURATION POINTER PDWTS80 EQU * > * P SUK A6,4 DECREMENT NUMBER OF DEVICES R P RB(P) DWTS60 NEXT DEVICE P EJECT P* 4 P* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS P* P ADKL A9,SDC
0x3a91c4…3a9358 Dummy {f00=0x00c5, f01=0x0190, f02=» SAME CONFIGURATION p P* P LD A1,STKEND+NBRTSK & P SUK A1,1 B P RB(P) DWTS20 T P* j , P* CHECK IF MOORE TASK DEFINITION BLOCKS t P* P CALL NXTBLK ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) DWTS10 YES & P
0x3a9358…3a94ec Dummy {f00=0x00c5, f01=0x0190, f02=»EA TO BE USED FOR ECHO DEVICE & P* AND TEMPORARY INTERRUPT TABLES & P* P & P LDR A1,P GET LOCATION COUNTER =4 Z 0 PDWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 P CMR A1 CLEAR MEMORY AREA =4 ( P CW A1,SCTSFA ALL WORDS CLEARED? =4 P
0x3a94ec…3a9680 Dummy {f00=0x00c5, f01=0x0190, f02=»************** n 4 P* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * 4 P************************************************ N 4 P************************************************ P* P* REFERENCED IN: MONCON P* P* ENTRY: P*
0x3a9680…3a9814 (1, 1031) Dummy {f00=0x00c5, f01=0x0190, f02=»TBLK T P* P EJECT PB:DWTT EQU * $ $ P CM STKEND+FWTFLG CLEAR FWT FLAG 8 $ P LD A1,SCTFWT START OF FWT AREA ` $ P RF(NZ) BDWT15 FWT AREA RESERVED P LD A1,STKEND+LIMIT 8 P ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA P
0x3a9814…3a99a8 Dummy {f00=0x00c5, f01=0x0190, f02=»L FSTAPL GET FIRST APPLICATION * P LD A12,SCTSFA GET START OF FREE AREA & P* T B P* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY ^ P* . P LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY : P ST A5,STKEND+CUTENT STORE IN CURRENT US
0x3a99a8…3a9b3c Dummy {f00=0x00c5, f01=0x0190, f02=»OF TASKS x PBDWT50 EQU * * P ST A1,STKEND+NBRTSK SAVE BINARY VALUE $ P* R @ P* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS P* P CALL GETTDC P* $ P* CHECK IF TASK WITHOUT DEVICES P* $ P LDR A1,A1 ANY
0x3a9b3c…3a9cd0 Dummy {f00=0x00c5, f01=0x0190, f02=»ET TTAB ADDRESS x 6 P ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE P* R ( P* GET TERMINAL DEVICE CLASS NUMBER P* . P LDR A9,A11 START OF TASK DEFINITION BLOCK 4 P ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION PBDWT55 EQU *
0x3a9cd0…3a9e64 Dummy {f00=0x00c5, f01=0x0190, f02=»ICE CLASS IN TCLASS n P* 6 P LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID & P ADR A2,A2 2*ID ` ( P LD A7,STKEND+TCLA POINTER TO TCLASS x P ADR A7,A2 GET ENTRY $ P LDR* A7,A7 GET POINTER TO CLASS P* @ P* GET LINE CONNECTION
0x3a9e64…3a9ff8 Dummy {f00=0x00c5, f01=0x0190, f02=»A1 SAVE BINARY VALUE , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P CCK A4,'AA' ASCU4Z CONNECTION? L P RF(NE) BDWT58 NO! t . P LDR* A8,A7 YES! GET LENGTH OF THIS CLASS $ P SUKL A8,2 EXCLUSIVE LENGTH WORD P CWK A8,4 ONE DEVICE? P R
0x3a9ff8…3aa18c Dummy {f00=0x00c5, f01=0x0190, f02=»F(E) BDWT58 YES! PBDWT57 EQU * . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER , PBDWT58 EQU * ^ . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER r 4 P CALL BINASC CONVERT INCREMENTED VALUE TO ASCII ( P SC A1,TDC+5,A9 STORE ASCII DIGIT =2 & P
0x3aa18c…3aa320 Dummy {f00=0x00c5, f01=0x0190, f02=» EJECT P* $ P* GENERATE DWT:S FOR THIS CLASS 2 P* A6 - LINE CONNECTION NUMBER (BINARY VALUE) @ , P* A7 - POINTER TO TERMINAL DEVICE CLASS v P* . P* THE ENTRY IN TEMPORARY INTERRUPT TABLE . P* IS DERIVED FROM LINE CONNECTION NUM
0x3aa320…3aa4b4 (1, 1032) Dummy {f00=0x00c6, f01=0x0190, f02=»D+NBRTDC GET NUMBER OF TERMINAL DEVICE CLASSES , P SUK A1,1 ANY MOORE IN THIS TASK CLASS? 6 P RF(Z) BDW100 NO f . P ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER ~ $ P ADKL A9,TDC+TLC NEXT TDC RECORD P RB BDWT55 PBDW100 EQU * " P CALL ECHO
0x3aa4b4…3aa648 Dummy {f00=0x00c6, f01=0x0190, f02=»END+CUTENT SAVE : P LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS " P SUK A1,1 ANY MOORE TASKS LEFT V P RB(P) BDWT50 YES | , P* CHECK IF MOORE TASK DEFINITION BLOCKS P* $ P CALL NXTBLK SKIP TO NEXT BLOCK ( P CCK A2,'TT' TAS
0x3aa648…3aa7dc Dummy {f00=0x00c6, f01=0x0190, f02=»A12,SCTSFA UPDATE START OF FREE AREA P RTN A14 RETURN , P XIF D P EJECT P , P**************************************** ` , P* B:CDT - BUILD COMMON DEVICE TABLE * , P**************************************** P* P* REFERENCED
0x3aa7dc…3aa970 Dummy {f00=0x00c6, f01=0x0190, f02=» SCTEFA - END OF FREE AREA P* ( 4 P* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE 2 P* j P* WORK REGISTERS: A1-A12 t P* < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE P* P EJECT PB:CDT EQU *
0x3aa970…3aab04 Dummy {f00=0x00c6, f01=0x0190, f02=»OMMON DEVICE DEFINITION BLOCK P* & PCDG:10 EQU * 0 P CALL NXTBLK D ( P CCK A2,'TT' TASK DEFINITION BLOCK? X P RB(E) CDG:10 YES ( P CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO P EJECT P* : P* RESERVE A
0x3aab04…3aac98 Dummy {f00=0x00c6, f01=0x0190, f02=»T OF COMMON DEFINITION BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES $ & P CALL GETCTC GET NUMBER OF C.T.C. ^ P LDR A6,A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) , P ADR A1,A1 DISPL
0x3aac98…3aae2c Dummy {f00=0x00c6, f01=0x0190, f02=»E LENGTH & P CWR A1,A2 MAKE SURE CLASS EXISTS P RF(NG) B:CT20 OK! : P LDKL A1,LMP4 FORMAT ERROR! T P CALL ERROR x , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS $ P LDR* A1,A1 GET LENGTH OF CLASS
0x3aae2c…3aafc0 Dummy {f00=0x00c6, f01=0x0190, f02=»UK A6,1 DECR. NBR OF C.T.C. P RB B:CT10 $ P EJECT 6 PB:CT30 EQU * D P* X : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES b 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* P CALL GETSDC P ADKL A9,SDCFS
0x3aafc0…3ab154 (1, 1033) Dummy {f00=0x00c6, f01=0x0190, f02=» POINTER TO SCLASS z P LDR* A2,A5 P SUK A2,2 . P CWR A1,A2 @ P RF(NG) BCDT15 R P LDKL A1,LMP4 h P CALL ERROR ~ PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS P LDR* A1,A1 GET LENGTH
0x3ab154…3ab2e8 Dummy {f00=0x00c6, f01=0x0190, f02=»T APPLICATION | $ P RB(P) CDG:10 MORE APPLICATIONS? & P CALL FSTAPL GET FIRST APPLICATION > & PB:CT35 CALL NXTBLK GET NEXT BLOCK h ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) B:CT35 YES P EJECT P* < P* RESERV ENTRIES IN COM
0x3ab2e8…3ab47c Dummy {f00=0x00c6, f01=0x0190, f02=»OMMON DEVICE TABLE FOR t @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION P* b J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS l P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD A6,SCTDMT DATA MANAGEM
0x3ab47c…3ab610 Dummy {f00=0x00c6, f01=0x0190, f02=»ST SCLASS IF NOT ZERO ~ P RF(Z) CDG:12 NO! , P LD A6,STKEND+SCLA GET POINTER TO SCLASS 8 $ P LDR* A1,A6 GET LENGTH OF SCLASS h " P SUK A1,2 EXCLUDE LENGTH WORD $ P ADR A6,A1 LAST ENTRY IN SCLASS * P LDR* A6,A6 GET POINTER TO LAST CLASS
0x3ab610…3ab7a4 Dummy {f00=0x00c6, f01=0x0190, f02=»QU * P ADK A7,2 P STR A7,A12 P ST A12,SCTCDT 2 P ADR A12,A7 H P ST A11,STKEND+WRK1 SAVE A11 " P LDR A11,A12 GET END OF CDTAB . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF MEMORY OVERFLOW P R
0x3ab7a4…3ab938 Dummy {f00=0x00c6, f01=0x0190, f02=» EJECT P* 6 P* INIT POINTER TO START OF FREE AREA AND TO CDTAB P* R ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT * PCDG:15 LCR A2,A11 GET FIRST CHARACTER . PCDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ P RF(NE) CDG:17 NO! P CALL
0x3ab938…3abacc Dummy {f00=0x00c6, f01=0x018e, f02=»E NO COMMON WORK BLOCKS ~ ( PCDG:18 RF(N) CDG:EX CDTAB COMPLETE! & P CALL NXTAPL GET NEXT APPLICATION L $ P RB(P) CDG:15 MORE APPLICATIONS v " P RF CDGEX NO MORE APPLICATIONS PCDG:19 EQU * P* > P* GENERATE DEVICE WORK TABLES FOR COM
0x3abacc…3abc60 Dummy {f00=0x00c6, f01=0x0190, f02=» & P CALL GETCTC GET NUMBER OF C.T.C. , P LDR A1,A1 ANY COMMON TERMINAL CLASSES? 2 PB:CT40 RF(Z) B:CT50 NO! b P ST A1,STKEND+NBRCOM SAVE ( P CALL GETCLN GET CLASS IDENT NUMBER P ST A1,STKEND+CLASID SAVE , P CALL GETLCN GET LINE
0x3abc60…3abdf4 (1, 1034) Dummy {f00=0x00c6, f01=0x0190, f02=» n , P LD A7,STKEND+TCLA GET POINTER TO TCLASS & P ADR A7,A2 SELECT ENTRY IN TCLASS 8 $ P LDR* A7,A7 GET POINTER TO CLASS b . P CALL DWTGEN GENERATE DWT:S FOR THIS CLASS . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE . P LD A1,STKEND+NBRCOM GET N
0x3abdf4…3abf88 Dummy {f00=0x00c6, f01=0x0190, f02=»BER OF SPECIAL DEVICE CLASSES P* & P CALL GETSDC 0 P ADKL A9,SDCFST-CDBNC D P LDR A8,A1 b PCDG:20 EQU * t P RB(NP) CDG:18 P* & P* GET SPECIAL DEVICE CLASS NUMBER P* P CALL GETCLN P* 0 P* GET CORRESP
0x3abf88…3ac11c Dummy {f00=0x00c6, f01=0x0190, f02=»CLASS ~ & P LDR* A5,A6 SAVE POINTER TO CLASS $ P LDR* A6,A6 GET POINTER TO CLASS 8 $ P LDR* A6,A6 GET LENGTH OF CLASS ` " P SUK A6,2 EXCLUDE LENGTH WORD PCDG:30 EQU * P ADK A5,4 NEXT DEVICE P LDR* A1,A5 GET DWT-ADDRESS ( P LD
0x3ac11c…3ac2b0 Dummy {f00=0x00c6, f01=0x0190, f02=»DR A12,A3 UPDATE POINTER TO FREE AREA P CALL CHKMOV COPY DWT . P* L 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM V P* " P LD A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? P RF(Z) CDG:35 NO! ( P LDR A3,A1 GET P
0x3ac2b0…3ac444 Dummy {f00=0x00c6, f01=0x0190, f02=» MAKE IT EVEN! P SUR A4,A3 RELOCATE " P ST A4,DWTMEC,A2 STORE IT BACK 2 PCDG:35 EQU * X " P LDR A1,A2 DWT-ADDRESS TO USE l PCDG:40 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P* " P ST A1,4,A10 STORE DWT-ADDRE
0x3ac444…3ac5d8 Dummy {f00=0x00c6, f01=0x0190, f02=»T DEVICE COUNTER ~ P RB(P) CDG:30 NEXT DEVICE P EJECT : P* H , P* CHECK IF MOORE SPECIAL DEVICE CLASSES R P* P ADKL A9,SDC P SUKL A8,1 P RB CDG:20 PCDGEX EQU * " P LD A1,SCTDMT DATA MANAGEMENT $ P LD A5,SCT
0x3ac5d8…3ac76c Dummy {f00=0x00c6, f01=0x0190, f02=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:EX NO! 0 , P LD A5,STKEND+SCLA GET POINTER TO SCLASS J $ P LDR* A1,A5 GET LENGTH OF SCLASS z " P SUK A1,2 EXCLUDE LENGTH WORD P ADR A5,A1 GET LAST ENTRY * P LDR* A5,A5 GET POINTER TO LAS
0x3ac76c…3ac900 Dummy {f00=0x00c6, f01=0x0190, f02=» ST A12,SCTSFA UPDATE START OF FREE AREA P RTN A14 RETURN 0 P =6 H P EJECT V J P********************************************************************** d H P* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS J P**********
0x3ac900…3aca94 (1, 1035) Dummy {f00=0x00c6, f01=0x018e, f02=» A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS * P* A6 - LINE CONNECTION NUMBER @ P* n P* EXIT: x P* P* WORK REGISTERS: A1-A8 P* P* SUBROUTINES: I:CHP,MOVE P* P EJECT PDWTGEN EQU * 4
0x3aca94…3acc28 Dummy {f00=0x00c6, f01=0x0190, f02=» n P ADK A7,2 FIRST FILECODE PDWT05 EQU * ( . P LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT < 2 P LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER n P* P* CHECK CONNECTION TYPE P* , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P
0x3acc28…3acdbc Dummy {f00=0x00c6, f01=0x0190, f02=»DWT10 CCK A4,'AA' ASCU4Z CONNECTION? P RF(NE) DWT07 NO! , . P CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z F P RF DWT31 x * PDWT07 CCK A4,'VV' VCCU1/4 CONNECTION? P RF(NE) DWT11 0 P CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4 P RF DW
0x3acdbc…3acf50 Dummy {f00=0x00c6, f01=0x018e, f02=»T31 $ PDWT12 CCK A4,'LL' LT CONNECTION? P RF(NE) DWT08 NO! 4 , P CALL I:CHLT INIT CHANNEL PARAMETERS LT N P RF DWT31 ~ $ PDWT08 CCK A4,'RR' RT CONNECTION? P RF(NE) DWT09 NO! =8 . P CALL I:CHRT INIT CHANNEL PARAMETERS RT =8 P R
0x3acf50…3ad0e4 Dummy {f00=0x00c6, f01=0x0190, f02=» P CALL ERROR 6 PDWT06 CALL I:CHRI INIT CHANNEL PARAMETERS RWSI =8 PDWT31 EQU * R P ST A3,STKEND+CONTYP SAVE f P ST A5,STKEND+WRK3 SAVE P ST A6,STKEND+WRK4 SAVE P* 2 P* CHECK IF DWT ALREADY GENERATED ON THIS LINE P
0x3ad0e4…3ad278 Dummy {f00=0x00c6, f01=0x0190, f02=»T13 EQU * P RF(Z) DWT32 6 P LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE & P CW A3,-4,A4 EQUAL? ` P RF(Z) DWT15 YES! | PDWT14 EQU * " P LDR* A4,A4 GET NEXT BLOCK =7 ( P SUK A5,1 DECREMENT NUMBER OF BLOCKS P RB DWT13
0x3ad278…3ad40c Dummy {f00=0x00c6, f01=0x0190, f02=»T DEVICE ADDRESS . P LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2 $ P ANK A3,/003F GET DEVICE ADDRESS J P SUR A3,A6 EQUAL? r P RB(NE) DWT14 NO! & P LD A6,DWTST,A2 GET DEVICE STATUS " P ANK A6,/00C0 GET BITS 8 AND 9 & P LD A3,DWTST,A1 GE
0x3ad40c…3ad5a0 Dummy {f00=0x00c6, f01=0x0190, f02=»E TYPE v $ P ANKL A6,/8000 ISOLATE ECHO BIT $ P LD A3,DWTTAB,A1 GET DEVICE TYPE 6 $ P ANKL A3,/8000 ISOLATE ECHO BIT ^ P SUR A3,A6 EQUAL? P RB(NE) DWT14 NO! P CALL DWT50 P LDKL A1,DWT70 P AD A1,STKCOM+M:REL P ABR A1
0x3ad5a0…3ad734 (1, 1036) Dummy {f00=0x00c7, f01=0x0190, f02=»DEVICE TYPE DWT P* P LDR A2,A12 TO-ADDRESS " P LD A3,DWTOR,A1 LENGTH @ P ADR A12,A3 NEXT FREE ENTRY ^ P CALL CHKMOV P EJECT P* $ P* A1 - ADDRESS TO PROTOTYPE DWT P* A2 - ADDRESS TO REAL DWT P* P LD
0x3ad734…3ad8c8 Dummy {f00=0x00c7, f01=0x0190, f02=»-2 f P* P* CHECK IF INPUT DEVICE P* 4 P LD A3,2,A1 GET DWT STATUS > P ANK A3,/0040 INPUT DEVICE? ` P RF(Z) DWT45 NO P* P* INPUT DEVICE: P* CHECK IF KEYBOARD P* P LD A3,DWTADR,A1 P LD A3,DEV
0x3ad8c8…3ada5c Dummy {f00=0x00c7, f01=0x0190, f02=» , P* STORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE 4 P* r P* | P LD A5,DWTECH,A1 ECHO? P RF(Z) DWT40 NO P AD A5,STKCOM+M:REL : P LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE
0x3ada5c…3adbf0 Dummy {f00=0x00c7, f01=0x0190, f02=»NGTH x ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE 8 < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE t P ADK A3,4 UPDATE LENGTH * P ST* A3,STKEND+ECHTAB SAVE NEW LENGTH P EJECT
0x3adbf0…3add84 Dummy {f00=0x00c7, f01=0x0190, f02=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER $ P ST A5,DWTSQ-4,A2 STORE POINTER 6 $ P ST A5,DWTSQ-2,A2 STORE POINTER ^ P* P* IF DOUBLE KEYBOARD: D P* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 P* IN ENTRY CORRES
0x3add84…3adf18 Dummy {f00=0x00c7, f01=0x0190, f02=»BITS p $ P RF(Z) DWT60 NOT DOUBLE KEYBOARD $ P LDR A5,A2 GET REAL DWT-ADDRESS 4 P ADK A5,1 ADD ONE * P CALL B:TTAB BUILD ONE BLOCK IN T.I.T. v P SUK A5,1 $ P LDR A2,A5 GET REAL DWT-ADDRESS P RF DWT60 P EJECT PDWT45 CALL
0x3adf18…3ae0ac Dummy {f00=0x00c7, f01=0x0190, f02=»* THE DEVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT 4 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. n P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN) DWT59 NO ECHOING ON THIS DEVICE
0x3ae0ac…3ae240 Dummy {f00=0x00c7, f01=0x0190, f02=» x PDWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY , . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT X , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH * P ST* A3,STKEND+ECHTAB STORE NEW LENGTH P
0x3ae240…3ae3d4 (1, 1037) Dummy {f00=0x00c7, f01=0x018e, f02=»MMU PAGING? P RF(Z) DWT70 P EJECT ( , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS 6 ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS f * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANKL A5,/FFFE MAKE EVEN
0x3ae3d4…3ae568 Dummy {f00=0x00c7, f01=0x0190, f02=» & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER . $ P RF(Z) DWT70 ALLOCATE NO BUFFER! d P* L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL P* , P LD A5,DWTMEC,A2 GET MON
0x3ae568…3ae6fc Dummy {f00=0x00c7, f01=0x0190, f02=» ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 8 , P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH b P EJECT P* 4 P* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 P* THE SIZE OF BUFFER RESERVED FOR SYS
0x3ae6fc…3ae890 Dummy {f00=0x00c7, f01=0x0190, f02=»W A3,STKCOM+BUFSIZ P RF(NG) DWT65 P ST A3,STKCOM+BUFSIZ 2 P ST A12,STKCOM+SYSBUF N PDWT65 EQU * l P ADR A12,A3 NEXT FREE ENTRY P EJECT PDWT70 EQU * P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P*
0x3ae890…3aea24 Dummy {f00=0x00c7, f01=0x0190, f02=»2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS P* B , P* CHECK IF MOORE DEVICES IN THIS CLASS L P* | P SUKL A8,4 P RF(Z) DWTEX P ADK A7,4 NEXT DEVICE P LDKL A1,DWT05 P AD A1,STKCOM+M:REL P ABR A1
0x3aea24…3aebb8 Dummy {f00=0x00c7, f01=0x018e, f02=» FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: * 0 P* STORE SECOND POINTER OF FIRST POINTER-SET b 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-SET AND CLEAR POINTERS OF P* SEC
0x3aebb8…3aed4c Dummy {f00=0x00c7, f01=0x0190, f02=» > PECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE " P RF(Z) DWT160 NO ECHO DEVICES! F : P AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE l 8 P LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS LENGTH < PDW
0x3aed4c…3aeee0 Dummy {f00=0x00c7, f01=0x0190, f02=»RST SET f > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! R P ADK A2,4 NEXT POINTER-SET t ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 : PDWT130 LD A4
0x3aeee0…3af074 (1, 1038) Dummy {f00=0x00c7, f01=0x0190, f02=»ADDRESS TO ECHO-DEVICE r P CMR A1 CLEAR FIRST POINTER " P CM 2,A1 CLEAR SECOND POINTER B $ PDWT140 ADK A1,4 NEXT POINTER-SET h ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! * PDWT150 CM* STKEND+ECHTAB CLEAR LENGTH PDWT1
0x3af074…3af208 Dummy {f00=0x00c7, f01=0x0190, f02=»TAB - BUILD REAL-TIME INTERRUPT TABLE * 2 P********************************************** 0 P* f P* REFERENCED IN: DWTGEN p P* * P* ENTRY: SCTSFA - START OF FREE AREA P* , P* EXIT: REAL TIME INTERRUPT TABLES FOR 2 P*
0x3af208…3af39c Dummy {f00=0x00c7, f01=0x0190, f02=»NTERRUPT TABLES r 0 P LD A1,STKEND+FWTFLG T.I.T. IN FREE AREA? =7 P RF(P) B:ITLT YES? =7 L 4 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA =7 j P LDR A1,P =7 PBIT05 EQU * =7 * P SUK A1,2 DECREMENT MEMORY ADDRESS =7 P CMR A1 CL
0x3af39c…3af530 Dummy {f00=0x00c7, f01=0x0190, f02=»TABLES FOR LT t P* P XIF PB:ITLT EQU * , P IFF SUML=0 @ $ P LDKL A8,0 CONNECTION TYPE = LT T P LDKL A9,7 1:ST BOARD | . P LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE P ST A1,STKEND+WRK4 SAVE P CM STKEND+WRK1 CLEAR
0x3af530…3af6c4 Dummy {f00=0x00c7, f01=0x018e, f02=»WRK2 GET INDEX IN MONTAB " P LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BIT15 NO! F P CM STKEND+WRK3 CLEAR ^ : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE | P ST A2,INTLT1,A1 SAVE PBIT15 EQU * P ADK A1,2 & P ST A1,STK
0x3af6c4…3af858 Dummy {f00=0x00c7, f01=0x0190, f02=» x P RF(G) B:ITRT YES! P RB BIT10 " P XIF 4 P EJECT @ P* N . P* BUILD REAL-TIME INTERRUPT TABLES FOR RT X P* PB:ITRT EQU * P IFF SUMR=0 $ P LDKL A8,1 CONNECTION TYPE = RT P LDKL A9,3 1:ST BOARD . P LDK A
0x3af858…3af9ec Dummy {f00=0x00c7, f01=0x0190, f02=» CM STKEND+WRK3 CLEAR PBRT10 EQU * P CALL B:BTAB 2 P CALL B:LTAB F * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB Z " P LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BRT15 NO! P CM STKEND+WRK3 CLEAR : P LD A2,STKEND+BRDTAB GET ADDRESS TO
0x3af9ec…3afb80 Dummy {f00=0x00c7, f01=0x0190, f02=» ADKL A9,1 P ST A9,STKEND+WRK1 STORE P ADKL A9,3 NEXT BOARD 2 P CWK A9,15 LAST BOARD? P P RF(G) B:ITPC YES! n P RB BRT10 P XIF P EJECT P* 4 P* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-LOCAL P* PB:ITPC E
0x3afb80…3afd14 (1, 1039) Dummy {f00=0x00c7, f01=0x0190, f02=»F.TABLE =2 n P ST A1,STKEND+WRK4 P LDK A1,1 =2 , P ST A1,STKEND+WRK1 =2 B P CM STKEND+WRK2 CLEAR ` P CM STKEND+WRK3 CLEAR ~ PBPC10 EQU * P CALL B:BTAB P CALL B:LTAB * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB " P L
0x3afd14…3afea8 Dummy {f00=0x00c7, f01=0x0190, f02=»ION TABLE P ST A2,INTPL1,A1 SAVE PBPC15 EQU * 0 P ADK A1,2 D & P ST A1,STKEND+WRK2 STORE NEW INDEX V P ADKL A9,1 P ST A9,STKEND+WRK1 P ADKL A9,31 NEXT BOARD P CWK A9,128 LAST BOARD? P RF(G) B:ITPR YES! =8 P
0x3afea8…3b003c Dummy {f00=0x00c7, f01=0x0190, f02=» P IFF PLCR=0 * P LDKL A8,6 CONNECTION TYPE=PLC-REMOTE P LDKL A9,32 1:ST BOARD J 0 P LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2 h P ST A1,STKEND+WRK4 P LDK A1,1 =2 P ST A1,STKEND+WRK1 =2 P CM STKEND+WRK2 CLEAR P
0x3b003c…3b01d0 Dummy {f00=0x00c7, f01=0x0190, f02=» LD A2,STKEND+WRK3 ANY LINES? P RF(Z) BPR15 NO! ! & P CM STKEND+WRK3 ! > B P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ! V P ST A2,INTPR1,A1 SAVE ! PBPR15 EQU * ! P ADK A1,2 ! & P ST A1,STKEND+WRK2 STORE NEW INDEX !
0x3b01d0…3b0364 Dummy {f00=0x00c7, f01=0x0190, f02=»B BPR10 ! P XIF " P EJECT " P " * P* " 2 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4 " < P* " r PB:ITVU EQU * " | P IFF VIDEO=0 " ( P LDKL A8,7 CONNECTION TYPE = VCCU1/4 " P LDKL A9,3 1:ST BOARD " . P LDK A1,8 MAX.LENGTH OF BO
0x3b0364…3b04f8 Dummy {f00=0x00c7, f01=0x0190, f02=»R " | PBVU10 EQU * # P CALL B:BTAB # P CALL B:LTAB # 2 * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB # F " P LD A2,STKEND+WRK3 ANY LINES? # t P RF(Z) BVU15 NO! # P CM STKEND+WRK3 CLEAR # : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE #
0x3b04f8…3b068c Dummy {f00=0x00c7, f01=0x0190, f02=»T A9,STKEND+WRK1 STORE # P ADKL A9,3 NEXT BOARD $ P CWK A9,31 LAST BOARD? $ < P RF(G) B:ITSZ YES! $ Z P RB BVU10 $ t P XIF $ P $ P EJECT $ P* $ 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ $ P* $ PB:ITSZ EQU * $ P I
0x3b068c…3b0820 Dummy {f00=0x00c7, f01=0x0190, f02=» $ f P ST A1,STKEND+WRK4 % P CM STKEND+WRK1 CLEAR % " P CM STKEND+WRK2 CLEAR % @ P CM STKEND+WRK3 CLEAR % ^ PBSZ10 EQU * % | P CALL B:BTAB % P CALL B:LTAB % * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB % " P LD A2,STKEND+WRK3 ANY LINES? %
0x3b0820…3b09b4 (1, 1040) Dummy {f00=0x00c8, f01=0x0190, f02=» PBSZ15 EQU * & P ADK A1,2 & & P ST A1,STKEND+WRK2 STORE NEW INDEX & * P ADKL A9,1 & T P ST A9,STKEND+WRK1 & f P CWK A9,7 LAST BOARD? & P RF(G) B:ITAZ YES! & P RB BSZ10 & P XIF & P EJECT & P* & 2 P* BUILD REAL-TIME INTERRUP
0x3b09b4…3b0b48 Dummy {f00=0x00c8, f01=0x0190, f02=»:ST BOARD & . P LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE ' P ST A1,STKEND+WRK4 ' D P CM STKEND+WRK1 CLEAR ' ^ P CM STKEND+WRK2 CLEAR ' | P CM STKEND+WRK3 CLEAR ' PBAZ10 EQU * ' P CALL B:BTAB ' P CALL B:LTAB ' * P LD A1,STKEND+WRK2 G
0x3b0b48…3b0cdc Dummy {f00=0x00c8, f01=0x0190, f02=»SS TO BOARD CONFIGURATION TABLE ' r P ST A2,INTAS1,A1 SAVE ( ( PBAZ15 EQU * ( F P ADK A1,2 ( Z & P ST A1,STKEND+WRK2 STORE NEW INDEX ( l P ADKL A9,1 ( P ST A9,STKEND+WRK1 ( P ADKL A9,3 NEXT BOARD ( P CWK A9,31 LAST BOARD? ( P RF(G) BAZ
0x3b0cdc…3b0e70 Dummy {f00=0x00c8, f01=0x0190, f02=»***** ( h 2 P* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * ) 2 P********************************************* ) D P* ) z P* REFERENCED IN: DWTGEN ) P* ) , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ) ( P* A2 - POINTER TO REAL DWT ) *
0x3b0e70…3b1004 Dummy {f00=0x00c8, f01=0x018e, f02=»R - 2 ) p . P* A3 - BITS 12-15 CONNECTION TYPE * * P* BITS 4 -11 LINE NUMBER * @ P* WORK REGISTERS: * n P* * P* SUBROUTINES: * P* * PI:CHSZ EQU * * P IFF SALCUZ=0 * $ P CWK A6,8 CONNECTION NUMBER <=8? * P R
0x3b1004…3b1198 Dummy {f00=0x00c8, f01=0x018e, f02=» 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT + $ P ANK A5,/3F CLEAR BITS TO MODIFY + 8 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER + ` " P SLL A3,4 MOVE TO BITS 4 - 11 + ( P ADK A3,2 ADD CONNECTION TYPE SALCUZ + . P ADKL A6,/0200 ADD CONNECTION TYPE
0x3b1198…3b132c Dummy {f00=0x00c8, f01=0x0190, f02=» + : P***************************************************** , 2 P* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * , F : P***************************************************** , | P* , P* REFERENCED IN: DWTGEN , P* , , P* ENTRY: A1 - POINTER TO
0x3b132c…3b14c0 Dummy {f00=0x00c8, f01=0x0190, f02=»CTION NUMBER , v P* - * P* EXIT: A6 - CHANNEL PARAMETER - 1 - * P* A5 - CHANNEL PARAMETER - 2 - L . P* A3 - BITS 12-15 CONNECTION TYPE - z * P* BITS 4-11 LINE NUMBER - P* - P* WORK REGISTERS: - P* - P
0x3b14c0…3b1654 (1, 1041) Dummy {f00=0x00c8, f01=0x0190, f02=» - ~ $ P CWK A6,1 CONNECTION NUMBER >=1? . P RF(L) NUMERR NO! . 0 , P SUK A6,1 MODIFY LINE CONNECTION NUMBER . J 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT . z $ P ANK A5,/3F CLEAR BITS TO MODIFY . 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER .
0x3b1654…3b17e8 Dummy {f00=0x00c8, f01=0x0190, f02=»IFIED LINE CONNECTION NUMBER . ~ P SLL A3,4 / $ , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER / 6 P SRL A6,2 MOVE TO BITS 12-15 / f ( P ADK A3,3 ADD CONNECTION TYPE ASCU4Z / . P ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z / P RTN A14 / P XIF / P IFT
0x3b17e8…3b197c Dummy {f00=0x00c8, f01=0x0190, f02=»*** / ^ 2 P* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 * 0 : P***************************************************** 0 B P* 0 P* REFERENCED IN: DWTGEN 0 P* 0 , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 0 ( P* A2 - POINTER TO REAL DWT
0x3b197c…3b1b10 Dummy {f00=0x00c8, f01=0x0190, f02=»METER - 1 0 t * P* A5 - CHANNEL PARAMETER - 2 1 . P* A3 - BITS 12-15 CONNECTION TYPE 1 @ * P* BITS 4-11 LINE NUMBER 1 r P* 1 P* WORK REGISTERS: 1 P* 1 P* SUBROUTINES: 1 P* 1 PI:CHVC EQU * 1 P IFF
0x3b1b10…3b1ca4 Dummy {f00=0x00c8, f01=0x0190, f02=»R NO! 1 , P SUK A6,1 MODIFY LINE CONNECTION NUMBER 2 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT 2 > $ P ANK A5,/3F CLEAR BITS TO MODIFY 2 r 0 P LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER 2 P ANK A3,3 GET BITS 14-15 2 & P SLL A3,8 MOVE TO BITS TO
0x3b1ca4…3b1e38 Dummy {f00=0x00c8, f01=0x0190, f02=»6,/1C GET BITS 11-13 BOARD NUMBER 2 P SRL A6,2 MOVE TO BITS 12-15 3 * * P ADK A3,7 ADD CONNECTION TYPE VCCU1/4 3 N . P ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4 3 | P RTN A14 3 P XIF 3 P IFT VIDEO=0 3 P LDKL A1,LMP4 3 P CALL ERROR 3 P
0x3b1e38…3b1fcc Dummy {f00=0x00c8, f01=0x0190, f02=»********************************** 3 P* 4 * P* REFERENCED IN: DWTGEN 4 4 P* 4 T , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT 4 ^ ( P* A2 - POINTER TO REAL DWT 4 * P* A6 - LINE CONNECTION NUMBER 4 P* 4 * P* EXIT: A6 - CHANNE
0x3b1fcc…3b2160 Dummy {f00=0x00c8, f01=0x0190, f02=»BITS 4 -11 LINE NUMBER 4 P* 5 P* WORK REGISTERS: 5 ( P* SUBROUTINES: 5 B P* 5 Z PI:CHPC EQU * 5 d P IFF PLCL=0 5 x ( P CWK A6,128 CONNECTION NUMBER <=128? 5 P RF(G) NUMERR NO! 5 $ P CWK A6,1 CONNECTION NUMBER >=1? 5 P RF(L) NUMERR
0x3b2160…3b22f4 (1, 1042) Dummy {f00=0x016b, f01=0x0190, f02=» LINE CONNECTION NUMBER 5 P ANK A3,/1F GET BITS 11 - 15 6 P ADK A3,1 6 D P SLL A3,8 MOVE TO BITS 2 - 7 6 V & P ORR A5,A3 MERGE WITH OLD CONTENTS 6 z * P LDR A3,A6 GET LINE CONNECTION NUMBER 6 P ADK A3,1 6 " P SLL A3,4 MOVE TO BITS 4 - 11 6 &
0x3b22f4…3b2488 Dummy {f00=0x016b, f01=0x0190, f02=»A6,/0500 ADD CONNECTION TYPE PLC 6 P RTN A14 7 ( P XIF 7 8 P IFT PLCL=0 7 D P LDKL A1,LMP4 7 X P CALL ERROR 7 n P XIF 7 P EJECT 7 . P****************************************** 7 2 P* I:CHPC - INIT CHANNEL PARAMETERS RWSI * =8 7 . P****
0x3b2488…3b261c Dummy {f00=0x016b, f01=0x0190, f02=»WT 7 j ( P* A2 - POINTER TO REAL DWT 8 * P* A6 - LINE CONNECTION NUMBER 8 6 P* 8 d * P* EXIT: A6 - CHANNEL PARAMETER - 1 8 n * P* A5 - CHANNEL PARAMETER - 2 8 . P* A3 - BITS 12-15 CONNECTION TYPE 8 * P*
0x3b261c…3b27b0 Dummy {f00=0x016b, f01=0x0190, f02=» 8 ( P CWK A6,128 CONNECTION NUMBER <=128? 9 P RF(G) NUMERR NO! 9 4 $ P CWK A6,1 CONNECTION NUMBER >=1? 9 N P RF(L) NUMERR NO! 9 v P SUK A6,1 9 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT 9 $ P ANK A5,/3F CLEAR BITS TO MODIFY 9 * P LDR A3,A6
0x3b27b0…3b2944 Dummy {f00=0x016b, f01=0x0190, f02=» MERGE WITH OLD CONTENTS 9 * P LDR A3,A6 GET LINE CONNECTION NUMBER : P ADK A3,1 : N " P SLL A3,4 MOVE TO BITS 4 - 11 : ` , P ADK A3,6 ADD CONNECTION TYPE PLC-REMOTE : , P ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER : " P SRL A6,5 MOVE TO BITS 12 - 15 :
0x3b2944…3b2ad8 Dummy {f00=0x016b, f01=0x0190, f02=»ERROR : r P CALL ERROR ; P EJECT ; " * P************************************* ; 0 . P* I:CHLT - INIT CHANNEL PARAMETERS LT * ; ^ * P************************************* ; P* ; P* REFERENCED IN: DWTGEN ; P* ; , P* ENTRY: A1 - POINTE
0x3b2ad8…3b2c6c Dummy {f00=0x016b, f01=0x0190, f02=» A6 - CHANNEL PARAMETERS -1 ; * P* A5 - CHANNEL PARAMETERS -2 < $ . P* A3 - BITS 12-15 CONNECTION TYPE < R * P* BITS 4-11 LINE NUMBER < P* < P* WORK REGISTERS: < P* < P* SUBROUTINES: < P* < P EJECT
0x3b2c6c…3b2e00 Dummy {f00=0x016b, f01=0x0190, f02=»ONNECTION NUMBER >=01? < P RB(L) NUMERR NO =8! = , P SUK A6,1 MODIFY LINE CONNECTION NUMBER = : 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT = j ( P ANKL A5,/003F CLEAR BITS TO MODIFY = 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER = P ANK A3,
0x3b2e00…3b2f94 (1, 1043) Dummy {f00=0x016b, f01=0x0190, f02=»ION NUMBER = l P SLL A3,4 > P ANK A6,/18 GET BITS 11-12 > $ P SRL A6,3 MOVE TO BITS 14-15 > F P RTN A14 > j P XIF > z P IFT SUML=0 > P LDKL A1,LMP4 > P CALL ERROR > P XIF > P EJECT > . P*****************************************
0x3b2f94…3b3128 Dummy {f00=0x016b, f01=0x018e, f02=»DWTGEN > ~ P* ? , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT ? ( P* A2 - POINTER TO REAL DWT ? H * P* A6 - LINE CONNECTION NUMBER ? t P* ? * P* EXIT: A6 - CHANNEL PARAMETERS - 1 ? * P* A5 - CHANNEL PARAMETERS - 2 ? . P
0x3b3128…3b32bc Dummy {f00=0x016b, f01=0x0190, f02=» ? P* SUBROUTINES: @ P* @ P EJECT @ * PI:CHRT EQU * @ 8 P IFF SUMR=0 @ L * P CWK A6,0016 CONNECTION NUMBER <= 16? @ ` P RB(G) NUMERR NO =8! @ ( P CWK A6,0001 CONNECTION NUMBER >=1? @ P RB(L) NUMERR NO =8! @ , P SUK A6,1 MODIFY LINE
0x3b32bc…3b3450 Dummy {f00=0x016b, f01=0x0190, f02=» MODIFIED LINE CONNECTION NUMBER @ P ANK A3,3 GET BITS 14-15 A ( P SLL A3,8 MOVE TO BITS 6-7 A H & P ORR A5,A3 MERGE WITH OLD CONTENTS A j 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER A P SLL A3,4 A $ P ADK A3,1 ADD CONNECTION TYPE RT A P ANK
0x3b3450…3b35e4 Dummy {f00=0x016b, f01=0x0190, f02=» P IFT SUMR=0 =8 B P LDKL A1,LMP4 B P CALL ERROR B 0 P XIF =8 B D P IFT DC=1 B T P EJECT B f < P******************************************************* B t < P* * B < P* B:CNA BUILD COM
0x3b35e4…3b3778 Dummy {f00=0x016b, f01=0x0190, f02=» * B t < P* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * C $ < P* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * C d < P* TABLE START IS DEFINED BY THE POINTER SCTDCT * C < P* IN SYSTAB.
0x3b3778…3b390c Dummy {f00=0x016b, f01=0x0190, f02=»SYSLOD) * C d < P* * D < P* REFERENCED IN: CONMON * D T < P* SUBROUTINES CALLED: GETDTE, P:DTE * D < P* WORK REGISTERS: A1-A12
0x3b390c…3b3aa0 Dummy {f00=0x016b, f01=0x0190, f02=» P E P E PB:CNA EQU * E P LD A11,DCBLK+STKCOM E 0 * P RF(Z) B:CN20 NO DATA COMMUNICATION =1 E L P* E z < P AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA E * P LD A12,SCTSFA GET START OF FREE AREA E ( P ST A12,SCTDCT UPDATE
0x3b3aa0…3b3c34 (1, 1044) Dummy {f00=0x016b, f01=0x0190, f02=»E TO START OF SDTE RECORD E ~ PB:CN00 EQU * F " P SUK A1,1 F 6 2 P RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA F H P* F ~ . P ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT F , P ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME F & P CALL P:DTE PROCESS THIS DTE B
0x3b3c34…3b3dc8 Dummy {f00=0x016b, f01=0x0190, f02=» PB:CN10 EQU * G P CM 0,A12 AND RESET IT G P ADKL A12,2 G 6 , P ST A12,SCTSFA UPDATE START OF FREE AREA G J PB:CN20 EQU * =1 G z P RTN A14 G P EJECT G < P******************************************************* G < P*
0x3b3dc8…3b3f5c Dummy {f00=0x016b, f01=0x0190, f02=»==================== * G r < P* * H " < P* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * H b < P* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * H < P* ARE DEFINED CURRENT DTE IS DUPLICA
0x3b3f5c…3b40f0 Dummy {f00=0x016b, f01=0x018e, f02=» * H b < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * I < P* SDTE NAME IN CONF. DATA * I R < P* A12 POINTER TO START OF CURRENT * I < P* DTE BLOCK IN SCTDCT TABLE
0x3b40f0…3b4284 Dummy {f00=0x016b, f01=0x0190, f02=» < P* PROCESSED DTE-BLOCK IN CONF. DATA * J < P* A12 POINTER TO LAST DEFINED DTE-BLOCK * J D < P* DEFINED IN SCTDCT TABLE * J < P* * J < P*
0x3b4284…3b4418 Dummy {f00=0x016b, f01=0x0190, f02=» AND MOVE * J < P* * K 4 < P******************************************************* K t P K P K PP:DTE EQU * K * P LDKL A1,/3000 INITIALIZE NAME FILLER K
0x3b4418…3b45ac Dummy {f00=0x016b, f01=0x0190, f02=» START OF TYPE RECORD? K P RF(E) PDTE00 YES! L P* L 8 & P SLL A1,8 NO LEFT ADJUST CHAR. AND L B $ P LC A1,1,A11 GET NEXT CHARACTER L l P ADKL A11,1 L PPDTE00 EQU * L , P ST A1,DTENAM+STKEND SAVE NAME IN STACK L " P CALL GETCOP GET NO OF COPIE
0x3b45ac…3b4740 Dummy {f00=0x016b, f01=0x0190, f02=»YPE IDENTIFIER L P LC A1,2,A11 M & P ST A1,DTETYP+STKEND SAVE IN STACK M * P ADKL A11,2 M T ( P LDK A2,0 RESET NETWORK ADDR. LENGTH M h P CALL ENDBLK END OF D-BLOCK? M P LDR A8,A8 M P RF(Z) PDTE05 YES! M P* M . P LC A7,NANSA,A11 GET NA-NS
0x3b4740…3b48d4 (1, 1045) Dummy {f00=0x016b, f01=0x0190, f02=»NA M h & P ST A11,NASTRT+STKEND SAVE ADDRESS N & P CALL P:NA PROCESS NETWORK ADDRESS N 4 P LC A7,2,A11 N ^ PPDTE05 EQU * N r * P ST A2,NALNG+STKEND SAVE LENGTH OF NA N P LDK A1,0 N P CALL ENDBLK END OF D-BLOCK? N P LDR A8,A8 N P RF(Z) PDTE0
0x3b48d4…3b4a68 Dummy {f00=0x016b, f01=0x0190, f02=» P CALL GETNSA O * P ADKL A11,2 SKIP NSA NR IN CONF. DATA O PPDTE07 EQU * O F 2 P ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. O Z $ P CWK A1,/FF LOOK IF LEGAL NUMBER O P RF(NG) PDTE10 YES! O P* O PNSAERR EQU * O * P LDKL A1,LMP4 NO, ERRO
0x3b4a68…3b4bfc Dummy {f00=0x016b, f01=0x0190, f02=»1,NSAADR+STKEND SAVE ADDR. OF 1ST SUBADDR. O P SLL A1,1 P 2 . P ADR A11,A1 CALCULATE STAT OF NEXT RECORD P D PPDTE15 EQU * P v 2 P CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK P ( P CALL UPDDTE UPDATE DTE BLOCK IN DCT P * P LD A7,DTECOP+STKEND GET NO
0x3b4bfc…3b4d90 Dummy {f00=0x016b, f01=0x0190, f02=»ONSTANT P p * P LD A4,DTENAM+STKEND GET PREVIOUS NAME Q P LDR A3,A4 Q > * P ANK A3,/FF ISOLATE RIGHT BYTE OF NAME Q P P CWK A3,/5F UPPER BOUNDARY? Q ~ P RF(L) PDTE25 NO! Q P* Q , P LC A4,/30 RESET RIGHT BYTE TO ASCII '0' Q & P SLL A5,8 LEFT BYT
0x3b4d90…3b4f24 Dummy {f00=0x016b, f01=0x0190, f02=» END OF D-BLOCK? Q P LDR A8,A8 R P RF(Z) PDTE35 YES! R * P* R D . P LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD R N 0 P CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. R P RF(E) PDTE35 R P* R P CCK A1,'SS' IF NSA RECORD R * P RF(E) PDTE30 USE
0x3b4f24…3b50b8 Dummy {f00=0x016b, f01=0x018e, f02=» NETWORK ADDRESS R ~ * P ST A2,NALNG+STKEND SAVE LENGTH OF NA S P* S F P CALL ENDBLK END OF D-BLOCK? S P P LDR A8,A8 S t P RF(Z) PDTE35 YES! S P* S P LC A1,2,A11 S P CCK A1,'SS' S ( P RF(NE) PDTE35 NO NSA RECORD PRESENT S P* S P
0x3b50b8…3b524c Dummy {f00=0x016b, f01=0x0190, f02=» P ADKL A11,2 T P LDR A1,A1 T P RF(Z) PDTE35 NO SUBADDRESSE T * P* T N P CWK A1,/FF T X , P RB(G) NSAERR TOO MANY SUBADDR. DEFINED T l P* T 4 P ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR. T P SLL A1,1 T . P ADR A11,A1 CALCULATE ST
0x3b524c…3b53e0 Dummy {f00=0x016b, f01=0x0190, f02=»E BLOCK T h P CALL UPDDTE U P RB PDTE20 U $ P* U 6 PPDTE40 EQU * U @ P RTN A14 U T P EJECT U d < P******************************************************** U r < P* * U < P* DTESIZ CALCULATES
0x3b53e0…3b5574 (1, 1046) Dummy {f00=0x016c, f01=0x0190, f02=» * U r < P* ON ENTRY: A12 START OF CURRENT DTE BLOCK * V " < P* * V b < P* WORK REGISTER: A1,A9 * V < P*
0x3b5574…3b5708 Dummy {f00=0x016c, f01=0x0190, f02=»K1+STKEND V 6 P LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS W P ADK A1,1 W L $ P SRL A1,1 2 DIGITS IN EACH BYTE W ^ , P AD A1,DTENSA+STKEND ADD NO OF SUBADDR. W . P ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 W P ANKL A1,/FFFE MAKE EVEN W ( P
0x3b5708…3b589c Dummy {f00=0x016c, f01=0x0190, f02=» 0 P LD A11,LIMIT+STKEND GET END OF SYSTEM AREA X " P CALL CMPADR MEMORY OVERFLOW? X 8 P RF(NL) DTSIZ0 NO! X ^ P* X x P LDKL A1,LMP3 YES! X P CALL ERROR X P* X PDTSIZ0 EQU * X 6 P LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA X P
0x3b589c…3b5a30 Dummy {f00=0x016c, f01=0x018e, f02=» * X f < P* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: * Y < P* ====== * Y V < P* NAME * Y < P* TYPE
0x3b5a30…3b5bc4 Dummy {f00=0x016c, f01=0x0190, f02=» Y V < P* * Z < P******************************************************** Z H P Z P Z PUPDDTE EQU * Z 4 P LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY Z P ADK A6,2 SKIP LINK ENTRY Z , P L
0x3b5bc4…3b5d58 Dummy {f00=0x016c, f01=0x0190, f02=»OM STACK Z p P STR A1,A6 AND SAVE IN DCT [ P ADK A6,2 [ 2 P LDK A5,4 GET NO OF SHIFTS [ D . P ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. [ f 4 P LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. [ $ P LDR A3,A2 SAVE NO OF CHARACTERS [ P SLL A2,8 LEFT A
0x3b5d58…3b5eec Dummy {f00=0x016c, f01=0x0190, f02=»XCPY COPY AND PACK NA TO DCT [ $ P ANKL A5,/1F ISOLATE SHIFT COUNT $ & P CWK A5,4 LESS THAN ONE BYTE LEFT? L P RF(NG) UPDTE2 YES! v PUPDTE0 EQU * P LDK A5,0 SET NO OF SHIFTS P RF UPDTE4 P* PUPDTE2 EQU * P STR A2,A6 STORE
0x3b5eec…3b6080 Dummy {f00=0x016c, f01=0x0190, f02=»QU * , P ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. ] 4 P LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED ] < & P RF(Z) UPDTE8 NO SUBADDR. DEFINED ] t P* ] 4 P LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR. ] P LDR A3,A1 ] * P SLL A3,1 2 DIGITS FOR
0x3b6080…3b6214 (1, 1047) Dummy {f00=0x016c, f01=0x0190, f02=»O! ] P* ^ P STR A2,A6 YES! SAVE IN DCT ^ P LDK A2,0 CLEAR TABLE WORD ^ 8 " P ADK A6,2 ADVANCE DCT POINTER ^ Z P LDK A5,16 NO OF SHIFTS ^ , P ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR. ^ PUPDTE6 EQU * ^ P SUK A5,4 NEXT NIBBLE ^ ( P CALL
0x3b6214…3b63a8 Dummy {f00=0x016c, f01=0x0190, f02=»************************** ^ r < P* * _ " < P* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS * _ b < P* IN ONE WORD. * _ < P*
0x3b63a8…3b653c Dummy {f00=0x016c, f01=0x018e, f02=» * _ b < P* A4 ADDRESS TO FIRST ASCII DIGIT * ` < P* A5 PACKING INSTR. (SLL A1,N TIMES) * ` R < P* A6 POINTER WHERE TO STORE PACKED WORD * ` < P*
0x3b653c…3b66d0 Dummy {f00=0x016c, f01=0x0190, f02=» < P* PROCESSED DIGIT * a < P* A5 PACKING INSTR. (SLL A1,N TIMES) * a D < P* A6 POINTER WHERE TO STORE NEXT WORD * a < P* * a < P****
0x3b66d0…3b6864 Dummy {f00=0x016c, f01=0x0190, f02=»T CHARACTER a P CALL HEXCNV CONVERT TO HEX b P EXR A5 SHIFT b 8 " P ORR A2,A1 CONFIGURE DCT WORD b N ( P SUK A3,1 DECREMENT NO OF CHARACTERS b t $ P RF(Z) HXCPY8 WHOLE NA PROCESSED b P* b P CWK A5,SLL0 FULL WORD? b P RF(NE) HXCPY6 NO! b
0x3b6864…3b69f8 Dummy {f00=0x016c, f01=0x0190, f02=»O OF SHIFTS b , P ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR. c PHXCPY6 EQU * c D P SUK A5,4 NEXT NIBBLE c X * P ADK A4,1 NEXT CHARACTER IN CONF. DATA c v P RB HEXCPY c P* c PHXCPY8 EQU * c P RTN A14 c P EJECT c < P**********************
0x3b69f8…3b6b8c Dummy {f00=0x016c, f01=0x0190, f02=»IMAL DIGIT IN ASCII CODE * c r < P* TO CORRESPONDING HEXADECIMAL VALUE * d " < P* (4 BITS BINARY CODE) * d b < P* * d < P* ON ENTRY: A1 CHARACTER TO CONVERT
0x3b6b8c…3b6d20 Dummy {f00=0x016c, f01=0x0190, f02=» * d b < P* * e < P******************************************************** e R P e P e PHEXCNV EQU * e " P ANK A1,/FF ISOLATE CHARACTER e P CWK A1,/29 e P RF(L) TYPERR ER
0x3b6d20…3b6eb4 (1, 1048) Dummy {f00=0x016c, f01=0x0190, f02=»* e " P CWK A1,/46 DIGIT BETWEEN A-F? f P RF(G) TYPERR NO f 0 P* f H P ADK A1,9 YES! f R PHXCN00 EQU * f h " P ANK A1,/F ISOLATE HEX NUMBER f | P RTN A14 f P* f PTYPERR EQU * f " P LDKL A1,LMP4 CONF. DATA ERROR f P CALL ERROR f
0x3b6eb4…3b7048 Dummy {f00=0x016c, f01=0x0190, f02=» f X < P* P:NA PROCESS NETWORK ADDRESS * g < P* * g H < P* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. * g < P* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE * g < P
0x3b7048…3b71dc Dummy {f00=0x016c, f01=0x0190, f02=»S. * g < P* * h 8 < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK * h x < P* ADDRESS. * h < P*
0x3b71dc…3b7370 Dummy {f00=0x016c, f01=0x018e, f02=»OF NSA RECORD IN CONF. DATA * h x < P* * i ( < P******************************************************** i h P i P i PP:NA EQU * i $ P LDK A4,1 RESET PACKING CONSTANT i " P LDK A2,0 RESE
0x3b7370…3b7504 Dummy {f00=0x016c, f01=0x0190, f02=» $ P RF(Z) P:NA06 END OF CONF. DATA j P* j , P CCK A1,/FF END OF D-BLOCK? j 6 P RF(E) P:NA05 YES! j Z P* j t & P CCK A1,'==' CONTINUATION RECORD? j ~ P RF(E) P:NA04 YES! j P* j . P CCK A1,'NN' NO! START OF NA OR NSA RECORD j P RF(E) P:N
0x3b7504…3b7698 Dummy {f00=0x016c, f01=0x0190, f02=»DDRESS LENGTH j x P CWK A2,/FF TOO MANY DIGITS? k P RF(NG) P:NA02 NO! k : P* k T * P LDKL A1,LMP4 YES! ERROR IN CONF. DATA k ^ P CALL ERROR k PP:NA02 EQU * k P LDR A3,A4 k " P ADR A3,A11 REPACKING ADDRESS k * P SCR A1,A3 PUT CHARACTER BAC
0x3b7698…3b782c Dummy {f00=0x016c, f01=0x0190, f02=»RD IDENTIFIER k p $ P SUK A4,2 SET REPACKING CONSTANT l * P ADKL A11,1 ADVANCE TO NEXT CHARACTER l > P RB P:NA00 l l P* l ~ PP:NA05 EQU * l " P SUK A2,1 DECREMENT NA LENGTH l * P SUKL A11,1 AND POSITION IN CONF. DATA l P* l PP:NA06 EQU * l
0x3b782c…3b79c0 Dummy {f00=0x016c, f01=0x0190, f02=» * l t < P* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK * m $ < P* ================================================= * m d < P* * m < P* END OF BLOCK IS DEFINED BY A REC
0x3b79c0…3b7b54 (1, 1049) Dummy {f00=0x016c, f01=0x0190, f02=»OF * m d < P* CONFIGURATION DATA. * n < P* * n T < P* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA * n < P*
0x3b7b54…3b7ce8 Dummy {f00=0x016c, f01=0x018e, f02=» < P* * o < P******************************************************** o D P o P o PENDBLK EQU * o $ P LC A8,1,A11 GET NEXT CHARACTER o " P CCK A8,/00 END OF CONF. DATA? o P RF(E) ENDBL0 YES!
0x3b7ce8…3b7e7c Dummy {f00=0x016c, f01=0x0190, f02=» o ( P SUR A8,A8 SET END OF D-BLOCK COND. p PENDBL2 EQU * p 4 P RTN A14 p H P XIF p X P EJECT p d T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p r 6 P* GENERAL SUBROUTINES * p T P*=*=
0x3b7e7c…3b8010 Dummy {f00=0x016c, f01=0x0190, f02=»************************ p t 8 P* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * q P* q 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES q f P* q 8 P**************************************************** q P* q " P* REFERENCED IN: B:TCT
0x3b8010…3b81a4 Dummy {f00=0x016c, f01=0x0190, f02=»THE TASK CLASS (BINARY VALUE) q l P* r & P* WORK REGISTERS: A5 r 0 P* r N P* SUBROUTINES: CONVRT r X P* r x PGETTSK EQU * r PGETCTC EQU * r . PGETDTE EQU * GET NO OF DTE BLOCKS DEFINED r . PGETCOP EQU * GET NO OF COPIES OF LAST DTE r
0x3b81a4…3b8338 Dummy {f00=0x016c, f01=0x0190, f02=»RT r P RTN A14 s P EJECT s 8 P**************************************************** s ( 8 P* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * s d 8 P**************************************************** s P* s P* REFERENCED IN: B:TT s P*
0x3b8338…3b84cc Dummy {f00=0x016c, f01=0x0190, f02=»BINRY VALUE) s P* t P* WORK REGISTERS: A5 t P* t < P* SUBROUTINES: CONVRT t F P* t d PGETTDC EQU * t n P LC A5,TDBNC,A11 t P SLL A5,8 t P LC A5,TDBNC+1,A11 t P CALL CONVRT t P RTN A14 t P EJECT t 8 P****************
0x3b84cc…3b8660 Dummy {f00=0x016c, f01=0x018e, f02=»******************* t p P* u P* REFERENCED IN: B:TT u & P* u F 4 P* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD u P P* u D P* EXIT: A1 - NUMBER OF SPECIAL DEVICE CLASSES (BINARY VALUE) u P* u P* WORK REGISTERS: A5 u P* u
0x3b8660…3b87f4 (1, 1050) Dummy {f00=0x016d, f01=0x0190, f02=» u P RTN A14 v P EJECT v 2 P********************************************** v & 2 P* GETCLN - GET CLASS IDENTIFICATION NUMBER * v 2 P********************************************** v P* v P* REFERENCED IN: B:TT v P* v 6 P* ENTRY: A
0x3b87f4…3b8988 Dummy {f00=0x016d, f01=0x0190, f02=»ORK REGISTERS: A5 v P* w P* SUBROUTINES: CONVRT w $ P* w D PGETCLN EQU * w N P LC A5,TDCDD1,A9 w b P SLL A5,8 w z P LC A5,TDCDD2,A9 w P CALL CONVRT w P RTN A14 RETURN w P EJECT w . P*****************************************
0x3b8988…3b8b1c Dummy {f00=0x016d, f01=0x0190, f02=» B:DWTT w ~ P* x 8 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD x P* x V : P* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) x ` P* x P* WORK REGISTERS: A5 x P* x P* SUBROUTINES: CONVRT x P* x PGETLCN EQU * x
0x3b8b1c…3b8cb0 Dummy {f00=0x016d, f01=0x0190, f02=» 2 P ADK A6,TDCLCN ADDRESS LINE CONNECTION NUMBER y , P CALL GETNUM GET LINE CONNECTION NUMBER y : P LDR A1,A5 SAVE BINARY VALUE y j 0 P LDR* A6,A15 RESTORE REGISTER A6 FROM STACK y 0 P LDR* A4,A15 RESTORE REGISTER A4 FROM STACK y P RTN A14 y P E
0x3b8cb0…3b8e44 Dummy {f00=0x016d, f01=0x0190, f02=»* GETTCL - GET TASK CLASS TO MATCH * y : P* ================================ * z > : P* * z | : P* REFERENCED IN: B:TT * z : P*
0x3b8e44…3b8fd8 Dummy {f00=0x016d, f01=0x018e, f02=» * z t : P* EXIT: A5 - TCL START VALUE FOR THIS TASK CLASS * { " : P* * { ` : P* WORK REGISTERS: A1-A7,A10 * { : P*
0x3b8fd8…3b916c Dummy {f00=0x016d, f01=0x0190, f02=» { X : P***************************************************** | P | F PGETTCL EQU * | N P LDR A6,A5 SAVE TCL | b P LDR A7,A6 TCL START VALUE | ~ 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK | 6 P LD A11,STKEND+LCDSTA START OF CONFIGURATION
0x3b916c…3b9300 Dummy {f00=0x016d, f01=0x0190, f02=»L | h P SLL A5,8 MOVE TO LEFT BYTE } . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL } . P CWR A5,A6 SAME TCL? } ` P RF(NE) TCL:50 NO! } | & P CALL GETTSK GET NUMBER OF COPIES } P ADR A7,A1 INCREMENT TCL } 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BL
0x3b9300…3b9494 (1, 1051) Dummy {f00=0x016d, f01=0x018e, f02=»************* } t . P* GETCON - GET CONTENT IN MEMORY WORD * ~ . P***************************************** ~ H P* ~ z P* REFERENCED IN: SEGGEN ~ P* ~ " P* ENTRY: A2 - MEMORY ADDRESS ~ . P* MMUOPT - MMU OPTION SWITCH (X) ~ P
0x3b9494…3b9628 Dummy {f00=0x016d, f01=0x018e, f02=» PGETCON EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION > P RF(Z) GCON10 NO MMU Z P ELR A1,A2 v P RF GCON20 PGCON10 EQU * P LDR* A1,A2 PGCON20 EQU * P RTN A14 RETURN P EJECT . P************
0x3b9628…3b97bc Dummy {f00=0x016d, f01=0x0190, f02=» P* P* REFERENCED IN: DWTGEN P* . 4 P* ENTRY: INTTAB - START OF TEMP.INTERRUPT TABLE 8 6 P* CONTYP - CONNECTION TYPE AND LINE NUMBER p , P* A5 - RUN TIME DWT-ADDRESS P* P* EXIT: P* P* WORK RE
0x3b97bc…3b9950 Dummy {f00=0x016d, f01=0x0190, f02=»T.I.T. n $ P LDR* A2,A4 GET NUMBER OF BLOCKS P SUK A4,2 6 P H P LDR A2,A2 ZERO? P PTTA10 EQU * h P RF(Z) TTA11 YES! | ( P LDR* A4,A4 GET START OF NEXT BLOCK P SUK A2,1 ZERO? P RB TTA10 P* P* AREA TO BUILD BL
0x3b9950…3b9ae4 Dummy {f00=0x016d, f01=0x0190, f02=»JECT P* P* BUILD BLOCKS IN FWT AREA P* 8 PTTA09 EQU * B P LDK A3,5 V PTTA12 EQU * h P SUK A2,2 | < P CW A2,STKEND+FWTSTA START OF FWT OR USED PART OF SYSLDM P RF(E) TTA14 P SUK A3,1 P RF(Z) TTA20 P
0x3b9ae4…3b9c78 Dummy {f00=0x016d, f01=0x018e, f02=» AREA z P* PTTA15 EQU * P LDK A3,5 , PTTA16 EQU * > P SUK A2,2 R P CWR A2,A12 d P RF(E) TTA17 x P ST A2,STKEND+LIMIT P SUK A3,1 P RF(Z) TTA20 P RB TTA16 PTTA17 EQU * P LDKL A1,LMP3
0x3b9c78…3b9e0c Dummy {f00=0x016d, f01=0x018e, f02=» PTTA30 EQU * P ADK A2,4 0 P STR A2,A4 STRORE POINTER TO NEXT FREE BLOCK * P* ^ P* STORE NUMBER OF BLOCKS h P* . P IM* STKEND+INTTAB INCREMENT BLOCK COUNTER P RTN A14 RETURN P EJECT 2 P******************************
0x3b9e0c…3b9fa0 Dummy {f00=0x016d, f01=0x0190, f02=» P* REFERENCED IN: B:ITAB P* ( " P* ENTRY: A8 - CONNECTION TYPE 2 P* A9 - BOARD NUMBER X 8 P* SAVE20 - MAX. LENGTH OF BOARD CONF. TABLE | P* & P* EXIT: A12 - START OF FREE AREA P* , P* WORK REGISTERS:
0x3b9fa0…3ba134 (1, 1052) Dummy {f00=0x016d, f01=0x0190, f02=»ST IF MEMORY OVERFLOW? , P LD A12,SCTSFA NO!GET START OF FREE AREA P LDR A11,A12 SAVE N P ADKL A12,2 h P ST A12,STKEND+BRDTAB STORE | @ P LD A10,STKEND+INTTAB GET START OF TEMPORARY INTERRUPT TABLE , P LDR* A1,A10 GET NUMBER OF BLOCKS.ZE
0x3ba134…3ba2c8 Dummy {f00=0x016d, f01=0x018e, f02=»BER AND CONNECTION TYPE v P LDR A3,A2 SAVE $ P ANK A3,/0F GET CONNECTION TYPE 8 P SUR A3,A8 RIGHT TYPE? ` P RF(Z) BTA30 YES! ~ PBTA20 EQU * $ P LDR* A10,A10 NO!GET NEXT BLOCK P SUK A1,1 LAST BLOCK? P RB BTA10 PBTA3
0x3ba2c8…3ba45c Dummy {f00=0x016d, f01=0x0190, f02=» P RB(G) BTA20 NO! P* P LD A3,STKEND+WRK1 & P CWR A2,A3 @ P RB(L) BTA20 NO! R P* j & P* BUILD BOARD CONFIGURATION TABLE t P* P IM STKEND+WRK3 " P CWK A8,5 LWSI CONNECTION? =2 P RF(E) BTA34 YES! =2 " P CWK A
0x3ba45c…3ba5f0 Dummy {f00=0x016d, f01=0x018e, f02=»A3 P ADR A2,A2 P LDR A12,A11 P ADKL A12,2 0 ( P ADR A12,A2 GET ENTRY IN BOARD TABLE D P STR A11,A12 STORE p P RB BTA20 PBTA40 EQU * P* 2 P* COMPUTE LENGTH OF BOARD CONFIGURATION TABLE P* : P LD A1,STKEND+
0x3ba5f0…3ba784 Dummy {f00=0x016d, f01=0x0190, f02=» P LDR* A2,A12 P RF(NZ) BTA60 P SUK A1,2 2 P RF(Z) BTA70 D P SUKL A12,2 X P RB BTA50 l PBTA60 EQU * ~ : P STR A1,A11 STORE LENGTH OF BOARD CONFIGURATION TABLE P ADKL A12,2 0 P ST A12,SCTSFA STORE NEW START OF FR
0x3ba784…3ba918 Dummy {f00=0x016d, f01=0x0190, f02=»B - BUILD LINE CONFIGURATION TABLES * 2 P********************************************** . P* d P* REFERENCED IN: B:ITAB n P* " P* ENTRY: WRK1 - BOARD NUMBER & P* A8 - CONNECTION TYPE P* & P* EXIT: A12 - START
0x3ba918…3baaac Dummy {f00=0x016d, f01=0x0190, f02=»FIGURATION TABLE l P RF(Z) BLT70 P LDKL A3,-1 LINE COUNTER , P RF BLT15 L PBLT10 EQU * ^ P SUK A1,2 DECREMENT LENGTH r P RF(Z) BLT70 RETURN P* PBLT15 EQU * P LDR A2,A12 P ADK A2,24 B P ST A2,STKEND+FWTFLG
0x3baaac…3bac40 Dummy {f00=0x016d, f01=0x018e, f02=»ER x P ADKL A11,2 P LDR* A2,A11 READ LINE.ZERO? P RB(Z) BLT10 YES! B P LDK A4,32 GET TEST LENGTH ( P CALL M:TST TEST IF MEMORY OVERFLOW? ~ P* $ P* SCAN TEMPORARY INTERRUPT TABLE P* ( P LD A2,STKEND+WRK1 GET BOARD NUMBE
0x3bac40…3badd4 (1, 1053) Dummy {f00=0x016d, f01=0x0190, f02=» z PBLT16 EQU * =8 P SUK A2,1 =2 PBLT17 EQU * =2 4 P ADR A2,A3 ADD LINE NUMBER L P SLL A2,4 n " P ADR A2,A8 ADD CONNECTION TYPE . P LD A10,STKEND+INTTAB GET START OF T.I.T. & P LDR* A4,A10 GET NUMBER OF BLOCKS P SUKL
0x3badd4…3baf68 Dummy {f00=0x016d, f01=0x0190, f02=» ~ P* < P* STORE RUN-TIME DWT-ADDRESS IN LINE CONFIGURATION TABLE P* R * P LD A5,-2,A10 GET RUN TIME DWT-ADDRESS P LDR A6,A5 " P ANK A6,/0001 DOUBLE KEYBOARD? P RF(Z) BLT25 N0! & P LD A6,DWTDEV,A5 GET DEVICE STATUS ( P ANK
0x3baf68…3bb0fc Dummy {f00=0x016d, f01=0x0190, f02=»HANNEL PARAMETERS-2 z P ANK A6,7 GET DEVICE ADDRESS PBLT26 EQU * @ P ADR A6,A6 T P LDR A7,A12 SAVE f P ADR A7,A6 ~ P LD A6,2,A7 ZERO? P RF(Z) BLT27 YES! ( P LD A6,DWTST,A5 NO!GET DEVICE STATUS P ANK A6,/0040 INPUT DEVI
0x3bb0fc…3bb290 Dummy {f00=0x016d, f01=0x0190, f02=»6,2 ADD * P STR A5,A6 STORE RUN TIME DWT-ADDRESS & P ST A6,STKEND+FWTFLG STORE POINTER > * P LD A5,-2,A10 GET RUM TIME DWT-ADDRESS h PBLT27 EQU * * P ST A5,2,A7 STORE RUN TIME DWT-ADDRESS P RF BLT30 PBLT28 EQU * 2 P LD A6,STK
0x3bb290…3bb424 Dummy {f00=0x016d, f01=0x0190, f02=» PBLT30 EQU * P LDR* A10,A10 GET NEXT BLOCK P SUK A4,1 LAST BLOCK? < P RF(Z) BLT40 YES! Z P RB BLT20 NO! t P* D P* MOVE DWT-ADR.IN TEMP.AREA TO FREE LOCATIONS IN LINE CONF.TABLE P* PBLT40 EQU * 2 P LD A6,STKEND+
0x3bb424…3bb5b8 Dummy {f00=0x016d, f01=0x0190, f02=» A4,A12 PBLT41 EQU * P ADK A4,2 $ P LDR* A2,A4 6 P RF(Z) BLT42 J P RB BLT41 ^ PBLT42 EQU * p * P STR A5,A4 STORE RUN TIME DWT-ADDRESS P SUK A6,2 P RB BLT43 P* P* CLEAR TEMP.AREA P* PBLT4
0x3bb5b8…3bb74c Dummy {f00=0x016d, f01=0x018e, f02=»LT48 YES! P CMR A6 NO!CLEAR MEMORY WORD P SUK A6,2 DECREMENT POINTER 6 P RB BLT46 Z P* l 0 P* COMPUTE LENGTH OF LINE CONFIGURATION TABLE v P* PBLT48 EQU * P LDR A2,A12 SAVE 2 P ADK A2,22 ADD. MAX LENGTH OF LINE CONF.
0x3bb74c…3bb8e0 Dummy {f00=0x016d, f01=0x0190, f02=» x P SUK A2,2 P RB BLT50 PBLT60 EQU * , 8 P STR A4,A12 STORE LENGTH OF LINE CONFIGURATION TABLE @ P ADKL A12,2 | J P STR A12,A11 STORE THE ADDRESS IN BOARD CONF.TABLE TO LINE CONF.TABLE 4 P ADR A12,A4 A12 - START OF NEXT LINE CONF.
0x3bb8e0…3bba74 (1, 1054) Dummy {f00=0x016e, f01=0x0190, f02=» P EJECT * P************************************* * P* M:TST - TEST IF MEMORY OVERFLOW * @ * P************************************* n P* P* ENTRY: A4 - TEST LENGTH P* P* WORK REGISTERS: A2,A4 P* PM:TST EQU *
0x3bba74…3bbc08 Dummy {f00=0x016e, f01=0x0190, f02=»LIMIT P RF(NE) MTST20 P LDKL A1,LMP3 $ P CALL ERROR MEMORY OVERFLOW : PMTST20 EQU * ^ P CWR A2,A4 r P RB(NE) MTST10 P RTN A14 RETURN P EJECT B P************************************************************** B P*
0x3bbc08…3bbd9c Dummy {f00=0x016e, f01=0x0190, f02=» * V P* B P************************************************************** P* ^ P* REFERENCED IN: B:DWTT h P* , P* ENTRY: A1 - BINARY NUMBER TO CONVERT P* $ P* EXIT: A1,A5 - ASCII OUTPUT P* P* WORK
0x3bbd9c…3bbf30 Dummy {f00=0x016e, f01=0x018e, f02=»L) BIN:10 =2 P SUKL A1,100 =2 P LDKL A5,/100 =2 . PBIN:10 CWK A1,10 =2 H P RF(L) BIN:20 =2 d P SUK A1,10 =2 ~ P ADK A5,/1 =2 P RB BIN:10 =2 PBIN:20 ORKL A5,/3030 =2 P ORK A1,/30 =2 P SRC A5,8 =2
0x3bbf30…3bc0c4 Dummy {f00=0x016e, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * T : P* MMUINI - INIT MMU TABLE IN TTAB * : P* =============================== *
0x3bc0c4…3bc258 Dummy {f00=0x016e, f01=0x0190, f02=» * : P* ENTRY: APCSTA - APPL. CONTROL BLOCK ADDRESS * 8 : P* * v : P* EXIT: * : P*
0x3bc258…3bc3ec Dummy {f00=0x016e, f01=0x0190, f02=» * n : P* SUBROUTINES: * : P* * Z : P****************************************************** P EJECT PMMUINI EQU * < P LD A2,STKEND+AP
0x3bc3ec…3bc580 Dummy {f00=0x016e, f01=0x018e, f02=»NTRY NUMBER x . P LD A2,APLLAP,A2 GET LOGICAL PAGE ADDRESS ( P SRL A2,12 ISOLATE MMU ENTRY NUMBER F P RF(NZ) MMI:10 PAGES DEFINED r ( P LDK A2,16 MAX NUMBER OF MMU ENTRIES 0 PMMI:10 SUR A2,A3 NUMBER OF ENTRIES TO WRITE P SLL A3,1 TWICE
0x3bc580…3bc714 (1, 1055) Dummy {f00=0x016e, f01=0x0190, f02=» 8 P ADKL A5,TTB:MT ADD DISPL. TO START OF MMU TABLE =6 P LDKL A4,/FC00 =6 @ PMMI:15 EQU * =6 Z 2 P CWR A5,A3 INIT MMU ENTRY WHITH PAGE ERROR? =6 r P RF(E) MMI:16 NO! =6 0 P STR A4,A5 STORE PAGE ERROR IN MMU TABLE =6 P ADK A5,2 NEXT M
0x3bc714…3bc8a8 Dummy {f00=0x016e, f01=0x0190, f02=»I:20 SUK A2,1 MORE ENTRIES TO WRITE? P RF(N) MMI:30 NO , " P STR A4,A3 STORE PAGE ADDRESS D P ADK A3,2 NEXT MMU ENTRY j $ P ADKL A4,/400 NEXT PAGE ADDRESS P RB MMI:20 PMMI:30 RTN A14 RETURN P XIF P EJECT 6 P************
0x3bc8a8…3bca3c Dummy {f00=0x016e, f01=0x0190, f02=»ICATION * p 6 P* ============================== * 6 P* * T 6 P* REFERENCED IN: * 6 P* * 6 P* ENT
0x3bca3c…3bcbd0 Dummy {f00=0x016e, f01=0x0190, f02=»PPL. CONTROL BLOCK * v 6 P* A11- START OF CONFIGURATION DATA * 6 P* * Z 6 P* WORK REGISTERS: A2 * 6 P* * 6 P
0x3bcbd0…3bcd64 Dummy {f00=0x016e, f01=0x0190, f02=»***************************** | PFSTAPL EQU * & , P LD A2,SYSLOD GET NUMBER OF APPLICATIONS : P ST A2,STKEND+APLNO SAVE j 6 P LDKL A2,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK P ST A2,STKEND+APCSTA SAVE 6 P LD A11,STKCOM+CONSTA START OF CON
0x3bcd64…3bcef8 Dummy {f00=0x016e, f01=0x0190, f02=» * 6 P* NXTAPL - GET NEXT APPLICATION * * 6 P* ============================= * d 6 P* * 6 P* REFERENCED IN:
0x3bcef8…3bd08c Dummy {f00=0x016e, f01=0x0190, f02=»PCSTA - CURRENT APPL. CONTROL * 6 P* BLOCK ADDRESS * 0 6 P* * j 6 P* EXIT: APLNO - REMAINING NUMBER OF APPL.-1 * 6 P* APCSTA - NEXT APPL. CONTROL BLOCK
0x3bd08c…3bd220 Dummy {f00=0x016e, f01=0x0190, f02=»ORK REGISTERS: A1,A2 * 6 P* * 6 6 P* SUBROUTINES: * p 6 P* * 6 P************************************
0x3bd220…3bd3b4 (1, 1056) Dummy {f00=0x016e, f01=0x0190, f02=» ST A2,STKEND+APLNO SAVE REMAINING NUMBER OF APPL. P RF(Z) NOAPL NO MORE! : * P CALL NXTADB GET NEXT APPL DEF. BLOCK X @ P LD A2,STKEND+APCSTA GET ADDRESS TO CURRENT APPL. CTRL BLOCK ( P ADK A2,ACBLEN NEXT APPL. CTRL BLOCK & P ST A2,STKEND+APCS
0x3bd3b4…3bd548 Dummy {f00=0x016e, f01=0x0190, f02=» RTN A14 RETURN P EJECT D P**************************************************************** & D P* * n D P* NXTADB - GET NEXT APPLICATION DEF. BLOCK * D P*
0x3bd548…3bd6dc Dummy {f00=0x016e, f01=0x0190, f02=» REFERENCED IN: NXTAPL * D P* * F D P* ENTRY: A11 - CURRENT POINTER TO CONFIGURATION DATA * D P*
0x3bd6dc…3bd870 Dummy {f00=0x016e, f01=0x0190, f02=»EXT APPL. DEF BLOCK * f D P* * D P* WORK REGISTERS: * f D P* * D P* SUBROUTINES: E
0x3bd870…3bda04 Dummy {f00=0x016e, f01=0x0190, f02=»****************************************************** PNXT10 ADKL A11,1 NEXT CHAR > ( PNXTADB LCR A2,A11 GET NEXT CHARACTER ` $ P CCK A2,/0000 END OF CONF DATA? P RF(NE) NEXT20 NOT YET P LDKL A1,LMP4 FORMAT ERROR P CALL ERROR 2 P
0x3bda04…3bdb98 Dummy {f00=0x016e, f01=0x0190, f02=» v P RTN A14 RETURN P EJECT 2 P********************************************* . 2 P* * d 2 P* CHKMOV - CHECK MEMORY OVERFLOW AND MOVE * 2 P* ======================================= * 2 P*
0x3bdb98…3bdd2c Dummy {f00=0x016e, f01=0x018e, f02=» * r 2 P* ENTRY: A1 - FROM-ADDRESS * 2 P* A2 - TO-ADDRESS * N 2 P* A3 - LENGTH * 2 P* STKEND+LIMIT - END OF SYSTEM * 2 P*
0x3bdd2c…3bdec0 Dummy {f00=0x016e, f01=0x0190, f02=» 2 P* * 2 P* WORK REGISTERS: * : 2 P* * p 2 P* SUBROUTINES: MOVE,ERROR * 2 P*
0x3bdec0…3be054 (1, 1057) Dummy {f00=0x016e, f01=0x0190, f02=»E A11 ON STACK P LDR A11,A3 GET LENGTH . P XRR A9,A9 PHYSICAL END OF FIRST PARTITION 4 0 P SUR A9,A2 COMPUTE AREA LEFT IN FIRST PART. f & P CALL CMPADR ENOUGTH MEMORY LEFT? P RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x3be054…3be1e8 Dummy {f00=0x016e, f01=0x018e, f02=»RE ADDRESSES ~ & P RB(G) CHK10 SYSTEM AREA OVERFLOW! P CALL MOVE MOVE AREA > P LDR* A11,A15 RESTORE A11 Z P LDR* A9,A15 RESTORE A9 | P RTN A14 P EJECT D P**************************************************************** D P*
0x3be1e8…3be37c Dummy {f00=0x016e, f01=0x0190, f02=» PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE P IFF FM=0 D & P CALL B:FWT BUILD FILE WORK TABLES V P XIF ( P CALL MONBLK GENERATE MONITOR BLOCKS P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:
0x3be37c…3be510 Dummy {f00=0x016e, f01=0x0190, f02=»BT BUILD SWAPPABLE WORK BLOCK TABLE P XIF , P IFF MMUPAG+DSKPAG=0 8 ( P CALL B:STAB BUILD SEGMENT TABLE(S) T P XIF P IFF SPDVCL+TEDVCL=0 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES P XIF P IFF TEDVCL=0 2 P CALL B:
0x3be510…3be6a4 Dummy {f00=0x016e, f01=0x0190, f02=»B:ITAB BUILD INTERRUPT TABLE =7 P XIF ( P IFT DC=1 =7 4 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 J P XIF P EJECT F P***************************************************************** F P* END OF MONITOR SA
0x3be6a4…3be838 Dummy {f00=0x016e, f01=0x4046, f02=»********************************************* | P END 6@ B 6 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 J P XIF P EJECT F P***************************************************************** F P* END OF MONITOR SA
0x3be838…3be9cc Dummy {f00=0x016e, f01=0x403c, f02=» 0 P******************************************** @ 8********************************************************* 4 F P* END OF MONITOR SAVE01URATION PART * ~ F P* -CONTINUE WITH APPLICATION SAVE01URATION PART
0x3be9cc…3beb60 Dummy {f00=0x016e, f01=0x2008, f02=» P X ` h p
0x3beb60…3becf4 (1, 1058) Dummy {f00=0x016f, f01=0x0190, f02=»FDS1,ACFDS1,ACFDOK,ACFDRS | 2 P CAENT4 RQ+S:MSTS,ACFDOK,ACFDR2,ACFDR2,ACFDR2 " PFDTSE EQU * X , P CAENT4 M:00,ACFDS2,ACFDS2,ACFDOK,ACFDS2 l P EJECT P* P* P* P* FDTAC - ACTION TABLE P* PFDTAC EQU * P D
0x3becf4…3bee88 Dummy {f00=0x016f, f01=0x0190, f02=»FDAC EQU *-FDTAC P DATA HSFD40 ACFPR PACFDPR EQU *-FDTAC 2 P DATA HSFD92 ACFDOK L PACFDOK EQU *-FDTAC h P . RECEIVE ERRORS P DATA HSFD80 ACFDR1 PACFDR1 EQU *-FDTAC P DATA HSFD81 RECEIVE ERROR PACFDR2 EQU *-FDTAC
0x3bee88…3bf01c Dummy {f00=0x016f, f01=0x0190, f02=» P EJECT P* P* ACTIONS P* . PHSFD30 EQU * RESET 8 4 P CF A14,SSUS59 SAVE REGS FOR SESSION AREA RESET R 2 P CF A14,HSCRST RESET SESSION AREA +RSP(CLEAR) P CF A14,SSUR59 LOAD REGS P LDK A5,SC:FRS STATUS RESET P RF
0x3bf01c…3bf1b0 Dummy {f00=0x016f, f01=0x0190, f02=»DK A5,SC:FAC STATUS ACTIVE P RF HSFD90 " PHSFD40 EQU * PENDING RESET 4 ( P LDK A5,SC:FPR STATUS PENDING RESET V P RF HSFD90 P* P* PHSFD80 EQU * RECEIVE ERROR . P LDK A1,S:CMDI SNC=0809 MODE INCONSISTANCY P RF HSFD95
0x3bf1b0…3bf344 Dummy {f00=0x016f, f01=0x018e, f02=» x * P LDK A1,R:CMDI RC= MODE INCONSISTANCY P RF HSFD95 6 PHSFD84 EQU * SEND ERROR H * P LDK A1,R:CDTR RC= DATA TRAFFIC RESET h P RF HSFD95 P EJECT P* P* P* UPDATE FMS FDT P* PHSFD90 EQU * , P ANKL A6
0x3bf344…3bf4d8 Dummy {f00=0x016f, f01=0x0190, f02=» P ADKL A14,BYTE4 P SUR A1,A1 ++++ REPL " P ABR* A14 REUTRN WITH COND SET 8 P EJECT ^ T P******************************************************************************** l P* P* NAME DESCRIPTION 8 P* HSFSTS TC FSM FOR MESSAGE SEQU
0x3bf4d8…3bf66c Dummy {f00=0x016f, f01=0x0190, f02=»**************************************************** t P EJECT < PHSFSTS EQU * J P ++++++ ADDD ^ P ADKL A14,BYTE4 t P SUR A1,A1 ++++REPLACE 0 P ABR* A14 RETURN TO CALLER WITH COND REG SET P EJECT T P****************************
0x3bf66c…3bf800 Dummy {f00=0x016f, f01=0x0190, f02=» 6 P* CALLED FROM HSSCR AND HSSCS FOR CHECK AN UPDATE P* > P* H T P******************************************************************************** R P EJECT PHSFRQR EQU * P +++++ ADDD P ADKL A14,BYTE4 P SUR A1,A1 +++
0x3bf800…3bf994 (1, 1059) Opaque[0x194]
0x3bf994…3bfb28 # DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b28, f03=0x0000}
0x3bf994…3bfb28 IdxSect {
0x3bf994…3bfb28 f00 = 0x0059 // 0x3bf994 @0x0
0x3bf994…3bfb28 f01 = 0x005a // 0x3bf996 @0x2
0x3bf994…3bfb28 gno = [ // 0x3bf998 @0x4
0x3bf994…3bfb28 [0x00]: C0x0059.0x1.0
0x3bf994…3bfb28 [0x01]: C0x005a.0x0.0
0x3bf994…3bfb28 [0x02]: C0x005a.0x2.0
0x3bf994…3bfb28 [0x03]: C0x005a.0x3.0
0x3bf994…3bfb28 [0x04]: C0x005b.0x0.0
0x3bf994…3bfb28 [0x05]: C0x005b.0x1.0
0x3bf994…3bfb28 [0x06]: C0x005b.0x2.0
0x3bf994…3bfb28 [0x07]: C0x005b.0x3.0
0x3bf994…3bfb28 [0x08]: C0x005c.0x0.0
0x3bf994…3bfb28 [0x09]: C0x005c.0x1.0
0x3bf994…3bfb28 [0x0a]: C0x005c.0x2.0
0x3bf994…3bfb28 [0x0b]: C0x005c.0x3.0
0x3bf994…3bfb28 [0x0c]: C0x005d.0x0.0
0x3bf994…3bfb28 [0x0d]: C0x0098.0x3.0
0x3bf994…3bfb28 [0x0e]: C0x0099.0x0.0
0x3bf994…3bfb28 [0x0f]: C0x0099.0x1.0
0x3bf994…3bfb28 [0x10]: C0x0099.0x2.0
0x3bf994…3bfb28 [0x11]: C0x0099.0x3.0
0x3bf994…3bfb28 [0x12]: C0x009a.0x0.0
0x3bf994…3bfb28 [0x13]: C0x009a.0x1.0
0x3bf994…3bfb28 [0x14]: C0x009a.0x2.0
0x3bf994…3bfb28 [0x15]: C0x009a.0x3.0
0x3bf994…3bfb28 [0x16]: C0x009b.0x0.0
0x3bf994…3bfb28 [0x17]: C0x00d8.0x3.0
0x3bf994…3bfb28 [0x18]: C0x00d9.0x0.0
0x3bf994…3bfb28 [0x19]: C0x00d9.0x1.0
0x3bf994…3bfb28 [0x1a]: C0x00fe.0x3.0
0x3bf994…3bfb28 [0x1b]: C0x00ff.0x0.0
0x3bf994…3bfb28 [0x1c]: C0x00ff.0x1.0
0x3bf994…3bfb28 [0x1d]: C0x00ff.0x2.0
0x3bf994…3bfb28 [0x1e]: C0x00ff.0x3.0
0x3bf994…3bfb28 [0x1f]: C0x0100.0x0.0
0x3bf994…3bfb28 [0x20]: C0x0119.0x2.0
0x3bf994…3bfb28 [0x21]: C0x0119.0x3.0
0x3bf994…3bfb28 [0x22]: C0x011a.0x0.0
0x3bf994…3bfb28 [0x23]: C0x011a.0x1.0
0x3bf994…3bfb28 [0x24]: C0x011a.0x2.0
0x3bf994…3bfb28 [0x25]: C0x011a.0x3.0
0x3bf994…3bfb28 [0x26]: C0x011b.0x0.0
0x3bf994…3bfb28 [0x27]: C0x011b.0x1.0
0x3bf994…3bfb28 [0x28]: C0x011b.0x2.0
0x3bf994…3bfb28 [0x29]: C0x011b.0x3.0
0x3bf994…3bfb28 [0x2a]: C0x011c.0x0.0
0x3bf994…3bfb28 [0x2b]: C0x011c.0x1.0
0x3bf994…3bfb28 [0x2c]: C0x011c.0x2.0
0x3bf994…3bfb28 ]
0x3bf994…3bfb28 }
0x3bfb28…3bfcbc Dummy {f00=0x0059, f01=0x0190, f02=» 2 P IDENT SYSLOD REL 11.0 81-12-17 870105041100 P : 0 P =15, LOADING SEVERAL APPL. FROM 80M DISC B P =15, REL 11.0 81-11-10 v * P =14,LOADING SEGMENTS FROM CASSETTE " P =14,REL 11.0 81-09-25 SVBU ( P =13, ERROR WHEN SEGMENT S
0x3bfcbc…3bfe50 Dummy {f00=0x0059, f01=0x0190, f02=» IN READ ROUT. FOR 16M,80M P =11,REL 11.0 81-05-11 " , P =10,TWO WORDS IN INTERRUPT TABLE ARE B P =10,DESTROYED r P =10,REL 11.0 81-04-08 ( P =9,NEW CONTROL UNIT 16M,80M DISC P =9,REL 11.0 81-04-06 2 P =8,WHEN CFTEST=
0x3bfe50…3bffe4 Dummy {f00=0x0059, f01=0x018e, f02=» * P =6,DC BLOCK DESTROYED WHEN CFTEST=0 P =6,REL 11.0 81-02-06 2 2 P =5,SUPPORTS LOADING FROM TWO HARDDISC UNITS R P =5,REL 11.0 81-01-29 P =4,FLOPPY MUX CORRECTED P =4,REL 11.0 81-01-26 & P =3,IF 256 KBYTE MEMORY OVER
0x3bffe4…3c0178 Dummy {f00=0x0059, f01=0x0190, f02=» b 0 P =2,REDESIGNED SEGMENT ALLOCATION ALGORITM P =2,PRR 11.0 80-11-20 < * P =1,MXSTAB ADDR. NOT REL IF CFTEST=0 P =1,PRR 11.0 80-11-19 P ENTRY SYSLOD P ENTRY SYSBAS P ENTRY NUMSEG P ENTRY PRGLG1 P ENTRY
0x3c0178…3c030c Dummy {f00=0x0059, f01=0x0190, f02=»NPE P ENTRY APLREL P ENTRY APLSTA " P ENTRY APLTYP 8 P ENTRY APLIOE N P ENTRY APLSEG d P ENTRY APLSWB z P*************************** P* * P* ENTRIES AND EXTERNALS * P*
0x3c030c…3c04a0 Dummy {f00=0x0059, f01=0x018e, f02=»H SAVE REGISTER CONTENTS P EXTRN SYSLDM P EXTRN SCTANO 6 P EXTRN SCTBUG L P EXTRN SCTEFA b P EXTRN SCTMSZ x 2 P EXTRN SCTMXS ADDRESS TO MONITOR EXTENT TABLE P EXTRN SCTNOP P EXTRN SCTOPT P EXTRN SCTIPL P E
0x3c04a0…3c0634 (1, 1060) Dummy {f00=0x005a, f01=0x0190, f02=» P EXTRN TABBE P EXTRN MMEND P EXTRN CMPADR , P EXTRN MOVE B 4 P EXTRN TTB:MT DISPLACEMENT TO MMU TABLE IN TTAB V P EXTRN TTB:CB P EXTRN STKCOM P EXTRN STKEND P EJECT P P $ P******************
0x3c0634…3c07c8 Dummy {f00=0x005a, f01=0x0190, f02=»K: z PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS , , PTDBID EQU TDBNT+2 6A TASK ID START VALUE X , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK LEVEL : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL
0x3c07c8…3c095c Dummy {f00=0x005a, f01=0x0190, f02=»ION z ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* 8 * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD B P* p P* COMMON DEVICE DEF. BLOCK: z PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES ( PSDCFST EQU CDB
0x3c095c…3c0af0 Dummy {f00=0x005a, f01=0x0190, f02=»UDBBT+1 3A NUMBER OF UWB TYPES P* & ( PUDBFST EQU UDBNU+3 SAVE05 UDB-RECORD 0 PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS | . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH P EJECT P**************** P* SOP-HANDLING
0x3c0af0…3c0c84 Dummy {f00=0x005a, f01=0x0190, f02=» EQU /100 PLMP4 EQU /80 PLMP5 EQU /40 & PLMP6 EQU /20 : PLMP7 EQU /10 N PLMP8 EQU 8 b PLMP9 EQU 4 t PLMP10 EQU 2 PLMP11 EQU 1 P EJECT P P ( P*********************************** ( P* MXSTAB DISPLA
0x3c0c84…3c0e18 Dummy {f00=0x005a, f01=0x0190, f02=»NT CLUSTERS t P P 2 P********************************************* $ 2 P* * Z 2 P* APCTAB DISPLACEMENTS * 2 P* ==================== * 2 P*
0x3c0e18…3c0fac Dummy {f00=0x005a, f01=0x0190, f02=»N DISC FILE ADDRESS =2 x . PAPLREL EQU 18 APPLICATION RELOCATION BASE , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS P 8 PAPLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE ADDRESS 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR
0x3c0fac…3c1140 Dummy {f00=0x005a, f01=0x0190, f02=»SICAL START OF 1ST SEGMENT . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU " . PAPLPSZ EQU 20 APPLICATION SEGMENT SIZE =2 T PAPLSWB EQU 2 APPLICATION SWB * PAPLSTA EQU 16 APPL. PGM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE P EJECT
0x3c1140…3c12d4 (1, 1061) Dummy {f00=0x005a, f01=0x0190, f02=» * ~ " P* * " P****************************** : P ` P l 6 PACBLEN EQU 26 APPLICATION CONTROL BLOCK LENGTH =2 x 0 PAPLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE $ PAPPLNO EQU 18 APPLICATION NUMBER
0x3c12d4…3c1468 Dummy {f00=0x005a, f01=0x0190, f02=»DATA l ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER 8 * PFSTPAG EQU 22 1ST FREE PAGE (PHYSICAL) v , PFYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER 6 PLSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART
0x3c1468…3c15fc Dummy {f00=0x005a, f01=0x0190, f02=» $ PM:REL EQU 16 RELOCATION CONSTANT , PSYSBUF EQU 28 START OF TEMPORARY BUFFER , 2 PSWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) 0 PSWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) ( PTTAB EQU 32 WORK AREA FOR MMU TABLE $ PCOM01 EQU 40 COMMON SA
0x3c15fc…3c1790 Dummy {f00=0x005a, f01=0x018e, f02=» j , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 8 ( PDCBLK EQU 54 START OF DC CONF. DATA ` P EJECT " P****************************** " P* * " P* LOCAL DISPLACEMENTS *
0x3c1790…3c1924 Dummy {f00=0x005a, f01=0x0190, f02=» , PAPLCNT EQU 4 NO OF APPLICATIONS TO LOAD & PBLKLEN EQU 6 SEGMENT BLOCK LENGTH 8 8 PCARFIX EQU 54 CARTRIDGE OR FIX INDICATOR 16M DISC =9 b ( PCBLEN EQU 256 CASSETTE BUFFER LENGTH , PCOMLG EQU 4 LENGTH OF CORE RESIDENT PART * PCONDAD EQU 44
0x3c1924…3c1ab8 Dummy {f00=0x005a, f01=0x0190, f02=»LOCK l PDEVTYP EQU 50 DEVICE TYPE 6 PDISCAD EQU 28 SAVE AREA FOR DISC ADDRESS (2 WORDS) . $ PECNFBF EQU 6 END OF CONF. BUFFER h $ PEINPBF EQU 2 END OF INPUT BUFFER $ PESYSTA EQU 0 END OF SYSTEM AREA & PEXLEN EQU 4 MONITOR EXTENT LENGTH 6
0x3c1ab8…3c1c4c Dummy {f00=0x005a, f01=0x0190, f02=»LOAD DEVICE p & PIPLTYP EQU 48 PGM LOAD DEVICE TYPE & PLLDADR EQU 12 LOGICAL LOAD ADDRESS > , PLSTREC EQU 20 LAST RECORD OF CONF. FILE h 0 PLSTASG EQU 8 LOGICAL START OF FIRST SEGMENT PMONNO EQU 22 MONITOR NUMBER * PNCHAID EQU 8 NO OF CHAR.
0x3c1c4c…3c1de0 Dummy {f00=0x005a, f01=0x0190, f02=» OF SEGM. IN S:GTAB v . POPTION EQU 52 SAVE AREA FOR OPTOIN WORD =2 & PPAGLG EQU 8 PAGE LENGTH IN S:GTAB N ( PPAGSIZ EQU /1000 PHYSICAL PAGE SIZE x ( PPLDADR EQU 14 PHYSICAL LOAD ADDRESS , PPRGLG1 EQU 2 PROGRAM LENGTH DISPLACEMENT : PPSECNL E
0x3c1de0…3c1f74 (1, 1062) Dummy {f00=0x005a, f01=0x0190, f02=»AL SECTOR PART (0-2) | ( PREWFLG EQU 56 REWIND INDICATION =14 " PSEGCNT EQU 10 SEGMENT COUNTER H $ PSWPFEL EQU 14 FILE EXTENT LENGTH n * PTNBRSG EQU 26 TOTAL NUMBER OF SEGMENTS P EJECT P*********************** P* CASSETTE HANDLING
0x3c1f74…3c2108 Dummy {f00=0x005a, f01=0x0190, f02=»EARCH BEGINNING OF TAPE ( PSTMF EQU /C SEARCH TAPEMARK FORWARD P* L " P* DISC/FLEXIBLE DISC HANDLING V P* | ( PBUFLEN EQU 256 LENGTH OF READ BUFFER * PDKBA3 EQU 514 BUFFER LENGTH VERSION A3 2 PRECLEN EQU 9 CONFIGURATION FILE RECORD L
0x3c2108…3c229c Dummy {f00=0x005a, f01=0x0190, f02=»XCC EQU /8080 1:ST MUX WORD * PMXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS $ PQBLFAC EQU 6 BLOCKING FACTOR R , PCIO EQU /41C0 I/O INSTR. CONF. CONSTANT v P EJECT P F P***************************************************************** F
0x3c229c…3c2430 Dummy {f00=0x005a, f01=0x0190, f02=» * T F P* * F P***************************************************************** X P P P PCALL FORM 16=/F697,16 P EJECT P**********************
0x3c2430…3c25c4 Dummy {f00=0x005a, f01=0x0190, f02=» r P* P P PX:A EQU 1 " PX:B EQU 1 4 PX:C EQU 1 F PX:D EQU 0 X PX:E EQU 0 j PX:F EQU 0 =9 | PX:G EQU 1 =9 P ( PMMUPAG EQU 0 1-MMU HARDWARE PRESENT . PEDM EQU 0 1-SUPPORTS EXTENDED MONITORS =12
0x3c25c4…3c2758 Dummy {f00=0x005a, f01=0x0190, f02=»LOAD DEVICE = FLEXIBLE DISC v : PMFDISC EQU X:D 1-PROGRAM LOAD DEVICE = MINI FIXED DISC $ 6 PCDDISC EQU X:E 1-PROGRAM LOAD DEVICE=80M CDC DISC b : PCDDI16 EQU X:F 1-PROGRAM LOAD DEVICE = 16M CDC DISC =9 2 PCFTEST EQU X:G 1-TEST OF CONFIGURATION FILE =9
0x3c2758…3c28ec Dummy {f00=0x005a, f01=0x0190, f02=»** : P* * : P* APPLICATION LOAD PART OF SYSLOD * H : P* =============================== * : P* * 8 P* ENT
0x3c28ec…3c2a80 Dummy {f00=0x005a, f01=0x0190, f02=»ICATION NUMBER * | : P* A7 - APPLICATION DISC ADDRESS BIT 16-31 * * : P* A8 - APPLICATION DISC ADDRESS BIT 0-15 * h : P* A9 - START OF FREE AREA * : P* A13 - MONITOR START ADDRES
0x3c2a80…3c2c14 (1, 1063) Dummy {f00=0x005b, f01=0x018e, f02=» * ` : P* * : P* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM * L : P* LODSEG,REBUF,MOVBUF,RDBLK, * : P* CONLOD,CONEX,MOVREV * : P*
0x3c2c14…3c2da8 Dummy {f00=0x005b, f01=0x0190, f02=» P* P* SAVE REGISTERS P* , 4 P ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE 6 * P ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE n P ST A2,IPLDEV+STKEND 2 P CM CONDEV+STKEND RESET CONF. DATA DEV. ADDR. $ P ST A3,SCTANO APPLICATION
0x3c2da8…3c2f3c Dummy {f00=0x005b, f01=0x0190, f02=»E AREA t " P LDK A1,1 INITIATE NO OF APPL. P STR A1,A3 AND SAVE IN TABLE 4 > P ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 X > P ST A7,APLADA+4,A3 SAVE APPLICATION DISC ADDRESS BIT 16-31 * P ST A9,SCTSFA SAVE START OF FREE AREA
0x3c2f3c…3c30d0 Dummy {f00=0x005b, f01=0x018e, f02=» 8 P ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START ! P ABR(NZ) A1 ! @ P* ! T PSYS110 EQU * ! ^ " P LD A15,SCTSTB LOAD STACK BASE ! r " P SUKL A15,4 ADJUST STACK BASE ! P* ! P* INDICATE SYSLOD RUNS ! P* ! P LDKL A1,LMP1 ! P
0x3c30d0…3c3264 Dummy {f00=0x005b, f01=0x018e, f02=» ! n P* " P LDR A8,P RETURN ADDRESS " & P LDKL A3,REL+2 RELOCATION ROUTINE " 2 P CFR A8,A3 " $ P LDKL A5,/5555 LOAD TEST PATTERN " n P LDK A6,64 INIT PAGE COUNTER " P IFT MMUPAG=1 " P EJECT " P* " > P* EXECUTION PATH FOR SYSTEMS WI
0x3c3264…3c33f8 Dummy {f00=0x005b, f01=0x0190, f02=» " P LD A2,TABBE GET PAGE ADDRESS # 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS # * P ST A2,TABBE STORE IT BACK # ` P TL TABBE LOAD MMU REGISTERS # 0 P EL A3,PAGSIZ-2,A1 SAVE OLD MEMORY CONTENTS # * P ES A5,PAGSIZ-2,A1 STORE TEST PATTERN # * P
0x3c33f8…3c358c Dummy {f00=0x005b, f01=0x0190, f02=» # l P RF(E) AP:020 $ ( P SUK A6,4 DECREMENT NUMBER OF PAGES $ P RB AP:010 $ J P* $ $ P* CHECK IF MMU HARDWARE PRESENT $ f P* $ PAP:020 LDKL A1,/FC00 $ 6 P ST A1,MMDDIV,A13 SET 1ST ENTRY IN MMU TABLE AREA $ , P TL MMDDIV,A13 TRY TO LOAD
0x3c358c…3c3720 Dummy {f00=0x005b, f01=0x0190, f02=»SENT $ v P LDKL A1,LMP9 % . P CALL ERROR INDICATE HARDWARE NOT PRESENT % " $ PAP:030 CM TABBE RESET MMU TABLE % T P* % | D P* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY % P* % P XIF % P IFT MMUPAG=0 % P EJECT % P
0x3c3720…3c38b4 (1, 1064) Dummy {f00=0x005b, f01=0x0190, f02=»FFFE % t PAP:110 EQU * & & P SUKL A1,PAGSIZ NEXT PHYSICAL PAGE & ( P LDR* A2,A1 SAVE OLD MEMORY CONTENT & J " P STR A5,A1 STORE TEST PATTERN & v P CWR* A5,A1 CHECK IF MEMORY & " P RF(E) AP:120 MEMORY END FOUND & 0 P SUK A6,4 DECREMENT NUMBER OF PHYS
0x3c38b4…3c3a48 Dummy {f00=0x005b, f01=0x0190, f02=» FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY & x P* ' 4 P XIF ' > P EJECT ' J P* ' X P* COMMON EXECUTION PATH ' b P* ' PAP:200 EQU * ' 0 P ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES ' " P SRL A6,2 MAKE NO OF 4K FRAMES ' " P SLL A6,10 MAK
0x3c3a48…3c3bdc Dummy {f00=0x005b, f01=0x0190, f02=» LD A1,SCTOPT GET OPTION WORD =2 ' P ST A1,OPTION+STKEND =2 ( ( $ P ANKL A1,/FFF RESET TYPE BITS =2 ( J * P ST A1,SCTOPT AND SET AS NEW OPTION =2 ( r P* ( H P* INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE ( ( P LD A9,SCTSFA POIN
0x3c3bdc…3c3d70 Dummy {f00=0x005b, f01=0x018e, f02=»IZE PROGRAM LOAD DEVICE ( P* ) P CF A14,LODDEV ) * P LDR A3,A9 SAVE ) @ . P AD A3,SAVCON COMPUTE START OF APPL. TABLE ) X " P ST A3,SCTSFA STORE IN SYSTAB ) P LDR A1,A1 ) " P RF(Z) AP:233 CASSETTE LOADING ) P* ) 2 P ST A2,SCTIPL SET FILE
0x3c3d70…3c3f04 Dummy {f00=0x005b, f01=0x018e, f02=» ) l P* * ( P CF A14,LODMEX LOAD MONITOR EXTENTS * P XIF * > P* * J $ P* SCAN CONF. FILE FOR POSSIBLE * T $ P* APPLICATION DEFINITION BLOCKS * | P* * P CF A14,SCNCON * ( P LD A1,APLTAB+STKCOM GET ADDRESS TO * ( P ADK A1,2 CURRENT APPL.
0x3c3f04…3c4098 Dummy {f00=0x005b, f01=0x0190, f02=» ( P LD A10,READ GET SUBROUTINE ADDRESS + " P CFR A14,A10 READ FIRST SECTOR + 0 PAP:233 EQU * + V 0 P LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS + j ( P LDR* A6,A1 GET NO OF APPL. TO LOAD + P NGR A6,A6 NEGATE AND SAVE + $ P ST A6,APLCNT+STKEND AS COUN
0x3c4098…3c422c Dummy {f00=0x005b, f01=0x0190, f02=»TO USE + r ( P LD A5,SCTEFA+2 AND AREA EMPTY IN IT , : P LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR. , : P EJECT , x PAP:235 EQU * , P* , . P* SAVE INFORMATION ABOUT THE LOAD MODULE , P* , 4 P CM APLLAP,A1 RESET NO OF MMU ENTRIES TO
0x3c422c…3c43c0 Dummy {f00=0x005b, f01=0x0190, f02=»REL. POSITION OF CONF. DATA , | . P CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 - $ 0 P CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 - V : P LDR* A6,A9 GET PGM. START ADDRESS (UNSEGMENTED APPL.) - P ST A6,APLSTA,A1 SAVE - " P LD A2,SCTOPT GET OPTION WORD -
0x3c43c0…3c4554 (1, 1065) Dummy {f00=0x005b, f01=0x0190, f02=» - p P RF(E) AP2340 . P* . . P SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) . ( $ P CWK A6,'CO' COBOL APPLICATION? . Z P RF(E) AP2340 . P* . . P SLL A4,1 BIT SETTING FOR BASIC (BIT 1=1) . " P CWK A6,'BA' BASIC APLICATION? . P RF(E) AP2340
0x3c4554…3c46e8 Dummy {f00=0x005b, f01=0x0190, f02=»A6,APLTYP,A1 SAVE APPLICATION TYPE . , P CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2 / * P RF(E) AP2345 =2 / Z 6 P AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 / t P RF(NZ) AP2345 YES =2 / , P LDK A1,LMP9 NO, WRONG MONITOR OPTION =2 / P CALL ERROR
0x3c46e8…3c487c Dummy {f00=0x005b, f01=0x0190, f02=» AP2350 SKIP IF ASSEMBLER APPL. / P* 0 ( , P LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE 0 2 ( P LD A2,SCTPSZ GET PREVIOUS VALUE =13 0 b " P SRL A2,1 MAKE WORD COUNT =13 0 $ P SRL A3,1 NEW SIZE IN WORDS =13 0 " P CWR A3,A2 MEW SIZE > OLD? =13 0 ( P RF(NG
0x3c487c…3c4a10 Dummy {f00=0x005b, f01=0x0190, f02=»AP2350 EQU * =13 0 P SLL A3,1 =13 1 PAP2352 EQU * =13 1 0 P IFT MMUPAG=1 1 J P EJECT 1 ` P* 1 n 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION 1 x P* 1 ( P CWK A6,'AS' ASSEMBLER APPLICATION? 1 $ P ABL(E) AP:330 YES! NO SEGMENTS 1
0x3c4a10…3c4ba4 Dummy {f00=0x005b, f01=0x0190, f02=»INDICATE PAGE SIZE ERROR 1 P* 2 PAP:237 EQU * 2 * 2 P LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS DEFINED 2 > P* 2 t PAP:238 EQU * 2 ~ P ABL(Z) AP:330 NO SEGMENTS! 2 P* 2 2 P CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM. 2 P* 2 2 P* A1 -
0x3c4ba4…3c4d38 Dummy {f00=0x005b, f01=0x0190, f02=»RAME ADDR. (PHYS. ADDR.) 2 , P* A4 - AREA LEFT IN LAST 4K PAGE FRAME 3 P* 3 P ( P* STORE ADDRESS(ES) TO PAGE FRAMES 3 Z & P* HOLDING THE FIRST LOGICAL PAGE 3 P* 3 , P SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 3 ( P LDKL A6,MMEND GET END OF MMU-
0x3c4d38…3c4ecc Dummy {f00=0x005b, f01=0x0190, f02=»T MMU ENTRY ADDR. 3 ~ * P SUKL A8,1 DECREMENT MMU ENTRY POINTER 4 2 P SUK A3,4 DECREMENT PAGE SIZE WITH FRAME SIZE 4 H P RB(P) AP:295 4 ~ $ P RF(Z) AP:300 EVEN 4K BYTES PAGE 4 P* 4 " P* RESERVE ONE EXTRA MMU ENTRY 4 P* WHEN PAGE SIZE IS NOT AN
0x3c4ecc…3c5060 Dummy {f00=0x005b, f01=0x0190, f02=»WK A3,/400 PAGE SIZE = 1K? 4 ( P RF(E) AP:300 YES! ONE ENTRY ENOUGH 5 " P* 5 N & P SUK A6,2 ALLOCATE ONE ENTRY EXTRA 5 X P SUKL A8,1 5 P* 5 PAP:300 EQU * 5 4 P LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS? 5 P RF(Z) AP:310 NO! 5 P* 5
0x3c5060…3c51f4 (1, 1066) Dummy {f00=0x005b, f01=0x0190, f02=»SS TO PAGE FRAME 5 z * P ADK A3,2 INCREMENT MMU ENTRY ADDRESS 6 $ P CWK A3,MMEND END OF MMU TABLE? 6 F P RF(E) AP:310 YES! 6 n P* 6 , P ADKL A2,/400 INCREMENT PAGE FRAME ADDR. 6 P RB AP:305 6 P* 6 PAP:310 EQU * 6 P* 6 P* SAVE LOGI
0x3c51f4…3c5388 Dummy {f00=0x005b, f01=0x0190, f02=»LAP,A1 SAVE IN APPLICATION CONTROL BLOCK 6 ( P ORR A2,A4 CONCATENATE DISPLACEMENT 7 0 8 P ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR. 7 P RF AP:335 7 P* 7 P* NO SEGMENTS DEFINED 7 P* 7 PAP:330 EQU * 7 0 P LDK A3,0 RESET NO OF MM
0x3c5388…3c551c Dummy {f00=0x005b, f01=0x0190, f02=»N LAST FRAME 7 z PAP:335 EQU * 8 P* 8 ( ( P* COMPUTE APPLICATION START ADDRESS 8 2 P* 8 ^ 0 P* A1 - POINTER TO APPLICATION CONTROL BLOCK 8 h , P* A4 - AREA LEFT IN CURRENT PAGE FRAME 8 " P* A7 - PHYSICAL PAGE ADDRESS 8 P* A6 - MMU ENTRY ADDR
0x3c551c…3c56b0 Dummy {f00=0x005b, f01=0x0190, f02=»TION TYPE 8 t P CWK A3,'AS' ASSEMBLER? 9 P RF(NE) AP:336 NO! 9 2 P* 9 L , P ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER 9 V PAP:336 EQU * 9 P ADK A2,1 9 $ P ANKL A2,/FFFE MAKE EVEN LENGTH 9 P* 9 $ P* IF APPLICATION IS LARGER THAN 9 P*
0x3c56b0…3c5844 Dummy {f00=0x005b, f01=0x0190, f02=» 9 P LDR A5,A2 : P SRL A5,12 NO OF 4K BLOCKS : P CWK A5,15 >60 KBYTES? : < P RF(L) AP:337 NO! : Z P* : t $ P LDK A4,0 START ON A 4K BOUNDARY : ~ P RF AP:341 : P* : PAP:337 EQU * : & P ADK A2,0 RESTORE LENGTH CONDITION : & P RF(N) A
0x3c5844…3c59d8 Dummy {f00=0x005b, f01=0x0190, f02=»T ALLOCATED PAGE? : P* ; P CWR A2,A4 ; $ P RF(G) AP:340 LARGER ; 6 P* ; R ( P* APPLICATION LENGTH LESS THAN AREA ; P* LEFT IN LAST PAGE ; P* COPY FRAME ADDRESS IN NEXT ; P* MMU ENTRY ; P* ; P* ; P SUKL A8,1 ; " P RF(N)
0x3c59d8…3c5b6c Dummy {f00=0x005b, f01=0x0190, f02=» ; h P RF AP:351 < P* < PAP:340 EQU * < $ P* < 8 ( P* RESERVE ENTRIES IN MMU TABLE FOR < B " P* COMMON PART OF APPLICATION < n P* < $ P* A4 - AREA MAPPED BUT NOT USED < P* IN LAST MMU ENTRY < " P* A2 - LENGTH OF COMMON PART <
0x3c5b6c…3c5d00 Dummy {f00=0x005b, f01=0x0190, f02=» < ~ P* = ( P SUK A6,2 ADVANCE TO NEXT MMU ENTRY = & P STR A7,A6 AND COPY FRAME ADDRESS = > PAP:341 EQU * = h 2 P SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME = | , P LDK A4,0 RESET AREA LEFT IN LAST FRAME = * P LDR A5,A2 SAVE REMAINING AREA NEEDED
0x3c5d00…3c5e94 (1, 1067) Dummy {f00=0x005c, f01=0x0190, f02=» REMAINDER = P* > & P ADK A2,1 ALLOCATE ONE MORE ENTRY > P* > F P* UPDTE MMU ENTRIES > P P* > l PAP:342 EQU * > v & P SUK A2,1 MORE ENTRIES TO UPDATE? > P RF(N) AP:350 NO! > P* > * P SUKL A8,1 DECREMENT MMU ENTRY POINTER > " P R
0x3c5e94…3c6028 Dummy {f00=0x005c, f01=0x0190, f02=» STR A7,A6 STORE FRAME ADDRESS > P RB AP:342 ? & P* ? 8 PTABOVF EQU * ? B P LDK A1,LMP7 ? V & P CALL ERROR SIGNAL TABBE OVERFLOW! ? j PMEMOVF EQU * ? P LDKL A1,LMP3 ? P CALL ERROR MEMORY OVERFLOW! ? P* ? PAP:350 EQU * ? P* ? 0
0x3c6028…3c61bc Dummy {f00=0x005c, f01=0x0190, f02=» ? 4 P SUR A4,A5 ALLOCATE REMAINIG AREA IN LAST FRAME @ P LDR A2,A8 GET MMU ENTRY @ @ * P SLL A2,12 MOVE TO FOUR LEFTMOST BITS @ ` P LDR A8,A2 @ $ P ORR A8,A4 LOGICAL START ADDRESS @ ( P CWK A3,'AS' ASSEMBLER APPLICATION? @ P RF(NE) AP:352 NO! @
0x3c61bc…3c6350 Dummy {f00=0x005c, f01=0x0190, f02=»VE @ | , P ST A4,SCTEFA+2 SAVE OFFSET WITHIN FRAME A : P ST A7,APLLDA,A1 SAVE APPLICATION LOAD ADDR. (BIT 0-5) A : $ P ST A4,APLLDA+2,A1 AND BIT 6-17 A x , P ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL A & P ST A4,LSTADR+STKCOM ADDRESS USED A , P LDR* A1,A6 GE
0x3c6350…3c64e4 Dummy {f00=0x005c, f01=0x0190, f02=» RF AP:354 A PAP:353 EQU * B $ P LDR* A1,A6 GET PHYSICAL ADDRESS B & P SLL A1,2 B N P ADR A1,A4 ADD DISPLACEMENT B ` ( P LD A2,SCTSFA GET START OF FREE AREA B ( P TNM A1,A2 ON SAME SIDE OF 32K-LIMIT B P RF(NN) AP3532 YES! B P CWR A2,A1 B
0x3c64e4…3c6678 Dummy {f00=0x005c, f01=0x0190, f02=»STKEND SAVE B . P LD A10,COMLG,A9 LOAD COMLG OF COMMON PART C P TL TABBE LOAD MMU REGISTERS C F P XIF C j P IFT MMUPAG=0 C v P EJECT C PAP:240 EQU * C P* C @ P* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION C P* C P*
0x3c6678…3c680c Dummy {f00=0x005c, f01=0x0190, f02=»,NUMSEG+8,A9 NUMBER OF SEGMENTS C P RF(Z) AP:275 NO SEGMENTS! D ( , P CF A14,ALOCSG RESERVE AREA FOR SEGMENTS D J , P LDR A2,A7 CONFIGURE LOGICAL START ADDR. D z P SLL A2,2 TO FIRST SEGMENT D P ORR A2,A5 D P ST A2,LSTASG+STKEND D PAP:275 EQU * D
0x3c680c…3c69a0 Dummy {f00=0x005c, f01=0x0190, f02=»F(NE) AP:276 NO! D P* E . P ADKL A10,10 YES, ADD 5 WORDS FOR DEBUGGER E " PAP:276 EQU * E T P ADKL A10,1 E h $ P ANKL A10,/FFFE MAKE EVEN LENGTH E | 8 P RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE E P* E > P CWR A10,A5 APPL. IS SMALLER T
0x3c69a0…3c6b34 (1, 1068) Dummy {f00=0x005c, f01=0x0190, f02=»RAME E f , P LDK A5,0 NO AREA LEFT IN CURRENT FRAME F $ P LDR A2,A10 GET REMAINING LENGTH F < $ P SRL A2,12 COUNT NO OF 4K BLOCKS F d , P SRL A7,10 FRAME ADDRESS AS BLOCK COUNT F $ P SUR A7,A2 SUBTRACT AREA NEEDED F " P RF(N) MEMOVF MEMORY OVERFLOW! F
0x3c6b34…3c6cc8 Dummy {f00=0x005c, f01=0x0190, f02=»W FRAME F r P SUK A7,1 G " P RF(N) MEMOVF MEMORY OVERFLOW! G " P* G H PAP:279 EQU * G R $ P SLL A7,10 RESTORE FRAME ADDRESS G f PAP:280 EQU * G 2 P SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME G P LDR A4,A9 SAVE A9 G P LDR A8,A11 SAVE A11 G
0x3c6cc8…3c6e5c Dummy {f00=0x005c, f01=0x0190, f02=»0-5) G b 2 P ST A5,APLLDA+2,A1 AND BIT 6-17 OF APPLICATION H , P ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL H B & P ST A5,LSTADR+STKCOM ADDRESS USED H r P SLL A7,2 H P LDR A11,A7 H . P ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR. H ( P LD A9,SCTSFA GET ST
0x3c6e5c…3c6ff0 Dummy {f00=0x005c, f01=0x0190, f02=» OVERFLOW! H | P CALL ERROR I P* I & PAP:290 EQU * I 0 ( P CWK A3,'AS' ASSEMBLER APPLICATION? I D P RF(NE) AP:295 NO! I p P* I ( P ADKL A11,10 SKIP 5 PRECEEDING WORDS I PAP:295 EQU * I 2 P ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS I
0x3c6ff0…3c7184 Dummy {f00=0x005c, f01=0x0190, f02=»ND SAVE APPLICATION LOAD-ADDRESS I ~ . P LD A10,COMLG,A9 GET LENGTH OF COMMON PART J ( P XIF J Z P EJECT J f P* J t P* COMMON EXECUTION PATH J ~ P* J : P* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION J P* J $ P* A8 - APPLICATION LOAD
0x3c7184…3c7318 Dummy {f00=0x005c, f01=0x0190, f02=»LOCK POINTER J d * P ST A8,APLLAC,A1 SAVE LOGICAL ADDRESS K 6 P ST A8,APLREL,A1 SAVE APPLICATION RELOCATION BASE K B 4 P CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. K | 6 P LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK K $ P ST A7,LOD:10 MODIFY INSTR
0x3c7318…3c74ac Dummy {f00=0x005c, f01=0x0190, f02=»STKEND GET CURRENT APPL. CONTR. BLOCK K , P LD A2,APLTYP,A1 AND TYPE OF THIS APPL. L . ( P CWK A2,'AS' ASSEMBLER APPLICATION? L ^ P ABL(E) AP:400 YES L : P LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE L 0 P LD A2,TNBRSG+STKEND GET NUMBER OF SEG
0x3c74ac…3c7640 Dummy {f00=0x005c, f01=0x0190, f02=»MUPAG=1 L . P TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS M P XIF M B PAP:360 EQU * M N P* M b & P* READ AND RELOCATE THE SEGMENTS M l P* M . P* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT M P* A10 - SEGMENT LENGTH M P* M 6 P LD A3,CURAP
0x3c7640…3c77d4 (1, 1069) Dummy {f00=0x005c, f01=0x0190, f02=»EGCNT+STKEND GET SEGMENT COUNTER M PAP:365 EQU * N ( P RF(Z) AP:370 N < P ADK A2,BLKLEN NEXT BLOCK N R & P SUK A1,1 DECREMENT BLOCK COUNTER N t P RB AP:365 N PAP:370 EQU * N . P LD A1,SCTIPL IF LOADING FROM CASSETTE =14 N P SUK A1,/F0 . =14
0x3c77d4…3c7968 Dummy {f00=0x005c, f01=0x0190, f02=» P ANK A1,2 DISC PAGING? O P RF(Z) AP:376 NO! O " P* O < & P* CHECK IF CORE RESIDENT SEGMENT O F P* O p " P CALL GETCON GET SEGMENT TYPE O z * P LDR A12,A1 GET MOST SIGNIFICANT PART O " P ANKL A12,/FF OF DISC ADDRESS O * P SRL A1,8 SEGMENT TY
0x3c7968…3c7afc Dummy {f00=0x005c, f01=0x0190, f02=»THIS SEGMENT AND CHECK NEXT O P* P $ , P LD A1,SEGCNT+STKEND GET SEGMENT COUNTER P . 6 P LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS P ^ P ADK A1,1 INCREMENT P P CWR A1,A2 LAST SEGMENT? P P ABL(E) AP:400 YES! P 4 P ST A1,SEGCNT+STKEND SAV
0x3c7afc…3c7c90 Dummy {f00=0x005c, f01=0x0190, f02=» * P " P ADK A2,2 DISC SECTOR ADDRESS Q * P LD A1,SCTIPL IF CASSETTE LOADING =14 Q 0 P SUK A1,/F0 . =14 Q ^ 4 P RF(N) AP378B SKIP DISC ADDRESS CALCULATION =14 Q x ( P CALL GETCON GET DISC SECTOR ADDRESS Q P LDR A11,A1 SAVE Q 8 P AD A11,APLADA+2,A3
0x3c7c90…3c7e24 Dummy {f00=0x005c, f01=0x0190, f02=»F DISC ADDRESS Q n " P ANKL A11,/7FFF RESET OVERFLOW R 4 PAP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A. R < P CWK A12,255 OVERFLOW? R t , P RB(G) AP:375 YES: ILLEGAL DISC ADDRESS! R PAP378B EQU * . =14 R P ADK A2,2 SEGMENT LENGTH R $ P CALL GETCON
0x3c7e24…3c7fb8 Dummy {f00=0x005c, f01=0x0190, f02=» P CF A14,LODSEG LOAD SEGMENT S , P LD A1,SEGCNT+STKEND GET SEGMENT COUNTER S ( 6 P LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS S X ( P ADK A1,1 INCREMENT SEGMENT COUNTER S $ P CWR A1,A2 ALL SEGMENTS LOADED? S P ABL(E) AP:400 YES! S . P ST A1
0x3c7fb8…3c814c Dummy {f00=0x005c, f01=0x0190, f02=» SIZE DEFINED =2 S t P IFT MMUPAG=0 T , P ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE T . P RB AP:360 T ^ P XIF T p P IFT MMUPAG=1 T | P EJECT T PAP:379 EQU * T P LDR A1,A4 SAVE T . P ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT T " P RF(Z) AP:
0x3c814c…3c82e0 Dummy {f00=0x005c, f01=0x0190, f02=» DISCRIMINANT T t 0 P ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE U 2 P ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE U J * P SUR A1,A8 COMPUTE PHYSICAL INCREMENT U PAP:380 EQU * U * P LD A8,APLLAP,A3 LOGICAL PAGE ADDRESS U P LDR A2,A8 SAVE U 4 P
0x3c82e0…3c8474 (1, 1070) Dummy {f00=0x005c, f01=0x0190, f02=»2,A13 U & P ADKL A2,MMDDIV MMU ENTRY ADDRESS V P LDR A3,A13 V 8 P ADKL A3,MMDDIV+32 V L * P SRL A1,2 MAP PHYSICAL ADDRESS ON MMU V f PAP:385 EQU * V , P ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE V P ADK A2,2 NEXT MMU ENTRY V P CWR A2,A3 V
0x3c8474…3c8608 Dummy {f00=0x005c, f01=0x0190, f02=» 8 P LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK W P IM APLCNT+STKEND W @ * P ABL(Z) CONLOD ALL APPLICATIONS LOADED W Z P* W . P ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION W 2 P ST A1,CURAPL+STKEND APPLICATION CONTROL BLOCK W 4 P LD A12,APLADA
0x3c8608…3c879c Dummy {f00=0x005c, f01=0x0190, f02=» W l " P CFR A14,A10 READ FIRST SECTOR X P ABL AP:234 X . P EJECT X B 2 P********************************************* X P 2 P* * X 2 P* * X 2 P* ALOCS
0x3c879c…3c8930 Dummy {f00=0x005c, f01=0x0190, f02=» 2 P* RESERVE PAGES FOR RESIDENT SEGMENTS * Y 2 P* * Y : 2 P* * Y p 2 P********************************************* Y P* Y P* Y PALOCSG EQU * Y 0 P ST
0x3c8930…3c8ac4 Dummy {f00=0x005c, f01=0x0190, f02=» RESIDENT SEGMENTS Y n * P ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 Z " P LD A4,SCTOPT GET OPTION WORD Z H P SRC A4,2 DISC PAGING? Z n P RF(NN) ALSG04 NO! Z P* Z * P LD A4,SCTIPL GET PROGRAM LOAD DEVICE Z " P SUK A4,/F0 CHECK IF CASSETTE Z 0 P RF(
0x3c8ac4…3c8c58 Dummy {f00=0x005c, f01=0x0190, f02=»APPLICATION Z | & P ADK A6,14 START OF SEGMENT BLOCKS [ PALSG00 EQU * [ > P ADK A6,6 NEXT SEGMENT BLOCK [ R P* LOOK IF OUTSIDE BUFFER [ v P* IF SO READ NEXT [ P* SECTOR BLOCK [ P* [ $ P LDR A4,A6 SAVE BUFFER POSITION [ P SUR A4,A9 R
0x3c8c58…3c8dec Dummy {f00=0x005c, f01=0x0190, f02=»ICATION =14 [ p $ P CF A14,NXTSEC READ NEXT SECTOR 8 P SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 < $ P AND RESET BUFFER POSITION =5 x P* PALSG01 EQU * P LCR A4,A6 GET SEGMENT TYPE ( P CCK A4,'RR' CORE RESIDENT SEGMENT?
0x3c8dec…3c8f80 Dummy {f00=0x005c, f01=0x0190, f02=»? x P RB(NZ) ALSG00 YES! ] 4 P LD A2,SEGCNT+STKEND NUMBER OF RESIDENT SEGMENTS ] & ( P RF(Z) ALSG12 NO RESIDENT SEGMENTS! ] ^ PALSG04 EQU * ] 6 P ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS ] 4 P ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM.
0x3c8f80…3c9114 (1, 1071) Dummy {f00=0x005d, f01=0x0190, f02=» SIZE ] z P ANKL A6,/FFF ^ . P RF(NZ) ALSG08 NOT A MULTIPLE OF 4K BYTES ^ $ P* ^ V 0 P LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY ^ ` P RF(Z) ALSG08 YES ^ P* ^ $ P LDK A5,0 START ON A 4K BOUNDARY ^ PALSG08 EQU * ^ * P LDR A7,A7 LOOK IF 2
0x3c9114…3c92a8 Dummy {f00=0x005d, f01=0x0190, f02=»FRAME =3 ^ p PALSG8B EQU * _ . P ANKL A5,/1C00 ALWAYS START ON 1K BOUNDARY _ $ . P SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 _ V ( P SRL A5,1 AND REMAINING AREA TOO =2 _ * P SRL A7,10 CONVERT TO NO OF FRAMES =2 _ " P LDR A4,A3 GET SEGMENT SIZE =2 _ . P
0x3c92a8…3c943c Dummy {f00=0x005d, f01=0x0190, f02=» _ z & P SUK A7,1 DECREMENT FRAME COUNT =2 ` , P ADKL A5,/800 ALLOCATE ANOTHER FRAME =2 ` 2 $ P RB(P) ALSG09 LOOK IF ENOUGH =2 ` b PALSG10 EQU * =2 ` 4 P TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 ` P RF(N) ALS11A YES =2 ` . P SUR A5,A3 ALLOCAT
0x3c943c…3c95d0 Dummy {f00=0x005d, f01=0x0190, f02=»QU * =2 ` * P SUK A2,1 DECREMENT SEGMENT COUNTS =2 a $ P RB(NZ) ALSG09 MORE SEGMENTS =2 a > P LDR A7,A7 =2 a f $ P ABL(N) MEMOVF MEMORY OVERFLOW! a | P* a $ P SLL A7,10 RESTORE FRAME ADDRESS a . P ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO a , P
0x3c95d0…3c9764 Dummy {f00=0x005d, f01=0x0190, f02=»ENT a j PALSG12 EQU * b P* b * P* REREAD FIRST SECTOR OF APPLICATION b * * P* IF S:GTAB IS LARGER THAN ONE SECTOR b X P* b < P LD A2,REWFLG+STKEND DO WE HAVE TO REWIND THE FILE? =14 b P RF(Z) ALSG30 NO! =14 b P* b P IFT CASS=1 =14
0x3c9764…3c98f8 Dummy {f00=0x005d, f01=0x0190, f02=» THE TAPE TO =14 b ~ $ P* BEGINNING OF APPLICATION =14 c P* c @ " P CALL PUSH SAVE REGISTERS =14 c J . P LDK A1,SBOT SEARCH BEGINNING OF TAPE =14 c p P CF A14,CHCRIO . =14 c P LDK A1,STMF . =14 c . P CF A14,CHCRIO SEARCH START OF MONITOR =14 c
0x3c98f8…3c9a8c Dummy {f00=0x005d, f01=0x0190, f02=» CALL POB RESTORE REGISTERS =14 c P RF ALSG30 . =14 d ( PALSG14 EQU * . =14 d @ P XIF =14 d Z 8 P LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. d l 2 P LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART d & P CF A14,NXTSEC REREAD FIRST SECTOR d P
0x3c9a8c…3c9c20 Dummy {f00=0x005d, f01=0x0190, f02=»READ READ NEXT SECTOR d P CFR A14,A10 e 8 P ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 e 2 ( P ST A12,DISCAD+2+STKEND ADDRESS =10 e n . P CALL POB RESTORE FORMER REGISTER CONTENTS e : P LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10 e (
0x3c9c20…3c9db4 (1, 1072) Dummy {f00=0x0098, f01=0x0190, f02=»*********** e l 4 P* * f 4 P* LODMEX - LOAD MONITOR EXTENT(S) * f L 4 P* =============================== * f 4 P* * f 4 P* REFERENCED IN: S
0x3c9db4…3c9f48 Dummy {f00=0x0098, f01=0x0190, f02=» * f d 4 P* * g 4 P* EXIT: * g D 4 P* * g | 4 P* WORK REGISTERS: A1-A12 * g 4 P*
0x3c9f48…3ca0dc Dummy {f00=0x0098, f01=0x0190, f02=» 4 P*********************************************** h PLODMEX EQU * h < & P LD A1,SCTMXS MONITOR EXTENT TABLE h P PMSX10 EQU * h z P RF(Z) MSX99 h P* h ( P LD A1,SCTOPT GET MONITOR OPTION =12 h ( P SRC A1,1 LOOK IF MMU OPTION ON =12 h P RF(
0x3ca0dc…3ca270 Dummy {f00=0x0098, f01=0x0190, f02=»A14,GETMON GET MONITOR DISC ADDRESS h * P LD A3,MX:NOX,A1 GET NUMBER OF EXTENTS i , 4 P LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS i Z $ P SLL A6,1 MAKE BYTE DISPLACEMENT i P ADK A6,4 i " P ADR A6,A1 FIRST EXTENT BLOCK i PMSX20 EQU * i & P S
0x3ca270…3ca404 Dummy {f00=0x0098, f01=0x018e, f02=»XT EXTENT BLOCK i $ P LD A7,SCTEFA RESTORE ADDRESS TO j $ P LD A5,SCTEFA+2 END OF FREE AREA j @ P RF(NZ) MSX25 j h P* j ~ 2 P LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE j P SUKL A7,/400 j PMSX25 EQU * j ( P LD A2,EXLEN,A6 GET LENGTH OF EX
0x3ca404…3ca598 Dummy {f00=0x0098, f01=0x0190, f02=» j f 0 P ADK A2,0 EXTENT LENGTH LESS THAN 32K BYTES? k P RF(N) MSX30 NO k < P* k T 2 P CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME k ^ P RF(L) MSX40 YES! k P* k PMSX30 EQU * k P LDR A1,A2 k . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES
0x3ca598…3ca72c Dummy {f00=0x0098, f01=0x0190, f02=»ES! k P* l ( P LDKL A5,PAGSIZ START ON 4K BOUNDARY l P SUK A7,1 l B PMSX35 EQU * l T 0 P SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME l h " P LDK A5,0 AND SET EMPTY FRAME l P LDR A1,A2 l . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES l , P S
0x3ca72c…3ca8c0 Dummy {f00=0x0098, f01=0x0190, f02=» RF(Z) MSX45 l P* m * P LDKL A5,PAGSIZ TAKE NEXT EMPTY FRAME m P SUK A7,1 m L PMSX40 EQU * m ^ 4 P SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME m r PMSX45 EQU * m & P CWK A7,15 LOOK IF FIRST PARTITION m * P ABL(NG) MEMOVF YES, MEMORY OVER
0x3ca8c0…3caa54 (1, 1073) Dummy {f00=0x0099, f01=0x0190, f02=»HYSICAL ADDRESS m z & P ST A7,SCTEFA TO END OF FREE AREA n P* n B $ P LD A4,SCTMXS GET MXSTAB ADDRESS n L " P ADK A4,2 MONITOR DISC ADDRESS n t P XRR A1,A1 RESET REG. A1 n * P LDR* A2,A6 GET MONITOR EXTENT ADDRESS n ( P DAR* A4 AND RELOCATE EXTENT ADD
0x3caa54…3cabe8 Dummy {f00=0x0099, f01=0x0190, f02=»ERT PHYSICAL LOAD ADDRESS n $ P ORR A1,A7 TO A 16 BITS ADDRESS o " " P STR A1,A6 AND SAVE IN MXSTAB o J P* o p * P ADK A5,10 SKIP PRECCEDING FIVE WORDS o z : P ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) o $ P LDR A8,A5 SAVE RELOCATION BASE o
0x3cabe8…3cad7c Dummy {f00=0x0099, f01=0x0190, f02=»TRY COUNTER o z , P LDKL A2,TABBE GET ADDRESS TO MMU TABLE p 6 P ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR p D PMSX50 EQU * p ~ " P STR A7,A2 STORE PAGE ADDRESS p $ P ADKL A7,/400 NEXT PAGE ADDRESS p P ADK A2,2 NEXT MMU ENTRY p & P ADK A3,
0x3cad7c…3caf10 Dummy {f00=0x0099, f01=0x0190, f02=»TERS p x P CALL LOD:70 LOAD EXTENT q & P LDR* A3,A15 RESTORE NO OF EXTENTS q , P RB MSX20 q V P* q h PMSX99 EQU * q r P RTN A14 q P EJECT q 4 P*********************************************** q P* q P* GETMON q P*
0x3caf10…3cb0a4 Dummy {f00=0x0099, f01=0x0190, f02=»IES. q ~ P* r 4 P************************************************ r P* r N P* r X PGETMON EQU * r b ( P LD A1,SCTANO GET APPLICATION NUMBER r v P ST A1,MONNO+STKEND SAVE r 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC r 0 P LC A1,8,A4 GET
0x3cb0a4…3cb238 Dummy {f00=0x0099, f01=0x0190, f02=»TNBR SEARCH FOR APPL. NBR. 0 (MONITOR) r P* s . PGTMON2 EQU * s 8 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) s L ( P CW A1,8,A4 IS IT THE RIGHT MONITOR? s P RF(E) GTMON4 YES! s P* s 8 P CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC s
0x3cb238…3cb3cc Dummy {f00=0x0099, f01=0x0190, f02=»-15) s d " P ST A2,2,A1 AND SAVE IN MXSTAB t 6 P LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) t 2 " P ST A2,4,A1 AND SAVE IN MXSTAB t l P RTN A14 RETURN t P EJECT t PGETNBR EQU * t $ P CF A14,GETVLB READ VOLUME LABEL t PGTNBR0 EQU * t P
0x3cb3cc…3cb560 Dummy {f00=0x0099, f01=0x0190, f02=»APPLICATION NUMBER t x PGTNBR2 EQU * u . P LCR A2,A4 GET 1ST CHARACTER IN FILE NAME u . P CCK A2,/2020 UNUSED? u ` P RF(E) GTNBR4 YES! u ~ P* u ( P CC A1,9,A4 SAME APPLICATION NUMBER? u P RF(E) GTNBR6 YES, RETURN u P* u PGTNBR4 EQU * u
0x3cb560…3cb6f4 (1, 1074) Dummy {f00=0x0099, f01=0x0190, f02=»TNBR2 YES! u P* v $ P RB GTNBR0 NO, READ NEXT SECTOR v P* v D PGTNBR6 EQU * v N P RTN A14 v b P XIF v r P EJECT v ~ > P********************************************************** v > P* *
0x3cb6f4…3cb888 Dummy {f00=0x0099, f01=0x0190, f02=» > P* * w > P* ENTRY: A9 - BUFFER ADDRESS * w F > P* * w > P* EXIT: * w
0x3cb888…3cba1c Dummy {f00=0x0099, f01=0x0190, f02=»* * w > P********************************************************** x B PCONLOD EQU * x & P LD A1,SCTEFA GET END OF FREE AREA x P LDR A2,A1 SAVE x " P ANKL A1,/3C00 ISOLATE BIT 2-5 x P SLL A1,
0x3cba1c…3cbbb0 Dummy {f00=0x0099, f01=0x0190, f02=»ISOLATE IT x P ST A2,SCTEFA AND SAVE y 8 P LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK y 0 0 P ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK y l , P ST A1,SCTSFA UPDATE START OF FREE AREA y 8 P LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE y
0x3cbbb0…3cbd44 Dummy {f00=0x0099, f01=0x0190, f02=»XT APPLICATION y t & P ST A1,CURAPL+STKEND CONTROL BLOCK z * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE z @ " P SUK A1,/F0 CHECK DEVICE TYPE z n P RF(NN) CONRAD NOT CASSETTE z P IFT CFTEST+CASS=2 z P* z & P* PROGRAM LOAD DEVICE = CASSETTE z P*
0x3cbd44…3cbed8 Dummy {f00=0x0099, f01=0x0190, f02=» P LDKL A1,/0100 { P ST A1,COR:38 MODIFY { P LDR A1,A9 START OF BUFFER { 6 " P ADKL A1,BUFLEN END OF BUFFER { X , P ST A1,PLDADR+STKEND SAVE END OF BUFFER { ~ P ST A1,EINPBF+STKEND SAVE { , P ST A1,CONSTA+STKCOM START OF CONF. DATA { P CF A14,
0x3cbed8…3cc06c Dummy {f00=0x0099, f01=0x0190, f02=»EMARK? { P RF(Z) TST:10 NO! | . P CF A14,CASSIN INIT CONFIGURATION CASSETTE | ( P CALL CON:40 | Z P RF TST:10 | n PCONEX EQU * | P* | > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE | P* | " P CF A14,RDBLK READ NEXT BLOCK
0x3cc06c…3cc200 Dummy {f00=0x0099, f01=0x0190, f02=»F A14,RDBLK BYPASS TAPEMARK | P RF CON:90 } $ PCON:80 EQU * } 6 P LDK A1,/F } J " P CF A14,CHCRIO UNLOAD CASSETTE } PCON:90 EQU * } P ABL CONMOV } P XIF } P IFT CFTEST=1 } P EJECT } PCONRAD EQU * } P* } 6 P* LOAD CONFIGUR
0x3cc200…3cc394 (1, 1075) Dummy {f00=0x0099, f01=0x0190, f02=»M LOAD DEVICE } x P* ~ 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. ~ PCONRA0 EQU * ~ T * P LD A11,CONDAD+STKEND GET START SECTOR ~ h 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART ~ " P LDR A1,A9 GET START OF BUFFER ~ $ P ADKL A1,BUFLEN-6 END
0x3cc394…3cc528 Dummy {f00=0x0099, f01=0x018e, f02=»ER ~ p P ST A1,EINPBF+STKEND SAVE =2 , P ST A1,CONSTA+STKCOM START OF CONF. DATA . $ P LDKL A10,0 RESET RECORD COUNTER ^ P* 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE P* P CALL READC READ SECTOR P* 0 P* TEST THE SYNTA
0x3cc528…3cc6bc Dummy {f00=0x0099, f01=0x0190, f02=» P CALL TEST P CALL AA P CALL CONRD * P CALL TCL > P CALL TEST P P CALL AA b P CALL CONRD r P CALL LEV P CALL TEST P CALL NN1 PTST:20 CALL CONRD P CALL NN1 P CALL CONRD B PTST:30 LD A5
0x3cc6bc…3cc850 Dummy {f00=0x0099, f01=0x0190, f02=»L TDCT P CALL TEST P CALL NN P CALL CONRD 0 P CALL LC D P CALL TEST T P CALL NNL f P CALL CONRD x P RB TST:30 PTST:40 EQU * P CALL NN1 P CALL CONRD PTST:50 EQU * < P LD A5,NDEVCL+STKEND GET NUM
0x3cc850…3cc9e4 Dummy {f00=0x0099, f01=0x018e, f02=»ST P CALL NN P CALL CONRD P RB TST:50 . PTST:60 EQU * @ P LCR A5,A4 GET CHARACTER T , P CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.) t PTST:70 EQU *-2 P RB(E) TST:10 YES! P LDKL A3,/FFFF * P ST A3,TST:70 MODIFY INSTRUCTI
0x3cc9e4…3ccb78 Dummy {f00=0x0099, f01=0x0190, f02=» P CALL T P RB TST:20 PTST:80 EQU * & . P LDR A1,A5 SAVE FIRST CHARACTER IN RECORD : & P ADK A4,1 INCREMENT BUFFER POINTER l P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD P ABL(NE) CONERR NO! PTST:85 EQU * . P
0x3ccb78…3ccd0c Dummy {f00=0x0099, f01=0x0190, f02=»NE) TST:87 NO! P* 8 P LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA 4 P SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION P ST A1,DCBLK+STKCOM SAVE PTST:87 EQU * ( P CALL CONRD MOVE AND GET NEXT RECORD $ P LCR A1,A4 AND FIRST
0x3ccd0c…3ccea0 Dummy {f00=0x0099, f01=0x0190, f02=»D z P* SCAN CONFIGURATION DATA P* , : P LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' 6 P STR A1,A8 t 4 P LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK 8 P LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA P ADK A1,1 SKIP
0x3ccea0…3cd034 (1, 1076) Dummy {f00=0x0099, f01=0x0190, f02=» P ADK A2,ACBLEN < P ST A2,CURAPL+STKEND ADVANCE TO NEXT APPL. CONTR. BLOCK $ P CALL CONRD MOVE AND PACK RECORD Z ( P ADKL A10,1 INCREMENT RECORD COUNTER & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! . P ADKL A8,RECLEN+1 INCR
0x3cd034…3cd1c8 Dummy {f00=0x0099, f01=0x0190, f02=»T:95 EQU * * P LDKL A1,'TT' LOOK FOR TASK DEF. BLOCK P ST A1,TST:70 MODIFY INSTR. @ P ST A1,T:10 d P LDR A4,A8 x P ABL TST:10 SCAN CONF. DATA P* PCOR:50 EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S?
0x3cd1c8…3cd35c Dummy {f00=0x0099, f01=0x0190, f02=»,IPLDEV+STKEND . P CF A14,LODDEV INITIALIZE PGM LOAD DEVICE P CF A14,GETFIL H P* ^ P* UNLOCK FLEXIBLE DISC h P* PCOR:55 EQU * 4 P LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE
0x3cd35c…3cd4f0 Dummy {f00=0x0099, f01=0x018e, f02=» CFTEST+FLDISC=2 ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC P XIF D P IFT CFTEST=1 P PCOR:58 EQU * f * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE z P SUK A1,/F8 CHECK TYPE $ P RF(N) COR:60 NOT FLEXIBLE DISC P* P XIF " P SUK
0x3cd4f0…3cd684 Dummy {f00=0x0099, f01=0x0190, f02=» P ANK A1,2 DISC PAGING? $ P RF(NZ) COR:60 YES! DON'T UNLOCK " P* J P LD A1,IPLDEV+STKEND T ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC p P XIF P IFT CFTEST=1 PCOR:60 EQU * P EJECT PCONMOV EQU * P* 4 P* MOVE CO
0x3cd684…3cd818 Dummy {f00=0x0099, f01=0x0190, f02=». DATA j < PCMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA 0 P LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA N * P CM -2,A2 MAKE SURE CONFIGURATION FILE " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA 2 P S
0x3cd818…3cd9ac Dummy {f00=0x0099, f01=0x0190, f02=» P CALL MOVE : P ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA 2 P LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA T 0 P ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH P ANKL A1,/FFFE AND MAKE EVEN P ST A1,CONLEN+STKCOM & P LDR A1,A9
0x3cd9ac…3cdb40 Dummy {f00=0x0099, f01=0x0190, f02=»LOCATION CONSTANT t $ P LD A2,SCTMXS GET MXSTAB ADDRESS $ P RF(Z) CMOV20 NO MXSTAB PRESENT B P* j 0 P AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS t * P ST A2,SCTMXS AND SAVE AS NEW ADDRESS PCMOV20 EQU * , P LD A2,CONSTA+STKCOM GET START
0x3cdb40…3cdcd4 (1, 1077) Dummy {f00=0x009a, f01=0x0190, f02=»DM P SUK A1,2 P SUK A2,2 P LDR* A4,A1 . P STR A4,A2 B P CWR A1,A13 T P RB(NE) MOPRO h ( P ABR A2 CONTINUE EXECUTION IN SYSLDM ~ P EJECT D P*************************************************************** D P* SUROU
0x3cdcd4…3cde68 Dummy {f00=0x009a, f01=0x0190, f02=» EJECT PCONRD EQU * P* " 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD , P* b 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER l P LDR A2,A1 SAVE & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD
0x3cde68…3cdffc Dummy {f00=0x009a, f01=0x0190, f02=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? PCOR:38 EQU *-2 . P RF(E) COR:40 YES! D * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? ^ P RF(E) MEMOFL YES! & P ADK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER & P ADK A4,1
0x3cdffc…3ce190 Dummy {f00=0x009a, f01=0x018e, f02=»OLONS? z P RF(NE) COR:45 NO! * P CWK A3,NCHTID CHECK IF END OF RECORD ( 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD V PCOR:45 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION P LDR A1,A8 START OF RECORD P CALL MOVE
0x3ce190…3ce324 Dummy {f00=0x009a, f01=0x0190, f02=» . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER & P CW A8,PLDADR+STKEND END OF BUFFER 6 P RF(NE) COR:10 NO! ` P CALL READC READ SECTOR z $ PCOR:10 LDR A4,A8 START OF RECORD P RTN A14 P XIF P IFT CFTEST+CASS=2 PCON:40 EQU *
0x3ce324…3ce4b8 Dummy {f00=0x009a, f01=0x0190, f02=» OF BUFFER | P RTN A14 P XIF " P IFT CFTEST=1 . PMEMOFL EQU * D * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW X P CALL ERROR P EJECT PREADC EQU * P CF A14,RDSEC READ SECTOR P LDR A8,A9 " P LDR A4,A8 GET START OF
0x3ce4b8…3ce64c Dummy {f00=0x009a, f01=0x018e, f02=»(NE) CONERR & P ADK A4,1 INCREMENT BUFFER POINTER " P LCR A5,A4 GET NEXT CHARACTER > P CCK A5,';;' END OF RECORD? d P ABL(NE) CONERR NO! P RTN A14 P EJECT PNNL EQU * * P LDK A3,3 NO OF DIGITS IN LINE NUMBER & P CF A1
0x3ce64c…3ce7e0 Dummy {f00=0x009a, f01=0x0190, f02=» " P LCR A5,A4 GET NEXT CHARACTER P CCK A5,'LL' LINE L? * P RF(E) NN:40 YES! F P CCK A5,'RR' LINE R? ` P RF(E) NN:40 YES! | P CCK A5,'AA' LINE A? P RF(E) NN:40 YES! P CCK A5,'SS' LINE S? P RF(E) NN:40 YES! P CCK A
0x3ce7e0…3ce974 (1, 1078) Dummy {f00=0x009a, f01=0x0190, f02=» YES! P RF CONERR PNN:40 EQU * & P ADK A4,1 INCREMENT BUFFER POINTER 4 P RF NN:50 ^ P* p PNN EQU * z $ P LDK A3,2 NO OF DIGITS IN NUMBER & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P LDR A1,A1 SET RETURN CONDITION " P RF(
0x3ce974…3ceb08 Dummy {f00=0x009a, f01=0x0190, f02=»N NUMBER x & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P ST A5,NDEVCL+STKEND SAVE NUMBER : " PNN:50 LCR A5,A4 GET CHARACTER b P CCK A5,';;' END OF RECORD? P RF(NE) CONERR NO! P RTN A14 P EJECT PAA EQU * P LDK A3,2 PAA
0x3ceb08…3cec9c Dummy {f00=0x009a, f01=0x0190, f02=»939 ALPHA-NUMERIC CHARACTER > 39? P RF(NG) AA:20 NO! * 0 P CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? D P RF(L) CONERR x 0 P CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? P RF(G) CONERR PAA:20 EQU * & P ADK A4,1 INCREMENT BUFFER P
0x3cec9c…3cee30 Dummy {f00=0x009a, f01=0x0190, f02=»CONERR NO! P RTN A14 P EJECT " PTID EQU * 0 " P LDKL A2,SEQ1 SELECT SEQUENCE B & P LDK A3,4 GET NUMBER OF CHARACTERS h P RTN A14 PTCL EQU * " P LDKL A2,SEQ2 SELECT SEQUENCE & P LDK A3,4 GET NUMBER OF CHARACTERS P RTN
0x3cee30…3cefc4 Dummy {f00=0x009a, f01=0x0190, f02=» PTDCT EQU * " P LDKL A2,SEQ4 SELECT SEQUENCE & P LDK A3,5 GET NUMBER OF CHARACTERS < P RTN A14 f PLC EQU * v " P LDKL A2,SEQ5 SELECT SEQUENCE & P LDK A3,3 GET NUMBER OF CHARACTERS P RTN A14 PSDCS EQU * " P LDKL A2,SEQ6 SE
0x3cefc4…3cf158 Dummy {f00=0x009a, f01=0x0190, f02=» x P CCR A5,A2 P RF(NE) CONERR & P ADK A4,1 INCREMENT BUFFER POINTER 0 ( P ADK A2,1 INCREMENT SEQUENCE POINTER Z . P SUK A3,1 MORE CHARACTERS IN THE SEQUENCE? P RB(NZ) TEST YES! P RTN A14 P EJECT PSUKASC EQU * 2 P CCK
0x3cf158…3cf2ec Dummy {f00=0x009a, f01=0x0190, f02=»VCL+STKEND STORE NUMBER OF CLASSES P RTN A14 * P EJECT : PNUMB EQU * H * P LDK A1,0 RESET NO OF NON ZERO DIGITS Z PNUMB00 EQU * " P LCR A5,A4 GET DIGIT IN NUMBER & P ADK A4,1 INCREMENT BUFFER POINTER ( P CCK A5,/3939 NUMERIC CHARAC
0x3cf2ec…3cf480 Dummy {f00=0x009a, f01=0x0190, f02=»NUMERIC CHARACTER =0 P* . P ADK A1,1 INCREMENT NO OF NON ZERO DIGITS & PNUMB10 EQU * X & P SUK A3,1 DECREMENT DIGIT COUNTER l & P RF(Z) NUMB20 ALL DIGITS PROCESSED P* , P SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE " P RB NUMB00 PRO
0x3cf480…3cf614 (1, 1079) Dummy {f00=0x009a, f01=0x0190, f02=»************************** x 6 P* * " 6 P* SEQUENCES * 6 P* * 6 P**************************************************
0x3cf614…3cf7a8 Dummy {f00=0x009a, f01=0x0190, f02=» P DATA 'L=' PSEQ3 EQU * LEV= P DATA 'LE' 2 P DATA 'V=' D PSEQ4 EQU * TDC=T V P DATA 'TD' n P DATA 'C=' P DATA 'T0' PSEQ5 EQU * LC= P DATA 'LC' P DATA '=0' PSEQ6 EQU * SDC=S P DATA 'SD' P
0x3cf7a8…3cf93c Dummy {f00=0x009a, f01=0x0190, f02=»CON:30 EQU * P LDR A1,A9 START OF BUFFER " P ADKL A1,BUFLEN END OF BUFFER 6 , P ST A1,PLDADR+STKEND SAVE END OF BUFFER P ST A1,EINPBF+STKEND SAVE 4 P ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA P CF A14,RDBLK READ ONE BLOCK "
0x3cf93c…3cfad0 Dummy {f00=0x009a, f01=0x0190, f02=» f PCON:40 EQU * " P CF A14,RDBLK READ NEXT BLOCK P LDR A1,A1 TAPEMARK? B P RF(NZ) CONEX YES! ^ PCON:50 EQU * x P* 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK P* 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER
0x3cfad0…3cfc64 Dummy {f00=0x009a, f01=0x018e, f02=» A5,A4 GET CHARACTER IN BUFFER P CCK A5,';;' CHECK IF SPACE & & P RF(E) CON:70 NO MOORE CHARACTERS J PCON:65 EQU * t P CWK A3,CBLEN END OF BUFFER? P RF(E) CON:75 YES! * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? P RF(E) MEMOFL YES!
0x3cfc64…3cfdf8 Dummy {f00=0x009a, f01=0x0190, f02=» l P RB CON:60 PCON:70 EQU * " P LC A5,1,A4 GET NEXT CHARACTER . " P CCK A5,';;' TWO SEMI-COLONS? T P RF(NE) CON:75 NO! z * P CWK A3,NCHTID CHECK IF END OF RECORD 4 P RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD PCON:75 EQU *
0x3cfdf8…3cff8c Dummy {f00=0x009a, f01=0x0190, f02=»NEX EQU * P* > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE P* ^ " P CF A14,RDBLK READ NEXT BLOCK h P LDR A1,A1 APPLICATION DATA? P RF(NZ) CON:80 NO! P LDK A1,/D * P CF A14,CHCRIO SEARCH TAPEMARK REVERSE
0x3cff8c…3d0120 Dummy {f00=0x009a, f01=0x0190, f02=»CON:90 EQU * P ABL CONMOV P XIF ( PCONERR EQU * 4 P LDKL A1,LMP4 H P CALL ERROR ^ P IFF CFTEST=1 r PMEMOFL EQU * * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CALL ERROR P EJECT PCONRAD EQU * P* 6
0x3d0120…3d02b4 (1, 1080) Dummy {f00=0x009a, f01=0x0190, f02=» CONRA0 SAME AS PGM LOAD DEVICE P* ( 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. 2 PCONRA0 EQU * f * P LD A11,CONDAD+STKEND GET START SECTOR z 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART " P LDR A1,A9 GET START OF BUFFER $ P ADK
0x3d02b4…3d0448 Dummy {f00=0x009a, f01=0x0190, f02=»START OF SAVE BUFFER P ST A1,EINPBF+STKEND SAVE =2 P ST A1,CONSTA+STKCOM @ $ P LDKL A10,0 RESET RECORD COUNTER PCOR:10 EQU * P* 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE P* P CF A14,RDSEC READ SECTOR " P LDR A
0x3d0448…3d05dc Dummy {f00=0x009a, f01=0x0190, f02=»PBF+STKEND GET CURRENT POINTER IN BUFFER P LDR A2,A1 SAVE 0 & P LDK A3,0 RESET CHARACTER COUNTER H P LDR A4,A8 START OF RECORD r P* P* LOOK IF WE HAVE AN P* APPLICATION CONTROL BLOCK P* & P LDR* A5,A4 GET 1ST WORD IN BU
0x3d05dc…3d0770 Dummy {f00=0x009a, f01=0x0190, f02=» l P RF(NE) COR:30 NO! P* " * P LDKL A5,/FF3B YES, SUBSTITUTE A; WITH , P STR A5,A4 'HEX FF' AND ';' Z 8 P LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK ~ P ADK A1,1 SKIP BLOCK MARKER 6 P ST A1,EINPBF+STKEND SAVE CURRENT BUFFER P
0x3d0770…3d0904 Dummy {f00=0x009a, f01=0x018e, f02=»A8 START OF RECORD 0 P ADK A3,1 INCREMENT NO OF CHARACTERS TO MOVE P CALL MOVE N P ADKL A10,2 SKIP NEXT RECORD ` P* . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER ( P CW A8,PLDADR+STKEND END OF BUFFER? P RF(L) COR:48 NO! P*
0x3d0904…3d0a98 Dummy {f00=0x009a, f01=0x0190, f02=» : P LD A5,EINPBF+STKEND CURRENT POSITION IN CONF. DATA =6 8 P SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 F P ST A5,DCBLK+STKCOM SAVE =6 PCOR:30 EQU * P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? P RF(E) COR
0x3d0a98…3d0c2c Dummy {f00=0x009a, f01=0x0190, f02=»OVERFLOW? t P RB(E) MEMOFL YES! & P ADK A1,1 INCREMENT BUFFER POINTER , * P ADK A3,1 INCREMENT CHARACTER COUNTER V & P ADK A4,1 INCREMENT RECORD POINTER P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NEXT CHARACTER P CCK A5,
0x3d0c2c…3d0dc0 Dummy {f00=0x009a, f01=0x0190, f02=»R IN RECORD l PCOR:45 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION ( P LDR A1,A8 START OF RECORD ^ P CALL MOVE ( P ADKL A10,1 INCREMENT RECORD COUNTER & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! PCOR:48
0x3d0dc0…3d0f54 (1, 1081) Dummy {f00=0x009b, f01=0x0190, f02=» P RB COR:20 NEXT RECORD PCOR:50 EQU * " " P LD A1,SCTOPT GET OPTION WORD 6 P ANK A1,8 SWB:S? P RF(Z) COR:55 NO t P LDK A3,'S' & P SC A3,GET:25+1 MODIFY INSTRUCTION & P SC A3,GET:60+1 MODIFY INSTRUCTION P LD A1,IPLDEV+STKEND
0x3d0f54…3d10e8 Dummy {f00=0x009b, f01=0x0190, f02=»55 EQU * 4 P LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE H P* x P LDR A2,A1 P ANK A2,/F P SUK A2,9 $ P RF(NZ) COR:58 NOT FLEXIBLE DISC P XIF P IFT CFTFLD+FLDISC=2 ( P
0x3d10e8…3d127c Dummy {f00=0x009b, f01=0x0190, f02=» j P SUK A1,/F8 CHECK TYPE $ P RF(N) COR:60 NOT FLEXIBLE DISC & P* N " P SUK A1,/FC-/F8 FLEXIBLE DISC? X P RF(NN) COR:60 NO! ~ P* P XIF P IFT CFTFLD+FLDISC=2 " P LD A2,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING?
0x3d127c…3d1410 Dummy {f00=0x009b, f01=0x0190, f02=» P IFF CFTEST=1 P IFF CFTEST=1 PCOR:60 EQU * 0 P EJECT D PCONMOV EQU * R P* f 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA p P* & P CIO A1,0,SOP INHIBIT SOP SWITCHES " P LDR A1,A9 GET START OF BUFFER ( P AD A1
0x3d1410…3d15a4 Dummy {f00=0x009b, f01=0x0190, f02=»STEM AREA n * P CM -2,A2 MAKE SURE CONFIGURATION FILE " P SUK A2,1 IS FOLLOWED BY X'00' @ , P SUR A3,A1 LENGTH OF CONFIGURATION DATA f 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA P SUR A2,A3 TO-ADDRESS P* $ P ANKL A2,/FFFE MAKE
0x3d15a4…3d1738 Dummy {f00=0x009b, f01=0x0190, f02=»ONF. DATA l 0 P ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH P ANKL A1,/FFFE AND MAKE EVEN F P ST A1,CONLEN+STKCOM j & P LDR A1,A9 GET START OF FREE AREA P LDR A12,A2 END OF FREE AREA $ P SUR A12,A1 SUBTRACT MONITOR END 2 P ST A12,M:RE
0x3d1738…3d18cc Dummy {f00=0x009b, f01=0x0190, f02=» * P ADR A2,A12 RELOCATE MXSTAB ADDRESS =1 , P ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1 6 PCMOV20 EQU * =1 f , P LD A2,CONSTA+STKCOM GET START OF CONFF P* < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA P* PMOPR
0x3d18cc…3d1a60 Dummy {f00=0x009b, f01=0x0190, f02=»B(NE) MOPRO ( P ABR A2 CONTINUE EXECUTION IN SYSLDM P XIF @ P EJECT L L P************************************************************************ Z L P* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O L P**************
0x3d1a60…3d1bf4 (1, 1082) Dummy {f00=0x00d8, f01=0x0190, f02=»* r $ P* ========================= * $ P* * 2 $ P* ENTRY: * Z $ P* * $ P* EXIT: A1 - SOP INPUT * $ P* BIT 6 - SWITCH 1 * $ P* BIT
0x3d1bf4…3d1d88 Dummy {f00=0x00d8, f01=0x0190, f02=»* r $ P* SUBROUTINES: * $ P* * 2 $ P******************************* Z PSOPIN EQU * P CIO A1,1,SOP P INR A1,0,SOP P RB(NA) *-2 P RTN A14 P EJECT ( P********************
0x3d1d88…3d1f1c Dummy {f00=0x00d8, f01=0x0190, f02=»===== * x ( P* * ( P* USED FOR CONFIGURATION OF * @ ( P* PROGRAM LOAD DEVICE AND * l ( P* CONFIGURATION DATA LOAD * ( P* DEVICE (IF DIFFERENT). * ( P*
0x3d1f1c…3d20b0 Dummy {f00=0x00d8, f01=0x018e, f02=» * t ( P*********************************** P < P D PLODDEV EQU * L P LDKL A3,BUFLEN ` * P ST A3,SAVCON INITIALIZE BUFFER LENGTH x P LDKL A2,-1 $ P ST A2,CYLNBR SET SEEK CONDITION P LDR A2,A1 $ P ANK A2,/80 CHECK IF
0x3d20b0…3d2244 Dummy {f00=0x00d8, f01=0x0190, f02=» j * P LC A3,IPLTYP+1+STKEND GET DEVICE TYPE P ANK A3,/FF 6 P SUK A3,3 J P RF(N) DISC:0 DISC P RF(Z) MFD:0 MINI FIXED DISC v P SUK A3,3 =9 P RF(N) CDC:0 80M CDC DISC P RF FLEX:0 FLEXIBLE DISC P EJECT PCASS:0 E
0x3d2244…3d23d8 Dummy {f00=0x00d8, f01=0x0190, f02=»ON CONTR. BLOCK f * P CM APLADA+2,A1 CLEAR APPLICATION DISC ( P CM APLADA+4,A1 FILE ADDRESS ENTRIES F * P LDKL A1,RDBLK GET SUBROUTINE ADDRESS r P LDR A10,A1 0 P ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE PCASS:2 EQU * * P CF A14,RDBL
0x3d23d8…3d256c Dummy {f00=0x00d8, f01=0x0190, f02=»SSETTE n P RB CASS:2 P XIF P IFF CASS=1 , P LDKL A1,LMP9 @ & P CALL ERROR ILLEGAL MONITOR OPTION V P XIF P EJECT PFLEX:0 EQU * P IFT FLDISC=1 P* * P* PROGRAM LOAD DEVICE = FLEXIBLE DISC P* P*
0x3d256c…3d2700 Dummy {f00=0x00d8, f01=0x0190, f02=»* P* INIT FLEXIBLE DISC P* ( P CF A14,FDINIT 2 P RF FINISH H P* Z P XIF d P IFF FLDISC=1 p P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF P EJECT PMFD:0 EQU * P IFT MFDISC=1
0x3d2700…3d2894 (1, 1083) Dummy {f00=0x00d9, f01=0x0190, f02=»/F4 ( P ST A2,FILCOD+STKEND SAVE FILE CODE P* 8 P* INIT MINI FIXED DISC B P* ` P CF A14,MDINIT j P RF FINISH RETURN P* P XIF P IFF MFDISC=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P X
0x3d2894…3d2a28 Dummy {f00=0x00d9, f01=0x0190, f02=»ODIFY SCTIPL: /F1 - CARTRIDGE DISC /F0 - FIX DISC P* : & P LC A2,FCTAB,A2 LOAD FILE CODE =5 D ( P ST A2,FILCOD+STKEND SAVE FILE CODE n P* P* INITIALIZE DISC COMMANDS P* P CF A14,DUINIT P XIF P IFF DISC=1 P
0x3d2a28…3d2bbc Dummy {f00=0x00d9, f01=0x0190, f02=» * P LD A2,FILCOD+STKEND RESTORE FILE CODE P RTN A14 6 P EJECT F PCDC:0 EQU * T P IFF CDDISC+CDDI16=0 h P* 0 P* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC P* P* P* MODIFY SCTIPL: /FC - /FD P* $ P SRC A
0x3d2bbc…3d2d50 Dummy {f00=0x00d9, f01=0x018e, f02=»USED =9 x P ORK A2,/FC FILE CODE ( P ST A2,FILCOD+STKEND SAVE FILE CODE . P* Z P* INITIALISE DISC COMMANDS d P* P CF A14,CDINIT INIT DEVICE P RB FINISH RETURN P XIF P IFT CDDISC+CDDI16=0 =9 P LDKL A1,LMP9
0x3d2d50…3d2ee4 Dummy {f00=0x00d9, f01=0x0190, f02=» < P* * < P* CONFLD - SELECT LOAD UNIT FOR CONF. DATA * D < P* ======================================== * < P* * < P*
0x3d2ee4…3d3078 Dummy {f00=0x00d9, f01=0x0190, f02=»******************************************* P 4 P < PCONFLD EQU * D P LDKL A2,-1 X $ P ST A2,CYLNBR SET SEEK CONDITION l " P LDR A2,A1 SAVE DEVICE ADDRESS " P ANK A2,/F ISOLATE LAST DIGIT P SUK A2,7 P RB(N) MFD:0 MINI FIXE
0x3d3078…3d320c Dummy {f00=0x00d9, f01=0x0190, f02=»EX:0 FLEXIBLE DISC DEVICE P EJECT " P IFT CASS=1 0 < P******************************************************* D < P* CASSIN - CASSETTE INITIATING ROUTINE * < P* ==================================== * < P*
0x3d320c…3d33a0 Dummy {f00=0x00d9, f01=0x0190, f02=» * < P* ENTRY: * 4 < P* * t < P* EXIT: * < P*
0x3d33a0…3d3534 (1, 1084) Dummy {f00=0x00d9, f01=0x0190, f02=» * t < P* SUBROUTINES: SOPIN,CHCRIO * $ < P* * d < P******************************************************* PCASSIN EQU * P LDK A1,/F "
0x3d3534…3d36c8 Dummy {f00=0x00d9, f01=0x0190, f02=» CF A14,SOPIN READ SOP $ P ANKL A1,/0300 ALLOWED SWITCHES? P RB(Z) CAS:10 NO! F & P LDKL A3,LMP1 SWITCH ON LOAD LAMP ` P OTR A3,0,SOP P SRL A1,8 RIGHT ALIGN P ANK A1,1 SELECT UNIT P CF A14,CHCRIO SELECT UNIT P LDK A1,LO
0x3d36c8…3d385c Dummy {f00=0x00d9, f01=0x0190, f02=»4,CHCRIO SEARCH BEGINNING OF TAPE P LDK A1,STMF * * P CF A14,CHCRIO SEARCH TAPEMARK FORWARD > P RTN A14 l P EJECT | 2 P********************************************* 2 P* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * 2 P* ===============
0x3d385c…3d39f0 Dummy {f00=0x00d9, f01=0x0190, f02=» b 2 P* * 2 P* ENTRY: A1 - I/O INSTRUCTION COMMAND * > 2 P* * t 2 P* EXIT: * 2 P*
0x3d39f0…3d3b84 Dummy {f00=0x00d9, f01=0x0190, f02=»: * 2 P* * ( 2 P********************************************* ^ PCHCRIO EQU * P CIO A1,1,CHCR P SST A3,CHCR P RB(NA) CHCRIO P RTN A14 P EJECT 6 P**
0x3d3b84…3d3d18 Dummy {f00=0x00d9, f01=0x0190, f02=»ONE CASSETTE BLOCK * z 6 P* =============================== * $ 6 P* * ^ 6 P* REFERENCED IN: SYSLOD * 6 P* *
0x3d3d18…3d3eac Dummy {f00=0x00d9, f01=0x0190, f02=»UMBER OF CHARACTERS IN BLOCK * 6 P* * * : P* WORK REGISTERS: A1,A2,A3,A4,A5 * d 6 P* * 6 P* SUBROUTINES:
0x3d3eac…3d4040 Dummy {f00=0x00d9, f01=0x0190, f02=»3,A9 START OF BUFFER & P LDK A2,0 RESET CHARACTER COUNTER $ P LDR A4,A3 SAVE START OF BUFFER F P ADKL A3,CBLEN END OF BUFFER n P LDK A1,/A P CIO A1,1,CHCR READ BLOCK P RF(NA) RDERR3 PRDB:20 EQU * P INR A1,0,CHCR P R
0x3d4040…3d41d4 (1, 1085) Dummy {f00=0x00fe, f01=0x0190, f02=»ARACTER COUNTER z & P ADK A4,1 INCREMENT BUFFER POINTER PRDB:30 EQU * B P SST A1,CHCR V P RB(NA) RDB:20 l P ANKL A1,/FCFF CHECK STATUS P LDR A4,A1 SAVE STATUS P RF(Z) RDBEX OK P SLC A4,3 CHECK IF TAPEMARK P RF(N) R
0x3d41d4…3d4368 Dummy {f00=0x00fe, f01=0x0190, f02=»OCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE P* 4 P ADK A5,1 NEXT ATTEMPT > P CWK A5,3 THIRD ATTEMPT? P RF(E) RDERR3 YES - GIVE UP! | P LDK A1,/E REVERSE ONE BLOCK P CIO A1,1,CHCR EXECUTE ORDER $ P RB(NA) *-2 LOOP UNTIL ACCEPTED
0x3d4368…3d44fc Dummy {f00=0x00fe, f01=0x0190, f02=» IFT DISC=1 P EJECT ( P*********************************** " ( P* * N ( P* DUINIT - INITIALIZE DISC UNIT * z ( P* ============================= * ( P* * ( P* REFEREN
0x3d44fc…3d4690 Dummy {f00=0x00fe, f01=0x0190, f02=» * ( P* EXIT: * ( P* * J * P* WORK REGISTERS: A2,A3 * v ( P* * ( P* SUBROUTINES: * ( P*
0x3d4690…3d4824 Dummy {f00=0x00fe, f01=0x0190, f02=»DDRESS p P LDR A5,A1 SAVE FILE CODE P EJECT 0 P* > $ P* INIT DISC COMMANDS VERSION A2 H P* p , P ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. z P ST A1,SEEK20 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,SEEK21 * P XRKL
0x3d4824…3d49b8 Dummy {f00=0x00fe, f01=0x0190, f02=»D INIT SUBROUTINE ADDRESSES P ST A2,READS $ P LDK A2,4 8 $ P XRS A2,CRCCHK DISCARD CRC CHECK J $ P CF A14,GETVLB GET VOLUME LABEL r P LDK A2,4 P ORS A2,CRCCHK SET CRC CHECK P LC A2,FORDEV,A9 GET FORMAT P ANK A2,1 P R
0x3d49b8…3d4b4c Dummy {f00=0x00fe, f01=0x0190, f02=»INIT DISC COMMANDS VERSION A3 P* & , P LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 0 * P ST A3,SAVCON BUFFER LENGTH VERSION A3 ` P ORKL A1,CIO+8 , P XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR. P ST A1,SEEK30 ( P ORKL A1,/800 FORM SST A4,XX I
0x3d4b4c…3d4ce0 Dummy {f00=0x00fe, f01=0x0190, f02=»TR. p P ST A1,READ31 P* " P* INIT SUBROUTINE ADDRESSES , P* P " PDUI:40 ST A2,READ READ PROGRAM Z ( P ST A2,READS READ CONFIGURATION DATA PDUI:50 EQU * P RTN A14 P EJECT 4 P******************************************
0x3d4ce0…3d4e74 (1, 1086) Dummy {f00=0x00ff, f01=0x0190, f02=»========================== * 4 P* * . 4 P* REFERENCED IN: SYSLOD * f 4 P* * " P* ENTRY: A9 = BUFFER ADDRESS 4 P*
0x3d4e74…3d5008 Dummy {f00=0x00ff, f01=0x0190, f02=» * l 4 P* EXIT: * 4 P* * L ( P* WORK REGISTERS: A1,A2,A3,A4,A7 4 P* * 4 P* SUBROUTINES: ERROR
0x3d5008…3d519c Dummy {f00=0x00ff, f01=0x0190, f02=»* P EJECT P* " P* READ DISC SECTOR VERSION A2 " P* H PRDSEC2 EQU * R P LDK A2,0 f * P LDR A1,A11 GET LOGICAL SECTOR NUMBER x PDIV200 EQU * P ADR A2,A1 P SRL A1,5 ( P RB(NZ) DIV200 MORE IN SERIE TO ADD
0x3d519c…3d5330 Dummy {f00=0x00ff, f01=0x0190, f02=»RECTION OF RESULT | P ADK A2,1 PDIV210 EQU * , . P LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 @ P RF(Z) DIV220 CYLINDER 0 r P ADK A2,1 PDIV220 EQU * 4 P ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING P* P LDR A1,A2
0x3d5330…3d54c4 Dummy {f00=0x00ff, f01=0x0190, f02=»SET BIT 14 P EJECT P* P* SEEK CYLINDER * P* B PSEEK20 CIO A1,1,0 L P RB(NA) SEEK20 f P* | PSEEK21 SST A1,0 P RB(NA) SEEK21 P* P* INTERLACING P* PINT200 EQU * P LDR A1,A2 P ADR
0x3d54c4…3d5658 Dummy {f00=0x00ff, f01=0x0190, f02=»F(Z) INT210 EVEN CYLINDER P ADK A2,8 " PINT210 EQU * 4 P ANK A2,/1F H , P SLL A2,2 PHYSICAL SECTOR AND ORDER CODE P ST A2,SECNBR P EJECT P* P* READ SECTOR P* P LDR A1,A9 BUFFER ADDRESS ( PREAD20 LDKL
0x3d5658…3d57ec Dummy {f00=0x00ff, f01=0x0190, f02=»0 READ SECTOR & P RB(NA) READ21 LOOP UNTIL ACCEPTED PREAD22 SST A2,0 STATUS @ & P RB(NA) READ22 LOOP UNTIL ACCEPTED ^ PCRCCHK EQU * P ANK A2,/1F STATUS P RF(NZ) DUERR READING ERROR ( P ADKL A11,1 INCREMENT SECTOR COUNTER P R
0x3d57ec…3d5980 Dummy {f00=0x00ff, f01=0x0190, f02=»GET LOGICAL SECTOR NUMBER P LDKL A7,/1000 " P LDKL A4,/3000 8 PDIV300 EQU * N P SUR A1,A4 b P RF(N) DIV310 t P ADR A2,A7 P RB DIV300 PDIV310 EQU * P ADR A1,A4 ADJUST DIVIDEND P SRL A4,4 P SRL A7,4 P
0x3d5980…3d5b14 (1, 1087) Dummy {f00=0x00ff, f01=0x0190, f02=» , b P ADK A2,1 , , XXXX, PCASE10 EQU * . P LDR A4,A2 B P SRL A4,5 T P CW A4,CYLNBR f P RF(E) INT300 | , P ST A4,CYLNBR STORE NEW CYLINDER NUMBER P SLL A4,3 P ORK A4,2 SET BIT 14 P EJECT P* P
0x3d5b14…3d5ca8 Dummy {f00=0x00ff, f01=0x018e, f02=»EK31 P* P* INTERLACING P* , PINT300 EQU * 6 P LDR A3,A2 J P ADR A2,A2 $ P ADR A2,A3 INTERLACING FACTOR 3 n P ANK A2,/1F & P LD A4,CYLNBR GET CYLINDER NUMBER P ANK A4,1 & P RF(Z) INT310 EVEN CYLINDER NUMBER
0x3d5ca8…3d5e3c Dummy {f00=0x00ff, f01=0x0190, f02=» . P ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER P EJECT 6 P* D P* READ SECTOR N P* d P LDR A7,A9 BUFFER ADDRESS n * PREAD34 LDKL A4,MXCCD3 NUMBER OF WORDS , PWERIO3 WER A4,/10 WRITE NUMBER OF WORDS $ P WER A7,/11 WRITE BUFFER A
0x3d5e3c…3d5fd0 Dummy {f00=0x00ff, f01=0x0190, f02=»ATUS z & P RB(NA) READ31 LOOP UNTIL ACCEPTED P ANK A2,/1F STATUS 6 P RF(NZ) DUERR READING ERROR P P LDR A2,A9 BUFFER ADDRESS t P LDR A1,A1 " P RF(N) RETURN ,XXXX , , " P RF(P) READ33 , , XXXX, P ADKL A2,256 SOURCE
0x3d5fd0…3d6164 Dummy {f00=0x00ff, f01=0x0190, f02=» A2,2 P ADK A7,2 P SUK A4,1 " P RB(NZ) READ32 CONTINUE MOVING 2 P LD A1,SAVMEM X P RF(P) RETURN n ( P LD A2,SECNBR PHYSICAL SECTOR NUMBER " P ADK A2,/C NEW SECTOR TO READ P ANK A2,/7C P SUK A1,1 P RB READ34
0x3d6164…3d62f8 Dummy {f00=0x00ff, f01=0x0190, f02=»RETURN ADKL A11,1 INCREMENT SECTOR NUMBER P RTN A14 2 P B PDUERR EQU * J P LDKL A1,LMP2 ^ P CALL ERROR t P XIF P IFT MFDISC=1 P EJECT < P******************************************************** < P*
0x3d62f8…3d648c Dummy {f00=0x00ff, f01=0x0190, f02=»================== * x < P* * ( < P* REFERENCED IN: SYSLOD,GETFIL * h < P* * < P* ENTRY: A1 = DEVICE ADDRESS
0x3d648c…3d6620 Dummy {f00=0x00ff, f01=0x0190, f02=» * h < P* * < P* WORK REGISTERS: * X < P* * < P* SUBROUTINES: ERROR
0x3d6620…3d67b4 (1, 1088) Dummy {f00=0x00ff, f01=0x018e, f02=» X PMDINIT EQU * P* $ P* INIT MINI FIXED DISC COMMANDS & P* N PMDI:00 EQU * X , P ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. l P ST A1,READM2 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READM3 * P XRKL A1,/B00 FORM C
0x3d67b4…3d6948 Dummy {f00=0x00ff, f01=0x0190, f02=» * P LDKL A2,MRDSEC GET SUBROUTINE ADDRESS P ST A2,READ 2 P ST A2,READS F P RTN A14 Z P EJECT j : P****************************************************** x : P* * : P* MRDSEC - READ ONE
0x3d6948…3d6adc Dummy {f00=0x00ff, f01=0x018e, f02=» * p : P* REFERENCED IN: SYSLOD * : P* * : P* ENTRY: A9 = BUFFER ADDRESS * : P* A11 = SECTOR NUMBER
0x3d6adc…3d6c70 Dummy {f00=0x00ff, f01=0x0190, f02=» : P* * : P* WORK REGISTERS: * B : P* * : P* SUBROUTINES: * : P*
0x3d6c70…3d6e04 Dummy {f00=0x00ff, f01=0x0190, f02=» A1,0 PREPARE FOR DIVISION * P LDR A2,A11 GET LOGICAL SECTOR NUMBER " P DVK 104 DIVIDE BY 104 P P SLL A2,2 n P ORK A2,3 SET BIT 14 AND 15 P* " P* A1=SECTOR NUMBER ON CYLINDER P* A2=CYLINDER NUMBER P* & P ST A1,SECNBR
0x3d6e04…3d6f98 Dummy {f00=0x00ff, f01=0x0190, f02=» EJECT P* P* SEEK CYLINDER P* 0 " PSEEKM1 CIO A2,1,0 SEEK COMMAND : & P RB(NA) SEEKM1 LOOP UNTIL ACCEPTED ` P* PSEEKM2 SST A2,0 GET STATUS & P RB(NA) SEEKM2 WAIT UNTIL ACCEPTED P* P* INTERLACING P*
0x3d6f98…3d712c Dummy {f00=0x00ff, f01=0x0190, f02=» " P SLL A2,2 A2:=4*SECTOR NUMBER " P LDK A1,0 PREPARE FOR DIVISION . P DVK 52 T , P ADR A1,A2 A1:=INTERLACED SECTOR NUMBER d P* " P* A1:=INTERLACED SECTOR NUMBER P* & P LD A2,CYLNBR GET CYLINDER NUMBER P SRC A2,3 (
0x3d712c…3d72c0 Dummy {f00=0x00ff, f01=0x0190, f02=» P SLL A1,2 6 P LD A2,SECNBR GET SECTOR NUMBER BEFORE INTERLACING P CWK A2,52 P P RF(L) INTM40 HEAD NUMBER 0 b P ORKL A1,/4000 HEAD NUMBER 1 PINTM40 EQU * P* P* READ SECTOR P* PREADM1 EQU * " P LDKL A4,MUX
0x3d72c0…3d7454 (1, 1089) Dummy {f00=0x00ff, f01=0x0190, f02=»ER ADDRESS | P* " PREADM2 CIO A1,1,0 READ SECTOR & P RB(NA) READM2 LOOP UNTIL ACCEPTED B P* l PREADM3 SST A1,0 GET STATUS v & P RB(NA) READM3 LOOP UNTIL ACCEPTED P ANK A1,/1F STATUS P RF(NZ) MFDERR READING ERROR ( P ADKL A1
0x3d7454…3d75e8 Dummy {f00=0x00ff, f01=0x0190, f02=»FT FLDISC=1 P EJECT 4 P************************************************ " 4 P* * Z 4 P* FDINIT - INITIALIZE FLEXIBLE DISC * 4 P* ================================= * 4 P*
0x3d75e8…3d777c Dummy {f00=0x00ff, f01=0x0190, f02=» * r 4 P* ENTRY: A1 - DEVICE ADDRESS * 4 P* * R 4 P* EXIT: * 4 P* * 4 P* WORK REGIST
0x3d777c…3d7910 Dummy {f00=0x00ff, f01=0x018e, f02=» * j 4 P* * 4 P************************************************ J PFDINIT EQU * P ANK A1,/10 0 P ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. P ST A1,FRD:10 < P LDKL A2,FRDS25 ADDR
0x3d7910…3d7aa4 Dummy {f00=0x00ff, f01=0x0190, f02=» P RB(NA) FDI:05 P* P ANK A1,/10 ( ( P RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE < P* h . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 r ( P ST A1,FRD:20 MODIFY INR INSTRUCTION P LDKL A1,/41F " P ST A1,FRD:42 MODIFY SST MASK
0x3d7aa4…3d7c38 Dummy {f00=0x00ff, f01=0x0190, f02=» EQU * P ST A2,READ P ST A2,READS " $ P CF A14,GETVLB GET VOLUME LABEL 6 P LD A1,FORDEV,A9 GET FORMAT ^ P ST A1,DEVTYP+STKEND P RTN A14 P EJECT 0 P******************************************** 0 P*
0x3d7c38…3d7dcc Dummy {f00=0x00ff, f01=0x0190, f02=» ============================= * 0 P* * 0 0 P* ON ENTRY: A1 = DEVICE ADDRESS * d 0 P* * 0 P******************************************** P P
0x3d7dcc…3d7f60 Dummy {f00=0x00ff, f01=0x0190, f02=»COMMAND v $ P RB(NA) *-4 LOOP UNTIL ACCEPTED P* 8 P EX FRD:40 SENSE STATUS B $ P RB(NA) *-4 LOOP UNTIL ACCEPTED b P RTN A14 P EJECT @ P*********************************************************** @ P*
0x3d7f60…3d80f4 (1, 1090) Dummy {f00=0x0100, f01=0x0190, f02=»==================== * t @ P* * ( @ P* REFERENCED IN: SYSLOD * l @ P* * @ P* ENTRY: A9 - BUFF
0x3d80f4…3d8288 Dummy {f00=0x0100, f01=0x0190, f02=» * | @ P* EXIT: * 0 @ P* * t @ P* WORK REGISTERS: A1,A2,A3 * @ P*
0x3d8288…3d841c Dummy {f00=0x0100, f01=0x0190, f02=» * @ P*********************************************************** 8 PFRDSEC EQU * | " P LDR A2,A11 GET SECTOR NUMBER * P LDKL A4,/340 26 SHIFTED 10 STEPS LEFT $ P LD A1,DEVTYP+STKEND DEVICE TYPE
0x3d841c…3d85b0 Dummy {f00=0x0100, f01=0x0190, f02=» * P SLL A2,1 A2=0-25,PHYSICAL SECTOR NBR P RF DVK26 2 PNOTCY0 EQU * D P ADK A2,13 X P EJECT j P* x P* A2=PHYSICAL SECTOR NUMBER P* PDVK26 EQU * P LDK A1,0 PDVK26A EQU * P SLL A1,5 PDVK26B EQU *
0x3d85b0…3d8744 Dummy {f00=0x0100, f01=0x0190, f02=» " P RB(NZ) DVK26A NEXT FIVE BITS P EJECT * P* 8 P* A2=SECTOR NUMBER B P* A1=CYLINDER NUMBER P* x $ P LD A4,DEVTYP+STKEND DEVICE TYPE P ANK A4,1 , P RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD P SLL A1,1 ONLY ONE HEAD
0x3d8744…3d88d8 Dummy {f00=0x0100, f01=0x0190, f02=» CORRECT POSITION v $ P ORR A2,A4 A2=CIO READ REGISTER 2 P SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION B " P ORK A1,3 A1=CIO SEEK REGISTER x 4 P CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER P RF(E) NOSEEK NO SEEK NEEDED & P ST A1,CYLNBR
0x3d88d8…3d8a6c Dummy {f00=0x0100, f01=0x0190, f02=»L A1,/611 P RF(NZ) FRD:50 SEEK ERROR PNOSEEK EQU * 4 P LDR A1,A2 H P RF FRD:05 Z P EJECT l PFRDS25 EQU * z P LDR A1,A11 SECTOR NO P SLL A1,4 8 P ORKL A1,/4000 NUMBER OF SECTORS=2 (BIT 0 - BIT 1) PFRD:05 EQU *
0x3d8a6c…3d8c00 Dummy {f00=0x0100, f01=0x0190, f02=» LDR A2,A3 BUFFER START ADDRESS $ P AD A2,SAVCON BUFFER END ADDRESS ( P* P $ PFRD:10 CIO A1,1,FDCU START READ Z P RB(NA) FRD:10 P* P EJECT CRVOL P* P* PFRD:20 INR A1,0,FDCU P RF(NA) FRD:40 =4 P STR A
0x3d8c00…3d8d94 (1, 1091) Dummy {f00=0x0119, f01=0x0190, f02=»FRD:40 SST A1,FDCU P RB(NA) FRD:20 PFRD:42 EQU *+2 0 P ANKL A1,/4E15 FATAL ERROR ? F P RF(NZ) FRD:50 YES! j PFRD:43 CWR A3,A2 =4 ( P RF(E) FRD:44 PROGRAMMED CHANNEL =4 . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 & P ST A1,F
0x3d8d94…3d8f28 Dummy {f00=0x0119, f01=0x0190, f02=»TR. =4 t P ABI READ READ AGAIN =4 PFRD:45 EQU * . ( P ADKL A11,1 INCRMENT SECTOR ADDRESS B P RF(NN) FRD:48 n 0 P SUR A11,A11 RESET LEAST SIGN. PART OF D.A. 2 P ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. $ P RF(O) FRD:50 DISC ADDRESS
0x3d8f28…3d90bc Dummy {f00=0x0119, f01=0x0190, f02=»-2 =4 x " PFRD:B2 EQU FRD:45-FRD:43-2 =4 P XIF 4 P IFT CDDISC=1 @ P IFT CDDI16=0 =9 V P EJECT p ( P*********************************** ~ ( P* * ( P* CDINIT - INITIALIZE DISC UNIT * ( P* ===
0x3d90bc…3d9250 Dummy {f00=0x0119, f01=0x0190, f02=» * ( P* ENTRY: A1 - DEVICE ADDRESS * " ( P* * N ( P* EXIT: * z ( P* * ( P* WORK REGISTERS: A1,A2 * ( P*
0x3d9250…3d93e4 Dummy {f00=0x0119, f01=0x0190, f02=»********************* P PCDINIT EQU * & P* : P* INIT 80M CDC DISC COMMANDS D P* h , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. r P ST A1,READC1 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00
0x3d93e4…3d9578 Dummy {f00=0x0119, f01=0x0190, f02=» 2 P ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR & P LDKL A2,/300 BUFLEN 80M CDC DISC : P ST A2,SAVCON SAVE LENGTH d 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. P ST A2,READ P ST A2,READS P RTN A14 P EJECT 4 P****
0x3d9578…3d970c Dummy {f00=0x0119, f01=0x0190, f02=»ROM DISC * t 4 P* ================================= * 4 P* * T 4 P* REFERENCED IN: SYSLOD * 4 P* * 4 P* ENTRY: A
0x3d970c…3d98a0 Dummy {f00=0x0119, f01=0x0190, f02=»NIFICANT * l 4 P* A12 - SECTOR NBR MOST SIGNIFICANT * 4 P* * L 4 P* EXIT: A12,A11 = A12,A11 + 1 * 4 P* * 4 P* WORK REGISTERS:
0x3d98a0…3d9a34 (1, 1092) Dummy {f00=0x0119, f01=0x0190, f02=» * d 4 P* * 4 P*********************************************** D P* | PCRDSEC EQU * P* P* SET BUFFER ADDRESS P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 P ST A1,C
0x3d9a34…3d9bc8 Dummy {f00=0x0119, f01=0x0190, f02=» A1,CIOTOT RESET BITS . P LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT 0 P LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT P P EJECT P* P* DIVIDE LOGICAL WITH 3 P* P LDK A3,0 PRED100 EQU * P ADK A3,1 P SUK A1,3
0x3d9bc8…3d9d5c Dummy {f00=0x0119, f01=0x0190, f02=»RESS MEANS NEW READ n P CW A2,PSECNL+STKEND , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR 8 P CW A3,PSECNM+STKEND h , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR P CW A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV
0x3d9d5c…3d9ef0 Dummy {f00=0x0119, f01=0x0190, f02=» A1,A3 P DVK 115 P EJECT P* A1=HEAD NBR * SECTOR NBR , P* A2=CYLINDER NBR N P LDR A3,A2 h P LDR A2,A1 z P LDK A1,0 P DVK 23 P* A1=SECTOR NBR P* A2=HEAD NBR $ P ORKL A2,/800 SET INTERRUPT BIT " P ST
0x3d9ef0…3da084 Dummy {f00=0x0119, f01=0x0190, f02=» SLC A3,1 ( P RF(NN) INT100 EVEN CYLINDER NUMBER P ADK A2,12 SKEW FACTOR > PINT100 EQU * P DVK 23 p P SLL A1,5 IN POSITION $ P ORS A1,CIOTAB UPDATE CIO TABLE P SRC A3,1 RESTORE A3 P CW A3,CYLNBR & P RF(E) READER SA
0x3da084…3da218 Dummy {f00=0x0119, f01=0x0190, f02=»MMAND z P ST A3,SEKTAB P LDKL A2,SEKTAB $ PSEEKC1 EQU * < P CIO A2,1,0 SEEK P P RB(NA) SEEKC1 h PSEEKC2 EQU * ~ P SST A2,0 P RB(NA) SEEKC2 P EJECT P* P* READ P* PREADER EQU * $ P LDK A
0x3da218…3da3ac Dummy {f00=0x0119, f01=0x0190, f02=»READC1 LOOP UNTIL ACCEPTED P* " PREADC2 SST A1,0 STATUS , & P RB(NA) READC2 LOOP UNTIL ACCEPTED J P ANKL A1,/FF0F STATUS t P RF(NZ) RET30 READING ERROR > P LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 0 P RF(NZ) REDMOV N
0x3da3ac…3da540 Dummy {f00=0x0119, f01=0x0190, f02=» z P RF TURN20 PTURN10 EQU * P SUR A11,A11 RESET A11 . P ADKL A12,1 L PTURN20 EQU * ` P RTN A14 t P EJECT P* " P* MOVE UP NEXT LOGICAL SECTOR P* PREDMOV EQU * 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SE
0x3da540…3da6d4 (1, 1093) Dummy {f00=0x011a, f01=0x0190, f02=»128 LENGTH IN WORDS PRMOV10 EQU * P LDR* A4,A1 . =15 0 P STR A4,A2 . =15 J P ADK A1,2 b P ADK A2,2 t P SUK A3,1 P RB(P) RMOV10 NEXT WORD P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 &
0x3da6d4…3da868 Dummy {f00=0x011a, f01=0x0190, f02=»1 . =15 P RB(NZ) REA100 NEW TRY P LC A1,CIOTAB . P ANK A1,/C0 D 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S X P LDKL A2,/8000 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE P RB READER PRET31 EQU * P ANK A1,
0x3da868…3da9fc Dummy {f00=0x011a, f01=0x0190, f02=» P RB READER PRET32 EQU * P LDKL A2,/3FFF * * P ANS A2,CIOTAB RESET LATE DATA STROBE @ P LC A1,CIOTOT n P ANK A1,/C0 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAG
0x3da9fc…3dab90 Dummy {f00=0x011a, f01=0x018e, f02=»OTOT FROM CARRIAGE+ TO CARRIGE- P RB READER ( P EJECT : P* H P* SEEK TABLE R P* f PSEKTAB EQU * p P DATA 0 P* P* CIO TABLE P* PCIOTAB EQU * & P DATA 0 ORDER,SECTOR NBR,HEAD NBR PCIOTOT EQU *
0x3dab90…3dad24 Dummy {f00=0x011a, f01=0x0190, f02=» PCIOAD1 EQU * P DATA 0 ADDRESS 1 PCIOPA2 EQU * 6 P DATA /4000+128 J PCIOAD2 EQU * b P DATA 0 ADDRESS 2 v PCIOPA3 EQU * P DATA 128 PCIOAD3 EQU * P DATA 0 ADDRESS 3 P XIF P IFT CDDI16=1 =9
0x3dad24…3daeb8 Dummy {f00=0x011a, f01=0x0190, f02=» * p ( P* ============================= * ( P* * 8 ( P* REFERENCED IN: SYSLOD,GETFIL * d ( P* * ( P* ENTRY: A1 - DEVICE ADDRESS * ( P*
0x3daeb8…3db04c Dummy {f00=0x011a, f01=0x0190, f02=» l ( P* * ( P* SUBROUTINES: * 4 ( P* * ` ( P*********************************** P PCDINIT EQU * P* ( P* INIT 16M OR 80M CDC DISC COMMANDS
0x3db04c…3db1e0 Dummy {f00=0x011a, f01=0x0190, f02=»0 =9 < P ST A2,CARFIX+STKEND SAVE FIX OR CARTRIDGE INDICATOR =9 , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. N P ST A1,READC1 ~ ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST
0x3db1e0…3db374 (1, 1094) Dummy {f00=0x011a, f01=0x0190, f02=»FOR SECTOR NBR p & P LDKL A2,/300 BUFLEN 80M CDC DISC P ST A2,SAVCON SAVE LENGTH @ 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. b P ST A2,READ P ST A2,READS & P CF A14,GETVLB GET VOLUME LABEL =9 $ P LC A2,FORDEV+1,A9 GET FORMA
0x3db374…3db508 Dummy {f00=0x011a, f01=0x0190, f02=»CONSTANT FOR 80M DISC =9 PCDI:10 EQU * =9 ( P ST A2,DIVCON SET DIVIDE CONSTANT =9 8 P RTN A14 d P EJECT t 4 P*********************************************** 4 P* * 4 P* CRDSEC- READ ONE SE
0x3db508…3db69c Dummy {f00=0x011a, f01=0x018e, f02=»* b 4 P* REFERENCED IN: SYSLOD * 4 P* * B 4 P* ENTRY: A9 = BUFFER ADDRESS * z 4 P* * 4 P* A11 - SECTOR NBR LEA
0x3db69c…3db830 Dummy {f00=0x011a, f01=0x018e, f02=» 4 P* EXIT: A12,A11 = A12,A11 + 1 * 4 P* * < 4 P* WORK REGISTERS: A1,A2,A3,A4 * t 4 P* * 4 P* SUBROUTINES: ERROR
0x3db830…3db9c4 Dummy {f00=0x011a, f01=0x018e, f02=» PCRDSEC EQU * P* P* SET BUFFER ADDRESS & P* B P LDR A1,A9 BUFFER ADDRESS L P ADKL A1,256 n P ST A1,CIOAD2 ADDRESS 2 P ADKL A1,256 P ST A1,CIOAD3 ADDRESS 3 P LDKL A1,/3FFF P ANS A1,CIOTAB RESET BITS
0x3db9c4…3dbb58 Dummy {f00=0x011a, f01=0x0190, f02=» b P EJECT P* P* DIVIDE LOGICAL WITH 3 P* @ P LDK A3,0 J PRED100 EQU * P ADK A3,1 p P SUK A1,3 P RB(NN) RED100 P ADK A1,3 P SUK A3,1 P DVK 3 P CW A9,CIOAD1 : P RF(NE) RED110 NOT SAM
0x3dbb58…3dbcec Dummy {f00=0x011a, f01=0x0190, f02=» | , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR P CW A1,PSECPA+STKEND 8 & P RF(E) TURN SAME LOG SEC AS BEFORE T . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR ~ PRED110 EQU * P ST A9,CIOAD1 ADDRESS 1 ( P MS 3,PSECPA+STKEND SAVE NEW VALUES
0x3dbcec…3dbe80 Dummy {f00=0x011a, f01=0x0190, f02=»R P LDR A3,A2 P LDR A2,A1 P LDK A1,0 . P DVK 23 @ P* A1=SECTOR NBR P P* A2=HEAD NBR h $ P ORKL A2,/800 SET INTERRUPT BIT ~ , P OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9 " P ST A2,CIOTAB UPDATE CIO TABLE P EJECT
0x3dbe80…3dc014 (1, 1095) Dummy {f00=0x011a, f01=0x0190, f02=»NDER NUMBER x P ADK A2,12 SKEW FACTOR PINT100 EQU * 2 P DVK 23 F P SLL A1,5 IN POSITION V $ P ORS A1,CIOTAB UPDATE CIO TABLE t P SLC A3,1 RESTORE A3 =9 P CW A3,CYLNBR & P RF(E) READER SAME CYLINDER NUMBER P EJECT
0x3dc014…3dc1a8 Dummy {f00=0x011a, f01=0x018e, f02=»DKL A2,SEKTAB PSEEKC1 EQU * P CIO A2,1,0 SEEK * P RB(NA) SEEKC1 B PSEEKC2 EQU * X P SST A2,0 l P RB(NA) SEEKC2 ~ P EJECT P* P* READ P* PREADER EQU * $ P LDK A4,3 NUMBER OF RETRIES =15 PREA1
0x3dc1a8…3dc33c Dummy {f00=0x011a, f01=0x0190, f02=» PREADC2 SST A1,0 STATUS & P RB(NA) READC2 LOOP UNTIL ACCEPTED & P ANKL A1,/FF0F STATUS P P RF(NZ) RET30 READING ERROR n : P LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11 : P RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11
0x3dc33c…3dc4d0 Dummy {f00=0x011a, f01=0x0190, f02=»10 EQU * P SUR A11,A11 RESET A11 ! P ADKL A12,1 ! . PTURN20 EQU * ! B P RTN A14 ! V P EJECT ! f P* ! t " P* MOVE UP NEXT LOGICAL SECTOR ! ~ P* ! PREDMOV EQU * ! 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART ! P SLL A1,1 =
0x3dc4d0…3dc664 Dummy {f00=0x011a, f01=0x0190, f02=» LDR A2,A9 DESTINATION ADDRESS ! P LDK A3,128 LENGTH IN WORDS " & PRMOV10 EQU * " J P LDR* A4,A1 . =15 " ^ P STR A4,A2 . =15 " x P ADK A1,2 " P ADK A2,2 " P SUK A3,1 " P RB(P) RMOV10 NEXT WORD " P RB TURN " P " P " P "
0x3dc664…3dc7f8 Dummy {f00=0x011a, f01=0x0190, f02=» " z P* # PRET30 EQU * # P SUK A4,1 . =15 # & P RB(NZ) REA100 NEW TRY # > P LC A1,CIOTAB # P ANK A1,/C0 # r 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S # P LDKL A2,/8000 # 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE # P
0x3dc7f8…3dc98c Dummy {f00=0x011a, f01=0x0190, f02=»RS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S # P RB READER $ 2 PRET32 EQU * $ D P LDKL A2,/3FFF $ X * P ANS A2,CIOTAB RESET LATE DATA STROBE $ n P LC A1,CIOTOT $ P ANK A1,/C0 $ 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- $ P LDKL A2,/
0x3dc98c…3dcb20 Dummy {f00=0x011a, f01=0x0190, f02=»ERROR $ z P LDKL A2,/C000 % . P XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- % $ P RB READER % V P EJECT % h P* % v P* SEEK TABLE % P* % PSEKTAB EQU * % P DATA 0 % P* % P* CIO TABLE % P* % PCIOTAB EQU * % & P DATA 0 OR
0x3dcb20…3dccb4 (1, 1096) Dummy {f00=0x011a, f01=0x018e, f02=»/4000+128 DATA CHAINING BIT,NUMBER OF WORDS % " P DATA 0 ADDRESS1 MOST SIGN. =9 & 4 PCIOAD1 EQU * & Z P DATA 0 ADDRESS 1 & n PCIOPA2 EQU * & P DATA /4000+128 & $ P DATA 0 ADDRESS 2 MOST SIGN. =9 & PCIOAD2 EQU * & P DATA 0 ADDRESS 2 &
0x3dccb4…3dce48 Dummy {f00=0x011a, f01=0x0190, f02=» P EJECT ' 8 P*************************************************** ' 8 P* * ' N 8 P* GETFIL - GET CONFIGURATION FILE * ' 8 P* =============================== * ' 8 P*
0x3dce48…3dcfdc Dummy {f00=0x011a, f01=0x0190, f02=» * ' z 8 P* ENTRY: A9 - BUFFER ADDRESS * ( & 8 P* * ( b 8 P* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * ( 8 P*
0x3dcfdc…3dd170 Dummy {f00=0x011a, f01=0x0190, f02=»UBROUTINES: READVL,READCF * ( 8 P* * ) 8 8 P*************************************************** ) t PGETFIL EQU * ) P CF A14,GETVLB ) PGET:10 EQU * ) " P CF A14,RDSEC GET VOLUME L
0x3dd170…3dd304 Dummy {f00=0x011a, f01=0x0190, f02=» ) z P CCR A5,A6 UNUSED FILE? * P RF(E) GET:50 YES! * ( P LDR A4,A6 START OF RECORD * B ( P LDK A5,'S' STANDARD FILE CHARACTER * d P CC A5,27,A6 STANDARD FILE? * P RF(NE) GET:50 NO! * * P LDK A5,'$' LEADING CHAR IN CONF. FILE * " P CCR A5,A4 C
0x3dd304…3dd498 Dummy {f00=0x011a, f01=0x0190, f02=» FILE? * r P RF(NE) GET:85 NO! + P ADK A4,5 SIXTH CHARACTER + ( , P LDK A5,':' CHARACTER TO PRECEED NUMBER + J ( PGET:30 CCR A5,A4 CONFIGURATION FILE? + z P RF(E) GET:40 YES! + P SUK A4,1 TRY NEXT CHARACTER + P CWR A4,A6 FIRST IN NAME? + P R
0x3dd498…3dd62c Dummy {f00=0x011a, f01=0x0190, f02=»FT DIGIT + ~ P SLL A5,8 SHIFT TO LEFT BYTE , P LC A5,2,A4 GET RIGHT DIGIT , 4 " P CALL CONVRT CONVERT TO BINARY , X , P CW A1,SCTANO SAME AS APPLICATION NUMBER , ~ P RF(NE) GET:50 , P* , P* CONFIGURATION FILE FOUND , P* , $ P LD A1,22,A6
0x3dd62c…3dd7c0 Dummy {f00=0x011a, f01=0x0190, f02=» P* - PGET:50 EQU * - P ADR A6,A8 NEXT VTOC RECORD - " & P ADK A6,1 BYPASS STATUS CHARACTER - F , P SUK A7,1 MOORE RECORDS IN THIS SECTOR? - p P RB(P) GET:20 YES! - " P CWR A11,A10 LAST VTOC SECTOR? - P RB(NE) GET:10 NO! - 2 PGET:60 LDK A3,
0x3dd7c0…3dd954 (1, 1097) Dummy {f00=0x011b, f01=0x0190, f02=» FILE NOT FOUND - READ SOP AND SELECT - * P* LOAD MEDIUM FOR CONFIGURATION FILE . . P* . P* . f P LDKL A2,/7F8 . p & P OTR A2,0,SOP SWITCH ON SOP LAMPS . PGET:70 EQU * . P CF A14,SOPIN . " P ANKL A1,/7FC ALLOWED SWITCH? . P RB(Z) G
0x3dd954…3ddae8 Dummy {f00=0x011b, f01=0x0190, f02=» . l PGET:75 EQU * / 6 P SC A1,CONDEV+1+STKEND SAVE CONF. DATA LOAD DEVICE / ( P CF A14,CONFLD CONFIGURE LOAD DEVICE / V P RB GETFIL / PGET:85 EQU * / $ P CCK A3,'SS' LOOKING FOR $SWAPP? / P RF(NE) GET:99 NO! / & P LDK A5,0 RESET CHARACTER COUN
0x3ddae8…3ddc7c Dummy {f00=0x011b, f01=0x0190, f02=»DK A4,1 NEXT CHARACTER / * P ADK A5,1 INCREMENT CHARACTER COUNTER 0 & P CWK A5,8 ALL CHARACTERS CHECKED? 0 L P RB(NE) GET:90 NO! 0 v P* 0 : P* SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS 0 , P* TO FILE AND TO NEXT SECTOR AFTER FILE 0 P
0x3ddc7c…3dde10 Dummy {f00=0x011b, f01=0x018e, f02=»WBFSA+STKCOM+2 SAVE 0 , P LD A3,SWPFEL,A6 GET BIT 16-31 OF LENGTH 1 . P LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH 1 L ( P ADR A4,A2 ADD MOST SIGNIFICANT PART 1 ~ * P ADR A3,A1 ADD LEAST SIGNIFICANT PART 1 & P RF(O) GET:92 OVERFLOW - ADD CARRY 1 P RF GE
0x3dde10…3ddfa4 Dummy {f00=0x011b, f01=0x0190, f02=» 1 0 P ST A4,SWBFSE+STKCOM+2 SAVE BIT 0-15 OF D.A. 2 . P IM SWBFLG+STKCOM INDICATE SWB-FILE FOUND 2 < PGET:99 RTN A14 2 n P EJECT 2 : P***************************************************** 2 : P* * 2
0x3ddfa4…3de138 Dummy {f00=0x011b, f01=0x0190, f02=» * 2 : P* LODSEG - LOAD ONE SEGMENT * 3 8 : P* ========================= * 3 v : P* * 3 : P* ENTRY: A8 - RELOCA
0x3de138…3de2cc Dummy {f00=0x011b, f01=0x0190, f02=» * 3 n : P* EXIT: * 4 : P* * 4 Z : P* WORK REGISTERS: A1,A2,A3,A4,A7 * 4 : P*
0x3de2cc…3de460 Dummy {f00=0x011b, f01=0x0190, f02=»***************************************************** 4 PLODCOM EQU * 5 > , P LD A9,MXBUF GET ADDRESS TO READ BUFFER 5 R " P LDR A3,A9 GET START OF BUFFER 5 P LDR A2,A3 SAVE 5 & P LDKL A7,240 NUMBER OF CODE WORDS 5 PLOD:10 EQU *-2 5 P LDR A10
0x3de460…3de5f4 (1, 1098) Dummy {f00=0x011b, f01=0x0190, f02=»K IF IN END OF OF SEGMENT 5 P RF(P) LOD:50 NO YET! 6 " " P CWK A7,256 128 WORDS/SECTOR? 6 @ P RF(NE) LOD:30 NO! 6 f , P ADR A7,A10 COMPUTE NUMBER OF CODE WORDS 6 ( P LDKL A10,0 INDICATE END OF SEGMENT 6 P RF LOD:52 6 PLOD:30 EQU * 6 2 P ADR A
0x3de5f4…3de788 Dummy {f00=0x011b, f01=0x0190, f02=»OCK 6 d P RF(NZ) LOD:50 NO! 7 P* 7 & 2 P ADK A7,8 YES, ADD 8 TO COMPENSATE FOR HEADER 7 0 : P CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK 7 f P RF(L) LOD:50 NO! 7 P* 7 ( P SUK A7,240 YES, GET WORDS REMAINING 7 P LDR A10,A7 AND SAVE
0x3de788…3de91c Dummy {f00=0x011b, f01=0x018e, f02=» ADR A2,A7 START OF RELOCATION BITS 7 P CF A14,REBUF RELOCATE 8 , PLOD:52 EQU * 8 J " P LDR A1,A9 START OF CODE PART 8 ^ , P LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK? 8 P RF(NZ) LOD:55 NO! 8 6 P IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK 8 0 P
0x3de91c…3deab0 Dummy {f00=0x011b, f01=0x0190, f02=» 4 P RF(N) LOD:54 APPL. LARGER THAN ONE SECTOR/BLOCK 9 P* 9 < 0 P CWK A3,240 SINGLE SECTOR/BLOCK APPLICATION? 9 F P RF(NG) LOD:55 YES! 9 z P* 9 PLOD:54 ADKL A10,8 9 PLOD:55 EQU * 9 , P LDR A3,A7 NUMBER OF CHARACTERS TO MOVE 9 ( P LD A2,LLD
0x3deab0…3dec44 Dummy {f00=0x011b, f01=0x0190, f02=»TEM 9 t P XIF : P IFT MMUPAG=0 : P CALL MOVE : . P XIF : @ P LDR A10,A10 END OF SEGMENT? : L P RF(NZ) LOD:70 : p P RTN A14 EXIT : PLODSEG EQU * : ( P LDKL A1,256 NUMBER OF WORDS/SECTOR : $ P ST A1,LOD:10 MODIFY INSTRUCTION : PLOD:
0x3dec44…3dedd8 Dummy {f00=0x011b, f01=0x0190, f02=»* : ` 6 P* * ; 6 P* REBUF - RELOCATE BUFFER ROUTINE * ; D 6 P* =============================== * ; ~ 6 P* * ; 6 P* REFERENCED IN: LOD
0x3dedd8…3def6c Dummy {f00=0x011b, f01=0x0190, f02=» * ; f 6 P* A2 - START OF RELOCATION TABLE * < 6 P* * < J 6 P* EXIT: * < 6 P* * < 6 P* WORK REGISTER
0x3def6c…3df100 Dummy {f00=0x011b, f01=0x0190, f02=» * < l 6 P* * = 6 P************************************************* = P PREBUF EQU * = . P LDR A4,A2 GET START OPF RELOCATION TABLE = P SUK A4,2 = PREB:10 EQU * = " P ADK A4,2 NEXT REL
0x3df100…3df294 (1, 1099) Dummy {f00=0x011b, f01=0x0190, f02=»30 DON'T RELOCATE THIS WORD! = P LDR* A5,A3 GET CODE WORD > $ P ADR A5,A8 RELOCATE > F P STR A5,A3 STORE IT BACK > b PREB:30 EQU * > P ADK A3,2 NEXT CODE WORD > & P CWR A3,A2 END OF CODE WORD PART? > P RF(E) EXREL YES! > $ P SUK A6,1 MOOR
0x3df294…3df428 Dummy {f00=0x011b, f01=0x0190, f02=» > P EJECT ? . P***************************************** ? . P* GETCON - GET CONTENT IN MEMORY WORD * ? H . P***************************************** ? z P* ? P* REFERENCED IN: SEGGEN ? P* ? " P* ENTRY: A2 - MEMORY ADDRESS ? . P
0x3df428…3df5bc Dummy {f00=0x011b, f01=0x0190, f02=» ? ~ P* @ P* SUBROUTINES: @ P* @ * PGETCON EQU * @ 4 " P LD A1,SCTOPT GET OPTION WORD @ H P ANK A1,1 MMU OPTION @ n P RF(Z) GCON10 NO MMU @ P ELR A1,A2 @ P RF GCON20 @ PGCON10 EQU * @ P LDR* A1,A2 @ PGCON20 EQU * @ P R
0x3df5bc…3df750 Dummy {f00=0x011b, f01=0x0190, f02=» @ b 2 P* SCNCON * A 2 P* ====== * A > 2 P* * A t 2 P* SCAN CONFIGURATION FILE FOR POSSIBLE * A 2 P* APPLICATION DEFINITION BLOCKS. IF
0x3df750…3df8e4 Dummy {f00=0x011b, f01=0x0190, f02=» * A 2 P* ENTRY: A9 INPUT BUFFER ADDRESS * B . 2 P* * B d 2 P* WORK REGISTERS A1-A8,A10 * B 2 P* * B 2 P*
0x3df8e4…3dfa78 Dummy {f00=0x011b, f01=0x0190, f02=» * B r 2 P* * C 2 P********************************************* C N P* C P* C PSCNCON EQU * C * P CF A14,GETFIL GET CONFIGURATION FILE C 6 P ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADD
0x3dfa78…3dfc0c Dummy {f00=0x011b, f01=0x0190, f02=»ED C j , P ST A8,ECNFBF+STKEND AND SAVE BUFFER END D P* D : $ P LDKL A10,0 RESET RECORD COUNTER D D 2 P LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS D l * P ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK D $ P CF A14,RDSEC READ FIRST SECTOR D " P LDR A4,A9 GET S
0x3dfc0c…3dfda0 Dummy {f00=0x011b, f01=0x0190, f02=» A1,'A;' APPLICATION DEFINITION BLOCK? D P RF(NE) SCAN10 NO! E . P* E H * P CF A14,APLID YES GET APPLICATION NAME E R PSCAN10 EQU * E ( P ADKL A10,1 INCREMENT RECORD COUNTER E & P CW A10,LSTREC+STKEND LAST RECORD? E P RF(E) SCNEND YES! E P* E
0x3dfda0…3dff34 (1, 1100) Dummy {f00=0x011b, f01=0x018e, f02=» CF A14,RDSEC READ NEXT SECTOR E $ P LDR A8,A9 RESET RECORD ADDRESS F & PSCAN20 EQU * F N P LDR A4,A8 GET RECORD START F b $ P RB SCAN00 CONTINUE SCAN PROCESS F P* F $ P* THE WHOLE CONFIGURATION FILE F $ P* IS PROCESSED. SEARCH VTOC FOR F " P
0x3dff34…3e00c8 Dummy {f00=0x011b, f01=0x0190, f02=» 0 P LD A1,IPLDEV+STKEND CONFIGURE PGM LOAD DEV. G P CF A14,LODDEV G 8 8 P LD A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS G N * P ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK G 0 P LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS G P SUK A1,1 DECREMENT G $ P
0x3e00c8…3e025c Dummy {f00=0x011b, f01=0x0190, f02=»PDATE APPLIC. DISC ADDR. G P* H PRTRN EQU * H * P RTN A14 END OF SCNCON H < P EJECT H Z 2 P********************************************* H h 2 P* * H 2 P* * H 2
0x3e025c…3e03f0 Dummy {f00=0x011b, f01=0x0190, f02=» * H v 2 P* APLID TAKES THE NAME OF APPLICATION * I 2 P* AND MOVES IT FROM CONF. FILE TO * I R 8 P* APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY * I 8 P* IN APLTAB+STKCOM IS CREATED ACCORDINGLY: * I 2 P*
0x3e03f0…3e0584 Dummy {f00=0x011b, f01=0x018e, f02=» * I l 2 P* * J 2 P* THE NAME ENTRY CONSISTS OF 1-4 WORDS * J H 2 P* * J ~ 8 P* ENTRY: A6 POINTER INTO APLTAB+STKCOM * J 2 P* A8 RECORD POIN
0x3e0584…3e0718 Dummy {f00=0x011b, f01=0x0190, f02=» 2 P* WORK REGISTERS: A1-A5 * K 2 P* * K : 2 P********************************************* K p P* K P* K PAPLID EQU * K ( P ADKL A10,1 INCREMENT RECORD COUNTER K & P CW A10,LSTREC
0x3e0718…3e08ac Dummy {f00=0x011b, f01=0x0190, f02=» K f ( P CW A8,ECNFBF+STKEND OUTSIDE SECTOR? L P RF(NE) APLID0 NO! L 4 P* L N " P CF A14,RDSEC READ NEXT SECTOR L X P LDR A8,A9 GET RECORD START L ~ PAPLID0 EQU * L P LDR A4,A8 RECORD START L & P LDK A5,0 RESET CHARACTER COUNTER L PAPLID2 E
0x3e08ac…3e0a40 Dummy {f00=0x011b, f01=0x0190, f02=»DK A4,1 INCREMENT CHARACTER POINTER L ( P ADK A5,1 INCREMENT CHARACTER COUNT M , & P CWK A5,NCHAID END OF THIS RECORD? M X ( P RB(NE) APLID2 NO GET NEXT CHARACTER M P* M " P* END OF NAME RECORD, LOOK IF M $ P* NEXT CHARACTER IS A DELIMITER M P*
0x3e0a40…3e0bd4 (1, 1101) Dummy {f00=0x011c, f01=0x0190, f02=»DK A5,0 M . P ABL(Z) CONERR NO LEGAL CHARACTER IN NAME N P* N B P LDR A3,A6 SAVE BLOCK START N L 0 P STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM N p . P IM* APLTAB+STKCOM INCREMENT NO OF APPLIC. N ( P LDR A4,A8 GET START OF NAME RECORD N ( P ADK A
0x3e0bd4…3e0d68 Dummy {f00=0x011c, f01=0x0190, f02=»R N r * P LDR* A1,A4 MOVE 2 CHARACTERS OF NAME O P STR A1,A3 TO APLTAB+STKCOM O 8 ( P ADK A4,2 ADVANCE CHARACTER POINTER O " P SUK A5,1 DECREMENT WORD COUNT O * P RB(P) APLID6 MORE CHARACTERS TO MOVE O P* O 0 P ADK A6,ACBLEN PREPARE FOR NEXT TA
0x3e0d68…3e0efc Dummy {f00=0x011c, f01=0x0190, f02=» * O z 2 P* * P 2 P* GETAPL * P V 2 P* ====== * P 2 P* * P 2 P* SCANS VTOC FO
0x3e0efc…3e1090 Dummy {f00=0x011c, f01=0x0190, f02=»THE LENGTH * P r 8 P* OF APLTAB+STKCOM IS THEN USED TO CALCULATE * Q 2 P* START OF FREE AREA. * Q T 2 P* * Q 8 P* ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM * Q @ P* AP
0x3e1090…3e1224 Dummy {f00=0x011c, f01=0x0190, f02=»******************* Q v P* R P* R & PGETAPL EQU * R 0 $ P CF A14,GETVLB READ VOLUME LABEL R D PGETAP0 EQU * R l P CF A14,RDSEC READ SECTOR R ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR R " P LDR A4,A9 GET START OF RECORD R PGETAP2 EQU * R ( P
0x3e1224…3e13b8 Dummy {f00=0x011c, f01=0x0190, f02=» CHAR. ENTRY R | . P LCR A2,A4 GET 1ST CHARACTER IN FILE NAME S P CCK A2,/2020 UNUSED? S F P RF(E) GETAP4 YES! S d P* S ~ " P CF A14,CMPSYM COMPARE SYMBOLS S P ADK A5,0 S P RF(Z) FOUND EQUAL S P* S $ P* NO MATCH, TRY NEXT VTOC ENTRY S
0x3e13b8…3e154c Dummy {f00=0x011c, f01=0x0190, f02=»THIS SECTOR S v P RB(P) GETAP2 YES! T P* T . " P CWR A11,A10 LAST VTOC SECTOR? T 8 & P ABL(E) CONERR ERROR IN CONF. FILE T ^ P* T P RB GETAP0 T P* T PFOUND EQU * T $ P LDK A2,'L' LOAD FILE CHARACTER T P CC A2,27,A4 LOAD FILE? T *
0x3e154c…3e16e0 Dummy {f00=0x011c, f01=0x0190, f02=»TAB+STKCOM T t . P LD A2,18,A4 GET DISC ADDRESS (BITS 16-31) U 0 P ST A2,APLADA+2,A6 AND SAVE IN APLTAB+STKCOM U D . P ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK U x P* U 2 P IM APLCNT+STKEND INCREMENT APPLICATION COUNT U P RB(NZ) GETAPL MORE TO DO! U
0x3e16e0…3e1874 (1, 1102) Dummy {f00=0x011c, f01=0x0190, f02=» * U x 2 P* * V 2 P* CMPSYM * V T 2 P* ====== * V 2 P* * V 2 P* COMPARE TWO SYM
0x3e1874…3e1a08 Dummy {f00=0x011c, f01=0x0190, f02=» V b 2 P* A1 - START OF SYMBOL 2 * W 2 P* A5 - LENGTH OF SYMBOL 2 * W > 2 P* * W t 2 P* EXIT: A5 = 0 IF SYMBOLS EQUAL * W 2 P*
0x3e1a08…3e1b9c Dummy {f00=0x011c, f01=0x018e, f02=»SYMBOL 1 W t 2 P CCR A2,A1 COMPARE WITH CHARACTER IN SYMBOL 2 X ( P RF(NE) CMPEND IF NOT EQUAL, RETURN X F P* X r ( P ADK A3,1 ADVANCE CHARACTER POINTERS X | P ADK A1,1 X ( P SUK A5,1 DECREMENT CHARACTER COUNT X , P RB(NZ) CMPSYM CONTINUE THE COMPAR
0x3e1b9c…3e1d30 Dummy {f00=0x011c, f01=0x0190, f02=» P* Y . P LCR A2,A3 GET NEXT CHARACTER IN FILE NAME Y $ P CCK A2,/2020 END OF FILE NAME? Y @ P RF(E) CMPEND YES! Y h P* Y P LDK A5,1 NO, NOT EQUAL! Y PCMPEND EQU * Y P RTN A14 END OF CMPSYM Y P EJECT Y 2 P****************************
0x3e1d30…3e1ec4 Dummy {f00=0x011c, f01=0x0190, f02=» GETVLB * Y 2 P* ====== * Z 4 2 P* * Z j 2 P* READ SECTOR CONTAINIG VOLUME LABEL * Z 2 P* * Z
0x3e1ec4…3e2058 Dummy {f00=0x011c, f01=0x0190, f02=»RD LENGTH * Z x 2 P* * [ 2 P********************************************* [ T P* [ P* [ PGETVLB EQU * [ P SUR A11,A11 VOLUME LABEL [ P SUR A12,A12 [ " P CF A14,RDSEC GET VOLUME LABEL [
0x3e2058…3e21ec Dummy {f00=0x011c, f01=0x0190, f02=»ENGTH [ r . P AD A11,46,A9 FIRST FILE SECTOR IN VTOC =7 P RTN A14 END OF GETVLB @ P* ^ P EJECT h 2 P********************************************* v 2 P* * 2 P*
0x3e21ec…3e2380 Dummy {f00=0x011c, f01=0x0190, f02=» * 2 P* READS A SECTOR FROM INPUT DISC. * ] * 2 P* * ] ` 2 P* ENTRY: A9 - BUFFER ADDRESS * ] 2 P* A11- SECTOR ADDRESS * ] 2 P*
0x3e2380…3e2514 (1, 1103) Dummy {f00=0x011c, f01=0x0190, f02=»*********** ] n P* ^ P* ^ PRDSEC EQU * ^ ( " P CF A14,READS MODIFIED ADDRESS ^ < PREADS EQU *-2 ^ b P RTN A14 ^ x P EJECT ^ P* ^ P* DATA AREA DEFINITION ^ P* ^ PSYSBAS EQU * ^ PSAVCON DATA BUFLEN ^ 2 PMXBUF DATA 0 DIS
0x3e2514…3e26a8 Dummy {f00=0x011c, f01=0x4168, f02=»ECTOR NUMBER ^ x P IFT CDDISC=1 =9 _ P IFT CDDI16=0 =9 _ . * PDEVTAB DATA 0,/1909,/3717,/2808,/1404 _ H P XIF =9 _ v P IFF CDDISC-CDDI16=1 =9 _ , PDEVTAB DATA 0,/1909,/3717,/2808,/5717 =9 _ P XIF =9 _ $ PSWPTAB DATA '$S','WA','P ','
0x3e26a8…3e283c Dummy {f00=0x011c, f01=0x2008, f02=» ` P X ` h p
0x3e283c…3e29d0 Dummy {f00=0x011c, f01=0x0000, f02=» DUPLICATES_NOT_ALLOWED DUPLICATES_ALLOWED CON_TYPES NOT_COND YES EXP_TYPES IDENTICAL UNIDENTICAL FPB FM_COMMAND_CODES FM_OPEN FM_CREATE FM_EXTEND wFM_CLOSE FM_DELETE FM_READ_FILE_PARAMETERS F
0x3e29d0…3e2b64 Dummy {f00=0x011c, f01=0x0000, f02=» D F ;z @ D F ;z A D F0 ;z B D F@ ;z C D FP ;z D D P ;z F D " ;z P Fp F`F ) ;z P C F`
0x3e2b64…3e2cf8 Dummy {f00=0x011c, f01=0x0000, f02=»
0x3e2cf8…3e2e8c Dummy {f00=0x011c, f01=0x0000, f02=» SOP_SWITCH_NR NO_OF_INDEX_FILES KEY_ADDRESS DUMMY_5 EDM_PART ORDER_FIELD ECB ^FILLER_0 FILE_NUMBER BUFFER_ADDRESS FPB_ADDRESS REQUESTED_LENGTH BLOCK_LENGTH EFFECTIVE_LENGTH RETURN_CODE RETURN_CO
0x3e2e8c…3e3020 Dummy {f00=0x011c, f01=0x0000, f02=» C C ;z ;z D D F` ;z D- D D= ;z D DM ;z D D] ;z D Dm " ;z D D} ( ;z D D -
0x3e3020…3e31b4 (1, 1104) Opaque[0x194]
0x3e31b4…3e3348 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26a8, f03=0x0000}
0x3e31b4…3e3348 IdxSect {
0x3e31b4…3e3348 f00 = 0x0135 // 0x3e31b4 @0x0
0x3e31b4…3e3348 f01 = 0x0008 // 0x3e31b6 @0x2
0x3e31b4…3e3348 gno = [ // 0x3e31b8 @0x4
0x3e31b4…3e3348 [0x00]: C0x0135.0x1.0
0x3e31b4…3e3348 [0x01]: C0x0135.0x2.0
0x3e31b4…3e3348 [0x02]: C0x0135.0x3.0
0x3e31b4…3e3348 [0x03]: C0x0136.0x0.0
0x3e31b4…3e3348 ]
0x3e31b4…3e3348 }
0x3e3348…3e34dc Dummy {f00=0x0135, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 11.0 81-02-23 870105041100 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x3e34dc…3e3670 Dummy {f00=0x0135, f01=0x0190, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* & P ENTRY SCTMSZ,SCTSFA,SCTEFA,SCTIPL & P ENTRY SCTANO,SCTTCT,SCTCDT,SCTPAG & P ENTRY SCTNO
0x3e3670…3e3804 Dummy {f00=0x0135, f01=0x0190, f02=»CTMXS,SCTMOX z P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB 0 & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:SB Z & P ENTRY SWB:NC,SWB:DS,SWB:EL,SWB:NS P ENTRY STKEND,STKCOM,STKMOV & P ENTRY ACBIOE,ACBSWB,ACBSEG,ACBNPE & P ENTRY ACBMM
0x3e3804…3e3998 Dummy {f00=0x0135, f01=0x0190, f02=»TERNALS * P************* P* ( P* 2 P EXTRN TDISP < , P EXTRN IHPFAR POWER FAIL / AUTO RESTART P P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE TAPE ( P E
0x3e3998…3e3b2c Dummy {f00=0x0135, f01=0x0190, f02=»XTRN CHRT3 P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 & ( P EXTRN IHCC2 2 R ( P EXTRN IHCC3 3 ~ L P EXTRN CHLT1,IHSVU1,IHSVU2,IHSVU3,IHSVU4,IHSVU5 LOCAL CHANNEL UNIT NO. 1 > P EXTRN CHLT2,I
0x3e3b2c…3e3cc0 Dummy {f00=0x0135, f01=0x018e, f02=»IHPVU8 t 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC * P EXTRN IHLP,IHPL03,IHPL04 LINE PRINTER B ( P EXTRN IHCR,CHLT3,CHLT4 CARD-READER p ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC P EXTRN IHMT
0x3e3cc0…3e3e54 (1, 1105) Dummy {f00=0x0135, f01=0x0190, f02=» ~ P* F P* DISPLACEMENTS IN SEGTAB, PAGTAB , SWBTAB AND APPL. CONTROL BLOCK P* PSEG:FC EQU -4 FILE CODE f $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE
0x3e3e54…3e3fe8 Dummy {f00=0x0135, f01=0x0190, f02=»ACKWARD t PPAG:PA EQU 4 PAGE ADDRESS & PPAG:SB EQU 6 SEGMENT BLOCK ADDRESS 2 P* 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE f 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY $ PSWB:EL EQU 4 SWB LENGTH (BYTES) & PSWB:NS EQU 6 S
0x3e3fe8…3e417c Dummy {f00=0x0135, f01=0x0190, f02=»EGMENT TABLE POOL ( PACBNPE EQU 6 NUMBER OF PAGE ENTRIES & PACBMMP EQU 8 MMU TABLE PAGE ENTRY F . PACBMMC EQU 10 MMU TABLE COMMON PART ENTRY p * PACBLAP EQU 12 LOGICAL ADDRESS TO PAGE 0 PACBLAC EQU 14 LOGICAL ADDRESS TO COMMON PART 4 PACBS
0x3e417c…3e4310 Dummy {f00=0x0135, f01=0x0190, f02=»E ADDRESS n P P P " PSTART EQU * * P EJECT SYSTAB > P* V P* INTERRUPT VECTORS ` P* | P DATA IHPFAR 0 P DATA IHLKM 1 P DATA IHRTC 2 P DATA ILLINT 3 P DATA ILLINT
0x3e4310…3e44a4 Dummy {f00=0x0135, f01=0x0190, f02=»9 ~ P DATA ILLINT 10 P DATA ILLINT 11 & P DATA ILLINT 12 B P DATA ILLINT 13 ^ P DATA CHLT1 14 z P DATA IHFD 15 P DATA CHRT1 16 P DATA CHRT2 17 P DATA CHRT3 18 P DAT
0x3e44a4…3e4638 Dummy {f00=0x0135, f01=0x0190, f02=» DATA CHLT1 24 P DATA CHLT2 25 P DATA IHPL01 26 8 P DATA IHPL02 27 T P DATA ILLINT 28 p P DATA ILLINT 29 P DATA IHFD 30 P DATA ILLINT 31 P DATA ILLINT 32 P DATA ILLINT
0x3e4638…3e47cc Dummy {f00=0x0135, f01=0x018e, f02=» 38 P DATA ILLINT 39 P DATA IHDU1 40 * P DATA IHDU2 41 F P DATA ILLINT 42 b P DATA ILLINT 43 ~ P DATA IHMT 44 P DATA ILLINT 45 P DATA ILLINT 46 P DATA ILLINT 47 P
0x3e47cc…3e4960 Dummy {f00=0x0135, f01=0x018e, f02=» P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 < P DATA ILLINT 56 X P DATA ILLINT 57 t P DATA ILLINT 58 P DATA ILLINT 59 P DATA ILLINT 60 P DATA ILLINT 61 P DATA IL
0x3e4960…3e4af4 (1, 1106) Dummy {f00=0x0135, f01=0x0190, f02=» P DATA SCT P P " P* * P* SYSTEM TRAP 4 P* J PTRAP LDK A1,/D T P CF A15,HALT j P RES 4 ~ P HLT P P* P* DEBUG RESTART ENTRY P* P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG
0x3e4af4…3e4c88 Dummy {f00=0x0135, f01=0x018e, f02=»DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE " $ PX:D EQU 0 DM/FM NUMBER OF FILES P ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK x $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM 4 PX:H EQU 10 NUMBER OF SEG
0x3e4c88…3e4e1c Dummy {f00=0x0135, f01=0x0190, f02=» * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FREE AREA 6 $ PSCTEFA DATA 0,0 END OF FREE AREA ` ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: * P TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9 $ PSCTANO DATA 0 APPLICATION NUMBER
0x3e4e1c…3e4fb0 Dummy {f00=0x0135, f01=0x0190, f02=»GES v PSCTPSZ DATA 0 PAGE SIZE & PSCTSTB DATA STB SYSTEM STACK BASE , $ PSCTOPT DATA X:A MONITOR OPTION: V " P BIT 10:MPO,11:EMM,12:SWPBLK ~ $ P BIT 13:FM,14:DSKPAG,15:MMUPAG PSCTBUG DATA BUG DEBUGGER & PSCTDMT DATA X:B DMTASKS IN S
0x3e4fb0…3e5144 Dummy {f00=0x0135, f01=0x0190, f02=»T ADDRESS t $ PSCTNOF DATA X:D NUMBER OF FILES ( PSCTNFT DATA X:E NUMBER OF FILES/TASK : * PSCTFWL DATA X:F FILE WORK TABLE LENGTH f ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE , PSCTNOS DATA X:H NUMBER O
0x3e5144…3e52d8 Dummy {f00=0x0135, f01=0x0190, f02=» P P* P* SYSTEM STACK P* , $ PSTKEND EQU * END OF SYSTEM STACK 6 P RES 68 ^ PSTKMOV LDR* A4,A1 n P STR A4,A2 P ADK A1,2 P ADK A2,2 P SUK A3,2 P ABR(Z) A7 P RB STKMOV PSTKCOM EQU * P
0x3e52d8…3e546c Dummy {f00=0x0135, f01=0x4060, f02=»* IDLE LOOP P* P PLOOP RB * & P 8 P @ P H P END P@ ES 68 ^ PSTKMOV LDR* A4,A1 n P STR A4,A2 P ADK A1,2 P ADK A2,2 P SUK A3,2 P ABR(Z) A7 P RB STKMOV PSTKCOM EQU * P
0x3e546c…3e5600 Dummy {f00=0x0135, 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
0x3e5600…3e5794 (1, 1107) Dummy {f00=0x0136, f01=0x0190, f02=» < P* WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS & P* & D & P LDK A4,1 WRITE DELETED DATA ORDER & N & PFD:013 EQU * PHYSICAL WRITE ORDER & x P ADK A4,4 & " PFD:015 EQU * BASIC WRITE ORDER & P ADK A4,1 & " P CF A5,BIO PREPARATION FOR C
0x3e5794…3e5928 Dummy {f00=0x0136, f01=0x0190, f02=» P XIF ' P* ' P IFT MMUPAG=1 ' P IFF CHAN+IBM=0 ' 0 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ' H ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA ' P LDR A7,A3 REQUESTED LENGTH ' P LDR A8,A2 SAVE A2 ' & P LDKL A4,BUF DRIVER BUFFER ADD
0x3e5928…3e5abc Dummy {f00=0x0136, f01=0x0190, f02=» FROM USER TO SYSTEM AREA ' | & P TL -30,A15 RESTORE MMU FROM STACK ( " P LDR A2,A8 RESTORE A2 ( L 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA ( j PFD:019 EQU * ( P XIF ( P* ( P IFT TOSS+IBM=2 ( P LD A1,DWTFIB,A6 ( P RF(Z) FD:018 NO
0x3e5abc…3e5c50 Dummy {f00=0x0136, f01=0x0190, f02=» ( P XIF ) P* ) P EJECT DRFD01 ) P* ) 6 P* ) @ " P CF A5,FD:WRITE PERFORME WRITE ) J * P ANKL A3,/200 CHECK IF WRITE PROTECTED ) p P RF(Z) FD:020 ) P LDK A3,/40 INDICATE ERROR ) , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE ) PFD
0x3e5c50…3e5de4 Dummy {f00=0x0136, f01=0x0190, f02=» ) ~ P* PHYSICAL READ * * P* * * " P***************** * < P* * V PFD:060 CF A5,BIO * ` P* * x P IFT MMUPAG=1 * P IFT CHAN=0 * P IFT TOSS+IBM=2 * P LD A1,DWTFIB,A6 * P RF(Z) FD:070 TOSS DISC * & P LDKL A4,BUF
0x3e5de4…3e5f78 Dummy {f00=0x0136, f01=0x0190, f02=»1 * P IFT CHAN=1 + P LD A1,DWT:LA,A6 + ( P RF(Z) FD:080 BUFFER IN SYSTEM AREA + 6 & P LDKL A4,BUF DRIVER BUFFER ADDRESS + b 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA + P XIF + P* + P IFT MMUPAG=1 + P IFT IBM=1 + P IFT TOSS+
0x3e5f78…3e610c Dummy {f00=0x0136, f01=0x0190, f02=» EQU * + P CF A5,FD:REA PERFORM READ , P* , 0 P IFT TOSS+IBM=2 , : P LD A1,DWTFIB,A6 , R P RF(Z) FD:090 NOT IBM , j P XIF , P* , P IFT IBM=1 , P IFT MMUPAG=0 , ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS , P XIF , P* , P
0x3e610c…3e62a0 Dummy {f00=0x0136, f01=0x0190, f02=»* , P* - P IFT MMUPAG=1 - P IFT CHAN=0 - * P IFT TOSS+IBM=2 - > P LD A1,DWTFIB,A6 - V P RF(Z) FD:100 TOSS DISC - n P XIF - P* - P IFT MMUPAG=1 - P IFF CHAN+IBM=0 - 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS - (
0x3e62a0…3e6434 (1, 1108) Opaque[0x194]
0x3e6434…3e65c8 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26c8, f03=0x0000}
0x3e6434…3e65c8 IdxSect {
0x3e6434…3e65c8 f00 = 0x0136 // 0x3e6434 @0x0
0x3e6434…3e65c8 f01 = 0x0004 // 0x3e6436 @0x2
0x3e6434…3e65c8 gno = [ // 0x3e6438 @0x4
0x3e6434…3e65c8 [0x00]: C0x0136.0x1.0
0x3e6434…3e65c8 [0x01]: C0x0136.0x2.0
0x3e6434…3e65c8 ]
0x3e6434…3e65c8 }
0x3e65c8…3e675c Dummy {f00=0x0136, f01=0x0190, f02=» 2 P IDENT TABORT REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x3e675c…3e68f0 Dummy {f00=0x0136, f01=0x0190, f02=»AINS THE | ( P* ABORT I/O REQUEST LKM PROCESSOR. P* < P* F P EJECT TABORT P P* h P* r P*********** | P* ENTRIES * P*********** P* P* P ENTRY TABORT P EJECT TABORT P* P*
0x3e68f0…3e6a84 Dummy {f00=0x0136, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n P EXTRN DWTECB ECB ADDRESS ( P EXTRN DWTSB2 2ND STACK BASE IN DWT * P EXTRN DWTECH ECHO DEVIC
0x3e6a84…3e6c18 Dummy {f00=0x0136, f01=0x0190, f02=»XTRN LKMRQE LKM REQUEST ERROR P EXTRN FREBLK FREE ONE BLOCK & P EXTRN ECBRC ECN RETURN CODE J P EJECT TABORT n P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P**********
0x3e6c18…3e6dac Dummy {f00=0x0136, f01=0x0190, f02=»1. l P* PMMUPAG EQU 0 P* ( P EJECT TABORT 2 P* J P* T P********** ^ P* TABORT * p P********** P* P* 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM
0x3e6dac…3e6f40 Dummy {f00=0x0136, f01=0x018e, f02=»* A PENDING I/O REQUEST IS ABORTED. < P* THE ABORT REQUEST MUST BE ISSUED FROM THE SAME TASK . : P* THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN n P* NOT BE ABORTED. P* P* PTABORT EQU * P IFT MMUPAG=0 " P L
0x3e6f40…3e70d4 (1, 1109) Dummy {f00=0x0136, f01=0x0190, f02=» , P RF(N) TABRQE REQUEST ALREADY COMPLETED ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS 4 P LDR A7,A6 SAVE DWT ADDRESS ` P RF(Z) TABRQE DWT UNKNOWN P* P EJECT TABORT P* P* P CW A5,DWTTAB,A6 P RF(NE) TABRQE ILLEG
0x3e70d4…3e7268 Dummy {f00=0x0136, f01=0x018e, f02=» RF(E) TABRQE ABORT NOT ALLOWED P LD A4,DWTST,A6 ( " P RF(N) TABRQE DEVICE NOT BUSY @ P SLC A4,2 f $ P RF(NN) TAB:20 NOT ECHO REQUEST x & P LD A6,DWTECH,A6 ECHO DWT ADDRESS : P LD A3,DWTADR,A6 ADDRESS TO ECHO DRIVER ADDRESS BLOCK * P
0x3e7268…3e73fc Dummy {f00=0x0136, f01=0x0190, f02=» P SUK A3,1 2 P RF(Z) TABRQE ABORT NOT ALLOWED ON ECHO DEVICE " P LDR A6,A7 RESTORE DWT ADDRESS P P* v PTAB:20 EQU * P LD A4,DWTWAT,A6 " P RF(Z) TAB:30 I/O WITH NO WAIT : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK
0x3e73fc…3e7590 Dummy {f00=0x0136, f01=0x0190, f02=» " P ST A1,DWTWAT,A6 INDICATE WAIT P SRC A1,2 A1 := /4000 . 0 P ORS A1,ECBRC,A8 SET RETURN CODE TO ABORTED L 6 P LDKL A5,DWTSB2 2ND STACK BASE DISPLACEMENT IN DWT P ADR A5,A6 ADD DWT ADDRESS P* , P* EXIT IS MADE TO DRIVER ABORT R
0x3e7590…3e7724 Dummy {f00=0x0136, f01=0x4124, f02=»A8 = ECB ADDRESS (IN SYSTEM AREA IF MMU) P* 0 $ P LDR A9,A9 ABORT ROUTINE ADDRESS : . P ABR(NZ) A9 PERFORM ABORT ROUTINE (IF ANY) b P ABL DISEND TENDIO AND TDISP P* 0 PTABRQE ABL LKMRQE GO AND INDICATE LKM ERROR P* P*
0x3e7724…3e78b8 Dummy {f00=0x0136, f01=0x2008, f02=»
0x3e78b8…3e7a4c Dummy {f00=0x0136, f01=0x0190, f02=»=2 + j P RF(E) AP2345 =2 , 6 P AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 , $ P RF(NZ) AP2345 YES =2 , ^ , P LDK A1,LMP9 NO, WRONG MONITOR OPTION =2 , | P CALL ERROR =2 , PAP2345 EQU * =2 , & P ORR A2,A4 SET BIT IN OPTION WORD , P
0x3e7a4c…3e7be0 Dummy {f00=0x0136, f01=0x018e, f02=»PAGE SIZE , r 6 P CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE - . P RF(NG) AP2350 IF LESS, DON'T UPDATE SIZE - L P* - ~ 0 P ST A3,SCTPSZ SAVE LARGEST DEFINED PAGE SIZE - PAP2350 EQU * - P IFT MMUPAG=1 - P EJECT - P* - 2 P* EXECUTI
0x3e7be0…3e7d74 (1, 1110) Opaque[0x194]
0x3e7d74…3e7f08 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26d8, f03=0x0000}
0x3e7d74…3e7f08 IdxSect {
0x3e7d74…3e7f08 f00 = 0x0136 // 0x3e7d74 @0x0
0x3e7d74…3e7f08 f01 = 0x0002 // 0x3e7d76 @0x2
0x3e7d74…3e7f08 gno = [ // 0x3e7d78 @0x4
0x3e7d74…3e7f08 [0x00]: C0x0136.0x3.0
0x3e7d74…3e7f08 ]
0x3e7d74…3e7f08 }
0x3e7f08…3e809c Dummy {f00=0x0136, f01=0x40e8, f02=» 2 P IDENT TCLASS REL 11.0 81-01-26 870105041100 P : P* B P* L P ENTRY TCLASS V P* l P* v P* P* P* P* PTCLASS DATA TCLASE-* PTCLASE EQU * P END @
0x3e809c…3e8230 Dummy {f00=0x0136, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x3e8230…3e83c4 Dummy {f00=0x0136, f01=0x2008, f02=»
0x3e83c4…3e8558 Dummy {f00=0x0136, f01=0x0190, f02=»GICAL ADDRESS 2 P* TO SEGMENT 3 P* 3 , P LDR A2,A8 GET MMU ENTRY 3 6 & P SLL A2,12 MOVE TO 4 LEFTMOST BITS 3 V 6 P ST A2,APLLAP,A1 SAVE IN APPLICATION CONTROL BLOCK 3 ( P ORR A2,A4 CONCATENATE DISPLACEMENT 3 8 P ST A2,LSTASG+STKEND AND SAVE AS L
0x3e8558…3e86ec Dummy {f00=0x0136, f01=0x0190, f02=»MMU ENTRIES TO UPDATE 3 z ( P LDKL A6,MMEND INITIATE MMU POINTER 4 & P LDKL A8,16 AND MMU ENTRY POINTER 4 J & P LDR A4,A5 AREA LEFT IN LAST FRAME 4 t PAP:335 EQU * 4 P* 4 ( P* COMPUTE APPLICATION START ADDRESS 4 P* 4 0 P* A1 - POINTER TO APP
0x3e86ec…3e8880 Dummy {f00=0x0136, f01=0x0190, f02=»DRESS 4 | P* A8 - CURRENT MMU ENTRY 5 P* 5 0 0 P LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART 5 : * P LD A3,APLTYP,A1 GET APPLICATION TYPE 5 n P CWK A3,'AS' ASSEMBLER? 5 P RF(NE) AP:336 NO! 5 P* 5 , P ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER
0x3e8880…3e8a14 (1, 1111) Opaque[0x194]
0x3e8a14…3e8ba8 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26e0, f03=0x0000}
0x3e8a14…3e8ba8 IdxSect {
0x3e8a14…3e8ba8 f00 = 0x0137 // 0x3e8a14 @0x0
0x3e8a14…3e8ba8 f01 = 0x0008 // 0x3e8a16 @0x2
0x3e8a14…3e8ba8 gno = [ // 0x3e8a18 @0x4
0x3e8a14…3e8ba8 [0x00]: C0x0137.0x0.0
0x3e8a14…3e8ba8 [0x01]: C0x0137.0x1.0
0x3e8a14…3e8ba8 [0x02]: C0x0137.0x2.0
0x3e8a14…3e8ba8 [0x03]: C0x0137.0x3.0
0x3e8a14…3e8ba8 ]
0x3e8a14…3e8ba8 }
0x3e8ba8…3e8d3c Dummy {f00=0x0137, f01=0x0190, f02=» 0 P IDENT TDISP REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* 6 P****************
0x3e8d3c…3e8ed0 Dummy {f00=0x0137, f01=0x0190, f02=» WITH 8 REGISTERS ON A15 STACK. v > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER ( < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. j : P* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER $ P* PRIORITY TASK IS STARTED.
0x3e8ed0…3e9064 Dummy {f00=0x0137, f01=0x0190, f02=» 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. P* B 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. L P* H P* ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. P* 0 P* ENTRY 'TEXIT' EXITS A TASK B
0x3e9064…3e91f8 Dummy {f00=0x0137, f01=0x0190, f02=» A TASK BEFORE TDISP. t P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. ( P* p P EJECT TDISP z P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY TDISP DISPATC
0x3e91f8…3e938c Dummy {f00=0x0137, f01=0x018e, f02=»E TASK AND EXIT MONITOR TASK ~ , P ENTRY ACTDIS ACTIVATE TASK AND DISPATCH $ " P ENTRY DISIOE I/O ERROR ENTRY T & P ENTRY DISEND END I/O AND DISPATCH z 6 P ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE , P ENTRY PRUN TTAB ADDRESS OF RUNNING TASK
0x3e938c…3e9520 Dummy {f00=0x0137, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:AP ACB ADDRESS T P EXTRN TTB:SA SAVE AREA v P EXTRN TTB:ST STATUS & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CU
0x3e9520…3e96b4 (1, 1112) Dummy {f00=0x0137, f01=0x0190, f02=» ADDRESS ~ . P EXTRN PAG:QB PAGE QUEUE BACKWARD POINTER P EXTRN TENDIO END I/O B P EXTRN EXIT PROGRAM EXIT ` 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN ACBLAP LOGICAL ADDRESS OF C
0x3e96b4…3e9848 Dummy {f00=0x0137, 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
0x3e9848…3e99dc Dummy {f00=0x0137, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 1 P* 4 * > . ** A PROGRAM VERSION USING TOSS DISC PAGING H * &* IS OBTAINED BY SETTING DSKPAG EQU 1. z * PDSKPAG EQU 0 * P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOV
0x3e99dc…3e9b70 Dummy {f00=0x0137, f01=0x0190, f02=» 1. ` P* PDIFPRI EQU 0 P* * P EJECT TDISP 4 P* J P* D I S Q U E T P* l 2 P* POINTER TO FIRST TASK IN DISPATCHER QUEUE v P* PDISQUE DATA 0 P* P* P R U N P* $ P* TTAB ADDRESS OF
0x3e9b70…3e9d04 Dummy {f00=0x0137, f01=0x0190, f02=»EGISTERS FROM STACK AND RETURN P* & PRETUR8 EQU * 0 P D P IFT CPU852=0 L P MLR 8,A15 b P XIF t P P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR*
0x3e9d04…3e9e98 Dummy {f00=0x0137, f01=0x0190, f02=»M E X I T, M E X I T, T E X I T P* ( 2 P* DO EXIT ON (MONITOR) TASK AND GO TO TDISP 2 P* h 2 PQMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING r P* PMEXIT INH P LD A5,PRUN P CM PRUN P* PTEXIT EQU * P C
0x3e9e98…3ea02c Dummy {f00=0x0137, f01=0x018e, f02=» PACTDIS CF A15,ACTOT P RF TDISP P EJECT TDISP 2 P H P* P P* D I S I O E Z P* r 6 P* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND | P* PDISIOE LDKL A1,/8000 P P* P* D I S E N D P*
0x3ea02c…3ea1c0 Dummy {f00=0x0137, f01=0x0190, f02=» & P* PAUSE TASK (I. E. GO TO TDISP) P* . PTPAUSE EQU * 8 P EJECT TDISP L P* b P* T D I S P l P* $ P* THIS IS THE DISPATCHER ENTRY P* PTDISP INH & P LC A1,18,A15 LOAD PSW FROM STACK P ANK A1,/FC
0x3ea1c0…3ea354 (1, 1113) Dummy {f00=0x0137, f01=0x0190, f02=»DKL A2,DISQUE P LDR* A3,A2 P RB(Z) RETUR8 QUEUE EMPTY * P L P LD A5,PRUN T $ P RF(Z) TDCQ10 IDLE LOOP RUNNING h & P LD A4,TTB:ST+1,A5 COMPARE RUNNING 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES * P RB(NG) RETUR8 RUNNING
0x3ea354…3ea4e8 Dummy {f00=0x0137, f01=0x0190, f02=»D A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR P RF(Z) TDISSW NONE . P LDR* A7,A1 H P RF(N) TDISSW SEGMENT LOADED 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF P EJECT TDISP P*
0x3ea4e8…3ea67c Dummy {f00=0x0137, f01=0x0190, f02=»IDLE LOOP P . P ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY P RF(Z) TDSW20 EMPTY QUEUE L 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES n 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6 P LDR* A6,A2 , P RB(NZ) TDSW
0x3ea67c…3ea810 Dummy {f00=0x0137, f01=0x0190, f02=» l P LDR A14,A5 P P IFT CPU852=0 $ P MLR 8,A15 : P MS 13,TTB:SA+2,A14 L P MLR 2,A15 h P z P XIF P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P
0x3ea810…3ea9a4 Dummy {f00=0x0137, f01=0x0190, f02=»2,A14 P ST A10,TTB:SA+20,A14 P ST A9,TTB:SA+18,A14 , P ST A8,TTB:SA+16,A14 H P ST A7,TTB:SA+14,A14 d P ST A6,TTB:SA+12,A14 P ST A5,TTB:SA+10,A14 P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,A14 P ST A2,TTB:SA+4,A14
0x3ea9a4…3eab38 Dummy {f00=0x0137, f01=0x0190, f02=»W,A14 AND PSW IN TTAB P IFT DSKPAG+DIFPRI=2 P : * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR B P RF(Z) TDISST NONE p P LDR* A2,A1 GET SEGM STATUS P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY INT TASK P RF(NZ) TDISST YES
0x3eab38…3eaccc Dummy {f00=0x0137, f01=0x018e, f02=» P EJECT TDISP P* P* START NEW TASK $ P* < PTDISST LD A14,PRUN F P IFT DSKPAG=1 ` P v * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR ~ P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR P IFT DIFPRI=0 P
0x3eaccc…3eae60 Dummy {f00=0x0137, f01=0x0190, f02=» ( P LDR* A2,A4 CHECK IF PAGE IN PAGQUE P RF(NZ) TDST10 YES 4 " P LDR* A3,A1 NO GET SEGM STATUS N 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK t P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK P RF(NE) TDST20
0x3eae60…3eaff4 (1, 1114) Dummy {f00=0x0137, f01=0x0190, f02=»A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE P STR A2,A3 , P ST A3,PAG:QB,A2 > P CMR A4 V P f , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS n P P IFT MMUPAG=1 P " P ECR A2,A1 CALC PHYS PAGE ADDR P ANK A2,/FC * P LDR A3,A1
0x3eaff4…3eb188 Dummy {f00=0x0137, f01=0x018e, f02=»RIES j P 2 PTDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE P SUK A4,1 J P RF(Z) TDST25 P ADK A2,4 r P ADK A3,2 P RB TDST22 P PTDST25 EQU * " P TL TTB:MT,A14 LOAD MMU TABLE 2 P SLL A1,2 UPDATE BASE IN T:A A
0x3eb188…3eb31c Dummy {f00=0x0137, f01=0x0190, f02=» P XIF P P IFT DSKPAG-MMUPAG=1 2 P ST* A1,TTB:CB,A14 UPDATE CURRENT SEGMENT BASE 8 P XIF n P z PTDST30 EQU * P IFT MMUPAG=1 " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC
0x3eb31c…3eb4b0 Dummy {f00=0x0137, f01=0x0190, f02=»AD REGISTERS z P P XIF P IFT CPU852=1 ( P > P STR A1,A15 PUT PC F P STR A2,A15 AND PSW ON STACK ` & P LD A1,TTB:SA+2,A14 LOAD REGISTERS P LD A2,TTB:SA+4,A14 P LD A3,TTB:SA+6,A14 P LD A4,TTB:SA+8,A14 P LD A5
0x3eb4b0…3eb644 Dummy {f00=0x0137, f01=0x40e8, f02=»D A10,TTB:SA+20,A14 P LD A11,TTB:SA+22,A14 P LD A12,TTB:SA+24,A14 : P LD A13,TTB:SA+26,A14 X P LD A14,TTB:SA+28,A14 v P P XIF P P RTN A15 START THE TASK P P END @ D A4,TTB:SA+8,A14 P LD A5
0x3eb644…3eb7d8 Dummy {f00=0x0137, 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
0x3eb7d8…3eb96c Dummy {f00=0x0137, f01=0x0190, f02=» 2 P* * T 2 P* * T : 2 P* ALOCSG * T p 2 P* ====== * T 2 P*
0x3eb96c…3ebb00 Dummy {f00=0x0137, f01=0x0190, f02=» * T ~ 2 P********************************************* U $ P* U Z P* U d PALOCSG EQU * U n 0 P ST A2,TNBRSG+STKEND SAVE NUMBER OF SEGMENTS U 8 P CM SEGCNT+STKEND RESET NO OF CORE RESIDENT SEGMENTS U * P ST A3,APLPSZ,A1 SAVE
0x3ebb00…3ebc94 (1, 1115) Opaque[0x194]
0x3ebc94…3ebe28 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2700, f03=0x0000}
0x3ebc94…3ebe28 IdxSect {
0x3ebc94…3ebe28 f00 = 0x0138 // 0x3ebc94 @0x0
0x3ebc94…3ebe28 f01 = 0x0006 // 0x3ebc96 @0x2
0x3ebc94…3ebe28 gno = [ // 0x3ebc98 @0x4
0x3ebc94…3ebe28 [0x00]: C0x0138.0x0.0
0x3ebc94…3ebe28 [0x01]: C0x0138.0x1.0
0x3ebc94…3ebe28 [0x02]: C0x0138.0x2.0
0x3ebc94…3ebe28 ]
0x3ebc94…3ebe28 }
0x3ebe28…3ebfbc Dummy {f00=0x0138, f01=0x0190, f02=» 0 P IDENT TIMER REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x3ebfbc…3ec150 Dummy {f00=0x0138, 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
0x3ec150…3ec2e4 Dummy {f00=0x0138, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P EJECT TIMER 6 P* L P* V P*********** ` P* EXTRNALS * t P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXTRN
0x3ec2e4…3ec478 Dummy {f00=0x0138, f01=0x0190, f02=»DRESS v , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK > 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE l 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P**
0x3ec478…3ec60c Dummy {f00=0x0138, f01=0x0190, f02=»*** j P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P P* PCPU852 EQU 1 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIME
0x3ec60c…3ec7a0 Dummy {f00=0x0138, f01=0x018e, f02=»AM DELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS , P* A8 = DELAY J P* ` P* j P* 2. TIMING AND ACTIVATION t P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB AD
0x3ec7a0…3ec934 (1, 1116) Dummy {f00=0x0138, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR ( P RF(NZ) TIM010 TIMING AND ACTIVATION 4 P* ` P EJECT TIMER j P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 D
0x3ec934…3ecac8 Dummy {f00=0x0138, f01=0x0190, f02=»10 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR 8 " P ABL(Z) LKMRQE TTAB NOT FOUND P ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS v , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER . P LDR A1,A4
0x3ecac8…3ecc5c Dummy {f00=0x0138, f01=0x0190, f02=»QU * P ABL LKMQDI P* P EJECT TIMER * P* @ P* J P* RETURN AFTER TIME OUT T P* v P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISPATCHING
0x3ecc5c…3ecdf0 Dummy {f00=0x0138, f01=0x0190, f02=»ET IT FREE | P LDR A5,A3 SET TTAB ADDRESS * P ABL ACTDIS ACTIVATE TASK AND DISPATCH 6 P* d P EJECT TIMER n P* P* " P* S E T I M E , S E T I M P P* . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , P* AND IF SET
0x3ecdf0…3ecf84 Dummy {f00=0x0138, f01=0x0190, f02=»POINTER ADDRESS v , P* P1 = DISPATCH ADDRESS AFTER TIME OUT P* P2 = DELAY H P* ^ : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. h P* P* EXIT PARAMETER:- P* P* A4 = ADDRESS TO TIMER P* P*
0x3ecf84…3ed118 Dummy {f00=0x0138, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P INH , " P MSR 8,A15 SAVE A1-A8 ON STACK 8 P XIF ^ P* j P EJECT TIMER t P* P* * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS
0x3ed118…3ed2ac Dummy {f00=0x0138, f01=0x0190, f02=» PROGRAM COUNTER | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A2,A4 @ P C1R A1,A8 R " P CF A15,GETBLK GET TIMER BLOCK d P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER AD
0x3ed2ac…3ed440 Dummy {f00=0x0138, f01=0x412e, f02=»CT TIMER P* P* PSETEND EQU * & P IFT CPU852=1 : ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P P XIF | P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN P XIF P*
0x3ed440…3ed5d4 (1, 1117) Dummy {f00=0x0138, 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
0x3ed5d4…3ed768 Dummy {f00=0x0138, f01=0x0190, f02=»A f p P* g $ P LD A4,SCTMXS GET MXSTAB ADDRESS g " P ADK A4,2 MONITOR DISC ADDRESS g < P XRR A1,A1 RESET REG. A1 g b * P LDR* A2,A6 GET MONITOR EXTENT ADDRESS g ( P DAR* A4 AND RELOCATE EXTENT ADDRESS g * P LDR A11,A2 GET LEAST SIGNIFICANT PART g *
0x3ed768…3ed8fc Dummy {f00=0x0138, f01=0x0190, f02=»S ADDRESS g z " P STR A1,A6 AND SAVE IN MXSTAB h P* h 8 * P ADK A5,10 SKIP PRECCEDING FIVE WORDS h B : P ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) h p $ P LDR A8,A5 SAVE RELOCATION BASE h 0 P ADS A5,2,A6 RELOCATE PROGRAM START ADDRESS h
0x3ed8fc…3eda90 Dummy {f00=0x0138, f01=0x0190, f02=»BLE h l 6 P ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR i PMSX50 EQU * i F " P STR A7,A2 STORE PAGE ADDRESS i Z $ P ADKL A7,/400 NEXT PAGE ADDRESS i P ADK A2,2 NEXT MMU ENTRY i & P ADK A3,1 INCREMENT ENTRY COUNTER i ( P CWK A3,16 ALL ENTRIES
0x3eda90…3edc24 Dummy {f00=0x0138, f01=0x0190, f02=» RESTORE NO OF EXTENTS i P RB MSX20 j P* j 0 PMSX99 EQU * j : P RTN A14 j N P EJECT j ^ 4 P*********************************************** j l P* j P* GETMON j P* ====== j P* j & P* SEARCH FOR MONIT
0x3edc24…3eddb8 Dummy {f00=0x0138, f01=0x0190, f02=»************** j n P* k P* k PGETMON EQU * k * ( P LD A1,SCTANO GET APPLICATION NUMBER k > P ST A1,MONNO+STKEND SAVE k j 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC k 0 P LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER k 2 P SLL A1,8 FORM MONIT
0x3eddb8…3edf4c Dummy {f00=0x0138, f01=0x0190, f02=»GTMON2 EQU * k 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) l ( P CW A1,8,A4 IS IT THE RIGHT MONITOR? l H P RF(E) GTMON4 YES! l t P* l 8 P CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC l P RB GTMON2 l P* l PGTMON4 EQU * l $ P LD
0x3edf4c…3ee0e0 Dummy {f00=0x0138, f01=0x0190, f02=»,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) l " P ST A2,4,A1 AND SAVE IN MXSTAB m 4 P RTN A14 RETURN m Z P EJECT m r PGETNBR EQU * m $ P CF A14,GETVLB READ VOLUME LABEL m PGTNBR0 EQU * m P CF A14,RDSEC READ SECTOR m ( P LDK A7,QBLFAC VTOC BL
0x3ee0e0…3ee274 (1, 1118) Opaque[0x194]
0x3ee274…3ee408 # DirEnt {nam=»TIOADM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2718, f03=0x0000}
0x3ee274…3ee408 IdxSect {
0x3ee274…3ee408 f00 = 0x0138 // 0x3ee274 @0x0
0x3ee274…3ee408 f01 = 0x0008 // 0x3ee276 @0x2
0x3ee274…3ee408 gno = [ // 0x3ee278 @0x4
0x3ee274…3ee408 [0x00]: C0x0138.0x3.0
0x3ee274…3ee408 [0x01]: C0x0139.0x0.0
0x3ee274…3ee408 [0x02]: C0x0139.0x1.0
0x3ee274…3ee408 [0x03]: C0x0139.0x2.0
0x3ee274…3ee408 ]
0x3ee274…3ee408 }
0x3ee408…3ee59c Dummy {f00=0x0138, f01=0x018e, f02=» 2 P IDENT TIOADM REL 11.0 81-02-10 870105041100 P : @ P =1, CLOSE DISCARD EXECUTES CLOSE LOCK IF WRONG OPEN MODE B P REL 11.0 81-01-26 P* 4 P*********************************************** P* . P* TIOADM TOSS ABRIDGED
0x3ee59c…3ee730 Dummy {f00=0x0138, f01=0x0190, f02=» P* P* INPUT : A6 = FDB ADDRESS P* A8 = ECB ADDRESS 2 P* A14 = STACK BASE V P* z $ P* OUTPUT: A2=DISPATCH ADDRESS P* P EJECT TIOADM P* P* P**************** P* ENTRY *
0x3ee730…3ee8c4 Dummy {f00=0x0138, f01=0x018e, f02=» P**************** P* EXTERNALS * P**************** 8 P* P P EXTRN DWTOR Z P EXTRN DWTTAB n P EXTRN FPB:BF BLOCK FACTOR P EXTRN FPB:BO TOSS OPTION P EXTRN FPB:EL ENLARGE FACTOR P EXTRN DISIOE P EXTRN
0x3ee8c4…3eea58 Dummy {f00=0x0138, f01=0x0190, f02=» n P EXTRN FPB:RL RECORD LENGTH " P EXTRN FDBEXC EXCLUSIVE ACCESS , P EXTRN FDBRLE RECORD LENGTH R P EXTRN FDBOMD OPEN MODE v " P EXTRN DMACTI ACTIVATE DM TASK & P EXTRN DMACTD ACTIVATE DM TASK #D P EXTRN FDBSTA P EXTRN FNDFD
0x3eea58…3eebec Dummy {f00=0x0138, f01=0x018e, f02=» * " P* CONDITIONAL ASSEMBLY * " P* * > " P***************************** d P* P* ( P* A VERSION INCLUDING OPENEN MODES , P* EXTEND AND OUTPUT AND CLOSE DISCARD ( P* IS OBTAINE
0x3eebec…3eed80 Dummy {f00=0x0138, f01=0x0190, f02=» P* P* " P****************************** " P* * B " P* CONSTANTS * h " P* * " P****************************** P* P* ( PLFILEN EQU 256 L-FILE RECO
0x3eed80…3eef14 (1, 1119) Dummy {f00=0x0139, f01=0x0190, f02=»ER ALLOWED ORDERS AND ORDER OPTIONS P* , PORDTAB EQU * 6 ( P DATA /821 OPEN INPUT UNPROTECTED J & P DATA /921 OPEN INPUT PROTECTED v & P DATA /A21 OPEN INPUT EXCLUSIVE . P DATA /3921 OPEN INPUT/OUTPUT PROTECTED . P DATA /3A21
0x3eef14…3ef0a8 Dummy {f00=0x0139, f01=0x0190, f02=» ` ( P DATA /5221 OPEN EXTEND EXCLUSIVE 4 P DATA /1221 OPEN OUTPUT SEQUENTIAL EXCLUSIVE 4 P XIF l PORDOPE EQU *-ORDTAB x P IFT CRDEEX=1 P DATA /222 CLOSE DISCARD P XIF PORDCLO EQU *-ORDTAB P DATA /022 CLOSE LO
0x3ef0a8…3ef23c Dummy {f00=0x0139, f01=0x0190, f02=» P DATA /107 REWRITE P DATA /108 DELETE P DATA /106 WRITE RANDOM 8 PORDRED EQU *-ORDTAB X P DATA /102 READ DIRECT t ( PORDLGT EQU *-ORDTAB LENGTH OF TABLE P* P EJECT TIOADM P* P* P********** P*
0x3ef23c…3ef3d0 Dummy {f00=0x0139, f01=0x0190, f02=» P* POPEMOD EQU * P DATA /1010 IN UNPRO,IN PROT " $ P DATA /101F INP EXC,IN/OUT PROT F " P DATA /1F09 IN/OUT EXC,OUT RAN n " P DATA /0101 EXTEND EXC,OUT SEQ P* P EJECT TIOADM P* P* P* INPUT : A6 = FDB ADDRE
0x3ef3d0…3ef564 Dummy {f00=0x0139, f01=0x0190, f02=»TAB,A6 USER TTAB ADDRESS P LDR* A2,A8 FILE CODE P ANK A2,/FF > P LDK A5,0 R P CF A14,FNDFDB d P LDK A2,0 z P SCR A2,A4 RESET STATUS ( P LD A7,DWTOR,A6 GET ORDER AND OPTION P LDK A2,/20 ORDER BIT MASK " P LDK A3,ORDLGT
0x3ef564…3ef6f8 Dummy {f00=0x0139, f01=0x018e, f02=»1 BIT MASK , P CW A7,ORDTAB,A3 CHECK IF ORDER ALLOWED $ P RB(NE) TIOA20 NO MATCH TRY NEXT B . P SC A3,DWTOR+1,A6 SAVE ORDER DISPLACEMENT j P SUK A3,ORDOPE P RF(N) TAOPEN OPEN P* P EJECT TIOADM P* P* P CWK A6,
0x3ef6f8…3ef88c Dummy {f00=0x0139, f01=0x0190, f02=» l P CW A1,DWTTAB,A6 ( P RF(NE) ER:IRQ ERROR: NOT SAME USER " PTIOA30 EQU * N P IFT CRDEEX=1 b P SUK A3,ORDCLO-ORDOPE x P RF(N) TACLOD CLOSE DISCARD P RF(Z) TACLOS CLOSE LOCK P XIF P IFT CRDEEX=0 P SUK A3,ORDC
0x3ef88c…3efa20 Dummy {f00=0x0139, f01=0x018e, f02=»3,ORDSQW-ORDRFP " P RF(Z) TIA100 WRITE SEQUENTIAL ( P LD A4,ECBCW1,A8 CHECK RECORD NUMBER > P OR A4,ECBCW2,A8 j P RF(NP) ER:IRQ ILLEGAL P SUK A3,ORDRED-ORDSQW " P RF(NZ) TIA100 NOT READ DIRECT ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH
0x3efa20…3efbb4 (1, 1120) Dummy {f00=0x0139, f01=0x0190, f02=» P* PTIA100 EQU * P LC A3,FDBOMD,A6 OPEN MODE & P ANK A3,/7F H P SRL A3,1 BYTE MODE P LC A3,OPEMOD,A3 x P ANR A2,A3 , P RF(Z) ER:IRQ ERROR: INCORRECT OPEN MODE $ P LDKL A2,ADMTSK DISPATCH ADDRESS P ABL DMACTI AC
0x3efbb4…3efd48 Dummy {f00=0x0139, f01=0x0190, f02=» P* PTAOPEN EQU * P CWK A6,FDBSTA & " P RF(NE) ER:IRQ FILE CODE USED < P LD A1,ECBBA,A8 FPB ADDRESS b P ADK A1,8 P IFT MMUPAG=0 P LC A4,FPB:BO,A1 TOSS OPTION P ANK A4,/FF P SUK A4,1 $ P RF(P) ER:IRQ OP
0x3efd48…3efedc Dummy {f00=0x0139, f01=0x0190, f02=» ANK A4,/FF P SUK A4,1 $ P RF(P) ER:IRQ OPTION NOT 0 OR 1 & ( P EL A4,FPB:FO-1,A1 FILE ORGANISATION N P XIF z P ANK A4,/FF P SUK A4,3 P RF(P) ER:IRQ ERROR P ADK A4,2 P RF(Z) ER:IRQ ERROR P IFT CRDEEX=1
0x3efedc…3f0070 Dummy {f00=0x0139, f01=0x0190, f02=»RDOP1 $ P RF(N) TAOPE2 OPEN EXISTING FILE P IFT MMUPAG=0 6 " P AD A2,FPB:RL,A1 RECORD LENGTH L P XIF r P IFT MMUPAG+CRDEEX=2 ~ P EL A3,FPB:RL,A1 P SUK A4,1 FILE ORGANIZATION P RF(NZ) TAOP20 NOT L-FILE P CWK A3,LFILEN L
0x3f0070…3f0204 Dummy {f00=0x0139, f01=0x0190, f02=» P RF(NP) ER:IRQ NOT ALLOWED P ANK A2,/FF & ( P RF(NZ) ER:IRQ ERROR:ILLEGAL LENGTH : P IFT MMUPAG=0 f P SUK A4,1 FILE ORGANIZATION | P RF(NZ) TAOP20 NOT L-FILE " P LDKL A3,LFILEN L-FILE LENGTH " P CW A3,FPB:RL,A1 RECORD LENGTH
0x3f0204…3f0398 Dummy {f00=0x0139, f01=0x0190, f02=»PB:BF,A1 BLOCK FACTOR P SRL A2,8 P XIF 0 P IFT CRDEEX=1 < P SUK A2,1 R P RF(Z) TARFP ACTIVATE #D d $ P RF ER:IRQ ILLEGAL BLOCK FACTOR P XIF P* P EJECT TIOADM P* P* P********** P* TAOPE2 *
0x3f0398…3f052c Dummy {f00=0x0139, f01=0x0190, f02=»TOR t P XIF P IFT MMUPAG=1 $ P EL A2,FPB:EL,A1 ENLARGE FACTOR . P XIF V P RF(Z) TARFP ACTIVATE #D b PER:IRQ EQU * ILLEGAL REQUEST P ABL DISIOE P* P* P EJECT TIOADM P* P* P**********
0x3f052c…3f06c0 Dummy {f00=0x0139, f01=0x0190, f02=»* A4 = FILE CODE REFERENCE ADDRESS P* , P* 6 P IFT CRDEEX=1 @ PTACLOD EQU * CLOSE DISCARD V P ADK A1,0 x $ P RF(NZ) TACLOS OPENED EXCLUSIVE ( P LDKL A1,/8000 RC: REQUEST ERROR =1 P ST A1,ECBRC,A8 =1 ( P LDK A1,ORDCLO
0x3f06c0…3f0854 (1, 1121) Dummy {f00=0x0139, f01=0x4092, f02=»,A4 FC ENTRY PTARFP EQU * $ P LDKL A2,ADMTSK DISPATCH ADDRESS ( $ P ABL DMACTD ACTIVATE DM TASK #D P P* x P END @
0x3f0854…3f09e8 Dummy {f00=0x0139, f01=0x2008, f02=» NT TIOADM PRR 11.0 CHLO @ * P 2 P* : 2 P********************************************** D P* z " P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRFD02 = DRIVER FOR FLEXIBLE DISK P* P* P* P* P
0x3f09e8…3f0b7c Dummy {f00=0x0139, f01=0x0190, f02=»FRST EQU * P LDKL A2,FDBMEC P SUKL A2,FDBECB LENGTH * POPF100 EQU * H P SUK A2,2 P RF(N) OPF110 OK n P LDR A7,A11 P ADR A7,A2 P CM FDBECB,A7 P RB OPF100 P EJECT P* P* BUILD FWT FDB PART
0x3f0b7c…3f0d10 Dummy {f00=0x0139, f01=0x0190, f02=»RLE,A11 RECORD LENGTH P LC A3,FPB:BF,A12 ! " P SC A3,FDBBLF,A11 BLOCK FACTOR ! 8 P LD A3,NROFIX NR OF INDEXES ! ^ ( P SC A3,FDBNIF,A11 NR OF INDEX FILES ! P LC A3,FPB:FR+1,A12 ! P SC A3,FDBLRN,A11 ! P LD A3,FPB:FR+2,A12 ! $ P ST A3,F
0x3f0d10…3f0ea4 Dummy {f00=0x0139, f01=0x0190, f02=»3 ! ( P ST A3,FDBMIA,A11 MASTER INDEX ADDR " " P RF(Z) OPF120 NO MASTER INDEX " 6 P LD A3,FPB:KA,A12 " P CW A3,OPEKAD,A13 " v P RB(NE) OPEER4 WRONG KEY " P ST A3,FDBKA,A11 KEY ADDR " POPF120 EQU * " P LC A3,FPB:BO,A12 " P SLL A3,
0x3f0ea4…3f1038 Dummy {f00=0x0139, f01=0x0190, f02=»FIRST EXTENT VOLUME FC " ~ P LDKL A6,-1 # POPF140 EQU * # 2 P ADK A6,1 # F P CC A3,DFTAB,A6 # X P RB(NE) OPF140 NOT THIS DISC # p $ P LC A3,DMTIDP,A6 REL DM TASK ID # $ P SC A3,FDBDMI,A11 MAIN SDMTSK ID # P* # 4 P* CALCULATE MAX FDBRRO AND
0x3f1038…3f11cc Dummy {f00=0x0139, f01=0x0190, f02=» , P SC A2,FDBBLZ,A11 BLOCK SIZE IN SECTORS $ P ST A11,FDBADF,A11 $ 4 P* $ P P* CALCULATE ENLARGE FACTOR $ Z P* $ | $ P LDR A4,A2 BLOCK SIZE IN SECTORS $ P CF A14,ENLFAC $ P RB(O) OPEER3 OVERFLOW $ * P ST A3,FDBENL,A11 SAVE ENLARGE FACTOR
0x3f11cc…3f1360 Dummy {f00=0x0139, f01=0x0190, f02=»A11 OPEN MODE $ P LDR A2,A3 % P SLL A2,6 % ( . P RF(NN) OPF150 EXCLUSIVE ACCESS NOT WANTED % : " P LD A1,DWTTAB,A10 TTAB ADDRESS % l POPF150 EQU * % 0 P ST A1,FDBEXC,A11 SET EXCLUSIVE ACCESS USER % P ANK A3,/FF % P CWK A3,SDMOOR % 2 P RF(
0x3f1360…3f14f4 (1, 1122) Opaque[0x194]
0x3f14f4…3f1688 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2738, f03=0x0000}
0x3f14f4…3f1688 IdxSect {
0x3f14f4…3f1688 f00 = 0x0139 // 0x3f14f4 @0x0
0x3f14f4…3f1688 f01 = 0x0016 // 0x3f14f6 @0x2
0x3f14f4…3f1688 gno = [ // 0x3f14f8 @0x4
0x3f14f4…3f1688 [0x00]: C0x0139.0x3.0
0x3f14f4…3f1688 [0x01]: C0x013a.0x0.0
0x3f14f4…3f1688 [0x02]: C0x013a.0x1.0
0x3f14f4…3f1688 [0x03]: C0x013a.0x2.0
0x3f14f4…3f1688 [0x04]: C0x013a.0x3.0
0x3f14f4…3f1688 [0x05]: C0x013b.0x0.0
0x3f14f4…3f1688 [0x06]: C0x013b.0x1.0
0x3f14f4…3f1688 [0x07]: C0x013b.0x2.0
0x3f14f4…3f1688 [0x08]: C0x013b.0x3.0
0x3f14f4…3f1688 [0x09]: C0x013c.0x0.0
0x3f14f4…3f1688 [0x0a]: C0x013c.0x1.0
0x3f14f4…3f1688 ]
0x3f14f4…3f1688 }
0x3f1688…3f181c Dummy {f00=0x0139, f01=0x0190, f02=» 0 P IDENT TIODM REL 11.0 81-02-23 870105041100 P 8 P =5, REL 11.0 81-02-19 @ & P =5, WRONG TASK NBR WHEN COMMIT ` P =4, REL 11.0 81-02-18 0 P =4, ASS.ERR IN FINDTT WHEN TTAB>256 BYTES P =3, REL 11.0 81-02-02 , P =3, RDS
0x3f181c…3f19b0 Dummy {f00=0x0139, f01=0x0190, f02=» P =1, COMMIT ERROR FOR EDM 8 P**************************************************** ( P* d $ P* PHILIPS TERMINAL SYSTEM PTS n P* 0 P* TIODM = DATA MANAGEMENT ACTIVATION PART P* 4 P* DMTEND = DATA MANAGEMENT COMMIT (/ROL
0x3f19b0…3f1b44 Dummy {f00=0x0139, f01=0x0190, f02=» THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE D P* v H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED P* < P* ENTRY
0x3f1b44…3f1cd8 Dummy {f00=0x0139, f01=0x0190, f02=»D WITH W BIT = 0 v P* A8 = ECB ADDRESS P* < P* F P* P 6 P* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT Z P* P EJECT P* P************** P* ENTRIES * P************** P* & P ENTRY
0x3f1cd8…3f1e6c Dummy {f00=0x0139, f01=0x0190, f02=»DBOMD,FDBENL,FDBEXC,FDBECB,FDBSNR . P ENTRY FDBRRO,FDBRLE,FDBBLF,FDBTNR,FDBLRN * 4 P ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF & P ENTRY FDBAI1,CRNTID,CRNCDF,CRNSTA P ENTRY FDBBLZ BLOCK SIZE P ENTRY FDBDMI DMTASK IDENT P ENTRY
0x3f1e6c…3f2000 Dummy {f00=0x0139, f01=0x018e, f02=»FDBSTA,DWDM01 P ENTRY REQER2 2 P ENTRY RETRIE,EOMERR,NOKEY,NXTKYS,EOFRC,NODERR , , P ENTRY PROT,KEYERR,PROERR,REQERR,LGTERR b P ENTRY EOFERR,EDMERR P ENTRY TTABD,TTABLN,TABEND 0 P ENTRY DMXACD EXIT TASK AND ACTIVATE TASK #D P ENT
0x3f2000…3f2194 (1, 1123) Dummy {f00=0x013a, f01=0x0190, f02=» . P ENTRY ENLFAC,TOTSIZ,RTNA14,SETCRO,CONENL P ENTRY COSZEN,SIZDIF 6 & P ENTRY SDMSTS,SDMTTD,SDMBF1,SDMBF2 R P ENTRY RECBFZ | P EJECT TIODM P* P*************** P* EXTERNALS * P*************** P* P*
0x3f2194…3f2328 Dummy {f00=0x013a, f01=0x0190, f02=» ACTOT P EXTRN EXIT P EXTRN PRUN " P EXTRN DFTAB 6 P EXTRN DMTIDP J P EXTRN DMTIDS ` P EXTRN ECBCW v P EXTRN FWTVOL P EXTRN HALT P EXTRN TIOSDM P EXTRN TIOADM P EXTRN TIOEDM P EXTRN TDISP
0x3f2328…3f24bc Dummy {f00=0x013a, f01=0x0190, f02=»O P EXTRN ACTDIS P EXTRN DFTABL P EXTRN FNDTID 6 P EXTRN MPYMOD,DIVMOD,ADDMOD L & P EXTRN FPB:EL,FPB:S1,FPB:BF,FPB:RL p P EXTRN DV3RST P EXTRN CRRBL P EXTRN LKMRQE & P EXTRN TIOECR EDM COMMIT ROLLBACK : P EXT
0x3f24bc…3f2650 Dummy {f00=0x013a, f01=0x0190, f02=» * z P************************ P* * P* 4 P* > , P* IF ADM HANDLING WANTED PUT X:A EQU 1 H P* x PX:A EQU 0 PADM EQU X:A P* 0 P* IF SDM HANDLING NOT WANTED PUT X:B EQU 0 P* PX:B EQU 0 PSDM EQ
0x3f2650…3f27e4 Dummy {f00=0x013a, f01=0x0190, f02=» P* P* P EJECT TIODM P* . P* 8 , P* NUMBER OF DM TASKS IS DEFINED BY X:B. B 0 P* ONLY VALUES BETWEEN 2 AND 6 ARE PERMITTED. r * P* ALL OTHER VALUES WILL GIVE 2 TASKS. P* PX:D EQU 2 PNTASKS EQU X:D . P*
0x3f27e4…3f2978 Dummy {f00=0x013a, f01=0x0190, f02=» X:C = INDEX RECORD BUFFER SIZE IN WORDS P* 4 PX:E EQU 0 > PRECBFZ EQU X:E P P* f H P* AN ADM VERSION WITHOUT OPEN OUTPUT, OPEN EXTEND AND CLOSE DISCARD p & P* IS OBTAINED BY SETTING X:F EQU 0 P* PX:F EQU 0 PCRDEEX
0x3f2978…3f2b0c Dummy {f00=0x013a, f01=0x0190, f02=» * P******************* P* , P IFT ADM+CRDEEX=2 6 PADMCDE EQU 1 P P XIF d P IFF ADM+CRDEEX=2 p PADMCDE EQU 0 P XIF P* IF ADM AND SDM P IFT ADM+SDM=2 PADMSDM EQU 1 P XIF P IFF ADM+SDM=2
0x3f2b0c…3f2ca0 Dummy {f00=0x013a, f01=0x0190, f02=»DM=2 PADMEDM EQU 0 P XIF P* ADM000=1 IF NOT EDM OR SDM , P IFT SDM+EDM=0 P PADM000 EQU 1 f P XIF z P IFF SDM+EDM=0 PADM000 EQU 0 P XIF P* SDM000=1 IF NOT ADM OR EDM P IFT ADM+EDM=0 PSDM000 EQU 1
0x3f2ca0…3f2e34 (1, 1124) Dummy {f00=0x013a, f01=0x0190, f02=» 1 P XIF P IFF ADM+SDM=0 PEDM000 EQU 0 , P XIF @ P* L P EJECT V P* d P* ERROR CODES n P* * PEOMERR EQU /A000 OUTSIDE MEDIUM LIMITS & PPROT EQU /0040 THIS DATA PROTECTED & PNODERR EQU /8800 NO EXPECTED DAT
0x3f2e34…3f2fc8 Dummy {f00=0x013a, f01=0x0190, f02=» REQUEST ERROR x " PREQER2 EQU /FFFE REQUEST ERROR & PLGTERR EQU /0008 INCORRECT LENGTH < * PEDMERR EQU /8080 DATA MANAGEMENT ERROR f PEOFERR EQU /9000 END OF FILE P* P* MESSAGES P* " PRETRIE EQU /0100 DISC RETRIES $ PNO
0x3f2fc8…3f315c Dummy {f00=0x013a, f01=0x0190, f02=»=/0000,16=/0400,16=/0800,16=/0C00 4 PMMTAB2 FORM 16=/1000,16=/1400,16=/1800,16=/1C00 * 4 PMMTAB3 FORM 16=/2000,16=/2400,16=/2800,16=/2C00 b 4 PMMTAB4 FORM 16=/3000,16=/3400,16=/3800,16=/3C00 P* P* CONSTANTS P* PSIZDIF EQU 10
0x3f315c…3f32f0 Dummy {f00=0x013a, f01=0x0190, f02=»S=6 PF EQU 0 PG EQU 0 PH EQU 0 , PI EQU 0 < P XIF L P IFT NTASKS=3 X PF EQU 1 n PG EQU 0 ~ PH EQU 0 PI EQU 0 P XIF P IFT NTASKS=4 PF EQU 1 PG EQU 1 PH EQU 0 PI EQU 0
0x3f32f0…3f3484 Dummy {f00=0x013a, f01=0x018e, f02=» PF EQU 1 PG EQU 1 PH EQU 1 $ PI EQU 1 4 P XIF D P IFT MMUPAG=0 P PMMTABL EQU 32 f P XIF | P IFT MMUPAG=1 PMMTABL EQU 0 P XIF P EJECT P IFT ADM+SDM=0 PTTABST EQU * PTTABD EQU *
0x3f3484…3f3618 Dummy {f00=0x013a, f01=0x0190, f02=» PSDMBF2 EQU * P XIF P IFF ADM+SDM=0 ( P* > P*************************** H P* TTAB:S FOR DM TASKS * l P************************* P* PTTABST EQU * P MMTAB1 P MMTAB2 P MMTAB3 P MMTAB4
0x3f3618…3f37ac Dummy {f00=0x013a, f01=0x0190, f02=» . P DATA 0 APPLICATION CONTROL BLOCK POINTER P 6 PTTABD EQU * > " P DATA 0 DISPATCHER QUEUE LINK R P DATA '#D' TASK ID x P DATA 49 TASK LEVEL P DATA 0 PENDING POINTER P DATA /C4C0 PSW P DATA 0 DISPATCH ADDRESS 0 P D
0x3f37ac…3f3940 Dummy {f00=0x013a, f01=0x0190, f02=»-TTABD P DATA 0,0 MASTER INDEX ENTRY PTTABDE EQU * 2 P RES STCRES TASK STACK F PSDMSTS EQU *-TTABDE-2 d PDMTTSB EQU *-2-TTABD PTTBBF1 EQU *-TTABD P RES RECBFZ BUFAR1 PTTBBF2 EQU *-TTABD P RES RECBFZ BUFAR2 PTT
0x3f3940…3f3ad4 (1, 1125) Dummy {f00=0x013a, f01=0x0190, f02=» MMTAB1 P MMTAB2 P MMTAB3 P MMTAB4 0 P RORG *-MMTABL @ P DATA 0 CURRENT SEGMENT BASE V " P DATA 0 SEGMENT TABLE POINTER z " P DATA 0 SEGMENT BLOCK POINTER . P DATA 0 APPLICATION CONTROL BLOCK POINTER P PTTABE EQ
0x3f3ad4…3f3c68 Dummy {f00=0x013a, f01=0x018e, f02=» DATA /C4C0 PSW P DATA 0 DISPATCH ADDRESS 0 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 8 P DATA 0,0,0,0,0,0,0 A8-A14 l $ P DATA TTABEE-* TERMINAL DEVICES P DATA 0,0 MASTER INDEX ENTRY PTTABEE EQU * P RES STCRES TASK STACK
0x3f3c68…3f3dfc Dummy {f00=0x013a, f01=0x0190, f02=» P RORG *-MMTABL P DATA 0 CURRENT SEGMENT BASE " P DATA 0 SEGMENT TABLE POINTER > " P DATA 0 SEGMENT BLOCK POINTER d . P DATA 0 APPLICATION CONTROL BLOCK POINTER P PTTABF EQU * " P DATA 0 DISPATCHER QUEUE LINK P DATA '#F'
0x3f3dfc…3f3f90 Dummy {f00=0x013a, f01=0x0190, f02=»A 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 P DATA 0,0,0,0,0,0,0 A8-A14 0 $ P DATA TTABFE-* TERMINAL DEVICES R P DATA 0,0 MASTER INDEX ENTRY z PTTABFE EQU * P RES STCRES TASK STACK $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 P IFT G=1 P
0x3f3f90…3f4124 Dummy {f00=0x013a, f01=0x0190, f02=» DATA 0 SEGMENT TABLE POINTER " P DATA 0 SEGMENT BLOCK POINTER & . P DATA 0 APPLICATION CONTROL BLOCK POINTER L P ~ PTTABG EQU * " P DATA 0 DISPATCHER QUEUE LINK P DATA '#G' TASK ID P DATA 49 TASK LEVEL P DATA 0 PENDING PO
0x3f4124…3f42b8 Dummy {f00=0x013a, f01=0x0190, f02=»0,0,0 A8-A14 $ P DATA TTABGE-* TERMINAL DEVICES P DATA 0,0 MASTER INDEX ENTRY < PTTABGE EQU * ` P RES STCRES TASK STACK t $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 P IFT H=1 P EJECT P MMTAB1 P MMTAB2 P MMTAB3 P
0x3f42b8…3f444c Dummy {f00=0x013a, f01=0x0190, f02=»INTER x . P DATA 0 APPLICATION CONTROL BLOCK POINTER P @ PTTABH EQU * H " P DATA 0 DISPATCHER QUEUE LINK P DATA '#H' TASK ID P DATA 49 TASK LEVEL P DATA 0 PENDING POINTER P DATA /C4C0 PSW P DATA 0 DISPATCH ADDRESS
0x3f444c…3f45e0 Dummy {f00=0x013a, f01=0x018e, f02=»ATA 0,0 MASTER INDEX ENTRY PTTABHE EQU * " P RES STCRES TASK STACK 6 $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 T P IFT I=1 | P EJECT P MMTAB1 P MMTAB2 P MMTAB3 P MMTAB4 P RORG *-MMTABL P DATA 0 CURRENT SEGMENT
0x3f45e0…3f4774 (1, 1126) Dummy {f00=0x013a, f01=0x0190, f02=» P PTTABI EQU * " P DATA 0 DISPATCHER QUEUE LINK P DATA '#I' TASK ID F P DATA 49 TASK LEVEL ` P DATA 0 PENDING POINTER | P DATA /C4C0 PSW P DATA 0 DISPATCH ADDRESS 0 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 P
0x3f4774…3f4908 Dummy {f00=0x013a, f01=0x018e, f02=»TCRES TASK STACK $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 P XIF @ P IFF ADM+SDM=0 L PTPART1 EQU TTABD-TTABST b PTABEND EQU *+TPART1 P XIF P EJECT P* P* FDB OFFSET DEFINITIONS P* PFDBSTA EQU * PDWDM01
0x3f4908…3f4a9c Dummy {f00=0x013a, f01=0x018e, f02=» 4 PDWTPAB EQU *-DWDM01 PARAMETER BLOCK FOR EDM INI P DATA 0,0,0,0,0,0,0 < P IFT EDM000+MMUPAG=2 X PFDBMMU EQU * t P XIF P* FWT PART P DATA 0,0,0,0,0,0,0 P IFF ADM+SDM=0 P IFT MMUPAG=1 PFDBMMU EQU * P DAT
0x3f4a9c…3f4c30 Dummy {f00=0x013a, f01=0x018e, f02=» P DATA 0,0,0,0,0,0,0 ! P DATA 0,0,FDBSTA,0,0 ! $ P DATA 0,0,0,0,0 ! @ P XIF ! X P* ! d P EJECT ! n P* ! | P* ! P IFT MMUPAG=0 ! PSTART1 EQU 44 ! P XIF ! P IFT MMUPAG=1 ! PSTART1 EQU 62 ! P XIF ! PFDBMEC E
0x3f4c30…3f4dc4 Dummy {f00=0x013a, f01=0x0190, f02=» ! f & PFDBRLE EQU START1+18 RECORD LENGTH " ( PFDBENL EQU START1+20 ENLARGE FACTOR " 2 4 PFDBEXC EQU START1+22 EXCLUSIVE ACCESS INDICATOR " ^ & PFDBSNR EQU START1+24 SECTOR NUMBER " 0 PFDBRRO EQU START1+28 RELATIVE RECORD OFFSET " ( PFDBBLF EQU START1+30
0x3f4dc4…3f4f58 Dummy {f00=0x013a, f01=0x0190, f02=»TART1+33 NR OF SECTORS IN BLOCK " & PFDBEAL EQU START1+34 EA LINK ROOT # ( & PFDBCRL EQU START1+36 CRN LINK ROOT # R 0 PFDBKA EQU START1+38 KEY ADDRESS IN DATA FILE # | 0 PFDBMIA EQU START1+40 ADDRESS OF MASTER INDEX # 2 PFDBADF EQU START1+42 ADDRESS OF DATA
0x3f4f58…3f50ec Dummy {f00=0x013a, f01=0x0190, f02=»BDMI EQU START1+53 RELATIVE DMTASK ID # $ PFDBMRO EQU START1+54 MAX FDBRRO $ . 2 PFDBKEY EQU START1+56 KEY AREA FOR INDEXED ACC $ V P* $ P EJECT TIODM $ P* $ & P* CRN BUFFER OFFSET DEFINITIONS $ P* $ PCRNTID EQU 2 TASK ID $ PCR
0x3f50ec…3f5280 Dummy {f00=0x013a, f01=0x0190, f02=»**** $ x P* * % P* DRIVER ADDRESS BLOCK * % 0 P* * % T P**************************** % x P* % P* % ( P DATA 0 DATA MANAGEMENT DEVICE INDEX % ( PTIODM DATA TIODM0 ACTIVATION ADDRESS % P
0x3f5280…3f5414 (1, 1127) Dummy {f00=0x013b, f01=0x018e, f02=» A14,A6 STACK BASE % P ADK A7,0 & " P RF(NZ) TDM100 NOT READ STATUS & , P IFT ADM=1 & R & P LD A1,DWTTAB,A6 USER TTAB ADDRESS & d P LDR* A2,A8 & P ANK A2,/FF FILE CODE & P LDK A5,0 & ( P CF A14,FNDFDB GET FC ENTRY ADDRESS & P LCR A4,A4
0x3f5414…3f55a8 Dummy {f00=0x013b, f01=0x0190, f02=» P RF(NN) RDST50 S-FILE ' P RF RDSTAT X,L-FILE ' " PRDST10 EQU * ' > P ANK A4,/FF ' R P RF(NZ) RDSTAT L,X-FILE ' f PRDST50 EQU * ' P XIF ' P IFT ADMEDM=1 ' P CWK A6,FDBSTA ' P RF(E) RDST10 OPEN ' P LD A1,FDBOMD,A6 ' P RF(
0x3f55a8…3f573c Dummy {f00=0x013b, f01=0x0190, f02=» ' P IFT SDM=1 ( P LDR A11,A6 FDB ADDRESS ( P CF A14,CRNGET GET CURRENCY ( : P LC A4,CRNSTA,A2 ( ^ P XIF ( v PRDSTAT EQU * =3 ( P IFF ADM+SDM=0 ( P EJECT ( P* =3 ( P ANK A4,/FF ( " P ST A4,ECBCW,A8 RETURN STATUS ( P
0x3f573c…3f58d0 Dummy {f00=0x013b, f01=0x0190, f02=»00 EQU * ( P IFF ADMSDM+ADMEDM=0 ) P CWK A6,FDBSTA ) , P RF(E) TDM200 OPEN ) B P LD A1,FDBOMD,A6 ) P RF(N) TDM300 L,X-FILE ) t P XIF ) PTDM150 EQU * ) P IFT SDM=1 ) P ABL TIOSDM S-FILE ) P XIF ) P IFT EDM=1 ) P ABL TIOEDM
0x3f58d0…3f5a64 Dummy {f00=0x013b, f01=0x0190, f02=» LC A1,FPB:FO,A1 FILE ORGANISATION ) P XIF * * P IFF ADMSDM+ADMEDM=0 * 6 P IFT MMUPAG=1 * R P EL A1,FPB:FO+7,A1 * h P XIF * P IFF ADMSDM+ADMEDM=0 * P ANK A1,/FF * P SUK A1,1 * P RB(NP) TDM150 S-FILE,I-FILE * PTDM300 EQU * * P
0x3f5a64…3f5bf8 Dummy {f00=0x013b, f01=0x0190, f02=»TI * * P* DMACTD * + P********** + P* + 0 " P* ACTIVATE ADM AND/OR SDM TASK + : P* + ` & P* INPUT : A2 = DISPATCH ADDRESS + j P* A6 = FDB ADDRESS + P* + PDMACTI EQU * + P IFF ADM+SDM=0 + " P LC A7,FWTVOL,A6 GET FILE CO
0x3f5bf8…3f5d8c Dummy {f00=0x013b, f01=0x018e, f02=»T FILE CODE + x * P LC A7,DMTIDP-1,A3 PRIMARY TASK NUMBER , P CF A15,FINDTT , B P RF(Z) TASHLT TTAB NOT FOUND , X P LD A1,TTB:SA,A5 , | P RF(Z) DMAC50 TASK FREE , & P LC A7,DMTIDS-1,A3 SECONDARY TASK , P ANK A7,/FF , P CF A15,FINDTT , P
0x3f5d8c…3f5f20 Dummy {f00=0x013b, f01=0x0190, f02=» , P EJECT TIODM - P* - P* - ( $ PDMACTD EQU * ACTIVATE DM TASK #D - 2 P LDKL A5,TTABD - Z P RB DMAC50 - p P XIF - P* - P* ABNORMAL SYSTEM ERROR - P* - PTASHLT EQU * - P LDK A1,/11 - P CF A15,HALT - P* - P
0x3f5f20…3f60b4 (1, 1128) Dummy {f00=0x013b, f01=0x018e, f02=»VATE DM TASK #D - r P* . P* . " $ P* INPUT: A8=DISPATCH ADDRESS . , P* A6=FDB ADDRESS . T P* . v 2 PDMXACD EQU * EXIT RUNNING TASK AND ACTIVATE #D . P IFF SDM+ADM=0 . P LD A5,PRUN RUNNING TASK ID . P INH . P CF A15,EXIT
0x3f60b4…3f6248 Dummy {f00=0x013b, f01=0x0190, f02=» . P********** / P* DMTEND * / P********** / , P* / > P* COMMIT ENTRY / H P* ENTERED BY / ^ P* LKM / r P* DATA 16 / P* / P* / PDMTEND EQU * / P IFT EDM=0 / P IFT SDM=1 / & P LDR A6,A5 SAVE USER TTAB ADDRESS / P
0x3f6248…3f63dc Dummy {f00=0x013b, f01=0x0190, f02=» PDMTE10 EQU * 0 P ADK A3,2 POINTER 0 P CWR* A5,A3 ENTRY IN TABLE 0 2 P RB(NE) DMTE10 TRY NEXT 0 T & P SU A3,SCTTCT RELATIVE TASK NUMBER 0 t P* SUK A3,2 =5 0 P SRL A3,1 0 P LDKL A14,STACK 0 P CF A14,RELPRO 0 PDMTE40 EQU * 0 P
0x3f63dc…3f6570 Dummy {f00=0x013b, f01=0x0190, f02=»TERR EQU * REQUEST ERROR 0 P LDKL A7,REQER2 1 P RB DMTE40 RETURN 1 8 P* 1 R P DATA 0,0,0 1 PSTACK DATA 0 4 WORDS 1 p P* 1 P XIF 1 P IFT EDM=1 1 P LDR A6,A5 SAVE TTAB USER =1 1 2 P LDR A1,A5 GET BASE PARAMETER BLOCK ADDRESS =1 1
0x3f6570…3f6704 Dummy {f00=0x013b, f01=0x0190, f02=»DER WORD 1 & P ABL(NZ) LKMRQE OTHER REQUEST BUSY 2 , P LDKL A2,/100 COMMIT ROLLBACK ACTIVATION 2 : P STR A2,A1 2 j P ST A7,PABORD,A1 ORDER WORD 2 | 6 P ST A8,PABBA,A1 TRANSACTION CONTROL BLOCK ADDRESS 2 P LDKL A7,'$E' EDM TASK ID 2 " P ABL TIOECR
0x3f6704…3f6898 Dummy {f00=0x013b, f01=0x0190, f02=»QTJOB 2 P ABL TDISP 3 P XIF 3 P EJECT 3 , P 3 : P P*************************************************************************** 3 B P P* C O M M O N S U B R O U T I N E S F O R A D M A N D S D M * 3 P P******************************
0x3f6898…3f6a2c Dummy {f00=0x013b, f01=0x0190, f02=»* SUBROUTINES NOT IN SYSTEM * 3 $ P******************************** 4 ( P* 4 P P IFT ADM+SDM=0 4 Z PDMACTD EQU * 4 p PFNDFDB EQU * 4 PMOV:US EQU * 4 PMOV:SU EQU * 4 PFINDTT EQU * 4 PRTNA14 EQU * 4 PSETCRO EQU * 4 P XIF 4 P
0x3f6a2c…3f6bc0 Dummy {f00=0x013b, f01=0x0190, f02=»TOTSIZ EQU * 4 P XIF 5 P RB TASHLT SYSGEN ERROR 5 P* 5 @ P* 5 J P* 5 T P EJECT TIODM 5 ^ P IFF ADM+SDM=0 5 t P 5 8 P****DESCRIPTION************************************* 5 P* 5 : P* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FIL
0x3f6bc0…3f6d54 (1, 1129) Dummy {f00=0x013b, f01=0x0190, f02=»DE TO SEARCH FOR 5 4 P* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED 6 P* 6 P 8 P****EXIT PARAMETERS********************************* 6 Z P* 6 P* A1 = UNCHANGED 6 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND 6 6 P* A4 = TTAB/SCTCDT ENT
0x3f6d54…3f6ee8 Dummy {f00=0x013b, f01=0x0190, f02=»************** 6 j P* 7 P* A1-A5 7 P* 7 2 : P****************************************************** 7 < P EJECT 7 z P 7 P********** 7 P* FNDFDB * 7 P********** 7 P 7 PFNDFDB EQU * 7 & P LD A3,TTB:TD,A1 LENGTH DEV DESCR 7
0x3f6ee8…3f707c Dummy {f00=0x013b, f01=0x018e, f02=»A3 7 P CC A2,1,A4 8 P RB(NE) FND030 8 P LDK A5,1 8 4 " P RF FND080 CODE FOUND IN TTAB 8 F P EJECT 8 l P* 8 z " P* SEARCH FILE CODE IN SCTCDT 8 P* 8 PFND040 EQU * 8 P LDR A5,A5 8 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED 8 P L
0x3f707c…3f7210 Dummy {f00=0x013b, f01=0x0190, f02=» 8 P CC A2,1,A3 9 P RB(NE) FND050 9 P AD A4,SCTCDT 9 2 P RF FND080 CODE FOUND 9 H PFND060 EQU * 9 f P LDK A2,0 NO CODE 9 z PFND080 EQU * 9 P RTN A14 9 P EJECT 9 P* 9 $ P* MOVE BLOCK AND MOVE CONSTANTS 9 P* 9 & PMOVTIS
0x3f7210…3f73a4 Dummy {f00=0x013b, f01=0x0190, f02=»QU 6 BUFFER ADDRESS RECEIVING TASK 9 ( PMOVLEN EQU 8 NUMBER OF BYTES TO MOVE : * P* : V PMOVSAV EQU 10 SAVE AREA : ` P : P : PMOVBLK EQU * : P DATA 0,0 : P DATA 0,0 : P DATA 0 : P* : P DATA 0 : P EJECT : P : P
0x3f73a4…3f7538 Dummy {f00=0x013b, f01=0x0190, f02=»HE USER AREA (SENDING BUFFER) TO : p L P* THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA ; ( J P* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. ; x P* ; 8 P* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA) ;
0x3f7538…3f76cc Dummy {f00=0x013b, f01=0x0190, f02=»R TTAB ADDRESS ; ~ P* < P* OUTPUT: A4=DESTROYED < P* < > PMOV:US EQU * < H P LD A4,TTB:ID,A4 TASK ID < P ST A4,MOVTIS+MOVBLK < | & P LDKL A4,'#M' DESTINATION TASK ID < P ST A4,MOVTIR+MOVBLK < P RF MOVCOM < P EJECT TIODM < P <
0x3f76cc…3f7860 Dummy {f00=0x013b, f01=0x0190, f02=»FROM THE SYSTEM AREA (SENDING BUFFER) TO < v J P* THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA = 0 J P* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. = ~ P* = : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM A
0x3f7860…3f79f4 (1, 1130) Dummy {f00=0x013b, f01=0x0190, f02=» = USER TTAB ADDRESS = P* > P* OUTPUT: A4=DESTROYED > & P* > D PMOV:SU EQU * > N . P LD A4,TTB:ID,A4 TASK ID DESTINATION TASK > b P ST A4,MOVTIR+MOVBLK > & P LDKL A4,'#M' TASK ID SOURCE TASK > P ST A4,MOVTIS+MOVBLK > P EJECT > PMOVC
0x3f79f4…3f7b88 Dummy {f00=0x013b, f01=0x018e, f02=»TION ADDRESS > x $ P ST A3,MOVLEN,A7 LENGTH TO MOVE ? P LKM ? < P DATA 21 ? H $ P LD A7,MOVSAV,A7 SAVED REGISTER ? X P RTN A14 ? P EJECT ? P ? P********** ? P* FINDTT * ? P********** ? P ? P* ? P* FIND TTAB ADDRESS ?
0x3f7b88…3f7d1c Dummy {f00=0x013b, f01=0x0190, f02=» P* A7=-1 @ P* @ PFINDTT EQU * @ & P LDR A7,A7 @ : & P RF(N) NFOUND ILLEGAL TASK NUMBER @ L $ P LDKL A5,TTABD ADDRESS TO TASK 0 @ v PFIND10 EQU * @ P SUK A7,1 @ P RF(N) FINEND TASK FOUND @ , P ADKL A5,TTABLN POINTER TO NEXT TTAB
0x3f7d1c…3f7eb0 Dummy {f00=0x013b, f01=0x0190, f02=»ND EQU * @ P ADKL A15,4 A P LDR A5,A5 SET CR A $ P ABR* A15 A > P XIF A P P EJECT TIODM A P* A r P IFF SDM+ADMCDE=0 A | P* A P********** A P* ENLFAC * A P********** A P* A 2 P* GET ENLARGE FACTOR AND CONVERT TO SE
0x3f7eb0…3f8044 Dummy {f00=0x013b, f01=0x0190, f02=» 0 P* A4=NUMBER OF SECTORS PER BLOCK B 2 P* A3= ENLARGE IN NUMBER OF SECTORS B 8 & P* A2,A5,A6,A7 ARE USED B n P* B PENLFAC EQU * B P ST A13,-8,A14 SAVE A13 B , P CF A14,TOTSIZ GET TOTAL LENGTH OF FILE B P R
0x3f8044…3f81d8 Dummy {f00=0x013b, f01=0x018e, f02=»7,A1 B P RF(Z) ENLF30 C P CF A14,MPYMOD C " P ADK A1,0 C 8 P RF(NZ) SETCRO OVERFLOW C J P LD A6,FPB:EL,A12 ENLARGE C j P LDR A5,A2 C P* C P EJECT TIODM C P* C P* C PENLF30 EQU * C P LDK A2,0 C P LDR A7,A3 C
0x3f81d8…3f836c Dummy {f00=0x013b, f01=0x018e, f02=» $ P CF A14,DIVMOD NUMBER OF SECTORS D P RF(O) SETCRO OVERFLOW D , P ADK A1,0 D J P RF(Z) ENLF45 NO REST D , P ADK A2,1 AT LEAST ONE BLOCK IN ENLARGE D z PENLF45 EQU * D P LDK A1,0 RESET REST D , P LDR A3,A2 ENLARGE IN NUMBER OF SECTORS D ,
0x3f836c…3f8500 Dummy {f00=0x013b, f01=0x0190, f02=» 4 P SUR A3,A1 MAKE ENLARGE INTEGER NUMBER OF BLOCKS E PENLF50 EQU * E < P ADR A3,A4 ONE MORE BLOCK E P P RF(NP) SETCRO OVERFLOW E r PENLF60 EQU * E P LDR A2,A3 E P LDK A1,0 E P CF A14,DV3RST E $ P RB(NZ) ENLF50 NOT MULTIPLE OF 3 E " P
0x3f8500…3f8694 (1, 1131) Dummy {f00=0x013c, f01=0x0190, f02=»******** E P* F < P* CONVERT ENLARGE FROM NUMBER OF SECTORS TO PERCENTAGE F P* F Z P* F d PCONENL EQU * F n * P CF A14,TOTSIZ GET TOTAL SIZE OF FILE F P LDR A3,A1 SAVE TOTAL SIZE F P LDR A4,A2 F ( P LD A6,FDBENL,A11 ENLARGE IN SECTORS
0x3f8694…3f8828 Dummy {f00=0x013c, f01=0x0190, f02=»CON400 NO NEED TO NORMALIZE F PCON200 EQU * G $ 0 P SRL A4,1 DOUBLE SHIFT DIVISOR AND DIVIDENT G 8 P SRL A2,1 G l P SRC A1,1 G ~ P RF(NN) CON300 BIT NOT SET G P ANKL A1,/7FFF G P ORKL A2,/4000 SET BIT G PCON300 EQU * G P SUK A5,1 G
0x3f8828…3f89bc Dummy {f00=0x013c, f01=0x0190, f02=» IN PERCENT G z " P ST A2,FPB:EL,A12 SAVE ENLARGE H P RTN A14 H : P EJECT TIODM H J P* H ` P* H j P********** H t P* TOTSIZ * H P********** H P* H $ P* CALCULATE TOTAL SIZE OF FILE H P* H $ P* INPUT : A12 = FPB ADDRESS H
0x3f89bc…3f8b50 Dummy {f00=0x013c, f01=0x018e, f02=»* A5 = 0 H " P* A6,A7 ARE USED I P* I B PTOTSIZ EQU * I L P LDR A13,A12 I ` $ P ADKL A13,FPB:S1 ADDRESS TO SIZE I t P LDK A5,4 COUNTER I P LDK A1,0 I P LDK A2,0 I PTOTS10 EQU * I P LDR* A6,A13 GET SIZE I
0x3f8b50…3f8ce4 Dummy {f00=0x013c, f01=0x0190, f02=» I P RB(P) TOTS10 ADD NEXT J P XIF J & P EJECT J 2 P IFF ADM+SDM=0 J @ P J V P********** J ^ P* RTNA14 * J p P********** J P J P* J P* SET CONDITION AND RETURN J P* J PRTNA14 EQU * J P ADKL A14,4 J P NGR A1,A1 J
0x3f8ce4…3f8e78 Dummy {f00=0x013c, f01=0x0190, f02=»ERFLOW AND RETURN J P* K PSETCRO EQU * K $ P LDKL A1,/8000 K 8 P RB RTNA14 K N P XIF K ` P EJECT K l P IFT SDM=1 K z P K P********** K P* COSZEN * K P********** K P K P* K D P* COSZEN=CONVERT SIZE TO NBR OF RECORS AND E
0x3f8e78…3f900c Dummy {f00=0x013c, f01=0x0190, f02=»E UPADTED IN FPB K x * P* A1,A2,A3,A4,A5,A6,A7,A13=USED L P* L F PCOSZEN EQU * L P * P CF A14,CONENL CONVERT ENLARGE FACTOR L d P* L P* CONVERT SIZE L P* L P LDK A5,4 NUMBER OF VOLUMES L P LDR A13,A12 FPB ADDRESS L & P ADKL A1
0x3f900c…3f91a0 Dummy {f00=0x013c, f01=0x018e, f02=»,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK) L P ANK A6,/FF M . , P CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 M B P RB(O) SETCRO OVERFLOW M r P LDR A6,A2 M 2 P LC A7,FDBBLF,A11 BLOCK FACTOR (RECORDS/BLOCK) M P ANK A7,/FF M P CF A14,MPYMOD A6*A7=A1,A2 M
0x3f91a0…3f9334 (1, 1132) Dummy {f00=0x013c, f01=0x4052, f02=» M v P RTN A14 N P XIF N P* N $ P* N . P* N 8 P END N B@ N N
0x3f9334…3f94c8 Dummy {f00=0x013c, f01=0x2008, f02=» O
0x3f94c8…3f965c Dummy {f00=0x013c, f01=0x0190, f02=» O | P* P PFDON20 LDR A6,A1 P P CM DWTTP,A6 P * P LDKL A5,DWTSB2 P > P ADR A5,A6 GET STACK BASE P V P* P x 6 PFDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE P P IFT MMUPAG=1 P P IFT CHAN=0 P $ P CM BUFFLG,A6 RESET BUFFER FLAG P
0x3f965c…3f97f0 Dummy {f00=0x013c, f01=0x0190, f02=»* P P EJECT DRFD01 Q P* Q P* Q * P* READ VOLUME NAME Q 4 P* Q P PFDONLD EQU * Q Z $ P SC A3,DWTOR,A6 GET VOLUME NAME Q n & P LC A4,DIXTAB,A3 DRIVE INDEX MASK Q P SC A4,DWTA3+1,A6 SAVE IT Q P CF A5,SETCIO Q P LDK A2,/14 Q
0x3f97f0…3f9984 Dummy {f00=0x013c, f01=0x0190, f02=»NAME Q t & P RF FDON21 CONTINUE WITH NEXT DISC R P* R 6 PFDON19 EQU * R @ P CF A5,VO:NAM R T & P LDKL A2,/FBFF RESET IBM IND. BIT R j , P ANRS A2,A6 UPDATE TEMPORARY RETURN CODE R PFDON21 EQU * R P LDK A2,/C R P CF A5,FD:REA UNLOCK R P L
0x3f9984…3f9b18 Dummy {f00=0x013c, f01=0x0190, f02=» CM DWTST2,A6 INDICATE VOLUMES READ R P XIF S , , P IM DWTST,A6 INDICATE VOLUME NAMES READ S 8 P* S h P IFT OPCLOS=1 S r P* S P EJECT S P* S : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING S P* S " P LD A4,DWTTP2,A6 TIMER
0x3f9b18…3f9cac Dummy {f00=0x013c, f01=0x018e, f02=»* S 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE T P* T D 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS T N & P LDKL A2,/8000 OPEN/CLOSE BIT MASK T $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG T P ORS A2,DWTOCF,A6 SAVE T ( P XRRS A2,A4 SET STAT
0x3f9cac…3f9e40 Dummy {f00=0x013c, f01=0x0190, f02=» P EJECT U P* U P* LOCK DOORS U P* U 2 P LDK A2,1 U < PFDON25 EQU * U N " P LD A1,DWTLC,A6 LOCK INDICATOR U b P ANR A1,A2 U P RF(Z) FDON30 NOT LOCKED U P ST A2,DWTA3,A6 SAVE U P* U P EJECT U P* U P* PUT DRIVE NO
0x3f9e40…3f9fd4 (1, 1133) Opaque[0x194]
0x3f9fd4…3fa168 # DirEnt {nam=»TIOEDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2790, f03=0x0000}
0x3f9fd4…3fa168 IdxSect {
0x3f9fd4…3fa168 f00 = 0x013c // 0x3f9fd4 @0x0
0x3f9fd4…3fa168 f01 = 0x000a // 0x3f9fd6 @0x2
0x3f9fd4…3fa168 gno = [ // 0x3f9fd8 @0x4
0x3f9fd4…3fa168 [0x00]: C0x013c.0x2.0
0x3f9fd4…3fa168 [0x01]: C0x013c.0x3.0
0x3f9fd4…3fa168 [0x02]: C0x013d.0x0.0
0x3f9fd4…3fa168 [0x03]: C0x013d.0x1.0
0x3f9fd4…3fa168 [0x04]: C0x013d.0x2.0
0x3f9fd4…3fa168 ]
0x3f9fd4…3fa168 }
0x3fa168…3fa2fc Dummy {f00=0x013c, f01=0x018e, f02=» 2 P IDENT TIOEDM REL 11.0 81-03-31 870105041100 P : P =3 CLEAR STATUS FOR ADM B P =3 81-02-19 d 4 P =2, COMMIT,$E PENDING AND EXIT R.C DESTROYED z P =2, REL 11.0 81-01-30 P =1 RECOVERY AT ERR P =1 81-01-26 P*
0x3fa2fc…3fa490 Dummy {f00=0x013c, f01=0x0190, f02=» . P* TIOEDM = EXTENDED DATA MANAGEMENT I/O 0 P* TENEDM = TOSS EDM END I/O LKM PROCESSOR 6 P* j P* t P* ~ P* P* 8 P**************************************************** P* P* , P* CREATION OF PARAMETER BL
0x3fa490…3fa624 Dummy {f00=0x013c, f01=0x018e, f02=» P*********** P* P* " " P ENTRY TIOEDM I/O NORMAL ENTRY , ( P ENTRY TIOECR COMMIT/ROLLBACK ENTRY R P ENTRY TENEDM END IO EDM ~ P ENTRY PABORD P ENTRY PABFC P ENTRY PABBA P ENTRY PABRL P ENTRY PABCW1 P E
0x3fa624…3fa7b8 Dummy {f00=0x013c, f01=0x0190, f02=» P* ( P EXTRN DMTIDP PRIMARY EDM TASK TABLE * P EXTRN DMTIDS SECONDARY EDM TASK TABLE : P EXTRN DWDM01 h P EXTRN DWTTAB TTAB ADDRESS ~ P EXTRN DWTECB ECB ADDRESS P EXTRN FWTFNR FILE NUMBER . P EXTRN FWTVOL VOLUME FILE CODE 1ST E
0x3fa7b8…3fa94c Dummy {f00=0x013c, f01=0x0190, f02=» EXTRN SCTCDT CD TABELL P EXTRN MOVUU P EXTRN LKMRQE 4 $ P EXTRN DISIOE TERM OF IO REQUEST J $ P EXTRN LKMQDI QUEUE AND DISPATCH r P EXTRN QTJOB QUEUE TASK P EXTRN DISEND " P EXTRN TTB:SA DISPATCH ADDRESS " P EXTRN TTB:ID TASK
0x3fa94c…3faae0 Dummy {f00=0x013c, f01=0x018e, f02=»XTRN TASHLT HALT AND LIGHT SOP SWITCHES P* 0 P EJECT TIOEDM : P* P P* Z P EXTRN ECBRC RETURN CODE d P EXTRN ECBEL EFFECTIV LENGTH $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH $ P EXTRN ECBCW1
0x3faae0…3fac74 (1, 1134) Dummy {f00=0x013c, f01=0x0190, f02=» P* P EJECT TIOEDM P* & P* 0 . P***************************************** : P* l P* CONDITIONAL ASSEMBLY v P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING
0x3fac74…3fae08 Dummy {f00=0x013c, f01=0x018e, f02=»ED INSTRUCTION l . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* H PCPU852 EQU 1 R P* f P EJECT TIOEDM p P* P* P************* P* CONSTANTS * P************* P* P* P* * P* BASE PARAME
0x3fae08…3faf9c Dummy {f00=0x013c, f01=0x0190, f02=» PPABRL EQU 8 REQUESTED LENGTH PPABCW1 EQU 10 CONTROL WORD 1 ( PPABCW2 EQU 12 CONTROL WORD 2 L P p P* x P EJECT TIOEDM P* P********** P* TIOEDM * P********** P* ( P* THIS MODULE IS ENTERED FROM TIO
0x3faf9c…3fb130 Dummy {f00=0x013c, f01=0x0190, f02=» 0 P* OUTPUT: A1 = ADDRESS OF PARAMETER BLOCK 4 P* A2 = EDM TASK IDENTITY (VIA ACTOT) < ( P* A4 = USER TASK IDENTITY t P* , P* CREATE PARAMETER BLOCK FOR NORMAL I/O P* PTIOEDM EQU * P LD A5,DWTTAB,A6
0x3fb130…3fb2c4 Dummy {f00=0x013c, f01=0x0190, f02=»R A2,PABORD,A5 ORDER WORD $ P RF(NZ) REQER2 OTHER REQ BUSY =1 " P CWK A6,DWDM01 LOCAL DWT J P RF(E) TIOE05 OPEN j P LD A2,FWTFNR,A6 FILE NUMBER PTIOE05 EQU * P ANK A2,/FF P STR A2,A5 $ P LD A7,DWTTAB,A6 USER TTAB ADDR "
0x3fb2c4…3fb458 Dummy {f00=0x013c, f01=0x0190, f02=» P LDR* A2,A8 1ST ECB P ST A2,PABFC,A5 FILE CODE P LD A2,ECBBA,A8 B " P ST A2,PABBA,A5 BUFFER ADDRESS Z P LD A2,ECBRL,A8 $ P ST A2,PABRL,A5 REQUESTED LENGTH P LD A2,ECBCW1,A8 $ P ST A2,PABCW1,A5 CONTROL WORD 1 P LD A2,E
0x3fb458…3fb5ec Dummy {f00=0x013c, f01=0x018e, f02=»C,A5 P ML 2,ECBCW1,A8 P MS 2,PABCW1,A5 $ P XIF < P* H P EJECT TIOEDM R P* h , P* ACTIVATE PRIMARY OR SECONDARY EDM TASK r P* & P LDR A1,A5 PARAMETER BLOCK ADDRESS P INH P LDR A5,A7 ORDER P LDKL A7,'$D'
0x3fb5ec…3fb780 Dummy {f00=0x013c, f01=0x0190, f02=» | P SUK A5,/22-/21 P RF(Z) TIOE40 CLOSE . P LDKL A3,DFTABL LENGTH OF FILE CODE TABLE < & P LC A2,FWTVOL,A6 VOLUME FILE CODE n PTIOE20 EQU * P SUK A3,1 ( P RF(N) ERRHLT FILE CODE NOT IN TABLE P CC A2,DFTAB,A3 & P RB(NE
0x3fb780…3fb914 (1, 1135) Dummy {f00=0x013d, f01=0x0190, f02=»ESS 1ST EDM TASK | P RF(Z) ERRHLT TTAB NOT FOUND ( P LD A4,TTB:SA,A2 DISPATCHER ADDRESS < " P RF(Z) TIOE70 TASK NOT ACTIVE h P LC A7,DMTIDS,A3 SECONDARY P ADK A7,'D' P RF TIOE50 P EJECT TIOEDM P* P* PTIOE40 E
0x3fb914…3fbaa8 Dummy {f00=0x013d, f01=0x0190, f02=» A4,3 " P XRR* A4,A3 COMPARE IDENTITIES P ANKL A4,/FF00 4 P RF(NZ) REQER1 WRONG TASK J . P SCR A4,A3 CLEAR ID/STATUS BYTE FOR ADM =3 l P LDKL A4,DWDM01 DWT ADDRESS P ST A4,2,A3 IN TABLE P* P EJECT TIOEDM P* P
0x3fbaa8…3fbc3c Dummy {f00=0x013d, f01=0x0190, f02=»VATE EDM TASK P* P* PTIOECR EQU * * PTIOE50 EQU * > P CF A15,FNDTID R ( P LDR A5,A2 TTAB ADDRESS 2ND EDM TASK h P RF(NZ) TIOE70 TTAB FOUND P* P EJECT TIOEDM P* P* PERRHLT EQU * P ABL TASHL
0x3fbc3c…3fbdd0 Dummy {f00=0x013d, f01=0x0190, f02=»QER1 EQU * P CMR A1 FREE PARAM BLOCK =1 & P CM PABORD,A1 FREE PARAM BLOCK =1 6 PREQER2 EQU * =1 ` P ABL DISIOE x REQERR EQU * ABL LKMRQE P* P EJECT P* PTIOE70 EQU * : P LD A4,SCTMOX START ADDRESS OF
0x3fbdd0…3fbf64 Dummy {f00=0x013d, f01=0x0190, f02=»DK A4,4 NEXT ENTRY P CWR A4,A2 & P RB(E) ERRHLT TASK ID NOT IN TABLE , P CWR* A7,A4 V $ P RB(NE) TIOE80 NOT SAME TASK ID j $ P LD A2,2,A4 GET DISPATCH ADDRESS P LDR* A4,A1 ORDER CODE P SUKL A4,/100 COMMIT P RF(Z) TIOE90 COMMMI
0x3fbf64…3fc0f8 Dummy {f00=0x013d, f01=0x0190, f02=»D,A4 CALLING TASK TASK ID & P ABL ACTDIS ACTIVATE AND DISPATCH " P* L P EJECT TIOEDM V P* n P* x P********** P* TENEDM * P********** P* * . P* THIS IS THE EDM END I/O LKM PROCESSOR. P* * P
0x3fc0f8…3fc28c Dummy {f00=0x013d, f01=0x0190, f02=»A7 = FUNCTION PARAMETER 2 P* BIT15=1 MEANS IMPLICIT EXIT PERFORMED @ P* BIT14=1 MEANS IMPLICIT MOVE OF BUFFER FROM EDM-TASK V N P* BIT13=1 MEANS ANNULING OF REQUEST WITHOUT ACTIVATION OF USER TASK 6 P* BIT12=1 MEANS END I
0x3fc28c…3fc420 Dummy {f00=0x013d, f01=0x0190, f02=»ID d * PTENEDM EQU * P SRC A7,5 BIT 11 TO SIGN BIT ( & P RF(NN) EIO090 NOT COMMIT,ROLLBACK L * P LD A6,TTB:SA+4,A5 GET RETURN CODE =2 v P EJECT P* & P* TERMINATION OF COMMIT/ROLLBACK P* P SLC A7,4 BIT 15 TO SIGN
0x3fc420…3fc5b4 (1, 1136) Dummy {f00=0x013d, f01=0x018e, f02=» LDR A7,A8 TASK ID " P CF A15,FNDTID GET TTAB IN A2 P LDR A5,A2 TTAB @ P RB(Z) ERRHLT NO TASK ID X P ADK A6,0 TEST IF R.C. OK =2 x P RF(Z) EIO085 NO ERROR P ST A6,TTB:SA+14,A5 ERR CODE PEIO085 EQU * P LDR A6,A5 USER TTAB
0x3fc5b4…3fc748 Dummy {f00=0x013d, f01=0x018e, f02=» p P EJECT P* " P* TERMINATION OF I/O REQUEST P* F & PEIO090 SLC A7,1 BIT 12 TO SIGN BIT P $ LD A1,TTB:SA+10,A5 FILE NUMBER z 0 P RB(N) REQERR FILE NUMBER < 0, REQUEST ERROR * P RF(Z) EIO103 OPEN,DO EXIT,FILE NBR=0 " P CW
0x3fc748…3fc8dc Dummy {f00=0x013d, f01=0x0190, f02=» EIO100 EQU * LDR* A6,A6 GET NEXT FWT SUK A1,1 < RB(P) EIO100 NEXT FILE N 2 P ANKL A6,/FFFE MAKE ADDRESS EVEN JUST IN CASE n P* P EJECT TIOEDM * 0 P* FILE FOUND, GET TTAB AND ECB OF USER TASK *
0x3fc8dc…3fca70 Dummy {f00=0x013d, f01=0x0190, f02=» , P CF A15,FND:FC FILE CODE ENTRY IN TABLES P ADK A3,0 4 & P RB(Z) REQERR FILE CODE NOT FOUND F P ST A6,2,A3 SAVE FWT ADDRESS p " P LDKL A6,DWDM01 LOCAL DWT FWT & P LD A6,DWTTAB,A6 USER TTAB AADDDR P SRC A6,5 * P SCR A6,A3 MARK FI
0x3fca70…3fcc04 Dummy {f00=0x013d, f01=0x0190, f02=»ECB v $ P LD A4,DWTTAB,A6 TTAB USER TASK P LDR A2,A4 USER TTAB 4 P AD A2,TTB:TD,A4 P ( P CM TTB:TD,A2 MARK PARAM BLOCK FREE h P CM TTB:TD+2,A2 DITTO P SLC A7,1 BIT 13 TO SIGN BIT ( P RF(NN) EIO110 NO CANCEL OF REQUEST *
0x3fcc04…3fcd98 Dummy {f00=0x013d, f01=0x0190, f02=»DS A2,TTB:SA,A4 P SLC A7,1 P RF EIO120 TEST IF EXIT * P* J EIO110 EQU * T P SLC A7,1 BIT 14 TO SIGN BIT h P RF(NN) EIO120 NO MOVE * ( #* MOVE FROM EDM TASK TO USER BUFFER * . P LD A2,ECBBA,A8 DESTINATION BU
0x3fcd98…3fcf2c Dummy {f00=0x013d, f01=0x018e, f02=»ADDR p P EJECT TIOEDM P* $ P* . EIO120 EQU * 8 P IFT CPU852=1 L P LD A1,TTB:SA+2,A5 FILL ECB b P ST A1,ECBEL,A8 P LD A2,TTB:SA+4,A5 P ST A2,ECBRC,A8 P LD A3,TTB:SA+6,A5 P ST A3,ECBCW1,A8 P LD A4
0x3fcf2c…3fd0c0 Dummy {f00=0x013d, f01=0x0190, f02=» , P MS 4,ECBEL,A8 EFF.LEN,RTN CODE,CW1,CW2 P XIF 4 P* @ P SLC A7,1 BIT 15 TO SIGN BIT J P RF(NN) EIO130 NO EXIT n * * EXIT * ( P CF A15,EXIT A5 = TTAB CALLING TASK P* P* END I/O P* PEIO130 E
0x3fd0c0…3fd254 (1, 1137) Dummy {f00=0x013d, f01=0x0190, f02=»****** P* FND:FC * P********** P* 2 P* < . P* FIND ENTRY CORRESPONDING TO FILE CODE F P* FROM CDTAB OR TTAB x P* P* " P* INPUT : A4 = DWT ADDRESS P* & P* OUTPUT: A3 = ADDRESS TO ENTRY $ P*
0x3fd254…3fd3e8 Dummy {f00=0x013d, f01=0x0190, f02=» P* PFND:FC EQU * P LD A8,DWTECB,A4 ECB ADDRESS " P LDR* A2,A8 FILE CODE F P ANK A2,/FF d " P LD A4,DWTTAB,A4 TTAB ADDRESS x , P ADKL A4,TTB:TD ADDRESS TO DEVICE TABLE & P LDR* A3,A4 LENGTH OF DEVICE TABLE $ P ADR A3,A4 END O
0x3fd3e8…3fd57c Dummy {f00=0x013d, f01=0x0190, f02=» SUK A3,4 P CC A2,1,A3 FILE CODES P RF(E) FND:50 ENTRY FOUND 0 P RB FND:10 NEXT ENTRY R P* p P EJECT TIOEDM z P* P* PFND:20 EQU * & P LD A4,SCTCDT COMMON DEVICE TABLE P LDR* A3,A4 LENGTH $ P ADR A3,A4 E
0x3fd57c…3fd710 Dummy {f00=0x013d, f01=0x40fe, f02=» P SUK A3,4 ! P CC A2,1,A3 FILE CODES ! " P RF(E) FND:50 FILE CODE FOUND ! 4 P RB FND:40 NEXT ENTRY ! Z PFND:45 EQU * ! x & P LDK A3,0 INDICATE ENTRY NOT FOUND ! PFND:50 EQU * ! P RTN A15 ! P* ! P* ! P END ! @ ! DR A3,A4 E
0x3fd710…3fd8a4 Dummy {f00=0x013d, f01=0x2008, f02=» "
0x3fd8a4…3fda38 Dummy {f00=0x013d, f01=0x0190, f02=»YLINDER NUMBER J t P RTN A5 K P* K & P EJECT DRFD02 K 0 P* K F P* K P P********** K Z P* SETPAR * K l P********** K ~ P* K ( P* SET DEVICE DEPENDENT PARAMETERS K P* K PSETPAR EQU * K * P LD A2,DWTCYN,A6 PRESENT HEAD POSITI
0x3fda38…3fdbcc Dummy {f00=0x013d, f01=0x0190, f02=»ENT PARAMETERS K n P RTN A5 L P* L & P EJECT DRFD02 L 0 P* L F P********** L P P* VO:NAM * L b P********** L t P* L P* L PVO:NAM EQU * L 6 P LDK A3,IN:LCK RESET ALL BUT LOCK/UNLOCK INDICATOR L P ANS A3,DWTFOR,A6 L P LDK A
0x3fdbcc…3fdd60 Dummy {f00=0x013d, f01=0x0190, f02=»VOL L P RF(NZ) VOL900 ERROR M P IFT CPU852+IBM=2 M ( P LD A2,FD:BUF+32 M B P CWK A2,'TO' M Z P RF(NE) VOL200 NO TOSS DISC M n P LD A2,FD:BUF+34 M P CWK A2,'SS' M P RF(NE) VOL200 M P XIF M P IFT TOSS+IBM=2 M P IFT CPU852=0 M
0x3fdd60…3fdef4 (1, 1138) Opaque[0x194]
0x3fdef4…3fe088 # DirEnt {nam=»TIOFM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27b8, f03=0x0000}
0x3fdef4…3fe088 IdxSect {
0x3fdef4…3fe088 f00 = 0x013d // 0x3fdef4 @0x0
0x3fdef4…3fe088 f01 = 0x000c // 0x3fdef6 @0x2
0x3fdef4…3fe088 gno = [ // 0x3fdef8 @0x4
0x3fdef4…3fe088 [0x00]: C0x013d.0x3.0
0x3fdef4…3fe088 [0x01]: C0x013e.0x0.0
0x3fdef4…3fe088 [0x02]: C0x013e.0x1.0
0x3fdef4…3fe088 [0x03]: C0x013e.0x2.0
0x3fdef4…3fe088 [0x04]: C0x013e.0x3.0
0x3fdef4…3fe088 [0x05]: C0x013f.0x0.0
0x3fdef4…3fe088 ]
0x3fdef4…3fe088 }
0x3fe088…3fe21c Dummy {f00=0x013d, f01=0x0190, f02=» 0 P IDENT TIOFM REL 11.0 81-05-13 870105041100 P 8 P* @ P* J 6 P************************************************** T P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* TIOFM = TOSS FILE MANAGEMENT LKM PROCESS
0x3fe21c…3fe3b0 Dummy {f00=0x013d, f01=0x0190, f02=»TOSS FILE MANAGEMENT LKM PROCESSOR HANDLES 4 P* PREPARATIONS FOR DISC I/O, AND ACTIVATION OF 2 2 P* THE FILE MANAGEMENT TASK (FMTASK) FOR FILE j " P* ADMINISTRATION FUNCTIONS. P* P* P EJECT TIOFM P* P* P****
0x3fe3b0…3fe544 Dummy {f00=0x013d, f01=0x018e, f02=»RY DET:FM FILE MANAGEMENT DETACH : P ENTRY FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS ( " P ENTRY FCHEC2 FCHECK 2ND ENTRY f P EJECT TIOFM P* P* P************* P* EXTERNALS * P************* P* P*
0x3fe544…3fe6d8 Dummy {f00=0x013d, f01=0x0190, f02=» 4 P EXTRN QUEFIL QUEUE FILE REQUEST IN DEVICE QUEUE " P EXTRN TIO:FM FM ENTRY IN TIO < , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH b " P EXTRN FNDDWD FIND DWT ADDRESS , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING $ P EXTRN GETBLK GET MONITOR BLOCK
0x3fe6d8…3fe86c Dummy {f00=0x013d, f01=0x0190, f02=» r 0 P EXTRN FWTVTC VTOC SECTOR NO (FIRST EXTENT) ( P EXTRN FWTPAR FILE ACCESS PARAMETERS < , P EXTRN FWTTAB TTAB FOR TASK WITH ATTACH h 2 P EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT 4 P EXTRN FWTQUE QUEUE ANCHOR FOR FILE I/O REQUESTS P E
0x3fe86c…3fea00 Dummy {f00=0x013d, f01=0x0190, f02=»GTH r $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 4 P EXTRN DWTST DWT STATUS WORD P EJECT TIOFM P* P* , P**************************************** P* P* CONDITIONAL ASSEMBLY P*
0x3fea00…3feb94 (1, 1139) Dummy {f00=0x013e, f01=0x0190, f02=» MMUPAG EQU 1. x P* PMMUPAG EQU 0 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 1 P* P* & P* THE ATTACH/DETACH FILE FUNCTION
0x3feb94…3fed28 Dummy {f00=0x013e, f01=0x0190, f02=»IPLE EXTENT I/O FUNCTION * P* IS OBTAINED BY SETTING MULEXT EQU 1. P* N PMULEXT EQU 1 X PX:B EQU MULEXT l P* P EJECT TIOFM P* P* P********* P* TIOFM * P********* P* P* 8 P* THIS
0x3fed28…3feebc Dummy {f00=0x013e, f01=0x018e, f02=»ETERS: t P* P* A4 = 0 P* A5 = TTAB ADDRESS * P* A7 = ORDER CODE H P* A8 = ECB ADDRESS d P* . P* WHEN FILE ADMINISTRATION IS REQUESTED, ( P* TIOFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION
0x3feebc…3ff050 Dummy {f00=0x013e, f01=0x0190, f02=» P* P* P EJECT TIOFM P* . P* 8 4 PTIOFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY B P* z P* CHECK ORDER CODE P* P LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT P SUK A
0x3ff050…3ff1e4 Dummy {f00=0x013e, f01=0x018e, f02=» RF(Z) FM:IO BASIC WRITE P SUK A2,/11-/05 P RF(Z) FM:IO PHYSICAL READ 8 P SUK A2,/15-/11 Z P RF(Z) FM:IO PHYSICAL WRITE r P SUK A2,/21-/15 $ P RF(Z) FMACT2 OPEN/CREATE/EXTEND P SUK A2,/22-/21 P RF(Z) FMACT1 CLOSE/DELETE
0x3ff1e4…3ff378 Dummy {f00=0x013e, f01=0x0190, f02=» . P RF(NZ) FM:RQE REQUEST ERROR IF NOT DETACH P* 6 P EJECT TIOFM @ P* V P IFT ATTDET=1 ` P* v P********** P* DETACH * P********** P* P* DETACH FILE P* PDETACH EQU * 8 P CF A15,FCHECK FIND
0x3ff378…3ff50c Dummy {f00=0x013e, f01=0x0190, f02=» WAS ATTACHED v ( P RF(NZ) T:DISP YES, GO TO DISPATCHER P XIF B P* N P* ERROR EXIT X P* l 4 PFM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT v P LDK A3,/80 RETURN CODE P* PFM:ER1 EQU * P ECR A3,A3 P RF T:DIS2
0x3ff50c…3ff6a0 Dummy {f00=0x013e, f01=0x0190, f02=»* P* ATTACH FILE P* PATTACH EQU * * 8 P CF A15,FCHECK FIND FWT AND CHECK ACCESS PARAMETERS > P RF(NZ) FM:030 NOT OK z $ P ST A5,FWTTAB,A6 SET ATTACH WORD P XIF P* PT:DISP EQU * P LDR A3,A4 RETURN CODE P
0x3ff6a0…3ff834 (1, 1140) Dummy {f00=0x013e, f01=0x0190, f02=» P********** P* FMACTX * P********** ( P* : P* D & P* FILE ADMINISTRATION REQUESTED. N P* x 6 P* ACTIVATE FMTASK WITH THE FOLLOWING PARAMETERS: P* 4 P* A1 = ORDER CODE AND OPTION (RFP/OPEN/CLOSE) 0 P* = P
0x3ff834…3ff9c8 Dummy {f00=0x013e, f01=0x0190, f02=»CLOSE, 6 = SPLIT I/O) ` P* ( PFMACT1 EQU * ACTIVATE CLOSE FUNCTION ( P ADK A4,2 FUNCTION INDEX T P* t ( PFMACT2 EQU * ACTIVATE OPEN FUNCTION ~ P ADK A4,2 FUNCTION INDEX P* 8 PFMACT3 EQU * ACTIVATE READ FILE PARAMETERS FUNCTION
0x3ff9c8…3ffb5c Dummy {f00=0x013e, f01=0x0190, f02=»SS r , P LDR A3,A5 TTAB ADDRESS OF CALLING TASK ( P LDKL A5,TTABFM FMTASK TTAB ADDRESS : , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH f P* P EJECT TIOFM P* P* P********** P* FM I/O * P********** P* $
0x3ffb5c…3ffcf0 Dummy {f00=0x013e, f01=0x018e, f02=»ACCESS PARAMETERS n P* P IFT ATTDET=1 $ P RF(Z) FM:050 OK : P* R PFM:030 EQU * P CWK A4,/40 p P RB(NE) T:DISP ERROR, RETURN P* " P* FILE ATTACHED, QUEUE REQUEST P* ( P ADKL A6,FWTQUE QUEUE ANCHOR ADDRESS
0x3ffcf0…3ffe84 Dummy {f00=0x013e, f01=0x0190, f02=» P RB(NZ) FM:RQE ERROR P XIF P* , P EJECT TIOFM 6 P* L " P* CHECK RELATIVE SECTOR NUMBER V P* | PFM:050 EQU * P IFT MMUPAG=0 P IFT CPU852=1 , P LD A2,ECBCW2,A8 RELATIVE SECTOR NUMBER P LD A1,ECBCW1,A8
0x3ffe84…400018 Dummy {f00=0x013e, f01=0x0190, f02=» P IFT MMUPAG=1 , P EL A2,ECBCW2,A8 RELATIVE SECTOR NUMBER P EL A1,ECBCW1,A8 J P XIF b P* n P RF(NZ) FM:060 x P ADK A2,0 , P RF(Z) FM:ER2 RELATIVE SECTOR NUMBER = 0 P* PFM:060 EQU * P LDR A3,A6 FWT ADDRESS
0x400018…4001ac Dummy {f00=0x013e, f01=0x0190, f02=»A3,FWTEW1 ADDRESS TO 1ST EWT STRUCTURE P LDKL A14,/7FFF 0 P* H P EJECT TIOFM R P* h ( P* SEARCH THE FILE EXTENT THAT HOLDS r P* THE REQUESTED SECTORS P* PFM:070 EQU * * P LC A6,EWTEXL-1,A3 FILE EXTENT LENGTH
0x4001ac…400340 Dummy {f00=0x013e, f01=0x018e, f02=» CWR A2,A7 P RF(NG) FM:100 EXTENT FOUND P* 6 PFM:080 EQU * @ P IFT CPU852=0 T . P DSR A6 SUBTRACT LENGTH FROM SECTOR NUMBER j P XIF P* P IFT CPU852=1 2 P SUR A1,A6 SUBTRACT LENGTH FROM SECTOR NUMBER P SUR A2,A7
0x400340…4004d4 (1, 1141) Dummy {f00=0x013e, f01=0x0190, f02=» PFM:090 EQU * ( P LDR* A3,A3 ADDRESS TO 2ND EWT BLOCK . P LDR* A3,A3 ADDRESS TO NEXT EWT STRUCTURE D $ P RB(NZ) FM:070 CHECK NEXT EXTENT v P* 2 PFM:ER2 EQU * FILE MANAGEMENT EXTENT ERROR EXIT P LDK A3,/A0 RETURN CODE P RB FM:ER1
0x4004d4…400668 Dummy {f00=0x013e, f01=0x0190, f02=» EWT BLOCK v P SUR A10,A10 ( P LC A10,EWTEXB-1,A4 FILE EXTENT BASE & P LD A11,EWTEXB,A4 R P* l P IFT CPU852=0 v " P DAR A10 COMPUTE SECTOR NUMBER P DSK 0,1 P XIF P* P IFT CPU852=1 & P ADR A1,A10 COMPUTE SECTOR
0x400668…4007fc Dummy {f00=0x013e, f01=0x0190, f02=»ERFLOW z " P SUK A1,1 UNDERFLOW CORRECTION P ANR A2,A14 SKIP SIGN BIT 4 P XIF V P* b P EJECT TIOFM l P* P* PFM:115 EQU * " P LDR A12,A1 SAVE SECTOR NUMBER P LDR A13,A2 P* P IFT MMUPAG=0 . P LC
0x4007fc…400990 Dummy {f00=0x013e, f01=0x0190, f02=»LENGTH (BYTES) v P SRL A3,8 SECTORS P XIF 0 P* < . P ADR A2,A3 COMPUTE LAST REQUESTED SECTOR+1 F P RF(O) FM:150 OVERFLOW x P* PFM:120 EQU * 0 P ADR A6,A10 COMPUTE LAST SECTOR+1 IN EXTENT P ADR A7,A11 P RF(O) FM:16
0x400990…400b24 Dummy {f00=0x013e, f01=0x018e, f02=»SECTORS NOT WITHIN THIS EXTENT ~ P CWR A7,A2 & 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT 8 P* p P EJECT TIOFM z P* & P* PREPARE PARAMETERS FOR DISC I/O P* P* EXIT PARAMETERS: P* $ P* A2 = DISC INDEX (FRO
0x400b24…400cb8 Dummy {f00=0x013e, f01=0x0190, f02=» h P* A7 = ORDER CODE P* A8 = ECB ADDRESS " P* < PFM:130 EQU * F $ P LC A2,EWTVOL,A4 FILE CODE DISC Z ( P CF A15,FNDDWD FIND DISC DWT ADDRESS * P LDK A4,0 INDICATE NO I/O-AND-ACTIVATE P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) Q
0x400cb8…400e4c Dummy {f00=0x013e, f01=0x018e, f02=» NUMBER IN ECB t P ST A13,ECBCW2,A8 P XIF 0 P* < P IFT MMUPAG=1 F . P ES A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ES A13,ECBCW2,A8 P XIF P* * P ABL TIO:FM BRANCH TO FM ENTRY IN TIO P* P EJECT TIOFM
0x400e4c…400fe0 Dummy {f00=0x013e, f01=0x0190, f02=» P ANR A2,A14 SKIP SIGN BIT P RB FM:110 * P XIF < P* H PFM:150 EQU * R P ADK A1,1 f P ANR A2,A14 SKIP SIGN BIT x P RB FM:120 P* PFM:160 EQU * P ADK A6,1 P ANR A7,A14 SKIP SIGN BIT P RB FM:125
0x400fe0…401174 (1, 1142) Dummy {f00=0x013e, f01=0x0190, f02=»HE FOLLOWING PARAMETERS: x P* " P* A1 = PARAMETER BLOCK ADDRESS * ( P* A3 = TTAB ADDRESS OF CALLING TASK P P* A4 = FUNCTION INDEX (=6) | P* PFM:170 EQU * P IFT MULEXT=1 P IFT MMUPAG=0 . P ST A12,ECBCW1,A8 SET SECTOR NUM
0x401174…401308 Dummy {f00=0x013e, f01=0x0190, f02=»OR NUMBER IN ECB v P ES A13,ECBCW2,A8 P XIF 2 P* > P IFT MULEXT=1 H * P SUR A7,A13 NO OF SECTORS IN FIRST I/O ^ * P ANR A7,A14 SKIP SIGN BIT JUST IN CASE P* * P* PREPARE PARAMETER BLOCKS FOR FMTASK P* P LDR A1,A9 O
0x401308…40149c Dummy {f00=0x013e, f01=0x0190, f02=» A1,A4 PARAMETER BLOCK ADDRESS * P LDK A4,6 FUNCTION INDEX FOR SPLIT I/O & P RB FMACT4 ACTIVATE FMTASK T P XIF v P* P IFT MULEXT=0 P RB FM:ER2 REQUEST ERROR P XIF P* P EJECT TIOFM P* P* P******
0x40149c…401630 Dummy {f00=0x013e, f01=0x0190, f02=» ^ 2 P* ADDRESS AND CHECKS THE ACCESS PARAMETERS. ! P* ! > " P* INPUT: A5 = TTAB ADDRESS ! H P* A7 = ORDER CODE ! n ( P* A8 = ECB ADDRESS (FCHECK ONLY) ! ( P* A9 = ECB ADDRESS (FCHEC2 ONLY) ! P* ! " P* OUTPUT: CR = 0 I
0x401630…4017c4 Dummy {f00=0x013e, f01=0x0190, f02=»ROR) ! b : P* A7 = ORDER CODE (MODIFIED TO BASIC IF REQUESTED) " P* A9 = ECB ADDRESS " J P* A2 IS DESTROYED " h P* " " PFCHECK EQU * FCHECK MAIN ENTRY " P LDR A9,A8 ECB ADDRESS " P* " " PFCHEC2 EQU * FCHECK 2ND ENTRY " P IFT M
0x4017c4…401958 Dummy {f00=0x013e, f01=0x0190, f02=» " P EJECT FMTASK # P* # $ P* CHECK FILE NUMBER AND FIND FWT # * P* # R $ P ADKL A15,4 ADJUST STACKPOINTER # P ANK A4,/FF # " P RF(Z) FC:050 FILE NUMBER = 0 # P CW A4,SCTNOF # & P RF(G) FC:050 FILE NUMBER TOO BIG # 0 P LDKL A6,S
0x401958…401aec Dummy {f00=0x013e, f01=0x0190, f02=»1 # P RB(P) FC:010 $ P* $ P* CHECK ACCESS PARAMETERS $ * P* $ L 4 P ANKL A6,/FFFE CORRECT FWT ADDRESS JUST IN CASE $ V 2 P LD A2,FWTVTC,A6 VTOC SECTOR NO (FIRST EXTENT) $ " P RF(Z) FC:050 FILE NOT OPENED $ & P LD A2,FWTPAR,A6 ACCESS PARAME
0x401aec…401c80 Dummy {f00=0x013e, f01=0x0190, f02=» P* % PFC:020 EQU * % P IFT ATTDET=1 % " 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) % 8 & P ABR(Z)* A15 NOT ATTACHED, RETURN % l , P CWR A2,A5 ATTACHED, CHECK IF THIS TASK % , P RF(NE) FC:060 ATTACHED TO ANOTHER TASK % P XIF % P* %
0x401c80…401e14 (1, 1143) Dummy {f00=0x013f, f01=0x0190, f02=»CT TIOFM % P* & P* ERROR RETURNS & P* & 4 $ PFC:050 EQU * REQUEST ERROR EXIT & > & P LDKL A4,/7FC0 RETURN CODE = /8000 & f $ P LDK A6,0 INDICATE NO FWT FOUND & P* & $ PFC:060 EQU * FILE ATTACHED EXIT & " P ADK A4,/20 RETURN CODE = /40
0x401e14…401fa8 Dummy {f00=0x013f, f01=0x0190, f02=» & l P* ' P EJECT TIOFM ' P* ' ( P* ' 2 P********** ' < P* DET:FM * ' N P********** ' ` P* ' r P* INPUT: A6 = FWT ADDRESS ' | P* ' 2 P* OUTPUT:A10 = TTAB ADDRESS OF ATTACHED TASK ' P* A1 IS DESTROYED ' P* '
0x401fa8…40213c Dummy {f00=0x013f, f01=0x0190, f02=»TACHED ' | 8 P LD A5,FWTQUE,A6 QUEUE ANCHOR FOR FILE I/O REQUESTS ( ( P RF(Z) DET:20 NO MORE TASKS IN QUEUE ( J P* ( v . P* REPEAT ALL QUEUED REQUESTS FOR THIS FILE ( P* ( PDET:10 EQU * ( & P LDR* A1,A5 SAVE NEXT TTAB ADDRESS ( , P CF A15,QTJOB
0x40213c…4022d0 Dummy {f00=0x013f, f01=0x40c6, f02=» P* ) PDET:20 EQU * ) $ P LDR A5,A10 RESTORE TTAB ADDRESS ) " $ P CM FWTTAB,A6 RESET ATTACH WORD ) J P* ) r PDET:30 EQU * ) | P RTN A15 ) P XIF ) P* ) P END ) @ ) * ( & P LDR* A1,A5 SAVE NEXT TTAB ADDRESS ( , P CF A15,QTJOB
0x4022d0…402464 Dummy {f00=0x013f, f01=0x2008, f02=» * O t * * * & END 0@ <:127 : XIF L * X EJECT TOSSFM b * z * 8 3FM:170 EQU * MAKE ALL PARAMETERS READY FOR DISC I/O $ LC A2,EWTVOL,A3 FILE CODE DISC ( $ CF A15,FNDDW2 FIND DI
0x402464…4025f8 Dummy {f00=0x013f, f01=0x0190, f02=» P IFT CPU852=0 + $ P ML 2,VTC:EL,A9 PRESENT MOST FIT + P DSR* A13 EXTENT LENGTH + B P XIF + b P* + n 8 P RF(NL) CEF160 NOT GREATER THAN LAST FOUND MOST FIT + x P RF CEF150 + P* + P EJECT FMCDEF + P* + P* + PCEF120 EQU * +
0x4025f8…40278c Dummy {f00=0x013f, f01=0x0190, f02=»NT FOUND + r P* , P IFT CPU852=1 , 0 P LDKL A1,VTC:EL ADDRESS TO PRESENT MOST FIT , 0 P ADR A1,A9 , d P LDR A2,A13 , v P CF A14,CMPDWD , P XIF , P* , P IFT CPU852=0 , $ P ML 2,VTC:EL,A9 PRESENT MOST FIT , P DSR* A13 EXTENT LEN
0x40278c…402920 Dummy {f00=0x013f, f01=0x0190, f02=»50 EQU * , P* - P IFT CPU852=1 - P LDR A1,A13 MOVE FROM BUFFER - 0 P LDKL A3,VTC:EL TO WORK AREA - T P ADR A3,A9 - x P CF A14,FM:MV8 - P XIF - P* - P IFT CPU852=0 - ( P MLR 4,A13 FROM FM:BUF TO WORK AREA - P MS 4,VTC:EL,A9
0x402920…402ab4 (1, 1144) Opaque[0x194]
0x402ab4…402c48 # DirEnt {nam=»TIOSDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27e8, f03=0x0000}
0x402ab4…402c48 IdxSect {
0x402ab4…402c48 f00 = 0x013f // 0x402ab4 @0x0
0x402ab4…402c48 f01 = 0x0010 // 0x402ab6 @0x2
0x402ab4…402c48 gno = [ // 0x402ab8 @0x4
0x402ab4…402c48 [0x00]: C0x013f.0x1.0
0x402ab4…402c48 [0x01]: C0x013f.0x2.0
0x402ab4…402c48 [0x02]: C0x013f.0x3.0
0x402ab4…402c48 [0x03]: C0x0140.0x0.0
0x402ab4…402c48 [0x04]: C0x0140.0x1.0
0x402ab4…402c48 [0x05]: C0x0140.0x2.0
0x402ab4…402c48 [0x06]: C0x0140.0x3.0
0x402ab4…402c48 [0x07]: C0x0141.0x0.0
0x402ab4…402c48 ]
0x402ab4…402c48 }
0x402c48…402ddc Dummy {f00=0x013f, f01=0x0190, f02=» 2 P IDENT TIOSDM REL 11.0 81-02-26 870105041100 P : 6 P =4,MOVE KEY WHEN DELETE,REWRITE DIRECT INDEXED B P =4,REL 11.0 81-02-24 | : P =3,SKIP BITS 1-4 IN ORDER WHEN WRITE,DELETE,REWRITE P =3,REL 11.0 81-02-12 0 P =2,CLOSE D.
0x402ddc…402f70 Dummy {f00=0x013f, f01=0x0190, f02=»1-26 | 8 P**************************************************** P* H $ P* PHILIPS TERMINAL SYSTEM PTS R P* z : P* TIOSDM = STANDARD DATA MANAGEMENT ACTIVATION PART P* P* P* P* P* P* 8 P**********
0x402f70…403104 Dummy {f00=0x013f, f01=0x0190, f02=»D THE DWTADR IN FDB FOR CURRENT FILE P* , H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR 6 $ P* FROM A DISC MUST BE ACCESSED P* > P* ENTRY TIOSDM AND TIOSDM HOLDS THE START ADDRESS P* P*
0x403104…403298 Dummy {f00=0x013f, f01=0x0190, f02=» P EJECT TIOSDM P* 6 P* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT ( P* b 4 P* THE FOLLOWING WORDS WILL BE SET IN THE FDB: l & P* FDBSNR SECTOR NUMBER IN FILE 0 P* FDBRRO RELATIVE RECORD OFFSET IN BLOCK . P* FD
0x403298…40342c Dummy {f00=0x013f, f01=0x018e, f02=»ION IS DETECTED THE ERROR RETURN WILL BE: z P* LDKL A1,/<RETURN CODE> 2 P* ABL DISEND V P* p P* z P EJECT P* P************** P* ENTRIES * P************** P* & P ENTRY TIOSDM REFERENCED IN DWTA
0x40342c…4035c0 Dummy {f00=0x013f, f01=0x018e, f02=» P* P****************** P* EXTERNALS * , P****************** F P* ` P EXTRN FDBRRO j P EXTRN FDBRLE P EXTRN FDBTNR P EXTRN FDBLRN P EXTRN FDBNIF,FDBKA,FDBADF P EXTRN FDBAI1,CRNCDF,CRNSTA 6 P
0x4035c0…403754 (1, 1145) Dummy {f00=0x013f, f01=0x0190, f02=» P EXTRN SCTTCT P EXTRN RELPRO P EXTRN ACTOT 0 P EXTRN DISEND D EXTRN DWTECB ECB ADDRESS Z $ EXTRN DWTOR DWT INDEX AND ORDER | & P EXTRN DWTTAB DM TASK TTAB ADDRESS P EXTRN SDMTSK P EXTRN CALSNO " P EXTRN ECBBA,E
0x403754…4038e8 Dummy {f00=0x013f, f01=0x0190, f02=» P EXTRN FDBEXC,MOVUS ( P EXTRN CRNCIF INDEX CURRENCY OFFSET P EXTRN DMACTI,DMACTD L P EXTRN DISIOE h P EXTRN TTABD,TTABLN,TABEND ~ P* P EJECT P* P************************ P* CONDITIONAL ASSEMBLY * P******
0x4038e8…403a7c Dummy {f00=0x013f, f01=0x0190, f02=»EQU 1 z * P* INDXAC EQU 0 OTHRERWISE PX:A EQU 0 < PINDXAC EQU X:A N P* d P* n . P* A PROGRAM VERSION USING TOSS MMU PAGING x * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P EJECT
0x403a7c…403c10 Dummy {f00=0x013f, f01=0x018e, f02=»RQERR EQU /8000 P EJECT P* & P************************ 0 P* DATA DEFINITIONS * P P************************ p P* P* BRANCH TABLE P* PTIODMF EQU * P IFT INDXAC=1 P DATA OPEN P DATA OPEN
0x403c10…403da4 Dummy {f00=0x013f, f01=0x0190, f02=» P DATA CLOSED P DATA CLOSE P DATA RDFIPA , PSDMOEX EQU *-TIODMF @ P DATA DISIOE NOT USED P* z P EJECT TIOSDM P* P* PQWRSQ0 EQU *-TIODMF P DATA WRSQ00 P DATA DISIOE NOT ALLOWED P DATA WRRN
0x403da4…403f38 Dummy {f00=0x013f, f01=0x0190, f02=»DECUIX P DATA DEDI00 P DATA DEDIIX " PQRDSQ0 EQU *-TIODMF 6 P DATA RDSQ00 R P DATA RDSQIX f P DATA RDRN00 z P DATA RDRNIX P DATA STEQ00 P DATA STEQIX PQSTG00 EQU *-TIODMF P DATA STGR00 PQSTGIX EQU *-T
0x403f38…4040cc Dummy {f00=0x013f, f01=0x0190, f02=» DATA OPEN P DATA OPEN P DATA OPEN $ P DATA OPEN 6 P DATA OPEN H P DATA OPEN Z P DATA OPEN l PQCLDIS EQU *-TIODMF ~ P DATA CLOSE P DATA CLOSE P DATA RDFIPA PSDMOEX EQU *-TIODMF P DATA DISIOE NOT USED
0x4040cc…404260 Dummy {f00=0x013f, f01=0x0190, f02=» P DATA WRRN00 P DATA DISIOE NOT ALLOWED P DATA RWCU00 8 P DATA DISIOE NOT ALLOWED L P DATA RWDI00 l P DATA DISIOE NOT ALLOWED P DATA DECU00 P DATA DISIOE NOT ALLOWED P DATA DEDI00 P DATA DISIOE NOT ALLOWED P
0x404260…4043f4 (1, 1146) Dummy {f00=0x013f, f01=0x018e, f02=»A STEQ00 P DATA DISIOE NOT ALLOWED PQSTG00 EQU *-TIODMF 0 P DATA STGR00 L P DATA DISIOE NOT ALLOWED ` P DATA STNL00 P DATA DISIOE NOT ALLOWED P XIF P* P EJECT TIOSDM P* P********** P* OPEMOD *
0x4043f4…404588 Dummy {f00=0x013f, f01=0x0190, f02=» ~ P* 1 NOT USED =1 P* 2 START NOT LESS =1 P* 3 START GREATER =1 > P* 4 START EQUAL =1 Z P* 5 READ RANDOM =1 t P* 6 READ SEQUENTIAL =1 P* 7 DELETE DIRECT =1 P* 8 DELETE CURRENT =1 P* 9 REWRITE DIRECT =1 P* 10
0x404588…40471c Dummy {f00=0x013f, f01=0x0190, f02=» P* 15 NOT USED =2 P* POPEMOD EQU * ( P DATA /3E00 INPUT UNPROT. =2 < " P DATA /3E00 INPUT PROTECTED =2 ` " P DATA /3E00 INPUT EXCLUSIVE =2 & P DATA /3FF8 INPUT/OUTPUT PROT. =2 & P DATA /3FF8 INPUT/OUTPUT EXCL. =2 $ P DATA /0
0x40471c…4048b0 Dummy {f00=0x013f, f01=0x0190, f02=» P* P********** P* ORDTA1 * P* ORDTA2 * 2 P* ORDTA3 * D P********** V P* h P* r P* | : P* ORDTA1: ADMINISTATION FUNCTION ORDERS (NO INDEX) J P* ORDTA2: ORDER WITH SPECIAL INDEX HANDLING (FDBNIF CONTAIN INDE
0x4048b0…404a44 Dummy {f00=0x013f, f01=0x0190, f02=» PORDTA1 EQU * ( P DATA /821 OPEN INPUT UNPROTECTED PSDMOIP EQU *-ORDTA1 H & P DATA /921 OPEN INPUT PROTECTED d PSDMOIE EQU *-ORDTA1 & P DATA /A21 OPEN INPUT EXCLUSIVE PSDMIOP EQU *-ORDTA1 . P DATA /3921 OPEN INPUT
0x404a44…404bd8 Dummy {f00=0x013f, f01=0x0190, f02=»SIVE p PSDMOOS EQU *-ORDTA1 4 P DATA /1221 OPEN OUTPUT SEQUENTIAL EXCLUSIVE ( PSDMOOR EQU *-ORDTA1 ` 4 P DATA /3221 OPEN OUTPUT RANDOM EXCLUSIVE | PSDMLIM EQU *-ORDTA1 P DATA /222 CLOSE DISCARD P DATA /022 CLOSE LOCK
0x404bd8…404d6c Dummy {f00=0x013f, f01=0x0190, f02=»/106 WRITE RANDOM P DATA /407 REWRITE CURRENT P DATA /107 REWRITE DIRECT < P DATA /408 DELETE CURRENT ^ P DATA /108 DELETE DIRECT PORDTL2 EQU *-ORDTA2 P EJECT PORDTA3 EQU * P DATA /002 READ SEQUENTIAL P DATA /1
0x404d6c…404f00 Dummy {f00=0x013f, f01=0x0190, f02=»3 ~ PORDTEN EQU * P* P* ( P EJECT TIOSDM 2 P* H P************ R P* ENTRY f P************ x P* $ P* INPUT : A14 = STACK POINTER " P* A8 = ECB ADDRESS " P* A6 = FDB ADDRESS
0x404f00…405094 (1, 1147) Dummy {f00=0x0140, f01=0x0190, f02=» OPTION n P LDK A3,ORDTL3-2 & P LD A7,DWTOR,A11 ORDER AND OPTION ( P LDR A1,A7 R P ANKL A7,/7FF NOT INDEX d P CF A14,CHKORD P RF(N) TIOS10 NOT IN TABLE P SLL A3,1 & P ADK A3,QRDSQ0 ADJUST DISPLACEMENT P SRL A1,11
0x405094…405228 Dummy {f00=0x0140, f01=0x0190, f02=»ESS | P ABL DISIOE REQUEST IO P* * P EJECT TIOSDM 4 P* J P* T P* ^ PTIOS10 EQU * h " P LDK A3,ORDTL2-2 TABLE LENGTH | P* LDR A7,A1 =3 P CF A14,CHKORD $ P RF(N) TIOS25 ORDER NOT IN TABLE P SLL A3,1 &
0x405228…4053bc Dummy {f00=0x0140, f01=0x0190, f02=» P ADK A3,2 INDICATE INDEXED * PTIOS20 EQU * CHECK ORDER VS OPEN MODE & $ P LC A1,FDBOMD,A11 GET OPEN MODE T P ANK A1,/7F | P AN A2,OPEMOD,A1 P RB(Z) REQERR ILLEGAL ORDER P RF TIOS30 P* PTIOS25 EQU * & P LDR A7,A1 O
0x4053bc…405550 Dummy {f00=0x0140, f01=0x0190, f02=»DM P* P* PTIOS30 EQU * P LDR A10,A3 2 P SC A3,DWTOR+1,A11 F 4 P LD A5,DWTTAB,A11 GET CALLING TASK TTAB ADDRESS ` P SUK A3,QCLDIS CLOSE DISCARD P RF(N) TIOS35 OPEN ORDER P CWK A11,FDBSTA P RB(E) REQERR NOT OP
0x405550…4056e4 Dummy {f00=0x0140, f01=0x0190, f02=»RR OTHER TASK EXCLUSIVE ACCESS PTIOS35 EQU * & P LD A1,SCTTCT : P LDR* A2,A1 TAB LENGTH P P ADR A1,A2 n P SRL A2,1 PTIOS40 EQU * P SUK A1,2 P SUK A2,1 P RF(Z) TIOS50 END OF SCTTCT P CWR* A5,A1 P RB(NE
0x4056e4…405878 Dummy {f00=0x0140, f01=0x0190, f02=»SEARCH DM TASK P* PTIOS50 EQU * $ P LDK A2,/FF DATA MANAGEMENT TASK 4 " P LDKL A1,TTABD TTAB ADDRESS #D PTIOS55 EQU * P CWR A5,A1 P RB(E) TIOS45 CORRECT TASK P ADKL A1,TTABLN NEXT TTAB P CWK A1,TABEND P RB(E)
0x405878…405a0c Dummy {f00=0x0140, f01=0x0190, f02=»CRNGET CURRENCY P INH & P LDR A4,A2 CURRENCY BUFFER ADDRESS $ P LDK A2,0 N " P SC A2,CRNSTA,A4 RESET STATUS ` $ P LC A2,CRNCDF+1,A4 GET CURRENCY P LD A3,CRNCDF+2,A4 P LDKL A9,/40 MAX KEY LENGTH * P ABI TIODMF,A10 BRANCH TO DM
0x405a0c…405ba0 Dummy {f00=0x0140, f01=0x0190, f02=»TASK r " P* A11= FDB ADDRESS DATA FILE P* A7 = USER ORDER WORD 2 P* A8 = USER ECB ADDRESS R " P* A9 = MAX KEY LENGTH = /40 t * P* A10= DISPLACEMENT IN TIODMF TABLE P* P* P IFT INDXAC=1 P* P EJECT
0x405ba0…405d34 (1, 1148) Dummy {f00=0x0140, f01=0x0190, f02=»NDEXED f P* ( PRWDIIX EQU * REWRITE DIRECT INDEXED & PDEDIIX EQU * DELETE DIRECT INDEXED D * P LD A7,FDBAI1,A11 PRIMARY INDEX FDB =4 n 0 P CF A14,SWHECO SWITCH ECB AND ORDER CODE =4 P RF IXR030 MOVE KEY =4 P EJECT P* P**
0x405d34…405ec8 Dummy {f00=0x0140, f01=0x0190, f02=»D READ RANDOM INDEXED | P* PSTEQIX EQU * ( PSTGRIX EQU * < PSTNLIX EQU * P P LD A9,ECBRL,A8 KEY LENGTH d PRDRNIX EQU * P CF A14,SWHFDB SWITCH FDB PIXR030 EQU * =4 P RB(Z) REQERR NO FDB " P LDR A2,A7 INDEXED FDB A
0x405ec8…40605c Dummy {f00=0x0140, f01=0x0190, f02=»EY LENGTH PIXR050 EQU * P CMR A4 CLEAR KEY AREA & P ADK A4,2 D P SUK A1,2 V P RB(P) IXR050 MORE TO CLEAR h P* P EJECT P* P* FETCH KEY TO INDEX FDB P* P LD A1,ECBBA,A8 RECORD ADDR P AD A1,FDB
0x40605c…4061f0 Dummy {f00=0x0140, f01=0x018e, f02=»6,A3 SAVE MIN LENGTH P CF A15,MOVUS MOVE KEY ! P* ! : P EJECT TIOSDM ! D P* ! Z 0 P* INCREASE KEY IF 'START GREATER ' IS REQ ! d P* ! P CWK A10,QSTGIX ! $ P RF(NE) STA020 NOT START GREATER ! PSTA010 EQU * ! P SUK A2,1 ADDR LAS
0x4061f0…406384 Dummy {f00=0x0140, f01=0x0190, f02=» ! | P SUK A6,1 " P RB(P) STA010 MORE BYTES " PSTA020 EQU * " : P* " N P* SWITCH TO INDEX FDB " X P* " x P LDR A11,A7 INDEX FDB " P RF TIORRO " P EJECT " P* " P* " P********** " P* WRRNIX * " P********** "
0x406384…406518 Dummy {f00=0x0140, f01=0x0190, f02=» FDB KEY AREAS " P* # P LDK A4,8 # PIXINS3 EQU * # 2 P LDR A2,A11 FDB DATA # F P ADR A2,A4 # b P LD A2,FDBADF,A2 FDB INDEX # t P RF(Z) IXINS4 NO INDEX # P LD A1,FDBKA,A2 KEY ADDR # " P LD A3,FDBRLE,A2 RECORD LENGTH # & P AD A1,ECBBA,A
0x406518…4066ac Dummy {f00=0x0140, f01=0x018e, f02=» P SUK A4,2 $ P RB(NZ) IXINS3 MORE INDEXS $ P XIF $ 8 P* $ D P EJECT TIOSDM $ N P* $ d P* $ n P********** $ x P* WRSQ00 * $ P********** $ P* $ P* WRITE SEQUENTIAL $ P* $ PWRSQ00 EQU * $ P LC A2,FDBLRN,A11 $
0x4066ac…406840 Dummy {f00=0x0140, f01=0x0190, f02=» P********** % P* RDSQIX * % P********** % ( P* % : P* READ SEQUENTIAL INDEXED % D P* % h P* % r PRDSQIX EQU * % | P CF A14,SWHFDB SWITCH FDB % P ABL(Z) REQERR FDB NOT FOUND % $ P LDR A11,A7 INDEXED FDB ADDRESS % P* % P
0x406840…4069d4 (1, 1149) Dummy {f00=0x0140, f01=0x018e, f02=»A11 FILE NR % P CC A7,CRNCIF,A4 & . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT & , P LC A2,CRNCIF+1,A4 & ^ " P LD A3,CRNCIF+2,A4 LOG REC NO & x P XIF & PIXR020 EQU * & $ P CF A14,ADDONE A2,A3 = A2,A3 + 1 & * P RF TIODMA DO NOT CHECK EOF CONDIT
0x4069d4…406b68 Dummy {f00=0x0140, f01=0x0190, f02=» PRDSQ00 EQU * ' " P CF A14,ADDONE A2,A3=A2,A3 + 1 ' P RF RAN050 ' > P EJECT ' P P* ' ^ P********** ' h P* RDRN00 * ' z P********** ' P* ' P* READ RANDOM ' P* ' PRDRN00 EQU * ' P LD A2,ECBCW,A8 REC NR ' P LD A3,ECBCW
0x406b68…406cfc Dummy {f00=0x0140, f01=0x0190, f02=» ' j P RF TIODMA ( P EJECT ( P* ( ( P* ( 2 P********** ( < P* OPEN * ( N P********** ( ` P* ( r P* OPEN ( | P* ( POPEN EQU * ( P CWK A11,FDBSTA ( P RF(E) OPE050 FILE CODE FREE ( P LDKL A1,EDMERR ( P LDK A2,FCUS
0x406cfc…406e90 Dummy {f00=0x0140, f01=0x0190, f02=»TH ( x P CW A4,ECBRL,A8 REQ ) P RF(G) ENDIO ERROR ) & P RF TIORRO ) @ P* ) R P EJECT TIOSDM ) P* ) r P* ) | P********** ) P* RDFIPA * ) P********** ) P* ) P* READ FILE PARAMETR ) P* ) PRDFIPA EQU * ) P ST A2
0x406e90…407024 Dummy {f00=0x0140, f01=0x0190, f02=» ACTIVATE DN TASK #D ) P* * P EJECT * & P* * 4 P********** * > P* CLOSED * * P P********** * b P* * t P* * ~ PCLOSED EQU * * P* * P* TEST IF INDEX * P* * P* LC A1,FDBNIF,A11 * & P* ANK A1,/F NUMBER OF INDEX FILES *
0x407024…4071b8 Dummy {f00=0x0140, f01=0x0190, f02=»D ALLOWED =2 * v , P LDKL A1,RQERR INDICATE REQUEST ERROR =2 + ( P ORS A1,ECBRC,A8 SET RETURN CODE =2 + D 0 P SC A1,DWTOR,A11 CHANGE CLOSE D. TO CLOSE =2 + p P EJECT + P* + P********** + P* CLOSE * + P********** + P* + P* + PCL
0x4071b8…40734c Dummy {f00=0x0140, f01=0x0190, f02=»2,/FF FILE CODE + $ P LDK A5,0 SEARCH TTAB AND CDTAB , P CF A14,FNDFDB SEARCH , @ $ P LDKL A2,FDBSTA SYSTEM FWT ADDR , ^ P ST A2,2,A4 FC ENTRY , P LDK A1,0 , P LC A1,FDBLRN,A11 , & P LD A2,FDBLRN+1,A11 LAST RECORD NR , P RF(NZ) CLO100 ,
0x40734c…4074e0 Dummy {f00=0x0140, f01=0x018e, f02=»**** , P* STEQ00 * - P* STGR00 * - P* STNL00 * - 0 P********** - B P* - T ( P* START EQUAL,GREATER AND NOT LESS - ^ P* - PSTEQ00 EQU * - PSTGR00 EQU * - PSTNL00 EQU * - P LD A2,ECBCW,A8 REC NR - P LD A3,ECBCW+2,A8 - " P
0x4074e0…407674 (1, 1150) Dummy {f00=0x0140, f01=0x0190, f02=» - P* RWCUIX * . P* DECU00 * . P* DECUIX * . , P* WRRN00 * . > P* RWDI00 * . P P* DEDI00 * . b P* TIODMA * . t P********** . P* . 0 P* REWRITE CURRENT,REWRITE CURRENT INDEXED . . P* DELETE CURRENT,DELETE CURRENT INDEXED . $ P
0x407674…407808 Dummy {f00=0x0140, f01=0x0190, f02=»DECUIX EQU * . PTIODMA EQU * / P ST A2,ECBCW,A8 REC NR / ( P ST A3,ECBCW+2,A8 / F PWRRN00 EQU * WRITE RANDOM / ` PRWDI00 EQU * REWRITE DIRECT / PDEDI00 EQU * DELETE DIRECT / " P LD A1,ECBCW,A8 RECORD NUMBER / P LD A2,ECBCW+2,A8 / P
0x407808…40799c Dummy {f00=0x0140, f01=0x0190, f02=»11 / P CF A14,EATEST 0 " P LDR A11,A9 SAVED FDB ADDRESS 0 P ADK A3,0 0 F P RF(N) TIODPE EA OTHER TASK 0 X PTIODMD EQU * 0 | 6 P CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR 0 P RF(NZ) TIODME 0 P* 0 P EJECT 0 P* 0 P******
0x40799c…407b30 Dummy {f00=0x0140, f01=0x0190, f02=» LDR A6,A11 FDB ADDRESS 0 & P LDKL A2,SDMTSK ACTIVATION ADDRESS 1 P CWK A10,QWRSQ0 1 J * P ABL(L) DMACTD ADMINISTRATION FUNCTION 1 b P ABL DMACTI ACTIVATE DM TASK 1 P* 1 P EJECT 1 P* 1 P********** 1 P* TIODPE * 1 P* TIODME * 1
0x407b30…407cc4 Dummy {f00=0x0140, f01=0x0190, f02=»C A3,FDBTNR,A11 USER TASK ID 1 P ANK A3,/FF 2 $ " P CF A14,RELPRO RELEASE PROTECT 2 8 P LDKL A1,PROERR 2 ^ PTIODME EQU * 2 v ( P LD A6,FDBADF,A11 DATA FILE FDB ADDR 2 PENDIOL EQU * 2 , P ABL DISEND CALL TENDIO GOTO DISPATCHER 2 PENDIO EQU * 2
0x407cc4…407e58 Dummy {f00=0x0140, f01=0x0190, f02=» 2 P********** 3 P* 3 P* CHECK IF ORDER IN TABLE 3 $ P* 3 H . P* INPUT : A10=ADDRESS TO ORDER TABLE END 3 R P* A3=LENGTH 3 P* A7=ORDER/OPTION 3 P* 3 P* OUTPUT: A2=ORDER BIT 3 * P* A3=ENTRY
0x407e58…407fec Dummy {f00=0x0140, f01=0x018e, f02=»0 IF ORDER FOUND IN TABLE 3 P* CR=2 ELSE 4 " P* 4 @ PCHKORD EQU * 4 J P ADKL A14,4 4 ^ PCHKO10 EQU * 4 r P SRL A2,1 4 P CWR* A7,A10 4 P RF(E) CHKO20 ORDER IN TABLE 4 P SUKL A10,2 NEXT ENTRY 4 P SUK A3,2 4 & P RB(NN)
0x407fec…408180 Dummy {f00=0x0140, f01=0x0190, f02=» 4 P* ADDONE * 5 P********** 5 P* 5 , * P* DOUBLE ADD ONE ON REGISTERS A2,A3 5 6 P* 5 d PADDONE EQU * 5 n P ADK A3,1 5 * P RF(P) ADDO10 NOT OVERFLOW OR NEGATIVE 5 P LDK A3,0 5 P ADK A2,1 ADD CARRY 5 PADDO10 EQU * 5 P RTN
0x408180…408314 (1, 1151) Dummy {f00=0x0141, f01=0x0190, f02=»RESS AND MOVE PARAMETERS 5 ~ P* 6 P* INPUT : A11=FDB ADDRESS 6 * & P* OUTPUT : A7=INDEX FDB ADDRESS 6 N 6 P* A7=0 , IF NO INDEX FDB ADDRESS FOUND 6 x ( P* CR SET ACCORDING TO A7 6 P* A3 IS USED 6 P* 6 P
0x408314…4084a8 Dummy {f00=0x0141, f01=0x4142, f02=»AI1,A7 INDEX FDB ADDR 6 P RF(Z) SWHF90 NOT FOUND 7 ( PSWHECO EQU * SWITCH ECB AND ORDER =4 7 > & P LD A3,DWTECB,A11 MOVE PARAMETERS 7 j P ST A3,DWTECB,A7 7 P LD A3,DWTOR,A11 7 P ST A3,DWTOR,A7 7 PSWHF90 EQU * 7 P ADKL A14,4 7 P ADK
0x4084a8…40863c Dummy {f00=0x0141, f01=0x2008, f02=» 8
0x40863c…4087d0 Dummy {f00=0x0141, f01=0x0000, f02=»
[…0x4…]
0x408e20…408fb4 (1, 1152) Opaque[0x194]
0x408fb4…409148 # DirEnt {nam=»TLDPGM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2828, f03=0x0000}
0x408fb4…409148 IdxSect {
0x408fb4…409148 f00 = 0x0141 // 0x408fb4 @0x0
0x408fb4…409148 f01 = 0x0008 // 0x408fb6 @0x2
0x408fb4…409148 gno = [ // 0x408fb8 @0x4
0x408fb4…409148 [0x00]: C0x0141.0x1.0
0x408fb4…409148 [0x01]: C0x0141.0x2.0
0x408fb4…409148 [0x02]: C0x0141.0x3.0
0x408fb4…409148 [0x03]: C0x0142.0x0.0
0x408fb4…409148 ]
0x408fb4…409148 }
0x409148…4092dc Dummy {f00=0x0141, f01=0x018e, f02=» 2 P IDENT TLDPGM REL 11.0 81-01-26 870105041100 P : @ <************************************************************ B @ <* * @ <* PHILIPS TERMINAL SYSTEM PTS *
0x4092dc…409470 Dummy {f00=0x0141, f01=0x0190, f02=» R @ P* TLDPGM - LOAD/UNLOAD PROGRAM PROCESSOR * @ <* * L @ <* THIS MODULE CONTAINS THE LKM PROCESSOR USED IN TOSS * @ P* DISC PAGING SYSTEMS FOR RUNTIME PROGRAM LOADING &
0x409470…409604 Dummy {f00=0x0141, f01=0x0190, f02=» * B P* REQUEST: LKM * B P* DATA 25 * V B P* * B P* REQUEST PARAMETERS: A1=0 - UNLOAD
0x409604…409798 Dummy {f00=0x0141, f01=0x0190, f02=»CTOR ADDRESS IN FILE * n B P* * $ B P* RETURN PARAMETERS: A7 UNCHANGED IF OK * j B P* A7=-1 IF ILLEGAL FILE NUMBER * @ <*
0x409798…40992c Dummy {f00=0x0141, f01=0x0190, f02=»********* * ENTRIES * ************* ( $ P ENTRY TLDPGM LOAD PROGRAM ENTRY > f EJECT n *************** | * EXTERNALS * *************** " P EXTRN TDISP DISPATCHER ENTRY 2 - EXTRN QLTASK QUEUE LOAD TASK
0x40992c…409ac0 Dummy {f00=0x0141, f01=0x0190, f02=» r & P EXTRN LD:STB LOAD TASK STACK BASE , P EXTRN LKMQDI QUEUE TASK FOR DISPATCHING 2 , P EXTRN QMEXIT QUEUE TASK FOR DISPATCHING b 0 + EXTRN TTB:SP SEGMENT TABLE POINTER IN TTAB 0 P EXTRN TTB:SB SEGMENT BLOCK POINTER IN TTAB . P EXTRN TTB:AP
0x409ac0…409c54 (1, 1153) Dummy {f00=0x0141, f01=0x0190, f02=»RN SEG:FC VOLUME FILE CODE FOR SEGMENTS " P EXTRN SEG:EL EFFECTIVE LENGTH 0 , ( EXTRN FWTVOL DISPL. TO VOLUME FILE CODE V " P EXTRN FWTEXB FILE EXTENT BASE * & EXTRN SCTFWT START OF FILE WORK TABLE . ) EXTRN SCTFWL FILE WORK TABLE LENGTH/TASK
0x409c54…409de8 Dummy {f00=0x0141, f01=0x0190, f02=»NT TABLE POOL r EJECT P************* $ * EQUATES * : ************* P ECBFN EQU 1 FILE NUMBER f ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE
0x409de8…409f7c Dummy {f00=0x0141, f01=0x0190, f02=» 10 DISPL. TO NUMBER OF SEGMENTS EJECT ( PTLDPGM EQU * 6 P* J " P* SELECT LOAD/UNLOAD REQUEST T P* z P ADK A1,0 & P RF(NZ) LOAD LOAD PROGRAM REQUEST P* P* UNLOAD PROGRAM PROCESSING P* PULD:10 EQU *
0x409f7c…40a110 Dummy {f00=0x0141, f01=0x0190, f02=» f . P CM TTB:SB,A5 CLEAR SEGMENT BLOCK POINTER & P LD A2,SCTTCT GET ADDRESS TO TCTAB : $ P LDR* A3,A2 GET LENGTH OF TCTAB d PULD:20 EQU * P SUK A3,2 DECREMENT LENGTH P RF(Z) ULD:30 NO MOORE TASKS " P ADK A2,2 NEXT ENTRY IN TCTAB
0x40a110…40a2a4 Dummy {f00=0x0141, f01=0x0190, f02=» P RB(NE) ULD:20 NO P RF ULD:40 PULD:30 EQU * 0 * P CM SEG:NS,A1 CLEAR NUMBER OF SEGMENTS D PULD:40 EQU * r ( P ABL LKMQDI QUEUE TASK AND DISPATCH P EJECT PLOAD EQU * P* : P* ACTIVATE LOAD TASK AT ENTRY LP:LST DISPAT
0x40a2a4…40a438 Dummy {f00=0x0141, f01=0x0190, f02=»5,QLTASK ACTIVATE LOAD TASK P ENB $ P ABL TDISP GO TO DISPATCHER 0 P EJECT T P* b , P* LOAD PROGRAM - RUNNING TASK IS LDTASK l P* PLP:LST EQU * ( P LDKL A14,LD:STB LOAD A14 STACK BASE & P LDR A5,A3 GET CALLING TASKS TTAB
0x40a438…40a5cc Dummy {f00=0x0141, f01=0x0190, f02=»ET DISC ADDRESS BITS 16-30 z 0 + LD A2,SCTFWT START OF FILE WORK TABLE AREA " * &LP:100 SUK A1,1 FILE WORK TABLE FOUND? V RF(Z) LP:200 YES & " AD A2,SCTFWL NEXT FILE WORK TABLE RB LP:100 PLP:200 EQU * & P LDKL A1,LD:BUF GET BUFFER
0x40a5cc…40a760 Dummy {f00=0x0141, f01=0x0190, f02=»F A14,RDSFM READ FIRST SECTOR 6 P LC A6,FWTEXB-1,A2 GET FILE EXTENT BASE (BITS 0-7) & P ANK A6,/FF ISOLATE ADDRESS ` 6 P LD A11,FWTEXB,A2 GET FILE EXTENT BASE (BITS 8-23) P RF(NZ) LP:300 P SUK A6,1 PLP:300 SUKL A11,1 * P CF A14,
0x40a760…40a8f4 (1, 1154) Dummy {f00=0x0141, f01=0x0190, f02=»GETFST GET FREE SEGMENT TABLE 0 P ADK A1,0 A1=0 IF NO SEGMENT TABLE AVALIABLE & , P RF(Z) REQERR IMPOSSIBLE TO LOAD PROGRAM Z * P LC A2,FWTVOL,A2 GET VOLUME FILE CODE . P SC A2,SEG:FC+1,A1 STORE IN SEGMENT TABLE 0 P LD A3,LD:BUF+NUMSEG GET NUMBE
0x40a8f4…40aa88 Dummy {f00=0x0141, f01=0x0190, f02=»NTS t 6 P ST A3,SEG:NS,A1 STORE CURRENT NUMBER OF SEGMENTS 2 P LDKL A2,LD:BUF+NUMSEG START OF SEGMENT BLOCKS F * | * STORE BLOCK 0 * ( # LDKL A4,/8400 STATUS FOR SEGMENT 0 STR A4,A1 STORE STATUS . P CM 2,A1 CLEAR STATU
0x40aa88…40ac1c Dummy {f00=0x0141, f01=0x0190, f02=»BLOCKS * PI:SBLK SUK A3,1 $ RF(N) LPMEND NO MOORE SEGMENTS! 0 $ P CF A14,GETWSG GET DISC ADDRESS X " ANK A4,/FF CLEAR STATUS BYTE $ P ADR A4,A6 RELOCATE DISC ADDRESS , ( STR A4,A1 STORE STATUS AND DISC ADDRESS $ ADK A1,2
0x40ac1c…40adb0 Dummy {f00=0x0141, f01=0x0190, f02=»RE ADK A1,2 SEGMENT LENGTH & P CF A14,GETWSG GET SEGMENT LENGTH , STR A4,A1 STORE V & P CM 2,A1 CLEAR PAGE BLOCK ADDRESS n ADK A1,4 NEXT SEGMENT BLOCK RB I:SBLK P EJECT PLPMEND EQU * * P ABL QMEXIT QUEUE TASK F
0x40adb0…40af44 Dummy {f00=0x0141, f01=0x0190, f02=»:SA+14,A5 SET RETURN CODE IN A7 P RB LPMEND ( EJECT : < 8***************** INTERNAL SUBROUTINES ***************** H * " * GETWSG - GET WORD IN S:GTAB * & !* ENTRY: A2 - POINTER IN S:GTAB * " *
0x40af44…40b0d8 Dummy {f00=0x0141, f01=0x018e, f02=»* , (GETWSG ADK A2,2 INCREMENT S:GTAB POINTER " P CWK A2,LD:BUE END OF SECTOR? : RF(NE) GETRTN NOT YET ` " P CF A14,RDSFM READ NEXT SECTOR ~ $ LDKL A2,LD:BUF START OF BUFFER " GETRTN LDR* A4,A2 GET CONTENT P RTN A14 EJECT
0x40b0d8…40b26c Dummy {f00=0x0141, f01=0x0190, f02=» 2 .* REQUESTED LENGTH AND SECTOR ADDRESS * : 2 .* EXIT: SECTOR ADDRESS IS INCREMENTED BY ONE D * z * WORK REGISTERS: A7,A8 * " PRDSFM LDK A7,PHYRD LOAD ORDER $ P LDKL A8,LD:ECB LOAD ECB-ADDRESS 6 P ST A9,LD:
0x40b26c…40b400 Dummy {f00=0x0141, f01=0x0190, f02=»* * CHECK RETURN CODE * & ( P LD A7,LD:ECB+ECBRC GET RETURN CODE 0 " P ANKL A7,/FEFF SKIP RETRY BIT P RF(Z) RDSF10 OK! & P ANK A7,1 BIT 15=DISC NOT OPERABLE " P NGR A7,A7 TAKE 2'S COMPLEMENT $ P SUK A7,2 SET ERROR RETURN C
0x40b400…40b594 (1, 1155) Dummy {f00=0x0142, f01=0x018e, f02=»F(NN) RDSRET OVERFLOW? $ P ADKL A9,1 INCR. MOST SIGN. PART " P RB(Z) REQERR ADDRESS OVERFLOW F P XRR A10,A10 RESET CARRY l PRDSRET RTN A14 P EJECT P* P* ( P* CHIPLD - CHECK IF PROGRAM LOADED P* . P* ENTRY: A6
0x40b594…40b728 Dummy {f00=0x0142, f01=0x0190, f02=» ( P* EXIT: A1=0 - PROGRAM NOT LOADED , P* A1<>0 - SEGMENT TABLE ADDRESS 4 P* d & P* WORK REGISTERS: A1,A3,A4,A7,A8 n P* PCHIPLD EQU * & P LD A7,SCTTCT GET ADDRESS TO TCTAB $ P LDR* A8,A7 GET LENGTH OF TCTAB P
0x40b728…40b8bc Dummy {f00=0x0142, f01=0x018e, f02=» TTAB-ADDRESS | . P LD A1,TTB:SP,A1 GET SEGMENT TABLE POINTER , P RB(Z) CHPL10 NO SEGMENT TABLE ATTACHED H . P LD A3,LD:BUF+12 GET DISC ADDRESS BITS 0-7 x P ANK A3,/FF ISOLATE ADDRESS P ADR A3,A6 RELOCATE ADDRESS 2 P LD A4,8,A1 GET DISC A
0x40b8bc…40ba50 Dummy {f00=0x0142, f01=0x018e, f02=» | 0 P LD A3,LD:BUF+14 GET DISC ADDRESS BITS 8-23 P ADR A3,A11 RELOCATE < 2 P LD A4,10,A1 GET DISC ADDRES IN SEGMENT TABLE X , P CWR A3,A4 LEAST SIGNIFICANT PART EQUAL? P RB(NE) CHPL10 NO P RF CHPL90 PCHPL50 EQU * * P XRR A1,A1
0x40ba50…40bbe4 Dummy {f00=0x0142, f01=0x0190, f02=» P* & P* GETFST - GET FREE SEGMENT TABLE P* 8 P* ENTRY: B P* T ( P* EXIT: A1 - SEGMENT TABLE POINTER ^ P* P* WORK REGISTER: A1,A3 P* PGETFST EQU * ( P LD A1,TTB:AP,A5 GET ADDRESS TO ACB 4 P LD A1,ACB
0x40bbe4…40bd78 Dummy {f00=0x0142, f01=0x4178, f02=»NTS l P RF(Z) GFST30 NOT USED PGFST20 EQU * * , P LD A1,SEG:EL,A1 GET SEGMENT TABLE LINK > ( P RF(Z) GFST40 NO MORE SEGMENT TABLES n * P SUK A1,4 ADJUST SEGMENT TABLE POINTER P RB GFST10 CHECK NEXT SEGTAB PGFST30 EQU * 0 P ST A1,T
0x40bd78…40bf0c Dummy {f00=0x0142, f01=0x2008, f02=» CW2 RESET CARRY RDSRET RTN A15 END 6@ BECB+ECBRC GET RETURN CODE < , ( ANKL A7,/A07F GET ERROR INDICATING BITS h RB(NZ) LDPERR I/O ERROR * * INCREMENT SECTOR ADDRESS * , ( IM LDPECB+ECBCW2 INCR.
0x40bf0c…40c0a0 Dummy {f00=0x0142, f01=0x0190, f02=»1 INITIATE NO OF APPL. P STR A1,A3 AND SAVE IN TABLE > P ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 B > P ST A7,APLADA+4,A3 SAVE APPLICATION DISC ADDRESS BIT 16-31 * P ST A9,SCTSFA SAVE START OF FREE AREA P LDKL A14,SYSLOD
0x40c0a0…40c234 (1, 1156) Opaque[0x194]
0x40c234…40c3c8 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2848, f03=0x0000}
0x40c234…40c3c8 IdxSect {
0x40c234…40c3c8 f00 = 0x0142 // 0x40c234 @0x0
0x40c234…40c3c8 f01 = 0x0008 // 0x40c236 @0x2
0x40c234…40c3c8 gno = [ // 0x40c238 @0x4
0x40c234…40c3c8 [0x00]: C0x0142.0x1.0
0x40c234…40c3c8 [0x01]: C0x0142.0x2.0
0x40c234…40c3c8 [0x02]: C0x0142.0x3.0
0x40c234…40c3c8 [0x03]: C0x0143.0x0.0
0x40c234…40c3c8 ]
0x40c234…40c3c8 }
0x40c3c8…40c55c Dummy {f00=0x0142, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x40c55c…40c6f0 Dummy {f00=0x0142, f01=0x0190, f02=»M PROCESSOR, d 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* H P* R P EJECT TLDSEG P* t P* ~ P*********** P* ENTRIES * P*********** P* P* P ENTRY TLDSEG LOAD SEGMENT , P ENTRY TLSEG1
0x40c6f0…40c884 Dummy {f00=0x0142, f01=0x0190, f02=» P* EXTERNALS * P************* P* 0 P* : 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM D P EXTRN TDISP DISPATCHER x P EXTRN RELPAG RELEASE PAGE $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS
0x40c884…40ca18 Dummy {f00=0x0142, f01=0x0190, f02=»GE BLOCK ADDRESS P EXTRN TTB:AP ACB ADDRESS & P EXTRN TTB:PW PROGRAM STATUS WORD : P EXTRN TTB:SA TTAB SAVE AREA d P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS ( P EXTRN TTB
0x40ca18…40cbac Dummy {f00=0x0142, f01=0x0190, f02=» ACBNPE NUMBER OF PAGE ENTRIES * P EXTRN ACBLAP LOGICAL ADDRESS OF PAGES & P EJECT TLDSEG T P* l P* v . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P************************************
0x40cbac…40cd40 Dummy {f00=0x0142, f01=0x0190, f02=» EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTI
0x40cd40…40ced4 (1, 1157) Dummy {f00=0x0142, f01=0x0190, f02=» P********** P* P* $ 0 P* THIS IS THE LOAD SEGMENT LKM PROCESSOR. . P* b * P* IT IS ENTERED FROM THE LKM HANDLER l & P* WITH THE FOLLOWING PARAMETERS: P* P* A2 = DISPATCH ADDRESS P* A5 = TTAB ADDRESS
0x40ced4…40d068 Dummy {f00=0x0142, f01=0x0190, f02=» > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE & P* A7 = -1 IF REQUEST ERROR, ELSE F ( P* A7 = -2 IF DISC I/O ERROR, ELSE p $ P* A7 = -3 IF DISC NOT OPERABLE P* 2 P* WHEN REQUESTED SEGMENT IS ALREADY IN CORE: < P*
0x40d068…40d1fc Dummy {f00=0x0142, f01=0x0190, f02=»POSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. P* 6 : P* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL @ : P* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE. ~ P* P* P EJECT TLDSEG P* P* PTLDSEG EQU *
0x40d1fc…40d390 Dummy {f00=0x0142, f01=0x0190, f02=»MENT STATUS , P ANK A4,/1E CHECK IF CORE RESIDENT OR... 2 P RF(NZ) TLDS00 ...USED BY AN INTERRUPTED TASK D P* z ( P* INSERT PAGE BLOCK IN PAGE QUEUE P* P CF A15,RELPAG RELEASE PAGE P LD A4,TTB:PW,A5 PSW & P ST A4,-2,A15
0x40d390…40d524 Dummy {f00=0x0142, f01=0x0190, f02=»A5 SEGTAB ADDRESS * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 P RF(N) TLDERR REQUEST ERROR H 4 P CW A1,SEG:NS,A3 CHECK IF SEGMENT NUMBER TOO BIG l P RF(NG) TLDS03 OK P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P ABL LKM030 BRANCH TO LK
0x40d524…40d6b8 Dummy {f00=0x0142, f01=0x0190, f02=»LL A1,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A1,A3 ADD SEGTAB ADDRESS . P LDR A3,A5 GET TTAB ADDRESS T P* x P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* " P
0x40d6b8…40d84c Dummy {f00=0x0142, f01=0x0190, f02=»:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 P* 0 P IFT DSKPAG=1 : $ P SUKL A15,4 ADJUST STACKPOINTER P . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK x P XIF P RF TLDS40 P* P EJECT TLDSEG P* P* PTLDS05 EQU
0x40d84c…40d9e0 Dummy {f00=0x0142, f01=0x018e, f02=»0 SEGMENT LOADED IN CORE P ST A2,TTB:SA,A3 P CM PRUN 8 P* H P* ACTIVATE LOAD TASK R P* n 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK x P ABL TDISP GO TO DISPATCHER P* PTLDS10 EQU * $ P SUKL A15,4 ADJUST S
0x40d9e0…40db74 (1, 1158) Dummy {f00=0x0142, f01=0x0190, f02=» P* TLSEG1 * P* TLSEG2 * P********** , P* > P* H > P* ENTRIES USED BY LDTASK IN PURPOSE TO REMOVE PAGE BLOCK R @ P* FROM PAGQUE, UPDATE CURRENT SEGMENT BASE AND MMU TABLE. P* P* INPUT: $ P* TLSEG1: A1 = SEG
0x40db74…40dd08 Dummy {f00=0x0142, f01=0x0190, f02=»G2: A1 = PAGBLK ADDRESS ( P* A3 = TTAB ADDRESS LDTASK & P* A5 = " " " L P* v . P* OUTPUT: A1-A6 FROM TTAB SAVE AREA (A5) P* P XIF P* & PTLSEG1 EQU * ENTRY USED BY LDTASK ( P LD A1,SEG:P
0x40dd08…40de9c Dummy {f00=0x0142, f01=0x0190, f02=»N QUEUE r , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK @ " P STR A2,A4 UPDATE QUEUE LINKS x P ST A4,PAG:QB,A2 P XIF P* P EJECT TLDSEG P* , P* GET PAGE ADDRESS OF REQU
0x40de9c…40e030 Dummy {f00=0x0142, f01=0x0190, f02=»G=1 P ECR A2,A1 P ANK A2,/FC P* 2 4 P* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE < P* t P LD A6,TTB:AP,A5 ACB ADDRESS ~ 4 P AD A3,ACBMMP,A6 POINT TO FIRST USED PAGE ENTRY 0 P LD A4,ACBNPE,A6 GET NUMBER OF PAGE ENTRIES
0x40e030…40e1c4 Dummy {f00=0x0142, f01=0x0190, f02=» RF(NP) TLDS30 NO MORE PAGE ENTRIES & P ADK A3,2 POINT TO NEXT PAGE ENTRY , " P ADK A2,4 UPDATE PAGE ADDRESS V P RB TLDS25 | P* P EJECT TLDSEG P* P* 4 PTLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE P SLL A1,2
0x40e1c4…40e358 Dummy {f00=0x0142, f01=0x0190, f02=»MENT BASE l P XIF P* P IFT MMUPAG=0 ( PTLDS40 EQU * > 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE R P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x40e358…40e4ec Dummy {f00=0x0142, f01=0x40c2, f02=»A+6,A5 P LD A4,TTB:SA+8,A5 P LD A6,TTB:SA+12,A5 ( P LD A5,TTB:SA+10,A5 D $ P RTN A15 RETURN TO CALLING TASK ` P XIF P* P* P* END @ $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x40e4ec…40e680 Dummy {f00=0x0142, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x40e680…40e814 (1, 1159) Dummy {f00=0x0143, f01=0x0190, f02=»GET ADDRESS TO PHYSICAL PAGE = $ P ANKL A1,/C000 GREATER THAN 64K? > $ P RF(Z) AP:353 NO! > L P LDK A1,0 UPPER LIMIT 64 KB > f P RF AP:354 > PAP:353 EQU * > $ P LDR* A1,A6 GET PHYSICAL ADDRESS > P SLL A1,2 > P ADR A1,A4 ADD DISPLACEMENT >
0x40e814…40e9a8 Dummy {f00=0x0143, f01=0x0008, f02=»$ $ $ $
0x40e9a8…40eb3c Dummy {f00=0x0143, f01=0x0190, f02=» 2 P IDENT TIOADM PRR 11.0 80-11-19 870105041100 P : P* B 4 P*********************************************** L P* . P* TIOADM TOSS ABRIDGED DATA MANAGEMENT " P* ACTIVATION MODULE P* 4 P************************
0x40eb3c…40ecd0 Dummy {f00=0x0143, f01=0x0190, f02=»14 = STACK BASE P* $ P* OUTPUT: A2=DISPATCH ADDRESS " P* J P EJECT TIOADM T P* j P* t P**************** ~ P* ENTRY * P**************** P* P* $ P ENTRY TIOADM ACTIVATION ADDRESS P*
0x40ecd0…40ee64 Dummy {f00=0x0143, f01=0x0190, f02=»WTOR P EXTRN DWTTAB P EXTRN FPB:BF BLOCK FACTOR " P EXTRN FPB:BO TOSS OPTION D P EXTRN FPB:EL ENLARGE FACTOR f P EXTRN DISIOE P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBCW1 P EXTRN ECBCW2 $ P EXTRN FPB:FO FILE O
0x40ee64…40eff8 Dummy {f00=0x0143, f01=0x0190, f02=» FDBOMD OPEN MODE " P EXTRN DMACTI ACTIVATE DM TASK & P EXTRN DMACTD ACTIVATE DM TASK #D @ P EXTRN FDBSTA j P EXTRN FNDFDB P EXTRN ADMTSK P* P EJECT TIOADM P* P* " P***************************** " P*
0x40eff8…40f18c Dummy {f00=0x0143, f01=0x0190, f02=»***** x P* P* ( P* A VERSION INCLUDING OPENEN MODES " , P* EXTEND AND OUTPUT AND CLOSE DISCARD N ( P* IS OBTAINED BY SETTING X:A EQU 1 ~ P* PX:A EQU 0 PCRDEEX EQU X:A P* PMMUPAG EQU 0 P* P EJE
0x40f18c…40f320 Dummy {f00=0x0143, f01=0x0190, f02=» * z " P* * " P****************************** 6 P* P* f ( PLFILEN EQU 256 L-FILE RECORD LENGTH p P* P EJECT TIOADM P* P********** P* ORDTAB * P********** P* 4 P*
0x40f320…40f4b4 (1, 1160) Opaque[0x194]
0x40f4b4…40f648 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2868, f03=0x0000}
0x40f4b4…40f648 IdxSect {
0x40f4b4…40f648 f00 = 0x0143 // 0x40f4b4 @0x0
0x40f4b4…40f648 f01 = 0x0006 // 0x40f4b6 @0x2
0x40f4b4…40f648 gno = [ // 0x40f4b8 @0x4
0x40f4b4…40f648 [0x00]: C0x0143.0x1.0
0x40f4b4…40f648 [0x01]: C0x0143.0x2.0
0x40f4b4…40f648 [0x02]: C0x0143.0x3.0
0x40f4b4…40f648 ]
0x40f4b4…40f648 }
0x40f648…40f7dc Dummy {f00=0x0143, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x40f7dc…40f970 Dummy {f00=0x0143, 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**
0x40f970…40fb04 Dummy {f00=0x0143, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P EJECT TMMLKM < P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN RELPAG RELEASE
0x40fb04…40fc98 Dummy {f00=0x0143, f01=0x0190, f02=» IN TTAB l ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS $ P EXTRN SEG:NS NUMBER OF SEGMENTS < P EJECT TMMLKM d P* | P* P********** P* TCHPAG * P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.
0x40fc98…40fe2c Dummy {f00=0x0143, f01=0x0190, f02=» AT A TIME. ` P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: L P* v P* A5 = TTAB ADDRESS ( P* A7 = PAGE TO BE CHANGED, 0 - 15 * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT
0x40fe2c…40ffc0 Dummy {f00=0x0143, f01=0x018e, f02=»(IF ANY) p 0 P ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE P ADR A7,A5 ADD TTAB ADDRESS D P LDR A2,A8 NEW PAGE LOCATION h . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE
0x40ffc0…410154 (1, 1161) Dummy {f00=0x0143, f01=0x0190, f02=» P* TCHMMU * P********** P* , P* 6 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. @ P* x D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P*
0x410154…4102e8 Dummy {f00=0x0143, f01=0x0190, f02=»A7 = TASK IDENTIFICATION OF SEARCHED TASK P* 2 ( P* IT RETURNS TO CALLING TASK WITH < P* THE FOLLOWING PARAMETER: h P* 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU E
0x4102e8…41047c Dummy {f00=0x0143, f01=0x0190, f02=» TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK 6 * P RB T:DISP QUEUE TASK FOR DISPATCHING n P* P EJECT TMMLKM P* P* P********** P* TLUSEG * P********** P
0x41047c…410610 Dummy {f00=0x0143, f01=0x018e, f02=» CORE RESIDENT, ` D P* UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* ` * P* IT IS ENTERED FROM THE LKM HANDLER j & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER &
0x410610…4107a4 Dummy {f00=0x0143, f01=0x0190, f02=» j " P* THE FOLLOWING PARAMETERS: P* . 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE 8 P* A7 = -1 IF REQUEST ERROR n P* P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT $ P LD A4,TTB:SP,
0x4107a4…410938 Dummy {f00=0x0143, f01=0x0190, f02=»GMENT NUMBER TOO BIG t P RF(NG) TLUS00 OK P* 6 PTLCERR EQU * @ , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR T P* PTLUS00 EQU * , P SLL A3,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A3,A4 ADD SEGTAB ADDRESS " P LCR A4,A3 GET S
0x410938…410acc Dummy {f00=0x0143, f01=0x018e, f02=»T IT IS t " P RF(NZ) TLUS10 UNLOCK SEGMENT P* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x410acc…410c60 Dummy {f00=0x0143, f01=0x4036, f02=» P* P* P* END &@ 2* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x410c60…410df4 (1, 1162) Dummy {f00=0x0143, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x410df4…410f88 Dummy {f00=0x0143, f01=0x0190, f02=»A11,DISCAD RESORE CURRENT SECTOR/BLOCK ^ P LD A12,DISCAD+2 ADDRESS _ . P RTN A14 _ N P IFT MMUPAG=1 _ ^ P EJECT _ t 4 P*********************************************** _ 4 P* * _ 4 P* LODMEX - LOAD MONIT
0x410f88…41111c Dummy {f00=0x0143, f01=0x018e, f02=»* _ b 4 P* REFERENCED IN: SYSLOD * ` 4 P* * ` B 4 P* ENTRY: * ` z 4 P* * ` 4 P* EXIT:
0x41111c…4112b0 Dummy {f00=0x0143, f01=0x0190, f02=» 4 P* * a 4 P* SUBROUTINES: LODCOM * a < 4 P* * a t 4 P*********************************************** a PLODMEX EQU * a & P LD A1,SCTMXS MO
0x4112b0…411444 Dummy {f00=0x0143, f01=0x0190, f02=»X,A1 GET NUMBER OF EXTENTS a 4 P LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS b " $ P SLL A6,1 MAKE BYTE DISPLACEMENT b Z P ADK A6,4 b " P ADR A6,A1 FIRST EXTENT BLOCK b PMSX20 EQU * b & P SUK A3,1 DECREMENT EXTENT COUNTER b P RF(N) MSX99 NO
0x411444…4115d8 Dummy {f00=0x0143, f01=0x018e, f02=» b p $ P LD A5,SCTEFA+2 END OF FREE AREA c P RF(NZ) MSX25 c 0 P* c F 2 P LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE c P P SUKL A7,/400 c PMSX25 EQU * c ( P LD A2,EXLEN,A6 GET LENGTH OF EXTENT c & P ADK A2,11 RESERV FIVE EXTRA WORDS c $ P A
0x4115d8…41176c Dummy {f00=0x0143, f01=0x0190, f02=» P RF(N) MSX30 NO d P* d 2 P CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME d & P RF(L) MSX40 YES! d P* d v PMSX30 EQU * d P LDR A1,A2 d . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES d P CWK A1,14 <60K BYTES? d P RF(L) MSX35 YES!
0x41176c…411900 Dummy {f00=0x0143, f01=0x0190, f02=»RY d n P SUK A7,1 e PMSX35 EQU * e 0 P SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME e 0 " P LDK A5,0 AND SET EMPTY FRAME e d P LDR A1,A2 e . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES e , P SUR A7,A1 AND SUBTRACT FROM FRAME COUNT e $ P ABL(N) ME
0x411900…411a94 (1, 1163) Opaque[0x194]
0x411a94…411c28 # DirEnt {nam=»TMOVE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2880, f03=0x0000}
0x411a94…411c28 IdxSect {
0x411a94…411c28 f00 = 0x0144 // 0x411a94 @0x0
0x411a94…411c28 f01 = 0x000e // 0x411a96 @0x2
0x411a94…411c28 gno = [ // 0x411a98 @0x4
0x411a94…411c28 [0x00]: C0x0144.0x0.0
0x411a94…411c28 [0x01]: C0x0144.0x1.0
0x411a94…411c28 [0x02]: C0x0144.0x2.0
0x411a94…411c28 [0x03]: C0x0144.0x3.0
0x411a94…411c28 [0x04]: C0x0145.0x0.0
0x411a94…411c28 [0x05]: C0x0145.0x1.0
0x411a94…411c28 [0x06]: C0x0145.0x2.0
0x411a94…411c28 ]
0x411a94…411c28 }
0x411c28…411dbc Dummy {f00=0x0144, f01=0x0190, f02=» 0 P IDENT TMOVE REL 11.0 81-05-21 870105041100 P 8 * P =4,CORR. OF UPDATE =3 (A14,A15) =3 @ P =4,REL 11.0 81-05-15 =3 n $ P =3,CONDITION FOR MOVUU ADDED P =3,REL 11.0 81-01-26 $ P =2,SAVE MMU WHEN MOVUS,MOVSU P =2,PR
0x411dbc…411f50 Dummy {f00=0x0144, f01=0x0190, f02=»********************************** P* * $ P* PHILIPS TERMINAL SYSTEM PTS 4 P* ( P* TMOVE = TOSS MOVE LKM PROCESSOR f P* P* P* P* P* P* 6 P************************************************** P
0x411f50…4120e4 Dummy {f00=0x0144, f01=0x018e, f02=» - MOVSS = MOVE FROM SYSTEM AREA TO SYSTEM AREA 4 P* - MOVUS = MOVE FROM USER AREA TO SYSTEM AREA 8 4 P* - MOVSU = MOVE FROM SYSTEM AREA TO USER AREA p 2 P* - MOVUU = MOVE FROM USER AREA TO USER AREA > P* - MOVFW = MOVE FORWARD (ONLY SYSTEM A
0x4120e4…412278 Dummy {f00=0x0144, f01=0x0190, f02=» P*********** P* ENTRIES * P*********** 0 P* D P* N ( P ENTRY TMOVE TOSS MOVE LKM PROCESSOR X , P ENTRY MOVSS MOVE FROM SYSTEM TO SYSTEM * P ENTRY MOVSU MOVE FROM SYSTEM TO USER * P ENTRY MOVUS MOVE FROM USER TO SYSTEM
0x412278…41240c Dummy {f00=0x0144, f01=0x0190, f02=» P* P* P************* P* EXTERNALS * 2 P************* H P* ^ P* h * P EXTRN LKMQDI QUEUE TASK AND DISPATCH r 4 P EXTRN LKMRQE SET A7=-1, QUEUE TASK AND DISPATCH 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID
0x41240c…4125a0 Dummy {f00=0x0144, f01=0x018e, f02=» f P* P* CONDITIONAL ASSEMBLY P* 0 . P***************************************** : P* l . P* A PROGRAM VERSION USING TOSS MMU PAGING v * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P
0x4125a0…412734 (1, 1164) Dummy {f00=0x0144, f01=0x018e, f02=» P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION : P* SET FOR CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1. R P* PCPU857 EQU 0 P* P* 4 P* A PROGRAM VERSION CONTAINING SUBROUTINE MOVUU $ P* WILL EXIST B
0x412734…4128c8 Dummy {f00=0x0144, f01=0x0190, f02=» P* P* P************************ P* MOVBLK DISPLACEMENTS * 8 P************************ X P* x , P* DISPLACEMENTS IN MOVE PARAMETER BLOCK P* & PMOVTIS EQU 0 TASK ID SENDING TASK ( PMOVTIR EQU 2 TASK ID RECEIVING TAS
0x4128c8…412a5c Dummy {f00=0x0144, f01=0x0190, f02=» TO MOVE t 4 PLENGTH EQU 128 INTERMEDIATE BUFFER LENGTH WORDS P* H P EJECT TMOVE R P* h P* r P********* | P* TMOVE * P********* P* P* ( P* THIS IS THE MOVE LKM PROCESSOR. P* * P* IT IS EN
0x412a5c…412bf0 Dummy {f00=0x0144, f01=0x0190, f02=»ESS | P* PTMOVE EQU * P ENB * P* 6 P IFT MMUPAG=0 @ * P LD A1,MOVBAS,A7 SOURCE BUFFER ADDRESS V 0 P LD A2,MOVBAR,A7 DESTINATION BUFFER ADDRESS " P LD A3,MOVLEN,A7 BUFFER LENGTH P CF A15,MOVSS MOVE BUFFER P XIF
0x412bf0…412d84 Dummy {f00=0x0144, f01=0x0190, f02=» BUFFER ADDRESS SENDING TASK 4 P EL A10,MOVBAR,A8 BUFFER ADDRESS RECEIVING TASK $ , P EL A3,MOVLEN,A8 REQUESTED BUFFER LENGTH $ P ELR A7,A8 TASK ID SENDING TASK P CWK A7,'#M' * P RF(E) MOV100 MOVE FROM SYSTEM BUFFER $ P CF A15,FNDTID GET
0x412d84…412f18 Dummy {f00=0x0144, f01=0x0190, f02=» P CWK A7,'#M' ( P RF(E) MVUS10 MOVE TO SYSTEM BUFFER $ P CF A15,FNDTID GET TTAB ADDRESS D P LDR A4,A2 SAVE TTAB ADDRESS l P RF(Z) TTABNF TTAB NOT FOUND P* P EJECT TMOVE P* * P* MOVE FROM USER BUFFER TO USER BUFFER
0x412f18…4130ac Dummy {f00=0x0144, f01=0x0190, f02=» WHERE TO MOVE P* PMOV100 EQU * , P EL A7,MOVTIR,A8 TASK ID RECEIVING TASK 4 P CWK A7,'#M' d ( P RF(E) MVSS10 MOVE TO SYSTEM BUFFER x $ P CF A15,FNDTID GET TTAB ADDRESS P LDR A4,A2 P RF(Z) TTABNF TTAB NOT FOUND P*
0x4130ac…413240 Dummy {f00=0x0144, f01=0x0190, f02=» * P CF A15,MOVSU MOVE FROM SYSTEM TO USER P RF END 2 P* B , P* MOVE FROM USER BUFFER TO SYSTEM BUFFER L P* | PMVUS10 EQU * * P LDR A2,A10 DESTINATION BUFFER ADDRESS * P CF A15,MOVUS MOVE FROM USER TO SYSTEM P RF END P*
0x413240…4133d4 (1, 1165) Dummy {f00=0x0144, f01=0x018e, f02=»F A15,MOVSS MOVE FROM SYSTEM TO SYSTEM P* . P XIF 8 P* D P EJECT TMOVE N P* d P* END n P* | PEND EQU * P IFT MMUPAG=1 " P LDR A5,A12 TTAB CALLING TASK P XIF P* ( P ABL LKMQDI QUEUE TASK AND DIS
0x4133d4…413568 Dummy {f00=0x0144, f01=0x0190, f02=» v 2 P ABL LKMRQE SET A7=-1, QUEUE TASK AND DISPATCH P XIF > P EJECT J P* X P* b P* l P********* v P* MOVFW * P********* P* P* $ P* SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM B
0x413568…4136fc Dummy {f00=0x0144, f01=0x0190, f02=» A3 = BUFFER LENGTH P* > P* EXIT: A1 = SYSTEM BUFFER ADDRESS,SOURCE+BUFFER LENGTH * B P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION+BUFFER LENGTH l P* A3 = 0 P* PMOVFW EQU * PMOVBW EQU * P ADK A3,0
0x4136fc…413890 Dummy {f00=0x0144, f01=0x0190, f02=» & P LDKL A6,/8000 INDICATE A14 RETURN P RF MSS005 MOVE BUFFER . P L P T P PRTNA14 EQU * d P LD A6,-4,A14 SAVED REGISTER x P LD A5,-2,A14 SAVED REGISTER P LDR* A4,A14 SAVED REGISTER P LDK A3,0 PRETA14 EQU *
0x413890…413a24 Dummy {f00=0x0144, f01=0x0190, f02=»SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM BUFFER & P* T 0 P* ENTRY: A1 = SYSTEM BUFFER ADDRESS,SOURCE ^ 4 P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION P* A3 = BUFFER LENGTH P* > P* EXIT: A1 = S
0x413a24…413bb8 Dummy {f00=0x0144, f01=0x0190, f02=» P* P IFT MMUPAG=0 PMOVUS EQU * ( PMOVSU EQU * < PMOVUU EQU * P P XIF d P* p PMOVSS EQU * z P ADK A3,0 CHECK LENGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE A4 P STR A5,A15 SAVE A
0x413bb8…413d4c Dummy {f00=0x0144, f01=0x0190, f02=» RF(Z) MSS100 SOURCE BUFFER ADDRESS EVEN P TM A4,A2 0 2 P RF(Z) MSS110 DESTINATION BUFFER ADDRESS EVEN B P EJECT x P* 4 P* BOTH SOURCE AND DESTINATION BUFFER ADDRESS ODD P* & P LCR A5,A1 FIRST CHARACTER TO MOVE P SCR A5,A2 S
0x413d4c…413ee0 Dummy {f00=0x0144, f01=0x0190, f02=»ENT LENGTH $ P RF(NP) MOVRT1 ALL MOVED,RETURN P* : 6 P* BOTH SOURCE AND DESTINATION BUFFER ADDRESS EVEN D P* ~ PMSS010 EQU * P IFF CPUHLP+CPU852=2 P SUK A3,2 SUBTRACT LENGTH 2 P RF(N) MSS020 TEST IF LAST CHARACTER IS MOVED
0x413ee0…414074 (1, 1166) Dummy {f00=0x0144, f01=0x0190, f02=»ON BUFFER v P RB MSS010 CONTINUE MOVE P* 2 PMSS020 EQU * < P ADK A3,2 P " P RF(Z) MOVRT1 ALL MOVED,RETURN b P XIF P* P IFT CPU852=0 P IFT CPU857=1 P TM A4,A3 ( P RF(Z) MSS020 REQUESTED LENGTH EVEN " P
0x414074…414208 Dummy {f00=0x0144, f01=0x0190, f02=»ED,RETURN z P XIF P* & P LCR A5,A1 LAST CHARACTER TO MOVE ( 0 P SCR A5,A2 STORE CHARACTER IN SYSTEM BUFFER R ( P ADK A1,1 UPDATE USER BUFFER ADDRESS * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS P RF MOVRT1 RETURN P EJECT P
0x414208…41439c Dummy {f00=0x0144, f01=0x0190, f02=»R EVEN , DESTINATION BUFFER ODD P* OR ( 2 P* SOURCE BUFFER ODD , DESTINATION BUFFER EVEN 4 P* j PMSS110 EQU * t P LCR A4,A1 LOAD CHARACTER P SCR A4,A2 STORE CHARACTER $ P ADK A1,1 UPDATE SOURCE ADDRESS ( P ADK A2,1 UPDATE DES
0x41439c…414530 Dummy {f00=0x0144, f01=0x018e, f02=»PAG=1 P EJECT TMOVE P* $ P* . P********* 8 P* MOVUS * J P********* P* n P* x $ P* SUBROUTINE TO MOVE CHARACTERS ( P* FROM USER BUFFER TO SYSTEM BUFFER P* & P* ENTRY: A1 = USER BUFFER ADDRESS (
0x414530…4146c4 Dummy {f00=0x0144, f01=0x0190, f02=» 4 P* EXIT : A1 = USER BUFFER ADDRESS+BUFFER LENGTH 6 P* A2 = SYSTEM BUFFER ADDRESS+BUFFER LENGTH < P* A3 = 0 v P* PMOVUS EQU * P ADK A3,0 CHECK LENGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE
0x4146c4…414858 Dummy {f00=0x0144, f01=0x0190, f02=»4,1 MASK P TM A4,A1 " P RF(Z) MUS110 USER BUFFER EVEN " P TM A4,A2 H $ P RF(Z) MUS100 SYSTEM BUFFER EVEN Z P* P EJECT TMOVE P* ( P* USER BUFFER ODD,SYSTEM BUFFER ODD P* 0 P ELR A5,A1 FIRST CHARACTER FROM USER B
0x414858…4149ec Dummy {f00=0x0144, f01=0x0190, f02=»DECREMENT LENGTH $ P RF(NP) MOVRT3 ALL MOVED, RETURN P* @ * P* USER BUFFER EVEN,SYSTEM BUFFER EVEN J P* x PMUS010 EQU * P TM A4,A3 ( P RF(Z) MUS020 REQUESTED LENGTH EVEN " P LDK A4,0 INDICATE LENGTH ODD P* PMUS0
0x4149ec…414b80 Dummy {f00=0x0144, f01=0x0190, f02=»TER z P ECR A5,A5 P RB MUS005 =1 P* 4 P XIF > P* J P EJECT TMOVE T P* j P* t P********** ~ P* MOVRTN * P********** P* , P* COMMON RETURN LABELS FOR MOVE ROUTINES P* PMOVRT1 EQU *
0x414b80…414d14 (1, 1167) Dummy {f00=0x0145, f01=0x0190, f02=»VRT3 EQU * P TL 2,A15 SAVED MMU =2 P ADKL A15,32 =2 0 P XIF H PMOVRTN EQU * T P LDR* A5,A15 RELOAD A5 h P LDR* A4,A15 RELOAD A4 P LDK A3,0 ALL MOVED P* PMOVRT2 EQU * P RTN A15 P* P IFT MMUPAG=1
0x414d14…414ea8 Dummy {f00=0x0145, f01=0x0190, f02=»ER FROM USER BUFFER x P RF MUS125 P* . PMUS110 EQU * 8 P TM A4,A2 L $ P RB(Z) MUS010 SYSTEM BUFFER EVEN ^ P* ( P* USER BUFFER EVEN,SYSTEM BUFFER ODD P* PMUS120 EQU * P ELR A4,A1 GET TO CHARACTERS P ECR A5,A4
0x414ea8…41503c Dummy {f00=0x0145, f01=0x018e, f02=»DDRESS p P SUK A3,1 DECREMENT LENGTH $ P RB(NP) MOVRT3 ALL MOVED, RETURN 0 P* X PMUS125 EQU * b ( P ADK A1,1 UPDATE USER BUFFER ADDRESS v 0 P SCR A4,A2 STORE CHARACTER IN SYSTEM BUFFER * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS P SUK
0x41503c…4151d0 Dummy {f00=0x0145, f01=0x0190, f02=» P* ! P********* ! P* MOVSU * ! $ P********* ! 6 P* ! H P* ! R $ P* SUBROUTINE TO MOVE CHARACTERS ! ( P* FROM SYSTEM BUFFER TO USER BUFFER ! P* ! ( P* ENTRY: A1 = SYSTEM BUFFER ADDRESS ! & P* A2 = USER BUFFER ADDRESS
0x4151d0…415364 Dummy {f00=0x0145, f01=0x0190, f02=»+LENGTH ! l . P* A2 = USER BUFFER ADDRESS+LENGTH " P* A3 = 0 " B P* " Z PMOVSU EQU * " d P ADK A3,0 CHECK LENGTH " x * P RB(NP) MOVRT2 NOTHING TO MOVE, RETURN " P STR A4,A15 SAVE A4 " P STR A5,A15 SAVE A5 " P SUKL A15,32
0x415364…4154f8 Dummy {f00=0x0145, f01=0x0190, f02=» BUFFER EVEN " ~ P TM A4,A1 # $ P RF(Z) MSU100 SYSTEM BUFFER EVEN # & P* # N P EJECT TMOVE # X P* # n ( P* SYSTEM BUFFER ODD,USER BUFFER ODD # x P* # * P ELR A5,A2 USER BUFFER FIRST CHARACTER # " P LCR A5,A1 GET FIRST CHARACTER # 4 P ESR A
0x4154f8…41568c Dummy {f00=0x0145, f01=0x0190, f02=»ENT LENGTH # * P RB(NP) MOVRT3 NOTHING TO MOVE, RETURN $ P* $ @ P EJECT TMOVE $ J P* $ ` * P* SYSTEM BUFFER EVEN,USER BUFFER EVEN $ j P* $ PMSU010 EQU * $ P TM A4,A3 $ ( P RF(Z) MSU020 REQUESTED LENGTH EVEN $ P SUK A3,1 LENGTH EVE
0x41568c…415820 Dummy {f00=0x0145, f01=0x0190, f02=» ADR A1,A5 UPDATE SYSTEM BUFFER ADDRESS $ * P ADR A2,A5 UPDATE USER BUFFER ADDRESS % 0 P ADK A4,0 CHECK LENGTH % ^ $ P RB(NZ) MOVRT3 ALL MOVED, RETURN % | " P LDR* A5,A1 GET LAST CHARACTER % * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS % P* % PMSU030
0x415820…4159b4 (1, 1168) Dummy {f00=0x0145, f01=0x0190, f02=»WORD IN USER BUFFER % P ESR A5,A2 & ( P ADK A2,1 UPDATE USER BUFFER ADDRESS & . P RB MOVRT3 RETURN & Z P* & t P EJECT TMOVE & ~ P* & ( P* SYSTEM BUFFER EVEN,USER BUFFER ODD & P* & PMSU100 EQU * & P SUK A2,1 USER BUFFER EVEN & .
0x4159b4…415b48 Dummy {f00=0x0145, f01=0x0190, f02=» $ P RB(Z) MSU010 SYSTEM BUFFER EVEN ' P* ' , ( P* SYSTEM BUFFER ODD,USER BUFFER EVEN ' 6 P* ' b PMSU120 EQU * ' l " P LCR A5,A1 GET FIRST CHARACTER ' $ P ECR A5,A5 CHARACTER TO THE LEFT ' * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ' P SUK A3,1 DE
0x415b48…415cdc Dummy {f00=0x0145, f01=0x0190, f02=»R ' f $ P ESR A5,A2 STORE TWO CHARACTERS ( * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ( 2 ( P ADK A2,2 UPDATE USER BUFFER ADDRESS ( ` P SUK A3,1 DECREMENT LENGTH ( P RB(P) MSU120 MORE TO MOVE ( P RB MOVRT3 ALL MOVED, RETURN ( P* ( P XIF =3
0x415cdc…415e70 Dummy {f00=0x0145, f01=0x018e, f02=»UUMOV=2 =3 ( P EJECT TMOVE ) P* ) * P* ) 4 P********* ) > P* MOVUU * ) P P********* ) b P* ) t P* ) ~ $ P* SUBROUTINE TO MOVE CHARACTERS ) & P* FROM USER BUFFER TO USER BUFFER ) P* ) ( P* ENTRY: A1 = SOURCE BUFFER ADDRESS
0x415e70…416004 Dummy {f00=0x0145, f01=0x0190, f02=» , P* A5 = TTAB ADDRESS SENDING TASK * P* * 4 2 P* EXIT: A1,A2,A3,A8,A9,A10,A11 ARE DESTROYED * > P* * t PMOVUU EQU * * ~ P LDR A11,A3 SAVE LENGTH * * P RF(NP) MUU120 NOTHING TO MOVE, RETURN * " P LDR A9,A1 SAVE SOURCE ADDRESS * ( P L
0x416004…416198 Dummy {f00=0x0145, f01=0x0190, f02=»EDIATE BUFFER LENGTH * z 0 P RF(NP) MUU120 INTERMEDIATE BUFFER TOO SMALL + P CWR A11,A3 + P , P RF(G) MUU110 MORE THAN ONE MOVE NEEDED + d ( P LDR A3,A11 REMAINING BUFFER LENGTH + P* + PMUU110 EQU * + P LDR A8,A3 SAVE PART LENGTH + $ P LDR A
0x416198…41632c Dummy {f00=0x0145, f01=0x0190, f02=» A9,A1 SAVE NEW SOURCE ADDRESS + 0 P LDKL A1,INTBUF INTERMEDIATE BUFFER ADDRESS , & $ P LDR A2,A10 DESTINATION ADDRESS , Z P LDR A3,A8 LENGTH , * P CF A15,MOVSU MOVE FROM SYSTEM TO USER , , P LDR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x41632c…4164c0 Dummy {f00=0x0145, f01=0x40cc, f02=» , P* INTERMEDIATE BUFFER - P* - & PINTBUF EQU * - 0 P RES LENGTH - D PINTLEN EQU *-INTBUF - X P* - t P* - ~ P* - P XIF - P* - P* - P* - P END - @ - DR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x4164c0…416654 (1, 1169) Dummy {f00=0x0145, f01=0x2008, f02=» . P `
0x416654…4167e8 Dummy {f00=0x0145, f01=0x0190, f02=» P XIF / POPNR11 EQU * LINE 1 / P IFF PLCNRR=0 / , * P DATA /0103,/0400,/0D05,TIMACT,/0908,0 / B P XIF / p POPNR12 EQU * LINE 2 / | P IFF PLCNRR=0 / * P DATA /0103,/0400,/0D05,TIMACT,/0B08,0 / P XIF / POPNR13 EQU * LINE 3 / P IFF
0x4167e8…41697c Dummy {f00=0x0145, f01=0x0190, f02=» , PPLCPFP DATA 0 PLC LOCAL POWER FAIL FLAG 0 P* 0 4 ( P IFF UTTEST=0 TEST VERSION OF DRIVER 0 > P* 0 j P EJECT 0 t P* 0 ( PUTTST DATA UTTEST 1 = TRAP NOT USED 0 P* 0 P* 0 " P* QUEUE STATISTICS COUNTERS 0 & P* EACH COUNTER HAS ONE
0x41697c…416b10 Dummy {f00=0x0145, f01=0x0190, f02=» LONG BUFFERS QUEUE 0 PCCQSTA RES 8 CCA QUEUE 1 $ PSTATLN EQU *-STATAR TABLE LENGTH 1 : P* 1 b P XIF 1 l P EJECT 1 x P* 1 P* 1 P* CWT DISPLACEMENTS 1 P* 1 PCWTOPR EQU /00 CU OPERABLE 1 PCWTCCB EQU /02 CCA BUSY 1 ( PCWTG
0x416b10…416ca4 Dummy {f00=0x0145, f01=0x0190, f02=»C RCA STATUS 1 x $ PCWTLNO EQU /0C LINE NO INDICATOR 2 , PCWTPAR EQU /0E INDEX TO PARAMETER AREA 2 < 6 PCWTOPP EQU /10 OPEN LINE PARAMETER AREA ADDRESS =2 2 l $ PCWTINT EQU /12 WS TABLE ADDRESS 2 ( PCWTBUF EQU /14 INP. BUFFER ADDRESS 2 2 PCWTSBQ EQU /16
0x416ca4…416e38 Dummy {f00=0x0145, f01=0x0190, f02=»TMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS 2 " PCWTTPR EQU /1E TIMER POINTER 3 4 $ PCWTCIO EQU /20 CIO START INSTR. 3 Z PCWTST3 EQU /22 SST INSTR. 3 . PCWTCSD EQU /24 CTRL UNIT START DESCRIPTOR 3 , PCWTCID EQU /2A CTRL UNIT INTERF. DESCR. 3 & PCW
0x416e38…416fcc Dummy {f00=0x0145, f01=0x0190, f02=»TPBL EQU /5E POOLBL. LONG OUTP. BUFFERS =2 3 0 PCWTPBG EQU /68 POOLBL. GENERAL READ BUFFERS 4 2 PCWTWSS EQU /72 WS STATUS 4 f . PCWTSOB EQU /72+MAXWS+1 SH. OUTP. BUFFERS 4 0 PCWTLOB EQU CWTSOB+SOBUFS LONG OUTP. BUFFERS 4 . PCWTGRB EQU CWTLOB+LOBUFS G
0x416fcc…417160 Dummy {f00=0x0145, f01=0x0190, f02=»* 4 P* FLAGS 5 P RES 1 PLC OPERABLE FLAG 5 " P DATA 0 CCA BUSY FLAG (0=FREE) 5 > , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) 5 d P* 5 P* DATA WORDS 5 P DATA 0 PLC NUMBER (0-3) 5 . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) 5 "
0x417160…4172f4 (1, 1170) Opaque[0x194]
0x4172f4…417488 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28b8, f03=0x0000}
0x4172f4…417488 IdxSect {
0x4172f4…417488 f00 = 0x0145 // 0x4172f4 @0x0
0x4172f4…417488 f01 = 0x0024 // 0x4172f6 @0x2
0x4172f4…417488 gno = [ // 0x4172f8 @0x4
0x4172f4…417488 [0x00]: C0x0145.0x3.0
0x4172f4…417488 [0x01]: C0x0146.0x0.0
0x4172f4…417488 [0x02]: C0x0146.0x1.0
0x4172f4…417488 [0x03]: C0x0146.0x2.0
0x4172f4…417488 [0x04]: C0x0146.0x3.0
0x4172f4…417488 [0x05]: C0x0147.0x0.0
0x4172f4…417488 [0x06]: C0x0147.0x1.0
0x4172f4…417488 [0x07]: C0x0147.0x2.0
0x4172f4…417488 [0x08]: C0x0147.0x3.0
0x4172f4…417488 [0x09]: C0x0148.0x0.0
0x4172f4…417488 [0x0a]: C0x0148.0x1.0
0x4172f4…417488 [0x0b]: C0x0148.0x2.0
0x4172f4…417488 [0x0c]: C0x0148.0x3.0
0x4172f4…417488 [0x0d]: C0x0149.0x0.0
0x4172f4…417488 [0x0e]: C0x0149.0x1.0
0x4172f4…417488 [0x0f]: C0x0149.0x2.0
0x4172f4…417488 [0x10]: C0x0149.0x3.0
0x4172f4…417488 [0x11]: C0x014a.0x0.0
0x4172f4…417488 ]
0x4172f4…417488 }
0x417488…41761c Dummy {f00=0x0145, f01=0x0190, f02=» 2 P IDENT TOSSIO REL 11.0 81-04-13 870105041100 P : ( P =4, CPU857 DEFINITION NOT CORRECT B P =4, REL 11.0 81-03-18 n . P =3, ORDERS IN ORDTAB CHANGED TO FIT TND P =3, REL 11.0 81-02-25 & P =2, CORRECTION OF UPDATE =1 =1
0x41761c…4177b0 Dummy {f00=0x0145, f01=0x0190, f02=»********************************************** P* 6 $ P* PHILIPS TERMINAL SYSTEM PTS @ P* h ( P* TOSSIO = TOSS I/O LKM PROCESSOR r P* P* P* 6 P************************************************** P* P* ,
0x4177b0…417944 Dummy {f00=0x0145, f01=0x018e, f02=»ALIZE I/O ~ P* P* -TENDIO END I/O P* 8 P* -ATTACH ATTACH DEVICE B P* d P* -DETACH DETACH DEVICE n P* 8 P* -DC:MIN DATA COMMUNICATION MOVE ROUTINE (READ) P* 8 P* -DC:MOT DATA COMMUNICATION MOVE ROU
0x417944…417ad8 Dummy {f00=0x0145, f01=0x0190, f02=» 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AREAS. D P* r P EJECT TOSSIO | P* P* P*********** P* ENTRIES * P*********** P* P* P ENTRY TIO I/O P
0x417ad8…417c6c Dummy {f00=0x0145, f01=0x0190, f02=»D I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN DEVICE QUEUE B 2 P ENTRY DC:MIN MOVE ROUTINE FOR DATACOM, INPUT z 2 P ENTRY DC:MOT MOVE ROUTINE FOR DATACOM, OUTPUT 6 P ENTRY TIOMXI CONVERT LOGICAL ADDR
0x417c6c…417e00 Dummy {f00=0x0145, f01=0x018e, f02=»NTRY ECBBA BUFFER ADDRESS " P ENTRY ECBRL REQUESTED LENGTH " " P ENTRY ECBEL EFFECTIVE LENGTH H P ENTRY ECBRC RETURN CODE n P ENTRY ECBCW CONTROL WORD P ENTRY ECBCW1 CONTROL WORD 1 P ENTRY ECBCW2 CONTROL WORD 2 2 P ENTRY DC:DIX DE
0x417e00…417f94 (1, 1171) Dummy {f00=0x0146, f01=0x0190, f02=» ` 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW < 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION l $ P ENTRY DK:DIX DEVICE INDEX DISC $ P ENTRY BUFLEN MMU BUFFER LENGTH P* P EJECT
0x417f94…418128 Dummy {f00=0x0146, f01=0x0190, f02=»ADDRESS x 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) F " P ENTRY RECADR RECOVERY ADDRESS ~ P ENTRY ECHADR ECHO ADDRESS $ P ENTRY DWTCHP CHANNEL PARAMETERS P ENTRY DWTST STATUS
0x418128…4182bc Dummy {f00=0x0146, f01=0x0190, f02=» ( P ENTRY DWTOCH LAST OUTPUT CHARACTER & P ENTRY DWTADR DRIVER ADDRESS BLOCK 0 P ENTRY DWTTAB TTAB ADDRESS Z * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR | P ENTRY DWTTQ TERMINAL QUEUE $ P ENTRY DWTOTQ OUTPUT QUEUE LINK " P ENTRY DWTUEC USER
0x4182bc…418450 Dummy {f00=0x0146, f01=0x0190, f02=»A4 SAVE AREA A4 P ENTRY DWTA5 SAVE AREA A5 & P ENTRY DWTSB1 STACK BASE 1 IN DWT : & P ENTRY DWTSB2 STACK BASE 2 IN DWT d P ENTRY DWTTP TIMER POINTER " P ENTRY DWTECH ECHO DEVICE DWT P ENTRY DWTSQ START OF QUEUE , P ENTRY DWTORD
0x418450…4185e4 Dummy {f00=0x0146, f01=0x018e, f02=»AREA A7 ~ P ENTRY DWTA8 SAVE AREA A8 & P ENTRY DWTCP2 CHANNEL PARAMETERS 2 2 * P ENTRY DWTLD1 LINE DRIVER DEPENDENT 1 * P ENTRY DWTLD2 LINE DRIVER DEPENDENT 2 ( P ENTRY DWTDEV TERMINAL DEVICE STATUS * P ENTRY DWTTBU PLC TEST BUFFER ADDRES
0x4185e4…418778 Dummy {f00=0x0146, f01=0x0190, f02=» P* P************* P* EXTERNALS * $ P************* : P* P P* Z " P EXTRN SAVE8 SAVE 8 REGISTERS d 0 P EXTRN IHRET8 RESTORE 8 REGISTERS AND RETURN 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS & P EXTRN ACTOTP ACTI
0x418778…41890c Dummy {f00=0x0146, f01=0x0190, f02=» EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * P EXTRN LKMQDI QUEUE TASK AND DISPATCH 6 * P EXTRN LKMERR HALT SYSTEM, FATAL ERROR d , P EXTRN GETBLK PUT BLOCK IN PENDING QUEUE 2 P EXTRN FREBLK RELEASE BLOCK FROM PENDING QUEUE P EXTRN SETIMP SE
0x41890c…418aa0 Dummy {f00=0x0146, f01=0x0190, f02=» EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:SA SAVE AREA * P EXTRN TTB:MT MMUTAB J P EXTRN HALT =1 f P* ~ P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x418aa0…418c34 (1, 1172) Dummy {f00=0x0146, f01=0x018e, f02=»NED BY SETTING MMUPAG EQU 1. P* $ PMMUPAG EQU 0 . P* B P* L 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION V . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P* 0 P* A PROGRAM VERSION
0x418c34…418dc8 Dummy {f00=0x0146, f01=0x018e, f02=» P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY SETTING CPU857 EQU 1. F P* t PCPU857 EQU 0 =4 ~ P* PX:C EQU 0 PTC8000 EQU X:C P EJECT TOSSIO P* P* P******************
0x418dc8…418f5c Dummy {f00=0x0146, f01=0x0190, f02=» ~ P* P* P********************* P* DWT DISPLACEMENTS * : P********************* X P* v 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART P* & PDWTCHP EQU /00 CHANNEL PARAMETERS PDWTST EQU /02 STATUS PDW
0x418f5c…4190f0 Dummy {f00=0x0146, f01=0x0190, f02=» ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK 0 PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 USER ECB ADDRESS " PDWTMEC EQU /12
0x4190f0…419284 Dummy {f00=0x0146, f01=0x018e, f02=»FT MMUPAG=1 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART P XIF L P* X P EJECT TOSSIO b P* z , P* DWT DISPLACEMENTS: DRIVER DEFINED PART P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE LINK & PDWTA2 EQU DWTDRD+/02 SAVE
0x419284…419418 Dummy {f00=0x0146, f01=0x0190, f02=» l . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT : & PDWTTP EQU DWTDRD+/10 TIMER POINTER l 4 PDWTORD EQU DWTDRD+/10 SAVE AREA INDEX AND ORDER & PDWTA7 EQU DWTDRD+/10 SAVE AREA A7 & PDWTA8 EQU DWTDRD
0x419418…4195ac Dummy {f00=0x0146, f01=0x0190, f02=» EQU DWTDRD+/16 LINE DRIVER DEPENDENT 1 2 PDWTLD2 EQU DWTDRD+/18 LINE DRIVER DEPENDENT 2 0 0 PDWTDEV EQU DWTDRD+/1A TERMINAL DEVICE STATUS f P 2 PDWTTBU EQU DWTDRD+/1A PLC TEST BUFFER ADDRESS * PDWTVOL EQU DWTDRD+/1A DISC VOLUME NAME * PDW
0x4195ac…419740 Dummy {f00=0x0146, f01=0x0190, f02=» h ( PDWTSQ EQU DWTDRD+/2A START OF QUEUE P* 4 P EJECT TOSSIO > P* V P* ` P********************* j P* DAB DISPLACEMENTS * P********************* P* ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS P* & PKEYL
0x419740…4198d4 (1, 1173) Dummy {f00=0x0146, f01=0x0190, f02=»ADDRESS x PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS 2 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) X 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) " PRECADR EQU 6 RECOVERY ADDRESS PECHADR EQU 8 ECHO ADDRESS
0x4198d4…419a68 Dummy {f00=0x0146, f01=0x0190, f02=» J P* THE VALUES ARE USED IN MMU SYSTEMS FOR SELECTING A SPECIAL ROUTINE F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. R P* $ PDC:DIX EQU -2 DATA COMMUNICATION PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMME
0x419a68…419bfc Dummy {f00=0x0146, f01=0x0190, f02=»:DIX EQU 10 DISC P* P EJECT TOSSIO " P* : P* D P********************* N P* ECB DISPLACEMENTS * l P********************* P* ( P* EVENT CONTROL BLOCK DISPLACEMENTS P* PECBFC EQU 1 FILE CODE PEC
0x419bfc…419d90 Dummy {f00=0x0146, f01=0x0190, f02=»ECBRC EQU 8 RETURN CODE PECBCW EQU 10 CONTROL WORD PECBCW1 EQU 10 CONTROL WORD 1 B PECBCW2 EQU 12 CONTROL WORD 2 f P* P EJECT TOSSIO P* P* P IFT MMUPAG=1 P* P* P********** P* TIOTAB *
0x419d90…419f24 Dummy {f00=0x0146, f01=0x0190, f02=»TINE ADDRESS TABLE t . P DATA TIO:DM DATA MANAGEMENT, INPUT/OUTPUT * P DATA TIOPCI PROGRAMMED CHANNEL, INPUT L P DATA TIOMXI MUX, INPUT z $ P DATA TIOKBI KEYBOARD/CTW, INPUT 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT P* PTINDEX E
0x419f24…41a0b8 Dummy {f00=0x0146, f01=0x0190, f02=»A TIOKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT & P DATA TIODKO DISC, OUTPUT Z P* | P EJECT TOSSIO P* P* P********** P* TENTAB * P********** P* @ P* TENTAB CONTAINS ADDR
0x41a0b8…41a24c Dummy {f00=0x0146, f01=0x0190, f02=»NT, INPUT/OUTPUT v * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT F $ P DATA TENKBI KEYBOARD/CTW, INPUT f 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT P DATA TENDKI DISC, INPUT , P DATA TENPCO PROGRAMMED CHANNEL, OUTPU
0x41a24c…41a3e0 Dummy {f00=0x0146, f01=0x0190, f02=» DATA TENDKO DISC, OUTPUT P XIF " P* . P EJECT TOSSIO 8 P* P P* Z P********** d P* MONMMU * v P********** P* P* MONITOR (SYSTEM) MMU TABLE P* PMONMMU EQU * P IFT MMUPAG=1 " P DATA /0000,
0x41a3e0…41a574 (1, 1174) Dummy {f00=0x0146, f01=0x0190, f02=» P XIF P* P EJECT TOSSIO P* 2 P* < P IFT ATTDET=1 F P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH f P* P* T I M O U T P* P* INPUT: A1 = DWT ADDRESS . P* A2 = ADDRESS TO 2ND TI
0x41a574…41a708 Dummy {f00=0x0146, f01=0x018e, f02=» A1-A3 ARE DESTROYED P* $ PTIMOUT LDR A6,A1 . & P LDR* A2,A2 TIMER POINTER ADDRESS F P LD A5,2,A2 TTAB ADDRESS p P CF A15,FNDBLK P LDR* A1,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK P* P EJECT
0x41a708…41a89c Dummy {f00=0x0146, f01=0x0190, f02=» P* PTIM:10 LDR A2,A1 SAVE P LDR* A1,A1 NEXT IN QUEUE , , P RF(Z) TIM:20 ERROR IN QUEUE HANDLING =1 N P CWR A1,A5 ~ P RB(NE) TIM:10 NOT FOUND P* P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE P*
0x41a89c…41aa30 Dummy {f00=0x0146, f01=0x0190, f02=»A+16,A5 ECB ADDRESS FROM A8 SAVE AREA P LDK A3,/40 SET TIMEOUT BIT ! . P* ! R P IFT MMUPAG=0 ! * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB ! r P XIF ! P* ! P IFT ATTDET=1 ! P IFT MMUPAG=1 ! . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM
0x41aa30…41abc4 Dummy {f00=0x0146, f01=0x0190, f02=»TTDET=1 ! & P RF TIORTN QUEUE TASK AND DISPATCH " PTIM:20 EQU * =1 " : P LDK A1,1 INDICATE ERROR =1 " R P CF A15,HALT =1 " v P* " P EJECT TOSSIO " P* " P* F N D B L K " P* " ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH " P*
0x41abc4…41ad58 Dummy {f00=0x0146, f01=0x018e, f02=»RESS IF FOUND, ELSE 0 " x P* # ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS # ( P* # T PFND:10 LDR A2,A4 SAVE A4 # ^ 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:20 EQU * # P
0x41ad58…41aeec Dummy {f00=0x0146, f01=0x0190, f02=» P XIF $ P* $ P IFT ATTDET=1 $ & PATT:CH DATA 0 ATTACH CHAIN ANCHOR $ 0 P* $ Z P EJECT $ d P* $ r P* F R A B L K =1 $ | P* $ 0 P* FREE BLOCK AND TIMER IN ATT:CH IF FOUND =1 $ P* $ P* INPUT: A5=TTAB ADDRESS =1 $ P* $
0x41aeec…41b080 Dummy {f00=0x0146, f01=0x0190, f02=» ATT:CH =1 $ t P ADK A4,0 SET CR =1 % . P RF(Z) FRAEND TASK NOT FOUND IN ATT:CH =1 % . P CM* 2,A4 FREE TIMER =1 % ` & P LDR* A3,A4 REMOVE FROM ATTACH =1 % P STR A3,A2 =1 % $ P CF A15,FREBLK RELEASE BLOCK =1 % PFRAEND EQU * =1 % P LDR* A1
0x41b080…41b214 (1, 1175) Dummy {f00=0x0147, f01=0x0190, f02=»******** % P* & P* & * P* THIS MODULE IS CALLED FROM TIO WITH & $ P* THE FOLLOWING PARAMETERS: & R P* & v & P* A3 /8000 (REQUEST ERROR BIT) & & P* A4 I/O AND ACTIVATE INDICATOR & P* A5 TTAB ADDRESS & P* A6 DWT ADDRESS &
0x41b214…41b3a8 Dummy {f00=0x0147, f01=0x018e, f02=» P* A13 DWT STATUS ' P* ' PATTACH EQU * ENTRY ' ( P ADK A4,0 SET CR ' B * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR ' Z P* ' P IFT MMUPAG=0 ' " P CM ECBRC,A8 RESET RETURN CODE ' P XIF ' P* ' P IFT ATTDET=1 ' P IFT MMUPAG=1
0x41b3a8…41b53c Dummy {f00=0x0147, f01=0x018e, f02=» P TM A10,A13 ( * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED ( P LDR A13,A13 ( F P RF(NN) ATT:50 DEVICE BUSY ( Z P* ( | P* ATTACH REQUESTING TASK ( P* ( P ORS A10,DWTST,A6 ATTACH ( , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT ( P RF
0x41b53c…41b6d0 Dummy {f00=0x0147, f01=0x0190, f02=» ( ~ P* ) P* SET TIMER ) P* ) * P IFT MMUPAG=0 ) 4 P LD A1,ECBCW,A8 TIME ) J P XIF ) f P* ) r P EJECT TOSSIO ) | P* ) P* ) P IFT ATTDET=1 ) P IFT MMUPAG=1 ) P EL A1,ECBCW,A8 TIME ) P XIF ) P* ) P I
0x41b6d0…41b864 Dummy {f00=0x0147, f01=0x0190, f02=» TTAB ADDRESS ) P LD A3,ATT:CH ANCHOR * P CF A15,GETBLK BLOCK * 2 P ST A4,ATT:CH UPDATE ANCHOR * N $ P ADK A4,2 TIMER POINTER ADDRESS * r P LDR A1,A6 DWT ADDRESS * P CF A15,SETIMP SET TIMER * P DATA TIMOUT * P* * PATTIM DATA 0 *
0x41b864…41b9f8 Dummy {f00=0x0147, f01=0x018e, f02=»OERR RETURN * P* + P EJECT TOSSIO + P* + 6 P* + @ P********** + J P* DETACH * + P********** + n P* + * P* THIS MODULE IS CALLED FROM TIO WITH + $ P* THE SAME PARAMETERS AS ATTACH. + P* + PDETACH EQU * + P ADK A4,0
0x41b9f8…41bb8c Dummy {f00=0x0147, f01=0x0190, f02=» * P RF(NE) TIOERR ATTACHED TO OTHER TASK , P XRS A10,DWTST,A6 DETACH , 2 $ P LDR A7,A5 SAVE TTAB ADDRESS =1 , R P LD A5,DWTTQ,A6 QUEUE ANCHOR , z P RF(Z) DET:10 QUEUE EMPTY , 2 P CF A15,FRABLK FREE ATTACH BLOCK AND TIMER =1 , & P LDR* A3,A5 UPDATE
0x41bb8c…41bd20 Dummy {f00=0x0147, f01=0x018e, f02=»B ADDRESS =1 , z P* - 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT - PDETRTN LDK A3,0 RETURN CODE - T P XIF - x P* - P EJECT TOSSIO - P* - P* - P********** - P* TIOERR * - P********** - P* - P* ERROR: FILE
0x41bd20…41beb4 (1, 1176) Dummy {f00=0x0147, f01=0x0190, f02=» P IFT MMUPAG=0 . * P ST A3,ECBRC,A8 SET RETURN CODE IN ECB . ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH . H P XIF . t P* . P IFT MMUPAG=1 . * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB . P LDK A3,0 . * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH .
0x41beb4…41c048 Dummy {f00=0x0147, f01=0x0190, f02=»* . P**************** / P* QUEUE DEVICE * / " P**************** / : P* / R P* / 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. / f > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON / @ P* WHETHER THE DEVICE IS AN ECHO DEVI
0x41c048…41c1dc Dummy {f00=0x0147, f01=0x0190, f02=»O THE TASK OR NOT. / d P* 0 P IFT ATTDET=1 0 $ P* 0 : P* QUEUE ECHO DEVICE FIRST 0 D P* 0 f PTIOQ00 LDR A6,A2 0 p P* 0 P* QUEUE DEVICE FIRST 0 P* 0 $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR 0 P LDR A2,A6 0 P LDR* A6,A6 0 $ P R
0x41c1dc…41c370 Dummy {f00=0x0147, f01=0x0190, f02=»BY FILE MANAGEMENT 0 x $ PTIOQ20 ADK A6,DWTTQ QUEUE ANCHOR 1 P* 1 B . PQUEFIL EQU * ENTRY USED BY FILE MANAGEMENT 1 L P LD A1,TTB:ST+1,A5 LEVEL 1 ~ P* 1 P EJECT TOSSIO 1 P* 1 * P* SEARCH QUEUE FOR PLACE OF INSERTION 1 P* 1 PTIOQ30
0x41c370…41c504 Dummy {f00=0x0147, f01=0x0190, f02=»NL) TIOQ30 TRY NEXT 1 P* 2 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 2 & P* 2 Z PTIOQ40 LDKL A3,-4 2 d P STR A6,A5 INSERT IN QUEUE 2 ~ P STR A5,A2 2 P ADK A4,0 SET CR 2 P RF(Z) TIOQ50 NO ACTIVATION 2 P SUK A3,2 ACTIVATION 2
0x41c504…41c698 Dummy {f00=0x0147, f01=0x0190, f02=» 2 P EJECT TOSSIO 3 P* 3 P* 3 * P******* 3 4 P* TIO * 3 D P******* 3 T P* 3 d P* 3 n 4 P* THIS MODULE IS ENTERED WHEN TASK INPUT/OUTPUT 3 x 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED 3 4 P* DUE TO E.G. BUSY DEVICE, THE REQ
0x41c698…41c82c Dummy {f00=0x0147, f01=0x0190, f02=»ENT SUBROUTINES ARE PERFORMED. 3 P* 4 & 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 4 0 & P* WITH THE FOLLOWING PARAMETERS:- 4 j P* 4 . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 4 P* 4 $ P* A4 = ZERO, NORMAL I/O REQUEST 4 ( P*
0x41c82c…41c9c0 Dummy {f00=0x0147, f01=0x0190, f02=»DRESS 4 P* 5 P EJECT TOSSIO 5 P* 5 0 P* 5 : < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 5 D * P* WITH THE FOLLOWING REGISTER VAULES:- 5 P* 5 P* A5 = STACK BASE 2 IN DWT 5 P* 5 P* A6 = DWT ADDRESS 5 P*
0x41c9c0…41cb54 (1, 1177) Dummy {f00=0x0147, f01=0x0190, f02=» 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 6 . P* = 1, " " " " USER MODE 6 8 P* 6 j P* 6 t , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 6 ~ P* 6 " P* -DWTOR DWT INDEX AND ORDER 6 P* -DWTECB ECB ADDRESS 6 $ P* -DWTST R
0x41cb54…41cce8 Dummy {f00=0x0147, f01=0x018e, f02=»YSTEMS) 6 n P* 7 P* 7 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 7 $ P* 7 R P* -BIT 0 IN THE FIRST WORD 7 P* -ECBEL EFFECTIVE LENGTH 7 P* -ECBRC RETURN CODE 7 P* 7 P EJECT TOSSIO 7 P* 7 . P* DWT ADDRESS AND CHECK IF
0x41cce8…41ce7c Dummy {f00=0x0147, f01=0x0190, f02=» P CF A15,SWITCH SWITCH LEVEL 8 P INH 8 ( P LDKL A3,/8000 8 4 P ADK A6,0 SET CR 8 J $ P RB(Z) TIOERR FILE CODE UNKNOWN 8 b 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A13,DWTST,A6 DWT STATUS 8 P* 8 P EJECT TOSSIO 8
0x41ce7c…41d010 Dummy {f00=0x0147, f01=0x0190, f02=»IT 8 x P CCK A7,/BB00 9 P RB(E) ATTACH ATTACH ORDER 9 P CCK A7,/BC00 9 B P RB(E) DETACH DETACH ORDER 9 X P TM A10,A13 9 z P RF(Z) TIO020 NOT ATTACHED 9 P CW A5,DWTTAB,A6 9 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 9 P TM A3,A13 9 " P
0x41d010…41d1a4 Dummy {f00=0x0147, f01=0x0190, f02=» RB(Z) TIOQ20 DEVICE BUSY 9 P* : " P EJECT TOSSIO : , P* : D H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED : N P* : * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX : P LDK A2,/40 CHECK IF ECHO : P ANR A2,A7 : P R
0x41d1a4…41d338 Dummy {f00=0x0147, f01=0x018e, f02=»NOT ALLOWED IF NOT KEYBOARD : | , P LD A2,DWTECH,A6 ECHO DEVICE DWT ADDRESS ; $ P RF(Z) TIO070 NO ECHO DEVICE ; T $ P LD A14,DWTST,A2 ECHO DWT STATUS ; x P* ; P IFT ATTDET=1 ; P TM A10,A14 ; * P RF(Z) TIO050 ECHO DEVICE NOT ATTACHED ; P CW A5
0x41d338…41d4cc Dummy {f00=0x0147, f01=0x0190, f02=» & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE < P XIF < . P* < : P EJECT TOSSIO < D P* < P* < f PTIO050 TM A3,A14 < p " P RB(Z) TIOQ10 ECHO DEVICE BUSY < P* < PTIO060 LDKL A3,/A000 < : P XRS A3,DWTST,A2 UPDATE BUSY & ECHO BITS IN DWT STAT
0x41d4cc…41d660 Dummy {f00=0x0147, f01=0x0190, f02=» < P IFT MMUPAG=1 = P LD A13,TTB:PW,A5 PSW = $ P ANKL A13,1 SYSTEM/USER MODE BIT = < $ P RF(NZ) TIO100 JUMP IF USER MODE = d P LDKL A2,/7FFF = , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE = , P ST A8,DWTECB,A6 SET ACTUAL ECB ADDRESS = ( P CM EC
0x41d660…41d7f4 (1, 1178) Dummy {f00=0x0147, f01=0x0190, f02=» P* MOVE USER ECB TO DWT ECB > P* > & PTIO100 EQU * > 0 P LDKL A2,/4FFF > D * P ELR A3,A8 LOAD FIRST WORD OF USER ECB > Z 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE > P ESR A3,A8 > ( P LD A2,DWTMEC,A6 DWT MMU ECB ADDRESS > , P ST A2,DWTECB,
0x41d7f4…41d988 Dummy {f00=0x0147, f01=0x0190, f02=»S A3,ECBEL,A8 RESET EFFECTIVE LENGTH > & P ES A3,ECBRC,A8 RESET RETURN CODE ? , P* ? V P LDR A10,A1 SAVE PARAMETER ? ` P LDR A1,A8 ? P ADK A1,ECBRL ? ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ? P ADK A2,ECBRL ? P LDK A3,8 ? . P MVUS A3 M
0x41d988…41db1c Dummy {f00=0x0147, f01=0x0190, f02=» ? , P ANRS A3,A8 RESET BIT 0 IN ECB FILE CODE @ ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH @ 8 $ P CM ECBRC,A8 RESET RETURN CODE @ d P XIF @ P* @ P EJECT TOSSIO @ P* @ P* @ PTIO110 EQU * @ P ECR A3,A7 @ P ANK A3,/FF ORDER OP
0x41db1c…41dcb0 Dummy {f00=0x0147, f01=0x0190, f02=»DR A3,A7 @ P ANK A7,/3F A ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT A $ 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRESS IN DWTTAB A P P* A PTIO130 EQU * A P IFT MMUPAG=0 A & P ST A8,DWTECB,A6 SET ECB ADDRESS A P XIF A P* A P EJECT TOSSIO
0x41dcb0…41de44 Dummy {f00=0x0147, f01=0x0190, f02=»CTIVATION A x 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED B P RF(Z) TIO220 NOT WAIT B J P LDK A4,1 INDICATE WAIT B h P RF TIO230 B P* B P* I/O WITH ACTIVATION B P* B < PTIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS B
0x41de44…41dfd8 Dummy {f00=0x0147, f01=0x0190, f02=» ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR B P* C 6 P EJECT TOSSIO C @ P* C X P* C b P IFT MMUPAG=1 C l * P LDR A13,A13 CHECK IF SYSTEM/USER MODE C & P RF(Z) TIO250 JUMP IF SYSTEM MODE C " P LD A3,DEVIND,A12 DEVICE INDEX C , P RF(N) T
0x41dfd8…41e16c Dummy {f00=0x0147, f01=0x0190, f02=»C C z ( P CF A15,TIOCW2 MOVE 2ND CONTROL WORD D P* D 6 " P* PERFORM CHECK ON ORDER CODE D @ P* D f PTIO235 EQU * D p P LDR A4,A7 ORDER CODE D 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE D . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER D P
0x41e16c…41e300 Dummy {f00=0x0147, f01=0x0190, f02=»NB GIVE OTHER TASKS A CHANCE D P* E & * PTIO260 LDK A5,DWTSB2 LOAD STACK BASE 2 E 0 P ADR A5,A6 E ^ P INH E p & P ABR* A12 GO TO DRIVER ACTIVATION E | P* E P EJECT TOSSIO E P* E P* E P********** E P* SWITCH * E P********
0x41e300…41e494 (1, 1179) Dummy {f00=0x0148, f01=0x018e, f02=»" 16 E r ( P* IF CPU857, " " " " 16 F P* F : $ P* A3 IS DESTROYED, AND SO IS CR F D P* F l & PSWITCH EQU * SWITCH LEVEL ON STACK F v P IFT TC8000=0 F P IFF CPU852+CPU857=0 =4 F P LDK A3,/40 LEVEL 16 F P XIF F P IFT TC800
0x41e494…41e628 Dummy {f00=0x0148, f01=0x0190, f02=» F r P XIF G P* G P* G ( P SC A3,2,A15 SET NEW LEVEL ON STACK G ( " P RTN A15 RETURN WITH NEW LEVEL G T P* G z P EJECT TOSSIO G P* G P* G P IFT MMUPAG=0 G 0 PTIOMXI EQU * DUMMY ENTRY IN NON-MMU SYSTEMS G P XIF G P*
0x41e628…41e7bc Dummy {f00=0x0148, f01=0x0190, f02=»D BY 'TIO' AND 'TENDIO' FOR SELECTING G z @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING H . > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). H r > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER ON STACK IS H * P* SET TO ZERO, ELS
0x41e7bc…41e950 Dummy {f00=0x0148, f01=0x0190, f02=»EX FOR USE IN THE INDEXED BRANCHING H ~ . P* CR = 0 IF NO READ/WRITE REQUEST I , , P* CR <> 0 IF READ/WRITE REQUEST I ^ P* A4 IS DESTROYED I P* I , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT I P ANK A4,/3F I P* I * PRD:WR2 A
0x41e950…41eae4 Dummy {f00=0x0148, f01=0x0190, f02=» I f P SUK A4,1 J $ P ADR A3,A4 ADD READ/WRITE INDEX J ( P ABR* A15 RETURN WITHOUT CHANGING CR J B P* J n P EJECT TOSSIO J x P* J P* J P********** J P* ORDTAB * J P********** J P* J 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS
0x41eae4…41ec78 Dummy {f00=0x0148, f01=0x018e, f02=»AB EQU * ORDER CONSTANTS J P BYTES 0,1 /00, /01 K P BYTES 1,1 /02, /03 K < P BYTES 0,TINDEX+1 /04, /05 K X & P BYTES TINDEX+1,TINDEX+1 /06, /07 K z P BYTES TINDEX+1,0 /08, /09 K P BYTES 1,TINDEX+1 /0A, /0B K P BYTES 0,0 /0C, /0D K P BYT
0x41ec78…41ee0c Dummy {f00=0x0148, f01=0x0190, f02=» K z P BYTES 0,0 /18, /19 L P BYTES 0,0 /1A, /1B L $ P BYTES 0,0 /1C, /1D L @ P BYTES 0,0 /1E, /1F L P BYTES 0,TINDEX+1 /20, /21 L x P BYTES TINDEX+1,0 /22, /23 L P BYTES TINDEX+1,0 /24, /25 L P BYTES 0,TINDEX+1 /26, /27 L P BYTES 0
0x41ee0c…41efa0 Dummy {f00=0x0148, f01=0x0190, f02=», /31 L P BYTES 0,0 /32, /33 M P BYTES 0,0 /34, /35 M * P BYTES 0,0 /36, /37 M F P BYTES 0,0 /38, /39 M b P BYTES 0,0 /3A, /3B M ~ P BYTES 0,0 /3C, /3D M P BYTES 0,0 /3E, /3F M P* M P EJECT TOSSIO M P* M P* T I O :
0x41efa0…41f134 (1, 1180) Dummy {f00=0x0148, f01=0x0190, f02=»PONDING MODULE CALLED BY 'TENDIO' AT M , P* COMPLETION OF THE REQUEST IS 'TEN:DM'. N , P* N " P* INPUT: A8 = DWT ECB ADDRESS N f $ P* A9 = USER ECB ADDRESS N P* N P* OUTPUT: A2 IS DESTROYED N P* N . PTIO:DM EQU * DATA MANAGEMENT,
0x41f134…41f2c8 Dummy {f00=0x0148, f01=0x0190, f02=»ECOND CONTROL WORD N ~ P ST A2,ECBCW2,A8 O P* O 2 PA15RTN EQU * O < P RTN A15 O P P* O ` P EJECT TOSSIO O j P* O P* T I O P C I O P* O B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN O > P* ISSUED AND THE DEVIC
0x41f2c8…41f45c Dummy {f00=0x0148, f01=0x0190, f02=»NDING ON THE USER BUFFER ADDRESS. O z 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT P * , P* COMPLETION OF THE REQUEST IS 'TENPCI'. P b 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. P P* P " P* INPUT: A8 = DWT ECB ADDRESS P $ P* A9 =
0x41f45c…41f5f0 Dummy {f00=0x0148, f01=0x0190, f02=»QU * PROGRAMMED CHANNEL, INPUT P $ P LD A1,ECBRL,A8 REQUESTED LENGTH Q & 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE Q N 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE Q P* Q . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' Q ( P EL A1,ECBBA,A
0x41f5f0…41f784 Dummy {f00=0x0148, f01=0x0190, f02=» Q 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN R P ANS A1,ECBBA,A8 R < P RTN A15 R T P* R d P EJECT TOSSIO R n P* R P* T I O M X I R P* R B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN R > P* ISSUED AND THE D
0x41f784…41f918 Dummy {f00=0x0148, f01=0x0190, f02=»UX BY THE DRIVER. R z 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT S , P* COMPLETION OF THE REQUEST IS 'TENMXI'. S R N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. S P* S P* INPUT: A5 = TTAB ADDRESS S " P*
0x41f918…41faac Dummy {f00=0x0148, f01=0x0190, f02=»FFER ADDRESS IS TRANSFERRED TO DWT ECB S x P* T . PTIOMXI EQU * MUX, INPUT T 8 P LDK A1,0 T X 2 P EL A2,ECBBA,A9 USER BUFFER ADDRESS (LOGICAL) T j " P DLL 4 4 LEFTMOST BITS INTO A1 T P ADR A1,A1 DOUBLE INDEX T P ADR A1,A5 T " P LC A1,TTB:MT,A1
0x41faac…41fc40 Dummy {f00=0x0148, f01=0x0190, f02=» T d 0 P ST A2,ECBBA,A8 BITS 2-17 IN 18-BIT ADDRESS U P RTN A15 U < P* U L P EJECT TOSSIO U V P* U n P* T I O K B I U x P* U B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN U N P* ISSUED AND THE DEVICE IS KEYBOARD/CTW. T
0x41fc40…41fdd4 (1, 1181) Dummy {f00=0x0148, f01=0x0190, f02=»PCO'. U j 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT V , P* COMPLETION OF THE REQUEST IS 'TENKBI'. V F P* V v P* INPUT: A6 = DWT ADDRESS V P* A7 = ORDER CODE V " P* A8 = DWT ECB ADDRESS V P* A9 = USER ECB ADDRESS V , P* A12
0x41fdd4…41ff68 Dummy {f00=0x0148, f01=0x0190, f02=»D A1,ECBRL,A8 REQUESTED LENGTH V 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE W & 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE W 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES W P CWK A7,1 CHECK ORDER CODE W , P RF(E) TIKB20 NO KEYTA
0x41ff68…4200fc Dummy {f00=0x0148, f01=0x0190, f02=» P* X P* X P LDR A1,A9 X P ADK A1,8 X * P ADKL A8,12 X < * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS X P P SUKL A8,4 X ~ * P ELR A3,A4 FIRST WORD OF USER KEYTABLE X P ANK A4,1 X * P RF(NZ) TIKB10 KEYTABLE ADDRESS UNEVEN X , P ECR A3,A3
0x4200fc…420290 Dummy {f00=0x0148, f01=0x0190, f02=»KEYTABLE BUFFER SIZE X x P RF(G) IO:ERR TOO SMALL Y P CF A15,TIPO05 Y < & P SUKL A8,8 ADJUST DWT ECB ADDRESS Y R P* Y | PTIKB20 EQU * Y P RTN A15 Y P* Y P EJECT TOSSIO Y P* Y P* T I O I T I Y P* Y 4 PTIOITI EQU A15RTN
0x420290…420424 Dummy {f00=0x0148, f01=0x0190, f02=» TOSSIO Y P* Z P* T I O P C O Z P* Z 0 B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN Z : > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. Z B P* TIOPCO CHECKS THAT REQUESTED LENGTH DOES NOT EXCEED THE DWT Z D P
0x420424…4205b8 Dummy {f00=0x0148, f01=0x0190, f02=»ALLED BY 'TENDIO' AT Z t , P* COMPLETION OF THE REQUEST IS 'TENPCO'. [ 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. [ L F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. [ & P* TIOPCO IS ALSO USED BY 'DC:MOT'. [ P* [ P* IN
0x4205b8…42074c Dummy {f00=0x0148, f01=0x0190, f02=» * PROGRAMMED CHANNEL, OUTPUT [ 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK & $ P LD A3,ECBRL,A8 REQUESTED LENGTH ^ ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE 6 P RF(G) IO:ERR REQ. LENGTH EXCEED
0x42074c…4208e0 Dummy {f00=0x0148, f01=0x0190, f02=»NTRY POINT USED BY 'TIOKBI' AND 'TENITO' P ADK A3,1 ] 0 . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN ] B ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS ] t & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS ] 0 P ANKL A2,/FFFE MAKE DWT BUFFER ADDRESS EVEN ] P LDR A4,A1
0x4208e0…420a74 (1, 1182) Dummy {f00=0x0148, f01=0x0190, f02=»BUFFER) TO SYSTEM BUFFER ] v P* ^ PTIPO20 RTN A15 ^ * P* ^ @ 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN ^ J 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN ^ ~ 0 P ELR A4,A1 FIRST CHARACTER FROM USER BUFFER ^ 2 P STR A4,A2 STORE FIRST CHARACT
0x420a74…420c08 Dummy {f00=0x0148, f01=0x0190, f02=»G CHARACTERS ^ x P* _ P EJECT TOSSIO _ P* _ 6 P* I O : E R R _ @ P* _ V , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. _ ` B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). _ & P* BRANCH TO DISPATCHER VIA TENDIO. _ P* _ 4
0x420c08…420d9c Dummy {f00=0x0148, f01=0x018e, f02=» _ v P SLL A1,2 CHECK ECHO BIT ` P RF(NN) IO:E10 NOT ECHO ` ( P LDR A1,A6 SAVE DWT ADDRESS ` H & P LD A6,DWTECH,A6 ECHO DWT ADDRESS ` l P CF A15,TENDIO ` " P LDR A6,A1 RESTORE DWT ADDRESS ` P* ` PIO:E10 EQU * ` " P LDKL A1,/8008 SET RETUR
0x420d9c…420f30 Dummy {f00=0x0148, f01=0x0190, f02=» ` " PTIOMXO EQU TIOMXI MUX, OUTPUT a P* a . P* T I O K B O a 8 P* a N * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT a X P* a P* T I O I T O a P* a 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUTPUT a P* a P* T I O D K O a
0x420f30…4210c4 Dummy {f00=0x0148, f01=0x0190, f02=»ULE IS CALLED BY 'TENDIO' WHEN A REQUEST a . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. b 0 D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. b b P* b P* INPUT: A6 = DWT ADDRESS b $ P* A8 = USER ECB ADDRESS b P* b P
0x4210c4…421258 Dummy {f00=0x0148, f01=0x0190, f02=»D A1,ECBCW2,A1 SECOND CONTROL WORD b P ES A1,ECBCW2,A8 c * P RTN A15 c B P* c R P EJECT TOSSIO c P* c t P* T E N P C I c ~ P* c D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN c @ P* COMPLETED AND THE DEVICE IS RUNN
0x421258…4213ec Dummy {f00=0x0148, f01=0x0190, f02=»CE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. c 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. d B P* d ~ P* INPUT: A6 = DWT ADDRESS d $ P* A8 = USER ECB ADDRESS d P* d & P* OUTPUT: A1-A4, A8 ARE DESTROYED d P*
0x4213ec…421580 Dummy {f00=0x0148, f01=0x0190, f02=»F(NP) TEPI30 NO MOVE IF ZERO d & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS e $ P* e N . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' e X ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS e $ P LDK A3,1 CHECK BUFFER ADDRESSES e P TM A3,A1 e * P RF(Z) TEPI20 DWT BUFFER
0x421580…421714 (1, 1183) Dummy {f00=0x0149, f01=0x018e, f02=»OSSIO e P* f P* f 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN f " 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER f X P ELR A8,A2 f P* f * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER f ( P ANKL A8,/FF00 SKIP RIGHT CHARACTER f P ORR A
0x421714…4218a8 Dummy {f00=0x0149, f01=0x0190, f02=» * P RF(P) TEPI25 MORE CHARACTERS TO MOVE g P RTN A15 NO, RETURN g 2 P* g N PTEPI20 TM A3,A2 g X * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN g p " P LDR A3,A1 DWT BUFFER ADDRESS g $ P ADR A3,A4 ADD EFFECTIVE LENGTH g P* g $ PTEPI23 LC A8,-1,A3
0x4218a8…421a3c Dummy {f00=0x0149, f01=0x018e, f02=»RE WITH START ADDRESS OF BUFFER g * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE h ( 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN h V P RB TEPI10 h P* h P EJECT TOSSIO h P* h P* h , PTEPI25 LDR A3,A4 CHECK REQUESTED LENGTH h P ANK A
0x421a3c…421bd0 Dummy {f00=0x0149, f01=0x0190, f02=» h P* i , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN i ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN i B , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE i n P LDR A8,A4 NO, SAVE A4 i 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER i & P ADR A1,A8 UPDATE BUFFER
0x421bd0…421d64 Dummy {f00=0x0149, f01=0x0190, f02=»B TEPI15 i P* j . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN j " P LDR A3,A1 DWT BUFFER ADDRESS j L $ P ADR A1,A4 ADD EFFECTIVE LENGTH j r P* j " PTEPI70 LCR A8,A3 ONE CHARACTER j 6 P SC A8,-1,A3 MOVE THIS CHAR. ONE BYTE TO THE LEFT j & P ADK
0x421d64…421ef8 Dummy {f00=0x0149, f01=0x018e, f02=»1,A4 NO, RESTORE DWT BUFFER ADDRESS j * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN k , P RB TEPI25 k Z P* k l P EJECT TOSSIO k v P* k P* T E N M X I k P* k PTENMXI EQU A15RTN MUX, INPUT k P* k P* T E N K B I k P* k & PTE
0x421ef8…42208c Dummy {f00=0x0149, f01=0x0190, f02=» P* l P* T E N D K I l P* l $ " PTENDKI EQU TEN:DM DISC, INPUT l . P* l T P EJECT TOSSIO l ^ P* l v P* T E N P C O l P* l 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT l P* l P* T E N M X O l P* l " PTENMXO EQU
0x42208c…422220 Dummy {f00=0x0149, f01=0x0190, f02=»K O l P* m " PTENDKO EQU TEN:DM DISC, OUTPUT m P* m < P EJECT TOSSIO m F P* m ^ P* T E N I T O m h P* m ~ F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN m L P* COMPLETED FOR INTERTASK COMMUNICATION, IN PURPOSE TO
0x422220…4223b4 (1, 1184) Dummy {f00=0x0149, f01=0x018e, f02=»E DATA. m p P* n P* INPUT: A6 = DWT ADDRESS n P* n < & P* OUTPUT: A1-A4, A8 ARE DESTROYED n F P* n p 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT n z $ P LD A8,DWTECB,A6 DWT ECB ADDRESS n $ P LD A3,ECBEL,A8 EFFECTIVE LENGTH n P RF(NP) TE
0x4223b4…422548 Dummy {f00=0x0149, f01=0x0190, f02=» P* o P EJECT TOSSIO o P* o & P* D C : M O T o 0 P* o F < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER o P < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO o < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO'
0x422548…4226dc Dummy {f00=0x0149, f01=0x0190, f02=» o l P* p , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT p " P MSR 8,A15 SAVE A1-A8 ON STACK p B $ P SUKL A15,32 ADJUST STACKPOINTER p h * P TS 2,A15 SAVE MMU REGISTERS ON STACK p " P LD A5,DWTTAB,A6 TTAB ADDRESS p $ P TL TTB:MT,A5 LOAD MMU REGISTERS p
0x4226dc…422870 Dummy {f00=0x0149, f01=0x0190, f02=»DRIVER p v . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK q $ P ADKL A15,32 ADJUST STACKPOINTER q @ * P MLR 8,A15 RESTORE A1-A8 FROM STACK... q h P RTN A15 ...AND RETURN q P XIF q P* q P EJECT TOSSIO q P* q P* D C : M I N q P* q
0x422870…422a04 Dummy {f00=0x0149, f01=0x0190, f02=»UFFER. q L P* r P* INPUT: A1 = RETURN CODE r ( P* A4 = DRIVER BUFFER ADDRESS r : P* A6 = DWT ADDRESS r f P* r ( P* OUTPUT: NO REGISTERS ARE DESTROYED r P* r PDC:MIN EQU * r P IFT MMUPAG=0 r P IFT CPU852=1 r & P
0x422a04…422b98 Dummy {f00=0x0149, f01=0x0190, f02=»FT MMUPAG=1 r $ P SUKL A15,32 ADJUST STACKPOINTER s * P TS 2,A15 SAVE MMU REGISTERS ON STACK s < " P LD A5,DWTTAB,A6 TTAB ADDRESS s j $ P TL TTB:MT,A5 LOAD MMU REGISTERS s P XIF s P* s P EJECT TOSSIO s P* s P* M I N M O V s P*
0x422b98…422d2c Dummy {f00=0x0149, f01=0x0190, f02=»WT ADDRESS s P* t " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t B P LD A3,DWTECB,A6 ECB ADDRESS t N * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS t r $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH t " P RF(NP) MIN:40 NOTHING TO MOVE t 8 P CW A2,ECBRL,A3 CHECK IF U
0x422d2c…422ec0 Dummy {f00=0x0149, f01=0x0190, f02=»DRESS t r P LDR A3,A5 u ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN u L P SUK A2,2 u ~ , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE u P* u P EJECT TOSSIO u P* u P* WORD MOVE u P* u
0x422ec0…423054 (1, 1185) Dummy {f00=0x0149, f01=0x0190, f02=» SUK A2,2 DECREMENT LOOP COUNTER u 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v ( P* v ^ PMIN:20 EQU * v h P ADK A2,1 v | P RF(N) MIN:40 MOVE FINISHED v P* v P* CHARACTER MOVE v P* v PMIN:30 EQU * v " P LCR A3,A7 MOVE ONE CH
0x423054…4231e8 Dummy {f00=0x0149, f01=0x0190, f02=» RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE v P XIF w : P* w F P IFT MMUPAG=1 w P * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB w f $ P LDR A1,A4 DRIVER BUFFER ADDRESS w P LDR A4,A2 EFFECTIVE LENGTH w & P LD A8,DWTUEC,A6 USER ECB ADDRESS w (
0x4231e8…42337c Dummy {f00=0x0149, f01=0x0190, f02=» TOSSIO w P* x P* x PMIN:40 EQU * x $ P INH x 8 " P CF A15,TENDIO PERFORM TENDIO x D P* x j P* RELEASE BUFFER x t P* x * P LD A3,DWTADR,A6 DRIVER ADDRESS BLOCK x ( P LD A1,POLADR,A3 BUFFER POOL ADDRESS x & P RF(Z) MIN:60 NO RELEASE
0x42337c…423510 Dummy {f00=0x0149, f01=0x018e, f02=»N:50 NOT LAST BUFFER IN CHAIN x P* y & $ P* INSERT BUFFER AT END OF CHAIN y 0 P* y X ( P SU A4,HDRLEN,A3 REAL BUFFER ADDRESS y b " P STR A4,A2 UPDATE QUEUE LINKS y P CMR A4 y P* y PMIN:60 EQU * y P IFT CPU852=1 y ( P ABL IHRET8 REST
0x423510…4236a4 Dummy {f00=0x0149, f01=0x018e, f02=» * P MLR 8,A15 RESTORE A1-A8 FROM STACK... z P* z 2 PDC:MOT RTN A15 ...AND RETURN z < P XIF z ` P* z l P IFT MMUPAG=1 z v " P RB DC:RTN RETURN TO DC DRIVER z P XIF z P* z P* ERROR EXIT z P* z " PMIN:70 EQU * DC:MIN ERROR EXIT z
0x4236a4…423838 Dummy {f00=0x0149, f01=0x018e, f02=» z P* { P IFT MMUPAG=0 { P IFT CPU852=1 { ( PDC:MOT EQU * { > 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS { R P XIF { P* { P EJECT TOSSIO { P* { P* { P********** { P* TENDIO * { P********** { P* {
0x423838…4239cc Dummy {f00=0x0149, f01=0x0190, f02=» P* | * P* ACTOTP IS CALLED TO START THE TASK | P* | < P* -IF NORMAL I/O WITH WAIT:- | F P* | j * P* QTJOB IS CALLED TO QUEUE THE TASK | t 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- | P* | P* A5 = TTAB ADDRESS | P*
0x4239cc…423b60 Dummy {f00=0x0149, f01=0x0190, f02=»CE (DWTTQ NOT ZERO) | j J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. } P* } j P EJECT TOSSIO } t P* } P* } 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- } P* } P* A1 = RETURN CODE } P* } P*
0x423b60…423cf4 (1, 1186) Dummy {f00=0x0149, f01=0x0190, f02=»DEPENDENT SUBROUTINES ARE PERFORMED. } P* ~ , P EJECT TOSSIO ~ 6 P* ~ N P* END I/O ENTRY ~ X P* ~ p PTENDIO EQU * ~ z P IFT CPU852=1 ~ & P CF A15,SAVE8 SAVE A1-A8 ON STACK ~ P XIF ~ P* ~ P IFT CPU852=0 ~ P INH ~ " P M
0x423cf4…423e88 Dummy {f00=0x0149, f01=0x0190, f02=»INT TO DWT STATUS ~ P INH ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK & P RF(Z) TEN110 NO TASK QUEUED R P* v P IFT ATTDET=1 P LDKL A2,/800 ATTACH BIT P ANR* A2,A4 , P RF(Z) TEN095 DEVICE NOT ATTACHED =2 =1 , P CW A5,DWTTAB,
0x423e88…42401c Dummy {f00=0x0149, f01=0x0190, f02=»CK AND TIMER =1 r P LDR A4,A6 =1 P ADK A4,DWTST RESTORE A4 =1 . P XIF R P* ^ P EJECT TOSSIO h P* P* PTEN100 EQU * , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS P ST A3,DWTTQ,A6 . P CF A15,QTJOB QUEUE TASK
0x42401c…4241b0 Dummy {f00=0x0149, f01=0x0190, f02=»TEN120 LDKL A2,/8000 , P ORRS A2,A4 INDICATE DEVICE READY IN DWT P LDKL A3,/DBFF L ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 b P LD A3,DWTECB,A6 ECB ADDRESS : P RF(Z) TEN260 BRANCH IF ENTERED FROM ECHO OR RECOVERY P* P EJECT TOSSI
0x4241b0…424344 Dummy {f00=0x0149, f01=0x018e, f02=»FT MMUPAG=1 P LD A4,TTB:PW,A5 PSW " P ANK A4,1 SYSTEM/USER MODE BIT 0 P RF(Z) TEN200 SYSTEM MODE V P* x P* LOAD MMU REGISTERS P* PTEN130 EQU * $ P SUKL A15,32 ADJUST STACKPOINTER * P TS 2,A15 SAVE MMU REGISTERS ON STAC
0x424344…4244d8 Dummy {f00=0x0149, f01=0x0190, f02=» P* & P LD A8,DWTUEC,A6 USER ECB ADDRESS P ELR A4,A8 8 * P ORR A4,A2 SET EVENT COMPLETED IN ECB J P ESR A4,A8 x P LDR A1,A3 P ADK A1,ECBEL P LDR A2,A8 P ADK A2,ECBEL P LDK A4,6 4 P MVSU A4 MOVE EFF. LENGTH, R
0x4244d8…42466c Dummy {f00=0x0149, f01=0x018e, f02=»N) TEN160 NO SPECIAL ACTION REQUIRED " P RF(Z) TEN140 DATA MANAGEMENT , P CWK A3,DK:DIX CHECK IF DISC R P RF(E) TEN140 DISC v P* " P* PERFORM CHECK ON ORDER CODE P* , P CF A15,RD:WR CHECK IF IT WAS READ/WRITE . P RF(Z) TEN160
0x42466c…424800 Dummy {f00=0x0149, f01=0x0190, f02=» V P* P EJECT TOSSIO P* * P* RESTORE MMU REGISTERS 4 P* T PTEN150 EQU * ^ P INH r P* ~ PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL A15,32 ADJUST STACKPOINTER P XIF P*
0x424800…424994 (1, 1187) Dummy {f00=0x014a, f01=0x0190, f02=»,DWTWAT,A6 WAIT/ACTIVATE INDICATOR ( P RF(Z) TEN250 NOT WAIT OR ACTIVATION * P SUK A4,1 V P RF(Z) TEN240 WAIT h P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) TEN270 ACTIVATION P* P* MULTIPLE WAIT P* P LD
0x424994…424b28 Dummy {f00=0x014a, f01=0x0190, f02=» v . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS P XIF : P* F PTEN210 EQU * P 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA d P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR P LDR* A3,A4 NEXT DWT ADDRESS P
0x424b28…424cbc Dummy {f00=0x014a, f01=0x0190, f02=» PTEN240 EQU * 2 P CF A15,QTJOB WAIT: QUEUE TASK FOR DISPATCHING P* R P* NO WAIT P* n PTEN250 EQU * x $ P CM DWTECB,A6 RESET ECB ADDRESS P* PTEN260 EQU * P IFT CPU852=1 P ABL IHRET8 P XIF P
0x424cbc…424e50 Dummy {f00=0x014a, f01=0x40e4, f02=»WITH ACTIVATION P* PTEN270 EQU * " 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR 6 . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS r P RB TEN250 P* P* P* P END @ P ABL IHRET8 P XIF P
0x424e50…424fe4 Dummy {f00=0x014a, f01=0x2008, f02=» NT TOSSIO END @ &
0x424fe4…425178 Dummy {f00=0x014a, f01=0x0190, f02=» 0 G z * & O q O pT V O P * & 0 G V O X N P W F , ( W V O X O pT W t * & ? W W W 0 * & ] G W 0 G * & {
0x425178…42530c Dummy {f00=0x014a, f01=0x0190, f02=» 0 G T V O X N P W , ( W V O XW C T W * , ( P C W V O XW V Z , ( 5 B T V O XW B W V * & U & G : F 00T V , ( s b O N 9T
0x42530c…4254a0 Dummy {f00=0x014a, f01=0x0190, f02=» T Uv Vb PT j H D !L T* !W 7TD c { }W P T V* T W W T & , ( P Wx /W" 9T IW oT4 T W T r $ $ q $ } $ u $
0x4254a0…425634 (1, 1188) Opaque[0x194]
0x425634…4257c8 # DirEnt {nam=»TPAGAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2948, f03=0x0000}
0x425634…4257c8 IdxSect {
0x425634…4257c8 f00 = 0x014a // 0x425634 @0x0
0x425634…4257c8 f01 = 0x000c // 0x425636 @0x2
0x425634…4257c8 gno = [ // 0x425638 @0x4
0x425634…4257c8 [0x00]: C0x014a.0x1.0
0x425634…4257c8 [0x01]: C0x014a.0x2.0
0x425634…4257c8 [0x02]: C0x014a.0x3.0
0x425634…4257c8 [0x03]: C0x014b.0x0.0
0x425634…4257c8 [0x04]: C0x014b.0x1.0
0x425634…4257c8 [0x05]: C0x014b.0x2.0
0x425634…4257c8 ]
0x425634…4257c8 }
0x4257c8…42595c Dummy {f00=0x014a, f01=0x0190, f02=» 2 P IDENT TPAGAL REL 11.0 81-01-26 870105041100 P : B =************************************************************* B B =* * B =* PHILIPS TERMINAL SYSTEM PTS
0x42595c…425af0 Dummy {f00=0x014a, f01=0x0190, f02=» * Z B =* * B P* THIS MODULE CONTAINS THE LKM PROCESSOR USED IN TOSS * V B =* MEMORY MANAGEMENT SYSTEMS FOR DYNAMICAL ALLOCATION OF * B P* LOGICAL CORE MEMORY.
0x425af0…425c84 Dummy {f00=0x014a, f01=0x0190, f02=»ORTED: * n B =* * $ < P* -GET PAGE * j < P* -ATTACH PAGE * < P* -RELEASE PAGE
0x425c84…425e18 Dummy {f00=0x014a, f01=0x018e, f02=»****************************** p P EJECT & P* 4 P************* > P* ENTRIES * T P************* j P* . P ENTRY TPAGAL COMMON ENTRY FOR: -GET PAGE 2 P -ATTACH PAGE 2 P
0x425e18…425fac Dummy {f00=0x014a, f01=0x0190, f02=» , P EXTRN RELPA2 INSERT PAGE IN FREE QUEUE P* 4 * P EXTRN LKMQDI QUEUE TASK AND DISPATCH > , P EXTRN LKMRQE PAGE ERROR ENTRY IN LRPINT l 2 P EXTRN TTB:AM DISPLACEMENT TO ALLOCATION TABLE . P EXTRN TTB:MT DISPLACEMENT TO START OF MMU 6 P EXT
0x425fac…426140 Dummy {f00=0x014a, f01=0x0190, f02=» OF PAGE TABLE r " P EXTRN SCTNOP NUMBER OF PAGES 2 P EXTRN PAGQUE ADDRESS TO POINTER TO FREE QUEUE < . P EXTRN PAG:PA DISPLACEMENT TO PAGE ADDRESS r 6 P EXTRN PAG:QB DISPLACEMENT TO QUEUE LINK BACKWARD 8 P EXTRN PAG:SB DISPLACEMENT TO SEGMENT BLOC
0x426140…4262d4 (1, 1189) Dummy {f00=0x014a, f01=0x0190, f02=»100 LOGICAL PAGE SIZE 4 PMAXATT EQU 100 MAXIMAL NUMBER OF ATTACH REQUEST P ON SAME PAGE V P EJECT n P* | P*************************** P* CONDITIONAL ASSEMBLY * P*************************** P* . P* A PROGRAM
0x4262d4…426468 Dummy {f00=0x014a, f01=0x0190, f02=» A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET * P* IS OBTAINED BY SETTING CPU852 EQU 0 > P* l PCPU852 EQU 0 v P* P* P EJECT P* P* P**************************** P* FUNCTIONAL DESCRIPTION * P
0x426468…4265fc Dummy {f00=0x014a, f01=0x0190, f02=» P* REQUEST: LKM P* DATA 26 P* < P* REQUEST PARAMETERS: A7=0 F P* j ( P* RETURN PARAMETERS: A1=PAGE NUMBER t @ P* A7=UNCHANGED OR -1 IF NO PAGE IN QUEUE 4 P* A8=LOGICAL ADD
0x4265fc…426790 Dummy {f00=0x014a, f01=0x0190, f02=»THE REQUEST f P* IS TERMINATED. P* 8 P IFT MMUPAG=1 B H P* THE MMU TABLE BIT MAP IS EXAMINED FOR FREE SUBENTRIES. X J P* WHEN ONE IS FOUND, THE FREE QUEUE IS SCANNED FOR A FREE 6 P* PAGE THA
0x426790…426924 Dummy {f00=0x014a, f01=0x0190, f02=»CLUDED IN THE USER AREA. v @ P* THE CORRESPONDING BIT IN THE MMU TABLE BIT MAP F P* IS SET AS TO INDICATE THAT THE SUBENTRY IS OCCUPIED. d F P* IF NONE OF THE FREE PAGES FITS IN CURRENT SUBENTRY, F P* TH
0x426924…426ab8 Dummy {f00=0x014a, f01=0x0190, f02=»JECT @ P* IF NO PAGE IS FOUND THAT FITS IN ANY SUBENTRY, B P* OR IF THERE ARE NO FREE PAGES OR FREE SUBENTRIES P B P* AT ALL, PAGE ERROR IS INDICATED AND THE REQUEST P* IS TERMINATED. P*
0x426ab8…426c4c Dummy {f00=0x014a, f01=0x0190, f02=»IN FREE QUEUE IS REMOVED. t P* " 8 P* IF THERE IS NO FREE PAGES, PAGE ERROR , > P* IS INDICATED AND THE REQUEST IS TERMINATED. h P* P XIF P IFF MMUPAG=1 P* . P* THE LAST PAGE IS REMOVED FROM FREE QUE
0x426c4c…426de0 Dummy {f00=0x014a, f01=0x0190, f02=» THE LOGICAL ADDRESS TO PAGE IS STORED IN , P* SECOND WORD IN PAGE BLOCK < < P* IF A SEGMENT IS ATTACHED TO THE PAGE,BIT 0 l < P* (SEGMENT LOADED IN CORE) IN STATUS WORD IN , P* SEGMENT BLOCK
0x426de0…426f74 (1, 1190) Dummy {f00=0x014a, f01=0x0190, f02=»S THE PAGE ` > P* IS ATTACHED TO. IT IS INITIALLY SET TO ONE. P* T P EJECT ^ P* l P* v P* ****************** P* * RELEASE PAGE * P* ****************** P* P* P* REQUEST: LKM P*
0x426f74…427108 Dummy {f00=0x014a, f01=0x0190, f02=»N PARAMETERS: A7=UNCHANGED OR -1 IF ILLEGAL PAGE 6 P* A8=NUMBER OF REMAINING USERS 8 P* r P* | < P* FUNCTION: PAGE NUMBER IS CHECKED - IF NEGATIVE OR IF > P* GREATER THAN NUMBER OF AVALIABLE PAGES PAGE D P
0x427108…42729c Dummy {f00=0x014a, f01=0x0190, f02=»K) IS Z B P* DECREMENTED BY ONE. IF IT BECOMES ZERO THE PAGE : P* THE PAGE IS INSERTED IN THE FREE QUEUE. T P* P IFT MMUPAG=1 @ P* THE CORRESPONDING BIT IN THE MMU TABLE BIT MAP @ P* IS C
0x42729c…427430 Dummy {f00=0x014a, f01=0x018e, f02=»TORED IN THE MMU ENTRY. ~ P XIF P EJECT , P* : P* D P* ***************** N P* * ATTACH PAGE * l P* ***************** P* P* P* REQUEST: LKM P* DATA 26 P* P* REQUEST PAR
0x427430…4275c4 Dummy {f00=0x014a, f01=0x0190, f02=» V 4 P* A8=LOGICAL ADDRESS TO PAGE P* @ P* J < P* FUNCTION: PAGE NUMBER IS CHECKED - IF NEGATIVE OR IF T > P* GREATER THAN NUMBER OF AVALIABLE PAGES ERROR > P* IS INDICATED AND THE REQUEST IS TERM
0x4275c4…427758 Dummy {f00=0x014a, f01=0x0190, f02=»ONDING PAGE IS FETCHED. x J P* IF THE CORRESPONDING SUBENTRY IN THE MMU TABLE IS FREE, D P* THE PAGE IS INCLUDED IN THE USER AREA ON THE SAME n $ P* LOGICAL ADDRESS.. @ P* THE CORRESPONDING BIT IN THE
0x427758…4278ec Dummy {f00=0x014a, f01=0x018e, f02=»Y CORRESPONDING TO THE LOGICAL ADDRESS t F P* IS OCCUPIED, PAGE ERROR IS INDICATED AND THE REQUEST . P* IS TERMINATED. x P* P XIF P* @ P* THE ATTACH COUNTER (FOURTH WORD IN PAGE BLOCK) ( P*
0x4278ec…427a80 Dummy {f00=0x014a, f01=0x0190, f02=» | P* > P* CHECK NUMBER OF FREE PAGES - IF NOT ENOUGTH, TERMINATE P* THE REQUEST WITH A8=0 T P* t * P LD A6,PAGQUE+2 GET END OF FREE QUEUE ~ . P CW A6,PAGQUE SAME AS START OF FREE QUEUE? ( P RF(E) PAGERR NOT ENOUGTH FREE PAGES
0x427a80…427c14 (1, 1191) Dummy {f00=0x014b, f01=0x0190, f02=»DR A3,A5 GET TTAB ADDRESS LDR A8,A3 SAVE " . P ADKL A3,TTB:AM START OF ALLOCATION TABLE : , ' ADKL A8,TTB:MT END OF ALLOCATION TABLE l LDR A10,A8 SAVE , PGET:10 LDKL A6,/8000 INIT OCCUPATION BIT & " LDR* A4,A3 GET 16 ALLOCATION BITS
0x427c14…427da8 Dummy {f00=0x014b, f01=0x0190, f02=»DK A3,2 INCREMENT ALLOCATION TABLE POINTER ( # CWR A3,A8 END OF ALLOCATION TABLE? 2 P RF(E) PAGERR YES! ^ P RB GET:10 x EJECT ( $GET:40 LDR A2,A4 GET ALLOCATION WORD 4 / ANKL A2,/F000 ANY FREE SUBENTRY IN THIS ENTRY? RF(NZ) GET:
0x427da8…427f3c Dummy {f00=0x014b, f01=0x0190, f02=»E) GET:25 YES RB GET:40 6 2GET:60 LDR* A13,A10 GET CONTENT IN MMU TABLE ENTRY ( ( P ANKL A13,/FC00 ISOLATE ADDRESS BITS b PGET:70 ADK A2,0 ENTRY FREE? P RF(N) SFQFFP YES P RB(Z) GET:50 $ PGET:80 ADKL A13,LPGSIZ NEXT PAGE *
0x427f3c…4280d0 Dummy {f00=0x014b, f01=0x0190, f02=»AGE TO FIT IN CURRENT MMU SUBENTRY v * * 4 /* BIT SET IN A1 CORRESPOND TO CURRENT SUBENTRY 4 < 8* A3 - POINTER TO CURRENT ENTRY IN MMU ALLOCATION TABLE l * %* A10 - POINTER TO CURRENT MMU ENTRY " P* A11 - PHYSICAL PAGE ADDRESS " P* A13 -
0x4280d0…428264 Dummy {f00=0x014b, f01=0x0190, f02=» TO LAST FREE PAGE BLOCK IN QUEUE t * * , P LD A1,PAGQUE+2 GET POINTER TO LAST PAGE 4 P IFT MMUPAG=1 d 2 PSFQ:10 CWK A1,PAGQUE ANY MOORE PAGE IN QUEUE? z P RB(E) GET:80 NO! 6 PSFQ:20 LD A11,PAG:PA,A1 GET PHYSICAL PAGE ADDRESS , PSFQ:
0x428264…4283f8 Dummy {f00=0x014b, f01=0x0190, f02=»ET PHYS. PAGE ADDRESS TO FIT IN SUBENTRY | & P XRR A12,A11 SAME PHYSICAL ADDRESS 0 RF(Z) SFQ:45 YES Z * P LD A1,PAG:QB,A1 GET BACKWARD POINTER t P RB SFQ:10 TRY NEXT PAGE P XIF P EJECT 0 PSFQ:45 LD A4,TTB:ID,A5 GET CALLING TASKS ID
0x4283f8…42858c Dummy {f00=0x014b, f01=0x0190, f02=» ST A12,PAG:QB,A9 CHANGE BACKWARD POINTER ( P STR A4,A1 STORE TASK IDENTIFICATION 2 * P LD A4,PAG:SB,A1 ANY SEGMENT ATTACHED? ^ P RF(Z) SFQ:55 NO! . P LDKL A2,/7FFF INDICATE NOT LOADED IN CORE P ANRS A2,A4 STORE NEW STATUS . P CM PAG:SB,A
0x42858c…428720 Dummy {f00=0x014b, f01=0x0190, f02=»4,3 ISOLATE 1K-DISPLACEMENT ( PSFQ:60 SUK A4,1 MOORE DISPLACEMENT? $ P RF(N) SFQ:70 P P SRL A6,1 f P RB SFQ:60 x & PSFQ:70 ADK A7,0 GET PAGE REQUEST? P RF(Z) SFQ:80 YES! " P LDR A4,A6 GET OCCUPATION BIT * P ANR* A4,A3 SUBENTRY
0x428720…4288b4 (1, 1192) Dummy {f00=0x014b, f01=0x0190, f02=» LDR A6,A13 GET LOGICAL PAGE ADDRESS & P ANKL A6,/300 ISOLATE DISPLACEMENT , $ P SLA A6,2 PHYSICAL DISPLACEMENT V P LDR A11,A6 SAVE ~ , ( ANKL A13,/FC00 PHYSICAL 4K-PAGE ADDRESS $ STR A13,A10 STORE IN MMU TABLE P EJECT * $ *
0x4288b4…428a48 Dummy {f00=0x014b, f01=0x0190, f02=» MMU ENTRY IN BITS 0-3 P ADR A6,A11 ADD DISPLACEMENT P XIF B P IFF MMUPAG=1 N P LD A6,PAG:PA,A1 d P XIF | . P ST A6,TTB:SA+16,A5 SAVE IN TTAB SAVE AREA P XIF " P SUK A7,2 ATTACH PAGE REQUEST? P RF(E) SFQ:90 YES! 2 P S
0x428a48…428bdc Dummy {f00=0x014b, f01=0x0190, f02=» z * , PRET:30 SU A1,SCTPAG COMPUTE DISPLACEMENT & P SRL A1,3 CONVERT TO BLOCK NUMBER B " PRET:40 ST A1,TTB:SA+2,A5 SAVE l RET:50 EQU * P EJECT * * RESTORE REGISTER A1-A14 * ( # ABL LKMQDI QUEUE TASK AND DIS
0x428bdc…428d70 Dummy {f00=0x014b, f01=0x0190, f02=»EQU * $ P LDR A4,A1 NEGATIVE PAGE NUMBER ! P RB(N) PAGERR YES! ERROR! ! 6 , P ADK A4,1 ADJUST PAGE NUMBER FOR COMPARE ! X 0 P CW A4,SCTNOP PAGE NUMBER > NUMBER OF PAGES? ! P RB(G) PAGERR YES! ! * ! * GET PAGE BLOCK ADDRESS ! * !
0x428d70…428f04 Dummy {f00=0x014b, f01=0x0190, f02=» PAGE ADDRESS ! r ( P LD A4,PAG:SB,A1 GET ATTACH COUNTER " 2 P RB(NP) PAGERR NO PREVIOUS GET REQUEST ISSUED! " B * P SUK A4,MAXATT SEGMENT BLOCK ADDRESS? " x , P RB(G) PAGERR YES;NO GET REQUEST ISSUED! " $ P CWK A7,1 RELEASE PAGE REQUEST? " P RF(E) REL
0x428f04…429098 Dummy {f00=0x014b, f01=0x0190, f02=»MUPAG=1 " P RB SFQ:55 # P XIF # " P IFT MMUPAG=1 # . P EJECT # D ( P LD A4,PAG:QB,A1 GET LOGICAL ADDRESS # R P LDR A13,A4 SAVE # ~ . P SRL A4,11 2*(BIT 0-3 OF LOGICAL ADDRESS) # P LDR A8,A5 GET TTAB ADDRESS # & P ADKL A8,TTB:MT START OF MMU
0x429098…42922c Dummy {f00=0x014b, f01=0x0190, f02=»C00 ISOLATE PHYSICAL PAGE ADDRESS # . P RB(NE) PAGERR NO;PAGE CANNOT BE ATTACHED! $ * " PATT:10 LDR A3,A4 GET BITS 0-1 $ " P ANK A3,24 OF LOGICAL ADDRESS $ , P SRL A3,2 2*(BIT 0-1 OF LOGICAL ADDRESS) $ P ADR A3,A5 ADD TTAB ADDRESS $ ( P ADKL A3,TTB
0x42922c…4293c0 Dummy {f00=0x014b, f01=0x0190, f02=» $ PATT:20 SUK A4,1 SUBENTRY FOUND? % P RB(N) SFQ:55 YES! % , P SRL A6,4 NEXT SUBENTRY % F P RB ATT:20 % f P EJECT % x P XIF % PREL:00 EQU * % IFT MMUPAG=1 % P ECR A4,A11 GET PAGE ADDRESS % . P ANK A4,3 ISOLATE DISPLACEMENT IN 4K-PAG
0x4293c0…429554 (1, 1193) Dummy {f00=0x014b, f01=0x0190, f02=»B:MT START OF MMU TABLE % LDR A8,A10 SAVE & 6 1REL:10 LDKL A2,/8000 INIT SUBENTRY OCCUPATION BIT & 8 $ P LDKL A6,/F000 INIT NIBBLE MASK & r 4 /REL:20 LDR A12,A11 GET PHYSICAL 4K-PAGE ADDRESS & , P ANKL A12,/FC00 ISOLATE 4K-PAGE ADDRESS & , P XRR*
0x429554…4296e8 Dummy {f00=0x014b, f01=0x0190, f02=»MU TABLE ENTRY & x . ) SRL A2,4 NEXT MMU ALLOCATION TABLE ENTRY ' P SRL A6,4 ' H RB(NE) REL:20 CHECK NEXT ' Z 0 , ADKL A9,2 NEXT WORD IN MMU ALLOCATION TABLE ' | , ' CWR A9,A8 END OF MMU ALLOCATION TABLE? ' P RB(E) PAGERR YES:ERROR! ' & " RB REL:
0x4296e8…42987c Dummy {f00=0x014b, f01=0x0190, f02=»RL A2,1 NEXT SUBENTRY ' RB REL:40 ( 0 ,REL:50 LDR A3,A2 GET SUBENTRY OCCUPATION BIT ( 0 " P ANR* A3,A9 SUBENTRY OCCUPIED? ( d $ RB(Z) REL:30 NO: TRY NEXT ENTRY ( C1R A2,A2 COMPLEMENT BITS ( $ P ANRS A2,A9 CLEAR OCCUPATION BIT ( : P ANR* A6,A9
0x42987c…429a10 Dummy {f00=0x014b, f01=0x0190, f02=» . P STR A6,A10 STORE IN FREE MMU TABLE ENTRY ) P XIF ) 6 0 PREL:60 LD A4,TTB:ID,A5 GET CALLING TASKS ID ) B 0 P CWR* A4,A1 GET REQUEST ISSUED BY THIS TASK? ) v P RF(NE) REL:70 NO! ) * P CMR A1 EXTINGUISH TRACK TO THIS TASK ) PREL:70 SUK A7,2 A7:=-1
0x429a10…429ba4 Dummy {f00=0x014b, f01=0x40ee, f02=» RETURN-PARAMETER ) x P RF(NZ) REL:80 * * * 0 & "* INSERT PAGE BLOCK IN FREE QUEUE * : * * d P LDR A3,A1 * n P INH * ( P CF A15,RELPA2 INSERT RELEASED PAGE * P ENB * PREL:80 ABL RET:50 * END * @ * PREL:70 SUK A7,2 A7:=-1
0x429ba4…429d38 Dummy {f00=0x014b, f01=0x2008, f02=» +
0x429d38…429ecc Dummy {f00=0x014b, f01=0x0190, f02=»********* * ENTRIES * ************* ( $ P ENTRY TLDPGM LOAD PROGRAM ENTRY > f EJECT n *************** | * EXTERNALS * *************** " P EXTRN TDISP DISPATCHER ENTRY 2 - EXTRN QLTASK QUEUE LOAD TASK
0x429ecc…42a060 Dummy {f00=0x014b, f01=0x0190, f02=» r & P EXTRN LD:STB LOAD TASK STACK BASE , P EXTRN LKMQDI QUEUE TASK FOR DISPATCHING 2 , P EXTRN QMEXIT QUEUE TASK FOR DISPATCHING b 0 + EXTRN TTB:SP SEGMENT TABLE POINTER IN TTAB 0 P EXTRN TTB:SB SEGMENT BLOCK POINTER IN TTAB . P EXTRN TTB:AP
0x42a060…42a1f4 (1, 1194) Opaque[0x194]
0x42a1f4…42a388 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2978, f03=0x0000}
0x42a1f4…42a388 IdxSect {
0x42a1f4…42a388 f00 = 0x014b // 0x42a1f4 @0x0
0x42a1f4…42a388 f01 = 0x0006 // 0x42a1f6 @0x2
0x42a1f4…42a388 gno = [ // 0x42a1f8 @0x4
0x42a1f4…42a388 [0x00]: C0x014b.0x3.0
0x42a1f4…42a388 [0x01]: C0x014c.0x0.0
0x42a1f4…42a388 [0x02]: C0x014c.0x1.0
0x42a1f4…42a388 ]
0x42a1f4…42a388 }
0x42a388…42a51c Dummy {f00=0x014b, f01=0x0190, f02=» 0 P IDENT TPROC REL 11.0 81-03-05 870105041100 P 8 0 P =1, A4 PARAM. NOT TRANSM. WHEN LKM ACTIV. @ P =1, REL 11.0 81-01-26 t P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM
0x42a51c…42a6b0 Dummy {f00=0x014b, f01=0x018e, f02=»************************************ P* , P* 6 * P* THIS MODULE CONTAINS THE FOLLOWING @ P* TOSS LKM PROCESSORS: n P* P* - TWAIT = WAIT P* P* - TMWAIT = MULTIPLE WAIT P* ( P* - TACTOT = ACTIVATE/REST
0x42a6b0…42a844 Dummy {f00=0x014b, f01=0x0190, f02=» P* P ENTRY TWAIT WAIT PROCESSOR * P ENTRY TMWAIT MULTIPLE WAIT PROCESSOR 2 , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR ` P EJECT TPROC P* P* P************* P* EXTERNALS * P************* P* P*
0x42a844…42a9d8 Dummy {f00=0x014b, f01=0x0190, f02=»XTRN ACTDIS ACTIVATE TASK AND DISPATCH $ P EXTRN LKMRQE LKM REQUEST ERROR . 2 P EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE V 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN TTB:SA TTAB SAVE AREA P EXTRN DWTST DWT STATUS P EXT
0x42a9d8…42ab6c Dummy {f00=0x014b, f01=0x0190, f02=»*********************** ~ P* P* CONDITIONAL ASSEMBLY * P* H . P***************************************** R P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0
0x42ab6c…42ad00 Dummy {f00=0x014b, f01=0x0190, f02=»THE WAIT LKM PROCESSOR. P* , P* THIS MODULE IS ENTERED WHEN THE TASK * 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. Z P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 =
0x42ad00…42ae94 (1, 1195) Dummy {f00=0x014c, f01=0x0190, f02=» & P RF(Z) TP:RQE FILE CODE NOT FOUND P* . P IFT MMUPAG=0 8 * P LDR* A1,A8 RETURN IF EVENT COMPLETED N P XIF | P* P IFT MMUPAG=1 ( P ELR A1,A8 RETURN IF EVENT COMPLETED P XIF P* ( P RF(N) TP:QDI I/O ALREADY COMP
0x42ae94…42b028 Dummy {f00=0x014c, f01=0x0190, f02=» TPROC P* P* P********** " P* TACTOT * 4 P********** F P* X P* b 8 P* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. l P* 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER ( P* WHEN A TASK HAS TO BE ACTI
0x42b028…42b1bc Dummy {f00=0x014c, f01=0x0190, f02=» = START ADDRESS AT ACTIVATION, ELSE ZERO P* A5 = TTAB 2 4 P* A7 = IDENTIFICATION FOR TASK TO BE ACTIVATED H P* P* PTACTOT EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR $ P RF(Z) TP:RQE TASK NOT IN SYSTEM
0x42b1bc…42b350 Dummy {f00=0x014c, f01=0x0190, f02=»METER =1 v P LDR A5,A2 P LDR A2,A4 " 0 P RF(Z) TP:QDI RESTART: QUEUE FOR DISPATCHING 4 P LDR A4,A7 A4 PARAMETER =1 h * P ABL ACTDIS ACTIVATE TASK AND DISPATCH P* P EJECT TPROC P* P* P********** P* TMWAIT *
0x42b350…42b4e4 Dummy {f00=0x014c, f01=0x0190, f02=»KM HANDLER t & P* WITH THE FOLLOWING PARAMETERS: P* < P* A5 = TTAB ADDRESS F P* A7 = ECBBLK ADDRESS d P* 6 P* WHEN ONE OF THE SPECIFIED EVENTS IS COMPLETED, 6 P* RETURN IS MADE TO THE CALLING TASK VIA TENDIO & P* WI
0x42b4e4…42b678 Dummy {f00=0x014c, f01=0x0190, f02=»AND NO RETURN VIA TENDIO). p P* " ( P* NOTICE THAT ALL EVENTS MUST HAVE , ( P* BEEN ISSUED IN THE NO WAIT MODE. X P* P* P EJECT TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY P LDK A3,0 P* P I
0x42b678…42b80c Dummy {f00=0x014c, f01=0x0190, f02=» IN ECBBLK v P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 ( P* T PTMW:10 EQU * ^ 2 P ADK A7,2 POINT TO NEXT ECB ADDRESS IN ECBBLK r P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS & P LDR* A2,A8 GET FIRST WORD O
0x42b80c…42b9a0 Dummy {f00=0x014c, f01=0x0190, f02=» P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED 8 P CF A15,FNDDWT NO, SEARCH DWT ADDRESS FROM FILE CODE > P ADK A6,0 SET CR z P RF(Z) TP:RQE NOT FOUND P* P EJECT TPROC P* P* " P LD A2,DWTST,A6 GET DWT STATUS
0x42b9a0…42bb34 (1, 1196) Dummy {f00=0x014c, f01=0x0190, f02=»T/ACTIVATE INDICATOR x , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT P ORK A6,1 SET BIT 15 L 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR h . P RF(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS P LDR A3,A6
0x42bb34…42bcc8 Dummy {f00=0x014c, f01=0x0190, f02=»UK A1,1 & P RB(P) TMW:10 MORE ECB:S IN ECBBLK : P ST A3,DWTWAT,A9 NO, SET FIRST DWT ADDRESS IN THE LAST : P RB T:DISP GO TO DISPATCHER x P* PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG I
0x42bcc8…42be5c Dummy {f00=0x014c, f01=0x4184, f02=»OR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S 2 P CMR A3 SET TO NO WAIT AGAIN V P LDR A3,A2 z P RB TMW:40 P* P EJECT TPROC P* P* PTP:RQE EQU * " P ABL LKMRQE LKM REQUEST ERROR
0x42be5c…42bff0 Dummy {f00=0x014c, 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
0x42bff0…42c184 Dummy {f00=0x014c, f01=0x0190, f02=» A x , ( A A A A A A A , ( *T A _ P A A H , ( . , + - ; # x , ( + $ : X " H W X " ACBREL , ( * K H H A W W
0x42c184…42c318 Dummy {f00=0x014c, f01=0x0190, f02=» P " W U z , ( :U A " FNDTID@ J , ( ! ? > " @ , ( D @ T " ( ^ @ P , ( R % A A " @ ,T @ , ( E W @ A W
0x42c318…42c4ac Dummy {f00=0x014c, f01=0x0190, f02=»P V | , ( W _x , ( _` A L , ( @ ,T @ W @ T @ W @ @ | , ( % >a @ A , ( E A ,
0x42c4ac…42c640 Dummy {f00=0x014c, f01=0x0190, f02=» l , ( P 3P C @ P @ , ( @ P @ Q A , @ < , ( BT A " T @ W @ A l , ( ! % A ,P @ _2 , ( E ,T 2 0 P nP , ( e _
0x42c640…42c7d4 (1, 1197) Opaque[0x194]
0x42c7d4…42c968 # DirEnt {nam=»TSWBLK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2990, f03=0x0000}
0x42c7d4…42c968 IdxSect {
0x42c7d4…42c968 f00 = 0x014c // 0x42c7d4 @0x0
0x42c7d4…42c968 f01 = 0x0004 // 0x42c7d6 @0x2
0x42c7d4…42c968 gno = [ // 0x42c7d8 @0x4
0x42c7d4…42c968 [0x00]: C0x014c.0x2.0
0x42c7d4…42c968 [0x01]: C0x014c.0x3.0
0x42c7d4…42c968 ]
0x42c7d4…42c968 }
0x42c968…42cafc Dummy {f00=0x014c, f01=0x0190, f02=» 2 P IDENT TSWBLK REL 11.0 81-01-26 870105041100 P : * B * L 6 2************************************************** V * $ * PHILIPS TERMINAL SYSTEM PTS * 0 ,* TSWBLK = LOAD/STORE SWAPPABLE WORK BLOCK *
0x42cafc…42cc90 Dummy {f00=0x014c, f01=0x0190, f02=»HE LOAD/STORE SWAPPABLE WORK BLOCK v > :* LKM PROCESSOR, USED IN TOSS MEMORY MANAGEMENT SYSTEMS. * * l * v EJECT TSWBLK * * *********** * ENTRIES * *********** * * 2 - ENTRY TSWBL
0x42cc90…42ce24 Dummy {f00=0x014c, f01=0x0190, f02=»******* * * EXTRN TDISP DISPATCHER $ $ EXTRN LKMRQE LKM REQUEST ERROR D P EXTRN ACBSWB SWBTAB ADDRESS l P EXTRN TTB:AP ACB ADDRESS 2 - EXTRN QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB EJECT TSWBLK *
0x42ce24…42cfb8 Dummy {f00=0x014c, f01=0x0190, f02=»M PROCESSOR. ^ * * &* IT IS ENTERED FROM THE LKM HANDLER & "* WITH THE FOLLOWING PARAMETERS: L * v * A5 = TTAB ADDRESS 0 +* A6 = LKM DATA DIRECTIVE: 19 IF LOAD SWB 0 ,* = 20 IF STORE SWB * &*
0x42cfb8…42d14c Dummy {f00=0x014c, f01=0x0190, f02=»WB (A6 = 19) b > :* = " " " THE SWB TO STORE (A6 = 20) * V D ?* TSWBLK WILL ACTIVATE LDTASK (THE LOAD TASK) AT LABEL LT:SWB ` 8 8* AND LDTASK WILL LOAD/STORE REQUESTED WORK BLOCK. * ( #* IT RETURNS TO CALLING
0x42d14c…42d2e0 Dummy {f00=0x014c, f01=0x0190, f02=»A7 = -1 IF REQUEST ERROR, ELSE ( #* A7 = -2 IF DISC I/O ERROR, ELSE & $ * A7 = -3 IF DISC NOT OPERABLE R * z EJECT TSWBLK * * %* CHECK VALIDITY OF SWPBLK PARAMETERS * $ TSWBLK EQU * SWB HANDLING ENTRY P L
0x42d2e0…42d474 (1, 1198) Dummy {f00=0x014c, f01=0x0190, f02=» * COMMON REQUEST ERROR EXIT " ABL LKMRQE LKM REQUEST ERROR $ * J TSW:10 EQU * T ECR A4,A7 h ANK A4,/FF GET TYPE NUMBER z CWR* A4,A1 CHECK IF LEGAL * P RB(G) SWBERR SWB TYPE NUMBER TOO BIG P ADR A4,A4 . * ADR A1,
0x42d474…42d608 Dummy {f00=0x014c, f01=0x4130, f02=»B COPY NUMBER TOO BIG * * ACTIVATE LOAD TASK ( * D 0 + LDR A3,A5 GET TTAB ADDRESS OF CALLING TASK N " P LDR A4,A6 LKM DATA DIRECTIVE 2 . CF A15,QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB ABL TDISP GO TO DISPATCHER *
0x42d608…42d79c Dummy {f00=0x014c, f01=0x2008, f02=» REQUEST x * * ACTIVATE LOAD TASK " * > TSW:20 EQU * H ( $ LDKL A2,LT:SWB GET DISPATCH ADDRESS 2 . CF A15,QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB ABL TDISP GO TO DISPATCHER * * * END
0x42d79c…42d930 Dummy {f00=0x014c, f01=0x0190, f02=»MENT STATUS , P ANK A4,/1E CHECK IF CORE RESIDENT OR... 2 P RF(NZ) TLDS00 ...USED BY AN INTERRUPTED TASK D P* z ( P* INSERT PAGE BLOCK IN PAGE QUEUE P* P CF A15,RELPAG RELEASE PAGE P LD A4,TTB:PW,A5 PSW & P ST A4,-2,A15
0x42d930…42dac4 Dummy {f00=0x014c, f01=0x0190, f02=»A5 SEGTAB ADDRESS * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 P RF(N) TLDERR REQUEST ERROR H 4 P CW A1,SEG:NS,A3 CHECK IF SEGMENT NUMBER TOO BIG l P RF(NG) TLDS03 OK P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P ABL LKM030 BRANCH TO LK
0x42dac4…42dc58 Dummy {f00=0x014c, f01=0x0190, f02=»LL A1,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A1,A3 ADD SEGTAB ADDRESS . P LDR A3,A5 GET TTAB ADDRESS T P* x P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* " P
0x42dc58…42ddec Dummy {f00=0x014c, f01=0x0190, f02=»:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 P* 0 P IFT DSKPAG=1 : $ P SUKL A15,4 ADJUST STACKPOINTER P . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK x P XIF P RF TLDS40 P* P EJECT TLDSEG P* P* PTLDS05 EQU
0x42ddec…42df80 Dummy {f00=0x014c, f01=0x018e, f02=»0 SEGMENT LOADED IN CORE P ST A2,TTB:SA,A3 P CM PRUN 8 P* H P* ACTIVATE LOAD TASK R P* n 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK x P ABL TDISP GO TO DISPATCHER P* PTLDS10 EQU * $ P SUKL A15,4 ADJUST S
0x42df80…42e114 (1, 1199) Opaque[0x194]
0x42e114…42e2a8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29a0, f03=0x0000}
0x42e114…42e2a8 IdxSect {
0x42e114…42e2a8 f00 = 0x014d // 0x42e114 @0x0
0x42e114…42e2a8 f01 = 0x0004 // 0x42e116 @0x2
0x42e114…42e2a8 gno = [ // 0x42e118 @0x4
0x42e114…42e2a8 [0x00]: C0x014d.0x0.0
0x42e114…42e2a8 [0x01]: C0x014d.0x1.0
0x42e114…42e2a8 ]
0x42e114…42e2a8 }
0x42e2a8…42e43c Dummy {f00=0x014d, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 11.0 81-01-26 870105041100 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* P ENTRY TTB:AM ALLOCATION MAP P ENTRY TTB:MT MM
0x42e43c…42e5d0 Dummy {f00=0x014d, f01=0x0190, f02=»S n P ENTRY TTB:AP ACB ADDRESS P ENTRY TTMJOB TABLE ENTRY , ( P ENTRY TTB:QL DISPATCHER QUEUE LINK N & P ENTRY TTB:ID TASK IDENTIFICATION z P ENTRY TTB:ST TASK STATUS " P ENTRY TTB:PP PENDING POINTER & P ENTRY TTB:PW PROGRAM STATUS
0x42e5d0…42e764 Dummy {f00=0x014d, f01=0x018e, f02=»* . P***************************************** P* < P* CONDITIONAL ASSEMBLY F P* d . P***************************************** n P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1.
0x42e764…42e8f8 Dummy {f00=0x014d, f01=0x0190, f02=» l P* * PTTB:MT EQU -40 MMU TABLE DISPLACEMENT P IFT MMUPAG=1 @ " P DATA /0000,/0400,/0800,/0C00 V " P DATA /1000,/1400,/1800,/1C00 | " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 P XIF P* & PTTB:
0x42e8f8…42ea8c Dummy {f00=0x014d, f01=0x0190, f02=»* 4 PTTB:SB EQU -4 SEGMENT BLOCK ADDRESS DISPLACEMENT P DATA 0 B P* R : PTTB:AP EQU -2 APPLICATION CONTROL BLOCK ADDRESS DISPL. P DATA 0 P* P EJECT TTMJOB P* P* PTTMJOB EQU * TTMJOB ENTRY . PTTB:QL
0x42ea8c…42ec20 Dummy {f00=0x014d, f01=0x0190, f02=»* $ PTTB:ST EQU *-TTMJOB TASK STATUS P DATA 49 2 P* B ( PTTB:PP EQU *-TTMJOB PENDING POINTER L P DATA 0 x P* PTTB:PW EQU *-TTMJOB 4 P DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB P* P EJECT TTMJOB P
0x42ec20…42edb4 (1, 1200) Dummy {f00=0x014d, f01=0x4090, f02=»R A1-A14 j P DATA 0,0,0,0,0,0,0 P* , ( PTTB:TD EQU *-TTMJOB TERMINAL DEVICES 6 P* b P* l P* v P END @
0x42edb4…42ef48 Dummy {f00=0x014d, 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,
0x42ef48…42f0dc Dummy {f00=0x014d, f01=0x0190, f02=» READ DIRECT ( PORDLGT EQU *-ORDTAB LENGTH OF TABLE P* B P EJECT TIOADM L P* b P* l P********** v P* OPEMOD * P********** P* * P* BIT MAP OVER ALLOWED COMBINATIONS $ P* IO FUNCTIONS VS. OPEN MODES
0x42f0dc…42f270 Dummy {f00=0x014d, f01=0x0190, f02=»UT EXC,OUT RAN " P DATA /0101 EXTEND EXC,OUT SEQ P* < P EJECT TIOADM F P* P* f P* INPUT : A6 = FDB ADDRESS p P* A8 = ECB ADDRESS . P* A14 = STACK BASE 2-LEVEL STACK P* PTIOADM EQU * & P
0x42f270…42f404 Dummy {f00=0x014d, f01=0x0190, f02=» A2,0 P SCR A2,A4 RESET STATUS ( P LD A7,DWTOR,A6 GET ORDER AND OPTION . P LDK A2,/20 ORDER BIT MASK Z " P LDK A3,ORDLGT LENGTH OF TABLE | PTIOA20 EQU * " P SUK A3,2 NEXT ORDER IN TABLE * P RF(N) ER:IRQ ERROR: NOT ALLOWED ORDER
0x42f404…42f598 Dummy {f00=0x014d, f01=0x0190, f02=»VE ORDER DISPLACEMENT | P SUK A3,ORDOPE P RF(N) TAOPEN OPEN 4 P* N P EJECT TIOADM X P* n P* x P CWK A6,FDBSTA " P RF(E) ER:IRQ FILE NOT OPENED , P LD A1,FDBEXC,A6 EXCUSIVE ACCESS POINTER & P RF(Z) TIOA30 NOT EXCLUSIV
0x42f598…42f72c Dummy {f00=0x014d, f01=0x018e, f02=»ORDCLO-ORDOPE P RF(N) TACLOD CLOSE DISCARD P RF(Z) TACLOS CLOSE LOCK : P XIF Z P IFT CRDEEX=0 f P SUK A3,ORDCLO-ORDOP1 | P RF(Z) TACLOS CLOSE P XIF P SUK A3,ORDRFP-ORDCLO & P RF(Z) TARFP READ FILE PARAMETERS
0x42f72c…42f8c0 Dummy {f00=0x014d, f01=0x0190, f02=» P RF(NP) ER:IRQ ILLEGAL P SUK A3,ORDRED-ORDSQW " " P RF(NZ) TIA100 NOT READ DIRECT @ ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH f " P CW A3,FDBRLE,A6 RECORD LENGTH 2 P RF(NE) ER:IRQ ERROR: ILLEGAL REQUESTED LENGTH P* P EJECT TIOADM
0x42f8c0…42fa54 (1, 1201) Opaque[0x194]
0x42fa54…42fbe8 # DirEnt {nam=»DCSTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29b0, f03=0x0000}
0x42fa54…42fbe8 IdxSect {
0x42fa54…42fbe8 f00 = 0x014d // 0x42fa54 @0x0
0x42fa54…42fbe8 f01 = 0x000e // 0x42fa56 @0x2
0x42fa54…42fbe8 gno = [ // 0x42fa58 @0x4
0x42fa54…42fbe8 [0x00]: C0x014d.0x2.0
0x42fa54…42fbe8 [0x01]: C0x014d.0x3.0
0x42fa54…42fbe8 [0x02]: C0x014e.0x0.0
0x42fa54…42fbe8 [0x03]: C0x014e.0x1.0
0x42fa54…42fbe8 [0x04]: C0x014e.0x2.0
0x42fa54…42fbe8 [0x05]: C0x014e.0x3.0
0x42fa54…42fbe8 [0x06]: C0x014f.0x0.0
0x42fa54…42fbe8 ]
0x42fa54…42fbe8 }
0x42fbe8…42fd7c Dummy {f00=0x014d, f01=0x0190, f02=» 0 P IDENT DCSTAT REL 11.0 81-01-26 870105041100 * 8 B =************************************************************* B * $ * PHILIPS TERMINAL SYSTEM, P T S * 4 P* DCSTAT STATISTIC DATA COLLECTION ROUTINE FOR * P* DA
0x42fd7c…42ff10 Dummy {f00=0x014d, f01=0x0190, f02=»AM DESCRIPTION P*. FUNCTIONS: > P*. DCSTAT SUPPLIES THE DATA COMMUNICATION DRIVERS/PACKAGES , > P*. WITH A SET OF ROUTINES TO MAINTAIN STATISTICAL COUNTERS n , '*. FOR A DWT OR A DWT AND ITS HEAD DWT. @ P*. THE FUNCTIONS ARE CONFIGURABLE BY THE
0x42ff10…4300a4 Dummy {f00=0x014d, f01=0x0190, f02=»EM STACK IN d 8 P*. INHIBIT MODE. THEY CAN BE USED SIMULTANEOUSLY BY , P*. DIFFERENT TYPES OF DRIVERS/PACKAGES. P > P*. THE COUNTERS ARE MAINTAINED IN A BUFFER LINKED FROM THE : P*. DWT. EACH BUFFER CONTAINS A CONTROL WORD INDICATING < P*. STATU
0x4300a4…430238 Dummy {f00=0x014d, f01=0x0190, f02=» COUNTERS ENTRY: DCSRST AND DCSRLL 2 P* -UPDATE COUNTERS ENTRY: DCSUPR AND DCSUPD . ( P* -READ COUNTERS ENTRY: DCSRED d P* P* 8 P* ACTIONS TO INCLUDE STATISTICS IN A DRIVER/PACKAGE 8 P* 1. DEFINE EVENTS IN THE DRIVER TO CALL
0x430238…4303cc Dummy {f00=0x014d, f01=0x0190, f02=»E COUNTER AREA IN THE DWT AND ITS LINK(OFFSET) : P* THE LAYOUT DESCRIBED BELOW MUST BE APPLIED AS REQ 6 P* BY DCSTAT t P EJECT P*. TABLE STRUCTURE: ( #*. THE DWT HAS THE FOLLOWING LAYOUT *. P* .................. P
0x4303cc…430560 Dummy {f00=0x014d, f01=0x0190, f02=»UFF . -- P* .................. ! " P* . LINK HEAD DWT . --!----> 4 P* .................. ! Z " P* . LINK NEXT DWT . --!----> | P* .................. ! P* . . P* / / ! P* /
0x430560…4306f4 (1, 1202) Dummy {f00=0x014d, f01=0x0190, f02=»NTER AREA . P* .................. P* . . 4 P* / / R P* .................. p P EJECT * * ENTRY POINTS * , P ENTRY DCSRST REST COUNTERS IN SPEC DWT . P ENTRY DCSRLL RESE
0x4306f4…430888 Dummy {f00=0x014d, f01=0x0190, f02=»TETAB ^ 2 P ENTRY DCSUPD UPDATE COUNTER SPEC IN PKT, (A2) 6 P ENTRY DCSRED READ STATISTIC COUNTERS TO USER BUFF D P* ~ P* ENTRY EQU:S P* ( P ENTRY CSMAXL MAX INDEX FOR LINK DWT * P ENTRY DWTCHD EQU DWT OFFSET HEAD DWT * P ENTRY
0x430888…430a1c Dummy {f00=0x014d, f01=0x0190, f02=»* 8 4**************************************************** * F & P* CONDITIONAL ASSEMBLY PARAMETERS P * z 2 -********************************************* P* P PMMUPAG EQU 0 MMU SWITCH P P* 8 P* COND
0x430a1c…430bb0 Dummy {f00=0x014d, f01=0x0190, f02=» P STATISTIC ON SUBUNITS PSTUNIT EQU 1 IF 0= NO 1= YES $ P H P DOUBLE WORD COUNTERS R PSTDBLE EQU 0 IF 0=NO, 1=YES r P P P 2 .********************************************** * * EXTERNAL TABLE OFF
0x430bb0…430d44 Dummy {f00=0x014d, f01=0x0190, f02=» " REQ LENGTH PECBEL EQU 6 " EFF LENGTH P 8 P B P IFT MMUPAG=0 L ( PDWTDRD EQU /10 DRIVER DEP AREA START b P XIF P IFT MMUPAG=1 ( PDWTDRD EQU /14 DRIVER DEP AREA START P XIF P < PDWTSTB EQU DWTDRD DWT
0x430d44…430ed8 Dummy {f00=0x014d, f01=0x0190, f02=»LINK TO NEXT DWT n 0 PDWTLAD EQU DWTCHN+2 " LOCAL DTE ADDRESS . PDWTSUB EQU DWTLAD+4 POSSIBLE SUB ADDRESS L P EJECT ~ B =************************************************************* * P* STATISTIC EQU:S * P* USED IN CALLS FO
0x430ed8…43106c Dummy {f00=0x014d, f01=0x0190, f02=» < P* THE FORMAT OF THE PARAMETER-1 IN CALL TO DCSUPR/DCSUPD P* IS: D @ P* BITS XYZZZZZZ WHERE X=1IF PARAMETER-2 USED AS INCREMENT R 8 P* ELSE INCREMENT WITH +1 8 P* Y=1 IF DOUBLE WORD COUNTER
0x43106c…431200 Dummy {f00=0x014d, f01=0x0190, f02=»*********** ^ P P* P* LINK LEVEL COUNTERS ( P F . PCSSRBL EQU /10 SYNCH DATA BLOCKS RECEIVED P : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW 6 PCSSRAB
0x431200…431394 (1, 1203) Dummy {f00=0x014e, f01=0x0190, f02=»ATA BLOCKS TRANSMITTED z 2 PCSSTRT EQU /16 " DATA BLOCKS RETRANSMITTED , PCSSTAB EQU /17 " DATA BLOCKS ABORTED T , PCSSXC1 EQU /18 " PROTOCOL DEPENDENT , PCSSXC2 EQU /19 " PROTOCOL DEPENDENT , PCSSXC3 EQU /1A " PROTOCOL DEPEND
0x431394…431528 Dummy {f00=0x014e, f01=0x0190, f02=»CSBRBO EQU /12 " I-FRAMES REJECTED BUFFER OVERFLOW 2 PCSBRAB EQU /13 " I-FRAMES REJECTED ABORTED > 4 PCSBRPE EQU /14 " I-FRAMES REJECTED FCS ERROR t . PCSBTIF EQU /15 " I-FRAMES TRANSMITTED 0 PCSBTRT EQU /16 " I-FRAMES RETRANSMITTE
0x431528…4316bc Dummy {f00=0x014e, f01=0x0190, f02=» p & PCSBRFR EQU /1A " FRMR RECEIVED $ PCSBRUA EQU /1B " UA RECEIVED 2 & PCSBRRJ EQU /1C " REJ RECEIVED Z & PCSBRNR EQU /1D " RNR RECEIVED 4 PCSBTSM EQU /1E " SNRM/SARM/SABM TRANSMITTED * PCSBTDI EQU /1F " DISC TRANSMIT
0x4316bc…431850 Dummy {f00=0x014e, f01=0x0190, f02=»D n ( PCSBTRJ EQU /23 " REJ TRANSMITTED ( PCSBTNR EQU /24 " RNR TRANSMITTED 6 , PCSBXC1 EQU /25 " PROTOCOL DEPENDENT b ( PCSBXC2 EQU /26 " " " ( PCSBXC3 EQU /27 " " " P P P* DTE/DCE
0x431850…4319e4 Dummy {f00=0x014e, f01=0x018e, f02=»HROUGHPUT ERROR | $ PCSCDCE EQU /2B DCE NOT OPERABLE * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT @ PCSCXC2 EQU /2D " n PCSCXC3 EQU /2E " P P 6 PCSINIV EQU /10 1ST IMPL COUNTER CSSRBL AND CSBRBL 8 PCSMAXL EQU CSCXC3-/F
0x4319e4…431b78 Dummy {f00=0x014e, f01=0x018e, f02=» P* P* STATISTIC BUFFER LAYOUT P* 0 < P******************************************************* : P z P* ................... " P* . . STWSID P* .................. " P* . . STWCST
0x431b78…431d0c Dummy {f00=0x014e, f01=0x0190, f02=» P* / / P* / / " P* ................... @ ( PSTWSID EQU 0 RESERV FOR SYMBOLIC ID ^ & PSTWCST EQU STWSID+2 COUNTER STATUS P =0, RESET , P /=0, OVERFLOW IN COUNTER WITH BIT 0=1 8 PSTWMIX EQU STWCS
0x431d0c…431ea0 Dummy {f00=0x014e, f01=0x0190, f02=»O VALUE IN STWMIX v P EJECT P* ( @ ;*********************************************************** 2 P* v < P* DCSRST - RESET STATISTIC COUNTERS FOR SPECIFIED DWT * & P* THE FOLLOWING ACTIONS ARE TAKEN 4 P* -CHECK IF FUNCTION
0x431ea0…432034 (1, 1204) Dummy {f00=0x014e, f01=0x0190, f02=» COUNTERS d * . P* ENTRY: CF A15,DCSRST A6=DWT 2 -* EXIT: ABR* A15 A1=STATUS N F P* 0=COMPLETED -1= NOT CONFIG * @ ;************************************************
0x432034…4321c8 Dummy {f00=0x014e, f01=0x0190, f02=»UFFER IF ANY z LDR* A2,A15 RELOAD REG XIF 4 P RF DCSEXI COMMON EXIT @ P EJECT ^ P l @ ;*********************************************************** v * B P* DCSRLL - RESET STATISTIC COUNTERS FOR ALL DWT:S IN CHAIN
0x4321c8…43235c Dummy {f00=0x014e, f01=0x0190, f02=»S OF HEAD DWT IF ANY. IF NOT START WITH CURRENT < P* -LOCATE LINK TO STATISTIC BUFFER. IF 0 GO TO NEXT DWT 8 $ P* -CLEAR COUNTERS IN THE BUFFER x * 2 P* ENTRY: CF A15,DCSRLL A6=DWT 4 0* EXIT: ABR* A15 A
0x43235c…4324f0 Dummy {f00=0x014e, f01=0x0190, f02=»********************** j P PDCSRLL EQU * ( IFT STAT=1 < $ P IFT STUNIT=1 SUBUNIT STATISTICS P * P STR A2,A15 SAVE REGS ON SYSTEM STACK x STR A6,A15 $ P LDR A1,A6 TEMP SAVE OF SPEC DWT " P LD A6,DWTCHD,A6 LINK TO HEAD & P
0x4324f0…432684 Dummy {f00=0x014e, f01=0x0190, f02=» . P LD A6,DWTCHN,A6 LINK TO NEXT DWT IN CHAIN . P RB(NZ) DCSR10 NOT LAST CONTINUE TO CLEAR 6 LDR* A6,A15 RELOAD REGS h P LDR* A2,A15 XIF P IFT STAT=1 P IFF STUNIT=1 P RB DCSRST P XIF P RF DCSEXI COMMON EXIT
0x432684…432818 Dummy {f00=0x014e, f01=0x0190, f02=» SPEC WITH PARAMETERS IN p . )* REGS A1 AND POSSIBLY A2 < P* DCSUPS - UPDATE COUNTER SPEC WITH PARAMETERS IN R : P* REGS A1 AND POSSIBLY A2. A7 = DTETAB < P* DCSUPD - UPDATE COUNTER SPEC WITH PARAMETERS IN
0x432818…4329ac Dummy {f00=0x014e, f01=0x0190, f02=»IGURED. IF NOT EXIT WITH STATUS t : P* -IF ENTRY DCSUPD USED FETCH PARAMETER-1 FROM PACKET ( < P* -UPDATE COUNTER IN SPEC DWT IF PARAMETER WITHIN RANGE f 4 P* OF MAX VALUE KEPT IN THE CONTROL WORD OF THE P* STATISTIC BUFFER * P* IF SUBUNIT S
0x4329ac…432b40 Dummy {f00=0x014e, f01=0x018e, f02=»5,DCSUPR A6=DWT A1=PARAM-1 (A2=PARAM-2) t P* OR 2 2 P* CF A15,DCSUPD A6=DWT H 8 4* DATA PARAM-1 (A2=PARAM-2) ~ * 6 1* EXIT: ABR* A15 A1=STATUS F P*
0x432b40…432cd4 (1, 1205) Dummy {f00=0x014e, f01=0x0190, f02=» H B P* +1=COUNTER OVERFLOWED * N D ?************::************************************************* X P PDCSUPR EQU * IFT STAT=1 * P STR A3,A15 SAVE REGS ON SYSTEM STACK STR A4,
0x432cd4…432e68 Dummy {f00=0x014e, f01=0x0190, f02=»QU * P IFT STAT=1 * P STR A3,A15 SAVE REGS ON SYSTEM STACK P STR A4,A15 N P STR A5,A15 b P STR A6,A15 v " P LDR A6,A7 A6 = DTETAB ADDRESS P RF DCSU00 P XIF P P PDCSUPD EQU * IFT STAT=1 * P S
0x432e68…432ffc Dummy {f00=0x014e, f01=0x0190, f02=» STACK p LDK A4,2 ( P ADS A4,+12,A15 ADJUST RETURN POINT P L P V 0 PDCSU00 EQU * COMMON POINT FOR DCSUPR DCSUPD ` $ LDK A4,0 PRESET STATUS FOR EXIT PDCSU01 EQU * P CF A15,DCOUNT INCR COUNTER P IFT STUNIT=1 &
0x432ffc…433190 Dummy {f00=0x014e, f01=0x0190, f02=»KEEP IT x 4 P RB DCSU00 CLEAR STATUS AND UPDATE FOR HEAD DWT ! PDCSU04 EQU * ! H P XIF ! P IFT STAT=1 ! h $ LDR A1,A4 MOVE STATUS FOR EXIT ! | LDR* A6,A15 RELOAD REGS ! P LDR* A5,A15 ! LDR* A4,A15 ! LDR* A3,A15 ! XIF !
0x433190…433324 Dummy {f00=0x014e, f01=0x0190, f02=»ATISTIC COUNTERS INTO USER BUFFER ! x * " * & P* THE FOLLOWING ACTIONS ARE TAKEN " 4 < P* -CHECK IF FUNCTION CONFIGURED. IF NOT EXIT WITH STATUS " ^ 0 P* -CHECK USER PARAMETERS IF NOT CORRECT EXIT " : P* -FETCH SYMBOLIC ID FROM DWT AND MOV COUNTERS IF ANY
0x433324…4334b8 Dummy {f00=0x014e, f01=0x0190, f02=»ACTION " n * # : P* ENTRY: CF A15,DCSRED A6=DWT A8=ECB # * # V 4 0* EXIT: ABR* A15 A1=STATUS # ` D P* 0=COMPLETED -1=NOT CONFIG # : 6* -
0x4334b8…43364c Dummy {f00=0x014e, f01=0x0190, f02=» IN ECBEL AND (ECBBA)=COUNTERS # j > :********************************************************** $ & P $ h PDCSRED EQU * $ r IFT STAT=1 $ * P STR A2,A15 SAVE REGS ON SYSTEM STACK $ STR A3,A15 $ STR A4,A15 $ STR A5,A15 $ STR
0x43364c…4337e0 Dummy {f00=0x014e, f01=0x0190, f02=» $ $ P LD A5,ECBRL,A8 ANY LENGTH GIVEN % P RF(Z) DCSRER NO % 0 P LD A4,DWTTAB,A6 TTAB ADDR % H P IFT STUNIT=1 % j " P LD A1,DWTCHD,A6 ANY HEAD DWT % P RF(Z) DCSR01 NO % 0 P LD A7,DWTSUB,A6 SYMBOLIC SUB ADDRESS IF ANY % P RF DCSR02 MOVE COUNTE
0x4337e0…433974 (1, 1206) Dummy {f00=0x014e, f01=0x0190, f02=»F(Z) DCSR04 NO SYMBOLIC ID MOVE 0 % $ P LD A1,DWTSTB,A6 ANY STAT BUFFER & * P RF(Z) DCSR04 NO MOVE 0 & R P ADR A1,A6 ADD BASE OF DWT & r $ P LD A3,STWMIX,A1 NO OF COUNTERS & P RF(Z) DCSR04 NOE MOVE 0 & P SLL A3,1 COUNTERS TO BYTES & , P ADK A3,
0x433974…433b08 Dummy {f00=0x014e, f01=0x0190, f02=»ID OR STAT BUFFER MOVE ZEROE & P LDK A3,2 SIZE ' $ " P LDKL A1,DCZERO BUFFER ADDRESS ' : PDCSR06 EQU * ' ` & P SUR A5,A3 ANY SPACE IN USER BUFF ' t P RF(N) DCSRER NO ' 0 P CF A15,MOVSU MOVE STAT BUFFER TO USER BUFF ' P XIF ' P IFT STAT=1 '
0x433b08…433c9c Dummy {f00=0x014e, f01=0x0190, f02=»IF ' P IFT STAT=1 ( P ( $ PDCSR08 EQU * ALL MOVE UPDATE ECB ( * " P SU A2,ECBBA,A8 START OF USER ( R P ST A2,ECBEL,A8 NO OF BYTES ( x P LDK A1,0 STATUS OK ( P RF DCSREX EXIT ( P ( 2 PDCSRER EQU * BUFFER ERROR E.G NONE OR OVERFLOW
0x433c9c…433e30 Dummy {f00=0x014e, f01=0x0190, f02=»* A4,A15 ( LDR* A3,A15 ) LDR* A2,A15 ) $ XIF ) 8 P RF DCSEXI COMMON EXIT ) D P* ) b PDCZERO DATA 0 ZEROE BUFFER ) l P EJECT ) > 9********************************************************* ) * ) P* COMMON EXIT FROM FUNCTIONS )
0x433e30…433fc4 Dummy {f00=0x014e, f01=0x0190, f02=»A1,-1 STATUS NOT CONFIGURED ) XIF * $ ADKL A15,4 * 0 ABR* A15 RETURN * D P EJECT * P IFT STAT=1 * j : 6****************************************************** * ~ * * " P* COMMON INTERNAL SUBROUTINES * * * : 6******************
0x433fc4…434158 Dummy {f00=0x014e, f01=0x0190, f02=»ENTRY: CF A15,DCLEAR A6=DWT * 0 P* EXIT: ABR* A15 A1=0 A6=DWT + , PDCLEAR EQU * + ` 0 P LD A2,DWTSTB,A6 ANY STATISTIC BUFFER LINKED + t P RF(Z) DCLEXI NO + P ADR A2,A6 ADD BASE OF DWT + 2 P LD A1,STWMIX,A2 GET MAX INDEX FOR THI
0x434158…4342ec Dummy {f00=0x014e, f01=0x0190, f02=»DD OFFSET + , ' ADR A2,A1 POINT AT LAST WORD+1 IN BUFF , PDCLOOP EQU * , B P CMR A2 CLEAR COUNTER , V P SUK A2,2 POINTER -2 , t P SUK A1,2 ALL CLEARED , P RB(NZ) DCLOOP NO , PDCLEXI EQU * , LDK A1,0 STATUS , P RF DCEXIT COMMON RE
0x4342ec…434480 Dummy {f00=0x014e, f01=0x0190, f02=»A6=DWT , l * P* EXIT: ABR* A15 A4= - PDCOUNT EQU * - < P STR A1,A15 SAVE PARAM-1 - P $ P STR A2,A15 SAVE PARAM-2 IF ANY - p * P LD A3,DWTSTB,A6 ANY STATISTIC BUFFER - P RF(Z) DCONOB NO - P ADR A3,A6 ADD BASE OF DWT - P LDR A5,
0x434480…434614 (1, 1207) Dummy {f00=0x014f, f01=0x0190, f02=»PARAM-1 - | 0 P CW A5,STWMIX,A3 PARAM-1 >MAX VALUE IN BUFF . P RF(NL) DCOMAX YES . D , P ADK A3,STWCTA START AFTER CONTROL WORD . ^ P ADR A3,A5 IN WORDS TO . P ADR A3,A5 START OF BUFFER . " P SLL A1,8 CHECK IF PARAM-2 REQ . P RF(N) DCO010 YES .
0x434614…4347a8 Dummy {f00=0x014f, f01=0x018e, f02=»RITHM . p P RF(N) DCODBL / P XIF / $ P IFT STAT=1 / 0 ( P LDR* A1,A3 CHECK COUNTER OVERFLOWED / D P RF(N) DCOVRE YES NO UPDATE / p P ADR A2,A1 INCREMENT / P / P RF(O) DCOVRF OVERFLOW / P STR A2,A3 SAVE NEW VALUE / P RF DCOEXI /
0x4347a8…43493c Dummy {f00=0x014f, f01=0x0190, f02=» / p P RF(N) DCOVRE 0 " P LDK A1,0 A1=0 A2=INCR VALUE 0 P DAR* A3 ADD TO COUNTER 0 D P RF(O) DCOVRF OVERFLOW 0 d $ P STR A1,A3 SAVE COUNTER 1ST WRD 0 & P ST A2,+2,A3 SAVE COUNTER 2ND WRD 0 P RF DCOEXI 0 P XIF 0 P IFT STAT=1 0 P
0x43493c…434ad0 Dummy {f00=0x014f, f01=0x018e, f02=»A3 SAVE INDEX OVERFLOW FLAG 0 PDCOVRE EQU * 1 $ " P LDK A4,+1 SET STATUS OVERFLOW 1 8 P 1 ^ P RF DCOEXI 1 h P 1 z $ PDCOMAX EQU * PARAM-1 >MAX INDEX 1 P LDKL A4,-2 SET STATUS 1 P RF DCOEXI 1 PDCONOB EQU * NO BUFFER 1 ( P LDKL A4,-3 SE
0x434ad0…434c64 Dummy {f00=0x014f, f01=0x40e2, f02=» P RF DCEXIT COMMON RETURN 2 P EJECT 2 $ P* 2 2 P* 2 < & P* COMMON RETURN FROM INTERNAL SUBS 2 F P* 2 p PDCEXIT EQU * 2 z " P ADKL A15,4 ADJUST STATUCK POS 2 P ABR* A15 2 P XIF 2 END 2 @ 2 EQU * NO BUFFER 1 ( P LDKL A4,-3 SE
0x434c64…434df8 Dummy {f00=0x014f, f01=0x2008, f02=» 3 DCEXIT COMMON RETURN # END # $@ # 0 RF(Z) DCLEXI ZEROE " : 2 - ST A1,STWCTL,A2 RESTORE IT CLEANED STATUS =0 " V SLL A1,1 COUNTER INTO BYTES " , ' ADR A2,A1 POINT AT LAST WORD+1 IN BUFF " DCLOOP EQU * " SUK A2,2 POINTER -2
0x434df8…434f8c Dummy {f00=0x014f, f01=0x0190, f02=» P RF(Z) READ:E ASCII MODE 4 P =1 4 $ P ANK A1,X'FF' MASK CHARACTER 4 2 P SUK A1,X'30' 4 V P ABL(N) ERROR 4 l P CWK A1,X'09' 4 P RF(NG) READ:6 HEX-CHARACTER 4 P SUK A1,X'07' 4 P CWK A1,X'0A' 4 P ABL(L) ERROR 4 P CWK A1,X'
0x434f8c…435120 Dummy {f00=0x014f, f01=0x0190, f02=»F-BYTE MODE 4 x P SLL A6,4 5 P RB READ GET NEXT HALF BYTE 5 & . PREAD:F SC A6,BUF1 SAVE NON ASCII CHARACTER 5 J * PREAD:E CM C:COUNT CLEAR NON ASCII MODE 5 | ( P SUR A6,A6 CLEAR HALF BYTE SAVE REG. 5 P 5 P RTN A14 5 P 5 P EJECT 5 * P****
0x435120…4352b4 (1, 1208) Opaque[0x194]
0x4352b4…435448 # DirEnt {nam=»DRDC25«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29e8, f03=0x0000}
0x4352b4…435448 IdxSect {
0x4352b4…435448 f00 = 0x014f // 0x4352b4 @0x0
0x4352b4…435448 f01 = 0x007e // 0x4352b6 @0x2
0x4352b4…435448 gno = [ // 0x4352b8 @0x4
0x4352b4…435448 [0x00]: C0x014f.0x1.0
0x4352b4…435448 [0x01]: C0x014f.0x2.0
0x4352b4…435448 [0x02]: C0x014f.0x3.0
0x4352b4…435448 [0x03]: C0x0150.0x0.0
0x4352b4…435448 [0x04]: C0x0150.0x1.0
0x4352b4…435448 [0x05]: C0x0150.0x2.0
0x4352b4…435448 [0x06]: C0x0150.0x3.0
0x4352b4…435448 [0x07]: C0x0151.0x0.0
0x4352b4…435448 [0x08]: C0x0151.0x1.0
0x4352b4…435448 [0x09]: C0x0151.0x2.0
0x4352b4…435448 [0x0a]: C0x0151.0x3.0
0x4352b4…435448 [0x0b]: C0x0152.0x0.0
0x4352b4…435448 [0x0c]: C0x0152.0x1.0
0x4352b4…435448 [0x0d]: C0x0152.0x2.0
0x4352b4…435448 [0x0e]: C0x0152.0x3.0
0x4352b4…435448 [0x0f]: C0x0153.0x0.0
0x4352b4…435448 [0x10]: C0x0153.0x1.0
0x4352b4…435448 [0x11]: C0x0153.0x2.0
0x4352b4…435448 [0x12]: C0x0153.0x3.0
0x4352b4…435448 [0x13]: C0x0154.0x0.0
0x4352b4…435448 [0x14]: C0x0154.0x1.0
0x4352b4…435448 [0x15]: C0x0154.0x2.0
0x4352b4…435448 [0x16]: C0x0154.0x3.0
0x4352b4…435448 [0x17]: C0x0155.0x0.0
0x4352b4…435448 [0x18]: C0x0155.0x1.0
0x4352b4…435448 [0x19]: C0x0155.0x2.0
0x4352b4…435448 [0x1a]: C0x0155.0x3.0
0x4352b4…435448 [0x1b]: C0x0156.0x0.0
0x4352b4…435448 [0x1c]: C0x0156.0x1.0
0x4352b4…435448 [0x1d]: C0x0156.0x2.0
0x4352b4…435448 [0x1e]: C0x0156.0x3.0
0x4352b4…435448 [0x1f]: C0x0157.0x0.0
0x4352b4…435448 [0x20]: C0x0157.0x1.0
0x4352b4…435448 [0x21]: C0x0157.0x2.0
0x4352b4…435448 [0x22]: C0x0157.0x3.0
0x4352b4…435448 [0x23]: C0x0158.0x0.0
0x4352b4…435448 [0x24]: C0x0158.0x1.0
0x4352b4…435448 [0x25]: C0x0158.0x2.0
0x4352b4…435448 [0x26]: C0x0158.0x3.0
0x4352b4…435448 [0x27]: C0x0159.0x0.0
0x4352b4…435448 [0x28]: C0x0159.0x1.0
0x4352b4…435448 [0x29]: C0x0159.0x2.0
0x4352b4…435448 [0x2a]: C0x0159.0x3.0
0x4352b4…435448 [0x2b]: C0x015a.0x0.0
0x4352b4…435448 [0x2c]: C0x015a.0x1.0
0x4352b4…435448 [0x2d]: C0x015a.0x2.0
0x4352b4…435448 [0x2e]: C0x015a.0x3.0
0x4352b4…435448 [0x2f]: C0x015b.0x0.0
0x4352b4…435448 [0x30]: C0x015b.0x1.0
0x4352b4…435448 [0x31]: C0x015b.0x2.0
0x4352b4…435448 [0x32]: C0x015b.0x3.0
0x4352b4…435448 [0x33]: C0x015c.0x0.0
0x4352b4…435448 [0x34]: C0x015c.0x1.0
0x4352b4…435448 [0x35]: C0x015c.0x2.0
0x4352b4…435448 [0x36]: C0x015c.0x3.0
0x4352b4…435448 [0x37]: C0x015d.0x0.0
0x4352b4…435448 [0x38]: C0x015d.0x1.0
0x4352b4…435448 [0x39]: C0x015d.0x2.0
0x4352b4…435448 [0x3a]: C0x015d.0x3.0
0x4352b4…435448 [0x3b]: C0x015e.0x0.0
0x4352b4…435448 [0x3c]: C0x015e.0x1.0
0x4352b4…435448 [0x3d]: C0x015e.0x2.0
0x4352b4…435448 [0x3e]: C0x015e.0x3.0
0x4352b4…435448 ]
0x4352b4…435448 }
0x435448…4355dc Dummy {f00=0x014f, f01=0x0190, f02=» 0 P IDENT DRDC25 REL 11.0 81-01-26 870105041100 P* 8 2 P********************************************* B P* x " P* PHILIPS TERMINAL SYSTEM PTS P* , P* DRDC25: DRIVER FOR DATA COMMUNICATION 2 P* HDLC: ASYNCHRONOUS RESPONSE
0x4355dc…435770 Dummy {f00=0x014f, f01=0x018e, f02=»******************************************* P* 4 P* > P* H P EJECT R P ENTRY DC25ON ` P ENTRY DW2501 v P ENTRY DW2502 P ENTRY DW2503 P ENTRY DW2504 P ENTRY IH2501 P ENTRY IH2502
0x435770…435904 Dummy {f00=0x014f, f01=0x018e, f02=» ( P ENTRY PARTA1 PROTOCOL TABLE,LINE 1 ( P ENTRY CURTRP CURRENT TRACE POINTER 0 & P ENTRY TRASTR TRACE START ADDRESS $ P ENTRY TRAEND TRACE END ADDRESS & P ENTRY CURLGP CURRENT LOGG POINTER $ P ENTRY LOGSTR LOGG START ADDRESS " P ENTRY L
0x435904…435a98 Dummy {f00=0x014f, f01=0x0190, f02=» , P EXTRN DWTWAT WAIT OR ACTIVATE INDICATOR P EXTRN SAVE8 4 P EXTRN RETUR8 T P EXTRN TENDIO t P EXTRN TDISP P EXTRN SETIME ( P EXTRN INTSAV INTERRUPT SAVE ADDRESS P* P***** BUFFER EQUATES *****
0x435a98…435c2c Dummy {f00=0x014f, f01=0x0190, f02=» . P***************************************** P* : P* SYSGEN PARAMETERS D P* ` P* j PX:A EQU 1 t " PSYNRLN EQU X:A NUMBER OF LINES P* , PX:B EQU 0 CHLC 6836 OR CULC 6856(HLCUZ) PHLCUZ EQU X:B 0=6836,1=6856
0x435c2c…435dc0 Dummy {f00=0x014f, f01=0x0190, f02=»QU X:D REC.UNIT ADDR. LINE 2 P* $ P IFF SYNRLN=2 . PX:E EQU /04 D ( PREDV03 EQU X:E REC.UNIT ADDR. LINE 3 X P* P IFF SYNRLN=3 PX:F EQU /05 ( PREDV04 EQU X:F REC.UNIT ADDR. LINE 4 P XIF P* P EJECT P
0x435dc0…435f54 (1, 1209) Dummy {f00=0x014f, f01=0x0190, f02=»IT ADDR. LINE 2 r P IFF SYNRLN=2 2 PSEDV03 EQU REDV03+/10 TRANS.UNIT ADDR. LINE 3 . P IFF SYNRLN=3 d 2 PSEDV04 EQU REDV04+/10 TRANS.UNIT ADDR. LINE 4 z P XIF P* P IFT HLCUZ=1 2 PSEDV01 EQU REDV01+/01 TRANS.UNIT ADDR. LINE 1
0x435f54…4360e8 Dummy {f00=0x014f, f01=0x0190, f02=»IT ADDR. LINE 3 r P IFF SYNRLN=3 2 PSEDV04 EQU REDV04+/01 TRANS.UNIT ADDR. LINE 4 . P XIF d P* p $ PX:G EQU 1 LINE ACCESS PROCEDURE z PABM EQU X:G 0=ARM,1=ABM P* ( PX:H EQU 0 PROGRAMMED CHANNEL OR IOP PIOPCON EQU X:H 0
0x4360e8…43627c Dummy {f00=0x014f, f01=0x0190, f02=»T j P* P EJECT P* " 0 PSYUBNR EQU 2 NR OF INP.BUFFERS IN OPEN/CLOSE , . PSYIORY EQU 100 NUMBER OF I/O ERROR RETRIES ` 0 PSYNRY EQU 7 NR OF RETRIES (TIME OUT AND I/O) . PSYNRTR EQU 2 NR OF OUTPUT REQUESTS ALLOWED & PSYTRWN EQU SYNRT
0x43627c…436410 Dummy {f00=0x014f, f01=0x0190, f02=»DRESS x > PSYTIM0 EQU 200 TIME OUT VALUE TIMER STATE 0: SILENT TIMER : PSYTIM1 EQU 40 TIME OUT VALUE TIMER STATE 1: WAIT FOR F P < PSYTIM2 EQU 40 TIME OUT VALUE TIMER STATE 2: WAIT FOR ACK : PSYTIM3 EQU 40 TIME OUT VALUE TIMER STATE 3: CHECK BUSY
0x436410…4365a4 Dummy {f00=0x014f, f01=0x0190, f02=»ACE P H PNRLEC2 EQU SYNRRC+SYNRTR+2 NUMBER OF LINE ECB'S FOR SAVING DWT INFO 8 PNRLECB EQU NRLEC1+NRLEC2 TOTAL NUMBER OF LINE ECB'S X P* 8 PTRACE EQU 0 LOGGING OF RECEIVED AND TRANSM. I-FRAMES : PLOG EQU 0 LOGGING OF RECEIVED AND TRANSM. HDLC
0x4365a4…436738 Dummy {f00=0x014f, f01=0x0190, f02=» 8 P***** LINE FILECODES FOR I/O-HANDLER INTERFACE ***** P* D " PFC:LN1 EQU /60 FILECODE LINE 1 N P IFF SYNRLN=1 t " PFC:LN2 EQU /61 FILECODE LINE 2 P IFF SYNRLN=2 " PFC:LN3 EQU /62 FILECODE LINE 3 P IFF SYNRLN=3 " PFC:LN4
0x436738…4368cc Dummy {f00=0x014f, f01=0x0190, f02=» P XIF P IFT SYNRLN=3 PLINE4 EQU 0 > PLINE3 EQU 1 T PLINE2 EQU 1 j P XIF P IFT SYNRLN=2 PLINE4 EQU 0 PLINE3 EQU 0 PLINE2 EQU 1 P XIF
0x4368cc…436a60 Dummy {f00=0x014f, f01=0x0190, f02=»FT TRACE=0 PCURTRP EQU 0 DUMMY PTRASTR EQU 0 DUMMY , PTRAEND EQU 0 DUMMY F P XIF ` P* l P IFT LOG=0 v PCURLGP EQU 0 DUMMY PLOGSTR EQU 0 DUMMY PLOGEND EQU 0 DUMMY P XIF P* P* DUMMY ENTRY P*
0x436a60…436bf4 (1, 1210) Dummy {f00=0x014f, f01=0x0190, f02=» CONNECTING, LOCAL STATION HAS STARTED $ P A CONNECT SEQUENCE BY SENDING . P A SARM OR SABM V P IFT ABM=0 p 4 PCNTB EQU 2 CONNECTING, LOCAL STATION IS WAITING 2 P FOR RESPONSE ON HIS TRANSMITTED SARM AFTRE . P HAVING RECEIVED A SAR
0x436bf4…436d88 Dummy {f00=0x014f, f01=0x018e, f02=»D IS NOW p " P WAITING FOR THE REMOTE SARM P XIF 6 PCNT EQU 4 CONNECTED B . PCNTRES EQU 5 CONNECTED, DUE TO AN ERROR A ^ $ P CMDR/FRMR IS TRANSMITTED, THE $ P LOCAL STATION IS WAITING FOR P REMOTE RESET REQUEST 4 PCNTRS1 E
0x436d88…436f1c Dummy {f00=0x014f, f01=0x018e, f02=» ` & P REQUEST IS RECEIVED, THE LOCAL & P STATION IS WAITING FOR AN F-BIT 2 " P BEFORE TRANSMITTING A DISC. 0 PDISCA EQU 8 DISCONNECTING, LOCAL STATION HAS & P STARTED THE DISCONNECT SEQUENCE P BY SENDING A DISCONNECT. P IFT
0x436f1c…4370b0 Dummy {f00=0x014f, f01=0x0190, f02=» P HAVING RECEIVED A DISC P FROM THE REMOTE STATION & 8 PDISCC EQU 10 DISCONNECTING, LOCAL STATION IS WAITING H . P FOR RESPONSE ON HIS DISC, AFTER HAVING & P RECEIVED A DISC FROM THE REMOTE P STATION DURING CONNECTING 8 PDISC
0x4370b0…437244 Dummy {f00=0x014f, f01=0x0190, f02=»MOTE r $ P STATION DURING DISCONNECTING 8 PDISCE EQU 12 DISCONNECTING, LOCAL STATION IS WAITING 4 . P FOR REMOTE DISC, AFTER HAVING RECEIVED p * P A RESPONSE ON HIS TRANSMITTED DISC P XIF P EJECT P* P***** NOTIFICATIONS
0x437244…4373d8 Dummy {f00=0x014f, f01=0x018e, f02=» v PNTTL EQU 3 LENGTH ERROR * PNTND EQU 4 SECOND CONNECT NOT ACCEPTED ( 0 PNTPCI EQU 5 INCORRECT NR OF PROTOCOL BUFFERS V PNTNA EQU 6 PIIFRA EQU 7 I-FRAME ACCEPTED PNTQE EQU 9 QUEUEING ERROR PNTDC EQU 10 DISCONNECTED " PNTPR E
0x4373d8…43756c Dummy {f00=0x014f, f01=0x0190, f02=» r * PNTCU EQU /8010 UNKNOWN DEVICE ADDRESS PNTRRST EQU 17 RECEIVER RESET 6 $ PNTTRST EQU 18 TRANSMITTER RESET Z P* P* P***** ECB EQUATES ***** P* P* P* PECBFC EQU 0 PECBBA EQU 2 PECBRL EQU 4
0x43756c…437700 Dummy {f00=0x014f, f01=0x0190, f02=» P* P* PITYP EQU /11 PSTYP EQU /1F 0 PUTYP EQU /FF D 4 PINPER1 EQU 0 I/O-HANDLER ERROR CONTROL WORD MASK X $ P*** BIT 15: MODEM NOT OPERABLE " P*** BIT 14: THROUGHPUT ERROR P*** BIT 13: CRC ERROR " P*** BIT
0x437700…437894 (1, 1211) Dummy {f00=0x0150, f01=0x0190, f02=»LOWED LKM ORDERS ***** P* P* ( P* 2 PREAD EQU /02 < PWRITE EQU /06 P PCONN EQU /21 f PDISCN EQU /22 z PSTATR EQU /2D P* P* P* & P***** LEVEL 1 ALLOWED ORDERS ***** P* P* P*
0x437894…437a28 Dummy {f00=0x0150, f01=0x0190, f02=»DIL1 EQU 4 LEVEL 1 DISCONNECT REQUEST PORTIL1 EQU 5 TIMER ORDER . P* N P* X P* b " P***** DWT DISPLACEMENTS ***** l P* P* P* PDWTPT EQU /18 P* P IFT STAT=1 P EJECT . P***** STATISTICAL COUN
0x437a28…437bbc Dummy {f00=0x0150, f01=0x018e, f02=»R EQU 4 RNR-FRAMES PR.REJ EQU 6 REJ-FRAMES PR.DISC EQU 8 DISC-FRAMES 8 " PR.SABM EQU 10 SABM/SARM-FRAMES X PR.DM EQU 12 DM-FRAMES ~ PR.UA EQU 14 UA-FRAMES " PR.FRMR EQU 16 FRMR/CMDR-FRAMES PR.INV EQU 18 INVALID FRAMES P*
0x437bbc…437d50 Dummy {f00=0x0150, f01=0x0190, f02=» PT.REJ EQU 26 REJ-FRAMES PT.DISC EQU 28 DISC-FRAMES $ " PT.SABM EQU 30 SABM/SARM-FRAMES F PT.DM EQU 32 DM-FRAMES l PT.UA EQU 34 UA-FRAMES " PT.FRMR EQU 36 FRMR/CMDR-FRAMES & PT.TOUT EQU 38 NUMBER OF TIME OUTS $ PT.RETRY EQU 40 N
0x437d50…437ee4 Dummy {f00=0x0150, f01=0x0190, f02=» WITH THE HDLC PROTOCOL l P* 4 PI EQU /00 I-FRAME * < PIP EQU /10 I-FRAME + P-BIT b 4 PRR EQU /01 RR-FRAME < PRRP EQU /11 RR-FRA
0x437ee4…438078 Dummy {f00=0x0150, f01=0x0190, f02=» > PRNRP EQU /15 RNR-FRAME + P-BIT > PRNRF EQU RNRP RNR-FRAME + F-BIT F 6 PREJ EQU /09 REJ-FRAME > PREJF EQU /19 REJ-FRAME + F-BIT $ PREJP
0x438078…43820c Dummy {f00=0x0150, f01=0x0190, f02=»BM-FRAME + P-BIT f PSARM EQU /0F SARM-FRAME $ PSARMP EQU /1F SARM-FRAME+ P-BIT 8 6 PDISC EQU /43 DISC-FRAME ` > PDISCP EQU /53 DISC-FRAME + P-BIT 4 PUA EQU /63 UA-F
0x43820c…4383a0 Dummy {f00=0x0150, f01=0x0190, f02=» EQU /1F DM-FRAME + F-BIT < PFRMR EQU /87 FRMR/CMDR-FRAME < D PFRMRF EQU /97 FRMR/CMDR-FRAME + F-BIT | J PNVT EQU /FF ANY OTHER NOT SPECIFIED FRAM
0x4383a0…438534 (1, 1212) Dummy {f00=0x0150, f01=0x0190, f02=»************************* | P* " & P* INITIATED ARE - PARAMETER TABLE , & P* - PROTOCOL STATUS V P* - ALL QUEUES * P* - STATISTICAL COUNTERS , P* - CONNECT BUFFER POINTER P*
0x438534…4386c8 Dummy {f00=0x0150, f01=0x0190, f02=» ST A7,NUM . PINI2 EQU * 0 P LD A6,TABPAR,A7 GET PARAMETER TABLE ADDRESS & P LDR A2,A7 GET LINE INDEX Z P SRL A2,1 | 4 P LD A7,TABPAR-2,A7 GET FILECODE FOR I/O-HANDLER P LD A5,STB,A6 STACK BASE $ P CF A5,INIT INITIATE PARAMETERS
0x4386c8…43885c Dummy {f00=0x0150, f01=0x0190, f02=» ~ P EJECT P* P* P* LKM REQUEST HANDLER * P* H 2 P********************************************* R P* P* INPUT PARAMETERS: P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS P* P*
0x43885c…4389f0 Dummy {f00=0x0150, f01=0x0190, f02=» PPCALL EQU * ! * P INH USE OF THIS LEVEL IS PROHIBITTED ! P DURING THIS TIME ! N P* ! j 4 P* A5 WILL BE SET TO STACKBASE PER FILE CODE ! t $ P* IN THE PARAMETER TABLE ! 8 P* A6 WILL BE SET TO THE PARAMETER TABLE ADDRESS
0x4389f0…438b84 Dummy {f00=0x0150, f01=0x0190, f02=»TUS INACTIVE ! v P ST A3,DWTST,A6 . " 4 P LD A1,DWTPT,A6 GET ADDR PARAMETER TABLE PARTA1 " . , P ST A6,DWTAD,A1 SAVE DWT ADDR IN PARTA1 " f ( P LDR A6,A1 A6 IS NOW ADDRESS PARTA1 " P LDK A3,1 " , P ST A3,BUSY,A6 SET PROTOCOL HANDLER BUSY " , P LD
0x438b84…438d18 Dummy {f00=0x0150, f01=0x0190, f02=» SAVE DWTTAB " P ST A4,2,A8 SAVE DWTWAT # * P LD A2,ECBPR,A1 GET PRIORITY FROM ECB # 4 P ST A2,4,A8 SAVE PRIORITY # b 0 P ST A8,ECBPR,A1 SAVE LINE ECB ADDRESS IN ECB # * P LDR A8,A1 RESET ORIGINAL ECB ADDRESS # P ENB # $ P LDK A4,0 RESET POINTE
0x438d18…438eac Dummy {f00=0x0150, f01=0x0190, f02=» TO RECEIVED ORDER ? # ( P ABI(E) ORDER,A4 GO TO ORDER PROCESS $ P ADK A4,2 UPDATE POINTER $ H P RB PCALL1 TRY AGAIN $ h P* $ 0 P* TABLE WITH ENTRIES BELONGING TO ORDER $ P* $ * PORDER DATA CREAD IF CALL READ RECEIVED $ & P DATA CREAD IF
0x438eac…439040 Dummy {f00=0x0150, f01=0x0190, f02=» 0 P DATA CSTAT IF CALL FOR STATISTICS RECEIVED % P XIF % 8 P* % D PINVAL EQU * % N * P LDKL A1,NTNA NOTIFICATION NO ACCEPTED % b $ P CF A5,Q.ERDY QUEUE EVENT READY % P RF EXT % P* % PORDTAB EQU * LIST OF ORDERS % J P*
0x439040…4391d4 (1, 1213) Dummy {f00=0x0150, f01=0x0190, f02=» CONN % P DATA DISCN & P IFT STAT=1 & 0 P DATA STATR & D P XIF & X P DATA -1 & d P EJECT & t P* & P* & P* INPUT REQUEST HANDLER & P* & 2 P********************************************* & P* & P* INPUT
0x4391d4…439368 Dummy {f00=0x0150, f01=0x0190, f02=»B-ADDRESS & P* ' P* CALLING SEQUENCE: ' P* ABL CREAD ' 8 P* ' N & P* THE APPLICATION DRIVEN READ ' X H P* THIS PART WILL PERFORM THE REQUIRED ACTIONS FOR THE CALL READ ' P* ' PCREAD EQU * ' " P LDK A1,NTNC PRESET
0x439368…4394fc Dummy {f00=0x0150, f01=0x0190, f02=»E ' n & P LD A2,DRIVST,A6 LD DRIVER STATUS ( ( P RF(NZ) CREADC DRIVER NOT CONNECTED ( 4 . P LDK A1,NTTL PRESET ERR. CODE LENGTH ERROR ( ` * P LD A2,ECBRL,A8 GET REQUESTED LENGHTH ( & P LDR A4,A4 IS IT A WRITE REQUEST ? ( P RF(NZ) CWRITE YES ( $ P CW
0x4394fc…439690 Dummy {f00=0x0150, f01=0x0190, f02=»QF PRESET RETURN CODE ( $ P LD A4,NN,A3 ROOM FOR SAVING ? ) $ P RF(NP) CREADC INPUT QUEUE FULL ) F P CF A5,PUTBUF YES ? SAVE ! ) n & P LD A7,ECBBA,A8 GET BUFFER ADDRESS ) 4 P CF A5,L1INPQ INPUT REQUEST WITH IMPL. GLECB(A7) ) " P LD A1,SINS,A6 GET SIN
0x439690…439824 Dummy {f00=0x0150, f01=0x0190, f02=»L A1,/FBFF RESET IN.RNR IF SET ) P ORKL A1,/0200 SET IN.REJ * & P ST A1,PART1,A6 * H PTRANST EQU * * ` P CF A5,TRAN CALL TRANSMITTER * t PEXT EQU * * P ABL EXIT * PCREADC EQU * * P RF CONFL1 ERROR RETURN * P EJECT * P* * P
0x439824…4399b8 Dummy {f00=0x0150, f01=0x0190, f02=» * | P* A5 = STACK POINTER + $ P* A6 = PARAMETER TABLE ADDRESS + & P* A8 = ECB-ADDRESS + N P* + j P* CALLING SEQUENCE: + t P* ABL CWRITE + P* + & P* THE APPLICATION DRIVEN WRITE + P* + PCWRITE EQU * + $ P CW A2,SYLEN,A
0x4399b8…439b4c Dummy {f00=0x0150, f01=0x0190, f02=»OR CODE + x P LD A2,SC,A6 , P AD A2,AC,A6 , $ P ADR A2,A2 , 8 * P LD A3,Q1SCAD,A6 IS SEND QUEUE FULL ? , J P SU A2,NN,A3 . , x ( P RF(Z) CONFL1 YES, WRITE NOT ALLOWED , & P CF A5,PUTBUF SAVE ELEMENT IN QUE , P IFT TRACE=1 , P CF A5,LOGTRC TR
0x439b4c…439ce0 Dummy {f00=0x0150, f01=0x018e, f02=»NNECT REQUEST HANDLER , P* - 2 P********************************************* - ( P* - ^ P* INPUT PARAMETERS: - h P* A5 = STACK POINTER - $ P* A6 = PARAMETER TABLE ADDRESS - P* A8 = ECB-ADDRESS - P* - P* CALLING SEQUENCE: -
0x439ce0…439e74 (1, 1214) Dummy {f00=0x0150, f01=0x018e, f02=» ( P RF(NN) CONFL1 STATUS NOT DISCONNECT . P* INITIATE PROTOCOL . 0 P LDK A1,DISCNT . L ( P ST A1,CSV,A6 SET CSV = DISCONNECTED . b & P CM SINS,A6 SET RECEIVER NOT BUSY . P LDKL A1,-1 . P ST A1,TST,A6 TIMER STATE . P CM SC,A6 RESET SEND COUNT
0x439e74…43a008 Dummy {f00=0x0150, f01=0x0190, f02=» , P CF A5,RESTR RESET TRANSMITTER VARIABLES / * P CF A5,RESREC RESET RECEIVER VARIABLES / 4 P LDKL A1,0-SYIORY / b $ P ST A1,INPRY,A6 INIT RETRY COUNT / | & P LD A2,ECBBA,A8 USER BLOCK ADDRESS / $ P LDK A1,NTPCI PRESET ERROR CODE / * P LDR* A2,A2 NUMBER
0x43a008…43a19c Dummy {f00=0x0150, f01=0x0190, f02=»EN,A6 SAVE IT AS INPUT LENGTH / P LDK A1,1 0 & 4 P ST A1,PROTST,A6 PROTOCOL STATUS 'CONNECT BUSY' 0 8 P LD A1,INBUF,A6 0 p B P ST A1,CONBUF,A6 INITIATE AREA FOR SAVING THE CONNECT BUFFERS 0 P* AT DISCONNECT TIME 0 " P ST A8,CONECB,A6 SAVE USER E
0x43a19c…43a330 Dummy {f00=0x0150, f01=0x0190, f02=»E 0 p P RB(NP) EXT DEVICE IS KNOWN 1 , P CF A5,PLECB RETURN ELEMENT TO ECB QUEUE 1 . . P LDKL A1,NTCU RC := DEVICE ADDRESS UNKNOWN 1 ^ PCCONFL EQU * 1 P LDKL A2,-1 1 2 P ST A2,PROTST,A6 PROTOCOL STATUS DISCONNECTED 1 " P LD A8,CONECB,A6 GET USER
0x43a330…43a4c4 Dummy {f00=0x0150, f01=0x018e, f02=»CT REQUEST HANDLER 1 P* 2 2 P********************************************* 2 $ P* 2 Z P* INPUT PARAMETERS: 2 d P* A5 = STACK POINTER 2 $ P* A6 = PARAMETER TABLE ADDRESS 2 P* A8 = ECB-ADDRESS 2 P* 2 P* CALLING SEQUENCE: 2 P
0x43a4c4…43a658 Dummy {f00=0x0150, f01=0x0190, f02=» 2 l & P LDR* A2,A2 GET NUMBER OF BUFFERS 3 , P CWK A2,SYUBNR EQUAL TO SYSGEN DEFINED? 3 2 P RF(NE) CDISC3 NO! 3 b $ P LDK A1,NTNC PRESET RETURN CODE 3 | ( P LD A2,PROTST,A6 GET PROTOCOL STATUS 3 P LDKL A3,-1 3 * P ST A3,PROTST,A6 AND SET DISCONNECT
0x43a658…43a7ec Dummy {f00=0x0150, f01=0x0190, f02=»1,NTLD SET LOCAL DISC DURING OPEN 3 & P ST A1,LECBRC,A6 SAVE RETURN CODE 4 * , P LDR A2,A2 GET ORIGINAL PROTOCOL STATUS 4 T P RF(Z) CDISC4 OPEN READY 4 $ P LD A8,CONECB,A6 GET CONNECT ECB 4 & P LD A2,DRIVST,A6 GET DRIVER STATUS 4 2 P RF(NZ) CDISC1 DRI
0x43a7ec…43a980 Dummy {f00=0x0150, f01=0x0190, f02=»WITH IMPL. LECB REQUEST 4 v P RF CDISC2 5 PCDISC1 EQU * 5 2 . P CF A5,Q.ERDY RETURN CONN.REQ.WITH BUFFERS 5 F PCDISC2 EQU * 5 x P ABL EXT FINISHED 5 P* 5 PCDISC3 EQU * 5 2 P CM* ECBBA,A8 INDICATION: NO BUFFERS RETURNED! 5 P RB CONFL1 5
0x43a980…43ab14 (1, 1215) Dummy {f00=0x0151, f01=0x0190, f02=» DISCONNECTED(-1) 5 x 6 P ABL(Z) DISRD3 DRIVER ALREADY DISCONNECTED,RETURN 6 @ P LD A1,OUTSTP,A6 CHECK OUTST.P IS SET 6 T , P RF(NZ) CDISC6 YES ! FRAMES OUTSTANDING 6 ( P LDKL A1,/0820 SET IN.DISC AND IN.P 6 > P ORS A1
0x43ab14…43aca8 Dummy {f00=0x0151, f01=0x0190, f02=» * 6 8 P LDK A1,DISCF CSV BECOMES DISCONNECTING, WAIT FOR F 7 PCDISC7 EQU * 7 J P ST A1,CSV,A6 7 ^ " P ABL TRANST START TRANSMITTER 7 t P IFT STAT=1 7 P EJECT 7 P* 7 P* 7 P* STATISTICS REQUEST HANDLER 7 P* 7 2 P**********
0x43aca8…43ae3c Dummy {f00=0x0151, f01=0x0190, f02=»ADDRESS 7 x P* A8 = ECB-ADDRESS 8 P* 8 , P* CALLING SEQUENCE: 8 6 P* ABL CSTAT 8 R P* 8 h PCSTAT EQU * 8 r * P LDK A1,STALNG LENGTH OF COUNTER AREA 8 * P CW A1,ECBRL,A8 COMPARE WITH USER AREA 8 P RF(L) CSTAT1 8 & P LD A1,ECBRL,A8
0x43ae3c…43afd0 Dummy {f00=0x0151, f01=0x0190, f02=»A6 START ADDRESS COUNTER AREA 8 , P LD A3,ECBBA,A8 START ADDRESS USER AREA 9 & PCSTAT2 EQU * 9 V $ P SUK A1,2 REDUCE LENGTH COUNTER 9 j P RF(N) CSTAT3 READY 9 P LDR* A4,A2 COPY COUNTER 9 P STR A4,A3 . 9 P CMR A2 CLEAR COUNTER 9 P ADK A2,
0x43afd0…43b164 Dummy {f00=0x0151, f01=0x0190, f02=» P RB CONFL1 EXIT : P XIF : P EJECT : ( P* : 6 P* : @ P* INTERRUPT DRIVEN SCHEDULER : J P* : n 2 P********************************************* : x P* : P* INPUT PARAMETERS: : P* A1 OR A8 = ECB-ADDRESS : P* : P* CALLIN
0x43b164…43b2f8 Dummy {f00=0x0151, f01=0x0190, f02=»ENTRY FOR ALL TIME OUT REQUESTS ACTIVATED BY TIMER : P* ; : . PIDREQT EQU * INTERRUPT DRIVEN TIMER ENTRY ; D . P LDR A8,A1 ECB ADDRESS IN CORRECT REGISTER ; v 6 P***** ENTRY FOR ALL I/O-HANDLER INTERRUPT REQUESTS ; P* ; P* ; PIDREQ EQU * ;
0x43b2f8…43b48c Dummy {f00=0x0151, f01=0x0190, f02=»CODE MATCH ; p P RF(E) IDR2 YES < P SUK A2,4 TAKE NEXT ENTRY < * P RB IDR1 < L PIDR2 EQU * < 0 P LD A6,TABPAR,A2 GET PARAMETER TABLE ADDRESS < n $ P LD A5,NEWSTB,A6 GET STACK BASE < & P LD A1,BUSY,A6 CHECK IF LEVEL BUSY < P RF(Z) IDNOTB < 6
0x43b48c…43b620 Dummy {f00=0x0151, f01=0x0190, f02=» ABL TDISP < P* = P* = PIDNOTB EQU * = & * P LD A5,STB,A6 MAKE CF STACK IN PARTA1 = : P LDK A1,1 = h " P ST A1,BUSY,A6 SET LEVEL BUSY = z P EJECT = 0 P**** ENTRY FOR THE INTERRUPT REQUEST HANDLER = 6 P* AND THE EXIT REQUEST HANDLER WHEN TH
0x43b620…43b7b4 (1, 1216) Dummy {f00=0x0151, f01=0x0190, f02=»F(P) IDCN2 = PIDCN1 EQU * > P HLT ILLEGAL ORDER > & PIDCN2 EQU * > B P CWK A7,5 > V P RB(G) IDCN1 ILLEGAL ORDER > h P LDKL A1,/302F > : P ANS A1,ECBRC,A8 RESET NOT RELEVANT BITS IN RETURNCODE > P RF(Z) IDCN3 NO ERROR > P LDKL A1,/80
0x43b7b4…43b948 Dummy {f00=0x0151, f01=0x018e, f02=»POINTER IN ENTRY TABLE > x $ P ABI IDRY,A7 START SELECTED PART ? P* ? F PIDRY EQU *-2 ? P ( P DATA CONRDY ORDER=1, CONNECT READY ? d & P DATA RECRDY ORDER=2, INPUT READY ? & P DATA OUTRDY ORDER=3, OUTPUT READY ? * P DATA DISRDY ORDER=4, DISCONNECT REA
0x43b948…43badc Dummy {f00=0x0151, f01=0x0190, f02=» P* @ 2 P********************************************* @ P* @ D P* INPUT PARAMETERS: @ N P* A5 = STACK POINTER @ j $ P* A6 = PARAMETER TABLE ADDRESS @ P* A8 = ECB-ADDRESS @ P* @ P* CALLING SEQUENCE: @ P* ABL CON.RDY @
0x43badc…43bc70 Dummy {f00=0x0151, f01=0x0190, f02=»A1,ECBRC,A8 GET CONDITION REGISTER @ $ P RF(NZ) CCONN6 CONNECTION FAILED A * P LDK A1,0 A R , P ST A1,DRIVST,A6 DRIVER STATUS CONNECTED A d P LD A1,PROTST,A6 A 4 P RF(NN) CCONN5 NO DISCONNECT REQUEST BY PROTOCOL A 6 P CF A5,L1STPQ STOP DRIVER WITH IMPL.
0x43bc70…43be04 Dummy {f00=0x0151, f01=0x0190, f02=»A6 USER ECB ADDRESS A > P LD A2,ECBBA,A8 GET BLOCK ADDRESS B & P LDR* A1,A2 GET NUMBER OF BUFFERS B ^ PCCONN4 EQU * B P LD A7,2,A2 B 6 P CF A5,L1INPQ INPUT DRIVER WITH IMPL. ECB REQUEST B P ADK A2,2 B ( P SUK A1,1 DE
0x43be04…43bf98 Dummy {f00=0x0151, f01=0x018e, f02=»A1,CNTA B ~ B P ST A1,CSV,A6 SET CSV TO CONNECTING C F P LDKL A1,/1020 SET IN.SABM/IN.SARM , IN.P C V > P ORS A1,PART1,A6 IN PARAMETER TABLE C " P ABL TRANST START TRANSMITTER C P
0x43bf98…43c12c Dummy {f00=0x0151, f01=0x0190, f02=» P EJECT D P* D P* D , P* OUTPUT REQUEST READY INTERRUPT HANDLER D & P* D V 2 P********************************************* D ` P* D P* INPUT PARAMETERS: D P* A5 = STACK POINTER D $ P* A6 = PARAMETER TABLE ADDRESS D P* A8
0x43c12c…43c2c0 Dummy {f00=0x0151, f01=0x0190, f02=» LDK A1,0 D * P ST A1,OUTPEN,A6 RESET OUTPUT PENDING E ( P CF A5,PLECB STORE LINE ECB IN QUEUE E @ & P LD A1,DRIVST,A6 GET DRIVER STATUS E l P RF(P) OTSTP DRIVER STOPPED E & P RF(NN) OUTEX RESTART TRANSMITTER E 4 P* PROTOCOL HAS SET A REQUEST TO STOP
0x43c2c0…43c454 (1, 1217) Dummy {f00=0x0151, f01=0x018e, f02=»ART1,A6 THE PROTOCOL REQUESTED A STOP AFTER E P* UA OR DM FRAME IS SENT F 4 6 P ANKL A1,/6000 CHECK IF THE FRAME IS ALREADY SENT F V , P RF(NZ) OUTEX UA OR DM FRME MUST BE SENT F 2 P LDK A1,NTRD ALREADY SENT, R.C. IS REMOTE DISC F $ P ST A1,LECBRC,A6 S
0x43c454…43c5e8 Dummy {f00=0x0151, f01=0x0190, f02=» F l P RF(NZ) OUTEX NOT READY G . P CF A5,L1DISQ DISC. DRIVER IMPL. ECB REQ. G ( POUTEX EQU * G Z P ABL TRANST FINISHED G n P* G P* G PDQEV EQU * G P LDR A7,A3 SAVE QUE ADDRESS G PDQEV1 EQU * G $ P LD A4,NF,A3 NUMBER OF ELEMENTS
0x43c5e8…43c77c Dummy {f00=0x0151, f01=0x0190, f02=»NT READY QURE G x " P LDR A3,A7 RELOAD QUE ADDRESS H P RB DQEV1 GET NEXT ELEMNT H < PDQEND EQU * H ^ P RTN A5 FINISHED H r , PDQOUT EQU * DEQUEUE ALL OUTPUT REQUESTS H ( P* AND STORE INT EVENT READY QUEUE H & P LD A3,Q1ACAD,A6 ACKNOWLEDGE QUEUE
0x43c77c…43c910 Dummy {f00=0x0151, f01=0x018e, f02=»INPUT READY INTERRUPT HANDLER H P* I & 2 P********************************************* I 0 P* I f P* INPUT PARAMETERS: I p P* A5 = STACK POINTER I $ P* A6 = PARAMETER TABLE ADDRESS I P* A8 = ECB-ADDRESS I P* I P* CALLING SEQUEN
0x43c910…43caa4 Dummy {f00=0x0151, f01=0x0190, f02=» I 6 P ADS A1,INP.CNT,A6 DECREMENT PENDING INPUT REQUEST J & P LD A1,DRIVST,A6 GET DRIVER STATUS J B " P RF(P) INP.STP STATUS STOPPED J l 0 P RF(N) INPST1 PROTOCOL REQUESTED A STOP LINE J ( P* WHEN OUT PUT IS READY (UA OR DM) J $ P LD A1,ECBRC,A8 GET RE
0x43caa4…43cc38 Dummy {f00=0x0151, f01=0x018e, f02=» J n P* K P CF A5,REC CALL RECEIVER K " P RB OUTEX START TRAN AND EXIT K 2 P* K X P* K b P* K l PINPER EQU * K v 4 P LD A3,ECBRL,A8 GET TIMER READY SIMULATION FLAG K * P RF(Z) INP100 INPUT SIMULATED BY TIMER K , P IM INPRY,A6 INCREMENT I
0x43cc38…43cdcc Dummy {f00=0x0151, f01=0x0190, f02=» K r P EJECT L P* L 0 P*** SIMULATE INPUT REQUEST VIA TIMER REQUEST L P* L T & P IM INPCNT,A6 INCREASE INPUT COUNT L ^ * P CM ECBRL,A8 SET INPUT SIMULATION FLAG L 6 P*** ECBRL IS NOT ZERO WHEN NORMAL INPUT IS READY L 2 P LDR A1,A8 A1=PARAMETER
0x43cdcc…43cf60 Dummy {f00=0x0151, f01=0x0190, f02=»= 1/10 SECONDS L | P ENB M P RF EXIT READY M " 0 P*** RESTART INPUT REQUEST AFTER TIMER READY M 8 P* M l PINP100 EQU * M v & P CF A5,L1INP LEVEL 1 INPUT REQUEST M P RF EXIT EXIT M P* M P EJECT M P* M $ PINPIRR EQU * IRRECOVERABLE E
0x43cf60…43d0f4 (1, 1218) Dummy {f00=0x0151, f01=0x0190, f02=»A6 NUMBER OF OUTP REQ PEND. M ( P AD A1,INP.CNT,A6 AD INP REQ PENDING N $ 0 P RF(NZ) INPST1 NO DISCONNECT AT THIS MOMENT N P , P CF A5,L1DISQ DISC DRIVER IMPL ECB REQ. N PINPST1 EQU * N . P LDR A8,A2 RELOAD ORIGINAL LINE ECB ADDR. N ( P CF A5,PLECB S
0x43d0f4…43d288 Dummy {f00=0x0151, f01=0x0190, f02=»8 GET GET BUFFER ADDRESS N 2 P LD A3,Q1IRAD,A6 GET INPUT REQUEST QUE ADDRESS O $ P LD A1,NF,A3 REQUESTS PENDING ? O V P RF(Z) DQINEM QUE EMPTY O ~ P CF A5,GETBUF GET ELEMENT O ( P ST A4,ECBBA,A8 SAVE BUFFER ADDRESS O $ P LD A1,LECBRC,A6 GET RETURN
0x43d288…43d41c Dummy {f00=0x0151, f01=0x0190, f02=» BUFFER O r ( P LDK A4,2 INCREMENT POINTER ADDRESS P P ADS A4,CONBUF,A6 P < P RTN A5 FINISHED P V P* P n P* P x P EJECT P P* P P* P ( P* DISCONNECT READY INTERRUPT HANDLER P P* P 2 P*********************************************
0x43d41c…43d5b0 Dummy {f00=0x0151, f01=0x0190, f02=» P | P* Q P* CALLING SEQUENCE: Q P* ABL DIS.RDY Q . P* Q F PDIS.RDY EQU * Q P $ P CF A5,PLECB STORE LECB IN QUEUE Q f , P CF A5,DQOUT RETURN ALL OUTPUT REQUESTS Q ( P LD A1,PROTST,A6 GET PROTOCOL STATUS Q P RF(Z) EXIT EXIT Q & P RF(P)
0x43d5b0…43d744 Dummy {f00=0x0151, f01=0x0190, f02=» RETURNCODE Q $ P ST A1,LECBRC,A6 SAVE IN PARTA1 R PDISRD2 EQU * R < . P LD A2,ECBBA,A8 GET ADDRESS OF USER BLOCK R R $ P LD A1,CONBUF,A6 EXTRACT POINTER R P LDR A4,A1 R P SU A4,INBUF,A6 R P SRL A4,1 R P STR A4,A2 R P RF(Z) DISRD0
0x43d744…43d8d8 Dummy {f00=0x0151, f01=0x018e, f02=»SS R t " P STR A7,A2 SAVE IN USER BLOCK S P SUK A4,1 S 0 P RB(NZ) DISRD1 S B PDISRD0 EQU * S X $ P LD A1,LECBRC,A6 GET RETURN CODE S l " P CF A5,Q.ERDY QUE EVENT READY S P RF EXIT EXIT S PDISOP EQU * S $ P LD A8,CONECB,A6 GET CONNECT ECB S
0x43d8d8…43da6c Dummy {f00=0x0151, f01=0x0190, f02=» S & P* LEVEL 2 END I/O AND EXIT ROUTINE T P* T 2 2 P********************************************* T < P* T r P* INPUT PARAMETERS: T | P* A5 = STACK POINTER T $ P* A6 = PARAMETER TABLE ADDRESS T P* A8 = ECB-ADDRESS T P* T P* CA
0x43da6c…43dc00 Dummy {f00=0x0151, f01=0x0190, f02=»RAD,A6 EVENT READY QUE T & P LD A4,NF,A3 NUMB OF FREE ELEMENTS U 0 P RF(Z) EX150 SET NOT BUSY BEFORE RETURN A.I. U H & P LD A4,DWTAD,A6 GET ADDRESS OF DWT U | > P*** TEST IF DWT IS JUST UPDATED BY THE MONITOR (TIO) U " P LD A1,DWTST,A4 U
0x43dc00…43dd94 (1, 1219) Dummy {f00=0x0152, f01=0x0190, f02=»CBPR,A1 GET ADDRESS SAVE AREA LIECB U P LDR* A2,A8 GET TTAB ADDRESS V , * P ST A2,DWTTAB,A4 SAVE IN DWTTAB OF DWT V P 2 P LD A2,2,A8 GET WAIT OR ACTIVATION INDICATION V ~ * P ST A2,DWTWAT,A4 SAVE IN DWTWAT OF DWT V " P LD A2,4,A8 GET PRIORITY FIELD V * P
0x43dd94…43df28 Dummy {f00=0x0152, f01=0x0190, f02=»WTECB,A4 STORE ECB IN DWT V $ P LD A1,ECBRC,A8 GET RETURN CODE W " P LDR A2,A6 SAVE A6 W J P LDR A6,A4 A6=DWT-ADDRESS W d " P CF A15,TENDIO COMPLETE EVENT W P LDR A6,A2 RESTORE A6 W $ P LD A5,STB,A6 RELOAD STACK BASE W P RB EXIT TRY NEXT W
0x43df28…43e0bc Dummy {f00=0x0152, f01=0x0190, f02=»00 NO INTERRUPT REQUEST PENDING W ( P CF A5,GETBUF GET REQUEST FROM QUEUE X ( P ABL IDCONT ACTIVATE REQUEST X T PEX200 EQU * X x & P CM BUSY,A6 SET PROTOCOL NOT BUSY X & P ABL TDISP RETURN AFTER INTERRUPT X P* X P* X PQ.ERDY EQU * X P
0x43e0bc…43e250 Dummy {f00=0x0152, f01=0x0190, f02=»ECB ADDRESS X P* Y $ P ST A1,ECBRC,A8 SAVE RETURN CODE Y $ P LD A3,Q1ERAD,A6 EVENT READY QUE Y F P CF A5,PUTBUF SAVE IN QUE Y n P RTN A5 RETURN TO CALLER Y P EJECT Y P* Y P* Y P* TIMEOUT ROUTINE Y P* Y 2 P******************
0x43e250…43e3e4 Dummy {f00=0x0152, f01=0x0190, f02=» Y p P* A8 = ECB-ADDRESS Z P* Z $ P* CALLING SEQUENCE: Z . P* ABL TIM.RDY Z J P* Z b PTIM.RDY EQU * Z l , P LD A1,TIMADR,A6 TIMER ALREADY STOPPED ? Z P RB(Z) EXIT YES Z " P LDR* A1,A1 NO REAL TIMEOUT ? Z P RB(N) EXIT YES Z P
0x43e3e4…43e578 Dummy {f00=0x0152, f01=0x018e, f02=»T PENDING Z p , P LD A1,CSV,A6 LOAD CSV FOR USE FURTHERON [ ( P LD A2,NRT,A6 GET NUMBER OF RETRIES [ B . P SUK A2,SYNRY COMPARE WITH ALLOWED MAXIMUM [ n $ P RF(N) TOTC1 MAXIMUM NOT REACHED [ P LDK A2,DISCNT [ * P ST A2,CSV,A6 CSV BECOMES DISCONNECTED [
0x43e578…43e70c Dummy {f00=0x0152, f01=0x018e, f02=» P RF TOTC13 READY P* SELECT ON CSV PTOTC1 EQU * 4 P CWK A1,DISCNT H P RF(NE) TOTC2 ^ P* CSV IS DISCONNECTED t P LDKL A2,-1 $ P ST A2,TST,A6 TIMER STATE := -1 P RF TOTC13 READY P* PTOTC2 EQU * " P CWK
0x43e70c…43e8a0 Dummy {f00=0x0152, f01=0x0190, f02=» P RF(Z) TOTC10 TST = 0 ] P SUK A1,1 ] " P RF(Z) TOTC8 TST = 1 ] 4 P SUK A1,1 ] P P RF(Z) TOTC9 TST = 2 ] b P RF TOTC10 TST = 3 ] ~ P* ] P* ] PTOTC3 EQU * ] 4 P CWK A1,CNTRES CSV = CONNECTED, WAIT FOR RESET ? ] P RF(NE) TOTC4 NO
0x43e8a0…43ea34 (1, 1220) Dummy {f00=0x0152, f01=0x0190, f02=»T,A6 INCREMENT # OF RETRIES ] P RF TOTC13 ^ $ P* ^ 6 PTOTC4 EQU * ^ @ 0 P*** TEST IF WAIT FOR RESPONSE ON RESET ^ Z P CWK A1,CNTRS1 ^ P RF(E) TOTC5A ^ P* ^ P* ALL OTHER CSV'S ^ P LDK A2,1 ^ P
0x43ea34…43ebc8 Dummy {f00=0x0152, f01=0x0190, f02=» A1,CNT ^ & P RF(G) TOTC6 CSV IS DISCONNECTING _ PTOTC5A EQU * _ : 0 P LDKL A1,/1020 SET IN.SABM/IN.SARM AND IN.P _ V P RF TOTC7 _ P* _ PTOTC6 EQU * _ 0 P*** TEST IF WAIT FOR F-BIT BEFORE DISCONNECT _ P SUK A1,DISCF _ P RF(
0x43ebc8…43ed5c Dummy {f00=0x0152, f01=0x0190, f02=» _ & P IM NRT,A6 INCREMENT # OF RETRIES ` P RF TOTC11 ` 2 P* ` D PTOTC8 EQU * ` N & P IM NRT,A6 INCREMENT # OF RETRIES ` b PTOTC9 EQU * ` & P LD A2,LNR,A6 GET LAST RECEIVED NR ` P ST A2,VS,A6 SET NEW V(S) ` * P CF A5,DACQSC DEQUEUE AC AND
0x43ed5c…43eef0 Dummy {f00=0x0152, f01=0x0190, f02=» PTOTC12 EQU * a P CF A5,STATIM START TIMER a PTOTC13 EQU * a : P ABL TRANST a N P EJECT a b P* a p P* a z P* RECEIVER a P* a 2 P********************************************* a P* a P* INPUT PARAMETERS: a P* A5 = STAC
0x43eef0…43f084 Dummy {f00=0x0152, f01=0x0190, f02=»EC a P* b P* b > P* THE PROTOCOL RECEIVER MODULE WILL PERFORM ALL NECESSARY b : P* ACTIONS TO PROCESS THE CONTENTS OF A RECEIVED FRAME. b ` P* b ( P* THIS PART IS MAINLY TABLE DRIVEN. b P* b $ P* THE FOLLOWING TABLES ARE USED: b > P*
0x43f084…43f218 Dummy {f00=0x0152, f01=0x0190, f02=» ALL NON RELEVANT BITS ARE SET TO ZERO. b ( P* EXCEPT THE P-BIT. c 6 > P* THE TABLE KNOWS COMMANDS AND RESPONSES. c b P* c > P* ALTAB: THIS TABLE CONTAINS THE RELATION BETWEEN c < P* A FRAM
0x43f218…43f3ac Dummy {f00=0x0152, f01=0x0190, f02=»THIS TABLE IS THE MAIN TABLE OF THE c ~ 0 P* PROTICOL RECEIVER MODULE. d , : P* DEPENDING ON THE STATE(CVS) AND THE d ` < P* GIVEN ENTRYPOINT(BY ALTAB) THIS TABLE d @ P* GIVES THE NEW STATE AND
0x43f3ac…43f540 Dummy {f00=0x0152, f01=0x0190, f02=»VERTS THE NUMBER AS GIVEN d p > P* BY PROTAB TO A LIST OF ACTIONS WHICH IS e " < P* GIVEN TO EXACT (THE ACTIONS EXECUTER) e d P* e P EJECT e P* e P* e P* TABLE DEFINITION OF VALTAB e P* e J PVALTLO F
0x43f540…43f6d4 (1, 1221) Dummy {f00=0x0152, f01=0x0190, f02=»LE e V B PIVAL EQU *-VALTAB IVAL POINTER IN VALTAB f D P DATA SVAL-IVAL-2 NUMBER OF TYPES ALLOWED f P @ P VALTLO NVT,I ONLY I-COMMAND VALID f @ P VALTLO NVT,IP
0x43f6d4…43f868 Dummy {f00=0x0152, f01=0x0190, f02=»MBER OF TYPES ALLOWED f f P IFT ABM=1 g F P VALTLO RR,RR RR-COMMANDS AND RESPONSES g > @ P VALTLO RRF,RRP WITH P OR F-BIT g F P VALTLO RNR,RNR RNR-COMMANDS AND RES
0x43f868…43f9fc Dummy {f00=0x0152, f01=0x0190, f02=»ND RESPONSES g Z @ P VALTLO REJF,REJP WITH P OR F-BIT h P XIF h X P IFT ABM=0 h l 2 P VALTLO RR,NVT RR-RESPONSE h 2 P VALTLO RRF,NVT WITH F-BIT h 4 P VALTLO
0x43f9fc…43fb90 Dummy {f00=0x0152, f01=0x018e, f02=»PONSE h f 2 P VALTLO REJF,NVT WITH F-BIT i P XIF i D B PUVAL EQU *-VALTAB UVAL POINTER IN VALTAB i X D P DATA ENUVAL-UVAL-2 NUMBER OR TYPES ALLOWED i P IFT ABM=1 i ( P VALTLO NVT,SABM
0x43fb90…43fd24 Dummy {f00=0x0152, f01=0x0190, f02=» i j $ P VALTLO NVT,SARMP WITH P-BIT SET j P XIF j 0 > P VALTLO NVT,DISC ONLY DISC-COMMANDS j < @ P VALTLO NVT,DISCP WITH P-BIT SET j ~ > P VALTLO UA,NVT ONLY UA-RESPONSES j @ P
0x43fd24…43feb8 Dummy {f00=0x0152, f01=0x0190, f02=» VALTLO DMF,NVT WITH F-BIT SET j D P VALTLO FRMR,NVT ONLY FRMR/CMDR-RESPONSES k > @ P VALTLO FRMRF,NVT WITH F-BIT SET k J PENUVAL EQU *-VALTAB END OF TABLE IN
0x43feb8…44004c Dummy {f00=0x0152, f01=0x0190, f02=» EQU /2 DISC k PF3 EQU /3 DM l PF4 EQU /4 DM + F-BIT l ( PF5 EQU /5 UA l D PF6 EQU /6 UA + F-BIT l X PF7 EQU /7 FRMR/CMDR l t PF8 EQU /8 FRMR/CMDR + F-BIT l PF9 EQU /9 S - RESPONSE l PFA EQU /A S - COMMAND l PFB EQU /B S + P-BIT l
0x44004c…4401e0 Dummy {f00=0x0152, f01=0x0190, f02=»E DEFINITION OF ALTAB l P* m ( PALTLO FORM 8,8 WORD LAY-OUT OF ALTAB m ( P* m T PALTAB EQU * START OF TABLE m ^ P* m " P ALTLO /0,/0 NOT ALLOWED ENTRY m P ALTLO F0,FD NVT / I m P ALTLO F0,FE NVT / IP m " P ALTLO /0,/0 NOT ALLOWED E
0x4401e0…440374 (1, 1222) Dummy {f00=0x0152, f01=0x0190, f02=» ALTLO F9,FA S / S m P ALTLO FC,FB SF / SP n " P ALTLO /0,/0 NOT ALLOWED ENTRY n > * P ALTLO F0,F1 NVT / SABM (SARM) n d * P ALTLO F0,F1 NVT / SABMP (SARMP) n P ALTLO F0,F2 NVT / DISC n P ALTLO F0,F2 NVT / DISCP n P ALT
0x440374…440508 Dummy {f00=0x0152, f01=0x0190, f02=» FRMR / NVT (CMDR) n * P ALTLO F8,F0 FRMRF / NVT (CMDRF) o " P EJECT o P P* o ^ & P* TABLE WITH ADDRESSES FOR PROTAB o h ( P* THE VALUE OF CSV IS USED AS INDEX o P* o PCSVTAB EQU * o P DATA CSV:0 o P DATA CSV:1 o P IFT
0x440508…44069c Dummy {f00=0x0152, f01=0x0190, f02=»V:4 o P DATA CSV:5 p P DATA CSV:6 p P DATA CSV:7 p 4 P DATA CSV:8 p H P IFT ABM=0 p P DATA CSV:9 p n P DATA CSV:A p P DATA CSV:B p P DATA CSV:C p P XIF p P IFT ABM=1 p P DATA 0 p P DATA 0 p P DATA 0 p
0x44069c…440830 Dummy {f00=0x0152, f01=0x0190, f02=» POINTER IN p ` . P* ACTAB TO THE ACTIONLIST TO BE PERFORMED. q P* q F P* q P P* LIST OF FRAME TYPES q Z P* q x P* F0 = NVT q P* F1 = SABM/SARM q P* F2 = DISC q P* F3 = DM q P* F4 = DM + F-BIT q P* F5 = UA q P* F6 = UA
0x440830…4409c4 Dummy {f00=0x0152, f01=0x0190, f02=» P-BIT q P* FC = S + F-BIT r P* FD = I r & P* FE = I + P-BIT r 6 P* FF = ***SPARE*** r N P* r h P EJECT r r P IFT ABM=0 r P* r PPROTAB EQU * r P* r 6 P* F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 FA FB FC FD FE FF r P* r > PCSV:0 DATA
0x4409c4…440b58 Dummy {f00=0x0152, f01=0x0190, f02=»20,/2020,/2620,/4F20,/2620,/2020,/2020,/2020 r > PCSV:3 DATA /3044,/A530,/3030,/3030,/3030,/3030,/3030,/3030 s 4 > PCSV:4 DATA /4069,/9598,/9862,/6262,/624D,/4D4D,/4D4C,/4C40 s v > PCSV:5 DATA /5041,/9550,/5050,/5050,/5050,/5353,/5053,/5350 s > PCSV:6 DATA /60
0x440b58…440cec Dummy {f00=0x0152, f01=0x018e, f02=»B480,/CF80,/CF80,/8080,/8080,/8080,/8080 s ~ > PCSV:9 DATA /9090,/9490,/0B90,/0B90,/9090,/9090,/9090,/9090 t 0 > PCSV:A DATA /A0A0,/A4A0,/0BA0,/0BA0,/A0A0,/A0A0,/A0A0,/A0A0 t r > PCSV:B DATA /B0B0,/B4B0,/0BB0,/0BB0,/B0B0,/B0B0,/B0B0,/B0B0 t > PCSV:C DATA /C0C0,/
0x440cec…440e80 Dummy {f00=0x0152, f01=0x018e, f02=» 6 P* F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 FA FB FC FD FE FF u P* u > > PCSV:0 DATA /0046,/0619,/1900,/0000,/0000,/0000,/0000,/0000 u H > PCSV:1 DATA /1046,/0810,/0710,/4110,/1010,/1010,/1010,/1010 u > PCSV:2 DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000 u
0x440e80…441014 (1, 1223) Dummy {f00=0x0153, f01=0x0190, f02=» > PCSV:5 DATA /5046,/0663,/6350,/5063,/6350,/5555,/5055,/5550 v > PCSV:6 DATA /6062,/0A60,/0760,/4160,/6360,/6060,/6060,/6060 v F > PCSV:7 DATA /7070,/0670,/7070,/7070,/707F,/7F7F,/8B7F,/7F70 v > PCSV:8 DATA /8080,/8680,/0780,/0780,/8080,/8080,/8080,/8080 v
0x441014…4411a8 Dummy {f00=0x0153, f01=0x0190, f02=»CSV:B DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000 v > PCSV:C DATA /0000,/0000,/0000,/0000,/0000,/0000,/0000,/0000 w B P* w P XIF w P* w P EJECT w P* w P* TABLE DEFINITION OF ACTAB w P* w . PACTLO FORM 1,1,1,1,1,1,1,1,1,1
0x4411a8…44133c Dummy {f00=0x0153, f01=0x0190, f02=»RESET TRANSMITTER VARIABLES w P* 2 = SET IN.FRMR (IN.CMDR) x $ P* 3 = SET IN.UA x H P* 4 = SET IN.DM x ` P* 5 = SET IN.SABM (IN.SARM) x x P* 6 = SET IN.DISC x P* 7 = SET IN.RNR x P* 8 = SET IN.P x P* 9 = SC := AC := 0 x P* A = RE
0x44133c…4414d0 Dummy {f00=0x0153, f01=0x0190, f02=»* F = RECEIVER TIMER CONTROL x P* y $ P IFT ABM=0 y . P* y @ PACTAB EQU * START OF TABLE y J , P* FIELD 0 1 2 3 4 5 6 7 8 9 A B C D E F y l P* y . PACT0 ACTLO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 y . PACT1 ACTLO 1,0,0,1,0,0,0,0,0,0,0,0,1,0,0,1 y .
0x4414d0…441664 Dummy {f00=0x0153, f01=0x0190, f02=»,1,0,0,1 y n . PACT5 ACTLO 0,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1 z . PACT6 ACTLO 0,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1 z B . PACT7 ACTLO 0,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1 z t . PACT8 ACTLO 0,0,0,0,0,0,1,0,1,0,0,0,1,0,0,1 z . PACT9 ACTLO 1,1,0,1,0,1,0,0,1,1,0,0,1,0,0,1 z .
0x441664…4417f8 Dummy {f00=0x0153, f01=0x0190, f02=»,1,1,0,1 z n . PACTD ACTLO 0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1 { . PACTE ACTLO 0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1 { B . PACTF ACTLO 0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1 { t P* { P XIF { P* { P IFT ABM=1 { P* { P* { PACTAB EQU * START OF TABLE {
0x4417f8…44198c Dummy {f00=0x0153, f01=0x0190, f02=»,0,0,0,1,0,0,1,0,0,1 { z . PACT2 ACTLO 1,1,0,1,0,0,0,0,0,1,0,0,1,0,0,1 | . PACT3 ACTLO 1,1,0,0,0,1,0,0,1,1,0,0,1,0,0,1 | N . PACT4 ACTLO 1,1,1,0,0,0,0,0,0,1,0,0,1,0,0,1 | . PACT5 ACTLO 0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,1 | . PACT6 ACTLO 0,0,0,1,0,0,0,0,0,0,0,0,1
0x44198c…441b20 Dummy {f00=0x0153, f01=0x0190, f02=»,0,0,1,0,0,0,1,0,0,1 | z . PACTA ACTLO 0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,1 } . PACTB ACTLO 0,0,0,0,0,0,1,0,1,0,0,1,1,0,0,1 } N . PACTC ACTLO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 } . PACTD ACTLO 0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1 } . PACTE ACTLO 0,0,0,0,0,0,0,0,0,0,0,1,1
0x441b20…441cb4 (1, 1224) Dummy {f00=0x0153, f01=0x0190, f02=»ART FOR CHECKING THE ADDRESS } @ P* THIS PART WILL PERFORM THE CHECK BASED ON THE LAPB ~ $ $ P* SPECIFICATION OF CCITT ~ h P* ~ PREC EQU * ~ P CM NEWNR,A6 ~ ( P CF A5,PLECB STORE LINE ECB IN QUEUE ~ P IFT LOG=1 ~ P LDKL A4,/
0x441cb4…441e48 Dummy {f00=0x0153, f01=0x0190, f02=» P LD A1,ECBEL,A8 SAVE LENGTH , P ST A7,BUFAD,A6 SAVE INPUTBUFFERADDRESS ( P ST A1,BUFLEN,A6 SAVE LENGTH X P LD A1,RECCT,A7 | 0 P ST A1,RECCF,A6 SAVE RECEIVED CONTROL FIELD P LC A1,RECAD,A7 GET ADDRESS H P CC A1,RCMDAD,
0x441e48…441fdc Dummy {f00=0x0153, f01=0x0190, f02=» A1,RRSPAD,A6 MAY BE A RESPONSE 0 P RF(E) RSP SURE 2 P IFT STAT=1 f P LDK A1,R.INV z * P CF A5,COUNT COUNT # OF INVALID FRAMES P XIF PREC2 EQU * & P LD A7,BUFAD,A6 GET BUFFERADDRESS ( P C
0x441fdc…442170 Dummy {f00=0x0153, f01=0x0190, f02=» SET REC.CMD INDICATOR x F P RF DETFT GOTO : DETERMINE FRAME TYPE . PRSP EQU * x D P SUR A1,A1 RESET REC.CMD INDICATOR P* 4 P* NOW THE ADDRESS VALIDITY CHE
0x442170…442304 Dummy {f00=0x0153, f01=0x0190, f02=»D b 6 P* A1=0 IF RESPONSE RECEIVED J P* IF THE ADRRESS IS NOT RECOGNIZED THE BUFFER WILL BE RETURNED TO D D P* THE RECEIVE BUFFER QUEUE WITHOUT ANY FURTHER PROCESSING F P* A DISTINCTION MUST BE MADE BETWEEN THE F
0x442304…442498 Dummy {f00=0x0153, f01=0x018e, f02=»A CHECK R P* OF THE VALIDITY. P* 2 PDETFT EQU * < B P ST A1,REC.CMD,A6 SAVE CMD/RSP INDICATOR X P IFT LOOP=1 P LDK A1,1 P SUS A1,REC.CMD,A6 P LD A1,REC.CMD,A6 P XIF 0 P LD
0x442498…44262c Dummy {f00=0x0153, f01=0x0190, f02=» l @ P LDK A2,/1 GET MASK FOR I-FRAME > P ANR A2,A3 MASK CONTROL FIELD L H P RF(NZ) CHKSU IF NOT ZERO THEN NOT I-FRAME F P ANK A3,ITYP SCRAT
0x44262c…4427c0 Dummy {f00=0x0153, f01=0x0190, f02=» CHECK VALIDITY OF I-FRAME r P EJECT * P* 8 B PCHKSU EQU * CHECK IF S OR U-FRAME B < P LDK A2,/2 MASK FOR S-FRAME > P ANR A2,A3 MASK CONTROL FIELD D
0x4427c0…442954 (1, 1225) Dummy {f00=0x0153, f01=0x0190, f02=»OK . P IM IIF,A6 SET ILLEGAL I-FIELD INDICATION PSLENOK EQU * < F P ANK A3,STYP SCRATCH BITS NOT RELEVANT X J P LDK A2,SVAL GET POINTER IN VALIDITY TABLE D P RF CHKVAL
0x442954…442ae8 Dummy {f00=0x0153, f01=0x0190, f02=»RECEIVED LENGTH U-FRAME P RF(E) ULENOK OK & P CWK A4,5 MAY BE IT IS A CMDR/FRMR 8 " P RF(NE) IULEN ILLEGAL I-FIELD b P LDR A2,A3 CHECK FRAME TYPE P ANK A2,/EF REMOVE P/F-BIT P CWK A2,FRMR . " P RF(E) ULENOK IT IS CMDR/FRMR
0x442ae8…442c7c Dummy {f00=0x0153, f01=0x0190, f02=» SCRATCH BITS NOT RELEVANT l J P LDK A2,UVAL GET POINTER IN VALIDITY TABLE & P* AND GO TO CHKVAL t P EJECT P* F P* THIS PART OF THE FRAME TYPE DETERMINATION IS COMMON USED FOR * P* 0 .U AND S-FRAME
0x442c7c…442e10 Dummy {f00=0x0153, f01=0x0190, f02=» EXPECTED PARAMETERS : A2 = POINTER TO APPLICABLE PART OF TABLE H P* A3 = CONTROL FIELD WITH NON-RELEVANT H > P* BITS SCRATCHED TO ZERO P* F P* NOTE: NON-RELEVANT BITS ARE THE
0x442e10…442fa4 Dummy {f00=0x0153, f01=0x0190, f02=»* ~ B P LD A4,VALTAB,A2 GET TABLE PART LENGHT H P ADR A2,A1 POINT TO COMMAND OR RESPONSE P PCHKV1 EQU * > P ADK A2,2 POINT TO NEXT WORD D P CC
0x442fa4…443138 Dummy {f00=0x0153, f01=0x0190, f02=» SUK A4,2 NOT YET FOUND 6 P RB(P) CHKV1 TRY AGAIN 6 H P SUR A2,A2 WILL NEVER BE FOUND = NVT ! p * P CM IIF,A6 THIS FIELD CAN NOW BE RESET PFOUND EQU * P L
0x443138…4432cc Dummy {f00=0x0153, f01=0x0190, f02=» A2,IDFT,A6 SAVE FT IDENTIFIER P IFT STAT=1 2 P LDK A1,R.INV F P LDR A4,A2 P RF(Z) UPDCNT n $ P* UPDATE STATISTICS FOR U-FRAMES P SUK A4,UVAL P RF(N) UPDEND NO U-FRAME 0 P LDK A1,R.SABM PRESET INDEX FOR COUNTER-
0x4432cc…443460 Dummy {f00=0x0153, f01=0x0190, f02=»RAME RECEIVED | P LDK A1,R.UA P SUK A4,4 * $ P RF(N) UPDCNT UA-FRAME RECEIVED < P LDK A1,R.DM d P SUK A4,4 x $ P RF(N) UPDCNT DM-FRAME RECEIVED , P LDK A1,R.FRMR CMDR/FRMR-FRAME RECEIVED PUPDCNT EQU * P CF A5,COUNT UPDAT
0x443460…4435f4 (1, 1226) Dummy {f00=0x0153, f01=0x0190, f02=»ING TABLE ENTRY Z P EJECT P* & 4 P* PROCAL WILL PERFORM THE FOLLOWING ACTIONS: 0 H P* - THE POINTER IN A1 WILL BE UPDATED TO LET IT CORRESPOND TO h $ P* THE ACTUAL CSV F P* - WITH THE AID OF THAT POINTER THE
0x4435f4…443788 Dummy {f00=0x0153, f01=0x0190, f02=» LD A2,CSV,A6 GET STATION CONNECTION STATE P*** TEST IF NVT 2 P LDR A1,A1 J P RF(NZ) PROCA8 NO! : P*** PREPARE NEW STATUS AND POINTER TO ACTION TABLE IF v ( P*** STATUS IS CONNECTED OR RESETTING P*** P*** TEST IF COMMAND P
0x443788…44391c Dummy {f00=0x0153, f01=0x0190, f02=» P CWK A2,CNTRES P RF(NE) PROCA8 NO! PPROCA4 EQU * 4 P LDK A2,CNTRES NEW STATUS H P SLL A2,4 j P IFT ABM=0 | * P ADK A2,3 ADD POINTER TO ACTION TABLE P XIF P IFT ABM=1 B P A
0x44391c…443ab0 Dummy {f00=0x0153, f01=0x018e, f02=»QU * P CWK A2,CNT P RF(NE) PROCA8 NO! P LDK A2,CNTRS1 NEW STATUS : P SLL A2,4 P IFT ABM=0 n * P ADK A2,2 ADD POINTER TO ACTION TABLE P XIF P IFT ABM=1 B P ADK A2,3
0x443ab0…443c44 Dummy {f00=0x0153, f01=0x0190, f02=» p 0 P LD A2,CSVTAB,A2 GET ADDRESS CORRECT PROTAB & P ADR A1,A2 AD FRAME TYPE INDICATOR < P LCR A2,A1 NOW A1 CONTAINS: f < P* - NEW STATUS H P* - POINTER TO ACTION
0x443c44…443dd8 Dummy {f00=0x0153, f01=0x0190, f02=»ALUE CSV SHOULD GET NOW. v P* PACTDEF EQU * * D P LDR A3,A2 SAVE RECEIVED PARAMETER F 8 P ANK A2,/F0 EXTRACT CSV & P SRL A2,4 PUT ON CORRECT POSITION B P ST A2
0x443dd8…443f6c Dummy {f00=0x0153, f01=0x0190, f02=»MAKE INDEX < P LD A2,ACTAB,A3 GET ACTION LIST P ABL(Z) REC2 NO PROCESSING R P EJECT t D P* EXACT WILL EXECUTE THE ACTIONS AS GIVEN IN THE ACTION LIST " P* AS RECEIVED FROM ACTDEF. J P* THE INPUT PARAMETE
0x443f6c…444100 Dummy {f00=0x0153, f01=0x0190, f02=»TABLE ACTAB. r P* > PEXACT EQU * START OF EXECUTION 2 P SUR A1,A1 CLEAR ` P LDR A3,A2 PEXACT1 EQU * & P ST A1,SAV1,A6 SAVE FIRST REGISTER & P ST A2,SAV2,A6 SAVESECOND REGISTER
0x444100…444294 (1, 1227) Dummy {f00=0x0154, f01=0x0190, f02=»TAD ACTION X D PEXACR1 EQU * EXACT RETURN POINT AFTER ( P LD A1,SAV1,A6 RELOAD FIRST REGISTER Z ( P LD A3,SAV3,A6 RELOAD THIRD REGISTER * P LD A2,SAV2,A6 RELOAD SECOND REGISTER PEXACR2 EQU * D P
0x444294…444428 Dummy {f00=0x0154, f01=0x0190, f02=» GET NEXT BIT z P RB EXACT1 & H P* EXTAB IS THE TABLE THAT CONTAINS ALL ADDRESSES OF THE SEVERAL F * P* ROUTINES THAT EXECUTE AN ACTION P* PEXTAB EQU * D P DATA RCON
0x444428…4445bc Dummy {f00=0x0154, f01=0x0190, f02=» SET IN.FRMR/IN.CMDR v 6 P DATA SIUA SET IN.UA * 6 P DATA SIDM SET IN.DM d @ P DATA SISABM SET IN.SABM/IN.SARM 8 P DATA SIDISC
0x4445bc…444750 Dummy {f00=0x0154, f01=0x0190, f02=» DATA SCAC0 SC = AC := 0 * P DATA RDISCR REMOTE DISCONNECT REQUEST P DATA PNR PROCESS N(R) N 8 P DATA PPF PROCESS P/F l : P DATA PIF PROCESS I-FRAME : P DATA PSF
0x444750…4448e4 Dummy {f00=0x0154, f01=0x0190, f02=»WILL RESET ALL RECEIVE VARIABLES x P* ( 2 PRCON EQU * ENTRY 2 " P CF A5,RESREC RESET VARIABLES h P LDK A1,NTRRST 2 P ST A1,RRSETI,A6 SET RECEIVER RESET INDICATION P RB EXACR1 > P* THIS PROGRAM PART WILL
0x4448e4…444a78 Dummy {f00=0x0154, f01=0x018e, f02=» RESET TRANSMIT VARIABLES n P RB EXACR1 RETURN TO CALLER & B P* THIS PROGRAM PART WILL SET ONE OR MORE OF THE FOLLOWING J 8 P* VARIABLES : IN.FRMR/IN.CMDR , IN.UA , IN.DM , 8 P* IN.SABM/IN.SARM , IN.DISC , IN.RNR P
0x444a78…444c0c Dummy {f00=0x0154, f01=0x0190, f02=» . P SUK A1,2 REQUEST A DRIVER STOP(STATUS=-2) ( P ST A1,DRIVST,A6 AFTER OUTPUT READY 6 P LD A1,LECBRC,A6 b * P RF(NZ) SICONT RETURNCODE ALREADY SET z $ P LDK A1,NTRD PRESET RETURN CODE & P ST A1,LECBRC,A6 REMOTE DISCONNECT 2 PSIFRMR EQU * I
0x444c0c…444da0 Dummy {f00=0x0154, f01=0x0190, f02=»RNR EQU * IF IN.RNR PSICONT EQU * 8 D P SLL A3,2 PUT ON CORRECT POSITION. L P LDR A2,A3 SAVE ACTION LIST B P ANKL A3,/FC00 MASK NON RELEVANT BITS B P O
0x444da0…444f34 (1, 1228) Dummy {f00=0x0154, f01=0x0190, f02=»E ACTIONS ARE FINISHED NOW P RB EXACR2 RETURN TO CALLER " $ P* WITHOUT RELOAD OF REGISTERS F P EJECT n > P* THIS PROGRAM PART WILL SET THE BOOLEAN VARIABLE IN.P | P* PSIP EQU * @ P LDK A3,/20
0x444f34…4450c8 Dummy {f00=0x0154, f01=0x0190, f02=»ISCR EQU * P LD A7,LECBRC,A6 * P RF(NZ) RDISC1 RETURNCODE ALREADY SET * $ P LDK A7,NTRD PRESET RETURN CODE X & P ST A7,LECBRC,A6 REMOTE DISCONNECT PRDISC1 EQU * " P LD A7,BUFAD,A6 BUFFERADDRESS . P CF A5,L1INPQ INPUT REQUEST IMPL ECB
0x4450c8…44525c Dummy {f00=0x0154, f01=0x0190, f02=»SC DUE TO A RESET. n P* PSCAC0 EQU * $ 4 P LDK A1,NTTRST PRESET RETURN CODE: TRANSM. RESET 8 P LD A4,AC,A6 p P RF(Z) SCAC2 QUEUE EMPTY P CM AC,A6 PSCAC1 EQU * * P LD A3,Q1ACAD,A6 GET ACK QUEUE ADDRESS ( P CF A5,GETBUF GE
0x44525c…4453f0 Dummy {f00=0x0154, f01=0x0190, f02=» P* PSCAC2 EQU * P LD A4,SC,A6 " P RF(Z) SCAC4 QUEUE EMPTY 6 P CM SC,A6 V PSCAC3 EQU * h , P LD A3,Q1SCAD,A6 GET SEND QUEUE ADDRESS | ( P CF A5,GETBUF GET ELEMENT FROM QUEUE . P CF A5,Q.ERDY MOVE IT TO EVENT READY QUEUE
0x4453f0…445584 Dummy {f00=0x0154, f01=0x0190, f02=» PROGRAM PART WILL PERFORM THE P/F PROCESSING. P* 6 PPPF EQU * @ & P LD A4,RECCF,A6 GET CONTROL FIELD * P ANK A4,/10 SCRATCH NON RELEVANT BITS : P RF(Z) PPFEX NO P/F BIT SET P* B P LD
0x445584…445718 Dummy {f00=0x0154, f01=0x0190, f02=» THEN SET IN.F P RF PPF1 > P* N PSIF EQU * X @ P LDKL A1,/100 PREPARE SETTING IN.F t 4 P ORS A1,PART1,A6 SET IN.F < P RF PPFEX
0x445718…4458ac Dummy {f00=0x0154, f01=0x0190, f02=»ON RETURNPOINT d 2 P LD A2,SAV2,A6 GET RECEIVED ACTIVITY PARAMETER & P SLL A2,1 I FRAME TO BE PROCESSED? L @ P ABL(N) EXACR1 YES,L1 INPUT WILL BE STARTED BY I PROCESSING v " P ABL PIFAC6 NO, CALL L1 AGAIN P EJECT < P* THIS PROGRAM PART WI
0x4458ac…445a40 Dummy {f00=0x0154, f01=0x0190, f02=» CORRECT POSITION ~ P ANK A7,/7 N(R) OUT OF IT 8 P LDR A4,A7 SAVE RECEIVED N(R) TO STORE LATER IN LNR < H P SU A7,LNR,A6 SUBTRACT LAST RECEIVED N(R) x F P ANK A7,/7 MODULO 8 (NOW IT'S "STEP")
0x445a40…445bd4 (1, 1229) Dummy {f00=0x0154, f01=0x0190, f02=»T TRANSM. FRAM V H P SU A3,LNR,A6 SUBTRACT LAST REC. CONFIRM. 4 P ANK A3,/7 MODULO 8 b > P CWR A7,A3 COMPARE WITH STEP D P RF(G) NRERR TOO
0x445bd4…445d68 Dummy {f00=0x0154, f01=0x0190, f02=» STEP BIGGER THEN WAIT FOR ACK ? p P RF(G) PNR2 0 P EJECT N P* P* f P* p PDEQAC EQU * z P* P* > P* THIS PART PERFORMS THE DEQUE OF THE ACKNOWLEDGE QUE : P* THE NUMBER TO BE DEQUEUED IS E
0x445d68…445efc Dummy {f00=0x0154, f01=0x018e, f02=»* P* PDQACER EQU * ( P LD A3,Q1ACAD,A6 GET ACK QUE ADDRESS ( P LD A4,NF,A3 T P RF(Z) DQACEN QUEUE EMPTY h ( P CF A5,GETBUF ELEMENT TO BE DEQUEUED P LD A1,ECBRL,A8 P ST A1,ECBEL,A8 P LDK A1,0 SET RETURN CODE * P
0x445efc…446090 Dummy {f00=0x0154, f01=0x0190, f02=» t P RB(NZ) DQACER YES,DO NEXT PDQACEN EQU * * P RTN A5 READY > P EJECT T PPNR2 EQU * b P* ~ P* @ P* THIS PART PERFORMS THE DEQUE OF AC AND IF MORE FRAMES : P* ARE ACKNOWLEDGED ALSO FROM SC, BOTH TO BE PU
0x446090…446224 Dummy {f00=0x0154, f01=0x018e, f02=» ST A4,VS,A6 UPDATE SEND STATE VARIABLE P CF A5,DQACER AC=AC-STEP 0 P LDR A7,A7 STEP COMPLETED? P P RF(Z) PNREX YES r < PPNR5 EQU * THE OTHER PART OF STEP MUST BE TAKEN FROM SC P LD A3,Q1SCAD,A6 SC QUEUE P LD A4,NF,A3 P RF(Z) P
0x446224…4463b8 Dummy {f00=0x0154, f01=0x0190, f02=» P ADS A4,SC,A6 DECREMENT SC P SUK A7,1 STEP READY? * * P RB(NZ) PNR5 NO, DEQUEUE NEXT FROM SC H P CF A5,DACQSC SC=SC+AC v P RF PNREX READY P EJECT P* P* : P* THIS PART PERFORMS THE DEQUE OF AC AND THE REQUE
0x4463b8…44654c Dummy {f00=0x0154, f01=0x0190, f02=»CQSC EQU * P LD A3,Q1SCAD,A6 0 P LD A2,NF,A3 PRESET NR OF EL. SC-QUEUE IN A2 * PDAC100 EQU * ^ ( P LD A3,Q1ACAD,A6 GET ACK QUE ADDRESS r * P LD A4,NF,A3 GET NUMB PENDING ELEMENTS P RF(Z) DACEND FINISHED P CF A5,GETBUF GET ELEMENT
0x44654c…4466e0 Dummy {f00=0x0154, f01=0x0190, f02=» COUNT # OF RETRIES P XIF P RB DAC100 TRY AGAIN ( P* D * P* RESTORE NOW ALL ORIGINAL SC ELEMENTS N , P* BEHIND THE AC ELEMENTS IN THE SC-QUEUE | * P* TO GET CORRECT ORDER OF TRANSMISSION P* PDACEND EQU * 0 P SUK A2,2 ANY OR
0x4466e0…446874 (1, 1230) Dummy {f00=0x0154, f01=0x0190, f02=»A5,PUTBUF STRE EL. IN SC-QUEUE P RB DACEND GET NEXT & PDAC200 EQU * B P LD A2,AC,A6 GET VALUE OF AC V $ P ADS A2,SC,A6 AD AND STORE IN SC z P CM AC,A6 RESET AC P RTN A5 RETURN TO CALLER P EJECT P* P* P* P
0x446874…446a08 Dummy {f00=0x0154, f01=0x0190, f02=»ROL FIELD x , P SC A2,FRSAV1,A6 SAVE TO BE TRANSMITTED * P LD A2,VS,A6 GET ACTUAL VALUE OF V(S) B & P SLL A2,1 PUT ON CORRECT POSITION p * P LD A3,VR,A6 GET ACTUAL VALUE OF V(R) P SLL A3,5 SHIFT IN POSITIO P ORR A2,A3 INCLUDE IN A2 4
0x446a08…446b9c Dummy {f00=0x0154, f01=0x0190, f02=»A2,FRSAV2,A6 SAVE TO TRANSFER ( P LDK A2,/08 SET ERROR CODE IN FRAME & & P SC A2,FRSAV3,A6 SAVE FOR TRANSFER R , P CF A5,RESTR RESET TRANSMITTER VARIABLES | P IFT ABM=1 @ P CF A5,RESREC RESET RECEIVER VARIABLES
0x446b9c…446d30 Dummy {f00=0x0154, f01=0x0190, f02=»/IN.CMDR t $ POLDNR CM NEWNR,A6 SET NEWNR OFF H PPNREX EQU * NO FURTHER ACTIONS NECESSARY 8 < P ABL EXACR1 RETURN TO CALLER P EJECT P* P* P* D P* THIS PART OF THE P
0x446d30…446ec4 Dummy {f00=0x0154, f01=0x0190, f02=» PROGRAM ` P IFT STAT=1 P LDK A1,R.I $ ( P CF A5,COUNT COUNT RECEIVED I-FRAME 8 P XIF d 4 P*** TEST IF FRMR/CMDR HAS TO BE TRANSMITTED p " P LD A1,PART1,A6 : P RF(N) PIFAC6 YES! IGNORE I-FRAME
0x446ec4…447058 Dummy {f00=0x0154, f01=0x0190, f02=»SET VR IN A4 " P LD A1,SINS,A6 GET SINK STATE P SUK A1,1 : P CM SINS,A6 RESET SINS L P RF(Z) PIFAC2 SINS=1 j P* SINS = 0 OR 2 " P* IN CASE VR .NE. NS OR NS - 1 P* SINS IS SET TO 2 P CWR A3,A4 VR EQUAL NS? P RF(NE) PI
0x447058…4471ec Dummy {f00=0x0154, f01=0x0190, f02=» IN.ACK BIT SET x . P ORS A1,PART1,A6 DO & P IM VR,A6 INCREASE VR X P LDK A1,7 v $ P ANS A1,VR,A6 UPDATE VR MODULO 8 P CF A5,GETBUF P LD A7,BUFAD,A6 . P ST A7,ECBBA,A8 STORE BUFFERADDRESS IN ECB
0x4471ec…447380 Dummy {f00=0x0154, f01=0x018e, f02=»TI,A6 CLEAR POSSIBLE SET INDICATION " P CF A5,Q.ERDY QUE EVENT READY , P IFT TRACE=1 R P CF A5,LOGTRC f P XIF | < P RF PIFEX RETURN TO CALLER P* PPIFAC1 EQU * P LDK A1,/40 SET ACK P RF PI
0x447380…447514 (1, 1231) Dummy {f00=0x0155, f01=0x018e, f02=» P* PPIFAC3 EQU * P LDR A1,A1 " P RF(P) PIFAC4 SINS WAS 2 4 P SUK A4,1 T P ANK A4,7 MAKE VR - 1 f ( P CWR A3,A4 SINS=0, TEST VR EQUAL NS? P RB(E) PIFAC1 YES P* P* PPIFAC4 EQU * P LDK A3,2
0x447514…4476a8 Dummy {f00=0x0155, f01=0x0190, f02=» : P LDKL A1,/0200 IN.REJ BIT SET PPIFAC7 EQU * B . P ORS A1,PART1,A6 DO V PPIFAC6 EQU * P LD A7,BUFAD,A6 ( P CF A5,L1INPQ INPUT DRIVER IMPL ECB 8 PPIFEX EQU *
0x4476a8…44783c Dummy {f00=0x0155, f01=0x0190, f02=»E R P* CHARACTERISTICS. P* ( PPSF EQU * 2 F P LD A1,IDFT,A6 GET FRAME TYPE IDENTIFIER N 0 P CM REMFR,A6 PRE-RESET REMOTE FREE INDICATOR P SUK A1,SVAL+2 P SRL A1,1 MAKE INDEX P IFT STAT=
0x44783c…4479d0 Dummy {f00=0x0155, f01=0x0190, f02=»BI PSFTAB,A1 EXECUTE NECESSARY ACTIONS P* @ P* J P* T PPSFTAB EQU * ^ > P DATA PSF1 RR FRAME RECEIVED z > P DATA PSF2 RNR FRAME RECEIVED > P D
0x4479d0…447b64 Dummy {f00=0x0155, f01=0x018e, f02=» p < P RF PSFEX RETURN TO CALLER P* H PPSF3 EQU * R $ P IM REMFR,A6 SET REMOTE IS FREE n PPSF2 EQU * B P LD A1,LNR,A6 GET LAST RECEIVED N(R) : P ST
0x447b64…447cf8 Dummy {f00=0x0155, f01=0x0190, f02=» P* P* * P* THIS PART WILL TAKE CARE FOR THE 2 P* PROCESSING OF THE RECEIVER TIMER CONTROL J P* P* PPRTC EQU * . P LD A1,CSV,A6 GET ACTUAL CONNECTION STATE $ P RF(Z) RTI1 CSV IS DISCONNECTED P CWK A1,
0x447cf8…447e8c Dummy {f00=0x0155, f01=0x0190, f02=»THER CSV'S z P* PRTI1 EQU * P LDKL A1,-1 . P ST A1,TST,A6 SET TST B & P CM* TIMADR,A6 STOP RUNNING TUMER ` P CM TIMADR,A6 . P RF RTIMEX RETURN TO CALLER P* PRTI2 EQU * " P LD A1,TST,A6 GET TIMER STATE P
0x447e8c…448020 Dummy {f00=0x0155, f01=0x0190, f02=» P RF RTF1 TST=4 P* PRTI3 EQU * $ 2 P LD A1,OUTSTP,A6 GET OUTSTTANDING P INDICATOR 6 $ P RF(NZ) RTIMEX RETURN TO CALLER l P* PRTF1 EQU * P LDK A1,0 SET TST TO 0 P RF RTIMSV SAVE TST P* PRTF2 EQU * . P L
0x448020…4481b4 (1, 1232) Dummy {f00=0x0155, f01=0x0190, f02=» RF RTIMSV SAVE TST PRTF3 EQU * 4 P LD A1,OUTST.P,A6 CHECK OUTSTANDING P INDICATOR . $ P RF(NZ) RTIMEX RETURN TO CALLER f 4 P ST A1,NRT,A6 ZERO TO NUMBER OF RETRANSMISSIONS . P LD A1,REM.FR,A6 GET REMOTE FREE INDICATOR P RB(Z) RTF2A
0x4481b4…448348 Dummy {f00=0x0155, f01=0x018e, f02=»D A1,REM.FR,A6 GET REMOTE FREE INDICATOR P RB(Z) RTF2A 0 : P LD A1,AC,A6 GET NUMBER OF BUFFERS TO BE ACKNOWLEDGED D P RB(Z) RTF1 2 P LD A1,NEWNR,A6 CHECK IF NEW N(R) IS RECEIVED " P RF(Z) RTIMEX RETURN TO CALLER PRTSET2 EQU * " P L
0x448348…4484dc Dummy {f00=0x0155, f01=0x0190, f02=» PRTIMEX EQU * 0 P LD A2,CSV,A6 GET STATUS FOR USE FURTHER ON ( P LD A1,PROTST,A6 GET PROTOCOL STATUS L P RF(NP) PRTCEX EXIT x P* " PCONREQ EQU * CONNECT REQUESTED , P SUK A2,CNT HAS STATUS BECOME CONNECTED? P RF(NZ) PRTCEX NO
0x4484dc…448670 Dummy {f00=0x0155, f01=0x0190, f02=»B,A6 GET CONNECT ECB P CM* ECBBA,A8 $ P LDK A1,NTAC RETURNCODE ACCEPTED 2 " P CF A5,Q.ERDY QUE EVENT READY Z PPRTCEX EQU * P RTN A5 RETURN TO CALLER P EJECT P* P* P* TRANSMITTER P* 2 P******************
0x448670…448804 Dummy {f00=0x0155, f01=0x0190, f02=» p P* A8 = ECB-ADDRESS P* $ P* CALLING SEQUENCE: . P* CF A5,TRAN J P* b P EJECT l P* F P* THE TRANSMITTER PART OF THE HDLC WILL PERFORM THE ACTIVITIES B P* THAT ARE NECESSARY TO TRANSMIT A FRAME TO TH
0x448804…448998 Dummy {f00=0x0155, f01=0x0190, f02=»E NECESSITY TO TRANSMIT A FRAME IS REGISTRED IN WORD 1 OF THE P* PARAMETER TABLE F P* d * P* THIS WORD IS INDICATED AS "PART1 n P* PTRAN EQU * . P LD A1,OUTPEN,A6 OUTPUT PENDING INDICATOR P* P RF(Z) TRA
0x448998…448b2c Dummy {f00=0x0155, f01=0x0190, f02=» ADK A1,1 2 P RB(Z) TRANEX STATUS =-1, DRIVER DISCONNECTED P LDK A1,/80 H " P ORS A1,PART1,A6 PRESET INTRI . P LD A1,Q1ACAD,A6 ACKNOWLEDGE QUEUE FULL ? P LD A1,NN,A1 . $ P RF(Z) TRAN10 YES, RESET IN TRI P LD A1,SC,A6 ( P R
0x448b2c…448cc0 Dummy {f00=0x0155, f01=0x0190, f02=» SUK A1,CNT $ P RF(Z) TRAN20 I-FRAME TO BE SENT PTRAN10 EQU * < P LDKL A1,/FF7F P " P ANS A1,PART1,A6 RESET IN.TRI f PTRAN20 EQU * . P LDK A2,0 PRESET TABLE ENTRY TO FIRST WORD F P LD A1,PART1,A6 GET TRANSMITTE
0x448cc0…448e54 (1, 1233) Dummy {f00=0x0155, f01=0x0190, f02=»ESS h PTRAN3 EQU * " P ADK A2,2 INCREASE TABLE ENTRY P CWK A2,TRANTL LAST ? F $ P RB(E) TRANEX YES, NOTHING TO DO d P SLL A1,1 GET NEXT CONDITION $ P RB(NN) TRAN3 NOT SET, TRY NEXT PTRAN2 EQU * . P LD A1,RESPAR,A2 RESET CONDI
0x448e54…448fe8 Dummy {f00=0x0155, f01=0x0190, f02=»,FRTYP,A3 0 P SC A1,TRCTL,A6 PRESET FRAME TYPE TO BE SENT , P ABI TRANTB,A2 START TRANSMITTER PROCESS F P EJECT v 0 PTRANTB EQU * TRANSMITTER PROCESS ENTRY TABLE $ P DATA TRFRMR TRANSMIT FRMR/CMDR P DATA TRUA TRANSMIT UA P DATA TRDM
0x448fe8…44917c Dummy {f00=0x0155, f01=0x0190, f02=»J TRANSMIT REJ 0 P DATA TRF TRANSMIT ANY FRAME WITH F-BIT SET P DATA TRI TRANSMIT I-FRAME J * P DATA TRACK TRANSMIT ACKNOWLEDGE (RR) l 0 P DATA TRP TRANSMIT ANY FRAME WITH P-BIT SET $ PTRANTL EQU *-TRANTB TABLE LENGTH P* P* *
0x44917c…449310 Dummy {f00=0x0155, f01=0x0190, f02=»BM/SARM P DATA /F1A0 DISC P DATA /F9A0 RNR ( P DATA /FDA0 REJ @ P DATA /FFA0 F X P DATA /FFA0 I n P DATA /FFA0 ACK P DATA /FFA0 P P* P* 6 PFRTYP EQU * TABLE OF TO BE TRANSMITTED FRAMETYPES PFRTYPE F
0x449310…4494a4 Dummy {f00=0x0155, f01=0x0190, f02=» XIF P FRTYPE DISC,RNR P FRTYPE REJ,RR $ P FRTYPE I,RR : P EJECT N PTRUA EQU * PTRDM EQU * p PTRFRMR EQU * * P* A4 CONTAIN ORIGINAL PART1 CONDITION 8 P* A3 IS USED FOR ADDING CONDITIONS IN CONTROL FIELD 2 P* A4 WIL
0x4494a4…449638 Dummy {f00=0x0155, f01=0x0190, f02=» * P LDK A1,T.FRMR END OF U-FRAME COUNTERS P SUR A1,A2 2 $ P CF A5,COUNT COUNT # OF U-FRAMES D P XIF l , P LD A1,TRSPAD,A6 PRESET RESPONSE ADDRESS x P ANKL A4,/100 F-BIT SET? P RF(Z) CUFR32 NO 2 PCUFR20 LDK A3,/10 YES, PRESET SETTING P/
0x449638…4497cc Dummy {f00=0x0155, f01=0x0190, f02=»A1,TRAD,A6 SET ADDRESS FIELD & P* A2 IS INDEX TO TYPE OF U-FRAME $ < P RF WRITEC GO ON WITH TRANSMITTING THE CONSTRUCTED FRAME N P* PTRSABM EQU * PTRDISC EQU * P IFT STAT=1 * P LDK A1,T.FRMR END OF U-FRAME COUNTERS P SUR A
0x4497cc…449960 Dummy {f00=0x0155, f01=0x0190, f02=»SS n " P ANK A4,/20 PBIT SET IN PART1? > P RB(Z) CUFR32 NO,SET COMMAND ADDR. AND WRITE CONTROL FRAME 0 " P IM OUTSTP,A6 YES , SET OUTSTP r 2 P RB CUFR20 RESET PART1, PREPARE CONTROL FRAME P EJECT PTRREJ EQU * P IFT STAT=1 P LDK
0x449960…449af4 (1, 1234) Dummy {f00=0x0155, f01=0x0190, f02=» P CF A5,COUNT P XIF P*** ( P* 4 PCSFR EQU * CONSTRUCT S-FRAME > , P LD A1,TRSPAD,A6 PRESET RESPONSE ADDRESS b P LDR A7,A4 SAVE PART1 IN A7 & P ANKL A4,/100 F-BIT SET IN PART1? P IFT ABM=1 & P RF(Z) CSFR1 NO,CHECK
0x449af4…449c88 Dummy {f00=0x0155, f01=0x0190, f02=» 2 P LDK A3,/10 PRESET F TO BE SET IN CNTRL-FIELD P XIF : PCUFR35 EQU * F P LD A2,VR,A6 GET VR Z P SLL A2,5 SHIFT IN POSITION v & P ORR A3,A2 NOW A3 CONTAINS ALSO VR @ P RB CUFR30 RESET F IN PART1 AND PREPARE CONTROL AND ADDRESS P
0x449c88…449e1c Dummy {f00=0x0155, f01=0x0190, f02=»PART1? t * P RB(Z) CUFR35 NO,PREPARE CONTROL FRAME P LDK A1,1 < 2 P ST A1,OUTSTP,A6 SET OUTSTANDING P INDICATION N , P LD A1,TCMDAD,A6 PRESET COMMAND ADDRESS P RB CUFR36 P XIF P IFT ABM=0 PCSFR1 EQU * * P LDK A3,0 AVOID
0x449e1c…449fb0 Dummy {f00=0x0155, f01=0x0190, f02=»WLEDGE v P* J P* THIS PART OF THE TRANSMITTER TAKES CARE FOR THE CONSTRUCTION OF P* ANY P/F CARRYING FRAME f P* @ PCPFFR EQU * CONSTRUCT P/F-FRAME : P LD A1,SINS,A6 GET SINK
0x449fb0…44a144 Dummy {f00=0x0155, f01=0x0190, f02=»TROL FIELD V P IFT ABM=0 2 P LDR A7,A4 TEST IF P-BIT HAS TO BE TRANSMITTED $ P ANK A7,/20 . Z P RF(Z) CPFFR1 NO p $ P XRS A7,PART1,A6 WE CANNOT DO IT , P*** TEST IF TIMER MUST BE ADJUSTED " P LD A7,REM.FR,A6 2 P
0x44a144…44a2d8 Dummy {f00=0x0155, f01=0x0190, f02=»,TST,A6 | P CF A5,STATIM PCPFFR0 EQU * 4 P RTN A5 P P* ` PCPFFR1 EQU * j P XIF ~ P IFT STAT=1 P* A1 IS USED AS INDEX P SLL A1,1 * P ADK A1,T.RR COUNTER OF FIRST S-FRAME $ P CF A5,COU
0x44a2d8…44a46c Dummy {f00=0x0155, f01=0x0190, f02=» | PTCP FORM 8,8 D P TCP RR,RNR EACH EIGHT BITS CONTAIN THE & F P TCP REJ,/0 LAY-OUT BELONGING TO THE TYPE n > P TO BE TRANSMITTED P EJECT P
0x44a46c…44a600 Dummy {f00=0x0155, f01=0x018e, f02=» | P IFT STAT=1 P LDK A1,T.I $ P CF A5,COUNT COUNT # OF I-FRAMES 0 P XIF X F P LD A1,MAXVS,A6 GET MAXIMUM VALUE REACHED d 4 P* BY V(S) D P CW A1,VS,A6
0x44a600…44a794 (1, 1235) Dummy {f00=0x0156, f01=0x0190, f02=» 4 P ANS A1,MAXVS,A6 MODULO 8 P* < PSEF20 EQU * F F PSEF11 EQU * FURTHER ACTIONS ARE EQUAL Z 0 P LD A1,VS,A6 V(S) P SLL A1,1 0 P LD A2,VR,A6
0x44a794…44a928 Dummy {f00=0x0156, f01=0x0190, f02=»IELD P P IM VS,A6 INCREASE V(S) P LDK A1,/7 , 4 P ANS A1,VS,A6 MODULO 8 L J P LD A1,TCMDAD,A6 GET ADDRESS FOR COMMAND FRAME : P SC A1,TRAD,A6 STORE IN FRAME
0x44a928…44aabc Dummy {f00=0x0156, f01=0x0190, f02=» PPFCP EQU * 6 P ANK A4,/20 GET P-BIT P RF(Z) PFCP1 Z * P XRS A4,PART1,A6 RESET P-BIT IN PART1 x P IM OUTSTP,A6 SET OUTSTP 0 P LDK A1,/10 SET P-BIT P " P
0x44aabc…44ac50 Dummy {f00=0x0156, f01=0x0190, f02=» CONTROL FRAMES z , P CF A5,GLECB GET ELEMENT FROM LECB QUEUE " P LDK A1,TRANSF BUFFER ADDRESS H P ADR A1,A6 NOW REAL ADDRESS n P ST A1,ECBBA,A8 PUT IN ECB * P LDK A1,5 PRESET LENGTH CASE FRMR/CMDR & P LC A2,TRCTL,A6 GET CONTROL FIELD
0x44ac50…44ade4 Dummy {f00=0x0156, f01=0x0190, f02=»NTROL FRAME z PWRITC1 EQU * P ST A1,ECBRL,A8 IN ECB ( P* F P* P , PWRITCI EQU * FOR DATA AS WELL AS CONTROL Z P IFT LOG=1 P LDKL A4,/53FF , P CF A5,LOGFR LOGGING OF OUTGOING FRAMES P XIF & P CF A5,L1OUT EXECUTE WRITE
0x44ade4…44af78 Dummy {f00=0x0156, f01=0x0190, f02=»ADDRESSES h * P ADR A1,A6 IN CORRECT PARAMETER TABLE & PPRI7 LDR* A3,A1 GET QUEUE ADDRESS @ , PPRI6 CF A5,GETBUF GET ELEMENT FROM QUEUE j P LD A3,Q1ACAD,A6 P CF A5,PUTBUF SET IN ACK QUE , P LD A1,TRANSF,A6 GET ADDRESS AND CONTROL & P L
0x44af78…44b10c Dummy {f00=0x0156, f01=0x0190, f02=»BEL,A8 0 P CF A5,GLECB GET ELEMENT FROM LECB QUEUE(A3) & P ST A1,ECBRL,A8 REQ. LENGTH IN ECB B 0 P ST A2,ECBBA,A8 STORE BUFFER ADDRESS IN ECB l * P IM AC,A6 INCREMENT ACKNOWLEDGE COUNT P LDKL A1,-1 & P ADS A1,SC,A6 DECREMENT SEND COUNT
0x44b10c…44b2a0 Dummy {f00=0x0156, f01=0x0190, f02=» P* P* PPTTC EQU * , P LD A1,CSV,A6 GET ACTUAL PROTOCOL STATUS * & P RF(Z) TIMAC1 CSV IS DISCONNECTED Z P CWK A1,CNT " P RF(E) TIMAC2 CSV IS CONNECTED P CWK A1,CNTRES ( P RF(E) TIMAC4 CSV IS WAIT FOR RESET P* ALL OT
0x44b2a0…44b434 (1, 1236) Dummy {f00=0x0156, f01=0x0190, f02=»F TIMEX P* PTIMAC2 EQU * , P LD A1,OUTSTP,A6 CHECK OUTSTANDING P-BIT . P RF(Z) TIMC2A ^ " P LD A1,TST,A6 GET TIMER STATE t P SUK A1,1 P RF(Z) TIMEX TST=1 P RF TIMST1 PTIMC2A EQU * " P LD A1,TST,A6 GET TIMER STAT
0x44b434…44b5c8 Dummy {f00=0x0156, f01=0x0190, f02=»* TEST IF ACK-TIMER HAS TO BE SET P LD A2,AC,A6 . * P RF(Z) TIMC2C NO! P 4 P LDK A1,2 SET ACK-TIMER ~ P RF TIMSAV PTIMC2C EQU * P SUK A1,1 & P RF(
0x44b5c8…44b75c Dummy {f00=0x0156, f01=0x0190, f02=»T IS 1 ? P RF(E) TIMEX YES EXIT P RF TIMSAV . P* @ PTIMAC4 EQU * J $ P LDK A1,4 TIMER STATE BECOMES 4 ^ P RF TIMSAV P* PTIMST1 EQU * " P LDK A1,1 SET TIMER STATE TO 1 P RF TIMSAV PTIMST0 EQU * " P LDK A
0x44b75c…44b8f0 Dummy {f00=0x0156, f01=0x0190, f02=» P RTN A5 RETURN TO CALLER P IFT STAT=1 ( P EJECT < P* J P* T & P**** STATISTICAL COUNTING ROUTINE ^ P* P* AT ENTRY: . P* A1 = INDEX FOR FRAME TYPE TO BE COUNTED $ P* A6 = ADDRESS PARAMETER TABLE P*
0x44b8f0…44ba84 Dummy {f00=0x0156, f01=0x0190, f02=»ISTICAL COUNTER z PCOUNTR EQU * P LDR* A1,A5 RESTORE A1 , P RTN A5 RETURN J P XIF ` P EJECT l , PRESTR EQU * RESET TRANSMITTER VARIABLES z P CM NRT,A6 P LDK A1,1 P ST A1,REMFR,A6 P CM VS,A6 P CM MAXVS,A6
0x44ba84…44bc18 Dummy {f00=0x0156, f01=0x0190, f02=» CM VR,A6 P RTN A5 P EJECT " P* 0 4 P* THIS PART WILL PERFORM THE INITIALISATION : P* OF THIS LEVEL r P* P* PINIT EQU * P CF A5,INIT.IO 4 P CM TIMADR,A6 RESET ADDRESS TIMER BLOCK AS FLAG ( P CM LE
0x44bc18…44bdac Dummy {f00=0x0156, f01=0x0190, f02=»R COUNTERS P ADK A1,2 " P CW A1,STAEND,A6 END REACHED ? $ P RB(NE) INIT10 NO J P XIF d P LDR A4,A6 SET POINTER p & P LDK A2,12 MINIMUM NR OF QUEUES*2 PINITR EQU * RETURN POINT * P LD A3,QUEAD,A4 GET FIRST QUE ADDRESS P C
0x44bdac…44bf40 Dummy {f00=0x0156, f01=0x0190, f02=»D A1,MA,A3 , P SUR A1,A7 NOW WE HAVE NUMB OF ELEMENTS ( P ST A1,NN,A3 SET NUMBER OF ELEMENTS B $ P ADK A4,2 INCRENMENT QUE POINTER n 0 P SUK A2,2 DECREMENT NUMBR TO BE INITIALIZED P RB(NZ) INITR DO AGAIN * P LD A1,Q1LEAD,A6 LENGTH OF LECB
0x44bf40…44c0d4 (1, 1237) Dummy {f00=0x0156, f01=0x0190, f02=»QUEUE (A3=ADDR) t & P ADKL A8,12 UPDATE ELEMENT ADDRESS $ P SUK A2,2 DECREASE NR OF QUEUES B P RB(NZ) INITQ STORE ELEMENT j P LDR A8,A7 RELOAD A8 P LDKL A1,-1 0 P ST A1,PROTST,A6 PROTOCOL STATUS DISCONNECT . P ST A1,DRIVST,A6 DRIVE
0x44c0d4…44c268 Dummy {f00=0x0156, f01=0x0190, f02=» PSTATIM EQU * START TIMER " P LD A2,TST,A6 GET TIMER STATE ( . P ADR A2,A2 MAKE INDEX IN TIMER VALUE TABLE N : P LD A3,TIMVAL,A2 GET TIMER STATE DEPENDENT TIMER VALUE P INH * P ST A3,TIMER SET IN LOCATION FOR TIMER P C1R A3,
0x44c268…44c3fc Dummy {f00=0x0156, f01=0x0190, f02=»R ALREADY EXHAUSTED ~ * P ST* A3,TIMADR,A6 SAVE NEW TIMER VALUE P ENB J P RTN A5 V P* f PSTATI1 EQU * p 4 P LD A1,TMECBA,A6 ADDRESS TIMER ECB AS PARAMETER . P LC A4,FCL1+1,A6 SET FILECODE IN TIMER ECB P SC A4,1,A1 P CF A1
0x44c3fc…44c590 Dummy {f00=0x0156, f01=0x0190, f02=»!! t . P ST A4,TIMADR,A6 SAVE TIMER VALUE ADDRESS P RTN A5 RETURN TO CALLER < P* PTIMVAL EQU * f P DATA SYTIM0 VALUE IF TST 0 z P DATA SYTIM1 VALUE IF TST 1 P DATA SYTIM2 VALUE IF TST 2 P DATA SYTIM3 VALUE IF TST 3
0x44c590…44c724 Dummy {f00=0x0156, f01=0x0190, f02=»T A1,SAV,A6 IN SAVE AREA P ST A2,SAV+2,A6 P ST A3,SAV+4,A6 8 P ST A4,SAV+6,A6 P P ST A7,SAV+8,A6 h 0 P LD A1,FCL1,A6 FILE CODE FOR CURRENT DRIVER " P STR A1,A8 STORE INTO LINE ECB P RTN A5 RETURN TO CALLER P* P*
0x44c724…44c8b8 Dummy {f00=0x0156, f01=0x0190, f02=»A4,SAV+6,A6 P LD A7,SAV+8,A6 P RTN A5 RETURN TO CALLER , P EJECT L P**** DRIVER REQUEST ROUTINES Z P* ~ PL1CONN EQU * P CF A5,MSRL & P CM OUTPEN,A6 RESET OUTPUT PENDING . P CM INPCNT,A6 RESET INPUT PENDING COUNTER
0x44c8b8…44ca4c Dummy {f00=0x0156, f01=0x0190, f02=»TH t PL1RET2 EQU * 0 P CC A1,TABPAR-1,A2 DOES THE FILECODES MATCH P RF(E) L1RET3 YES R P SUK A2,4 TAKE NEXT ENTRY l P RB L1RET2 PL1RET3 EQU * 0 P LD A6,TABPAR,A2 GET PARAMETER TABLE ADDRESS . P CF A5,MLRL MULTIPLE LOAD OF LOW
0x44ca4c…44cbe0 Dummy {f00=0x0156, f01=0x0190, f02=»L1 ( P RF(E) L1RET1 CONNECT REQUEST FAILED P HLT 6 PL1RET1 EQU * B P RTN A5 RETURN TO CALLER V P* v P* ( P* DRIVER INPUT REQUEST WITH IMPLICIT . P* LINE ECB REQUEST AND STORE BUFFERADDRESS P* AT ENTRY A7=BUFFERADDRESS
0x44cbe0…44cd74 (1, 1238) Dummy {f00=0x0156, f01=0x018e, f02=»U * PERFORM LEVEL 1 CALL P CF A5,MSRL 8 P IM INPCNT,A6 INCREASE NR OF PENDING INPUT REQUESTS 4 P LD A1,SYLEN,A6 p & P ST A1,ECBRL,A8 STORE FIXED LENGTH P CF A5,DR.INP LEVEL 1 CALL " P RB L1RET COMMON RETURN POINT P* $ PL1OU
0x44cd74…44cf08 Dummy {f00=0x0156, f01=0x0190, f02=» t " P RB L1RET COMMON RETURN POINT P* . 0 P* DRIVER STOP REQUEST WITH IMPLICIT REQUEST 8 ( P* OF A LINE ECB AND RESTORE LINE ECB l P* PL1STPQ EQU * P CF A5,GLECB GET LINE ECB P CF A5,L1STOP STOP DRIVER * P CF A5,PLECB R
0x44cf08…44d09c Dummy {f00=0x0156, f01=0x018e, f02=»F A5,MSRL P LDK A1,1 , P ST A1,DRIVST,A6 SET DRIVER STATUS STOP $ P CF A5,DR.STOP LEVEL 1 CALL T " P RB L1RET COMMON RETURN POINT x P* . P* DRIVER DISCONNECT REQUEST WITH IMPLICIT P* REQUEST OF A LINE ECB P* PL1DI
0x44d09c…44d230 Dummy {f00=0x0156, f01=0x0190, f02=» 0 P ST A1,DRIVST,A6 SET DRIVER STATUS DISCONNEC P CF A5,DR.DISC LEVEL 1 CALL < " P RB L1RET COMMON RETURN POINT ` P EJECT PMI EQU /0 PMA EQU /2 PNF EQU /4 PNN EQU /6 PIN EQU /8 PEX EQU /A P*
0x44d230…44d3c4 Dummy {f00=0x0156, f01=0x0190, f02=» THE EXPECTED INPUT PARAMETERS ARE: " P* A3 = QUEUE ADDRESS , P* A5 = STACKBASE R P* t P* ~ 0 P* A8 WILL CONTAIN THE FOUND ECB ADDRESS P* . P* NO REGISTERS BELOW A9 ARE AFFECTED. P* , PGLECB
0x44d3c4…44d558 Dummy {f00=0x0156, f01=0x018e, f02=»RE FREE BUFFERS? | P RF(NP) GETBEX NO ( P LD A7,EX,A3 GET EXTRACTION POINTER 2 " P LDR* A8,A7 GET BUFFER ADDRESS ^ ( P ADKL A7,2 INCREMENT EXTRACT POINTER " P CW A7,MA,A3 MAXIMUM REACHED? P RF(NE) GETB1 CONTINUE & P LD A7,MI,A3 SET POI
0x44d558…44d6ec Dummy {f00=0x0156, f01=0x0190, f02=» f P LDKL A7,-2 ( P ADS A7,NF,A3 DECREMENT FREE COUNTER " P RF RETRN RELOAD A7 AND RETURN H PGETBEX EQU * n P HLT P* P* P* 8 P* THIS PROGRAM PART TAKES CARE FOR THE QUEUEING P* OF ECB. P* , P
0x44d6ec…44d880 Dummy {f00=0x0156, f01=0x0190, f02=»CB ADDRESS TO BE QUEUED P* P* * . P* NO REGISTERS BELOW A8 ARE AFFECTED. 4 P* f : PPLECB LD A3,Q1LEAD,A6 ENTRY POINT TO PUT LECB IN QUEUE p P* PPUTBUF EQU * P STR A7,A5 SAVE A7 ON STACK $ P LD A7,NN,A3 GET NUMBER
0x44d880…44da14 (1, 1239) Dummy {f00=0x0157, f01=0x018e, f02=»CREASE INSERT POINTER " P CW A7,MA,A3 MAXIMUM REACHED ? P RF(NE) PUTB1 NO D & P LD A7,MI,A3 SET POINTER TO BEGIN PPUTB1 EQU * P ST A7,IN,A3 SAVE POINTER P LDK A7,2 " P ADS A7,NF,A3 INCREMENT FILLED P LDKL A7,-2 & P
0x44da14…44dba8 Dummy {f00=0x0157, f01=0x0190, f02=» P HLT P IFT TRACE=1 P EJECT $ P* 2 P* < > P**** LOGING ROUTINE FOR RECEIVED AND TRANSMITTED I-FRAMES F P* P* AT ENTRY: P* A8 = ECB-ADDRESS P* P* AT RETURN: $ P* A1, A3, A4 AND A7 ARE CHANGED P
0x44dba8…44dd3c Dummy {f00=0x0157, f01=0x0190, f02=» POINTER IN TRACE BUFFER v $ P RF(Z) LOGT30 NO AREA SPECIFIED PLOGT10 EQU * H P LDR* A1,A3 GET WORD P STR A1,A7 STORE x $ P ADK A3,2 INCREASE LOAD POINTER $ P ADK A7,2 INCREASE STORE POINTER 2 P CW A7,TRAEND,A6 END OF TRACE BUFFER REA
0x44dd3c…44ded0 Dummy {f00=0x0157, f01=0x018e, f02=»EASE # OF WORDS P RB(NZ) LOGT10 GET NEXT , P ST A7,CURTRP,A6 SAVE NEW STORE POINTER 8 PLOGT30 EQU * h P RTN A5 RETURN | P XIF P IFT LOG=1 P EJECT P* P* @ P**** LOGING ROUTINE FOR RECEIVED AND TRANSMITTED HDLC-
0x44ded0…44e064 Dummy {f00=0x0157, f01=0x0190, f02=» P* A7 IS CHANGED P* PLOGFR EQU * * 4 P LD A7,CURLGP,A6 GET STORE POINTER IN LOG BUFFER > " P RF(Z) LOG20 NO AREA SPECIFIED v , P STR A4,A7 STORE SEND/RECEIVE INDICATION P LD* A4,ECBBA,A8 ( P ST A4,2,A7 STORE FIRST BUFFER WORD
0x44e064…44e1f8 Dummy {f00=0x0157, f01=0x0190, f02=», SET STORE POINTER ON START | PLOG10 EQU * $ , P ST A7,CURLGP,A6 SAVE NEW STORE POINTER 8 PLOG20 EQU * h P RTN A5 RETURN | P XIF P EJECT P* > P* TABLE THAT CONTAINS THE FILECODE USED AT THE I/O-HANDLER B P* INTERFACE FOR
0x44e1f8…44e38c Dummy {f00=0x0157, f01=0x0190, f02=»H v P* P DATA FC:LN1 P DATA PARTA1 ( P IFF SYNRLN=1 < P DATA FC:LN2 R P DATA PARTA2 f P IFF SYNRLN=2 z P DATA FC:LN3 P DATA PARTA3 P IFF SYNRLN=3 P DATA FC:LN4 P DATA PARTA4 P XIF PTABEND
0x44e38c…44e520 Dummy {f00=0x0157, f01=0x0190, f02=»NG OF DVDCLC z J P* FOR EACH "LIFE" OF THE HDLC PROTOCOL PROGRAM , ONE TABLE MUST P* BE DEFINED b P* ~ 2 P* THE TABLE CONSISTS OF TWO PARTS I.E. L P* * ONE PART THAT CONTAINS ALL VARIABLES THAT ARE RELATED
0x44e520…44e6b4 (1, 1240) Dummy {f00=0x0157, f01=0x0190, f02=» OTHER INFORMATION SUCH AS QUEUEING PARAMETERS FOR 8 P* BUFFERS , ECB'S , FRAME CONTENTS. @ P* | P* P***** FIRST PART ***** P* P DATA 'PARTA1' PPARTA1 EQU * START OF TABLE P* 6 P* DEVI
0x44e6b4…44e848 Dummy {f00=0x0157, f01=0x0190, f02=» ~ P DATA 0 ECB-ADDRESS P DATA 0 ORDER $ * P DATA DRDC25 POINTER TO ADDRESS BLOCK : P DATA 0 TTAB-ADDRESS h & P DATA 0 WAIT/ACTIVATION INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 P DATA 0 P DATA 0 P DATA 0 ECHO
0x44e848…44e9dc Dummy {f00=0x0157, f01=0x0190, f02=» THIS WORD WILL CONTAIN THE FOLLOWING VARIABLES 4 P* BIT 0 = IN.FRMR/IN.CMDR D * P* 1 = IN.UA | * P* 2 = IN.DM 4 P* 3 = IN.SABM/IN.SARM
0x44e9dc…44eb70 Dummy {f00=0x0157, f01=0x0190, f02=» IN.REJ p * P* 7 = IN.F , P* 8 = IN.TRI > , P* 9 = IN.ACK n * P* 10 = IN.P 0 P* 11 = ** SPARE ** 0 P*
0x44eb70…44ed04 Dummy {f00=0x0157, f01=0x0190, f02=»E ** h 0 P* 15 = ** SPARE ** P* @ F PRECCMD EQU *-PARTA1 COMMAND/RESPONSE INDICATOR J P DATA 0 P* H POUTSTP EQU *-PARTA1 OUTSTANDING P-BIT INDICATOR P
0x44ed04…44ee98 Dummy {f00=0x0157, f01=0x0190, f02=»TST EQU *-PARTA1 TIMER STATE P DATA 0 < P* X 6 PSINS EQU *-PARTA1 SINK STATE b P DATA 0 2 PRRSETI EQU *-PARTA1 RECEIVER RESET INDICATION P DATA 0 P* B P
0x44ee98…44f02c Dummy {f00=0x0157, f01=0x0190, f02=» NEW N(R) RECEIVED INDICATOR t P DATA 0 0 P* L F PVS EQU *-PARTA1 SEND STATE VARIABLE V(S) V P DATA 0 P* H PVR EQU *-PARTA1 RECEIVE STATE VARIABLE V(R
0x44f02c…44f1c0 Dummy {f00=0x0157, f01=0x0190, f02=»ATA 0 UPDATED TOGETHER WITH V(S) P* @ H PLNR EQU *-PARTA1 LAST VALUE OF N(R) RECEIVED J > P DATA 0 FROM OPPOSITE SIDE P* H PSC EQU *-PARTA1
0x44f1c0…44f354 (1, 1241) Dummy {f00=0x0157, f01=0x0190, f02=»ES TO BE T 4 P DATA 0 RECEIVED P* H > PNRT EQU *-PARTA1 NUMBER OF RETRIES R P DATA 0 PTRSPAD EQU *+1-PARTA1 PRCMDAD EQU *+1-PARTA1 " P DATA SYADRS RESPONSE ADDRES
0x44f354…44f4e8 Dummy {f00=0x0157, f01=0x0190, f02=»DENTIFIER r P DATA 0 0 PIIF EQU *-PARTA1 ILLEGAL I-FIELD INDICATION " P DATA 0 V PSTB EQU *-PARTA1 f P DATA STCK1A+PARTA1-2 ~ , PSAV EQU *-PARTA1 SAVE AREA FOR REGISTERS " P RES 5 SAVE AREA FOR REGISTERS < PNEWSTB EQU *-PARTA1 ST
0x44f4e8…44f67c Dummy {f00=0x0157, f01=0x0190, f02=» EQU *-PARTA1 P DATA 0 PRECCF EQU *-PARTA1 & P DATA 0 @ PSAV1 EQU *-PARTA1 P P DATA 0 j : PSAV2 EQU *-PARTA1 SAVE AREA FOR REGISTERS IN RECEIVER z P DATA 0 PSAV3 EQU *-PARTA1 P DATA 0 PTRANSF EQU *-PARTA1
0x44f67c…44f810 Dummy {f00=0x0157, f01=0x0190, f02=»1 ~ PFRSAV2 EQU *+1-PARTA1 PFRSAV3 EQU *+2-PARTA1 ( * P DATA 0 ADDITIONAL INFO FOR CMDR FRAME F P DATA 0 t P* P EJECT P* 2 P* QUE ADDRESSES BELONGING TO ONE LINE OF HDLC P* P* PQUEAD EQU *-PARTA1
0x44f810…44f9a4 Dummy {f00=0x0157, f01=0x0190, f02=» PQ1COAD EQU *-PARTA1 P DATA Q1CO 8 PQ1SCAD EQU *-PARTA1 ENTRY IN TABLE FOR OUTPUT QUEUES 2 8 P DATA Q1SC ADDRESS OF TEMPORARY RETRANSMISSION QUEUE n PQ1LEAD EQU *-PARTA1 P DATA Q1LE P* . PQ1LECA EQU *-PARTA1 ADDRESS FIRST LINE
0x44f9a4…44fb38 Dummy {f00=0x0157, f01=0x0190, f02=» EQU *-PARTA1 WILL CONTAIN THE N(R) OF THE : P DATA 0 RECEIVED FRAME F P* PDWTAD EQU *-PARTA1 P DATA DW2501 PSYLEN EQU *-PARTA1 P DATA 0 INPUT LENGTH POUTPEN EQU *-PARTA1
0x44fb38…44fccc Dummy {f00=0x0157, f01=0x0190, f02=» DATA -1 PFCL1 EQU *-PARTA1 P DATA FC:LN1 * * PTMECBA EQU *-PARTA1 ADDRESS TIMER ECB > > P DATA TIMECB+PARTA1 THIS ECB MUST BE DEFINED FOR ANY LINE l PTIMADR EQU *-PARTA1 P DATA 0 PCON.ECB EQU *-PARTA1 P DATA 0 PDI
0x44fccc…44fe60 Dummy {f00=0x0157, f01=0x0190, f02=» EQU *-PARTA1 P DATA 0 $ PINBUF EQU *-PARTA1 INIT POINTER & P DATA SAVBUF+PARTA1 N P IFT TRACE=1 j PCURTRP EQU *-PARTA1 ~ 4 P DATA TRABUF+PARTA1 CURRENT TRACE BUFFER POINTER PTRASTR EQU *-PARTA1 P DATA TRABUF+PARTA1
0x44fe60…44fff4 (1, 1242) Dummy {f00=0x0157, f01=0x0190, f02=»RRENT LOG BUFFER POINTER z PLOGSTR EQU *-PARTA1 P DATA LOGBUF+PARTA1 < PLOGEND EQU *-PARTA1 X P DATA LGEND+PARTA1 t P XIF P IFT STAT=1 PSTASTR EQU *-PARTA1 P DATA STABUF+PARTA1 PSTAEND EQU *-PARTA1 P DATA
0x44fff4…450188 Dummy {f00=0x0157, f01=0x0190, f02=»CT P* P RES 10 CALL FUNCTION STACK PSTCK1A EQU *-PARTA1 8 P* T , P RES 3 CALL FUNC STACK FOR INTERR. REQ. ^ PSTCK1B EQU *-PARTA1 P* PTIMECB EQU *-PARTA1 P DATA FC:LN1 TIMER ECB ( P DATA 0,0,0,0,ORTIL1 ORDER
0x450188…45031c Dummy {f00=0x0157, f01=0x0190, f02=»TRABUF EQU *-PARTA1 P RES 100 TRACE AREA PTREND EQU *-PARTA1 8 P XIF R P* ^ P IFT LOG=1 h PLOGBUF EQU *-PARTA1 z P RES 50 LOG AREA PLGEND EQU *-PARTA1 P XIF P* P IFT STAT=1 PSTABUF EQU *-PARTA1
0x45031c…4504b0 Dummy {f00=0x0157, f01=0x0190, f02=»PS THE ELEMENTS FROM WHICH THE ~ P* EVENTS ARE READY & P* D P* N PQ1ER EQU * START OF QUEUE X 0 PQ1ERMI DATA Q1ERSA MINIMUM VALUE OF POINTER z 0 PQ1ERMA DATA Q1ERFI MAXIMUM VALUE OF POINTER , PQ1ERNF DATA 0 NUMBER OF QUEUED ELEMENT
0x4504b0…450644 Dummy {f00=0x0157, f01=0x0190, f02=»CTION POINTER x 6 PQ1ERSA RES SYNRRC+SYNRTR+1 RESERVE ALLOWED NUMBER PQ1ERFI EQU * END OF BLOCK P P* r P* | P* THE INPUT REQUEST QUEUE P* P* PQ1IR EQU * START OF QUEUE 0 PQ1IRMI DATA Q1IRSA MINIMUM VALUE OF POINTE
0x450644…4507d8 Dummy {f00=0x0157, f01=0x0190, f02=»NUMBER OF FREE POSITIONS v ( PQ1IRIP DATA Q1IRSA INSERTION POINTER * PQ1IREP DATA Q1IRSA EXTRACTION POINTER L , PQ1IRSA RES SYNRRC RESERVE ALLOWED NUMBER z PQ1IRFI EQU * END OF BLOCK P* P* P* THE ACKNOWLEDGE QUEUE P*
0x4507d8…45096c Dummy {f00=0x0157, f01=0x0190, f02=»INTER j , PQ1ACNF DATA 0 NUMBER OF QUEUED ELEMENTS 6 PQ1ACNN DATA Q1ACFI-Q1ACSA NUMBER OF FREE POSITIONS > ( PQ1ACIP DATA Q1ACSA INSERTION POINTER x * PQ1ACEP DATA Q1ACSA EXTRACTION POINTER , PQ1ACSA RES SYTRWN RESERVE ALLOWED NUMBER PQ1ACFI
0x45096c…450b00 Dummy {f00=0x0157, f01=0x0190, f02=»A Q1SCSA MINIMUM VALUE OF POINTER 0 PQ1SCMA DATA Q1SCFI MAXIMUM VALUE OF POINTER * , PQ1SCNF DATA 0 NUMBER OF QUEUED ELEMENTS ^ 6 PQ1SCNN DATA Q1SCFI-Q1SCSA NUMBER OF FREE POSITIONS ( PQ1SCIP DATA Q1SCSA INSERTION POINTER * PQ1SCEP DATA Q1SCSA E
0x450b00…450c94 (1, 1243) Dummy {f00=0x0158, f01=0x0190, f02=»TERRUPT COMPLETION QUEUE P* P* * PQ1CO EQU * START OF QUEUE 4 0 PQ1COMI DATA Q1COSA MINIMUM VALUE OF POINTER V 0 PQ1COMA DATA Q1COFI MAXIMUM VALUE OF POINTER , PQ1CONF DATA 0 NUMBER OF QUEUED ELEMENTS 6 PQ1CONN DATA Q1COFI-Q1COSA
0x450c94…450e28 Dummy {f00=0x0158, f01=0x0190, f02=»RRC+SYUBNR+4 RESERVE ALLOWED NUMBER PQ1COFI EQU * END OF BLOCK , P* N P* X P* THE QUEUE OF LINE ECBS b P* P* PQ1LE EQU * START OF QUEUE 0 PQ1LEMI DATA Q1LESA MINIMUM VALUE OF POINTER 0 PQ1LEMA DATA Q1LEFI MAXIMUM V
0x450e28…450fbc Dummy {f00=0x0158, f01=0x0190, f02=» DATA Q1LESA INSERTION POINTER * PQ1LEEP DATA Q1LESA EXTRACTION POINTER & PQ1LESA EQU * T * P***** MAXIMUM 12 LINE ECB'S RESERVED h P* P DATA Q1LEC1 P DATA Q1LEC1+12 P DATA Q1LEC1+24 P IFF NRLECB=3 P DATA Q1LEC1+3
0x450fbc…451150 Dummy {f00=0x0158, f01=0x018e, f02=»+72 P IFF NRLECB=7 P DATA Q1LEC1+84 " P IFF NRLECB=8 : P DATA Q1LEC1+96 P P IFF NRLECB=9 h P DATA Q1LEC1+108 ~ P IFF NRLECB=10 P DATA Q1LEC1+120 P IFF NRLECB=11 P DATA Q1LEC1+132 P IFF NRLECB=12 P
0x451150…4512e4 Dummy {f00=0x0158, f01=0x018e, f02=» P XIF PQ1LEFI EQU * END OF BLOCK P* 2 H P* IN THIS AREA ALL THE LINE ECB'S EXCEPT FOR THE TIMER ARE RESERVED < P* PQ1LEC1 EQU * P RES NRLECB WORD 0 P RES NRLECB WORD 1 P RES NRLECB WORD 2 P RES NRLECB WORD 3
0x4512e4…451478 Dummy {f00=0x0158, f01=0x018e, f02=» r P* P DATA 'PARTA2' PPARTA2 EQU * START OF TABLE ( P* L 6 P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE V P* PDW2502 EQU * P DATA 'DC' CHANNEL PARAMETER P DATA /8000 STATUS P DATA 0 ECB-ADDRESS P
0x451478…45160c Dummy {f00=0x0158, f01=0x0190, f02=» P DATA 0 TERMINAL QUEUE P DATA 0 " P DATA 0 2 P DATA 0 B P DATA 0 ECHO DEVICE R ( P DATA PARTA2 PARAMETER TABLE ADDRESS n P* P DATA 0 D P* THIS WORD WILL CONTAIN THE FOLLOWING VARIABLES 4 P
0x45160c…4517a0 Dummy {f00=0x0158, f01=0x0190, f02=»N.DM n 4 P* 3 = IN.SABM/IN.SARM , P* 4 = IN.DISC D , P* 5 = IN.RNR t , P* 6 = IN.REJ * P* 7 = IN.F , P*
0x4517a0…451934 (1, 1244) Dummy {f00=0x0158, f01=0x0190, f02=»* 11 = ** SPARE ** 0 P* 12 = ** SPARE ** 4 0 P* 13 = ** SPARE ** h 0 P* 14 = ** SPARE ** 0 P* 15 = ** SPARE ** P*
0x451934…451ac8 Dummy {f00=0x0158, f01=0x0190, f02=»TE VARIABLE P DATA 0 P* $ P* TIMER STATE . P DATA 0 D P* ` P* SINK STATE j P DATA 0 ~ P* RECEIVER RESET INDICATION P DATA 0 P* P* REMOTE FREE INDICATION P DATA
0x451ac8…451c5c Dummy {f00=0x0158, f01=0x0190, f02=» DATA 0 P* " P* RECEIVE STATE VARIABLE V(R) " P DATA 0 H P* d ( P* MAXIMUM VALUE OF V(S) HAS REACHED n F P DATA 0 UPDATED TOGETHER WITH V(S) P* " P* LAST VALUE OF N(R) RECEI
0x451c5c…451df0 Dummy {f00=0x0158, f01=0x0190, f02=»ATA 0 P* ! , P* NUMBER OF ACKNOWLEDGES TO BE RECEIVED ! 4 P DATA 0 RECEIVED ! L P* ! P* NUMBER OF RETRIES ! P DATA 0 ! " P DATA SYADRS RESPONSE ADDRESS ! P DATA SYADCM COMMAND ADDRESS
0x451df0…451f84 Dummy {f00=0x0158, f01=0x0190, f02=»A STCK2A ! P* SAVE AREA FOR REGISTERS " " P RES 5 SAVE AREA FOR REGISTERS " 2 , P* STACK BASE FOR INTERRUPTS DURING BUSY " X P DATA STCK2B STACKBASE ENTRY " P DATA 0 " P DATA 0 " P DATA 0 " P DATA 0 " * P* SAVE AREA FOR REGISTERS IN
0x451f84…452118 Dummy {f00=0x0158, f01=0x0190, f02=»CMDR FRAME " t P DATA 0 # P* # " P EJECT # , P* # : 2 P* QUE ADDRESSES BELONGING TO ONE LIFE OF HDLC # D P* # z P* # P DATA Q2ER # P DATA Q2IR # P DATA Q2AC # P DATA Q2CO # 8 PQ2SCAD EQU *-PARTA2 ENTRY IN TABLE FOR OUTPUT QUEU
0x452118…4522ac Dummy {f00=0x0158, f01=0x0190, f02=»Q2LEC1 *****TEM****** # P* $ P EJECT $ ( " P***** SECOND PART ***** $ 6 P* $ P* $ f 2 P* WILL CONTAIN THE N(R) OF THE RECEIVED FRAME $ p : P DATA 0 RECEIVED FRAME $ P DATA DW2502 DWT ADDRESS $ P DAT
0x4522ac…452440 Dummy {f00=0x0158, f01=0x0190, f02=» THIS ECB MUST BE DEFINED FOR ANY LINE $ P DATA 0 % . P DATA 0 % > P DATA 0 % N P DATA 0 % ^ P DATA 0 % n P DATA 0 % ~ P* INIT POINTER % P DATA SAVBF2 % P IFT TRACE=1 % . P DATA CURTR2 CURRENT TRACE BUFFER POINTER % P DATA TRAS
0x452440…4525d4 (1, 1245) Dummy {f00=0x0158, f01=0x018e, f02=»ATA LGEND2 % P XIF & P IFT LINE2+STAT=2 & ( P DATA STAST2 START STATISTICAL AREA & 8 P DATA STEND2 & d P XIF & x P IFT LINE2=1 & P DATA -100 & P EJECT & P* & P RES 10 CALL FUNCTION STACK & PSTCK2A EQU *-2 &
0x4525d4…452768 Dummy {f00=0x0158, f01=0x0190, f02=» & x P DATA 0,0,0,0,ORTIL1 ' P* ' $ PSAVBF2 EQU * ' . P RES SYUBNR ' B P* ' V P IFT LINE2+TRACE=2 ' ` PCURTR2 EQU * ' z PTRAST2 EQU * ' P RES 100 TRACE AREA ' PTREND2 EQU * ' P XIF ' P* ' P IFT LINE2+LOG=2 ' PCURLG2 E
0x452768…4528fc Dummy {f00=0x0158, f01=0x0190, f02=» ' $ P RORG *+STALNG STATISTICAL AREA ( PSTEND2 EQU * ( 0 P XIF ( D P IFT LINE2=1 ( P P EJECT ( d P* ( r P* ( | 4 P* THIS QUE KEEPS THE ELEMENTS FROM WHICH THE ( P* EVENTS ARE READY ( P* ( P* ( PQ2ER EQU * START OF QUEU
0x4528fc…452a90 Dummy {f00=0x0158, f01=0x0190, f02=»F QUEUED ELEMENTS ( z 6 PQ2ERNN DATA Q2ERFI-Q2ERSA NUMBER OF FREE POSITIONS ) ( PQ2ERIP DATA Q2ERSA INSERTION POINTER ) T * PQ2EREP DATA Q2ERSA EXTRACTION POINTER ) 6 PQ2ERSA RES SYNRRC+SYNRTR+1 RESERVE ALLOWED NUMBER ) PQ2ERFI EQU * END OF BLOCK )
0x452a90…452c24 Dummy {f00=0x0158, f01=0x0190, f02=» VALUE OF POINTER ) v 0 PQ2IRMA DATA Q2IRFI MAXIMUM VALUE OF POINTER * , PQ2IRNF DATA 0 NUMBER OF QUEUED ELEMENTS * N 6 PQ2IRNN DATA Q2IRFI-Q2IRSA NUMBER OF FREE POSITIONS * ~ ( PQ2IRIP DATA Q2IRSA INSERTION POINTER * * PQ2IREP DATA Q2IRSA EXTRACTION POINTE
0x452c24…452db8 Dummy {f00=0x0158, f01=0x0190, f02=» * x P* + P* + PQ2AC EQU * START OF QUEUE + 0 PQ2ACMI DATA Q2ACSA MINIMUM VALUE OF POINTER + > 0 PQ2ACMA DATA Q2ACFI MAXIMUM VALUE OF POINTER + r , PQ2ACNF DATA 0 NUMBER OF QUEUED ELEMENTS + 6 PQ2ACNN DATA Q2ACFI-Q2ACSA NUMBER OF FREE POSITIONS
0x452db8…452f4c Dummy {f00=0x0158, f01=0x0190, f02=»ER + j PQ2ACFI EQU * END OF BLOCK , P* , , P* , 6 P* THE SEND QUEUE , @ P* , X P* , b PQ2SC EQU * START OF QUEUE , l 0 PQ2SCMI DATA Q2SCSA MINIMUM VALUE OF POINTER , 0 PQ2SCMA DATA Q2SCFI MAXIMUM VALUE OF POINTER , , PQ2SCNF DATA 0 NUMB
0x452f4c…4530e0 Dummy {f00=0x0158, f01=0x0190, f02=»EP DATA Q2SCSA EXTRACTION POINTER , , PQ2SCSA RES SYNRTR RESERVE ALLOWED NUMBER - * PQ2SCFI EQU * END OF BLOCK - Z P* - | P* - $ P* THE INTERRUPT COMPLETION QUEUE - P* - P* - PQ2CO EQU * START OF QUEUE - 0 PQ2COMI DATA Q2COSA MINIMUM
0x4530e0…453274 (1, 1246) Dummy {f00=0x0158, f01=0x0190, f02=»A Q2COFI-Q2COSA NUMBER OF FREE POSITIONS - ( PQ2COIP DATA Q2COSA INSERTION POINTER . 0 * PQ2COEP DATA Q2COSA EXTRACTION POINTER . 6 PQ2COSA RES SYNRRC+SYUBNR+4 RESERVE ALLOWED NUMBER . PQ2COFI EQU * END OF BLOCK . P* . P* . P* THE QUEUE OF
0x453274…453408 Dummy {f00=0x0158, f01=0x018e, f02=»Q2LEFI MAXIMUM VALUE OF POINTER . 8 PQ2LENF DATA Q2LEFI-Q2LESA NUMBER OF QUEUED ELEMENTS / ( * PQ2LENN DATA 0 NUMBER OF FREE POSITIONS / d ( PQ2LEIP DATA Q2LESA INSERTION POINTER / * PQ2LEEP DATA Q2LESA EXTRACTION POINTER / PQ2LESA EQU * / * P***** M
0x453408…45359c Dummy {f00=0x0158, f01=0x0190, f02=» P DATA Q2LEC1+36 0 P IFF NRLECB=4 0 P DATA Q2LEC1+48 0 2 P IFF NRLECB=5 0 J P DATA Q2LEC1+60 0 ` P IFF NRLECB=6 0 x P DATA Q2LEC1+72 0 P IFF NRLECB=7 0 P DATA Q2LEC1+84 0 P IFF NRLECB=8 0 P DATA Q2LEC1+96 0 P IFF N
0x45359c…453730 Dummy {f00=0x0158, f01=0x0190, f02=» NRLECB=12 0 P DATA Q2LEC1+144 1 P IFF NRLECB=13 1 * P DATA Q2LEC1+156 1 @ P IFF NRLECB=14 1 X P DATA Q2LEC1+168 1 n P IFF NRLECB=15 1 P XIF 1 P IFT LINE2=1 1 PQ2LEFI EQU * END OF BLOCK 1 P* 1 H P* IN THIS AREA ALL
0x453730…4538c4 Dummy {f00=0x0158, f01=0x0190, f02=» P RES NRLECB WORD 2 2 P RES NRLECB WORD 3 2 P RES NRLECB WORD 4 2 8 P RES NRLECB WORD 5 2 R P* 2 l P XIF 2 v P IFT LINE3=1 2 P EJECT 2 P***** FIRST PART ***** 2 P* 2 P DATA 'PARTA3' 2 PPARTA3 EQU
0x4538c4…453a58 Dummy {f00=0x0158, f01=0x0190, f02=»HANNEL PARAMETER 2 P DATA /8000 STATUS 3 P DATA 0 ECB-ADDRESS 3 2 P DATA 0 ORDER 3 N * P DATA DRDC25 POINTER TO ADDRESS BLOCK 3 d P DATA 0 TTAB-ADDRESS 3 & P DATA 0 WAIT/ACTIVATION INDICATOR 3 P DATA 0 TERMINAL QUEUE 3 P DATA 0 3 P D
0x453a58…453bec Dummy {f00=0x0158, f01=0x0190, f02=» D P* THIS WORD WILL CONTAIN THE FOLLOWING VARIABLES 4 4 P* BIT 0 = IN.FRMR/IN.CMDR 4 L * P* 1 = IN.UA 4 * P* 2 = IN.DM 4 4 P* 3 = IN.SABM
0x453bec…453d80 Dummy {f00=0x0158, f01=0x0190, f02=» 6 = IN.REJ 4 x * P* 7 = IN.F 5 , P* 8 = IN.TRI 5 F , P* 9 = IN.ACK 5 v * P* 10 = IN.P 5 0 P* 11 = ** SPARE ** 5 0 P
0x453d80…453f14 (1, 1247) Dummy {f00=0x0159, f01=0x018e, f02=» ** SPARE ** 5 p 0 P* 15 = ** SPARE ** 6 P* 6 H P DATA 0 6 R P* 6 n " P* OUTSTANDING P-BIT INDICATOR 6 x P DATA 0 6 P* 6 P* CONNECTION STATE VARIABLE 6 P DATA 0 6 P* 6 P* TIME
0x453f14…4540a8 Dummy {f00=0x0159, f01=0x0190, f02=» P DATA 0 7 P* 7 P* REMOTE FREE INDICATION 7 P DATA 0 7 > P* 7 Z " P* NEW N(R) RECEIVED INDICATOR 7 d P DATA 0 7 P* 7 P* SEND STATE VARIABLE V(S) 7 P DATA 0 7 P* 7 " P* RECEIVE STATE
0x4540a8…45423c Dummy {f00=0x0159, f01=0x0190, f02=» UPDATED TOGETHER WITH V(S) 7 p P* 8 * " P* LAST VALUE OF N(R) RECEIVED 8 4 > P DATA 0 FROM OPPOSITE SIDE 8 Z P* 8 " P* NUMBER OF FRAMES TO BE SEND 8 P DATA 0 8 P* 8 , P* NUMBER OF ACKNOWLEDG
0x45423c…4543d0 Dummy {f00=0x0159, f01=0x018e, f02=» 0 8 " P DATA SYADRS RESPONSE ADDRESS 9 P DATA SYADCM COMMAND ADDRESS 9 2 P* FRAME TYPE IDENTIFIER 9 V P DATA 0 9 v P* ILLEGAL I-FIELD INDICATION 9 P DATA 0 9 P* CF-STACK AREA 9 P DATA STCK3A 9 P* SAVE AREA FOR REGISTERS 9 " P
0x4543d0…454564 Dummy {f00=0x0159, f01=0x0190, f02=» P DATA 0 : P DATA 0 : P DATA 0 : $ * P* SAVE AREA FOR REGISTERS IN RECEIVER : 4 P DATA 0 : b P DATA 0 : r 6 P DATA 0 ADDRESS AND CONTROL FIELD FOR TRANSMITTER : * P DATA 0 ADDITIONAL INFO FOR CMDR FRAME : P DATA 0 : P* : P EJE
0x454564…4546f8 Dummy {f00=0x0159, f01=0x0190, f02=»Q3AC : P DATA Q3CO ; 8 PQ3SCAD EQU *-PARTA3 ENTRY IN TABLE FOR OUTPUT QUEUES ; 8 P DATA Q3SC ADDRESS OF TEMPORARY RETRANSMISSION QUEUE ; Z P DATA Q3LE ; P* ; P* ADDRESS FIRST LINE ECB ; P DATA Q3LEC1 *****TEM****** ; P* ; P EJECT ;
0x4546f8…45488c Dummy {f00=0x0159, f01=0x0190, f02=»0 RECEIVED FRAME ; ~ P DATA DW2503 DWT ADDRESS < , P DATA 0 < L P DATA 0 < P DATA 0 < l P DATA -1 < | P DATA -1 < P DATA FC:LN3 < P* ADDRESS TIMER ECB < 6 P DATA TIMEC3 THIS ECB MUST BE DEFINED FOR ANY LINE < P D
0x45488c…454a20 Dummy {f00=0x0159, f01=0x0190, f02=» IFT TRACE=1 < . P DATA CURTR3 CURRENT TRACE BUFFER POINTER = P DATA TRAST3 = F P DATA TREND3 = Z P XIF = n P IFT LINE3+LOG=2 = z , P DATA CURLG3 CURRENT LOG BUFFER POINTER = P DATA LOGST3 = P DATA LGEND3 = P XIF = P IFT LINE3+STAT=2
0x454a20…454bb4 (1, 1248) Dummy {f00=0x0159, f01=0x0190, f02=» EJECT = P* > P RES 10 CALL FUNCTION STACK > PSTCK3A EQU *-2 > < P* > R , P RES 3 CALL FUNC STACK FOR INTERR. REQ. > PSTCK3B EQU *-2 > P* > PTIMEC3 EQU * > P DATA FC:LN3 TIMER ECB > P DATA 0,0,0,0,ORTIL1 > P* > PSAVB
0x454bb4…454d48 Dummy {f00=0x0159, f01=0x0190, f02=» PTREND3 EQU * ? P XIF ? P* ? $ P IFT LINE3+LOG=2 ? . PCURLG3 EQU * ? F PLOGST3 EQU * ? Z P RES 50 ? n PLGEND3 EQU * ? ~ P XIF ? P* ? P IFT LINE3+STAT=2 ? PSTAST3 EQU * ? $ P RORG *+STALNG STATISTICAL AREA ? PSTEND3 EQU
0x454d48…454edc Dummy {f00=0x0159, f01=0x0190, f02=» EVENTS ARE READY ? P* @ P* @ $ PQ3ER EQU * START OF QUEUE @ . 0 PQ3ERMI DATA Q3ERSA MINIMUM VALUE OF POINTER @ P 0 PQ3ERMA DATA Q3ERFI MAXIMUM VALUE OF POINTER @ , PQ3ERNF DATA 0 NUMBER OF QUEUED ELEMENTS @ 6 PQ3ERNN DATA Q3ERFI-Q3ERSA NUMBER
0x454edc…455070 Dummy {f00=0x0159, f01=0x0190, f02=»NRTR+1 RESERVE ALLOWED NUMBER @ | PQ3ERFI EQU * END OF BLOCK A & P* A H P* A R P* THE INPUT REQUEST QUEUE A P* A ~ P* A PQ3IR EQU * START OF QUEUE A 0 PQ3IRMI DATA Q3IRSA MINIMUM VALUE OF POINTER A 0 PQ3IRMA DATA Q3IRFI MAXIMUM VALUE
0x455070…455204 Dummy {f00=0x0159, f01=0x0190, f02=»A Q3IRSA INSERTION POINTER A * PQ3IREP DATA Q3IRSA EXTRACTION POINTER B " , PQ3IRSA RES SYNRRC RESERVE ALLOWED NUMBER B P PQ3IRFI EQU * END OF BLOCK B P* B P* B P* THE ACKNOWLEDGE QUEUE B P* B P* B PQ3AC EQU * START OF QUEUE B
0x455204…455398 Dummy {f00=0x0159, f01=0x0190, f02=»ED ELEMENTS B t 6 PQ3ACNN DATA Q3ACFI-Q3ACSA NUMBER OF FREE POSITIONS C ( PQ3ACIP DATA Q3ACSA INSERTION POINTER C N * PQ3ACEP DATA Q3ACSA EXTRACTION POINTER C z , PQ3ACSA RES SYTRWN RESERVE ALLOWED NUMBER C PQ3ACFI EQU * END OF BLOCK C P* C P* C
0x455398…45552c Dummy {f00=0x0159, f01=0x0190, f02=»Q3SCMA DATA Q3SCFI MAXIMUM VALUE OF POINTER C , PQ3SCNF DATA 0 NUMBER OF QUEUED ELEMENTS D 4 6 PQ3SCNN DATA Q3SCFI-Q3SCSA NUMBER OF FREE POSITIONS D d ( PQ3SCIP DATA Q3SCSA INSERTION POINTER D * PQ3SCEP DATA Q3SCSA EXTRACTION POINTER D , PQ3SCSA RES SYNRT
0x45552c…4556c0 Dummy {f00=0x0159, f01=0x018e, f02=»* D PQ3CO EQU * START OF QUEUE E 0 PQ3COMI DATA Q3COSA MINIMUM VALUE OF POINTER E , 0 PQ3COMA DATA Q3COFI MAXIMUM VALUE OF POINTER E ` , PQ3CONF DATA 0 NUMBER OF QUEUED ELEMENTS E 6 PQ3CONN DATA Q3COFI-Q3COSA NUMBER OF FREE POSITIONS E ( PQ3COIP DAT
0x4556c0…455854 (1, 1249) Dummy {f00=0x0159, f01=0x0190, f02=» PQ3COFI EQU * END OF BLOCK F P* F & P* F 0 P* THE QUEUE OF LINE ECBS F : P* F Z P* F d PQ3LE EQU * START OF QUEUE F n 0 PQ3LEMI DATA Q3LESA MINIMUM VALUE OF POINTER F 0 PQ3LEMA DATA Q3LEFI MAXIMUM VALUE OF POINTER F 8 PQ3LENF DATA Q3LE
0x455854…4559e8 Dummy {f00=0x0159, f01=0x0190, f02=»LEEP DATA Q3LESA EXTRACTION POINTER F PQ3LESA EQU * G , * P***** MAXIMUM 12 LINE ECB'S RESERVED G @ P* G n P DATA Q3LEC1 G x P DATA Q3LEC1+12 G P DATA Q3LEC1+24 G P IFF NRLECB=3 G P DATA Q3LEC1+36 G P IFF NRLECB=4 G P DATA Q3
0x4559e8…455b7c Dummy {f00=0x0159, f01=0x0190, f02=»Q3LEC1+84 G P IFF NRLECB=8 H P DATA Q3LEC1+96 H ( P IFF NRLECB=9 H @ P DATA Q3LEC1+108 H V P IFF NRLECB=10 H n P DATA Q3LEC1+120 H P IFF NRLECB=11 H P DATA Q3LEC1+132 H P IFF NRLECB=12 H P DATA Q3LEC1+144 H P IFF NRLECB=13 H
0x455b7c…455d10 Dummy {f00=0x0159, f01=0x0190, f02=» H v PQ3LEFI EQU * END OF BLOCK I P* I * H P* IN THIS AREA ALL THE LINE ECB'S EXCEPT FOR THE TIMER ARE RESERVED I 4 P* I PQ3LEC1 EQU * I P RES NRLECB WORD 0 I P RES NRLECB WORD 1 I P RES NRLECB WORD 2 I P RES NRLECB WORD 3 I P R
0x455d10…455ea4 Dummy {f00=0x0159, f01=0x0190, f02=» FIRST PART ***** I P* J P DATA 'PARTA4' J & PPARTA4 EQU * START OF TABLE J < P* J ` 6 P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE J j P* J PDW2504 EQU * J P DATA 'DC' CHANNEL PARAMETER J P DATA /8000 STATUS J P DATA 0
0x455ea4…456038 Dummy {f00=0x0159, f01=0x0190, f02=»ION INDICATOR J | P DATA 0 TERMINAL QUEUE K P DATA 0 K 4 P DATA 0 K D P DATA 0 K T P DATA 0 ECHO DEVICE K d ( P DATA PARTA4 PARAMETER TABLE ADDRESS K P* K P DATA 0 K D P* THIS WORD WILL CONTAIN THE FOLLOWING
0x456038…4561cc Dummy {f00=0x0159, f01=0x0190, f02=» 2 = IN.DM K 4 P* 3 = IN.SABM/IN.SARM L , P* 4 = IN.DISC L V , P* 5 = IN.RNR L , P* 6 = IN.REJ L * P* 7 = I
0x4561cc…456360 Dummy {f00=0x0159, f01=0x018e, f02=» = IN.P L t 0 P* 11 = ** SPARE ** M 0 P* 12 = ** SPARE ** M F 0 P* 13 = ** SPARE ** M z 0 P* 14 = ** SPARE ** M 0 P* 15 = ** SP
0x456360…4564f4 (1, 1250) Dummy {f00=0x0159, f01=0x0190, f02=» P* CONNECTION STATE VARIABLE N P DATA 0 N ( P* N 8 P* TIMER STATE N B P DATA 0 N X P* N t P* SINK STATE N ~ P DATA 0 N P* RECEIVER RESET INDICATION N P DATA 0 N P* N P* REMOTE FREE INDICATION N
0x4564f4…456688 Dummy {f00=0x0159, f01=0x0190, f02=»BLE V(S) N ~ P DATA 0 O P* O , " P* RECEIVE STATE VARIABLE V(R) O 6 P DATA 0 O P* O x ( P* MAXIMUM VALUE OF V(S) HAS REACHED O F P DATA 0 UPDATED TOGETHER WITH V(S) O P* O " P* LAST
0x456688…45681c Dummy {f00=0x0159, f01=0x0190, f02=»D O t P DATA 0 P P* P & , P* NUMBER OF ACKNOWLEDGES TO BE RECEIVED P 0 4 P DATA 0 RECEIVED P ` P* P P* NUMBER OF RETRIES P P DATA 0 P " P DATA SYADRS RESPONSE ADDRESS P P DATA SY
0x45681c…4569b0 Dummy {f00=0x0159, f01=0x0190, f02=»CK AREA P P DATA STCK4A Q P* SAVE AREA FOR REGISTERS Q $ " P RES 5 SAVE AREA FOR REGISTERS Q F , P* STACK BASE FOR INTERRUPTS DURING BUSY Q l P DATA STCK4B STACKBASE ENTRY Q P DATA 0 Q P DATA 0 Q P DATA 0 Q P DATA 0 Q * P* SAVE A
0x4569b0…456b44 Dummy {f00=0x0159, f01=0x0190, f02=»ADDITIONAL INFO FOR CMDR FRAME Q P DATA 0 R & P* R 6 P EJECT R @ P* R N 2 P* QUE ADDRESSES BELONGING TO ONE LIFE OF HDLC R X P* R P* R P DATA Q4ER R P DATA Q4IR R P DATA Q4AC R P DATA Q4CO R 8 PQ4SCAD EQU *-PARTA4 ENTRY IN T
0x456b44…456cd8 Dummy {f00=0x0159, f01=0x0190, f02=»NE ECB R ~ P DATA Q4LEC1 *****TEM****** S P* S 2 P EJECT S < " P***** SECOND PART ***** S J P* S p P* S z 2 P* WILL CONTAIN THE N(R) OF THE RECEIVED FRAME S : P DATA 0 RECEIVED FRAME S P DATA DW2504 DWT
0x456cd8…456e6c Dummy {f00=0x0159, f01=0x0190, f02=» S | 6 P DATA TIMEC4 THIS ECB MUST BE DEFINED FOR ANY LINE T P DATA 0 T B P DATA 0 T R P DATA 0 T b P DATA 0 T r P DATA 0 T P DATA 0 T P* INIT POINTER T P DATA SAVBF4 T P IFT TRACE=1 T . P DATA CURTR4 CURRENT TRACE BUFFER POINTE
0x456e6c…457000 Dummy {f00=0x0159, f01=0x0190, f02=»ATA LOGST4 T P DATA LGEND4 U P XIF U & P IFT LINE4+STAT=2 U 2 ( P DATA STAST4 START STATISTICAL AREA U L P DATA STEND4 U x P XIF U P IFT LINE4=1 U P DATA -100 U P EJECT U P* U P RES 10 CALL FUNCTION STACK U P
0x457000…457194 (1, 1251) Dummy {f00=0x015a, f01=0x018e, f02=»A FC:LN4 TIMER ECB U P DATA 0,0,0,0,ORTIL1 V P* V 6 PSAVBF4 EQU * V @ P RES SYUBNR V T P* V h P IFT LINE4+TRACE=2 V r PCURTR4 EQU * V PTRAST4 EQU * V P RES 100 TRACE AREA V PTREND4 EQU * V P XIF V P* V P IFT LINE4+LOG
0x457194…457328 Dummy {f00=0x015a, f01=0x0190, f02=» V | PSTAST4 EQU * W P RORG *+STALNG W PSTEND4 EQU * W 2 P XIF W F P IFT LINE4=1 W R P EJECT W f P* W t P* W ~ 4 P* THIS QUE KEEPS THE ELEMENTS FROM WHICH THE W P* EVENTS ARE READY W P* W P* W PQ4ER EQU * START OF QU
0x457328…4574bc Dummy {f00=0x015a, f01=0x0190, f02=» OF QUEUED ELEMENTS W | 6 PQ4ERNN DATA Q4ERFI-Q4ERSA NUMBER OF FREE POSITIONS X ( PQ4ERIP DATA Q4ERSA INSERTION POINTER X V * PQ4EREP DATA Q4ERSA EXTRACTION POINTER X 6 PQ4ERSA RES SYNRRC+SYNRTR+1 RESERVE ALLOWED NUMBER X PQ4ERFI EQU * END OF BLOCK X
0x4574bc…457650 Dummy {f00=0x015a, f01=0x0190, f02=»UM VALUE OF POINTER X x 0 PQ4IRMA DATA Q4IRFI MAXIMUM VALUE OF POINTER Y , PQ4IRNF DATA 0 NUMBER OF QUEUED ELEMENTS Y P 6 PQ4IRNN DATA Q4IRFI-Q4IRSA NUMBER OF FREE POSITIONS Y ( PQ4IRIP DATA Q4IRSA INSERTION POINTER Y * PQ4IREP DATA Q4IRSA EXTRACTION POIN
0x457650…4577e4 Dummy {f00=0x015a, f01=0x0190, f02=»E Y z P* Z P* Z PQ4AC EQU * START OF QUEUE Z 0 PQ4ACMI DATA Q4ACSA MINIMUM VALUE OF POINTER Z @ 0 PQ4ACMA DATA Q4ACFI MAXIMUM VALUE OF POINTER Z t , PQ4ACNF DATA 0 NUMBER OF QUEUED ELEMENTS Z 6 PQ4ACNN DATA Q4ACFI-Q4ACSA NUMBER OF FREE POSITIO
0x4577e4…457978 Dummy {f00=0x015a, f01=0x0190, f02=»MBER Z l PQ4ACFI EQU * END OF BLOCK [ P* [ . P* [ 8 P* THE SEND QUEUE [ B P* [ Z P* [ d PQ4SC EQU * START OF QUEUE [ n 0 PQ4SCMI DATA Q4SCSA MINIMUM VALUE OF POINTER [ 0 PQ4SCMA DATA Q4SCFI MAXIMUM VALUE OF POINTER [ , PQ4SCNF DATA 0 NU
0x457978…457b0c Dummy {f00=0x015a, f01=0x0190, f02=»SCEP DATA Q4SCSA EXTRACTION POINTER [ , PQ4SCSA RES SYNRTR RESERVE ALLOWED NUMBER , PQ4SCFI EQU * END OF BLOCK P* ~ P* $ P* THE INTERRUPT COMPLETION QUEUE P* P* PQ4CO EQU * START OF QUEUE 0 PQ4COMI DATA Q4COSA MINIM
0x457b0c…457ca0 Dummy {f00=0x015a, f01=0x0190, f02=»ATA Q4COFI-Q4COSA NUMBER OF FREE POSITIONS ( PQ4COIP DATA Q4COSA INSERTION POINTER ] 2 * PQ4COEP DATA Q4COSA EXTRACTION POINTER ] ^ 6 PQ4COSA RES SYNRRC+SYUBNR+4 RESERVE ALLOWED NUMBER ] PQ4COFI EQU * END OF BLOCK ] P* ] P* ] P* THE QUEUE
0x457ca0…457e34 (1, 1252) Dummy {f00=0x015a, f01=0x0190, f02=»A Q4LEFI MAXIMUM VALUE OF POINTER ] 8 PQ4LENF DATA Q4LEFI-Q4LESA NUMBER OF QUEUED ELEMENTS ^ * * PQ4LENN DATA 0 NUMBER OF FREE POSITIONS ^ f ( PQ4LEIP DATA Q4LESA INSERTION POINTER ^ * PQ4LEEP DATA Q4LESA EXTRACTION POINTER ^ PQ4LESA EQU * ^ * P*****
0x457e34…457fc8 Dummy {f00=0x015a, f01=0x0190, f02=» P DATA Q4LEC1+36 _ P IFF NRLECB=4 _ P DATA Q4LEC1+48 _ 2 P IFF NRLECB=5 _ J P DATA Q4LEC1+60 _ ` P IFF NRLECB=6 _ x P DATA Q4LEC1+72 _ P IFF NRLECB=7 _ P DATA Q4LEC1+84 _ P IFF NRLECB=8 _ P DATA Q4LEC1+96 _ P IFF N
0x457fc8…45815c Dummy {f00=0x015a, f01=0x0190, f02=» NRLECB=12 _ P DATA Q4LEC1+144 ` P IFF NRLECB=13 ` * P DATA Q4LEC1+156 ` @ P IFF NRLECB=14 ` X P DATA Q4LEC1+168 ` n P IFF NRLECB=15 ` P XIF ` P IFT LINE4=1 ` PQ4LEFI EQU * END OF BLOCK ` P* ` H P* IN THIS AREA ALL
0x45815c…4582f0 Dummy {f00=0x015a, f01=0x0190, f02=» P RES NRLECB WORD 2 a P RES NRLECB WORD 3 a P RES NRLECB WORD 4 a 8 P RES NRLECB WORD 5 a R P* a l P* a v P XIF a P IFT LINE4=0 a P* DUMMY DWT FOR LINE 4 a PDW2504 EQU * a P XIF a P IFT
0x4582f0…458484 Dummy {f00=0x015a, f01=0x0190, f02=»DUMMY DWT FOR LINE 2 a PDW2502 EQU * b P XIF b 8 P EJECT b L P IFT IOPPC=0 b Z P*** b n 0 P** EQUIVALENCES FOR ALARM RECEIVE DATA b z P*** b P IFT IOPCON=1 b PALARM EQU /C b P XIF b
0x458484…458618 Dummy {f00=0x015a, f01=0x0190, f02=»/C RECEIVE ALARM DATA FOR IOP b P XIF c & P EJECT c 2 P*** c H $ P*** EQUIVALENCES FOR LINE 1 c T P*** c | PNRSBUF EQU SYUBNR-1 c P*** c : P*** MAX.NUMBER OF ELEMENTS IN INPUT-REQUEST-QUEUE c $ PNREQ01 EQU SY
0x458618…4587ac Dummy {f00=0x015a, f01=0x018e, f02=»UPT HANDLER c x PIHLCI1 EQU * d PIH2501 EQU * d 0 ( P ST P,INTSAV SAVE INTERRUPT ADDRESS d L > P CF A15,SAVE8 SAVE A1-A8 ON CF-STACK d x P LDKL A1,LCT1 d J P ABL DRHLRC BRANCH TO
0x4587ac…458940 Dummy {f00=0x015a, f01=0x0190, f02=» d h PIHLCU1 EQU * e PIH2502 EQU * e $ ( P ST P,INTSAV SAVE INTERRUPT ADDRESS e @ > P CF A15,SAVE8 SAVE A1-A8 ON CF-STACK e l P LDKL A1,LCT1B e 2 P ABL DRHLTR BRANCH TO GEN.PART OF INT.HANDLER e P
0x458940…458ad4 (1, 1253) Dummy {f00=0x015a, f01=0x0190, f02=»R e n PIH2503 EQU * f ( P ST P,INTSAV SAVE INTERRUPT ADDRESS f & P CF A15,SAVE8 f R P LDKL A1,LCT2 f v P ABL DRHLRC f P*** f * P*** TRANSMITTER INTERRUPT HANDLER f PIH2504 EQU * f
0x458ad4…458c68 Dummy {f00=0x015a, f01=0x0190, f02=» DRHLTR f P*** g P IFF SYNRLN=2 g P*** g 2 * P*** INTERRUPT HANDLERS FOR LINE 3 g > P** g l ( P*** RECEIVER INTERRUPT HANDLER g v PIH2505 EQU * g ( P ST P,INTSAV SAVE INTERRUPT ADDRESS g P CF A15,SAVE8 g
0x458c68…458dfc Dummy {f00=0x015a, f01=0x0190, f02=» EQU * g ( P ST P,INTSAV SAVE INTERRUPT ADDRESS h P CF A15,SAVE8 h B P LDKL A1,LCT3B h f P ABL DRHLTR h P*** h P IFF SYNRLN=3 h P*** h * P*** INTERRUPT HANDLERS FOR LINE 4
0x458dfc…458f90 Dummy {f00=0x015a, f01=0x0190, f02=» CF A15,SAVE8 h P LDKL A1,LCT4 i $ P ABL DRHLRC i F P*** i f * P*** TRANSMITTER INTERRUPT HANDLER i r PIH2508 EQU * i ( P ST P,INTSAV SAVE INTERRUPT ADDRESS i P CF A15,SAVE8 i
0x458f90…459124 Dummy {f00=0x015a, f01=0x018e, f02=»NOT USED LINES i n P IFF SYNRLN=4 j * P* DUMMY INTERRUPT ADDRESSES FOR LINE 4 j , PIH2507 EQU * j Z PIH2508 EQU * j n P IFF SYNRLN=3 j * P* DUMMY INTERRUPT ADDRESSES FOR LINE 3 j PIH2505 EQU * j PIH2506 EQU * j P IFF SYNRLN=2 j * P* DU
0x459124…4592b8 Dummy {f00=0x015a, f01=0x0190, f02=» j P*** k & P** EQUIVALENCES FOR DRIVER STATUS k P** k > 6 PDRHALT EQU 0 HALT BEFORE DISCONNECT BEFORE CONNECT k H 4 PDRWFDC EQU 1 WAIT FOR DISCONNECT BEFORE CONNECT k ( PDRWFCR EQU 2 WAIT FOR CONNECT READY k PDRCONE EQU 3 CONNECT k 2 PDRWFDR
0x4592b8…45944c Dummy {f00=0x015a, f01=0x0190, f02=» P*** l 0 P*** EQUIVALENCES FOR SENDER/RECEIVER STATUS l P*** l D PDRACT EQU 1 ACTIVE l P PDRINAC EQU 2 INACTIVE l j P IFT IOPPC=1 l P*** l ( P*** EQUIVALENCES FOR IOP-INDICATION l P*** l 0 PMIOP EQU /40 MASK FOR IOP IN I/O-INSTRUC
0x45944c…4595e0 Dummy {f00=0x015a, f01=0x0190, f02=»NNEC EQU 2 CONNECT-COMMAND l $ PDISCON EQU 1 DISCONNECT COMMAND m " , PWRITIO EQU /A TRANSMIT ON I/O-PROCESSOR m J 0 PWRITPC EQU 2 TRANSMIT ON PROGRAMMED-CHANNEL m z P*** m 0 P*** EQUIVALENCES FOR I/O-INSTRUCTION WITH A2 m P*** m $ PCIOINS EQU /42
0x4595e0…459774 (1, 1254) Dummy {f00=0x015a, f01=0x0190, f02=»ION m v $ PSSTINS EQU /4AC0 SST-INSTRUCTION n $ POTRINS EQU /4200 OTR-INSTRUCTION n 4 $ POTR1 EQU /4240 OTR1-INSTRUCTION n $ PABORT EQU 1 ABORT-FLAG FOR OTR1 n $ PINRINS EQU /4A00 INR-INSTRUCTION n P*** n , P*** DISPLACEMENTS ON INPUT REQUEST-QUEUE
0x459774…459908 Dummy {f00=0x015a, f01=0x0190, f02=»E1 EQU QEXT+2 1ST ELEMENT IN QUEUE n P*** o * & P*** EQUIVALENCES FOR RETURN-CODES o 6 P*** o ` " PUNKNFC EQU 1 UNKNOWN FILE CODE o l & PCIONAC EQU 2 REQUEST NOT ACCEPTED o > PUNKNDV EQU 3 UNKNOWN DEVICE ADDRESS o $ PWRODST EQU
0x459908…459a9c Dummy {f00=0x015a, f01=0x0190, f02=»N TO IDREQ o n P*** p PTYPECO EQU 1 TYPE=CONNECT p & PTYPEIN EQU 2 TYPE=INPUT FROM LINE p @ $ PTYPEOU EQU 3 TYPE=OUTPUT TO LINE p j PTYPEDI EQU 4 TYPE=DISCONNECT p 2 PTYPEST EQU 5 TYPE = STOP p P*** p P*** EQUIVALENCES
0x459a9c…459c30 Dummy {f00=0x015a, f01=0x0190, f02=»RD p ^ : PNOTOPE EQU 1 MODEM NOT OPERABLE q @ PIDLABO EQU /3000 IDLE AND ABORT ONE'S BIT q H P*** q P*** DISPLACEMENTS FOR LCT q P*** q PDRSTAT EQU 0 DRIVER STATUS q 8 PDRRSTA EQU DRSTAT+2 RECEIVER-STA
0x459c30…459dc4 Dummy {f00=0x015a, f01=0x0190, f02=»+DEV.ADDR FOR ASSIGNED FC q n P XIF r " P IFT IOPPC=0 r . : PDEVADD EQU DRRSTA+2 DEVICEADDR.OF UNIT ASSIGNED TO FC r B P XIF r 2 PLIECB EQU DEVADD+2 ADDRESS OF LIECB OF REQUEST r ( PBUFADD EQU LIECB+2 ADDRESS OF BUFFER r < PREQLEN EQU BUFADD+2 REQUES
0x459dc4…459f58 Dummy {f00=0x015a, f01=0x0190, f02=»E EQU LENGTH+2 ADDRESS OF INPUT-REQUEST-QUEUE r F PRECDAT EQU QUEUE+2 CIO START (ALARM) RECEIVE DATA s 6 < PRETRY EQU RECDAT+2 RETRY COUNTER FOR CIO-START RECEIVER s J PFILCOD EQU RETRY+2 FC ASSIGNED TO RECEIVER/TRANSM.UNIT s
0x459f58…45a0ec Dummy {f00=0x015a, f01=0x0190, f02=» P EJECT t P*** RECEIVER LCT t PLCT1 EQU * t 8 @ P RES 1 DRIVER STATUS OF RECEIVER t T 6 P RES 1 RECEIVER STATUS t J P DATA REDV01 STANDARD DEVICEADDR
0x45a0ec…45a280 Dummy {f00=0x015a, f01=0x0190, f02=»ER t Z J P RES 1 REQUESTED LENGTH IN WORDS(VARIABLE) u H P RES 1 REQUESTED LENGTH IN WORDS (FIXED) u X F P DATA QUEU01 ADDRESS OF INPUT-REQUEST-QUEUE u @ P DATA ALARM
0x45a280…45a414 (1, 1255) Dummy {f00=0x015b, f01=0x0190, f02=» RETURN ADDRESS TO PROTOCOL u v P*** TRANSMITTER LCT v , PLCT1B EQU * v L D P RES 1 DRIVER STATUS OF TRANSMITTER v h : P RES 1 TRANSMITTER STATUS v J P DATA SEDV01
0x45a414…45a5a8 Dummy {f00=0x015b, f01=0x0190, f02=» ADDRESS OD I/O-BUFFER v v J P RES 1 REQUESTED LENGTH IN WORDS(VARIABLE) w & H P RES 1 REQUESTED LENGTH IN WORDS (FIXED) w t P*** w P IFF SYNRLN=1 w P*** w P*** LCT'S
0x45a5a8…45a73c Dummy {f00=0x015b, f01=0x0190, f02=»REDV02 w ~ P RES 4 x P DATA QUEU02 x * P DATA ALARM x J P RES 2 x j P DATA IDREQ x P*** x P*** TRANSMITTER LCT x PLCT2B EQU * x P RES 2 x P
0x45a73c…45a8d0 Dummy {f00=0x015b, f01=0x0190, f02=»E 3 x z P*** y P*** RECEIVER LCT y PLCT3 EQU * y 6 P RES 2 y R P DATA REDV03 y n P RES 4 y P DATA QUEU03 y P DATA ALARM y P RES 2 y P
0x45a8d0…45aa64 Dummy {f00=0x015b, f01=0x0190, f02=» DATA SEDV03 y P RES 4 z P*** z 4 P IFF SYNRLN=3 z @ P*** z b P*** LCT'S FOR LINE 4 z n P*** z P*** RECEIVER LCT z PLCT4 EQU * z P RES 2 z P DATA REDV
0x45aa64…45abf8 Dummy {f00=0x015b, f01=0x0190, f02=» DATA IDREQ z P*** { P*** TRANSMITTER LCT { & PLCT4B EQU * { F P RES 2 { ` P DATA SEDV04 { | P RES 4 { P XIF { P EJECT { PLCTTAB EQU * { D P*** T
0x45abf8…45ad8c Dummy {f00=0x015b, f01=0x0190, f02=» DATA LCT1 { P IFF SYNRLN=1 | P DATA LCT2 | > P IFF SYNRLN=2 | P DATA LCT3 | ~ P IFF SYNRLN=3 | P DATA LCT4 | P XIF | P*** | PQUEU01 EQU
0x45ad8c…45af20 Dummy {f00=0x015b, f01=0x0190, f02=»R | ` 6 P RES 1 EXTRACT-POINTER } 8 P RES NREQ01 ELEMENT-SAVE AREA } D P IFF SYNRLN=1 } PQUEU02 EQU * } $ P DATA NREQ01+NREQ01 } P RES 2 } P RES
0x45af20…45b0b4 (1, 1256) Dummy {f00=0x015b, f01=0x0190, f02=» P RES NREQ01 ~ P IFF SYNRLN=3 ~ $ PQUEU04 EQU * ~ F $ P DATA NREQ01+NREQ01 ~ Z P RES 2 ~ P RES NREQ01 ~ P XIF ~ P EJECT ~ P*** ~ J P*** SUBROUTINE
0x45b0b4…45b248 Dummy {f00=0x015b, f01=0x0190, f02=» ~ f 0 P*** A7 = LOGICAL FILECODE OF LINE . P*** ON EXIT : A1, A2 AND A3 ARE DESTROYED < P*** n PINITIO EQU * z B P LD A2,LCTTAB,A2 A2:=ADDRESS OF RECEIVER LCT 2 P*** SET LOGICAL FILECODE IN RECEIVER LC
0x45b248…45b3dc Dummy {f00=0x015b, f01=0x0190, f02=» A5 P EJECT P*** P P*************************************************************************** * P*** CONNECT MODEM FUNCTION ~ P P*************************************************************************** & P*** ON ENTRY:A8:=ADD
0x45b3dc…45b570 Dummy {f00=0x015b, f01=0x0190, f02=»ILECODE GIVEN IN LIECB p P LDK A2,TYPECO 0 P LDKL A6,CON100 A6:=RETURNADDR.IF LCT FOUND B P RF INP050 v PCON100 EQU * 4 P*** LCT FOUND WITH THE SAME FILECODE AS IN LIECB P IFT IOPPC=1 & P*** SET CHANNEL INDICATION IN LC
0x45b570…45b704 Dummy {f00=0x015b, f01=0x0190, f02=»MIOP A3 := IOP-INDICATION P SC A3,DEVADD,A1 " P SC A3,DEVADD+LCTEND,A1 : PCON120 EQU * Z P XIF n @ P*** GENERATE CIO HALT TO BE SURE OF RECEIVER-HARDWARE-STATUS z P INH P LDK A2,DRHALT 2 P ST A2,DRSTAT,A1 SET DRIVERSTATUS OF REC
0x45b704…45b898 Dummy {f00=0x015b, f01=0x018e, f02=» OF CORRESPONDING TRANSMITTER-LCT z 0 P ST A2,DRSTAT,A4 SET DRIVERSTATUS OF SENDER * P LD A7,DEVADD,A1 ^ P LDR A3,A7 v P ORKL A3,CIOHLT P EXR A3 P IFT IOLOG=1 P CF A15,LGA3A2 P XIF P RF(NA) RTNE21 P LD A3,DEVAD
0x45b898…45ba2c Dummy {f00=0x015b, f01=0x0190, f02=» P LDR A3,A7 P ORKL A3,SSTINS P EXR A3 . P IFT IOLOG=1 > " P CF A15,LGA3A2 LOGG IO-INSTR. R P XIF x P RF(NA) RTNE21 P LDK A2,DRINAC 2 P ST A2,DRRSTA,A1 SET RECEIVER STATUS INACTIVE $ P CM RETRY,A1 RESET RETRY COUNTER
0x45ba2c…45bbc0 Dummy {f00=0x015b, f01=0x0190, f02=»UFFER j P LDR A3,A2 6 P ADK A3,QUELE1 A3:=ADDRESS OF 1ST ELEMENT IN QUEUE 4 P ST A3,2,A2 SET INSERT-POINTER TO FIRST ELEMENT Z > P ST A3,4,A2 SET EXTRACT POINTER TO FIRST ELEMENT IN QUEUE ( P*** CLEAR ELEMENTS IN REQUEST-QUEUE 2 P LDR* A6
0x45bbc0…45bd54 (1, 1257) Dummy {f00=0x015b, f01=0x0190, f02=» P*** GENERATE CIO DISCONNECT P LDK A2,DISCON ( 2 P LDR A3,A7 A3:=DEVICEADDRESS OF RECEIVER-UNIT > P ORKL A3,CIOINS t " P EXR A3 CIO DISCONNECT WITH A2 P IFT IOLOG=1 P CF A15,LGA3A2 P XIF * P RF(NA) RTNE21 DISCONNECT NOT AC
0x45bd54…45bee8 Dummy {f00=0x015b, f01=0x0190, f02=»A8,LIECB,A1 P RF RTNOK2 P EJECT & P P*************************************************************************** 4 P*** INPUT FROM LINE P P*************************************************************************** & P*** ON ENTRY:A8:
0x45bee8…45c07c Dummy {f00=0x015b, f01=0x0190, f02=» WORD2=REQUESTED LENGTH IN CHARACTERS P*** 6 & P*** ON EXIT :A8:=ADDRESS OF LIECB B , P*** LIECB:WORD4=RETURN-CODE l P*** PDRINP EQU * P** : P*** SEARCH RECEIVER LCT WITH SAME FILECODE AS IN LIECB P
0x45c07c…45c210 Dummy {f00=0x015b, f01=0x0190, f02=»CT FOUND;A1=ADDRESS OF LCT PINP060 EQU * " P INH 6 ( P*** TEST IF DRIVER STATUS IS CONNECT B P LDK A3,DRCONE n P CW A3,DRSTAT,A1 , P RF(NE) RTNE31 DRIVER STATUS NOT CONNECT * P*** TEST IF RECEIVER STATUS IS ACTIVE P LDK A7,DRACT
0x45c210…45c3a4 Dummy {f00=0x015b, f01=0x0190, f02=»INPUT-QUEUE IS FULL ( P LD A3,QUEUE,A1 A3:=ADDRESS OF QUEUE & P LD A2,QINS,A3 A2:=INSERT-POINTER H > P CW A2,QEXT,A3 COMPARE INSERT-POINTER WITH EXTRACT POINTER r ( P RF(NE) INP200 INPUT-QUEUE NOT FULL ( P*** INSERT-POINTER =EXTRACT-POINTER
0x45c3a4…45c538 Dummy {f00=0x015b, f01=0x0190, f02=»DR* A7,A2 , P*** SET ADDRESS OF LIECB IN INPUT-QUEUE P LDKL A6,RTNOK B P ABL UPQUPO X P*** RECEIVER NOT ACTIVE l PINP400 EQU * . P*** SAVE REQUESTED LENGTH IN WORDS IN LCT , P LD A2,ECBRL,A8 A2:=LENGTH IN CHARACTERS & P LD A6
0x45c538…45c6cc Dummy {f00=0x015b, f01=0x0190, f02=» A2,1 & P RF(NN) INP450 A2:=LENGTH IN WORDS P*** LENGTH IS ODD 8 > P*** SAVE FIRST NOT SIGN.CHARACTER AND SAVE-INDICATION R P LDR A4,A2 P LCR A4,A3 " P ST A4,ECBPR,A8 P ANKL A2,/FFF
0x45c6cc…45c860 Dummy {f00=0x015b, f01=0x0190, f02=»P x P RF(Z) INP452 NO IOP P ADK A2,1 & PINP452 EQU * 8 P XIF L P IFT IOPPC=0 X P IFT IOPCON=1 l D P ADK A2,1 FOR READ LENGTH=WRITE LENGTH P XIF , P ST A2,LENGTH,A1 SAVE NR OF WO
0x45c860…45c9f4 (1, 1258) Dummy {f00=0x015b, f01=0x0190, f02=»A15,WERREA PINP454 EQU * P XIF & P IFT IOPPC=0 2 P IFT IOPCON=1 F 6 P************************************************** P*** FOR IOPROCESSOR ONLY! * P*** PREPARE WER1 AND WER2 INSTRUCTION P CF A15,WERREA .
0x45c9f4…45cb88 Dummy {f00=0x015b, f01=0x0190, f02=»DAT,A1 A2:=CIO START INPUT FLAG x P LD A3,DEVADD,A1 , P ORKL A3,CIOINS D $ P EXR A3 EXECUTE CIO START INPUT P IFT IOLOG=1 P CF A15,LGA3A2 P XIF PRTNE21 EQU * $ P RF(NA) RTNE22 CIO NOT ACCEPTED 0 P ST A8,LIECB,A1 SE
0x45cb88…45cd1c Dummy {f00=0x015b, f01=0x018e, f02=»A1 PRTNOK2 EQU * > P*** RETURN TO CALLER WITH RETURNCODE OK AND IN ENABLE-MODE P RF RTNOK1 ` P EJECT r P P*************************************************************************** P*** OUTPUT TO LINE P P**************************
0x45cd1c…45ceb0 Dummy {f00=0x015b, f01=0x018e, f02=» j . P*** WORD1=BUFFERADDRESS 0 P*** WORD2=REQUESTED LENGTH : P*** n & P*** ON EXIT :A8:=ADDRESS OF LIECB z , P*** LIECB:WORD4=RETURNCODE P*** PDROUT EQU * > P*** SEARCH SENDER LC
0x45ceb0…45d044 Dummy {f00=0x015b, f01=0x0190, f02=» POUT050 EQU * P RF STP050 , P*** SENDER LCT FOUND;A1:=ADDRESS OF LCT * POUT100 EQU * Z P INH n ( P*** TEST IF DRIVER STATUS IS CONNECT z P LDK A3,DRCONE P CW A3,DRSTAT,A1 PRTNE31 EQU * 0 P RF(NE) RTNE32 DRIVER STATUS IS
0x45d044…45d1d8 Dummy {f00=0x015b, f01=0x0190, f02=»ESTS ALLOWED n P*** AT THIS MOMENT P P*************************************************************************** 0 8 P*** DRIVER STATUS IS CONNECT;SENDER STATUS INACTIVE P P************************************************************************
0x45d1d8…45d36c Dummy {f00=0x015b, f01=0x0190, f02=»1 A2:=NUMBER OF WORDS TO OUTPUT P LDR A7,A2 ( , P RF(NN) OUT200 EVEN NUMBER OF CHARACTERS : P*** ODD NUMBER OF CHARACTERS j P ANKL A2,/FFF & P ADK A2,1 A2:=NUMBER OF WORDS + 1 POUT200 EQU * 0 P ST A2,REQLEN,A1 SAVE NUMBER OF WORDS
0x45d36c…45d500 Dummy {f00=0x015b, f01=0x0190, f02=»NNEL d P XIF P IFT IOPPC=0 P IFT IOPCON=1 4 . P****************************************** J P*** FOR IOPROCESSOR ONLY! | * P*** PREPARE WER1 AND WER2 INSTRUCTION P CF A15,WERWRI 2 P LDK A2,WRITIO A2:=WRITE
0x45d500…45d694 (1, 1259) Dummy {f00=0x015c, f01=0x0190, f02=» ANK A3,MIOP P RF(NZ) OUT002 IOP P LDK A2,WRITPC . P RF OUT004 D POUT002 EQU * V P CF A15,WERWRI j P LDK A2,WRITIO POUT004 EQU * P XIF > P*** TEST IF ODD NUMBER OF CHARACTERS HAS TO BE TRANSMITTED P LDR A7,A7
0x45d694…45d828 Dummy {f00=0x015c, f01=0x0190, f02=»A2,/800 ONLY ONE CHARACTER SIGNIFICANT IN P*** LAST WORD 2 POUT350 EQU * J P*** PREPARE CIO START OUTPUT ^ P LD A3,DEVADD,A1 P ORKL A3,CIOINS $ P EXR A3 EXECUTE CIO START OUTPUT P IFT IOLOG=1 P CF A15,LGA3A2 P XIF
0x45d828…45d9bc Dummy {f00=0x015c, f01=0x018e, f02=»IECB,A1 SET ADDRESS OF LIECB IN LCT . P ST A6,BUFADD,A1 SET BUFFER ADDRESS IN LCT , PRTNOK1 EQU * ^ > P*** RETURN TO CALLER WITH RETURNCODE OK AND IN ENABLE-MODE r P RF RTNOK P EJECT P P****************************************************
0x45d9bc…45db50 Dummy {f00=0x015c, f01=0x0190, f02=» B $ P*** ON ENTRY:A8=ADDRESS OF LIECB ( P*** LIECB:WORD0=FILECODE 0 P*** & P*** ON EXIT :A8:=ADDRESS OF LIECB h , P*** LIECB:WORD4=RETURNCODE P*** PDRSTOP EQU * : P*** SEARCH RECEIVER LCT WITH SAME FILE
0x45db50…45dce4 Dummy {f00=0x015c, f01=0x018e, f02=»SCALCT 0 P*** RECEIVER LCT FOUND;ADDRESS OF LCT IN A1 PSTP100 EQU * B P LDR A7,A1 V < P ADK A7,DRSTAT A7:=ADDRESS OF DRIVER-STATUS OF RECEIVER h ( P*** TEST IF DRIVER STATUS IS CONNECT P INH P LDK A4,DRCONE P CWR* A4,A7
0x45dce4…45de78 Dummy {f00=0x015c, f01=0x018e, f02=» h P LDK A6,DRACT P CW A6,DRRSTA,A1 P RF(E) STP150 6 * P*** SET DRIVER-STATUS OF RECEIVER STOP L P LDK A3,DRSTEX z P STR A3,A7 P RF STP300 PSTP150 EQU * P*** RECEIVER IS ACTIVE P LD A3,DEVADD,A1 P ORKL A3,C
0x45de78…45e00c Dummy {f00=0x015c, f01=0x0190, f02=» P*** FOR STOP PSTP300 EQU * P*** TEST IF SENDER IS ACTIVE . P LDK A7,LCTEND R < P ADR A7,A1 A7:=ADDRESS OF CORRESPONDING TRANSMITTER-LCT h P CW A6,DRSSTA,A7 P RF(E) STP350 ( P*** SET DRIVER-STATUS OF SENDER STOP P LDK A
0x45e00c…45e1a0 Dummy {f00=0x015c, f01=0x0190, f02=» P ORKL A3,OTR1 * P LDK A2,ABORT A2:=ABORT-FLAG FOR OTR1 $ P EXR A3 EXECUTE OTR1 INSTRUCTION L P IFT IOLOG=1 t P CF A15,LGA3A2 P XIF 0 P ST A4,DRSTAT,A7 SET DRIVER STATUS STOP WAIT P RF RTNOK P EJECT P P**********
0x45e1a0…45e334 (1, 1260) Dummy {f00=0x015c, f01=0x0190, f02=»***************************************** n & P*** ON ENTRY:A8:=ADDRESS OF LIECB 2 * P*** LIECB:WORD0=FILECODE P*** & P*** ON EXIT :A8:=ADDRESS OF LIECB , P*** LIECB:WORD4=RETURNCODE P*** PDRDISC EQU *
0x45e334…45e4c8 Dummy {f00=0x015c, f01=0x0190, f02=»SCALCT 0 P*** RECEIVER LCT FOUND;IN A1:=ADDRESS OF LCT PDIS100 EQU * B P INH V & P*** TEST IF DRIVER STATUS IS STOP b P LDK A3,DRSTEX P CW A3,DRSTAT,A1 2 P RF(NE) ERR030 WRONG DRIVER STATUS OF RECEIVER 0 P*** TEST IF DRIVER STATU
0x45e4c8…45e65c Dummy {f00=0x015c, f01=0x0190, f02=»NSTRUCTION x P LDK A2,DISCON P LD A3,DEVADD,A1 ( P ORKL A3,CIOINS @ " P EXR A3 EXECUTE CIO DISCONNECT X P IFT IOLOG=1 ~ P CF A15,LGA3A2 P XIF $ P RF(NA) ERR020 CIO NOT ACCEPTED : P*** SET DRIVERSTATUS WAIT FOR NORMAL DISCONN
0x45e65c…45e7f0 Dummy {f00=0x015c, f01=0x0190, f02=»TEND,A1 SET DRIVER STATUS OF SENDER PRTNOK EQU * , < P*** RETURN TO CALLER WITH RETURN CODE OK AND ENABLE-MODE @ , P*** SET RETURN-CODE OK; SET ENABLE-MODE P LDK A3,0 P RF RETURN P EJECT P*** P*** $ P*** RETURN TO
0x45e7f0…45e984 Dummy {f00=0x015c, f01=0x0190, f02=»DK A3,UNKNFC P RF RETURN P*** & P*** CIO NOT ACCEPTED 2 P*** N PERR020 EQU * Z , P*** TEST IF DEVICE ADDRESS UNKNOWN n P RF(O) ERR050 2 P*** SET IN LIECB-RETURN-CODE:CIO NOT ACCEPTED! P LDK A3,CIONAC
0x45e984…45eb18 Dummy {f00=0x015c, f01=0x0190, f02=»DRIVER STATUS l P LDK A3,WRODST P RF RETURN , P*** > , P*** INPUT-QUEUE IS FULL OR SENDER ACTIVE J P*** z PERR040 EQU * D P*** SET IN LIECB-RETURN-CODE: NO MORE INPUT OR OUTPUT ALLOWED AT . P*** THIS MOM
0x45eb18…45ecac Dummy {f00=0x015c, f01=0x0190, f02=»ECB-RETURNCODE : DEVICE ADDRESS UNKNOWN ~ P LDK A3,UNKNDV 0 P*** T P*** ` PRETURN EQU * l H P*** SET ERROR-RETURN-CODE INLIECB;SET ENB-MODE BEFORE RTN TO CALLER P ST A3,ECBRC,A8 P ENB P RTN A5 P EJECT
0x45ecac…45ee40 Dummy {f00=0x015c, f01=0x018e, f02=»EN ADDRESS: RECEIVER-LCT WANTED , P*** ODD ADDRESS : SENDER-LCT WANTED ( P*** A8:=LIECB-ADDRESS X * P*** A2:=TYPE OF REQUEST v P*** B P*** ON EXIT :A1:=ADDRESS OF LCT CONTAINING SAME FC AS IN LIECB P*** PSCALCT
0x45ee40…45efd4 (1, 1261) Dummy {f00=0x015c, f01=0x018e, f02=» P SUK A4,1 " P RB(N) ERR010 FILECODE UNKNOWN P ADK A2,2 @ " P LDR* A1,A2 A1:=ADDRESS OF LCT R * P LD A3,FILCOD,A1 A3:=FILECODE FROM LCT x P CC A3,1,A8 P RB(NE) SCA100 TRY NEXT LCT 0 P*** LCT FOUND WITH SAME FILECODE AS IN LIE
0x45efd4…45f168 Dummy {f00=0x015c, f01=0x0190, f02=» P D P*** 0 IF RECEIVER-LCT WANTED : P RF(Z) SCA200 RECEIVER LCT FOUND P 6 P*** RECEIVER LCT FOUND BUT SENDER LCT WANTED < P ADK A6,1 ADJUST RETURN ADDRESS 2 P
0x45f168…45f2fc Dummy {f00=0x015c, f01=0x0190, f02=»*************************************************************** ( P*** COMMON SENDER INTERRUPT HANDLER H P P*************************************************************************** t 4 P*** ON ENTRY:A1:=ADDRESS OFSPECIFIED SENDER-LCT 2 P***
0x45f2fc…45f490 Dummy {f00=0x015c, f01=0x0190, f02=»ODE ON LEVEL 48 f * P*** IF INTERRUPT IS EXPECTED 2 P*** OTHERWISE RETURN AFTER INTERRUPT F P*** | PDRHLTR EQU * P*** P LDR A7,A1 6 P ADK A7,DRSTAT A7:=ADDR.OF DRIVER-STATUS OF SENDER P LD A6,DEV
0x45f490…45f624 Dummy {f00=0x015c, f01=0x0190, f02=»CT P P*************************************************************************** P*** DRIVER STATUS IS CONNECT ^ P P*************************************************************************** * P*** TEST IF SENDER STATUS IS INACTIVE P CW
0x45f624…45f7b8 Dummy {f00=0x015c, f01=0x0190, f02=»,SSTINS P EXR A3 P IFT IOLOG=1 P CF A15,LGA3A2 4 P XIF J PSIN150 EQU * V P*** RETURN AFTER INTERRUPT j P ABL RTNA15 PSIN200 EQU * P*** SENDER STATUS IS ACTIVE P IFT IOPPC=1 P*** TEST IF IOP OR PC
0x45f7b8…45f94c Dummy {f00=0x015c, f01=0x0190, f02=»PUT j P LDR A3,A6 P ORKL A3,OTRINS , P EXR A3 EXECUTE OTR-INSTRUCTION WITH A2 6 P IFT IOLOG=1 f P CF A15,LGA3A2 z P XIF P IFT IOPPC=1 P RF(NA) SIN260 : P*** CALCULATE BUFFERADDRESS FOR NEXT WORD TO TRANSMIT P LDK
0x45f94c…45fae0 Dummy {f00=0x015c, f01=0x018e, f02=»EW LENGTH x $ P RB(NZ) SIN150 NOT THE LAST WORD $ P*** LAST WORD; PREPARE CIO HALT : P LDR A3,A6 b P ORKL A3,CIOHLT t ( P EXR A3 EXECUTE CIO HALT INSTRUCTION P IFT IOLOG=1 P CF A15,LGA3A2 P XIF P IFT IOPPC=1 P*** RE
0x45fae0…45fc74 (1, 1262) Dummy {f00=0x015c, f01=0x0190, f02=» . P LD* A2,BUFADD,A1 A2:=NEXT WORD TO OUTPUT P LDR A3,A6 6 P ORKL A3,OTRINS H , P EXR A3 EXECUTE OTR-INSTRUCTION WITH A2 ` P IFT IOLOG=1 P CF A15,LGA3A2 P XIF P IFT IOPPC=0 P IFT IOPCON=0 P RF(NA) SIN2
0x45fc74…45fe08 Dummy {f00=0x015c, f01=0x018e, f02=»D | P LD A3,REQLEN,A1 P SUK A3,1 " & P ST A3,REQLEN,A1 STORE NEW LENGTH 4 $ P RB(NZ) SIN150 NOT THE LAST WORD ^ $ P*** LAST WORD; PREPARE CIO HALT P LDR A3,A6 P ORKL A3,CIOHLT ( P EXR A3 EXECUTE CIO HALT INSTRUCTION P IFT
0x45fe08…45ff9c Dummy {f00=0x015c, f01=0x0190, f02=» P RB SIN150 P XIF PSIN260 EQU * * & P*** INTERRUPT OF CIO HALT OR OTR1 > & P LDKL A5,SIN268 A5:=RETURNADDRESS h P RF SIN400 PSIN268 EQU * P LD A2,ECBRL,A8 6 P ST A2,ECBEL,A8 COPY REQUESTED LENGTH IN EFFECTIVE
0x45ff9c…460130 Dummy {f00=0x015c, f01=0x0190, f02=»A1,LCTEND A1:=ADDRESS OF RECEIVER LCT ~ P ABL SWLRID 4 P EJECT H PSIN300 EQU * V ( P*** TEST IF DRIVER STATUS STOP WAIT j P LDK A3,DRSTWA P CWR* A3,A7 : P RB(NE) SIN100 RESET INTERRUPT;RETURN AFTER INTERRUPT N P**********
0x460130…4602c4 Dummy {f00=0x015c, f01=0x0190, f02=»************************************************ v 6 P CW A4,DRSSTA,A1 TEST IF SENDER STATUS IS INACTIVE 8 8 P RB(E) SIN100 RESET INTERRUPT;RETURN AFTER INTERRUPT r P*** SENDER STATUS IS ACTIVE & P LDKL A5,SIN500 A5:=RETURNADDRESS PSIN400 EQU *
0x4602c4…460458 Dummy {f00=0x015c, f01=0x0190, f02=» P XIF $ P RB(NA) SIN150 SST-NOT ACCEPTED * P ANK A2,3 DISTROY NOT SIGNIFICANT BITS 8 P ORKL A2,/8000 f ( P LD A8,LIECB,A1 A8:=ADDRESS OF LIECB | & P ST A2,ECBRC,A8 STORE STATUS WORD 0 P ST A4,DRSSTA,A1 SET SENDER-STATUS INACTIVE & P A
0x460458…4605ec Dummy {f00=0x015c, f01=0x0190, f02=»B SIN280 RETURN TO IDREQ P*** P EJECT , P P*************************************************************************** : * P*** COMMON RECEIVER-INTERRUPT HANDLER P P***************************************************************************
0x4605ec…460780 Dummy {f00=0x015c, f01=0x0190, f02=»ON EXIT :A7:=TYPE 6 P*** RETURN TO IDREQ IN ENABLE-MODE ON LEVEL 48 IF P*** INTERRUPT IS EXPECTED T * P*** OTHERWISE RETURN AFTER INTERRUPT v P*** PDRHLRC EQU * P*** P LD A5,DEVADD,A1 P ANK A5,/FF P LDR
0x460780…460914 (1, 1263) Dummy {f00=0x015d, f01=0x0190, f02=»NA) INT250 " P*** TEST IF RECEIVER IS ACTIVE P LDK A3,DRACT 8 P CW A3,DRRSTA,A1 N P RF(E) INT200 f * P*** RECEIVER NOT ACTIVE ;STOP RECEIVER | P LDR A3,A5 P ORKL A3,CIOHLT P EXR A3 P IFT IOLOG=1 P CF A15,LGA3A2
0x460914…460aa8 Dummy {f00=0x015d, f01=0x0190, f02=»TEST IF IOP OR PC P LC A3,DEVADD,A1 P ANK A3,MIOP 2 P RF(NZ) INT250 IOP F " P*** RECEIVER STATUS IS ACTIVE ` 6 P LD A3,BUFADD,A1 A3:=BUFFERADDRESS WHERE TO STORE P STR A2,A3 INPUT-WORD $ P*** DECREMENT NR OF INPUT WORDS P L
0x460aa8…460c3c Dummy {f00=0x015d, f01=0x018e, f02=»,A1 GET ECB ADDRESS 0 P LD A2,ECBPR,A2 GET SAVED CHAR AND CONDITION , P RB(NN) INT090 CHAR MUST NOT BE RESTORED P P** 4 P** THE SAVED CHAR MUST BE RESTORED IN THE BUFFER 2 P** BECAUSE THE REQUESTED LENGTH IS ODD AND THE 6 P** CONTROLLER ON
0x460c3c…460dd0 Dummy {f00=0x015d, f01=0x0190, f02=» P*** NOT LAST WORD PINT220 EQU * P LDK A3,2 2 < P ADS A3,BUFADD,A1 INCREMENT BUFFERADDRESS FOR NEXT WORD D & P RB INT090 RETURN AFTER INTERRUPT P XIF P IFT IOPPC=0 P IFT IOPCON=0 " P*** RECEIVER STA
0x460dd0…460f64 Dummy {f00=0x015d, f01=0x0190, f02=»WORDS v P LD A6,REQLEN,A1 P SUK A6,1 & P ST A6,REQLEN,A1 8 P*** TEST IF LAST WORD P P RF(P) INT220 NOT LAST n $ P LD A2,LIECB,A1 GET ECB ADDRESS 0 P LD A2,ECBPR,A2 GET SAVED CHAR AND CONDITION , P RB(NN) INT090 CHAR MUST NOT BE
0x460f64…4610f8 Dummy {f00=0x015d, f01=0x0190, f02=»** CONTROLLER ONLY STORES AN UPROUNDED EVEN NUMBER $ P** OF CHARACTERS IN THE BUFFER. : " P SC A2,1,A3 RESTORE CHARACTER b P RB INT090 P*** NOT LAST WORD PINT220 EQU * P LDK A3,2 < P ADS A3,BUFADD,A1 INCREMENT BUFFERADDRESS FOR
0x4610f8…46128c Dummy {f00=0x015d, f01=0x0190, f02=»A3,SSTINS , P EXR A3 EXECUTE SST-INSTRUCTION WITH A2 P IFT IOLOG=1 B P CF A15,LGA3A2 V P XIF l 6 P RB(NA) INT090 SOMETHING WRONG!!SST NOT ACCEPTED!! x ( P LD A8,LIECB,A1 A8:=ADDRESS OF LIECB 6 P*** TEST IF DRIVER STATUS IS CONNECT OR ST
0x46128c…461420 Dummy {f00=0x015d, f01=0x0190, f02=» PINT254 EQU * L P************************************************************************ . P*** DRIVER-STATUS IS CONNECT OR STOP WAIT l L P************************************************************************ * P*** TEST IF RECEIVER STATU
0x461420…4615b4 (1, 1264) Dummy {f00=0x015d, f01=0x0190, f02=»ROL-STATUS-WORD IN ECBRC v P IFT IOPPC=1 P*** TEST IF IOP OR PC 4 P LC A3,DEVADD,A1 R P ANK A3,MIOP j P RF(Z) INT255 NO IOP ~ * P*** IO-PROCESSOR;GET NR.OF WORDS READ P LDR A3,A5 P SLL A3,1 P ORKL A3,RER P EXR A3
0x4615b4…461748 Dummy {f00=0x015d, f01=0x0190, f02=»CON=1 * P*** IO-PROCESSOR;GET NR.OF WORDS READ P LDR A3,A5 < P SLL A3,1 N P ORKL A3,RER ` P EXR A3 t P ANKL A2,/FFF * P ST A2,REQLEN,A1 SAVE LENGTH TEMPORARY P XIF P LD A2,ECBRC,A8 ( P*** TEST IF MODEM NOT O
0x461748…4618dc Dummy {f00=0x015d, f01=0x018e, f02=» TEST IF DRIVER STATUS 'STOP WAIT' P LDK A3,DRSTWA * P CW A3,DRSTAT,A1 @ P RF(E) INT260 PROCESS INPUT X P*** DRIVER STATUS 'CONNECT' | ( P*** TEST IF IDLE OR ABORT ONE'S P LDKL A3,IDLABO P TM A3,A2
0x4618dc…461a70 Dummy {f00=0x015d, f01=0x0190, f02=» P*** CARRIERR OFF BIT NOT SET ( P*** TEST IF LENGTH LESS THAN MINIMUM ( P LDK A3,1 T P AD A3,REQLEN,A1 f P CW A3,LENGTH,A1 ~ * P RF(G) INT258 RETRY: NO INPUT AT ALL! 2 P RF(L) INT260 ACCEPT: MORE THAN TWO CHARACTERS P LDKL A3,/F00
0x461a70…461c04 Dummy {f00=0x015d, f01=0x018e, f02=» P*** CARRIER-OFF BIT SET " P*** TEST IF ALARM RECEIVE DATA $ P LD A3,RECDAT,A1 J P ANK A3,1 b P RF(Z) INT260 YES! t PINT258 EQU * P*** RETRY CIO START INPUT " P CM ECBRC,A8 CLEAR RETURN CODE . P LD A2,RETRY,A1 A2 :=
0x461c04…461d98 Dummy {f00=0x015d, f01=0x0190, f02=» $ P ST A2,ECBRC,A8 SAVE RETURNCODE P RF INT260 0 PINT259 EQU * B ( P ST A2,RETRY,A1 STORE RETRY COUNTER V " P LD A6,ECBBA,A8 " P LD A2,LENGTH,A1 " P ST A2,REQLEN,A1 P IFT IOPPC=0 P
0x461d98…461f2c Dummy {f00=0x015d, f01=0x0190, f02=»OCESSOR P CF A15,WERREA T P******************************************************************************** 4 P XIF P IFT IOPPC=1 P*** TEST IF IOP OR PC P LC A3,DEVADD,A1 P ANK A3,MIOP P RF(Z) INT
0x461f2c…4620c0 Dummy {f00=0x015d, f01=0x0190, f02=» CF A15,WERREA T P******************************************************************************** PINT25A EQU * v P XIF " P ST A6,BUFADD,A1 P LD A2,RECDAT,A1 P LDR A3,A5 P ORKL A3,CIOINS P EXR A3
0x4620c0…462254 (1, 1265) Dummy {f00=0x015d, f01=0x0190, f02=» COUNTER x , P*** TEST IF INPUT-REQUEST-QUEUE IS EMPTY 6 P LD A3,QUEUE,A1 A3:=ADDRESS OF INPUT-REQUEST-QUEUE @ & P LD A2,QEXT,A3 A2:=EXTRACT-POINTER z P LDR* A7,A2 . P RF(Z) INT300 INPUT-REQUEST-QUEUE IS EMPTY ( P*** INPUT-REQUEST-QUEUE IS NOT
0x462254…4623e8 Dummy {f00=0x015d, f01=0x0190, f02=»NZ) INT264 P STR A8,A2 P RF INT266 $ PINT264 EQU * 6 P LD A8,LIECB,A1 J 2 P ST A7,LIECB,A1 STORE ADDRESS OF LIECB IN LCT b " P CMR A2 CLEAR ELEMENT IN QUEUE PINT266 EQU * & P*** CALCULATE NEW EXTRACT-POINTER P ADK A2,2
0x4623e8…46257c Dummy {f00=0x015d, f01=0x0190, f02=»ST ELEMENT IN QUEUE r P LDK A2,QUELE1 P ADR A2,A3 2 PINT270 EQU * D P ADK A3,QINS X P LDR A7,A7 l P RF(Z) INT274 ~ P ADK A3,2 PINT274 EQU * 2 P STR A2,A3 STORE ADDRESS IN SPECIFIED POINTER P ABR A6 : P*** CALC
0x46257c…462710 Dummy {f00=0x015d, f01=0x0190, f02=» LD A6,ECBBA,A7 P ADR A3,A6 P SRC A4,1 @ P RF(NN) INT280 R > P*** SAVE FIRST NOT SIGN.CHARACTER AND SAVE-INDICATION h P LDR A2,A4 P LCR A2,A3 " P ST A2,ECBPR,A7
0x462710…4628a4 Dummy {f00=0x015d, f01=0x0190, f02=»UFADD,A1 STORE BUFFERADDRESS OF NEW REQUEST P* 4 P IFT IOPPC=0 > P IFT IOPCON=1 R . P****************************************** h P*** IOPROCESSOR $ P*** FOR READ-LENGTH=WRITE-LENGTH P IM ECBEL,A7 * P*** PREPARE WER1 AND WER2
0x4628a4…462a38 Dummy {f00=0x015d, f01=0x0190, f02=»*********** r P XIF P IFT IOPPC=1 P*** TEST IF IOP OR PC 4 P LC A2,DEVADD,A1 R P ANK A2,MIOP j P RF(Z) INT290 NO IOP ~ . P****************************************** P*** IOPROCESSOR $ P*** FOR READ-LENGTH=WRITE-LENGTH
0x462a38…462bcc Dummy {f00=0x015d, f01=0x0190, f02=» A15,WERREA . P***************************************** PINT290 EQU * F P XIF Z P*** PREPARE CIO START INPUT f @ P LD A2,RECDAT,A1 A2:=CIO START INPUT FLAG P LDR A3,A5 P ORKL A3,CIOINS P EXR A3 P
0x462bcc…462d60 Dummy {f00=0x015d, f01=0x0190, f02=»A1 P RF(NE) INT294 P*** STOP INPUT IMMEDIATELY P LDR A3,A5 B P ORKL A3,CIOHLT T P EXR A3 l P IFT IOLOG=1 | P CF A15,LGA3A2 P XIF PINT294 EQU * P LDK A4,DRINAC P RF INT310 P*** PINT300 EQU *
0x462d60…462ef4 (1, 1266) Dummy {f00=0x015d, f01=0x0190, f02=»STOP WAIT v P LDK A3,DRSTWA P CW A3,DRSTAT,A1 ( , P RF(NE) INT310 DRIVER STATUS IS CONNECT @ " P*** DRIVER STATUS IS STOP WAIT p * P*** SET DRIVER STATUS OF RECEIVER STOP P LDK A3,DRSTEX P ST A3,DRSTAT,A1 PINT310 EQU * P
0x462ef4…463088 Dummy {f00=0x015d, f01=0x0190, f02=»SKED FOR j P SUR A3,A2 . P LDR A2,A3 A2:=NUMBER OF WORDS REALLY READ " $ P*** CONVERT WORDS TO CHARACTERS T P SLL A2,1 | < P*** TEST IF ONLY ONE CHARACTER IN LAST WORD SIGNIFICANT P LD A3,ECBRC,A8 P SLL A3,4 P RF(NN) INT350
0x463088…46321c Dummy {f00=0x015d, f01=0x0190, f02=»ACTERS READ IN LIECB l , P LDKL A3,/8000 PRESET RETURN CODE BIT 0 6 P CW A2,ECBRL,A8 EFFECTIVE LENGTH BIGGER THAN REQ. L P RF(NG) INT355 NO,NOT BIGGER . P ORK A3,INCLEN SET INCORRECT LENGTH ERROR PINT355 EQU * < P ORS A3,ECBRC,A8 SET EVE
0x46321c…4633b0 Dummy {f00=0x015d, f01=0x0190, f02=»INACTIVE v 8 P*** SET REQUESTED LENGTH OF DEQUEUED REQUEST IN LCT P LD A2,ECBEL,A7 L P ST A2,REQLEN,A1 d P ST A2,LENGTH,A1 | P*** P*** PINT360 EQU * P LDK A7,TYPEIN PINT380 EQU * P ST A7,ECBPR,A8 . P*** SW
0x4633b0…463544 Dummy {f00=0x015d, f01=0x018e, f02=»ECT T PINT400 EQU * P CWK A3,DRWFDC P RF(NE) INT500 6 N P************************************************************************* L < P*** DRIVER STATUS IS WAIT FOR DISCONNECT BEFORE CONNECT N P******************************************
0x463544…4636d8 Dummy {f00=0x015d, f01=0x0190, f02=» P EXR A3 CIO CONNECT WITH A2 P IFT IOLOG=1 , P CF A15,LGA3A2 @ P XIF V * P RF(NA) INT700 RETURN AFTER INTERRUPT b P*** CONNECT ACCEPTED P LDK A3,DRWFCR > P ST A3,DRSTAT,A1 SET DRIVER STATUS WAIT FOR CONNECT READY P***
0x4636d8…46386c Dummy {f00=0x015d, f01=0x0190, f02=» P CWK A3,DRWFCR P RF(NE) INT600 N P************************************************************************* 4 0 P*** DRIVER STATUS IS WAIT FOR CONNECT READY N P*************************************************************************
0x46386c…463a00 Dummy {f00=0x015d, f01=0x0190, f02=»OFF BIT SET j ( P*** TEST IF CARRIER-OFF SIGNIFICANT P LD A3,RECDAT,A1 @ P ANK A3,1 X 2 P RF(Z) INT650 ERROR:MODEM NOT OPERABLE AND/OR j P*** CARRIER-OFF SET $ P*** CARRIER-OFF NOT SIGNIFICANT " P*** TEST IF MODEM NOT OPERABLE
0x463a00…463b94 (1, 1267) Dummy {f00=0x015e, f01=0x0190, f02=»R STATUS:CONNECT! | PINT550 EQU * P ORKL A2,/8000 . P ST A2,ECBRC,A8 D P*** SET DRIVER STATUS P ST A3,DRSTAT,A1 z P ST A3,DRSTAT+LCTEND,A1 & P RF SWLRID SWITCH LEVEL AND RETURN P EJECT P*** PINT600 EQU * 4
0x463b94…463d28 Dummy {f00=0x015e, f01=0x018e, f02=»*************************************** n 2 P*** DRIVER-STATUS IS WAIT FOR DISCONNECT READY 0 N P************************************************************************* f PINT650 EQU * , P LDK A3,DRDICO DRIVER STATUS:DISCONNECT! P RB INT550
0x463d28…463ebc Dummy {f00=0x015e, f01=0x0190, f02=» . P*** SWITCH TO LEVEL 48 AND RETURN TO IDREQ PSWLRID EQU * 6 P CF A15,SWL48 J P** RETURN TO IDREQ ` P ABI APROT,A1 z P*** 6 P*** SWITCH TO LEVEL 48 WITHOUT ENABLING INTERRUPTS PSWL48 EQU * P STR A1,A15 SAVE A1 P L
0x463ebc…464050 Dummy {f00=0x015e, f01=0x0190, f02=» P IFT IOPCON=1 P EJECT P*** 0 P*** < 4 P*** SUBROUTINE FOR WRITE EXTERNAL REGISTERS H @ P*** ENTRY-POINT: WERWRI WRITE EXTERNAL REGISTERS(WRITE) @ P*** ENTRY-POINT: WERREA WRITE EXTERNAL REGISTERS(READ) @ P
0x464050…4641e4 Dummy {f00=0x015e, f01=0x0190, f02=»=LENGTH IN WORDS z ( P*** A6:=BUFFERADDRESS P*** D * P*** ON EXIT: A2,A3,ARE DESTROYED P P*** ~ P*** PWERWRI EQU * 6 P ORKL A2,/4000 SET WRITE FLAG PWERREA EQU * 8 P
0x4641e4…464378 Dummy {f00=0x015e, f01=0x0190, f02=» ORKL A3,WER @ P EXR A3 WRITE FIRST CONTROL WORD P ORK A3,1 P LDR A2,A6 z @ P EXR A3 WRITE SECOND CONTROL WORD P ADKL A15,4 H P A
0x464378…46450c Dummy {f00=0x015e, f01=0x0190, f02=» 4 P*** SUBROUTINE FOR WRITE EXTERNAL REGISTERS @ P*** ENTRY-POINT: WERWRI WRITE EXTERNAL REGISTERS(WRITE) @ @ P*** ENTRY-POINT: WERREA WRITE EXTERNAL REGISTERS(READ) @ P*** CALLING SEQUENCE: CF A15,WERWRI RESP.CF A15,WERREA
0x46450c…4646a0 Dummy {f00=0x015e, f01=0x0190, f02=» P*** * P*** ON EXIT: A2,A3,ARE DESTROYED P*** > P*** J PWERWRI EQU * V 6 P ORKL A2,/4000 SET WRITE FLAG r PWERREA EQU * 8 P ORKL A2,/8000 SET WORD TRANSFER " P
0x4646a0…464834 (1, 1268) Dummy {f00=0x015e, f01=0x0190, f02=» WRITE FIRST CONTROL WORD | P ORK A3,1 0 P LDR A2,A6 N @ P EXR A3 WRITE SECOND CONTROL WORD n P ADKL A15,4 H P ABR* A15 RETURN TO CALLER IN
0x464834…4649c8 Dummy {f00=0x015e, f01=0x0190, f02=»************ Z P* * P* PURPOSE LOGGING OF I/O INSTRUCTIIONS P* L * P* ENTRY VIA DEDICATED ROUTINE (LGAXAY) V * P* X= REGISTER # CONTAINING I/O INSTR. * P* Y= REGISTER # CONTAINING BOU VALUE P* P* EXIT NO REGISTERS CHANGED
0x4649c8…464b5c Dummy {f00=0x015e, f01=0x0190, f02=» 0 P* LOGGING ARRAY (START ADDRESS IN LOGBUF). 6 P* THE NUMBER OF WORDS DEPENDS ON THE LOGGING MODE 8 " P* (SEE ASSEMBLY CONDITIONS). r " P* MODE = 2 : COMPRESSED MODE P* MODE = 3 : EXTENDED MODE < P* THE ARRAY IS USED CYCLICLY (LENGTH
0x464b5c…464cf0 Dummy {f00=0x015e, f01=0x0190, f02=»ACH TIME THE INDEX IS RESET TO ZERO, THE CYCLIC COUNTER 4 P* IS INCREMENTED (SECOND WORD OF LOGGING AREA) @ P* x ( P* LAY-OUT LOGGING ELEMENT (EXTENDED) ( P* WORD 0 BIT 0-15 : I/O INSTRUCTION " P* WORD 1 BIT 0-15 : BOU VALUE P* WORD 2
0x464cf0…464e84 Dummy {f00=0x015e, f01=0x018e, f02=» : BIT 0.AND.1 OF PSW (LEVEL IND.) ( P* BIT 3 : BIT 9 OF PSW (INH/ENB) . 6 P* BIT 4-7 : BIT 1-4 OF I/O INSTR. (OPCODE (+MD)) Z 2 P* BIT 8-15 : OF I/O INSTR. (DNCUA-MD/EXT.REG) " P* WORD 1 BIT 0-15 : BOU VALUE P* P* WORKING STOR
0x464e84…465018 Dummy {f00=0x015e, f01=0x0190, f02=» h $ P* = FIRST WORD OF LOGGING AREA & P* ACYCLE ADDRESS OF CYCLE COUNTER 0 $ P* = SECOND WORD OF LOGGING AREA Z P* P* AUTHOR J.DE HAAN P* F P****************************************************************** P* P EJE
0x465018…4651ac Dummy {f00=0x015e, f01=0x0190, f02=» ( PACYCLE DATA 0 A(CYCLE COUNTER FIELD) P EJECT 0 P* > F P****************************************************************** H P* * P* MEANING OF LOGGED OPCODE+MD VALUES P* BITS 4-7 OF WORD 0 P* P* P* OPC+MD INSTR
0x4651ac…465340 Dummy {f00=0x015e, f01=0x0190, f02=»* C OTR 1 P* D INR 1 P* E WER ( P* F RER : P* L F P****************************************************************** V P* P* ASSEMBLY CONDITIONS P* P* MODE=2 COMPRESSED METHOD P* MODE=3 EXTENDED ME
0x465340…4654d4 (1, 1269) Dummy {f00=0x015e, f01=0x0190, f02=»JECT P* * P* PURPOSE LOG ELEMENTS IN SAVLOG AREA P* ENTRY A2 = I/O INSTRUCTION D P* A5 = BOU VALUE h P* A1-A5 SAVED ON A15 STACK P* PLOGINS EQU * P* P IFT MODE=2 P* P ECR A3,A2 P ANK A3,/7
0x4654d4…465668 Dummy {f00=0x015e, f01=0x0190, f02=»EP MD BITS P SRL A1,4 , P XRR A3,A1 MAKE : MD(XX00) XOR OPC(YYYY) $ * P ANK A2,/3F REMOVE MD BITS FROM DNCUA T PLOG005 EQU * P* P LD A4,12,A15 A4 := PSW P LDR A1,A4 AND BITS 0 AND 1 P ANKL A1,/4000 OF PSW P SLL A
0x465668…4657fc Dummy {f00=0x015e, f01=0x0190, f02=»2 P ECR A1,A4 P ORR A1,A4 P ANK A1,/F0 A1 := 00Y0 . P* L P ORR A1,A3 A1 := OOYX V P ECR A1,A1 A1 := YX00 t P* $ P ANK A2,/FF KEEP MD-BITS + DNCUA P ORR A2,A1 A2 := YXAA P XIF P* P IFT
0x4657fc…465990 Dummy {f00=0x015e, f01=0x0190, f02=»2=1 P* P INH **INHIBIT SYSTEM P XIF 4 P* @ P IFT IOLOG=1 J ( P LD* A1,AINDEX CURRENT LOGAREA INDEX l P ADK A1,MODE+MODE UPDATE P ST* A1,AINDEX $ P CW A1,LOGLEN CHECK END BOUNDARY $ P RF(L) LOG010 NOT
0x465990…465b24 Dummy {f00=0x015e, f01=0x0190, f02=»NEXT FREE LOGCELL) z P IFT MODE=2 P ST A2,-4,A1 SAVE WORD 0 . P ST A5,-2,A1 SAVE WORD 1 N P XIF n P* z P IFT IOLOG=1 P IFT MODE=3 P* P ST A2,-6,A1 WORD 0 P ST A5,-4,A1 WORD 1 P ST A4,-2,A1
0x465b24…465cb8 Dummy {f00=0x015e, f01=0x018e, f02=»15 END LGAXAY P XIF P IFT IOLOG=1 " P IFT CPU852=1 D P LDR* A5,A15 Z P LDR* A4,A15 n P LDR* A2,A15 DUMMY; OLD A3 P LDR* A2,A15 P LDR* A1,A15 P LDR* A3,A15 SAVED PSW P ANKL A3,/300 P
0x465cb8…465e4c Dummy {f00=0x015e, f01=0x0190, f02=» 2 P* PURPOSE DEDICATED ROUTINE ENTRIES FOR LOGINS P* : P* D , P* THE ENTRY MUST CONTAIN THE FUNCTIONS : N P* ~ P* 1. SAVE A1-A5 ON A15-STACK P* 2. A2 := INSTRUCTION P* 3. A5 := BOU VALUE P* 4. GOTO LOGINS P* , P
0x465e4c…465fe0 Dummy {f00=0x015e, f01=0x0190, f02=»IF P IFT IOLOG=1 P IFT CPU852=1 , P INH B P STR A1,A15 N P STR A2,A15 b P STR A3,A15 v P STR A4,A15 P STR A5,A15 P XIF P IFT IOLOG=1 P LDR A5,A2 A5 := BOU VALUE P LDR A
0x465fe0…466174 (1, 1270) Dummy {f00=0x015e, f01=0x0190, f02=»OG EQU * P LDK A1,0 A1 := CLEAR VALUE * P LD A2,LOGGBU A2 := A(LOGGING BUFFER) 4 * P LD A3,LOGLEN A3 := L(LOGGING BUFFER) b PIN:L01 EQU * P STR A1,A2 CLEAR A WORD $ P ADK A2,2 UPDATE LOGGING ADDRESS * P SUK A3,2 UPDATE LENGTH TO B
0x466174…466308 Dummy {f00=0x015e, f01=0x4128, f02=»DK A2,2 P ST A2,ACYCLE P LDK A2,4 & P ST* A2,AINDEX 8 P ST* A1,ACYCLE N P* d P RTN A15 END IN:LOG n P EJECT P* P* LOGGING AREA P* PBUFFER EQU * P RES 104 PLBUFFR EQU *-BUFFER P
0x466308…46649c Dummy {f00=0x015e, f01=0x2008, f02=»
0x46649c…466630 Dummy {f00=0x015e, f01=0x0190, f02=» j . PXBUSY DATA 0 BUSY ANSWER ON PREVIOUS POLL ( PHEADER DATA 0,0 HEADER STORAGE AREA : P* f PFECB DATA 0 WRITING ECB p ( PFECBBA DATA 0 WRITING BUFFER ADDRESS ( PFECBRL DATA 0 WRITING BUFFER LENGTH PFSID DATA 0 RESPONDING SID
0x466630…4667c4 Dummy {f00=0x015e, f01=0x018e, f02=»ERS TO BE SAVED | P* 0 PZRECOV DATA 0,0,0,0,0,0 SAVE TRANSMIT HEADER " & PLSEND DATA 0 LAST TRANSMIT ADDRESS V P* * PBUSYFL EQU 1 BUSY FLAG (BIT 15 IN DWT) P* " PSPRINT DATA 0 PRINT STATEMENT $ PDWTTXT DATA 0 LAST DWT FOR TEXT
0x4667c4…466958 Dummy {f00=0x015e, f01=0x0190, f02=» h . PSBSTID DATA 0 INDEX TO FOUND TERMINAL ID PSBSA3 DATA 0 SAVE AREA A3 : PSBSA4 DATA 0 SAVE AREA A4 * PTPAX DATA 0 1 IF TR.POLL+ACK RECEIVED ~ P XIF P* P EJECT P* P* PSTRING EQU * FRAME STRINGS &
0x466958…466aec Dummy {f00=0x015e, f01=0x0190, f02=»ATA /1031,/0500 STATUS POLL WITH ACK , P DATA /0510,/3100 STATUS POLL WITH ACK , $ P DATA /1015,0 RETRANSMIT REQUEST PSTRINE EQU * END OF STRINGS P* P* ( PFRAME EQU * BRANCH TABLE FOR FRAMES & P DATA TP TRAFFIC POLL WITHOUT AC
0x466aec…466c80 Dummy {f00=0x015e, f01=0x0190, f02=»A STATUS POLL WITH ACK P DATA RT RETRANSMIT REQUEST P EJECT D P* R P* OUTPUT SOFTWARE MESSAGES P* ~ P* . PDCSTR1 DATA 0 WORK AREA FOR NO TRAFFIC+ACK $ PDCSTRX DATA 0 SAVE LAST SID TEXT PDCSTR3 DATA /1030,0 TRAFFIC