📄 amp100.asm
字号:
MOV SWITCH1,A
BS R4,7
MOV MDT,A
MOV MDT1,A
BS R3,PS1
CALL WRNBYT2
BC R3,PS1
BC R4,7
CLR XCVB
CLR XCVB1
BS XCVB,2
CALL GETXS
CALL VOLUPDN
CALL LCDSTR
JMP MAIN
;;;;;;;;;;;;;
S_DVD:
MOV A,@0X03
OR A,SWITCH
MOV SWITCH,A
BS R4,7
MOV MDT,A
MOV MDT1,A
BC R4,7
BS R3,PS1
CALL WRNBYT
BC R3,PS1
MOV A,@0XFC
AND A,SWITCH1
OR A,@0X01
MOV SWITCH1,A
BS R4,7
MOV MDT,A
MOV MDT1,A
BS R3,PS1
CALL WRNBYT2
BC R3,PS1
BC R4,7
CLR XCVB
CLR XCVB1
BS XCVB,3
CALL GETXS
CALL VOLUPDN
CALL LCDSTR
JMP MAIN
;;;;;;;;;;;;;;;
S_TUNER:
MOV A,@0X03
OR A,SWITCH
MOV SWITCH,A
BS R4,7
MOV MDT,A
MOV MDT1,A
BC R4,7
BS R3,PS1
CALL WRNBYT
BC R3,PS1
MOV A,@0XFC
AND A,SWITCH1
OR A,@0X02
MOV SWITCH1,A
BS R4,7
MOV MDT,A
MOV MDT1,A
BS R3,PS1
CALL WRNBYT2
BC R3,PS1
BC R4,7
CLR XCVB
CLR XCVB1
BS XCVB,6
CALL GETXS
CALL VOLUPDN
CALL LCDSTR
JMP MAIN
;;;;;;;;;;;;;;; JMP MAIN
VOLTOLCD:
MOV TEM1,A
SWAPA TEM1
AND A,@0X0F
ADD A,@0X30
MOV LCDBUF+14,A
MOV A,TEM1
AND A,@0X0F
ADD A,@0X30
MOV LCDBUF+15,A
RET
org 400h
V_AMP:
TBL
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X41 ;A
RETL @0X4D ;M
RETL @0X50 ;P
RETL @0X2D ;-
RETL @0X31 ;1
RETL @0X30 ;0
RETL @0X30 ;0
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
V_AUX1:
TBL
RETL @0X20
RETL @0X41 ;A
RETL @0X55 ;U
RETL @0X58 ;X
RETL @0X31 ;1
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X56
RETL @0X4F
RETL @0X4C
RETL @0X20
RETL @0X33
RETL @0X30
V_PHONO:
TBL
RETL @0X20
RETL @0X50 ;P
RETL @0X48 ;H
RETL @0X4F ;O
RETL @0X4E ;N
RETL @0X4F ;O
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X56
RETL @0X4F
RETL @0X4C
RETL @0X20
RETL @0X33
RETL @0X30
V_DVD:
TBL
RETL @0X20
RETL @0X44 ;D
RETL @0X56 ;V
RETL @0X44 ;D
RETL @0X20 ;
RETL @0X20 ;
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X56
RETL @0X4F
RETL @0X4C
RETL @0X20
RETL @0X33
RETL @0X30
V_CD:
TBL
RETL @0X20
RETL @0X43 ;C
RETL @0X44 ;D
RETL @0X20 ;
RETL @0X20 ;
RETL @0X20 ;
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X56
RETL @0X4F
RETL @0X4C
RETL @0X20
RETL @0X33
RETL @0X30
V_TUNER:
TBL
RETL @0X20
RETL @0X54 ;T
RETL @0X55 ;U
RETL @0X4E ;N
RETL @0X45 ;E
RETL @0X52 ;R
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X56
RETL @0X4F
RETL @0X4C
RETL @0X20
RETL @0X33
RETL @0X30
V_BAL:
TBL
RETL @0X20
RETL @0X42 ;B
RETL @0X61 ;a
RETL @0X6C ;l
RETL @0X2d ;-
RETL @0X2d ;
RETL @0X2d
RETL @0X2d
RETL @0X2d
RETL @0X2d
RETL @0X0c
RETL @0X2d
RETL @0X2d
RETL @0X2d
RETL @0X2d
RETL @0X2d
RETL @0X2d
V_Loudness:
TBL
RETL @0X20
RETL @0X4c ;L
RETL @0X6f ;o
RETL @0X75 ;u
RETL @0X64 ;d
RETL @0X6e ;n
RETL @0X65 ;e
RETL @0X73 ;s
RETL @0X73 ;s
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X3c ;<
RETL @0X4f ;O
RETL @0X46 ;F
RETL @0X46 ;F
RETL @0X3E ;>
V_Bass:
TBL
RETL @0X20
RETL @0X42 ;B
RETL @0X61 ;a
RETL @0X73 ;s
RETL @0X73 ;s
RETL @0X20 ;
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X2D
RETL @0X31
RETL @0X34
RETL @0X20
RETL @0X64
RETL @0X42
V_Treble:
TBL
RETL @0X20
RETL @0X54 ;T
RETL @0X72 ;r
RETL @0X65 ;e
RETL @0X62 ;b
RETL @0X6c ;l
RETL @0X66 ;e
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X20
RETL @0X2D
RETL @0X31
RETL @0X34
RETL @0X20
RETL @0X64
RETL @0X42
ORG 800H
DELAY1S:
BS R4,7
BC R4,6
MOV A,@10
MOV TEM21,A
DELAY1S_1:
MOV A,@200
MOV TEM22,A
DELAY1S_2:
MOV A,@248
MOV TEM23,A
DELAY1S_3:
NOP
DJZ TEM23
JMP DELAY1S_3
DJZ TEM22
JMP DELAY1S_2
DJZ TEM21
JMP DELAY1S_1
BC R4,7
BC R4,6
RET
iccnop:
nop
nop
nop
nop
nop
NOP
nop
nop
nop
nop
nop
ret
;/////////////////////////////////////
;DATA P62
;CLK1 P61
;CLK2 P64
WRNBYT:
BS R4,7
mov a,@0x61
iow P6
wloop:
;; jbs P5,SDA
; jmp wloop
; mov a,@0xc0
;iow P5
WRBYT_1:
CALL STA
NOP
MOV A,@0X88
MOV TEM21,A
CALL WRBYT
CALL CACK
JBC XO,4
JMP WRBYT_1
MOV A,MDT
MOV TEM21,A
CALL WRBYT
CALL CACK
JBC XO,4
JMP WRBYT_1
MOV A,MDT+1
MOV TEM21,A
CALL WRBYT
CALL CACK
JBC XO,4
JMP WRBYT_1
CALL STOP
BC R4,7
RET
;/////////////////////
STA:
BS P6,SCL1
call iccnop
BS P6,SDA
call iccnop
BC P6,SDA
call iccnop
BC P6,SCL1
call iccnop
RET
;//////////////////////////
STOP:
MOV A,@0x61
IOW P6
NOP
NOP
BC P6,SDA
call iccnop
BS P6,SCL1
call iccnop
BC P6,SDA
call iccnop
BC P6,SCL1
call iccnop
MOV A,@2
IOW P6
RET
;///////////////////////////
CACK:
NOP
nop
NOP
BS P6,SCL1
call iccnop
BC XO,4
JBC P6,SDA
BS XO,4
BC P6,SCL1
call iccnop
RET
;//////////////////////////
WRBYT:
MOV A,@09
MOV BT_CNT,A
MOV A,@0x61
IOW P6
WRBYT_LOOP:
DJZ BT_CNT
JMP WRBYT_NEXT1
MOV A,@0x65
IOW P6
RET
WRBYT_NEXT1:
BS P6,SDA
JBS TEM21,7
BC P6,SDA
call iccnop
BS P6,SCL1
call iccnop
bc P6,SCL1
RLC TEM21
JMP WRBYT_LOOP
;/////////////////////////////////////
WRNBYT2:
BS R4,7
mov a,@0x61
iow P6
wloop2:
;; jbs P5,SDA
; jmp wloop
; mov a,@0xc0
;iow P5
WRBYT2_1:
CALL STA2
NOP
MOV A,@0X88
MOV TEM21,A
CALL WRBYT2
CALL CACK2
JBC XO,4
JMP WRBYT2_1
MOV A,MDT
MOV TEM21,A
CALL WRBYT2
CALL CACK2
JBC XO,4
JMP WRBYT2_1
MOV A,MDT+1
MOV TEM21,A
CALL WRBYT2
CALL CACK2
JBC XO,4
JMP WRBYT2_1
CALL STOP2
BC R4,7
RET
;/////////////////////
STA2:
BS P6,SCL2
call iccnop
BS P6,SDA
call iccnop
BC P6,SDA
call iccnop
BC P6,SCL2
call iccnop
RET
;//////////////////////////
STOP2:
MOV A,@0x61
IOW P6
NOP
NOP
BC P6,SDA
call iccnop
BS P6,SCL2
call iccnop
BC P6,SDA
call iccnop
BC P6,SCL2
call iccnop
MOV A,@0X61
IOW P6
RET
;///////////////////////////
CACK2:
NOP
nop
NOP
BS P6,SCL2
call iccnop
BC XO,4
JBC P6,SDA
BS XO,4
BC P6,SCL2
call iccnop
RET
;//////////////////////////
WRBYT2:
MOV A,@09
MOV BT_CNT,A
MOV A,@0x61
IOW P6
WRBYT_LOOP2:
DJZ BT_CNT
JMP WRBYT_NEXT21
MOV A,@0x65
IOW P6
RET
WRBYT_NEXT21:
BS P6,SDA
JBS TEM21,7
BC P6,SDA
call iccnop
BS P6,SCL2
call iccnop
bc P6,SCL2
RLC TEM21
JMP WRBYT_LOOP2
;/////////////////////////////////////
VOLUE:
BS R4,7
MOV A,@0X30
MOV MDT,A
MOV A,@0XC0
MOV MDT1,A
CALL WRNBYT
BS R4,7
MOV A,@0X40
MOV MDT,A
MOV A,@0XE0
MOV MDT1,A
CALL WRNBYT
BS R4,7
MOV A,@0X15
MOV MDT,A
MOV A,@0XC0
MOV MDT1,A
CALL WRNBYT2
BS R4,7
MOV A,@0X58
MOV MDT,A
MOV A,@0XE0
MOV MDT1,A
CALL WRNBYT2
;BS R4,7
BC R4,7
RET
; /////////////////////////
yao_kong:
jbS ISR,3
JMP REMOT_E
BC ISR,3
CLR R1
REMOT2:
;JBC P6,0
JBC ISR,3
JMP REMOT2A
MOV A,R1
SUB A,@250
JBS R3,0
JMP REMOT_E
JMP REMOT2
REMOT2A:
BC ISR,3
MOV A,R1
CLR R1
JMP REMOT3
MOV TEM1,A
SUB A,@98
JBS R3,0
JMP REMOT3
; MOV A,LAST_REV
; MOV RF3,A
MOV A,TEM1
SUB A,@30
JBS R3,0
JMP REMOT2B
JMP REMOT4
REMOT2B:
JBS XO1,1
BS XO,1
BC XO1,1
REMOT4:
;JBS P6,0
;JMP REMOT4
JMP REMOT_EXT
REMOT3:
MOV A,@0X20 ;32
MOV RFCNT,A
BYTE1:
JBC ISR,3
JMP BYTE1A
MOV A,R1
; MOV TEM1,A
SUB A,@100
JBC R3,0
JMP BYTE1
JBS XO1,1
BS XO,1
BC XO1,1
JMP REMOT_E
BYTE1A:
MOV A,R1
BC ISR,3
CLR R1
SUB A,@26 ;17
RRC RF3
RRC RF2
RRC RF1
RRC RF0
DJZ RFCNT
JMP BYTE1
BYTE3:
MOV A,RF1
XOR A,@0X20
JBS R3,2
JMP REMOT_E
MOV A,RF0
XOR A,@0XDF
JBS R3,2
JMP REMOT_E
COMA RF2
XOR A,RF3
JBS R3,2
JMP REMOT_E
YIMA:
; MOV A,RF3
; MOV LAST_REV,A
BS XO,1
BS XO1,1
REMOT_EXT:
/* MOV A,@0XFF
MOV R1,A
BC RF,0
JBC XO,0
JMP REMOT_E
MOV A,@0X10
XOR A,RF3
JBC R3,2
JMP REMOT_E
BC XO,1*/
REMOT_E:
RET
END⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -