⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 invaders.lst

📁 PIC+LCD12864做的坦克打飞机游戏代码
💻 LST
📖 第 1 页 / 共 5 页
字号:
  00000028            00130 PPZ = 40
  00000029            00131 PPZH = 41
  0000002A            00132 PPZHH = 42
  0000002B            00133 PPZHHH = 43
  0000002C            00134 SP#P9 = 44
  0000002D            00135 _B#VR1 = 45
  0000002E            00136 _B#VR2 = 46
  0000002F            00137 _GLCD_FLAG = 47
  00000030            00138 _GLCD_XPOS = 48
  00000031            00139 NOTE_STATUS = 49
  00000032            00140 INTERRUPT_COUNTER1 = 50
  00000033            00141 INVADER_SOUND_COUNTER = 51
  00000034            00142 INVADER_FREQ = 52
  00000035            00143 INVADER_SOUND_DURATION = 53
  00000036            00144 INVADER_SOUND_DURATION_COUNTER = 54
  00000037            00145 MISSILE_SOUND_COUNTER = 55
  00000038            00146 MISSILE_FREQ = 56
  00000039            00147 SAUCER_SOUND_COUNTER = 57
  0000003A            00148 SAUCER_FREQ = 58
  0000003B            00149 MISSILE_STATUS = 59
  0000003C            00150 INVADER_LOOP = 60
000000                00151         ORG 0
000000 EFC3 F002      00152         GOTO START@
000008                00153         ORG 8
000008 6A13           00154 T@EB CLRF 19
00000A 6A17           00155 T@EW CLRF 23
00000C 6E16           00156 T@E MOVWF 22
00000E 0E02           00157         MOVLW 2
000010 D000           00158         BRA T@ST
000012 6E0B           00159 T@ST MOVWF 11
                      00160         MOVFW 23
000016 5C13           00161         SUBWF 19,W
000018 E102           00162         BNZ CN@EQ
                      00163         MOVFW 22
00001C 5C12           00164         SUBWF 18,W
00001E 0E04           00165 CN@EQ MOVLW 4
000020 B0D8           00166         SKPNC
000022 0E01           00167         MOVLW 1
000024 B4D8           00168         SKPNZ
000026 0E02           00169         MOVLW 2
000028 140B           00170         ANDWF 11,W
00002A A4D8           00171         SKPZ
00002C 0E01           00172         MOVLW 1
00002E EFC1 F002      00173         GOTO I@NT
000032                00174 OUT@DEC
000032 9600           00175         BCF 0,3
                      00176         MOVFW 9
000036 B4D8           00177         SKPNZ
000038 8600           00178         BSF 0,3
00003A 0E05           00179         MOVLW 5
00003C 6E08           00180         MOVWF 8
00003E 0E27           00181         MOVLW 39
000040 6E17           00182         MOVWF 23
000042 0E10           00183         MOVLW 16
000044 D80C           00184         RCALL D@DIG
000046 0E03           00185         MOVLW 3
000048 6E17           00186         MOVWF 23
00004A 0EE8           00187         MOVLW 232
00004C D808           00188         RCALL D@DIG
00004E 6A17           00189         CLRF 23
000050 0E64           00190         MOVLW 100
000052 D805           00191         RCALL D@DIG
000054 6A17           00192         CLRF 23
000056 0E0A           00193         MOVLW 10
000058 D802           00194         RCALL D@DIG
                      00195         MOVFW 24
00005C D008           00196         BRA SEND@IT
00005E 6E16           00197 D@DIG MOVWF 22
                      00198         MOVFW 25
000062 6E13           00199         MOVWF 19
                      00200         MOVFW 24
000066 6E12           00201         MOVWF 18
000068 EC99 F002      00202         CALL D@VD
                      00203         MOVFW 18
00006E 6E12           00204 SEND@IT MOVWF 18
000070 4E08           00205         DCFSNZ 8,F
000072 9600           00206         BCF 0,3
                      00207         MOVFW 9
000076 E003           00208         BZ $ + 8
000078 5C08           00209         SUBWF 8,W
00007A B0D8           00210         SKPNC
00007C D008           00211         BRA EX@SEND@IT
                      00212         MOVFW 18
000080 A4D8           00213         SKPZ
000082 9600           00214         BCF 0,3
000084 B600           00215         BTFSC 0,3
000086 D003           00216         BRA EX@SEND@IT
000088 0F30           00217         ADDLW '0'
00008A EF0B F002      00218         GOTO CH@SND
00008E                00219 EX@SEND@IT
00008E 0012           00220         RETURN
000090                00221 OUT@DEC32
000090 9600           00222         BCF 0,3
                      00223         MOVFW 9
000094 E103           00224         BNZ     O@D32L1
000096 8600           00225         BSF 0,3
000098 0E0A           00226         MOVLW 10
00009A 6E09           00227         MOVWF 9
00009C                00228 O@D32L1
00009C C027 F015      00229         MOVFF PP7HHH,PP0HHH
0000A0 C026 F014      00230         MOVFF PP7HH,PP0HH
0000A4 C025 F013      00231         MOVFF 37,19
0000A8 C024 F012      00232         MOVFF 36,18
0000AC 6A08           00233         CLRF 8
0000AE                00234 O@D32L2
0000AE 6A1B           00235         CLRF PP2HHH
0000B0 6A1A           00236         CLRF PP2HH
0000B2 6A19           00237         CLRF 25
0000B4 0E0A           00238         MOVLW 10
0000B6 6E18           00239         MOVWF 24
0000B8 EC43 F002      00240         CALL L@DIV
0000BC 2A08           00241         INCF 8,F
                      00242         MOVFW 8
0000C0 5C09           00243         SUBWF 9,W
0000C2 A4D8           00244         BTFSS 4056,Z
0000C4 D7F4           00245         BRA O@D32L2
                      00246         MOVFW 24
0000C8 A4D8           00247         BTFSS 4056,Z
0000CA 9600           00248         BCF 0,3
0000CC A600           00249         BTFSS 0,3
0000CE D002           00250         BRA O@D32SKP
0000D0 2C09           00251         DECFSZ 9,W
0000D2 D004           00252         BRA O@D32L3
0000D4                00253 O@D32SKP
                      00254         MOVFW 24
0000D6 0F30           00255         ADDLW 48
0000D8 EC0B F002      00256         CALL CH@SND
0000DC                00257 O@D32L3
0000DC 2E09           00258         DECFSZ 9,F
0000DE D7DE           00259         BRA O@D32L1
0000E0 EFC1 F002      00260         GOTO I@NT
0000E4 6AF8           00261 PRINT@MSTR CLRF TBLPTRU
0000E6 6AA6           00262         CLRF EECON1
0000E8 8EA6           00263         BSF EECON1,EEPGD
0000EA 6A02           00264         CLRF CSTR@CT
0000EC C008 FFF6      00265         MOVFF 8,4086
0000F0 C009 FFF7      00266         MOVFF 9,4087
0000F4 0009           00267         TBLRD*+
                      00268         MOVFW 4085
0000F8 E006           00269         BZ $ + 14
0000FA D806           00270         RCALL PRINT
0000FC 2A08           00271         INCF 8,F
0000FE B4D8           00272         SKPNZ
000100 2A09           00273         INCF 9,F
000102 3E02           00274         INCFSZ CSTR@CT,F
000104 D7F3           00275         BRA $ - 24
000106 0012           00276         RETURN
000108 6E1D           00277 PRINT MOVWF 29
00010A EC96 F001      00278         CALL SETUP@LCD
                      00279 GLCD@FLP MOVFW _GLCD_XPOS
000110 ECB3 F001      00280         CALL CHECK@PAGE
000114 C018 F006      00281         MOVFF 24,6
000118 C019 F007      00282         MOVFF 25,7
00011C 0E06           00283         MOVLW 6
00011E 021D           00284         MULWF 29
000120 0E24           00285         MOVLW LOW FONT
000122 24F3           00286         ADDWF PRODL,W
000124 6EF6           00287         MOVWF 4086
000126 0E21           00288         MOVLW HIGH FONT
000128 B0D8           00289         SKPNC
00012A 0F01           00290         ADDLW 1
00012C 24F4           00291         ADDWF PRODH,W
00012E 6EF7           00292         MOVWF 4087
000130 0E06           00293         MOVLW 6
000132 6E22           00294         MOVWF 34
000134                00295 GLCD_L@2
000134 6AF8           00296         CLRF 4088
000136 6AA6           00297         CLRF 4006
000138 8EA6           00298         BSF     4006,EEPGD
00013A 0009           00299         TBLRD*+
                      00300         MOVFW 4085
00013E 6E18           00301         MOVWF 24
000140 B02F           00302         BTFSC _GLCD_FLAG,0
000142 1E18           00303         COMF PP2,F
000144 D809           00304         RCALL LCDWRITE
000146 2E22           00305         DECFSZ 34,F
000148 D7F5           00306         BRA GLCD_L@2
00014A C006 F018      00307         MOVFF 6,24
00014E C007 F019      00308         MOVFF 7,25
000152                00309 LCD@DONE
                      00310         MOVFW 29
000154 EFC1 F002      00311         GOTO I@NT
000158                00312 LCDWRITE
                      00313         MOVFW 24
00015A                00314 LCDWRITE@WREG
00015A 9282           00315         BCF PORTC,1
00015C D913           00316         RCALL READ@STATUS
00015E 8282           00317         BSF PORTC,1
000160 8084           00318         BSF PORTE,0
000162 6E83           00319         MOVWF PORTD
000164 9084           00320         BCF PORTE,0
000166 0E7D           00321         MOVLW 125
000168 6030           00322         CPFSLT _GLCD_XPOS
00016A D002           00323         BRA $ + 6
00016C 2A30           00324         INCF _GLCD_XPOS,F
00016E D001           00325         BRA $ + 4
000170 6A30           00326         CLRF _GLCD_XPOS
                      00327         MOVFW _GLCD_XPOS
000174 D8F8           00328         RCALL CHECK@PAGE
000176 9282           00329         BCF PORTC,1
                      00330         MOVFW _GLCD_XPOS
00017A D904           00331         RCALL READ@STATUS
00017C 8084           00332         BSF PORTE,0
00017E 6E83           00333         MOVWF PORTD
000180 9084           00334         BCF PORTE,0
000182 0012           00335         RETURN
000184 6E1C           00336 CIR@CLE MOVWF 28
000186 6A19           00337         CLRF 25
000188 C01C F018      00338         MOVFF 28,24
00018C 90D8           00339         CLRC
                      00340         RLF 28,W
000190 6E22           00341         MOVWF 34
000192 6A23           00342         CLRF 35
                      00343         RLF 35,F
                      00344 MOVFW 34
000198 0803           00345 SUBLW 3
00019A 6E16           00346 MOVWF 22
00019C 0E00           00347 MOVLW 0
00019E 5423           00348 SUBFWB 35,W
0001A0 6E17           00349 MOVWF 23
                      00350 CRC@LP1 MOVFW 25
0001A4 5C18           00351         SUBWF 24,W
0001A6 A0D8           00352         SKPC
0001A8 EFC1 F002      00353         GOTO I@NT
0001AC D82C           00354         RCALL PLOT@8
0001AE AE17           00355         BTFSS 23,7
0001B0 D011           00356         BRA CRC@LP2
0001B2 C019 F022      00357         MOVFF 25,34
0001B6 6A23           00358         CLRF 35
0001B8 90D8           00359         CLRC
                      00360         RLF 34,F
                      00361         RLF 35,F
                      00362         RLF 34,F
                      00363         RLF 35,F
                      00364         MOVFW 34
0001C4 2616           00365         ADDWF 22,F
                      00366         MOVFW 35
0001C8 2217           00367         ADDWFC 23,F
0001CA 0E06           00368         MOVLW 6
0001CC 2616           00369         ADDWF 22,F
0001CE 0E00           00370         MOVLW 0

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -