;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