; M2Amiga Object-File Disassembler V 2.0  © Bernd Preusing 1988
; Disassembly of jh0:m2/modules/libraries/obj/Scan.obj

	CODE
	DC.L 1  ; Kennung: .obj-File
	DC.W 1	; mod
	DC.B 'Scan'
	DS.B 28,0
	DC.W $0DDE,$013A,$06D9

; CodeSize
	DC.L	ENDE-Prog
; VarSize
	DC.L	2
; ConstSize
	DC.L	Jumps-Consts
; Jumps
	DC.L	2
; Modules
	DC.L	5

Consts:

Jumps:
	DC.W	$4EF9,0,Proc001-240
	DC.W	$4EF9,0,Proc000-240

ModuleIds:
	DC.W 1	; mod
	DC.B 'Arts'
	DS.B 28,0
	DC.W $0DDE,$013E,$068D
ArtsBs_ EQUR Prog-20

	DC.W 3	; noImp
	DC.B 'ASCII'
	DS.B 27,0
	DC.W $0DDE,$0139,$0180
ASCIIBs EQUR Prog-16

	DC.W 0	; none
	DS.B 32,0
	DC.W $0000,$0000,$0000

	DC.W 0	; none
	DS.B 32,0
	DC.W $0000,$0000,$0000

	DC.W 0	; none
	DS.B 32,0
	DC.W $0000,$0000,$0000


dataPtr EQUR Prog-24

Prog:
Proc000:
	BRA     L000010
Proc001:
	MOVEQ   #-2,D0
	MOVEA.L ArtsBs_(PC),A6
	JSR     -18(A6)
	MOVE.L  A4,-(A7)
	MOVEA.L dataPtr(PC),A4
	LINK    A5,#-2
	CLR.B   InQuotes(A5)
	MOVEA.L len(A5),A3
	CLR.W   (A3)
L000001:
	MOVEQ   #-16,D0
	MOVEA.L ArtsBs_(PC),A6
	JSR     -18(A6)
	MOVE.L  termCh(A5),-(A7)
	MOVEA.L read(A5),A3
	JSR     (A3)
	MOVEA.L termCh(A5),A3
	CMPI.B  #$20,(A3)
	BEQ.S   L000001
L000002:
	MOVEA.L termCh(A5),A3
	CMPI.B  #$20,(A3)
	BHI     L000003
	TST.B   InQuotes(A5)
	BEQ     L000008
	MOVEA.L termCh(A5),A3
	CMPI.B  #$20,(A3)
	BNE     L000008
L000003:
	TST.B   InQuotes(A5)
	BEQ     L000004
	MOVEA.L termCh(A5),A3
	MOVE.B  (A3),D6
	CMP.B   QuoteCh(A5),D6
	BNE     L000004
	CLR.B   InQuotes(A5)
	BRA     L000007
L000004:
	TST.B   InQuotes(A5)
	BNE     L000006
	MOVEA.L termCh(A5),A3
	CMPI.B  #$22,(A3)
	BEQ     L000005
	MOVEA.L termCh(A5),A3
	CMPI.B  #$27,(A3)
	BNE     L000006
L000005:
	MOVEA.L termCh(A5),A3
	MOVE.B  (A3),QuoteCh(A5)
	MOVE.B  #$FF,InQuotes(A5)
	BRA     L000007
L000006:
	MOVE.L  HIGHstr(A5),D6
	MOVEA.L len(A5),A3
	MOVE.W  (A3),D4
	EXT.L   D4
	CMP.L   D6,D4
	BGT     L000007
	MOVEA.L len(A5),A3
	MOVE.W  (A3),D6
	MOVE.L  HIGHstr(A5),D4
	CHK     D4,D6
	MOVEA.L str(A5),A3
	MOVEA.L termCh(A5),A2
	MOVE.B  (A2),0(A3,D6.W)
	MOVEA.L len(A5),A3
	ADDQ.W  #1,(A3)
	TRAPV
L000007:
	MOVEQ   #-16,D0
	MOVEA.L ArtsBs_(PC),A6
	JSR     -18(A6)
	MOVE.L  termCh(A5),-(A7)
	MOVEA.L read(A5),A3
	JSR     (A3)
	BRA     L000002
L000008:
	MOVE.L  HIGHstr(A5),D6
	MOVEA.L len(A5),A3
	MOVE.W  (A3),D4
	EXT.L   D4
	CMP.L   D6,D4
	BGT     L000009
	MOVEA.L len(A5),A3
	MOVE.W  (A3),D6
	MOVE.L  HIGHstr(A5),D4
	CHK     D4,D6
	MOVEA.L str(A5),A3
	CLR.B   0(A3,D6.W)
L000009:
	UNLK    A5
	MOVEA.L (A7)+,A4
	MOVEA.L (A7)+,A0
	LEA     20(A7),A7
	JMP     (A0)

L000010:
	MOVE.L  A4,-(A7)
	MOVEA.L dataPtr(PC),A4
	MOVE.L  A5,-(A7)
	MOVEA.L A7,A5
	BSET    #0,-2(A4)
	BNE     L000011
	MOVEA.L ArtsBs_(PC),A6
	JSR     -6(A6)
L000011:
	UNLK    A5
	MOVEA.L (A7)+,A4
	RTS
ENDE:
	END