home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / bootloader.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  117 lines
  1. execbase=4
  2. findtask=-294
  3. addport=-354
  4. remport=-360
  5. openlib=-408
  6. opendev=-444
  7. closedev=-450
  8. doio=-456
  9.  
  10. WBOOT:    LEA    BOOTSECTOR,A0
  11.     MOVE.L    #$FFFFFFFF,D0
  12.     MOVE.L    #$FF,D1
  13.     CLR.L    D2
  14. WBOOT1:    SUB.L    (A0)+,D0
  15.     SUBX.L    D2,D0
  16.     DBRA    D1,WBOOT1
  17.     MOVE.L    D0,BOOTSECTOR+$4
  18.     MOVE.L    EXECBASE,A6
  19.     MOVE.L    #0,A1
  20.     JSR    FINDTASK(A6)
  21.     MOVE.L    D0,WPORT+$10
  22.     LEA     WPORT,A1
  23.         JSR    ADDPORT(A6)
  24.     LEA    WIO,A1
  25.     MOVE.L    #0,D0
  26.     CLR.L    D1
  27.     LEA    WTRDDEVICE,A0
  28.     JSR    OPENDEV(A6)
  29.     TST.L    D0
  30.     BNE    WERROR
  31.     LEA     WIO,A1
  32.     MOVE.L    #WPORT,14(A1)
  33.     MOVE.W    #3,28(A1)
  34.     MOVE.L    #BOOTSECTOR,40(A1)
  35.     MOVE.L    #2*512,36(A1)
  36.     MOVE.L    #0*512,44(A1)
  37.     JSR    DOIO(A6)
  38.     MOVE.W    #4,28(A1)
  39.     JSR    DOIO(A6)
  40.     MOVE.W    #9,28(A1)
  41.     MOVE.L    #0,36(A1)
  42.     JSR    DOIO(A6)
  43.     LEA    WPORT,A1
  44.     JSR    REMPORT(A6)
  45.     LEA    WIO,A1
  46.     JSR    CLOSEDEV(A6)
  47. WERROR:    RTS
  48. WTRDDEVICE:DC.B    'trackdisk.device',0
  49.     EVEN
  50. WIO:    BLK.L    20,0
  51. WPORT:    BLK.L    8,0
  52.  
  53.  
  54. bootsector:
  55.  
  56. dc.b    'DOS',0
  57. dc.l    0
  58. dc.l    880
  59.  
  60. bootprog:
  61.  
  62. move.l    execbase,a6
  63. lea    dosname(pc),a1
  64. jsr    -96(a6)
  65. move.l    d0,a0
  66. move.l    22(a0),a0
  67. moveq    #0,d0
  68.  
  69. jmp    bootprogramr
  70. dosname:    dc.b    'dos.library',0
  71. bootprogramr:
  72.  
  73.  
  74.  
  75. move.l    #0,a1
  76. move.l    $4,a6
  77. jsr    -294(a6)
  78. move.l    d0,bwport+$10
  79. lea    bwport,a1
  80. jsr    -354(a6)
  81. lea    bwio,a1
  82. move.l    #0,d0
  83. clr.l    d1
  84. lea    bwtrddevice,a0
  85. jsr    -444(a6)
  86. tst.l    d0
  87. bne    berror
  88. lea    bwio,a1
  89. move.l    #bwport,14(a1)
  90. move.w    #2,28(a1)
  91. move.l    #$7000,40(a1)
  92. move.l    #8*512,36(a1)
  93. move.l    #1024,44(a1)
  94. jsr    -456(a6)
  95. move.w    #4,28(a1)
  96. jsr    -456(a6)
  97. move.w    #9,28(a1)
  98. move.l    #0,28(a1)
  99. jsr    -456(a6)
  100. lea    bwport,a1
  101. jsr    -360(a6)
  102. lea    bwio,a1
  103. jsr    -450(a6)
  104. jmp    $7000
  105.  
  106. berror:    rts
  107. bwtrddevice:    dc.b    'trackdisk.device',0
  108. even
  109. bwio:        blk.l    20,0
  110. bwport:        blk.l    8,0
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.