home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1999-04_1999_CSW_Side_A.d64 / src_ccass.txt < prev    next >
Text File  |  2023-02-26  |  12KB  |  611 lines
  1. ;pROG:  cARRERAcOUNT
  2.  
  3. ;vERSION:       WORK 0.1 (28.6.98)
  4.  
  5. ;aUTOR: pETER sTEINMEYER
  6.  
  7. ;
  8.  
  9. ;       rUNDENZ{$e4}HLPROGRAMM F{$fc}R cARRERA uNIVERSAL (4 fAHRER)
  10.  
  11. ;
  12.  
  13.  
  14.  
  15.  
  16.  
  17.         .ba $c000
  18.  
  19.  
  20.  
  21. pb2     .de 56577
  22.  
  23. drrb2   .de 56579
  24.  
  25. chrget  .de $73
  26.  
  27. chrgot  .de $79
  28.  
  29. getbyte .de $b79e
  30.  
  31. getkomma        .de $aefd
  32.  
  33. kommabyte       .de $b7f1
  34.  
  35. ascout  .de $E716
  36.  
  37. timer1a .de 56324
  38.  
  39. screen  .de 1024
  40.  
  41.  
  42.  
  43. COUNT   .DE 828   ;828-830
  44.  
  45. BAHNALT .DE 831 ;831-842 JEWEILS 3 bYTE
  46.  
  47. BAHNNEU .DE 843 ;843-854 PRO bAHN (4 bAHNEN)
  48.  
  49. FLAG    .DE 855   ;855-858 fLAG F{$fc}R rUNDE GEFAHREN
  50.  
  51. LIMIT   .DE 859 ;859-861 MINIMAL M{$f6}GLICHE rUNDENZEIT
  52.  
  53. TEMP    .DE 862
  54.  
  55. EVENT   .DE 863 ;fLAG F{$fc}R rUNDE GEFAHREN
  56.  
  57. RSTACTIV        .DE 864
  58.  
  59.  
  60.  
  61.  
  62.  
  63. COUNT100L       .DE 865 ;DEZIMALZ{$e4}HLER gESAMTZEIT!
  64.  
  65. COUNT100H       .DE 866
  66.  
  67. COUNT60L        .DE 867
  68.  
  69. COUNT60H        .DE 868
  70.  
  71. COUNT1L .DE 869
  72.  
  73. COUNT1H .DE 870
  74.  
  75. COUNT1G .DE 871
  76.  
  77.  
  78.  
  79. IB1     .DE 874 ;bACKUP VARIABLEN F{$fc}R irq
  80.  
  81. IB2     .DE 875
  82.  
  83. IB3     .DE 876
  84.  
  85. IB4     .DE 877
  86.  
  87.  
  88.  
  89. STOPFLAG        .DE 879 ;UNTERBRICHT zEIT UND rUNDENZ{$e4}HLUNG
  90.  
  91. TIMEX   .DE 880 ;x-pOSITION gESAMMTZEIT
  92.  
  93. TIMEY   .DE 881 ;y-pOSITION
  94.  
  95.  
  96.  
  97. LO1     .DE 251
  98.  
  99. HI1     .DE 252
  100.  
  101. LO2     .DE 253
  102.  
  103. HI2     .DE 254
  104.  
  105.  
  106.  
  107.  
  108.  
  109. ;bASICEINSPRING  +oFFSET AUF aDRESSE 49152
  110.  
  111.  
  112.  
  113.  JMP INITIA     ;+0  tIMER/irq AKTIVIEREN
  114.  
  115.  JMP AN         ;+3  rELAIS AN = bAHNSTROM AUS
  116.  
  117.  JMP AUS                ;+6  rELAIS AUS = bAHNSTROM AN
  118.  
  119.  JMP RESETAN    ;+9  rELAIS ZUR{$fc}CKSETZEN
  120.  
  121.  JMP RESETAUS   ;+12 rELAIS NORMAL
  122.  
  123.  JMP SHOW               ;+15 LIEST pORTZUSTAND AUS
  124.  
  125.  JMP INITOFF    ;+18 tIMER/irq AUF NORMAL
  126.  
  127.  JMP OUT                ;+21 gIBT rUNDENZAHL (0-99) AUS
  128.  
  129.  JMP RESETBAHN  ;+24 sETZT rUNDEN ZEITEN AUF null
  130.  
  131.  JMP COLOR      ;+27 hINTERGRUNDFARBE AUF SCHWARZ
  132.  
  133.  JMP CURSOR     ;+30 SETZT cURSOR NACH X,Y
  134.  
  135.  JMP SCROLL     ;+33 SCROLLT bILDSCHIRMBEREICH
  136.  
  137.  JMP OUTBASIC   ;+36 gIBT rUNDENZAHL AUS (0-99)
  138.  
  139.  JMP RESETTIME  ;+39 L{$f6}SCHT gESAMMTZEIT
  140.  
  141.  
  142.  
  143. ;-- DATEN
  144.  
  145. MULT40
  146.  
  147. MULT
  148.  
  149.  .BY 1024 1064 1104 1144 1184 1224 1264 1304
  150.  
  151.  .BY 1344 1384 1424 1464 1504 1544 1584 1624 1664
  152.  
  153.  .BY 1704 1744 1784 1824 1864 1904 1944 1984 2024
  154.  
  155. ;
  156.  
  157. POT2 .BY 1 2 4 8 16 32 64 128
  158.  
  159. ;
  160.  
  161. MULT3 .BY 0 3 6 9 12
  162.  
  163. ;
  164.  
  165. ;
  166.  
  167. ZIFF
  168.  
  169.  .BY 0 0 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9
  170.  
  171.  .BY 1 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9
  172.  
  173.  .BY 2 0 2 1 2 2 2 3 2 4 2 5 2 6 2 7 2 8 2 9
  174.  
  175.  .BY 3 0 3 1 3 2 3 3 3 4 3 5 3 6 3 7 3 8 3 9
  176.  
  177.  .BY 4 0 4 1 4 2 4 3 4 4 4 5 4 6 4 7 4 8 4 9
  178.  
  179.  .BY 5 0 5 1 5 2 5 3 5 4 5 5 5 6 5 7 5 8 5 9
  180.  
  181.  .BY 6 0 6 1 6 2 6 3 6 4 6 5 6 6 6 7 6 8 6 9
  182.  
  183.  .BY 7 0 7 1 7 2 7 3 7 4 7 5 7 6 7 7 7 8 7 9
  184.  
  185.  .BY 8 0 8 1 8 2 8 3 8 4 8 5 8 6 8 7 8 8 8 9
  186.  
  187.  .BY 9 0 9 1 9 2 9 3 9 4 9 5 9 6 9 7 9 8 9 9
  188.  
  189. ;
  190.  
  191. ;
  192.  
  193.  
  194.  
  195. NULL    .BY 233 160 223 160 32 160 160 32 160 160 32 160 95 160 105
  196.  
  197. EINS    .BY 32 32 233 32 32 160 32 32 160 32 32 160 32 32 105
  198.  
  199. ZWEI    .BY 233 160 223 32 32 160 160 160 160 160 32 32 160 160 160
  200.  
  201. DREI    .BY 233 160 223 32 32 160 32 160 160 32 32 160 95 160 105
  202.  
  203. VIER    .BY 233 32 233 160 32 160 160 160 160 32 32 160 32 32 160
  204.  
  205. FUENF   .BY 160 160 160 160 32 32 160 160 223 32 32 160 95 160 105
  206.  
  207. SECHS   .BY 233 160 223 160 32 32 160 160 223 160 32 160 95 160 105
  208.  
  209. SIEBEN  .BY 95 160 160 32 32 160 32 32 160 32 32 160 32 32 105
  210.  
  211. ACHT    .BY 233 160 223 160 32 160 160 160 160 160 32 160 95 160 105
  212.  
  213. NEUN    .BY 233 160 223 160 32 160 95 160 160 32 32 160 95 160 160
  214.  
  215.  
  216.  
  217. ZAHL    .SE NULL
  218.  
  219.         .SE EINS
  220.  
  221.         .SE ZWEI
  222.  
  223.         .SE DREI
  224.  
  225.         .SE VIER
  226.  
  227.         .SE FUENF
  228.  
  229.         .SE SECHS
  230.  
  231.         .SE SIEBEN
  232.  
  233.         .SE ACHT
  234.  
  235.         .SE NEUN
  236.  
  237.  
  238.  
  239. TIMEPOS .BY 1868 1877 1886 1895
  240.  
  241.  
  242.  
  243.  
  244.  
  245. ;--- INITIA IRQ INIT
  246.  
  247. INITIA
  248.  
  249.         LDA #0
  250.  
  251.         STA 53280
  252.  
  253.         STA 53281
  254.  
  255.         LDA #15
  256.  
  257.         STA 646
  258.  
  259.         LDA #128+64
  260.  
  261.         STA DRRB2
  262.  
  263.         LDA #%11000000
  264.  
  265.         STA pb2
  266.  
  267.         LDA #38       ;38
  268.  
  269.         STA timer1a+1
  270.  
  271.         LDA #125
  272.  
  273.         STA timer1a
  274.  
  275.         SEI
  276.  
  277.         LDA #<IRQ
  278.  
  279.         STA 788
  280.  
  281.         LDA #>IRQ
  282.  
  283.         STA 789
  284.  
  285.         LDA #0
  286.  
  287.         STA LIMIT
  288.  
  289.         STA LIMIT+2
  290.  
  291.         LDA #2
  292.  
  293.         STA LIMIT+1
  294.  
  295.         LDA #0
  296.  
  297.         STA FLAG
  298.  
  299.         STA FLAG+1
  300.  
  301.         STA FLAG+2
  302.  
  303.         STA FLAG+3
  304.  
  305.         JSR RESETTIME
  306.  
  307.         JSR RESETBAHN
  308.  
  309.         CLI
  310.  
  311.         RTS
  312.  
  313.  
  314.  
  315. ;--- an
  316.  
  317. AN      LDA PB2
  318.  
  319.         AND #255-128
  320.  
  321.         STA PB2
  322.  
  323.         LDA #12
  324.  
  325.         STA 53280
  326.  
  327.         RTS
  328.  
  329. ;
  330.  
  331. ;--- AUS
  332.  
  333. AUS     LDA PB2
  334.  
  335.         ORA #128+64
  336.  
  337.         STA PB2
  338.  
  339.         LDA #0
  340.  
  341.         STA 53280
  342.  
  343.         RTS
  344.  
  345. ;
  346.  
  347. ;--- RESETAN
  348.  
  349. ;       L{$f6}SCHT DIE rELAYfLIPFLOPS AUF DER hARDWARE
  350.  
  351.  
  352.  
  353. RESETAN LDA PB2
  354.  
  355.         AND #255-64
  356.  
  357.         STA PB2
  358.  
  359.         LDA #10
  360.  
  361.         STA 53281
  362.  
  363.         RTS
  364.  
  365.  
  366.  
  367. RESETAUS        LDA PB2
  368.  
  369.         ORA #64
  370.  
  371.         STA PB2
  372.  
  373.         LDA #0
  374.  
  375.         STA 53281
  376.  
  377.         RTS
  378.  
  379. ;
  380.  
  381. ;--- SHOW
  382.  
  383. ;
  384.  
  385.  
  386.  
  387. SHOW    LDX #0
  388.  
  389. SHLOOP  LDA POT2,X
  390.  
  391.         AND PB2
  392.  
  393.         BNE SHNO
  394.  
  395.         JSR TEST
  396.  
  397. SHNO    INX
  398.  
  399.         CPX #4  ;4 bAHNEN ABFRAGEN
  400.  
  401.         BNE SHLOOP
  402.  
  403.  
  404.  
  405.         LDA EVENT       ;wAGEN DURCHGEFAHREN?
  406.  
  407.         CMP #1
  408.  
  409.         BNE ENDSHOW
  410.  
  411.         JSR RESETAN
  412.  
  413.         LDX #255
  414.  
  415. W1      DEX
  416.  
  417.         BNE W1
  418.  
  419.         LDA #0
  420.  
  421.         STA EVENT
  422.  
  423.         JSR RESETAUS
  424.  
  425. ENDSHOW         RTS
  426.  
  427.  
  428.  
  429. ;
  430.  
  431. ;--- IRQ
  432.  
  433. ;       iNTERUPT DER 1/100S tAKT Z{$e4}HLT
  434.  
  435. ;       UND DIE rUNDEN rELAYS AUF DER hARDWARE ABFRAGT
  436.  
  437.  
  438.  
  439. IRQ
  440.  
  441.  
  442.  
  443.         LDA LO1
  444.  
  445.         STA IB1
  446.  
  447.         LDA HI1
  448.  
  449.         STA IB2
  450.  
  451.         LDA LO2
  452.  
  453.         STA IB3
  454.  
  455.         LDA HI2
  456.  
  457.         STA IB4
  458.  
  459.  
  460.  
  461.         LDA STOPFLAG
  462.  
  463.         BEQ I3          ;rENNEN NICHT AKTIV
  464.  
  465.  
  466.  
  467.         LDA 653         ;fLAG F{$fc}R cONTROL tASTEN
  468.  
  469.         AND #1
  470.  
  471.         BNE I2
  472.  
  473.  
  474.  
  475.         INC COUNT
  476.  
  477.         BNE I1
  478.  
  479.         INC COUNT+1
  480.  
  481.         BNE I1
  482.  
  483.         INC COUNT+2
  484.  
  485. I1
  486.  
  487.         LDX #0
  488.  
  489.         INC COUNT100L   ;1/100 HOCHZ{$e4}HLEN
  490.  
  491.         LDA #10
  492.  
  493.         CMP COUNT100L
  494.  
  495.         BNE I2
  496.  
  497.         STX COUNT100L
  498.  
  499.         INC COUNT100H   ;1/10 HOCHZ{$e4}HLEN
  500.  
  501.         LDA #10
  502.  
  503.         CMP COUNT100H
  504.  
  505.         BNE I2
  506.  
  507.         STX COUNT100H
  508.  
  509.         INC COUNT60L    ;SEKUNDEN HOCHZ{$e4}HLEN
  510.  
  511.         LDA #10
  512.  
  513.         CMP COUNT60L
  514.  
  515.         BNE I2
  516.  
  517.         STX COUNT60L
  518.  
  519.         INC COUNT60H    ;DEZI SEKUNDEN HOCHZ{$e4}HLEN
  520.  
  521.         LDA #6
  522.  
  523.         CMP COUNT60H
  524.  
  525.         BNE I2
  526.  
  527.         STX COUNT60H
  528.  
  529.         INC COUNT1L     ;MIN HOCHZ{$e4}HLEN
  530.  
  531.         LDA #10
  532.  
  533.         CMP COUNT1L
  534.  
  535.         BNE I2
  536.  
  537.         STX COUNT1L
  538.  
  539.         INC COUNT1H     ;MIN HOCHZ{$e4}HLEN
  540.  
  541.         LDA #10
  542.  
  543.         CMP COUNT1H
  544.  
  545.         BNE I2
  546.  
  547.         STX COUNT60H
  548.  
  549.         INC COUNT1G     ;MIN HOCHZ{$e4}HLEN
  550.  
  551. I2
  552.  
  553.         LDX TIMEX
  554.  
  555.         LDY TIMEY
  556.  
  557.         JSR XYTOPRINT
  558.  
  559.         JSR PRINTTIME
  560.  
  561.         JSR SHOW
  562.  
  563. I3
  564.  
  565.         LDA IB1
  566.  
  567.         STA LO1
  568.  
  569.         LDA IB2
  570.  
  571.         STA HI1
  572.  
  573.         LDA IB3
  574.  
  575.         STA LO2
  576.  
  577.         LDA IB4
  578.  
  579.         STA HI2
  580.  
  581.         JSR $FFEA ;zEIT ERH{$f6}HEN
  582.  
  583.         LDA #0
  584.  
  585.         STA $91 ;STOP tASTEN fLAG L{$f6}SCHEN
  586.  
  587.         JMP $EA34
  588.  
  589.  
  590.  
  591. IRLOOP
  592.  
  593. ;
  594.  
  595. ;
  596.  
  597. INITOFF LDA #0
  598.  
  599.         STA drrb2
  600.  
  601.         LDA #62
  602.  
  603.         STA timer1a+1
  604.  
  605.         LDA #$31
  606.  
  607.         STA 788
  608.  
  609.         LDA #$EA
  610.  
  611.         STA 789
  612.  
  613.         RTS
  614.  
  615. ;
  616.  
  617. ;--- out        GIBT rUNDENZAHL 2STELLIG AUS
  618.  
  619. ;       1000 = rUNDENZAHL
  620.  
  621. ;       1001 = X-POS
  622.  
  623. ;       1002 = Y-POS
  624.  
  625.  
  626.  
  627. OUT     LDA 1002
  628.  
  629.         ASL
  630.  
  631.         TAY
  632.  
  633.         LDA MULT,Y
  634.  
  635.         STA PLOT1+1
  636.  
  637.         LDA MULT+1,Y
  638.  
  639.         STA PLOT1+2
  640.  
  641.         LDA 1001
  642.  
  643.         CLC
  644.  
  645.         ADC PLOT1+1
  646.  
  647.         STA PLOT1+1
  648.  
  649.         LDA #0
  650.  
  651.         ADC PLOT1+2
  652.  
  653.         STA PLOT1+2
  654.  
  655.         LDA 1000
  656.  
  657.         ASL
  658.  
  659.         TAY
  660.  
  661.         LDA ZIFF,Y
  662.  
  663.         ASL
  664.  
  665.         TAY
  666.  
  667.         LDA ZAHL,Y
  668.  
  669.         STA LO2
  670.  
  671.         LDA ZAHL+1,Y
  672.  
  673.         STA HI2
  674.  
  675.         LDY #0
  676.  
  677. OU1     LDX #0
  678.  
  679. OU2     LDA (LO2),Y
  680.  
  681. PLOT1   STA 1024,X
  682.  
  683.         INX
  684.  
  685.         INY
  686.  
  687.         CPX #3
  688.  
  689.         BNE OU2
  690.  
  691.         LDA PLOT1+1
  692.  
  693.         CLC
  694.  
  695.         ADC #40
  696.  
  697.         STA PLOT1+1
  698.  
  699.         LDA PLOT1+2
  700.  
  701.         ADC #0
  702.  
  703.         STA PLOT1+2
  704.  
  705.         CPY #15
  706.  
  707.         BNE OU1
  708.  
  709.         LDA PLOT1+1
  710.  
  711.         SEC
  712.  
  713.         SBC #196
  714.  
  715.         STA PLOT2+1
  716.  
  717.         LDA PLOT1+2
  718.  
  719.         SBC #0
  720.  
  721.         STA PLOT2+2
  722.  
  723.         LDA 1000
  724.  
  725.         ASL
  726.  
  727.         TAY
  728.  
  729.         LDA ZIFF+1,Y
  730.  
  731.         ASL
  732.  
  733.         TAY
  734.  
  735.         LDA ZAHL,Y
  736.  
  737.         STA LO2
  738.  
  739.         LDA ZAHL+1,Y
  740.  
  741.         STA HI2
  742.  
  743.         LDY #0
  744.  
  745. OU3     LDX #0
  746.  
  747. OU4     LDA (LO2),Y
  748.  
  749. PLOT2   STA 1024,X
  750.  
  751.         INX
  752.  
  753.         INY
  754.  
  755.         CPX #3
  756.  
  757.         BNE OU4
  758.  
  759.         LDA PLOT2+1
  760.  
  761.         CLC
  762.  
  763.         ADC #40
  764.  
  765.         STA PLOT2+1
  766.  
  767.         LDA PLOT2+2
  768.  
  769.         ADC #0
  770.  
  771.         STA PLOT2+2
  772.  
  773.         CPY #15
  774.  
  775.         BNE OU3
  776.  
  777.         RTS
  778.  
  779. ;
  780.  
  781. ;--- RESETBAHN
  782.  
  783. ;
  784.  
  785. ;       rUNDENZEITEN AUF MOMENTANE zEIT SETZEN
  786.  
  787. ;       dAS HEI{CBM-*}T rUNDENZEIT AUF sTARTZEIT!
  788.  
  789.  
  790.  
  791. RESETBAHN       LDX #0
  792.  
  793.         NOP
  794.  
  795. RES1    LDA 828,X
  796.  
  797.         STA 831,X
  798.  
  799.         STA 834,X
  800.  
  801.         STA 837,X
  802.  
  803.         STA 840,X
  804.  
  805.         INX
  806.  
  807.         CPX #3
  808.  
  809.         BNE RES1
  810.  
  811.         RTS
  812.  
  813. ;
  814.  
  815. ;--- TEST
  816.  
  817. TEST    STX TEMP
  818.  
  819.         LDA FLAG,X
  820.  
  821.         BNE TESTEND
  822.  
  823.         LDA MULT3,X
  824.  
  825.         TAX
  826.  
  827.         LDA COUNT
  828.  
  829.         SEC
  830.  
  831.         SBC BAHNALT,X
  832.  
  833.         STA BAHNNEU,X
  834.  
  835.         LDA COUNT+1
  836.  
  837.         SBC BAHNALT+1,X
  838.  
  839.         STA BAHNNEU+1,X
  840.  
  841.         LDA COUNT+2
  842.  
  843.         SBC BAHNALT+2,X
  844.  
  845.         STA BAHNNEU+2,X
  846.  
  847.         CMP LIMIT+2
  848.  
  849.         BCC TESTEND
  850.  
  851.         BNE TESTOK
  852.  
  853.         LDA BAHNNEU+1,X
  854.  
  855.         CMP LIMIT+1
  856.  
  857.         BCC TESTEND
  858.  
  859.         BNE TESTOK
  860.  
  861.         LDA BAHNNEU,X
  862.  
  863.         CMP LIMIT
  864.  
  865.         BCC TESTEND
  866.  
  867. TESTOK  LDA COUNT
  868.  
  869.         STA BAHNALT,X
  870.  
  871.         LDA COUNT+1
  872.  
  873.         STA BAHNALT+1,X
  874.  
  875.         LDA COUNT+2
  876.  
  877.         STA BAHNALT+2,X
  878.  
  879.         LDX TEMP
  880.  
  881.         LDA #1
  882.  
  883.         STA FLAG,X
  884.  
  885. TESTEND LDX TEMP
  886.  
  887.         LDA #1
  888.  
  889.         STA EVENT
  890.  
  891.         RTS
  892.  
  893.  
  894.  
  895. COLOR   LDA #0
  896.  
  897.         STA 53280
  898.  
  899.         STA 53281
  900.  
  901.         LDA #1
  902.  
  903.         STA 646
  904.  
  905.         RTS
  906.  
  907.  
  908.  
  909.         ;BASICEINSPRUNG: SYS CURSOR,X,Y
  910.  
  911. CURSOR  JSR $B7F1
  912.  
  913.         STX 211
  914.  
  915.         JSR $B7F1
  916.  
  917.         STX 214
  918.  
  919.         JSR $E510
  920.  
  921.         RTS
  922.  
  923.  
  924.  
  925.  
  926.  
  927. OUTBASIC
  928.  
  929.         ;BASICEINSPRUNG: SYS OUTBASIC,RUNDENZAHL,X,Y
  930.  
  931.         JSR $B7F1
  932.  
  933.         STX 1000
  934.  
  935.         JSR $B7F1
  936.  
  937.         STX 1001
  938.  
  939.         JSR $B7F1
  940.  
  941.         STX 1002
  942.  
  943.         JMP OUT
  944.  
  945.         RTS
  946.  
  947.  
  948.  
  949.  
  950.  
  951. ;--- SCROLL
  952.  
  953. ;
  954.  
  955.         ;BASICEINSPRUNG: SYS SCROLL,BAHNNUMMER
  956.  
  957. SCROLL  JSR $B7F1
  958.  
  959.         ;ASS EINSPRUNG: X=BAHNNUMMER
  960.  
  961. ;       CPX #4
  962.  
  963. ;       BCS ENDSCROLL
  964.  
  965. SCROLLASS       TXA
  966.  
  967.         ASL
  968.  
  969.         TAX
  970.  
  971.         LDA TIMEPOS,X
  972.  
  973.         STA LO2
  974.  
  975.         LDA TIMEPOS+1,X
  976.  
  977.         STA HI2
  978.  
  979.         LDX #7
  980.  
  981. SCROLL1 CLC
  982.  
  983.         LDA LO2
  984.  
  985.         ADC #40
  986.  
  987.         STA LO1
  988.  
  989.         LDA HI2
  990.  
  991.         ADC #0
  992.  
  993.         STA HI1
  994.  
  995.         LDY #0
  996.  
  997. SCROLL2 LDA (LO2),Y
  998.  
  999.         STA (LO1),Y
  1000.  
  1001.         INY
  1002.  
  1003.         CPY #8
  1004.  
  1005.         BNE SCROLL2
  1006.  
  1007.         SEC
  1008.  
  1009.         LDA LO2
  1010.  
  1011.         SBC #40
  1012.  
  1013.         STA LO2
  1014.  
  1015.         LDA HI2
  1016.  
  1017.         SBC #0
  1018.  
  1019.         STA HI2
  1020.  
  1021.         DEX
  1022.  
  1023.         BNE SCROLL1
  1024.  
  1025. ENDSCROLL       RTS
  1026.  
  1027.  
  1028.  
  1029. ;------------------------------------------------------------------------
  1030.  
  1031. DIV100
  1032.  
  1033.         ;TEILT DURCH 100
  1034.  
  1035.         ;A=HI ERGEBNIS -> A
  1036.  
  1037.         ;Y=MI ERGEBNIS -> Y
  1038.  
  1039.         ;X=LO ERGEBNIS -> X
  1040.  
  1041.  
  1042.  
  1043.         STX $22
  1044.  
  1045.         STY $23
  1046.  
  1047.         STA $24
  1048.  
  1049.         RTS
  1050.  
  1051.  
  1052.  
  1053. ;------------------------------------------------------------------------
  1054.  
  1055. PRINTTIME
  1056.  
  1057.         ;GIBT ZEIT AN KOORDINATE AUS
  1058.  
  1059.         LDY #0
  1060.  
  1061.         LDA COUNT1G
  1062.  
  1063.         CLC
  1064.  
  1065.         ADC #48
  1066.  
  1067.         STA (LO2),Y
  1068.  
  1069.         INY
  1070.  
  1071.         LDA COUNT1H
  1072.  
  1073.         ADC #48
  1074.  
  1075.         STA (LO2),Y
  1076.  
  1077.         INY
  1078.  
  1079.         LDA COUNT1L
  1080.  
  1081.         ADC #48
  1082.  
  1083.         STA (LO2),Y
  1084.  
  1085.         INY
  1086.  
  1087.         LDA #58
  1088.  
  1089.         STA (LO2),Y
  1090.  
  1091.         INY
  1092.  
  1093.         LDA COUNT60H
  1094.  
  1095.         ADC #48
  1096.  
  1097.         STA (LO2),Y
  1098.  
  1099.         INY
  1100.  
  1101.         LDA COUNT60L
  1102.  
  1103.         ADC #48
  1104.  
  1105.         STA (LO2),Y
  1106.  
  1107.         INY
  1108.  
  1109.         LDA #39
  1110.  
  1111.         STA (LO2),Y
  1112.  
  1113.         INY
  1114.  
  1115.         LDA COUNT100H
  1116.  
  1117.         ADC #48
  1118.  
  1119.         STA (LO2),Y
  1120.  
  1121.         INY
  1122.  
  1123.         LDA COUNT100L
  1124.  
  1125.         ADC #48
  1126.  
  1127.         STA (LO2),Y
  1128.  
  1129.         INY
  1130.  
  1131.         RTS
  1132.  
  1133.  
  1134.  
  1135.  
  1136.  
  1137. ;------------------------------------------------------------------------
  1138.  
  1139. XYTOPRINT
  1140.  
  1141.         ;RECHNET X-Y KOORDINATE IN BILDSCHIRMADRESSE UM
  1142.  
  1143.         ;X:= X-POS
  1144.  
  1145.         ;Y:= Y-POS
  1146.  
  1147.         ;ADRESSE -> LO2,HI2
  1148.  
  1149.  
  1150.  
  1151.         TYA
  1152.  
  1153.         ASL
  1154.  
  1155.         TAY
  1156.  
  1157.         LDA MULT40,Y
  1158.  
  1159.         STA LO2
  1160.  
  1161.         LDA MULT40+1,Y
  1162.  
  1163.         STA HI2
  1164.  
  1165.         CLC
  1166.  
  1167.         TXA
  1168.  
  1169.         ADC LO2
  1170.  
  1171.         STA LO2
  1172.  
  1173.         LDA HI2
  1174.  
  1175.         ADC #0
  1176.  
  1177.         STA HI2
  1178.  
  1179.         RTS
  1180.  
  1181.  
  1182.  
  1183. RESETTIME
  1184.  
  1185.         LDA #0
  1186.  
  1187.         STA COUNT
  1188.  
  1189.         STA COUNT+1
  1190.  
  1191.         STA COUNT+2
  1192.  
  1193.         STA COUNT1L
  1194.  
  1195.         STA COUNT1H
  1196.  
  1197.         STA COUNT1G
  1198.  
  1199.         STA COUNT60L
  1200.  
  1201.         STA COUNT60H
  1202.  
  1203.         STA COUNT100L
  1204.  
  1205.         STA COUNT100H
  1206.  
  1207.           STA COUNT
  1208.  
  1209.         STA COUNT+1
  1210.  
  1211.         STA COUNT+2
  1212.  
  1213.         STA FLAG
  1214.  
  1215.         STA FLAG+1
  1216.  
  1217.         STA FLAG+2
  1218.  
  1219.         STA FLAG+3
  1220.  
  1221.         RTS