MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page   1
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement


                                  	;*******************************************************
                                  	;
                                  	;	Develop Code Samples.
                                  	;
                                  	;	Written by Matt Gulick.		Started October 16,1990
                                  	;
                                  	;*******************************************************

                                  	;*******************************************************
                                  	;
                                  	;	This file contains the code samples that are used in
                                  	;	the Scanning From ProDOS article in DEVELOP.  These
                                  	;	code segments may be used freely by anyone.  All
                                  	;	code in this file assumes that we are running in an
                                  	;	8 bit Apple IIe.
                                  	;
                                  	;*******************************************************

                                  	;*******************************************************
                                  	;
                                  	;	Revision History:
                                  	;
                                  	;*******************************************************

                                  	;	Oct  16, 1990	File started.
                                  	;

                                  				STRING		PASCAL
                                  				BLANKS		OFF
                                  				PAGESIZE	70
                                  				PRINT		NOGEN
                                  				PRINT		NOMDIR
                                  				MACHINE		M65C02


MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page   2
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement


                                  	;*******************************************************
                                  	;
                                  	;	CODE SAMPLE #1
                                  	;
                                  	;	This first code segment walks the slots starting at
                                  	;	slot 7, looking first for a card of any kind.  Once
                                  	;	found, we check the ID bytes for a Smartport card.
                                  	;	Once found we check the ID Type byte to see if it is
                                  	;	a SCSI Card.  If it passes all these tests, we then
                                  	;	issue a Device $00 Status $00 call to further ensure
                                  	;	that this is the Apple High-Speed SCSI Card.
                                  	;
                                  	;*******************************************************

                                  									;
                                  									; The following are Equates
                                  									; that will bee used in all
                                  									; the Sample Code Segments
                                  									; that follow.
                                  									;
           0000 00C7              	slot_7		equ		$C7
           0000 00C1              	slot_1		equ		$C1

           0000 0042              	My_ZPage	equ		$42

           0000 C000              	KBD			equ		$C000		;Keyboard
           0000 C00C              	CLR80VID	equ		$C00C		;Disable 80-column hardware
           0000 C00D              	SET80VID	equ		$C00D		;Enable 80-column hardware
           0000 C010              	KBD_STRB	equ		$C010		;Keyboard Strobe
           0000 C018              	RD80COL		equ		$C018		;Read 80 Col. Mode
           0000 C01A              	RDTEXT		equ		$C01A		;Read Text Mode
           0000 C01B              	RDMIX		equ		$C01B		;Read Mix Mode
           0000 C01C              	RDPAGE2		equ		$C01C		;Read Page 2 setting
           0000 C01D              	RDHIRES		equ		$C01D		;Read HiRes setting
           0000 C050              	TXTCLR		equ		$C050		;Clear Text Mode
           0000 C051              	TXTSET		equ		$C051		;Set Text Mode
           0000 C052              	MIXCLR		equ		$C052		;Clear Mixed Mode
           0000 C053              	MIXSET		equ		$C053		;Set Mixed Mode
           0000 C054              	TXTPAGE1	equ		$C054		;Set Text Page 1
           0000 C055              	TXTPAGE2	equ		$C055		;Set Text page 2
           0000 C056              	LORES		equ		$C056		;Set LoRes Graphics
           0000 C057              	HIRES		equ		$C057		;Set HiRes Graphics
           0000 C05E              	CLRAN3		equ		$C05E		;Clear annunciator 3
           0000 C05F              	SETAN3		equ		$C05F		;Set annunciator 3

           0000 009B              	ESC			equ		$9B			;High bit set ASCII ESC Key

           0000 0001              	Blk_sig1	equ		$01
           0000 0003              	Blk_sig2	equ		$03
           0000 0005              	Blk_sig3	equ		$05
           0000 0007              	SPort_sig	equ		$07
           0000 00FB              	SPort_ID	equ		$FB

           0000 0080              	Ext_SPort	equ		%10000000	;Bit 7
           0000 0002              	SCSI		equ		%00000010	;Bit 2

           0000 0000              	No_Err		equ		$00
           0000 0027              	IO_Err		equ		$27
           0000 0028              	No_dev		equ		$28

                                  	;*******************************************************

                                  				EXPORT	P8_Scanner
00000 0000                        	P8_Scanner	PROC
00000 0000                        									;
00000 0000                        									; Main Code Segment.
00000 0000                        									;
00000 0000

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page   3
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

00000 0000 20 FFFF       00018 6  				jsr		find_card
00003 0003 20 FFFF       000FA 6  				jsr		find_scanr
00006 0006 20 FFFF       0018E 6  				jsr		htone_filter
00009 0009 20 FFFF       001F5 6  				jsr		def_window
0000C 000C 20 FFFF       0027B 6  				jsr		start_scan
0000F 000F 20 FFFF       002CE 6  				jsr		get_data
00012 0012 20 FFFF       005C3 6  				jsr		display
00015 0015 90 E9         00000 2  				bcc		P8_Scanner
00017 0017 60                  6  				rts
00018 0018
00018 0018                        	;*******************************************************
00018 0018                        	;
00018 0018                        	;	CODE SAMPLE #1
00018 0018                        	;
00018 0018                        	;	This first code segment walks the slots starting at
00018 0018                        	;	slot 7, looking first for a card of any kind.  Once
00018 0018                        	;	found, we check the ID bytes for a Smartport card.
00018 0018                        	;	Once found we check the ID Type byte to see if it is
00018 0018                        	;	a SCSI Card.  If it passes all these tests, we then
00018 0018                        	;	issue a Device $00 Status $00 call to further ensure
00018 0018                        	;	that this is the Apple High-Speed SCSI Card.
00018 0018                        	;
00018 0018                        	;*******************************************************
00018 0018
00018 0018                        	find_card
00018 0018                        									;
00018 0018                        									; Save the current Zero
00018 0018                        									; Page values before
00018 0018                        									; using them.
00018 0018                        									;
00018 0018 A5 42               3  				lda		<My_ZPage
0001A 001A 48                  3  				pha
0001B 001B A5 43               3  				lda		<My_ZPage+1
0001D 001D 48                  3  				pha
0001E 001E                        									;
0001E 001E                        									; Start at Slot 7.
0001E 001E                        									;
0001E 001E A9 C7               2  				lda		#slot_7
00020 0020 85 43               3  				sta		<My_ZPage+1	;Zero Page
00022 0022 8D FFFF       000AF 4  				sta		slot+1		;For Safe keeping
00025 0025 64 42               3  				stz		<My_ZPage
00027 0027 9C FFFF       000AE 4  				stz		slot
0002A 002A                        									;
0002A 002A                        									; Is it a Smartport Card?
0002A 002A                        									;
0002A 002A A0 01               2  	@chk_smart	ldy		#Blk_sig1
0002C 002C B1 42               5  				lda		(My_ZPage),y;Block_device Signature Byte
0002E 002E C9 20               2  				cmp		#$20		;#1 = $20
00030 0030 D0 23         00055 2  				bne		@next_slot
00032 0032
00032 0032 A0 03               2  				ldy		#Blk_sig2
00034 0034 B1 42               5  				lda		(My_ZPage),y;Block_device Signature Byte
00036 0036 D0 1D         00055 2  				bne		@next_slot	;#2 = $00
00038 0038
00038 0038 A0 05               2  				ldy		#Blk_sig3
0003A 003A B1 42               5  				lda		(My_ZPage),y;Block_device Signature Byte
0003C 003C C9 03               2  				cmp		#$03		;#3 = $03
0003E 003E D0 15         00055 2  				bne		@next_slot
00040 0040
00040 0040 A0 07               2  				ldy		#SPort_sig
00042 0042 B1 42               5  				lda		(My_ZPage),y;SmartPort Signature Byte
00044 0044 D0 0F         00055 2  				bne		@next_slot	;#1 = $00
00046 0046                        									;
00046 0046                        									; We have a Smartport
00046 0046                        									; Device.  Is it SCSI with
00046 0046                        									; Extended SmartPort?
00046 0046                        									;
00046 0046 A0 FB               2  				ldy		#SPort_ID
00048 0048 B1 42               5  				lda		(My_ZPage),y

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page   4
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

0004A 004A 29 82               2  				and		#Ext_SPort+\
                                  						SCSI
0004C 004C C9 82               2  				cmp		#Ext_SPort+\
                                  						SCSI
0004E 004E D0 05         00055 2  				bne		@next_slot
00050 0050                        									;
00050 0050                        									; Is it an Apple High-
00050 0050                        									; Speed SCSI Card?
00050 0050                        									;
00050 0050 20 FFFF       0006E 6  				jsr		is_it_appl
00053 0053 90 0E         00063 2  				bcc		@exit
00055 0055                        									;
00055 0055                        									; Check the Next Slot.
00055 0055                        									;
00055 0055 A5 43               3  	@next_slot	lda		<My_ZPage+1
00057 0057 3A                  2  				dec		a
00058 0058 85 43               3  				sta		<My_ZPage+1
0005A 005A 8D FFFF       000AF 4  				sta		slot+1
0005D 005D C9 C1               2  				cmp		#slot_1
0005F 005F B0 C9         0002A 2  				bge		@chk_smart
00061 0061 A9 28               2  				lda		#No_dev		;No Device Error
00063 0063                        									;
00063 0063                        									; Clean Exit
00063 0063                        									;
00063 0063 AA                  2  	@exit		tax
00064 0064 68                  4  				pla
00065 0065 85 43               3  				sta		<My_ZPage+1
00067 0067 68                  4  				pla
00068 0068 85 42               3  				sta		<My_ZPage
0006A 006A 8A                  2  				txa
0006B 006B
0006B 006B C9 01               2  				cmp		#$01		;Set Carry if Non-Zero
0006D 006D 60                  6  				rts
0006E 006E                        									;
0006E 006E                        									; This routine determines
0006E 006E                        									; if the card is the new
0006E 006E                        									; High-Speed SCSI Card.
0006E 006E                        									;
0006E 006E A0 FF               2  	is_it_appl	ldy		#$ff
00070 0070 B1 42               5  				lda		(My_ZPage),y
00072 0072 18                  2  				clc
00073 0073 69 03               2  				adc		#$03		;Set Smartport Entry Address
00075 0075 8D FFFF       000B3 4  				sta		card_ntry
00078 0078
00078 0078 A5 43               3  				lda		<My_ZPage+1
0007A 007A 8D FFFF       000B4 4  				sta		card_ntry+1
0007D 007D
0007D 007D 20 FFFF       000B0 6  				jsr		call_card
00080 0080 00                     				dc.b	$00			;Status Call Command Number
00081 0081 00B5                   				dc.w	stat_list1
00083 0083                        									;
00083 0083                        									; Check the Results
00083 0083                        									;
00083 0083 AD FFFF       000BC 4  				lda		stat_data+2	;Low Byte of Vendor ID
00086 0086 C9 01               2  				cmp		#$01		;Must be $01
00088 0088 D0 12         0009C 2  				bne		@non_apple
0008A 008A
0008A 008A AD FFFF       000BD 4  				lda		stat_data+3	;High Byte of Vendor ID
0008D 008D D0 0D         0009C 2  				bne		@non_apple	;Must be $00
0008F 008F
0008F 008F AD FFFF       000BE 4  				lda		stat_data+4	;Low Byte of Version
00092 0092 D0 08         0009C 2  				bne		@non_apple	;Should be Null
00094 0094
00094 0094 AD FFFF       000BF 4  				lda		stat_data+5	;High Byte of Version
00097 0097 D0 03         0009C 2  				bne		@non_apple	;Should be Null
00099 0099
00099 0099 18                  2  				clc					;Acc. 0 by previous LDA
0009A 009A 80 03         0009F 3  				bra		@done
0009C 009C

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page   5
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

0009C 009C A9 28               2  	@non_apple	lda		#No_dev		;Device not found.
0009E 009E 38                  2  				sec
0009F 009F                        									;
0009F 009F                        									; Restore ZPage
0009F 009F                        									;
0009F 009F 48                  3  	@done		pha
000A0 00A0 08                  3  				php
000A1 00A1 AD FFFF       000AE 4  				lda		slot
000A4 00A4 85 42               3  				sta		<My_ZPage
000A6 00A6 AD FFFF       000AF 4  				lda		slot+1
000A9 00A9 85 43               3  				sta		<My_ZPage+1
000AB 00AB 28                  4  				plp
000AC 00AC 68                  4  				pla
000AD 00AD 60                  6  				rts
000AE 00AE
000AE 00AE 0000                   	slot		dc.w	$0000
000B0 00B0
000B0 00B0                        	;*******************************************************
000B0 00B0
000B0 00B0 6C FFFF             5  	call_card	jmp		(card_ntry)
000B3 00B3
000B3 00B3 0000                   	card_ntry	dc.w	$0000
000B5 00B5
000B5 00B5                        	;*******************************************************
000B5 00B5
000B5 00B5 03                     	stat_list1	dc.b	$03			;PCount = 3
000B6 00B6 00                     				dc.b	$00			;Device = Card
000B7 00B7 00BA                   				dc.w	stat_data	;Data returned here
000B9 00B9 00                     				dc.b	$00			;Get Host Status Call
000BA 00BA
000BA 00BA                        	;*******************************************************
000BA 00BA
000BA 00BA 000000000000           	stat_data	dcb.b	64,0		;Our Buffer.
000FA 00FA
000FA 00FA                        	;*******************************************************
000FA 00FA                        	;
000FA 00FA                        	;	CODE SAMPLE #2
000FA 00FA                        	;
000FA 00FA                        	;	This code segment walks the unit numbers from the
000FA 00FA                        	;	SCSI Card starting at unit 2 and going to unit 0 to
000FA 00FA                        	;	get the actual unit number count.  Once this is
000FA 00FA                        	;	done, we start at unit 1 and walk forward until we
000FA 00FA                        	;	find the scanner.
000FA 00FA                        	;
000FA 00FA                        	;*******************************************************
000FA 00FA
000FA 00FA                        	find_scanr
000FA 00FA                        									;
000FA 00FA                        									; First we issue a
000FA 00FA                        									; Status call to device
000FA 00FA                        									; number 2.  This will
000FA 00FA                        									; force the card to
000FA 00FA                        									; build its tables if it
000FA 00FA                        									; has not yet done so.
000FA 00FA                        									;
000FA 00FA A9 02               2  				lda		#$02
000FC 00FC 8D FFFF       00171 4  				sta		dev_num2
000FF 00FF 9C FFFF       00174 4  				stz		stat_code2
00102 0102
00102 0102 20 00B0       000B0 6  				jsr		call_card
00105 0105 00                     				dc.b	$00
00106 0106 0170                   				dc.w	stat_list2
00108 0108 B0 4F         00159 2  				bcs		@error
0010A 010A                        									;
0010A 010A                        									; Now call Unit 0 to
0010A 010A                        									; find out the total
0010A 010A                        									; device count.
0010A 010A                        									;
0010A 010A 9C FFFF       00171 4  				stz		dev_num2

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page   6
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

0010D 010D 20 00B0       000B0 6  				jsr		call_card
00110 0110 00                     				dc.b	$00			;Status Call Command Number
00111 0111 0170                   				dc.w	stat_list2
00113 0113 B0 44         00159 2  				bcs		@error
00115 0115
00115 0115 AD FFFF       00175 4  				lda		stat_data2	;Get the Total Device
00118 0118 8D FFFF       0016E 4  				sta		dev_count	;Count
0011B 011B
0011B 011B A9 03               2  				lda		#$03		;Set up for DIB Status
0011D 011D 8D FFFF       00174 4  				sta		stat_code2	;Calls
00120 0120
00120 0120 AD FFFF       00171 4  	@loop		lda		dev_num2	;First time we increment
00123 0123 CD FFFF       0016E 4  				cmp		dev_count	;a zero giving a device
00126 0126 B0 31         00159 2  				bge		@error		;number of 1.
00128 0128
00128 0128 EE FFFF       00171 6  				inc		dev_num2
0012B 012B 20 00B0       000B0 6  				jsr		call_card
0012E 012E 00                     				dc.b	$00			;Status Call Command Number
0012F 012F 0170                   				dc.w	stat_list2
00131 0131 B0 26         00159 2  				bcs		@error
00133 0133
00133 0133 AD FFFF       0018A 4  				lda		d_type
00136 0136 C9 08               2  				cmp		#$08		;Is it Type = Scanner?
00138 0138 D0 E6         00120 2  				bne		@loop		;No.
0013A 013A
0013A 013A AD FFFF       0018B 4  				lda		d_stype
0013D 013D C9 A0               2  				cmp		#$A0		;Subtype = $A0?
0013F 013F D0 DF         00120 2  				bne		@loop		;No
00141 0141                        									;
00141 0141                        									; Scan string is a Pascal
00141 0141                        									; String.  A length byte
00141 0141                        									; followed by ASCII.  We
00141 0141                        									; want to make sure they
00141 0141                        									; are both the same length
00141 0141                        									; as well as the same text.
00141 0141                        									;
00141 0141 AE FFFF       00179 4  				ldx		id_str_len
00144 0144 BD FFFF             4  	@str_loop	lda		id_str_len,x
00147 0147 DD FFFF             4  				cmp		scan_str,x
0014A 014A D0 D4         00120 2  				bne		@loop
0014C 014C CA                  2  				dex
0014D 014D D0 F5         00144 2  				bne		@str_loop
0014F 014F
0014F 014F AD FFFF       00171 4  				lda		dev_num2	;We have our Scanner
00152 0152 8D FFFF       0016F 4  				sta		scan_dnum
00155 0155 A9 00               2  				lda		#No_Err
00157 0157 18                  2  				clc
00158 0158 60                  6  				rts
00159 0159
00159 0159 A9 28               2  	@error		lda		#No_dev		;Device not found.
0015B 015B 38                  2  				sec
0015C 015C 60                  6  				rts
0015D 015D
0015D 015D                        	;*******************************************************
0015D 015D
0015D 015D 104150504C45           	scan_str	dc.b	'APPLE   SCANNER '	;4 Spaces between
0016E 016E                        											;1 Sace after
0016E 016E 00                     	dev_count	dc.b	$00
0016F 016F
0016F 016F                        	;*******************************************************
0016F 016F
0016F 016F 00                     	scan_dnum	dc.b	$00			;Scanner Device Number
00170 0170
00170 0170                        	;*******************************************************
00170 0170
00170 0170 03                     	stat_list2	dc.b	$03			;PCount = 3
00171 0171 00                     	dev_num2	dc.b	$00			;Device number
00172 0172 0175                   				dc.w	stat_data2	;Data returned here
00174 0174 00                     	stat_code2	dc.b	$00			;Status Code

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page   7
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

00175 0175
00175 0175                        	;*******************************************************
00175 0175
00175 0175                        	stat_data2						;Our Buffer. Used over.
00175 0175 00                     	d_stat		dc.b	$00			;Device Status Byte
00176 0176 00                     	blk_low		dc.b	$00			;Block Count (Low)
00177 0177 00                     	blk_mid		dc.b	$00			;Block Count (Mid)
00178 0178 00                     	blk_hi		dc.b	$00			;Block Count (High)
00179 0179 00                     	id_str_len	dc.b	$00			;ID String Length
0017A 017A 000000000000           	id_str		dcb.b	16,$00		;ID STring (16 Bytes)
0018A 018A 00                     	d_type		dc.b	$00			;Device Type
0018B 018B 00                     	d_stype		dc.b	$00			;Device Subtype
0018C 018C 0000                   	d_version	dc.w	$00			;Version Word
0018E 018E
0018E 018E                        	;*******************************************************
0018E 018E                        	;
0018E 018E                        	;	CODE SAMPLE #3
0018E 018E                        	;
0018E 018E                        	;	This code segment issues an Apple Scanner SEND
0018E 018E                        	;	Command by using the Apple SCSI Card Generic SCSI
0018E 018E                        	;	call ($2B).  By so doing we can send our halftone
0018E 018E                        	;	filter to the Scanner.
0018E 018E                        	;
0018E 018E                        	;*******************************************************
0018E 018E
0018E 018E                        	htone_filter
0018E 018E                        									;
0018E 018E                        									; Issue the Call
0018E 018E                        									;
0018E 018E AD 016F       0016F 4  				lda		scan_dnum
00191 0191 8D FFFF       0019C 4  				sta		dev_num3
00194 0194
00194 0194 20 00B0       000B0 6  				jsr		call_card
00197 0197 04                     				dc.b	$04			;Control Call Command Number
00198 0198 019B                   				dc.w	cmd_list3
0019A 019A 60                  6  				rts
0019B 019B
0019B 019B                        	;*******************************************************
0019B 019B
0019B 019B 03                     	cmd_list3	dc.b	$03			;PCount = 3
0019C 019C 04                     	dev_num3	dc.b	$04			;Device number
0019D 019D 01A0                   				dc.w	filter_data	;Pointer to data
0019F 019F 2B                     				dc.b	$2B			;Control Code
001A0 01A0
001A0 01A0                        	;*******************************************************
001A0 01A0
001A0 01A0                        	filter_data						;Our Data
001A0 01A0 0018                   				dc.w	24			;Total Length of Parms
001A2 01A2 000001BA               				dc.l	send_fltr	;CDB Pointer (Long)
001A6 01A6 000001C4               				dc.l	DCData3		;DCMove Ptr (Long)
001AA 01AA 00000000               				dc.l	$00000000	;Rqst Sense Ptr (Long)
001AE 01AE 00                     				dc.b	$00			;Reserved
001AF 01AF 00                     				dc.b	$00			;SCSI Status
001B0 01B0 00                     				dc.b	$00			;Command Count
001B1 01B1 00000011               				dc.l	$00000011	;Trans Count (Long)
001B5 01B5 00                     				dc.b	$00			;DMA Mode
001B6 01B6 00000000               				dc.l	$00000000	;Reserved (Long)
001BA 01BA
001BA 01BA                        	;*******************************************************
001BA 01BA
001BA 01BA 2A                     	send_fltr	dc.b	$2A			;Scanner SEND Command
001BB 01BB 00                     				dc.b	$00			;Reserved
001BC 01BC 02                     				dc.b	$02			;Transfer Type
001BD 01BD 00                     				dc.b	$00			;Reserved
001BE 01BE 00                     				dc.b	$00			;Reserved
001BF 01BF 02                     				dc.b	$02			;Transfer ID Byte
001C0 01C0 00                     				dc.b	$00			;Reserved
001C1 01C1 00                     				dc.b	$00			;Transfer Length (High)
001C2 01C2 11                     				dc.b	$11			;Transfer Length (Low)

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page   8
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

001C3 01C3 00                     				dc.b	$00			;Reserved
001C4 01C4
001C4 01C4                        	;*******************************************************
001C4 01C4
001C4 01C4 000001E4               	DCData3		dc.l	send_data	;Scanner SEND Data Ptr
001C8 01C8 00000011               				dc.l	$00000011	;Transfer Count
001CC 01CC 00000000               				dc.l	$00000000	;Offset
001D0 01D0 00000000               				dc.l	$00000000	;Reserved
001D4 01D4
001D4 01D4 00000000               				dc.l	$00000000	;DCStop
001D8 01D8 00000000               				dc.l	$00000000	;Reserved
001DC 01DC 00000000               				dc.l	$00000000	;Reserved
001E0 01E0 00000000               				dc.l	$00000000	;Reserved
001E4 01E4
001E4 01E4                        	;*******************************************************
001E4 01E4
001E4 01E4 44                     	send_data	dc.b	$44			;4 X 4 Matrix Size
001E5 01E5 08                     				dc.b	$08			;Pel 0
001E6 01E6 88                     				dc.b	$88			;Pel 1
001E7 01E7 28                     				dc.b	$28			;Pel 2
001E8 01E8 A8                     				dc.b	$A8			;Pel 3
001E9 01E9 C8                     				dc.b	$C8			;Pel 4
001EA 01EA 48                     				dc.b	$48			;Pel 5
001EB 01EB E8                     				dc.b	$E8			;Pel 6
001EC 01EC 68                     				dc.b	$68			;Pel 7
001ED 01ED 38                     				dc.b	$38			;Pel 8
001EE 01EE B8                     				dc.b	$B8			;Pel 9
001EF 01EF 18                     				dc.b	$18			;Pel 10
001F0 01F0 98                     				dc.b	$98			;Pel 11
001F1 01F1 F8                     				dc.b	$F8			;Pel 12
001F2 01F2 78                     				dc.b	$78			;Pel 13
001F3 01F3 D8                     				dc.b	$D8			;Pel 14
001F4 01F4 58                     				dc.b	$58			;Pel 15
001F5 01F5
001F5 01F5                        	;*******************************************************
001F5 01F5                        	;
001F5 01F5                        	;	CODE SAMPLE #4
001F5 01F5                        	;
001F5 01F5                        	;	This code segment issues an Apple Scanner Define
001F5 01F5                        	;	Window Parameters Command by using the Apple SCSI
001F5 01F5                        	;	Card Generic SCSI call ($2B).  This command defines
001F5 01F5                        	;	the area of the scanner glass we want to scan
001F5 01F5                        	;
001F5 01F5                        	;*******************************************************
001F5 01F5
001F5 01F5                        	def_window
001F5 01F5                        									;
001F5 01F5                        									; Issue the Call
001F5 01F5                        									;
001F5 01F5 AD 016F       0016F 4  				lda		scan_dnum
001F8 01F8 8D FFFF       00203 4  				sta		dev_num4
001FB 01FB
001FB 01FB 20 00B0       000B0 6  				jsr		call_card
001FE 01FE 04                     				dc.b	$04			;Control Call Command Number
001FF 01FF 0202                   				dc.w	cmd_list4
00201 0201 60                  6  				rts
00202 0202
00202 0202                        	;*******************************************************
00202 0202
00202 0202 03                     	cmd_list4	dc.b	$03			;PCount = 3
00203 0203 00                     	dev_num4	dc.b	$00			;Device number
00204 0204 0207                   				dc.w	def_wndo	;Pointer to data
00206 0206 2B                     				dc.b	$2B			;Control Code
00207 0207
00207 0207                        	;*******************************************************
00207 0207
00207 0207                        	def_wndo						;Our Data
00207 0207 0018                   				dc.w	24			;Total Length of Parms
00209 0209 00000221               				dc.l	def_wnd_cmd	;CDB Pointer (Long)

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page   9
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

0020D 020D 0000022B               				dc.l	DCData4		;DCMove Ptr (Long)
00211 0211 00000000               				dc.l	$00000000	;Rqst Sense Ptr (Long)
00215 0215 00                     				dc.b	$00			;Reserved
00216 0216 00                     				dc.b	$00			;SCSI Status
00217 0217 00                     				dc.b	$00			;Command Count
00218 0218 00000030               				dc.l	8+40		;Trans Count (Long)
0021C 021C 00                     				dc.b	$00			;DMA Mode
0021D 021D 00000000               				dc.l	$00000000	;Reserved (Long)
00221 0221
00221 0221                        	;*******************************************************
00221 0221
00221 0221 24                     	def_wnd_cmd	dc.b	$24			;Scanner Define Window
00222 0222                        									;Parameters Command
00222 0222 00                     				dc.b	$00			;Reserved
00223 0223 00                     				dc.b	$00			;Reserved
00224 0224 00                     				dc.b	$00			;Reserved
00225 0225 00                     				dc.b	$00			;Reserved
00226 0226 00                     				dc.b	$00			;Reserved
00227 0227 00                     				dc.b	$00			;Transfer Length (High)
00228 0228 00                     				dc.b	$00			;Transfer Length (Mid)
00229 0229 30                     				dc.b	8+40		;Transfer Length (Low)
0022A 022A 80                     				dc.b	$80			;Apple Bit
0022B 022B
0022B 022B                        	;*******************************************************
0022B 022B
0022B 022B 0000024B               	DCData4		dc.l	wndo_data	;Scanner Window Data Ptr
0022F 022F 00000030               				dc.l	8+40		;Transfer Count
00233 0233 00000000               				dc.l	$00000000	;Offset
00237 0237 00000000               				dc.l	$00000000	;Reserved
0023B 023B
0023B 023B 00000000               				dc.l	$00000000	;DCStop
0023F 023F 00000000               				dc.l	$00000000	;Reserved
00243 0243 00000000               				dc.l	$00000000	;Reserved
00247 0247 00000000               				dc.l	$00000000	;Reserved
0024B 024B
0024B 024B                        	;*******************************************************
0024B 024B                        	;	NOTE:  Remember that all values that are longer than
0024B 024B                        	;	1 byte are in reversed order from natice 65xxx code.
0024B 024B                        	;*******************************************************
0024B 024B
0024B 024B 000000000000           	wndo_data	dcb.b	6,$00		;Reserved
00251 0251 00                     				dc.b	$00			;Transfer Length (High)
00252 0252 28                     				dc.b	40			;Transfer Length (Low)
00253 0253
00253 0253 01                     				dc.b	$01			;Window Identifier
00254 0254 00                     				dc.b	$00			;Reserved
00255 0255
00255 0255 00                     				dc.b	$00			;X Resolution (High)
00256 0256 4B                     				dc.b	75			;X Resolution (Low)
00257 0257
00257 0257 00                     				dc.b	$00			;Y Resolution (High)
00258 0258 4B                     				dc.b	75			;Y Resolution (Low)
00259 0259                        									;
00259 0259                        									; We will use the corner as
00259 0259                        									; Our Upper Left Possition.
00259 0259                        									; This is at coordinate 0,0
00259 0259                        									;
00259 0259 00                     				dc.b	$00			;Upper Left X (High)
0025A 025A 00                     				dc.b	$00			;Upper Left X (Mid High)
0025B 025B 00                     				dc.b	$00			;Upper Left X (Mid Low)
0025C 025C 00                     				dc.b	$00			;Upper Left X (Low)
0025D 025D
0025D 025D 00                     				dc.b	$00			;Upper Left Y (High)
0025E 025E 00                     				dc.b	$00			;Upper Left Y (Mid High)
0025F 025F 00                     				dc.b	$00			;Upper Left Y (Mid Low)
00260 0260 00                     				dc.b	$00			;Upper Left Y (Low)
00261 0261                        									;
00261 0261                        									; Width is defined as the number
00261 0261                        									; of 1/1200-inch increments on

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page  10
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

00261 0261                        									; the horizontal axis; must be on
00261 0261                        									; a byte boundry for both the
00261 0261                        									; start and end points.  We will
00261 0261                        									; set for 4 Inches and drop the
00261 0261                        									; extra.
00261 0261                        									;
00261 0261 00                     				dc.b	$00			;Width (High)
00262 0262 00                     				dc.b	$00			;Width (Mid High)
00263 0263 12                     				dc.b	4*1200/256	;Width (Mid Low)
00264 0264 C0                     				dc.b	4*1200		;Width (Low)
00265 0265                        									;
00265 0265                        									; Length is defined as the number
00265 0265                        									; of 1/1200-inch increments on the
00265 0265                        									; vertical axis.  We want Å 2 1/2
00265 0265                        									; inches or 3072 increments
00265 0265                        									;
00265 0265 00                     				dc.b	$00			;Length (High)
00266 0266 00                     				dc.b	$00			;Length (Mid High)
00267 0267 0C                     				dc.b	3072/256	;Length (Mid Low)
00268 0268 00                     				dc.b	3072		;Length (Low)
00269 0269
00269 0269 80                     				dc.b	$80			;Median Brightness
0026A 026A 80                     				dc.b	$80			;Median Threshold
0026B 026B 80                     				dc.b	$80			;Median Contrast
0026C 026C
0026C 026C 01                     				dc.b	$01			;Image Composition (Halftone)
0026D 026D 01                     				dc.b	$01			;Bits per Pixel
0026E 026E
0026E 026E 00                     				dc.b	$00			;Halftone Mask Always $00 (High)
0026F 026F 02                     				dc.b	$02			;Downloaded Mask Pattern (Low)
00270 0270
00270 0270 03                     				dc.b	$03			;Padding Type
00271 0271 0000                   				dcb.b	2,$00		;Reserved
00273 0273 00                     				dc.b	$00			;Compression Type (None)
00274 0274 000000000000           				dcb.b	7,$00		;Scanner Ref. is wrong.  Says 5.
0027B 027B
0027B 027B                        	;*******************************************************
0027B 027B                        	;
0027B 027B                        	;	CODE SAMPLE #5
0027B 027B                        	;
0027B 027B                        	;	This code segment issues an Apple Scanner SCAN
0027B 027B                        	;	Command by using the Apple SCSI Card Generic SCSI
0027B 027B                        	;	call ($2B).  This starts the actual scanning.
0027B 027B                        	;
0027B 027B                        	;*******************************************************
0027B 027B
0027B 027B                        	start_scan
0027B 027B                        									;
0027B 027B                        									; Issue the Call
0027B 027B                        									;
0027B 027B AD 016F       0016F 4  				lda		scan_dnum
0027E 027E 8D FFFF       00289 4  				sta		dev_num5
00281 0281
00281 0281 20 00B0       000B0 6  				jsr		call_card
00284 0284 04                     				dc.b	$04			;Control Call Command Number
00285 0285 0288                   				dc.w	cmd_list5
00287 0287 60                  6  				rts
00288 0288
00288 0288                        	;*******************************************************
00288 0288
00288 0288 03                     	cmd_list5	dc.b	$03			;PCount = 3
00289 0289 00                     	dev_num5	dc.b	$00			;Device number
0028A 028A 028D                   				dc.w	scan_cmd	;Pointer to data
0028C 028C 2B                     				dc.b	$2B			;Control Code
0028D 028D
0028D 028D                        	;*******************************************************
0028D 028D
0028D 028D                        	scan_cmd						;Our Data
0028D 028D 0018                   				dc.w	24			;Total Length of Parms

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page  11
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

0028F 028F 000002A7               				dc.l	do_scan		;CDB Pointer (Long)
00293 0293 000002AD               				dc.l	DCData5		;DCMove Ptr (Long)
00297 0297 00000000               				dc.l	$00000000	;Rqst Sense Ptr (Long)
0029B 029B 00                     				dc.b	$00			;Reserved
0029C 029C 00                     				dc.b	$00			;SCSI Status
0029D 029D 00                     				dc.b	$00			;Command Count
0029E 029E 00000001               				dc.l	$00000001	;Trans Count (Long)
002A2 02A2 00                     				dc.b	$00			;DMA Mode
002A3 02A3 00000000               				dc.l	$00000000	;Reserved (Long)
002A7 02A7
002A7 02A7                        	;*******************************************************
002A7 02A7
002A7 02A7 1B                     	do_scan		dc.b	$1B			;SCAN
002A8 02A8                        									;Parameters Command
002A8 02A8 000000                 				dcb.b	3,$00		;Reserved
002AB 02AB 01                     				dc.b	1			;Transfer Length (Low)
002AC 02AC 00                     				dc.b	$00			;Wait and Home Bits = 0
002AD 02AD
002AD 02AD                        	;*******************************************************
002AD 02AD
002AD 02AD 000002CD               	DCData5		dc.l	window_ID	;Scanner Window Data Ptr
002B1 02B1 00000001               				dc.l	1			;Transfer Count
002B5 02B5 00000000               				dc.l	$00000000	;Offset
002B9 02B9 00000000               				dc.l	$00000000	;Reserved
002BD 02BD
002BD 02BD 00000000               				dc.l	$00000000	;DCStop
002C1 02C1 00000000               				dc.l	$00000000	;Reserved
002C5 02C5 00000000               				dc.l	$00000000	;Reserved
002C9 02C9 00000000               				dc.l	$00000000	;Reserved
002CD 02CD
002CD 02CD                        	;*******************************************************
002CD 02CD
002CD 02CD 01                     	window_ID	dc.b	$01			;Window Identifier
002CE 02CE
002CE 02CE                        	;*******************************************************
002CE 02CE                        	;
002CE 02CE                        	;	CODE SAMPLE #6
002CE 02CE                        	;
002CE 02CE                        	;	This code segment issues a series of calls to the
002CE 02CE                        	;	Apple Scanner by using the Apple SCSI Card Generic
002CE 02CE                        	;	SCSI call ($2B).  We first issue a GET DATA STATUS
002CE 02CE                        	;	to see if there is enough data.  Then we read in a
002CE 02CE                        	;	single Scan Line with a READ Call.  The data is then
002CE 02CE                        	;	converted and placed in a video buffer.
002CE 02CE                        	;
002CE 02CE                        	;*******************************************************
002CE 02CE
002CE 02CE                        	get_data
002CE 02CE 9C FFFF       00338 4  				stz		scan_line	;Init the scanline to 0
002D1 02D1                        									;
002D1 02D1                        									; Issue the Call
002D1 02D1                        									;
002D1 02D1 AD 016F       0016F 4  	@get_data2	lda		scan_dnum
002D4 02D4 8D FFFF       00365 4  				sta		dev_num6
002D7 02D7 8D FFFF       0036A 4  				sta		dev_num65
002DA 02DA
002DA 02DA 20 00B0       000B0 6  				jsr		call_card
002DD 02DD 04                     				dc.b	$04			;Control Call Command Number
002DE 02DE 0364                   				dc.w	cmd_list6
002E0 02E0 B0 52         00334 2  				bcs		@out
002E2 02E2                        									;
002E2 02E2                        									; Is there enough Data?
002E2 02E2                        									; Enough data = 1 scan
002E2 02E2                        									; line of 4 inches at 75
002E2 02E2                        									; DPI or 300 pixels.  At
002E2 02E2                        									; 8 pixels per byte, the
002E2 02E2                        									; data will be padded to
002E2 02E2                        									; 38 bytes.
002E2 02E2                        									;

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page  12
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

002E2 02E2 AD FFFF       003FF 4  				lda		scan_data
002E5 02E5 D0 0C         002F3 2  				bne		@have_line
002E7 02E7 AD FFFF       00400 4  				lda		scan_data+1
002EA 02EA D0 07         002F3 2  				bne		@have_line
002EC 02EC AD FFFF       00401 4  				lda		scan_data+2
002EF 02EF C9 26               2  				cmp		#38			;Decimal 38
002F1 02F1 90 DB         002CE 2  				blt		get_data
002F3 02F3                        									;
002F3 02F3                        									; We have the data.  Read
002F3 02F3                        									; it.
002F3 02F3                        									;
002F3 02F3 20 00B0       000B0 6  	@have_line	jsr		call_card
002F6 02F6 04                     				dc.b	$04			;Control Call Command Number
002F7 02F7 0369                   				dc.w	cmd_list65
002F9 02F9 B0 39         00334 2  				bcs		@out
002FB 02FB                        									;
002FB 02FB                        									; Now we need to invert
002FB 02FB                        									; the data.
002FB 02FB                        									;
002FB 02FB A9 28               2  				lda		#40			;40 bytes/line
002FD 02FD 8D FFFF       00339 4  				sta		byte_count
00300 0300 9C FFFF       0033A 4  				stz		byte_index
00303 0303 A9 07               2  	@loop_1		lda		#$07
00305 0305 8D FFFF       0033B 4  				sta		seven		;Pixels/byte
00308 0308 A2 24               2  	@loop_2		ldx		#38-2
0030A 030A 0E FFFF       00427 6  				asl		raw_image+37;Shift bits out the top to
0030D 030D 3E FFFF             7  	@loop_3		rol		raw_image,x	;the next byte 1 at a time
00310 0310 CA                  2  				dex
00311 0311 10 FA         0030D 2  				bpl		@loop_3
00313 0313 AE FFFF       0033A 4  				ldx		byte_index	;Shift the last bit in to
00316 0316 7E FFFF             7  				ror		screen,x	;this byte.  This reverses the
00319 0319 CE FFFF       0033B 6  				dec		seven		;bit ordering. Also taking 8
0031C 031C D0 EA         00308 2  				bne		@loop_2		;bits per byte down to 7
0031E 031E 5E FFFF             7  				lsr		screen,x
00321 0321 EE FFFF       0033A 6  				inc		byte_index
00324 0324 CE FFFF       00339 6  				dec		byte_count
00327 0327 D0 DA         00303 2  				bne		@loop_1
00329 0329                        									;
00329 0329                        									; Move data to Scan Line
00329 0329                        									;
00329 0329 AE FFFF       00338 4  				ldx		scan_line
0032C 032C 20 FFFF       00428 6  				jsr		on_screen
0032F 032F EE FFFF       00338 6  				inc		scan_line
00332 0332 80 9D         002D1 3  				bra		@get_data2
00334 0334
00334 0334 A9 00               2  	@out		lda		#$00
00336 0336 18                  2  				clc
00337 0337 60                  6  				rts
00338 0338
00338 0338                        	;*******************************************************
00338 0338
00338 0338 00                     	scan_line	dc.b	$00			;Scan Line Index
00339 0339 00                     	byte_count	dc.b	$00			;Number of bytes left
0033A 033A 00                     	byte_index	dc.b	$00			;Current Byte in use
0033B 033B 00                     	seven		dc.b	$00			;Count off 7 pixels
0033C 033C 000000000000           	screen		dcb.b	40,0		;Place to do the screen
00364 0364
00364 0364                        	;*******************************************************
00364 0364
00364 0364 03                     	cmd_list6	dc.b	$03			;PCount = 3
00365 0365 00                     	dev_num6	dc.b	$00			;Device number
00366 0366 036E                   				dc.w	gd_status	;Pointer to data
00368 0368 2B                     				dc.b	$2B			;Control Code
00369 0369
00369 0369 03                     	cmd_list65	dc.b	$03			;PCount = 3
0036A 036A 00                     	dev_num65	dc.b	$00			;Device number
0036B 036B 0388                   				dc.w	read		;Pointer to data
0036D 036D 2B                     				dc.b	$2B			;Control Code
0036E 036E

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page  13
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

0036E 036E                        	;*******************************************************
0036E 036E
0036E 036E                        	gd_status						;Our Data
0036E 036E 0018                   				dc.w	24			;Total Length of Parms
00370 0370 000003A2               				dc.l	get_stat	;CDB Pointer (Long)
00374 0374 000003B6               				dc.l	DCData6		;DCMove Ptr (Long)
00378 0378 00000000               				dc.l	$00000000	;Rqst Sense Ptr (Long)
0037C 037C 00                     				dc.b	$00			;Reserved
0037D 037D 00                     				dc.b	$00			;SCSI Status
0037E 037E 00                     				dc.b	$00			;Command Count
0037F 037F 0000000C               				dc.l	$0000000C	;Trans Count (Long)
00383 0383 00                     				dc.b	$00			;DMA Mode
00384 0384 00000000               				dc.l	$00000000	;Reserved (Long)
00388 0388
00388 0388                        	read							;Our Data
00388 0388 0018                   				dc.w	24			;Total Length of Parms
0038A 038A 000003AC               				dc.l	get_data2	;CDB Pointer (Long)
0038E 038E 000003D6               				dc.l	DCData65	;DCMove Ptr (Long)
00392 0392 00000000               				dc.l	$00000000	;Rqst Sense Ptr (Long)
00396 0396 00                     				dc.b	$00			;Reserved
00397 0397 00                     				dc.b	$00			;SCSI Status
00398 0398 00                     				dc.b	$00			;Command Count
00399 0399 00000026               				dc.l	$00000026	;Trans Count (Long)
0039D 039D 00                     				dc.b	$00			;DMA Mode
0039E 039E 00000000               				dc.l	$00000000	;Reserved (Long)
003A2 03A2
003A2 03A2                        	;*******************************************************
003A2 03A2
003A2 03A2 34                     	get_stat	dc.b	$34			;GET DATA STATUS
003A3 03A3                        									;Parameters Command
003A3 03A3 000000000000           				dcb.b	7,$00		;Reserved
003AA 03AA 0C                     				dc.b	12			;Transfer Length (Low)
003AB 03AB 00                     				dc.b	$00			;Wait and Home Bits = 0
003AC 03AC
003AC 03AC 28                     	get_data2	dc.b	$28			;READ
003AD 03AD                        									;Parameters Command
003AD 03AD 00000000               				dcb.b	4,$00		;Reserved
003B1 03B1 01                     				dc.b	$01			;Window ID
003B2 03B2 00                     				dc.b	$00			;Transfer Length (High)
003B3 03B3 00                     				dc.b	$00			;Transfer Length (Mid)
003B4 03B4 26                     				dc.b	$26			;Transfer Length (Low)
003B5 03B5 00                     				dc.b	$00			;Wait and Home Bits = 0
003B6 03B6
003B6 03B6                        	;*******************************************************
003B6 03B6
003B6 03B6 000003F6               	DCData6		dc.l	data_cnt	;Data Pointer
003BA 03BA 0000000C               				dc.l	12			;Transfer Count
003BE 03BE 00000000               				dc.l	$00000000	;Offset
003C2 03C2 00000000               				dc.l	$00000000	;Reserved
003C6 03C6
003C6 03C6 00000000               				dc.l	$00000000	;DCStop
003CA 03CA 00000000               				dc.l	$00000000	;Reserved
003CE 03CE 00000000               				dc.l	$00000000	;Reserved
003D2 03D2 00000000               				dc.l	$00000000	;Reserved
003D6 03D6
003D6 03D6 00000402               	DCData65	dc.l	raw_image	;Data Pointer
003DA 03DA 00000026               				dc.l	38			;Transfer Count
003DE 03DE 00000000               				dc.l	$00000000	;Offset
003E2 03E2 00000000               				dc.l	$00000000	;Reserved
003E6 03E6
003E6 03E6 00000000               				dc.l	$00000000	;DCStop
003EA 03EA 00000000               				dc.l	$00000000	;Reserved
003EE 03EE 00000000               				dc.l	$00000000	;Reserved
003F2 03F2 00000000               				dc.l	$00000000	;Reserved
003F6 03F6
003F6 03F6                        	;*******************************************************
003F6 03F6
003F6 03F6                        	data_cnt						;Data Space
003F6 03F6 0000                   				dcb.b	2,$00		;Reserved

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page  14
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

003F8 03F8 00                     				dc.b	$00			;Data Length
003F9 03F9 00                     				dc.b	$00			;Block
003FA 03FA 00                     				dc.b	$00			;Window Identifier
003FB 03FB 00000000               				dcb.b	4,$00		;Reserved
003FF 03FF 00                     	scan_data	dc.b	$00			;Scan Data (High)
00400 0400 00                     				dc.b	$00			;Scan Data (Mid)
00401 0401 00                     				dc.b	$00			;Scan Data (Low)
00402 0402
00402 0402 000000000000           	raw_image	dcb.b	38,$00		;Scanned Data Image
00428 0428
00428 0428                        	;*******************************************************
00428 0428
00428 0428 BD FFFF             4  	on_screen	lda		scan_tbl_lo,x
0042B 042B 85 42               3  				sta		<$42
0042D 042D BD FFFF             4  				lda		scan_tbl_hi,x
00430 0430 85 43               3  				sta		<$43
00432 0432 A2 27               2  				ldx		#40-1
00434 0434 A0 27               2  				ldy		#40-1
00436 0436 BD 033C             4  	@loop		lda		screen,x
00439 0439 49 7F               2  				eor		#$7f
0043B 043B 91 42               6  				sta		($42),y
0043D 043D CA                  2  				dex
0043E 043E 88                  2  				dey
0043F 043F 10 F5         00436 2  				bpl		@loop
00441 0441
00441 0441 18                  2  				clc
00442 0442 60                  6  				rts
00443 0443
00443 0443 000000000000           	scan_tbl_lo	dcb.b	8,$00		;Lines 0-7
0044B 044B 808080808080           				dcb.b	8,$80		;Lines 8-15
00453 0453 000000000000           				dcb.b	8,$00		;Lines 16-23
0045B 045B 808080808080           				dcb.b	8,$80		;Lines 24-31
00463 0463 000000000000           				dcb.b	8,$00		;Lines 32-39
0046B 046B 808080808080           				dcb.b	8,$80		;Lines 40-47
00473 0473 000000000000           				dcb.b	8,$00		;Lines 48-55
0047B 047B 808080808080           				dcb.b	8,$80		;Lines 56-63
00483 0483
00483 0483 282828282828           				dcb.b	8,$28		;Lines 64-71
0048B 048B A8A8A8A8A8A8           				dcb.b	8,$a8		;Lines 72-79
00493 0493 282828282828           				dcb.b	8,$28		;Lines 80-87
0049B 049B A8A8A8A8A8A8           				dcb.b	8,$a8		;Lines 88-95
004A3 04A3 282828282828           				dcb.b	8,$28		;Lines 96-103
004AB 04AB A8A8A8A8A8A8           				dcb.b	8,$a8		;Lines 104-111
004B3 04B3 282828282828           				dcb.b	8,$28		;Lines 112-119
004BB 04BB A8A8A8A8A8A8           				dcb.b	8,$a8		;Lines 120-127
004C3 04C3
004C3 04C3 505050505050           				dcb.b	8,$50		;Lines 128-135
004CB 04CB D0D0D0D0D0D0           				dcb.b	8,$d0		;Lines 136-143
004D3 04D3 505050505050           				dcb.b	8,$50		;Lines 144-151
004DB 04DB D0D0D0D0D0D0           				dcb.b	8,$d0		;Lines 152-159
004E3 04E3 505050505050           				dcb.b	8,$50		;Lines 160-167
004EB 04EB D0D0D0D0D0D0           				dcb.b	8,$d0		;Lines 168-175
004F3 04F3 505050505050           				dcb.b	8,$50		;Lines 176-183
004FB 04FB D0D0D0D0D0D0           				dcb.b	8,$d0		;Lines 184-191
00503 0503
00503 0503 2024282C3034           	scan_tbl_hi	dc.b	$20,$24,$28,$2c,$30,$34,$38,$3c
0050B 050B 2024282C3034           				dc.b	$20,$24,$28,$2c,$30,$34,$38,$3c
00513 0513 2125292D3135           				dc.b	$21,$25,$29,$2d,$31,$35,$39,$3d
0051B 051B 2125292D3135           				dc.b	$21,$25,$29,$2d,$31,$35,$39,$3d
00523 0523 22262A2E3236           				dc.b	$22,$26,$2a,$2e,$32,$36,$3a,$3e
0052B 052B 22262A2E3236           				dc.b	$22,$26,$2a,$2e,$32,$36,$3a,$3e
00533 0533 23272B2F3337           				dc.b	$23,$27,$2b,$2f,$33,$37,$3b,$3f
0053B 053B 23272B2F3337           				dc.b	$23,$27,$2b,$2f,$33,$37,$3b,$3f
00543 0543
00543 0543 2024282C3034           				dc.b	$20,$24,$28,$2c,$30,$34,$38,$3c
0054B 054B 2024282C3034           				dc.b	$20,$24,$28,$2c,$30,$34,$38,$3c
00553 0553 2125292D3135           				dc.b	$21,$25,$29,$2d,$31,$35,$39,$3d
0055B 055B 2125292D3135           				dc.b	$21,$25,$29,$2d,$31,$35,$39,$3d
00563 0563 22262A2E3236           				dc.b	$22,$26,$2a,$2e,$32,$36,$3a,$3e

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page  15
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

0056B 056B 22262A2E3236           				dc.b	$22,$26,$2a,$2e,$32,$36,$3a,$3e
00573 0573 23272B2F3337           				dc.b	$23,$27,$2b,$2f,$33,$37,$3b,$3f
0057B 057B 23272B2F3337           				dc.b	$23,$27,$2b,$2f,$33,$37,$3b,$3f
00583 0583
00583 0583 2024282C3034           				dc.b	$20,$24,$28,$2c,$30,$34,$38,$3c
0058B 058B 2024282C3034           				dc.b	$20,$24,$28,$2c,$30,$34,$38,$3c
00593 0593 2125292D3135           				dc.b	$21,$25,$29,$2d,$31,$35,$39,$3d
0059B 059B 2125292D3135           				dc.b	$21,$25,$29,$2d,$31,$35,$39,$3d
005A3 05A3 22262A2E3236           				dc.b	$22,$26,$2a,$2e,$32,$36,$3a,$3e
005AB 05AB 22262A2E3236           				dc.b	$22,$26,$2a,$2e,$32,$36,$3a,$3e
005B3 05B3 23272B2F3337           				dc.b	$23,$27,$2b,$2f,$33,$37,$3b,$3f
005BB 05BB 23272B2F3337           				dc.b	$23,$27,$2b,$2f,$33,$37,$3b,$3f
005C3 05C3
005C3 05C3                        	;*******************************************************
005C3 05C3                        	;
005C3 05C3                        	;	CODE SAMPLE #7
005C3 05C3                        	;
005C3 05C3                        	;	This code segment toggles the HiRes Soft switches so
005C3 05C3                        	;	that we can see what was just scanned.
005C3 05C3                        	;
005C3 05C3                        	;*******************************************************
005C3 05C3
005C3 05C3                        	display
005C3 05C3                        									;
005C3 05C3                        									; Save the Current State
005C3 05C3                        									;
005C3 05C3 AD C01A             4  				lda		RDTEXT
005C6 05C6 8D FFFF       00630 4  				sta		@text		;Text/Graphics
005C9 05C9
005C9 05C9 AD C01B             4  				lda		RDMIX
005CC 05CC 8D FFFF       00631 4  				sta		@mixed		;Mixed?
005CF 05CF
005CF 05CF AD C01C             4  				lda		RDPAGE2
005D2 05D2 8D FFFF       00632 4  				sta		@page		;Page 1 or 2
005D5 05D5
005D5 05D5 AD C01D             4  				lda		RDHIRES
005D8 05D8 8D FFFF       00633 4  				sta		@hires		;HiRes Mode?
005DB 05DB
005DB 05DB AD C018             4  				lda		RD80COL
005DE 05DE 8D FFFF       00634 4  				sta		@80col		;80-Column Mode?
005E1 05E1
005E1 05E1 AD C00C             4  				lda		CLR80VID	;40-Column Mode.
005E4 05E4 AD C050             4  				lda		TXTCLR		;Standard Apple II Graphics
005E7 05E7 AD C052             4  				lda		MIXCLR		;Clear Mixed Mode
005EA 05EA AD C054             4  				lda		TXTPAGE1	;Page 1
005ED 05ED AD C057             4  				lda		HIRES		;HiRes Mode
005F0 05F0 AD C05E             4  				lda		CLRAN3		;Clear annunciator 3
005F3 05F3
005F3 05F3
005F3 05F3 8D C010             4  				sta		KBD_STRB	;Clear Key Strobe
005F6 05F6 AD C000             4  	@key_loop	lda		KBD			;Get key
005F9 05F9 10 FB         005F6 2  				bpl		@key_loop	;Wait for Key Press
005FB 05FB 8D C010             4  				sta		KBD_STRB	;Clear Key Strobe
005FE 05FE C9 9B               2  				cmp		#ESC		;ESC Key
00600 0600 18                  2  				clc
00601 0601 D0 04         00607 2  				bne		@chk_txt
00603 0603 38                  2  				sec					;Exit on ESC
00604 0604
00604 0604 AD C05F             4  				lda		SETAN3		;Set annunciator 3
00607 0607
00607 0607 AD FFFF       00630 4  	@chk_txt	lda		@text
0060A 060A 10 03         0060F 2  				bpl		@chk_mix
0060C 060C 8D C051             4  				sta		TXTSET		;Text on
0060F 060F
0060F 060F AD FFFF       00631 4  	@chk_mix	lda		@mixed
00612 0612 10 03         00617 2  				bpl		@chk_page
00614 0614 8D C053             4  				sta		MIXSET		;Mixed on
00617 0617
00617 0617 AD FFFF       00632 4  	@chk_page	lda		@page

MPW IIGS Assembler - Ver 1.1b1                                                                             06-Nov-90  Page  16
Copyright Apple Computer, Inc. 1987-1990

Loc   SLoc Object Code    Addr T M	Source Statement

0061A 061A 10 03         0061F 2  				bpl		@chk_hires
0061C 061C 8D C055             4  				sta		TXTPAGE2	;Page 2
0061F 061F
0061F 061F AD FFFF       00633 4  	@chk_hires	lda		@hires
00622 0622 10 03         00627 2  				bpl		@chk_40col
00624 0624 8D C056             4  				sta		LORES		;HiRes Off
00627 0627
00627 0627 AD FFFF       00634 4  	@chk_40col	lda		@80col
0062A 062A 10 03         0062F 2  				bpl		@rts
0062C 062C 8D C00D             4  				sta		SET80VID	;80-Column on.
0062F 062F
0062F 062F 60                  6  	@rts		rts
00630 0630
00630 0630 00                     	@text		dc.b	$00
00631 0631 00                     	@mixed		dc.b	$00
00632 0632 00                     	@page		dc.b	$00
00633 0633 00                     	@hires		dc.b	$00
00634 0634 00                     	@80col		dc.b	$00
00635 0635
00635 0635                        	;*******************************************************
00635 0635
00635 0635                        				ENDP

                                  				END

Elapsed time: 4.05 seconds.

Assembly complete - no errors found.  1026 lines.