home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 2002 January / STC_CD_01_2002.iso / APP / 5200BAS / HEADER.INC < prev   
Text File  |  2002-01-20  |  3KB  |  99 lines
  1. LOCATEL .EQU    $19
  2. LOCATEH .EQU    $1A     
  3. TEMPL   .EQU    $1B     
  4. TEMPH   .EQU    $1C     
  5. KEYSTAT .EQU    $1D
  6. SCREENL .EQU    $1E
  7. SCREENH .EQU    $1F
  8. KEYBUFF .EQU    $20 ;-$2F
  9. FROMH   .EQU    $31
  10. FROML   .EQU    $30
  11. TOH     .EQU    $33
  12. TOL     .EQU    $32
  13. COUNTH  .EQU    $35
  14. COUNTL  .EQU    $34
  15. COPYLEN .EQU    $36
  16. SKIP    .EQU    $37
  17. RND     .EQU    RANDOM
  18. ;---------------------------------------------------------------------
  19. ; MAIN
  20. ;---------------------------------------------------------------------  
  21. .ORG    $4000   
  22. ;        SEI
  23. ;        CLD
  24. ;        LDX     #$00
  25. ;        TXA
  26. ;CL1     STA     $00,X           ;Clear zero page
  27. ;        STA     $D400,X         ;Clear ANTIC
  28. ;        STA     $C000,X         ;Clear GTIA
  29. ;        STA     $E800,X         ;Clear POKEY
  30. ;        DEX
  31. ;        BNE     CL1
  32. ;------------- Clear RAM --------------
  33.         LDY     #$00            ;Clear Ram
  34.         LDA     #$03            ;Start at $0300
  35.         STA     $81
  36.         LDA     #$00
  37.         STA     $80
  38. CL2     LDA     #$00
  39.         STA     ($80),Y         ;Store data
  40.         INY                     ;Next byte
  41.         BNE     CL2             ;Branch if not done page
  42.         INC     $81             ;Next page
  43.         LDA     $81
  44.         CMP     #$40            ;Check if at end of RAM ($3FFF)
  45.         BNE     CL2             ;Branch if not
  46. ; DLI
  47. ;--------- Set up IRQ vectors ---------
  48. ;        LDA     #$03            ;point IRQ vector
  49. ;        STA     $0200           ;to BIOS routine
  50. ;        LDA     #$FC
  51. ;        STA     $0201
  52. ;        LDA     #$B8            ;point VBI vector
  53. ;        STA     $0202           ;to BIOS routine
  54. ;        LDA     #$FC
  55. ;        STA     $0203
  56. ;        LDA     #$B2            ;point Deferred VBI
  57. ;        STA     $0204           ;to BIOS routine
  58. ;        LDA     #$FC
  59. ;        STA     $0205
  60. ;--------------------------------------
  61.         LDA     #$00
  62.         STA     NMIEN           ;Disable DLI
  63.         LDA     #$00
  64.         STA     VDSLST          ;DLI low
  65.         LDA     #$BD
  66.         STA     VDSLST+1        ;DLI high
  67.         LDA     #$C0
  68.         STA     NMIEN           ;Enable DLI
  69.         LDA     #$C8
  70.         STA     SDLSTL          ;Display List low
  71.         LDA     #$BF
  72.         STA     SDLSTH          ;Display List high
  73.         LDA     #$00
  74.         STA     VKYBDF          ;Deferred Keyboard low
  75.         LDA     #$BC
  76.         STA     VKYBDF+1        ;Deferred Keyboard high
  77.         LDA     #$00
  78.         STA     KEYSTAT         ;Keypad buffer depth status
  79.         ;LDA     #$40
  80.         ;STA     IRQEN           ;Deferred Keyboard enable
  81.         ;LDA     #$F8
  82.         ;STA     CHBASE          ;Use ROM character set ($F800-$FBFF)
  83.         LDA     #$A0            ;Use custom character set at $A000 
  84.         STA     CHBASE
  85.         LDA     CHACTL
  86.         ORA     #$02            ;Enable character inverse
  87.         AND     #$FB            ;Orient characters right side up
  88.         STA     CHACTL
  89.         LDA     #$04            ;Enable POT read
  90.         STA     CONSOL
  91. ;        LDA     #$03
  92. ;        STA     GRACTL          ;Graphics control
  93. ;        LDA     #$3E
  94. ;        STA     DMACTL          ;DMA control
  95.         LDA     #$10
  96.         STA     LOCATEH
  97.         LDA     #$00
  98.         STA     LOCATEL
  99.