Added recovered BINCOM.MAC source.

[retro-software/dec/tops10/v4.5.git] / src / dpdint.mac

diff --git a/src/dpdint.mac b/src/dpdint.mac
index d20703c..7b7fcab 100644 (file)
--- a/src/dpdint.mac
+++ b/src/dpdint.mac
@@ -11,7 +11,6 @@ INTERNAL LBHIGH ;HIGHEST LEGAL LOGICAL BLOCK NUMBER
 LBHIGH: 130000-1\r
 \r
 ;START A WRITE ON DISK FILE\r
-\r
 ;AT ENTRY,             C(TAC 18-35)= LOGICAL BLOCK NUMBER\r
 ;                      C(TAC1)     = IOWD\r
 \r
@@ -20,11 +19,13 @@ EXTERNAL DSKX8,DCBBIT,DSKBIT,DSKCHN,DCBCHN.ERRPNT,DSKX9
 ENTRY LDDINT\r
 LDDINT:\r
 \r
+\r
 DFWRT:\r
 DFWRT1:        MOVEM TAC1,IOWRD\r
        MOVE TAC1,[BLKO DCB,IOWRD]\r
        JSR DFRW                ;SET UP DISK ADDRESS\r
 \r
+\r
        TLO TAC,WLE             ;ENABLE WRITE LOCK ERROR\r
        HRRI TAC,DSKCHN ;TURN ON DISK\r
        IORI TAC,WRT+CLE+EIS+ENE\r
@@ -42,9 +43,10 @@ DFRED1:      MOVEM TAC1,IOWRD
        HRRI TAC,DSKCHN\r
        IORI TAC,RED+CLE+EIS+ENE        ;TURN ON DISK\r
        STARTDV DSK\r
+        HRRZI TAC,DCBCHN\r
+        CONO DCB,XMOVE+P18+DFNUM(TAC)\r
        POPJ PDP,\r
-\f\r
-;SERVICE INTERRUPT ON DATA-CONTROL-B\r
+\f;SERVICE INTERRUPT ON DATA-CONTROL-B\r
 \r
 INTERNAL FTCHECK,FTMONP\r
 IFE FTCHECK+FTMONP,<\r
@@ -61,7 +63,8 @@ DCBIN1:       MOVEM TAC,ACSAV
        CONO DF,END+EIS(TAC)\r
        MOVE TAC,ACSAV\r
        JEN @DCBINT\r
-JSRDBC:        JSR DCBINT              ;JSR STORED IN INTERRUPT CELL\r
+JSRDCB:        JSR DCBINT              ;JSR STORED IN INTERRUPT CELL\r
+\r
 \r
 ;DISK & DCB FLAGS\r
 \r
@@ -91,8 +94,7 @@ P18=3B29      ;PACK 2 18-BIT BYTES
 RED=1B26       ;READ INDICATOR\r
 WRT=2B26       ;WRITE INDICATOR\r
 ENE=1B29       ;ENABLE ERROR INTERRUPT\r
-\f\r
-;INTERRUPT ROUTINE TO HANDLE SECTOR-END FLAG.\r
+\f;INTERRUPT ROUTINE TO HANDLE SECTOR-END FLAG.\r
 ;CHECK FOR ERRORS.  IF THE JOB IS COMPLETED (SIOWD = 0), GO TO\r
 ;DEVICE INDEPENDENT PACKAGE, ELSE CONTINUE THE JOB.\r
 \r
@@ -111,7 +113,6 @@ DSKINT:     CONSO DF,@DSKCON
        MOVEI TAC1,DVERAS\r
        CONSZ DCB,OUT\r
        TRO TAC1,WLE\r
-\r
        CONSZ DF,(TAC1)         ;ERROR?\r
        SETZM SIOWD             ;YES, DO NOT DO MORE NOW\r
        MOVE TAC,DCBERR         ;PICK UP DATA-CONTROL STATUS\r
@@ -136,8 +137,7 @@ DSKINT:     CONSO DF,@DSKCON
        CONSO DCB,OUT\r
        JRST DFRED1\r
        JRST DFWRT1\r
-\f\r
-DSKIN2:\r
+\fDSKIN2:\r
        HRRZI TAC,DSKCHN\r
        CONO DF,END+EIS(TAC)    ;SEND END AND ENABLE FOR IDLE\r
                                ;FOLLOWING ERROR\r
@@ -149,8 +149,7 @@ DSKIN2:
 DSKIN3:        MOVE    IOS,DSKIOS      ;PICK\r
        CONO DF,0\r
        JRST    DFINT\r
-\f\r
-;SET UP FOR READ AND WRITE\r
+\f;SET UP FOR READ AND WRITE\r
 \r
 IFE FTCHECK+FTMONP,<\r
 DFRW:  Z\r
@@ -169,7 +168,6 @@ IFN FTRCHK,<
                                 ;THEN FLAG AS DEVICE ERROR\r
 >\r
        IDIVI TAC,^D44\r
-\r
        MOVEM TAC,SRECN         ;SAVE THE BLOCK NUMBER\r
        SETZM SIOWD             ;CLEAR SAVED IOWD\r
        LSH TAC,6\r
@@ -202,7 +200,7 @@ IFN FTRCHK,<
 CNVERR:        MOVEI IOS,IODERR        ;HERE ONLY IF OPERATOR PUSHES CONTINUE\r
        JRST DFINT              ;FLAG AS DEVICE ERROR\r
 >\r
-; WAIT FOR DISK TO BE TURNED ON\r
+\f; WAIT FOR DISK TO BE TURNED ON\r
 \r
 INTERNAL DISKUP\r
 \r
@@ -232,7 +230,5 @@ DSKCON:     0
 IOWRD: 0\r
 DCBERR:        0\r
 ACSAV: 0\r
-<>\r
+>\r
 DPDEND:        END\r
-\r
-\r