GR2
FILE INFORMATION
FILENAME(S): GR2
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 21:11:34
APPEARS ON: 1 disk(s)
FILE HASH
839cc991b432c9d797a757979ff4fc075f89c1d55c673d8b5494b6b1c9112e61
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NOG UITZOEKEN | GR2 | PRG | DuncanTwain | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 52 45 4D 20 47 52 32 0D 3B 0D 53 59 53 42 41 | REM GR2.;.SYSBA| 00000010: 53 45 32 3D 24 45 30 30 30 0D 20 44 49 4D 20 53 |SE2=$E000. DIM S| 00000020: 59 58 4C 4F 32 25 20 2C 20 53 59 59 4C 4F 32 20 |YXLO2% , SYYLO2 | 00000030: 2C 20 53 59 4D 53 43 32 0D 20 44 49 4D 20 53 59 |, SYMSC2. DIM SY| 00000040: 4D 53 43 41 32 20 2C 20 53 59 4D 53 43 42 32 0D |MSCA2 , SYMSCB2.| 00000050: 3B 0D 20 44 45 46 20 50 4C 4F 54 32 20 53 59 43 |;. DEF PLOT2 SYC| 00000060: 4C 52 32 20 2C 20 53 59 58 4C 4F 32 25 20 2C 20 |LR2 , SYXLO2% , | 00000070: 53 59 59 4C 4F 32 0D 20 20 4C 45 54 20 53 59 59 |SYYLO2. LET SYY| 00000080: 4C 4F 32 20 41 4E 44 20 24 46 38 20 2D 3E 20 53 |LO2 AND $F8 -> S| 00000090: 59 4D 53 43 32 20 2D 3E 20 53 59 50 4E 54 20 30 |YMSC2 -> SYPNT 0| 000000A0: 20 2D 3E 20 53 59 50 4E 54 2B 31 0D 20 20 4C 44 | -> SYPNT+1. LD| 000000B0: 59 20 23 34 0D 53 59 50 4C 4F 54 32 43 3A 0D 20 |Y #4.SYPLOT2C:. | 000000C0: 20 4C 45 54 20 53 59 50 4E 54 20 2B 20 53 59 4D | LET SYPNT + SYM| 000000D0: 53 43 32 20 2D 3E 20 53 59 50 4E 54 0D 20 20 4C |SC2 -> SYPNT. L| 000000E0: 44 41 20 53 59 50 4E 54 2B 31 20 3A 20 41 44 43 |DA SYPNT+1 : ADC| 000000F0: 20 23 30 20 3A 20 53 54 41 20 53 59 50 4E 54 2B | #0 : STA SYPNT+| 00000100: 31 0D 20 20 44 45 59 20 3A 20 42 4E 45 20 53 59 |1. DEY : BNE SY| 00000110: 50 4C 4F 54 32 43 0D 20 20 41 53 4C 20 53 59 50 |PLOT2C. ASL SYP| 00000120: 4E 54 20 3A 20 52 4F 4C 20 53 59 50 4E 54 2B 31 |NT : ROL SYPNT+1| 00000130: 0D 20 20 41 53 4C 20 53 59 50 4E 54 20 3A 20 52 |. ASL SYPNT : R| 00000140: 4F 4C 20 53 59 50 4E 54 2B 31 0D 20 20 41 53 4C |OL SYPNT+1. ASL| 00000150: 20 53 59 50 4E 54 20 3A 20 52 4F 4C 20 53 59 50 | SYPNT : ROL SYP| 00000160: 4E 54 2B 31 0D 20 20 4C 45 54 20 53 59 50 4E 54 |NT+1. LET SYPNT| 00000170: 2B 31 20 2B 20 23 3E 53 59 53 42 41 53 45 32 20 |+1 + #>SYSBASE2 | 00000180: 2D 3E 20 53 59 50 4E 54 2B 31 0D 20 20 4C 45 54 |-> SYPNT+1. LET| 00000190: 20 53 59 58 4C 4F 32 20 41 4E 44 20 24 46 38 20 | SYXLO2 AND $F8 | 000001A0: 2B 20 53 59 50 4E 54 20 2D 3E 20 53 59 50 4E 54 |+ SYPNT -> SYPNT| 000001B0: 0D 20 20 4C 45 54 20 53 59 58 4C 4F 32 2B 31 20 |. LET SYXLO2+1 | 000001C0: 41 4E 44 20 31 20 3A 20 41 44 43 20 53 59 50 4E |AND 1 : ADC SYPN| 000001D0: 54 2B 31 20 3A 20 53 54 41 20 53 59 50 4E 54 2B |T+1 : STA SYPNT+| 000001E0: 31 0D 20 20 4C 45 54 20 53 59 58 4C 4F 32 20 41 |1. LET SYXLO2 A| 000001F0: 4E 44 20 37 20 3A 20 54 41 59 0D 20 20 4C 45 54 |ND 7 : TAY. LET| 00000200: 20 53 59 47 52 4D 53 4B 32 2C 59 20 2D 3E 20 53 | SYGRMSK2,Y -> S| 00000210: 59 4D 53 43 32 20 3A 20 54 59 41 0D 20 20 41 53 |YMSC2 : TYA. AS| 00000220: 4C 20 41 20 3A 20 4F 52 41 20 53 59 43 4C 52 32 |L A : ORA SYCLR2| 00000230: 20 3A 20 54 41 59 0D 20 20 4C 45 54 20 53 59 47 | : TAY. LET SYG| 00000240: 52 54 41 42 32 2C 59 20 2D 3E 20 53 59 4D 53 43 |RTAB2,Y -> SYMSC| 00000250: 41 32 0D 20 20 4C 45 54 20 53 59 59 4C 4F 32 20 |A2. LET SYYLO2 | 00000260: 41 4E 44 20 37 20 3A 20 54 41 59 0D 20 20 53 45 |AND 7 : TAY. SE| 00000270: 49 0D 20 20 4C 44 41 20 31 20 3A 20 4C 45 54 20 |I. LDA 1 : LET | 00000280: 2D 3E 20 53 59 4D 53 43 42 32 20 41 4E 44 20 24 |-> SYMSCB2 AND $| 00000290: 46 38 20 3A 20 53 54 41 20 31 0D 20 20 4C 44 41 |F8 : STA 1. LDA| 000002A0: 20 53 59 4D 53 43 32 0D 20 20 41 4E 44 20 28 53 | SYMSC2. AND (S| 000002B0: 59 50 4E 54 29 2C 59 0D 20 20 4F 52 41 20 53 59 |YPNT),Y. ORA SY| 000002C0: 4D 53 43 41 32 0D 20 20 53 54 41 20 28 53 59 50 |MSCA2. STA (SYP| 000002D0: 4E 54 29 2C 59 0D 20 20 4C 44 41 20 53 59 4D 53 |NT),Y. LDA SYMS| 000002E0: 43 42 32 20 3A 20 53 54 41 20 31 0D 20 20 43 4C |CB2 : STA 1. CL| 000002F0: 49 0D 20 20 52 45 54 55 52 4E 0D 53 59 47 52 4D |I. RETURN.SYGRM| 00000300: 53 4B 32 20 2E 42 59 54 45 20 24 37 46 2C 24 42 |SK2 .BYTE $7F,$B| 00000310: 46 2C 24 44 46 2C 24 45 46 2C 24 46 37 2C 24 46 |F,$DF,$EF,$F7,$F| 00000320: 42 2C 24 46 44 2C 24 46 45 0D 53 59 47 52 54 41 |B,$FD,$FE.SYGRTA| 00000330: 42 32 20 2E 42 59 54 45 20 30 2C 24 38 30 2C 30 |B2 .BYTE 0,$80,0| 00000340: 2C 24 34 30 2C 30 2C 24 32 30 2C 30 2C 24 31 30 |,$40,0,$20,0,$10| 00000350: 0D 20 20 2E 42 59 54 45 20 30 2C 38 2C 30 2C 34 |. .BYTE 0,8,0,4| 00000360: 2C 30 2C 32 2C 30 2C 31 0D 20 20 45 4E 44 44 45 |,0,2,0,1. ENDDE| 00000370: 46 20 50 4C 4F 54 32 0D 3B 0D 20 44 45 46 20 47 |F PLOT2.;. DEF G| 00000380: 52 32 20 53 59 43 4C 52 32 20 2C 20 53 59 59 4C |R2 SYCLR2 , SYYL| 00000390: 4F 32 0D 20 20 4C 44 41 20 53 59 59 4C 4F 32 20 |O2. LDA SYYLO2 | 000003A0: 3A 20 41 53 4C 20 41 20 3A 20 41 53 4C 20 41 20 |: ASL A : ASL A | 000003B0: 3A 20 41 53 4C 20 41 0D 20 20 41 53 4C 20 41 20 |: ASL A. ASL A | 000003C0: 3A 20 4C 45 54 20 2B 20 53 59 43 4C 52 32 20 2D |: LET + SYCLR2 -| 000003D0: 3E 20 53 59 43 4C 52 32 0D 20 20 53 45 49 0D 20 |> SYCLR2. SEI. | 000003E0: 20 4C 44 41 20 31 20 3A 20 4C 45 54 20 2D 3E 20 | LDA 1 : LET -> | 000003F0: 53 59 4D 53 43 42 32 20 41 4E 44 20 24 46 38 20 |SYMSCB2 AND $F8 | 00000400: 3A 20 53 54 41 20 31 0D 20 20 4C 45 54 20 53 59 |: STA 1. LET SY| 00000410: 50 4E 54 20 3D 20 30 20 3A 20 4C 45 54 20 53 59 |PNT = 0 : LET SY| 00000420: 50 4E 54 2B 31 20 3D 20 24 45 30 0D 47 52 43 32 |PNT+1 = $E0.GRC2| 00000430: 0D 20 20 20 4C 44 59 20 23 30 0D 47 52 41 32 20 |. LDY #0.GRA2 | 00000440: 4C 45 54 20 30 20 2D 3E 20 28 53 59 50 4E 54 29 |LET 0 -> (SYPNT)| 00000450: 2C 59 20 3A 20 49 4E 59 20 3A 20 42 4E 45 20 47 |,Y : INY : BNE G| 00000460: 52 41 32 0D 20 20 49 4E 43 20 53 59 50 4E 54 2B |RA2. INC SYPNT+| 00000470: 31 20 3A 20 42 4E 45 20 47 52 43 32 0D 20 20 46 |1 : BNE GRC2. F| 00000480: 4F 52 20 53 59 50 4E 54 2B 31 20 3D 20 24 44 43 |OR SYPNT+1 = $DC| 00000490: 20 54 4F 20 24 44 46 0D 20 20 20 4C 44 59 20 23 | TO $DF. LDY #| 000004A0: 30 0D 47 52 42 32 20 4C 45 54 20 53 59 43 4C 52 |0.GRB2 LET SYCLR| 000004B0: 32 20 2D 3E 20 28 53 59 50 4E 54 29 2C 59 20 3A |2 -> (SYPNT),Y :| 000004C0: 20 49 4E 59 20 3A 20 42 4E 45 20 47 52 42 32 0D | INY : BNE GRB2.| 000004D0: 20 20 4E 45 58 54 20 53 59 50 4E 54 2B 31 0D 20 | NEXT SYPNT+1. | 000004E0: 20 4C 44 41 20 53 59 4D 53 43 42 32 20 3A 20 53 | LDA SYMSCB2 : S| 000004F0: 54 41 20 31 0D 20 20 43 4C 49 0D 20 20 4C 44 41 |TA 1. CLI. LDA| 00000500: 20 35 36 35 37 38 20 3A 20 4F 52 41 20 23 33 20 | 56578 : ORA #3 | 00000510: 3A 20 53 54 41 20 35 36 35 37 38 0D 20 20 4C 44 |: STA 56578. LD| 00000520: 41 20 35 36 35 37 36 20 3A 20 41 4E 44 20 23 24 |A 56576 : AND #$| 00000530: 46 43 20 3A 20 53 54 41 20 35 36 35 37 36 0D 20 |FC : STA 56576. | 00000540: 20 4C 44 41 20 35 33 32 37 32 20 3A 20 41 4E 44 | LDA 53272 : AND| 00000550: 20 23 24 46 20 3A 20 4F 52 41 20 23 24 37 38 20 | #$F : ORA #$78 | 00000560: 3A 20 53 54 41 20 35 33 32 37 32 0D 20 20 4C 44 |: STA 53272. LD| 00000570: 41 20 35 33 32 36 35 20 3A 20 4F 52 41 20 23 33 |A 53265 : ORA #3| 00000580: 32 20 3A 20 53 54 41 20 35 33 32 36 35 0D 20 20 |2 : STA 53265. | 00000590: 52 45 54 55 52 4E 0D 20 45 4E 44 44 45 46 20 47 |RETURN. ENDDEF G| 000005A0: 52 32 0D 3B 0D 20 44 45 46 20 43 4C 4F 53 45 32 |R2.;. DEF CLOSE2| 000005B0: 0D 20 20 4C 44 41 20 35 36 35 37 38 20 3A 20 4F |. LDA 56578 : O| 000005C0: 52 41 20 23 33 20 3A 20 53 54 41 20 35 36 35 37 |RA #3 : STA 5657| 000005D0: 38 0D 20 20 4C 44 41 20 35 36 35 37 36 20 3A 20 |8. LDA 56576 : | 000005E0: 41 4E 44 20 23 24 46 43 20 3A 20 4F 52 41 20 23 |AND #$FC : ORA #| 000005F0: 33 20 3A 20 53 54 41 20 35 36 35 37 36 0D 20 20 |3 : STA 56576. | 00000600: 4A 53 52 20 24 46 46 38 31 0D 20 20 52 45 54 55 |JSR $FF81. RETU| 00000610: 52 4E 0D 20 45 4E 44 44 45 46 20 43 4C 4F 53 45 |RN. ENDDEF CLOSE| 00000620: 32 0D 20 44 49 4D 20 53 59 43 4C 52 32 0D 00 00 |2. DIM SYCLR2...| 00000630: 00 00 |.. |
REM GR2.;.SYSBASE2=$E000. DIM SYXLO2% , SYYLO2 , SYMSC2. DIM SYMSCA2 , SYMSCB2. ;. DEF PLOT2 SYCLR2 , SYXLO2% , SYYLO2. LET SYYLO2 AND $F8 -> SYMSC2 -> SYPNT 0 -> SYPNT+1. LDY #4.SYPLOT2C:. LET SYP NT + SYMSC2 -> SYPNT. LDA SYPNT+1 : ADC #0 : STA SYPNT+1. DEY : BNE SYPLOT2C. ASL SYPNT : ROL SYPNT+1. ASL SYPNT : R OL SYPNT+1. ASL SYPNT : ROL SYPNT+1. L ET SYPNT+1 + #>SYSBASE2 -> SYPNT+1. LET SYXLO2 AND $F8 + SYPNT -> SYPNT. LET S YXLO2+1 AND 1 : ADC SYPNT+1 : STA SYPNT+ 1. LET SYXLO2 AND 7 : TAY. LET SYGRMSK 2,Y -> SYMSC2 : TYA. ASL A : ORA SYCLR2 : TAY. LET SYGRTAB2,Y -> SYMSCA2. LET SYYLO2 AND 7 : TAY. SEI. LDA 1 : LET -> SYMSCB2 AND $F8 : STA 1. LDA SYMSC2. AND (SYPNT),Y. ORA SYMSCA2. STA (SYP NT),Y. LDA SYMSCB2 : STA 1. CLI. RETU RN.SYGRMSK2 .BYTE $7F,$BF,$DF,$EF,$F7,$F B,$FD,$FE.SYGRTAB2 .BYTE 0,$80,0,$40,0,$ 20,0,$10. .BYTE 0,8,0,4,0,2,0,1. ENDDE F PLOT2.;. DEF GR2 SYCLR2 , SYYLO2. LDA SYYLO2 : ASL A : ASL A : ASL A. ASL A : LET + SYCLR2 -> SYCLR2. SEI. LDA 1 : LET -> SYMSCB2 AND $F8 : STA 1. LET SY PNT = 0 : LET SYPNT+1 = $E0.GRC2. LDY #0.GRA2 LET 0 -> (SYPNT),Y : INY : BNE G RA2. INC SYPNT+1 : BNE GRC2. FOR SYPNT +1 = $DC TO $DF. LDY #0.GRB2 LET SYCLR 2 -> (SYPNT),Y : INY : BNE GRB2. NEXT S YPNT+1. LDA SYMSCB2 : STA 1. CLI. LDA 56578 : ORA #3 : STA 56578. LDA 56576 : AND #$FC : STA 56576. LDA 53272 : AND #$F : ORA #$78 : STA 53272. LDA 53265 : ORA #32 : STA 53265. RETURN. ENDDEF G R2.;. DEF CLOSE2. LDA 56578 : ORA #3 : STA 56578. LDA 56576 : AND #$FC : ORA # 3 : STA 56576. JSR $FF81. RETURN. ENDD EF CLOSE2. DIM SYCLR2.....
> CLICK IMAGE PREVIEW FOR FULL MODAL