|
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: 7600 (0x1db0)
Notes: pts_type(SC)
Names: »MOD487.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/MOD487.SC«
IDENT MOD487 820817 NJ DDUM KMD08 PDIV ENTRY BCHKPR ENTRY STREDT ENTRY AD46 ENTRY UPDMEM ENTRY DIVRUT ENTRY MEMIX1 ENTRY MEMIX2 EXT NEWLIN EXT FMREMP EXT FMOD EXT GENWRS EXT TXTEDT EXT FSOLVE EXT CHDATO INCLUDE EQUATE EJECT BCHKPR PROC P * PRINT BUNDTCHECKS * P = 0 BCHK10 - ADJUST PRINTER * P = 1 BCHK20 - LEV + TRANS 1 * P = 2 BCHK30 - TRANS 2 * P = 3 BCHK40 - TRANS 3 + PRINT * P = 4 BCHK50 - PRINT MOVE GSWBIN8,P ADD GSWBIN8,CBIN1 IB GSWBIN8,BCHK10,BCHK20,BCHK30,BCHK40,BCHK50 B BCHK90 * BCHK10 PRINTER ADJUST PERF FMREMP,CBIN1 GET FORMAT FBDTCHK MOVE SPINPUT,='X' MOVE GSWBIN5,CBIN16 BCHK15 PERF FMOD,GSWBIN5,SPINPUT WITH X SUB GSWBIN5,CBIN1 CBG GSWBIN5,CBIN0,BCHK15 B BCHK65 PRINT IT * BCHK20 INITIATE LEV + 1. TRANS PERF FMREMP,CBIN1 GET FORMAT FBDTCHK PERF FMOD,CBIN8,GTLEVNVN PERF FMOD,CBIN11,GTLEVADR PERF FMOD,CBIN13,GTLEVBY EDIT GSWSTR9,FPNR PERF FMOD,CBIN14,GSWSTR9 PERF FMOD,CBIN15,GTLEVPDI * MOVE GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN1,CBIN1 B BCHK90 * BCHK30 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN1,CBIN2 B BCHK90 * BCHK40 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN1,CBIN3 B BCHK60 * BCHK50 CBE GSWBCD5,=D'1',BCHK90 NOTHING TO PRINT ? BCHK60 EDIT SPINPUT,FREMTOT1 PERF FMOD,CBIN4,SPINPUT PERF FMOD,CBIN16,SPINPUT PERF FSOLVE BCHK65 MOVE GTBSUM1,=D'0' PERF GENWRS,GTHCDEV,EDITBUF PERF NEWLIN,CBIN7 TBF GTCHKPR,BCHK70 PERF NEWLIN,CBIN1 EXTRA LINEFEED ? CLEAR GTCHKPR B BCHK90 BCHK70 SET GTCHKPR BCHK90 CMP CBIN0,CBIN0 RET PEND EJECT STREDT PROC MOVE GSWSTR20,=X'00' MOVE SPINPUT,=X'00' MOVE GSWBIN7,GTTXTTKO MOVE TEXTCODE IB GSWBIN7,STRE03,STRE04,STRE05,STRE06,STRE07,STRE08 * NO FURTHER INFORMATION STRE03 EDIT SPINPUT,FREMINF1 B STRE80 * NR-1 STRE04 MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 EDIT SPINPUT,FREMINF2 B STRE80 * NR-1 NR-2 STRE05 MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 MOVE GSWBCD7,GTDUPF(CBIN14) NR-2 EDIT SPINPUT,FREMINF3 B STRE80 * DATO-1 STRE06 MOVE GSWBCD6,GTDUPF(CBIN18) DATO-1 CBL GSWBCD6,=D'800000',STRE06A PERF CHDATO MOVE GSWBCD6,GSWBCD7 STRE06A EDIT SPINPUT,FREMINF4 B STRE80 * DATO-1 DATO-2 STRE07 MOVE GSWBCD6,GTDUPF(CBIN18) CBL GSWBCD6,=D'800000',STRE07A PERF CHDATO MOVE GTDUPF(CBIN18),GSWBCD7 STRE07A MOVE GSWBCD6,GTDUPF(CBIN19) CBL GSWBCD6,=D'800000',STRE07B PERF CHDATO MOVE GTDUPF(CBIN19),GSWBCD7 STRE07B MOVE GSWBCD6,GTDUPF(CBIN18) MOVE GSWBCD7,GTDUPF(CBIN19) DATO-2 EDIT SPINPUT,FREMINF5 B STRE80 * NR-1 DATO-1 STRE08 MOVE GSWBCD6,GTDUPF(CBIN18) CBL GSWBCD6,=D'800000',STRE08A PERF CHDATO MOVE GTDUPF(CBIN18),GSWBCD7 STRE08A MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 MOVE GSWBCD7,GTDUPF(CBIN18) DATO-1 EDIT SPINPUT,FREMINF6 STRE80 EDIT GSWSTR20,FREMBEL CMP CBIN0,CBIN0 RET PEND EJECT FREMINF1 FRMT FILLR ' ',21 FMEND FREMINF2 FRMT FMEL 'ZZZZZZZZZ9',GSWBCD6 FILLR ' ',11 FMEND FREMINF3 FRMT FMEL 'ZZZZZZZZZ9',GSWBCD6 FILLR ' ',1 FMEL 'ZZZZZZZZZ9',GSWBCD7 FMEND FREMINF4 FRMT FMEL '99V99V99',GSWBCD6 FILLR ' ',13 FMEND FREMINF5 FRMT FMEL '99V99V99',GSWBCD6 FILLR ' ',3 FMEL '99V99V99',GSWBCD7 FILLR ' ',2 FMEND FREMINF6 FRMT FMEL 'ZZZZZZZZZZ',GSWBCD6 FILLR ' ',1 FMEL '99V99V99',GSWBCD7 FILLR ' ',2 FMEND FPNR FRMT FMEL 'ZZZZ',GTLEVPNR FMEND FREMTOT1 FRMT FBT CBDTGIR,FRE110 FMEL '*******V**9,99-',GTBSUM1 FB FRE120 FRE110 FMEL 'ZZZZZZVZZ9BB99-',GTBSUM1 FRE120 FMEND FREMBEL FRMT FMEL 'BZZVZZZVZZ9,99-',GTDUPF(CBIN4) FMEND EJECT DIVRUT PROC P IB P,DIV010,DIV020,DIV030,DIV040, C DIV050,DIV060,DIV070,DIV080,DIV090 B DIVREX DIV010 DIV030 DIV040 DIV050 DIV060 DIV070 DIV080 DIV090 DIVREX RET DIV020 MOVE CTXBUF,=C'TRANEK[R KOMMUNE ' B DIVREX PEND AD46 PROC RET PEND MEMIX1 PROC A,B,C CMP CBIN0,CBIN0 RET PEND MEMIX2 PROC CMP CBIN0,CBIN0 RET PEND UPDMEM PROC CMP CBIN0,CBIN0 RET PEND END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT MOD487 820817 NJ «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0058 Head {h00=0x0012, h01=0x000d, text=» ENTRY BCHKPR «, t00=0x0000, t01=0x0046}
0x0058…006e Head {h00=0x0012, h01=0x0050, text=» ENTRY STREDT «, t00=0x0000, t01=0x005c}
0x006e…0082 Head {h00=0x0010, h01=0x0050, text=» ENTRY AD46 «, t00=0x0000, t01=0x0072}
0x0082…0098 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDMEM «, t00=0x0000, t01=0x0086}
0x0098…00ae Head {h00=0x0012, h01=0x0050, text=» ENTRY DIVRUT «, t00=0x0000, t01=0x009c}
0x00ae…00c4 Head {h00=0x0012, h01=0x0050, text=» ENTRY MEMIX1 «, t00=0x0000, t01=0x00b2}
0x00c4…00da Head {h00=0x0012, h01=0x0050, text=» ENTRY MEMIX2 «, t00=0x0000, t01=0x00c8}
0x00da…00ee Head {h00=0x0010, h01=0x000b, text=» EXT NEWLIN «, t00=0x0000, t01=0x00de}
0x00ee…0102 Head {h00=0x0010, h01=0x000b, text=» EXT FMREMP «, t00=0x0000, t01=0x00f2}
0x0102…0114 Head {h00=0x000e, h01=0x0009, text=» EXT FMOD «, t00=0x0000, t01=0x0106}
0x0114…0128 Head {h00=0x0010, h01=0x000b, text=» EXT GENWRS «, t00=0x0000, t01=0x0118}
0x0128…013c Head {h00=0x0010, h01=0x0050, text=» EXT TXTEDT «, t00=0x0000, t01=0x012c}
0x013c…0150 Head {h00=0x0010, h01=0x0050, text=» EXT FSOLVE «, t00=0x0000, t01=0x0140}
0x0150…0164 Head {h00=0x0010, h01=0x0050, text=» EXT CHDATO «, t00=0x0000, t01=0x0154}
0x0164…017c Head {h00=0x0014, h01=0x000f, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x0168}
0x017c…018a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0180}
0x018a…01a0 Head {h00=0x0012, h01=0x0050, text=»BCHKPR PROC P «, t00=0x0000, t01=0x018e}
0x01a0…01bc Head {h00=0x0018, h01=0x0050, text=»* PRINT BUNDTCHECKS «, t00=0x0001, t01=0x0014}
0x01bc…01e4 Head {h00=0x0024, h01=0x0050, text=»* P = 0 BCHK10 - ADJUST PRINTER «, t00=0x0001, t01=0x0030}
0x01e4…020a Head {h00=0x0022, h01=0x0050, text=»* P = 1 BCHK20 - LEV + TRANS 1«, t00=0x0001, t01=0x0058}
0x020a…022a Head {h00=0x001c, h01=0x0050, text=»* P = 2 BCHK30 - TRANS 2«, t00=0x0001, t01=0x007e}
0x022a…0252 Head {h00=0x0024, h01=0x0050, text=»* P = 3 BCHK40 - TRANS 3 + PRINT«, t00=0x0001, t01=0x009e}
0x0252…0270 Head {h00=0x001a, h01=0x0050, text=»* P = 4 BCHK50 - PRINT«, t00=0x0001, t01=0x00c6}
0x0270…0288 Head {h00=0x0014, h01=0x0050, text=» MOVE GSWBIN8,P «, t00=0x0001, t01=0x00e4}
0x0288…02a2 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN8,CBIN1«, t00=0x0001, t01=0x00fc}
0x02a2…02d8 Head {h00=0x0032, h01=0x0050, text=» IB GSWBIN8,BCHK10,BCHK20,BCHK30,BCHK40,BCHK50«, t00=0x0001, t01=0x0116}
0x02d8…02ea Head {h00=0x000e, h01=0x0050, text=» B BCHK90 «, t00=0x0001, t01=0x014c}
0x02ea…02f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015e}
0x02f4…0314 Head {h00=0x001c, h01=0x0050, text=»BCHK10 PRINTER ADJUST «, t00=0x0001, t01=0x0168}
0x0314…0342 Head {h00=0x002a, h01=0x0050, text=» PERF FMREMP,CBIN1 GET FORMAT FBDTCHK «, t00=0x0001, t01=0x0188}
0x0342…035c Head {h00=0x0016, h01=0x0050, text=» MOVE SPINPUT,='X'«, t00=0x0002, t01=0x0026}
0x035c…0378 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN16«, t00=0x0002, t01=0x0040}
0x0378…0386 Head {h00=0x000a, h01=0x0050, text=»BCHK15«, t00=0x0002, t01=0x005c}
0x0386…03b0 Head {h00=0x0026, h01=0x0050, text=» PERF FMOD,GSWBIN5,SPINPUT WITH X«, t00=0x0002, t01=0x006a}
0x03b0…03ca Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN1«, t00=0x0002, t01=0x0094}
0x03ca…03ec Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN5,CBIN0,BCHK15 «, t00=0x0002, t01=0x00ae}
0x03ec…0406 Head {h00=0x0016, h01=0x0050, text=» B BCHK65 PRINT IT«, t00=0x0002, t01=0x00d0}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…0438 Head {h00=0x0024, h01=0x0050, text=»BCHK20 INITIATE LEV + 1. TRANS«, t00=0x0002, t01=0x00f4}
0x0438…0466 Head {h00=0x002a, h01=0x0050, text=» PERF FMREMP,CBIN1 GET FORMAT FBDTCHK «, t00=0x0002, t01=0x011c}
0x0466…0488 Head {h00=0x001e, h01=0x0050, text=» PERF FMOD,CBIN8,GTLEVNVN «, t00=0x0002, t01=0x014a}
0x0488…04aa Head {h00=0x001e, h01=0x0050, text=» PERF FMOD,CBIN11,GTLEVADR«, t00=0x0002, t01=0x016c}
0x04aa…04cc Head {h00=0x001e, h01=0x0050, text=» PERF FMOD,CBIN13,GTLEVBY «, t00=0x0002, t01=0x018e}
0x04cc…04e6 Head {h00=0x0016, h01=0x0050, text=» EDIT GSWSTR9,FPNR«, t00=0x0003, t01=0x0020}
0x04e6…0508 Head {h00=0x001e, h01=0x0050, text=» PERF FMOD,CBIN14,GSWSTR9 «, t00=0x0003, t01=0x003a}
0x0508…052a Head {h00=0x001e, h01=0x0050, text=» PERF FMOD,CBIN15,GTLEVPDI«, t00=0x0003, t01=0x005c}
0x052a…0534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007e}
0x0534…0558 Head {h00=0x0020, h01=0x0050, text=» MOVE GTBSUM1,GTDUPF(CBIN4) «, t00=0x0003, t01=0x0088}
0x0558…0578 Head {h00=0x001c, h01=0x0050, text=» PERF TXTEDT,CBIN1,CBIN1«, t00=0x0003, t01=0x00ac}
0x0578…058a Head {h00=0x000e, h01=0x0050, text=» B BCHK90 «, t00=0x0003, t01=0x00cc}
0x058a…0594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00de}
0x0594…05a2 Head {h00=0x000a, h01=0x0050, text=»BCHK30«, t00=0x0003, t01=0x00e8}
0x05a2…05c4 Head {h00=0x001e, h01=0x0050, text=» ADD GTBSUM1,GTDUPF(CBIN4)«, t00=0x0003, t01=0x00f6}
0x05c4…05e4 Head {h00=0x001c, h01=0x0050, text=» PERF TXTEDT,CBIN1,CBIN2«, t00=0x0003, t01=0x0118}
0x05e4…05f6 Head {h00=0x000e, h01=0x0050, text=» B BCHK90 «, t00=0x0003, t01=0x0138}
0x05f6…0600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x014a}
0x0600…060e Head {h00=0x000a, h01=0x0050, text=»BCHK40«, t00=0x0003, t01=0x0154}
0x060e…0630 Head {h00=0x001e, h01=0x0050, text=» ADD GTBSUM1,GTDUPF(CBIN4)«, t00=0x0003, t01=0x0162}
0x0630…0650 Head {h00=0x001c, h01=0x0050, text=» PERF TXTEDT,CBIN1,CBIN3«, t00=0x0003, t01=0x0184}
0x0650…0662 Head {h00=0x000e, h01=0x0050, text=» B BCHK60 «, t00=0x0004, t01=0x0014}
0x0662…066c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0026}
0x066c…067a Head {h00=0x000a, h01=0x0050, text=»BCHK50«, t00=0x0004, t01=0x0030}
0x067a…06ae Head {h00=0x0030, h01=0x0050, text=» CBE GSWBCD5,=D'1',BCHK90 NOTHING TO PRINT ?«, t00=0x0004, t01=0x003e}
0x06ae…06bc Head {h00=0x000a, h01=0x0050, text=»BCHK60«, t00=0x0004, t01=0x0072}
0x06bc…06da Head {h00=0x001a, h01=0x0050, text=» EDIT SPINPUT,FREMTOT1«, t00=0x0004, t01=0x0080}
0x06da…06fa Head {h00=0x001c, h01=0x0050, text=» PERF FMOD,CBIN4,SPINPUT«, t00=0x0004, t01=0x009e}
0x06fa…071c Head {h00=0x001e, h01=0x0050, text=» PERF FMOD,CBIN16,SPINPUT «, t00=0x0004, t01=0x00be}
0x071c…0730 Head {h00=0x0010, h01=0x0050, text=» PERF FSOLVE«, t00=0x0004, t01=0x00e0}
0x0730…073e Head {h00=0x000a, h01=0x0050, text=»BCHK65«, t00=0x0004, t01=0x00f4}
0x073e…075a Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0004, t01=0x0102}
0x075a…077e Head {h00=0x0020, h01=0x0050, text=» PERF GENWRS,GTHCDEV,EDITBUF«, t00=0x0004, t01=0x011e}
0x077e…0798 Head {h00=0x0016, h01=0x0050, text=» PERF NEWLIN,CBIN7«, t00=0x0004, t01=0x0142}
0x0798…07b4 Head {h00=0x0018, h01=0x0050, text=» TBF GTCHKPR,BCHK70 «, t00=0x0004, t01=0x015c}
0x07b4…07e0 Head {h00=0x0028, h01=0x0050, text=» PERF NEWLIN,CBIN1 EXTRA LINEFEED ? «, t00=0x0004, t01=0x0178}
0x07e0…07f6 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTCHKPR«, t00=0x0005, t01=0x0014}
0x07f6…0808 Head {h00=0x000e, h01=0x0050, text=» B BCHK90 «, t00=0x0005, t01=0x002a}
0x0808…0816 Head {h00=0x000a, h01=0x0050, text=»BCHK70«, t00=0x0005, t01=0x003c}
0x0816…082a Head {h00=0x0010, h01=0x0050, text=» SET GTCHKPR«, t00=0x0005, t01=0x004a}
0x082a…0838 Head {h00=0x000a, h01=0x0050, text=»BCHK90«, t00=0x0005, t01=0x005e}
0x0838…0850 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x006c}
0x0850…085c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0084}
0x085c…086a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0090}
0x086a…0878 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x009e}
0x0878…088c Head {h00=0x0010, h01=0x0050, text=»STREDT PROC «, t00=0x0005, t01=0x00ac}
0x088c…08aa Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,=X'00' «, t00=0x0005, t01=0x00c0}
0x08aa…08c6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPINPUT,=X'00'«, t00=0x0005, t01=0x00de}
0x08c6…08f2 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN7,GTTXTTKO MOVE TEXTCODE«, t00=0x0005, t01=0x00fa}
0x08f2…0930 Head {h00=0x003a, h01=0x0050, text=» IB GSWBIN7,STRE03,STRE04,STRE05,STRE06,STRE07,STRE08 «, t00=0x0005, t01=0x0126}
0x0930…0950 Head {h00=0x001c, h01=0x0050, text=»* NO FURTHER INFORMATION«, t00=0x0005, t01=0x0164}
0x0950…095e Head {h00=0x000a, h01=0x0050, text=»STRE03«, t00=0x0005, t01=0x0184}
0x095e…097c (6, 0, 400) Head {h00=0x001a, h01=0x0050, text=» EDIT SPINPUT,FREMINF1«, t00=0x0006, t01=0x0004}
0x097c…098e Head {h00=0x000e, h01=0x0050, text=» B STRE80 «, t00=0x0006, t01=0x0022}
0x098e…099c Head {h00=0x000a, h01=0x0050, text=»* NR-1«, t00=0x0006, t01=0x0034}
0x099c…09aa Head {h00=0x000a, h01=0x0050, text=»STRE04«, t00=0x0006, t01=0x0042}
0x09aa…09d4 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 «, t00=0x0006, t01=0x0050}
0x09d4…09f2 Head {h00=0x001a, h01=0x0050, text=» EDIT SPINPUT,FREMINF2«, t00=0x0006, t01=0x007a}
0x09f2…0a04 Head {h00=0x000e, h01=0x0050, text=» B STRE80 «, t00=0x0006, t01=0x0098}
0x0a04…0a18 Head {h00=0x0010, h01=0x0050, text=»* NR-1 NR-2 «, t00=0x0006, t01=0x00aa}
0x0a18…0a26 Head {h00=0x000a, h01=0x0050, text=»STRE05«, t00=0x0006, t01=0x00be}
0x0a26…0a50 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 «, t00=0x0006, t01=0x00cc}
0x0a50…0a7a Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN14) NR-2 «, t00=0x0006, t01=0x00f6}
0x0a7a…0a98 Head {h00=0x001a, h01=0x0050, text=» EDIT SPINPUT,FREMINF3«, t00=0x0006, t01=0x0120}
0x0a98…0aaa Head {h00=0x000e, h01=0x0050, text=» B STRE80 «, t00=0x0006, t01=0x013e}
0x0aaa…0aba Head {h00=0x000c, h01=0x0050, text=»* DATO-1«, t00=0x0006, t01=0x0150}
0x0aba…0ac8 Head {h00=0x000a, h01=0x0050, text=»STRE06«, t00=0x0006, t01=0x0160}
0x0ac8…0af4 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN18) DATO-1 «, t00=0x0006, t01=0x016e}
0x0af4…0b1c Head {h00=0x0024, h01=0x0050, text=» CBL GSWBCD6,=D'800000',STRE06A «, t00=0x0007, t01=0x000a}
0x0b1c…0b30 Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0007, t01=0x0032}
0x0b30…0b4e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD6,GSWBCD7 «, t00=0x0007, t01=0x0046}
0x0b4e…0b5e Head {h00=0x000c, h01=0x0050, text=»STRE06A «, t00=0x0007, t01=0x0064}
0x0b5e…0b7c Head {h00=0x001a, h01=0x0050, text=» EDIT SPINPUT,FREMINF4«, t00=0x0007, t01=0x0074}
0x0b7c…0b8e Head {h00=0x000e, h01=0x0050, text=» B STRE80 «, t00=0x0007, t01=0x0092}
0x0b8e…0ba6 Head {h00=0x0014, h01=0x0050, text=»* DATO-1 DATO-2 «, t00=0x0007, t01=0x00a4}
0x0ba6…0bb4 Head {h00=0x000a, h01=0x0050, text=»STRE07«, t00=0x0007, t01=0x00bc}
0x0bb4…0bd8 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN18)«, t00=0x0007, t01=0x00ca}
0x0bd8…0c00 Head {h00=0x0024, h01=0x0050, text=» CBL GSWBCD6,=D'800000',STRE07A «, t00=0x0007, t01=0x00ee}
0x0c00…0c14 Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0007, t01=0x0116}
0x0c14…0c38 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN18),GSWBCD7«, t00=0x0007, t01=0x012a}
0x0c38…0c48 Head {h00=0x000c, h01=0x0050, text=»STRE07A «, t00=0x0007, t01=0x014e}
0x0c48…0c6c Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN19)«, t00=0x0007, t01=0x015e}
0x0c6c…0c94 Head {h00=0x0024, h01=0x0050, text=» CBL GSWBCD6,=D'800000',STRE07B «, t00=0x0007, t01=0x0182}
0x0c94…0ca8 Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0008, t01=0x001a}
0x0ca8…0ccc Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN19),GSWBCD7«, t00=0x0008, t01=0x002e}
0x0ccc…0cdc Head {h00=0x000c, h01=0x0050, text=»STRE07B «, t00=0x0008, t01=0x0052}
0x0cdc…0d00 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN18)«, t00=0x0008, t01=0x0062}
0x0d00…0d2c Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN19) DATO-2 «, t00=0x0008, t01=0x0086}
0x0d2c…0d4a Head {h00=0x001a, h01=0x0050, text=» EDIT SPINPUT,FREMINF5«, t00=0x0008, t01=0x00b2}
0x0d4a…0d5c Head {h00=0x000e, h01=0x0050, text=» B STRE80 «, t00=0x0008, t01=0x00d0}
0x0d5c…0d72 Head {h00=0x0012, h01=0x0050, text=»* NR-1 DATO-1 «, t00=0x0008, t01=0x00e2}
0x0d72…0d80 Head {h00=0x000a, h01=0x0050, text=»STRE08«, t00=0x0008, t01=0x00f8}
0x0d80…0da4 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN18)«, t00=0x0008, t01=0x0106}
0x0da4…0dcc Head {h00=0x0024, h01=0x0050, text=» CBL GSWBCD6,=D'800000',STRE08A «, t00=0x0008, t01=0x012a}
0x0dcc…0de0 Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0008, t01=0x0152}
0x0de0…0e04 Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN18),GSWBCD7«, t00=0x0008, t01=0x0166}
0x0e04…0e14 Head {h00=0x000c, h01=0x0050, text=»STRE08A «, t00=0x0008, t01=0x018a}
0x0e14…0e3e Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 «, t00=0x0009, t01=0x000a}
0x0e3e…0e6a Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,GTDUPF(CBIN18) DATO-1 «, t00=0x0009, t01=0x0034}
0x0e6a…0e88 Head {h00=0x001a, h01=0x0050, text=» EDIT SPINPUT,FREMINF6«, t00=0x0009, t01=0x0060}
0x0e88…0e96 Head {h00=0x000a, h01=0x0050, text=»STRE80«, t00=0x0009, t01=0x007e}
0x0e96…0eb4 Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FREMBEL«, t00=0x0009, t01=0x008c}
0x0eb4…0ecc Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x00aa}
0x0ecc…0ed8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00c2}
0x0ed8…0ee6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x00ce}
0x0ee6…0ef4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00dc}
0x0ef4…0f0a Head {h00=0x0012, h01=0x0050, text=»FREMINF1 FRMT «, t00=0x0009, t01=0x00ea}
0x0f0a…0f20 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',21 «, t00=0x0009, t01=0x0100}
0x0f20…0f2e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0009, t01=0x0116}
0x0f2e…0f36 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0124}
0x0f36…0f4c Head {h00=0x0012, h01=0x0050, text=»FREMINF2 FRMT «, t00=0x0009, t01=0x012c}
0x0f4c…0f6e Head {h00=0x001e, h01=0x0050, text=» FMEL 'ZZZZZZZZZ9',GSWBCD6«, t00=0x0009, t01=0x0142}
0x0f6e…0f84 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',11 «, t00=0x0009, t01=0x0164}
0x0f84…0f92 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0009, t01=0x017a}
0x0f92…0f9a Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0188}
0x0f9a…0fb0 Head {h00=0x0012, h01=0x0050, text=»FREMINF3 FRMT «, t00=0x0009, t01=0x0190}
0x0fb0…0fd2 Head {h00=0x001e, h01=0x0050, text=» FMEL 'ZZZZZZZZZ9',GSWBCD6«, t00=0x000a, t01=0x0016}
0x0fd2…0fe6 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x000a, t01=0x0038}
0x0fe6…1008 Head {h00=0x001e, h01=0x0050, text=» FMEL 'ZZZZZZZZZ9',GSWBCD7«, t00=0x000a, t01=0x004c}
0x1008…1016 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000a, t01=0x006e}
0x1016…101e Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x007c}
0x101e…1034 Head {h00=0x0012, h01=0x0050, text=»FREMINF4 FRMT «, t00=0x000a, t01=0x0084}
0x1034…1054 Head {h00=0x001c, h01=0x0050, text=» FMEL '99V99V99',GSWBCD6«, t00=0x000a, t01=0x009a}
0x1054…106a Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',13 «, t00=0x000a, t01=0x00ba}
0x106a…1078 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000a, t01=0x00d0}
0x1078…1080 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00de}
0x1080…1096 Head {h00=0x0012, h01=0x0050, text=»FREMINF5 FRMT «, t00=0x000a, t01=0x00e6}
0x1096…10b6 Head {h00=0x001c, h01=0x0050, text=» FMEL '99V99V99',GSWBCD6«, t00=0x000a, t01=0x00fc}
0x10b6…10ca Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',3«, t00=0x000a, t01=0x011c}
0x10ca…10ea Head {h00=0x001c, h01=0x0050, text=» FMEL '99V99V99',GSWBCD7«, t00=0x000a, t01=0x0130}
0x10ea…10fe Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x000a, t01=0x0150}
0x10fe…110c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000a, t01=0x0164}
0x110c…1114 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0172}
0x1114…112a Head {h00=0x0012, h01=0x0050, text=»FREMINF6 FRMT «, t00=0x000a, t01=0x017a}
0x112a…114c Head {h00=0x001e, h01=0x0050, text=» FMEL 'ZZZZZZZZZZ',GSWBCD6«, t00=0x000a, t01=0x0190}
0x114c…1160 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x000b, t01=0x0022}
0x1160…1180 Head {h00=0x001c, h01=0x0050, text=» FMEL '99V99V99',GSWBCD7«, t00=0x000b, t01=0x0036}
0x1180…1194 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x000b, t01=0x0056}
0x1194…11a2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x006a}
0x11a2…11aa Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0078}
0x11aa…11bc Head {h00=0x000e, h01=0x0050, text=»FPNR FRMT «, t00=0x000b, t01=0x0080}
0x11bc…11da Head {h00=0x001a, h01=0x0050, text=» FMEL 'ZZZZ',GTLEVPNR «, t00=0x000b, t01=0x0092}
0x11da…11e8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x00b0}
0x11e8…11f0 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00be}
0x11f0…1206 Head {h00=0x0012, h01=0x0050, text=»FREMTOT1 FRMT «, t00=0x000b, t01=0x00c6}
0x1206…1222 Head {h00=0x0018, h01=0x0050, text=» FBT CBDTGIR,FRE110 «, t00=0x000b, t01=0x00dc}
0x1222…124a Head {h00=0x0024, h01=0x0050, text=» FMEL '*******V**9,99-',GTBSUM1 «, t00=0x000b, t01=0x00f8}
0x124a…125c Head {h00=0x000e, h01=0x0050, text=» FB FRE120«, t00=0x000b, t01=0x0120}
0x125c…126a Head {h00=0x000a, h01=0x0050, text=»FRE110«, t00=0x000b, t01=0x0132}
0x126a…1292 Head {h00=0x0024, h01=0x0050, text=» FMEL 'ZZZZZZVZZ9BB99-',GTBSUM1 «, t00=0x000b, t01=0x0140}
0x1292…12a0 Head {h00=0x000a, h01=0x0050, text=»FRE120«, t00=0x000b, t01=0x0168}
0x12a0…12ae Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x0176}
0x12ae…12b6 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0184}
0x12b6…12ca Head {h00=0x0010, h01=0x0050, text=»FREMBEL FRMT«, t00=0x000b, t01=0x018c}
0x12ca…12f8 Head {h00=0x002a, h01=0x0050, text=» FMEL 'BZZVZZZVZZ9,99-',GTDUPF(CBIN4) «, t00=0x000c, t01=0x0010}
0x12f8…1306 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000c, t01=0x003e}
0x1306…1314 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x004c}
0x1314…132a Head {h00=0x0012, h01=0x0050, text=»DIVRUT PROC P «, t00=0x000c, t01=0x005a}
0x132a…1358 Head {h00=0x002a, h01=0x0050, text=» IB P,DIV010,DIV020,DIV030,DIV040, C «, t00=0x000c, t01=0x0070}
0x1358…1384 Head {h00=0x0028, h01=0x0050, text=» DIV050,DIV060,DIV070,DIV080,DIV090«, t00=0x000c, t01=0x009e}
0x1384…1396 Head {h00=0x000e, h01=0x0050, text=» B DIVREX «, t00=0x000c, t01=0x00ca}
0x1396…13a4 Head {h00=0x000a, h01=0x0050, text=»DIV010«, t00=0x000c, t01=0x00dc}
0x13a4…13b2 Head {h00=0x000a, h01=0x0050, text=»DIV030«, t00=0x000c, t01=0x00ea}
0x13b2…13c0 Head {h00=0x000a, h01=0x0050, text=»DIV040«, t00=0x000c, t01=0x00f8}
0x13c0…13ce Head {h00=0x000a, h01=0x0050, text=»DIV050«, t00=0x000c, t01=0x0106}
0x13ce…13dc Head {h00=0x000a, h01=0x0050, text=»DIV060«, t00=0x000c, t01=0x0114}
0x13dc…13ea Head {h00=0x000a, h01=0x0050, text=»DIV070«, t00=0x000c, t01=0x0122}
0x13ea…13f8 Head {h00=0x000a, h01=0x0050, text=»DIV080«, t00=0x000c, t01=0x0130}
0x13f8…1406 Head {h00=0x000a, h01=0x0050, text=»DIV090«, t00=0x000c, t01=0x013e}
0x1406…1414 Head {h00=0x000a, h01=0x0050, text=»DIVREX«, t00=0x000c, t01=0x014c}
0x1414…1420 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x015a}
0x1420…1428 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0166}
0x1428…1436 Head {h00=0x000a, h01=0x0050, text=»DIV020«, t00=0x000c, t01=0x016e}
0x1436…1460 Head {h00=0x0026, h01=0x0050, text=» MOVE CTXBUF,=C'TRANEK[R KOMMUNE '«, t00=0x000c, t01=0x017c}
0x1460…1472 Head {h00=0x000e, h01=0x0050, text=» B DIVREX «, t00=0x000d, t01=0x0016}
0x1472…1480 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0028}
0x1480…1488 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0036}
0x1488…1490 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x003e}
0x1490…14a2 Head {h00=0x000e, h01=0x0050, text=»AD46 PROC «, t00=0x000d, t01=0x0046}
0x14a2…14ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0058}
0x14ae…14bc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0064}
0x14bc…14c4 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0072}
0x14c4…14de Head {h00=0x0016, h01=0x0050, text=»MEMIX1 PROC A,B,C «, t00=0x000d, t01=0x007a}
0x14de…14f6 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x000d, t01=0x0094}
0x14f6…1502 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00ac}
0x1502…1510 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00b8}
0x1510…1518 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00c6}
0x1518…1520 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00ce}
0x1520…1534 Head {h00=0x0010, h01=0x0050, text=»MEMIX2 PROC «, t00=0x000d, t01=0x00d6}
0x1534…154c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x000d, t01=0x00ea}
0x154c…1558 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0102}
0x1558…1566 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x010e}
0x1566…156e Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x011c}
0x156e…1576 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0124}
0x1576…158a Head {h00=0x0010, h01=0x0050, text=»UPDMEM PROC «, t00=0x000d, t01=0x012c}
0x158a…15a2 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x000d, t01=0x0140}
0x15a2…15ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0158}
0x15ae…15bc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0164}
0x15bc…15c8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000d, t01=0x0172}
0x15c8…15cc Head {h00=0x4004, h01=0x0000}
0x15cc…15d0 00 0d 01 7e ┆ ~┆
0x15d0…15d8 (14, 1, 8) 20 04 00 00 00 0e 00 04 ┆ ┆
0x15d8…15e0 (15, 1, 8) 20 04 00 00 00 0f 00 04 ┆ ┆
0x15e0…1630 (16, 0, 400) 00 12 00 50 5c 49 46 46 5c 43 4f 50 43 4d 44 3d 31 20 00 20 00 04 00 10 00 50 45 43 42 42 53 5c 45 51 55 5c 32 20 00 20 00 1a 00 08 00 50 5c 58 49 46 00 20 00 2e 00 06 00 50 2a 20 00 20 00 3a 00 12 00 50 5c 4c 44 4b 5c 41 31 2c 45 43 42 42 ┆ P IFF COPCMD=1 PECBBS EQU 2 P XIF . P* : P LDK A1,ECBB┆
0x1630…1680 53 20 00 20 00 44 00 18 00 50 5c 53 54 5c 41 31 2c 45 43 42 42 4c 4b 2c 54 43 41 42 41 53 00 20 00 5a 00 10 00 50 56 44 55 31 30 30 5c 45 51 55 5c 2a 00 20 00 76 00 1c 00 50 5c 4c 44 5c 41 31 2c 45 43 42 42 4c 4b 2b 44 43 31 2c 54 43 41 42 ┆S D P ST A1,ECBBLK,TCABAS Z PVDU100 EQU * v P LD A1,ECBBLK+DC1,TCAB┆
0x1680…16d0 41 53 00 20 00 8a 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 56 44 55 31 31 30 5c 50 45 4e 44 49 4e 47 00 20 00 aa 00 30 00 50 5c 43 46 5c 41 31 34 2c 44 43 31 49 4e 51 5c 54 45 53 54 20 49 46 20 41 4e 59 20 4d 45 53 53 41 47 45 2c 20 4e 4f 20 57 ┆AS P RF(NZ) VDU110 PENDING 0 P CF A14,DC1INQ TEST IF ANY MESSAGE, NO W┆
0x16d0…1720 41 49 54 20 00 20 00 c8 00 10 00 50 56 44 55 31 31 30 5c 45 51 55 5c 2a 00 20 00 fc 00 10 00 50 5c 49 46 54 5c 44 43 4c 49 4e 3d 32 00 20 01 10 00 1c 00 50 5c 4c 44 5c 41 31 2c 45 43 42 42 4c 4b 2b 44 43 32 2c 54 43 41 42 41 53 00 20 01 24 ┆AIT PVDU110 EQU * P IFT DCLIN=2 P LD A1,ECBBLK+DC2,TCABAS $┆
0x1720…1770 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 56 44 55 31 32 30 5c 50 45 4e 44 49 4e 47 00 20 01 44 00 36 00 50 5c 43 46 5c 41 31 34 2c 44 43 32 49 4e 51 5c 54 45 53 54 20 49 46 20 41 4e 59 20 4d 45 53 53 41 47 45 20 4d 46 20 23 20 32 2c 20 4e 4f 20 ┆ P RF(NZ) VDU120 PENDING D 6 P CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO ┆
0x1770…17c0 (17, 0, 400) 57 41 49 54 00 20 01 62 00 08 00 50 5c 58 49 46 00 21 00 0c 00 10 00 50 56 44 55 31 32 30 5c 45 51 55 5c 2a 00 21 00 18 00 12 00 50 5c 49 46 54 5c 43 4f 50 43 4d 44 3d 31 20 00 21 00 2c 00 1c 00 50 5c 4c 44 5c 41 31 2c 45 43 42 42 4c 4b 2b ┆WAIT b P XIF ! PVDU120 EQU * ! P IFT COPCMD=1 ! , P LD A1,ECBBLK+┆
0x17c0…1810 49 43 52 2c 54 43 41 42 41 53 00 21 00 42 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 56 44 55 31 32 35 5c 50 45 4e 44 49 4e 47 00 21 00 62 00 1a 00 50 5c 4c 44 4b 4c 5c 41 33 2c 49 43 57 4f 52 4b 5c 42 55 46 46 45 52 00 21 00 80 00 1c 00 50 5c 41 ┆ICR,TCABAS ! B P RF(NZ) VDU125 PENDING ! b P LDKL A3,ICWORK BUFFER ! P A┆
0x1810…1860 44 52 5c 41 33 2c 54 43 41 42 41 53 5c 20 20 41 44 44 52 45 53 53 00 21 00 9e 00 18 00 50 5c 4c 44 4b 5c 41 36 2c 32 5c 52 45 51 20 4c 45 4e 47 54 48 00 21 00 be 00 12 00 50 5c 43 46 5c 41 31 34 2c 49 43 52 45 41 44 00 21 00 da 00 1c 00 50 ┆DR A3,TCABAS ADDRESS ! P LDK A6,2 REQ LENGTH ! P CF A14,ICREAD ! P┆
0x1860…18b0 5c 53 54 5c 41 38 2c 45 43 42 42 4c 4b 2b 49 43 52 2c 54 43 41 42 41 53 00 21 00 f0 00 08 00 50 5c 58 49 46 00 21 01 10 00 10 00 50 56 44 55 31 32 35 5c 45 51 55 5c 2a 00 21 01 1c 00 1c 00 50 5c 4c 44 5c 41 31 2c 45 43 42 42 4c 4b 2b 4b 42 ┆ ST A8,ECBBLK+ICR,TCABAS ! P XIF ! PVDU125 EQU * ! P LD A1,ECBBLK+KB┆
0x18b0…1900 2c 54 43 41 42 41 53 20 00 21 01 30 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 56 44 55 31 35 30 5c 50 45 4e 44 49 4e 47 00 21 01 50 00 28 00 50 5c 43 46 5c 41 31 34 2c 52 44 4b 42 4e 57 5c 52 45 41 44 20 4b 45 59 42 4f 41 52 44 20 4e 4f 20 57 41 ┆,TCABAS ! 0 P RF(NZ) VDU150 PENDING ! P ( P CF A14,RDKBNW READ KEYBOARD NO WA┆
0x1900…1950 (18, 0, 400) 49 54 00 21 01 6e 00 10 00 50 56 44 55 31 35 30 5c 45 51 55 5c 2a 00 22 00 0a 00 14 00 50 5c 4c 44 4b 4c 5c 41 37 2c 45 43 42 42 4c 4b 20 00 22 00 1e 00 12 00 50 5c 41 44 52 5c 41 37 2c 54 43 41 42 41 53 00 22 00 36 00 08 00 50 5c 4c 4b 4d ┆IT ! n PVDU150 EQU * " P LDKL A7,ECBBLK " P ADR A7,TCABAS " 6 P LKM┆
0x1950…19a0 00 22 00 4c 00 1a 00 50 5c 44 41 54 41 5c 37 5c 4d 55 4c 54 49 50 4c 45 20 57 41 49 54 20 00 22 00 58 00 1c 00 50 5c 43 57 5c 41 38 2c 45 43 42 42 4c 4b 2b 4b 42 2c 54 43 41 42 41 53 20 00 22 00 76 00 24 00 50 5c 52 46 28 45 29 5c 4b 42 49 ┆ " L P DATA 7 MULTIPLE WAIT " X P CW A8,ECBBLK+KB,TCABAS " v $ P RF(E) KBI┆
0x19a0…19f0 4e 50 5c 49 4e 50 55 54 20 46 52 4f 4d 20 4b 45 59 42 4f 41 52 44 00 22 00 96 00 12 00 50 5c 49 46 54 5c 43 4f 50 43 4d 44 3d 31 20 00 22 00 be 00 1c 00 50 5c 43 57 5c 41 38 2c 45 43 42 42 4c 4b 2b 49 43 52 2c 54 43 41 42 41 53 00 22 00 d4 ┆NP INPUT FROM KEYBOARD " P IFT COPCMD=1 " P CW A8,ECBBLK+ICR,TCABAS " ┆
0x19f0…1a40 00 28 00 50 5c 52 46 28 45 29 5c 42 55 46 43 4f 50 5c 53 45 4e 44 20 42 55 46 46 45 52 20 54 4f 20 50 52 49 4e 54 45 52 00 22 00 f4 00 08 00 50 5c 58 49 46 00 22 01 20 00 3a 00 50 5c 53 54 5c 41 38 2c 45 43 42 44 43 43 2c 54 43 41 42 41 53 ┆ ( P RF(E) BUFCOP SEND BUFFER TO PRINTER " P XIF " : P ST A8,ECBDCC,TCABAS┆
0x1a40…1a90 5c 53 41 56 45 20 45 43 42 20 41 44 44 52 45 53 53 20 46 4f 52 20 43 55 52 52 45 4e 54 20 52 45 41 44 00 22 01 2c 00 20 00 50 5c 43 46 5c 41 31 34 2c 44 43 49 4e 50 5c 49 4e 50 55 54 20 46 52 4f 4d 20 44 43 20 00 22 01 6a 00 0e 00 50 5c 52 ┆ SAVE ECB ADDRESS FOR CURRENT READ " , P CF A14,DCINP INPUT FROM DC " j P R┆
0x1a90…1ae0 (19, 0, 400) 42 5c 56 44 55 31 30 30 00 22 01 8e 00 06 00 50 5c 20 00 23 00 10 00 06 00 50 2a 20 00 23 00 1a 00 20 00 50 2a 5c 52 45 41 44 20 4b 45 59 42 4f 41 52 44 20 57 49 54 48 20 4e 4f 20 57 41 49 54 00 23 00 24 00 06 00 50 2a 20 00 23 00 48 00 10 ┆B VDU100 " P # P* # P* READ KEYBOARD WITH NO WAIT # $ P* # H ┆
0x1ae0…1b30 00 50 52 44 4b 42 4e 57 5c 45 51 55 5c 2a 00 23 00 52 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 4b 42 00 23 00 66 00 12 00 50 5c 41 44 52 5c 41 38 2c 43 52 45 42 41 53 00 23 00 7c 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 31 20 00 23 00 92 ┆ PRDKBNW EQU * # R P LDKL A8,ECBKB # f P ADR A8,CREBAS # | P LDK A7,1 # ┆
0x1b30…1b80 00 22 00 50 5c 53 54 5c 41 37 2c 45 43 42 52 4c 2c 41 38 5c 52 45 51 20 4c 45 4e 47 54 48 20 3d 20 31 00 23 00 a4 00 2a 00 50 5c 53 54 5c 41 37 2c 45 43 42 43 57 2c 41 38 5c 49 4e 44 49 43 41 54 45 20 4e 4f 54 20 50 4f 57 45 52 20 4f 46 46 ┆ " P ST A7,ECBRL,A8 REQ LENGTH = 1 # * P ST A7,ECBCW,A8 INDICATE NOT POWER OFF┆
0x1b80…1bd0 00 23 00 ca 00 1c 00 50 5c 53 54 5c 41 38 2c 45 43 42 42 4c 4b 2b 4b 42 2c 54 43 41 42 41 53 20 00 23 00 f8 00 0e 00 50 5c 52 46 5c 44 43 31 49 33 30 00 23 01 18 00 06 00 50 2a 20 00 23 01 2a 00 1c 00 50 2a 5c 54 45 53 54 20 49 46 20 41 4e ┆ # P ST A8,ECBBLK+KB,TCABAS # P RF DC1I30 # P* # * P* TEST IF AN┆
0x1bd0…1c20 59 20 4d 45 53 53 41 47 45 20 44 43 00 23 01 34 00 06 00 50 2a 20 00 23 01 54 00 10 00 50 44 43 31 49 4e 51 5c 45 51 55 5c 2a 00 23 01 5e 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 44 43 00 23 01 72 00 12 00 50 5c 41 44 52 5c 41 38 2c ┆Y MESSAGE DC # 4 P* # T PDC1INQ EQU * # ^ P LDKL A8,ECBDC # r P ADR A8,┆
0x1c20…1c70 (20, 0, 400) 43 52 45 42 41 53 00 23 01 88 00 1c 00 50 5c 53 54 5c 41 38 2c 45 43 42 42 4c 4b 2b 44 43 31 2c 54 43 41 42 41 53 00 24 00 0e 00 10 00 50 44 43 31 49 32 30 5c 45 51 55 5c 2a 00 24 00 2e 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 24 00 42 ┆CREBAS # P ST A8,ECBBLK+DC1,TCABAS $ PDC1I20 EQU * $ . P LDK A1,0 $ B┆
0x1c70…1cc0 00 12 00 50 5c 43 46 5c 41 31 34 2c 52 45 51 54 49 4d 00 24 00 54 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 30 20 00 24 00 6a 00 10 00 50 44 43 31 49 33 30 5c 45 51 55 5c 2a 00 24 00 7c 00 08 00 50 5c 4c 4b 4d 00 24 00 90 00 0c 00 50 5c 44 41 54 ┆ P CF A14,REQTIM $ T P LDK A7,0 $ j PDC1I30 EQU * $ | P LKM $ P DAT┆
0x1cc0…1d10 41 5c 31 20 00 24 00 9c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 24 00 ac 00 10 00 50 44 43 32 49 4e 51 5c 45 51 55 5c 2a 00 24 00 bc 00 10 00 50 5c 49 46 54 5c 44 43 4c 49 4e 3d 32 00 24 00 d0 00 14 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 ┆A 1 $ P RTN A14 $ PDC2INQ EQU * $ P IFT DCLIN=2 $ P LDKL A8,ECB┆
0x1d10…1d60 44 43 32 20 00 24 00 e4 00 12 00 50 5c 41 44 52 5c 41 38 2c 43 52 45 42 41 53 00 24 00 fc 00 1c 00 50 5c 53 54 5c 41 38 2c 45 43 42 42 4c 4b 2b 44 43 32 2c 54 43 41 42 41 53 00 24 01 12 00 0e 00 50 5c 52 42 5c 44 43 31 49 32 30 00 24 01 32 ┆DC2 $ P ADR A8,CREBAS $ P ST A8,ECBBLK+DC2,TCABAS $ P RB DC1I20 $ 2┆
0x1d60…1db0 00 08 00 50 5c 58 49 46 00 24 01 44 00 12 00 50 5c 49 46 54 5c 43 4f 50 43 4d 44 3d 31 20 00 24 01 50 00 06 00 50 5c 20 00 24 01 66 00 06 00 50 2a 20 00 24 01 70 00 22 00 50 2a 5c 53 45 4e 44 20 42 55 46 46 45 52 20 54 4f 20 50 52 49 4e 54 ┆ P XIF $ D P IFT COPCMD=1 $ P P $ f P* $ p " P* SEND BUFFER TO PRINT┆