|
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: 51194 (0xc7fa)
Notes: pts_type(SC)
Names: »XVDU.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »KJELL/XVDU.SC«
IDENT VDU REL 11.0 82-05-17 870150541100 MOVE TO UNPROT, ONLY FOR P&T =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 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 LDKL A7,/8B SET CURSOR AND WRITE LKM DATA 1 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-05-17 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…007e Head {h00=0x0018, h01=0x0050, text=» =2 LOOP IN ERASUA«, t00=0x0000, t01=0x0066}
0x007e…0092 Head {h00=0x0010, h01=0x0050, text=» 82-03-10 «, t00=0x0000, t01=0x0082}
0x0092…00b8 Head {h00=0x0022, h01=0x0050, text=» DK1 BAD CHECK ON ATTRIBUTE «, t00=0x0000, t01=0x0096}
0x00b8…00da Head {h00=0x001e, h01=0x0050, text=» DK BAD TEST ON INTESITY«, t00=0x0000, t01=0x00bc}
0x00da…00fa Head {h00=0x001c, h01=0x0050, text=» =1, LINFLG AT UNFORM.«, t00=0x0000, t01=0x00de}
0x00fa…010e Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x00fe}
0x010e…0156 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0000, t01=0x0112}
0x0156…019e Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0000, t01=0x015a}
0x019e…01e6 Head {h00=0x0044, h01=0x0050, text=»* MODULE VDU *«, t00=0x0001, t01=0x0012}
0x01e6…022e Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE DISPLAY SCREEN AND *«, t00=0x0001, t01=0x005a}
0x022e…0276 Head {h00=0x0044, h01=0x0050, text=»* BUFFER *«, t00=0x0001, t01=0x00a2}
0x0276…02be Head {h00=0x0044, h01=0x0050, text=»* (EMULATION 3270 SNA/SDLC, BSC) *«, t00=0x0001, t01=0x00ea}
0x02be…0306 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0132}
0x0306…034e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x017a}
0x034e…035c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0032}
0x035c…03a0 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0002, t01=0x0040}
0x03a0…03aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0084}
0x03aa…03c4 Head {h00=0x0016, h01=0x0050, text=»* LIST OF ROUTINES«, t00=0x0002, t01=0x008e}
0x03c4…03ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a8}
0x03ce…0404 Head {h00=0x0032, h01=0x0050, text=»* DISMOD DISPLAY MODIFIED FIELDS «, t00=0x0002, t01=0x00b2}
0x0404…042e Head {h00=0x0026, h01=0x0050, text=»* DISLIN DISPLAY LINE«, t00=0x0002, t01=0x00e8}
0x042e…0468 Head {h00=0x0036, h01=0x0050, text=»* SPACES MOVE SPACES INTO ECB BUFFER «, t00=0x0002, t01=0x0112}
0x0468…049a Head {h00=0x002e, h01=0x0050, text=»* INTCHK GET INTENSITY CHAR. «, t00=0x0002, t01=0x014c}
0x049a…04ce Head {h00=0x0030, h01=0x0050, text=»* SETIND SET DISPLAY INDICATOR «, t00=0x0002, t01=0x017e}
0x04ce…04f8 Head {h00=0x0026, h01=0x0050, text=»* INSMOD INSERT CHAR.«, t00=0x0003, t01=0x0022}
0x04f8…0526 Head {h00=0x002a, h01=0x0050, text=»* UPDCNT UPDATE COUNTERS «, t00=0x0003, t01=0x004c}
0x0526…055c Head {h00=0x0032, h01=0x0050, text=»* GETVDU GET CHAR. IN VDU BUFFER «, t00=0x0003, t01=0x007a}
0x055c…0592 Head {h00=0x0032, h01=0x0050, text=»* STOVDU STORE CHAR IN VDU BUFFER«, t00=0x0003, t01=0x00b0}
0x0592…05c6 Head {h00=0x0030, h01=0x0050, text=»* SCRINF GET SCREEN INFORMATION«, t00=0x0003, t01=0x00e6}
0x05c6…05fc Head {h00=0x0032, h01=0x0050, text=»* STOINF STORE SCREEN INFORMATION«, t00=0x0003, t01=0x011a}
0x05fc…0626 Head {h00=0x0026, h01=0x0050, text=»* SOUND SOUND ALARM «, t00=0x0003, t01=0x0150}
0x0626…0658 Head {h00=0x002e, h01=0x0050, text=»* WRAP CHECK IF WRAP AROUND«, t00=0x0003, t01=0x017a}
0x0658…0688 Head {h00=0x002c, h01=0x0050, text=»* LINWRP CHECK IF LINE WRAP«, t00=0x0004, t01=0x001c}
0x0688…06b6 Head {h00=0x002a, h01=0x0050, text=»* LINE UPDATE LINE FLAG«, t00=0x0004, t01=0x004c}
0x06b6…06f6 Head {h00=0x003c, h01=0x0050, text=»* LINATT UPDATE LINFLG AT ATTRIBUTE CHANGE «, t00=0x0004, t01=0x007a}
0x06f6…0724 Head {h00=0x002a, h01=0x0050, text=»* NLROUT NEW LINE ROUTINE«, t00=0x0004, t01=0x00ba}
0x0724…0756 Head {h00=0x002e, h01=0x0050, text=»* ERASE ERASE ENTIRE SCREEN «, t00=0x0004, t01=0x00e8}
0x0756…078a Head {h00=0x0030, h01=0x0050, text=»* ERASUP ERASE ALL UNPROTECTED «, t00=0x0004, t01=0x011a}
0x078a…07c4 Head {h00=0x0036, h01=0x0050, text=»* ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0004, t01=0x014e}
0x07c4…0800 Head {h00=0x0038, h01=0x0050, text=»* POSUNP MOVE CURSOR TO NEXT UNPRO. POS«, t00=0x0004, t01=0x0188}
0x0800…0836 Head {h00=0x0032, h01=0x0050, text=»* DISID DISPLAY HARDCOPY TASKID «, t00=0x0005, t01=0x0034}
0x0836…0866 Head {h00=0x002c, h01=0x0050, text=»* DISSTA DISPLAY STATISTICS«, t00=0x0005, t01=0x006a}
0x0866…088e Head {h00=0x0024, h01=0x0050, text=»* MOVTXT MOVE TEXT «, t00=0x0005, t01=0x009a}
0x088e…08bc Head {h00=0x002a, h01=0x0050, text=»* CONASC CONVERT TO ASCII«, t00=0x0005, t01=0x00c2}
0x08bc…08f2 Head {h00=0x0032, h01=0x0050, text=»* ATMASF SEARCH ATTRIBUTE FORWARD«, t00=0x0005, t01=0x00f0}
0x08f2…092a Head {h00=0x0034, h01=0x0050, text=»* ATMASB SEARCH ATTRIBUTE BACKWARD «, t00=0x0005, t01=0x0126}
0x092a…0960 Head {h00=0x0032, h01=0x0050, text=»* SNULL SEARCH FIRST NULL CHAR. «, t00=0x0005, t01=0x015e}
0x0960…0996 (6, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* WCHAR DISPLAY CHAR. AND CURSOR«, t00=0x0006, t01=0x0004}
0x0996…09d2 Head {h00=0x0038, h01=0x0050, text=»* RFMDUP REPLACE FM OR DUP CHAR. IF ANY«, t00=0x0006, t01=0x003a}
0x09d2…09fe Head {h00=0x0028, h01=0x0050, text=»* DISCHA DISPLAY CHAR. «, t00=0x0006, t01=0x0076}
0x09fe…0a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a2}
0x0a08…0a52 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0006, t01=0x00ac}
0x0a52…0a60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00f6}
0x0a60…0aac Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0006, t01=0x0104}
0x0aac…0af8 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0150}
0x0af8…0b44 Head {h00=0x0048, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x0007, t01=0x000c}
0x0b44…0b90 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0058}
0x0b90…0bdc Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0007, t01=0x00a4}
0x0bdc…0be4 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00f0}
0x0be4…0c0a Head {h00=0x0022, h01=0x0050, text=» ENTRY INSMOD INSERT CHARACTER«, t00=0x0007, t01=0x00f8}
0x0c0a…0c3a Head {h00=0x002c, h01=0x0050, text=» ENTRY GETVDU GET CHAR. FROM VDU BUFFER «, t00=0x0007, t01=0x011e}
0x0c3a…0c6a Head {h00=0x002c, h01=0x0050, text=» ENTRY STOVDU STORE CHAR. IN VDU BUFFER «, t00=0x0007, t01=0x014e}
0x0c6a…0c96 Head {h00=0x0028, h01=0x0050, text=» ENTRY SCRINF GET SCREEN INFORMATION«, t00=0x0007, t01=0x017e}
0x0c96…0cc4 Head {h00=0x002a, h01=0x0050, text=» ENTRY STOINF SAVE SCREEN INFORMATION «, t00=0x0008, t01=0x001a}
0x0cc4…0cf8 Head {h00=0x0030, h01=0x0050, text=» ENTRY POSUNP MOVE TO NEXT UNPROTECTED POS. «, t00=0x0008, t01=0x0048}
0x0cf8…0d28 Head {h00=0x002c, h01=0x0050, text=» ENTRY ATMASB SEARCH ATTRIBUTE BACKWARDS«, t00=0x0008, t01=0x007c}
0x0d28…0d58 Head {h00=0x002c, h01=0x0050, text=» ENTRY ATMASF SEARCH ATTRIBUTE FOREWARD «, t00=0x0008, t01=0x00ac}
0x0d58…0d7c Head {h00=0x0020, h01=0x0050, text=» ENTRY DISCHA DISPLAY CHAR. «, t00=0x0008, t01=0x00dc}
0x0d7c…0daa Head {h00=0x002a, h01=0x0050, text=» ENTRY WCHAR DISPLAY CHAR. AND CURSOR «, t00=0x0008, t01=0x0100}
0x0daa…0dd8 Head {h00=0x002a, h01=0x0050, text=» ENTRY DISMOD DISPLAY MODIFIED FIELDS «, t00=0x0008, t01=0x012e}
0x0dd8…0e04 Head {h00=0x0028, h01=0x0050, text=» ENTRY DISID DISPLAY HARDCOPY TASKID«, t00=0x0008, t01=0x015c}
0x0e04…0e36 Head {h00=0x002e, h01=0x0050, text=» ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS«, t00=0x0008, t01=0x0188}
0x0e36…0e5e Head {h00=0x0024, h01=0x0050, text=» ENTRY ERASE ERASE ENTIRE SCREEN«, t00=0x0009, t01=0x002a}
0x0e5e…0e86 Head {h00=0x0024, h01=0x0050, text=» ENTRY SOUND SOUND ALARM ON VDU «, t00=0x0009, t01=0x0052}
0x0e86…0eb2 Head {h00=0x0028, h01=0x0050, text=» ENTRY ERASUP ERASE ALL UNPROTECTED «, t00=0x0009, t01=0x007a}
0x0eb2…0eda Head {h00=0x0024, h01=0x0050, text=» ENTRY WRAP CHECK IF WRAP AROUND«, t00=0x0009, t01=0x00a6}
0x0eda…0f00 Head {h00=0x0022, h01=0x0050, text=» ENTRY NLROUT NEW LINE ROUTINE«, t00=0x0009, t01=0x00ce}
0x0f00…0f26 Head {h00=0x0022, h01=0x0050, text=» ENTRY LINWRP CHECK LINE WRAP «, t00=0x0009, t01=0x00f4}
0x0f26…0f4a Head {h00=0x0020, h01=0x0050, text=» ENTRY LINE UPDATE LINE FLAG«, t00=0x0009, t01=0x011a}
0x0f4a…0f66 Head {h00=0x0018, h01=0x0050, text=» ENTRY LINATT UPADTE«, t00=0x0009, t01=0x013e}
0x0f66…0f8e Head {h00=0x0024, h01=0x0050, text=» ENTRY DISSTA DISPLAY STATISTICS«, t00=0x0009, t01=0x015a}
0x0f8e…0f96 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0182}
0x0f96…0fa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x018a}
0x0fa4…0ff0 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x000a, t01=0x0008}
0x0ff0…103c Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0054}
0x103c…1088 Head {h00=0x0048, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x000a, t01=0x00a0}
0x1088…10d4 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00ec}
0x10d4…1120 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x000a, t01=0x0138}
0x1120…1128 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0184}
0x1128…115c Head {h00=0x0030, h01=0x0050, text=» EXTRN TAB TAB UNPROCTECTED FOREWARD (KEYB) «, t00=0x000a, t01=0x018c}
0x115c…119a Head {h00=0x003a, h01=0x0050, text=» EXTRN CRDOWN MOVE CURSOR UNPROTECTED NEXT LINE (KEYB)«, t00=0x000b, t01=0x0030}
0x119a…11d2 Head {h00=0x0034, h01=0x0050, text=» EXTRN RDHOME UNPROTECTED FIRST ON SCREEN (KEYB)«, t00=0x000b, t01=0x006e}
0x11d2…11fc Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE1 SAVE REGISTERS (PAD) «, t00=0x000b, t01=0x00a6}
0x11fc…1228 Head {h00=0x0028, h01=0x0050, text=» EXTRN REST1 RESTORE REGISTERS (PAD)«, t00=0x000b, t01=0x00d0}
0x1228…1236 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00fc}
0x1236…123e Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x010a}
0x123e…1246 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0112}
0x1246…1294 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000b, t01=0x011a}
0x1294…12e2 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0168}
0x12e2…1330 Head {h00=0x004a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000c, t01=0x0026}
0x1330…137e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0074}
0x137e…13cc Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x000c, t01=0x00c2}
0x13cc…13d4 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0110}
0x13d4…13fc Head {h00=0x0024, h01=0x0050, text=»X:I EQU 1 INSERT/DELETE HANDLING«, t00=0x000c, t01=0x0118}
0x13fc…1410 Head {h00=0x0010, h01=0x0050, text=»IN:DL EQU 1 «, t00=0x000c, t01=0x0140}
0x1410…1436 Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000c, t01=0x0154}
0x1436…1448 Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000c, t01=0x017a}
0x1448…1456 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x018c}
0x1456…149e Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000d, t01=0x000a}
0x149e…14e6 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000d, t01=0x0052}
0x14e6…1510 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000d, t01=0x009a}
0x1510…1558 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000d, t01=0x00c4}
0x1558…15a0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000d, t01=0x010c}
0x15a0…15a8 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0154}
0x15a8…15b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015c}
0x15b2…15da Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x000d, t01=0x0166}
0x15da…15e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018e}
0x15e4…1606 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000e, t01=0x0008}
0x1606…162a Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000e, t01=0x002a}
0x162a…164e Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000e, t01=0x004e}
0x164e…166e Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000e, t01=0x0072}
0x166e…1690 Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x000e, t01=0x0092}
0x1690…169a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b4}
0x169a…16b6 Head {h00=0x0018, h01=0x0050, text=»* SPECIAL CHARACTERS«, t00=0x000e, t01=0x00be}
0x16b6…16c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00da}
0x16c0…16de Head {h00=0x001a, h01=0x0050, text=»NULL EQU 0 NULL CHAR. «, t00=0x000e, t01=0x00e4}
0x16de…1704 Head {h00=0x0022, h01=0x0050, text=»NEWLIN EQU /0A NEW LINE CHAR. «, t00=0x000e, t01=0x0102}
0x1704…172a Head {h00=0x0022, h01=0x0050, text=»FORMFD EQU /0C FORM FEED CHAR.«, t00=0x000e, t01=0x0128}
0x172a…1752 Head {h00=0x0024, h01=0x0050, text=»ENDMES EQU /19 END MESSAGE CHAR.«, t00=0x000e, t01=0x014e}
0x1752…1778 Head {h00=0x0022, h01=0x0050, text=»DUPCH EQU /1C DUPLICATE CHAR. «, t00=0x000e, t01=0x0176}
0x1778…179e Head {h00=0x0022, h01=0x0050, text=»FMCH EQU /1E FIELD MARK CHAR. «, t00=0x000f, t01=0x000c}
0x179e…17a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0032}
0x17a8…17ca Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x000f, t01=0x003c}
0x17ca…17d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005e}
0x17d4…17f8 Head {h00=0x0020, h01=0x0050, text=»VDUCOD EQU 'VV' VDU KB TASK «, t00=0x000f, t01=0x0068}
0x17f8…1802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008c}
0x1802…181c Head {h00=0x0016, h01=0x0050, text=»* INTERNAL STATUS «, t00=0x000f, t01=0x0096}
0x181c…1826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b0}
0x1826…184c Head {h00=0x0022, h01=0x0050, text=»LINUPD EQU /0001 LINE UPDATED «, t00=0x000f, t01=0x00ba}
0x184c…1878 Head {h00=0x0028, h01=0x0050, text=»ATTREC EQU /0002 ATTRIBUTE RECEIVED «, t00=0x000f, t01=0x00e0}
0x1878…1882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010c}
0x1882…189c Head {h00=0x0016, h01=0x0050, text=»* VDU SCREEN SIZE «, t00=0x000f, t01=0x0116}
0x189c…18a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0130}
0x18a6…18c6 Head {h00=0x001c, h01=0x0050, text=»LLINE EQU 80 LINE LENGTH«, t00=0x000f, t01=0x013a}
0x18c6…18e8 Head {h00=0x001e, h01=0x0050, text=»LBVDU EQU 1920 TOTAL SIZE «, t00=0x000f, t01=0x015a}
0x18e8…18fc Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x000f, t01=0x017c}
0x18fc…1906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x1906…191c Head {h00=0x0012, h01=0x0050, text=»* STAT. LAYOUT«, t00=0x0010, t01=0x000a}
0x191c…1926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0020}
0x1926…1956 Head {h00=0x002c, h01=0x0050, text=»NUMLIN EQU 13 NUMBER OF LINES YO DISPLAY«, t00=0x0010, t01=0x002a}
0x1956…1984 Head {h00=0x002a, h01=0x0050, text=»STALIN EQU 5 STARTING LINE OF DISPLAY «, t00=0x0010, t01=0x005a}
0x1984…19ae Head {h00=0x0026, h01=0x0050, text=»STAPOS EQU 5 STARTTING POS ON LINE«, t00=0x0010, t01=0x0088}
0x19ae…19da Head {h00=0x0028, h01=0x0050, text=»TXTSIZ EQU 15 SIZE OF PERMANENT TEXT«, t00=0x0010, t01=0x00b2}
0x19da…1a16 Head {h00=0x0038, h01=0x0050, text=»INDEX DATA /0102,/0405,/0608,/090A,/0C0E,/1D1E,/1F00«, t00=0x0010, t01=0x00de}
0x1a16…1a22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x011a}
0x1a22…1a30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0126}
0x1a30…1a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a3a…1a5a Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0010, t01=0x013e}
0x1a5a…1a76 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x0010, t01=0x015e}
0x1a76…1a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017a}
0x1a80…1aa8 Head {h00=0x0024, h01=0x0050, text=»TCT01 EQU 0 TASK IDENTIFICATION «, t00=0x0010, t01=0x0184}
0x1aa8…1ace Head {h00=0x0022, h01=0x0050, text=»BVDU EQU TCT01+2 SCREEN BUFFER«, t00=0x0011, t01=0x001c}
0x1ace…1afe Head {h00=0x002c, h01=0x0050, text=»LINFLG EQU BVDU+1920 INTERNAL LINE FLAGS«, t00=0x0011, t01=0x0042}
0x1afe…1b28 Head {h00=0x0026, h01=0x0050, text=»PCURS EQU LINFLG+24 CURSOR ADDRESS«, t00=0x0011, t01=0x0072}
0x1b28…1b56 Head {h00=0x002a, h01=0x0050, text=»ATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR«, t00=0x0011, t01=0x009c}
0x1b56…1b72 Head {h00=0x0018, h01=0x0050, text=»CURATT EQU ATTRIB+2 «, t00=0x0011, t01=0x00ca}
0x1b72…1b9c Head {h00=0x0026, h01=0x0050, text=»WCC EQU CURATT+2 WCC/CCC CHARACTER«, t00=0x0011, t01=0x00e6}
0x1b9c…1bc8 Head {h00=0x0028, h01=0x0050, text=»INTATT EQU WCC+8 INTENSITY ATTRIBUTE«, t00=0x0011, t01=0x0110}
0x1bc8…1bf0 Head {h00=0x0024, h01=0x0050, text=»REGI EQU INTATT+32 WORK REGISTER«, t00=0x0011, t01=0x013c}
0x1bf0…1c0a Head {h00=0x0016, h01=0x0050, text=»ECBVDU EQU REGI+40«, t00=0x0011, t01=0x0164}
0x1c0a…1c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017e}
0x1c14…1c34 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x0011, t01=0x0188}
0x1c34…1c4e Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x0012, t01=0x0018}
0x1c4e…1c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0032}
0x1c58…1c7e Head {h00=0x0022, h01=0x0050, text=»IDTEXT EQU 2 IDENT TEXT LAYOUT«, t00=0x0012, t01=0x003c}
0x1c7e…1c92 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0012, t01=0x0062}
0x1c92…1cc4 Head {h00=0x002e, h01=0x0050, text=»STATXT EQU IDTEXT+22 STATISTIC TEXT LAYOUT«, t00=0x0012, t01=0x0076}
0x1cc4…1cd0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00a8}
0x1cd0…1cde Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00b4}
0x1cde…1d20 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0012, t01=0x00c2}
0x1d20…1d62 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0012, t01=0x0104}
0x1d62…1da4 Head {h00=0x003e, h01=0x0050, text=»* DISMOD DISPLAY MODIFIED FIELDS * «, t00=0x0012, t01=0x0146}
0x1da4…1de6 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0012, t01=0x0188}
0x1de6…1e28 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0013, t01=0x003a}
0x1e28…1e3c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0013, t01=0x007c}
0x1e3c…1e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0090}
0x1e46…1e5a Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0013, t01=0x009a}
0x1e5a…1e7e Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0013, t01=0x00ae}
0x1e7e…1e9c Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0013, t01=0x00d2}
0x1e9c…1ebe Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0013, t01=0x00f0}
0x1ebe…1eda Head {h00=0x0018, h01=0x0050, text=»* A6= ADDRESS IN ECB«, t00=0x0013, t01=0x0112}
0x1eda…1ef4 Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0013, t01=0x012e}
0x1ef4…1f0a Head {h00=0x0012, h01=0x0050, text=»* A8= VDU ECB «, t00=0x0013, t01=0x0148}
0x1f0a…1f2a Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0013, t01=0x015e}
0x1f2a…1f42 Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0013, t01=0x017e}
0x1f42…1f62 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0014, t01=0x0008}
0x1f62…1f7a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0014, t01=0x0028}
0x1f7a…1f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0040}
0x1f84…1fc2 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0014, t01=0x004a}
0x1fc2…1fd6 Head {h00=0x0010, h01=0x0050, text=»DISMOD EQU *«, t00=0x0014, t01=0x0088}
0x1fd6…1ff0 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0014, t01=0x009c}
0x1ff0…2014 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/101 LINE 1 POS. 1 «, t00=0x0014, t01=0x00b6}
0x2014…202c Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0014, t01=0x00da}
0x202c…2056 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET INTENSITY COUNTER«, t00=0x0014, t01=0x00f2}
0x2056…206a Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0014, t01=0x011c}
0x206a…2080 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0014, t01=0x0130}
0x2080…2094 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0014, t01=0x0146}
0x2094…20aa Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0014, t01=0x015a}
0x20aa…20d0 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. DK«, t00=0x0014, t01=0x0170}
0x20d0…20fc Head {h00=0x0028, h01=0x0050, text=» CF A14,SPACES SPACES IN ECB BUFFER «, t00=0x0015, t01=0x0008}
0x20fc…2114 Head {h00=0x0014, h01=0x0050, text=» ST A5,REGI,A11 «, t00=0x0015, t01=0x0034}
0x2114…212c Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LBVDU+1«, t00=0x0015, t01=0x004c}
0x212c…2140 Head {h00=0x0010, h01=0x0050, text=» LDR A5,A11 «, t00=0x0015, t01=0x0064}
0x2140…2158 Head {h00=0x0014, h01=0x0050, text=» CW A1,REGI,A11 «, t00=0x0015, t01=0x0078}
0x2158…2172 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DIS100 NO «, t00=0x0015, t01=0x0090}
0x2172…2192 Head {h00=0x001c, h01=0x0050, text=» LDK A2,0 LOW INTENSITY «, t00=0x0015, t01=0x00aa}
0x2192…21ac Head {h00=0x0016, h01=0x0050, text=» ST A2,INTATT,A11 «, t00=0x0015, t01=0x00ca}
0x21ac…21c0 Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0015, t01=0x00e4}
0x21c0…21d4 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0015, t01=0x00f8}
0x21d4…21ea Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DIS900«, t00=0x0015, t01=0x010c}
0x21ea…2216 Head {h00=0x0028, h01=0x0050, text=» CF A14,INTCHK CHECK INTENSITY CHAR.«, t00=0x0015, t01=0x0122}
0x2216…222a Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0015, t01=0x014e}
0x222a…223e Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0015, t01=0x0162}
0x223e…2250 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0015, t01=0x0176}
0x2250…2270 Head {h00=0x001c, h01=0x0050, text=» RF(N) DIS800 NONDISPLAY«, t00=0x0015, t01=0x0188}
0x2270…2294 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DIS400 DISPLAY LINE «, t00=0x0016, t01=0x0018}
0x2294…22bc Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBCW,A8 NO MODIFICATION «, t00=0x0016, t01=0x003c}
0x22bc…22de Head {h00=0x001e, h01=0x0050, text=» CWK A2,/1901 ALLDISPLAYED«, t00=0x0016, t01=0x0064}
0x22de…22f8 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DIS100 NO «, t00=0x0016, t01=0x0086}
0x22f8…230a Head {h00=0x000e, h01=0x0050, text=» RF DIS900«, t00=0x0016, t01=0x00a0}
0x230a…231e Head {h00=0x0010, h01=0x0050, text=»DIS400 EQU *«, t00=0x0016, t01=0x00b2}
0x231e…2344 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LLINE LINE COMPLETED? «, t00=0x0016, t01=0x00c6}
0x2344…235c Head {h00=0x0014, h01=0x0050, text=» RF(L) DIS500 NO«, t00=0x0016, t01=0x00ec}
0x235c…2380 Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY LINE «, t00=0x0016, t01=0x0104}
0x2380…2392 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x0016, t01=0x0128}
0x2392…23a6 Head {h00=0x0010, h01=0x0050, text=»DIS500 EQU *«, t00=0x0016, t01=0x013a}
0x23a6…23d0 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR. IN VDU-BUFFER«, t00=0x0016, t01=0x014e}
0x23d0…23fa Head {h00=0x0026, h01=0x0050, text=» CF A14,SETIND SET SPACE INDICATOR«, t00=0x0016, t01=0x0178}
0x23fa…241a Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0017, t01=0x0012}
0x241a…2434 Head {h00=0x0016, h01=0x0050, text=» RF(NL) DIS700 YES«, t00=0x0017, t01=0x0032}
0x2434…245a Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0017, t01=0x004c}
0x245a…247a Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR.?«, t00=0x0017, t01=0x0072}
0x247a…2494 Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0017, t01=0x0092}
0x2494…24ba Head {h00=0x0022, h01=0x0050, text=» CWK A2,NEWLIN NEW LINE CHAR.?«, t00=0x0017, t01=0x00ac}
0x24ba…24d4 Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0017, t01=0x00d2}
0x24d4…24fe Head {h00=0x0026, h01=0x0050, text=» CWK A2,ENDMES END MESSAGE CHAR.? «, t00=0x0017, t01=0x00ec}
0x24fe…2518 Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0017, t01=0x0116}
0x2518…2540 Head {h00=0x0024, h01=0x0050, text=» CWK A2,FORMFD FORM FEED CHAR.? «, t00=0x0017, t01=0x0130}
0x2540…255a Head {h00=0x0016, h01=0x0050, text=» RB(E) DIS400 YES «, t00=0x0017, t01=0x0158}
0x255a…258a Head {h00=0x002c, h01=0x0050, text=» CF A14,RFMDUP REPLACE DUP AND FM CHAR. «, t00=0x0017, t01=0x0172}
0x258a…25b8 Head {h00=0x002a, h01=0x0050, text=» SC A2,-1,A6 STORE CHAR. IN ECB BUFFER«, t00=0x0018, t01=0x0012}
0x25b8…25ca Head {h00=0x000e, h01=0x0050, text=» RB DIS400«, t00=0x0018, t01=0x0040}
0x25ca…25de Head {h00=0x0010, h01=0x0050, text=»DIS700 EQU *«, t00=0x0018, t01=0x0052}
0x25de…25f8 Head {h00=0x0016, h01=0x0050, text=» ST A2,INTATT,A11 «, t00=0x0018, t01=0x0066}
0x25f8…260a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0018, t01=0x0080}
0x260a…262a Head {h00=0x001c, h01=0x0050, text=» ANK A1,8 LOW INTENSITY?«, t00=0x0018, t01=0x0092}
0x262a…2644 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DIS725 YES «, t00=0x0018, t01=0x00b2}
0x2644…2666 Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 HIGH INTENSITY? «, t00=0x0018, t01=0x00cc}
0x2666…2680 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DIS715 YES «, t00=0x0018, t01=0x00ee}
0x2680…26a6 Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0018, t01=0x0108}
0x26a6…26c4 Head {h00=0x001a, h01=0x0050, text=» RF DIS800 NONDISPLAY «, t00=0x0018, t01=0x012e}
0x26c4…26d8 Head {h00=0x0010, h01=0x0050, text=»DIS715 EQU *«, t00=0x0018, t01=0x014c}
0x26d8…26f0 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0018, t01=0x0160}
0x26f0…2702 Head {h00=0x000e, h01=0x0050, text=» RF DIS750«, t00=0x0018, t01=0x0178}
0x2702…2716 Head {h00=0x0010, h01=0x0050, text=»DIS725 EQU *«, t00=0x0018, t01=0x018a}
0x2716…272e Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1E LOW «, t00=0x0019, t01=0x000e}
0x272e…2742 Head {h00=0x0010, h01=0x0050, text=»DIS750 EQU *«, t00=0x0019, t01=0x0026}
0x2742…276e Head {h00=0x0028, h01=0x0050, text=» SCR A2,A6 SAVE CHAR. IN ECB BUFFER «, t00=0x0019, t01=0x003a}
0x276e…2780 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x0066}
0x2780…27a6 Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x0019, t01=0x0078}
0x27a6…27b8 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0019, t01=0x009e}
0x27b8…27ca Head {h00=0x000e, h01=0x0050, text=» RB DIS400«, t00=0x0019, t01=0x00b0}
0x27ca…27de Head {h00=0x0010, h01=0x0050, text=»DIS800 EQU *«, t00=0x0019, t01=0x00c2}
0x27de…2804 Head {h00=0x0022, h01=0x0050, text=» CWK A7,LLINE LINE COMPLETED? «, t00=0x0019, t01=0x00d6}
0x2804…281c Head {h00=0x0014, h01=0x0050, text=» RF(L) DIS850 NO«, t00=0x0019, t01=0x00fc}
0x281c…2840 Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY LINE «, t00=0x0019, t01=0x0114}
0x2840…2852 Head {h00=0x000e, h01=0x0050, text=» RB DIS100«, t00=0x0019, t01=0x0138}
0x2852…2866 Head {h00=0x0010, h01=0x0050, text=»DIS850 EQU *«, t00=0x0019, t01=0x014a}
0x2866…2890 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A3 GET CHAR. IN VDU-BUFFER«, t00=0x0019, t01=0x015e}
0x2890…28b0 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0019, t01=0x0188}
0x28b0…28ca Head {h00=0x0016, h01=0x0050, text=» RB(NL) DIS700 YES«, t00=0x001a, t01=0x0018}
0x28ca…28f0 Head {h00=0x0022, h01=0x0050, text=» CF A14,UPDCNT UPDATE COUNTERS«, t00=0x001a, t01=0x0032}
0x28f0…2902 Head {h00=0x000e, h01=0x0050, text=» RB DIS800«, t00=0x001a, t01=0x0058}
0x2902…2916 Head {h00=0x0010, h01=0x0050, text=»DIS900 EQU *«, t00=0x001a, t01=0x006a}
0x2916…2944 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x001a, t01=0x007e}
0x2944…2962 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x001a, t01=0x00ac}
0x2962…2984 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x001a, t01=0x00ca}
0x2984…2994 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x00ec}
0x2994…29a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00fc}
0x29a2…29e6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001a, t01=0x010a}
0x29e6…2a2a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x001a, t01=0x014e}
0x2a2a…2a6e (27, 0, 400) Head {h00=0x0040, h01=0x0050, text=»* DISLIN DISPLAY LINE ON VDU * «, t00=0x001b, t01=0x0004}
0x2a6e…2ab2 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x001b, t01=0x0048}
0x2ab2…2af6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001b, t01=0x008c}
0x2af6…2b0a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x00d0}
0x2b0a…2b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e4}
0x2b14…2b2a Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x001b, t01=0x00ee}
0x2b2a…2b40 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x001b, t01=0x0104}
0x2b40…2b56 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x001b, t01=0x011a}
0x2b56…2b6c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x001b, t01=0x0130}
0x2b6c…2b82 Head {h00=0x0012, h01=0x0050, text=»* A8= ECB VDU «, t00=0x001b, t01=0x0146}
0x2b82…2ba2 Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x001b, t01=0x015c}
0x2ba2…2bba Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x001b, t01=0x017c}
0x2bba…2bd2 (28, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x001c, t01=0x0004}
0x2bd2…2bea Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x001c}
0x2bea…2bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0034}
0x2bf4…2c38 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x001c, t01=0x003e}
0x2c38…2c4c Head {h00=0x0010, h01=0x0050, text=»DISLIN EQU *«, t00=0x001c, t01=0x0082}
0x2c4c…2c6a Head {h00=0x001a, h01=0x0050, text=» LDK A7,2 REQ. LENGTH «, t00=0x001c, t01=0x0096}
0x2c6a…2c7e Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x001c, t01=0x00b4}
0x2c7e…2c9e Head {h00=0x001c, h01=0x0050, text=» ANKL A1,1 ONLY SPACES? «, t00=0x001c, t01=0x00c8}
0x2c9e…2cb8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISL10 YES «, t00=0x001c, t01=0x00e8}
0x2cb8…2cdc Head {h00=0x0020, h01=0x0050, text=» LDKL A7,LLINE+2 REQ. LENGTH«, t00=0x001c, t01=0x0102}
0x2cdc…2d0c Head {h00=0x002c, h01=0x0050, text=» ADR A7,A9 ADD NUMBER OF INTENSITY CHAR.«, t00=0x001c, t01=0x0126}
0x2d0c…2d20 Head {h00=0x0010, h01=0x0050, text=»DISL10 EQU *«, t00=0x001c, t01=0x0156}
0x2d20…2d38 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBRL,A8 «, t00=0x001c, t01=0x016a}
0x2d38…2d62 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,/8B SET CURSOR AND WRITE «, t00=0x001c, t01=0x0182}
0x2d62…2d6e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001d, t01=0x001c}
0x2d6e…2d7e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001d, t01=0x0028}
0x2d7e…2da6 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 GET CURSOR POS. «, t00=0x001d, t01=0x0038}
0x2da6…2dba Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001d, t01=0x0060}
0x2dba…2dea Head {h00=0x002c, h01=0x0050, text=» SUK A1,81 LAST POS. ON LINE DISPLAYED? «, t00=0x001d, t01=0x0074}
0x2dea…2e04 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISL90 YES «, t00=0x001d, t01=0x00a4}
0x2e04…2e1c Head {h00=0x0014, h01=0x0050, text=» LD A6,ECBBA,A8 «, t00=0x001d, t01=0x00be}
0x2e1c…2e30 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/2B «, t00=0x001d, t01=0x00d6}
0x2e30…2e44 Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A6 «, t00=0x001d, t01=0x00ea}
0x2e44…2e5a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/1420«, t00=0x001d, t01=0x00fe}
0x2e5a…2e6e Head {h00=0x0010, h01=0x0050, text=» SC A2,3,A6 «, t00=0x001d, t01=0x0114}
0x2e6e…2e80 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x001d, t01=0x0128}
0x2e80…2e94 Head {h00=0x0010, h01=0x0050, text=» SC A2,2,A6 «, t00=0x001d, t01=0x013a}
0x2e94…2ea6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,84«, t00=0x001d, t01=0x014e}
0x2ea6…2ebe Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x001d, t01=0x0160}
0x2ebe…2ed8 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x001d, t01=0x0178}
0x2ed8…2ee4 (30, 0, 398) Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x0004}
0x2ee4…2ef4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x0010}
0x2ef4…2f08 Head {h00=0x0010, h01=0x0050, text=»DISL90 EQU *«, t00=0x001e, t01=0x0020}
0x2f08…2f1a Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x001e, t01=0x0034}
0x2f1a…2f3e Head {h00=0x0020, h01=0x0050, text=» LDK A2,1 FIRST POS. ON LINE«, t00=0x001e, t01=0x0046}
0x2f3e…2f58 Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+1,A8 «, t00=0x001e, t01=0x006a}
0x2f58…2f80 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/100 MOVE ONE LINE DOWN«, t00=0x001e, t01=0x0084}
0x2f80…2f98 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x001e, t01=0x00ac}
0x2f98…2fac Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x001e, t01=0x00c4}
0x2fac…2fc4 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x001e, t01=0x00d8}
0x2fc4…2fe8 Head {h00=0x0020, h01=0x0050, text=» CWK A2,/1901 END OF SCREEN «, t00=0x001e, t01=0x00f0}
0x2fe8…3002 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DISL95 NO «, t00=0x001e, t01=0x0114}
0x3002…3016 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,1 «, t00=0x001e, t01=0x012e}
0x3016…302a Head {h00=0x0010, h01=0x0050, text=»DISL95 EQU *«, t00=0x001e, t01=0x0142}
0x302a…305a Head {h00=0x002c, h01=0x0050, text=» CF A14,SPACES MOVE SPACES TO ECB BUFFER«, t00=0x001e, t01=0x0156}
0x305a…306a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x0186}
0x306a…3078 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0008}
0x3078…30bc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x0016}
0x30bc…3100 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001f, t01=0x005a}
0x3100…3144 Head {h00=0x0040, h01=0x0050, text=»* SPACES MOVE SPACES TO ECB BUFFER *«, t00=0x001f, t01=0x009e}
0x3144…3188 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001f, t01=0x00e2}
0x3188…31cc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001f, t01=0x0126}
0x31cc…31e0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001f, t01=0x016a}
0x31e0…31ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017e}
0x31ea…31fe Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x001f, t01=0x0188}
0x31fe…3214 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0020, t01=0x000c}
0x3214…322a Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0020, t01=0x0022}
0x322a…3240 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0020, t01=0x0038}
0x3240…3264 Head {h00=0x0020, h01=0x0050, text=»* A6= ADDRESS IN ECB BUFFER «, t00=0x0020, t01=0x004e}
0x3264…327e Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0020, t01=0x0072}
0x327e…3294 Head {h00=0x0012, h01=0x0050, text=»* A8= VDU ECB «, t00=0x0020, t01=0x008c}
0x3294…32b4 Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0020, t01=0x00a2}
0x32b4…32cc Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0020, t01=0x00c2}
0x32cc…32e4 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0020, t01=0x00da}
0x32e4…32fc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0020, t01=0x00f2}
0x32fc…3306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x010a}
0x3306…334a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0020, t01=0x0114}
0x334a…335e Head {h00=0x0010, h01=0x0050, text=»SPACES EQU *«, t00=0x0020, t01=0x0158}
0x335e…3388 Head {h00=0x0026, h01=0x0050, text=» LD A6,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0020, t01=0x016c}
0x3388…339a Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0021, t01=0x0008}
0x339a…33bc Head {h00=0x001e, h01=0x0050, text=» LDK A7,LLINE LINE LENGTH «, t00=0x0021, t01=0x001a}
0x33bc…33dc Head {h00=0x001c, h01=0x0050, text=» ADR A7,A7 BUFFER LENGTH«, t00=0x0021, t01=0x003c}
0x33dc…33f8 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,' ' SPACES«, t00=0x0021, t01=0x005c}
0x33f8…340c Head {h00=0x0010, h01=0x0050, text=»SPAC10 EQU *«, t00=0x0021, t01=0x0078}
0x340c…341e Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0021, t01=0x008c}
0x341e…3432 Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A6 «, t00=0x0021, t01=0x009e}
0x3432…3444 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0021, t01=0x00b2}
0x3444…346a Head {h00=0x0022, h01=0x0050, text=» SUK A7,2 WHOLE BUFFER SPACED?«, t00=0x0021, t01=0x00c4}
0x346a…3482 Head {h00=0x0014, h01=0x0050, text=» RB(P) SPAC10 NO«, t00=0x0021, t01=0x00ea}
0x3482…349a Head {h00=0x0014, h01=0x0050, text=» LDK A2,0 CHAR. «, t00=0x0021, t01=0x0102}
0x349a…34c0 Head {h00=0x0022, h01=0x0050, text=» LD A6,ECBBA,A8 BUFFER ADDRESS«, t00=0x0021, t01=0x011a}
0x34c0…34d2 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0021, t01=0x0140}
0x34d2…34f8 Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 RESET CHAR. COUNTER «, t00=0x0021, t01=0x0152}
0x34f8…3508 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0178}
0x3508…3516 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0188}
0x3516…3558 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0022, t01=0x0008}
0x3558…359a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0022, t01=0x004a}
0x359a…35dc Head {h00=0x003e, h01=0x0050, text=»* INTCHK GET INTENSITY CHAR. * «, t00=0x0022, t01=0x008c}
0x35dc…361e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0022, t01=0x00ce}
0x361e…3660 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0022, t01=0x0110}
0x3660…3674 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0022, t01=0x0152}
0x3674…367e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0166}
0x367e…3692 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0022, t01=0x0170}
0x3692…36a8 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0022, t01=0x0184}
0x36a8…36be Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0023, t01=0x000a}
0x36be…36d4 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0023, t01=0x0020}
0x36d4…36f8 Head {h00=0x0020, h01=0x0050, text=»* A6= ADDRESS IN ECB BUFFER «, t00=0x0023, t01=0x0036}
0x36f8…370e Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0023, t01=0x005a}
0x370e…3724 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0023, t01=0x0070}
0x3724…3744 Head {h00=0x001c, h01=0x0050, text=»* A9= INTENSITY COUNTER «, t00=0x0023, t01=0x0086}
0x3744…375c Head {h00=0x0014, h01=0x0050, text=»* A10= INDICATOR«, t00=0x0023, t01=0x00a6}
0x375c…377c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0023, t01=0x00be}
0x377c…3794 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0023, t01=0x00de}
0x3794…379e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f6}
0x379e…37d6 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0023, t01=0x0100}
0x37d6…37ea Head {h00=0x0010, h01=0x0050, text=»INTCHK EQU *«, t00=0x0023, t01=0x0138}
0x37ea…3814 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 RESET INTENSITY COUNTER«, t00=0x0023, t01=0x014c}
0x3814…383c Head {h00=0x0024, h01=0x0050, text=» LC A2,LINFLG,A5 GET LINE FLAG «, t00=0x0023, t01=0x0176}
0x383c…3858 Head {h00=0x0018, h01=0x0050, text=» ANK A2,1 MODIFIED? «, t00=0x0024, t01=0x000e}
0x3858…3872 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) INT100 YES«, t00=0x0024, t01=0x002a}
0x3872…3892 Head {h00=0x001c, h01=0x0050, text=» ADK A3,LLINE NEXT LINE «, t00=0x0024, t01=0x0044}
0x3892…38a8 Head {h00=0x0012, h01=0x0050, text=» ADK A4,LLINE «, t00=0x0024, t01=0x0064}
0x38a8…38ba Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0024, t01=0x007a}
0x38ba…38cc Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0024, t01=0x008c}
0x38cc…38e6 Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+1,A8 «, t00=0x0024, t01=0x009e}
0x38e6…38fc Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0024, t01=0x00b8}
0x38fc…3914 Head {h00=0x0014, h01=0x0050, text=» ADS A2,ECBCW,A8«, t00=0x0024, t01=0x00ce}
0x3914…3928 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,0 «, t00=0x0024, t01=0x00e6}
0x3928…393a Head {h00=0x000e, h01=0x0050, text=» RF INT900«, t00=0x0024, t01=0x00fa}
0x393a…394e Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0024, t01=0x010c}
0x394e…3966 Head {h00=0x0014, h01=0x0050, text=» LC A2,LINFLG,A5«, t00=0x0024, t01=0x0120}
0x3966…3978 Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0024, t01=0x0138}
0x3978…3990 Head {h00=0x0014, h01=0x0050, text=» SC A2,LINFLG,A5«, t00=0x0024, t01=0x014a}
0x3990…39a4 Head {h00=0x0010, h01=0x0050, text=» LDKL A10,1 «, t00=0x0024, t01=0x0162}
0x39a4…39bc Head {h00=0x0014, h01=0x0050, text=» LD A2,REGI,A11 «, t00=0x0024, t01=0x0176}
0x39bc…39e8 Head {h00=0x0028, h01=0x0050, text=» CWK A2,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0024, t01=0x018e}
0x39e8…3a02 Head {h00=0x0016, h01=0x0050, text=» RF(E) INT200 YES «, t00=0x0025, t01=0x002a}
0x3a02…3a18 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x0025, t01=0x0044}
0x3a18…3a2a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0025, t01=0x005a}
0x3a2a…3a40 Head {h00=0x0012, h01=0x0050, text=» CF A14,SCRINF«, t00=0x0025, t01=0x006c}
0x3a40…3a52 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A5«, t00=0x0025, t01=0x0082}
0x3a52…3a64 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A6«, t00=0x0025, t01=0x0094}
0x3a64…3a90 Head {h00=0x0028, h01=0x0050, text=» CF A14,ATMASB GET CURRENT ATTRIBUTE«, t00=0x0025, t01=0x00a6}
0x3a90…3aaa Head {h00=0x0016, h01=0x0050, text=» ST A6,INTATT,A11 «, t00=0x0025, t01=0x00d2}
0x3aaa…3abc Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0025, t01=0x00ec}
0x3abc…3ace Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x0025, t01=0x00fe}
0x3ace…3ae4 Head {h00=0x0012, h01=0x0050, text=» CF A14,STOINF«, t00=0x0025, t01=0x0110}
0x3ae4…3afa Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x0025, t01=0x0126}
0x3afa…3b0c Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0025, t01=0x013c}
0x3b0c…3b20 Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x0025, t01=0x014e}
0x3b20…3b3a Head {h00=0x0016, h01=0x0050, text=» LD A2,INTATT,A11 «, t00=0x0025, t01=0x0162}
0x3b3a…3b4c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0025, t01=0x017c}
0x3b4c…3b6c Head {h00=0x001c, h01=0x0050, text=» ANK A1,8 LOW INTENSITY?«, t00=0x0025, t01=0x018e}
0x3b6c…3b86 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INT300 YES «, t00=0x0026, t01=0x001e}
0x3b86…3ba8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 HIGH INTENSITY? «, t00=0x0026, t01=0x0038}
0x3ba8…3bce Head {h00=0x0022, h01=0x0050, text=» RF(NZ) INT800 NO, NONDISPLAY «, t00=0x0026, t01=0x005a}
0x3bce…3be6 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1F HIGH«, t00=0x0026, t01=0x0080}
0x3be6…3bf8 Head {h00=0x000e, h01=0x0050, text=» RF INT400«, t00=0x0026, t01=0x0098}
0x3bf8…3c0c Head {h00=0x0010, h01=0x0050, text=»INT300 EQU *«, t00=0x0026, t01=0x00aa}
0x3c0c…3c24 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/1E LOW «, t00=0x0026, t01=0x00be}
0x3c24…3c38 Head {h00=0x0010, h01=0x0050, text=»INT400 EQU *«, t00=0x0026, t01=0x00d6}
0x3c38…3c5e Head {h00=0x0022, h01=0x0050, text=» SCR A2,A6 SAVE IN ECB BUFFER «, t00=0x0026, t01=0x00ea}
0x3c5e…3c70 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0026, t01=0x0110}
0x3c70…3c82 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0026, t01=0x0122}
0x3c82…3c94 Head {h00=0x000e, h01=0x0050, text=» RF INT900«, t00=0x0026, t01=0x0134}
0x3c94…3ca8 Head {h00=0x0010, h01=0x0050, text=»INT800 EQU *«, t00=0x0026, t01=0x0146}
0x3ca8…3cc0 Head {h00=0x0014, h01=0x0050, text=» LDKL A10,/8000 «, t00=0x0026, t01=0x015a}
0x3cc0…3cd4 Head {h00=0x0010, h01=0x0050, text=»INT900 EQU *«, t00=0x0026, t01=0x0172}
0x3cd4…3ce4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0186}
0x3ce4…3cf2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0008}
0x3cf2…3d2a Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0027, t01=0x0016}
0x3d2a…3d62 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0027, t01=0x004e}
0x3d62…3d9a Head {h00=0x0034, h01=0x0050, text=»* SETIND SET DISPLAY INDICATOR *«, t00=0x0027, t01=0x0086}
0x3d9a…3dd2 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0027, t01=0x00be}
0x3dd2…3e0a Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0027, t01=0x00f6}
0x3e0a…3e1e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0027, t01=0x012e}
0x3e1e…3e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0142}
0x3e28…3e3a Head {h00=0x000e, h01=0x0050, text=»* A2= CHAR«, t00=0x0027, t01=0x014c}
0x3e3a…3e50 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0027, t01=0x015e}
0x3e50…3e66 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0027, t01=0x0174}
0x3e66…3e7c Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0027, t01=0x018a}
0x3e7c…3e92 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0028, t01=0x0010}
0x3e92…3ea8 Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x0028, t01=0x0026}
0x3ea8…3ebe Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0028, t01=0x003c}
0x3ebe…3ed4 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0028, t01=0x0052}
0x3ed4…3ef4 Head {h00=0x001c, h01=0x0050, text=»* A10= DISPLAY INDICATOR«, t00=0x0028, t01=0x0068}
0x3ef4…3f0c Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0028, t01=0x0088}
0x3f0c…3f24 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0028, t01=0x00a0}
0x3f24…3f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b8}
0x3f2e…3f58 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0028, t01=0x00c2}
0x3f58…3f6c Head {h00=0x0010, h01=0x0050, text=»SETIND EQU *«, t00=0x0028, t01=0x00ec}
0x3f6c…3f8c Head {h00=0x001c, h01=0x0050, text=» CWK A2,NULL NULL CHAR? «, t00=0x0028, t01=0x0100}
0x3f8c…3fa6 Head {h00=0x0016, h01=0x0050, text=» RF(E) SETI90 YES «, t00=0x0028, t01=0x0120}
0x3fa6…3fd2 Head {h00=0x0028, h01=0x0050, text=» ORKL A10,1 INDICATE NOT ONLY SPACES«, t00=0x0028, t01=0x013a}
0x3fd2…3fe6 Head {h00=0x0010, h01=0x0050, text=»SETI90 EQU *«, t00=0x0028, t01=0x0166}
0x3fe6…3ff6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x017a}
0x3ff6…4004 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x018a}
0x4004…404c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0029, t01=0x0008}
0x404c…4094 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0029, t01=0x0050}
0x4094…40dc Head {h00=0x0044, h01=0x0050, text=»* INSMOD INSERT CHARACTER *«, t00=0x0029, t01=0x0098}
0x40dc…4124 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0029, t01=0x00e0}
0x4124…416c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0029, t01=0x0128}
0x416c…4180 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0029, t01=0x0170}
0x4180…418a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0184}
0x418a…41d2 Head {h00=0x0044, h01=0x0050, text=»* A1= AT RETURN 0=NULL IN POS., 1=NORMAL INSERT, 2=NOT ALLOWED «, t00=0x0029, t01=0x018e}
0x41d2…41e8 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x002a, t01=0x0046}
0x41e8…4206 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x002a, t01=0x005c}
0x4206…4228 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x002a, t01=0x007a}
0x4228…4246 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x002a, t01=0x009c}
0x4246…4266 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002a, t01=0x00ba}
0x4266…427e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002a, t01=0x00da}
0x427e…4288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f2}
0x4288…42d0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x002a, t01=0x00fc}
0x42d0…42e4 Head {h00=0x0010, h01=0x0050, text=»INSMOD EQU *«, t00=0x002a, t01=0x0144}
0x42e4…42f8 Head {h00=0x0010, h01=0x0050, text=» IFT IN:DL=1«, t00=0x002a, t01=0x0158}
0x42f8…430a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x002a, t01=0x016c}
0x430a…4338 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x002a, t01=0x017e}
0x4338…4358 Head {h00=0x001c, h01=0x0050, text=» CCK A7,NULL NULL CHAR.?«, t00=0x002b, t01=0x001c}
0x4358…4372 Head {h00=0x0016, h01=0x0050, text=» RF(NE) INS100 NO «, t00=0x002b, t01=0x003c}
0x4372…43a0 Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 INDICATE NULL IN CURSOR POS.«, t00=0x002b, t01=0x0056}
0x43a0…43b2 Head {h00=0x000e, h01=0x0050, text=» RF INS900«, t00=0x002b, t01=0x0084}
0x43b2…43c6 Head {h00=0x0010, h01=0x0050, text=»INS100 EQU *«, t00=0x002b, t01=0x0096}
0x43c6…43d8 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x002b, t01=0x00aa}
0x43d8…4404 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x002b, t01=0x00bc}
0x4404…441e Head {h00=0x0016, h01=0x0050, text=» RF(E) INS200 YES «, t00=0x002b, t01=0x00e8}
0x441e…443a Head {h00=0x0018, h01=0x0050, text=» LDR A8,A6 SAVE OLD «, t00=0x002b, t01=0x0102}
0x443a…4456 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A5 SAVE OLD «, t00=0x002b, t01=0x011e}
0x4456…4486 Head {h00=0x002c, h01=0x0050, text=» CF A14,ATMASF SEARCH ATTRIBUTE FORWARD «, t00=0x002b, t01=0x013a}
0x4486…4498 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x002b, t01=0x016a}
0x4498…44ba Head {h00=0x001e, h01=0x0050, text=» ST A8,ATTRIB,A11 RESTORE «, t00=0x002b, t01=0x017c}
0x44ba…44dc Head {h00=0x001e, h01=0x0050, text=» ST A9,CURATT,A11 RESTORE «, t00=0x002c, t01=0x000e}
0x44dc…44ee Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x002c, t01=0x0030}
0x44ee…4500 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x002c, t01=0x0042}
0x4500…4514 Head {h00=0x0010, h01=0x0050, text=»INS200 EQU *«, t00=0x002c, t01=0x0054}
0x4514…453c Head {h00=0x0024, h01=0x0050, text=» CF A14,SNULL SEARCH FIRST NULL «, t00=0x002c, t01=0x0068}
0x453c…455a Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 NULL FOUND? «, t00=0x002c, t01=0x0090}
0x455a…4574 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INS300 YES «, t00=0x002c, t01=0x00ae}
0x4574…4594 Head {h00=0x001c, h01=0x0050, text=» LDK A1,2 INDICATE ERROR«, t00=0x002c, t01=0x00c8}
0x4594…45a6 Head {h00=0x000e, h01=0x0050, text=» RF INS900«, t00=0x002c, t01=0x00e8}
0x45a6…45ba Head {h00=0x0010, h01=0x0050, text=»INS300 EQU *«, t00=0x002c, t01=0x00fa}
0x45ba…45e6 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x002c, t01=0x010e}
0x45e6…4600 Head {h00=0x0016, h01=0x0050, text=» RF(E) INS350 YES «, t00=0x002c, t01=0x013a}
0x4600…462e Head {h00=0x002a, h01=0x0050, text=» ORK A6,1 SET MDT-BIT ON IN ATTRIBUTE «, t00=0x002c, t01=0x0154}
0x462e…4648 Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x002c, t01=0x0182}
0x4648…465a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x002d, t01=0x000c}
0x465a…466c Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x002d, t01=0x001e}
0x466c…46a4 Head {h00=0x0034, h01=0x0050, text=» CF A14,STOVDU SAVE NEW ATTRIBUTE IN VDU-BUFFER «, t00=0x002d, t01=0x0030}
0x46a4…46b8 Head {h00=0x0010, h01=0x0050, text=»INS350 EQU *«, t00=0x002d, t01=0x0068}
0x46b8…46ca Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x002d, t01=0x007c}
0x46ca…46e2 Head {h00=0x0014, h01=0x0050, text=» ST A4,REGI,A11 «, t00=0x002d, t01=0x008e}
0x46e2…46f4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x002d, t01=0x00a6}
0x46f4…470a Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002d, t01=0x00b8}
0x470a…471e Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002d, t01=0x00ce}
0x471e…4732 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x002d, t01=0x00e2}
0x4732…4744 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x002d, t01=0x00f6}
0x4744…476a Head {h00=0x0022, h01=0x0050, text=» CF A14,LINE UPDATE LINE FLAG «, t00=0x002d, t01=0x0108}
0x476a…477c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x002d, t01=0x012e}
0x477c…4790 Head {h00=0x0010, h01=0x0050, text=»INS400 EQU *«, t00=0x002d, t01=0x0140}
0x4790…47c2 Head {h00=0x002e, h01=0x0050, text=» CWK A1,0 CHAR TO MOVE IN LAST SCREEN POS?«, t00=0x002d, t01=0x0154}
0x47c2…47dc Head {h00=0x0016, h01=0x0050, text=» RF(E) INS500 YES «, t00=0x002d, t01=0x0186}
0x47dc…47ee Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x0010}
0x47ee…481c Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x002e, t01=0x0022}
0x481c…482e Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x002e, t01=0x0050}
0x482e…4840 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x002e, t01=0x0062}
0x4840…4856 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002e, t01=0x0074}
0x4856…486a Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002e, t01=0x008a}
0x486a…487e Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x002e, t01=0x009e}
0x487e…4890 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x002e, t01=0x00b2}
0x4890…48a8 Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x002e, t01=0x00c4}
0x48a8…48ba Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x002e, t01=0x00dc}
0x48ba…48d2 Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x002e, t01=0x00ee}
0x48d2…4902 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x002e, t01=0x0106}
0x4902…4914 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x0136}
0x4914…4926 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002e, t01=0x0148}
0x4926…493a Head {h00=0x0010, h01=0x0050, text=»INS450 EQU *«, t00=0x002e, t01=0x015a}
0x493a…495e Head {h00=0x0020, h01=0x0050, text=» CW A1,REGI,A11 ALL SHIFTED?«, t00=0x002e, t01=0x016e}
0x495e…4978 (47, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(E) INS600 YES «, t00=0x002f, t01=0x0004}
0x4978…498a Head {h00=0x000e, h01=0x0050, text=» RB INS400«, t00=0x002f, t01=0x001e}
0x498a…499e Head {h00=0x0010, h01=0x0050, text=»INS500 EQU *«, t00=0x002f, t01=0x0030}
0x499e…49c4 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LBVDU-1 GET LAST CHAR«, t00=0x002f, t01=0x0044}
0x49c4…49f2 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x002f, t01=0x006a}
0x49f2…4a04 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x0098}
0x4a04…4a16 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x002f, t01=0x00aa}
0x4a16…4a28 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x002f, t01=0x00bc}
0x4a28…4a3e Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x002f, t01=0x00ce}
0x4a3e…4a52 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x002f, t01=0x00e4}
0x4a52…4a66 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x002f, t01=0x00f8}
0x4a66…4a78 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A9«, t00=0x002f, t01=0x010c}
0x4a78…4a90 Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x002f, t01=0x011e}
0x4a90…4aa2 Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x002f, t01=0x0136}
0x4aa2…4aba Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x002f, t01=0x0148}
0x4aba…4aea Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x002f, t01=0x0160}
0x4aea…4b14 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST SCREEN POS. «, t00=0x002f, t01=0x0190}
0x4b14…4b2c Head {h00=0x0014, h01=0x0050, text=» LDKL A4,LBVDU-1«, t00=0x0030, t01=0x002a}
0x4b2c…4b3e Head {h00=0x000e, h01=0x0050, text=» RB INS450«, t00=0x0030, t01=0x0042}
0x4b3e…4b52 Head {h00=0x0010, h01=0x0050, text=»INS600 EQU *«, t00=0x0030, t01=0x0054}
0x4b52…4b72 Head {h00=0x001c, h01=0x0050, text=» LDR A7,A2 GET KEY-CHAR «, t00=0x0030, t01=0x0068}
0x4b72…4ba2 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR IN VDU BUFFER «, t00=0x0030, t01=0x0088}
0x4ba2…4bb8 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0030, t01=0x00b8}
0x4bb8…4bcc Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0030, t01=0x00ce}
0x4bcc…4be0 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0030, t01=0x00e2}
0x4be0…4bf8 Head {h00=0x0014, h01=0x0050, text=» LC A9,LINFLG,A6«, t00=0x0030, t01=0x00f6}
0x4bf8…4c0a Head {h00=0x000e, h01=0x0050, text=» ORKL A9,1«, t00=0x0030, t01=0x010e}
0x4c0a…4c22 Head {h00=0x0014, h01=0x0050, text=» SC A9,LINFLG,A6«, t00=0x0030, t01=0x0120}
0x4c22…4c44 Head {h00=0x001e, h01=0x0050, text=» IM PCURS,A11 MOVE CURSOR «, t00=0x0030, t01=0x0138}
0x4c44…4c5c Head {h00=0x0014, h01=0x0050, text=» LD A4,REGI,A11 «, t00=0x0030, t01=0x015a}
0x4c5c…4c6e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0030, t01=0x0172}
0x4c6e…4c92 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x0030, t01=0x0184}
0x4c92…4cac Head {h00=0x0016, h01=0x0050, text=» RF(NG) INS700 NO «, t00=0x0031, t01=0x0018}
0x4cac…4cd2 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x0031, t01=0x0032}
0x4cd2…4ce8 Head {h00=0x0012, h01=0x0050, text=» CM PCURS,A11 «, t00=0x0031, t01=0x0058}
0x4ce8…4cfc Head {h00=0x0010, h01=0x0050, text=»INS700 EQU *«, t00=0x0031, t01=0x006e}
0x4cfc…4d2a Head {h00=0x002a, h01=0x0050, text=» CF A14,DISMOD DISPLAY MODIFIED FIELD «, t00=0x0031, t01=0x0082}
0x4d2a…4d52 Head {h00=0x0024, h01=0x0050, text=» LDK A1,1 INDICATE NORMAL INSERT«, t00=0x0031, t01=0x00b0}
0x4d52…4d66 Head {h00=0x0010, h01=0x0050, text=»INS900 EQU *«, t00=0x0031, t01=0x00d8}
0x4d66…4d76 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x00ec}
0x4d76…4d82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00fc}
0x4d82…4d90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0108}
0x4d90…4dd2 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0031, t01=0x0116}
0x4dd2…4e14 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0031, t01=0x0158}
0x4e14…4e56 Head {h00=0x003e, h01=0x0050, text=»* UPDCNT UPDATE COUNTERS *«, t00=0x0032, t01=0x000a}
0x4e56…4e98 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0032, t01=0x004c}
0x4e98…4eda Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0032, t01=0x008e}
0x4eda…4ef6 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS«, t00=0x0032, t01=0x00d0}
0x4ef6…4f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ec}
0x4f00…4f24 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0032, t01=0x00f6}
0x4f24…4f40 Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0032, t01=0x011a}
0x4f40…4f56 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0032, t01=0x0136}
0x4f56…4f72 Head {h00=0x0018, h01=0x0050, text=»* A6= ADDRESS IN ECB«, t00=0x0032, t01=0x014c}
0x4f72…4f8c Head {h00=0x0016, h01=0x0050, text=»* A7= INDEX IN ECB«, t00=0x0032, t01=0x0168}
0x4f8c…4fa2 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0032, t01=0x0182}
0x4fa2…4fb8 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0033, t01=0x0008}
0x4fb8…4fd0 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0033, t01=0x001e}
0x4fd0…4fe8 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0033, t01=0x0036}
0x4fe8…5000 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0033, t01=0x004e}
0x5000…500a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0066}
0x500a…504c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0033, t01=0x0070}
0x504c…5060 Head {h00=0x0010, h01=0x0050, text=»UPDCNT EQU *«, t00=0x0033, t01=0x00b2}
0x5060…5072 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0033, t01=0x00c6}
0x5072…5084 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0033, t01=0x00d8}
0x5084…5096 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0033, t01=0x00ea}
0x5096…50a8 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0033, t01=0x00fc}
0x50a8…50b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x010e}
0x50b8…50c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x011e}
0x50c6…510e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0033, t01=0x012c}
0x510e…5156 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0033, t01=0x0174}
0x5156…519e Head {h00=0x0044, h01=0x0050, text=»* GETVDU GET CHAR. IN VDU BUFFER *«, t00=0x0034, t01=0x002c}
0x519e…51e6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0034, t01=0x0074}
0x51e6…522e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0034, t01=0x00bc}
0x522e…5242 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0034, t01=0x0104}
0x5242…524c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0118}
0x524c…5270 Head {h00=0x0020, h01=0x0050, text=»* A1= REL. POS IN VDU BUFFER«, t00=0x0034, t01=0x0122}
0x5270…5286 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0034, t01=0x0146}
0x5286…529c Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0034, t01=0x015c}
0x529c…52b2 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0034, t01=0x0172}
0x52b2…52c8 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0034, t01=0x0188}
0x52c8…52de Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0035, t01=0x000e}
0x52de…5302 Head {h00=0x0020, h01=0x0050, text=»* A7= CHAR. FROM VDU BUFFER «, t00=0x0035, t01=0x0024}
0x5302…5318 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0035, t01=0x0048}
0x5318…532e Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0035, t01=0x005e}
0x532e…5346 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0035, t01=0x0074}
0x5346…5366 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0035, t01=0x008c}
0x5366…537e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0035, t01=0x00ac}
0x537e…5388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00c4}
0x5388…53c8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0035, t01=0x00ce}
0x53c8…53dc Head {h00=0x0010, h01=0x0050, text=»GETVDU EQU *«, t00=0x0035, t01=0x010e}
0x53dc…53f2 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,BVDU «, t00=0x0035, t01=0x0122}
0x53f2…5406 Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0035, t01=0x0138}
0x5406…5418 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A1«, t00=0x0035, t01=0x014c}
0x5418…542a Head {h00=0x000e, h01=0x0050, text=» LCR A7,A7«, t00=0x0035, t01=0x015e}
0x542a…543e Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0035, t01=0x0170}
0x543e…544e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x0184}
0x544e…545c (54, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0004}
0x545c…54a2 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0036, t01=0x0012}
0x54a2…54e8 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0036, t01=0x0058}
0x54e8…552e Head {h00=0x0042, h01=0x0050, text=»* STOVDU STORE CHAR. IN VDU BUFFER *«, t00=0x0036, t01=0x009e}
0x552e…5574 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0036, t01=0x00e4}
0x5574…55ba Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0036, t01=0x012a}
0x55ba…55ce Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0036, t01=0x0170}
0x55ce…55d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0184}
0x55d8…55fe Head {h00=0x0022, h01=0x0050, text=»* A1= REL. POS. IN VDU BUFFER «, t00=0x0036, t01=0x018e}
0x55fe…5614 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0037, t01=0x0024}
0x5614…562a Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0037, t01=0x003a}
0x562a…5640 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0037, t01=0x0050}
0x5640…5656 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0037, t01=0x0066}
0x5656…566c Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0037, t01=0x007c}
0x566c…5696 Head {h00=0x0026, h01=0x0050, text=»* A7= CHAR. TO STORE IN VDU BUFFER«, t00=0x0037, t01=0x0092}
0x5696…56ac Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0037, t01=0x00bc}
0x56ac…56c4 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0037, t01=0x00d2}
0x56c4…56e4 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0037, t01=0x00ea}
0x56e4…56fc Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0037, t01=0x010a}
0x56fc…5706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0122}
0x5706…5746 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x012c}
0x5746…575a Head {h00=0x0010, h01=0x0050, text=»STOVDU EQU *«, t00=0x0037, t01=0x016c}
0x575a…5770 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,BVDU «, t00=0x0037, t01=0x0180}
0x5770…5784 Head {h00=0x0010, h01=0x0050, text=» ADR A8,A11 «, t00=0x0038, t01=0x0008}
0x5784…5796 Head {h00=0x000e, h01=0x0050, text=» ADR A8,A1«, t00=0x0038, t01=0x001c}
0x5796…57a8 Head {h00=0x000e, h01=0x0050, text=» SCR A7,A8«, t00=0x0038, t01=0x002e}
0x57a8…57b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0038, t01=0x0040}
0x57b8…57c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0050}
0x57c6…5806 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0038, t01=0x005e}
0x5806…5846 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0038, t01=0x009e}
0x5846…5886 Head {h00=0x003c, h01=0x0050, text=»* SCRINF GET SCREEN INFORMATION *«, t00=0x0038, t01=0x00de}
0x5886…58c6 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0038, t01=0x011e}
0x58c6…5906 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0038, t01=0x015e}
0x5906…591a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0039, t01=0x000e}
0x591a…5924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0022}
0x5924…593a Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0039, t01=0x002c}
0x593a…5958 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0039, t01=0x0042}
0x5958…597a Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0039, t01=0x0060}
0x597a…5998 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0039, t01=0x0082}
0x5998…59b8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0039, t01=0x00a0}
0x59b8…59d0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0039, t01=0x00c0}
0x59d0…59da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d8}
0x59da…5a1a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0039, t01=0x00e2}
0x5a1a…5a2e Head {h00=0x0010, h01=0x0050, text=»SCRINF EQU *«, t00=0x0039, t01=0x0122}
0x5a2e…5a56 Head {h00=0x0024, h01=0x0050, text=» LD A4,PCURS,A11 GET CURSOR POS.«, t00=0x0039, t01=0x0136}
0x5a56…5a82 Head {h00=0x0028, h01=0x0050, text=» LD A5,CURATT,A11 GET ATTRIBUTE POS.«, t00=0x0039, t01=0x015e}
0x5a82…5ab0 Head {h00=0x002a, h01=0x0050, text=» LD A6,ATTRIB,A11 GET ATTRIBUTE CHAR. «, t00=0x0039, t01=0x018a}
0x5ab0…5ac0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003a, t01=0x0028}
0x5ac0…5ace Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0038}
0x5ace…5b0e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003a, t01=0x0046}
0x5b0e…5b4e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0086}
0x5b4e…5b8e Head {h00=0x003c, h01=0x0050, text=»* STOINF STORE SCREEN INFORMATION *«, t00=0x003a, t01=0x00c6}
0x5b8e…5bce Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x003a, t01=0x0106}
0x5bce…5c0e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003a, t01=0x0146}
0x5c0e…5c22 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003a, t01=0x0186}
0x5c22…5c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x000a}
0x5c2c…5c4a Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003b, t01=0x0014}
0x5c4a…5c6c Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x003b, t01=0x0032}
0x5c6c…5c8a Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x003b, t01=0x0054}
0x5c8a…5caa Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003b, t01=0x0072}
0x5caa…5cc2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003b, t01=0x0092}
0x5cc2…5ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00aa}
0x5ccc…5d0c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x003b, t01=0x00b4}
0x5d0c…5d20 Head {h00=0x0010, h01=0x0050, text=»STOINF EQU *«, t00=0x003b, t01=0x00f4}
0x5d20…5d38 Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x003b, t01=0x0108}
0x5d38…5d52 Head {h00=0x0016, h01=0x0050, text=» ST A5,CURATT,A11 «, t00=0x003b, t01=0x0120}
0x5d52…5d6c Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x003b, t01=0x013a}
0x5d6c…5d7c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x0154}
0x5d7c…5d8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0164}
0x5d8a…5dca Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003b, t01=0x0172}
0x5dca…5e0a Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0022}
0x5e0a…5e4a Head {h00=0x003c, h01=0x0050, text=»* SOUND SOUND ALARM ON VDU * «, t00=0x003c, t01=0x0062}
0x5e4a…5e8a Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x003c, t01=0x00a2}
0x5e8a…5eca Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003c, t01=0x00e2}
0x5eca…5ede Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003c, t01=0x0122}
0x5ede…5ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0136}
0x5ee8…5f02 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x003c, t01=0x0140}
0x5f02…5f16 Head {h00=0x0010, h01=0x0050, text=»* A8= ECBVDU«, t00=0x003c, t01=0x015a}
0x5f16…5f36 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003c, t01=0x016e}
0x5f36…5f4e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003c, t01=0x018e}
0x5f4e…5f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0016}
0x5f58…5f98 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x003d, t01=0x0020}
0x5f98…5fac Head {h00=0x0010, h01=0x0050, text=»SOUND EQU * «, t00=0x003d, t01=0x0060}
0x5fac…5fc6 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x003d, t01=0x0074}
0x5fc6…5fde Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x003d, t01=0x008e}
0x5fde…6000 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/2B CONTROL CHAR. «, t00=0x003d, t01=0x00a6}
0x6000…6014 Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A1 «, t00=0x003d, t01=0x00c8}
0x6014…6032 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/07 BELL CHAR.«, t00=0x003d, t01=0x00dc}
0x6032…6046 Head {h00=0x0010, h01=0x0050, text=» SC A2,2,A1 «, t00=0x003d, t01=0x00fa}
0x6046…6064 Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 REQ. LENGTH «, t00=0x003d, t01=0x010e}
0x6064…607c Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x003d, t01=0x012c}
0x607c…6090 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x003d, t01=0x0144}
0x6090…609c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x0158}
0x609c…60ac Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0164}
0x60ac…60d4 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRC,A8 GET RETURN CODE «, t00=0x003d, t01=0x0174}
0x60d4…60e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003e, t01=0x000c}
0x60e4…60f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x001c}
0x60f2…6130 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003e, t01=0x002a}
0x6130…616e Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x003e, t01=0x0068}
0x616e…61ac Head {h00=0x003a, h01=0x0050, text=»* WRAP CHECK IF WRAP AROUND * «, t00=0x003e, t01=0x00a6}
0x61ac…61ea Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x003e, t01=0x00e4}
0x61ea…6228 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003e, t01=0x0122}
0x6228…623c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x003e, t01=0x0160}
0x623c…6246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0174}
0x6246…625c Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x003e, t01=0x017e}
0x625c…6280 (63, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x003f, t01=0x0004}
0x6280…629e Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x003f, t01=0x0028}
0x629e…62b4 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x003f, t01=0x0046}
0x62b4…62ca Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x003f, t01=0x005c}
0x62ca…62e0 Head {h00=0x0012, h01=0x0050, text=»* A7= RESERVED«, t00=0x003f, t01=0x0072}
0x62e0…62f6 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x003f, t01=0x0088}
0x62f6…630c Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x003f, t01=0x009e}
0x630c…6324 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x003f, t01=0x00b4}
0x6324…6344 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x003f, t01=0x00cc}
0x6344…635c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x003f, t01=0x00ec}
0x635c…6366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0104}
0x6366…63a4 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x003f, t01=0x010e}
0x63a4…63b6 Head {h00=0x000e, h01=0x0050, text=»WRAP EQU *«, t00=0x003f, t01=0x014c}
0x63b6…63d8 Head {h00=0x001e, h01=0x0050, text=» CWK A4,LBVDU WRAP AROUND «, t00=0x003f, t01=0x015e}
0x63d8…63f0 Head {h00=0x0014, h01=0x0050, text=» RF(L) WRAP90 NO«, t00=0x003f, t01=0x0180}
0x63f0…6414 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0040, t01=0x0008}
0x6414…642a Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0040, t01=0x002c}
0x642a…643e Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0040, t01=0x0042}
0x643e…6452 Head {h00=0x0010, h01=0x0050, text=»WRAP90 EQU *«, t00=0x0040, t01=0x0056}
0x6452…6462 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0040, t01=0x006a}
0x6462…6470 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x007a}
0x6470…64b4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0040, t01=0x0088}
0x64b4…64f8 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0040, t01=0x00cc}
0x64f8…653e Head {h00=0x0042, h01=0x0050, text=»* LINWRP CHECK LINE WRAP * «, t00=0x0040, t01=0x0110}
0x653e…6582 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0040, t01=0x0156}
0x6582…65c6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0041, t01=0x000a}
0x65c6…65da Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0041, t01=0x004e}
0x65da…65e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0062}
0x65e4…65fa Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x0041, t01=0x006c}
0x65fa…6616 Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0041, t01=0x0082}
0x6616…6638 Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0041, t01=0x009e}
0x6638…664e Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0041, t01=0x00c0}
0x664e…6664 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0041, t01=0x00d6}
0x6664…667a Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0041, t01=0x00ec}
0x667a…6692 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0041, t01=0x0102}
0x6692…66aa Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0041, t01=0x011a}
0x66aa…66c2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0041, t01=0x0132}
0x66c2…66cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x014a}
0x66cc…6710 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0041, t01=0x0154}
0x6710…6724 Head {h00=0x0010, h01=0x0050, text=»LINWRP EQU *«, t00=0x0042, t01=0x0008}
0x6724…6744 Head {h00=0x001c, h01=0x0050, text=» CWR A5,A4 END OF LINE? «, t00=0x0042, t01=0x001c}
0x6744…675c Head {h00=0x0014, h01=0x0050, text=» RF(G) LINW10 NO«, t00=0x0042, t01=0x003c}
0x675c…6782 Head {h00=0x0022, h01=0x0050, text=» CF A14,LINE UPDATE LINE FLAG «, t00=0x0042, t01=0x0054}
0x6782…6796 Head {h00=0x0010, h01=0x0050, text=»LINW10 EQU *«, t00=0x0042, t01=0x007a}
0x6796…67a6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0042, t01=0x008e}
0x67a6…67b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x009e}
0x67b4…67f8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0042, t01=0x00ac}
0x67f8…683c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0042, t01=0x00f0}
0x683c…6880 Head {h00=0x0040, h01=0x0050, text=»* LINE UPDATE LINE FLAG *«, t00=0x0042, t01=0x0134}
0x6880…68c4 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0042, t01=0x0178}
0x68c4…690a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0043, t01=0x002c}
0x690a…691e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0043, t01=0x0072}
0x691e…6928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0086}
0x6928…694c Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0043, t01=0x0090}
0x694c…6968 Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0043, t01=0x00b4}
0x6968…698a Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0043, t01=0x00d0}
0x698a…69b2 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0043, t01=0x00f2}
0x69b2…69c8 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0043, t01=0x011a}
0x69c8…69de Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0043, t01=0x0130}
0x69de…69f6 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERFED «, t00=0x0043, t01=0x0146}
0x69f6…6a16 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0043, t01=0x015e}
0x6a16…6a2e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0043, t01=0x017e}
0x6a2e…6a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0008}
0x6a38…6a7c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0044, t01=0x0012}
0x6a7c…6a8e Head {h00=0x000e, h01=0x0050, text=»LINE EQU *«, t00=0x0044, t01=0x0056}
0x6a8e…6aac Head {h00=0x001a, h01=0x0050, text=» CWR A5,A4 THIS LINE? «, t00=0x0044, t01=0x0068}
0x6aac…6acc Head {h00=0x001c, h01=0x0050, text=» RF(G) LIN400 YES,MAYBE «, t00=0x0044, t01=0x0086}
0x6acc…6ae0 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0044, t01=0x00a6}
0x6ae0…6b0a Head {h00=0x0026, h01=0x0050, text=» ANK A1,ATTREC ATTRIBUTE RECEIVED?«, t00=0x0044, t01=0x00ba}
0x6b0a…6b22 Head {h00=0x0014, h01=0x0050, text=» RF(Z) LIN100 NO«, t00=0x0044, t01=0x00e4}
0x6b22…6b3a Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0044, t01=0x00fc}
0x6b3a…6b4c Head {h00=0x000e, h01=0x0050, text=» ORK A1,2 «, t00=0x0044, t01=0x0114}
0x6b4c…6b64 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0044, t01=0x0126}
0x6b64…6b78 Head {h00=0x0010, h01=0x0050, text=»LIN100 EQU *«, t00=0x0044, t01=0x013e}
0x6b78…6b8c Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0044, t01=0x0152}
0x6b8c…6bac Head {h00=0x001c, h01=0x0050, text=» ADK A6,1 UPDATE ADDRESS«, t00=0x0044, t01=0x0166}
0x6bac…6bcc Head {h00=0x001c, h01=0x0050, text=» CWK A6,23 WRAP SCREEN? «, t00=0x0044, t01=0x0186}
0x6bcc…6be6 Head {h00=0x0016, h01=0x0050, text=» RF(G) LIN300 YES «, t00=0x0045, t01=0x0016}
0x6be6…6bfc Head {h00=0x0012, h01=0x0050, text=» ADK A5,LLINE «, t00=0x0045, t01=0x0030}
0x6bfc…6c10 Head {h00=0x0010, h01=0x0050, text=» ADR A6,A11 «, t00=0x0045, t01=0x0046}
0x6c10…6c20 Head {h00=0x000c, h01=0x0050, text=» RB LINE«, t00=0x0045, t01=0x005a}
0x6c20…6c34 Head {h00=0x0010, h01=0x0050, text=»LIN300 EQU *«, t00=0x0045, t01=0x006a}
0x6c34…6c58 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0045, t01=0x007e}
0x6c58…6c6e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0045, t01=0x00a2}
0x6c6e…6c82 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0045, t01=0x00b8}
0x6c82…6c96 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0045, t01=0x00cc}
0x6c96…6cac Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0045, t01=0x00e0}
0x6cac…6cc0 Head {h00=0x0010, h01=0x0050, text=»LIN400 EQU *«, t00=0x0045, t01=0x00f6}
0x6cc0…6cd4 Head {h00=0x0010, h01=0x0050, text=» SUR A5,A4 «, t00=0x0045, t01=0x010a}
0x6cd4…6ce6 Head {h00=0x000e, h01=0x0050, text=» CWK A5,81«, t00=0x0045, t01=0x011e}
0x6ce6…6d06 Head {h00=0x001c, h01=0x0050, text=» RF(L) LIN500 THIS LINE «, t00=0x0045, t01=0x0130}
0x6d06…6d1c Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0045, t01=0x0150}
0x6d1c…6d30 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0045, t01=0x0166}
0x6d30…6d40 Head {h00=0x000c, h01=0x0050, text=» RB LINE«, t00=0x0045, t01=0x017a}
0x6d40…6d54 Head {h00=0x0010, h01=0x0050, text=»LIN500 EQU *«, t00=0x0045, t01=0x018a}
0x6d54…6d6e Head {h00=0x0016, h01=0x0050, text=» ADR A5,A4 RESTORE«, t00=0x0046, t01=0x000e}
0x6d6e…6d7e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x0028}
0x6d7e…6d8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0038}
0x6d8c…6dd2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x0046}
0x6dd2…6e18 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x008c}
0x6e18…6e5e Head {h00=0x0042, h01=0x0050, text=»* LINATT UPADTE LINFLG AT ATTRIBUTE CHANGE * «, t00=0x0046, t01=0x00d2}
0x6e5e…6ea4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0046, t01=0x0118}
0x6ea4…6eea Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0046, t01=0x015e}
0x6eea…6efe Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0047, t01=0x0014}
0x6efe…6f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0028}
0x6f08…6f2c Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU BUFFER «, t00=0x0047, t01=0x0032}
0x6f2c…6f48 Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x0047, t01=0x0056}
0x6f48…6f6a Head {h00=0x001e, h01=0x0050, text=»* A5= LAST IN ROW REL POS «, t00=0x0047, t01=0x0072}
0x6f6a…6f92 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0047, t01=0x0094}
0x6f92…6fa8 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x0047, t01=0x00bc}
0x6fa8…6fbe Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x0047, t01=0x00d2}
0x6fbe…6fd6 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x0047, t01=0x00e8}
0x6fd6…6ff6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0047, t01=0x0100}
0x6ff6…700e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0047, t01=0x0120}
0x700e…7018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0138}
0x7018…705e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0047, t01=0x0142}
0x705e…7072 Head {h00=0x0010, h01=0x0050, text=»LINATT EQU *«, t00=0x0047, t01=0x0188}
0x7072…7088 Head {h00=0x0012, h01=0x0050, text=» CF A14,SAVE1 «, t00=0x0048, t01=0x000c}
0x7088…709c Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0048, t01=0x0022}
0x709c…70ae Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0048, t01=0x0036}
0x70ae…70c6 Head {h00=0x0014, h01=0x0050, text=» LDR A10,A4 . =1«, t00=0x0048, t01=0x0048}
0x70c6…70da Head {h00=0x0010, h01=0x0050, text=»LINA10 EQU *«, t00=0x0048, t01=0x0060}
0x70da…70ec Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0048, t01=0x0074}
0x70ec…70fe Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0048, t01=0x0086}
0x70fe…711e Head {h00=0x001c, h01=0x0050, text=» CWR A5,A4 END OF LINE? «, t00=0x0048, t01=0x0098}
0x711e…7136 Head {h00=0x0014, h01=0x0050, text=» RF(G) LINA30 NO«, t00=0x0048, t01=0x00b8}
0x7136…714a Head {h00=0x0010, h01=0x0050, text=» ADR A6,A11 «, t00=0x0048, t01=0x00d0}
0x714a…7162 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0048, t01=0x00e4}
0x7162…7174 Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0048, t01=0x00fc}
0x7174…718c Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0048, t01=0x010e}
0x718c…71a0 Head {h00=0x0010, h01=0x0050, text=» SUR A6,A11 «, t00=0x0048, t01=0x0126}
0x71a0…71b2 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0048, t01=0x013a}
0x71b2…71d2 Head {h00=0x001c, h01=0x0050, text=» CWK A6,23 WRAP AROUND? «, t00=0x0048, t01=0x014c}
0x71d2…71ec Head {h00=0x0016, h01=0x0050, text=» RF(G) LINA20 YES «, t00=0x0048, t01=0x016c}
0x71ec…7202 Head {h00=0x0012, h01=0x0050, text=» ADK A5,LLINE «, t00=0x0048, t01=0x0186}
0x7202…7214 Head {h00=0x000e, h01=0x0050, text=» RF LINA30«, t00=0x0049, t01=0x000c}
0x7214…7228 Head {h00=0x0010, h01=0x0050, text=»LINA20 EQU *«, t00=0x0049, t01=0x001e}
0x7228…723a Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0049, t01=0x0032}
0x723a…724c Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0049, t01=0x0044}
0x724c…7262 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0049, t01=0x0056}
0x7262…7276 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0049, t01=0x006c}
0x7276…728c Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0049, t01=0x0080}
0x728c…72a0 Head {h00=0x0010, h01=0x0050, text=»LINA30 EQU *«, t00=0x0049, t01=0x0096}
0x72a0…72c4 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A10 ALL CHECKED? =1 «, t00=0x0049, t01=0x00aa}
0x72c4…72e0 Head {h00=0x0018, h01=0x0050, text=» RF(E) LINA40 YES =1«, t00=0x0049, t01=0x00ce}
0x72e0…72f2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0049, t01=0x00ea}
0x72f2…7310 Head {h00=0x001a, h01=0x0050, text=» CWK A2,/80 ATTRIBUTE «, t00=0x0049, t01=0x00fc}
0x7310…732a Head {h00=0x0016, h01=0x0050, text=» RB(NG) LINA10 YES«, t00=0x0049, t01=0x011a}
0x732a…7344 Head {h00=0x0016, h01=0x0050, text=»LINA40 EQU * . =1 «, t00=0x0049, t01=0x0134}
0x7344…735a Head {h00=0x0012, h01=0x0050, text=» CF A14,REST1 «, t00=0x0049, t01=0x014e}
0x735a…736a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0049, t01=0x0164}
0x736a…7378 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0174}
0x7378…73bc Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0049, t01=0x0182}
0x73bc…7400 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x004a, t01=0x0036}
0x7400…7444 Head {h00=0x0040, h01=0x0050, text=»* NLROUT NEW LINE ROUTINE * «, t00=0x004a, t01=0x007a}
0x7444…7488 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x004a, t01=0x00be}
0x7488…74cc Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004a, t01=0x0102}
0x74cc…74e0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004a, t01=0x0146}
0x74e0…74ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x015a}
0x74ea…750c Head {h00=0x001e, h01=0x0050, text=»* A3= ADDRES IN VDU BUFFER«, t00=0x004a, t01=0x0164}
0x750c…7528 Head {h00=0x0018, h01=0x0050, text=»* A4= REL CURSOR POS«, t00=0x004a, t01=0x0186}
0x7528…753e Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x004b, t01=0x0012}
0x753e…7554 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x004b, t01=0x0028}
0x7554…756a Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x004b, t01=0x003e}
0x756a…7580 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x004b, t01=0x0054}
0x7580…7598 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x004b, t01=0x006a}
0x7598…75b0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x004b, t01=0x0082}
0x75b0…75c8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004b, t01=0x009a}
0x75c8…75d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00b2}
0x75d2…7616 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x004b, t01=0x00bc}
0x7616…762a Head {h00=0x0010, h01=0x0050, text=»NLROUT EQU *«, t00=0x004b, t01=0x0100}
0x762a…764e Head {h00=0x0020, h01=0x0050, text=» LDR A1,A4 SAVE CURSOR POS. «, t00=0x004b, t01=0x0114}
0x764e…7680 Head {h00=0x002e, h01=0x0050, text=» CF A14,CRDOWN MOVE CURSOR ON E LINE DOWN «, t00=0x004b, t01=0x0138}
0x7680…7692 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x004b, t01=0x016a}
0x7692…76a6 Head {h00=0x0010, h01=0x0050, text=»NLR100 EQU *«, t00=0x004b, t01=0x017c}
0x76a6…76d2 Head {h00=0x0028, h01=0x0050, text=» SUK A4,LLINE COMPUTE LEFTMOST POS. «, t00=0x004b, t01=0x0190}
0x76d2…76e8 Head {h00=0x0012, h01=0x0050, text=» RF(N) NLR200 «, t00=0x004c, t01=0x002c}
0x76e8…76fe Head {h00=0x0012, h01=0x0050, text=» ADK A7,LLINE «, t00=0x004c, t01=0x0042}
0x76fe…7710 Head {h00=0x000e, h01=0x0050, text=» RB NLR100«, t00=0x004c, t01=0x0058}
0x7710…7724 Head {h00=0x0010, h01=0x0050, text=»NLR200 EQU *«, t00=0x004c, t01=0x006a}
0x7724…7736 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x004c, t01=0x007e}
0x7736…774a Head {h00=0x0010, h01=0x0050, text=» LDK A2,NULL«, t00=0x004c, t01=0x0090}
0x774a…775e Head {h00=0x0010, h01=0x0050, text=»NLR300 EQU *«, t00=0x004c, t01=0x00a4}
0x775e…777c Head {h00=0x001a, h01=0x0050, text=» CWR A7,A4 ALL NULLED?«, t00=0x004c, t01=0x00b8}
0x777c…7796 Head {h00=0x0016, h01=0x0050, text=» RF(E) NLR900 YES «, t00=0x004c, t01=0x00d6}
0x7796…77bc Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 NULL IN VDU BUFFER «, t00=0x004c, t01=0x00f0}
0x77bc…77d4 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x004c, t01=0x0116}
0x77d4…77e6 Head {h00=0x000e, h01=0x0050, text=» ORKL A1,1«, t00=0x004c, t01=0x012e}
0x77e6…77fe Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x004c, t01=0x0140}
0x77fe…7810 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004c, t01=0x0158}
0x7810…7822 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004c, t01=0x016a}
0x7822…7838 Head {h00=0x0012, h01=0x0050, text=» CF A14,LINWRP«, t00=0x004c, t01=0x017c}
0x7838…784a (77, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB NLR300«, t00=0x004d, t01=0x0004}
0x784a…785e Head {h00=0x0010, h01=0x0050, text=»NLR900 EQU *«, t00=0x004d, t01=0x0016}
0x785e…786e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004d, t01=0x002a}
0x786e…787c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x003a}
0x787c…78c8 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x004d, t01=0x0048}
0x78c8…7914 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004d, t01=0x0094}
0x7914…7960 Head {h00=0x0048, h01=0x0050, text=»* ERASE ERASE ENTIRE SCREEN * «, t00=0x004d, t01=0x00e0}
0x7960…79ac Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004d, t01=0x012c}
0x79ac…79f8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004d, t01=0x0178}
0x79f8…7a0c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x004e, t01=0x0034}
0x7a0c…7a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0048}
0x7a16…7a2a Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x004e, t01=0x0052}
0x7a2a…7a4e Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x004e, t01=0x0066}
0x7a4e…7a70 Head {h00=0x001e, h01=0x0050, text=»* A4= REL. CURSOR ADDRESS «, t00=0x004e, t01=0x008a}
0x7a70…7a90 Head {h00=0x001c, h01=0x0050, text=»* A5= REL ATTRIBUTE POS «, t00=0x004e, t01=0x00ac}
0x7a90…7aac Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x004e, t01=0x00cc}
0x7aac…7acc Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x004e, t01=0x00e8}
0x7acc…7ae4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x004e, t01=0x0108}
0x7ae4…7aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0120}
0x7aee…7b30 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x004e, t01=0x012a}
0x7b30…7b44 Head {h00=0x0010, h01=0x0050, text=»ERASE EQU * «, t00=0x004e, t01=0x016c}
0x7b44…7b68 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x004e, t01=0x0180}
0x7b68…7b7e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x004f, t01=0x0014}
0x7b7e…7b92 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x004f, t01=0x002a}
0x7b92…7bb8 Head {h00=0x0022, h01=0x0050, text=» LDK A2,NULL STORE NULL CHAR. «, t00=0x004f, t01=0x003e}
0x7bb8…7bcc Head {h00=0x0010, h01=0x0050, text=»ERAS10 EQU *«, t00=0x004f, t01=0x0064}
0x7bcc…7bfa Head {h00=0x002a, h01=0x0050, text=» CWK A4,LBVDU+24 WHOLE SCREEN NULLED? «, t00=0x004f, t01=0x0078}
0x7bfa…7c14 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ERAS20 YES«, t00=0x004f, t01=0x00a6}
0x7c14…7c32 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A3 STORE CHAR.«, t00=0x004f, t01=0x00c0}
0x7c32…7c44 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x004f, t01=0x00de}
0x7c44…7c56 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004f, t01=0x00f0}
0x7c56…7c68 Head {h00=0x000e, h01=0x0050, text=» RB ERAS10«, t00=0x004f, t01=0x0102}
0x7c68…7c7c Head {h00=0x0010, h01=0x0050, text=»ERAS20 EQU *«, t00=0x004f, t01=0x0114}
0x7c7c…7ca0 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x004f, t01=0x0128}
0x7ca0…7ccc Head {h00=0x0028, h01=0x0050, text=» LDKL A5,LBVDU+1 UNFORMATTED SCREEN «, t00=0x004f, t01=0x014c}
0x7ccc…7cde Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x004f, t01=0x0178}
0x7cde…7d0c Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x004f, t01=0x018a}
0x7d0c…7d24 Head {h00=0x0014, h01=0x0050, text=» LC A1,TCT01,A11«, t00=0x0050, t01=0x0028}
0x7d24…7d4a Head {h00=0x0022, h01=0x0050, text=» CCK A1,VDUCOD PRINTER UNPACK?«, t00=0x0050, t01=0x0040}
0x7d4a…7d64 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERAS30 YES«, t00=0x0050, t01=0x0066}
0x7d64…7d7e Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0050, t01=0x0080}
0x7d7e…7d9e Head {h00=0x001c, h01=0x0050, text=» LDK A2,'1' ERASE CHAR. «, t00=0x0050, t01=0x009a}
0x7d9e…7db6 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x0050, t01=0x00ba}
0x7db6…7dca Head {h00=0x0010, h01=0x0050, text=» SC A2,1,A1 «, t00=0x0050, t01=0x00d2}
0x7dca…7de8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0050, t01=0x00e6}
0x7de8…7e00 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0050, t01=0x0104}
0x7e00…7e1a Head {h00=0x0016, h01=0x0050, text=» LDK A7,/86 WRITE «, t00=0x0050, t01=0x011c}
0x7e1a…7e26 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0050, t01=0x0136}
0x7e26…7e36 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0050, t01=0x0142}
0x7e36…7e4a Head {h00=0x0010, h01=0x0050, text=»ERAS30 EQU *«, t00=0x0050, t01=0x0152}
0x7e4a…7e5a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0050, t01=0x0166}
0x7e5a…7e68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0176}
0x7e68…7eaa Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0050, t01=0x0184}
0x7eaa…7eec Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0051, t01=0x0036}
0x7eec…7f2e Head {h00=0x003e, h01=0x0050, text=»* ERASUP ERASE ALL UNPROTECTED * «, t00=0x0051, t01=0x0078}
0x7f2e…7f70 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0051, t01=0x00ba}
0x7f70…7fb2 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0051, t01=0x00fc}
0x7fb2…7fc6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0051, t01=0x013e}
0x7fc6…7fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0152}
0x7fd0…7fe4 Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0051, t01=0x015c}
0x7fe4…8008 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0051, t01=0x0170}
0x8008…8026 (82, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0052, t01=0x0004}
0x8026…8048 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0052, t01=0x0022}
0x8048…8070 Head {h00=0x0024, h01=0x0050, text=»* A6= INTERNAL LINE FLAG ADDRESS«, t00=0x0052, t01=0x0044}
0x8070…8090 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0052, t01=0x006c}
0x8090…80a8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0052, t01=0x008c}
0x80a8…80b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00a4}
0x80b2…80f4 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0052, t01=0x00ae}
0x80f4…8108 Head {h00=0x0010, h01=0x0050, text=»ERASUP EQU *«, t00=0x0052, t01=0x00f0}
0x8108…812e Head {h00=0x0022, h01=0x0050, text=» LDK A1,2 RESTORE KEYBOARD-BIT«, t00=0x0052, t01=0x0104}
0x812e…8144 Head {h00=0x0012, h01=0x0050, text=» ST A1,WCC,A11«, t00=0x0052, t01=0x012a}
0x8144…8168 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 FIRST SCREEN POS. «, t00=0x0052, t01=0x0140}
0x8168…817e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0052, t01=0x0164}
0x817e…8192 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0052, t01=0x017a}
0x8192…81b8 Head {h00=0x0022, h01=0x0050, text=» LDK A7,NULL STORE NULL CHAR. «, t00=0x0052, t01=0x018e}
0x81b8…81e4 Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0053, t01=0x0024}
0x81e4…81fe Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERUP10 NO «, t00=0x0053, t01=0x0050}
0x81fe…8214 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERASE «, t00=0x0053, t01=0x006a}
0x8214…8226 Head {h00=0x000e, h01=0x0050, text=» RF ERUP90«, t00=0x0053, t01=0x0080}
0x8226…823a Head {h00=0x0010, h01=0x0050, text=»ERUP10 EQU *«, t00=0x0053, t01=0x0092}
0x823a…8256 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0053, t01=0x00a6}
0x8256…8276 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0053, t01=0x00c2}
0x8276…8290 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ERUP20 YES«, t00=0x0053, t01=0x00e2}
0x8290…82a2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0053, t01=0x00fc}
0x82a2…82b4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0053, t01=0x010e}
0x82b4…82c6 Head {h00=0x000e, h01=0x0050, text=» RB ERUP10«, t00=0x0053, t01=0x0120}
0x82c6…82da Head {h00=0x0010, h01=0x0050, text=»ERUP20 EQU *«, t00=0x0053, t01=0x0132}
0x82da…8302 Head {h00=0x0024, h01=0x0050, text=» LDR A9,A4 FIRST ATTRIBUTE POS. «, t00=0x0053, t01=0x0146}
0x8302…8318 Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x0053, t01=0x016e}
0x8318…832c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0053, t01=0x0184}
0x832c…8340 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0054, t01=0x0008}
0x8340…8354 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x0054, t01=0x001c}
0x8354…8366 Head {h00=0x000e, h01=0x0050, text=» RF ERUP47«, t00=0x0054, t01=0x0030}
0x8366…837a Head {h00=0x0010, h01=0x0050, text=»ERUP30 EQU *«, t00=0x0054, t01=0x0042}
0x837a…838c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0054, t01=0x0056}
0x838c…839e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0054, t01=0x0068}
0x839e…83cc Head {h00=0x002a, h01=0x0050, text=» CF A14,LINWRP CHECK IF LINWRP AROUND «, t00=0x0054, t01=0x007a}
0x83cc…83e8 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0054, t01=0x00a8}
0x83e8…8408 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0054, t01=0x00c4}
0x8408…8420 Head {h00=0x0014, h01=0x0050, text=» RB(L) ERUP30 NO«, t00=0x0054, t01=0x00e4}
0x8420…8434 Head {h00=0x0010, h01=0x0050, text=»ERUP45 EQU *«, t00=0x0054, t01=0x00fc}
0x8434…8454 Head {h00=0x001c, h01=0x0050, text=» CWR A9,A4 ALL SCANNED? «, t00=0x0054, t01=0x0110}
0x8454…846e Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUP70 YES «, t00=0x0054, t01=0x0130}
0x846e…8482 Head {h00=0x0010, h01=0x0050, text=»ERUP47 EQU *«, t00=0x0054, t01=0x014a}
0x8482…8494 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0054, t01=0x015e}
0x8494…84b2 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/20 PROTECTED?«, t00=0x0054, t01=0x0170}
0x84b2…84cc Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ERUP30 YES«, t00=0x0054, t01=0x018e}
0x84cc…84ee Head {h00=0x001e, h01=0x0050, text=» ANK A2,/FE RESET MDT-BIT «, t00=0x0055, t01=0x0018}
0x84ee…8510 Head {h00=0x001e, h01=0x0050, text=» SCR A2,A3 SAVE ATTRIBUTE «, t00=0x0055, t01=0x003a}
0x8510…8528 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0055, t01=0x005c}
0x8528…853a Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0055, t01=0x0074}
0x853a…8552 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0055, t01=0x0086}
0x8552…8564 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0055, t01=0x009e}
0x8564…8576 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0055, t01=0x00b0}
0x8576…858a Head {h00=0x0010, h01=0x0050, text=»ERUP50 EQU *«, t00=0x0055, t01=0x00c2}
0x858a…85b8 Head {h00=0x002a, h01=0x0050, text=» CF A14,LINWRP CHECK IF LINWRP AROUND «, t00=0x0055, t01=0x00d6}
0x85b8…85d4 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0055, t01=0x0104}
0x85d4…85f4 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x0055, t01=0x0120}
0x85f4…860e Head {h00=0x0016, h01=0x0050, text=» RB(NL) ERUP45 YES«, t00=0x0055, t01=0x0140}
0x860e…8640 Head {h00=0x002e, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR. IN VDU BUFFER «, t00=0x0055, t01=0x015a}
0x8640…8658 Head {h00=0x0014, h01=0x0050, text=» LC A1,LINFLG,A6«, t00=0x0055, t01=0x018c}
0x8658…866a Head {h00=0x000e, h01=0x0050, text=» ORK A1,1 «, t00=0x0056, t01=0x0014}
0x866a…8682 Head {h00=0x0014, h01=0x0050, text=» SC A1,LINFLG,A6«, t00=0x0056, t01=0x0026}
0x8682…8694 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0056, t01=0x003e}
0x8694…86a6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0056, t01=0x0050}
0x86a6…86b8 Head {h00=0x000e, h01=0x0050, text=» RB ERUP50«, t00=0x0056, t01=0x0062}
0x86b8…86cc Head {h00=0x0010, h01=0x0050, text=»ERUP70 EQU *«, t00=0x0056, t01=0x0074}
0x86cc…8704 Head {h00=0x0034, h01=0x0050, text=» CF A14,RDHOME TAB. UNPROTECTED FIRST ON SCREEN «, t00=0x0056, t01=0x0088}
0x8704…8718 Head {h00=0x0010, h01=0x0050, text=»ERUP90 EQU *«, t00=0x0056, t01=0x00c0}
0x8718…8728 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x00d4}
0x8728…8736 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x00e4}
0x8736…877e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0056, t01=0x00f2}
0x877e…8788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x013a}
0x8788…87d0 Head {h00=0x0044, h01=0x0050, text=»* ERASUA ERASE UNPROTECTED TO ADDRESS *«, t00=0x0056, t01=0x0144}
0x87d0…8818 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0056, t01=0x018c}
0x8818…8860 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0057, t01=0x0044}
0x8860…8874 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0057, t01=0x008c}
0x8874…887e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00a0}
0x887e…8898 Head {h00=0x0016, h01=0x0050, text=»* A1= STOP ADDRESS«, t00=0x0057, t01=0x00aa}
0x8898…88ac Head {h00=0x0010, h01=0x0050, text=»* A2= CHAR. «, t00=0x0057, t01=0x00c4}
0x88ac…88d0 Head {h00=0x0020, h01=0x0050, text=»* A3= ADDRESS IN VDU-BUFFER «, t00=0x0057, t01=0x00d8}
0x88d0…88ee Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0057, t01=0x00fc}
0x88ee…890e Head {h00=0x001c, h01=0x0050, text=»* A5= REL ATTRIBUTE POS.«, t00=0x0057, t01=0x011a}
0x890e…892c Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0057, t01=0x013a}
0x892c…8944 Head {h00=0x0014, h01=0x0050, text=»* A7= NULL CHAR.«, t00=0x0057, t01=0x0158}
0x8944…8964 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0057, t01=0x0170}
0x8964…897c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0057, t01=0x0190}
0x897c…8986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0018}
0x8986…89ce Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0058, t01=0x0022}
0x89ce…89e2 Head {h00=0x0010, h01=0x0050, text=»ERASUA EQU *«, t00=0x0058, t01=0x006a}
0x89e2…8a08 Head {h00=0x0022, h01=0x0050, text=» LDK A7,NULL STORE NULL CHAR. «, t00=0x0058, t01=0x007e}
0x8a08…8a1e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,BVDU «, t00=0x0058, t01=0x00a4}
0x8a1e…8a32 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x0058, t01=0x00ba}
0x8a32…8a50 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A4 BUFFER POS.«, t00=0x0058, t01=0x00ce}
0x8a50…8a7c Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0058, t01=0x00ec}
0x8a7c…8a96 Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA47 YES «, t00=0x0058, t01=0x0118}
0x8a96…8abe Head {h00=0x0024, h01=0x0050, text=» LDR A2,A6 GET CURRENT ATTRIBUTE«, t00=0x0058, t01=0x0132}
0x8abe…8ae8 Head {h00=0x0026, h01=0x0050, text=» CWR A5,A4 STANDING ON ATTRIBUTE? «, t00=0x0058, t01=0x015a}
0x8ae8…8b02 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ERUA10 NO «, t00=0x0058, t01=0x0184}
0x8b02…8b14 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0059, t01=0x000e}
0x8b14…8b26 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0059, t01=0x0020}
0x8b26…8b44 Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 ALL NULLED?«, t00=0x0059, t01=0x0032}
0x8b44…8b5e Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA70 YES «, t00=0x0059, t01=0x0050}
0x8b5e…8b88 Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0059, t01=0x006a}
0x8b88…8b9c Head {h00=0x0010, h01=0x0050, text=»ERUA10 EQU *«, t00=0x0059, t01=0x0094}
0x8b9c…8bc0 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/20 PROTECTED FIELD?«, t00=0x0059, t01=0x00a8}
0x8bc0…8bd8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) ERUA47 NO«, t00=0x0059, t01=0x00cc}
0x8bd8…8bec Head {h00=0x0010, h01=0x0050, text=»ERUA30 EQU *«, t00=0x0059, t01=0x00e4}
0x8bec…8c16 Head {h00=0x0026, h01=0x0050, text=» CF A14,WRAP CHECK IF WRAP AROUND «, t00=0x0059, t01=0x00f8}
0x8c16…8c38 Head {h00=0x001e, h01=0x0050, text=» CWR A1,A4 ALL NULLED? =2 «, t00=0x0059, t01=0x0122}
0x8c38…8c54 Head {h00=0x0018, h01=0x0050, text=» RF(E) ERUA70 YES =2«, t00=0x0059, t01=0x0144}
0x8c54…8c70 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x0059, t01=0x0160}
0x8c70…8c82 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0059, t01=0x017c}
0x8c82…8c94 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0059, t01=0x018e}
0x8c94…8ca4 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x005a, t01=0x0010}
0x8ca4…8cc4 Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x005a, t01=0x0020}
0x8cc4…8cdc Head {h00=0x0014, h01=0x0050, text=» RB(L) ERUA30 NO«, t00=0x005a, t01=0x0040}
0x8cdc…8cf0 Head {h00=0x0010, h01=0x0050, text=»ERUA45 EQU *«, t00=0x005a, t01=0x0058}
0x8cf0…8d02 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x005a, t01=0x006c}
0x8d02…8d22 Head {h00=0x001c, h01=0x0050, text=» ANKL A8,/20 PROTECTED? «, t00=0x005a, t01=0x007e}
0x8d22…8d3c Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ERUA30 YES«, t00=0x005a, t01=0x009e}
0x8d3c…8d50 Head {h00=0x0010, h01=0x0050, text=»ERUA47 EQU *«, t00=0x005a, t01=0x00b8}
0x8d50…8d64 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x005a, t01=0x00cc}
0x8d64…8d7a Head {h00=0x0012, h01=0x0050, text=» LDK A5,LLINE «, t00=0x005a, t01=0x00e0}
0x8d7a…8d8c Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005a, t01=0x00f6}
0x8d8c…8da0 Head {h00=0x0010, h01=0x0050, text=» CF A14,LINE«, t00=0x005a, t01=0x0108}
0x8da0…8db2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005a, t01=0x011c}
0x8db2…8dc4 Head {h00=0x000e, h01=0x0050, text=» RF ERUA60«, t00=0x005a, t01=0x012e}
0x8dc4…8dd8 Head {h00=0x0010, h01=0x0050, text=»ERUA50 EQU *«, t00=0x005a, t01=0x0140}
0x8dd8…8dea Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x005a, t01=0x0154}
0x8dea…8e00 Head {h00=0x0012, h01=0x0050, text=» CF A14,LINWRP«, t00=0x005a, t01=0x0166}
0x8e00…8e12 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A8«, t00=0x005a, t01=0x017c}
0x8e12…8e30 Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 ALL NULLED?«, t00=0x005a, t01=0x018e}
0x8e30…8e4a Head {h00=0x0016, h01=0x0050, text=» RF(E) ERUA70 YES «, t00=0x005b, t01=0x001c}
0x8e4a…8e5e Head {h00=0x0010, h01=0x0050, text=»ERUA60 EQU *«, t00=0x005b, t01=0x0036}
0x8e5e…8e7a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A3 GET CHAR.«, t00=0x005b, t01=0x004a}
0x8e7a…8e9a Head {h00=0x001c, h01=0x0050, text=» CCK A2,/8000 ATTRIBUTE?«, t00=0x005b, t01=0x0066}
0x8e9a…8eb6 Head {h00=0x0018, h01=0x0050, text=» RF(L) ERUA62 NO =3 «, t00=0x005b, t01=0x0086}
0x8eb6…8ed8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/20 PROTECTED? =3 «, t00=0x005b, t01=0x00a2}
0x8ed8…8ef6 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERUA30 YES =3 «, t00=0x005b, t01=0x00c4}
0x8ef6…8f0c Head {h00=0x0012, h01=0x0050, text=» RF ERUA64 =3«, t00=0x005b, t01=0x00e2}
0x8f0c…8f24 Head {h00=0x0014, h01=0x0050, text=»ERUA62 EQU * =3«, t00=0x005b, t01=0x00f8}
0x8f24…8f56 Head {h00=0x002e, h01=0x0050, text=» SCR A7,A3 STORE NULL CHAR, IN VDU-BUFFER «, t00=0x005b, t01=0x0110}
0x8f56…8f6e Head {h00=0x0014, h01=0x0050, text=» LC A8,LINFLG,A6«, t00=0x005b, t01=0x0142}
0x8f6e…8f80 Head {h00=0x000e, h01=0x0050, text=» ORKL A8,1«, t00=0x005b, t01=0x015a}
0x8f80…8f98 Head {h00=0x0014, h01=0x0050, text=» SC A8,LINFLG,A6«, t00=0x005b, t01=0x016c}
0x8f98…8fb0 Head {h00=0x0014, h01=0x0050, text=»ERUA64 EQU * =3«, t00=0x005b, t01=0x0184}
0x8fb0…8fc2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x005c, t01=0x000c}
0x8fc2…8fd4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005c, t01=0x001e}
0x8fd4…8fe6 Head {h00=0x000e, h01=0x0050, text=» RB ERUA50«, t00=0x005c, t01=0x0030}
0x8fe6…8ffa Head {h00=0x0010, h01=0x0050, text=»ERUA70 EQU *«, t00=0x005c, t01=0x0042}
0x8ffa…900a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005c, t01=0x0056}
0x900a…9018 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x0066}
0x9018…905a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x005c, t01=0x0074}
0x905a…909c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x005c, t01=0x00b6}
0x909c…90de Head {h00=0x003e, h01=0x0050, text=»* POSUNP MOVE CURSOR TO NEXT UNPR. POS. *«, t00=0x005c, t01=0x00f8}
0x90de…9120 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x005c, t01=0x013a}
0x9120…9162 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x005c, t01=0x017c}
0x9162…9176 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x005d, t01=0x002e}
0x9176…9180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0042}
0x9180…9196 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x005d, t01=0x004c}
0x9196…91b4 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x005d, t01=0x0062}
0x91b4…91d6 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x005d, t01=0x0080}
0x91d6…91f2 Head {h00=0x0018, h01=0x0050, text=»* A6= ATTRIBUTE CHAR«, t00=0x005d, t01=0x00a2}
0x91f2…9212 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x005d, t01=0x00be}
0x9212…922a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x005d, t01=0x00de}
0x922a…9234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00f6}
0x9234…9278 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x005d, t01=0x0100}
0x9278…928c Head {h00=0x0010, h01=0x0050, text=»POSUNP EQU *«, t00=0x005d, t01=0x0144}
0x928c…92b0 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x005d, t01=0x0158}
0x92b0…92ca Head {h00=0x0016, h01=0x0050, text=» RF(NG) POSU20 NO «, t00=0x005d, t01=0x017c}
0x92ca…92f0 Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 FIRST POS. ON SCREEN«, t00=0x005e, t01=0x0008}
0x92f0…9308 Head {h00=0x0014, h01=0x0050, text=» ST A4,PCURS,A11«, t00=0x005e, t01=0x002e}
0x9308…931c Head {h00=0x0010, h01=0x0050, text=»POSU20 EQU *«, t00=0x005e, t01=0x0046}
0x931c…932e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005e, t01=0x005a}
0x932e…935c Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x005e, t01=0x006c}
0x935c…937c Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x005e, t01=0x009a}
0x937c…9394 Head {h00=0x0014, h01=0x0050, text=» RF(L) POSU30 NO«, t00=0x005e, t01=0x00ba}
0x9394…93a6 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x005e, t01=0x00d2}
0x93a6…93ba Head {h00=0x0010, h01=0x0050, text=» ANK A7,/20 «, t00=0x005e, t01=0x00e4}
0x93ba…93de Head {h00=0x0020, h01=0x0050, text=» CWK A7,/20 PROTECTED? DKPT «, t00=0x005e, t01=0x00f8}
0x93de…93f8 Head {h00=0x0016, h01=0x0050, text=» RF(E) POSU25 YES «, t00=0x005e, t01=0x011c}
0x93f8…940a Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x005e, t01=0x0136}
0x940a…942c Head {h00=0x001e, h01=0x0050, text=» IM PCURS,A11 MOVE CURSOR «, t00=0x005e, t01=0x0148}
0x942c…943e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x005e, t01=0x016a}
0x943e…9462 Head {h00=0x0020, h01=0x0050, text=» CWK A4,LBVDU-1 WRAP AROUND?«, t00=0x005e, t01=0x017c}
0x9462…947c Head {h00=0x0016, h01=0x0050, text=» RF(NG) POSU23 NO «, t00=0x005f, t01=0x0010}
0x947c…948e Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x005f, t01=0x002a}
0x948e…94a2 Head {h00=0x0010, h01=0x0050, text=»POSU23 EQU *«, t00=0x005f, t01=0x003c}
0x94a2…94d0 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x005f, t01=0x0050}
0x94d0…94ee Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x005f, t01=0x007e}
0x94ee…9510 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x005f, t01=0x009c}
0x9510…9522 Head {h00=0x000e, h01=0x0050, text=» RF POSU30«, t00=0x005f, t01=0x00be}
0x9522…9536 Head {h00=0x0010, h01=0x0050, text=»POSU25 EQU *«, t00=0x005f, t01=0x00d0}
0x9536…9564 Head {h00=0x002a, h01=0x0050, text=» CF A14,TAB TAB NEXT UNPROTECTED FIELD«, t00=0x005f, t01=0x00e4}
0x9564…9578 Head {h00=0x0010, h01=0x0050, text=»POSU30 EQU *«, t00=0x005f, t01=0x0112}
0x9578…9592 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x005f, t01=0x0126}
0x9592…95aa Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A8 «, t00=0x005f, t01=0x0140}
0x95aa…95c8 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/FF LINE POS. «, t00=0x005f, t01=0x0158}
0x95c8…95ee Head {h00=0x0022, h01=0x0050, text=» SUK A1,81 LAST POS. ON LINE? «, t00=0x005f, t01=0x0176}
0x95ee…9608 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) POSU90 NO «, t00=0x0060, t01=0x000c}
0x9608…9626 Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 REQ. LENGTH «, t00=0x0060, t01=0x0026}
0x9626…9648 Head {h00=0x001e, h01=0x0050, text=» CF A14,DISCHA SET CURSOR «, t00=0x0060, t01=0x0044}
0x9648…965c Head {h00=0x0010, h01=0x0050, text=»POSU90 EQU *«, t00=0x0060, t01=0x0066}
0x965c…966c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x007a}
0x966c…967a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x008a}
0x967a…96be Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0060, t01=0x0098}
0x96be…9702 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0060, t01=0x00dc}
0x9702…9746 Head {h00=0x0040, h01=0x0050, text=»* DISID DISPLAY HARDCOPY TASKID *«, t00=0x0060, t01=0x0120}
0x9746…978a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0060, t01=0x0164}
0x978a…97ce Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x0018}
0x97ce…97ee Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x0061, t01=0x005c}
0x97ee…97f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x007c}
0x97f8…9802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0086}
0x9802…9846 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0061, t01=0x0090}
0x9846…985a Head {h00=0x0010, h01=0x0050, text=»DISID EQU * «, t00=0x0061, t01=0x00d4}
0x985a…9874 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0061, t01=0x00e8}
0x9874…989e Head {h00=0x0026, h01=0x0050, text=» CF A14,SPACES SPACE IN ECB BUFFER«, t00=0x0061, t01=0x0102}
0x989e…98c8 Head {h00=0x0026, h01=0x0050, text=» LD A3,6,A13 GET COMMON BLOCK BASE«, t00=0x0061, t01=0x012c}
0x98c8…98e8 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A5 SAVE TASK ID «, t00=0x0061, t01=0x0156}
0x98e8…98fe Head {h00=0x0012, h01=0x0050, text=» LDK A5,IDTEXT«, t00=0x0061, t01=0x0176}
0x98fe…9922 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A3 POINT ON IDBUFFER«, t00=0x0061, t01=0x018c}
0x9922…9934 Head {h00=0x000e, h01=0x0050, text=» ADK A6,46«, t00=0x0062, t01=0x0020}
0x9934…9946 Head {h00=0x000e, h01=0x0050, text=» LDK A3,6 «, t00=0x0062, t01=0x0032}
0x9946…996a Head {h00=0x0020, h01=0x0050, text=» ANK A4,1 PRINTER OPERABLE? «, t00=0x0062, t01=0x0044}
0x996a…9984 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DISI10 YES «, t00=0x0062, t01=0x0068}
0x9984…9996 Head {h00=0x000e, h01=0x0050, text=» ADK A3,16«, t00=0x0062, t01=0x0082}
0x9996…99aa Head {h00=0x0010, h01=0x0050, text=»DISI10 EQU *«, t00=0x0062, t01=0x0094}
0x99aa…99d0 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 MOVE INTO ECBBUFFER «, t00=0x0062, t01=0x00a8}
0x99d0…99f0 Head {h00=0x001c, h01=0x0050, text=» RF(N) DISI20 COMPLETED «, t00=0x0062, t01=0x00ce}
0x99f0…9a04 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x0062, t01=0x00ee}
0x9a04…9a16 Head {h00=0x000e, h01=0x0050, text=» STR A2,A6«, t00=0x0062, t01=0x0102}
0x9a16…9a28 Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0062, t01=0x0114}
0x9a28…9a3a Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0062, t01=0x0126}
0x9a3a…9a4c Head {h00=0x000e, h01=0x0050, text=» RB DISI10«, t00=0x0062, t01=0x0138}
0x9a4c…9a60 Head {h00=0x0010, h01=0x0050, text=»DISI20 EQU *«, t00=0x0062, t01=0x014a}
0x9a60…9a78 Head {h00=0x0014, h01=0x0050, text=» LD A6,ECBBA,A8 «, t00=0x0062, t01=0x015e}
0x9a78…9aaa Head {h00=0x002e, h01=0x0050, text=» ST A1,ECBBA+52,A6 SAVE TASK ID IN BUFFER «, t00=0x0062, t01=0x0176}
0x9aaa…9ad4 Head {h00=0x0026, h01=0x0050, text=» LC A2,X'1F' HIGH INTENSITY CHAR. «, t00=0x0063, t01=0x0018}
0x9ad4…9aee Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBBA+45,A6«, t00=0x0063, t01=0x0042}
0x9aee…9b1a Head {h00=0x0028, h01=0x0050, text=» LDKL A10,1 INDICATE NOT ONLY SPACES«, t00=0x0063, t01=0x005c}
0x9b1a…9b3e Head {h00=0x0020, h01=0x0050, text=» LDKL A9,1 1 INTENSITY CHAR.«, t00=0x0063, t01=0x0088}
0x9b3e…9b6a Head {h00=0x0028, h01=0x0050, text=» LDKL A2,X'1801' DISPLAY ON LAST ROW«, t00=0x0063, t01=0x00ac}
0x9b6a…9b82 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0063, t01=0x00d8}
0x9b82…9bac Head {h00=0x0026, h01=0x0050, text=» CF A14,DISLIN DISPLAY IDENT TEXT «, t00=0x0063, t01=0x00f0}
0x9bac…9bbc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0063, t01=0x011a}
0x9bbc…9bca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x012a}
0x9bca…9c10 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0063, t01=0x0138}
0x9c10…9c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x017e}
0x9c1a…9c3e Head {h00=0x0020, h01=0x0050, text=»* DISSTA DISPLAY STATISTICS «, t00=0x0063, t01=0x0188}
0x9c3e…9c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x001c}
0x9c48…9c90 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0064, t01=0x0026}
0x9c90…9caa Head {h00=0x0016, h01=0x0050, text=»* REGISTERS«, t00=0x0064, t01=0x006e}
0x9caa…9cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0088}
0x9cb4…9cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0092}
0x9cbe…9d06 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0064, t01=0x009c}
0x9d06…9d1a Head {h00=0x0010, h01=0x0050, text=»DISSTA EQU *«, t00=0x0064, t01=0x00e4}
0x9d1a…9d2e Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0064, t01=0x00f8}
0x9d2e…9d48 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0064, t01=0x010c}
0x9d48…9d6e Head {h00=0x0022, h01=0x0050, text=» LDK A1,STALIN WHERE TO START «, t00=0x0064, t01=0x0126}
0x9d6e…9d80 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0064, t01=0x014c}
0x9d80…9d92 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0064, t01=0x015e}
0x9d92…9dbc Head {h00=0x0026, h01=0x0050, text=» ORR A2,A1 FIRST POS. ON THAT LINE«, t00=0x0064, t01=0x0170}
0x9dbc…9dd4 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0065, t01=0x000a}
0x9dd4…9dfc Head {h00=0x0024, h01=0x0050, text=» CF A14,SPACES CLEAN THE BUFFER «, t00=0x0065, t01=0x0022}
0x9dfc…9e1a Head {h00=0x001a, h01=0x0050, text=» LDK A5,0 RESET INDEX «, t00=0x0065, t01=0x004a}
0x9e1a…9e2e Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0065, t01=0x0068}
0x9e2e…9e52 Head {h00=0x0020, h01=0x0050, text=» ADK A3,STATXT POINT TO TEXT«, t00=0x0065, t01=0x007c}
0x9e52…9e66 Head {h00=0x0010, h01=0x0050, text=»DISS10 EQU *«, t00=0x0065, t01=0x00a0}
0x9e66…9e88 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/1F HIGH INTENSITY«, t00=0x0065, t01=0x00b4}
0x9e88…9e9a Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0065, t01=0x00d6}
0x9e9a…9eac Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0065, t01=0x00e8}
0x9eac…9ebe Head {h00=0x000e, h01=0x0050, text=» LDKL A9,1«, t00=0x0065, t01=0x00fa}
0x9ebe…9eee Head {h00=0x002c, h01=0x0050, text=» LDK A1,TXTSIZ GET SIZE OF TEXT PER LINE«, t00=0x0065, t01=0x010c}
0x9eee…9f1a Head {h00=0x0028, h01=0x0050, text=» CF A14,MOVTXT MOVE IT IN TO BUFFER «, t00=0x0065, t01=0x013c}
0x9f1a…9f42 Head {h00=0x0024, h01=0x0050, text=» ADK A6,5+STAPOS MAKE SOME ROOM «, t00=0x0065, t01=0x0168}
0x9f42…9f5a Head {h00=0x0014, h01=0x0050, text=» LC A1,INDEX,A5 «, t00=0x0065, t01=0x0190}
0x9f5a…9f6c Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0066, t01=0x0018}
0x9f6c…9f94 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A12 POINT OUT STAT VALUE«, t00=0x0066, t01=0x002a}
0x9f94…9fa6 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0066, t01=0x0052}
0x9fa6…9fcc Head {h00=0x0022, h01=0x0050, text=» CF A14,CONASC MAKE IT VISABLE«, t00=0x0066, t01=0x0064}
0x9fcc…9fde Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0066, t01=0x008a}
0x9fde…9ff0 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0066, t01=0x009c}
0x9ff0…a002 Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0066, t01=0x00ae}
0xa002…a018 Head {h00=0x0012, h01=0x0050, text=» CF A14,CONASC«, t00=0x0066, t01=0x00c0}
0xa018…a02a Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0066, t01=0x00d6}
0xa02a…a03c Head {h00=0x000e, h01=0x0050, text=» ORR A2,A4«, t00=0x0066, t01=0x00e8}
0xa03c…a050 Head {h00=0x0010, h01=0x0050, text=» SC A2,+1,A6«, t00=0x0066, t01=0x00fa}
0xa050…a062 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0066, t01=0x010e}
0xa062…a074 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0066, t01=0x0120}
0xa074…a086 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0066, t01=0x0132}
0xa086…a09a Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0066, t01=0x0144}
0xa09a…a0ba Head {h00=0x001c, h01=0x0050, text=» CF A14,CONASC AS ABOVE «, t00=0x0066, t01=0x0158}
0xa0ba…a0cc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0066, t01=0x0178}
0xa0cc…a0e0 Head {h00=0x0010, h01=0x0050, text=» LC A2,+1,A1«, t00=0x0066, t01=0x018a}
0xa0e0…a0f2 Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0067, t01=0x000e}
0xa0f2…a108 Head {h00=0x0012, h01=0x0050, text=» CF A14,CONASC«, t00=0x0067, t01=0x0020}
0xa108…a11a Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0067, t01=0x0036}
0xa11a…a12c Head {h00=0x000e, h01=0x0050, text=» ORR A2,A4«, t00=0x0067, t01=0x0048}
0xa12c…a140 Head {h00=0x0010, h01=0x0050, text=» SC A2,+1,A6«, t00=0x0067, t01=0x005a}
0xa140…a152 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0067, t01=0x006e}
0xa152…a164 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A6«, t00=0x0067, t01=0x0080}
0xa164…a188 Head {h00=0x0020, h01=0x0050, text=» LDKL A10,1 NOT ONLY SPACES «, t00=0x0067, t01=0x0092}
0xa188…a1ac Head {h00=0x0020, h01=0x0050, text=» CF A14,DISLIN DISPLAY STAT.«, t00=0x0067, t01=0x00b6}
0xa1ac…a1d2 Head {h00=0x0022, h01=0x0050, text=» CWK A5,NUMLIN LIMIT REACHED? «, t00=0x0067, t01=0x00da}
0xa1d2…a1ec Head {h00=0x0016, h01=0x0050, text=» RB(NE) DISS10 NO «, t00=0x0067, t01=0x0100}
0xa1ec…a1f8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x011a}
0xa1f8…a208 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x0126}
0xa208…a21c Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0067, t01=0x0136}
0xa21c…a22a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x014a}
0xa22a…a26e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0067, t01=0x0158}
0xa26e…a278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x000c}
0xa278…a292 Head {h00=0x0016, h01=0x0050, text=»* MOVTXT MOVE TEXT«, t00=0x0068, t01=0x0016}
0xa292…a29c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0030}
0xa29c…a2e0 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0068, t01=0x003a}
0xa2e0…a2fa Head {h00=0x0016, h01=0x0050, text=»* REGISTERS «, t00=0x0068, t01=0x007e}
0xa2fa…a304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0098}
0xa304…a30e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00a2}
0xa30e…a350 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0068, t01=0x00ac}
0xa350…a358 Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x00ee}
0xa358…a36c Head {h00=0x0010, h01=0x0050, text=»MOVTXT EQU *«, t00=0x0068, t01=0x00f6}
0xa36c…a37e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0068, t01=0x010a}
0xa37e…a390 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0068, t01=0x011c}
0xa390…a3a8 Head {h00=0x0014, h01=0x0050, text=» SC A2,STAPOS,A6«, t00=0x0068, t01=0x012e}
0xa3a8…a3ba Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0068, t01=0x0146}
0xa3ba…a3cc Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0068, t01=0x0158}
0xa3cc…a3e2 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) MOVTXT«, t00=0x0068, t01=0x016a}
0xa3e2…a3f2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0068, t01=0x0180}
0xa3f2…a400 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x0190}
0xa400…a442 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x000e}
0xa442…a44c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0050}
0xa44c…a46e Head {h00=0x001e, h01=0x0050, text=»* CONASC CONVERT TO ASCII «, t00=0x0069, t01=0x005a}
0xa46e…a478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x007c}
0xa478…a4b8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0069, t01=0x0086}
0xa4b8…a4ce Head {h00=0x0012, h01=0x0050, text=»* REGISTERS«, t00=0x0069, t01=0x00c6}
0xa4ce…a4d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00dc}
0xa4d8…a4e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00e6}
0xa4e2…a522 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0069, t01=0x00f0}
0xa522…a536 Head {h00=0x0010, h01=0x0050, text=»CONASC EQU *«, t00=0x0069, t01=0x0130}
0xa536…a54a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0F «, t00=0x0069, t01=0x0144}
0xa54a…a560 Head {h00=0x0012, h01=0x0050, text=» CCK A2,/0909 «, t00=0x0069, t01=0x0158}
0xa560…a576 Head {h00=0x0012, h01=0x0050, text=» RF(G) CONA10 «, t00=0x0069, t01=0x016e}
0xa576…a58a Head {h00=0x0010, h01=0x0050, text=» ORK A2,/30 «, t00=0x0069, t01=0x0184}
0xa58a…a59c Head {h00=0x000e, h01=0x0050, text=» RF CONA90«, t00=0x006a, t01=0x0008}
0xa59c…a5b0 Head {h00=0x0010, h01=0x0050, text=»CONA10 EQU *«, t00=0x006a, t01=0x001a}
0xa5b0…a5c4 Head {h00=0x0010, h01=0x0050, text=» ADK A2,/37 «, t00=0x006a, t01=0x002e}
0xa5c4…a5d8 Head {h00=0x0010, h01=0x0050, text=»CONA90 EQU *«, t00=0x006a, t01=0x0042}
0xa5d8…a5e8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006a, t01=0x0056}
0xa5e8…a5f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x0066}
0xa5f4…a602 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x0072}
0xa602…a644 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006a, t01=0x0080}
0xa644…a686 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x006a, t01=0x00c2}
0xa686…a6c8 Head {h00=0x003e, h01=0x0050, text=»* ATMASF SEARCH ATTRIBUTE FORWARD * «, t00=0x006a, t01=0x0104}
0xa6c8…a70a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x006a, t01=0x0146}
0xa70a…a74c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006a, t01=0x0188}
0xa74c…a760 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006b, t01=0x003a}
0xa760…a76a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x004e}
0xa76a…a796 Head {h00=0x0028, h01=0x0050, text=»* A1= AT ENTRY START SEARCH ADDRESS «, t00=0x006b, t01=0x0058}
0xa796…a7ac Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x006b, t01=0x0084}
0xa7ac…a7c2 Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006b, t01=0x009a}
0xa7c2…a7e0 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006b, t01=0x00b0}
0xa7e0…a802 Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006b, t01=0x00ce}
0xa802…a820 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006b, t01=0x00f0}
0xa820…a836 Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006b, t01=0x010e}
0xa836…a84c Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006b, t01=0x0124}
0xa84c…a864 Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006b, t01=0x013a}
0xa864…a884 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006b, t01=0x0152}
0xa884…a89c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006b, t01=0x0172}
0xa89c…a8a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x018a}
0xa8a6…a8e8 (108, 0, 400) Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x006c, t01=0x0004}
0xa8e8…a8fc Head {h00=0x0010, h01=0x0050, text=»ATMASF EQU *«, t00=0x006c, t01=0x0046}
0xa8fc…a914 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x006c, t01=0x005a}
0xa914…a928 Head {h00=0x0010, h01=0x0050, text=»ASF100 EQU *«, t00=0x006c, t01=0x0072}
0xa928…a93a Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x006c, t01=0x0086}
0xa93a…a95e Head {h00=0x0020, h01=0x0050, text=» CWK A1,LBVDU-1 WRAP AROUND?«, t00=0x006c, t01=0x0098}
0xa95e…a978 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ASF200 NO «, t00=0x006c, t01=0x00bc}
0xa978…a99e Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 FIRST POS. ON SCREEN«, t00=0x006c, t01=0x00d6}
0xa99e…a9b2 Head {h00=0x0010, h01=0x0050, text=»ASF200 EQU *«, t00=0x006c, t01=0x00fc}
0xa9b2…a9e0 Head {h00=0x002a, h01=0x0050, text=» CW A1,REGI,A11 WHOLE SCREEN SEARCHED?«, t00=0x006c, t01=0x0110}
0xa9e0…a9fa Head {h00=0x0016, h01=0x0050, text=» RF(E) ASF900 YES «, t00=0x006c, t01=0x013e}
0xa9fa…aa28 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006c, t01=0x0158}
0xaa28…aa48 Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x006c, t01=0x0186}
0xaa48…aa60 Head {h00=0x0014, h01=0x0050, text=» RB(L) ASF100 NO«, t00=0x006d, t01=0x0016}
0xaa60…aa72 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x006d, t01=0x002e}
0xaa72…aa84 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x006d, t01=0x0040}
0xaa84…aab6 Head {h00=0x002e, h01=0x0050, text=» CF A14,STOINF SAVE NEW SCREEN INFORMATION«, t00=0x006d, t01=0x0052}
0xaab6…aaca Head {h00=0x0010, h01=0x0050, text=»ASF900 EQU *«, t00=0x006d, t01=0x0084}
0xaaca…aada Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x0098}
0xaada…aae8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x00a8}
0xaae8…ab38 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x006d, t01=0x00b6}
0xab38…ab88 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x006d, t01=0x0106}
0xab88…abd8 Head {h00=0x004c, h01=0x0050, text=»* ATMASB SEARCH ATTRIBUTE BACKWARD * «, t00=0x006d, t01=0x0156}
0xabd8…ac28 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x006e, t01=0x0016}
0xac28…ac78 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x006e, t01=0x0066}
0xac78…ac8c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x006e, t01=0x00b6}
0xac8c…ac96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00ca}
0xac96…acbe Head {h00=0x0024, h01=0x0050, text=»* A1= ATENTRY START SEARCH ADDR.«, t00=0x006e, t01=0x00d4}
0xacbe…acd4 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x006e, t01=0x00fc}
0xacd4…acea Head {h00=0x0012, h01=0x0050, text=»* A3= RESERVED«, t00=0x006e, t01=0x0112}
0xacea…ad08 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x006e, t01=0x0128}
0xad08…ad2a Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x006e, t01=0x0146}
0xad2a…ad48 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x006e, t01=0x0168}
0xad48…ad5e Head {h00=0x0012, h01=0x0050, text=»* A8= RESERVED«, t00=0x006e, t01=0x0186}
0xad5e…ad74 Head {h00=0x0012, h01=0x0050, text=»* A9= RESERVED«, t00=0x006f, t01=0x000c}
0xad74…ad8c Head {h00=0x0014, h01=0x0050, text=»* A10= RESERVED «, t00=0x006f, t01=0x0022}
0xad8c…adac Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x006f, t01=0x003a}
0xadac…adc4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x006f, t01=0x005a}
0xadc4…adce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0072}
0xadce…ae1e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x006f, t01=0x007c}
0xae1e…ae32 Head {h00=0x0010, h01=0x0050, text=»ATMASB EQU *«, t00=0x006f, t01=0x00cc}
0xae32…ae4a Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x006f, t01=0x00e0}
0xae4a…ae5e Head {h00=0x0010, h01=0x0050, text=»ASB100 EQU *«, t00=0x006f, t01=0x00f8}
0xae5e…ae8c Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR. IN VDU BUFFER«, t00=0x006f, t01=0x010c}
0xae8c…aeac Head {h00=0x001c, h01=0x0050, text=» CCK A7,/8000 ATTRIBUTE?«, t00=0x006f, t01=0x013a}
0xaeac…aec6 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ASB300 YES«, t00=0x006f, t01=0x015a}
0xaec6…aed8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006f, t01=0x0174}
0xaed8…aefe Head {h00=0x0022, h01=0x0050, text=» RF(NN) ASB200 NOT WRAP AROUND«, t00=0x006f, t01=0x0186}
0xaefe…af2a Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LBVDU-1 LAST POS. ON SCREEN«, t00=0x0070, t01=0x001c}
0xaf2a…af3e Head {h00=0x0010, h01=0x0050, text=»ASB200 EQU *«, t00=0x0070, t01=0x0048}
0xaf3e…af6c Head {h00=0x002a, h01=0x0050, text=» CW A1,REGI,A11 WHOLE SCREEN SEARCHED?«, t00=0x0070, t01=0x005c}
0xaf6c…af86 Head {h00=0x0016, h01=0x0050, text=» RF(E) ASB900 YES «, t00=0x0070, t01=0x008a}
0xaf86…af98 Head {h00=0x000e, h01=0x0050, text=» RB ASB100«, t00=0x0070, t01=0x00a4}
0xaf98…afac Head {h00=0x0010, h01=0x0050, text=»ASB300 EQU *«, t00=0x0070, t01=0x00b6}
0xafac…afbe Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0070, t01=0x00ca}
0xafbe…afd0 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0070, t01=0x00dc}
0xafd0…affe Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x0070, t01=0x00ee}
0xaffe…b012 Head {h00=0x0010, h01=0x0050, text=»ASB900 EQU *«, t00=0x0070, t01=0x011c}
0xb012…b022 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0130}
0xb022…b030 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0140}
0xb030…b078 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0070, t01=0x014e}
0xb078…b0c0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0071, t01=0x0008}
0xb0c0…b108 Head {h00=0x0044, h01=0x0050, text=»* SNULL SEARCH FIRST NULL CHAR. * «, t00=0x0071, t01=0x0050}
0xb108…b150 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0071, t01=0x0098}
0xb150…b198 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0071, t01=0x00e0}
0xb198…b1ac Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0071, t01=0x0128}
0xb1ac…b1b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x013c}
0xb1b6…b1ec Head {h00=0x0032, h01=0x0050, text=»* A1= AT RETURN 1=NULL FOUND, 2=NO NULL FOUND«, t00=0x0071, t01=0x0146}
0xb1ec…b202 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x0071, t01=0x017c}
0xb202…b248 (114, 0, 400) Head {h00=0x0042, h01=0x0050, text=»* A3= AT ENTRY LAST SEARCH ADDR., AT RETURN NULL ADDR. IF ANY «, t00=0x0072, t01=0x0004}
0xb248…b266 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0072, t01=0x004a}
0xb266…b27c Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0072, t01=0x0068}
0xb27c…b292 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0072, t01=0x007e}
0xb292…b2b2 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0072, t01=0x0094}
0xb2b2…b2ca Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0072, t01=0x00b4}
0xb2ca…b2d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00cc}
0xb2d4…b31c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0072, t01=0x00d6}
0xb31c…b330 Head {h00=0x0010, h01=0x0050, text=»SNULL EQU * «, t00=0x0072, t01=0x011e}
0xb330…b342 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0072, t01=0x0132}
0xb342…b356 Head {h00=0x0010, h01=0x0050, text=»SNU100 EQU *«, t00=0x0072, t01=0x0144}
0xb356…b368 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0072, t01=0x0158}
0xb368…b38c Head {h00=0x0020, h01=0x0050, text=» CWK A1,LBVDU-1 WRAP AROUND?«, t00=0x0072, t01=0x016a}
0xb38c…b3a6 Head {h00=0x0016, h01=0x0050, text=» RF(NG) SNU200 NO «, t00=0x0072, t01=0x018e}
0xb3a6…b3ca Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 FIRST SCREEN POS. «, t00=0x0073, t01=0x0018}
0xb3ca…b3de Head {h00=0x0010, h01=0x0050, text=»SNU200 EQU *«, t00=0x0073, t01=0x003c}
0xb3de…b3fe Head {h00=0x001c, h01=0x0050, text=» CWR A1,A3 ALL SEARCHED?«, t00=0x0073, t01=0x0050}
0xb3fe…b418 Head {h00=0x0016, h01=0x0050, text=» RF(E) SNU300 YES «, t00=0x0073, t01=0x0070}
0xb418…b446 Head {h00=0x002a, h01=0x0050, text=» CF A14,GETVDU GET CHAR IN VDU BUFFER «, t00=0x0073, t01=0x008a}
0xb446…b466 Head {h00=0x001c, h01=0x0050, text=» CCK A7,NULL NULL CHAR? «, t00=0x0073, t01=0x00b8}
0xb466…b480 Head {h00=0x0016, h01=0x0050, text=» RB(NE) SNU100 NO «, t00=0x0073, t01=0x00d8}
0xb480…b492 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0073, t01=0x00f2}
0xb492…b4b8 Head {h00=0x0022, h01=0x0050, text=» LDK A1,1 INDICATE NULL FOUND «, t00=0x0073, t01=0x0104}
0xb4b8…b4ca Head {h00=0x000e, h01=0x0050, text=» RF SNU900«, t00=0x0073, t01=0x012a}
0xb4ca…b4de Head {h00=0x0010, h01=0x0050, text=»SNU300 EQU *«, t00=0x0073, t01=0x013c}
0xb4de…b4f0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0073, t01=0x0150}
0xb4f0…b504 Head {h00=0x0010, h01=0x0050, text=»SNU900 EQU *«, t00=0x0073, t01=0x0162}
0xb504…b514 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x0176}
0xb514…b522 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0186}
0xb522…b566 (116, 0, 400) Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0074, t01=0x0004}
0xb566…b5aa Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0048}
0xb5aa…b5ee Head {h00=0x0040, h01=0x0050, text=»* WCHAR DISPLAY CHAR. AND CURSOR *«, t00=0x0074, t01=0x008c}
0xb5ee…b632 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x00d0}
0xb632…b676 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0074, t01=0x0114}
0xb676…b68a Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0074, t01=0x0158}
0xb68a…b694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x016c}
0xb694…b6aa Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0074, t01=0x0176}
0xb6aa…b6c8 Head {h00=0x001a, h01=0x0050, text=»* A4= REL. CURSOR POS.«, t00=0x0074, t01=0x018c}
0xb6c8…b6ea Head {h00=0x001e, h01=0x0050, text=»* A5= REL. ATTRIBUTE POS. «, t00=0x0075, t01=0x001a}
0xb6ea…b708 Head {h00=0x001a, h01=0x0050, text=»* A6= ATTRIBUTE CHAR. «, t00=0x0075, t01=0x003c}
0xb708…b71e Head {h00=0x0012, h01=0x0050, text=»* A8= VDU-ECB «, t00=0x0075, t01=0x005a}
0xb71e…b73e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0075, t01=0x0070}
0xb73e…b756 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0075, t01=0x0090}
0xb756…b760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00a8}
0xb760…b7a6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0075, t01=0x00b2}
0xb7a6…b7ba Head {h00=0x0010, h01=0x0050, text=»WCHAR EQU * «, t00=0x0075, t01=0x00f8}
0xb7ba…b7d4 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x0075, t01=0x010c}
0xb7d4…b7fc Head {h00=0x0024, h01=0x0050, text=» LDK A1,/1E LOW INTENSITY CHAR. «, t00=0x0075, t01=0x0126}
0xb7fc…b80e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0075, t01=0x014e}
0xb80e…b832 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/8 STANDARD DISPLAY?«, t00=0x0075, t01=0x0160}
0xb832…b84c Head {h00=0x0016, h01=0x0050, text=» RF(Z) WCH300 YES «, t00=0x0075, t01=0x0184}
0xb84c…b85e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0076, t01=0x000e}
0xb85e…b886 Head {h00=0x0024, h01=0x0050, text=» ANK A7,/4 INTENSIFIED DISPLAY? «, t00=0x0076, t01=0x0020}
0xb886…b8a0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) WCH200 NO «, t00=0x0076, t01=0x0048}
0xb8a0…b8c8 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/1F HIGH INTENSITY CHAR.«, t00=0x0076, t01=0x0062}
0xb8c8…b8da Head {h00=0x000e, h01=0x0050, text=» RF WCH300«, t00=0x0076, t01=0x008a}
0xb8da…b8ee Head {h00=0x0010, h01=0x0050, text=»WCH200 EQU *«, t00=0x0076, t01=0x009c}
0xb8ee…b90c Head {h00=0x001a, h01=0x0050, text=» LDK A2,/20 NONDISPLAY«, t00=0x0076, t01=0x00b0}
0xb90c…b920 Head {h00=0x0010, h01=0x0050, text=»WCH300 EQU *«, t00=0x0076, t01=0x00ce}
0xb920…b94a Head {h00=0x0026, h01=0x0050, text=» LD A7,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0076, t01=0x00e2}
0xb94a…b972 Head {h00=0x0024, h01=0x0050, text=» SC A1,2,A7 SAVE INTENSITY CHAR.«, t00=0x0076, t01=0x010c}
0xb972…b9a0 Head {h00=0x002a, h01=0x0050, text=» CF A14,RFMDUP REPLACE FM OR DUP CHAR.«, t00=0x0076, t01=0x0134}
0xb9a0…b9ce Head {h00=0x002a, h01=0x0050, text=» SC A2,3,A7 STORE CHAR. IN VDU BUFFER «, t00=0x0076, t01=0x0162}
0xb9ce…b9ec Head {h00=0x001a, h01=0x0050, text=» LDK A1,4 REQ. LENGTH «, t00=0x0076, t01=0x0190}
0xb9ec…ba0a Head {h00=0x001a, h01=0x0050, text=» CF A14,DISCHA DISPLAY«, t00=0x0077, t01=0x001e}
0xba0a…ba1c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0077, t01=0x003c}
0xba1c…ba32 Head {h00=0x0012, h01=0x0050, text=» IM PCURS,A11 «, t00=0x0077, t01=0x004e}
0xba32…ba5e Head {h00=0x0028, h01=0x0050, text=» CWK A5,LBVDU+1 UNFORMATTED SCREEN? «, t00=0x0077, t01=0x0064}
0xba5e…ba78 Head {h00=0x0016, h01=0x0050, text=» RF(E) WCH900 YES «, t00=0x0077, t01=0x0090}
0xba78…baa4 Head {h00=0x0028, h01=0x0050, text=» ORK A6,1 SET MDT-BITS IN ATTRIBUTE «, t00=0x0077, t01=0x00aa}
0xbaa4…babe Head {h00=0x0016, h01=0x0050, text=» ST A6,ATTRIB,A11 «, t00=0x0077, t01=0x00d6}
0xbabe…bad0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0077, t01=0x00f0}
0xbad0…bae2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A6«, t00=0x0077, t01=0x0102}
0xbae2…bb12 Head {h00=0x002c, h01=0x0050, text=» CF A14,STOVDU STORE CHAR. IN VDU BUFFER«, t00=0x0077, t01=0x0114}
0xbb12…bb26 Head {h00=0x0010, h01=0x0050, text=»WCH900 EQU *«, t00=0x0077, t01=0x0144}
0xbb26…bb36 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0077, t01=0x0158}
0xbb36…bb44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x0168}
0xbb44…bb86 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0077, t01=0x0176}
0xbb86…bbc8 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0078, t01=0x0028}
0xbbc8…bc0a Head {h00=0x003e, h01=0x0050, text=»* RFMDUP REPLACE FM OR DUP CHAR IF PRESENT * «, t00=0x0078, t01=0x006a}
0xbc0a…bc4c Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0078, t01=0x00ac}
0xbc4c…bc8e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0078, t01=0x00ee}
0xbc8e…bca2 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0078, t01=0x0130}
0xbca2…bcb8 Head {h00=0x0012, h01=0x0050, text=»* A2= KEY-CHAR«, t00=0x0078, t01=0x0144}
0xbcb8…bcce Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x0078, t01=0x015a}
0xbcce…bce4 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0078, t01=0x0170}
0xbce4…bcfa Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0078, t01=0x0186}
0xbcfa…bd1a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0079, t01=0x000c}
0xbd1a…bd32 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0079, t01=0x002c}
0xbd32…bd3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0044}
0xbd3c…bd74 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0079, t01=0x004e}
0xbd74…bd88 Head {h00=0x0010, h01=0x0050, text=»RFMDUP EQU *«, t00=0x0079, t01=0x0086}
0xbd88…bda8 Head {h00=0x001c, h01=0x0050, text=» CWK A2,DUPCH DUP CHAR? «, t00=0x0079, t01=0x009a}
0xbda8…bdc2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RFMD10 NO «, t00=0x0079, t01=0x00ba}
0xbdc2…bdde Head {h00=0x0018, h01=0x0050, text=» LDK A2,/2A REPLACE «, t00=0x0079, t01=0x00d4}
0xbdde…bdf0 Head {h00=0x000e, h01=0x0050, text=» RF RFMD90«, t00=0x0079, t01=0x00f0}
0xbdf0…be04 Head {h00=0x0010, h01=0x0050, text=»RFMD10 EQU *«, t00=0x0079, t01=0x0102}
0xbe04…be22 Head {h00=0x001a, h01=0x0050, text=» CWK A2,FMCH FM CHAR? «, t00=0x0079, t01=0x0116}
0xbe22…be3c Head {h00=0x0016, h01=0x0050, text=» RF(NE) RFMD90 NO «, t00=0x0079, t01=0x0134}
0xbe3c…be58 Head {h00=0x0018, h01=0x0050, text=» LDK A2,/3B REPLACE «, t00=0x0079, t01=0x014e}
0xbe58…be6c Head {h00=0x0010, h01=0x0050, text=»RFMD90 EQU *«, t00=0x0079, t01=0x016a}
0xbe6c…be7c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x017e}
0xbe7c…be8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x018e}
0xbe8a…bec2 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x007a, t01=0x000c}
0xbec2…befa Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x007a, t01=0x0044}
0xbefa…bf32 Head {h00=0x0034, h01=0x0050, text=»* DISCHA DISPLAY CHAR *«, t00=0x007a, t01=0x007c}
0xbf32…bf6a Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x007a, t01=0x00b4}
0xbf6a…bfa2 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x007a, t01=0x00ec}
0xbfa2…bfb6 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x007a, t01=0x0124}
0xbfb6…bfc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0138}
0xbfc0…bfda Head {h00=0x0016, h01=0x0050, text=»* A1= REQ. LENGTH «, t00=0x007a, t01=0x0142}
0xbfda…bff0 Head {h00=0x0012, h01=0x0050, text=»* A2= RESERVED«, t00=0x007a, t01=0x015c}
0xbff0…c006 Head {h00=0x0012, h01=0x0050, text=»* A4= RESERVED«, t00=0x007a, t01=0x0172}
0xc006…c01c Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x007a, t01=0x0188}
0xc01c…c032 Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x007b, t01=0x000e}
0xc032…c048 Head {h00=0x0012, h01=0x0050, text=»* A8= VDU-ECB «, t00=0x007b, t01=0x0024}
0xc048…c068 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x007b, t01=0x003a}
0xc068…c080 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x007b, t01=0x005a}
0xc080…c08a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0072}
0xc08a…c0c4 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x007b, t01=0x007c}
0xc0c4…c0d8 Head {h00=0x0010, h01=0x0050, text=»DISCHA EQU *«, t00=0x007b, t01=0x00b6}
0xc0d8…c0f0 Head {h00=0x0014, h01=0x0050, text=» LC A2,TCT01,A11«, t00=0x007b, t01=0x00ca}
0xc0f0…c116 Head {h00=0x0022, h01=0x0050, text=» CCK A2,VDUCOD PRINTER UNPACK?«, t00=0x007b, t01=0x00e2}
0xc116…c130 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DISC95 YES«, t00=0x007b, t01=0x0108}
0xc130…c14a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBVDU,A11 «, t00=0x007b, t01=0x0122}
0xc14a…c162 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x007b, t01=0x013c}
0xc162…c18e Head {h00=0x0028, h01=0x0050, text=» LDKL A1,/101 START AT LINE 1 POS. 1«, t00=0x007b, t01=0x0154}
0xc18e…c1a6 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x007b, t01=0x0180}
0xc1a6…c1bc Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x007c, t01=0x0008}
0xc1bc…c1da Head {h00=0x001a, h01=0x0050, text=» LDR A7,A4 CURSOR POS.«, t00=0x007c, t01=0x001e}
0xc1da…c1ee Head {h00=0x0010, h01=0x0050, text=»DISC10 EQU *«, t00=0x007c, t01=0x003c}
0xc1ee…c20e Head {h00=0x001c, h01=0x0050, text=» CWK A7,LLINE NEXT LINE?«, t00=0x007c, t01=0x0050}
0xc20e…c226 Head {h00=0x0014, h01=0x0050, text=» RF(L) DISC90 NO«, t00=0x007c, t01=0x0070}
0xc226…c250 Head {h00=0x0026, h01=0x0050, text=» ADS A1,ECBCW,A8 MOVE TO NEXT LINE«, t00=0x007c, t01=0x0088}
0xc250…c266 Head {h00=0x0012, h01=0x0050, text=» SUKL A7,LLINE«, t00=0x007c, t01=0x00b2}
0xc266…c278 Head {h00=0x000e, h01=0x0050, text=» RB DISC10«, t00=0x007c, t01=0x00c8}
0xc278…c28c Head {h00=0x0010, h01=0x0050, text=»DISC90 EQU *«, t00=0x007c, t01=0x00da}
0xc28c…c2b6 Head {h00=0x0026, h01=0x0050, text=» ADS A7,ECBCW,A8 POSITION IN LINE «, t00=0x007c, t01=0x00ee}
0xc2b6…c2de Head {h00=0x0024, h01=0x0050, text=» LDK A7,/8B SET CURSOR AND WRITE«, t00=0x007c, t01=0x0118}
0xc2de…c2ea Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x007c, t01=0x0140}
0xc2ea…c2fa Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x007c, t01=0x014c}
0xc2fa…c30e Head {h00=0x0010, h01=0x0050, text=»DISC95 EQU *«, t00=0x007c, t01=0x015c}
0xc30e…c31e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007c, t01=0x0170}
0xc31e…c326 Head {h00=0x0004, h01=0x0050, t00=0x007c, t01=0x0180}
0xc326…c332 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x007c, t01=0x0188}
0xc332…c336 (125, 2, 8) Head {h00=0x4004, h01=0x0000}
0xc336…c33a 00 7d 00 04 ┆ } ┆
0xc33a…c342 (126, 1, 8) 20 04 00 00 00 7e 00 04 ┆ ~ ┆
0xc342…c392 (127, 0, 400) 55 46 46 4e 52 3d 32 32 00 7e 01 8a 00 10 00 50 5c 44 41 54 41 5c 2a 2b 4c 49 4e 4b 00 7f 00 10 00 0e 00 50 5c 52 45 53 5c 42 55 46 46 4c 00 7f 00 24 00 12 00 50 5c 49 46 46 5c 42 55 46 46 4e 52 3d 32 33 00 7f 00 36 00 10 00 50 5c 44 41 54 ┆UFFNR=22 ~ P DATA *+LINK P RES BUFFL $ P IFF BUFFNR=23 6 P DAT┆
0xc392…c3e2 41 5c 2a 2b 4c 49 4e 4b 00 7f 00 4c 00 0e 00 50 5c 52 45 53 5c 42 55 46 46 4c 00 7f 00 60 00 12 00 50 5c 49 46 46 5c 42 55 46 46 4e 52 3d 32 34 00 7f 00 72 00 10 00 50 5c 44 41 54 41 5c 2a 2b 4c 49 4e 4b 00 7f 00 88 00 0e 00 50 5c 52 45 53 ┆A *+LINK L P RES BUFFL ` P IFF BUFFNR=24 r P DATA *+LINK P RES┆
0xc3e2…c432 5c 42 55 46 46 4c 00 7f 00 9c 00 12 00 50 5c 49 46 46 5c 42 55 46 46 4e 52 3d 32 35 00 7f 00 ae 00 10 00 50 5c 44 41 54 41 5c 2a 2b 4c 49 4e 4b 00 7f 00 c4 00 0e 00 50 5c 52 45 53 5c 42 55 46 46 4c 00 7f 00 d8 00 12 00 50 5c 49 46 46 5c 42 ┆ BUFFL P IFF BUFFNR=25 P DATA *+LINK P RES BUFFL P IFF B┆
0xc432…c482 55 46 46 4e 52 3d 32 36 00 7f 00 ea 00 10 00 50 5c 44 41 54 41 5c 2a 2b 4c 49 4e 4b 00 7f 01 00 00 0e 00 50 5c 52 45 53 5c 42 55 46 46 4c 00 7f 01 14 00 12 00 50 5c 49 46 46 5c 42 55 46 46 4e 52 3d 32 37 00 7f 01 26 00 10 00 50 5c 44 41 54 ┆UFFNR=26 P DATA *+LINK P RES BUFFL P IFF BUFFNR=27 & P DAT┆
0xc482…c4d2 41 5c 2a 2b 4c 49 4e 4b 00 7f 01 3c 00 0e 00 50 5c 52 45 53 5c 42 55 46 46 4c 00 7f 01 50 00 12 00 50 5c 49 46 46 5c 42 55 46 46 4e 52 3d 32 38 00 7f 01 62 00 10 00 50 5c 44 41 54 41 5c 2a 2b 4c 49 4e 4b 00 7f 01 78 00 0e 00 50 5c 52 45 53 ┆A *+LINK < P RES BUFFL P P IFF BUFFNR=28 b P DATA *+LINK x P RES┆
0xc4d2…c4da (128, 1, 8) 78 d8 01 34 ff c6 00 00 ┆x 4 ┆
0xc4da…c4e2 (129, 1, 8) ff 58 00 a8 00 00 80 03 ┆ X ┆
0xc4e2…c4ea (130, 1, 8) 00 00 00 a8 00 00 80 03 ┆ ┆
0xc4ea…c53a (131, 0, 400) 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 83 00 04 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ > P********************************************************* > P* ┆
0xc53a…c58a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 83 00 46 00 3e 00 50 2a 20 20 20 20 20 20 20 20 52 45 4c 42 55 46 20 20 20 20 20 20 20 52 45 ┆ * F > P* RELBUF RE┆
0xc58a…c5da 4c 45 41 53 45 20 42 55 46 46 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 83 00 88 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LEASE BUFFER * > P* ┆
0xc5da…c62a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 83 00 ca 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * > P****************************************************┆
0xc62a…c67a 2a 2a 2a 2a 2a 20 00 83 01 0c 00 10 00 50 2a 5c 5c 52 45 47 49 53 54 45 52 53 00 83 01 4e 00 06 00 50 2a 20 00 83 01 62 00 18 00 50 2a 5c 41 38 3d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 83 01 6c 00 14 00 50 2a 5c 41 31 31 3d 20 52 ┆***** P* REGISTERS N P* b P* A8= BUFFER ADDRESS l P* A11= R┆
0xc67a…c6ca (132, 2, 384) 45 53 45 52 56 45 44 20 00 83 01 88 00 14 00 50 2a 5c 41 31 33 3d 20 52 45 53 45 52 56 45 44 20 00 84 00 10 00 06 00 50 2a 20 00 84 00 28 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ESERVED P* A13= RESERVED P* ( > P******************************┆
0xc6ca…c71a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 84 00 32 00 10 00 50 52 45 4c 42 55 46 5c 45 51 55 5c 2a 00 84 00 74 00 14 00 50 5c 4c 44 4b 4c 5c 41 37 2c 42 55 46 46 45 52 20 00 84 00 88 00 1c 00 50 ┆*************************** 2 PRELBUF EQU * t P LDKL A7,BUFFER P┆
0xc71a…c76a 5c 53 55 4b 4c 5c 41 38 2c 32 5c 50 4f 49 4e 54 20 54 4f 20 4c 49 4e 4b 00 84 00 a0 00 10 00 50 52 45 4c 42 31 30 5c 45 51 55 5c 2a 00 84 00 c0 00 10 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 37 20 00 84 00 d4 00 12 00 50 5c 52 46 28 5a 29 5c 52 ┆ SUKL A8,2 POINT TO LINK PRELB10 EQU * P LDR* A1,A7 P RF(Z) R┆
0xc76a…c7ba 45 4c 42 39 30 20 00 84 00 e8 00 0e 00 50 5c 4c 44 52 5c 41 37 2c 41 31 00 84 00 fe 00 0e 00 50 5c 52 42 5c 52 45 4c 42 31 30 00 84 01 10 00 10 00 50 52 45 4c 42 39 30 5c 45 51 55 5c 2a 00 84 01 22 00 0e 00 50 5c 53 54 52 5c 41 38 2c 41 37 ┆ELB90 P LDR A7,A1 P RB RELB10 PRELB90 EQU * " P STR A8,A7┆
0xc7ba…c7fa 00 84 01 36 00 0c 00 50 5c 43 4d 52 5c 41 38 20 00 84 01 48 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 84 01 58 00 04 00 50 00 84 01 68 00 08 00 50 5c 45 4e 44 00 84 01 70 40 04 00 00 00 84 01 7c ┆ 6 P CMR A8 H P RTN A14 X P h P END p@ |┆