lp.mac

完整的方案

//            .F=  /RE
//            .E=  /WP
//            .D=  /WE
//            .C=  ALE
//            .B=  CLE
//            .A=  1
//            .9=  CE
//            .8=  R/B
TESTRB:  .MACRO
         R2=[P_IOB_Data]
         TEST R2, R_B
         .ENDM

SINIT:   .MACRO    CMD
         R1=nINIT
         [P_IOB_Data]=R1
         .ENDM

SCMD:    .MACRO    CMD
         R1=nCLEWE
         [P_IOB_Data]=R1
         R1|=CMD
         [P_IOB_Data]=R1
         R1^=WE
         [P_IOB_Data]=R1
         R1^=CLE
         [P_IOB_Data]=R1
         NOP
         .ENDM

SADR0:   .MACRO
         R2=nALEWE
         [P_IOB_Data]=R2
         R2|=R1
         [P_IOB_Data]=R2
         R2^=WE
         [P_IOB_Data]=R2
         .ENDM

SADR:    .MACRO
         R2^=WE
         [P_IOB_Data]=R2
         R2&=0xff00
         R2|=R1
         [P_IOB_Data]=R2
         R2^=WE
         [P_IOB_Data]=R2
         .ENDM


SADRE:   .MACRO
         R2^=WE
         [P_IOB_Data]=R2
         R2&=0xff00
         R2|=R1
         [P_IOB_Data]=R2
         R2^=WE
         [P_IOB_Data]=R2
         R2^=ALE
         [P_IOB_Data]=R2
         .ENDM

SADR00:  .MACRO
         R2=nALEWE
         [P_IOB_Data]=R2
         R2&=0xff00
         [P_IOB_Data]=R2
         R2^=WE
         [P_IOB_Data]=R2
         R2^=ALE
         [P_IOB_Data]=R2
         .ENDM


WBYTE:   .MACRO
         R2=nWE
//         [P_IOB_Data]=R2
         R2|=R1
         [P_IOB_Data]=R2
         R2^=WE
         [P_IOB_Data]=R2
         .ENDM

RBYTE:   .MACRO
         R2=nRE
         [P_IOB_Data]=R2
         R1=[P_IOB_Data]
         R2^=RE
         [P_IOB_Data]=R2
         .ENDM

RBYTE_:  .MACRO
         R2=nRE
         [P_IOB_Data]=R2
         R1=[P_IOB_Data]
         R2^=RE
         [P_IOB_Data]=R2
         R1&=0xff
         .ENDM

SKBYTE:  .MACRO
         [P_IOB_Data]=R2
         NOP
         [P_IOB_Data]=R3
         .ENDM

RBYTE2:  .MACRO
         R2=nRE
         [P_IOB_Data]=R2
         R2^=RE
         [P_IOB_Data]=R2
         .ENDM

DATAIN:  .MACRO
         R1=0xfe00
         [P_IOB_Dir]=R1
         .ENDM
DATAOUT: .MACRO
         R1=0xfeff
         [P_IOB_Dir]=R1
         .ENDM