TITLE 'PROGRAM EQUATES'›SUBTTL 'File PROGEQU.AMA'›;›; Program equates.›;›;************************›;›;   Page 0 (system)›;›;************************›;›DOSVECEQU $0A›DOSINIEQU $0C›APPMHIEQU $0E›FR0EQU $D4›INBUFFEQU $F3›;›;›;************************›;›;   Page 0 (non-system)›;›;************************›;›ORG $80›ADRBUFDS 2›BFAVLDS 2›BTFLGDS 1›BUFMAX  DS 2›BUFTOPDS 2›CONSAVDS 1›DBTIMDS 1›DOSHDRDS 4›DSKOPTDS 1›FILSZDS 2›FREEZEDS 1›GBPTRDS 2›HEADERDS 4›INSBUFDS 8›INSPTRDS 1›I2OPENDS 1›LABACCDS 2›LABCNTDS 2›LABELDS 2›LABNRDS 2›LABTOPDS 2›OBJPTRDS 2›OPRCNTDS 1›OPSAVDS 1›OUTPTRDS 2›PAGNODS 1›PAGTOPDS 1›PROPENDS 1›PROPTDS 1›SECEDS 2›SECSDS 2›SECCNTDS 2›SEQDS 1›SRCTYPDS 1›STARDS 2›STARSTDS 2›SYSACCDS 2›SYSBASDS 2›SYSOFFDS 1›SECTRYDS 2›STRACCDS 2›STRLENDS 1›TEMPDS 2›TEXCNTDS 1›WRTFLGDS 1›;›;**********************›;›;   Page 2 (system)›;›;**********************›;›MEMTOPEQU $02E5›MEMLOEQU $02E7›CRSINHEQU $02F0›;›;**********************›;›;   Page 3 (system)›;›;**********************›;›DUNITEQU $0301›DCOMNDEQU $0302›DSTATSEQU $0303›DBUFLOEQU $0304›DBUFHIEQU $0305›DAUX1EQU $030A›DAUX2 EQU $030B›ICCOMEQU $0342›ICSTAEQU $0343›ICBALEQU $0344›ICBAHEQU $0345›ICBLLEQU $0348›ICBLH EQU $0349›ICAX1EQU $034A›;›;***********************›;›;        Page 4›;›;***********************›;›; This part of cassette buffer used for variables›;›ORG $0400›DISKIDDS 1›MORSEGDS 1›NUMFILDS 1›PASS DS 1›TWODRDS 1›LABUFDS 5›;›;***********************›;›;     Misc (system)›;›;***********************›;›CONSOLEQU $D01F›FASCEQU $D8E6›IFPEQU $D9AA›DSKINVEQU $E453›CIOVEQU $E456›SETVBVEQU $E45C›XITVBVEQU $E462›;›;Command codes›OPENEQU 3›GETRECEQU 5›GETCHREQU 7›PUTRECEQU 9›PUTCHREQU $B›CLOSE EQU $C›GETSECEQU $52›;›; AUX1 equates›;›OPNINEQU 4›OPNOTEQU 8›;›EOLEQU $9B›CLEAREQU $7D›TABEQU$7F›BELLEQU $FD›SKIPEQU $1D›;›