clock.rmh

和picoblaze完全兼容的mcu ip core

2e01c // @0a3 #392: STORE(s0,monL)
2e11b // @0a4 #393: STORE(s1,monH)
06024 // @0a5 #394: FETCH(s0,yearB)
301d2 // @0a6 #395: CALL(B2BCD)
2e00f // @0a7 #396: STORE(s0,year4)
2e10e // @0a8 #397: STORE(s1,year3)
0afff // @0a9 #398: AND(sF,FF)
35523 // @0aa #399: JUMP(NZ,SKIP1)
// #400: ;;;DISP HH
00511 // @0ab #401: LOAD(s5,17)
30313 // @0ac #402: CALL(LCD_cursor)
06303 // @0ad #403: FETCH(s3,mode)
14301 // @0ae #404: COMPARE(s3,1)
354b3 // @0af #405: JUMP(NZ,DSP_HH)
06311 // @0b0 #406: FETCH(s3,ms500)
12301 // @0b1 #407: TEST(s3,1)
354ba // @0b2 #408: JUMP(NZ,SPACE7)
// @0b3 #409: [DSP_HH]
0650a // @0b3 #409: FETCH(s5,hourH)
18530 // @0b4 #410: ADD(s5,48)
302d4 // @0b5 #411: CALL(LCD_write_data)
06509 // @0b6 #412: FETCH(s5,hourL)
18530 // @0b7 #413: ADD(s5,48)
302d4 // @0b8 #414: CALL(LCD_write_data)
340bc // @0b9 #415: JUMP(MODE_2)
// @0ba #416: [SPACE7]
302a0 // @0ba #416: CALL(disp_space)
302a0 // @0bb #417: CALL(disp_space)
// @0bc #418: [MODE_2]
// #419: ;;;DISP MM
00514 // @0bc #420: LOAD(s5,20)
30313 // @0bd #421: CALL(LCD_cursor)
06303 // @0be #422: FETCH(s3,mode)
14302 // @0bf #423: COMPARE(s3,2)
354c4 // @0c0 #424: JUMP(NZ,DSP_MM)
06311 // @0c1 #425: FETCH(s3,ms500)
12301 // @0c2 #426: TEST(s3,1)
354cb // @0c3 #427: JUMP(NZ,SPACE6)
// @0c4 #428: [DSP_MM]
06508 // @0c4 #428: FETCH(s5,minH)
18530 // @0c5 #429: ADD(s5,48)
302d4 // @0c6 #430: CALL(LCD_write_data)
06507 // @0c7 #431: FETCH(s5,minL)
18530 // @0c8 #432: ADD(s5,48)
302d4 // @0c9 #433: CALL(LCD_write_data)
340cd // @0ca #434: JUMP(MODE_3)
// @0cb #435: [SPACE6]
302a0 // @0cb #435: CALL(disp_space)
302a0 // @0cc #436: CALL(disp_space)
// @0cd #437: [MODE_3]
// #438: ;;;DISP SS
00517 // @0cd #439: LOAD(s5,23)
30313 // @0ce #440: CALL(LCD_cursor)
06303 // @0cf #441: FETCH(s3,mode)
14303 // @0d0 #442: COMPARE(s3,3)
354d5 // @0d1 #443: JUMP(NZ,DSP_SS)
06311 // @0d2 #444: FETCH(s3,ms500)
12301 // @0d3 #445: TEST(s3,1)
354dc // @0d4 #446: JUMP(NZ,SPACE5)
// @0d5 #447: [DSP_SS]
06506 // @0d5 #447: FETCH(s5,secH)
18530 // @0d6 #448: ADD(s5,48)
302d4 // @0d7 #449: CALL(LCD_write_data)
06505 // @0d8 #450: FETCH(s5,secL)
18530 // @0d9 #451: ADD(s5,48)
302d4 // @0da #452: CALL(LCD_write_data)
340de // @0db #453: JUMP(MODE_4)
// @0dc #454: [SPACE5]
302a0 // @0dc #454: CALL(disp_space)
302a0 // @0dd #455: CALL(disp_space)
// @0de #456: [MODE_4]
// #457: ;;;DISP week
0051c // @0de #458: LOAD(s5,28)
30313 // @0df #459: CALL(LCD_cursor)
0630b // @0e0 #460: FETCH(s3,week)
14300 // @0e1 #461: COMPARE(s3,0)
354ea // @0e2 #462: JUMP(NZ,MON)
00553 // @0e3 #463: LOAD(s5,character_S)
302d4 // @0e4 #464: CALL(LCD_write_data)
00575 // @0e5 #465: LOAD(s5,character_u)
302d4 // @0e6 #466: CALL(LCD_write_data)
0056e // @0e7 #467: LOAD(s5,character_n)
302d4 // @0e8 #468: CALL(LCD_write_data)
34123 // @0e9 #469: JUMP(TEST_BIT0)
// @0ea #470: [MON]
0630b // @0ea #470: FETCH(s3,week)
14301 // @0eb #471: COMPARE(s3,1)
354f4 // @0ec #472: JUMP(NZ,TUE)
0054d // @0ed #473: LOAD(s5,character_M)
302d4 // @0ee #474: CALL(LCD_write_data)
0056f // @0ef #475: LOAD(s5,character_o)
302d4 // @0f0 #476: CALL(LCD_write_data)
0056e // @0f1 #477: LOAD(s5,character_n)
302d4 // @0f2 #478: CALL(LCD_write_data)
34123 // @0f3 #479: JUMP(TEST_BIT0)
// @0f4 #480: [TUE]
0630b // @0f4 #480: FETCH(s3,week)
14302 // @0f5 #481: COMPARE(s3,2)
354fe // @0f6 #482: JUMP(NZ,WED)
00554 // @0f7 #483: LOAD(s5,character_T)
302d4 // @0f8 #484: CALL(LCD_write_data)
00575 // @0f9 #485: LOAD(s5,character_u)
302d4 // @0fa #486: CALL(LCD_write_data)
00565 // @0fb #487: LOAD(s5,character_e)
302d4 // @0fc #488: CALL(LCD_write_data)
34123 // @0fd #489: JUMP(TEST_BIT0)
// @0fe #490: [WED]
0630b // @0fe #490: FETCH(s3,week)
14303 // @0ff #491: COMPARE(s3,3)
35508 // @100 #492: JUMP(NZ,THU)
00557 // @101 #493: LOAD(s5,character_W)
302d4 // @102 #494: CALL(LCD_write_data)
00565 // @103 #495: LOAD(s5,character_e)
302d4 // @104 #496: CALL(LCD_write_data)
00564 // @105 #497: LOAD(s5,character_d)
302d4 // @106 #498: CALL(LCD_write_data)
34123 // @107 #499: JUMP(TEST_BIT0)
// @108 #500: [THU]
0630b // @108 #500: FETCH(s3,week)
14304 // @109 #501: COMPARE(s3,4)
35512 // @10a #502: JUMP(NZ,FRI)
00554 // @10b #503: LOAD(s5,character_T)
302d4 // @10c #504: CALL(LCD_write_data)
00568 // @10d #505: LOAD(s5,character_h)
302d4 // @10e #506: CALL(LCD_write_data)
00575 // @10f #507: LOAD(s5,character_u)
302d4 // @110 #508: CALL(LCD_write_data)
34123 // @111 #509: JUMP(TEST_BIT0)
// @112 #510: [FRI]
0630b // @112 #510: FETCH(s3,week)
14305 // @113 #511: COMPARE(s3,5)
3551c // @114 #512: JUMP(NZ,SAT)
00546 // @115 #513: LOAD(s5,character_F)
302d4 // @116 #514: CALL(LCD_write_data)
00572 // @117 #515: LOAD(s5,character_r)
302d4 // @118 #516: CALL(LCD_write_data)
00569 // @119 #517: LOAD(s5,character_i)
302d4 // @11a #518: CALL(LCD_write_data)
34123 // @11b #519: JUMP(TEST_BIT0)
// @11c #520: [SAT]
00553 // @11c #520: LOAD(s5,character_S)
302d4 // @11d #521: CALL(LCD_write_data)
00561 // @11e #522: LOAD(s5,character_a)
302d4 // @11f #523: CALL(LCD_write_data)
00574 // @120 #524: LOAD(s5,character_t)
302d4 // @121 #525: CALL(LCD_write_data)
34123 // @122 #526: JUMP(TEST_BIT0)
// @123 #527: [TEST_BIT0]
// @123 #528: [ROTARY_PRESS1]
// @123 #529: [ROTARY_PRESS2]
// @123 #530: [SKIP1]
// #531: ;;;DISP month
00526 // @123 #532: LOAD(s5,38)
30313 // @124 #533: CALL(LCD_cursor)
06303 // @125 #534: FETCH(s3,mode)
14304 // @126 #535: COMPARE(s3,4)
3552b // @127 #536: JUMP(NZ,DSP_MON)
06311 // @128 #537: FETCH(s3,ms500)
12301 // @129 #538: TEST(s3,1)
35532 // @12a #539: JUMP(NZ,SPACE4)
// @12b #540: [DSP_MON]
0651b // @12b #540: FETCH(s5,monH)
18530 // @12c #541: ADD(s5,48)
302d4 // @12d #542: CALL(LCD_write_data)
0651c // @12e #543: FETCH(s5,monL)
18530 // @12f #544: ADD(s5,48)
302d4 // @130 #545: CALL(LCD_write_data)
34134 // @131 #546: JUMP(MODE_5)
// @132 #547: [SPACE4]
302a0 // @132 #547: CALL(disp_space)
302a0 // @133 #548: CALL(disp_space)
// @134 #549: [MODE_5]
// #550: ;;;DISP day
00529 // @134 #551: LOAD(s5,41)
30313 // @135 #552: CALL(LCD_cursor)
06303 // @136 #553: FETCH(s3,mode)
14305 // @137 #554: COMPARE(s3,5)
3553c // @138 #555: JUMP(NZ,DSP_DD)
06311 // @139 #556: FETCH(s3,ms500)
12301 // @13a #557: TEST(s3,1)
35543 // @13b #558: JUMP(NZ,SPACE3)
// @13c #559: [DSP_DD]
0651d // @13c #559: FETCH(s5,dayH)
18530 // @13d #560: ADD(s5,48)
302d4 // @13e #561: CALL(LCD_write_data)
0651e // @13f #562: FETCH(s5,dayL)
18530 // @140 #563: ADD(s5,48)
302d4 // @141 #564: CALL(LCD_write_data)
34145 // @142 #565: JUMP(MODE_6)
// @143 #566: [SPACE3]
302a0 // @143 #566: CALL(disp_space)
302a0 // @144 #567: CALL(disp_space)
// @145 #568: [MODE_6]
// #569: ;;;DISP year
0052c // @145 #570: LOAD(s5,44)
30313 // @146 #571: CALL(LCD_cursor)
06303 // @147 #572: FETCH(s3,mode)
14306 // @148 #573: COMPARE(s3,6)
3554d // @149 #574: JUMP(NZ,DSP_YY)
06311 // @14a #575: FETCH(s3,ms500)
12301 // @14b #576: TEST(s3,1)
3555a // @14c #577: JUMP(NZ,SPACE2)
// @14d #578: [DSP_YY]
0650c // @14d #578: FETCH(s5,year1)
18530 // @14e #579: ADD(s5,48)
302d4 // @14f #580: CALL(LCD_write_data)
0650d // @150 #581: FETCH(s5,year2)
18530 // @151 #582: ADD(s5,48)
302d4 // @152 #583: CALL(LCD_write_data)
0650e // @153 #584: FETCH(s5,year3)
18530 // @154 #585: ADD(s5,48)
302d4 // @155 #586: CALL(LCD_write_data)
0650f // @156 #587: FETCH(s5,year4)
18530 // @157 #588: ADD(s5,48)
302d4 // @158 #589: CALL(LCD_write_data)
3415e // @159 #590: JUMP(MODE_END)
// @15a #591: [SPACE2]
302a0 // @15a #591: CALL(disp_space)
302a0 // @15b #592: CALL(disp_space)
302a0 // @15c #593: CALL(disp_space)
302a0 // @15d #594: CALL(disp_space)
// @15e #595: [MODE_END]
06025 // @15e #596: FETCH(s0,monB)
00127 // @15f #597: LOAD(s1,DMAX)
19100 // @160 #598: ADD(s1,s0)
07210 // @161 #599: FETCH(s2,s1) ;;28
14002 // @162 #600: COMPARE(s0,2) ;;Y
35568 // @163 #601: JUMP(NZ,NO_FEB)
06124 // @164 #602: FETCH(s1,yearB)
0a103 // @165 #603: AND(s1,3)
35568 // @166 #604: JUMP(NZ,NO_FEB)
18201 // @167 #605: ADD(s2,1)
// @168 #606: [NO_RUNNIAN]
// @168 #607: [NO_FEB]
2e227 // @168 #607: STORE(s2,DMAX)
06126 // @169 #608: FETCH(s1,dayB)
15210 // @16a #609: COMPARE(s2,s1)
35d6d // @16b #610: JUMP(NC,UNDER)
2e226 // @16c #611: STORE(s2,dayB)
// @16d #612: [UNDER]
0611f // @16d #613: FETCH(s1,DAY_UP)
0b110 // @16e #614: AND(s1,s1)
35188 // @16f #615: JUMP(Z,NO_DAY_UP)
06126 // @170 #616: FETCH(s1,dayB)
18101 // @171 #617: ADD(s1,1)
2e126 // @172 #618: STORE(s1,dayB)
06227 // @173 #619: FETCH(s2,DMAX)
18201 // @174 #620: ADD(s2,1)
15120 // @175 #621: COMPARE(s1,s2)
35588 // @176 #622: JUMP(NZ,NO_MON_UP)
00101 // @177 #623: LOAD(s1,1)
2e126 // @178 #624: STORE(s1,dayB)
06125 // @179 #625: FETCH(s1,monB)
18101 // @17a #626: ADD(s1,1)
2e125 // @17b #627: STORE(s1,monB)
1410d // @17c #628: COMPARE(s1,13)
35588 // @17d #629: JUMP(NZ,NO_YEAR_UP)
00101 // @17e #630: LOAD(s1,1)
2e125 // @17f #631: STORE(s1,monB)
06124 // @180 #632: FETCH(s1,yearB)
18101 // @181 #633: ADD(s1,1)
2e124 // @182 #634: STORE(s1,yearB)
14164 // @183 #635: COMPARE(s1,100)
35588 // @184 #636: JUMP(NZ,NO_YEAR_UP)
00100 // @185 #637: LOAD(s1,0)
2e124 // @186 #638: STORE(s1,yearB)
34188 // @187 #639: JUMP(NO_YEAR_UP)
// @188 #640: [NO_MON_UP]
// @188 #641: [NO_DAY_UP]
// @188 #642: [NO_YEAR_UP]
00000 // @188 #643: LOAD(s0,0)
2e01f // @189 #644: STORE(s0,DAY_UP)
00033 // @18a #645: LOAD(s0,DEC)
06225 // @18b #646: FETCH(s2,monB)
19020 // @18c #647: ADD(s0,s2)
07100 // @18d #648: FETCH(s1,s0) ;;;K
06024 // @18e #649: FETCH(s0,yearB)
19100 // @18f #650: ADD(s1,s0) ;;;;;;;K+Y
14203 // @190 #651: COMPARE(s2,3)
35993 // @191 #652: JUMP(C,RN)
18001 // @192 #653: ADD(s0,1) ;;;;100+Y  >2(3..12)
// @193 #654: [RN]
18063 // @193 #654: ADD(s0,99) ;;;;;99+Y   1,2
2000e // @194 #655: SR0(s0)
2000e // @195 #656: SR0(s0) ;;;/4
19010 // @196 #657: ADD(s0,s1)
18006 // @197 #658: ADD(s0,6)
06226 // @198 #659: FETCH(s2,dayB)
19020 // @199 #660: ADD(s0,s2)
// @19a #661: [MOD7]
180f9 // @19a #661: ADD(s0,F9)
35d9d // @19b #662: JUMP(NC,M7_END)
3419a // @19c #663: JUMP(MOD7)
// @19d #664: [M7_END]
18007 // @19d #664: ADD(s0,7)
2e00b // @19e #665: STORE(s0,week)
06003 // @19f #666: FETCH(s0,mode)
0a0ff // @1a0 #667: AND(s0,FF)
355a9 // @1a1 #668: JUMP(NZ,SETUP)
// #669: ;;;RUN
00520 // @1a2 #670: LOAD(s5,32)
30313 // @1a3 #671: CALL(LCD_cursor)
06518 // @1a4 #672: FETCH(s5,disp_flag)
302d4 // @1a5 #673: CALL(LCD_write_data)
302d4 // @1a6 #674: CALL(LCD_write_data)
302d4 // @1a7 #675: CALL(LCD_write_data)
341b1 // @1a8 #676: JUMP(MODEUPDATE)
// @1a9 #677: [SETUP]
// #678: ;;;SET
00520 // @1a9 #679: LOAD(s5,32)
30313 // @1aa #680: CALL(LCD_cursor)
00553 // @1ab #681: LOAD(s5,83) ;;;;;;;;;;;;;;;;;;;;;;;    S
302d4 // @1ac #682: CALL(LCD_write_data)
00545 // @1ad #683: LOAD(s5,69) ;;;;;;;;;;;;;;;;;;;;;;;    E
302d4 // @1ae #684: CALL(LCD_write_data)
00554 // @1af #685: LOAD(s5,84) ;;;;;;;;;;;;;;;;;;;;;;;    T
302d4 // @1b0 #686: CALL(LCD_write_data)
// @1b1 #687: [MODEUPDATE]
06003 // @1b1 #687: FETCH(s0,mode)
2e019 // @1b2 #688: STORE(s0,blink_flag)
// @1b3 #689: [NOCHANGE]
04000 // @1b3 #690: INPUT(s0,0)
0611a // @1b4 #691: FETCH(s1,disp_flag2)
0f100 // @1b5 #692: XOR(s1,s0)
35441 // @1b6 #693: JUMP(NZ,restart)
2e01a // @1b7 #694: STORE(s0,disp_flag2)
06025 // @1b8 #695: FETCH(s0,monB)
14005 // @1b9 #696: COMPARE(s0,5)
355c1 // @1ba #697: JUMP(NZ,chk_sf)
06026 // @1bb #698: FETCH(s0,dayB)
14011 // @1bc #699: COMPARE(s0,17)
355c1 // @1bd #700: JUMP(NZ,chk_sf)
06022 // @1be #701: FETCH(s0,minB)
14000 // @1bf #702: COMPARE(s0,0)
351c5 // @1c0 #703: JUMP(Z,msg7)
// @1c1 #704: [chk_sf]
14fff // @1c1 #704: COMPARE(sF,FF)
355cf // @1c2 #705: JUMP(NZ,NO_BD)
302e5 // @1c3 #706: CALL(LCD_reset)
341cf // @1c4 #707: JUMP(NO_BD)
// @1c5 #708: [msg7]
00510 // @1c5 #708: LOAD(s5,16)
30313 // @1c6 #709: CALL(LCD_cursor)
30282 // @1c7 #710: CALL(disp_msg7) ;
06013 // @1c8 #711: FETCH(s0,ms100)
14032 // @1c9 #712: COMPARE(s0,50)
359cd // @1ca #713: JUMP(C,WAIT)
00f00 // @1cb #714: LOAD(sF,0)
34041 // @1cc #715: JUMP(restart)
// @1cd #716: [WAIT]
00fff // @1cd #716: LOAD(sF,FF)
34091 // @1ce #717: JUMP(loop)
// @1cf #718: [NO_BD]
00f00 // @1cf #718: LOAD(sF,0)
2ef13 // @1d0 #719: STORE(sF,ms100)
34091 // @1d1 #720: JUMP(loop)
// #721: ;;;;;;;;;s0---BINARY, s1---BCD_H, s0---BCD_L
// @1d2 #722: [B2BCD]
00100 // @1d2 #722: LOAD(s1,0) ;
// @1d3 #723: [BCD_LP]
180f6 // @1d3 #723: ADD(s0,F6)
35dd7 // @1d4 #724: JUMP(NC,H_END)
18101 // @1d5 #725: ADD(s1,1) ;
341d3 // @1d6 #726: JUMP(BCD_LP)
// @1d7 #727: [H_END]
1800a // @1d7 #727: ADD(s0,10)
2a000 // @1d8 #728: RETURN