home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GXY-INF.LHA / infos / wizkid.s < prev    next >
Encoding:
Text File  |  1996-03-09  |  4.9 KB  |  318 lines
  1.  
  2.  
  3.  
  4. buf    equ    $281f80
  5. buf1    equ    $277f3c
  6.  
  7.  
  8.  
  9.     AUTO    jj\wb\a0\a1\a\
  10.  
  11.  
  12.     org    $40000
  13.     load    $40000
  14.  
  15. j    lea    $300000,a0
  16.     move.l    #$10000,d0
  17. .h    clr.l    (a0)+
  18.     subq.l    #1,d0
  19.     bne.s    .h
  20.     move.w    #$4000,$dff09a
  21.     bsr    ja
  22.     lea    $300000,a0
  23.     cmp.w    #-1,err1
  24.     bne.s    .tf
  25.     lea    1(a0),a1
  26. .tf
  27.     lea    buf,a3
  28.     lea    buf1,a4
  29.     moveq    #$20,d0
  30. .r    clr.b    (A3)+
  31.     clr.b    (A4)+
  32.     dbf    d0,.r
  33.  
  34.     lea    namebuf(pc),a2
  35.     lea    buf,a3
  36.     lea    buf1,a4
  37.     moveq    #$20,d0
  38. .r2    move.b    (a2),(A3)+
  39.     move.b    (a2)+,(A4)+
  40.     bne.s    .r2
  41.  
  42.     addq.w    #1,$100.w
  43.  
  44.     cmp.w    #$33,$100.w
  45.     bne.s    exit
  46.     illegal
  47. exit    move.w    #$c000,$dff09a
  48.     rts
  49. old    dc.l    0
  50.  
  51. namebuf    blk.b    20,0
  52.  
  53. ja    LEA    ggg(PC),A1
  54.     MOVEQ    #$64,D0
  55. lbC00005C
  56.     CLR.L    (A1)+
  57.     DBRA    D0,lbC00005C
  58.     LEA    ggg(PC),A5
  59.     MOVE.L    #$45000,0(A5)
  60.     BSR    lbC00026C
  61.     MOVEQ    #0,D0
  62.     BSR    lbC0001A4
  63.     MOVEQ    #2,D0
  64.     BSR    lbC0000D0
  65.     MOVE.L    0(A5),A1
  66.     LEA    $34(A4),A0
  67.     MOVE.W    $100.w,D0
  68.     MULU    #$20,D0
  69.     ADD.L    D0,A0
  70.  
  71. ;    bra    exit
  72.  
  73.  
  74.     move.l    a1,-(A7)
  75.     lea    namebuf(pc),a1
  76.     moveq    #$10,d0
  77. .t    move.b    (a0)+,(a1)+
  78.     dbf    d0,.t
  79.     move.l    (A7)+,a1
  80.  
  81.     LEA    $34(A4),A0
  82.     MOVE.W    $100.w,D0
  83.     MULU    #$20,D0
  84.     ADD.L    D0,A0
  85.  
  86.  
  87.     MOVE.B    $1A(A0),12(A5)
  88.     MOVE.B    $1B(A0),$12(A5)
  89.     MOVE.L    $1C(A0),4(A5)
  90.     ;MOVE.L    $16(A0),8(A5)
  91.     move.l    #$300000,8(a5)
  92.     MOVE.B    #$FF,14(A5)
  93. lbC0000AE    MOVE.B    12(A5),D0
  94.     CMP.B    14(A5),D0
  95.     BEQ.S    lbC0000C0
  96.     MOVE.B    D0,14(A5)
  97.     BSR    lbC0000D0
  98. lbC0000C0    BSR    lbC00032C
  99.     BNE.S    lbC0000AE
  100.     BSR    lbC0002AA
  101.     rts
  102. lbC0000D0    BSR    lbC0001A4
  103.     MOVE.W    #10,$2C(A5)
  104. lbC0000DA    MOVE.L    0(A5),A4
  105.     LEA    6(A4),A0
  106.     MOVE.L    #$3028,D1
  107.     BSR    lbC000122
  108.     BSR    lbC0003AC
  109.     CMP.L    #$534F5336,8(A4)
  110.     BNE    lbC000106
  111.     CMP.L    12(A4),D0
  112.     BNE    lbC000106
  113.     RTS
  114. lbC000106    SUBQ.W    #1,$2C(A5)
  115.     BNE.S    lbC0000DA
  116.     CMP.L    #$534F5336,8(A4)
  117.     BNE    lbC0003EA
  118.     CMP.L    12(A4),D0
  119.     BNE    lbC0003EA
  120.     RTS
  121. lbC000122    BTST    #5,$BFE001
  122.     BNE.S    lbC000122
  123.     BSR    lbC0002C4
  124.     LEA    $DFF000,A1
  125.     MOVE.W    #$A500,$9E(A1)
  126.     MOVE.W    #$5A00,$9E(A1)
  127.     MOVE.W    #$4489,$7E(A1)
  128.     MOVE.W    #$4000,$24(A1)
  129.     MOVE.L    A0,$20(A1)
  130.     MOVE.W    #$8210,$96(A1)
  131.     LSR.W    #1,D1
  132.     OR.W    #$8000,D1
  133.     MOVE.W    D1,$24(A1)
  134.     MOVE.W    D1,$24(A1)
  135.     MOVE.W    #2,$9C(A1)
  136.     MOVEQ    #$38,D1
  137. lbC00016E    BSR    lbC0002EC
  138.     MOVE.W    #3,$2A(A5)
  139. lbC000178    MOVE.W    $1E(A1),D0
  140.     AND.W    #2,D0
  141.     TST.W    D0
  142.     BNE.S    lbC00019C
  143.     BTST    #0,$BFDD00
  144.     BEQ.S    lbC000178
  145.     DBRA    D1,lbC00016E
  146.     MOVE.W    #$4000,$24(A1)
  147.     BRA    lbC0003EA
  148. lbC00019C    MOVE.W    #$4000,$24(A1)
  149.     RTS
  150. lbC0001A4    MOVE.W    D0,$24(A5)
  151.     AND.W    #1,$24(A5)
  152.     BSR    lbC000238
  153.     AND.W    #$FF,D0
  154.     LSR.W    #1,D0
  155.     CMP.W    $20(A5),D0
  156.     BNE.S    lbC0001C0
  157.     RTS
  158. lbC0001C0    TST.W    D0
  159.     BNE.S    lbC0001EA
  160.     MOVEQ    #$64,D3
  161. lbC0001C6    BSR    lbC0002D0
  162.     BTST    #4,$BFE001
  163.     BEQ    lbC0001E2
  164.     BSR    lbC000208
  165.     DBRA    D3,lbC0001C6
  166.     BRA    lbC0003EA
  167. lbC0001E2    MOVE.W    #0,$20(A5)
  168.     RTS
  169. lbC0001EA    CMP.W    $20(A5),D0
  170.     BEQ.S    lbC000206
  171.     BCS.S    lbC0001FC
  172.     BSR    lbC000210
  173.     ADDQ.W    #1,$20(A5)
  174.     BRA.S    lbC0001EA
  175. lbC0001FC    BSR    lbC000208
  176.     SUBQ.W    #1,$20(A5)
  177.     BRA.S    lbC0001EA
  178. lbC000206    RTS
  179. lbC000208    MOVE.W    #1,D1
  180.     BRA    lbC000214
  181. lbC000210    MOVE.W    #0,D1
  182. lbC000214    MOVE.W    D1,$22(A5)
  183.     BSR    lbC000238
  184.     CMP.W    $28(A5),D1
  185.     BNE.S    lbC000228
  186.     BSR    lbC0002D0
  187.     BRA.S    lbC000230
  188. lbC000228    MOVE.W    D1,$28(A5)
  189.     BSR    lbC0002C4
  190. lbC000230    BSR.S    lbC000250
  191.     BSR.S    lbC000238
  192.     BRA    lbC0002EC
  193. lbC000238    MOVE.W    $24(A5),D2
  194.     ADD.W    D2,D2
  195.     OR.W    $22(A5),D2
  196.     ADD.W    D2,D2
  197.     OR.W    $26(A5),D2
  198.     MOVE.B    D2,$BFD100
  199.     RTS
  200. lbC000250    MOVE.W    $24(A5),D2
  201.     ASL.W    #1,D2
  202.     OR.W    $22(A5),D2
  203.     ASL.W    #1,D2
  204.     OR.W    $26(A5),D2
  205.     ADD.W    #$FFFF,D2
  206.     MOVE.B    D2,$BFD100
  207.     RTS
  208. lbC00026C    MOVE.B    #$FF,$BFD100
  209.     MOVE.B    #$87,$BFD100
  210.     MOVE.B    #$FF,$BFD100
  211.     MOVE.B    #$7F,$BFD100
  212.     MOVE.W    #$79,$26(A5)
  213.     MOVE.W    #0,D0
  214.     ADDQ.W    #3,D0
  215.     BCLR    D0,$27(A5)
  216.     MOVE.W    #$FFFF,$20(A5)
  217.     BSR    lbC0002EC
  218.     BSR.S    lbC000238
  219.     RTS
  220. lbC0002AA    MOVE.B    #$FF,$BFD100
  221.     MOVE.B    #$87,$BFD100
  222.     MOVE.B    #$FF,$BFD100
  223.     RTS
  224. lbC0002C4    BSR    lbC0002DC
  225.     BTST    #0,D2
  226.     BEQ.S    lbC0002C4
  227.     RTS
  228. lbC0002D0    BSR    lbC0002DC
  229.     BTST    #1,D2
  230.     BEQ.S    lbC0002D0
  231.     RTS
  232. lbC0002DC    MOVE.B    $BFDD00,D2
  233.     OR.W    $2A(A5),D2
  234.     MOVE.W    D2,$2A(A5)
  235.     RTS
  236. lbC0002EC    MOVE.B    #8,$BFDE00
  237.     MOVE.B    #8,$BFDF00
  238.     MOVE.B    #$5D,$BFD400
  239.     MOVE.B    #$32,$BFD500
  240.     MOVE.B    #$64,$BFD600
  241.     MOVE.B    #8,$BFD700
  242.     MOVE.B    #3,$BFDD00
  243.     MOVE.W    #0,$2A(A5)
  244.     RTS
  245. lbC00032C    MOVE.L    8(A5),A1
  246.     MOVE.L    4(A5),D0
  247.     MOVE.L    D0,D1
  248.     CMP.L    #$1FE,D1
  249.     BMI.S    lbC000344
  250.     MOVE.L    #$1FE,D1
  251. lbC000344    SUB.L    D1,D0
  252.     MOVE.B    $12(A5),D2
  253.     AND.W    #$FF,D2
  254.     MULU    #$200,D2
  255.     ADD.L    #$14,D2
  256.     MOVE.L    D2,$14(A5)
  257.     MOVE.L    0(A5),A3
  258.     ADD.L    D2,A3
  259.     SUBQ.W    #1,D1
  260. lbC000364    MOVE.B    (A3)+,(A1)+
  261.     DBRA    D1,lbC000364
  262.     MOVE.B    (A3)+,12(A5)
  263.     MOVE.B    (A3)+,$12(A5)
  264.     MOVE.L    A1,8(A5)
  265.     MOVE.L    D0,4(A5)
  266.     CMP.W    #0,D0
  267.     RTS
  268.     MOVE.B    $12(A5),D2
  269.     AND.W    #$FF,D2
  270.     MULU    #$200,D2
  271.     ADD.L    #$14,D2
  272.     MOVE.L    0(A5),A3
  273.     ADD.L    D2,A3
  274.     MOVE.B    $1FE(A3),12(A5)
  275.     MOVE.B    $1FF(A3),$12(A5)
  276.     TST.B    12
  277.     RTS
  278. lbC0003AC    LEA    8(A4),A0
  279.     LEA    $1814(A4),A1
  280.     MOVE.L    #$55555555,D2
  281.     MOVE.W    #2,D3
  282. lbC0003BE    MOVE.L    (A1)+,D1
  283.     AND.L    D2,D1
  284.     ADD.L    D1,D1
  285.     AND.L    D2,(A0)
  286.     OR.L    D1,(A0)+
  287.     DBRA    D3,lbC0003BE
  288.     MOVE.L    8(A4),D0
  289.     ADD.L    $10(A4),D0
  290.     MOVE.W    #$5FF,D3
  291. lbC0003D8    MOVE.L    (A1)+,D1
  292.     AND.L    D2,D1
  293.     ADD.L    D1,D1
  294.     AND.L    D2,(A0)
  295.     OR.L    D1,(A0)
  296.     ADD.L    (A0)+,D0
  297.     DBRA    D3,lbC0003D8
  298.     RTS
  299.  
  300. err1    dc.b    0
  301. err2    dc.b    0
  302.  
  303. err
  304. lbC0003EA
  305.     move.w    #$fff,d0
  306. .t    MOVE.W    D0,$DFF180
  307.     dbf    d0,.t
  308.     move.w    err1(pc),d0
  309.     rol.w    #8,d0
  310.     move.w    d0,Err1
  311.     st    Err1
  312.     ;eor.b    #1,drv+1
  313.     ;cmp.w    #-1,err1
  314.     ;bne.w    ja
  315.     move.l    old(pc),a7
  316.     rts
  317. ggg
  318.