📄 picweb.lst
字号:
0E11: BCF 03,5
0E12: BCF 03,6
0E13: MOVWF 32
.................... return(!slipend);
*
0C7D: MOVLW 00
0C7E: BTFSS 4B,4
0C7F: MOVLW 01
0C80: MOVWF 78
*
0DE4: MOVLW 00
0DE5: BTFSS 4B,4
0DE6: MOVLW 01
0DE7: MOVWF 78
*
0E14: MOVLW 00
0E15: BTFSS 4B,4
0E16: MOVLW 01
0E17: MOVWF 78
.................... }
.................... /* Get an incoming lword value, return 0 if end of message */
.................... BOOL get_lword(LWORD &lw)
.................... {
.................... lw.b[3] = getch_slip();
*
0CA0: CALL 06E
0CA1: MOVF 78,W
0CA2: MOVWF 31
*
0CB3: CALL 06E
0CB4: MOVF 78,W
0CB5: MOVWF 2D
*
0E1B: CALL 06E
0E1C: MOVF 78,W
0E1D: MOVWF 39
*
0E2E: CALL 06E
0E2F: MOVF 78,W
0E30: MOVWF 3D
.................... lw.b[2] = getch_slip();
*
0CA3: CALL 06E
0CA4: MOVF 78,W
0CA5: MOVWF 30
*
0CB6: CALL 06E
0CB7: MOVF 78,W
0CB8: MOVWF 2C
*
0E1E: CALL 06E
0E1F: MOVF 78,W
0E20: MOVWF 38
*
0E31: CALL 06E
0E32: MOVF 78,W
0E33: MOVWF 3C
.................... lw.b[1] = getch_slip();
*
0CA6: CALL 06E
0CA7: MOVF 78,W
0CA8: MOVWF 2F
*
0CB9: CALL 06E
0CBA: MOVF 78,W
0CBB: MOVWF 2B
*
0E21: CALL 06E
0E22: MOVF 78,W
0E23: MOVWF 37
*
0E34: CALL 06E
0E35: MOVF 78,W
0E36: MOVWF 3B
.................... lw.b[0] = getch_slip();
*
0CA9: CALL 06E
0CAA: MOVF 78,W
0CAB: MOVWF 2E
*
0CBC: CALL 06E
0CBD: MOVF 78,W
0CBE: MOVWF 2A
*
0E24: CALL 06E
0E25: MOVF 78,W
0E26: MOVWF 36
*
0E37: CALL 06E
0E38: MOVF 78,W
0E39: MOVWF 3A
.................... return(!slipend);
*
0CAC: MOVLW 00
0CAD: BTFSS 4B,4
0CAE: MOVLW 01
0CAF: MOVWF 78
*
0CBF: MOVLW 00
0CC0: BTFSS 4B,4
0CC1: MOVLW 01
0CC2: MOVWF 78
*
0E27: MOVLW 00
0E28: BTFSS 4B,4
0E29: MOVLW 01
0E2A: MOVWF 78
*
0E3A: MOVLW 00
0E3B: BTFSS 4B,4
0E3C: MOVLW 01
0E3D: MOVWF 78
.................... }
....................
.................... /* Get an incoming byte value as 1 or 2 hex characters */
.................... BOOL get_hexbyte(BYTE &val)
.................... {
.................... BYTE b;
*
1307: BCF 28,0
*
13DF: BCF 28,0
*
14B7: BCF 28,0
.................... BOOL ok=0;
....................
.................... val = 0;
*
1308: BCF 03,5
1309: BCF 03,6
130A: CLRF 72
*
13E0: BCF 03,5
13E1: BCF 03,6
13E2: CLRF 71
*
14B8: BCF 03,5
14B9: BCF 03,6
14BA: CLRF 70
.................... while (isxdigit(rxbuff[rxout]) && get_byte(b))
*
130B: MOVLW A0
130C: ADDWF 51,W
130D: MOVWF 04
130E: BCF 03,7
130F: MOVF 00,W
1310: BSF 03,5
1311: BSF 03,6
1312: MOVWF 29
1313: BCF 03,5
1314: BCF 03,6
1315: MOVLW 30
1316: BSF 03,5
1317: BSF 03,6
1318: SUBWF 29,W
1319: BTFSC 03,0
131A: GOTO 31E
131B: BCF 03,5
131C: BCF 03,6
131D: GOTO 32B
131E: BCF 03,5
131F: BCF 03,6
1320: MOVLW 3A
1321: BSF 03,5
1322: BSF 03,6
1323: SUBWF 29,W
1324: BTFSC 03,0
1325: GOTO 329
1326: BCF 03,5
1327: BCF 03,6
1328: GOTO 357
1329: BCF 03,5
132A: BCF 03,6
132B: MOVLW 41
132C: BSF 03,5
132D: BSF 03,6
132E: SUBWF 29,W
132F: BTFSC 03,0
1330: GOTO 334
1331: BCF 03,5
1332: BCF 03,6
1333: GOTO 341
1334: BCF 03,5
1335: BCF 03,6
1336: MOVLW 47
1337: BSF 03,5
1338: BSF 03,6
1339: SUBWF 29,W
133A: BTFSC 03,0
133B: GOTO 33F
133C: BCF 03,5
133D: BCF 03,6
133E: GOTO 357
133F: BCF 03,5
1340: BCF 03,6
1341: MOVLW 61
1342: BSF 03,5
1343: BSF 03,6
1344: SUBWF 29,W
1345: BTFSC 03,0
1346: GOTO 34A
1347: BCF 03,5
1348: BCF 03,6
1349: GOTO 390
134A: BCF 03,5
134B: BCF 03,6
134C: MOVLW 67
134D: BSF 03,5
134E: BSF 03,6
134F: SUBWF 29,W
1350: BTFSS 03,0
1351: GOTO 355
1352: BCF 03,5
1353: BCF 03,6
1354: GOTO 390
1355: BCF 03,5
1356: BCF 03,6
*
1366: MOVF 78,F
1367: BTFSC 03,2
1368: GOTO 390
*
13E3: MOVLW A0
13E4: ADDWF 51,W
13E5: MOVWF 04
13E6: BCF 03,7
13E7: MOVF 00,W
13E8: BSF 03,5
13E9: BSF 03,6
13EA: MOVWF 29
13EB: BCF 03,5
13EC: BCF 03,6
13ED: MOVLW 30
13EE: BSF 03,5
13EF: BSF 03,6
13F0: SUBWF 29,W
13F1: BTFSC 03,0
13F2: GOTO 3F6
13F3: BCF 03,5
13F4: BCF 03,6
13F5: GOTO 403
13F6: BCF 03,5
13F7: BCF 03,6
13F8: MOVLW 3A
13F9: BSF 03,5
13FA: BSF 03,6
13FB: SUBWF 29,W
13FC: BTFSC 03,0
13FD: GOTO 401
13FE: BCF 03,5
13FF: BCF 03,6
1400: GOTO 42F
1401: BCF 03,5
1402: BCF 03,6
1403: MOVLW 41
1404: BSF 03,5
1405: BSF 03,6
1406: SUBWF 29,W
1407: BTFSC 03,0
1408: GOTO 40C
1409: BCF 03,5
140A: BCF 03,6
140B: GOTO 419
140C: BCF 03,5
140D: BCF 03,6
140E: MOVLW 47
140F: BSF 03,5
1410: BSF 03,6
1411: SUBWF 29,W
1412: BTFSC 03,0
1413: GOTO 417
1414: BCF 03,5
1415: BCF 03,6
1416: GOTO 42F
1417: BCF 03,5
1418: BCF 03,6
1419: MOVLW 61
141A: BSF 03,5
141B: BSF 03,6
141C: SUBWF 29,W
141D: BTFSC 03,0
141E: GOTO 422
141F: BCF 03,5
1420: BCF 03,6
1421: GOTO 468
1422: BCF 03,5
1423: BCF 03,6
1424: MOVLW 67
1425: BSF 03,5
1426: BSF 03,6
1427: SUBWF 29,W
1428: BTFSS 03,0
1429: GOTO 42D
142A: BCF 03,5
142B: BCF 03,6
142C: GOTO 468
142D: BCF 03,5
142E: BCF 03,6
*
143E: MOVF 78,F
143F: BTFSC 03,2
1440: GOTO 468
*
14BB: MOVLW A0
14BC: ADDWF 51,W
14BD: MOVWF 04
14BE: BCF 03,7
14BF: MOVF 00,W
14C0: BSF 03,5
14C1: BSF 03,6
14C2: MOVWF 29
14C3: BCF 03,5
14C4: BCF 03,6
14C5: MOVLW 30
14C6: BSF 03,5
14C7: BSF 03,6
14C8: SUBWF 29,W
14C9: BTFSC 03,0
14CA: GOTO 4CE
14CB: BCF 03,5
14CC: BCF 03,6
14CD: GOTO 4DB
14CE: BCF 03,5
14CF: BCF 03,6
14D0: MOVLW 3A
14D1: BSF 03,5
14D2: BSF 03,6
14D3: SUBWF 29,W
14D4: BTFSC 03,0
14D5: GOTO 4D9
14D6: BCF 03,5
14D7: BCF 03,6
14D8: GOTO 507
14D9: BCF 03,5
14DA: BCF 03,6
14DB: MOVLW 41
14DC: BSF 03,5
14DD: BSF 03,6
14DE: SUBWF 29,W
14DF: BTFSC 03,0
14E0: GOTO 4E4
14E1: BCF 03,5
14E2: BCF 03,6
14E3: GOTO 4F1
14E4: BCF 03,5
14E5: BCF 03,6
14E6: MOVLW 47
14E7: BSF 03,5
14E8: BSF 03,6
14E9: SUBWF 29,W
14EA: BTFSC 03,0
14EB: GOTO 4EF
14EC: BCF 03,5
14ED: BCF 03,6
14EE: GOTO 507
14EF: BCF 03,5
14F0: BCF 03,6
14F1: MOVLW 61
14F2: BSF 03,5
14F3: BSF 03,6
14F4: SUBWF 29,W
14F5: BTFSC 03,0
14F6: GOTO 4FA
14F7: BCF 03,5
14F8: BCF 03,6
14F9: GOTO 540
14FA: BCF 03,5
14FB: BCF 03,6
14FC: MOVLW 67
14FD: BSF 03,5
14FE: BSF 03,6
14FF: SUBWF 29,W
1500: BTFSS 03,0
1501: GOTO 505
1502: BCF 03,5
1503: BCF 03,6
1504: GOTO 540
1505: BCF 03,5
1506: BCF 03,6
*
1516: MOVF 78,F
1517: BTFSC 03,2
1518: GOTO 540
.................... {
.................... ok = 1;
*
1369: BSF 03,5
136A: BSF 03,6
136B: BSF 28,0
*
1441: BSF 03,5
1442: BSF 03,6
1443: BSF 28,0
*
1519: BSF 03,5
151A: BSF 03,6
151B: BSF 28,0
.................... val <<= 4;
*
136C: BCF 03,5
136D: BCF 03,6
136E: SWAPF 72,F
136F: MOVLW F0
1370: ANDWF 72,F
*
1444: BCF 03,5
1445: BCF 03,6
1446: SWAPF 71,F
1447: MOVLW F0
1448: ANDWF 71,F
*
151C: BCF 03,5
151D: BCF 03,6
151E: SWAPF 70,F
151F: MOVLW F0
1520: ANDWF 70,F
.................... if (b <= '9')
*
1371: MOVLW 3A
1372: BSF 03,5
1373: BSF 03,6
1374: SUBWF 27,W
1375: BTFSS 03,0
1376: GOTO 37A
1377: BCF 03,5
1378: BCF 03,6
1379: GOTO 384
137A: BCF 03,5
137B: BCF 03,6
*
1449: MOVLW 3A
144A: BSF 03,5
144B: BSF 03,6
144C: SUBWF 27,W
144D: BTFSS 03,0
144E: GOTO 452
144F: BCF 03,5
1450: BCF 03,6
1451: GOTO 45C
1452: BCF 03,5
1453: BCF 03,6
*
1521: MOVLW 3A
1522: BSF 03,5
1523: BSF 03,6
1524: SUBWF 27,W
1525: BTFSS 03,0
1526: GOTO 52A
1527: BCF 03,5
1528: BCF 03,6
1529: GOTO 534
152A: BCF 03,5
152B: BCF 03,6
.................... val += b - '0';
*
137C: MOVLW 30
137D: BSF 03,5
137E: BSF 03,6
137F: SUBWF 27,W
1380: BCF 03,5
1381: BCF 03,6
1382: ADDWF 72,F
*
1454: MOVLW 30
1455: BSF 03,5
1456: BSF 03,6
1457: SUBWF 27,W
1458: BCF 03,5
1459: BCF 03,6
145A: ADDWF 71,F
*
152C: MOVLW 30
152D: BSF 03,5
152E: BSF 03,6
152F: SUBWF 27,W
1530: BCF 03,5
1531: BCF 03,6
1532: ADDWF 70,F
.................... else
*
1383: GOTO 38F
*
145B: GOTO 467
*
1533: GOTO 53F
.................... val += (b-'A'+10) & 0xf;
*
1384: MOVLW 41
1385: BSF 03,5
1386: BSF 03,6
1387: SUBWF 27,W
1388: BCF 03,5
1389: BCF 03,6
138A: MOVWF 77
138B: MOVLW 0A
138C: ADDWF 77,W
138D: ANDLW 0F
138E: ADDWF 72,F
*
145C: MOVLW 41
145D: BSF 03,5
145E: BSF 03,6
145F: SUBWF 27,W
1460: BCF 03,5
1461: BCF 03,6
1462: MOVWF 77
1463: MOVLW 0A
1464: ADDWF 77,W
1465: ANDLW 0F
1466: ADDWF 71,F
*
1534: MOVLW 41
1535: BSF 03,5
1536: BSF 03,6
1537: SUBWF 27,W
1538: BCF 03,5
1539: BCF 03,6
153A: MOVWF 77
153B: MOVLW 0A
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -