home *** CD-ROM | disk | FTP | other *** search
- ; Use this to make helpfile offsets
- ; load file at $40000, run and save from
- ; $40000-1024 to $40000+filelength
-
- main LEA $40000,A0
- mloop CMP.B #94,(A0)+
- BEQ nose
- CMP.L #$50000,A0 ;change if helpfile longer!
- BNE mloop
- RTS
-
- nose MOVE.L A0,A1
- SUB.L #$40001,A1
- MOVEQ #0,D0
- MOVE.B (A0)+,D0
- SUB.B #'0',D0
- CMP.B #9,D0
- BLS nose2
- SUBQ.B #7,D0
- nose2 LSL.B #4,D0
- MOVE.B (A0)+,D1
- SUB.B #'0',D1
- CMP.B #9,D1
- BLS nose3
- SUBQ.B #7,D1
- nose3 OR.B D1,D0
- LSL.W #2,D0
- LEA $40000-1024,A2
- ADD.L D0,A2
- MOVE.L A1,(A2)
- BRA mloop
-
-