home *** CD-ROM | disk | FTP | other *** search
/ Der Mediaplex Sampler - Die 6 von Plex / 6_v_plex.zip / 6_v_plex / DISK3 / DFUE_100 / FAMITXT.ZIP / FAIRLIGH.TXT < prev    next >
Text File  |  1994-02-07  |  21KB  |  759 lines
  1.                         This fine text file came from...
  2.  
  3.               /\____     __/\____           /\ _______/\__/\________
  4.              / __  //\   \_\/___ \  /\      \// _____/ /_/ /__  _  /
  5.          ___/ /__\//  \  /\  __/ / / / ___/\_/ /_   / /_/ /  / / \/ 
  6.          \_/ /__/ / /\ \/ / / __/ / /  \_/ // /_ \ / /_  /  / /     
  7.          _/ /    / /  \ \/__\ \__/ /_/\ / // /_/ / \/ / /  / /      
  8.          \_/[SP] \/   /\_____\ \_\____/ \/ \__  /    / /   \/       
  9.                       \/      \/            _/ /     \/             
  10.                                             \_/                
  11.                                                                S.H.Q
  12.                           Far Out Multi Node System
  13.                                               
  14.         Node1 +46-46-133489   Node2 +46-46-133482   Node3 +46-46-133424
  15.                                 
  16.     If you want to read this then download it!  No free loaders here!!
  17.                                     
  18. ╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖╖
  19. -------->      a SMaSHiNG 100% SUPER NiNTENDo oNLY SYSTEM        <----------
  20.    ___/\____/\____    /\______    /\       /\_____/\__________  /\  /\
  21.    \____   / __   \  /   __   \  /  \ /\  /     _    ______   \/  \/  \
  22.     / _/ _/  _/\/\ \/   / /\   \/   // / /   /\//   /   / /\   \ _ \   \
  23.    /  \  \_     \ \    /  \/       /_\ \/   /  /   /   /  \/   /  \    /
  24.    \  /\  /______\ \  /\______/\___  /\____/   \  /\  /\__________/\  /
  25.     \/  \/          \/             \/           \/  \/              \/
  26. ---------> +46-431-51557 ----- SYSoP: SY-KLoNE - CoSYSoP: HiTMaN <-----------
  27. ▓
  28.  
  29. ; Corsair presents an example of how to drive the hardware - basically I used this intro
  30.  
  31. ; cos everyone knows how it looks and thus it seemed a good bit of code to do..
  32.  
  33. ; the comments outside the hardware stuff are a bit sparse - i'm not teaching you how
  34.  
  35. ; Fairlight write code , just their use of hardware!!
  36.  
  37. ;
  38.  
  39. ; questions as usual leave on GRAVEYARD, Treasure Island or Oasis..
  40.  
  41. ;
  42.  
  43.  
  44.  
  45.  
  46.  
  47. Start Of Intro From Fairlight
  48.  
  49. ------------------------------------------------
  50.  
  51. 00E000 78                     SEI            ; disable irq ints  
  52.  
  53. 00E001 A9 8F                  LDA #$8F            ;
  54.  
  55. 00E003 8D 00 21               STA Screen_Fader        ; turn screen on at full brightness
  56.  
  57. 00E006 9C 00 42               STZ $4200            ;
  58.  
  59. 00E009 9C 0C 42               STZ Start_DMA_Hi        ; disable all 8 DMA channels
  60.  
  61. 00E00C 9C 0B 42               STZ Start_DMA_Lo        ;
  62.  
  63. 00E00F 18                     CLC             ;
  64.  
  65. 00E010 FB                     XCE             ; place in native (16 bit) mode
  66.  
  67. 00E011 C2 30                  REP #$30            ; set x,y,a all to 16 bit
  68.  
  69. 00E013 A9 00 00               LDA #$0000        ; 
  70.  
  71. 00E016 5B                     TCD             ; set direct register to bank zero
  72.  
  73. 00E017 64 07                  STZ $07            ; clear memory loc. 7
  74.  
  75. 00E019 A9 20 00               LDA #$0020        ;
  76.  
  77. 00E01C 85 0B                  STA $0B            ; set $0b.w = $0020
  78.  
  79. 00E01E E2 20                  SEP #$20            ; set accum. to 8 bit
  80.  
  81. 00E020 A9 80                  LDA #$80            ;
  82.  
  83. 00E022 8D 15 21               STA Video_Port_Control    ; initialise Video Port Controller
  84.  
  85. 00E025 A2 00 10               LDX #$1000        ;
  86.  
  87. 00E028 8E 16 21               STX Video_Port_Address    ; Point Vram Pointer To $1000
  88.  
  89.  
  90.  
  91. 00E02B A9 5B                  LDA #$5B                ;
  92.  
  93. 00E02D 85 0D                  STA $0D                 ; Copies $5bx8 bytes of char
  94.  
  95. 00E02F A2 00 00               LDX #$0000              ; data into Video Ram via the port
  96.  
  97. outer_loop:                        ; thus giving 2
  98.  
  99. 00E032 A0 08 00               LDY #$0008              ;
  100.  
  101. inner_loop:                        ;
  102.  
  103. 00E035 BD D3 E2               LDA CHAR_SET,X          ; .: Character set for intro
  104.  
  105. 00E038 8D 18 21               STA Video_Port_Lo        ;    and FLT logo.
  106.  
  107. 00E03B 9C 19 21               STZ Video_Port_Hi        ;
  108.  
  109. 00E03E E8                     INX                     ;
  110.  
  111. 00E03F 88                     DEY                     ;
  112.  
  113. 00E040 D0 F3                  BNE inner_loop           ;
  114.  
  115. 00E042 C6 0D                  DEC $0D                 ;
  116.  
  117. 00E044 D0 EC                  BNE outer_loop           ;
  118.  
  119.  
  120.  
  121. 00E046 9C 05 21               STZ $2105            ; clear Video Reg. unknown
  122.  
  123. 00E049 A9 04                  LDA #$04                ; set Playfield 0 To $400 and 32x32 chars
  124.  
  125. 00E04B 8D 07 21               STA Playfield_0_Addr    ; 
  126.  
  127. 00E04E A9 08                  LDA #$08                ; set Playfield 1 to $800 and 32x32 chars
  128.  
  129. 00E050 8D 08 21               STA Playfield_1_Addr    ;
  130.  
  131. 00E053 A9 11                  LDA #$11                ; Set Playfield 0+1 Tile Addr To $100
  132.  
  133. 00E055 8D 0B 21               STA Tile01_Vram_Addr    ;
  134.  
  135.  
  136.  
  137. 00E058 A2 07 00               LDX #$0007              ;
  138.  
  139. 00E05B 9E 0D 21               STZ Plane_0_Scroll_X,X    ; Clear All The Scroll Pointers
  140.  
  141. 00E05E 9E 0D 21               STZ Plane_0_Scroll_X,X     ;
  142.  
  143. 00E061 CA                     DEX             ;
  144.  
  145. 00E062 10 F7                  BPL $00E05B        ;
  146.  
  147.  
  148.  
  149. 00E064 A2 07 00               LDX #$0007        ;
  150.  
  151. 00E067 9E 23 21               STZ $2123,X        ; Clear Video Registers $2123-$212a
  152.  
  153. 00E06A CA                     DEX             ;
  154.  
  155. 00E06B 10 FA                  BPL $00E067        ;
  156.  
  157.  
  158.  
  159. 00E06D A9 03                  LDA #$03            ;
  160.  
  161. 00E06F 8D 2C 21               STA Playfield_Enable    ; Enable playfields 0 & 1
  162.  
  163. 00E072 A2 04 00               LDX #$0004        ;
  164.  
  165. 00E075 9E 2D 21               STZ $212D,X        ; Clear Video Registers $212d-$2130
  166.  
  167. 00E078 CA                     DEX             ;
  168.  
  169. 00E079 10 FA                  BPL $00E075        ;
  170.  
  171.  
  172.  
  173. 00E07B 9C 33 21               STZ Interlace_Flags    ; Disable Interlace Mode
  174.  
  175. 00E07E A9 04                  LDA #$04            ;
  176.  
  177. 00E080 9C 16 21               STZ Video_Port_Address    ; Set Video Port Address to $400
  178.  
  179. 00E083 8D 17 21               STA Video_Port_Address+1    ;
  180.  
  181. 00E086 A9 80                  LDA #$80            ;
  182.  
  183. 00E088 8D 15 21               STA Video_Port_Controller    ; Initialise Video Controller
  184.  
  185.  
  186.  
  187. 00E08B A2 00 08               LDX #$0800        ;
  188.  
  189. 00E08E 9C 19 21               STZ Video_Port_Data+1    ; Clear $800 bytes of Vram from $400 upwards
  190.  
  191. 00E091 CA                     DEX                     ;
  192.  
  193. 00E092 D0 FA                  BNE $00E08E        ;
  194.  
  195.  
  196.  
  197. 00E094 A2 AB E5               LDX #$E5AB              ; Display Text From $e5ab on..
  198.  
  199. 00E097 20 3E E2               JSR DO_TEXT             ; 
  200.  
  201. 00E09A A9 08                  LDA #$08            ;
  202.  
  203. 00E09C 9C 16 21               STZ Video_Port_Address    ; Set Video Port Address to $800 
  204.  
  205. 00E09F 8D 17 21               STA Video_Port_Address+1    ; 
  206.  
  207. 00E0A2 9C 15 21               STZ Video_Port_Controller    ; Clear Video Port Controller
  208.  
  209.  
  210.  
  211. 00E0A5 A2 00 00               LDX #$0000        ;
  212.  
  213. 00E0A8 BD 91 E6               LDA $E691,X             ; Copy $a0 bytes down into Vram location
  214.  
  215. 00E0AB 8D 18 21               STA Video_Port_Data    ; $800 onwards
  216.  
  217. 00E0AE E8                     INX             ; 
  218.  
  219. 00E0AF E0 A0 00               CPX #$00A0        ;
  220.  
  221. 00E0B2 D0 F4              BNE $E0A8            ;
  222.  
  223.  
  224.  
  225. 00E0B4 A9 20              LDA #$20            ;
  226.  
  227. 00E0B6 8D 18 21               STA Video_Port_Data    ; Fill One Screen Worth of VRAM with 
  228.  
  229. 00E0B9 E8                     INX             ; spaces
  230.  
  231. 00E0BA E0 00 04               CPX #$400            ;
  232.  
  233. 00E0BD D0 F7              BNE $E0B6            ;
  234.  
  235.  
  236.  
  237. 00E0BF A9 A8              LDA #$A8            ;
  238.  
  239. 00E0C1 8D 00 0C               STA $0C00            ; $c00 = $a8
  240.  
  241. 00E0C4 8D 00 0D               STA $0D00            ; $d00 = $a8
  242.  
  243.  
  244.  
  245. 00E0C7 A9 21                  LDA #$21            ;
  246.  
  247. 00E0C9 A2 00 00               LDX #$0000        ; set $c01-$c028 = $21
  248.  
  249. 00E0CC 9D 01 0C               STA $0C01,X        ;
  250.  
  251. 00E0CF E8                     INX             ; ie set up the color pointer table
  252.  
  253. 00E0D0 E0 28 00               CPX #$0028        ;
  254.  
  255. 00E0D3 D0 F7              BNE $E0CC            ;
  256.  
  257.  
  258.  
  259. 00E0D5 A9 F8              LDA #$F8            ;
  260.  
  261. 00E0D6 F8                     SED             ; set decimal flag on
  262.  
  263. 00E0D7 9D 01 0C               STA $0C01,X        ;
  264.  
  265. 00E0DA A9 01                  LDA #$01            ; set more low memory
  266.  
  267. 00E0DC 9D 02 0C               STA $0C02,X        ;
  268.  
  269. 00E0DF E8                     INX             ;
  270.  
  271. 00E0E0 E0 A0 00               CPX #$00A0        ; and further color palette set-up
  272.  
  273. 00E0E3 D0 F7              BNE $E0DC            ;
  274.  
  275.  
  276.  
  277. 00E0E5 9e 02 0C              STZ $C02,X        ;
  278.  
  279. 00E0E8 A9 0B                  LDA #$0B            ;
  280.  
  281. 00E0EA A2 00 00               LDX #$0000        ; set even more low memory 
  282.  
  283. 00E0ED 9D 01 0D               STA $0D01,X        ; - seems to set it to $b and then clear it??
  284.  
  285. 00E0F0 E8                     INX             ;
  286.  
  287. 00E0F1 9E 01 0D               STZ $0D01,X        ;
  288.  
  289. 00E0F4 1A                     INC A            ; pallete data set up
  290.  
  291. 00E0F5 E8                     INX             ;
  292.  
  293. 00E0F6 E0 28 00               CPX #$0028        ;
  294.  
  295. 00E0F9 D0 F2              BNE $E0ED            ;
  296.  
  297.  
  298.  
  299. 00E0FB 9D 01 0D              STA $0D01,X               ;   
  300.  
  301. 00E0FE E8                     INX             ;
  302.  
  303. 00E0FF 9E 01 0D               STZ $0D01,X        ;
  304.  
  305. 00E102 3A                     DEC A            ; and more 'irelevant' low mem stuff
  306.  
  307. 00E103 E8                     INX             ;
  308.  
  309. 00E104 E0 50                  CPX #$0050        ; more palette data set-up
  310.  
  311. 00E107 D0 F2                  BNE $E0FB            ;
  312.  
  313.  
  314.  
  315. 00E109 A9 F8              LDA #$F8            ;
  316.  
  317. 00E10B 9D 01 0D               STA $0D01,X        ;
  318.  
  319. 00E10E A9 FF                  LDA #$FF            ; and more 'irelevant' low mem stuff
  320.  
  321. 00E110 9D 02 0D               STA $0D02,X        ;
  322.  
  323. 00E113 E8                     INX             ; more palette data set-up
  324.  
  325. 00E114 E0 40 01               CPX #$0140        ;
  326.  
  327. 00E117 D0 F7              BNE $E109            ;
  328.  
  329. 00E119 9E 02 0D              STZ $D02,X        ;
  330.  
  331.  
  332.  
  333. 00E11C 9C 0C 42               STZ DMA_Enable        ; Disable all DMA channels
  334.  
  335. 00E11F 9C 10 43               STZ DMA_Control_1        ;
  336.  
  337. 00E122 A9 02                  LDA #$02               ; set up control regs for channel 1+2
  338.  
  339. 00E124 8D 20 43               STA DMA_Control_2        ;
  340.  
  341. 00E127 A9 21                  LDA #$21               ; Select pallete pointer + color for
  342.  
  343. 00E129 8D 11 43               STA DMA_Destination_1    ; DMA dump destination
  344.  
  345. 00E12C 1A                     INC A                  ;
  346.  
  347. 00E12D 8D 21 43               STA DMA_Destination_2    ;
  348.  
  349. 00E130 A2 00 0C               LDX #$0C00             ;
  350.  
  351. 00E133 8E 12 43               STX DMA_Source_Addr_1    ; Palette numbers from $0c00 
  352.  
  353. 00E136 A2 00 0D               LDX #$0D00             ;
  354.  
  355. 00E139 8E 22 43               STX DMA_Source_Addr_2    ; Palette data from $0d00
  356.  
  357. 00E13C 9C 14 43               STZ DMA_Source_Bank_1    ;
  358.  
  359. 00E13F 9C 24 43               STZ DMA_Source_Bank_2    ;
  360.  
  361. 00E142 A9 06                  LDA #$06            ; turn on DMA channels 1+2
  362.  
  363. 00E144 8D 0C 42               STA DMA_Enable        ;
  364.  
  365.  
  366.  
  367. 00E147 A9 0F                  LDA #$0F            ; turn off screen
  368.  
  369. 00E149 8D 00 21               STA Screen_Fader        ;
  370.  
  371. 00E14C A9 01                  LDA #$01            ;
  372.  
  373. 00E14E 8D 00 42               STA $4200            ; errmm
  374.  
  375. 00E151 20 C1 E1               JSR Pad_Poll_Hi        ; Wait for poll hi
  376.  
  377. 00E154 9C 21 21               STZ Palette_Color_Pointer ; 
  378.  
  379. 00E157 9C 22 21               STZ Palette_Color_Data    ; set background to black
  380.  
  381. 00E15A 9C 22 21               STZ Palette_Color_Data    ;
  382.  
  383. 00E15D 4C 97 E1               JMP $00E197
  384.  
  385. ------------------------------------------------
  386.  
  387. 00E160 20 C1 E1               JSR Pad_Poll_Hi        ; wait for poll hi
  388.  
  389. 00E163 20 13 E2               JSR PROC_B
  390.  
  391.  
  392.  
  393. 00E166 AD 12 42               LDA Pad_Poll        ; Wait until a button has been
  394.  
  395. 00E169 4A                     LSR A            ; pressed
  396.  
  397. 00E16A B0 FA                  BCS $00E166        ;
  398.  
  399.  
  400.  
  401. 00E16C 20 CD E1               JSR PROC_A        ;
  402.  
  403. 00E16F A9 F0                  LDA #$F0            ;
  404.  
  405. 00E171 25 0A                  AND $0A            ;
  406.  
  407. 00E173 F0 46                  BEQ $00E1BB        ;
  408.  
  409. 00E175 5C 00 80 00            JMP GAME            ; and run the game..
  410.  
  411. ------------------------------------------------
  412.  
  413. 00E179 A9 01                  LDA #$01            ;
  414.  
  415. 00E17B A2 01 00               LDX #$0001        ;
  416.  
  417. 00E17E 20 C1 E1               JSR Pad_Poll_Hi        ;
  418.  
  419. 00E181 8D 06 21               STA Pixelation        ;
  420.  
  421. 00E184 20 C7 E1               JSR Pad_Poll_Lo        ;
  422.  
  423. 00E187 CA                     DEX             ;
  424.  
  425. 00E188 10 F4                  BPL $00E17E        ;
  426.  
  427. 00E18A 18                     CLC             ;
  428.  
  429. 00E18B 69 10                  ADC #$10            ;
  430.  
  431. 00E18D C9 01                  CMP #$01            ;
  432.  
  433. 00E18F D0 EA                  BNE $00E17B        ;
  434.  
  435.  
  436.  
  437. 00E191 20 40 E2               JSR $00E240        ;
  438.  
  439. 00E194 20 C7 E1               JSR Pad_Poll_Lo        ;
  440.  
  441.  
  442.  
  443. 00E197 20 C1 E1               JSR Pad_Poll_Hi        ; wait for b7 pad_poll to go hi.
  444.  
  445. 00E19A 20 13 E2               JSR PROC_B        ;
  446.  
  447.  
  448.  
  449. 00E19D A9 F1                  LDA #$F1               ;
  450.  
  451. 00E19F A2 01 00               LDX #$0001        ; 'Reverse Pixelate' the text into vision
  452.  
  453. 00E1A2 20 C1 E1               JSR Pad_Poll_Hi       ;
  454.  
  455. 00E1A5 8D 06 21               STA Pixelation        ;
  456.  
  457. 00E1A8 20 C7 E1               JSR Pad_Poll_Lo        ;
  458.  
  459. 00E1AB CA                     DEX                    ;
  460.  
  461. 00E1AC 10 F4                  BPL $00E1A2            ;
  462.  
  463. 00E1AE 38                     SEC                    ;
  464.  
  465. 00E1AF E9 10                  SBC #$10               ;
  466.  
  467. 00E1B1 C9 F1                  CMP #$F1               ;
  468.  
  469. 00E1B3 D0 EA                  BNE $00E19F            ;
  470.  
  471.  
  472.  
  473. 00E1B5 20 C1 E1               JSR Pad_Poll_Hi        ;
  474.  
  475. 00E1B8 9C 06 21               STZ Pixelation         ; set pixels to normal.
  476.  
  477. 00E1BB 20 C7 E1               JSR Pad_Poll_Lo        ;
  478.  
  479. 00E1BE 4C 60 E1               JMP $00E160        ; and jump into the main loop
  480.  
  481. ------------------------------------------------
  482.  
  483. 00E1C1 2C 12 42 Pad_Poll_Hi   BIT Pad_Poll        ; wait until bit 7 of pad_ready goes hi
  484.  
  485. 00E1C4 10 FB                  BPL Pad_Poll_Hi        ;
  486.  
  487. 00E1C6 60                     RTS            ;
  488.  
  489. ------------------------------------------------
  490.  
  491. 00E1C7 2C 12 42 Pad_Poll_Lo   BIT Pad_Poll        ;
  492.  
  493. 00E1CA 30 FB                  BMI Pad_Poll_Lo           ; wait until bit 7 of pad_ready goes lo
  494.  
  495. 00E1CC 60                     RTS             ;
  496.  
  497. ------------------------------------------------
  498.  
  499. 00E1CD C2 20    PROC_A        REP #$20            ; 16 bit accum.
  500.  
  501. 00E1CF A2 00 00               LDX #$0000        ;
  502.  
  503.  
  504.  
  505. 00E1D2 A9 FF 7F               LDA #$7FFF        ;
  506.  
  507. 00E1D5 E4 0B                  CPX $0B            ;
  508.  
  509. 00E1D7 F0 07                  BEQ $00E1E0        ; set up table of $7fff in memory
  510.  
  511. 00E1D9 9D B0 0D               STA $0DB0,X        ;
  512.  
  513. 00E1DC E8                     INX             ;
  514.  
  515. 00E1DD E8                     INX             ;
  516.  
  517. 00E1DE 80 F5                  BRA $00E1D5        ;
  518.  
  519. 00E1E0 A0 00 00               LDY #$0000        ; and then follow the table with 5 zeros
  520.  
  521. 00E1E3 B9 C3 E2               LDA $E2C3,Y           ;
  522.  
  523.  
  524.  
  525. 00E1E6 9D B0 0D               STA $0DB0,X        ;
  526.  
  527. 00E1E9 C8                     INY             ;
  528.  
  529. 00E1EA C8                     INY             ;
  530.  
  531. 00E1EB E8                     INX             ;
  532.  
  533. 00E1EC E8                     INX             ;
  534.  
  535. 00E1ED C0 10 00               CPY #$0010        ;
  536.  
  537. 00E1F0 D0 F1                  BNE $00E1E3        ;
  538.  
  539.  
  540.  
  541. 00E1F2 A9 FF 7F               LDA #$7FFF        ; and if x<>$90 then add more $7fff's
  542.  
  543. 00E1F5 E0 90 00               CPX #$0090        ;
  544.  
  545. 00E1F8 F0 07                  BEQ $00E201        ;
  546.  
  547. 00E1FA 9D B0 0D               STA $0DB0,X        ;
  548.  
  549. 00E1FD E8                     INX             ;
  550.  
  551. 00E1FE E8                     INX             ;
  552.  
  553. 00E1FF 80 F4                  BRA $00E1F5        ;
  554.  
  555. ------------------------------------------------
  556.  
  557. 00E201 A6 07                  LDX $07            ; preserve old pad data
  558.  
  559. 00E203 AD 18 42               LDA Pad_0_Data_Lo        ; get new data
  560.  
  561. 00E206 85 07                  STA $07            ; and store it as the old
  562.  
  563. 00E208 8A                     TXA             ; wop it in accum.
  564.  
  565. 00E209 49 FF FF               EOR #$FFFF        ; not the old data
  566.  
  567. 00E20C 25 07                  AND $07            ; and then use as a mask on new data
  568.  
  569. 00E20E 85 09                  STA $09            ; and then store in 9
  570.  
  571. 00E210 E2 20                  SEP #$20            ; and back to 8 bit accum..
  572.  
  573. 00E212 60                     RTS             ; and back..
  574.  
  575. ------------------------------------------------
  576.  
  577. 00E213 9C 15 21 PROC_B        STZ Video_Port_Control    ; Reset Video Port
  578.  
  579. 00E216 A9 04                  LDA #$04              ;
  580.  
  581. 00E218 9C 16 21               STZ Video_Port_Addr    ; set video ram pointer to $400
  582.  
  583. 00E21B 8D 17 21               STA Video_Port_Addr_Hi    ;
  584.  
  585. 00E21E 9C 19 21               STZ Video_Port_Data_Hi    ;
  586.  
  587. 00E221 9C 00 43               STZ DMA_Control_0        ; reset dma controller #0
  588.  
  589. 00E224 A9 18                  LDA #$18            ;
  590.  
  591. 00E226 8D 01 43               STA DMA_Destination_0    ; point dma #0 to vram
  592.  
  593. 00E229 A2 00 04               LDX #$0400        ;
  594.  
  595. 00E22C 8E 02 43               STX DMA_Source_Addr_0    ; copy from address $400 to vram
  596.  
  597. 00E22F 9C 04 43               STZ DMA_Source_Bank_0    ;
  598.  
  599. 00E232 A2 00 04               LDX #$0400        ; copy $400 bytes into vram
  600.  
  601. 00E235 8E 05 43               STX DMA_Size_0        ;
  602.  
  603. 00E238 A9 01                  LDA #$01            ; and enable dma #0
  604.  
  605. 00E23A 8D 0B 42               STA DMA_Enable        ;
  606.  
  607. 00E23D 60                     RTS 
  608.  
  609. ------------------------------------------------
  610.  
  611. 00E23E 86 00    DO_TEXT       STX $00                  ; store text location
  612.  
  613. 00E240 A2 00 04               LDX #$0400               ; set pointer to text
  614.  
  615. 00E243 86 02                  STX $02                  ; store text location again
  616.  
  617. 00E245 64 06                  STZ $06            ; clear 6
  618.  
  619. 00E247 A2 00 00               LDX #$0000        ; 
  620.  
  621. 00E24A B2 00                  LDA ($00)            ; get next char
  622.  
  623. 00E24C 30 55                  BMI $00E2A3              ; if bit 7 set then off we go..
  624.  
  625. 00E24E C9 20                  CMP #$20            ; is it a space
  626.  
  627. 00E250 90 11                  BCC $00E263              ; branch if less than a space..
  628.  
  629. 00E252 92 02                  STA ($02)                ; store char
  630.  
  631. 00E254 E8                     INX             ;
  632.  
  633. 00E255 E6 00                  INC $00                  ; next char
  634.  
  635. 00E257 D0 02                  BNE $00E25B        ;
  636.  
  637. 00E259 E6 01                  INC $01            ;
  638.  
  639. 00E25B E6 02                  INC $02                  ; next dest spot
  640.  
  641. 00E25D D0 EB                  BNE $00E24A        ;
  642.  
  643. 00E25F E6 03                  INC $03            ; 
  644.  
  645. 00E261 80 E7                  BRA $00E24A        ;
  646.  
  647. ------------------------------------------------
  648.  
  649. 00E263 E6 00                  INC $00                  ; increment counter 
  650.  
  651. 00E265 D0 02                  BNE $00E269              ; if not end of 255 boundary skip
  652.  
  653. 00E267 E6 01                  INC $01            ; increment hi byte of pointer
  654.  
  655. 00E269 48                     PHA             ;
  656.  
  657. 00E26A A9 20                  LDA #$20            ;
  658.  
  659. 00E26C E0 20                  CPX #$0020        ; 
  660.  
  661. 00E26F F0 0B                  BEQ $E27C            ;
  662.  
  663. 00E271 92 02                  STA ($02)            ; basically these routines strip
  664.  
  665. 00E273 E8                     INX             ; chars unnecessary and prepare the
  666.  
  667. 00E274 E6 02                  INC $02            ; text for output..
  668.  
  669. 00E276 D0 F4                  BNE $00E26C        ;
  670.  
  671. 00E278 E6 03                  INC $03            ; these lines increment the 16 bit pointer
  672.  
  673. 00E27A 80 F0                  BRA $00E26C        ; as 2 8 bit pointers
  674.  
  675. ------------------------------------------------
  676.  
  677. 00E27C 68                     PLA             ;
  678.  
  679. 00E27D A2 00 00               LDX #$0000        ;
  680.  
  681. 00E280 E6 06                  INC $06            ;
  682.  
  683. 00E282 C5 06                  CMP $06            ;
  684.  
  685. 00E284 D0 E3                  BNE $00E269        ;
  686.  
  687. 00E286 B2 00                  LDA ($00)            ;
  688.  
  689. 00E288 E6 00                  INC $00            ;
  690.  
  691. 00E28A D0 02                  BNE $00E28E        ;
  692.  
  693. 00E28C E6 01                  INC $01            ;
  694.  
  695. 00E28E 85 0D                  STA $0D            ;
  696.  
  697. 00E290 64 0E                  STZ $0E            ;
  698.  
  699. 00E292 A9 20                  LDA #$20            ;
  700.  
  701. 00E294 E4 0D                  CPX $0D            ;
  702.  
  703. 00E296 F0 B2                  BEQ $00E24A        ;
  704.  
  705. 00E298 92 02                  STA ($02)            ;
  706.  
  707. 00E29A E8                     INX             ;
  708.  
  709. 00E29B E6 02                  INC $02            ;
  710.  
  711. 00E29D D0 02                  BNE $00E2A1        ; and again increment pointer as 2 8 bit
  712.  
  713. 00E29F E6 03                  INC $03            ;
  714.  
  715. 00E2A1 80 F1                  BRA $00E294        ;
  716.  
  717. ------------------------------------------------
  718.  
  719. 00E2A3 A5 06                  LDA $06            ;
  720.  
  721. 00E2A5 C9 20                  CMP #$20            ;
  722.  
  723. 00E2A7 F0 19                  BEQ $00E2C2        ;
  724.  
  725. 00E2A9 A9 20                  LDA #$20            ;
  726.  
  727. 00E2AB E0 20                  CPX #$0020        ;
  728.  
  729. 00E2AE F0 0B                  BEQ $E2BB            ;
  730.  
  731. 00E2B0 92 02                  STA ($02)            ;
  732.  
  733. 00E2B2 E8                     INX             ;
  734.  
  735. 00E2B3 E6 02                  INC $02            ;
  736.  
  737. 00E2B5 D0 F4                  BNE $00E2AB        ;
  738.  
  739. 00E2B7 E6 03                  INC $03            ;
  740.  
  741. 00E2B9 80 F0                  BRA $00E2AB        ;
  742.  
  743. ------------------------------------------------
  744.  
  745. 00E2BB A2 00 00               LDX #$0000        ;
  746.  
  747. 00E2BE E6 06                  INC $06            ;
  748.  
  749. 00E2C0 80 E1                  BRA $00E2A3        ;
  750.  
  751. 00E2C2 60                     RTS             ;
  752.  
  753. ------------------------------------------------
  754.  
  755.  
  756.  
  757. The End..
  758.  
  759.