;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 .