Advertisement
Xandaros

Default bootloader

May 4th, 2012
159
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 38 FB A5 00 EF 00 C2 30 A9 00 03 EF 01 EF 02 64
  2. 02 A9 00 05 85 04 A5 02 8D 80 03 E2 20 A9 04 8D
  3. 82 03 CB CD 82 03 F0 FA AD 82 03 F0 09 EF 82 E2
  4. 30 18 FB 4C 00 05 C2 20 A2 00 03 5C A0 40 00 42
  5. 92 04 E6 04 E6 04 88 D0 F6 E6 02 4C 16 04
  6.  
  7.     SEC
  8.     XCE     ; Set emulation flag
  9.  
  10.     LDA 0
  11.     MMU #0      ; Map disk drive
  12.  
  13.     REP #$30
  14.     !al     ; 16-bit mode
  15.  
  16.     LDA #$300
  17.     MMU #1      ; Set redbus window to $300
  18.     MMU #2      ; Enable redbus
  19.  
  20.     STZ 2       ; Set 2 to zero
  21.  
  22.     LDA #$500
  23.     STA 4       ; Put $500 in 4
  24.  
  25.     LDA 2
  26.     STA $380    ; Set sector number to (2)
  27.  
  28.     SEP #$20
  29.     !as     ; 8-bit mode for acc
  30.  
  31.     LDA #4
  32.     STA $382    ; Read disk sector
  33.  
  34. -   WAI     ; Wait a tick
  35.  
  36.     CMP $382    ;                   Why compare it to A instead of #0?
  37.     BEQ -       ; not ready yet, jump back
  38.  
  39.     LDA $382
  40.     BEQ +       ;                   This makes absolutely no sense
  41.  
  42.     MMU $82     ; Disable Redbus
  43.  
  44.     SEP #$30
  45.     !al     ; 8-bit for all
  46.  
  47.     CLC
  48.     XCE     ; Clear emulation flag
  49.  
  50.     JMP $500    ; Execute loaded code
  51.  
  52. +   REP #$20
  53.     !al
  54.  
  55.     LDX #$300
  56.     TXI     ; WTF?
  57.  
  58.     LDY #$40
  59.     NXA
  60.  
  61.     STA (4)
  62.     INC 4
  63. -   INC 4
  64.  
  65.     DEY
  66.  
  67.     BNE -
  68.  
  69.     INC 2
  70.  
  71.     JMP $416
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement