;***************************************************************************;
;                                                                           ;
;                                                                           ;
;                                  MONMAP                                   ;
;                            Display Monitor Map                            ;
;                                                                           ;
;                                                                           ;
;***************************************************************************;
;1.0 29-Oct-84 DFP written by D. Pallmann for AMOS/L 1.X monitors.
; 1.1 - 04/10/86 - REFORMATTED SO THAT MORE IS AVAILABLE ON SCREEN
;                       AT ONE TIME.  Dale Eichbauer - MBS Data Systems


       VMAJOR=1
       VMINOR=1                        ; 04/10/86  DAE

       SEARCH  SYS
       SEARCH  SYSSYM

       .OFINI
       .OFDEF  BUFFER,8.
       .OFSIZ  IMPSIZ

START:  GETIMP  IMPSIZ,A5               ;allocate impure area

;
;  Dislay monitor version
;

VERSON: TTYI
       ASCIZ   "AMOS/L version "
       EVEN
       MOV     #2,A0
       VCVT    @A0,OT$TRM!OT$TSP
       TYPECR  Monitor Map

;
;  Display SVCA calls and addresses
;

SVCA:   MOV     #3132,A0                ;assume EM1010 table starts at 3132
       LEA     A1,TABLE                ;point to name table
       TYPECR  <SVCA   Call    Address      SVCA   Call    Address      SVCA   Call    Address>
       TYPECR  <----   ----    -------      ----   ----    -------      ----   ----    ------->

LOOP:   CTRLC   EXIT                    ;branch on ^C
       TSTW    @A1                     ;end of table?
       JEQ     EXIT1                   ; yes - branch
       CLR     D1                      ; [1.1]
       MOVW    4(A1),D1                ;print  [1.1]
       OCVT    4,OT$TRM!OT$ZER         ; SVCA number
       CALL    THREE                   ; [1.1]
       MOV     A5,A2                   ;index buffer
       UNPACK                          ;convert SVCA name
       UNPACK                          ; to ASCII
       CLRB    @A2                     ;terminate buffer
       TTYL    @A5                     ;print buffer
       CALL    THREE                   ; [1.1]
       MOVW    (A0)+,D1                ;determine vector
       OCVT    6,OT$TRM!OT$ZER         ;print vector address
       ADD     #2.,A1                  ; POINT PAST THE SVCA # [1.1]
       CALL    SIX                     ; [1.1]
       CLR     D1                      ; [1.1]
       MOVW    4(A1),D1                ;print  [1.1]
       OCVT    4,OT$TRM!OT$ZER         ; SVCA number   [1.1]
       CALL    THREE                   ; [1.1]
       MOV     A5,A2                   ;index buffer   [1.1]
       UNPACK                          ;convert SVCA name      [1.1]
       UNPACK                          ; to ASCII      [1.1]
       CLRB    @A2                     ;terminate buffer       [1.1]
       TTYL    @A5                     ;print buffer   [1.1]
       CALL    THREE                   ; [1.1]
       MOVW    54(A0),D1               ;determine vector       [1.1]
       OCVT    6,OT$TRM!OT$ZER         ;print vector address   [1.1]
       ADD     #2.,A1                  ; POINT PAST THE SVCA # [1.1]
       CALL    SIX                     ; [1.1]
       PUSH    A1                      ; [1.1]
       CMMW    2(A1),#177              ; [1.1]
       BLE     NL                      ; [1.1]
       CLR     D1                      ; [1.1]
       MOVW    4(A1),D1                ;print  [1.1]
       OCVT    4,OT$TRM!OT$ZER         ; SVCA number   [1.1]
       CALL    THREE                   ; [1.1]
       MOV     A5,A2                   ;index buffer   [1.1]
       UNPACK                          ;convert SVCA name      [1.1]
       UNPACK                          ; to ASCII      [1.1]
       CLRB    @A2                     ;terminate buffer       [1.1]
       TTYL    @A5                     ;print buffer   [1.1]
       CALL    THREE                   ; [1.1]
       MOVW    130(A0),D1              ;determine vector       [1.1]
       OCVT    6,OT$TRM!OT$ZER         ;print vector address   [1.1]
NL:     CRLF                            ;newline        [1.1]
       POP     A1                      ; [1.1]
       ADD     #6.,A1                  ; POINT PAST THE SVCA # [1.1]
       JMP     LOOP                    ;loop

EXIT:   CRLF                            ;newline
EXIT1:  EXIT                            ;exit

SIX:    CALL    THREE                   ; [1.1]
THREE:  PUSH    A1                      ; [1.1]
       TTYI                            ; [1.1]
       ASCII   /   /                   ; [1.1]
       BYTE    0                       ; [1.1]
       EVEN                            ; [1.1]
       POP     A1                      ; [1.1]
       RTN                             ; [1.1]

;
;       FOLLOWING TABLE REARRANGED IN [1.1]
;

TABLE:  RAD50   /LNKCMD/                ;SVCA 0
       WORD    0
       RAD50   /GTPPN /                ;26
       WORD    26
       RAD50   /TTYL  /                ;54
       WORD    54
       RAD50   /LNKSVC/                ;1
       WORD    1
       RAD50   /TRMICP/                ;27
       WORD    27
       RAD50   /PFILE /                ;55
       WORD    55
       RAD50   /TIN   /                ;2
       WORD    2
       RAD50   /TRMOCP/                ;30
       WORD    30
       RAD50   /PRNAM /                ;56
       WORD    56
       RAD50   /TOUT  /                ;3
       WORD    3
       RAD50   /TRMBFQ/                ;31
       WORD    31
       RAD50   /PRPPN /                ;57
       WORD    57
       RAD50   /KBD   /                ;4
       WORD    4
       RAD50   /QGET  /                ;32
       WORD    32
       RAD50   /GETMEM/                ;60
       WORD    60
       RAD50   /TTY   /                ;5
       WORD    5
       RAD50   /QRET  /                ;33
       WORD    33
       RAD50   /CHGMEM/                ;61
       WORD    61
       RAD50   /TTYI  /                ;6
       WORD    6
       RAD50   /QADD  /                ;34
       WORD    34
       RAD50   /DELMEM/                ;62
       WORD    62
       RAD50   /TAB   /                ;7
       WORD    7
       RAD50   /QINS  /                ;35
       WORD    35
       RAD50   /FILNAM/                ;63
       WORD    63
       RAD50   /CRLF  /                ;10
       WORD    10
       RAD50   /JRUN  /                ;36
       WORD    36
       RAD50   /FSPEC /                ;64
       WORD    64
       RAD50   /EXIT  /                ;11
       WORD    11
       RAD50   /JWAIT /                ;37
       WORD    37
       RAD50   /JOBIDX/                ;65
       WORD    65
       RAD50   /DCVT  /                ;12
       WORD    12
       RAD50   /JWAITC/                ;40
       WORD    40
       RAD50   /FETCH /                ;66
       WORD    66
       RAD50   /PACK  /                ;13
       WORD    13
       RAD50   /TBUF  /                ;41
       WORD    41
       RAD50   /RQST  /                ;67
       WORD    67
       RAD50   /UNPACK/                ;14
       WORD    14
       RAD50   /TIMER /                ;42
       WORD    42
       RAD50   /RLSE  /                ;70
       WORD    70
       RAD50   /WAKE  /                ;15
       WORD    15
       RAD50   /SLEEP /                ;43
       WORD    43
       RAD50   /TTYIN /                ;71
       WORD    71
       RAD50   /CTRLC /                ;16
       WORD    16
       RAD50   /TCRT  /                ;44
       WORD    44
       RAD50   /TTYOUT/                ;72
       WORD    72
       RAD50   /LIN   /                ;17
       WORD    17
       RAD50   /TCKI  /                ;45
       WORD    45
       RAD50   /GETSYS/                ;73
       WORD    73
       RAD50   /BYP   /                ;20
       WORD    20
       RAD50   /JLOCK /                ;46
       WORD    46
       RAD50   /DELSYS/                ;74
       WORD    74
       RAD50   /ALF   /                ;21
       WORD    21
       RAD50   /JUNLOK/                ;47
       WORD    47
       RAD50   /GDATES/                ;75
       WORD    75
       RAD50   /NUM   /                ;22
       WORD    22
       RAD50   /SUPVR /                ;50
       WORD    50
       RAD50   /SDATES/                ;76
       WORD    76
       RAD50   /TRM   /                ;23
       WORD    23
       RAD50   /USRBAS/                ;51
       WORD    51
       RAD50   /STIMES/                ;77
       WORD    77
       RAD50   /GTOCT /                ;24
       WORD    24
       RAD50   /USREND/                ;52
       WORD    52
       RAD50   /      /                ; DUMMY
       WORD    177777
       RAD50   /GTDEC /                ;25
       WORD    25
       RAD50   /USRFRE/                ;53
       WORD    53
       RAD50   /      /                ; DUMMY
       WORD    177777
       WORD    0

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.