mirror of
https://github.com/marketideas/qasm.git
synced 2026-10-24 22:02:28 +00:00
Shawn Quick
dfcaae62dd
Move the assembler to src/qasm. qlink links OMF 1.0 and 2.0 from a script. makeBin flattens a load file, qomf dumps OMF, and qpro builds ProDOS volumes. APW and MPW assemble through the ORCA front end. Relocatable modules emit OMF objects. Listings stay off unless -l is set. make boot assembles the GS/OS 6.0.1 ProDOS 8 kernel and BASIC.SYSTEM into an 800K volume. BASIC.SYSTEM accepts ls and pfx, and its splash reports PRODOS BASIC 2.0, copyright 1983-2026. IIGS.601.SRC is the source and the BASIC.SYSTEM oracle that image is built from.
1 line
2.7 KiB
NASM
1 line
2.7 KiB
NASM
STRING ASIS
|
|
BLANKS OFF
|
|
|
|
**********************************************************************
|
|
*
|
|
* Modem Port Driver version 2.1
|
|
* Copyright Apple Computer, Inc. 1986-1988
|
|
* All rights reserved.
|
|
*
|
|
**********************************************************************
|
|
|
|
MACRO
|
|
&lab str &string
|
|
EXPORT &lab ; export the label
|
|
LCLC &EIB ; declare a temporary var to hold current string setting
|
|
&EIB SETC &SETTING('STRING') ; put current string setting into temp
|
|
STRING PASCAL ; Set string type to pascal.
|
|
&lab DC.B &string ; make the string
|
|
STRING &EIB ; restore orig string settings
|
|
MEND
|
|
|
|
|
|
include 'e16.dialog'
|
|
|
|
|
|
EXPORT DialogData
|
|
DialogData PROC
|
|
;------------------------------------------------------------
|
|
;
|
|
; data used by port not active alert box
|
|
;
|
|
|
|
;------------------------------------------------------------
|
|
;
|
|
; 640 mode
|
|
;
|
|
EXPORT alerttemp640
|
|
alerttemp640 DC.W 30,40,75,600 ; bounds rect
|
|
DC.W 1301 ; id
|
|
DC.B $80
|
|
DC.B $80
|
|
DC.B $80
|
|
DC.B $80
|
|
DC.L item1_640 ; Continue
|
|
DC.L item2_640 ; text
|
|
DC.L 0000
|
|
|
|
|
|
EXPORT item1_640
|
|
item1_640 DC.W 1 ; id
|
|
DC.W 22,470,0,0 ; bounds rect for button
|
|
DC.W ButtonItem ; type
|
|
DC.L But1 ; item descriptor - "Continue"
|
|
DC.W 00 ; item value
|
|
DC.W 0 ; item flag
|
|
DC.L 0 ; item color
|
|
|
|
EXPORT item2_640
|
|
item2_640 DC.W 2 ; id
|
|
DC.W 3,100,43,400 ; bounds rect for button
|
|
DC.W LongStatText ; type
|
|
DC.L Msg1_640 ; item descriptor
|
|
DC.W Len_Msg1_640 ; item value
|
|
DC.W 0 ; item flag
|
|
DC.L 0 ; item color
|
|
|
|
|
|
But1 str 'OK'
|
|
|
|
EXPORT Msg1_640
|
|
Msg1_640 DC.B $0d
|
|
DC.B 'The modem port is not selected'
|
|
DC.B $0d
|
|
DC.B 'in the Control Panel.'
|
|
Len_Msg1_640 equ *-Msg1_640
|
|
|
|
;------------------------------------------------------------
|
|
;
|
|
; 320 mode
|
|
;
|
|
EXPORT alerttemp320
|
|
alerttemp320 DC.W 30,10,95,310 ; bounds rect
|
|
DC.W 1301 ; id
|
|
DC.B $80
|
|
DC.B $80
|
|
DC.B $80
|
|
DC.B $80
|
|
DC.L item1_320 ; Continue
|
|
DC.L item2_320 ; text
|
|
DC.L 0000
|
|
|
|
EXPORT item1_320
|
|
item1_320 DC.W 1 ; id
|
|
DC.W 45,235,0,0 ; bounds rect for button
|
|
DC.W ButtonItem ; type
|
|
DC.L But1 ; item descriptor - "Continue"
|
|
DC.W 00 ; item value
|
|
DC.W 0 ; item flag
|
|
DC.L 0 ; item color
|
|
|
|
EXPORT item2_320
|
|
item2_320 DC.W 2 ; id
|
|
DC.W 3,55,63,225 ; bounds rect for text
|
|
DC.W LongStatText ; type
|
|
DC.L Msg1_320 ; item descriptor
|
|
DC.W Len_Msg1_320 ; item value
|
|
DC.W 0 ; item flag
|
|
DC.L 0 ; item color
|
|
|
|
|
|
EXPORT Msg1_320
|
|
Msg1_320 DC.B $0d
|
|
DC.B 'The modem port is not'
|
|
DC.B $0d
|
|
DC.B 'selected in the Control'
|
|
DC.B $0d
|
|
DC.B 'Panel.'
|
|
Len_Msg1_320 equ *-Msg1_320
|
|
|
|
|
|
ENDP
|
|
|
|
|
|
END |