ùúùú************************************************************* * SC Team17Map Format * For Scanner V4.0 * by SNIPER/LSI 1995 * INCLUDE ScannerV46.i Dc.L SCM_TAGSTART Dc.L SCM_CHECK,CHECKT7MP FOUND: Dc.L SCM_FOUNDFLAG,0 DATAADR: Dc.L SCM_DATAADR,0 DATASIZE: Dc.L SCM_DATASIZE,0 SCANADR: Dc.L SCM_SCANADR,0 Dc.L SCM_VERSION,1<<16!00 Dc.L SCM_CREATORSTRING,AUTORTEXT Dc.L SCM_FORMATSTRING,FORMATTEXT Dc.l SCM_SPECIALSTRING,MYSTRING Dc.L SCM_APPSTRING,APPSTRING Dc.L SCM_APPFLAG,0 ENDFILE: Dc.L SCM_ENDFILE,0 Dc.L SCM_TAGEND ; D0 = Current Adresse , D1 = BlockLen-1 CHECKT7MP: Move.L D0,A0 Move.L D1,D7 Lea FOUND+4,A1 Clr.L (A1) checkloop: Cmp.L #"T7MP",(A0) Beq.S gefunden checkweiter: Addq.L #1,A0 Dbra D7,checkloop Clr.L (A1) Rts gefunden: Move.L 8(A0),D0 ; Länge Move.L ENDFILE+4,D2 ; gesammt läng holen Sub.L A0,D2 ; - CurAdr Cmp.L D2,D0 ; groesser als Datei ??? Bgt checkfehler ; dann Error tst.l D0 ; Testen ob groesser 0 Bmi checkfehler Beq checkfehler Move.L D0,DATASIZE+4 Move.L A0,DATAADR+4 Add.L D0,A0 Move.L A0,SCANADR+4 ; am Ende der Daten weitermachen Move.L #-1,(A1) ; Ok Alles Klar Rts checkfehler: Clr.L (A1) Bra checkweiter ;*********************************************************** AUTORTEXT: Dc.B "SNIPER of Lightstorm INC.",0 Even Dc.B "$VER: 29.8.95 Extended Scanner Module for " FORMATTEXT: Dc.B "Team17 Map",0 Even APPSTRING: Dc.B "T7MP",0 Even MYSTRING: dc.b "It's a MapFormat from Team17\n" dc.b " (Superfrog)" dc.b 0 End