;This is a COPY (include) file used by MAKPDV
DEFINE SUPPLY LABEL
IF NDF,LABEL
LABEL':
BYTE 0
ENDC
ENDM
DEFSUB ; supply font subst. table if missing
DEFTBL ; supply font table if missing
SUPPLY $PDINI ; Open (initialize)
SUPPLY $PDCLS ; Close (shut-down)
SUPPLY $PDBON ; Bold on
SUPPLY $PDBOF ; Bold off
SUPPLY $PDION ; Italic on
SUPPLY $PDIOF ; Italic off
SUPPLY $PDUON ; Underscore on
SUPPLY $PDUOF ; Underscore off
SUPPLY $PDDON ; Double Underscore on
SUPPLY $PDDOF ; Double Underscore off
SUPPLY $LPI6 ; Lines Per Inch 6
SUPPLY $LPI8 ; Lines Per Inch 8
SUPPLY $CPI10 ; Characters Per Inch 10
SUPPLY $CPI12 ; Characters Per Inch 12
SUPPLY $CPI15 ; Characters Per Inch 15
SUPPLY $PDRON ; Reverse on
SUPPLY $PDROF ; Reverse off
SUPPLY $PDSON ; Screened on
SUPPLY $PDSOF ; Screened off
SUPPLY $CHOME ; 00 return carriage home
SUPPLY $MOVAH ; 01 move to absolute horizontal tab
SUPPLY $ROLUP ; 02 roll up a partial line
SUPPLY $ROLDW ; 03 roll down a partial line
SUPPLY $NEGLF ; 04 output negative line feed
SUPPLY $SPLP0 ; 05 special print position 0
SUPPLY $SPLP1 ; 06 special print position 1
SUPPLY $RIBS1 ; 07 print in Secondary ribbon color 1
SUPPLY $RIBS2 ; 08 print in Secondary ribbon color 2
SUPPLY $RIBS3 ; 09 print in Secondary ribbon color 3
SUPPLY $RIBPR ; 10 print in Primary ribbon color
SUPPLY $FDTR1 ; 11 select Feeder tray 1
SUPPLY $FDTR2 ; 12 select Feeder tray 2
SUPPLY $FDTR3 ; 13 select Feeder tray 3
SUPPLY $FDTR4 ; 14 select Feeder tray 4
SUPPLY $FDTGL ; 15 select Feeder tray 1 & then tray 2
SUPPLY $FDEJT ; 16 select Feeder eject
SUPPLY $USR1 ; 17 user function 1
SUPPLY $USR2 ; 18 user function 2
SUPPLY $USR3 ; 19 user function 3
SUPPLY $USR4 ; 20 user function 4
SUPPLY $RIBS4 ; 21 print in Secondary ribbon color 4
SUPPLY $RIBS5 ; 22 print in Secondary ribbon color 5
SUPPLY $RIBS6 ; 23 print in Secondary ribbon color 6
SUPPLY $RIBS7 ; 24 print in Secondary ribbon color 7
EVEN