|
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: 51228 (0xc81c)
Notes: pts_type(SC)
Names: »VDU.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »KJELL/VDU.SC«
IDENT VDU REL 11.0 82-07-07 870150541100 MOVE TO UNPROT, ONLY FOR P&T =37 DUP OR FM CHAR ON PRINTER =21 LOOP WHEN VDU NOT OPERABLE 82-05-17 =2 LOOP IN ERASUA 82-03-10 DK1 BAD CHECK ON ATTRIBUTE DK BAD TEST ON INTESITY =1, LINFLG AT UNFORM. 81-01-26 **************************************************************** * * * MODULE VDU * * MODULE HANDLING THE DISPLAY SCREEN AND * * BUFFER * * (EMULATION 3270 SNA/SDLC, BSC) * * * **************************************************************** EJECT *********************************************************** * * LIST OF ROUTINES * * DISMOD DISPLAY MODIFIED FIELDS * DISLIN DISPLAY LINE * SPACES MOVE SPACES INTO ECB BUFFER * INTCHK GET INTENSITY CHAR. * SETIND SET DISPLAY INDICATOR * INSMOD INSERT CHAR. * UPDCNT UPDATE COUNTERS * GETVDU GET CHAR. IN VDU BUFFER * STOVDU STORE CHAR IN VDU BUFFER * SCRINF GET SCREEN INFORMATION * STOINF STORE SCREEN INFORMATION * SOUND SOUND ALARM * WRAP CHECK IF WRAP AROUND * LINWRP CHECK IF LINE WRAP * LINE UPDATE LINE FLAG * LINATT UPDATE LINFLG AT ATTRIBUTE CHANGE * NLROUT NEW LINE ROUTINE * ERASE ERASE ENTIRE SCREEN * ERASUP ERASE ALL UNPROTECTED * ERASUA ERASE UNPROTECTED TO ADDRESS * POSUNP MOVE CURSOR TO NEXT UNPRO. POS * DISID DISPLAY HARDCOPY TASKID * DISSTA DISPLAY STATISTICS * MOVTXT MOVE TEXT * CONASC CONVERT TO ASCII * ATMASF SEARCH ATTRIBUTE FORWARD * ATMASB SEARCH ATTRIBUTE BACKWARD * SNULL SEARCH FIRST NULL CHAR. * WCHAR DISPLAY CHAR. AND CURSOR * RFMDUP REPLACE FM OR DUP CHAR. IF ANY * DISCHA DISPLAY CHAR. * ***************************************************************** EJECT ******************************************************************** * * * ENTRY POINTS * * * ******************************************************************** ENTRY INSMOD INSERT CHARACTER ENTRY GETVDU GET CHAR. FROM VDU BUFFER ENTRY STOVDU STORE CHAR. IN VDU BUFFER ENTRY SCRINF GET SCREEN INFORMATION ENTRY STOINF SAVE SCREEN INFORMATION ENTRY POSUNP MOVE TO NEXT UNPROTECTED POS. ENTRY ATMASB SEARCH ATTRIBUTE BACKWARDS ENTRY ATMASF SEARCH ATTRIBUTE FOREWARD ENTRY DISCHA DISPLAY CHAR. ENTRY WCHAR DISPLAY CHAR. AND CURSOR ENTRY DISMOD DISPLAY MODIFIED FIELDS ENTRY DISID DISPLAY HARDCOPY TASKID ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS ENTRY ERASE ERASE ENTIRE SCREEN ENTRY SOUND SOUND ALARM ON VDU ENTRY ERASUP ERASE ALL UNPROTECTED ENTRY WRAP CHECK IF WRAP AROUND ENTRY NLROUT NEW LINE ROUTINE ENTRY LINWRP CHECK LINE WRAP ENTRY LINE UPDATE LINE FLAG ENTRY LINATT UPADTE ENTRY DISSTA DISPLAY STATISTICS ENTRY RFMDUP REPLACE FM OR DUP CHAR =37 EJECT ******************************************************************** * * * EXTERNAL REFERENCES * * * ******************************************************************** EXTRN TAB TAB UNPROCTECTED FOREWARD (KEYB) EXTRN CRDOWN MOVE CURSOR UNPROTECTED NEXT LINE (KEYB) EXTRN RDHOME UNPROTECTED FIRST ON SCREEN (KEYB) EXTRN SAVE1 SAVE REGISTERS (PAD) EXTRN REST1 RESTORE REGISTERS (PAD) EJECT ********************************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ********************************************************************* X:I EQU 1 INSERT/DELETE HANDLING IN:DL EQU 1 X:O EQU 0 TEST INCLUDED IF:=1 TEST EQU 0 EJECT *************************************************************** * * * DECLARATIONS OF DATA AND EQUATES * * *************************************************************** * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD * * SPECIAL CHARACTERS * NULL EQU 0 NULL CHAR. NEWLIN EQU /0A NEW LINE CHAR. FORMFD EQU /0C FORM FEED CHAR. ENDMES EQU /19 END MESSAGE CHAR. DUPCH EQU /1C DUPLICATE CHAR. FMCH EQU /1E FIELD MARK CHAR. * * TASK IDENTIFICATION CODE * VDUCOD EQU 'VV' VDU KB TASK * * INTERNAL STATUS * LINUPD EQU /0001 LINE UPDATED ATTREC EQU /0002 ATTRIBUTE RECEIVED * * VDU SCREEN SIZE * LLINE EQU 80 LINE LENGTH LBVDU EQU 1920 TOTAL SIZE IFT TEST=1 * * STAT. LAYOUT * NUMLIN EQU 13 NUMBER OF LINES YO DISPLAY STALIN EQU 5 STARTING LINE OF DISPLAY STAPOS EQU 5 STARTTING POS ON LINE TXTSIZ EQU 15 SIZE OF PERMANENT TEXT INDEX DATA /0102,/0405,/0608,/090A,/0C0E,/1D1E,/1F00 XIF EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * TCT01 EQU 0 TASK IDENTIFICATION BVDU EQU TCT01+2 SCREEN BUFFER LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS PCURS EQU LINFLG+24 CURSOR ADDRESS ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR CURATT EQU ATTRIB+2 WCC EQU CURATT+2 WCC/CCC CHARACTER INTATT EQU WCC+8 INTENSITY ATTRIBUTE REGI EQU INTATT+32 WORK REGISTER ECBVDU EQU REGI+40 * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * IDTEXT EQU 2 IDENT TEXT LAYOUT IFT TEST=1 STATXT EQU IDTEXT+22 STATISTIC TEXT LAYOUT XIF EJECT ********************************************************* * * * DISMOD DISPLAY MODIFIED FIELDS * * * ********************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ADDRESS IN ECB * A7= INDEX IN ECB * A8= VDU ECB * A9= INTENSITY COUNTER * A10= INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** DISMOD EQU * LD A8,ECBVDU,A11 LDKL A1,/101 LINE 1 POS. 1 ST A1,ECBCW,A8 SUR A9,A9 RESET INTENSITY COUNTER SUR A10,A10 LDKL A3,BVDU ADR A3,A11 CF A14,SCRINF LDK A4,0 FIRST SCREEN POS. DK CF A14,SPACES SPACES IN ECB BUFFER ST A5,REGI,A11 LDKL A1,LBVDU+1 LDR A5,A11 CW A1,REGI,A11 RF(NE) DIS100 NO LDK A2,0 LOW INTENSITY ST A2,INTATT,A11 DIS100 EQU * LDR A10,A10 RF(NZ) DIS900 CF A14,INTCHK CHECK INTENSITY CHAR. LDR A1,A10 SUR A10,A10 LDR A1,A1 RF(N) DIS800 NONDISPLAY RF(NZ) DIS400 DISPLAY LINE LD A2,ECBCW,A8 NO MODIFICATION CWK A2,/1901 ALLDISPLAYED RB(NE) DIS100 NO RF DIS900 DIS400 EQU * CWK A7,LLINE LINE COMPLETED? RF(L) DIS500 NO CF A14,DISLIN DISPLAY LINE RB DIS100 DIS500 EQU * LCR A2,A3 GET CHAR. IN VDU-BUFFER CF A14,SETIND SET SPACE INDICATOR CCK A2,/8000 ATTRIBUTE? RF(NL) DIS700 YES CF A14,UPDCNT UPDATE COUNTERS CWK A2,NULL NULL CHAR.? RB(E) DIS400 YES CWK A2,NEWLIN NEW LINE CHAR.? RB(E) DIS400 YES CWK A2,ENDMES END MESSAGE CHAR.? RB(E) DIS400 YES CWK A2,FORMFD FORM FEED CHAR.? RB(E) DIS400 YES CF A14,RFMDUP REPLACE DUP AND FM CHAR. SC A2,-1,A6 STORE CHAR. IN ECB BUFFER RB DIS400 DIS700 EQU * ST A2,INTATT,A11 LDR A1,A2 ANK A1,8 LOW INTENSITY? RF(Z) DIS725 YES ANK A2,4 HIGH INTENSITY? RF(Z) DIS715 YES CF A14,UPDCNT UPDATE COUNTERS RF DIS800 NONDISPLAY DIS715 EQU * LDK A2,/1F HIGH RF DIS750 DIS725 EQU * LDK A2,/1E LOW DIS750 EQU * SCR A2,A6 SAVE CHAR. IN ECB BUFFER ADKL A9,1 CF A14,UPDCNT UPDATE COUNTERS ADK A6,1 RB DIS400 DIS800 EQU * CWK A7,LLINE LINE COMPLETED? RF(L) DIS850 NO CF A14,DISLIN DISPLAY LINE RB DIS100 DIS850 EQU * LCR A2,A3 GET CHAR. IN VDU-BUFFER CCK A2,/8000 ATTRIBUTE? RB(NL) DIS700 YES CF A14,UPDCNT UPDATE COUNTERS RB DIS800 DIS900 EQU * CF A14,SCRINF GET SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RTN A14 EJECT *********************************************************** * * * DISLIN DISPLAY LINE ON VDU * * * *********************************************************** * REGISTERS * * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= ECB VDU * A9= INTENSITY COUNTER * A10= INDICATOR * A11= RESERVED * A13= RESERVED * *********************************************************** DISLIN EQU * LDK A7,2 REQ. LENGTH LDR A1,A10 ANKL A1,1 ONLY SPACES? RF(Z) DISL10 YES LDKL A7,LLINE+2 REQ. LENGTH ADR A7,A9 ADD NUMBER OF INTENSITY CHAR. DISL10 EQU * ST A7,ECBRL,A8 LD A2,ECBCW,A8 SAVE CURSOR POS =21 LDKL A7,/8B SET CURSOR AND WRITE LKM DATA 1 LD A1,ECBRC,A8 . =21 ANK A1,1 NOT OPERABLE? =21 RF(Z) DISL20 VDU OPERABLE =21 ST A2,ECBCW,A8 NOT OP. REST CURSOR POS =21 RF DISL90 TERMINATE VDU LINE =21 DISL20 EQU * . =21 LD A1,ECBCW,A8 GET CURSOR POS. ANK A1,/FF SUK A1,81 LAST POS. ON LINE DISPLAYED? RF(Z) DISL90 YES LD A6,ECBBA,A8 LDK A2,/2B SC A2,1,A6 LDKL A2,/1420 SC A2,3,A6 SRL A2,8 SC A2,2,A6 LDK A2,84 ST A2,ECBRL,A8 LDK A7,/86 WRITE LKM DATA 1 DISL90 EQU * ADK A5,1 LDK A2,1 FIRST POS. ON LINE SC A2,ECBCW+1,A8 LDKL A2,/100 MOVE ONE LINE DOWN ADS A2,ECBCW,A8 SUR A10,A10 LD A2,ECBCW,A8 CWK A2,/1901 END OF SCREEN RF(NE) DISL95 NO LDKL A10,1 DISL95 EQU * CF A14,SPACES MOVE SPACES TO ECB BUFFER RTN A14 EJECT ************************************************************ * * * SPACES MOVE SPACES TO ECB BUFFER * * * ************************************************************ * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= ADDRESS IN ECB BUFFER * A7= INDEX IN ECB * A8= VDU ECB * A9= INTENSITY COUNTER * A10= INDICATOR * A11= RESERVED * A13= RESERVED * ************************************************************ SPACES EQU * LD A6,ECBBA,A8 GET BUFFER ADDRESS ADK A6,2 LDK A7,LLINE LINE LENGTH ADR A7,A7 BUFFER LENGTH LDKL A2,' ' SPACES SPAC10 EQU * SCR A2,A6 SC A2,1,A6 ADK A6,2 SUK A7,2 WHOLE BUFFER SPACED? RB(P) SPAC10 NO LDK A2,0 CHAR. LD A6,ECBBA,A8 BUFFER ADDRESS ADK A6,2 LDK A7,0 RESET CHAR. COUNTER RTN A14 EJECT ********************************************************* * * * INTCHK GET INTENSITY CHAR. * * * ********************************************************* * REGISTERS * * A2= CHAR. * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= ADDRESS IN ECB BUFFER * A7= RESERVED * A8= RESERVED * A9= INTENSITY COUNTER * A10= INDICATOR * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************ INTCHK EQU * SUR A9,A9 RESET INTENSITY COUNTER LC A2,LINFLG,A5 GET LINE FLAG ANK A2,1 MODIFIED? RF(NZ) INT100 YES ADK A3,LLINE NEXT LINE ADK A4,LLINE ADK A5,1 LDK A2,1 SC A2,ECBCW+1,A8 LDKL A2,/100 ADS A2,ECBCW,A8 LDKL A10,0 RF INT900 INT100 EQU * LC A2,LINFLG,A5 ANK A2,2 SC A2,LINFLG,A5 LDKL A10,1 LD A2,REGI,A11 CWK A2,LBVDU+1 UNFORMATTED SCREEN? RF(E) INT200 YES CF A14,SAVE1 LDR A1,A4 CF A14,SCRINF LDR A2,A5 LDR A3,A6 CF A14,ATMASB GET CURRENT ATTRIBUTE ST A6,INTATT,A11 LDR A5,A2 LDR A6,A3 CF A14,STOINF CF A14,REST1 LDK A7,0 INT200 EQU * LD A2,INTATT,A11 LDR A1,A2 ANK A1,8 LOW INTENSITY? RF(Z) INT300 YES ANK A2,4 HIGH INTENSITY? RF(NZ) INT800 NO, NONDISPLAY LDK A2,/1F HIGH RF INT400 INT300 EQU * LDK A2,/1E LOW INT400 EQU * SCR A2,A6 SAVE IN ECB BUFFER ADK A6,1 ADKL A9,1 RF INT900 INT800 EQU * LDKL A10,/8000 INT900 EQU * RTN A14 EJECT ************************************************ * * * SETIND SET DISPLAY INDICATOR * * * ************************************************ * REGISTERS * * A2= CHAR * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= RESERVED * A8= RESERVED * A9= RESERVED * A10= DISPLAY INDICATOR * A11= RESERVED * A13= RESERVED * ********************************** SETIND EQU * CWK A2,NULL NULL CHAR? RF(E) SETI90 YES ORKL A10,1 INDICATE NOT ONLY SPACES SETI90 EQU * RTN A14 EJECT **************************************************************** * * * INSMOD INSERT CHARACTER * * * **************************************************************** * REGISTERS * * A1= AT RETURN 0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED * A2= RESERVED * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * *************************************************************** INSMOD EQU * IFT IN:DL=1 LDR A1,A4 CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,NULL NULL CHAR.? RF(NE) INS100 NO LDK A1,0 INDICATE NULL IN CURSOR POS. RF INS900 INS100 EQU * LDR A3,A4 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) INS200 YES LDR A8,A6 SAVE OLD LDR A9,A5 SAVE OLD CF A14,ATMASF SEARCH ATTRIBUTE FORWARD LDR A3,A5 ST A8,ATTRIB,A11 RESTORE ST A9,CURATT,A11 RESTORE LDR A6,A8 LDR A5,A9 INS200 EQU * CF A14,SNULL SEARCH FIRST NULL ANK A1,2 NULL FOUND? RF(Z) INS300 YES LDK A1,2 INDICATE ERROR RF INS900 INS300 EQU * CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) INS350 YES ORK A6,1 SET MDT-BIT ON IN ATTRIBUTE ST A6,ATTRIB,A11 LDR A1,A5 LDR A7,A6 CF A14,STOVDU SAVE NEW ATTRIBUTE IN VDU-BUFFER INS350 EQU * LDR A1,A3 ST A4,REGI,A11 LDR A4,A1 LDK A5,LLINE LDR A6,A11 SUR A10,A10 LDR A9,A1 CF A14,LINE UPDATE LINE FLAG LDR A1,A9 INS400 EQU * CWK A1,0 CHAR TO MOVE IN LAST SCREEN POS? RF(E) INS500 YES SUK A1,1 CF A14,GETVDU GET CHAR IN VDU BUFFER ADK A1,1 LDR A9,A1 LDK A5,LLINE LDR A6,A11 CF A14,LINE LDR A1,A9 LC A9,LINFLG,A6 ORKL A9,1 SC A9,LINFLG,A6 CF A14,STOVDU STORE CHAR IN VDU BUFFER SUK A1,1 SUK A4,1 INS450 EQU * CW A1,REGI,A11 ALL SHIFTED? RF(E) INS600 YES RB INS400 INS500 EQU * LDKL A1,LBVDU-1 GET LAST CHAR CF A14,GETVDU GET CHAR IN VDU BUFFER LDK A1,0 LDK A4,0 LDR A9,A1 LDK A5,LLINE LDR A6,A11 CF A14,LINE LDR A1,A9 LC A9,LINFLG,A6 ORKL A9,1 SC A9,LINFLG,A6 CF A14,STOVDU STORE CHAR IN VDU BUFFER LDKL A1,LBVDU-1 LAST SCREEN POS. LDKL A4,LBVDU-1 RB INS450 INS600 EQU * LDR A7,A2 GET KEY-CHAR CF A14,STOVDU STORE CHAR IN VDU BUFFER LDK A5,LLINE LDR A6,A11 CF A14,LINE LC A9,LINFLG,A6 ORKL A9,1 SC A9,LINFLG,A6 IM PCURS,A11 MOVE CURSOR LD A4,REGI,A11 ADK A4,1 CWK A4,LBVDU-1 WRAP AROUND? RF(NG) INS700 NO LDK A4,0 FIRST POS. ON SCREEN CM PCURS,A11 INS700 EQU * CF A14,DISMOD DISPLAY MODIFIED FIELD LDK A1,1 INDICATE NORMAL INSERT INS900 EQU * RTN A14 XIF EJECT ********************************************************* * * * UPDCNT UPDATE COUNTERS * * * ********************************************************* * REGISTERS * * A3= ADDRESS IN VDU BUFFER * A4= REL CURSOR POS * A5= RESERVED * A6= ADDRESS IN ECB * A7= INDEX IN ECB * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= RESERVED * A13= RESERVED * ********************************************************* UPDCNT EQU * ADK A3,1 ADK A4,1 ADK A6,1 ADK A7,1 RTN A14 EJECT **************************************************************** * * * GETVDU GET CHAR. IN VDU BUFFER * * * **************************************************************** * REGISTERS * * A1= REL. POS IN VDU BUFFER * A2= RESERVED * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= CHAR. FROM VDU BUFFER * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************** GETVDU EQU * LDKL A7,BVDU ADR A7,A11 ADR A7,A1 LCR A7,A7 ANK A7,/FF RTN A14 EJECT ************************************************************** * * * STOVDU STORE CHAR. IN VDU BUFFER * * * ************************************************************** * REGISTERS * * A1= REL. POS. IN VDU BUFFER * A2= RESERVED * A3= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A7= CHAR. TO STORE IN VDU BUFFER * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************** STOVDU EQU * LDKL A8,BVDU ADR A8,A11 ADR A8,A1 SCR A7,A8 RTN A14 EJECT ******************************************************** * * * SCRINF GET SCREEN INFORMATION * * * ******************************************************** * REGISTERS * * A2= RESERVED * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* SCRINF EQU * LD A4,PCURS,A11 GET CURSOR POS. LD A5,CURATT,A11 GET ATTRIBUTE POS. LD A6,ATTRIB,A11 GET ATTRIBUTE CHAR. RTN A14 EJECT ******************************************************** * * * STOINF STORE SCREEN INFORMATION * * * ******************************************************** * REGISTERS * * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************** STOINF EQU * ST A4,PCURS,A11 ST A5,CURATT,A11 ST A6,ATTRIB,A11 RTN A14 EJECT ******************************************************* * * * SOUND SOUND ALARM ON VDU * * * ******************************************************* * REGISTERS * * A1= RETURN CODE * A8= ECBVDU * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* SOUND EQU * LD A8,ECBVDU,A11 LD A1,ECBBA,A8 LDK A2,/2B CONTROL CHAR. SC A2,1,A1 LDK A2,/07 BELL CHAR. SC A2,2,A1 LDK A2,3 REQ. LENGTH ST A2,ECBRL,A8 LDK A7,/86 LKM DATA 1 LD A1,ECBRC,A8 GET RETURN CODE RTN A14 EJECT ***************************************************** * * * WRAP CHECK IF WRAP AROUND * * * ***************************************************** * REGISTERS * * A2= RESERVED * A3= ADDRESS IN VDU BUFFER * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A7= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** WRAP EQU * CWK A4,LBVDU WRAP AROUND RF(L) WRAP90 NO LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 WRAP90 EQU * RTN A14 EJECT ************************************************************ * * * LINWRP CHECK LINE WRAP * * * ************************************************************ * REGISTERS * * A3= RESERVED * A4= REL CURSOR POS * A5= LAST IN ROW REL POS * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= RESERVED * A13= RESERVED * *********************************************************** LINWRP EQU * CWR A5,A4 END OF LINE? RF(G) LINW10 NO CF A14,LINE UPDATE LINE FLAG LINW10 EQU * RTN A14 EJECT ************************************************************ * * * LINE UPDATE LINE FLAG * * * ************************************************************* * REGISTERS * * A3= ADDRESS IN VDU BUFFER * A4= REL CURSOR POS * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= RESERVED * A10= RESERFED * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** LINE EQU * CWR A5,A4 THIS LINE? RF(G) LIN400 YES,MAYBE LDR A1,A10 ANK A1,ATTREC ATTRIBUTE RECEIVED? RF(Z) LIN100 NO LC A1,LINFLG,A6 ORK A1,2 SC A1,LINFLG,A6 LIN100 EQU * SUR A6,A11 ADK A6,1 UPDATE ADDRESS CWK A6,23 WRAP SCREEN? RF(G) LIN300 YES ADK A5,LLINE ADR A6,A11 RB LINE LIN300 EQU * LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 LDR A6,A11 LDK A5,LLINE LIN400 EQU * SUR A5,A4 CWK A5,81 RF(L) LIN500 THIS LINE LDK A5,LLINE LDR A6,A11 RB LINE LIN500 EQU * ADR A5,A4 RESTORE RTN A14 EJECT ************************************************************* * * * LINATT UPADTE LINFLG AT ATTRIBUTE CHANGE * * * ************************************************************* * REGISTERS * * A3= ADDRESS IN VDU BUFFER * A4= REL CURSOR POS * A5= LAST IN ROW REL POS * A6= INTERNAL LINE FLAG ADDRESS * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************** LINATT EQU * CF A14,SAVE1 SUR A6,A11 LDK A2,0 LDR A10,A4 . =1 LINA10 EQU * ADK A4,1 ADK A3,1 CWR A5,A4 END OF LINE? RF(G) LINA30 NO ADR A6,A11 LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 SUR A6,A11 ADK A6,1 CWK A6,23 WRAP AROUND? RF(G) LINA20 YES ADK A5,LLINE RF LINA30 LINA20 EQU * LDK A6,0 LDK A4,0 LDKL A3,BVDU ADR A3,A11 LDK A5,LLINE LINA30 EQU * CWR A4,A10 ALL CHECKED? =1 RF(E) LINA40 YES =1 LCR A2,A3 CWK A2,/80 ATTRIBUTE RB(NG) LINA10 YES LINA40 EQU * . =1 CF A14,REST1 RTN A14 EJECT *********************************************************** * * * NLROUT NEW LINE ROUTINE * * * *********************************************************** * REGISTERS * * A3= ADDRES IN VDU BUFFER * A4= REL CURSOR POS * A5= RESERVED * A6= RESERVED * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= RESERVED * A13= RESERVED * *********************************************************** NLROUT EQU * LDR A1,A4 SAVE CURSOR POS. CF A14,CRDOWN MOVE CURSOR ON E LINE DOWN LDK A7,0 NLR100 EQU * SUK A4,LLINE COMPUTE LEFTMOST POS. RF(N) NLR200 ADK A7,LLINE RB NLR100 NLR200 EQU * LDR A4,A1 LDK A2,NULL NLR300 EQU * CWR A7,A4 ALL NULLED? RF(E) NLR900 YES SCR A2,A3 NULL IN VDU BUFFER LC A1,LINFLG,A6 ORKL A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 CF A14,LINWRP RB NLR300 NLR900 EQU * RTN A14 EJECT ******************************************************************** * * * ERASE ERASE ENTIRE SCREEN * * * ******************************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR ADDRESS * A5= REL ATTRIBUTE POS * A6= ATTRIBUTE CHAR * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************* ERASE EQU * LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 LDK A2,NULL STORE NULL CHAR. ERAS10 EQU * CWK A4,LBVDU+24 WHOLE SCREEN NULLED? RF(NL) ERAS20 YES SCR A2,A3 STORE CHAR. ADK A3,1 ADK A4,1 RB ERAS10 ERAS20 EQU * LDK A4,0 FIRST SCREEN POS. LDKL A5,LBVDU+1 UNFORMATTED SCREEN LDK A6,0 CF A14,STOINF SAVE SCREEN INFORMATION LC A1,TCT01,A11 CCK A1,VDUCOD PRINTER UNPACK? RF(NE) ERAS30 YES LD A8,ECBVDU,A11 LDK A2,'1' ERASE CHAR. LD A1,ECBBA,A8 SC A2,1,A1 LDK A1,2 REQ. LENGTH ST A1,ECBRL,A8 LDK A7,/86 WRITE LKM DATA 1 ERAS30 EQU * RTN A14 EJECT ********************************************************* * * * ERASUP ERASE ALL UNPROTECTED * * * ********************************************************* * REGISTERS * * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= INTERNAL LINE FLAG ADDRESS * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************* ERASUP EQU * LDK A1,2 RESTORE KEYBOARD-BIT ST A1,WCC,A11 LDK A4,0 FIRST SCREEN POS. LDKL A3,BVDU ADR A3,A11 LDK A7,NULL STORE NULL CHAR. CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(NE) ERUP10 NO CF A14,ERASE RF ERUP90 ERUP10 EQU * LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RF(NL) ERUP20 YES ADK A3,1 ADK A4,1 RB ERUP10 ERUP20 EQU * LDR A9,A4 FIRST ATTRIBUTE POS. LDK A5,LLINE LDR A6,A11 SUR A10,A10 CF A14,LINE RF ERUP47 ERUP30 EQU * ADK A3,1 ADK A4,1 CF A14,LINWRP CHECK IF LINWRP AROUND LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RB(L) ERUP30 NO ERUP45 EQU * CWR A9,A4 ALL SCANNED? RF(E) ERUP70 YES ERUP47 EQU * LDR A1,A2 ANK A1,/20 PROTECTED? RB(NZ) ERUP30 YES ANK A2,/FE RESET MDT-BIT SCR A2,A3 SAVE ATTRIBUTE LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 ERUP50 EQU * CF A14,LINWRP CHECK IF LINWRP AROUND LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RB(NL) ERUP45 YES SCR A7,A3 STORE NULL CHAR. IN VDU BUFFER LC A1,LINFLG,A6 ORK A1,1 SC A1,LINFLG,A6 ADK A3,1 ADK A4,1 RB ERUP50 ERUP70 EQU * CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN ERUP90 EQU * RTN A14 EJECT **************************************************************** * * ERASUA ERASE UNPROTECTED TO ADDRESS * * * **************************************************************** * REGISTERS * * A1= STOP ADDRESS * A2= CHAR. * A3= ADDRESS IN VDU-BUFFER * A4= REL. CURSOR POS. * A5= REL ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A7= NULL CHAR. * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************************** ERASUA EQU * LDK A7,NULL STORE NULL CHAR. LDKL A3,BVDU ADR A3,A11 ADR A3,A4 BUFFER POS. CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) ERUA47 YES LDR A2,A6 GET CURRENT ATTRIBUTE CWR A5,A4 STANDING ON ATTRIBUTE? RF(NE) ERUA10 NO ADK A3,1 ADK A4,1 CWR A1,A4 ALL NULLED? RF(E) ERUA70 YES CF A14,WRAP CHECK IF WRAP AROUND ERUA10 EQU * ANK A2,/20 PROTECTED FIELD? RF(Z) ERUA47 NO ERUA30 EQU * CF A14,WRAP CHECK IF WRAP AROUND CWR A1,A4 ALL NULLED? =2 RF(E) ERUA70 YES =2 LCR A2,A3 GET CHAR. ADK A3,1 ADK A4,1 . =2 CCK A2,/8000 ATTRIBUTE? RB(L) ERUA30 NO ERUA45 EQU * LDR A8,A2 ANKL A8,/20 PROTECTED? RB(NZ) ERUA30 YES ERUA47 EQU * LDR A6,A11 LDK A5,LLINE LDR A8,A1 CF A14,LINE LDR A1,A8 RF ERUA60 ERUA50 EQU * LDR A8,A1 CF A14,LINWRP LDR A1,A8 CWR A1,A4 ALL NULLED? RF(E) ERUA70 YES ERUA60 EQU * LCR A2,A3 GET CHAR. CCK A2,/8000 ATTRIBUTE? RF(L) ERUA62 NO =3 ANK A2,/20 PROTECTED? =3 RB(NZ) ERUA30 YES =3 RF ERUA64 =3 ERUA62 EQU * =3 SCR A7,A3 STORE NULL CHAR, IN VDU-BUFFER LC A8,LINFLG,A6 ORKL A8,1 SC A8,LINFLG,A6 ERUA64 EQU * =3 ADK A3,1 ADK A4,1 RB ERUA50 ERUA70 EQU * RTN A14 EJECT ********************************************************** * * * POSUNP MOVE CURSOR TO NEXT UNPR. POS. * * * ********************************************************** * REGISTERS * * A2= RESERVED * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************************** POSUNP EQU * CWK A4,LBVDU-1 WRAP AROUND? RF(NG) POSU20 NO LDK A4,0 FIRST POS. ON SCREEN ST A4,PCURS,A11 POSU20 EQU * LDR A1,A4 CF A14,GETVDU GET CHAR IN VDU BUFFER CCK A7,/8000 ATTRIBUTE? RF(L) POSU30 NO LDR A6,A7 ANK A7,/20 CWK A7,/20 PROTECTED? DKPT RF(E) POSU25 YES LDR A5,A1 IM PCURS,A11 MOVE CURSOR ADK A4,1 CWK A4,LBVDU-1 WRAP AROUND? RF(NG) POSU23 NO LDK A4,0 POSU23 EQU * CF A14,STOINF SAVE SCREEN INFORMATION LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR RF POSU30 POSU25 EQU * CF A14,TAB TAB NEXT UNPROTECTED FIELD POSU30 EQU * LD A8,ECBVDU,A11 LD A1,ECBCW,A8 ANK A1,/FF LINE POS. SUK A1,81 LAST POS. ON LINE? RF(NZ) POSU90 NO LDK A1,2 REQ. LENGTH CF A14,DISCHA SET CURSOR POSU90 EQU * RTN A14 EJECT ************************************************************ * * * DISID DISPLAY HARDCOPY TASKID * * * ************************************************************ * REGISTERS * * ************************************************************ DISID EQU * LD A8,ECBVDU,A11 CF A14,SPACES SPACE IN ECB BUFFER LD A3,6,A13 GET COMMON BLOCK BASE LDR A1,A5 SAVE TASK ID LDK A5,IDTEXT ADR A5,A3 POINT ON IDBUFFER ADK A6,46 LDK A3,6 ANK A4,1 PRINTER OPERABLE? RF(Z) DISI10 YES ADK A3,16 DISI10 EQU * SUK A3,2 MOVE INTO ECBBUFFER RF(N) DISI20 COMPLETED LDR* A2,A5 STR A2,A6 ADK A5,2 ADK A6,2 RB DISI10 DISI20 EQU * LD A6,ECBBA,A8 ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER LC A2,X'1F' HIGH INTENSITY CHAR. SC A2,ECBBA+45,A6 LDKL A10,1 INDICATE NOT ONLY SPACES LDKL A9,1 1 INTENSITY CHAR. LDKL A2,X'1801' DISPLAY ON LAST ROW ST A2,ECBCW,A8 CF A14,DISLIN DISPLAY IDENT TEXT RTN A14 EJECT ************************************************************** * * DISSTA DISPLAY STATISTICS * *************************************************************** * REGISTERS * * *************************************************************** DISSTA EQU * IFT TEST=1 LD A8,ECBVDU,A11 LDK A1,STALIN WHERE TO START SLL A1,8 LDK A2,1 ORR A2,A1 FIRST POS. ON THAT LINE ST A2,ECBCW,A8 CF A14,SPACES CLEAN THE BUFFER LDK A5,0 RESET INDEX LD A3,6,A13 ADK A3,STATXT POINT TO TEXT DISS10 EQU * LDK A2,/1F HIGH INTENSITY SCR A2,A6 ADK A6,1 LDKL A9,1 LDK A1,TXTSIZ GET SIZE OF TEXT PER LINE CF A14,MOVTXT MOVE IT IN TO BUFFER ADK A6,5+STAPOS MAKE SOME ROOM LC A1,INDEX,A5 SLL A1,1 ADR A1,A12 POINT OUT STAT VALUE LCR A2,A1 CF A14,CONASC MAKE IT VISABLE LDR A4,A2 LCR A2,A1 SRL A2,4 CF A14,CONASC SLL A2,8 ORR A2,A4 SC A2,+1,A6 SRL A2,8 SCR A2,A6 ADK A6,2 LC A2,+1,A1 CF A14,CONASC AS ABOVE LDR A4,A2 LC A2,+1,A1 SRL A2,4 CF A14,CONASC SLL A2,8 ORR A2,A4 SC A2,+1,A6 SRL A2,8 SCR A2,A6 LDKL A10,1 NOT ONLY SPACES CF A14,DISLIN DISPLAY STAT. CWK A5,NUMLIN LIMIT REACHED? RB(NE) DISS10 NO XIF RTN A14 IFT TEST=1 EJECT *********************************************************** * * MOVTXT MOVE TEXT * *********************************************************** * REGISTERS * * ********************************************************** MOVTXT EQU * LCR A2,A3 ADK A3,1 SC A2,STAPOS,A6 ADK A6,1 SUK A1,1 RB(NZ) MOVTXT RTN A14 EJECT ********************************************************** * * CONASC CONVERT TO ASCII * ******************************************************** * REGISTERS * * ******************************************************** CONASC EQU * ANK A2,/0F CCK A2,/0909 RF(G) CONA10 ORK A2,/30 RF CONA90 CONA10 EQU * ADK A2,/37 CONA90 EQU * RTN A14 XIF EJECT ********************************************************* * * * ATMASF SEARCH ATTRIBUTE FORWARD * * * ********************************************************* * REGISTERS * * A1= AT ENTRY START SEARCH ADDRESS * A2= RESERVED * A3= RESERVED * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************* ATMASF EQU * ST A1,REGI,A11 ASF100 EQU * ADK A1,1 CWK A1,LBVDU-1 WRAP AROUND? RF(NG) ASF200 NO LDK A1,0 FIRST POS. ON SCREEN ASF200 EQU * CW A1,REGI,A11 WHOLE SCREEN SEARCHED? RF(E) ASF900 YES CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/8000 ATTRIBUTE? RB(L) ASF100 NO LDR A6,A7 LDR A5,A1 CF A14,STOINF SAVE NEW SCREEN INFORMATION ASF900 EQU * RTN A14 EJECT *********************************************************************** * * * ATMASB SEARCH ATTRIBUTE BACKWARD * * * *********************************************************************** * REGISTERS * * A1= ATENTRY START SEARCH ADDR. * A2= RESERVED * A3= RESERVED * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A8= RESERVED * A9= RESERVED * A10= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************************ ATMASB EQU * ST A1,REGI,A11 ASB100 EQU * CF A14,GETVDU GET CHAR. IN VDU BUFFER CCK A7,/8000 ATTRIBUTE? RF(NL) ASB300 YES SUK A1,1 RF(NN) ASB200 NOT WRAP AROUND LDKL A1,LBVDU-1 LAST POS. ON SCREEN ASB200 EQU * CW A1,REGI,A11 WHOLE SCREEN SEARCHED? RF(E) ASB900 YES RB ASB100 ASB300 EQU * LDR A6,A7 LDR A5,A1 CF A14,STOINF SAVE SCREEN INFORMATION ASB900 EQU * RTN A14 EJECT *************************************************************** * * * SNULL SEARCH FIRST NULL CHAR. * * * *************************************************************** * REGISTERS * * A1= AT RETURN 1=NULL FOUND, 2=NO NULL FOUND * A2= RESERVED * A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY * A4= REL. CURSOR POS. * A5= RESERVED * A6= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * **************************************************************** SNULL EQU * LDR A1,A4 SNU100 EQU * ADK A1,1 CWK A1,LBVDU-1 WRAP AROUND? RF(NG) SNU200 NO LDK A1,0 FIRST SCREEN POS. SNU200 EQU * CWR A1,A3 ALL SEARCHED? RF(E) SNU300 YES CF A14,GETVDU GET CHAR IN VDU BUFFER CCK A7,NULL NULL CHAR? RB(NE) SNU100 NO LDR A3,A1 LDK A1,1 INDICATE NULL FOUND RF SNU900 SNU300 EQU * LDK A1,2 SNU900 EQU * RTN A14 EJECT ************************************************************ * * * WCHAR DISPLAY CHAR. AND CURSOR * * * ************************************************************ * REGISTERS * * A2= KEY-CHAR * A4= REL. CURSOR POS. * A5= REL. ATTRIBUTE POS. * A6= ATTRIBUTE CHAR. * A8= VDU-ECB * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************* WCHAR EQU * LD A8,ECBVDU,A11 LDK A1,/1E LOW INTENSITY CHAR. LDR A7,A6 ANK A7,/8 STANDARD DISPLAY? RF(Z) WCH300 YES LDR A7,A6 ANK A7,/4 INTENSIFIED DISPLAY? RF(NZ) WCH200 NO LDK A1,/1F HIGH INTENSITY CHAR. RF WCH300 WCH200 EQU * LDK A2,/20 NONDISPLAY WCH300 EQU * LD A7,ECBBA,A8 GET BUFFER ADDRESS SC A1,2,A7 SAVE INTENSITY CHAR. CF A14,RFMDUP REPLACE FM OR DUP CHAR. SC A2,3,A7 STORE CHAR. IN VDU BUFFER LDK A1,4 REQ. LENGTH CF A14,DISCHA DISPLAY ADK A4,1 IM PCURS,A11 CWK A5,LBVDU+1 UNFORMATTED SCREEN? RF(E) WCH900 YES ORK A6,1 SET MDT-BITS IN ATTRIBUTE ST A6,ATTRIB,A11 LDR A1,A5 LDR A7,A6 CF A14,STOVDU STORE CHAR. IN VDU BUFFER WCH900 EQU * RTN A14 EJECT ********************************************************* * * * RFMDUP REPLACE FM OR DUP CHAR IF PRESENT * * * ********************************************************* * REGISTERS * A2= KEY-CHAR * A4= RESERVED * A5= RESERVED * A6= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * *********************************************** RFMDUP EQU * CWK A2,DUPCH DUP CHAR? RF(NE) RFMD10 NO LDK A2,/2A REPLACE RF RFMD90 RFMD10 EQU * CWK A2,FMCH FM CHAR? RF(NE) RFMD90 NO LDK A2,/3B REPLACE RFMD90 EQU * RTN A14 EJECT ************************************************ * * * DISCHA DISPLAY CHAR * * * ************************************************ * REGISTERS * * A1= REQ. LENGTH * A2= RESERVED * A4= RESERVED * A5= RESERVED * A6= RESERVED * A8= VDU-ECB * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************* DISCHA EQU * LC A2,TCT01,A11 CCK A2,VDUCOD PRINTER UNPACK? RF(NE) DISC95 YES LD A8,ECBVDU,A11 ST A1,ECBRL,A8 LDKL A1,/101 START AT LINE 1 POS. 1 ST A1,ECBCW,A8 LDKL A1,/100 LDR A7,A4 CURSOR POS. DISC10 EQU * CWK A7,LLINE NEXT LINE? RF(L) DISC90 NO ADS A1,ECBCW,A8 MOVE TO NEXT LINE SUKL A7,LLINE RB DISC10 DISC90 EQU * ADS A7,ECBCW,A8 POSITION IN LINE LDK A7,/8B SET CURSOR AND WRITE LKM DATA 1 DISC95 EQU * RTN A14 END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT VDU REL 11.0 82-07-07 870150541100 «, t00=0x0000, t01=0x0004}
0x0032…005a Head {h00=0x0024, h01=0x0050, text=» MOVE TO UNPROT, ONLY FOR P&T «, t00=0x0000, t01=0x0036}
0x005a…0062 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x005e}
0x0062…008a Head {h00=0x0024, h01=0x0050, text=» =37 DUP OR FM CHAR ON PRINTER«, t00=0x0000, t01=0x0066}
0x008a…00b4 Head {h00=0x0026, h01=0x0050, text=» =21 LOOP WHEN VDU NOT OPERABLE «, t00=0x0000, t01=0x008e}
0x00b4…00c8 Head {h00=0x0010, h01=0x0050, text=» 82-05-17 «, t00=0x0000, t01=0x00b8}
0x00c8…00e4 Head {h00=0x0018, h01=0x0050, text=» =2 LOOP IN ERASUA«, t00=0x0000, t01=0x00cc}
0x00e4…00f8 Head {h00=0x0010, h01=0x0050, text=» 82-03-10 «, t00=0x0000, t01=0x00e8}
0x00f8…011e Head {h00=0x0022, h01=0x0050, text=» DK1 BAD CHECK ON ATTRIBUTE «, t00=0x0000, t01=0x00fc}
0x011e…0140 Head {h00=0x001e, h01=0x0050, text=» DK BAD TEST ON INTESITY«, t00=0x0000, t01=0x0122}
0x0140…0160 Head {h00=0x001c, h01=0x0050, text=» =1, LINFLG AT UNFORM.«, t00=0x0000, t01=0x0144}
0x0160…0174 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0164}
0x0174…01bc Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0000, t01=0x0178}
0x01bc…0204 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0030}
0x0204…024c Head {h00=0x0044, h01=0x0050, text=»* MODULE VDU *«, t00=0x0001, t01=0x0078}
0x024c…0294 Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE DISPLAY SCREEN AND *«, t00=0x0001, t01=0x00c0}
0x0294…02dc Head {h00=0x0044, h01=0x0050, text=»* BUFFER *«, t00=0x0001, t01=0x0108}
0x02dc…0324 Head {h00=0x0044, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) *«, t00=0x0001, t01=0x0150}
0x0324…036c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0008}
0x036c…03b4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0002, t01=0x0050}
0x03b4…03c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0098}
0x03c2…0406 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0002, t01=0x00a6}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…042a Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0002, t01=0x00f4}
0x042a…0434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010e}
0x0434…046a Head {h00=0x0032, h01=0x0050, text=»* DISMOD DISPLAY MODIFIED FIELDS «, t00=0x0002, t01=0x0118}
0x046a…0494 Head {h00=0x0026, h01=0x0050, text=»* DISLIN DISPLAY LINE«, t00=0x0002, t01=0x014e}
0x0494…04ce Head {h00=0x0036, h01=0x0050, text=»* SPACES MOVE SPACES INTO ECB BUFFER «, t00=0x0002, t01=0x0178}
0x04ce…0500 Head {h00=0x002e, h01=0x0050, text=»* INTCHK GET INTENSITY CHAR. «, t00=0x0003, t01=0x0022}
0x0500…0534 Head {h00=0x0030, h01=0x0050, text=»* SETIND SET DISPLAY INDICATOR «, t00=0x0003, t01=0x0054}
0x0534…055e Head {h00=0x0026, h01=0x0050, text=»* INSMOD INSERT CHAR.«, t00=0x0003, t01=0x0088}
0x055e…058c Head {h00=0x002a, h01=0x0050, text=»* UPDCNT UPDATE COUNTERS «, t00=0x0003, t01=0x00b2}
0x058c…05c2 Head {h00=0x0032, h01=0x0050, text=»* GETVDU GET CHAR. IN VDU BUFFER «, t00=0x0003, t01=0x00e0}
0x05c2…05f8 Head {h00=0x0032, h01=0x0050, text=»* STOVDU STORE CHAR IN VDU BUFFER«, t00=0x0003, t01=0x0116}
0x05f8…062c Head {h00=0x0030, h01=0x0050, text=»* SCRINF GET SCREEN INFORMATION«, t00=0x0003, t01=0x014c}
0x062c…0662 Head {h00=0x0032, h01=0x0050, text=»* STOINF STORE SCREEN INFORMATION«, t00=0x0003, t01=0x0180}
0x0662…068c Head {h00=0x0026, h01=0x0050, text=»* SOUND SOUND ALARM «, t00=0x0004, t01=0x0026}
0x068c…06be Head {h00=0x002e, h01=0x0050, text=»* WRAP CHECK IF WRAP AROUND«, t00=0x0004, t01=0x0050}
0x06be…06ee Head {h00=0x002c, h01=0x0050, text=»* LINWRP CHECK IF LINE WRAP«, t00=0x0004, t01=0x0082}
0x06ee…071c Head {h00=0x002a, h01=0x0050, text=»* LINE UPDATE LINE FLAG«, t00=0x0004, t01=0x00b2}
0x071c…075c Head {h00=0x003c, h01=0x0050, text=»* LINATT UPDATE LINFLG AT ATTRIBUTE CHANGE «, t00=0x0004, t01=0x00e0}
0x075c…078a Head {h00=0x002a, h01=0x0050, text=»* NLROUT NEW LINE ROUTINE«, t00=0x0004, t01=0x0120}
0x078a…07bc Head {h00=0x002e, h01=0x0050, text=»* ERASE ERASE ENTIRE SCREEN «, t00=0x0004, t01=0x014e}
0x07bc…07f0 Head {h00=0x0030, h01=0x0050, text=»* ERASUP ERASE ALL UNPROTECTED «, t00=0x0004, t01=0x0180}
0x07f0…082a Head {h00=0x0036, h01=0x0050, text=»* ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0005, t01=0x0024}
0x082a…0866 Head {h00=0x0038, h01=0x0050, text=»* POSUNP MOVE CURSOR TO NEXT UNPRO. POS«, t00=0x0005, t01=0x005e}
0x0866…089c Head {h00=0x0032, h01=0x0050, text=»* DISID DISPLAY HARDCOPY TASKID «, t00=0x0005, t01=0x009a}
0x089c…08cc Head {h00=0x002c, h01=0x0050, text=»* DISSTA DISPLAY STATISTICS«, t00=0x0005, t01=0x00d0}
0x08cc…08f4 Head {h00=0x0024, h01=0x0050, text=»* MOVTXT MOVE TEXT «, t00=0x0005, t01=0x0100}
0x08f4…0922 Head {h00=0x002a, h01=0x0050, text=»* CONASC CONVERT TO ASCII«, t00=0x0005, t01=0x0128}
0x0922…0958 Head {h00=0x0032, h01=0x0050, text=»* ATMASF SEARCH ATTRIBUTE FORWARD«, t00=0x0005, t01=0x0156}
0x0958…0990 Head {h00=0x0034, h01=0x0050, text=»* ATMASB SEARCH ATTRIBUTE BACKWARD «, t00=0x0005, t01=0x018c}
0x0990…09c6 Head {h00=0x0032, h01=0x0050, text=»* SNULL SEARCH FIRST NULL CHAR. «, t00=0x0006, t01=0x0034}
0x09c6…09fc Head {h00=0x0032, h01=0x0050, text=»* WCHAR DISPLAY CHAR. AND CURSOR«, t00=0x0006, t01=0x006a}
0x09fc…0a38 Head {h00=0x0038, h01=0x0050, text=»* RFMDUP REPLACE FM OR DUP CHAR. IF ANY«, t00=0x0006, t01=0x00a0}
0x0a38…0a64 Head {h00=0x0028, h01=0x0050, text=»* DISCHA DISPLAY CHAR. «, t00=0x0006, t01=0x00dc}
0x0a64…0a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0108}
0x0a6e…0ab8 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0006, t01=0x0112}
0x0ab8…0ac6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x015c}
0x0ac6…0b12 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0006, t01=0x016a}
0x0b12…0b5e Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0026}
0x0b5e…0baa Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x0007, t01=0x0072}
0x0baa…0bf6 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00be}
0x0bf6…0c42 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0007, t01=0x010a}
0x0c42…0c4a Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0156}
0x0c4a…0c70 Head {h00=0x0022, h01=0x0050, text=» ENTRY INSMOD INSERT CHARACTER«, t00=0x0007, t01=0x015e}
0x0c70…0ca0 Head {h00=0x002c, h01=0x0050, text=» ENTRY GETVDU GET CHAR. FROM VDU BUFFER «, t00=0x0007, t01=0x0184}
0x0ca0…0cd0 Head {h00=0x002c, h01=0x0050, text=» ENTRY STOVDU STORE CHAR. IN VDU BUFFER «, t00=0x0008, t01=0x0024}
0x0cd0…0cfc Head {h00=0x0028, h01=0x0050, text=» ENTRY SCRINF GET SCREEN INFORMATION«, t00=0x0008, t01=0x0054}
0x0cfc…0d2a Head {h00=0x002a, h01=0x0050, text=» ENTRY STOINF SAVE SCREEN INFORMATION «, t00=0x0008, t01=0x0080}
0x0d2a…0d5e Head {h00=0x0030, h01=0x0050, text=» ENTRY POSUNP MOVE TO NEXT UNPROTECTED POS. «, t00=0x0008, t01=0x00ae}
0x0d5e…0d8e Head {h00=0x002c, h01=0x0050, text=» ENTRY ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x0008, t01=0x00e2}
0x0d8e…0dbe Head {h00=0x002c, h01=0x0050, text=» ENTRY ATMASF SEARCH ATTRIBUTE FOREWARD «, t00=0x0008, t01=0x0112}
0x0dbe…0de2 Head {h00=0x0020, h01=0x0050, text=» ENTRY DISCHA DISPLAY CHAR. «, t00=0x0008, t01=0x0142}
0x0de2…0e10 Head {h00=0x002a, h01=0x0050, text=» ENTRY WCHAR DISPLAY CHAR. AND CURSOR «, t00=0x0008, t01=0x0166}
0x0e10…0e3e (9, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ENTRY DISMOD DISPLAY MODIFIED FIELDS «, t00=0x0009, t01=0x0004}
0x0e3e…0e6a Head {h00=0x0028, h01=0x0050, text=» ENTRY DISID DISPLAY HARDCOPY TASKID«, t00=0x0009, t01=0x0032}
0x0e6a…0e9c Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0009, t01=0x005e}
0x0e9c…0ec4 Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0009, t01=0x0090}
0x0ec4…0eec Head {h00=0x0024, h01=0x0050, text=» ENTRY SOUND SOUND ALARM ON VDU «, t00=0x0009, t01=0x00b8}
0x0eec…0f18 Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0009, t01=0x00e0}
0x0f18…0f40 Head {h00=0x0024, h01=0x0050, text=» ENTRY WRAP CHECK IF WRAP AROUND«, t00=0x0009, t01=0x010c}
0x0f40…0f66 Head {h00=0x0022, h01=0x0050, text=» ENTRY NLROUT NEW LINE ROUTINE«, t00=0x0009, t01=0x0134}
0x0f66…0f8c Head {h00=0x0022, h01=0x0050, text=» ENTRY LINWRP CHECK LINE WRAP «, t00=0x0009, t01=0x015a}
0x0f8c…0fb0 Head {h00=0x0020, h01=0x0050, text=» ENTRY LINE UPDATE LINE FLAG«, t00=0x0009, t01=0x0180}
0x0fb0…0fcc Head {h00=0x0018, h01=0x0050, text=» ENTRY LINATT UPADTE«, t00=0x000a, t01=0x0014}
0x0fcc…0ff4 Head {h00=0x0024, h01=0x0050, text=» ENTRY DISSTA DISPLAY STATISTICS«, t00=0x000a, t01=0x0030}
0x0ff4…1024 Head {h00=0x002c, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM OR DUP CHAR =37«, t00=0x000a, t01=0x0058}
0x1024…102c Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0088}
0x102c…103a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0090}
0x103a…1086 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x000a, t01=0x009e}
0x1086…10d2 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00ea}
0x10d2…111e Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x000a, t01=0x0136}
0x111e…116a Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0182}
0x116a…11b6 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x000b, t01=0x003e}
0x11b6…11be Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x008a}
0x11be…11f2 Head {h00=0x0030, h01=0x0050, text=» EXTRN TAB TAB UNPROCTECTED FOREWARD (KEYB) «, t00=0x000b, t01=0x0092}
0x11f2…1230 Head {h00=0x003a, h01=0x0050, text=» EXTRN CRDOWN MOVE CURSOR UNPROTECTED NEXT LINE (KEYB)«, t00=0x000b, t01=0x00c6}
0x1230…1268 Head {h00=0x0034, h01=0x0050, text=» EXTRN RDHOME UNPROTECTED FIRST ON SCREEN (KEYB)«, t00=0x000b, t01=0x0104}
0x1268…1292 Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE1 SAVE REGISTERS (PAD) «, t00=0x000b, t01=0x013c}
0x1292…12be Head {h00=0x0028, h01=0x0050, text=» EXTRN REST1 RESTORE REGISTERS (PAD)«, t00=0x000b, t01=0x0166}
0x12be…12cc (12, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0004}
0x12cc…12d4 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0012}
0x12d4…12dc Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x001a}
0x12dc…132a Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000c, t01=0x0022}
0x132a…1378 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0070}
0x1378…13c6 Head {h00=0x004a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000c, t01=0x00be}
0x13c6…1414 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x000c, t01=0x010c}
0x1414…1462 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000c, t01=0x015a}
0x1462…146a Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0018}
0x146a…1492 Head {h00=0x0024, h01=0x0050, text=»X:I EQU 1 INSERT/DELETE HANDLING«, t00=0x000d, t01=0x0020}
0x1492…14a6 Head {h00=0x0010, h01=0x0050, text=»IN:DL EQU 1 «, t00=0x000d, t01=0x0048}
0x14a6…14cc Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000d, t01=0x005c}
0x14cc…14de Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000d, t01=0x0082}
0x14de…14ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0094}
0x14ec…1534 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000d, t01=0x00a2}
0x1534…157c Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000d, t01=0x00ea}
0x157c…15a6 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000d, t01=0x0132}
0x15a6…15ee Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000d, t01=0x015c}
0x15ee…1636 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000e, t01=0x0014}
0x1636…163e Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x005c}
0x163e…1648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0064}
0x1648…1670 Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x000e, t01=0x006e}
0x1670…167a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0096}
0x167a…169c Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000e, t01=0x00a0}
0x169c…16c0 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000e, t01=0x00c2}
0x16c0…16e4 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000e, t01=0x00e6}
0x16e4…1704 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000e, t01=0x010a}
0x1704…1726 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x000e, t01=0x012a}
0x1726…1730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014c}
0x1730…174c Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x000e, t01=0x0156}
0x174c…1756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0172}
0x1756…1774 Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x000e, t01=0x017c}
0x1774…179a Head {h00=0x0022, h01=0x0050, text=»NEWLIN EQU /0A NEW LINE CHAR. «, t00=0x000f, t01=0x000a}
0x179a…17c0 Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /0C FORM FEED CHAR.«, t00=0x000f, t01=0x0030}
0x17c0…17e8 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /19 END MESSAGE CHAR.«, t00=0x000f, t01=0x0056}
0x17e8…180e Head {h00=0x0022, h01=0x0050, text=»DUPCH EQU /1C DUPLICATE CHAR. «, t00=0x000f, t01=0x007e}
0x180e…1834 Head {h00=0x0022, h01=0x0050, text=»FMCH EQU /1E FIELD MARK CHAR. «, t00=0x000f, t01=0x00a4}
0x1834…183e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ca}
0x183e…1860 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x000f, t01=0x00d4}
0x1860…186a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f6}
0x186a…188e Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x000f, t01=0x0100}
0x188e…1898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0124}
0x1898…18b2 Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x000f, t01=0x012e}
0x18b2…18bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0148}
0x18bc…18e2 Head {h00=0x0022, h01=0x0050, text=»LINUPD EQU /0001 LINE UPDATED «, t00=0x000f, t01=0x0152}
0x18e2…190e Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x000f, t01=0x0178}
0x190e…1918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0014}
0x1918…1932 Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x0010, t01=0x001e}
0x1932…193c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0038}
0x193c…195c Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x0010, t01=0x0042}
0x195c…197e Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x0010, t01=0x0062}
0x197e…1992 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0010, t01=0x0084}
0x1992…199c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0098}
0x199c…19b2 Head {h00=0x0012, h01=0x0050, text=»* STAT. LAYOUT«, t00=0x0010, t01=0x00a2}
0x19b2…19bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b8}
0x19bc…19ec Head {h00=0x002c, h01=0x0050, text=»NUMLIN EQU 13 NUMBER OF LINES YO DISPLAY«, t00=0x0010, t01=0x00c2}
0x19ec…1a1a Head {h00=0x002a, h01=0x0050, text=»STALIN EQU 5 STARTING LINE OF DISPLAY «, t00=0x0010, t01=0x00f2}
0x1a1a…1a44 Head {h00=0x0026, h01=0x0050, text=»STAPOS EQU 5 STARTTING POS ON LINE«, t00=0x0010, t01=0x0120}
0x1a44…1a70 Head {h00=0x0028, h01=0x0050, text=»TXTSIZ EQU 15 SIZE OF PERMANENT TEXT«, t00=0x0010, t01=0x014a}
0x1a70…1aac Head {h00=0x0038, h01=0x0050, text=»INDEX DATA /0102,/0405,/0608,/090A,/0C0E,/1D1E,/1F00«, t00=0x0010, t01=0x0176}
0x1aac…1ab8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0022}
0x1ab8…1ac6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x002e}
0x1ac6…1ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003c}
0x1ad0…1af0 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0011, t01=0x0046}
0x1af0…1b0c Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0011, t01=0x0066}
0x1b0c…1b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0082}
0x1b16…1b3e Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0011, t01=0x008c}
0x1b3e…1b64 Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0011, t01=0x00b4}
0x1b64…1b94 Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0011, t01=0x00da}
0x1b94…1bbe Head {h00=0x0026, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS«, t00=0x0011, t01=0x010a}
0x1bbe…1bec Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0011, t01=0x0134}
0x1bec…1c08 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0011, t01=0x0162}
0x1c08…1c32 Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0011, t01=0x017e}
0x1c32…1c5e Head {h00=0x0028, h01=0x0050, text=»INTATT EQU WCC+8 INTENSITY ATTRIBUTE«, t00=0x0012, t01=0x0018}
0x1c5e…1c86 Head {h00=0x0024, h01=0x0050, text=»REGI EQU INTATT+32 WORK REGISTER«, t00=0x0012, t01=0x0044}
0x1c86…1ca0 Head {h00=0x0016, h01=0x0050, text=»ECBVDU EQU REGI+40«, t00=0x0012, t01=0x006c}
0x1ca0…1caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0086}
0x1caa…1cca Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0012, t01=0x0090}
0x1cca…1ce4 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0012, t01=0x00b0}
0x1ce4…1cee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ca}
0x1cee…1d14 Head {h00=0x0022, h01=0x0050, text=»IDTEXT EQU 2 IDENT TEXT LAYOUT«, t00=0x0012, t01=0x00d4}
0x1d14…1d28 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0012, t01=0x00fa}
0x1d28…1d5a Head {h00=0x002e, h01=0x0050, text=»STATXT EQU IDTEXT+22 STATISTIC TEXT LAYOUT«, t00=0x0012, t01=0x010e}
0x1d5a…1d66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0140}
0x1d66…1d74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x014c}
0x1d74…1db6 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0012, t01=0x015a}
0x1db6…1df8 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0013, t01=0x000c}
0x1df8…1e3a Head {h00=0x003e, h01=0x0050, text=»* DISMOD DISPLAY MODIFIED FIELDS * «, t00=0x0013, t01=0x004e}
0x1e3a…1e7c Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0013, t01=0x0090}
0x1e7c…1ebe Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0013, t01=0x00d2}
0x1ebe…1ed2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0013, t01=0x0114}
0x1ed2…1edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0128}
0x1edc…1ef0 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0013, t01=0x0132}
0x1ef0…1f14 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0013, t01=0x0146}
0x1f14…1f32 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0013, t01=0x016a}
0x1f32…1f54 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0013, t01=0x0188}
0x1f54…1f70 Head {h00=0x0018, h01=0x0050, text=»* A6= ADDRESS IN ECB«, t00=0x0014, t01=0x001a}
0x1f70…1f8a Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0014, t01=0x0036}
0x1f8a…1fa0 Head {h00=0x0012, h01=0x0050, text=»* A8= VDU ECB «, t00=0x0014, t01=0x0050}
0x1fa0…1fc0 Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0014, t01=0x0066}
0x1fc0…1fd8 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0014, t01=0x0086}
0x1fd8…1ff8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0014, t01=0x009e}
0x1ff8…2010 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0014, t01=0x00be}
0x2010…201a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d6}
0x201a…2058 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0014, t01=0x00e0}
0x2058…206c Head {h00=0x0010, h01=0x0050, text=»DISMOD EQU *«, t00=0x0014, t01=0x011e}
0x206c…2086 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0014, t01=0x0132}
0x2086…20aa Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/101 LINE 1 POS. 1 «, t00=0x0014, t01=0x014c}
0x20aa…20c2 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0014, t01=0x0170}
0x20c2…20ec Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET INTENSITY COUNTER«, t00=0x0014, t01=0x0188}
0x20ec…2100 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0015, t01=0x0022}
0x2100…2116 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0015, t01=0x0036}
0x2116…212a Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0015, t01=0x004c}
0x212a…2140 Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0015, t01=0x0060}
0x2140…2166 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. DK«, t00=0x0015, t01=0x0076}
0x2166…2192 Head {h00=0x0028, h01=0x0050, text=» CF A14,SPACES SPACES IN ECB BUFFER «, t00=0x0015, t01=0x009c}
0x2192…21aa Head {h00=0x0014, h01=0x0050, text=» ST A5,REGI,A11 «, t00=0x0015, t01=0x00c8}
0x21aa…21c2 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x0015, t01=0x00e0}
0x21c2…21d6 Head {h00=0x0010, h01=0x0050, text=» LDR A5,A11 «, t00=0x0015, t01=0x00f8}
0x21d6…21ee Head {h00=0x0014, h01=0x0050, text=» CW A1,REGI,A11 «, t00=0x0015, t01=0x010c}
0x21ee…2208 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DIS100 NO «, t00=0x0015, t01=0x0124}
0x2208…2228 Head {h00=0x001c, h01=0x0050, text=» LDK A2,0 LOW INTENSITY «, t00=0x0015, t01=0x013e}
0x2228…2242 Head {h00=0x0016, h01=0x0050, text=» ST A2,INTATT,A11 «, t00=0x0015, t01=0x015e}
0x2242…2256 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0015, t01=0x0178}
0x2256…226a Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0015, t01=0x018c}
0x226a…2280 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DIS900«, t00=0x0016, t01=0x0010}
0x2280…22ac Head {h00=0x0028, h01=0x0050, text=» CF A14,INTCHK CHECK INTENSITY CHAR.«, t00=0x0016, t01=0x0026}
0x22ac…22c0 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0016, t01=0x0052}
0x22c0…22d4 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0016, t01=0x0066}
0x22d4…22e6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0016, t01=0x007a}
0x22e6…2306 Head {h00=0x001c, h01=0x0050, text=» RF(N) DIS800 NONDISPLAY«, t00=0x0016, t01=0x008c}
0x2306…232a Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DIS400 DISPLAY LINE «, t00=0x0016, t01=0x00ac}
0x232a…2352 Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBCW,A8 NO MODIFICATION «, t00=0x0016, t01=0x00d0}
0x2352…2374 Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1901 ALLDISPLAYED«, t00=0x0016, t01=0x00f8}
0x2374…238e Head {h00=0x0016, h01=0x0050, text=» RB(NE) DIS100 NO «, t00=0x0016, t01=0x011a}
0x238e…23a0 Head {h00=0x000e, h01=0x0050, text=» RF DIS900«, t00=0x0016, t01=0x0134}
0x23a0…23b4 Head {h00=0x0010, h01=0x0050, text=»DIS400 EQU *«, t00=0x0016, t01=0x0146}
0x23b4…23da Head {h00=0x0022, h01=0x0050, text=» CWK A7,LLINE LINE COMPLETED? «, t00=0x0016, t01=0x015a}
0x23da…23f2 Head {h00=0x0014, h01=0x0050, text=» RF(L) DIS500 NO«, t00=0x0016, t01=0x0180}
0x23f2…2416 Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY LINE «, t00=0x0017, t01=0x0008}
0x2416…2428 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x0017, t01=0x002c}
0x2428…243c Head {h00=0x0010, h01=0x0050, text=»DIS500 EQU *«, t00=0x0017, t01=0x003e}
0x243c…2466 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR. IN VDU-BUFFER«, t00=0x0017, t01=0x0052}
0x2466…2490 Head {h00=0x0026, h01=0x0050, text=» CF A14,SETIND SET SPACE INDICATOR«, t00=0x0017, t01=0x007c}
0x2490…24b0 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x00a6}
0x24b0…24ca Head {h00=0x0016, h01=0x0050, text=» RF(NL) DIS700 YES«, t00=0x0017, t01=0x00c6}
0x24ca…24f0 Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0017, t01=0x00e0}
0x24f0…2510 Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x0017, t01=0x0106}
0x2510…252a Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0017, t01=0x0126}
0x252a…2550 Head {h00=0x0022, h01=0x0050, text=» CWK A2,NEWLIN NEW LINE CHAR.?«, t00=0x0017, t01=0x0140}
0x2550…256a Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0017, t01=0x0166}
0x256a…2594 Head {h00=0x0026, h01=0x0050, text=» CWK A2,ENDMES END MESSAGE CHAR.? «, t00=0x0017, t01=0x0180}
0x2594…25ae Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0018, t01=0x001a}
0x25ae…25d6 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FORMFD FORM FEED CHAR.? «, t00=0x0018, t01=0x0034}
0x25d6…25f0 Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0018, t01=0x005c}
0x25f0…2620 Head {h00=0x002c, h01=0x0050, text=» CF A14,RFMDUP REPLACE DUP AND FM CHAR. «, t00=0x0018, t01=0x0076}
0x2620…264e Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A6 STORE CHAR. IN ECB BUFFER«, t00=0x0018, t01=0x00a6}
0x264e…2660 Head {h00=0x000e, h01=0x0050, text=» RB DIS400«, t00=0x0018, t01=0x00d4}
0x2660…2674 Head {h00=0x0010, h01=0x0050, text=»DIS700 EQU *«, t00=0x0018, t01=0x00e6}
0x2674…268e Head {h00=0x0016, h01=0x0050, text=» ST A2,INTATT,A11 «, t00=0x0018, t01=0x00fa}
0x268e…26a0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0018, t01=0x0114}
0x26a0…26c0 Head {h00=0x001c, h01=0x0050, text=» ANK A1,8 LOW INTENSITY?«, t00=0x0018, t01=0x0126}
0x26c0…26da Head {h00=0x0016, h01=0x0050, text=» RF(Z) DIS725 YES «, t00=0x0018, t01=0x0146}
0x26da…26fc Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 HIGH INTENSITY? «, t00=0x0018, t01=0x0160}
0x26fc…2716 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DIS715 YES «, t00=0x0018, t01=0x0182}
0x2716…273c Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0019, t01=0x000c}
0x273c…275a Head {h00=0x001a, h01=0x0050, text=» RF DIS800 NONDISPLAY «, t00=0x0019, t01=0x0032}
0x275a…276e Head {h00=0x0010, h01=0x0050, text=»DIS715 EQU *«, t00=0x0019, t01=0x0050}
0x276e…2786 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0019, t01=0x0064}
0x2786…2798 Head {h00=0x000e, h01=0x0050, text=» RF DIS750«, t00=0x0019, t01=0x007c}
0x2798…27ac Head {h00=0x0010, h01=0x0050, text=»DIS725 EQU *«, t00=0x0019, t01=0x008e}
0x27ac…27c4 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1E LOW «, t00=0x0019, t01=0x00a2}
0x27c4…27d8 Head {h00=0x0010, h01=0x0050, text=»DIS750 EQU *«, t00=0x0019, t01=0x00ba}
0x27d8…2804 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A6 SAVE CHAR. IN ECB BUFFER «, t00=0x0019, t01=0x00ce}
0x2804…2816 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x00fa}
0x2816…283c Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0019, t01=0x010c}
0x283c…284e Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0019, t01=0x0132}
0x284e…2860 Head {h00=0x000e, h01=0x0050, text=» RB DIS400«, t00=0x0019, t01=0x0144}
0x2860…2874 Head {h00=0x0010, h01=0x0050, text=»DIS800 EQU *«, t00=0x0019, t01=0x0156}
0x2874…289a Head {h00=0x0022, h01=0x0050, text=» CWK A7,LLINE LINE COMPLETED? «, t00=0x0019, t01=0x016a}
0x289a…28b2 Head {h00=0x0014, h01=0x0050, text=» RF(L) DIS850 NO«, t00=0x0019, t01=0x0190}
0x28b2…28d6 Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY LINE «, t00=0x001a, t01=0x0018}
0x28d6…28e8 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x001a, t01=0x003c}
0x28e8…28fc Head {h00=0x0010, h01=0x0050, text=»DIS850 EQU *«, t00=0x001a, t01=0x004e}
0x28fc…2926 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR. IN VDU-BUFFER«, t00=0x001a, t01=0x0062}
0x2926…2946 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x001a, t01=0x008c}
0x2946…2960 Head {h00=0x0016, h01=0x0050, text=» RB(NL) DIS700 YES«, t00=0x001a, t01=0x00ac}
0x2960…2986 Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x001a, t01=0x00c6}
0x2986…2998 Head {h00=0x000e, h01=0x0050, text=» RB DIS800«, t00=0x001a, t01=0x00ec}
0x2998…29ac Head {h00=0x0010, h01=0x0050, text=»DIS900 EQU *«, t00=0x001a, t01=0x00fe}
0x29ac…29da Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001a, t01=0x0112}
0x29da…29f8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x001a, t01=0x0140}
0x29f8…2a1a Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x001a, t01=0x015e}
0x2a1a…2a2a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0180}
0x2a2a…2a38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0190}
0x2a38…2a7c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001b, t01=0x000e}
0x2a7c…2ac0 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x001b, t01=0x0052}
0x2ac0…2b04 Head {h00=0x0040, h01=0x0050, text=»* DISLIN DISPLAY LINE ON VDU * «, t00=0x001b, t01=0x0096}
0x2b04…2b48 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x001b, t01=0x00da}
0x2b48…2b8c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001b, t01=0x011e}
0x2b8c…2ba0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x0162}
0x2ba0…2baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0176}
0x2baa…2bc0 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x001b, t01=0x0180}
0x2bc0…2bd6 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x001c, t01=0x0008}
0x2bd6…2bec Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x001c, t01=0x001e}
0x2bec…2c02 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x001c, t01=0x0034}
0x2c02…2c18 Head {h00=0x0012, h01=0x0050, text=»* A8= ECB VDU «, t00=0x001c, t01=0x004a}
0x2c18…2c38 Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x001c, t01=0x0060}
0x2c38…2c50 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x001c, t01=0x0080}
0x2c50…2c68 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x001c, t01=0x0098}
0x2c68…2c80 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x00b0}
0x2c80…2c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c8}
0x2c8a…2cce Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001c, t01=0x00d2}
0x2cce…2ce2 Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x001c, t01=0x0116}
0x2ce2…2d00 Head {h00=0x001a, h01=0x0050, text=» LDK A7,2 REQ. LENGTH «, t00=0x001c, t01=0x012a}
0x2d00…2d14 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x001c, t01=0x0148}
0x2d14…2d34 Head {h00=0x001c, h01=0x0050, text=» ANKL A1,1 ONLY SPACES? «, t00=0x001c, t01=0x015c}
0x2d34…2d4e Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISL10 YES «, t00=0x001c, t01=0x017c}
0x2d4e…2d72 Head {h00=0x0020, h01=0x0050, text=» LDKL A7,LLINE+2 REQ. LENGTH«, t00=0x001d, t01=0x0008}
0x2d72…2da2 Head {h00=0x002c, h01=0x0050, text=» ADR A7,A9 ADD NUMBER OF INTENSITY CHAR.«, t00=0x001d, t01=0x002c}
0x2da2…2db6 Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x001d, t01=0x005c}
0x2db6…2dce Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x001d, t01=0x0070}
0x2dce…2dfa Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBCW,A8 SAVE CURSOR POS =21 «, t00=0x001d, t01=0x0088}
0x2dfa…2e24 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,/8B SET CURSOR AND WRITE «, t00=0x001d, t01=0x00b4}
0x2e24…2e30 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001d, t01=0x00de}
0x2e30…2e40 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001d, t01=0x00ea}
0x2e40…2e5e Head {h00=0x001a, h01=0x0050, text=» LD A1,ECBRC,A8 . =21 «, t00=0x001d, t01=0x00fa}
0x2e5e…2e82 Head {h00=0x0020, h01=0x0050, text=» ANK A1,1 NOT OPERABLE? =21 «, t00=0x001d, t01=0x0118}
0x2e82…2ea8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL20 VDU OPERABLE =21«, t00=0x001d, t01=0x013c}
0x2ea8…2edc Head {h00=0x0030, h01=0x0050, text=» ST A2,ECBCW,A8 NOT OP. REST CURSOR POS =21 «, t00=0x001d, t01=0x0162}
0x2edc…2f06 Head {h00=0x0026, h01=0x0050, text=» RF DISL90 TERMINATE VDU LINE =21 «, t00=0x001e, t01=0x0008}
0x2f06…2f20 Head {h00=0x0016, h01=0x0050, text=»DISL20 EQU * . =21«, t00=0x001e, t01=0x0032}
0x2f20…2f48 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 GET CURSOR POS. «, t00=0x001e, t01=0x004c}
0x2f48…2f5c Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001e, t01=0x0074}
0x2f5c…2f8c Head {h00=0x002c, h01=0x0050, text=» SUK A1,81 LAST POS. ON LINE DISPLAYED? «, t00=0x001e, t01=0x0088}
0x2f8c…2fa6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISL90 YES «, t00=0x001e, t01=0x00b8}
0x2fa6…2fbe Head {h00=0x0014, h01=0x0050, text=» LD A6,ECBBA,A8 «, t00=0x001e, t01=0x00d2}
0x2fbe…2fd2 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2B «, t00=0x001e, t01=0x00ea}
0x2fd2…2fe6 Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A6 «, t00=0x001e, t01=0x00fe}
0x2fe6…2ffc Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/1420«, t00=0x001e, t01=0x0112}
0x2ffc…3010 Head {h00=0x0010, h01=0x0050, text=» SC A2,3,A6 «, t00=0x001e, t01=0x0128}
0x3010…3022 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x001e, t01=0x013c}
0x3022…3036 Head {h00=0x0010, h01=0x0050, text=» SC A2,2,A6 «, t00=0x001e, t01=0x014e}
0x3036…3048 Head {h00=0x000e, h01=0x0050, text=» LDK A2,84«, t00=0x001e, t01=0x0162}
0x3048…3060 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x001e, t01=0x0174}
0x3060…307a Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x001e, t01=0x018c}
0x307a…3086 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0016}
0x3086…3096 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x0022}
0x3096…30aa Head {h00=0x0010, h01=0x0050, text=»DISL90 EQU *«, t00=0x001f, t01=0x0032}
0x30aa…30bc Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x001f, t01=0x0046}
0x30bc…30e0 Head {h00=0x0020, h01=0x0050, text=» LDK A2,1 FIRST POS. ON LINE«, t00=0x001f, t01=0x0058}
0x30e0…30fa Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+1,A8 «, t00=0x001f, t01=0x007c}
0x30fa…3122 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/100 MOVE ONE LINE DOWN«, t00=0x001f, t01=0x0096}
0x3122…313a Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x001f, t01=0x00be}
0x313a…314e Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x001f, t01=0x00d6}
0x314e…3166 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x001f, t01=0x00ea}
0x3166…318a Head {h00=0x0020, h01=0x0050, text=» CWK A2,/1901 END OF SCREEN «, t00=0x001f, t01=0x0102}
0x318a…31a4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DISL95 NO «, t00=0x001f, t01=0x0126}
0x31a4…31b8 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,1 «, t00=0x001f, t01=0x0140}
0x31b8…31cc Head {h00=0x0010, h01=0x0050, text=»DISL95 EQU *«, t00=0x001f, t01=0x0154}
0x31cc…31fc Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES MOVE SPACES TO ECB BUFFER«, t00=0x001f, t01=0x0168}
0x31fc…320c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x0008}
0x320c…321a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0018}
0x321a…325e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x0026}
0x325e…32a2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0020, t01=0x006a}
0x32a2…32e6 Head {h00=0x0040, h01=0x0050, text=»* SPACES MOVE SPACES TO ECB BUFFER *«, t00=0x0020, t01=0x00ae}
0x32e6…332a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0020, t01=0x00f2}
0x332a…336e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x0136}
0x336e…3382 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0020, t01=0x017a}
0x3382…338c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x018e}
0x338c…33a0 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0021, t01=0x0008}
0x33a0…33b6 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0021, t01=0x001c}
0x33b6…33cc Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0021, t01=0x0032}
0x33cc…33e2 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0021, t01=0x0048}
0x33e2…3406 Head {h00=0x0020, h01=0x0050, text=»* A6= ADDRESS IN ECB BUFFER «, t00=0x0021, t01=0x005e}
0x3406…3420 Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0021, t01=0x0082}
0x3420…3436 Head {h00=0x0012, h01=0x0050, text=»* A8= VDU ECB «, t00=0x0021, t01=0x009c}
0x3436…3456 Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0021, t01=0x00b2}
0x3456…346e Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0021, t01=0x00d2}
0x346e…3486 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0021, t01=0x00ea}
0x3486…349e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0021, t01=0x0102}
0x349e…34a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x011a}
0x34a8…34ec Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0021, t01=0x0124}
0x34ec…3500 Head {h00=0x0010, h01=0x0050, text=»SPACES EQU *«, t00=0x0021, t01=0x0168}
0x3500…352a Head {h00=0x0026, h01=0x0050, text=» LD A6,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0021, t01=0x017c}
0x352a…353c Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0022, t01=0x0016}
0x353c…355e Head {h00=0x001e, h01=0x0050, text=» LDK A7,LLINE LINE LENGTH «, t00=0x0022, t01=0x0028}
0x355e…357e Head {h00=0x001c, h01=0x0050, text=» ADR A7,A7 BUFFER LENGTH«, t00=0x0022, t01=0x004a}
0x357e…359a Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0022, t01=0x006a}
0x359a…35ae Head {h00=0x0010, h01=0x0050, text=»SPAC10 EQU *«, t00=0x0022, t01=0x0086}
0x35ae…35c0 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0022, t01=0x009a}
0x35c0…35d4 Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A6 «, t00=0x0022, t01=0x00ac}
0x35d4…35e6 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0022, t01=0x00c0}
0x35e6…360c Head {h00=0x0022, h01=0x0050, text=» SUK A7,2 WHOLE BUFFER SPACED?«, t00=0x0022, t01=0x00d2}
0x360c…3624 Head {h00=0x0014, h01=0x0050, text=» RB(P) SPAC10 NO«, t00=0x0022, t01=0x00f8}
0x3624…363c Head {h00=0x0014, h01=0x0050, text=» LDK A2,0 CHAR. «, t00=0x0022, t01=0x0110}
0x363c…3662 Head {h00=0x0022, h01=0x0050, text=» LD A6,ECBBA,A8 BUFFER ADDRESS«, t00=0x0022, t01=0x0128}
0x3662…3674 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0022, t01=0x014e}
0x3674…369a Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 RESET CHAR. COUNTER «, t00=0x0022, t01=0x0160}
0x369a…36aa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x0186}
0x36aa…36b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0008}
0x36b8…36fa Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0023, t01=0x0016}
0x36fa…373c Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0058}
0x373c…377e Head {h00=0x003e, h01=0x0050, text=»* INTCHK GET INTENSITY CHAR. * «, t00=0x0023, t01=0x009a}
0x377e…37c0 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0023, t01=0x00dc}
0x37c0…3802 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0023, t01=0x011e}
0x3802…3816 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0023, t01=0x0160}
0x3816…3820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0174}
0x3820…3834 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0023, t01=0x017e}
0x3834…384a (36, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0024, t01=0x0004}
0x384a…3860 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0024, t01=0x001a}
0x3860…3876 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0024, t01=0x0030}
0x3876…389a Head {h00=0x0020, h01=0x0050, text=»* A6= ADDRESS IN ECB BUFFER «, t00=0x0024, t01=0x0046}
0x389a…38b0 Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0024, t01=0x006a}
0x38b0…38c6 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0024, t01=0x0080}
0x38c6…38e6 Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0024, t01=0x0096}
0x38e6…38fe Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0024, t01=0x00b6}
0x38fe…391e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0024, t01=0x00ce}
0x391e…3936 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0024, t01=0x00ee}
0x3936…3940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0106}
0x3940…3978 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0024, t01=0x0110}
0x3978…398c Head {h00=0x0010, h01=0x0050, text=»INTCHK EQU *«, t00=0x0024, t01=0x0148}
0x398c…39b6 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET INTENSITY COUNTER«, t00=0x0024, t01=0x015c}
0x39b6…39de Head {h00=0x0024, h01=0x0050, text=» LC A2,LINFLG,A5 GET LINE FLAG «, t00=0x0024, t01=0x0186}
0x39de…39fa Head {h00=0x0018, h01=0x0050, text=» ANK A2,1 MODIFIED? «, t00=0x0025, t01=0x001e}
0x39fa…3a14 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) INT100 YES«, t00=0x0025, t01=0x003a}
0x3a14…3a34 Head {h00=0x001c, h01=0x0050, text=» ADK A3,LLINE NEXT LINE «, t00=0x0025, t01=0x0054}
0x3a34…3a4a Head {h00=0x0012, h01=0x0050, text=» ADK A4,LLINE «, t00=0x0025, t01=0x0074}
0x3a4a…3a5c Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0025, t01=0x008a}
0x3a5c…3a6e Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0025, t01=0x009c}
0x3a6e…3a88 Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+1,A8 «, t00=0x0025, t01=0x00ae}
0x3a88…3a9e Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0025, t01=0x00c8}
0x3a9e…3ab6 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x0025, t01=0x00de}
0x3ab6…3aca Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0025, t01=0x00f6}
0x3aca…3adc Head {h00=0x000e, h01=0x0050, text=» RF INT900«, t00=0x0025, t01=0x010a}
0x3adc…3af0 Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0025, t01=0x011c}
0x3af0…3b08 Head {h00=0x0014, h01=0x0050, text=» LC A2,LINFLG,A5«, t00=0x0025, t01=0x0130}
0x3b08…3b1a Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0025, t01=0x0148}
0x3b1a…3b32 Head {h00=0x0014, h01=0x0050, text=» SC A2,LINFLG,A5«, t00=0x0025, t01=0x015a}
0x3b32…3b46 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,1 «, t00=0x0025, t01=0x0172}
0x3b46…3b5e Head {h00=0x0014, h01=0x0050, text=» LD A2,REGI,A11 «, t00=0x0025, t01=0x0186}
0x3b5e…3b8a Head {h00=0x0028, h01=0x0050, text=» CWK A2,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0026, t01=0x000e}
0x3b8a…3ba4 Head {h00=0x0016, h01=0x0050, text=» RF(E) INT200 YES «, t00=0x0026, t01=0x003a}
0x3ba4…3bba Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x0026, t01=0x0054}
0x3bba…3bcc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0026, t01=0x006a}
0x3bcc…3be2 Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0026, t01=0x007c}
0x3be2…3bf4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A5«, t00=0x0026, t01=0x0092}
0x3bf4…3c06 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A6«, t00=0x0026, t01=0x00a4}
0x3c06…3c32 Head {h00=0x0028, h01=0x0050, text=» CF A14,ATMASB GET CURRENT ATTRIBUTE«, t00=0x0026, t01=0x00b6}
0x3c32…3c4c Head {h00=0x0016, h01=0x0050, text=» ST A6,INTATT,A11 «, t00=0x0026, t01=0x00e2}
0x3c4c…3c5e Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0026, t01=0x00fc}
0x3c5e…3c70 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x0026, t01=0x010e}
0x3c70…3c86 Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x0026, t01=0x0120}
0x3c86…3c9c Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x0026, t01=0x0136}
0x3c9c…3cae Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0026, t01=0x014c}
0x3cae…3cc2 Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x0026, t01=0x015e}
0x3cc2…3cdc Head {h00=0x0016, h01=0x0050, text=» LD A2,INTATT,A11 «, t00=0x0026, t01=0x0172}
0x3cdc…3cee Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0026, t01=0x018c}
0x3cee…3d0e Head {h00=0x001c, h01=0x0050, text=» ANK A1,8 LOW INTENSITY?«, t00=0x0027, t01=0x000e}
0x3d0e…3d28 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT300 YES «, t00=0x0027, t01=0x002e}
0x3d28…3d4a Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 HIGH INTENSITY? «, t00=0x0027, t01=0x0048}
0x3d4a…3d70 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) INT800 NO, NONDISPLAY «, t00=0x0027, t01=0x006a}
0x3d70…3d88 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0027, t01=0x0090}
0x3d88…3d9a Head {h00=0x000e, h01=0x0050, text=» RF INT400«, t00=0x0027, t01=0x00a8}
0x3d9a…3dae Head {h00=0x0010, h01=0x0050, text=»INT300 EQU *«, t00=0x0027, t01=0x00ba}
0x3dae…3dc6 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1E LOW «, t00=0x0027, t01=0x00ce}
0x3dc6…3dda Head {h00=0x0010, h01=0x0050, text=»INT400 EQU *«, t00=0x0027, t01=0x00e6}
0x3dda…3e00 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A6 SAVE IN ECB BUFFER «, t00=0x0027, t01=0x00fa}
0x3e00…3e12 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0027, t01=0x0120}
0x3e12…3e24 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0027, t01=0x0132}
0x3e24…3e36 Head {h00=0x000e, h01=0x0050, text=» RF INT900«, t00=0x0027, t01=0x0144}
0x3e36…3e4a Head {h00=0x0010, h01=0x0050, text=»INT800 EQU *«, t00=0x0027, t01=0x0156}
0x3e4a…3e62 Head {h00=0x0014, h01=0x0050, text=» LDKL A10,/8000 «, t00=0x0027, t01=0x016a}
0x3e62…3e76 Head {h00=0x0010, h01=0x0050, text=»INT900 EQU *«, t00=0x0027, t01=0x0182}
0x3e76…3e86 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x0008}
0x3e86…3e94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0018}
0x3e94…3ecc Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0028, t01=0x0026}
0x3ecc…3f04 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0028, t01=0x005e}
0x3f04…3f3c Head {h00=0x0034, h01=0x0050, text=»* SETIND SET DISPLAY INDICATOR *«, t00=0x0028, t01=0x0096}
0x3f3c…3f74 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0028, t01=0x00ce}
0x3f74…3fac Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0028, t01=0x0106}
0x3fac…3fc0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0028, t01=0x013e}
0x3fc0…3fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0152}
0x3fca…3fdc Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x0028, t01=0x015c}
0x3fdc…3ff2 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0028, t01=0x016e}
0x3ff2…4008 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0028, t01=0x0184}
0x4008…401e Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0029, t01=0x000a}
0x401e…4034 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0029, t01=0x0020}
0x4034…404a Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0029, t01=0x0036}
0x404a…4060 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0029, t01=0x004c}
0x4060…4076 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0029, t01=0x0062}
0x4076…4096 Head {h00=0x001c, h01=0x0050, text=»* A10= DISPLAY INDICATOR«, t00=0x0029, t01=0x0078}
0x4096…40ae Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0029, t01=0x0098}
0x40ae…40c6 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0029, t01=0x00b0}
0x40c6…40d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c8}
0x40d0…40fa Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0029, t01=0x00d2}
0x40fa…410e Head {h00=0x0010, h01=0x0050, text=»SETIND EQU *«, t00=0x0029, t01=0x00fc}
0x410e…412e Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x0029, t01=0x0110}
0x412e…4148 Head {h00=0x0016, h01=0x0050, text=» RF(E) SETI90 YES «, t00=0x0029, t01=0x0130}
0x4148…4174 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,1 INDICATE NOT ONLY SPACES«, t00=0x0029, t01=0x014a}
0x4174…4188 Head {h00=0x0010, h01=0x0050, text=»SETI90 EQU *«, t00=0x0029, t01=0x0176}
0x4188…4198 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x018a}
0x4198…41a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x000a}
0x41a6…41ee Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x002a, t01=0x0018}
0x41ee…4236 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x002a, t01=0x0060}
0x4236…427e Head {h00=0x0044, h01=0x0050, text=»* INSMOD INSERT CHARACTER *«, t00=0x002a, t01=0x00a8}
0x427e…42c6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x002a, t01=0x00f0}
0x42c6…430e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x002a, t01=0x0138}
0x430e…4322 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002a, t01=0x0180}
0x4322…432c (43, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0004}
0x432c…4374 Head {h00=0x0044, h01=0x0050, text=»* A1= AT RETURN 0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED «, t00=0x002b, t01=0x000e}
0x4374…438a Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x002b, t01=0x0056}
0x438a…43a8 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002b, t01=0x006c}
0x43a8…43ca Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x002b, t01=0x008a}
0x43ca…43e8 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x002b, t01=0x00ac}
0x43e8…4408 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002b, t01=0x00ca}
0x4408…4420 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002b, t01=0x00ea}
0x4420…442a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0102}
0x442a…4472 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x002b, t01=0x010c}
0x4472…4486 Head {h00=0x0010, h01=0x0050, text=»INSMOD EQU *«, t00=0x002b, t01=0x0154}
0x4486…449a Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x002b, t01=0x0168}
0x449a…44ac Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x002b, t01=0x017c}
0x44ac…44da Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x002b, t01=0x018e}
0x44da…44fa Head {h00=0x001c, h01=0x0050, text=» CCK A7,NULL NULL CHAR.?«, t00=0x002c, t01=0x002c}
0x44fa…4514 Head {h00=0x0016, h01=0x0050, text=» RF(NE) INS100 NO «, t00=0x002c, t01=0x004c}
0x4514…4542 Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 INDICATE NULL IN CURSOR POS.«, t00=0x002c, t01=0x0066}
0x4542…4554 Head {h00=0x000e, h01=0x0050, text=» RF INS900«, t00=0x002c, t01=0x0094}
0x4554…4568 Head {h00=0x0010, h01=0x0050, text=»INS100 EQU *«, t00=0x002c, t01=0x00a6}
0x4568…457a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002c, t01=0x00ba}
0x457a…45a6 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x002c, t01=0x00cc}
0x45a6…45c0 Head {h00=0x0016, h01=0x0050, text=» RF(E) INS200 YES «, t00=0x002c, t01=0x00f8}
0x45c0…45dc Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x002c, t01=0x0112}
0x45dc…45f8 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x002c, t01=0x012e}
0x45f8…4628 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x002c, t01=0x014a}
0x4628…463a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x002c, t01=0x017a}
0x463a…465c Head {h00=0x001e, h01=0x0050, text=» ST A8,ATTRIB,A11 RESTORE «, t00=0x002c, t01=0x018c}
0x465c…467e Head {h00=0x001e, h01=0x0050, text=» ST A9,CURATT,A11 RESTORE «, t00=0x002d, t01=0x001e}
0x467e…4690 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x002d, t01=0x0040}
0x4690…46a2 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x002d, t01=0x0052}
0x46a2…46b6 Head {h00=0x0010, h01=0x0050, text=»INS200 EQU *«, t00=0x002d, t01=0x0064}
0x46b6…46de Head {h00=0x0024, h01=0x0050, text=» CF A14,SNULL SEARCH FIRST NULL «, t00=0x002d, t01=0x0078}
0x46de…46fc Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 NULL FOUND? «, t00=0x002d, t01=0x00a0}
0x46fc…4716 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS300 YES «, t00=0x002d, t01=0x00be}
0x4716…4736 Head {h00=0x001c, h01=0x0050, text=» LDK A1,2 INDICATE ERROR«, t00=0x002d, t01=0x00d8}
0x4736…4748 Head {h00=0x000e, h01=0x0050, text=» RF INS900«, t00=0x002d, t01=0x00f8}
0x4748…475c Head {h00=0x0010, h01=0x0050, text=»INS300 EQU *«, t00=0x002d, t01=0x010a}
0x475c…4788 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x002d, t01=0x011e}
0x4788…47a2 Head {h00=0x0016, h01=0x0050, text=» RF(E) INS350 YES «, t00=0x002d, t01=0x014a}
0x47a2…47d0 Head {h00=0x002a, h01=0x0050, text=» ORK A6,1 SET MDT-BIT ON IN ATTRIBUTE «, t00=0x002d, t01=0x0164}
0x47d0…47ea (46, 0, 400) Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x002e, t01=0x0004}
0x47ea…47fc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x002e, t01=0x001e}
0x47fc…480e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x002e, t01=0x0030}
0x480e…4846 Head {h00=0x0034, h01=0x0050, text=» CF A14,STOVDU SAVE NEW ATTRIBUTE IN VDU-BUFFER «, t00=0x002e, t01=0x0042}
0x4846…485a Head {h00=0x0010, h01=0x0050, text=»INS350 EQU *«, t00=0x002e, t01=0x007a}
0x485a…486c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x002e, t01=0x008e}
0x486c…4884 Head {h00=0x0014, h01=0x0050, text=» ST A4,REGI,A11 «, t00=0x002e, t01=0x00a0}
0x4884…4896 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x002e, t01=0x00b8}
0x4896…48ac Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002e, t01=0x00ca}
0x48ac…48c0 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002e, t01=0x00e0}
0x48c0…48d4 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x002e, t01=0x00f4}
0x48d4…48e6 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x002e, t01=0x0108}
0x48e6…490c Head {h00=0x0022, h01=0x0050, text=» CF A14,LINE UPDATE LINE FLAG «, t00=0x002e, t01=0x011a}
0x490c…491e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x002e, t01=0x0140}
0x491e…4932 Head {h00=0x0010, h01=0x0050, text=»INS400 EQU *«, t00=0x002e, t01=0x0152}
0x4932…4964 Head {h00=0x002e, h01=0x0050, text=» CWK A1,0 CHAR TO MOVE IN LAST SCREEN POS?«, t00=0x002e, t01=0x0166}
0x4964…497e Head {h00=0x0016, h01=0x0050, text=» RF(E) INS500 YES «, t00=0x002f, t01=0x0008}
0x497e…4990 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002f, t01=0x0022}
0x4990…49be Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x002f, t01=0x0034}
0x49be…49d0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x002f, t01=0x0062}
0x49d0…49e2 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x002f, t01=0x0074}
0x49e2…49f8 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002f, t01=0x0086}
0x49f8…4a0c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002f, t01=0x009c}
0x4a0c…4a20 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x002f, t01=0x00b0}
0x4a20…4a32 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x002f, t01=0x00c4}
0x4a32…4a4a Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x002f, t01=0x00d6}
0x4a4a…4a5c Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x002f, t01=0x00ee}
0x4a5c…4a74 Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x002f, t01=0x0100}
0x4a74…4aa4 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x002f, t01=0x0118}
0x4aa4…4ab6 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002f, t01=0x0148}
0x4ab6…4ac8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002f, t01=0x015a}
0x4ac8…4adc Head {h00=0x0010, h01=0x0050, text=»INS450 EQU *«, t00=0x002f, t01=0x016c}
0x4adc…4b00 Head {h00=0x0020, h01=0x0050, text=» CW A1,REGI,A11 ALL SHIFTED?«, t00=0x002f, t01=0x0180}
0x4b00…4b1a Head {h00=0x0016, h01=0x0050, text=» RF(E) INS600 YES «, t00=0x0030, t01=0x0014}
0x4b1a…4b2c Head {h00=0x000e, h01=0x0050, text=» RB INS400«, t00=0x0030, t01=0x002e}
0x4b2c…4b40 Head {h00=0x0010, h01=0x0050, text=»INS500 EQU *«, t00=0x0030, t01=0x0040}
0x4b40…4b66 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LBVDU-1 GET LAST CHAR«, t00=0x0030, t01=0x0054}
0x4b66…4b94 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x0030, t01=0x007a}
0x4b94…4ba6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0030, t01=0x00a8}
0x4ba6…4bb8 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0030, t01=0x00ba}
0x4bb8…4bca Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0030, t01=0x00cc}
0x4bca…4be0 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0030, t01=0x00de}
0x4be0…4bf4 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0030, t01=0x00f4}
0x4bf4…4c08 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0030, t01=0x0108}
0x4c08…4c1a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x0030, t01=0x011c}
0x4c1a…4c32 Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x0030, t01=0x012e}
0x4c32…4c44 Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x0030, t01=0x0146}
0x4c44…4c5c Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x0030, t01=0x0158}
0x4c5c…4c8c Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x0030, t01=0x0170}
0x4c8c…4cb6 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST SCREEN POS. «, t00=0x0031, t01=0x0010}
0x4cb6…4cce Head {h00=0x0014, h01=0x0050, text=» LDKL A4,LBVDU-1«, t00=0x0031, t01=0x003a}
0x4cce…4ce0 Head {h00=0x000e, h01=0x0050, text=» RB INS450«, t00=0x0031, t01=0x0052}
0x4ce0…4cf4 Head {h00=0x0010, h01=0x0050, text=»INS600 EQU *«, t00=0x0031, t01=0x0064}
0x4cf4…4d14 Head {h00=0x001c, h01=0x0050, text=» LDR A7,A2 GET KEY-CHAR «, t00=0x0031, t01=0x0078}
0x4d14…4d44 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x0031, t01=0x0098}
0x4d44…4d5a Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0031, t01=0x00c8}
0x4d5a…4d6e Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0031, t01=0x00de}
0x4d6e…4d82 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0031, t01=0x00f2}
0x4d82…4d9a Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x0031, t01=0x0106}
0x4d9a…4dac Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x0031, t01=0x011e}
0x4dac…4dc4 Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x0031, t01=0x0130}
0x4dc4…4de6 Head {h00=0x001e, h01=0x0050, text=» IM PCURS,A11 MOVE CURSOR «, t00=0x0031, t01=0x0148}
0x4de6…4dfe Head {h00=0x0014, h01=0x0050, text=» LD A4,REGI,A11 «, t00=0x0031, t01=0x016a}
0x4dfe…4e10 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0031, t01=0x0182}
0x4e10…4e34 (50, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0032, t01=0x0004}
0x4e34…4e4e Head {h00=0x0016, h01=0x0050, text=» RF(NG) INS700 NO «, t00=0x0032, t01=0x0028}
0x4e4e…4e74 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x0032, t01=0x0042}
0x4e74…4e8a Head {h00=0x0012, h01=0x0050, text=» CM PCURS,A11 «, t00=0x0032, t01=0x0068}
0x4e8a…4e9e Head {h00=0x0010, h01=0x0050, text=»INS700 EQU *«, t00=0x0032, t01=0x007e}
0x4e9e…4ecc Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELD «, t00=0x0032, t01=0x0092}
0x4ecc…4ef4 Head {h00=0x0024, h01=0x0050, text=» LDK A1,1 INDICATE NORMAL INSERT«, t00=0x0032, t01=0x00c0}
0x4ef4…4f08 Head {h00=0x0010, h01=0x0050, text=»INS900 EQU *«, t00=0x0032, t01=0x00e8}
0x4f08…4f18 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0032, t01=0x00fc}
0x4f18…4f24 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x010c}
0x4f24…4f32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0118}
0x4f32…4f74 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0032, t01=0x0126}
0x4f74…4fb6 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0032, t01=0x0168}
0x4fb6…4ff8 Head {h00=0x003e, h01=0x0050, text=»* UPDCNT UPDATE COUNTERS *«, t00=0x0033, t01=0x001a}
0x4ff8…503a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0033, t01=0x005c}
0x503a…507c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0033, t01=0x009e}
0x507c…5098 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0033, t01=0x00e0}
0x5098…50a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00fc}
0x50a2…50c6 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0033, t01=0x0106}
0x50c6…50e2 Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0033, t01=0x012a}
0x50e2…50f8 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0033, t01=0x0146}
0x50f8…5114 Head {h00=0x0018, h01=0x0050, text=»* A6= ADDRESS IN ECB«, t00=0x0033, t01=0x015c}
0x5114…512e Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0033, t01=0x0178}
0x512e…5144 (52, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0034, t01=0x0004}
0x5144…515a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0034, t01=0x001a}
0x515a…5172 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0034, t01=0x0030}
0x5172…518a Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0034, t01=0x0048}
0x518a…51a2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0034, t01=0x0060}
0x51a2…51ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0078}
0x51ac…51ee Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0034, t01=0x0082}
0x51ee…5202 Head {h00=0x0010, h01=0x0050, text=»UPDCNT EQU *«, t00=0x0034, t01=0x00c4}
0x5202…5214 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0034, t01=0x00d8}
0x5214…5226 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0034, t01=0x00ea}
0x5226…5238 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0034, t01=0x00fc}
0x5238…524a Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0034, t01=0x010e}
0x524a…525a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x0120}
0x525a…5268 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0130}
0x5268…52b0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0034, t01=0x013e}
0x52b0…52f8 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0034, t01=0x0186}
0x52f8…5340 Head {h00=0x0044, h01=0x0050, text=»* GETVDU GET CHAR. IN VDU BUFFER *«, t00=0x0035, t01=0x003e}
0x5340…5388 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0035, t01=0x0086}
0x5388…53d0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0035, t01=0x00ce}
0x53d0…53e4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0035, t01=0x0116}
0x53e4…53ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x012a}
0x53ee…5412 Head {h00=0x0020, h01=0x0050, text=»* A1= REL. POS IN VDU BUFFER«, t00=0x0035, t01=0x0134}
0x5412…5428 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0035, t01=0x0158}
0x5428…543e Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0035, t01=0x016e}
0x543e…5454 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0035, t01=0x0184}
0x5454…546a Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0036, t01=0x000a}
0x546a…5480 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0036, t01=0x0020}
0x5480…54a4 Head {h00=0x0020, h01=0x0050, text=»* A7= CHAR. FROM VDU BUFFER «, t00=0x0036, t01=0x0036}
0x54a4…54ba Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0036, t01=0x005a}
0x54ba…54d0 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0036, t01=0x0070}
0x54d0…54e8 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0036, t01=0x0086}
0x54e8…5508 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0036, t01=0x009e}
0x5508…5520 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0036, t01=0x00be}
0x5520…552a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00d6}
0x552a…556a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0036, t01=0x00e0}
0x556a…557e Head {h00=0x0010, h01=0x0050, text=»GETVDU EQU *«, t00=0x0036, t01=0x0120}
0x557e…5594 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,BVDU «, t00=0x0036, t01=0x0134}
0x5594…55a8 Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0036, t01=0x014a}
0x55a8…55ba Head {h00=0x000e, h01=0x0050, text=» ADR A7,A1«, t00=0x0036, t01=0x015e}
0x55ba…55cc Head {h00=0x000e, h01=0x0050, text=» LCR A7,A7«, t00=0x0036, t01=0x0170}
0x55cc…55e0 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0036, t01=0x0182}
0x55e0…55f0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x0008}
0x55f0…55fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0018}
0x55fe…5644 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0037, t01=0x0026}
0x5644…568a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0037, t01=0x006c}
0x568a…56d0 Head {h00=0x0042, h01=0x0050, text=»* STOVDU STORE CHAR. IN VDU BUFFER *«, t00=0x0037, t01=0x00b2}
0x56d0…5716 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0037, t01=0x00f8}
0x5716…575c Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0037, t01=0x013e}
0x575c…5770 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0037, t01=0x0184}
0x5770…577a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0008}
0x577a…57a0 Head {h00=0x0022, h01=0x0050, text=»* A1= REL. POS. IN VDU BUFFER «, t00=0x0038, t01=0x0012}
0x57a0…57b6 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0038, t01=0x0038}
0x57b6…57cc Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0038, t01=0x004e}
0x57cc…57e2 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0038, t01=0x0064}
0x57e2…57f8 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0038, t01=0x007a}
0x57f8…580e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0038, t01=0x0090}
0x580e…5838 Head {h00=0x0026, h01=0x0050, text=»* A7= CHAR. TO STORE IN VDU BUFFER«, t00=0x0038, t01=0x00a6}
0x5838…584e Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0038, t01=0x00d0}
0x584e…5866 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0038, t01=0x00e6}
0x5866…5886 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0038, t01=0x00fe}
0x5886…589e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0038, t01=0x011e}
0x589e…58a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0136}
0x58a8…58e8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0038, t01=0x0140}
0x58e8…58fc Head {h00=0x0010, h01=0x0050, text=»STOVDU EQU *«, t00=0x0038, t01=0x0180}
0x58fc…5912 (57, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A8,BVDU «, t00=0x0039, t01=0x0004}
0x5912…5926 Head {h00=0x0010, h01=0x0050, text=» ADR A8,A11 «, t00=0x0039, t01=0x001a}
0x5926…5938 Head {h00=0x000e, h01=0x0050, text=» ADR A8,A1«, t00=0x0039, t01=0x002e}
0x5938…594a Head {h00=0x000e, h01=0x0050, text=» SCR A7,A8«, t00=0x0039, t01=0x0040}
0x594a…595a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0052}
0x595a…5968 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0062}
0x5968…59a8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0039, t01=0x0070}
0x59a8…59e8 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0039, t01=0x00b0}
0x59e8…5a28 Head {h00=0x003c, h01=0x0050, text=»* SCRINF GET SCREEN INFORMATION *«, t00=0x0039, t01=0x00f0}
0x5a28…5a68 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0039, t01=0x0130}
0x5a68…5aa8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0039, t01=0x0170}
0x5aa8…5abc Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003a, t01=0x0020}
0x5abc…5ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0034}
0x5ac6…5adc Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003a, t01=0x003e}
0x5adc…5afa Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003a, t01=0x0054}
0x5afa…5b1c Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x003a, t01=0x0072}
0x5b1c…5b3a Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003a, t01=0x0094}
0x5b3a…5b5a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003a, t01=0x00b2}
0x5b5a…5b72 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003a, t01=0x00d2}
0x5b72…5b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ea}
0x5b7c…5bbc Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003a, t01=0x00f4}
0x5bbc…5bd0 Head {h00=0x0010, h01=0x0050, text=»SCRINF EQU *«, t00=0x003a, t01=0x0134}
0x5bd0…5bf8 Head {h00=0x0024, h01=0x0050, text=» LD A4,PCURS,A11 GET CURSOR POS.«, t00=0x003a, t01=0x0148}
0x5bf8…5c24 Head {h00=0x0028, h01=0x0050, text=» LD A5,CURATT,A11 GET ATTRIBUTE POS.«, t00=0x003a, t01=0x0170}
0x5c24…5c52 Head {h00=0x002a, h01=0x0050, text=» LD A6,ATTRIB,A11 GET ATTRIBUTE CHAR. «, t00=0x003b, t01=0x000c}
0x5c52…5c62 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x003a}
0x5c62…5c70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x004a}
0x5c70…5cb0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003b, t01=0x0058}
0x5cb0…5cf0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0098}
0x5cf0…5d30 Head {h00=0x003c, h01=0x0050, text=»* STOINF STORE SCREEN INFORMATION *«, t00=0x003b, t01=0x00d8}
0x5d30…5d70 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x003b, t01=0x0118}
0x5d70…5db0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003b, t01=0x0158}
0x5db0…5dc4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003c, t01=0x0008}
0x5dc4…5dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x001c}
0x5dce…5dec Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003c, t01=0x0026}
0x5dec…5e0e Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x003c, t01=0x0044}
0x5e0e…5e2c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003c, t01=0x0066}
0x5e2c…5e4c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003c, t01=0x0084}
0x5e4c…5e64 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003c, t01=0x00a4}
0x5e64…5e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00bc}
0x5e6e…5eae Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003c, t01=0x00c6}
0x5eae…5ec2 Head {h00=0x0010, h01=0x0050, text=»STOINF EQU *«, t00=0x003c, t01=0x0106}
0x5ec2…5eda Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003c, t01=0x011a}
0x5eda…5ef4 Head {h00=0x0016, h01=0x0050, text=» ST A5,CURATT,A11 «, t00=0x003c, t01=0x0132}
0x5ef4…5f0e Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x003c, t01=0x014c}
0x5f0e…5f1e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003c, t01=0x0166}
0x5f1e…5f2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0176}
0x5f2c…5f6c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003c, t01=0x0184}
0x5f6c…5fac Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x003d, t01=0x0034}
0x5fac…5fec Head {h00=0x003c, h01=0x0050, text=»* SOUND SOUND ALARM ON VDU * «, t00=0x003d, t01=0x0074}
0x5fec…602c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x003d, t01=0x00b4}
0x602c…606c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003d, t01=0x00f4}
0x606c…6080 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003d, t01=0x0134}
0x6080…608a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0148}
0x608a…60a4 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003d, t01=0x0152}
0x60a4…60b8 Head {h00=0x0010, h01=0x0050, text=»* A8= ECBVDU«, t00=0x003d, t01=0x016c}
0x60b8…60d8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003d, t01=0x0180}
0x60d8…60f0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003e, t01=0x0010}
0x60f0…60fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0028}
0x60fa…613a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003e, t01=0x0032}
0x613a…614e Head {h00=0x0010, h01=0x0050, text=»SOUND EQU * «, t00=0x003e, t01=0x0072}
0x614e…6168 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x003e, t01=0x0086}
0x6168…6180 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x003e, t01=0x00a0}
0x6180…61a2 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2B CONTROL CHAR. «, t00=0x003e, t01=0x00b8}
0x61a2…61b6 Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A1 «, t00=0x003e, t01=0x00da}
0x61b6…61d4 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/07 BELL CHAR.«, t00=0x003e, t01=0x00ee}
0x61d4…61e8 Head {h00=0x0010, h01=0x0050, text=» SC A2,2,A1 «, t00=0x003e, t01=0x010c}
0x61e8…6206 Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 REQ. LENGTH «, t00=0x003e, t01=0x0120}
0x6206…621e Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x003e, t01=0x013e}
0x621e…6232 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x003e, t01=0x0156}
0x6232…623e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003e, t01=0x016a}
0x623e…624e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003e, t01=0x0176}
0x624e…6276 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x003e, t01=0x0186}
0x6276…6286 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x001e}
0x6286…6294 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x002e}
0x6294…62d2 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003f, t01=0x003c}
0x62d2…6310 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x003f, t01=0x007a}
0x6310…634e Head {h00=0x003a, h01=0x0050, text=»* WRAP CHECK IF WRAP AROUND * «, t00=0x003f, t01=0x00b8}
0x634e…638c Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x003f, t01=0x00f6}
0x638c…63ca Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003f, t01=0x0134}
0x63ca…63de Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003f, t01=0x0172}
0x63de…63e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0186}
0x63e8…63fe Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003f, t01=0x0190}
0x63fe…6422 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0040, t01=0x0016}
0x6422…6440 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0040, t01=0x003a}
0x6440…6456 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0040, t01=0x0058}
0x6456…646c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0040, t01=0x006e}
0x646c…6482 Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0040, t01=0x0084}
0x6482…6498 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0040, t01=0x009a}
0x6498…64ae Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0040, t01=0x00b0}
0x64ae…64c6 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0040, t01=0x00c6}
0x64c6…64e6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0040, t01=0x00de}
0x64e6…64fe Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0040, t01=0x00fe}
0x64fe…6508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0116}
0x6508…6546 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0040, t01=0x0120}
0x6546…6558 Head {h00=0x000e, h01=0x0050, text=»WRAP EQU *«, t00=0x0040, t01=0x015e}
0x6558…657a Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU WRAP AROUND «, t00=0x0040, t01=0x0170}
0x657a…6592 (65, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RF(L) WRAP90 NO«, t00=0x0041, t01=0x0004}
0x6592…65b6 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0041, t01=0x001c}
0x65b6…65cc Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0041, t01=0x0040}
0x65cc…65e0 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0041, t01=0x0056}
0x65e0…65f4 Head {h00=0x0010, h01=0x0050, text=»WRAP90 EQU *«, t00=0x0041, t01=0x006a}
0x65f4…6604 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0041, t01=0x007e}
0x6604…6612 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x008e}
0x6612…6656 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0041, t01=0x009c}
0x6656…669a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0041, t01=0x00e0}
0x669a…66e0 Head {h00=0x0042, h01=0x0050, text=»* LINWRP CHECK LINE WRAP * «, t00=0x0041, t01=0x0124}
0x66e0…6724 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0041, t01=0x016a}
0x6724…6768 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0042, t01=0x001e}
0x6768…677c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0042, t01=0x0062}
0x677c…6786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0076}
0x6786…679c Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0042, t01=0x0080}
0x679c…67b8 Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0042, t01=0x0096}
0x67b8…67da Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0042, t01=0x00b2}
0x67da…67f0 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0042, t01=0x00d4}
0x67f0…6806 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0042, t01=0x00ea}
0x6806…681c Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0042, t01=0x0100}
0x681c…6834 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0042, t01=0x0116}
0x6834…684c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0042, t01=0x012e}
0x684c…6864 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0042, t01=0x0146}
0x6864…686e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x015e}
0x686e…68b2 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0042, t01=0x0168}
0x68b2…68c6 Head {h00=0x0010, h01=0x0050, text=»LINWRP EQU *«, t00=0x0043, t01=0x001c}
0x68c6…68e6 Head {h00=0x001c, h01=0x0050, text=» CWR A5,A4 END OF LINE? «, t00=0x0043, t01=0x0030}
0x68e6…68fe Head {h00=0x0014, h01=0x0050, text=» RF(G) LINW10 NO«, t00=0x0043, t01=0x0050}
0x68fe…6924 Head {h00=0x0022, h01=0x0050, text=» CF A14,LINE UPDATE LINE FLAG «, t00=0x0043, t01=0x0068}
0x6924…6938 Head {h00=0x0010, h01=0x0050, text=»LINW10 EQU *«, t00=0x0043, t01=0x008e}
0x6938…6948 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0043, t01=0x00a2}
0x6948…6956 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x00b2}
0x6956…699a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0043, t01=0x00c0}
0x699a…69de Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0043, t01=0x0104}
0x69de…6a22 Head {h00=0x0040, h01=0x0050, text=»* LINE UPDATE LINE FLAG *«, t00=0x0043, t01=0x0148}
0x6a22…6a66 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0043, t01=0x018c}
0x6a66…6aac Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0044, t01=0x0040}
0x6aac…6ac0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0044, t01=0x0086}
0x6ac0…6aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x009a}
0x6aca…6aee Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0044, t01=0x00a4}
0x6aee…6b0a Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0044, t01=0x00c8}
0x6b0a…6b2c Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0044, t01=0x00e4}
0x6b2c…6b54 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0044, t01=0x0106}
0x6b54…6b6a Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0044, t01=0x012e}
0x6b6a…6b80 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0044, t01=0x0144}
0x6b80…6b98 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERFED «, t00=0x0044, t01=0x015a}
0x6b98…6bb8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0044, t01=0x0172}
0x6bb8…6bd0 (69, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0045, t01=0x0004}
0x6bd0…6bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x001c}
0x6bda…6c1e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0045, t01=0x0026}
0x6c1e…6c30 Head {h00=0x000e, h01=0x0050, text=»LINE EQU *«, t00=0x0045, t01=0x006a}
0x6c30…6c4e Head {h00=0x001a, h01=0x0050, text=» CWR A5,A4 THIS LINE? «, t00=0x0045, t01=0x007c}
0x6c4e…6c6e Head {h00=0x001c, h01=0x0050, text=» RF(G) LIN400 YES,MAYBE «, t00=0x0045, t01=0x009a}
0x6c6e…6c82 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0045, t01=0x00ba}
0x6c82…6cac Head {h00=0x0026, h01=0x0050, text=» ANK A1,ATTREC ATTRIBUTE RECEIVED?«, t00=0x0045, t01=0x00ce}
0x6cac…6cc4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) LIN100 NO«, t00=0x0045, t01=0x00f8}
0x6cc4…6cdc Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0045, t01=0x0110}
0x6cdc…6cee Head {h00=0x000e, h01=0x0050, text=» ORK A1,2 «, t00=0x0045, t01=0x0128}
0x6cee…6d06 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0045, t01=0x013a}
0x6d06…6d1a Head {h00=0x0010, h01=0x0050, text=»LIN100 EQU *«, t00=0x0045, t01=0x0152}
0x6d1a…6d2e Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0045, t01=0x0166}
0x6d2e…6d4e Head {h00=0x001c, h01=0x0050, text=» ADK A6,1 UPDATE ADDRESS«, t00=0x0045, t01=0x017a}
0x6d4e…6d6e Head {h00=0x001c, h01=0x0050, text=» CWK A6,23 WRAP SCREEN? «, t00=0x0046, t01=0x000a}
0x6d6e…6d88 Head {h00=0x0016, h01=0x0050, text=» RF(G) LIN300 YES «, t00=0x0046, t01=0x002a}
0x6d88…6d9e Head {h00=0x0012, h01=0x0050, text=» ADK A5,LLINE «, t00=0x0046, t01=0x0044}
0x6d9e…6db2 Head {h00=0x0010, h01=0x0050, text=» ADR A6,A11 «, t00=0x0046, t01=0x005a}
0x6db2…6dc2 Head {h00=0x000c, h01=0x0050, text=» RB LINE«, t00=0x0046, t01=0x006e}
0x6dc2…6dd6 Head {h00=0x0010, h01=0x0050, text=»LIN300 EQU *«, t00=0x0046, t01=0x007e}
0x6dd6…6dfa Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0046, t01=0x0092}
0x6dfa…6e10 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0046, t01=0x00b6}
0x6e10…6e24 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0046, t01=0x00cc}
0x6e24…6e38 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0046, t01=0x00e0}
0x6e38…6e4e Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0046, t01=0x00f4}
0x6e4e…6e62 Head {h00=0x0010, h01=0x0050, text=»LIN400 EQU *«, t00=0x0046, t01=0x010a}
0x6e62…6e76 Head {h00=0x0010, h01=0x0050, text=» SUR A5,A4 «, t00=0x0046, t01=0x011e}
0x6e76…6e88 Head {h00=0x000e, h01=0x0050, text=» CWK A5,81«, t00=0x0046, t01=0x0132}
0x6e88…6ea8 Head {h00=0x001c, h01=0x0050, text=» RF(L) LIN500 THIS LINE «, t00=0x0046, t01=0x0144}
0x6ea8…6ebe Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0046, t01=0x0164}
0x6ebe…6ed2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0046, t01=0x017a}
0x6ed2…6ee2 Head {h00=0x000c, h01=0x0050, text=» RB LINE«, t00=0x0046, t01=0x018e}
0x6ee2…6ef6 Head {h00=0x0010, h01=0x0050, text=»LIN500 EQU *«, t00=0x0047, t01=0x000e}
0x6ef6…6f10 Head {h00=0x0016, h01=0x0050, text=» ADR A5,A4 RESTORE«, t00=0x0047, t01=0x0022}
0x6f10…6f20 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0047, t01=0x003c}
0x6f20…6f2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x004c}
0x6f2e…6f74 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0047, t01=0x005a}
0x6f74…6fba Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0047, t01=0x00a0}
0x6fba…7000 Head {h00=0x0042, h01=0x0050, text=»* LINATT UPADTE LINFLG AT ATTRIBUTE CHANGE * «, t00=0x0047, t01=0x00e6}
0x7000…7046 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0047, t01=0x012c}
0x7046…708c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0047, t01=0x0172}
0x708c…70a0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0048, t01=0x0028}
0x70a0…70aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x003c}
0x70aa…70ce Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0048, t01=0x0046}
0x70ce…70ea Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0048, t01=0x006a}
0x70ea…710c Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0048, t01=0x0086}
0x710c…7134 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0048, t01=0x00a8}
0x7134…714a Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0048, t01=0x00d0}
0x714a…7160 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0048, t01=0x00e6}
0x7160…7178 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0048, t01=0x00fc}
0x7178…7198 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0048, t01=0x0114}
0x7198…71b0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0048, t01=0x0134}
0x71b0…71ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x014c}
0x71ba…7200 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0048, t01=0x0156}
0x7200…7214 Head {h00=0x0010, h01=0x0050, text=»LINATT EQU *«, t00=0x0049, t01=0x000c}
0x7214…722a Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x0049, t01=0x0020}
0x722a…723e Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0049, t01=0x0036}
0x723e…7250 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0049, t01=0x004a}
0x7250…7268 Head {h00=0x0014, h01=0x0050, text=» LDR A10,A4 . =1«, t00=0x0049, t01=0x005c}
0x7268…727c Head {h00=0x0010, h01=0x0050, text=»LINA10 EQU *«, t00=0x0049, t01=0x0074}
0x727c…728e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0049, t01=0x0088}
0x728e…72a0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0049, t01=0x009a}
0x72a0…72c0 Head {h00=0x001c, h01=0x0050, text=» CWR A5,A4 END OF LINE? «, t00=0x0049, t01=0x00ac}
0x72c0…72d8 Head {h00=0x0014, h01=0x0050, text=» RF(G) LINA30 NO«, t00=0x0049, t01=0x00cc}
0x72d8…72ec Head {h00=0x0010, h01=0x0050, text=» ADR A6,A11 «, t00=0x0049, t01=0x00e4}
0x72ec…7304 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0049, t01=0x00f8}
0x7304…7316 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0049, t01=0x0110}
0x7316…732e Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0049, t01=0x0122}
0x732e…7342 Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0049, t01=0x013a}
0x7342…7354 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0049, t01=0x014e}
0x7354…7374 Head {h00=0x001c, h01=0x0050, text=» CWK A6,23 WRAP AROUND? «, t00=0x0049, t01=0x0160}
0x7374…738e Head {h00=0x0016, h01=0x0050, text=» RF(G) LINA20 YES «, t00=0x0049, t01=0x0180}
0x738e…73a4 Head {h00=0x0012, h01=0x0050, text=» ADK A5,LLINE «, t00=0x004a, t01=0x000a}
0x73a4…73b6 Head {h00=0x000e, h01=0x0050, text=» RF LINA30«, t00=0x004a, t01=0x0020}
0x73b6…73ca Head {h00=0x0010, h01=0x0050, text=»LINA20 EQU *«, t00=0x004a, t01=0x0032}
0x73ca…73dc Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x004a, t01=0x0046}
0x73dc…73ee Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x004a, t01=0x0058}
0x73ee…7404 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x004a, t01=0x006a}
0x7404…7418 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x004a, t01=0x0080}
0x7418…742e Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x004a, t01=0x0094}
0x742e…7442 Head {h00=0x0010, h01=0x0050, text=»LINA30 EQU *«, t00=0x004a, t01=0x00aa}
0x7442…7466 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A10 ALL CHECKED? =1 «, t00=0x004a, t01=0x00be}
0x7466…7482 Head {h00=0x0018, h01=0x0050, text=» RF(E) LINA40 YES =1«, t00=0x004a, t01=0x00e2}
0x7482…7494 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x004a, t01=0x00fe}
0x7494…74b2 Head {h00=0x001a, h01=0x0050, text=» CWK A2,/80 ATTRIBUTE «, t00=0x004a, t01=0x0110}
0x74b2…74cc Head {h00=0x0016, h01=0x0050, text=» RB(NG) LINA10 YES«, t00=0x004a, t01=0x012e}
0x74cc…74e6 Head {h00=0x0016, h01=0x0050, text=»LINA40 EQU * . =1 «, t00=0x004a, t01=0x0148}
0x74e6…74fc Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x004a, t01=0x0162}
0x74fc…750c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004a, t01=0x0178}
0x750c…751a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0188}
0x751a…755e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004b, t01=0x0008}
0x755e…75a2 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x004b, t01=0x004c}
0x75a2…75e6 Head {h00=0x0040, h01=0x0050, text=»* NLROUT NEW LINE ROUTINE * «, t00=0x004b, t01=0x0090}
0x75e6…762a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x004b, t01=0x00d4}
0x762a…766e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004b, t01=0x0118}
0x766e…7682 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004b, t01=0x015c}
0x7682…768c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0170}
0x768c…76ae Head {h00=0x001e, h01=0x0050, text=»* A3= ADDRES IN VDU BUFFER«, t00=0x004b, t01=0x017a}
0x76ae…76ca Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x004c, t01=0x000c}
0x76ca…76e0 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004c, t01=0x0028}
0x76e0…76f6 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004c, t01=0x003e}
0x76f6…770c Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004c, t01=0x0054}
0x770c…7722 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004c, t01=0x006a}
0x7722…773a Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x004c, t01=0x0080}
0x773a…7752 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x004c, t01=0x0098}
0x7752…776a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004c, t01=0x00b0}
0x776a…7774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00c8}
0x7774…77b8 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004c, t01=0x00d2}
0x77b8…77cc Head {h00=0x0010, h01=0x0050, text=»NLROUT EQU *«, t00=0x004c, t01=0x0116}
0x77cc…77f0 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A4 SAVE CURSOR POS. «, t00=0x004c, t01=0x012a}
0x77f0…7822 Head {h00=0x002e, h01=0x0050, text=» CF A14,CRDOWN MOVE CURSOR ON E LINE DOWN «, t00=0x004c, t01=0x014e}
0x7822…7834 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x004c, t01=0x0180}
0x7834…7848 (77, 0, 400) Head {h00=0x0010, h01=0x0050, text=»NLR100 EQU *«, t00=0x004d, t01=0x0004}
0x7848…7874 Head {h00=0x0028, h01=0x0050, text=» SUK A4,LLINE COMPUTE LEFTMOST POS. «, t00=0x004d, t01=0x0018}
0x7874…788a Head {h00=0x0012, h01=0x0050, text=» RF(N) NLR200 «, t00=0x004d, t01=0x0044}
0x788a…78a0 Head {h00=0x0012, h01=0x0050, text=» ADK A7,LLINE «, t00=0x004d, t01=0x005a}
0x78a0…78b2 Head {h00=0x000e, h01=0x0050, text=» RB NLR100«, t00=0x004d, t01=0x0070}
0x78b2…78c6 Head {h00=0x0010, h01=0x0050, text=»NLR200 EQU *«, t00=0x004d, t01=0x0082}
0x78c6…78d8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x004d, t01=0x0096}
0x78d8…78ec Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x004d, t01=0x00a8}
0x78ec…7900 Head {h00=0x0010, h01=0x0050, text=»NLR300 EQU *«, t00=0x004d, t01=0x00bc}
0x7900…791e Head {h00=0x001a, h01=0x0050, text=» CWR A7,A4 ALL NULLED?«, t00=0x004d, t01=0x00d0}
0x791e…7938 Head {h00=0x0016, h01=0x0050, text=» RF(E) NLR900 YES «, t00=0x004d, t01=0x00ee}
0x7938…795e Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 NULL IN VDU BUFFER «, t00=0x004d, t01=0x0108}
0x795e…7976 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004d, t01=0x012e}
0x7976…7988 Head {h00=0x000e, h01=0x0050, text=» ORKL A1,1«, t00=0x004d, t01=0x0146}
0x7988…79a0 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004d, t01=0x0158}
0x79a0…79b2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004d, t01=0x0170}
0x79b2…79c4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004d, t01=0x0182}
0x79c4…79da (78, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A14,LINWRP«, t00=0x004e, t01=0x0004}
0x79da…79ec Head {h00=0x000e, h01=0x0050, text=» RB NLR300«, t00=0x004e, t01=0x001a}
0x79ec…7a00 Head {h00=0x0010, h01=0x0050, text=»NLR900 EQU *«, t00=0x004e, t01=0x002c}
0x7a00…7a10 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004e, t01=0x0040}
0x7a10…7a1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0050}
0x7a1e…7a6a Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x004e, t01=0x005e}
0x7a6a…7ab6 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004e, t01=0x00aa}
0x7ab6…7b02 Head {h00=0x0048, h01=0x0050, text=»* ERASE ERASE ENTIRE SCREEN * «, t00=0x004e, t01=0x00f6}
0x7b02…7b4e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004e, t01=0x0142}
0x7b4e…7b9a Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004e, t01=0x018e}
0x7b9a…7bae Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004f, t01=0x004a}
0x7bae…7bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x005e}
0x7bb8…7bcc Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x004f, t01=0x0068}
0x7bcc…7bf0 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004f, t01=0x007c}
0x7bf0…7c12 Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x004f, t01=0x00a0}
0x7c12…7c32 Head {h00=0x001c, h01=0x0050, text=»* A5= REL ATTRIBUTE POS «, t00=0x004f, t01=0x00c2}
0x7c32…7c4e Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x004f, t01=0x00e2}
0x7c4e…7c6e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004f, t01=0x00fe}
0x7c6e…7c86 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004f, t01=0x011e}
0x7c86…7c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0136}
0x7c90…7cd2 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x004f, t01=0x0140}
0x7cd2…7ce6 Head {h00=0x0010, h01=0x0050, text=»ERASE EQU * «, t00=0x004f, t01=0x0182}
0x7ce6…7d0a Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0050, t01=0x0008}
0x7d0a…7d20 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0050, t01=0x002c}
0x7d20…7d34 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0050, t01=0x0042}
0x7d34…7d5a Head {h00=0x0022, h01=0x0050, text=» LDK A2,NULL STORE NULL CHAR. «, t00=0x0050, t01=0x0056}
0x7d5a…7d6e Head {h00=0x0010, h01=0x0050, text=»ERAS10 EQU *«, t00=0x0050, t01=0x007c}
0x7d6e…7d9c Head {h00=0x002a, h01=0x0050, text=» CWK A4,LBVDU+24 WHOLE SCREEN NULLED? «, t00=0x0050, t01=0x0090}
0x7d9c…7db6 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ERAS20 YES«, t00=0x0050, t01=0x00be}
0x7db6…7dd4 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x0050, t01=0x00d8}
0x7dd4…7de6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0050, t01=0x00f6}
0x7de6…7df8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0050, t01=0x0108}
0x7df8…7e0a Head {h00=0x000e, h01=0x0050, text=» RB ERAS10«, t00=0x0050, t01=0x011a}
0x7e0a…7e1e Head {h00=0x0010, h01=0x0050, text=»ERAS20 EQU *«, t00=0x0050, t01=0x012c}
0x7e1e…7e42 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0050, t01=0x0140}
0x7e42…7e6e Head {h00=0x0028, h01=0x0050, text=» LDKL A5,LBVDU+1 UNFORMATTED SCREEN «, t00=0x0050, t01=0x0164}
0x7e6e…7e80 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0050, t01=0x0190}
0x7e80…7eae Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0051, t01=0x0012}
0x7eae…7ec6 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x0051, t01=0x0040}
0x7ec6…7eec Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x0051, t01=0x0058}
0x7eec…7f06 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERAS30 YES«, t00=0x0051, t01=0x007e}
0x7f06…7f20 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0051, t01=0x0098}
0x7f20…7f40 Head {h00=0x001c, h01=0x0050, text=» LDK A2,'1' ERASE CHAR. «, t00=0x0051, t01=0x00b2}
0x7f40…7f58 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x0051, t01=0x00d2}
0x7f58…7f6c Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A1 «, t00=0x0051, t01=0x00ea}
0x7f6c…7f8a Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0051, t01=0x00fe}
0x7f8a…7fa2 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0051, t01=0x011c}
0x7fa2…7fbc Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0051, t01=0x0134}
0x7fbc…7fc8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0051, t01=0x014e}
0x7fc8…7fd8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0051, t01=0x015a}
0x7fd8…7fec Head {h00=0x0010, h01=0x0050, text=»ERAS30 EQU *«, t00=0x0051, t01=0x016a}
0x7fec…7ffc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0051, t01=0x017e}
0x7ffc…800a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x018e}
0x800a…804c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0052, t01=0x000c}
0x804c…808e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0052, t01=0x004e}
0x808e…80d0 Head {h00=0x003e, h01=0x0050, text=»* ERASUP ERASE ALL UNPROTECTED * «, t00=0x0052, t01=0x0090}
0x80d0…8112 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0052, t01=0x00d2}
0x8112…8154 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0052, t01=0x0114}
0x8154…8168 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0052, t01=0x0156}
0x8168…8172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x016a}
0x8172…8186 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0052, t01=0x0174}
0x8186…81aa Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0052, t01=0x0188}
0x81aa…81c8 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0053, t01=0x001c}
0x81c8…81ea Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0053, t01=0x003a}
0x81ea…8212 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0053, t01=0x005c}
0x8212…8232 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0053, t01=0x0084}
0x8232…824a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0053, t01=0x00a4}
0x824a…8254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00bc}
0x8254…8296 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0053, t01=0x00c6}
0x8296…82aa Head {h00=0x0010, h01=0x0050, text=»ERASUP EQU *«, t00=0x0053, t01=0x0108}
0x82aa…82d0 Head {h00=0x0022, h01=0x0050, text=» LDK A1,2 RESTORE KEYBOARD-BIT«, t00=0x0053, t01=0x011c}
0x82d0…82e6 Head {h00=0x0012, h01=0x0050, text=» ST A1,WCC,A11«, t00=0x0053, t01=0x0142}
0x82e6…830a Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0053, t01=0x0158}
0x830a…8320 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0053, t01=0x017c}
0x8320…8334 (84, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0054, t01=0x0004}
0x8334…835a Head {h00=0x0022, h01=0x0050, text=» LDK A7,NULL STORE NULL CHAR. «, t00=0x0054, t01=0x0018}
0x835a…8386 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0054, t01=0x003e}
0x8386…83a0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERUP10 NO «, t00=0x0054, t01=0x006a}
0x83a0…83b6 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0054, t01=0x0084}
0x83b6…83c8 Head {h00=0x000e, h01=0x0050, text=» RF ERUP90«, t00=0x0054, t01=0x009a}
0x83c8…83dc Head {h00=0x0010, h01=0x0050, text=»ERUP10 EQU *«, t00=0x0054, t01=0x00ac}
0x83dc…83f8 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0054, t01=0x00c0}
0x83f8…8418 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0054, t01=0x00dc}
0x8418…8432 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ERUP20 YES«, t00=0x0054, t01=0x00fc}
0x8432…8444 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0054, t01=0x0116}
0x8444…8456 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0054, t01=0x0128}
0x8456…8468 Head {h00=0x000e, h01=0x0050, text=» RB ERUP10«, t00=0x0054, t01=0x013a}
0x8468…847c Head {h00=0x0010, h01=0x0050, text=»ERUP20 EQU *«, t00=0x0054, t01=0x014c}
0x847c…84a4 Head {h00=0x0024, h01=0x0050, text=» LDR A9,A4 FIRST ATTRIBUTE POS. «, t00=0x0054, t01=0x0160}
0x84a4…84ba Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0054, t01=0x0188}
0x84ba…84ce Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0055, t01=0x000e}
0x84ce…84e2 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0055, t01=0x0022}
0x84e2…84f6 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0055, t01=0x0036}
0x84f6…8508 Head {h00=0x000e, h01=0x0050, text=» RF ERUP47«, t00=0x0055, t01=0x004a}
0x8508…851c Head {h00=0x0010, h01=0x0050, text=»ERUP30 EQU *«, t00=0x0055, t01=0x005c}
0x851c…852e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0055, t01=0x0070}
0x852e…8540 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0055, t01=0x0082}
0x8540…856e Head {h00=0x002a, h01=0x0050, text=» CF A14,LINWRP CHECK IF LINWRP AROUND «, t00=0x0055, t01=0x0094}
0x856e…858a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0055, t01=0x00c2}
0x858a…85aa Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0055, t01=0x00de}
0x85aa…85c2 Head {h00=0x0014, h01=0x0050, text=» RB(L) ERUP30 NO«, t00=0x0055, t01=0x00fe}
0x85c2…85d6 Head {h00=0x0010, h01=0x0050, text=»ERUP45 EQU *«, t00=0x0055, t01=0x0116}
0x85d6…85f6 Head {h00=0x001c, h01=0x0050, text=» CWR A9,A4 ALL SCANNED? «, t00=0x0055, t01=0x012a}
0x85f6…8610 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUP70 YES «, t00=0x0055, t01=0x014a}
0x8610…8624 Head {h00=0x0010, h01=0x0050, text=»ERUP47 EQU *«, t00=0x0055, t01=0x0164}
0x8624…8636 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0055, t01=0x0178}
0x8636…8654 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/20 PROTECTED?«, t00=0x0055, t01=0x018a}
0x8654…866e Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ERUP30 YES«, t00=0x0056, t01=0x0018}
0x866e…8690 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x0056, t01=0x0032}
0x8690…86b2 Head {h00=0x001e, h01=0x0050, text=» SCR A2,A3 SAVE ATTRIBUTE «, t00=0x0056, t01=0x0054}
0x86b2…86ca Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0056, t01=0x0076}
0x86ca…86dc Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0056, t01=0x008e}
0x86dc…86f4 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0056, t01=0x00a0}
0x86f4…8706 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0056, t01=0x00b8}
0x8706…8718 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0056, t01=0x00ca}
0x8718…872c Head {h00=0x0010, h01=0x0050, text=»ERUP50 EQU *«, t00=0x0056, t01=0x00dc}
0x872c…875a Head {h00=0x002a, h01=0x0050, text=» CF A14,LINWRP CHECK IF LINWRP AROUND «, t00=0x0056, t01=0x00f0}
0x875a…8776 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0056, t01=0x011e}
0x8776…8796 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0056, t01=0x013a}
0x8796…87b0 Head {h00=0x0016, h01=0x0050, text=» RB(NL) ERUP45 YES«, t00=0x0056, t01=0x015a}
0x87b0…87e2 Head {h00=0x002e, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. IN VDU BUFFER «, t00=0x0056, t01=0x0174}
0x87e2…87fa Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0057, t01=0x0016}
0x87fa…880c Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0057, t01=0x002e}
0x880c…8824 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0057, t01=0x0040}
0x8824…8836 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0057, t01=0x0058}
0x8836…8848 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0057, t01=0x006a}
0x8848…885a Head {h00=0x000e, h01=0x0050, text=» RB ERUP50«, t00=0x0057, t01=0x007c}
0x885a…886e Head {h00=0x0010, h01=0x0050, text=»ERUP70 EQU *«, t00=0x0057, t01=0x008e}
0x886e…88a6 Head {h00=0x0034, h01=0x0050, text=» CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN «, t00=0x0057, t01=0x00a2}
0x88a6…88ba Head {h00=0x0010, h01=0x0050, text=»ERUP90 EQU *«, t00=0x0057, t01=0x00da}
0x88ba…88ca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x00ee}
0x88ca…88d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x00fe}
0x88d8…8920 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0057, t01=0x010c}
0x8920…892a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0154}
0x892a…8972 Head {h00=0x0044, h01=0x0050, text=»* ERASUA ERASE UNPROTECTED TO ADDRESS *«, t00=0x0057, t01=0x015e}
0x8972…89ba Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0058, t01=0x0016}
0x89ba…8a02 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0058, t01=0x005e}
0x8a02…8a16 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0058, t01=0x00a6}
0x8a16…8a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00ba}
0x8a20…8a3a Head {h00=0x0016, h01=0x0050, text=»* A1= STOP ADDRESS«, t00=0x0058, t01=0x00c4}
0x8a3a…8a4e Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0058, t01=0x00de}
0x8a4e…8a72 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0058, t01=0x00f2}
0x8a72…8a90 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0058, t01=0x0116}
0x8a90…8ab0 Head {h00=0x001c, h01=0x0050, text=»* A5= REL ATTRIBUTE POS.«, t00=0x0058, t01=0x0134}
0x8ab0…8ace Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0058, t01=0x0154}
0x8ace…8ae6 Head {h00=0x0014, h01=0x0050, text=»* A7= NULL CHAR.«, t00=0x0058, t01=0x0172}
0x8ae6…8b06 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0058, t01=0x018a}
0x8b06…8b1e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0059, t01=0x001a}
0x8b1e…8b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0032}
0x8b28…8b70 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0059, t01=0x003c}
0x8b70…8b84 Head {h00=0x0010, h01=0x0050, text=»ERASUA EQU *«, t00=0x0059, t01=0x0084}
0x8b84…8baa Head {h00=0x0022, h01=0x0050, text=» LDK A7,NULL STORE NULL CHAR. «, t00=0x0059, t01=0x0098}
0x8baa…8bc0 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0059, t01=0x00be}
0x8bc0…8bd4 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0059, t01=0x00d4}
0x8bd4…8bf2 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A4 BUFFER POS.«, t00=0x0059, t01=0x00e8}
0x8bf2…8c1e Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0059, t01=0x0106}
0x8c1e…8c38 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA47 YES «, t00=0x0059, t01=0x0132}
0x8c38…8c60 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A6 GET CURRENT ATTRIBUTE«, t00=0x0059, t01=0x014c}
0x8c60…8c8a Head {h00=0x0026, h01=0x0050, text=» CWR A5,A4 STANDING ON ATTRIBUTE? «, t00=0x0059, t01=0x0174}
0x8c8a…8ca4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERUA10 NO «, t00=0x005a, t01=0x000e}
0x8ca4…8cb6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x005a, t01=0x0028}
0x8cb6…8cc8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005a, t01=0x003a}
0x8cc8…8ce6 Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 ALL NULLED?«, t00=0x005a, t01=0x004c}
0x8ce6…8d00 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA70 YES «, t00=0x005a, t01=0x006a}
0x8d00…8d2a Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x005a, t01=0x0084}
0x8d2a…8d3e Head {h00=0x0010, h01=0x0050, text=»ERUA10 EQU *«, t00=0x005a, t01=0x00ae}
0x8d3e…8d62 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/20 PROTECTED FIELD?«, t00=0x005a, t01=0x00c2}
0x8d62…8d7a Head {h00=0x0014, h01=0x0050, text=» RF(Z) ERUA47 NO«, t00=0x005a, t01=0x00e6}
0x8d7a…8d8e Head {h00=0x0010, h01=0x0050, text=»ERUA30 EQU *«, t00=0x005a, t01=0x00fe}
0x8d8e…8db8 Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x005a, t01=0x0112}
0x8db8…8dda Head {h00=0x001e, h01=0x0050, text=» CWR A1,A4 ALL NULLED? =2 «, t00=0x005a, t01=0x013c}
0x8dda…8df6 Head {h00=0x0018, h01=0x0050, text=» RF(E) ERUA70 YES =2«, t00=0x005a, t01=0x015e}
0x8df6…8e12 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x005a, t01=0x017a}
0x8e12…8e24 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x005b, t01=0x0008}
0x8e24…8e36 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005b, t01=0x001a}
0x8e36…8e46 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x005b, t01=0x002c}
0x8e46…8e66 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x005b, t01=0x003c}
0x8e66…8e7e Head {h00=0x0014, h01=0x0050, text=» RB(L) ERUA30 NO«, t00=0x005b, t01=0x005c}
0x8e7e…8e92 Head {h00=0x0010, h01=0x0050, text=»ERUA45 EQU *«, t00=0x005b, t01=0x0074}
0x8e92…8ea4 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x005b, t01=0x0088}
0x8ea4…8ec4 Head {h00=0x001c, h01=0x0050, text=» ANKL A8,/20 PROTECTED? «, t00=0x005b, t01=0x009a}
0x8ec4…8ede Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ERUA30 YES«, t00=0x005b, t01=0x00ba}
0x8ede…8ef2 Head {h00=0x0010, h01=0x0050, text=»ERUA47 EQU *«, t00=0x005b, t01=0x00d4}
0x8ef2…8f06 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x005b, t01=0x00e8}
0x8f06…8f1c Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x005b, t01=0x00fc}
0x8f1c…8f2e Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005b, t01=0x0112}
0x8f2e…8f42 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x005b, t01=0x0124}
0x8f42…8f54 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005b, t01=0x0138}
0x8f54…8f66 Head {h00=0x000e, h01=0x0050, text=» RF ERUA60«, t00=0x005b, t01=0x014a}
0x8f66…8f7a Head {h00=0x0010, h01=0x0050, text=»ERUA50 EQU *«, t00=0x005b, t01=0x015c}
0x8f7a…8f8c Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005b, t01=0x0170}
0x8f8c…8fa2 Head {h00=0x0012, h01=0x0050, text=» CF A14,LINWRP«, t00=0x005b, t01=0x0182}
0x8fa2…8fb4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005c, t01=0x0008}
0x8fb4…8fd2 Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 ALL NULLED?«, t00=0x005c, t01=0x001a}
0x8fd2…8fec Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA70 YES «, t00=0x005c, t01=0x0038}
0x8fec…9000 Head {h00=0x0010, h01=0x0050, text=»ERUA60 EQU *«, t00=0x005c, t01=0x0052}
0x9000…901c Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x005c, t01=0x0066}
0x901c…903c Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x005c, t01=0x0082}
0x903c…9058 Head {h00=0x0018, h01=0x0050, text=» RF(L) ERUA62 NO =3 «, t00=0x005c, t01=0x00a2}
0x9058…907a Head {h00=0x001e, h01=0x0050, text=» ANK A2,/20 PROTECTED? =3 «, t00=0x005c, t01=0x00be}
0x907a…9098 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERUA30 YES =3 «, t00=0x005c, t01=0x00e0}
0x9098…90ae Head {h00=0x0012, h01=0x0050, text=» RF ERUA64 =3«, t00=0x005c, t01=0x00fe}
0x90ae…90c6 Head {h00=0x0014, h01=0x0050, text=»ERUA62 EQU * =3«, t00=0x005c, t01=0x0114}
0x90c6…90f8 Head {h00=0x002e, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR, IN VDU-BUFFER «, t00=0x005c, t01=0x012c}
0x90f8…9110 Head {h00=0x0014, h01=0x0050, text=» LC A8,LINFLG,A6«, t00=0x005c, t01=0x015e}
0x9110…9122 Head {h00=0x000e, h01=0x0050, text=» ORKL A8,1«, t00=0x005c, t01=0x0176}
0x9122…913a Head {h00=0x0014, h01=0x0050, text=» SC A8,LINFLG,A6«, t00=0x005c, t01=0x0188}
0x913a…9152 Head {h00=0x0014, h01=0x0050, text=»ERUA64 EQU * =3«, t00=0x005d, t01=0x0010}
0x9152…9164 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x005d, t01=0x0028}
0x9164…9176 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005d, t01=0x003a}
0x9176…9188 Head {h00=0x000e, h01=0x0050, text=» RB ERUA50«, t00=0x005d, t01=0x004c}
0x9188…919c Head {h00=0x0010, h01=0x0050, text=»ERUA70 EQU *«, t00=0x005d, t01=0x005e}
0x919c…91ac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005d, t01=0x0072}
0x91ac…91ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x0082}
0x91ba…91fc Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x005d, t01=0x0090}
0x91fc…923e Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x005d, t01=0x00d2}
0x923e…9280 Head {h00=0x003e, h01=0x0050, text=»* POSUNP MOVE CURSOR TO NEXT UNPR. POS. *«, t00=0x005d, t01=0x0114}
0x9280…92c2 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x005d, t01=0x0156}
0x92c2…9304 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x005e, t01=0x0008}
0x9304…9318 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005e, t01=0x004a}
0x9318…9322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x005e}
0x9322…9338 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x005e, t01=0x0068}
0x9338…9356 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005e, t01=0x007e}
0x9356…9378 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005e, t01=0x009c}
0x9378…9394 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x005e, t01=0x00be}
0x9394…93b4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005e, t01=0x00da}
0x93b4…93cc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005e, t01=0x00fa}
0x93cc…93d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0112}
0x93d6…941a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x005e, t01=0x011c}
0x941a…942e Head {h00=0x0010, h01=0x0050, text=»POSUNP EQU *«, t00=0x005e, t01=0x0160}
0x942e…9452 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x005e, t01=0x0174}
0x9452…946c Head {h00=0x0016, h01=0x0050, text=» RF(NG) POSU20 NO «, t00=0x005f, t01=0x0008}
0x946c…9492 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x005f, t01=0x0022}
0x9492…94aa Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x005f, t01=0x0048}
0x94aa…94be Head {h00=0x0010, h01=0x0050, text=»POSU20 EQU *«, t00=0x005f, t01=0x0060}
0x94be…94d0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005f, t01=0x0074}
0x94d0…94fe Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x005f, t01=0x0086}
0x94fe…951e Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x005f, t01=0x00b4}
0x951e…9536 Head {h00=0x0014, h01=0x0050, text=» RF(L) POSU30 NO«, t00=0x005f, t01=0x00d4}
0x9536…9548 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x005f, t01=0x00ec}
0x9548…955c Head {h00=0x0010, h01=0x0050, text=» ANK A7,/20 «, t00=0x005f, t01=0x00fe}
0x955c…9580 Head {h00=0x0020, h01=0x0050, text=» CWK A7,/20 PROTECTED? DKPT «, t00=0x005f, t01=0x0112}
0x9580…959a Head {h00=0x0016, h01=0x0050, text=» RF(E) POSU25 YES «, t00=0x005f, t01=0x0136}
0x959a…95ac Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x005f, t01=0x0150}
0x95ac…95ce Head {h00=0x001e, h01=0x0050, text=» IM PCURS,A11 MOVE CURSOR «, t00=0x005f, t01=0x0162}
0x95ce…95e0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005f, t01=0x0184}
0x95e0…9604 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0060, t01=0x0008}
0x9604…961e Head {h00=0x0016, h01=0x0050, text=» RF(NG) POSU23 NO «, t00=0x0060, t01=0x002c}
0x961e…9630 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0060, t01=0x0046}
0x9630…9644 Head {h00=0x0010, h01=0x0050, text=»POSU23 EQU *«, t00=0x0060, t01=0x0058}
0x9644…9672 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0060, t01=0x006c}
0x9672…9690 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0060, t01=0x009a}
0x9690…96b2 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0060, t01=0x00b8}
0x96b2…96c4 Head {h00=0x000e, h01=0x0050, text=» RF POSU30«, t00=0x0060, t01=0x00da}
0x96c4…96d8 Head {h00=0x0010, h01=0x0050, text=»POSU25 EQU *«, t00=0x0060, t01=0x00ec}
0x96d8…9706 Head {h00=0x002a, h01=0x0050, text=» CF A14,TAB TAB NEXT UNPROTECTED FIELD«, t00=0x0060, t01=0x0100}
0x9706…971a Head {h00=0x0010, h01=0x0050, text=»POSU30 EQU *«, t00=0x0060, t01=0x012e}
0x971a…9734 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0060, t01=0x0142}
0x9734…974c Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A8 «, t00=0x0060, t01=0x015c}
0x974c…976a Head {h00=0x001a, h01=0x0050, text=» ANK A1,/FF LINE POS. «, t00=0x0060, t01=0x0174}
0x976a…9790 (97, 0, 400) Head {h00=0x0022, h01=0x0050, text=» SUK A1,81 LAST POS. ON LINE? «, t00=0x0061, t01=0x0004}
0x9790…97aa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) POSU90 NO «, t00=0x0061, t01=0x002a}
0x97aa…97c8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0061, t01=0x0044}
0x97c8…97ea Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0061, t01=0x0062}
0x97ea…97fe Head {h00=0x0010, h01=0x0050, text=»POSU90 EQU *«, t00=0x0061, t01=0x0084}
0x97fe…980e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0098}
0x980e…981c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x00a8}
0x981c…9860 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x00b6}
0x9860…98a4 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0061, t01=0x00fa}
0x98a4…98e8 Head {h00=0x0040, h01=0x0050, text=»* DISID DISPLAY HARDCOPY TASKID *«, t00=0x0061, t01=0x013e}
0x98e8…992c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0182}
0x992c…9970 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0062, t01=0x0036}
0x9970…9990 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x0062, t01=0x007a}
0x9990…999a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x009a}
0x999a…99a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00a4}
0x99a4…99e8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0062, t01=0x00ae}
0x99e8…99fc Head {h00=0x0010, h01=0x0050, text=»DISID EQU * «, t00=0x0062, t01=0x00f2}
0x99fc…9a16 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0062, t01=0x0106}
0x9a16…9a40 Head {h00=0x0026, h01=0x0050, text=» CF A14,SPACES SPACE IN ECB BUFFER«, t00=0x0062, t01=0x0120}
0x9a40…9a6a Head {h00=0x0026, h01=0x0050, text=» LD A3,6,A13 GET COMMON BLOCK BASE«, t00=0x0062, t01=0x014a}
0x9a6a…9a8a Head {h00=0x001c, h01=0x0050, text=» LDR A1,A5 SAVE TASK ID «, t00=0x0062, t01=0x0174}
0x9a8a…9aa0 (99, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDK A5,IDTEXT«, t00=0x0063, t01=0x0004}
0x9aa0…9ac4 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A3 POINT ON IDBUFFER«, t00=0x0063, t01=0x001a}
0x9ac4…9ad6 Head {h00=0x000e, h01=0x0050, text=» ADK A6,46«, t00=0x0063, t01=0x003e}
0x9ad6…9ae8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,6 «, t00=0x0063, t01=0x0050}
0x9ae8…9b0c Head {h00=0x0020, h01=0x0050, text=» ANK A4,1 PRINTER OPERABLE? «, t00=0x0063, t01=0x0062}
0x9b0c…9b26 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISI10 YES «, t00=0x0063, t01=0x0086}
0x9b26…9b38 Head {h00=0x000e, h01=0x0050, text=» ADK A3,16«, t00=0x0063, t01=0x00a0}
0x9b38…9b4c Head {h00=0x0010, h01=0x0050, text=»DISI10 EQU *«, t00=0x0063, t01=0x00b2}
0x9b4c…9b72 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 MOVE INTO ECBBUFFER «, t00=0x0063, t01=0x00c6}
0x9b72…9b92 Head {h00=0x001c, h01=0x0050, text=» RF(N) DISI20 COMPLETED «, t00=0x0063, t01=0x00ec}
0x9b92…9ba6 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x0063, t01=0x010c}
0x9ba6…9bb8 Head {h00=0x000e, h01=0x0050, text=» STR A2,A6«, t00=0x0063, t01=0x0120}
0x9bb8…9bca Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0063, t01=0x0132}
0x9bca…9bdc Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0063, t01=0x0144}
0x9bdc…9bee Head {h00=0x000e, h01=0x0050, text=» RB DISI10«, t00=0x0063, t01=0x0156}
0x9bee…9c02 Head {h00=0x0010, h01=0x0050, text=»DISI20 EQU *«, t00=0x0063, t01=0x0168}
0x9c02…9c1a Head {h00=0x0014, h01=0x0050, text=» LD A6,ECBBA,A8 «, t00=0x0063, t01=0x017c}
0x9c1a…9c4c (100, 0, 400) Head {h00=0x002e, h01=0x0050, text=» ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER «, t00=0x0064, t01=0x0004}
0x9c4c…9c76 Head {h00=0x0026, h01=0x0050, text=» LC A2,X'1F' HIGH INTENSITY CHAR. «, t00=0x0064, t01=0x0036}
0x9c76…9c90 Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBBA+45,A6«, t00=0x0064, t01=0x0060}
0x9c90…9cbc Head {h00=0x0028, h01=0x0050, text=» LDKL A10,1 INDICATE NOT ONLY SPACES«, t00=0x0064, t01=0x007a}
0x9cbc…9ce0 Head {h00=0x0020, h01=0x0050, text=» LDKL A9,1 1 INTENSITY CHAR.«, t00=0x0064, t01=0x00a6}
0x9ce0…9d0c Head {h00=0x0028, h01=0x0050, text=» LDKL A2,X'1801' DISPLAY ON LAST ROW«, t00=0x0064, t01=0x00ca}
0x9d0c…9d24 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0064, t01=0x00f6}
0x9d24…9d4e Head {h00=0x0026, h01=0x0050, text=» CF A14,DISLIN DISPLAY IDENT TEXT «, t00=0x0064, t01=0x010e}
0x9d4e…9d5e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x0138}
0x9d5e…9d6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0148}
0x9d6c…9db2 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0064, t01=0x0156}
0x9db2…9dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x000c}
0x9dbc…9de0 Head {h00=0x0020, h01=0x0050, text=»* DISSTA DISPLAY STATISTICS «, t00=0x0065, t01=0x0016}
0x9de0…9dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x003a}
0x9dea…9e32 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0065, t01=0x0044}
0x9e32…9e4c Head {h00=0x0016, h01=0x0050, text=»* REGISTERS«, t00=0x0065, t01=0x008c}
0x9e4c…9e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00a6}
0x9e56…9e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00b0}
0x9e60…9ea8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0065, t01=0x00ba}
0x9ea8…9ebc Head {h00=0x0010, h01=0x0050, text=»DISSTA EQU *«, t00=0x0065, t01=0x0102}
0x9ebc…9ed0 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0065, t01=0x0116}
0x9ed0…9eea Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0065, t01=0x012a}
0x9eea…9f10 Head {h00=0x0022, h01=0x0050, text=» LDK A1,STALIN WHERE TO START «, t00=0x0065, t01=0x0144}
0x9f10…9f22 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0065, t01=0x016a}
0x9f22…9f34 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0065, t01=0x017c}
0x9f34…9f5e Head {h00=0x0026, h01=0x0050, text=» ORR A2,A1 FIRST POS. ON THAT LINE«, t00=0x0065, t01=0x018e}
0x9f5e…9f76 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0066, t01=0x0028}
0x9f76…9f9e Head {h00=0x0024, h01=0x0050, text=» CF A14,SPACES CLEAN THE BUFFER «, t00=0x0066, t01=0x0040}
0x9f9e…9fbc Head {h00=0x001a, h01=0x0050, text=» LDK A5,0 RESET INDEX «, t00=0x0066, t01=0x0068}
0x9fbc…9fd0 Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0066, t01=0x0086}
0x9fd0…9ff4 Head {h00=0x0020, h01=0x0050, text=» ADK A3,STATXT POINT TO TEXT«, t00=0x0066, t01=0x009a}
0x9ff4…a008 Head {h00=0x0010, h01=0x0050, text=»DISS10 EQU *«, t00=0x0066, t01=0x00be}
0xa008…a02a Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1F HIGH INTENSITY«, t00=0x0066, t01=0x00d2}
0xa02a…a03c Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0066, t01=0x00f4}
0xa03c…a04e Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0066, t01=0x0106}
0xa04e…a060 Head {h00=0x000e, h01=0x0050, text=» LDKL A9,1«, t00=0x0066, t01=0x0118}
0xa060…a090 Head {h00=0x002c, h01=0x0050, text=» LDK A1,TXTSIZ GET SIZE OF TEXT PER LINE«, t00=0x0066, t01=0x012a}
0xa090…a0bc Head {h00=0x0028, h01=0x0050, text=» CF A14,MOVTXT MOVE IT IN TO BUFFER «, t00=0x0066, t01=0x015a}
0xa0bc…a0e4 Head {h00=0x0024, h01=0x0050, text=» ADK A6,5+STAPOS MAKE SOME ROOM «, t00=0x0066, t01=0x0186}
0xa0e4…a0fc Head {h00=0x0014, h01=0x0050, text=» LC A1,INDEX,A5 «, t00=0x0067, t01=0x001e}
0xa0fc…a10e Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0067, t01=0x0036}
0xa10e…a136 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A12 POINT OUT STAT VALUE«, t00=0x0067, t01=0x0048}
0xa136…a148 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0067, t01=0x0070}
0xa148…a16e Head {h00=0x0022, h01=0x0050, text=» CF A14,CONASC MAKE IT VISABLE«, t00=0x0067, t01=0x0082}
0xa16e…a180 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0067, t01=0x00a8}
0xa180…a192 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0067, t01=0x00ba}
0xa192…a1a4 Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0067, t01=0x00cc}
0xa1a4…a1ba Head {h00=0x0012, h01=0x0050, text=» CF A14,CONASC«, t00=0x0067, t01=0x00de}
0xa1ba…a1cc Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0067, t01=0x00f4}
0xa1cc…a1de Head {h00=0x000e, h01=0x0050, text=» ORR A2,A4«, t00=0x0067, t01=0x0106}
0xa1de…a1f2 Head {h00=0x0010, h01=0x0050, text=» SC A2,+1,A6«, t00=0x0067, t01=0x0118}
0xa1f2…a204 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0067, t01=0x012c}
0xa204…a216 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0067, t01=0x013e}
0xa216…a228 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0067, t01=0x0150}
0xa228…a23c Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0067, t01=0x0162}
0xa23c…a25c Head {h00=0x001c, h01=0x0050, text=» CF A14,CONASC AS ABOVE «, t00=0x0067, t01=0x0176}
0xa25c…a26e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0068, t01=0x0008}
0xa26e…a282 Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0068, t01=0x001a}
0xa282…a294 Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0068, t01=0x002e}
0xa294…a2aa Head {h00=0x0012, h01=0x0050, text=» CF A14,CONASC«, t00=0x0068, t01=0x0040}
0xa2aa…a2bc Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0068, t01=0x0056}
0xa2bc…a2ce Head {h00=0x000e, h01=0x0050, text=» ORR A2,A4«, t00=0x0068, t01=0x0068}
0xa2ce…a2e2 Head {h00=0x0010, h01=0x0050, text=» SC A2,+1,A6«, t00=0x0068, t01=0x007a}
0xa2e2…a2f4 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0068, t01=0x008e}
0xa2f4…a306 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0068, t01=0x00a0}
0xa306…a32a Head {h00=0x0020, h01=0x0050, text=» LDKL A10,1 NOT ONLY SPACES «, t00=0x0068, t01=0x00b2}
0xa32a…a34e Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY STAT.«, t00=0x0068, t01=0x00d6}
0xa34e…a374 Head {h00=0x0022, h01=0x0050, text=» CWK A5,NUMLIN LIMIT REACHED? «, t00=0x0068, t01=0x00fa}
0xa374…a38e Head {h00=0x0016, h01=0x0050, text=» RB(NE) DISS10 NO «, t00=0x0068, t01=0x0120}
0xa38e…a39a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x013a}
0xa39a…a3aa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x0146}
0xa3aa…a3be Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0068, t01=0x0156}
0xa3be…a3cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x016a}
0xa3cc…a410 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0068, t01=0x0178}
0xa410…a41a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x002c}
0xa41a…a434 Head {h00=0x0016, h01=0x0050, text=»* MOVTXT MOVE TEXT«, t00=0x0069, t01=0x0036}
0xa434…a43e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0050}
0xa43e…a482 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0069, t01=0x005a}
0xa482…a49c Head {h00=0x0016, h01=0x0050, text=»* REGISTERS «, t00=0x0069, t01=0x009e}
0xa49c…a4a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00b8}
0xa4a6…a4b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00c2}
0xa4b0…a4f2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x00cc}
0xa4f2…a4fa Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x010e}
0xa4fa…a50e Head {h00=0x0010, h01=0x0050, text=»MOVTXT EQU *«, t00=0x0069, t01=0x0116}
0xa50e…a520 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0069, t01=0x012a}
0xa520…a532 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0069, t01=0x013c}
0xa532…a54a Head {h00=0x0014, h01=0x0050, text=» SC A2,STAPOS,A6«, t00=0x0069, t01=0x014e}
0xa54a…a55c Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0069, t01=0x0166}
0xa55c…a56e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0069, t01=0x0178}
0xa56e…a584 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) MOVTXT«, t00=0x0069, t01=0x018a}
0xa584…a594 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x0010}
0xa594…a5a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x0020}
0xa5a2…a5e4 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x002e}
0xa5e4…a5ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0070}
0xa5ee…a610 Head {h00=0x001e, h01=0x0050, text=»* CONASC CONVERT TO ASCII «, t00=0x006a, t01=0x007a}
0xa610…a61a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x009c}
0xa61a…a65a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006a, t01=0x00a6}
0xa65a…a670 Head {h00=0x0012, h01=0x0050, text=»* REGISTERS«, t00=0x006a, t01=0x00e6}
0xa670…a67a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00fc}
0xa67a…a684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0106}
0xa684…a6c4 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x006a, t01=0x0110}
0xa6c4…a6d8 Head {h00=0x0010, h01=0x0050, text=»CONASC EQU *«, t00=0x006a, t01=0x0150}
0xa6d8…a6ec Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0F «, t00=0x006a, t01=0x0164}
0xa6ec…a702 Head {h00=0x0012, h01=0x0050, text=» CCK A2,/0909 «, t00=0x006a, t01=0x0178}
0xa702…a718 Head {h00=0x0012, h01=0x0050, text=» RF(G) CONA10 «, t00=0x006a, t01=0x018e}
0xa718…a72c Head {h00=0x0010, h01=0x0050, text=» ORK A2,/30 «, t00=0x006b, t01=0x0014}
0xa72c…a73e Head {h00=0x000e, h01=0x0050, text=» RF CONA90«, t00=0x006b, t01=0x0028}
0xa73e…a752 Head {h00=0x0010, h01=0x0050, text=»CONA10 EQU *«, t00=0x006b, t01=0x003a}
0xa752…a766 Head {h00=0x0010, h01=0x0050, text=» ADK A2,/37 «, t00=0x006b, t01=0x004e}
0xa766…a77a Head {h00=0x0010, h01=0x0050, text=»CONA90 EQU *«, t00=0x006b, t01=0x0062}
0xa77a…a78a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006b, t01=0x0076}
0xa78a…a796 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0086}
0xa796…a7a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0092}
0xa7a4…a7e6 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006b, t01=0x00a0}
0xa7e6…a828 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x006b, t01=0x00e2}
0xa828…a86a Head {h00=0x003e, h01=0x0050, text=»* ATMASF SEARCH ATTRIBUTE FORWARD * «, t00=0x006b, t01=0x0124}
0xa86a…a8ac Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x006b, t01=0x0166}
0xa8ac…a8ee Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006c, t01=0x0018}
0xa8ee…a902 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006c, t01=0x005a}
0xa902…a90c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x006e}
0xa90c…a938 Head {h00=0x0028, h01=0x0050, text=»* A1= AT ENTRY START SEARCH ADDRESS «, t00=0x006c, t01=0x0078}
0xa938…a94e Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x006c, t01=0x00a4}
0xa94e…a964 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006c, t01=0x00ba}
0xa964…a982 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006c, t01=0x00d0}
0xa982…a9a4 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006c, t01=0x00ee}
0xa9a4…a9c2 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006c, t01=0x0110}
0xa9c2…a9d8 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006c, t01=0x012e}
0xa9d8…a9ee Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006c, t01=0x0144}
0xa9ee…aa06 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006c, t01=0x015a}
0xaa06…aa26 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006c, t01=0x0172}
0xaa26…aa3e (109, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006d, t01=0x0004}
0xaa3e…aa48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x001c}
0xaa48…aa8a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006d, t01=0x0026}
0xaa8a…aa9e Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x006d, t01=0x0068}
0xaa9e…aab6 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x006d, t01=0x007c}
0xaab6…aaca Head {h00=0x0010, h01=0x0050, text=»ASF100 EQU *«, t00=0x006d, t01=0x0094}
0xaaca…aadc Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x006d, t01=0x00a8}
0xaadc…ab00 Head {h00=0x0020, h01=0x0050, text=» CWK A1,LBVDU-1 WRAP AROUND?«, t00=0x006d, t01=0x00ba}
0xab00…ab1a Head {h00=0x0016, h01=0x0050, text=» RF(NG) ASF200 NO «, t00=0x006d, t01=0x00de}
0xab1a…ab40 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 FIRST POS. ON SCREEN«, t00=0x006d, t01=0x00f8}
0xab40…ab54 Head {h00=0x0010, h01=0x0050, text=»ASF200 EQU *«, t00=0x006d, t01=0x011e}
0xab54…ab82 Head {h00=0x002a, h01=0x0050, text=» CW A1,REGI,A11 WHOLE SCREEN SEARCHED?«, t00=0x006d, t01=0x0132}
0xab82…ab9c Head {h00=0x0016, h01=0x0050, text=» RF(E) ASF900 YES «, t00=0x006d, t01=0x0160}
0xab9c…abca Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006d, t01=0x017a}
0xabca…abea Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x006e, t01=0x0018}
0xabea…ac02 Head {h00=0x0014, h01=0x0050, text=» RB(L) ASF100 NO«, t00=0x006e, t01=0x0038}
0xac02…ac14 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x006e, t01=0x0050}
0xac14…ac26 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x006e, t01=0x0062}
0xac26…ac58 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x006e, t01=0x0074}
0xac58…ac6c Head {h00=0x0010, h01=0x0050, text=»ASF900 EQU *«, t00=0x006e, t01=0x00a6}
0xac6c…ac7c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x00ba}
0xac7c…ac8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x00ca}
0xac8a…acda Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x006e, t01=0x00d8}
0xacda…ad2a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x006e, t01=0x0128}
0xad2a…ad7a Head {h00=0x004c, h01=0x0050, text=»* ATMASB SEARCH ATTRIBUTE BACKWARD * «, t00=0x006e, t01=0x0178}
0xad7a…adca Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x006f, t01=0x0038}
0xadca…ae1a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x006f, t01=0x0088}
0xae1a…ae2e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006f, t01=0x00d8}
0xae2e…ae38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00ec}
0xae38…ae60 Head {h00=0x0024, h01=0x0050, text=»* A1= ATENTRY START SEARCH ADDR.«, t00=0x006f, t01=0x00f6}
0xae60…ae76 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x006f, t01=0x011e}
0xae76…ae8c Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006f, t01=0x0134}
0xae8c…aeaa Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006f, t01=0x014a}
0xaeaa…aecc Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006f, t01=0x0168}
0xaecc…aeea Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006f, t01=0x018a}
0xaeea…af00 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0070, t01=0x0018}
0xaf00…af16 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0070, t01=0x002e}
0xaf16…af2e Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0070, t01=0x0044}
0xaf2e…af4e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0070, t01=0x005c}
0xaf4e…af66 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0070, t01=0x007c}
0xaf66…af70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0094}
0xaf70…afc0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0070, t01=0x009e}
0xafc0…afd4 Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x0070, t01=0x00ee}
0xafd4…afec Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0070, t01=0x0102}
0xafec…b000 Head {h00=0x0010, h01=0x0050, text=»ASB100 EQU *«, t00=0x0070, t01=0x011a}
0xb000…b02e Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x0070, t01=0x012e}
0xb02e…b04e Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x0070, t01=0x015c}
0xb04e…b068 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ASB300 YES«, t00=0x0070, t01=0x017c}
0xb068…b07a Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0071, t01=0x0008}
0xb07a…b0a0 Head {h00=0x0022, h01=0x0050, text=» RF(NN) ASB200 NOT WRAP AROUND«, t00=0x0071, t01=0x001a}
0xb0a0…b0cc Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0071, t01=0x0040}
0xb0cc…b0e0 Head {h00=0x0010, h01=0x0050, text=»ASB200 EQU *«, t00=0x0071, t01=0x006c}
0xb0e0…b10e Head {h00=0x002a, h01=0x0050, text=» CW A1,REGI,A11 WHOLE SCREEN SEARCHED?«, t00=0x0071, t01=0x0080}
0xb10e…b128 Head {h00=0x0016, h01=0x0050, text=» RF(E) ASB900 YES «, t00=0x0071, t01=0x00ae}
0xb128…b13a Head {h00=0x000e, h01=0x0050, text=» RB ASB100«, t00=0x0071, t01=0x00c8}
0xb13a…b14e Head {h00=0x0010, h01=0x0050, text=»ASB300 EQU *«, t00=0x0071, t01=0x00da}
0xb14e…b160 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0071, t01=0x00ee}
0xb160…b172 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0071, t01=0x0100}
0xb172…b1a0 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0071, t01=0x0112}
0xb1a0…b1b4 Head {h00=0x0010, h01=0x0050, text=»ASB900 EQU *«, t00=0x0071, t01=0x0140}
0xb1b4…b1c4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0071, t01=0x0154}
0xb1c4…b1d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x0164}
0xb1d2…b21a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0071, t01=0x0172}
0xb21a…b262 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0072, t01=0x002a}
0xb262…b2aa Head {h00=0x0044, h01=0x0050, text=»* SNULL SEARCH FIRST NULL CHAR. * «, t00=0x0072, t01=0x0072}
0xb2aa…b2f2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0072, t01=0x00ba}
0xb2f2…b33a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0072, t01=0x0102}
0xb33a…b34e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0072, t01=0x014a}
0xb34e…b358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x015e}
0xb358…b38e Head {h00=0x0032, h01=0x0050, text=»* A1= AT RETURN 1=NULL FOUND, 2=NO NULL FOUND«, t00=0x0072, t01=0x0168}
0xb38e…b3a4 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0073, t01=0x000e}
0xb3a4…b3ea Head {h00=0x0042, h01=0x0050, text=»* A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY «, t00=0x0073, t01=0x0024}
0xb3ea…b408 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0073, t01=0x006a}
0xb408…b41e Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0073, t01=0x0088}
0xb41e…b434 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0073, t01=0x009e}
0xb434…b454 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0073, t01=0x00b4}
0xb454…b46c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0073, t01=0x00d4}
0xb46c…b476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00ec}
0xb476…b4be Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0073, t01=0x00f6}
0xb4be…b4d2 Head {h00=0x0010, h01=0x0050, text=»SNULL EQU * «, t00=0x0073, t01=0x013e}
0xb4d2…b4e4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0073, t01=0x0152}
0xb4e4…b4f8 Head {h00=0x0010, h01=0x0050, text=»SNU100 EQU *«, t00=0x0073, t01=0x0164}
0xb4f8…b50a Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0073, t01=0x0178}
0xb50a…b52e Head {h00=0x0020, h01=0x0050, text=» CWK A1,LBVDU-1 WRAP AROUND?«, t00=0x0073, t01=0x018a}
0xb52e…b548 Head {h00=0x0016, h01=0x0050, text=» RF(NG) SNU200 NO «, t00=0x0074, t01=0x001e}
0xb548…b56c Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x0074, t01=0x0038}
0xb56c…b580 Head {h00=0x0010, h01=0x0050, text=»SNU200 EQU *«, t00=0x0074, t01=0x005c}
0xb580…b5a0 Head {h00=0x001c, h01=0x0050, text=» CWR A1,A3 ALL SEARCHED?«, t00=0x0074, t01=0x0070}
0xb5a0…b5ba Head {h00=0x0016, h01=0x0050, text=» RF(E) SNU300 YES «, t00=0x0074, t01=0x0090}
0xb5ba…b5e8 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x0074, t01=0x00aa}
0xb5e8…b608 Head {h00=0x001c, h01=0x0050, text=» CCK A7,NULL NULL CHAR? «, t00=0x0074, t01=0x00d8}
0xb608…b622 Head {h00=0x0016, h01=0x0050, text=» RB(NE) SNU100 NO «, t00=0x0074, t01=0x00f8}
0xb622…b634 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0074, t01=0x0112}
0xb634…b65a Head {h00=0x0022, h01=0x0050, text=» LDK A1,1 INDICATE NULL FOUND «, t00=0x0074, t01=0x0124}
0xb65a…b66c Head {h00=0x000e, h01=0x0050, text=» RF SNU900«, t00=0x0074, t01=0x014a}
0xb66c…b680 Head {h00=0x0010, h01=0x0050, text=»SNU300 EQU *«, t00=0x0074, t01=0x015c}
0xb680…b692 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0074, t01=0x0170}
0xb692…b6a6 Head {h00=0x0010, h01=0x0050, text=»SNU900 EQU *«, t00=0x0074, t01=0x0182}
0xb6a6…b6b6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0075, t01=0x0008}
0xb6b6…b6c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x0018}
0xb6c4…b708 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0075, t01=0x0026}
0xb708…b74c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0075, t01=0x006a}
0xb74c…b790 Head {h00=0x0040, h01=0x0050, text=»* WCHAR DISPLAY CHAR. AND CURSOR *«, t00=0x0075, t01=0x00ae}
0xb790…b7d4 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0075, t01=0x00f2}
0xb7d4…b818 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0075, t01=0x0136}
0xb818…b82c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0075, t01=0x017a}
0xb82c…b836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x018e}
0xb836…b84c Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0076, t01=0x0008}
0xb84c…b86a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0076, t01=0x001e}
0xb86a…b88c Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0076, t01=0x003c}
0xb88c…b8aa Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0076, t01=0x005e}
0xb8aa…b8c0 Head {h00=0x0012, h01=0x0050, text=»* A8= VDU-ECB «, t00=0x0076, t01=0x007c}
0xb8c0…b8e0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0076, t01=0x0092}
0xb8e0…b8f8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0076, t01=0x00b2}
0xb8f8…b902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00ca}
0xb902…b948 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0076, t01=0x00d4}
0xb948…b95c Head {h00=0x0010, h01=0x0050, text=»WCHAR EQU * «, t00=0x0076, t01=0x011a}
0xb95c…b976 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0076, t01=0x012e}
0xb976…b99e Head {h00=0x0024, h01=0x0050, text=» LDK A1,/1E LOW INTENSITY CHAR. «, t00=0x0076, t01=0x0148}
0xb99e…b9b0 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0076, t01=0x0170}
0xb9b0…b9d4 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/8 STANDARD DISPLAY?«, t00=0x0076, t01=0x0182}
0xb9d4…b9ee Head {h00=0x0016, h01=0x0050, text=» RF(Z) WCH300 YES «, t00=0x0077, t01=0x0016}
0xb9ee…ba00 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0077, t01=0x0030}
0xba00…ba28 Head {h00=0x0024, h01=0x0050, text=» ANK A7,/4 INTENSIFIED DISPLAY? «, t00=0x0077, t01=0x0042}
0xba28…ba42 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) WCH200 NO «, t00=0x0077, t01=0x006a}
0xba42…ba6a Head {h00=0x0024, h01=0x0050, text=» LDK A1,/1F HIGH INTENSITY CHAR.«, t00=0x0077, t01=0x0084}
0xba6a…ba7c Head {h00=0x000e, h01=0x0050, text=» RF WCH300«, t00=0x0077, t01=0x00ac}
0xba7c…ba90 Head {h00=0x0010, h01=0x0050, text=»WCH200 EQU *«, t00=0x0077, t01=0x00be}
0xba90…baae Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 NONDISPLAY«, t00=0x0077, t01=0x00d2}
0xbaae…bac2 Head {h00=0x0010, h01=0x0050, text=»WCH300 EQU *«, t00=0x0077, t01=0x00f0}
0xbac2…baec Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0077, t01=0x0104}
0xbaec…bb14 Head {h00=0x0024, h01=0x0050, text=» SC A1,2,A7 SAVE INTENSITY CHAR.«, t00=0x0077, t01=0x012e}
0xbb14…bb42 Head {h00=0x002a, h01=0x0050, text=» CF A14,RFMDUP REPLACE FM OR DUP CHAR.«, t00=0x0077, t01=0x0156}
0xbb42…bb70 Head {h00=0x002a, h01=0x0050, text=» SC A2,3,A7 STORE CHAR. IN VDU BUFFER «, t00=0x0077, t01=0x0184}
0xbb70…bb8e Head {h00=0x001a, h01=0x0050, text=» LDK A1,4 REQ. LENGTH «, t00=0x0078, t01=0x0022}
0xbb8e…bbac Head {h00=0x001a, h01=0x0050, text=» CF A14,DISCHA DISPLAY«, t00=0x0078, t01=0x0040}
0xbbac…bbbe Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0078, t01=0x005e}
0xbbbe…bbd4 Head {h00=0x0012, h01=0x0050, text=» IM PCURS,A11 «, t00=0x0078, t01=0x0070}
0xbbd4…bc00 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0078, t01=0x0086}
0xbc00…bc1a Head {h00=0x0016, h01=0x0050, text=» RF(E) WCH900 YES «, t00=0x0078, t01=0x00b2}
0xbc1a…bc46 Head {h00=0x0028, h01=0x0050, text=» ORK A6,1 SET MDT-BITS IN ATTRIBUTE «, t00=0x0078, t01=0x00cc}
0xbc46…bc60 Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x0078, t01=0x00f8}
0xbc60…bc72 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0078, t01=0x0112}
0xbc72…bc84 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0078, t01=0x0124}
0xbc84…bcb4 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR. IN VDU BUFFER«, t00=0x0078, t01=0x0136}
0xbcb4…bcc8 Head {h00=0x0010, h01=0x0050, text=»WCH900 EQU *«, t00=0x0078, t01=0x0166}
0xbcc8…bcd8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x017a}
0xbcd8…bce6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x018a}
0xbce6…bd28 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0079, t01=0x0008}
0xbd28…bd6a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0079, t01=0x004a}
0xbd6a…bdac Head {h00=0x003e, h01=0x0050, text=»* RFMDUP REPLACE FM OR DUP CHAR IF PRESENT * «, t00=0x0079, t01=0x008c}
0xbdac…bdee Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0079, t01=0x00ce}
0xbdee…be30 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0079, t01=0x0110}
0xbe30…be44 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0079, t01=0x0152}
0xbe44…be5a Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0079, t01=0x0166}
0xbe5a…be70 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0079, t01=0x017c}
0xbe70…be86 (122, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x007a, t01=0x0004}
0xbe86…be9c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x007a, t01=0x001a}
0xbe9c…bebc Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007a, t01=0x0030}
0xbebc…bed4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007a, t01=0x0050}
0xbed4…bede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0068}
0xbede…bf16 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x007a, t01=0x0072}
0xbf16…bf2a Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x007a, t01=0x00aa}
0xbf2a…bf4a Head {h00=0x001c, h01=0x0050, text=» CWK A2,DUPCH DUP CHAR? «, t00=0x007a, t01=0x00be}
0xbf4a…bf64 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RFMD10 NO «, t00=0x007a, t01=0x00de}
0xbf64…bf80 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2A REPLACE «, t00=0x007a, t01=0x00f8}
0xbf80…bf92 Head {h00=0x000e, h01=0x0050, text=» RF RFMD90«, t00=0x007a, t01=0x0114}
0xbf92…bfa6 Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x007a, t01=0x0126}
0xbfa6…bfc4 Head {h00=0x001a, h01=0x0050, text=» CWK A2,FMCH FM CHAR? «, t00=0x007a, t01=0x013a}
0xbfc4…bfde Head {h00=0x0016, h01=0x0050, text=» RF(NE) RFMD90 NO «, t00=0x007a, t01=0x0158}
0xbfde…bffa Head {h00=0x0018, h01=0x0050, text=» LDK A2,/3B REPLACE «, t00=0x007a, t01=0x0172}
0xbffa…c00e Head {h00=0x0010, h01=0x0050, text=»RFMD90 EQU *«, t00=0x007a, t01=0x018e}
0xc00e…c01e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007b, t01=0x0012}
0xc01e…c02c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x0022}
0xc02c…c064 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x007b, t01=0x0030}
0xc064…c09c Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x007b, t01=0x0068}
0xc09c…c0d4 Head {h00=0x0034, h01=0x0050, text=»* DISCHA DISPLAY CHAR *«, t00=0x007b, t01=0x00a0}
0xc0d4…c10c Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x007b, t01=0x00d8}
0xc10c…c144 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x007b, t01=0x0110}
0xc144…c158 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007b, t01=0x0148}
0xc158…c162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x015c}
0xc162…c17c Head {h00=0x0016, h01=0x0050, text=»* A1= REQ. LENGTH «, t00=0x007b, t01=0x0166}
0xc17c…c192 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x007b, t01=0x0180}
0xc192…c1a8 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x007c, t01=0x0008}
0xc1a8…c1be Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x007c, t01=0x001e}
0xc1be…c1d4 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x007c, t01=0x0034}
0xc1d4…c1ea Head {h00=0x0012, h01=0x0050, text=»* A8= VDU-ECB «, t00=0x007c, t01=0x004a}
0xc1ea…c20a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007c, t01=0x0060}
0xc20a…c222 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007c, t01=0x0080}
0xc222…c22c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0098}
0xc22c…c266 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007c, t01=0x00a2}
0xc266…c27a Head {h00=0x0010, h01=0x0050, text=»DISCHA EQU *«, t00=0x007c, t01=0x00dc}
0xc27a…c292 Head {h00=0x0014, h01=0x0050, text=» LC A2,TCT01,A11«, t00=0x007c, t01=0x00f0}
0xc292…c2b8 Head {h00=0x0022, h01=0x0050, text=» CCK A2,VDUCOD PRINTER UNPACK?«, t00=0x007c, t01=0x0108}
0xc2b8…c2d2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DISC95 YES«, t00=0x007c, t01=0x012e}
0xc2d2…c2ec Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x007c, t01=0x0148}
0xc2ec…c304 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x007c, t01=0x0162}
0xc304…c330 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,/101 START AT LINE 1 POS. 1«, t00=0x007c, t01=0x017a}
0xc330…c348 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x007d, t01=0x0016}
0xc348…c35e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x007d, t01=0x002e}
0xc35e…c37c Head {h00=0x001a, h01=0x0050, text=» LDR A7,A4 CURSOR POS.«, t00=0x007d, t01=0x0044}
0xc37c…c390 Head {h00=0x0010, h01=0x0050, text=»DISC10 EQU *«, t00=0x007d, t01=0x0062}
0xc390…c3b0 Head {h00=0x001c, h01=0x0050, text=» CWK A7,LLINE NEXT LINE?«, t00=0x007d, t01=0x0076}
0xc3b0…c3c8 Head {h00=0x0014, h01=0x0050, text=» RF(L) DISC90 NO«, t00=0x007d, t01=0x0096}
0xc3c8…c3f2 Head {h00=0x0026, h01=0x0050, text=» ADS A1,ECBCW,A8 MOVE TO NEXT LINE«, t00=0x007d, t01=0x00ae}
0xc3f2…c408 Head {h00=0x0012, h01=0x0050, text=» SUKL A7,LLINE«, t00=0x007d, t01=0x00d8}
0xc408…c41a Head {h00=0x000e, h01=0x0050, text=» RB DISC10«, t00=0x007d, t01=0x00ee}
0xc41a…c42e Head {h00=0x0010, h01=0x0050, text=»DISC90 EQU *«, t00=0x007d, t01=0x0100}
0xc42e…c458 Head {h00=0x0026, h01=0x0050, text=» ADS A7,ECBCW,A8 POSITION IN LINE «, t00=0x007d, t01=0x0114}
0xc458…c480 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x007d, t01=0x013e}
0xc480…c48c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x007d, t01=0x0166}
0xc48c…c49c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x007d, t01=0x0172}
0xc49c…c4b0 Head {h00=0x0010, h01=0x0050, text=»DISC95 EQU *«, t00=0x007d, t01=0x0182}
0xc4b0…c4c0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x0008}
0xc4c0…c4c8 Head {h00=0x0004, h01=0x0050, t00=0x007e, t01=0x0018}
0xc4c8…c4d4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x007e, t01=0x0020}
0xc4d4…c4d8 Head {h00=0x4004, h01=0x0000}
0xc4d8…c4dc 00 7e 00 2c ┆ ~ ,┆
0xc4dc…c4e4 (127, 1, 8) 20 04 00 00 00 7f 00 04 ┆ ┆
0xc4e4…c4ec (128, 1, 8) 78 d8 01 34 ff c6 00 00 ┆x 4 ┆
0xc4ec…c4f4 (129, 1, 8) ff 58 00 a8 00 00 80 03 ┆ X ┆
0xc4f4…c4fc (130, 1, 8) 00 00 00 a8 00 00 80 03 ┆ ┆
0xc4fc…c54c (131, 0, 400) 03 13 00 00 02 3d 00 00 07 9c 81 cf 07 9e 86 02 85 06 f6 a1 00 00 21 02 50 00 01 02 57 00 ed 20 07 81 50 00 2e 01 86 4f 00 0a 01 90 00 2c 00 28 03 13 00 00 02 5d 00 00 07 9c 81 14 87 18 f6 a1 00 00 81 0c 84 4f 07 c8 84 04 05 50 86 0e 9a 8a ┆ = ! P W P . O , ( ] O P ┆
0xc54c…c59c 81 84 f6 a1 00 00 81 06 00 0b 00 30 00 2c 00 28 03 13 00 00 02 7d 00 00 e9 20 00 00 50 00 19 01 f6 a1 00 00 11 01 81 84 05 50 86 0e f6 a1 00 00 81 06 e1 d8 07 82 a9 a0 00 0b 00 60 00 2c 00 28 03 13 00 00 02 9d 00 00 00 01 e1 d9 07 82 f6 a1 ┆ 0 , ( } P P ` , ( ┆
0xc59c…c5ec 00 00 19 01 1c 01 e9 4e 07 c8 50 00 5f 36 81 20 07 7f f6 a1 00 00 01 00 00 0b 00 90 00 2c 00 28 03 13 00 00 02 bd 00 00 04 00 81 84 05 50 86 0e f6 a1 00 00 81 06 e1 d8 07 82 a9 a0 00 01 e1 d9 07 82 f6 a1 00 00 81 20 00 0b 00 c0 00 2c 00 28 ┆ N P _6 , ( P , (┆
0xc5ec…c63c 03 13 00 00 02 dd 00 00 07 7f 84 20 07 7f 5f 3a 87 08 f6 a1 00 00 05 50 86 0e f6 a1 00 00 e1 d8 07 82 a9 a0 00 01 e1 d9 00 0b 00 f0 00 2c 00 28 03 13 00 04 02 fd 00 00 07 82 90 4f 07 9a 84 4e 07 c8 14 01 ec 20 07 7f 55 00 04 00 a0 4f 07 9a ┆ _: P , ( O N U O ┆
0xc63c…c68c f6 a1 00 00 01 01 f0 3a 00 0b 01 20 00 10 00 0c 05 05 dc 47 45 54 56 44 55 00 03 26 00 0b 01 50 00 10 00 0c 05 05 dc 53 54 4f 56 44 55 00 03 34 00 0b 01 64 00 2c 00 28 03 13 00 00 03 1d 00 00 13 01 14 01 16 01 17 01 f0 3a 87 20 00 02 97 0e ┆ : GETVDU & P STOVDU 4 d , ( : ┆
0xc68c…c6dc (132, 0, 400) 97 04 e7 3c 27 ff f0 3a 80 a0 00 02 90 8e 90 84 00 0b 01 78 00 10 00 0c 05 05 dc 53 43 52 49 4e 46 00 03 40 00 0c 00 18 00 10 00 0c 05 05 dc 53 54 4f 49 4e 46 00 03 4e 00 0c 00 2c 00 0e 00 0a 05 04 bc 53 4f 55 4e 44 03 5c 00 0c 00 40 00 2c ┆ <' : x SCRINF @ STOINF N , SOUND @ ,┆
0xc6dc…c72c 00 28 03 13 00 00 03 3d 00 00 e7 23 f0 3a 84 4e 07 9a 85 4e 07 9e 86 4e 07 9c f0 3a 84 4f 07 9a 85 4f 07 9e 86 4f 07 9c f0 3a 00 0c 00 52 00 2c 00 28 03 13 00 00 03 5d 00 00 80 ce 07 f0 81 42 00 02 02 2b e2 45 00 01 02 07 e2 45 00 02 02 03 ┆ ( = # : N N N : O O O : R , ( ] B + E E ┆
0xc72c…c77c 82 43 00 04 07 86 28 04 00 01 00 0c 00 82 00 0e 00 0a 05 04 9c 57 52 41 50 00 03 82 00 0c 00 b2 00 10 00 0c 05 05 dc 4c 49 4e 57 52 50 00 03 92 00 0c 00 c4 00 0e 00 0a 05 04 9c 4c 49 4e 45 00 03 9c 00 0c 00 d8 00 2c 00 28 03 13 00 00 03 7d ┆ C ( WRAP LINWRP LINE , ( }┆
0xc77c…c7cc 00 00 81 42 00 08 f0 3a ec 20 07 80 52 00 04 00 83 20 00 02 93 0e f0 3a ed 10 51 00 f6 a1 00 00 f0 3a 00 0c 00 ea 00 2c 00 28 03 13 00 00 03 9d 00 00 ed 10 51 00 81 0a 21 02 50 00 e1 58 07 82 29 02 e1 59 07 82 9e 0e 16 01 ee 20 00 17 51 00 ┆ B : R : Q : , ( Q ! P X ) Y Q ┆
0xc7cc…c81c 15 50 00 0c 01 1a 00 2c 00 28 03 13 00 00 03 bd 00 00 96 0e 5f 24 04 00 83 20 00 02 93 0e 86 0e 05 50 9d 10 ed 20 00 51 52 00 05 50 86 0e 5f 3e 95 10 00 0c 01 4a 00 10 00 0c 05 05 dc 4c 49 4e 41 54 54 00 03 de 00 0c 01 7a 00 2c 00 28 03 13 ┆ P , ( _$ P QR P _> J LINATT z , ( ┆