home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9102a.d64 / hidden-src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  77 lines
  1. 5 POKE56,32:CLR
  2. 10 SYS36864
  3. 20 .OPT OO
  4. 30 *= $C000
  5. 40 ;
  6. 42 ;HIRES-PLOT MIT HIDDEN-LINE
  7. 44 ;NIKOLAUS HEUSLER, 6.9.90
  8. 46 ;SYS 49152      GRAFIK AN
  9. 48 ;SYS 49155      GRAFIK AUS
  10. 50 ;SYS 49158,X,Y  PUNKT SETZEN
  11. 52 ;
  12. 90 ;VARIABLEN UND KONSTANTEN
  13. 100 AV =2;ZWISCHENSPEICHER
  14. 102 KOMMA =$AEFD;KOMMA NACH SYS HOLEN
  15. 104 GETKOORD =$B7EB;X- UND Y-KOORDINATEN HOLEN
  16. 106 XCOORD =20;X-KOORDINATE LOW/HIGH
  17. 108 CINT =65409;VIC INITIALISIEREN
  18. 110 MMTAB =$4000;HIDDEN-LINE TABELLE (768 BYTES)
  19. 112 FLAG =4;FLAG, OB PUNKT GEZEICHNET WERDEN SOLL
  20. 900 ;SPRUNGTABELLE
  21. 1000 JMP GRON;GRAFIK LOESCHEN UND EINSCHALTEN
  22. 1002 JMP CINT;GRAFIK AUS
  23. 1004 JMP SET;PUNKT MIT HIDDEN-LINE SETZEN
  24. 1090 ;MATHEMATISCHE DATEN
  25. 1100 GRBIT .BYT $80,$40,$20,$10,8,4,2,1;POTENZEN
  26. 1102 MULT =*;MULTIPLIKATIONSTABELLE
  27. 1104 .WOR $2000,$2140,$2280,$23C0
  28. 1106 .WOR $2500,$2640,$2780,$28C0
  29. 1108 .WOR $2A00,$2B40,$2C80,$2DC0
  30. 1110 .WOR $2F00,$3040,$3180,$32C0
  31. 1112 .WOR $3400,$3540,$3680,$37C0
  32. 1114 .WOR $3900,$3A40,$3B80,$3CC0
  33. 1116 .WOR $3E00
  34. 2000 ;GRAFIK LOESCHEN
  35. 2002 GRON LDX #32:STX AV+1:LDY #0:STY AV;ZEIGER AUF 8192, 32 PAGES
  36. 2004 TYA;LOESCHEN
  37. 2006 CLR STA (AV),Y:INY:BNE CLR:INC AV+1:DEX:BNE CLR;LOESCH-SCHLEIFE
  38. 2008 LDX #4:STX AV+1:LDY #0:STY AV:LDA #1;GRAFIK FAERBEN
  39. 2010 FRB STA (AV),Y:INY:BNE FRB:INC AV+1:DEX:BNE FRB;FAERB-SCHLEIFE
  40. 2012 LDA #26:STA 53272;POINTER AUF GRAFIK
  41. 2014 LDA #59:STA 53265;GRAFIK EIN
  42. 2016 ;HIDDEN-LINE-TABELLE LOESCHEN
  43. 2018 LDX #3;3 PAGES = 768 BYTES
  44. 2020 LDA #<MMTAB:LDY #>MMTAB:STA AV:STY AV+1;ZEIGER AUF TABELLE
  45. 2022 LDY #0
  46. 2024 CLRHILO LDA #-1:STA (AV),Y:INY;MINIMUM SETZEN
  47. 2026 LDA #0:STA (AV),Y:INY;MAXIMUM SETZEN
  48. 2028 BNE CLRHILO:INC AV+1:DEX:BNE CLRHILO;SCHLEIFE
  49. 2030 RTS;GRAFIK 'STEHT' !
  50. 3000 ;TURBO-HIRES-PLOT MIT HIDDEN-LINE
  51. 3002 SET JSR KOMMA:JSR GETKOORD;KOMMA UND PARAMETER HOLEN
  52. 3004 CPX #200:BCC OK;Y-KOORDINATE PRUEFEN
  53. 3006 WRONG RTS;FALSCHE KOORDINATEN, DANN ZURUECK
  54. 3008 OK LDA XCOORD+1:BEQ OK1:CMP #>320:BNE WRONG;X-KOORDINATE HIGH PRUEFEN
  55. 3010 LDA XCOORD:CMP #<320:BCS WRONG;UND LOW PRUEFEN
  56. 3012 ;KOORDINATEN OK
  57. 3014 ;HIDDEN-LINE-ROUTINE
  58. 3016 OK1 LDA XCOORD:STA AV:LDA XCOORD+1;AV = X-KOORDINATE * 2 + MMTAB
  59. 3017 ASL AV:ROL:CLC:ADC #>MMTAB:STA AV+1
  60. 3018 LDY #0:STY FLAG;0 = PUNKT NICHT ZEICHNEN
  61. 3019 ;PRUEFE, OB NEUES MINIMUM
  62. 3020 TXA:CMP (AV),Y:BCS NO1;WENN Y-WERT > MINIMUM
  63. 3022 STA (AV),Y;Y-WERT = NEUES MINIMUM
  64. 3024 INC FLAG;PUNKT SOLL GEZEICHNET WERDEN
  65. 3026 ;PRUEFE, OB NEUES MAXIMUM
  66. 3028 NO1 INY:TXA:CMP (AV),Y:BCC NO2;WENN Y-WERT < MAXIMUM
  67. 3029 STA (AV),Y;Y-WERT = NEUES MAXIMUM
  68. 3030 INC FLAG;PUNKT SOLL GEZEICHNET WERDEN
  69. 3031 NO2 LDA FLAG:BEQ WRONG;NULL, DANN PUNKT NICHT ZEICHNEN
  70. 3032 ;PUNKT DARF GEZEICHNET WERDEN
  71. 3034 PLOT TXA:LSR:LSR:LSR:ASL:TAY;ADRESSE ZEILENAFG. BERECHNEN
  72. 3036 LDA MULT+1,Y:STA AV+1:TXA:AND #7:CLC:ADC MULT,Y:STA AV;AV=320*ZEILE+8192
  73. 3038 LDA XCOORD:AND #$F8:ADC AV:STA AV:LDA AV+1:ADC XCOORD+1:STA AV+1;X-OFFSET
  74. 3040 LDA XCOORD:AND #7:TAX:LDA GRBIT,X;BITPOSITION BERECHNEN
  75. 3042 LDY #0:ORA (AV),Y:STA (AV),Y;PUNKT IN GRAFIK SETZEN
  76. 3044 RTS;FERTIG MIT TURBO-PLOT
  77.