|
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: 4470 (0x1176)
Notes: pts_type(UF)
Names: »GEOT.UF«
└─⟦025d39960⟧ Bits:30009672 Philips computer tape "600133"
└─⟦this⟧ »A:DSB/GEOT.UF«
SCR MES *********************************** MES * GENERATION OF D S B - PROGRAM * MES * (PROD VERSION) * MES *********************************** PRT DSBGEN PRT DSBCAS PRT PROCON SCR NOD C TRA PLADS,NL TLK INC T:LSEG,INT:PROD INC T:DC,INT:PROD INC T:TEI,INT:PROD INC T:GTID,INT:PROD INC T:IO,INT:PROD INC I:NTP,INT:PROD INC I:EVA,INT:PROD INC I:CMP,INT:PROD INC I:CPA,INT:PROD INC I:MOV,INT:PROD INC I:MUL,INT:PROD INC I:DIV,INT:PROD INC I:NTF,INT:PROD INC I:EDT,INT:PROD INC I:EDTE,INT:PROD INC I:EDS,INT:PROD INC I:STR,INT:PROD INC I:EVS,INT:PROD INC I:ADS,INT:PROD INC I:EPIC,INT:PROD INC T:MSK0,INT:PROD INC T:DEL,INT:PROD LKE M SCR NOD C LED PLADS !!CH $$6040$$6141$$ !!EN TRA /S,NL TLK INC T:LSEG,INT:PROD INC T:DC,INT:PROD INC T:TEI,INT:PROD INC T:GTID,INT:PROD INC T:IO,INT:PROD INC I:NTP,INT:PROD INC I:EVA,INT:PROD INC I:CMP,INT:PROD INC I:CPA,INT:PROD INC I:MOV,INT:PROD INC I:MUL,INT:PROD INC I:DIV,INT:PROD INC I:NTF,INT:PROD INC I:EDT,INT:PROD INC I:EDTE,INT:PROD INC I:EDS,INT:PROD INC I:STR,INT:PROD INC I:EVS,INT:PROD INC I:ADS,INT:PROD INC I:EPIC,INT:PROD INC T:MSK0,INT:PROD INC T:DEL,INT:PROD LKE M ASG 2,NO ASG /E0,DK,DSBCAS
0x0000…000c (0, 0, 400) Head {h00=0x0008, h01=0x0050, text=»SCR «, t00=0x0000, t01=0x0004}
0x000c…003c Head {h00=0x002c, h01=0x0050, text=»MES *********************************** «, t00=0x0000, t01=0x0010}
0x003c…006c Head {h00=0x002c, h01=0x0050, text=»MES * GENERATION OF D S B - PROGRAM * «, t00=0x0000, t01=0x0040}
0x006c…009c Head {h00=0x002c, h01=0x0050, text=»MES * (PROD VERSION) * «, t00=0x0000, t01=0x0070}
0x009c…00cc Head {h00=0x002c, h01=0x0050, text=»MES *********************************** «, t00=0x0000, t01=0x00a0}
0x00cc…00de Head {h00=0x000e, h01=0x0050, text=»PRT DSBGEN«, t00=0x0000, t01=0x00d0}
0x00de…00f0 Head {h00=0x000e, h01=0x0050, text=»PRT DSBCAS«, t00=0x0000, t01=0x00e2}
0x00f0…0102 Head {h00=0x000e, h01=0x0050, text=»PRT PROCON«, t00=0x0000, t01=0x00f4}
0x0102…010e Head {h00=0x0008, h01=0x0050, text=»SCR «, t00=0x0000, t01=0x0106}
0x010e…011c Head {h00=0x000a, h01=0x0050, text=»NOD C «, t00=0x0000, t01=0x0112}
0x011c…0130 Head {h00=0x0010, h01=0x0050, text=»TRA PLADS,NL«, t00=0x0000, t01=0x0120}
0x0130…013c Head {h00=0x0008, h01=0x0050, text=»TLK «, t00=0x0000, t01=0x0134}
0x013c…0158 Head {h00=0x0018, h01=0x0050, text=»INC T:LSEG,INT:PROD «, t00=0x0000, t01=0x0140}
0x0158…0172 Head {h00=0x0016, h01=0x0050, text=»INC T:DC,INT:PROD «, t00=0x0000, t01=0x015c}
0x0172…018c Head {h00=0x0016, h01=0x0050, text=»INC T:TEI,INT:PROD«, t00=0x0000, t01=0x0176}
0x018c…01a8 Head {h00=0x0018, h01=0x0050, text=»INC T:GTID,INT:PROD «, t00=0x0000, t01=0x0190}
0x01a8…01c2 Head {h00=0x0016, h01=0x0050, text=»INC T:IO,INT:PROD «, t00=0x0001, t01=0x001c}
0x01c2…01dc Head {h00=0x0016, h01=0x0050, text=»INC I:NTP,INT:PROD«, t00=0x0001, t01=0x0036}
0x01dc…01f6 Head {h00=0x0016, h01=0x0050, text=»INC I:EVA,INT:PROD«, t00=0x0001, t01=0x0050}
0x01f6…0210 Head {h00=0x0016, h01=0x0050, text=»INC I:CMP,INT:PROD«, t00=0x0001, t01=0x006a}
0x0210…022a Head {h00=0x0016, h01=0x0050, text=»INC I:CPA,INT:PROD«, t00=0x0001, t01=0x0084}
0x022a…0244 Head {h00=0x0016, h01=0x0050, text=»INC I:MOV,INT:PROD«, t00=0x0001, t01=0x009e}
0x0244…025e Head {h00=0x0016, h01=0x0050, text=»INC I:MUL,INT:PROD«, t00=0x0001, t01=0x00b8}
0x025e…0278 Head {h00=0x0016, h01=0x0050, text=»INC I:DIV,INT:PROD«, t00=0x0001, t01=0x00d2}
0x0278…0292 Head {h00=0x0016, h01=0x0050, text=»INC I:NTF,INT:PROD«, t00=0x0001, t01=0x00ec}
0x0292…02ac Head {h00=0x0016, h01=0x0050, text=»INC I:EDT,INT:PROD«, t00=0x0001, t01=0x0106}
0x02ac…02c8 Head {h00=0x0018, h01=0x0050, text=»INC I:EDTE,INT:PROD «, t00=0x0001, t01=0x0120}
0x02c8…02e2 Head {h00=0x0016, h01=0x0050, text=»INC I:EDS,INT:PROD«, t00=0x0001, t01=0x013c}
0x02e2…02fc Head {h00=0x0016, h01=0x0050, text=»INC I:STR,INT:PROD«, t00=0x0001, t01=0x0156}
0x02fc…0316 Head {h00=0x0016, h01=0x0050, text=»INC I:EVS,INT:PROD«, t00=0x0001, t01=0x0170}
0x0316…0330 Head {h00=0x0016, h01=0x0050, text=»INC I:ADS,INT:PROD«, t00=0x0001, t01=0x018a}
0x0330…034c Head {h00=0x0018, h01=0x0050, text=»INC I:EPIC,INT:PROD «, t00=0x0002, t01=0x0014}
0x034c…0368 Head {h00=0x0018, h01=0x0050, text=»INC T:MSK0,INT:PROD «, t00=0x0002, t01=0x0030}
0x0368…0382 Head {h00=0x0016, h01=0x0050, text=»INC T:DEL,INT:PROD«, t00=0x0002, t01=0x004c}
0x0382…0390 Head {h00=0x000a, h01=0x0050, text=»LKE M «, t00=0x0002, t01=0x0066}
0x0390…039c Head {h00=0x0008, h01=0x0050, text=»SCR «, t00=0x0002, t01=0x0074}
0x039c…03aa Head {h00=0x000a, h01=0x0050, text=»NOD C «, t00=0x0002, t01=0x0080}
0x03aa…03bc Head {h00=0x000e, h01=0x0050, text=»LED PLADS «, t00=0x0002, t01=0x008e}
0x03bc…03d8 Head {h00=0x0018, h01=0x0050, text=»!!CH $$6040$$6141$$ «, t00=0x0002, t01=0x00a0}
0x03d8…03e4 Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0002, t01=0x00bc}
0x03e4…03f6 Head {h00=0x000e, h01=0x0050, text=»TRA /S,NL «, t00=0x0002, t01=0x00c8}
0x03f6…0402 Head {h00=0x0008, h01=0x0050, text=»TLK «, t00=0x0002, t01=0x00da}
0x0402…041e Head {h00=0x0018, h01=0x0050, text=»INC T:LSEG,INT:PROD «, t00=0x0002, t01=0x00e6}
0x041e…0438 Head {h00=0x0016, h01=0x0050, text=»INC T:DC,INT:PROD «, t00=0x0002, t01=0x0102}
0x0438…0452 Head {h00=0x0016, h01=0x0050, text=»INC T:TEI,INT:PROD«, t00=0x0002, t01=0x011c}
0x0452…046e Head {h00=0x0018, h01=0x0050, text=»INC T:GTID,INT:PROD «, t00=0x0002, t01=0x0136}
0x046e…0488 Head {h00=0x0016, h01=0x0050, text=»INC T:IO,INT:PROD «, t00=0x0002, t01=0x0152}
0x0488…04a2 Head {h00=0x0016, h01=0x0050, text=»INC I:NTP,INT:PROD«, t00=0x0002, t01=0x016c}
0x04a2…04bc Head {h00=0x0016, h01=0x0050, text=»INC I:EVA,INT:PROD«, t00=0x0002, t01=0x0186}
0x04bc…04d6 Head {h00=0x0016, h01=0x0050, text=»INC I:CMP,INT:PROD«, t00=0x0003, t01=0x0010}
0x04d6…04f0 Head {h00=0x0016, h01=0x0050, text=»INC I:CPA,INT:PROD«, t00=0x0003, t01=0x002a}
0x04f0…050a Head {h00=0x0016, h01=0x0050, text=»INC I:MOV,INT:PROD«, t00=0x0003, t01=0x0044}
0x050a…0524 Head {h00=0x0016, h01=0x0050, text=»INC I:MUL,INT:PROD«, t00=0x0003, t01=0x005e}
0x0524…053e Head {h00=0x0016, h01=0x0050, text=»INC I:DIV,INT:PROD«, t00=0x0003, t01=0x0078}
0x053e…0558 Head {h00=0x0016, h01=0x0050, text=»INC I:NTF,INT:PROD«, t00=0x0003, t01=0x0092}
0x0558…0572 Head {h00=0x0016, h01=0x0050, text=»INC I:EDT,INT:PROD«, t00=0x0003, t01=0x00ac}
0x0572…058e Head {h00=0x0018, h01=0x0050, text=»INC I:EDTE,INT:PROD «, t00=0x0003, t01=0x00c6}
0x058e…05a8 Head {h00=0x0016, h01=0x0050, text=»INC I:EDS,INT:PROD«, t00=0x0003, t01=0x00e2}
0x05a8…05c2 Head {h00=0x0016, h01=0x0050, text=»INC I:STR,INT:PROD«, t00=0x0003, t01=0x00fc}
0x05c2…05dc Head {h00=0x0016, h01=0x0050, text=»INC I:EVS,INT:PROD«, t00=0x0003, t01=0x0116}
0x05dc…05f6 Head {h00=0x0016, h01=0x0050, text=»INC I:ADS,INT:PROD«, t00=0x0003, t01=0x0130}
0x05f6…0612 Head {h00=0x0018, h01=0x0050, text=»INC I:EPIC,INT:PROD «, t00=0x0003, t01=0x014a}
0x0612…062e Head {h00=0x0018, h01=0x0050, text=»INC T:MSK0,INT:PROD «, t00=0x0003, t01=0x0166}
0x062e…0648 Head {h00=0x0016, h01=0x0050, text=»INC T:DEL,INT:PROD«, t00=0x0003, t01=0x0182}
0x0648…0656 Head {h00=0x000a, h01=0x0050, text=»LKE M «, t00=0x0004, t01=0x000c}
0x0656…0666 Head {h00=0x000c, h01=0x0050, text=»ASG 2,NO«, t00=0x0004, t01=0x001a}
0x0666…0680 Head {h00=0x0016, h01=0x0050, text=»ASG /E0,DK,DSBCAS «, t00=0x0004, t01=0x002a}
0x0680…0684 (5, 1, 8) Head {h00=0x2004, h01=0x0000}
0x0684…0688 00 05 00 04 ┆ ┆
0x0688…06d8 (6, 0, 400) 45 52 00 1d 01 6c 00 0e 00 50 5c 52 42 5c 41 43 47 50 31 37 00 1e 00 0a 00 0a 00 50 5c 45 4a 45 43 54 00 1e 00 1c 00 06 00 50 2a 20 00 1e 00 2a 00 1a 00 50 2a 20 20 20 20 43 4f 44 45 20 43 48 45 43 4b 20 45 52 52 4f 52 20 00 1e 00 34 00 06 ┆ER l P RB ACGP17 P EJECT P* * P* CODE CHECK ERROR 4 ┆
0x06d8…0728 00 50 2a 20 00 1e 00 52 00 10 00 50 41 43 47 50 33 30 5c 45 51 55 5c 2a 00 1e 00 5c 00 12 00 50 5c 4c 44 4b 5c 41 31 2c 43 43 45 52 52 20 00 1e 00 70 00 1c 00 50 5c 4f 52 53 5c 41 31 2c 38 2c 41 38 5c 52 45 54 55 52 4e 20 43 4f 44 45 00 1e ┆ P* R PACGP30 EQU * P LDK A1,CCERR p P ORS A1,8,A8 RETURN CODE ┆
0x0728…0778 00 86 00 0e 00 50 5c 52 42 5c 41 43 47 50 32 30 00 1e 00 a6 00 0a 00 50 5c 45 4a 45 43 54 00 1e 00 b8 00 06 00 50 2a 20 00 1e 00 c6 00 14 00 50 2a 20 20 20 20 54 41 42 55 4c 41 54 49 4f 4e 20 00 1e 00 d0 00 06 00 50 2a 20 00 1e 00 e8 00 10 ┆ P RB ACGP20 P EJECT P* P* TABULATION P* ┆
0x0778…07c8 00 50 41 43 47 50 34 30 5c 45 51 55 5c 2a 00 1e 00 f2 00 2c 00 50 5c 43 46 5c 41 31 35 2c 47 45 54 43 48 52 5c 47 45 54 20 46 49 52 53 54 20 41 53 43 49 49 20 43 48 41 52 41 43 54 45 52 00 1e 01 06 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 ┆ PACGP40 EQU * , P CF A15,GETCHR GET FIRST ASCII CHARACTER P LDR A4,A2┆
0x07c8…0818 00 1e 01 36 00 2e 00 50 5c 43 46 5c 41 31 35 2c 47 45 54 43 48 52 5c 47 45 54 20 53 45 43 4f 4e 44 20 41 53 43 49 49 20 43 48 41 52 41 43 54 45 52 20 00 1e 01 48 00 0e 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 00 1e 01 7a 00 0e 00 50 5c 41 4e 4b ┆ 6 . P CF A15,GETCHR GET SECOND ASCII CHARACTER H P ANK A2,/F z P ANK┆
0x0818…0868 (7, 0, 400) 5c 41 34 2c 2f 46 00 1e 01 8c 00 12 00 50 5c 52 46 28 45 29 5c 41 43 47 50 34 34 20 00 1f 00 0e 00 30 00 50 41 43 47 50 34 33 5c 41 44 4b 5c 41 32 2c 2f 41 5c 46 52 4f 4d 20 44 45 43 49 4d 41 4c 20 54 4f 20 48 45 58 41 44 45 43 49 4d 41 4c ┆ A4,/F P RF(E) ACGP44 0 PACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL┆
0x0868…08b8 00 1f 00 24 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 31 20 00 1f 00 58 00 12 00 50 5c 52 42 28 4e 45 29 5c 41 43 47 50 34 33 00 1f 00 6a 00 38 00 50 41 43 47 50 34 34 5c 53 55 5c 41 32 2c 44 57 54 41 50 2c 41 36 5c 53 55 42 54 52 41 43 54 20 48 ┆ $ P SUK A4,1 X P RB(NE) ACGP43 j 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT H┆
0x08b8…0908 45 41 44 20 50 4f 53 49 54 49 4f 4e 20 50 4f 49 4e 54 45 52 00 1f 00 80 00 14 00 50 5c 4c 43 5c 41 34 2c 44 57 54 42 43 2c 41 36 20 00 1f 00 bc 00 2c 00 50 5c 53 55 52 5c 41 32 2c 41 34 5c 41 4e 44 20 52 45 51 55 45 53 54 53 20 50 4f 53 49 ┆EAD POSITION POINTER P LC A4,DWTBC,A6 , P SUR A2,A4 AND REQUESTS POSI┆
0x0908…0958 54 49 4f 4e 20 43 4f 55 4e 54 45 52 00 1f 00 d4 00 26 00 50 5c 5c 5c 54 4f 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 53 50 41 43 45 53 20 54 4f 20 53 45 4e 44 00 1f 01 04 00 12 00 50 5c 52 42 28 4e 50 29 5c 41 43 47 50 32 30 00 1f 01 2e ┆TION COUNTER & P TO GET NUMBER OF SPACES TO SEND P RB(NP) ACGP20 .┆
0x0958…09a8 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 1f 01 44 00 3a 00 50 41 43 47 50 34 35 5c 4c 44 4b 5c 41 32 2c 53 50 41 43 45 5c 4c 4f 4f 50 20 41 4c 53 4f 20 55 53 45 44 20 42 59 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 00 1f 01 56 ┆ P LDR A4,A2 D : PACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY ROUTINE V┆
0x09a8…09f8 (8, 0, 400) 00 18 00 50 41 43 47 50 34 36 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 20 00 04 00 28 00 50 5c 49 4d 5c 44 57 54 53 54 2c 41 36 5c 49 4e 43 52 45 4d 45 4e 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 20 00 20 00 20 00 0e 00 50 5c 53 55 4b ┆ PACGP46 CF A5,OUTPUT ( P IM DWTST,A6 INCREMENT BUFFER INDEX P SUK┆
0x09f8…0a48 5c 41 34 2c 31 20 00 20 00 4c 00 12 00 50 5c 52 42 28 50 29 5c 41 43 47 50 34 35 20 00 20 00 5e 00 18 00 50 5c 4c 44 52 5c 41 33 2c 41 33 5c 52 45 43 4f 56 45 52 59 3f 00 20 00 74 00 12 00 50 5c 52 42 28 4e 45 29 5c 41 43 47 50 32 30 00 20 ┆ A4,1 L P RB(P) ACGP45 ^ P LDR A3,A3 RECOVERY? t P RB(NE) ACGP20 ┆
0x0a48…0a98 00 90 00 2a 00 50 5c 53 43 5c 41 34 2c 44 57 54 42 43 2c 41 36 5c 52 45 53 45 54 20 50 4f 53 49 54 49 4f 4e 20 50 4f 49 4e 54 45 52 00 20 00 a6 00 20 00 50 5c 4c 44 4b 5c 41 33 2c 32 5c 53 54 41 52 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 ┆ * P SC A4,DWTBC,A6 RESET POSITION POINTER P LDK A3,2 START BUFFER INDEX┆
0x0a98…0ae8 00 20 00 d4 00 0e 00 50 5c 52 42 5c 41 43 47 50 31 39 00 20 00 f8 00 0a 00 50 5c 45 4a 45 43 54 00 20 01 0a 00 06 00 50 2a 20 00 20 01 18 00 18 00 50 2a 20 20 20 20 52 4f 4f 4d 4c 45 53 53 20 50 4f 49 4e 54 20 00 20 01 22 00 06 00 50 2a 20 ┆ P RB ACGP19 P EJECT P* P* ROOMLESS POINT " P* ┆
0x0ae8…0b38 00 20 01 3e 00 10 00 50 41 47 50 31 30 30 5c 45 51 55 5c 2a 00 20 01 48 00 06 00 50 2a 20 00 20 01 5c 00 10 00 50 5c 49 46 54 5c 43 52 4f 4f 4d 3d 31 00 20 01 66 00 06 00 50 2a 20 00 20 01 7a 00 28 00 50 5c 43 46 5c 41 31 35 2c 47 45 54 43 ┆ > PAGP100 EQU * H P* P IFT CROOM=1 f P* z ( P CF A15,GETC┆
0x0b38…0b88 (9, 0, 400) 48 52 5c 47 45 54 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 53 45 4e 44 00 20 01 84 00 0e 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 00 21 00 20 00 1e 00 50 5c 4c 43 5c 41 32 2c 52 4f 4d 54 41 42 2c 41 32 5c 54 52 41 4e 53 46 4f 52 4d 00 21 00 32 ┆HR GET CHARACTER TO SEND P ANK A2,/F ! P LC A2,ROMTAB,A2 TRANSFORM ! 2┆
0x0b88…0bd8 00 06 00 50 2a 20 00 21 00 54 00 08 00 50 5c 58 49 46 00 21 00 5e 00 06 00 50 2a 20 00 21 00 6a 00 06 00 50 2a 20 00 21 00 74 00 10 00 50 5c 49 46 46 5c 43 52 4f 4f 4d 3d 31 00 21 00 7e 00 06 00 50 2a 20 00 21 00 92 00 10 00 50 5c 41 4e 4b ┆ P* ! T P XIF ! ^ P* ! j P* ! t P IFF CROOM=1 ! ~ P* ! P ANK┆
0x0bd8…0c28 5c 41 32 2c 2f 37 46 20 00 21 00 9c 00 06 00 50 2a 20 00 21 00 b0 00 08 00 50 5c 58 49 46 00 21 00 ba 00 06 00 50 2a 20 00 21 00 c6 00 0e 00 50 5c 52 42 5c 41 43 47 50 31 37 00 21 00 d0 00 0a 00 50 5c 45 4a 45 43 54 00 21 00 e2 00 06 00 50 ┆ A2,/7F ! P* ! P XIF ! P* ! P RB ACGP17 ! P EJECT ! P┆
0x0c28…0c78 2a 20 00 21 00 f0 00 06 00 50 2a 20 00 21 00 fa 00 28 00 50 2a 20 20 20 20 53 45 4e 44 20 4c 41 53 54 20 44 55 4d 4d 59 20 2c 20 4c 4f 41 44 20 41 31 20 57 49 54 48 20 00 21 01 04 00 20 00 50 2a 20 20 20 20 52 45 54 55 52 4e 20 43 4f 44 45 ┆* ! P* ! ( P* SEND LAST DUMMY , LOAD A1 WITH ! P* RETURN CODE┆
0x0c78…0cc8 20 41 4e 44 20 45 4e 44 20 49 2f 4f 00 21 01 30 00 06 00 50 2a 20 00 21 01 54 00 10 00 50 41 47 50 34 30 30 5c 45 51 55 5c 2a 00 21 01 5e 00 1e 00 50 5c 4c 44 4b 5c 41 32 2c 45 54 42 5c 45 4e 44 20 4f 46 20 4d 45 53 53 41 47 45 00 21 01 72 ┆ AND END I/O ! 0 P* ! T PAGP400 EQU * ! ^ P LDK A2,ETB END OF MESSAGE ! r┆
0x0cc8…0d18 (10, 0, 398) 00 16 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 00 22 00 04 00 20 00 50 41 47 50 34 31 30 5c 4c 44 4b 5c 41 32 2c 45 54 58 5c 4c 41 53 54 20 44 55 4d 4d 59 00 22 00 1e 00 16 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c ┆ P CF A5,OUTPUT SEND " PAGP410 LDK A2,ETX LAST DUMMY " P CF A5,OUTPUT ┆
0x0d18…0d68 53 45 4e 44 00 22 00 42 00 14 00 50 41 47 50 34 31 35 5c 45 51 55 5c 2a 5c 5c 3d 31 00 22 00 5c 00 14 00 50 5c 49 46 54 5c 41 42 49 53 3d 31 5c 5c 3d 31 20 00 22 00 74 00 1c 00 50 5c 41 4e 4b 5c 41 32 2c 2f 34 5c 50 41 50 45 52 20 49 4e 20 ┆SEND " B PAGP415 EQU * =1 " P IFT ABIS=1 =1 " t P ANK A2,/4 PAPER IN ┆
0x0d68…0db8 3f 5c 3d 31 00 22 00 8c 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 41 47 50 34 32 30 5c 59 45 53 5c 3d 31 20 00 22 00 ac 00 22 00 50 5c 4c 44 4b 5c 41 31 2c 2f 32 30 5c 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 5c 3d 31 00 22 00 ca 00 0e 00 50 ┆? =1 " P RF(NZ) AGP420 YES =1 " " P LDK A1,/20 SET RETURN CODE =1 " P┆
0x0db8…0e08 5c 58 49 46 5c 5c 5c 3d 31 20 00 22 00 f0 00 10 00 50 41 47 50 34 32 30 5c 45 51 55 5c 2a 00 22 01 02 00 30 00 50 5c 43 46 5c 41 31 35 2c 55 50 44 41 50 50 5c 55 50 44 41 54 45 20 48 45 41 44 20 50 4f 53 49 54 49 4f 4e 20 43 4f 55 4e 54 45 ┆ XIF =1 " PAGP420 EQU * " 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTE┆
0x0e08…0e56 52 20 00 22 01 16 00 20 00 50 45 4e 44 49 4f 5c 43 46 5c 41 31 35 2c 54 45 4e 44 49 4f 5c 45 4e 44 20 49 2f 4f 20 00 22 01 4a 00 24 00 50 45 58 49 54 5c 41 42 4c 5c 54 44 49 53 50 5c 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 ┆R " PENDIO CF A15,TENDIO END I/O " J $ PEXIT ABL TDISP GO TO DISPATCHER ┆
0x0e56…0ea6 (11, 0, 400) 00 22 01 6e 00 10 00 50 41 47 50 34 33 30 5c 45 51 55 5c 2a 00 23 00 08 00 14 00 50 5c 4c 44 5c 41 33 2c 44 57 54 41 33 2c 41 36 20 00 23 00 1c 00 1c 00 50 5c 53 54 5c 41 33 2c 36 2c 41 38 5c 45 46 46 2e 20 4c 45 4e 47 54 48 20 00 23 00 34 ┆ " n PAGP430 EQU * # P LD A3,DWTA3,A6 # P ST A3,6,A8 EFF. LENGTH # 4┆
0x0ea6…0ef6 00 12 00 50 5c 52 42 5c 41 47 50 34 31 35 5c 5c 3d 31 00 23 00 54 00 0a 00 50 5c 45 4a 45 43 54 00 23 00 6a 00 06 00 50 2a 20 00 23 00 78 00 06 00 50 2a 20 00 23 00 82 00 2c 00 50 2a 20 20 20 20 55 50 44 41 50 50 20 3d 20 53 55 42 52 4f 55 ┆ P RB AGP415 =1 # T P EJECT # j P* # x P* # , P* UPDAPP = SUBROU┆
0x0ef6…0f46 54 49 4e 45 20 54 4f 20 55 50 44 41 54 45 20 48 45 41 44 20 00 23 00 8c 00 2c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 50 4f 53 49 54 49 4f 4e 20 50 4f 49 4e 54 45 52 20 57 48 45 4e 20 45 4e 44 20 00 23 00 bc 00 28 00 50 2a 20 20 20 ┆TINE TO UPDATE HEAD # , P* POSITION POINTER WHEN END # ( P* ┆
0x0f46…0f96 20 20 20 20 20 20 20 20 20 20 4f 46 20 52 45 51 55 45 53 54 20 49 53 20 52 45 41 43 48 45 44 20 00 23 00 ec 00 10 00 50 55 50 44 41 50 50 5c 45 51 55 5c 2a 00 23 01 18 00 28 00 50 5c 4c 43 5c 41 33 2c 44 57 54 42 43 2c 41 36 5c 47 45 54 20 ┆ OF REQUEST IS REACHED # PUPDAPP EQU * # ( P LC A3,DWTBC,A6 GET ┆
0x0f96…0fe6 50 4f 53 49 54 49 4f 4e 20 43 4f 55 4e 54 45 52 00 23 01 2c 00 32 00 50 5c 41 44 53 5c 41 33 2c 44 57 54 41 50 2c 41 36 5c 55 50 44 41 54 45 20 48 45 41 44 20 50 4f 53 49 54 49 4f 4e 20 50 4f 49 4e 54 45 52 20 00 23 01 58 00 0e 00 50 5c 4c ┆POSITION COUNTER # , 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER # X P L┆
0x0fe6…1036 (12, 0, 400) 44 4b 5c 41 33 2c 30 20 00 23 01 8e 00 2c 00 50 5c 53 43 5c 41 33 2c 44 57 54 42 43 2c 41 36 5c 52 45 53 45 54 20 20 50 4f 53 49 54 49 4f 4e 20 43 4f 55 4e 54 45 52 20 00 24 00 10 00 0c 00 50 5c 52 54 4e 5c 41 31 35 00 24 00 40 00 12 00 50 ┆DK A3,0 # , P SC A3,DWTBC,A6 RESET POSITION COUNTER $ P RTN A15 $ @ P┆
0x1036…1086 5c 49 46 54 5c 53 55 50 53 50 41 3d 31 20 00 24 00 50 00 0a 00 50 5c 45 4a 45 43 54 00 24 00 66 00 06 00 50 2a 20 00 24 00 74 00 06 00 50 2a 20 00 24 00 7e 00 2a 00 50 2a 20 20 20 20 53 4b 49 50 53 50 20 3d 20 53 55 42 52 4f 54 49 4e 45 20 ┆ IFT SUPSPA=1 $ P P EJECT $ f P* $ t P* $ ~ * P* SKIPSP = SUBROTINE ┆
0x1086…10d6 54 4f 20 53 4b 49 50 20 53 50 41 43 45 53 00 24 00 88 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 20 45 4e 44 20 4f 46 20 45 43 42 2d 42 55 46 46 45 52 2e 20 00 24 00 b6 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TO SKIP SPACES $ ( P* IN END OF ECB-BUFFER. $ 6 P* ┆
0x10d6…1126 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 20 49 4e 20 45 43 42 20 49 53 20 55 50 44 41 54 45 44 2e 20 00 24 00 e2 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 31 2c 41 32 2c 41 34 20 2d 20 57 4f 52 4b 20 52 45 47 20 00 24 ┆REQUESTED LENGTH IN ECB IS UPDATED. $ & P* A1,A2,A4 - WORK REG $┆
0x1126…1176 01 1c 00 06 00 50 2a 20 00 24 01 46 00 10 00 50 53 4b 49 50 53 50 5c 45 51 55 5c 2a 00 24 01 50 00 28 00 50 5c 4c 44 5c 41 31 2c 32 2c 41 38 5c 47 45 54 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 28 42 41 29 20 00 24 01 64 00 28 00 50 ┆ P* $ F PSKIPSP EQU * $ P ( P LD A1,2,A8 GET BUFFER ADDRESS (BA) $ d ( P┆