📄 das1210.lst
字号:
0094 120000 R LCALL _tx_byte
0097 74F7 MOV A,#0F7H
0099 2581 ADD A,SP
009B F581 MOV SP,A
009D 22 RET
; FUNCTION ?prt_digit (END)
; FUNCTION _print (BEGIN)
; SOURCE LINE # 39
0000 8C00 R MOV i,R4
0002 8D00 R MOV i+01H,R5
0004 8E00 R MOV i+02H,R6
0006 8F00 R MOV i+03H,R7
; SOURCE LINE # 41
0008 C000 R PUSH i
000A C000 R PUSH i+01H
000C C000 R PUSH i+02H
000E C000 R PUSH i+03H
0010 E4 CLR A
0011 FF MOV R7,A
0012 FE MOV R6,A
0013 FC MOV R4,A
0014 FD MOV R5,A
0015 120000 R LCALL ?C_CMPLS
0018 BFFF1E CJNE R7,#0FFH,?NXT5
001B 7F2D MOV R7,#02DH
001D 120000 R LCALL _tx_byte
0020 C000 R PUSH i
0022 C000 R PUSH i+01H
0024 C000 R PUSH i+02H
0026 C000 R PUSH i+03H
0028 74FF MOV A,#0FFH
002A FF MOV R7,A
002B FE MOV R6,A
002C FC MOV R4,A
002D FD MOV R5,A
002E 120000 R LCALL ?C_LMUL
0031 8C00 R MOV i,R4
0033 8D00 R MOV i+01H,R5
0035 8E00 R MOV i+02H,R6
0037 8F00 R MOV i+03H,R7
0039 ?NXT5:
; SOURCE LINE # 42
0039 C000 R PUSH d
003B AC00 R MOV R4,i
003D AD00 R MOV R5,i+01H
003F AE00 R MOV R6,i+02H
0041 AF00 R MOV R7,i+03H
0043 120000 R LCALL ?prt_digit
0046 1581 DEC SP
0048 120000 R LCALL putspace4
004B 22 RET
; FUNCTION _print (END)
; FUNCTION acquire (BEGIN)
; SOURCE LINE # 48
0000 750000 R MOV j,#000H
0003 ?FOR2:
0003 120000 R LCALL bipolar
0006 8C00 R MOV adres,R4
0008 8D00 R MOV adres+01H,R5
000A 8E00 R MOV adres+02H,R6
000C 8F00 R MOV adres+03H,R7
000E 0500 R INC j
0010 E500 R MOV A,j
0012 B405EE CJNE A,#005H,?FOR2
; SOURCE LINE # 49
0015 8500E6 R MOV ODAC,odac_temp
; SOURCE LINE # 50
0018 120000 R LCALL bipolar
001B 8C00 R MOV adres,R4
001D 8D00 R MOV adres+01H,R5
001F 8E00 R MOV adres+02H,R6
0021 8F00 R MOV adres+03H,R7
0023 ?WHILE2:
; SOURCE LINE # 52
0023 7E00 R MOV R6,#HIGH(?STR?DAS1210?BASE)
0025 7F00 R MOV R7,#LOW(?STR?DAS1210?BASE)
0027 120000 R LCALL _put_string
002A A294 MOV C,TP3
002C E4 CLR A
002D 33 RLC A
002E 4430 ORL A,#030H
0030 FF MOV R7,A
0031 120000 R LCALL _tx_byte
; SOURCE LINE # 53
0034 7E00 R MOV R6,#HIGH(?STR?DAS1210?BASE + 010H)
0036 7F00 R MOV R7,#LOW(?STR?DAS1210?BASE + 010H)
0038 120000 R LCALL _put_string
003B A295 MOV C,TP4
003D E4 CLR A
003E 33 RLC A
003F 4430 ORL A,#030H
0041 FF MOV R7,A
0042 120000 R LCALL _tx_byte
; SOURCE LINE # 54
0045 7E00 R MOV R6,#HIGH(?STR?DAS1210?BASE + 016H)
0047 7F00 R MOV R7,#LOW(?STR?DAS1210?BASE + 016H)
0049 120000 R LCALL _put_string
004C A296 MOV C,TP5
004E E4 CLR A
004F 33 RLC A
0050 4430 ORL A,#030H
0052 FF MOV R7,A
0053 120000 R LCALL _tx_byte
; SOURCE LINE # 55
0056 7E00 R MOV R6,#HIGH(?STR?DAS1210?BASE + 01CH)
0058 7F00 R MOV R7,#LOW(?STR?DAS1210?BASE + 01CH)
005A 120000 R LCALL _put_string
005D A297 MOV C,TP6
005F E4 CLR A
0060 33 RLC A
0061 4430 ORL A,#030H
0063 FF MOV R7,A
0064 120000 R LCALL _tx_byte
; SOURCE LINE # 56
0067 E4 CLR A
0068 F500 R MOV u,A
006A F500 R MOV u+01H,A
006C F500 R MOV u+02H,A
006E F500 R MOV u+03H,A
0070 F500 R MOV x,A
0072 F500 R MOV x+01H,A
0074 F500 R MOV x+02H,A
0076 F500 R MOV x+03H,A
0078 F500 R MOV i,A
007A F500 R MOV i+01H,A
007C 120000 R LCALL putcr
007F ?WHILE3:
; SOURCE LINE # 57
007F E500 R MOV A,i
0081 B50005 R CJNE A,n,?LAB16
0084 E500 R MOV A,i+01H
0086 B50000 R CJNE A,n+01H,?LAB16
0089 ?LAB16:
0089 4003 JC $ + 5
008B 020000 R LJMP ?NXT16
; SOURCE LINE # 58
008E 120000 R LCALL putcr
; SOURCE LINE # 59
0091 750000 R MOV j,#000H
0094 ?FOR3:
; SOURCE LINE # 60
0094 120000 R LCALL bipolar
0097 8C00 R MOV adres,R4
0099 8D00 R MOV adres+01H,R5
009B 8E00 R MOV adres+02H,R6
009D 8F00 R MOV adres+03H,R7
; SOURCE LINE # 61
009F C000 R PUSH u
00A1 C000 R PUSH u+01H
00A3 C000 R PUSH u+02H
00A5 C000 R PUSH u+03H
00A7 120000 R LCALL ?CV_LS_IEEE
00AA 120000 R LCALL ?ADDIEEE
00AD 8C00 R MOV u,R4
00AF 8D00 R MOV u+01H,R5
00B1 8E00 R MOV u+02H,R6
00B3 8F00 R MOV u+03H,R7
00B5 C000 R PUSH x
00B7 C000 R PUSH x+01H
00B9 C000 R PUSH x+02H
00BB C000 R PUSH x+03H
00BD C000 R PUSH adres
00BF C000 R PUSH adres+01H
00C1 C000 R PUSH adres+02H
00C3 C000 R PUSH adres+03H
00C5 AC00 R MOV R4,adres
00C7 AD00 R MOV R5,adres+01H
00C9 AE00 R MOV R6,adres+02H
00CB AF00 R MOV R7,adres+03H
00CD 120000 R LCALL ?C_LMUL
00D0 120000 R LCALL ?CV_LS_IEEE
00D3 120000 R LCALL ?ADDIEEE
00D6 8C00 R MOV x,R4
00D8 8D00 R MOV x+01H,R5
00DA 8E00 R MOV x+02H,R6
00DC 8F00 R MOV x+03H,R7
00DE E4 CLR A
00DF F500 R MOV ?_print?BYTE,A
00E1 AC00 R MOV R4,adres
00E3 AD00 R MOV R5,adres+01H
00E5 AE00 R MOV R6,adres+02H
00E7 AF00 R MOV R7,adres+03H
00E9 120000 R LCALL _print
; SOURCE LINE # 62
00EC 7F09 MOV R7,#009H
00EE 120000 R LCALL _tx_byte
00F1 7F09 MOV R7,#009H
00F3 120000 R LCALL _tx_byte
; SOURCE LINE # 63
00F6 E500 R MOV A,i
00F8 B50005 R CJNE A,n,?LAB18
00FB E500 R MOV A,i+01H
00FD B50000 R CJNE A,n+01H,?LAB18
0100 ?LAB18:
0100 500F JNC ?NXT17
0102 0500 R INC i+01H
0104 E500 R MOV A,i+01H
0106 7002 JNZ ?NXT19
0108 0500 R INC i
010A ?NXT19:
010A ?NXT18:
; SOURCE LINE # 59
010A 0500 R INC j
010C E500 R MOV A,j
010E B40483 CJNE A,#004H,?FOR3
0111 ?NXT17:
0111 020000 R LJMP ?WHILE3
0114 ?NXT16:
; SOURCE LINE # 66
0114 C000 R PUSH u
0116 C000 R PUSH u+01H
0118 C000 R PUSH u+02H
011A C000 R PUSH u+03H
011C E4 CLR A
011D FC MOV R4,A
011E FD MOV R5,A
011F AE00 R MOV R6,n
0121 AF00 R MOV R7,n+01H
0123 120000 R LCALL ?CV_LU_IEEE
0126 120000 R LCALL ?DIVIIEEE
0129 8C00 R MOV u,R4
012B 8D00 R MOV u+01H,R5
012D 8E00 R MOV u+02H,R6
012F 8F00 R MOV u+03H,R7
0131 C000 R PUSH x
0133 C000 R PUSH x+01H
0135 C000 R PUSH x+02H
0137 C000 R PUSH x+03H
0139 E4 CLR A
013A FC MOV R4,A
013B FD MOV R5,A
013C AE00 R MOV R6,n
013E AF00 R MOV R7,n+01H
0140 120000 R LCALL ?CV_LU_IEEE
0143 120000 R LCALL ?DIVIIEEE
0146 C004 PUSH AR4
0148 C005 PUSH AR5
014A C006 PUSH AR6
014C C007 PUSH AR7
014E C000 R PUSH u
0150 C000 R PUSH u+01H
0152 C000 R PUSH u+02H
0154 C000 R PUSH u+03H
0156 AC00 R MOV R4,u
0158 AD00 R MOV R5,u+01H
015A AE00 R MOV R6,u+02H
015C AF00 R MOV R7,u+03H
015E 120000 R LCALL ?MULTIEEE
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -