Cleaned up more typos and fixed paging issues.

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

diff --git a/src/disser.mac b/src/disser.mac
index 70bde24..acffdce 100644 (file)
--- a/src/disser.mac
+++ b/src/disser.mac
@@ -11,7 +11,6 @@ DIS340:
 >\r
 SUBTTL R. GRUEN/RCC TS 03 JUN 69 V004\r
 XP     VDISSR,004\r
-\r
                ;PUT VERSION NUMBER IN GLOB LISTING AND LOADER STORAGE MAP\r
 ;              THESE ROUTINES HANDLE INTERRUPTS FROM THE DISPLAY DATA\r
 ;      CHANNEL.  THEY SEARCH THE COMMAND POINTER LIST SUPPLIED\r
@@ -35,6 +34,8 @@ XP    VDISSR,004
 ;IF THE T30 SWITCH = 1 THIS IS THE ROUTINE FOR A DEC\r
 ;TYPE 30 DISPLAY WITH A TYPE 348 INTERFACE.\r
 ;OTHERWISE IT IS THE ROUTINE FOR A DEC TYPE 340.\r
+\r
+\r
 \f\r
 INTERNAL FTCHECK,FTMONP\r
 IFN FTCHECK+FTMONP,<\r
@@ -110,8 +111,7 @@ ENTRY DISDSP
                CAMLE   A,DISHI\r
                JRST    EXIT2\r
 >\r
-\f\r
-       JRST DISINI             ;INITIALIZATION\r
+\f      JRST DISINI             ;INITIALIZATION\r
        POPJ    PDP,            ;PRINT ERROR AND STOP JOB\r
 DISDSP:        JRST    DISSTP          ;RELEASE\r
        JRST    DISSTP          ;CLOSE\r
@@ -128,8 +128,7 @@ DISDSP:     JRST    DISSTP          ;RELEASE
        POPJ    PDP,            ;CLOSE INPUT\r
        POPJ    PDP,            ;DIRECTORY CLEAR\r
        POPJ    PDP,            ;MTAPE\r
-\f\r
-;DISINI IS CALLED FOR RELEASE, CLOSE, AND SUNDRY ILLEGAL CONDITIONS\r
+\f;DISINI IS CALLED FOR RELEASE, CLOSE, AND SUNDRY ILLEGAL CONDITIONS\r
 ;      WHICH WANT TO TURN THE DISPLAY OFF.  IT FIRST CONVINCES\r
 ;      THE INTERRUPT LEVEL ROUTINES TO GO BACK TO SLEEP AND THEN\r
 ;      TELLS THE MONITOR THAT THE DEVICE IS INACTIVE, LASTLY,\r
@@ -148,7 +147,6 @@ IFN T30,<
        MOVEI   TAC,PENCHN      ;SET UP CONO WORD WITH PROPER\r
        ASH     TAC,3           ;  CHANNEL ASSIGNMENTS\r
        ADDI    TAC,DISCHN\r
-\r
        TRO     TAC,4000        ;SET DISPLAY READY BIT IN CONO WORD\r
        MOVEM   TAC,DISCON>\r
        JRST    DISIN1\r
@@ -201,8 +199,7 @@ PENINT:     CONSO DIS,0             ;CHECK FOR CONI FLAGS
        EXCH TAC,PENLOC         ;SAVE ADR IN PENLOC AND RESTORE TAC\r
        JEN @PENCHL             ;DISMIS THE INTERRUPT\r
 >\r
-\f\r
-;DISNXT        IS CALLED WITH A   JSR DISNXT,  IT SETS UP THE NEXT\r
+\f;DISNXT       IS CALLED WITH A   JSR DISNXT,  IT SETS UP THE NEXT\r
 ;      POINTER FOR THE DISPLAY'S BLKO BY INTERPRETING A\r
 ;      COMMAND LIST SUPPLIED BY THE USER,  THIS COMMAND LIST\r
 ;      IS DESCRIBED AT THE BEGINNING OF THE PROGRAM.  IF THE\r
@@ -251,8 +248,7 @@ INTCHK:     MOVSS   TAC             ;PLACE INTENSITY IN CONO WORD
        DPB     TAC,INTPNT\r
        JRST    DISNX1          ;GET NEXT POINTER\r
 INTPNT:        POINT 3,DISCON,29>\r
-\f\r
-;DISFIN        RECEIVES CONTROL WHEN THE DISPLAY'S BLKO POINTER REACHES\r
+\f;DISFIN       RECEIVES CONTROL WHEN THE DISPLAY'S BLKO POINTER REACHES\r
 ;      ZERO.  IT SAVES THE TWO AC'S WHICH DISNXT USES AND\r
 ;      DOES A JRST TO DISNXT.  ON A NORMAL RETURN IT RESTORES THE\r
 ;      AC'S AND DISMISSES THE INTERPUT. ON A "NO MORE DATA"\r
@@ -271,7 +267,6 @@ DISFIN:     MOVEM   TAC,DISAV       ;SAVE AC'S
 ;      AND SIMILAR GOOD THINGS SINCE IT ALSO STORES THE PC FROM\r
 ;      THE JSR IN THE GENERAL PC LOCATION FOR THIS CHANNEL\r
 ;      IF THE DISPLAY IS OFF. IT DOES NOT RESTART IT.\r
-\r
 ;      IT CHECKS TO SEE IF THE CLOCK HAS RUN OUT BEFORE THE PICTURE;\r
 ;      IF SO, IT CALLS DISBEG TO RESTART THE DISPLAY WITH A NEW\r
 ;      COMMAND LIST.  IT TURNS OFF THE IO ACTIVE BIT WHICH WAS\r
@@ -306,8 +301,7 @@ DVT3:       MOVE    IOS,DISIOS      ;BIT FIDDLING TIME
 DVT6:  MOVEM   IOS,DISIOS\r
        PUSHJ   PDP,DISBEG      ;START NEW COMMAND LIST\r
        JRST    DISRET\r
-\f\r
-;DISREG        IS CALLED WITH A PUSHJ PDP,DISBEG,  IT DISABLES THE\r
+\f;DISREG       IS CALLED WITH A PUSHJ PDP,DISBEG,  IT DISABLES THE\r
 ;      DISPLAY ITSELF (BY USING DISOFF) AND ALSO DISABLES THE\r
 ;      CLOK RESTART AND RESETS THE POINTER TO THE USER'S\r
 ;      COMMAND LIST TO THAT SPECIFIED ON THE LAST OUTPUT\r
@@ -347,8 +341,7 @@ CLKREQ:     MOVSI   IOS,DISCKR      ;IF NO CLOCK INTERRUPT REQUESTED
 \r
 CLOKRT:        XWD     CLOK,2          ;CONTROL FOR CLOCK QUEUE: 2 JIFFIES\r
                                ;TWO JIFFIES\r
-\f\r
-;CLOK  IS CALLED AT THE CLOCK LEVEL IN RESPONSE TO A REQUEST\r
+\f;CLOK IS CALLED AT THE CLOCK LEVEL IN RESPONSE TO A REQUEST\r
 ;      IN THE CLOCK QUEUE.  A BIT IS SET TO INDICATE THAT THE\r
 ;      CLOCL PERIOD HAS ELAPSED.  IF THE DISPLAY IS STILL IN\r
 ;      PROGRESS, CLOK RETURNS AT THIS POINT.  OTHERWISE, CLOK\r
@@ -367,7 +360,6 @@ CLOK:       MOVSI   IOS,DISCKR      ;INDICATE CLOCK REQUEST SERVICED
        LDB     ITEM,PJOBN\r
        TDNE    TAC,JBTSTS(ITEM)        ;IS SHUFFLE LOCKED OUT?\r
        JRST    DISBEG          ;YES, RESTART DISPLAY AND RETURN\r
-\r
        IORM    TAC,JBTSTS(ITEM)        ;NO. LOCK IT OUT.\r
        MOVE    TAC,JBTADR(ITEM)        ;RESET DISHI AND DISREL AFTER SHUFFLING\r
        HLRZM   TAC,DISHI\r
@@ -389,8 +381,7 @@ ADRER1:     PUSHJ   PDP,DISDSP+DCL  ;DO A CLOSE
 DISIN: MOVNI   TAC,1\r
        EXCH    TAC,PENLOC      ;GET LATEST COORDINATES,\r
        JRST    STOTAC          ;STORE AND RETURN\r
-\f\r
-;DISOUT        DOES THE WORK OF THE OUTPUT UUO.  IT SETS A BIT TO\r
+\f;DISOUT       DOES THE WORK OF THE OUTPUT UUO.  IT SETS A BIT TO\r
 ;      INDICATE THAT THE DEVICE IS ACTIVE AND INHIBITS\r
 ;      INTERUPTS WHICH MAY STILL BE IN PROGRESS. SINCE THE\r
 ;      MONITOR CALLS WSYNCE BEFORE COMING HERE. THE USER IS\r
@@ -423,5 +414,3 @@ DISOUT:     TLO     IOS,IO+DISWAT   ;INDICATE OUTPUT; REQUEST START UP
 BLKLIT:        BLKO    DIS,DISBKO\r
 JSRLIT:        JSR     DISCHL\r
        END\r
-       \r
-       \r