HAMDEM1.SRC
FILE INFORMATION
FILENAME(S): HAMDEM1.SRC
FILE TYPE(S): SEQ
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 01:12:47
APPEARS ON: 2 disk(s)
FILE HASH
2e19014ff9c3b6ec4dc3f42616ac54c40e2ce1f45a91a5276488db128fe99951
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10009 SEITE A | HAMDEM1.SRC | SEQ | C64er, DuncanTwain | 31 | 1 | DOWNLOAD FILE |
| 64 ER SONDERH 93 | HAMDEM1.SRC | SEQ | C64er | 21 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 3A 50 57 53 20 4D 20 32 0D 4C 44 41 20 23 3C |.:PWS M 2.LDA #<| 00000010: 40 30 0D 53 54 41 20 40 31 0D 4C 44 41 20 23 3E |@0.STA @1.LDA #>| 00000020: 40 30 0D 53 54 41 20 40 31 2B 31 0D 2F 0D 3A 41 |@0.STA @1+1./.:A| 00000030: 44 44 20 4D 20 32 0D 43 4C 43 0D 4C 44 41 20 40 |DD M 2.CLC.LDA @| 00000040: 30 0D 41 44 43 20 23 3C 40 31 0D 53 54 41 20 40 |0.ADC #<@1.STA @| 00000050: 30 0D 4C 44 41 20 40 30 2B 31 0D 41 44 43 20 23 |0.LDA @0+1.ADC #| 00000060: 3E 40 31 0D 53 54 41 20 40 30 2B 31 0D 2F 0D 3A |>@1.STA @0+1./.:| 00000070: 41 44 42 20 4D 46 20 32 0D 43 4C 43 0D 4C 44 41 |ADB MF 2.CLC.LDA| 00000080: 20 40 30 0D 41 44 43 20 23 3C 40 31 0D 53 54 41 | @0.ADC #<@1.STA| 00000090: 20 40 30 0D 42 43 43 20 41 44 42 43 31 0D 49 4E | @0.BCC ADBC1.IN| 000000A0: 43 20 40 30 2B 31 0D 43 4C 43 0D 3A 41 44 42 43 |C @0+1.CLC.:ADBC| 000000B0: 31 0D 2F 0D 3A 53 42 42 20 4D 46 20 32 0D 53 45 |1./.:SBB MF 2.SE| 000000C0: 43 0D 4C 44 41 20 40 30 0D 53 42 43 20 23 3C 40 |C.LDA @0.SBC #<@| 000000D0: 31 0D 53 54 41 20 40 30 0D 42 43 53 20 53 42 42 |1.STA @0.BCS SBB| 000000E0: 43 31 0D 44 45 43 20 40 30 2B 31 0D 3A 53 42 42 |C1.DEC @0+1.:SBB| 000000F0: 43 31 0D 2F 0D 3A 53 55 42 20 4D 20 32 0D 53 45 |C1./.:SUB M 2.SE| 00000100: 43 0D 4C 44 41 20 40 30 0D 53 42 43 20 23 3C 40 |C.LDA @0.SBC #<@| 00000110: 31 0D 53 54 41 20 40 30 0D 4C 44 41 20 40 30 2B |1.STA @0.LDA @0+| 00000120: 31 0D 53 42 43 20 23 3E 40 31 0D 53 54 41 20 40 |1.SBC #>@1.STA @| 00000130: 30 2B 31 0D 2F 0D 3A 44 58 50 20 4D 20 31 0D 44 |0+1./.:DXP M 1.D| 00000140: 45 58 0D 42 50 4C 20 40 30 0D 2F 0D 3A 49 58 42 |EX.BPL @0./.:IXB| 00000150: 20 4D 20 32 0D 49 4E 58 0D 43 50 58 20 23 40 30 | M 2.INX.CPX #@0| 00000160: 0D 42 4E 45 20 40 31 0D 2F 0D 3A 44 58 4E 20 4D |.BNE @1./.:DXN M| 00000170: 20 31 0D 44 45 58 0D 42 4E 45 20 40 30 0D 2F 0D | 1.DEX.BNE @0./.| 00000180: 3A 49 58 4E 20 4D 20 31 0D 49 4E 58 0D 42 4E 45 |:IXN M 1.INX.BNE| 00000190: 20 40 30 0D 2F 0D 3A 44 59 50 20 4D 20 31 0D 44 | @0./.:DYP M 1.D| 000001A0: 45 59 0D 42 50 4C 20 40 30 0D 2F 0D 3A 49 59 42 |EY.BPL @0./.:IYB| 000001B0: 20 4D 20 32 0D 49 4E 59 0D 43 50 59 20 23 40 30 | M 2.INY.CPY #@0| 000001C0: 0D 42 4E 45 20 40 31 0D 2F 0D 3A 44 59 4E 20 4D |.BNE @1./.:DYN M| 000001D0: 20 31 0D 44 45 59 0D 42 4E 45 20 40 30 0D 2F 0D | 1.DEY.BNE @0./.| 000001E0: 3A 49 59 4E 20 4D 20 31 0D 49 4E 59 0D 42 4E 45 |:IYN M 1.INY.BNE| 000001F0: 20 40 30 0D 2F 0D 3A 42 41 45 20 4D 20 32 0D 43 | @0./.:BAE M 2.C| 00000200: 4D 50 20 23 40 30 0D 42 45 51 20 40 31 0D 2F 0D |MP #@0.BEQ @1./.| 00000210: 3A 42 41 4E 20 4D 20 32 0D 43 4D 50 20 23 40 30 |:BAN M 2.CMP #@0| 00000220: 0D 42 4E 45 20 40 31 0D 2F 0D 3A 42 58 45 20 4D |.BNE @1./.:BXE M| 00000230: 20 32 0D 43 50 58 20 23 40 30 0D 42 45 51 20 40 | 2.CPX #@0.BEQ @| 00000240: 31 0D 2F 0D 3A 42 58 4E 20 4D 20 32 0D 43 50 58 |1./.:BXN M 2.CPX| 00000250: 20 23 40 30 0D 42 4E 45 20 40 31 0D 2F 0D 3A 42 | #@0.BNE @1./.:B| 00000260: 59 45 20 4D 20 32 0D 43 50 59 20 23 40 30 0D 42 |YE M 2.CPY #@0.B| 00000270: 45 51 20 40 31 0D 2F 0D 3A 42 59 4E 20 4D 20 32 |EQ @1./.:BYN M 2| 00000280: 0D 43 50 59 20 23 40 30 0D 42 4E 45 40 40 31 0D |.CPY #@0.BNE@@1.| 00000290: 2F 0D 3A 4C 53 59 20 4D 20 32 0D 4C 44 41 20 28 |/.:LSY M 2.LDA (| 000002A0: 40 30 29 2C 59 0D 53 54 41 20 28 40 31 29 2C 59 |@0),Y.STA (@1),Y| 000002B0: 0D 2F 0D 3A 49 4E 57 20 4D 46 20 31 0D 49 4E 43 |./.:INW MF 1.INC| 000002C0: 20 40 30 0D 42 4E 45 20 49 4E 57 43 31 0D 49 4E | @0.BNE INWC1.IN| 000002D0: 43 20 40 30 2B 31 0D 3A 49 4E 57 43 31 0D 2F 0D |C @0+1.:INWC1./.| 000002E0: 3A 44 45 57 20 4D 46 20 31 0D 44 45 43 20 40 30 |:DEW MF 1.DEC @0| 000002F0: 0D 4C 44 41 20 40 30 0D 43 4D 50 20 23 24 46 46 |.LDA @0.CMP #$FF| 00000300: 0D 42 4E 45 20 44 45 57 43 31 0D 44 45 43 20 40 |.BNE DEWC1.DEC @| 00000310: 30 2B 31 0D 3A 44 45 57 43 31 0D 2F 0D 3A 52 20 |0+1.:DEWC1./.:R | 00000320: 4D 20 30 0D 52 54 53 0D 2F 0D 3A 43 4F 4D 20 4D |M 0.RTS./.:COM M| 00000330: 46 20 32 20 20 3B 49 46 20 50 31 3E 3D 50 32 4C |F 2 ;IF P1>=P2L| 00000340: 20 54 48 45 4E 20 53 45 43 0D 4C 44 41 20 40 30 | THEN SEC.LDA @0| 00000350: 2B 31 20 20 20 3B 0D 43 4D 50 20 40 31 2B 31 20 |+1 ;.CMP @1+1 | 00000360: 20 20 3B 0D 42 45 51 20 4D 43 43 53 20 20 20 3B | ;.BEQ MCCS ;| 00000370: 0D 4A 4D 50 20 45 43 4F 4D 4D 20 20 3B 0D 3A 4D |.JMP ECOMM ;.:M| 00000380: 43 43 53 20 20 20 20 20 20 3B 0D 4C 44 41 20 40 |CCS ;.LDA @| 00000390: 30 20 20 20 20 20 3B 0D 43 4D 50 20 40 31 0D 3A |0 ;.CMP @1.:| 000003A0: 45 43 4F 4D 4D 0D 2F 0D 0D 3A 4D 4F 56 20 4D 20 |ECOMM./..:MOV M | 000003B0: 32 0D 4C 44 41 20 40 30 0D 53 54 41 20 40 31 0D |2.LDA @0.STA @1.| 000003C0: 2F 0D 0D 3A 50 55 54 20 4D 20 32 0D 4C 44 41 20 |/..:PUT M 2.LDA | 000003D0: 23 40 30 0D 53 54 41 20 40 31 0D 2F 0D 0D 3A 50 |#@0.STA @1./..:P| 000003E0: 52 54 20 4D 20 31 0D 4C 44 58 20 23 3C 40 30 0D |RT M 1.LDX #<@0.| 000003F0: 4C 44 59 20 23 3E 40 30 0D 4A 53 52 20 50 54 45 |LDY #>@0.JSR PTE| 00000400: 58 54 0D 2F 0D 0D 3A 4C 58 59 20 4D 20 31 0D 4C |XT./..:LXY M 1.L| 00000410: 44 58 20 23 3C 40 30 0D 4C 44 59 20 23 3E 40 30 |DX #<@0.LDY #>@0| 00000420: 0D 2F 0D 0D 3A 53 54 43 4F 4E 56 3D 24 38 43 30 |./..:STCONV=$8C0| 00000430: 30 20 3B 47 52 41 50 48 49 43 20 44 41 54 41 0D |0 ;GRAPHIC DATA.| 00000440: 0D 3A 42 4D 41 50 3D 24 36 30 30 30 2B 32 34 0D |.:BMAP=$6000+24.| 00000450: 3A 56 52 30 3D 24 34 30 30 30 2B 33 0D 3A 43 52 |:VR0=$4000+3.:CR| 00000460: 42 3D 24 38 30 30 30 2B 33 0D 3A 43 52 3D 24 44 |B=$8000+3.:CR=$D| 00000470: 38 30 30 2B 33 0D 3A 50 31 4C 3D 24 36 31 0D 3A |800+3.:P1L=$61.:| 00000480: 50 31 48 3D 24 36 32 0D 3A 50 32 4C 3D 24 36 33 |P1H=$62.:P2L=$63| 00000490: 0D 3A 50 32 48 3D 24 36 34 0D 3A 50 33 4C 3D 24 |.:P2H=$64.:P3L=$| 000004A0: 36 35 0D 3A 50 33 48 3D 24 36 36 0D 3A 50 34 4C |65.:P3H=$66.:P4L| 000004B0: 3D 24 36 37 0D 3A 50 34 48 3D 24 36 38 0D 3A 50 |=$67.:P4H=$68.:P| 000004C0: 35 4C 3D 24 36 39 0D 3A 50 35 48 3D 24 36 41 0D |5L=$69.:P5H=$6A.| 000004D0: 3A 50 36 4C 3D 24 36 42 0D 3A 50 36 48 3D 24 36 |:P6L=$6B.:P6H=$6| 000004E0: 43 0D 0D 3A 49 41 3D 24 36 44 0D 3A 43 4E 54 31 |C..:IA=$6D.:CNT1| 000004F0: 3D 24 36 45 0D 3A 43 4E 54 32 3D 24 36 46 0D 3A |=$6E.:CNT2=$6F.:| 00000500: 43 4E 54 33 3D 24 37 30 0D 0D 4F 52 47 20 24 38 |CNT3=$70..ORG $8| 00000510: 34 30 30 0D 4A 53 52 20 24 43 30 30 30 0D 4C 44 |400.JSR $C000.LD| 00000520: 58 20 23 30 0D 53 54 58 20 50 32 4C 0D 53 54 58 |X #0.STX P2L.STX| 00000530: 20 50 33 4C 0D 50 55 54 20 3E 56 52 30 2C 50 32 | P3L.PUT >VR0,P2| 00000540: 48 0D 50 55 54 20 3E 53 54 43 4F 4E 56 2C 50 33 |H.PUT >STCONV,P3| 00000550: 48 0D 3A 45 50 4C 31 0D 4C 44 59 20 23 30 0D 4C |H.:EPL1.LDY #0.L| 00000560: 44 41 20 28 50 33 4C 29 2C 59 0D 42 41 4E 20 24 |DA (P3L),Y.BAN $| 00000570: 45 41 2C 45 50 43 31 0D 49 4E 59 0D 4C 44 41 20 |EA,EPC1.INY.LDA | 00000580: 28 50 33 4C 29 2C 59 0D 53 54 41 20 50 31 48 0D |(P3L),Y.STA P1H.| 00000590: 49 4E 59 0D 4C 44 41 20 28 50 33 4C 29 2C 59 0D |INY.LDA (P3L),Y.| 000005A0: 53 54 41 20 50 31 4C 0D 3A 45 50 4C 32 0D 4C 44 |STA P1L.:EPL2.LD| 000005B0: 41 20 23 30 0D 53 54 41 20 28 50 32 4C 29 2C 58 |A #0.STA (P2L),X| 000005C0: 0D 49 4E 57 20 50 32 4C 0D 44 45 57 20 50 31 4C |.INW P2L.DEW P1L| 000005D0: 0D 0D 4C 44 41 20 50 31 48 0D 42 4E 45 20 45 50 |..LDA P1H.BNE EP| 000005E0: 4C 32 0D 4C 44 41 20 50 31 4C 0D 42 4E 45 20 45 |L2.LDA P1L.BNE E| 000005F0: 50 4C 32 0D 41 44 42 20 50 33 4C 2C 32 0D 4A 4D |PL2.ADB P3L,2.JM| 00000600: 50 20 45 50 43 33 0D 3A 45 50 43 31 0D 53 54 41 |P EPC3.:EPC1.STA| 00000610: 20 28 50 32 4C 29 2C 59 0D 49 4E 57 20 50 32 4C | (P2L),Y.INW P2L| 00000620: 0D 3A 45 50 43 33 0D 49 4E 57 20 50 33 4C 0D 4C |.:EPC3.INW P3L.L| 00000630: 44 41 20 50 33 4C 0D 42 41 4E 20 24 46 46 2C 45 |DA P3L.BAN $FF,E| 00000640: 50 4C 31 0D 4C 44 41 20 50 33 48 0D 42 41 4E 20 |PL1.LDA P3H.BAN | 00000650: 24 38 46 2C 45 50 4C 31 0D 0D 4C 44 58 20 23 30 |$8F,EPL1..LDX #0| 00000660: 0D 3A 48 55 50 4C 0D 4C 44 41 20 43 52 42 2C 58 |.:HUPL.LDA CRB,X| 00000670: 0D 53 54 41 20 43 52 2C 58 0D 4C 44 41 20 43 52 |.STA CR,X.LDA CR| 00000680: 42 2B 32 35 36 2C 58 0D 53 54 41 20 43 52 2B 32 |B+256,X.STA CR+2| 00000690: 35 36 2C 58 0D 4C 44 41 20 43 52 42 2B 35 31 32 |56,X.LDA CRB+512| 000006A0: 2C 58 0D 53 54 41 20 43 52 2B 35 31 32 2C 58 0D |,X.STA CR+512,X.| 000006B0: 4C 44 41 20 43 52 42 2B 37 36 38 2C 58 0D 53 54 |LDA CRB+768,X.ST| 000006C0: 41 20 43 52 2B 37 36 38 2C 58 0D 49 58 4E 20 48 |A CR+768,X.IXN H| 000006D0: 55 50 4C 0D 0D 3A 43 4F 50 34 35 36 0D 0D 4C 44 |UPL..:COP456..LD| 000006E0: 41 20 23 30 0D 53 54 41 20 4F 46 56 4C 0D 53 54 |A #0.STA OFVL.ST| 000006F0: 41 20 4F 46 42 4C 0D 53 54 41 20 4F 46 42 48 0D |A OFBL.STA OFBH.| 00000700: 3A 43 50 4C 36 0D 50 55 54 20 33 2C 43 4E 54 32 |:CPL6.PUT 3,CNT2| 00000710: 0D 3A 43 50 4C 35 0D 4C 44 41 20 43 4E 54 32 0D |.:CPL5.LDA CNT2.| 00000720: 41 53 4C 0D 54 41 58 0D 43 4C 43 0D 4C 44 41 20 |ASL.TAX.CLC.LDA | 00000730: 49 43 53 56 2C 58 0D 41 44 43 20 4F 46 56 4C 0D |ICSV,X.ADC OFVL.| 00000740: 53 54 41 20 50 32 4C 0D 4C 44 41 20 49 43 53 56 |STA P2L.LDA ICSV| 00000750: 2B 31 2C 58 0D 41 44 43 20 23 30 0D 53 54 41 20 |+1,X.ADC #0.STA | 00000760: 50 32 48 0D 0D 4C 44 41 20 49 43 53 43 2C 58 0D |P2H..LDA ICSC,X.| 00000770: 41 44 43 20 4F 46 56 4C 0D 53 54 41 20 50 33 4C |ADC OFVL.STA P3L| 00000780: 0D 4C 44 41 20 49 43 53 43 2B 31 2C 58 0D 41 44 |.LDA ICSC+1,X.AD| 00000790: 43 20 23 30 0D 53 54 41 20 50 33 48 0D 0D 4C 44 |C #0.STA P3H..LD| 000007A0: 41 20 49 43 53 42 2C 58 0D 41 44 43 20 4F 46 42 |A ICSB,X.ADC OFB| 000007B0: 4C 0D 53 54 41 20 50 31 4C 0D 4C 44 41 20 49 43 |L.STA P1L.LDA IC| 000007C0: 53 42 2B 31 2C 58 0D 41 44 43 20 4F 46 42 48 0D |SB+1,X.ADC OFBH.| 000007D0: 53 54 41 20 50 31 48 0D 0D 4A 53 52 20 43 4F 49 |STA P1H..JSR COI| 000007E0: 0D 0D 44 45 43 20 43 4E 54 32 0D 42 50 4C 20 43 |..DEC CNT2.BPL C| 000007F0: 50 4C 35 0D 41 44 42 20 4F 46 42 4C 2C 36 34 0D |PL5.ADB OFBL,64.| 00000800: 43 4C 43 0D 4C 44 41 20 4F 46 56 4C 0D 41 44 43 |CLC.LDA OFVL.ADC| 00000810: 20 23 38 0D 53 54 41 20 4F 46 56 4C 0D 43 4D 50 | #8.STA OFVL.CMP| 00000820: 20 23 33 32 0D 42 43 43 20 43 50 4C 36 0D 0D 4C | #32.BCC CPL6..L| 00000830: 44 41 20 23 24 46 46 0D 53 54 41 20 24 44 34 30 |DA #$FF.STA $D40| 00000840: 31 2B 31 34 0D 4C 44 41 20 23 24 38 30 0D 53 54 |1+14.LDA #$80.ST| 00000850: 41 20 24 44 34 30 34 2B 31 34 0D 0D 3A 52 41 4C |A $D404+14..:RAL| 00000860: 31 0D 4C 44 41 20 23 32 35 0D 53 54 41 20 43 4E |1.LDA #25.STA CN| 00000870: 54 31 0D 50 57 53 20 56 52 30 2C 50 31 4C 0D 50 |T1.PWS VR0,P1L.P| 00000880: 57 53 20 43 52 2C 50 32 4C 0D 3A 52 41 4C 34 0D |WS CR,P2L.:RAL4.| 00000890: 4C 44 59 20 23 30 0D 3A 52 41 4C 33 0D 4C 44 58 |LDY #0.:RAL3.LDX| 000008A0: 20 23 38 0D 3A 52 41 4C 32 0D 4C 44 41 20 28 50 | #8.:RAL2.LDA (P| 000008B0: 31 4C 29 2C 59 0D 4A 53 52 20 47 4E 43 0D 53 54 |1L),Y.JSR GNC.ST| 000008C0: 41 20 28 50 31 4C 29 2C 59 0D 43 4C 43 0D 4C 44 |A (P1L),Y.CLC.LD| 000008D0: 41 20 50 31 48 0D 41 44 43 20 23 34 0D 53 54 41 |A P1H.ADC #4.STA| 000008E0: 20 50 31 48 0D 44 58 4E 20 52 41 4C 32 0D 0D 53 | P1H.DXN RAL2..S| 000008F0: 55 42 20 50 31 4C 2C 24 32 30 30 30 0D 4C 44 41 |UB P1L,$2000.LDA| 00000900: 20 28 50 32 4C 29 2C 59 0D 4A 53 52 20 47 4E 43 | (P2L),Y.JSR GNC| 00000910: 0D 53 54 41 20 28 50 32 4C 29 2C 59 0D 49 59 42 |.STA (P2L),Y.IYB| 00000920: 20 33 37 2C 52 41 4C 33 0D 0D 41 44 42 20 50 31 | 37,RAL3..ADB P1| 00000930: 4C 2C 34 30 0D 41 44 42 20 50 32 4C 2C 34 30 0D |L,40.ADB P2L,40.| 00000940: 0D 44 45 43 20 43 4E 54 31 0D 42 4E 45 20 52 41 |.DEC CNT1.BNE RA| 00000950: 4C 34 0D 4A 4D 50 20 52 41 4C 31 0D 0D 3A 47 4E |L4.JMP RAL1..:GN| 00000960: 43 0D 53 54 58 20 43 4E 54 33 0D 53 54 41 20 43 |C.STX CNT3.STA C| 00000970: 4E 54 32 0D 4C 53 52 0D 4C 53 52 0D 4C 53 52 0D |NT2.LSR.LSR.LSR.| 00000980: 4C 53 52 0D 4A 53 52 20 49 47 54 0D 41 53 4C 0D |LSR.JSR IGT.ASL.| 00000990: 41 53 4C 0D 41 53 4C 0D 41 53 4C 0D 53 54 41 20 |ASL.ASL.ASL.STA | 000009A0: 50 33 4C 0D 4C 44 41 20 43 4E 54 32 0D 41 4E 44 |P3L.LDA CNT2.AND| 000009B0: 20 23 24 46 0D 4A 53 52 20 49 47 54 0D 4F 52 41 | #$F.JSR IGT.ORA| 000009C0: 20 50 33 4C 0D 4C 44 58 20 43 4E 54 33 0D 52 0D | P3L.LDX CNT3.R.| 000009D0: 0D 3A 49 47 54 0D 54 41 58 0D 4C 44 41 20 24 44 |.:IGT.TAX.LDA $D| 000009E0: 34 31 42 0D 41 4E 44 20 23 33 0D 42 45 51 20 54 |41B.AND #3.BEQ T| 000009F0: 41 42 30 0D 42 41 45 20 31 2C 54 41 42 31 0D 42 |AB0.BAE 1,TAB1.B| 00000A00: 41 45 20 32 2C 54 41 42 32 0D 4C 44 41 20 43 54 |AE 2,TAB2.LDA CT| 00000A10: 41 42 33 2C 58 0D 52 0D 3A 54 41 42 30 0D 4C 44 |AB3,X.R.:TAB0.LD| 00000A20: 41 20 43 54 41 42 30 2C 58 0D 52 0D 3A 54 41 42 |A CTAB0,X.R.:TAB| 00000A30: 31 0D 4C 44 41 20 43 54 41 42 31 2C 58 0D 52 0D |1.LDA CTAB1,X.R.| 00000A40: 3A 54 41 42 32 0D 4C 44 41 20 43 54 41 42 32 2C |:TAB2.LDA CTAB2,| 00000A50: 58 0D 52 0D 0D 3A 43 4F 49 0D 50 55 54 20 36 2C |X.R..:COI.PUT 6,| 00000A60: 43 4E 54 31 0D 50 57 53 20 33 32 30 2B 42 4D 41 |CNT1.PWS 320+BMA| 00000A70: 50 2C 50 34 4C 0D 50 57 53 20 34 30 2B 56 52 30 |P,P4L.PWS 40+VR0| 00000A80: 2C 50 35 4C 0D 50 57 53 20 34 30 2B 43 52 2C 50 |,P5L.PWS 40+CR,P| 00000A90: 36 4C 0D 0D 3A 43 50 4C 34 0D 4C 44 58 20 23 38 |6L..:CPL4.LDX #8| 00000AA0: 0D 3A 43 50 4C 33 0D 0D 4C 44 59 20 23 37 0D 3A |.:CPL3..LDY #7.:| 00000AB0: 43 50 4C 31 0D 4C 53 59 20 50 34 4C 2C 50 31 4C |CPL1.LSY P4L,P1L| 00000AC0: 0D 44 59 50 20 43 50 4C 31 0D 0D 4C 44 59 20 23 |.DYP CPL1..LDY #| 00000AD0: 30 0D 4C 44 41 20 23 38 0D 53 54 41 20 49 41 0D |0.LDA #8.STA IA.| 00000AE0: 3A 43 50 4C 32 0D 4C 53 59 20 50 35 4C 2C 50 32 |:CPL2.LSY P5L,P2| 00000AF0: 4C 0D 43 4C 43 0D 4C 44 41 20 50 35 48 0D 41 44 |L.CLC.LDA P5H.AD| 00000B00: 43 20 23 34 0D 53 54 41 20 50 35 48 0D 4C 44 41 |C #4.STA P5H.LDA| 00000B10: 20 50 32 48 0D 41 44 43 20 23 34 0D 53 54 41 20 | P2H.ADC #4.STA | 00000B20: 50 32 48 0D 44 45 43 20 49 41 0D 42 4E 45 20 43 |P2H.DEC IA.BNE C| 00000B30: 50 4C 32 0D 0D 4C 53 59 20 50 36 4C 2C 50 33 4C |PL2..LSY P6L,P3L| 00000B40: 0D 0D 53 55 42 20 50 35 4C 2C 24 31 46 46 46 0D |..SUB P5L,$1FFF.| 00000B50: 53 55 42 20 50 32 4C 2C 24 31 46 46 46 0D 49 4E |SUB P2L,$1FFF.IN| 00000B60: 57 20 50 33 4C 0D 49 4E 57 20 50 36 4C 0D 41 44 |W P3L.INW P6L.AD| 00000B70: 42 20 50 31 4C 2C 38 0D 41 44 42 20 50 34 4C 2C |B P1L,8.ADB P4L,| 00000B80: 38 0D 0D 44 58 4E 20 43 50 4C 33 0D 0D 41 44 44 |8..DXN CPL3..ADD| 00000B90: 20 50 34 4C 2C 33 32 30 2D 36 34 0D 41 44 44 20 | P4L,320-64.ADD | 00000BA0: 50 31 4C 2C 33 32 30 2D 36 34 0D 41 44 44 20 50 |P1L,320-64.ADD P| 00000BB0: 33 4C 2C 34 30 2D 38 0D 41 44 44 20 50 36 4C 2C |3L,40-8.ADD P6L,| 00000BC0: 34 30 2D 38 0D 41 44 44 20 50 35 4C 2C 34 30 2D |40-8.ADD P5L,40-| 00000BD0: 38 0D 41 44 44 20 50 32 4C 2C 34 30 2D 38 0D 0D |8.ADD P2L,40-8..| 00000BE0: 44 45 43 20 43 4E 54 31 0D 42 45 51 20 2A 2B 35 |DEC CNT1.BEQ *+5| 00000BF0: 0D 4A 4D 50 20 43 50 4C 34 0D 0D 52 54 53 0D 0D |.JMP CPL4..RTS..| 00000C00: 3A 49 43 53 42 0D 57 20 30 31 2A 33 32 30 2B 42 |:ICSB.W 01*320+B| 00000C10: 4D 41 50 0D 57 20 30 37 2A 33 32 30 2B 42 4D 41 |MAP.W 07*320+BMA| 00000C20: 50 0D 57 20 31 33 2A 33 32 30 2B 42 4D 41 50 0D |P.W 13*320+BMAP.| 00000C30: 57 20 31 39 2A 33 32 30 2B 42 4D 41 50 0D 3A 49 |W 19*320+BMAP.:I| 00000C40: 43 53 56 0D 57 20 30 31 2A 34 30 2B 56 52 30 0D |CSV.W 01*40+VR0.| 00000C50: 57 20 30 37 2A 34 30 2B 56 52 30 0D 57 20 31 33 |W 07*40+VR0.W 13| 00000C60: 2A 34 30 2B 56 52 30 0D 57 20 31 39 2A 34 30 2B |*40+VR0.W 19*40+| 00000C70: 56 52 30 0D 3A 49 43 53 43 0D 57 20 30 31 2A 34 |VR0.:ICSC.W 01*4| 00000C80: 30 2B 43 52 0D 57 20 30 37 2A 34 30 2B 43 52 0D |0+CR.W 07*40+CR.| 00000C90: 57 20 31 33 2A 34 30 2B 43 52 0D 57 20 31 39 2A |W 13*40+CR.W 19*| 00000CA0: 34 30 2B 43 52 0D 0D 3A 4F 46 56 4C 20 42 20 30 |40+CR..:OFVL B 0| 00000CB0: 0D 3A 4F 46 42 4C 20 42 20 30 0D 3A 4F 46 42 48 |.:OFBL B 0.:OFBH| 00000CC0: 20 42 20 30 0D 0D 20 20 20 20 20 20 20 20 20 3B | B 0.. ;| 00000CD0: 30 20 20 31 20 20 32 20 20 33 20 20 34 20 20 35 |0 1 2 3 4 5| 00000CE0: 20 20 36 20 20 37 20 20 38 20 20 39 20 20 41 20 | 6 7 8 9 A | 00000CF0: 20 42 20 20 43 20 20 44 20 20 45 20 20 46 0D 3A | B C D E F.:| 00000D00: 43 54 41 42 30 20 42 20 24 30 2C 24 31 2C 24 34 |CTAB0 B $0,$1,$4| 00000D10: 2C 24 46 2C 24 32 2C 24 38 2C 24 39 2C 24 37 2C |,$F,$2,$8,$9,$7,| 00000D20: 24 35 2C 24 42 2C 24 45 2C 24 39 2C 24 32 2C 24 |$5,$B,$E,$9,$2,$| 00000D30: 37 2C 24 41 2C 24 46 0D 3A 43 54 41 42 31 20 42 |7,$A,$F.:CTAB1 B| 00000D40: 20 24 30 2C 24 31 2C 24 43 2C 24 33 2C 24 34 2C | $0,$1,$C,$3,$4,| 00000D50: 24 41 2C 24 42 2C 24 44 2C 24 41 2C 24 36 2C 24 |$A,$B,$D,$A,$6,$| 00000D60: 38 2C 24 39 2C 24 34 2C 24 44 2C 24 35 2C 24 33 |8,$9,$4,$D,$5,$3| 00000D70: 0D 3A 43 54 41 42 32 20 42 20 24 30 2C 24 31 2C |.:CTAB2 B $0,$1,| 00000D80: 24 34 2C 24 46 2C 24 43 2C 24 35 2C 24 36 2C 24 |$4,$F,$C,$5,$6,$| 00000D90: 37 2C 24 45 2C 24 42 2C 24 35 2C 24 36 2C 24 32 |7,$E,$B,$5,$6,$2| 00000DA0: 2C 24 37 2C 24 38 2C 24 33 0D 3A 43 54 41 42 33 |,$7,$8,$3.:CTAB3| 00000DB0: 20 42 20 24 30 2C 24 31 2C 24 32 2C 24 33 2C 24 | B $0,$1,$2,$3,$| 00000DC0: 43 2C 24 45 2C 24 39 2C 24 44 2C 24 38 2C 24 39 |C,$E,$9,$D,$8,$9| 00000DD0: 2C 24 45 2C 24 42 2C 24 43 2C 24 44 2C 24 38 2C |,$E,$B,$C,$D,$8,| 00000DE0: 24 46 0D 0D 0D |$F... |
.:PWS M 2.LDA #<@0.STA @1.LDA #>@0.STA @ 1+1./.:ADD M 2.CLC.LDA @0.ADC #<@1.STA @ 0.LDA @0+1.ADC #>@1.STA @0+1./.:ADB MF 2 .CLC.LDA @0.ADC #<@1.STA @0.BCC ADBC1.IN C @0+1.CLC.:ADBC1./.:SBB MF 2.SEC.LDA @0 .SBC #<@1.STA @0.BCS SBBC1.DEC @0+1.:SBB C1./.:SUB M 2.SEC.LDA @0.SBC #<@1.STA @0 .LDA @0+1.SBC #>@1.STA @0+1./.:DXP M 1.D EX.BPL @0./.:IXB M 2.INX.CPX #@0.BNE @1. /.:DXN M 1.DEX.BNE @0./.:IXN M 1.INX.BNE @0./.:DYP M 1.DEY.BPL @0./.:IYB M 2.INY .CPY #@0.BNE @1./.:DYN M 1.DEY.BNE @0./. :IYN M 1.INY.BNE @0./.:BAE M 2.CMP #@0.B EQ @1./.:BAN M 2.CMP #@0.BNE @1./.:BXE M 2.CPX #@0.BEQ @1./.:BXN M 2.CPX #@0.BNE @1./.:BYE M 2.CPY #@0.BEQ @1./.:BYN M 2 .CPY #@0.BNE@@1./.:LSY M 2.LDA (@0),Y.ST A (@1),Y./.:INW MF 1.INC @0.BNE INWC1.IN C @0+1.:INWC1./.:DEW MF 1.DEC @0.LDA @0. CMP #$FF.BNE DEWC1.DEC @0+1.:DEWC1./.:R M 0.RTS./.:COM MF 2 ;IF P1>=P2L THEN SE C.LDA @0+1 ;.CMP @1+1 ;.BEQ MCCS ; .JMP ECOMM ;.:MCCS ;.LDA @0 ;. CMP @1.:ECOMM./..:MOV M 2.LDA @0.STA @1. /..:PUT M 2.LDA #@0.STA @1./..:PRT M 1.L DX #<@0.LDY #>@0.JSR PTEXT./..:LXY M 1.L DX #<@0.LDY #>@0./..:STCONV=$8C00 ;GRAPH IC DATA..:BMAP=$6000+24.:VR0=$4000+3.:CR B=$8000+3.:CR=$D800+3.:P1L=$61.:P1H=$62. :P2L=$63.:P2H=$64.:P3L=$65.:P3H=$66.:P4L =$67.:P4H=$68.:P5L=$69.:P5H=$6A.:P6L=$6B .:P6H=$6C..:IA=$6D.:CNT1=$6E.:CNT2=$6F.: CNT3=$70..ORG $8400.JSR $C000.LDX #0.STX P2L.STX P3L.PUT >VR0,P2H.PUT >STCONV,P3 H.:EPL1.LDY #0.LDA (P3L),Y.BAN $EA,EPC1. INY.LDA (P3L),Y.STA P1H.INY.LDA (P3L),Y. STA P1L.:EPL2.LDA #0.STA (P2L),X.INW P2L .DEW P1L..LDA P1H.BNE EPL2.LDA P1L.BNE E PL2.ADB P3L,2.JMP EPC3.:EPC1.STA (P2L),Y .INW P2L.:EPC3.INW P3L.LDA P3L.BAN $FF,E PL1.LDA P3H.BAN $8F,EPL1..LDX #0.:HUPL.L DA CRB,X.STA CR,X.LDA CRB+256,X.STA CR+2 56,X.LDA CRB+512,X.STA CR+512,X.LDA CRB+ 768,X.STA CR+768,X.IXN HUPL..:COP456..LD A #0.STA OFVL.STA OFBL.STA OFBH.:CPL6.PU T 3,CNT2.:CPL5.LDA CNT2.ASL.TAX.CLC.LDA ICSV,X.ADC OFVL.STA P2L.LDA ICSV+1,X.ADC #0.STA P2H..LDA ICSC,X.ADC OFVL.STA P3L .LDA ICSC+1,X.ADC #0.STA P3H..LDA ICSB,X .ADC OFBL.STA P1L.LDA ICSB+1,X.ADC OFBH. STA P1H..JSR COI..DEC CNT2.BPL CPL5.ADB OFBL,64.CLC.LDA OFVL.ADC #8.STA OFVL.CMP #32.BCC CPL6..LDA #$FF.STA $D401+14.LDA #$80.STA $D404+14..:RAL1.LDA #25.STA CN T1.PWS VR0,P1L.PWS CR,P2L.:RAL4.LDY #0.: RAL3.LDX #8.:RAL2.LDA (P1L),Y.JSR GNC.ST A (P1L),Y.CLC.LDA P1H.ADC #4.STA P1H.DXN RAL2..SUB P1L,$2000.LDA (P2L),Y.JSR GNC .STA (P2L),Y.IYB 37,RAL3..ADB P1L,40.ADB P2L,40..DEC CNT1.BNE RAL4.JMP RAL1..:GN C.STX CNT3.STA CNT2.LSR.LSR.LSR.LSR.JSR IGT.ASL.ASL.ASL.ASL.STA P3L.LDA CNT2.AND #$F.JSR IGT.ORA P3L.LDX CNT3.R..:IGT.TA X.LDA $D41B.AND #3.BEQ TAB0.BAE 1,TAB1.B AE 2,TAB2.LDA CTAB3,X.R.:TAB0.LDA CTAB0, X.R.:TAB1.LDA CTAB1,X.R.:TAB2.LDA CTAB2, X.R..:COI.PUT 6,CNT1.PWS 320+BMAP,P4L.PW S 40+VR0,P5L.PWS 40+CR,P6L..:CPL4.LDX #8 .:CPL3..LDY #7.:CPL1.LSY P4L,P1L.DYP CPL 1..LDY #0.LDA #8.STA IA.:CPL2.LSY P5L,P2 L.CLC.LDA P5H.ADC #4.STA P5H.LDA P2H.ADC #4.STA P2H.DEC IA.BNE CPL2..LSY P6L,P3L ..SUB P5L,$1FFF.SUB P2L,$1FFF.INW P3L.IN W P6L.ADB P1L,8.ADB P4L,8..DXN CPL3..ADD P4L,320-64.ADD P1L,320-64.ADD P3L,40-8. ADD P6L,40-8.ADD P5L,40-8.ADD P2L,40-8.. DEC CNT1.BEQ *+5.JMP CPL4..RTS..:ICSB.W 01*320+BMAP.W 07*320+BMAP.W 13*320+BMAP. W 19*320+BMAP.:ICSV.W 01*40+VR0.W 07*40+ VR0.W 13*40+VR0.W 19*40+VR0.:ICSC.W 01*4 0+CR.W 07*40+CR.W 13*40+CR.W 19*40+CR..: OFVL B 0.:OFBL B 0.:OFBH B 0.. ; 0 1 2 3 4 5 6 7 8 9 A B C D E F.:CTAB0 B $0,$1,$4,$F,$2,$8,$9,$7, $5,$B,$E,$9,$2,$7,$A,$F.:CTAB1 B $0,$1,$ C,$3,$4,$A,$B,$D,$A,$6,$8,$9,$4,$D,$5,$3 .:CTAB2 B $0,$1,$4,$F,$C,$5,$6,$7,$E,$B, $5,$6,$2,$7,$8,$3.:CTAB3 B $0,$1,$2,$3,$ C,$E,$9,$D,$8,$9,$E,$B,$C,$D,$8,$F...
> CLICK IMAGE PREVIEW FOR FULL MODAL