home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_02 / PP31.MSA / AUTOMATI.ON / SOURCE / ULTRA.S < prev   
Text File  |  1985-11-20  |  11KB  |  338 lines
  1. *
  2. * Ultraload (Uni-load II)
  3. *
  4. * Written by Dack of The Un-Nameables
  5. * (Based on Uni-load by The Law)
  6. *
  7. * Includes depacker to/from odd addresses
  8. *
  9. * NOTE:-
  10. *
  11. * buff_len  = Max length of a PACKED file
  12. * max_files = No. of files open at once + 6
  13. *
  14. * only packed files are buffered, unpacked data
  15. * is treated as normal...
  16. *
  17. * gam = filename to $4b
  18. *
  19.  
  20.         opt c+,d-
  21.  
  22. buff_len    equ    $18c0a
  23. max_files    equ    32
  24.     bra    main
  25.  
  26. gam        dc.b "entvap",0
  27.         even
  28.  
  29. text    DC.B "Vapour presents . . ."
  30.     DC.B 00,00
  31.  
  32.     EVEN
  33.  
  34. ;SET TABS TO 10 FOR DISASSEMBLY
  35.  
  36.     
  37. main    MOVEA.L    4(A7),A5
  38.     move.l $c(a5),d0
  39.     add.l $14(a5),d0
  40.     add.l $1c(a5),d0
  41.     add.l #$200,d0
  42.     add.l #buff_len,d0    ;add buffer length
  43.     move.l d0,-(sp)
  44.     move.l a5,-(sp)
  45.     move.l #$4a0000,-(sp)
  46.     trap #1
  47.     lea $c(a7),a7
  48.  
  49.     dc.l $a000a00a
  50.     clr.w -(sp)
  51.     pea $ffffffff
  52.     move.l (a7),-(sp)
  53.     move.w #5,-(sp)
  54.     trap #14
  55.     lea $c(a7),a7
  56.     dc.w $a009
  57.  
  58.     pea    text
  59.     move.w    #9,-(a7)
  60.     trap    #1
  61.     addq.l    #6,a7
  62.  
  63. *
  64. * buffer address
  65. * (Can be absolute....)
  66. * 
  67.     move.l    #buff_start,buff_add    ;set buffer start address
  68.  
  69. CHEAT    CLR.L    -(A7)
  70.     MOVE.W    #$20,-(A7)
  71.     TRAP    #$01
  72.     ADDQ.L    #6,A7
  73.     LEA    SUPERLNG(PC),A6
  74.     MOVE.L    D0,(A6)
  75.     MOVE.L    $84,tr1
  76.     MOVE.L    #T1,$84
  77.     MOVE.L    SUPERLNG(PC),-(A7)
  78.     MOVE.W    #$20,-(A7)
  79.     TRAP    #$01
  80.     ADDQ.L    #6,A7
  81. stkk    clr.w    in_use
  82.     clr.l $60000
  83.     pea $60000
  84.     move.l (a7),-(sp)
  85.     move.l #gam,-(sp)
  86.     move.l #$4b0000,-(sp)
  87.     trap #1
  88.     lea $0c(a7),a7
  89.     clr.w -(sp)
  90.     trap #1
  91. SUPERLNG    DC.L    0
  92.  
  93.  
  94. ;multi file read 1st October 1989
  95. ;fix 11th October 1989 for decode from odd address
  96. ;bastard bug to find
  97.  
  98. T1        tst.w    inside
  99.         bne    bye
  100.         MOVEM.L a0-a6/d0-d7,reg
  101.         movea.l    a7,a1
  102.         addq.l     #6,a1
  103.         move.w     (a7),d0
  104.         btst     #$d,d0
  105.         bne.s     ok1
  106.         move.l     usp,a1
  107. ok1        cmpi.w  #0,(a1)
  108.         bne.s next1
  109.         move.l    tr1(pc),$84.w
  110.         bra.s    open
  111. next1        cmpi.w     #$3d,(a1)
  112.         beq    openup
  113.         cmpi.w    #$3f,(a1)
  114.         beq    read
  115.         cmpi.w    #$3e,(a1)
  116.         beq    close
  117.         cmpi.w    #$42,(a1)
  118.         beq    seek
  119.         cmpi.w    #$4e,(a1)
  120.         beq    ffirst
  121.         cmpi.w  #$3c,(a1)
  122.         beq     create
  123.         cmpi.w    #$40,(a1)
  124.         beq     write
  125. open        movem.l     reg(pc),a0-a6/d0-d7
  126. bye        dc.w     $4ef9
  127. tr1        dc.l     $0
  128.  
  129. openup        move.w    #1,inside    ;do normal traps
  130.         lea    f_names,a0
  131.         add.l    #300,a0
  132.         move.l    #5,d0
  133. s_loop        addq.l    #1,d0
  134.         add.l    #60,a0
  135.         tst.b    (a0)
  136.         bne.s    s_loop        ;search for empty slot
  137.  
  138. ;d0=my pretend file handle
  139.  
  140.         move.l    d0,d7
  141.  
  142. ****        
  143.         move.l d0,d6
  144.  
  145.         move.l    a0,a5
  146.         move.l    2(a1),a6    ;save file name address
  147.  
  148. ;open file
  149.         clr.w    -(a7)
  150.         move.l    a6,-(a7)
  151.         move.w    #$3d,-(a7)
  152.         trap    #1
  153.         addq.l    #8,a7
  154.  
  155.         tst.l    d0
  156.         bmi    error        ;in case file not there
  157.  
  158.         move.w    d0,d4
  159.         clr.l i_buff
  160.         pea i_buff
  161.         move.l #8,-(a7)
  162.         move.w d4,-(a7)
  163.         move.w #$3f,-(a7)
  164.         trap #1
  165.         lea 12(a7),a7
  166.         clr.w -(a7)
  167.         move.w d4,-(a7)
  168.         clr.l -(a7)
  169.         move.w #$42,-(a7)
  170.         trap #1
  171.         lea 10(a7),a7
  172.         cmp.l #"LSD!",i_buff
  173.         beq.s nermal    
  174.         lea real_hand,a0
  175.         lsl.l #2,d7
  176.         move.l d4,(a0,d7.w)
  177.         move.b #"0",(a5)
  178.         bra not_good
  179.  
  180. ;copy file name to storage
  181.  
  182. nermal        move.l    #59,d0
  183. c_loop        move.b    (a6)+,(a5)+
  184.         dbra    d0,c_loop
  185.  
  186.         move.l    i_len,d5
  187. not_com        lea    f_lengths,a0
  188.         lsl.l    #2,d7
  189.         move.l    d5,(a0,d7.w)        ;save file length in array
  190.         lea    so_read,a0
  191.         move.l #0,(a0,d7.w)
  192.         lea real_hand,a0
  193.         move.l #-1,(a0,d7.w)
  194.         
  195. ;close file as finished
  196.  
  197.         move.w    d4,-(a7)
  198.         move.w    #$3e,-(a7)
  199.         trap    #1
  200.         addq.l    #4,a7
  201.  
  202. not_good
  203.         clr.w    inside        ;my traps again
  204.         move.l d6,-(a7)
  205.         movem.l reg,a0-a6/d0-d7    
  206.         move.l    (a7)+,d0    ;give back my handle
  207.         rte
  208.  
  209. read        clr.l    d0
  210.         move.w    2(a1),d0    ;get handle
  211.         cmp.l    in_use,d0
  212.         beq    all_in        ;already loaded
  213.  
  214.         move.l d0,d1
  215.         lsl.l #2,d1
  216.         lea real_hand,a0
  217.         move.l (a0,d1.w),d2
  218.         cmp.l #-1,d2
  219.         beq.s cor_blimey
  220.  
  221.         move.l 4(a1),d0
  222.         move.l 8(a1),d1
  223.         move.w #1,inside
  224.         move.l d1,-(a7)
  225.         move.l d0,-(a7)
  226.         move.w d2,-(a7)
  227.         move.w #$3f,-(a7)
  228.         trap #1
  229.         lea 12(a7),a7
  230.         clr.w inside
  231.  
  232.         move.l d0,d4
  233.         bra titter
  234.  
  235. cor_blimey    move.l    a1,a5
  236.         move.w    #1,inside
  237.         move.l    d0,in_use
  238.         mulu     #60,d0
  239.         lea    f_names,a0
  240.         add.l    d0,a0        ;get correct filename
  241.         clr.w    -(a7)
  242.         move.l    a0,-(a7)
  243.         move.w    #$3d,-(a7)
  244.         trap    #1
  245.         addq.l    #8,a7
  246.         move.w    d0,d6
  247.         move.l    buff_add,-(a7)
  248.         move.l    #buff_len,-(a7)
  249.         move.w    d0,-(a7)
  250.         move.w    #$3f,-(a7)
  251.         trap    #1
  252.         lea    12(a7),a7
  253.         move.w    d6,-(a7)
  254.         move.w    #$3e,-(a7)
  255.         trap    #1
  256.         addq.l    #4,a7
  257.         clr.w    inside
  258.         move.l    buff_add,a0
  259.         move.l    a0,a1
  260.         add.l    #200,a1
  261.         move.l    4(a0),d7    ;length
  262.         bsr    DEPACK
  263.         move.l    buff_add,a0
  264.         move.l    a0,a1
  265.         add.l    #200,a1
  266. m2_back        move.b    (a1)+,(a0)+
  267.         subq.l    #1,d7
  268.         bne.s    m2_back
  269. read_in        move.l    a5,a1        ;put stack back in a1
  270. all_in        move.l    4(a1),d0    ;bytes to move
  271.         move.l    d0,d4
  272.         move.l    8(a1),a0    ;whereto
  273.         move.l    in_use,d1
  274.         lsl.l    #2,d1        ;*4
  275.         lea    so_read,a2
  276.         lea    f_lengths,a3
  277.         move.l    (a2,d1.w),d2    ;current offset
  278.         move.l    (a3,d1.w),d3    ;length of this file
  279.         move.l    buff_add,a1
  280.         add.l    d2,a1
  281. do_it        move.b    (a1)+,(a0)+
  282.         addq.l    #1,d2
  283.         cmp.l    d2,d3
  284.         blt.s    past_end
  285.         subq.l    #1,d0
  286.         bne.s    do_it
  287.         bra.s    wibble
  288. past_end    move.l    d3,d2        ;if past end then offset=end
  289. wibble        move.l    d2,(a2,d1.w)    ;save new offset
  290.         sub.l    d0,d4        ;get number of bytes read
  291. O -`σαπp@∙
  292. M∙ é@<╝=|wA·▐a└ x*$HAΦ ░╝4VgD╒ⁿ ░╝4VgZ 8&░╝1AY&gb<╝@A·┐a~"<Süfⁿ<╝w=|NuAΦó ░╝\Å`■gA·▒aP`A·│aD`
  293. A·╣a8<╝A·╖a,`■<╝A·╝aa&H@ ;g₧ <fεB╕&B╕*`Ä/?<    NA\ÅNu?< ?<NAXÅNuY &The Medway Boys Protector II
  294. Y*(You are FREE of viruses !
  295. Y*(Kobold #2Y*$Automation V1Y*)Ghost virus in memory !Y&#The reset vector has been changedY(*It MAY be a virusY*+F1 to continue.Y,+F2 to clear vector.
  296.  (c) TS &Ge O`Ç    á └α @`Çá└ασ /#@%≡ 'Ç)á+≡ -α/1 3@5` Å9á;└=α?≡ A C@E`GÇIáK≡ MαOQ  OU`WÇYá[└]α_ /c@e`gÇiák└mαoq s@u`wÇyá{└}αü â@à`çÇëáï└ìαÅ    æ     ô@    ò`    ùÇ    Öá    ¢└    ¥α    ƒ
  297. í 
  298. ú@
  299. Ñ`
  300. ºÇ
  301.  »
  302. ½└
  303. ¡α
  304. » ▒  │@ ╡` ╖Ç ╣á ╗└ ╜α ┐ ┴  ├@ ┼` ╟Ç ╔á ╦└ ═α ╧╤ ╙@╒`╫Ç┘á█└▌α▀ß π@σσ`τÇΘáδ└φα∩± ≤@ o≈Ç∙á√└²α !Aaü    í ┴ß!Aaüí┴ß!!#A%a'ü)í+┴-ß/1!3A5a7ü9í;┴=ß?A!CAE± GüIíK┴MßOQ!SAUaWüYí[┴]ß_a!cAeagüiík┴mßoq!sAuawüyí{┴}ßü!âA oçüëíï┴ìßÅæ!ôAò± ùüÖí¢┴¥ßƒí!úAÑaºü⌐í½┴¡ß»▒!│A╡a╖±  »╗┴╜ß┐┴!├A   ╟ü╔í╦┴═ß╧╤!╙A╒a╫ü┘í█┴▌ß▀ß!πAσσaτüΘíδ┴φß∩±!≤A⌡a≈ü∙í√┴²ß  " B b é     ó  ┬ Γ !"!B!b!é!ó!┬!Γ!"!""#B"%b"'é")ó"+┬"-Γ"/#1"#3B#5b#7é#9ó#;┬#=Γ#?$A"$CB$Eb$Gé$Ió$K┬$MΓ$O%Q"%SB%Ub%Wé%Yó%[┬%]Γ%_&a"&cB&eb&gé&ió&k┬&mΓ&o'q"'sB'ub'wé'yó'{┬'}Γ'(ü"(âB(àb(çé(ëó(ï┬(ìΓ(Å)æ")ôB)òb)ùé)Öó)¢┬)¥Γ)ƒ*í"*úB*Ñb*ºé*⌐ó*½┬*¡Γ* + /+│B+╡b+╖é+╣ó+╗┬+╜Γ+┐b0┴",├B,┼b,╟é,╔ó,╦┬,═Γ,╧-╤"-╙B-╒b-╫é-┘ó-█┬-▌Γ-▀.ß".πB.σσb.τé.Θó.δ┬.φΓ.∩/±"/≤B/⌡b/≈é/∙ó/√┬/²Γ/ 0#0C0≤σ σw O`Ç    á └α @`Çá└ασ /#@%≡ 'Ç)á+≡ -α/1 3@5` Å9á;└=α?≡ A C@E`GÇIáK≡ MαOQ  OU`WÇYá[└]α_ /c@e`gÇiák└mαoq s@u`wÇyá{└}αü â@à`çÇëáï└ìαÅ    æ     ô@    ò`    ùÇ    Öá    ¢└    ¥α    ƒ
  305. í 
  306. ú@
  307. Ñ`
  308. ºÇ
  309.  »
  310. ½└
  311. ¡α
  312. » ▒  │@ ╡` ╖Ç ╣á ╗└ ╜α ┐ ┴  ├@ ┼` ╟Ç ╔á ╦└ ═α ╧╤ ╙@╒`╫Ç┘á█└▌α▀ß π@σσ`τÇΘáδ└φα∩± ≤@ o≈Ç∙á√└²α !Aaü    í ┴ß!Aaüí┴ß!!#A%a'ü)í+┴-ß/1!3A5a7ü9í;┴=ß?A!CAE± GüIíK┴MßOQ!SAUaWüYí[┴]ß_a!cAeagüiík┴mßoq!sAuawüyí{┴}ßü!âA oçüëíï┴ìßÅæ!ôAò± ùüÖí¢┴¥ßƒí!úAÑaºü⌐í½┴¡ß»▒!│A╡a╖±  »╗┴╜ß┐┴!├A   ╟ü╔í╦┴═ß╧╤!╙A╒a╫ü┘í█┴▌ß▀ß!πAσσaτüΘíδ┴φß∩±!≤A⌡a≈ü∙í√┴²ß  " B b é     ó  ┬ Γ !"!B!b!é!ó!┬!Γ!"!""#B"%b"'é")ó"+┬"-Γ"/#1"#3B#5b#7é#9ó#;┬#=Γ#?$A"$CB$Eb$Gé$Ió$K┬$MΓ$O%Q"%SB%Ub%Wé%Yó%[┬%]Γ%_&a"&cB&eb&gé&ió&k┬&mΓ&o'q"'sB'ub'wé'yó'{┬'}Γ'(ü"(âB(àb(çé(ëó(ï┬(ìΓ(Å)æ")ôB)òb)ùé)Öó)¢┬)¥Γ)ƒ*í"*úB*Ñb*ºé*⌐ó*½┬*¡Γ* + /+│B+╡b+╖é+╣ó+╗┬+╜Γ+┐b0┴",├B,┼b,╟é,╔ó,╦┬,═Γ,╧-╤"-╙B-╒b-╫é-┘ó-█┬-▌Γ-▀.ß".πB.σσb.τé.Θó.δ┬.φΓ.∩/±"/≤B/⌡b/≈é/∙ó/√┬/²Γ/ 0#0C0≤σ σt σPOMPEY_31  σ
  313. Yt σAUTOσ σ
  314. {t σAUTOMATION σ
  315. àt σMAPσ     σ
  316. ót S╢4BRIDGE  BIN σ
  317. Ñt aÿCASTLE  BIN σ
  318. ▒t ⌐|.FOREST  BIN σ
  319. ╝t ⌡╕BICONσ BIN σ
  320. ╦t F╚·WTCODE  BIN σ
  321. ╒t à BCROSSBOWDAT σ
  322. ┘t û╓àDESKTOP INF σ
  323. å╕LOADσ PC1 σ
  324. Σt ╣.CROSS   PP  σ
  325. Φt ┼GHOTROD  PP  σ
  326. Ωt ╞JáMENU12FXPP σ t »└READ_ME PP  σ
  327. Gîú▒<RESTFX  SPL σ
  328. t └lCHECK_MEσ σ
  329. w[0 áσ ├.σ 
  330. σ { tσ..σ     σ { tσMENU31  PRGσ }t Loσó`▓mzB *o$|╒ⁿ▓Bº?< NA/@ L&JYê╒α(JYê,| é@: gⁿtaÇe `6xva|fb4`≡ahd6add∞a`eraê├BRB┬`╓aNex6<aPf6DV<à╖╩m┤N·äv`"a.etrΓf Γ╒BQ╔ ⌠2gXRA╥ASAa>6a"J╙┬!Q╦ ⁿ`└Γf ΓNuxrtΓf Γ╒BQ╔ ⌠2RAσISA│fNurtΓf Γ╒BQ╔ ⌠Nua╚6t`¼v `ª<àNA\Å k╤δ╤δ╤ⁿ╤╦ -╫ⁿ,KJÉg╫╪╤ôrg▓<f╫ⁿ■`ε╫┴`µTè+R ╨Æ+@+j╨¬+@+j Oæⁿ/C· <+┘Q╚ ⁿNu - ╨¡ΣêTÇ█ⁿ&M*▐SÇf·*o m └▒╠m·N╙`~-RhÆBgps ∩lJ╗k║`≥a868πεNM8÷OΣ╦╨╢║\Φ·+<╓┼ï$C∙║ö$yí}<5u| ┘ÄÄúTë╘LMENxU12FXÅREAD_ME#═▒?.╖╩«mMì 0Üx┤ÆHz²pfHyJ
  331. RAOǵ╩?<*ßNTÅaç╥ë├Äÿ¿º1}╢1└|c8═╠x⌡E`éò─Φ╘al1AY&!£ⁿoΓb*@uB
  332. ╩:Bï╨Xπ╕ÿ│╚f°▒╓F░╝ π    èf■₧╛G·P ■æΦ₧"B+┬≡Hw└ⁿ7¥Ä"e7C·ÖH~▓8rxçB)│,QΘc-ⁿ
  333. jl4≥π33|¿δà
  334. 0sÄΓ<#H1▓╥ⁿ¢0T⌐┌╩╧╘╬╛╢≥└Nu└eR ≡Ü1┤Aº,S┌▒╒0
  335. ╚Σ5U
  336. G    ║ ¬
  337. ║ 2D%ⁿjj≤R·w╟
  338. RµΓ