home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 15 / AACD15.ISO / AACD / Utilities / remember / RememberReader.s < prev    next >
Encoding:
Text File  |  1998-04-01  |  11.7 KB  |  574 lines
  1. ; Remember reader 1.0
  2. ; 
  3. ; (c) 1998 Cyborg 
  4.  
  5.     IncDir     "Sys:Coder/"
  6.     Include     "Preass/Konstanten.inc"
  7.     Include     "Preass/ASL_lib.inc"
  8.     Include     "Preass/intuition.inc"
  9.     Include     "Include/Guienv.i"
  10.     Include     "Include/Libraries/gadtools.i"
  11.  
  12. Main:
  13.     Include "preass/Startup.i"
  14.     Jsr Openlibs
  15.     Tst.l D0
  16.     Beq Mainende
  17.     Jsr START
  18. Mainende:
  19.     jsr Closelibs
  20.     Move.l Error,d0
  21.     tst.l d0
  22.     beq .l1
  23.     jmp ErrorHandling
  24. .l1:    Rts
  25.  
  26.     Mode_NoCase= 100
  27.     Mode_Case=   0
  28.  
  29.  
  30. FileReq:
  31.      Move.l A0,LokalScreen
  32.      Move.l AslBase,a6
  33.      Move.l #ASL_FileRequest,d0
  34.      Move.l #0,a0
  35.      Jsr AllocAslRequest(a6)
  36.      Move.l D0,Requester
  37.      Tst.l Requester
  38.      Beq .Select2
  39.      move.l #ASLFR_Taglist,a0
  40.      move.l LokalScreen,4(a0)
  41.      Move.l Requester,a0
  42.      Move.l #ASLFR_Taglist,a1
  43.      Jsr ASLRequest(a6)
  44.      Move.l D0,Result
  45.         Tst.l Result
  46.         Beq .Select2
  47.         Clr.l D0
  48.         Move.l Requester,A0
  49.         Move.l 4(A0),D0
  50.         Move.l D0,Filename_Zeiger
  51.         Clr.l D0
  52.         Move.l Requester,A0
  53.         Move.l 8(A0),D0
  54.         Move.l D0,Dirname_zeiger
  55.         Move.l ExecBase,a6
  56.         Move.l Dirname_zeiger,a0
  57.         Move.l #Dirname,a1
  58.         Move.l #100,d0
  59.         Jsr Copymem(a6)
  60.         Move.l Filename_zeiger,a0
  61.         Move.l #Name,a1
  62.         Move.l #100,d0
  63.         Jsr Copymem(a6)
  64.         Lea Name_Bak,a0
  65.         move.l Dirname_zeiger,a1
  66. .Sel1:  move.b (a1)+,(a0)+
  67.         cmpi.b #0,(a1)
  68.         bne .sel1
  69.         cmpi.b #":",-1(a0)
  70.         beq .sel12
  71.         move.b #"/",(a0)+
  72. .sel12: move.l Filename_zeiger,a1
  73. .Sel2:  move.b (a1)+,(a0)+
  74.         cmpi.b #0,(a1)
  75.         bne .sel2
  76.         move.b #0,(a0)+
  77. .Select2:
  78.         Tst.l Requester
  79.         Beq .lab1
  80.         Move.l AslBase,a6
  81.         Move.l Requester,a0
  82.         Jsr FreeASLRequest(a6)
  83. .lab1:  RTS
  84.  
  85. FillBuffer:
  86.     subq.l #1,d1
  87. .l1:move.b d0,(a0)+
  88.     dbra  d1,.l1
  89.     RTS
  90.  
  91. ConvertZahl:
  92.     Move.l #"    ",Zusatz
  93.     Move.l #"   0",Zahl
  94. ConvertZahl1:
  95.     Movem.l a0-a5,-(sp)
  96.     Lea Zusatz,a0
  97.     Cmpi.l #0,d7
  98.     bpl .l0
  99.     Neg.l d7
  100.     move.b #"-",zahl
  101.     Cmpi.l #9999,d7
  102.     bgt .l0
  103.     move.b #"-",zusatz
  104. .l0:Move.l d7,d0
  105.     MoveQ.l #-1,d1
  106. .l1:AddQ.l #1,d1
  107.     Subi.l #10000000,d0
  108.     Bpl .l1
  109.     Addi.l #10000000,d0
  110.     addi.l #$30,d1
  111.     cmpi.b #"0",d1
  112.     Beq .l11
  113.     move.b d1,0(a0)
  114. .l11:MoveQ.l #-1,d1
  115. .l2:AddQ.l #1,d1
  116.     Subi.l #1000000,d0
  117.     Bpl .l2
  118.     Addi.l #1000000,d0
  119.     addi.l #$30,d1
  120.     cmpi.b #" ",0(a0)
  121.     bne .l22
  122.     cmpi.b #"0",d1
  123.     Beq .l21
  124. .l22:
  125.     move.b d1,1(a0)
  126. .l21:MoveQ.l #-1,d1
  127. .l3:AddQ.l #1,d1
  128.     Subi.l #100000,d0
  129.     Bpl .l3
  130.     Addi.l #100000,d0
  131.     addi.l #$30,d1
  132.     cmpi.b #" ",1(a0)
  133.     bne .l32
  134.     cmpi.b #"0",d1
  135.     Beq .l31
  136. .l32:
  137.     move.b d1,2(a0)
  138. .l31:MoveQ.l #-1,d1
  139. .l4:AddQ.l #1,d1
  140.     Subi.l #10000,d0
  141.     Bpl .l4
  142.     Addi.l #10000,d0
  143.     addi.l #$30,d1
  144.     cmpi.b #" ",2(a0)
  145.     bne .l42
  146.     cmpi.b #"0",d1
  147.     Beq .l41
  148. .l42:
  149.     move.b d1,3(a0)
  150. .l41:MoveQ.l #-1,d1
  151. .l5:AddQ.l #1,d1
  152.     Subi.l #1000,d0
  153.     Bpl .l5
  154.     Addi.l #1000,d0
  155.     addi.l #$30,d1
  156.     cmpi.b #" ",3(a0)
  157.     bne .l52
  158.     cmpi.b #"0",d1
  159.     Beq .l51
  160. .l52:
  161.     move.b d1,4(a0)
  162. .l51:MoveQ.l #-1,d1
  163. .l6:AddQ.l #1,d1
  164.     Subi.l #100,d0
  165.     Bpl .l6
  166.     Addi.l #100,d0
  167.     addi.l #$30,d1
  168.     cmpi.b #" ",4(a0)
  169.     bne .l62
  170.     cmpi.b #"0",d1
  171.     Beq .l61
  172. .l62:
  173.     move.b d1,5(a0)
  174. .l61:MoveQ.l #-1,d1
  175. .l7:AddQ.l #1,d1
  176.     Subi.l #10,d0
  177.     Bpl .l7
  178.     Addi.l #10,d0
  179.     addi.l #$30,d1
  180.     cmpi.b #" ",5(a0)
  181.     bne .l72
  182.     cmpi.b #"0",d1
  183.     Beq .l71
  184. .l72:
  185.     move.b d1,6(a0)
  186. .l71:
  187.     addi.l #$30,d0
  188.     move.b d0,7(a0)
  189.     Movem.l (sp)+,a0-a5
  190.     Tst.l D6
  191.     Beq .ende   
  192.     Move.l DOSBase,a6
  193.     Move.l D6,d1
  194.     Move.l #Zusatz,d2
  195.     Move.l #8,d3
  196.     Jsr Write(a6)
  197. .ende:RTS
  198.  
  199. CompareString:
  200.     movem.l d0-d7/a0-a6,-(sp)
  201.     movem.l d0-d1/a0-a1,-(sp)
  202.     Jsr CountString
  203.     Move.l D0,Stringlaenge
  204.     movem.l (sp)+,d0-d1/a0-a1
  205.     movem.l d0-d1/a0-a1,-(sp)
  206. Move.l a1,A0
  207. Jsr CountString
  208.     Cmp.l Stringlaenge,D0
  209.     Beq .l0
  210.     movem.l (sp)+,d0-d1/a0-a1
  211.     bra .fehler
  212. .l0:movem.l (sp)+,d0-d1/a0-a1
  213.     cmpi.l #Mode_Nocase,d1
  214.     beq .nocase
  215.     move.l Stringlaenge,d1
  216.     subq.l #1,d1
  217.     addi.l d0,a1
  218. .l1:move.b (a0)+,d0
  219.     cmp.b (a1)+,d0
  220.     bne .fehler
  221.     dbra d1,.l1
  222.     movem.l (a7)+,d0-d7/a0-a6
  223.     moveq.l #-1,d0
  224.     RTS
  225. .NoCase:
  226.     move.l Stringlaenge,d1
  227.     subq.l #1,d1
  228.     addi.l d0,a1
  229. .l2:move.b (a0)+,d0
  230.     move.b (a1)+,d2
  231.     bclr #5,d0
  232.     bclr #5,d2
  233.     cmp.b d2,d0
  234.     bne .fehler
  235.     dbra d1,.l2
  236.     movem.l (a7)+,d0-d7/a0-a6
  237.     moveq.l #-1,d0
  238.     RTS
  239. .Fehler:
  240.     movem.l (a7)+,d0-d7/a0-a6
  241.     moveq.l #0,d0
  242.     RTS
  243.  
  244. CountString:
  245.         move.l a1,-(Sp)
  246.         move.l a0,a1
  247. .l1:    cmpi.b #$00,(a1)+
  248.         bne .l1
  249.         lea -1(a1),a1
  250.         sub.l a0,a1
  251.         move.l a1,d0
  252.         move.l (sp)+,a1
  253.         RTS
  254.  
  255. CountEOL:
  256.         move.l a1,-(Sp)
  257.         move.l a0,a1
  258. .l1:    cmpi.b #$0a,(a1)
  259.         beq .l2
  260.         cmpi.b #$00,(a1)+
  261.         bne .l1
  262.         lea -1(a1),a1
  263. .l2:    sub.l a0,a1
  264.         move.l a1,d0
  265.         addq.l #1,d0
  266.         cmpi.b #$00,(a0)
  267.         beq .null
  268.         move.l (sp)+,a1
  269.         RTS
  270. .null:  clr.l d0
  271.         move.l (sp)+,a1
  272.         RTS
  273.  
  274. CD:
  275.         Move.l DOSBase,a6
  276.         Move.l a0,d1
  277.         Move.l #Access_read,d2
  278.         Jsr Lock(a6)
  279.         Tst.l d0
  280.         Beq .ende
  281.             Move.l d0,d1
  282.             Jsr Currentdir(a6)
  283.             Move.l d0,d1
  284.             Jsr Unlock(a6)
  285.             moveq.l #-1,d0
  286. .ende:  RTS
  287.  
  288. GetFilename:
  289.         cmpi.l #0,laenge
  290.         beq .l13
  291.         cmpi.l #1,laenge
  292.         beq .l13
  293.         Move.l Adresse,a0
  294. .l1:    cmpi.b #`"`,(a0)
  295.         beq .l10
  296.         cmpi.b #` `,(a0)+
  297.         beq .l1
  298.         lea -1(a0),a1
  299. .l2:    cmpi.b #`"`,(a0)
  300.         beq .l11
  301.         cmpi.b #$0a,(a0)
  302.         beq .l12
  303.         cmpi.b #$00,(a0)
  304.         beq .l12
  305.         cmpi.b #` `,(a0)+
  306.         bne .l2
  307.         Lea -1(a0),a2
  308. .l3:    suba.l a1,a2
  309.         Move.l ExecBase,a6
  310.         Move.l a1,a0
  311.         Move.l #Filename,a1
  312.         Move.l a2,d0
  313.         Jsr Copymem(a6)
  314.         Move.l a2,d0
  315.         rts
  316. .l10:   lea 1(a0),a1
  317.         bra .l2
  318. .l11:   lea 1(a0),a1
  319.         bra .l3
  320. .l12:   move.l a0,a2
  321.         bra .l3
  322. .l13:   moveq.l #0,d0
  323.         RTS
  324.  
  325.  
  326.  
  327. Start:
  328.     Move.l DOSBase,a6
  329.     Jsr Output(a6)
  330.     Move.l D0,OH
  331. Move.l #Envarc_Remembername000,d1
  332. Move.l #Mode_old,d2
  333. Jsr Open(a6)
  334. Move.l D0,TH
  335.     Cmp.l #0,D0
  336.     Beq .ende
  337. .l1:
  338.     Move.l TH,d1
  339.     Move.l #Buffer1,d2
  340.     Move.l #250,d3
  341.     Jsr Fgets(a6)
  342.     Move.l D0,Result
  343.     Move.l TH,d1
  344.     Move.l #Buffer3,d2
  345.     Move.l #250,d3
  346.     Jsr Fgets(a6)
  347.     Move.l D0,Result
  348.     Move.l Result,d0
  349.     Cmp.l #0,D0
  350.     Beq .close
  351. Move.l #Envarc_Remembername001,d1
  352. Move.l #Mode_old,d2
  353. Jsr Open(a6)
  354. Move.l D0,FH
  355.     Cmp.l #0,D0
  356.     Bne .pre0000
  357.     Bra .Pre0001
  358. .Pre0000:
  359.  
  360. .l3:
  361.                                         Move.l FH,d1
  362.                                         Move.l #Buffer2,d2
  363.                                         Move.l #250,d3
  364.                                         Jsr Fgets(a6)
  365.                                         Move.l D0,Result
  366.                                         Move.l Result,d0
  367.                                         Cmp.l #0,D0
  368.                                         Beq .l2
  369. Move.l #Buffer1,a0
  370. Move.l #Buffer2,a1
  371. Move.l #0,d0
  372. Move.l #MODE_nocase,d1
  373. Jsr Comparestring
  374.                                         Cmp.l #0,D0
  375.                                         Beq .l3
  376.                                         Move.l DOSBase,a6
  377.                                         Move.l #Buffer3,d1
  378.                                         Move.l #0,d2
  379.                                         Move.l #0,d3
  380.                                         Jsr Execute(a6)
  381. .l2:                                                     
  382.                                         Move.l FH,d1
  383.                                         Jsr Close(a6)
  384.                                                          bra .l1
  385.                                                        
  386. .Pre0001:
  387.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
  388. .close:
  389.     Move.l TH,d1
  390.     Jsr Close(a6)
  391. .ende:
  392.     RTS
  393. Errorhandling:
  394.     Move.l DOSBase,a6
  395.     Jsr output(a6)
  396.     Move.l D0,Ausgabe
  397.     Move.l Error,d0
  398.     Cmp.l #1,D0
  399.     Beq .Pre0000
  400.     Bra .Pre0001
  401. .Pre0000:
  402. Move.l DOSBase,a6
  403. Move.l Ausgabe,d1
  404. Move.l #Allgemeiner_Fehlerxnname000,d2
  405. Moveq.l #$13,d3
  406. Jsr Write(a6)
  407. .Pre0001:
  408.     Move.l Error,d0
  409.     Cmp.l #2,D0
  410.     Beq .Pre0002
  411.     Bra .Pre0003
  412. .Pre0002:
  413. Move.l DOSBase,a6
  414. Move.l Ausgabe,d1
  415. Move.l #Konnte_File_nicht_findenxnname001,d2
  416. Moveq.l #$19,d3
  417. Jsr Write(a6)
  418. .Pre0003:
  419.     Move.l Error,d0
  420.     Cmp.l #3,D0
  421.     Beq .Pre0004
  422.     Bra .Pre0005
  423. .Pre0004:
  424. Move.l DOSBase,a6
  425. Move.l Ausgabe,d1
  426. Move.l #Window_Screen_Fehlerxnname002,d2
  427. Moveq.l #$15,d3
  428. Jsr Write(a6)
  429. .Pre0005:
  430.     Move.l Error,d0
  431.     Cmp.l #4,D0
  432.     Beq .Pre0006
  433.     Bra .Pre0007
  434. .Pre0006:
  435. Move.l DOSBase,a6
  436. Move.l Ausgabe,d1
  437. Move.l #Library_nicht_gefundenxnname003,d2
  438. Moveq.l #$17,d3
  439. Jsr Write(a6)
  440. .Pre0007:
  441.     Move.l Error,d0
  442.     Cmp.l #5,D0
  443.     Beq .Pre0008
  444.     Bra .Pre0009
  445. .Pre0008:
  446. Move.l DOSBase,a6
  447. Move.l Ausgabe,d1
  448. Move.l #Fehlerhafte_Eingabexnname004,d2
  449. Moveq.l #$14,d3
  450. Jsr Write(a6)
  451. .Pre0009:
  452.     Move.l Error,d0
  453.     Cmp.l #6,D0
  454.     Beq .Pre0010
  455.     Bra .Pre0011
  456. .Pre0010:
  457. Move.l DOSBase,a6
  458. Move.l Ausgabe,d1
  459. Move.l #Speicherfehlerxnname005,d2
  460. Moveq.l #$0F,d3
  461. Jsr Write(a6)
  462. .Pre0011:
  463.     RTS
  464. even
  465. Ausgabe:        dc.l 0
  466. Allgemeiner_Fehlerxnname000:
  467.     dc.b `Allgemeiner Fehler`,$a,``,0
  468. even
  469. Konnte_File_nicht_findenxnname001:
  470.     dc.b `Konnte File nicht finden`,$a,``,0
  471. even
  472. Window_Screen_Fehlerxnname002:
  473.     dc.b `Window|Screen Fehler`,$a,``,0
  474. even
  475. Library_nicht_gefundenxnname003:
  476.     dc.b `Library nicht gefunden`,$a,``,0
  477. even
  478. Fehlerhafte_Eingabexnname004:
  479.     dc.b `Fehlerhafte Eingabe`,$a,``,0
  480. even
  481. Speicherfehlerxnname005:    dc.b `Speicherfehler`,$a,``,0
  482. even
  483.  
  484. Even
  485. Openlibs:
  486.     Move.l $4.w,a6
  487.     Move.l #Aslname,a1
  488.     Moveq.l #0,d0
  489.     Jsr Openlibrary(a6)
  490.     Move.l d0,Aslbase
  491.     Tst.l D0
  492.     Beq.w .ende
  493.     Move.l #DOSname,a1
  494.     Moveq.l #0,d0
  495.     Jsr Openlibrary(a6)
  496.     Move.l d0,DOSbase
  497.     Tst.l D0
  498.     Beq.w .ende
  499.     RTS
  500. .ende:    Move.l #4,Error
  501.     Rts
  502. Closelibs:
  503.     Move.l $4.w,a6
  504.     Tst.l Aslbase
  505.     Beq.w .ende00
  506.     Move.l Aslbase,a1
  507.     Jsr Closelibrary(a6)
  508. .ende00:Tst.l DOSbase
  509.     Beq.w .ende01
  510.     Move.l DOSbase,a1
  511.     Jsr Closelibrary(a6)
  512. .ende01:Rts
  513. even
  514. WBmessage:        dc.l 0
  515. Laenge:        dc.l 0
  516. Adresse:        dc.l 0
  517. Error:        dc.l 0
  518. LokalScreen:        dc.l 0
  519. Requester:        dc.l 0
  520. Result:        dc.l 0
  521. Filename_Zeiger:        dc.l 0
  522. Dirname_zeiger:        dc.l 0
  523. Zusatz:        dc.l 0
  524. Zahl:        dc.l 0
  525. Zahlyyy:        dc.l 0
  526. Stringlaenge:        dc.l 0
  527. OH:        dc.l 0
  528. TH:        dc.l 0
  529. FH:        dc.l 0
  530. AslBase:        dc.l 0
  531. DOSBase:        dc.l 0
  532. NONE:        dc.l 0
  533. even
  534. DirName:    blk.b 256,0
  535. even
  536. Name:    blk.b 256,0
  537. even
  538. Name_bak:    blk.b 256,0
  539. even
  540. ASLFR_Taglist:
  541.     dc.l ASLFR_screen,0
  542.     dc.l ASLFR_PrivateIDCMP,Dostrue
  543.     dc.l ASLFR_TextAttr,Dosfalse
  544.     dc.l ASLFR_InitialLeftEdge,20
  545.     dc.l ASLFR_InitialTopEdge,24
  546.     dc.l ASLFR_InitialWidth,300
  547.     dc.l ASLFR_Initialheight,210
  548.     dc.l ASLFR_InitialDrawer,Dirname
  549.     dc.l ASLFR_InitialFile,Name
  550.     dc.l Tag_end,0
  551. Filename:    blk.b 256,0
  552. even
  553. Version:    dc.b "$VER: Remember Reader 1.0 30.3.98 (C) CYBORG 98",0
  554. even
  555. Buffer1:    blk.b 250,0
  556. even
  557. Buffer3:    blk.b 250,0
  558. even
  559. Buffer2:    blk.b 250,0
  560. even
  561. Envarc_Remembername000:
  562.     dc.b `Envarc:Remember.tasks`,0
  563. even
  564. Envarc_Remembername001:
  565.     dc.b `Envarc:Remember.dump`,0
  566. even
  567. Aslname: dc.b "asl.library",0
  568. DOSname: dc.b "dos.library",0
  569. even
  570.     Include "Preass:LVO3.0/Exec_lib.i"
  571.     Include "Preass:LVO3.0/Asl_lib.i"
  572.     Include "Preass:LVO3.0/DOS_lib.i"
  573.  
  574.