home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / ghostngoblinsboot.s < prev    next >
Encoding:
Text File  |  1996-03-09  |  2.4 KB  |  166 lines
  1. org    $70000
  2. load    $70000
  3. j:    move.w    #$7fff,$dff09a
  4.     bsr    LOAD
  5.     move.w    #$e02c,$dff09a
  6.     rts
  7.  
  8.  
  9. DISKbuffer:    dc.l    $75000
  10. STtrk:    dc.w    0
  11. ONtrk:    dc.w    0
  12. RETRY:    dc.w    0
  13. DIREC:    dc.w    0
  14.  
  15. LOAD:    lea    $dff000,a0
  16.     LEA    $BFE001,A1
  17.     LEA    $BFD100,A2
  18.     BCLR    #7,$0E00(A2)
  19.     CLR.B    $0900(A2)
  20.     CLR.B    $0800(A2)
  21.     CLR.B    $0700(A2)
  22.     ST     (A2)
  23.     BCLR    #7,(A2)
  24.     BCLR    #3,(A2)
  25.     BSR    C164
  26.     LEA    $00c80000,A5
  27.     MOVE.L    #$00018300,D5
  28.     MOVE.L    D5,D7
  29.     ADD.L    #$000018A7,D7
  30.     DIVU    #$18A8,D7
  31.     SUBQ.W    #1,D7
  32.     MOVE.W    #40,STtrk
  33.     BSR    C202
  34.     rts
  35.  
  36. LOAD1:    LEA    $00C80000,A5
  37.     MOVE.L    #$00018A80,D5
  38.     MOVE.L    D5,D7
  39.     ADD.L    #$000018A7,D7
  40.     DIVU    #$18A8,D7
  41.     SUBQ.W    #1,D7
  42.     MOVE.W    #$0011,STtrk
  43.     BSR    C202
  44.     ST     (A2)
  45.     BCLR    #3,(A2)
  46.     ST     (A2)
  47.     rts
  48.  
  49.  
  50. C164:    BTST    #4,(A1)
  51.     BEQ.S    C174
  52.     BSET    #1,(A2)
  53.     BSR    C1BC
  54.     BRA.S    C164
  55.  
  56. C174:    CLR.W    ONtrk
  57.     RTS
  58. C17C:    MOVE.W    STtrk,D4
  59.     BSET    #2,(A2)
  60.     BTST    #0,D4
  61.     BEQ.S    C18E
  62.     BCLR    #2,(A2)
  63. C18E:    BCLR    #1,(A2)
  64.     LSR.W    #1,D4
  65.     SUB.W    ONtrk,D4
  66.     BEQ.S    C1AE
  67.     BPL.S    C1A4
  68.     NEG.W    D4
  69.     BSET    #1,(A2)
  70. C1A4:    SUBQ.W    #1,D4
  71. C1A6:    BSR    C1BC
  72.     DBRA    D4,C1A6
  73. C1AE:    MOVE.W    STtrk,D4
  74.     LSR.W    #1,D4
  75.     MOVE.W    D4,ONtrk
  76.     RTS
  77. C1BC:    BTST    #1,(A2)
  78.     SEQ    D0
  79.     CMP.B    DIREC,D0
  80.     BEQ.S    C1D4
  81.     MOVE.L    #$0000011D,D1
  82.     NOT.B    DIREC
  83.     BRA.S    C1D6
  84.  
  85. C1D4:    MOVEQ    #$2F,D1
  86. C1D6:    BCLR    #0,(A2)
  87.     BSET    #0,(A2)
  88.     move.w    #$800,d1
  89. rr:    dbf    d1,rr
  90.     RTS
  91. C202:    MOVE.W    #8,RETRY
  92.     BSR    C17C
  93. C20C:    BTST    #5,(A1)
  94.     BNE.S    C20C
  95.     MOVE.W    #2,$009C(A0)
  96.     MOVE.W    #$8210,$0096(A0)
  97.     MOVE.W    #$7f00,$009E(A0)
  98.     MOVE.W    #$9500,$009E(A0)
  99.     MOVE.W    #$a245,$007E(A0)
  100.     MOVE.W    #$4000,$0024(A0)
  101.     MOVE.L    DISKBUFFER,$0020(A0)
  102.     MOVE.W    #$9b00,$0024(A0)
  103.     MOVE.W    #$9b00,$0024(A0)
  104. C23E:    btst    #6,$bfe001
  105.     beq.L    nr
  106.     btst    #2,$dff016
  107.     bne.s    ff
  108.     btst    #2,$dff016
  109.     beq.s    *-10
  110.     bra.L    nr1
  111. ff:    MOVE.W    $1E(A0),D0
  112.     AND.W    #2,D0
  113.     BEQ.S    C23E
  114.     MOVE.W    D0,$009C(A0)
  115.     MOVE.W    #$4000,$0024(A0)
  116.     move.l    DISKBUFFER,A3
  117.     addq.w    #2,a3
  118.     MOVE.L    A5,A4
  119.     MOVE.L    #$55555555,D3
  120.     MOVE.W    (A3)+,D2
  121.     MOVE.W    (A3)+,D6
  122.     AND.W    D3,D2
  123.     AND.W    D3,D6
  124.     ADD.W    D2,D2
  125.     OR.W    D2,D6
  126.     SWAP    D6
  127.     MOVEQ    #0,D4
  128.     MOVE.W    #$0629,D6
  129. C274:    MOVE.L    $18AC(A3),D1
  130.     AND.L    D3,D1
  131.     MOVE.L    (A3)+,D2
  132.     AND.L    D3,D2
  133.     ADD.L    D2,D2
  134.     OR.L    D2,D1
  135.     ADD.L    D1,D4
  136.     MOVE.L    D1,(A4)+
  137.     DBRA    D6,C274
  138.     MOVE.L    $18AC(A3),D1
  139.     AND.L    D3,D1
  140.     MOVE.L    (A3)+,D2
  141.     AND.L    D3,D2
  142.     ADD.L    D2,D2
  143.     OR.L    D2,D1
  144.     NOT.L    D4
  145.     CMP.L    D4,D1
  146.     BEQ.S    C2B0
  147.     SUBQ.W    #1,RETRY
  148.     BNE    C20C
  149.     btst    #6,$bfe001
  150.     beq.s    nr
  151.     bra.s    c2b1
  152. C2B0:    move.w    #$fff,$dff180
  153. C2B1:    SWAP    D6
  154.     CMP.W    STtrk,D6
  155.     BEQ.S    C2C0
  156.     BSR    C164
  157.     BRA    C202
  158. nr:    rts
  159. nr1:    addq.w    #1,sttrk
  160.     bra    C202
  161.  
  162. C2C0:    MOVE.L    A4,A5
  163.     ADDQ.W    #1,STtrk
  164.     DBRA    D7,C202
  165.     RTS
  166.