         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
<<  HIOFLOP0, MODULE 39 - HP7902/HP9895 HPIB  FLOPPY DRIVER >> <<*9548>>00015000
$CONTROL PRIVILEGED,UNCALLABLE,MAIN=HIOFLOP0                   <<*9548>>00060000
$TITLE "HP7902/HP9895(FLOPPY) FLEXIBLE DISC DRIVER "           <<*9548>>00070000
$TITLE "HP7902/HP9895(FLOPPY) FLEXIBLE DISC DRIVER "           <<*9548>>00996000
                                                               <<*9548>>02200000
                                                               <<*9548>>02205000
LOGICAL INDEX;                                                 <<*9548>>03195000
INTEGER TABLE;                                                 <<*9548>>03200000
<<***********************************************************>><<*9548>>03699010
<<        ********** WARNING **********                      >><<*9548>>03699020
<<                                                           >><<*9548>>03699030
<<     CHAINED SYSTEM BUFFERS AND SYSTEM BUFFERS WITH A      >><<*9548>>03699040
<<     TRANSFER COUNT > 128 ARE NOT ALLOWED.                 >><<*9548>>03699050
<<                                                           >><<*9548>>03699060
<<***********************************************************>><<*9548>>03699070
   SBF'BANK    = SBF'DSTN* 4 + 2, << ADDR OF SYS BUF BANK NO.>><<*9548>>04089000
   SBF'ADDR    = SBF'DSTN* 4 + 3; << ADDR OF SYS BUF ADDRESS >><<*9548>>04090000
$EDIT VOID=04335000                                            <<*9548>>04275000
          IF SBFLG AND DITP(WCR) > 128 THEN GO TO INVALIDFUNC; <<*9548>>04655000
            DITP(CDBA) := TOS + DST(SBF'ADDR); << SET ADR. >>  <<*9548>>05200000
            BANK := DST(SBF'BANK); << BANK FOR SYSBUF XFER >>  <<*9548>>05225000
          BANK := DST(SBF'BANK); << BANK FOR SYSBUF XFER >>    <<*9548>>05550000
           DITP(WCR) := DITP(CWC)+DITP(CDBA); <<DATA SEG>>     <<*9548>>05750000
                                                               <<*9548>>05755000
$EDIT VOID=06185000                                            <<*9548>>06130000
        AD := XD := MAXTRANSFER;  <<ADDRESS/TRANSFER DELTA>>   <<*9548>>06190000
                                                               <<*9548>>06235000
$EDIT VOID=06385000                                            <<*9548>>06365000
