📄 self_test.med
字号:
957 db "1234567 1234567" ;18
958 db "123456 123456" ;19
959 db "12345 12345" ;20
960 db "1234 1234" ;21
961 db "123 123" ;22
962 db "12 12" ;23
963 db "1 1" ;24
964 ;--------------------------------------------------------------------------
965 temp_vprn:
966 call spc_prnbuf
967 call print
968 ld hl,M_TEMP
969 call set_1line
970 ld a,(HD_TEMP)
971 add a,0x0
972 daa a
973
974 push a
975 swap a
976 and a,0x0f
977 or a,0x30
978 ld (PRN_BUF_MSD+15),a
979 pop a
980 and a,0x0f
981 or a,0x30
982 ld (PRN_BUF_MSD+16),a
983 call print
984
985 ld hl,M_VPRN
986 call set_1line
987 ld a,(VPRN)
988 cmp a,152
989 j ge,vprn_ad0
990 ld a,152
991 j vprn_ad2
992 vprn_ad0:
993 cmp a,212
994 j lt,vprn_ad2
995 ld a,212
996 vprn_ad2:
997 sub a,152
998 shlc a
999 shlc a
1000 ld w,0
1001 ld hl,vprn_tbl
1002 add hl,wa
1003 ld a,(hl)
1004 ld (PRN_BUF_MSD+12),a
1005 ld (PRN_BUF_MSD+13),'.'
1006 ld a,(hl+1)
1007 ld (PRN_BUF_MSD+14),a
1008 ld a,(hl+2)
1009 ld (PRN_BUF_MSD+15),a
1010 ld a,(hl+3)
1011 ld (PRN_BUF_MSD+16),a
1012 call print
1013 ret
1014
1015 vprn_tbl:
1016 db "5938"
1017 db "5977"
1018 db "6016"
1019 db "6055"
1020 db "6094"
1021 db "6133"
1022 db "6172"
1023 db "6211"
1024 db "6250"
1025 db "6289"
1026 db "6328"
1027 db "6367"
1028 db "6406"
1029 db "6445"
1030 db "6484"
1031 db "6523"
1032 db "6563"
1033 db "6602"
1034 db "6641"
1035 db "6680"
1036 db "6719"
1037 db "6758"
1038 db "6797"
1039 db "6836"
1040 db "6875"
1041 db "6914"
1042 db "6953"
1043 db "6992"
1044 db "7031"
1045 db "7070"
1046 db "7109"
1047 db "7148"
1048 db "7188"
1049 db "7227"
1050 db "7266"
1051 db "7305"
1052 db "7344"
1053 db "7383"
1054 db "7422"
1055 db "7461"
1056 db "7500"
1057 db "7539"
1058 db "7578"
1059 db "7617"
1060 db "7656"
1061 db "7695"
1062 db "7734"
1063 db "7773"
1064 db "7813"
1065 db "7852"
1066 db "7891"
1067 db "7930"
1068 db "7969"
1069 db "8008"
1070 db "8047"
1071 db "8086"
1072 db "8125"
1073 db "8164"
1074 db "8203"
1075 db "8242"
1076 db "8281"
1077
1078
1079
1080
1081 ;--------------------------------------------------------------------------
1082 ;==============================================================================
1083 ; EEPROM Data port initial
1084 ;==============================================================================
1088 ;==============================================================================
1089 ; EEPROM Data port release (release P17,P16 for share SIO)
1090 ;==============================================================================
1091
1092 ee_test:
1094 +1 ld wa,IO_MT
1095 +1 test (IO_MT>>4).a ;bit -reverse-> jump status
1096 +1 j f,ee_test ;if jump status is 0 -> branch
1097 call eeprom_check
1099 +1 ld wa,EP_FAIL
1100 +1 test (EP_FAIL>>4).a ;bit -reverse-> jump status
1101 +1 j f,ee_error ;if jump status is 0 -> branch
1102 ld hl,M_EEOK
1103 call set_1line
1104 call print
1105 ret
1106
1107 ee_error:
1108 ld hl,M_EENG
1109 call set_1line
1110 call print
1111 ret
1112
1113
1114 vfd_test:
1115 ld a,0x20
1116 vfd_test_1:
1117 push a
1118 call set_disp_test
1119 call disp_to_dbr
1120 call wait_100ms
1121 call wait_100ms
1122 call wait_100ms
1123 pop a
1124 inc a
1125 cmp a,0x28
1126 j le,vfd_test_1
1127
1128 call spc_disp
1129 call disp_to_dbr
1130 call wait_100ms
1131 call wait_100ms
1132 call wait_100ms
1134 +1 ld wa,ICON_M
1135 +1 set (ICON_M>>4).a
1136 call disp_to_dbr
1137 call wait_100ms
1138 call wait_100ms
1139 call wait_100ms
1141 +1 ld wa,ICON_M
1142 +1 clr (ICON_M>>4).a
1144 +1 ld wa,ICON_MIN
1145 +1 set (ICON_MIN>>4).a
1146 call disp_to_dbr
1147 call wait_100ms
1148 call wait_100ms
1149 call wait_100ms
1151 +1 ld wa,ICON_MIN
1152 +1 clr (ICON_MIN>>4).a
1154 +1 ld wa,ICON_E
1155 +1 set (ICON_E>>4).a
1156 call disp_to_dbr
1157 call wait_100ms
1158 call wait_100ms
1159 call wait_100ms
1161 +1 ld wa,ICON_E
1162 +1 clr (ICON_E>>4).a
1163 call spc_disp
1164 ld hl,DISP_LSD
1165 vfd_test_2:
1166
1167 ld (hl),0y11001000
1168 push hl
1169 call disp_to_dbr
1170 call wait_100ms
1171 call wait_100ms
1172 call wait_100ms
1173 call spc_disp
1174 pop hl
1175 dec hl
1176 cmp hl,DISP
1177 j ne,vfd_test_2
1179 +1 ld wa,ICON_M
1180 +1 set (ICON_M>>4).a
1182 +1 ld wa,ICON_MIN
1183 +1 set (ICON_MIN>>4).a
1185 +1 ld wa,ICON_E
1186 +1 set (ICON_E>>4).a
1187 ld a,0y11001000
1188 call set_disp_test
1189 call disp_to_dbr
1190 call wait_100ms
1191 call wait_100ms
1192 call wait_100ms
1194 +1 ld wa,ICON_M
1195 +1 clr (ICON_M>>4).a
1197 +1 ld wa,ICON_MIN
1198 +1 clr (ICON_MIN>>4).a
1200 +1 ld wa,ICON_E
1201 +1 clr (ICON_E>>4).a
1202 call spc_disp
1203 call disp_to_dbr
1204 ld hl,DISP_FINISH
1205 call set_1line
1206 call print
1207 ret
1208
1209 set_disp_test:
1210 ld c,14-2
1211 set_disp_test_1:
1212 ld hl,DISP+2
1213 ld (hl+c),a
1214 dec c
1215 j f,set_disp_test_1
1216 ret
1217
1218
1219 end
Toshiba Unified Macro processor (32) V1.0o [Page 2]
Cross reference & Symbol table listing
--------------------------------------
Name Type Value Reference
BBC MAC
BBS MAC
CLB MAC
D14 VAL 0x00000001
EE_PORTINI MAC
GC0 VAL 0x00000000
GC1 VAL 0x00000000
GC2 VAL 0x00000000
GC3 VAL 0x00000000
GC4 VAL 0x00000000
GC5 VAL 0x00000000
GC6 VAL 0x00000000
GC7 VAL 0x00000000
GC8 VAL 0x00000000
GC9 VAL 0x00000000
IS_M2 MAC
IS_TX2 MAC
OFF VAL 0x00000000
ON VAL 0x00000001
POP_REG MAC
PUSH_REG MAC
RST_IN_OFF MAC
RST_IN_ON MAC
S100_W2 MAC
S1_W2 MAC
SEB MAC
UP_COM VAL 0x00000000
if_finance_on MAC
interval_tm_disable
MAC
interval_tm_enable
MAC
User defined identifier, 30 symbol(s)
Macro processing end, No error
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -