📄 wanjt3.lst
字号:
; 358: {
358 0000 @showzero .SECTION 'CODE'
358 0000 PUBLIC _showzero
358 0000 _showzero PROC
文件：WANJT3.C 盛群编译器版本 2.86 页次25
; 363: pic[0]=' ';pic[1]=' ';pic[2]=0xbb;pic[3]=0xb6;pic[4]=0xd3;pic[5]=0xad;pic[6]=0xca;pic[7]=0xb9;pic[8]=0xd3;pic[9]=0xc3;
363 0000 0F20 MOV A,020h
363 0001 0080 R MOV _pic,A
363 0002 0F20 MOV A,020h
363 0003 0080 R MOV _pic[1],A
363 0004 0FBB MOV A,0bbh
363 0005 0080 R MOV _pic[2],A
363 0006 0FB6 MOV A,0b6h
363 0007 0080 R MOV _pic[3],A
363 0008 0FD3 MOV A,0d3h
363 0009 0080 R MOV _pic[4],A
363 000A 0FAD MOV A,0adh
363 000B 0080 R MOV _pic[5],A
363 000C 0FCA MOV A,0cah
363 000D 0080 R MOV _pic[6],A
363 000E 0FB9 MOV A,0b9h
363 000F 0080 R MOV _pic[7],A
363 0010 0FD3 MOV A,0d3h
363 0011 0080 R MOV _pic[8],A
363 0012 0FC3 MOV A,0c3h
363 0013 0080 R MOV _pic[9],A
; 364: pic[10]=0xba;pic[11]=0xcf;pic[12]=0xcc;pic[13]=0xa9;pic[14]=0xb2;pic[15]=0xfa;pic[16]=0xc6;pic[17]=0xb7;pic[18]=' ';pic[19]=' ';
364 0014 0FBA MOV A,0bah
364 0015 0080 R MOV _pic[10],A
364 0016 0FCF MOV A,0cfh
364 0017 0080 R MOV _pic[11],A
364 0018 0FCC MOV A,0cch
364 0019 0080 R MOV _pic[12],A
364 001A 0FA9 MOV A,0a9h
364 001B 0080 R MOV _pic[13],A
364 001C 0FB2 MOV A,0b2h
364 001D 0080 R MOV _pic[14],A
364 001E 0FFA MOV A,0fah
364 001F 0080 R MOV _pic[15],A
364 0020 0FC6 MOV A,0c6h
364 0021 0080 R MOV _pic[16],A
364 0022 0FB7 MOV A,0b7h
364 0023 0080 R MOV _pic[17],A
364 0024 0F20 MOV A,020h
文件：WANJT3.c 盛群编译器版本 2.86 页次27
364 0025 0080 R MOV _pic[18],A
364 0026 0F20 MOV A,020h
364 0027 0080 R MOV _pic[19],A
文件：WANJT3.C 盛群编译器版本 2.86 页次26
; 365: pic[20]=0x1e;pic[21]=0x1e;pic[22]=0x1e;pic[23]=0x1e;pic[24]=0x1e;pic[25]=0x1e;pic[26]=0x1e;pic[27]=0x1e;pic[28]=0x1e;pic[29]=0x1e;
365 0028 0F1E MOV A,01eh
365 0029 0080 R MOV _pic[20],A
365 002A 0F1E MOV A,01eh
365 002B 0080 R MOV _pic[21],A
365 002C 0F1E MOV A,01eh
365 002D 0080 R MOV _pic[22],A
365 002E 0F1E MOV A,01eh
365 002F 0080 R MOV _pic[23],A
365 0030 0F1E MOV A,01eh
365 0031 0080 R MOV _pic[24],A
365 0032 0F1E MOV A,01eh
365 0033 0080 R MOV _pic[25],A
365 0034 0F1E MOV A,01eh
365 0035 0080 R MOV _pic[26],A
365 0036 0F1E MOV A,01eh
365 0037 0080 R MOV _pic[27],A
365 0038 0F1E MOV A,01eh
365 0039 0080 R MOV _pic[28],A
365 003A 0F1E MOV A,01eh
365 003B 0080 R MOV _pic[29],A
; 366: pic[30]=0x1e;pic[31]=0x1e;pic[32]=0x1e;pic[33]=0x1e;pic[34]=0x1e;pic[35]=0x1e;pic[36]=0x1e;pic[37]=0x1e;pic[38]=0x1e;pic[39]=0x1e;
366 003C 0F1E MOV A,01eh
366 003D 0080 R MOV _pic[30],A
366 003E 0F1E MOV A,01eh
366 003F 0080 R MOV _pic[31],A
366 0040 0F1E MOV A,01eh
366 0041 0080 R MOV _pic[32],A
366 0042 0F1E MOV A,01eh
366 0043 0080 R MOV _pic[33],A
366 0044 0F1E MOV A,01eh
366 0045 0080 R MOV _pic[34],A
366 0046 0F1E MOV A,01eh
366 0047 0080 R MOV _pic[35],A
366 0048 0F1E MOV A,01eh
366 0049 0080 R MOV _pic[36],A
366 004A 0F1E MOV A,01eh
366 004B 0080 R MOV _pic[37],A
366 004C 0F1E MOV A,01eh
366 004D 0080 R MOV _pic[38],A
366 004E 0F1E MOV A,01eh
366 004F 0080 R MOV _pic[39],A
文件：WANJT3.C 盛群编译器版本 2.86 页次27
; 367: chn_disp (pic);
367 0050 0F00 R MOV A,OFFSET _pic
367 0051 0080 R MOV chn_disp0,A
367 0052 1F00 R CLR chn_disp0[1]
367 0053 2000 R CALL _chn_disp
367 0054 L116:
367 0054 0003 RET
367 0055 _showzero ENDP
文件：WANJT3.c 盛群编译器版本 2.86 页次28
; 370: {
370 0000 @showone .SECTION 'CODE'
370 0000 PUBLIC _showone
370 0000 _showone PROC
; 372: pic[0]=curtime.wan_yearhi/10+0x30;pic[1]=curtime.wan_yearhi%10+0x30;pic[2]=curtime.wan_yearlo/10+0x30;pic[3]=curtime.wan_yearlo%10+0x30;
372 0000 0F0A MOV A,0ah
372 0001 0080 E MOV RH,A
372 0002 0700 R MOV A,_curtime
372 0003 2000 E CALL DIVUI
372 0004 0080 R MOV b0_16,A
372 0005 0700 R MOV A,b0_16
372 0006 0B30 ADD A,030h
372 0007 0080 R MOV _pic,A
372 0008 0F0A MOV A,0ah
372 0009 0080 E MOV RH,A
372 000A 0700 R MOV A,_curtime
372 000B 2000 E CALL DIVUI
372 000C 0700 E MOV A,T3
372 000D 0080 R MOV b0_16,A
372 000E 0700 R MOV A,b0_16
372 000F 0B30 ADD A,030h
372 0010 0080 R MOV _pic[1],A
372 0011 0F0A MOV A,0ah
372 0012 0080 E MOV RH,A
372 0013 0700 R MOV A,_curtime[1]
372 0014 2000 E CALL DIVUI
372 0015 0080 R MOV b0_16,A
372 0016 0700 R MOV A,b0_16
372 0017 0B30 ADD A,030h
372 0018 0080 R MOV _pic[2],A
372 0019 0F0A MOV A,0ah
372 001A 0080 E MOV RH,A
372 001B 0700 R MOV A,_curtime[1]
372 001C 2000 E CALL DIVUI
372 001D 0700 E MOV A,T3
372 001E 0080 R MOV b0_16,A
372 001F 0700 R MOV A,b0_16
372 0020 0B30 ADD A,030h
372 0021 0080 R MOV _pic[3],A
; 373: pic[4]=0xc4;pic[5]=0xea;pic[6]=curtime.wan_month/10+0x30;pic[7]=curtime.wan_month%10+0x30;pic[8]=0xd4;pic[9]=0xc2;
373 0022 0FC4 MOV A,0c4h
373 0023 0080 R MOV _pic[4],A
373 0024 0FEA MOV A,0eah
373 0025 0080 R MOV _pic[5],A
373 0026 0F0A MOV A,0ah
373 0027 0080 E MOV RH,A
文件：WANJT3.C 盛群编译器版本 2.86 页次28
373 0028 0700 R MOV A,_curtime[2]
373 0029 2000 E CALL DIVUI
373 002A 0080 R MOV b0_16,A
373 002B 0700 R MOV A,b0_16
373 002C 0B30 ADD A,030h
373 002D 0080 R MOV _pic[6],A
373 002E 0F0A MOV A,0ah
373 002F 0080 E MOV RH,A
373 0030 0700 R MOV A,_curtime[2]
文件：WANJT3.c 盛群编译器版本 2.86 页次29
373 0031 2000 E CALL DIVUI
373 0032 0700 E MOV A,T3
373 0033 0080 R MOV b0_16,A
373 0034 0700 R MOV A,b0_16
373 0035 0B30 ADD A,030h
373 0036 0080 R MOV _pic[7],A
373 0037 0FD4 MOV A,0d4h
373 0038 0080 R MOV _pic[8],A
373 0039 0FC2 MOV A,0c2h
373 003A 0080 R MOV _pic[9],A
; 374: pic[10]=curtime.wan_day/10+0x30;pic[11]=curtime.wan_day%10+0x30;
374 003B 0F0A MOV A,0ah
374 003C 0080 E MOV RH,A
374 003D 0700 R MOV A,_curtime[4]
374 003E 2000 E CALL DIVUI
374 003F 0080 R MOV b0_16,A
374 0040 0700 R MOV A,b0_16
374 0041 0B30 ADD A,030h
374 0042 0080 R MOV _pic[10],A
374 0043 0F0A MOV A,0ah
374 0044 0080 E MOV RH,A
374 0045 0700 R MOV A,_curtime[4]
374 0046 2000 E CALL DIVUI
374 0047 0700 E MOV A,T3
374 0048 0080 R MOV b0_16,A
374 0049 0700 R MOV A,b0_16
374 004A 0B30 ADD A,030h
374 004B 0080 R MOV _pic[11],A
; 375: pic[12]=0xc8;pic[13]=0xd5;pic[14]='m';pic[15]='o';pic[16]='n';pic[17]='d';pic[18]='a';pic[19]='y';
375 004C 0FC8 MOV A,0c8h
375 004D 0080 R MOV _pic[12],A
375 004E 0FD5 MOV A,0d5h
375 004F 0080 R MOV _pic[13],A
375 0050 0F6D MOV A,06dh
375 0051 0080 R MOV _pic[14],A
375 0052 0F6F MOV A,06fh
375 0053 0080 R MOV _pic[15],A
375 0054 0F6E MOV A,06eh
375 0055 0080 R MOV _pic[16],A
375 0056 0F64 MOV A,064h
375 0057 0080 R MOV _pic[17],A
文件：WANJT3.C 盛群编译器版本 2.86 页次29
375 0058 0F61 MOV A,061h
375 0059 0080 R MOV _pic[18],A
375 005A 0F79 MOV A,079h
375 005B 0080 R MOV _pic[19],A
; 376: pic[20]=curtime.hms.wan_hour/10+0x30;pic[21]=curtime.hms.wan_hour%10+0x30;pic[22]=':';pic[23]=' ';
376 005C 0F0A MOV A,0ah
376 005D 0080 E MOV RH,A
376 005E 0700 R MOV A,_curtime[5]
376 005F 2000 E CALL DIVUI
376 0060 0080 R MOV b0_16,A
376 0061 0700 R MOV A,b0_16
376 0062 0B30 ADD A,030h
376 0063 0080 R MOV _pic[20],A
376 0064 0F0A MOV A,0ah
文件：WANJT3.c 盛群编译器版本 2.86 页次30
376 0065 0080 E MOV RH,A
376 0066 0700 R MOV A,_curtime[5]
376 0067 2000 E CALL DIVUI
376 0068 0700 E MOV A,T3
376 0069 0080 R MOV b0_16,A
376 006A 0700 R MOV A,b0_16
376 006B 0B30 ADD A,030h
376 006C 0080 R MOV _pic[21],A
376 006D 0F3A MOV A,03ah
376 006E 0080 R MOV _pic[22],A
376 006F 0F20 MOV A,020h
376 0070 0080 R MOV _pic[23],A
; 377: pic[24]=curtime.hms.wan_minite/10+0x30;pic[25]=curtime.hms.wan_minite%10+0x30;
377 0071 0F0A MOV A,0ah
377 0072 0080 E MOV RH,A
377 0073 0700 R MOV A,_curtime[6]
377 0074 2000 E CALL DIVUI
377 0075 0080 R MOV b0_16,A
377 0076 0700 R MOV A,b0_16
377 0077 0B30 ADD A,030h
377 0078 0080 R MOV _pic[24],A
377 0079 0F0A MOV A,0ah
377 007A 0080 E MOV RH,A
377 007B 0700 R MOV A,_curtime[6]
377 007C 2000 E CALL DIVUI
377 007D 0700 E MOV A,T3
377 007E 0080 R MOV b0_16,A
377 007F 0700 R MOV A,b0_16
377 0080 0B30 ADD A,030h
377 0081 0080 R MOV _pic[25],A
; 378: pic[26]=':';pic[27]=' ';pic[28]=curtime.hms.wan_hfsec/2/10+0x30;pic[29]=curtime.hms.wan_hfsec/2%10+0x30;pic[30]=' ';pic[31]=' ';
378 0082 0F3A MOV A,03ah
378 0083 0080 R MOV _pic[26],A
378 0084 0F20 MOV A,020h
378 0085 0080 R MOV _pic[27],A
378 0086 340A CLR [0AH].0
378 0087 1B00 R RRCA _curtime[7]
378 0088 0080 R MOV b0_16,A
378 0089 0F0A MOV A,0ah
文件：WANJT3.C 盛群编译器版本 2.86 页次30
378 008A 0080 E MOV RH,A
378 008B 0700 R MOV A,b0_16
378 008C 2000 E CALL DIVUI
378 008D 0080 R MOV b0_16,A
378 008E 0700 R MOV A,b0_16
378 008F 0B30 ADD A,030h
378 0090 0080 R MOV _pic[28],A
378 0091 340A CLR [0AH].0
378 0092 1B00 R RRCA _curtime[7]
378 0093 0080 R MOV b0_16,A
378 0094 0F0A MOV A,0ah
378 0095 0080 E MOV RH,A
378 0096 0700 R MOV A,b0_16
378 0097 2000 E CALL DIVUI
378 0098 0700 E MOV A,T3
378 0099 0080 R MOV b0_16,A
378 009A 0700 R MOV A,b0_16
文件：WANJT3.c 盛群编译器版本 2.86 页次31
378 009B 0B30 ADD A,030h
378 009C 0080 R MOV _pic[29],A
378 009D 0F20 MOV A,020h
378 009E 0080 R MOV _pic[30],A
378 009F 0F20 MOV A,020h
378 00A0 0080 R MOV _pic[31],A
; 379: pic[32]=' ';pic[33]=' ';pic[34]=' ';pic[35]=' ';pic[36]=' ';pic[37]=' ';pic[38]=' ';pic[39]=' ';
379 00A1 0F20 MOV A,020h
379 00A2 0080 R MOV _pic[32],A
379 00A3 0F20 MOV A,020h
379 00A4 0080 R MOV _pic[33],A
379 00A5 0F20 MOV A,020h
379 00A6 0080 R MOV _pic[34],A
379 00A7 0F20 MOV A,020h
379 00A8 0080 R MOV _pic[35],A
379 00A9 0F20 MOV A,020h
379 00AA 0080 R MOV _pic[36],A
379 00AB 0F20 MOV A,020h
379 00AC 0080 R MOV _pic[37],A
379 00AD 0F20 MOV A,020h
379 00AE 0080 R MOV _pic[38],A
379 00AF 0F20 MOV A,020h
379 00B0 0080 R MOV _pic[39],A
; 380: chn_disp (pic);
380 00B1 0F00 R MOV A,OFFSET _pic
380 00B2 0080 R MOV chn_disp0,A
380 00B3 1F00 R CLR chn_disp0[1]
380 00B4 2000 R CALL _chn_disp
380 00B5 L156:
380 00B5 0003 RET
380 0000 00 LOCAL b0_16 DB ?
380 00B6 _showone ENDP
; 383: {focnbmax=3;
文件：WANJT3.C 盛群编译器版本 2.86 页次31
383 0000 @showtwe .SECTION 'CODE'
383 0000 PUBLIC _showtwe
383 0000 _showtwe PROC
383 0000 0F03 MOV A,03h
383 0001 0080 R MOV _focnbmax,A
; 388: pic[0]='s';pic[1]='e';pic[2]='t';pic[3]=' ';pic[4]='t';pic[5]='h';pic[6]='e';pic[7]=' ';pic[8]='t';pic[9]='i';
388 0002 0F73 MOV A,073h
388 0003 0080 R MOV _pic,A
388 0004 0F65 MOV A,065h
388 0005 0080 R MOV _pic[1],A
388 0006 0F74 MOV A,074h
388 0007 0080 R MOV _pic[2],A
388 0008 0F20 MOV A,020h
388 0009 0080 R MOV _pic[3],A
388 000A 0F74 MOV A,074h
388 000B 0080 R MOV _pic[4],A
388 000C 0F68 MOV A,068h
388 000D 0080 R MOV _pic[5],A
388 000E 0F65 MOV A,065h
388 000F 0080 R MOV _pic[6],A
388 0010 0F20 MOV A,020h
文件：WANJT3.c 盛群编译器版本 2.86 页次32
388 0011 0080 R MOV _pic[7],A
388 0012 0F74 MOV A,074h
388 0013 0080 R MOV _pic[8],A
388 0014 0F69 MOV A,069h
388 0015 0080 R MOV _pic[9],A
; 389: pic[10]='s';pic[11]='e';pic[12]='t';pic[13]=' ';pic[14]='a';pic[15]=' ';pic[16]='t';pic[17]='a';pic[18]='s';pic[19]='k';
389 0016 0F73 MOV A,073h
389 0017 0080 R MOV _pic[10],A
389 0018 0F65 MOV A,065h
389 0019 0080 R MOV _pic[11],A
389 001A 0F74 MOV A,074h
389 001B 0080 R MOV _pic[12],A
389 001C 0F20 MOV A,020h
389 001D 0080 R MOV _pic[13],A
389 001E 0F61 MOV A,061h
389 001F 0080 R MOV _pic[14],A
389 0020 0F20 MOV A,020h
389 0021 0080 R MOV _pic[15],A
389 0022 0F74 MOV A,074h
389 0023 0080 R MOV _pic[16],A
389 0024 0F61 MOV A,061h
文件：WANJT3.C 盛群编译器版本 2.86 页次32
389 0025 0080 R MOV _pic[17],A
389 0026 0F73 MOV A,073h
389 0027 0080 R MOV _pic[18],A
389 0028 0F6B MOV A,06bh
389 0029 0080 R MOV _pic[19],A
; 390: pic[20]='d';pic[21]='e';pic[22]='l';pic[23]=' ';pic[24]='a';pic[25]=' ';pic[26]='t';pic[27]='a';pic[28]='s';pic[29]='k';
390 002A 0F64 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -