home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / wboot.s < prev    next >
Text File  |  1995-03-17  |  1KB  |  73 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. rts
  70. dosname:    dc.b    'dos.library',0
  71.  
  72. rts
  73.