home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 93 / Digital_Talk_93_2011-11-15_Digital_Talk_Side_B.d64 / source.s < prev    next >
Text File  |  2023-02-26  |  11KB  |  1,199 lines
  1.  
  2.  
  3.  
  4.  
  5. ;===============================================================
  6.  
  7.  
  8.  
  9. ;
  10.  
  11.  
  12.  
  13. ; Famous Fairlight Cracktro - #2
  14.  
  15.  
  16.  
  17. ;
  18.  
  19.  
  20.  
  21. ; disassembled/converted to source
  22.  
  23.  
  24.  
  25. ; by the 6502 junkie called Adam Morton
  26.  
  27.  
  28.  
  29. ;
  30.  
  31.  
  32.  
  33. ; ...Yet another intro sourced for your study and amusement
  34.  
  35.  
  36.  
  37. ;
  38.  
  39.  
  40.  
  41. ; - Some minor code/data adjustments..
  42.  
  43.  
  44.  
  45. ; - Music replayer+Data disassembly added..
  46.  
  47.  
  48.  
  49. ; - Some comments maybe?
  50.  
  51.  
  52.  
  53. ;
  54.  
  55.  
  56.  
  57. ;===============================================================
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65. PROCESSOR 6502
  66.  
  67.  
  68.  
  69. ORG $C000
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.     SEI
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.     LDA #>IRQ
  86.  
  87.  
  88.  
  89.     STA $0315
  90.  
  91.  
  92.  
  93.     LDA #<IRQ
  94.  
  95.  
  96.  
  97.     STA $0314
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.     LDA #$01
  106.  
  107.  
  108.  
  109.     STA $D012
  110.  
  111.  
  112.  
  113.     STA $D01A
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.     LDA #$7F
  122.  
  123.  
  124.  
  125.     STA $DC0D
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.     LDA #$1B
  134.  
  135.  
  136.  
  137.     STA $D011
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.     LDA #$94
  146.  
  147.  
  148.  
  149.     STA $DD00
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.     LDA #$12
  158.  
  159.  
  160.  
  161.     STA $D018
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.     LDA #$09
  170.  
  171.  
  172.  
  173.     LDX #$00
  174.  
  175.  
  176.  
  177. a1  STA $D800,X
  178.  
  179.  
  180.  
  181.     INX
  182.  
  183.  
  184.  
  185.     BNE a1
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.         LDX #$20
  194.  
  195.  
  196.  
  197. a2      STA $D8FF,X
  198.  
  199.  
  200.  
  201.         DEX
  202.  
  203.  
  204.  
  205.         BNE a2
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.         LDA #$01;
  214.  
  215.  
  216.  
  217. a3      STA $D920,X
  218.  
  219.  
  220.  
  221.         STA $DA00,X
  222.  
  223.  
  224.  
  225.         STA $DB00,X
  226.  
  227.  
  228.  
  229.         INX
  230.  
  231.  
  232.  
  233.         BNE a3
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.     LDA #$00; Screen Colour
  242.  
  243.  
  244.  
  245.     STA $D020
  246.  
  247.  
  248.  
  249.     STA $D021
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.     LDA #$0A; Multicolours
  258.  
  259.  
  260.  
  261.     LDX #$02
  262.  
  263.  
  264.  
  265.     STA $D023
  266.  
  267.  
  268.  
  269.     STX $D022
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.     LDA #$D8
  278.  
  279.  
  280.  
  281.     STA $D016
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.     LDA #$FF; Turn Sprites ON
  290.  
  291.  
  292.  
  293.     STA $D015
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.     LDA #$18; Setup Sprite Locations
  302.  
  303.  
  304.  
  305.     STA $D000; for the ever-famous, 
  306.  
  307.  
  308.  
  309.     LDA #$48; fake raster bar =)
  310.  
  311.  
  312.  
  313.     STA $D002;
  314.  
  315.  
  316.  
  317.     LDA #$78;
  318.  
  319.  
  320.  
  321.     STA $D004
  322.  
  323.  
  324.  
  325.     LDA #$A8
  326.  
  327.  
  328.  
  329.     STA $D008
  330.  
  331.  
  332.  
  333.     LDA #$D8
  334.  
  335.  
  336.  
  337.     STA $D00A
  338.  
  339.  
  340.  
  341.     LDA #$08
  342.  
  343.  
  344.  
  345.     STA $D00C
  346.  
  347.  
  348.  
  349.     LDA #$38
  350.  
  351.  
  352.  
  353.     STA $D00E
  354.  
  355.  
  356.  
  357.  
  358.  
  359.  
  360.  
  361.     LDA #$C0; Set Sprite MSB
  362.  
  363.  
  364.  
  365.     STA $D010
  366.  
  367.  
  368.  
  369.  
  370.  
  371.  
  372.  
  373.     LDA #$FF
  374.  
  375.  
  376.  
  377.     STA $D01C
  378.  
  379.  
  380.  
  381.     STA $D01D
  382.  
  383.  
  384.  
  385.  
  386.  
  387.  
  388.  
  389.     LDA #$0D; Setup sprite colours
  390.  
  391.  
  392.  
  393.     LDX #$07
  394.  
  395.  
  396.  
  397. a4  STA $D027,X
  398.  
  399.  
  400.  
  401.     DEX
  402.  
  403.  
  404.  
  405.     BPL a4
  406.  
  407.  
  408.  
  409.  
  410.  
  411.  
  412.  
  413.     LDA #$05; Setup Multicolors
  414.  
  415.  
  416.  
  417.     LDX #$01
  418.  
  419.  
  420.  
  421.     STA $D025
  422.  
  423.  
  424.  
  425.     STX $D026
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.     LDA #$00
  434.  
  435.  
  436.  
  437.     STA $02
  438.  
  439.  
  440.  
  441.  
  442.  
  443.  
  444.  
  445.     JSR $C200; Play Music + Do Colour Cycle
  446.  
  447.  
  448.  
  449.     CLI
  450.  
  451.  
  452.  
  453.  
  454.  
  455.  
  456.  
  457. l4eva   JMP l4eva
  458.  
  459.  
  460.  
  461.  
  462.  
  463.  
  464.  
  465. ;===============================================================
  466.  
  467.  
  468.  
  469.  
  470.  
  471.  
  472.  
  473. org $c0b2
  474.  
  475.  
  476.  
  477.  
  478.  
  479.  
  480.  
  481.     LDA #$01
  482.  
  483.  
  484.  
  485.     STA $D019
  486.  
  487.  
  488.  
  489.  
  490.  
  491.  
  492.  
  493. loop   JSR m10; Play Music 
  494.  
  495.  
  496.  
  497.  
  498.  
  499.  
  500.  
  501.     INC $02
  502.  
  503.  
  504.  
  505.  
  506.  
  507.  
  508.  
  509.     LDX $02
  510.  
  511.  
  512.  
  513.     LDA $C2C0,X
  514.  
  515.  
  516.  
  517.     LDY #$0E
  518.  
  519.  
  520.  
  521. a5      STA $D001,Y
  522.  
  523.  
  524.  
  525.     DEY
  526.  
  527.  
  528.  
  529.     DEY
  530.  
  531.  
  532.  
  533.     BPL a5
  534.  
  535.  
  536.  
  537.  
  538.  
  539.  
  540.  
  541.     LDA $D001
  542.  
  543.  
  544.  
  545.     CMP #$32
  546.  
  547.  
  548.  
  549.     BNE a6a
  550.  
  551.  
  552.  
  553.  
  554.  
  555.  
  556.  
  557.     LDA #$00
  558.  
  559.  
  560.  
  561. a6      STA $D01B
  562.  
  563.  
  564.  
  565.     JMP a8
  566.  
  567.  
  568.  
  569.  
  570.  
  571.  
  572.  
  573. a6a    CMP #$7B
  574.  
  575.  
  576.  
  577.     BNE a7
  578.  
  579.  
  580.  
  581.     LDA #$FF
  582.  
  583.  
  584.  
  585.     JMP a6
  586.  
  587.  
  588.  
  589.  
  590.  
  591.  
  592.  
  593. a7      CMP #$33
  594.  
  595.  
  596.  
  597.     BNE a8
  598.  
  599.  
  600.  
  601.     LDA a8+1
  602.  
  603.  
  604.  
  605.     CMP #$1F
  606.  
  607.  
  608.  
  609.     BEQ a8
  610.  
  611.  
  612.  
  613.  
  614.  
  615.  
  616.  
  617.     INC a8+1
  618.  
  619.  
  620.  
  621.  
  622.  
  623.  
  624.  
  625. a8      LDA #$15
  626.  
  627.  
  628.  
  629.     STA $D418
  630.  
  631.  
  632.  
  633.  
  634.  
  635.  
  636.  
  637.     LDA #$98
  638.  
  639.  
  640.  
  641.     LDX #$00
  642.  
  643.  
  644.  
  645. a9      CMP $D012
  646.  
  647.  
  648.  
  649.     BNE a9
  650.  
  651.  
  652.  
  653.  
  654.  
  655.  
  656.  
  657. b1      LDA $C280,X
  658.  
  659.  
  660.  
  661.     TAY
  662.  
  663.  
  664.  
  665.     LDA $D012
  666.  
  667.  
  668.  
  669. b0      CMP $D012
  670.  
  671.  
  672.  
  673.     BEQ b0
  674.  
  675.  
  676.  
  677.  
  678.  
  679.  
  680.  
  681.     STY $D021
  682.  
  683.  
  684.  
  685.     INX
  686.  
  687.  
  688.  
  689.     CPX #$2A
  690.  
  691.  
  692.  
  693.     BNE b1
  694.  
  695.  
  696.  
  697.  
  698.  
  699.  
  700.  
  701. b2      LDA $D012
  702.  
  703.  
  704.  
  705.     CMP #$D2
  706.  
  707.  
  708.  
  709.     BNE b2
  710.  
  711.  
  712.  
  713.  
  714.  
  715.  
  716.  
  717.     LDA $09
  718.  
  719.  
  720.  
  721.     STA $D016
  722.  
  723.  
  724.  
  725.     LDX #$64
  726.  
  727.  
  728.  
  729. b3      DEX
  730.  
  731.  
  732.  
  733.     BNE b3
  734.  
  735.  
  736.  
  737.  
  738.  
  739.  
  740.  
  741.     LDA #$D8
  742.  
  743.  
  744.  
  745.     STA $D016
  746.  
  747.  
  748.  
  749.  
  750.  
  751.  
  752.  
  753.     DEC $09
  754.  
  755.  
  756.  
  757.     LDA $09
  758.  
  759.  
  760.  
  761.     CMP #$FF
  762.  
  763.  
  764.  
  765.     BNE b6
  766.  
  767.  
  768.  
  769.  
  770.  
  771.  
  772.  
  773.     LDA #$07
  774.  
  775.  
  776.  
  777.     STA $09
  778.  
  779.  
  780.  
  781.     LDX #$00
  782.  
  783.  
  784.  
  785. b4  LDA $C721,X
  786.  
  787.  
  788.  
  789.     STA $C720,X
  790.  
  791.  
  792.  
  793.     INX
  794.  
  795.  
  796.  
  797.     CPX #$27
  798.  
  799.  
  800.  
  801.     BNE b4
  802.  
  803.  
  804.  
  805.  
  806.  
  807.  
  808.  
  809.     LDX #$00
  810.  
  811.  
  812.  
  813.     LDA ($39,X)
  814.  
  815.  
  816.  
  817. CMP #$FF
  818.  
  819.  
  820.  
  821. BEQ RES
  822.  
  823.  
  824.  
  825.     STA $C747
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832.  
  833. BACK   INC $39
  834.  
  835.  
  836.  
  837.  
  838.  
  839.  
  840.  
  841.     LDA $39
  842.  
  843.  
  844.  
  845.     CMP #$00
  846.  
  847.  
  848.  
  849.     BNE b6
  850.  
  851.  
  852.  
  853.  
  854.  
  855.  
  856.  
  857.     INC $3A
  858.  
  859.  
  860.  
  861.     LDA $3A
  862.  
  863.  
  864.  
  865.     CMP #$CC
  866.  
  867.  
  868.  
  869.     BNE b6
  870.  
  871.  
  872.  
  873.  
  874.  
  875.  
  876.  
  877.    LDA #$CA
  878.  
  879.  
  880.  
  881.     STA $3A
  882.  
  883.  
  884.  
  885.  
  886.  
  887.  
  888.  
  889. b6  LDA $DB20
  890.  
  891.  
  892.  
  893.     PHA
  894.  
  895.  
  896.  
  897.     LDX #$00
  898.  
  899.  
  900.  
  901. b5  LDA $DB21,X
  902.  
  903.  
  904.  
  905.     STA $DB20,X
  906.  
  907.  
  908.  
  909.     INX
  910.  
  911.  
  912.  
  913.     CPX #$27
  914.  
  915.  
  916.  
  917.     BNE b5
  918.  
  919.  
  920.  
  921.  
  922.  
  923.  
  924.  
  925.     PLA
  926.  
  927.  
  928.  
  929.     STA $DB47
  930.  
  931.  
  932.  
  933.  
  934.  
  935.  
  936.  
  937.     JMP $EA81
  938.  
  939.  
  940.  
  941.  
  942.  
  943.  
  944.  
  945. RESLDA #$CA; Reset scroll text location
  946.  
  947.  
  948.  
  949. LDX #$00        ; back to the start
  950.  
  951.  
  952.  
  953. STA $3A
  954.  
  955.  
  956.  
  957. STX $39
  958.  
  959.  
  960.  
  961.  
  962.  
  963.  
  964.  
  965. JMP BACK
  966.  
  967.  
  968.  
  969.  
  970.  
  971.  
  972.  
  973.  
  974.  
  975.  
  976.  
  977. ;===============================================================
  978.  
  979.  
  980.  
  981.  
  982.  
  983.  
  984.  
  985. IRQ;ORG $C174
  986.  
  987.  
  988.  
  989.  
  990.  
  991.  
  992.  
  993.     LDA #$01
  994.  
  995.  
  996.  
  997.     STA $D019
  998.  
  999.  
  1000.  
  1001.  
  1002.  
  1003.  
  1004.  
  1005.     LDA a8+1; Check music fade-in - Has it reached $1f yet?
  1006.  
  1007.  
  1008.  
  1009.     CMP #$1F        ; No? Then don't allow the space key to be pressed..  
  1010.  
  1011.  
  1012.  
  1013.     BNE b7        
  1014.  
  1015.  
  1016.  
  1017.                         
  1018.  
  1019.  
  1020.  
  1021.     LDA $DC01
  1022.  
  1023.  
  1024.  
  1025.     CMP #$EF
  1026.  
  1027.  
  1028.  
  1029.     BEQ EXIT
  1030.  
  1031.  
  1032.  
  1033.  
  1034.  
  1035.  
  1036.  
  1037. b7      JSR $FFE4
  1038.  
  1039.  
  1040.  
  1041.     JMP loop
  1042.  
  1043.  
  1044.  
  1045.  
  1046.  
  1047.  
  1048.  
  1049. EXIT    SEI
  1050.  
  1051.  
  1052.  
  1053.  
  1054.  
  1055.  
  1056.  
  1057.     LDA #$EA; Reset IRQ to default address
  1058.  
  1059.  
  1060.  
  1061.     LDX #$31
  1062.  
  1063.  
  1064.  
  1065.     STA $0315
  1066.  
  1067.  
  1068.  
  1069.     STX $0314
  1070.  
  1071.  
  1072.  
  1073.  
  1074.  
  1075.  
  1076.  
  1077.     JSR $FF81
  1078.  
  1079.  
  1080.  
  1081.  
  1082.  
  1083.  
  1084.  
  1085.     LDA #$97
  1086.  
  1087.  
  1088.  
  1089.     STA $DD00
  1090.  
  1091.  
  1092.  
  1093.  
  1094.  
  1095.  
  1096.  
  1097.     LDA #$0B
  1098.  
  1099.  
  1100.  
  1101.     STA $D011
  1102.  
  1103.  
  1104.  
  1105.  
  1106.  
  1107.  
  1108.  
  1109.     CLI
  1110.  
  1111.  
  1112.  
  1113.  
  1114.  
  1115.  
  1116.  
  1117.     LDA #$00
  1118.  
  1119.  
  1120.  
  1121.     STA $D020
  1122.  
  1123.  
  1124.  
  1125.     STA $D021
  1126.  
  1127.  
  1128.  
  1129.  
  1130.  
  1131.  
  1132.  
  1133.     LDX #$1C; Zeros to SID (silence it)
  1134.  
  1135.  
  1136.  
  1137.     LDA #$00
  1138.  
  1139.  
  1140.  
  1141. b8    STA $D41C,X
  1142.  
  1143.  
  1144.  
  1145.     DEX
  1146.  
  1147.  
  1148.  
  1149.     BNE b8
  1150.  
  1151.  
  1152.  
  1153.  
  1154.  
  1155.  
  1156.  
  1157.    JMP 64738
  1158.  
  1159.  
  1160.  
  1161.  
  1162.  
  1163.  
  1164.  
  1165. ;===============================================================
  1166.  
  1167.  
  1168.  
  1169.  
  1170.  
  1171.  
  1172.  
  1173. ORG $c200
  1174.  
  1175.  
  1176.  
  1177.  
  1178.  
  1179.  
  1180.  
  1181.     JSR $CC19; Play the music
  1182.  
  1183.  
  1184.  
  1185.  
  1186.  
  1187.  
  1188.  
  1189.     LDA #$10
  1190.  
  1191.  
  1192.  
  1193.     STA $C0F1
  1194.  
  1195.  
  1196.  
  1197.  
  1198.  
  1199.  
  1200.  
  1201.     LDX #$C0
  1202.  
  1203.  
  1204.  
  1205.     LDA #$00
  1206.  
  1207.  
  1208.  
  1209. c0      STA $DA40,X
  1210.  
  1211.  
  1212.  
  1213.     DEX
  1214.  
  1215.  
  1216.  
  1217.     BNE c0
  1218.  
  1219.  
  1220.  
  1221.  
  1222.  
  1223.  
  1224.  
  1225.     LDA #$CA
  1226.  
  1227.  
  1228.  
  1229.     LDX #$00
  1230.  
  1231.  
  1232.  
  1233.     STA $3A
  1234.  
  1235.  
  1236.  
  1237.     STX $39
  1238.  
  1239.  
  1240.  
  1241.  
  1242.  
  1243.  
  1244.  
  1245.     LDX #$00
  1246.  
  1247.  
  1248.  
  1249. c1      LDA $C258,X
  1250.  
  1251.  
  1252.  
  1253.     STA $DB20,X
  1254.  
  1255.  
  1256.  
  1257.     INX
  1258.  
  1259.  
  1260.  
  1261.     CPX #$28
  1262.  
  1263.  
  1264.  
  1265.     BNE c1
  1266.  
  1267.  
  1268.  
  1269.  
  1270.  
  1271.  
  1272.  
  1273.     LDA #$00
  1274.  
  1275.  
  1276.  
  1277.     STA $C6
  1278.  
  1279.  
  1280.  
  1281.     STA $C5
  1282.  
  1283.  
  1284.  
  1285.     RTS
  1286.  
  1287.  
  1288.  
  1289.  
  1290.  
  1291.  
  1292.  
  1293. ;===============================================================
  1294.  
  1295.  
  1296.  
  1297.  
  1298.  
  1299.  
  1300.  
  1301. ORG $C241
  1302.  
  1303.  
  1304.  
  1305. DC.B $09,$07,$07,$01,$01,$01,$07,$07,$09
  1306.  
  1307.  
  1308.  
  1309.  
  1310.  
  1311.  
  1312.  
  1313. ;===============================================================
  1314.  
  1315.  
  1316.  
  1317.  
  1318.  
  1319.  
  1320.  
  1321. ORG $C258
  1322.  
  1323.  
  1324.  
  1325.  
  1326.  
  1327.  
  1328.  
  1329. DC.B $01,$01,$01,$01,$01  ; Colour Cycling
  1330.  
  1331.  
  1332.  
  1333. dc.b $0f,$0f,$0f,$0f,$0f  ; for the scroll text
  1334.  
  1335.  
  1336.  
  1337. DC.B $0c,$0c,$0c,$0c,$0c
  1338.  
  1339.  
  1340.  
  1341. dc.b $0b,$0b,$0b,$0b,$0b
  1342.  
  1343.  
  1344.  
  1345. DC.B $01,$01,$01,$01,$01
  1346.  
  1347.  
  1348.  
  1349. dc.b $0f,$0f,$0f,$0f,$0f
  1350.  
  1351.  
  1352.  
  1353. DC.B $0c,$0c,$0c,$0c,$0c
  1354.  
  1355.  
  1356.  
  1357. DC.B $0b,$0b,$0b,$0b,$0b
  1358.  
  1359.  
  1360.  
  1361.  
  1362.  
  1363.  
  1364.  
  1365. ;===============================================================
  1366.  
  1367.  
  1368.  
  1369.  
  1370.  
  1371.  
  1372.  
  1373. ORG $C280
  1374.  
  1375.  
  1376.  
  1377.  
  1378.  
  1379.  
  1380.  
  1381. DC.B $00,$00,$00,$00; Raster list for bars
  1382.  
  1383.  
  1384.  
  1385. DC.B $00,$00,$00,$00    ; under the text lines
  1386.  
  1387.  
  1388.  
  1389. DC.B $00,$00,$00,$00
  1390.  
  1391.  
  1392.  
  1393. DC.B $00,$00,$00,$02
  1394.  
  1395.  
  1396.  
  1397. DC.B $0a,$01,$01,$01
  1398.  
  1399.  
  1400.  
  1401. DC.B $0a,$0a,$02,$00
  1402.  
  1403.  
  1404.  
  1405. DC.B $00,$00,$00,$00
  1406.  
  1407.  
  1408.  
  1409. DC.B $00,$06,$0e,$0e
  1410.  
  1411.  
  1412.  
  1413. DC.B $01,$01,$0e,$0e
  1414.  
  1415.  
  1416.  
  1417. DC.B $06,$00,$00,$00
  1418.  
  1419.  
  1420.  
  1421. DC.B $00
  1422.  
  1423.  
  1424.  
  1425.  
  1426.  
  1427.  
  1428.  
  1429. ;===============================================================
  1430.  
  1431.  
  1432.  
  1433.  
  1434.  
  1435.  
  1436.  
  1437. ORG $C2BE; Sinus Data
  1438.  
  1439.  
  1440.  
  1441. INCBIN SINUS_C2BE.bin
  1442.  
  1443.  
  1444.  
  1445.  
  1446.  
  1447.  
  1448.  
  1449. ORG $C3C0; Sprite (fake raster bar)
  1450.  
  1451.  
  1452.  
  1453. INCBIN SPRITE_C3C0.bin
  1454.  
  1455.  
  1456.  
  1457.  
  1458.  
  1459.  
  1460.  
  1461. ORG $C400; Screen Location
  1462.  
  1463.  
  1464.  
  1465. INCBIN SCREEN_C400.bin
  1466.  
  1467.  
  1468.  
  1469.  
  1470.  
  1471.  
  1472.  
  1473. ORG $C800; Charset 
  1474.  
  1475.  
  1476.  
  1477. INCBIN CHARSET_C800.bin
  1478.  
  1479.  
  1480.  
  1481.  
  1482.  
  1483.  
  1484.  
  1485. ORG $CA00; Scroll Text
  1486.  
  1487.  
  1488.  
  1489. INCBIN SCROLL_CA00.bin
  1490.  
  1491.  
  1492.  
  1493.  
  1494.  
  1495.  
  1496.  
  1497. ;===============================================================
  1498.  
  1499.  
  1500.  
  1501. ;===============================================================
  1502.  
  1503.  
  1504.  
  1505.  
  1506.  
  1507.  
  1508.  
  1509.  
  1510.  
  1511.  
  1512.  
  1513. ORG $CC00; Music Code+Data
  1514.  
  1515.  
  1516.  
  1517.  
  1518.  
  1519.  
  1520.  
  1521. DC.B $20,$00,$00,$08
  1522.  
  1523.  
  1524.  
  1525. DC.B $10,$2e,$4e,$00
  1526.  
  1527.  
  1528.  
  1529. DC.B $00,$00,$08,$40
  1530.  
  1531.  
  1532.  
  1533. DC.B $8a,$0a,$00,$00
  1534.  
  1535.  
  1536.  
  1537. DC.B $00,$07,$40,$0a
  1538.  
  1539.  
  1540.  
  1541. DC.B $0a,$00,$7d,$d6
  1542.  
  1543.  
  1544.  
  1545. DC.B $1f
  1546.  
  1547.  
  1548.  
  1549.  
  1550.  
  1551.  
  1552.  
  1553. ;---------------------------
  1554.  
  1555.  
  1556.  
  1557.  
  1558.  
  1559.  
  1560.  
  1561. ORG $CC19; Music Player
  1562.  
  1563.  
  1564.  
  1565.  
  1566.  
  1567.  
  1568.  
  1569.         LDX #$18
  1570.  
  1571.  
  1572.  
  1573. m0      LDA $CC00,X
  1574.  
  1575.  
  1576.  
  1577.         STA $D400,X
  1578.  
  1579.  
  1580.  
  1581.         DEX
  1582.  
  1583.  
  1584.  
  1585.         BPL m0
  1586.  
  1587.  
  1588.  
  1589.  
  1590.  
  1591.  
  1592.  
  1593.     LDA $CC04
  1594.  
  1595.  
  1596.  
  1597.     STA $0355
  1598.  
  1599.  
  1600.  
  1601.  
  1602.  
  1603.  
  1604.  
  1605.     LDA $CC0B
  1606.  
  1607.  
  1608.  
  1609.     STA $0356
  1610.  
  1611.  
  1612.  
  1613.  
  1614.  
  1615.  
  1616.  
  1617.     LDA $CC12
  1618.  
  1619.  
  1620.  
  1621.     STA $0357
  1622.  
  1623.  
  1624.  
  1625.  
  1626.  
  1627.  
  1628.  
  1629.     LDX #$02
  1630.  
  1631.  
  1632.  
  1633.     LDA #$01
  1634.  
  1635.  
  1636.  
  1637. m1      STA $0358,X
  1638.  
  1639.  
  1640.  
  1641.     DEX
  1642.  
  1643.  
  1644.  
  1645.     BPL m1
  1646.  
  1647.  
  1648.  
  1649.  
  1650.  
  1651.  
  1652.  
  1653.     LDX #$08
  1654.  
  1655.  
  1656.  
  1657.     LDA #$00
  1658.  
  1659.  
  1660.  
  1661. m2      STA $035B,X
  1662.  
  1663.  
  1664.  
  1665.     DEX
  1666.  
  1667.  
  1668.  
  1669.     BPL m2
  1670.  
  1671.  
  1672.  
  1673.  
  1674.  
  1675.  
  1676.  
  1677.     LDA #$01
  1678.  
  1679.  
  1680.  
  1681.     STA $0354
  1682.  
  1683.  
  1684.  
  1685.  
  1686.  
  1687.  
  1688.  
  1689.     LDX #$05
  1690.  
  1691.  
  1692.  
  1693. m3      LDA $CE00,X
  1694.  
  1695.  
  1696.  
  1697.     STA $0364,X
  1698.  
  1699.  
  1700.  
  1701.     DEX
  1702.  
  1703.  
  1704.  
  1705.     BPL m3
  1706.  
  1707.  
  1708.  
  1709.  
  1710.  
  1711.  
  1712.  
  1713.     INC $0358
  1714.  
  1715.  
  1716.  
  1717.     RTS
  1718.  
  1719.  
  1720.  
  1721.  
  1722.  
  1723.  
  1724.  
  1725. m10    DEC $0354
  1726.  
  1727.  
  1728.  
  1729.     BEQ m4
  1730.  
  1731.  
  1732.  
  1733.  
  1734.  
  1735.  
  1736.  
  1737.         JMP $CD1D
  1738.  
  1739.  
  1740.  
  1741.  
  1742.  
  1743.  
  1744.  
  1745. m4      LDA #$0A
  1746.  
  1747.  
  1748.  
  1749.         STA $0354
  1750.  
  1751.  
  1752.  
  1753.  
  1754.  
  1755.  
  1756.  
  1757.     LDX #$02
  1758.  
  1759.  
  1760.  
  1761. m9      DEC $0358,X
  1762.  
  1763.  
  1764.  
  1765.     BNE m5
  1766.  
  1767.  
  1768.  
  1769.     TXA
  1770.  
  1771.  
  1772.  
  1773.     STA $9E
  1774.  
  1775.  
  1776.  
  1777.  
  1778.  
  1779.  
  1780.  
  1781.     ASL 
  1782.  
  1783.  
  1784.  
  1785.     PHA
  1786.  
  1787.  
  1788.  
  1789.     ASL 
  1790.  
  1791.  
  1792.  
  1793.     ASL 
  1794.  
  1795.  
  1796.  
  1797.     SEC
  1798.  
  1799.  
  1800.  
  1801.     SBC $9E
  1802.  
  1803.  
  1804.  
  1805.     TAY
  1806.  
  1807.  
  1808.  
  1809.  
  1810.  
  1811.  
  1812.  
  1813.     LDA $0355,X
  1814.  
  1815.  
  1816.  
  1817.     STA $D404,Y
  1818.  
  1819.  
  1820.  
  1821.     PLA
  1822.  
  1823.  
  1824.  
  1825.     TAY
  1826.  
  1827.  
  1828.  
  1829. m7      LDA $0364,Y
  1830.  
  1831.  
  1832.  
  1833.     STA $9E
  1834.  
  1835.  
  1836.  
  1837.     CLC
  1838.  
  1839.  
  1840.  
  1841.     ADC #$03
  1842.  
  1843.  
  1844.  
  1845.     STA $0364,Y
  1846.  
  1847.  
  1848.  
  1849.     LDA $0365,Y
  1850.  
  1851.  
  1852.  
  1853.     STA $9F
  1854.  
  1855.  
  1856.  
  1857.  
  1858.  
  1859.  
  1860.  
  1861.     ADC #$00
  1862.  
  1863.  
  1864.  
  1865.     STA $0365,Y
  1866.  
  1867.  
  1868.  
  1869.  
  1870.  
  1871.  
  1872.  
  1873.     LDY #$02
  1874.  
  1875.  
  1876.  
  1877.     LDA ($9E),Y
  1878.  
  1879.  
  1880.  
  1881.     BEQ m6
  1882.  
  1883.  
  1884.  
  1885.  
  1886.  
  1887.  
  1888.  
  1889.     STA $035E,X
  1890.  
  1891.  
  1892.  
  1893.     DEY
  1894.  
  1895.  
  1896.  
  1897.  
  1898.  
  1899.  
  1900.  
  1901.     LDA ($9E),Y
  1902.  
  1903.  
  1904.  
  1905.     STA $035B,X
  1906.  
  1907.  
  1908.  
  1909.  
  1910.  
  1911.  
  1912.  
  1913.     LDA #$01
  1914.  
  1915.  
  1916.  
  1917.     STA $0361,X
  1918.  
  1919.  
  1920.  
  1921. m8      DEY
  1922.  
  1923.  
  1924.  
  1925.     LDA ($9E),Y
  1926.  
  1927.  
  1928.  
  1929.     STA $0358,X
  1930.  
  1931.  
  1932.  
  1933.     BNE m5
  1934.  
  1935.  
  1936.  
  1937.  
  1938.  
  1939.  
  1940.  
  1941.     TXA
  1942.  
  1943.  
  1944.  
  1945.     ASL 
  1946.  
  1947.  
  1948.  
  1949.     TAY
  1950.  
  1951.  
  1952.  
  1953.  
  1954.  
  1955.  
  1956.  
  1957.     LDA $CE00,Y
  1958.  
  1959.  
  1960.  
  1961.     STA $0364,Y
  1962.  
  1963.  
  1964.  
  1965.  
  1966.  
  1967.  
  1968.  
  1969.     LDA $CE01,Y
  1970.  
  1971.  
  1972.  
  1973.     STA $0365,Y
  1974.  
  1975.  
  1976.  
  1977.     JMP m7
  1978.  
  1979.  
  1980.  
  1981.  
  1982.  
  1983.  
  1984.  
  1985. m6  DEY
  1986.  
  1987.  
  1988.  
  1989.     LDA #$00
  1990.  
  1991.  
  1992.  
  1993.     STA $0361,X
  1994.  
  1995.  
  1996.  
  1997.     JMP m8
  1998.  
  1999.  
  2000.  
  2001.  
  2002.  
  2003.  
  2004.  
  2005. m5  DEX
  2006.  
  2007.  
  2008.  
  2009.     BPL m9
  2010.  
  2011.  
  2012.  
  2013.  
  2014.  
  2015.  
  2016.  
  2017.     LDA $A0
  2018.  
  2019.  
  2020.  
  2021.     AND #$07
  2022.  
  2023.  
  2024.  
  2025.     CLC
  2026.  
  2027.  
  2028.  
  2029.     ADC #$04
  2030.  
  2031.  
  2032.  
  2033.     STA $D40A
  2034.  
  2035.  
  2036.  
  2037.  
  2038.  
  2039.  
  2040.  
  2041.     LDA $035B
  2042.  
  2043.  
  2044.  
  2045.     STA $D400
  2046.  
  2047.  
  2048.  
  2049.     LDA $035E
  2050.  
  2051.  
  2052.  
  2053.     STA $D401
  2054.  
  2055.  
  2056.  
  2057.  
  2058.  
  2059.  
  2060.  
  2061.     LDA $035C
  2062.  
  2063.  
  2064.  
  2065.     STA $D407
  2066.  
  2067.  
  2068.  
  2069.     LDA $035F
  2070.  
  2071.  
  2072.  
  2073.     STA $D408
  2074.  
  2075.  
  2076.  
  2077.     LDA $035D
  2078.  
  2079.  
  2080.  
  2081.     STA $D40E
  2082.  
  2083.  
  2084.  
  2085.     LDA $0360
  2086.  
  2087.  
  2088.  
  2089.     STA $D40F
  2090.  
  2091.  
  2092.  
  2093.     LDA $0355
  2094.  
  2095.  
  2096.  
  2097.     ORA $0361
  2098.  
  2099.  
  2100.  
  2101.     STA $D404
  2102.  
  2103.  
  2104.  
  2105.     LDA $0356
  2106.  
  2107.  
  2108.  
  2109.     ORA $0362
  2110.  
  2111.  
  2112.  
  2113.     STA $D40B
  2114.  
  2115.  
  2116.  
  2117.  
  2118.  
  2119.  
  2120.  
  2121.     LDA $0357
  2122.  
  2123.  
  2124.  
  2125.     ORA $0363
  2126.  
  2127.  
  2128.  
  2129.     STA $D412
  2130.  
  2131.  
  2132.  
  2133.     RTS
  2134.  
  2135.  
  2136.  
  2137.  
  2138.  
  2139.  
  2140.  
  2141. ;===============================================================
  2142.  
  2143.  
  2144.  
  2145.  
  2146.  
  2147.  
  2148.  
  2149. ORG $CE00
  2150.  
  2151.  
  2152.  
  2153.  
  2154.  
  2155.  
  2156.  
  2157. DC.B $57,$ce,$06,$ce,$57,$ce,$03,$85; Music notes+delays ect..
  2158.  
  2159.  
  2160.  
  2161. DC.B $06,$03,$e2,$04,$06,$2c,$05,$03
  2162.  
  2163.  
  2164.  
  2165. DC.B $cf,$05,$03,$cf,$05,$06,$85,$06
  2166.  
  2167.  
  2168.  
  2169. DC.B $03,$85,$06,$03,$e2,$04,$06,$2c
  2170.  
  2171.  
  2172.  
  2173. DC.B $05,$03,$cf,$05,$03,$cf,$05,$06
  2174.  
  2175.  
  2176.  
  2177.  DC.B $85,$06,$03,$85,$06,$02,$85,$06
  2178.  
  2179.  
  2180.  
  2181. DC.B $01,$0a,$0d,$06,$2c,$05,$03,$cf
  2182.  
  2183.  
  2184.  
  2185. DC.B $05,$02,$e2,$04,$01,$cf,$05,$06
  2186.  
  2187.  
  2188.  
  2189. DC.B $85,$06,$03,$85,$06,$03,$e2,$04
  2190.  
  2191.  
  2192.  
  2193. DC.B $06,$2c,$05,$03,$cf,$05,$03,$e2
  2194.  
  2195.  
  2196.  
  2197. DC.B $04,$06,$42,$03,$00,$00,$00,$60
  2198.  
  2199.  
  2200.  
  2201. DC.B $00,$00,$03,$29,$34,$01,$8c,$3a
  2202.  
  2203.  
  2204.  
  2205. DC.B $01,$08,$3e,$01,$29,$34,$04,$a1
  2206.  
  2207.  
  2208.  
  2209. DC.B $45,$02,$08,$3e,$01,$8d,$3a,$01
  2210.  
  2211.  
  2212.  
  2213. DC.B $08,$3e,$04,$8d,$3a,$06,$29,$34
  2214.  
  2215.  
  2216.  
  2217.    DC.B $03,$29,$34,$01,$8d,$3a,$01,$08
  2218.  
  2219.  
  2220.  
  2221. DC.B $3e,$01,$29,$34,$04,$a1,$45,$02
  2222.  
  2223.  
  2224.  
  2225. DC.B $08,$3e,$01,$8c,$3a,$01,$08,$3e
  2226.  
  2227.  
  2228.  
  2229. DC.B $04,$a1,$45,$06,$27,$4e,$03,$27
  2230.  
  2231.  
  2232.  
  2233. DC.B $4e,$01,$cd,$52,$01,$27,$4e,$01
  2234.  
  2235.  
  2236.  
  2237.   DC.B $cd,$52,$04,$27,$4e,$02,$a1,$45
  2238.  
  2239.  
  2240.  
  2241. DC.B $01,$08,$3e,$01,$a1,$45,$04,$8d
  2242.  
  2243.  
  2244.  
  2245. DC.B $3a,$06,$29,$34,$03,$29,$34,$01
  2246.  
  2247.  
  2248.  
  2249. DC.B $8d,$3a,$01,$08,$3e,$01,$29,$34
  2250.  
  2251.  
  2252.  
  2253. DC.B $04,$a1,$45,$02,$08,$3e,$01,$8c
  2254.  
  2255.  
  2256.  
  2257.   DC.B $3a,$01,$08,$3e,$02,$8c,$3a,$02
  2258.  
  2259.  
  2260.  
  2261. DC.B $78,$2e,$06,$29,$34,$02,$0a,$0d
  2262.  
  2263.  
  2264.  
  2265. DC.B $02,$0a,$0d,$01,$a3,$0e,$01,$82
  2266.  
  2267.  
  2268.  
  2269. DC.B $0f,$04,$b3,$14,$02,$89,$13,$02
  2270.  
  2271.  
  2272.  
  2273. DC.B $68,$11,$02,$82,$0f,$02,$a3,$0e
  2274.  
  2275.  
  2276.  
  2277.   DC.B $03,$82,$0f,$01,$68,$11,$02,$a3
  2278.  
  2279.  
  2280.  
  2281. DC.B $0e,$02,$0a,$0d,$02,$0a,$0d,$01
  2282.  
  2283.  
  2284.  
  2285. DC.B $a3,$0e,$01,$82,$0f,$02,$b3,$14
  2286.  
  2287.  
  2288.  
  2289. DC.B $02,$89,$13,$02,$68,$11,$02,$82
  2290.  
  2291.  
  2292.  
  2293. DC.B $0f,$02,$a3,$0e,$02,$82,$0f,$06
  2294.  
  2295.  
  2296.  
  2297.   DC.B $c4,$09,$02,$0a,$0d,$02,$a3,$0e
  2298.  
  2299.  
  2300.  
  2301. DC.B $02,$82,$0f,$02,$b3,$14,$02,$89
  2302.  
  2303.  
  2304.  
  2305. DC.B $13,$02,$68,$11,$02,$82,$0f,$02
  2306.  
  2307.  
  2308.  
  2309. DC.B $a3,$0e,$02,$82,$0f,$06,$82,$0f
  2310.  
  2311.  
  2312.  
  2313. DC.B $02,$0a,$0d,$02,$0a,$0d,$01,$a3
  2314.  
  2315.  
  2316.  
  2317.   DC.B $0e,$01,$82,$0f,$02,$b3,$14,$02
  2318.  
  2319.  
  2320.  
  2321. DC.B $b3,$14,$02,$89,$13,$02,$68,$11
  2322.  
  2323.  
  2324.  
  2325. DC.B $02,$82,$0f,$01,$a3,$0e,$01,$82
  2326.  
  2327.  
  2328.  
  2329. DC.B $0f,$06,$0a,$0d,$06,$0a,$0d,$09
  2330.  
  2331.  
  2332.  
  2333. DC.B $82,$0f,$03,$a3,$0e,$06,$0a,$0d 
  2334.  
  2335.  
  2336.  
  2337.   DC.B $06,$13,$27,$09,$d0,$22,$03,$04
  2338.  
  2339.  
  2340.  
  2341. DC.B $1f,$06,$14,$1a,$03,$14,$1a,$02
  2342.  
  2343.  
  2344.  
  2345. DC.B $14,$1a,$01,$13,$27,$06,$66,$29
  2346.  
  2347.  
  2348.  
  2349. DC.B $03,$d0,$22,$02,$04,$1f,$01,$46
  2350.  
  2351.  
  2352.  
  2353. DC.B $1d,$06,$14,$1a,$03,$14,$1a,$03  
  2354.  
  2355.  
  2356.  
  2357.   DC.B $8a,$13,$06,$b3,$14,$04,$04,$1f
  2358.  
  2359.  
  2360.  
  2361. DC.B $05,$d0,$22,$03,$14,$1a,$00,$00
  2362.  
  2363.  
  2364.  
  2365. DC.B $00,$20,$ff,$ff,$ff,$ff,$ff,$ff
  2366.  
  2367.  
  2368.  
  2369. DC.B $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
  2370.  
  2371.  
  2372.  
  2373. DC.B $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
  2374.  
  2375.  
  2376.  
  2377.  DC.B $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
  2378.  
  2379.  
  2380.  
  2381.  
  2382.  
  2383.  
  2384.  
  2385. ;===============================================================
  2386.  
  2387.  
  2388.  
  2389. ;===============================================================
  2390.  
  2391.  
  2392.  
  2393.  
  2394.  
  2395.  
  2396.  
  2397.