|
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: 7642 (0x1dda)
Notes: pts_type(SC)
Names: »DATDIV.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »IBM3270/DATDIV.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »IBM3270/DATDIV.SC«
IDENT DATDIV REL 10.0 80-03-14 870150541000 ************************************************************************ * * D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. * THIS MODULE ALSO CONTAINS THE CREDIT CODED * START-UP ROUTINES. * ******************************************************************** EJECT DDIV * * KB/VDU TERMINAL * TERM KA * CWB CB1 TWB TB1 * START KBVGO * DSDC DSET FC=61 *DSDC2 DSET FC=62 IFT DCLIN=2 *DSICR DSET FC=E0,DEV=II IFT COPCMD=1 DSICW DSET FC=E1,DEV=IO DSVDU DSET FC=50,DEV=DY,BUFL=162 DSKBAN DSET FC=20,DEV=KA,BUFL=2 DSKBSD DSET FC=40,DEV=KI,BUFL=2 EJECT * * GTP TERMINAL * TERM GA * CWB CB1 TWB TB1 * START GTPGO * DSDC DSET FC=61 *DSDC2 DSET FC=62 IFT DCLIN=2 DSICR DSET FC=E0,DEV=II *DSICW DSET FC=E1,DEV=IO IFT COPCMD=1 DSGTP DSET FC=30,DEV=GP,BUFL=162 EJECT * * * DCTASK FOR DC LINE 1 * * TERM D0 * CWB CB1 START DC1GO DSDC DSET FC=60 * * DCTASK FOR DC-LINE 2 * * TERM D1 * CWB CB1 * START DC2GO *DSDC DSET FC=63 EJECT * * * WORK AREA FOR KEYBOARD AND DISPLAY TASKS * * TB1 BLK * TCT01 BIN 4X'0' TID AND STACKBASE PRINTER STRG 4X'0' KEYBARD/VDU/PRINTER BVDU STRG 3840X'0' VDU SCREEN BUFF PCURS STRG 4X'0' CURSOR ADDR. BINARY ATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER CURATT STRG 4X'0' CURSOR ATTRIBUTE WCC STRG 4X'0' WCC/CCC CHARACTER KBINH STRG 4X'0' KEYBOARD INHIBIT INDIC. LINCNT STRG 4X'0' DCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH ICWORK STRG 4X'0' INTATT STRG 4X'0' INTENSITY ATTRIBUTE OFFFLG STRG 4X'0' OFFLINE FLAG COPNO BIN TID FOR HARDCOPY MISCAR STRG 44X'0' CCC,MAIN, MODE,KEYS,ECBDCC,ECBBLK, RDMORE EJECT ************** * * COMMON WORK BLOCK FOR ALL TASKS * ***************************************** CB1 BLK * CNFIGD BOOL CNFBSY BOOL * * CONFIGURATION DATA * NBRKBV BIN NUMBER OF KB/VDUS NBRGTP BIN NUMBER OF GTPS * MF1KBV STRG 32X'40C1C2C3C4C5C6C7' DV ADDRESSES KB/VDU MF1GTP STRG 32X'C8C94A4B4C4D4E4F' DV ADDRESSES GTP * MF # 2 *MF2KBV STRG 32X'40C1C2C3C4C5C6C7' *MF2GTP STRG 32X'C8C94A4B4C4D4E4F' * THE LENGTH OR PLACE OF THE CONFIG DATA ABOVE SHOULD NOT BE CHANGED * MF1CU STRG X'6040' CU-ADDRESS MF # 1 *MF2CU STRG X'6040' * CNFHC BINI (16),'1','2','3','4','5','6','7','8' HARDCOPY PRINTER FOR KB-VDU 1-16 * BINWK1 BIN PDIV * * * ENTRY KBVGO ENTRY GTPGO ENTRY DC1GO * ENTRY DC2GO EXT VDUKB EXT PRINT EXT DCTASK EXT SWITCH EXT GETTID GET TASK IDENTITY * EXT OFFLNE CREDIT APPLICATION START ADDRESS * * * EJECT DSC0 DSDC,2 DUMMY REFERENCE T:IO **************************************** * * START ADDRESS FOR KEYBOARD TASK * **************************************** KBVGO ADD NBRKBV,='1' CALL GETTID,TCT01 SUB TCT01,=X'4B40' * PERF CONF READ & CONVERT CONFIG DATA MOVE COPNO,CNFHC(TCT01) CBL COPNO,='1',KB050 ADD COPNO,=X'4740' KB050 CALL VDUKB,TCT01 * PERF OFFLNE BRANCH TO CREDIT CODE * B KB050 RETURN TO IBM-3270 EMULATION EJECT ********************************************* * * START ADDRESS FOR GENERAL PRINTER TASK * ********************************************* GTPGO ADD NBRGTP,='1' CALL GETTID,TCT01 SUB TCT01,=X'4740' MOVE PRINTER,=X'0001' * PERF CONF CALL PRINT,TCT01 EJECT *********************************************** * * START ADDRESS FOR DC-TASK * ********************************* DC1GO CALL DCTASK,MF1CU * *DC2GO * CALL DCTASK,MF2CU END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DATDIV REL 10.0 80-03-14 870150541000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…008e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0042}
0x008e…0098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00e2 Head {h00=0x0046, h01=0x0050, text=»* D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. «, t00=0x0000, t01=0x009c}
0x00e2…0128 Head {h00=0x0042, h01=0x0050, text=»* THIS MODULE ALSO CONTAINS THE CREDIT CODED«, t00=0x0000, t01=0x00e6}
0x0128…0156 Head {h00=0x002a, h01=0x0050, text=»* START-UP ROUTINES.«, t00=0x0000, t01=0x012c}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…01ac Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0000, t01=0x0164}
0x01ac…01b4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0020}
0x01b4…01c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0028}
0x01c2…01d0 Head {h00=0x000a, h01=0x0050, text=» DDIV «, t00=0x0001, t01=0x0036}
0x01d0…01da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0044}
0x01da…01fa Head {h00=0x001c, h01=0x0050, text=»* KB/VDU TERMINAL «, t00=0x0001, t01=0x004e}
0x01fa…0204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006e}
0x0204…0214 Head {h00=0x000c, h01=0x0050, text=» TERM KA«, t00=0x0001, t01=0x0078}
0x0214…021e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0088}
0x021e…022e Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0001, t01=0x0092}
0x022e…023e Head {h00=0x000c, h01=0x0050, text=» TWB TB1«, t00=0x0001, t01=0x00a2}
0x023e…0248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b2}
0x0248…025c Head {h00=0x0010, h01=0x0050, text=» START KBVGO«, t00=0x0001, t01=0x00bc}
0x025c…0266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d0}
0x0266…027e Head {h00=0x0014, h01=0x0050, text=»DSDC DSET FC=61 «, t00=0x0001, t01=0x00da}
0x027e…02a4 Head {h00=0x0022, h01=0x0050, text=»*DSDC2 DSET FC=62 IFT DCLIN=2 «, t00=0x0001, t01=0x00f2}
0x02a4…02d2 Head {h00=0x002a, h01=0x0050, text=»*DSICR DSET FC=E0,DEV=II IFT COPCMD=1 «, t00=0x0001, t01=0x0118}
0x02d2…02f2 Head {h00=0x001c, h01=0x0050, text=»DSICW DSET FC=E1,DEV=IO «, t00=0x0001, t01=0x0146}
0x02f2…031a Head {h00=0x0024, h01=0x0050, text=»DSVDU DSET FC=50,DEV=DY,BUFL=162«, t00=0x0001, t01=0x0166}
0x031a…0342 Head {h00=0x0024, h01=0x0050, text=»DSKBAN DSET FC=20,DEV=KA,BUFL=2 «, t00=0x0001, t01=0x018e}
0x0342…036a Head {h00=0x0024, h01=0x0050, text=»DSKBSD DSET FC=40,DEV=KI,BUFL=2 «, t00=0x0002, t01=0x0026}
0x036a…0378 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x004e}
0x0378…0382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005c}
0x0382…039e Head {h00=0x0018, h01=0x0050, text=»* GTP TERMINAL«, t00=0x0002, t01=0x0066}
0x039e…03a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0082}
0x03a8…03b8 Head {h00=0x000c, h01=0x0050, text=» TERM GA«, t00=0x0002, t01=0x008c}
0x03b8…03c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009c}
0x03c2…03d2 Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0002, t01=0x00a6}
0x03d2…03e2 Head {h00=0x000c, h01=0x0050, text=» TWB TB1«, t00=0x0002, t01=0x00b6}
0x03e2…03ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c6}
0x03ec…0400 Head {h00=0x0010, h01=0x0050, text=» START GTPGO«, t00=0x0002, t01=0x00d0}
0x0400…040a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e4}
0x040a…0422 Head {h00=0x0014, h01=0x0050, text=»DSDC DSET FC=61 «, t00=0x0002, t01=0x00ee}
0x0422…0448 Head {h00=0x0022, h01=0x0050, text=»*DSDC2 DSET FC=62 IFT DCLIN=2 «, t00=0x0002, t01=0x0106}
0x0448…0468 Head {h00=0x001c, h01=0x0050, text=»DSICR DSET FC=E0,DEV=II «, t00=0x0002, t01=0x012c}
0x0468…0496 Head {h00=0x002a, h01=0x0050, text=»*DSICW DSET FC=E1,DEV=IO IFT COPCMD=1 «, t00=0x0002, t01=0x014c}
0x0496…04be Head {h00=0x0024, h01=0x0050, text=»DSGTP DSET FC=30,DEV=GP,BUFL=162«, t00=0x0002, t01=0x017a}
0x04be…04cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0012}
0x04cc…04d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d6…04e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002a}
0x04e0…0502 Head {h00=0x001e, h01=0x0050, text=»* DCTASK FOR DC LINE 1 «, t00=0x0003, t01=0x0034}
0x0502…050c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0056}
0x050c…0516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0060}
0x0516…0526 Head {h00=0x000c, h01=0x0050, text=» TERM D0«, t00=0x0003, t01=0x006a}
0x0526…0530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007a}
0x0530…0540 Head {h00=0x000c, h01=0x0050, text=» CWB CB1«, t00=0x0003, t01=0x0084}
0x0540…0554 Head {h00=0x0010, h01=0x0050, text=» START DC1GO«, t00=0x0003, t01=0x0094}
0x0554…056c Head {h00=0x0014, h01=0x0050, text=»DSDC DSET FC=60 «, t00=0x0003, t01=0x00a8}
0x056c…0576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c0}
0x0576…0596 Head {h00=0x001c, h01=0x0050, text=»* DCTASK FOR DC-LINE 2«, t00=0x0003, t01=0x00ca}
0x0596…05a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ea}
0x05a0…05b2 Head {h00=0x000e, h01=0x0050, text=»* TERM D1 «, t00=0x0003, t01=0x00f4}
0x05b2…05c4 Head {h00=0x000e, h01=0x0050, text=»* CWB CB1 «, t00=0x0003, t01=0x0106}
0x05c4…05da Head {h00=0x0012, h01=0x0050, text=»* START DC2GO «, t00=0x0003, t01=0x0118}
0x05da…05f2 Head {h00=0x0014, h01=0x0050, text=»*DSDC DSET FC=63«, t00=0x0003, t01=0x012e}
0x05f2…0600 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0146}
0x0600…060a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0154}
0x060a…0614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015e}
0x0614…064c Head {h00=0x0034, h01=0x0050, text=»* WORK AREA FOR KEYBOARD AND DISPLAY TASKS «, t00=0x0003, t01=0x0168}
0x064c…0656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0010}
0x0656…0660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001a}
0x0660…0670 Head {h00=0x000c, h01=0x0050, text=»TB1 BLK «, t00=0x0004, t01=0x0024}
0x0670…067a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0034}
0x067a…06a4 Head {h00=0x0026, h01=0x0050, text=»TCT01 BIN 4X'0' TID AND STACKBASE «, t00=0x0004, t01=0x003e}
0x06a4…06d2 Head {h00=0x002a, h01=0x0050, text=»PRINTER STRG 4X'0' KEYBARD/VDU/PRINTER«, t00=0x0004, t01=0x0068}
0x06d2…06fc Head {h00=0x0026, h01=0x0050, text=»BVDU STRG 3840X'0' VDU SCREEN BUFF«, t00=0x0004, t01=0x0096}
0x06fc…0728 Head {h00=0x0028, h01=0x0050, text=»PCURS STRG 4X'0' CURSOR ADDR. BINARY«, t00=0x0004, t01=0x00c0}
0x0728…075a Head {h00=0x002e, h01=0x0050, text=»ATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER«, t00=0x0004, t01=0x00ec}
0x075a…0784 Head {h00=0x0026, h01=0x0050, text=»CURATT STRG 4X'0' CURSOR ATTRIBUTE«, t00=0x0004, t01=0x011e}
0x0784…07ac Head {h00=0x0024, h01=0x0050, text=»WCC STRG 4X'0' WCC/CCC CHARACTER«, t00=0x0004, t01=0x0148}
0x07ac…07dc Head {h00=0x002c, h01=0x0050, text=»KBINH STRG 4X'0' KEYBOARD INHIBIT INDIC.«, t00=0x0004, t01=0x0170}
0x07dc…07f6 Head {h00=0x0016, h01=0x0050, text=»LINCNT STRG 4X'0' «, t00=0x0005, t01=0x0010}
0x07f6…0828 Head {h00=0x002e, h01=0x0050, text=»DCLENG STRG 4X'0' DC READ EFFECTIVE LENGTH«, t00=0x0005, t01=0x002a}
0x0828…0842 Head {h00=0x0016, h01=0x0050, text=»ICWORK STRG 4X'0' «, t00=0x0005, t01=0x005c}
0x0842…0870 Head {h00=0x002a, h01=0x0050, text=»INTATT STRG 4X'0' INTENSITY ATTRIBUTE «, t00=0x0005, t01=0x0076}
0x0870…0896 Head {h00=0x0022, h01=0x0050, text=»OFFFLG STRG 4X'0' OFFLINE FLAG«, t00=0x0005, t01=0x00a4}
0x0896…08ba Head {h00=0x0020, h01=0x0050, text=»COPNO BIN TID FOR HARDCOPY «, t00=0x0005, t01=0x00ca}
0x08ba…08de Head {h00=0x0020, h01=0x0050, text=»MISCAR STRG 44X'0' CCC,MAIN,«, t00=0x0005, t01=0x00ee}
0x08de…0902 Head {h00=0x0020, h01=0x0050, text=» MODE,KEYS,ECBDCC,ECBBLK, «, t00=0x0005, t01=0x0112}
0x0902…0914 Head {h00=0x000e, h01=0x0050, text=» RDMORE «, t00=0x0005, t01=0x0136}
0x0914…0922 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0148}
0x0922…092a Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0156}
0x092a…0940 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0005, t01=0x015e}
0x0940…094a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0174}
0x094a…0976 Head {h00=0x0028, h01=0x0050, text=»* COMMON WORK BLOCK FOR ALL TASKS «, t00=0x0005, t01=0x017e}
0x0976…0980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001a}
0x0980…09b2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x0024}
0x09b2…09ba Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0056}
0x09ba…09ca Head {h00=0x000c, h01=0x0050, text=»CB1 BLK «, t00=0x0006, t01=0x005e}
0x09ca…09d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006e}
0x09d4…09e8 Head {h00=0x0010, h01=0x0050, text=»CNFIGD BOOL «, t00=0x0006, t01=0x0078}
0x09e8…09fc Head {h00=0x0010, h01=0x0050, text=»CNFBSY BOOL «, t00=0x0006, t01=0x008c}
0x09fc…0a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a0}
0x0a06…0a24 Head {h00=0x001a, h01=0x0050, text=»* CONFIGURATION DATA «, t00=0x0006, t01=0x00aa}
0x0a24…0a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x0a2e…0a54 Head {h00=0x0022, h01=0x0050, text=»NBRKBV BIN NUMBER OF KB/VDUS «, t00=0x0006, t01=0x00d2}
0x0a54…0a76 Head {h00=0x001e, h01=0x0050, text=»NBRGTP BIN NUMBER OF GTPS«, t00=0x0006, t01=0x00f8}
0x0a76…0a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011a}
0x0a80…0abe Head {h00=0x003a, h01=0x0050, text=»MF1KBV STRG 32X'40C1C2C3C4C5C6C7' DV ADDRESSES KB/VDU «, t00=0x0006, t01=0x0124}
0x0abe…0af8 Head {h00=0x0036, h01=0x0050, text=»MF1GTP STRG 32X'C8C94A4B4C4D4E4F' DV ADDRESSES GTP«, t00=0x0006, t01=0x0162}
0x0af8…0b08 Head {h00=0x000c, h01=0x0050, text=»* MF # 2«, t00=0x0007, t01=0x000c}
0x0b08…0b34 Head {h00=0x0028, h01=0x0050, text=»*MF2KBV STRG 32X'40C1C2C3C4C5C6C7' «, t00=0x0007, t01=0x001c}
0x0b34…0b60 Head {h00=0x0028, h01=0x0050, text=»*MF2GTP STRG 32X'C8C94A4B4C4D4E4F' «, t00=0x0007, t01=0x0048}
0x0b60…0bac Head {h00=0x0048, h01=0x0050, text=»* THE LENGTH OR PLACE OF THE CONFIG DATA ABOVE SHOULD NOT BE CHANGED«, t00=0x0007, t01=0x0074}
0x0bac…0bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c0}
0x0bb6…0be2 Head {h00=0x0028, h01=0x0050, text=»MF1CU STRG X'6040' CU-ADDRESS MF # 1«, t00=0x0007, t01=0x00ca}
0x0be2…0bfe Head {h00=0x0018, h01=0x0050, text=»*MF2CU STRG X'6040' «, t00=0x0007, t01=0x00f6}
0x0bfe…0c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0112}
0x0c08…0c50 Head {h00=0x0044, h01=0x0050, text=»CNFHC BINI (16),'1','2','3','4','5','6','7','8' HARDCOPY PRINTER«, t00=0x0007, t01=0x011c}
0x0c50…0c6a Head {h00=0x0016, h01=0x0050, text=» FOR KB-VDU 1-16«, t00=0x0007, t01=0x0164}
0x0c6a…0c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017e}
0x0c74…0c86 Head {h00=0x000e, h01=0x0050, text=»BINWK1 BIN«, t00=0x0007, t01=0x0188}
0x0c86…0c94 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0008, t01=0x000a}
0x0c94…0c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0018}
0x0c9e…0ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0022}
0x0ca8…0cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002c}
0x0cb2…0cc6 Head {h00=0x0010, h01=0x0050, text=» ENTRY KBVGO«, t00=0x0008, t01=0x0036}
0x0cc6…0cda Head {h00=0x0010, h01=0x0050, text=» ENTRY GTPGO«, t00=0x0008, t01=0x004a}
0x0cda…0cee Head {h00=0x0010, h01=0x0050, text=» ENTRY DC1GO«, t00=0x0008, t01=0x005e}
0x0cee…0d04 Head {h00=0x0012, h01=0x0050, text=»* ENTRY DC2GO «, t00=0x0008, t01=0x0072}
0x0d04…0d16 Head {h00=0x000e, h01=0x0050, text=» EXT VDUKB«, t00=0x0008, t01=0x0088}
0x0d16…0d28 Head {h00=0x000e, h01=0x0050, text=» EXT PRINT«, t00=0x0008, t01=0x009a}
0x0d28…0d3c Head {h00=0x0010, h01=0x0050, text=» EXT DCTASK «, t00=0x0008, t01=0x00ac}
0x0d3c…0d50 Head {h00=0x0010, h01=0x0050, text=» EXT SWITCH «, t00=0x0008, t01=0x00c0}
0x0d50…0d76 Head {h00=0x0022, h01=0x0050, text=» EXT GETTID GET TASK IDENTITY «, t00=0x0008, t01=0x00d4}
0x0d76…0dac Head {h00=0x0032, h01=0x0050, text=»* EXT OFFLNE CREDIT APPLICATION START ADDRESS «, t00=0x0008, t01=0x00fa}
0x0dac…0db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x0db6…0dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013a}
0x0dc0…0dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0144}
0x0dca…0dd2 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x014e}
0x0dd2…0de0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0156}
0x0de0…0e0a Head {h00=0x0026, h01=0x0050, text=» DSC0 DSDC,2 DUMMY REFERENCE T:IO «, t00=0x0008, t01=0x0164}
0x0e0a…0e12 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x018e}
0x0e12…0e42 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0009, t01=0x0008}
0x0e42…0e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e4c…0e78 Head {h00=0x0028, h01=0x0050, text=»* START ADDRESS FOR KEYBOARD TASK «, t00=0x0009, t01=0x0042}
0x0e78…0e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006e}
0x0e82…0eb2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0009, t01=0x0078}
0x0eb2…0eba Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00a8}
0x0eba…0ec8 Head {h00=0x000a, h01=0x0050, text=»KBVGO «, t00=0x0009, t01=0x00b0}
0x0ec8…0ee0 Head {h00=0x0014, h01=0x0050, text=» ADD NBRKBV,='1'«, t00=0x0009, t01=0x00be}
0x0ee0…0efa Head {h00=0x0016, h01=0x0050, text=» CALL GETTID,TCT01«, t00=0x0009, t01=0x00d6}
0x0efa…0f16 Head {h00=0x0018, h01=0x0050, text=» SUB TCT01,=X'4B40' «, t00=0x0009, t01=0x00f0}
0x0f16…0f44 Head {h00=0x002a, h01=0x0050, text=»* PERF CONF READ & CONVERT CONFIG DATA«, t00=0x0009, t01=0x010c}
0x0f44…0f64 Head {h00=0x001c, h01=0x0050, text=» MOVE COPNO,CNFHC(TCT01)«, t00=0x0009, t01=0x013a}
0x0f64…0f82 Head {h00=0x001a, h01=0x0050, text=» CBL COPNO,='1',KB050 «, t00=0x0009, t01=0x015a}
0x0f82…0f9e Head {h00=0x0018, h01=0x0050, text=» ADD COPNO,=X'4740' «, t00=0x0009, t01=0x0178}
0x0f9e…0fac (10, 0, 400) Head {h00=0x000a, h01=0x0050, text=»KB050 «, t00=0x000a, t01=0x0004}
0x0fac…0fc6 Head {h00=0x0016, h01=0x0050, text=» CALL VDUKB,TCT01 «, t00=0x000a, t01=0x0012}
0x0fc6…0ff2 Head {h00=0x0028, h01=0x0050, text=»* PERF OFFLNE BRANCH TO CREDIT CODE «, t00=0x000a, t01=0x002c}
0x0ff2…1020 Head {h00=0x002a, h01=0x0050, text=»* B KB050 RETURN TO IBM-3270 EMULATION«, t00=0x000a, t01=0x0058}
0x1020…102e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0086}
0x102e…1036 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0094}
0x1036…103e Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x009c}
0x103e…1074 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000a, t01=0x00a4}
0x1074…107e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00da}
0x107e…10b0 Head {h00=0x002e, h01=0x0050, text=»* START ADDRESS FOR GENERAL PRINTER TASK«, t00=0x000a, t01=0x00e4}
0x10b0…10ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0116}
0x10ba…10f0 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000a, t01=0x0120}
0x10f0…10f8 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0156}
0x10f8…1106 Head {h00=0x000a, h01=0x0050, text=»GTPGO «, t00=0x000a, t01=0x015e}
0x1106…111e Head {h00=0x0014, h01=0x0050, text=» ADD NBRGTP,='1'«, t00=0x000a, t01=0x016c}
0x111e…1138 Head {h00=0x0016, h01=0x0050, text=» CALL GETTID,TCT01«, t00=0x000a, t01=0x0184}
0x1138…1154 Head {h00=0x0018, h01=0x0050, text=» SUB TCT01,=X'4740' «, t00=0x000b, t01=0x000e}
0x1154…1172 Head {h00=0x001a, h01=0x0050, text=» MOVE PRINTER,=X'0001'«, t00=0x000b, t01=0x002a}
0x1172…1186 Head {h00=0x0010, h01=0x0050, text=»* PERF CONF «, t00=0x000b, t01=0x0048}
0x1186…11a0 Head {h00=0x0016, h01=0x0050, text=» CALL PRINT,TCT01 «, t00=0x000b, t01=0x005c}
0x11a0…11a8 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0076}
0x11a8…11b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x007e}
0x11b6…11be Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x008c}
0x11be…11c6 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0094}
0x11c6…11fe Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x000b, t01=0x009c}
0x11fe…1208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d4}
0x1208…122e Head {h00=0x0022, h01=0x0050, text=»* START ADDRESS FOR DC-TASK «, t00=0x000b, t01=0x00de}
0x122e…1238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0104}
0x1238…1262 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x000b, t01=0x010e}
0x1262…126a Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0138}
0x126a…1278 Head {h00=0x000a, h01=0x0050, text=»DC1GO «, t00=0x000b, t01=0x0140}
0x1278…1292 Head {h00=0x0016, h01=0x0050, text=» CALL DCTASK,MF1CU«, t00=0x000b, t01=0x014e}
0x1292…129c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0168}
0x129c…12aa Head {h00=0x000a, h01=0x0050, text=»*DC2GO«, t00=0x000b, t01=0x0172}
0x12aa…12c6 Head {h00=0x0018, h01=0x0050, text=»* CALL DCTASK,MF2CU «, t00=0x000b, t01=0x0180}
0x12c6…12ce Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x000c}
0x12ce…12da Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000c, t01=0x0014}
0x12da…12de Head {h00=0x4004, h01=0x0000}
0x12de…12e2 00 0c 00 20 ┆ ┆
0x12e2…12ea (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆
0x12ea…133a (14, 0, 400) 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 2a 2a 2a 2a 2a 2a 2a 20 00 55 01 88 00 06 00 50 2a 20 00 56 00 3a 00 0c 00 50 2a 5c 43 41 4e 43 45 4c 00 56 00 44 ┆************************************************* U P* V : P* CANCEL V D┆
0x133a…138a 00 06 00 50 2a 20 00 56 00 54 00 3a 00 50 2a 5c 50 52 4f 47 52 41 4d 20 41 54 54 45 4e 54 49 4f 4e 20 4b 45 59 20 57 48 49 43 48 20 43 41 55 53 45 53 20 41 4e 20 49 2f 4f 20 4f 50 45 52 41 54 49 4f 4e 20 00 56 00 5e 00 24 00 50 2a 5c 41 4e ┆ P* V T : P* PROGRAM ATTENTION KEY WHICH CAUSES AN I/O OPERATION V ^ $ P* AN┆
0x138a…13da 44 20 47 45 4e 45 52 41 54 45 20 41 4e 20 41 49 44 20 43 48 41 52 41 43 54 45 52 20 00 56 00 9c 00 06 00 50 2a 20 00 56 00 c4 00 3e 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 ┆D GENERATE AN AID CHARACTER V P* V > P**********************************┆
0x13da…142a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 56 00 ce 00 06 00 50 2a 20 00 56 01 10 00 10 00 50 43 41 4e 43 45 4c 5c 45 51 55 5c 2a 00 56 01 1a 00 0e 00 50 50 41 32 5c 45 51 55 5c 2a 20 00 56 01 2e 00 1a 00 50 ┆*********************** V P* V PCANCEL EQU * V PPA2 EQU * V . P┆
0x142a…147a 5c 4c 44 4b 5c 41 32 2c 2f 32 45 5c 43 41 4e 43 45 4c 20 50 4f 53 00 56 01 40 00 10 00 50 43 41 4e 31 30 30 5c 45 51 55 5c 2a 00 56 01 5e 00 24 00 50 5c 4c 43 5c 41 32 2c 54 41 53 43 49 49 2c 41 32 5c 47 45 54 20 41 53 43 49 49 20 43 4f 44 ┆ LDK A2,/2E CANCEL POS V @ PCAN100 EQU * V ^ $ P LC A2,TASCII,A2 GET ASCII COD┆
0x147a…14ca (15, 0, 400) 45 20 00 56 01 72 00 10 00 50 43 41 4e 32 30 30 5c 45 51 55 5c 2a 00 57 00 0a 00 2e 00 50 5c 43 46 5c 41 31 34 2c 4c 49 4e 48 4f 4e 5c 54 55 52 4e 20 4f 4e 20 22 4b 45 59 42 4f 41 52 44 20 49 4e 48 49 42 49 54 22 20 00 57 00 1e 00 28 00 50 ┆E V r PCAN200 EQU * W . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" W ( P┆
0x14ca…151a 5c 43 46 5c 41 31 34 2c 54 52 50 41 5c 55 50 44 41 54 45 20 41 49 44 20 41 4e 44 20 54 52 41 4e 53 4d 49 54 00 57 00 50 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 57 00 7c 00 06 00 50 2a 20 00 57 00 8c 00 04 00 50 00 57 00 96 00 0e 00 50 5c 49 ┆ CF A14,TRPA UPDATE AID AND TRANSMIT W P P RTN A14 W | P* W P W P I┆
0x151a…156a 46 54 5c 50 41 58 3d 31 00 57 00 9e 00 04 00 50 00 57 00 b0 00 06 00 50 2a 20 00 57 00 b8 00 06 00 50 2a 20 00 57 00 c2 00 46 00 50 2a 5c 50 52 4f 47 52 41 4d 20 41 54 54 45 4e 54 49 4f 4e 20 4b 45 59 20 49 53 20 50 52 45 53 53 45 44 20 41 ┆FT PAX=1 W P W P* W P* W F P* PROGRAM ATTENTION KEY IS PRESSED A┆
0x156a…15ba 4e 44 20 4e 55 4d 42 45 52 20 57 49 4c 4c 20 42 45 20 49 4e 53 45 52 54 45 44 20 54 4f 20 00 57 00 cc 00 3a 00 50 2a 5c 44 45 46 49 4e 45 20 4f 4e 45 20 4f 46 20 54 48 45 20 46 55 4e 43 54 49 4f 4e 53 20 55 4e 44 45 52 20 50 41 31 2e 43 41 ┆ND NUMBER WILL BE INSERTED TO W : P* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CA┆
0x15ba…160a 4e 43 45 4c 20 4f 52 20 50 41 33 20 00 57 01 16 00 06 00 50 2a 20 00 57 01 54 00 06 00 50 2a 20 00 57 01 5e 00 0e 00 50 50 41 45 58 5c 45 51 55 5c 2a 00 57 01 68 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 50 41 45 58 41 00 57 01 7a 00 18 00 50 ┆NCEL OR PA3 W P* W T P* W ^ PPAEX EQU * W h P LDKL A1,PAEXA W z P┆
0x160a…165a (16, 0, 400) 5c 53 54 5c 41 31 2c 52 44 4d 4f 52 45 2c 54 43 41 42 41 53 00 57 01 90 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 58 00 1c 00 10 00 50 50 41 45 58 41 5c 45 51 55 5c 2a 20 00 58 00 2c 00 16 00 50 5c 43 4d 5c 52 44 4d 4f 52 45 2c 54 43 41 42 41 ┆ ST A1,RDMORE,TCABAS W P RTN A14 X PPAEXA EQU * X , P CM RDMORE,TCABA┆
0x165a…16aa 53 20 00 58 00 40 00 20 00 50 5c 53 55 4b 5c 41 32 2c 2f 33 31 5c 43 48 45 43 4b 20 49 46 20 4e 55 4d 2e 31 2d 33 00 58 00 5a 00 1e 00 50 5c 52 46 28 4c 29 5c 50 46 45 52 52 5c 49 4c 4c 45 47 41 4c 20 43 48 41 52 2e 00 58 00 7e 00 20 00 50 ┆S X @ P SUK A2,/31 CHECK IF NUM.1-3 X Z P RF(L) PFERR ILLEGAL CHAR. X ~ P┆
0x16aa…16fa 5c 53 55 4b 5c 41 32 2c 2f 32 5c 43 48 45 43 4b 20 49 46 20 4e 55 4d 2e 31 2d 33 20 00 58 00 a0 00 1e 00 50 5c 52 46 28 47 29 5c 50 46 45 52 52 5c 49 4c 4c 45 47 41 4c 20 43 48 41 52 2e 00 58 00 c4 00 0e 00 50 5c 52 46 28 5a 29 5c 50 41 33 ┆ SUK A2,/2 CHECK IF NUM.1-3 X P RF(G) PFERR ILLEGAL CHAR. X P RF(Z) PA3┆
0x16fa…174a 00 58 00 e6 00 0e 00 50 5c 41 44 4b 5c 41 32 2c 31 20 00 58 00 f8 00 0e 00 50 5c 52 42 28 5a 29 5c 50 41 32 00 58 01 0a 00 0c 00 50 5c 52 46 5c 50 41 31 20 00 58 01 1c 00 26 00 50 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 54 4f 20 4d ┆ X P ADK A2,1 X P RB(Z) PA2 X P RF PA1 X & P RTN A14 RETURN TO M┆
0x174a…179a 41 49 4e 20 52 45 41 44 20 4c 4f 4f 50 20 00 58 01 2c 00 04 00 50 00 58 01 56 00 08 00 50 5c 58 49 46 00 58 01 5e 00 0a 00 50 5c 45 4a 45 43 54 00 58 01 6a 00 04 00 50 00 58 01 78 00 06 00 50 2a 20 00 58 01 80 00 26 00 50 2a 20 20 20 20 50 ┆AIN READ LOOP X , P X V P XIF X ^ P EJECT X j P X x P* X & P* P┆
0x179a…17ea (17, 0, 400) 41 31 20 20 20 20 50 52 4f 47 52 41 4d 20 41 54 54 45 4e 54 49 4f 4e 20 4b 45 59 20 00 58 01 8a 00 06 00 50 2a 20 00 59 00 24 00 06 00 50 2a 20 00 59 00 2e 00 0e 00 50 50 41 31 5c 45 51 55 5c 2a 20 00 59 00 38 00 18 00 50 5c 4c 44 4b 5c 41 ┆A1 PROGRAM ATTENTION KEY X P* Y $ P* Y . PPA1 EQU * Y 8 P LDK A┆
0x17ea…183a 32 2c 2f 32 43 5c 50 41 31 20 50 4f 53 20 00 59 00 4a 00 0e 00 50 5c 52 42 5c 43 41 4e 31 30 30 00 59 00 66 00 06 00 50 2a 20 00 59 00 78 00 06 00 50 2a 20 00 59 00 82 00 24 00 50 2a 20 20 20 20 50 41 33 20 20 20 50 52 4f 47 52 41 4d 20 41 ┆2,/2C PA1 POS Y J P RB CAN100 Y f P* Y x P* Y $ P* PA3 PROGRAM A┆
0x183a…188a 54 54 45 4e 54 49 4f 4e 20 4b 45 59 00 59 00 8c 00 06 00 50 2a 20 00 59 00 b4 00 06 00 50 2a 20 00 59 00 be 00 0e 00 50 50 41 33 5c 45 51 55 5c 2a 20 00 59 00 c8 00 18 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 42 5c 50 41 33 20 50 4f 53 20 00 59 ┆TTENTION KEY Y P* Y P* Y PPA3 EQU * Y P LDK A2,/2B PA3 POS Y┆
0x188a…18da 00 da 00 0e 00 50 5c 52 42 5c 43 41 4e 31 30 30 00 59 00 f6 00 06 00 50 2a 20 00 59 01 08 00 1c 00 50 2a 5c 50 41 34 20 2d 20 50 41 31 30 20 28 41 4c 46 41 53 4b 4f 50 29 20 00 59 01 12 00 06 00 50 2a 20 00 59 01 32 00 10 00 50 50 41 34 31 ┆ P RB CAN100 Y P* Y P* PA4 - PA10 (ALFASKOP) Y P* Y 2 PPA41┆
0x18da…192a 30 5c 45 51 55 5c 2a 20 00 59 01 3c 00 10 00 50 5c 53 55 4b 5c 41 32 2c 2f 32 30 20 00 59 01 50 00 0e 00 50 5c 52 42 5c 43 41 4e 32 30 30 00 59 01 64 00 0a 00 50 5c 45 4a 45 43 54 00 59 01 76 00 06 00 50 2a 20 00 59 01 84 00 3c 00 50 2a 2a ┆0 EQU * Y < P SUK A2,/20 Y P P RB CAN200 Y d P EJECT Y v P* Y < P**┆
0x192a…197a (18, 0, 400) 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 59 01 8e 00 06 00 50 2a 20 00 5a 00 3e 00 0c 00 50 2a 5c 45 4e 54 45 52 20 ┆****************************************************** Y P* Z > P* ENTER ┆
0x197a…19ca 00 5a 00 48 00 06 00 50 2a 20 00 5a 00 58 00 38 00 50 2a 5c 50 52 4f 47 52 41 4d 20 46 55 4e 43 54 49 4f 4e 20 4b 45 59 20 57 48 49 43 48 20 43 41 55 53 45 53 20 41 4e 20 49 2f 4f 20 4f 50 45 52 41 54 49 4f 4e 00 5a 00 62 00 3c 00 50 2a 5c ┆ Z H P* Z X 8 P* PROGRAM FUNCTION KEY WHICH CAUSES AN I/O OPERATION Z b < P* ┆
0x19ca…1a1a 41 4e 44 20 47 45 4e 45 52 41 54 45 20 41 4e 20 41 49 44 20 43 48 41 52 41 43 54 45 52 20 46 4f 4c 4c 4f 57 45 44 20 42 59 20 41 4e 20 53 42 41 20 4f 52 44 45 52 00 5a 00 9e 00 38 00 50 2a 5c 41 54 54 52 49 42 55 54 45 20 41 44 44 52 45 53 ┆AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER Z 8 P* ATTRIBUTE ADDRES┆
0x1a1a…1a6a 53 20 41 4e 44 20 54 45 58 54 20 46 4f 52 20 45 41 43 48 20 4d 4f 44 49 46 49 45 44 20 46 49 45 4c 44 00 5a 00 de 00 1a 00 50 2a 5c 4e 55 4c 4c 53 20 41 52 45 20 53 55 50 52 45 53 53 45 44 20 00 5a 01 1a 00 06 00 50 2a 20 00 5a 01 38 00 3e ┆S AND TEXT FOR EACH MODIFIED FIELD Z P* NULLS ARE SUPRESSED Z P* Z 8 >┆
0x1a6a…1aba 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 5a 01 42 00 06 00 50 2a 20 00 5a 01 84 00 10 00 50 45 4e ┆ P********************************************************* Z B P* Z PEN┆
0x1aba…1b0a (19, 0, 400) 54 45 52 5c 45 51 55 5c 2a 20 00 5a 01 8e 00 1a 00 50 5c 4c 44 4b 5c 41 32 2c 2f 33 44 5c 45 4e 54 45 52 20 50 4f 53 20 00 5b 00 12 00 10 00 50 45 4e 54 31 30 30 5c 45 51 55 5c 2a 00 5b 00 30 00 26 00 50 5c 4c 43 5c 41 32 2c 54 41 53 43 49 ┆TER EQU * Z P LDK A2,/3D ENTER POS [ PENT100 EQU * [ 0 & P LC A2,TASCI┆
0x1b0a…1b5a 49 2c 41 32 5c 43 4f 4e 56 45 52 54 20 54 4f 20 41 53 43 49 49 20 00 5b 00 44 00 2e 00 50 5c 43 46 5c 41 31 34 2c 4c 49 4e 48 4f 4e 5c 54 55 52 4e 20 4f 4e 20 22 4b 45 59 42 4f 41 52 44 20 49 4e 48 49 42 49 54 22 20 00 5b 00 6e 00 2e 00 50 ┆I,A2 CONVERT TO ASCII [ D . P CF A14,LINHON TURN ON "KEYBOARD INHIBIT" [ n . P┆
0x1b5a…1baa 5c 43 46 5c 41 31 34 2c 54 52 50 46 5c 41 49 44 2b 4d 4f 44 49 46 49 45 44 20 46 49 45 4c 44 53 2b 54 52 41 4e 53 4d 49 54 20 00 5b 00 a0 00 10 00 50 45 4e 54 32 30 30 5c 45 51 55 5c 2a 00 5b 00 d2 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 5b ┆ CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT [ PENT200 EQU * [ P RTN A14 [┆
0x1baa…1bfa 00 e6 00 06 00 50 2a 20 00 5b 00 f6 00 04 00 50 00 5b 01 00 00 0e 00 50 5c 49 46 54 5c 50 46 58 3d 31 00 5b 01 08 00 04 00 50 00 5b 01 1a 00 06 00 50 2a 20 00 5b 01 22 00 06 00 50 2a 20 00 5b 01 2c 00 46 00 50 2a 5c 50 52 4f 47 52 41 4d 20 ┆ P* [ P [ P IFT PFX=1 [ P [ P* [ " P* [ , F P* PROGRAM ┆
0x1bfa…1c4a 46 55 4e 43 54 49 4f 4e 20 4b 45 59 20 49 4f 53 20 50 52 45 53 53 45 44 20 41 4e 44 20 4e 55 4d 42 45 52 20 57 49 4c 4c 20 42 45 20 49 4e 53 45 52 54 45 44 20 54 4f 20 00 5b 01 36 00 30 00 50 2a 5c 44 45 46 49 4e 45 20 4f 4e 45 20 4f 46 20 ┆FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO [ 6 0 P* DEFINE ONE OF ┆
0x1c4a…1c9a (20, 0, 400) 54 48 45 20 46 55 4e 43 54 49 4f 4e 53 20 55 4e 44 45 52 20 50 46 31 2d 50 46 31 32 00 5b 01 80 00 06 00 50 2a 20 00 5c 00 24 00 06 00 50 2a 20 00 5c 00 2e 00 0e 00 50 50 46 45 58 5c 45 51 55 5c 2a 00 5c 00 38 00 12 00 50 5c 4c 44 4b 4c 5c ┆THE FUNCTIONS UNDER PF1-PF12 [ P* $ P* . PPFEX EQU * 8 P LDKL ┆
0x1c9a…1cea 41 31 2c 50 46 45 58 41 00 5c 00 4a 00 0e 00 50 5c 52 46 5c 50 46 4e 58 54 20 00 5c 00 60 00 10 00 50 50 46 45 58 41 5c 45 51 55 5c 2a 20 00 5c 00 72 00 16 00 50 5c 43 4d 5c 52 44 4d 4f 52 45 2c 54 43 41 42 41 53 20 00 5c 00 86 00 1c 00 50 ┆A1,PFEXA J P RF PFNXT ` PPFEXA EQU * r P CM RDMORE,TCABAS P┆
0x1cea…1d3a 5c 53 55 4b 5c 41 32 2c 2f 33 30 5c 4c 45 47 41 4c 20 43 48 41 52 20 3f 00 5c 00 a0 00 2c 00 50 5c 52 46 28 4c 29 5c 50 46 45 52 52 5c 49 4c 4c 45 47 41 4c 2c 47 4f 20 54 4f 20 45 52 52 2e 48 41 4e 44 4c 49 4e 47 20 00 5c 00 c0 00 26 00 50 ┆ SUK A2,/30 LEGAL CHAR ? , P RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING & P┆
0x1d3a…1d8a 5c 52 46 28 5a 29 5c 50 46 30 5c 46 49 52 53 54 20 4e 55 4d 2e 20 30 20 47 4f 20 54 4f 20 50 46 30 20 00 5c 00 f0 00 1e 00 50 5c 53 55 4b 5c 41 32 2c 2f 31 5c 46 49 52 53 54 20 4e 55 4d 2e 20 31 20 3f 20 00 5c 01 1a 00 1e 00 50 5c 52 46 28 ┆ RF(Z) PF0 FIRST NUM. 0 GO TO PF0 P SUK A2,/1 FIRST NUM. 1 ? P RF(┆
0x1d8a…1dda 47 29 5c 50 46 45 52 52 5c 49 4c 4c 45 47 41 4c 20 4e 55 4d 2e 20 00 5c 01 3c 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 50 46 31 41 20 00 5c 01 5e 00 0e 00 50 5c 52 46 5c 50 46 4e 58 54 20 00 5c 01 74 00 0e 00 50 50 46 31 41 5c 45 51 55 5c 2a ┆G) PFERR ILLEGAL NUM. < P LDKL A1,PF1A ^ P RF PFNXT t PPF1A EQU *┆