|
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: 4782 (0x12ae)
Notes: pts_type(UF)
Names: »CR1500.UF«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »DRDC15/CR1500.UF«
LED XXXX15 !!RE 0,$$01-26$$03-27$$ !!IL 1 =4, ERROR IN POWER UP =3, DELETE INSTRUCTIONS NOT USED =2, CHANGES IN STATUS HANLING =1, ERROR IN OPEN/CLOSE REQUESTS REL 11.0 81-01-26 !!DL 139 =2 !!DL 720 =1 !!DL 784,785 =1 !!DL 788 =1 RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1 LDK A1,0 RC=0 =1 CF A15,TENDIO COMPLETE CLOSE REQUEST =1 RQCL92 EQU * =1 IFT P6805=0 =1 LDKL A5,STB =1 CF A5,CHALTI HALT I/P DEVICE =1 CF A5,CHALTO HALT O/P DEVICE =1 LDK A2,0 =1 CIO A2,1,LCUIN DISCONNECT MODEM =1 XIF =1 IFT P6805=1 =1 LDK A2,1 DISCONNECT ORDER =1 CIO A2,0,LCUIN DISCONNECT MODEM =1 XIF =1 CMR A7 REMOVE NETWORK ADDRESS =1 CM DTESTA,A7 CLEAR STATUS =1 ABL TDISP =1 !!RE 799,$$LEFT$$RIGHT$$ !!DL 1040,1041 ANK A1,/B WACK SENT, DB OR IR ? =2 RF(Z) RQST90 NO =2 !!DL 1332,1333 =3 !!DL 1598 =1 LDKL A5,STB =1 CF A5,CSYNCI CONNECT MODEM =1 CF A5,CHALTI NO INTERRUPTS ALLOWED =1 ABL TDISP =1 !!DL 1608 IM DTESTA,A7 SET OPEN STATUS =1 LDKL A5,STB =1 CF A5,CSYNCI PUT CU IN ACTIVE MODE =1 CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1 IM DTEPLS,A7 PRESET PHYSICAL STATUS = OK =1 ANK A2,1 MODEM OK ? =1 RF(Z) DTE:20 YES =1 CM DTEPLS,A7 INDICATE PHYSICAL ERROR =1 DTE:20 EQU * =1 LDR A1,A2 SET RETURN CODE =1 CF A15,TENDIO COMPLETE THE REQUEST =1 ABL BRM START I/P =1 !!DL 1864,1866 =2 IFT STARVI=1 =2 ANK A3,/A WACK SENT OR DB ? =2 RF(NZ) SEL140 YES =2 !!DL 1868,1874 =2 !!DL 1882 =2 IFF NOWACK=1 =2 !!DL 2851,2853 =1 !!IL 2867 RF(A) CHALTR SST ACCEPTED =1 LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 CHALTR EQU * =1 !!IL 2904 LDK A2,1 PRESET STATUS = MODEM ERROR =1 RF(NA) CHLT00 INSTRUCTION NOT ACCEPTED =1 !!IL 2907 CHLT00 EQU * !!DL 3185 =4 !!EN
0x0000…0012 (0, 0, 400) Head {h00=0x000e, h01=0x0050, text=»LED XXXX15«, t00=0x0000, t01=0x0004}
0x0012…0032 Head {h00=0x001c, h01=0x0050, text=»!!RE 0,$$01-26$$03-27$$ «, t00=0x0000, t01=0x0016}
0x0032…0040 Head {h00=0x000a, h01=0x0006, text=»!!IL 1«, t00=0x0000, t01=0x0036}
0x0040…0060 Head {h00=0x001c, h01=0x0050, text=» =4, ERROR IN POWER UP«, t00=0x0000, t01=0x0044}
0x0060…008c Head {h00=0x0028, h01=0x0050, text=» =3, DELETE INSTRUCTIONS NOT USED «, t00=0x0000, t01=0x0064}
0x008c…00b4 Head {h00=0x0024, h01=0x0020, text=» =2, CHANGES IN STATUS HANLING«, t00=0x0000, t01=0x0090}
0x00b4…00e0 Head {h00=0x0028, h01=0x0023, text=» =1, ERROR IN OPEN/CLOSE REQUESTS «, t00=0x0000, t01=0x00b8}
0x00e0…00fc Head {h00=0x0018, h01=0x0014, text=» REL 11.0 81-01-26«, t00=0x0000, t01=0x00e4}
0x00fc…010c Head {h00=0x000c, h01=0x0008, text=»!!DL 139«, t00=0x0000, t01=0x0100}
0x010c…011a Head {h00=0x000a, h01=0x0006, text=» =2«, t00=0x0000, t01=0x0110}
0x011a…012a Head {h00=0x000c, h01=0x0008, text=»!!DL 720«, t00=0x0000, t01=0x011e}
0x012a…0138 Head {h00=0x000a, h01=0x0006, text=» =1«, t00=0x0000, t01=0x012e}
0x0138…014c Head {h00=0x0010, h01=0x000c, text=»!!DL 784,785«, t00=0x0000, t01=0x013c}
0x014c…015a Head {h00=0x000a, h01=0x0006, text=» =1«, t00=0x0000, t01=0x0150}
0x015a…016a Head {h00=0x000c, h01=0x0008, text=»!!DL 788«, t00=0x0000, t01=0x015e}
0x016a…0178 Head {h00=0x000a, h01=0x0006, text=» =1«, t00=0x0000, t01=0x016e}
0x0178…01aa Head {h00=0x002e, h01=0x0050, text=» RF(Z) RQCL92 REQUEST ALREADY COMPLETED =1«, t00=0x0000, t01=0x017c}
0x01aa…01c4 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RC=0 =1 «, t00=0x0001, t01=0x001e}
0x01c4…01f4 Head {h00=0x002c, h01=0x0050, text=» CF A15,TENDIO COMPLETE CLOSE REQUEST =1«, t00=0x0001, t01=0x0038}
0x01f4…020c Head {h00=0x0014, h01=0x0050, text=»RQCL92 EQU * =1«, t00=0x0001, t01=0x0068}
0x020c…0224 Head {h00=0x0014, h01=0x0050, text=» IFT P6805=0 =1«, t00=0x0001, t01=0x0080}
0x0224…023c Head {h00=0x0014, h01=0x0050, text=» LDKL A5,STB =1«, t00=0x0001, t01=0x0098}
0x023c…0264 Head {h00=0x0024, h01=0x0050, text=» CF A5,CHALTI HALT I/P DEVICE =1«, t00=0x0001, t01=0x00b0}
0x0264…028c Head {h00=0x0024, h01=0x0020, text=» CF A5,CHALTO HALT O/P DEVICE =1«, t00=0x0001, t01=0x00d8}
0x028c…02a2 Head {h00=0x0012, h01=0x000d, text=» LDK A2,0 =1 «, t00=0x0001, t01=0x0100}
0x02a2…02ce Head {h00=0x0028, h01=0x0023, text=» CIO A2,1,LCUIN DISCONNECT MODEM =1 «, t00=0x0001, t01=0x0116}
0x02ce…02e0 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0001, t01=0x0142}
0x02e0…02f8 Head {h00=0x0014, h01=0x0050, text=» IFT P6805=1 =1«, t00=0x0001, t01=0x0154}
0x02f8…031e Head {h00=0x0022, h01=0x0050, text=» LDK A2,1 DISCONNECT ORDER =1 «, t00=0x0001, t01=0x016c}
0x031e…034a (2, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CIO A2,0,LCUIN DISCONNECT MODEM =1 «, t00=0x0002, t01=0x0004}
0x034a…035c Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0002, t01=0x0030}
0x035c…0386 Head {h00=0x0026, h01=0x0021, text=» CMR A7 REMOVE NETWORK ADDRESS =1 «, t00=0x0002, t01=0x0042}
0x0386…03ac Head {h00=0x0022, h01=0x0050, text=» CM DTESTA,A7 CLEAR STATUS =1 «, t00=0x0002, t01=0x006c}
0x03ac…03c2 Head {h00=0x0012, h01=0x000e, text=» ABL TDISP =1«, t00=0x0002, t01=0x0092}
0x03c2…03e2 Head {h00=0x001c, h01=0x0018, text=»!!RE 799,$$LEFT$$RIGHT$$«, t00=0x0002, t01=0x00a8}
0x03e2…03f8 Head {h00=0x0012, h01=0x000e, text=»!!DL 1040,1041«, t00=0x0002, t01=0x00c8}
0x03f8…0424 Head {h00=0x0028, h01=0x0023, text=» ANK A1,/B WACK SENT, DB OR IR ? =2 «, t00=0x0002, t01=0x00de}
0x0424…0440 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RQST90 NO =2 «, t00=0x0002, t01=0x010a}
0x0440…0456 Head {h00=0x0012, h01=0x000e, text=»!!DL 1332,1333«, t00=0x0002, t01=0x0126}
0x0456…0464 Head {h00=0x000a, h01=0x0006, text=» =3«, t00=0x0002, t01=0x013c}
0x0464…0476 Head {h00=0x000e, h01=0x0009, text=»!!DL 1598 «, t00=0x0002, t01=0x014a}
0x0476…0484 Head {h00=0x000a, h01=0x0006, text=» =1«, t00=0x0002, t01=0x015c}
0x0484…049c Head {h00=0x0014, h01=0x0010, text=» LDKL A5,STB =1«, t00=0x0002, t01=0x016a}
0x049c…04c2 Head {h00=0x0022, h01=0x001e, text=» CF A5,CSYNCI CONNECT MODEM =1«, t00=0x0002, t01=0x0182}
0x04c2…04f0 Head {h00=0x002a, h01=0x0050, text=» CF A5,CHALTI NO INTERRUPTS ALLOWED =1«, t00=0x0003, t01=0x0018}
0x04f0…0506 Head {h00=0x0012, h01=0x000d, text=» ABL TDISP =1 «, t00=0x0003, t01=0x0046}
0x0506…0518 Head {h00=0x000e, h01=0x0050, text=»!!DL 1608 «, t00=0x0003, t01=0x005c}
0x0518…0540 Head {h00=0x0024, h01=0x0050, text=» IM DTESTA,A7 SET OPEN STATUS =1«, t00=0x0003, t01=0x006e}
0x0540…0558 Head {h00=0x0014, h01=0x0010, text=» LDKL A5,STB =1«, t00=0x0003, t01=0x0096}
0x0558…0586 Head {h00=0x002a, h01=0x0050, text=» CF A5,CSYNCI PUT CU IN ACTIVE MODE =1«, t00=0x0003, t01=0x00ae}
0x0586…05c2 Head {h00=0x0038, h01=0x0050, text=» CF A5,CHALTI HALT I/P DEVICE TO GET MODEM STATUS =1«, t00=0x0003, t01=0x00dc}
0x05c2…05f6 Head {h00=0x0030, h01=0x0050, text=» IM DTEPLS,A7 PRESET PHYSICAL STATUS = OK =1«, t00=0x0003, t01=0x0118}
0x05f6…0616 Head {h00=0x001c, h01=0x0017, text=» ANK A2,1 MODEM OK ? =1 «, t00=0x0003, t01=0x014c}
0x0616…0632 Head {h00=0x0018, h01=0x0014, text=» RF(Z) DTE:20 YES =1«, t00=0x0003, t01=0x016c}
0x0632…0662 Head {h00=0x002c, h01=0x0050, text=» CM DTEPLS,A7 INDICATE PHYSICAL ERROR =1«, t00=0x0003, t01=0x0188}
0x0662…067a Head {h00=0x0014, h01=0x0010, text=»DTE:20 EQU * =1«, t00=0x0004, t01=0x0028}
0x067a…06a0 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 SET RETURN CODE =1 «, t00=0x0004, t01=0x0040}
0x06a0…06ce Head {h00=0x002a, h01=0x0050, text=» CF A15,TENDIO COMPLETE THE REQUEST =1«, t00=0x0004, t01=0x0066}
0x06ce…06ec Head {h00=0x001a, h01=0x0050, text=» ABL BRM START I/P =1 «, t00=0x0004, t01=0x0094}
0x06ec…0702 Head {h00=0x0012, h01=0x0050, text=»!!DL 1864,1866«, t00=0x0004, t01=0x00b2}
0x0702…0710 Head {h00=0x000a, h01=0x0006, text=» =2«, t00=0x0004, t01=0x00c8}
0x0710…072a Head {h00=0x0016, h01=0x0011, text=» IFT STARVI=1 =2 «, t00=0x0004, t01=0x00d6}
0x072a…0752 Head {h00=0x0024, h01=0x001f, text=» ANK A3,/A WACK SENT OR DB ? =2 «, t00=0x0004, t01=0x00f0}
0x0752…0770 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) SEL140 YES =2 «, t00=0x0004, t01=0x0118}
0x0770…0786 Head {h00=0x0012, h01=0x000e, text=»!!DL 1868,1874«, t00=0x0004, t01=0x0136}
0x0786…0794 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x0004, t01=0x014c}
0x0794…07a6 Head {h00=0x000e, h01=0x0009, text=»!!DL 1882 «, t00=0x0004, t01=0x015a}
0x07a6…07b4 Head {h00=0x000a, h01=0x0006, text=» =2«, t00=0x0004, t01=0x016c}
0x07b4…07ce Head {h00=0x0016, h01=0x0011, text=» IFF NOWACK=1 =2 «, t00=0x0004, t01=0x017a}
0x07ce…07e4 (5, 0, 376) Head {h00=0x0012, h01=0x0050, text=»!!DL 2851,2853«, t00=0x0005, t01=0x0004}
0x07e4…07f2 Head {h00=0x000a, h01=0x0006, text=» =1«, t00=0x0005, t01=0x001a}
0x07f2…0804 Head {h00=0x000e, h01=0x0009, text=»!!IL 2867 «, t00=0x0005, t01=0x0028}
0x0804…082a Head {h00=0x0022, h01=0x0050, text=» RF(A) CHALTR SST ACCEPTED =1 «, t00=0x0005, t01=0x003a}
0x082a…0868 Head {h00=0x003a, h01=0x0050, text=» LDK A2,1 INSTRUCTION NOT ACCEPTED, SET MODEM ERR. =1 «, t00=0x0005, t01=0x0060}
0x0868…0880 Head {h00=0x0014, h01=0x0050, text=»CHALTR EQU * =1«, t00=0x0005, t01=0x009e}
0x0880…0892 Head {h00=0x000e, h01=0x0050, text=»!!IL 2904 «, t00=0x0005, t01=0x00b6}
0x0892…08c2 Head {h00=0x002c, h01=0x0050, text=» LDK A2,1 PRESET STATUS = MODEM ERROR =1«, t00=0x0005, t01=0x00c8}
0x08c2…08f4 Head {h00=0x002e, h01=0x0050, text=» RF(NA) CHLT00 INSTRUCTION NOT ACCEPTED =1«, t00=0x0005, t01=0x00f8}
0x08f4…0906 Head {h00=0x000e, h01=0x0050, text=»!!IL 2907 «, t00=0x0005, t01=0x012a}
0x0906…091a Head {h00=0x0010, h01=0x0050, text=»CHLT00 EQU *«, t00=0x0005, t01=0x013c}
0x091a…092c Head {h00=0x000e, h01=0x0009, text=»!!DL 3185 «, t00=0x0005, t01=0x0150}
0x092c…093a Head {h00=0x000a, h01=0x0006, text=» =4«, t00=0x0005, t01=0x0162}
0x093a…0946 Head {h00=0x0008, h01=0x0004, text=»!!EN«, t00=0x0005, t01=0x0170}
0x0946…094a (6, 1, 8) Head {h00=0x2004, h01=0x0000}
0x094a…094e 00 06 00 04 ┆ ┆
0x094e…099e (7, 0, 400) 55 54 20 56 41 4c 55 45 00 06 01 7a 00 12 00 50 54 49 4d 50 4f 4c 5c 45 51 55 5c 58 3a 43 00 07 00 10 00 2a 00 50 58 3a 44 5c 45 51 55 5c 30 5c 53 54 41 54 55 53 20 41 4e 44 20 52 56 49 20 48 41 4e 44 4c 49 4e 47 20 49 46 3d 31 00 07 00 26 ┆UT VALUE z PTIMPOL EQU X:C * PX:D EQU 0 STATUS AND RVI HANDLING IF=1 &┆
0x099e…09ee 00 12 00 50 53 54 41 52 56 49 5c 45 51 55 5c 58 3a 44 00 07 00 54 00 28 00 50 58 3a 45 5c 45 51 55 5c 30 5c 52 45 41 44 20 43 4f 4d 4d 41 4e 44 20 48 41 4e 44 4c 49 4e 47 20 49 46 3d 31 00 07 00 6a 00 10 00 50 52 43 4f 4d 5c 45 51 55 5c 58 ┆ PSTARVI EQU X:D T ( PX:E EQU 0 READ COMMAND HANDLING IF=1 j PRCOM EQU X┆
0x09ee…0a3e 3a 45 00 07 00 96 00 26 00 50 58 3a 46 5c 45 51 55 5c 32 35 34 5c 54 52 41 4e 53 4d 49 54 20 42 4c 4f 43 4b 20 4c 45 4e 47 54 48 20 00 07 00 aa 00 12 00 50 54 42 4c 45 4e 5c 45 51 55 5c 58 3a 46 20 00 07 00 d4 00 28 00 50 58 3a 47 5c 45 51 ┆:E & PX:F EQU 254 TRANSMIT BLOCK LENGTH PTBLEN EQU X:F ( PX:G EQ┆
0x0a3e…0a8e 55 5c 30 5c 43 4f 44 45 20 2c 20 30 3d 41 53 43 49 49 20 2c 20 31 3d 45 42 43 44 49 43 20 00 07 00 ea 00 10 00 50 43 4f 44 45 5c 45 51 55 5c 58 3a 47 00 07 01 16 00 2a 00 50 58 3a 48 5c 45 51 55 5c 30 5c 49 46 20 31 20 53 50 45 43 49 46 49 ┆U 0 CODE , 0=ASCII , 1=EBCDIC PCODE EQU X:G * PX:H EQU 0 IF 1 SPECIFI┆
0x0a8e…0ade 43 20 50 4f 4c 4c 20 48 41 4e 44 4c 49 4e 47 20 00 07 01 2a 00 12 00 50 53 50 45 43 50 5c 45 51 55 5c 58 3a 48 20 00 07 01 58 00 2c 00 50 58 3a 49 5c 45 51 55 5c 30 5c 49 46 20 3d 20 31 20 4c 49 4e 45 20 53 50 45 45 44 20 53 45 54 20 54 4f ┆C POLL HANDLING * PSPECP EQU X:H X , PX:I EQU 0 IF = 1 LINE SPEED SET TO┆
0x0ade…0b2e (8, 0, 400) 20 48 49 47 48 20 00 07 01 6e 00 28 00 50 5c 5c 5c 49 46 20 3d 20 30 20 20 4c 49 4e 45 20 53 50 45 45 44 20 49 53 20 53 45 54 20 54 4f 20 4c 4f 57 20 00 08 00 0e 00 12 00 50 53 50 45 45 44 5c 45 51 55 5c 58 3a 49 20 00 08 00 3a 00 2a 00 50 ┆ HIGH n ( P IF = 0 LINE SPEED IS SET TO LOW PSPEED EQU X:I : * P┆
0x0b2e…0b7e 58 3a 4a 5c 45 51 55 5c 30 5c 49 46 20 31 20 53 49 45 4d 45 4e 53 20 4d 53 56 31 20 50 52 4f 43 45 44 55 52 45 20 00 08 00 50 00 10 00 50 4d 53 56 31 5c 45 51 55 5c 58 3a 4a 00 08 00 7e 00 2e 00 50 58 3a 4b 5c 45 51 55 5c 32 5c 4e 55 4d 42 ┆X:J EQU 0 IF 1 SIEMENS MSV1 PROCEDURE P PMSV1 EQU X:J ~ . PX:K EQU 2 NUMB┆
0x0b7e…0bce 45 52 20 4f 46 20 52 45 43 45 49 56 45 20 42 55 46 46 45 52 53 20 28 32 2d 35 29 20 00 08 00 92 00 12 00 50 52 42 55 46 4e 52 5c 45 51 55 5c 58 3a 4b 00 08 00 c4 00 2e 00 50 58 3a 4c 5c 45 51 55 5c 30 5c 49 46 20 3d 20 31 20 20 50 54 53 20 ┆ER OF RECEIVE BUFFERS (2-5) PRBUFNR EQU X:K . PX:L EQU 0 IF = 1 PTS ┆
0x0bce…0c1e 36 38 30 35 20 41 44 41 50 54 49 4f 4e 5c 53 41 4c 43 55 5a 00 08 00 da 00 12 00 50 50 36 38 30 35 5c 45 51 55 5c 58 3a 4c 20 00 08 01 0c 00 10 00 50 58 3a 4d 5c 45 51 55 5c 2f 30 32 20 00 08 01 22 00 10 00 50 5c 49 46 54 5c 50 36 38 30 35 ┆6805 ADAPTION SALCUZ PP6805 EQU X:L PX:M EQU /02 " P IFT P6805┆
0x0c1e…0c6e 3d 30 00 08 01 36 00 2c 00 50 4c 43 55 49 4e 5c 45 51 55 5c 58 3a 4d 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 4f 46 20 52 45 43 45 49 56 45 52 00 08 01 4a 00 08 00 50 5c 58 49 46 00 08 01 7a 00 10 00 50 5c 49 46 54 5c 50 36 38 30 35 ┆=0 6 , PLCUIN EQU X:M DEVICE ADDRESS OF RECEIVER J P XIF z P IFT P6805┆
0x0c6e…0cbe (9, 0, 400) 3d 31 00 08 01 86 00 2c 00 50 4c 43 55 49 4e 5c 45 51 55 5c 2f 30 41 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 4f 46 20 52 45 43 45 49 56 45 52 00 09 00 0a 00 08 00 50 5c 58 49 46 00 09 00 3a 00 18 00 50 5c 49 46 54 5c 50 36 38 30 35 ┆=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF : P IFT P6805┆
0x0cbe…0d0e 3d 30 5c 5c 53 41 4c 43 55 5a 00 09 00 46 00 3c 00 50 4c 43 55 55 54 5c 45 51 55 5c 4c 43 55 49 4e 2b 2f 31 30 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 4f 46 20 54 52 41 4e 53 4d 49 54 54 45 52 5c 53 41 4c 43 55 5a 00 09 00 62 00 12 ┆=0 SALCUZ F < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ b ┆
0x0d0e…0d5e 00 50 5c 58 49 46 5c 5c 5c 53 41 4c 43 55 5a 20 00 09 00 a2 00 10 00 50 5c 49 46 54 5c 50 36 38 30 35 3d 31 00 09 00 b8 00 3c 00 50 4c 43 55 55 54 5c 45 51 55 5c 4c 43 55 49 4e 2b 2f 30 31 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 4f ┆ P XIF SALCUZ P IFT P6805=1 < PLCUUT EQU LCUIN+/01 DEVICE ADDRESS O┆
0x0d5e…0dae 46 20 54 52 41 4e 53 4d 49 54 54 45 52 5c 53 41 4c 43 55 5a 00 09 00 cc 00 12 00 50 5c 58 49 46 5c 5c 5c 53 41 4c 43 55 5a 20 00 09 01 0c 00 0e 00 50 58 3a 4e 5c 45 51 55 5c 30 20 00 09 01 22 00 2e 00 50 49 42 4d 43 48 52 5c 45 51 55 5c 58 ┆F TRANSMITTER SALCUZ P XIF SALCUZ PX:N EQU 0 " . PIBMCHR EQU X┆
0x0dae…0dfe 3a 4e 5c 49 46 20 31 20 49 42 4d 20 43 48 41 52 41 43 54 45 52 20 48 41 4e 44 4c 49 4e 47 00 09 01 34 00 2e 00 50 58 3a 4f 5c 45 51 55 5c 30 5c 49 46 20 31 20 4d 45 53 53 41 47 45 20 50 41 53 53 49 4e 47 20 54 4f 20 44 43 20 54 41 53 4b 20 ┆:N IF 1 IBM CHARACTER HANDLING 4 . PX:O EQU 0 IF 1 MESSAGE PASSING TO DC TASK ┆
0x0dfe…0e4e (10, 0, 400) 00 09 01 66 00 12 00 50 4d 45 53 50 41 53 5c 45 51 55 5c 58 3a 4f 00 0a 00 08 00 34 00 50 58 3a 50 5c 45 51 55 5c 30 5c 49 42 4d 2d 33 32 37 30 20 45 4d 55 4c 41 54 49 4f 4e 20 50 41 43 4b 41 47 45 2c 20 49 46 20 4e 4f 54 20 3d 20 30 00 0a ┆ f PMESPAS EQU X:O 4 PX:P EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 ┆
0x0e4e…0e9e 00 1e 00 12 00 50 45 4d 33 32 37 30 5c 45 51 55 5c 58 3a 50 00 0a 00 56 00 0e 00 50 58 3a 51 5c 45 51 55 5c 30 20 00 0a 00 6c 00 2a 00 50 54 50 4d 4f 44 45 5c 45 51 55 5c 58 3a 51 5c 49 46 20 3d 20 31 20 54 52 41 4e 53 50 41 52 41 4e 54 20 ┆ PEM3270 EQU X:P V PX:Q EQU 0 l * PTPMODE EQU X:Q IF = 1 TRANSPARANT ┆
0x0e9e…0eee 4d 4f 44 45 00 0a 00 7e 00 0e 00 50 58 3a 52 5c 45 51 55 5c 30 20 00 0a 00 ac 00 2e 00 50 53 54 54 53 54 53 5c 45 51 55 5c 58 3a 52 5c 49 46 20 3d 20 31 20 53 54 41 54 49 53 54 49 43 53 20 49 4e 43 4c 55 44 45 44 20 00 0a 00 be 00 10 00 50 ┆MODE ~ PX:R EQU 0 . PSTTSTS EQU X:R IF = 1 STATISTICS INCLUDED P┆
0x0eee…0f3e 58 3a 53 5c 45 51 55 5c 35 30 30 20 00 0a 00 f0 00 24 00 50 54 42 55 46 4c 5c 45 51 55 5c 58 3a 53 5c 4d 4d 55 20 42 55 46 46 45 52 20 4c 45 4e 47 54 48 20 00 0a 01 04 00 2a 00 50 42 49 4e 54 52 4d 5c 45 51 55 5c 30 5c 49 46 20 31 20 42 49 ┆X:S EQU 500 $ PTBUFL EQU X:S MMU BUFFER LENGTH * PBINTRM EQU 0 IF 1 BI┆
0x0f3e…0f8e 4e 41 52 59 20 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 00 0a 01 2c 00 2c 00 50 44 4d 52 4b 5c 45 51 55 5c 30 5c 53 50 45 43 49 41 4c 20 43 4f 4e 44 49 54 49 4f 4e 20 46 4f 52 20 44 45 4e 4d 41 52 4b 00 0a 01 5a 00 34 00 50 4e 4f 57 41 43 4b ┆NARY TRANSMISSION , , PDMRK EQU 0 SPECIAL CONDITION FOR DENMARK Z 4 PNOWACK┆
0x0f8e…0fde (11, 0, 400) 5c 45 51 55 5c 30 5c 57 48 45 4e 20 57 4f 52 4b 49 4e 47 20 57 49 54 48 20 41 20 4d 41 49 4e 2d 46 52 41 4d 45 20 54 48 41 54 00 0a 01 8a 00 30 00 50 5c 5c 5c 44 4f 45 53 4e 27 54 20 41 43 43 45 50 54 20 57 41 43 4b 20 52 45 53 50 4f 4e 53 ┆ EQU 0 WHEN WORKING WITH A MAIN-FRAME THAT 0 P DOESN'T ACCEPT WACK RESPONS┆
0x0fde…102e 45 20 54 4f 20 41 20 53 45 4c 45 43 54 20 00 0b 00 32 00 30 00 50 5c 5c 5c 53 45 51 55 45 4e 43 45 2c 20 4e 4f 57 41 43 4b 20 53 48 4f 55 4c 44 20 42 45 20 53 45 54 20 54 4f 20 22 4f 4e 45 22 2e 20 00 0b 00 66 00 2c 00 50 5c 5c 5c 4f 4e 4c ┆E TO A SELECT 2 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". f , P ONL┆
0x102e…107e 59 20 57 4f 52 4b 49 4e 47 20 49 46 20 53 54 41 54 20 49 53 20 53 45 54 20 54 4f 20 22 4f 4e 45 22 2e 00 0b 00 9a 00 06 00 50 2a 20 00 0b 00 ca 00 10 00 50 5c 49 46 54 5c 53 50 45 45 44 3d 31 00 0b 00 d4 00 14 00 50 4c 53 50 45 45 44 5c 45 ┆Y WORKING IF STAT IS SET TO "ONE". P* P IFT SPEED=1 PLSPEED E┆
0x107e…10ce 51 55 5c 2f 30 32 30 30 00 0b 00 e8 00 08 00 50 5c 58 49 46 00 0b 01 00 00 10 00 50 5c 49 46 54 5c 53 50 45 45 44 3d 30 00 0b 01 0c 00 10 00 50 4c 53 50 45 45 44 5c 45 51 55 5c 30 00 0b 01 20 00 08 00 50 5c 58 49 46 00 0b 01 34 00 0a 00 50 ┆QU /0200 P XIF P IFT SPEED=0 PLSPEED EQU 0 P XIF 4 P┆
0x10ce…111e 5c 45 4a 45 43 54 00 0b 01 40 00 06 00 50 2a 20 00 0b 01 4e 00 06 00 50 2a 20 00 0b 01 58 00 2e 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 20 00 0b 01 62 ┆ EJECT @ P* N P* X . P***************************************** b┆
0x111e…116e (12, 0, 400) 00 06 00 50 2a 20 00 0c 00 04 00 1a 00 50 2a 5c 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 00 0c 00 0e 00 06 00 50 2a 20 00 0c 00 2c 00 2e 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 ┆ P* P* CONDITIONAL ASSEMBLY P* , . P**************************┆
0x116e…11be 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0c 00 36 00 06 00 50 2a 20 00 0c 00 68 00 2e 00 50 2a 5c 41 20 50 52 4f 47 52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e 47 20 54 4f 53 53 20 4d 4d 55 20 50 41 47 49 4e 47 20 00 0c 00 72 ┆*************** 6 P* h . P* A PROGRAM VERSION USING TOSS MMU PAGING r┆
0x11be…120e 00 2a 00 50 2a 5c 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 4d 4d 55 50 41 47 20 45 51 55 20 31 2e 00 0c 00 a4 00 06 00 50 2a 20 00 0c 00 d2 00 10 00 50 4d 4d 55 50 41 47 5c 45 51 55 5c 30 00 0c 00 dc 00 06 00 50 ┆ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P┆
0x120e…125e 2a 20 00 0c 00 f0 00 06 00 50 2a 20 00 0c 00 fa 00 36 00 50 2a 5c 41 20 50 52 4f 47 52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e 47 20 54 48 45 20 45 58 54 45 4e 44 45 44 20 49 4e 53 54 52 55 43 54 49 4f 4e 00 0c 01 04 00 2e 00 50 2a 5c ┆* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* ┆
0x125e…12ae 53 45 54 20 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 43 50 55 38 35 32 20 45 51 55 20 30 2e 00 0c 01 3e 00 06 00 50 2a 20 00 0c 01 70 00 10 00 50 43 50 55 38 35 32 5c 45 51 55 5c 31 00 0c 01 7a 00 06 00 50 2a 20 ┆SET IS OBTAINED BY SETTING CPU852 EQU 0. > P* p PCPU852 EQU 1 z P* ┆