OctetView
0x00000…00080 (0, 0, 1) UnusedSector ┆@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ┆
[…0x3…]
0x00200…00280 (0, 0, 5) UnusedSector ┆ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ┆
0x00280…00300 (0, 0, 6) UnusedSector ┆@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ┆
0x00300…00380 (0, 0, 7) UnusedSector ┆ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ┆
0x00380…00400 (0, 0, 8) UnusedSector ┆ @ @@@@@@@@@@@@@@@ @ @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ ┆
0x00400…00480 (0, 0, 9) UnusedSector ┆ @ @@@@@@@@@@@@@ @ @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ ┆
[…0xb…]
0x00a00…00c00 (0, 0, 21) Index {count=0x0001, a000=Slice {count=0x0018, sector=0x0020}}
0x00c00…00e00 (0, 0, 25) Index {count=0x0001, a000=Slice {count=0x0002, sector=0x0008}}
0x00e00…01000 (1, 0, 3) Kit {sys_slice_size=0x0018, slice_size=0x0004, sectors_on_unit=0x01f4, free_sectors=0x01d4, first_data_sector=0x0020, top_data_sector=0x01d4}
0x01000…01080 (1, 0, 7) UnusedSector ┆ ? ┆
0x01080…01100 (1, 0, 8) UnusedSector 0x00[128]
[…0x2…]
0x01200…01280 (1, 0, 11) UnusedSector 0xe5[128]
[…0x57…]
0x03e00…03e20 (4, 0, 21) CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x2f…]
0x04400…04420 (5, 0, 7) CatEnt {name=»P4AF5«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0011, idxblk=0x0038, alloc=0x0013, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x04420…04440 CatEnt {name=»CATLO«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0002, idxblk=0x011c, alloc=0x0003, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x04440…04460 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xd…]
0x04600…04620 (5, 0, 11) CatEnt {name=»P1P2«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x000b, idxblk=0x01e8, alloc=0x000b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x04620…04640 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1e…]
0x04a00…04a20 (5, 0, 19) CatEnt {name=»P4AF6«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0026, idxblk=0x0080, alloc=0x0027, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x04a20…04a40 CatEnt {name=»P4PÆ7«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0016, idxblk=0x0154, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x04a40…04a60 CatEnt {name=»CATLP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0003, idxblk=0x01d8, alloc=0x0003, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x04a60…04a80 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xc…]
0x04c00…04c20 (5, 0, 23) CatEnt {name=»MAP«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x8010, length=0x0002, idxblk=0x0008, alloc=0x0002, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x04c20…04c40 CatEnt {name=»LKCPL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0011, idxblk=0x0108, alloc=0x0013, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x04c40…04c60 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xd…]
0x04e00…04e20 (6, 0, 1) CatEnt {name=»EXPRI«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x01dc, alloc=0x0003, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x04e20…04e40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x05000…05020 (6, 0, 5) CatEnt {name=»P4AF7«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0030, idxblk=0x0120, alloc=0x0033, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x05020…05040 CatEnt {name=»P4PÆ8«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x001a, idxblk=0x01bc, alloc=0x001b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x05040…05060 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xd…]
0x05200…05220 (6, 0, 9) CatEnt {name=»FORKL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0001, idxblk=0x007c, alloc=0x0003, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x05220…05240 CatEnt {name=»P1AD9«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0019, length=0x0015, idxblk=0x0068, alloc=0x0017, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x05240…05260 CatEnt {name=»P1A37«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0010, idxblk=0x00bc, alloc=0x0013, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x05260…05280 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xc…]
0x05400…05420 (6, 0, 13) CatEnt {name=»LKLPL«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0029, idxblk=0x00dc, alloc=0x002b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x05420…05440 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xe…]
0x05600…05620 (6, 0, 17) CatEnt {name=»SYS«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x8010, length=0x0018, idxblk=0x0006, alloc=0x0018, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x05620…05640 CatEnt {name=»P4AF8«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x001a, idxblk=0x016c, alloc=0x001b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x05640…05660 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0xd…]
0x05800…05820 (6, 0, 21) CatEnt {name=»P1A38«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0019, length=0x000e, idxblk=0x00ac, alloc=0x000f, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x05820…05840 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x1e…]
0x05c00…05c20 (7, 0, 3) CatEnt {name=»P1AD3«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0019, length=0x0019, idxblk=0x004c, alloc=0x001b, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
0x05c20…05c40 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x4e…]
0x06600…06620 (7, 0, 23) CatEnt {name=»RETX1«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0001, length=0x0004, idxblk=0x01e0, alloc=0x0007, w10=0x0126, w11=0x0004, w12=0x2053, w13=0x0000, w14=0x0000, w15=0x0000}
0x06620…06640 CatEnt {name=»«, w3=0x0000, w4=0x0000, w5=0x0000, attrib=0x0000, length=0x0000, idxblk=0x0000, alloc=0x0000, w10=0x0000, w11=0x0000, w12=0x0000, w13=0x0000, w14=0x0000, w15=0x0000}
[…0x3e…]
0x06e00…07000 (8, 0, 13) Index {count=0x0001, a000=Slice {count=0x0013, sector=0x0039}}
0x07000…07200 (8, 0, 17) DataSector[»P4AF5«]
[…0x12…]
0x09600…09800 (11, 0, 15) Index {count=0x0001, a000=Slice {count=0x001b, sector=0x004d}}
0x09800…09a00 (11, 0, 19) DataSector[»P1AD3«]
[…0x1a…]
0x0ce00…0d000 (15, 0, 23) Index {count=0x0002, a000=Slice {count=0x0013, sector=0x0069}, a001=Slice {count=0x0004, sector=0x00a8}}
0x0d000…0d200 (16, 0, 1) DataSector[»P1AD9«]
[…0x12…]
0x0f600…0f800 (18, 0, 25) Index {count=0x0001, a000=Slice {count=0x0003, sector=0x007d}}
0x0f800…0fa00 (19, 0, 3) DataSector[»FORKL«]
[…0x2…]
0x0fe00…10000 (19, 0, 15) Index {count=0x0001, a000=Slice {count=0x0027, sector=0x0081}}
0x10000…10200 (19, 0, 19) DataSector[»P4AF6«]
[…0x26…]
0x14e00…15000 (25, 0, 19) DataSector[»P1AD9«]
[…0x3…]
0x15600…15800 (26, 0, 9) Index {count=0x0001, a000=Slice {count=0x000f, sector=0x00ad}}
0x15800…15a00 (26, 0, 13) DataSector[»P1A38«]
[…0xe…]
0x17600…17800 (28, 0, 21) Index {count=0x0001, a000=Slice {count=0x0013, sector=0x00bd}}
0x17800…17a00 (28, 0, 25) DataSector[»P1A37«]
[…0x12…]
0x19e00…19e80 (31, 0, 23) UnusedSector ┆ ┆
0x19e80…19f00 (31, 0, 24) UnusedSector 0x00[128]
[…0x2…]
0x1a000…1a080 (32, 0, 1) UnusedSector ┆CATLO CATLP EXPRI FORKL ø ┆
0x1a080…1a100 (32, 0, 2) UnusedSector ┆LKCPL LKLPL ) + MAP P1A37 ┆
0x1a100…1a180 (32, 0, 3) UnusedSector ┆P1AD9 h P1P2 P4AF5 8 P4AF6 & ' ┆
0x1a180…1a200 (32, 0, 4) UnusedSector ┆P4AF7 0 3 P4PÆ7 T P4PÆ8 SYS ┆
0x1a200…1a280 (32, 0, 5) UnusedSector ┆ B # B # B # A # (c I A E ATLP EXPRI FORKL ø ┆
0x1a280…1a300 (32, 0, 6) UnusedSector ┆LKCPL LKLPL ) + MAP P1A37 ┆
0x1a300…1a380 (32, 0, 7) UnusedSector ┆P1AD9 h P1P2 P4AF5 8 P4AF6 & ' ┆
0x1a380…1a400 (32, 0, 8) UnusedSector ┆P4AF7 0 3 P4PÆ7 T P4PÆ8 SYS ┆
0x1a400…1a480 (32, 0, 9) UnusedSector ┆ 4/25 4/27 5/36 5/38 6/17 7/09 7/11 FIX00 000151' 2/07 3/26 FIX01 000173' ┆
0x1a480…1a500 (32, 0, 10) UnusedSector ┆ 3/42 3/45 FIX02 000206' 3/54 3/57 FLO00 000210' 2/13 3/59 FLO01 000235' ┆
0x1a500…1a580 (32, 0, 11) UnusedSector ┆ 4/16 4/20 FLO02 000237' 4/05 4/11 4/22 FLOAT 177776 2/29 2/31 2/43 2/45 3/13 ┆
0x1a580…1a600 (32, 0, 12) UnusedSector ┆ 3/15 3/37 3/39 3/49 3/51 4/25 4/27 5/36 5/38 6┆
0x1a600…1a680 (32, 0, 13) UnusedSector ┆/17 6/19 7/09 7/11 FMPY 177773 2/29 2/31 2/43 2/45 3/13 3/15 3/37 ┆
0x1a680…1a700 (32, 0, 14) UnusedSector ┆ 3/39 3/49 3/51 4/25 4/27 5/36 5/38 6/17 6/19 7/09 7/11 ┆
0x1a700…1a780 (32, 0, 15) UnusedSector ┆ FSUB 177774 2/29 2/31 2/43 2/45 3/13 3/15 3/37 3/39 3/49 3/51 4┆
0x1a780…1a800 (32, 0, 16) UnusedSector ┆/25 4/27 5/36 5/38 6/17 6/19 7/09 7/11 FUNDT 000321' 6/05 6/14 ┆
0x1a800…1a880 (32, 0, 17) UnusedSector ┆ GET00 000341' 1/39 7/03 GET13 000364' 7/32 7/47 7/58 GME00 000055' 1/48 2/2┆
0x1a880…1a900 (32, 0, 18) UnusedSector ┆0 GME01 000075' 2/33 2/37 GSM00 000077' 2/25 2/40 3/20 IDIV 177767 2/29 ┆
0x1a900…1a980 (32, 0, 19) UnusedSector ┆2/31 2/43 2/45 3/13 3/15 3/37 3/39 3/49 3/51 4/25 4/27 5/36 5/38 ┆
0x1a980…1aa00 (32, 0, 20) UnusedSector ┆ 6/17 6/19 7/09 7/11 IMPY 177771 2/29 2/31 2/43 2/45 3/13 3/1┆
0x1aa00…1aa80 (32, 0, 21) UnusedSector ┆5 3/37 3/39 3/49 3/51 4/25 4/27 5/36 5/38 6/17 ┆
0x1aa80…1ab00 (32, 0, 22) UnusedSector ┆ 6/19 7/09 7/11 IMPYA 177770 2/29 2/31 2/43 2/45 3/13 3/15 3/37 ┆
0x1ab00…1ab80 (32, 0, 23) UnusedSector ┆ 3/39 3/49 3/51 4/25 4/27 5/36 5/38 6/17 6/19 7/09 7/11 IOERR┆
0x1ab80…1ac00 (32, 0, 24) UnusedSector ┆ 177766 2/29 2/31 2/43 2/45 3/13 3/15 3/37 3/39 3/49 3/51 4/25 ┆
0x1ac00…1ac80 (32, 0, 25) UnusedSector ┆ 4/27 5/36 5/38 6/17 6/19 7/09 7/11 KSP00 000115' 1/55 2/57 ┆
0x1ac80…1ad00 (32, 0, 26) UnusedSector ┆ KSP01 000121' 2/59 3/01 3/05 KSP02 000150' 3/06 3/25 LOP1 000300' 5/53 6/09 ┆
0x1ad00…1ad80 (33, 0, 1) UnusedSector ┆ NNN 000323' 6/16 6/31 PP00 000000' 1/19 1/23 8/20 PP05 000007' 1/21 1/28 ┆
0x1ad80…1ae00 (33, 0, 2) UnusedSector ┆ 1/30 8/24 8/29 PP10 000417' 1/23 8/09 8/13 8/25 8/27 8/33 PP15 000444' 8/13┆
0x1ae00…1ae80 (33, 0, 3) UnusedSector ┆ ┆
0x1ae80…1af00 (33, 0, 4) UnusedSector 0x00[128]
[…0x2…]
0x1b000…1b080 (33, 0, 7) UnusedSector ┆P1A38 P1AD3 L P4AF8 l RETX1 & S ┆
0x1b080…1b100 (33, 0, 8) UnusedSector ┆ KCPL B *Z Z : + I 9 + ! ! J Q 9 # B # B # B # B # B # A # (c I A E ! B ! B ┆
0x1b100…1b180 (33, 0, 9) UnusedSector ┆! * J " 8L 8Q % ) B B B P(P ! Q Z " ) ! I 9 Z P I ! 9 Z ) J ! B 0 IyIå Iz Iw┆
0x1b180…1b200 (33, 0, 10) UnusedSector ┆ Is Ip: ; 0V Qf(O )g Q PYbYj)b1 _1Ø p 7 7 7 7 W v9E M)A å G8 + 1p j)@ r ?Q81: QA p┆
0x1b200…1b280 (33, 0, 11) UnusedSector 0xe5[128]
[…0x7…]
0x1b600…1b800 (33, 0, 19) Index {count=0x0001, a000=Slice {count=0x002b, sector=0x00dd}}
0x1b800…1ba00 (33, 0, 23) DataSector[»LKLPL«]
[…0x2a…]
0x20e00…21000 (40, 0, 13) Index {count=0x0001, a000=Slice {count=0x0013, sector=0x0109}}
0x21000…21200 (40, 0, 17) DataSector[»LKCPL«]
[…0x12…]
0x23600…23800 (43, 0, 15) Index {count=0x0001, a000=Slice {count=0x0003, sector=0x011d}}
0x23800…23a00 (43, 0, 19) DataSector[»CATLO«]
[…0x2…]
0x23e00…24000 (44, 0, 5) Index {count=0x0001, a000=Slice {count=0x0033, sector=0x0121}}
0x24000…24200 (44, 0, 9) DataSector[»P4AF7«]
[…0x32…]
0x2a600…2a800 (52, 0, 5) Index {count=0x0001, a000=Slice {count=0x0017, sector=0x0155}}
0x2a800…2aa00 (52, 0, 9) DataSector[»P4PÆ7«]
[…0x16…]
0x2d600…2d800 (55, 0, 23) Index {count=0x0001, a000=Slice {count=0x001b, sector=0x016d}}
0x2d800…2da00 (56, 0, 1) DataSector[»P4AF8«]
[…0x1a…]
0x30e00…30e80 (60, 0, 5) UnusedSector ┆ 3 ┆
0x30e80…30f00 (60, 0, 6) UnusedSector 0x00[128]
[…0x2…]
0x31000…31080 (60, 0, 9) UnusedSector ┆ 0001 UCA01 DOMUS MACRO ASSEMBLER REV 02.00 01 ; CALLRUTINE FINDTEGN PL. P-H. HANS RUNE SVEND MF. 02 ┆
0x31080…31100 (60, 0, 10) UnusedSector ┆ ; 10.09.81 16.40.00 03 ; DER ER INDLAGT STANDARDRUTINER FRA CAASM, OG ALT DETTE TILHØRER 04 ; ┆
0x31100…31180 (60, 0, 11) UnusedSector ┆ACSII-FILENS SIDE 1 --- SÅLEDES AT FINDTEGN & AFSLUTNING LIGGER PÅ SIDE 2 05 ; IØVRIGT ER FILEN RETTET SØNDAG 20.9┆
0x31180…31200 (60, 0, 12) UnusedSector ┆.81 AF PL 06 ; ENDV. HAR JEG INDLAGT GET FRA MMTX4 MED RETTELSER (BEM MORTEN MARQUARD) 07 ; JUSTERET┆
0x31200…31280 (60, 0, 13) UnusedSector ┆ VIDERE SØNDAG (DET VAR JO D.20.9.81) KL 22 08 ; ENDV JUSTERET I FINDTEGN 21.9.81: SÅ DER IKKE 'SNYDES' MED AT HE┆
0x31280…31300 (60, 0, 14) UnusedSector ┆NTE PARAMETRE 09 ; 23.9.81 ÆNDRINGER I FINDTEGN: 3 FEJL RETTETLDA@1,1,2 ISTF 2,1,2 10 ; - INC0,0 IS┆
0x31300…31380 (60, 0, 15) UnusedSector ┆TF2,2 11 ; SAMT TILFØJET LDA2,USTK,3 FØR JMPLOP1 * DERUDOVER SPM OM 2 STK MOVL 12 ; SOM BIBEHOLDES (┆
0x31380…31400 (60, 0, 16) UnusedSector ┆KAN SÅ ÆNDRES TIL JMP1,1) 13 ; IØVRIGT ER GET KONSTATERET MISFORSTÅET IDET MAN JO SKAL HENTE DATA 14 ┆
0x31400…31480 (60, 0, 17) UnusedSector ┆ ; -IKKE FRA PIO-ZONEN MEN FRA MULTIPLEXER-VIA BUFFERNE (SE TRYKT MANUAL) 15 ; GET LIGGER HER STADIG MEN ER PR DD ┆
0x31480…31500 (60, 0, 18) UnusedSector ┆FLYTTET TIL SIDE 3 16 17 18 19 PRDE1 20 ┆
0x31500…31580 (60, 0, 19) UnusedSector ┆ .TITL UCA01 ; USER-CODED SUBROUTINES 78.05.01 22 .NREL 23 000012 .RDX 10 ; RADIX 10 24 ┆
0x31580…31600 (60, 0, 20) UnusedSector ┆ 000001 .TXTM 1 ; PACKED FROM LEFT TO RIGHT 25 000001 .TXTN 1 ; NO NULL-BYTES IF EVEN NUMBER OF BYTE┆
0x31600…31680 (60, 0, 21) UnusedSector ┆S 26 27 PP00: ; PROGRAM START 28 00000'100001 1B0+1B15 ; DESCRIPT┆
0x31680…31700 (60, 0, 22) UnusedSector ┆OR 29 00001'000007' PP05 ; START 30 00002'000000 0 ; CHAIN 31 00003'000422 PP┆
0x31700…31780 (60, 0, 23) UnusedSector ┆10-PP00 ; SIZE 32 00004'052503 .TXT .UCALL. ; NAME 33 040514 34 046000 35 36 ┆
0x31780…31800 (60, 0, 24) UnusedSector ┆ PP05: ; 37 00007'006013 STOPPROCESS ; 38 00010'000777 JMP PP05 ; 39 ┆
0x31800…31880 (60, 0, 25) UnusedSector ┆ 40 41 00011'000247'FINDT 42 00012'043111 .TXT "FINDTEGN" 43 047104 44 052105 ┆
0x31880…31900 (60, 0, 26) UnusedSector ┆ 45 043516 46 47 00016'000344'GET00 48 00017'043505 .TXT "GET<0><0><0><0><0>" 49 052000 50 ┆
0x31900…31980 (61, 0, 1) UnusedSector ┆ 000000 51 000000 52 53 ; FLG SUBR. STAMMER FRA CAASM:11 SOM IGEN ER DEL AF CAA25 (IDAG-┆
0x31980…31a00 (61, 0, 2) UnusedSector ┆RUTINERNE) 54 55 56 00023'000055'GME00 ; GMEM-ADRESSE 57 00024'043515 ┆
0x31a00…31a80 (61, 0, 3) UnusedSector ┆.TXT "GMEM<0><0><0><0>" ; NAVN 58 042515 59 000000 60 000000 0002 UCA01 01 02┆
0x31a80…31b00 (61, 0, 4) UnusedSector ┆ 03 00030'000115'KSP00 04 00031'045517 .TXT "KODESPEC" 05 042105 06 051520 07 042503 08┆
0x31b00…31b80 (61, 0, 5) UnusedSector ┆ 09 00035'000122'SME00 10 00036'051515 .TXT "SMEM<0><0><0><0>" 11 042515 12 000000 13 000┆
0x31b80…31c00 (61, 0, 6) UnusedSector ┆000 14 15 00042'000151'FIX00 16 00043'043111 .TXT "FIX<0><0><0><0><0>" 17 054000 18 000000 19┆
0x31c00…31c80 (61, 0, 7) UnusedSector ┆ 000000 20 21 00047'000210'FLO00 22 00050'043114 .TXT "FLOAT<0><0><0>" 23 047501 24 05200┆
0x31c80…31d00 (61, 0, 8) UnusedSector ┆0 25 000000 26 27 00054'000000 0 28 00055'000002 GME00: 2 29 00056'000000 REAL 30 00057'100┆
0x31d00…31d80 (61, 0, 9) UnusedSector ┆000 REAL+REFERENCE 31 00060'031000 LDA 2,+0,2 ; AC1=A-ADRESSE 32 00061'006240 EXECUTE 33┆
0x31d80…31e00 (61, 0, 10) UnusedSector ┆ 00062'000077' GSM00 34 00063'002242 RET1 35 00064'025000 LDA 1,+0,2 ; JA: AC1=INDHOLD AF ┆
0x31e00…31e80 (61, 0, 11) UnusedSector ┆ADRESSE 36 BCALL FLOAT ; AC1 -> KOMMATAL 37 00065'035515 LDA 3 U.S21,3 38 00066┆
0x31e80…31f00 (61, 0, 12) UnusedSector ┆'007401 JSR@ +1,3 39 00067'031467 LDA 2,U.STK,3 40 00070'033001 LDA @ 2,+1,2 ; AC┆
0x31f00…31f80 (61, 0, 13) UnusedSector ┆2=B-ADRESSE 41 00071'050404 STA 2,GME01 ; GEM B-ADRESSE 42 00072'030040 LDA 2,CUR 43 00073'00┆
0x31f80…32000 (61, 0, 14) UnusedSector ┆7106 A.PDOUBLE ; GEM ADRESSEINDHOLD(A) I B 44 00074'000001 1 45 00075'000000 GME01: 0 46 00076┆
0x32000…32080 (61, 0, 15) UnusedSector ┆'002242 RET1 ; END GMEM 47 48 00077'021000 GSM00: LDA 0,+0,2 ; HENT A ┆
0x32080…32100 (61, 0, 16) UnusedSector ┆49 00100'025001 LDA 1,+1,2 50 BCALL FIX ; FIX A 51 00101'035515 LDA ┆
0x32100…32180 (61, 0, 17) UnusedSector ┆3 U.S21,3 52 00102'007400 JSR@ +0,3 53 00103'152220 ADCZR 2,2 ; AC2=1B0-1 54 00104'1010┆
0x32180…32200 (61, 0, 18) UnusedSector ┆05 MOV 0,0,SNR ; 0<=AC1<=1B0-1 55 00105'132433 SNG 1,2 56 00106'000403 JMP ERR90 ┆
0x32200…32280 (61, 0, 19) UnusedSector ┆ ; NEJ: ERROR UDSKRIV MEDD. 57 00107'131000 MOV 1,2 ; AC1-->AC2 58 00110'002242 RET1 ┆
0x32280…32300 (61, 0, 20) UnusedSector ┆ ; RETURN 59 60 00111'006244 ERR90: ERROR 0003 UCA01 01 00112'000132 90 02 ┆
0x32300…32380 (61, 0, 21) UnusedSector ┆ 03 00113'006244 ERR91: ERROR 04 00114'000133 91 05 00115'000000 KSP00: 0 06 00116'060477 READS 0┆
0x32380…32400 (61, 0, 22) UnusedSector ┆ 07 00117'040402 STA 0,KSP01 08 00120'002242 RET1 09 00121'000000 KSP01: 0 10 00122'000002 SME00: 2 ┆
0x32400…32480 (61, 0, 23) UnusedSector ┆ ; 2 VARIABLE 11 00123'000000 REAL ; A (=A-ADRESSE) 12 00124'000000 REAL ┆
0x32480…32500 (61, 0, 24) UnusedSector ┆ ; B (=DATA) 13 00125'020774 LDA 0,KSP01 ; SE GME00 14 00126'024422 LDA 1,KSP02 15 00127'1┆
0x32500…32580 (61, 0, 25) UnusedSector ┆22404 SUB 1,0,SZR 16 00130'000761 JMP ERR90 17 00131'031001 LDA 2,+1,2 ; AC2(!)=B-AD┆
0x32580…32600 (61, 0, 26) UnusedSector ┆RESSE 18 00132'021000 LDA 0,+0,2 ; HENT REAL(!) B 19 00133'025001 LDA 1,+1,2 20 ┆
0x32600…32680 (62, 0, 1) UnusedSector ┆ BCALL FIX ; FIX B 21 00134'035515 LDA 3 U.S21,3 22 00135'007400 JSR@ +0,3 2┆
0x32680…32700 (62, 0, 2) UnusedSector ┆3 00136'101004 MOV 0,0,SZR ; 0<=B<=65535 ? 24 00137'000754 JMP ERR91 ; NEJ ERROR-RETU┆
0x32700…32780 (62, 0, 3) UnusedSector ┆RN 25 00140'045470 STA 1,U.S00,3 ; GEM AC1(B) I U.S00.USER 26 00141'033467 LDA@ 2,U.STK,3 27 001┆
0x32780…32800 (62, 0, 4) UnusedSector ┆42'006240 EXECUTE ; EXEC GSM00(A-ADRESSE) 28 00143'000077' GSM00 29 00144'002242 RET1 ┆
0x32800…32880 (62, 0, 5) UnusedSector ┆30 00145'025470 LDA 1,U.S00,3 ; AC1=F(UDA+U.S00)=B 31 00146'045000 STA 1,+0,2 ; AC1-->AD┆
0x32880…32900 (62, 0, 6) UnusedSector ┆R.AC2 32 00147'002242 RET1 ; END STOREMEMORY 33 00150'123456 KSP02: 42798 34 00151'000003 FIX00: ┆
0x32900…32980 (62, 0, 7) UnusedSector ┆ 3 35 00152'100000 REAL+REFERENCE 36 00153'100000 REAL+REFERENCE 37 00154'100000 REAL+REFERENCE 38 0┆
0x32980…32a00 (62, 0, 8) UnusedSector ┆0155'102520 SUBZL 0,0 ; AC0=1 39 00156'027000 LDA @ 1,+0,2 ; AC1=A-ADRESSE 40 00157'0┆
0x32a00…32a80 (62, 0, 9) UnusedSector ┆30040 LDA 2,CUR ; AC2=CUR 41 00160'007102 A.GDOUBLE ; HENT A 42 00161'041470 ┆
0x32a80…32b00 (62, 0, 10) UnusedSector ┆ STA 0,U.S00,3 ; GEM ORD 1 AF A 43 00162'102460 SUBC 0,0 ; AC0=0 44 BC┆
0x32b00…32b80 (62, 0, 11) UnusedSector ┆ALL FLOAT ; FLOAT ORD2 AF A 45 00163'035515 LDA 3 U.S21,3 46 00164'007401 JSR@ +1,3 47┆
0x32b80…32c00 (62, 0, 12) UnusedSector ┆ 00165'030040 LDA 2,CUR ; AC2=CUR 48 00166'035467 LDA 3,U.STK,3 ; AC3=F(F(USER)+U.STK) ┆
0x32c00…32c80 (62, 0, 13) UnusedSector ┆ 49 00167'037402 LDA @ 3,+2,3 ; AC3=C-ADRESSE 50 00170'054403 STA 3,FIX01 ; GEM C-ADRESS┆
0x32c80…32d00 (62, 0, 14) UnusedSector ┆E 51 00171'007106 A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I B 52 00172'000001 1 53 00173'000000 FIX0┆
0x32d00…32d80 (62, 0, 15) UnusedSector ┆1: 0 54 00174'025470 LDA 1,U.S00,3 ; HENT ORD1 AF A 55 00175'102460 SUBC 0,0 ; AC0=0┆
0x32d80…32e00 (62, 0, 16) UnusedSector ┆ 56 BCALL FLOAT ; FLOAT ORD1 AF A 57 00176'035515 LDA 3 U.S21,3 58 00177'007401┆
0x32e00…32e80 (62, 0, 17) UnusedSector ┆ JSR@ +1,3 59 00200'030040 LDA 2,CUR ; AC2=CUR 60 00201'035467 LDA 3,U.STK,3 ┆
0x32e80…32f00 (62, 0, 18) UnusedSector ┆ 0004 UCA01 01 00202'037401 LDA @ 3,+1,3 ; AC3=B-ADRESSE 02 00203'054403 STA 3,FIX02 ┆
0x32f00…32f80 (62, 0, 19) UnusedSector ┆ ; GEM B-ADRESSE 03 00204'007106 A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I C 04 00205'000001 1 ┆
0x32f80…33000 (62, 0, 20) UnusedSector ┆05 00206'000000 FIX02: 0 06 00207'002242 RET1 ; END FIX 07 00210'000003 FLO00: 3 08 00211'000000┆
0x33000…33080 (62, 0, 21) UnusedSector ┆ REAL 09 00212'000000 REAL 10 00213'100000 REAL+REFERENCE 11 00214'031000 LDA 2,+0,2 ┆
0x33080…33100 (62, 0, 22) UnusedSector ┆ ; AC1=A-ADRESSE 12 00215'006240 EXECUTE ; EXEC FLO02 13 00216'000237' FLO02 14 00217'0022┆
0x33100…33180 (62, 0, 23) UnusedSector ┆41 RET0 ; HVIS ERROR 15 00220'045470 STA 1,U.S00,3 ; GEM DEL 1 AF C 16 00221'0314┆
0x33180…33200 (62, 0, 24) UnusedSector ┆67 LDA 2,U.STK,3 17 00222'031001 LDA 2,+1,2 ; AC1=B-ADRESSE 18 00223'006240 EXECUTE ┆
0x33200…33280 (62, 0, 25) UnusedSector ┆19 00224'000237' FLO02 20 00225'002241 RET0 21 00226'021470 LDA 0,U.S00,3 ; HENT DEL 1 AF C ┆
0x33280…33300 (62, 0, 26) UnusedSector ┆22 00227'031467 LDA 2,U.STK,3 23 00230'033002 LDA @ 2,+2,2 ; AC2=C-ADRESSE 24 00231'050404 ┆
0x33300…33380 (63, 0, 1) UnusedSector ┆ STA 2,FLO01 ; GEM C-ADRESSE 25 00232'030040 LDA 2,CUR 26 00233'007106 A.PDOUBLE ┆
0x33380…33400 (63, 0, 2) UnusedSector ┆ ; AC0,AC1-->C 27 00234'000001 1 28 00235'000000 FLO01: 0 29 00236'002242 RET1 30 00237'021000 FLO02: L┆
0x33400…33480 (63, 0, 3) UnusedSector ┆DA 0,+0,2 31 00240'025001 LDA 1,+1,2 ; ** CB RET ** 32 BCALL FIX ;┆
0x33480…33500 (63, 0, 4) UnusedSector ┆ LAV OM TIL HELTAL 33 00241'035515 LDA 3 U.S21,3 34 00242'007400 JSR@ +0,3 35 00243'101005 ┆
0x33500…33580 (63, 0, 5) UnusedSector ┆ MOV 0,0,SNR ; 0=<A/B=<32K ??? 36 00244'002242 RET1 ; JA: RETURN 37 00245'006244 ┆
0x33580…33600 (63, 0, 6) UnusedSector ┆ ERROR ; NEJ: RETURN MED ERROR 90 38 00246'000132 90. 39 40 41 ┆
0x33600…33680 (63, 0, 7) UnusedSector ┆ ;STANDARDRUTINER SLUT, 42 ;HEREFTER FINDTEGN OG GET UNDER INDKØRING & MED FORKL. 43 ;I VERSIO┆
0x33680…33700 (63, 0, 8) UnusedSector ┆N SØNDAG AFTEM 20.9.81 KL 22 FF 44 ; 45 ;ASCII-FIL SIDE 1 SLUT & DEREFTER SIDE 2: 46 ┆
0x33700…33780 (63, 0, 9) UnusedSector ┆ !0005 UCA01 01 ; CALL"FINDTEGN",S$,TXT$,START,FUNDET 02 03 00247'000004 FINDT: 4 04 0┆
0x33780…33800 (63, 0, 10) UnusedSector ┆0250'000003 STRING 05 00251'000003 STRING 06 00252'000000 REAL 07 00253'100000 REAL+RE┆
0x33800…33880 (63, 0, 11) UnusedSector ┆FER 08 ; PDTA S$ PDA 09 ; TXT$ PDA 10 ┆
0x33880…33900 (63, 0, 12) UnusedSector ┆ ; STARTINDEX PDA (REAL) 11 ; FUNDETINDEX PDA (┆
0x33900…33980 (63, 0, 13) UnusedSector ┆REAL+REFERENCE) 12 ; S$ PDA ADR I DATASEGM 13 ; ┆
0x33980…33a00 (63, 0, 14) UnusedSector ┆ NO BYTES 14 ; SEGM NO 15 ; TXT$ PDA ADR I DATASE┆
0x33a00…33a80 (63, 0, 15) UnusedSector ┆GM 16 ; NO BYTES 17 ; SEGM NO (=1) 18 ┆
0x33a80…33b00 (63, 0, 16) UnusedSector ┆ ; START PDA 1.WORD IN FLOATING REPR 19 ; 2.WORD 20 ┆
0x33b00…33b80 (63, 0, 17) UnusedSector ┆ ; FUNDET PDA ADR I DATASEGM 21 22 ; 21.9.81 PL ADR┆
0x33b80…33c00 (63, 0, 18) UnusedSector ┆ESSERING AF DATA ER JUSTERET TIL 23 ; KORREKT FACON DVS FX S$-ADR FINDES VED LDA @ 1,0,2 24 ┆
0x33c00…33c80 (63, 0, 19) UnusedSector ┆ ; ISTF LDA 1,4,2 (SOM FORUDSÆTTER AT PDA FØLGER EXACT EFTER PDT) 25 26 ┆
0x33c80…33d00 (63, 0, 20) UnusedSector ┆27 ; US00 INDEX 28 ; US01 S$(1) TEXT DER SKAL FINDE┆
0x33d00…33d80 (63, 0, 21) UnusedSector ┆S 29 ; US02 BYTEADR FOR TXT$(INDEX) I DATASEGMENTET 30 31 00254'027000 ┆
0x33d80…33e00 (63, 0, 22) UnusedSector ┆ LDA @ 1,0,2 ;HENT S$ WORD ADR. 32 00255'125100 MOVL 1,1 ;BYTE ADR. 33 00256'030040 LDA 2┆
0x33e00…33e80 (63, 0, 23) UnusedSector ┆,CUR 34 00257'020120 LDA 0,80 35 00260'007100 A.GBYTE 36 00261'041471 STA 0,U.S01,3 ;FØRSTE C┆
0x33e80…33f00 (63, 0, 24) UnusedSector ┆HR. AF S$ 37 00262'031467 LDA 2,U.STK,3 38 00263'031002 LDA 2,2,2 39 00264'021000 LDA 0,+0,2 ;┆
0x33f00…33f80 (63, 0, 25) UnusedSector ┆HENT START INDEKS 40 00265'025001 LDA 1,+1,2 41 BCALL FIX 42 00266'035515 LDA 3 ┆
0x33f80…34000 (63, 0, 26) UnusedSector ┆ U.S21,3 43 00267'007400 JSR@ +0,3 44 00270'101004 MOV 0,0,SZR 45 00271'000431 JMP ERUD1 ┆
0x34000…34080 (64, 0, 1) UnusedSector ┆ ;NEGATIV 46 00272'121000 MOV 1,0 47 00273'045470 STA 1,U.S00,3 48 00274'031467 LDA 2,U.ST┆
0x34080…34100 (64, 0, 2) UnusedSector ┆K,3 49 00275'027001 LDA @ 1,1,2 ; PL 23.9.81 50 00276'125100 MOVL 1,1 ;TXT$ (1) BYTE ADR. 51 00┆
0x34100…34180 (64, 0, 3) UnusedSector ┆277'107000 ADD 0,1 ;TXT$(INDEKS) BYTE ADR. I AC1 52 ; PL 20.9.81 RETTELSER: 53 ┆
0x34180…34200 (64, 0, 4) UnusedSector ┆00300'045472 STA 1,U.S02,3 ; US02=BYTEADR FOR TXT$(INDEX) I DATASEGM 54 55 ; FLG┆
0x34200…34280 (64, 0, 5) UnusedSector ┆ RUTINE FORUDSÆTTER 56 ; AC0 AC1 AC2 AC3 57 ; ü TXT$(I) PDTA USER ┆
0x34280…34300 (64, 0, 6) UnusedSector ┆58 ; BY-ADR 59 LOP1: 60 00301'031001 LDA 2,1,2 ; ER INDEX<=LEN(TXT$) ? E┆
0x34300…34380 (64, 0, 7) UnusedSector ┆LLERS JMP EJF 0006 UCA01 01 00302'021001 LDA 0,1,2 ; AC0 ØGES MED 1 21.9.81 -23.9 02 00303'031470 LD┆
0x34380…34400 (64, 0, 8) UnusedSector ┆A 2,U.S00,3 ; EX: 03 00304'101400 INC 0,0 ; C=0 AC2=0110 COMPL-> 1001 04 00305'142033 ADCZ # 2,0,SN┆
0x34400…34480 (64, 0, 9) UnusedSector ┆C ; AC0=LEN(TXT$)+1 = 0111 => C=1 05 00306'000432 JMP EJF 06 00307'030040 LDA 2,CUR ;FLYTTET AF PL┆
0x34480…34500 (64, 0, 10) UnusedSector ┆ 07 ; PL RETT. SLUT 08 00310'020120 LDA 0,80 09 00311'007100 A.GBYTE ┆
0x34500…34580 (64, 0, 11) UnusedSector ┆ ;HENT BYTE TXT$(INDEKS) 10 00312'025471 LDA 1,U.S01,3 ; HENT S$ 11 00313'106405 SUB 0,1,SNR ;ENS? ┆
0x34580…34600 (64, 0, 12) UnusedSector ┆ 12 00314'000410 JMP FUNDT 13 00315'011470 ISZ U.S00,3 ;FORØG INDEKS 14 00316'011472 ISZ U.S0┆
0x34600…34680 (64, 0, 13) UnusedSector ┆2,3 ;FORØG BYTE ADR. 15 00317'025472 LDA 1,U.S02,3 ; PL TILFØJELSE SØNDAG 17.9.81 16 00320'031467 LDA 2┆
0x34680…34700 (64, 0, 14) UnusedSector ┆,U.STK,3 ; PDTA I AC2 MANGLEDE / PL 23.9.81 17 00321'000760 JMP LOP1 18 19 00322'006244 ERUD1: ┆
0x34700…34780 (64, 0, 15) UnusedSector ┆ERROR ;INDEKSFEJL 20 00323'000037 31 21 22 00324'025470 FUNDT: LDA 1,U.S00,3 ┆
0x34780…34800 (64, 0, 16) UnusedSector ┆ ;FUNDET 23 00325'102400 SUB 0,0 ; STED=INDEKS 24 NNN: BCALL FLOAT 25 00326'035515 ┆
0x34800…34880 (64, 0, 17) UnusedSector ┆ LDA 3 U.S21,3 26 00327'007401 JSR@ +1,3 27 00330'035467 LDA 3,U.STK,3 28 00331'037403 ┆
0x34880…34900 (64, 0, 18) UnusedSector ┆ LDA @ 3,3,3 29 00332'054404 STA 3,WADRS 30 00333'030040 LDA 2,CUR 31 00334'007106 A.PDOUBLE ┆
0x34900…34980 (64, 0, 19) UnusedSector ┆32 00335'000001 1 33 00336'000000 WADRS: 0 34 00337'002242 RET1 35 36 EJ┆
0x34980…34a00 (64, 0, 20) UnusedSector ┆F: ; ADC 1,1 FJERNET PL SØNDAG 37 00340'102000 ADC 0,0 38 00341'126000 ADC 1,1 ;IKKE FUNDET STED=-1┆
0x34a00…34a80 (64, 0, 21) UnusedSector ┆ 39 00342'000764 JMP NNN 40 41 !0007 UCA01 01 02 03 ┆
0x34a80…34b00 (64, 0, 22) UnusedSector ┆ ; FØLGENDE ER HENTET FRA MMTX4:11 OG RETTET AF PL SØNDAG 04 ; VI HAR 23.9.81 FUNDET UD AF AT T$ IKKE S┆
0x34b00…34b80 (64, 0, 23) UnusedSector ┆KAL HENTES I PIO-ZONEN 05 ; MEN VIA MULTIPLEXEREN VIA DATABUFFERE IHT 44-RT 1206 06 07 ┆
0x34b80…34c00 (64, 0, 24) UnusedSector ┆ 08 ; Program head MM-110981 09 ; Følgende call kan benyttes: 10 ┆
0x34c00…34c80 (64, 0, 25) UnusedSector ┆ ; CALL"GET",T$,A 11 ; T$ = streng dimentioneret > A 12 ; A = Antallet af t┆
0x34c80…34d00 (64, 0, 26) UnusedSector ┆egn, der skal inputtes i T$. 13 14 ; Ved call indeholder accumulatorerne følgende værdier ┆
0x34d00…34d80 (65, 0, 1) UnusedSector ┆ 15 ; AC2 = UDA+U.STK = PDTA 16 ; AC3 = UDA 17 ; 18 ┆
0x34d80…34e00 (65, 0, 2) UnusedSector ┆ ; Adresse Lagerindhold 19 ; ======= ============ 20 ┆
0x34e00…34e80 (65, 0, 3) UnusedSector ┆ ; USER (page 0) UDA 21 ; UDA+PIO Adr. af prim. I/O zone 22 ┆
0x34e80…34f00 (65, 0, 4) UnusedSector ┆ ; UDA + U.S00 User dataarealler 23 ; UDA + U.S20 - 24 ; ┆
0x34f00…34f80 (65, 0, 5) UnusedSector ┆UDA + U.S21 Subrutine tabel 25 ; UDA + U.STK PDTA 26 ; PDTA ┆
0x34f80…35000 (65, 0, 6) UnusedSector ┆ 0 T$ PDA 27 ; 1 A PDA 28 ; PDA T$ 2 Adr. af ┆
0x35000…35080 (65, 0, 7) UnusedSector ┆1. byte. 29 ; 3 Max ant. byte 30 ; 4 Current┆
0x35080…35100 (65, 0, 8) UnusedSector ┆ ant. byte 31 ; PDA A 5 1. word 32 ; 6 2. word 3┆
0x35100…35180 (65, 0, 9) UnusedSector ┆3 00343'000000 0 ; 34 00344'000002 GET00: 2 ; To variable 35 00345'100003 STRING+REFER┆
0x35180…35200 (65, 0, 10) UnusedSector ┆ENCE ; T$ 36 00346'000000 REAL ; og A 37 00347'021005 LDA 0,+5,2 ; AC0 = 1. WORD AF A┆
0x35200…35280 (65, 0, 11) UnusedSector ┆ 38 00350'025006 LDA 1,+6,2 ; AC1 = 2. WORD AF A 39 BCALL FIX ; Hental => Kommatal ┆
0x35280…35300 (65, 0, 12) UnusedSector ┆ 40 00351'035515 LDA 3 U.S21,3 41 00352'007400 JSR@ +0,3 42 00353'101014 MOV # 0,0,SZR 43┆
0x35300…35380 (65, 0, 13) UnusedSector ┆ 00354'000441 JMP ERR31 ; Index fejl 44 00355'045471 STA 1,U.S01,3 ; U.S01 = Antal chr, der skal input┆
0x35380…35400 (65, 0, 14) UnusedSector ┆tes. 45 46 ; US00 = 47 ; US01 = ANTAL CHR DER SKAL ┆
0x35400…35480 (65, 0, 15) UnusedSector ┆INDPUTTES 48 ; US02 = BYTEADR AF 1. BYTE I T$ 49 ; US03 = MAX ANTAL ┆
0x35480…35500 (65, 0, 16) UnusedSector ┆CHR I T$ (T$ SKAL VED KALD VÆRE <>"" ! 50 ; REM PL SØNDAG - ER DET MENINGEN?????? 51 ┆
0x35500…35580 (65, 0, 17) UnusedSector ┆ 52 00356'031467 LDA 2,U.STK,3 ; AC2=PDTA 53 00357'025002 LDA 1,+2,2 ; AC1= WORDADR AF 1. BYTE I T$┆
0x35580…35600 (65, 0, 18) UnusedSector ┆ 54 00360'125100 MOVL 1,1 ; PL RETTELSE SØNDAG T$(INDEX) BYTEADR 55 ; OG HVEM ER D┆
0x35600…35680 (65, 0, 19) UnusedSector ┆EN TÅBE DER HAR FJERNET ASS CODED SUBR MANUALEN 56 ; FRA NR 46, SÅ MAN KAN KONTROLLERE OM PDA W1 I┆
0x35680…35700 (65, 0, 20) UnusedSector ┆KKE INDEH W-ADR !!! 57 00361'045472 STA 1,U.S02,3 ; U.S02 = Adr. af 1. byte LDA 2,U.STK,3 58 00362'025003 ┆
0x35700…35780 (65, 0, 21) UnusedSector ┆ LDA 1,+3,2 ; AC1=Max ant. chr. 59 00363'044073 STA 1,U.S03 ; U.S03=AC1 60 00364'020071 LDA 0,┆
0x35780…35800 (65, 0, 22) UnusedSector ┆U.S01 ; AC0=U.S01 0008 UCA01 01 00365'106522 SUBZL 0,1,SZC ; AC0 > AC1 ? 02 00366'000427 JMP ERR31 ┆
0x35800…35880 (65, 0, 23) UnusedSector ┆ ; JA => Index fejl. 03 00367'030040 GET13: LDA 2,CUR ; AC2=CUR 04 00370'034017 LDA 3,USER ; AC3=US┆
0x35880…35900 (65, 0, 24) UnusedSector ┆ER 05 00371'021442 LDA 0,PIO,3 ; Adr. af primære I/O zone (term.). 06 00372'007115 F.ICHAR ; Hen┆
0x35900…35980 (65, 0, 25) UnusedSector ┆t en carakter 07 00373'000424 JMP ERRUD ; Hvis fejl. Skriv den ud. 08 00374'020054 LDA 0,44 ; A┆
0x35980…35a00 (65, 0, 26) UnusedSector ┆C0=31 09 00375'152520 SUBZL 2,2 ; AC2=1 10 00376'142400 SUB 2,0 ; AC0=31 11 ; ┆
0x35a00…35a80 (66, 0, 1) UnusedSector ┆ FLG BET. RETTET PL SØND:SUB # 1,0,SNR ; CHR > 31 (>='space') 12 00377'122032 ADCZ # 1,0,SZC ; PL RETTE┆
0x35a80…35b00 (66, 0, 2) UnusedSector ┆LSE SØNDAG ILL TILFÆLDE 4 BIT 13 ; C=0 AC1=0110 (HENTET BYTE FRA ICHAR) OG AC0=1100 ┆
0x35b00…35b80 (66, 0, 3) UnusedSector ┆ 14 ; AC1 COMPL =1001 15 ; AC0 EX =1100 (AC┆
0x35b80…35c00 (66, 0, 4) UnusedSector ┆0>=AC1) 16 ; SUM =0101 OG OVERFLOW=> C=1 OG DER SKIPPES IKKE 17 ┆
0x35c00…35c80 (66, 0, 5) UnusedSector ┆ ; DVS SKIP HVIS AC1<=AC0 DVS HVIS AC1<=31 (KORREKT?) 18 00400'000767 JMP GET13 ; Nej !! Gå┆
0x35c80…35d00 (66, 0, 6) UnusedSector ┆r tilbage til 'GET13' 19 00401'121000 MOV 1,0 ; AC0 = AC1 20 00402'025472 LDA 1,U.S02,3 21 00403'0┆
0x35d00…35d80 (66, 0, 7) UnusedSector ┆30040 LDA 2,CUR 22 00404'007104 A.PBYTE ; Put chr ud i T$. 23 00405'000001 1 ;┆
0x35d80…35e00 (66, 0, 8) UnusedSector ┆ Hvordan ud!! 24 00406'025472 LDA 1,U.S02,3 ; GEM AC1 i U.S02 25 00407'125400 INC 1,1 ; AC1=AC1+1 ┆
0x35e00…35e80 (66, 0, 9) UnusedSector ┆ 26 00410'045472 STA 1,U.S02,3 ; GEM AC1 UD I 'U.S02' 27 00411'031471 LDA 2,U.S01,3 ; AC2=U.S01 28 0041┆
0x35e80…35f00 (66, 0, 10) UnusedSector ┆2'122415 SUB # 1,0,SNR ; Input færdigt!! 29 00413'000754 JMP GET13 ; Nej 30 00414'002242 RET┆
0x35f00…35f80 (66, 0, 11) UnusedSector ┆1 ; Ja 31 00415'006244 ERR31: ERROR 32 00416'000037 31 ; Indexfejl (returner til BASIC) !! ┆
0x35f80…36000 (66, 0, 12) UnusedSector ┆ 33 00417'050402 ERRUD: STA 2,+2,1 34 00420'006244 ERROR 35 00421'000000 0 ; Evt. BCALL I┆
0x36000…36080 (66, 0, 13) UnusedSector ┆OERR 36 37 38 PRDE2 ; PROGRAM SLUT 39 40 ┆
0x36080…36100 (66, 0, 14) UnusedSector ┆ PP10: ; PROCESSDESCRIPTOR: 41 00422'000000 0 ; NEXT 42 00423'000000 0 ┆
0x36100…36180 (66, 0, 15) UnusedSector ┆ ; PREV 43 00424'000000 0 ; CHAIN 44 00425'000025 PP15-PP10 ; SIZE 45 00426'0┆
0x36180…36200 (66, 0, 16) UnusedSector ┆52503 .TXT .UCALL. ; NAME 46 040514 47 046000 48 00431'000431' .+0 ; FIRST EVENT ┆
0x36200…36280 (66, 0, 17) UnusedSector ┆ 49 00432'000431' .-1 ; LAST EVENT 50 00433'000000 0 ; BUFFE 51 00434'000000' ┆
0x36280…36300 (66, 0, 18) UnusedSector ┆PP00 ; PROGRAM 52 00435'000000 0 ; STATE 53 00436'000000 0 ; TIMER 54 ┆
0x36300…36380 (66, 0, 19) UnusedSector ┆00437'000001 1 ; PRIORITY 55 00440'000007' PP05 ; BREAK 56 00441'000422' PP10 ┆
0x36380…36400 (66, 0, 20) UnusedSector ┆ ; AC0 57 00442'000000 0 ; AC1 58 00443'000422' PP10 ; AC2 59 00444'000000 ┆
0x36400…36480 (66, 0, 21) UnusedSector ┆ 0 ; AC3 60 00445'000016" PP05*2 ; PSW 0009 UCA01 01 00446'000000 0 ┆
0x36480…36500 (66, 0, 22) UnusedSector ┆ ; SAVE 02 03 PP15: ; 04 .END PP10 0000 SOUR┆
0x36500…36580 (66, 0, 23) UnusedSector ┆CE LINES IN ERROR 0010 UCA01 BCALL 000000 MC 2/3┆
0x36580…36600 (66, 0, 24) UnusedSector ┆6 2/50 3/20 3/44 3/56 4/32 5/41 6/24 7/39 EJF 000340' 6/05 ┆
0x36600…36680 (66, 0, 25) UnusedSector ┆6/36 ERR31 000415' 7/43 8/02 8/31 ERR90 000111' 2/56 2/60 3/16 ERR91 000113' ┆
0x36680…36700 (66, 0, 26) UnusedSector ┆ 3/03 3/24 ERRUD 000417' 8/07 8/33 ERUD1 000322' 5/45 6/19 FADD 177775 2/┆
0x36700…36780 (67, 0, 1) UnusedSector ┆37 2/39 2/51 2/53 3/21 3/23 3/45 3/47 3/57 3/59 4/33 4/35 5/42 ┆
0x36780…36800 (67, 0, 2) UnusedSector ┆5/44 6/25 6/27 7/40 7/42 FDIV 177772 2/37 2/39 2/51 2/53 3/21 ┆
0x36800…36880 (67, 0, 3) UnusedSector ┆ 3/23 3/45 3/47 3/57 3/59 4/33 4/35 5/42 5/44 6┆
0x36880…36900 (67, 0, 4) UnusedSector ┆/25 6/27 7/40 7/42 FINDT 000247' 1/41 5/03 FIX 177777 2/37 2/51 2/53 3/21 ┆
0x36900…36980 (67, 0, 5) UnusedSector ┆ 3/23 3/45 3/57 4/33 4/35 5/42 5/44 6/25 7/40 7/42 FIX00 000151' ┆
0x36980…36a00 (67, 0, 6) UnusedSector ┆ 2/15 3/34 FIX01 000173' 3/50 3/53 FIX02 000206' 4/02 4/05 FLO00 000210' ┆
0x36a00…36a80 (67, 0, 7) UnusedSector ┆2/21 4/07 FLO01 000235' 4/24 4/28 FLO02 000237' 4/13 4/19 4/30 FLOAT 177776 ┆
0x36a80…36b00 (67, 0, 8) UnusedSector ┆ 2/37 2/39 2/51 2/53 3/21 3/23 3/45 3/47 3/57 3/59 4/33 4/35 5/4┆
0x36b00…36b80 (67, 0, 9) UnusedSector ┆2 5/44 6/25 6/27 7/40 7/42 FMPY 177773 2/37 2/39 2/51 2/53 ┆
0x36b80…36c00 (67, 0, 10) UnusedSector ┆3/21 3/23 3/45 3/47 3/57 3/59 4/33 4/35 5/42 5/44 ┆
0x36c00…36c80 (67, 0, 11) UnusedSector ┆ 6/25 6/27 7/40 7/42 FSUB 177774 2/37 2/39 2/51 2/53 3/21 3/23 3/45 ┆
0x36c80…36d00 (67, 0, 12) UnusedSector ┆ 3/47 3/57 3/59 4/33 4/35 5/42 5/44 6/25 6/27 7/40 7/42 ┆
0x36d00…36d80 (67, 0, 13) UnusedSector ┆ FUNDT 000324' 6/12 6/22 GET00 000344' 1/47 7/34 GET13 000367' 8/03 8/18 8/29┆
0x36d80…36e00 (67, 0, 14) UnusedSector ┆ GME00 000055' 1/56 2/28 GME01 000075' 2/41 2/45 GSM00 000077' 2/33 2/48 3┆
0x36e00…36e80 (67, 0, 15) UnusedSector ┆/28 IDIV 177767 2/37 2/39 2/51 2/53 3/21 3/23 3/45 3/47 3/57 ┆
0x36e80…36f00 (67, 0, 16) UnusedSector ┆ 3/59 4/33 4/35 5/42 5/44 6/25 6/27 7/40 7/42 IMPY 177771 2/3┆
0x36f00…36f80 (67, 0, 17) UnusedSector ┆7 2/39 2/51 2/53 3/21 3/23 3/45 3/47 3/57 3/59 4/33 4/35 5/42 5┆
0x36f80…37000 (67, 0, 18) UnusedSector ┆/44 6/25 6/27 7/40 7/42 IMPYA 177770 2/37 2/39 2/51 2/53 3/21 ┆
0x37000…37080 (67, 0, 19) UnusedSector ┆ 3/23 3/45 3/47 3/57 3/59 4/33 4/35 5/42 5/44 6/┆
0x37080…37100 (67, 0, 20) UnusedSector ┆25 6/27 7/40 7/42 IOERR 177766 2/37 2/39 2/51 2/53 3/21 3/23 3/45 ┆
0x37100…37180 (67, 0, 21) UnusedSector ┆ 3/47 3/57 3/59 4/33 4/35 5/42 5/44 6/25 6/27 7/40 7/42 ┆
0x37180…37200 (67, 0, 22) UnusedSector ┆KSP00 000115' 2/03 3/05 KSP01 000121' 3/07 3/09 3/13 KSP02 000150' 3/14 3/33 ┆
0x37200…37280 (67, 0, 23) UnusedSector ┆ LOP1 000301' 5/59 6/17 NNN 000326' 6/24 6/39 PP00 000000' 1/27 1/31 8/51 ┆
0x37280…37300 (67, 0, 24) UnusedSector ┆ PP05 000007' 1/29 1/36 1/38 8/55 8/60 PP10 000422' 1/31 8/40 8/44 8/56 8/58 ┆
0x37300…37380 (67, 0, 25) UnusedSector ┆ 9/04 PP15 000447' 8/44 9/03 PRDE1 000211 MC 1/19 0011 UCA01 ┆
0x37380…37400 (67, 0, 26) UnusedSector ┆ PRDE2 000276 MC 8/38 SME00 000122' 2/09 3/10 WADRS 0┆
0x37400…37480 (68, 0, 1) UnusedSector ┆00336' 6/29 6/33 NNN 000326' 6/24 6/39 PP00 000000' 1/27 1/31 8/51 ┆
0x37480…37500 (68, 0, 2) UnusedSector ┆ PP05 000007' 1/29 1/36 1/38 8/55 8/60 PP10 000422' 1/31 8/40 8/44 8/56 8/58 ┆
0x37500…37580 (68, 0, 3) UnusedSector ┆ 9/04 PP15 000447' 8/44 9/03 PRDE1 000211 MC 1/19 0011 UCA01 ┆
0x37580…37600 (68, 0, 4) UnusedSector ┆ PRDE2 000276 MC 8/38 SME00 000122' 2/09 3/10 WADRS 0┆
0x37600…37800 (68, 0, 5) Index {count=0x0001, a000=Slice {count=0x001b, sector=0x01bd}}
0x37800…37a00 (68, 0, 9) DataSector[»P4PÆ8«]
[…0x1a…]
0x3ae00…3b000 (72, 0, 13) Index {count=0x0001, a000=Slice {count=0x0003, sector=0x01d9}}
0x3b000…3b200 (72, 0, 17) DataSector[»CATLP«]
[…0x2…]
0x3b600…3b800 (73, 0, 3) Index {count=0x0001, a000=Slice {count=0x0003, sector=0x01dd}}
0x3b800…3ba00 (73, 0, 7) DataSector[»EXPRI«]
[…0x2…]
0x3be00…3c000 (73, 0, 19) Index {count=0x0001, a000=Slice {count=0x0007, sector=0x01e1}}
0x3c000…3c200 (73, 0, 23) DataSector[»RETX1«]
[…0x6…]
0x3ce00…3d000 (74, 0, 25) Index {count=0x0001, a000=Slice {count=0x000b, sector=0x01e9}}
0x3d000…3d200 (75, 0, 3) DataSector[»P1P2«]
[…0xa…]
0x3e600…3e680 (76, 0, 21) UnusedSector 0xe5[128]
[…0x5…]
