📄 sub.med
字号:
Copyright(C) TOSHIBA CORPORATION 1987-2003 All rights reserved
Mon Sep 03 09:08:50 2007
Toshiba Unified Macro processor (32) V1.0o [Page 1]
Runtime option : -T870C -l -I D:\yuanyy\5514T\5514T_TOSHIBA.BLD\USER\SOURCE -lf SUB.med -$ -o C:\Temp\TAa02996 D:\yuanyy\5514T\5514T_TOSHIBA.BLD\USER\SOURCE\SUB.MAC
Line Source Statement
1 $nolist
2 ;*******************************************************************************
3 ;*******************************************************************************
4 ;* *
5 ;* (C)Copyright, CLOVER China Electronics Co.,LTD. *
6 ;* All Rigits Reserved *
7 ;* add:No.58-F Yang Dong Road, LuoFeng Demonstrative Zone Suzhou, China *
8 ;* Tel: 0512-67261886 Fax:0512-67261882 *
9 ;* http://www.clover.co.jp *
10 ;* *
11 ;*******************************************************************************
12 ;*******************************************************************************
13 ;
14 ; OBS CPD3212T source program
15 ; CPU: TOSHIBA TLC-870/C series TMP86CM74A
16 ; RAM: 2Kbytes(0040h - 083Fh)
17 ; ROM: 32Kbytes(8000h - FFFFh)
18 ;
19 ;
20 ;Sub routines
21
=1 24 ;External symbol definition for RAM
=1 25 ;SFR................
=1 26 extern small P0DR,P1DR,P2DR,P3DR,P4DR,P5DR,P6DR,P7DR,P8DR,P9DR
=1 27 extern small P0CR,P1OUTCR,P4CR1,P5CR
=1 28 extern small ADCCR1,ADCCR2
=1 29 extern small TC3DRA,TC3DRB,TC3CR,TC2CR,TC4CR,P1PRD,P2PRD,P3PRD,TC4DR
=1 30 extern small SIOCR1,SIOCR2,SIOSR,SIOBUF,PDDR
=1 31 ;---------0020h
=1 32 extern small TC1DRAL,TC1DRAH,TC1DRBL,TC1DRBH,TC2DRL,TC2DRH
=1 33 extern small ADCDR2,ADCDR1,P4CR2,TC3SEL,VFTCR1,VFTCR2,VFTCR3,VFTSR
=1 34 ;---------0031h
=1 35 extern small STOPCR,TC1CR,WDTCR1,WDTCR2
=1 36 extern small TBTCR,EINTCR,SYSCR1,SYSCR2,EIRL,EIRH,ILL,ILH,INTSEL,PSTW
=1 37 ;port assignment
=1 38 extern small STB2,STB1,LAT;EP_DIO,EP_SK,EP_CS
=1 39 extern small IO_PF
=1 40 extern small IO_CHR
=1 41 extern small IO_MT,ENA2,ENA1,IN1,IN2
=1 42 extern small SLID_RT0,SLID_RT1,SLID_RT2,SLID_RT3
=1 43 extern small G1,G2,G3,G4,G5,G6,G7,G8
=1 44 extern small G9,G10,G11,G12,G13,G14,G15,SEG_dp
=1 45 extern small SEGMENT
=1 46 extern small SEG_g,SEG_f,SEG_e,SEG_d,SEG_c,SEG_b,SEG_a,SEG_COM,SEG_M,SEG_MIN,SEG_E
=1 47
=1 48 ;RAM (40-FFh).........
=1 49 extern small W1,W2,W3,TENKEY,DISP,ACC,CONST,COST,SELL,MARG,IC_A
=1 50 extern small FLG_1,FLG_E,FLG_C,FLG_K
=1 51 extern small RP_TIM,TPSC,RP_TIM,TP_CNT,CL_CNT,TC1_COUNT,TC3_COUNT,TW1,F_PCONT
=1 52 extern small MDBK,MDFLG_RT,MDFLG,MDCHK,TEN_CT,DP_POS_RT,DP_POS,DW_CT,PRE_KEY,PRE_KEY_BK,SYM
=1 53 ;RAM equation (40-FFh)...........
=1 54
=1 55 extern small LENG_WK,OFF_S,OFF_MSD,OFF_MSD12,OFF_LSD,OFF_DP,OFF_MSD10
=1 56 extern small D_PRN_MAX,PRN_MAX
=1 57 extern PRN_BUF_SYM_LTP,PRN_BUF_LSD_LTP ;V4.03D_PRN_MAX_LTP,
=1 58 extern small W1_S,W1_LSD,W1_MSD,W1_DP,W2_S,W2_LSD,W2_MSD,W2_DP,W3_S,W3_LSD,W3_MSD,W3_DP
=1 59 extern small MDSW_0,MDSW_1,MDSW_2,MDSW_3,MDSW_01,MDSW_11,MDSW_21,MDSW
=1 60 extern small MDFLG,MDFLG_0,MDFLG_1,MDFLG_2,MDFLG_3,MDFLG_01,MDFLG_11,MDFLG_21
=1 61 extern small TEN_S,TEN_LSD,TEN_DP
=1 62 ;RAM (100h -).........
=1 63 extern DISP,TO_DBR,TO_DBR_LSD,DISP_CT,DISP_TMP,FLG_2
=1 64 extern YEAR,MON,DAY,HOUR,MIN,SEC,BLK_CT,BLK_D,PTR,RTC_CK,COLOR_CT,DELAY_CT
=1 65 extern KEY_BUF,KEY_WPTR,KEY_RPTR,KEY_CT,KEYIN,SCAN_BK,KI_CT,RET_BK,SCAN_CT
=1 66 extern PRN_BUF,TAXRT,FC1RT,FC2RT,FC3RT,PF_CNT,DT_BUF,DT_CT,TEMP,WO_CLR,W1_CLR
=1 67 extern MEM1,MEMGT,IC_M,IC_G,FLG_ICON,TW1_BAK,DT_DOT_CNT,DT_CHR_CNT,IC_BK
=1 68 extern MDFLG_RT3,MDFLG_RT2,MDFLG_RT1,MDFLG_RT0,MDFLG_RT21,MDFLG_RT11,MDFLG_RT01
=1 69 extern FLG_MODE
=1 70
=1 71 ;RAM equation (100h -)...........
=1 72 extern RAM_TOP,RAM_BOT
=1 73 extern T_YEAR,T_MON,T_DAY,T_HOUR,T_MIN,T_Y20,T_AMPM,BACKUP,BK_Y20,BK_HOUR,BK_AMPM
=1 74 extern DBR_SEG,DBR_TOP,DBR_BOT,MULSEL,DISP_MSD,DISP_LSD,STOPCR
=1 75 extern PRN_BUF_MSD,PRN_BUF_LSD,PRN_BUF_SYM,DT_BUF_MSD,DT_BUF_LSD,PRN_BUF_S,IC_SYM
=1 76 extern PRN_BUF_MSD_LTP
=1 77 extern AVR_ITEM,AVR_BUF
=1 78 extern EP_ADDR,EP_TIM,FINANCE_1,FINANCE_0,OFF_CT
=1 79 extern TAX2RT,EURO_RATE1,EURO_RATE2,FLG_RTC
=1 80 extern F_PCONT_1,F_PCONT_2
=1 81 ;RAM bit...........
=1 82 extern E_MUL,E_DIV,E_DLT,E_MUP,E_CST,E_SEL,E_MAR,F_M2CAL
=1 83 extern C_MUL,C_DIV,C_DLT,C_MUP,C_CST,C_SEL,C_MAR,CSM_RECALL
=1 84 extern F_CALER,F_ZDIVER,F_PERCAL,F_WAKE
=1 85 extern ICON_MIN,ICON_M,ICON_E,ICON_GT,F_ICDSP,F_GTON,RTC_CHK
=1 86 extern F_KON,F_KOFF,F_TNKEY
=1 87
=1 88 extern F_INIT,F_FEED,F_PRINT,F_FDREQ,F_PRREQ,F_RUSH,F_REDBAK,P_MOVE
=1 89 extern F_LPRN,F_EXFED,F_RVSE,F_RVSE,F_RVREQ,F_STBDLY,F_CHPOFF,F_REVCAN,F_STBON
=1 90 extern F_SSTB,F_BHLD,F_ACC,P_ERR,P_NP,P_RED,IO_MT,F_TRAN
=1 91
=1 92 extern F_MIN_TRA,F_DPIN,F_OFF,F_RATE,F_RTUPD
=1 93 extern SW_OFF_RT,SW_RAT_RT,SW_NP_RT,SW_FIN_RT,SW_FEED_RT,SW_DMY_RT,SW_24_RT,F_24ON,F_ENLARG,F_LARGP,F_INIREQ
=1 94 extern F_HLD_FED,F_HLD_SET,PAPER_FEED
=1 95 extern RTC_ON,RTC_TIM,RTC_24,RTC_DMY,RTC_YMD,RTC_SET,F_ICPN,NO_CLK,MEQ_ENB,ERR_MES,ERR_CLR
=1 96 extern EP_FAIL,EP_ACCES,RATE_PROG,IC_PROG,EURO_PROG
=1 97 extern M_TX2,M_TX1,M_M2,M_HAND,M_FINANCE
=1 98 extern SW_LTP,F_DOFF;M_VIC,M_JET,M_NIL,
=1 99 extern SLID_RT0,SLID_RT1,SLID_RT2
=1 100 extern SW_DP0,SW_DP1,SW_DP2,SW_DP3,SW_DP4,SW_DP5,SW_DP6,SW_ADM,SW_ADM12,SW_DTST,M10,SW_SG;
=1 101 extern SW_RND54,SW_RNDUP,SW_GT,SW_NP,SW_EUTX,SW_MGT,SW_OFF,SW_IC,SW_ICPM,SW_SGT,SW_SGM,SW_SGG
=1 102 extern SW_SGK,SW_EUROS,SW_FEED,SW_A,SW_M2,SW_AC,M14,SW_DMY,SW_TA,SW_V15,SW_24,SW_FIN,SW_RATE
=1 103 extern SW_IC_RT,SW_ICPM_RT,F_ICPM,F_EQU,SW_RND54_RT,SW_RNDUP_RT,SW_GT_RT,F_PEREXE,SW_ADM_RT
=1 104 extern FEED_REQ,DP_UPDATE,EURO_DISPLY,F_COUNTRY,F_COUNTRY1,F_COUNTRY2,F_COUNTRY_EQU,F_WAITP,F_TX12,RATE_INI
=1 105 extern M_FX_SD,M_FX_SGM,M_TA,M_FX_54,M_FX_M14,M_FX_V15,F_POWER,F_BLINK,M_FX_AC,M_5514T
=1 106 extern FN_INTEREST,FN_AMOUNT,FN_MONTH,FN_PAYMENT,FN_MTHRATE,FN_TEMP,FN_TEMP1
=1 107 extern FN_MONTH_H,DEC_SET_CONT,AUTO_OFF_TIM
=1 108 extern FINANCE,W4,COUNTRY,COUNTRY1,COUNTRY2,COUNTRY_TEN
=1 109 extern DIAG_WK,FN_AMOUNT_MSD14,FN_AMOUNT_MSD,FN_AMOUNT_EXP,FN_MTHRATE_MSD,FN_PAYMENT_MSD14
=1 110 extern VPRN,STB_BAK,PHASE_CT,STEP_CT,LINE_PTR,DOT_CT,DOT_LINE,DIGIT_CT,HD_TEMP,STEP_BAK,LINE_PTR_BK
=1 111 ;bit
=1 112 extern F_INTEREST,F_AMOUNT,F_MONTH,F_PAYMENT,F_MODIFIED,F_CAL_AMOUNT,F_CAL_MONTH,F_CAL_PAYMENT
=1 113 extern F_FNEABL,F_FINBUSY,F_FINAL,F_FINCAL,F_FNRECALL
=1 114 extern RTC_INIT,NO_PRINT
=1 116 $nolist
=1 117 ;*******************************************************************************
=1 118 ;*******************************************************************************
=1 119 ;* *
=1 120 ;* (C)Copyright, CLOVER China Electronics Co.,LTD. *
=1 121 ;* (Company No:190077-X) *
=1 122 ;* All Rigits Reserved *
=1 123 ;* add:No.58-F Yang Dong Road, LuoFeng Demonstrative Zone Suzhou, China *
=1 124 ;* Tel: 0512-67261886 Fax:0512-67261882 *
=1 125 ;* http://www.clover.co.jp *
=1 126 ;* *
=1 127 ;*******************************************************************************
=1 128 ;*******************************************************************************
=1 129 ;
=1 130 ; OBS CPD3212T source program
=1 131 ; CPU: TOSHIBA TLC-870/C series TMP86CM74AF
=1 132 ; RAM: 2Kbytes(0040h - 083Fh)
=1 133 ; ROM: 32Kbytes(8000h - FFFFh)
=1 134 ;
=1 135 ;
=1 136 ;Macro difinition
=1 137 $list
=1 138 ;==============================================================================
=1 139 ; Push register
=1 140 ;==============================================================================
=1 149 ;==============================================================================
=1 150 ; Pop register
=1 151 ;==============================================================================
=1 160 ;==============================================================================
=1 161 ; Set bit Note: use WA registor
=1 162 ;==============================================================================
=1 167 ;==============================================================================
=1 168 ; Set bit Note: use WA registor
=1 169 ;==============================================================================
=1 174 ;==============================================================================
=1 175 ; Branch if bit set Note: use WA registor
=1 176 ;==============================================================================
=1 182 ;==============================================================================
=1 183 ; Branch if bit clear Note: use WA registor
=1 184 ;==============================================================================
=1 190 ;==============================================================================
=1 191 ; Set '1' to W2
=1 192 ;==============================================================================
=1 197 ;==============================================================================
=1 198 ; Set '100' to W2
=1 199 ;==============================================================================
=1 204
=1 205 ;==============================================================================
=1 206 ;V2.00@define(lcd_disable)(
=1 207 ;V2.00 ld (LCDCTL1),0y10000100 ;1/4 duty, REFV V4,=VDD, Booster circuit disable, LCD display enable
=1 208 ;V2.00 clr (P6DR).3
=1 209 ;V2.00 clr (P6DR).5
=1 210 ;V2.00 clr (FLG_MODE).6 ;indicate LED OFF
=1 211 ;V2.00)
=1 212
=1 213 ;V2.00@define(lcd_enable)(
=1 214 ;V2.00 ld (LCDCTL1),0y10000101 ;1/4 duty, REFV V4,=VDD, Booster circuit disable, LCD display enable
=1 215 ;V2.00 ld (LCDCTL2),0y00000001 ;base frequency for frame frequency 8M
=1 216 ;V2.00 set (FLG_MODE).6 ;indicate LED ON
=1 217 ;V2.00)
=1 218 ;==============================================================================
=1 222 ;----------------------------
=1 226 ;==============================================================================
=1 230 ;===============================================================================V1.21
=1 234 ;==============================================================================V1.21
=1 241 ;---------------------------------
=1 242 ;======================================
=1 247 ;----------------------------
=1 252 ;----------------------------
=1 257 ;----------------------------
=1 262 ;---------------------------
=1 267 ;---------------------------
=1 272 ;==========================================
=1 273
=1 274 ;================================================
=1 279 ;-------------------------
=1 284 ;================================================
=1 287 ;@set(D14,0) ;in case of 12digit model
=1 288 ;@set(UP_COM,1) ;in case of upper commma VFD
=1 292
=1 297 +1 MAX_DIGIT equ 12
=1 298 +1 MAX_DIGIT_DT equ 15
=1 300
=1 301 D_PRN_MAX_LTP equ 16 ;maximum capacity of numeric part(digit)
=1 302 ;DISP character code................
=1 303 D_0 equ 0x00
=1 304 D_1 equ 0x01
=1 305 D_I equ 0x01
=1 306 D_2 equ 0x02
=1 307 D_3 equ 0x03
=1 308 D_4 equ 0x04
=1 309 D_5 equ 0x05
=1 310 D_S equ 0x05
=1 311 D_6 equ 0x06
=1 312 D_G equ 0x06
=1 313 D_7 equ 0x07
=1 314 D_8 equ 0x08
=1 315 D_9 equ 0x09
=1 316 D_A equ 0x0a
=1 317 D_B equ 0x0b
=1 318 D_C equ 0x0c
=1 319 D_D equ 0x0d
=1 320 D_E equ 0x0e
=1 321 D_F equ 0x0f
=1 322 D_P equ 0x10
=1 323 D_H equ 0x11
=1 324 D_HYPN equ 0x12
=1 325 D_MIN equ 0x12
=1 326 D_L equ 0x13
=1 327 D_M equ 0x14
=1 328 D_N equ 0x15
=1 329 D_EQU equ 0x16
=1 330 D_R equ 0x17
=1 331 D_U equ 0x18
=1 332 D_T equ 0x19
=1 333
=1 334 D_Lo equ 0x29
=1 335 D_Uo equ 0x2a
=1 336
=1 337 D_SPC equ 0x3f
=1 338 ;Key code............................
=1 339 K_ZERO equ 0x00
=1 340 K_NUM equ 0x09 ;0-9 key
=1 341 K_ZERO2 equ 0x0a
=1 342 K_ZERO3 equ 0x0b
=1 343 K_TEN equ 0x0b
=1 344 K_DP equ 0x0c
=1 345 K_CE equ 0x0d
=1 346 K_CEC equ 0x0e
=1 347 K_GT equ 0x0f
=1 348 K_PLS equ 0x10
=1 349 K_MIN equ 0x11
=1 350 K_ST equ 0x12
=1 351 K_TL equ 0x13
=1 352 K_ROUND equ 0x13
=1 353 K_SHS equ 0x14 ;#/S
=1 354 K_FIN equ 0x14
=1 355 K_PNP equ 0x15
=1 356
=1 357 K_TX2P equ 0x14
=1 358 K_TX2M equ 0x15
=1 359
=1 360 K_EQU equ 0x16
=1 361 K_PER equ 0x17
=1 362 K_MUL equ 0x18
=1 363 K_DIV equ 0x19
=1 364 K_MU equ 0x1a
=1 365 K_DLT equ 0x1b
=1 366 K_SGN equ 0x1c
=1 367 K_BS equ 0x1d
=1 368 K_SHD equ 0x1e ;#/D
=1 369 K_IC equ 0x1f
=1 370 K_MPL equ 0x20
=1 371 K_MMI equ 0x21
=1 372 K_MST equ 0x22
=1 373 K_MTL equ 0x23
=1 374
=1 375 K_M2PL equ 0x2c
=1 376 K_M2MI equ 0x2d
=1 377 K_M2ST equ 0x2e
=1 378 K_M2TL equ 0x2f
=1 379
=1 380 ;K_MONTH equ 0x2c
=1 381 ;K_PAYMENT equ 0x2d
=1 382 ;K_INTEREST equ 0x2e
=1 383 ;K_AMOUNT equ 0x2f
=1 384
=1 385 K_MONTH equ 0x40 ;V1.25 exten key code
=1 386 K_PAYMENT equ 0x41 ;V1.25 exten key code
=1 387 K_INTEREST equ 0x42 ;V1.25 exten key code
=1 388 K_AMOUNT equ 0x43 ;V1.25 exten key code
=1 389
=1 390 K_EURO equ 0x44 ;V1.25 exten key code
=1 391 K_LOCAL equ 0x45 ;V1.25 exten key code
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -