OctetView
0x00000…00080 (0, 0, 1) DataSector[»ISIS.T0«]
[…0x16…]
0x00b80…00c00 (0, 0, 24) LinkageBlock[»ISIS.T0«,0] {0,0 0,0 0,1 0,2 0,3 0,4 0,5 0,6 0,7 0,8 0,9 0,10 0,11 0,12 0,13 0,14 0,15 0,16 0,17 0,18 0,19 0,20 0,21 0,22 0,23 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x00c00…00c80 (0, 0, 25) LinkageBlock[»ISIS.LAB«,0] {0,0 0,0 0,26 0,27 0,28 0,29 0,30 0,31 0,32 0,33 0,34 0,35 0,36 0,37 0,38 0,39 0,40 0,41 0,42 0,43 0,44 0,45 0,46 0,47 0,48 0,49 0,50 0,51 0,52 1,27 1,28 1,29 1,30 1,31 1,32 1,33 1,34 1,35 1,36 1,37 1,38 1,39 1,40 1,41 1,42 1,43 1,44 1,45 1,46 1,47 1,48 1,49 1,50 1,51 1,52 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x00c80…00d00 (0, 0, 26) DataSector[»ISIS.LAB«]
[…0x1a…]
0x01a00…01a80 (1, 0, 1) LinkageBlock[»ISIS.DIR«,0] {0,0 0,0 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,16 1,17 1,18 1,19 1,20 1,21 1,22 1,23 1,24 1,25 1,26 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x01a80…01a90 (1, 0, 2) .DIRENT ISIS.DIR 00 81 80 19 1,1
0x01a90…01aa0 .DIRENT ISIS.MAP 00 81 80 04 2,1
0x01aa0…01ab0 .DIRENT ISIS.T0 00 81 80 17 0,24
0x01ab0…01ac0 .DIRENT ISIS.LAB 00 81 80 35 0,25
0x01ac0…01ad0 .DIRENT ISIS.BIN 00 83 5c 5c 2,6
0x01ad0…01ae0 .DIRENT ISIS.CLI 00 83 62 13 3,48
0x01ae0…01af0 .DIRENT TQM.LIB 00 00 7a 0d 4,16
0x01af0…01b00 .DIRENT EHP.MAC 00 00 4e c4 4,30
0x01b00…01b10 (1, 0, 3) .DIRENT REAL.DOR 00 00 4e 5e 15,16
0x01b10…01b20 .DIRENT COPY 00 05 7a 42 5,49
0x01b20…01b30 .DIRENT ATTRIB 00 05 0f 27 7,13
0x01b30…01b40 .DIRENT REAL.USE 00 00 53 0b 17,8
0x01b40…01b50 .DIRENT DELETE 00 05 3a 26 8,21
0x01b50…01b60 .DIRENT DIR 00 05 1a 36 9,8
0x01b60…01b70 .DIRENT CREDIT 00 05 0e 99 10,11
0x01b70…01b80 .DIRENT TIMING.SRC 00 00 4f 32 17,20
0x01b80…01b90 (1, 0, 4) .DIRENT ATR.CSD 00 00 72 31 21,4
0x01b90…01ba0 .DIRENT DDP.USE 00 00 5f 37 22,2
0x01ba0…01bb0 .DIRENT INSPEC.SRC 00 00 32 54 23,6
0x01bb0…01bc0 .DIRENT DDP.MAC 00 00 33 206 24,40
0x01bc0…01bd0 .DIRENT EHP.USE 00 00 17 01 39,15
0x01bd0…01be0 .DIRENT RENAME 00 05 25 13 17,39
0x01be0…01bf0 .DIRENT DO 00 05 50 26 18,7
0x01bf0…01c00 .DIRENT LIB 00 05 73 50 18,46
0x01c00…01c10 (1, 0, 5) .DIRENT DECODE.SRC 00 00 57 b2 39,17
0x01c10…01c20 .DIRENT EXTRN.SRC 00 00 79 1b 43,27
0x01c20…01c30 .DIRENT TEST.SRC 00 00 43 6c 44,3
0x01c30…01c40 .DIRENT STSCAN.SRC 00 00 1e 32 46,9
0x01c40…01c50 .DIRENT DEVNOR.SRC 00 00 27 02 47,8
0x01c50…01c60 .DIRENT TCREAD.SRC 00 00 49 57 47,11
0x01c60…01c70 .DIRENT STATU.SRC 00 00 27 9c 48,48
0x01c70…01c80 .DIRENT SEARCH.SRC 00 00 5f 56 51,51
0x01c80…01c90 (1, 0, 6) .DIRENT SYNCRO.SRC 00 00 4f 6b 53,35
0x01c90…01ca0 .DIRENT LOCK.SRC 00 00 7a 9b 55,40
0x01ca0…01cb0 .DIRENT ATR6.ABS 00 00 12 57 58,42
0x01cb0…01cc0 .DIRENT CONSOL ff 00 41 05 27,5
0x01cc0…01cd0 .DIRENT LOCATE.CSD ff 00 4d 01 27,11
0x01cd0…01ce0 .DIRENT START.CSD ff 00 05 03 27,13
0x01ce0…01cf0 .DIRENT CHCOM.SRC ff 00 0a 45 27,17
0x01cf0…01d00 .DIRENT CHCOM.OBJ ff 00 3b 07 28,36
0x01d00…01d10 (1, 0, 7) .DIRENT SCHEDU.PDF ff 00 59 03 28,44
0x01d10…01d20 .DIRENT CREDIT.MAC ff 00 25 01 28,48
0x01d20…01d30 .DIRENT COMLIN.CSD ff 00 01 02 28,50
0x01d30…01d40 .DIRENT CLR ff 00 12 01 29,1
0x01d40…01d50 .DIRENT VCRINT.OBJ ff 00 43 21 29,3
0x01d50…01d60 .DIRENT MAPMDM ff 00 06 04 29,37
0x01d60…01d70 .DIRENT PAGE 00 05 1b 02 30,45
0x01d70…01d80 .DIRENT EXTND ff 00 7d 02 29,42
0x01d80…01d90 (1, 0, 8) .DIRENT LOCATE 00 05 2d 76 31,1
0x01d90…01da0 .DIRENT PANEL.PDF ff 00 78 05 29,45
0x01da0…01db0 .DIRENT VPRTCL.OBJ ff 00 7f 0c 29,51
0x01db0…01dc0 .DIRENT ERR.CSD ff 00 1e 01 30,12
0x01dc0…01dd0 .DIRENT CASE.SRC ff 00 78 06 30,14
0x01dd0…01de0 .DIRENT MCINDX.OBJ ff 00 49 05 30,21
0x01de0…01df0 .DIRENT PDL ff 00 39 0a 30,27
0x01df0…01e00 .DIRENT TQMDEF.PDF ff 00 5b 06 30,38
0x01e00…01e10 (1, 0, 9) .DIRENT CTOLK.SRC ff 00 45 77 30,48
0x01e10…01e20 .DIRENT DORAGE.PDF ff 00 5e 02 35,29
0x01e20…01e30 .DIRENT MF0 ff 00 09 01 35,32
0x01e30…01e40 .DIRENT TTCOP.OBJ ff 00 19 07 35,34
0x01e40…01e50 .DIRENT LINK 00 05 12 67 36,52
0x01e50…01e60 .DIRENT MCINDX.SRC ff 00 09 24 35,42
0x01e60…01e70 .DIRENT IADDR.SRC ff 00 43 09 36,27
0x01e70…01e80 .DIRENT MDAMF2.OBJ ff 00 59 15 36,37
0x01e80…01e90 (1, 0, 10) .DIRENT MDAMF0.OBJ ff 00 4d 0a 39,7
0x01e90…01ea0 .DIRENT REALSS.OBJ ff 00 7a 09 39,18
0x01ea0…01eb0 .DIRENT VCRINT.LOG ff 00 04 10 39,28
0x01eb0…01ec0 .DIRENT MDAMF0.LOG ff 00 67 05 39,45
0x01ec0…01ed0 .DIRENT TQM.LIB ff 00 7a 0d 39,51
0x01ed0…01ee0 .DIRENT TEST.OBJ ff 00 49 1f 40,13
0x01ee0…01ef0 .DIRENT MPRT ff 00 33 02 40,45
0x01ef0…01f00 .DIRENT LINK.OVL 00 05 62 24 41,33
0x01f00…01f10 (1, 0, 11) .DIRENT START.OBJ ff 00 2b 2b 40,48
0x01f10…01f20 .DIRENT PBS.OBJ ff 00 3f 0d 42,25
0x01f20…01f30 .DIRENT IADDR.OBJ ff 00 5f 03 42,39
0x01f30…01f40 .DIRENT MTEST ff 00 30 01 42,43
0x01f40…01f50 .DIRENT MEDD ff 00 09 01 42,45
0x01f50…01f60 .DIRENT INF ff 00 50 02 42,47
0x01f60…01f70 .DIRENT LINK.CSD ff 00 05 04 42,50
0x01f70…01f80 .DIRENT IADDR.CSD ff 00 68 01 43,3
0x01f80…01f90 (1, 0, 12) .DIRENT TTCOP.SRC ff 00 64 38 43,5
0x01f90…01fa0 .DIRENT MCINDX.CSD ff 00 78 01 44,10
0x01fa0…01fb0 .DIRENT MESIND.OBJ ff 00 4b 02 44,12
0x01fb0…01fc0 .DIRENT SIOINT.SRC ff 00 76 22 44,15
0x01fc0…01fd0 .DIRENT MESIND.SRC ff 00 1a 12 44,50
0x01fd0…01fe0 .DIRENT MMC ff 00 09 01 45,17
0x01fe0…01ff0 .DIRENT MESIND.CSD ff 00 6d 01 45,19
0x01ff0…02000 .DIRENT MMES ff 00 09 01 45,21
0x02000…02010 (1, 0, 13) .DIRENT MF2 ff 00 4e 01 45,23
0x02010…02020 .DIRENT DEMAK.LIB ff 00 0c 27 45,25
0x02020…02030 .DIRENT TTCOP.CSD ff 00 56 01 46,13
0x02030…02040 .DIRENT MEXP ff 00 09 01 46,15
0x02040…02050 .DIRENT CTOLK.TST ff 00 0a 02 46,17
0x02050…02060 .DIRENT CHECK.ABS ff 00 20 0f 46,20
0x02060…02070 .DIRENT NYICE ff 00 53 68 46,36
0x02070…02080 .DIRENT QUEMES.PDF ff 00 33 07 48,38
0x02080…02090 (1, 0, 14) .DIRENT CHCOM.CSD ff 00 73 01 48,46
0x02090…020a0 .DIRENT CTOLK.OBJ ff 00 19 10 48,48
0x020a0…020b0 .DIRENT SIOMAC.PDF ff 00 01 09 49,13
0x020b0…020c0 .DIRENT LNKLOC.CSD ff 00 43 01 49,23
0x020c0…020d0 .DIRENT MDAM.PDF ff 00 15 02 49,25
0x020d0…020e0 .DIRENT MDAMF0.CSD ff 00 36 02 49,28
0x020e0…020f0 .DIRENT DATEXP.OBJ ff 00 7a 14 49,31
0x020f0…02100 .DIRENT EDDATA.OBJ ff 00 56 14 49,52
0x02100…02110 (1, 0, 15) .DIRENT MADJ ff 00 15 01 50,21
0x02110…02120 .DIRENT TTY ff 00 44 02 50,23
0x02120…02130 .DIRENT MTST ff 00 09 01 50,26
0x02130…02140 .DIRENT MSHI ff 00 09 01 50,28
0x02140…02150 .DIRENT START.SRC ff 00 5a 49 50,30
0x02150…02160 .DIRENT MINC ff 00 09 01 52,1
0x02160…02170 .DIRENT COMLIN.OBJ ff 00 0d 1a 52,3
0x02170…02180 .DIRENT MINT ff 00 09 01 52,30
0x02180…02190 (1, 0, 16) .DIRENT TEST ff 00 62 01 52,32
0x02190…021a0 .DIRENT TEST.CSD ff 00 0c 02 52,34
0x021a0…021b0 .DIRENT MCL ff 00 09 01 52,37
0x021b0…021c0 .DIRENT INTCAS.OBJ ff 00 55 89 52,39
0x021c0…021d0 .DIRENT MRED ff 00 1f 01 55,23
0x021d0…021e0 .DIRENT MDAMF0.SRC ff 00 53 89 56,30
0x021e0…021f0 .DIRENT TEST.SRC ff 00 5b 24 57,49
0x021f0…02200 .DIRENT MSEA ff 00 09 01 58,34
0x02200…02210 (1, 0, 17) .DIRENT VCRINT.PDF ff 00 61 09 58,36
0x02210…02220 .DIRENT MDAT ff 00 09 01 58,46
0x02220…02230 .DIRENT MDAMF0.BAK ff 00 52 8a 17,22
0x02230…02240 .DIRENT MDATA ff 00 09 01 60,2
0x02240…02250 .DIRENT MREP ff 00 10 01 60,4
0x02250…02260 .DIRENT MDEL ff 00 09 01 60,6
0x02260…02270 .DIRENT M15R ff 00 09 01 60,8
0x02270…02280 .DIRENT MDEC ff 00 09 01 60,10
0x02280…02290 (1, 0, 18) .DIRENT MCOM ff 00 09 01 60,12
0x02290…022a0 .DIRENT MASC ff 00 45 01 60,14
0x022a0…022b0 .DIRENT MCHK ff 00 51 01 60,16
0x022b0…022c0 .DIRENT MAP ff 00 66 04 60,18
0x022c0…022d0 .DIRENT MCUE ff 00 35 01 60,23
0x022d0…022e0 .DIRENT MRUL ff 00 09 01 60,25
0x022e0…022f0 .DIRENT VCRINT.SRC ff 00 5e 7c 60,27
0x022f0…02300 .DIRENT MDAMF2.CS ff 00 68 02 63,8
0x02300…02310 (1, 0, 19) .DIRENT MDAMF2.TMP ff 00 44 61 63,11
0x02310…02320 .DIRENT MACRO.TMP ff 00 80 03 65,6
0x02320…02330 .DIRENT MDAMF2.TMP ff 00 21 5a 58,48
0x02330…02340 .DIRENT MACRO.TMP ff 00 80 03 68,14
0x02340…02350 .DIRENT MRUL ff 00 09 01 63,37
0x02350…02360 .DIRENT MDAMF2.SRC ff 00 4f 39 63,39
0x02360…02370 .DIRENT 7f 00 00 00 0,0
[…0x39…]
0x02700…02780 (1, 0, 27) DataSector[»ISIS.LAB«]
[…0x19…]
0x03400…03480 (2, 0, 1) LinkageBlock[»ISIS.MAP«,0] {0,0 0,0 2,2 2,3 2,4 2,5 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x03480…03500 (2, 0, 2) DataSector[»ISIS.MAP«]
[…0x3…]
0x03680…03700 (2, 0, 6) LinkageBlock[»ISIS.BIN«,0] {0,0 3,17 2,7 2,8 2,9 2,10 2,11 2,12 2,13 2,14 2,15 2,16 2,17 2,18 2,19 2,20 2,21 2,22 2,23 2,24 2,25 2,26 2,27 2,28 2,29 2,30 2,31 2,32 2,33 2,34 2,35 2,36 2,37 2,38 2,39 2,40 2,41 2,42 2,43 2,44 2,45 2,46 2,47 2,48 2,49 2,50 2,51 2,52 3,1 3,2 3,3 3,4 3,5 3,6 3,7 3,8 3,9 3,10 3,11 3,12 3,13 3,14 3,15 3,16}
0x03700…03780 (2, 0, 7) DataSector[»ISIS.BIN«]
[…0x3d…]
0x05600…05680 (3, 0, 17) LinkageBlock[»ISIS.BIN«,1] {2,6 0,0 3,18 3,19 3,20 3,21 3,22 3,23 3,24 3,25 3,26 3,27 3,28 3,29 3,30 3,31 3,32 3,33 3,34 3,35 3,36 3,37 3,38 3,39 3,40 3,41 3,42 3,43 3,44 3,45 3,46 3,47 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x05680…05700 (3, 0, 18) DataSector[»ISIS.BIN«]
[…0x1d…]
0x06580…06600 (3, 0, 48) LinkageBlock[»ISIS.CLI«,0] {0,0 0,0 3,49 3,50 3,51 3,52 4,1 4,2 4,3 4,4 4,5 4,6 4,7 4,8 4,9 4,10 4,11 4,12 4,13 4,14 4,15 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x06600…06680 (3, 0, 49) DataSector[»ISIS.CLI«]
[…0x12…]
0x06f80…07000 (4, 0, 16) LinkageBlock[»TQM.LIB«,0] {0,0 0,0 4,17 4,18 4,19 4,20 4,21 4,22 4,23 4,24 4,25 4,26 4,27 4,28 4,29 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x07000…07080 (4, 0, 17) DataSector[»TQM.LIB«]
[…0xc…]
0x07680…07700 (4, 0, 30) LinkageBlock[»EHP.MAC«,0] {0,0 5,41 4,31 4,32 4,33 4,34 4,35 4,36 4,37 4,38 4,39 4,40 4,41 4,42 4,43 4,44 4,45 4,46 4,47 4,48 4,49 4,50 4,51 4,52 5,1 5,2 5,3 5,4 5,5 5,6 5,7 5,8 5,9 5,10 5,11 5,12 5,13 5,14 5,15 5,16 5,17 5,18 5,19 5,20 5,21 5,22 5,23 5,24 5,25 5,26 5,27 5,28 5,29 5,30 5,31 5,32 5,33 5,34 5,35 5,36 5,37 5,38 5,39 5,40}
0x07700…07780 (4, 0, 31) DataSector[»EHP.MAC«]
[…0x3d…]
0x09600…09680 (5, 0, 41) LinkageBlock[»EHP.MAC«,1] {4,30 13,46 5,42 5,43 5,44 5,45 5,46 5,47 5,48 8,1 8,2 8,3 8,4 8,5 8,6 8,7 8,8 8,9 8,10 8,11 8,12 8,13 8,14 8,15 8,16 8,17 8,18 8,19 8,20 13,11 13,12 13,13 13,14 13,15 13,16 13,17 13,18 13,19 13,20 13,21 13,22 13,23 13,24 13,25 13,26 13,27 13,28 13,29 13,30 13,31 13,32 13,33 13,34 13,35 13,36 13,37 13,38 13,39 13,40 13,41 13,42 13,43 13,44 13,45}
0x09680…09700 (5, 0, 42) DataSector[»EHP.MAC«]
[…0x6…]
0x09a00…09a80 (5, 0, 49) LinkageBlock[»COPY«,0] {0,0 7,8 5,50 5,51 5,52 6,1 6,2 6,3 6,4 6,5 6,6 6,7 6,8 6,9 6,10 6,11 6,12 6,13 6,14 6,15 6,16 6,17 6,18 6,19 6,20 6,21 6,22 6,23 6,24 6,25 6,26 6,27 6,28 6,29 6,30 6,31 6,32 6,33 6,34 6,35 6,36 6,37 6,38 6,39 6,40 6,41 6,42 6,43 6,44 6,45 6,46 6,47 6,48 6,49 6,50 6,51 6,52 7,1 7,2 7,3 7,4 7,5 7,6 7,7}
0x09a80…09b00 (5, 0, 50) DataSector[»COPY«]
[…0x3d…]
0x0b980…0ba00 (7, 0, 8) LinkageBlock[»COPY«,1] {5,49 0,0 7,9 7,10 7,11 7,12 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x0ba00…0ba80 (7, 0, 9) DataSector[»COPY«]
[…0x3…]
0x0bc00…0bc80 (7, 0, 13) LinkageBlock[»ATTRIB«,0] {0,0 0,0 7,14 7,15 7,16 7,17 7,18 7,19 7,20 7,21 7,22 7,23 7,24 7,25 7,26 7,27 7,28 7,29 7,30 7,31 7,32 7,33 7,34 7,35 7,36 7,37 7,38 7,39 7,40 7,41 7,42 7,43 7,44 7,45 7,46 7,47 7,48 7,49 7,50 7,51 7,52 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x0bc80…0bd00 (7, 0, 14) DataSector[»ATTRIB«]
[…0x26…]
0x0d000…0d080 (8, 0, 1) DataSector[»EHP.MAC«]
[…0x13…]
0x0da00…0da80 (8, 0, 21) LinkageBlock[»DELETE«,0] {0,0 0,0 8,22 8,23 8,24 8,25 8,26 8,27 8,28 8,29 8,30 8,31 8,32 8,33 8,34 8,35 8,36 8,37 8,38 8,39 8,40 8,41 8,42 8,43 8,44 8,45 8,46 8,47 8,48 8,49 8,50 8,51 8,52 9,1 9,2 9,3 9,4 9,5 9,6 9,7 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x0da80…0db00 (8, 0, 22) DataSector[»DELETE«]
[…0x25…]
0x0ed80…0ee00 (9, 0, 8) LinkageBlock[»DIR«,0] {0,0 0,0 9,9 9,10 9,11 9,12 9,13 9,14 9,15 9,16 9,17 9,18 9,19 9,20 9,21 9,22 9,23 9,24 9,25 9,26 9,27 9,28 9,29 9,30 9,31 9,32 9,33 9,34 9,35 9,36 9,37 9,38 9,39 9,40 9,41 9,42 9,43 9,44 9,45 9,46 9,47 9,48 9,49 9,50 9,51 9,52 10,1 10,2 10,3 10,4 10,5 10,6 10,7 10,8 10,9 10,10 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x0ee00…0ee80 (9, 0, 9) DataSector[»DIR«]
[…0x35…]
0x10900…10980 (10, 0, 11) LinkageBlock[»CREDIT«,0] {0,0 11,22 10,12 10,13 10,14 10,15 10,16 10,17 10,18 10,19 10,20 10,21 10,22 10,23 10,24 10,25 10,26 10,27 10,28 10,29 10,30 10,31 10,32 10,33 10,34 10,35 10,36 10,37 10,38 10,39 10,40 10,41 10,42 10,43 10,44 10,45 10,46 10,47 10,48 10,49 10,50 10,51 10,52 11,1 11,2 11,3 11,4 11,5 11,6 11,7 11,8 11,9 11,10 11,11 11,12 11,13 11,14 11,15 11,16 11,17 11,18 11,19 11,20 11,21}
0x10980…10a00 (10, 0, 12) DataSector[»CREDIT«]
[…0x3d…]
0x12880…12900 (11, 0, 22) LinkageBlock[»CREDIT«,1] {10,11 12,33 11,23 11,24 11,25 11,26 11,27 11,28 11,29 11,30 11,31 11,32 11,33 11,34 11,35 11,36 11,37 11,38 11,39 11,40 11,41 11,42 11,43 11,44 11,45 11,46 11,47 11,48 11,49 11,50 11,51 11,52 12,1 12,2 12,3 12,4 12,5 12,6 12,7 12,8 12,9 12,10 12,11 12,12 12,13 12,14 12,15 12,16 12,17 12,18 12,19 12,20 12,21 12,22 12,23 12,24 12,25 12,26 12,27 12,28 12,29 12,30 12,31 12,32}
0x12900…12980 (11, 0, 23) DataSector[»CREDIT«]
[…0x3d…]
0x14800…14880 (12, 0, 33) LinkageBlock[»CREDIT«,2] {11,22 0,0 12,34 12,35 12,36 12,37 12,38 12,39 12,40 12,41 12,42 12,43 12,44 12,45 12,46 12,47 12,48 12,49 12,50 12,51 12,52 13,1 13,2 13,3 13,4 13,5 13,6 13,7 13,8 13,9 13,10 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x14880…14900 (12, 0, 34) DataSector[»CREDIT«]
[…0x1c…]
0x15700…15780 (13, 0, 11) DataSector[»EHP.MAC«]
[…0x22…]
0x16880…16900 (13, 0, 46) LinkageBlock[»EHP.MAC«,2] {5,41 15,5 13,47 13,48 13,49 13,50 13,51 13,52 14,1 14,2 14,3 14,4 14,5 14,6 14,7 14,8 14,9 14,10 14,11 14,12 14,13 14,14 14,15 14,16 14,17 14,18 14,19 14,20 14,21 14,22 14,23 14,24 14,25 14,26 14,27 14,28 14,29 14,30 14,31 14,32 14,33 14,34 14,35 14,36 14,37 14,38 14,39 14,40 14,41 14,42 14,43 14,44 14,45 14,46 14,47 14,48 14,49 14,50 14,51 14,52 15,1 15,2 15,3 15,4}
0x16900…16980 (13, 0, 47) DataSector[»EHP.MAC«]
[…0x3d…]
0x18800…18880 (15, 0, 5) LinkageBlock[»EHP.MAC«,3] {13,46 0,0 15,6 15,7 15,8 15,9 15,10 15,11 15,12 15,13 15,14 15,15 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x18880…18900 (15, 0, 6) DataSector[»EHP.MAC«]
[…0x9…]
0x18d80…18e00 (15, 0, 16) LinkageBlock[»REAL.DOR«,0] {0,0 16,27 15,17 15,18 15,19 15,20 15,21 15,22 15,23 15,24 15,25 15,26 15,27 15,28 15,29 15,30 15,31 15,32 15,33 15,34 15,35 15,36 15,37 15,38 15,39 15,40 15,41 15,42 15,43 15,44 15,45 15,46 15,47 15,48 15,49 15,50 15,51 15,52 16,1 16,2 16,3 16,4 16,5 16,6 16,7 16,8 16,9 16,10 16,11 16,12 16,13 16,14 16,15 16,16 16,17 16,18 16,19 16,20 16,21 16,22 16,23 16,24 16,25 16,26}
0x18e00…18e80 (15, 0, 17) DataSector[»REAL.DOR«]
[…0x3d…]
0x1ad00…1ad80 (16, 0, 27) LinkageBlock[»REAL.DOR«,1] {15,16 0,0 16,28 16,29 16,30 16,31 16,32 16,33 16,34 16,35 16,36 16,37 16,38 16,39 16,40 16,41 16,42 16,43 16,44 16,45 16,46 16,47 16,48 16,49 16,50 16,51 16,52 17,1 17,2 17,3 17,4 17,5 17,6 17,7 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x1ad80…1ae00 (16, 0, 28) DataSector[»REAL.DOR«]
[…0x1f…]
0x1bd80…1be00 (17, 0, 8) LinkageBlock[»REAL.USE«,0] {0,0 0,0 17,9 17,10 17,11 17,12 17,13 17,14 17,15 17,16 17,17 17,18 17,19 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x1be00…1be80 (17, 0, 9) DataSector[»REAL.USE«]
[…0xa…]
0x1c380…1c400 (17, 0, 20) LinkageBlock[»TIMING.SRC«,0] {0,0 0,0 17,21 17,22 17,23 17,24 17,25 17,26 17,27 17,28 17,29 17,30 17,31 17,32 17,33 17,34 17,35 17,36 17,37 17,38 20,24 20,25 20,26 20,27 20,28 20,29 20,30 20,31 20,32 20,33 20,34 20,35 20,36 20,37 20,38 20,39 20,40 20,41 20,42 20,43 20,44 20,45 20,46 20,47 20,48 20,49 20,50 20,51 20,52 21,1 21,2 21,3 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x1c400…1c480 (17, 0, 21) DataSector[»TIMING.SRC«]
[…0x11…]
0x1cd00…1cd80 (17, 0, 39) LinkageBlock[»RENAME«,0] {0,0 0,0 17,40 17,41 17,42 17,43 17,44 17,45 17,46 17,47 17,48 17,49 17,50 17,51 17,52 18,1 18,2 18,3 18,4 18,5 18,6 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x1cd80…1ce00 (17, 0, 40) DataSector[»RENAME«]
[…0x12…]
0x1d700…1d780 (18, 0, 7) LinkageBlock[»DO«,0] {0,0 0,0 18,8 18,9 18,10 18,11 18,12 18,13 18,14 18,15 18,16 18,17 18,18 18,19 18,20 18,21 18,22 18,23 18,24 18,25 18,26 18,27 18,28 18,29 18,30 18,31 18,32 18,33 18,34 18,35 18,36 18,37 18,38 18,39 18,40 18,41 18,42 18,43 18,44 18,45 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x1d780…1d800 (18, 0, 8) DataSector[»DO«]
[…0x25…]
0x1ea80…1eb00 (18, 0, 46) LinkageBlock[»LIB«,0] {0,0 20,5 18,47 18,48 18,49 18,50 18,51 18,52 19,1 19,2 19,3 19,4 19,5 19,6 19,7 19,8 19,9 19,10 19,11 19,12 19,13 19,14 19,15 19,16 19,17 19,18 19,19 19,20 19,21 19,22 19,23 19,24 19,25 19,26 19,27 19,28 19,29 19,30 19,31 19,32 19,33 19,34 19,35 19,36 19,37 19,38 19,39 19,40 19,41 19,42 19,43 19,44 19,45 19,46 19,47 19,48 19,49 19,50 19,51 19,52 20,1 20,2 20,3 20,4}
0x1eb00…1eb80 (18, 0, 47) DataSector[»LIB«]
[…0x3d…]
0x20a00…20a80 (20, 0, 5) LinkageBlock[»LIB«,1] {18,46 0,0 20,6 20,7 20,8 20,9 20,10 20,11 20,12 20,13 20,14 20,15 20,16 20,17 20,18 20,19 20,20 20,21 20,22 20,23 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x20a80…20b00 (20, 0, 6) DataSector[»LIB«]
[…0x11…]
0x21380…21400 (20, 0, 24) DataSector[»TIMING.SRC«]
[…0x1f…]
0x22380…22400 (21, 0, 4) LinkageBlock[»ATR.CSD«,0] {0,0 0,0 21,5 21,6 21,7 21,8 21,9 21,10 21,11 21,12 21,13 21,14 21,15 21,16 21,17 21,18 21,19 21,20 21,21 21,22 21,23 21,24 21,25 21,26 21,27 21,28 21,29 21,30 21,31 21,32 21,33 21,34 21,35 21,36 21,37 21,38 21,39 21,40 21,41 21,42 21,43 21,44 21,45 21,46 21,47 21,48 21,49 21,50 21,51 21,52 22,1 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x22400…22480 (21, 0, 5) DataSector[»ATR.CSD«]
[…0x30…]
0x23c80…23d00 (22, 0, 2) LinkageBlock[»DDP.USE«,0] {0,0 0,0 22,3 22,4 22,5 22,6 22,7 22,8 22,9 22,10 22,11 22,12 22,13 22,14 22,15 22,16 22,17 22,18 22,19 22,20 22,21 22,22 22,23 22,24 22,25 22,26 22,27 22,28 22,29 22,30 22,31 22,32 22,33 22,34 22,35 22,36 22,37 22,38 22,39 22,40 22,41 22,42 22,43 22,44 22,45 22,46 22,47 22,48 22,49 22,50 22,51 22,52 23,1 23,2 23,3 23,4 23,5 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x23d00…23d80 (22, 0, 3) DataSector[»DDP.USE«]
[…0x36…]
0x25880…25900 (23, 0, 6) LinkageBlock[»INSPEC.SRC«,0] {0,0 24,17 23,7 23,8 23,9 23,10 23,11 23,12 23,13 23,14 23,15 23,16 23,17 23,18 23,19 23,20 23,21 23,22 23,23 23,24 23,25 23,26 23,27 23,28 23,29 23,30 23,31 23,32 23,33 23,34 23,35 23,36 23,37 23,38 23,39 23,40 23,41 23,42 23,43 23,44 23,45 23,46 23,47 23,48 23,49 23,50 23,51 23,52 24,1 24,2 24,3 24,4 24,5 24,6 24,7 24,8 24,9 24,10 24,11 24,12 24,13 24,14 24,15 24,16}
0x25900…25980 (23, 0, 7) DataSector[»INSPEC.SRC«]
[…0x3d…]
0x27800…27880 (24, 0, 17) LinkageBlock[»INSPEC.SRC«,1] {23,6 0,0 24,18 24,19 24,20 24,21 24,22 24,23 24,24 24,25 24,26 24,27 24,28 24,29 24,30 24,31 24,32 24,33 24,34 24,35 24,36 24,37 24,38 24,39 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x27880…27900 (24, 0, 18) DataSector[»INSPEC.SRC«]
[…0x15…]
0x28380…28400 (24, 0, 40) LinkageBlock[»DDP.MAC«,0] {0,0 25,51 24,41 24,42 24,43 24,44 24,45 24,46 24,47 24,48 24,49 24,50 24,51 24,52 25,1 25,2 25,3 25,4 25,5 25,6 25,7 25,8 25,9 25,10 25,11 25,12 25,13 25,14 25,15 25,16 25,17 25,18 25,19 25,20 25,21 25,22 25,23 25,24 25,25 25,26 25,27 25,28 25,29 25,30 25,31 25,32 25,33 25,34 25,35 25,36 25,37 25,38 25,39 25,40 25,41 25,42 25,43 25,44 25,45 25,46 25,47 25,48 25,49 25,50}
0x28400…28480 (24, 0, 41) DataSector[»DDP.MAC«]
[…0x3d…]
0x2a300…2a380 (25, 0, 51) LinkageBlock[»DDP.MAC«,1] {24,40 27,10 25,52 26,1 26,2 26,3 26,4 26,5 26,6 26,7 26,8 26,9 26,10 26,11 26,12 26,13 26,14 26,15 26,16 26,17 26,18 26,19 26,20 26,21 26,22 26,23 26,24 26,25 26,26 26,27 26,28 26,29 26,30 26,31 26,32 26,33 26,34 26,35 26,36 26,37 26,38 26,39 26,40 26,41 26,42 26,43 26,44 26,45 26,46 26,47 26,48 26,49 26,50 26,51 26,52 27,1 27,2 27,3 27,4 27,5 27,6 27,7 27,8 27,9}
0x2a380…2a400 (25, 0, 52) DataSector[»DDP.MAC«]
[…0x3d…]
0x2c280…2c300 (27, 0, 10) LinkageBlock[»DDP.MAC«,2] {25,51 28,21 27,11 27,12 27,13 27,14 27,15 27,16 27,17 27,18 27,19 27,20 27,21 27,22 27,23 27,24 27,25 27,26 27,27 27,28 27,29 27,30 27,31 27,32 27,33 27,34 27,35 27,36 27,37 27,38 27,39 27,40 27,41 27,42 27,43 27,44 27,45 27,46 27,47 27,48 27,49 27,50 27,51 27,52 28,1 28,2 28,3 28,4 28,5 28,6 28,7 28,8 28,9 28,10 28,11 28,12 28,13 28,14 28,15 28,16 28,17 28,18 28,19 28,20}
0x2c300…2c380 (27, 0, 11) DataSector[»DDP.MAC«]
[…0x3d…]
0x2e200…2e280 (28, 0, 21) LinkageBlock[»DDP.MAC«,3] {27,10 29,32 28,22 28,23 28,24 28,25 28,26 28,27 28,28 28,29 28,30 28,31 28,32 28,33 28,34 28,35 28,36 28,37 28,38 28,39 28,40 28,41 28,42 28,43 28,44 28,45 28,46 28,47 28,48 28,49 28,50 28,51 28,52 29,1 29,2 29,3 29,4 29,5 29,6 29,7 29,8 29,9 29,10 29,11 29,12 29,13 29,14 29,15 29,16 29,17 29,18 29,19 29,20 29,21 29,22 29,23 29,24 29,25 29,26 29,27 29,28 29,29 29,30 29,31}
0x2e280…2e300 (28, 0, 22) DataSector[»DDP.MAC«]
[…0x3d…]
0x30180…30200 (29, 0, 32) LinkageBlock[»DDP.MAC«,4] {28,21 30,43 29,33 29,34 29,35 29,36 29,37 29,38 29,39 29,40 29,41 29,42 29,43 29,44 29,45 29,46 29,47 29,48 29,49 29,50 29,51 29,52 30,1 30,2 30,3 30,4 30,5 30,6 30,7 30,8 30,9 30,10 30,11 30,12 30,13 30,14 30,15 30,16 30,17 30,18 30,19 30,20 30,21 30,22 30,23 30,24 30,25 30,26 30,27 30,28 30,29 30,30 30,31 30,32 30,33 30,34 30,35 30,36 30,37 30,38 30,39 30,40 30,41 30,42}
0x30200…30280 (29, 0, 33) DataSector[»DDP.MAC«]
[…0x3d…]
0x32100…32180 (30, 0, 43) LinkageBlock[»DDP.MAC«,5] {29,32 34,21 30,44 30,48 30,49 30,50 30,51 30,52 33,17 33,18 33,19 33,20 33,21 33,22 33,23 33,24 33,25 33,26 33,27 33,28 33,29 33,30 33,31 33,32 33,33 33,34 33,35 33,36 33,37 33,38 33,39 33,40 33,41 33,42 33,43 33,44 33,45 33,46 33,47 33,48 33,49 33,50 33,51 33,52 34,1 34,2 34,3 34,4 34,5 34,6 34,7 34,8 34,9 34,10 34,11 34,12 34,13 34,14 34,15 34,16 34,17 34,18 34,19 34,20}
0x32180…32200 (30, 0, 44) DataSector[»DDP.MAC«]
0x32200…32280 (30, 0, 45) LinkageBlock[»PAGE«,0] {0,0 0,0 30,46 30,47 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x32280…32300 (30, 0, 46) DataSector[»PAGE«]
[…0x1…]
0x32380…32400 (30, 0, 48) DataSector[»DDP.MAC«]
[…0x4…]
0x32600…32680 (31, 0, 1) LinkageBlock[»LOCATE«,0] {0,0 32,12 31,2 31,3 31,4 31,5 31,6 31,7 31,8 31,9 31,10 31,11 31,12 31,13 31,14 31,15 31,16 31,17 31,18 31,19 31,20 31,21 31,22 31,23 31,24 31,25 31,26 31,27 31,28 31,29 31,30 31,31 31,32 31,33 31,34 31,35 31,36 31,37 31,38 31,39 31,40 31,41 31,42 31,43 31,44 31,45 31,46 31,47 31,48 31,49 31,50 31,51 31,52 32,1 32,2 32,3 32,4 32,5 32,6 32,7 32,8 32,9 32,10 32,11}
0x32680…32700 (31, 0, 2) DataSector[»LOCATE«]
[…0x3d…]
0x34580…34600 (32, 0, 12) LinkageBlock[»LOCATE«,1] {31,1 0,0 32,13 32,14 32,15 32,16 32,17 32,18 32,19 32,20 32,21 32,22 32,23 32,24 32,25 32,26 32,27 32,28 32,29 32,30 32,31 32,32 32,33 32,34 32,35 32,36 32,37 32,38 32,39 32,40 32,41 32,42 32,43 32,44 32,45 32,46 32,47 32,48 32,49 32,50 32,51 32,52 33,1 33,2 33,3 33,4 33,5 33,6 33,7 33,8 33,9 33,10 33,11 33,12 33,13 33,14 33,15 33,16 0,0 0,0 0,0 0,0 0,0 0,0}
0x34600…34680 (32, 0, 13) DataSector[»LOCATE«]
[…0x37…]
0x36200…36280 (33, 0, 17) DataSector[»DDP.MAC«]
[…0x37…]
0x37e00…37e80 (34, 0, 21) LinkageBlock[»DDP.MAC«,6] {30,43 35,32 34,22 34,23 34,24 34,25 34,26 34,27 34,28 34,29 34,30 34,31 34,32 34,33 34,34 34,35 34,36 34,37 34,38 34,39 34,40 34,41 34,42 34,43 34,44 34,45 34,46 34,47 34,48 34,49 34,50 34,51 34,52 35,1 35,2 35,3 35,4 35,5 35,6 35,7 35,8 35,9 35,10 35,11 35,12 35,13 35,14 35,15 35,16 35,17 35,18 35,19 35,20 35,21 35,22 35,23 35,24 35,25 35,26 35,27 35,28 35,29 35,30 35,31}
0x37e80…37f00 (34, 0, 22) DataSector[»DDP.MAC«]
[…0x3d…]
0x39d80…39e00 (35, 0, 32) LinkageBlock[»DDP.MAC«,7] {34,21 36,43 35,33 35,34 35,35 35,36 35,37 35,38 35,39 35,40 35,41 35,42 35,43 35,44 35,45 35,46 35,47 35,48 35,49 35,50 35,51 35,52 36,1 36,2 36,3 36,4 36,5 36,6 36,7 36,8 36,9 36,10 36,11 36,12 36,13 36,14 36,15 36,16 36,17 36,18 36,19 36,20 36,21 36,22 36,23 36,24 36,25 36,26 36,27 36,28 36,29 36,30 36,31 36,32 36,33 36,34 36,35 36,36 36,37 36,38 36,39 36,40 36,41 36,42}
0x39e00…39e80 (35, 0, 33) DataSector[»DDP.MAC«]
[…0x3d…]
0x3bd00…3bd80 (36, 0, 43) LinkageBlock[»DDP.MAC«,8] {35,32 0,0 36,44 36,45 36,46 36,47 36,48 36,49 36,50 36,51 39,1 39,2 39,3 39,4 39,5 39,6 39,7 39,8 39,9 39,10 39,11 39,12 39,13 39,14 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x3bd80…3be00 (36, 0, 44) DataSector[»DDP.MAC«]
[…0x7…]
0x3c180…3c200 (36, 0, 52) LinkageBlock[»LINK«,0] {0,0 38,11 37,1 37,2 37,3 37,4 37,5 37,6 37,7 37,8 37,9 37,10 37,11 37,12 37,13 37,14 37,15 37,16 37,17 37,18 37,19 37,20 37,21 37,22 37,23 37,24 37,25 37,26 37,27 37,28 37,29 37,30 37,31 37,32 37,33 37,34 37,35 37,36 37,37 37,38 37,39 37,40 37,41 37,42 37,43 37,44 37,45 37,46 37,47 37,48 37,49 37,50 37,51 37,52 38,1 38,2 38,3 38,4 38,5 38,6 38,7 38,8 38,9 38,10}
0x3c200…3c280 (37, 0, 1) DataSector[»LINK«]
[…0x3d…]
0x3e100…3e180 (38, 0, 11) LinkageBlock[»LINK«,1] {36,52 0,0 38,12 38,13 38,14 38,15 38,16 38,17 38,18 38,19 38,20 38,21 38,22 38,23 38,24 38,25 38,26 38,27 38,28 38,29 38,30 38,31 38,32 38,33 38,34 38,35 38,36 38,37 38,38 38,39 38,40 38,41 38,42 38,43 38,44 38,45 38,46 38,47 38,48 38,49 38,50 38,51 38,52 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x3e180…3e200 (38, 0, 12) DataSector[»LINK«]
[…0x28…]
0x3f600…3f680 (39, 0, 1) DataSector[»DDP.MAC«]
[…0xd…]
0x3fd00…3fd80 (39, 0, 15) LinkageBlock[»EHP.USE«,0] {0,0 0,0 39,16 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x3fd80…3fe00 (39, 0, 16) DataSector[»EHP.USE«]
0x3fe00…3fe80 (39, 0, 17) LinkageBlock[»DECODE.SRC«,0] {0,0 40,28 39,18 39,19 39,20 39,21 39,22 39,23 39,24 39,25 39,26 39,27 39,28 39,29 39,30 39,31 39,32 39,33 39,34 39,35 39,36 39,37 39,38 39,39 39,40 39,41 39,42 39,43 39,44 39,45 39,46 39,47 39,48 39,49 39,50 39,51 39,52 40,1 40,2 40,3 40,4 40,5 40,6 40,7 40,8 40,9 40,10 40,11 40,12 40,13 40,14 40,15 40,16 40,17 40,18 40,19 40,20 40,21 40,22 40,23 40,24 40,25 40,26 40,27}
0x3fe80…3ff00 (39, 0, 18) DataSector[»DECODE.SRC«]
[…0x3d…]
0x41d80…41e00 (40, 0, 28) LinkageBlock[»DECODE.SRC«,1] {39,17 42,24 40,29 40,30 40,31 40,32 40,33 40,34 40,35 40,36 40,37 40,38 40,39 40,40 40,41 40,42 40,43 40,44 40,45 40,46 40,47 40,48 40,49 40,50 40,51 40,52 41,1 41,2 41,3 41,4 41,5 41,6 41,7 41,8 41,9 41,10 41,11 41,12 41,13 41,14 41,15 41,16 41,17 41,18 41,19 41,20 41,21 41,22 41,23 41,24 41,25 41,26 41,27 41,28 41,29 41,30 41,31 41,32 42,18 42,19 42,20 42,21 42,22 42,23}
0x41e00…41e80 (40, 0, 29) DataSector[»DECODE.SRC«]
[…0x37…]
0x43a00…43a80 (41, 0, 33) LinkageBlock[»LINK.OVL«,0] {0,0 0,0 41,34 41,35 41,36 41,37 41,38 41,39 41,40 41,41 41,42 41,43 41,44 41,45 41,46 41,47 41,48 41,49 41,50 41,51 41,52 42,1 42,2 42,3 42,4 42,5 42,6 42,7 42,8 42,9 42,10 42,11 42,12 42,13 42,14 42,15 42,16 42,17 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x43a80…43b00 (41, 0, 34) DataSector[»LINK.OVL«]
[…0x23…]
0x44c80…44d00 (42, 0, 18) DataSector[»DECODE.SRC«]
[…0x5…]
0x44f80…45000 (42, 0, 24) LinkageBlock[»DECODE.SRC«,2] {40,28 0,0 42,25 42,26 42,27 42,28 42,29 42,30 42,31 42,32 42,33 42,34 42,35 42,36 42,37 42,38 42,39 42,40 42,41 42,42 42,43 42,44 42,45 42,46 42,47 42,48 42,49 42,50 42,51 42,52 43,1 43,2 43,3 43,4 43,5 43,6 43,7 43,8 43,9 43,10 43,11 43,12 43,13 43,14 43,15 43,16 43,17 43,18 43,19 43,20 43,21 43,22 43,23 43,24 43,25 43,26 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x45000…45080 (42, 0, 25) DataSector[»DECODE.SRC«]
[…0x35…]
0x46b00…46b80 (43, 0, 27) LinkageBlock[»EXTRN.SRC«,0] {0,0 0,0 43,28 43,29 43,30 43,31 43,32 43,33 43,34 43,35 43,36 43,37 43,38 43,39 43,40 43,41 43,42 43,43 43,44 43,45 43,46 43,47 43,48 43,49 43,50 43,51 43,52 44,1 44,2 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x46b80…46c00 (43, 0, 28) DataSector[»EXTRN.SRC«]
[…0x1a…]
0x47900…47980 (44, 0, 3) LinkageBlock[»TEST.SRC«,0] {0,0 45,14 44,4 44,5 44,6 44,7 44,8 44,9 44,10 44,11 44,12 44,13 44,14 44,15 44,16 44,17 44,18 44,19 44,20 44,21 44,22 44,23 44,24 44,25 44,26 44,27 44,28 44,29 44,30 44,31 44,32 44,33 44,34 44,35 44,36 44,37 44,38 44,39 44,40 44,41 44,42 44,43 44,44 44,45 44,46 44,47 44,48 44,49 44,50 44,51 44,52 45,1 45,2 45,3 45,4 45,5 45,6 45,7 45,8 45,9 45,10 45,11 45,12 45,13}
0x47980…47a00 (44, 0, 4) DataSector[»TEST.SRC«]
[…0x3d…]
0x49880…49900 (45, 0, 14) LinkageBlock[»TEST.SRC«,1] {44,3 0,0 45,15 45,16 45,17 45,18 45,19 45,20 45,21 45,22 45,23 45,24 45,25 45,26 45,27 45,28 45,29 45,30 45,31 45,32 45,33 45,34 45,35 45,36 45,37 45,38 45,39 45,40 45,41 45,42 45,43 45,44 45,45 45,46 45,47 45,48 45,49 45,50 45,51 45,52 46,1 46,2 46,3 46,4 46,5 46,6 46,7 46,8 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x49900…49980 (45, 0, 15) DataSector[»TEST.SRC«]
[…0x2d…]
0x4b000…4b080 (46, 0, 9) LinkageBlock[»STSCAN.SRC«,0] {0,0 0,0 46,10 46,11 46,12 46,13 46,14 46,15 46,16 46,17 46,18 46,19 46,20 46,21 46,22 46,23 46,24 46,25 46,26 46,27 46,28 46,29 46,30 46,31 46,32 46,33 46,34 46,35 46,36 46,37 46,38 46,39 46,40 46,41 46,42 46,43 46,44 46,45 46,46 46,47 46,48 46,49 46,50 46,51 46,52 47,1 47,2 47,3 47,4 47,5 47,6 47,7 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x4b080…4b100 (46, 0, 10) DataSector[»STSCAN.SRC«]
[…0x31…]
0x4c980…4ca00 (47, 0, 8) LinkageBlock[»DEVNOR.SRC«,0] {0,0 0,0 47,9 47,10 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x4ca00…4ca80 (47, 0, 9) DataSector[»DEVNOR.SRC«]
[…0x1…]
0x4cb00…4cb80 (47, 0, 11) LinkageBlock[»TCREAD.SRC«,0] {0,0 48,22 47,12 47,13 47,14 47,15 47,16 47,17 47,18 47,19 47,20 47,21 47,22 47,23 47,24 47,25 47,26 47,27 47,28 47,29 47,30 47,31 47,32 47,33 47,34 47,35 47,36 47,37 47,38 47,39 47,40 47,41 47,42 47,43 47,44 47,45 47,46 47,47 47,48 47,49 47,50 47,51 47,52 48,1 48,2 48,3 48,4 48,5 48,6 48,7 48,8 48,9 48,10 48,11 48,12 48,13 48,14 48,15 48,16 48,17 48,18 48,19 48,20 48,21}
0x4cb80…4cc00 (47, 0, 12) DataSector[»TCREAD.SRC«]
[…0x3d…]
0x4ea80…4eb00 (48, 0, 22) LinkageBlock[»TCREAD.SRC«,1] {47,11 0,0 48,23 48,24 48,25 48,26 48,27 48,28 48,29 48,30 48,31 48,32 48,33 48,34 48,35 48,36 48,37 48,38 48,39 48,40 48,41 48,42 48,43 48,44 48,45 48,46 48,47 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x4eb00…4eb80 (48, 0, 23) DataSector[»TCREAD.SRC«]
[…0x18…]
0x4f780…4f800 (48, 0, 48) LinkageBlock[»STATU.SRC«,0] {0,0 50,7 48,49 48,50 48,51 48,52 49,1 49,2 49,3 49,4 49,5 49,6 49,7 49,8 49,9 49,10 49,11 49,12 49,13 49,14 49,15 49,16 49,17 49,18 49,19 49,20 49,21 49,22 49,23 49,24 49,25 49,26 49,27 49,28 49,29 49,30 49,31 49,32 49,33 49,34 49,35 49,36 49,37 49,38 49,39 49,40 49,41 49,42 49,43 49,44 49,45 49,46 49,47 49,48 49,49 49,50 49,51 49,52 50,1 50,2 50,3 50,4 50,5 50,6}
0x4f800…4f880 (48, 0, 49) DataSector[»STATU.SRC«]
[…0x3d…]
0x51700…51780 (50, 0, 7) LinkageBlock[»STATU.SRC«,1] {48,48 51,18 50,8 50,9 50,10 50,11 50,12 50,13 50,14 50,15 50,16 50,17 50,18 50,19 50,20 50,21 50,22 50,23 50,24 50,25 50,26 50,27 50,28 50,29 50,30 50,31 50,32 50,33 50,34 50,35 50,36 50,37 50,38 50,39 50,40 50,41 50,42 50,43 50,44 50,45 50,46 50,47 50,48 50,49 50,50 50,51 50,52 51,1 51,2 51,3 51,4 51,5 51,6 51,7 51,8 51,9 51,10 51,11 51,12 51,13 51,14 51,15 51,16 51,17}
0x51780…51800 (50, 0, 8) DataSector[»STATU.SRC«]
[…0x3d…]
0x53680…53700 (51, 0, 18) LinkageBlock[»STATU.SRC«,2] {50,7 0,0 51,19 51,20 51,21 51,22 51,23 51,24 51,25 51,26 51,27 51,28 51,29 51,30 51,31 51,32 51,33 51,34 51,35 51,36 51,37 51,38 51,39 51,40 51,41 51,42 51,43 51,44 51,45 51,46 51,47 51,48 51,49 51,50 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x53700…53780 (51, 0, 19) DataSector[»STATU.SRC«]
[…0x1f…]
0x54700…54780 (51, 0, 51) LinkageBlock[»SEARCH.SRC«,0] {0,0 53,10 51,52 52,1 52,2 52,3 52,4 52,5 52,6 52,7 52,8 52,9 52,10 52,11 52,12 52,13 52,14 52,15 52,16 52,17 52,18 52,19 52,20 52,21 52,22 52,23 52,24 52,25 52,26 52,27 52,28 52,29 52,30 52,31 52,32 52,33 52,34 52,35 52,36 52,37 52,38 52,39 52,40 52,41 52,42 52,43 52,44 52,45 52,46 52,47 52,48 52,49 52,50 52,51 52,52 53,1 53,2 53,3 53,4 53,5 53,6 53,7 53,8 53,9}
0x54780…54800 (51, 0, 52) DataSector[»SEARCH.SRC«]
[…0x3d…]
0x56680…56700 (53, 0, 10) LinkageBlock[»SEARCH.SRC«,1] {51,51 0,0 53,11 53,12 53,13 53,14 53,15 53,16 53,17 53,18 53,19 53,20 53,21 53,22 53,23 53,24 53,25 53,26 53,27 53,28 53,29 53,30 53,31 53,32 53,33 53,34 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x56700…56780 (53, 0, 11) DataSector[»SEARCH.SRC«]
[…0x17…]
0x57300…57380 (53, 0, 35) LinkageBlock[»SYNCRO.SRC«,0] {0,0 54,46 53,36 53,37 53,38 53,39 53,40 53,41 53,42 53,43 53,44 53,45 53,46 53,47 53,48 53,49 53,50 53,51 53,52 54,1 54,2 54,3 54,4 54,5 54,6 54,7 54,8 54,9 54,10 54,11 54,12 54,13 54,14 54,15 54,16 54,17 54,18 54,19 54,20 54,21 54,22 54,23 54,24 54,25 54,26 54,27 54,28 54,29 54,30 54,31 54,32 54,33 54,34 54,35 54,36 54,37 54,38 54,39 54,40 54,41 54,42 54,43 54,44 54,45}
0x57380…57400 (53, 0, 36) DataSector[»SYNCRO.SRC«]
[…0x3d…]
0x59280…59300 (54, 0, 46) LinkageBlock[»SYNCRO.SRC«,1] {53,35 0,0 54,47 54,48 54,49 54,50 54,51 54,52 55,1 55,2 55,3 55,4 55,5 55,6 55,7 55,8 55,9 55,10 55,11 55,12 55,13 55,14 55,15 55,16 55,17 55,18 55,19 55,20 55,21 55,22 55,23 55,24 55,25 55,26 55,27 55,28 55,29 55,30 55,31 55,32 55,33 55,34 55,35 55,36 55,37 55,38 55,39 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x59300…59380 (54, 0, 47) DataSector[»SYNCRO.SRC«]
[…0x2c…]
0x5a980…5aa00 (55, 0, 40) LinkageBlock[»LOCK.SRC«,0] {0,0 56,51 55,41 55,42 55,43 55,44 55,45 55,46 55,47 55,48 55,49 55,50 55,51 55,52 56,1 56,2 56,3 56,4 56,5 56,6 56,7 56,8 56,9 56,10 56,11 56,12 56,13 56,14 56,15 56,16 56,17 56,18 56,19 56,20 56,21 56,22 56,23 56,24 56,25 56,26 56,27 56,28 56,29 56,30 56,31 56,32 56,33 56,34 56,35 56,36 56,37 56,38 56,39 56,40 56,41 56,42 56,43 56,44 56,45 56,46 56,47 56,48 56,49 56,50}
0x5aa00…5aa80 (55, 0, 41) DataSector[»LOCK.SRC«]
[…0x3d…]
0x5c900…5c980 (56, 0, 51) LinkageBlock[»LOCK.SRC«,1] {55,40 58,10 56,52 57,1 57,2 57,3 57,4 57,5 57,6 57,7 57,8 57,9 57,10 57,11 57,12 57,13 57,14 57,15 57,16 57,17 57,18 57,19 57,20 57,21 57,22 57,23 57,24 57,25 57,26 57,27 57,28 57,29 57,30 57,31 57,32 57,33 57,34 57,35 57,36 57,37 57,38 57,39 57,40 57,41 57,42 57,43 57,44 57,45 57,46 57,47 57,48 57,49 57,50 57,51 57,52 58,1 58,2 58,3 58,4 58,5 58,6 58,7 58,8 58,9}
0x5c980…5ca00 (56, 0, 52) DataSector[»LOCK.SRC«]
[…0x3d…]
0x5e880…5e900 (58, 0, 10) LinkageBlock[»LOCK.SRC«,2] {56,51 0,0 58,11 58,12 58,13 58,14 58,15 58,16 58,17 58,18 58,19 58,20 58,21 58,22 58,23 58,24 58,25 58,26 58,27 58,28 58,29 58,30 58,31 58,32 58,33 58,34 58,35 58,36 58,37 58,38 58,39 58,40 58,41 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x5e900…5e980 (58, 0, 11) DataSector[»LOCK.SRC«]
[…0x1e…]
0x5f880…5f900 (58, 0, 42) LinkageBlock[»ATR6.ABS«,0] {0,0 60,1 58,43 58,44 58,45 58,46 58,47 58,48 58,49 58,50 58,51 58,52 59,1 59,2 59,3 59,4 59,5 59,6 59,7 59,8 59,9 59,10 59,11 59,12 59,13 59,14 59,15 59,16 59,17 59,18 59,19 59,20 59,21 59,22 59,23 59,24 59,25 59,26 59,27 59,28 59,29 59,30 59,31 59,32 59,33 59,34 59,35 59,36 59,37 59,38 59,39 59,40 59,41 59,42 59,43 59,44 59,45 59,46 59,47 59,48 59,49 59,50 59,51 59,52}
0x5f900…5f980 (58, 0, 43) DataSector[»ATR6.ABS«]
[…0x3d…]
0x61800…61880 (60, 0, 1) LinkageBlock[»ATR6.ABS«,1] {58,42 0,0 60,2 60,3 60,4 60,5 60,6 60,7 60,8 60,9 60,10 60,11 60,12 60,13 60,14 60,15 60,16 60,17 60,18 60,19 60,20 60,21 60,22 60,23 60,24 60,25 60,26 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0 0,0}
0x61880…61900 (60, 0, 2) DataSector[»ATR6.ABS«]
[…0x18…]
0x62500…62580 (60, 0, 27) UnusedSector ┆ &= < < < < <!<"<#<$<%<&<'<(<)<*<+<,<-<.</<0<1<2<3<4< = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =!="=#=$=%=┆
0x62580…62600 (60, 0, 28) UnusedSector ┆ LIST S NAME VCRINT ;****************************************************************** ; ; DATE: CHRISTIAN ┆
0x62600…62680 (60, 0, 29) UnusedSector ┆ROVSING A/S 81 00 00 ; PROGRAMMER : SAA ; SUBJECT : THE COMMAND INTERPRETER ; X ; X ; X ; X ; X ; ┆
0x62680…62700 (60, 0, 30) UnusedSector ┆ CORRECTION ; PREVERSION: ; DATE :810000.0000 ; STATUS : ; BY : ; ; ; TEST ; DATE :810000.0000 ; STA┆
0x62700…62780 (60, 0, 31) UnusedSector ┆TUS :NT ; BY :SAA ; ; ;******************************************************************** EJEC PUBLIC VCRINT,INTT┆
0x62780…62800 (60, 0, 32) UnusedSector ┆IM,INTCOM,RINTCOM PUBLIC CSTATUS,COMINDX,COMPTR,CHILD0,CHILD1 PUBLIC CLSTA,RCLSTA,CSCHED,C2SCHED,ICSCHED,INFCLP,RETDB PUBL┆
0x62800…62880 (60, 0, 33) UnusedSector ┆IC ZTTC,Z1TTC,CLSET PUBLIC CR80M,CCR80M,CACTIV,INTDAT EXTRN SYSRAM,SUBENQ,SUBDEQ,SCOMMON EXTRN DECCOM,CERRTXT,ERRTXT,PARMD┆
0x62880…62900 (60, 0, 34) UnusedSector ┆ATA EXTRN TREQH,TRFQH,RCEQH,RCFQH,MDAMCOM EXTRN CHRECORD,MDAMMODE,MDM1ACCS,MDM2ACCS EXTRN CASE,IOICH,EXPCOM,VCR15C,VCR16C ┆
0x62900…62980 (60, 0, 35) UnusedSector ┆ EXTRN GETBUF,SENDBUF,ESTABR EXTRN MCSEND,MCINDX,MESINDX EXTRN PLUMIN,MIN,PANEL,INDUD,BVTRS EXTRN ADD2TTC,SUB2TTC EXTRN┆
0x62980…62a00 (60, 0, 36) UnusedSector ┆ CRED,REDR,CSEA,SEAR,SEAMR,SEASR,CASC EXTRN CSHIFT,SHIR,IUINDX,SCHREC EXTRN CDEL,DELR,CRUL,RULR,CMS3,CMS4,CENTER,CSTOP EXT┆
0x62a00…62a80 (60, 0, 37) UnusedSector ┆RN CSEND,CMODT,CPAU,CSLU,CREP,CINC,CCUE,CUER EXTRN SEASTA DSEG ;-------------------------- R A M D A T A ----------┆
0x62a80…62b00 (60, 0, 38) UnusedSector ┆-------------------- ;-------------------------------------------- INTCOM:DS 8 ;INTCOM: RECORD OF SPARE:BYTE , ; EL┆
0x62b00…62b80 (60, 0, 39) UnusedSector ┆EMTS:BYTE , ; FIRST:ADDRESS , ; LAST: ADDRESS , ; SPARE:ADDRESS . ;---------------------------------------┆
0x62b80…62c00 (60, 0, 40) UnusedSector ┆------ RINTCOM:DS 8 ; RINTCOM:INTCOMMAND:(THE RETURN QUE OF ; VCR-COMMANDS) ;---------------------------------------┆
0x62c00…62c80 (60, 0, 41) UnusedSector ┆------ COMINDX:DS 1 ; COMINDX:( CURRENT COMMAND INDEX SERVICED):BYTE ;---------------------------------------------- CSTAT┆
0x62c80…62d00 (60, 0, 42) UnusedSector ┆US:DS 1 ; CSTATUS:(STATUS OF COMMAND DECODE):BYTE ;--------------------------------------------- INTRUP: DS 1 ; INTRUP:(0: ┆
0x62d00…62d80 (60, 0, 43) UnusedSector ┆NO INTERRUPT RECEIVED ; 0FFH: INTERRUPT - ):BYTE ;--------------------------------------------- COMPTR: DS 2 ;C┆
0x62d80…62e00 (60, 0, 44) UnusedSector ┆OMPTR:(POINTER TO RUNNING COMMAND-BUFFER):ADDRESS ;------------------------------------------- MESPTR: DS 2 ; MESPTR:(POINT┆
0x62e00…62e80 (60, 0, 45) UnusedSector ┆ER TO THE RUNNING DATA MESSAGE):ADDRESS ;---------------------------------------------------- DATBUF: ;DATBUF: RECORD OF ┆
0x62e80…62f00 (60, 0, 46) UnusedSector ┆ MESSAGE HEAD:ADDRESS ; BCOUNT :ADDRESS ; DATPTR :ADDRESS ; QUEUE DEST :ADDRESS ;----------------┆
0x62f00…62f80 (60, 0, 47) UnusedSector ┆----------------------------------- MHEAD: DS 2 BCOUNT: DS 2 DATPTR: DS 2 QUEDST: DS 2 ;--------------------------┆
0x62f80…63000 (60, 0, 48) UnusedSector ┆-------------------------- INTDAT: DS 8 ; INTDAT:(THE QUE TO WHICH ASCII DATA FROM VCRINT ; IS SEND):DORA STANDARD QUEUE ┆
0x63000…63080 (60, 0, 49) UnusedSector ┆ ;---------------------------------------------- INTCASE:DS 33*2 ; INTCASE:( THE CASE ADDRESS ARRAY WITH ADDRESSES ; FRO┆
0x63080…63100 (60, 0, 50) UnusedSector ┆M WHICH CASES SHOULD CONTINUE ; BECOMMING ACTIV) ; : ARRAY(NUMB OF CASES) OF ADDRESS ;----------------------------┆
0x63100…63180 (60, 0, 51) UnusedSector ┆------------------------- EINTCASE: STKVCR: DS 20H VCRSTK: CSEG INICAS: ; INICASE:( THE CASE ADDRESS ARRAY WITH ADDR┆
0x63180…63200 (60, 0, 52) UnusedSector ┆ESSES ; FROM WHICH CASES SHOULD START ; FIRST TIME BECOMMING ACTIV) ; : ARRAY(NUMB OF CASES) OF ADDRESS ;----┆
0x63200…63280 (61, 0, 1) UnusedSector ┆------------------------------------------------- DW CSYNTAX DW CMODT DW CSEND DW CERSTAT DW CPAU DW CSLU DW CBE┆
0x63280…63300 (61, 0, 2) UnusedSector ┆SKAER DW CTAKENUL DW CIND DW CUD DW CPLUS DW CMINUS DW CSEA DW CSHIFT DW CENTER DW CREP DW CINC DW CDEL ┆
0x63300…63380 (61, 0, 3) UnusedSector ┆DW CRECORD DW CSTOP DW CCUE DW CSYNC DW CSIM DW CMS3 DW CMS4 DW CRUL DW CRED DW CASC DW CVDUERR DW CCR80ER┆
0x63380…63400 (61, 0, 4) UnusedSector ┆R DW CSEA DW CSEA DW CVDUINI COM1STRING: DB 0C0H,1BH,4DH,1BH,41H ZTTC: DB 00 Z1TTC: DB 00,00,00,01 EJEC ;=====┆
0x63400…63480 (61, 0, 5) UnusedSector ┆============= V C R C O M M A N D I N T E R P R E T E R ============ VCRINT: XOR A LD (SCHREC),A ; NULSTIL SCHREC ┆
0x63480…63500 (61, 0, 6) UnusedSector ┆LD (SEASTA),A ; (SEASTA):=0 LD HL,INICASE LD DE,INTCASE LD BC,EINTCASE-INTCASE LDIR ; INITIATE INTCAS LD HL,RCEQ┆
0x63500…63580 (61, 0, 7) UnusedSector ┆H LD (QUEDST),HL ; DATA-BUFFERS RETURNED TO RCEQH LD SP,VCRSTK CALL SCOMMON EI LD HL,RINTCOM CALL SUBDEQ LD (CO┆
0x63580…63600 (61, 0, 8) UnusedSector ┆MPTR),DE ; GET COMMAND BUFFER LD HL,COMINDX LD (HL),VDUINI ; INITIATE VDU SCREEN INC HL LD (HL),INITIAL ; (CSTATUS):=┆
0x63600…63680 (61, 0, 9) UnusedSector ┆INITIAL CALL RCLSTA ; DISPLAY INITIAL COMMANDLINE ; ,CLEAR DISPLAY,RETURN COMMANDBUFFER ;D O F O R E V E R F┆
0x63680…63700 (61, 0, 10) UnusedSector ┆OREV: ; D O W H I L E (COMMAND BUFFER AVAILABLE)) DWHI10: LD HL,INTCOM CALL SUBDEQ JR C,AVAILB ; E N D D O ENDD10┆
0x63700…63780 (61, 0, 11) UnusedSector ┆: CALL SCOMMON EI ENDD0: JR FOREV EJEC ;----------------------- INTERPRETER CASE MANAGEMENT -------------------- AVA┆
0x63780…63800 (61, 0, 12) UnusedSector ┆ILB: LD (COMPTR),DE CALL MCINDX LD BC,COMINDX LD (BC),A ; (COMINDX):= MOTHER CASE PUSH AF LD HL,CMHCHILDCASE ADD HL┆
0x63800…63880 (61, 0, 13) UnusedSector ┆,DE LD A,(HL) AND 7FH INC BC LD (BC),A ; COMMAND STATUS:=MOTHER SUBCASE CP IENTRY POP BC ;I F ( INITIAL SETUP O┆
0x63880…63900 (61, 0, 14) UnusedSector ┆F COMMAND) IF00: JR NZ,ENDF00 ;T H E N (GET RELATED DATA-BUFFER, ; AND DECODE COMMAND) THEN00: CALL CACTIV JR NZ,R┆
0x63900…63980 (61, 0, 15) UnusedSector ┆EJECT LD A,B SUB ASCDAT JR NC,ENDT00 ; NO DATABUFFER BY ASC-CASE ;D O W H I L E (NO ACCESS TO QUEUE) DWHI11: LD┆
0x63980…63a00 (61, 0, 16) UnusedSector ┆ HL,(CHRECO+2*PVCRINT) BIT 7,H JR Z,ENDD11 CALL SCOMMON EI JR DWHI11 ;E N D D O ENDD11: INC HL INC HL LD E,(┆
0x63a00…63a80 (61, 0, 17) UnusedSector ┆HL) INC HL LD D,(HL) ;(DE):=(QUEUE.FIRST) LD HL,DMHDATPTR ADD HL,DE LD E,(HL) INC HL LD D,(HL) ;(DE):=(MESBUF.DA┆
0x63a80…63b00 (61, 0, 18) UnusedSector ┆TPTR) LD HL,COMINDX LD C,(HL) ; (C):=(COMINDX) INC HL INC HL LD (HL),0H ; (INTRUP):=0H CALL DECCOM ; PRIMARY DE┆
0x63b00…63b80 (61, 0, 19) UnusedSector ┆COD OF COMMAND PUSH AF LD A,(COMINDX) CP 26 JR Z,NORET CP 04 JR Z,NORET CP 05 JR Z,NORET CALL RETDB NORET: CA┆
0x63b80…63c00 (61, 0, 20) UnusedSector ┆LL LPCOPY ; COPY PARAMETERS TO CURRENT COMMAND POP AF ENDT00: LD (CSTATUS),A ;E N D T H E N ;E N D I F ENDF00: LD HL,I┆
0x63c00…63c80 (61, 0, 21) UnusedSector ┆NTRUP BIT 7,(HL) DEC HL ;I F (INTERRUPT ACTIVE) IF03: JR Z,ENDF03 ;T H E N (TERMINATE CURRENT COMMAND) THEN03: ┆
0x63c80…63d00 (61, 0, 22) UnusedSector ┆LD (HL),TERMINATED ; (CSTATUS):=TERMINATED CALL RCLSTA ; DISPLAY STATUS AND RETURN COMBUF CALL RETDB CALL ICSCHED ; I┆
0x63d00…63d80 (61, 0, 23) UnusedSector ┆NITIATE CASE ENDT03: JR ENDD00 ;E N D T H E N ;E N D I F ENDF03: LD A,(HL) ; (A):= CSTATUS OR A ; (Z):=0 IF ERROR ┆
0x63d80…63e00 (61, 0, 24) UnusedSector ┆DEC HL LD A,(HL) ; (A):= (COMINDX) LD HL,INTCASE ; D O C A S E ( COMMAND INDEX) CASE00: CALL CASE ENDC00: ; ┆
0x63e00…63e80 (61, 0, 25) UnusedSector ┆E N D C A S E ; E N D D O ENDD00: JP ENDD10 REJECT: CALL RETDB XOR A LD (CSTATUS),A CALL RCLSTA ; DISPLAY ACTIVE ┆
0x63e80…63f00 (61, 0, 26) UnusedSector ┆CASE JP FOREV ; MIDLERTIDIG DATA UDLAGNING ;---------------------------- DUMR: DB 7H DW DUMP INIR: DB 0H DW DUMP ┆
0x63f00…63f80 (61, 0, 27) UnusedSector ┆ERSR: BESR: SIMR: DB 47 DW DUMP DSEG DUMP: DS 47 EDUMP: CSEG ;---------------------------------------------------┆
0x63f80…64000 (61, 0, 28) UnusedSector ┆-------------- CSYNTAX: INT: CERSTAT: CBESKAER: CTAKENUL: CPLUS: CMINUS: CIND: CUD: CRECORD: CSYNC: CSIM: CVDUERR: ┆
0x64000…64080 (61, 0, 29) UnusedSector ┆ CCR80ERR: CVDUINI: LD A,INITIAL LD (CSTATUS),A CALL LPCOPY CALL RETDB JP RCLSTA EJEC ;=======================┆
0x64080…64100 (61, 0, 30) UnusedSector ┆======================================================= ; ROUTINENAME:CSCHED ; ; FUNCTIONAL SPEC : USED TO UPDATE CONTINUE A┆
0x64100…64180 (61, 0, 31) UnusedSector ┆DDRESS OF CASE . ; AND TO RETURN FROM CASE. ; ENTRY: AF: (A):= CASE INDEX ; BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDE┆
0x64180…64200 (61, 0, 32) UnusedSector ┆HL': ; EXIT : AF: UNAFF ; BC: (BC):=CONTINUE ADDRESS OF CASE ; DE: UNAFF ; HL: AFF ; IX: UNAFF ; IY: UNAFF ; AFBCDE┆
0x64200…64280 (61, 0, 33) UnusedSector ┆HL': UNAFF ; EXECUTION : 76 TC ; ; TESTSTATUS: ; ;========================================================================┆
0x64280…64300 (61, 0, 34) UnusedSector ┆===== CSEG ;----------------------- EXCECUTABLE CODE ----------------------- ICSCHED:CALL COM4 EX DE,HL LD HL,┆
0x64300…64380 (61, 0, 35) UnusedSector ┆INICAS ADD HL,BC ADD HL,BC LDI LDI RET CSCHED: CALL COM4 POP BC ; GET CONTINUE ADDRESS COM5: LD (HL),C INC HL ┆
0x64380…64400 (61, 0, 36) UnusedSector ┆ LD (HL),B RET C2SCHED:CALL COM4 POP DE POP BC PUSH DE JR COM5 COM4: LD B,0H LD HL,COMINDX LD C,(HL) LD HL,INT┆
0x64400…64480 (61, 0, 37) UnusedSector ┆CAS ADD HL,BC ADD HL,BC RET CHILD0: LD C,0H CHILD1: CALL CBUFUP LD BC,INTCOM LD HL,EXPCOM CALL MCSEND ; REQUES┆
0x64480…64500 (61, 0, 38) UnusedSector ┆ < '=(=)=*=+=,=-=.=/=0=1=2=3=4= > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >!>">#>$>%>&>'>(>)>*>+>,>->.>/>0>┆
0x64500…64580 (61, 0, 39) UnusedSector ┆T DATEXP TO READ WORKSCHEDULE JR CSCHED EJEC ;=========================================================================┆
0x64580…64600 (61, 0, 40) UnusedSector ┆===== ; ROUTINENAME:CLSTA/RCLSTA ; ; FUNCTIONAL SPEC : THE COMMAND LINE DISPLAY HANDLER COPY STATUSTXT ; TO THE 'ERRTXT' ┆
0x64600…64680 (61, 0, 41) UnusedSector ┆FIELD OF COMMANDLINE ; AND FORCES THE DISPLAY OF COMMANDLINE ; ; ENTRY: AF: (A):= STATUSINDEX ; BC: ; DE: ; HL: ; I┆
0x64680…64700 (61, 0, 42) UnusedSector ┆X: ; IY: ; AFBCDEHL': ; EXIT : AF: ; BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ; ; TESTSTATUS: ┆
0x64700…64780 (61, 0, 43) UnusedSector ┆ ; ;============================================================================= CSEG ;----------------------- EXCECU┆
0x64780…64800 (61, 0, 44) UnusedSector ┆TABLE CODE ----------------------- CLSTA:LD BC,INTCOM JR CLCOM RCLSTA: LD BC,RINTCOM CLCOM: PUSH BC LD C,0H CALL C┆
0x64800…64880 (61, 0, 45) UnusedSector ┆BUFUP LD A,08H POP BC ; UNSAVE RETURNQUEUE OF COMMANDBUFFER LD HL,EXPCOM LD DE,(COMPTR) JP MCSEND ; REQUEST DATEXP ┆
0x64880…64900 (61, 0, 46) UnusedSector ┆TO READ WORKSCHEDULE RETDB: LD HL,CHRECO+1+2*PVCRINT BIT 7,(HL) RET NZ ; RETURN IF CHANNEL CLOSED LD DE,DATBUF LD B,┆
0x64900…64980 (61, 0, 47) UnusedSector ┆PVCRINT CALL GETBUF JP SENDBUF ; RETURN DATABUFFER TO RCEQH EJEC ;====================================================┆
0x64980…64a00 (61, 0, 48) UnusedSector ┆========================== ; ROUTINENAME:ICLFLD ; ; FUNCTIONAL SPEC : FILLS ' ' TO THE PARAMETER-/ERROR FIELD ; ENTRY: NONE┆
0x64a00…64a80 (61, 0, 49) UnusedSector ┆ ; ; EXIT : AF: (F): AFF ; BC: (C): AFF (B):UNAFF ; DE: UNAFF ; HL: AFF ; IX: UNAFF ; IY: UNAFF ; AFBCDEHL': UNAF┆
0x64a80…64b00 (61, 0, 50) UnusedSector ┆F ; EXECUTION : ; ; TESTSTATUS:T ; ;============================================================================= CSEG ;┆
0x64b00…64b80 (61, 0, 51) UnusedSector ┆----------------------- EXCECUTABLE CODE ----------------------- ICLFLD: LD C,78 LD HL,PARMDATA FILL: LD (HL),' ' ┆
0x64b80…64c00 (61, 0, 52) UnusedSector ┆ DEC C INC HL JR NZ,FILL RET INTTIM: LD DE,(COMPTR) LD HL,RINTCOM CALL SUBENQ ; RESET RUNNING CASE LD A,(C┆
0x64c00…64c80 (62, 0, 1) UnusedSector ┆OMINDX) LD C,A SLA C LD B,0H LD HL,INTCASE ADD HL,BC EX DE,HL LD HL,INICASE ADD HL,BC LD C,2 LDIR ;RESET ┆
0x64c80…64d00 (62, 0, 2) UnusedSector ┆ INTCASE(COMINDX) LD HL,VCRSTK-2 LD (SYSRAM+200H+PVCRINT*10H+8),HL LD DE,FOREV LD (HL),E INC HL LD (HL),D LD HL,┆
0x64d00…64d80 (62, 0, 3) UnusedSector ┆CSTATUS SET 1,(HL) ; INDICATE TMOUT RET ;===========================================================================┆
0x64d80…64e00 (62, 0, 4) UnusedSector ┆=== ; ROUTINENAME:INFCLP ; ; FUNCTIONAL SPEC : INFORMS THE COMMANDLINE PROCESS ; ENTRY: AF: (A):=INDEX OF COMMAND TO PROCES┆
0x64e00…64e80 (62, 0, 5) UnusedSector ┆S ; BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: ; BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ;┆
0x64e80…64f00 (62, 0, 6) UnusedSector ┆ EXECUTION : ; ; TESTSTATUS: ; ;============================================================================= CSEG ;----┆
0x64f00…64f80 (62, 0, 7) UnusedSector ┆------------------- EXCECUTABLE CODE ----------------------- INFCLP: PUSH AF LD HL,IOICH CALL SUBDEQ JR C,FOUND ┆
0x64f80…65000 (62, 0, 8) UnusedSector ┆ CALL SCOMMON EI JR INFCLP FOUND: LD HL,02H ADD HL,DE POP AF LD (HL),A LD HL,IOICH+3*8 JP SUBENQ EJEC ;=====┆
0x65000…65080 (62, 0, 9) UnusedSector ┆========================================================================= ; ROUTINENAME:LPCOPY/PLCOPY ; ; FUNCTIONAL SPEC :C┆
0x65080…65100 (62, 0, 10) UnusedSector ┆OPIES DECODED PARAMETERS TO PARAMTERFIELD ; OF THE RUNNING COMMAND,OR,REVERSE ; ; ENTRY: NONE ; EXIT : AF: ; BC: ; DE:┆
0x65100…65180 (62, 0, 11) UnusedSector ┆ ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ; ; TESTSTATUS: ; ;=================================================┆
0x65180…65200 (62, 0, 12) UnusedSector ┆============================ ;----------------------- LOCAL DATA ----------------------- CSEG CPTAB: DW DUMR,DUMR,┆
0x65200…65280 (62, 0, 13) UnusedSector ┆DUMR ;CPTAB:ARRAY(CASES) OF PARMRECS:ADDRESS DW ERSR ;------------------------------------------ DW REDR DW REDR DW BE┆
0x65280…65300 (62, 0, 14) UnusedSector ┆SR DW DUMR DW SHIR DW SHIR DW SHIR DW SHIR DW SEAR DW SHIR DW DUMR DW DELR DW DELR DW DELR DW DUMR DW ┆
0x65300…65380 (62, 0, 15) UnusedSector ┆DUMR DW CUER DW DUMR DW SIMR DW RULR,RULR DW RULR DW REDR DW INIR,INIR,INIR DW SEAMR DW SEASR DW INIR CPL┆
0x65380…65400 (62, 0, 16) UnusedSector ┆TAB: ;----------------------- EXCECUTABLE CODE ----------------------- PLCOPY: CALL PL2LP JR PLPC LPCOPY: CALL PL┆
0x65400…65480 (62, 0, 17) UnusedSector ┆LP EX DE,HL PLPC: LD A,C OR A RET Z LDIR RET PLLP: LD A,(COMINDX) PL2LP: RLCA LD C,A LD B,0H ; (BC):=3*COMMA┆
0x65480…65500 (62, 0, 18) UnusedSector ┆NDINDEX LD HL,CPTAB ADD HL,BC LD E,(HL) INC HL LD D,(HL) ; (DE):=ADDRESS OF PARAMETERRECORD EX DE,HL LD C,(HL) ┆
0x65500…65580 (62, 0, 19) UnusedSector ┆INC HL LD E,(HL) INC HL LD D,(HL) LD HL,PARMDATA EX DE,HL RET EJEC ;===========================================┆
0x65580…65600 (62, 0, 20) UnusedSector ┆=================================== ; ROUTINENAME:CR80M ; ; FUNCTIONAL SPEC:THE TMOUT ROUTINE RETURNS WITH (Z):=1 ; BY 40┆
0x65600…65680 (62, 0, 21) UnusedSector ┆ SEC AFTER PROPER RESTART ; ; ; ENTRY: (CCR80M):=0 ; ; EXIT : (CCR80):=0 : TMOUT ; - <>0 : TIMER ACTIVE ; ; EXECU┆
0x65680…65700 (62, 0, 22) UnusedSector ┆TION : ; ; TESTSTATUS:NT ; ;============================================================================= DSEG ;-------┆
0x65700…65780 (62, 0, 23) UnusedSector ┆---------------- LOCAL DATA ----------------------- CCR80M: DS 1 ; CCR80M:( RINGCOUNTER :(0..15)):BYTE ;---------┆
0x65780…65800 (62, 0, 24) UnusedSector ┆---------------------------------- CSEG ;----------------------- EXCECUTABLE CODE ----------------------- CR80M:┆
0x65800…65880 (62, 0, 25) UnusedSector ┆ LD HL,CCR80M DEC (HL) JR Z,TMOUT LD BC,TCR80M JP ESTABR TMOUT:LD HL,SCHREC LD A,(HL) OR 50H ; SET BIT6 AND BIT4┆
0x65880…65900 (62, 0, 26) UnusedSector ┆ LD (HL),A RET EJEC ;============================================================================== ; ROUTINENAME:CACT┆
0x65900…65980 (62, 0, 27) UnusedSector ┆IV ; ; FUNCTIONAL SPEC : EVALUATES FOR ACTIVE COMMANDCASE ; ENTRY: NONE ; EXIT : AF: AFF ; BC:UNAFF ; DE:UNAFF ; HL:U┆
0x65980…65a00 (62, 0, 28) UnusedSector ┆NAFF ; IX:UNAFF ; IY:UNAFF ; AFBCDEHL':AFF ; EXECUTION : BY START OF COMMAND CASE ; ; ; TESTSTATUS:NT ; ;==========┆
0x65a00…65a80 (62, 0, 29) UnusedSector ┆=================================================================== CSEG ;----------------------- EXCECUTABLE CODE --┆
0x65a80…65b00 (62, 0, 30) UnusedSector ┆--------------------- CACTIV: DI EXX LD A,(COMINDX) RLCA LD C,A LD B,0H ;(BC):=2*(COMINDX) LD HL,INICAS ADD HL┆
0x65b00…65b80 (62, 0, 31) UnusedSector ┆,BC EX DE,HL ;(DE):=INITIAL CASE ADDRESS LD HL,INTCAS ADD HL,BC ; (HL):= CURRENT CASE ADDRESS LD A,(DE) CP (HL) JR┆
0x65b80…65c00 (62, 0, 32) UnusedSector ┆ NZ,AKT ;CURRENT - <> INITIAL CASE ADDRESS INC DE INC HL LD A,(DE) CP (HL) AKT: EXX EI RET EJEC ;============┆
0x65c00…65c80 (62, 0, 33) UnusedSector ┆================================================================== ; ROUTINENAME:CBUFUP ; ; FUNCTIONAL SPEC : UPDATES THE MC┆
0x65c80…65d00 (62, 0, 34) UnusedSector ┆BUF BEFORE TRANSMITTED ; ENTRY: AF: ; BC: (C):= MCBUF.OFFSET ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: UNA┆
0x65d00…65d80 (62, 0, 35) UnusedSector ┆FF ; BC: UNAFF ; DE: (DE):=(COMPTR):=(ADDRESS OF CURRENT COMMAND BUFFER) ; HL: UNAFF ; IX: UNAFF ; IY: UNAFF ; AFBCD┆
0x65d80…65e00 (62, 0, 36) UnusedSector ┆EHL': ; EXECUTION : ; ; TESTSTATUS: ; ;============================================================================= CSE┆
0x65e00…65e80 (62, 0, 37) UnusedSector ┆G ;----------------------- EXCECUTABLE CODE ----------------------- CBUFUP: DI EX AF,AF' ; SAVE (A) LD A,C ; (┆
0x65e80…65f00 (62, 0, 38) UnusedSector ┆A'):=OFFSET EXX ; SAVE (HL),(DE),(BC) LD HL,(COMPTR) PUSH HL ; SAVE (COMPTR) LD DE,CMHOFFSET ADD HL,DE LD (HL),A ┆
0x65f00…65f80 (62, 0, 39) UnusedSector ┆ INC HL LD DE,COMINDX EX DE,HL LDI ; MCBUF.COMINDX:=(COMINDX) LDI EXX ; UNSAVE (HL),(DE),(BC) EX AF,AF' ; UNSA┆
0x65f80…66000 (62, 0, 40) UnusedSector ┆VE (A) POP DE ; UNSAVE (COMPTR) EI RET EJEC ;=======================================================================┆
0x66000…66080 (62, 0, 41) UnusedSector ┆======= ; ROUTINENAME:CLSET ; ; FUNCTIONAL SPEC : INITIATES THE PARMDATA AND ERRTXT DATA BASED ON ; COMMAND INDEX AND STA┆
0x66080…66100 (62, 0, 42) UnusedSector ┆TUS OF THIS. ; ENTRY: AF: ; BC: (C):=COMMAND INDEX , (B):=STATUS ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF:┆
0x66100…66180 (62, 0, 43) UnusedSector ┆ ; BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ; ; TESTSTATUS: ; ;=================================┆
0x66180…66200 (62, 0, 44) UnusedSector ┆============================================ CSEG ;----------------------- EXCECUTABLE CODE ----------------------- ┆
0x66200…66280 (62, 0, 45) UnusedSector ┆CLSET: PUSH BC ; (C):=COMMANDINDEX,(B):=STATUS CALL ICLFLD ; COPY ' ' TO PARMDATA,ERRTXT-FIELD POP BC LD A,C PUSH BC┆
0x66280…66300 (62, 0, 46) UnusedSector ┆ CALL PLCOPY ; COPY COMMAND.PARM TO PARMDATAFIELD POP BC LD A,B ; (A):= STATUS OF COMMAND INDEX LD HL,CERRTXT RLCA┆
0x66300…66380 (62, 0, 47) UnusedSector ┆ ADD A,B LD C,A LD B,0H ADD HL,BC LD C,(HL) ; LENGTH OF TXT INC HL LD E,(HL) INC HL LD D,(HL) ; (DE):= ADDRE┆
0x66380…66400 (62, 0, 48) UnusedSector ┆SS OF ERROR TXT LD HL,ERRTXT EX DE,HL LDIR ; COPY ERRORTEXT TO 'ERRTXT RET END ┆
0x66400…66480 (62, 0, 49) UnusedSector ┆ER CHANNEL SETUP ;------------------------------------------------ IF03: JR Z,ELSE03 LD C,(HL) INC HL LD B,(HL) ;(BC):┆
0x66480…66500 (62, 0, 50) UnusedSector ┆=(MDAMCOM.SOURCE) PUSH DE ; SAVE MDAM-COM-BUFFER ADDRESS CALL QUETST POP DE JR Z,ELSE03 THEN03: POP HL ; UNSAVE CHR┆
0x66500…66580 (62, 0, 51) UnusedSector ┆ECORD.SOURCE LD (HL),C ; INC HL ; LD (HL),B ; CHRECORD(-).QUE-SOURCE:=MDAMMESS.QUE-SOURCE LD HL,RMDAMCOM ; RETURN MDA┆
0x66580…66600 (62, 0, 52) UnusedSector ┆M-MESS. TO RMDAMCOM ENDT03: JR ENDF03 ELSE03: POP HL ; UNSAVE CHRECORD.SOURCE LD HL,MDAMCOM ; RETURN MDAM-MESS. TO MDAMCO┆
0x66600…66680 (63, 0, 1) UnusedSector ┆M ENDS03: ENDF03: JP SUBENQ EJEC ;============================================================================== ; ROUTI┆
0x66680…66700 (63, 0, 2) UnusedSector ┆NENAME:QUETST ; ; FUNCTIONAL SPEC : EVALUATES IF QUEUE SPECIFIED IS PRESENT ; ON A MDAM-CHANNEL ; ENTRY: AF: ; BC: (BC)┆
0x66700…66780 (63, 0, 3) UnusedSector ┆:=QUEUE-ADDRESS ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: Z=1 PRESENT ; BC: ; DE: ; HL: ; IX: ; IY:┆
0x66780…66800 (63, 0, 4) UnusedSector ┆ ; AFBCDEHL': ; EXECUTION : ; ; TESTSTATUS:T ; ;=========================================================================┆
0x66800…66880 (63, 0, 5) UnusedSector ┆==== CSEG ;----------------------- EXCECUTABLE CODE ----------------------- QUETST: LD HL,CHRECORD LD E,16 ;D┆
0x66880…66900 (63, 0, 6) UnusedSector ┆ O W H I L E (MDAM DEST TO TEST FOR SOURCE EQUALITY) DWHI01: DEC E RET M LD A,(HL) INC HL LD D,(HL) INC HL CP C ┆
0x66900…66980 (63, 0, 7) UnusedSector ┆ JR NZ,DWHI01 LD A,D CP B JR NZ,DWHI01 RET ; RETURN BY PRESENT END ┆
0x66980…66a00 (63, 0, 8) UnusedSector ┆ ? ? ┆
0x66a00…66a80 (63, 0, 9) UnusedSector ┆COPY PAGESZ.PDF,TQMDEF.PDF,QUEMES.PDF,VCRINT.PDF,SCHEDU.PDF,MDAM.PDF,DORAGE.PDF,BOPDEF.PDF,MDAMF2.SRC TO MDAMF2.TMP B C ASMZ80 ┆
0x66a80…66b00 (63, 0, 10) UnusedSector ┆MDAMF2.TMP MDAMF2.OBJ :F1:MDAMF2.LST $D,3,NS,NM DELETE MDAMF2.TMP :F0:DO RESTORE :F0:MDAMF2.CS(:VI:) ┆
0x66b00…66b80 (63, 0, 11) UnusedSector ┆ @ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?!?"?#?$?%?&?'?(?)?*?+?,?-?.?/?0?1?2?3?4? @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @┆
0x66b80…66c00 (63, 0, 12) UnusedSector ┆ PAGESZ 64 EJEC ;------------------ FILE TQMDEF.PDF --------------------------- ;================== TQM DEFINITIONS ====┆
0x66c00…66c80 (63, 0, 13) UnusedSector ┆======================= ; TTEST EQU 1 ; TEST TIMER TPBS EQU 2 ; PBS ASSIGNED TIMER TVPRTCL EQU 3 ; VDU-PROTOCOL TRAN┆
0x66c80…66d00 (63, 0, 14) UnusedSector ┆SMITTER DELAY TDATEXP EQU 4 ; MISSING BUFFER-TIMEOUT(DATCOM-MODULE) TVCR15 EQU 5 ; VCR15 REMOTE PULSES TVCR16 EQU 6 ; V┆
0x66d00…66d80 (63, 0, 15) UnusedSector ┆CR16 REMOTE PULSES TVCRINT EQU 7 ; MISSING BUFFER TIMEOUT T1SPEED EQU 8 ; DELAYED SPEED SWITCH READ VCR15 TROUTTM EQU 9 ┆
0x66d80…66e00 (63, 0, 16) UnusedSector ┆ ; INCREMENT OF DISPLAYED TIMECODE TIMER T2SPEED EQU 10 ; - - - - VCR16 TCOMLIN EQU 11 ; MISSING BUFFER ┆
0x66e00…66e80 (63, 0, 17) UnusedSector ┆TIMEOUT TCR80M EQU 12 ; MISSING DATA FROM CR80 TIMEOUT TPRTCL EQU 13 ; MISSING EXCHANGE BUFFERS ;============DEFINITION O┆
0x66e80…66f00 (63, 0, 18) UnusedSector ┆F QUE- AND MESSAGE FORMATS ================ ; ; Q U E ' S : ; DORA STANDARD QUEFORMAT: DQHSPARE EQU 0 DQHELEM EQ┆
0x66f00…66f80 (63, 0, 19) UnusedSector ┆U 1 DQHFIRST EQU 2 DQHLAST EQU 4 ; APPLICATION COMMAND QUEFORMAT CQHSPARE EQU 0 CQHELEM EQU 1 CQHFIRST EQU 2 CQHLAST┆
0x66f80…67000 (63, 0, 20) UnusedSector ┆ EQU 3 ; M E S A G E S: ; DORA STANDARD MESSAGEFORMAT DMHRETURN DEFL 0FFFEH DMHLINK DEFL 0 DMHBCOUNT DEFL 2 DMHDATP┆
0x67000…67080 (63, 0, 21) UnusedSector ┆TR DEFL 4 DMHOFSET DEFL 6 DMHCTRSTA DEFL 7 DMHBUFSIZE DEFL 8 ; MI-COMM. DATA COMMAND MESSAGEFORMAT: CMHRETURN EQU -2 CM┆
0x67080…67100 (63, 0, 22) UnusedSector ┆HLINK EQU 0 CMHMOTHERCASE EQU 2 CMHCHILDCASE EQU 3 CMHOFFSET EQU 4 CMHTCODE EQU 4 ; MESSAGE DISTRIBUTOTION COMMAND MESS┆
0x67100…67180 (63, 0, 23) UnusedSector ┆AGEFORMAT: MMHLINK EQU 0 ; MANAGERMESSAGEHEAD.LINK MMHDESTCH EQU 2 ; - .DESTINATION NO. MMHQUESRC EQU 3 ;┆
0x67180…67200 (63, 0, 24) UnusedSector ┆ - .QUESOURCEADDRESS EJEC ;-------------------- CASE DEFINITIONS OF THE VCRINT MODULE ------------- SYNTAXERR EQU 00 ┆
0x67200…67280 (63, 0, 25) UnusedSector ┆ MODTAG EQU 01 SEND EQU 02 ERSTAT EQU 03 PAUS EQU 04 SLUT EQU 05 BESKAER EQU 06 TAKENUL EQU 07 IND EQU 08 UD E┆
0x67280…67300 (63, 0, 26) UnusedSector ┆QU 09 PLUS EQU 10 MINUS EQU 11 SEARC EQU 12 SHIFT EQU 13 ENTER EQU 14 REPEAT EQU 15 INCLUDE EQU 16 DELETE EQU 17┆
0x67300…67380 (63, 0, 27) UnusedSector ┆ RECO EQU 18 ST0P EQU 19 CUEUP EQU 20 SYNCRO EQU 21 SIMULATE EQU 22 MS1 EQU 23 MS2 EQU 24 RUL EQU 25 REDIGER EQ┆
0x67380…67400 (63, 0, 28) UnusedSector ┆U 26 ASCDAT EQU 27 VDUERR EQU 28 CR80ERR EQU 29 SEAM EQU 30 SEAS EQU 31 VDUINI EQU 32 ;----------------------- SU┆
0x67400…67480 (63, 0, 29) UnusedSector ┆B CASES OF MOTHERCASES -------------------- OK EQU 0 ;BY SUCCESSFULLY COMMAND EXECUTION OUTOFBOUNDS EQU 1 ; PARAMETERFI┆
0x67480…67500 (63, 0, 30) UnusedSector ┆ELD > DECODE FIELD MISSING EQU 2 ; PARAMETER MISSING UNKNOWN EQU 3 ; ASCII-MESSAGE UNKNOWN TIMEOUT EQU 4 ; BUFFER MIS┆
0x67500…67580 (63, 0, 31) UnusedSector ┆SING FORMAT EQU 5 ; FORMAT ERROR BY RECEIVE OF DATA TERMINATED EQU 6 ; COMMAND INTERRUPTED IENTRY EQU 7 ; INITIAL ENTRY ┆
0x67580…67600 (63, 0, 32) UnusedSector ┆OF COMMAND INITIAL EQU 8 ; INITIAL START OF VCRINT TCERR EQU 9 ; TIMECODE ERROR TPERR EQU 10 ; TAPE NUMBER ERROR ;====┆
0x67600…67680 (63, 0, 33) UnusedSector ┆======= S H E D U L E F I E L D S D E F I N I T I O N S =========== ; ; TAKESTATEFIELD EQU 0 SCHDINDXFIELD EQU 1 SRCRE┆
0x67680…67700 (63, 0, 34) UnusedSector ┆CFIELD EQU 2 DESTRECFIELD EQU 3 SCHDUABILITYFIELS EQU 4 MASTERFIELD EQU 5 SLATRFIELD EQU 6 AUXFIELD EQU 7 TOTAL┆
0x67700…67780 (63, 0, 35) UnusedSector ┆SCHEDULE EQU 0 OWIEVSCHEDULE EQU 1 PARTAKESCHEDULE EQU 2 WORKSCHEDULE EQU 3 ;============= MESSAGE DESTRIBUTOR AND MANA┆
0x67780…67800 (63, 0, 36) UnusedSector ┆GER DEFINITIONS =============== STANDBY EQU 0 VCROW EQU 1 VCRWRK EQU 2 CR80DA EQU 3 CR80AK EQU 4 IDEPA1 MACRO #EI,#SIZE ┆
0x67800…67880 (63, 0, 37) UnusedSector ┆ EXTRN INGEMP CSEG LD HL,INGEMP CALL SUBENQ ENDM OGEPA2 MACRO EXTRN OUGEMP LD HL,OUGEMP CALL SUBDEQ ENDM OD┆
0x67880…67900 (63, 0, 38) UnusedSector ┆EPA1 MACRO #EI,#SIZE EXTRN OUTGO LD HL,OUTGO CALL SUBENQ ENDM EJEC ;=================== SPECIAL-PROCESS DEFINITIONS ┆
0x67900…67980 (63, 0, 39) UnusedSector ┆====================== ; ; P-PRONAME : P:- ABRIVIATION OF PROCESS , ; PRONAME :- THE PROCESS NAME ; ; THE ┆
0x67980…67a00 (63, 0, 40) UnusedSector ┆RELATIONS BETWEEN S-PROCESS-NUMBER AND ; THE PROCESSNAME IS STATED BY ; ; PPRONAME EQU S-PROCESS-NO. ; ;=======┆
0x67a00…67a80 (63, 0, 41) UnusedSector ┆====================================================================== PTQMACT EQU 00 PSTART EQU 01 PPBS EQU 02 PVPRTCL┆
0x67a80…67b00 (63, 0, 42) UnusedSector ┆ EQU 03 PDATEXP EQU 04 PVCR15 EQU 05 PVCR16 EQU 06 PVCRINT EQU 07 PF0MDAM EQU 08 PF2MDAM EQU 09 PEHPRC EQU 10 PC┆
0x67b00…67b80 (63, 0, 43) UnusedSector ┆OMLIN EQU 11 PTEST EQU 12 ;===================== BASALT OPERATIV-SYSTEM DEFINITIONS ================= S EQU 16 N ┆
0x67b80…67c00 (63, 0, 44) UnusedSector ┆ EQU 0 LINK EQU 0 ;============================================================================ LIST S NAME F2MDAM ┆
0x67c00…67c80 (63, 0, 45) UnusedSector ┆ PUBLIC MDAMF2,PRTCL,CR80IN EXTRN SUBENQ,SUBDEQ,SCOMMON,SYSRAM EXTRN MDAMMODE,CASE,INFVCR,QUETST,RINTCOM EXTRN MDM1ACCS,M┆
0x67c80…67d00 (63, 0, 46) UnusedSector ┆DM2ACCS,CHRECORD,MDAMDEQ EXTRN OWSEQ,WRKSEQ,CR80SEQ EXTRN PROINF,CRCHECK,MESINDX EXTRN TREQH,TRFQH,RCFQH,RCEQH EXTRN OW┆
0x67d00…67d80 (63, 0, 47) UnusedSector ┆OFFSET,WRKOFFSET,CR80OFFSET,VDUOFFSET EXTRN ESTABR,SUSPND,ID1,OG2,OD1 DSEG CR80IN: DS 08H ; CR80IN: RECORD OF SPARE:BY┆
0x67d80…67e00 (63, 0, 48) UnusedSector ┆TE ; ELEMENTS:BYTE ; FIRST:ADDRESS ; LAST :ADDRESS ; SPARE: ADDRESS ;----------------┆
0x67e00…67e80 (63, 0, 49) UnusedSector ┆------------------- MF2DAT: DS 08H ; MF2DAT:CR80IN COMMU: DS 1 ; COMMU:(BIT0.:- COMMUNICATION ACTIV):BYTE ;---------┆
0x67e80…67f00 (63, 0, 50) UnusedSector ┆----------------------------------- STKF2: DS 20H F2STK: DS 1 ;----------------------------------------------------------┆
0x67f00…67f80 (63, 0, 51) UnusedSector ┆------------ EJEC ;========================== M D A M F R O N T N R . 2 ================== CSEG MDAMF2: LD SP,CR80IN┆
0x67f80…68000 (63, 0, 52) UnusedSector ┆+8 LD HL,0000H PUSH HL PUSH HL PUSH HL PUSH HL ; INITIATE CR80-QUE LD SP,F2STK F2INITIAL: ;------------------┆
0x68000…68080 (64, 0, 1) UnusedSector ┆------------------------------ ; D O F O R E V E R ;------------------------------------------------ FOREV: CALL SCOMMON ┆
0x68080…68100 (64, 0, 2) UnusedSector ┆ EI CALL INGOING CALL OUTGOING JR FOREV EJEC ;------------------------------- INGOING PART ---------------------┆
0x68100…68180 (64, 0, 3) UnusedSector ┆----------- INGOING:LD A,(TREQH+1) OR A JR Z,ELSE00 LD A,(CR80IN+1) OR A ;-----------------------------------------┆
0x68180…68200 (64, 0, 4) UnusedSector ┆------- ; I F (MESBUF AVAILABLE ON TREQH-QUE,AND, ON CR80IN-QUE) ; T H E N PERFORME BUFFER EXCHANGE, AND ; RECEIVED BUF┆
0x68200…68280 (64, 0, 5) UnusedSector ┆FER MANAGEMENT ;------------------------------------------------ IF00: JR Z,ELSE00 THEN00: LD HL,TREQH CALL SUBDEQ ; GE┆
0x68280…68300 (64, 0, 6) UnusedSector ┆T EMPTYBUFFER FROM VDU-TRANSM-EMPTY PUSH DE ; SAVE MESBUF LD HL,CR80IN CALL SUBDEQ PUSH DE ; MESSAGE POINTER LD HL,M┆
0x68300…68380 (64, 0, 7) UnusedSector ┆F2DAT CALL SUBENQ POP DE DEC DE DEC DE ; DE:=CR80INBUF.RETURN POP HL DEC HL DEC HL ; (HL):=TREQH BUF.RETURN CA┆
0x68380…68400 (64, 0, 8) UnusedSector ┆LL RETEXC ; EXCHANGE RETURN INFORMATION EX DE,HL CALL ID1 ; SEND EMPTY BUFFER TO INGOING-EMPTY. LD HL,COMMU BIT 0,(H┆
0x68400…68480 (64, 0, 9) UnusedSector ┆L) ; TEST FOR PREVIOUS ACKNOWLEDGE JR NZ,ELSE00 SET 0,(HL) ; INDICATE PREVIOUS ACKNOWLEDGE LD A,(MDAMMODE) LD HL,MDAC┆
0x68480…68500 (64, 0, 10) UnusedSector ┆ASE ENDT00: JP CASE ;E N D T H E N ;E L S E ( TEST FOR END OF COMMUNICATION) ELSE00: LD BC,MF2DAT CALL QUETST RET ┆
0x68500…68580 (64, 0, 11) UnusedSector ┆Z ENDS00: LD HL,COMMU RES 0,(HL) ; RESET PREVIOUS COMMUNICATION ACKNOWLEDGE ;E N D E L S E ;E N D I F ENDF00: RET ┆
0x68580…68600 (64, 0, 12) UnusedSector ┆EJEC ;---------------------------- CR80 TRANSMIT PART -------------------------- OUTGOING: LD HL,(CHRECORD+2*PF2MDAM) BI┆
0x68600…68680 (64, 0, 13) UnusedSector ┆T 7,H RET NZ INC HL LD A,(HL) ; (A):=(SRCQUE.ELEMENTS) OR A RET Z LD BC,TPRTCL CALL ESTABR ;D O W H I L E (┆
0x68680…68700 (64, 0, 14) UnusedSector ┆EXCHANGE BUFFER NOT AVAILABLE) DWHI00: CALL OG2 ; GET EMPTY BUFFER FROM OUTGOING JR C,ENDD00 CALL INGOING CALL SCOM┆
0x68700…68780 (64, 0, 15) UnusedSector ┆MON EI JR DWHI00 ;E N D D O ENDD00: DEC DE DEC DE ; (DE):=DORAGENBUF.RETURN PUSH DE LD BC,TPRTCL CALL SUSPND ┆
0x68780…68800 (64, 0, 16) UnusedSector ┆ LD BC,PF2MDAM CALL MDAMDEQ ; GET BUFFER TO BE TRANSMITTED LD HL,DMHRETURN ADD HL,DE ; (HL):=DORAGENBUF.RETURN POP DE┆
0x68800…68880 (64, 0, 17) UnusedSector ┆ CALL RETEXC PUSH DE ; SAVE ADDRESS OF DBUF PUSH BC ; SAVE RETURN QUEUE ADDRESS EX DE,HL CALL OD1 ; IBUF TO DORAGEN┆
0x68880…68900 (64, 0, 18) UnusedSector ┆ POP HL ; UNSAVE RETURN QUEUE ADDRESS EX (SP),HL EX DE,HL LD HL,DMHBCOUNT ADD HL,DE LD (HL),0H ; DATBUF,BCOUNT:=0 ┆
0x68900…68980 (64, 0, 19) UnusedSector ┆ POP HL ; RETURN QUE ENDT01: JP SUBENQ ; DBUF TO RETURNQUE ENDF01: ;----------------------------------------------------┆
0x68980…68a00 (64, 0, 20) UnusedSector ┆------------------------ EJEC ;============================================================================== ; CASENAME:┆
0x68a00…68a80 (64, 0, 21) UnusedSector ┆ M D A M M O D E ; ; FUNCTIONAL SPEC : THE MADAM FRONT NR.1 RECEIVES DATA FROM THE VDU I/F ; AND THE DISTRIBUTION OF THIS┆
0x68a80…68b00 (64, 0, 22) UnusedSector ┆ ? @ @ @ @ @ @ @ @ @ @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@ A A A A A ┆
0x68b00…68b80 (64, 0, 23) UnusedSector ┆ DATA IS CONDITIONED ; BY THE MDAM-MODE. ; ; ;===========================================================================┆
0x68b80…68c00 (64, 0, 24) UnusedSector ┆== CSEG ;-------------------------- PROM DATA ------------------------------------- MDACASE:DW C1STBY,C1OW,C1WRK,C180┆
0x68c00…68c80 (64, 0, 25) UnusedSector ┆DA,C180ACK ;------------------------ EXCECUTABLE CODE ------------------------------ ;CASE1,2: MDAMMODE:= 'OWERWIEV-','W┆
0x68c80…68d00 (64, 0, 26) UnusedSector ┆ORK-SCHEDULE' MODE: ; THIS IS THE VCR/VDU MODE , ; IN WHICH THE VCR/VCR IS ; ALLOCATED THE DORA SYSTEM. ; DATA FROM ┆
0x68d00…68d80 (64, 0, 27) UnusedSector ┆CR80 ARE ILLEGAL. ;----------------------------------------------------- C1OW: C1WRK: LD HL,MF2DAT JP BUFREJ TODST2: LD DE┆
0x68d80…68e00 (64, 0, 28) UnusedSector ┆,MF2DAT JP MDM2ACCS ; REQUEST CHANNEL ACCESS TO SPECIFIED PROCESS EJEC ;CASE0 : MDAMMODE=STANDBY: THIS IS THE STA┆
0x68e00…68e80 (64, 0, 29) UnusedSector ┆NDBY MODE. ; ALL DATA FROM CR80 ARE ROUTED ; TO THE VDU I/F. ;---------------------------------------------------- C1S┆
0x68e80…68f00 (64, 0, 30) UnusedSector ┆TBY: LD A,PF0MDAM EC1STB: JR TODST2 ; MDAMACCESS(QUESRC:=CR80IN,MDAMDEST:=MDAMF0) EJEC ;CASE3: MDAMMODE=DATA FROM C┆
0x68f00…68f80 (64, 0, 31) UnusedSector ┆R80 : IN THIS MODE DATA RECEIVED ; ARE ROUTED TO THE VCR/VCR I/F. ; CR80 ACKNOWLEDGE IS ILLEGAL ;------------------------┆
0x68f80…69000 (64, 0, 32) UnusedSector ┆----------------------------- C180DA: CALL ACKNW JR NZ,C1WRK LD A,ASCDAT CALL VCRINF JR TODST2 EC180DA: ; CASE4: M┆
0x69000…69080 (64, 0, 33) UnusedSector ┆DAMMODE= ACKNOWLEDGE CASE ;------------------------------------ C180ACK:CALL ACKNW ;-------------------------------------┆
0x69080…69100 (64, 0, 34) UnusedSector ┆----------- ; I F ( SEND/MODT -COMMAND FOUND) ; T H E N INFORM INTERPRETER TO EXECUTE ; SEND OR RECEIVE DATA TO/FROM CR┆
0x69100…69180 (64, 0, 35) UnusedSector ┆80 ; E L S E ERROR MESSAGE TO VDU ;------------------------------------------------ IF05: JR Z,C1WRK THEN05: ADD A,CR80O┆
0x69180…69200 (64, 0, 36) UnusedSector ┆FFSET.LOW. CALL VCRINF ENDT05: JR TODST2 ACKNW: LD DE,(MF2DAT+2) ; (DE):(CR80IN.FIRST) LD HL,DMHDATPTR ADD HL,DE LD┆
0x69200…69280 (64, 0, 37) UnusedSector ┆ E,(HL) INC HL LD D,(HL) INC DE ; IGNORE 'ASCII'-MESSAGE LD BC,0204H LD HL,CR80SEQ CALL MESINDX ; SEND/MODTAG IF A┆
0x69280…69300 (64, 0, 38) UnusedSector ┆CCEPT FROM CR80 OR A RET RETEXC: LD A,(DE) ; (A):= DORAGEN INFORM LD C,(HL) ; LD (HL),A ; IBUF.RETURN.LSD:=DBUF.RE┆
0x69300…69380 (64, 0, 39) UnusedSector ┆TURN.LSD LD A,C INC C ; COMPENSATE THE SUCCESSIVE 'LDI' LD (DE),A ; DBUF.RETURN.LSD:=IBUF.RETURN.LSD INC HL INC DE ┆
0x69380…69400 (64, 0, 40) UnusedSector ┆ LD B,(HL) ; (BC):=(IBUF.RETURN) LDI ; DBUF.RETURN.MSD:=IBUF.RETURN.MSD RET ; RETURN WITH (BC):= RETURN QUE OF INTERFAC┆
0x69400…69480 (64, 0, 41) UnusedSector ┆E ; (DE):=DBUF ; (HL):=IBUF EJEC ;=============================================================================┆
0x69480…69500 (64, 0, 42) UnusedSector ┆= ; ROUTINENAME:PRTCL ; ; FUNCTIONAL SPEC : TIMEOUT ROUTINE WHICH MANIPULATES THE PROCESS DESCRIPTION ; AS TO FORCE PROCE┆
0x69500…69580 (64, 0, 43) UnusedSector ┆SS TO CONTINUE BY ERRROR LABEL. ; ENTRY: AF: ; BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: ; BC: ; D┆
0x69580…69600 (64, 0, 44) UnusedSector ┆E: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ; ; TESTSTATUS: ; ;===============================================┆
0x69600…69680 (64, 0, 45) UnusedSector ┆============================== CSEG ;----------------------- EXCECUTABLE CODE ----------------------- PRTCL: LD HL,F┆
0x69680…69700 (64, 0, 46) UnusedSector ┆2STK-2 LD (SYSRAM+200H+PF2MDAM*10H+8),HL LD DE,EXIT LD (HL),E INC HL LD (HL),D RET EXIT: ;D O W H I L E (BUFFER O┆
0x69700…69780 (64, 0, 47) UnusedSector ┆N CHANNEL AND CHANNEL NOT CLOSED) DWHI01: LD BC,PF2MDAM CALL MDAMDEQ JP NZ,FOREV JR NC,NOBUF2 CALL TOTREQH NOBUF2: C┆
0x69780…69800 (64, 0, 48) UnusedSector ┆ALL INGOING CALL SCOMMON EI JR DWHI01 ;E N D D O ENDD01: EJEC ;==================================================┆
0x69800…69880 (64, 0, 49) UnusedSector ┆============================ ; ROUTINENAME:BUFREJ ; ; FUNCTIONAL SPEC : REJECT THE BUFFER ON SPECIFIED QUEUE ; AND RETURN┆
0x69880…69900 (64, 0, 50) UnusedSector ┆ IT TO THE TREQH QUE ; ENTRY: AF: ; BC: ; DE: ; HL: (HL):= QUE ADDRESS ON WHICH BUFFERS ARE TO BE REJECTED. ; IX: ; I┆
0x69900…69980 (64, 0, 51) UnusedSector ┆Y: ; AFBCDEHL': ; EXIT : AF: ; BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ; ; TESTSTATUS: ; ;==┆
0x69980…69a00 (64, 0, 52) UnusedSector ┆=========================================================================== CSEG ;----------------------- EXCECUTABLE CODE┆
0x69a00…69a80 (65, 0, 1) UnusedSector ┆ ----------------------- BUFREJ: CALL SUBDEQ RET NC TOTREQH:LD HL,DMHBCOUNT ADD HL,DE LD (HL),0H ; MESHEAD.BCOUNT:┆
0x69a80…69b00 (65, 0, 2) UnusedSector ┆=0H (INDICATE EMPTY BUFFER) LD HL,TREQH JP SUBENQ VCRINF: PUSH AF ; SAVE COMMAND INDEX ;-------------------------------┆
0x69b00…69b80 (65, 0, 3) UnusedSector ┆----------------- ; D O W H I L E (VCR-COMMAND BUF NOT AVAILABLE)) ;------------------------------------------------ DWHI03┆
0x69b80…69c00 (65, 0, 4) UnusedSector ┆: LD HL,RINTCOM CALL SUBDEQ JR C,ENDD03 CALL OUTGOING ; CALL DORA OUTGOING CALL SCOMMON EI JR DWHI03 ;----------┆
0x69c00…69c80 (65, 0, 5) UnusedSector ┆----- ; E N D D O ;--------------- ENDD03: JP INFVCR END ┆
0x69c80…69d00 (65, 0, 6) UnusedSector ┆ ' ' ' ┆
0x69d00…69d80 (65, 0, 7) UnusedSector ┆ ~ > > 6 ( $" h$ 6 [ ! ^#V " $ ┆
0x69d80…69e00 (65, 0, 8) UnusedSector ┆ D ! Nwy # F !/ " s#r 0 * ! " u$ ! ┆
0x69e00…69e80 (65, 0, 9) UnusedSector ┆ ' J ! . 6 ! ! 8 e " @ 1 4 8 ; C I 5 ┆
0x69e80…69f00 (65, 0, 10) UnusedSector ┆TENDED SCHEDULER ;DESTR: REG A,F,H,L,SP X#$YM: LD HL,INISP LD SP,HL ;INITIATE SP EI ;INTERRUPT INTERVAL NOP NOP┆
0x69f00…69f80 (65, 0, 11) UnusedSector ┆ DI S#$YM: LD HL,SYSRAM+0FAH IF LINK.EQ.1 JR Z#$YM ;TEST IF LINKELEMENT ZERO ENDIF R#$YM: INC (HL) ;INC CURRENT LIS┆
0x69f80…6a000 (65, 0, 12) UnusedSector ┆T ELEMENT LD L,(HL) INC H ;SHEDULE LIST ADD IMPLEMENTED LD L,(HL) INC H ;ADD OF PD IMPLEMENTED IF S.GT.16 LD H,0 ┆
0x6a000…6a080 (65, 0, 13) UnusedSector ┆ SLA L RL H ;MULTIPLY ADD BY 2 ENDIF IF S.GT.32 SLA L RL H ;MULTIPLY ADD BY 2 ENDIF IF S.GT.64 SLA L RL H ;┆
0x6a080…6a100 (65, 0, 14) UnusedSector ┆MULTIPLY ADD BY 2 ENDIF IF S.GT.128 SLA L RL H ENDIF IF S.GT.16 LD DE,SYSRAM+205H ADD HL,DE ;ADD RELATIVE ADDRE┆
0x6a100…6a180 (65, 0, 15) UnusedSector ┆SS ENDIF BIT 7,(HL) ;TEST ACTIVE/PASSIV JR Z,X#$YM ;JUMP IF PASSIV INC L LD SP,HL ;SP POINTS AT XXX6 INC L INC ┆
0x6a180…6a200 (65, 0, 16) UnusedSector ┆L LD (SYSRAM+0F8H),HL;SAVE ADDRESS OF ;EXECUTING PD RET IF LINK.EQ.1 EXTRN EXSCHED Z#$YM: INC HL ;IMPLEMENT ADD O┆
0x6a200…6a280 (65, 0, 17) UnusedSector ┆F LINK ELEMENT LD A,(HL) ; AND A ;IF LINK-ELEMENT 0 THEN JP Z,EXSCHED ;GOTO EXTENDED SCHEDULER DEC HL ;ELSE JP R#$Y┆
0x6a280…6a300 (65, 0, 18) UnusedSector ┆M ;RETURN TO BASIC SCHEDULER ENDIF ENDM EJEC RESTORE MACRO #N,#R1,#R2,#R3,#R4 ;DESCRIP:THE MODULE RESTORES THE #N R┆
0x6a300…6a380 (65, 0, 19) UnusedSector ┆EG.-PAIR(S) ; SPECIFIED AND INITIALIZES SP. ; THE REG.-PAIRS ARE RESTORED FROM ; BYTE 8,9,10,11,2,13,14,15 IN PO┆
0x6a380…6a400 (65, 0, 20) UnusedSector ┆CESS- ; DESCRIPTION. THE SPECIFIED REG.-PAIR ; WITH HIGHEST INDEX IS RESTORED FROM ; BYTE 8 ;DESTR: REG H,L,┆
0x6a400…6a480 (65, 0, 21) UnusedSector ┆SP IF #N.GT.3 ;THE ROUTINE RESTORES POP #R4 ;#R4 ENDIF IF #N.GT.2 POP #R3 ;#R3 ENDIF IF #N.GT.1 POP #R2 ;#R2┆
0x6a480…6a500 (65, 0, 22) UnusedSector ┆ ENDIF IF #N.GT.0 POP #R1 ;#R1 ENDIF LD SP,INISP ;INIT SP ENDM EJEC SCHEDULE MACRO #N,#R1,#R2,#R3,#R4 ;DES┆
0x6a500…6a580 (65, 0, 23) UnusedSector ┆CRIP: THE MODULE DISABLES INTERRUPTS ; SAVES THE #N SPECIFIED REG.-PAIR(S) ; AND JUMPS TO ADD 38H (BASIC SCHEDULER). ┆
0x6a580…6a600 (65, 0, 24) UnusedSector ┆ ; THE REG.-PAIRS ARE SAVED IN PROCESS- ; DESCRIPTION BYTE 8,9,10,11,12,13,14,15 ; WITH THE SPECIFIED REGISTER WITH┆
0x6a600…6a680 (65, 0, 25) UnusedSector ┆ ; HIGHEST INDEX SAVED IN BYTE 8 ;EXIT: ADD 38H ;DESTR: REG. H,L,SP ; SPEC. BYTES IN PROCESS-DESCRIPTION I┆
0x6a680…6a700 (65, 0, 26) UnusedSector ┆F #N.GT.0 LD HL,(SYSRAM+0F8H);ADD OF EXECUTING PD TO HL PUSH AF ;STORE AF LD A,L ADD A,#N*2-1 LD L,A INC HL POP A┆
0x6a700…6a780 (65, 0, 27) UnusedSector ┆F ;RESTORE AF DI LD SP,HL ;STORE REGISTERS ON INISP ENDIF IF #N.EQ.0 DI LD SP,(SYSRAM+0F8H) ENDIF IF #N.GT.0 ┆
0x6a780…6a800 (65, 0, 28) UnusedSector ┆ PUSH #R1 ;#R1 IF #N.GT.1 PUSH #R2 ;#R2 IF #N.GT.2 PUSH #R3 ;#R3 IF #N.GT.3 PUSH #R4 ;#R4 ENDIF ENDIF ENDI┆
0x6a800…6a880 (65, 0, 29) UnusedSector ┆F ENDIF RST 38H ;SCHEDULE ENDM EJEC COMMON MACRO #N,#R1,#R2,#R3,#R4 ;DESCRIP: THE MODULE DISABLES INTERRUPT, ┆
0x6a880…6a900 (65, 0, 30) UnusedSector ┆ ; SAVES THE #N SPECIFIED REG.-PAIR(S) IN ; PROCESS-DESCRIPTION, ENFORCES A SCHE- ; DULING, RESTORES THE #N SPECIFIED ┆
0x6a900…6a980 (65, 0, 31) UnusedSector ┆ ; REG.-PAIR(S) AND ENABLES INTERRUPT. ;DESTR: REG. H,L,SP ; SPECIFIED BYTES IN PROCESS-DESCRIP. ; NOT SPECIF┆
0x6a980…6aa00 (65, 0, 32) UnusedSector ┆IED REG.-PAIRS SCHEDULE #N,#R1,#R2,#R3,#R4 RESTORE #N,#R1,#R2,#R3,#R4 ENDM EJEC LISTSCHED MACRO #START,#ELEMENT,#STEP ┆
0x6aa00…6aa80 (65, 0, 33) UnusedSector ┆ ;DESCRIP: THE MODULE INSERTS #ELEMENT IN SCHEDULE- ; LIST AS ELEMENT-NO #START+#STEP*N, WHERE ; N IS A NON-NEGATIV┆
0x6aa80…6ab00 (65, 0, 34) UnusedSector ┆E INTEGER ;DESTR: REG A,F,H,L LD HL,SYSRAM+100H+#START L#$YM: LD (HL),#ELEMENT ;LOAD LIST WITH ELEMENT LD A,L ADD A,┆
0x6ab00…6ab80 (65, 0, 35) UnusedSector ┆#STEP ;IMPLEMENT NEXT LIST ELEMENT LD L,A ;IF LAST LIST-ELEMENT THEN JR NC,L#$YM ;FINISH ;ELSE GOTO L#$YM ENDM EJ┆
0x6ab80…6ac00 (65, 0, 36) UnusedSector ┆EC ENASCH MACRO ;DESCRIP: THE MODULE ENABLES BASIC SCHEDULER ;DESTR: REG H,L LD HL,SYSRAM+0F5H SET 7,(HL) ENDM ┆
0x6ac00…6ac80 (65, 0, 37) UnusedSector ┆ EJEC DISSCH MACRO ;DESCRIP: THE MODULE DISABLES BASIC SCHEDULER ;DESTR: REG H,L LD HL,SYSRAM+0F5H RES 7,(HL) ┆
0x6ac80…6ad00 (65, 0, 38) UnusedSector ┆ENDM EJEC EJEC ;=================== SPECIAL-PROCESS DEFINITIONS ====================== ; ; P-PRONAME : P:- ABRIV┆
0x6ad00…6ad80 (65, 0, 39) UnusedSector ┆IATION OF PROCESS , ; PRONAME :- THE PROCESS NAME ; ; THE RELATIONS BETWEEN S-PROCESS-NUMBER AND ; THE PROCES┆
0x6ad80…6ae00 (65, 0, 40) UnusedSector ┆SNAME IS STATED BY ; ; PPRONAME EQU S-PROCESS-NO. ; ;=================================================================┆
0x6ae00…6ae80 (65, 0, 41) UnusedSector ┆============ PTQMACT EQU 00 PSTART EQU 01 PPBS EQU 02 PVPRTCL EQU 03 PDATEXP EQU 04 PVCR15 EQU 05 PVCR16 EQU 06 ┆
0x6ae80…6af00 (65, 0, 42) UnusedSector ┆ PVCRINT EQU 07 PF0MDAM EQU 08 PF2MDAM EQU 09 PEHPRC EQU 10 PCOMLIN EQU 11 PTEST EQU 12 ;===================== BAS┆
0x6af00…6af80 (65, 0, 43) UnusedSector ┆ @ C,A-A.A/A0A1A2A3A4A B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B!B"B#B$B%B&B'B(B)B*B+B,B-B.B/B0B1B2B3B4B C┆
0x6af80…6b000 (65, 0, 44) UnusedSector ┆ALT OPERATIV-SYSTEM DEFINITIONS ================= S EQU 16 N EQU 0 LINK EQU 0 ;==================================┆
0x6b000…6b080 (65, 0, 45) UnusedSector ┆========================================== LIST S NAME MDAMF0 ;**********************************************************┆
0x6b080…6b100 (65, 0, 46) UnusedSector ┆******** ; ; DATE: CHRISTIAN ROVSING A/S 81 00 00 ; PROGRAMMER : SAA ; SUBJECT : THE DISTRIBUTION AN┆
0x6b100…6b180 (65, 0, 47) UnusedSector ┆D MANAGEMENT. ; THE MDAM-MODULE IS PARTED INTO 3 ; MDAMF0: THE DISTRIBUTION MODE ; MDAMF1: THE VDU-MESSAGE MODE ; ┆
0x6b180…6b200 (65, 0, 48) UnusedSector ┆ MDAMF2: THE CR80 MESSAGE MANAGEMENT ; ; THE MANAGEMENT OF MESSAGES IS CONTROLLED BY ; THE MDAM-MODULE MODE. MODES ARE ;┆
0x6b200…6b280 (65, 0, 49) UnusedSector ┆ ; STANDBY MODE, ; OVERVIEW SCHEDULE MODE, ; WORK SCHEDULE MODE, ; CR80 DATA MODE, ; CR80 ACKNOWLEDGE MODE ┆
0x6b280…6b300 (65, 0, 50) UnusedSector ┆; CORRECTION ; PREVERSION: ; DATE :810000.0000 ; STATUS : ; BY : ; ; ; TEST ; DATE :810526.0000 ; S┆
0x6b300…6b380 (65, 0, 51) UnusedSector ┆TATUS :TESTED ; BY :SAA ; ; ;******************************************************************** EJEC PUBLIC MDA┆
0x6b380…6b400 (65, 0, 52) UnusedSector ┆MF0 PUBLIC MDAMCOM,RMDAMCOM,QUETST PUBLIC MDAMMODE,VCRINF,INFVCR,PROINF,CRCHECK PUBLIC MDM1ACCS,MDM2ACCES,OWSEQ,WRKSEQ,CR8┆
0x6b400…6b480 (66, 0, 1) UnusedSector ┆0SEQ PUBLIC CHRECORD,MDAMDEQ PUBLIC OWOFFSET,WRKOFFSET,CR80OFFSET,VDUOFFSET EXTRN SUBENQ,SUBDEQ,SCOMMON EXTRN TRFQH,TREQ┆
0x6b480…6b500 (66, 0, 2) UnusedSector ┆H,RCFQH,RCEQH EXTRN CASE,MCSEND EXTRN MESINDX,RINTCOM,INTCOM DSEG ;-------------------------- R A M D A T A -------┆
0x6b500…6b580 (66, 0, 3) UnusedSector ┆----------------------- COMMU: DS 1 ; COMMU:(BIT0.:- COMMUNICATION ACTIV):BYTE ;--------------------------------------┆
0x6b580…6b600 (66, 0, 4) UnusedSector ┆------ MDAMMODE:DS 1 ; MDAMMODE:(VCR,VDU,CR80):BYTE ;-------------------------------------------- MDAMCOM:DS 8 ;MDAMCOM┆
0x6b600…6b680 (66, 0, 5) UnusedSector ┆MAND: RECORD OF SPARE:BYTE , ; ELEMTS:BYTE , ; FIRST:ADDRESS , ; LAST: ADDRESS , ; SPARE:ADDRESS . ┆
0x6b680…6b700 (66, 0, 6) UnusedSector ┆ ;--------------------------------------------- RMDAMCOM:DS 8 ; RMDAMCOM:MDAMCOMMAND:(THE RETURN QUE OF ; MDAM-COMM┆
0x6b700…6b780 (66, 0, 7) UnusedSector ┆ANDS) ;--------------------------------------------- CHRECORD:DS 32 ;CHRECORD:RECORD(-) OF QUESRC:ARRAY(15) OF BIT ;┆
0x6b780…6b800 (66, 0, 8) UnusedSector ┆ CLOSE: BIT ; ARGUMENTED BY PROCESS NUMBER ;--------------------------------------------- ACTREC: DS 2 ; ACTU┆
0x6b800…6b880 (66, 0, 9) UnusedSector ┆EL RECORD:(POINTER TO RUNNING CHRECORD) ;--------------------------------------------- STKMDAM:DS 20H MDAMSTK: CSEG ┆
0x6b880…6b900 (66, 0, 10) UnusedSector ┆ ;---------------- LIST OF LEGALE COMMANDS ------------------------ CR80SEQ:DB 'MODT' DB 'SEND' OWSEQ: DB 'ERS' WRKSEQ: ┆
0x6b900…6b980 (66, 0, 11) UnusedSector ┆DB 'PAU' ; COMSEQ:ARRAY(-) OF COMCHAR:ARRAY(3) OF BYTE DB 'SLU' ;-------------------------------------------- DB 'BES' DB ┆
0x6b980…6ba00 (66, 0, 12) UnusedSector ┆'TAK' DB 'IND' DB 'UD ' DB 'PLU' DB 'MIN' DB 'SEA' DB 'SHI' DB 'ENT' DB 'REP' DB 'INC' DB 'DEL' DB 'REC' ┆
0x6ba00…6ba80 (66, 0, 13) UnusedSector ┆ DB 'STO' DB 'CUE' DB 'SYN' DB 'SIM' DB 'MS3' ;RUL OP 10 LINES DB 'MS4' ; RUL 10 LINIER NED DB 'RUL' VDUSEQ: DB┆
0x6ba80…6bb00 (66, 0, 14) UnusedSector ┆ 'RED' DB 'MS3' ;RUL OP 10 LINES DB 'MS4' ; RUL 10 LINIER NED DB 'RUL' DB 'MS1' ; START OF RECORDING DB 'MS2' ; EN┆
0x6bb00…6bb80 (66, 0, 15) UnusedSector ┆D OF RECORDING DB 'MS5' ; ????? DB 'KOP' DB 'VIS' DB 'PRI' DB 'HEN' DB 'GEM' VDUOFFSET DEFL (VDUSEQ-CR80SEQ)/3 ┆
0x6bb80…6bc00 (66, 0, 16) UnusedSector ┆OWOFFSET DEFL (OWSEQ-CR80SEQ)/3 WRKOFFSET DEFL (WRKSEQ-CR80SEQ)/3 CR80OFFSET DEFL (CR80SEQ-CR80SEQ)/3 EJEC ;-------------┆
0x6bc00…6bc80 (66, 0, 17) UnusedSector ┆--------- EXECUTABLE CODE STATEMENT -------------------------- MDAMF0: LD SP,CHRECORD+32 ; LD HL,8000H ; LD C,16 ; C┆
0x6bc80…6bd00 (66, 0, 18) UnusedSector ┆HOPEN: PUSH HL ; CLOSE MDAM-CHANNELS DEC C ; JR NZ,CHOPEN ; LD HL,MDAMMODE ; LD (HL),STANDBY ; MDAMMODE:=VDU TO┆
0x6bd00…6bd80 (66, 0, 19) UnusedSector ┆ CR80 /STANDBY MODE DEC HL LD (HL),0H ; COMMU.BIT0:=0 LD SP,MDAMSTK ;------------------------------------------------┆
0x6bd80…6be00 (66, 0, 20) UnusedSector ┆ ; D O F O R E V E R ;------------------------------------------------ FOREV: CALL SCOMMON EI CALL DISTRIB ; CONSUL┆
0x6be00…6be80 (66, 0, 21) UnusedSector ┆T DISTRIBUTION PART CALL VDUTRS ; CONSULT VDUTRANSMITTER PART CALL MDAMF1 ; CONSULT TRANSMIT TO VDU PART JR FOREV M┆
0x6be80…6bf00 (66, 0, 22) UnusedSector ┆DAMF1: LD HL,COMMU LD A,(RCFQH+1) OR A ;I F (BUFFER PRESENT ON QUEUE) AND (QUEU NO ALLOCATED AN PROCESS) IF01: JR Z,E┆
0x6bf00…6bf80 (66, 0, 23) UnusedSector ┆LSE01 ;T H E N ( TEST THAT QUE NO ALLOCATED AN PROCESS) THEN01: BIT 0,(HL) JR NZ,ELSE01 SET 0,(HL) LD A,(MDAMMODE) ┆
0x6bf80…6c000 (66, 0, 24) UnusedSector ┆ LD HL,MDACASE ENDT01: JP CASE ;E N D T H E N ;E L S E ( TEST FOR END OF COMMUNICATION) ELSE01: LD BC,RCFQH ; (A):=RC┆
0x6c000…6c080 (66, 0, 25) UnusedSector ┆FQH.ELEMENTS CALL QUETST RET Z ENDS01: LD HL,COMMU RES 0,(HL) ;E N D E L S E ;E N D I F ENDF01: RET VDUTRS: LD ┆
0x6c080…6c100 (66, 0, 26) UnusedSector ┆BC,PF0MDAM CALL MDAMDEQ RET NC LD HL,TRFQH JP SUBENQ ;---------------------------------------------------------------┆
0x6c100…6c180 (66, 0, 27) UnusedSector ┆------------- EJEC ;============================================================================== ; ROUTINENAME: M D A M ┆
0x6c180…6c200 (66, 0, 28) UnusedSector ┆ D E S T I N A T I O N C H A N N E L D E Q ; ; FUNCTIONAL SPEC : DEQUES THE QUESOURCE OF THE DESTINATION CHANNEL ; AND ┆
0x6c200…6c280 (66, 0, 29) UnusedSector ┆IF LAST BUFFER RECEIVED THE CHANNEL IS ; CLOSED. ; N B !!!!! THE QUESOURCE ADDRESS < 32000H ; ; ENTRY: AF: ; BC: (BC):┆
0x6c280…6c300 (66, 0, 30) UnusedSector ┆= MDAM-DESTINATION NUMBER/=PROCESS NUMBER OF THE ; RECEIVING PROCESS ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT ┆
0x6c300…6c380 (66, 0, 31) UnusedSector ┆: AF: CARRY RESET: NO BUF AVAILABLE ; CARRY SET : BUFFER AVAILABLE. ; ZERO RESET: BUFFERSIZE<128:LAST BUFFER REC┆
0x6c380…6c400 (66, 0, 32) UnusedSector ┆EIVED ; ZERO SET : BUFFERSIZE=(128,0) ; BC: (BC):=MDAMINDEX*2 ; DE: (DE):= ADDRESS OF RECEIVED MESSAGEBUFFER ; HL:┆
0x6c400…6c480 (66, 0, 33) UnusedSector ┆ ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ;============================================================================= ┆
0x6c480…6c500 (66, 0, 34) UnusedSector ┆ CSEG ;--------------------------- EXCECUTABLE CODE --------------------------- MDAMDEQ: LD HL,CHRECORD+1 SLA C ; M┆
0x6c500…6c580 (66, 0, 35) UnusedSector ┆DAM-INDEX*2 , CARRY:=0 ADD HL,BC BIT 7,(HL) ; TEST 'CHANNEL CLOSED BIT' ;-------------------------------------------------┆
0x6c580…6c600 (66, 0, 36) UnusedSector ┆------ ; I F ( MDAM DESTINATIONS CHANNEL CLOSED) ; T H E N EXIT MDAMDEQ WITH CARRY RESET ; E L S E PERFORME SUBDEQ ON SPECI┆
0x6c600…6c680 (66, 0, 37) UnusedSector ┆FIED QUE ;------------------------------------------------------- IF04: THEN04: RET NZ ; RETURN WITH CARRY RESET(C:=0,Z:=0┆
0x6c680…6c700 (66, 0, 38) UnusedSector ┆) ENDT04: ELSE04: PUSH HL ; SAVE ADDRESS OF CHRECORD(-).CLOSEBIT LD D,(HL) ; DEC HL ; LD E,(HL) ; EX DE,HL ; (H┆
0x6c700…6c780 (66, 0, 39) UnusedSector ┆L):=SOURCE QUEUE CALL SUBDEQ ;------------------------------------------------ ; I F ( BUFFER PRESENT ON QUE) ; T H E ┆
0x6c780…6c800 (66, 0, 40) UnusedSector ┆N TEST IF LAST BUUFER RECEIVED AND ; CLOSE CHANNEL IF SO ; E L S E EXIT MDAMDEQ ;----------------------------------------┆
0x6c800…6c880 (66, 0, 41) UnusedSector ┆-------- IF00: JR NC,ELSE00 THEN00: LD HL,DMHBCOUNT ADD HL,DE LD A,7FH AND (HL) CCF ; SET CARRY POP HL ; UNSAVE ┆
0x6c880…6c900 (66, 0, 42) UnusedSector ┆ADDRESS OF CHRECORD(-).CLOSEBIT RET Z ; RETURN IF NO TERMINATING BUFFER CLOSE: SET 7,(HL) ; CLOSE CHANNEL ENDT00: RET ;┆
0x6c900…6c980 (66, 0, 43) UnusedSector ┆ (C):=1,(Z):=0 ELSE00: POP HL ; ADJUST SP-VALUE BIT 7,(HL) ; (C):=0,(Z):=1 ENDS00: RET ENDS04: ENDF04: ;-----------┆
0x6c980…6ca00 (66, 0, 44) UnusedSector ┆----------------------------------------------------------------- EJEC ;=====================================================┆
0x6ca00…6ca80 (66, 0, 45) UnusedSector ┆========================= ; ROUTINENAME: M D A M C H A N N E L A C C E S S ; ; FUNCTIONAL SPEC : REQUESTS MDAMCHANNEL ACC┆
0x6ca80…6cb00 (66, 0, 46) UnusedSector ┆ESS ARGUMENTED BY: ; MDM1-: ; 1) DORA COMMAND INDEX. ; 2) QUESOURCE ; MDM2-: ; 1) MDAM-CHANNEL INDEX/=PROCESS ┆
0x6cb00…6cb80 (66, 0, 47) UnusedSector ┆NO. OF ; RECEIVING PROCESS ; 2) QUESOURCE ; ; ENTRY: AF: (A):= COMMANDINDEX/MDAMCHANNEL-INDEX ; DE: (DE):= QUESOU┆
0x6cb80…6cc00 (66, 0, 48) UnusedSector ┆RCE ADDRESS ; BC: (BC):= DESTINATION LIST,ARGUMENTED BY (A)/NOT USED ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: ; ┆
0x6cc00…6cc80 (66, 0, 49) UnusedSector ┆BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ;============================================================┆
0x6cc80…6cd00 (66, 0, 50) UnusedSector ┆================= CSEG ;--------------------------- EXCECUTABLE CODE ------------------------ MDM1ACCS: LD L,A ; L┆
0x6cd00…6cd80 (66, 0, 51) UnusedSector ┆D H,0 ; ADD HL,BC ; (HL):= MDADESTLIST(INDEX) LD A,(HL) ; (A):= MDAMCH. INDEX MDM2ACCS: PUSH DE ; SAVE QUE-ADDR┆
0x6cd80…6ce00 (66, 0, 52) UnusedSector ┆ESS PUSH AF ; SAVE MDAMCH.-INDEX ;------------------------------------------- ; D O W H I L E ( MDAM MESBUF NOT AVAI┆
0x6ce00…6ce80 (67, 0, 1) UnusedSector ┆LABLE) ;------------------------------------------- DWHI02: LD HL,RMDAMCOM CALL SUBDEQ JR C,ENDD02 CALL SCOMMON EI ┆
0x6ce80…6cf00 (67, 0, 2) UnusedSector ┆+A D C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C!C"C#C$C%C&C'C(C)C*C+C,C-C.C/C0C1C2C3C4C D D D D D D D D D D D D┆
0x6cf00…6cf80 (67, 0, 3) UnusedSector ┆ JR DWHI02 ;-------------------- ; E N D D O ;-------------------- ENDD02: LD HL,MMHDESTNO ADD HL,DE ; (HL):= MD┆
0x6cf80…6d000 (67, 0, 4) UnusedSector ┆AMMESBUF.MDADEST POP AF ; UNSAVE MDAM CHANNEL INDEX POP BC ; UNSAVE QUESOURCE LD (HL),A ; MESBUF.MDAMCH NO.:=(A) I┆
0x6d000…6d080 (67, 0, 5) UnusedSector ┆NC HL LD (HL),C INC HL LD (HL),B ; MESBUF.QUESRC:=(BC) LD HL,MDAMCOM JP SUBENQ EJEC ;==========================┆
0x6d080…6d100 (67, 0, 6) UnusedSector ┆==================================================== ; CASENAME: M D A M M O D E ; ; FUNCTIONAL SPEC : THE MADAM FRONT N┆
0x6d100…6d180 (67, 0, 7) UnusedSector ┆R.1 RECEIVES DATA FROM THE VDU I/F ; AND THE DISTRIBUTION OF THIS DATA IS CONDITIONED ; BY THE MDAM-MODE. ; ; ;=======┆
0x6d180…6d200 (67, 0, 8) UnusedSector ┆====================================================================== CSEG ;-------------------------- PROM DATA ------┆
0x6d200…6d280 (67, 0, 9) UnusedSector ┆------------------------------- MDACASE:DW C1STBY,C1OW,C1WRK,C180DA,C180ACK ;------------------------ EXCECUTABLE CODE -┆
0x6d280…6d300 (67, 0, 10) UnusedSector ┆----------------------------- ;CASE1: MDAMMODE=STANDBY : THIS IS THE STANDBY MODE. ; ALL CR80-COMMANDS ARE LEGALE AND ; ┆
0x6d300…6d380 (67, 0, 11) UnusedSector ┆ IS ROUTED TO THE RELEVANT ; PROCESS,(E.I. COMMANDS WHICH IS ; RELATED EDITING ON THE VCR/VCR ; I/F ARE ROUTED TO THE ┆
0x6d380…6d400 (67, 0, 12) UnusedSector ┆COMMAND- ; INTERPRETER,OTHERWISE THE ARE ; ROUTED DIRECTLY TO THE CR80). ; DISPLAY-DATA IS ROUTED TO CR80. ;-------┆
0x6d400…6d480 (67, 0, 13) UnusedSector ┆---------------------------------------------- C1STBY: CALL CR1CHECK ;------------------------------------------------ ; ┆
0x6d480…6d500 (67, 0, 14) UnusedSector ┆ I F ( 'CR' PRESENT) ; T H E N COMMAND LINE RECEIVED ; E L S E SCHEDULEDATA RECEIVED ;-----------------------------------┆
0x6d500…6d580 (67, 0, 15) UnusedSector ┆------------- IF05: JR NZ,ELSE05 THEN05: LD A,VDUOFFSET LD HL,VDUSEQ LD BC,0A03H ; KOPI/VIS/PRINT/HENT/GEM- LEGALE COMMA┆
0x6d580…6d600 (67, 0, 16) UnusedSector ┆NDS TODST1: CALL PROINF ; INFORM PROCESSES INVOLVED ENDT05: JR TODST2 ; MDAMACCESS(QUESRC:=RCFQH,MDAMDEST:=VCR/CR80, ; ┆
0x6d600…6d680 (67, 0, 17) UnusedSector ┆ DESTINATIONSIST:=DESTINA ) ELSE05: LD A,PF2MDAM ; DESTINATION:= MDAMF2-PROCESS(CR80-LINK) TODST2: LD DE,RCFQH ; ┆
0x6d680…6d700 (67, 0, 18) UnusedSector ┆SOURCE QUE:= RCFQH ENDS05: JR MDM2ACCS ; GET MDAM-CHANNEL ACCESS ENDF05: EC1VCR: EJEC ;CASE2 : MDAMMODE=OWERWIEV SHE┆
0x6d700…6d780 (67, 0, 19) UnusedSector ┆DULE DISPLAYED. ; IN THIS CASE ONLY OWERWIEV-RELATED ; COMMANDS ARE LEGALE. ; DISPLAY DATA(OWERWIEV-SCHEDULE) IS┆
0x6d780…6d800 (67, 0, 20) UnusedSector ┆ ; ROUTED TO THE DATA COMPRESS PROCESS. ;---------------------------------------------------- C1OW: CALL CR1CHECK ;-┆
0x6d800…6d880 (67, 0, 21) UnusedSector ┆----------------------------------------------- ; I F ( 4BUF.3.CHAR = 'CR' ) ; T H E N COMMAND LINE RECEIVED ; E L S E S┆
0x6d880…6d900 (67, 0, 22) UnusedSector ┆CHEDULEDATA RECEIVED ;------------------------------------------------ IF06: JR NZ,ELSE06 THEN06: LD A,OWOFFSET LD BC,03┆
0x6d900…6d980 (67, 0, 23) UnusedSector ┆03H ; ERSTAT/PAUSE/SLUT/-LEGALE COMMANDS LD HL,OWSEQ ENDT06: JR TODST1 ELSE06: LD A,ASCDAT CALL VCRINF ; INFORM INTERPR┆
0x6d980…6da00 (67, 0, 24) UnusedSector ┆ETER ABOUT ASCII-DATA RECEIVED ENDS06: JR TODST2 ENDF06: EJEC ;CASE3 : MDAMMODE=WORK SHEDULE DISPLAYED. ; IN THIS ┆
0x6da00…6da80 (67, 0, 25) UnusedSector ┆CASE ONLY EDIT-RELATED ; COMMANDS ARE LEGALE. ; DISPLAY DATA(WORK-SCHEDULE) IS ; ROUTED TO THE DATA COMPRESS PR┆
0x6da80…6db00 (67, 0, 26) UnusedSector ┆OCESS. ;---------------------------------------------------- C1WRK: CALL CR1CHECK ;---------------------------------------┆
0x6db00…6db80 (67, 0, 27) UnusedSector ┆--------- ; I F ( 4BUF.3.CHAR = 'CR' ) ; T H E N COMMAND LINE RECEIVED ; E L S E SCHEDULEDATA RECEIVED ;--------------┆
0x6db80…6dc00 (67, 0, 28) UnusedSector ┆---------------------------------- IF08: JR NZ,ELSE08 THEN08: LD A,WRKOFFSET LD BC,1703H ; PAUSE/SLUT/AND EDITING COMMAND┆
0x6dc00…6dc80 (67, 0, 29) UnusedSector ┆S LEGALE LD HL,WRKSEQ ENDT08: JR TODST1 ELSE08: LD A,ASCDAT CALL VCRINF ; INFORM INTERPRETER ABOUT ASCII-DATA RECEIVED ┆
0x6dc80…6dd00 (67, 0, 30) UnusedSector ┆ ENDS08: JR TODST2 ENDF08: EJEC ;CASE4: MDAMMODE=CR80 : ILLEGAL SITUATION ;CASE5: MDAMMODE= CR80-ACKNOWLEDGE: ILLEGAL SITUA┆
0x6dd00…6dd80 (67, 0, 31) UnusedSector ┆TION ;----------------------------------------------------- C180ACK: C180DA: LD HL,RCFQH CALL SUBDEQ RET NC LD HL,RCEQH┆
0x6dd80…6de00 (67, 0, 32) UnusedSector ┆ JP SUBENQ EC180DA: EJEC ;============================================================================== ; ROUTINENAME:┆
0x6de00…6de80 (67, 0, 33) UnusedSector ┆ C R - C H E C K ; ; FUNCTIONAL SPEC : EVALUATES THE 51. CHARACTER. ; IF THIS EQUALS THE 'CR'-ASCII-CHARACTER ; THE ┆
0x6de80…6df00 (67, 0, 34) UnusedSector ┆ZER0-FLAG IS SET. ; OTHERWISE NOT ; ENTRY: AF: ; BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: ZFLAG=1┆
0x6df00…6df80 (67, 0, 35) UnusedSector ┆: 'CR' FOUND ; BC: ; DE: (DE):= ADDRESS OF RCFQH.FIRST.DATABUFFERADDRESS ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION┆
0x6df80…6e000 (67, 0, 36) UnusedSector ┆ : ;============================================================================= CSEG ;------------------------- EXCECUT┆
0x6e000…6e080 (67, 0, 37) UnusedSector ┆ABLE CODE ------------------------------ CR1CHECK:LD DE,(RCFQH+2) CRCHECK:LD HL,DMHDATPTR ADD HL,DE LD E,(HL) INC HL ┆
0x6e080…6e100 (67, 0, 38) UnusedSector ┆ LD D,(HL) ; (DE):=RCFQH.FIRST.DATABUFFER LD HL,04 ADD HL,DE ;(HL):= DATABUFFER.CHARNO=04 LD A,0DH ;(A):=ASCII('CR')┆
0x6e100…6e180 (67, 0, 39) UnusedSector ┆ CP (HL) ; RETURN IF 'MS1','MS2','MS3',MS4' CODE RET Z LD HL,50 ADD HL,DE ; (HL):= DATABUFFER.CHARNO=50 CP (HL) ;┆
0x6e180…6e200 (67, 0, 40) UnusedSector ┆ RETURN WITH RESULT OF COMMAND ?? RET EJEC ;============================================================================== ┆
0x6e200…6e280 (67, 0, 41) UnusedSector ┆ ; ROUTINENAME: P R O C E S S I N F O R M ; ; FUNCTIONAL SPEC : THIS ROUTINE FINDS THE DESTINATION OF THE ; COMMAND REC┆
0x6e280…6e300 (67, 0, 42) UnusedSector ┆EIVED,AND IF NEEDED INFORMS ; PROCESSES INVOLVED IN THE MANAGEMENT OF ; THE COMMAND. ; ENTRY: AF: ; BC: B:= NUMB OF COM┆
0x6e300…6e380 (67, 0, 43) UnusedSector ┆MANDS IN THE COMMAND REFERENCE LIST, ; C:= NUMB OF SIGNIFICANT COMMANDCHARACTERS ; DE: (DE):= ADDRESS OF FIRST COMMAND C┆
0x6e380…6e400 (67, 0, 44) UnusedSector ┆HARACTER ; HL: (HL):= REFERENCE LIST ADDRESS ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: (A):= MDAM-CHANNEL INDEX ; BC: ; ┆
0x6e400…6e480 (67, 0, 45) UnusedSector ┆ DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ;===================================================================┆
0x6e480…6e500 (67, 0, 46) UnusedSector ┆========== CSEG ;--------------------------- EXCECUTABLE CODE --------------------------- PROINF: PUSH AF ; SAVE COMM┆
0x6e500…6e580 (67, 0, 47) UnusedSector ┆AND INDEX OFFSET INC DE ; IGNORE BUFFER MESSAGE BYTE LD A,(DE) CP 09H JR NZ,NOHT INC DE ; IGNORE 'HT' CHARACTER NOH┆
0x6e580…6e600 (67, 0, 48) UnusedSector ┆T: CALL MESINDX ; COMPARE COMMAND TO REFERENCE-LIST POP BC ; UNSAVE COMMAND INDEX OFFSET OR A ;-------------------------┆
0x6e600…6e680 (67, 0, 49) UnusedSector ┆----------------------- ; I F ( NOT ERROR-INDEX) ; T H E N ADD COMMANDINDEX AND COMMANDINDEX-OFFSET ;-------------------┆
0x6e680…6e700 (67, 0, 50) UnusedSector ┆----------------------------- IF09: JR Z,ELSE09 THEN09: ADD A,B ELSE09: CP ASCDAT ;-----------------------------------------┆
0x6e700…6e780 (67, 0, 51) UnusedSector ┆------- ; I F ( DESTINATION=VCRMESMAND INTERPRETER) ; T H E N INFORM COMMAND INTERPRETER ;---------------------------------┆
0x6e780…6e800 (67, 0, 52) UnusedSector ┆--------------- IF07: JR NC,ELSE07 VCRINF: THEN07: PUSH AF ; SAVE COMMAND INDEX ;----------------------------------------┆
0x6e800…6e880 (68, 0, 1) UnusedSector ┆-------- ; D O W H I L E (VCR-COMMAND BUF NOT AVAILABLE)) ;------------------------------------------------ DWHI03: LD HL,R┆
0x6e880…6e900 (68, 0, 2) UnusedSector ┆INTCOM CALL SUBDEQ JR C,ENDD03 CALL VDUTRS ; CALL VDU TRANSMITTER PART CALL DISTRIB ; CALL DISTRIBUTION PART CALL ┆
0x6e900…6e980 (68, 0, 3) UnusedSector ┆SCOMMON EI JR DWHI03 ;--------------- ; E N D D O ;--------------- INFVCR: ENDD03: LD HL,CMHMOTHERCASE ADD HL,D┆
0x6e980…6ea00 (68, 0, 4) UnusedSector ┆E POP BC ; UNSAVE COMMAND INDEX PUSH BC ; SAVE COMMAND INDEX LD A,80H OR B ; SET MOTHERCASE ACTIVE LD (HL),A ; VCR┆
0x6ea00…6ea80 (68, 0, 5) UnusedSector ┆MES.COMMANDINDEX:= COMMAND INDEX INC HL LD (HL),IENTRY ; INDICATE INITIAL COMMAND ENTRY LD HL,INTCOM CALL SUBENQ ; SEND┆
0x6ea80…6eb00 (68, 0, 6) UnusedSector ┆ COMMANDINTERPRETER MESSAGE POP AF ; UNSAVE COMMAND INDEX CP ASCDAT LD A,PDATEXP RET Z ; DISTINATION:=DATEXP IF ASCIID┆
0x6eb00…6eb80 (68, 0, 7) UnusedSector ┆ATA ENDT07: LD A,PVCRINF RET ELSE07: LD A,PF2MDAM RET ;--------------------------------------------------------------┆
0x6eb80…6ec00 (68, 0, 8) UnusedSector ┆--------- EJEC ;============================================================================== ; ROUTINENAME:DISTRIB ; ;┆
0x6ec00…6ec80 (68, 0, 9) UnusedSector ┆ FUNCTIONAL SPEC : MANAGES THE DISTRIBUTION OF THE ; MDAM-CHANNELS ON REQUEST. ; ENTRY: NONE ; EXIT : AF: ; BC: ; DE:┆
0x6ec80…6ed00 (68, 0, 10) UnusedSector ┆ ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ; ; TESTSTATUS: ; ;=================================================┆
0x6ed00…6ed80 (68, 0, 11) UnusedSector ┆============================ CSEG ;----------------------- EXCECUTABLE CODE ----------------------- DISTRIB:LD H┆
0x6ed80…6ee00 (68, 0, 12) UnusedSector ┆L,MDAMCOM CALL SUBDEQ RET NC ; NO MDAM-CHANNEL REQUEST LD HL,MMHDESTCH ADD HL,DE LD C,(HL) ; (C):=MDAM-CHANNEL IND┆
0x6ee00…6ee80 (68, 0, 13) UnusedSector ┆ C D D D D D D D D D D D D D D D ┆
0x6ee80…6ef00 (68, 0, 14) UnusedSector ┆EX INC HL PUSH HL ; SAVE ADDRESS OF MDAMMESSAGE.SOURCE-QUE LD HL,CHRECORD+1 SLA C LD B,0 ADD HL,BC BIT 7,(HL) ┆
0x6ef00…6ef80 (68, 0, 15) UnusedSector ┆ DEC HL EX (SP),HL ; UNSAVE MDAMMESSAGE.SOURCE-QUE, ; SAVE CHRECORD.SOURCE ;----------------------------------------┆
0x6ef80…6f000 (68, 0, 16) UnusedSector ┆-------- ; I F ( CHANNEL CLOSED,AND, SOURCE QUE NOT USED) ; T H E N OPEN CHANNEL WITH SPECIFIED ; QUE-SOURCE. ; E L S┆
0x6f000…6f080 (68, 0, 17) UnusedSector ┆ E RETURN MDAM-MESSAGE TO MDAMCOM ; FOR LATER CHANNEL SETUP ;------------------------------------------------ IF03: JR Z,E┆
0x6f080…6f100 (68, 0, 18) UnusedSector ┆LSE03 LD C,(HL) INC HL LD B,(HL) ;(BC):=(MDAMCOM.SOURCE) PUSH DE ; SAVE MDAM-COM-BUFFER ADDRESS CALL QUETST POP DE┆
0x6f100…6f180 (68, 0, 19) UnusedSector ┆ JR Z,ELSE03 THEN03: POP HL ; UNSAVE CHRECORD.SOURCE LD (HL),C ; INC HL ; LD (HL),B ; CHRECORD(-).QUE-SOURCE:=MDA┆
0x6f180…6f200 (68, 0, 20) UnusedSector ┆MMESS.QUE-SOURCE LD HL,RMDAMCOM ; RETURN MDAM-MESS. TO RMDAMCOM ENDT03: JR ENDF03 ELSE03: POP HL ; UNSAVE CHRECORD.SOURCE┆
0x6f200…6f280 (68, 0, 21) UnusedSector ┆ LD HL,MDAMCOM ; RETURN MDAM-MESS. TO MDAMCOM ENDS03: ENDF03: JP SUBENQ EJEC ;=========================================┆
0x6f280…6f300 (68, 0, 22) UnusedSector ┆===================================== ; ROUTINENAME:QUETST ; ; FUNCTIONAL SPEC : EVALUATES IF QUEUE SPECIFIED IS PRESENT ; ┆
0x6f300…6f380 (68, 0, 23) UnusedSector ┆ ON A MDAM-CHANNEL ; ENTRY: AF: ; BC: (BC):=QUEUE-ADDRESS ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: Z=1 P┆
0x6f380…6f400 (68, 0, 24) UnusedSector ┆RESENT ; BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ; ; TESTSTATUS:T ; ;===========================┆
0x6f400…6f480 (68, 0, 25) UnusedSector ┆================================================== CSEG ;----------------------- EXCECUTABLE CODE -------------------┆
0x6f480…6f500 (68, 0, 26) UnusedSector ┆---- QUETST: LD HL,CHRECORD LD E,16 ;D O W H I L E (MDAM DEST TO TEST FOR SOURCE EQUALITY) DWHI01: DEC E RET M L┆
0x6f500…6f580 (68, 0, 27) UnusedSector ┆D A,(HL) INC HL LD D,(HL) INC HL CP C JR NZ,DWHI01 LD A,D CP B JR NZ,DWHI01 RET ; RETURN BY PRESENT END ┆
0x6f580…6f600 (68, 0, 28) UnusedSector ┆ ┆
0x6f600…6f680 (68, 0, 29) UnusedSector ┆ E @!@"@#@$@%@&@'@(@)@ D D D!D"D#D$D%D&D'D(D)D*D+D,D-D.D/D0D1D2D3D4D E E E E E E E E E E E E E E E E E E E E E E E E E E E E E┆
0x6f680…6f700 (68, 0, 30) UnusedSector ┆ H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL┆
0x6f700…6f780 (68, 0, 31) UnusedSector ┆ ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP ┆
0x6f780…6f800 (68, 0, 32) UnusedSector ┆DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-┆
0x6f800…6f880 (68, 0, 33) UnusedSector ┆1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 ┆
0x6f880…6f900 (68, 0, 34) UnusedSector ┆IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 ┆
0x6f900…6f980 (68, 0, 35) UnusedSector ┆ H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL┆
0x6f980…6fa00 (68, 0, 36) UnusedSector ┆ ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP ┆
0x6fa00…6fa80 (68, 0, 37) UnusedSector ┆DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF END┆
0x6fa80…6fb00 (68, 0, 38) UnusedSector ┆IF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ORG ADDSL+SLL ENDM ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF END┆
0x6fb00…6fb80 (68, 0, 39) UnusedSector ┆ ;DESCRIP: THE MODULE SEARCHES THE SCHEDULE- ; LIST FOR THE NEXT ACTIVE PROCESS ; AND RETURNS CONTROL TO THIS PROCESS┆
0x6fb80…6fc00 (68, 0, 40) UnusedSector ┆. ; IF LINK-PARAM. IS SET A JUMP TO EX. ; SCHEDULER IS EXECUTED IN CASE OF ; NO ACTIVE SPECIAL PROCESSES ;ENTRY:┆
0x6fc00…6fc80 (68, 0, 41) UnusedSector ┆ ADD 38H ;EXIT: ADD IN FIRST ACTIVE PROCESS-DESCRIP ; OR EXTENDED SCHEDULER ;DESTR: REG A,F,H,L,SP X : LD SP,INIS┆
0x6fc80…6fd00 (68, 0, 42) UnusedSector ┆P ;INITIALIZE SP EI ;INTERRUPT INTERVAL NOP NOP NOP DI S : LD HL,SYSRAM+0FAH IF LINK.EQ.1 JR Z ;TEST IF LINKEL┆
0x6fd00…6fd80 (68, 0, 43) UnusedSector ┆EMENT ZERO ENDIF R : DEC (HL) ;DEC. CURRENT SCHEDULE COUNT JP NZ,C ;TEST IF CURRENT SCHEDULE COUNT ZERO LD (HL),SLL.L┆
0x6fd80…6fe00 (68, 0, 44) UnusedSector ┆OW. ;REINITIALIZE CURRENT SCHEDULE COUNT LD HL,0H JP I C : LD L,(HL) LD H,0H I : LD DE,ADDSL ADD HL,DE ;SCHEDULE ┆
0x6fe00…6fe80 (68, 0, 45) UnusedSector ┆LIST ADDRESS IMPLEMENTED LD L,(HL) LD DE,SYSRAM+200H ;OFFSET-ADD OF PD LD H,D ;ADDRESS OF PD IMPLEMENTED IF S.GT.16 LD H,0┆
0x6fe80…6ff00 (68, 0, 46) UnusedSector ┆ SLA L RL H ;MULTIPLY ADD BY 2 ENDIF IF S.GT.32 SLA L RL H ;MULTIPLY ADD BY 2 ENDIF IF S.GT.64 SLA L RL H ;MULTIPLY┆
0x6ff00…6ff80 (68, 0, 47) UnusedSector ┆ ADD BY 2 ENDIF IF S.GT.128 SLA L RL H ENDIF IF S.GT.16 LD DE,SYSRAM+205H ADD HL,DE ENDIF BIT 7,(HL) ;TEST ACTIVE/PAS┆
0x6ff80…70000 (68, 0, 48) UnusedSector ┆SIV JR Z,X ;JUMP IF PASSIV INC L LD SP,HL ;SP POINTS AT XXX6 INC L INC L LD (SYSRAM+0F8H),HL;SAVE ADDRESS OF ;EX┆
0x70000…70080 (68, 0, 49) UnusedSector ┆ECUTING PD RET IF LINK.EQ.1 EXTRN EXSCHED Z : INC HL ;IMPLEMENT ADD OF LINK ELEMENT LD A,(HL) ; AND A ;IF LINK-ELEMEN┆
0x70080…70100 (68, 0, 50) UnusedSector ┆T 0 THEN JP Z,EXSCHED ;GOTO EXTENDED SCHEDULER DEC HL ;ELSE JP R ;RETURN TO BASIC SCHEDULER ENDIF ENDM IF LINK-ELEMEN┆
0x70100…70180 (68, 0, 51) UnusedSector ┆ ;DESCRIP: THE MODUL SETS UP A ; SCHEDULE LIST CONFIGU- ; RATION WITH EQUALIZED ; DISTRIBUTION OF ADDRESSES ┆
0x70180…70200 (68, 0, 52) UnusedSector ┆ ;DESTR: REG A,F,B,C,D,E,H,L LD HL,SYSRAM+1FFH ;IMPLEMENT ADD OF LAST LIST-ELEMENT S : LD BC,S-1 ;INIT PROCESS-COUNT L┆
0x70200…70280 (69, 0, 1) UnusedSector ┆ : LD D,B ;IMPLEMENT RELATIV ADD OF LD E,C ;PROCESS-DESCRIPT FROM CURRENT IF S.LT.256 ;PROCESS-COUNT SLA E RL D ┆
0x70280…70300 (69, 0, 2) UnusedSector ┆;THE RELATIVE ADD IS IF S.LT.128 ;(PROCESS-COUNT)*256/S SLA E RL D IF S.LT.64 SLA E RL D IF S.LT.32 ;IF S EQU 16 THEN ┆
0x70300…70380 (69, 0, 3) UnusedSector ┆ SLA E ;BEGIN RL D LD A,E ;IMPLEMENT ABSOLUT ADD ADD A,5 ;BY ADDING 5 TO RELATIVE ADD LD E,A ;END ENDIF ENDIF END┆
0x70380…70400 (69, 0, 4) UnusedSector ┆IF ENDIF LD (HL),E ;LOAD SCHEDUL LIST ELEMENT DEC L ;DEC CURRENT SCHEDUL LIST ELEMENT LD A,L ;IF LAST SCHEDULE LIST EL┆
0x70400…70480 (69, 0, 5) UnusedSector ┆EMENT THEN CP 0FFH JR Z,E ;GOTO E DEC C ;ELSE LD A,C ;DECREMENT CURRENT PROCESS-COUNT CP 0FFH ;IF CURRENT ┆
0x70480…70500 (69, 0, 6) UnusedSector ┆PROCESS-COUNT=0 THEN JR Z,S ;GOTO S (INIT PROCESS-COUNT) ;ELSE JR L ;GOTO L (CONTINUE LOOP) E : ┆
0x70500…70580 (69, 0, 7) UnusedSector ┆ENDM SS-COUNT=0 THEN JR Z,S ;GOTO S (INIT PROCESS-COUNT) ;ELSE JR L ;GOTO L (CONTINUE LOOP) E : ┆
0x70580…70600 (69, 0, 8) UnusedSector ┆ ;DESRIP: THE MODULE ACTIVATES ; SPECIFIED PROCES. ; IF LINK IS SET AND PASSIV ; SPECIAL PROCESS IS ACTIVATED┆
0x70600…70680 (69, 0, 9) UnusedSector ┆ ; THE LINK-ELEMENT IS ; INCREMENTED ;DESTR: REG F,H,L IF ' '.EQ.'S' LD HL,SYSRAM+200H+ *10H+5 ;IMPLE┆
0x70680…70700 (69, 0, 10) UnusedSector ┆MENT ADD OF STATUS-BIT IF LINK.EQ.1 BIT 7,(HL) ; JR NZ,O ;IF PROCESS WAS NOT ACTIVE THEN LD HL,SYSRAM+0FBH ;BEGIN IN┆
0x70700…70780 (69, 0, 11) UnusedSector ┆C (HL) ;INC LINK-ELEMENT LD HL,SYSRAM+200H+ *10H+5 ;END O : ENDIF ENDIF IF ' '.EQ.'N' LD HL,SYSRAM+200H+S*10H+┆
0x70780…70800 (69, 0, 12) UnusedSector ┆ *20H+5 ;IMPLEMENT ADD OF STATUS-BIT ENDIF SET 7,(HL) ;ACTIVATE ENDM NDIF IF ' '.EQ.'N' LD HL,SYSRAM+200H+S*10H+┆
0x70800…70880 (69, 0, 13) UnusedSector ┆ ;DESRIP: THE MODULE PASSIVATES ; SPECIFIED PROCES. ; IF LINK IS SET AND ACTIV ; SPECIAL PROCESS IS PASSIVATE┆
0x70880…70900 (69, 0, 14) UnusedSector ┆D ; THE LINK-ELEMENT IS ; DECREMENTED ;DESTR: REG F,H,L IF ' '.EQ.'S' LD HL,SYSRAM+200H+ *10H+5 ;IMPL┆
0x70900…70980 (69, 0, 15) UnusedSector ┆EMENT ADD OF STATUS-BIT IF LINK.EQ.1 BIT 7,(HL) ; JR Z,O ;IF PROCESS WAS NOT PASSIVE THEN LD HL,SYSRAM+0FBH ;BEGIN D┆
0x70980…70a00 (69, 0, 16) UnusedSector ┆EC (HL) ;DEC LINK-ELEMENT LD HL,SYSRAM+200H+ *10H+5 ;END O : ENDIF ENDIF IF ' '.EQ.'N' LD HL,SYSRAM+200H+S*10H┆
0x70a00…70a80 (69, 0, 17) UnusedSector ┆+ *20H+5 ;IMPLEMENT ADD OF STATUS-BIT ENDIF RES 7,(HL) ;PASSIVATE ENDM DIF IF ' '.EQ.'N' LD HL,SYSRAM+200H+S*10H┆
0x70a80…70b00 (69, 0, 18) UnusedSector ┆ ;DESCRIP: THE MODULE CREATES SPECIFIED ; PROCESS IE LOADS STARTADDRESS ; ( ) IN PROCESS-DESCRIPTION ; BYTE 6┆
0x70b00…70b80 (69, 0, 19) UnusedSector ┆,7. IF NORMAL PROCESS IS ; ENCOUNTERED PRIORITY IS LOADED ; TO BYTE 5 IN PROCESS-DESCRIPTION ; AND THE PROCESS IS EN┆
0x70b80…70c00 (69, 0, 20) UnusedSector ┆QUEUED IN ; APPROPRIATE PRIO-QUEUE. ; FINALLY THE SPECIFIED PROCESS ; IS ACTIVATED ;DESTR: IF NORMAL PROCESS ┆
0x70c00…70c80 (69, 0, 21) UnusedSector ┆ ; REG. A,F,B,C,D,E,H,L ; IF SPECIAL PROCESS ; REG. F,H,L LD HL, ; IF ' '.EQ.'S' LD (SYSRAM+200H+ *10H+6),HL┆
0x70c80…70d00 (69, 0, 22) UnusedSector ┆ ;STARTADD TO PROCESS-DESCRIP ENDIF IF ' '.EQ.'N' LD (SYSRAM+200H+S*10H+ *20H+6),HL ;STARTADD TO PROCESS-DESCRIP ┆
0x70d00…70d80 (69, 0, 23) UnusedSector ┆ LD HL,SYSRAM+200H+S*10H+ *20H+5 LD (HL), ;PRIORTY TO PROCESS LD HL,SYSRAM+ *8 ;ADDRESS OF PRIO-QUEUE LD DE,SYS┆
0x70d80…70e00 (69, 0, 24) UnusedSector ┆RAM+200H+S*10H+ *20H ;ADDRESS OF PROCESS-DESCRIP CALL SUBENQ ENDIF ACTIVATE , ;ACTIVATE PROCESS ENDM UE LD DE,SYS┆
0x70e00…70e80 (69, 0, 25) UnusedSector ┆ ;DESCRIP: THE MODULE SEARCHES THE SCHEDULE- ; LIST FOR THE NEXT ACTIVE PROCESS ; AND RETURNS CONTROL TO THIS PROCESS┆
0x70e80…70f00 (69, 0, 26) UnusedSector ┆. ; IF LINK-PARAM. IS SET A JUMP TO EX. ; SCHEDULER IS EXECUTED IN CASE OF ; NO ACTIVE SPECIAL PROCESSES ; (THE ┆
0x70f00…70f80 (69, 0, 27) UnusedSector ┆CHEDULER SUPPORTS DYNAMIC ; SCHEDULE-LIST) ;ENTRY: ADD 38H ;EXIT: ADD IN FIRST ACTIVE PROCESS-DESCRIP ; OR EXTEN┆
0x70f80…71000 (69, 0, 28) UnusedSector ┆DED SCHEDULER ;DESTR: REG A,F,H,L,SP X : LD HL,INISP LD SP,HL ;INITIATE SP EI ;INTERRUPT INTERVAL NOP NOP DI S ┆
0x71000…71080 (69, 0, 29) UnusedSector ┆ : LD HL,SYSRAM+0FAH IF LINK.EQ.1 JR Z ;TEST IF LINKELEMENT ZERO ENDIF R : INC (HL) ;INC CURRENT LIST ELEMENT LD L┆
0x71080…71100 (69, 0, 30) UnusedSector ┆ D E E!E"E#E$E%E&E'E(E)E*E+E,E-E.E/E0E1E2E3E4E F F F ┆
0x71100…71180 (69, 0, 31) UnusedSector ┆,(HL) INC H ;SHEDULE LIST ADD IMPLEMENTED LD L,(HL) INC H ;ADD OF PD IMPLEMENTED IF S.GT.16 LD H,0 SLA L RL H ;MULTIPL┆
0x71180…71200 (69, 0, 32) UnusedSector ┆Y ADD BY 2 ENDIF IF S.GT.32 SLA L RL H ;MULTIPLY ADD BY 2 ENDIF IF S.GT.64 SLA L RL H ;MULTIPLY ADD BY 2 ENDIF IF S.┆
0x71200…71280 (69, 0, 33) UnusedSector ┆GT.128 SLA L RL H ENDIF IF S.GT.16 LD DE,SYSRAM+205H ADD HL,DE ;ADD RELATIVE ADDRESS ENDIF BIT 7,(HL) ;TEST ACTIVE/PAS┆
0x71280…71300 (69, 0, 34) UnusedSector ┆SIV JR Z,X ;JUMP IF PASSIV INC L LD SP,HL ;SP POINTS AT XXX6 INC L INC L LD (SYSRAM+0F8H),HL;SAVE ADDRESS OF ;EX┆
0x71300…71380 (69, 0, 35) UnusedSector ┆ECUTING PD RET IF LINK.EQ.1 EXTRN EXSCHED Z : INC HL ;IMPLEMENT ADD OF LINK ELEMENT LD A,(HL) ; AND A ;IF LINK-ELEMEN┆
0x71380…71400 (69, 0, 36) UnusedSector ┆T 0 THEN JP Z,EXSCHED ;GOTO EXTENDED SCHEDULER DEC HL ;ELSE JP R ;RETURN TO BASIC SCHEDULER ENDIF ENDM IF LINK-ELEMEN┆
0x71400…71480 (69, 0, 37) UnusedSector ┆ ;DESCRIP:THE MODULE RESTORES THE REG.-PAIR(S) ; SPECIFIED AND INITIALIZES SP. ; THE REG.-PAIRS ARE RESTORED FROM┆
0x71480…71500 (69, 0, 38) UnusedSector ┆ ; BYTE 8,9,10,11,2,13,14,15 IN POCESS- ; DESCRIPTION. THE SPECIFIED REG.-PAIR ; WITH HIGHEST INDEX IS RESTORED FROM┆
0x71500…71580 (69, 0, 39) UnusedSector ┆ ; BYTE 8 ;DESTR: REG H,L,SP IF .GT.3 ;THE ROUTINE RESTORES POP ; ENDIF IF .GT.2 POP ; ENDIF ┆
0x71580…71600 (69, 0, 40) UnusedSector ┆ IF .GT.1 POP ; ENDIF IF .GT.0 POP ; ENDIF LD SP,INISP ;INIT SP ENDM .GT.2 POP ; ENDIF ┆
0x71600…71680 (69, 0, 41) UnusedSector ┆ ;DESCRIP: THE MODULE DISABLES INTERRUPTS ; SAVES THE SPECIFIED REG.-PAIR(S) ; AND JUMPS TO ADD 38H (BASIC SCHEDUL┆
0x71680…71700 (69, 0, 42) UnusedSector ┆ER). ; THE REG.-PAIRS ARE SAVED IN PROCESS- ; DESCRIPTION BYTE 8,9,10,11,12,13,14,15 ; WITH THE SPECIFIED REGISTER W┆
0x71700…71780 (69, 0, 43) UnusedSector ┆ITH ; HIGHEST INDEX SAVED IN BYTE 8 ;EXIT: ADD 38H ;DESTR: REG. H,L,SP ; SPEC. BYTES IN PROCESS-DESCRIPTION IF ┆
0x71780…71800 (69, 0, 44) UnusedSector ┆ .GT.0 LD HL,(SYSRAM+0F8H);ADD OF EXECUTING PD TO HL PUSH AF ;STORE AF LD A,L ADD A, *2-1 LD L,A INC HL POP AF ;RESTO┆
0x71800…71880 (69, 0, 45) UnusedSector ┆RE AF DI LD SP,HL ;STORE REGISTERS ON INISP ENDIF IF .EQ.0 DI LD SP,(SYSRAM+0F8H) ENDIF IF .GT.0 PUSH ; I┆
0x71880…71900 (69, 0, 46) UnusedSector ┆F .GT.1 PUSH ; IF .GT.2 PUSH ; IF .GT.3 PUSH ; ENDIF ENDIF ENDIF ENDIF RST 38H ;SCHEDUL┆
0x71900…71980 (69, 0, 47) UnusedSector ┆E ENDM 1 PUSH ; IF .GT.2 PUSH ; IF .GT.3 PUSH ; ENDIF ENDIF ENDIF ENDIF RST 38H ;SCHEDUL┆
0x71980…71a00 (69, 0, 48) UnusedSector ┆ ;DESCRIP: THE MODULE DISABLES INTERRUPT, ; SAVES THE SPECIFIED REG.-PAIR(S) IN ; PROCESS-DESCRIPTION, ENFORCES A ┆
0x71a00…71a80 (69, 0, 49) UnusedSector ┆SCHE- ; DULING, RESTORES THE SPECIFIED ; REG.-PAIR(S) AND ENABLES INTERRUPT. ;DESTR: REG. H,L,SP ; SPECIFIED ┆
0x71a80…71b00 (69, 0, 50) UnusedSector ┆BYTES IN PROCESS-DESCRIP. ; NOT SPECIFIED REG.-PAIRS SCHEDULE , , , , RESTORE , , , , ENDM ECIFIED ┆
0x71b00…71b80 (69, 0, 51) UnusedSector ┆ ;DESCRIP: THE MODULE INSERTS IN SCHEDULE- ; LIST AS ELEMENT-NO + *N, WHERE ; N IS A NON-NEGATIVE ┆
0x71b80…71c00 (69, 0, 52) UnusedSector ┆INTEGER ;DESTR: REG A,F,H,L LD HL,SYSRAM+100H+ L : LD (HL), ;LOAD LIST WITH ELEMENT LD A,L ADD A, ┆
0x71c00…71c80 (70, 0, 1) UnusedSector ┆;IMPLEMENT NEXT LIST ELEMENT LD L,A ;IF LAST LIST-ELEMENT THEN JR NC,L ;FINISH ;ELSE GOTO L ENDM ADD A, ┆
0x71c80…71d00 (70, 0, 2) UnusedSector ┆ ;DESCRIP: THE MODULE ENABLES BASIC SCHEDULER ;DESTR: REG H,L LD HL,SYSRAM+0F5H SET 7,(HL) ENDM ENDM ADD A, ┆
0x71d00…71d80 (70, 0, 3) UnusedSector ┆ ;DESCRIP: THE MODULE DISABLES BASIC SCHEDULER ;DESTR: REG H,L LD HL,SYSRAM+0F5H RES 7,(HL) ENDM ENDM ADD A, ┆
0x71d80…71e00 (70, 0, 4) UnusedSector ┆ MDAMF0 T ; SUBENQ SUBDEQ SCOMMO TRFQH TREQH RCFQH RCEQH CASE ! MCSEND MESIND RINTCO INTCOM ┆
0x71e00…71e80 (70, 0, 5) UnusedSector ┆* OWOFFS WRKOFF CR80OF VDUOFF > q MDAMF0 QUETST VCRINF INFVCR PROINF s CRCHEC A = MDM1AC MD┆
0x71e80…71f00 (70, 0, 6) UnusedSector ┆M2AC OWSEQ WRKSEQ CR80SE MDAMDE * MDAMCO RMDAMC MDAMMO CHRECO D MODTSENDERSPAUSLUBESTAKINDUD PLU┆
0x71f00…71f80 (70, 0, 7) UnusedSector ┆MINSEASHIENTREPINCDELRECSTOCUESY D @ NSIMMS3MS4RULREDMS3MS4RULMS1MS2MS5KOPVISPRIHENGEM12 ! ! $ r ~ C 6 +6 1T ┆
0x71f80…72000 (70, 0, 8) UnusedSector ┆ ! : ( F : ! ! " $ P 7 D ! ! ! ┆
0x72000…72080 (70, 0, 9) UnusedSector ┆ ~ V+^ 0 ! > ? ~ o& ~ ! 8 " $ h B ! w#q#p! 6 L b b ┆
0x72080…72100 (70, 0, 10) UnusedSector ┆o > !M > o > Y" % + 7 $ 2 D = ! > o > ! > ! ! ┆
0x72100…72180 (70, 0, 11) UnusedSector ┆ [ ! ^#V! " A H M W ^ ? c f j m q C } > !2 ( 01 ! 8 ! > w#┆
0x72180…72200 (70, 0, 12) UnusedSector ┆ " 5 B 6 ! > > > ! ! N# ! ! ~+ ( N#F ( q#pB" $ ┆
0x72200…72280 (70, 0, 13) UnusedSector ┆ k # ! ! ! ~#V# z _$ ┆
0x72280…72300 (70, 0, 14) UnusedSector ┆============= ; ROUTINENAME: M D A M C H A N N E L A C C E S S ; ; FUNCTIONAL SPEC : REQUESTS MDAMCHANNEL ACCESS ARGUMENT┆
0x72300…72380 (70, 0, 15) UnusedSector ┆ED BY: ; MDM1-: ; 1) DORA COMMAND INDEX. ; 2) QUESOURCE ; MDM2-: ; 1) MDAM-CHANNEL INDEX/=PROCESS NO. OF ; ┆
0x72380…72400 (70, 0, 16) UnusedSector ┆ RECEIVING PROCESS ; 2) QUESOURCE ; ; ENTRY: AF: (A):= COMMANDINDEX/MDAMCHANNEL-INDEX ; DE: (DE):= QUESOURCE ADDRESS ┆
0x72400…72480 (70, 0, 17) UnusedSector ┆ ; BC: (BC):= DESTINATION LIST,ARGUMENTED BY (A)/NOT USED ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: ; BC: ; DE: ┆
0x72480…72500 (70, 0, 18) UnusedSector ┆ ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ;========================================================================┆
0x72500…72580 (70, 0, 19) UnusedSector ┆===== CSEG ;--------------------------- EXCECUTABLE CODE ------------------------ MDM1ACCS: LD L,A ; LD H,0 ; ┆
0x72580…72600 (70, 0, 20) UnusedSector ┆ADD HL,BC ; (HL):= MDADESTLIST(INDEX) LD A,(HL) ; (A):= MDAMCH. INDEX MDM2ACCS: PUSH DE ; SAVE QUE-ADDRESS PUSH A┆
0x72600…72680 (70, 0, 21) UnusedSector ┆F ; SAVE MDAMCH.-INDEX ;------------------------------------------- ; D O W H I L E ( MDAM MESBUF NOT AVAILABLE) ;--┆
0x72680…72700 (70, 0, 22) UnusedSector ┆----------------------------------------- DWHI02: LD HL,RMDAMCOM CALL SUBDEQ JR C,ENDD02 CALL SCOMMON EI JR DWHI02 ┆
0x72700…72780 (70, 0, 23) UnusedSector ┆ E"G F F F F F F F F F!F"F#F$F%F&F'F(F)F*F+F,F-F.F/F0F1F2F3F4F G G G G G G G G G G G G G G G G G G G G G G G G G G G G G G G G!G┆
0x72780…72800 (70, 0, 24) UnusedSector ┆ ;-------------------- ; E N D D O ;-------------------- ENDD02: LD HL,MMHDESTNO ADD HL,DE ; (HL):= MDAMMESBUF.MDA┆
0x72800…72880 (70, 0, 25) UnusedSector ┆DEST POP AF ; UNSAVE MDAM CHANNEL INDEX POP BC ; UNSAVE QUESOURCE LD (HL),A ; MESBUF.MDAMCH NO.:=(A) INC HL LD (┆
0x72880…72900 (70, 0, 26) UnusedSector ┆HL),C INC HL LD (HL),B ; MESBUF.QUESRC:=(BC) LD HL,MDAMCOM JP SUBENQ EJEC ;======================================┆
0x72900…72980 (70, 0, 27) UnusedSector ┆======================================== ; CASENAME: M D A M M O D E ; ; FUNCTIONAL SPEC : THE MADAM FRONT NR.1 RECEIVES┆
0x72980…72a00 (70, 0, 28) UnusedSector ┆ DATA FROM THE VDU I/F ; AND THE DISTRIBUTION OF THIS DATA IS CONDITIONED ; BY THE MDAM-MODE. ; ; ;===================┆
0x72a00…72a80 (70, 0, 29) UnusedSector ┆========================================================== CSEG ;-------------------------- PROM DATA ------------------┆
0x72a80…72b00 (70, 0, 30) UnusedSector ┆------------------- MDACASE:DW C1STBY,C1OW,C1WRK,C180DA,C180ACK ;------------------------ EXCECUTABLE CODE -------------┆
0x72b00…72b80 (70, 0, 31) UnusedSector ┆----------------- ;CASE1: MDAMMODE=STANDBY : THIS IS THE STANDBY MODE. ; ALL CR80-COMMANDS ARE LEGALE AND ; IS ROUTED ┆
0x72b80…72c00 (70, 0, 32) UnusedSector ┆TO THE RELEVANT ; PROCESS,(E.I. COMMANDS WHICH IS ; RELATED EDITING ON THE VCR/VCR ; I/F ARE ROUTED TO THE COMMAND- ; ┆
0x72c00…72c80 (70, 0, 33) UnusedSector ┆ INTERPRETER,OTHERWISE THE ARE ; ROUTED DIRECTLY TO THE CR80). ; DISPLAY-DATA IS ROUTED TO CR80. ;-------------------┆
0x72c80…72d00 (70, 0, 34) UnusedSector ┆---------------------------------- C1STBY: CALL CR1CHECK ;------------------------------------------------ ; I F ( 'CR'┆
0x72d00…72d80 (70, 0, 35) UnusedSector ┆ PRESENT) ; T H E N COMMAND LINE RECEIVED ; E L S E SCHEDULEDATA RECEIVED ;-----------------------------------------------┆
0x72d80…72e00 (70, 0, 36) UnusedSector ┆- IF05: JR NZ,ELSE05 THEN05: LD A,VDUOFFSET LD HL,VDUSEQ LD BC,0A03H ; KOPI/VIS/PRINT/HENT/GEM- LEGALE COMMANDS TODST1:┆
0x72e00…72e80 (70, 0, 37) UnusedSector ┆ CALL PROINF ; INFORM PROCESSES INVOLVED ENDT05: JR TODST2 ; MDAMACCESS(QUESRC:=RCFQH,MDAMDEST:=VCR/CR80, ; DESTIN┆
0x72e80…72f00 (70, 0, 38) UnusedSector ┆ATIONSIST:=DESTINA ) ELSE05: LD A,PF2MDAM ; DESTINATION:= MDAMF2-PROCESS(CR80-LINK) TODST2: LD DE,RCFQH ; SOURCE QUE:=┆
0x72f00…72f80 (70, 0, 39) UnusedSector ┆ RCFQH ENDS05: JR MDM2ACCS ; GET MDAM-CHANNEL ACCESS ENDF05: EC1VCR: EJEC ;CASE2 : MDAMMODE=OWERWIEV SHEDULE DISPLAY┆
0x72f80…73000 (70, 0, 40) UnusedSector ┆ED. ; IN THIS CASE ONLY OWERWIEV-RELATED ; COMMANDS ARE LEGALE. ; DISPLAY DATA(OWERWIEV-SCHEDULE) IS ; ROU┆
0x73000…73080 (70, 0, 41) UnusedSector ┆TED TO THE DATA COMPRESS PROCESS. ;---------------------------------------------------- C1OW: CALL CR1CHECK ;-------------┆
0x73080…73100 (70, 0, 42) UnusedSector ┆----------------------------------- ; I F ( 4BUF.3.CHAR = 'CR' ) ; T H E N COMMAND LINE RECEIVED ; E L S E SCHEDULEDATA ┆
0x73100…73180 (70, 0, 43) UnusedSector ┆RECEIVED ;------------------------------------------------ IF06: JR NZ,ELSE06 THEN06: LD A,OWOFFSET LD BC,0303H ; ERSTAT┆
0x73180…73200 (70, 0, 44) UnusedSector ┆/PAUSE/SLUT/-LEGALE COMMANDS LD HL,OWSEQ ENDT06: JR TODST1 ELSE06: LD A,ASCDAT CALL VCRINF ; INFORM INTERPRETER ABOUT A┆
0x73200…73280 (70, 0, 45) UnusedSector ┆SCII-DATA RECEIVED ENDS06: JR TODST2 ENDF06: EJEC ;CASE3 : MDAMMODE=WORK SHEDULE DISPLAYED. ; IN THIS CASE ONLY ED┆
0x73280…73300 (70, 0, 46) UnusedSector ┆IT-RELATED ; COMMANDS ARE LEGALE. ; DISPLAY DATA(WORK-SCHEDULE) IS ; ROUTED TO THE DATA COMPRESS PROCESS. ;---┆
0x73300…73380 (70, 0, 47) UnusedSector ┆------------------------------------------------- C1WRK: CALL CR1CHECK ;------------------------------------------------ ┆
0x73380…73400 (70, 0, 48) UnusedSector ┆; I F ( 4BUF.3.CHAR = 'CR' ) ; T H E N COMMAND LINE RECEIVED ; E L S E SCHEDULEDATA RECEIVED ;--------------------------┆
0x73400…73480 (70, 0, 49) UnusedSector ┆---------------------- IF08: JR NZ,ELSE08 THEN08: LD A,WRKOFFSET LD BC,1703H ; PAUSE/SLUT/AND EDITING COMMANDS LEGALE L┆
0x73480…73500 (70, 0, 50) UnusedSector ┆D HL,WRKSEQ ENDT08: JR TODST1 ELSE08: LD A,ASCDAT CALL VCRINF ; INFORM INTERPRETER ABOUT ASCII-DATA RECEIVED ENDS08: JR ┆
0x73500…73580 (70, 0, 51) UnusedSector ┆TODST2 ENDF08: EJEC ;CASE4: MDAMMODE=CR80 : ILLEGAL SITUATION ;CASE5: MDAMMODE= CR80-ACKNOWLEDGE: ILLEGAL SITUATION ;-----┆
0x73580…73600 (70, 0, 52) UnusedSector ┆------------------------------------------------ C180ACK: C180DA: LD HL,RCFQH CALL SUBDEQ RET NC LD HL,RCEQH JP SUBENQ┆
0x73600…73680 (71, 0, 1) UnusedSector ┆ EC180DA: EJEC ;============================================================================== ; ROUTINENAME: C R - C H E┆
0x73680…73700 (71, 0, 2) UnusedSector ┆ C K ; ; FUNCTIONAL SPEC : EVALUATES THE 51. CHARACTER. ; IF THIS EQUALS THE 'CR'-ASCII-CHARACTER ; THE ZER0-FLAG IS┆
0x73700…73780 (71, 0, 3) UnusedSector ┆ SET. ; OTHERWISE NOT ; ENTRY: AF: ; BC: ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: ZFLAG=1: 'CR' FOUND┆
0x73780…73800 (71, 0, 4) UnusedSector ┆ ; BC: ; DE: (DE):= ADDRESS OF RCFQH.FIRST.DATABUFFERADDRESS ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ;=======┆
0x73800…73880 (71, 0, 5) UnusedSector ┆====================================================================== CSEG ;------------------------- EXCECUTABLE CODE -┆
0x73880…73900 (71, 0, 6) UnusedSector ┆----------------------------- CR1CHECK:LD DE,(RCFQH+2) CRCHECK:LD HL,DMHDATPTR ADD HL,DE LD E,(HL) INC HL LD D,(HL) ┆
0x73900…73980 (71, 0, 7) UnusedSector ┆ ; (DE):=RCFQH.FIRST.DATABUFFER LD HL,04 ADD HL,DE ;(HL):= DATABUFFER.CHARNO=04 LD A,0DH ;(A):=ASCII('CR') CP (HL) ┆
0x73980…73a00 (71, 0, 8) UnusedSector ┆; RETURN IF 'MS1','MS2','MS3',MS4' CODE RET Z LD HL,50 ADD HL,DE ; (HL):= DATABUFFER.CHARNO=50 CP (HL) ; RETURN WITH┆
0x73a00…73a80 (71, 0, 9) UnusedSector ┆ RESULT OF COMMAND ?? RET EJEC ;============================================================================== ; ROUTINENA┆
0x73a80…73b00 (71, 0, 10) UnusedSector ┆ME: P R O C E S S I N F O R M ; ; FUNCTIONAL SPEC : THIS ROUTINE FINDS THE DESTINATION OF THE ; COMMAND RECEIVED,AND IF┆
0x73b00…73b80 (71, 0, 11) UnusedSector ┆ NEEDED INFORMS ; PROCESSES INVOLVED IN THE MANAGEMENT OF ; THE COMMAND. ; ENTRY: AF: ; BC: B:= NUMB OF COMMANDS IN THE┆
0x73b80…73c00 (71, 0, 12) UnusedSector ┆ COMMAND REFERENCE LIST, ; C:= NUMB OF SIGNIFICANT COMMANDCHARACTERS ; DE: (DE):= ADDRESS OF FIRST COMMAND CHARACTER ; ┆
0x73c00…73c80 (71, 0, 13) UnusedSector ┆ HL: (HL):= REFERENCE LIST ADDRESS ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: (A):= MDAM-CHANNEL INDEX ; BC: ; DE: ; HL:┆
0x73c80…73d00 (71, 0, 14) UnusedSector ┆ ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ;============================================================================= ┆
0x73d00…73d80 (71, 0, 15) UnusedSector ┆ CSEG ;--------------------------- EXCECUTABLE CODE --------------------------- PROINF: PUSH AF ; SAVE COMMAND INDEX OF┆
0x73d80…73e00 (71, 0, 16) UnusedSector ┆FSET INC DE ; IGNORE BUFFER MESSAGE BYTE LD A,(DE) CP 09H JR NZ,NOHT INC DE ; IGNORE 'HT' CHARACTER NOHT: CALL MESI┆
0x73e00…73e80 (71, 0, 17) UnusedSector ┆NDX ; COMPARE COMMAND TO REFERENCE-LIST POP BC ; UNSAVE COMMAND INDEX OFFSET OR A ;-------------------------------------┆
0x73e80…73f00 (71, 0, 18) UnusedSector ┆----------- ; I F ( NOT ERROR-INDEX) ; T H E N ADD COMMANDINDEX AND COMMANDINDEX-OFFSET ;-------------------------------┆
0x73f00…73f80 (71, 0, 19) UnusedSector ┆----------------- IF09: JR Z,ELSE09 THEN09: ADD A,B ELSE09: CP ASCDAT ;------------------------------------------------ ; ┆
0x73f80…74000 (71, 0, 20) UnusedSector ┆I F ( DESTINATION=VCRMESMAND INTERPRETER) ; T H E N INFORM COMMAND INTERPRETER ;---------------------------------------------┆
0x74000…74080 (71, 0, 21) UnusedSector ┆--- IF07: JR NC,ELSE07 VCRINF: THEN07: PUSH AF ; SAVE COMMAND INDEX ;------------------------------------------------ ; ┆
0x74080…74100 (71, 0, 22) UnusedSector ┆ D O W H I L E (VCR-COMMAND BUF NOT AVAILABLE)) ;------------------------------------------------ DWHI03: LD HL,RINTCOM CAL┆
0x74100…74180 (71, 0, 23) UnusedSector ┆L SUBDEQ JR C,ENDD03 CALL VDUTRS ; CALL VDU TRANSMITTER PART CALL DISTRIB ; CALL DISTRIBUTION PART CALL SCOMMON EI┆
0x74180…74200 (71, 0, 24) UnusedSector ┆ JR DWHI03 ;--------------- ; E N D D O ;--------------- ENDD03: LD HL,CMHMOTHERCASE ADD HL,DE POP BC ; UNSAVE ┆
0x74200…74280 (71, 0, 25) UnusedSector ┆COMMAND INDEX PUSH BC ; SAVE COMMAND INDEX LD A,80H OR B ; SET MOTHERCASE ACTIVE LD (HL),A ; VCRMES.COMMANDINDEX:= CO┆
0x74280…74300 (71, 0, 26) UnusedSector ┆MMAND INDEX INC HL LD (HL),IENTRY ; INDICATE INITIAL COMMAND ENTRY LD HL,INTCOM CALL SUBENQ ; SEND COMMANDINTERPRETER M┆
0x74300…74380 (71, 0, 27) UnusedSector ┆ESSAGE POP AF ; UNSAVE COMMAND INDEX CP ASCDAT LD A,PDATEXP RET Z ; DISTINATION:=DATEXP IF ASCIIDATA ENDT07: LD A,PVC┆
0x74380…74400 (71, 0, 28) UnusedSector ┆RINF RET ELSE07: LD A,PF2MDAM RET ;----------------------------------------------------------------------- EJEC ;┆
0x74400…74480 (71, 0, 29) UnusedSector ┆============================================================================== ; ROUTINENAME:DISTRIB ; ; FUNCTIONAL SPEC : M┆
0x74480…74500 (71, 0, 30) UnusedSector ┆ANAGES THE DISTRIBUTION OF THE ; MDAM-CHANNELS ON REQUEST. ; ENTRY: NONE ; EXIT : AF: ; BC: ; DE: ; HL: ; IX: ; ┆
0x74500…74580 (71, 0, 31) UnusedSector ┆IY: ; AFBCDEHL': ; EXECUTION : ; ; TESTSTATUS: ; ;======================================================================┆
0x74580…74600 (71, 0, 32) UnusedSector ┆======= CSEG ;----------------------- EXCECUTABLE CODE ----------------------- DISTRIB:LD HL,MDAMCOM CALL SUBD┆
0x74600…74680 (71, 0, 33) UnusedSector ┆EQ RET NC ; NO MDAM-CHANNEL REQUEST LD HL,MMHDESTCH ADD HL,DE LD C,(HL) ; (C):=MDAM-CHANNEL INDEX INC HL PUSH HL┆
0x74680…74700 (71, 0, 34) UnusedSector ┆ F #G$G%G&G'G(G)G*G+G,G-G.G/G0G ┆
0x74700…74780 (71, 0, 35) UnusedSector ┆ ; SAVE ADDRESS OF MDAMMESSAGE.SOURCE-QUE LD HL,CHRECORD+1 SLA C LD B,0 ADD HL,BC BIT 7,(HL) DEC HL EX (SP),H┆
0x74780…74800 (71, 0, 36) UnusedSector ┆L ; UNSAVE MDAMMESSAGE.SOURCE-QUE, ; SAVE CHRECORD.SOURCE ;------------------------------------------------ ; I F ( ┆
0x74800…74880 (71, 0, 37) UnusedSector ┆CHANNEL CLOSED,AND, SOURCE QUE NOT USED) ; T H E N OPEN CHANNEL WITH SPECIFIED ; QUE-SOURCE. ; E L S E RETURN MDAM-MESSAG┆
0x74880…74900 (71, 0, 38) UnusedSector ┆E TO MDAMCOM ; FOR LATER CHANNEL SETUP ;------------------------------------------------ IF03: JR Z,ELSE03 LD C,(HL) I┆
0x74900…74980 (71, 0, 39) UnusedSector ┆NC HL LD B,(HL) ;(BC):=(MDAMCOM.SOURCE) PUSH DE ; SAVE MDAM-COM-BUFFER ADDRESS CALL QUETST POP DE JR Z,ELSE03 THE┆
0x74980…74a00 (71, 0, 40) UnusedSector ┆N03: POP HL ; UNSAVE CHRECORD.SOURCE LD (HL),C ; INC HL ; LD (HL),B ; CHRECORD(-).QUE-SOURCE:=MDAMMESS.QUE-SOURCE LD┆
0x74a00…74a80 (71, 0, 41) UnusedSector ┆ HL,RMDAMCOM ; RETURN MDAM-MESS. TO RMDAMCOM ENDT03: JR ENDF03 ELSE03: POP HL ; UNSAVE CHRECORD.SOURCE LD HL,MDAMCOM ; RE┆
0x74a80…74b00 (71, 0, 42) UnusedSector ┆TURN MDAM-MESS. TO MDAMCOM ENDS03: ENDF03: JP SUBENQ EJEC ;==============================================================┆
0x74b00…74b80 (71, 0, 43) UnusedSector ┆================ ; ROUTINENAME:QUETST ; ; FUNCTIONAL SPEC : EVALUATES IF QUEUE SPECIFIED IS PRESENT ; ON A MDAM-CHANNEL ┆
0x74b80…74c00 (71, 0, 44) UnusedSector ┆; ENTRY: AF: ; BC: (BC):=QUEUE-ADDRESS ; DE: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXIT : AF: Z=1 PRESENT ; BC: ; DE┆
0x74c00…74c80 (71, 0, 45) UnusedSector ┆: ; HL: ; IX: ; IY: ; AFBCDEHL': ; EXECUTION : ; ; TESTSTATUS:T ; ;================================================┆
0x74c80…74d00 (71, 0, 46) UnusedSector ┆============================= CSEG ;----------------------- EXCECUTABLE CODE ----------------------- QUETST: LD HL┆
0x74d00…74d80 (71, 0, 47) UnusedSector ┆,CHRECORD LD E,16 ;D O W H I L E (MDAM DEST TO TEST FOR SOURCE EQUALITY) DWHI01: DEC E RET M LD A,(HL) INC HL L┆
0x74d80…74e00 (71, 0, 48) UnusedSector ┆D D,(HL) INC HL CP C JR NZ,DWHI01 LD A,D CP B JR NZ,DWHI01 RET ; RETURN BY PRESENT END ┆
0x74e00…74e80 (71, 0, 49) UnusedSector ┆ 2H ' ' ' ' ' ' ' ' ' '2G3G4G H H H H H H H H H H H H H H H H H H H H H H H H H H H H H H H H!H"H#H$H%H&H'H(H)H*H+H,H-H.H/H0H1H┆
0x74e80…74f00 (71, 0, 50) UnusedSector ┆ H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL┆
0x74f00…74f80 (71, 0, 51) UnusedSector ┆ ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP ┆
0x74f80…75000 (71, 0, 52) UnusedSector ┆DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-┆
0x75000…75080 (72, 0, 1) UnusedSector ┆1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 ┆
0x75080…75100 (72, 0, 2) UnusedSector ┆IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 ┆
0x75100…75180 (72, 0, 3) UnusedSector ┆ H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL┆
0x75180…75200 (72, 0, 4) UnusedSector ┆ ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 SLLTMP ┆
0x75200…75280 (72, 0, 5) UnusedSector ┆DEFL SLLTMP+1 IF SLLTMP.LT.SLL ORG ADDSL+SLL-1-SLLTMP DB 0 H*10H+5 ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF END┆
0x75280…75300 (72, 0, 6) UnusedSector ┆IF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ORG ADDSL+SLL ENDM ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF END┆
0x75300…75380 (72, 0, 7) UnusedSector ┆ ;DESCRIP: THE MODULE SEARCHES THE SCHEDULE- ; LIST FOR THE NEXT ACTIVE PROCESS ; AND RETURNS CONTROL TO THIS PROCESS┆
0x75380…75400 (72, 0, 8) UnusedSector ┆. ; IF LINK-PARAM. IS SET A JUMP TO EX. ; SCHEDULER IS EXECUTED IN CASE OF ; NO ACTIVE SPECIAL PROCESSES ;ENTRY:┆
0x75400…75480 (72, 0, 9) UnusedSector ┆ ADD 38H ;EXIT: ADD IN FIRST ACTIVE PROCESS-DESCRIP ; OR EXTENDED SCHEDULER ;DESTR: REG A,F,H,L,SP X : LD SP,INIS┆
0x75480…75500 (72, 0, 10) UnusedSector ┆P ;INITIALIZE SP EI ;INTERRUPT INTERVAL NOP NOP NOP DI S : LD HL,SYSRAM+0FAH IF LINK.EQ.1 JR Z ;TEST IF LINKEL┆
0x75500…75580 (72, 0, 11) UnusedSector ┆EMENT ZERO ENDIF R : DEC (HL) ;DEC. CURRENT SCHEDULE COUNT JP NZ,C ;TEST IF CURRENT SCHEDULE COUNT ZERO LD (HL),SLL.L┆
0x75580…75600 (72, 0, 12) UnusedSector ┆OW. ;REINITIALIZE CURRENT SCHEDULE COUNT LD HL,0H JP I C : LD L,(HL) LD H,0H I : LD DE,ADDSL ADD HL,DE ;SCHEDULE ┆
0x75600…75680 (72, 0, 13) UnusedSector ┆LIST ADDRESS IMPLEMENTED LD L,(HL) LD DE,SYSRAM+200H ;OFFSET-ADD OF PD LD H,D ;ADDRESS OF PD IMPLEMENTED IF S.GT.16 LD H,0┆
0x75680…75700 (72, 0, 14) UnusedSector ┆ SLA L RL H ;MULTIPLY ADD BY 2 ENDIF IF S.GT.32 SLA L RL H ;MULTIPLY ADD BY 2 ENDIF IF S.GT.64 SLA L RL H ;MULTIPLY┆
0x75700…75780 (72, 0, 15) UnusedSector ┆ ADD BY 2 ENDIF IF S.GT.128 SLA L RL H ENDIF IF S.GT.16 LD DE,SYSRAM+205H ADD HL,DE ENDIF BIT 7,(HL) ;TEST ACTIVE/PAS┆
0x75780…75800 (72, 0, 16) UnusedSector ┆SIV JR Z,X ;JUMP IF PASSIV INC L LD SP,HL ;SP POINTS AT XXX6 INC L INC L LD (SYSRAM+0F8H),HL;SAVE ADDRESS OF ;EX┆
0x75800…75880 (72, 0, 17) UnusedSector ┆ECUTING PD RET IF LINK.EQ.1 EXTRN EXSCHED Z : INC HL ;IMPLEMENT ADD OF LINK ELEMENT LD A,(HL) ; AND A ;IF LINK-ELEMEN┆
0x75880…75900 (72, 0, 18) UnusedSector ┆T 0 THEN JP Z,EXSCHED ;GOTO EXTENDED SCHEDULER DEC HL ;ELSE JP R ;RETURN TO BASIC SCHEDULER ENDIF ENDM IF LINK-ELEMEN┆
0x75900…75980 (72, 0, 19) UnusedSector ┆ ;DESCRIP: THE MODUL SETS UP A ; SCHEDULE LIST CONFIGU- ; RATION WITH EQUALIZED ; DISTRIBUTION OF ADDRESSES ┆
0x75980…75a00 (72, 0, 20) UnusedSector ┆ ;DESTR: REG A,F,B,C,D,E,H,L LD HL,SYSRAM+1FFH ;IMPLEMENT ADD OF LAST LIST-ELEMENT S : LD BC,S-1 ;INIT PROCESS-COUNT L┆
0x75a00…75a80 (72, 0, 21) UnusedSector ┆ : LD D,B ;IMPLEMENT RELATIV ADD OF LD E,C ;PROCESS-DESCRIPT FROM CURRENT IF S.LT.256 ;PROCESS-COUNT SLA E RL D ┆
0x75a80…75b00 (72, 0, 22) UnusedSector ┆;THE RELATIVE ADD IS IF S.LT.128 ;(PROCESS-COUNT)*256/S SLA E RL D IF S.LT.64 SLA E RL D IF S.LT.32 ;IF S EQU 16 THEN ┆
0x75b00…75b80 (72, 0, 23) UnusedSector ┆ SLA E ;BEGIN RL D LD A,E ;IMPLEMENT ABSOLUT ADD ADD A,5 ;BY ADDING 5 TO RELATIVE ADD LD E,A ;END ENDIF ENDIF END┆
0x75b80…75c00 (72, 0, 24) UnusedSector ┆IF ENDIF LD (HL),E ;LOAD SCHEDUL LIST ELEMENT DEC L ;DEC CURRENT SCHEDUL LIST ELEMENT LD A,L ;IF LAST SCHEDULE LIST EL┆
0x75c00…75c80 (72, 0, 25) UnusedSector ┆EMENT THEN CP 0FFH JR Z,E ;GOTO E DEC C ;ELSE LD A,C ;DECREMENT CURRENT PROCESS-COUNT CP 0FFH ;IF CURRENT ┆
0x75c80…75d00 (72, 0, 26) UnusedSector ┆PROCESS-COUNT=0 THEN JR Z,S ;GOTO S (INIT PROCESS-COUNT) ;ELSE JR L ;GOTO L (CONTINUE LOOP) E : ┆
0x75d00…75d80 (72, 0, 27) UnusedSector ┆ENDM SS-COUNT=0 THEN JR Z,S ;GOTO S (INIT PROCESS-COUNT) ;ELSE JR L ;GOTO L (CONTINUE LOOP) E : ┆
0x75d80…75e00 (72, 0, 28) UnusedSector ┆ ;DESRIP: THE MODULE ACTIVATES ; SPECIFIED PROCES. ; IF LINK IS SET AND PASSIV ; SPECIAL PROCESS IS ACTIVATED┆
0x75e00…75e80 (72, 0, 29) UnusedSector ┆ ; THE LINK-ELEMENT IS ; INCREMENTED ;DESTR: REG F,H,L IF ' '.EQ.'S' LD HL,SYSRAM+200H+ *10H+5 ;IMPLE┆
0x75e80…75f00 (72, 0, 30) UnusedSector ┆MENT ADD OF STATUS-BIT IF LINK.EQ.1 BIT 7,(HL) ; JR NZ,O ;IF PROCESS WAS NOT ACTIVE THEN LD HL,SYSRAM+0FBH ;BEGIN IN┆
0x75f00…75f80 (72, 0, 31) UnusedSector ┆C (HL) ;INC LINK-ELEMENT LD HL,SYSRAM+200H+ *10H+5 ;END O : ENDIF ENDIF IF ' '.EQ.'N' LD HL,SYSRAM+200H+S*10H+┆
0x75f80…76000 (72, 0, 32) UnusedSector ┆ *20H+5 ;IMPLEMENT ADD OF STATUS-BIT ENDIF SET 7,(HL) ;ACTIVATE ENDM NDIF IF ' '.EQ.'N' LD HL,SYSRAM+200H+S*10H+┆
0x76000…76080 (72, 0, 33) UnusedSector ┆ ;DESRIP: THE MODULE PASSIVATES ; SPECIFIED PROCES. ; IF LINK IS SET AND ACTIV ; SPECIAL PROCESS IS PASSIVATE┆
0x76080…76100 (72, 0, 34) UnusedSector ┆D ; THE LINK-ELEMENT IS ; DECREMENTED ;DESTR: REG F,H,L IF ' '.EQ.'S' LD HL,SYSRAM+200H+ *10H+5 ;IMPL┆
0x76100…76180 (72, 0, 35) UnusedSector ┆EMENT ADD OF STATUS-BIT IF LINK.EQ.1 BIT 7,(HL) ; JR Z,O ;IF PROCESS WAS NOT PASSIVE THEN LD HL,SYSRAM+0FBH ;BEGIN D┆
0x76180…76200 (72, 0, 36) UnusedSector ┆EC (HL) ;DEC LINK-ELEMENT LD HL,SYSRAM+200H+ *10H+5 ;END O : ENDIF ENDIF IF ' '.EQ.'N' LD HL,SYSRAM+200H+S*10H┆
0x76200…76280 (72, 0, 37) UnusedSector ┆+ *20H+5 ;IMPLEMENT ADD OF STATUS-BIT ENDIF RES 7,(HL) ;PASSIVATE ENDM DIF IF ' '.EQ.'N' LD HL,SYSRAM+200H+S*10H┆
0x76280…76300 (72, 0, 38) UnusedSector ┆ ;DESCRIP: THE MODULE CREATES SPECIFIED ; PROCESS IE LOADS STARTADDRESS ; ( ) IN PROCESS-DESCRIPTION ; BYTE 6┆
0x76300…76380 (72, 0, 39) UnusedSector ┆,7. IF NORMAL PROCESS IS ; ENCOUNTERED PRIORITY IS LOADED ; TO BYTE 5 IN PROCESS-DESCRIPTION ; AND THE PROCESS IS EN┆
0x76380…76400 (72, 0, 40) UnusedSector ┆QUEUED IN ; APPROPRIATE PRIO-QUEUE. ; FINALLY THE SPECIFIED PROCESS ; IS ACTIVATED ;DESTR: IF NORMAL PROCESS ┆
0x76400…76480 (72, 0, 41) UnusedSector ┆ ; REG. A,F,B,C,D,E,H,L ; IF SPECIAL PROCESS ; REG. F,H,L LD HL, ; IF ' '.EQ.'S' LD (SYSRAM+200H+ *10H+6),HL┆
0x76480…76500 (72, 0, 42) UnusedSector ┆ ;STARTADD TO PROCESS-DESCRIP ENDIF IF ' '.EQ.'N' LD (SYSRAM+200H+S*10H+ *20H+6),HL ;STARTADD TO PROCESS-DESCRIP ┆
0x76500…76580 (72, 0, 43) UnusedSector ┆ LD HL,SYSRAM+200H+S*10H+ *20H+5 LD (HL), ;PRIORTY TO PROCESS LD HL,SYSRAM+ *8 ;ADDRESS OF PRIO-QUEUE LD DE,SYS┆
0x76580…76600 (72, 0, 44) UnusedSector ┆RAM+200H+S*10H+ *20H ;ADDRESS OF PROCESS-DESCRIP CALL SUBENQ ENDIF ACTIVATE , ;ACTIVATE PROCESS ENDM UE LD DE,SYS┆
0x76600…76680 (72, 0, 45) UnusedSector ┆ ;DESCRIP: THE MODULE SEARCHES THE SCHEDULE- ; LIST FOR THE NEXT ACTIVE PROCESS ; AND RETURNS CONTROL TO THIS PROCESS┆
0x76680…76700 (72, 0, 46) UnusedSector ┆. ; IF LINK-PARAM. IS SET A JUMP TO EX. ; SCHEDULER IS EXECUTED IN CASE OF ; NO ACTIVE SPECIAL PROCESSES ; (THE ┆
0x76700…76780 (72, 0, 47) UnusedSector ┆CHEDULER SUPPORTS DYNAMIC ; SCHEDULE-LIST) ;ENTRY: ADD 38H ;EXIT: ADD IN FIRST ACTIVE PROCESS-DESCRIP ; OR EXTEN┆
0x76780…76800 (72, 0, 48) UnusedSector ┆DED SCHEDULER ;DESTR: REG A,F,H,L,SP X : LD HL,INISP LD SP,HL ;INITIATE SP EI ;INTERRUPT INTERVAL NOP NOP DI S ┆
0x76800…76880 (72, 0, 49) UnusedSector ┆ : LD HL,SYSRAM+0FAH IF LINK.EQ.1 JR Z ;TEST IF LINKELEMENT ZERO ENDIF R : INC (HL) ;INC CURRENT LIST ELEMENT LD L┆
0x76880…76900 (72, 0, 50) UnusedSector ┆1G 3H4H I I I I I I I I I I I I I I I I I I I I I I I ┆
0x76900…76980 (72, 0, 51) UnusedSector ┆,(HL) INC H ;SHEDULE LIST ADD IMPLEMENTED LD L,(HL) INC H ;ADD OF PD IMPLEMENTED IF S.GT.16 LD H,0 SLA L RL H ;MULTIPL┆
0x76980…76a00 (72, 0, 52) UnusedSector ┆Y ADD BY 2 ENDIF IF S.GT.32 SLA L RL H ;MULTIPLY ADD BY 2 ENDIF IF S.GT.64 SLA L RL H ;MULTIPLY ADD BY 2 ENDIF IF S.┆
0x76a00…76a80 (73, 0, 1) UnusedSector ┆GT.128 SLA L RL H ENDIF IF S.GT.16 LD DE,SYSRAM+205H ADD HL,DE ;ADD RELATIVE ADDRESS ENDIF BIT 7,(HL) ;TEST ACTIVE/PAS┆
0x76a80…76b00 (73, 0, 2) UnusedSector ┆SIV JR Z,X ;JUMP IF PASSIV INC L LD SP,HL ;SP POINTS AT XXX6 INC L INC L LD (SYSRAM+0F8H),HL;SAVE ADDRESS OF ;EX┆
0x76b00…76b80 (73, 0, 3) UnusedSector ┆ECUTING PD RET IF LINK.EQ.1 EXTRN EXSCHED Z : INC HL ;IMPLEMENT ADD OF LINK ELEMENT LD A,(HL) ; AND A ;IF LINK-ELEMEN┆
0x76b80…76c00 (73, 0, 4) UnusedSector ┆T 0 THEN JP Z,EXSCHED ;GOTO EXTENDED SCHEDULER DEC HL ;ELSE JP R ;RETURN TO BASIC SCHEDULER ENDIF ENDM IF LINK-ELEMEN┆
0x76c00…76c80 (73, 0, 5) UnusedSector ┆ ;DESCRIP:THE MODULE RESTORES THE REG.-PAIR(S) ; SPECIFIED AND INITIALIZES SP. ; THE REG.-PAIRS ARE RESTORED FROM┆
0x76c80…76d00 (73, 0, 6) UnusedSector ┆ ; BYTE 8,9,10,11,2,13,14,15 IN POCESS- ; DESCRIPTION. THE SPECIFIED REG.-PAIR ; WITH HIGHEST INDEX IS RESTORED FROM┆
0x76d00…76d80 (73, 0, 7) UnusedSector ┆ ; BYTE 8 ;DESTR: REG H,L,SP IF .GT.3 ;THE ROUTINE RESTORES POP ; ENDIF IF .GT.2 POP ; ENDIF ┆
0x76d80…76e00 (73, 0, 8) UnusedSector ┆ IF .GT.1 POP ; ENDIF IF .GT.0 POP ; ENDIF LD SP,INISP ;INIT SP ENDM .GT.2 POP ; ENDIF ┆
0x76e00…76e80 (73, 0, 9) UnusedSector ┆ ;DESCRIP: THE MODULE DISABLES INTERRUPTS ; SAVES THE SPECIFIED REG.-PAIR(S) ; AND JUMPS TO ADD 38H (BASIC SCHEDUL┆
0x76e80…76f00 (73, 0, 10) UnusedSector ┆ER). ; THE REG.-PAIRS ARE SAVED IN PROCESS- ; DESCRIPTION BYTE 8,9,10,11,12,13,14,15 ; WITH THE SPECIFIED REGISTER W┆
0x76f00…76f80 (73, 0, 11) UnusedSector ┆ITH ; HIGHEST INDEX SAVED IN BYTE 8 ;EXIT: ADD 38H ;DESTR: REG. H,L,SP ; SPEC. BYTES IN PROCESS-DESCRIPTION IF ┆
0x76f80…77000 (73, 0, 12) UnusedSector ┆ .GT.0 LD HL,(SYSRAM+0F8H);ADD OF EXECUTING PD TO HL PUSH AF ;STORE AF LD A,L ADD A, *2-1 LD L,A INC HL POP AF ;RESTO┆
0x77000…77080 (73, 0, 13) UnusedSector ┆RE AF DI LD SP,HL ;STORE REGISTERS ON INISP ENDIF IF .EQ.0 DI LD SP,(SYSRAM+0F8H) ENDIF IF .GT.0 PUSH ; I┆
0x77080…77100 (73, 0, 14) UnusedSector ┆F .GT.1 PUSH ; IF .GT.2 PUSH ; IF .GT.3 PUSH ; ENDIF ENDIF ENDIF ENDIF RST 38H ;SCHEDUL┆
0x77100…77180 (73, 0, 15) UnusedSector ┆E ENDM 1 PUSH ; IF .GT.2 PUSH ; IF .GT.3 PUSH ; ENDIF ENDIF ENDIF ENDIF RST 38H ;SCHEDUL┆
0x77180…77200 (73, 0, 16) UnusedSector ┆ ;DESCRIP: THE MODULE DISABLES INTERRUPT, ; SAVES THE SPECIFIED REG.-PAIR(S) IN ; PROCESS-DESCRIPTION, ENFORCES A ┆
0x77200…77280 (73, 0, 17) UnusedSector ┆SCHE- ; DULING, RESTORES THE SPECIFIED ; REG.-PAIR(S) AND ENABLES INTERRUPT. ;DESTR: REG. H,L,SP ; SPECIFIED ┆
0x77280…77300 (73, 0, 18) UnusedSector ┆BYTES IN PROCESS-DESCRIP. ; NOT SPECIFIED REG.-PAIRS SCHEDULE , , , , RESTORE , , , , ENDM ECIFIED ┆
0x77300…77380 (73, 0, 19) UnusedSector ┆ ;DESCRIP: THE MODULE INSERTS IN SCHEDULE- ; LIST AS ELEMENT-NO + *N, WHERE ; N IS A NON-NEGATIVE ┆
0x77380…77400 (73, 0, 20) UnusedSector ┆INTEGER ;DESTR: REG A,F,H,L LD HL,SYSRAM+100H+ L : LD (HL), ;LOAD LIST WITH ELEMENT LD A,L ADD A, ┆
0x77400…77480 (73, 0, 21) UnusedSector ┆;IMPLEMENT NEXT LIST ELEMENT LD L,A ;IF LAST LIST-ELEMENT THEN JR NC,L ;FINISH ;ELSE GOTO L ENDM ADD A, ┆
0x77480…77500 (73, 0, 22) UnusedSector ┆ ;DESCRIP: THE MODULE ENABLES BASIC SCHEDULER ;DESTR: REG H,L LD HL,SYSRAM+0F5H SET 7,(HL) ENDM ENDM ADD A, ┆
0x77500…77580 (73, 0, 23) UnusedSector ┆ ;DESCRIP: THE MODULE DISABLES BASIC SCHEDULER ;DESTR: REG H,L LD HL,SYSRAM+0F5H RES 7,(HL) ENDM ENDM ADD A, ┆
0x77580…77600 (73, 0, 24) UnusedSector ┆ MDAMF0 T ; SUBENQ SUBDEQ SCOMMO TRFQH TREQH RCFQH RCEQH CASE ! MCSEND MESIND RINTCO INTCOM ┆
0x77600…77680 (73, 0, 25) UnusedSector ┆* OWOFFS WRKOFF CR80OF VDUOFF > q MDAMF0 VCRINF PROINF r CRCHEC MDM1AC MDM2AC ) OWSEQ WRK┆
0x77680…77700 (73, 0, 26) UnusedSector ┆SEQ CR80SE MDAMDE % * MDAMCO RMDAMC MDAMMO CHRECO D MODTSENDERSPAUSLUBESTAKINDUD PLUMINSEASHIENTREPINCDE┆
0x77700…77780 (73, 0, 27) UnusedSector ┆LRECSTOCUESY D @ NSIMMS3MS4RULREDMS3MS4RULMS1MS2MS5KOPVISPRIHENGEM12 ! ! $ r ~ B 6 +6 1T ! : ┆
0x77780…77800 (73, 0, 28) UnusedSector ┆ ( F : ! ! " $ R 9 D ! ! ! ~ V+^ 0 ! > ?┆
0x77800…77880 (73, 0, 29) UnusedSector ┆ ~ o& ~ ! 8 " $ m B ! w#q#p! 5 K a a n > !M > ┆
0x77880…77900 (73, 0, 30) UnusedSector ┆ n > b" $ * 6 $ 1 D < ! > n > ! > ! ! [ ! ^#V! " ┆
0x77900…77980 (73, 0, 31) UnusedSector ┆ @ G L V ] D b e i l p C | > !2 ( 01 ! 8 ! > w# " ┆
0x77980…77a00 (73, 0, 32) UnusedSector ┆ 9 B 6 ! > > > ! ! N# ! ! ~+ ( N#F ( q#pD" $ n # ! ! ┆
0x77a00…77a80 (73, 0, 33) UnusedSector ┆ ! ~#V# z `$ ┆
0x77a80…77b00 (73, 0, 34) UnusedSector 0xc7[128]
[…0xae…]
