|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1024 (0x400)
Notes: MEMBER_P, Member_Text
Names: »ONLPD «
└─⟦27db88c4d⟧ Bits:30009807 AS/ENTRY - S/36 SYST SUPP PROG SYST SUPP PGM 5363 DA Z250-0323-0 Refer to Memo 033109 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 011 of 011
└─⟦5f03407d3⟧
└─⟦this⟧ ».ONLPD «
*** PROCEDURE TO START ON-LINE PD *** // LOCAL AREA-USER * SPECIFY WS LDA. // LOCAL OFFSET-1,BLANK-300 * CLEAR THE LDA. // LOCAL OFFSET-84,DATA-'?WS?' * SET IN THE WS ID. // IFF DATAF1-TRACEF?WS? GOTO NODEL * DEFINE FILE FOR TRACE. // LOAD $DELET * CLEAR OLD TRACE. // RUN // SCRATCH UNIT-F1,LABEL-TRACEF?WS? // END // TAG NODEL // IF DATAF1-TRACEF?WS? GOTO WEIT * SET UP NEW TRACE FILE. // LOAD $FBLD // RUN // FILE LABEL-TRACEF?WS?,ATTRIB-S,RECL-18,RECORDS-100,LOCATION-A1,RETAIN-T, // EXTEND-50 // END // TAG WEIT // SWITCH XXXX0XXX // LOCAL OFFSET-34,DATA-'O#ONLPD PD1.SCR2' * O = ON-LINE PD, LIBRARY NAME, SCREEN KEY FILE // LOCAL OFFSET-62,DATA-'PD1.SCRNPD1.CTRL' * SCREEN AND CONTROL FILE NAMES // RESET PSP * START THE PD SCREEN DRIVER.
0x000…001 0x83
0x001…004 »***«
0x004…005 0x03
0x005…006 0x9d
0x006…023 »PROCEDURE TO START ON-LINE PD«
0x023…024 0x03
0x024…025 0x83
0x025…028 »***«
0x028…029 0x4f
0x029…02a 0x92
0x02a…03c »// LOCAL AREA-USER«
0x03c…03d 0x1f
0x03d…03e 0x91
0x03e…04f »* SPECIFY WS LDA.«
0x04f…050 0x36
0x050…051 0x9b
0x051…06c »// LOCAL OFFSET-1,BLANK-300«
0x06c…06d 0x16
0x06d…06e 0x90
0x06e…07e »* CLEAR THE LDA.«
0x07e…07f 0x37
0x07f…080 0x9e
0x080…09e »// LOCAL OFFSET-84,DATA-'?WS?'«
0x09e…09f 0x13
0x09f…0a0 0x93
0x0a0…0b3 »* SET IN THE WS ID.«
0x0b3…0b4 0x34
0x0b4…0b5 0xa3
0x0b5…0d8 »// IFF DATAF1-TRACEF?WS? GOTO NODEL«
0x0d8…0d9 0x0e
0x0d9…0da 0x98
0x0da…0f2 »* DEFINE FILE FOR TRACE.«
0x0f2…0f3 0x2f
0x0f3…0f4 0x8e
0x0f4…102 »// LOAD $DELET«
0x102…103 0x23
0x103…104 0x92
0x104…116 »* CLEAR OLD TRACE.«
0x116…117 0x35
0x117…118 0x86
0x118…11e »// RUN«
0x11e…11f 0x72
0x11f…120 0xa3
0x120…143 »// SCRATCH UNIT-F1,LABEL-TRACEF?WS?«
0x143…144 0x55
0x144…145 0x86
0x145…14b »// END«
0x14b…14c 0x72
0x14c…14d 0x8c
0x14d…159 »// TAG NODEL«
0x159…15a 0x6c
0x15a…15b 0xa1
0x15b…17c »// IF DATAF1-TRACEF?WS? GOTO WEIT«
0x17c…17d 0x10
0x17d…17e 0x98
0x17e…196 »* SET UP NEW TRACE FILE.«
0x196…197 0x2f
0x197…198 0x8d
0x198…1a5 »// LOAD $FBLD«
0x1a5…1a6 0x6b
0x1a6…1a7 0x86
0x1a7…1ad »// RUN«
0x1ad…1ae 0x72
0x1ae…1af 0xcb
0x1af…1fa »// FILE LABEL-TRACEF?WS?,ATTRIB-S,RECL-18,RECORDS-100,LOCATION-A1,RETAIN-T,«
0x1fa…1fb 0x2d
0x1fb…1fc 0x82
0x1fc…1fe »//«
0x1fe…1ff 0x0c
0x1ff…200 0x89
0x200…209 »EXTEND-50«
0x209…20a 0x61
0x20a…20b 0x86
0x20b…211 »// END«
0x211…212 0x72
0x212…213 0x8b
0x213…21e »// TAG WEIT«
0x21e…21f 0x6d
0x21f…220 0x92
0x220…232 »// SWITCH XXXX0XXX«
0x232…233 0x66
0x233…234 0xa0
0x234…254 »// LOCAL OFFSET-34,DATA-'O#ONLPD«
0x254…255 0x02
0x255…256 0x89
0x256…25f »PD1.SCR2'«
0x25f…260 0x02
0x260…261 0xaf
0x261…290 »* O = ON-LINE PD, LIBRARY NAME, SCREEN KEY FILE«
0x290…291 0x1c
0x291…292 0xaa
0x292…2bc »// LOCAL OFFSET-62,DATA-'PD1.SCRNPD1.CTRL'«
0x2bc…2bd 0x03
0x2bd…2be 0x9f
0x2be…2dd »* SCREEN AND CONTROL FILE NAMES«
0x2dd…2de 0x2c
0x2de…2df 0x8c
0x2df…2eb »// RESET PSP«
0x2eb…2ec 0x25
0x2ec…2ed 0x9d
0x2ed…30a »* START THE PD SCREEN DRIVER.«
0x30a…30b 0x2a
0x30b…30c 0x00
0x30c…320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x320…340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
[…0x6…]