📄 strings.asm
字号:
; line 90
$DGL 0,6
mov a,[hl+8] ; strIpt ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+9] ; strIpt ;[INF] 2, 8
call !_strlen ;[INF] 3, 7
movw ax,bc ;[INF] 1, 4
mov [hl+5],a ; numLen ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+4],a ; numLen ;[INF] 2, 8
; line 92
$DGL 0,8
xch a,x ;[INF] 1, 2
cmpw ax,#01H ; 1 ;[INF] 3, 6
or1 CY,a.7 ;[INF] 2, 4
bnc $?L0050 ;[INF] 2, 6
movw bc,#0FFFFH ; -1 ;[INF] 3, 6
movw de,#0FFFFH ; -1 ;[INF] 3, 6
br !?L0049 ;[INF] 3, 6
?L0050:
; line 95
$DGL 0,11
mov a,#00H ; 0 ;[INF] 2, 4
mov [hl+6],a ; i ;[INF] 2, 8
mov [hl+7],a ; i ;[INF] 2, 8
?L0052:
mov a,[hl+6] ; i ;[INF] 2, 8
add a,[hl+8] ; strIpt ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; i ;[INF] 2, 8
addc a,[hl+9] ; strIpt ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
mov a,[de] ;[INF] 1, 4
cmp a,#00H ; 0 ;[INF] 2, 4
bz $?L0053 ;[INF] 2, 6
; line 96
$DGL 0,12
??bb00_atol:
; line 97
$DGL 0,13
mov a,[hl+6] ; i ;[INF] 2, 8
add a,[hl+8] ; strIpt ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; i ;[INF] 2, 8
addc a,[hl+9] ; strIpt ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
mov a,[de] ;[INF] 1, 4
cmp a,#030H ; 48 ;[INF] 2, 4
bc $?L0057 ;[INF] 2, 6
mov a,[hl+6] ; i ;[INF] 2, 8
add a,[hl+8] ; strIpt ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; i ;[INF] 2, 8
addc a,[hl+9] ; strIpt ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
mov a,[de] ;[INF] 1, 4
cmp a,#039H ; 57 ;[INF] 2, 4
bc $?L0055 ;[INF] 2, 6
bz $?L0055 ;[INF] 2, 6
?L0057:
movw bc,#0FFFFH ; -1 ;[INF] 3, 6
movw de,#0FFFFH ; -1 ;[INF] 3, 6
br $?L0049 ;[INF] 2, 6
?L0055:
??eb00_atol:
; line 98
$DGL 0,14
mov a,[hl+6] ; i ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; i ;[INF] 2, 8
incw ax ;[INF] 1, 4
mov [hl+7],a ; i ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+6],a ; i ;[INF] 2, 8
br $?L0052 ;[INF] 2, 6
?L0053:
; line 101
$DGL 0,17
mov a,#00H ; 0 ;[INF] 2, 4
mov [hl+6],a ; i ;[INF] 2, 8
mov [hl+7],a ; i ;[INF] 2, 8
?L0058:
mov a,[hl+6] ; i ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; i ;[INF] 2, 8
movw _@RTARG0,ax ;[INF] 2, 6
mov a,[hl+4] ; numLen ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+5] ; numLen ;[INF] 2, 8
call !@@iscmp ;[INF] 3, 7
bnc $?L0059 ;[INF] 2, 6
; line 102
$DGL 0,18
??bb01_atol:
; line 103
$DGL 0,19
mov a,[hl] ; tmp ;[INF] 1, 4
xch a,x ;[INF] 1, 2
mov a,[hl+1] ; tmp ;[INF] 2, 8
movw _@RTARG0,ax ;[INF] 2, 6
mov a,[hl+2] ; tmp ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+3] ; tmp ;[INF] 2, 8
movw _@RTARG2,ax ;[INF] 2, 6
movw _@RTARG4,#0AH ; 10 ;[INF] 4, 8
movw ax,#00H ; 0 ;[INF] 3, 6
call !@@lsmul ;[INF] 3, 7
mov a,[hl+6] ; i ;[INF] 2, 8
add a,[hl+8] ; strIpt ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; i ;[INF] 2, 8
addc a,[hl+9] ; strIpt ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
mov a,[de] ;[INF] 1, 4
sub a,#030H ; 48 ;[INF] 2, 4
mov _@RTARG4,a ;[INF] 2, 4
mov _@RTARG5,#00H ; 0 ;[INF] 3, 6
movw _@RTARG6,#00H ; 0 ;[INF] 4, 8
movw ax,_@RTARG6 ;[INF] 2, 6
call !@@lsadd ;[INF] 3, 7
movw ax,_@RTARG2 ;[INF] 2, 6
mov [hl+3],a ; tmp ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+2],a ; tmp ;[INF] 2, 8
movw ax,_@RTARG0 ;[INF] 2, 6
mov [hl+1],a ; tmp ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl],a ; tmp ;[INF] 1, 4
??eb01_atol:
; line 104
$DGL 0,20
mov a,[hl+6] ; i ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; i ;[INF] 2, 8
incw ax ;[INF] 1, 4
mov [hl+7],a ; i ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+6],a ; i ;[INF] 2, 8
br $?L0058 ;[INF] 2, 6
?L0059:
; line 106
$DGL 0,22
mov a,[hl+2] ; tmp ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+3] ; tmp ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
mov a,[hl] ; tmp ;[INF] 1, 4
xch a,x ;[INF] 1, 2
mov a,[hl+1] ; tmp ;[INF] 2, 8
movw bc,ax ;[INF] 1, 4
?L0049:
; line 107
$DGL 0,23
??ef_atol:
pop ax ;[INF] 1, 4
pop ax ;[INF] 1, 4
pop ax ;[INF] 1, 4
pop ax ;[INF] 1, 4
pop ax ;[INF] 1, 4
pop hl ;[INF] 1, 4
ret ;[INF] 1, 6
??ee_atol:
; line 110
_ltoa:
$DGL 1,116
push hl ;[INF] 1, 4
push bc ;[INF] 1, 4
push ax ;[INF] 1, 4
push ax ;[INF] 1, 4
push ax ;[INF] 1, 4
push ax ;[INF] 1, 4
movw ax,sp ;[INF] 2, 8
movw hl,ax ;[INF] 1, 4
??bf_ltoa:
; line 116
$DGL 0,7
mov a,[hl+14] ; buf ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+15] ; buf ;[INF] 2, 8
mov [hl+5],a ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+4],a ; p ;[INF] 2, 8
; line 118
$DGL 0,9
xch a,x ;[INF] 1, 2
mov [hl+3],a ; firstdig ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+2],a ; firstdig ;[INF] 2, 8
; line 120
$DGL 0,11
?L0063:
??bb00_ltoa:
; line 121
$DGL 0,12
mov a,[hl+6] ; val ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; val ;[INF] 2, 8
movw _@RTARG0,ax ;[INF] 2, 6
mov a,[hl+8] ; val ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+9] ; val ;[INF] 2, 8
movw _@RTARG2,ax ;[INF] 2, 6
movw _@RTARG4,#0AH ; 10 ;[INF] 4, 8
movw ax,#00H ; 0 ;[INF] 3, 6
call !@@lurem ;[INF] 3, 7
mov a,_@RTARG0 ;[INF] 2, 4
mov [hl],a ; digval ;[INF] 1, 4
; line 122
$DGL 0,13
mov a,[hl+6] ; val ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; val ;[INF] 2, 8
movw _@RTARG0,ax ;[INF] 2, 6
mov a,[hl+8] ; val ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+9] ; val ;[INF] 2, 8
movw _@RTARG2,ax ;[INF] 2, 6
movw _@RTARG4,#0AH ; 10 ;[INF] 4, 8
movw ax,#00H ; 0 ;[INF] 3, 6
call !@@ludiv ;[INF] 3, 7
movw ax,_@RTARG2 ;[INF] 2, 6
mov [hl+9],a ; val ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+8],a ; val ;[INF] 2, 8
movw ax,_@RTARG0 ;[INF] 2, 6
mov [hl+7],a ; val ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+6],a ; val ;[INF] 2, 8
; line 125
$DGL 0,16
mov a,#09H ; 9 ;[INF] 2, 4
cmp a,[hl] ; digval ;[INF] 1, 4
bnc $?L0066 ;[INF] 2, 6
; line 126
$DGL 0,17
mov a,[hl] ; digval ;[INF] 1, 4
sub a,#0A9H ; 169 ;[INF] 2, 4
mov c,a ;[INF] 1, 2
mov a,[hl+4] ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+5] ; p ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
incw ax ;[INF] 1, 4
mov [hl+5],a ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+4],a ; p ;[INF] 2, 8
mov a,c ;[INF] 1, 2
mov [de],a ;[INF] 1, 4
br $?L0067 ;[INF] 2, 6
?L0066:
; line 128
$DGL 0,19
mov a,[hl] ; digval ;[INF] 1, 4
add a,#030H ; 48 ;[INF] 2, 4
mov c,a ;[INF] 1, 2
mov a,[hl+4] ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+5] ; p ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
incw ax ;[INF] 1, 4
mov [hl+5],a ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+4],a ; p ;[INF] 2, 8
mov a,c ;[INF] 1, 2
mov [de],a ;[INF] 1, 4
?L0067:
??eb00_ltoa:
; line 129
$DGL 0,20
mov a,[hl+8] ; val ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+9] ; val ;[INF] 2, 8
cmpw ax,#00H ; 0 ;[INF] 3, 6
bnz $?L0068 ;[INF] 2, 6
mov a,[hl+6] ; val ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; val ;[INF] 2, 8
cmpw ax,#00H ; 0 ;[INF] 3, 6
?L0068:
bc $$+7 ;[INF] 2, 6
bz $$+5 ;[INF] 2, 6
br !?L0063 ;[INF] 3, 6
; line 134
$DGL 0,25
mov a,[hl+4] ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+5] ; p ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
decw ax ;[INF] 1, 4
mov [hl+5],a ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+4],a ; p ;[INF] 2, 8
mov a,#00H ; 0 ;[INF] 2, 4
mov [de],a ;[INF] 1, 4
; line 136
$DGL 0,27
?L0069:
??bb01_ltoa:
; line 137
$DGL 0,28
mov a,[hl+4] ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+5] ; p ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
mov a,[de] ;[INF] 1, 4
mov [hl+1],a ; temp ;[INF] 2, 8
; line 138
$DGL 0,29
mov a,[hl+2] ; firstdig ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+3] ; firstdig ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
mov a,[de] ;[INF] 1, 4
mov c,a ;[INF] 1, 2
mov a,[hl+4] ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+5] ; p ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
mov a,c ;[INF] 1, 2
mov [de],a ;[INF] 1, 4
; line 139
$DGL 0,30
mov a,[hl+2] ; firstdig ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+3] ; firstdig ;[INF] 2, 8
movw de,ax ;[INF] 1, 4
mov a,[hl+1] ; temp ;[INF] 2, 8
mov [de],a ;[INF] 1, 4
; line 140
$DGL 0,31
mov a,[hl+4] ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+5] ; p ;[INF] 2, 8
decw ax ;[INF] 1, 4
mov [hl+5],a ; p ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+4],a ; p ;[INF] 2, 8
; line 141
$DGL 0,32
mov a,[hl+2] ; firstdig ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+3] ; firstdig ;[INF] 2, 8
incw ax ;[INF] 1, 4
mov [hl+3],a ; firstdig ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+2],a ; firstdig ;[INF] 2, 8
??eb01_ltoa:
; line 142
$DGL 0,33
mov a,[hl+3] ; firstdig ;[INF] 2, 8
cmp a,[hl+5] ; p ;[INF] 2, 8
bnz $?L0072 ;[INF] 2, 6
mov a,[hl+2] ; firstdig ;[INF] 2, 8
cmp a,[hl+4] ; p ;[INF] 2, 8
?L0072:
bc $?L0069 ;[INF] 2, 6
; line 143
$DGL 0,34
??ef_ltoa:
pop ax ;[INF] 1, 4
pop ax ;[INF] 1, 4
pop ax ;[INF] 1, 4
pop ax ;[INF] 1, 4
pop ax ;[INF] 1, 4
pop hl ;[INF] 1, 4
ret ;[INF] 1, 6
??ee_ltoa:
; line 146
_Asc2BCD:
$DGL 1,136
push hl ;[INF] 1, 4
push ax ;[INF] 1, 4
movw ax,sp ;[INF] 2, 8
subw ax,#0CH ;[INF] 3, 6
movw sp,ax ;[INF] 2, 8
movw hl,ax ;[INF] 1, 4
??bf_Asc2BCD:
; line 149
$DGL 0,4
mov a,[hl+12] ; asc ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+13] ; asc ;[INF] 2, 8
mov [hl+3],a ; sn ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+2],a ; sn ;[INF] 2, 8
mov a,[hl+18] ; bcd ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+19] ; bcd ;[INF] 2, 8
mov [hl+1],a ; sb ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl],a ; sb ;[INF] 1, 4
; line 151
$DGL 0,6
mov a,[hl+12] ; asc ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+13] ; asc ;[INF] 2, 8
call !_strlen ;[INF] 3, 7
movw ax,bc ;[INF] 1, 4
mov [hl+5],a ; asc_len ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+4],a ; asc_len ;[INF] 2, 8
; line 153
$DGL 0,8
xch a,x ;[INF] 1, 2
cmpw ax,#01H ; 1 ;[INF] 3, 6
or1 CY,a.7 ;[INF] 2, 4
bnc $?L0075 ;[INF] 2, 6
movw bc,#0FFFFH ; -1 ;[INF] 3, 6
br !?L0074 ;[INF] 3, 6
?L0075:
; line 155
$DGL 0,10
mov a,[hl+4] ; asc_len ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+5] ; asc_len ;[INF] 2, 8
incw ax ;[INF] 1, 4
movw _@RTARG0,ax ;[INF] 2, 6
movw ax,#02H ; 2 ;[INF] 3, 6
call !@@isdiv ;[INF] 3, 7
mov [hl+7],a ; n ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+6],a ; n ;[INF] 2, 8
; line 157
$DGL 0,12
mov a,[hl+4] ; asc_len ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+5] ; asc_len ;[INF] 2, 8
decw ax ;[INF] 1, 4
mov [hl+11],a ; i ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+10],a ; i ;[INF] 2, 8
mov a,[hl+6] ; n ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+7] ; n ;[INF] 2, 8
decw ax ;[INF] 1, 4
mov [hl+9],a ; j ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov [hl+8],a ; j ;[INF] 2, 8
?L0077:
mov a,[hl+8] ; j ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+9] ; j ;[INF] 2, 8
cmpw ax,#00H ; 0 ;[INF] 3, 6
or1 CY,a.7 ;[INF] 2, 4
bnc $$+5 ;[INF] 2, 6
br !?L0078 ;[INF] 3, 6
; line 158
$DGL 0,13
??bb00_Asc2BCD:
; line 159
$DGL 0,14
mov a,[hl+10] ; i ;[INF] 2, 8
xch a,x ;[INF] 1, 2
mov a,[hl+11] ; i ;[INF] 2, 8
cmpw ax,#00H ; 0 ;[INF] 3, 6
or1 CY,a.7 ;[INF] 2, 4
bc $?L0080 ;[INF] 2, 6
; line 160
$DGL 0,15
??bb01_Asc2BCD:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -