|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4684 (0x124c)
Notes: pts_type(UF)
Names: »KM461.UF«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/KM461.UF«
PRT KM461 PRT C461 MES ODENSE KOMMUNE - UK01 MES SEPARATE TASK FOR BATCH TRANSMISSION MES 830929 EV SCR LED KMD08,/S !!CH $$DCTASK$$DCTSK$$ !!DL 121,169 KBA-VDU,GTP !!DL 182,207 TB9 !!RE 254,$$FALSE$$TRUE$$ 5M DISK !!RE 291,$$FALSE$$FALSE$$ DISK OVERLAY !!RE 366,$$01014610$$0302462$$ VERSION NO !!DL 373,374 BKO CTTXT07 STRG 381'000000000000000000376 BKO C 51ASKAT3 C 58A/S 2 C 52BSKAT3 C 60BDFLG0 C 68B B N1 C 69B B %1 C 64BRNFO0 C 62DAGPE2 C 56EJDSK0 C 59FORAB2 C 57ANDKM0 C 30FORBE1 C 31TPDAG1 C 54GLSK 1 C 36HUSL 0 C 61S[RIN0 C 21FORBR0 C 22FORBR0 C 65BOL]N1 C 67BOSIK1 C 46FERIE0 C 35VARME0 C 53PLIGT0 C 55SOCYD0 C 45UDBB 1 C 47[FBDR0 C 48UD[FB0 C 49EFUBB0 C 50UDBDR0 C 27SOMAN0 C 28GRONL0 C 29UDENL0 C 63GRDSK0 C 40DAGIN0 C 23FORBR0 C 24FORBR0 C 33DEPOS0 C 34DEPUD0 C 41KNBEV1 C 20INKAS1 C 42BISTH1 C 43SKB*D1 C 44SPPGA1 C 66NEGIN0' !!RE 412,$$1400$$10000$$ MAX RECORDS !!RE 414,$$'2'$$'0'$$ ONLY USE FD461002 !!DL 731,732 ENTRY 3270 !!DL 737,741 EXT 3270 !!DL 754 MOVE GSWBIN1,=W'381' LENGTH CTTXT07 !!DL 765,800 START 3270 !!EN NOD C TRA /S,NL INC DIV461 INC RGADM NOD R INC SCREEN INC RGSUB3 NOD R INC KMDIO INC DKSUBS NOD D INC SUBAPL INC KTPLN NOD D INC RGMAIN INC RGSUBS INC RGSUB1 INC RGSUB2 NOD D INC RGFRMT INC ADM6BC NOD D INC KTOPR INC RGSTRT INC ADM5 TLK U,4K INC DCTSK $INCGEN LKE M KPF /L,RG461 SCR MES $PDISC M=M:DO34,MU=M:POOL92,A=RG461,C=C461 $ASG2
0x0000…0012 (0, 0, 400) Head {h00=0x000e, h01=0x0050, text=»PRT KM461 «, t00=0x0000, t01=0x0004}
0x0012…0022 Head {h00=0x000c, h01=0x0050, text=»PRT C461«, t00=0x0000, t01=0x0016}
0x0022…0044 Head {h00=0x001e, h01=0x0050, text=»MES ODENSE KOMMUNE - UK01 «, t00=0x0000, t01=0x0026}
0x0044…0074 Head {h00=0x002c, h01=0x0050, text=»MES SEPARATE TASK FOR BATCH TRANSMISSION«, t00=0x0000, t01=0x0048}
0x0074…008a Head {h00=0x0012, h01=0x0050, text=»MES 830929 EV «, t00=0x0000, t01=0x0078}
0x008a…0096 Head {h00=0x0008, h01=0x0050, text=»SCR «, t00=0x0000, t01=0x008e}
0x0096…00aa Head {h00=0x0010, h01=0x0050, text=»LED KMD08,/S«, t00=0x0000, t01=0x009a}
0x00aa…00c8 Head {h00=0x001a, h01=0x0050, text=»!!CH $$DCTASK$$DCTSK$$«, t00=0x0000, t01=0x00ae}
0x00c8…00e8 Head {h00=0x001c, h01=0x0050, text=»!!DL 121,169 KBA-VDU,GTP«, t00=0x0000, t01=0x00cc}
0x00e8…0100 Head {h00=0x0014, h01=0x0050, text=»!!DL 182,207 TB9«, t00=0x0000, t01=0x00ec}
0x0100…0128 Head {h00=0x0024, h01=0x0050, text=»!!RE 254,$$FALSE$$TRUE$$ 5M DISK«, t00=0x0000, t01=0x0104}
0x0128…0156 Head {h00=0x002a, h01=0x0050, text=»!!RE 291,$$FALSE$$FALSE$$ DISK OVERLAY«, t00=0x0000, t01=0x012c}
0x0156…0188 Head {h00=0x002e, h01=0x0050, text=»!!RE 366,$$01014610$$0302462$$ VERSION NO «, t00=0x0000, t01=0x015a}
0x0188…01a0 Head {h00=0x0014, h01=0x0050, text=»!!DL 373,374 BKO«, t00=0x0000, t01=0x018c}
0x01a0…01d4 Head {h00=0x0030, h01=0x0050, text=»CTTXT07 STRG 381'000000000000000000376 BKO C«, t00=0x0001, t01=0x0014}
0x01d4…01ea Head {h00=0x0012, h01=0x0050, text=» 51ASKAT3 C «, t00=0x0001, t01=0x0048}
0x01ea…0200 Head {h00=0x0012, h01=0x0050, text=» 58A/S 2 C «, t00=0x0001, t01=0x005e}
0x0200…0216 Head {h00=0x0012, h01=0x0050, text=» 52BSKAT3 C «, t00=0x0001, t01=0x0074}
0x0216…022c Head {h00=0x0012, h01=0x0050, text=» 60BDFLG0 C «, t00=0x0001, t01=0x008a}
0x022c…0242 Head {h00=0x0012, h01=0x0050, text=» 68B B N1 C «, t00=0x0001, t01=0x00a0}
0x0242…0258 Head {h00=0x0012, h01=0x0050, text=» 69B B %1 C «, t00=0x0001, t01=0x00b6}
0x0258…026e Head {h00=0x0012, h01=0x0050, text=» 64BRNFO0 C «, t00=0x0001, t01=0x00cc}
0x026e…0284 Head {h00=0x0012, h01=0x0050, text=» 62DAGPE2 C «, t00=0x0001, t01=0x00e2}
0x0284…029a Head {h00=0x0012, h01=0x0050, text=» 56EJDSK0 C «, t00=0x0001, t01=0x00f8}
0x029a…02b0 Head {h00=0x0012, h01=0x0050, text=» 59FORAB2 C «, t00=0x0001, t01=0x010e}
0x02b0…02c6 Head {h00=0x0012, h01=0x0050, text=» 57ANDKM0 C «, t00=0x0001, t01=0x0124}
0x02c6…02dc Head {h00=0x0012, h01=0x0050, text=» 30FORBE1 C «, t00=0x0001, t01=0x013a}
0x02dc…02f2 Head {h00=0x0012, h01=0x0050, text=» 31TPDAG1 C «, t00=0x0001, t01=0x0150}
0x02f2…0308 Head {h00=0x0012, h01=0x0050, text=» 54GLSK 1 C «, t00=0x0001, t01=0x0166}
0x0308…031e Head {h00=0x0012, h01=0x0050, text=» 36HUSL 0 C «, t00=0x0001, t01=0x017c}
0x031e…0334 (2, 0, 400) Head {h00=0x0012, h01=0x0050, text=» 61S[RIN0 C «, t00=0x0002, t01=0x0004}
0x0334…034a Head {h00=0x0012, h01=0x0050, text=» 21FORBR0 C «, t00=0x0002, t01=0x001a}
0x034a…0360 Head {h00=0x0012, h01=0x0050, text=» 22FORBR0 C «, t00=0x0002, t01=0x0030}
0x0360…0376 Head {h00=0x0012, h01=0x0050, text=» 65BOL]N1 C «, t00=0x0002, t01=0x0046}
0x0376…038c Head {h00=0x0012, h01=0x0050, text=» 67BOSIK1 C «, t00=0x0002, t01=0x005c}
0x038c…03a2 Head {h00=0x0012, h01=0x0050, text=» 46FERIE0 C «, t00=0x0002, t01=0x0072}
0x03a2…03b8 Head {h00=0x0012, h01=0x0050, text=» 35VARME0 C «, t00=0x0002, t01=0x0088}
0x03b8…03ce Head {h00=0x0012, h01=0x0050, text=» 53PLIGT0 C «, t00=0x0002, t01=0x009e}
0x03ce…03e4 Head {h00=0x0012, h01=0x0050, text=» 55SOCYD0 C «, t00=0x0002, t01=0x00b4}
0x03e4…03fa Head {h00=0x0012, h01=0x0050, text=» 45UDBB 1 C «, t00=0x0002, t01=0x00ca}
0x03fa…0410 Head {h00=0x0012, h01=0x0050, text=» 47[FBDR0 C «, t00=0x0002, t01=0x00e0}
0x0410…0426 Head {h00=0x0012, h01=0x0050, text=» 48UD[FB0 C «, t00=0x0002, t01=0x00f6}
0x0426…043c Head {h00=0x0012, h01=0x0050, text=» 49EFUBB0 C «, t00=0x0002, t01=0x010c}
0x043c…0452 Head {h00=0x0012, h01=0x0050, text=» 50UDBDR0 C «, t00=0x0002, t01=0x0122}
0x0452…0468 Head {h00=0x0012, h01=0x0050, text=» 27SOMAN0 C «, t00=0x0002, t01=0x0138}
0x0468…047e Head {h00=0x0012, h01=0x0050, text=» 28GRONL0 C «, t00=0x0002, t01=0x014e}
0x047e…0494 Head {h00=0x0012, h01=0x0050, text=» 29UDENL0 C «, t00=0x0002, t01=0x0164}
0x0494…04aa Head {h00=0x0012, h01=0x0050, text=» 63GRDSK0 C «, t00=0x0002, t01=0x017a}
0x04aa…04c0 Head {h00=0x0012, h01=0x0050, text=» 40DAGIN0 C «, t00=0x0002, t01=0x0190}
0x04c0…04d6 Head {h00=0x0012, h01=0x0050, text=» 23FORBR0 C «, t00=0x0003, t01=0x0016}
0x04d6…04ec Head {h00=0x0012, h01=0x0050, text=» 24FORBR0 C «, t00=0x0003, t01=0x002c}
0x04ec…0502 Head {h00=0x0012, h01=0x0050, text=» 33DEPOS0 C «, t00=0x0003, t01=0x0042}
0x0502…0518 Head {h00=0x0012, h01=0x0050, text=» 34DEPUD0 C «, t00=0x0003, t01=0x0058}
0x0518…052e Head {h00=0x0012, h01=0x0050, text=» 41KNBEV1 C «, t00=0x0003, t01=0x006e}
0x052e…0544 Head {h00=0x0012, h01=0x0050, text=» 20INKAS1 C «, t00=0x0003, t01=0x0084}
0x0544…055a Head {h00=0x0012, h01=0x0050, text=» 42BISTH1 C «, t00=0x0003, t01=0x009a}
0x055a…0570 Head {h00=0x0012, h01=0x0050, text=» 43SKB*D1 C «, t00=0x0003, t01=0x00b0}
0x0570…0586 Head {h00=0x0012, h01=0x0050, text=» 44SPPGA1 C «, t00=0x0003, t01=0x00c6}
0x0586…059a Head {h00=0x0010, h01=0x0050, text=» 66NEGIN0' «, t00=0x0003, t01=0x00dc}
0x059a…05c6 Head {h00=0x0028, h01=0x0050, text=»!!RE 412,$$1400$$10000$$ MAX RECORDS«, t00=0x0003, t01=0x00f0}
0x05c6…05f6 Head {h00=0x002c, h01=0x0050, text=»!!RE 414,$$'2'$$'0'$$ ONLY USE FD461002 «, t00=0x0003, t01=0x011c}
0x05f6…0616 Head {h00=0x001c, h01=0x0050, text=»!!DL 731,732 ENTRY 3270 «, t00=0x0003, t01=0x014c}
0x0616…0634 Head {h00=0x001a, h01=0x0050, text=»!!DL 737,741 EXT 3270 «, t00=0x0003, t01=0x016c}
0x0634…0644 Head {h00=0x000c, h01=0x0050, text=»!!DL 754«, t00=0x0003, t01=0x018a}
0x0644…0670 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN1,=W'381' LENGTH CTTXT07«, t00=0x0004, t01=0x000a}
0x0670…0690 Head {h00=0x001c, h01=0x0050, text=»!!DL 765,800 START 3270 «, t00=0x0004, t01=0x0036}
0x0690…069c Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0004, t01=0x0056}
0x069c…06aa Head {h00=0x000a, h01=0x0050, text=»NOD C «, t00=0x0004, t01=0x0062}
0x06aa…06bc Head {h00=0x000e, h01=0x0050, text=»TRA /S,NL «, t00=0x0004, t01=0x0070}
0x06bc…06ce Head {h00=0x000e, h01=0x0050, text=»INC DIV461«, t00=0x0004, t01=0x0082}
0x06ce…06e0 Head {h00=0x000e, h01=0x0050, text=»INC RGADM «, t00=0x0004, t01=0x0094}
0x06e0…06ee Head {h00=0x000a, h01=0x0050, text=»NOD R «, t00=0x0004, t01=0x00a6}
0x06ee…0700 Head {h00=0x000e, h01=0x0050, text=»INC SCREEN«, t00=0x0004, t01=0x00b4}
0x0700…0712 Head {h00=0x000e, h01=0x0050, text=»INC RGSUB3«, t00=0x0004, t01=0x00c6}
0x0712…0720 Head {h00=0x000a, h01=0x0050, text=»NOD R «, t00=0x0004, t01=0x00d8}
0x0720…0732 Head {h00=0x000e, h01=0x0050, text=»INC KMDIO «, t00=0x0004, t01=0x00e6}
0x0732…0744 Head {h00=0x000e, h01=0x0050, text=»INC DKSUBS«, t00=0x0004, t01=0x00f8}
0x0744…0752 Head {h00=0x000a, h01=0x0050, text=»NOD D «, t00=0x0004, t01=0x010a}
0x0752…0764 Head {h00=0x000e, h01=0x0050, text=»INC SUBAPL«, t00=0x0004, t01=0x0118}
0x0764…0776 Head {h00=0x000e, h01=0x0050, text=»INC KTPLN «, t00=0x0004, t01=0x012a}
0x0776…0784 Head {h00=0x000a, h01=0x0050, text=»NOD D «, t00=0x0004, t01=0x013c}
0x0784…0796 Head {h00=0x000e, h01=0x0050, text=»INC RGMAIN«, t00=0x0004, t01=0x014a}
0x0796…07a8 Head {h00=0x000e, h01=0x0050, text=»INC RGSUBS«, t00=0x0004, t01=0x015c}
0x07a8…07ba Head {h00=0x000e, h01=0x0050, text=»INC RGSUB1«, t00=0x0004, t01=0x016e}
0x07ba…07cc Head {h00=0x000e, h01=0x0050, text=»INC RGSUB2«, t00=0x0004, t01=0x0180}
0x07cc…07da (5, 0, 280) Head {h00=0x000a, h01=0x0050, text=»NOD D «, t00=0x0005, t01=0x0004}
0x07da…07ec Head {h00=0x000e, h01=0x0050, text=»INC RGFRMT«, t00=0x0005, t01=0x0012}
0x07ec…07fe Head {h00=0x000e, h01=0x0050, text=»INC ADM6BC«, t00=0x0005, t01=0x0024}
0x07fe…080c Head {h00=0x000a, h01=0x0050, text=»NOD D «, t00=0x0005, t01=0x0036}
0x080c…081e Head {h00=0x000e, h01=0x0050, text=»INC KTOPR «, t00=0x0005, t01=0x0044}
0x081e…0830 Head {h00=0x000e, h01=0x0050, text=»INC RGSTRT«, t00=0x0005, t01=0x0056}
0x0830…0840 Head {h00=0x000c, h01=0x0050, text=»INC ADM5«, t00=0x0005, t01=0x0068}
0x0840…0850 Head {h00=0x000c, h01=0x0050, text=»TLK U,4K«, t00=0x0005, t01=0x0078}
0x0850…0862 Head {h00=0x000e, h01=0x0050, text=»INC DCTSK «, t00=0x0005, t01=0x0088}
0x0862…0872 Head {h00=0x000c, h01=0x0050, text=»$INCGEN «, t00=0x0005, t01=0x009a}
0x0872…0880 Head {h00=0x000a, h01=0x0050, text=»LKE M «, t00=0x0005, t01=0x00aa}
0x0880…0894 Head {h00=0x0010, h01=0x0050, text=»KPF /L,RG461«, t00=0x0005, t01=0x00b8}
0x0894…08a0 Head {h00=0x0008, h01=0x0050, text=»SCR «, t00=0x0005, t01=0x00cc}
0x08a0…08d6 Head {h00=0x0032, h01=0x0050, text=»MES $PDISC M=M:DO34,MU=M:POOL92,A=RG461,C=C461«, t00=0x0005, t01=0x00d8}
0x08d6…08e4 Head {h00=0x000a, h01=0x0050, text=»$ASG2 «, t00=0x0005, t01=0x010e}
0x08e4…08e8 (6, 1, 8) Head {h00=0x2004, h01=0x0000}
0x08e8…08ec 00 06 00 04 ┆ ┆
0x08ec…093c (7, 0, 400) 4b 20 00 1e 01 7a 00 12 00 50 20 42 4e 4f 4b 20 53 54 52 54 52 45 54 20 00 1f 00 0a 00 1c 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 20 53 45 54 20 43 52 20 00 1f 00 20 00 08 00 50 20 52 45 54 00 1f 00 40 00 0c 00 50 53 54 52 54 ┆K z P BNOK STRTRET P CMP CBIN0,CBIN0 SET CR P RET @ PSTRT┆
0x093c…098c 52 45 54 20 00 1f 00 4c 00 14 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 31 00 1f 00 5c 00 08 00 50 20 52 45 54 00 1f 00 74 00 0a 00 50 20 50 45 4e 44 20 00 1f 00 80 00 0a 00 50 20 45 4a 45 43 54 00 1f 00 8e 00 32 00 50 2a 2a 2a 2a ┆RET L P CMP CBIN0,CBIN1 P RET t P PEND P EJECT 2 P****┆
0x098c…09dc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1f 00 9c 00 06 00 50 2a 20 00 1f 00 d2 00 2e 00 50 2a 20 20 20 20 20 20 20 20 20 53 45 4e 44 52 43 20 2d 20 53 ┆****************************************** P* . P* SENDRC - S┆
0x09dc…0a2c 45 4e 44 20 42 41 54 43 48 20 55 4e 54 49 4c 20 53 4c 55 54 49 44 00 1f 00 dc 00 06 00 50 2a 20 00 1f 01 0e 00 32 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆END BATCH UNTIL SLUTID P* 2 P****************************************┆
0x0a2c…0a7c 2a 2a 2a 2a 2a 2a 00 1f 01 18 00 10 00 50 53 45 4e 44 52 43 20 50 52 4f 43 20 00 1f 01 4e 00 2e 00 50 2a 43 42 43 46 52 4f 4d 20 4d 55 53 54 20 48 41 56 45 20 42 45 45 4e 20 41 44 4a 55 53 54 45 44 20 3f 3f 3f 3f 3f 3f 3f 3f 20 00 1f 01 62 ┆****** PSENDRC PROC N . P*CBCFROM MUST HAVE BEEN ADJUSTED ???????? b┆
0x0a7c…0acc (8, 0, 400) 00 1e 00 50 20 43 42 47 20 43 42 43 46 52 4f 4d 2c 43 42 49 4e 31 2c 53 4e 44 30 30 30 20 00 20 00 04 00 2a 00 50 20 4d 4f 56 45 20 43 42 43 46 52 4f 4d 2c 43 42 49 4e 32 20 46 49 52 53 54 20 44 41 54 41 20 52 45 43 4f 52 44 20 00 20 00 26 ┆ P CBG CBCFROM,CBIN1,SND000 * P MOVE CBCFROM,CBIN2 FIRST DATA RECORD &┆
0x0acc…0b1c 00 0a 00 50 53 4e 44 30 30 30 00 20 00 54 00 04 00 50 00 20 00 62 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 31 32 38 27 20 00 20 00 6a 00 34 00 50 20 50 45 52 46 20 52 41 52 45 41 44 2c 44 4b 30 32 2c 3d 44 27 32 27 2c ┆ PSND000 T P b P MOVE GSWBIN1,=W'128' j 4 P PERF RAREAD,DK02,=D'2',┆
0x0b1c…0b6c 43 44 49 53 4b 42 55 46 2c 47 53 57 42 49 4e 31 2c 43 42 43 46 52 4f 4d 00 20 00 88 00 10 00 50 20 42 4e 4f 4b 20 53 4e 44 45 52 52 00 20 00 c0 00 16 00 50 20 43 4d 50 20 47 54 57 42 43 44 31 2c 3d 44 27 34 27 00 20 00 d4 00 16 00 50 20 42 ┆CDISKBUF,GSWBIN1,CBCFROM P BNOK SNDERR P CMP GTWBCD1,=D'4' P B┆
0x0b6c…0bbc 45 20 53 4e 44 45 52 52 20 54 4f 4f 20 46 41 52 00 20 00 ee 00 04 00 50 00 20 01 08 00 30 00 50 2a 20 4c 4f 4f 4b 20 46 4f 52 20 46 49 52 53 54 20 50 41 52 54 20 4f 46 20 41 20 54 52 41 4e 53 41 43 54 49 4f 4e 20 27 26 30 31 27 00 20 01 10 ┆E SNDERR TOO FAR P 0 P* LOOK FOR FIRST PART OF A TRANSACTION '&01' ┆
0x0bbc…0c0c 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 2c 3d 43 27 26 30 31 27 00 20 01 44 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 31 32 38 27 20 00 20 01 62 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 43 42 ┆ P MOVE GSWSTR20,=C'&01' D P MOVE GSWBIN1,=W'128' b P MOVE GSWBIN5,CB┆
0x0c0c…0c5c (9, 0, 400) 49 4e 30 20 00 20 01 80 00 38 00 50 20 4d 41 54 43 48 20 43 44 49 53 4b 42 55 46 2c 47 53 57 42 49 4e 35 2c 47 53 57 42 49 4e 31 2c 47 53 57 53 54 52 32 30 2c 43 42 49 4e 30 2c 43 42 49 4e 33 00 21 00 0c 00 0e 00 50 20 42 45 20 53 4e 44 30 ┆IN0 8 P MATCH CDISKBUF,GSWBIN5,GSWBIN1,GSWSTR20,CBIN0,CBIN3 ! P BE SND0┆
0x0c5c…0cac 30 33 00 21 00 48 00 1c 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 2c 3d 43 27 53 4c 55 54 44 27 00 21 00 5a 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 30 20 00 21 00 7a 00 36 00 50 20 4d 41 54 43 48 20 47 53 57 ┆03 ! H P MOVE GSWSTR20,=C'SLUTD' ! Z P MOVE GSWBIN5,CBIN0 ! z 6 P MATCH GSW┆
0x0cac…0cfc 53 54 52 32 30 2c 47 53 57 42 49 4e 35 2c 43 42 49 4e 35 2c 43 44 49 53 4b 42 55 46 2c 43 42 49 4e 30 2c 43 42 49 4e 35 00 21 00 96 00 18 00 50 20 42 4e 45 20 53 4e 44 30 30 32 20 54 52 59 20 4e 45 58 54 00 21 00 d0 00 1a 00 50 20 4d 4f 56 ┆STR20,GSWBIN5,CBIN5,CDISKBUF,CBIN0,CBIN5 ! P BNE SND002 TRY NEXT ! P MOV┆
0x0cfc…0d4c 45 20 43 53 45 4e 44 4e 52 2c 43 42 43 46 52 4f 4d 20 00 21 00 ec 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 00 21 01 0a 00 18 00 50 20 42 20 53 4e 44 30 31 33 20 53 45 4e 44 20 53 4c 55 54 44 00 21 01 26 00 04 ┆E CSENDNR,CBCFROM ! P MOVE GSWBIN3,CBIN0 ! P B SND013 SEND SLUTD ! & ┆
0x0d4c…0d9c 00 50 00 21 01 42 00 16 00 50 53 4e 44 30 30 32 5c 5c 5c 54 52 59 20 4e 45 58 54 20 00 21 01 4a 00 16 00 50 20 41 44 44 20 43 42 43 46 52 4f 4d 2c 43 42 49 4e 31 00 21 01 64 00 0e 00 50 20 42 20 53 4e 44 30 30 30 20 00 21 01 7e 00 04 00 50 ┆ P ! B PSND002 TRY NEXT ! J P ADD CBCFROM,CBIN1 ! d P B SND000 ! ~ P┆
0x0d9c…0dec (10, 0, 400) 00 21 01 90 00 0a 00 50 53 4e 44 30 30 33 00 22 00 08 00 18 00 50 20 54 42 46 20 54 42 43 54 41 53 4b 2c 53 4e 44 30 30 34 20 00 22 00 16 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 31 2c 43 42 43 46 52 4f 4d 20 00 22 00 32 00 1a 00 50 ┆ ! PSND003 " P TBF TBCTASK,SND004 " P MOVE GSWBCD1,CBCFROM " 2 P┆
0x0dec…0e3c 20 45 44 57 52 54 20 4b 4a 54 41 50 45 2c 46 42 43 46 52 4f 4d 20 00 22 00 50 00 0a 00 50 53 4e 44 30 30 34 00 22 00 6e 00 04 00 50 00 22 00 7c 00 26 00 50 20 50 45 52 46 20 57 52 49 54 49 44 2c 43 44 49 53 4b 42 55 46 2c 43 42 49 4e 30 2c ┆ EDWRT KJTAPE,FBCFROM " P PSND004 " n P " | & P PERF WRITID,CDISKBUF,CBIN0,┆
0x0e3c…0e8c 43 42 49 4e 31 20 00 22 00 84 00 04 00 50 00 22 00 ae 00 1a 00 50 20 4d 4f 56 45 20 43 53 45 4e 44 4e 52 2c 43 42 43 46 52 4f 4d 20 00 22 00 b6 00 16 00 50 20 53 55 42 20 43 53 45 4e 44 4e 52 2c 43 42 49 4e 31 00 22 00 d4 00 0a 00 50 53 4e ┆CBIN1 " P " P MOVE CSENDNR,CBCFROM " P SUB CSENDNR,CBIN1 " PSN┆
0x0e8c…0edc 44 30 30 35 00 22 00 ee 00 24 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 50 41 43 4b 50 4f 49 4e 54 45 52 20 00 22 00 fc 00 26 00 50 20 43 42 45 20 43 42 43 54 4f 2c 43 42 49 4e 30 2c 53 4e 44 30 31 30 20 53 45 4e 44 ┆D005 " $ P MOVE GSWBIN3,CBIN0 PACKPOINTER " & P CBE CBCTO,CBIN0,SND010 SEND┆
0x0edc…0f2c 20 52 45 53 54 20 00 22 01 24 00 1e 00 50 2a 20 49 46 20 46 52 4f 4d 20 3e 20 54 4f 2c 20 53 45 4e 44 20 53 4c 55 54 44 00 22 01 4e 00 28 00 50 20 43 42 4e 47 20 43 53 45 4e 44 4e 52 2c 43 42 43 54 4f 2c 53 4e 44 30 31 30 20 53 45 4e 44 20 ┆ REST " $ P* IF FROM > TO, SEND SLUTD " N ( P CBNG CSENDNR,CBCTO,SND010 SEND ┆
0x0f2c…0f7c (11, 0, 400) 4d 4f 52 45 00 22 01 70 00 22 00 50 20 4d 4f 56 45 20 43 44 49 53 4b 42 55 46 2c 3d 43 27 53 4c 55 54 44 30 30 30 30 30 20 27 00 23 00 0c 00 04 00 50 00 23 00 32 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 43 53 45 4e 44 4e 52 20 ┆MORE " p " P MOVE CDISKBUF,=C'SLUTD00000 ' # P # 2 P MOVE GSWBIN1,CSENDNR ┆
0x0f7c…0fcc 00 23 00 3a 00 18 00 50 20 53 55 42 20 47 53 57 42 49 4e 31 2c 43 42 43 46 52 4f 4d 00 23 00 58 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 31 00 23 00 74 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 33 2c 47 53 57 42 ┆ # : P SUB GSWBIN1,CBCFROM # X P ADD GSWBIN1,CBIN1 # t P MOVE GSWBCD3,GSWB┆
0x0fcc…101c 49 4e 31 20 00 23 00 8e 00 22 00 50 20 50 45 52 46 20 53 4c 55 54 49 44 2c 43 44 49 53 4b 42 55 46 2c 47 53 57 42 43 44 33 20 00 23 00 ac 00 04 00 50 00 23 00 d2 00 0e 00 50 20 42 20 53 4e 44 53 4c 55 54 00 23 00 da 00 04 00 50 00 23 00 ec ┆IN1 # " P PERF SLUTID,CDISKBUF,GSWBCD3 # P # P B SNDSLUT # P # ┆
0x101c…106c 00 0a 00 50 53 4e 44 30 31 30 00 23 00 f4 00 16 00 50 20 41 44 44 20 43 53 45 4e 44 4e 52 2c 43 42 49 4e 31 00 23 01 02 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 31 32 38 27 20 00 23 01 1c 00 34 00 50 20 50 45 52 46 20 ┆ PSND010 # P ADD CSENDNR,CBIN1 # P MOVE GSWBIN1,=W'128' # 4 P PERF ┆
0x106c…10bc 52 41 52 45 41 44 2c 44 4b 30 32 2c 3d 44 27 32 27 2c 43 44 49 53 4b 42 55 46 2c 47 53 57 42 49 4e 31 2c 43 53 45 4e 44 4e 52 00 23 01 3a 00 10 00 50 20 42 4e 4f 4b 20 53 4e 44 45 52 52 00 23 01 72 00 16 00 50 20 43 4d 50 20 47 54 57 42 43 ┆RAREAD,DK02,=D'2',CDISKBUF,GSWBIN1,CSENDNR # : P BNOK SNDERR # r P CMP GTWBC┆
0x10bc…110c (12, 0, 400) 44 31 2c 3d 44 27 34 27 00 23 01 86 00 10 00 50 20 42 4e 45 20 53 4e 44 30 31 32 20 00 24 00 10 00 22 00 50 20 4d 4f 56 45 20 43 44 49 53 4b 42 55 46 2c 3d 43 27 53 4c 55 54 44 30 30 30 30 30 20 27 00 24 00 24 00 04 00 50 00 24 00 4a 00 0a ┆D1,=D'4' # P BNE SND012 $ " P MOVE CDISKBUF,=C'SLUTD00000 ' $ $ P $ J ┆
0x110c…115c 00 50 53 4e 44 30 31 32 00 24 00 52 00 1c 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 2c 3d 43 27 53 4c 55 54 44 27 00 24 00 60 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 30 20 00 24 00 80 00 36 00 50 20 4d 41 54 ┆ PSND012 $ R P MOVE GSWSTR20,=C'SLUTD' $ ` P MOVE GSWBIN5,CBIN0 $ 6 P MAT┆
0x115c…11ac 43 48 20 47 53 57 53 54 52 32 30 2c 47 53 57 42 49 4e 35 2c 43 42 49 4e 35 2c 43 44 49 53 4b 42 55 46 2c 43 42 49 4e 30 2c 43 42 49 4e 35 00 24 00 9c 00 10 00 50 20 42 4e 45 20 53 4e 44 30 31 34 20 00 24 00 d6 00 0a 00 50 53 4e 44 30 31 33 ┆CH GSWSTR20,GSWBIN5,CBIN5,CDISKBUF,CBIN0,CBIN5 $ P BNE SND014 $ PSND013┆
0x11ac…11fc 00 24 00 ea 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 43 53 45 4e 44 4e 52 20 00 24 00 f8 00 18 00 50 20 53 55 42 20 47 53 57 42 49 4e 31 2c 43 42 43 46 52 4f 4d 00 24 01 16 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 33 2c ┆ $ P MOVE GSWBIN1,CSENDNR $ P SUB GSWBIN1,CBCFROM $ P MOVE GSWBCD3,┆
0x11fc…124c 47 53 57 42 49 4e 31 20 00 24 01 32 00 22 00 50 20 50 45 52 46 20 53 4c 55 54 49 44 2c 43 44 49 53 4b 42 55 46 2c 47 53 57 42 43 44 33 20 00 24 01 50 00 16 00 50 20 53 55 42 20 43 53 45 4e 44 4e 52 2c 43 42 49 4e 31 00 24 01 76 00 1c 00 50 ┆GSWBIN1 $ 2 " P PERF SLUTID,CDISKBUF,GSWBCD3 $ P P SUB CSENDNR,CBIN1 $ v P┆