no way to compare when less than two revisions

Differences

This shows you the differences between two versions of the page.

@@ Line 1: / Line 1: @@
+====== Cult Loader ======
+<code>
+Cult Loader Disassembly
+Fungus of Nostalgia 2006
+  78             SEI           ;disable irq's
+  A9 AF          LDA #$AF      ;initalize file length
+  85 AE          STA $AE
+A  A9 DD          LDA #$DD      ;($ae) = $ddaf
+C  85 AF          STA $AF
+E  A9 05          LDA #$05      ;motor on , i/o only
+  85 01          STA $01
+  A9 1F          LDA #$1F
+  8D 0D DC       STA $DC0D     ;cia irq's off
+  85 A4          STA $A4       ;loading complete flag
+  AD 0D DC       LDA $DC0D     ;clear flags
+C  A9 00          LDA #$00
+E  85 95          STA $95       ;sync flag
+  85 90          STA $90       ;st = 00
+  A9 A0          LDA #$A0      ;threshold is $01a0 hex
+  8D 06 DC       STA $DC06
+  A9 03          LDA #$03
+  8D 07 DC       STA $DC07
+C  A9 90          LDA #$90      ;enable irq on tape in
+E  8D 0D DC       STA $DC0D
+  A9 92          LDA #$92      ;irq vector $0392
+  8D FE FF       STA $FFFE
+  A9 03          LDA #$03
+  8D FF FF       STA $FFFF
+B  58             CLI           ;reenable irq's
+C  A5 A4          LDA $A4       ;wait for end of load
+E  D0 FC          BNE $038C
+  60             RTS           ;return to basic
+  00             BRK           ;unused ?
+  48             PHA           ;main irq
+  98             TYA
+  48             PHA
+  AD 07 DC       LDA $DC07     ;get threshold high
+  A0 11          LDY #$11      ;reset timer and irq
+A  8C 0F DC       STY $DC0F
+D  EE 20 D0       INC $D020     ;load effect
+A0  49 02          EOR #$02      ;adjust threshold (invert bits)
+A2  4A             LSR
+A3  4A             LSR           ;move bit 2 into carry
+A4  66 A9          ROR $A9       ;rol in the bit
+A6  90 0F          BCC $03B7     ;carry set? (sync or byte in)
+A8  EA             NOP
+A9  AD 0D DC       LDA $DC0D     ;clear flags
+AC  68             PLA
+AD  A8             TAY
+AE  68             PLA
+AF  40             RTI           ;exit irq
+B0  A9 7F          LDA #$7F      ;initialize input byte #%01111111
+B2  85 A9          STA $A9
+B4  D0 F3          BNE $03A9     ;jump always
+B6  EA             NOP
+B7  A5 A9          LDA $A9       ;get completed byte
+B9  A4 95          LDY $95       ;0 = were still syncing
+BB  D0 09          BNE $03C6     ;(Y has set the flags or not)
+BD  C9 80          CMP #$80
+BF  D0 E8          BNE $03A9     ;exit irq
+C1  85 95          STA $95
+C3  F0 EB          BEQ $03B0     ;branch always
+C5  00             BRK           ;unused
+C6  10 11          BPL $03D9     ;check negative
+C8  C9 AA          CMP #$AA      ;sync #%10101010
+CA  F0 06          BEQ $03D2     ;branch if synced
+CC  A9 00          LDA #$00      ;not sync, so reset flag to sync
+CE  85 95          STA $95
+D0  F0 D7          BEQ $03A9     ;exit irq
+D2  A9 01          LDA #$01      ;sync achived
+D4  85 95          STA $95       ;set flag for loading
+D6  D0 D8          BNE $03B0     ;branch always
+D8  EA             NOP           ;unused
+D9  A0 00          LDY #$00      ;load to mem
+DB  C6 01          DEC $01       ;all ram
+DD  91 AC          STA ($AC),Y   ;save byte
+DF  E6 01          INC $01       ;i/o back in
+E1  E6 AC          INC $AC       ;inc low of store
+E3  D0 02          BNE $03E7
+E5  E6 AD          INC $AD       ;inc high of store
+E7  38             SEC
+E8  A5 AC          LDA $AC       ;adj file size low
+EA  E5 AE          SBC $AE
+EC  A5 AD          LDA $AD
+EE  E5 AF          SBC $AF       ;adj filesize high
+F0  90 BE          BCC $03B0     ;reset input byte
+F2  A9 00          LDA #$00      ;set load complete
+F4  85 A4          STA $A4
+F6  F0 B8          BEQ $03B0     ;exit irq
+F8  8E 08 05       STX $0508     ;unused
+FB  12             ???
+</code>