IPB

, ( | )

>  : -0010
V
SuperMax
20.10.2009, 15:26
#1



*****

: Root Admin
: 5 830
: 7.1.2006
:
: 1





;  #############################################################
;  #                                                           #
;  #               - 0 0 1 0    #
;  #                                                           #
;  #############################################################


;  :   ..
;  ,  1983 .
;
;   :    1984 .



;  ====================================
;  **** EMT DMBK ****
;  ====================================



;    
;    ----------

INDKLW    = 4       ;-

CTKOD    = 6       ;-
           ;  :    R0 - .

CTSTR    = 10       ;-
           ;  :    R1 -
           ;        R2 - (..)
           ;           - - (..)

USTKLC    = 12       ;-
           ;  :    R0 -
           ;        R1 -


;    TV-
;    ----------

INDMBK    = 14       ;- DMBK

FSIM    = 16       ;-
           ;  :    R0 - ..

FSTR    = 20       ;-
           ;  :    R1 -
           ;        R2 - (..)
           ;           - - (..)

ZSIMSS    = 22       ;-
           ;  :    R0 - (0- )
           ;        R1 -

USTKK    = 24       ;-
           ;  :    R1 - X
           ;        R2 - Y

SEMKK    = 26       ;- '
           ;  :    R1 - X
           ;        R2 - Y

FTCK    = 30       ;-
           ;  :    R0 - 1-, 0-
           ;        R1 - X
           ;        R2 - Y

FWEKT    = 32       ;-
           ;  :    R0 - 1-, 0-
           ;        R1 - X
           ;        R2 - Y

CTSSD    = 34       ;-
           ;  :    R0 - . .


;    
;    ----------

DMAG    = 36       ;-
           ;  :    R1 -


;    TLG-
;    ---------

INDTLG    = 40       ;- -
           ;  :    R0 -

PDBYT    = 42       ;-
           ;  :    R0 - ..

PRBYT    = 44       ;-
           ;  :    R0 - ..

PDMAS    = 46       ;-
           ;  :    R1 -
           ;        R2 -

PRMAS    = 50       ;-
           ;  :    R1 -
           ;        R2 -


;    
;    ------

RW1    = 52
RW2    = 54
RW3    = 56
RW4    = 60
RW5    = 62
RW6    = 64
RW7    = 66
RW8    = 70
RW9    = 72
RW10    = 74
RW11    = 76
RW12    = 100
RW13    = 102
RW14    = 104
RW15    = 106
RW16    = 110



;   ======================
;   *** DMBK ***
;   ======================


    AWPZAW    = 4       ;- ...
    AWPEMT    = 30       ;- ...
    APORT    = 177714   ;-
    ASPORT    = 177716   ;-




;  ============================
;  **** DMBK ****
;  ============================



DMBK:    JMP    MNDMBK       ;- DMBK


;    -------------------------------
;    ** **
;    -------------------------------

WIDKLW:    .WORD    MIDKLW       ;- DKLAW
WCTKOD:    .WORD    MCTKOD       ;-
WCTSTR:    .WORD    MCTSTR       ;-
WUKLC:    .WORD    MUKLC       ;-


;    --------------------------------
;    ** TV- **
;    --------------------------------

WIDMBK:    .WORD    MIDMBK       ;- DMBK
WFSIM:    .WORD    MFSIM       ;-
WFSTR:    .WORD    MFSTR       ;-
WZSSS:    .WORD    MZSSS       ;- .
WUSTKK:    .WORD    MUSTKK       ;-
WSKK:    .WORD    MSKK       ;- '
WFTCK:    .WORD    MFTCK       ;-
WFWEKT:    .WORD    MFWEKT       ;-
WCTSSD:    .WORD    MCTSSD       ;-


;    --------------------------------
;    ** **
;    --------------------------------

WDMAG:    .WORD    MDMAG       ;- /


;    -------------------------------
;    ** - **
;    -------------------------------

WIDTLG:    .WORD    MIDTLG       ;- DTLG
WPDBYT:    .WORD    MPDBYT       ;-
WPRBYT:    .WORD    MPRBYT       ;-
WPDMAS:    .WORD    MPDMAS       ;-
WPRMAS:    .WORD    MPRMAS       ;-


;    --------------------------
;    ** DMBK **
;    --------------------------

RWDM1:    .WORD    160000
RWDM2:    .WORD    160004
RWDM3:    .WORD    160010
RWDM4:    .WORD    160014
RWDM5:    .WORD    160020
RWDM6:    .WORD    160024
RWDM7:    .WORD    160030
RWDM8:    .WORD    160034
RWDM9:    .WORD    160040
RWDM10:    .WORD    160044
RWDM11:    .WORD    160050
RWDM12:    .WORD    160054
RWDM13:    .WORD    160060
RWDM14:    .WORD    160064
RWDM15:    .WORD    160070
RWDM16:    .WORD    160074





; ==============================
; *****       *****
; ==============================


DEMT:    MOV    R5,-(SP)

    MOV    2(SP),R5   ;  
    MOV    -(R5),R5
    BIC    #177400,R5
    MOV    DMBK(R5),R5

    JSR    PC,(R5)       ;  

    MOV    (SP)+,R5
    RTI





; =====================================
; ***** DMBK *****
; =====================================


MIDMBK:    CLR    R1       ;  
    MOV    #20,R2
1$:    MOV    #100000,(R1)+
    SOB    R2,1$
    MOV    #MNZAW,@#AWPZAW
    MOV    #DEMT,@#AWPEMT
    MOV    #200,@#AWPEMT+2

    MOV    #120,R2       ;  
2$:    CLR    (R1)+
    SOB    R2,2$

    EMT    INDKLW       ;- DKLAW

    INC    DSIMB       ;- DTVM
    INCB    NMPGT
    COM    MASCW
    COM    MCWSS
    JSR    PC,PPRP1

    MOV    #KDBIT0,DLBIT0   ;- DMAG
    MOV    #KDBIT1,DLBIT1

    CLR    R0
    EMT    INDTLG       ;- DTLG

    CLR    @#APORT       ;-
    MOV    #220,@#ASPORT   ;-

    MTPS    R0       ;-

    RTS    PC





; ======================================
; *****       D M B K  *****
; ======================================




MNDMBK:    MOV    #1000,SP   ;-
    JSR    PC,MIDMBK

    JSR    PC,@#120000   ;-
    JSR    PC,MIDMBK   ;-

MNKOM:    JSR    R5,PPCT       ;- " -0010"
    .WORD    TMON
MNKOM1:    JSR    R5,PPCT       ;- ">"
    .WORD    TPRIGL

    MOV    SP,R1       ;  
    SUB    #100,R1
    MOV    R1,R5
2$:    EMT    CTKOD
    CMPB    R0,#30       ;-
    BNE    1$
    CMP    R5,R1
    BEQ    2$
3$:    CLR    (R5)+
4$:    EMT    FSIM
    BR    2$
1$:    MOV    R0,-(R5)   ;-
    TSTB    R5
    BEQ    3$
    CMPB    R0,#12       ;- ""
    BNE    4$
    EMT    FSIM

    MOV    -(R1),R4   ;  
    CLR    R5       ;-
    MOV    R4,R3
7$:    CMP    R3,R0       ;- ""
    BEQ    5$
    CMP    R3,#67       ;-
    BHI    6$
    SUB    #60,R3
    BMI    6$
    ASL    R5
    ASL    R5
    ASL    R5
    ADD    R3,R5
6$:    MOV    -(R1),R3   ;- ..
    BR    7$

5$:    BIC    #240,R4       ;  
    CMPB    R4,#124       ;- "T"
    BHI    10$
    SUB    #114,R4       ;- "L"
    BMI    11$
    ASL    R4

    MOV    MNKOMT(R4),R1   ;  
    JSR    PC,(R1)
    BR    MNKOM1

11$:    ADD    #13,R4       ;- A : K
    BPL    MNDMBK
    BR    MNKOM1

10$:    JSR    PC,@#160110   ;- > T
    BR    MNKOM1

MNKOMT:    .WORD    PCTTLG       ;- "L"
    .WORD    PCTMAG       ;- "M"
    .WORD    160110       ;- "N"
    .WORD    160110       ;- "O"
    .WORD    140000       ;- "P"
    .WORD    160110       ;- "Q"
    .WORD    160104       ;- "R"
    .WORD    PSTART       ;- "S"
    .WORD    160100       ;- "T"



;    -----------------------------------
;    ** 0. **
;    -----------------------------------

MNZAW:    MOV    #1000,SP
    MOV    #220,@#ASPORT
    EMT    INDKLW
    BR    MNKOM


;    -----------------------------
;    ** 1. **
;    -----------------------------

PCTTLG:    EMT    PRBYT       ;  
    EMT    PDBYT

    MOV    #BUFSTA,R1   ;  
    MOV    #4,R2
    EMT    PRMAS
    TST    R5
    BEQ    1$
    MOV    R5,BUFSTA

1$:    MOV    BUFSTA,R1   ;  
    MOV    BUFDL,R2
    EMT    PRMAS
    JSR    R5,PPCT       ;-
    .WORD    TFZ

    RTS    PC


;    -----------------------------------
;    ** 2. **
;    -----------------------------------

PCTMAG:    MOV    #BPDMAG,R1   ;   BPDMAG
    MOV    #3,(R1)+   ;-
    MOV    R5,(R1)+   ;-
    CLR    (R1)+       ;-
    JSR    R5,PPCT       ;- " ?"
    .WORD    TIMF
    MOV    #5020,R2
    EMT    CTSTR
    DEC    R1
2$:    MOVB    #40,(R1)+
    DEC    R2
    BPL    2$

1$:    MOV    #BPDMAG,R1   ;  
    EMT    DMAG

    MOVB    1(R1),R0   ;  
    BEQ    4$
    DEC    R0
    BNE    3$
    JSR    PC,5$       ;- . .
    MOV    #12,R0
    EMT    FSIM
    BR    1$

3$:    JSR    R5,PPCT       ;- "**"
    .WORD    TOH
    BR    KCTMAG

4$:    JSR    R5,PPCT       ;- " "
    .WORD    TZF
5$:    ADD    #32,R1
    MOV    #20,R2
    EMT    FSTR

KCTMAG:    RTS    PC


;    --------------
;    ** 3. **
;    --------------

PSTART:    TST    R5
    BNE    1$
    MOV    BUFSTA,R5   ;-
1$:    JSR    PC,(R5)

    RTS    PC


;    ----------------------
;    ** 4. **
;    ----------------------

PPCT:    MOV    (R5)+,R3
    BR    1$
2$:    EMT    FSIM
1$:    MOVB    (R3)+,R0
    BNE    2$

    RTS    R5



;   =====================
;   *** MNDMBK ***
;   =====================


TMON:    .BYTE    12,355,357,356,351,364,357,362,40   ;   -0010
    .BYTE    342,353,55,60,60,61,60,0
TPRIGL:    .BYTE    12,12,76,40,0               ;  >
TIMF:    .BYTE    351,315,321,40,306,301,312,314,301,77,40,0;   ?
TZF:    .BYTE    12,372,301,307,322,325,326,305,316,40   ;  
    .BYTE    306,301,312,314,40,0
TFZ:    .BYTE    12,346,301,312,314,40           ;  
    .BYTE    332,301,307,322,325,326,305,316,0
TOH:    .BYTE    12,52,357,373,351,342,353,341,52,0   ;  **
    .EVEN



--------------------
- !
+



1 . (: 1, : 0)
: 0

 

: : · : ·

· · ·

: 24.7.2019, 9:53